2000C 300

2000C-300 2000C-300

User Manual: 2000C-300

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

Download
Open PDF In Browser	View PDF

2000C HIGH SPEED TSB SYSTEM
(REV. C)

BINARY TAPES

24261-60001

24261-60002
24261:"'60003
SOURCE TAPES

24261-80001
24261-80002
24261-80003
24261-80004
24261-80005
24261-8000G
24261-80007
24261-80008
2426 1- 8"00 a9
24261-80010
24261-80011
24J.61-80012
24261-80013
24261-8C014
24261-80015
24261-80016
24261-80017
24261-80018
24261-80019
24261-80020
24261-80021
24261-800~2

24261-80023
24261-80024
24261-80025
24261-80026
24261-80027

•

PAGE 8"'1
·t58

0001

*.

------

NO ERRORS.

SY8T~M ~

2~00C(HS)

VE~510N;t

PAGE

~1d1d2

#01

0001
ASMs,A,a,L
T5tl SYSTEM. 200IcJC(HS) VeRSION C
ORG 20028
klk102
01cJ0J*
0004* LIN~AGE INfORMATION USED ~y THE T56 LUAD~~ AND THE
k100S* MAG lAPE DUMP.
0006*
0007 02002 075000
OEF LIBRA
SYSIEM Ll~R~H1 PROGRAM ORIGIN
k1008 0201t)3 072034
Off COM6
-> SYSTEM LleRARY DISC ADDRESSES
A6S TTY01-TTYIOIO
LEN&TH Of A TTY lA~Lt
0009 02004 000023
Off TTY00+1DISC
ADDRESS Cf USER DISC ADORES
0010 ~2005 061130
OfF TTYI00+11D
AODRE$3 Of lO-NAME
02006 061132
Ie"" 11
Off LNAME
ADDRESS OF ~SER.OEPENDENT ITEMS
0012 02007 0101571
0013 0201'" 177224
ABS uSEH.PROGS.l
LENGTH O~ SWAP AREA
0014 ~2011 1c1~1224
Off USER
CORE AOOHESS Of SWAP AREA
DEf TS6
SYSTEM STARTING AO~RtSS
0015 fc12012 070342
0016 k:12101J 1144610
JSB POW!N,l
TO ijU INTo LoC 4,
0017 ~2fc114 k'JJ12J4
Dff GM~8
MESSAGE ~UFfER ;ETTER
ABS $SLPL~L18RA
NUMHER OF ~IBRAkV PHOGRAMS
0018 fc12015 0001213

PAGE 0003 .01
0020
10021
0022
0023
0024
0025
0026
0027
0028
0029
100310
0031
0032
0033
0034
0035
0036
0037
"038
0039
0040
IIHd41
0042
0043
0044
0045
0046

00000
0lde0l
00000
00017
00002
00002
00003
00004
00005
(rHH'06
00007
00010
00011
00012
001013

0048
0049
0050
0051
0052

00057
00060
1a0061
00062
00063

.t63

0054
0055
0056
0057
0058
0059
0060
11'061
0062
0063

---

BASE PAGf

"

102002
024002
103004
102005
107706
114476
114464
102011
114466
102013
010014 102014
00015 102015
00016 114472
00030
00030 000000
[rHcla50 000000
00051 000000
00052 000000
00053 000i100
00054 0000SiI
1d0055 000000
0OO56 0liUJ000

Jli.6~

00065
00066
00067
"0070
000 7 1
00ro72
00073
00074

EQU 0
EQU 1
DEATH EQU
FTEL EIiW 15
ORG 2
HLT 2
JMP ··1
HL.T 4,C;
HLT ~
CLC 6,e
DMA
JSB ?ADIN,l
CHI
JS8 RI4DR,1
CH2
HLT l1B
1St
JS8 TJ50R,I
HL.T 138
HL.T 14B
HI..T 15s
CL.OCK JSB CL.KOR,1
ORG 30B
LTEMP BSS 16
MOVES ass 1
MOVED BSS 1
10
ass 1
BSS 1
MID
T3&Cp BSS 1
TJ5LC BSS 1
PBPTR BSS 1
A

B

000O0111
000000
000000
000000
000000

.....

TlMER
saHED
SCHL.
TTQ

BSS 1

ass

A REGISTER ADDRESS
RE'ilSTEH ADDRESS

ij

f

lL.E TJ.tH.E ENTRY L.ENTH

fOR 8YSTfM
PRUTEeTIQN
CHANGED 6Y ~OADER.
PARITY ERROR.
COMMUNICATIoN

F~O'"

2114

CONSOI.E LINK

CL.OCKlIN~

TEMPS US EO I3Y NO",~ESIOENT FUN(.;S"
SOURCE AND oESTINATI~N
fOR M.OVE~ ROUTINE.
USED FOR RESUL.TS Of ~ETID ROUTIN
T35 BUFFER PNTR FOR L.18H,PROGS.
RESULT of T35C~ ROUTINE.
POINT~R To cNU OF CURRENT PROGRA
POINTS

ro CLOCK OF ACTIVE USER,

1

BSS 1
aSS 1
SC~UO SSS 1
1
SCNT aSS 1
SCHPR BSS 1
CMA
ass 1
CMS
BSS 1
CME
BSS 1
WoRD ass 1
SVCH2 BSS 1
TCNT BSS 1
IDL.ep BSS 1
IDL.NP aSS 1

,000000 ,CH" 8,.

00001110
00008"
000000
0000.00
000000
0000i10
000000
~H"075 00000k)
00076 000000

WORD

CO~NT

To DISC ROUTINE.

0~66************U***********.*******************************************
101667.
~06~*

0069.
007"·
01c:l71.
ro1c:l72.
1c:l07J.
td074

tlEGINNiNG Uf EQUIPMENT TABLE
THE NEXT SET Of CARDS CONSTITUTE fHE RESIDENT INfO ABOUT
DISC RESIDENT TAblES. THESE CA~DS MUST SE ORIGINED AT 100B,
THEY ARE INITIALIZED BY THE VAHIOUS LOADERS, AND THEIR
CONTENTS ARE ~RITTEN ON DISC HY THE SLEEp HUUTINt.
~0100
ORG l1c:l0ij
10 TAf:SLE HE.AOlRS
1c:l0101c:l 1c:l00000
IDEC ass 9
1) FIHST 1D UN TRACK
2) Ol- MtSSAGt BU~fEH GETTER
ADOktSS Or O!~C ORIVER ENTRY
DISC URIVER IR1ERRUPT E.NTRY ADUH
DIsC DRlv~R BUSY FLAG
DISC REwUEST~U woRD COUNT
-> DISC AUTO I-fF #STOP
#lIIH Off LIBRA,1
OEF #CRST
#LIB# DEF LIBRA
OEF #DGCK
Iq AS OfF TAB
OEF #L.TCK
Dl~AX DfF TRAX
OEF *SBPu
SCHEN Of:.F SCHEQ
OEf #SYCK
SCHIN OEf SCHIGI
I..INKAGE FUR INPUT Rf:.QUEST.
OfF #FINC
DLTE:.M ()~f I..TEMp
OfF #NMCK
TT Y35 OEF 1TT35
DEF #MB10
ACCSA uEf AceST
OE;.F #0 6 110
ACC5A Ot:F ACCS5
OfF #NRMI..
I..UlEN DeF LIBUS .. ULEN
DcF- #PACK
SCHLb DEF SChLQ
OfF #OVf-L

PAGE 0009 #"1
10299
0300
0301
0302
0303
0304
1tJ305
0306
0307
0308
0309
0310
0311
0312
0313
0314
031 5
0316
0317
0318
0319
0320
0321
0322
0323
0324
O325
0326
0327
0328
0329
0330
0331
0332
0J33
1iJ334
0335
0336
0337
0338
0339
0340
0341
0342
0343
0344
0345
0346
0347
0348
0349
e3~e

0351
0352
0353

00534
{(J0535
00536
00537
00540
00541
00542
00543
00544
160545
00546
00547
0055O
00551
00552
00553
01d55 4
O0555
00556
00557
0056 0
00561
00562
00563
00664
00565
00566
00567
00t570
00571
00572
00573
1(J0574
00575
00576
00577

BASt PAGE

074606
0342410
003230
034".21
07203f>
036732
020000
037002
001645
036450
061126
036574
062266
035170
102501
033607
041655
033635
040031
033647
042 614
042J71
001230
043fS41
033360
044010
101230
043420
020040
05116ti
07."25
044657
030060
043341
07H512
043322

006~0 "0136~

00601
00602
00603
00604
00605
00606
00607
00610
00611
00612
0e613
00614
00615
e0616
00617
00620
00621
"0622

042342
001117
042020
00008e
042111

072236
043563
1777"0
043741
002100
045165
00300e
043642
01 0000
043635
012236
043651
01ae"0

OEF
OfF
L1024 OfF
OEF
FUSS OfF
OEF
Pfj192 DEC
OfF
ERSCA DEF
OfF
OlTY0 OfF
OEF
OTT32 DEF
OEF
LIA1 LlA
OEF
EXITA OfF
OEF
XECIA OEF
Off
FRET OEF
OEF
1..180 OEF
OEF
FOP8S OEF
OEF
LIBOl OEF
OEF
ASCB8 ASC
DfF
TJ5CH OEF
OEF
ASC0" ASC
OEF
OUTCH OEF
DEF
FSCHA OEF
OEF
e1777 OCT
OEF
LOGe T NOP
°EF
LOGPI OEF
OEF
0100 OCT
OEf
B2000 OCT
OEF
3
8 000 OCT
A~CK

RPOP

ABCHK
#OL.PR
1..1BUS+1024
.FOPS
COM6+1
POINTER rO OISC ADDRESS Of FUSS.
.SSYM
8192

#ASyM
ERSEC
.OCMP
TTY00
.PNST
TTY32
-CUSP
1

.snu

EXIT
.HSTO
XECI
.GrIT
FORI"
.FORM
L. It:lU8

-ST8T
QUOTE .. 2
.SBFX
1..1SUS,1
.PSTR
1,
.FLOT
T3SCQ
.TRST
1,00
·CMPR
'OUTC
.PCHK
F8C H
_FTCH
1777
.STOP

·FOAT
1..0GGR+63
.FSCH
-100
,PSH8
2000
.ARIN
3000
oEF *r:sNOP
OCT 1°000

OfF .STTP

LOGP2 OEF lOGGR+63
OfF _OPCK
LI:.iOP oCT 12000

NUMSER OF

EL~MENTS

IN LOGGR

'OINTERs TO FIRST AND

L·ST ENrRU:s IN 1..0GGR

PAGE 0010 #k11
03b4

0355
0356
"'357
"'358
0359
121360
121361
0362
1d363
0364
"'365
121366
121367
121368
id369
0370
0371
ldJ72
0373
121374
0375
0376
0377
03n3
0379
0380
121381
0382
0383
0384
0385
0 3 86
03 8 7
0388
1t':l389
0390
0391
0392
10393
0394
0395
1d396
1d397
0398
O399
12141210
0401
12141212
1041213
0404
o405
041216
0407
041218

BASE:

00623 04370J
00624 "'131O~0
100625 ~4472()
~0626 072137
00627 044733
0121630 072237
121121631 045036
00632 121221210121
It;) 121 633 1214511211
00634 07121043
0121635 044702
00636 0471210121
1210637 12145224
01064121 1217121047
100641 12144021
100642 05hH10
00643 121512101121
121121644 12101705
1210645 1'05012126
121121646 1215501210
0121647 050~45
00650 1d601211210
00651 05121437
100652 0621000
100 65 3 05 041 7
00654 025063
0121655 042347
0 121 656 0650~0
00657 ~51531
~121660 07121000
00661 12151655
00 66 2 100001
~0663 05107 4
00664 077~00
~0665 051147
00666 0706t3
00667 1051172
0121670 100121e3
Li;l0671 042244
16121672 100017
00673 ~50475
I!llcJ674 176550
~0675 051d467
1d1d616 000135
00677 1050451
'1121700 hJ0777
[d0701 05037~
110702 1d021d~VJ
007163 052613
160704 lra6240
016705 1652650

0fd706 174003
00707 04236!)
00710 eJ71713
013711 1d34513

PAGE

lPUP

DEF "RSCK

oCT

1300~

OEF #FAD ,
lOGSG Off LOGGR
POINTS TO 8t:GINNING OF lOGGH
OEf .fSB
LOGND OfF lOGGH+64 POINTS TU ENe OF lOClGR
OfF .FMP
MUL.0P oCT 2212110121
DEF #FDy
DelC! OEF CLC1
OEF #UNPK
olMOP OCT 47iO~0
OfF #FLu N
DClc2 oEF cLc 2
OfF #lFIX
Rt.MOP OCT 5112100
OfF #ENOT
ERS32 OEF ERSEC,.J2
DEF #NMOT
NXTOp oCT 5512100
DEF #GlOG
ENOOP OCT 6121000
OEF #OTlN
OATOP OCT 62000
OEF #EDLM
lw97 DEF USER+UlEN .. 97
DEF #STPT
PHTOP OCT 6501d0
DEF *f.XP
FIL.OP OCT 70000
DEI' #lOG
UNEI Off ! , 1
OEF #CHES
OPMSK OCT 77000
OfF #lENT
DEH
OfF EM
OfF #PWR2
1Nrf-l OCT 100003
OEf #INCL.
POFr-l OCT 100~17
DEf #GTCR
ML.18D ASS ,,"LIBUS
DEf #6I(SP
1ATBI.

oEf

?fSL.

DEF #OTCR
OPL>MK OCT UI0777
OfF .orIN
P8UFF DEI' PROClS.1
DEI' #MeOT
036K
ASS 312100fd+6ff'00
oEF #orST
Of-OP OCT 17-100J
OfF #SlNI
SCOM1 DE.F COM!
DfF #SlOI

PAGE 0011 #01
16409
0410
0411
0412
0"13
0414
0415
0416
0417
0418
0419
0420
~421

0422
0423
0424
042~

0426
0421
·0428
0429
0430
04 3 1
0432
043l
0434
0435
0436
0437
0438
0439
0440
04411
0442
(64"3
0444
0445
04 .. 6
0447
0448
0449
0460
:" .. 51

·.fD452
0463
O'454
0456
0456
0457
Jcl458
045SJ
1~6"

O4 6 1
0462
0463

~0712

00713
00114
00116
00116
00717
00720
"0721
00722
00723

BASt. PAGE

072022
041303
1600U'J
047252
15436k)
040415
000105
052676
000013
0~540~

100724 000014

00725
00726
"0727
00730
00731
00732
k10733
007J4
00735
00136
00737
0074 0
00741
00742
00743
101d744
00745
00746
00747
0076k)
00151
00752
1d0753
"'0754
00755
00156
00757
00760
00761
0"762
00763
0"'64
00766
00766
00767
00770
00771
00772
00773
00174
i0715
""O776
00777
01000

034545
0130VJ0
0:)4566
0illJ140
042043
176100
044051
000077
044355
004000
044471
12 5 00 7
04"534
046000
035040
01 6 000
031057
0441000
043530
177000
056000
171667
056010
053515
056022
134213
056064
001652
056072
177400
056103
17760lr)
056124
117640
056150
0f0012
03.)667
000100
035"14
O53474
,,54806
043000
041027
104000

SCUM5 DEF
DEF
M81841 DEC
OEF
MAXSN DEC
DEF
E
oCT
DEF
Bl3
OCT
DEF
DEC
06""
Off
L.ETOP OCT
OEF
.140 OCT
OEF
1'12000 OCT
OEF
B77
OCT
OEF
1$4000 OCT
OEf
POrSS JMP
Dt.F
COMOP OCT
OfF
seOHM OCT
OEF
IMGop OCT
OEF
M612 DEC
DEF
M7J
DEC

COM5-!
tIIROIM
.. 8184
tIIVCHK
-10000
.SERM
105
#CHOU
13
.MOVE
611)

tIIRECR
730160
.FIL.R
140
tIIVL.Fl
176001CJ
tIIRQST
77
tIIF lL.S
4000
.GTTY
PDF'la-1,1
#WRBU
46000
-AL.CO
16000
#RSTP
4401CJ0
#rE.NC
.612
#MTG1
.. 73

Uf.F __ OrLl

POrNS DEF PRQF·S
OEF *RUND
STijA8 OEF SYNTS·42S,1
DEF *OT81..
IHS
OEF HB
oEF #OTeL.
M266 OEC .256
OEF #OSCH
M128 DEC -128
OEF #MCHR
10196
OCT ·14111
OfF #EVEP
oHUM DEF 1..0RUM
OEF tIIUSCK
S100 OCT 100
OEF *pFSH
ATHEN OEF THEN
OfF jFkMT
USEOP OCT "30(60
DEF *EPRU
MUI..EN ABS -ULEN

PAGE

~012

#01

BASE PAGE

1(J464 111001 ~35220
OfF #SLCK
0465 ~H002 "'21230 l6192 OEF Ll~US+6192
0466 01003 0732i0
OfF #Leal
0467 01004 001562 FeUeA oEF FeU(;
,,468 ~1005 043600
OEF #FeUC
0469 01 00 6 \142203 fDT4A OEF fOAT4
16470 01007 051751
OEF #EDA6
16471.
0472** FUNCTION EXECUTION ENTRY AOoHtSSES
0473*
0474 010116 050Q24 PDfTS DEF flAb
0475 01011 050611
OfF ELIN
0476 01012 050554
OfF ESPA
0477 fel101J 05 13 0 1
Off ETAN
",478 01014 051417
OEF EATt'-4
0479 01015 0515~7
OfF EEXP
OEF ELO~
0480 01016 051653
O481 1Il1017 0510661
OEF EASS
48
ESQR
OfF
5
16 2 ir:l1020 16 2010
0483 01021 050664
DEF EINT
OEF ERt'-4o
16 484 01022 050744
485
OEF ESGN
01023 05 H:J17
0
0486 01024 001032 LoVSR DEF oVSRS
'LE.N' IS OONE IN A
O487 101025 16510316
ETYP
OfF
0488 01026 1350700
ofF ErIM
0489 0hJ27 V151212
OEF ESIN
0490 ld1030 051210
OEF ECOS
0491 01031 052076
OEF ESRK
0493
0494
0495
0496
"497
10498
0499
",500
0501
0502
0503
ft)5f04
0~05

0506.
fdb07*
'15 LtHh
16509.
0510·
",511
0512
0513
"014
0515
0516

01032 0234210
0UIJ3 flHH750
011634 ~00144
01035 00~H.H2
010 36 10000~
01031 ~"0376
~1040 040000
01041 00~0"'ft)
~0610

10",762
00351
010350
101036
"'0612

OVSRS DEC 10000
OEt 1000
ot.e 10'"
DEC 10
MNEG OCT 100000
O'T 376
HAL.F ote \-l.5
EQU 0100
Mt:l4
HIMSK EQU M256
EQU ,-1
tuF
EQU , .. 2
t.OR
SITU) EQU MNEG
A01.10 EQU B20{00

THE. FOLLOWING CONSTANTS ARE MASKS fOR THE
IN EACH USER,S TTY TABLE.
00353
00354
'10356
00..162
0fd372
00412
f£l0712

S~EC1AL

EQU ,+1
EQU ,+2
nlU ,+4
EWU ,+6
EQU .+1(:1
QUnH EQU .+32
COM14 EQU 811:""
lE:.RR

CfLAG
HFLAG
TAPEF
UNABT

~lT.FI..AG

WOHl;

TAPE ERROR
COMPIL.E MODE
$HELLO IS RUNNING
USER IN TAPE MOOE
UNA~L.E TO A~ORT
OUTPUT BUFfER FULL
COMMUNICATION FROM .21104

WAY

PAGE 0013 #131

BASE PAGE

0517 00442
A~TRY
OFCHK
05 1 8 00444
0519 00445
CHNFG
1iJ520 00612
ENOST
MBUST
0521 00736
PBFL.G
0522 00616
0523 ~0446
C~fLG
1024.
0525 •• ERROR JUMP TABLE
1526.
0527 01042 001474 SERRS
0528
0529 01043 001474
0529 01044 001474
0529 01045 01iH414
0529 01046 001474
0529 01047 001474
0529 01050 001474
16529 01051 001474
"'529 01052 001474
052 9 010 5 3 001 474
0529 01054 001474
0529 01055 001474
0529 01056 001474
0529 01057 001474
0529 131060 001474
0529 010 6 1 0fi11414
0529 01062 001474
0529 01063 001414
0529 01064 001474
0529 01065 001474
0529 01050 001 .. 74
0529 01067 001474
0529 01070 001474
0529 01071 001474
0 5 29 01072 001474
0529 0107:;' 001474
0529 01074 ItHH47"
0529 01075 001474
0529 t11075 001474
0529 1'1077 001474
0 5 29 01100 001 .. 74
I.at 011(11 "1.1~
0529 01102 001414
0529 01103 001474
0529 01104 001474
0529 01111'S 001474
0530 01106 001474 Rt:.HR8
0&31
rcH532 0111d! 001474
0532 01110 001474
0532 01111 0(61474
0532 01112 001474
0532 01113 001474
0532 (11114 001474

EQU 820'"
EQU 840'"
EQU BUlld0
EIiIU 820140
EQU 84000
EQU RPOP
EQU 820M

OEF' 5ERR

REP
OfF
OEF
oEF

35
SERR
8ERR
8ERR
OfF SERR
OEF SEHR
OEF SERR
OEF SfRR
OEF SERR
OEF SERR
OEF SERR
oEF SERR
OEF SERR
OEF SERR
OEF SERR
DEF SERR
DE,. SERR
OEF SERR
OEF SERR
OfF SERR
OEF SERR
OfF SERR
OEF SERR
D~F SERR
OEF SERR
OEF SERR
OEF SERR
OfF SERR
OEF SERR
DEF SERR
OEF SERR
Off afRR
O£F SERR
DEF SERR
OEF SERR
DEF SERR
DEF SERR
REP 49
OEF SERR
DEF SERR
DEF SERR
DEF SERR
OEF SERR
DEF 8ERR

ATTEMPT
CHECK FOR DIRTY FI~E5
CHAIN RUNNING
ENORM POSITIVE
MBUSY POSITIV£
ABORT CA~.HILITY DISABLED
"BREAK" CO~MANO GIV~N

A~OrH

PAGE.

~014

11532
k)532
0532
0532
0532

01115
01117
01120
1!l1121

~532

~1122

0532
0532
0532
16532
16532
16532
0532
0532
0532
0532
0532
16532
0532
0532
0532
",532
0532
11532
05~2

16532
0532
fd532
16532
0532
0532
1()532
0532
16 5 32
0532
0532
~532

0532
0532
0532
1d532
1d532
13532
0533
0534
13535
lt1535
0535
0535
13535
13535
0535
0535
13535
0535

~1115

01123
01124
01125
01126
01127
011316
161131
01132
ta1133
01134
\11135
01136
01137
01140
01141
01142
01143
01144
01145
01146

#01

BASE. PAGf.

1101474
001474
001414
001474
001474
001474
01cH474
001474
001474
001474
001474
001474
0101474

001474
0101474

001474
001474
001474
001474
1101474
001474
0014;4
00147.4

01164
01165
lt11166
01167
01170

001474
001414
001474
1(l01474
11161474
001474
k)01474
001474
001474
001474
001474
1601474
001474
001474
13131474
001474
1301474
"'''1474
1301474
1301474
1d1d14?4

101171
leU 172
131173
01174
01175
1(l1176
131177
lt112f2113
01201
1312132

001474
0131474
1d01474
001474
0131474
1301474
01cH 4 74
1301474
001474
001474

161147

01150
'11151
01152
'31153
lt11154
01155
161156
01157
~1160

131161

~1162

101163

OEF
OfF
OEF
OEF
OEF
DEF
OEF
OEF
DEF
DEF
D~F

OfF
OEF
OfF
OfF
DEF

DEF
OEF
OEF
OEF
OEF
OEF
OEr
OEF

DlF

OEF
OfF
OEF
DEF
OEF

OfF

OfF
DfF

OfF·

DEF
DEF
OEF
OEF
OEF
OfF
OEF
OfF
OfF
Ft::RRS OEF
REp
OEF
OfF
Ot;F
OfF
OEF
Of.F

OEF

OEF
OEF
OEF

SERR
SERR
SERR
SERR
SERR
SER~

SERR
SERR
SERR
$ERR
SERR
SERR
SERR
SE.RR
SERR
SERR
SERR
SERR
SERR
SERR
SERR
SERR
SERR
SERR
8ERR
SERR
SERR
SERR
SERR
SERR
SERR
SERR
SERR
SERR
SERR
SER~

SERR
SERR
StRR
SERf(
SERR
SERR
SERR
Sf~H

14

SERR
SERR
SERR
SER~

SERR
SERR
SERR
SERR
SERR
SERR

PAGE 0015 #01
0535
0535
0535
0535
0536
0537
0e3tS
iH538
0538
05315
0538
0538
0538
0538
0538

BASt:. PAGE

01203
0120.
.,1205
01206
01207

00147.
001474
001.74
001474
001474

01210
01211
01212
01213
01214
01215
fiU216
01217
01220

0rcH474
001474
001414
(601474
001474
001414
001474
0fCH 474
001414

.. • .

OfF
OEF
OEF
OEF

SERR
SERR
SERR
SERR
WERRS OEF SERR
REp 9
OEF 8ERR
OEF SfRR
OEF SERR
OEF SERR
OEF St::RR
OEF SERR
OEF SERR
OEF SERR
OEF SERR

pAGE 0016 #1-12

uSEfo( ARtA

OfF USf:,R
"'002 01221 12101224 USE.
0003 ~1222 1~1~24 USE.l Off USeR,l
0004 01224
ORG 1224B
0005 ~1224
USER £QU •
13006 01224 21021000 ARt:G NOP
0007 01225 000000 BREG NOP
000ij 01226 000000 EHEG NOP
0009 01227 0001300 PREG NOP
0010 01230
LIBUS Ef.lU •
""11*
0012 •• SUBROUTINE RETURN ADDRESSES
0013*
0014 01230 13000((10 f SC
NOP
001 5 01231 124453
JMP •• JTO,l
0016 01232 000e00 StiSCK NOP
0017 01233 12445~
JMP •• JTD,l
001ij ~1234 0001/)00 FRCUR NOP
0019 "1235 124457
JMP •• JTD,I
0020 01236 11)00000 fPOP NOP
0021 01237 124461
JMP •• JTD,l
0022 01240 000000 VAROP NOP
0023 01241 12 44 6 3
JMP •• JTD,l
0024 01242 000000 ARRIO NOP
JMP •• JTD,l
021 2 5 01243 12 44 bb
0026 01244 0000~0 PR(HN NOP
0027 VJ1245 12 44 57
JMP ."'JTO,1
01246 000000 TbSRH NOP
~028
0029 012 4 7 124 4 71
JMP •• JTD,I
0030 01250 000000 GETPF NOP
0031 Idl251 1 244 73
JMP .·JTO,I
flJ032 01252 000000 LPCK NOP
"'033 1111253 12 44 7E>
JMP ... JTD,l
0034 01254 f2IIC0000 RPCK NOP
0035 01255 1244 77
JMP .·JTO,l
0036 01256 000000 lTH
NOP
0037 01257 124501
JMP ."'JTD,l
0038 01260 000000 STROP NOP
003 9 ~1261 1245133
JMP ."JTO,l
0040 01262 000000 CHRST NOP
0041 01263 124505
JMP "'JTD,l
0042 01264 000000 I)lGCK NOP
0043 01265 124507
JMP •• JTO,l
13044 01266 000000 It:.TCK NOP
0045 012 6 7 124511
JMP "'JTD,l
0046 01270 000000 SBPUl> NOP
0047 ~1271 124513
JMP *.JTD,l
004 8 k?1272 000000 SYMCK NOP
004 9 101213 124515
JMP ··JTDd
0050 01274 000000 Fl/llCH NOP
0051 01215 124~H7
JMP •• JTO,l
0052 k31276 0000~0 NUMCK NOP
0053 01277 124521
JMP ··JTD,l
0054 01300 0000100 MIH1111 NOP
0055 01301 124523
JMP ·.JTD,I
0056 01302 000000 DBY10 /IIOP

PAGE 0017
0057
0058
0059
1c:1060
0061
0062
0063
0064
0065
0066
0067
0068
0069
0070
0071
0072
0073
0074
0075
0076
0077
007 8
007 9
"'080
0081
fd082
0083
0084
0085
0086
0087
0088
0089
0090
0091
0092
0093
0094
1609!>
0096
0097
0098
iH.i9
0100
0101
"'102
0103
0104
0105
1d106
0107
IcH08

01JfdJ
01304
01305
161306
01307
01310
01311
01312
01313
01314
01315
01316
01317
01320
01321
01322
01323
01324
01325
01326
01327
01330
01331
01332
01333
01334
01335
01336
01337
01340
11:'11341
01342
01343
01344
01345
01346

~109

01367
01371d
01371

0110
0111

~13<47

01350
01351
161352
01353
01J54
kl1355
01356
01357
01360
"'13fH
01362
01363
01364
01365
~1366

--~2

USER ARf:.A

124525
00000'"
124527
000000
124631
000000
124533
00000id
124535
00013016
124537
000000
124541
000000
124543
000000
124545
0014000
124547
000000
124551
000000
124553
00000O
124556
000000
12<4557
000000
124561
000000
124563
000000
124565
000000
124567
000000
124571
tl00000
124573
000000
124575
0000e16
12.577
000000
124601
000000
124603
000000
12460'5
000000
124607
000000
124611
000000
124613

JMP
NORML NOP
JMP
,PACK ~UP
JMP
OVf"LW NOP
JMP
DEt.PR NOP
JMP
FNDPS NOP
JMP
SSYMT NOP
JMP
ASYMT NOP
JMP
OC;MPL, NOP
JMP
PRNST NOP
JMP
CUSP NOP
JMP
STtnO NUP
JMP
RSTOP NOP
JMP
Gf:.TST NOP
JMP
FORMX NOP
JMP
STSTR NOP
JMP
SSfIX NOP
Jf'1P
PSTR NOP
JMP
FL.OAT NOP
JMP
TRSTR NOP
JMP
COMPR NOP
JMP
PCHK NOP
J"f'
Ff.TCI1 NOP
JMP
St.TOP NOP
JMP
FOAlA NOP
JMP
FSCH NOP
JMP
PS~ST NOP
JMP
ARINV NOP
JMP

·"JTD,I
• .. JTO,J.
• .. JTO,l
•• JTD,I
··JTD,l
•• JTD,I
.""JTD,l
·"JTD,I
...·JTO, I
... JTO,l
."JTO,I
.""JTD,l
•• JTD,I
• .. JTD,l
•• JTD,l
•• JTD,l
··JTD,1
•• JTD,I
•• JTD,l

··JTO,l
.·JTO,l
.-JTO,l
.·~no,

1

.·JTD,1
··",TO,1
.·JTO,l
• .. JTO,l
."JTO,l

PAGE 0018 #flJ2
0112
0113
0114
0115
0116
1/:1117
011 8
0119
0120
0121
0122
0123
0124
0125
0126
0127
0128
0129
013fIJ
0131
0132
IU33
0134
fcH35
13136
k"137
0138
0139
0140
0141
fd142
0143
0144
10145
0146
0147
",148
0149
0150
0151
0152
0153
0154
0155
0156
0157
1tl158
0159
0160
0161
liU62
0163
0164
0165
0166

01372
01373
01374
01375
01376
1/21377
0140fIJ
01401
014"'2
01403
01404

USER AREA

~~000fIJ

124!15
00000~

124617
0000~0

124621
1!}00000
124623
''00000
12462~

000000
014165 124627
k:l1406 0013000
01407 124~31
01410 00000k:l
01411 1246.)3
01412 0000~fd
01413 124635
101414 000000
01415 124637
01416 000000
01417 124641
0142k" 000000
131421 124643
01422 0000~0
01423 124645
01424 000kH'0
01420 1246117
flJ1426 000000
01427 124651
01430 0000rd0
01431 124653
01432 000000
01433 124655
~1434 000000
01435 1246!S7
01436 0000011:}
01437 124661
01440 rHH~0&:10
01441 124663
01442 000000
01443 124665
01444 000000
01445 124667
01446 000000
01447 124671
1!J1450 000000
01451 124673
01452 000000
01453 124675
01454 0000010
1c11455 124617
01456 0001000
01457 124701
01460 000000

81NOP NOP
JMp
STTOP NOP
JMP
OP~HK NOP
JMP
RSCHK NOP
JMP
,rAD NOP
JMP
.FSB NOP
JMP
,fMP NOP
JMP
,rOv NOP
JMP
UNPAK NOP
JMP
,fL.U N NOP
JMP
If!X NOP
JMP
ENOUT NOP
JMP
NUMOT NOP
JMP
GI:.TOG NOP
JMP
OUTI..N NOP
JMP
EOlL.M NOP
JMP
strPr NOP
JMP
,t.x P NOP
JMP
,LOG NOP
JMP
,CHE8 NOP
JMP
,lENT NOP
JMP
.PWR2 NOP
JMP
INCAL NOP
JMP
Gt:.rCR NOP
JMP
B~KSP NOP
JMP
OUTeR NOP
JMP
aUTIN NOP
JMP
MCOUT NOP

.,. .. JTD,I
h'JTD,I
•• JTO,I
"'·JTO,1
",JTO,I
._JTO,I
.,.·JTL>,I
··JTll,l
··JTO,I
·-JTD,l
~·Jrl),l

··JrD,I
··JTD,I
.,. ... Jl 0,I
.,.",JTD,l
·.,JTO,l
• .. JrD,I
·-JrO,l
··JTO,l
• .. JrD,l
··JrD,I
··JrO,1

·-JTO,I
··JTD,l
• .. JTD,I
• ... JTO,l

... JrO,1

PAGE 0019 *02
0167
016d
0169
0170
0171
0172
0173
0174
0175
0176
0177
017d
0179
0180
0181
0182
rtJ183
0184
rtJ185
0186
rU87
0188
0189
0190
0191
0192
0193
0194
1(J195
1il196
0197
0198
0199
0200
0201
0202
0203
0204
0205
021216
0207
02 0 d
0209
0210
0211
0212
0213
0214
1d215
0216
0217
0218
0219
0220
0221

01461
01462
1(J1463
01464
01465
01466
01467
01470
01471
01472
01473
01474
01475
0147b
01477
01500
k:11501
01502
01503
01504
01505
01506
01507
015111'
01511
01512
01513
01514
01515
1I1151b
01517
01520
01521
fcH522
01523
01524
1d1525
01526
101527
01530

USER

12470J
000000
124705
000000
124707
000~00

124711
0000010

124713
000000
124715
000000
124717
000000
124721
000000
1241'23

000000
124725
000000
124727
01'4000k:1
124731
000000
124733
000001(J
124735
00012100
124737
000000
124741
0000·00
124743
l!)id0000

124745
~00000

01535

124 7 47
000000
124 7 5 1
000000
124753
0000e0
124755
01210000
124757

~1536

~00000

(c11531

1d15J2
01533
~15J4

01537
1(J1540
01541
1(.)1542
101543
01544
01545
k11546
10154 7

124761
~00000

124763
000000
124765
000000
124707
000000
12<477 1

Af~EA

JMP
QUTST NOP
JMP
SH-.IT NOP
JMP
tH.DIN NOP
JMP
Rt:.DIM NOP
JMP
VCHK NOP
JMP
SERR NOP
JMP
CHOUF NOP
JMP
MOVER NOP
JMP
RE:CRF NOP
JMP
FIL.RF NOP
JMP
VL.FIL. NOP
JMP
R{,iSTR NOP
JMP
FIL.ST NOP
JMP
GTTYP NOP
JMP
to4RbUF' NOP
JMP
AL.CuM NOP
JMP
RSTPT NOP
JMP
Ft:.NCH NOP
JMP
MTG1 NOP
JMP
1)fL.l
NOP
JMP
ROUND NOP
JMP
OUT8L NOP
JMP
OUTCL. NOP
JMP
USRCH NOP
JMP
MCHAR NOP
JMP
EVEXP NOP
JMP
USTCK NOP
JMP

• ... JTD,l
•• JTD,I
•• JTO,I
• .. JTO,I
··JTD,1
• .. JTD,l
·..-JTO,1
."JTD,I
.·JTO,I
."JTD,l
*"'JTD,I
."JTO,l
·"JTD,I
."JTD,I
•• JTO,l
·"JTD,I
.·JTO,I
·.JIO,l
"·JTD,l
• ..,JTO,I
."JTO,l
··JTO,I
"'.JTO,l
... JTO,l

··JTD,l
."'JTO,1
.·JTO,I
•• JTO,1

PAGE

0"'2~

#'12

uSER AREA

0222 101550 V100000 pFSRH NOp
0223 01551 124773
JMP ·.JrD,I
"'224 "'1552 000~00 fRMAT NOP
0225 01553 124715
JMP ··JTD,I
0226 131554 0000e0 EPRUS NOP
0227 01555 124777
JMP *wJTD,l
022d "'1556 008000 STLCK NOP
10229 01557 125001
JMP ··JTO,l
0230 01560 ~08000 LCOLP NOP
0231 ~1561 125003
JMP ··Jl/),l
"'232 01562 000000 fCUC NOP
0233 01563 125005
JMP .wJTO,l
0234 01564 000000 EDAt)R NOP
0235 01565 125007
JMP *·JrO,I
EQU FSC.S8JTa+l
0236 00556
JTO
0237.
",238** GENERAL USAGE INFORMATION
0239*
O240 01566 130"-'0010 RNoXl "SS 1
30-S1T RANDOM
!tliTEGER.
0241 101 56 7 ",,,-,00t'0 RNDX2 BSS 1
0242 1211570 000000 .LI'-4UM ass 1
0243 VJ1571 000000 LNAME ass 1
0244 01572 001310013 CHRCT. SSS 1
0245 01573 13"''''1040 BI.ANK OCT 40
0240 01574 000iUHd SbPTR "S8 1
0247 01575 000000 SYMTB ess 1
10248 01576 000~fa0 VAL.TS BSS 1
10249 131577 "'02000 SPFWG OfF PROGB+l
0250 016",o 00131300 VI.FLG BSS 1
0251 01601 000000 FL.STS BSS 4
0252 ~1605 00000~ Flt,.PT ass 1
0253 01606 1300000 fIL.eT BSS 1
13254 1116ld7 ~~0t100 USESN ass 1
0255 01610 0"'131313'" NUMPT BSS 1
13256 01611 0130000 ENOUF NOP
0257 ~1612 0013000 ATIM BSS 1
13258 01613 VJ0000e TEMP 8SS 9
0259 01624 00130130 XTEI'1P aSS 2
",260 ~1626 ld0006" YTfMP BSS 2
~261
01630 0013000 UTEMP ass 2
0262 01632 0000t3~ X2TMP BSS 2
0263 01634 0f300(JIc' ATMP BSS 2
1d264 ~1636 0000~0 STMP BSS 2
0265 ~164'" 0000~0 D1MP ass 2
0266 01642 000000 tHN01 BSS 1
0267 ,,1643 0~000'" SlN02 BSS 1
itj268 01644 125372
JMP BINOP,l
0269 1c'1645 000000 ERSEC ass 64
02713 01745 000000 ec
8SS 1
0271 01746 1300000 eel
BSS 1
1.1272 01747 oIr!I 0 0"'''' eC2
ass 1
0273 131750 000000 CONTR BSS 1
13274 01751 000000 DP
BSS 1
0275 01752 0000kliC UPFLG I3SS 1
0276 01753 000000 f:.I)STA ass 1

PAGE t1021 #02
0277
0278
fd279
0280
0281
0282
028J
13284
0285
0286
0287
0288

1d289
0290
0 2 91
0292
0293
0294
0295
0296
0297
029~

02 99
0300
133131
0302
; ·0303
.03 0 4
03135
0306
0J07
0308
0J~9

16 31 0

0Jl1
0312
113313
0314
0315
1IJ316
0317
1i!l31d
0319
0320
0321
0322
0323
0324
0325
11:)326
0327
0328
0329
0330
0331

USEt< AREA

101754 0000130
01755 0t1ra00tO
~1756 00era01a
01757 0k)0000
0176t1 1(1000010
01761 0001300
01162 0160011'0
131763 0001300
01764 00000\1
01765 01d0000
01766 1t100ra00
~1767 0160000
101770 0010000
01711 000000
01772 01di'001d
Idl113 000"'01t1
01774 050ra01d
01775 1054000
01776 000000
02000
01777
01036
01422
ItH645
01266
131316
01320
01J22
01324
01336
01360
01362
1131616
01356 .
161300
1d13HJ

0140'1
01430
01274
01432
~1440

01442
01444
01434
01552
01446
01452
1IJ1470
01374
01512
01514
01500
01474
01474
01476

Ef\..A~

bS$
BSS
EST
FfLG 6SS
FSP
BSS
IFSS 8SS
IFSTR aSS
NCH
ass
NUMI 6SS
NUM2 ass
8SS
PCl
BSS
P.C2
SAD
SSS
SI:SD
6SS
PMASK 6SS
RfTCD 8SS
ASINP BSS
Df.FOp oCT
FOROP OCT
Rt:PCT ass
ORC;
PROGB EQU
F\..GBT E.QU
Gf-LAG EQU
pHqG EQU
SlGN E.GlU
MANTI E.IiIU
MANT2 EQU
EQU
EXP
EXPON t:GlU
Ff'LAG EI.lU
NMTMP EQU
NMPTR EQU
NUMBF ~QU
DlGeT EQU
E.QU
Nf0
OC1MP EQU
EQU
LTI.1
EQU
Lll
EQU
LT2
EQU
LT3
EQU
L.T4
LT5
EIiIU
L16
EGiU
EQU
LT7
EQU
LT8
EQU
OTl
EQU
OT3
EQU
OT4
DGCNT EQU
SOURC E.QU
DEST E(j1U
TAPIe) E~U
TAP1 ~QU
MVENO EQU
t:.QU
CU1

1
1
1

1
1
1

1

1
1

1

1
1
1
1
1
1

500160
54000
1
USE~ ... 554B

··1

MNEG
NVMOT
ERSEC
L.ETCK
SSYMT
ASYMT
DCMPL
PRNST
FORMX
SETDP
FDATA
TEMP+3
FETCH
""SY10
OVFL.W
RSC;HK
EDEt.,M
FJ.NCH
SETPT
,CHf.S
.1i:.NT
.PWR2
,EXP
FRMAT
INCAL.
SCKSP
RED!M
STTUP
FIL.ST
GTTYP
MOV EN
SERR

SERR

CHOUF

PAGE 0022 #02
0JJ2*

.,333**

lJ SERA.f~ EA

SYNTAX INFORMATION

TEMPORARl~S

0334.

0335
10336

0337

01576
fr1162ld
fr11472

fd33~

~1617

0339
13340
0341
121342
0343
0344
0345
0346
0347
0348
0349
0350

01402
~1404

01406
01410
1111434
0144k')

VJ1442
1111444
~13('16

01414
\111414

01621

E.RRCT fQU
S~UFA EQU
SYNr Q E.QU
55TAK EQU
MAXCR EQU
TABl.E EQU
LNGTH EWU
5MBGN EQU
51-E.NG E.QU
COUNT EQU
TI;)LPT EQU
TSPTR EQU
5610 EQU
ENTVR EQU
CDFI.G EQU
PH.AG EIilU

VAt..Ta
TEMP+5
VCMK
TEMP+4
,FAD
,FSB
,FMP
,FOV
,EXP
,CHEB
,lENT
,P~R2

.PACK
,FLUN
,F I.. UN
TEMP+6

03~1*

121352** COMPILE INFORMATION TEMPORARIES
0353.
0354 01234
FLlNK E.QU FRCUR
0
015
4
FII.TS EQU FH,RF
0355
0356 111242
STEND EQU ARRIO
0357 012310
5PTR EQU FSC:
0358 01236
NSPTR EQU FPOP
STYPE EQU YAROP
0359 ~1240
0360 01613
5TMPl EQU TEMP
ID361
01614
STMP2 EQU TEMP+1
0362 01613"
VTMPl EQU TEMP
0363 01tH4
VTMP2 EQU TEMP.1
0364 ~H615
VTMP3 EQU TEMP+a
0361)
VTMP .. EQU TEMP+J
01616
0366 01617
VTMP6 EQU TEMP+4
0367 01617
COMSN EIilU TEMP.4
0368 0162121
STPTR EQU TEMP+5
0369 01620
COMPT EQU TEMP+S
ft1J70 01621
STeTl EQU TEMP+6
0371 ft11615
5 TCT2 EQU TEMP+2
1d372 k')1616
STCTJ EQU TEMP..,3
0373 fr11621
OCFI..G EQU TEMP ... 6
0374 1a1552
INFST EQU FRMAT
0375*
0376*· EXECUTIO~ INFURMATION T~"'PORARltS
0377*
0378 01232
F<':ORE EQU SijSCK
037 9 01502
FCNTR EQU REC:RF
13 3 80 01240
RTRNQ EQU VAROP
0381 01242
RTNST EQU ARRID
0382 01246
FORQ EIilU T6SRH
FORST E(ilU GETPF
0383 0125{(J
0384 1tj1330
TMPST EQU STRID
0385 1:)1332
OPOST EQU RSTOP
{(J386 01466
OPTRQ EQU tiLOIN

PAGE
0387
~388

~389

0390
0391
0392
0393
0394
0395
0396
0397
VJ398

0399
0400
0401
0402
0403
0404
04 0 5
04fd6
0407
16408
16409
0410
0411
0412
0413
0414
0415
0416
fd417
,,418
0419
0420
0421
0422
0423
0424
0425
0426
0427
042ij
0.29
0431a
0431
0432
0433
0434
0435
0436
0437
(jJ.~~

0439
0440
044~

~~2J

01334
01262
01244
01613
01252
~1254

01256
01272
01260
01500
01430
1!J1422
01424
01426
01366
01460
01422
01422
015160
"'1354
01552
01472
01460
01574
01350
kHJ52
01312
01314
01624
01625
01340
01364
01634
01635
01636
01637
"1640
rd1641
016"'2
01633
[dil76
01516
01362
[d1472
01400
~1624

01626
01630
01344
01440
01442
flU •••
01620
01621
01622

'H,2

USER AREA
PRGCT
OCCNT
NXTOT
H.MPl
TEMP2
TlMPJ
Tf.MP4
TEMPt5
Ti:.MPO
GTMP
fVT
EfNic?
EfNl
EfN2
EfN3
INITF
IfCNT
RSPTR
MCNT
INTMP

EQU
EQU
EQU
EQU
EQU
EQU
lQU
EQU
EQU
EQU
EQU
EWU
EQU
fQU
EQU
EQU
EQU
EWU
f.QU
EQU
STRL~ t;QU
EQU
EOL
EOPf EQU
BSl
EQU
EQU
882
EQU
BS3
MT0
EQU
MT1
EQU
MT2
EQU
1'113
EQU
MUP
EQU
MEXIT EQU
MMT0 EQU
MMTl EIalU
MMT2 EQU
MMT3 EQU
MMT4 EQU
MMT5 EQU
MMT6 t:Qu
MMTI EQu
MMT6 EQU
EQU
IDra
EQU
ID1
R00
EgU
E.QU
VT0
SCAI..R EQu
MAXE EQU
EQU
TOI.
PIVEI.. EQU
ESTl EQU
E5T2 EQU
EST3 EQU
EQU
A1
EIiIU
C1
EQU
A2

GETST
CHRST
PR(llN
TEMP
LPCK
RPCK
LTR
SYMCK
STROP
MOVE.R
EOE!,.M
NUI10T
GETOG
OUn"N
PSHST
MCOUT
NUMOT
NUMOT
MOVER
PCHK
fRMAT
VCHK
MCUUT
S8PTR
T~STR

COMPR
OEI,.PR
FNOPS
XTE.MP
XTEMP+1
STsrR
FSCH
ATMP
ATMP+l
8TMP
STMP+1
DTMP
DTMP+l
X2TMP
x2TMP+1
OPCHK
WR6UF
fOAT·
VCHK
RSCHK
XTEMP
YTEMP
UTEMP
PSTR
,CHEB
.IENT
• PWR 2
TEMP+5
TEMP+6
TEMP.7

PAGE 10024 #"12

JSER AREA

"'442

01623

C2

~44J

01310

EXP2
FDId
TTl
TT2

0444
16445
0446
"'447
0448
0449
0450
0451
10 452
0453
10454
04~5

0456
0407
0458
0459
0460
0461
04 62
0463
0464

01402
101264
k'1266

01616
01617
~1646
016~1

01647
01650
01652
012 3 6
01653
101234
01352
01516
01654
01655

EQU
EQU
EQU
EQU
EQU
EQU
TTl
EQU
TT4
RQl
EQU
RQ2
EQU
RQJ
EQU
EQU
RW4
EgU
RQ5
fBASE EQU
E.ORFL EQU
F .H.E# EQU

TEMP+8.
OVFL.1'4

fQU
EQU
EQU
EQU
EQU
EQU
EQU
cQU
EQU
EQU
EQU
EQU
EQU
t:QU
EQU
EQU
E.QU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
Eew
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

WRBUF
ERIEt+'
ERSEC+8
RSCHK
OPCHK
,FMP
,FDV
RfOlM
SINlT
,EXP
PSTR
,FAD
.FSB
,CHEB
.IENT

RtRO' EQU COMPR
VL.0

10465

01 3 76
31406
01410
01470

~466

161464

16467
16466

0469
0470

01434
01344
014102
01404

10471
10472

01442

DAORR
fIL.T
MPr
NQT
TNULL
TPRME
PS0
P51
CP0
Cpl
TRFCH
TRS0
RT0
RTI

101436

L,liTMP

0473
0474
10475

i61400

101440

0477

01376
01645
01646
01650

10478

~1651

~479

01 6 52
01730
1.11731
01732
01733
017J4

10476

0480
0481
0482
0463
04 8 4
0485
[(J486
~487

k1488
k1489
0490
"4 9 1
[(J492

~1735

01740
0174 1
01742
01743
01744
014 7 2
01552

0493

101556

0494

i!l1470

FA!)

DIGCK
LEICK
TEMP+J
TEMP+4
ERSEC+l
ERSEC+4
ERSEC+2
ERSEC+3
fRSEC+5
FPOP
ERSfC+6
FHCUR

CIMP

EC

FST

SFLG
EXPjol
Hti
HijP

LCH
NAO
NBD
NBLK
NHBW
NUMW1
NUMW2

sNFLG
TOTDG
OCTR

,L.Ow

OPtHK
CRsft
ERSEC+l
E.RSEC+3
ERSEC+4
ERSEC+5
ERSEC+b1
ERSf-.C+f52
ER'EC+bJ
ER$EC+54
ERSEC+55
E.RStC+bb
ERSEC+59
E.RSEC+e0
ERSEC+61
ERSEC+62
ERSEC+6J

ELCNT EQU VCI1K
ORONO £QU FRMAT
ASBFP EQU STLCK
A~HYP E.QU RfOIM

46· wURD BUFf-f,R

PAGE
0002

01625

#03

OLOOK ROUTINES
ORG 30000a

30000

Ile~.

0004
0005

30000 000000

DIREC BSS 560

~QU •• 7
.> LAST ENTRY
DIREU EQU ..
.> BEYOND TABLE
"'007. DLOOK SEARCHES THE DIREcTORY fOR A PARTICULAR lNTRY,
000 8 * DESIRED ENTRY IS DEFINED BY LTEMP(013),

0006

31051
31060

DIREL

ftJIIg.
0010* IF THE ENTRY IS FOUND, DLOOK RETURNS TO P+l,
16011* BLES ARE SETI

TH~

THE

fOLLOWING VAKIA.

0012*
(LTEMP+4)~POINTER TO DIREC ENTRY,
0013*
(LTEMP+5).MEMORY ADDRlSS Of EN1~Y,
0014* THE APPROPRIATE OIRECTORY TRACK IS IN CORE,

"Il~h

0016* If THE EN'rRY IS

~OT FOUND, DLOOK RETURNS TO P+2, HiE POINTERS
ARE
SET
TO
POINT
AT THE LAST ENTRY LESS THAN THE GIVEN ENTRY.
"IU7*

0019

31060 000000

0~20

31061 061224

0021
0022

31062 ~740J"
31063 160,,34
31064 002002
31065 027071
311666 ~64034
31067 044343
J1i()7fd 027002
31071 006004
31072 060520
31073 017116
31074 027066
31075 000000
31076 160034
31077 01d3004
31100 040562
31101 040336
31102 070035
31103 060034
31104 040360
31105 160000
31106 053223
31107 021127

0023
0024
",.,25
0026
0027
0028
0029

0030
0031
0032
0033
0034

0035
0036
0037
0038
0039
0040
00041
0042
0043
00404
0045
0046
0047
0048
0049
tail50
0051

0052
flfI63

0ftJ54
0055
0056

JIl10 0eJ223
31111 002003

31112 027116
3111J 064562
31114 117225
31115 027173
31116
3111 6 160034

31117 070072

31120 060034
31121 0 •• 36f1
31122 073233
31123 160000
31124 064566

DL.OOK NOP
LOB
DL.OK3 STB
LOA
aZA
JMP
DL.OK2 Loa

ENTRY POINT,
OIRCL.
SET L.TEMP+4 TO POINT AT FIRST
LTEMP+4
DIRECTORY TRACK,
TEST
FOR EMPTY TWACK,
L.TEMP+04,I

DL.OKB EQU

*

NOT EMPTY,
CL.OK1
SUMP ~ACK TO
L.TEMP+4
N~XT TRACK,
ADB ,-7
JMP DLOK3
COMPARE fIRST TRACK ENTRY
INB
TO DES!RED ENTRY,
LOA DL.TEM
JSB DIRCM
NOT ON IHIS TRACK,
JMP DLOK2
NOP
FOUND THE RIGHT TRACK,
LOA LTEMP+4,1
CMA,INA
S~T uP IN1TIAL POINTtR FOR
AOA L160
TR~CK SCAN,
ADA ... 12
STA LTfMP+t)
LOA LTEMP+4 GET DIRECTORY
ADA ,+6
DRUM ADIJR~SS
LDA ·0,1
CHECK FOR THlS TRACK lN COR~,
CPA OIRI'40
JMP OLOK4
TRACK ALREADY IN CORE,
LOA DIRWI)
CHECK FUR DIR, TRACK IN COR~,
SKIP IF SO,
~ZA,RSS
OTHERWISE, JUST READ IN NEW TRACK
JMP OL.OKB
OUTGoING CO~E ADDRESS,
LOB L.180
WRITE PRE~10US TRACK OUT
JSB DRUM~,I
GOOFs GO TRY TO SALVAGE
JMP OLOK9
LOA LTEMP+4,I GET L.ENGTH OF THIS Dlk TRA,K
SET UP DRUM TRANSFER L.ENGTH
srA WORD
GET 1)1R~CrORY
LOA LTEMP+4
AUA ,+6
DRUM ADDREsS
STA 01..010
SAVE POINTER TO IT
LOA 0,1
L.DB LIBOl

PAGE
~057

0~26

3112~

#03

D~OOK

ROur~NEs
<

117225

JSe DRUMW,l
REAU DIRECTORY
0058 31126 117227
JSB SICKW,!
CAN'T: GO GIVE UP GRACEFULLY
0135Sh· NOw S~ARCH DIRECTORy FOR DESIRED ENTRy, A BINARy SEARCH IS uSED,
k3060* WITH LTEMp(14:1b) USED AS pOIN1ERS TO TH~ FIRST AND LAST OF ALL
11)061* UNTESTED ENTRl~S,
0062*

0063
0064
~065

131366
11)067
0k168
iihl69
0070

31127 060562
31130 13701346
31131 0605213
31132 1364035
JIIJ3 017176
31134 ~271.J7
31135 0370e0
31130 127136'"

DLOK4 LOA
SlA
LOA
L.DB
JSB
JMP
ISl
JMP

LISD
LTEMP+14
DLTEM
LTEMP+5
DIRCM
OL.OK5
DL.OOK
OLOOK,I

SET POINTtR iO 8~GINNIN~ OF
DIRECTORY ..
TEST LAST ENTRy l~ TRACK.
L.AST t:.NTRY TOO 8IG~.START CHOP,
TOO SMALL~.lT'S THE ONE,
LAST t:.NTRY IS IT,

0071*
11)072

0073
01374
0075
13076

0077
16078
0079

~"'81

0082
~"'83

01384
0085
0086.
~087

0088
0089
0~90

31137
31140
31141
31142
31143

1660035
070047
13613046
130313134
040~47

31144 001100
31145 II)0640r:1
J 1146 1004!a0
31147 01C)0366
311513 1002~0
31151 0"'0365

31152 0401346

J1153
31154
31155
31156

070035
1364520
050046
1327166

31157 017176
31160 027163
31161 027LU
31162 1270613

0091*
~092

31163 0601d35

0093

31164 070046

0094 31165 eJ27142
0095.
0096 31166 050562
0097 31167 ~17176
0098 3117" "3706~
11)099 31171 0000{60
0100 31172 1270610
0101*
0102 31173 063233
~103
31174 1364072
IiH04 31175 117226

DLUK5 LOA LTEMP+5
STA LTEMP+15
LOA I..TEMP+14
IJLOK6 CMA,INA
ADA LTEMP+15
ARS
cL.a
DIV ,+12

MPY ,+12
ADA
STA
1..08
CPA
JMP

LTEMP+14
I..Tt:.MP+b
OL.TEM
l.TEMP+14
DLOK8

DIRCM
JMP DLOK7
JMP DLOKo
JMP DL.OOK,l

JSB

SET END POINTER,
COMPUTE DIFFE~tN~E BETwEEN fIRST
AND LAST t:.~TRIES ..
DIVIDE BY T~O,
ROUND TO A
MULTIPLE
OF TWELVE
GET ADDRESS OF MIDOLt:. ENT~Y,
SET INTO RESULT LOCATION.
8ETU~ FOR Jse DIRCM,
TEST fOR ONLY 2 ENTRIES LEFT,
THERE ARE •• wf'VE GOT THt:. RESULT.
TEST MIDwAY ENTRY,
TOO SMALL. •• ijO RESET LrEMP(14).
TOO ~IG .. ~GO RESET LTEMP(15),
EQUAL .. "RETURN,

DLOK7 LOA l.TEMP+o
STA LTEMP+1 4
JMP OL.OK6

RESET LTEMP(14),

OLOK8 CPA L.leO
JS~ DIRCM
ISz DL.OOK
NOP
JMP DLOOK,I

IF LT~MP(14)c.~TEMP, wE KNOW
IT'S LESS, SO WE SKIP TEST.
LESS THAN ENTRy,
EQUAL TO ENTRY ..

UL.OK9 L.OA DL010
LOB WOHL)
JSB SALvw,l

GET POINTt:.R TO DRUM ADDRESS
GET LENGTH OF TABLE IN CORE
GO ATTEMPT TO SALVAGE TRA,K

PAGt 0027 -03

D~OOK

ROUTIN~S

0100_
0107* OIRCM COMPARES THE 4 WORD ENTRIES POINTED TO
010th BIT 16 IS NOT USED, IT RETURNS AS FOLl.O~S:

0109.
1611'''.

P+l' A<6
P+2, A:..B
P+3 A-B

Ial11*
0112 31176
0113 31177
0114 31200
Idl H) 31201
16116 31202
0117 31203
0Ut! 31204
0119 31205
31206
fd12~
16121 31207
0122 31210
0123 31211
0124 31212
0125 31213
0126 31214
0127 31215
0128 31216
1d129 31211
0130 31220
0131 31221
0132 31222
0133 31223
0134*
16135 31224
0136 31226
0137 31226
rU38 J1227
1d139 31230
0140 31231
~141
31232
0142 31233
0143.

000afd16
1673231
060346
073230
077232
163232
001665
003004
167231
005665
040001
002002
027220
031232
037231

DIRCM NOP
STA DIRC2
LOA ,.4
STA OIRel
STB OIRC5
OIRCl LOA OIRe5,I
EL.A,CLE,ERA
CMA,INA
LOB DIRe2,I

A AND

~t

SET CUUNTER,
SUBTRACT

~orD

FROM 8

EL.8,CLE,E~B

027203
037176
002021
037176
127176
000000

ADA 1
SlA
JMP OIRe4
ISl DIReS
laz OlRC2
ISZ DIRel
JMP DIReJ
ISZ DIRCM
0lRC4 SSA,Rsa
ISZ OIRCM
JMP OlHeM,l
DIRWO oCT 0

031051
074231
062411
0 6 2 6 13
000iHIJia
000000
000000
000000

OlRDt,. OfF DIREl.
DRUMW oEF ORUML
SAt,.V~ OEF SAL.VG
SlCKW OEF SICK
O~RCl BSS 1
DIRC2 8SS 1
OlRC5 ass 1
DL010 BSS 1

03723~

~y

TEST FOH EQUAL,
NOT EQUAl.-GO RETURN,
BUMP
POINTEHS.
TEST FOR ~lNISHED~
()OU~L.E

ISl ,-OR EQUAL.

ONE lSI If 1.>8
NONE IF Ac8,
T~LLS ~HAT DIRECTORY TRACK
IS IN CORE WH~N FILES IS RUNNING.
DRUM URIVER I..INK

PAGE 0028 #03
Idt45.
0146*
1d147.

k:l14th
0149*
0150*

"LOOK

~OUTINES

THIS ROUTINE IS USED TO G~T A MESSAGE BUFfER FOR
THE DIS, OR URUM ORIVER, THE LINK TO IT IS PASS~O IN
LINKAGE AREA, AND IS STORED ONTO THE SASE pAGE
BEFORE THE SYSTEM IS STARTED UP,
PRIOR TO THAT TIME, THl LOADER USES ITS CWN VERSI0~.

TH~

~151*

0152
1d15J
0154

0155
0156

0151
0158

0159
0160

k:l161
0162

0163
0164

31234

~00000

GM(Jt;

NQP

31235 060306

LOA MSIaICT

31236
31237
31240
31241
31242

CpA ,+5
JMP GMQS,l
lSZ M8.QCT
LOA MSQP3
LOB MSQPJ
AOI::t .+MESLN
CPs MSQNO
Loa MSQSG
STB MSQP3
ISZ GMQB
JMP GMQ8,1

~50J~7

127214

034Jk16

060310
13643Ul
31243 044421
31244 054311

31245 064312
31246 074310
J1247 037234
31250 127234

CHECK FOR MESSAGE BUFfERS ALL
8t-ING usED
NO SKIP SEZ NO SUfFER
INCREMENT COUNl
LOAD CURRENT POINTER
ADVANCE POINT~R FOR
NEXT MESSA~E
CHECK FOR END OF QUEUt.
If END, START UVER

ADVANCE TO

BuFFE~

PRESENT RETURN

RETURN

------'

PAGE 0029 #03
0166.
0167*
0168*
016f~

0110*
0111
01 7 2
(tJ173
0174
0175
10176
0177
0178
0179

DISC

D~lVER

DRIVER

THIS ROUTINE CALLS THE REAL DISK O~lVER, AND WAITS
FOR THE TRANSFER TO BE SUCC~SSFUL~Y COMPLETED,
312 51 000000
31252
31253
31254
31255
31256
31257

11.212
102030
102031
060214
0102020

027255

312610 002003

31261 0J7251
31262 1~7251

lUISC NOP

JSB OISCA,1
HLT 308
HI..T 31b
L.DA MBUSY
SSA
JMP ... 2
8ZA,RSS
ISZ ZOISC
JMP ZOIse,I

COMt HERE FOR DISC T~ANSfER
AND WAIT fOR COMPLETION
CALL NORMAL DRIVtR
ORIVE:.tt BIJSY
DISK NOT PRESENT
WAIT fOR C;CMPLETION
.. 1 SEl 6USY
d SEZ OOMt WITHOUT ERRORS
AOVANCE TO NO ERRORS RETURN
RETURN

PAGE
0181
0182
~183

~0j~ #03

Jl7fH
31701
31702
31703
31704

~TAT~MEN'

000161
1445233
045724

SYNTAX PHUCtSSORS

ORG
DEC
TAPEA DEF
SfR7A DEf
Lw200 ABS
.105

317(C)ld
106

TAPER
SERR7

liH84
0185
153064
.1024iii"USER+2"k1
rH86*
0187** CLEAN UP fOR ~~W PROGRAM ••
0188*
*
101 89 317,,5 Hl3 1 "" ClNUP ClF
rU90 317~6 060354
lDA
SET
0191 317"7 003000
PRUGRAM
CMA
0192 3171t' 110257
AND MAIN,l
MODE TO
0193 31711 170257
'uNCOMPILED'
STA MAIN,l
0194 31712 102HH)
STF

0195

31713 0647 0 2

11)196

31714 075577
31715 0064"0
31716 075575

0197
0198
0199

31717 027743

lOS
STB
CLB
STB
JMP

"PBUfF
SPROG
SYMTS
SYNTl

INSURE CORRECT
START.O~ •• PROGRAM SETTING
INITIALIZE:
ERROR fLAG

0281**
**
0201*** DELETE A PROGRAM STATEMENT ***
0282**
**
8283*
0204* THE STATE~ENT R~FERENCED BY THE: SEQUENCE NUMBER IN
0205*
(6) IS DELET~O,
EXIT TO EXECUTIVE,
0286*
L.OAD SEARCH TERMINATION POINTE.R
0207 31720 060055 IJE.LST LOA PBPTR
0208 31721 015314
JS8 FNUfo'S
SEARCH FOR STATE:MENT
0209 31722 124526
NOT
JMP ACC5A,1
JMP ACC5A,1
fOUND
0210 31 7 23 12 45 2 6
31724 0024~,,()
CL.A
~211
0212 31725 {606004
(8),1 • STATE.ME:NT LE~~TH
INB
0213 J1726 164001
LOAo LENGTH OF OLD STATeMENT
LOB 1,1
OfLElE
"214 31727 015312
JSB DELPR
0215 3173~ 124526
JMP ACC5A,1
S fA r EMEfH
0216*
0217* *******************************
0218****
***
0219*** CHECK SYNTAX OF STATEMeNT ***
0220****
***
0221. ****** •• *******.***************
0222*
0223* PBPTR POINTS TO THE LAST WORD +1 OF THE PREVI0~S PROGRAM ANO

0224*
0225*
0226*
0227*
0228*

0229*
0230*
0231*
0232*
0233*

02J4*
"'235*

THUS ALSO POINTS TO THE FIRST WORD Of AVAILABL.l USER SPACE,
wHERE THE NEw STATEMENT wILL BE TRANSL.ATED. ~HEN AN ERROR
OCCURS UNDER 'TApE' MODE, THE USER'S TERR BIT IN THE fIRST WORD
OF HIS TTY TABL.E IS SET AND HIS COpy OF ERRCT IS 8UMPED, If AN
OUT.OF·STORAGf ERROR OCCURS IN 'TAPE' MODE, SVMTB IS SET TO 1
AND ALL SUBSEQUENT PROGRAM MATeRIAL IS REJECTED. IF UPON ENTRY
THf PRIOR PROGRAM IS NULL, ALL fL.A_8 ARE SET TO NULL, IF THE
PRIOR PROGRAM IS NOT NULL, IT IS PLACED IN 'SOURCE' MODE, SYNTAX
WILL REJECT ADDITIUNAL STATEMENTS IF-FEWER THAN 200 WORDS OF
US~R SPACE ARE AVAILABLE BUT wILL ACC~PT STATEMENT DELETIUNs If
IN 'K~Y' MUOt,

~.,

0236 31731 064056 SYNTX LOS PBPTR
NUL.L.
CPS PBUFF
PHUGRAM1
0237 31732 054702
0238 317J3 027705
yES
JMP CI.NUP
0239 31734 060353
NO, EHRUR
LDA TERR
0240 31735 110257
ANO MAIN,1
FI.A"
0241 31736 002003
SZA,RSS
SET1
0242 31737 027743
JMP SYNT1
NO
0243 31740 002400
CLA
yEs, ERRORS
CPA ERRCT
IMBEDDED IN CODE?
0244 31741 11151576
0245 31742 127702
NO,FINISH ABORTED ERROR CLEANUP
JMP TAPEArI
0246 31743 015464 SYNT1 JS6 SINIT
yES, PREPARE PROGRAM
FOR SyNTAX
0247 31744 015322
JSB DCMPL.
0248 31745 006400
CLa
SET L.INE NU"1BER
STa PBPTR,I
02 4 9 31746 174056
TO ZERO
LOA PBPTR
SET SYNTAX POINTER TO FIRST
0250 31747 060056
STA SBPTR
AVA1LAB~E WORD OF USER SPACE
0251 31750 071514
STA SBUFA
SAVE POINTER TO SYNTAX BUfFER
0252 31751 071620
AND TO
ADA .105
0253 31752 043101
0254 31753 071617
syNTAX STACK
STA SSTAK
0255 31754 071472
STA SYNTQ
0256 317~b 006004
INB
DOES 'OUT U~ STOkAGE'
CPS SYMT8
lRHUR EXIST?
0257 31756 055575
JMP SER7A,I
YE:.S
0258 3 1 707 1277 0 3
J56 GETeR
NO, ~MPTY RECORD?
0259 31760 015450
0260 31761 1245 2 6
YES
.IMP ACC5A,I
JSB BCKSP
NO
0261 31762 015452
8262*
0263** DET~RMINE SEQUENCE ~UMBER **
8264*
8265*
°260* A REtORD CONSIST INS ONLY Of A SEQUENCE NUMSE~ WILL CAUSE THE
0267* DELETION OF A PREVIOUSLY ACCEPTED STATEMENT REFERENCE~ BY THAT
0268* SEQUENCE NUMBER,
8269*
RECORD
JS8 BLoiN
0270 31763 015466
SEQUENt;E
ST8 SBPTR,I
0271 31764 175574
ISZ SBPTR
NUMBER
~272
31765 035574
NUL.L STATEM~NT1
0273 31766 050367
CPA .+1~a
olMP DELST
yES
0274 31767 027720
ISZ SBPTR
NO, SKIP STATEMENT LENGTH WORD
0275 317710 035574
srA SBPTjo(,I
SAVE FIRST CHARACTER
0276 31771 171574
0277 031772 060056
LDA PaPTR
ACCEPTA~I.E AMOUNT
0278 31773 043704
ADA Lw200
OF USER SpACE
11)279 31774 (2102"21
SSA,RSS
HEMAINING1
olsa SERRS,l
NO
0280 31775 115042
0281*
0282** DETERMINE STATEMENT TYPE
0283*
sET MAXIMUM
0284 31776 060361
L.oA • +1
0285 31777 011402
SlA MAXCR
SYMBOL I.ENGTI1
STATEMENT~TY?E NAMES
LOA STTYP
0286 32000 063735
0287 32001 064321
~(NUMiER Of STATfMENl TYPES)
LOB ,.25
olSB TBSRH
FINO STATEMENT TyPE
0288 32002 015246
0289 32(2103 060726
LOA LETOP
NO, ASSUME 'IMPLIED' LET
0290 32004 064341
LOB •• 9
DIsALL.Ow

•
•

.*•
'"

PAGE

0~J2

#03

STATEMENT

0291
0292

320135 077447

0293

075402

0294
0295

0296
0297

0298

0299

32006
3213137
32010
321311
32012
32k113

srB

~64355

006400
1375621
101051

CL.6

STa PFLAG
LSR 9
STA Sf LAG
STA.DFLAG
ADA STBAS
JMP 0,i

0301d 32016 124000
0301*
03133**



SYNTAX

0304.*.

0305*

0306
0307
0308

0J09
0310
03 11

32017 060726
32020 171574
32'1121 015452
32022 ~65574
32023 ~77453
3 2 0 2 4 037447

03 12

32 13 25 01523 0
32026 037453

0314

32027 1326035
32031d 015212
32031 0334j5
32032 1150,,5

13313

0315
0316
031 7
031 8

32033 1315332

0319 32034 t')261d37
",320 32035 ",37453
0321 32036 115045
0322**
0323.** CHECK FOR
0324**

0325

321337 050367

0329***

LETOP
FAKE.
A
saPTR,l
BeKSP
'LET'
SijPTR
LETS
ENABL.E A
SFL.AG
STHIN" V.RIABLE
TURN ON 'MUkT1PLE STORE' MOUE
MSFL.G
FSC
ANAI..YlE fORMULA
SFL.AG
STRIN~ VARIABLE FoUND?
LET1
NO
YES, (8) lS LEfT AT ... 1
SYMCK
DEMAND ASSIGNMENT OPERATOR
ASSOP",,1
SERRS+3,l NOT FOUND
RSTOP
RECORD A S7RING OPERAND
DEMAND E~U uf STATEMENT
l:.OST
UIO A STO~E OC:UR?
SFLAG
LE.T1
SERRS+3,I NO
**
END Of STATEMENT ***
EaST

CPA .+156
END Of STATEMENT?
JMP AceSA,l
yEs
JaB SERRS+4,I NO

**

 SYNTAX

0332*

32042 0024a0

DIMS

tLA

0334*

0335.**
0336*.  SYNTAX
0337.*.
0336*

1d339

32043 071414

0340

32044 077445

0341
0342
0343

32~45

03 44

0345

061574
46
0 7 3453
320

32047 v.J15240
32050 115 0 47
J2~51 °26 0 55

*.
**

LOA
STA
JSB
Loa
STB
ISZ
JSB
lSZ
JMP
JSB
OEF
JSB
JSB
JMP
ISZ
JSB

e3l1.**
0333

**

LET0

0326 32040 124524
0327 32041 115046
0328*

~3J0.*

MUL.TIPLE STORE
SET MAXCR TO MOST
COMMON VAL.U~
rURN OFF
'PARAMETERi MODE
RIGHT JUSTIFY OPERATuR CODE
TURN OFF STRING AND STORE MODES
TURN ON 'SU8S'RIPT' MODE
tiRANeH TO
SYNrAX Io\OUTlNE

LOB
STa

073453
32014 073445
32015 040756

0302.**

PROClSSORS

SYNTA~

STA
BTB
LOA
STA
JSB
JSB
COMS0 JMP

COMS

**

*.

**

••••

*.

CDFLG
DFLAG
S8PTR
SFLAG
VAROP
SERRS+5,I
COMS!

FLAG AS COM STATEMENT
TURN ON 'DIM' MODE ( (6)-0 )
ENAtiL.E ST~ING
VAtU ABL.E
SEEK VARIAtiL£ OPERAND
IMPRUPER SU~SCHIPT
ARRAY OR STHIN~ fOUN~

PAGE 0033 #03
1(1346
ir'347

0346

32052
3 2 053
32054
321t155
32056
32057
32060
32061
32itJ62
32063

STATEMENT SYNTAX PROCESSORS

006400
055414
115047
050361
124524
007400
015272
033363
115050
026045

CLB
CPB COFLG
JSB S~R~S ... 5,I
COMSI CPA .... 15B
JMP ACCSA,l

0349
1t1350
0351
eca
0352
JSB SYMCK
0353
OEF COMMA .. 1
0354
JS8 SERR5+6,I
0355
JMP COM5 ... 2
0356*
0351***
**
0358**  SYNTAX **
8359***
**
1360*
0361 32064 015256 DEFS JSB LTR
0362 32065 115051
JSB SERRS ... 7,1
0363 32066 001727
A1.F,ALF
lOR TEMP+l
0364 32 0 67 031614
CPA FN
0365 320 7 0 0533i'5
0366 32071 002001
RSS
03 67 3201 2 115051
JSB SERRS"'7,I
0368 32073 015256
JSB LTR
036g 32074 115061
Jsa SERRS ... 7,I
0310 32075 06161-4
LOA TEMP+!
0311 3 20 76 06443 6
LDB .58
0372 32077 rrH 5260
JSB STROP
0313 32100 061615
LOA TEMP+2
0374 32101 016?52
JSB LPtK
lOR F1.GBT
0 3 7 5 32102 031036
0376 32103 171574
STA SBPTR,l
0377 32104 015240
JSB VAROP
0378 321rd5 0121"00~
NOP
0379 32106 115052
JSB SERRS ... 8,I
JSB RPCK
0380 32107 015254
eCB
0381 32110 007400
0382 32111 015272
JSB SYMe K
OfF
ASSOP .. 1
033415
0383 32112
SERRS
... 3,I
32113
JaB
0384
115°45
LDA -2
1It385 3211 4 06035121
0386 3211f:J 041574
AOA §SPTR
2
160000
LOA
0,1
038 7 3 116
AND B777
0388 32117 010502
0389 32120 071621
STA PFL.AG
0390 32121 0152310
JSB fSt
0391 32122 015270
JSB SBPUO
03g2 3212J 0261037
JMP EOST
03i3*
0394***
**
0395**  SYNTAX **
0396***
**
0391.
itJ39tJ 32124 065~74 IMAGS LOts saPTR
0399 32125 077457
srB ARYAD
0400 32126 1211216412110
CLa

SlMPI..E VARIABL.E.
'DIM'?
YES .... ERROR
NO, CARRIAG~ RETURN
yE.S

.

~ULLOWS?

NO
CO~MA1

NO
YES

FIRST T"'40
tHA~ACTe.RS

'FN' 1

YES
NO
F01.LOWED BY A LETTER?
NO
YES,
RECORD
FUNCTION
RETRIEVl FOLLOWING ChARACTe.R
DEMAND LEFT PARENTHEsIs
SET FLAG FOR
FORMAL PARAMEtER
DEMAND A SIMPLE VARIABLe.
NONE
FOUND
DEMAND A RI~HT PARENTHESIS
ASSIGNME.NT
OPt-RATOR
NEXT1
NO

YES,

ISOLATE
AND SAVE
FORMAL
P~RAMETER

FETCH DEFI~lNG FORMULA
RECORD ENO.OF_fORMULA oPERATOR
DEMAND END OF STATEMENT

SAVE CURRe.NT
BUFFER POINTER

PAGE id0J4 fHl3

0401
0402
0403
0404
0405
0406
0407
16408
0409
0410
10411
0"1~h

32127
32130
32131
32132
32133
32134
32135
32136
32137
32140
32141

STATEMENT SYNTAX PRUCESSORS

060367
015262
0000010
061614
040752
002021
115HH
163457
041614
17 345 7
124524

LOA
JSa
NOP
LOA
ADA

.+158
CHRST

SET OELIMt.TER
RECORD STRING CONSTANT

TEMP.l
M7J

lENGTH

SSA,RS5
>721
JS6 SERRS+31,I YES
LOA ARYAD,l
NO,

ADA TEM~+1
STA ARYAD,l
JMP ACCSA,1

RECORD
lENGTH

*.

0413***
0414**  & eGO SUB STATEMENT> SYNTAX **
0415 .. **
**
0416*
0417 32142 060224 GOTOS I,.DA SSP
SAVE
0418 32143 064257
LOS MAIN
0419 32144 0100004
BUf-FER
INS
lOR 1,1
1042 0 0$2145 13 0001
0421 32146· 114500
JSB 514SC,1
POINTER
SET INTCK MOO~ TO
CCA
0422 32147 0034010
0423 321510 071422
stA GFLAG
'EXIT ON ERROR'
0424 32151 015244
SEEK 8EQUENCE NUMBER
JaB PRGIN
JMP GOTOl
FOUND
rct425 32152 026212
0426 32153 007400
NOT FOUND
cce
1d427 32154 045574 Goroi ADe S8PTR
BACK UP
0428 32155 0755;'4
SyNTAX ~OlNTfR
aTB SBPTR
ERASt:.
LOA SBP'TR,l
0429 32156 161574
0430 32157 010664
'INTEGER FOL.LOWS'
AND OPMSK
FLAG
STA saPTR,l
"'431 J2161d 171574
L.DA Rep
RESTORE
"'432 32161 060225
0433 32162 064257
LO~ MAIN
16434 32163 006004
SuFfER
INB
0435 32164 130001
lOR 1,1
16436 3:2165 11450a
POINTER
JSB S145C,1
043 7 32166 0152~0
SEEK FORMULA
JSe FSC
CPA ,,+158
END-Of-RECORD?
",436 32161 1d50367
16439 32170 115053
JSb sERRS+9,1 YES
0440 32171 1001727
A&"F,ALF
~O, 00
Nf:.XT
STA TEMP+1
10 4 41 32172 071614
0442 32113 015450
JSB GETeR
TWO
JSB Sf:.RRS+9,I
CHARAcraRS
044 3 32174 115~53
16444
fORM
lOR TEMP+1
32175 031614
I OF t 'I
10445 32176 ",53377
CPA OF
0446 32177 0fd2001
yES
RSS
16447
JSB SERR~5+9, 1 NO
3220113 115053
16448 32201 ~60706
~ECORD
LOA OFOP
0449 32202 171574
s'r A SBPTR'l
'oF' ANI)
10450 32203 015270
AD'VANCE POINTER
JSB SBPUD
0451 32204 01546G GOT02 JSB BlOIN
DEMAND A SEQUENCE NUM~ER
R!COR() IT
0452 32205 175574
ST~ SBPTR,I
16453 32206 01527fJ
J8B SBPUD
0454 32207 05042t>
COMMA NEXT?
CpA .+44
10455 32210 026204
JMP GOT02
YES

PAGE
04 56
0457
0458
ki459
0460
1d461
0462
0463
0464
0465
0466
0467

~035

32211
32212
32213
32214
32215
3221 6
32217
32220
32221
32222
3222J
32224

#03

STATEMENT SYNTAX

026037
1dt>0367
026217
071422
064350
id26154
!d60224
0642S7
!d06004
130001
114500
124524

PROCESSO~S

JMP EOST
GOTO;) CPA .+15B
JMP GOT04
STA GFLAG
L.OB , .. 2
JMP GOTOl
GOT04 L.DA rBP
LOB MAIN
INS
lOR 1,1
JSB S14SC,1
JMP ACCs·,1

it~6~h

NO, DEMAND ENO Of STATEMENT
fND OF STATEMENT?
YES
NO, ~E~ENABLE eAD INTEGER E~ROR
FREf;
SAYEO
BUFFER SPACE
ACCtPl STAT£MENT

*.
.*

0469***
0470**  SYNTAX
0471***
**

0472.
"'473
04 7 4
0475
0476
0477
",478
0479
0480
0481
0482
0483
0484
0485
0486
0487
0488
0489
0491d
0491
0492

32225
3222 6
32227
32230
32231
32232
32233
32234
32235
32236
3 22 37
32240
32241
32242
32243
32244
32245
32246
32247

10493

322~1

0494
0495
0496
0497
0498
0499
0500

32252
32253
32254
3 2 255
3 2 256
32257
32260
32261
32262
32263

0501
05°2
0503
0504
0505
0506
0607
0508
0509
"'51 0

035574
015450

IFS

ISZ
JSB
JSB
SrA
LUA

11SUH
171574
063451
007400
015246
026240
015504
115102
026265
015452
007401d
045574

JSB
JMP
JSB
JSB
JMP
JSB
C(';S
ADS

075~74

STB

077453
015230
037453

21 26265
32251t;l 071614
064347

171574
063736
013246
0020!!Jl

026264

061614
064346
015272
033431
115062
32264 015332
32265 171574
32266 035402
32267 060774
32270 00740'"
32271 015246
0322 7 2 11 5054

eee

STe
JSB

ISZ

JMP
STA
LOB
5TA
LOA
JSB
RSS
JMP
LOA
LOB
JSB
Ot:.F

JS8
JSB
STA
ISZ
LuA

eeB

SBPTR
FETCH NEXT
GETCR
CHARACTER
SERRS+31,1 NONE FOUND
saPTR,l
FOUNO, SAVE IT
AENI)
LOOK
FOR
TBSRH
'END'
IF~
NOT FOUND
FILRF
FOUND, GET FILE REFERENCE
SERRS+J2,1 NONE FOUND
IF1+!
FOUND
BCKSP
RESTORE
TO
SaPTR
ENTRY
SBPTR
STATUS
SFI.AG
ENA~LE STRING VARIABLt:.
FSC
SEEK DECISION FORMULA
SFLAG
STRING VARIABLE FOUND?
IF1+1
NO
TEMP+1
YES, SAVE NEXT CHARACTER
, .. 3
MAXCR • 3 FROM fse
SBPTR,l
MULTl(,;HARACTER
REt...AT~ONAL

MC~EL

OPERATOR?

TBS~H

NO
IFI

n:s

TEMP+l
RETRIEVE CHARACTER
,-4
SlNGI.E CHARJCTER
SYMCK
RELATlONAL
REL.OS.1
OPERATO~1
SERRS+16,I NO
RSTOP
yES, RECORD ASTRIN~ OPtRAND
SSPTR,l
SAVE NEXT CHARACTER
MAXCR
BUMP 1.1MIT TO FOU~ CHARACTERS
ATHEN
LOOK

JSB TBSRM
JSB SERRS+10,1

FO~

'TM~N'

NOT FOUND

PAGE 0036 #03

STATEMENT SyNTAX

~511
32273 ~15244
13512 32274 026037
0513.
051.***

0515**



015~40

PROC~SSURS

SYNTAX

DEMAND A SE~UtN'E NUM8ER
DEMAND END O~ STATEMENT

**
*.**

JSB VAROP

SEEK A SIMPLE VARIABLE
NOP
NONE
JSB SERRS+8,I
FoUND
ceB
DEMAND AN
Jsa SYMCK
ASSIGNMt:NT
Off ASSOP.l
OPERATOR
JSB SERRS"'3,I NOT FOUND
J~B FSC
RECORD lNITIALIZATION FORMULA
ALF,AL.F
DO
STA TEMP.1
Nt::XT
JSB GETeR
TWO
Jsa SERRS+l1,1
CHARACTERS
lOR TEMP ... 1
FORM
CPA TO
'TO' ?
RSS
YES
JSB SERRS"'ll,I NO
I.OA lOOP
RECORD
'TO'
STA SBP rR, 1
JSB FaC
RE'ORD LIMIT fORMULA
CPA .... 158
END Of STATE~ENT1
JMP ACeSA,!
yES
STA SafJTR,l
NO, IS NEXT
ISl MAXCR

0634(1)1
007400
015246
115056
01 5 230
026037

LOA ASTEP

cea

SYMBOL

JSB TBSRH
'STEP' 1
JSB SERRS"'12,1 NO
JSB FSe
YES, RECORD STEP alZ~
EOST
DEMAND
END uf STATEMeNT
JMP

054 7*
0548***
0549.*  SYNTAX **
0550**.
* ..**
0551*
0552 32332 015240 NlXTS JSB VAROP
SEEK SIMPLE VARIABLE
NOP
NOT
V)553 32333 0000~H::)
JSB SERRS+6,I
FOUND
13554 32334 11 5 052
0555 32335 1i)260J7
JMP EOST
DEMAND END OF STATEMeNT
t1550*
0551***
••
0558** ,  SYNTAX
**
t1560***
.. *

0561.
13562 323J6 035574
1d56J
323J7 i'115450
0564 32340 124524
13565 32341 115046

ENOS

ISZ SBPT~
JSB GETeR
JMP ACCSA,I
JSB SERRS+4,I

HECORO NUll OPERAND
END OF STATEMENT?
yES
NO

0566*

0567*·*
**
f6568 ....  SYNTAX
0569 •• *

*.

••

0570*

f6571
0572
fcH573

32342 015270
32343 002400
32344 071266
32345 015450
32346 115057
32347 006404
32350 050425
32351 026400
32352 007400

t:l574
0575
0576
0577
,,578
0579
0580
"'581
0582
0583
0584
0585
0586
0587
0588
0 589
0590
0591
0592
",59 3
0594
0595
0596
0597
0598
0599

32354
32355
32356
32357
32360
32361
32362
323 6 3
32364
32365
32366

0600

32377 026366

3235 3 05 0 427
026400
015276
026373
1150 6 0
064347

045574

160001
031036
1 7 0001
061614
007400

32367 015272
323 7 0 033363

32371 026037

32372 026342
32373 055266

32374 002001
32375 115061
32376 (t'l15334

DATAS JSB SBPUD

INlTIAlIZE
SlA SIGN
SIwN
JS~ GETeR
REQUEST A C~ARACTER
Jsa S£RRS+13,I ENO.OF.INoUT CONDITION
CLB,INS
CPA ,+4"
1
JMP DATA4
YES
cea
NO
CPA ,+45
.,.' 1
JMP DATA4
YES
DATAl JSB NUMCK
NO, NUMBER?
JMP DATA3
NO
JSB SERRS+14,1 BAO EXPONENT
LOij ,-3
NUMBER,
ADB SBPTR
MARK
L.DA 1,1
PREV10U'
lOR FLGaT
OPERATOR AS
STA 1,1
'NUMtiER FOLLOWS'
LOA TEMP+,
RETRIEVE ~OLLOWING CMARAtTER
eCB
eOMMA
JSB SYMCK
OfF COMMAwrl
NEXT?
JMP EOST
NO,'OEMAND ~ND OF STATEMENT
JMp DATAS
YES
DATAJ ePB SIGN
SIGN FOUNO? ( (8) • 0 )
RSS
NO
JSB SERRS+15,I YES
DEMAND A ST~lNG CONSTANT
JSB GETST
JMP OATA2
OATA4 5T6 SIGN
Rt:.CORO SlctN
JSB GETeR
JSij SERRS+15,I ENO.OF.1NPUT CONDITION
JMP DATAl
C~A

'+'

0601 32400 075266
101602 324~1 015450
0603 32402 115"'61
0604 324~3 026355
0685.
/d606**.
"607.* •  SYNTAX
0608.*.

06&9.
0610

0611
",612
0613
0614
0615
101616
.,617

3 2 4 0 4 015502
32405 026 4 13
32406 050367

32407 124524
J241~ 050722
32411 ~26414
32412 115050

J24tlJ fiJ154t52

Rt.ADS JSB
JMP
CpA
JMP
CPA
JMP

.*
••

••

RECRF
READl
,+156

ACCSA,l
673

lNPTS

JSti SERRS+6,1
JSB 8CK8P

READ FROM f!L.l?
NO
YES, PSUEDO ... RESTORE?
Yf.S
NO, 'I' ?
YES

NO

PAGE 01d38 #03

STATE.ME-NT SYNTAX flROCt.,SSQRS

1d619*
0620***

0621**
0622***
062J*
10624 32414 065514 INPTS
0625 32415 077453
k;'I626 32416 015240
0027 32 411' 115(1)3
k;'I628 32420 000000
0629 32421 007 4 00
0630 32422 015272
0631 32423 033363
0632 32424 026037
0633 32425 026414
0634*
0635***
0636** 
06J7***
0638*
0639 32426 015270 PRINS
0640 32427 015450
06 4 1 32430 12 4 524
0642 32431 015546
0643 J2432 026460
k;'I644 32433 050367
0645 32434 124524
",646 324315 007400
0647 32436 015272
0648 32437 033365
0649 3 2 44 0 11511(J4
0650 32441 (1)15270 PRN10
10651 32442 015490
0652 32443 115050
0653 32444 171574
10654 32445 015550
0655 32446 026451
10656 32447 077453
10657 32450 015230
10658 32451 1d50367 JoIRN11
0659 32452 124524
0660 32453 0074e0
0661
32454 015272
0662 32455 ~333t:3
0663 32456 1150e.e
0664 32457 026441
0665 32460 k?15b 0 2 PHN01
0666 32461 026471
16667 32462 007400
0668 32463 075504
0669 32464 050367
0670 32465 124524
0671 32466 050722
0672 32467 026472
0673 320470 11505\?

SYNTAX

**
**
**

LOB SBP1R

STa

SF~AG

ENABLE STRING
VARIAa~t.

JS8 VAROP
SEEK VARIA8Lf OPERAND
JSB SERRS.17,1 NONE FOUND

NOP

cce

JSB
DfF
JMP
JMP

SYMC;K
COMMA",1
EOST
INPTS

SYNTAX

C;OMMA?
~O,

DEMAND END Of STATEMENT

yES

**
**

**

JSe S8PUD

JS8 GETCR
JMP ACCSA,l
JSa USTCK
JMP PRNru
CPA .+158
JMP AceSA,l

cea

ADVANCE SYNTAX 8UFFER POINTER
FETC;H NEXT CMARACTER
NONE FOUND
CMECK FOR USING STATEMENT
NONE fOUND
END OF STATEM€NT1
YES
NU,
SEMI-COLON

Jsa SYMCK
OfF SEMI.1
FO~LOWS1
JSB SERRS+J4,1 NO
JSB S8PUO
AOVANCE SYNTAX ~UFFEH POINTER
FETCH NEXT CMARACTER
Jse GETeR
JS8 SfRRS+6,1 NONE FoUND
SAVE CHARACTER
STA saPTR,1
JSB PFSRH
SEARCH FOR PRlNT FUNCTION
JMP PRNll
FOUNO
ENA8LE STRING JAHIABLE
ST8 sFLAG
FsC
LOOK FOR fO~~ULA
JSB
CpA • + 158
(';AR~IAGE RE TlIHN FoLLOWS?
JMP ACCSA,I
YES
cc;e
NO,
COMMA?
JS8 SYMCK
OfF COMMA"'1
JSB SERRS+6,I NO, fRROR
JMP PRN10
YES
WRITE ONTO fiIi..E?
Jse RECRF
JMP PRIN0_1
NO
eea
'1'£'8, SET
STB Fl~RF
'F'ILE' FLAG
CpA .+lb8
NULL WRITE?
JMP ACCSA,!
YES
CPA B73
NO, I ; I 1
JMP PRIN0
YES
JSB SERRS+6,I NO

PAGE 0039 *03
0674
0675
0676
0677
0678
0679
0680
0681
0682
0683
0684
0685
0686
0687
0688
0689
0690
0691
0692
0693
0694
0695
112696
0697
0698
0699
0700
0701
0702
07 0 3
0704
0 7 05
0706
0707
0708

0709
071111
0711
0712
0713
0714

0715
0716
0717
07 1 8
07 19
0720
0721
0722
0723
0724
0725
0726*

32471
32472
32473
32474
32475
32476
32477
32500
32501
32502
32503
32504
32505
32506
32507
32510
32511
32512
32513
32514
32515
32516
32617
32520
32521
32522
32523
32524
32525
32526
32527
3253",
32531
32532
32533
32534
32535
32536
32537
325413
32541
32542
32543
32544
32545
32b46
32547

STATEMENT SYNTAX PROCESSORS

~15452

015270
0154b0
026552
007400
075621
050414
rc102t301
026520
015334
050367
124524
1307400
075621
050414
026(502
064350
015272
~33363

~06401

026472
175574
015270
035621
1150513
171574

007400
11;1355134
026536
075504
063451
015246
026541
VJ15270

015450
124624
0265~7

015550
026541

026545
016452

007400
045574
075574
077453
°1523111
1a5~361

32550 124524
32551 0265ld7

32552 1a355~4
32553 124524
32554 115044

JaB BCKap

PRIN0 JaB SBPUD
JSB GETeR
JMP PHIN7

eee

8T8 PFLAG
CpA ,+428
RSS

JMP PRIN3
PRIN1 JSB GETST
CPA ,"'108

JMP ACCSA,l

ceB

STB PFLAG

PRIN2 CPA ,+428

JMP PRINt
LOB ,,,2
JSB SYMCK
OEF cOMMA"1
CL.B,RSS
JMP PRIN(r)
STa SBPTR,l

ADVANCE SYNTAX BUFFEk
MORE STATEMENT?
NO
YES, ENABLE
FORMUL.A A"D TAB
" 1
YES

NO
RECORD A STRING tONSTANT
END OF STATEMENT?
YE:.S

NO

" ?

YES

NO
COMMA OR
Sf.Mlc OLON1
NO
YES
ZERO NEXT WORD

JSB SBPUO
PRIN3 1SZ PFLAG
FORMUL.A OR TAB
JSB SERRS+6,I NO
STA S8PTR,l
YES

eea

ISZ
JMp
STa
LOA
JSB
JMP
JaB

JSB
JMP
J/I1P
PRIN. JSB
JMP
JMP
PRINS JaB
eCB

FILRF
PRIN4
FILRF

AENO
TBSRH
PRll~5

SBPUD
GETCR

AceSA,l
PRIN2
PFSRH
PRIN6
PRINS
BCKSP

ADB 8BPTR
STB SBPTR

PRINS STB
JSB
PRIN6 CPA
JMP
JMP

SFLAG
FSt
.+U5B
ACCSA,l
PRIN2
PHIN7 ISZ FILRF
JMP ACCSA,l
JSB Sf.RHs ... a'l

POINT~R

P~RMITTED?

'FILE'

MODE:.?

NO
YES, SET

FL~'

AGAlN

'END' ?
NO
YES
FETCH NEXT
CHARA';TER
SEARCH FOR PRINT FUNCTION
FOUND
NOT FOUND
BACKUP
TO pOINT

FOL.L.OWING

LAS;' OPERATOR
ENABLE STRING VARIABLE
RECORD FORMULA
ENO Of STATEMENT?
yES
NO
'FIL.E' MODE?
NO
ViS

0002·

*.

k1003 •••
0004.*  SYNTAX
0005.*.
.*
0806.
13807 32555 015256 MATS JSB LTR
fIRST TWO
JSB SERRS+18,1 ·CHARACTERS
1d"0t:J 32556 115~64
13009 32557 815266
JSB LETCK
LETTERS?
JMP MATS3
NO
ra01id 32560 026677
18l SBPTR
YES,
0011 32561 035514
0012 32562 001727
ALF,ALf
RETRIEVE
0013 32563 031614
lOR TEMP+l
~lRST CHA~ACTER
k1014 32564 171574
STA SBPTR,I
~OOK
0015 32565 1360357
LOA ,+5
fo~
0016 32566 071402
STA MAxeR
'INPUT',
0817 32567 063443
LOA MATIO
'READ',
0018 32570 064347
LOB ,-3
u~
13019 325 71 015246
JSB T~SRH
'PRINT'
JSB SERRS+18,1 NONE FOUND
0020 32572 115064
0021 32573 050656
CPA PRTOP
IS IT 'PRINT'?
JMP MATS2
yES
0022 32574 026621
0023 32575 053741
CPA INPOP
NO, 'INPUT' 1
0024 32576 026605
JMP MATSlp~
Y~S
0025 32577 1d15502
JSB RECRF
NO, READ fRO~ fILE?
JMP MATS1",3
NO
"'026 32680 026604
13027 32601 050722
CpA B73
yES, ", 1
0028 32602 026605
JMP MATS1.2
yES
Jsa SERRS+6,I NO
1(1029 32603 115050
32604 015452
~0J0
JSB BCKsP
32605 0024~4
0031
C~A,lNA
TURN ON
1tJ032 326130 073445
BTA DFLAG
'MATRIX SUBSCRIPT' MOUE
0033 32687 0152t12 MATS1 JSB ARRID
RECORD AN ARRAY
0034 32610 015232
RECORD SUBSCRIPT
JSa SBSCK
NOP
If PRE SEtH
1tJ035 32611 "'00000
END OF STATE~fNT?
CPA +15B
8",36 32612 0~h,367
kHdJ7
32613 124524
vES
JMP ACCSA,I
0038 32614 0074814
NO,
OEMANl)
ceB
COMMA
JSB SYMCK
0039 32615 015272
OEF COMMA""l
"'040 32616 033363
JS~ SERRS+6,I NOT FOUND
0041 32617 1150'50
8042 32620 0266Bl
JMP MATSI
ADVANCE SYNTAX BUffER POINTER
0043 32621 01527'" MATS2 JSB S8PUO
0044 32 6 22 015450
fETCH NExr CHARACTER
JSB GETCR
0045 32623 1150fi0
JSB sERRS+6,I NONE ,,'OUNt)
CHECK FOR USING STATEMENT
0046 32624 015546
JSB USTCK
NONE FOUND
JMP MATl3
0047 32625 026652
0848 32626 050367
CPA ,+158
CARRIAGE RETU~N ?
JMP ACCSA,I
YES
0049 32627 124524
0058 32630 0074014
cce
SEMI ...
0051 32631 015212
COLON
JSs SYMCK
fo- alLoWS?
0052 32632 033365
OEF SEMI-1
JSB SERRS+J4,1 NO
0053 326J3 1151(14
ADVANCE SYNTAX BUFFER POINTER
0054 32634 015270 MATl2 JSB SBPUO
0055 32635 015450
GETeR
fETCH
NEXT CHARACTER
JSB
JSB SERkS+6,I NONE FOUND
00e6 32636 115050

••

PAGt
0057
0058
0059
0060
1d061
0"'62
0063
0064
0065
0066
0067
!!!Ia68
0069
007fll
0071
0072
0073
01374
0075
0076
0077
01378
0079
0080
0081
0082
0083
01tJ84
01385
01386
01387
14088
0089
14090
0091
1d092
0093
0139 4

1d09!:>
0096
0097
009ti
00 99
0100
011d!
0102
11:)103
0104
0105
01136
01137

010ti
0109
0110
0111

~~41

32637
3264 0
.52641
32642
3 2 643
32644
32645

#04

STATEME~T

171574
015550
1302001
015242
05 0 36 7
124524
0fV7401O

32646 0152i'2

32647
3265r,j
32651
32652
32653
32654
32655
32656
3 2 657
3266fd
32661
32662
32663
32664
32665
32666
32667
32670
32671
32672
32673
32674
32675
32676
32677

033363
1151d50
026634
015502
026671
050722
007401
115050

\175504
015242
050367
124524
0643510
015272
v.l33363

115050
01f)451d
026673
015452
1426660
1015270
1335504
124524
115044
065574
3270~ 077457
32701 061614
32702 171517
32703 0644:3.,

32704 015260
32705 1d61615
32706 00740~
32707 015272
j271~ fj33 4 15
32 7 11 11 5 045
32712 015256
32;13 026763
32714 ~1f5266
32715 026773
32716 035574
32;17 1001727
32720 031614
32721 171574
32722 063442
32723 064345
32724 015246
32725 '.15051

SYNTAX PROCESSORS

STA SBPTR,l
JSB PFSRH
RSS
JSa ARRID
CPA .+15B
JMp AceSA,1
eeB
JSB SYMCK
Df.F COMMA"l
JSB SfRRS ... 6,1
JMP MAT12
MAT!J JSB REeRF
JMP MATll

SAVE CHARACTER
SEARCH FOR PRINT FUNcTION
FOUND
l'(eCQRI) AN ARRAY
CARHIAGE RETURN FOLLUWS?
yt::S

NO,
COMMA?

NO, ERROl'<
yES
wRITE ON FILE?
NO
CpA 873
VES, 'I' ?
cce,RSS
YES
JSB SfRRS+6,I NO
ST8 FILRF
NOTE 'FILE' MODE
MATH? JSB ARRlo
RECORD AN Ar~RAy
CpA .... 15B
END Of STATEMENT?
JMP ACCSA,I
YES
LOB ... 2
NO, DEMANL)
JSB SYMCK
COMMA OR
OfF COMMA-1
SEMICOLON
JSB SERRS ... 6,I NOl FOUND
JSB GETCR
END OF STATEMENT?
JMP .+3
YES
MAll1 JSB BCKSP
NO
JMP MA T1Ir:1
JSB SBfoiUD
UPDATE P01N[ER
lSZ FIL.RF
'FILE' MODf..
JMP ACCSA,I
NO
Yf:.S
JSB SER~S"'2,1
MATS3 t..OB SaPTR
SAVt ADDRESS
ST~ ARYAo
OF ARRAY OPERAND
RECORD
LOA TEMP"'1
STA SSTAK,l
AND SAVE
LOB .... 46
THE ARRAY
JSB STROP
IDENTIFIER
l.DA TEMP+2
RETHIEVE
cet;
NEXT CH/q~ACTER
AND TES1 FOR
JSB SYMCK
OfF ASSOP.1
ASSIG~MENT OPERATOR
JSB SERRS"'3,I NOT FOUND
JSB t..TR
I.e. T TER NE)t 1'1
JMP MATS5
NO
JSB L.fTCK
yES, ANOTHER L.ETTER?
JMP MATS6
NO
lSZ sePTR
YES,
At..F,ALF
CONCATENATE
lOR TEMP ... 1
L~TTERS
AND
STA S8PTR,I
LOA MATFN
Sf.ARCH FOR
t..0B ,_5
At'; ARHAY
JSB T8SRH
FUNCTION
JSB SERRS+7d NONt. FOIJNP

PAGE 0042 #04
IcH12

13113
10114
0115
13116
0117
13118
0119
0120
0121
0122
0123
0124
0125
0126
0127
012 8
0129
0130
~131

0132
0133
0134
0135
0136
0137
0138
0139
0140
0141
0142
0143
0144
~145

0146
~147

0141:5
~149

0150
0151
fd152
0153
0154
0155
~156

0157
01 5 1:5
ItH59

0160
1il161
0162
0163
k1164

13165
0166

32726
32727
3273t'
32731
32732
32733
32734
32735
32736
32737
32740
32741
32742
32743
32744
32745
32746
32747
32750
32751
32752
32753
32754
32755
32756
32757
32760
32761
32762
32763
32764
32765
32766
32767
32770
32771
32772
32773
32774
32775
32 77 6
32777
33000
33001
33002
33003
33"H~4

330fd5
33006
33007
331310
33011
331312
33013
33014

STATEMENT SYNTAX PROClSSURS

001727
001723
030672
007400
045574
1313001
170~01

010502
043744
002021
1326750
015450
124524
006404
077445
1615232
115 0 47

026037
0"2003
171617
015450
115167",
015252
015242
015254
065614
155617
115065
026037
015452
015250
007400
015272
033423
115066
015242
026037
061614
064430
015260
06 16 15
050367
124524
064347
015272
033417
115067
006400
050632
027022
075621
015242
071615
035621
027020

MATS4

MATS5

MATS6

MATS7

ALF,A~F
FOUNU,
ALF,RAR
CONVERT
lOR POFfL
TO OPtRAND
eCB
COM~lNE
ADe SBPTR
~lTH
lOR 1,1
OPERATOR
STA 1,1
AND RECORD
AND B777
'lNV'
ADA 0577
OR
SSA,RSS
'TRN' 1
JMP MATS4
YES
JSB GETCR
NO, END Of STATEMENT?
JMP AceSA,l
YES
CLB,INB
NO, TURN ON
STa DFLAG
'MATRIX SUBSCRIPT' MODE
JSB SBSCK
DEMAND 8uaSCRIPT
JSB SERRS+5,I NONE fOUND
JMP EOST
DEMAND END Of STATEMENT
SZA,RSS
ALLOW INVERSION
STA SSlAK,I
INTO SELf
JIB GETCR
DEMAND
JSB SERRS+22,1 LEFT
JSB ~PCK
PARtN1HESIS
JSB ARRID
DEMAN~ ARRAY
JSB RPCK
otMANO RIGHT PARENTMlSIS
Loe TEMP+1
SAME SOURCE AND
CPB saTAK,I
DESTINATION ARRAYS?
JSB SERRS+l~,l yES
JMP EOST
NO, OEMANU lND OF STA1MENT
Jsa BCKSP
BACK uP AND
JSB GETPF
DEMAND PAHENTHESIZl~ fORMULA
CCB
SEEK
JSB SYMCK
OfF TIMES-1
'.'
JaB SERRS+2~,1 NOT FOUND
JSB ARRID
DEMAND ARRAY
JMP EOST
OEMAND END OF STATEMENT
~OA TEMP+l
RfCORD
LOB ,+46
ARRAY
JS8 STROP
OPERAND
LOA TEMP+2
ENO UF
CPA .+l~B
STATEMENT1
JMP ACCSA,X
yES
LOB •• 3
NO, SEEK
JaB SYMCK
'+', Ie',
OfF P~USwl
UR '.'
JSB SERRS+21,I NOT fOUND
CLB
SET ,., FLAG TO FALSE
CPA MULOP
'.' 1
JMP MATS9
YES
SrB PFLAG
NO
JSB ARRID
DEMAND ARRAY
STA TEMP+2
SAVE CHARACTER
ISl Pf~AG
'.' 1
JMp MATS8
NO

PAGE "043 *04
0167
1d1(jij
0169
017121
0171
0172
0173
0174
01 75
0176

33015
33016
33017
33020
33021
33022
J3023

STATEMENT SYNTAX PROCESSORS

061614
151617
11506:i

1(161615
0~6037

12107400
06HS14

JJ024 151617
33025 11 5 0 155
3312126 1d27010

LOA TEMP+l

yES, DOES ARRAY
MATCH hEFT--HAND SIDE?
CPA SSTAK,l
JSS SERRS+19,1 YES
NO, RETRIEVE CHARACTE~
MATSe L.OA TEMP+2
JMP EOST
DEMAND ENO OF STATEMtNT
MATS9 cca
SET '.' FLAG TO TRUE
DOES ARRAY
L.OA TEMP+1
CPA SSlAK,l
MATCH LEFT.HANO SIDE?
JS8 SERRS+1 9 ,I
JMP MATS7
NO

PAGE

0~44

#04

FORMULA SYNTAX CHECKER

0178*
0179* ••
0180 .... , ON EXIT CAl MULVS THE FIRST CHARACTER NOT
0191* PARSED INTO THE FORMULA, (B) • 0, AND SBPTR,I • 0
16192· (END.OF.FORMULA OP~RATOR), UUNING THE FORMULA PARSE,
0193. SSTAK,I HeLDS THE COUNT OF UNMATCHED LEFT PARENTHESES,
0194* If THE FIRST SYMBOL ENCOUNTERED IS A STRING VARIA~LE,
0195* EXIT TO ERROR If IT IS NOT ENA~LED ELS~ REeURO THE
t1196· VARIABLE AND ANY FOLLOWING SUBStRIPT AND EXIT 10 (P+l)
~lTH THE NEXT CHARACTE~ IN (Al, (8) • • 1, AND 9FLAG • -1,
~197·
0198.
0199 33027 0024~H"
SET LEFT PAkENTHESIS
CLA
0200 33030 171617
STA
COUNT TO ZERO
10201 33031 ",60365
LOA
SET MULTICHARACTt~ SlARCH
TO MAXIMUM OF 3 CHARACTEHS
STA
111202 33032 071402
",203 33033 003400 FSC1 CCA
ENABl.E
0204 j3~34 073455
STA UFLAG
UNARY OPERATORS
16205.
16206.* LOOK FOR AN OP~RA~O
**
0207.
*
0208 J3035 01524~ FSC2 J88 VAROP
SEEK VARIABLt OPERAND
FIRST CHARACTfN NOT A LETTE~
0209 33036 027142
JMP FSC7
0210 33037 027242
SU8SCRIPT~D OR STRING VARIA~LE
JMP FSC13",J
fIl211
33040 015266
JsS LETCK
S~MpLE VAHIABLE.
LETTER NEXT?
10212 33041 027245
JMP FSC13
NO
0213*
'*
10214 •• DOE.S 'AND', 'OR' , 'MAX', OH 'MIN' FOLl.OW
10215 ••
A SIMPLE VARIABLE1
**
02Hh
*
0217 330 4 2 0 64 346
LOB , .. 4
0218 33043 171574
SEARCH FOR
STA SBPTR,I
10219 33044 0604713
'AND', 'OR' ,
LOA MCBOP
JS8 TBSRH
'MAX', ANO 'MIN'
16220 330 45 ~15246
RSS
NONE FOUND
10221 33046 002001
10222 33047 ,,27137
FOUNO
JMP Fsce

••

•

.*

0223*

16224**
0225 ••

SEE IF OPERAND IS A FUNCTION RATHt::R
THAN A SIMPLE VARIABLE,

0226*
0227
022~

0229
10230
0231

0232

33050
33051
33052
33053
33054
33055

061615
1001727
031614
05337e>
027104
171574

L.OA TEMP ... 2
ALF,ALr
lOR TEMP+l
CPA FN
JMP FSC4
STA SBPTR,!

.
**
'*'.

WERE
TwO L.ETTERS
'FN' "
YES
NO,

PAGE
111233
"'234
16235
0236
0237
0218
0239
"'240
111241
0242
"243
0244
1c'1245
0246
0247
0248
16249
"250
1d251
fd252
0253
0254
0255
0256
0257
0258
0259
",260
0261
~262

~045

331356
33057
33060
33001
331362
33063
33064
33065
33000
33067
330710
33071
33072
33073
33074
33075
33076
33077
J3100
33111'1
33102
33103
33104
33105
33106
33107
33110
33111
33112
3311 J
33114
33115
33116
33117
3312(tt
33121

*~4

FORMULA SYNTAX CHEtKEH

060754
1364333
015246
027202
001727
001723
03067~

071614
007400
046574
075574
160"01
010664
031614
171574
061614
053737
027114
064341
077447
015250
021245
015450
115051
015266
115051
040610
001700
1()4 0 371
027065
035574
1d15450
115070
01'252
1d15256
11 5 0 7 2

FSe3

LOA POFNS
LOB ,-15
JSB TBSHH
JMP FStll
ALF,ALF
ALF,RAR
tOR PoFfl.
STA TEMP+1

eea

ADS
ST8
LOA
ANO
lOR
STA
LOA
CPA

SBPTR
SBPTR
1,1
OPMSK
TEMP.!

S8PTR,l
TEMP.l

PREOffilNEO
NO
YES,
BUILD
NAII1E
SAVE FUNCTION
RETRIEVt::
PREVICUS
OPERATOR.
OpERAND
REPLACE
OP~RAND

WITH FUNCTlON

'LEN' ?
YES
NO, TURN OFF
,.9
MSFL.G
fMULTIPL.E STORE' MOOE
GETPF
DEMAND PARENTH$lZED
FSC13
FORMULA
GETCR
DOES
SERRS+7,I
LETTER
LETCK
FOLLow?
SERRS+7,I NO
yES,
0101()
BU1LO
,+17B
FUNCTION
FSCl
NAME
SBPTR
MOVE TO CORRECT PROGRAM WORD
GETCR
REeOHO
SERRS+22,l L.EFT
L.PCK
PARENTHESIS
LTR
LETTER NEXT?
SERHS+24,I NO
,+~~B
YES, FOLLOWEO BY'S' 1
YES
SERRS+24,I NU
TEMP+1
RECORD
,+53B
STRING
ST~OP
VARIAAL.E
GETCR
RECORD
SERRS+23,I RIGHT
RPCK
PARENTHESIS
FSCS

L.ENCN
JMP FSC0

FSC4

LOB
STB
Ja8
JMP
JSB
JSB
JSB
JSB
AOA
ALF
ADA
JMP
ISl
JSB
JSa
JSa
JSB

0263
FSCe
0264
0265
0266
0267
JSB
0268
CPA
0269 33122 050416
RSS
0270 33123 002001
02 71 33124 115072
JS8
L.DA
0272 33125 061<514
1..08
0273 33126 064425
0274 33127 015260
JSB
JSB
"'275 33130 015450
JSB
0276 33131 11 507 1
JSB
"'277 33132 015254
JMP
0278 33133 027162
0279.
*
028".· CHECK FOR LEFl PARENTHESIS ••
0281*
*
0282 33134 060624 FSC5 L.OA LPOP
0283 33135 171574
aTA SBPTR,I
la,4 ;SJ1;S6 1~5617
I'Z saTAK,l
1
FSC6
LOB
,-g
°285 33137 06434
0286 33140 077447
SlB MSFL.G
0287 33141 02703.5
JMP FSCl

RECORD
A '('

COUNT IT

TURN OFf
'MUl.TIPI.E STORE'
MODE

~28ij

3J14~

~289

33143 050422
33144 "'27134
33145 063745
33146 ~27134

ld290
0291
0292
0293.
0294··

~15210

FSC7

CHECK FOR A NUMBER

0300
0301
0302
0303
ld304
0305
0306

0307
0308
1d309

33 1 47
3315'"
33151
33152
33153
33154
33155
33156
33157

0064Att
075266
015276
027165
115060
065574

1('
y~S

1

NO,

'" 1

YES

***
...
cl.a
JMP

044347
160001
031036
11361614
064341
077441

CPA .+40
JMP FSCt)
CPA B13J

SET '+'
AS SIGN
SEEK A NUMBER
FSC9
NOT FOUNO
SERRS+14,I BAD EXPONEN7
saPTR
RETRIEVE
,-3
PRECEDING
1,1
OPERATOR
FLGBT
SET FLAG TO SAY
1,1
NUMBER fOL~O~S
TEMP+1
RETRIEVE CHARACTER
,~9
TURN OfF
MSFLG
'MULTIPLE STORE'

ST8 SIGN
JSB NUMCK

33160 170001
33161
33162
33163
33164

UPDATE POINTER

JMP fSCS

029~.

0296
0297
0298
0299

JS8 S6PUD

FSC8

JSB
LOB
ADS
LOA
lOR
STA
LOA
LDB
SlB

JfI1P FSC13

0272.a5

0310*

MODE

...

1/3311.* CHECK FOR A UNARY OPERATOR **
...
0312*
UNA~V OPERATORS PERMITTEO?
1d313 33165 037455 fSC9 ISZ UF~AG
1d314 33166 115073
JS8 SERRS+2b,1 NO
LOB UN~NC
YES LOAD UNARY MINUS OPCOOE
,,315 331 6 7 067372
ld316 33170 0ok1425
CPA ,+43
1
0317 33171 ~27175
JMP *+4
yES
0318 33172 ld50427
CPA ,+45
NO, ' - ' 1
031 9 33173 ~27176
JMP *+3
YES
0320 33174 11507l
JSB sERRs+25,I NO
0321 J3175 ,,67373
LOB UNP~C
CONVE~T (B) TO UNARY '+' OPCoDE
SIB SBPTR,l
~ECO~D UNARy OPERATOR
0322 33176 175574
0323 33177 ~6434! fsC1~ LOB .-9
TURN OFr
STs
MSFLG
'MULTIPLE S)QRE'
3320"
077447
0324
0325 3J21:11 027035
JMP FSC2
MODE

I.'

0326*
~327**

CHECK POSSIBILITY UF INOT' RATHER THAN
A SIMPLE VA~IABLl

0328*.
0329.
0 33 0 33211'2
0331 332"3
0332 33204
0333 33205
0334 332~6
0335 33 20 7
0336 33210
1d337 33211
1d338 33212
0339 33213
0340 33214
0341 33215
0342 33216

1037455
~27276

161574
01"1727
171574
06 0 474
t.1074 00
01524t6
t.127276
171574
007400
Vl45574
160001

f

SC 11 ISZ

UF~AG

JMP FSC14.1

LOA SBPTR,I
ALF,ALF
STA SBPTR,l
LOA ANUI
eCB
JSB TBSRH
JMP ~SC14-1
alA SBPTR,l

cee

•

**

**
...
INOT' PERMITTED?

NO

YES
St.E/\

'NOT'
'NOT' NOT FOUNfl
FOUND
ERASE.

ADa sBPTR

L,DA 1,1

SPURIOUS

PAGE 0047 *04

FORMULA SYNTAX CHECKEH

0343 33217 010664
AND OPMSK
0344 33220 17"'001
srA 1,1
0345 33221 027177
JMP FSC1"
0346'"
0347** CHECK FOR RIGHT PARENTHE.SIS
0341h
0349 33222 064350 FSC12 LOB ,-2
0350 33223 015272
JSB SYMeK
0351 33224 033377
OEF RPARN.l
0352 33225 027277
JMp FSC14
0353 33226 06121616
LOA RPOP
'1354 33227 17i~74
STA SBPTR,l
0355 33230 060423
l.OA ,+41
0356 33231 007400
cca
0357 33232 145617
ADa SSlAK,1
0358 332J3 12106020
SSB
0359 33234 027277
JMP FSC14
0361r:'1 33235 175617
Sla SSTAK,l
J8B SBPUD
0361 33236 015270
0362 33237 01545B
JSB GETCR
0363 33240 027277
JMP FSC14
0364 33241 027245
JMP FSC13
0365.
1r:'1366** CHECK FOR A ~lNARY OPERATOR
0367.
'1368 332 4 2 001400
eea
0369 33243 057453
CP8 SFLAG
0370 33244 125230
JMP FSC,I
0371 332 4 5 "5 03 67 FSCl3 CPA ,+1f)B
JMP FSC14
0372 33246 027277
0373 33247 073455
STA uFLAG
0374 33250 1tl71614
STA TEMP+1
LD~ ,-7
1tl375 33251 064343
"'376 33252 171574
STA SSPTR,!
0377 33253 060470
L.OA MC"OP
Jse TeSRH
0378 33254 015246
kj379 33255 0fd~001
RSS
0360 33256 027137
JMP FSC6
0381 332 57 106 16 1•
L.OA TEMP .. !
0382 33260 067447
L.OB M$FL.G
0383 33261 0U5272
JSB SYMCK
DEF Pl.US-l
3326 2 1033 4 17
1() 3 84
JMP .+4
16385 33263 027267
0386 33264 053742
CpA ExpOp
16387 33265 027177
JMP FSe10
JMP FSt6
16368 33266 027137
cta
0389 33267 0074016
~390
332716 01&~72
Jse SYMeK
OfF ASSOP.l
0391 33271 03341f)
0392 33272 027222
JMP FSC12
0393 33273 06036~
LOA , .. 2
0394 33274 073453
STA SFL.AG
0395 33275 027033
JMP FSC1

•

OPERAND

..

••
• ,) ,
OR
fl' 1
NO
yES,
RECORD ')'
RETRIEVE )
MATCHING
LEFT

,,

PARENT~t.slS1

NO
YES
UPDATE POINiE~
FETCH NEXT
CHA~Acn.R

•

"'•.

STRING VARIAtH.. E
JUST FOLJND?
YES
NO, ~NO O~ STATEMENT?
YES
NO, DIsABl.E UNARY Opt-RATORS
SAVE CHARACTER
SEARCH
FOR A
MULTICHARACTER
8lNARY OPERATOR
NONE FOUND
FOUND
NO, RECOVER A 'HARACTER
SINGLE
tHARACTt::R
BINARY OPERATOR?
NO

yES,
YES

,t ,

'I

NO
ASSIGNMENT
OPERA"iOR1
NO
YES, SET FLAG
TO SAy
ST.ORE OCCURRED

PAGE

0~4d

#04

fURMULA SYNTAX

0397.
iIlJ9~··

END OF fOHMULA

CHECKt~

.
..

••

0399.
0400 33276 06161~
LOA TEMP+2
RETRIEVE CHARACTER
1G1401 33277 0"'6400 FSC14 C&..B
RE.COHD
0402 33300 17~574
ST8 SBPTR,l
END~OF~FORMULA
0403 3J3~1 155617
CPS SSTAK,l
ALL LEFT PARENTHESES MATCHED?
0404 33302 126230
JMP Fse,l
YES
1G1405 3331G1.3 1151071
JSS SERHS+23,1 NO
0406 ••
0407.** SAVE LOCAL VA~IA~LES OF FSC •••
040~ ••
•
.,409.
1G1410* SAVING MSfLG, UFLAG, VAROP, GETPF, ANU FSC MAKES fSt A
0411· RE~£NTRANT SUBRouTINE, THEY ARE SAVED ON THE SYNTAX
iIl412. STACK BELOW THE ACTIVE SYNTAX BUFfER, ON ENTRY (b)
k:J413. CONTAINS rHE NUMBER OF WORDS TU BE SAYED,
0414.
0415 33304 035617
SAYE PREVIOUS , (' COUNT
lSZ SSTAK
0416 33300 "'45617
ADS SSlAK
SUFFlCIENT
CMS
USER
1G1417 3331G16 007000
k:J41ij 33307 ,,44462
SPACE
ADS
"'419 33311G1 006 1G1 20
sse
LEFT?
0420 33311 115042
JSB SERRS,I
NO
YES, SAVE
LUB MSFLG
1G1421 33312 0 674 47
0422 33313 175611
'MULTIpLE STORE'
STb SSTAK,!
rLA(;;
ISZ SSTAK
1G1423 333 1 4 °35617
1G1424 3.3315 ",67450
SAVE
LOB UFLAGi
0425 33316 1715617
STB SSTAK,!
'UNARY OPERATOk'
1G1426 33317 035617
fLAG
lSZ SSTAK
1G1427 33321G1 061524"
LU8 yAROP
SAyE
iIl428 33321 17 56 17
STa SSlAK,!
VARUP
iIl429 33322 v.l35617
~t:TURN AD:JRESS
ISZ SSTAK
0431G1 33323 065250
SAVE
LoB GETPF
(;;f.TPf
1G1431 33324 175617
ST8 SSTAK,l
0432 33325 ~35617
ISZ SSTAK
RE.TURN ~ODRt:.SS
0433 33326 1il65231d
SAVE
Loa FSC
STB SSTAK,!
Fse
1G1434 33327 175617
0435 .333310 035617
lSZ SSTAK
RETURN ADDRESS
C(';A
DISABLE
0436 33331 j(J1d34klld
1d437 .333.32 11434eJ
ADA SFLAG
Sf LAG
STA SFLAG
VALUE
0438 33.333 073453
0439 33334 125234
JMP FRCUR,l
0440 ••
",*
0441*** RESTORE fse LOCAL VARIABLES •••
0442.·

.*
•

••

0"4~,*

0444*
1d445.
1d446
0447
044ij
0449
~451d

0451

INVERSE OF FRCUR.
33335
J33.36
33337
.33341d
33341
33342

iIl7161~

0615617
044344
075617

Y'J0600 4
160001

(A)

STA
LOB
ADS
5T6
INS
LOA

IS SAVED BUT (S) IS NOT.
TEMP ... !

SAVt. (A)

SSTAK

RESET
SYNTAX STACK
POINTI::.R
REsrUHE
'MULTIPLE STORE'

,-0
SSTAK

PAGE 0049
~452

111453
0454
~455

0456
~457

0458
0459
0460
0461
1.1462
1('1463
0464
0465

33343
33344
33345
33346
33347
333516
33351
33352
33353
33354
JJJ55
33356
33357
33360
33361

.~4

FORMU~A

~73447

0\')6004
160001
td7;'455
006004
1600e1
071240
006004
104200

SyNTAX CHECKER
STA MSFLG

INa

1 1
STA UFL.Ac;
INS

~UA

~OA

1,1
STA VAROP

INS
OLD 1,1

FLAG
RESTORE
'UNARY OPERATOR'
fl..AG

RESTORE
VARQP

Rt.TURN ADURESS

RESTORE GE1PF

1000~1

071250
075230
1d37453

061614

125236

STA '-ETPF

8TB FSC

ISZ SFL.AG
TEMP.!
.IMP FPOP,l
~L>A

RETURN ADDRESS AND
FSC RETURN ADDRESS
RESTORE Sf~AG VALUE
RESTORE CA)

.-

0467**
f(J468*** SINGLE CHARACTER ANDIOR fORMULA OP~RATORS ***
0469**
0470*
0471* ~lTS 15-9 OF THE OCTA~ WORD ARE THE OPERATOR CODE.
0472* BITS 3.0 ARE THE PRECEDENCE FOR FORMUL.A OPER~TORS.
0473. THE AsCII WORD IS usED TO RECOGNIZ~ THE opERATuR ON
0474* INPUT AND TO PROVIOE THE PRINT NAME ON OUTPUT. THE
0475* ORDERING OF THE TA8~E FACIL.ITATES SEARCHING,
0416*
STRING UEL.IMITER
td477 3336 2 0011McHd QUUTE OCT 10(o\')
ASC 1,"
0478 33363 021040
td479 33364 002000 COMMA OCT 21r:J01r:J
COMMA
0480 33365 0261r:J40
AsC 1"
0481 33366 00300r.i SEMI OCT 3000
St.MLCOI..UN
ASC 1"
0 48 2 33367 03544fc'J
ta483 33370 004000 HATCH OCT 41000
HATCH SIGN
0484 33371 ft.l21440
ASC 1,.
1d485 33372 015000 UNMNC OCT 15000
0486 33373 014000 UNPI..C OCT 14tdft.l0
0487 33374 011000 RBOP OCT 110ft.l0
0488 33375 047106 FN
ASC 1,NF
0489 33376 05~117 TO
ASC 1,TO
ASC l,OF
"'490 33377 047506 OF
RIGHT PARENTHESIS
",491 33411)ft.l 0100gJ1 RPARN OCT 10001
a492 33401 02444ft.l
ASC 1 , )
0493 33411)2 011001
RIGHT a~A(KfT
OCT 11001
0494 334fc'J3 056440
ASC 1,)
0495 334",4 012013 L.aRAC OCT 12013
L.EFT 6RACKEl
0496 33405 05544ft.l
ASC 1, t
0497 33406 013013
OCT 13013
L.EFT PARENTHESIS
0498 33407 024040
ASC l ' (
0499 33410 014011
OCT 14011
UNARY p~us
0204410
33411
1,
•
ASC
050'"
UNARY MINUS
OCT 15811
"501 33412 01a0ll
",502 33413 026440
ASC 1, _
",503 33414 016002 seMMA OCT 16W102
SU8SCRIPT SEPARA10R
0504 .33415 \')26040
ASC 1, ,

*-

PAGE.
IOold5
1d506
ra5107
1d50ij
13509
1d510
10511
0512
0513
i6514
13~15

ft)516
1d517
ft)518
0519
1352 0
10521
0522
[3523
0524
0525
1d526
1d527
1052ij
1d529
10530
fd~31

1d532
10533
"'534
0 5 35
ft)536
kl537
1d53"
11539
0540
1d541

VHt:15~

#04

fORMULA SYNTAX CHECKER

33416 01711102
33417 036441d
3342~ 020007
33421 1d2544V)
33422 ",21007
33423 026440
33424 022010
33425 ~2504~
33426 0230H:I
33427 I027441c:'1
33430 ro24~H 2
33431 0f)7040
33432 ~2501t10
33433 037~40
33434 026(/)0f)
33430 036040
33436 027~0ti
33437 1021440
33440 030005
33441 036440
J3442 053512
33443 053431
33444 0320~4
33445 0VJ01000
33446 1033003
33447 000000
33450 034006
33451 11:153420
33452 id35006
33453 \110000'"
33454 (1)3 6 0(15
33455 0~01O~i1
33456 ;,13701,;)5
3.3457 00000id
33461!1 04ft)~05
334bl \153 5 01
33462 ~4HH1

ASSOP OCT
ASC
PLUS OCT
ASC
OCT
ASC
TIMES Oc; T
ASC
OCT
ASC
OCT
ASC
REL.OS OCT
ASC
OCT
ASC

171d~2

1,20lcH17
1, +
21ldkll
1, '"
22010

MATFN
MATlo

ADDl nON
SUIHRACTION
MULTIPLICATION

1,*
23010

1,1
2411'12
1,1'
251c1VJ5
1, >
2601d5
1, <

O<.:T 2701015

Ast
OCT
ASC
Off
OEF
OCT
NOP
O(;;T
NOP
OCT

ASSIGNME:.NT OPt;:RATOR

1,.
300,,5 .

1.>1 VlSlON

EXPONENTIATION
GREA H.R THAf\;
LESS 'THAN
UNEQUAL
EQUAL

1, •

MATFS
10STS
320104

AND

3J003

OR

J4 0 1t)b

MINIMUM

OCT 35006
Sf L.AG NOP
OCT 3 6 010 5
UFl.AG NOP
OCT 370105
AiHAD NOP

MAX1MUM

Of LAG
MSfLG
At-ND

DEF E.OFOp

UNEQUAL
(;REATt;.R TI1AN UR EI"lUAL

oCT 4"",o5

LESS TAAN OR E.QUAL

oCT

NOl

ASTc.P OEF STEP

41011

PAGE

~051

0003**
0004***
0005**
0006.
0007·

0008.
.,.,09*
1d010.
0011*
0012*
f,HJ13*
~~14.

~015*

0016.
1d017.
0018*
0019 ..
kt~2"'.

0021*
~022.

0023.
0~24*
~025.

#05

.-"

SYNTAX SUBROUTINES

SUBSCRIPT SYNTAX

.*.••••

saSCK ASSUMES A PRIOR ARRAY OPERAND REFERENCED THROUGH
THE POINTER ARYAD, ENTRY IS MADE WITH A CHARACTER IN
(A)I EXIT TO (P+l) IF THIS CHARACTl~ IS NOT ' ( I O~ 'I',
OTHERwISE ANALYZE THE SUBSCRiPT WHICH MUST FOLLOw,
EXITIN~ TO (P+2),
SBSCK HAND~ES BOTH SINGLE AND oOUBLt
SUBSCRIPTS, If OFLA~.0 THE SUBSCRIPT IS fROM A
 AND THE BOUNDS MUST BE POSlTL~E
INTEGERS, If OfLAG~1 THE SUBSCRIPT RE.OIMEN310NS A
MATRIX AND A COMMA SEpARATES THE TWO BOUNDS OF A
OOU8LE SUBSCRIPT AND AN ENO.OF-FORMUlA OPE~AfOR
FOLLOWS TH~ LAST BOUND. OTHERWISE A 'SU~SCRIPT'
COMMA SEPARATES THE TWO PARTS OF A DOUBLE SUBSCRIPT
AND NO END.OF.FORMULA OPERATOR APPEARS, IN ALL CASES,
THE ARRAY OPERANO IS MARKED AS ONE. OR TWo-DlMENSIoNAL,
IF THE SUBSCRIPT BELUNGS TO A STRlNG VARIA~LE IN A
, IT MUST HA~E ONE ANO ONLY ONE BOUND
CONSISTING OF A POSITIVE INTEGER NOT ~ARGER ThAN 72,
IN THIS CASE ARYAO hOLDS A DUMMY POINTlR· SINCE STRING
VARIA8LES ARE NUT MAHKEO WITH DIMENSIUNALITY.

0"26.
0027 33463 06435k1
01d28 33464 015212
1d029 33465 1333403
33466 125232
16030
33467 035232
16031
0032 334710 163.57
0033 33. 7 1 04 0 350
0034 33472 173.57
0035 33473 1'c16062~
0036 33474 171574
1d037 33475 037.45
0038 33476 1606404
0039 33477 057.45
1d040 3351d0 027514
0ld41 33501 06436t
0042 335~2 015234
0043 33503 06!S232
0044 33504 175617
0045 33505 1'c135617
004 6 3350 6 °67 45 7
0047 33507 175617
004 8 33511'c1 03561'
0049 33511 06 0 341
0050 33512 073447
0051 33513 015230
16052
33514 007400
0053 33515 0.5617
0054 33516 07 56 17
0055 33517 164001
16056 33520 077457
0057 33521 061445

#S~CK

LOB .""2
JSB SYMCK
OfF L~RAC.1
JMP saseK, I
ISl SB~CK
LOA ARYAD,l
ADA ,"'2
SrA ARyAD,I
LOA LBOP
STA S8PTR,I
I$Z OF~A"
CL.a,INB
CPS OF\..AG
JMP saSC5
lOB ,+7
JSB FRCUR
L.OB saseK
sra SSTAK,I
ISZ SSTAK
LOS ARYAD
ST6 SSTAK,I
ISZ SSTAK
LOA ,,,,9
STA MSFLG
Jsa FSC
cee
ADB ssrAK
STe SSTAK
LOB 1,1
STs ARVAD
LOB DFLAG

t(f
U~

t

l' 'I

NO, RETURN TO (P+l)
YES, SET RETURN TO (P+2)
SET
ARRAY TO
SING\..E DIMENSION
RECORD
, t,
BUMP MAGIC; fLA.
DIM
STATEMENT'i
YES
NO, SAVE Fsr;
L.OCAL VARIAtJLEs
SAVE
Rt:.TURf\:
ADDRESS
SAVE ARRAY
REFERENCE:.
RESERVE SPACE FOR '(' COUNT
TURN OFF 'eTORE
ALL.OwED' ",OOE
DEMAND s.uaSC;HIPT
RESTORE
ARRAY
REFERENCE
'MATRIX SUeSCRIPT'

PAGE 0052 #05
005H
tiH')59

0060
101061
0062
0063
0064
0065
0066
I!llOb7

((.l068
0069
00 7 0
0071
kH:l72
0073
0074
10075
0076
0077
0078
10079
0080
0081
10082
1(;)083
1111084
01385
008 6
0087
0088
0089
~090

0091
0092
0093
IOfd94
10095
0096
((.l097
009H
10099
0UHi:I

0HH
"-1102
0103
0104
1010 5
131136

33522
33523
33524
33525
33526
33527
33530
JJ531
33532
33533
J3534
3J5J5
33536
33537
3354~

33541
33542
33543
33544
33545
33546
33547
33550
33551
33552
33553
3J554
33555
33556
33557
33560
33561
33562
33563
33564
33565
33566
33567
33570
33571
33572
33573
J3574
J3575
33576
33577
336it10
336~1

SYNTAX

054354
v.J27567
007400
015272
033413
027537
137457
i(Hd6404
057440
1027536
~152J'"

0020"1
015244
"''''7400
047445
077445
054353
1315270
054350
1015272
033377
115107 i
063374
17151'4
01527~

0154510
13000013
0"64100
'='157445
125232
007400
045617
075617
16561.7
075232
015236
125232
00740((.l
1315272
033363
1027537
1327530
015244
03745J
1.::l27524
044752
006~21

11511iH~

33602 027537

SU~ROUTrNES

CPB ,+2
JMP SBSC4
SSSCl

~ce

JSe
DEF
JMP
lSZ

SYMCK
SCMMA-!
SBSCJ+l
ARYAD,l

cLa,INB

MOU~1

yES
NO,

S~F-K
'SU~SCHlprt

COMMA
NONE FOUND
SET ARRAY AS DOUBLY-SUBSCRIPTED
DIM
STATEMENT?
YES
NO, DEMAND SECOND SUBSCRIPT

CPB DfLAG
JMP sBse3
JSB FSC
RSS
SBSC3 JS8 PRGIN
DEMAND SECONO ~OUND
eCd
RESTOHE
ADS DFLAG
ORr~INAL
srB DfLAG
DFLAG VALu~
CPS ,+1
'MAT~IX SUBSC~IPT' MuO~1
JSB SBPUD
yES
LOB ,.2
DEMAND
JSB SYMCK
')' OR
DEf RPARN ... 1
'l '
JSB SERRS+2J,1 NOT FOUND
LOA RSOP
RECORD
SlA St:JPTR,l
'l'
JSB SSPUD
UPOATE POINTER
JSB GETCR
fETCH NEXT
NOP
CHARACTeR
CLB
OIM
CPs DFLAG
STATEMENT?
JMP saseK,r
YES
CCB
NO,
ADB SSTAK
RtSTORE
STt:J SSTAK
THE
LOB SSTAK,I
RETURN
STa saSCK
ADDRESS
JSB fPOP
RESTORE FSC
JMP saseK,l
LOCAL VARlAbLES
SdSC4 cea
JSB SYMCK
COMMA?
DEF COMMA-l
JMP SBSC3+l
NO
JMP sBsCl+4
YEs
S~SC5 JSB PRGIN
DEMAND DECLARED BOUND
lSZ SFLAG
STRING VARIABLE?
JMP SBsel
NO
ADB M73
yES, DOES BOUND
SSB,RSS
EXCEED 721
JS~ S£RRS+J0,I
YES
JMP S~S~3+ 1
NO

PAGE

0~53

0108**
0109***
01Uh*
0111.

#05

~ECORO

SYNTAX SU8ROUTINES

ARRAY IOENTIFIER

**

•••

••

ARRAY IDENTIfIER ~EFT IN TEMP.l, ARRAY OPERANO ADORESS
PUT IN ARYAD, EXIT WITH FOLLowiNi CHARACTlR IN TE~P+2
ANL) IN (A),

0112*
0113*

0114*
(U15.

0116
0117
011d
0119

33603 ~15256
33604 115074
33605 065242
33606 ~7533e

0120**
0121.**

#ARID JSB
JaB
LOB
STB

LTH
FETCH IOE~TIFIER
SERRS+20,I NONE FOUNO
ARRlD
SET
STRIO
EXIT

••

RECORO STRING IOENTlFIER

.*

*.*

0122 ••
0123.
0124* STRING IOENTIFIER LEFT IN TEMP+1, SFLAG SET TO .1,
0125* EXIT WITH FOLLOWING CHARACTER IN (Al, EXIT TO ERROR
0126. IF A STqING vARIA8LE IS NOT PERMITTED IN THIs CONTEXT.
0127.
012d 33607 050416 #STRI CPA ,+448
'S' 1
~129
33610 02762kJ
JMP STRI1
YES
LOA saPTR
NO, SET POINTER TO
0130 33611 061574
0131 33612 073457
STA ARYAo
VARIABLE LOCATION
LOA TEMP.1
RECOHD
IU32 33613 061614
LUB •• 56B
ARRAy
0133 33614 064"30
0134 33615 015260
JSB STROP
VARIA8LE
LOA TEMP.2
RETRIEVE FOLLOWING
0135 33616 06UH5
0136 33617 125330
JMP STRIO,I
CHARACTER
STRING VARIABLE
0137 33620 0634&3 STRI1 LOA SFLAG
CPA SBPTR
PERMITTED?
0138 33621 05!574
0139 33622 0034"'1
CCA,RSS
yES
JSB SERRS.27,I NO
0141tJ 33623 11611\75
SlA SFLAG
SET fLAG TO 'STRING OCCURRED'
0141 33624 "'734~3
LOA TEMP.1
RECORD
0142 33625 061614
0143 33626 06442{'
Loa ,+536
SlRING
0144 33627 015260
JSB STROP
VARtABlE
LOA SSTAK
SET POINTER TO DUMMY
0145 336316 06HH7
0146 33631 073457
STA ARYAO
VARIABLE LOCATION
k1147 33632 0154511)
JSB GETCR
FETCH
0148 33633 00000Qi
Nap
NEXT
JMP STRID,I
CHARACTER
k1149 j3634 12533 0
01&0**
01~1.**

RECO~O

A STRING OPERANO

0152*.

16153.
0154*
0155*
0156*
0157*
l()15d
0159
0160
IrH61
0162

••

***

••

DEMAND A STRING VARIA8LE OR A STRIN~ CONSTANT, EXIT
TO ERRoR IF NEITHER IS FOUNO, ELSE EXIT WITH THE NEXT
CHARACTER IN (A),
336J5 061574
3J63t)
33637
33640
..s3641

f1.173453

015240
027644
037453

SBPTR
SFLAG
VAROP
RST01
ISZ SFL.AG

LDA
STA
JSB
JMP

~EEK

STRING
OPERANO
1ST CHARACT~R Nor A LETTER
STRING VARIABLE?

PAGE
0163

~054

#~5

SYNTAX

SU~ROUTINES

3J642 115076

J58 SERf SYNTAX
0264.**
0265.

0266

J4ftl07 015450

0267
0268
0269
0270

34010 026014
34011 12115452
34012 015244
34013 126006
34014 035574

0271
10272
0273.

34((Jl~

124524

RSTRS JSB
JMP
JSS
JSB
JMP
RSTRl ISZ
JMP

••
*.
••

GETeR
RSTH1
BCKSP
PRGIN
EOSTA,I
SSPTR
ACCSA,I

ENO OF STATEMENT?
YES
NO, VfMANO
SEQUENCE NUMBER
DEMANO END OF STATEMf~T
RECO~() DUMMY OPERAND

0274* ••

 SYNTAX ••
k1276.·*
'11277.
02 78 34016 ~02401 fILES CLA,RSS
'11279.
0275..

*.

0280*··
0281*.  SYNTAX ••
0282 •• *
••
0283.
028 4 34017 °6°367 HEMS LDA .+lf1S
CL.B,INS
0285 34020 006404
JSB CHRST
id286 3412121 015262
JMP ACCSA,I
0287 34022 124 5 24
0288.'1,,*

 SYNTAX

~289.*

0299
~300

3412123 015332

34024
34025
34026
34027
34030
J4eJl
34032

""7400
0152,2
033363
126006
006400
17600J
\115230
34 0 33 12 6006

DUMMY STATEMENT TERMINATOR
Iff CHARACTER FLAG TO 'lOW hALF'
RECORD ~fMA1NDER OF STATEMENT
AS A STtUNG

••

JSB RSTOP

eta

JSB
Off
JMP
CLB
STS
JSB
JMP

SYMtK
COMMA-I
EOSTA,l
SFL.GA,1
FSC
EOSTA,!

0311.
0302...

REQUEST STRING OPERAND
COMMA FOL.L.OWS?
A COMMA?
NO, DEMAND fND-OF.STATEMENT
OISALL.OW
STRING VMHABLf;:S
GET A FORMULA FOR LINE NO,
DEMAND END~UF.STATEMtNT

••

cENTER STATEMENT> SYNTAX

~30J.*

~LANKS

••

0290.*.
0291.

((J292
0293
029 4
02 9 5
0296
0297
0298

SUPPRESS

03004.*.
0305.
~J06

34034

03'117
((J308

34035 1151°5
34036 ~35574

01~451t)

••

••

ENTRS J8B GETCR
FETCH FIRST CHARACTER
JSB SERRS+35,I NONE FOUND
ISZ SBPTR

PAGE
k1309
0310
\1311
~J12

0313
03 1 4
0315
0316

0317
~318

0319
fd320
0321
0322
0323
0324
\1325
0326
0327
0328
k'.l329
0330
0331
k1332
k'.l333
0334
0335
0336
0337
k1338
0339
"'340
0341
0342
0343
0344
\1345
k)346
0347.

w~58

34"'37
34040
34041
3 4 042
34043
34044
34/()45
34046
34047
34051()
J4051
34052
.34053
34054
J4055
34055
34056
34057
34/()60
34061
34061
J4\162
34063
34064
34065
34066
34067
34070
34071
J4k'.l72

#~5

STATEMENT

00740ft)
015272
033367
02 6 055
015240
115105
01(10000
050367
02()3~7

007400
015272
113336J

11505ft]
026061
~15452

cce

fIRST CHARACTER A '#'?
JSB SYMCK
OEF HATCH .. 1
JMP ENTRl
NO
JSS VAROP
yES, SEEK SIM~lE VARIA8LE
JSB SERRS"'35,1 .. ~ONE FOUND
NQP

CPA • "'158
JMP ACCST
CC8
JS8 SYMeK
OfF COMMA .. 1
JSB SE.RRS+6,1
JMP ENTR2
E-.NTR1 EQU •
JS8 BCKSP

eca

V14~574

ADS sBPTR
STa SBPTR
ENTR2 EQU *
JSB FSC

075574
015230
~07401!)

(,;11 6272
~3336J

1150fH1
01524~

115105
0130 130 If.l

34077 01524~
34100 115105
013~000

3 4 1i1j2 12600 6

eea

0352

34103 115103

8ACKUP ONE CHARACTER
BuFFER
P(JINTER
DEMAND A fORMULA

VARIA~lE

ecs

JaB SYMCK

COMMA FOlL.OWS?
DEF COMMA-1
JaB SERRS+6,I NO
YES, ENABLE
LOB SBPTR
ST8 SFLGA,l
STRING VARIABLE.
SEEK VARIABLE OPERAND
JaB VAROP
JS8 SERRS+J5,1 NONE fOUN~
NUP
OEMNAO END.Or.STATEMENT
JMP EoalA,l

0350 •••

0363*

NO

COMMA FOLlOWS1
J8a SYMCK
Off COf-lMA-l
JSB sEHRS+6,I NO
DEMAND A sIMpLE
JSB VAROP
Ja8 SERRS+J5,I NONE FOUND
NOP

 SYNTAX

0351.

CR FOllOWS?
yES, ACCE.PT STATMENT
NO
COMMA?

RESTo~E

0348 •••

0349..

PROClSSORS

(,;107400

00741613
1315272
34~73 033363
34074 115135(,;1
34075 065514
340 76 1](,003
34HH

SYNT~X

US1NS JSB

.*

**

••

SERRS+JJ,l

*.*.

••

USING

lLL.~GAl

Id35 ... ••
fd35S..  SYNTAX
0356...
0357.
0J58 34104 015332
J8B RS10P
035 9 341k15 007401(1
eea
RECORD
0360 34106 015272
JSB SYMCK
DEF COMMA,..1
\1361 34107 1333363
A COMMA
0362 34110 115050
JSB SfRRS.b,I NOT A COMMA
\1363 34111 064354
LOB ,+2
DlSABLE

AS fIRST wORO

PAGE 0059 #05
0364
0365
fd366
0367
0368
0369
0370
0371
0372
0373
03, 4
0375
0376
0317
0318

34112
34113
34114
34115
3 4 11 6
34111
34120
34121
34122
34123
34124
34125
341 2 6
34127
34130

STATEMENT SYNTAX

176003
015230
007400
01e 2 72
033J63
115050
015240
115105

000000
007400
1rJ1 52 7 2
033363
002001
015332
126006

PROCESSO~S

SFI.."A,I
J8B FSt

STti

ASNS4

cca

STRINi
RECORD

VAtotlM~I..E
FOH~UI..A

JSB SYMCK
RECORD
A COMMA
DEF COMMA""1
JaB SERRS+6,I NOT A COMMA
SEEK A NUMERIC OPERAN!)
J8B VAReP
NONE FOUND
JSB SERRS+35,1
NOP

cea

JSB
OfF
HSS
JSB
JMP

SYMCK
COMMA-1

COMMA

RSTOP
E08TA,1

DEMAND A STRING OPERAND
DEMAND fNO.Of.STATEMf~T

NEXT?

PAGE 0060 #05
0380**
0J81***

SEEK A

9yNTAX

.SU~ROUTINtS

VARIA~LE

OPERAND

~382**

038J.
"'384*
(d385.
",386*
0387*
0388*
~389*

0390.
0J91.
",392·
0393.
",394*
~395.

0396.
",397*

0J9S.

VAROP SCANS fO~ AND RECORDS A VAkIA8LE OPERANO, IF
THE FIRST CMA~ACT~R IS NOT A LETTER, ~XIT IS TO (P+l)
~ITM THE CHARACTE~ IN (A),
OlHERW1SE A VARIABLE
OpERAND IS RECURDEU AND UpON EXIT (A) CONTAINS THE
FOLLOWING CHARACTER, EXIT IS TO (P+2) AfTER FINDING
AN A~~AY OR STRING VARIABLE ALUNG WITH ANY fOLLOWING
SU8SC RIPT, IF A STRING VARIABLE IS fOuND ANU SFLAG •
SBPTR, SET Sf LAG • • 11 If SFLAG # SeP1R, NO STRING
VARIABLE IS PERMITTED AT THIS POINT. tXIT TU E~RUR.
AFTER fINDING A SIMPLE YARIABLE EXIT TO (P+3) ~lTH
TEMP+2 - CA) AND THE LAST CHARACTER OF THE SIMfLE
VARIABLE IN TEMP+1, ,F INSIDE A 71575
344166 054356
34407 115146
344116 060364
34411 015454
34412 124b14
34413 064257
34414 006004
34415 160001
34416 03~242
34417 114500
34420 124514

JMP ACCS6
YES
L.OB SYMTB
NO
STA SYMTB
RElfT UNDER/OVERFL.OW FLA~
CPS ,+4
UNDER/OVERFLOW ERROR(S)?
RERRS+32,1
yES
JSB
NO,
LOA ,+126.
JSB OUltR
OUTPUT A
JMP seHEN,l
L.INE FEED
ACCS6 LOS MAIN
ALLOW
INB
LDA 1,1
MORE
lOR AL.I
JSB S14SC,1
INPUT
JMP SCHEN,l

*.

01601**

16002*** FIND A STATEMENT,S SEQUENTIAL POSITION .**
0a03.*
**
080 ••.
0005* UPON ENTRY (A) POINTS TO THE LAST WORD+1 OF TH~ P~OGRAM
0006* AND (6) HOL.DS A SEQUENCE NUMBER, IF (ij) IS L.ARGE~ THAN
0007* ANY SEQUENCE NUMBER IN THE PRoGRAM, EXIT TO (p+1) WITH
0008. (6) POINTING TO THE L.AST WORD+1 OF THE PROGRAM, IF (6)
0009* FALLS BETWEEN TWO SEQUENCE NUMBERS, EXIT TO (P+2) wITH
0010*
(6) POINTING TO THE STATEMENT WITH A LARGER eEQUENCE
IF A STATEMENT IN THE PROGRAM HAS T~E SEQUENCE
0011* NUMBER.

0012*
iHU3*
0014*
1601~h

NUMBER IN (B),

.116.
0017 34421 ,,715614
0018
0019
0020
16021
0022
16023

J4422
34423
34424
34425
34426
34427
34430

0025
0026
0027
0028
0029
0030
0031
0032
161633
0034

34431 002003

0024

0035
0036
0037
0038
0039

0040
0041

~XIT

ST~TEMENT (If IT IS
TYPE • ~, DECREMENT
~ (B) UPON EXI1,

1671616

065577

0~H56! 6

026466
160001
003 0 04
041614

34432 026443
34433 0°2 0 2"
34434 0264lC)O
34435 060001
J4436 002004
34437 16000"
03 4 4 4 0 0 44 000
344"1 01S556
34442 0264124
34443 060001
34444 040354
34445 160'''''tl
34446 010664
34447 002002
34450 0ti6464

34451 003400

TO cP+J) WITH (S) POINTING TO THIS
AN EMBEODED ERROR MESSAGE, STATEMENT
THE ERROR COUNT). IN ALL CASES TEMP+l

*f'DP! ST6 TEMP+1
STA TEMP.3
LOB SPROG
FNI) P l cpa TEMP+J
JMP FNOp3+2
LOA 1,1
CMA,INA
ADA TEMP.l
SZA,RSS
JMP FNOP2
SSA
JMP FNOP3+1
LDA 1:3
INA
LOA
ADS
JSB
JMP
FNOP2 LOA
ADA .+2
LOA 0,1
AND OPMSK

8IA

JMP FNDPJ
tCA

SAVE TE3T SEQUENCE NUMBER
SAVE TERMINATION POINTER
START WITH FIRST WORI) OF PROGRAM
PROGRAM EXHAUSTEO?
YES, EXIT TO (P+l)
NO, 18
PROfiRAM
SEQUfNCf NUMBER
THE SAME?
YES' EXIT TO (P+3)
NO, iREATER?
yES, ExIT TO (P+2)
NO, ~HE;:;K
STATEh1fNT
LENGTH AND
SET (8) TO
POINT TO NEXl
STATEMENT
LOAD
STATEMENT
ERROR
NO

STATEMENT?

yt:.s,

0042 34452 041576
Df:.CHEMENT
ADA EHRCT
STA ERRCT
flJ043 34453 071576
ERROR COUNT
kiki44 34454 002002
SZA
ONL.Y ~RROH1
0045 34455 1CJ26464
NO
JMP FNDP3
Ct",F o
0046 34456 H13100
YES",.,.
0047 34457 06035J
~OA TERN
SET FL.AG
CMA
0048 34460 003000
ki049 34461 1102:-;7
TO SAY
AND MAIN,1
0050 34462 170257
'NO EMBEDDED EHROHS'
STA MAIN,!
0051 34463 Ild2100
S1F
0052 34464 035314 FNDP3 ISZ FNDPS
0053 34465 035314
18Z FNDPS
SAVE POINTER TO
S1S TEMt>+1
005 4 344 66 "'75614
JMP FNt)PS,1
FINAL STATf.~fNT SEEN
0055 34467 125314
0056**
**
0057*** FETCH PARENTH~SlZEO FORMU~A ***
0058.*
**
0059.
006°* AN END~OF~FOHMULA OPERATOR FOLLO~S THE FORMU~A
0061*
SAVE fSC
ki062 34410 1064357 #GTPF L.OB ,+5
LO~AL VARIA~LES
JSB rRCUR
0063 34471 015234
UPOATt POINTER
JSB SBPUO
0064 34472 015270
0065 34473 015450
JSB GETeR
FROG~AM

COUNTER

TELL 2114
lHAT US£:.R
I SRUNt'UN"
PROGRAM
UNCOMPILED?
YES
NO, COMPILEO'j
YES
NO, MUST tiE SEMI-COMPILlD
ASSIGN

STAT£ME~T

YES, FAKE

SEMI~COMPILtO

•

5T,..

"

SEEN?

NO

SET
PROGRAM MOOE'
TO 'COMPILED'

PROGRAM

~------

PAGE a079 #07
0090..
0091.**
0092.*

009J.
"094*

1a09S.
0096*
0097.
~098.

0099.
~100*

"101*

"'102.
0103.

0104*
1"105*
010 6 *
Idle7.
0UHh

0109*
",110*

0111 •

"'112.

COMPILATION AND OECOMPI~ATI0N
••

HUILO THE

SYMBO~

TA6~E

.**
*.

THE PROGRAM IS EXAMINED STATEMENT 6Y STATEMENT, A~L
VARIABLE QPEHANDS AR~ REPLACED BY POINTERS (RELA11VE
TO THE START Of THE SYM80~ TABLE) TO TWO WORD ENTRIES.
SYMBOL TAB~E ENTRIES KEEP THE SyMBOL IN THE FIRST wORU
AND INfORMATION IN THE SECOND, FOR FUNCTIUNS THE
SECONO WORD CONTAINS A POINTER TO THE DEfINING FORMULA
(0 BEFORE FINDING THE «DEF STATEMENT». fOR SIMPLE
VARIABLES THE SECOND WORD 18 USED TO FORM A LINKlD LIST
OF UNMATCHED FO~.VARIABLES (OTHERWISE IT IS e) WITH
FLINK pOINTING TO THE INNERMOST NESTED FOHwV~RIA~LE.
If THE SIMPLE VAHIABLE APPEARS IN A 
THE SECOND WORO IS SET 10 wi. fOR ARRAY AND STRING
VARIABLES THE SECOND WORD IS ~ UNLESS THE VARIABLE
APPEARS IN A , IN WHICH CASE IT
pOINTS TO TH~ OIMENSIONS IN TH~ CODE, OH IT AppEARS
IN A , IN WHICH CASE IT IS THE
N~GATION OF A POINTER TO THE DIMENSIONS.
PROGRAM INTEGERS ARE REPLACEO BY A POINTER TO THE
STATEMENT THEY HEFERENCE. UN EXIT TO VALUE OR OCMPL,
SPTR POINTS TO THE FIRST WORO NOT PROCES~EO.

0113*
0114.
id115 J 6 101 064056
0116 36102 015515

LOB PBfolTR
STB SYMT8

CREATE POINlER
TO SYMBOL TABLE

fU17·
id118. COUNT NUMBER Of STATEMENTS IN PHOGRAM

0119*
0120

"'121
01"22
0123

0124
0125
"'126
0127

icJ128
0129
IiH30
0131

icJ132
icJ133
0134
lr)1l5

icJ136
01 37
icJ138

--

3611(1J 0024~4
J6104 065077
36105 006004
36106 14401'11
36107 044351
36110 054056
36111
36112
3tH 13
36114

02611 4

002004
icJ26UI5
00644 00
36115 100400
36116 icJ"'0412
36111 001080
3 6 12 0 002003
3 61 21 006004
36122 00200 4
36123 071621
36124 075615
3 6 125 064544
36126 075610

CLA,INA
LOB SPROG
INB
ADa 1,1
ADB
cpa PBP1R
JMP CMPd2
INA
JMP CMP01
CMP02 CLa
OIV ,+32

.-1

tM8

SZA,RSS

INITIALiZE

~TATEMENT

COUNTlR

MOVE 10
NEXT

aTATE~ENT

DONE?
vf.s
NO""",SUMP COUNTER
DIVIDE # OF STATEMENTS
INTO 32 PARTS
8£1'1-1-' Of OVERlllt GROUPS,
BUT If <32 STAIEME~lS USE .#

11'48

INA
STA STCTl
STB STCT2
Ll.)b ERSCA
STa NUMPT

SET A TO SIZE OF
SfT COUNT~R

LAR~ER

SET POINTER To TABLE

GROUP

PAGE 0080

#~l

COMPILATIUN ANO

D~CO~PILATIUN

~140·

0141* BUILD A TABLE OF 64 WORDS, THe fIRST J2 CONTAIN THE SEQUENCE
~142. NuMBERS OF STATEMNTS wHICH DIVIDE THE PROGRAM INTO 32 ALMOsr
1d143. EQUAL PARTS, TH~ SECOND 32 WORDS ARE ThE AB~OLUTE ADDHfSSts
0144. OF THlSl STATEMtNTS
161 .. 5.
0146 36127 061577
1..0A SPROG
0147 36130 044412 CHP03 AOS ,+32
0148 36131 17td001
STA 1,1
SET ABSOLUTE ADDRESS INTO TABLt
0149 36132 1640.,0
LOS 0,1
SET SEQUENCE. INTO TAsLE
0150 36 133 1756,,,
srs NUMPT,I
!d151 36134 035610
ISl NUMPT
sUMP POINTERS
0152 36135035615
TEST FOR ANY MORE
18Z STCT2
!d15J 36136 006401
eI..B,RSS
OVERSIzE GROUPS
IcH54 36137 007400
eee
COMPUTE sIZE OF NlXT GROUP
0155 36140 1645621
ADS STCTI
0156 36141 075621
srs STell
0157 36142 007000
CMS
STS STCTl
0158 36143 v.l75616
1.1159
LOB NUMPT
TEST FOR DONE
3 6 144 ~65610
CPB ERaJ2
0160 3 6 145 054644
0161 36146 026155
JMP CMP04
COMPUTE FlRST STATEMENT
1d162 3 6 147 035616
lSZ STCTl
0163

36150 002005

INA,RSS

0164

36151 026130
36152 1401600
36153 040351
3 6 154 ~26147

JMP CMPk23

36155 002404

·CMP04 CI..A, INA
STA FI.INt<
JaB PRNST
OEF C;MP 11
SEZ,RSS
JMP CMPL3

0165
1.1166

10167
IU6S.

0169
"'170
0171

36156 0712J4
36157 015324

0172
017 3

36161 002041

36160 036405

ADA ~,I
ADA ,-1

JMP

._!)

1d174 3 6 1 6 2 026240
0175.
(c:!l7b** PROCESS NON.VA~lABLE OPERAND
0177*
0178

0179
0180
~181

0182

36163 040346
3 6 1 64 ~k22021

36165 ~2670J
36166 03523ftj
36167 0652J0

0185
0186
0187
0188

J6170
36171
36172
36173
36174
3617ti

"'189

36176

0183
01 84

0190

0191
10192

0193
0194

055236

0264{.1f)
064544

160001
003"0",
141230
0~2"'24

36177 1326207
36200 006004
36201 054644
36202 0\1200,
362~3

~26113

IN NExT GROUP

ADA ,-4
S5A,RSS
JMP PRNS2
CMPLl ISZ SPTR
LOB SPTR
CPB NSPTR
JMP CMP11
LDB ERSCA
CMP05 LDA 1,1
CMA
ADA SPTR,I
SSA,INA
JMP eMP06
INS
CPB E:RS32
RSS
JMP CMP05

.

SET fOR.QUEUE TU EMPTY
INITIALIZe.
COMPII..ATION
WAS fLAG dIT SET1
NO

**

*PROGRAM
INTEGER?
NO, MUST ~E A PARAMETER
YES, MOVE
TO NEXT WORD
STATEMENT fINISHED?
YES
BEGIN sEAHCH FOR REFERNECED SfMT
FIRST STATEMENT •• SOuGHT STATE,?

FOUND ONE
TEST

'-'O~

DON~

PAGE 16081 #07
13195

10196
01 9 7
[d19S
0199
0200
0201
0202
0203
16204
0205
0206
0207
16208
0209
0210
0211
0212
10213
0214
0215
16216
0217
1d21S

0219
0220
0221
0222
r422J*

0224 ••

~OMPI~ATION

36204 ,,44411
36205 061575
3620 6 02621 6

36207 044412
36210 002003
36211 02f)231

36212
36213
36214
36216

054644

1626236
160001
i644351
36216 164 001
36217 011621
36220 1612J0
36221 006004
36222 144001
36223 ,,44351
36224 055621
36225 02fj236
36226 15160kJ1
36227 026?32
36230 026221
36231 164001
36232 175230
362J3 035552
36234 026166
362J5 02 67 03
36236 015322
36237 115106

PROCESS

0227
kJ22S
0229
0230

0231
1tJ232
0233
1d2J4
0235

0236
0237
1d2JS

023g
16 2 40

0241

16242
0243
16244
16245
0246
0247
024a

0249

36240 011~13
36241 010371
36242 050371
36243 026327
36244 00200J
3 6 245 026351t)
36246 040346
36247 002020
036250 026353
36251 0!5316
3b2t)2 035230
36253 ro54742
36254 1r126320
36255 055775
3 6 2 56 02 6 j01
36257 0546~6

36260 002001
36261 026704
36262
36263
36264
36265

OECOMPI~ATION

ADB ,+31
I,..OA SYMTB
JMP CMP07

065234
006020

007004

055614

36266 026271
J6267 015322

STATEMENT la IN LAST

ADS ,+32

SlA,RSS
JMP CMP09
CPS ERSJ2
JMp CMPL.2
L.DA 1,1
ADS .-1
~OS 1,1
STA STCTl
L.DA SPTH,l
CMP08 INS
ADe 1,1
ADB .-1
CPB STeTl
JMp CMpL.2
CPA 1'1
JMP CMPIiH~+ 1
.,lMP CMPk)8
CMP09 l,.DB 1'1
STtS SPTH,l
ISZ INFST
.,lMP CMPL.l
JMP PRNS2
CMPL2 JSB DCMPl.
JSB RERRS,l

VARIAij~E OP~RAND

0225*

i6226

AND

•

~ROUP

ij-> fIRST STATEMNT IN GROUP
TEST fOR FOUND

TEST fO~ NOT THERE
ERROR
SET A.> fIRST WORD BEYOND GROUP
SAVE END TEST
SEQUEN~f NUMBER
BUMP STATEMENT POINTt~
~ET

TE8T FOR DONE.
NoT fOUND~~ERROR
TEST FOP fOUND

l,.ABE~

INTEFER
IN 'USIN'· STAT~MENT1
NO
YES
DECOMPILE
NONeixISTfNl STATEMENT
FOUNU.~REP~ACE

NUM~ER

••

•

CMPL3 STA STMP1
AND .+178
CPA .+17B
JMP CMPI..6
SZA,RSS
JMP CMPl..g"3
ADA
SSA
JMP CMPL,9
JSB 8SYMT
lSI SPTR
CPB COHOP
JMP CHP41
CPB FOROP
JMP CMPI..4
CPS ~XTOP
RSS
JMP flRNS2+1
LOB FLINK

._4

sse

CMB,INEi
CPS STMP2
JMp ,*+3
JSB OCMpL

SAVE SYMBOL.
fUNCTION?
YES
NO, STRIN~ VARIA~I..E1
YES
NO,
ARRAy?
YES
NO, CUMPIL.E
SIMPL.E VARIABL.E
'COM'"
yES
NO, FOR~VARIABL.E Of 'fO~'1
YES
NO, fOR.VARIABLE Of 'NEXT' 1

YEs

NO

MAKE
POSITIVt.
MATCH I..ATfSl  1
yES
NO, DECOMpILE

13250
1d251
0252
0253
0254
10255
0256

10257
0258
025 9
0260
0261
0262
0263
0264
0265
10266
0267
0268
0269
0270
0271
0272
1d273
0274
0275
10276
0277
0278
0279
10280
0281
0282
0263
0284
!d265
0286
0287
0288
0289
0290
02Q1
0292
0293
1/j2 9 4
0295
0296
0297
02 9 8
1i1299
0300
0301
03 02
0.303
1/j304

36270
36271
J6272
36273
36274
36275
36276
36277
36300
36301
36302
3631d3
363104
36305
36306
36307
36310
36311
36312
36313
36314
36315
36316
36317
363210
36321
36322
36323
36324
36325
0$6326
36327
36330
36331
36332
36333
36334
36335
36336
0$6337
36340
3 6 341
36342
36343
36344
36345
0$6346
36347
363510
36351
36352
36353
0$6354
36355
36356

115107
065234
161614
10712.34
10061020
007401
0064014
175614
026704
161614
1002002

CMPL4

0020~7

026307
015322
115110
1d65614
161614
002020

CMPL5

007~04

061234
171614
075234
10352·40
02 6 716 4
061614
164000
006002
026403
01074010
1741d01d
026704
fill 5316
055774
0102001
0267,,3
165614
006002
026345
1061614
1i:135240
1d65230
044355
075230
174000
(d26704
035230
015322
115111
015316
035613
01d2001
015320
002 3 0
1004742
026362
1/:1

CMP41

CMPL6

CMPL7

CMPL8

CMPL9

Jse R~RRS+l,I NEXT NOT P~ECEOEO BY PROP~R FOR
LOB FL.INK
LOA STMP2,1
REMO~l
Sf A FLINK
Vl~lAaLE
SsS
WAS vARIA8LE IN COMMON?
CCB,RSS
NO
CLB
NO
STa STMP2,I
RESET AS SIMPLE VARIA~Lt
JMP PHNS2+1
LOA STMP2,I
LOAD SECOND WORD OF TA8LE ENTRY
SlA
ALREADY IN rOR~QUEUE?
INA,SlA,RSS
COMMON VARIABLE
JMP CMPL5
JaB OCMPL
DECOMPlLE
JSB RERR5+2,I NESTED "FOR'&" ~LTH SAME VARIABL
LOB STMP2
LOA STMP2,1
WAS VARIABLf
SSA
IN COMMON?
CMB,INS
yES
LOA FLINK
ADD
STA STMP2,1
TO
sre FLINK
fOR.QUEUE
ISZ STYPE
DESTROY STATEMfNT TYPE
JMP PRNS2+1
LOA STMP2
LOS A,I
GET poINTER
SZB
ALREADy IN COMMON1
JMP eMP1"+1
fLAG VARlABLE AS
CtB
STa A,lCONTAINfD IN COMMON
JMP PRNS2+1
JSB SSYMT
COMPILE fUNCllON NAME
CPS DErOP
fUNCTION UE~INITION?
RSS
yES
JMP PRNS2
NO
LOe STMP2,I
PREVIOUSLY
SZB
DEflNED?
JMP CMPL8
yES
LOA STMP2
NO
ISZ STYPE
DESTROY STATEMENT TYPl
L08 SP1R
ADVANCE
AOB .+3
PROGRAM
STB SPTR
POINTER
STa 0,1
SAVE
JMP PRNS2+1
POINTER
lSZ SPTR
JSB DCMPL
DECOMPILE
JSB RERRS+J,I FUNCTION U£FINlU TwICE
JSB SSYMT
COMPILE STklNG VARIAijLE
ISZ ST~Pl
SET TO ,SING~v SUBSCRIPTED,
RSS
PROCESS POSSI6~E DECLARATION
JSB ASYMT
COMPILE ARRAY VARIA8LE
CCE
SET 'COM' FLAG
CPB CO~OP
'COM'?
JMP CMP91
YES

PAGE

0~83

#~7

COMPILATION AND DECOMPILATION

0305 ' 36357 054636
CPB OIMOP
"'306 36360 002HH
tLE,RSS
16307 36361 026703
JMP PRNS2
0308 36362 165614 CMP91 LOB S TMP2,I
SZij
0309 36363 160 6 0 02
1d310 36364 026402
JMP CMP10
0311
36365 065230
LOB SPTR
0312 36366 044354
ADa .+2
",313 36367 002040
SEl
0314 36370 007004
CMB,INB
16315 36371 175614
STB STMP2,I
LOB SPTR
"'316 36372 065230
0317 36373 11144354
ADS .+2
0318 36374 061613
LOA STMPl
SL,A,RSS
/6319 36375 002011
14320 36376 0 4 4354
ADS ,+2
0321
36377 044354
ADB ,+2
0322 36400 075230
STa SPTR
,,323 36401 02 157 0 5
JMP PRNS2+2
0324 364102 IdJ5230
lSZ SpTR
0325 36403 1615322
JS~ OCMPI..
0326 36404 1151i2
JSB RE.RRS+4,1
0327*
0328.· PROCESS ENO Of STATEMENT '*'*

16329.

0330
1d331
0332
0333
0334
0335
0336
0337

36400 055575
36406 002001
36407 flI26607
36410 075230
36411 061240
36412 050650
36413 02~416
36414 015322

033~

36415 115113
36416 002404

0339
0340
0341
0342
0343
0344
0345
1d3~6

0347
({)348
",349
0350
({)351
0352
0353

36417 051234
3642,0 026423
36421 015322
36422 115114
36423
36423 002400
36424 071600
364 2 5 ~64056
36426 075504
36427 060273
36430 04~351

36431 1600010
36432 050374
36433 126005

NO, 'DIM'"'
YES~~SET

'Ol~'

fLAG

WAS VARIAtll..f.
PREVIOUSLY OlMENSIONE01
YES
NO, SAVE POINTEH
TO OI~ENSIONS
OIMENSIONEO IN 'COM' 1
yES-'!'IOFLAG IT
NO
RESTIJRE
POINTER
RETRIEVE SV~t:WL
ADVANCE::
POINTE:.R
PAST
ONE OR TWO
DECOMPll,.f·
VARIABLE PEF1NEO

TWIC~

END OF PROGf.;AM'l
CMP11 CPS SYMTS '*
yES
RSS
JMP PRNSl
NO
sre SPTR
INSUloff CORRECT SETTING FOR SPTR
LAST STA,TEMtNT
L.OA STYPE
CpA ENOVP
AN 'END' ?
YES
JMP C;MP12
JSB DCMPI..
NO, DECOMPILE
JSB RERRS+5,I MISSING 'END'
CMP12 CLA,INA
CPA FLINK
ALI.. FORS MATCHED?
yEs
JMP *+3
DE.COMPlt,.E.
JaB DCMPL
JSB Rt.RRS+6,1 'FOR' WITHOVT 'NtXT'
CMP17 E;QU •
CL.A
STA VLFt,.G
MUST RUN VALUE.
SET POINTER TO
LOB PBPTR
STa FILTB
END O~ SyMBOL
IS CSAV~
LOA MI..INK+l
AOA .+?STAT-1L.INK
LOA 0,1
RUNNING
CpA .+5+CSAy.COM2
JMP CSvRT,1
yES~.ExIT TO IT

8354.

k'355*
0356.

16357.
035~.

°359·

fiLCT • -5 AT THIS POINT UNL~SS THE PROGRAM CONTAINS A
, THE tAL.L TO 8CHL~,1 LEAVES VALTS •
FILTB+7*CNUMHER OF FILES REQUE.STED), IF NQ 
APPEARS, vALTS • FILTa,

PAGE 0084 #07
0360
0361
0362
0363
0364
0365
0366
0367
0368
",369
0370
0371
fd372

36434
36434
36435
36436
36437
36440
J6441
36442
36443
36444
36445
36446
36447

COMPIL.AT~ON

061606
050345

026445
114532
072037
115123
115124
115120
027223
~65504

075576
~27223

AND DECOMPILATION

CMP18 t:.QU *
LDA FILeT
CPA .-5
JMP CMP13
JaB SCHLtf,I

DfF FILXS

ANY l
NQ

REQUt:.ST FILE TABLE.

JaB RER Rs+13,I BAD FORMAT OR lLL.E(JAL. NAME
JSB RERRS+14,1 Ml$SING OR PROTECTED FIL.f
JSB RERRS+U:I,l OUT OF STUR:\GE
JMP VALUE+c
SUCCESSFUL R~QUEST
CMP13 LOB FII.16
Sf T VALUE TAth.. £
518 VALTS
POINTfH.
JMP VALUf.+2

pAGE 0085

*~7

COMpILATION AND DECOMpILATION

.*.

.OECOMPILE ALL OR PART OF PHO~RAM
0376**
1377.
0378* If CFLAGtIl • 10 PROGRAM IS IN SOURCE, EXIT IMMEDIATELY;
~379*
ELSE SET CFLAGtll • 0 AND DECOMPILE PROGRAM, SPTR POINTS
0380* INITIALLY TO LAST WORD+1 OF COMPILED PROGRAM, ABSOLUTE
0381* ADDRESSES ARE REPLACED BY THE SEQUENCE NUMBERS TO WHICH
0382* THEY POINT, VARIABLE OPERAND POINTERS ARE R~PLACED BY
0383* tHEIR SYMBOL. PBPTR IS SET TO LAST WORD+l Of PRUGRAM.
0384.
0385 36450 060354 #DCMP LOA tfLAG
PROGRAM
0386 36451 06421 3
LOB MLINK+l
0387 36452 044335
AO(; ,w11..1N"
0388 36453 11 "001
AND 1'1
0389 36454 002003
S~A,RSS
1d390 36455 026553
NO
JMP DCMP4
CLF
0
Yl::S
0391 36456 103100
XOR 1,1
SET PROGRAM MODE
1d3 9 2 36457 120001
0393 36460 170001
TO 'UNCOMPILED'
STA 1,1
0394 36461 102100
STr 0
0395 36462 060056
LOA PaPTR
NUL.L.
CPA PBUFF
PROGRAM1
0396 36463 1()50702
0397 36464 026551
JMP OCMP3+2
yES
03 98 36 4 6 5 "'6123~
LUA SPTR
SPTRlt0 TO FL.AG
SZA,RSS
SEMI-COMPILED?
0399 36466 00200J
LOA SYMTB
YES~.RESET IT TO CORRECT VAL.UE
0400 30467 061575
1d401 J6471t1 071230
STA SPTR
St.T TERMINATION
ADDRESS
STA FIL16
0402 36471 ~71504
0403 36472 01SJ24
JSB PRNST
INITIALIZI:.
0404 36473 raJ6607
OEF PRNSl
OECOMPILATION
0405 364 7 4 la06441
CL.B,SEZ,RSS
WAS FLAG BIT SET1
0406 30 4 75 0 2 6515
JMP DCMP2
NO
0407.
040ij** PROCESS NON~VARIA8LE OPERANO .*
0409*
*PRO(JRAM
0410 36476 04 0 346
ADA ,"4
SSA,RSS
INTEGER?
0411 36477 002021
JMP PRNS2
NO
0412 36500 026703
0413 36 501 035230 OCMPl ISZ SPTR
YES, MOVE TO
LDB SPTR
0414 36502 0652J~
NEXT WORD
CPB FOILTS
041 5 3 0 5 03 0555 04
DONE1
Yl::S
JMP OCMP3
04 1 6 365104 02654 7
CPB NSPTR
NO, SlATEME~T DONE?
0417 36505 055236
yf;.S
0418 36506 02661kl
JMP PRNS1+1
LOA SPTR,l
NO, REPLACE
0 4 19 3650 7 1 6 1230
ABSOLUTE. ADDRESS
0420 365113 1~0000
LOA 0,1
0421 36511 171230
STA SPTR,l
WITH SEQUENCE NU~~ER
ISZ INfST
IN ?
10 4 22 3 65 12 035552
0423 36513 026501
JMP OCMPI
NO
0424 36514 026703
JMP PRNS2
YlS
0425*
*
0426** PROCESS VARIA~LE OPERAND **
0427.
COMPUTE
0428 36515 ~40351 DC MP 2 .OA ,-1 *
~J7~***

•

PAGE 0086 *07
0429
0430
'0431
0432
(1)433
0434
(1)435
(1)436
10437
10438
10439
104<40
0441
",<442
04<43
0444
10445
0446
0447
1044es
0449
0450
10451
0452
0453
0454
10455
0456
10457
0458
10459

0460
10461
0462
0463
0464
0465
0466
0467
046 8
0469
10470

10471
104 7 2
0473
0474

36516
36517
3652.0
J6521
36522
36523
36524
36525
36526
36527
36530
3.6531
36532
36533
J6534
36535
36536
36537
36540
36541
36542
36543
36544
36545
36546
36547
.36550
36551
36552
36553
36554
36555
36556
36557
36560
36561
36562
36563
36564
36565
36566
36567
36570
36571
36572
365 7 3

COMPILATION AND DECOMPILATIUN

HUl17
045575
1'6 1230
1010664
13 000 1
171230
06524id
il54636
~26532

054742
002001
1t126703
1065230
0060(14
(()55504
026547
0060e4
010371
040346
i:l02021
026703
040356
002003
0102004
026375
'!j61575
070056
0"240~

071575
170634
064702
055577
0261570
054056
026570
075514
061577
075577
1364050
01550~

!d65514
1074056

114534
160640
170634
125322

RRR
AOa
LOA
AND
lOR
STA
LOB
CPS
JMP
CPS
RSS
JMP
OCMP6 LOB

15

SYM16
SPTR,l
OPMSK
l,I

SPTR,l
SlYPE
01MOP
[)CMP6
COMOP
PRNS2
SPTR

SYMijOI,. rA~i.E
AODRESS
tXTRAC;
.
OPERATOR
REPI,.ACE OPERATOR.
OPERAND PAIR IN CODE
'OIM' ?
YES
NO, 'COM'?
yES

NO

INij

CPS FIL.lS
JMP DCMP3
INS
AND ,"176
AIJA ,-4
SSA,RSS
JMP PRN82
ADA , ... 4
SZA,RSS
INA
JMP CMP10 .. 5
OCMP3 L.OA SYMTt:t
STA pBpTR

eLA

srA SYMT8
DCMP4 srA DeLC1,I
L08 PSUfF
CPS SPROG
JMP oeMP5
CPS PSPTR
JMP DCMP5
8TB DEST
LOA SPROtJ
STij SPROG
LOB P8PTR
JS8 MOVf:R

Loe DEST

ST8
DCfto1P5 JSB
LOA
STA
JMP

PSPTR
ABCK,I
DClC2,1

DeLCI,l
DCMPL.,I

DONE'l
yES
NO
STRING
SIMPLE
VARIA8L.E?
YES
NO, STRING
VARIA8L.E?
YES, 8ET TU SlNGL.E SuSSCRIPT MOO
SET ACTIVE USER AREA POINTE~
Tu LAST WURO .. 1 Of PRU~RAM
ZERO
POINTER
EH.. OtK Cl"OCK
CUMMON ALLOCATEO?
NO
YES, NULL P~OGJlAM1
YES
NO
SET UP
POINTERS
FOR MUVE
REMOVE COMMON AREA
RESET END-Of ..
PRUGRAM PUINTER
ASORT ATTEMPT DURING COMPILe?
NO"~UNBL.OCK

CLUCK

PAGE 0087 #08
0002·*
0003*.*
0004**

".15*
0"ea.
0009*
f00Uh
0011*
0012*
~01J*

0031
0032
0I/JJ3
0034
0035
0036
0037
0038
16039
0040
0041
004 2

0043
" ... 4
0045
00 46
0047
0048
0049

0050
0051
0052
0053
0054

fd055
0056

PROCESS NEXT STATEMENT OF PROGRAM

••

***
**

USED BY CMPLE AND DCMPL TO SCAN THROUGH T~E PROGRAM,
A 'JSB PRNST' INITIALIZES THE SCANI (P+l) IS A POINTER
TO THE COOl FOR HANDLING THE END-OF.STATEMENT CONDITION,
,LNUM HOLDS THE S~QUENCE NUMSER OF THE SlATE~fNT hEING
PROC~SSED' SPTH POINTS TO THE WORD Of THE PHOGRAM BEIN~
PROCESSEO. PRNST HANoLES , ,
STRING CONSTANTS, NULL OPERANDS, NUMERICAL CONSTANTS, AND
, OTHER CASES tXIT TO (P+2J, PHNST IS
RE_ENTERED DIRECTLY, LEAVING THE INITIALIZED lXIT ADDk~SSES
UNCHANGED THROUGHOUT PROCESSING OF THE PPOGRAM,

k'00{)*

0007*

0014.
IcHrU5*
0'1&6*
0017
001a
0019
0020
f0021
0022
0023
0024
0025
0026
16027
0028
0029
0030

COMPILATlON AND DECOMPILATION

.
36574
36575
36576
36577
36600
36601
366162
J6603
366164
36606

1 6 1324
071242
035324
060452
0716 0 5

00240"
071617
071607
06~345

0 7 1 6 06
36606 065ti77
36607 075~30
36610 1612J0
36611 071570
36612 03523 0
36613 14e23~
36614 075 23 6
36615 03523~
36616 16123111
36617 01e664
36620 £171240
36621 050742
36622 026625
36623 075617
36624 026635
36625 065617
36626 006 00 3

36621 11261" ..
36630 06 5230
36631
36632
36633
36634

0 4 435/d
07523rd
015322
lHH60

36635 105~642
36636 0:l6105
36637 0514(552
3b640 026705

36641 050746
36642 026705
36643 050660

LOA
STA
liZ
LOA
STA
CLA
STA
STA
LOA
STA

PRNST,l
STEND
PRNST
OFILT
FIL.PT
COMSN
USE.SN
,_5

SET POINTER TO
END.OF.8TATEMENT
PRoCESSING ROUT1~~
INITIALIZE POINTER TO
c~lL.ES STATEMENT~ TABLE
INlrlALIZE
COM FI..Atf
AND uSING FLAG
INITIALIZE cF1LEs
STATEMENT> COUNTER
INITIAL PROGRAM POINTER
SET PROGRAM POINTER TO STATlMENT
SAVE STATEME.NT
SEgUENCf. NUMHER
COMPUTE
Lf.NGTH
SAVE POINTE" TO NEXT $TATfMtNT
ExTRACT

FILeT
L.OS SPROG
STe SPTR
1.0A SPTR,l
STA ,LNUM
Iaz SPTR
AD~ SPTR,l
STa NSPTR
ISl SPTR
STATEME~T
LOA SPTH,l
AND OPMSK
TYPE
STA STYPE
SAVt. IT
CPA COMOP
.eOM' ?
yE.S
JMP *+3
ST8 COMSN
NO.~~LEAR COM F~AG.
JMP PRNS4
LOS COMSN
NON-COM
SZB,RSS
STATEMENT SEEN?
JMP PRN82+1
~o
LOS SPTK
YES, RESET
ADS ,-2
STATEMENT
STB SPTR
POINTER
JSB DCMPL
ERROR
JSB RERRS+42,I 'COM' OUT'OF ORDER
CpA REMOp
'REM' 1
JMP PRNS2+2
YES
CPA DATOP
NO, DATAl
JMP PRNS2+2
YES
CPA IMGOP
NO, XMAGE?
JMP PRNS2+2
yES
CPA FILOP
NO, cFILES 3TATEMENT> 1

PAGE 16088 #168
16057
0058
00 59
0060
16061
0062
006 3
16064
0065
0066
0067
0068
k:l069
01370
0071
ItHa72
0"73
0074
0075
16076
0077
0078
16079
0080
0081
01682
0063
0084
008 5

cOMPILATION AND OECOMPtLATION

J0644

~021601

36645
36646
36647
36650
36651
36652
36653
36654
36655
36656
36657
36660
36661
36662
36663
36664
36665
36666
36667
J66716
36671
36672
36673
36674
36675
36676
36677
36700

1626662
065230
044350
0356'06
026655
075 230
015322
11 e150
006004
175605
0356~5

1665236
026705
1665230
1652006

006005
026670
160001
010664
050656
006005
162671tJ1
160001
010664
050716
003401
160201cU
071607
3 07 01 16 7 1552
36702 1602001

100 86

0087

0088_

1dk:l 89

.*

RSS
JMp pRNS5
L.DB SPTR
ADS , .. 2

lSZ
JMP
STB
Ja8
JaB
INS
ST8

FIL.eT
.....
SPTR

TOO MANY
NO

FIL.PT,I

SAYE POINTER TO 

i6i691a.

0091
10092
0093
16094
0095
16096
0097
0098
16099
16100
"'101
rcH02
0103
"'104
16105
16106
16107
0108
16109
0110
11:1111

YES
NO

SPTR
SPTR
FILTS
OCMP3
NSPTR
STfND,I
L.OA SPTR,l
ANO OPMSK
CPA 81000
JMP PRNS3
XOR SPTR,1
SZA,RSS
JMP PRNS2
RAL.,CLE,EHA
SZA,RSS
JMP CMPL.7
JMP ..,RNST,I
PRNs3 XOR SPTR,l
AOA ,+3
ARS
AOA SPTR

SKIP OyER RC:ST
of STATE..,E",T
'MAT' STATEMENT?
YEs, euMP ,0 NEXT WORD
NO
EXTRACT
OPERATOR
'PRINT' srATEMENT1
YES, BUMP TO NEXT wOHD
NO
EXTRACT
OPERATOR
'USING' STATEMENT?
yfS, sET CA)
NO
SET 'USING SEEN' fL.AG
SET INTEGER fOLLO~S fLA~

.*
•
MOVE

TO
NEXT WORe
DECOMPILE FINISHED?
yES
NO, STATEMENT FINISHED?
YES
NO, ISOl-ATE
OPERATOR
" 1

YES
NO, GET OPERAND
NULL OPERAND?
YES
NO, PUT FLAG 6IT IN (E)
NUMaER?
Yf,.S

NO
EXTRACT LENGTh
COMPUTE
POINTER
TO CLOSING

PAGE
~112
~113

~089

#08

COMPILATION AND

srA

J6730 ~7123~
36731 026704

0114**
0115***

SPTR
JMP PRNS2.1

'COMPILE' A SYMSOL

VJ 119*

0120*
0121*
0122*
012J*

1tJ124*
0125*

••

ENTER WITH A SYMBOLIC NAME IN STMPl ANO SEARCH THE
SYMBOL TABLE FOR A MATCHING ENTRY, IF NO ENTRY IS
FOUND, APPEND A NEw TWO WORD ENTRY WITH THE ~YMBOL
IN THE FIRST WORD AND 0 IN THE SECONO, THE ~YMbO~ IN
THE PROGRAM IS RtP~ACEO WITH THE URDINAL NUM~ER OF
ITS SY~80L TABLE ENTRY, EXIT WITH THE NEW PRU~RAM
WORD IN (A), A POINTER TO THE SECOND WORD OF THE
TABLE ENTRY IN STMP2, ANO THE STATEMENT TYPE IN (8),

0126.
°12 7 36732 ({)60J5b
10128 36 7 33 015326
0129 36734 061613
0130
°131
0132
~133

0134
IcH35
0136

0137*
~138**

0139.
0140
0141
0142
014J

0144
0145
10146
0147

!d148
01 49
0150*
0151**

36735
36736
36737
36740
36741
36742
36743

06537~

054id56
026156
1f)0001
026166
044354
11:)26736

0154
10155

36744
36745
36746
36747
36750
36751
36752
36753
36754
36755

~5161J

002a01
0267fi6

034£156
~34et56

061614
002006
026161

170001
11344354

36756 034056
36757 034056

0157

13158

36763 044351

0159 ·36764 061613
0160 36765 170001

ADa ... 2

SYMT3 lSZ
ISZ
CLA
SYMT4 INB
STA
ADti
LDA
STA

'COMPILE' PROGRAM WORD

0163*
01 6 4

0165
0166

,+a

9YMTl

SYMT2 CPA STMP1
RSS
JMp SyM1J
ISZ PtJPTR
ISZ P6PTR
LOA STMP2
INA,SZA
JMP SYMT4
STA 1,1

0161.

0162**

,"4

CUSP
STMPl
SYMTB
PBPTR
SYMf3
1,1
SYMT5

36766 006004
36767 075614
36770 1r30700rJ

INSURE SPACE:.
FOR Nt::W f:.NT~Y
RETR1t:.VE SYMBOL
TABLE EXHAUSTED1
YES
NO, IS NExT SyMBOL A MATCH?
yES
NU, MOVE.
TO NEXT ENTRY

SYMBO~

**

•"OONtT

KNOW" SYMBOL?
YES
NO, MAKE NORMAL TABLE:. ENTRY
ALLOCATE SIJACf:.
FOR NE:.W ENTRY
WAS A SIN~Lf:. OR DOUBLE:.
SUBSCRIPT~D ENTRY FOUND?
Yf:.S, INcLUDE. POINTER IN EN1KY
NO, SAVE SPACE FOR LAlf:.R ENTRY
WITH NUMBER OF DIMENSIONS

***

CREATE k NEW TABLE ENTRY

3676£1 002400
3 6 761 £106004
36762 170~01

10156

LOA
JSB
LDA
LOS
SYMTl CPS
JMP
CPA
JMP
ADB
JMP
#SSY~

HANDLE UNMATCHED ARRAY SYMBOL

0152.
16153

*.

* ••

0116**
0117*
0US·

D~COMPILATION

PBPTR *
p6PTR

1,1
.... 1

STMPl
1, 1

**•

SYMT5 INB
STS STMP2
CMB

ALLOCATE SPACE
FOR NE.W ENTRY
INITIAL.lZE
SECOND
WORD
PUT SYMBOl.
IN FIRST
WURD

COMPUTE

Rf:.L.ATIVE

PAGE 0090 #08
0167
0168
0169
0170
!d17l
017 2
0173
0174
0l7~

36771
36772
36773
36774
36775

COMPILATION AND DECUMPILATION

045575
007004
005100
161230
1310664
3677f) 030001
36777 1712.:5"
37000 065240
370131 1253~6

A06 SYMT8
CM8,IN8
BRS
LOA SPTR,l
AND OPMSK
lOR 1
ST. SPTR,l
L08 STVPE
JMP SSyMT,l

ADDRESS
REPLAt;E SyMbOL.
IN PRQ6RAfII

WITH REL.ATIVE

ADDRESS
LOAD STATEMENT TYPE

_.

IU7l.*

itl178**·

PROCES$ ARRAY SYMBOL

0179 ••
wUII.

Id181.
~182*

Id183.
0184.
0185.
01860187.
"'1 8S *
0189.
0190.
Id1910192*
1iJ19~h

0194*
!d195·
IU96*
0197.
16198
0199
0200
0201
0202
1d203
0204
1d2liJb
1d206
020 7
0208
0209
16210
0211
0212
0213
0214
0215
02 16
0217
1iJ218
0219
0220
0221
0222
16223
0224
16225

0226
0227
0228

0229

10230
0231

.-

•••

ENTER ~ITH AN ARRAY NAME IN STMP1, If A MATCHING
SYMSOL TABLE ENTRY EXISTS, PROCEED AS IN SSYMT. ELSE IF
THE ARRAY IS SINGLY OR DOU~LY SUBSCRI~TED (LAST fOUR
SITS OF NAME ARE 0001 OR 0010)1 EXIT IS TO ERROR ON
fINDING A CONf~ICTING ENTRY; ON fINDING ON~Y A ·OON'T
KNOW" ENTRY (~AST FOUR aITS (011), PRUCEEU AS IN SSYM1,
PLACING THE APPROPRIATE ENTRY IN THt 1~0 WOR03 ABOVE
THE "uON'T KNO~" ENTRY AND SETTING A POINT~R TO ITS
SECOND WORD INTO THE SECOND WORD Of THf "UON'T KNOW"
ENTRY. If THE SYMBOL IS AN UNMATCHEO "DON'T KNOW"
ARRAy NAME, APPEND A SyMBOL TASLE ENTRy, l~ A SINGLY
OR OOUB~Y SUBSCRIpTED VERSION OF THE ARRAY HAS BEEN
PREVIOU~LY FOUND, PLACE A POINTER TO THE SEcONO ~ORD
OF THE PREVIOUS ENTRY INTO THE SECOND WORe Of THE NEW
"CaN'T KNOW" ENTRY, OTHERWISE ~EAVl T~O WORDS ABOVE
THE NEW ENTRY,
37002 061320

1..0 A ASYMT

37~03

STA
CCA
STA
L.DA
STA
I.. I.> A
JSB

071316
37004 003400
37005 07161-4
370 0 6 06 2003
37007

07132~

3721116 060356
37011 015326
37012 ~655i'5
37'U3 Id 6 16 1'3
37014 03035~
37015 027030
37016 040350
j7017 1b0001
37020 027033
37021 0,,2004
37022 15ft'001
37023 027033
37 0 24 0°2°04
372125 15"001
j7026 027047
37027 044354
37030 054056
37031 026744
37032 125320
37033 051613
37034 026766
37035 1630355
37036 05\613
37037 027042
37040 01~322
37041 lHH21
37042 ta75614
37043 066002

SSYMT
STMP2
APTR1
ASYMT
,+4

SET RETU~N
AODRESS
SET MATCH
FLA. FA~SE
INTIALIZE
St::ARCI'I LOUP
INSURE SPACE
~OR Nt:~ ENTRy

CUSP
I.. 0 t; gYMTS
1..0A STMPl
RETRIEVE SYMi;iOL.
lOR ,+3
SET ARRAy SyM80L
JMP SYMT7+3
TO "DON'T KNOW"
SYMT6 ADA ,-2
MATCH AS
CPA 1 , 1
'SINGLE SU8SCRIPT'?
JMP SYMT8
YES
INA
NO, MATCH ~s
CpA 1,1
'DOUBLE 5U~SCRlpT'1
JMP SYMT8
YES
NO, MATCH AS
INA
SVMT7 CPA 1,1
"DON'T KNOW"?
JMP SYMT9
YES
ADe ,+2
NO, MORE SyMBOL.
CP8 PBPTR
TABLE E~THIES?
NO
JMP SYMT2
JMP ASYMT,l
YES
SYMT8 CPA STMPl
DOES ENTRY KATCH SVM~OL1
JMp SYMT5
yES
NU, IS SYMBOL Of
lOR ,+3
CPA STMP1
TYPE "DON'T KNOW"?
JMP * . . 3
YES
JSB DCMPL
NO, OECOMPl~E
JSB RERRS+l1,I suaSC~lPT CONFLICT
STe STMP2
SAVE POINTER TO ENTRY
Loa APTR2
CONTINUE SEARCH

PAGE

0~92

#08

COMPILATION AND DECUMPILATION

~232

37~44

07032~

0233

37.045
37046
37047
J7050
37051
37052
37053

065614

0234
0235
0236
0237
~2J8

0239

0240
0241
0242

0247·
0248*
0249.
0250*
0251*

0252.

LOB
JMP

~27027

051613 .. SYMT9 CPA
026766
JMP
~06004
~60001

37~54

044350
17400ij

37055

00240~

INS

ADS ,"2

ST8 0,1
CLA
JMP SYMT4+1

RESTORE SYMBOL TABLE POINTERS

~254

37057 065577

~255

37060 075230

1Il256

37061
371d62
37063
37064
37065
37066
370 6 7

0258
0259
0260
0261
0262

055575
027147

035230
145230
075236

0263
0264

035230
161230
371d70 ",10664
37071 050742

0265

37072 ft127077

0266
0267

37073 050636
37074 002001

ra268
0269

37075

0270
02 7 1

37077 075621
37 1id0 161230
37HU 010700
37102 040351
37103 00100j
37Hl4 041 5 7 5
37105 07161;)

0272
0273
11)274
0275

0276
0277
0278
0279
10280
0281
0282
0283
0284
0285
0286

FOf< POSSlt;lf:.
"DON'T r.NOW"
ENTf IN THE PROGRAM OR THE OEfAULT
DIMENSIONS, ARRAY SPACE IS ALLOCATED AT T~O WORDS PER
AR~AY ELEMENT CON'I~UOUS WITH THE OIMENSIONS,
THE
ELEMENTS ARE INITIALIZED TO 'UNDEFIN~O" ANO A
POINTER
THE fIRST ELEMENT IS PLAC~D IN THE SECOND
~ORD Of THE SYMSoL TABLE ENTRY; fOR STRINGS FOLLow THE
PATTERN FOR AR~AYS WITH ONE WORD HOLDING THE PHYSICAL
DIMENSION IN BITS 15-8 AND THE DYNAMIC DIMENSION IN
BITS
(DIMENSION HERE MEANS LENGTH AS NUMBER Of
CHARACTERS), STRING SPACE IS ALLOCATED ONE WORD PER
TWO CHARACTERS, AND THE DYNAMIC LENGTH IS INITIALIZED
TO ZERU. FOR ·UON'T KNOw" ARRAy ENTRIES, rHE SECOND
WORD Of THE SYMSOL TABLE ENTRY IS COpIED FROM 'HE
ASSOCIATEO SINGLY OR DOUBLY SUBSCRIPTED ENTRY (OR
EXIT TO ERROR IF NONE EXISTS}.
FOR VARIABLES WHICH HAVE ~EEN DECLARED IN A  MATCH THOSE FJUNO IN
THE COMMON AREA, AND THE DYNAMIC DIMENSIONS ARE CONSISTENT
IF A VALUE TABLE ALREADY EXISTS, VARIABLES IN COMMON ARE
LEfT UNTOUCHED, VALUES OF SIMPLE VARIABLES AND ARRAY
ELEMENTS ARE SET TO 'UNDEFINED' AND DYNAMIC ARRAY
DIMENSIONS ARE SET TO DECLARED DIMENSIONS; THE DYNAMIC
LENGTHS OF STRINbS ARE SET TO lE~O, ~XIT TO XEC IF
PROCESSING IS SATISFACTORILY COMP~~TED.

0401.

~405

DECOMPl~ATION

J7226 0f£12001
37231 \127662
37232 160001

37233 006~04
37234 002003
37235 027555

VALUE LDB FCORE
STt) P6PTR
LOB PtiUff
Sl8 COMPT
LOB SYMTB
RSS
INS
CP~ FILTS
JMP VAL99
LI)A 1, I
INB
SZA,RSS
JMP VALl4

CORRECr
SlTTING FOR PBPTR
INITIALIZE
COMMON POINTER
SfT (8) TO
SYM80L 'l'ASL~
SYMIHIL TA~Le
INSU~E

EXHAUST~D1

yfS
NO, LOAO SYMSOL
POINT (~) TO VALUE TAtjLE POINTER
NULL SYMtiOL1
YES

PAGE 0096 #08

COMPILATlON ANO DECOMPILATION

0415 37236 010371
AND ,+178
0416 37237 050371
CPA ,+178
0417 37240 027301
JMP VAL.U4
k}418 37241 1C02003
SlA,RSS
0419 37242 027557
JMP VAL.15
0420 37243 040346
AOA , .. 4
0421 37244 00202/(1
SSA
0422 37245 027306
JMP I/AL.Ue
0423*
0424** INITIALIZE SIMPLE VARIABLE **
1C425*
0426 37246 0616kHJ
LOA VLFLG
0427 37 24 7 002003
SZA,RSS
0428 372513 ~27263
JMP VAL.UJ
0 4 29 37251 16 00!t:11
LOA 1,1
CMA,INA
0430 37252 0",3004
0431 37253 1340001
ADA 1
0432 37254 002021
SSA,RSS
0433 37255 1327227
JMP VAL.Ut
0 4 34 37256 1 6 00131
LOA 1,1
0435 37257 1C71613 VAL U2 STA VTMP1
0436 .37260 ~0J400
ceA
STA VTMP1,I
0437 37261 171613
0438 37262 027227
JMP VALUl
0439 37263 160001 VALu3 LOA 1, I
0440 37264 002020
SSA
0441 37265 027274
JMP VAL31
k1442 37266 061d354
LOA .+2
0443 37267 k115326
JS8 CUSP
0444 37270 070056
STA PBPTR
0445 37271 1C4035'"
ADA ,,-2
0446 37272 171d001
STA 1 , 1
0447 37273 027257
JMP VALU2
0448 37274 1d61620 VAL31 LOA COMPT
~44g
STA 1,1
37275 170001
ADA +2
ld450 37276 040354
STA
COMPT
1C451 37277 k171620
JMP
0452 3731C0 ~27227
vAlu1
0453*
0454 •• CHECK FUNCTION *.
0455.
0456 3 7 3 k1 1 16~001 VALU4 LOA 1 , I
0457 37302 00200~
SZA
0458 37303 027221
JMP VALUl
0459 37304 1C15322
Jse DCMPL
0460 373~5 115115
Jsa RE.RRS+7,I
0001*
1d1(}02*. INITIALIZE A~RAY
0003*
0004 3730 6 050351 VAl..U5 CPA ,1111
JMP VAL.13
0005 37307 ~27546
STt; VTMP1
01C06 37310 015b13
INA
0007 37311 01C2004
STA VTMP2
01608 37312 071614
0009 37313 061600
LOA VLFLG

..
..

NO
FUNCTION?

YES

NO, STRIN(,I YARXAI:H.E?
YE$

NO,

AR~AY?

YES

SIMPLE VA~I"8L.E
STORAGE ALLOCATED?
NO
YES
VARIABL.E
IN
COMMONi

YES

NO
SAVE POINTEH TO VALUE
SET
VALUE TU
UNDEFINED
VARIABLE
IN COMMON?
YES
NO"'''''AL.LOCATE
STORAGE
fOR VALUE
pUT VALUE pOINTE~
INTO SYMBOL TASLE
AL.LOCATE STORAGE
IN COMMON
UPDATE COMMeN
POINTER

.

•

.

*...

WAS rUNCTlCN
OlFINEO?
YIiS
NO, IJf'.COMPIL.E
UNDEFINED FUN'TION

15 ARRAY TYPE "DON'T KNOW· ?
YES
NO, SAVE. POINTfR TO SYMBOL TAHLt.
SAVE lNFORMATION ON
NUMSER OF DIMENSIONS
STORAGE

PAGt 0097
0010

0011
0012

16013
16014
"'01~

0016
01
"'0161d7
16019
0020

0021
0022

0023
0024
0025

0026
0027
002d
(6029
0030

0031
0032
0033
kJ034
0035
0036
0037

01c:13t5
0039

"h,40
0041
0042

0043
0044
0045
00 4 6

kJ0 47

004ij
0049
0050
0051
0052
0053

0054
kHCl55
0liH56

0057
005t5
16059
0060
"'061

0062
0063

#~9

37314
37315
37316
37317
.37320
37321
37322
37323
37324
37325
37326
37327
37330
37331
37332
37333
37334
37330
37336
37337
3734(6
37341
37342
37343
37344
37345
37346
37347
37350
373 5 1
37352
37353
37354
:57355
37356
37357
3736(6
37301
37362
37363
37364
37365
37366
37367
37370
37371
37371
37372
37373
37374
37375
31316
37377
37400
J74~1

COMPI~ATION

002002
027406
1601301
00202id
027422
165613
(660056
07 16 16
060366
015326
070056
171013
006003
0274~J

160001
044354
1135614
00640~

164001
171615
035615
175616
03561~

171615
035615
1756\5
100200
HH615
006003
0020210
027401
07161t;
0kJ3004

042000
002020
1627401
061616
00105!'~

tUe;SZ6
071d05b
027362
015322

U£COMPI~ATION

aZA

41..~OCATED'l

JMP VAL12
~OA

1,1

SSA
JMP VA\..51
~Oij VTMP 1,1
~DA P8PTR
STA VTMPJ

LOA .+4

JSB CUSP
STA PBPTR
STA VTMP1,I
Slij,RSS
JMP VAL.ll
\..OA 1,1
ADS .... 2
VALU6 ISZ VTMP2
CL,B,INb,RSS
LOB 1,1
STA VTMP3,1
ISZ YTMPJ
STa VTMPJ,l
VA~U7 ISZ VTMPJ
STA VTMP3,1

ISZ VTMPJ

STa VTMPJ,l

MPy VTMP3,1

07~~14

1c:165615
006004
054056
027 3 71
0034"ft'!
170001
044354
11'35614
027362
06561J
027227

AND

VALU8

SZB,RSS
5SA
JMP VA~10
STA vTMP4
CMA,INA
BTA VTMP2
~D" VTMP3
INB
CPS PBPTR
JMP VALU9

ceA

STA
AOS
ISl
JMP

~oa

1,1

.+2
VTI-lP2
YAI..U8
VTMPl

JMP VA~Ul
VALU9 EQU ,.

AOA .50"'0

S8A
JMP VA~10
I..DA VTMP4
ALS
.188 CU8P

srA P8PTR
JMP VA~U8
VAI..1'" JSB DCMPL

yES
NO
IN COMMON?
yf:.S
NO, L.OAD POl~TER TO DIM~NSIONS
SET POINTER TO
L>lMf:.NSION E.I'4TRY
ALLOCATE
SPACE
FOR ENTRY
SYMijO~ T.BLE POINTER TO ARRAY
DtFAULT DIME.NSIONS?
yES
NO, 1..0AD RO~ DIMENSION
8UMP POlNT~R
TWO OIME.NSIONA~1
NO, SET CO~UMN DIMENSION TO 1
YES, L,OAO CO~UMN DIMENSION
PUT
DECL.ARED uIMENSIONS
IN VALUE TABI..E
PUT
DYNAMIC DIMENSIONS
IN
VAL.UE:. TABLE
COMPUTE NUM~ER OF ARRAY EL.EMENTS
TOO
~ARGE1

yES
SAvc. POSITlvf
ANO NEGATIVE
COUNT·
HAS
ARRAy BEEN
A~LOCATE01

NO
INITIALIZE
ARRAy EL.EMENT
TO 'UNDEFINED'
00NI::1
NO
yES
ARRAy
TOO LARGE?

YES

NO
ALLOCATE

SPACE

FOR AI OECLAREU SIZ£:.
JMP VAL52
Yf:.S
• COMPT+4
L.IJA VTMPi,I
AVA VTMP4
ADA V1MP4
UPDATE:.
STA COMPT
COMMON P01NTEH
RESTORE (B)
I.OB VTMP1
JMP VAL-Ui
VAL-52 LLIB VTMPS
ROW DIMENSION
LOA 1,1
.> COL,.UMN DlM£:.NSION
ADb ,+2
ISz VTMP2
TWO.DIMENSIONAI.?
CI.B,INB,RSS
NO •• I..OAD DEfAULT UIMtN~10N
LOB 1,1
pUT
OE:.CL.AHfD
STA COMPT,1
ISZ COMPT
OIMEN~lONS IN
STa COMPT,l
COMMON AREA
PUT
ISZ COMPT
S1A COMPT,I
DYNAMIC
UIMENSI0NS IN
lSZ COMPT
Sla COMPT,l
COMMON AREA
MPY COMPT,1
COMPUTE NUM~tR Of ARRAY ELEMENTS

.>

SZB,RSS
SSA
JMP VAL10

TUO
LARGE1

CMA,INA

COMPLEMENT
Of NUMBER OF ELEMENTS
ARRAY
TOO
L.ARGt:.1
YES
NO
INITIALIZE

STA VTMP2

CMA,INA
ADA ,51d'11d

SSA
JMP VAl.10
ISZ COMPT
L.lJa COMPT
CCA

srA 1,1
AOB
ISZ
JMP
STB
L.[)ij
JMP
VAL,.13 LUA
SZA
JMP

,+2

VTMP2
VAL.53
COMPT
VTMP1
VALUl
VLfLG
VALUl

160~01

LOA 1,1

160000

LOA
STA
JMP
JS6
JSB

17~001

027227
1d15J22
115117

0,1
1,1

yES
NO~-SAVE

ALI".

EL.Et-1EN TS
TO
UNOlfINi:.D
UPDATt COMMON POINTER
RESTURE Ct.;)
STORAGE
AL.LOCATfO?
YES
NO, GET
AND STURE
pOlNTt:R TO
VALUE TABLE.

VAL.Ul
DECOfltPILE
OCMPL
RERRS+9,1 NUM~ER OF DIMENSIONS NOT KNOWN

PAGE

~100

#~9

COMPILATIUN AND DECOMPILATIUN

0171*
*
11;1172** INITIALIZE STRING VARIABLE **
0113*
0174 37557 075613 VALIS STB VTMPI * SAVE (B)
0175 37560 0616~0
LDA VLFLG
STORAGE
111176 37561 ~02~02
SZA
ALLOCATED?
k1177 37562 0276!2
JMP VALl7
YES
1t!J178 37563 1613001
LOA 1,1
NO
0179 37564 002020
S8A
IN CUMMON1
ItH81d 37565 027625
JMP VALl8
yES
(c)181 37566 165613
LOB VTMP1,1
NO, SAVE LENGTH POINTER
IrH82 37567 06 00 56
LOA PBPTR
SET POINTER TO
STA VTM~J
LENGTH ENTRY
018 3 37570 071615
INA
MORE
01 8 4 37571 002004
0185 37572 1050462
CPA L~AUS
UStM SP~Cf?
0186 37573 11512"
JS6 RERRS+10,1 NO
STA PBPTR
YES, SET POINTER TO STRING
leU 87 37574 070056
~188
STA VTMP1,1
INTO SYM~OL TABLE ENTRY
37575 1716~3
SZB,RSS
DEFAULT LENGTH?
01 89 37576 1d06003
CLA,INA,RSS
YES, SET (A) • 1
0190 37577 002405
li;l191 37600 16e00!
LOA 1,1
NO, LOAD DECLARED LE~~TH
~192
ALF,ALf
STORE PHysICAL LENGTH
37601 001727
(c)193 37602 171615
STA VfMP3,I
ALONG wITH ZERO
Ir3194 37b0J 001727
ALF,ALF
LOGICAL LE~GTH
0195 37604 ~02004
INA
ALLOCATE
k'l196 376fd5 (c)01100
ARS
S~ACE
0197 37606 015326
JSB CUSP
FOR
1t!J198 37607 070056
STA PBPTR
STRING
(C)199 376110 065613 VALlo LOB VTMPI
RESTORE
0200 37611 1d27227
JMP VALU1
(6)
0201 37612 1600el VALl7 LOA 1,1
CMA,INA
STRING
10202
37613 "'03004
0203 37614 0401301
AOA 1
IN
1d204 37615 1d02021
SSA,RSS
COMMON?
11;1205 37616 027227
JMP VALUI
YES
CCe
NO.~RESET
0206 3761 7 1307400
A08 VTMP1,I
020 7 37620 14561.3
LOA 1,1
LOGICAL LENG1H
020 8 37621 H)0001
",209 37622 010762
AND M256
1t'l210 37623 170001
STA 1'1
TO ZERO
10211 37624 0276i0
JMP VALl6
0212 37625 0030~4 VALl8 CMA,INA
SET POINTER POSITIVE
STA VTMP3
-> D1MENSION INFORMAT!ON
0213 37626 071615
(c)214 37627 1d6162ia
LOA COMPT
SET VALUE
INA
POINTER IN
0215 37631d 002 0fd 4
STA 1,1
SYMBOL TABLE
1(.l216 37631 110(C)01
LDA COMPT,I
EXTRA,T PHYSIC .. L
0217 37632 161620
ALF,ALF
LENGTH FROM
0218 37633 01iH727
(c)219 37634 010443
AND B377
COMMON ARt~
0220 37635 151615
CPA VTMPJ,1
SAME AS DECLARED LENGTH1
RSS
YES
37636 002001
~221
JMP VAL20
NO
0222 37637 02765~
LOA COMPT,I
LOGl~AL
0223 3764~ 161620
(c)224 37641 ~1044J
AND 6377
0225 37642 003004
(MA,INA
LtNGTH <-

PAGE
~225

0227
0228
0229
1d230
0231
0232
k'233
0234
0235
0236
1d237
023tJ
0239
"'240
0241
0242
0243
{cJ244
{cJ245
02 4 6
0247
kl24S
0249
025",
0251
0252
{cJ253
0254
0255
0256
0257

~101

37643
37644
37645
37646
31647
37650
37651
37652
37053
37654
37655
37656
37657
37660
37661
37662
37662
37663
37664
37665
37666
37667
37670
37671
37672
37673
37674
37675
37675
37676
37677
37700

#k19

COMPILATION AND

141615
~02020

1!121650

161615
027654
161615
001727
171620
001727
002004
001100

VAL20

VAL.19

IeHi'2004

id4162 0
071620
027227
061600
002002
02;675
kl61607

VAL.99

00200J

027675
",60056
071760
060440
015326
"70056
0i1240"

071600
060056
071232

VAl..98

O~COMPILATION

AOA VTMP3,I
S5A
JMp VAL20
LOA VTMPJ,I
JMP \lAL,19
LOA VTMP3,1
AL.F,AL.F
STA COMpT,1
AL.F,AL.f
INA
ARB
INA
ADA COMPT
srA COMPT
JMP vALul
EQU
LOA VLFL.G
SZA
JMP VAL98
LOA USfSN
SlA,RS8
JMP VAL98
LOA P8PTR
srA IFss
LDA ,72
JSB CUSP
STA PBPTR
El.iU •
CLA,INA
srA VLFL,G
LOA PapTR
STA FCORE

•

PHYSICAL LENGTH?
NO
LOAD PHYSICAL LE~GTH
RESET ~HYSICAL, LENGTH TO
OECL.AREO LENGTH ANV
LOGICAL LENGTh TU ZERO
UPDATE:.
COMMON
POINTER
HAS STORAGE
BEEN ALL.OCATED1
YES
NO, ANY 'PRINT
USING' STATEME:.~TS?
NO

YES,

ALLOCATE
spA(';E FOR
FORMAT
STACK
SAY STORAGE
ALL.OCATED
POINTER TO END
Of FIXED TABLES

PAGE 0102 #09

MAlN eXECUTION LOOP

0209*.

•••••••• *.~* •••••••• * ••••
0261**··
•••
0262... EX~CUTe THE PROGRAM * ••
0263 ••• *
•••
~264 •••••••• **.* ••••••• ** ••• **

~260*

0265.

0266*
0267. THE CORE-RESIDeNT fILE BUFFERS fOLLOW THE VALUf TABLEs ONE
0268· RECORO.SIZED BLOCK OF CORE IS ALLOCATED fOR EACH FILE REQUESTED
k'269. IN THE cfILES STATEMENT>. FIVE STACKS EXIST DURING EXECUTION.
0270* sINCE STACK POINTERs ARE ASSUMED TO REfERENCE THE TOPMOST
1d271* ENTRY IN T~EIR STACK THEY ARE INITIALLY SET ONE ENTRY eELo~
0272. THE PHYSICAL START OF THE STA~KJ THUS THE FIRST ENTRY ADVANCES
0273* A STACK POINTER TO THE FIRST WORD Of ,TS STACK SPACE. GOSUe S
0274* QUEUE THElR RETURN ADDRESSES IN THE RETURN STACK, WHICH HAS A
k'275* FIXED LENGTH OF NINt WORDS ALLUCATED IMMEDIATELY FOLLOWING
1t1276* THE FILE BUFFERS, THE fOR.STACK (SlX.~ORO ENTRIES) CONTAINS
0277* ALL INFORMATION PERTAININ~ TO AcTIVE FOR.NtXT ~OOPS, INITIALLY
ra278* EMPTy, ITS CORE SPACE IS ALLOCATED DyNAMICALLy AS NEEDED. THE
k'279. TEMPORARY STACK HOLDS INTERMEDLATt RES~LTS DURING FORMULA
k'28k'* EVALUATION' IT IS INITIA~llEO TO HOLD TEN rEMPU~ARIES AND
0281· EXPANDS OYNAMICALlY AS NECESSARY, THE OPERAND AND OPtRATOR
0282* STACKS FOLLOW WITH THEIR ONE"WURD ENTRIES OccUPYING ALTERNATE
02 83. LOCATIONS, EXPANDING INTO FREE USER SPACE UN A DEMAND 6A815,
0284* THE TOP OF THE OPERATOR STACK, ALWAYS AT L~AST ONE WURO AHEAD
0285* OF THE OPERAND STACK, IS P6PTR SO·THAT ALL ACTIVE USE~ SPACE
0286. IS KEPT wlTHIN THE SWAP REGION. slN~E ALL STACKS EXCEPT THE
0287. RETURN STACK EXPAND DYNAMICALLY' STAlIC AND DYNAMIC NESTING
k'268* UF FORMUL~S ANO FOR-NEXT LUOPS IS FREELY PE~MITTEO UP TO
k'289. THE tXHAUSTION OF USER SPACE.
02ve*
0291.·
0292*.* INITIALIZE EXECUTION * ••
0293.*
0294.
1d295* PRINT THE PROGRAM NAME. INITIALIZE fILE STATUS INFORMATION
0296* IN THE FILl lA~LE AND NOTIFY USER OF ANY REQUESTED FILES
0297* WHICH ARE REAO~ONLY, ALLOCATE A b4 WORD bUfFER fOR EACH ~lLE.

.*.*

0298*

0299.
030"*
0301
j()302
03 0 3
0304
03 0 5
0306
0307
0308
0309
03111'
0311
0312
0313

ALLOCATE RuN.rIME STACKS, INITIALIZE POINTERS TO THE OArA
AND MOVE TO A fRESH TELETYPE LINE.

377~1 002 4 00
37702 17~634
377 0 3 114534
37704 16064 0
377135 170634
37711'6 1602!$7
37707 e1044fi
37710 071252
37711 e020~3
37712 027720
37713 HJJ 1IiHd
37714 120257
37715 170257

XfC

CI..A
STA DeLe1,l
JSB ABCK,l
LOA OCI..C2,I
STA oelC1,I
LOA MAIN,l
AND CHNFG
STA TE.MP2
SZA,RSS
JMP xECk'Jl
CI.F 0
XOR MAIN,I
STA MAIN,!

~LOCK,

t;LOCK
CLOCK
ABORT ATTt.MPT DURING COMPIL.E?
NO"'·UNBlOCK
CL.OCK
SAVE CHAIN FI,.AG
wAS THIS PROGRAM CHAINED T01
NO
yES
CLEAR
CHAIN fLAG

PAGE 0103 #09
1a314
1d31~

0316
1d317
0JltS

0319
032 0
0321
0322
0323
0324
0325
0J26
0327
032tS
0329
0330
0331
0332
0333
0334
0335
0336
0337
0338
0339
~341d

1(2341
0342
0343
0344
0345
03~6

0347
1r:134tS
0349
0350
03f>1

0352
0353
1(2354
0355
1tJ356
0357
035tS

0359

0360
03 6 1

0362
03()3
0364
0J6!5
0366
0367
0368

J7716
37717
37720
37721
37722
31723
37724
37725
37726
37727
377313
37731
3773 2
37733
37734
37735
37736
37737
37740
31741
37742
37743
37744
37745
37746
377 4 7
37750
37751
37752
37753
37754
37755
37756
37757
37760
37761
31762
37763
37764
37765
37766
37767
3 777 0
37771
37772
37773
37774
37775
37776
37777
40000
4"801
40002
40003
40004

MAIN tXECUTION LOOP

102100
0277J4
060364
015454
061571
071430
002004
16000iC'J
002003
027134
006400
075274
06 0 347
015462
00240!i1
071502
1371242
07H>11
071773
065504
055576
027777
035!502
061252
002002
0277 5 3
160001
01d202~

124451
061036
044356
170001
1d44347
160001
001423
170001
044361
015326
070056
170001
00601d4
170001
00 6 00 4
002400
170001
04435e
17 0 001
01d6004
027742
0615(62
0020ii'l3
020017
060444
103100
130257

STF 0
JMP XECIO
XEC01 LOA ,+128
JaB OUTCR
L.UA ,,"NAME.
STA LT1
INA
LOA 0,1
SZA,RSS
JMP xEC0
CLB
STB LT2
LOA ,"J
JSB OUTST
XEC0 CLA
STA FCNTR
alA RTNST
aTA ENOUF
STA ASIN~
LOB FIL.Tti
XEl;2 cPa VALlS
JMP XEC4
ISZ FCNTR
LOA TEMP2
SZA
JMP XECJ
l.DA l , I
SSA
JMP XE(';51,1
xEC3 LOA BIT15
ADB .+4
STA B,l
ADB •• 3
LOA B,l
ALR,RAk
STA B,l
ADa ,+7
JSB CUSP
STA PBPTR
STA 1,1
INB
STA 1,1
INS
CLA
BlA 1'1
ADB , ... 4
STA 1 rI
INB
JMP XEC2
XEC4 LOA FCNTR
SZA,RSS

JMP XEti

l.DA OFCHK
CLF 0
IuR MAIN,I

DON IT PRINT NAME
ECHO
'LINE fEt.D
NULL
NAMf;.1
YES
NO
OUTPUT
PROGRAM
NAME.
ZERO
FILE COUNTER
AND MESSAGE fLAG
TUjo(N UFF OV~R/UNOERFLOW
8ET NO ASSl~N PRUCEBSEO
LOAD ADDRESS OF FILE TABLE
DONE?
YES

NO, COUNT FILE
WAS THIS PROGRAM CHAl~ED T01
YES
RE.AD
ONLY?
YES
NO
SET NUl.L
RECORD ADORESS
GET ~ECORD
SIZE ANO
CI..E~R BITS 14 AND 15
AND STICK BACK IN FILE TA~LE
ALLOCATE
BUFFER !-OR
THE fILE
SET
'RECORD F:Jl.L.'
CONDITION
SET
'NU fur ExIT'
~ONOI110N

POINT TO MA~K
CLEAR PROTECT MASK
POINT TO NEXT ENTRY
ARE THERE
ANY FILES?
NO
YES, SET
POSsIBI..E ;)lRTY
fILES Bl1 IN

PAGE 0104 #09

MAIN EXECUTION LOOP

0369 40005 170257
0370 40006 102100
0371
40007 061252 XfC9
0372 40010 002002
0373 40011 026020
0374 40012 (.:')60367
0375 40013 015454
0376 40014 060364
0377 40015 1!l154!)4
0378 40016 060364
0379 4'''H 7 015454
0380 40020 0640~6 XEC8
0381
40021 044351
0382 40022 075240
0383 40023 015242
0384 40024 l/J44356
0385 40025 07524fi
0386 40026 015432
0387 40021 065577
0388 401430 015360
0389*
0390*· EXECUTE STATEMENT
0391.

0392.
0393.
0394·
0395.

MAIN,l
0
TEMP2

WAS THIS PROGRAM CHAINED T01
yES
NO, OUTPur A
CA~RIAGf HE TURN
AND
TWO
LLNf FEEDS

XEC8
.+158
JSS OUTCR
LOA • ·H2B
Jsa OUTCR
LOA .+128
JS8 OUTt;R
LOB PBPTR
ADS ... 1
STB RTRNQ
ST6

TTY TABtE

SET POINTERS TO
TOP ANI.) BOTTrJM
Of RETURN STACK
SET
EXECUTlON
POINTERS
SET POINTERS TO
Fl~ST ~DATA STATEMENT>

~TNST

ADS .+4

STt; FORQ
Ja 8 sETPT

LOB SPROG
JsB sETDp

•

••

•

SAVE SEQUENCE NUMBER FOR POSSIBLE USE BY ERROR ROUTINE,
ADVANCE PROG~AM COUNTER TO NEXT STATEMENT ANU 6HANCH TO
CODE FOR EXECUTION OF ~URRENT STATtMtNT,

0396.
0397
0398
0399
0400
0401
0402
0403
0404
0405
0406
0407
0408
0 40 9
0410

40031 065334
4~032 160001
40033 07157",
40034 06016el
4161635 002160-4
40036 160000

00411
04 1 2

"10664

0413
0414
0415
04 1 6

SlA
STF
LOA
SZA
JMP
LOA

XECl

416037 1615556
416040
40041
40042
40043
4161644
40045
40046
4lde47

060001
0021604
144000
1675334
00200"
07161~

161613

4id05e fd01727

40051
40052
40053
40054

0013011.1
04377(6
071234
12400'"

LDB PRGCT
LOA 1,1
STA .LNUM
LOA B
INA
LOA A,l
JSB STLCK
L.OA 1
INA
ADS 0,1
5T8 PRGCT
INA
STA TEMPI
LDA TEMP1,I
AND OPMSK
AL.F,AL.f
RAR
ADA XECBR
STA rolL.EJMP 0,1

0 .. 17.

041t'*· OUTPUT READ.ONLY
0419.
0420 40055 075240 XEC5
41{)056 ~6427J
0421
0422 401657 044341
0423 40060 160001

~ARNING

STB
LOB
AD8
LOA

SAVE CURRENT
SEQUENCE
NUMBER
CHECK
STATEMENT
L.ENGTH
COMPUTE
AODRESS
Of NEXT
STATEM,NT
SET INTRA.
STATEMENT POINTER
COMPUTE
BRANCH
ADDRESS
fOR CURRENT
STATEMENT TYPE.
SET 'NO FILEI FLA~
eRANCH TO APPROPRIAT~ ROUTINE

.*

•

RTRNQ
SAVE (B)
MLINK+l
,+11D.1l.1NK
1,1
GET 10

PAGE 0105 #09
10424

1d425
0426
0427
1d42ij
0429
",43121
0431
10432

043J
0434
0435
04 3 6
0437
043ij
0439
16440
1d441
10442
0443
0444
0445
121446
0447

40061
40062
4"'063
40064
40065
4012166
40f667
412107",
40071
40072
401.373
40074
4 00 75
412112176
40077

MAIN EXECUTION I.OOP
AND M2000
CPA Af600
JMP XEC7
ISZ RTNST
JS6 WERHS+8,I

12110732
,,50612
0261f67
0315242
115217
00340ftJ
071242
1216121415
015454
1061502

ceA

0403~0

002121210
0261121J
12160433
1015454

4~H1t}0

06 1e02

401101
41d102
40103
4121104
4011215
40100
40107
40110

0~0420

002001
1d40436
0115454
1216121412
015454
06524fa
12445111

XEC6

XlC 7

STA
LOA
JSB
LOA
AOA
SSA
JMP
LOA
JSB
LOA
ADA
RSS
ADA
JSB
lOA
JSe

RTNST
,+4036
OUTCR
FCNTR
,.110
XE;(.:6
,+61 6

OUTCR
FCNTR
,+466

,58
OUTCR
,+406
OUTCR
LOB RTRNQ
JMP XE C3 1,1

IS IT
AN 'A'1
YES
NO, FIRST TIME THROUGH1
YES, ~MIT MESSAGE
SET FI.AG fOR
MESSAGE SUPP~ESSION
OUTpUl
A ,#,
OUTPUT
F U.. E .>91
NO
YE.S
OU1PUT A , 1 '
OUTPUT
SECOND
DIGIT
OUTPUT SlNGL.t:. DIGIT
OUTPUT
6LANK
RETRIEVE. (8)

PAGE

01~6

#1~

STATEMENT EXECUTION

0003 ...... ...

13004 ... *

""e5
. . *.
0086.

EXECUTE 

0007

4 0 111 0 02 404

4 0 112 "7 1 472

ELET

40113 k)15336
41d114 026031

EXECUTE cIF STATEMENT.

"01 ...... *.
8fU5*
0016 40115
0018

40117 03~236
40120 036613
40121 165613
40122 175236
40123 02603!

0024
0025
0026
0027

0028
0029

0030
0031

ISZ
JaB
ISZ
lSI
LOB
STa
JMP
OLD

03~61J

40116 01550€)

0020
0021
kJ022
0023

40124 10"'200
40125 10161"
40126 "54650
40127 002020
40130 002405
40131 02611~
401J2 071472
40133 015356
40134 0020eJ
40135 026031

0034**

tIt.

TEMPI
VL.FIL.
F8ASf.
TEMPI
TEMPt, I
FBASE,I

xECl

TEMPl,1

CpS ENOOP
S8A
eLA,INA,RSS
JMP EIF1
STA EOL
JaB FETCH
SZA,RSS
JMP XECI

0032.
itfi33*"",*

••

*.

0017
0019

ALLOW STRlNG CONSTANT
IN FORMULA
EVALUATE
FORMUI.,.A

CLA,INA
STA EOt..
JSB FORMX
JMP Xf.Cl

"''11 ...
0112 •••
0013.*

**••
tIt.

0008
0009
0010

PkOC~SSORS

EXECUTE  1
YES
NO, STACK
RETURN
ADDRESS
NESTING

<~OTO

JMP
LOA
lSZ
STA
LOA
ADA ,-10
10
CpA RTRNQ
DEEp?
JSS RERRS+15,1 YES
JMP XEC1+1
NO

0074 •• EXECUTE cFOR STATEMENT>
0075 •••

,,,.76*

PROCES~ORS

**
**
**

EFOR0 CPS fORST
JMP EfORf>+l

srA

ST8
LOB
AOB
LOA
ADA
JSB
LOA

EFN0

DEST
FORST
+6

~EST

,.6

MOVER
EFNIrJ
JMP EFOR5
EFOR LOA TEMPI,!
AND B717
STA FYl
AL.S
ADA SYMTB
AUA .-1
LOA fdrI
LOB FORST
EFORI CPS FORQ
JMP EFO~2
CpA 1,1
JMP EFOR0
ADe ,-6
JMP E.FORI
EfOR2 LOB FORST
ADe ,+6
JSS SETPT
STA FORST,!
JSB FORMX
LOA FORST
INA
SlA EFN0
ADA ,+2

TOP E.NTRY?
YES
NO, SAVE CAl
SET DESTINATIO~ ADDRESS
COMPUTE MOVe.
TERMINATION ADDRESS
COMPUlE
SOURCE ADURf.SS
Df.L~TE fOHoTABLf ENTRY
RETRIEVE (Aj
EXTRACT
ANU SAVE THt:.
FOR",YARIAbLE.
COMpUTE
ADDRESS
OF ITS
VAL;JE
LOAD POINTER TO FOR-STACK
AT BOTTOM Of FOR~STACK?
yES
NO, ENTRY FOR THIS FOR"'VARIABLE1
YES
NO, CHECK
LOWER ENTRY
MOVE TO SPACE
~OR ENTRY
RESET EXECUTION POINTERS
SAVE ADORfSS OF VALUE IN ENTRY
INllIALIZ~ fOR~VARIABLE

SAVE POINTERS TO
ENTRY FO~
LIMIT VALUE
AND

PAGE 0108 #10

STATEMENT EXECUTION

~111

40236 "-171424

01 1 2

4 0 237 040354
40240 065334

0114
0115
0116

40241 174~01d
4 0 242 015356

0113

0119
0120

40243 104400
40244 101422
40245 061~13
40246 051334
40247 026304
4 02 5 0 015356

0121

40251 104400

0117

0118

0122
"-1123
0124
0125
0126

0127
012a

0129

0130
fcU31
0132
01 33
0134
0135
0136

0137
~138

40252 101424
40253 006400
40254 002020
4 0 255 007400
40256 0715426
402 57 03ijJ34
40260 0653J4
40261 006004
40262 160001
40263 071366
40264 10344351
40265 144001
40266 010664
40267 050646

40270 002001
40271 026261
40272 021366
40273 0fJ1430

0139

40274

0020~1

0140
0141
0142

40275
40276
40277
40300

026261

0143

0144
0145

0146
"'1 47
0148

0443fi1

075334
165250

40301 104200

40302
40303
40304
4030 5
40306

Ul0001
026346

06104"
"'6435'-

026252

PROC~SSOkS

STA EFNl
ADA ,+2
LDe PR('yCT

sr8 0,1

STEP SIZE
SAVE ADDRESS OF
FOLL.OWlNG STATEMENT
IN ENTRy
COMPUTE AND SAVE
. LIMIT VAL.UE

LOA TEMP1

IMPL.ICIT
STEP SIlE?

Jse FETCH
D$T EFN0,1
CPA PRGCr
JMP EFOR6

Jae

FETCH

EfORJ OaT EF N1,1

CL8
SSA
et8
81'S EFN2

lSZ PRGCT
LOB PRGCT
EFOR4 INS
LDA 1,1
STA EFNJ

ADa

,,,1
A08 1,1
ANO OPMSK
CPA NXTOP
RSS
JI'tP EFOR4
XOR ~FNJ
CPA FVT

RIS

JMP EFOR4
AOB ,OIl
8Te PRGCT
LOB FORST ,I
01.0 1,1
JMp
Ef'OR6 LOA
LOS
JMP

.14,*
rute**·

ENEXJ

HALF
,+2

EFORJ

yEI

NO, COMPUTE STEP SIZE
ANIJ SAVE vAL.UE
SET SIGN fLAG
TO OIl FOR
NEGATlvt STEP SIZE,
o FOR POSITIVE STEP SIZE
L.OAD
TYP~ WORD OF
STATEMENT FOL.L.OwING
THE 
SAVE IT.
COMPUTE POINTER
TO ITS SUCCESSOR

cNEXT

STATEMENT" -:
yES
NO
SAME
FOR.VARIA6LE1

YEs

NO

sET PROGRAM COUNTER
PAST 
LOAD
INITIAL. VALUE OF
FOR-VARIABLE
LOAD
DEFAULT
OF 1,0

**

0151** EXECUTE  **
0152**.
**

011J.

0154

0155
01 56
0157
0158
0159
0160

0161
0162

411)307 161613
40310 010502
40311 0"1000
40312 1d41575
413313 040351
04 0 J1. 168il0
413315 065250
413316 055246
40317 1626taJ1

ENEXT L.OA
ANO
ALS
ADA
AOA

TEMPt,l
8777

aYMTB
,OIl

LI)A i,I

Loa FORST
CPS FORQ
JMP XECl

EXTRACT

FOR.VARIABL.E
COMPUTE
AODRe:SS
Of ITS

VALUE

LOAD POINTER TO FOR~STACK
BOTTOM OF STACK?
vES, IGNORE STATEME~T

PAGE

0163
1t1164
1"165
0166
0167
(rH6S
0169
0170

"'171
0172
0173
0174
0175
0176
0177
0178
0179
0180
0161

0162
0183
0184
0185
kH86
0187
0186
0189
0190
0191
01 9 2
0193
0194
0195
0196

~109

41£13212!
4 0 321
40322
40323
40324
40325
40326
40327
40330
40331
40332
40333
4 0 334
40330
40336
40337
4 0 340
40341
40342
40343
40344
40345
40346
40347
40350
40351
40352
40353
40354
40355
4 03 56
40357
40360
41t1361
40362
40363

#10

SlATEM~NT

CPA
JMP
A08
JMP

150001
°2 6 324

({J44344
026310
071424
1055250
026331
015432
065250
006004
07e)422
044354
06 0 35 0
071426
104~00

100001
002°2"
035426
015402

HH424
104400
H11424
015404
101422
035.426
011H 6016
002~20

026301tl
061250
{140357

164 000

02603~

065250

1044344
015432
026031

EX~CUTION

ENf:.A2

srA

CP8
JMP
JSB
LOB
IN6
$T8
A06
LOA
SlA
DLD
8SA
lSZ
JSB
OEF
OST

PROCESSURS

1,1
ENEX2

,.6

ENEXl

EFNl

FORST
•• 3

SETPT
FORST

EFNft)

,.2

EFN2
1,1

SET SIGN FLAG TO SAY
POSITIVt: STEP SIlE
LUAD STEP SilE

EfN2
,FAD
EFN 1,1
EFN1,1

POSITIVE?
NO, HESEl SIGN FLAG
Al>O STEP SIZE
TO VALUE. Of FOR"VARIA6L~
SAVE. NEw VALuE

,-2

JaB
Of.f

ISZ
fl.. A

SSA
..IMP
LOA
ALIA
LOB
JMP
ENEX4 LOB

NO, MATCHING f.NTRY?
YES
NO,CHECK
LOWf:,R ENTHY
SAVE fOR.VARIABLE VALUE Al>DRESS
TOP ENTRY of fOR-STACK?
YES
NO, REsET
EXECUTION POINTERS
SAVE. ADDRESS
OF L.IMIT VALUE

ENEX4

FORST
,.6
0,1
XEC1·1
FORST

ADa ,_6

JSB SETPT
JMP xEC1

SUBTRACT
LIMIT VALUE
IF STEP SIZt POSITIVE,
INvERT SIGN OF RESULT
LIMIT vALuE tXCEEDED1
YES
NO, LOAD ADDRt:.SS
OF STATEMlNT
FOLLOWH1G THE.

Rf,MOVE
ENTRY FROM
FOR .. STA(.K
SKIP PA3T 

1It197*
0198***
0199** EXECUTE 
0200***
.,a81*
0202 40364
0203 40365
0204 40366
0205 40367
°2 06 4 0 370
0207 40371
0208 40372

1152a9.
0210***

061242
051240
115126

1641rJ00
04 0 351

071242
026032

ERTRN L.UA
CPA
JSB
LOS
ADA
STA
JMP

RETURN STACK
RTRNQ
EMPTY?
Rf,RRS+16 rl YES
0,1
NO, POP
RETURN ADDRESS
FROM STACK
RlNST

••

0211** EXECUTE  .*
1212***
**
.1I21J*
0214 40373 002400 EINPT C~A
0215 40374 07150~
STA MCNT

TURN OFf
MATRIX INPUT COUNTER

°2 1 6

4 0 375 071460

0218
0219
0220

40377
40400
40 4 01
4040a
4040J
4041(t4

~217

"'221

rtl222
0223
0224
0 22 5
0226
0227
022a
0229

4k!J76 002400
071472
015446
035422

0i341e
051460
02641D

40405 015336
4 0 4 0 6 1653J2

40407
40410
40411
40412

006020
026521
061332
04035e

~230

40413 071332

0231

0233

40414 075574
40415 002400
40416 071a66

0234
il2J5

40417 071354
40420 0264a4

0236
0237

40421 075266

~2J2

il23a
0239
0240

40422 015446
40423 035422
40424 015450
40425 026422

EINPl STA
CLoA
STA
JSB
EINP2 Iaz

ceA
CPA
JMP
JaB
Loe

sse

JMP
LOA
ADA
STA
8T8
fINPJ CL.A
STA
stA
JMP
sta
JSB
I8Z
Elt-4P4 JaB

INlTF
aYNTQ
INCAI..
IF(;NT

MATRIX

INITF
EINPJ
FORMX
OPDST,l

fIN1J
OPUST

,-a

OPOST
saPTR

SIGN
INTMp

flNP4
SIGN
INCA!,.
IFCNT
GE'tCR

JMp •• 3

tee

0241

40426 00740"

0242

40427 075474

s18 SERR

~24J

40430 050427

0244

40431 026506
404J2 006404
40433 050425

CPA .+45
JMP EINll

0245
0246
0247
024~

0249
0250
0251
02~2

0253
0254
0255

40442 0J55a0
40443 002001

RSS

0267

02 68
16269

40462 0b0367

0270

40463 015454

1d259
0260

0261
0262
0263

V:l264
1d265
il266

CpA ,+43

40437 11'26415
40440 064412
40441 07557.3

40436 026471

416444 127773
4 0 445 065613
40446 055334
40447 026512
41d45 0 k1J54i'4
40451 026456
40452 050367
40453 026400
41d454 050426
40455 026465
40456 115207
40457 r165422
40460 0kl6004

0256
0257
I/}258

Cl.S,INB
JMP
EINPf5 J38
Jf1P
JMp
EINP6 L.OB
ST8

40434 026506
404J5 01527Ci

4 0 461 015456

fIN11
NUMCK
EINP7
EINp8
,+40B

BLANK
18Z MCNT

JMP
fINP0 L.DB
CPS
JMP
18Z
JMP
CPA
JMP
CpA
JMP
EINP9 JSB
L.oa
INS
JSB
L.OA

SAVE ADDRESS FLAG
Rf.QUEST
FlkST
lNPUT RECORO
COUNT INPUT QUANTITY

1'l10fN,r
TEMP1
PRGI;T

EIN12
SERR
EINP9

INPUT1

YES

NO, EVA~UATE NEXT ADDRESS
IS IT A
STRING VARIABLE1
YES
NO,
UNSTACt<
ADORESS
SAVE DESTINATION ADDRESS
SET SIGN
TO POSITIVE
fLAG REQUEST fOR NUMbf.R
RESET SIGN TO

POSITIV~

FETCH
FIRST
CHARACTER
TURN OFF
OVER/UNOERFLOW FL.AG
,., 1

YES
NO
'.' 1

yES

NO, NUMBER?
NO
BAD EXpONENT
TURN ON
BL.ANK SUPPRESSION
~ATRIX COMPLETED1
NO
YES
B

NO, END OF INPUT RECORD?

EINP2-1

yES

,+548

NO, Co"tMA Nt-XT?

fIN1'"
WERRS,l
IFCNT

YES
NO
oUTPUT NEXT
ITE.M
NUM8ER
OUTPUT
CARRIAGE RtTUHN

QUlIN
,+158
JSB UUT(;R

PAGE
0271
0272
0273

0274
0275
0276
0277

0278
0279
~280

.,281

0282
.,283
0284
02 8 5
0286

0287
0288
0289
029~

0291

0292
0293
0294
0295
0296

10297
1cl29a
1cl299
16300

0301

03°2
0303

0304
0305
0306
0307

0308
0309

0310
0311

0312

0313
0314

.,31e>
0316
031 7
0318

0319
Idj20

0321
"'322

0323
"324

0325

~111

.1~

STATEMENT EXECUTION PHOCES80kS

40464 026400
40465 1015 4 5 Vl
40466 026456
40467 015452
4047~

026401

40471
40472
4°47 3
40474
40475
40476
40477
40500
40501

050414
026475
055266
~26424

115207
065422
015456
060367
015454

40502 006400
40503 055354
40504 026421
40505 026535
40506 075266

40507 1015450
405110 026475
40511 026435
40512 050367
40513 002401
40514 115216
40515 071572
40516 06 03 6 4
40517 ~15454
40520 0~6031
40521 ~070"'"

40522 160001
4 0 523 0°1 7 2 1
40524 ~10443
40525 0",3000
40526 14133'0
41(.1527 071410
4053", 003400
40531 015344
40532 065406
40533 075354
40534 026537
40535 015446

40536 035422
40 5 3 7 01 5 4 5 0

41d54ft) 026535

4ic1541 007400
4~542 1r17!S474
41i!J543 050414
4lc1544 0102001

40545 015452

40546
410547
40550
41i!J551

0(66400
07557J
ft)oJ172

015350
40552 006400

JMP EINfoJ2 .. 1

fIN1" JSB GETeR
JMP EINpg
JSB BtKSP

JMP EINP2
EINP7 CPA ,.-421;;
JMP EINP8
CPI:t SIGN
JMP EINP4
EINP8 JSB WERRS,I
I..oa IFCNT
JSB OUliN
1..0A • .-15B

JSB OUTCR
CL.S
cpa INTMP
JMP EINP4.3
JMP EIN14
EINll STa SIGN
JS" GEfCR
JMP EINP8
JMP EINP5
EIN12 CPA ,.-UH;
CI..A,RSS
JS6 wERRS.-7,I
STA CHRCT
1..0A ,+121;;

Jsa OUTeR
JMP xECl
EIN1J eMI;;
LOA 1,1

AI..F,AI..F
AND B377
CMA
ADA TMPST,1
STA IPRME
eeA
JSB PSTR

1..06 Tf'olULL

STB
JMP
EIN14 JSB
lSI

INTMp
• .-3

END Of INPUT RECORD?
yES
NO
" 1

YES

NO, SIGN FOUNI)?
NO, lwNORE CHARACTER

YES
OUTPUT
ITEM NUMSt::R
OUTPUT
CARHIAGE ~ETURN
NUMIH.R
REQUESTED?
YES
NO
SAVE SIGN

END of RE(;OHD1

YES

NO
ZERO CHARACTER COUNT
OUTPUT A
LINE Ft.ED
EXTRACT
PHYSICAL
LENGTH OF
DfSllNATlON STRINw
sET It AS END
OF UNSPECIFIED
DESTINATION STRING
PREpAHE
DESlIN~TION

SAVE L.ENG1H
AL.L.OWANCE

INCAL.

eca

FETCH
FIRST
CHARACTER
TURN OFf

RSS

YES

IFeNT

JBe wETeR
JMP •• 3

STa SERR
CPA .+42B

JSe BCKSP
tIN17 eLt5
ST8 BL.ANK
LOA FINCA
",56 TRSTR
cL.a

STRING

OVER/UNOERfL.O~

FLAG

" 1

NO, STRING BEGINS HE~l
TURN OfF
8~ANK SUPPRESSION
POINT TO INPUT BUFFER
THANSt-E::R STRING
AL.l. REQUESTED

PAGE 0112 #10
0326
0327
0328
~329

0330
0331
0332
0333
0334
~335

0336
0337
033d
0339
k1340
03 4 1
0342
0343
0344
0345
0346
0347
034tJ
0349
0350
0301
0352
~353

0354
0355
0356
0357
0358
0359
0360
0361
°3 6 2
0363

0364
0365.

40553
40554
40555
40556
40557
40560
40561
40562
40563
40564
40565
40566
4 0 567
40570
40 571
40572
40573
421574
40 575
40576
40577
40600
40601
40602

406fd3

SfATEMtNT EXECUTION

055406
k'26600
055464
026574
071354
003400
071410
041406
071406
060600
015350
061354
05°367
026440

01 5 4 5 0
000000
026440
165260
04e406
17'2e~

026567
0554154
026607
015450
026440
050414
026571
026602
015450

40604
40605
40606
40607
40610 026440
40611 050414

40612 026671
40613
40614
40615
40616
4°617
40620
40621

0613~4

cpa TNUI..L
JMP EIN21
CP8 PSl
JMP EIN21r!1
sTA INTMP

ceA

STA
AOA
STA
I..DA
JSB
LOA
EIN18 CPA
JMP
EIN19 J8B
NOP
JMP

fdJ80

EI NP6
GETtR

EINP6

TNUL.l.
TEMP6,!
fINI8
PSI
EIN15
GETeR
EINp6

EIN1S JSB
JMP
CPA
JMP
LOA

GETtR
EINP6

,+428

JMP EIN1~
JHP EIN16

.+428

EIN19
lNTMP
srA TNULl.
I..L>A SaPTR
srA TEMP5

071406

061574
071212
06 0 4 1 Z

1..0 A

.+~(4a

BJ..ANK
JMP EINP8

071573
026475

STA

5TATEMENT~

CHARACTERS TRANSFERREO?
yES
NO, TR~NSfER LENGTH SPECIFIED?
NO
YES, SAvE (A)

FINISH
TRANSFEH
WlTH BI..ANKS
RESTORE (A)
TRANSfER END~D BY ENO.OF-INPUT1
YES
NO, WAS A "
EXIT WITH
NEXT CMARACTER
SET L.OGICAI..
TO ACTUAl.
STRlNG I..ENGTH
I..ENGTH OF TRANSFER SPECIFIED?
NO
YES
IMpL.IED CI..OalNG QUOTE
" ?

yES

NO, 1..00K ~OR ~ OR ENC.OF.INPUT
ENO.Of.lNPUT N~XT1
YES
NO, CL.OSING r. ?
YES
NO, DESTINATION STRING EXCEEDED
RESTORE
DESTINATION STRING
PARAMETERS
SET TO
sKIP BL.ANKS

••**
**

~J6~.

40622 015tj~6
40623 1d2664k)
40624 0153J6
4~625 161332

EHEAD JoS8
JMP
JSB
LOA

40626 01212'12121
4121627 (426644
412163!d 071574

SSA

~a6Jl

.+15 8

ADS
ST8
JMP
EIN21 CPS
JMP
EIN16 Jle
JHp
CPA

0~t8.**

0372
0J73
0374
fd315
0376
0377
0378
0379

TPRME
TNULL.
TNUI..I..
FStHA
TRSTR
INTMP

1..08 TEMP6,I

03&6.**
0367** EXECUTE 
0004***

ee05.

0040

4 0 653
40654
416655
40656
40657
406 6 0
40661
40662
40663
40664
40665
40666
40667
40670
40671
40672
40 6 73
40674
40675
40676
40677
40700
407111
40702
40703
40704
407v.15
40706
411707
40710
40711
40712
4 0 713
40714
40715

0041

40716 026673

0006
0007
0006
10009
0010
10011
0012
0013
1d014
0015
0016
0017
0016
0019
0020
0021
0022

0023
0024
0025
0026
0027
0026
0029
0030
0031
0032

0033
0034
0035
0036
00J7
0036
.,039

002404
015554
00240id
071756
015506
02 7 01 7
v.126671
061234
002021
026670
002400
051472
161~430

003401

16024016
071472
161 6 13
I,U07010

002002
026722

035e13
06fS613
0:'>5334

EPRLN ClA,INA
JSB EPRUS
CLA
SlA FFL"
JSS VlFIL
JMP EPR1J
JMP t.PRl2+1
EPRI1 LOA FILE#
SSA,RSS
JMP EPRI2

CL.A

CpA Eol..
JSB EUeL.M
CCA,RSS
Cl"A
STA EOL.
[PRI3 L.OA TEMP1,l
AND OPDMK
SZA
JMP EPRI5
lSZ TEMPI
EPR14 L.oa TEMPl
CpS PRGCT

0~1014

JMP EPR12

HH613
010 6 64
050612

LOA
AND
CPA
JMP
CPA
JMp
CPA

1d266b2
05 0 6 14

0266710

050445
026746
05 0 65 0
027006
002003

TEMP1,!
OPMSK
8216160

EPRl1
B30fc10
EPRI2
B101tJ0
JMP EPRI8
CPA ENOOP
JMP EPRll
SZA,RSS
JMP EPRIJ

NUMBER
STORE NuM8E~
END Of
STATEMENT?
yES
NO
PREPARE
SOURCt. STRING
PREpARE
DESTINATION STRING
TRANSfER

ST~lNG

FLAG AS 'PRINT'
CHECK fUR USING STATEMENT
fL.AG AS
NON.FORMATTED
VAL.IOATE rlL..E ~EQUEST

NO fILE REQUEST fOUND
flL~

MOOt?
YES
NO, EXECUTE COMMA
UNL.Ess PRECEDED By
A nAS' (EoL. .. 1)
TURN OfF 'ENO.Of.I..INE' FL.AG
TURN ON
'ENO-OF·lINE' fLAG
EXTRACT
NEXT OPERANO
NU",,,,1
NO, BEGINS fORMULA
YES
STATEMENl
fINISHED?
YES
NO, EXTRACT
NEXT OPERATOR
COMMAl
yES
NO, SEMICOLON?
yES
NO, " ?
YES
NO, 'END' 1
yES
NO, NULL?
YES

PAGE
0042
01643
0044
0045
0046
0047
004~

0049
00516
160 5 1
0052
0053
13054
0055
0056
0057
0058
I"cHc)59
13060
0061
0062
[d06J
0064
16065
01666
0067
16068
00 6 9
16070
0071
0072
0073
0074
0075
0076
0077
131678
0079
16080
0081
0082
0083
0084
0080

00 86
0087
16088

~114

40717
416720
40721
40722
40723
416724
40725
40726
40121
40731.1
40731
40732
40733
40734
40135
40736
40737
40740
40741
40742
40743
40744
40745
40746
4 0 747
40750
40751
40752
40753
40754
40755
40756

#11

STATEMENT

00340k:l
1641613
071613
003400
071472
015330
166332
16061320
026747
015376
1661234
1302021
1626742
035472
0267010
104200
100001
~15420
0267~0

1.175574
064350
015512
026700
0 Hi340
06 0 Je lD
!cH5l44
071256
075410
064347
061234

1602021
1626744

40757 002400

41fl760
40761
4 0 762
40763
40764
40765
40766
40767
40770
416771
40772
40773
416774
40775
40776

1671472
061406
003 0 04
1641572
1643774
002021

41000

015454

015426
02700J

015364
0604~2
~50370

06 0 364
050371
002001

1i10 69

027 002
40777 0 6 0367

10092

41001 002400
41002 015454

0090
0091

0093
0094
0095

41003 035406

41004
41005

({!2677~

WJ267~0

~XECUTION

PROCESSO~S

CtA
ADA TEMPI
STA TEMPI
EPRl5 etA
STA EOL

JIB FORMX
I.DB OPOST,1
sse

JMp EpR18+1
JSB OPCHK
LOA F H.e:.
SSA,RSS
JMP EPRI7
181 EOL
JMP EPRI4
01..0 1,1

NO, MUST BE FORMUI.A
RESET TO PRIOR
NULL. OPERj.NO
TURN OFF

'TAB' FL.Ai
EVAL.UATE FORMULA
18 IT A
STR1N~ VARIASLi1
YES
NO, UNSTACK VALUE ADDRESS
TO BE wRITTEN
ON A FIL.E.?
YE3
NO, A 'lAB' '1
YES (tOI.. • 1 NO~)
NO, OUTPUT

JaB ENOUT

JMP EPR14
EPRI7 STB SBPTR
L.OB ,-2
JIB FII..5T
JMP EPR14
EPR18 JIS STSTR
1.0A ,-2
JIB PSTR
STA TEMP4
S18 TPRMf
1.08 -3
L.OA 'lL.E.
SSA,RSS
JMP EPR17+2
Ct.A
STA EOI.
1.0A TNUI..L.
CMA,INA
ADA CHRCT
ADA M74
8SA,RSS
JSe OUTL.N
JMP EPR10

EPRI9 JSB
LOA
CPA
LOA
CPA

FSCH
,+ 40 6

,+108
,+126
.... 1713

RBS

JMP E.PR10 .. 1
L.OA ,+1513
J88 OUTeR

CLA
JaB OUH;R

EPR10 lSZ TNUI,.L.
JMP EPR19
JMP EPR14

A

NUMeE~

SAVE VALUE ADDRESS
WRITt. NUMBER
ON FU.E
STACK STRING CONSTANT
PREPARE
PRINT
STRING
TO WRITE ON F1LE
TO BE WRITTEN
ON A FIL.E?
YES
NO, TURN ON
'ENO.OF~lINE' FLAG
~R~SET

E.NOU~H

SPACE
UN
CURRENT
LINE?
NO
yEs
FETCH
CHARACTER
PSUEUU L.INE FEED?
YES
PSUEUO C.RRIA~E RETU~N1
YES
NO
OUTPUT
CARRIAGf:. Rf;lURN

AND A NuL.L
OUTPUl CHARACTER
MOR£:. STRING1
Yf.S
NO

PAGE
12112196
~097

012198
121099

01121121
0101
0102
011213
12111214
0112l~

12111216
121107
011218
12111219
011121
121111
0112
0113.
121114.*
121115··
0116 ••
IU17.
011~.

0119*
112ra.

0121
121122
10123
121124
121125
121126
0127
121 12 8
10129
121130
121131
10132
10133
10134
121135

121136
0137
(rU38
121139

1614121
10141
0142
1,;1143

121144
0145
121146
01'-1
0148
11)149
1211 5 121

~115

4112111)6
4112107
4112110
4112111
41012
41013
4HH4
41015
4112116
4112117
4 h,20
4112121
4UI22
411623
4112124
41025
41026

#11

STATEMENT EXECUTION

12171653
015514
051035f)
12126677
10074100
026744
035472
12115426
121261031
12144"42
16001211
031036
170101211
065613
12155334
02612131
02567121

~ROCESSORS

EPR11 SlA EORFL.
JSB GTTYP
CPA .... 3

JMP EPR14 ... 1

cca
JMP

EPR12 ISl
JSb
JMP
EPR13 Aoa
LDA
lOR
STA
LOB
CPB
JMP
JMP

~PRI7+2

EOl
OUTl.. N
Xf:.C1

... 8

F.lL.E

FUL.L?
yES

NO, WRITE
t.No""or.fIL,.E
'ENU.OF-LINE' fLAG SET?
YfS
NO
SfT bUFFER

ij,I
61T15

8,1
TEMP1
PRGCT
Xf.Cl
EPRI2

EXECUTE 

OlF~ ...

TY

BIT
NULl..
PRINT?
yES
NO

••••
*•.

EXIT TO (P"'1) l~ NO USING OPt:.RATOR FOUND, OTHERWISE PREPARE
fORMAT SPECIfICATION STRING ANO CALL FORMATTf.O OUTPUT ROUTINt
.
41027
41121JI2I
410·31
4111)32
411&133
41034
41035
41 0 JI)

41((l37
41~40

41041
41VJ42
41043
41044
4112145
41046
41047
41050
41051
41052
4112153
41054
4112155
41056
41057
41060
41061

!cl71756
12165613
1 U0IQkll

060656
00601215
125554
055334
125554
160001
12110664
050776
IOVJ2001
125554
1200tH
0,5613
0ti2021
027065
12106004

164001

VJ44J64
16012101
010b64
06121746
0121212101
115154
035613
035fH3
41~62 121'12400
41063 071762
41121 6 4 01 555 2

#lPRU STA FFLG
I..DB Tt:.MP1
I.DA B,l
CPA PRTOP
INB,RSS
JMP EPRUS,I
CP~

PR~CT

JMP EPRUS,I
LUA B 1
AND OPMSK
CpA USEOp
RSS
JMP EPRUS,l
XOR s,l
STe TEMPt
SSA,RSS
JMP EPRU1

.

SAvl fORMAT fLAG
NULL OPtRANDl
yEs
NO, CAN'T Bf USING STATEMENT
~ND Of STATEMENT?
YES
NO 'USING'
~P£~ATOR
NEXT?
YES
NO, EXIT
GET OPERAND
SAVE POINTER
INTEGER fOL.LOWS1
NO

IN~

LOB
AOB
LDA
AND
CPA
RSS
JSB
ISZ
ISZ
CLA
STA
JSB

B,I
.+2

GET ADDRESS OF
.> LENGTH WORD

B,1
OPMSK

I~AGE

GET OPERATO~
IMAGE?
YES
RERRS+38,1 NO, ERROR
TEMP1
8UMP TO POINT
TEMPl
TU fIR'T OP~RAND
IM~OP

NtH
fRMAT

CALL fORMATTER

STATEMENT

PAGE. 0116
0151
!d152
0153
l1154
~155

0156
0157
0158
0159
0160
, 0161
16162
~163

1d164
0165
0166
0167
0168
0169
0170
0111

liH72
0173
0174
0175
irj176
0177
k:l17a
0179
0180
0181
0182
0183
0184
0185
0186
0187
16188
0189
0190
0191
0192
IUtJ

0194
0195
0196
0197
k:l1 9a
°1 99
0200
0201
0202*

41065
41066
41067
41070
41071
41072
41073
41074
41075
41076
41077
41100
41UH
41UJ2
4110J
41104
41105
41106
41107
41110
41111
41112
41113
41114
41115
41116
41117
411216
41121
41122
41123
41124
41125
41126
41127
41130
41131
41132
41133
41134
41135
41136
.11J1
411416

41141
41142
41143
41144
41145
41146
41147

~11

STATEMENT EXE.Cl)TION PROCESSOt

.*
'It.*.

PAGE
0206.
0201
0208
0209
0210
0211
0212

0213

~117

#11

STATEMENT, EXECUTION

41150 161613

41151 035613
41152 065577
41153 011J2~20
41154 166613
41155 015360
41156 026031

P~OCE.SSURS

f.HSTR LOA TEMP1,I

ISZ TEMPt
LOB SPROG
SSA
LOB TEtoIP1,1
JSB SETOP
JMP XECl

LOAD Fl,.AG W(;RL)
ADVANCE STATEMENT POINTtR
SET (b) TO START OF PRO~RAM
'LA8ELLtO RESTORE'
YES, RESET (6) TO STATEMENT
sET DATA POINTERS

0214*

14215***
0216**

EXELUTE 

0217***

***

021th

0219
0220
0221
0222
0223
0224

0225
0226

0227
022 8
0229
0230

41157 161613
41161d 010700

41161 12l1lJ2002
41162 027214
41163 065 6 13
41164 001)004
41165 160001
41166 010664

41167
411 70
41171
41172

050J36

0°2°01
027214
075613
015336
165332
075574
061332

0231
0232

41173
41174

0233
0234

41175
41176
41177 0 4 03 5 0
412r.:l0 07~332
412r.:ll 064257
41202 006004
41203 160001
41204 001727
4121d5 015346

0235
0236
0237

0238
0239
0240

0241
0242
0243
0244

IIJ245
0 24 6
02 4 7
8248
0249

41206 171574
41207 035574
41210 175574
41211 061613

41212

****

0~1334

41213 025031

41214 01!5J06

EENTR LOA
AND
SZA
JMP
LOB
INB
LDA
AND
CPA
RSS
JMP
STB
JS8
L.OB
5T8
L.OA

TEMP1,1
OPDMK

a>

fIRST OPtRATOR

EENT3
TEMPl

IS

NO

'#'

e,l

GET NExr OPERATOR

OPMSK

B4000

EENTl
TEMPl
pORMX
OPOST,l
StiPTR
OPl)ST

ADA ,"2
STA OP()ST
L.OB MAIN
INS
LOA 1,1
Al.f,AI..F
JSB FI.OAT
STA SbPTf<,I
lSZ SBPTR
STB SBPTR,I
L.OA TEMPt
CPA PRieT

JMP XECl
EENT3 JaB F£TCH

JSB IFIX

f-lRE,SENT?

'*'1

YES
NO

ADDRESS

~VAI.UATE

SYMBOL.
UNSTACK

II>

AOO~ESS

a> USERS TTY # IN TELtTYPE lABLE
GET TTY # ANU

IHGHT JUST IF Y
CONV~RT

TO fLOATING POINT

STORE
TTY
NUMBE;~

ENTER STATEMENT
FlNlSHEO?
YES
NO•• fiTtH AL.L.OwiD TIMi
CONVf.RT
TO
SEC ONUS
MASK TO 8 SITS
If 0, SET
TO 1

41215 015416
41216 000~00
41217 06000\

025ti

412210 010443
41221 00200J
41222 002004
41223 (,171612
41224 ",60257
41225 002004
41226 050255

L.OA 1

0259
026r.:l

41227 115220
41230 060373

SZA,RSS
INA
SlA ATIM
LOA MA1N
OOE:.S THIS USE:.R
INA
HAVE THE
CPA P~IST
LINt:. tJRII'HE;.WI
JSB wfR~S+9'I YES", Rtl.EASE IT
OUTPUT
LOA ,+21B

0250
02 5 1

0252
0253

0204
0255
0256
0257

N(JP
AND 8377

PAGE. "'118 #11
0261
0262
0263
0264
0265
0266
0267
0268
0269
0270
0271
0272
0273
0274
115275
0276
0277
0278
0279
0280
02 81
0282
0283
0284
0285
0286
0287
0288
"'289
0290
0291
0292
0293
029 4
0295
0296
0297
0298
0299
03 00
0301
0302
0303
0304
0305
0306
0307
"'308
03 09
0310
0311

iJlc

0313
"'314
0315

41231
41232
41233
41234
41235
41235
41236
41237
41240
41241
41242
41243
41244
41245
41246
41247
4125iG1
41251
41252
41253
4 1253
41254

STATEMENT EXECUTION PROCESSORS

0154541
0602~1

Ja8 OUTeR
LgA STE

0316i2
114516

JI8 8eHIN,I

027253
015336
165332
075574
061332
040350
071332
060762
015J46

ENTRT EQU *
JMP EENT6
Jle FORMX
Loe OP05T,1
STe saPTR
LOA OPDST
AOA ,_2
StA OPOST
L.OA M256
JSB FLOAT

1715/4

035574
175574
127252
041425
006400
075573

4125~ 01~45"

41256
41257
41260
41261
41262
41263
41264
41265
41266
41267
41270
41271
41272
41273
41274
41275
4 12 76
41277
413"'0
41301

41302

41303
413164
41305
41306
4 130 7
41310
41311
41312
41313
41314
41315

000010
064412
0755i'J
05"355

124~~4
01~452

(U5JJ6
16!5332
075574
075422
061332
040Jei0
011JJ~

064257
044371
1600(&'11
015~46

171574
035574
175574
015336
165332
0060213
027341
~61JJ2

04 0 35WJ
071332
015574
"ia~(Ut

1d71266
015450
027414

lOR AT 1M

AN X.. ON
sTART
ENHJ~

TIMING
INPUT ENTERED
TIMEOUT OCCURt.D
_> REsPONSE.
TIME
UN8TACK
ADI)RfSS

SET
RESPONSE.

stA

S~PTR,1

TIME

ISZ
STB
JMp
OfF

SBPTR
SBPTR,I
•• 1,1
EEN18

TO

EENT6 EQU
CLB
STB
JS&
NOP
LDB

•
BLANK
GETCR
,+40B

8T8 BLANK

CPA .... 3
JMP ExITA,!
JI8 eCKSP
JIB FORMX
LOB OPDST,I
STe SBPTR
ST~ RSPTR
LUA OPDST
AOA ."'2
srA OPDST
LOB MAIN
ADB ,+7RTIM
LOA 1,1
JSB FI.OAT
STA SBPTR,I
ISZ SBPTR
sTB SBPTR,l
JSB FORMX
Loa OPOST,I

SSB

JMP
I.DA
AOA
STA
ST8

CLA

EEN10
OPOST
.... 2
OPOST
saPTR

STA SIGN
Jse GETeR
JMP EEN17

.256

DON'T SUPPRE.8S
BLANKS
fIRST
CHARAt;TER A
SUPPRESS
BLANKS
CONTROL C1
yES

NO

EVALUATf ADORr:SS
-> RESPONSE TIME

UNSTACK
ADDRESS
GET RESPONSE
TIME
STaRt::

IT

EVALUATE ADPRESS
IS IT A
STRING VARIABLE?
YfS
NO,
UNSTACK
ADDRESS
SAVE I)ESTINATION ADDRESS

siTelGN

. TO POSITIVE
FETCH FIRST CHARACTER
NONE fOUND •• ERROR

PAG~

0316
0311

031ij
0319
0320
0321
0322
0323
0324
0325
0326
0327
k!l3 2 ij
16329
0330
[6331
rd332
0333
0334
0335
0336
0337

033ij
0339
0340
11)341
",342
0343
0344
0345
0346
03 4 7
0348
11)349
0350
0351
kt352
0353
0354
kt355
11)356
0357
035ij
0359

0360
0361
0362
0363
0364
0365

0366
"367
11)368
0369

0370

~119

4131 6
41317
41320
41321
41322
41323
41324
41325
41326
41327
41330
41331
41332
41333
41334
41335
41336
41337
41340
41341
41342
41343
41344
41345
41346
41347
41350
41351
41352
41353
41354
413 55
41356
41357
41360
41361
41362
413603
41364
41365
41366
41367
41370
41371
41372
41373
41374
41375
41376
41377
41400
41481
41402
41403
41404

#11

STATEMENT EXECUTION PROCESSORS

ece

",,,7400
075611
050427
027326
0136404
05~425

002001
027331
075266
0154513
027414
015276
011)0010'"
027414
035611
027414
050367
027425
027414
007000
161c"101
001727
010443
00Jldrdrd
14133113
071410
0~3400

015344
065406
075354
1/)06400
"'7557 3
063771
015350
006400
1655406
027401
055464
027375
07135~

00340ft)
071410
"'41401;
07 1406
060000
015350
027425
165260
045406
175260
027425
05546 ...
027406
015450
1c127420

EEr..Tl
EENTS

EENT9
EENh1

STa ENOUF
CPA .+55ti
JMP EEN T7
CLB,INB
CPA .+53~
RSS
JMP EENT8
STB SIGN
JSB GETCR
JMP EEN17
Jsa NUMCK
NOP
JMP fEN17
ISZ ENOUf
JMP EEN17
CPA ,+156
JMP fEN18
JMP fEN17
CMS
LOA 1,1
ALf,ALf
AND 8377
CMA
AOA TMPST,l
STA TPRME
CCA
JSB PST~
LOB TNUL.L.
sr8 INTMp
CLa
STs BL.ANK
L.DA FENCA
JSB TR5TR
CL.B
CPB lNUL,.L
JMP EEN14
CPB PS1
JMP fEN13
STA INTMP

ceA

STA TP~ME
AOA TNUL.L
STA TNUL.L
LOA FSCHA
JSB TRSTR
JMP EEN18
EEN13 LOB TEMP6,I
AOB TNUL.L.
STa TEMP6,I
JMP EEN1S
EEN14 CPS PSI
JMP EfN16
EEN15 JSa GETCR
JMP EEN18

TURN VFr
OVER/UNOfRFLOw flAG
' ... '1

YES
NO

, +, ?

YE:.S
NO
$ET SIGN
GET NEXT CHARACTER
NONE fOuND
NUMBER?
NO"'-ERRO~
EXPONENT~·ERROR

BAD

010 OVER/UNDERFL.OW OCCUR?

YE.Sf9.ERHOR
NO, CARRIAGE RETURN fOLL.OwSl
YES
NO"", .. ~RROR
EXTRACT
PHYSICAL
L.ENGTH OF
DESTINATION STH~N~
SET IT AS END
Of UNSPl::C IF lEO
DESTINATION STRING
PREpARE
DESTINATION STRING
SAVE LENGTt'I
Al.L.OWANCE
TURN OfF
BLANK SUPPRESSION
POINT TO ENTER CHAR ROUTINE:.
TRANSfER STRING
AL.t.. REQUESTED
CHARACTERS TRANSFERRED?
YES
NO, TRANSFER L.ENGTH SPECIFIED?
NO
yES"''i'I'SAVf. (A)
fINISH
TRANSFER
WITH SL.ANKS
SET LOGICAL.
TO ACTUAL.
STRING LENGTH

LfH&TH 0' T"AH8fER IP£CI'I£D7
NO
YES
CARRIAGE "ETURN

PAGE 0120 #11

STATEMENT

0377

41405
41406
414,,7
41410
41411
41412
41413

0378

41414 161422

0379

41415 1035422
41416 16t)422
41417 015370
41420 175422
41421 007400
41422 045422
41423 170001
41424 0756al
41425 002400

0371
0372
0373
0374
0315
0376

0380
0381
0382
0383

0384
0385
0386

0387
0388
0389

0390
0391

03 92
0393

02,403
0154tH~

02742e
061~54

071406
061574
071272

41426 071572

41427
41430
41431
41432
41433

1.160412
071573
002400

015454
026031

EXECUTIO~

JMP
EEN16 J8B
JMP
LOA

vEs

INTMP

NO •• OESTINATION STRING EXCEEDED
RESTORE
OESTINATION STRING
PAfUMETERS
TAf(E
ARITHMETIc
INV£RSE 0::
RESPONSf:: TIME
STORE

SBPTR
TEMPe
RSPTR,l
RSPTR
RSPTR,1
J8B ARINV
STS RSPTR,I

ete

0401
04°2

41435
4 14 3 6
41437
41440

0403

1d404
0405
04 0 6
0407
04 0 8

0409
0410
04 11
0412

0413
0414
0415
0416

10417
0418

0419
0420

0421
0422
0423
0424
0425

EASN
0603~7

0714.-2

071773
067767
063766

41441

41441 17 00 °1
4 1 44 2 006004
4 1 443 03544 2
41444 02744~
4144 5 1O~2404
4 1 446 07 1472
41447 015336
41450 0603511
41451 015344
41452 071256

STA LT!5
STA ASINP
L.08 A88FA
LOA DSL.NK
EASN0 EQU *
STA 6,1
INS
I8Z LT5
JMP EASN0
CLA,INA
STA EOL
JSB FORMX

001727

SET 'LAQ TO SAY ASSIGN OCCURRED

BLANK OUT 3 WOHOS

ALLOW STRINli
CONSTANT
EVAL.UATE STRIN(;

LOA ... 2

9T8 TPHME

002041

*.

fQU •

41455 054351
41456 027514
414 57 id7e 4 10

00406t5
160001

••

L.OA .... 3

41453 002400
41454 071470

06!525c

VALuE
TABLE
CLEAR OVER/UNDERFLOW FLAG
ZER() CHARACTER
COUNTER
RESTORE
BLAN~ SUPPRESSION
oUTpUT A
NUL.L.,

**

JSB PSTR
STA TEMP,.
CLA
STA ASTVP

41460
41461
41462
41463
41464

IN

A08 RSPTR
STA 1,1
STB ENOUf
EEN18 CL.A
sTA CHRCT
LOA .... 40B
STA BL.ANK
CL.A
J38 OUTCR
JMP XEC1
STATEMENT~

.

N~XT1

EEN18

LOA
STA
EEN17 LOA
ISZ
LOB

0;.lt ••

41434

END~OF.INPUT

sTA TNUL.L

0395***
0396*. EXECUTE 
41567
415710
41571
41572
41573
41574
41575
41576
41577
41tH'0
41601
41602
416'03
41604
41605
41606
41607
41610
41611
41612
41613
41614
41615
4161 6
41 6 1 7
41620
41621
4 1 622
41623
41624
41625
41626
4162 7
41630
41631
41632
41633
41634
41635
41636
416J7
41640

#11

~TATEMENT

~J5772

STS
AOA
STB
STS
J~8

OEF
JMP
JMP
lSZ
liZ
EASN2 I.DA
CPA
JMP

0006121'"
01535K1
061556
002004
11214200

100000
141556

0,1
,+14

,""I
RETCO
SCHLB,I
ASNIB
EASN5
EASN4
RETCO
RETCD
TEMPI
PRGeT
EASNJ

ANO OPMSK
CPA 820121121

002001
027644
002404
071 4 72
1615336
060350
015344
071 256
07541kl
1t;)6 J 767
011556
00100£1
071272

~7140tj

FeB

POINTeR
INITIALIZE
INITIALIZE PROTECTMASK TO 0
INITlALIZ! RETURN CODE
CALL IN
ASSIGN OVERLAY
ASSIGNED Fll.E RECORD SIZE TOO LA
FILE DOESN'T EXIST
'READ ONLy' • GROUP OR AI2I1210
'REAO ONLY' w IN USE
END OF STATEMENT 1
YES
TEST FOR A COMMA

LOA 121,1

05061fl

0 6 0347
07 1442
065556
063766
170001
006004
035442
1i!l27622
06034 .."

WRITE o:JT Rt:CORD
RESTORE

CI..B

VJ75772

1661613
051334
1027644
160000
1d10664

P~OCESSORS

AOA 1
STA RQ3
Jsa WRBUF
LOA F6ASf
AOA ,-e
STA FIUSE

040001
071647
015516
061236
040345
1671236
00,640e
174000
040370
174000
114532
07 2040
027653
027651
035772

EXECUTION

COMMA FOl.L.OWING?

RSS

'

JMP EA8N3
CL.A,INA
STA EOL
JSB FORMX
LOA ,-a
J88 PSTR
STA TEMP4
ST8 TPRME
LOA ASBFA
STA ASBFP
Al.s
STA TEMP5
LOA ,"J
sTA I..T5
LOB ASBFP
LOA D6l.NK
STA 1,1
IN8
ISz 1..15
J,.,p *",3

LOA
STA
LOA
JSB
LDA
INA

•• 1
TNULL
FSCHA
TRSTR
ASBFP

NO
Al.LOW
STRING CONSTANT
YEe, EVALUATE STRING OPERAND
PREPARE
SOURCE
STRING
GET CHARACTER
POlNTER TO
PASSWORD BUffER

FIl.l. PASSWORD
BUFfER WITH
BL.ANKS
sET LENGTH (IN CHARACTERS)
OF PASSWORD BUFFER
HOVt

PASS~ORO

TO

BUFf~R

OL.O 121,1
AOA AS8FP,1
1

k)20~01

xO~

03022~

lOR RBP

ADD WORD1 AND WORD2
EXCLUSIvE O~ • wQRDJ
INCL.USIVE OR BITS 14 AND 15

PAGE 0123 #11
0533

0534
0f'J35
0536
0537
0538
0539
0540
0541
0542
0543

-'-'

41641
41642
41643
41644
41645
41646
41647
41650
41651
41652
41653
41654

STATEMENT EXECUTION PROCESSORS

1665236
044370
170001
061772
015346
104400
1016J5
026031
060J65
027645
0603f;7
027646

L.Ots
ADB
STA
EASN3 LOA
JSB

FeAst
,+14
1,1
RET(;D
FLOAT
DST ATMP+l,l

JMP
E.ASN4 L.OA
JMP
EASN5 L.OA
JMP

XEC1
,+3
[ASNJ+'
,+5
EASN3+1

STORE

PROT~CTMASK

IN FCB

FLOAT RETURN CODE AND
STORt IN usER VAHIABLE
DONt
SET fo ***
121012**
**
"013*
0014 42006 114532 ECHAN JaB seHLB,I
CAL~ SYSTEM TO EXECUTE DISC ROUT
13015 42007 072041
OEF CHL.IS
131316 42010 115155
JSS RERRS+J9,1
r,,017 42011 115166
JSB RER~S+4CS,1
13018 42012 115156
JIS RERRS+40,I
0019 42013 115157
JSS RERRS+41,I
13020 42014 115165
JS8 RERRS+47,1
JMP EXT3A,1
NU~L PROGRAM OR BAD LINE NUMBER
13021 42015 126002
JMP .+1,1
0022 421316 126017
GO COMPILE IT
0023 4201'1 036052
DEF CMPL0
131324**
0025-** SET POINTERS TO DATA STATEMENT *.*
0026 ••
0027.
0028* STARTING wITH THE STATEMENT REFERENCED BY '6) UPON
0029. ~NTRY, FIND THE NEXT  AND SET THE DATA
0133121* SLOCK POINTERS APPROPRIATELY, IF NO 

••

-1.

0031*

klkil32*
0033*

IS FOUND, SET THE poINTERS To THE 'OUT of DATA'
CONFIGURATION AND EXIT WITH (A) •

0034

4212120 055575

0036
0037
01038

42022 0 4 4354
42td23 1601211211
42024 044351
42r,,25 010 6 64
42026 050652
42027 026033
42030 14401211
42031 044J51
42032 026020
42033 160001

003~

0039
0040
00 4 1

0042

0043
k:lk:l44

0045
16046
0047
0048
0k:l49
0050
0051

0052

42021 02 6 03 7

42034 0060134
42035 1603004
42036 0021305
42037 0034121lr.
42040 071262
42041 1£l75244
42042 12536121

CPS gYMTS
JMP SETD2
ADa ,+2
LOA 1,1
ADB ... 1
AND OPMSK
CPA DATOP
JMP SETDl
ADB 1,1
ADS .-1
JMP IIISTOP
LOA 1,1
INS
CMA,INA
INA,RSS
SETD2 CCA
STA PceNT
ST8 NXTDT
JMP SEIoP,I

01353**

01354***
0055*.
0"56.

**

VALIDATE A

Fl~E

REQUEST

***
-.

PROGRAM EXHAUSTED?
YEa, lET 'OUT Of DATA' CONDITION
NO,
STATEMENT
of'

TYPE
'OATA'1

YES
NO, COMPUTE
APDRESS of
NEXT $TATEMENT
LOAD STATEMENT LENGTH
SET
DATA
COUNTf;.R
TO

I-STATEMENT LEN~TH
SET POINTER aNt ~ORO
ABOVE FIRST C~TA CONSTANT

PAGE 0127 #12
0057.
~05e.

0059*
0060.
0061.
0062
0063
0064
0065
0066
0067
0068
0069
0070
0071
0072
0073
0074
0075
0076
0077
0078
0079
0080
0081
0082
0083
~084
~085

0086
~087

00 88
0089
0090
0091
0092
0093
~094

0095
0096
~097

UTILITY ROUTINES

EXIT TO (P~2) IF (TEMPi)+! DOES NOT ii~lN A FILE REFERENtE,
ELSE EVALUATE THE FILE REFERENCE ANO VERIFY ITS CORRESPONDENct
WITH A REQUESTED FILE, IF A RECORD REFERENCE IS ALSO PRESENT,
EVALUATE IT ANO CALL FOR ITS SWAPPIN~ INTO THE CORE BUfFER,
42043
42044
42045
42046
42041
42050
42051
42052
42053
42054
42055
42056
42051
42060
42061
42062
42063
42064
42065
42066
42067
42070
42071
42072
42073
42074
42075
42076
42077

06561J
006004
055334
026053
160001
010664
050136
026055
035506
125506
007400
161613
010664
050656
006400
075516
035613
015356
015J42
115151
01523.
161613
010664
050612
026105
007400

.VLFI LOB
INS
cPa
JMP
LDA
AND
CPA
JMP
VLF10 lSI
JMP
VLFl1 cca
LOA
AND
CPA

07~3e2

VLFI2 aTB

C~B

STB
ISZ
JaB
J8B
JSB
STB
~OA

AND
CPA
JMP
cc~

sse

006020
064350

421~0 0612J4
42101 035516
421~2

0030~0

42103
42104
42105
42106
42107
42110

015510
125506
015356
~15342

V~FI3

PRuCT
VLF10
1,1
OPMSK
84000
VLfXl
VLFIL
VLflL,I

IS
NEXT
OPER~TOR

A '#' 1
YES
NO, EXIT
TO (P+2)
SET
TEMP1,I
VL0 • 0
OPMSK
fOR
PRTOP
'PRINT',
ElSf
vL0
VL0 • ~1
TEMP1
EVALUATE
FETCH
FILE REFERENCE
SBFIX
IS.S1T INTEGER?
RERRS+35,1 NO
FILEYES, SAVE IT
TEMP1,l
NEXT
OPM$K
OPERATUR
82000
A COMMA1
VLF13
yEs
NO, USE NUL~ RECORD
RCR~*

LOB .-2
LOA FILE*
lSZ vL0
CMA
JSB RQSTR
JMP VLFIL,I
JSB FETcH
JSB S8FIX
LOB INf
JMP VLf12
.•••

NULL RECORD1
yEs, 00 NOT ADJUST FILE POINTER
wRITE REQUEST1

YEs

VALIUATE FILE/RECORD REQUEST
EVALUATE RECORD REFERENCE
15.61T INTEGER?
NO, LOAD IMPOSSIBLE HECORD
YES

0098
064274
0099
~2607~
0100**
0101.** FETCH DATA ITEM
0102.*
0103.
0104* UPON ENTRY CB) • 1 IF A NUMBER IS REQUE8TEU OR (8) • 2 If A
0105* STRING IS REQUESTED. FDATA FILLS TH~ REQUEST FROM A FILt IF
0106* ONE Is REFfRENC~D By THE CALLER, ELSE FROM THE DATA BLUCK.
~107*
TypE MATCH IS CHECKED. NUMBERS RETUHN IN tAl AND (8), STRINwS
~10~.
ARE PREPARED AS SOURCE ITMIN,I, FOATA "U~ES TO NEW fiLE
0109* RECORDS OR S AS NECESSARY,
0110.
0111 42111 ~61234 *fDAT LDA FILE_
READ fROM

*.

'-

TEMPI

PAGE 0128 _12
kl112
0113
0114
0115
0116
0117
fdl1tl
0119
0120
0121
0122
0123
01 2 4
"'125
121126
IjH27
0128
16129

12113121
0131
121132
0133
121134
fd135
fd136
0137
121138
0139
fd140
0141
121142
0143
16144
~145

121146
121147
1211 48
0149
0150
0151
015 2
015J
0154

0155
0156
0157
fd158
fd159
0160
01 6 1
0162
0163
0164
0165

42112
42113
42114
42115
42116
42117
42120
42121
42122
42123
42124
42125
42126
42127
4213121
42131
42132
42133
42134
42135
42136
42137
42140
42141
42142
42143
42144
42145
42146
42147
4215'"
42151
421 5 2
42153
42154
42155
42156
4 2 157
42160
42161

UTILITY ROUTINES

Vi020~1

121 2616-4
035262
026125
fd7527~

065244
12115360
065272
035262
00201211
115133
"35262
161244
fd35244
01215300

021211211211
fiH,,2020
115134
00612121
~26144

1042121121
H'J1244
035244
ft)35244
ft)3S262
125362
161244
03524 ..
06524~

0fd501210
075256
010443
0030121121
071410
003~)fc14

1112111121121
0 6 401210

04 12 44
12171244
045262
42162 075262
42 16 3 125J6~

42164 0612;'6

42165 12140367
42166 16000il
42167 071771
4217121 015272
42171 (,365352

42172 07t)653
42173 015514
42174
42175
42176
42177
42200

051272
02621~

050356

026203
050355

SSA,RSS
FILE?
YES
JMP FOATJ
liZ DCCNl
NO, UAT~ iN CURHENT STATEMENT?
yES
JMp FOATI
STa TEMP5
NO, SAVE (8)
1..06 NXTOT
MOVE TO NEXT
JS8 SETOP
 STACK
~ARIABLf. OPfRAND1
NO
OPERAND ADDRESS

....•...

THE ADDRESSES STACKED ARE AS FOLLOWS, FOR SIMPLf. VARIABLES,
A POINTER To THE VALUE, FOR ARHAY8, TH~ SAl! ADDRESS, fOR
STRING VARIAijles, THE NEGATION OF THE ijASE AL>ORf.SS.

0357.
0358 42400 0.0J51
0359 42406 001000
03610 424ldl 041575
0361 424116 064000
42411 006004
103 6 2
It)l63 42412 160000
0364 42413 010371
0365 42414 050371
0366 42410 026551
0367 42416 164001

AUA
ALS
ADA
LOB
INS
LOA
AND
CPA
JMP
LOB

,·1
SYMTS
0

0,1
.+17B
.+178
FORMe
1,1

COMPUTE
POINTERS
TO SYMBOL
TAB .. E
ENTRY
PROGRAMMER ..
DEFINED
fUNCTION?
YES
NO, LOAD VALUE POINTt::R

PAGE 0134 #12
10368
0369
~370

0371
0372
0373
0374
0375
0376
0377
0378
0379
0380
0381
0382
0383

0384

42417
42420
42421
42422
42423
42424
42425
42426
42427
42430
42431
42432
42433
42434
42435
42436
42437
42440

FORMULA EVALUATION RQUTINfS

002002
02644 0
061613
051334
02643'"
161613
010664
050622
026437
075256
015400
0(62400
007400
10440W1
10133£0
065256
007904
175332

SZA
JMP
LOA
CpA
JMP
LOA
AND
CPA
JMP
fORM0 STB
JSB
CLA

0389

0390
0391
0392
10393
0394
0395
0396
0397

0398
0399
0400
0401
fd402

0403
041214
0405
0406
0 4 07

0408
0409

42441
4244t!
42443
42444
42445
4 2 446
42447
42450
424'1
42452
42453
42454
42455
42456
42457
424 6 0
42461
42462
42463
42464
42465

96tt.)13
051334
1026457
161613
010664
001727
064009
12150354
02665'
040332
002020
0064400
042(601
01212921
006400
002 4 00
006003
1326466
044564
1613001
010443

42466 071252

OPMSK

LBap
FORM2.2
TEMP4

RSCHK

STRING VARIABLE?
NO
YES, EftD
OF FORMUL.~'1
YfSNO,
FOL.1..0WED aY
SUBSCRIPT?
YES
NO
CREATE TEMpORARY
RECORD

OST TMPST,I

I..oa TEMP4
CMe,INe
ST8 OPOST,l

PROCESS NEXT OPERATOR

0387.

0388

Tt:MPl
PRGCT
FORM0
TEMPt,I

cea

038~.

0386··

FORM2.,.1

•

RETRIEVE AND
NEGATf STRING AODRESS
STACK ADDRESS

••

'"
fORM2 L.DA TEMPt
CPA PRCiCT
JMP FORM3
L.OA TEMPt,!
AND OPMSK
AL.F,AI..F
LOa 0
CpA ,+2
JMP FOR1J
ADA .-208
SSA
CL.B

AOA 066
SSA,RSS

FORM3 CL.B
CL.A
Sze,RSS
JMP .+4
AOB FOPBS
LOA 1,1
AND 8377
8IA TEMP2
XOR 1,1
ARS
STA TEMPJ

FORMULA
EXHAUSTED?
YES

NO,

EXTRACT
NEXT
OPERATOR
STRING CONSTANT?
YES
NO, NON"FORMUL.A
OPERATOR?
yES

NO, NON.FORMULA

OPERATOR?
YES
NO
ENO-OF.FORMULA1
yES
NO, L.OAD OPERATOR
INFORMATION WORD
SAVE
PRIORITY
SAVE
INH.RNAL
NAME

0410 42467 1200kJl
0411 42470 0011~0
0412 42471 071254
0413*
0414 •• STACK PRESENT OR EXECUTE PREVIOUS OPERATOR *",
~
041'.
DOES OPERATOR
0416 42472 1600'6 FORM4 L.OA PBPTR,l
0417 42473 010443
ON TOP
AND 6;'77
Of STACK
0418 42474 003000
eMA
HA vt:. HIClHER
ADA TEMP2
0419 42475 041252
S8A
PRIO.Rl TY?
0420 42476 002020
0421 42477 026507
JMP FORM5

PAGE 0135 #12

FORMULA EVALUATION ROUTINES

NO
0422 42500 061252
L.OA TEMP2
0423 42501 050365
CORRECT
CPA .+138
CL.A,INA
STAC;;K PRICRITY
04 2 4 425"'2 0 02 404
lOR TEMP;'
AUO NAME
0425 42503 031254
0426 42504 015366
STACK
JSB PStoiST
0427 42505 170056
STA Pt;PTR,l
OPERATOR
042ij 42506 026374
JMP FURMI
0429 42507 160056 FORM5 LUA PBPTR,l
POP
30
0
3
OPlRATUR
04
42510 064 5
lOB
~D6 PBPTR
FROM TOP
0431 42511 044056
0432 42512 074056
STB PSPTR
OF STACK
ALF,AL.F
8RAN~H
0433 42513 001 7 2 7
AND 8377
0434 42014 010443
TO
ADA ARBAS
APPROPRIATE
5
0435 42 5 1 042000
0436 42516 124000
JMp 0,1
RoUTINE
0437.
*
0436** STACK CONSTANT OR PARAMETER ADDRESS iloilo
0439.
•
1tj44(h
0441* FOR NUMERICAL CONSTANTS SlACK A POINTER TO THE VALUE
0442. EM6EDDlD IN THE PROGRAM, FOR PARAMETlRS STACK THE
0443. pARAMETER ADORESS,
1444*
ERASE FL.ACP SIT
0445 42517 001665 FORM6 ELA,CLE,ERA
SZA
CONSTANT?
0446 42520 00200~
0447 42521 026526
JMP FORM7
NO
YES,
LOB TEMP1
14446 4 2 5 22 065613
0449 42523 035613
STACK
lSZ TEMPl
0450 42524 030613
AUDREss
ISZ TEMPt
0451 42525 026440
JMP FOHM2 .. 1
PRE~
0452 42526 071252 fORM1 STA TEMP2
DfFINfU
0453 42527 010371
AND .... 176
0454 42530 l15{d371
CPA ,.178
FUNCTION?
JMP .+3
YES
0455 4253 1 °26534
LOB OPTRCiI,l
NO, STACK
0456 42532 165466
0457 42533 026440
PARAMETER ADDRESS
JMP FORM2 w l

.-2

040~.

1lI459*

FOR FUNCTIONS RECURSION ON FORMX EVALUATES THE PARAMETER
AND, FOR P~OGRAMMER DEFINED FUNCTIONS, THE VALUE,
fUNCTION VAlUES ARE LEFT ON THE TEMpORARY ST~CK AND A
POINTER THERETO IS PL.ACED ON THE OPERAND STACK,
'LEN' IS HANDLEO IN A SPECl~L. WAY,

0460*
0461.
0462.
0463.
0464.
0465·
·"'466** EVALUATE PRE~OEFINEO FUNCTION
0467.
",46ij 42534 "21252
XOH TEMP2
0469 42535 001721
ALF,ALF
0470 42536 0{t)1100
ALp
0471 42537 0150367
CPA ,+156
1f)472 42540 02663~
JMP FOFo(12
0473 42541 040740
ADA PDFBS
JSB PSHST
"'474 42542 015366
0475 42543 170056
STA P8PTR,1
"'476 42544 061336
LOA FORMX

•

**

.-

IDENTIFY

FUNCTION
'LEN' ?
YES
NO, STACK
JUMP TO

ENTRY POINT

SAVE FORMX

PAGE 0136 #12
0477
0478
0479
0480

42545
4 2 546
42547
4255\':1

FORMULA

171332
015336
015374
124056

EVA~UATION

alA
JSB
JS8
JMP

ROUTINES

OPOS1,I
FORMX
STrop
PePTR,1

RETURN ADORESS
EVALUATE ARGUMENT
BRANCH TO
SUaROUTINf;

PAGE

~137

*1~

FORMULA EVALUATION ROUTINES

•

"001*
0002** EVALUATE PROGRAMMER.OEFINEO FUNCTION .*
0803*
*
LOAD AODRESS
OF FORMULA
"00 4 42551 160001 FORMS LOA 1,1
JSB PSHST
SAVE VALUE OF
0005 42552 015366
0006 42553 id65330
LOB TMPST
CURRENT POINTER TO
0007 4 2 554 174056
STa PB,..TR,1
lEMPORA~Y STACK
SAVE ADO~ESS OF
0008 42555 015366
JSB PSHST
kl009 42556 170056
STA PBPTR,l
DEflNINw FORMULA
0010 4 2 557 061336
SAVE FORMX
LOA FORMX
STA OPOST,1
RiTURN ADDRESS
0011 42560 171332
0012 42561 015336
JSB FORMX
EVAl.UATE ARGUMENT

0013
0014
0015
0016

0017
0018

0019
0020
0021

0022
0,,23
0024
0025
161025
0027
0028

0029
0030
0031
id032
16033
0034
16035
0036
0037
003~

42562
42563
42564
42565
42566
42567
42570
42571
42572
42573
42574
42575

161332
165466
175332
171466
1015133'"
101540"
061613
164056
"15613
170056
015336

42~76

06 0 35 0
041332

42577
42600
42601
42602
42603
42604
42605
426"6
42607
4261ra
42611
42612
42613

16~332

071332
161332
171466
175332
160056
07Hj13
V)601d56
1t'40350

070056
160~56

1lI713J0
015~74

LOA
l.OB
ST8
STA
CPA
JSB
LOA
LDB
STa
STA
JSB
LDa
LOA
ADA
STA
l.OA
STA
STB
LOA
STA
l.DA
ADA
STA
LOA
SlA
JSB

"039*

OPOST,l
OPTRQ,I
OPOST,l
OPTRQ,l
TMPST
RSCHK
TEMPI
paPTR,l
TEMPt
paPTR,I
f'ORMX
OPOST,I
.-2

OPDST
OPOST
OPDST,l
OPTR~,l

OPOST,l
paPTR,I
TEMPI
PBPTR
_"'2

Pt)PTR
PSPTR,l
TMPST
STTOP

SWAP
OLD AND NEW
ARGUMENT
ADDRESSES
PROTECT PAR~METER
ON TEMPORARY srACK
SWAP ADDRESSES
OF CURRfNT
AND FUNCTION
FORMULAS
EVALUAT~ FUNCTlON
POP
OPERAND
STACK,
SAVIN&
RESUl. 'r ADDRESS
At~o AOURESS Ur
OL.D PARAMETER
RESTORE
FORMULA POINTER
POP
OPt:.RA10R
STAI;K
RES TORE OR IG HfAL.
TEMPORARY STACK POINTER
L.OAD FUNCTION RESULT

*

"040** REcORD RESULT OF FUNCTION **
"041*
*
"'42*
0043* PRE.OE~INEO fUNCTIONS RETURN TO THIS POINT WITH THEIR
01044* RESULT IN (A) ANO (B).

,,0.5.
0046
0".7
0048

0049
0050
0051
0052
Ir:HI,53
"16~4

42614

10~400

4261~

101330
161J32
"'71336
061330
171332
064056
044JfH'I
107.056
1035613

42616
42617
42620
42621
42622
42623
42624
42625

FORt0 DST TMPST,l
LOA
srA
LOA
STA
LOB
ADS
STB
ISZ

OPOST,l
FORMX
TMPST
OPDST,1
PSPTR
... 2
P8PTR
TEMP1

SAVE RESUl.T
RESTORE fORMX
RETURN ADURESS
RECORD l.OCATION
Of' RESUtT
POP
FUNCTION
ADDRESS
OF REQUI.,T

fORMULA EVALUATION ROUTINES
01c'J55
0056

ISZ TEf-lPl
JMP fORM2

42626 035613
42627 026441

0057.
006ij··
0009.
0060

00 6 1
0062

0063

0064
01065
0066

0067
ia068

0069
10070
1d07l
"'072
0073

01t.174
0075

0£O76*

0077··
0",78*

I6ro79.
0080.

1d081.

It.1L1J82 *

1d08J.
1d084.
0085.

"H686*

0087.
00St$*
0",89*
0090*
0°91*

0092.

EVAL.UATE 'LE.N'
42630
42631
42632
42633
42634
42635
42636
42637
4264"-1
42641
42642
42643
42644
42645
42646
42647
42650

015400
16 16 13
010700
040351
00Hle0
04157b

01d2ra04
160000
""40351
160000
k:l1044J
015346
104400
101331d
1t.161330
171332
12126625

**'"

•

FOR12 JS8 RSCHK
I.,OA TEMPI,l
ANO OPOMK
ADA ... 1
ALtS
ADA SYMTB
INA
LOA 0,1
ADA , .. 1
LOA 0,1
AND B377
JSB FLOAT
DST TMPST,l
LOA TMPST
STA OPDST,r
JMP f'OR12",3

PROCESS STRlNG CUNSTANT

CREATE SPACE ON TEMPORARY STACK

FINO

STRING'S
SYMBOL
TABL.E
ENTRY
LOAD ADDRESS
OF STRING
EXTRACT
STRING
LENGTH
STACK
STRING LENGTH
STACK ADDRESS
OF RESUL.T

•

**

•

WHEN STRING CONSTANTS ARE STACKED, AN APPROPRIATE
ENTRY IS PLACED ON THE TEMPORARY STACK SO THAT AL.L
STRING OPERANDS HAVE tHE SAME FO~M: A NEGATEO SASE
ADOR~SS ON THE OPERAND STACK AND A TwO WORD ENTRY ON
THE TEMPORARY STACK CONTAINING THE STA~T~OfwSTRING
AND ~ND~OF.STRING DESIGNATORS ~IASED BY wi (UEfAULT
START-Of-STRING DESIGNATORS HAVE A STACK VALUE OF 0,
DEFAULT ENU80F~STRIN~ DESIGNATORS HAVE A STACK VALUE
OF ~1). IN THE CASE Of SU~SCHlpTEO STRING VARIABLES,
THE TEMPORARY IS CREATED ~HEN T~f 'J' IS SCANNtD, TH~
ENTRY FOR NON8SUSSCRIPTlO STRING OPERANDS IS CREATED
WHEN THEY ARE SCANNED,

"'093

42651 002404

ia094

4 2 65 2 135147 2

"'095
0096

ON TOP OF
OPERAND STACK

42653 015340
42654 kl26.S7

FOR13 CLA,INA
CPA EOL
JS8 STSTR
JMP FORM3

PRINT STArEMENT
STRING CONSTAN11
NO, STACK STRING CONSTANT
~XECUTE ENO-OF.FOMMULA

PAGE 0139 #13
"098*
16[699**
0100*

sUU.
0102*
0UJ3""

0104
0105
rd106

FORMULA EVALUATION

RECORD RESULT OF OPERATION
OPERATORS
4265f)
42656
42657
42 660
42661
42662
42663

CR~ATING

035332
1635332
10 44 0rd
1161330
rd61330
171332
1t!26472

~OUTINES

.'**
'*

INTERMEOIATE RESULTS RETURN TO HERE,

FOR14 ISZ OPOST
ISZ OPDST
DST TMPST,I

STACK
TEMPORARY
RESUL.T

LOA TMPST
SAVE
0107
010d
STA OPOST,l
ADDRESS ON
JMP FORM4
OPERA~D STACK
0109
0110*
0111** EXIT FORMULA EVALUATOR ***
0112*
'*
tU13.
[6114* THIS WORO IS ACTUALLY PART OF THE FORMULA OP~HA10R JUMP
[611 ~. TABLE, THE WORDS ~ETWEEN IT AND FOJT CORRESPONO TO
0116. OPERATORS WHICH A~E NOT EXECUTtO, sO CODE IS INSERTED HERE
1d1l7. TO UTILIZE THIS SPACE,
1611tJ""

OfF FORMX,l
rd119 42664 101336
012,,*.
0121*** SET LOGICAL VALUES *.*
0122..
**
LUAD
0123 42665 0212400 FALSE. ~lA
CL.B
rd124 42666 006400
Zf;RO
rd125 42667 026655
JMP FOR14
L.OAU
IcH26 42670 ro61fd40 TRUE LOA HALF
LOB ,+2
16127 42671 064354
rd128 42672 026655
JMP FOR14
0129**
**
0130.*. EXECUTE UNARY w ***
0131.*
** STTOP
UNSTACK AND lOAD TOP Of STACK
0132 42673 015374 EUMIN JSB
JSB ARINV
NEGATE IT
0133 42674 015370
JMP FOR14
STORE IT
0134 42675 026655
rU35**
**
0136*** FORMULA OPERATOR JUMP TABLE ***
0137**
**
0138 42676 fd42726 FOJT OfF flBRe
(
0139 42677 rd42374
OfF FORM1
OfF FORM4
UNAIH +
fd140 42700 042472
0141 42701 ,,42673
OfF EUMIN
UNARY '"
SUijS(,,;~ 1 PT Cf)MMA
OEF ESCMA
rd142 42702 1!}42735
ASSIGNMENT OPERATOR
DfF ESTR
0143 42703 043011
0144 42704 043120
+
OEF EFAD
OfF EFSS
0145 42705 04312J
OEF EFMP
fd146 42706 043126
*
OEF EFDV
0147 42707 043131
I
OfF EPWR
t
014d 42710 043134
0149 42711 1!}4J2J5
>
OEF E(lTRT
OfF ElST
0150 42712 043241
<
Df.F ENEQl,.
0151 42713 043257

*.

1."

,

•

PAGE

~1~~

*13

FORMULA

~VALUATION

ROUTINES

~152

II!
42714 043247
UEf
0153 42715 000000
NOP
UNUS£:,O
!el154 42716 043304
AND
OEF EANO
OR
OfF EIOR
0155 42717 043312
MIN
OfF EMIN
"'156 42720 043272
0157 42721 04J2e3
OEF EMAX
MAX
<>
OfF ENfQL.
k1158 42722 Pl43257
0159 42723 ",43243
OEF EGORE
.

.*

.**.

0180*
0181*
",182*
0183*

!/l184*
0185*
0186*
0187*

BOTH SU8SC~lPTS ARE ROUNDED TO INTEGERS AND TESTED TO ~f
POSITIVE. FOR STRIN'Sr TH~ TWO INTEGE.RS ARE SAVED ON THE
TEMPORARY ~TACK AS A P~UEDO.ENTRY LATER USED BY PSTR, FOR
ARRAYS, THE SUBSCRIPTS ARE CHECKED AND IF wITHIN THE CURRENT
~OUNOS THEY ARt COMBINED WITH THE 8Ast AODRESS Of THE ARRAY.
THE ARRAY ELEMENT ADDRESS THEN REP~ACES THE BASE ADDRESS ON
THE OPERA No STACK. UNSUITABLE SU~SCRIPTS EXIT TO THE ERROR
ROUTINE,

0188.

0189
0190

"'191
1cl192

0193
0194

0195
0196
!el197
0198
"'199
0200
1.1201
0202
0203
1.1204
10205

'"

42735 015376

42736
42737

42740

10~20W
lW00~1
~16J42

42741 115127

42 7 42
42743
42744
42745
42746

06005~

W40351.1
070056

075256

VJ15374
42747 015342
42750 1 HH27

42751 175330
42752 1613J2
4275J 002021
42 75 4 02 676 2

42755

,,6133~

42756 002004

ESCMA JSB OPCHK
01.0 1,1

UNSTACK
SECOND SUBSCRIpT

JSB SBFIX
ROUNO TO INTEGER
JSB RERRS.17,l UNSUITA~L~ RESULT
LOA PBPTR
UNSTACK
ADA ~2
THE
STA P~PTR
'('
STa TEMP4
SAVE RESULT
JSB STTOP
POP fIRST SUBSCRIPT
JSB seFIX
ROUND TO INTfGtR
JSB RERRS.17,I UNSUITAtjLE HESULT
STB TMPST,I
STORt IN TEMPORARY STACK
LOA OPDST,!
STRIN~
S8A,RSS
VA~lA8Lf?
JMP ESCM2
NO, ARRAY VARIA~LE
LOA TMPST
YES,
INA
SAVE

PAG~

0206
0207
0208
02 139
1d210

~141

FORMULA EVALUATION ROUTINES

0215

42771 075272

,,216
",217
0218

42772 007004
42773 045256
42774 006021
42775 115127
42776 161330
42777 10~2"0
4301d0 0':11272
431301 041256
430"2 001000
43003 141332
431lJ04 171332
43005 0613310
430116 04 0 350
430",7 071331(J
43010 026374

"'219

0220

1d221

1c1222
13223
1d224
0225
"'226
"'227

1d228
0229
1d23~**

0231...

JMP FORtH
ADA ,"2
tit.. I) 0,1

0234·
ro23!:a
0236.
0237.
"'238.
023Sh
02 4".
0241·

0242.
",243.

~XECUTE

ADA
ALs
ADA
STA
LOA
ADA
STA
JMP

STORE

(006002

024 9

43015

02703~

025",

43~16

161332

0251

43017 071260
43020 1042"~
43021 101254

0253

0254
11:)255
02 56

IN

STAC"

L.OAD COLUMN
AND ROW BOUNDS

••

TEMP4

ADO COL.UMN DISPL.ACEME:.NT
~OR CORt ~URDs
STaRt. ACTUAL.
E:.L.EMENr AWDRi::SS
POP UNUSEO
Tt::MPORARY
~OUBLE

OPDST,!
OPDST,I
TMPST
-""2

TMPST
r-O RMl

~TACK

ENTfo(Y

•••
••

IN ORD~R TO ALLOW MULTIPLE ASSIGNMENT STATEME:.NTS, NO
ASSIGNMENT CAN TAKE PL.ACE UNTIL THE RIGHT.HANO FORMULA
Is tVALUATEDI I,E, ONL.Y AN E~O-oF-fO~MULA UpERAToR CAN
FORCE AN ASSIGNMENT OPERATOR OFF Of THE STACK, ASSIGNMENTS
MAY ~E NUMERICAL TO NUMERICAL. TYPE OPERAND, IN WHIcH CASE
THE ASSIGNED QUANTITY IS SAVED FOR POSSI~LE ADDITIONAL ASSIGNMENTS, OR STRING TO STRING OPERAND. I~ THE LATltR
CASE AN INTERMEDIATE:. STRING 15 NECESSARY If THE HEAl) OF
THE DESTINATION STRING LIES IN THE TAll OF THE ACTUAL.
SOURCE STRING.

0244.
0245 43011
0246 43012
0 2 47 43 01 3
0248 43014

0252

SU~SCRIPT

Tt~PORARY

CMA,INA
IS SPlClflEO
ADA TMPST,1
ROW
SSA,RSS
LEGAL?
JSB RERRS+17,I NO
STS TEMP5
Y~S
CMS,lN~
IS SPECIFIEC
ADS TEMP4
COL.UMN
SSB,RSS
L.EGAL1
JSB REkRS+17,1 NO
LOA TMPST,l
YES, COMPUTE ROW
MPY TEMP5
DISPLACEMENT

0232 ••

0233.

SECONO

0,1

100~01d

0214

1d213

ST~

4276~

003004
42766 141330
42767 002021
42770 115127

",212

LOB TE:.MP4

42757 ~65256
42760 174000
42761 026374
42762 04 0 350
42763 lid42e",

42764
0211

#13

065252
027112
055254

43022 10 44 ",,,
43 0 2J U J1 260
43024 061.332
43025 040J51c?
43026 071332

Loa
sza
JMP
CPS
JMP
E8TRI LOA
STA
OL.D
ESlR

TEMP2
ESTR5
TEMPJ
ESTR~

OPOST,l
lEMP6
TEMPJ,I

I,)ST TEMP6,1
L.DA OPDST
ADA .-2
STA (JPDST

NEXT OPERATUR AN
ENP..,OF", FORM UL.A1
NU
YES, FIRS. STORE OF ~ORMULA1
YES
NO, SET
DESTINATION ADORESS
TRANSfER
THE NUMSEk
UNSTACK
DESTINATION
OPERAND

PAGE
"'257
~25t;

"'259
",26",
0261
0262
02 6 3

1d264
"'265
~266

~267

0268

i026P
0270
0271

"'272
"'273

0274
"'275

"'276
0277

027t;
"'279
0260

1d261

~142

43027
4303'"
43031
43032
4J033
43034
430JS
43036
43037
43040
43 0 41
43k'J42
43043
43044
43",45
43046
43047
43050
43051
43052
43053
43",54
43055
43056
43057

#13

FORMULA

"'26472
161332
002020
027036
015376
075254
027016
06(iJ35ld
015344
071256
07541'"
ft'03400
015344
064"'56
075440
"'01256
003000
"'41272
002020
027105
041410
040354
002021
027105
061272

~282

4306t)

0714~2

~263

43061
43062
4 3 06 3
43064
43065
43066
43067
43070
43071
43072
43073
43074
43075
43076
43077
43 10'"
43HH

0"'6004
"'05000
075 2 ,2
061406
"'7 1444
003004

"'284
"'285
1d286
02 87
"'2 88
028P
0290

",291
0292
0293

0294
029 5
t:l296
0297
(d29t;
"'299
13300
0301
0302
0303
~304

030 5
"306
~307

0308
0309
0310

0311

1:'101100

01S326
070056
060600

015350
061444
"'7 140 0
071410

061440
0",200 4
001000
431'~2 071256
43103 ",61442
43104 071272
43105 06060~
431~6 015350
4 3 10 7 "'6 1 44'"
4J110 070056

43111 0265~i
43112 034056
43113 0J4056
43114 063117
43115 170056

EVA~UATI0N ~OUTINES

ESTR2

ESTR3

J/IIP FORM4
~OA OPOST,!
SSA
JMP ESTRJ
JaB OPCHK
sTB TEMP3
JMP ESTRl
~I.)A

,-2

JaB PSTR
STA TEMP4
ST8 TPRME

ceA

JaB PSTR
LDB PSPT~
5T8 ESTl
LDA TEMP4

eMA

AOA TEMP5
SSA
JMP E5TR4
ADA TPRME
AOA ,+2
SSA,RSS
JMP ESTR4
~OA TEMP5
STA EST2
INS
BL.8

STB TEMPS
LOA TNULL
STA tSTJ
CMA,INA
AR8
JSB cusP
STA PBPTR
L.OA FSCHA
Jse TRSTR
l.OA E8T3
STA TNU~L
STA TF'RME
LOA ESTl
INA
AI..8
STA TEMP4
LOA E8T2
STA TEMP5
ESTR4 L.OA FSCHA
JaB TRSTR
LOA ESTI
SlA PBPTR
JMP FORM5
ESTR5 18Z PBPTR
ISl PBPTR
~OA BASSO
STA PBPTR,l

STRIN(f
OPtRI'NOS1
YES
NO, UNSTACK SOURCE
AND SAYE VAL.UE ADDRESS
PREPA~E
SOU~CE

STRING
PREPARE
I.)tSTINATION STRING
SAYt:. CORE
POINTER
TRANSFER
TO
HIGH~R

CORt.:?
NO
YES,
OVlRLAPPING
TRANSFER1
NO
YES, SAVE
DESTINATION ADDRESS
sET OESTINATION
ADDREss TO STA~T
OF FREE CORE
SAVE TRANSFER
~fNCiTH
A~1..0CATE

SPACE FOR
INTERMEDIATE
STRINf.;
TRANSFER STRING TO FREE CORE
RESTORE T~ANSFER
LENGTH
RESET ACTUA~ SOURCE l.ENGTH
SET SOURCE
ADDRESS TO
INTERMEDIATE
STRING
RESTORE O~IGINAL
DESTINATION SfHING
TRANSFER
FREE
COHE POINTER
EXECUTE END-OF.fOHMULA
OfFER
EXtCUTION
COMPL~TE

~~STORE

PAGE 0143 #13

fORMULA EVALUATION ROUTINES

0312 43116 026500
IIJ13*
13314 43117 ~07402
0315 ••
16316 ••• EXECUTE •

0317."

JMP FORM4.b
BASSO OCT 74112
.. ..

*.*

.*
i631ij 43120 015372 EfAD JSB BINOP
0319 43121 015402
JSB ,fAD
0320 43122 026655
JMP FOR14
fd321H,
••
16322*** EXECU"(E .. ** ..
..
16323* ..
16324 43123 1615372 EFSS JS8 BIN(JP
JSB .FSS
0325 43124 015404
16326 43125 1()26655
JMP FOR14
0327 ••
*.
032d.·. EXECUTE • ..
0329 ...
**
0330 4312b 01537~ EfMP J8B BINOP
IOJ31 43127 01540·
J5B ,FMP
16332 43130 026655
JMP FOR14
0333 ••
10334* •• EXECU,E I
033e ••
10336 43131 015372 EFDV JSB BINOP
JSB .FOV
0337 43132 0154110
033ij 43133 1626655
JMP FORl'
0339 ••
••
16340* •• EXECUTE t .*.
0341.·
••
0342.
1d34J.* REAL POWER ••
0344.
*
0345.
EL.SE COMPUTE,:
034b* EXIT TO ERROR IF BASE IS NEGATIVE,
0347* RESUL.T AS EtcPOWER.LN(BASE)),
034S*
LOAD
fd349 43134 165332 EPwR LOd OPOST,l
OL.D 1, I
0350 43135 104200
POWER
43130 100001
INTEGER',
JSa IFlx
43137 1015416
103~1
JMP *+3
NO
0352 43140 027143
~J53
yES, 16.IHT1
43141 1~23rU
sos
0354 43142 027156
JMP IPWR
YES
JSB BINOP
NO, UNS lACK
0355 43143 015372
0356 43144 002001
AHGuME:.NTS
RSS
0357 43145 015354
CHECK ARGUMENTS
JSB PCHK
5SA
NEGATIVl tUSE?
"35ij 43146 002"2 rd
JS8 RfRRS+30,1 YES
kl359 43147 l1e144
NO, ~OAO ijASE:. ADDRESS
L.OS BINOI
0360 43150 065642
JSe ,L.OCl
TAKE NATUAL LOb
0361 43151 \115436
JSB , fMP
,,362 431 5 2 015400
MUL.TIPL.Y
",36J 43153 10164J
BY PO~ER
OfF BIN02,1
0364 43154 015434
JSB ,fXP
EXPONENTIATE
0365 43155 1026655
JMP FORl4

.

..

...
•••
••

•

PAGE

~144

#13

FORMULA EVALUATION ROUTINES

•
•

0366.
0367 •• INT~GER POWER .*
0368.
0J69.
0370. MULTIPLY BASE REPEATEDLY, U~lNG POWERS~OFwTWO METHO~
1d371· TO S~EED PROCESS, IF pow~R IS NEGATIVE, TAKE ~ECIPRCCAL
0372* FOR FINAL RESULT.
"'373.
0374 43156 ~75264 IPrtR STe TTl
SAVE SU;N
SSB
fORM ABSOLUTE
16375 43157 006°2 0
CMB,INB
0376 43161d 01d70'14
VALUE Of POWER
1IJ377 43161 075266
STB TT2
SAVE IT
0378 43162 015372
UN5TACK
JaB 81NOP
0379 43163 1d020e1
ARGUMEN1S
RSS
0380 43164 015354
JaB PCHK
CHECK ARGUMENrS
STaRt::
LOB SIN01
16381 43165 065642
SrA BINOl
"'382 43166 071642
ro383 43167 075643
BASE
STB BIN02
0384 43170 061040
LOA HALF
INITIALIZE
1d385 43171 071610
STA TT3
RESULT
0386 43172 060354
TO
LOA .+2
0387 43173 071617
STA TT4
1,0
fd388 43174 065266 IPWfH LOB TT2
OIVIIJE PowER
0389 43175 01d40J1
BY 2
SLB,BRS
1d390 43176 1d27215
JMP IPWR4
ODD POWER
0391 43177 1d75266
STB TT2
EVEN POWER
16392 43200 006002 IPWR2 SZS
ZERO',
JMP IPWR5
NO
03 9 3 43201 027226
1IJ394 43202 061264
LOA TTl
YES
S8A
POSITIVE POWER?
0 3 95 432",3 00202'"
NO
JMP IPWR3
1d396 43204 '127210
fd397 43205 061616
YfS, RETURN
LDA TT3
0398 43206 065611
WITH
LOB TT4
1d399 4J207 026655
Rf.SUL.l'
JMP FOR14
0400 43210 0610~0 IPWR3 LOA HALF
TAKE
RfCIPROCAL.
1..08
0401 43211 064354
0402 43212 0154HI
JSB .FOV
fOR
0403 43213 001616
OfF TTJ
FINAL
0404 43214 026655
JMP FORl4
RESUL.T
0405 43215 075266 IPWR4 5T8 TT2
SAVE POWER
L.OAO
0406 43216 061642
LOA BIN01
1d407 43217 065643
BASE
I..oe BIN02
1IJ408 43220 015406
MULTIpLY tiy
JSB .FMp
RESULT SO FAR
1d409 43221 00H>16
OEF TT3
SAVE NEW
STA TTJ
0410 43222 07161c
PARTIAL
STB TT4
0411 43223 075617
RESULT
0412 43224 065266
LOB TT2
0413 43225 1627200
JMP IpWR2
0414 4J226 061642 IPWR5 LOA BINOl
LOB BINO~
"'415 43227 065643
BASE
JaB ,FMP
0416 43231d 015406
0417 43231 1601642
OEF BINOl
RECORD
0418 43232 (071642
STA IHN01
1d419 43233 ",75643
Nt.w
STS BIN02
JMP IPWRl
BASt:
042 0 4J234 027174

.+a

PAliE ((j145 #14

FORMULA

,,""02**
0003.** EXe.CUiE >
1.1004**
0"'05 43235 015352
43236 ijlf}2020
~006
0007 43237 026665
"'008 43204 0 02726kl
0009 ••
00H'J·** EXECUTE <
0011.·

EVA~UATION

RUUTIN~S

**
*.*

••

E::GTRT JSB COMPR
SSA
JMP FAL.SE
JMP ENEQL+l
.*
.*.
.*
fLST JSB COMPR
CMA,RSS
.*

43241 015352
~012
0013 43242 0iD3001
0014 ••
",015 •• * EXECUTE >_ •••
0016.*
••
0017 4 32 43 01 5 3 5 2 EG()RE JSB COMPR
SSA
0018 43244 01"2020
JMP FALSE
001 9 43245 °2 66 65
JMP TRUE.
0020 43246 026670
0021**
*.
0022**. EXECUTE II * ••
0023.*
••
0024 43247 015352 Et:.QI. JSB COMPR
SZA
0025 43250 002002
0026 43251 026665
JMP FALSE
JMP TRUE
0027 43252 026670
0022,*.
---

••

0029·** EXECUTE 
I6k:1J7.*
*.
0038 43257 015352 ENEQL JSB COMPR
003g 43260 002002
alA
JMP TRUE
~040
43261 020610
JMp
43262
026665
FALsE
0041
0042**
0043.** EXECUTE 'MAX' * ••
0044 ••
0045 43263 015372 EMAX JSB BINOP
JSB ,FSB
0046 432 0 4 015404
SSA,RSS
432 65 002021
0~47
~048
43266 027216
JMP AHGl
0049 43267 104200 AHG2 01.0 BIN02,I
4327k) 101543
JMP FOR14
~050
43271 026650
01651.*
**
,,"52 ••• EXECUTE 'HIN'
0053*.
*.
0054 43272 015372 EMIN JS8 BINOP
JSB ,FSB
~055
43273 015404

COMPARE OPERANDS
•YES
1

NO

COMPARE OPERANDS
Rt:.VERSE COMPARISON SENSE

COMPARE OPERANDS
< ?

YES
NO

COMPARE OPERANDS
•NO ?
YES

CUMPARE OPERANDS
>- 1

NO
YES

•••

••

••

COMPARE OPERANDS
•NO 1
yES

SVtHRACl THE
TOP TWO OPERANOS
TOP OPERAND LARGER?
NO
YES, RETRIEVE
ITS VALUE

•••

SUBTHACT THE
TOP TWO OPE~ANDS

PAGE 0146 #14
005 6
0057
005 ..
0059
0e60
0061

0062
£1063.·

43274 002021

43275 1627267
43276 035332
43277 035332
43300 165332

AH(i1

JMP FOR14+2

EXECUTE 'AND'

43304 015372

SSA,RSS
JMP ARG2
liZ ClPOST
ISZ OPOST
LOS OPDST,I

DL.O 1,1

433£11 104200,
A3J~2 1£1£1£1£11
433£13 1626657

01664*.*
006S ••

0066
0067
111068
0969
0",70
0fit71

FORMULA EVALUATION ROUTINES

EAND

43305 002001

.*

.*

JSB BINOP
RSS
JMP FALSE
LDA BIN02,1
JMP ENE(jIL+l

43310 1616'3
43311 027260

0972*.
0073... EXECUTE 'OR'
.**
0074**
**
0075 43312 015372 ElOR JSB
0076 43313 0020£11
HSS
0077' 43314 002002
SZA
1607S 43315 026670
JMP
01679 43316 16164;)
LOA
JMP
0080 43317 02726'"

011581··
0082**.

EXECUTE 'NOT'

018~**

088e.
009"*
0091*
0092*
8093*
0094
0095
0096
00 97
0098
0099
010£1
0101
0102
0103
0104
01'~

01 8 6

0117
01'"

43320 015374

ENOT

BINOP
TRUE
BIN02,1
ENEQL.+1

UNSTAC;I<
OpERANDS
TOP OPERAND ZERO?
YES
NO, CHECK
NEXI.TO~TOP OPERAND

UNSTACK
OpERANDS
TOP OPERAND NO~·ZERO?
YES
NO, CHECK
NEXT.lO.TOP OPERANU

**

.**
**

JSB STTOP
011585 43321 02725~
JMP EEQL+l
0086**
**
0087*** INSURE VALID POWERING ***
008S..
••
0084

OPERANf.,l

***

sZA,Hsa

43306 002003
43307 026665

TOP OPERAND LARGER?
NO
YES,
RETRIEVE
'VALUE Of
NEXT-fO",TOP

LOAD TOP OPERAND
GO to CHECK

INSURES THAT AtB HAS ACCEPTABLE ARGUMlNTS. A.6.0 18 A NONERROR. A-0 AND ~<~ PRINTS A ~ARNING MESSAGE AND
RETUHNS THf MAXIMUM POSITIVE NUM8fR AS THE RESULT,
RECOV~RA8LE

43322 075642

43323

16~643

43324 002002
43325 r&2733 6

43326 01:)6003
43327 115143
4J33~ 006021
43331 026665
43332 115211
43333 060~74
43334 06435~
43335 026655
4 J33 6 006003
43337 02667k}
43340 125354

#PCHI< ST8 BINOl
LOS BIN02,l

LOAD HIGH PART
OF pOWER
aZA
~AsE ZERO?
JMP PCHKl
NO
SZ8,RSS
YES, POWER ZERO?
JS8 RERRS+29'1 YES
SSB,RSS
NO, POWER POSITIVE?
JMP FALSE
YES
JS8 WERRS+2,I NO
LOA INF
USE POSlTIVE
LDB ,.2
INFINITY
JMP fOR14
FOR RESULT
PCHKl SZ8,RSS
POWER ZERO?
JMP TRUE
YES, TAKE RESULT AS 1.0
JMP PCHK,J.
NO

PAGE 0147 *14
011fh*
~H

11*.*
0112.*
0113*
0114*
0115*
frH16*
IUl7*

011t5
0119
0120

0121
0122
121123
0124
0125

0126
01 2 7
0128
0129

0130
0131
0132
0133
0134
0135
0136
013 7
013~

0139
0140
0141

0142
0143
0144
16145

0146
01 4 7
01.~8

ifJ1 49

0150

0151
0152
0153

0154
0155
16156
0157
0158

0159
1"160

0161
0162
0163
0164

FORMULA ~VALUATION ~OUTINES

COMPARE TOP UPERANOS OF STACK
ON EXIT (Al IS NtGATIVE IF THE TOP OPERANO OF THE
STACK IS GREATER THAN THE NEXT~TO.TOP OPERANU,
POSITIVE IF IT IS LESS, AND ZE~O IF THEY ARE EQUAL.

43341
43342
43343
43344
43345
43346
43341
43350
43351
43352
43353
43354
43355
43356
43357
43360
43361
43362
43363
43364
43365
43366
43361
43370
43371
43372
43313
43314
43375
433 76
433 77
43400

161332
002020
027347
015372
ld15404
125352
060350
015344
071256
076410
061406
011434
060350
015344
075344
035330
035331d
035434

LOA
SSA
JMP
JSB
JSB
JMP
COMP1 LOA
JSB

srA

CUI'1P2

1027366

006400
027371

01536~

060412
064000
035406

COMP3

COMP4

0274~2

00240(:)
ifJ07004

CUMP5

04~001

002003
00tH'''3
125352
434~1 027362
434ifJ2 061344
434163 002006
43404 027401
43405 060412
434klo ifJ27374
434 0 7 071 3 44
434110 061272
4.3411 00~065
43412 1600010
43413 002a41
43414 001727
43415 010443
43416 03527~
43417 °27374

COMpo

COMP7

OPDST,l

STRING

CaMPI
81NOP
,FSB
COMPR,l
, .. 2
PSTH
TEMP"
TPRME
TNULL
CP0
, ... 2
PSTR
cP1
TMPST
TMPST
CPfr:)
COMPJ

yES
NO, COMPARE
NUMER1CAL
OPERANDS
PREPARE
COMPAfHSON
STRlNG

A~GUMENTS1

STli
LOA
STA
LOA
JSli
STS
ISZ
ISZ
ISZ
JMP
CLB
JMP COMP4
JSB FSCH
LOA ,+408
LOB !d
lSZ TNULL
JMP COMPtI
CL.A
CMB'INB
ADA 1
SZA,RSS
SZB,RSS
JMP COMP~,1
JMP COMP2
LOA Cpl
INA,SZA
JMP COMP7
LOA .... 40S
JMP COMP!)
STA CPI
LOA TEMP5
CLE,ERA
LOA 0,1
sEZ,RSS
AI.F,ALF
AND 6377
ISZ TEMP5
JMP COMP5

SAVE SPECiFIED
Lt.NGTH
PREpARE
TEST STRING
SAVE ACTUAL LENGTH
RESERVE SPACE
FOR RESULT
MOHE SPECIFIED STRING?
YES
NO, LOAD A

NUl..L. CHARACTER
LOAD NEXT
COMPARI~ON

CHARAC n R
MORE SPECIFIED TEST STRING?
yE:.S

NO, l..OAD NULL CHARACTER
COMPARE
CHARACTt:.RS
EXIT ON NOT EQUAL
OR

BOTH NULL
C;HMUCTlRS

MORE ACTUAL
T£ST STRING?

YES
NO, LUAD A

~LANK

EXTRACT
NEXT
TEST

CHARACTER

\,
\

~166·*

0167.**

••

.*.*

PRlPARE STRING OPERAND

0168**

0169.
0170.
0171·

0172.
0173.
0174.
1d175.

0176*
10177*
10 178.
0179·

10180*
0181*
10182.
0183.

THE STRING ADDRESS ON TOP OF THE OPERAND STACK IS COMbINED
WITH THE SUBSCRlPTS IN A PSUEDU.ENTRY ON THE T~MPORARY STACK
TO fORM A STRING OPERAND, (A). ~a UPON ENT~Y FOR A SOU~CE
STRINGj (A) • ~1 FOR A DESTINATION STRlNG, THE ADDRESS Of
THE fIRST CHARACTE~ OF THE STRING OPERAND 1S L~FT IN TEMP5;
FOR SOURCE STRINGS (Al • TEMP5 UPON EXIT, THE REQUESTED
STRING LENGTH (IN CHARACTERS) IS LEfT IN TNULLi FOR SOURCE
STRINGS THE ACTUAL STRING LENGTH (WHICH MAY BE LESS THAN THE
REQUESTED LENGTH) IS IN (6) uPON EXIT, THE fOLLOWING
CONDlTIONS EXIT TO ERRORz NEGATIVE STRING LENGTH, REQUESTED
DESTINATION STRING WOULD EXCElD PHYSlCAL STRIN~ BOUNDARY, OR
REQUESTEO UESTINATION STRING wOULD PRODUCE A SlR1NG QUANTITY
WITH TWO UNCONNECT~D pARTS, THE LOGICAL LEN~TH OF A
DESTINATION STHING IS AOJUSTED AS NEEDlD.

IU84*
018 5 43420 071470
1d186 43421 015316
ftH87 43422 075464
0188

0189
0190
131 91
0192
0193
lOi94
0195
0196
0197
101 98
0199
0200
0201
0202
0203
0204
0205
0206
0207
0208
020 9
0210
0211
0212
0213
~214

0215
0216
0217
0218
10219

1il220

43423
43424
434 2 5
43426
43427
4343 0
43431

~0500ii
~75272

#PSTR STA
JSB
S18
BLa
STa

005100

!:iRS

044351
075260

5T8

06533 0

L.OB

",44354

43432 160"01
43433
43434
43435
43436
43437
43440
43441
43442
43443

071400
041272
0 7 1272
",71574
006 00 4
160001
002005

43445
43446
43447
4345",
43451
43452
43453
43454
43455

027451

02745~

003400

43444 001470
161260

010443
027455

",71464
061410
003000
041400

",71376
43456 003000
4 3 457
43460
43461
43462
43463

041400
002°2 1
115130

071406
042005

AOB
ADS

PS0
OPCHK
PSl
TEMP5

~HARACTE.R

OF

STRIN~

SAVE

.1

fEMP6
TMPST
,+2
1,1
MPT
TEMP5
TEMP5
SBPTR

LOA
STA
ADA
STA
STA
INS
LDA 1,1
INA,SZA
JMP PSTR2

ceA

SAVE MODE Ft.~G
UNSTACK OPERANO
SET FLAG POSITIVE
SAVE. AODREss UF FIRSl
P01NTER TO
STRING LENGTH
LOAD
START"OF .. STRING
DESIGNATOR
SAVE IT
,
RECORO CHARACTER ADDkESS
OP START~OF-STkING
SAVE ADDRESS
LOAD
ENVwOF-STklNG OESIbNATOR
SPECIfIED?
yES
NO
'SOURCE' MODE?
NO
YES, LOAO STRING.S
"LOGICAL LEN('TH

CPA PS0
JMP PS1R1
LDA TEMP6,1
AND 8377
JMP PSTRa
SET fl.AG TO .1
PSTR1 STA PSI
COMPUTE
LDA TPRME
END. Of" .S TlU NG
eMA
ADA MPT
Of-SIGNA TOR
PSTR2 51 A NIH
SAVE IT
(.MA
IS L.ENGTH
ADA MPT
Of SPECIFIEU STRIN~
SSA,RSS
NEGATIVt.?
JIB RERRS+1a,I YES
STA TNUL.L
>721
ADA .73

~AGE

0221
0222
10223
0224
0225
0226
0227
1022~

0229
0230
0231
0232
0233
0234
0235
0236
0237
023~

10239
0240
0241
0242
0243
0244
0245
10246
0247
0248
0249
0250
0251
0252
fc1253
0254
0255
0256
0257
1r)25~

0149 *14
43464
43465
43466
43467
43470
43471
43472
43473
43414
43415
43476
43477
43500
435101
43502
43503
43504
43505
43506
43507
43510
43511
43512
43513
43514
43515
43516
43517
43520
43521
43522
43523
43524
43525
43526
43527
43530
43531
43532
43533
43534
43535
43536
43537
43540

FORMULA EVALUATION ROUTINES

..,02020

SSA

1~5132

JSB RERRS+2~,I
OOES
LDA TEMP6,1
AND B377
START.OF.STRING
CMA
CHARACTER
ISl PS0
REL.ATE TO
INA
PREVIOUS
AOA MPT
VALUE
SSA,RSS
OF STRING?
Jr1P PSTR3
NO
LDA TEMP6,I
YES, EXTRACT
15Z PS0
END.OF.
ALF,ALF
PERMITTlD.STRING
AND B377
O~SlG~ATOR
CMA
COMPUTE DIFFERENCE FROM
AOA NQT
END OF SPECIFIED STRING ~1
C~8,lNB
'SOURCE'
CPB PS~
MODE?
JMP PSTRS
NO
LOS TNULL
ytS, SPECIF~EO SOURCl STRING
INA
CONTAINED WITHIN
SSA,RSS
DEFINED SOURCE STRING?
ADB ~
NO, CORRECT LENGTH
JMP PSTR4
Of ACTUAL SOURCE STRING
ISZ PS0
,SOURCE' MOOE1
JSB RERRS+19,1 NO
cca
yES, SET ACTUAL LENGTH TO 0
LOA TEMP5
LOAD START-Of-STRING
JMP PSTR,l
CHARACTER ADDRESS
SSA,RSS
PHYSICAL STORAGE OVERFLOW?
JS8 RERRS+20,1 YES
ISZ PSl
ENO.OF-STRl~G SPECIFIED?
JMP PSTR7
YtS
LUA TEMP6,I
NO,
AND M256
RlSET
lOR NQT
LOGICAL LENGTH
srA TEMPO,l
OF STRING
JMP PSTR,l
LOA TE~p6,I
IS NE.W

161260
01044J
003000
035470
002004
041400
002021
027514
HS1260
035471d
001727
010443
003fd00
041370
006404
055470
027521
065406
002004
002021
0440\10
027517
035470
11fS131
001400
061272
125344
002 0 21
115 132
035464
027532
161260
1010762
0J1376
171260
125344
161260
010443
003000
041376
102821
027525
125344

PSTR3

PSTR4

PSTR5

PSTR6

0259
PSTR7
AND 8371
DESTINATION
02 6 0
CMA
0261
STRING
ADA NCilT
0262
LONGER
1J263
THAN OLD1
IS·,RSS
0264
yES
JMP PSTR6
0265
JMP PSTR,!
NO
, 0260.·
0267... STACK STRING CONSTANT •••
0268..
••
8269.
0270* SEE NOTE AT FOR13 OF ROUTINE FORMX
flJ271.
0272 43541 035JJ2 _STST ISZ OPOST
STACK
0273 43542 fD35332
ISZ OPoST
NE&fATIVE
LOA TEMPI
0274 43543 061613
OF
CMA
0275 43544 003000
STRING

••

PAGE
0276
0277

0278
0279
0280
0281

0282
0283

0284

0285
0286
fd287

~150

43S45
43546
43547
43550
43551

#14

FORMULA EVALUATION ROUTINES

171JJ4i
16161J
0104~3

007400
044000

435S2 040355

43553 001100

43554 041613
435S5 071613
43556 015400

43S57 002400
43500 104400
43561 101330

SlA
LDA
AND
eCB
ADa
ADA
ARS'
ADA
STA
Ja8
eLA
DST

OPOST,l
TEMP1,I

ADDRESS

COMPUTE
SHUNG

6377

LENGTH
.1

"
,+3
TEMPt··

TEMP1
RSCHK
TMPST,I

UPDATE
INnU.ST ATEMENT
POINTER
PAST STRING
CREATf TEMPORARY
RECORD
(0,(8) )

0288 43562 125340
JMP STSTR,1
0289.*
**
~290***
FETCH SOURCE CHARACTER ***
0291**
0292*
0293* CHARACTER ADDRESS IN TEMP4, SOURCE CHARACTtR COUNT
0294- IN TPRME (IN l'S COMPLEMENT), EXIT To CP+l) ON NO
0295* MORE CHARACTERS (TPRME • "1) ELSE EXIT TO (P+2) WITH
~296*
NEXT CHARACTER IN (A),
0297.
MORE
0298 43563 061410 #fSCH LDA TPRME
0299 43564 002007
lNA,SZA,RSS
CHARACTERS?
0300 43S65 la536~
JMp FSCH,!
NU
0301 43566 071410
STA TPRME
YES, UPDATE CHARACTER COUNT
LOA TEMP4
LOAD CHARAC1ER
0302 43567 061256
1f)303 43570 000065
CLE,ERA
ADDREss
0304 43571 160000
LOA !tI,1
EXTRACT
0305 43572 002041
SEZ,RSS
Ne.XT
CHARACTER
ALF,ALF
03 0 6 4JS73 001727
0307 43574 010443
AND bJ77
0308 43575 035256
ISZ TEMP4
UPDAT~ CHARACTER ADDRESS
18Z FSCH
0309 43576 035364
11)310 4J577 125364
JMP FSCH,I
0311_*
0312*** FETCH SOURCE CHARACTER (UPPER CASEl ***

_.

_.

••

,,313**

0314.
0315*
0316*

SAME AS FSCH, EXCEPT LOWER CASE CHARACTERS ARE CON~ERTED 10
UPPER CASE. USED BY CHAIN AND ASSIGN STATEMENTS.

~317.

0318

0614 HI
002007

0323

43600
43001
436"2
43603
43604
43605

0324

43606 160000

0325
0326
0327

43607 002041
43610 001727
43 611 "10443
43 612 040766

1f)319

0320
0321

0322

0328
0329

125562

071410

06125S

000065

43613 1!l0202 1

LOA TPRME
INA,SZA,RSS
JMP FeUC,l
STA TPRME
LOA TEMP4
CLE,ERA
LDA A,l
SEZ,RSS
ALF,ALF
AND 8377
ADA M~6
SSA,RSS

MORE
CHAIUCTE.RS?
NO

YES, UPOAfE CHARACTER COUNT
LOAD CHARACTER
ADDRESS
EXTRACT
NEXT
CHARACTER
LOWER CASE

PAGE

~151

*14

FORMULA EVALUATIUN ROUTINES

0330
0331

43614
43615

fcl332

43616 (()35256
43617 035562

0333
0334

43620 125562

0335··
0336...
0337"',

eJ3a.
0339.

0340·
0341.
0342.

~40317
04073~

ADA M32
AOA ,14'"
ISZ TEMP4

ISZ FCUC
JMP FC;UC,l

FETCH INPUT CHARACTiR

NO
YES
UPDATE CHARACTER ADDRESS

••

•••
••

EXITS NORMALLY TO (P+2) WITH NEXT INPUT CHARACTER IN (A),
IF THE CHARACTER IS A " OR THE INPUT RECO~O 15 EMPTY,
EXIT TO TRSTR,1 (THE ONLY CALLER WHO CAN ENCOUNTER THIS
CONDIT10N),

0343*

fr:l344

0345

0346

0347
034ij
034 9
1d350

43621 "35274
43622 015450
43623 12!535~
43624 060001
43625 050414
43626 125350

43627 125274

#fINC ISz FINCH
JSB GETCR
JMP TRSTR,l

LOA B

CPA .+42B

JMP TF~8TR,1
JMP FINCH,l

FETCH NEXT CHARACTER
NONe. IN 8UFfoE,R
ALLOW LOwER CASt;.
" 1

YES,
NO

TERMIN~L

EXIT

0352**

~353***

**
***
**

FETCH ENTER CHARACTER

0354**
030th
0356* SAME AS FINCH EXCEPT IT DOES NOT
fcJJ57.
0358 43630 035524
tsz FENCH
0359 43631 01545'"
JSS GETCR
1d360 43632 125350
JMP TRSTR,l
LOA 6
0361 43633 060001
0362 43634 125524
JMP FENCH,I
0363**
**
0364.** FETCH TOP OF STACK ***

CHICH FOR A QUOTE
FETCH NEXT CM~RACTER
NONE IN BUFfER
ALLOW LOWER CASE
CHARACTER FUUNO

*.

~365**

0366.
0367· EXIT WITH TOP UPERANO IN CA) AND (8l AfrER UNSTACKING
0366. IT, CREATE EMPTY SPACE ON TEMPORARY STACK FOR FUTURE
0369* INTERMEDIATE RESULT,
031',*
UN8TACK OPERAND
0371 43635 016376 _STTP JaB OPCMK
CREATE
SPACE FOR TEMPORARY
Jae
RSCHK
.0372 43636 015400
rd373 43637 H,4200
LOAD
TOP
OPERAND
OI.D 1,1
43640 100001
0374 43641 125374
JMP STTOP,~
0315**
**
rd376*** EXECUTE A BINARY OP!RATOR ***
0377**
**
0378.
0379* ON ENTRY (P+l) CONTAINS A SUSHOUTINE CALL fOR A BINARY
0380* OPERATION. THE TOP TWO OPERANOS ON THE STACK ARE
0381* UNSTACKEO AND VERIFIEO AS NOT HEIN~ 'UNDEFINEO.'
THE
0382* ApPROPRIATE SUBROUTINE Is CALLED wITH THE TOp ARGUMENT'S
0383* ADDRESS IN BIN02 AND THE NEXT-TO.lOP ARGUMENT'S VALUE IN
0384* (A) AND (6). EXIT IS TO (P.2) WITH THE RESULT IN (Al
0385* AND on.
SAVE
0386 43642 161372 #BNOP LOA BINOP,I
0387 43643 071642
srA (:SINO!
SUt:SROUT1NE.
lSZ BINOP
CALL
0388 43644 035372
0389 43645 015376
SAVE AODRES8 OF
JSB OPCHK
TOP OPEHANO
STB BIN02
0390 43646 075643
03Q1 43647 015374
fETCN NEXT OPERAND
JSB STTOP
JMP BINOI
EXECUTE SUBROUTINE
0392 43650 025642
03Q3.*
0394*** VEHIFY LEGITIMACY OF OPERAND ***
0395.*

*.

**

(tj3~6.

"3 9 7*
0396.
03Q9*
0400*
0401.

0."a.
0403
0404
0405

THE VALUE REFERENCED BY THE TOP OF THE OPERAND STAC~
IS CHECKED, EXIT TO ERROR IF VALUE IS 'UNDEfINED.'
ELSE REMOVE OPERAND ADDRESS FROM STACK AND REMOVE VALUE
FRoM TOp OF TEMPORARY STACK, If IT IS THERE. EXIT
WITH OPERAND ADDRESS IN (8),
43651 165332
43652 006020
43 6 53 027676

*OPCK LOB UPPSl,!
SSB
JMP OPCH3-1

ST/UN"

OpERAN01

YES

PAGE 0153 *14

FORMULA EVALUATION ROUTINES

0406 43654 16f601cH
LOA 1,1
NO, HIGH PART OF
0407 43655 001222
RAL,RAL
IS
INA
kJ408 43656 010 21004
OPERAND
RAR,SLA
0409 43657 liHH310
NORt-tALIZE.O?
0410 43660 021670
JMP OPCH1
yES
0411 43661 0~1036
CPA BIT15
~AS FIRST WORD ZERO
0412 4J662 006005
INB,RSS
YtS
0413 43663 115135
JSB RERRS+23,1 NO.~ERROR
10414 43664 160001
LOA 1,1
SECOND
0415 43665 002002
SLA
WORD ZER01
0416 43666 115135
JS~ RERRS+aJ,l NOe.ERROR
10417 43667 (d44351
AOB ,-1
YES.~RESTORE OpE~ANO ADOR~SS
0418 43670 05533~ OPCH1 CPB TMPST
TEMPORARY?
0419 43671 027677
JMP OPCH3
YES
0420 43672 061332 OPCH2 LOA OPOST
NO,
0421
43673 0410350
AOA ,-2
UNSTACK
0422 43674 1071332
STA OPDST
OPERA NO
0423 43675 125376
JMP OPCHK,l
ADDRESS
CMB,INS
SET ADD~ESS TRUE
04 2 4 4 3 676 0107 00 4
0425 43677 [d61330 OPCH3 LOA TMPST
UNSTACK
10426 43700 040350
ADA ,-2
TEMpORAR~
10427 43701 071330
STA TMPST
OPERAND
JMP OPCH2
0428 43702 027672
0429**
**
10 43°*** ALLOCATE AN E~TRY ON THE TEMPORARY SlAC~ ***
0431**
**
8432*
(B) IS UNCHANGEU UPON EXIT
ON STACK OVERFLOW,
0433*
0434* THE OPER~TOR ANU OPERAND SlACKS ARE MOVED TO HIGHtR
0435* CORE TO MAKE ROOM FOR FIVE MORE TEMPORARY ENTRIES,
""036*
LOA TMPST
ADVANCE
10437 43703 06133e
ADA ,+2
POlNTER 10
10438 43104 040354
10439 4371d5 071330
STA TMPST
NEXT EN1RY
104410 43706 0kJ2004
STACK
INA
CPA OPTRQ
OVERFL.O~1
0441 437~1 051466
10442 43110 0~2w)01
yf.S
RSS
JMp RSCHK,1
0443 43711 1254160
NO
STB RT0
10444 43712 1075440
SAVE (8)
0445 43713 064056
LOAD SOURCE ADDRESS
L.OB Pe PTR
l.f)A .+10
AL.LOCATE SPACE FOR
0446 43714 060364
JSB CUSP
FIVE MORE
10447 43715 1015326
070056
pBPTR
4J716
STA
TEMPURARIES
0"4~
kl449 43717 071442
STA RTl
SAVE OESTINATION AODkESS
10450 43720 160001 RSCH1 LOA 1d
TRANSFER
A WORD
0451 43721 171442
STA RT1,1
10452 ~J722 055330
TMPSI
CPS
OONE1
10453 43723 027731
YES
JMP RSCH2
NO, DECREMENT
CCA
10454 43724 0034rc!0
10455 43 7 25 041442
DESTINATION
ADA RT1
0456 43726 1071442
STA RTl
AND SOURCE
AOe '-1
ACDRESSES
0457 43727 rc!44351
045 8 437JW) 027720
JMP RSCH1
0459 43731 1361332 RSCH2 Lf)A OPOST
CORRECT
ADA ,+10
0460 43732 040364

PAGE 0154 #14

FORMULA EVALUATION ROUTINES·

0461 43733 kJ71J32
STA OPDST
0462 43134 061466
l...DA oPTRQ
0463 43735 040364
ADA ,+10
STA OPTRG
0464 43736 [67 1 466
0465 43737 061)440
LDB RTrtJ
fcJ466 4J740 1254rtJ0
JMP RSCHK,l
0467.·
0466*.* PUSH UOWN OPERATOR STACK •••

STACK

POINTERS
RESTORE (8)

••

••

£1469 ••

",4'".
fcJ471*

ALLOCATE AN ENTRY ON THE OPERATOR STACK.

0472* NOT CHANGED,
"'413.
0474 43741 064£156
fcJ415 43742 "44354
~476
43743 007£100
0477 43744 ~44462
0476 43745 0£16e2e
0479 43746 115120
~480
43,47 034£156
0481 43750 034£156
",482 43751 125366

LOS PBPTR
ADB ,+2
CMB
ADa

ssB

JaB

ISZ

I8Z
JMP

CAl 1S

ADVANCE
STACK PUINTER
uS~R

SPACE
OVERFLOW?
RERRS+1'0,1 yES
PBPTR
NO, AllOCATE
PBPTR
STORAGE
PSHST,l

PAGE 0155 #10
0002
0lde3
0004
itl005
0006
0007
0008
0009

EXECUTION UrlLITY ROUTINtS

44000
44000
44001
44002
44003
44004
44005

1416000
077600
176736
177734
177716
177761
44006 072133
44007 062613

0010
0011··
0012...

ORG 44000B
UNNRM OCT 140000
SMS" OCT 77600
Sf:.RRA
RERRA
FERRA
WtRRA
OSERR
SICKL

"ASS
ABS
ASS
ASS
OfF
OEF

.. SERRS
SERRS""RERRS
RERRS .. Ft:.RRS
FE.RRS.Wf:.RRS
OSERA
SICK

ROUND NUM8ER TO INTEiER

IOlrH3 ••

**
***

.*

"014.
0015-- ENTER WITH NUMBER IN CA) AND (8), EXIT TO (P+2) IF
0016* INTEGER FORM CROUNOEO AS NEEOED) IS POSITIVE AND NOT
0017. LARGER THAN 15 ~lTS, ELSE EXIT TO (p+l). ON ~XIT TO
0018* CP+2), (6) HULDS THE INTEbER ~IASED BY .1.
1119.
IIH,20 44010 015416
JSS IFIX
TRUNCATE:. NUMSER
0021 44011 12 S342
JMP S8fIX,1
NUMBER TOO LARGE
0022

44~lJ12

0023
0024
1d1d25
0026
0027
0028

44013 125342
44014 0fC12041
44015 044351
44016 006021
44017 035342
44020 125342

002002

SZA

JMP SBFIX,l
SEZ,RSS
ADB •• 1
SS8,RSS

lSZ BaFIX

JMP

S~FIX,I

INTEGER OVERFLOW1
YES
NO, HOUNOING ~lT?
NO, BIAS INTEGER By ~1
YES, POSlTIV~ RESULT?
YES
NU

PAGE

~156

#15

EXECUTION UTILITY

••

R~UTINES

0030**
0031*** INTEGERIZE A NUMBER *••
0032**
0033.
0034* ENTEH WITH A FLOATING POINT NUMBER IN (Al ANO (8).
0035. IF EXPONENT EXCEEDS 23, NUMBER HAS INTtGER SlGNlfICANCEI
0036* EXIT TO (P+ll, ALL OTHER CAS~S EXIT TO (P+2) wITH 32RSIT
~037.
INTEGER RIGHT JUSTIFIED IN (Al ANO (~). ON EXIT (0) • 0
16038* IF NUMBER IS EXACTLY REPRESENTABLE AS A 16-BIT INTEGER.
0039* IF EXPONENT IS NEGATIVE, TRUNCATE TO 0 OR ~1 APPROPRIATELY
0040* AND LET (0) • 1. UTHERWlSE RIGHT JUSTIFY INTEGER AND EXIT
16041. WITH LAST 6lT LOST IN eEl.
0042.
STA TEMP6
SAVE (A)
0043 44021 071260
STO
SfT 'NOT ONE.wORO INTEGER' MODE
0044 44022 102HH
UNPACK (B)
JIB .FI.UN
"045 44023 015414
NEGATIVE EXPONENT?
SSA
0046 44024 002020
yES
0047 44025 026050
JMP IFIXJ
0{')48 44026 040332
ADA .-16
NO, EXPONt;.NET
0049 44027 002020
c. 151
SSA
0050 44030 103101
YES
CI.O
NO, EXPONENT
ADA
44031 040342
0051
c. 23?
SIA,RS8
0052 44032 002021
0053 44033 125416
NO, ALL SIGNIfICANCE Is INTEGER
JMP IFIX,I
0054 44034 040342
ADA ,-8
YES, MOVE BINARY POINT To END Of
0055 4403fS 071322
(8) AND SAvE SHIFT COUNT
STA EXP
RETRIEVE CA)
LOA TE;MP6
0056 44 0 36 06126111
0057 44037 026044
JMP IfIX2
SHIFT CA) RIGHT
0058 44040 000071 IF Ixt CI..E,SLA,ARS
SHIt~ T
eMf
0059 44041 002200
(ti) RIGHT
0060 44042 0040J~
Sl.a,ERts
0061 44043 102101
aTO
LOST A 1
ALL SHIFTS OONE?
""62 44044 035322 IFIX2 Iaz EXP
NO
006 3 4404 5 1626040
JMP IF"lXl
YES
0064 44046 035416
ISl IF"IX
JMp I ... Ix,l
"065 44047 125416
0066 44050 061260 IFIXJ LDA TEMPO
RETRIEVE (AJ
TRUNCATE
CLE.,SSA
0067 44051 002 1 2°
TO
CCA,RSS
0068 44052 003401
CI.A,RSS
"069 44053 002401
CCB,RSS
0070 44054 1607401
0071 44055 006400
o
CL.B
0072 44056 026046
JMP IFIX3.2

••

,-e

PAG~

~157

0074**
0075***
0076**

ee71.

007t3*
0079*
0080*
0081*
1/t1t)82 *
0083.
0084*
0085*
0086.
0087*
008th
0089*

1210 9"'*
012191*
.,892*

0093

","'94
009 5

121 0 96
0",97
009t3
0099
0100
0101
0102
0103

0104
0105
0106
1t)107
1t)10t3

121109
121110
121111

~15

EXECUTION UTILITY ROUTINES

REQUEST A RECOHD

*to

UPON ENTRY (A) HOLDS A FIL~ NUMBER (POSITIVE FOR A READ
REQUEST, NEGATIV~ FOR A WRIT~ REQUEST) AND (~) SPeCIfIES
VALIUATION OF THE FILE,S EXISTENCE ( (6) • ~2) OR THE FILE
RECORD TO ~E PUT IN THE FILE SUffER ( (6) • -1 ~EQUESTS
THE RECORD WHICH foLLOWS THE ONE CURR~NTLY IN lHE BUFt~H,
(8) >- " REQUESTS RECORD (B)+l),
EXIT TO ERROR If THE·
FILE DOES NOT EXIST OR A "HITE REQUEST IS GIVEN fOR A
~EAD.ONLY fILE.
EXIT TO THE ENDwOt·~lLE CODE IF THE
REQUESTED RECOHD DOES NOT EXIST, OTHERWlSf, THt OIRTY
~IT IS EXAMINED TO DETERMINE IF THE FILE ~utFER sHUuLU
BE ~RITTEN BACK TO DISC,
A READ REQUEST READS THE REQUESTED RECORD IN10 THE sUffER,
A WRITE REQUEST MERELY INITIALIZES THE BUffER TO 'EMP1Y',
lHE FILE TABLE IS UPDATED TO REFLECT lHf CHANGES,
44057 07:)651
4400" 007400
44i!101 002fc)20
44~62

k1064~1

44063 00300~
44064 0756416

44065 ~41502
44066 Idk1J0~1
44067 1151~1
44070 041502
44071 10020.0
44072 000371
44073 041504
44074 071236

44075
44076
44ld77
441ki0
44101
44102
44103
44104
44105
.4U,6

161236
0020eJ3
1151~H

066236
~44356

075230

011t3

007500
0",2020
055640
r,HU675
44107 115152
44110 065651
44111 054350

0119

44112

.026351

0121t)
0121
0122
0123
0124
0125
0126
121127

44113
44114
44115
44116
44117
44120
44121
44122

035651
0261416
165236
12155036
02614f'
035236
165236
03 5 236

It) 112

011J
(0114

.,115
0116
0117

**

***

STB RQ2

SAV t RECOHD RlFEkENCE
GET 1'5 COMPL~MENT
5SA
Of FILE NUMBER AND
CLS,RSS
SET RQl • -1 FOR A
CMA
READ HEQUlST Ok 0
srs RQl
FOR A ~RITt HlQUEST
ADA FCNT~
DOES REQUESTED
CMA,SSA,RSS
fILE EXIS1?
JS8 RERRS+35,1 NO
AU A FCNTR
YES
MPY ,+FTEL
SET POINTER
~CB

AOA FILTB
TO fILE TABLE
SlA FBASE
ENTkY
~DA FBASE,l
LOAD NUMBER OF RECORDS
SZA,RSS
DoEs fILE EXIST?
JSB RfRRS+35,I
LDS FBASE
AOB ,+41
STa FBASt::
cca,CLE
SSA
READ-ONLY FILE?
CpB RQl
yES, READ REQUEST1
ELA,CLt,SLA,ERA
yES, CLEAR ~IT 1b AND SKIP
JSB RERRS+36'1 NO
Loa RQ2
FILE VALIDATION
cPS ,-2
ONLY?
JMP RQST9
yES
IsZ RQ2
NO, RECORD SPECIfIED?
JMP RQST2
YES
LOB FbASE,l
NO, ~ET H.GH OLD RECUkD AODRESS
CPS BIT15
NULL RECOROi
JMP RQST6
YES
ISZ fBASE
NO, COMPUTE
LOB ~~ASE,l
RE~ORD'S
ISl FBASE
DISTANCE

PAGE 0158 *15
~128

kl129
0130
(d131
0132
0133
0134
0135
0136
10137

0138
0139
k:l140
01411
0142
0143
"'144
0145
((J146
0147
01 4 8
0149
0150
0151
fd152
0153
01541
0155
0156
IU57
°1 58
0159
0160
0161
0162
01 6 3
0164
1d165
0166
0167
0168
fd169
0170
0171
0172
10173
1a174

0175
1d176
0177
1t117tS
0179
k:l18 0
0181
11'182

44123
44124
44125
44126
44127
44130
441 ~H
44132
44133
44134
44135
44136
441J7
44140
44141
44142
44143
44144
44145
44146
44147
44150
44151
44152
44153
44154
44155

441 5 6
44157
44160
441 6 1

44162
44163
44164
441 65
44166
44167
44170
44171
44172
44173
44174
44175
44176
44177
44200

~XECUTION

035236
00700fd
145236
007000
00341iJ0
041236
16000.,
003003
005121
1t160343
04123tl
160000
ICHH665
1d04010
i:J44000
005100
006004
0261~1

0106400
0J5236
035236
035236
003004
(d40001
002020
1d2616fd
035236
0352Jo
125006
040001
03 0 353
005000
002020
060001
00 74 00
~45236

164001
007 H'J3
001020
1412J6
071651
007000
002041r;)
fdld6004
075650
064344
44201 1.145236
44202 1640"1
44203 005423
44204 1d"'00~
44205 075652
44206 035236
44207 145236
44210 1a3523~
44211 175236

UTILITY ROUTINES

ISZ fSASE
FROM
eMB
FIRST
ADS PBASE,l
REtORD
eMS
CCA
GET UPpER
ADA F8ASE
WORD OF
LOA A,l
DIsC AOUR~SS
CMA,SZA,RSS
fiLE ON D~UM1
BRS,SRS
vES, 4 sECTORS. 1 RECORD
LOA .·7
GET RECORD
ADA FBASE
COUNT BACK
LOA A,I
INTO A
ELA,CLE,ERA
CLEAR BIT 15
SLB
ADS A
aRS
NEW ~ECORO
INB
NUMBER
JMP RQST7
RQST6 CLB
NO RECORD IN CORE
RW~T2 ISZ FBASE
ADJUST POINTER
lSZ PBASE
TO LOW WORD
ISZ FBASE
uF BASl ADDRESS
RQST7 CMA,INA
DOEs
ADA 1
RECORD
S9A
EXIST?
JMP •••
YES
ISZ F8ASE
NO, CORRECT fSASE
ISZ PBASE
JMP FDT4A,1
FOR EOF EXIT CHECK
ADA 1
lOR •• 1
CUMPUTE RELATIVE
BLI
DISC
SSA
ADDREss
LDA 1
OF NEW klCORD
cee
GET HIGH
ADe FBASE
DISC
LOB B,1
ADDREss
CMB,CLE,SlB,RSS
FILE ON DRUM?
ALS,ALS
VES, 1 RECORD. 4 SEC10RS
ADA FBASE,I
COMPUTE LOW DISC AOOkESS
srA RQ2
SAVE IT
eMS
OLD HIGH ADDREsS
sEZ
INCREMENT IF
INS
CARRY FROM
ST8 RQ4
LOW ADD .
LOB •• 6
GET
ADB FBASE
NEGATIVE
LOB B,l
of BufFER
BLH,RSR
CMB,INS
SIZE
STB RQ5
SAVE IT
ISZ PBASE
SET POINT~R
ADB F8ASE,1
TO BEGINNING
IsZ FBASE
ST8 FSASE,1
O~ RECORD BUfFER

PAGE
0183
0184
0185
IrH86
0187
fd18~

11'1 89
01911'
11'191
0192
0193
~194

"1 9 5
019 6
0197
10198

0199
0200
0201
02 0 2
0203
0204
0205
0206
10207
020~

0209
fd211t3
1/1211
0212
0213
0214
0215
0216
0217
0218
0219
0220
0221
0222
10223
0224
1iJ225

0226
1d227
16228
1t'J229
16231/1
!d231
0232
10233
0234
16235
~236

,,237

~1~9

44212
44213
44214
44215
44216
44217
44220
44221
44222
44223
44224
44225
44225
44226
44227
44 2316
44231
44232
44233
44234
44235
44236
44237
44240
44241
44242
44243
44244
44245
44246
44247
44250
44251
44252
44253
44254
44255
44 2 56
44257
44260
44261
44262
44262
44263
44264
44265
44266
44267
44270
44271
44272
44273
44274
44275
44276

*15

EXECUTIUN UTILITY

1075647
065236
1044346
075236
1044351
164001
055036
026225
15123~

026267
1015516
035646
026272
1065652
002 4 0 4
1041236
16000fd
103100
0°3 00 2
026241
061651
074072
063647
045036
114770
060261
fd02020
026243
11126262
060355
"40544
074215
",65647
f645P.1J6
114212

STS
LOB
AOS
STB
ADB
LOB

B,l

SAVE ADORESS Of
MOV~ TO

~UFFER

UlaC

AODRESS~5

IS ANY
RECORD
IN CORE1
NO, SKIP COMPA~E AND WRITE
OLD AND NEW RECOkDS THE SAME?
YES
NO, WRITE OLD RECORD TO DISC
REAU REQUEST?
NO
GET NEGATIVt SUFfER SIZE
CHECK
FOR
DISC

OR
DRUM
DRUM'
READ IN
RfWUESTEO
RECORD

SSA

RQST8

RQSlr6

026275
006400
074261
115163
fd26J42
1d6435ic:1
175647
026342
11'65236
044363

t~4

FSASE
,-1

JMP RQS15
CPA FSASE,I
JMP RQST3
JSB WHSUf
RQS15 EQU ..
ISZ RQl
JMP RQST4
LUB RQ5
CLA,INA
ADA FBASE
LOA A,I
CLF 0
CMA,SZA
JMP RQST8
LOA RQ2
SlB WORD
LDB RQJ
ADB 81Tlb
JSB DRUM,1
LOA ENORM

0021(IJJ

k1J~646
00~001

RQ3
FBASE

CPS BIT15

10~030

1102031
060214
002020
"26257

~UUTINES

RQST3
R~ST4

RYSTS

JMP •• 2
JMP RQSlfd
LOA .+J
Olsca GET ~CORfSS
AOA ERSCA
OF DOUBLE WORD ADDRESS
STd MWO~D
STORE WORD COUNT
L08 RQJ
GET CORE ADDRESS
AOS BIT15
AND READ SIT
JSB UIScA,I
REAO
HLT 30e
IN
HLT 31B
REQUESTED
LOA MeUSY
RECORD
SSA
JMP ..,2
EQU •
IlA,RSS
ANY tRRORS7
JMP RQST5
NO
CLB
YES, CLEAH DRUM DRIVER
STS ENORM
BUSY WORD
JSB RERRS+40,1
ANO GO INDICATE lkHUR
ISl RQl
WRITE REQUEST?
RSS
yES
JMP RQS14
NO, .0 FINISH UP
LOB EOR
SCRATCH RECORD
SfS RG3,I
WITH END.OF.RECORD MARK
JMP RQS14
GO FINISH UP
LOS fBASE
GET
ADa ,.9
P~OTECT

~AGE

0238
0239
1d240
k1241
0242
0243
0244
1d245
024 6
0247
",248
0249
0250
k1251
0252
0253
"254
0255
0256
"'251
0258
"259
0260
0261
·0262
0263
0264
"'265
",266

0267
0268
0269
1d2 7 0
0271
"'272
0273
10274
0275
0276
k1217

0278
0279
k1280
k1281

0282
0283
10284

0160 #15

EXECUTION UTILITY

44277 160001
443id0 0020ldJ
44301 026342
44302 071771
44303 044344
44304 075236
44305 065647
44306 155236
44307 026337
44310 1600~1
44311 050350
44312 026337
44313 050351
44314 026337
44315 010762
44316 050445
44317 "'26322
44320 044354
44321 026306
44322 160001
44323 010443
44324 040355
44325 001100
44326 0416001
44327 07163411
44330 006004
44331 055634
44332 026306
44333 16 00211
44334 021771
44335 170001
44336 026330
44337 061236
44340 040347
44341 071236
44342
44342 061651
44343 171236
44344 061650
44345 "'''1400
44346 045236
44347 0752~6
44350 17000)
44351 065236
44352 044351
44353·f/j75236
44354 12551~

ROUTl~ES

LOA 8,1
SZA,RSS
JMP RQS14
STA PM ASK
A08 , .. 6

ST8 FBASE
L.OB RQ3
RQS11 CPS FBASE,l
JMP RQS1J
'-DA 1,1

CPA
JMP
CPA
JMP
AND
CPA
JMP
Ag8
JMp
LOA

EOR

RQ~12

UONE
YES
NO

1

ECI-( 1

RQS13

EOF

EOF 1

RQS13

M256
81000

... 3
, .. 2

RQSll
1,1
AND B377

ADA
AR8
ADA
STA
INS
CPS
JMP

MASK
15 IT ZER01
yES, S~IP .MASKING
NO, SAVE MASK
ADJUST FSASE TO
SUffER LIMIT POINTER

STR1NG

1

SKlp TWO

~ORUS

yES

,+3
1

ATMP
ATMP
RQS11

I..OA 1,1

xOR PMASK
STA 1,1
JMP RQS12

RQS13 L.OA FBASE

ADA .-J
STA FBASE
RQS14 EQU •
LOA RQ2

STA FBASE,I
LDA RQ4

RE8TURE
fBA~E

NEw RECORD INTO FILE TABLE

ees

ADB F'BASE
STe FBASE
STA 1:5,1

RQST9 LOB F"ijASt:
Aoa ,+5
STe FBASE
JMP RQSTR,I

MOVE. POINTER
TO REFE.HE.NCE.
HE.CORO POINTER

PAGE

~161

*15

EXECUTION UTILITY

••

112286 ••
~287**·

STORt ITEM IN FILE

~UUTINES

* ••

••

0288**
1628g.
029kl* UPON ENTRY (6) lNOICATES WHAT IS TO SE WRITTtN ON THE FILE,
kl291* (S) • w1 WRITES AN ENO~OF.rILE MARK, (8) • • 2 ~RITES A TwO.
0292. WORU FLOATING POINT NUM~ER, (6) ~ .3 ~RITES A STRING, IF
0293* THE RECORD CANNOT ACCOMMOOAT~ THE QUANTliY, A SERIAL ~HITE
0294. WILL PLACE IT IN THE FOLLOWING RECORD WHILE A RECORU wRITE
0295. WILL EXIT TO THE ENO-OFwFILE CODE,
.,296.
0297 44355 075655 #fILS SfB FILl
SAVE REQUEST TYP£
112298 44356 1,365236
Loa Ft:;ASE
GET
0299 44357 044357
A06 ,+5
PROTECT
0300 44360 164001
LOB 1,1
MASK
0301 44361 075771
SIB PMASK
ceB
LOA\)
44362 00 74 00
",302
ADB
FBASE
",303 44363 045236
ACTIVE AND L.1MIT
0304 44364 104200
DL.O 1,1
RECORD POINTERS
44365 100001
CPA 1
RECORD FULL?
0305 44366 r,,50"01
r,,3r,,6 443 67 02 6 4 57
JMP FILS1
YES
03 0 7 44 3 7 0 07565~
STs OADRR
NO, 'AVE ACTIVE POINTER
",308 44371 035655
[OF REGUEST1
1Sz FILT
",309 44 3 7 2 02 6403
JMP FILS2
NO
ceA
YES, OVERLAY PREVIOUS
0310 44373 kH,3 4 00
EOR OR EO~ ~lTH EO~ MARK
STA 1,1
16311 44374 170001
0312 443 7 5 065236
MAKE POINTER TO SECO~D WORD
LOB FBASE
ADa ,-a
FIL.E TA~LE ENTRY,
ft)313 44376 044342
LOA B,l
SET bUF"E~
0J14 44377 160001

0315

444010 1631036

0316
0317
0318
0319
0320
0321

r,,33id

44401
4441t.12
444°3
444164
44405
44406
44407
44410
44411
44412
44413
.4·114
44415
44416
44417

~3Jl

4442~

0332

44421
44422
44423
44424
44425
44426
44427
4443£1

0322
i6323
0324
032b

r"J26
0~27

0328
0329

16333

.,334
0335
0336
0337
1d33a
0339

17~001

125512
035655
02644~

044354
003004
[4 4000 1
1603004

002020
026402

175236
0fi121iUI;'

"'26 4 20
06 ltJJ 5 0

17 t!t0(11
03565fi

026431
061406
003000
0316445
171654
06060k'l

"15350
026375

lOR 61T15
STA 1,1
JMP FILST,1
lsZ FILT
JMP FILs6
ADB .... 2

FIL.S3 eMA,INA
AOA 1

CMA,INA
SSA
JMP FILS0
STB FBASE,l
SZA,RS8
JMP FILS4
LOA EO~
STA 1,1
FILS4 IsZ FILT
JMP FILS5
LOA TNULL
CMA

lOR BHH'k'l
sTA DAD~R,I
LOA FSCHA
JS6 TRSTR
JMP FIL..S7

ouny

81T.
STRING?
yES

NO
COMPARE PROSPECTIVE
ACTIVE POINTER wITh
END~OF~RECOR\)

POINT~R

OVERFL.Ow?
Yt:.S

NO, SAVE NE~ ACTIVE PUINTEH
RECURO EXACTL.V fuLL.1
YES
NO, FOLLO~ ENTRY SPAct
wiTH EOR MARK
STRING?
NO
Yt,S

COMPUTE ANO
STORE STfUNG
HEADE.R WORD
TRANSfER
STRING

O~

PAGE
0340
0341
0342
0343
0344
0345

~162

44431
44432
44433
44434
44435
44436
44437
44440
44441
44442
44443
44444
44445
44446
44447
44450
44451
44452
44453
44454
44455
44456
44457
44460
44461
44462
44463
44464
44465
44466

#15

EXECUTION UTILITY ROUTINES

1042,,(()
101574
"'21771
101t00
021771

101100
104400
101654
026375
006004
005000

FIL.S5 OLD

SaPT~,l

TRANSFER
MASK

XOR PMASK
SWp
XOR PMASK
8WP
D8T

DATA
NUMtJER

0346
JMP FIL.S7
ft}347
FILS6 INS
COMPUTE
0348
BL.a
DESTINATION
ADDRESS
1075272
sTe TEMPS
0;'4 9
CMB,INa
CUMPUTE
0350
00 7 0(()4
IdJ51
ADa TNULt..
RECORO
10454e6
rd352
eMa,INS
007004
SPACE
0J53
005100
BRS
REQUIRED
JMP FILS3
0354
026406
0355
060350 FILS0 L.DA EOR
INsU~E. EOM MARK
0356
ENOS PRESENT HECDRO
171654
srA DAORR,l
0357
06035(()
LOA ,-2
I 0 1
0402 44521 044354
CJF
AOa .+2
0403 44522 150001
CPA B,l
F-°lI..E 1
1c?404 44523 026532
JMP GTTy5
YES
GTTY6 EQU •
0 4 05 44524
0406 44524 007400
CCB
NO
CPB EOR~L
EOR'S WANTEO?
0407 44525 055653
0408 44526 1cl26467
JMP GTTY1
NO
0409 44527 064354
Ll)6 .... 2
YES, SEr (B) • 4
1tJ41ro 44530 044354 GT1Y4 AOB .... 2
(B) II CtH + 2
JMP GTTY2
0411 44531 026510
(A) W 3
0412 44532 060355 GTTV5 LOA .+3
0413 44533 125514
JMP GTTYP,l
0414 ••
0415 ••• WRITE dUffER TO DISC •
ro416.·
0417.
0418· THE 8U~F£R OF THAT fILE CURRENTLY REFERENCED BY FBASE 15
1tJ419· WRITTEN TO ITS PLACE ON THE DISC, UNI..£SS NOTHlNG HAS BEEN
042r""" WRITTEN INTO TH~ BUFFER,
0421*
0422 44534 065236
LOB FBASE
LOAD sECOND
ADt) ,_4
0423 44535 044346
WORD fROM
0424 44536 1brc)la01
LDA S,I
FILE TABLE
ENTRY (RECORD LeNGTH)
ELA
04 2 5 44537 ~01600
SEl,CLE,RSS
HAS till 15 dEEN SET?
04 2 6 44540 0°2 141
JMP WRBUF,I
NO
04 2 7 4454 1 12 551()
ERA
YeS, CLEAf< IT
0428 44542 ~01500
STORt: IT bACK
STA S,1
0429 44543 170001
AD6 .+3
1d430 44f:)44 044355
GET HIGH r.;;URRtNT
LOA ti,I
"'431 44545 16rl001
RECORO AOORESS
NUI..L RECORD1
CPA BIT15
1c?432 44546 ",51030
JMP I'IRBUf,I
YES, DON'T WRITE RECURD OUT
0433 44547 125516
ADS , ... 10
0434 445~0 044364
GET
0435 44551 160001
LOA B,l
PROTECT MASK
0436 44552 1t>021d03
SZA,RSS
IS IT ZE.RO?
0437 44553 026615
JMP wRBU7
YtS, SKIP SYRING MAS~ING
STA PMASK
NO, SAVE. MASK
0438 44554 ~71771
0439 44555 044344
ADJUST FSAS~ TO
AOS •• 6
STS FBASt::
BUF~ER I..IMIT POINTtH
044 0 44556 075230
LUB fS

wRSU4
1,1
BJ77

YES

.+J

.+3

ARS

ADA
STA
wfo(BU5 INS
CPS
JMP
LOA
xOR
STA
JMP
WRBU6 I.DB
Aoe

1

ATMP

ATMP
WR8U4
1,1
PMASK
1,1
WR6U5
F6ASE
,-3
sre F8ASE
ADe ,+9
WRSU7 ADS ,-13
L.DA B,I
lOR BIT14
SlA B,l
AL,R,RAR
cMA,INA
ADS ,+3
1..08 B,l
CL.F k'
CMB,SlB
JMP WRSUl
STA WORD
LOA FBASE,!
LDB RQJ
JSB DRUfot,l
LDA ENDRM

.-:IiI

pMASK WOHl)

.> WORDS/RECORD WORD

St:T FILE

DIRTY BIT

CI.EAR DIRTY 8ITS AND

GET NEG. HE" L.~NGTH
GET HIGH CURRENT
RECORD ADDRESS AGAIN
DRUM OR DISC AODHt.SS?
DISC, GO TRANSFER
DRUM'
WRIff
RECORD

TO

DRUM

SSA

JMP •• 2
JMP WR8U2
WRBUl STA MWORD
LOS RQ3
CCA
ADA FBASE
JSB DISCA,l
HI.T 308·
HI.T 318

WRITE
RtCORD
TO

DISC

LOA M8USY

SSA

JMP ..·2

WR8U2 EQU •

SZA,RSS

ANY fRRORS?

pAGE

~165

0502 44653
05 0 3 44654
0504 44655
0505 44656
0506.*

.'87***
l6b0i.*
0509.
0510*

0511*
0512*

051J*

(15'"
0515
.,516
1d517
0518
0519
ft)520

0521
0522
0523
",524

0525
",526

0527
0528
0529
0530
0531
053 2
0!)33

----

#15

EX~CUTION

JMP WRBUF,l
CLB
YES, 'LEAR DRUM ORIVtR
BUSY ~ORD
ST~ ENORM
JSB RERKS+46,1
AND GO INDICATE ~UOf

125516
0064016

074261
115164

TRANSfER

UTILITY ROUTINES

A STMl~Q

.*
*.

***

THE NUMBER OF CHARACTERS SPECIFIED BY TNULL (IN 1'5
COMPLEMENT) IS TRANSFERRED FROM THE SOURCE S~RING TO
A DESTINATION STRIN~ BEGINNING ~lTH THE CHARACTER
ADDRESSED oY TEMPS.
44657
44660
44661
44662
44663
44664
44606
44666
44667
44670
44671
44672
44673
44674
44675
44676
44677
44700
44701

1671402
~35406

01d2a01
1253e>0

115402
060412
071404
065272
16164065

160001
002041
0"1727
01111762
11131404

11102041
IIlfU727
170001
035 2 7 2
026660

#TRST SlA TRFCH
ISZ TNULL
RBS
JMP TRSTR,l
JSt:i TRFCH,I
LOA .+406
STA TRS0
LOB TEMPS
CLE,ERB
LOA 1,1
SEZ,RSS
AL.F,AL.F
AND M2S6
lOR TRSe
SEZ,RSS
AL.F,AL.F
STA 1,1
ISZ TEMPS
JMP #TRST+1

SAVE SU~ROUTINt CALL
MORE TRANSFER STRIN'1
yES
NO
FETCH A SOURC~ CHARACTER
NONE LEFT, LOAD A BLANK
SAVE IT
LOAD
DESTINATION
WORD
SAVt:
OTHER
(;HARACTt.H

COMIUNE WITH
NEW CHARACTeR
AND STOf37**
*'*' OF AHG 1
0538 44702 07 1 6 20 #UNPK STA Al
SAVE HIGH MANTISSA
SZA,RSS
UNPA(;K
0539 44703 002 00 3
0540 44704 006104
SE(;ONO
'LE,INa
0541 44705 015414
JSS .FLUN
1'4 ORO
0542 44706 075621
sra cl
SAVE LOW MANTISSA OF ARG 1
0543 44707 071322
STA EXP
SAVE EXPONENT
0544 44710 161412
LOA UNpAK,l
COMpUTE AODREss
13545 44711 035412
ISZ UNPAK
OF CALLING ROUTINE
0546 44712 164000
L.OB 0,1
lSZ 0,1
0547 44713 1 J4~"'':0
SET CAL.LING ROUTINE'S RETURN
0548 44714 164001
LOAD
L.DB 1,1
0549 44716 104200
OLD 1,1
ARG 2
44716 100001
0550 44717 071622
STA .2
SAVE HIGH PART OF ARG 2
SZA,RSS
UNPACK
0551 44720 002 0 03
LOW
0552 44721 006404
CLiI, INS
PART
0553 44722 01!54t4
JS8 .FLUN
0554 44723 075623
SAVE LOW MANTISSA OF ARG 2
STB C2
0555 44724 071310
STA EXP2
SAVE EXPONENT
JMP IJNPAK,I
0556 44725 1254!2
0557**
**
0556*** ADD TWO FLOATING POINT NUM~ERS .**
0559**
*.
UNPACK THE AR~UM~NTS
0560 44726 015412 #FAD J3f:' UNPAK
D~F ,FAD
0561 44727 001402
0562 4473rd 065402
MOVE.
L.DB ,FAD
56
754
STa
,FS~
RE TURN ADlH165 1653035
RSS
0096 45106 "'1U2001
2
JMP
ARIN2
NO,
0097 45167 027t7
45
1t}098
CPt; .+1
YES, B-0(60rti01?
1716 054353
1/}1t}99 45171 0272216
JMP ARINJ
YES.
SWP
10100 45172 11011"'0
NU, SWAP Rr.GISTERS.

0101

0102
1t}103
0h)4
1d105
0106
It"07

45173 007100
45174 Vl2076~
45 1 70 kl4"'444
40 1 76 002041
45177 VJ27216
452~0 006004

CMS,CLE.
XOR 1'1256
ADA ~4100
SEZ,RSS
JMP ARIN1

452111 0050Jo

(.PB FLGST
JMP *+4
CPB UNNHM

13108

452~2

0272166

0109

45203

056~00

I/}

110

452",4 kHa2k'l01

IN!:!

HSS

COMPLE.MENT iH GH PART
COMPLE.MENr LO~ PART
fINISH LOw PART
UVERFL.Ow?
NO
YES, IN:RE.MENT HIGH PART
OY~HfLOW?

yES
NO, NEGATlVE. UNNORMALIZE01
YES

pAGE
0111
~112

0113
13114
0111)
!DU6

0117

0118
0119
012 10
0121
13122
0123
~124

~17~

45200
45206
45207
45210
45211
45212
45213
45214
45215
4 5 21 6
45217
45220
45221
45222
45223

16125
k:l126.*
0127.*.
0128 ••

0129.
~130,*

10131*

~16

ARITHMeTIC

027216
046~00

000033
032001
~06021

1302005
~40351

001200
010443
1"'11 00
125370
115215
002400
006400
12537.,

SU~ROUTINES

JMP ARIN1
AIJB UNNRM

NO
FIX HIGH MANTISSA
SLA,RAR
POSITlON ExPONENT
lOR SMSI\
FILL IN LEADING bITS If NEGATIVE
SSB,RSS
POSITIVE?
INA,RSS
YES, INCHfMENl EXPONENT
NO, DECREMENT EXPONENT
AOA ,-I
RAL.
POsITION
EXPONENT
ANO B377
SWP
RESTORE USUAL
JMP ARINV,I
NUMiER ORDER
AlHN3 JaB WERRS+6,I
OUTPUT UNOERFLOW MESSAG~,
CLA
RETURN wITH .-0
AND Ba0.
C&.8
JMP ARINV,I

UNPACK LOw WORD OF NUM6fR

**
***

*.

ENTER WITH LOW WORD OF FLOAT1NG POINT NUMStR IN (b).
EXIT WITH EXPONtNT IN CA) AND MANTISSA IN (6l,

0132*
0133 45224 002400
0134 45225 101050
1(.)135
45226 001727
0136 45227 005727
01J7 45230 00003J
0138 45231 0320"1
~1J9
45232 125414

#f'LUN CLA
LSR 8

ALF,AL.F

BL.F,i:)LF
SLA,RAR
lOR SMSI<
JMP .FLUN,l

EXTRAt;T
EXPONE.NT
IN CA) ANI)
MANTISSA IN (6)
NE.GA1IVE EXPONENT?
YES, FILL IN LEAOING aITS
NO

PAGE
0141*
~142*

~171

#16

,ERROR ROUTINES

WHILE READING A PROGRAM IN 'TAPE' MOO!, ERRQNEOUS STATEMENTS

(~ESE ARE THREE
0143* ARE REPLACED WITH ERROR PSUEOvpSTATEMENTS,
0144* WORD 'STATEMENTS'S
THE STATEMENT NUMBER' THE LE~GT~ (ALWAYS
0145* 3), AND THE ERROR NUMBER, SINCE BITS 15.9 ARE CLEAR IN WORD
0146* THREE, ERRORS HAYE A STATEMENT TYPE OF 0, ERRCT HOLDS A
0147* COUNT OF THE EM~EDDED ERRORS AND THE USER'S ~lT Of TERR IS
0148* SET If ANY EMBEDDED ERRORS EXIST, ADDITIONALLY, THE 'UUT~Uf­
0149* STORAGE' ERROR SETS SYMT~ • 1 TO ASSIST SYNTAX, ALL STATEMENTS
0150* WITH A SEQUENCE NUM~ER OF ZERO WILL BE COLLAPSED INTO A SIN~LE
0151* ERROR AND ~NDER/OVERFLOwS IN NUMERICAL CONSTANTS ARE NUT
0152* REPQRH::O,
rU5J*
tU54**
0155**. OUTPUT TAPE MODE ERRORS **.
0156**
**

••

~157*

0158*
0159*
IiU60*
0161*
0162*
0163*
0164*

UPON 'ENTRY ALL EMBEI)OED ERRORS ARE STRIPPEO FROM THE PROGRAM
AND STORED BELOW IT AS TWO.WORD QUANTITIES (THE LENGTh WORD
IS DROPPED), FOLLOWING THIS T~E ERRORS ARE PRINTEO ONt ~Y
ONE wITH LINE NUMBERS, AFTER PRINTlNG ALL ERRORS (OR, IF THE
USER ABORTS THE E~ROR PRINTING, AFTER THE USER TYpES THE NEXT
LINE) EVERYTHING IS CLEANED UP AND A MESSAGE PRINTED Tu SAY
THE LAST RECEIVto INPUT HAS 6EEN IGNOREO.

~165.

01 66 45233 002 4 00 TAPER CLA
CPA ERReT
01 67 4 5 234 051576
0168 45235 0273t47
JMP TAPt,5
0169 45236 ~71575
STA SYMT~
0170 45237 1I)6 e0 56
LOA PBPTR
0171 45240 071230
STA SPTR
0172 45241 064702
L.DB PBUfF
0173 45242 075514
$T6 DEST
ST~ SOURe
IrU74 45243 0 7 5 5 12
0175.
0176*· STRIP OUT EMBEDDED ERRORS **
0177.
INB
01 78 45244 006004
LOA 1
0179 45245 060001
ADa 1,1
0180 45246 144001
ADS ... 1
10181 45247 044351
1iJ182 45250 002004
INA
0183 45 2 5 1 16 0 000
LOA 0,1
10184 45252 012)664
AND OPMSK
0185 45253 002002
SZA
0186 45254 11)27244
JMP TAPEl
LOA SOURe
0187 45 2 55 06 1 5 12
0188 45256 075512
sra SOURC
0189 45257 044347
ADS ,-3
0190 45260 050001
CPA 1
JMP TAPE2
0191 45261 ~27265
CPA DEST
0192 45262 051514
0193 45263 027360
JMP TAPE6
0194 45264 015500
JSB MOVER
0195 45265 064056
lOt; Pa PTR

•

•

FIRST
ENTRY?
NO
yES, REsEr 'OUT of SToRAGE' FLAG
INITIALIZE
PReGRAM
POINTERS

SET (6)
TO FIRST ~ORD
OF NEXT
PRU~RAM STATEMtNT

IS THE

CURRENT STATEMENT
Of TYPE
'ERROR' ?

NO
YES, L.OAD SOURCE AOURtSS
SET SOURCE TO NE~ VALuE
JUXTAPOSED
ERRORS?
YES, NO MOVE NEEDED
NO, fIRST ERROR ENCOUNTERED?
YES
NO, LJELETE PRIOR ERROR(S)
ENOUII~

pAGE

~172

#16

ERROR ROUTINE.S

"'196 45266 075500
STe TAP.0
0197 45267 006004
INB
0198 45270 054462
CPB LWAUS
0199 45271 027363
JMP TAPE7
0200 45272 0",6004
INB
0201 45273 1054462
CPB I..WAUS
0202 45274 027363
JMP TAPE7
STe P8PTR
0203 45275 074056
0204 45276 16401"
LOB 0,1
0205 45277 175~00
STe TAP0,1
10206 45300 0355""
liZ TAPIQ
0207 45301 040354
AOA ,+2
1.08 0,1
"'208 45302 164000
0209 45 3 03 1755 00
STB TAP0,1
LOB SOURC
10210 45304 065~12
t(;A
0211 45305 003400
ADA ERRCT
0212 45306 041576
STA ERRCT
10213 453 0 7 1d71576
SZA
0214 45310 002002
10215 45311 0272~4
JMP TAPt.d
CPS SPTR
0216 45312 055230
0217 45313 027317
JMP TAPe3
LOA SOURC
10218 45314 061512
1{)219 45315 065230
1..08 SPT~
JS8 MOVER
0220 45316 015500
02210222** OUTPUT ERROR MESSAGES **'"
0223.
*
10224 45311 (()6J3J5 lAPE3 LOA RETAD
0225 45320 071474
sTA sERR
i.OA WERRA
"226 45321 062006
ADA FERRA
1d227 45322 0420~4
CMA,INA
0228 45323 003004
0229 45324 0714.2
STA I..T5
10230 45325 0074"0 TApE4 cca
0231 45326 1675444
5T8 LT6
L08 SPTR,!
0232 45327 16 5230
0233 45330 075570
ST8 .I..NUM
liZ SPTR
10234 45331 035230
0235 4533;2 161236
LOA SPTR,l
CL8
023 6 45333 00 64 S0
02 3 7 45 334 0214fj"
JMP SfRR1+3
1&1238 45335 045336 Rt.TAD OEF *+1
0239 45336 1662004
LOA FERRA
0240 45337 003004
CMA,INA
It!l241 45340 041442
AOA LT5
16242 45341 ~71442
STA LT5
11)243 45342 1635230
ISZ SPTH
0244 45343 1d61230
LOA SPTR
CPA PBPTR
0245 45344 050056
0246 45345 002001
RIS
JMP TAPE4
16247 45346 02132fj
0248 45347 1661514 TAPf5 LOA OE8r
16249 45350 1670056
STA PsPTR
0250 45351 1031160
CL.F

'"

USER SPACE
TO TRANSFER

ERROR'l

NO

YES, APPEND TWO WORDS
TRANSFER
LINE NUMBER

TRANSfER
E.RROR
NUMBER
RETRIEVE POINTER TO STATEMENT
DECREMENT
ERROR
COUNT~H

ALL E.RRORS DELE TEO?
NO
YES, PROGRAM HEMAININ'?
NO
yES, SLIDE UP
OVEH LAST
ERROR(S)

SET
Rt:.TURN ADDRESS
FAKE
IWAHNING ONLy'
£.RROH MODE
FORCE
LINf. NUMBER
MAKE LINE NUM8~R OF
CURRENT ERROR ACCESSIBLE
LOAD
fRHOR NUMBER

EXIT TO

ERHOR PRINTER

RESTIJRE
fwARNINII
OtllI.Y'
MODE
MORE
ERRORS?
NO
YES
CORRECT POINTER TO
LAST WORO +1 OF PROGRAM

0251
0252
1t1253
10254
1d255
111256

45J52
45353
45354
45355
45356
45357

060353
",,,,31000
110257
170257
1021010
115147

0257.
0258
0259
0260
1d261

0262
,,263
111264
0265

1cJ266
026 7
10268
102 6 9
0270

0271
0272
"'273
1d274
0270
0276
~277

0278

45360 075514

40 3 61
45362
45363
45364
45305
45366
45367
45370
453 71
45372
45373
45374
40J/5

45376
45377

060001
027265
071474
~03004

041514
071500
ft:l41231d
071230
065512
045500

1075512
1d61474
064056
frH5501d
(065514
IIJ74056
061512

4540'"
454"'1
45402 040347
45403 07UH4
454",4 1027266

L.OA TERR
CMA
ANO MAIN,!
STA MAIN,1
Slf

TURN
ERROR
fL.AG
OFF

It)

JSS Rt.RRS.JJ,l
TAPE6 STB DEST
L.OA 1
JMP TAPE2
TAPE7 STA TAPl
CMA,INA
ADA Dt:ST
STA TAP0
AOA SPTR
STA SPTR
·L.OB SOURC
AOti TAP",
sra SOUt445 061432 SERRl
0337 45446 10106400
0338 45447 075444
0339 45450 1~ 1105
03 4 0 45451 0754 32
0341 45452 042006
0342 45453 1040100
0343 45454 1061432
0344 45455 001222
"'345 45456 001200
",346 45457 id10J61
0347 454610 0401001
"'348 45461 106461~
0349 45462 10310t1!
0350 45463 1(17401~

CtA
AUA
LOA
ADA
AND

SERR
0,1
SERRA
B777
srA LTJ
ADA RERfU
srA LTS
SSA,RSS
JMP SERR1
LOA TAPEF
AND MAIN,l
SlA
JMp SERR6
CLB
STB l.T2
LUA ASCER
SlA L11
LOA ,-3
JSS OUTST
LOA IwT
Jse SeHIN,I
JSB GETeR
JMp sEHR4

CUMPUTE
ANI) SAVf.
ERROR NUMBER
SyNTAX
ERROR?
NO
YES, TAPE

MOUE?

YES
NO

OUTPUT
'ERROR'
ANO
WALT
fOR

INPUT,
CARRIAGE RETURN ONLY?
yES

**

•

LOA LT3
CLB
ST8 1..16

RRR 5
STe LTJ
AOA DSERR
L.OB .0,1
LOA I..T3

RAL,RAL
RAI.
AND • +7
AUA 1

NU
LOAD
OCTANT
ADDRESS
COMPUTE

SECTOR

L.oe 0100

CLF id
STB WORU

READ

PAGE
"'351
0352
\1353
11:)354
16355
1tJ356

03 5 7
0356
0359
11:)360
0361
0362
1d363
0364
0365
,,366
0367
036~

0369
03 7 0
0371
16372
fd373
0374
16375
.,376
0377
10378
10379
0380
03 81
10382
0383
0384
0385
0386

0387
1I:)38~

0389
0390
0391
0392
1d393
0394
0395
(c)396
103 97
I039~

10399
0400
0401
04102
10403
04(c)4
1()405

~175

45464
45465
45466
45467
45470
45471
45472
45473
45474
45475
45476
45477
455~0

40501
45502
45503
45504
45505
4551.:16
455ld 7
45510
45511
45512
45513
45514
455U5
45516
45517
45520
45521
45522
45523
45524
45525
45526
45527
45530
45531
45532
45533
45534
45535
45536
45537
45540
45541
45542
45543
45544
45545
45546
45547
45551()
455til
45552

#16

ERRUR

064544
0451d36
114770
060261
002020
027467
1d02003
027477
00240'"
070261
1 1600 7
061 4 42
002021
027625
0024ft)1c')
015454
1d60343
071430
00121412
1015454
035431c')
1027506
1061432
01111727
01040f!
001200
040544
071430
0107400
160000
002020
027~26

12175444
003004
006400
075274
015462
035444
12127542
063733
071430
0064011
060J45
015402
065570
015456
fil61442
042~04

071442
042005
002003
027563
1060367
015454
001tJ364

ROUTIN~S

lOS ERSC"
ADS FlGBT
JSB oRUM,l
L.OA ENDRM
SSA
JMP •• 2
SZA,RSS
JMp SERRB
CI.A
aTA ENDRM
JSa SlCKl,I
SERRe lOA L.T5
SSA,RSS
JMP SERRb
CLA
JSB GUTeR
LOA , .. 7
srA lT1
LOA ,.4~B
J5H OUT(;R
ISZ l..Tl
JMp ... 3
St:.RR2 LOA LT3

AL.F,AL.F
AND .+3"~
RAt.,
ADA ERSCA
STA L.Tl

SI::CTOR

DONE?
NO
ANY ERRORS?
NO
yES, Cl~AR DRUM ORIVf.R
BUSY wORD
ANO GO DIE. GRAeEfUl.lY
EXECUTION ERROR?
yt:.s

NO, OUTPUT
A NUf.,L..
OUTPUT
7

BI.ANKS,
COMPUTE
MESSA~E

ADDRESS

'(;8

L.OA 0,1
SSA
JMP •• J
STa lT6
CMA,INA
CL.B
STB l.T2
JSs OUTST
ISZ L.T6
JMP SERH3
L.OA L.INEA
5TA l.Tl
CL.S
L.OA ,-5
JSB OUTST
L,UB ,L.NUM
J5B UUTIN
St:RI<3 LOA l.T5
AUA ff.RRA
STA l.T5
ADA WE,RRA

SZA,RS5
JMp SERR8
L.OA ,+158
JSB OUTeR
5f.RR4 LUA ,+12~

L.INt:. NUMBER?
NO
Yf.S, SE T Fl.AG
OUTPUT
ERROR
MESSAGE
l.INE NUMBER FLAG
NO
yES
PRINT

" IN LINE "
OUTPUT
l.INE NUMBER
qUD
INPUT'
t.RROR
yES
OUTPUT
CARRIAClt: HETURN
OUTPUT

S~T1

pAGE
"'406
1r'407
1r'40d
0409
",410
0411
0412
0413
0414
"'415
0416
0417
0418
0419
kl420
0421
0422
0423
0424
0425
0426
0427
kJ428
0429
0430
0431
0432
0433
0434
043~

0436
0437
0438
0439
0440
0441
0442
0443
0444
0445
0446
0 44 7
0446
0449
0450
fc1451
0402.
0453
0454
0455
0456
",457
0458
0459
0460

~176

45553
45554
45550
45556
45557
45560
45561
45562
45563
45564
45565
45566
45567
45570
45571
45572
45573
45574
45575
45576
45576
45577
45600
45601
45602
45603
45604
45605
45605
45606
45607
45610
45611
45612
45613
456 13
45614
45614
45615
45616
45617
45620
45621
45622
45623
45624
45 625
45626
45627
45630
45631
45632
45633
45634

#16

ERROR ROUTINES

fc115454
061442
kJ021d20
027614
042"05
002020
027565
002400
071572
125474
0064"0
061761
Ildl1~l

0714;')0
0617 C2
003004
071762
006002
027605
16143r.l1
kJ01727
010443
015454
035762
002 00 1
02761J
161430
010443
015454
035430
035762
027576
015536
103100
160251
030372
170257
102100
06 1502
071552
01~560

124514
06 1442
042004
042005
002021
027645
id60257
002004
050255

SE:.~R8

Ja8 OUTCR
LUA LT5
SSA
JMP St:RI3
ADA WER~A
S8A
JMP SERR~
CLA
sr. CHRCT

L.1Nt:: FEt:.D
RUN
ER~O~1

vEs

NO, WARNING
ONLY?
NO, FORMAT ERROR
yES

JMp sERN,l

sERR9 CI..8
LOA IFSTR
RRR 1
STA I..Tl
LOA NtH
CMA,INA
STA NCH
SZ8

JMP 8ERll

. SERl0 ECilU *
LDA LT1,I
ALF,ALF
AND 6377
JS8 OUTCR
liZ NtH
Res
JMP SER12
8fRll ECilU
LDA LT1,I
AND B377
JSe OUTCR
ISZ LTl
lSZ NCH
JMp SER10
sER12 EQU ...
JaB OUTCl.
SE:.R1J ECilU ...
eL.F
LDA MAIN,I
lOR UNABT
ST .. MAIN,1

•

'"

8T'

CONVERT
CHARACTI:.H
SAVE POINTER
SAVE.
NUMbER OF
CHARACH:.RS
START WITH RIGHT BYTE?
yES
FETCH
U:.FT
CHAR
OUTPUT IT
FINISHED ALI.. CHARS?
NO
VES

FETCH RIGHT
CHARACTER
OUTPUT IT
BUMP POINTER
FINISHED ALl. CHARS?
NO
OUTPUT CR-LF
DISALLOW
AeORTS

"

LOA FCNTR
STA FRMAT
JSB l.COL.P
JMP SCHEN,I
SERR5 LOA l.TS
AOA FERRA
ADA wERRA
SSA,RSS
JMP SER5A
LOA MAIN
INA
cPA PRIST

uPOATt LAST tHANGEOATE

wARNING
ERROR?

YES
NO, VOES USER
HAVE Lp1·

PAGE 0177 #16
(6461
0462
0463
0464
046f)
1t1466
0467
1t146ij
0469
0470
0471
0472
0473
0474
0475
0476
1t1477
0478
0479
0480
0481
0482
0483
0484
0485
0486
0487
1648ij
0489
16490
0491
0492
0493
0494
0495
0496
.,,497
0498
0499
1d 5 00
0501
t:l502
0503
0504
0 5 05
0f)06
0507
050ij
0509
0510
",511
0512
0513
0514
0515

45635
45636
45637
45640
45641
45642
45643
45644
45645
45646
45647
45650
4565 1
45652
45653
45654
45655
45656
45657
45660
45661
45662
45663
4f)664
45665
45666
45667
45670
45671
45672
45673
45674
45675
45676
45677
4t)71d"
45701
45702
457"'3
4570 4
45711:15
45706
45707
45710
45711
45712
45713
45714
45715
4ti716
45717

fR~O~

002001
027645
060375
015454
06037~

015454
0Wl2400

070255
060367
1615454
060364
015454
002400
170634
114534
160640
171t1634
061442
042004
042005
002021
027512
061t1445
003000
103100
110001
170001
102100
006004
160001
030230
114500
1r160356
04435~

0155()4
027512
t:l64056
044J54
06 1432
17 0001
006004
075574
002003
035575
103100
160257
1d30353

150257
027721
170257
002400
~572e 071576
45721 102100
45722 035576
45723 kJ15452

~OUTINE.S

RSS
JMP SER5A
LDA .+2J~
JSB OUTeR
LOA ,+238
JSB OUTeR
CLA
STA PRIST
SfR54 LOA ,+158
JSB OUTeR
LOA ,+126
JSB OUTeR
CLA
STA DCle1,I
JSB AtsCK,I
LOA DCLC2,l
STA oeLC1,1
1..0A LT5
ADA FERRA
AOA ,..t.RRA
SSA,RSS
JMP SERR2
LOA CHNFG
eMA
CLF
AND 1 , I
STA 1,1
Slf Ii'
INS
LOA 1,1
lOR UNR
JSB S14LP,1
LOA ,+4
A06 ._1TNUM
JSB EOAdR
JMP SERR2
St:.wR() LOS P8PTR
ADB ,+2
L.OA I.. T3
STA 1,1
INS
ST8 S8PTH
SZA,RSS
lSZ SYMTa
CL.F (6
LOA MAIN,l
lOR TERR
CPA MAIN,I
JMP *+4
STA MAIN,1
CLA
5TA ERHCT
STF
ISZ ERRCT
JSB BCKSP

"

"

NO.

yES,
Rt::t.EASE IT

OUTPUT
CARRIAGE fU.TURN
AND
LINE .. fEO
~LOCK

Cl.OCK
CHECK FOR Ar;OkTS
UNbl.OCK
CLOCK
wARNl,..G
ERROR?
YES
NO
CLEAR
CHAIN fLAG
TELL. 2114
THAT USER Is
NO LONGER RUNNING
CLEAk pBFLG ANO CB~LG
81TS,
STORE
ERROR
NUMBt.k
SET PUINTER TO
LAST ~ORO +1 OF ERRUR
fOUl uF STUHAGE' ERROR?
YES
NO
FIRST
ERRUR?
NO
YES .. -SET FLAG
CL.EAR
ERROR COUNTER
COUNT ERROR
SEEK

PAGE 0178 #16
0516
0517
0518
0t)19*
0520
0521
1U522

1d523
0524

0525

ERROR ROU fINES

45724 015450
45725 124524
45726 027724

SE~R7

45727
45730
45731
45732
45733
45734
4573b
45736
45737
4b74id

AStER OfF ERR-!
ERR
OCT 5105
ASC 2,RROH

1d45727

005105

11151122
1d47b22
0 467 33
020111
04704111

GfTC R
JMP ACCSA,I
JMP •• 2

JStt

L.INEA OEF

•

ASC 4, IN LINE

~46111

047105
02 00 00

OCT 2011100

CAHRIAGE HfTURN

PAGE

,,"""2
0003
0004
0005
10006
0007*

~17g

#17

MAT~IX

460010
460010 ~4~512
461001 0416450
461602 16416375
461dia.3 17771J

0008***
10009**
00U",,*.

~015

10016
0017

16161S
0019
0020
0021
10022

0023

460.,4
4610165
46006
4613167
46010
46°11
46012
46013
46014

ftJ46J23

1646325
1t147212
047215

1647227
04722 10
1647232

041433
15773J

46015

V'l46~16

46016
46017
46020
46021

0016160'"

164000ft'

46~22

1000\'.102

46023
46024
461t12b
46026

161613
01Wj7010

1r'l1t)001i;h1
ra461621

0024*
0025
0026
0021
002S
16029.
10030·*

10tNTIFY

PR~PARt

.,053

OEF MLOP2

IJEF MI..OPJ

o~f MADV
oEF MSU8
oEF SMULT
DEF ION
Ot:.F MCPY
otc +lE-6

F0.0A OfF F0.16
DEC 0.16
F1,01\ DEf Fl,"
Fl,,0 DEe 1.((J

E:MAT

~ATRIX

LDA TEMP1,1
AND OPDMK
SZA
JMP EMATl
1/0

46051 041576

FIRST
OPERAND
NULL?
NO

••*

•

lSl lEMP1

ceA

MIOl

CHt::CK

STA EL,CNT
JSB f::PRUS
LOA TEMP1,I
RRR g
AND 877
AOA 065
STA MT1
SSA,INA,SZA
STA MH'l
Ja8 VL.fLL.
NOP
LIJA TEMP1,I
AND OPDMK
SlA,RSS
JMP xEC1A,1

A MATR1X FOR 1/0

46050 00HHH)

••••
••

f0.0

002002

0051*
010 5 2

MLp2A
ML.PJA
MAOUA
MSUBA
SMULA
IONA
MC;PYA
TO!,.C

1626206

0031.
01632 46027 1035613
0033 460JId 003400
ItH134 46~Jl 071472
.a 0 35 46 0 J2 "'15554
0036 460J;$ 161613
~037
46034 101111
1603S 460J5 "1!!1734
0039 46036 04?0k'JJ
0040 46037 071314
01641
46040 002026
10042 46041 071312
01643 46042 ~15506
0044 46043 00000'"
0045 46044 1616 1 3
16046 46045 0107010
10047 461046 "H:1200J
IcHi' 4 ij 46047 1245b6
0049.
I6l!tb.,*·

OR" 4601Cl0~ •
ENoIN oEF EIN12
MINP2 OtF flNP0+3
MINPl OfF fINP1
060 'OCT .65

EXECUTt 

0011.
10012
'''H .3
16014

tXtCUTION

.*•
•

ALS
ADA SYMT8

FOf(

'MAT ~RINT USING'
COMPUTE ANO SAVE
1/0 TyPES
INPUT " "'2
READ .-1

PRINT.

~

SAVE FLAG
IF 'INPUT'
PRoCEss ANY
FIL.t REQUf:.Sl
LOAD NEXT

loE,NTIFIER

ZERO?

yEs

L.OAO
8ASE AUORf.SS

PAGE 0180 *17
0054
0055
0056
0057

""58

0059
11)(,,60
0061
0062
kJ063
0064
0065
0066
0067
0068
0069
0070
0071

~ATRIX

46052 040351
46053 1640e0

46054 0443510
46055
46056
46057
46060
46061
46062
46063
46064
46065
46066
46067
46070
46071
46072
4607.3
46074
46075
46076
46077

075574
061613
002004
"'51334
002400
160000
010664
065314
006003
026121
050622
016470
161574
035574
100200
101574
035574
003004
07150'0

0072
0073
0074
0075 46100 00J4~1d
0076 461'H fc151314
0077 46102 0261t0
0078liHi,79- •

EXECUTIUN
ADA
l.OB
ADS
8T8
L.OA
INA
CpA
CL.A
L.OA
AND

.-1
0,1
.-2
SSPTR
TEM~1

PRGC;T

0,1
OPMSK
l.OB MT1
SZB,RSS
JMP MIU2
CPA LBOP
JaS REOIM
LOA S8PTR,l
ISZ S8PTR
MPY SepTR,l
liZ SaPTR
CMA,INA
STA MCNT
CC.A
CPA MT1
JMP MI09

INPUT YAL.UES FOR MATRIX

-•

Of ARRAY

SAVE POINTER TO
DYNAMIC OIMENSIONS
L.AST
WORD OF
STATEMENT?
YES
NO, L.OAD 'A) WITH
fOL.L.OWING OPERATOR
MAT
PRINT?
YES
NO, I l' NExT OPERATOR?
YES, REDIMENSION ARRAY
SET POINTER
TO FIRST EL.EMENT
OF ARRAY
WHILE COMPUTING
NUMBER OF
EL.EMENTS

MAT
READ?
yES

••

00800081 46103 035312
ISZ MT0
RaS
0082 46104 002':"111
0083 46105 126002
JMP MINP1,I
0084 46106 041312
AOA MT0
0085 46107 12601H
JMP MINP2,I
00860087-· READ VAL.UES FOR MATRIX ••
008fh
0089 46110 0064~~ MI09 CLB,INa *
0090 46111 015362
JaB fOATA
0091
46112 10440116
OST S8PTR'I
46 113 101514
0092 46114 035574
ISZ S8PTR
0093 46115 035574
III SePTR
ISZ MeNT
0094 46116 0J550~
JMP MI09
00 9 5 46117 02611'"
0096 4612'" 1326174
JMP MI07
0097.
0098 46121 050614 MIU2 ePA B301tl0
0099 4b122 007400
eeB
ST8 MeNT
0100 46123 075500
L.OB SBPTR
0101 46124 065574
JaB
VCHK
0102 46125 "'15472
L.OA
SBPTR,I
0103 46126 161574
ISZ S8PTR
0104 46127 ~35574
CMA,INA
16105 46130 0~J"'04
STA foIT0
0106 46131 071312

•

MATRIX TO BE INPU1?
NO
YES
RETRIEVE
SAVED CHARACTER
~lRST

FETCH
CONSTANT
STo~E

IT
OONE"1
NO
YES
I,f FOLLOWING ARRAY?
yEs
NO, TREAT AS COMMA
VAL.IOATE
ARRAy ELEMENTS

SAVE

COUNT
OF
ROwS

PAGE
0107
0108
0109
1tl110
0111

~181

46132
46133
46134
46135
46136

#17

MATRIX EXECUTION

HH574
035574
k165234
006020
026151

L.OA SaPTR,l
ISZ S6PTR

LOB FIL.l.
SSB

JMP MI03
*

~112*

0113*.
0114.
011~

0116
0117

0118
0119
0120
1d121
0122
1d123

WRITE MATRIX ON FILE
46137
46140
46141
46142
46143
46144
46145
46146
46147
46150

100200
001312
07150((}
064350
015512
03(;574
035574
035500
026142
026174

MI()4

*.*

WRlTE ON
A FILE'1
NO

MPY MT0

SET

STA MCNT

ELEMENT COUNTER
WRITE ELEMENT
TO F lL.f;
MOVE TO
NEXT lLEP1fNT
MATRIX DONE?
NO
YES

LOB ,-2

Jsa FILST
ISZ saPTR
lSZ S6PTR
lSl P1tNT
JMP MI04
JMP MI07

PAGE

~182

#17

~ATRIX

EXECUTION

0125*

ON TELETYPE **
1d126** WRITE MATR1X
,
0127*
0128 46151 003004 MI03 CMA,INA *
0129 46152 071625
STA MTJ
0130 46153 071624 ML06 STA MT2
0131 46154 026160
JMP MI06
0132 46155 002400 MI05 CLA
0133 46156 051500
CPA MCNT
~134
46157 k'l154J0
J$B EDELM
0135 46160 104200 MI06 DLD SaPTR,I
46161 101574
0136 46162 016420
JS8 E.NOUT
0137 46163 035574
ISZ SBPTR
lIZ SBPTR
0138 46164 035574
0139 46165 035624
lIZ MT2
JMP MIO!)
0140 46166 026155
0141 46167 015426
JaB OUTLN
JSB OUTL.N
0142 46170 0154~6
fd143 46171 061625
LOA MT3
0144 46172 035312
ISZ MT"
JMP MIoe
0145 46173 0261~J
0146.
1d147.· CHECK FOR MORE MATRICES ***
035613
065613
055334
id26202
071312
f6260~4

064350
055314
126000
124556

064556
075364
001000
~41575

0 4 0351

MI07

lSZ
lDS
CPB
JMP
STA
JMP
LDB
CPB
JMP
JMp

EMAT1 LOB
STB
"LS
ADA
AOA

TEMP!
TEMP1

MATRIX

E.NOIN,l
xECIA,I

yES

INPUT?

MTl

XEC1A
MEXIT

*

SYMTB
."'1

~7557.4

5T8 851

0.,2003

MATRIX DONE.?
NO

,"2

Loa 0,1

01070~

ELf-MENT
MOVE TO
NEXT EL.EMt::Nl
ROW OONE1
NO
YES, DOU8L.E
SPACE

STATt:.MENT
FINISHED?
YES
NO, SAVE CA)

PRGCT
•• 3
MT0
MIOI

1640il0
044350

035613
161613
002020
026455
066004
075340
0J561J

PRINT

•

014~.

0149 46174
0150 46175
0151 46176
0152 46177
015 3 46200
0154 46201
0155 46202
k'l156 46203
0157 46204
0158 46205
0159*
IH60**
0161*
k'l162 46206
0163 462",7
0164 46210
01 65 46211
0166 46212
0167 46213
k'l166 46214
0169 46215
0170 40210
0171 46217
0172 46220
1t:1173 46221
0174 46222
k'l175 46223
10176 46224
0177 46225
0178 46226

SAVE.
COLUMN COUNT
SET COLUMN COUNT

NO

SET MAIN L.OOPTO
STATEMENT EXx' MOOt
COMPUTE
POINTER

TO

AOB ,,-2

lSl TEMPI
LOA TEMP1,l
SSA
JMP EMATt>
LDB M~P2A
f.MAT2 ST8 MOP
lSZ TEMPl
AND OPDMK
SZA,RSS

DESTINATIoN
MATRIX

MATRIX

FUNCTION?
YES
NO, SET OPERATION

JUMP TO 'REPLACE' MUDE
SCALAR
MULTIPLICATION?

PAGl
10179
~180
~181

0182

fd183
fcU84
0185
0186
0167

10168
[0189
019fd
0191
0192
0193
0194
019~
~196

0197
kl198
0199
020~

0201
"'202
0203

~183

46227
462310
46231
46232
46233
46234
46235
46236
46231
46240
46241
46242
46243
46244
46245
46246
46247
46250
46251
46252
46253
46254
46255
46256
46257

-17

~ATHrX

EXECUTION

JMP
ALS
ADA
ADA
L.DB
AOB

026445
0kl1000
041575
040351
164000
1/l44350
075350
015412
061613
05133 4
.,26277
161613
010100
01/l1000
041575
040351
1640016
044351r.'
1/l75352
0154,2
161613
010664
050632
026334
100106

sr~

JSB
L.OA
CPA
JM~

L.OA
AND

ALS
ADA
AOA
L.OB
AOB
ST6
JSB
LOA
AND
CPA
JMP
RRL.

Ef'tAT5
SYMTB
, 119 1
0,1
,,,2
BS2
VCHK
TEMPt
PRGeT
EMAT3
TEMP1,l
OPDMK

yES
NO
cOMPUTE
P01NTER
TO FlRST
SOUIotCE
MATRIX
vALIOATE ITS (L.EMENTS
ENO Of
STA1EMENT1
YES
NO
COMPUTE

SYMTS
, .. 1
fd rl
, .. 2
aS3

VCHK
TEMP1,I
OPMSK
MUL.OP
EMAT4
6

POINTER TO
SECOND

SOURCt. MATRIX
VAL.IOATE Irs EL.t.MENTS

MATRIX
MUL.TIPL.ICATION?
'(toS

NO

~204.

020~·"

SET UP MATRIX ADD, SU8TRACT, OR REPL.ACE

..

*.

0206.

0210
0211
0212
0213
0214
0215
0216
0217
0218

46260
46261
46262
4626:'
46264
46265
46266
46267
46270
4 6 2 71
46272
46273

0219

46274

fd207

0208
0209

0220
0221
fd222
0223
0224
0225
0226
0227
0228
°229
",230
10231
0232

066006
002020
066~07
07534~

065574
160001
151352
00600~

1 !fH21

46275
46276
46277
4630'"
463"'1
46302

035352
164001
155352
0"'2001
115121
035352
16135'"
151574
0k'2001
115121

463163
46304

~35350
03557~

46305
46306
463°7
46310
46311
46312

100200
1161350
165350
155~74
0031/l~5

115121

E~ATJ

LO~ MAOOA
RecORo
SSA
'MATRIX ADO'
LOS ~SUSA
U~ 'MATRIX SU~TRACT'
S18 MOP
OPERA~ION JUMP
L.OB BSl
L.OA 1,1
ROW
CPA 853,1
COMPATl~lLlTY1
INB,kSS
YES
JS8 RERRS+11,1 NO
ISZ 8SJ
L.OS 1,1
COLUMN
CPB BS3,1
COMPATI8ILiTY?
RSS
yfS
JS8 RERRS+l1,1 NO
lSZ BSl
L.OA BS2,1
ROW
CPA 851,1
COMPATI8!~lTY?
RSS
Yt.s
JS8 RERRS+11,1 NO
lSZ BS2
ISZ BSl
COMPUTE NUM~ER
MPY SS2,1
OF MATRIX EL.EMENTS

L.OB B52,I
COLUMN
CP8 881,1
COf'tPATIBILITY1
CMA,INA,R$S
YES
JSS RERRS+l1,1 NO

PAGE
0233
11) 2 34
0235

~184

#17

MATRIX EXECUTION

46313 071500
4 6 314 0J535 0
46315 03"5574

STAMCNT

ISZ Ba2

lSI BSl

SAVE 2'8 COMPLEMENT OF SIZE

PAGE
0237*

11)238**

~185

#17

ASSl~N

MATRIX EXECUTION

MATRIX

VALU~

**

02Jg*
02-4U'.

1d241*
0242*
0243*

MOP HOLDS A POINTEH TO CODE WHICH COMPUTES ONE ELEMENT Of THE
DESTINATION MATRIX AND RETURNS IT IN (A) AND (8), MfXIT
HOLDS THE EXlT ADDRESS SET BY THE CALLER,

0244.

121245
121246
1!)247
0248
1tJ249
0250
0251
0252
0253
0254
L?255
0256

0257*
0258**

4631 6
46317
46320
46321
46322
46323
46324
46325
46326
46327
4633 0
46331
463J2
463:$3

104200
101360
125340
0363~2

035352
11)35350
1c:l35350
104400
11011574
0 3 557 4
035574
035500
1{)26316

125364

0261
0262
111263
0264
0265
0266
kJ267
121268
1c1269

0270
0271
0272
kJ273
0274
11)275

02 76
'lJ277

1c:l278
0279
11)280
0281
1{)282

kJ28J

028 4
02 8 5
121286
102 87
fd288

LOAD ELEMENT OF SOURCE

JMP
ML.OPl ISZ
lSZ
ML.OP2 lal

JUMP TO OPE~ATI0N
MOVE TO NEXr ELEMENT
OF 8E~OND SOURCE MATRIX
MUVE TO NEXt ELEMENT
OF FIRST SOURCE MATRIX
RECORD fl..EMENl

MOP,1
SSl
bSJ
BS2
18Z BS2
MLOP3 DST BS1,1
ISZ
ISZ
ISZ
JMP
JMP

COMPUTE MATRIX PRODuCT

0259*
1c1260

ML.OOP Ol.D BS2,1

BSl
BSl
MCNT
MLOOP
ME.XIT,1

OF DESTINATION MATklX
ANO MOVE TO NEXT ELEMENT
DONE?
NO
Yl:.S

**
11

46334 161!574
4633~ 151350
46336 0030215
46337 1115121
46340 071634
46341 035574
46342 035350
46343 161350
46344 151352
46345 003005
46346 115121
46347 071635
46351c:l 071636
46351 0010210
46352 071632
46353 100200
46354 101674
46355 "40354
46356 071633
46357 035352
46360 161574
46361 151352
46362 003005
46363 115121
46364 ,,71637
46365 071040
46366 003 00 4
46367 "01"'''''
4637° ~71641
46371 035574

EMAT4 LDA 881,1
DESTINATION MATR!X
CPA B82,1
ROW COMPATIBILITY?
CMA,INA,RSS
YES
J8B R[RRS+l1,1 NO
STA MMT0
SAVE ROW COUNTER
tsz BSl
ISZ BS2
LOA BS2,1
INNl:.R PROQUCT
CPA 883,1
COMPATIRILITY?
CMA,INA,RSS
YES
JSB RERRS+l1,I NO
STA MMT1
SAVE INNER PROOUCT
STA MMT2
COUNTERS
ALS
SAVE ROW
STA MMT6
BACK UP AMOUNT
MpY BS1,I
SAVE CO~UMN
AUA ,+2
BACK UP
MMT7
AMOUNT
1S1 BS3
LOA BS1,I
DESTINATION MATRIX
CPA BS3,1
COLUMN ConPATIBILITY?
CMA,INA,RSS
YES
JSB RERRS+l1,1 NO
STA MMT3
SAV~ CO~UMN
STA MMT4
COUNTERS
CMA,lNA
SAVE COLUMN
ALS
ADVAN~E
STA MMT5
AMOUNT
ISZ BSl
MO~E TO

srA

~ATRIX

PAGE 0186 .17
11'289
0290
0291
O292
",293
0294
0295
0296
1d297
0298
1i1299
0300
0301
O3 0 2
0303
O304
0305
0J06
0307
0308
03 0 9
1d310
0311
O312
id313
0314
0315
0316
0317
0318
~319

032'"
0321
0322
10323
0324
~325

46372
46373
46374
46375
46376
46377
464£10
46401
46402
46403
464 0 4
46405
464°6
464",7
46410
46411
46412
46413
46414
46415
46416
46417
46420
46421
46422
46423
46424
46'-25
46426
46427
46430
464 3 1
46432
46433
46434
46435
46436
46437
46440
46441
46442
4644 3
46444

10326
0327
0328.
0329·· SET
0330.
ro331 46445
10332 46446
46447
0333 464510
O334 46451
0335 46452
0336 46453
0337 46454
10338*

MATRIX EXECUTION

035350
035352
065352
075376
1042OO
046016
104400
hU574
1°42 00
hH35\IJ
035350
035350
0154 0 6
HH352
015402
1015'4
1°440O
101574
065 352
045641
075352
035636
026402
03557 4
°35574
06"636
075636
035640
02643'1065637
075640
0 3 5634
026442
124556
0(53511)
045632
07535e
065352

MPRI

BS2
SSl
BS3
MMT8
F0.e

M~R2

COMPUTE

8S2
BS2
.FMP
8S3,I
.FAD
OEF liS1,I
DST 8S1,1

TERM
Of

ISl
ISZ
JSB
OfF
Jse

MPR3

MPR4

104400
~fd1624

03e5613
fd35613
16 1613
1066010
026223

ELfMENT TO ZERO

DL.D 882,1

L08 sS3
Aoa MMr5
STB SS3
ISZ MMTa
JMP MPR2
ISZ BSl
ISZ aSI
LOB MMTl
8T8 MMT2
IsZ MMT'JMP MPR3
LD8 MMTJ
STB MMT4
ISZ MMTId
JMP MPR4
JMP xEC1A,I
LDS B82
ADa MMT6
STe BS2
Loa B83
ADa MMT7
RSS
Loa MMT8
STe 883
-IMP MPRl

UP SCALAR MULTIPLICATION
~15356

FIRST ELEMENT
OF MATRICE.S
SAVE. F1RST-EI,.EMENT ADUHESS
OF SECOND SOURC~ MATRIX
INITIALIlt DESTINATION

D8T BS1,1

1045633

002001
065376
075352
0i6a76

lSl
lSl
Loe
STe
OLD

("'AT5 JSB FElCH
DST SCALR
liZ
ISZ
LOA
LOB
JMP

TEMPI
TEMPI
TEMP1,1
SMUL.A
EMAl2

INNER
PRODUt:T
ADO IN PR~VIOUS
RUNNING SUM
SAVE RUNNING aUM
ADVANCE TO
Nf.XT ROW OF
SECONO SOURCE MATRIx
INN~R PRODUCT COMPLETE?
NO
YE.S, MOVt TO NEXT
OtSTINATION ELEMENT
REstT INNfR PROOUCT
TEHM COUNTER
ROW COMPLETE?
NO
yES, REsEl
COL.UMN COUNTER
DONE?
NO
yES

BACK UP
TO BEGINNING Of ROW OF
FIRST SOURCE MATRIx
ijACK uP TO BEGINNING
OF NEXT COLUMN
OF SECOND SOURCE MATRIX
SACK UP TO FIRST ELEMENT

•

.*•

COMPUTE AND
SAVE SCAL.AR
LOAD OPERATION JUMP
PROCESS
FOLLOWING
MATHIx

PAGE
16339
0340
16341
~J"2

0343
~344

~187

46455
46456
46457
46460
46461
46462

#17

MATRIX EXECUTION

lkH 104
1610411
~40323

071516
002021
026521

EMATO RRH 4
AND ,+37B
ADA ,111'218
STA 100
SSA,RSS
JMP lMAT8

0345,*

0346** SET
0347*
0348 46463
11:)349 46464
16350 46465
16351 46466
0352 46467
16353 46470
11:)354 46471
16355 46472
0356 46473
46474
1635 7 46475
0358 46476
16359 46477
1c:J360 46500
fd361 46501
0362 46502
11:)363 46503
0364 46504
0365 46605
0366 465166
10367 46507
0368 46510
id369 46511
0370 46512
16371 46513
16372 465 14
0373 46515
0374 46516
0375 46517
16376 46520
W377.
0378 46521
0379 46522
I~'I 46&23
0381 46524
0382 46525
16383 46526
11)384 46527
0385 46530
0386 46531
0387 46532
0388 46533
filii 4t6534t
0390 46535
0391 46536
0392 46537

UP MATRIX INITIALIZATION
1t'165613
1606004
1155334
002001
01547",
161574
071362
1635574
hHd200
101574
003004
071500
035516
026512
161574
051362
0030161
115136
071516
003400
071362
0621811
1626515
0621605
066 0 2 0
0355 16
0661615
075350
071340
026315
035613
161613
lUll,,,
001000
041576
04 0 351
164000
044350
075351c:J
1615412
165574
ft)~5,(U'

075637
0051016
035574

INV~

LOB
INS
CPS
RSS
JSB
LOA
STA
lSZ
MPY

TEMP1

PRGC T
REDIM
BS1,I
101
BSl
BS1,1

CMA,INA
STA MCNT
ISZ 1D0
JMP EMAT7
LOA BS1,1
CpA 101
CMA,RSS

COMPUTE
MATRIX
FUNCTION
TYPE
MATRIX INITIA~lZATION1
NO

**•
*

REDIME.NSIONiN~?

NO

YES

COMPUTE
NUMBE.R
OF t.LEMENT S

IN 2'S
COMPLEMENT
SAV~

IT

'ION' ?

NO
yES
SQUARE MATRIX?

YES

JS~ R~RRS+24'1
NU
STA ID~
SET

CCA
aTA 101
~DA IDNA
JMp *+4
EMAl7 LDA M~PJA
LOS Fl.0A
ISZ 100
LOB Fe,0A
STS BS2
aTA MOp
JMP M~OOP.l
EMAT8 ISZ
LOA
AND
ALS
ADA
ADA
LOB
ADS
STB

TEMPI
TEMP1,1
O'OMt(

SYMTS
,-1
0,1

,-2

8S2

JSB VCHK
LOB BS1,1

.... 8
STB MMT3

BRS
ISZ SS1

DIAGONA~

COUNTER
LOAD OPERAT10N JUMP

RECORD
CORRECT CONSTANTa
0,0 FOR 'lER'
1,0 FOR 'CON'

0,e FOH 'IDN'

RECORD OpERATION JUMp
COMPUTE

POINTER
TO

SOURCE.

MATRIX
VALIOATE IT
LOAD DESTINATION ROW DIMENSION
IAV' COLUMN
ADVANCE AMOUNT

PAGE
",393
~394

0395
0396
id397
1d39a
0399
1d400
10401
0402
0403
",404
0405
0406
0407
0408
0409
0410
0411
0412
10413

0414
0415

0416
0417
0001*
0002**
0003*

0004
0005
0006
"'007
0008
0009
001rd
IcHHl

0rd12
0013

0014
0015
0016*
0017**
0018*

0019
0020
0021
0022
0rd23

1d024
0025
0026
"'027

~188

#17

MATRIX EXECUTION

161574
UH360
003005
115121
071635
071636
035350
155350
4655~ 0070(45
46551 115121
46552 1075634
46553 10020~
46554 001637
46555 035350
46556 065516
46557 006003
46560 0266110
46561 rd40354
46562 ftJ71640
46563 035574
46564 1026572
46565 ftJ65635
46566 075636
46567 06535.,
46570 045640
46571 075350

LOA BS1,I
ARE COLUMNS Of DESTINATION
CPA BS2,1
AND ROWS OF SOURCE EQUAL?
CMA,INA,RSS
yES
JS8 RERRS+11,l NO
STA MMTl
SAVE DESTINATION MATRIX
STA ~MT2
COLUMN COUNtERS
ISZ BS2
ARE kOWS OF DESTINATION AND
CPS 8S2,1
COLUMNS Of SOURCE ~QUAL1
CMB,INB,RSS
YES
JSB RfRkS+l1,1 NO
ST6 MMT0
SAVE ROW COUNTER
MPY MMT3
SAVE COLUMN BACK uP

46540
46541
46542
46543
46544
46545
46546
46547

lIZ BS2
LOB 100

SZ8,RSS
JMP INV
ADA .+2
STA MMT4
lSZ BSl
JMP TRN
LOB MMTI

TRNI

l.OS BS2

AD8 MMTa4
STB B82

104200
101350
104400
lkH 574
0Jo574
035574
065350
t'J 45 6 J 7
07535ta
035636
026572

TRN

LDB BS2
ADS MMTJ
ST8 ~S2
ISZ MMr2
JMP TRN
lSZ MMT0
JMP TRNI
JMP )(Et1A,1

124556

0715.:H/'
06157'""71352
061330
040354
~71574
0~3004

TRANSfER
EL.EMENT

ISZ BSl

~356J4

ftJ64000

BS1'I

ISZ BSI

02656~

00110~

•

OLD BS2,1
DST

INVERT A MATRIX
46610
46611
46612
46613
46614
46615
46616
46617
4662ftJ

RfSil
COUNTER
BACK Up TO
FIRST EL.EMENT
OF NEXT COLUMN

***

TRANSPOSE A MATRIX
46572
46573
46574
46575
46676
46577
46601tJ
46601
46602
46603
46604
466 0 5
46606
46607

~MT2

Sr 8

'TRN' 1
NO
yES, SAVE COLUMN
BACK UP AMOUNT
fOR SUURCt:. MAT~IX

INV

•

ADVANCE Tu
NEXT ELEMENT
Of COLUMN
COL.UM~ TRANSFERRED?
NO
YES, DONE1
NO
yES

**

.

LOB 0
ARS
STA MC~T
LOA t;S1
srA BSJ
LOA TMPST
ADA • +2
sTA BSl
CMA,INA

SAVE 2'S ~OMPL.EMENT
OF NUMBER OF
ELEMENTS IN MATRlX
SAVE ADDRESS Of
DESTINATION MATRIX
SET AODRESS
OF FREE CORE
AS BASE ADDRESS
SUFf.1CIENT

PAGE
0028
..,"'29 ..
0030
0031
10032
0033
0034
10035
0036
0037
0038
0039
0040
0041
10042

0043
11)044
0045
10046
00 4 7
00 4 8
011)49
10050
"'051
0052
005 3
11)054
0055
0,,56
0057
0058
00 5 9
0060
lih.'C> 1

0062
0063
0064
0065
11)066
00 67
0068
0069
10070
1007 1
10072
0073
0074
0075
16076
0077
0078
0079
11.1080

~1b9

46621
46622
46623
46624
46625
46626
46627
46630
46631
46632
46633
466J4
46635
46636
46637
46640
46641
46642
46643
46644
46645
46046
466 4 7
4665~

46651
46652
46653
46654
46655
46656
46657
46660
46661
46662
4666.1
4666.4
46665
46666
46667
46670
46671
46672
46673
46674
46675
46676
46677
46700
46701
46711.12
467""3
46704
46705
46706
467107

#18

MATRIX EKECUTION

1r'40462
040001
003021
115120
04e462
ttJ700!56
006400
1t17562b
075627
062012
071340
062637
071364
026316
046640
104200
001626
0115406
046013
104400
0016 30
003400
0/15 1 6
041352
071574
00300.4
04133k1
003004
071352
062661
011364
026470
046662
.,6533i1
044354
060001
075350
045352
075574
1006400
075516
026703
061616
040350
071516
061634
e71636
0bl344
041637
040354
071 3 4.¢
071640
006400
",7.5626
1675627

AOA L.WAUS
AOA 1

INVt

FHEE. COHE.
TO Copy
SOURCE MATRIX?
CMA,SSA,~SS
JS8 RERRS+l~,l NO
ADA L~AUS
YES, INC~uOE IT
STA P8PTR
IN SWAP A~EA
C~ij
S~T 'MAXIMU~ ELEMENT'
STB MAXE
VA~UE TO
sre MAXE.+1
lERU
~OA MCPYA
SET UP TO
STA MOP
COpy MATRIX,
L.OA INV1
FIND MAXIMUM (ABSOLUTE
STA MEXIT
VALUE) EL.EMENT,
JMP MLOOP
AND RETURN
OEF *+1
OLD MAXE
COMPUTE
Js~

,FMp

Ot:F TOL.C

DST TOI.

ceA
STA 100
AOA SS.1
STA SSl
CMA,INA
AUA TMP~T
CMA,INA
~TA

LOA
STA
JMP
OEF

INV3

INV4

SS;,

INV2
MEXIT
INvl.
*+1
l.()~ TMPIY
AO~ ,+2
LOA 1
Sy8 BS2
AOts 853
STa BSl
cLa
STe 100
JMP INV4
LOA 10",
ADA ,-2
STA 10k)
LOA MMT0
STA MMr2
L.OA PIVEL.
ADA MMT3
AOA ,+2
STA PIVEL.
STA MMy4
CL8
STB MAXE
8TB MAXE+1

REL.ATIvE
TOLERANCE

RESTORE
OESTINATION
BASt.-. ADD HESS
CUMPUTE DIF~EH~NC~
BET~EEN BASE ADDRESSES
Of SOURCE (CUPIED)
ANO Df.STINATION
MATlHCES
SET DESTINATION MATRIX
TO IDENTITY AND RE1U RN
SAVE
BASE AOCRESS
OF SOURCE
MATtUx
SAVE BAsE A'>OREss OF
0ESTINAiION MATRIX
SET PIVOT ELEMENT"
81AS TO ZERO
SET ~lAS
FOH NEXT
PIvOT EL.EMENT
INITIALIZE COUNTER TO
2'5 COMFlE.MENT OF COLUMNS
UPOATE PIVOT
AIJORESS
TO NEXT
DlAClONAL. ELEMENT
INITIALIZE
pIVOT ELEMENT
AS MAXIMUM
IN COL.UMN

PAGE VJ19v:1 #18
k:1ld81
008 2
0083
0084
0085
0086
11:)087
0088
0089
0090
0091
0092
k:1093

0094
0095
0096
"097
11:)"'98
011:)99
"1"0
011tH
0102
0103
0104
01 0 5
01°6
1d107
0108
010 9
"'110
O111
"'112
0113
0114
"115
0116
"117
011 8
011 9
°12 0
Id121
0122

4671"
46711
46712
46713
46714
46715
46716
46717
46720
46721
46722
46723
46724
46725
46726
46727
4673'"
46731
46732
46733
46734
467 3 5
46736
46737
46 7 40
467 4 1
46742
46743
46744
46745
46746
46747
4675(d
46751
4675 2
46753
46754
46755
46756
46757
4676~

467 61
46762
46763
46764
46765
46766
46767
46770
4677 1
46772
46773
46774
46715
46776

MAHH,l(

065635
075641
071632
104200
HH632
002 0 2°
015370
104400
001624
016404
001626
002002
002020
1d26734
104200
001624
1id4 400

E.Xf:CUTION

INv5

LOB MMTl
8T6 MMT5
STA HMT6
DLO MMT6'I

SfT COUNTf.R TO sEARCH
Rt.MAINDER OF COLUMN
LOAD
ELEMENT

SSA

GET
A8SOLUTE
VAI..UE

JSB ARINV

OST sCALR
Ja8 .FSB

O£F MAXE
SZA
SSA
JMP INV6
01..0 SCALR
DST MAXE

0016~6

061632
07 16 40
061632
°41637
"35641

INV6

JMP

02671~

065344

LOB
ADS
STB
AOB
STB
STB
LOA
CPA
JMP
ADA
STA
AOA
STA

~4!5516

075633
045352
07564 1
075362
061640
051344
02 7 01 7
041516
07 13 76
041352
071632
104~00

101641
10 44 00
001624
10 4 20"
101632
11i:1 44 00
101641
10 42 00
k:101f>2 4
11d 44 00

LOA
STA
LOA
ADA
ISZ

INV7

01.0

MMT6
MMT4
MMT6
MMT3
MMT5
INV5
PIVEL
100
MMT7
SSl
MMT5
10 1
MMT4
PIVEL.
INV8
100
MMTs
SSl
MMT6
MMT5'1

SUBTRACT
PHEVIOUS MAXIMUM
RESUL.T
poS1TIVE.?
NO
YES, RECORD
NEW MAXIMUM
AND ITS
L.OCATION
MOVE fO NExT
EL.EMENT OF COLUMN
COL.UMN OONEi
NO
YE.S
SET POINTERS
TO OLD
PlvOr ROWS OF
BOTH MATRICES
NEED TO
SWAP ROWS1
NO
yES, SET POINTERS
TO NEw
PIvor ROWS OF
BOTH MATRICES
SWAp

D8T SCAL.R
OL.D MMT6,1

ROW

OST I'1MT5,1
OLD SCALR

f:.LEMENT

08T MMT6,1

1016J~

104 2 00
101633
10 4 400
001624
10 42 00
101376

01.0 MMT7,1

OF

OST SCAL.R
DLD MMTS,l

EACH

PAGE "191 #18
~123

0124
0125

"'126
1.1127
0128
0129
1.1130
0131
0132
0133
0134
IrH35
0136

0137
013ti
liU39
0140
!el141
0142
0143
0144
0145
10146
0147
1I)14ti
0149
0151d
~151

11)152
11)153
LlJ154
0155
0156
0157
015ij
0159
~161t:l

13161
11.1162
1t:l1 6 3
0164
0165
131 66
0167
016ij

MATRIX EXECUTION

46777 1"'4400
47000 HH633
41' 00 1 10 42 0 0
47002 001624
470k:l3 10440~
470~4 H'll7t>
47005 035641
47006 03b641
47007 035632
4701k1 035632
47011 035633
47012 035633
47013 03 5376
47'114 035376
47015 035636
47016 026755
47017 104200
47020 001626
47021 015404
47022 001630
47023 002020
47024 115140
471d2!) 104200
47026 046021
47027 015410
47030 H:I1344
47031 104400
47032 001626
47033 061635
47034 0rt2007
47035 027053
4703b 071641
47037 061344
470411.1 071632
47041 035632
47042 035632
47043 104200
47044 HH63~
47045 015406
4711.146 001626
47047 104400
47050 1016J~
47051 03b641
47052 0271t41
470b3 0613~2
47054 071632
47055 061634
47056 071636
47057 11.171641
47060 104201t:l
47061 10163~
47062 011.12003
47063 027070
47064 015406
47005 iiHH626

DST MMT7,1
01..0 SCAI..R

MATRIX

DST MMT8,1

lSZ MMT5

I~'V8

ISl
lSl
ISZ
ISZ
ISZ
ISZ
lSZ
lSl
JMP

MMT5
MMT6
MMTQ
MMT7
MMT7
MMTb
MMr 8
MMT2
INV7
OLD MAXt;.

BUMP
ALL.
FOUR
POINH:RS
ROW SWAPPED?
NO
yE.s

JaB ,FaB
pIVoT ELEME~T
OEF TOL
SMALLER THAN
SSA
TOLt:~ANCE1
JSB Rf~Rs+26,I YEs
OLD Fl,0
NO

INV9

JSB .FlJV
OEF PIVEL,I
OST MAXf.

COMPUlE

LOA MMTl
INA,SZA,RSS
JMP INVlld
STA MMT5
LOA PIVEL.
SlA MMTb
lSZ MMTO
lSz MMT6
DL.D M"'TO,1

LAST
PIvOT"
yES
NO, PHEPAHE
TU SCALl
PIVOT ROW
MOVE TO NEXT
ELEMENT OF HOW
MuL.TlpLY

JSb .FMP
DfF MAXE

I~VER~t:

Hy

DSl MMro,J.

ISz I'1MT5
JMP
INV1" LDI\
8TI\
LOA
STA
STA
INvll OLot)

INV9
11)1
MMT6
MMTItj
MMT2
MMT!l
MMT6,1

SZA,RSS
JMP 1NV12
JSti .FMP
Off MAXE

0;-

PIVOT ELEMENT

l/tJIvOT
ANI) STORE
NEw VALuE

ROw I)ONE?
NO
yES

SET
COUNTEf(S
SC;AL~

ELEME;~T S

OF

PIVOT ROW
Of DESTINATION

PAGE
0169
"'170
0171
0172
0173
0174
0175
if.l176

0177
0178
0179
0180
10181
0182
0183
0184
0185
!cH86
0187
~188

0189
0190
~191

0192
IrU93
!c1194
(,Hge

0196
0197
0198

0199
0200
0201
0202
0203
0204
0205
0206
0207
0208
10209
10210
0211
0212
0213
0214
0215

~192

47066
47067
47070
47071
47072
47073
47074
47075
47076
47077
471010
47101
47102
471")3
47104
47105
47106
47107
47110
47111
47112
47113
47114
47115
47116
47117
47120
47121
47122
47123
47124
47125
47126
47127
47130
47131
47132
·47133
47134
47 135
47136
47137
47140
47141
47142
47143
47144
47145
47146
47147
47150
47151
47152
47153
47154

#18

MATRIX EXECUTION

104400
H:l1632
035632
035632
035641
027060
065574
fd7541lJ(1
~61350

003004
041516
003004
071376
051344
027206
071e3l
104200
H:)1el3
002003
027206
104400
0016~4

061635
002007
027144
071641
061344
071632
035632
036632
036e33
0J56JJ
104200
00162~

DST MMT6,1
I~V12

ISZ MMT6
18Z MMT6
18Z MMT5
JMP INVll
LOB BSl
STB \lT0

LUA I:3S2
CMA,INA
ADA 100
'MA,INA
INV1J STA MI1T8
CPA PIVEL.
JMP INV19
STA MMT7
OLD MMT7,!

ZERO?
YES
NO, SAVE MUL.TIPL.IER

LOA MMT1
INA,SZA,RSS
JMP INV1~
STA I1MT5
Lu A PIVEL.
SlA MI1T6

LAST
ROw?
yES
NO SET POINTE~ TO
P1VOT ELE,MfNl IN
~OURCE MATRIX
MOVf;.

INV14 18Z
lSZ
liZ
ISZ
OLD

MI116

MMT6
MI117
MMT7
SCAl.R

JSB ,FMP

104400

DST

TO

NEXT
COL.U MN
COMpUTE

DfF MMT6,1
DST "'AXE

OLD MMT7,1
Ja8 ,P88

DEF MAXE
I'1MT7,1

1016~3

035641
f127122
061362
0 7 1632
061634
(.171640
1104200
HH632
002003
027166
015406

ROW DONE?
NO
yES, SET POINTER yO
DESTINATION ARRAY
SET POINTt;R
TO PIVOT COLUMN
IN FIRST ROW
OF' SOURCE
MATRIX
PIVOT ROW?
YES
NO
LOAU MULTIpLIER FOR pIVOT ROW

SlA,RSS
JMP INV19
OST SCAL.H

015406
101632
104400
001626
104200
101633
015404
0~1626

MATRIX

ISZ
JMP
INV1~ LOA
STA
LOA
SlA
I NV16 OLD

MMT5
INV14
101
MMT6
MMTId
MMT4
I'1MT6,1

SZA,RSS
JMP INV17
JS~ .FMP

El.EMENT
ROW DONE?
NO
yES, SET POINTER TO pIVOT
ROW OF DESTINATION MATRIX
SET
COUNTER
COMpUTE

PAGE '119:.1 #18
~216

1iJ217
0218
0219
0220
0221
0222
0223
1c:1224
0225
0226
0227
14228
022 9
0230
0231
0232
~233

0234
1(J235
0236
0237
1IJ238
0239
0240
02 4 1
0242*
1iJ243**
0244.

fIlAT~IX

47155 0"'1624
47156 1044~0
47107 0(61626
4716~ 10 4 2014
47161 10140~
47162 f()154fd4
47163 0k1162e,
47164 104400
47165 1014100
47166 035400
47167 0354~HJ
47170 035632
47171 035632
47172 035640
47173 027150
47174 061376
47175 041637
47176 035636
47177 027102
47200 1d3563f>
47201 td26673
47202 061330
47203 040401
47204 07005~
47205 124556
47206 061400
47 2 07 041637
472Hl 071400
47211 027174

TRANSfOkM£O

OEF SCAL..~
OST MAXE
DL..O

VT~,I

JSB .FSB
OEf MAXf.
08T VT0,1
INV17 lSZ
ISZ
ISZ
ISZ

lSz

JMP
I NV 18 LOA
AOA
ISZ
JMp
ISZ
JMP
LOA
A!)A
STA
JMP
INV19 LOA
AUA
STA
JMP

MADO

MSuij

ION

EL.EMENT

VT0
VTf()
MMT6
MMT6
MMT4
INV16
MMT6
MMTJ
MMT2
INV13
MMTl
INV3
TMPST
,+23
PBPTH
XEC1 A,I
VTitl
MMT3
VHl
I NV 16

CODE TO COMPUTE AN tLEMENT

47212 01S402
0246 47213 UI1352
0247 47214 026321
024fS*
~249
47215 0154~4
02511:) 47216 11.11352
11:)251 47217 026321
0252*
0253 47 220 035~62
0254 47221 026J~5
0255 47222 ",61516
"'256 47223 071362
11:)257 47224 104200
47225 046021
1IJ258 47226 02(321)
kJ2C59*
0260 47227 015406
0261 47230 1401624
~262
47231 026 3 23
1IJ26J*
"'264 47232 002°2 0
0265 47233 "'15310
1(.1266 47234 Hl4400
~245

EXECUTtON

JaB ,FAD
OEf 883,1
JMP MLOP1

MOVt

TO

NEXT
COL..UMN
t 01
0324 47306 115127
JSB RERRS.17,I NO
10325 473~7 006004
IN8
YtS, SAVE
0326 473116 175574
STB SBPTR,l
TRUE VALU~
.,327 47311 07547~
STB RD0
IN ARRAY
032~
47312 035574
ISz SBPTR
ENTRy
"329 47313 165613
LD~ TEMP1,l
EXPLICIT NEW
0330 47314 006003
SlB,RSS
COLUMN DIMENSION?
JMP RDIMl
NO
0331 47315 027321
JSB FETCH
YES,
k:l332 4 7 31 6 015356
0333 47.B7 015342
JS~ SaFIX
COMPUTE
10334 47320 115127
JSB RERRS.17,I
IT
SAVE TRUE VALUE
"J35 473 21 "'''6004 RlHMl INS
STB saPTR,l
!N ARRAY tNTRY
"336 47322 175574
k:l337 47323 IcHH472
'LOA RD0
COMPUT~
MPY SsPTR,l
NUMBER OF
"338 47324 1.,0200
47325 101574
0339 47 3 26 0"6 003
SZB,RSS
ELEMENTS
,,341t:l 47 32 7 003025
CMA,SSA,lNA,RSS
SPECIFIE.D
10341 4733" 115137
JSt;; RERRS.25,I TOO MANY
,,342 47331 ~7l472
STA R00
0343 47332 065574
RESET
LOB SSPTR
0344 47333 ,,44347
ARRAY POINTt,R
ADS .-3
AND COMPUTE
LOA l,I
"34!) 47334 160001
I Nt;;
NUMI;5ER Of
0346 47335 006004
SlB SBPTR
ELEMENTS
0347 47336 075574
Mpy SBpTR,I
~ VA lL.AI;H"E
"'34H 47331 100200
47341/J 101574
1tJ349 47341 035574
fUR ARRAY
ISZ SBPTR
,,350 47342 041472
ADA RD0
SUffICIENT
~351
47343 0W:i2fd2"
SSA
PHYSICAL SP Act:.1
0352 47 344 11513 7
JSS RERRS+25,I NO
YES
lSl TEMP1
"353 47345 1635613
1t:l354 47346 125471()
JMP REL>IM,l

PAGE

~196

#19

OUTPUT ROUTINES

~"'02

5~000

0003

50000 174000
~0001 052467
50002 001616
50003 000112
b0004 000113
500tci5 17767k'J

0004
0~05

0006
0007
0008
0009
0010

5~006
5~007

001h··
~012...

0013 ••
0014.

0015·
0016.
~017.

177666
176030

PRINT A NUMBER

0019
0021
0022
0023
0~24

0025
0026

0027
0028

50010
50011
50012
500 13
50014
00015

002300

015422

026015
0604 12
015454
0 6 54611'

50016 045572
!H1017 0~6002
0 0 02 0 02 60 1J
50021 125420

0029*
0030 50022 114631
00023 116373
0031 50024 10 2 7 5 6

#t.NOT ceE
J8B
JMP
LOA
JSB
LDB
Aoe
SZ8
JMP
JMP

0032 ••
0033...

OUTPUT A NUMijER

0034 ••

0036·
0037'#1

003~h

10039.

0040*
0041*
~042

0043
0044
0045
00 46
0047
004ij

,+408

OUTeR
EOPF
CHRCl

ENABL.E SIGN
oUTPUT NUMBER
OUTPUT
A ~lANK
FIELD
FULL?
NO
yES

.*.
**

**

ENTER ~ITH A fLOATIN~ POINT NUMBfR IN tA) AND (ij) AND tEl. 1
IF A SIGN 18 WANTEO, OETtRM1NE TH~ fORM OF THE ~UMijER ANO
SET EOPF ACCORDINGLV, NO~.lNTEGERS ARE ROUNDED AFTER CONvERSION
To DECIMAL. THAILING ZfROS ARE SUPPRESSEO ON NUMBEHS wITHOUT
EXPONENTS (AND ON NUMBl~S WLTH EXPONENTS If CALLED FROM 'LIST'),
S0026 071616
50027 00211:'41
500.}0 0260"2
50031 002021

!>00J2 02 6 03 7
S0033 fd15370
5 00 34

~71616

0050

S0035 060427
~0036 12102001

0051
0052
0053
0054

0121037
00040
00041
00042

060412
071266
061616
075617

004~

NUMOT
.+3

MAXFX DEC -999999.0

b0020 002050

0035.

.*
*.*
* ..

ENTER WITH A FLOATIN' POINT NUMBER IN (A) AND (B), PRINT THE
NUMHER ANO APPEND H~ANKS TO REACH THE PRINT POSITION SPE~IFIEO
'BY -tuP," ON RETURN FROM NUMOT.

',UHt).
~020

ORG 50000b
HMASK OCT 174000
LCAlL DfF LIS!0-t
NMBFA DfF NUMB,.
,74
DEC 74
,75
DEC 75
MM72 DEe .72
to1M74 DEC 'll!74
roI1000 DEC .. 1000

SlA NUMBF
sEZ,RSS
JMP NUM01
SSA,RSS
JMP *+!5
Js6 ARINV
STA NUMBF
LOA .+551'3
kSS
LOA .+40 8
STA SIGN
LOA NUM6F
NUMOl ST8 NUM6F+l

SAVE HIGH MANTISSA
sIGN?
NO
VES, NEGATIVE NUMBER?
NO
yES, NEGATE NUMBER
SAVE HIGH MANTISSA
LOAD ' . . . '
LOAD '+'
SAVE SIGN
RETR1~VE HIGH MANTISSA
SAVE LOW MANTISSA

PAGt:: 0197 #19

OUTPUT ROUTINES

"'055 ~0043 01!5416
0kl56 00044 026010
11)057 ~1I)045 1102201
0058 ~0046 026070
1d059.
OUTPUT AN INT~GEM

.,.6e··
0061*
~062

0063
0064
0065
0066
0067
0068
0069
0070
0071
0072
01073
0074
O075
0076
O077
"'0n~

50047 075616
50050 046007
50\151 060360
50~o2 006021
00053 1043355
50054 041672
50055 003004
50"'56 071460
50057 1642003
50060 002020
50061 IfU5426
50062 061266
50063 0\12002
5"'064 fd15454
50065 ""65616
~0066 015456
50067 125422

0079*
0060.* OUTPUT A FLOATING
0081.
0062 50070 O60350 NUM02
008 3 MH:l71 071336
0084 ~0072 10 42 00
50073 0O,616
0085 50074 015402
0086 ~k'l075 0~0024
0087 b007b 0020~1
006tS ~0077 026106
0089 5 0 100 1 0 42 160
50101 001616
0090 50102 015402
0091 50103 05i)022
0092 ok'l1~4 00202~
"093 !)01 r1 5 03 5 33 6
0094 5~106 10420~ NUM03
50107 00161()
0095 501H) 071316
0096 00111 015414
0097 ~0112 0753~0
0098 50113 071322
0099 5"114 002400
"1° 0 5 0 115 07 1324
0101 5011 6 0Q1322
0102 00117 k'l2(j141
0103 0\1120 01530(;3 NUM00
1i:l104 00121 061322
10105 00122 003026
0106 50123 026126

Jse If IX
JMP NUM02

INTEGER?
NO

SOC
JMP NUM02

NO

YES,

16~tSlT

INTEGER?

*

••
STe*

NUMBF
.OB M100'"
LOA .+6
SSB,RSS
ADA ,+3
ADA CHRCT
CMA,INA
STA EOPf
ADA .74
SSA
JSB OUTLN
LDA SIGN
SZA
JSe OUT~R
LDB NUMBF
JSB OUTlN
JMP NUMOT,I

SAVf:. INTEGEF!
J DICiIT II'4TEGER?
NO
COMPUTE END ... OF ... FIELO
SAVE.
IT
ENOuGH
ROOM?
NO

n.s

SIGN?
YES, OUTPUT IT
NO
OUTPUT THt:: INTEGER

.

POINT NUMBER

.*

LOA .",2
STA FFL.AG
DLoD NUMSF

*
SET tfIXE!)!
FL.AG fAL.SE
LOAD NUMBER

JS8 ,fAD
OfF MAXFX
SSA,RSS
JMP NUM03
OLD NUMSF

IS NUMBER
LESS rHA~
999999,5 ?
NO
YES, IS

JS8 ,FAD
OEF MINF'X
SSA,RSS
ISZ ffLAG
OL.D NUMBF

NUMBEH
LESS THAN
0,(/J999999~ ?
NO, St.T 'FIXED' FLAG TRUE.
LOAD NUMBf~

STA MANTt
UNPA(;K
Jsa ,FLUN
8T8 MANT2
NUM6EH
EXP
STA
CLA
INITIALIZE
OECIM,,\L. EXPUNENT
ST. EXPON
CPA EXP
ZERO EXPONENT?
JMP NUMOS
YES
NO
JSB MBY10
LI)A EXP
MUL.TIPLY
CMA,SSA,INA,SZA
NUMBER uy 10
JMP *+3
UNTIl,., IT IS

PAGE 0198 #19
0107
0108
klU'9
011121
~111

~

OUTPUl ROUTINES

MH24 035324
~HH25 026120
t>ra126 015302
00127 12161324
f)~H 30 065322
001~H 007004
00132 006021
5121133 026141
50134 071324
50135 k'15302
00136 00341210
50137 041324
oral40 0261J0
50141 003~00
~0142 071324
50143 064344
5ra144 12175356
50145 066"'02
50146 075362

GREATf.R
THAN 1
DIVIDE By li

18Z EXPON
JMP NUM00
JSB DBY1"

LOA EXP()N

NUM04 Loe E::XP
CM8,INB
SSS,RSS
JMP NUM05
srA EXPON
JS8 DBylld

112
0113
kll14
0115
ro116
ceA
0117
ADA EXPON
011 8
JMP NUM04
1d119
012121
NUM05 CMA
STA EXPON
11)121
0122
LDe •• 6
STB D1.eT
0123
0124
L08 NM8FA
ST8 NMPTR
0125
0126*
'*'
klI27** CONVERT MANTISSA TO ASCII **
0128*
0129 00147 015424 NUM06 JS8 GElOG
013121 50150 0404~2
ADA .+6i6
8TA
NMPTR,1
7
0131 be151 1 1362
0132 50152 035362
ISZ NMPTR
0133 50153 035356
lal DICICT
6
JMP
NUM06
0134 50154 02 147
0135 ~0155 015<424
JaB GETOG
0136 50156 1214121345
ADA ,-5
SSA
0137 50157 fd02020
JMP NUM09+1
0138 5016", '126201
0139*
*.
0140** ROUND ASCII MANTISSA **
11
121141*
0142 00161 065362
1.. 08 NMPTR
kl143 f)0162 044351 NUM07 AUB ,-1
0144 50163 160001
LOA 1,1
INA
0145 010164 01212004
CpA ,58
0146 5111165 0f)0436
0147 50166 1d02~01
RSS
JMP NUM09
0148 50167 ld262e0
4
CP8
NMSfA
b0170
006002
"'1 9
JMP NUM08
0150 50171 026175
LOA ,+60b
0151 50112 060434
0152 50173 .170001
STA 1,1
JMP NUM07
0153 50174 1.126162
0154 50175 035324 NUM08 Iaz EXPON
Nap
1d155 50176 00"0010
LDA ,+618
0156 50177 ~6e4JJ
0157 502100 170001 NUM09 STA 1,1
0158 50201 1061324
LOA EXPON
1d159 f)ft}202 002021
SSA,RSS
JMP NMOll
1d160 5t:J203 026221
0161 00204 071360
srA NMTMP

•

DIVIOE
NUMBER

bY 10
UNTIL

IT IS
LESS
THAN
1

SET EXPONENT
TO TRUE VALUE .. 1
SET DIGIT
COUNTER

SET ijUFfEH
POINTER

A
DECIMAL.
DIGIT

STOH~

SIXTH DIG1T1
NO
YES,
N1:.XT DIGIT
>.

NO

e

1

LOAD LA8T
DIGIT
INCREMENT IT
wAS IT A 91

YES
NO

L.EAOING 01GIT'I

YES

NO, 0VERL.Ay
A

~

SUMP DECIMAL
!.XPUNENT AND
OVERL.AY A 1

HI NUMBER
L.ESS THAN 1 1
NO

YES

PAGE 0199 _19

OUTPUT ROUTINES

0195
0196

kJ60432
00206 065362
50207 k'3536id
~ftl21~ !{)0ftlld01O
~0211 ftl44351
50212 150001
50213 026207
50214 061360
b0215 002020
50216 026221
50217 003400
50220 071336
51tl221 064360
Oftl222 035336
~0223 044355
00224 045572
50225 0137004
50226 075460
~0227 046004
50230 006020
002J1 015426
~0232 0 6 1266
50233 002002
50234 1015454
5 02 35 064343
00236 075356
50237 1;)65362
50240 0ftl3400
50241 051336
50242 ftl26247
~0243 06 1324
50244 003000
50245 1tl71361d
50246 026261
50247 07 13 6 0

~197

50250 062001

0198
0199

50251 051422
50252 026261
50253 026303

10162
"'163
~164

k1165
0166
~167

"'16B
0169

kJ170
~171
~172

k'J173
0174
01 7 5
ftl176
IU77
0178

0179
0180
0181

01 8 2

01 8 3

0184
0185
0180
0187

0188
IU89
0190
0191

0192
0193

0194

~201tl

~021d5

LOA ,+608
L.US NMPTR
NM010 lSI NMTMP
NOP
AUB , .. 1
C~A 1,1
JMP NM010
LOA NMTMP
SSA
JMP NMOll
CeA
srA FFL.AG
NM011 LOB .+12
ISZ FfLAG
AOB .+3
ADa CHRCT
cMa,INa
STB EOPf
ADa .75
SSB
JSB OUTLN
LLlA SIGN
SZA
JSe OUTC;R
LOB ."'7
STa DIGCT
Loe NMPTR
CCA
CPA FFLAG
JMp *+5
LDA EXPON
CMA
STA NM1MP
JMP NM016
STA NMTMP
LOA LCALL
CPA NUMOT
JMP NM016
JMP NM014

0201*
0202*. O~LETE TRAILING Z~ROS
0203*
0204 512~4 061:5eO N"012 LDA
INA
50255 002004
020~
CPA
fd206 50256 051.)60
13207 50257 026265
JMP
0208 50260 ~71356
STA
~209
00261 044351 NM016 ADB
LDA
10210 50262 16a001
CpA
.,211 ~1tl203 ~50"32
JMP
0212 00264 026254
CtA
1d213 00265 003400
CPA
0214 50266 051336
21
JMP
00267
026303
"-" 5
LDA
0216 b0270 061324

COUNT ZEROS
PLUS 1
LAS}
DIGIT 01

vts

NO, ALL SlGNlfICANCE
IN SIX DIGITS?
NO
yt:::s, SET
,FIXEU, FLAG TRUE

COM~UTE

Flt:.:LD
wIDTH
SA Vt:.:
ENL,)"'Of"'f H:.Lu
MARKER
ENOUGH
ROUM?
NO
YES
SIGN?
YES, OUTPUT Il
SfT OUTPUT
DIGIT COUNTt:.:~
FIxED
FORMAT?
NO
H.S, SET

INDICATOR TO
I)ECIMAL. POINT
SfT INDICATOR fOR DECIMAL POINT
CALLEO
Fto(OM -LIST' '1
YES
NO

••*

*
D1GCT
NMTMP
.+6

DIGeT
.",1

1,1
•• 6~t:J

NM012

FFL.AG
NM014
EXPON

AT RIGHT OF
DECIMAL.
POINT?
NO
YES, DELETE ZERO
L.AST
DIGIT
01

YES
NO, flxEO
FOHMAT?
NO
yES, L.EADING

PAGE
~217

16218
k')219

020~

-19

OUTPUT ROUTINES

50271 002021
50272 k12(3)33

SSA,RSS

5~273

.

"-I7136~

1022~,*

10221** OUTPUT MANTISSA
0222*
10223 ~0274 060 4 30
16224 50275 0162001
16225 o~276 k:l6itJ432
10226 516277 015454
0227 503010 035360
16228 b0301 026276
"'229 00302 ~35356
",230 503(63 ",,66002
0231 50304 075362
10232 010305 02 6 312
0233

16234
02 35
1t)236
0237
0238
10239
0240
~241

503(66 0353621
50307 026312
5 0 310 06043"
~0311 1026314
50312 ltH362

51tl313 035362

50314 1615454

50310 035356
50316 0263",6
00317 0353;S6

JMP NM014
SlA NMTMP

NO

OI:CIMAL POINT?

y~S,

LEAOING Zt:ROS COUNTEk

S~T

••

* ,+566
LOA
RaS

LOA .+606
JIB OUT(;R
18Z NMTMP
JMP NM013

lSZ OIGe r

L.Oa NM6fA
STe NMPTR
JMP *+5
ISZ NMTMP
JMP ·+3

LOA ,+568
JMP ·+3
LOA NMPTR,l
1az NMP1R
JaB OUTeR
18Z OIGCT
JMP NM015

0242
18Z fFL.AG
16243 00320 125422
JMP NUMOT,l
0244*
",245** OUTPUT THE EXPONENT
0246*
*
,,247 !)0321 060720
LDA E
16248 50322 015454
JIB OUTeR
02 49 5 0 J2J 060427
LOA .+556
16250 00324 06!5324
LDS ExPON
16251 010325 0061020
ssa
0252 00326 007005
CMB,INB,RSS
16253 516327 060426
LOA .+53~
STB EXPON
0254 503341 075324
,,255 50331 015454
JS6 OUTCR
0256 00332 061324
LDA EXPON
10257 00333 006400
CL.B
025S ~0334 100400
01'V ,+lfd
0033b 000364
ADA .+606
\()259 00330 04 104 32
ADS ,+6108
1d26\() 00337 1644432
BTB EXPON
16261 00340 1075324
0262 00341 015454
Jse OUTCR
0263 f)0342 061324
LDA EXPON
J8B OUTCR
0264 00343 101!5454
0265 00344 125422
JMP NUMOT,I
0266·'"
••

.

OUTPUT A
DeCIMAL POINT

oUTPUT
A ltiRO

MORE LEAOLNG ZEROS?
YESNO, COUNT DECIMAL POINT
51::1
OLli1T

POINTf.~

DECIMAL POINT NEXT?
NO

YES, loOAL> IT

L.oAL> NEXT
OIGIT
OUTPUT CHARACTEH
MORE DIGITSl
YE.a

NO, f:.XPONENT1
NO

••

~267*.*

GET OIGIT TO OUTPUT

•••

OUTPUT AN IE'
OUTPUT

EXPONENT
SIGN

COMPUTE
EXPONENT'S·
10'S 01(11T
OUTPUl IT
OUTPUT
l'801(11T

0208**
**
0269.
0270. COMPUTE NEXT DECIMAL DIGIT AND RETURN "ITH IT IN (A),

PAGE 16201 *19

OUTPUt ROUTINES

0271* SUe TRACT IT OUT OF
0272*
0273 ~ld345 015J01d .'TOG
02 7 4 50346 065322
0215 5 0 J47 007004
10276 50350 012000
16277 50351 001200
021a 50352 006024
0219 50353 026351
10280
00354 010"43
0281 50355 071402
0282 50356 065322
0283 50357 007004
0284 00360 001300
1tJ285 50361 006024
0286 50362 0263610
0287 51d363 021316
0288 50364 0M§320
0289 5 0 365 0153 0 4
02 90 5 0 366 06i402
0291 50367 12 424

~--

-~

THE. NUMBER.
JSS M~V10
LOB EXP
eMB,IN8
AND HMA:iK
RAL
sSe,INB
.JMP *,,2
AND 8377
STA FOe

L.DB EXP
CMB,INB
RAH
sse, INS
JMP *,,2
XOR MANTI
LOB MA~H2
JSB NORML
L.DA FOld
JMP GETOG,I

MUL.TIPLY ISV 111)
GET EXPONENT IN (B)
AS NEGATIVt:.
RETA1N HIG~ 5 ~lrs
NORMALIZE 10 BIT 15
ROTATE INTE(;EH
INTO (A)
EXTRACT
DIGIT
ROTATE
BACK
REMOVE.
DIGIT
NORMALIZE RfMAINDER
LOAD (A) WItH DIGIT

PAGE 0202 #19
0293**
i()294***
i:J295**

",ago.
02 97*
0298.

"2ee.
id300
0301
0302
0303
id304
0305

i1'J06
0307
0308
03"'9

k'JJ10
0311
0312
0313

0J14
0315
fo3l6
0317
031tS

0319
0320

0321
0322**

OUTPUT ROUTINES

OUTPUT AN

••

INTEGE~

**.
**

WITH A POSITIVE
LEADING ZEROS,

ENTE~

5 0 370 06 0 3 4 6
50371 071374
50372 1661024

50373 071446
50374
503 7 5
5 0 370
50377
00400
50401
50402
50403
t)0404
50405
50406

002400
°7 14 7'"

101040

100400
101446
075452

051470
026407
040432

0714t'0
015454
50407 065452
504h'l 0;)5446
50411 035;)74
00412 026370
50413 060001
50414 040432
50415 015454
50416 125456

L.DA
aTA
L.OA
STA
CLA

INT~GER

,.4

DGCNT
L.OVSR
OTl

STA OT4
OUTll LSR 16
DIY OT1,1
8T8

OT3

CPA OT4
JMP OUTla
ADA ,+608

STA OT4
JIS OUTeR
OUTI2 Loa OT3
I~Z OTI
liZ DGeNT
JMP DUTIl
L.OA 1
ADA ,+608
JIB OUTCR
JMP OUTIN,1
**

IN (a).

OUTPUT IT WITHOUT

SET 011;1T
COUNTER
SfT DIVISOR
ADORESS
SUPPRESS
ZEROS
DIVIDf INTEiER BV
CURRENT DIVISOR

SAVE THE REMAIN~~H
L.EADING ZERO?
YE8
NO, TURN OFF
ZERO SUPPRESS
OUTPUT DIGIT
RETRIEVE REMAINDER
SET fOR NEXT DIVISOR
ALL. ~lVISORS USED?
NO
VES

OUTPUT
L.AST DIGIT

0323*.* SPACE FOR A COMMA
0324**
10325.
0326. MOVE TO THE NEXT FIELD UF 15 ON THE PRINT L.INE OR TO THE
0327* NEXT LINE IF THE CURRENT ONE IS lXHAUSTED,
kt32a.
L.UAU CURH~NT CHARACTER COUNT
LOB CHRCT
0329 50417 065572
SlB,RSS
ZERO?
0330 60420 006003
YES, AT START Of ZO~E
JMP E.DEL.M,I
0331 50421 12543e
NO, SU8THACT ZONE wIDTH
0332 50422 "44333
AOe .-15
0333 50423 006021
SSB,RSS
NON-NEGATlVE RESuLT?
0334 50424 02642~
JMP #EOL.M+l
YES
NO, SAVE COUNT
0335 50425 075472
STa EOL.
0336 00426 06"'412
LOA ,.40b
OUTPUT
0337 50427 015454
JSB OUTeR
A tH.ANK
lONE fULL?
03 3 d 00430 03 54 72
III EOL.
NO
t;l339 00431 "2 6 42 6
JMP
LDB CHRCT
YES,
0340 50432 065572
0341 50433 046006
ADe MM74
PAST THE
END Of LINf.?
Sle,RSS
0342 t)0434 006021
~343
50435 015426
YES
JSB OUTL.N
0344 50436 125431d
NO
JIIIP EDEL.M,I

.·3

PAGE 020J -19

OUTPUT ROUTINES

0346 ••
*.
0347... OUTPUT AN ENO~OF.LINE •••
034a ••
0349 f)0437 fd65460
L.OB EOPF
RESET
0350 f)0440 045572
AOB tHRtT
ENOIIIIOf·FIELo
STa EOPF
0351 50441 075460
MARKER
0352 513442 060375
LOA .+2JS
oUTPUT
0353 50443 0154t54
JSB OUTCR
AN X-OFF
LUA .... 158
OUTPUT A
0354 50444 060367
0355 50445 0154~4
JS6 OUTCR
CARRIAGE RE:.TURN
12160364
"'356 50446
LOA .... 128
AND A
0357 50447 015454
JS8 OUTeR
LINE FEED
JMP DUTLN,l
0358 51d450 125426
0359**
0360.·* OUTPUT A CHARACTER ***
0361**
**
0362.
0363· OUTPUT THE CHARACTER IN (AJ. NON-PRINTING CHARACT~RS vO NOT
A CARRIAGE RETURN
10364· COUNT AGAINST THE 12 CHA~ACTERS PER L1NE~
0365.
(,CONTROL O. IN A STRING U~ AN ENO.OFwLINE, FO~ EXAMPLE)
0366. REsETS THE PRINT POSITIoN TO 0,
0367.
SAVE, (;HARACTEt(
",36ti 50451 071310 #OTCR STA OCTMP
0369 !)0452 050441
CHECK foOR
CPA 8171
JMP OTCRA
HU80UT
"'370 50453 026457
AND
NON.PRINTING
0371 50454 010730
0372 50455 002002
CHARAC1EF1
SZA
0373 ~0456 035572
lSZ CHRCT
NO, COUNT IT
OTCRA EQU
0374 5111457
0375 50457 00640rcl
CL.6
R~T~lt.VE CHARACTER
LUA QCTMP
"'376 5"'460 0(;1310
CPA 1"'158
CARRIAGE RETURN1
1d377 ~0461 050367
y~S, ZERO CHARACTER COUNT
ST8 ~HRCT
0378 50462 075572
LO~ ML.INK+l
",379 50463 (064273
1d380 ~0464 044J35
A08 .-lI-INK
JS8 OUTCH,1
",3 8 1 50465 114576
JI'tP QUTCR,l
0382 50466 125454
0383*.

••

'"

10384*.*

BACKSPACE IN BUFFER

0365 ••

'386.

0381.
038a.
0389
0390
1fJ391
0392

1d393
0394

tiACKSPAC~

!)0467
5047fd
50471
!)0472
50473
50474

••
••

•••

IN BUFFER

1L160257
082004
16itfl00
030251

114500
125452

L.OA

INA

LDA 0,1

lOR BKS
Jsa S14L.P,1
JI'tP BCKSP,I

TEL.L. 2114

TU

6ACK$PAC~

PAGE

~204

0396··

0J97 •••

#19

OUTPUT ROuTiNES

FETCH NEXT SUFFER CHARACTER

039th~.

03991J

04 0(h
0401*
~402.

0403
~404

~405

0406.
0401

040S
~409

0410

0411
0412
0413
0414
0415
0416
0417
0418

0419
k:l420
0421

0422
0423
0424
0425

••

•••
••

THE NEXT CHARACTER FROM THE INPUT BUFfER 15 FETCHED, NORMAL
EXIT IS TO (P.2) WITH THE CHARACTER IN (A). BLANKS ARE SKIPPED
IF ,BLANK •• 40 OCTAL, A ,CARHIAGE RETURN' EXITS TO (P+l)
00475 060222 *GTCR LOA GTC
LOAU opeooE
00476 064267
LOB MAIN
FOR GfT CHAHACTfR
50477 006004
INB
.> TTY
5~50~ 130001
lOR 1'1
TTY # IN eITa 12.8

*

50501 006400

50502
50503
50504
50505
00506
50507

50510
50511
00512
50513
0 0 514
50515
50516
00517
50520
00521
50522
50523

174634
114500
102311
026504
102511
164640
174634
051573
026475
050367
1254S~

0640e0
040766
002021
040317
040730
035450
125450

CLB
ST8 DeLC1,l

JSS 5148C,1
SPS CH2
JMP •• 1
LIA CH2
LOB DeLC2,I
STB Dele1,1
CPA BLANK
JMP *GTCR
CPA ,+158
JMP GETeR,l
LOB "
ADA M96
SSA,RSS
ADA M32
ADA .140
ISZ GETeR
JMP GETCR,!

BLOCK
CLOCK
CALL 2114 DRIVER
WAIT FOR
RESPONSE
LOAO CHARACTER

UNBLOCK

CLOCK

BLANK?

Y~S·.lGNORE

IT

NO, CARRIAGE RETURN?
YES
COpy CHAR TO B
LOWER CASE.
MAKE. INTO UPPE.R CASE
NO.-EXIT
TO (p+a)

PAGf
0427*

~428**

0429.
~430

0431
0432
0433
0434
0435
~4J6

0437
0438
~439

~205

*
*

.1~

LIBRAHy FUNC1IONS

EXECUTE T.S(X)

50524
50525
B0526
B0527
50530
50531
50532
50533
50534
50535
50536

015442
060274
006400
075472
065756
006002
026537
066005
044~00

006021
026551
003004
041572
002021
026552
071436

*
*
*

ElAB

JaB .IENT
LOA INF
CLB
ST~

EOL
L.OB FFL.G
SZB
JMP ETA62
LOB MM72
AOB A
ssa,RSS
JMP ETAS4.1
ETABa CMA,INA
ADA CHRCT
SSA,RSS
JMP ElAb4
STA LBTMP
ETAB1 LOA ,+40B
JSB OUTCR

0440
0441 5~5J7
0442 50540
0443 50541
0444 50542
0445 50543
0446 50544 ~60412
0447 50545 ~15454
0448 50546 035436
0449 50547 026544
0450 50550 002001
0451 50551 015426
0452 50552 061036 ETAB4
0453 5 0 553 124560
0454*
•
0455** EXECUTE 8PA(X) *
0456 50554 015442 ESPA
0457 50555 060274
0458 50556 006400
0459 50557 075412
0 4 60 50560 002003
0461 50561 026607
0462 50562 002020
0463 50563 ~26607
0464 50564 003004
0465 50565 071776
0466 50566 065755
0467 50567 006002
0468 50570 026~77
0469 50571 040440
0470 50572 065572
0471 50573 007004
0472 50574 0~0e01
0473 50575 002020
0474 50576 026606
0475 50577 061513 ESPA1
0476 50600 015454
0477 50601 035776
0478 ~06~2 026577
0479- b0603 003400
0480 50604 071776
~481
506~5 002001

INTEGERIZE ARGUMtNT
ARG :. 32767
SET FLAG TO
'TAS OCCURRED'
GET FORMAT FLAG
IN FORMATTER 1
YES

YES, GO TO NEXT I..INE
NO
ANY I:SL.A~KS
REIilUIREO?
NO

yEs

lSZ LBTMP

OUTPUT
A bL.ANK
OONt:.1

JMP ETAB1

NO

RSg
JSB OUTLN
L.OA 8IT15

YES
SO OPCHK oOtSN'T BARf

JMP fRET,l

Jse .It-NT
ST~ E.OI..
SZA,RSS

INTtGERIZE ~RGUMENT
ARG :. 327~7
SET fUNCT10N FL.AG
TO EXECUTED
IS IT ZERO?

JMP ESPA4

yES

SSA

NO, NEGATIVE?
YES
NO

LOA INF
CLB

JMP ESPA4

CMA,lNA
srA HEpCT

OUTplJl

1..08 FFLG

sze

JMP ESPA1
AUA ,72

NO

LOB CHHCT

SPACING PAST
E.NO OF LINE ?

CMB,INS
AOA 1

SSA
JMP ESPA4.l
LOA BL.A~K

JS8 OUTCR
lSZ REPCT
JMP ESPAl
CCA
srA HEPCT

RSS

R~StT

REPel

PAGE 0206 #19

L.IBRARY FUNCTIONS

0482 fj0606 015426
0483 ~0607 06t~3() E5~A4
t(J484 fj06t0 1 2 4560
0485.
*
0486*
1/)487 •• EXECUTE L.IN(X)
*
048th
0489 b0611 015442 EL.IN
0490 fj 0 612 060444
04 9 1 b0613 006401d
0492 50614 075472
0493 50615 002021
rJ494 50616 026633
049~
50617 040444
0496 5062'" 002020
0497 ~0621 002400
049d 00622 040762
0499 50623 071776
0000 50624 060364
16501 50625 015454
"'002 50626 035776
0503 50627 026624
1d504 50630 003400
0505 50631 fd71776
0506 50632 026657
fd507 00633 040762 t;L.INl
0508 50634 002"21
0509 50635 002400
0510 50636 040444
0511 50637 0.,2002
0512 50640 0266510
13513 50641 060367
1d5l4 50642 015454
0515 fj0643 002400
0516 00644 015454
0517 0121645 002400
0518 5id646 071572
0519 50647 026657
1d520 5",650 003004 E-.L.IN3
0521 5121651 071776
1d022 50652 015536
0 5 23 50653 035776
0524 50654 026652
1d525 50655 12103400
0526 00656 071776
0527 5 0 657 061°36 ELIN2
0528 51216610 124560

JSB OUlL.N
LOA IHT15
JMP FRET,l

SO OPCHK DOESN'T BARf

.,
.,

JSB ,lENT
L.OA 840kJ
CL.B
STt5 EOL.
SSA,R58
JMP EL.iNl
AOA 6400
SSA
CL.A
ADA M256
8TA REPCT
LOA ,+12B
JSB OUTeR
taz REPCT
JMP •• 3
CtA
STA REPeT
JMP EL.IN2
AOA M256
SSA,RS8
eLA
AOA 84130
SZA
JMP EL.IN3
L.DA .+158
JSB OUTCR

INTEGERIZE ARGUMENT
SET FUNCT10N FL.AG
TO EXECUTED
NO, NEGATIvE ?
NO

REPel L.INEFEEO$

REINI1IALIZt. REPeT

ytS

ARGUMENT > 2 56 '1

CL.A

JSB OUTeR
CLA
STA CHRCT
JMP ELIN2
CMA,INA
STA HEpCT
JSB OUT~L.
lSZ REPCT
JHP ... 2
ceA
STA REP'T

LOA BIT15
JMP FRET,!

YES

OUTpUT
CR.l,.f'S

RESET

REpeT
SO OPCHK UOESN'T BARt'

PA~~

0207

#2~

0002* •
~003.*

COMPUT~

fUNCTIONS

~lBRARV

ABS(X)

••

0004* •
*
0005 50 66 1 ~02e2~ EASS
0006 50662 01537~
0~07
50663 124560
0006* ..
0009** COMPUTE INT(X) *

011"*
0011*
0012*
0015

0016
0017
001d

ENTER ~IT~ NUMBER IN CA) AND (8). EXIT WITH FLOATING
POINT FORM OF ENTlER IN CA) AND (8),
00664 075436
00665 015416
0 0 666 026675
50667
b0670
50671
50672
b0673

EINT

STU
JSB
JMP
STe

0754;56

064411
075322
065436
~020
0021
015306
0022 50674 124560
0023 b0675 061260 EINTI
0024 b~676 065 4 36
0025 50677 124560
0026. ..
0027** EXECUTE TIM (X) *
kHU9

002a.

0029
0030
0031
0032

0033
0034
0035

0036
11'037
Vj03d
0039
0040
11)041
0042
1.1043

•
00700

b0701
50702
b0703
t)0704

50705
50706
0071ti7
00710

50711
~0712
~1.1713

0045
0046
0047

0048
01ti49
0050
0051
0052

0i'153

015411 6
115161
id02002
115161
060001
010355
050001
002001
115161
042737
124000
06~202

00714 040704
~0716

L.OB

STB
LOB
JSB
JMP
LOA
LDB
JMP

L.IHMP

IFIX

fINTl
LBTMP
,+:51
ExP
LBTMP
,PACK
FRET,I
TEMP6
Lt;TMP
FRt.T,l

SAVE (B)
TAKE ENTlER
ALL SIGNIFICANCE IN MANTISSA
SAVf:, (8)
CORRECT FOR
BINARy POINT 8lAS
RETHIEvE (6;
NORMAL.IZE AND PACK
RETRIEVe.
NUMBER

•

00715 006400
~0717

0044

ARGUMENT NEGATIVE?
YES, NEGATE IT
NO

*

1113*
0014

5SA
JSa ARINV
JMP FRET,l

100400
000456

50721t1 1d267J5
50721 ~60201
50722 0~6401O
00723 1004010
~0724 00l/1402
5 0 7 2 5 06111001
50726 026735
50727 060201
50730 006~00
50731 100400
50732 010040_
50733 002001

ETIM * JSts
JSB
SZA
JSB
LOA
AND
CPA
RSS

JSB

AUA

JMp
E:TIM0 LOA
AUA
Cl..B

IFIX
RE~~S+4J,I

RERRS+4J,I ILLEGAL ARGUMENT
1
IS ARGUMENT
,+3
<-3 AND
1

>-0 1

YES
RERRS+43,1 NO •• ILLEGAL ARGUMENT
DTMTB
6HANCH TO
0,1
APPHOpRIATE
DATIM+1
• Of 100 Ms
DJ6K
UNITS

01V

JMP ETIM3+1
ETIM1 LOA DATIM
CL.B
01'1 ,+24

LOA 1
JMP ETIM3+1
ETIM2 LOA OATIM
CLB
01'1 ,+24
RSS

INTEGERIZE ARGUMENT
ILLEGAL ARGUMENT

CONVEi;RT

TO MINUTES

t10URS OF YEAR
CONvt:rn

TU DAVS
REMAINDER IS HOUR OF DAV
HOURS Of' YEAR
CONVERT
TO DAYS

PAGE
0054
fr:I 0 55
0fr:156
kl057
0058
0059
0060
0061

~208

50734
5 0735
50736
50737
50740
50741
50742
50743

.2~

LIBRARY FUNCTIONS

060200
015 3 "'6
124560
150740
fr:I5071J
050721
050727
fr:I507J4

0062* •

ErlM3 LOA yEAR
J~B FLOAT
JMP FRET,I
DTMTS Ot;F .+1,1
DEF ElIM0
OEF ETIMl
OEF ETIM2
OfF ETIMJ

Gf't yc.AR
CONVERT TO FL.OATING POINT
EXIT WITH RESULT IN (A) AND (8)

...

kl06J.. COMPUTE RNO(X) ...
...
"06.. ...
0"65.
0066* THE RANDOM NUMBtR FUNCTION COMPUTES A kANDOM NUM8ER FROM r~E
0067. fORMULAS I
006th'
X(N).A*X(N91)+C(MOD 2t30)
006P*
0070.
RND -X/2fJ0 MIN (1-2t.23)
1t."071 *
ERND EQU •
0072 50744
SSA,RSS
POSITIVE AR~UMENT?
0073 50744 002021
0074 t)0745 026752
YES, USE PREVIOUS VAL.UE
JMP ERNOI
NO, MAKE A
RSL,CL.E,ERB
0075 616746 005265
fL.A
"'076 516747 001600
0077 50750 071566
STA RNOXI
A NEW SEEO
0078 616751 ~75567
8TB RNDX2
ERNDl EQU ...
00 7 P 50752
0080 50752 06 1566
COMPUTE FIRST
LOA RNDX1
CROSS PRODUCT,
MPY RNDA2
0081 ~H:'l753 100200
50754 05101.
0082 50755 071566
SAVE (ONLY NEED lOW ORDER PART)
STA RNOXl
0083 00756 061567
COMPUTE 2NO
LDA RNDX2
MPY RNOA!
CRO~S PRODUCT.
0084 60757 Ifr:1 0 20 0
0085
1d086
fr:Ild87
0088
0089
0090
0091
0092
0093
00 9 •
0",95
0096
00 97
0098
0099

00760
50761
00762
6076.)

",bUH3
041566

k143015
071566

00764 002500
50 7 65 °7 1322
00766 ~61551
50767 1002(!j0
50771d 051014
00771 043016
5 0 77 2 002040
00713 00600·
6fr:1774 001265
5 0 775 071567
00 77 6 005 6 00
00777 045566
51000 006665

fd100
"'101
01°2

51001 075566

0103

51004 V115306
51kl05 05435.
51006 002001

fd104
0105

01002 001200
0 100 3 101100

AOA RNDXl
ADA RNOCI
STA RNDX1
CL.A,CL.E
STA EXP
L.OA RNDX2
MPY RNDA2

ADD IN FIRST.
ADO IN HI~H PART OF C,
SAVE TOTAL.. (THIS IS HIGH PART),
SET fXP,,0.

ADA RNDC2
SEl
INB
RAL.,CLE,ERA
STA RNDX2
EL.8
ADS RNOXI
EL.8,CLE,ERS
8T8 RNDX1
RAL
SWP
JSS ,PAt;K
CPS .+2
RSS

ADD IN L.OW PART OF C,
ADD ANY CARRY INTO
B,
E.A(1 5 ),A(1 5 )·0,
SAVE LOW ORDER RESUL.T,
SHIFT HIGH ORD~R PART & AOD IN
PREVIOUS TOTAL,
CL.EAR BIT 10 AND STORE,

COMPUTE LOW OROER PRODUCT,

SHIFT A ADJACtNT TO 8,
EXCHANGE REGISTERS AND
PACK.
rEST FOR REiUL.T-l.0

PAGE
0106
0107
1d10~

0109
itll0.
0111.
~112

~2~9

#20

fS1001 124560
~1011d 0614274
bhH! 064762
b1012 124560
51013
51014
51015
01016

002722
007335
016441
007701

0113
0114
0115
0116. '*
0117.* COMPUTE
0118* '*

JMP
LOA
LUS
JMP

,
RNOA1'DEC
RNI)A2 DEC
RNDCl OCT
RNuC2 OCT

8~N(X)

IUI9.

01200121·
0122*
0123.
10124
0125
1d126
0127

FUNCTIONS

~le~ARY

.

*

0137*
1013S*
0139.
0140.
0141.
0142.
0143.
Wl4t4.
01 45
f6146
0147
01 4 a
0149
0150
~151

0152
0153
10154
0155
0156
0157
0158
0159

0160

EXl' IF NOT,.

14i0

A DIV 2'15
A MOl,) 21'15
c: 01V 2'15
C MOO 2'15

Sf T RESUI. T

'f a

1.. 2t-23

FRET,l

3805

16441
7701

*

~ITH ARGUMENT IN (A) AND (8),
If AR~l~ENT IS
NEGATIVE RETURN .1,0, IF ZERO RETURN 0, IF POSITIVE

ENTER

RETURN 1.0 •

51017 0106400 ESGN
51020 002003
b1021 124560
51022 002021
Ir'128
01023 064354
0129 51024 061036
1d13ftl ti1025 006002
0131 ti1026 001300
IU32 fS1027 124560
0133 • •
•
0134.. COMPUTE TYP(X)
*
01J~h •
tUJ6.

FRET,!
INF
M256

cl.e

CLEAR LOW PART Of NUMBER

1.08 ,+2
LOA FI.G6T

ZERO?
yES, RETURN Ii'
POSITIVf.?
YES, LOAO EXPONENT FOR +1
NO, LOAD HIGH PART Of .. 1
wAS ARGUMENT POSITIVE?
yES, SET RE~UI.T TO .1
NO

SZA,RSS
JMP FRET,l
SSA,RSS

SZB
RAR

JMP FRET,l

*

UPON ENTRY CA) ANO,(8) HOLD A fILE NUMBER IN fLOATING POINT

FILE 0 REFERsro THE S, If THl fiLE
NUMBER IS NEGATIVt RETURN 1.0, 2,~, 3,1d, OR 4,0 If THE NEXT
lTEM IN THE FILE IS A NUMBER, STRING, ~MO.OfeflLE, OR tND.
of-RfedRO RESptCTIVELY, IF THE FILE NUMBER IS POSITIV~ RETURN
WITH THE VALUE CORRESPONOING TU THE FIRST IT~M FOUND uf ONE
OF THE FIRST THREE TYPES,
FOR~,

ti 10J0 0754 3 6
OUll1 065234
01032
fS1033
51034
51035
51036
51037
fS1040
51~41

51042
fS1043
51044
ti1045
ti1046
01047

075645
002003
027064
007400
002020
00641dif}
075653
065436
002020
015371i;1
0153.1f2
115151
075 2 34
061234

ETYP

sfe LeTMP

LOB FILE.
ST~ PINTG
SZA,RSS
JMP ETyP3
eee
SSA

cL.a

sr8 EORFL.

1.08 LBTMP

SAVE (e)
SAVE VALuE

OF FILE.
'DATA' fILE?

yES
NO, IGNORE
ENUeOf"'RECORDS
UNLESS ARGUMENT
Is NEGATIvE
RETHlt.Vt (e~

S8A
TAKE ABSOL.UtE VALUE
JSB ARINV
OF ARGUMENT
15.811 INTEGER?
JSB SBflX
JSB RERRS.35,1 NO
STe FlI.E*
YES
l..DA FILE.
vAL.IUATE

PAGE 0211d #2fd
10161
0162
0163
0164
0165
0166
0167
0168
0169
0170
0171
0172
0173
0174
"'175
0176
0177
0178
0179
01 8 0

~105fc)

01051
51052
51053
01054
51055
01056
51057
51060
01061
51062
51063
51064
51065
51066
51067
51070
51071
51072
51073

LIBRARY FI.JNC;TIONS

064350
015511d
015514
065645
075234
fc)15346
124~60

060J55
065244
055575
1t!l27053
~15360

003400
051262
027057
166244
12102404
0t:16a21
060354
02 7 1353

LDB •• 2

JaB
JIB
ETyPl L06
STB
JIB
JMP
I.DA
ETYP2

1..06

CPS
JMP

JIB

RQSTR
GTTYP
PINTG
FILE.
FLOAT
FRET,l
.+:$
NXTOT
SYMT8
ETYPI
SETOP

ETyp3 ceA
CpA DCCNT
JMP ETYP2
LOB NXToT,l

CI.A,INA

sse,RSS
LOA .+2
JMP ETYPI

FILE
GET T"PE
RESTORE
FILE*
RETURN TYPE IN
FLOATING POINT FORM
OUT .. Ofi.OATA
CONDITION1
YES, CA) • J
NO, SEEK NEXT 
MORE DATA IN
CU~RENT STATEMENT?
NO
YES, LOAp TYPE WORD
SET NUMBER
NUM8ER?
NO, SET fOR STRING

pAGE 0211 tlI21d
16182**
IiH83**"
14184*.
~le5

rU86

IU87
kU8fj
0189
0190
'U 9 1
01i2
liH9J
0194
0195
rrn 96

id197
019t3
0199
kS200
0201
~202

16203
02id4
",205
0206
kS207
020fj
0209
0210
0211
0212
id213
10214
0215
1tl216
~217
02U~

01((.174
51075
5Ul76
51077
51100
51101
011~2

51103
01 hl4
b1105
51106
51U)7
b1110
bl111
51112
51113
b1114
b 1 115
bl110
bl117
51120
51121
51122
51123
01124
51125
51126
b1121
51130
b11J!
b1132
bl1J3
51134
b1135
51136
01137
0114 0
51141
51142
51143
51144
51145
01146

.,221··
0222 ....
ftl22J.*
.,224*
~225*

0226*
0227*

CUMPUTE

L.XBRAHY FUNCTIONS

CHE~YSHEV{X)

~15406

_C;HES JSB

OEf K2
03T X2TMP

051374
104400
kHH632
165440
07537b

10420e
100001
10440rJ
001640
002400
~716J6

071637
035376
035376
1613/6

002003
027137
1042100
001636

03T DTMP

DlMP " COEff(N)

li

N

II

"

~

N-1

ceNl

II

~1

YES
NO

A" ~

OLD DTMP
OST STMP

6

II

IJ

D

II

~OEFF(N}.A+~.X2

JaB .FMP

015~06

10420~

POINTER TO COEFfICIENT TAt;Lt.

DST ATMP

id01634
1kS421616
001640
104400
001636

X2TMP • X*2

l.OS ,C;HEB,I
STB CTMP
DLD 1,1

CLoA
STA BTMP
SlA STMP+l
CHEBl ISZ CTMP
ISZ elMP
LOA CTMp,1
SZA,HSS
JMP CI"fEli2
Dl.D BTMP

10440~

001632
1d15404
001634
015402
101370
104400
IrHH640
027111

**
**
.FMp
***

OEF
JSB
OEF
JS6

X2TMP
,f"S6
ATMP
,FAD
Ot.F CTMp,!
DST DTfWlP

JMP CHEtH
CHES2 DI,.D DTMi'l

001640
0154"4
001~34

015406
kHura40
035440
125440

JSB .fSS
DfF AlMP
JSB .FMP
Ol:.F HAl.f
lSZ ,CHE~
JMP ,CHES,l

ANS

II

(D-A)/2

fl.

1..1~RARY

ENTU.R

***
**

ENTER WITH NUMdER IN tA) AND (6), IF EXPONENT :It 14
THEN EXl. TO (P+1), ELSE EXlT TO (P.2) WITH THE
ENTlER of THE ARGUMENT IN (Al,

PAGE 0212 *20

LIBRAHY FUNCTIONS

ftJ228*
022 9 511 04 7 10710430 #IENT
0230 bU50 06 000 1
0231 51151 010443
1£1232 ~1152 000033
10233 ts 11 ~3 1027157
id2304 b1154 04 0 ,3)3
0235 01155 002021
10236 51156 125442
1d237 b1157 0354042 IENT1
10238 51160 061436
10239 tsllt)1 "15416
102040 01162 1000000
02041 51163 060001
02042 511604 125442
02043**
102044*** fLOAT AN INTEGER
f624~.*

0246*

0249.

10251
10252

1025.)
102504

15Z ,lENT

LOA LBTMP
IFIX
NOP
LDA 1
JMP ,IENT,I
**
***
**

Jaa

ENTER WITH INTEGER IN (Al,
EQUIVALENT IN (A) AND (8),

1£12047.
10248.
102 5 0

STA L8TMP
LOA 1
ANO B377
SLA,RAR
JMP IENTt
ADA ,-15
SSA,RSS
JMP .IENT,l

5 1 165 06 43 71

51167 006400
51170 lH5 30 6
51171 125340

EXTRAf,T
EXPONENT
NEGAT1VE1

YES
NO, LESS THAN
OR EQUA"- TO 141
NO

yES
RESTORE CA)
TAKE fNTltR

L.OAI) INTEGER
INTO (Al

EXIT WITH FLOATING POINT

LOB ,+15
STB lXP
CLB
JIB ,PACK
JMP FL.OAT,!

b1166 1076 322

SAVE (A)

CORRECT 81AS
OF' lUNARY POINT
ZERU LOW MANTISSA
NORMALIZE AND PACK

,,256*.
**
10257*** MULTIPL.Y BY A PO~ER OF 2 ***
0258**
**
.,259*
02613* ENTER WITH NUMBER IN CA) AND (8), AUGMENT EXPUNENl
0261· BY THE VALUE POINTED TO BY (P.1) ANO EXIT TO (P.2),
0262. NO CHECK ON EXPONENT UNOERf"-O~ OR OVERFLOW,
0263*
ARGUMENT ZER01
10 2 6 4 0 11 7 2 002003 #PWR2 SlA,RSS
10 265 51173 °272 0 6
YES, RETURN 0
JMP PWRaA
srA X2TMP
NO, SAVE HIGH PART Of MANTISSA
0266 511 7 4 07 1 6 32
0267 51175 015414
UNpACK LOW pART Of NUMBER
JSS ,FLUN
0268 01176 075633
SAVE LOW MANTIsSA
ST8 X2r MP +1
COMPUTE NE:,W
0269 51177 165444
LOB ,PWR2,I
EXPONENT
0270 512010 140"'01
ADA 1,1
0271 51201 001200
POSITION
RAL
ANU MASK IT
ANO B377
0272 51202 010443
0273 51203 070001
COMpUTE NE~ L.OW
STA 1
AOB X2TMP+l
0274 01204 045633
PAfH OF NUM~ER
LOA x2TMP
0275 51205 061632
RETRIEVE HIGH MANTISSA
0276 512106 0354.4 PWR2A liZ • PWR 2
JMP ,PW~2,I
0277 51207 1254044
027th

0279**

*

COMPUTE COS(X)

0280* •
0281 01210

0154~2

**

•
Eeos

JSB ,FAD

PAGE: 0213 #20

lIBRARY FUNCTIONS

0282 01211 051476
0283", '"
~284.'"
COMPU Tf: SIN O() *
0285.
'"
0286 01212
0154136 ESIN*
0287 01213 051262
028~
~1214 11644160
01215 01"1624
0289 01216 ~15402
0290 01217 1d5137~
0291 01220 015444
02P2 01221 000350
0293 51222 015442
0294 01223 115145
0295 01224 0153-HI
0296 01225 01541216
0297 01226 051264
029~
01227 01~402
121299 0123(4 12101624
0300 01231 104401d
01232 001624
0301 b12jJ 015404
1631212 01234 051372
1d303 01235 0020216
0304 fS12J6 027245
",J0f)
01237 104200
b12416 1!'51J74
0306 01241 015404
0307 01·242 001624
030~
01243 1044016
01244 eliH62~
030 9 01245 1"'''200 ESI NI
012 4 6 001624
0310 01247 015406
0311 b125e ""'1624
0312 01251 015444
0313 01252 000353
0314 51253 015404
0315 01254 061312
0316 01255 010441C'l
0317 51256 051266
"318 01257 015406
0319 01260 00162.rt
032'" ~1261 124560
0321.
0322 01262 05it574 TOPI
~1263 1410tU'
MM4
0
0323 012 64
1°
"''''''
01265 000004
0324 01266 047605 COEf2
01267 072733
0325 5127111 134143
01271 lld"701
0326 01272 045261
01273 15736e

Ot:F PI8Y2

SlNCX+P~/2)

•
JaB ,FMp
OfF TOPl
OST XTf.MP

X • a-X/PI

JSS ,FAIJ
OfF Kl
JS8 ,PWR2

OEF ,-2

JSB
JSB
JSB
JSB

OEF

JSB
OEF
CST

,lENT
RERRS+31,1 EXPONENT EXCfEIJS 14
FLOAT
,FMp
MM4
,FAD
XTEMP
XTEMp
X • Xw4",ENTIER«(X+l)/4)

JaB ,Fsa
OfF Kl
SSA

JMP fSINl
Oll) K2

JaB ,FS6
OfF xrfMP
OST XTEMP

X~11

YES

NO

X • 2.x

OL.D XTEMP
JSB
OEF
J5a
OfF
Jsa
OfF
JSt;
Off
JSB
OfF
JMP

,FMP
XTEMp
,PWR2
,+1
,FS6

Kl
,CHEa
CoEF2
,FMP
xTEMP
FRfT,l

ANS • x·Cl1 fiS VC2*Xt2 -1)

DEC .636619772
DEC -4,
OE;C

1.1 8496 Ew6

Dt::C -1.J65815t._4
DEC 9. 118f1)I6E-3

2/PI

PAGE "'214 #20

LIB~ARY

FUNCTIONS

0327

51274 133371
51275 "'14777
0326 51276 05£1656
51277 107004
1032 9 013010 011100010
033fh •
0331** COMt-JUTE TAN(X)

16332.

13333
"'334
10335
0336
13337
10336
0339
13340
0341
13342
0343
13344
0345
0346
",347
0J4ij
0349
0350
0351
0352
"'353
0354
0355
",356
ki357
0356
0359
0360
0361
0362
10363
0364
0365
ki366
raJ67
036tJ
0J69
0370
0371
0372
0373

•

013131
01302
01J03
51304
51305
513136
513",7
o13h1
51311
51312
51313
51314
51310
51316
51317
01320
51321
b1322
51323
51324
51325
51326
51327
b13J0
51331
51332
51333
51334
51335
51336
51337
51340
51341
51342
!H34J
51344
51345
51346
~1347

51350
51351
5 1352
51353
51354
51355
01356
51357

01~4a6

1651370

10 4 400
001624
015402
0fHJ72
1615444
000350
1,:115442
115145
1315346
015370
015444
000354
015402
13131624
104400
"'01624
015404
"'51J72
071436
1302020
027362
104200
05137.
015404
1301624
104400

*
*
ETAN*

DEC -,2852615692
Ot:C 2.5525579248
OCT 0

JaB ,FMP

OEF FOPI
JSB
OfF
JSB
OEF
JSB
JSB
J5B
Jae
JaB
OEF
JaB

,FAO

Kl

.PWR2

,-2

.IENT
~ERRS+Jl,l

FLOAT
ARINV
,PWR2

.+2

,FAO

DEf xTfMP

DST XTEMp

SSA

JMP ETAN2

OLe

K2

JSB .FSB
OfF XTEMP
ETAN1 oaT YTiMP

I

X.4.ENTIER((X+l)/4)

XCI?
YES
NO

Y " 2-X

JSB .FMP
OEF YTEMP
JSB .FMP
Off K2
JSS .FSB

OfF Kl

.CHES
COEF0
.FMp
YTEMp
'(TEMP

10440~

JSB
OEF
JSB
DfF
DST

001626
1361436

LOA LBTMP

1002820

SSA

02736f)
104201cl
051372

JMP ETANJ
1)1.0 K~

~15410

X

J8B .F8B
DfF Kl
StA LBTMP

~01626

015406
001626
015406
051374
015404
V)51J72
It'15440
051376
01540t)
001626

4/Pl

D5T XTEMP

JIB ,FDV

Y•
XCi1
YES

NO

Y.CHE~Y(2*Yt2

'" 1)

I

PAGE
0374
"'375
0376
0377
037ij
0379

038".
0381

0382
03 8 3
0384
0385

~215

b1370
51371
51372
51373
b13 7 4
51375
51376
01377
51400

51402
5141d3
"'J87 51404
51405
1138ij 5141d6
5141cl7
0389 51410
51411
0390 51412
51413
1d391 51414
51415
1d392 51416
0393* *
"'386

0404
1d405
1cl406
0407
0408
0409
0410
1d4tl
0412

050514
141002
040000
00001cl2
040000
000004
'176'161
075J15
'166034
17672f)
057035
030335
'150155
114745
04352J
052355
076112
",()6763
066520
163773
070512
014002

YTEMP
JMP FRET,1
ETAN2 01...0 XTEMP

ANS • l/Y

JMP ElAN1
ETAN3 DL.O YTEMP

Y" X

Ot:.F

JMP FRET,I
FOP!

OEC

K1

DEC It

1(2

DEC 2,

COEf0 DEC

0"'01010

02746J
104200

~143tl

~~1312

51431
51432
51433
b1434
51435
514J6
51437
51440
51441
!:)1442

015410
001624
104400
001630
015406
001630
ilJ15406
051374
015404
1d51J72

1.273239~45

1.4458l:~8

Dt.C 2,804816E",,6
DEC 3,906037£ .. 5
DEC 5.44170J8E ... 4
DtC 7.b86H11578E .. 3
DEC • h,675392857
DtC 1,77v)1474227
OCT

kHHd000

10 4400
001624
11 6 "'001
010443
0714Jtj
"02002

ANS • Y

I.)f.C 2,1I11376bE",,1

COMPUTE ATN(X)

0395* *
03 9 6 51417
51420
ilJ397 51 4 21
0398 51422
0399 51423
0400 51424
"'401 51425
0402 ~1426
0403 51427

FUNCTIONS

t.lBRA~Y

01360 tH01626
~1361 124560
51362 104200
b1363 001624
51364 027334
~1365 Hl4200
ts1J66 01U026
b1367 124560

ti14~1

~J94·*

.20

*..

EATN*

"

DST XTEMP
LOA
AND
srA
SZA
SL.A
JMP
OL.D

1
6377

LSTMP
A8S(X)
EATN2

NO

K1

YES

JSB .fDV
OEF XTEMp
EATNl OST UTEMP
JS8
OfF
JSb
OEf
JSt;

.fMP
UTEMP
,FMp

K2

,fSB

OEf' K1

U " l/X

'/I

11

PAGE 0216 #20
0413
0414
~415

0416
0417
04 18
041~

0420
0421
0422
0423
0424
~425

0426
0427
0426
0429
0430
f()431

51443
51444
01445
51446
51447
51450
51451
51452
51453
51454
51455
51456
51457
51461iJ
51461
51462
01463
51464
51465
51466
51467
51470
01471
51472
51473
51474
51475

LIBRARy FUNCTIONS

015440
051502
015406
0016J0
104400
001626

JSB ,tHEB
OEF COEfl
JSe .FMP
OfF UTEMP

k'614JO

LOA L6TMP

0020.02
000010
027 466
061624
002 0 2 0
027471
10420"
051476
027473
104200
001624
02743;'
104200
001626
12456'"
10420'"
aSUS"0
015404
001626
124560

OST YTEMp

Y•

U*CHE~Y(2*U'2

8ZA

SL.A
JP1P EATNJ
LOA XTEMP
SSA
JMP EATN4
OL.D PI8V2

ABS(X)
NO
YES

~

11

X<0'1

YES
NO

JMP EATN4+2
EATN2 DLO XTEMP
JMP EATN1
EATNJ OLD YTEMP

U .. X

JMP FRET,I
EArN4 OL.O MP2

ANS , Y

0432
0433
0434
16435.
0436 51476 002207 PlaY2
51477 166402
0437 51500 115570 MP2
51501 fiU 1402
f()438 51502 106671 COEFl
51503 102315
0439 51504 1.156335
01505 156323
0440 51506 131601
51507 137731
0441 51510 1340033
!;jlS11 035737
13442 51512 11101J
51513 123J4J
0443 !)1514 060542
01515 1O~0J51
0444 01516 122573
01517 062757
0445 ~1520 055471
01021 10136ti
0446 51522 111620
51523 147373
13447 51524 fc170320
51525 155"'02
0446 51526 13k)01300
0449* *
•
Ja451d·· COMPUTE EXPCXl *

J88 ,FeB
DEF YTEMP
JMP FRET,l

ANS • • Pl/2·Y

DEC 1,5707963268

PI/2

OiC .. 1.5707963268

-PI/2

DEC ",1.33034E"a

DEc 8,64asaE.8
DEC .. 56,99186E",,8

DEC 3,821037E",6
DEt: .. 2,6210196E.5
DEC 1,8574297E-4
DEC ",l,J61195t?04E",,3
DEC .011135S4206
DfC "".11358929245
DEC 1,762747174
OCT

~

.1)

PAGE. 0217 #20

LIBRARY FUNCTIONS

"'451* *
0452 01527 "'15434
rd453 ~15J0 12456~
0454 51531 015406
0455 01532 051651
0456 ~1533 104400
ti15J4 001624
16457 51535 fd15442
16458 tH5J6 027630
0459 51537 0714Jo
0460 51540 015346
04 6 1 01541 104400
51542 001626
0462 5154 3 0614 3 0
046J ~1544 04tJ637
046 4 f) 15 4 5 002021
0465 51546 027630
0466 01547 "'436416
0467 51550 002020
rd468 51551 027625
0469 51552 104200
51553 kHU624
16470 51554 015404
0471 51555 001626
0472 51556 I1tl4400
51557 0211624
0473 51560 fc1l5406
0474 51561 01U624
0475 51562 104400
51563· 001630
0476 51564 015~02
0477 51565 ",51641
0478 51566 1044160
~1567 klld1626
0479 51571a 104200
51571 051643
0480 51572 01b41rd
0481 01513 001626
0482 51574 104400
51575 001626
0483 :)1576 10420iU
51577 kl51645
0484 f)16~0 015406
0485 51601 0fcH630
0486 51602 015402
0487 ~1603 051647
121488 51604 1211541214
0489 51605 001624
049121 b161D6 015404
0491 51607 .,1211620
0492 51610 104400
51611 kllcH626
0 49 3 51612 10421210
51613 0016~4
0494 51614 015410

•

ElXP

#t.XP

JSB
JMP
JSB
DE.F
DST

,EX!"
FRET,l
,FMP
L.2E.
XTEMP

JSB
JMP
Sf A
JSB

,lENT

X .. ARG*L.OG2et)

.EXP2
LtHMP
FLOAT
OST YTEMP

y

LOA LBTMP
ADA M124
SSA,RS5
JMP .E.XP2
AOA ,244
5SA
JMP ,EXPI
OLD XTEMP

X >- 1241
yES
NO
X < ·121r11
yES
NO

JSB ,fse
OEF YTfMP
OST XTEMP

X

JSB .FMp
OEF xrE.MP
DST UTEMP

U • Xt2

!II

!!I

ENTIER';X)

X"'ENTIEReX)

JSB ,FAP

OfF AAAA
OST YH:.MP

y •

Xt2+AAA~

DLO aBBS
JsB • f"0 V
DEF YTf·MP
()ST YTEMP

OL.O

Y • 888b/Y

ecce

Js6 ,FMp
OEF urEMP
JSB ,FAD
oEF 0000
JSB ,FSS
DtF xTEMP
JSB ,FS8

DfF yTEMP

DST YTEMp
0L.0 XTEMP
JS8 ,FDV

Y,

~X+OoDO+CCCC*xt2.Y

PAGE 0218
0495
,,496
0497
0498
0499
0500
0501
0502
0503
0504
0505
0506
0507
0508
1d509
0510
Ii!H;Hl

5161~

b1 6 16
51617
51620
51621
51622
51623
51624
51625
51626
51627
01630
51631
51632
!:i1633
51634
51635
51636

#2~

LlaHARY fUNCTIONS

Off YTEMP

001626
W!!15402
001040
035436

JSB ,FAO
OEf HAI..F

ISZ L6TMP
NOP
JSB ,PWR2
OfF I..STMP
JMP ,fXP,l

000000
0154~4

001430
125434
002400
006400
125434
061436
002020
027625
115213
060274
064350
125434

0512
0513*
0514 51637 17760 4
0515 51640 000364
0516 51641 053552
51642 160416
0517 51643 046477
b1644 1d16424
0518 51645 043372
51646 ,,,70371
.:1519 51647 047643
51650 1f)01410
0520 01651 056125
51652 ~170(/J2

,EXP1 CL.A

AN$ , C0,5+X/Y>*2tENTIERCARG*LE)

CL8

ANS ,
LARGE ARGUMENT
NEGATIVE?
YES
.EXPI
WERRS+4,I NO
INf
ANS • POSITIVE INFINITY
LOB ,w2
JMP ,EXP,l

JMP
,EXP2 LOA
SSA
JMP
JSB
LDA

,EXP,J.
LBTMP

M124
,244
AAAA

DEC -124
DEC 244
DEC 87,411497202

BBBB

DEC 617,9122695

ecce

DEC ,034657.$5903

0000

DEC 9,9545957821

L2E

DEC 1,4426950409

"

PAGE 0219 #21

L1BRARY

FU~CTI0NS

•
•
• JSB

0002* *
1tJ00J*. COMPUTE L.OG(X)
fUJ04* *
0005 f;1653 ~15430 ELOG
0006 f;1654 124560
0007 51655 002003 *LOG
00013 51656 027732
0009 51657 002020
0010 51660 115141
1d011 f;1661 071624
0012 51662 015414
0iUJ 51663 075625
0014 51664 1.115346
e015 51665 104400
51666 001626
0016 51667 104200
51670 001624
0017 51671 015402
liHU8 51672 051737
0019 51673 104400
51674 001630
ItH.20 51675 1042016
51676 001624
lde21 f;1677 015404
1d022 517",,,, 051737
0023 f;1701 IU5410
0024 !H 7/62 0fU630
0025 51703 104400
e)1704 la1630
0026 517,H) 015406
0027 51706 001630
0028 51707 015404
0029 51710 051747
0030 fS1 7 11 1 04 4 fdld
51712 00.624
00Jl 51 7 13 104200
01714 051745
0032 51715 01541rd
0033 51716 001624
0034 01717 015402
0035 0172'" 051743
0036 51721 015406
0037 51722 0'U6J0
0038 01723 015404
!)1724 0W)1040
0040 51725 0154o"
0041 51726 001626
0042 51727 015406
0043 01730 051741
610 4 4 51 7 31 12543 6
0045 51 7 32 11 5 21" ,LOGl
"046 fS1733 061!36
00 4 7 5 1734 067736
0048 01735 125436
"049*

''''39

,LOG
JMP FRET,I
SZA,RSS
NON-lERO ARGUMENT?
JMP ,LO~l
NO
SSA
YES, POSITIVE ARGUMENT?
Jsa RERRS+21,1 NO
STA XTEMP
YES,
JSB , n.UN
SAVE MANTISSA
ST~ XTEMP+l
AND FI.041EO
EXPONENT
JSB fLOAT
DST YTE.MP
Sf:.IJ ARAT EL'(

OLD XTEMP
JSB ,FAD
OE.F R22
DST UTEMP

U • X+SQR(0,5)

ol.o XTEMP
JSB
OfF
JSB
OfF
OST

,FSB
R22
,FOV

UTEMP
UTEMp

U

~

(X.SQR(0,5»/U

JSB ,FMp
OfF UTEMP
JSB ,fait

ofF

eee

OST XTfMP
ol.O MB
JS~

DEF
J5B
OfF
J56
OfF
J58

,FDv

xrtMp
,fAD
AAA
,FMP
UTEMP
,F58

OfF HALF

JSB ,FAD

UfF yTEHP
JSB
DEF
JMP
JSd
LOA
LOS
JMP

.FMP
ANa", LOG(2).
I.E2
,LOG,l
(~ANTISSA·0.5.U.(AAA+MB/X)
WERRS+t,I
MNEG
ANS • NEGATlVE INFINITY
8776
,LoG,l

PAGE 13220 #21
16050
0051
13052
0053

51736
t)1737
51740
b1741
51742
b1743

51744
0054
0055

b1745
51746
51747
51750

LIBRARY fUNCTIONS

000776
055202
075000
054271
0061600
051260
037402
125606
044404
065010
1363002

8776
R22

DE~

LE2

DEC .6931471806

AAA

DEC; 1,292ld010987

M~

DEC; ",2,6398577035

CCC

DEC; 1.6567626301

Ol;T 776

.707106781

SQR(fd.~5)

LOG SASE E (2)

pAGE:.

-

IIlel*
0058*
0159.
0060*
1161·
0062*

".63.
0064*

"165.
0066*
"861*
006ij*
8169.
"070
"071
0072
0073
0074
0075
"076
0"'77
0"'7ij
0079
0080
0081
0062
"083
"084
"085
0186.
0087*

~221

.21

UTILIlY ROUTINE

ENTER WI TlH
(A)-1 IF PBFl.G HAS TO bE S£.T,
(A)-2 IF PBf-l.G HAS

TO BE tLEARf.O,

(A)-4 IF PBfL.G AND CBFI..G HAVE TO SE C!..EARfD.
(B)- POINTEH TO ?fLAij
EXIT WITH ORIGINAl. CONTENTS
51751
51751 103100
51752 002011
~1753 027757
51754 060616
51755 130001
51756 027764
51757 001310
51760 06"516
51761 060441
51762 003000
51763 110001
51764
5 176 4 170001
51765 10210"
51766 125564

#[OAB EQU •
eLf 0
SLA,RSS
JMP •• 4
LOA P8fl.G
lOR b,1
JMP .ED~1
RAR,SLA
LDA P8P!..G
LOA B30M
CMA
AND S,I
#£.061 EQU
STA 8,1
STF W

I~

•

JMP EI)A8R,1

8,

BIT." sET?
YES, SET PBFLG.
NO. IUT'1 SfT?
YES, CLEAR P8FLG,
NO, Cl.EAR PBFLG AND CBfI..G.

STOHE ?fl.AG WORD BAC".

t.XIT,

-PAGE "'222 #21

-~

.

UTIL.ITY HOUTINf
l.

0089 52000
0090 ~2000 0631.6 TENTH
0091 o~001 00006J 663
0092 5211'02 000120 8120
0093 520",,3 177716 062
0094 52004 177707 ,..718
0095 el2005 000776 B~776
0096 52006 tJ00106 f
""",,97 el2007 000116 N
",,098* *
*
0099** COMPUTE ·SQR (X~ *
0100* *
*
0101 ~2010 1002003 ESQR
0102 52011 124560
0103 52012 0""2020
0104 52013 115142
0105 52014 071624
""106 ~2015 015414
0107 52016 01i'0031
0U'S 0201 7 0261355
0109 021320 040351
0110 52021 071436
0111 52022 075625
0112 02023 061624
0113 f'>2024 1d15406
IU14 52025 0524170
0115 52026 015402
0116 52027 ",52074
0117 52030 104400 fSQRl
52031 001620
0111:\ 52032 1042o",
f'>21033 "'016 24
0119 52034 015410
0120 02035 001626
0121 02036 015402
0122 02037 0fU626
fc'l12J 52040 015444
0124 02041 00035~
0125 f'>2042 104400
5204J 0ft)1626
0126 b2044 104200
02045 001624
0127 52046 1d15410
ra12a 02047 10101626
13129 02050 2115402
1d130 52051 001626
0131 52052 1()15444
0132 ~2053 001436
0133 52054 124560
0134 52055 07143ti fSQH2
01J5 52056 04444J
0136 520~7 075625
0137 02060 061624
0138 f'>2061 015406
0139 b2062 052066

OR' 52000b
6J146
6J
120
.. 62
.71
OCT 776
OCT 106
OCT 110
OCT
OCT
OCT
OCT
OCT

"P"

SZA,RS8
X, 07
JMP FRET,l
YES, AN8 • I
SSA
NO, X c 01
JSB RERRS+28,1 yES
NO
STA xTEMP
JSe ,FL.UN
ExPONt:.NT 001.)1
SI.A,ARS
JMP ESWR2
Yt::S
ADA ,-I
NO
STA LBTHp
EXPONENT/2 -I
ST8 XTEMP+1
MANTISSA SAVED
L.DA XTEMP
JSB .FMf-»
OlF SA2
JaB ,FAD
Y • S82+SA2.X
OfF 8B2
YTEMP
OST
OL.D XTEMP

JaB .FDV

DEF YTEMP

JIS .FAO
OfF yTEMP
JaB ,P WR 2
OfF .-1

DST YTEMP

Y • (Y.X/Y)/2

DLD XTEMP
JsB
OEF
JSB
OfF
JSB
OEF
JMP
srA
A08

.POV
YTEMP
,FAD
yTEMP

.PWR2

LBTMP
FRET,I
LeTMP
8377
srB XTEHP+1
LDA XTEHP
JSB .FMP
DfF SAl

ANS • (P.F/P>*2tESQ0
EXPONENT/2
MANT1SSA/2 SAVED

PAGE 16223 *21

UTIL.ITY RUUTINE

10140 52063 1615402
0141 ~2064 052072
16142 52065 1626030
0143.
16144 52066 07"'jQ0~ SAl
52067 000000
1t1145 62070 045000 SA2
52071 000000
0146 52072 ">43624 StU
52073 046377
IU"7 tS2074 0660{1f1l S82
02075 000J77
e14S. •
•
16149 •• COMPUTE 6RK(X) •
0151. *
•
0US!.

0152·
0153.
1Z1154.
0155.
(US6.
0157.
015S*
0159.

tHe".

rU61.
16162.
0163·
rno4.
0165.0166
0167
0168
0169
0170
0171

01 7 2
0173 .
0174
fl'l175
IrH76

0177.
0178
0179
018(()
(()181
0182
018l
0184
IU85
0186
0187
0188
iU 8 9

JSB .FAD
DEI" SSl
JMP ESQRl

Y • 581+ 5A 1*)(

UfC ,875
OfC .576125
DEC .2186J
DEC ,421875

ENTER ~ITH ARGUMENT IN A AND 6,
IF X-0, DISABLE ABORT CAPABILITY.
IF X>0, ENABLE ABORT CApAdlLITY.
IF X<0, Uo NUT 01SA81,.E OR ENABLE BUT JUST
RETURN" VALUE.
RETURN WITH.
1.

o If
TO

2,

ABORT CAPABILITY WAS OISABLEO PREVIOUS

~VAL.UATION,

+1 If ABORT CAPABILITY WAS
TO EVAL.UATION.

62076 071624
160257
521016 e1~616
52101 006400
~2102 002003
52103 (()64354
521fd4 061036
~2077

~2105

00600J

521ra6 002400
52107 00130iD
tS2110 104400
b2111 0V11~26
b2112 064257
02113 1361624

52114 1602002
52115 13261310
~2116 0024104
52117 1615564
521213 103100
S2121 044366
~2122 164001
52123 00340tt1
521·24 0~0001
f>2125

126137

EBRK

8TA XT~MP
LOA MAIN,1
AND PBfL.G
CLB
SZA,RSS
LI:>B • +2
LOA FLGBT
SlB,RSS
CL.A

RAR
PST YTEMP
LOS MAIN
LOA XTEMP
SZA
JMP EBRKl
'LA,INA
JSB t:.DA6R
CLF 0
ADS ,+15TAT
LOB B,1

ceA

CPA B
JMP SUSPN,I

ENA~LEU

PREVIOUS

HIGH PART Of ARGUMENT.
A- ?fLAG
$TO~E

pLifLG BIT sET1
NO. SlT (~)nEXPONENT OF +1,
YES, SET (A) 111101301306,
WAS P~FLG 5tT1
.
yES, SET RETuRN VALuE TO 0,
NO. sET RETURN VA~UE TO +1,
SAVE.
(B)"> ? FL.AG
RETRIEVE H!GH PART OF ARGUMENT.
ARGUMENTI!I"'?

yES, SET P~r.LG TO lC.VISABLE
AbORT) •

s->
~-

1STAT
18T"T

QUIT IF ABOHT REQUEST,

PAGE 0224 .21
0190
tH91
0192
0193
0194

0195
0196
iQ197
0198

UTILITY ROUTINE

52126 102100
~2127 026134
52130
52130 002020
52131 1cl26134
52132 060354
52133 015564
f)2134
52134 104200
52135 ~kl1626
52136 124560

0199
0200*
0201*
0202 52131 ",71661
0203.
0204.
020!.

STF
JMP
EBRKI EQU
53A
JMP
LOA

0

EBRI<2

•

JIB EDASR

NO, ARGUMENT ~0 OR CII"
C0, 00 NOtHING,
<0 8ET Pl:ifLG'TO 0("ENA8LE
AtSORT),

OLD YTEMP

RETU~N WIT~

E8RI<2

.... 2

EbRK2 E(j)U •

JMP FRET,1
SUSPN OfF SUSP

VALUE OF CONDITION

PREVIOUS TO EVALUATION,

PAGE

~225

#21

~lST

ROUTINES

0207* **********************
0208*·..
***
020~***
~lST THE PRO.RAM
**.
0211.***
***
0211* **********.*••••• *****
0212*
0213*
0214*
'LIST' CONV~RTS TH~ CURRENT USER PROGRAM TO A STANDARD ASCII
16215*
16216. fORMAT AND PHINTS IT ON THE TELETyPE ONE LINE PER PROGRAM
0217. STATtMENT.
'PUNCH' ADDS A LEADER AND TRAILER TO THE ASCII
0216. PROGRAM DUMp, LISTING BEGINS WITH THE FIRST PROGRAM STATEMENT
0219* UNLESS DIRtcrED OTHERWISE 8Y lHE 'LIST' OR 'PUNCH' COMMANU.
16220* LTl IS TH~ PROGRAM POSITION POINTER. LT2 15 THE STATEMENT
0221* ~ENGTH COUNTER.
0222*
SET TO 'XPUNCH' MODE
0223 0214k1 00240 4 XPNCH CLA,INA
JMP
L.IST+1
1tl261~4
°224 02141
SET TO 'PUNCH' MODE
16225 02142 003401 PUNCH CCA,R5S
SET TO ,LIST. MODE
0226 02143 002400 LlSTCLA
STA LT0
SAVE MODE
0227 02144 167140ld
0228 02145 002400
CL.A
sET FOR
NY PAGINATION
16229 52146 ld71552
STA LT8
16231!} b2147 064702
L08 P8UFF
NUL'cpa PSPTR
PROGRAM1
0231 0215~ 054056
yES
JMP LIS16
16232 52151 fe126574
0-233 biiH52 806494
'LS,INS
NO, sET FIRST STATtMtNT NUMbER
0234 52153 075432
STe LTJ
JS8 SINIT
PREPA~E PROGRAM rOH LISTING
0235 02154 015464
0236 02155 it164066
L08 P8PTR
CLF V1J
0237 52156 10310~
0238 b2157 06~354
SAVE
L.OA CFLAG
0239 b2160 110257
AND /l4AXN,l
PROc.JRAM
0240 52161 071442
STA LT5
MODE
STF 0
0241 02162 102100
0242*
*
0243**

DETERMINE FIRST STATEMENT TO SE

0244.
0245 ~2163 0162002
1It246 !;2164 065575
0247 02165 075444
0246 02166 065it136
ld249 52167 075434
0250 !;2170 015450
0251 !;2111 02623J
0252 52172 006400
0253 !;2173 050426
0254 ~2174 026206
0255 521 75 0 5 2002
0256 52176 026220
0257 52177 015452
025~
522016 015466
0259 522ldl 050367
0261!} b2202 026234
0261 b220J 0~0426

SZA
LOS
ST8
LOB
STt;
JS6
JMP

SVMTB
LTo
alT15
LT7
GETCR
LISCQ

CL8
CPA ,+648
.IMP
CPA
JMP
J58
JS6
CPA
JMP
CpA

LISCM
8120
~lSCP

6CKSP
BL.DIN
.+1e>6

LISCR
.+548

L18T~D

**

•

SAVE POINTER TO
LAST HORD +1
OF PROGRAM
G~T LARGE SEQUENCE NUMBER
SET ENDING SEQUENCE NUMBER
STARTING LINE NUMBER1
NO

CHECK FOR

COI1i~A

FIRST STATEMENT NUMBER OMITTEO.
PA~INAT10N'l

-yES
BACK UP FOR FIRST STATEMENT NUMB
FETCH INTEGER
CH~CK FOR CARRIA.E RE1URN
VES, END OF COMMAND
COMMA FoLLOWS?

PAGE 0226 *21
0262
10263
0264
0265
~266

0267
026ij
0269

0270
0271

0272
10273
0274
0275
0276

0277
027tt
10279
02810
0281

LIST HOUTINEa

02204 002001
522105 115122
02206

52206 07541$32

52207 015450
62210 115122
62211 16621002
02212 026226
52213 015452
o221~ 015466
52215 007000

52216 075434
52217 050367

b2220 026233
52221 015450

52222 115122
52223 1052002
52224 002001
52225 l1fH22
02226

1d282

52226 062004

.0283

52227 071552

10284
0285
0286

10287

02230 015450

02231 1002001
52232 115122

028t1

52233
fS22J3 065432

0289

52234

1d290

02234 061444
5 2 2 3 5 01 5 3 14
52236 026574

10291

0292

0293
0294
0295

5 2 237 0001000
52240 07 54 32

10296

52242 015454

0297.
029&**

52241

~60J64

RIS
YES
JSB RERRS+12,1
EQU
STB LTJ
SAvE START!Ni SEQUENCE NUM~ER
GET 1HE NEXT CHARACTER
JaB GETeR
JS8 RERRS+12,1

•

CPA 8120

CHECK FOR P

JMP LIStP
PAGINATION
8AC~ UP FOR SECOHO STATEMENT •
JIB BCKSP
JaB BLDIN
GET INTEGER
CMS
SAVE ENDING sEQUENCE NUMBER
srB LT1
CpA ,+158
END of RECORD?
L,19CQ
yES
JMP
NO, GET NEXT CHARACTER
JaB GETeR
JSB RERRS+12,1
CPA 6120
PAGINATION?
,(Ea
RSS
JS8 RERRS+12,I NO
LISCP EQU •
8ET LINE l,;OUNTER
LOA M71B
STA LTe
TEST FOR END OF LINE
JaB GETeR
RSS
JSB RERRI+12,1
LlaCQ EQU ."
LOB LT3
GET ijAtK STARliN' SEQutNCE NUMBER
LlSCR EQU ."
SEEK
LOA LT6
STATEMENT
JIB FNOPS
JMP LlSl6
ALL LINE NUMBERS c GIVEN 1NTEGER
NOP
SAVE OfS1REO
STARTING POINT
sra LTJ
OUTPUT A
LOA ,+128
LINE FEED
Ja8 OUTCR
."

OUTPUT PROGHAM NAME

0299*
0300 52243 1061571
0301 52244 071430
0302 52245 00200 4
10303 52246 160000
0304 52247 0"'210103
0305 52250 026257
0306 52251 0~6400
0307 !)2252 075274
03ldd 52253 060347
0309 52254 015462
03110 5 22 55 06 03 67
0311 52256 1tJ15454
0312 52257
06eJ6~

10313

52257

0314
0315

02260 015454

0316

52262 015454

52261

0610364

**

...
LOA LNAME
STA LT1
INA
LOA 0,1
SlA,RSS
JMP LI8CU
CLoB
ST6 I..T2
LOA ... 3
JS8 OUTsr
LOA .+l~B
Jatt OUTeR
L1SCU EQU ."
LOA ,+128
Ja8 OUTCR
LOA .+128
JS8 OUTCR

NULL.
NAMEl
YES

NO

OUTPUT
PROGRAM
NAME
OUTPUT
CARRIAif RETURN
AND
DOUBLE·
LlhE

FEEO

PAGE 0227 .21

L.IST ROUTINES

-.••

03171c!31S·· OUTPUT LEADER IF 'PUNtH'
0319.
CL.A
1032 0 52263 00240'"
CPA LT0
0321 !>2264 051400
0322 52265 026214
JMP LIST2 .. 2
0323 52266 060316
LOA M72S
0324 52267 071356
alA OIGer
0325 52270 0024&""
CLA
0326 52271 015454
JSB OUTCR
tsz OIGeT
0327 52272 035356
(c)32t3 ~2273 026270
JMP •• 3
0329 52274 065432
LOS L.T3
8T8 L.Tl
0330 52275 875430
0331.
0332 •• MAIN L.IST LOOP
0333*
0334 5227 6 065430 L18T2 L.OB LTl
0335 ~2277 055444
CPS L.T6
0336 52300 026562
,JMP L.IS15
10337 52301 165430
LOB LT1,I
033t3 52302 045434
ADS LT7
0339 52303 006021
SSB,RSS
0340 523104 026562
JMP 1..181'
0341.
0342 52305 035552
ISZ LTS
0343 52306 026317
JMP LISPM
L.OA ,-e
0344 5230 7 0 6 0342
STA LTS
0345 52310 071552
0346 52311
L.lSPF EQU
10347 52311 0613364
L.DA ,+12B
JS6 OUTeR
034t3 52312 015454
0349 5231J 035552
lSz I,..T8
JMP LlSPF
!S2314
026311
"'Jf>0
L.OA M728
0351 52315 060316
STA L.T8
fd352 52316 071552
0353 b2317
L.ISPM EQU •
1d354.
~355
t;2317 165430
L.08 L.Tl,I
JS8 OUTIN
0356 52321d 015456
0357 52321 060412
LDA ,+4108
0356 tj2322 015454
JSS OUTeR
1d359 52323 ki35430
ISZ L.Tl
0360 02324 161430
L.DA LT1,l
JS8 STL.CK
0361 52325 015556
ftj362 52326 16143'"
L.OA LT1,I
CMA,lNA
IdJ63 t;2J27 003004
0364 523J0 002004
INA
0365 52331 071274
STA I...T2
JMP L.IST3
0366 t;2332 026335
/d367 52333 16!)430
L.OB L.Tl,I
0368 52334 015450
JSB OUTIN
0369 52335 035A3/d L.1ST3 lSZ \. T1
03711) 52336 035274
lSl L.T2
0371 tj2J37 026353
JMP L.18T4

•

••..

'L.IST'
MOOE?
Yf,S

NO,
OUTPUT

fEED

FRAMES
FOR
L.f.AOER
St.l POINH.R YO
STARTlNG P{JINT

PROGRAM
EXHAUSTED?
Y~S

GET L.INE NUMeE~
CHECK FOR END OF L.lSTlNG
SK1P IF NOT DONE YET
STOP ~lSTING HERE
CHECK FOR NEW PAGE
NOT Yfl

..

OVTPUT A
BUNCH OF
L.INE FEEDS
RESET

LI~E

COUNT~R

NO, OUTPUT
LIN~ NUMBER
OUTpUT
BI,..ANK
CHECK
SlAlEMf.NT
I.ENGTH
L.t.NGTH
COUNTt:.R
FOR
STATEMENT
OUTPUT
BOUND
MORE OF
STATEMENT1
YES

PAGE
0372
0373
0374
k:l375
0376
0317
037S
0379
038""

~228

02341d
02341
02342
52343
52344
02345
!S2346
52347
5235 0
02351
52352

#21

LIST ROUT1NfS

00240"
051400
002001
02 6 346
060375
015454
060367
015454
06036 4

Cl.A,INA
CpA LT0
RSS
JMP *.J
LDA .... 238
JaB OUTeR
L.OA .... US8
Ja8 OUTeR
LOA ,+128
JS8 oun;R
JHP L.18T2

0381
~15454
0382
026276
k:l38J.
*
038 •• • IDENTIFY UPERATOR **
0385.
0386 52353 161430 LIST4 LOA LT1,1
AND OPMSK
0387 52354 010664
k:l388 b2355 002003
sZA,RSS
0389 02356 1d26377
JMP LIST5
CPA LETOP
0390 52357 050726
JMP L.18T5_2
0391 52360 026375
0392 52361 001727
AL.F,AL.F
0393 52362 042003
AOA D62
0394 52363 002021
SSA,RSS
0395 52364 026531
JMP L.1812
ADA 863
0 3 96 52365 04 20 01
0397 52366 040564
AOA FOPBS
0398 52361 160000
L.OA 0,1
0399 !S2370 001727
AL.F,Al,.F
(6400 52371 010441
AND B177
1d401 52312 050414
CPA ,+42~
0402 52373 026677
JMP L1S14
0403 52374 002001
RSS
LOA ,+4013
04 0 4 52375 06 0 412
JaB OUTeR
16405 02376 015454
0406.
0407*· IDENTIFY OPERAND ***
0401h
* L.Tt,l
0409 02377 161430 L1ST5 LOA
AND OPDMK
0410 02.00 010700
0411 52401 07143ji
STA L.r3
0412 02402 002020
S5A
0413 02403 026451
JMP L.IST9
0414 52404 006400
cl.e
0415 02405 0155432
cpS L.T3
fd416 ~2406 026335
JMP I.IST3
CpB I..T5
0411 02407 055442
1d418 02.10 0264H>
JMP L.IST0
0419 02411 0403el
ADA ,-1
0420 52412 0010o"
AL9
ADA 9,(MT8
0421 02413 041575
0422 02414 160000
L.OA 0,1
STA LT3
k'J423 52415 0714J2
042 ....
•
0425 •• L.IST SYMBOL.IC OPERAND ••
1/)426.
til

•

XpUNCH?

YES

NO
OUTPUT

x·OfF

NO,
OUTPUT A
CARRIAGE RETURN
ANO LINE fEED

EXTRACT
OPERATOR
NUL.1.. OPfRATOR1

yES
NO, 'IMPLIED' L.ET?

YES, OUTPUT A BLANK
NO,
81NwLE"CHARACTER
. OPERA TOR?
NO

YES,

EXTRACT
ASCII
coDE
" 1

YES
NO
L.OAO A BL.ANK

EXTRACT
OPERAND
fiLAG 8IT SETl

yES

NO, NULl..

OP~~AND?

yES
NO,

NO

'COMPILED' ?

yES

LOAD
ACTUAL

SyM80L.
SAVE SyM60L.

PAGE

~229

*a1

~18T ~OUTIN~S

"~27

b2410 010672

kJ42tt
0429

52417 0f)l!J371

0430

0431
0432
0433
0434
"~35

0436
0~37

043tt
0~39

.,440
0441
0442
0443
04~~

52420
52421
5242ft
!:S2423
!S2424
52425
52426
52427
52430
52431
52432
52433
52434
52435
02436
52437

ADA S111l0
JI8 OUTCR

OUTPUT

JMP L18T7

lISTJ

FVNCTI0N1
YE.S
NO, STRlNG VARIABLE7
YES
NU
01(11T1
NO

,+608

yf.S,

050311

026335
002003

026442
040345

002020
026335
040432

045 0
0451

02446 062007

0452 52447 015454
8453 !S2450 026421
0454*
04&5**

0461

0462
0463
0464
0465
0466
0467

046tt
0469
0470
11'471
0472
0 4 73
0474

0475
0476
ffJ477

047tt
0479
..,480

LISle

'040172
i1J1 5454
061432
010311

52441 026335
52442 06 0 41 6
52443 026440
024<44 062096
!S2445 2115454

0456.
"'457
045tt
0459
0460

fUNCTION?

AND ,+378

.,446
0~49

ISOLATE TYPE PART

,+178

010411

061432
1 0 11 0 4

5244 e 015454

0447

POFFL

YES
NO,
COMPUTe;
ASCII FOR

0264~4

0445

0448

LIST" AND
CPA
JMP
LlSl6 LDA

LT3

RRR 4

L.OA Ll3
AND ,+178
CPA .+178
JMP L18TJ
BZA,RSS
ADA
saA
JMp
ADA
JaB
JMP
LIST7 L.DA
,IMP
LIST8 LOA
JaB
LOA
JaB
JMP

,_5

OUTeR
L.ISTJ
.+448

•• 3
F
OUTCR

52466 015422
52467 026335
5247~ 010 371
52471 050355

52472 026503
52473 050371
52474 002001
52475 026421

!S2476 061432
!S2477 001722
52500 064510
52501 015460

LETTE~

OUTPUT IT
LOAD ASCII'S'
OUTPUT
'FNI

N

OUTCR
L.ISH>

LIST CONaTANT OPERAND OR PARAMETER

5 2 45 1 001665
02452 002002
52453 026"70
52454 071572
52455 071266
52456 035430
52457 11'35274
02468 104200
52461 101430
52462 0354366
02463 klJ5274
52464 0"'2120
~2465 002300

LETTER

LIST9 E.L.A,CLE,ERA
aZA
JMP L.18UJ
STA CHRCT
STA SIGN
ISz l.Tt
ISl LT2
OL.O L Tl, 1

.*

CLEAR *FL.A!; eXT
CONSTANT?

NU
yES, sET
F·OR NO SH,N
L.OAO

ISl L.Tl
ISZ I..T2
CLE,SS~

teE

JSe NUMOT
JMP 1..18T3
LISllt1 AND .+178
CPA ,+3
JMP LISll
CPA ,+178
RSS
JMp LIST6
LOA I.T3
AI..F,RAL
LU8 ATAB
JSB MCOUT

NE:.GATIVE NUMBER1
YES ENABl.E 31~N
OUT~UT THE cONSTANT
ISOL.ATE TYPE PART
PROGRAM INTtGER1
YES
NO, PRE~DaFINEO FUNCTION?
YES
NO, MUST 8E A pARAMETER SYMBOL
OUTpUT
FUNCTION

PA"E 1d230 *21
0481
0482
0483
0484
0485
0486
0487
0488
0489
0490
0491
0492
0 4 93
0494
0495
0496
r6497
0498
1d499
0500
1d501
05"'2
16503

L.18T ROUTINE.8

52502 02e3J5
02503 0J5431d
525.,4 035274
o25~5 061440
52506 050636
02507 1t!26333
02510 050742
62511 026333
52512 061442
02513 165430
52514 002002
52515 1()4001
52516 015456
!:S2517 035430
52520 035274
52521 002001
52522 026340
02523 061440
52524 050 770
!:S2525 026353
!:S2526 0616426
52527 015454
52530 026512

JMP L.ISTJ
1.1811 ISZ I.T1
18Z L12
LDA I.T4
CPA 01MOP
JMP 1.18T3.2
CPA COMOP
JHP I-IS13-2
LOA LT8
LOB I.Tl,l
5ZA
LDB 1,1
JS8 OUTIN
ISZ LTI
ISZ LT2

SYMBOL
RESTOf2634 0715462

AND
STA
MLOT1 LOA
AND
CPA
JMP
LOA
AND
AOA
ARS

OPMSK
LT4
1,1
OPM~K

LT4
MCOT2
1,1
•• 7
.+3

AUS 0

JMP MeOTl
MeOl2 L.OA 1,1
AND .+7
CMA,INA
ARS
STA LTJ
STB OUTST

SAvt
SYMBOL
DE.SIREO
TABLE
E.NTRy'l
YES
NO,
COMPUTE
ADDRESS
OF N!XT

E.NTRY

COMpUTE
COUNT
OF
ASCII
WORDS
lAVE ASCII SYMBOL AODHEtS8

PAGE
0591
rt)5g2
0593
0594
13595
0596
0597
0598
0599
0600
0601

~2J2

.21

LIST

52635 035462
~2636 161462
52637 0~1727
52640 015454
!l2641 161462
02642 01121443
52643 002002
02644 015454
02645 035432
52646 026635
~2647 125461cJ

0602**
0603**.

~QUTINf8

M~OT3

lSZ OUTST
LDA OUTST,l
AL.F,ALF

JSB OUTCR
LOA OUTST,I
AND BJ77

MOVE TO NtXT wORO OF SYMBOL

OUTPUT
HIGH
OUTPUT
LOW CHARACTER

IF NOT
NUL.l.

SZA

LIST A STAING

JSB OUTCR
lSI LT3
JMPMCOT3
JMP MCOUT,!
*.

MORE SYMBUL1
yES

NO

***

••

0604*.
0685.
rt)606* UPON ENTRY (A) HOLDS A NEGATIVl WORD COUNT OF THE STRING, IF
0607* (8) # " THE STRING BEGINS WITH THE L.Ow HALF OF (LT1),! I IF
ra60S* (6) • " IT SEGINS WITH THE HIGH HALF OF THE WORD FOLLOWING

0609*
0618*
k:l611
0612
121613
rt)614
k:l615
121616
121617
121618
0619
~620

0621
121622
0623
0624
13625

(lTl),I.
52650
52651
52652
02653
52654
02655
52656
52657
52660
02661
52662
52663
52664
52665
52666

071440
006 00 2
026660
035430

035274
H)14311J
001727

015464
161430
010443
00200~

015454
035440
026653
125462

A TRAILING NULL

CHARACT~R

srA lT4

sze

JMP OTST2
OTST1 lSZ lTt

ISZ LT2
LOA l.TI,I
AI..F,ALF
JSB OUTCR
OT5T2 LOA LTI'!
AND B377
SZA

J3S OUTeR

ISZ L.T4
JMP OT8Tl
JHP OUTST,l

wILL. NOT iE PRINTtD.

SAVt STRING WO~D COUNT
'REP.,. ?
YES
NO, MOVE TO
NEXT PROGRAM WORD
OUTPUT
HIGH
OUTPUT
LOW CHARACTlR
IF NOT

NUL.L.

MORt STRING?
YES
NO

pAGE 0233 11122

ASC lITO tUNARY HUM8iw CONViH810 N

0082 ••
"0i13 •••

HANDL.E OVt.RFL.OW

08B4 ••
0885.
0006*

(A) CONTAINS THE HIGH MANTISSA UPON ENTRY, (A) AND
(6) CONTAIN THE L.ARGEST RfPRt8ENTA8L.t NUM~ER OF
APPROPRIAT~ SIGN, PACKED, UPON EXIT.

0fi107.

000_,*
8819.

fai10
0011
0012
0013
0014
16015

161616

••
•••
••

L.Ut;

52667 064Jts0

fj2670 00202il
62611 066005
62672 038214
0261J 002020

S8A

L.ue 88176
lOR INF
88A

L.UA MNEG

526744 061036
b26/5 1253116

li"H 7.·

001S...

JMP OVFI..W,l

CHECK OVER/UNOERFL.OWS

••
•••

.*

0819 ••
8828.
rd821* EXIT TO (P+l) IF STATUS IS NOT SYNTAX,

SETTING SYMTB • 4 IF IN KEYdUAHO MOOt,
REpORTED If IN TApE MODE.

0022.
16023*
0024*

16025
0-026

16027

160aS
0"2 9
16038
01631

"032
0033
0'134
0035
0036
0037
16038

16839
0040
0041.·

52676 061571
b2677 ~40J62
t)2700 164000

!)270l 054356
b27 0 2 002 0 01
b2703 026712

52704 060362
b2705 110257
t;2706 002063

!S21e7 075575
{j27l0 035476
02711 12()476
t;2712 035611
52713 002001
02714 035476
b2716 125476

16042.**
0843*.
0044.

161645*
0046*
0047.
0048.
0049*
16050*

161651-

0052.
0frHS3.

0054*
005~*

01e6.

ELSE EXIT TO (P+2),
THESE ERRORS AR~ NOT

.CHOU LOA
ADA
L.Oa
CPS

LNAME
COMPUTE
,+15TAT .. 110
0,1
STATUS
,.4
SYNTAX1
HSS
YES
JMP CHOUl
NO
LOA TAPEF
TAPE
ANti MAIN,l
8ZA,R88
MOOt'
NO
8T8 Sy"'T8
ISZ CHOuF
JMP CHOVF,I
CHOUl ISZ ENOu F
ARE WE EXECU11NG ENTER STATE?
RSS
NO
YES~.8UPPHESS ERROR
lIZ CHOUF
JMP CHOUF,1

I..OOK FOR A NUM8ER

••

•• *

**
NUMCK L.QOKS FOR AN UNSIGNED NU~BER, SIGN MUST ~e SfT
BY THE CALLER (SIGN. -1 FOR NEGATIVE, ELSE POSITIVE),
(A) CONTAINS A CHARACTER UPON ENTRY, IF IT IS NEITHER
A DI~IT NOR A DECIMAL POINT, EXIT IS TO (P+1J ~ITH
(A) UNCHANGEO ANo (a) • 0, EXIT 18 TO ERROR ON FINOING
AN EXPONENT PART OF INCORRECT fURMAT, ZERO REPL.ACES AN
UNDERFL.OW, THE LARGEST REPRESENTABLE NUM~ER Of THE
APPROPRIATE SIGN REPL.ACES AN OVERFLOW, AfTER STORING A
fLOATING POINT NUMBER IN M AND M+l (WHERE SBPT~,l • M)
EXIT IS TO (P+2) ~ITH THE NEXT INPUT STRING CHARACTER
IN (A) AND TEMP.1,
i

PAGE
0057
01658
0059
14~60

0061
0062
0063
0064
0065
0066
0067
i£H1l68
0069
0070
0071
"'072
0013
0074
0075
0076
0077
0078
0079
0080
0081
0082
01683
0084
0085
0086
0087
0088
0089
0"'916
0091
0092
0093
0094
0095
0096
0097
0098
0099
0100
0101
"'102
0103
010 4
0105
0106
0101
0108
0109
13110
0111

~234

#22

ASCII TO 81NARY

52716 0064014
52717 075322
~2720 075316
52721 0753216
52722 "'75324
52723 075614
52724 01674016
52725 075752
52726 050430
52727 035752
52730 026734
52731 002400
52732 071324
527J3 026771
52734 015264
52735 027005
52736 035324
52737 100033
52740 071615
52741 016300
52742 065322
52743 006003
52744 027000
52745 044346
02746 007000
5 2 747 061615
02750 075615
52751 "'06400
52752 035615
52753 02677~
02754 0000410
52755 045320
52756 103101
52757 002040
52760 002004
52761 041316
52762 1162301
52763 026770
52764 000065
52766 005500
52766 035322
52767 000000
52770 015304
02771 035614
52772 015450
52773 027054
52774 026726
52775 000065
52776 005500
52777 0267152
530130 060356
53001 071322
530~2 061615
53003 006400
!)3004 02677~

#NMCK

NUM~EH

C~S

ZERO

8T8 EXP

STS
5TB
ST6
5T8

ceB

MANTi
MANT2

EXPON
TEMP.1

8TB DPFL.G
NUMC1 CpA ,.566
ISZ DPFL.G
JMP NUMC;2
CL.A
STA EXPON
JMP NUMC4.1
NUMC2 JSB OIGtK
JMP NUMC7
liZ EXPON
A8L. 11
STA TEMP+2
JSB MaY10
LDB EXP
SZS,RSS
JMP NUMC6
ADB ,.4
CMS

LOA TEMP+2

8TB
CL.ts
NUMCJ ISZ
JMP
CLf
ADB
CL.O
sEz
INA
ADA

TEMP.2
TEMP+2
NUMt5
MANT2

ALL

COt-lpONENTS
OF THE·
NUM8ER
SET ,NUMBER FLAG, FALSE
SET 'DECIMAL pOINT'
FLAG FALSE
DECIMAL pOINT?
,(ES
NO
ZERO POST-DECIMAL
01ilT
COUNTER
DIGIT?
NO
YES, COUNT DIGIT
LEFT.JUSTIFY DIGIT
ANI) SAVE IT
MULTIPLY PREVIOUS NUMBER ay 10
zERO
ExPONENT?
YES
NO,
SAVE
SHIFT
COUNT
CLEAR LoWER MANTISSA
ALL SHIFTS DONE?
NO
yEs, ADD IN
LOW PART

OF NUM8iR

FROM (B)1
YES
ADD IN HIGH PART OF MANTISSA
OVERFL,.OW?
NO
yES, CORRECT
MANTISSA
AND BUMP
EXPONENT
NORMALIZE THE NUMSER
SET 'NUMBER FLAG' TRUE
FETCH CHARACTER
NONE FOUND

OVERFLO~

MANT1

50S

JMP NUMC4

CL.E,ERA
ERa

ISZ
NOP
NUMC4 JSB
liZ
JSB
JMP

CONVERSION

EXP
NORML

TEMP.1
GETeR
NUM12.1
JMP NUMC1
NUMCs CL.E,ERA
ERa

SHIFT
DIGIT
~lGHT

JMP NUMeJ

NUMC6 LOA
STA
LOA
CLB
JMP

,.4
EXP
TEMP+2
NUMC4

SET

ExPONENT
LOAD
NUMBER

16112
16113

0114
0115
0116

0117
0118

0119
0120
0121
ItU22
0123
0124
16125

0126
"127
0128
~U2g

{6130
16131
0132
16133

0134
0135
16136
16137
16138

ItH3g
16140
16141
16142
16143
0144

0145

16146
0147
16148
0149
161516
0151
0152
16153

0154

16155
13156
1d157
0158
16159
0160
fd161
16162
16163
!tH64
0165

~J0f65

006400

53006 1675615
f)3 00 7 055614
53f61{6 125276
53011 1650720
03ftJ12 002001
53013 02705b
031614 015450
53015,027114
531616 050425
531617 027~24
53020 050427
53021 003401
53022 027026
03023 071615
53024 °1545 0
ti3025 027114
031626 015264
5Jld27 f62J114
53030 ~71614

53031 015450

53032
53033
tiJ034
531635
f:)3{636
53037
f:)304f6
53041
f:)3042
53043

027~50

015264
027050
061614
1675614

100200

000364
1IJ41614
071614
1615450
53044 027 05 0
b3f1145 01~264
530 46 121020~1
53047 027t14
03121516 065614
53051 035615
~3052 0071404
53053 16°2°01
03054 1606400
5J\!i55 071614
03056 035752
531657 045324
b306fd 006003

53061 027076
03062 006020
53063 027k372
031664 0~70(64
53065 075324
5J066 015302
53 0 67 035324
53070 027066

03071 027t!J76
b3t172 075324
53(673 01~J00

NUMC7 CI,.8
STa
CPB
JMP
CpA

Ras

TEMP+2
TEMP.1
NUMCK,I
E

t

E' "I

YES

JMP NUM12
JaB GETCR
JMP NUM16
CpA .+b3B
JMP NUMC8
CPA .+508
CCA,RSS
JMP NUMC9
STA TEMP+2
NUMC8 JS~ (fETCH
JMP NUM16
NUMC9 JSB DIGCK
JMP NUM16
srA TEMP+1
JaB GEH:R
JMP NUM11
JSB OlGCK
JMP NUM11
LOA TE.MP .. 1
STB TEMP+1
MPY .+10

ADA TEMP,.1
TEMP+!
JaB GETCR
JMP NUM11
JaB OlGCK
RSS
JMP NUM16
NUM11 LOd TEMP.l
lSZ TEMP+2
STA

C""ti,IN8
RSS

CI.B
NUM12 8TA TEMP.!
ISl DPF!.G
A08 EXPON
SZB,RSS
JMP NUM14
SS~

JMP NUM13
eMB,INB
STB EXPON
JaB DBYl16
ISZ EXPON
JMP *.2
JMP NUM14
NUM13 STa EXPON
JS~

SET EXPONENT
SIGN TO -.DIGIT OR DECIMAL POINT FOUND?
NO

M~Y10

NO

F~ lCH

NONE

'+'

CHAIUCTER
FOU~O

?

YES
NO, , III , ?
yES

NO
SET EXPONENT SIGN TO
FETCH CHARACTER
NONE FOUND
DIGIT?
NO
YES, SAVE IT

,~.

OICI1 T?

NO
YES, MUI.TIFLY
PREVIOUS Ol~IT
~Y 10
ADD IN Nt:W 01G1T
SAVE EXPONENT

THIRO 01:;IT1

NO
YES
LOAD EXPONENT
POSl T1 VE. 'i
YES, COMPL.EMENT IT
NO
SAVE CHARACiER
OE'lMAL POINT FOUND?
YES, CORRECT EXPONENT
NO, ZERO EXPONEN11
yf:;.S

NO, POsITIVE EXPONENT?
YES
NO, Sf.T
COUNTER
DIVIDE NUMBER ~y 10
DONE?
NO
YES
SET COUNTtR
MULTIPLY NUMBER SY 1~

PAGE 0230 #22
{/J166
1d167
0168

0169
!d170
ra171
1d172

0173
"'174
0175
!d176

11:1177

0178

1d179

53074
53075
53076
53077
53100
53101
03102
53103
53104
53105
03106
03107
53110
53111
03112
53113
53114

ASCII TO SINARY NUMBER CONVERSION

1636324
027073
~61316

065320
"35266
027 HlfJ
0030e0
007007
002004
015306
17U574
015270
175574
~15270

ISZ EXPON
OON~1
JMP ..,2
NO
NUM14 LOA MANTl
LOAD
~08 MANT2
MANTISSA
liZ SIGN
POSITIVE?
JMP NUM15
YES
CMA
NO, COMP~tMENT
CM8,INB,Sl8,RSS THE
INA
NUMBeR
JaB .PACK
NORMALIZE AND PACK
srA SBPTR,1
STORt
JSB SBPUO
NUMSER IN
srB saPTR,1
DeSTINATION
JSB SBPUU
ADDRESS
LoA TEMP+1
RETRIEVE CHARACTER
ISZ NUMCK
NUM16 lSI NUMCK
JHP NUMCK,l

1d180
061614
0181
035276
0182
035276
ft.l18J ~J115 125270
0184.*
0185*·* MULTIPLY UNPACKED NUMBER 8V 10 •••
0186*.
••
0181.
!d18S* THE FLOATING POINT NUM8ER IN ~ANT1, MANT2, AND EXP

••

~H89.

IS MULTIPLIED Sy

1~.

0190.
!d191
0192
1d193
0194

0195
1d196
0197
10198
1d199
0200
10201

1t)202

02°3
0204
1d205
0206
kl207
02~H~

1d21d9

0210
0211
ra212
0213

0214

03116
03117
53120
03121
03122
03123
53124
03125
03126
03127
53130
03131
53132
53133
53134
53135
03136
53137
03140
03141
53142
53143
03144
53145

061316
1a~201d3

125300
065322
044355
\(175322
065320
000065
005500

000065

005540
045320
002 0 4ft.l
la02004

041316

fcH12021
0271.3
000065
005500
035322
000000
071316

075320
12530{(1

#M610 LOA MANTl

8ZA,RSS
JMP M6V10,I
LOS Exp
A08 •• 3
STB EXP
I.DB MANT2
CI.E,ERA
ERB
CI.E,ERA

ERB,CI.E
ADe MANT2
SEZ
INA
AOA MANT1
SSA,HSS

JMP M8Y01
CLE,ERA
ERa

ISZ ExP

NOP
MBY0l srA MANTl
STB MANT2
JMP Mav U', 1

LOAD HIGH MANTISSA
ZERO NUMBER?
yES
NO,
MU~TIPLY

8y 8

LOAD LOW MANTIsSA
UlvlD~

By
4

ADD INTO
BOTH REGISTfRS
PRODUCING
1,25 • MANTISSA
CORRECT
ON

OvERFI.OW
STORE
MANTISSA

02115 ••
0217...
021lh.

NORMALIZE UNPACKED NUMBER

0219.

.*.*.
**

0220. ENTER wITH NUMBER IN (A), (B), ANO EXP. EXIT wITH
0221· NORMALIZED NUM~ER IN MANTI, MANT2, AN~ EXP (MANTISSA
0222. IS LEFT IN (A) ANO (8) A8 wELL).
0223.
0224 ~;'14t5 071300 #NRMl ST. NT0
St.T
CLA
LfFl~SHIFT
0225 53147 002401.1
0226 5315~ 071615
STA lEMP+2
COUNTER
0227 ~3151 061300
LOA NT0
TO ZEkO
0228 t531t52 002003
If' NUMBE.,~
SZA,RSS
0229 53153 006002
SZB
IS ZERO,
JMP NORM2+1
CLEAR
0230 53154 027162
STA EXP
EVERYTHING
0231 53155 071322
STaRt,
STA MANh
0232 53156 071316
MANTISSA
0233 t53157 075320 NORMI 818 MANT2
0234 531610 125304
JMP NORML,I
COUNT • LEFl SHIfT
0235 t53161 035615 NORM2 lSZ TEMP.2
0236 53162 004066
CLE,EI..B
ROlATE (AJ
0237 53163 001600
ANU (6) LEFT
EL.A
0238 53164 002061
SEZ,SSA,RS8
TWO HIGH~ST BITS ~?
JMP NORM2
YES, POSITIVE UNNORMALIZEO
0239 53165 027161
NO, TWO ~lGHEST BITS 1?
0240 53166 002060
SEl,SSA
0241 53161 027!61
JMP NORM2
YE8, NEGATIVE UNNORMALIZEO
NO, NORMAL.IZE
ERA
0242 5J170 0°1 500
MANTISSA
ERB,CLE
0243 53171 0055""
STA MANT1
COMPUTE
0244 ~3172 071316
0245 53173 06161~
LOA TEMP+2
02 46 53 1 74 003°04
CMA,INA
COHRECTEO
AOA EXP
0247 53175 0 4 1322
0248 53176 071322
STA EXP
LDA MANT1
0249 53171 061316
JMP NORMl
0250 5 3200 027 157
0251 ••
0252*.. NORMALIZE ANO PACK NUM8E~ * ••

••

*.

~253*.

0254.
0255·
0250.
0257.

0268.
0259.
0260
0261
0262
0263
(Q264
0265
0266
0267
0268
16 269
0270

NUMBER IN (Al, (B), ANO EXP ON ENTkY. ON EXIT (A)
AND (B) CONTAIN THE NORMAL1ZED, ROUNOED, AND PACKED
NUMSfR, UNDERf~OW BECOMES A ZERO, OV~RFLOw BECOMEs
THE LAR-EST REPRESNTABLf NUM~ER of APPROPRIAT~ 81'N.
53201 015304
~3202
~320J

53204
53205
53206
53207
53210

0021"3
12530 6

JSB NORML
ClE,SZ·,RSS
JMP ,-PACK,l
~177

044441

ADS

002021

SSA,RSS
INS
CLO
8El
CLE,tNA

00600 ..
103101
002040
~3211 002104
~3212 10 23 0 1
0.:$213 00121'"

50S

RAt..

NORMALIZE NUfI48ER
ZERO'l
YES
NO' ROUND
poSITIVE?
YES, fINISH ROUNO
ON

OY£Rf~OW FkOM (8)
CORRECT (A)
OVERflOW? ( (A).1000e~, (B).0 )
TWO HIGH BITS

PAGl 0238 #22
0271
0272

0273

ASCII TO

53214 002031
027220
53216 002300
53217 001130
53220 0161300
53221 071615
53222 101050
~J223 1605727
~J215

0274
0275
0276
0277
0278
0279 ~3224
0280 ~3225
16281 53226
0282 53227
0283 532316
028453231
0285 53232
16286 53233
0287 53234
16288 53235
0289 53236
16290 53237
0291 !)3240
0292 b3241
0293 53242
16294 03243
16295 5324~
0296 53245
0297 53246
16 2 9 8 53247
0299 53250
03 00 t532~1
0301 53252
0302 53253
0303 53254
0J04 53255
03165 53256
0306 ~3257
0307 53260
0308 53261
0309 53262
0310 03263

16311*.
0312.**

061322

~lNARY

NU~bER

SSA,SL.A,RSS
JMP PACK1
ceE
ARS,SLA,AL.S
PACK1 RAR
srA Tt:.MP+2
LSR 8
BI.F,BL.F
LOA ExP

SEZ

0020440

ADA • .-1

f64f63~1

SOC
INA

102201
002004

ADA 6200

0M!l44~

ss.

002020
027252
0272157

JMP PACK3
~OA "1256
S8A,RS8
JMP PACK4

0.0~~c

AI). 6200

001200
010443

RAL

~40762

002921

~44000

125306
[655 0 37
027257

1253 0 6

~15476

115215
002400
00 0 400
12530 6

015476
115214
061615
0153111"
12530 0

NEGATIvE

RSft

J"'p .PACK,l

CPS
JMP
JMP
PACK3 JS8
JSB
CL.A
CL.a

JMP
PACK4 JSB
JSB
LI)A
JS8

JMP

MNE(J+l
OVERFLOW?
PACK4
YES
NO
,PACK,I
CHECK STATUS
CHOUf
WERRS+o'I
ZERO RESULT
ON UNDERFLOW
,PACK,l
CHECK STATUS
CHOUF
wERR8+b,I
TEMP+2
RlTRIEVE HIGH MANTISSA
OVFl.w
.PACK,l

DIVIDE UNPACKED NUM8ER

~y

10

16313*.
0314*
0315. INVERSE Of M8Y10

.*.
••

**

~316.

0317
0318

031 9

°32 0
0321
0322
0323
0324
0325

03264

061~16

1602003
63266 125302
~3265

032 67 "'64350
03270 0 415 322
032 7 1 0 7 5322
~3272
~3273

~6132'"

000065

:;32741 100201&1

L.oA MANTI
SZA,RSS
JMP DBYl0,1
L.DB ,-2
AOS EXP
srs EXP
LO. MANT2
CL.E,ERA
Mpy TENTH

14~eee

yES
SET (A) .. 111"0000 AND SKIP
UNOotS RAL ABOVE
SAVt: (A)
OEL.ET~ 6 L.Ow BITS
Of" MANTISSA
DECReMENT
EXPONENT
ON (E) ,; e
INCREMENT
EXpONENT ON OVERFLOW
EXPONENT
UNDERFLow1
YES
NO, lXPONEt·H
OV'lRFLOW?

L.OA
CPA

061036
002001

80TH 11 ( If (A) WAS
NO

YES
NO, RESTORE EXPONENT
POSITION
ExPONENT ANO
ADO Low MANTISSA
~ETRIfVE HIGH MANTISSA

AND
.08

061615

eONVERI10N

RETURN
ON
ZER.O
ADO EXPONENT
OF 1/10 TO
THAT OF NUMBER
JUSTifY
L.OwER MANTISSA
MULTIpLY 8y 1/10

)

PA(lE k'l239 #22

0326
0327
~32ti

0329
0330
0331
0332
~333

0334
fE'335
ta336
21331
0338
0339
~340

ASCII TO BlNARY NUMBER

b3275 052000
bJ276 0002166
53277 2105640
~33fE'0 0400211
53301 002~4~
53302 006104
03303 075320
53304 061316
533215 1021200
b33e6 0~2fE'0e
53307 0421001
b3310 041320
53311 002~40
b3312 006004
53313 101108
~3314 015304
bJ31b 125302

CL.E,EL.~

E"'b,C"'E
ADA 1
BEZ
C"'E,INB
5T8 MANT2
LDA MANTt
MPY TENfH

AUA 1
AUA MANT2

stl

INS
SWP

JSt; NORHL-

JMP 08Y10,1

CONVE~~ION

SHIfT
BACK
AOO IN EQUIVALENT OF
LOwER MANTISSA'*'
IfNTH*2'(-16)
ANO ROUND TO 16 81TS
00

SAME TO
HIGH MANTISSA
PERfORM EffECTIVE
SUM OF OouBLEwLENGTH
... RoIJVCTS
SWAp (A) ANO (8)
NORMAL-IZl:.
~Ei4JLT

PAGE

~2~0

#22

PRINT NAME TABLE

03~1Z·*
~J43·**

PRINT NAME

TA~LE

FOR MULTICHARACT1R SYMBOLS

.*
***

*.

1d344 ••
0346.
1c?346· 61TS 15-9 Of THE 'OCT' WORD A~E THE aASIC OPERATOR
0347. cootS Of THE SYM~OLS. BITS 2~0 A~t THE LENGTH IN
034tS. CHARACTERS OF THE SYMBOLS. THE ASCII VERSION (PRINT
034g. NAME) FOLLOWS.
0.15".
0351*
16.152 •• MULTICHARACTER BINARY OPERATOHS *
0353*
•
ANO
0354 6331 6 032003 MtBas OCT 32003
Ase 1,AN
1d355 ~3J17 040516
0356 ~3320 042080
OCT 42"08
OR
OCT 3J~,,2
1d357 53321 033002
0358 53322 047522
ASe 1,OR
0359 5331Z3 034"03
MIN
OCT 3<4"03
ASC 1,Ml
1t?360 53324 046511
OCT 47(600
0361 53325 0 .. 7000
{4362 53326 035003
MAX
oCT 3Si,..J
ASC 1,MA
0363 63327 0 .. 6501
0J64 53330 054000
OtT 540160
UNEQUAL
"365 53331 03 600 2 MRELS OCT 36 08 2
ASC 1,4)1
1d366 53332 036076
1d367 53333 1337002
GREATtR THA~ OR EQUAL
OCT 37002
0368 03334 037075
ASe 1, ) I .
036g 53335 0400162
LESS THAN OH tQUAL
OCT 4001112
ASC 1'··
0370 bJJ36 036075
0371.
•
0J72·· MULTltHARACTER UNARY OPERATOR
I6J73.
*
1d374 ~3J37 fa4100;, NUT
OCT 410"3
ASC 1,NO
1r:1375 53340 ta47117
0376 03341 052{1{10
OCT 520fUJ
03 77.
0378 •• STATEMENT TYPES *.

*.

*.

•

16379.
Idl8" ~J342 04 200 6

1d381

t)J34J 1.140523
~J344 051511
bJJ45 043516
S3346 0 43 00 5

53347

f2)52~2J

04<4516
t)3351 0 4 3400
53352 rr144005
SJ353 044515
03354 "~0607
t)3355 042400
53356 04l'003
53357 04HH7
03300 0<46400
b J 361 046003
03362 f/l46UJ5

* 420 "6
STYPS OCT
Ase J,ASSIGN

ASSIGN

USTMT OCT 431405

USING

ASC 2,uslN

~JJ50

.,384
0385
10386

0387
1r:1388
0389
16390
0391
1d392

OCT 4340"
OCT 4"005

ASC 2,IMAG

OCT 42,,"0
OCT .. 5083
ASC 1,CO
OCT 4640"
OCT 46003

ASC l,lE

,

IMAGE

COM
LET

PAGE 14241 .22
14393
1639.
0395
0396
0397
0398
16399
0.00
0.01
0402
0403
16404
0405
0406
"407
".0t5

0409
0.10
0411
"'4 1 2
041J
0414
0415
",416
"417
11)418
0419
0420
0·21
16422
16423
0 4 24
\i425
k1426
0427
""28
f642 9
",.30
[6431
16.32
16.33
0434
",4;)5

PRINT NAME TASL.E

052000
S336. ",.7003
5J365 042111
fi3366 046'00
~33ei' 0!)00fjJ
b3370 042100
til371 ".3000
ti3372 051003
03373 05110 5
til374 046400
03375 052004
51376 043517
~3371 052117
53400 053 00 2
03401 04.506
534k12 itS.fi03
03403 ".3117
534 0 4 0e»10tt0
03405 055004
!;3.166 047105
~3407 054124
53410 056005
53411 1643517
53412 051525
f:j341J 041000
53414 057006
~3415 0511,,5
53416 052120
53411 051116
53420 061i"i03
~3421 0.2516
53422 0420014
53423 00100.
53424 0 5 1524
53425 047520
53426 1662 00 4
~l427 16.2101
~3430 1652101
53431 0 6 ;$00 5
Sl432 044516
~J433 ft)50125
53434 0 5 2000
53435 166400.
53436 ,,6110 5
53431 0405".
534416 065005
53441 1650122
53442 044516
53443 0 5 21600
53444 0660e7
53.45 051 UH;
~344e efH524
03441 041522
03450 16.2400
!)3451 06100J
~3363

otT
OCT
ASC
OCT
OCT
Aie
OCT
OCT
ASC
OCT
OCT
A8C

52frH.,14
.70f6J
1,01
46400
e000J

OCT
ASC
OCT
ASC
OCT
OCT
ASC

53002
1,lF
5400J
1,FO
51000
55",,,4
2,Nf.XT

DEF

1,UE
43"00
51003
1,RE
46.0"
520164
2,GOTO

OCT 560f65
ASC 2,G08U
OCT 41000
OCT 570~0
Ase J,RETURN
EOFOP OCT
ASC
OCT
OCT
ASC

DI"

REM

GOTo
IF
FOR

NEXT
QOSUB

RETURN

6 000 3
1,EN
420140

END

61016.

STOP

2,STOP

OCT 620~4
ASC 2,DATA

laSTS OCT 63k)f65
ASC 2,lNPU
OCT 52000
OCT 6."04
ASC 2,Rt.AO
OCT 6t5fHHS
ASC 2,PRIN

DATA
INPUT

READ
PRINT

OCT 52000

oCT 6616147

RESTORE

Ase 3,RESTOR
OCT 424016
OCT 61103

MAT

PAGE 0242
0436
~437

1d438
0439
1d440
"'441
0442
1/1443
,,444
10445

03452
53453
53454
e>3455
03456
03457
53460
!'>3461
03462
53463
~J464

~22

PRINT NAME TASLE

ro465~1

052000
1d70005
043111
1t146105
051480

0710"5
104 U5t"
1/148511
047£100
1072005
042516
1i152t05
051000
073001

53465
03466
03467
53470
53471 80(881)

ASC
OCT
OCT
ASC

1,MA
52000
7ld0(C)5
2,FILE

fILES

OCT 51400
OCT 71005
ASC 2,CHA!

CI1AIN

OCT 47000

OCT 728e~
Ale 2,ENTE

ENTER

OCT 51000
0446
0447
oCT 7.l0el
'IMPLIED'
lei448
OCT
0449.
0460 •• MISCELLANEOUS OPEfU TORS
84tH.
OCT 74002
Of
",452 53472 074002
0347J 047506
~453
ASe 1,oF
0454 53474 075004 THEN UCT 75004
0455 53475 052110
ASC 2,THEN
.!'>3476 042510
10456 03477 107601d2
OCT 76002
TO
1d457 035100 062117
ASC 1,TO
16458 !'>351dl 077004 STEp oCT 77004
1d459 535"'2 051524
ASC 2,STEP
5350;' 042~2fiJ
16460.
0461 •• PREDEFINED FUNCTIONS. BITS 13,,9 ARE USED
0462 ••
fOR INTERNAL IDENTIfICATION
046J.
TAB
OCT 1003
0464 53504 00100J TAl'
0465 53505 052101
ASC 1,TA
10466 53506 VJ41000
OCT 41000
OCT 2003
LIN
0467 5J512l 7 002003
~468
ASC 1, Ll
53510 046111
1i1469 5J511 047000
ocT 47..,""
SPA
0470 03512 003 0 03
OCT 30 0 3
10471 53513 VJ51620
ASC l,SP
10472
~3514 04*,400
oCT 4(1400
0473 53515 0WJ40f1t3 PROFS OCT 400J
TAN
ASC
l,lA
~474
03516 052101
~4/5
OCT 47000
53517 \14700~
10476 53520 t10501dJ
ATN
oCr 5003
16477 ~3521 ~40524
ASC 1,AT
OCT 47000
0478 53522 /(J4700kJ
EXP
10479
OCT 6003
03523 1606003
~480
53524 042530
ASC 1 , t.x
"'481 b3525 050"00
OCT b
LOG
OCl 7 1d0 J
"4 6 2 03526 007 00 3
ASC 1, LO
1d483 03~27 046117
/(J484 03530 ~43400
OCT 43400
1d485 53~Jl Vj10~"'3
OCT 1iU'IitJ
ABS

"

L~T

•
•

--

' ':' 1' "

•

••
••
•

~.(j£

k'486
~487

848ij
10489
~490

1d4~U

16492
16493
164g4
0495
16496
~497

10498
16499

~24lJ

53532
03533
b3534
03535
03536
oJ5 3 7
03540
03641
03542
03543
53544
53545
53546
03547

16588

535510

k'501
16502
1tJ503

b3551
b3552
b3553
03554
03555
03556
03557
035616
03561
SJ562
03563
0'3564
03565
03566
03567
03570
03571

~Oe4

10505

105106
10507
10508
105109
0510
10511
10512
10513
16514
",515

ra516
IcHH7
k'516*
10519**
~520*

11:)521
10522
10523
0524
0525
~526

0527
d52ij
052 9
0530
111531
05J2
0533
""034
1/1535

*22

PHIrH NA Mf:. TAtH.l:.

040502

ASC
OCT
OCT
ASC
OCT
OCT
ASc.;

0~14"16
01100~
051~21

0tHe80
912003
10 44 516
0520~""

O~T

013083
05 111 6
0421608
16141683
1051507
1047000
010 00 3
046100
1647ld90
016003
,,52131

OtT
ASC
OtT
O(;T
ASC
OCT
OCT
ASC
OCT
OCT
ASC
OCT
oCT
ASC
UCT
OCT
ASC
oCT
OCT
ASC
OCT
OCT
ASC

~50000

1046408

029003
1051511
8471008
10210t.iJ
041517
8514810
.,220,,3
.,41122
0454"0

MATRIX FUNCTIONS

536~3

~27k'03

53604 044516
53605 0530010
036~6 raJ8003
S36e7 052122
03610 i47if/HiJ

MATfS

'*
'*
OCT

SQR

51100~

128103

lNT

1,IN
52000
13003

1,kN

RNO

421000

1410103
1,S{I
470160
15 0 103
1 , L.t.
47000
161003
1,lY
500160
17ra03
1,T1
46480
20003
1,51
47910'"
211003
1,CO
51400
22003
1,Bfot
OCT 45400

017003
1052111

53572 02 4 80 3
53573 ~55105
03574 05100"
~3575 02500J
53576 04UH7
03577 0470016
bJ6010 0261603
536161 04450"
03e02 047880

1,AI;
5141i)0
11003
1,SQ

SGN
L.EN
TYP
TIM

SIN
COS
~RK

**

ASC
OCT
OCT
ASC
OC r
OCT
ASC
OC1
OCT
ASC
OCT
OCT
ASC

2 4 003

l,ZE

51008
251683
1,CO
47009
261003
1,10
470100
27003
1,lN

ZEfot
CO~

ION
INV

5J~00

3100i63

1,fR

OtT 47eliJi

TRN

b4ld01 000123

S

0005

540fc12 000104

D

16006

54003 ~00101
54004 177722
5 4 005 000111

,A
M4b

ORG
OCT
OCT
OCT
O(;T
DEC

"iJ

DEC 7J

~~~2
~ld03

1dt)04
0007

1d008
0009*
0010*
k1011*
i:HH2.
i,HH3.
IdkH4*
IiHH5*

'HtH6*

11017*
0018*
001~*

0020*
16021
0022
11:1023
0024
16025
0026

01627
0028
0029
0030

0031
16032
0033
0034
003f>
10036
003 7
16038
0039
1616416
0041
1c:1042
1c:I"'43
0044
0045

16046
01647
10048

004g
00SId
1d051

0052
1c:1053
0054
0055
1c:1056

!:)4la01d

54000 0160130

,X

540ld0jj
130
t2J
104
101
.. 46

THE ADDRESS OF TME fIRST WORD OF THE FORMAT
STRING IS IN (ij) UpON ENTRY,
THt FORMATTER
£XTRACTS THE NUM9ER OF CHARACT~RS IN THE STRING
AND THEN EXTRA~lS THE FORMAT SPECIFl(;ATIONS
UNE BY ONE, AS tACH SPECIFICATION IS EXTRACTED,
IT IS LOADED INTO A STACK, ONt CHARACTER PER
WORO AND CHECKED FOR SYNTAX ERRORS. THE
TYPE OF SPECIfICATION IS DET~RMINED AT THIS
TIME AND THE SPtcIFICATION IS THEN EXECUTED.
f'ROM THE STACK,
t>4 00 6
t>4007
54010
54011
54012
t>4013
t>4'U4
54015
5412116
54017
5412120
54021
5412122
0412123
b412124
t>412125
5412126
04 1212 7
5412130
54031
54032
541033
5412134
54035
0412136
54037
5412140
5412141
5412142
5412143
54044
54045
5412146
5412147
5405i:)
04051

075645
0061604
0ft:14066
044000
'1030164
071745
075761
075751

IWRMT S fa fC

INS

CLE,EI.6
AOB A
CMA,INA
STA CC
STa IfSTR
8T8 UP

LOB NCH

~65762

10121601212
02612127
161645
01121443
041745
071762
121121201213
027614
12102400
12171745
1071750
071645
071746

sze

fM0

~71747

12111765
12171766

STA PC2

~71650

0155410
102 H-J1
12161646
12115542
051751
021613
050425
12126055
121 5121427
.-;26055

JMP fM0
LOA fe,I
AND 6377
ADA CC
STA NCH
SZA,RSS
JMP FMENO+1
<:LA
srA CC
STA CONTR
STA Ee
STA eCI
STA CC2
srA PCl

fMT2

STA SfLG
JS8 USRCH
STO
LOA FST
JSB MCHAR
CPA OP
JMP FMENO
CPA ,+fSJB
JMP fMTl
CPA ,+558
JMP FMTI

SAVE POINTEM TO STRl~G
MAK£:. INTO
CHA~ACT£:.R POINTER
ADO IN STARTING CHARACTER
SAVE STARTING
CHARACTER
SAVE IN FORMAT STRING AODRtSS
AND DELIMITER PUINTER
MA"t:Jf

YES

NO, (,;UMPUTE •
OF CHAfUC TERS
l~ FORMAT
STRIN"
Nul.L S TF~ 1 NG1
YES, IGNORE IT
INITIALIZE
CHARACTER eUUNTER
CONTROL CHARACTER
ExPRESSION COUNTER
START OF PARfNTHtsls
START Ot PARENTHEsIs
REPETITION COUNT ~OR
RtPETITION COUNT FOR
STRING FLAG
DEI.IMITER St:.ARCH
IGNORE 8LANKS
GET THE
fIRST CHARA(;TfR
DELIMITER FOUND 1
yES

IS (;HARACTEH A PLuS?
YES
.
IS IT A MINUS ?
yES

LEVEL
LEVEL
LEVEL
LEVEL

1
2
1
2

PAGE 11)245 .23

FORMAT n.D OUTPUT kOUTJ,NE

0057
0058
0059
0il50
0061
0062

54 0 5 2 ,,5(21415
~405J 01212001

0063

ld71750

0064
0055
0066
0067
0068
0069
007121
012171
"072
0073
~074

0075
0076
0"77
0078
~079
~060

0061
0062
0063
0084
0085
0080
0087
0088
0~89

0090
"091

~092

0093
0094
0095
0096
0097
0098
0099
~1"0

121101
0102
"10J
0104
~105

0106
0107
0108
0109
0110
0111

~40f54

026100

54055
54056
54057
54060
54061

06 5 1 45
055182
115170

~4062

54063
~4064

t)4065
54006
54067
tt4070
54071
54072
54073
54074
54075
54076
54077
04100
ti4101
!)4102
04111,3
54104
54105
54106
54107
541 H~
04111
04112
5411 J
ti4114
04115
54116
b4117
ti4120
54121
0 4 122
ti4123
_ 54124
tt4125
ti4126
54127
0 4 130
04131
04132
541.53
04134
ti41J5
54136
b4137
54140

035646
061646
102101
015542
051751
002001
026073
103UH
12161151
015542
050426
002001
115171
035751
035746
065745
05~162

115170
061151
015540
00341'0
071752
1217t7e4
0020004
071763
071764
071170
1071'67

071142
071732
.,717JJ

002004
071776
061 76 0
0117'J7
061646
102101
015542
051151
1151 1 0
05e414
0020"1
026~77
06~7~1

0k')7004
045646
1tt45145
075146

FMT1

CPA ,+43b
RSS
JMP FMTJ
1..08 CC
CPS NCH
JEtS FERRS,1
STA CONTR
ISZ f 8T
LOA FST
STO
JS8 MCHAR
CPA OP
RSS
JMP FMT01

NO, IS IT A NUMt:!ER Sl&N
YES
NO
ENO OF
STRING 1
yES, ERROR
SAVE CARR, CONTROL CHARACTER
INCReMENT 8TRIHG POINTER

IGNORE ttLANK5
GEl N~XT CHARACTER
DELIMITER fOUHD 1
yES
NO, CHARACTER FOUND 1
GET
CI..O
LOA OP
Ttif
JS8 MCHAR
DELIMITER
FMT01 c.;pA ,+1548
ISlr A COMMA 1
RSS
YES
JSt:! FERRS+l,l NO, ERROH
lSz DP
INCRE~ENT DelIMITER POINTlR
AND CHARACTER COUNTER
IsZ Cf;
LOB CC
CP~ NCH
ALL CHARACTERS usED 1
JS8 FERRS,l
YES, ERP.OH
NO
LOA OP
JS8 05~CH
FINO NEXT DELIMIliNG CHARACTER
FMT3 CCA
INITIALIZE
STA DPFLG
FIXED FI..AG
STA EfL.AG
FLOATING fL.AG
INA
STA NUM1
P~ERDECIMAL. POINT 0 COUNTER
STA NUM2
POST~OECIMAL POINT tJ COU~TER
STA S611
S bEfORE 0 COUNTER
STA SAO
S AFTER 0 COUNrER
STA SNFLG
SIGN fL.AG
srA NIlO
POST-DECIMAL lERO COUNTEIo(
PRE.OEclHAl POINT OIGIT COUN1E
STA NeD
INA
srA REPeT
REPETITION COUNT
FORMAT STACK
L.OA IFSS
5TA FSP
POINTER
GET HON.DELiMITING
LOA FST
CHARACTER
STo
IGNORING BLANKS
JS8 MCHAH
CPA OP
Is IT A OELIMITER 1
JSB FERRS,I
YES
FMT4 CPA .+428
IS IT A QUOTE ?
YfS
RSS
JMP fMTtJ
NO
LOt) DP
RESt:.T
eM8,INS
.06 FST
Cl'iAMAClf.R
cOUNTER
A06 CC
8T8 CC

PAGE
0112
1f.l113
k'J114

1.1115
1.1116
1.1117
k'J118

0119
0120
"'121
1.1122
1(,)123
1£1124
1£1125
1f.l126
1rl127
1£1128
0129
ia130
1£1131
0132
0133
0134
0135
10136
0137
11138
1f.l139
1f.l140
1()141

0142
!d143
!d144
f(:l14!)
1()146

!d147
1f.l14ij

0149
t'.l150
0151
0152
1(,)153
0154
t'.l155
!d1S6
!d157
01!;ij
1f.l159
0160
1/1161
1f.l162
1.1163

~246

54141
04142
54143
54144
54145
04146
54147
5415!d
04151
04152
f)4153
54154
54155
54156
54157
54161(.1
54161
54162
54163
54164
54165
54166
54167
54170
54171
54172
54173
!>4174
54175
54176
54177
54200
5421£11
54202
54203
54204
54205
542"'6
54207
5421!d
54211
54212
54213
54214
54215
54216
54217
04221£1
54221
54222
54223
54224
54225
5422 6
5 422 7

#23

FORMATTED OUTPUT ROUTINE

035646
061745
05.1762
115172
035745
061646
11.13101
0 H5542
171767
035757
050414
002001
026141
035646
035745
061745
051762
026435
061646
1£171751
015540
061646
fd51751
1f.l264J5
102101
015542
061646
!d55751
026435
115171
052°01
026330
05043'"
026316
05072 0
026325
015264
026255
071776
035646
061646
t'.l51751
115173
102101
015542
!d51751
115 17 3
~15264

!d26243
061776
075776
10020!d
000364
041776
071776

FMT1t3 ISZ
LOA
CPA
JSe
liZ
LUA
CL.O
JSe
STA
ISZ
CpA
RaS
JMP
ISZ
ISZ
LOA
CPA
JMP
LOA
STA
JS8
LOA
CPA
JMP
STO
JSB
LOA
CPt;
JMP
JS8
FMT0 CPA
JMP
CpA
JMP
CPA
JMP
JS8
JMP
ST.
18Z

LOA

CPA

Jst;
STo
JSB
CPA
JS8
JSS
JMP
LOA
STB
MPy

FST
CC
NCH
FfRRS+2,I
CC
fST
MCHAR
FSP,l
FSP
,+428

FMT16
FST
CC
CC
NCH
FMT46

FST
OP
OSRCH
FST
OP
fMT46

DON'T IGNORE BLANKS
GET NEXT CHARACTER
LOAD CHARACTER ONTO STACK
INCH~MENT STACK POINTER
Is IT A " '1
YES
NO
INCReMENT STRING POINTER
AND CHARACTER COUNTER
ALL
CHARACTERS USED 1
YES

RESET

DE.LIMITt.R
POINTI:.R
NEXT CHARACTER
A DELIMITt:.R1
YES
IGNORE 8L.ANKS
MCHAR
FETCH A FORMAT STRING CHARACTER
wOULD IT /:;f:.
FST
A DI:.LIMITt,R 1
oP
FMT46
YES
FERRS+1,1 NO, t;RROR
IS IT AN S 1
S
FMT14
yES
.+~6B
IS IT A. '1
YES
fMT9
IS IT AN E1
E
yt:.S
FMT1J
IS IT A DIGIT 1
OI~CK
NO
FMT6
YES, STORE IN REPcT
REPel
INCREMENT STRING POINTER
FST
NEXT CHARACTER
FST
DP
A Oe.LIMITER 1
FERks+J,1 yEs, ERROR
lGNORE BLANKS
GET Nf:.XT CHARACTER
MCHAH
DP
IS IT A OtLIMITfR 1
FERRS+3,I
IS Il A DIGIT 1
DIGCK
NO
FMT~
yES,
REPCT
MUL.TIPLy PR~VIOUS
REPCT
.+12/:;
DIGIT By 10

ADA REPCT
REPCT

STA

INCREMENT STkING POINTER
AI,.L
CHAkACTEHS USED 1
YES, ERROR
INCRt.MENT CHARACTER CUUNTER

ADO IN ONES OIGIT

PAGE 0247 *23
lI)166
~167

0168
0169
0170
0171
0172
0173
lI)174
rU75
0176
0177
0178
0179
0180
0181
018 2
0183
0184
lI)185
0186
01 8 7
0188
0189
0190
0191
0192
tiU93
0194
0195
01 9 6
0197
01 9 8
0199
0200
0201
0202
0203
020 4
02l1)5
02 0 6
0207
0208
0209
lI)210
0211
0212
0213
0214
~215

",216
10217
021li
0219
0220

54230
54231
54232
54233
54234
54235
54236
54237
54240
54241
e,4242

FORMATTED OUTPUT

035646
061646
051151
115173
10~101

016542
0~11el

11,173
01~264

002001
115114
~4243 065716
54244 006003
54245 115175
54246 044752
54247 0""~021
54250 115174
54251 046005
54252 007 00 4
5425 3 175757
5 4 25 4 03 5757
~4255 052 00rJ
54256 026216
54257 052003
54260 026321
5111261 05 2 002
54262 002001
54263 026340
5426At 065752
~4265 006002
54266 026273
54267 065764
54270 0At5776
54271 075764
t)4272 026276
54273 065763
54274 045776
5427t5 075763
54276 0kl~404
54277 075770
54300 17 1757
5 430 1 ~~5646
5 4302 03 5757
54303 0616 4 6
54304 051751
54305 026313
54306 102101
54307 015542
54310 051751
b4311 "02001
54312 ~26177
54313 065757
54314 0/5755
04315 026343
b4316 035752

ROUTl~f

ISl FST
LOA FST
CPA Dp
JS8 FE~RS+3,I
STO
JS8 MCHAR
. CPA OP
JS8 FERRS+3,1
JS8 DIGCK
RSS
JSB FERRS+4,I
FMT5 LOB REPCl
sze,RSS
J88 FERRS+5,I

INCREMENT ITRING POINTER

~EXT CHARACTER
A Dt~lMITER ?
YES, ERRO~
IG~ORE 8LANKS

GEl NEXT CHARACTER
15 IT A DELIMI1E~ ?
THIRD DIGIT 1
ERROR

y~S,

ZERO?
YES
Aoe M73
NO, GREATER
sse,Rss
THAN 721
JSB FERRS+4,l YES
ADe .,73

FMT6

fMT7
FMT8

CMB,INS
5Ta FSP,1
ISZ FSP
CPA ,X
JMP FMl8
CPA ,A
JMP FMT10
CPA 0
RSS
JMP FMT15
LOB OPFLG
SZS
JMP FMT7
LOB NUM2
ADS REPCT
STe NUM2
JMP FMT8
LOB NUM1
ADe REPCl
STe NUMl
CLB,INe
ST8 REPCT
STA FSP,l
ISZ FST
ISZ FSP
LOA FST
CPA DP
JMP FMT08
STO
JSB MCHAR
CPA DP
RSS

R~pCT

RESTORE REpCl

SET NUMbER FLAG
LOAD ONTO FORMAT STA,K
INCREMENT STACK POINlER
18 NEXT CHAHACTER AN X 1
YES
IS IT AN A 1
YES
IS IT A 0 1
YES
NO
DPFLG • -11
YES

ADD HEPeT iO
~OST~OEtJMAL

DIGIT COUNTER
ADO REPCl TO
PRE.OECIMAL
DIGIT COU~TER
REINITIALIZE
REPCT
LOAD CHARACTER ONTO SlACK
INCREMENT STRING POINTER
AND STACK POl~TEk
NEXT CHARACTER
A DELIM1T~R ?
yES
1GNORf eLAN~S
GET NEXT CHARACTER
IS IT A DELIMITER?
YES

JMP fMTk'
f MT06

FMTi

LOa
STB
JMP
ISl

FsP
EST

FMT18
OPFLG

sET END OF STACK MARK
OPfLG • • 1 1

PAGE
0221
~222

10223
~224

~248

#23

FORMATTED OUTPUT ROUTINE

~4317

115176
b432d 0263.,,,
t>4321 "6665 0
~4322

0fU6003

0225

~4323

0226
0227

~4324

035660
026276

~4325

035754

022~

~4326

0229

54327
54330
54331
54332
54333
54334
54335

115177
0263(60
065763
046764

121230
0231

0232
0233

VJ234
0235
0236

006L'J03
035770

~4336

0657,10
006003
035767

0237

~4337

026J0VJ

0238
0239
0240

54340 050422
04341 027433
54342 115200

0241

~4343

1661760

1c'.l242

~4344

~243

~4345

0244

~4346

071757
003400
07 17 76

0245

b4347 041650
54350 002003

0246
0247

0248
10249
0250
0251

0252
0253
1Gl254
1c'.l255
0256
0257

54351 026f5ld0
54352 "'40350

54353 002021
t>4354 026502
54355 061763

t>4J56 041764
54357 002003
54360 ~26457

54361 015544
54362 027673
54363

1152~1

~43b4

0258
0259
0260

f(J71316
54365 071740
t>4366 015414

0261
10262
10263
10264
02 65
0266

54367 1c'171322
~4J70 061316
5437 1 002021

0267
1d26~

L'J269
0270
0271
0272
L'J273
10274
0275

54372 026414

06 0 4 2 7
54374 071266
~4375 007104
~437J

54376 06131 6
54377 0030fCItJ
~4400 002041

b44 01 026411
54402 002004

04403

1023~1

54404 026411
544°5 000065

JSt) FERRS+6,I
JMP fMT8+~
FMT10 L.DB SFL.~
SZS,RSS
fMT11 I8Z SFL.G
JMP FM18
laZ EfL.AG
JSB FER~S+l,I
JMP FMT8+2
fMT14 LOS NUMl
AOB NUM2
aZB,RSS
ISZ Sao
L.D8 SeD

sta,RSS
ISZ SAO

JMP FM18 ... 2
FMT15 CpA ,+508
JMP fM195
J8B P:'ERRS+8, I
fMT18 L.OA HSS
STA FSP
ceA
STA REPeT
AOA SFL.G
SZA,Rse
JMP FMT24
AOA ,-2
SSA,RSS
JMP FMT25
L.OA NUMl
ADA NUM2
SZA,RSS
JMP FMT20
JSB EVEXP
JMP FMEN!)
JSB FERRS+9,I
STA MANll
SlA NUMWl
JSB ,FL.UN
STA EXP
LOA MAN T1

SSA,RSS
JMP FMTJl
LOA ,+558

STA sIGN
CMB,CL.E,INe
L.OA MAN 11
CMA
SEZ,RSS
JMP FMT31"J
INA
50S

JMP FMT31 .. 3
CLE,E~A

NO
YES
IS SFL,G
yES, INCR~MENT IT
NO
EFL.A(; ... 11

NO

y~S

ANY O'S FOUND?
NO, INCREMENT 8EFOR~
ANY SIS ~EFORl A 0 ?

COUNT~R

NO, INCREMENT AFTeR COUNTER
Is CHARACTER A ( ?
YES
NO, IL.LE~AL. CHARACTER
REINITIAL.IZ~

STACK PUINTfR
AND
REPCT

SFLG

1

1

sFLG .. J

1

II

YES

YES
NO, ANY

0'5

FOUND ?
NO
EVALUATE EXPRES.ION
NONE fOUND
STING",.ERROH
If NUMBE.R
SAVf HIGN MANTISSA
UNPACK NUMBER
ANI) SAVE THE EXPONENT
IS THE NuMBER NEGATIVE "I
NO
YES, SET SIGN TO MINUS
ANI)
COMPL.EMENT

oVERt-L.oW fRoM
'"'ow MANTISSA 1
NO
YES, OVERFLOW fROM
HIGH MANTISSA "I
NO
YES, SHIFT RIGHT

PAGE 0249 .23

FORMATTED UUTPUl ROUTINE

16276

54406 160'581

VJ277
0278
0279
0280
13281
0282
0283
0284
16285
0286
0287
0288
ra289
1629"
1d291
1d292
0293
0.294

544k?7 035322
5441" 000130"
54411 071316
54412 {2I7174"-1
54413 026416
04414 060425
54415 071266
54416 075320
54417 1375741
54420 061322
54421 071651
04422 006404
54423 075645

~295

0296
0297
0298
1/)299**

04424 06076~
54425 011730
54426 061754
b4427 00200J
0443 0 027210
54431 061752
54432 002003
54433 02 7 047
54434 02 6 55 1

0300***

l63rtH **

031d2

1t"l303
1d304
0J05
"J06
°3 0 7
ra308
1d309
0310
0Jl1
0~H2

OUTPUT A

~44Jo 0617610
04436 071757
54437 161757
~444'" 050414
54441 02 7 3 32
54442 !do0;'7 0
54443 0c"'J6~
54444 05;aJ71
04445 01c1201tll
04446 026454
54447 060:375
54450 015454
54451 ",60367
04452 015454
0445J 1t102 4 00

0313
0314
raJ15
0316
0317 ~4454
"318 54454 015454
0319 54455 035757
10320 54456 026437
0321*.

0322 •• *

UUTPUT A

It"lJ2J**
0324
03 2 5
0326
0327
0328
0329

54457
54460
b4461
54462
04463
54464

033"

~4465

16 1 757
01c12ftJ21

026465
",71776

035757
161751
052000

ERe
ISZ EXP

ANO
aUMP EXPONENT

NOP
STA MANT1
STA NUMwl
JMP .+3
FMTJl LOA ,+536
STA SIGN
STa MANT2
STS NUMW2
LOA EXP
STA EXPW
CLB,INB
STB EC
L.OA IHB
STA HBp
LOA EFL.AG
SZA,RSS
JMP FMT62
L.OA OPfLG
SZA,RSS
JMP FMT45
JMP FMT;j0
LIT~RAL

STRING
L.OA
STA
LOA
CpA
JMP
CPA

SAVE HIGH MANTISSA
SET SIGN
TO PLUS
SAVE LOW MANTISSA

.*

***
**

IFSS
FSP
FSP,1
.... 421j
FMT90
'+1 6d
L.OA ,+128
CPA ,+17B
RSS
JMP FMT47
LOA +238
JSS OUTCR
L.OA .+158
JSe OUTCR
CL.A
FMT47 EQU •
JSB OUTCR
ISl FSP
JMP FMT46+2
BLAN~

SPECIFICATION

FMT20 LOA FSP,I
SSA,RSS
JMP FMT21
STA RE.PCT
ISZ FSfo'
LOA FSP,l
CpA .X

ANt) EXPO~t:.NT
StT E.XPRt:.SSlON
FUUND FLAG
HUL.OING BuffER
pOINTER
EfL.AG
sET 1
YES
oPFL.G
SET
YES
NO

RESET
STACK POINTER
TOP Uf STACK
A " ?

YES, DONE WITH THIS SPEC
IS IT A PSEUOO-LINE.FEE.O ?
YES, MAKE IT A LINEFEEO
IS IT ~ PSt:.UOO CARRIAGE RETURN
yES
NO
OUTPUT AN X.OFF
OUTPUT A
CARRIAGE RETURN
AND A NULL.,
NO, OUTPUT THE CHARACTER
INCREMENT STACK POINTER
NO

**
***
**
LOAD TOP OF STACK

IS IT
NO

A

NUM~E.R

?

STORE NUM8ER IN REPCT
INCHEMENT STACK POIN1~R
L.OAD NEw TOP OF STACK
Is 11 AN X ?
y~S,

t

PAGE 1(J250 #2J
~331
~332

0333
0334
0335
~336

0337
0338
0339
16340

FORMATTED OUTPUT ROUTINe.

04466 002001
04467 115200
b447~ 01553-4
54471 00340.,
54472 071776
54473 061757
54474 051755
54475 °27332
54476 161757
04477 026457

1tt341.·
0342.** OUTPUT A SHUNS
1tt34J*.
~344
54500
F"'T24
0345 04500 tH5544
54501 1tt27673
~346
0347 54502
FMT25
0348 04502 006405
0349 04503 115206
03~0
54504 07 5645
1tt351 54505 161757
1c:l 3 52 54506 002021
1tt363 54507 02651J
0354 04510 071776
0355 54511 035757
0356 b4512 161757
0357 54513 052000 FM126
0J56 54514 002001
035g 54515 02652'"
0360 64516 015534
0361 64517 026543
0362 04520 0520e3 fMT27
10363 54521 002001
0364 b4522 115201
10365 04523 035757
~366
FMT~!>
54524
0367 54524 015364
0368 54525 \161573
"'369 04526 050370
0370 54527 1060364
0371 b4530 050371
0372 64531 002001
0373 04532 026540
0374 04533 060375
16375 64534 015454
0376 54535 00 0 367
'11377 64536 015454
0378 04537 ~"240VJ
k'J37g 04540
fMT29
0380 04540 0154544
~381
54541 035776
10382 5-4542 026524
10383 b4543 0°34 00 FMT28
038-4 54544 071776
0385· 54545 1c:l61757

YES
NO, EkROR
fERRS+8,I
JaB
JSts OUT~L
CCA
REIN!TIALIZE
STA REpeT
REpCT
LOA FSP
END
OF STACK
CPA EST
YESJMP FMTg0
LOAD NEW TOP OF STACK
LOA FSP,I
J"" F"T20

RSS

••

.**

••

t:.QU

•

J8B EVEXp
JMP FMEND
EQU •

EVALUATE NEXT EXPRESSIoN
NONE FOUND

SET THE EXP~E8SION
CL.B,INa,R~S
J8B FERHS+14,I
FOUND FL.AG
STB EC
LOA fap,I
LOAD fOP OF SlACK
SSA,H8S
IS IT A NUMBE~ 1
NO
JMP FMT26
yES
STA REPCT
INCREMENT STACK POINlt.R
ISZ FSP
LOAD NEw TOP OF STACK
LOA FSP,!
CpA ,x
IS IT AN x 'I

yES

RSS

JMP
JSB
JMP
CpA
RSS
JSB
ISz
EQU
J8B
LDA
CPA
LOA
CPA
Rsa
JMP
LOA
JSB
LDA
JSB
CLA
tQU
JSB
ISZ
JMP
CCA
STA
LDA

fMT27
OUTsl..
FMT28
,A

NO

Is IT AN A 1

yES

FERRS+9,I NO, ERROR
FSP
INCRfMENT STACK POINTER

•

FSCH
BLANK
,+16B
,+12 6
,+176

FETCH STRING CHARACTtR
NO, FETCH A SLANK
IS IT A PSEUOO.LINEFttO ?
yES, MAKE IT A L.INEFtED
IS IT A PSEUOo CARRIAGE RETURN 1

FMT29
,+2J8
oUTeR
,+15 B

NO
OUTPUl AN x.OFf

OUTC~

•OUTCR
REPeT
FMUJ5

REPeT
fSP

YES

OUTPUT A
CARRIAGe:: RETURN
ANO A NulL,
OUTPUT CHARACTER
REPel USED UP '1
NO
RflNITIALlZE
R!PCT
tNO IJf

PAGE 0251 #23
~386

~387

FPRMATT~D

~4546

051755
54547 027332

OUTPUT ROUTINE

CPA EST
JMP FMT90
JMP FMT25

STA(;K 1

0388 ~4550 026502
16389..
0390*.. PREPARE AN INtEGER fOR UUTPUT

NO
••
* ••

0391**

**
INITIALIZE
PRf.OtCIMAL POINT
DIGIT COUNTER

0392

04551

0"249~

1d393
0394
16395
0396
0397

54552
54553
04504
54555
04556
54557

071324
003400

039ij
0399
0400
0401
0111"2
16403
0404
0405
0406
0407
0408
0409
0410
\'J411
0412
0413
0414
0415
0416
k'417
~41ij

0419
0420
0421
~422

0423
0424
0425
tc:l426
16427
0428
0429
0430
0431
0432

~4560
~4561

54562
04563
54564
54565
54566
54567
54570
54571
54572
54573
54674
54575
54576
54577

~41J22

002021
026565
060432
171730
0~5130

003400
071735

026!576
1615530
071324
071735
015424

040432
171730
035730

1IlI35324
02tH570
\')61763

04\735
54600 06e77f6
546fc)1 k145167
006002
54603 026612
54604 065266
54605 1d54425
5 46 06 026612
54607 040351
b461k'.l 006404
546~2

54611 0 7 5742
54612 0020216
~4613 027570
54614 1d71734
54615 015532
!:S4616 002001
~4617

027570

54620 064760
54621 075730

fMT30 CL.A

srA E.XPON
eCA
AU A t XP
SSA,RSS
JMP FMT32
LOA ,+608
STA HBp,l
IsZ HBP

CCA

srA NHBW
JMP FMT3J
FMl32 JSB DlLl
STA EXPON
STA NHew
JiB GETOG
ADA ,+608
srA HBp,1
IsZ HBp
lSZ EXPUN
JMP FMTJ2+3
FMT33 I..!)A NUMl
ADA NHBW
LOa SBO
AOB SAD

EXPONENT ZERO OR NEGATIVE 1
NO
yES, 1..0AI) A
ZERO
INCREMENT BUfFER POINTER
NUMBER of BUFfER wORI)S
IS ONt:.

SAVE NUMBER
OF DIGITS
GET tHGIT

CoNvERT To AsCII
STORE IN HOL.O BuFFER
AL.L 1.>161T5
FOUt~1.>

SZ8
JMP FMT43
L.I.>B SIGN
Cpb ,+03B
JMP FMT43

ADA ,-1
Cl.B,INS
STB SNfL.G
SSA
JMP FMT80
STA NSLK
JSB ROUND
H8S
JMP FMT80

lOB IHB
8Tti H8P

YES
NO,

54622 161 7 5 7
54623 052 00 1

0438
0439
f644tc:l

54624 00211'01
54625 026645
54626 035757

FMT34 \..0 A FSP,I
CPA S
RSS
JMP FMT36

ISZ FSP

POSITIvE ?

NO ROOM fOR CARRY fROM ROUND
REINIllALIZE
HOL.D BUfFf:.R POINTEH

UUTPUT NUMeER FRUM HOLDING 8UFftR

16436
0437

NU~BER

Yf:.S
NO, SAVi:: ROOM
FOR
PRINTING SIGN
NUMBEH O~ BLANKS NEGATIvE?
YES
NO
ROUND NuMtiE~ IN bUfffH

d433 ••
0434***
16435**

?

NO
COMPUTE NUMBER Of
I..t:.AVING BLANKS
ANY SfS
FOUND?

*.

***
LOAD **
TOP OF FORMAT SlACK
15 IT AN 5 7
YES
NO
INCR~MENT STACK PUINTEH

PA~E

fd441
0 4 42
0443
",444
0446
",446
0447

",448

0449
1d450
fd451
0001
0002
01603
0004
fd"05
0006
0007
10008
0~H/J9

0010
0011
fd012
0013
liHH4

fdld15
0016
0ldl7
0018
01d19
002"
0021
0022
0023
fd024
0025
0026
10027

0028
0029
0fd30
IdIdJl

0032
0033
0034
",,,,.55

0036
fa037
0038
0039
0040
fdIQ41
0042
0043
0044

0252 #23

fORMATTED OUTPUT

64627 061742
54630 002002
54631 026777
54632 1c165770
04633 006002
04634 V?26642
04 635 061266
54636 1315454
54637 060354
5464 0 1c171742
54641 026777
54642 fd07400
54643 075742
04644 026622
54645 002021
54646 0266e2
54647 071776
64650 035757
54651161757
54652 052000
54663 002001
04654 026661
04655 015534
54656 1c103400
04657 071776
54660 026777
54661 052002
04662 002001
04663 0267e3
04664 035757
546e5 003400
54666 041734
54667 002020
04670 026617
54671 061573
54672 015454
54673 0074~H"
04674 ",45734
54675 075734
54676 1026746
54677 061734
54700 0020210
04701 026713
04702 0~3400
04703 071734
54704 00740"
547",5 1655742
04706 026717
04707 1c145742
04710 006003
54711 fd26746
04712 026723
54713 007400
54714 045742
54715 0060,,2

~UuTINE

LUA SNFLG
SZA
JMP FMT5P
LOB SSO
Sze

JMP FMT35
LOA SIGN
JIB OUTeR
lOA .+2
STA SNFL.G
JMP FMT59
FMT35 eea
STB SNFl.G
JMP FMTJ4
FMT36 SIA,RSS
JMP FMT"6
STA REPCT
ISZ FSP

LOA FSP,I
FMrfd6 CpA .X
RSS

JMP FMTJ7

J8B OUT81..

eeA
STA REpeT
JMP FMT59
FMT37 CPA 0
R8S
JMP FMT57
laz F8P
ceA
AOA NBLK
S8 A
JMP r MT/tJ7
LOA alANK

Jsa OUTeR

eee

SNFL.(;

NO, OUTPUT SIGN

IMMEDIATEl.Y

SET SNFl.G TU 2

SET SNFL.G TO .. 1

TOP OF STACK A NUMBEA 1
NO
yES, STORE IN REPeT
INCHeMENT STACK POINTER
LOAD NEw TOP OF STACK
IS lOp AN X ?

YES
NO
~EINITIAI..IZE

REpeT
TOP OF STACK A 0 1
VES
NO
INeH~MENT STACK POINTER
NUMBER OF Bl.ANKS >

NO
YES, OUTPUT A
BI..AN~

OEeHEMfNT

JMP FMT4"
FMT,,7 LOA NBlK
5S A

JMP fMTfS6

eee

BLANK

COUNT
NUMBt.R OF BLANKS
LoEsS THAN ZERO 1

YES
NO, DECREMENT
BLANK COUNT

N~lK

CPB SNFl.G
JMP FMT"'2
ADS SNflr;

SZ8,RSS

SNFL.G ... 1 ?
YES

SNFLG .. 1 ?

JMP fMT40

YES

JMP FMTts8

NO

FMT5t5 cea

0 ?

YES

ADB NBlK
8T8 N8L.K

eeA
SlA

til

NO, IG~ORE THt 8
yES, ANY s's BEFORE A 0 1

A08 SNfLG
8Z8

SNFL.G • 1 ?

~

1

PAQE 0253 *24
01645
16046
0rtJ47
161648
004g
160516
16051
0052
0053
0054
01655
0056
0057
0058
0059
160 6 0
0061

0062

006J
ItHt>6 4

160 6 5
0066
0067
01668
1606 9
01670
0071
0072
16073
0074
0075
0076
16077
16878
01679
0080
0081
0082
00 8 3
0084
0085
0086
0087
0088
16089
016 9 16
0091
16092
0093
0094
009 5
0096
0097
8098
0099

FORMATTED OUTPUT ROUTINE

64716 026723
~4717 0 6 1266
~4720 01!l454
b4721 06B354
b4722 VJ71742.
54723 0616760
b4724 040430
04725 051730
!)4726 1626777
54727 161730
54730 015454
04731 035730
b4732 061754
54733 002002
54734 026746
04735 002404
54736 051752
54737 026746
54740 rtJ03400
~4741 041324
04 7 42 16 4 76'"
54743 054432
04744 002400
54745 1671324
54746 rtJJ5776
54747 026665
b4750 003400
04751 071776
b4752 026777
~475J 066752
54754 0060~2
04155 02100l
54756 050430
54757 002001
04760 027003
54761 035757
54762 065742
54763 006020
0476114 026770
04765 01144351
54766 006002
54767 026774
54770 061266
54771 015454
54772 060354
b4773 071742
b4774 060430
54775 015454
04776 035752
04777 061757
05000 051755
550.,1 027332
~5002 026622
05003 035757
55004 01'45.

JMP FMT56

FMT02 LOA SIGN
JSB OUTeR
LOA ,+2
STA SNFLG
fo·MT58 LOA IHB
AOA ,.4b
CPA H~P

NO
VES, OUTPUT
SIGN AND
SET SNFLG
TO 2
ENO
0"-

ijUffE::R 1

JMP FMT59

LDA HBP,l
JSti OUTeR
ISz H~P

LOA EFLAG
SZA
JMP PMT4"
Cl.A,INA
CPA oPfl.G
JMP FMT40

eeA

ADA
LOB
cPa
CL.A
srA
FMT40 ISZ
JMP

ceA

EXPON
IH~,x

,+60B
EXPON
REPeT
FMT37+4

STA RepeT
JMP FMT59
FMT57 LOB OPFLG
SZB

JMP FMT42
CPA ,+56B
RSS

JMP FMT42

ISZ FSP
LOB SNfLG
SsS
JMP FM00

ADB ,.1

SZB

JMP FM"1
LOA SIGN
JSB OUTCR
LOA ,+2
STA SNfLG
F "101 LOA. +568
JSij OUTCR
ISl OpFL.G
fMT59 LOA FSP
CPA EST
JMP FMT90
JMP FMT34
FMT42 Iel FSP
JSe OUTeR

FM00

OUTPUT A
DlGIT
INCREMENT ~CLD BUFFER POINTER
IS THIS A
FLOATING POINT sPECIFICATION
NO
VeS, HAS THE DECIMAL POINT
BEEN FOUND YET ?
YES
NO, DECREMENT
DECIMAL
IS fHE
NUMBER ZE~01
YES, ZERO EXPONENT
t:,XPONENT
RePCl • 0 ?
NO
YES,REJNITIALIZE
REpCT

1

FIXED POINT
SPECIFICATION 1
NO
TOP OF STACK A DECIMAL POINT 1
YES
NO
INCREMENT STACK POINTER
SNFLG • .1 1
YES
NO, • t 1
NO

YES, OUTPUT

SIGN
sET SNFl..G
TO 2

OUTpUT
DECIMAL
INCRtMENT
END Of
STACK
YES
NO
INCREMENT
OUTPUT AN

PUINT
FLAG TO SMUh D.P, FaUN

STACK POINTER
E

pAGE W254 *24
~100

1.1101
0102
~103

kl104
0105
0106
0107
0108
0HH~

ldl10
~111

0112
0113
W>114
t1115
0116

0117
0118
1.1119
"120
ftJ121
1d122
0123
0124
"125

01 26
1d12]
012a
CrH29

"130
0131
0132

FORMATTED OUTPUT ROUTINE

55005 ld61751
55006 051755
~5007 w.t2702tS
05010 161757
~5011 002021
tS5012 027016
55013 0 3 5757
55014 (671776
o5~H5 161757
55016 05200w.t
551d17 ~0201dl
55020 115177
b5021 015534
55022 "tt3400
05023 071776
55024 027000
55025 060427
55026 065324
~5027 006020
55030 0w>7005
55..,31 060425
55~J2 075324
51:>033 015454
55tt34 061324
55035 006400
e)5036 1004011:9
55037 000364
05040 040432
05041 044432
55042 075324
55043 015454
55044 \'J01324
55045 015454
55046 027332

0L'3**
1613.***
0136

051047 002400

~137

550510 071324
550~1 071732
0512152 051322
55053 027161
55054 if}65322
051655 "'%20
05056 027156
05057 015530
ob060 071324
55061 V)7173J
55062 015424
55063 040432
55064 171730
55065 035730
5512166 035324
05067 027062
5512110 ~65764

0140
"141
0142
0143
0144
0145
0146
0147

16148
0149
0150

0151
11)152
0153

END Of
STACK?
YES
NO, TOP OF
STACK A NuMttER 1
NO
YES, INCREMENT STACK POINTfR
STORE NUMBER
GET NEW TOP Of STACK
IS IT AN X 'I

CPA EST
JMP fMT16
LOA FSP,I
SSA,RSS
JMP FM02

ISl

FSP

STA REPeT
LOA FSP,I
FM02 CPA.X
yEs
RSS
J8B FERRS.',I NO, ERROR
Je8 ounst.
ceA
RESET
REPeT
STA REPeT
JMP FMT76
OUTPUT
FMT78 LOA ,+558
Lt>e ExPON

sse

CM8,INB,HSS
LOA ,+'38
5T8 EXPON
JSB OUTeR
LOA EXPON

fXPONt',NT

Sl&N

eLa

COMPUTE

DIV ,+126
EXPQNfNT'S

AOA ,.6i'B
AOS ,+61OB
SfB EXPON
JaB OUTeR
L.OA EXPON
J8B OUTCR
JMP FMTi0

PRfPARf FIXED POINT NUMBER

16135**
0138
kH39

fMT7 6 LOA FSP

FMT45 CL.A
STA
STA
CPA
JMP

ExPON
NAO
ExP
FMT61+J

L08 EXP

sse

JMP FMT61
JS8 DTLI
Sf A EXPON
STA Nap
FM0J Jse GfTD"
AOA ,+608
STA Hap,I
lSZ HaP
ISZ EXPON
JMP FM03
FMT50 LDB NUM2

U,.S DIGIT
OUTPUT IT

OUTPUT ItS DIGIT

**
***
**

SET PRE-UECIMAL POINl
DIGIT COUNTER
ZERO COUNTER
ZERO ExPONENT 'I
YES
NO
t'.XPONtNT NEGATIVt
vES
L.OAL>

PREwDECIMAL POINT

01GITS
INTO
HOLD
BUFfER
ANY IH S Af TER

PAGE 0255 .24
0154
~155

0156
16157
161 5 8
0159
,U60
0161
0162
~16J

01 64
0165

0166

0167

FORMA1T~O OUTPul ROUT1N~

5~071 006003
55072 027120
55073 060760

55074 040430
5507 5
55076
55077
55100

051;730
027U6
065732

2102400

5~101 006\121'"
55102 0271216

tl5103 044351
551 0 4 07573 2
55105 0022101
MH06 015424

016S

5~107

0169

551121 1711321
55111 0074 021

0170
0171

0172
0173
0174
0175
0176
0177
~178

0179
0180

0181
0182
018 3

0184
0185

0180
0187

~404J2

55112 045764
55 11 3 ~75764

55114 03573 0
55115 027071
55116 061764
55117 0°3 00 4
55 120 071776
tl5121 015534
55122 21034210
55123 1671776
55124 041757
~5125 071757
55126 061733
55127 041763

55130 065770
55131 045767

rtHB8

55132 0216002
55133 027142

0189

55134 065266

16190

55135 054425

0191
01 9 2

55137 0 4 0351

0193
16194

°1 95
0196
019 7

01 98
1(3199

020tr:)
0211J1

k:l202
0203
fc:)204
0205

0206
0207
02 0 8

SZB,HSS
JMP FMT51
LOA IHe
ADA ,+4b
CPA Hap
JMP FMlc'J4
LOB NAD
CLA
SZ8,HSS
JMP .+4

Ave ,-1
STB NAD
RSS
JSB Gt.TDG
ADA ,+60~
STA HSP,l
eea
AOB NUM2
STa NUM2
ISZ HSP
JMP FMT50+1
FM04 LOA NUM2
CMA,INA
STA REPcT
JSB OUTBL
CCA
,~,
STA REPeT
AOA FSP
STA FSP
FMT51 LOA NBD
AOA NUMl
LOB 580
AOB SAD
SlB
JMP FMTo4
LOB SIGN
eps ,+5JB
JMP FMT54

Of;.(;lMAL POINT 1
NO
E~D

OF
BUFFER 1

YES
L.EAUING
ZEROE.S
AfTER
DECIMAL.
POIN-:'

YtS
LOAO
POINT
DIGITS
INTO
HOLD
BUFfER

POST.OECIM~L

OUTPUT BLANKS
TO
FILL fIt-LO
RE ilN·l TI AL.Iz t.
REPeT
CORRtCT
STACK ?OlNTt:.R
COMPUl NUM8t:.R
Of LEAUIN~ ~LANKS
ANY SIS
FUUND 1

55140 V,lk;6404
55 14 1 0757 4 2
551 4 2 002 0 2 0
55143 027570
55144 071734
55145 007400
55146 045732

eLB,lNB
STB SNFLG
FMT54 SSA
JMP FMT80
sTA NBLK
NAD

YE.S
NO, NUMBEf<
POSITIVE '1
YES
NO, LEAVE ROOM fOR
SIGN TO BE PRINTED AND
SET SNFL.G TO 1
NUMBtR OF ~LAN~S NEGATIVE 1
YES
NO,
NEXT DIGIT A
Lf.AOING ZERO 1

551521 015532
55151 002001
55152 027570
55153 060760

ROUNO

NO, ROUND NUMBER

FMT80
IHB
HBP
FMTJ4
MTGl

NO ROOM FOR CARRY FRUM ROUNO
RfSET HOLD
SUFFER POlNTER
GO OUTPUT T~E NUMSEH

~5136

027142

55147 006020

~5154
5515~

071730
026622

55156 1!l15526
551 5 7 061324

ADA ,-1

ceB

Aoe
SSB
JS8
RSS
JMP
LOA
STA
JMP
fMT61 JS8
LDA

EXPON

PAGE
0209
(621 0
0211
11)212
0213
0214
0215
0216
11)217
0218
0219
0220
0221
0222
"'223
0224
11) 22 5
0226
1c1227
0228
0229

"'230
0231
0232

~256

#24

FORMATTEU UUTPUT RQUT1Nt

~5160 071732
ti5161 06676J
55162 006003
t:i5163 027070
~5164 061764
55165 002"'03
55166 027201
!)~167 05435 3
55170 002001
05171 027201
!)5172 ~61707
~5173 ",41171d
~5174 011'2002
05175 027201
!)5176 061266
05177 050427
55200 02 7 0 7 0
55201 0 6 0432
55202 171730
05203 035730
55204 0034016
55205 04176 3
0!)206 11)71763
55207 027070

",233**
11)234***

0246
0247

0246
0249
0250
0251
0252

0253
"'254

0255
"256
02 57

0258
11)259
0260

0261
0262
0263

JMP FMT50

LOA NUM2
SZA,RSS
JMP fMT55
CPS .+1

RSS
JMP FMT55

LOA SAO
ADA SeD

55211 07132~
55212 051322
!)5213 027216
55214 015526
55215 015530
55216 003004
55217 071324
55220 11)61763
55221 ~41764
55222 071743
55223 0b177"
55224 041767
55225 002002
05226 027246
55227 11)61266
5523t' £150425
!)5231 027246
55232 0074 00
05233 ~45763
05234 00602.,
55 23 5 02757 0
05236 075763
55237 003400
55240 .,41743

05241 ~7174J
55242 002003
55243 11)275116

ANY D'S FOUND
BEFORE THE DECIMAL POINT 1
NO
YES, ANY D'S FOUND
AFTER TH~ O~CIMAL POINT 1
NO
YES, ONLY ONE·OF THEM 1
NO
YES, ANY S'S fOUND 1

SZA

JMP FMT55

LOA sIG~
CpA ,+558
JMP FMT5 0
FMT55 LOA .+6ft)8

srA HBP,I
lSZ HSP

CC;A

AOA NUMl
STA NUM1
JMP PMTI"

PRtPARE FLOATING PQIHT NUMBER

0235**
0236 5521'" 002 4 00

0237
02J6
1.1239
0240
"241
0242
0243
(()244
(6245

srA NAD
LD8 NUMI
Sl8,RSS

FMT62 CLA

srA EXPON
CPA EXP
JMP *+3

YfS
NO, NUM8ER
NEGATIVE 1
Y~S

NO, LOAD PRf.D~CIMAL POINT
ZERO INTO BUFFeR
DECREASE NUMBER OF
D'S AVAlLA8LE FOR SIGN
AND 8LANKS 8~FORE OECIMAL PT

.*

*.*
**

INIfiALIZE DECIMAL
EXPONENT
ZERO EXPONENT ?
YES

Ja8 MTG!

JSB DTL1
CMA,INA
STA EXPON
LVA NuMl
AOA NUM2
srA TOTOG
LDA 860
AOA SAO
SZA
JMP FMT67
LDA SIGN
CpA ,+53B
JMP FMT67

ece
ADB NUM1
sse

JMP FMT80

5T6 NUMl

CCA
AOA TOT06
srA TOTOG
SZA,RSS
JMP fMT80

SAVE DECIMAL EXPONENl

GET
TOTAL NUMBEH
Of' 01GIT8

ANY

ses FOUND 1

YES
NO, NUMBER
pOSlTIVf;. '1

YES
NO, LEAVE ROOM
FOR sIGN
NONE 'I
YES
NO, DECREMENT
TOTAL NUMBER OF D'S
AVAILABLE ~OR SIGN
AND BLAN~S BEfUHE DEC. PT.

PAGE
0264
10265
0266
10267
10268
0269
0210
0271
~212
027~

10214
0275
10276
10277
0278
0219
fd280
0281
0282
0283
0284
0285
0286
fd287
fd288
0289
02910
0291

0292
fd29J

ta294
0295
0296
0297
02 98
0299
fd30fd
0301
0302
0303
0304
03215
03216
fd307
10308
0309
0310
taJ 11
0312
0~13

ta314
10315
0316
0311
14318

~a57

55244
55245
55246
55247
55250
55251
M,252
55253
55254
55255
55256
55257
55260
55261
55262
55263
55264
55265
55266
55261
55270
55271
55272
55273
55274
55275
55276
55277
55300
553101
55302
553K>3
55304
55305
55306
55301
55310
55311
55312
55313
55314
55314
55315
55316
55317
5~321r:1

55321
55322
55323
55324
55325
55326
55327
55330
ts5331

*24

fORMATTED OU1PUl HOU1INE

006404
075142
061164
00J004
064360
044000
00602'"
027213
061743
040342
002020
027265
064343
075744
002004
071134
021314
061143
003004
071744
006400
075734
027314
065763
0060102
040351
011744
006002
044351
075734
061744
040430
0102021

027314
071716
015534
041757
1071757
062004
071744
0034210
071770
015424
040432
171730
035730
035744
027314
015532
0fd200i
027fS70
060760
07\730
026622

CL.S,INe
STB SNFL.G
FMT67 L.OA NUM2
CMA,INA
LOB ,.6

SET SNFL.G
TO 1
NUM2
> 7 '1

AOS 0
SS~

JMP FMT70
LOA TOTDG
ADA ,-108

YES
YES, TOTAL. NUMBER OF D'S
> 7 1

SSA

JMP FMT68
L.OB ,.7
sTI3 OCTR
INA

STA NBL.K
JMP FMT72
FHT68 L.OA TOTOG
CMA,INA
sT" OCTR
CloB
8TB NSL.I(
JMP FMT72
FMT70 L.Db NUM1
SZB
ADA .,,1
STA OC1R

sle

ADS ,-1
STe NBL.K
L.OA DeTR
ADA .+46
SSA,RSS
JMP FM172
8TA Rf.PCT

NO
PREpARE TO GET
S~VEN

OlG,ns

NUMBER OF 6L.ANKS
I3E~QMES TOTOG " 7
PREPARE TO GET
TOTOG DIGITS
SET NUMBER of BLANKS
TO ZERU
ANY D'S BEFO~E
DE.CIMAL. POINT 1
yES, INCREMENT NUMBER Of Ol~ITS
PREPARE TO GET NUM2 DIGITS
SET
BL.ANK
COUNT
MO~E THAN
FOUATY-SIX
DIGITS Nct:.OED '1
NO
YES, OUTPUT NECESSARY 8L.ANKS

JS8 OUTSL.

ADA FSP
S'fI~ FSP
L.OA H416
STA OCTR

FMT72 EQU

ceA

STA
JSB
ADA
STA

*

REPel

REINITIH.IZE

REPeT

GETOG

• +61(H~
HBp,l

Isz Hep

lsI OCTR
JMP FMT72

JSe ROUND
RSS
JMP
L.OA
STA
JMP

CORRECT
STACK POI'~TER
SET OCTR
TO 46

FM180
IHB

Hep

FMT341

CoNVERT TO ASCII
STORE IN HOL.D BufFER
INCREMENT BuFfER POINTER
AL.L U1GITS ~OT 1
NO
,
YES, ROUND THE NUMSER IN

~UFFER

NO ROOM FOR CARRY FROM ROUNU
RESET
BuFFER POINTER

PAGE

~2~8

0319.*
~320...

0024
0025
0026
0027
0162~

0029
0030
0031

FORMATT~O

OUTPUT

ROUTIN~

HANDLE ENO Of SPECifICATION

0321.·
0322 55332
0323 55333
0324 55334
0325 5533~
0326 55330
0327 55337
0328 55340
0329 55341
0330 55342
0331 55343
0332 55344
0333 5534~
0334 55346
0335 55347
0336 55350
0337 55351
033 8 55352
0339 55353
0340 55354
0341 !j5355
0342 55356
0001 !j5357
~002
55360
0003 55361
0004 05362
""0e 55363
0006 55364
0007 55365
161608 55366
100109 55367
553 7 0
~010
0011 55371
1d012 55372
0013 55373
0014 55374
"015 55375
0016 !j5376
0017 55377
0018 55400
i(HH9
55401
002VJ
55402

0021
01022
0023

#24

002400
071650
061745

FMT9" CLA
ST~

051762

SFLij
LDA CC
CPA NtH

002001

RB8

027357
061746
002002
115202
065645
0166003
027673
06e753
00600"
027673
002400
071645
071745
et61761
071751
026,,40
061751
103UH
0HH542
050423
027470
071731
05042b
027373
°5°431
002001
115111
015536
035745
061745
051762
027424
fb35751

JMP FMT92
fMT09 LOA eCI

J"'
CLA

STA
STA
LDA
STA
JMP
FMT92 LDA
CLO
J88
CPA

JMP

STA

CPA
JMP
CPA
RSS

Jle

fMT93 JS8

ISZ
LDA

CpA

JMP
ISZ
JSB
STO
LOA
JSB
cPA

~15540

102101
~61646

tl15542
55404 051751
55405 ~02001
55406 027415
55407 061745

RSS

051762

55411 027424
55412 061751
55413 103101
55414 ~15542
5541b 0504414

.*
STRING fLA'
ENF Of
FOHMAT STRING 1
YES
NO

yES, PARENTHESIS
SZA
8ALANCED ?
J8B FERRS+10,I NO, ERROK
FMT91 Loa EC
ANy ExPREssIONS
Sie,RSS
USED 1
JMP 'MENO
NO
L08 foSTA
fHO OF
Sza,RSS
STATEMENT 1
'M!NO
YES

~540J

55410

••

•••

FM11

yiS, CLfAR EC

fC
CC
IFsrR
DP
f'MT2

KESEl

OP

GET THE

DELIMIT~R POINT~R

OELIMITING CHARACTtR
NUT IGNORING 8LANKS
.+51~
IS If A Rl~HT PAHfNTHESlS
FMT97
YES
LCH
NO, SAVE THt CHARACTER
.+64~
18 IT A COMMA?
FMT9J+l
YiS
,+57~
18 IT A SLASH 1
YES
FfRRS+l,I NO, ERROR E~lT
OUTet.
CC
INCRtMENT CHARACTER COU~TER
CC
ALL CHARACTERS
NtH
usED 1
FMT94
YES
OP
INCREMENT DELIMITER POINTER
OSRCH
FINO NEXT DELIMITER
lwNORE BLANKS
FST
"CHAR
NEXT CHARACTER
oP
IS IT A O~LIMITER
YES
FMll
NO
CC
ALL CHARACTERS
NCH
usEO 1
FMT94
YES
OP
NO, GET OELIMITING
MCHAR

JMP
LOA
CpA
JMP
LOA
CLO
JS8 MCHAR
CPA ,+54

CHARACTER
I~NORIN~ BLANK~

IS IT A COMMA

PA~E

~259

#25

FORMATTED OUTPUT ROUTINE

0033
10034

5541 (j l1tH7.,
el5411 050431
55420 021424

t'J03~

~5421

0036
0031
0038
0039
0040
0041
0042
0043
0044

!:>5422 027410
~542J 026105
!S5424 061731

k"C'132

Jsa FERRS,I
CPA .+578

JMP FMT94

050423

CPA ,+eHS
JMP FM197
FMT94

55425 05 0 4 2 6

55426 115170
5~427 061745
55430 051162
55431 02 7 34",
55432 027372

0045.*

0046*.. HANDLE GRUUPS UF
10041**
1r1048 55433 00340\1 FMT95
0049 55434 (,141757
0050 55435 051760
00~1
55436 002001
0052 55437 115203
0053 !'>5440 061746
0054 55441 002002
0055 55442 021454
0056 55443 035646
0057 55444 0034~0
0058 55445 ",41761
0059 55446 003000
0060 55441 041646
0061 55450 071746
0062 55451 065776
0063 55452 075765
liH,64 55453 02 6 105
0065 55454 061747
0066 55455 002002
0067 55456 115204
0068 55457 035646
0069 55460 003400
0010 55461 041/61
0071 55462 003 000
0012 55463 !d41646
0073 ~5464 07 17 47
0074 55465 065716
0075 55466 07 5 766
0076 55467 026105
0077 55470 061766 FMT91
0078 5~411 01r!12W0J
0079 55472 02i'e30
0080 55473 04 iJ3 e1
t'J081 b5474 16717 66
0082 55475 002003
0083 55476 021,o5
0084 55477 065147
0085 55500 07~745
0086 55501 1r!146761

JMP FMTJ
LCH

l.DA
CPA
Jet;
LOA
CPA

,+54 6
F'ERRS, I

CC

NCH

JMP FMTIt)9
JMP FMTYJ

SPECIFICATIONS
ceA
ADA FsP
CPA IF58

YES, t:.RRQR
NO, A SLASH
n;5
NO, A RIGHT

PARE~THESIS

'1

YE-S
LAST CHARACTt:.R
A COMMA ?
NO,

~L.L

CHARACTERS

USI:.O ?
'iI:.S

NO

••
•••

**
SEeONIJ
CHARACTER
iN STACK?

RSS

JSB FERRS+11,I NO, ER~OR
LOA eCl
yEs, fIRST L.EVEL.
aZA
of PARENTHt:.SIS ?
NO
JMP FMT96
ISZ F'ST
INCREMENT STRING POINTER
CCA
FINU CHARACTE~ COUNT
ADA IFSTR
UP TO AND INeLUUING
eMA
L.t:.fT
AVA FST
f"AHENTHEsIS
STA eel
S TOR l:. REP t:: T1 'j ION
LOS HEPeT
sT~ PCl
COUNT
JMP FMTJ
PROCESS SfR1NG
l.DA CC2
SECONO LEVEL.
SlA
of- PARENTHESIS
JSB Ft.RRS+12,1 NO, ERROR
lSZ FST
eCA
FINO CHARACTER COUNT
ADA If'STR
UP TO ANO
CMA
INCI..UDING
ADA FST
l.EFT
STA CC2
PM646
55647

071743
161130
0154t54
035130
035743

0181

~191

027641
ld60720
015454
000427

0192

~5650

~H93

t:>5651 065324
55652 006020
5~653 007005
!)5654 060.25

0194
0195

0196

OUTPUT HOUTINE

IN DEFAULT FORMAT

FMTttld LOA
STA
LOB
8TB
LOA

NUMWl
MANT1
NUMW2
MANT2
EXPW
STA EXP
eLA
STA EXPON
STA EFLAG
ePA EXP
JMP .+3
JSB MHil
JSB OTLl

**.

.*

L.OAO
SAVED

NUMBER
CL.E.AR
O~elMAL EXPUNENT
SET fLOATING POlhT FLAG
ZERO EXPONENl 1
YES

CMA

SlA
JSB
LOA
SlA

EXPON
OUTeL.
1HB
HBP

LOA

,-6

STA TOTOG
JaB GETOG
ADA ,+608
STA HBP,l
ISl Hap
ISl TOTOG
JMP *-5
LOA ,+2
aTA NBLK

JSB HOUND
NOP
LOA SIGN
JSB OUTeR
LOA IHB
STA HBP
LOA HBP,l
JSB OUTCR
ISz HBP
1.0A .+56B

JaB OUTeR
L.OA
STA
LOA
JSe

,-5

TOlOG
HBP,l
OUTCR

lSI HttP

ISZ TOTDG
JMP *-4
LOA E

JSB OUTeR
L.LlA .... 558
LOB EXPON

sss

CMB,INtt,RSS
LUA ,+536

RESEl HOL.l)
BuffER POINTER
PREpAt(E TO GE.T
SIX DIGITS
GET
SIX
UIGITS
Sf T NBLK TO

WHERE IT WONT CAUSE. THOUbLE
HOUND NUMdEH IN HOLD BUfFER

OUTPUT
SIGN
INITIALlZE
HOLo BUffEt( POINTER
OUTPUT
DIGIT
INCREMENT HULD BUf~Et( POINTEk
OUTpUT
DECIMAL POINT
PREPARE TO OUTPUl
fIVE DIGITS
OUTPUT
fIVE
VIGITS

OUTPUT
AN E
OUTPUT
EXI-'ONENT

PAGE
~197

~198

0199
~20"

0201
0202
~203
~204

0205
0206
02~7
02~8

0209
.,210
0211
k1212
0213
0214
0215
0216
k1217
0218
0219
0220
~221

0222
0223
0224
0225
1t!1226
~227

1t!1228
,,229
~230

1t!1231
1d232

~262

55650
55656
5565 7
55660
55661
55662
55663
55664
55665
55666
b5667
b5670
55671
55672
55673
55674
55675
b5676
55677
b5700
557~1

55702
55703
55704
5571t!15
5571t!1o
55707
55710
55711
55712
55713
55714
55715
of>716
55717
b5720
55721

#25

fORMATTEL> OUTPUT tA CONTR

1!102001
10127714
060375
v.l15454
060367
015454
002400
0154504
1t!102400
071572
124556
~50427

'-1ir)2001

124556
~60364

015454
124556

CONVtRT 60TH
TO ASCll
OUTPUT uPS 01bIT
OUTPUT 1,5 IH(llT

JSB OUTCL.
JMP FM1'"

IS CARRIAGE
CONTROL. A +
NO

JMP .-+3

JMP xEC1A,1
CPA ,+53B
HSS
L.0A ,+238

JSB OUTeR

f M11(I

IIET tWTH E.XPONENT DiGITS

YES, CONTHOL.
CHARACTER FOUND 1
YES
NO

SZA

~50425

SIGN

L.OA .+1~8
JSB OUTCR
CI.A
JSB OUTCR
CI.A
STA CHRCT
JMP XEC1A,I
CPA ,+f»58
RSS
JMP XEC1A,1
LOA ,+12 8
JSe OUTGR
JMP XEC1A,I

yES

OUTPUT AN X-OFF
ANO A
CAHRIAIIl RETURN
AND A
NULL..

IS 11 A MLNUS ?
YES

OUTPUT A.
I.INf'.FEEO

PAwE
0234

~26J

*25

FORMATT~k

~6000

0235**
0236***
1'237 ••

UTl~lTY

OHG

HUUTINES

b61O~ftH~

MAKE A NUMStk LESS THAN 1

**

***

**

0238*
0239*

MULTIPLY AN UNPACKED fLOATING POINT

024".

NUM8~R

1'241*

IN MANT1, MANT2 AND EX~ BY 10 UNTIL
IT Is GREATER lHAN 1. THEN DIVlDE bY 10

0242*
0243 56000
k1244 0600.1
I024fJ ~6002
~246
06003
0247 56004
10248 06005
024 9 56006
0250 56007

k1251*
0252*
10253*
0254*
10255*
112256
10257
10258
0259
0260
0261
0262
11'263
0264
0265

01530.,
061322
003026
026006
.,35324
025527
015302
125526

JSB MBVl0
LOA EXP

MULTIPLY
NUMBeR BY 116
UNTll IT 15
GREATER
THAN 1
DIVIDE tn 10

CMA,SSA,lNA,SZA
JMP
18Z
JMP
JS6
JMP

.+;"

EXPUN
MTGl+1
DBY1~

MHH,I

DIVIDE AN UNPACKED FLOATING POINT NUM6ER
IN MANTI, MANT2 ANO EXP 8Y 10 UNTIL !1 IS
I.ESS THAN 1
50010 061324
56011 065322
56012 007"04
56013 006021
56014 125530
b6015 0713i"
56016 015;'02
56017 003400
56020 041324
~6"21

026011

#Dlll LUA EXPON
DTL10 LOB EXP
CM8,INB
SS8,RSS
JMP OT~l,l
STA EXPON
JSB DtH10

ceA
ADA EXPON
JMP DTL.liQ

DIVIDE
NUM8ER
By 10
UN TIL.

IT IS
LESS
THAI'4
1

0267.·
••
0268... ROUND ASCII NUMBER •••
026'.·
••
0218.
0271* NUMBER STORED ONE ASCII UI~IT PER WORD IN
0212. HOLDING BUFFER, ROUTINE GETS NEXT DIGIT
0273* AND ROUNDS IF 11 IS ~. 5,
0274* IF THERE 1S A CARRY TO AN EXTRA OI~lT AND NO
0Z75* ROOM EXISTS, EXIT IS TO (P+l), OTHEHWlSE RETURN
0276* TO (P.2l,
0277*
0278 56022 01542~ .RUNO J&8 GiTDG
GET NEXT DI~lT

0279

56023

0403~5

0280
0281

0e2020
125532
003400
041730
164000

0285

0602.
66025
56026
56027
06030
56031

0286

56032 054436

0282
0283
0284

e287
0288
0289
0290
0291
0292
0293
0294
0295
°296
0297
0298

0299

00600~

56033 026036
56034 17~000
56035 125532
56036 06~432

56037

17~e00

56040 050760
06041 026044
56042 040351
560~3 026030
~6044 064433
~6045 17400e

56046 064432
56047 1757~0

0100
0301

56050 065754

0302

56052 026056

0303
0304
0306
0306

56053 035324
~6054 000000
06055 125532
06056 007400

0307

56057

0308
0309
0310

56060
56061 03553i
~6062 076734
b606J 1255J2

eJl1

56051 006002

0457~4
~060~0

ADA ,-5
55.
JMP ROUND,l
ctA
AOA

~ep

RONOl LOB 0,1

IS IT

>.

0 1

OECRtMENT HQLO

BUFFER POINTER
LOAO NEXT DI~IT

IN8

INCREMENT IT

ePB ,51
JMP *+3
STB 0,1
JMP ROUND,!

WAS IT A 9 1

YES

NO, SAVE IT
ANO RETURN

LOB ,+608

UVERLAy

S18 0,1
CpA IHB
JMP .+3

LEADING

AUA ,-I

NO, OfCREMENl

'JMP ROND1
LOB .+618
STe 0,1
L08 .+60B
srB HBp,l
Loe EFLAG
SzS
JMP RON02
liZ EXPON

NOP
JHP ROUND,I
RON02 ete
AD8 NSLK
SSB
lSZ ROUND
ST8 NBLK

JMP ROUND,I

A

~
DIGl~

YES

?
~OlNTER

OVfRLAV A
ONE
LOAD
EXTRA ZERO
fLOATING POI~T
SpECIFICATION 1
NO
INCREMENT EXPONENT

IS

N8L~

LESS

THAN 1 1
NO, RETURN TO (P+2)
VES, KEEP DECREMENTED VALUE

PAG~

----

1r:126t> #25

FORMATT~R

UTILITY ROUTINES

11131.3**
**
0314*** OUTPUT BL.ANKS *.*
11)315**
**
0316*
0317* OUTPUTS THE NUMBER Of BLANKS SPtClflEU
1631ij* BV THE NEGATIVE OF REPCl. THE STACK POINTER
0319* IS INCREMENTED AND REPel HAS THE VALue ZERU
0320. UPON EXIT.
0321*
0322 S6064 0357~7 .OT~L 18l rSP
INCREMENT Sl!lCK POINft:.R
LUA BLANK
OUTPUT A
0323 ~6065 061573
0324 06066 ~15454
JSa OUTCR
BL.ANK
0325 06067 11135770
Rt.PCT USED UP 1
ISZ REPCl
JMP *-3
0326 56070 02606e
111~27
S6071 125534
JHP OUTeL.,l
0328.
OUTPUT X-Off, CARRIAGt RETURN, LINt FEED
°329*
033rh
#UTCL ffJIU *
0331 06072
",332 06072 060376
LOA .+238
0333 56073 015454
JSS OUTCR
LOA
74
56
,,60367
.+158
0334
0
OUTCR
JSB
~6075
015454
0335
LOA .+t~B
0336 06076 060364
J3
015454
JSB OU1CR
Ir:1
7 b61677
CLA
0 33 8 561'1'0 002400
STA CHRCT
16339 b611111 071572
0340 061"'2 12b536
JMP ourCL,l

~4GE

0266 .25

0J4t2 ••
0343*..
03.4t ••

03.&.
~34~*

0349.
",35e*

SEARCH FOR A DELIMITING CHARACTER

~6103

061751
071646

0357

56104
56105
56106
56107
56110

0356

56111 05043 1

0359
0360

56112 125540
56113 050423

0361

56114 125540

0362

56115 ~35751
56116 035745

0352
0353

0354
0355

0356

0363

103101

015542
05 0 426

125540

0364

56117 1tl61751

0365

56120
56121
56122
56123

0366

0367
0368

0369 ••
0370***
0311*·

0372.
~373"

0374*
0375.

065745

"'55762

125540
026106

0380
0381

0382
0383
0384
0385
0386

0387
0388

56126 0020 .. 1
56127 005727
56130 fd60001
~61Jl 010443
56132 lItJ2301

56133 125542
56134 1tl51573

56135 fd26143
56136 040760
06137 002021

56140 040317

",390
0391

56141 040730
56142 125542

0392
0393

56143

0396

••

•••

DP
FST
MCHAR
.+'44B

08RCH,1
,+178

DSRCH,l
,+518
DSRtH,l
DP
CC

SET STRING POINTER TU
Fl~ST CHARACTER
DON'T IGNORE HLANKS
GET STRING CHA~ACTER
IS IT A COMMA 1
YES
NO, IS IT A SLASH ?
YES
NO, IS IT A RIGHT PARENTHESIS ?
yES
NO,INCR!MENT DELIMITER POINTER
ANO CHARACTER COUNTEk

UP

CC
NCH
DSRCH,l
SERt

••

ALL CHARACTERS USED 1
yE8
NO

***
**

GET NEXT CHARACTER FROM FORMAT STRING
ADDRESS OF CHARACTER IS IN (A). CHARACTER
RETURNED l~ (A)

03ij9

0394
0395

#OSCH LOA
STA
CI..O
SERl JSB
CPA
JMP
CPA
JMP
CPA
JMP
ISZ
ISZ
LOA
LOB
cPts
JMP
JMP

MASK OUT A CHARACTER

i316*
0377 56124 000065
0378 56126 1644000
0379

ROUTI~E'

BEGINS SEARCH AT CHARACTER DP
WHfN A COMMA
OR SLASH IS FOUND, DP IS SET f 0 POINT TO THAT
CHARACTER, CHARACTERS ARE COUNTED AND IF THE
eND OF THE STRING IS ENCOUNTERED bEFORE A
DELIMITER IS FOUND, A FLAG IS SET

0346*
0347.

0351*

FORMATTfR UTILITY

56143 035646
56144 061646
56145 051751
56146 125542

CLE,ERA
LDB 0,1
SEZ,RSS
8LF,BLF
LOA 1
AND tlJ77
50S
JMP MCHAR,l
CPA BLANK
JMP MC;HR1
ADA M96
SSA,RSS
ADA M32
ADA ,140

JMP
MCHRl EQu
ISZ
LOA
CpA
JMP

1~

SHIFT ADORES' RIGHT
LOAD WORD F~OM STRING
HIGH CHARACTER 1
yES, swITCH pO~ITIONS
NO
MASK OUT LOW CHARACT~~
SHOULD BLAN~S Be IGNORED 1
YES, IS CHARACTER
yEs
NO
LOWER CASE?
YES
NO

MCHAR,l

*

FST
FST
D~

MCrlAR,I

INCREMENT STR1NG
NEXT C;HARAcrEH
A OELIMITE.R 1
yf,S, RETuRN

POINTE~

PAG~

0267 #25

fORMATTE~

UTILITY

8397 ~6147 025543
039a**
0399*** EVALUA1E EXPH~SSION
0400**

0401fr
",402*
0403 ..
0404*

#fVEP f.YU

0409
0410

56150 061756

00411
11)412

!S6152 026212
!S6153 065613

"0413

!S6154 055334
56155 125544

0415

0416
0417
1r.)41a
11)419
042k'1
0421

IGNO~f

**
***

**

56151 0021e)20

56156 0034l1J0
!S6157 071472
~616~

015336

56161 165332

56162 0061d20
~6163

56164

026177

~15376

*

L.DA FfLG

SSA
JMP EVEX5
L.t.>B TEMPI
CP8 PRGCT
JMP EVEXfo»,I
eeA
srA EOL
JSS FORMX
Loe opDST,l
ssB
JMP EVfXJ
JSB OPCHK

lSZ

0422

!S6 1 6 S 1t) 354 1 2

1t)423
0424

56166 026153
56167 061613
50170 051334
56171 002400

JMP Ev EX0
LOA TEMP1
CPA PRGCT

0717~3

SlA [OSTA
OL.O 1, I

042~

0426

0421
1t)428

56172

5 6 173 1(d4200
56174 1000161

0431

56175 035544
!Se176 026210
!S61l7 166 0 350

0432

56200

0429
0430

0433

01~344

0434
0435

56201 1671256
56202 e1e4UJ
56203 065613

0436
0437

56204 055334
56205 006400

0438

56206

0439

56207

0440

56211t}
50210 035544

0441
0442
1t)443
0444
0445
0446
0447
0448
0449
10450

THE BLANK

EXTRACT THE NfXT VA~lA8LE TO 8t OUTPUT BY THE fOMMAlllR, If
NONE FOUNO, EXIT TO (P+1). If A STRING IS FOUND, EXIT TU
(P+2) AfTER PREPARING THE STRING FOR OUTPUT. IF A NUMeRIC
QUANTITY Is fOUNO,. EXIT TO (~+3) wITH THE NU~tH.R If (A) AND (6).
EOSTA IS SET TO ~ IF THIS IS THE LAST VARIAS~E IN THt STATEMeNT,

0405*
11)406*
0401*
040a 56150

11)414

RO~ilNES

56211
56212
5 6 213
5621"
56215
56216
56217
56220

07~15J
~6541ft:

125544

1635472
02 6 244
065513
055.334

125544

161613

010700
56221 0"2003

EO~

C~A

ISZ
JMP
LOA
JS6

E::VEXP
EVEXA

·"2

P5TR
STA TEMP4
STe TPRMf.
Loe TEMPI
CPS PRGcl

eLl'

YES

ENO Of STATEMENT?
yES

TURN OFF
FUNCTION FLAG
EVAL.UA TE f'O;~I'1UL.A

Is IT A

STHING VAHIABLf ?
YES
NO, UNSTACK VALUE ADDRESS
A FUNCTION 1
LAST VARIABL.E?
yES
NO
NO,

~OAI.l

Nu~eER

RETURN TO CP+J>
PREPARE
PRINT
STRING
ENO Uf
STATEMENT?
yES

STa EOSTA
Lua TPf(ME
EQU

MAl
PRINT?

*

ISZ EVEXP

JMP EVEXP,I
EVEX!) IsZ ELCNT
JMP EVEX7
L,OB TEMP1
eps P~GCT
JMP EVEXP,1
LOA TEMP1,1
AND OPOl"1K
slA,RSS

NO
RETURN TO
(1"+2)

FINISHEIJ CURRENT MATtDR PREfIX.
GET DRUM ADDRESS.
REMOV~ DRUM ~UMBtR,
EXTRACT 'RACK,
REMUvE Bll 7,
GET fINAL. D~UM ADDRESS,
StND DRUM ADDRESS TO DHUM
INITIATE /)MA,
INITIATE I,)RUM,

1025o",
072147
,,36143
1026077
002404
026060

DRMER LIA 0
SlA ORATS
lSZ DfAIL.
JMP DRlVE
CLA,INA
JMP OEND2
DSCEli f.QU *

GET STATUS
ANO SAVE IT
Tt:ST fOR DEATH
TRY AGAIN,

000000
000000
122700
okHH:I 00

DADDR
COME.
DCHAN
Of AIL
DSAVE
OH.MP
DRATS

0621 4 0

001222
100046
0k112010
101051
102600
1k'1J707
1~2700

026073

~lJ6*

60140
60141
60142
011:1143
60144
60146
01111 47

EVEN • Of SECTORS,

L.I.>A OTEMP
AL.F,AL.F
RIH.
L8L 2
LOA DADOR
RAL,RAL
L.SL 6
HAL.
L.SR 9
DINT2 OlA 0
STC DMA,C
DINT3 STC 0
JMP DEND1

0135*

0137
0138
0139
0140
0141

CMS,SS6
AND M64
81(.; DMA.4
OTA DMA",4

010610

000000

0010000
01d000til

BSS 1
aSs 1
OCT 12270kl
6SS 1
BSS 2
aSS 1
BSS 1

DRUM ADDHESS
CvRE AOOr(E.SS,
FAIL. COUNT,
A&t3 REGISTERS,
TsL. ENTRY.
f.RROR STATUS SAVE. WOfHI

0145*
k)146*
0147.
014th
10149.
0150*
0152
0153
0154
015f>.
0156
0157
0158
10159
0160
0161
13162
10163
0164
0165
0166
0167
0168
0169
10170
0171
0'172.

THIS ROUTINE INFORMS THE SYSTEM OPERATOR EACH TIME THE
ORUM DRIVER fAILS TO SUCCESSFULLY COMPLETE A REQUESTEO
TRANSFER AND EACH TIME RETRIES ARE NE~OED TO COMPLETE
A REQUESTED TRANSFER, THE PRINTOUT INCLUUE~ THE
OPERATION, NUMBER OF sEt TORS BEING TRANSFE~REO, DRUM
ADDRESS, ANO STATUS,
601521 000fi'l00
60151 114211
60152 126150
60153
60154
60156
60156
60157
60160
60161
60162
60163
60164
60165
60166
60167
60170
60171
60172

ORAIL NOP
Jae GMQI$P,I
JMP ORAIL,l
Loe ENORM
SZS,RSS
JMP ORAl
LOB OR,56
sre A,l
INA
LOB OCRLF
STS A,l
INA
Loe ORBLs
SlB A,l
INA
STA CARRO
LOA ORDFP
.LOB ,.6
JMP ORA2

064261
00600J
026173
066414
174000
002004
066413
174000
0"2"04,,
0664136
1740016
0020ect
0724~6

106234;)
0C14344
026201

e17;).

017 4
0175
0176
0177
0178
0179
0180
0181
16182_
11)183*
0184.
0185
0186
0187
1d188
fiH89
0190
0191
rcH92
0193
0194.
01950196.
0197
itJ198

60173
60174
60175
6tH76
610177
60200

064436
174000
0020,,4
072416
062352
064343
602~1 072415
60202 016307
NO~

60203
60204
60205
60206
60207
60210
60211
60212
60213

ORAl

DRA2

LOB
ST8
INA
STA
LOA
LOS

RETRY OR FALLURE MESSAGE?
RETRy
FAILURE. SET LENGTH
eARR1AGE RETUt-(NI
LLNEFEED
TI'IO /;SELLS
UUTPUT
"ORUM FAIL.URE"

.58

COME HERE FOR RETRY

CARRO
DRDRP
.-0

OUTPUT
"DRUM RETRY"

A,1

srA CARRS

JS8 CARRY

DETERMINE WHlTHER READ OR

066141
006021
026210
06236"-'
002001
1062365
072415
06434f.)
016307

ENTRY POINT
GET PUINTER TO MESSAGE QUEUE
NO RUOMI RETURN (DO NOTHING~

L08 CORE
SSB,RSS
JMP ORAl
LOA
ORA3

DR~EP

RSS
LOA ORWRP
STA CARRS

WRIl~

OUTPUT "READING"
OUTPUT "WRITING"

LOB ,-4

JSB CARRY

CALCULATE AND OUTPUT SECTUR COUNT
60214 060072
60215 007400

LOA WORO
ece

CONvt.ta
.WORDS

M~5SAGE

PAGE 027J ,,26
0199
0200
0201
021c)2
1Q203
020 4
fd2e5
0206
0207
8208.
0209.
0210
0211
0212
1rJ213
8214.
1c)215*
0216.
0217
0218
0219
0220
1t1221
0222
0223
0224
fd225
0226
0227
0228
0229
0230
0231
0232
0233
0234
0235
fd236
0237
0238
0239

DRUM kt.TRY OR FAIL.UtU. PklNTER
6
(.;MA,INA
CL.B
01V • H10

60216
60217
60220
60221
60222
60223
60224
60225
611'226
60227

101kJ26
0030,,4
006400
100 4 00
000437
042410
17241 6
036416
11'611'001
016317

AS~

60230
60231
60232
611'233

062372
07 2415
064344
016307

l.DA DRSAP
STA CARRS
L.DB
JSti CARRY

ADA ORAES0
STA CAf

6

1It25!h~

0260
16261

0262
i2:63.
0264.
0265
0266
0267
"'268
0269
(2711)
0271
0272
0273*
1rJ214.
0 2 75
0276
16277

60304 062413
60305 172416
00306 126150
6 0 3°7
60310
60311
60312
60313
60314
60315
60316

000000
00 6 025
126307
162415
172416
036415
036415
026J1e

616317 000000
(:)0320 006400
6~321

1VJ040~

60322 16160364
616323 001727
60324 040001
6~325 040574
60326 1724~6
60327 036416
60330 126317

0278
0279
0280
"'281
0282
0283
0284.
1285.
0286 60331 000000
0287 60332 006400
0288 6"'333 1004011:)
60334 k'J00J62
02 89 6~335 001727
0290 60336 0 4 0001
0291 6\1337 "J40574
0292 60340 172416
0293 60341 1336416
0294 60342 126331
1296.
kl296.

0297
16298

0299

60343
60344
00345
60346
60347
60350
60351
00352

060344
042122
052515
020106
040511
046125
051105
060353

LOA OCRL.f
STA CARRO,I
JMP PRAIL.,I

CARRIAGE t(ETURN I LINEFEt::O

CARRY NOP
S88,lNS,RSS
JMP CARRy,!
LOA CARRS,l
STA CARRO,l
ISZ CARRS
18Z !;;ARRO
JMP CARRY+1

MOV~S

ORANM NQP
CI.8

cONVERT A

-8

~OHDS

FROM CARRS,1 TO

CARRO,1

*

C

100 TO ASCII

DIV .+10

ALF,ALF
ADA B
ADA ASC00
STA CARRO,1
liZ CARRO
JMP ORANM,I
OR8NM NOP
CLb

OUTPUT 2

AS~ll

DIGITS

CONVERTS A Ii c: 100S TO ASCII
(TWO OCTAL 01GITS)

Dlv .+8
ALF,ALF
AOA a
AOA ASC00
ST. CARROd
lSZ CAHRO
JMP DR8N"',I

OUTPUT 2 AScII DIGITS

OHDFP OEF ORDF
OR OF ASC 6,ORUM rAIL.URf.

DRORP OfF ORDR

PA~E

0J80

0301
163162

0303
0304

0305
0J06

16307
0308

0309
0310
0311
10312

"'275 #26
blt)J53
60354
60355
60356
60357
60360
616361
610362
610363
60364
60365
60366
60367
60370
60371
60372
60373
6fd374
60375
61()376
610377
604\?J0
60401
60402
0"'4103
6\?J404
610405
60406
6"'407
60410
60411
60412
60413

DRUM RETRY OR

fO~2122
~52515

020122
1442524
051131
060361
020122
042501
042111
1647107
060366
020127
051111
052111
0471f{)7
0616373
02rtJ123
042503
1&152117
051123
020101
\?J52040
060402
020123
052hH
052125
05144iJ
003407
027041d
020060
030057
027460
006412

0313
0314
0315*
0316 60414 000102
0317.
163 18 61/:)41t, "00000
0319 60416 0100000
IiJJ28.

URDR

Aat

FA1L.U~E

PR1NTE.R

5, DkUJI" METRY

ORREP OfF ORR£::
ORRE ASC 4, Rt.AUING

ORWRP Off ORWR
OkWR ASC 4, WRITING

ORSAP OfF ORSA
DRSA ASC 6, SECTORS AT

ORSTP Dt.F ORST
ORST ABC 4, STATUS

OR~LS

DROOl
DRAB0
DRA0S
DRAS0
DCRLf

OCT
ASC
ASC
ASC
ASC

34107

1, •
1, "

1,0/

1,/f{)
6412
OCT

DR,66 DEC 66
CARRS BSS 1
CARRO BSS 1

0322* THE POWER FAll/RESTART ROUTINE INSURES A LOGICAL SHUTDUWN AND
~323* RESTART OF THE SYSTEM IN CASE Of POWER FAIL.
0325
0326
0327

60417 000000
60420 102204
60421 026474

0J2,.

POW

NOP
JMP POWl

INTfRRUPT ENTRY POINT.
TEST FOR FAIL OR RESTART,
T~ANaFER TO ReSTART SECTION.

OST POWI

SAVE RE&lSTERS TEMPORARILY.

fR8,BL.S
SOC
INB
(LA
CPA POWfF
JMp •• 3
srA POWfF

IF PQWFF

SFC 4

0329. POWER FAIL SteTION.
0330*

0331
0332
ft.i333
ft.i334
0335
0336
0337
0338
0339
1341h
0341
0342
0343
0344
0345
0346
0347
0341*

0349

0350

0351
0352
0353
0354
0355
0356*
0357
0358.
0359
0360
0361*
1d362*
0363
0364
0365
0366
0367
0368
0369
ft.i370
0371

0372
0373

60422
60423
60424
60425
60426
60427
60430

104400
050651
005520
102201
006004
002400
~52e50

60431 026434
60432 07265t1
60433 026472

JMP

fJOW~

POW
POWOl

TEST fOR IN7EH~UPT OUT OF
RESTART SECTION.

•• 4
POWD2

NORMAL. FAll.

POW2

FAILfD FROM RESTART SteTION.

60434
60435
60436
60437
60440
60441
60442

062411
042670
002020
026443
042671
002020
026472

LOA
AOA
SSA
JMp
ADA
S8A
JMP

60443
60444
60445
60446
60447
604511'
60451
60452
bld453

0766'5
104200
060651
H,44a0
060653
062417
072656

8T8 POWEO
OL.D POWI

102501

01

072661

60454 0024010

CLA

00455

1~2207

sFC 0MA

60456 030303

lOR .+1

IUR ,+2
61:1457 11:12211
0t1460 030356
60461 102212
Ok:l462 030362
60463 102216
60464 030442
60465 072657
60466 006400
60467 102200
60470 066550
60471 07664,

NORMAL

fA1LURE~~SAVE

REGISTERS,

OST POWAti
LOA
STA
LlA
STA

SFC CH1

NONZERO,
WAS FkOM POWER fAll,

w~8

INrt~RUPT

POW
POWP
POWSw

SFt CH2
IOf.( • +4

sft 1St

lOR
SFC
lOR
STA
CL.8
SFC

,+108

CLOCK
8200

LOAD AND SAvE
TH~ SWITCH HfGISTE~
~ET FLAGe FOR ALL DEVICES THAT
CAN INTERRUpT.
CHECt< OMA FLAG
SIT zeRO FOR CH 7
NoT INTERESTED IN STATE
OF THIS CHANNEL
CHECK INTERC~NNECT TwU
SIr 2 fOR CH 11
C~ECK FLAG ON CUNSoLE TTY,
BIT 3 fOR TTY
CHECK TIME BASE GENERATOR
BIT 7 FOR CH 16

POWFL.

0
LOB STF.,

ST*' POWND

IF

l~TERRUPT

IS SET, STORt

STF 0 INTO POWNOI EL.SE NOP,

PAGE 0277 #2b

POWER

fAl~/RESTART

ROUTINE

0374.-

0375
0376

60472 106704

POW2

t~t

~

SET FOR RESfART.

H~T

60473 1°2000

037S. RESTART SECTION

0380
03 61
0;}82

0383

0384

0385
0386

0387
038ij
0389

0390
0391
10392

60474

1~2704

6047~

062661

60476 102601
6'd477 1060360
60~00 072652
60501 002004
60502 072651
6"5.,3 06 03 56

60504 102616
60505 062651
60506 072660
60507 066001
610510 010362
60511 002003

Powl

STC 4
lOA Po~sw
OTA 01
LOA ,+6
STA POWJ
INA
STA POWI
LOA ,+3
OTA CL.OCK
lOA POWFL
STA POWF
LOB T611S
ANO ,+10B
SZA,RSS
OTB 1st

RESET FOR POWER FAll.
fETCH AND RESTORE
THE SWITCH REGISTER
INITIALIZE J AS POWE~ fAIL
TER AND I AS OMA POINlfR,

POl~­

RlSEl CLOCK FREQUENCY,
COpy FLAGS.

IF ASR M 35 FLA~ WAS CLEAR, SET uP
THE CORRECT STATE OF THE ASRJ5
OlHE~Wlst LEAVE IT SEl I~ ThE
INPUT STATE,

0393
0394 60512 10f)612
03\)5*
0396· NOW TEST THE INDIVIOUAL 10 FLAGS, IF A FLAG WAS CLtAR, WE PERfORM
0397· A CLF OPERATION, IF IT WAS SET, WE TAKE STRONGER ACTION,
1tl3PtJ*
1t)399 00513 05266~ PO~4 LOA POWF
G~T wORD CONTAINlNG fLAGS, lH~
0400 60514 00130~
RA~
ONE TO SE TfSTED IS IN ~IT ~ AND
0401 6~515 072560
STA POWf
1- ITS SELECT toDE,
0402 60516 002020
S5A
JMP POW5
FLAG SET,
04 0 3 50517 026531
04"4*
LOA PO~1
0405 60520 062651
PHOOUCE CLF INSTRUCTIUN,
0406 60521 0425616
AOA CLFIQ
0407 60522 072523
STA .+1
0408 60523 000000
NOP
EXECUTE ClF,
0409 01tl524 062651 POw6 LOA POWI
TEST FOR OONE,
0410 50525 050310
CPA ,+166
CHECK FOR CLOCK LOCATION
0411 60526 026567
JMP POW14
oON~,
ISZ POWI
OTHERWISE, BUMP I ANv LOOP,
0412 60527 035651
0413 60530 026513
JMP POw4
1iJ414.
",415* fLAG WAS SET TEST IF ROUTINE HAD ACTUALLY SEEN
0416* ENTER~D, IF Ao, PERFORM A DUMMY INTERRUPT TO PRE.
0417. VENT IT FRoM BEING REENTEREO.
&418.
COMPUTE LOCATION Uf RETURN AO~
0 4 19 60531 0 6 6662 POW5 Loa POWTS
ADS POWJ
0420 60532 0466fi2
DRESS OF HIGHEST PR1URITY ROU~
0421 60533 164001
LUB 1,1
TINE NOT yET TESTED,
10422 60534 150001
LOA 1,1
GET 11S RETURN ADDREss
1t)423 60535 066662
LOa foJOW1S
0424 60536 046651
AOB Powl
POINT TO REf,AOR, OF TtST RUUTIN
0425 50537 0163000
CMA
TEST fOR INTERRUPT O~T OF THAT
0426 6054itl 140001
ADA 1,1
ROUTINE,
0427 60541 002021
SSA,RSS

PAGE 10278 .26
0428
0429
k14J0
0431
k'J432

60542
6"'543
00544
60545
6",546

POWER fAII./RESTAtH ,ROUTINE

1ci26524
~44J62

140001
0021:120
026524

JMP
ADt:UA A06
AOA
8SA
JMP

POw6
,.11d6
1,1

NO.~INTERRUPT wAS PENDl~G,
POINT TO END OF TEST kOUlINE.

POW6

NOT INTERRUPTlD,

0433_

0434*
0435*
r;436
0437
0438
0439
0440
0441
k'J442
0443
0444
0445
0446
0447
0448
0449
0450
0451

PERFORM DUMMY INTERRUPT TO
60547 062543
60550 172661
6~551 062651
60552 042700
60553 072555
60554 020736
60555 102700
60556 102100
60557 072561
60560 103100
6fr:)561 10 67 00
60662 160001
6056J 112651
6"'564 062661
6~565 ,,72652
60566 026524

LOA
STA
LOA
AOA
STA
XOR
PO",ST STC
STF0 STF
STA
CLFIr.1 CI.F
POWCL tl.e
LOA
STA
LOA
STA
JMP

PRf~ENT

AOiU"
POWI,I
POWI
8TC0
PowaT
64000

o

"oPOWCL

"1,1

PO~U,

POWI
POWJ
POW6

1

AN UNWANTEO ONE

I.AT~R.

PLACE ADBlla IN INTERRUPT CELL.
SET UP STC AND CLC,
CREATE CI.C.
SET OEVICE CONTROL
E~A8LE INTERHUPT (CAUSlN~ A0810&
COMPUTE ApR. OF CORRECT INT, VAL
DISABLE IN~fRRUPT.
D1SAcH.. E DE~lCE,
GET CORRECT l~TERRUPT CONTENTS,
STORE IN INTERRUPT CELL.
UPOATE INTERRUPT CHAIN
POINTfR,
GO TEST NEXT DEVICE,

r.t452_

0453*·· HAVE DONE ALL DUMMY INTERRUPTS,
SET CONTROL ON CLOCK AND TTY,
0454* ••
AND RESTART INTEHCoNNEtT,
0455-·*
0400*
0457 60567
POW14 EQU *
RESTART FIRST ~HANNEL
0458 60567 103710
sTe CH1,C
~459
60570 060073
I.DA sveH2
PUT .WORD BACK UUT ON CH2
0460 60571 102611
OTA CH2
0461 60572 102111
STF CH2
LOAD FLAG WORD
0462 60573 062657
LOA POWfL
0463 60574 010356
AND ,+4
LEAVE BIT 2
SKIp If FLAG St.T
0464 60575 002003
SlA,RSS
STC CH2,C
0465 60576 103711
OTHERWISE, T~LL OTHER
0466 60577 106711
c~c CH2
WANT NO INTERRUPT
0467 6060~ 102710
STC CLOCK
0468 60601 102712
STC 1St
10469 60602 062001
LOA TBITS
RE.ESTA~LlSH PREVIOUS
0470 60603 102612
OTA 1SC
STATE OF ASHJb
0471 60604 0J6650
liZ PQWFF
SET l~ CASE OF ANOTHlR pF
0472*** If ORUM TRANSFER ~A8 IN PROGRESS REPEAT TRANSfER
0473*** ELSE 00 NORMAL RETURN,
10474 60605 060261
LOA ENDRM
0475 60606 002021
SSA,RSS
0476 60607 026630
JMP POWe2
DRUM FREEl GO PROCESS OIScS
0477*** ORUM DRIVER WAS HUSY, TEST IF POWER fAll.
0478.*. TOOK PLACE WITHIN DRUM DRIVER
0479 60610 066656
LOS POw~
GET R~TURN ADDRESS.
COMPARE TO START Of DRUM DRIVER
~480
60611 0467~2
Aoa POW28
RETURN ADORESS ~ ORIY~R 7
0481 60612 0~6020
SSB
YES,
0482 60613 026624
JMP POW29

0483

0484
0485
0486
0487
V14Sa

6061" 048701
616615 0~6021
60616 026624
60617 01664J
61£1620 062140
60621 00640~
60622 {lj76650
60623 026025
00624
616624 1666141
60625 166214k1
60626 11 .. 770
60621 103100

ADa POWJl
SSB,RSS

JMP

Pow2~

Jse POW50
LOA DAOOR
CLa
STs POWfF
JMp DSCSl
POW29 EQU III
L08 CORE
LOA OAOOR
JSB DRUM,l
eLF o

0489
0490
0491
0492
0493
0494
0495
0490.
POw52 EQU .,.
0497 60630
0498 60630 016643
JsB Pow50
0499·
eS0" 60631
POW27 EQU •
0501 60631 0~2400
t~A
0502 00632 012650
STA POWFf
0503*** RESTORE REGISTERS,
16504 60633 062655
LOA POWEO
0505 60634 103101
CLO
0506 60635 000036
SLA,ELA
0507 60636 102101
STU

COMPARE TO ENO Of ORl~ER.
RETURN AOORtSS ~ DRIvER?
YES.
WAS IN DRUM DRIVER' 00 DISCS 1ST
GET DRUM ADDRESS
SAY NOT l~ RESTART
ROUTINE
JUMp DIRECTLY To THE DRIVEk
GET CORE. AND
DRUM ADDRESS
RECALL DRUM DRIVtR

0508

60631 104aa~
OLD POWAB
60640 060663
05e9.·. RESET INTERRUPT SYSTEM TO SAME AS 8EFOHE !"AIL.
0510 60641 000000 POWNO NOP
OR STF 0,
0511 6064~ 1266&6
JMP POWP,I
HE1URN,
0512 60643 000000 POWS0 NOP
16513 60644 1662114
LOA POFF'"
GET POINTiR TO PQWff
0514 60645 066656
Db PQwP
GET POWER FA1b LOCATION
0515 60646 114216
~SB DRc.DP,I GO 00 DISC ST ff
0516 60641 12664J
JMP POW50'1
RETURN
0517 60650
PO~40 EQU .,.
16518.
05 1 9 6 0 65 0
0520 60651
0521 60652
0522 60653

000000
000000
000000

000000

0523

60655 01c)00WJ0

052 ..

60656 000000
60657 000000
60660 iH~e0e0
6(1)661 00.0000

0525
0526
0527

POWff NOP
POWI sSS
POwJ Bss
POWAB BSS
POWEO BSS
POWP ass
POWFL ass
POWF ass
PUwSw BSS

1
1
2

1

1
1
1

1

SET TO 1 DURING DISC RECALL.
POINTER TO UEVIC~ SE1NG TESTED.
POINTER TO INTERRUPT CHAIN,
TEMPS TO HOLD VALUES Of A&S,
TEMP TO HOLD VALUE Of f~O.
TEMP TO HOLO VALUE OF P
TE.MP TO HULO STATE Of 1/0 FLAGS.
COpy OF POWfil.
TEMP TO HOLD ~wlTCH REGISTER

052th

0529 60662 060655 PU~TB D~F .-5
POINTER TO fOL~OWING TABLE.
0531h
THIS TA8LE POINTS TO THE ENTRY POINTS FOR
0531·
0532.
THE INT~RRUPT ROUTINES.
8533.
DEF POwp
0534 60663 060656
PU~fR FAIL RTN.AOR.
DEF OINT
0535 60664 060052
DISC RTN,ADR,
16536 60665 063334
OfF R14'M
INTERCONNE'T RTN AOR

PA~E

11.1537
"'!)3t3
0539
0540
0541

0280 -26

PO~ER

FAIL/RESTART ROUTINE

60666 063334
60667 060736

60670
60670 000000
60673 070026

POXI

OEF R14~M
OEF ?1T2

TTY RTN,AUR,

EQU.
ass J
OEf eLKIN

NO lNTERRUPTS OCCUR UN
eLK RTN.AUR.

rHES~

CHA

05"2.

0543*
0544*
0545.
0546*
0547*
0548.
0549
0550
0551
0552
0553
0554
0555
0556*
11.1057
1d55tJ
0559
1c1560
",561
0562
0563

,,564
,,565*
0566
0567
0568

0569
057~

0571
0572
057J
0574
0575
0576

THIS SECTION ~lVES THE ~EN~TH OF EACH ROUTINE
SO THAT POWER FAIL CAN DETERMINE WHEfHER
THAT ROUTINES INTERRUPT HAD ACTUALLY OCCURRED
OR WAS STILL PfNOINw AT THE TIME OF THE POWER fAILURE.
60674 000067
60b75

0014220

60676 00000lit
60677 0001~6
6070"
Mi700 000000
60703 1d00030
60704
60705
60706
60707
61c1710
60711
60712
60713
60714
6067fd
60670
60671
60672
60700
60700
607ru
607a2
60714
60714

PO)(2

06"6~0

eLKEO~CLKIN+l

JIB R140R,I

RUUTINES.

CORRlCT CONTENTS
of IN1ERRUPT CELLS

eL.e CH2
JSts T30DR,l
HLT 1Je,e
HL.T 148,e
Ht..T 10e,c
JiB CL.Kl.H<, I

POXJ

102700
177665
11775J

oseEO~DINT.l
CODES fOH TESTl~G IF
R1<4EO.R14CH
0
NO SUCH ROUTI~t
TTYEO.?TT2+1
WITHIN INTERRUPT
•
3
NU INTERRUPTS OCCUR ON THE,E CHA

Jstt ?ADIN,l

114476
114464
106711
114466
10J013
11d3014
103016
114472

117304
177624
102207

AIS
A8,
ASS
ABS
EQU
BSS
ASS

EQU

*

ORG POx1
FILL UP THE MOLE
powol AeS .,Powl
pow02 AIS POW1 .. POW<40
sft7 SFC 7
ORG PO)(2
FILL UP THE MOLE
8Tc0 sTe 0
POWJ1 A8S OSCST.oseEO
POW28 Aijl .08'8T
ORG POxJ
poffp I)EF POIIIFF

SACK WMERE WE BELONG

PA~E

0281 *27

SYSTEM CONSULE DRIVER

0002· THE SYSTEM CONSULe DRIVER CONTROLS ALL TRANSMISSION OF DATA BE000J* TWEEN THE SYSTEM CONSOLE (ASR~35) ANO THE SYSTEM. IT HANDLES ALL

210214. • 10 FOR
11(605* THE

TH~

SYST~M,

DEVICE AND PROVIOES FO~ COMMUNlCATION OF
THE FoLLowlN' VARIAbL~S AH~ SI~NlflCANTI

~ESSAGES

TO

0006*
~~07. T35F11 .~ DURlNG INPUT, -1 DURING OUTPUT.
000ij* T35F21 NORMALLY ~, IT IS SET TO ~1 WHEN A COMPLETE MESSAGt HAS
0009.
BEEN REC~lvEO. UNTIL IT IS CLEARED ijy TH~ SYSTE~, ALL ~UR­
0010*
THER INPUT IS INHISITED.
~011* T35F31 NORMALLY 0, IT IS 8ET TO ~1 WHEN A COMPLETE M~8SAGt HAS
0012*
~EEN RECEIVED.
UNTIL IT IS CLEARED ~Y THE OUTPUT
INITIALIZATION SECTION O~ THIS OHI~EH, LOG AND MkSSAG~
0013*
ENTRIES A~E HELD OfF,
0014*
0015* TOG:
NOT USED DURING INpUT. DUMING uUTpUT, BIT 0 • " IF NEXT
0016*
CHARACTEH IS ON LEFT, 1 If ON HIGHT,
01617* TAORI NOT USto oURIN_ INPUT. CURING OUTPUT, TADR(14J0) POINTS TO
001S·
THE WOke fROM WHICH THE NEXT CHARACTER WILL 8E lAKEN,
BIT 15pl ~OR PUNCH & PRINT, 0 FUR PRlNl ONLY,
0019*
0020* TCNT; DURING INPUT, TCNT_. O~ CHARS IN SO fAR, DUMING OUT~Ul,
TCNT(141~)-. OF CHARS REMAlNING TO af OUTPUT, 8lT 15.~
0021*
16022*
IF A CRLF 18 To SE APPENOED, 1 IF NOl.
0023. T8ITS. CONTAINS CURRENT CONTROL BITS,
0024*
120"00 8> PfUNT
t30160~ p> PUNCH ANO PRINT
0025*
0026*
160000
INPUT
0027- TTA,TTB,TTE' USED TO SAVE THE VALUES OF Aye,! REGlSTER~ OURIN~
INTERRUPTS,
002S*
00290030- CALLING SEQUENCE:
0031.
JS~ TTY35,1
A-. OF CHARS (81T 15-0 FOR CH~F, 1 ~OM NONE)
S-8UFfER
ADOR~SS (SiT 15-1 FQR PUNCHING)
0032*
00331iJ1/t34* INPUT MESSAGES AHE SToREO IN THE 12 CHAkACTER ~UFflR T358f,

8.

0035.
0037
~038

0039

1e",40
0041
0042

k)043
0044
ee4!)

02146

(IH,47
02148*

6 0 7 1 5 000eee

60716
60717
60720
6"121
60722
60723

l11JJl160
070074
076011
"k)3t4.,V)
167 0 313
.,6271b
60124 072136
60725 002400
60726 072010
60727 070J16

1TT J 5 NOP
CL.F 0
STA TeNT
STB TACR

ceA

SlA
LOA
ITA
CLA
STA

ENTHY POINT FOR OUTPUT,
INHl~lT

IN1EH~UPT.

SET UP INITIAL. PARAMETEH8,
~ET

T3f1Fl
1TT30
1TT2

TOG

FLAG To SAy
OUTPUT.
CoPY RETURN AODRtsS INTu THAT Of
INTERRUPT SECTION.
SET TOG to sAY L.EFT HANO (,;HAR ..

STA TJ5F3

0049* TEST FOR PENOING INPUT. IF THERE 18 ANY, EXIT IMMEOIATtLY AND LET
0eet,,· THE INTERRUPT TRIGG~R THE FIRST OUTPUT CHARACTER.
0051.
LlA 18C
"'052 60730 102 5 12
0053 60731 011)2021
8SA,RSS
0054 60732 026761
JMP TT18
NONE PENDING--GO OUT~UT 1ST CHAR
0155 60733 102100
STf e

PAGE 0282 #27

SYSTEM CONSOLE ORIVER
JMP 1TT35,1

fl)iJ56

6i7J4 126715

~iJ5i.

INTEHHUPT SECTION

01.7.

116t.
0060
0061
0062

60735 0000e0
607J6 0720e5
60737 076006
607416 00150i
60741 072007

~"63

0064
0065
0066
0067
0063
0069

b0742 060313

01670

0071
0012
0073
0074

0075
0ra76
0077
"'078

007Si

60743
60744
60745
60746
60747
60750
60751
60752
60753
60754
60755
60756
60757
60760

002003
027031
102512
064277
054365

60761
60762
60763
60764
60765

060074
""'1265

064~01

0081
0082

0083
0084
0085
0086
0087
0088

0444~5

006021

008 9

00g0
00Sil
0092

0093
e0g4
1iJ1i96

CPA 8377
JMP TT1¥
CLA
STA T35F2
STA TJ~ST

~5044J

Wl26761
002400
,,7it314
070277

TH8

002i102
027{cH 4
0021640

*

I..OA TeNT
RAL,eLE,ERA
SZA
JMP TT5

SIZ

JMP
STA
LOA
lOR
STA
LOA
AND
lOR
STA
.IMP

60766 027~00

60767
60770
60771
60772
60773
00774
60775
60776
60777

NOP
srA TTA
STIT Tf8
ERA
STA TTE
LOA T35F1
slA,RSS
JMP TT17
LtA 18C
LOB T35ST
CPS .OUTW
L08 TJOPR

SAVE REGISTERS,

TEST fLAG TO DETERMINE IF
INPUT OR OUTPUT,
INPUT
LOAD SACK ~'NE STATUS OU~lNG OU1
GET CON80~F. STATUS
IF OUTPUT WAIT
USE PRIO~lTY

CMe,INS
AO& ,.18YN1-,+1+ROS.COM2
sse,RSS
SKIP IF A80RT NOT ALLOWED

007094

0IS,*

0095

1TT2

072010
060355
031036
071'1'74
062011
011036
033123
072011
1626761

TT6
TOG

,+J

81T15
TCNT
TAOH
81T15
TTXCP
TAOR
Tr18

CHECK FOR A K~y STRUCK
NO INPUT, CONllNUE ON

CLEAH CONfINUflNG OUTPUT fLAG
8£T CONSOLE 'TATU8 TO IDLE

iET # OF ChARS LEFT,
COpy CRLF BIT INTO E,
ANy CHARS ~EFT1
YES •• GO OUTPUT NEXT UNf,
NO~n"wANT CRLF?
NO ••• O RESET FOR INPUT,
SET UP OUTP~T OF CRLF,
3 CHARS wlr H
NO CRLF FOLl~WING,
KEEP PRINT/PUNCH BIT,

00Si7. ENO OF OUTFUT •• RESET FOR INPUT,

0198*
0099

0100
0101
0102

0103
0104
0105
0106

161e7
0108
0109

011'"

61000
61001
61002
61003
61004

07007<4
070313
060226
072001

1k12612

61005 062007

61006 Beloit!}
61007 06200~
61810 066@06

61011 103712
61012 102100
6101J 126135

TT6

TT8
TT10

STA
STA
LOA
STA
OTA
LOA

fL.

LOA
LOB
8TC
STF
JMP

t.i160K

SET taUNTER TO 8AY NU CHARS IN,
SfT FLAG TO ~AY INPUT,
GET CONTROL 8~TS fOR INPUT,

T8lTS
1SC
TTf.

OUTPUT TO CONSOLE,
RESTORE Rtr.18TERS,

TeNT

T35F1

TTA
TT8
1SC,C
0
1Tn~,1

SAV~,

ENAbL.E

OE~lCE,

ENA8~E

INTERRUPT,

EXlf,

PAGE 0283 .27
0111*
1i»112.

SYSTEM CONSOLE DRIVfR

OUTPUT NiXT CHARACTER

0113.
0114
0115
0116
0117
0118
0119

{6120
0121

0122
0123
0124

0125
0126
012 7

0128
0129
0130

0131
0132

6liH4 00J400
61015 w}40(674

TT5

01016 070074
61017 066011
61020 06~002

61021 005275
61022 062003
61023 0720(61
61024
61025
61026
61027
61030
61031

102612
160001
0661U0
004010
036011
0060 11

61032 001727
61033 0J6010
61034 0104-H
61035 030442
61036 027004

TT15

61037 060314
61040 UHZ4" 1

TT17

ceA
UECWEMENT
ADA TCNT
COUN1ER.
STA TCNT
LOS TADR
GET POINTER TO OUTPUT BUffER,
LDA B120K
GET 8ITS FOR PRINT ON~Y,
RSL,CLE,SLS,ER8
TEST & CLEAR BIT 15 OF B,
LOA B1J0K
GET PRINT/PUNCH elTS.
STA TBITS
SAVE CONTROL SITS,
OTA 1SC
OUTPUT TO DEVICE,
LOA 1,1
GtT WORD CONTAINING CHARACTtR.
LOB TOG
~ET LEFT/RIGHT TOGGLE,
sL~
IF RIGHT CHARACTER,
lal TAOR
BUMP POINTER. '
SLB,R5S
IF LEfT CHARACTER,
ALF,ALF
POSITION ON RIGHT
ISZ TUG
REVERSE TOGGLE SlNiE.
AND e177
lOR B200

KEEP 611S o.~ AND
SET 8IT 7.

JMP TT8

GO OUTPUT CHARACTER,

TJ5F2
1

IGNORE CHARACTER IF TJ5f2 IS SlT
OR swITCH ~ IS SET.

0210015
102512

LOA
MIA
sLA
JMP
L.IA

TT10
15(;,

GET CHARACTER IN A.

010441

AND B177

0133*
IIH;}4.

0135.
0136

16137
0138
0139
0140
01·41

0142
0143
0144
0146
0146

0147
IrU 4tJ
IU49
0150*
0151.*

61041
61042
61043
61044
61045
61046

00"el~

001.00
0~0J64

61047 027005
61050
61051
61052
61053
6105 ..

060441
027005
002002
0 5 0375
027005

0158
0159

JMP Tf10
CPA B177
JMP TT10

SZA
CPA ,+238
JMP TT10

61056 027112

CPA ,+308
JMP TTU

05~004

CPA BKSPC

0155*
0156 61e07
0157

PREpARE -I IN S,
IGNORE LF, RUsOU1, NULL, XOFf.

TEST FOR 'CONTROL XI

0152*
0153 611;,55 05e402

0154

COB'
CPA ,+12ij

61060 027100
61061 050367
61062 074314

0160 61063 05036-7
8161 6UJ64 074310
0162*

JMP TT12

CPA ,+158
STe T35f2

TEST FOR u-"

TE-ST fOR CR,
SET COMMUNICATION FLAG,

CpA ,+156
5T8 TJ5F'J

16163* NOW INSERT tHARACTER IN BUfFER,
0164*
LOB TeNT
0165 6u,oS 064074

GET COUNT IN e,

0166
.1167
0168
01 6 9
01721
0171
ItH72

017J
111174
0175

61066

CPS .72JMP TTt.,
Cl..E,ER8

0f)444~

01067
61070
61071
612172
6U)7J
61074
61 0 75
61076

027000
004065
044305
0022141
001737
130001
11)34074
170001
61077 027005

A08 1J561

S£Z,RSS

TT16

0116*
0177* HANDLE aACK~PACl.
IU18*
017U 61100 064074 TT12
1e11821 611~H 006003
IU81
61102 021005

0182
111183
13184
ItH85
0186
IcUS7

r3188
0189*
.,190*·
0191*

0192
IiH9J

0194
0195
0196

0197
IrH98

0199

14200
0201
0202
0203

61103
61104
61105
61106
61107
61110
61111

044351

LEFT/RIGHT TE&T.

L.EFT.
RIGHT,
sUMP COUNTER.
STORE IN BUfFER.

LOB TCNT
SZB,RSS
JMP TT10

GET CHARACTER COUNT
IGNOR~ IF NO CHARS YlT.

A08

0214065
044305
1621001
010762
027076

LEFT/RIGHT 81T ,0 ~, AND
COMPUTE AOO~ESS OF DESTINATION.

MOv~

ALF,SLA,AL.F
lOR 1,1
lSZ TCNT
STA i,I
JMP TT10

.-1

ST8 TeNT
CLE,ERB
AD8 T3581
L.OA 1,1
AND HIMS+<
JMP TT16

074074

UON'T IF HUFFER IS FULL..

(;0 t;XIT.

GET NEW TeNT.
CLEAR ~lGHT HALF OF NEw DESTIN.
ATION.

HANDLE 'CUNTROL X'
61112
6111 J
61114
61115
61116
61117
61120
61121
61122
61123
61124
61125

074313
2102400
070074
0722111

062002
{t)72001
102612
0620.,0
0210~4

061124
01141f>
005000

1Tl1

9T8 T35F1

eL.A
STA
STA
LOA
STA
OTA
L.OA
rTYED JMP
TTXCP Off
OCT
OCT

TeNT
TAOR
61201(

T8l1S
?SC
RVRSI..
TT15

SET OUTPUT FL~'.
sET TeNT FOR CRL.F AFTER "\",
SfT FOR NO P~NCHING,
SET FOR PRINT ONLY.
GO OUTPUT "\"

*+1
011415

X... Of,. CR

"0600'"

l.f

PAGE 0285 *27
0205
0206*
0217*
0208.
0209*
"2U'*

SUP
THE TELETYPE TAbL~S CONTAIN IN CORE INFORMATION FOR SYSTEM USERS.
EACH OF THE 32 USERS HAS 1 TASLE,CONTAINING TH~ FOLLOWING
eNTRIES.
(1FLAG MVST 8E fIRST, ANO 'leLOC THROUGH 'lPLEV MUST
BE CONTIGUOUS,>

0212

00000

14214*
0215.
02H)*
0217*
021thr
0219*
0220*
~221_

02220223.
ftJ2240225.
0226*
0227.
",228*
0230
'--'

?fLAG EQU 0
CONTAINS ALL. bIT FLAii FOR USt.R

TERR • 0001
CFLAG II 01602
HFLAG • 0"04
TAPEF • 016116
002"',
UNABT
ounn 00410
COM14
01016
£12010
ASTRY
DfCHK • 0400
CHNFG
10160
ENOST
2000
MSUST • 400it

•"

e0001

?TNUM EQU 'lFL.Ac;.l
TEL.ETYPE

00002

00003

?PHOG EQU 101SC+1
POINTS To LAST USED WoRD OF CORE PROGRAM.

00004

0244.
0246

""006

00010

?NAME t;QU 110 ... 1
NAM~

1TIME EQU 1NAHE+a
8TARTING TIMe.

0"012

1~LOt

~QU

1Tl"E+2

USER'S TIMe:(JUT CI..OCK.

0256*
0256

EwU ?PROG+1

8 CHAR PROGRAM

0252·
1It254

110

USER 10.

0a48.
0250

IN BITS 12-8.

DRUM ADDRESS UF THIS USERS SWAP AREA

024(h
~242

Ii

10lSC EQU ?TNUM.l

0236*
0238

TAPE EHROR
COMPILE MODE
HELLO 15 RUNNINw
USER IN TAPE MODE
U~AI:H.. E TO ASORT
OUTPUT BUFFER fULL
2114 COMMUNICAtlON
ABORT ATTEMPT
OIRTY FILES CHECK
CHAIN RUNNING
ENORM POSITIVE
MSUSY PoSlT1VE

•••
•

0232·
1It234

"----~

TASL.t;S

T~L.f.T,(PE

00013

1kSTR EQU 1CLOC+1

P4GE

~286

1268.
0262

TABLES

TE~ETYPE

RE8TlRT AODRESS FOR
011J14

02b4.
0265-

0267

#27

SUa~~ND~O

PRO;RAHS.

llTAT .EQU 1RSTR+l
USER STATUS--WHEN ON W INOICATEO PRO~RAM TYPE,
WHEN NOT ON W INDltATEO REASON WHY.

00015

lLlNK

~QU

1$TAT.1

POINTe TO LINK POSITION OF NEXT ENTRY ON
?p~EV

QU~U~.

EQU ?LINK.l

FOR PROGRAMS ON Q, CONTAINS PRIORITY LEVEL. FOR
SuSPENDEO PROGRAMS tUNyAINS PROGRAM TyPE,
0276

00017

RESPUNSE TIME FOR iNfER STATfMlNT

027".

0279.
0280

0281·
0282*

?HTIM EQU ?PLEV+l

00020

1T£MP EijU ?RTIM+l
TEMPORARIES fOR LIBRARY ROUTINES

PAGE 0287 *21
0284
0285
0286
0287

TEL.E TVfo/E TAt.H.ES

61126
61127
61130
61146

0000£10
rtI"'1d000
0000£10
000000

TTY00 OCl
OCT 12'
oCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0
OCT £0,0,0

61151
61152
61153
61111

000000
000400
"'1d0"00
000000

TTY01 OCT

611 7 4 000000
61175 00100~
61176 000000
61214 000000

TTY 0 2 OCT
OCT
OCT
OCT

"

028$",

0289

0290
0291
0292
0293*
02 9 4
0295
0296
0297

°

otT 40O

OCT 0,0,0,0,0,0,0,10,0,0,0,0,0,0
OCT 0,O,0
0

101110
O,O,0,O,0,0,0,0,0,0,0,0,O,0
0,O,0

029~h

"2 99
030O
0301
O302
03£13*
16304
0305
0306
0307
0308*
0310 9
10310
10311
",312
0313*
0314
0315
0316
0317
0318*
",31 9
0320
o321
0322
0323*
0324
032~

16326
0327
0328*
0329
0330
0331
0332
0333*
o334
"'335
"'336
0337
0338.

6121 7
61220
61221
61237

000000
00140\(}
000000
000000

TTY03 OCT 0
OCT 1400
OCT 0,0,0,,,,fIJ,0,0,0,0,0,0,0,0,~
OCT 0,O,O

61242
61243
61244
61262

O00000
00200((;)
00000rt1
00000'"

TTY04 (JCT It'J
OCT 20lirHo
oCT 0,0,0,0,O,0,0,0,0,0,0,0,O,0
oCT 0,10,0

61265
61266
61267
61305

000000
002400
000000
000000

TTY05 OCT
OCT 2400
oCr 0,O,0,0,0,0,0,0,0,0,0,0,0,0
OCT 0,0,0

61Jl1d
61311
61312
613316

00000O
003000
00000tc)
000000

TTY06 OCT 0
OCr JVJ00
OCT 0,10,0,0,0,1r:1,0,0,e,0,0,0,0,0
OLT 0,16,0

61333 0000016
Q1334 0~3400
61335 0160000
61353 000000

TTV",7 OCT
OCT 3400
OCT 0,0,0,0,0,0,0,0,0,0,0,0,0,0
ocr 0,0,0

61356
61357
61360
61376

000000
0040016
000000
'''00000

TTY08 OCT

61 4 01
61402
61403
61421

OO00010
004400
00000O
0100000

TTY09 OCT 0
OCT 4400
oCT 0,16,0,0,0,0,0,10,0,0,0,0,10,0
(JCT 0,0,0

61424
61425
61426
61444

002)00'"
005000
00.s000
000000

TTY10 OCT
OCT
OCT
oCT

'"

'"

III

401610
OCT 0,0,0,0,0,0,0,0,0,16,0,0,0,0
OCT 0,O,0

O(,;T

0
5000
0,0,0,O,0,0,0,0,0,0,0,0,0,0
0,0,0

PA~E

0339
0340
10341
~342

034:,.
10344
0345
0346
10347
0348*
1d349
121350
~351

",352
0303*
0354
121355
0356
121357
030'*
0359
1036121
0361
10362
0363*
1/1364
10365
0366
0367
14368*
0369
0370
0311
0312
0313*
\:)314
10375
121376
0377
0378*
,,379
0380
0381
0382
0383*
11:1 384
0385
0386
0387
0388*
10 389
1r:)390
0391
0392
ktJVJ*

121288 _27

TEI.ETYPE. TABI.t:S

61447 00000~
61450 00541210
61451 0000010
61457 00016100

TTVll OCT III
OCT 5400

61472 1210012100
61473 006000
61474 1211210000
61512 000e0~

TTY12 OCT 0
OCT 6000
OCT 10,0,0,10,0,16,0,0,0,0,0,10,121,0
OCT 0,0,0

6151~

001210010
61516 ~H:l640(d
61517 000000
61535 010"'000

TTV13 OCT

61540 000000
61541 121010100
61542 0001O~0
61560 010121000

TTY14 OCT 121
OCT 701Ort:J
OCT 0,0,0,0,0,8,0,10,8,0,121,0,0,0
OCT 10,0,121

61563
61564
61565
61603

TTY15 OCT 0
OCT 74010
oCT 0,0,0,0,1,0,0,0,0,0,0,Q,0,0
OCT 16,0,0

01210000
007400
000000
0000010

OCT 0,0,I/J,~,0,8,0,0,~,0,0,0,~,0
OCT 0,0,10

"

OCT 5400
OCT 0,10,0,121,121,0,0,121,0,0,10,0,0,0
OCT 0,10,0

616106 00012100
616161 0100~0
61610 k70000~
61626 0000013

TTY16 OCT

61631
61632
61633
61651

TTV1 1 OCT 0
OCT 10400

000000
010400
000000
0100000

"

OCT 100091
OCT 0,0,0,8,0,10,0,121,0,0,0,0,0,10
OCT 0,0,0
OCT ",0,0,0,0,0,,,,0,0,0,0,e,~,0
OCT 0,i',10

61654 000000
61655 011000
61606 000800
61614 0000~0

TTY18 OCT

"

61 677 000000
61700 0114~0
61701 ""'000~
b1717 1a00000

TTY19 OCT

"

61722
61723
61724
61742

01C0000

TTY20 OCT

61745
61746
61747
61765

000000
0124O",
000000
000000

0120010
000000
000"'00

OCT 11000
OCT 0,0,1,0,0,0,0,0,0,0,0,0,0,0
OCT 0,0,0
OCT 11400
OCT 0,a,0,1d,0,0,0,Id,e,0,W,k7,0,1d
OCT ~,0,fd
11

OCT 12000

OCT 0,0,0,0,0,O,0,0,0,10,0,6,0,0
OCT 0,0,0

TTY21 OCT

OC1 '124140
"
OCT 0,0,1r:I,~,0,0,0,0,0,0,k7,0,0,0
OCT 0,0,0

PAGE 0289 #27
0394
0395
"396
14397
0398*
0399
0400
0401
14402
0403*
0404
0405
0406
0407
0408*
04 09
04UI
0411
0412
1i:1413*
0414
10415

0416
0417
0418.
0419
0420
0421
0422
0423*
1i:1424
0425
0426
0427
"42th
0 4 29
0430
0431
0432
0433*
0434
043~

0436
0437
043th
043 9
0440
0441
0442
""43

61770
61771
61772
62010

lELETYPE TABL.ES

000k10fc'1
1/)13000
000080
000100

TTY22 OtT 0
OCT 13000
OCT 0,0,0,8,0,0,0,~,0,0,0,0,,,,0
OCT 0,0,0

62013 000""0
62014 fl134fH-'
6201~ 0000"0
62033 le0i00

TTY23 OtT 0

62036
62031
62040
62056

000000
014000
000000
000000

TTY24 OCT
OCT 1401Q0
OCT 0,0,0,0,0,0,O,O,0,,,,O,O,0,0
OCT O,O,0

62061
62062
62063
62101

000000
014400
0f1J0000
000000

TTY25 OCT 0
OCT 14400
OCT 0,0,0,0,0,0,0,1/),O,0,0,0,0,O
OCT 0,fc'I,0

62104
62105
62106
62124

000800
"'15000
000008
000000

TTY26 OCT 0
OCT 15000
OCT ~,0,~,0,0,0,0,0,0.0,0,~,0,0
OCT 0,O,0

62127
62130
62131
62147

000000
01e400
00000(4
088'1(4

T1Y27 OCT 0
OCT 1b4ft)0
OCT fIJ,0'0,0,1,0,0,0,0,e,0,0,0,0
OCT 0,0,0

62152 000000
62153 016000
62154 000~00
62172 0001"0

TTY28 OCT 0
OCT 16000
OCT 1/),0,0,0,0,0,0,~,0,0,0,0,0,0
OCT 0,0,0

621 7 5
62176
62177
62215

000000
016400
000000
000000

TTY29 OCT 0
OCr 16400
oCT 0,0,0,0,0,0,0,e,0,0,0,0,0,k1
OCT O,O,0

62220 000000

TTY30 OCT
OCT 17000
oCT 0,0,,,,,,,0,0,0,0,~,0,0,0,0,0
OCT 0,14,~

62221 "17000

62222 000 000
62240 000080
0

62243
62244
62245
62263

000e00
01740'"
000000
000000

62266

OCT

13400

OtT 0,0,0,0,,,,0,,,,~,0,0,0,0,0,1Q
OCT 0,I,i

"

"

TTY31 OCT 0
OCT 17400
OCT 0,0,,,,,,,0,,,,0,~,0,0,0,~,0,,,
OCT 0,(4,0
TTY32 EQU

•

044 5* TME QUEUE ALWAYS CON1NS AT LEAST ONE ENTRY, A DUMMY ENTRY, IT
0446* 18 POINTED TO 8Y THE LAST ACTUAL ELEMENT, ANO POINTS TOTHE fIRST.
0447* WH~N THE QUEUE IS OTHERWISE EMPTY, THE DUMMY LINK POINTS TO
ici44tS. 11 SEL.F. ,.
0

~45e.

0451*
10452.
0453.

0455
0456
0457
~458

0459
1d46e
~461

0462
0463
21464
~465
~466

0467
0468
0469
0470
~471

1i'J472
1i'J473
~474

10475
0476
1d477
10478
~479

04821
1d4el
21 48 2
0483
0484
1i'J485
10486
10487
10488
0489
fd 49 0
0491
~492

1d493
1i'J494
0495.
0496*
21497.
10498
0499
1d50"
05211
10502
10503

THIS ROUTLNE IS CA~~ED WHEN A DRUM TRANSfER TO OM fROM A
USER'S SWAp TRACK HAS FAILED, THE ROUTINe SF-IS THE USER'S
PONT TO AN UNAVAILABLE STATUS AND CL(ARS HIS FUSS T.8LE.
ENTfR WITH TTY TABLE ADDRESS IN 8.
62266
62267
62270
62271
62272
62273
62274
62275
62276
62277
62300
62301
62302
62303
62304
62305
62306
62307
62310
62311
62312
62313
62314
62315
62316
62317
62320
62321
62322
62323
62324
62325
62326
62327
6233"
62331
62332
62333
62334
62335

0002100
076366
044367
116365
066366
044366
060346
170001
044342
0024010
070257
170001
044346
17"001
060732
070072
160540
064566
116524
016613
066366
044353
160001
011'1727
072366
001720
040562
0 7 2367
002400
064317
172367
03fS367
~06006

026324
160540
0 6 4562
116524
to 1661.~

1362366
017056

JETPT NOP
STe JETTI
SAVE TA~LE POINTER
ADS +1L.INK
JSB lDEQU,I
TAKt HIM Off THE QUtUQ
LOB JETTI
AOB .+18TAT
-> 81ATUS WORD
LOA %PUN
SET PORT TO
STA 8,1
UNAVAILABL~
ADB ,+11D.1STAT
CL.A
STA MAIN
SAY NOBOOY IN CORE
STA 8,1
CLEAH 10
A08 ,+1FL.AG",,11D
STA B,I
CLEAH FLA~S WORD
LOA M20~~
READ IN
STA WORD
THE Fuss TABL.e
LOA FUSS,I
LOB LISDI
JSB DRUMS,l
JSB SICK
IT'S STUCK ON THE DRUM. GIVE UP
LDS JETT1
GET TABL.E POINTeR AGAIN
ADS ,+7TNUM
LOA a,l
G~T THE PO~r NUMBER
ALF,AL.F
STA JETTI
sAVE IT
ALF,ALS
TIMES 32
ADA L.IBf)
STA JETT2
CLA
zERO oUT
LOB MJ2
THIs CLOD'S pART
STA JETT2,1
of THE Fuss
ISZ JETT2
TABLE
INB,SlB
JMP •• 3
LOA FUSS,I
WRITE THE FUSS
LDB LIeD
TA~LE BACK TO
JSB DRUMS,l
THE DRUM
Jse SICK
DARN, IT'S STUCK IN CORk, CROAK
LOA JETTI
GET ~ORT NUMBER
JSe TCRIR
AND GO lNFORM VICTIM

ALSO INFORM THE SYSTEM OPeRATOR WHAT WE'Vt DONE,
62336
62337
6234e
62341
62342
62343

1°:51 00
114211
02636J
072367
0623~6

t:l06400

eLF
JSB
JMP
STA
LOA
CLB

0
GMQap,I
JeT2
JETT2
JETl1

GO GET POINTER TO MES8Aif Q
NO ROOM, SOHRY
SAVE POINT~R TO AVAILABLe SUFFeR
GET PORT NUMBER

PAGE fd291 #27
0504
121505
0506
0507
fd508
0509
0510
kl5t1
121512
0613
05 14
0515
0516
0517
",518
05 1 9
0520

1521*

-

"-

0522
",523
",524
0525
0 5 26
0527
0 6 28
o529
121530
0531

SWAP TRACK ERROR

62344
62346
62347
62350
62351
62352
62353
62354
62355
62356
62357
62360
62361
62362
62363
62363
62364

10041210
"'1rJ1727
'140001
040574
"'72376
062370
072366
004332
162366
172367
036366
12136367
00612106
026355

62365
62366
62367
62370
62371
62372
62373
62376
62377
62410

071577
0001211210
00000O
12162371
1600036
006412
0 5 0111
000000
02121115
006412

1 0 21 1210
126266

US~R

DIV ,+10

AL.F,AL.F

ADA
ADA
SlA
LOA
STA
LDA
STA
ISZ
ISZ

B
ASC00
JETNO
JETMS
JET11
,-16
JETT1,I
JETT2,I
J ETT I
JETT2

JMp
EQU
STF
JMP

JETl
*
0
Jt.TPT,l

t.DB

Jt-.l1

INS,aZS

JfT2

JDt.QU
Jt-.TTI
Jf.fT2
JETMS

ZAPPEW
CONVERT
11

TO

ASCII

INSERT 1T INTO THE MESSAGE
Gf.T ADDRESS OF
SlUFF TO BE MOVED
MOV£
IT
INTO
THE
MESSAr.f
QUEUE
BUFfER

DEF DEQUE
ass 1
BSS 1
OfF *+1
DEC; 30
OCT 6412
CR L.F
ASC 3,PORT •
Jt.TNO BSS 1
ASC 9, MAOE UNAvALL.ABL.E,
OCT 6412
CR L.F

0002*
11)003*
~004*

1010145.
0006*
0007*
li"~0ts.

0009.
iiJ01~·

0011*

101012.
10013*
10014.
0015.
0016*
01017*
1i1018*
0019.

10021
0022

0023
0024

0025
01026
0027
1d028
10029
0030

0031
0032

IOtd33

101034
10035
0036
10037
01038
10039
10040

0041
kHtJ42
0043
101044
10045
01046
101047

"'048

101049

0050

0",51
0052
0053
01054
0055

THIS ROUTINt IS CALLED WH~N A SYSTEM TRACK WITH VITAL
INFORMATION (SUCH AS A DIRECTORY OR lOT TRACK) CANNOT ~E
WRITTEN BACK TO ITS ASSIGNED DkUM AD~RESS, BUT WHlN RECOVERY
MIGHT BE POSSIBLE IF THE INfORMATION CAN BE SAVED, THE TABLE
MUST BE IN CORE STARTING Al LIBUS, CA) IS THE ADDRESS OF THE
WORD IN CORE WHICH CONTAINS THE DHUM ADDRESS OF THt TRAC~ IN
QUESTION, (~) IS TH~ NEGATIVE LEN~TH Uf THE TABLE IN CORf.
5ALVG READS THE ORUM AOT lN PIECES INTO THE UPPER 2K OF USER
AREA AND SEARCHES 'OR AN ENTRY LARGE ENOUGH TO HOLD THE TA8LE,
IF AN ENTRY IS FOUND, SALVG ATTEMPTS TO WRITE THE TABLE OUT TO
THE DRUM, IF IT SUCCEEDS, IT STORES THE NE~ DRUM ADDRESS INTO
THE WORD POINTED TO BY (Al. THE ADT IS NOT UPDATtD AND THE
fOHMER SYSTEM TRACK IS NOT LOCKED, IF rHE ADT CANNOT BE REAO,
NO DRUM SPACE IS AVAILABLE, OR THE TABL~ CANNOT ~~ WRITTEN
OUT, THE WORD POINTED TO ~Y CAl 1$ NOT CHANGfD. SALVG CALLS
CLNOT TO PRINT ANY REMAINING SYSTEM MESSAGES ANO AN INDICATION
OF SALVG'S SUCCESS O~ FAILURE, ANO THEN H~LTS~ A HALT J2B B£l
SUCCESS, ATTEMPT RECOVERY. A HALT JJB MtANS ~URGEI IT,
62411
62412
62413
62414
62415
62416
62417
62420
62421
62422
62423
62424
62425
62426
62421
62430
62431
62432
62433
62434
62435
62436
62437
62440
62441
62442
02443
62444
62445
62446
62447
62450
62451
62452
62453

f6",(d(tJ(tJ0
072515
002400
170634
076516
060354
040113
",72517
060112
"'40317
072520
kl62516
00 74 010
11d1026
072521
062517
002021
026511:17
040736
002021
002003
026441
066b17
002401
066523
012517
13741672
Ic'J05H10
076522
062520
04041~

072520
0660162
045036
116524

SAL.VG NQP
STA
CLA
STA
SrB
LOA
ADA
STA
LOA
ADA
STA
LOA

cce

SAl.. 1

SALCP
DCLC1,I
SALTL
,+2
AOLEN
SALWL
AOLOC
M32
SALDA
SALTL

ASR 6
STA SALTS
LOA SALwL
SSA,RSS
JMP SAL2
ADA B4001r!

SAI..3

SSA,HSS
SlA,RS8
JMP SAL3
LDe SALwL
CL.A,RSS
l,D6 SAM2K
STA SALWI..
STB WORD
BRS

STB
LOA
AOA
STA
LOB
ADS
JSB

SAL.fC
SALOA
.+32
SALDA
1.,8192
BIT15
DRUMS,I

SAVE CORE POINTER
BL.OCK
CLOCK
SAVE TABLE LENGTH
GET ADT LENGTH
L~SS PSEUDO ENTRY
SAVE AS .WORDS I..EfT ON DRUM
GET ADT OHU~ ADO~ESS
FAKE PREVIOUS 2K ADDRESS
AND SAVE
GET TABLE
LENGTH AND
CONVERT TO
SECTOR COUNT
~ET .WORDS YET TO BE READ
ARE THERE ANy?
NO, GO TO FAI~URf
YES, AOD 2K TO THE COUNT
2K OR MORE WORDS
~EFT TO Bf REA01
YES
NO, ~~T WORD COUNT INfO B
AND WORDS LEfT INTO A
.2S46 WORUS TO BE READ
STORe NEW WORDS LEfT COUNT
STORf DRUM qEAD LENGTH
ANO ADT.1N~CORE ENTRY COUNT
GET PREVIOUS DRUM ADDRESS
BUMP TO NEXT 2K CHUNK
ANO SAVE IT
GET ADDRESS OF USER'$ UppER 2K
ANO READ BIT
GO ~EAD AOT PO~T10N

PA~E ~2gJ

~056
'~

,-

0057
005'_
1312159
0060
0061
012162
0063
0064
0065
0066
0067

'28

SVSTEM O£ATH EMER_ENCY TH ACK·C;PAi8£H
JMP SAI..2
LOB L8192

ERROR, GO TO FAILURE
GET ADDRESS OF FIRST ENTRY

SAL.4

INS
LOA B,l
ADA SAL.TS
SSA,RSS
JMP SAL.S
INS
ISZ SALEe
JMP SAL4
JMP SALl

BUMP POINTER TO ENTRY LENGTh
AND GET LENGTH
IS ENTRY L.~RGE ENOUGH
TO HOLD TABL.E IN COHE?
YES GO WRIT~ IT OUT
NO, ARE THERE
MORE ENTRIES IN CaRt?
YES, ,HECK NEXT
NU, GET ANOTHER ~UNCH

SAL5

ADS
L.OA
srA
Loa
STa
LOB
Jsa
JMP

B POINTS TO DRUM ADORtSS
Gf.T IT INTO A
AND SAVE: IT
GET L£NGTH OF TABLE
FOR DRUM DRIVER
Gf.T CuRE ADDRESS INTO a
WRITE OUT THE SYSTEM TABLE
ARR.,""
GO TO FAILURt.

62454 02651217
62455 06 5002
6 2 456
62457
62460
624 6 1
62462
62463
62464
62465
62466

006 00 4

62467
62470
62471
62472
62473
62474
62475
62476

044351
160001
072520
066616
07412172
01)4562
116524
12126507

160001

04252 1
002021
026467
006004
036522
026456
026430

121066.
012169.

007121
0071
0072
0073
012174
0075
0076
0077
1iJ07S.
0079*
ttJ080*
01081
121082
0083.
0084
0085
121086
0ld87
0086

0089.

0090
121091
0121 9 2
0093
0094
012195
"096.
121097
009/j
012199
011210
10101
0102
0103.
010 4
0105
1f)106
0107
010/j
0109
0110

,-1

B,l

SALVA
SALTIWORD
L180
ORUMS,I
SAL2

WE HAVE SUCCfSSFULLY FOUND A NEW ,",OME FOR THE lA8Lt'.
U 1310k'
062520
172515
066525
016771
062411
625~f5 1121212132
62506 026505

62477
62500
62501
62502
62503
62504

62 507
62510
62511
62512
62513
62514

10311210
12166554
12116711
062411
102033
12126513

SAL2

62515
62516
62517
6 2520
62521
62522

0001210121
12100000
0e'000'"

SALCp
SALTL
SALWL
SALOA
SAL.TS
SAL.EC

62523
62524
62525
62526
62527
62530
62554

17 4 12100
074231
062526

e0~000

001iJ000
0012101210

1110"051

006412
046517
0 6 2555

CI.F
LOA
STA
LD8
JSB
LOA
HLT
JMP

121
SALIJA
SALCP,1
8ALSU
CI.NOT
SALVG
32B
*",,1

DISABL.E INTERRUPTS
~ET NEW DRUM ADDRESS OF TABLE
AND UPDATl IN.COHE POINTER
GET ADDRESS OF SUCCESS MESSAGE
GO PRINT MESSAGES
A GElS CALLlNG ADDRESS
EXPIRE

eLF
LDB
JSB
LOA
HLT
JI'1P

0

01SA6LE INT~RRUPTS
GET ADDRESS OF FAII-URr. MESSAGE
GO PRINT MESSAGES
A GETS CALLING ADDRESS

SALfA
CLNOT
SALVG
336
... 1

BSS 1
BSS 1
aSS 1

ass

1

ass 1

8sS 1

olE

SYSTEM TA6Lf. DRUM POINTtR POINTR
NEGATIvt TABLE LENGTH
REMAINING AOT WORDS ON DRUM
ADT 2K CHUNK DRUM POINTER
NEGATIVE 8~CTOR COUNT Of TAdL.E
ADT CHUNK ENTRY COUNT (NEGATIVE)

SAM21< DEC _20 48
aK CHUNK
DRUMS OfF DRUML
POINTER TO ORUM ORIVE:.R ORIVER
SALSU DfF ·+1
DEC 41
OCT 6412
ASC 20,MOVEO SYSTEM TRACK, RECOVERY pOSSIBL.E.
SAL.FA OfF '*+1

PAGE 0294 #28
"'111
"'112

"'113
fa114

6255~

SySTEM DEATH

000072
62556 "'06412
62557 ~41501
626"'1 047525

E~ER~ENCy

T~ACK

~RA8~EH

DEC 56
OCT 6412
ASC 18,tAN'T WRITE SYSTEM T~ACK.
A8C 10,UUr Of THE WUEST10N.

RECOVERY

,-_/

PAGE~295

*28

SYSTEM

OEAT~

SOFT LANDING

~OUTINtS

T~IS ROUTINE IS CALLED W~EN THt SYSTEM CANNOT CONTINUE
OPERATING BUT MAY BE ABLE TO BE RESUSCITATED.

0119
0120
0121
0122
0123
0124
0125
6126.
0127
0128
0129

62613
62614
62615
62616
62617
62620
62621

000000
10311iHQ
066622
016771
062613
102032

62622 062623
62623 000073
62624 006412

02625 041501

0131

62650 020122

62662 00100e0
62663 103100
62664 066671

0141
0142

62665 (rU6771

··1

62666

DEAD

06266~

62667 102033

0144
0145.
01 46 626 7 1
0147 62672
0148 62673
01 49 6 2 674
0150 62717
0152*

0155.

!dlS6*
0158
0159
0160
0161

0 6 2612

000063
006412
05 15 31
044515

Of ADM

NOP
eL.F
LOB
JSB
LOA
HLT
JMP

"DEAOM
CLNOT
DEAD

33e

··1

O~F ··1
DEC 51
OCT 6412

DISABLE INTeRRUPTS
~ET ADDREss Of pESSI~lSTIC MESAG
~o PRINT MESSAGES
A ~fTS CA~lIN~ ADDREss
PASS AWAY

1~,SY8TfM TABLES INCOMPATIbLE.
8 L.E,
6,IMPO$S1
ASC

ASC

RECOVERY

THIS RoUTINE IS CAL.LED WHEN THE SYSTEM HAS ~LOWN IT WRITING
ON THE LOCKfD BLOC~S TAe~E OF ONE OF THE DISCS. THt SITUATION
IS SIMILAR TO THOSE WHIcH cA~L -DEAD", BUT SINCE LOCKED B~OCKS
TABLES ARE IMMORTAL, THE OPERATOR MUST 8E INFORMED THAT ONE
HAS BEEN DAMA~EO,
62125
62726
62727
62130
62731
62732
62733

0162
0163
0164
0165.
0166 62134

0167
0168

DISABLE INTERRUPTS
GET ADDRESS Of OPTIMISTIC MESSAG
GO PRINT MESSAGES
A GeTS CALLING ADDRESS
CROAK

SlCKM DEF • ... 1
DEC Sg
OCT 6412
ASC 19,CAN'T ACCESS SYSTEM SEGMENT OR TAI:.iLE,
AS' 10, RECOVERy POssIBLE,

62670 026667

0153.
0154*

"

THIS ROUTINE 18 CALLED WHEN THE SYSTEM CA~NOT CONTlNUE
OPERATING AND HAS ALTERED ITS TABLES IN SUCH A wAY THAT
rHEY CONTAIN CONfLICTING INFoRMATIoN AND RESUSCITATIoN Is
IMPOSSIBLE.

0138
0139
0140
IU43

NOP

eLF

L.OB SlCKM
JaB CLNOT
LOA SICK
HLT 321:.i
JMP

"-126620

~130

0133.
0134*
0135*
0136*

SICK

000000
103100
066734

01E'771
062725
102i33
026132

062135
62735 000066
62736 006412

MOEAD NOP
CLF
LOB
JSB
LOA
HLT
JMP

"
MDEDM
CLNOT
MOEAD
3JB
.·1

MDEDH OfF .... 1
DEC 54
OCT 6412

DISA~LE INTERRUPTS
GET ADDRESS OF WARNING MESSAGE
&0 PRINT MESSAGES
A GETS CALLIN~ ADDORESS
G1VE oUT

PAGE
0169
0170

~296

#28

SYSTEM OEATH $OfT

62737 ~46117
62757 051105

LAND'~~

RUUTIN£S

ASC 16,LOCKED BLOCKS rAHlf DESTROYED,
ASC 10,~ECOVE~Y IMPOSSIBLE,

PAGE 0297 *28
0172.
!d173*
fi:1174.

rJ17th
0170*
0177*
017th
~H80

0181

0182
0183
0184

0185
0166
0167
ro16~

0169
0190
10191
0192
0193
10194

0195
IU96

0197
0198
rJ199
0200
021tll

0202
0203
kl284*
1it205*
0206*
02 0 7
0208
rJ209
0210
0211
0212
rJ213
0214
10215

THIS

SYSTlM DEATH MESSAGE
ROUTIN~

PR1~TEk

SENDS A SYSTEM DEATH MESSAGE TO THE USEHS.

NEXT, IT COMP~ETES ANY OUTPUT WHICH HAS BEEN STARTED
HY THE SYSTEM CONSOLE DRIVER, IT THEN PRINTS ANY MESSAGES
REMAINING IN THE MESSAGE SUfFER, If IT IS ENTERED ~ITH (B)
NONZERO, IT WILL LAST PRINT THE ASCII STRING WHOSE ~ENGTH
IS POINTED TO 8Y CBl AND ~HICH STARTS IN THE ~ORU fOL~OWING
THIS LENGTH,
02771
62772
62773
62774
62775
62776
62777
631d00
63001
630fd2
63003
63004
63005
63006
63007
63010
63011
63012
63013
63014
63015
63016
63017
63020

000000
002400
170634
077052
003400
017056
103100
060313
002021
kl27021
102312
027003
163053
000066
167 054
0104010
002004
073302
064 0 74
0773",1
067055
077235
163303
02724J

CLNOT NOP
CLA
STA OC~(;l,I
8T8 CLN6
ceA
JSe TCRIR
(;LF 0
~OA T35F1
SSA,RSS
JMP CLNl
sfs 1sC
JMp *.1
LOA CLAoR,I
cLE,ELA
LDB CLTOG,I
SLB
INA
STA SYCBA
LOB TCNT
ST6 syecc
LOB CL.Nlp
STB SYCON
LOA SYBIT,I
JMP SYC3

tH.OCK

CL.OCK
SAVE SPECIAL. MESSAGE POINTER
INFORM USERS OF
SYSTEM DEATH
SYSTEM CONSOLE O~IVER
DOING INPUT OR OUTPUT1
INPUT, GO CHECK FOR MESSAGES
OUTPUT, ~A;T FOR CURR~NT
CHARACTER TO B~ OUlpUT
6f T CHARACTER POINTE~
oOU~LE FOR SYcON AND ~OSE alT 10
GET L.EFr.RIGHT WURD
~HERE IS NEXT CHARACltR?
ON ,HE RIGH,: BUMP POINTRE
SAVE P01NTER FOR BYCON
GET REMAINING CHARAC1ER COUNT
AND STORE FuR SyeON
GET RETURN ADDRESS
AN~ STOHE IN SYCON
GET (;URRENT OUTPUT CONTROL. ~ITS
JUMP INTO M1DvLE Of ROUTINE
~AS

COME HERE TO CHECK FOR MORE MESSAGES IN
63021
63022
63023
6"024
63025
63"'26
63027
63030
63031
63032
63!d33
63034
63035

fcH:'3400
04~3,,6

050351
027037
070306
064307
044421
054311
064312
074307
160001
006004
017235

ClNl

ceA
AOA
CpA
JMP
STA
LOB
ADH
CPS
LOB
STB
LOA
INS
JSB
JMP

MSQ(;T

.-1

CLN2
MSGlCT
MSQPl
,.MESlN
MSQNO
MSQBG
MSQPl
B,I

Q~EUE

ARE THERE MESSAGES
IN THE
l.IUEUE1
NO
YES, DECREMENT THE CUUNT
8UM~ POINTER
TO NEXT M~SSAGE BUfFER
W~AP AROUND,
YES
SAVE NE~ CURRENT MESSAGE POINTEk
GET CHARACTER COUNT lNTO A
POINTER TO FIRST WORD INTO e
GO OUTPUT IT
CHECK FOR MORt.

0216
0217
0218
SY(;ON
"'219
CLN1
0220 63036 021~21
0221*
COME HERE TO PRINT fINAL SPECIA~ MESSAGE
",222.
0223.
0224 63037 067052 CL.N2 LOB CLN6
GET SPECIAL SUFFER PUINTER
0225 63040 ~06003
SZS,RSS
IS THERE A MESSAGE?

PA~E

0226
L1227
0228
L1229
"23 0
1t)2Jl
0232
0233
0234
0235.
i1236.
0237
0238
"239
"240

ta2P8 .28

SYSTEM

DE.ATHKf,~I.~

63041 027045
b3042 160001
b3043 0061604
63044 017235
63045 002400
63046 017235
63047 ~172J5
63050 017235
63051 126771

CL.N3

63052 000000
63053 060011
63054 060010
63055 "63021

Cl.NB
CL.AOR
CL.TOG
Cl.N1P

JMP
L.DA
INB
JSB
CL.A
JSb

CL.NJ
B,l
SYCON
SYCON

JSB SyeON

JSB SYCON
JMP CL.NOT,I

BSS 1

OEF TAOR
OfF TOG
OEF CL.Nl

PRiNTER
NO
YES, GET CHARACTER COUNl
8UMP POINTER To fIRST Mt:.S. wORD
GO OUTPUT IT
FINAL.L.Y,
OUTPUT J
"AGONIZING DEATH"
CRL.F·S 'AND
RETU~N

B REG, SAVE WORD
POINTER TO 1TT35'S CHAR POINTER
POINTER TO 1TT35'S L.EFT.tUiHT WD
RETURN ADDRESS fOR fAKE SYCON CL

II1a .. 2*
0243*
0244*
fd245.
fd246*
0247*
0249
16250
02 51
0252
0253
fd254
fd255
0256
0257
0258
8259.
0260
0261
fd262
0263
0264.
0265
0266
0267
0268
0269*
0270
0271
0272
0273
0274
0275
8276*

THII ROUT INf II CALLEI) TO INFORM .4"''' UaiA8 THAT THt.

8Y~HEM

IS GOING OOWN BECAUSE OF A HAROWARf FAl~URE OR TO INFORM A
SINGLE USER THAT HIS PORT IS BEING MADE UNAVAI~ABL~ (BECAUSE
OF A SWAP THA~K ERROR), IT MUST ~~ ENTEREU WITH THl AfFECTED
PORT NUMBER IN A IN THE LAllER CASE OR WITH A.~l TO INFORM
ALL USERS Of SYSTEM DEATH.

63056
63057
63060
63061
63062
63063
63064
63065
63",66
63067

fd0,,000
073226
160 3 0 '=12
027070
073226
'=164177
077227
050412
067205
11127074

TCRIR NOP
STA TCRPT
CMA,SZA
JMP TeRl
STA leRPT
LOB NPOfH
sis lCRPC
LOA ,+32
1..0~ TeRSD
JMP TCR2

63070
63071
63072
63073

00340'"
073227
060417
067161

TC;Rl

CCA
STA TCRPC
LOA .+37
LO~ lCRPU

SINGLE PORT BEING ZAPPED
SET PORT COUNt TO ~1
GET LENGTM OF MESSAGE
AND POINTER TO IT

63074
63075
63076
63077

003 0 00
073230
004066
077231

lCR2

CMA
5TA TCRCC
CLE,ELB
STB TCRBA

SAVE "MESSAG!::
LENGTH .. 1
SAvE MESSAGE
BUFFER CHARACTtR POINTER

63100
63101
63102
63103
63104
63105

060367
017131
060364

LOA
JSB
LOA
JSB
LOA
J5B

PRECEOE
MESSAGE
wITH

16277

63106
63107
6311111
63111
63112
63113
6311 4
63115
63116
63117
63120
63121

037230
002001
027122
067231
0;)7231
004065
16 0001
002041
001127
010441
017131
0271136

16290

63122 1360367

0278
0279
0280
0281
0282
0283
0284
0285
02 8 6
0287
"'288
0289.
111291
0292

0293
0294
0295

63123
63124
63125
63126

0171~H

06 0 364
017131

017131
069364

017131
061t'364

63127 017131

TCR3

.+l!)B
TCROT
,+128
TeROT
,+12B
TCRCT

SAVE PORT NIJM8ER
IS THIS A SYSTEM DEATH?
NO, GO SET uP FOR 1 PORT NEWS
YES, SET FIRST PORT TO ZERO
GET ~OUNT OF PORTS TO GET NtWS
AND SET IT INTO TCRPC
GET LENGTH Of MESSAGE (CHARS)
AND POINTER TO MESSAGE

CR
LF

LF

lSZ TCRCC
RSS
JMP TC;R4
LOB TCRBA
ISZ leRsA
CLE,ERB
LOA 8,1
SEZ,RSS
ALF,ALF
AND tU77
JSB TeROT
JMP TCRJ

ARE ThERE MORE CHARACTERS?
yES
NO, GO FINISH UP
GET BUFFER POINTER
sUMP IT
CALCULATE WORD ADORE~S
GET 2 CHARACTERS
WHICH ONE?
LEfT ONE* MOVE IT
ISOLATE CHARACTER
GO SENO IT
CHECK FOR MORE

LOA
JSB
LOA
JSB
LOA
JSB

SENO
USER(S)
FINAL
GASP
fORM
fEEDS

,+156
TCROT
.+128
TCROl
.+128

lCROT

PAGE 0300 *21
it2~ •.

02'7,.
0296
0299
13300
0301
0302
0303
0304
03 0 5
03 0 6
1/2307
r6306
1d309
03114
0311
0312
0313
10314
0315
rc:J316
0317
031S
0319
0320
0321
0322_
1:S2J*
1/2324
0325
"'3 2 6
1d327

":S2'.
rc:J329
0330
0331
0332
0333
0334
1d335

SYSTEM. DEATH O.R 8WAP

O.J1Ji127666

" .. p.

TRACK ERROR TO __ N tHIER

T'R1R,1

63131
63132
63133
63134
63135
63136
63137
63140
63 14 1
63142
63143
63144
63145
63146
63147
63150
63151
63152
63153
63154
63155
63156
63157
63160

000000
073232
063227
073233
063226
073234
063234
"01727
03 0 244
114500
102311
027143
102511
002002
027137
063234
001727
j(j30220
033232
114500
037234
037233
027137
121131

TCROT NOP
STA TCR02
LDA TC;RPC
STA TeRra3
l.DA TeMPT
STA TCRi'J4
TCR5 L.DA TCR04
AL.F,AL.F
lOR rSF

63161
63162
63205
63206

063162
044UJ1
063206
0 4 4101

TCRPU DE'
Ase
TCRSO OfF
ASC

63226
63227
63230
63231
63232
63233
63234

000000
000000
000000
000000
000000
000000
"'01d000

TCRPT aSs 1

COME Hf.RE 10 OUTPUT CHAR IN A
SAVE CHARACTE~
SAVE NUMBER
OF PORTS
AND FIRST
PORT
ASK 2114 IF
THIS USE~'S SUFFER
IS FUL.L

JSB S14SC,1

sFs CH2

JMP "' .. 1
L.IA CH2

aZA

JMP TCRf)
L.OA TCRftJ4
AL.F,AL.F
IQR OCR
lOR TCR02
JSa S14SCd
ISZ TCR04

ISZ TCR03
JMP TeRti
JMP TCRQT,I

;ET RESPONSE
YES, GO ASK AGAIN

NO, "ET

PO~T

*

OUTPUT CODE
AND CtiARACTER
liO SEND IT
BUMP PORT NUMSlR
OUTPUT TO ANOTHER?
YES
NO, RETURN

"+1

19,HAROWARE FAIL.URE •• PORT UNAVAILABL.E,
•• 1
16,HAROWARE FAILURE •• SYSTEM DOWN,

TCRPC 8S8 1

TCRCC BSS 1
TCRBA ass 1
TC~02 aSS 1
TC Rro3 ass 1
TCR£/)4 ess 1

OF FXRST PORT TO GET NEWS
TOTAL. • Of PCplS TO RECEIvE NEwS
LENGTH of ME~&AGE
MESSAGE CHARACTER POINTER
uUTPUT CHARACTER
ROUTINE
lEMpS
NUM~EH

PAGE 0301 *28
10337*
0338*
0339*

0341
1d342
0343
1d344
ftJ345
1d346
~347

10348
1d349
0350
10351
0352
0353
0354
0355
0356
10357
10358

0359
0J61d
0361
1d362
0363
ftJ364
",365
0J66
ftJ367
036'.
0J69*
ftJ371i:l
0371
ftJ372
0373
1d374
0375
0376
0377
0378
0379.
0380*
ftJ381
ftJ382
16383
1d384
0365
0386
0367

SYSTEM OE.TH lELtlYPE ORlvtR

UPON ENTRY (A)

~OLOS THE NuMBEk Of CHARACTERS TO BE OUTPUT,
81T 15 OF A • Id FOH X-OFF CR LF AFTER OUTPUT,
(e)

POINTS TO THE FIRST WOHo OF THE BUFFER TO BE OUTPUT,
SVCON NOP
STA svece
CLE,ELB
STa SYCBA
LOA SBf.1
STA SYI;)!T,l
SYC3 OTA ?se

63235
63236
63237
63240
63241
63242
63243
63244
63245
63246
63247
63250
63251
63252
63253
63254
63255
63256
63257
63260
63261
63262
63263
63264
63265
63266
63267

000000
013301
0041066
1077302
060224
173303
102612
063301
001265
00201/13
027270
003400
043301
1d13J01
067302
037302
1004065
160001
002041
001727
1010441
030442
102612
103712
102312
027265

63270
63271
63272
63273
63274
63275
63276
63277
633ftJ0

130204'"
1272J5
060355
031036
073301
0673ftJ4
004066
0773ftJ2
027244

SYC2

63301
63302
63303
63304
63305
63306

000000
ftJ00000

SYCCC
SYCBA
SYI,zT
SYCCL

sve1

0600~1

RAL,CLE,ERA
SZA,RSS
JMP SYC2
tCA
ADA syeCC
SIA sYCCC
LOti SYCSA
I S Z S yc':tiA

CLE,ERB
LOA B,I
sEZ,RSS
AI.F,ALF
AND B177
lOR 621110
OTA 1St
STC ?SC,C
SFS '1SC
JMP
JMP SY~l

.-1

0~7244

063305
1d11415
00501d0

LDA sycec

SEZ
JMP SYCON,I
LOA ,+3
IOR 61T15
STA SYCCC
LOB SYCCL
CLE,ELB
5T8 SyeSA
JMP SYC1
bSS
BSS
OEF
DEF
OCT
OCT
UNS

1
1
TBITS
*+1

SET CHARACTER COUNT
INITIALIZE
CHARA~TER POINTER
BITS FOH "PRINT ONLJ"
SAVE THEM
St.Nl> THEM
HAVf ALL CHARACTERS
(COPy CRLf elT INTO t)
8Ef.N OUTPUT?
YES, GO SEE ASOUT CRLF
NO, DECREM£::NT
CHARACTER COUNT
COMPUTE.
WORO",CHARACTER
ADDRESS
LOAD WOHO
POSITI0~

CHARACTtr:R
EXTRACT CHARACTtR
ADO IN SIT 7
OUTPUT IT
REQUEST CHARACT~R TRANSFER
wAlT FOR
CO~PLETI0N fLAG
GO DO NEXT CHARACTER
WANT CRLF1
NO, HE-TURN
yES, J CHARACTERS
WITH NO CRL.F
FOLLOWING
ADDREss of
X-OFF CR LF
GO OUTPUT THESE
COUNT OF CHARACTERS TO BE OUTPUT
CURRENT CHARACTEH POINTER
POINTER TO CUkRENT CONTROL BITS

011415

X.OFF CR

.,050"'.,

Lf

2IJ8!h
id390*

ROUTINES ARE USEO FOR COMMUNICATION ijETWEEN THE 2114
AND 4116
T~ESE

0391*
0392.
16393* 2116 TO 2114 SEND DRIVER
83'4.
0395 63307 21212116016 S14SH NOP
16396 6331 16 1 0 31 00
CLF "
0397 63311 070073
STA SVCH2
0398 63312 0771S54
STe SV8C2
16399 63313 164634
LOB DeL.Cl,I
16400 63314 005726
SLF,ELij
CLB
164211 6331~ 0064160
1.1402 63316 174634
STij OCL.Cl,I
1/74213 63317 1ld2UJ0
STF 0
0484 63320 102311
SFS CH2
1/74215 63321 1.127320
JMP *-1
04216 63322 11212611
UTA CH2
16407 63323 103711
STC CH2,C
0408 63324 106711
CLC CH2
04219 63325 164640
LOB OCLC2,1
164116 63326 1031010
CLf 0
id411 63327 0162040
sEZ
0412 63330 174634
ST8 DCL.C1,1
21413 6 3 331 166755 4
LDB SVBc2
0414 63332 102101cJ
STF 0
JMP S14SH,1
0415 63333 127307
0416.
0411*

"411'.

1.1419
04216
16421
16 4 22

1f)423

1.1424
0425
td426
0427
164 2 8
16429
0430
"431*
0432
1.1433
1r::l434
16435
0436
(()437
(()438
16439
id4416

63334
63335
63336
63337
63340
63341
63342
63343
63344
63345
63346
63347

0000016
1ri721067
074 0 70

63350
63351
63352
63353
63354
63355
63356
63357
633 6 1t)

163351
063371
06341(16
063454
063463
063475
063513
063361
0 6 3361

1d015~0

102201
0020f'4
1670071
102510
001723
010 361
043350
1241600

R14CM NOP

STA CMA
STB CMS
ERA,AL.S
SOC
INA
STA CME
L.1A CHI
AL.F,RAR
ANO .+7
AOA CMTBl
JMP 0,1

CMTijL. DEF
OEF
OfF
OEf
OfF'
OfF

*+1,1

HVL.
ABR
BFL.
8fE
ETa
OfF lJHU
OE.F ~14RT
OEF R14RT

SAVE COMMUNICATION
GET CLOCK WORO
IF IT 18 A JMP, BIT 12
W1L.L. BE SET
BLOCK CLOCK

wAIT FOR ACKNUWL.EOGME.NT
of PREVIoUS TRANSMISSIoN
OUTPUT WO~J
INTERRUPT uTHE.R MACHINE

UN~LOCK

CL.OCK UNLESS IT WA$
BLOCKED ~HEN wE ENTERED

EXIT

SAVE

AND

oVE~fLOlti

LOAO REQUtST WORO
OPCODE IN sITU 2~1d.
MASK TO THREE BITS
AOD ON QECoOE TABLE POINTER
8RANCH TO ~PPROPRIATE ROUTINE.
HAVE L.INE
UsER's ABORT REQuEST
BUFfER FULL.
8uFFf.R EMPTY
ENTtR STAT~MENT TIMED OUT
USER HUNG UP

PAGE 0303 *26

,
~~

04142.
0443.
"444.
0445
0446
0447
0448
0449
0450
0451
0452
04153.
0454 •
.,455.
0456
.,457
0456
0459
0460
0461
0462
0463
1r)464
0465
0466
0467
0466

COMMUNICATIONS

U~1~ER8

ALWAYS RETURNS HERE
63361
63362
63363
63364
63365
63366
63367
63370

060071
10 3101
000036
102101
060067
e6407e
103710
127334

R14RT 1..0A tME
tLO
SLA,EL.A

STa

1..0 A
L.OS
STc
JMP

eMA
CMS
CH1,C
R14CM,I

JSB
SZA
CPA
RSS
JMP
LOA
lOR
STA
LIA
AND
AI.)S
STA
JMP

FOTTy

RESTORE
A,lt,E
AND OVEHFL.OW

ACKNOWLEDGE Rt:.CEIPT
EXIT

2114 HAS A I..INE
63371
63372
63373
63374
63375
63376
63377
63400
63401
63402
63403
63404
63405

011536
002002
050354

HvL.

ftJ02001

027361
160001
030172
170001
102510
010443
044311
110001
027361

xlNPT
R14tH
1, I
COM14
1,1
CHI
8377
.+1RTIM
1,1
R14RT

e-> FIRST WORD Of TTy TABL~
SKIP IF STATUS IS IOI..E.
NO SKIP IF INPUT WAIT
IDLE OR WAITING fOR INPUT
IGNOHE.
SET 2114
COMMUNIC.TION
SIT
SlORE RE~flONSE
TIME IN TTY
TABL.E (t:0 IF NO
ENTiR TIMING)
HETURN TO 2114 DRIVER

W46fi.

0470*

"471*

11)472
0473
0474
0475
0476
1cJ477
0478
0479
0480
0481
0482
0483
0484
0485
0486
0487
048H
0489
.,490
0491
0492
16493
0494
0495
0496

USER'S ABORT rU.QUEST
63406
63407
634116
63411
63412
63413
63414
63415
63416
63417
63420
63421
63422
63423
63423
63424
63425
63426
63427
63430
6 3431
63432
63433
63434
63435

017536
160001
010447
050616
02 7 361
160001
010372
002003
027423
160001
030442
170001
027361
044366
160001
~50356

1027361
040337
002020
027444
060405
003004
14ri001
002020

ABR

ASRI

JSB FOTTy
~.> FIRST ~ORD Of TTy TABLE::
LOA 1,1
ANI.) B30M
CPA PSFL.G
CSf~~.1r) AND P8FLG.l1
JMP R14HT
YES. ABORT NOT ALLOW~D£
LOA 8,1
NO, ABORT POSSIBLEI
AND UNABT
UNAB&..t:. TO
ABORT?
S,A,RSS
JMP ASHt
NO
L.0A 1,1
lOR ABTRY
DELAY ABORT
SrA 1,1
ATTEMPT
JMP R14RT
RETURN TO 2114 DRIVEk
EQU *
AOB .... 1STAT
B -> STATU$
LOA 1, I
A • STATUS
CPA XSYNT
CHECK FOR SYNTAX.
CAN'T ABORT oUT uF SYNTAX.
JMP R14HT
AOA ...... ~SYNT.l.COMJ ... COM2
SSA
SKIP IF l..lBRARY flRUGRAM.
JMP ASR2
OTHf.RWISE ABORT ALWAYS ALI,..OWEO.
L.OA .+~SYNT".+1+CAT.COM2
CMA,INA
ASORTABLE
AUA B'l
1..1SRARY
SSA
PROGRAM?

PAGE
0497
0498
0499
05 0 0
"501
0502

0503
0504
0505
0506
0507
0508
0509
10510
0511

~304

634J6
63437
63440
63441
63442
63443
63444
63444
63445
63446
63447
63450
63451
63452
63453

~28

COMMUNICAT~ONS

DRIVtRS

JMp R14fH
NO
LDA 6,1
MAYijE
CMA,INA
ADA ,.XSYNT-,+1+STA-COM2

027301
160001
003,,04
040414
002020
027361

saA

JMP R14RT
AtsR2

1044336
160001
030772
170001
044306
0034~0

170001
027361

EQU.

.lOb
LOA
lOR
STA
Aoe
ceA
STA
JMP

,_1STAT

1,1

COM14
1,1
.+1STAT
1,1
R14RT

NO
B.> FLAGS
SET 2114
COMMUNICATIONS
81T
SET
STATUS TO
ASORTIN'
RETRUN TO 2114 ORIVE~

0512-

0513. BUFFER IS FUI.L

0514_

0515
0516
0517
0518

0519
0520
0521

63454
63455
63456
63457
63460
63461

017536
050355
027361
160001
030412
1701O~ 1

BfL

63462 0273tl

JSB FDTTy
CPA :¥OUTW
JMP R14RT
LO.4 1,1
lOR OUTWT
ST.4 1,1
JMP R14RT

->FIRSl wO~O Of TTy TABLE
l'NORE IF
ALREADY OUTPUT WAIT
SET
OUTPUT
WAIT tHT
RETURN TU 2114 DRIVEN
~

0522IiUS2;'-

0524. BUFFER IS EMPTY AGAIN

002fh.

JSB FOTTy
CPA xOUTW
CCA,CCE,RSS
CtA,CLf
1i'J530
XOR oUPH
10 531
AND 1,1
11 0rti0 1
SEl
ra532
0020~0
lOR COM14
0533
030772
0534
17(()~01
STA 1,1
0535
027361
JMP R14RT
0536. f:.NTER STATEMENT TIME.D OUT

10526
0527
0528
0529

0537.
0538
1053 9
1d540
1d541
0542
0543
0544
0545
13546
0541t7
0548
0549
0550
0551

63463
63464
63465
63466
63467
6J47 0
63471
63472
63473
63474

63475
63476
63477
635",,,
63501
63502
63503
63504
63505
63506
63507
63510
63511
63512

0175~6

BfE

050355
003701
003500
020412

017536
044365
160001
05J555
002001
027361
~44337

160001
030772
170001
044366
060347
170001
027361

ETO

8 •• FIRST WORD OF TTy TABLE
CHECK FOR STATUS OUTPUT WAIT
A ..

-1,

E ... 1

A .. -I, E '" ~
CLEAt~ OUTPUT
WAIT BIT
IF STATUS # XOUTW, THEN DON'T
SET 2114
COMMUNICATIONS alT
RETURN TO ~114 DRIVER

Jsa FOTTy

~ ••

.lOB
LOA
CPA
RSS
JMP
AOB
LOA
lOR
STA
ADe
LDA
STA
JMP

SET 2114
COMMUNICATIONS
6lT
SET
STATUS TO
ENTER TIMEOUT
RETURN TO 211. DRIVER

,+1RSTR
1 I

UENRT
R14RT

._1RSTtot

1,1

COM14
1,1
,+1STAT
~I:".NTO

1,1

R14RT

FIRST WORD Of Tly TABLE
8 -> RESTART ADDRESS
A • RESTART ADDRESS
WAITING FU~ ENTER?
yES, SET COM BIT.
NO, MUST BE MISTAKE,

PA&E 0305 *28
10'2*
~~5J*

CUMMUNICATIONS DRIVERS

USER HUNG UP

0554*
~555

0556
0557
0558
0559
0560

0561
~562

0563
0564
0565

0566

63513
63514
63615
63516

017536

UHU

044366
0410337

002120
63517 021527
63520 006004
63521 054273

63522
63523
63524
63525
63526
63527

0567
(1)566 63530
0569 63531
(1)570 63532
0571 63533
0572 63534
0573 635J5
0514**

cPa

002001
027526

074262
027361
044351

060350

JSB
AOB
AOA
58A
JMP
INS

UHUl

RSS
JMP
ST6
JMP
AOB
LOA

170001

STA

044336
160001
03 0 172
170001
027361

AOB
~DA

lOR
STA
JMP

0570* fIND FIRST WORD Of TTY

8-> FIRST WOR~ Of TTy TABLE
FDlJv
.+'ISlAT
,+.-XSYNT.l.COM3+COM2
LlaRARY PRO~RAM RUNNING?
NO
UHUl
YES, IS THIS wUY THE
ML.INK+1
HEAD OF THE QUEUE?
YES
NO
UI'iUl-l
HQOIS
S~T OISCONNECT FLAG
R14RT
,+?STAT·?LINK
%DISC
sET STATUS
1,1
TO 01SCONN~CT
,-1STAT
1,1
SET 2114
COM14
COMMUNICATIONS
tslT
1,1
R14RT
R~TURN TO 2114 ORIVER
T.S~E

**

*

*.

0576**
0b77* EXIT WITH (e) ~> fIRST WORD OF TELETYPE TABL.E
0576 •
(A) • USERS STATUS

.,579.
0580

0581

05 8 2
0583

0584

0585

0586
ra587

0588
0589

0590
0591
0592
0593
0594

0595
0596.
0597·
0596.
0599.
0600
0601
0602
0603
0604
0605

63536
635 3 7
63540
63541
63542

000riJ00
102510
001727

010411

100200
63543 0003;5
63544 064f400
63545 044546

63546 060001
63547 040366
63550
63551
63552
6355J
63554
63554
63555

160000
050346

027361
12/536

000000
041235

FUTTY NOP
LlA CH1

ALF,AL~

LOAD REQU~ST ~ORU
TTYj IN 4-0
MASK TO 5 BITS

AND ,+J7S
MPV .+TTY~1~TTY~0
LLJB o

AOti OTTY0
~DA

AUA
LOA
CPA
JMP
JMP
R14ED EQU
SVSC2 8SS
OfNRT DEII'

1

,+?STAT
0,1
XPu N
R14RT
FOTTY,1

•1

ENTRT

COMPUT LO(;~TION
OF FLAc. weRo
A I> FLAGS
A .> STATUS
A • STATUS
CHf:.CK FOR PORT UNAVAILABLE:.
IGNORE IF SO

WHERE ENTER WAITS.

ROUTINE TO CLEAR paFLG & (;sFLG 81TS AND TO TELL
THE OTHER MACHINE A80UT THE A80RT.
63556

•

0001100

63557 044336
63560 103100
63561 {660447

63562 00300it.l
63563 110001

TRNOF NOP
Al>8

eL.F

~OA

eMA
AND

PBFLG & C8fLG
61T3,

CL~A~

~606
~607
~()08

1(J609

63564 170001
63fJ65 006004
63566 1()0001

63567 030254
0610 63570 114500
0611 63571 127556
111612.
0613.

sr.

6,1

L.OA
lOR
JSB
JMP

6,1
AST
8148C,1
TRNOP,l

INS

s ••

1TNUM
A!II lTNU~'

TELL OTHER MACHINE.

PAGE 0307 .28
0615
1c:J616
[6617
1d6lS
[661 9
0620
[6621
0622
0623
0624
0625
{O626
0627
062ij
0629
0630
16631

0632
[6633
0634
0635
1d636
0637

StHEOUL~k

700016

70000
70001

70002
70003
70004
70005
7"'006
70007
70010
70011
70012
70013
70014
70015
70016
70017
70020
70021
70022
70023
70024
70025

0001 4 0
177720
177737
1716 45
106Z62
07154'"
047040
043106
020100
030040
072034
061126
"00000

177776
000000
000000
000000
062266
06261~

072021
074563
063556

6140
MOldS
M41B
M1;i3B
MCOM2
M36K
ASCIN
ASCFF
AseSA
Ase0S
DCOM6
TTYCK
OUl M1
X

CTEMP
SMAIN
FMAIN
JETPA
SlCKZ
XCOM5
INSQA
TRNFP

OR" lIiHh)li~
OCT 141t)
OCT .60
OCT .41
OCT ·133
ABS .COM2
ASS .J0001d",6000
Ase 1, N
AS(; 1,Ff
Ase 1, ,
ASC 1,0
OfF COM6
ASS TTY00
eSS 1
TEMPS USED SY OUTCH ROUTINE.
OCT -2
ass 1
ot r
CURHf.NT SWAPR DRUM TkANSFER fLAG
oCT 0
OL.O lOP of Q rl..AGS POl~TER
OfF JETPT
OEF SICK
OfF COM5-2
DfF INSEQ
DEF TRNOF

"

0639* THE CLOCK ORIVER IS THE ~ENTR~L POINT THROUGH WHICH CONTROL IS
1d640. PASSED TO THE SCHEDuLER, ENTRY COMES TO THE DRIVER WHENEVER THE
"641* CLOCK (REAL. TIME SCALAR) INTERRUpTS. THIS EVENT OCCURS EVERY
,,642* 100 MS. BESIO~S GIVING CONTROL TO THt SCHEOYL.ER, THE CL.OC~
1d643* uRIVER ALSO HAS THE TASK OF UPOATING THE TIME UF OAY CLOCK,
0644* THIS CLOCK l~ A TWO WORO ENTRY WHOSE VALUE IS AS FOLLOWS.
~645*

0646*

1.1648
1d649
1.1650
1.1651
0652
0653
0654
0655
0656
06e>7
0658
10 659
0660

DATIM·24*D~Y.HOUR
DATIM+l.60~*MIN.10*SECftJ61d00

70026
70027
70030
71.1031
70032
70033
70034
71d035
7rc1036
70037
70040
70041
70042

0",o000
072016
1034202
026036
062005
070202
034201

ClKIN NOP
STA
ISz
JMP
LOA
STA

000000

036015
026044
060350
0 7 2015

CLC0

~62016

CTEMP
OATIM+l
CL.CkI
M36K
DATIM+l
ISZ OATIM
NOP
ISZ X
JMP CLC1+1
LOA ,-2
STA X
L.OA CTEMP

ENTRY POINT,
SAVE A,
BUMP 100MS COUNTER
NO PROBLEM If NO SKIp
RESET 100MS COUNTER,
BUMP HR COUNTER.
JUST IN CASE ..
ENTER SCHEOUL~R TH1S TIME?
NO
YES, RESET
RESET SKIP WORD
RESET A

0662* THE NEXT INSTRUCTION IS NORMALLY A JMP, WHEN THE.
0663* SCHEDULER IS RUNNIN~, HOWEVER, IT PREVENTS ITSEL.F
10664* FROM BEING REENTERED bY INSERTING A NOP,
0666

70043 000000

0668
10669
rc1 67 0
0671

70044
70045
70046
70\147

0673*
0674*
0675*
0677
rc1678
0679
0680

eLC1

NOP

CLC2

LUA
CL.F
JMP
JMP

062016
10J116

12 6 026
t126050

CTEMP
CLOCK
elKIN,!
SCHED

RESET A
AL.L.O~ ANOTHER ~lOCK INTERWUPT,
RETURN.
USED TO INStRT IN Clel,

THE SCHEDU~ER SECTIUN uF TSB UETERMINEs wHICH
PROGRAM IS TO RUN NEXT. FIRST IT CL.EARS ClCl,
ALLOWING THE CL.OCK TO CONTINUE INTERRUPTING,
~11224

~681

70"'5'"
70051
7"'052
71drc15J
70054

"'682
0663
0684
",685
0686
0687
0688
0689

7"'056 07522b
001520
70060 10;'?201
70061 002 0 04
70062 071226
70063 064273
70064 044335

lfd05b

''''''57

10102400
072rc143
062°26
1071227
103116

Sl,;HEO STA AREG
CL.A
Sf A Clel
LOA CL.KIN
STA PREG
CL,KED eLF CLOCK
STS BREG
f.RA,ALS
SOt
INA
STA EREG
LOB ML.INK+l
AOS .... ?LINK

A_REGISTt.R,
INSERT NOP IN :LC1 HI PREVENT
REENTERING SCHED.
SAVE THE PROGRAM COUNTER
AL.SU.
NOW L.ET THE CLOCK IN AGAIN.
SAVE B REGISTER,
E.-REGISTER,
AND OVERFL.Ow REGISTER,

SAV~

GET POINH:R

0690

5T6 FMAIN

70066 076020

0692
kJ693

0694
0695

70066 060264

L.OA TIMEF

70067 002002
70070 134007
70071 026~62

SZA

TO

ISl TlMER,l

JMP SCHI

0690*

Ft.A~

WORD

GET TIMER FL.AG,
If ", THIS IS NOT A TIMED PRO~.
IF NOT 0, BUMP TIMER,
If NOT OUT OF TIME, ~KIP RorAT~
INW RUN QUEUE,

lIilll*

0002*
0003*
0004*

AT THIS POiNT WE HAVE DISCOVERED THAT THE P~OGRAM THAT HAS
BEEN RUNNING HAS EXHAUSTED ITS TIME LIMI:, THE NEXT SlED l~
TO ADJUST THt QUEUE SO THAT THIs PROGRAM 18 MOVED TO THE
BOTTOM. 1HIS IS ACCOMPt.ISHED BY D~t.ETING THE PROGkAM
FROM THE QUEUE AND THEN H~lNSERTING IT WITH ITS NEW PRIURITw~

0005*
0006*
1I1111?*
000ts 70072
0009 70073
0010 70074
0011 70075
0012 700 76
0013 70077
0014 70100
0015 70101
1tJ016 70102

06'-273
006004
060366

170001
044351
160001
070273
116024
017202

70103 026362

0017

t.OB
INS
LOA
STA
AOB
t.OA
8TA

SCH3

Mt.lNK+l
,+4

GET 1HE ADDRESS OF PH10HITY
FOR THE CURRENT PROG~AM,
SET IT TO t.O W PRIORITV,

1,1

,+?t.1NK.?Pt.EV
GET THE LINK FROM THE CURRtNT
M~lNK+l
PROGRAM ANO STORE IT IN MLINK+l
JSB INSQA,1
INSEHT USE~ IN QUEUE
JSB SWAPR
START EAR~Y SWAPPING
JMP ,StHl
CHECK FOR CUMMUNICATION FROM 14

1,1

0016*
11.119.
1C1020* TEST FOR ANY TTYJ5 BUSINESS
0121.
0022 70H,4
SCHSl Ec.lU *
0023 701~4 064e46
~DB OlTY0
0024 70105 07601;)
STB TTYCK
0025 70106 003400 SCH5 CtA
CPA T35F1
0026 70107 rdf)031J
JMP SCH15
0027 70i10 026273
002ts 7"111 050315
CPA TJ5FJ
0029 70112 026224
JMP SCH16

JUST fINISHED CHECKIN' TTvS
REINITIAL.1ZE
POlNTeR
TEST FOR DRIVER BUSY

DRIVER IS aUSY.
COMMAND

ENT~RfU ~UT

hOT

STA~TED

88llh

0031* WHEN 135F1'''' THE CONSOL.E IS QUIET SO WE CAN UO LOGGING,
IitliJ32

*

0033 10113 "40306
0034 70114 050351
0035 70115 026130
0036.

13037*
0038*
0039
0040
0041
0042

0043
0044
0045
0046
0047
0048

ADA MSGCT
CpA ,-1
JMP SCH152

OUTPUT AN EL.EMENT OF

70116
70117
70120
70121
70122
70123
10124
70125
10126
10127

070306

064307
044421
054311
064312
074307
160001
006004
.114522
02'273

STA
L.OB
ADB
CPB

TH~

TEST fOR ANy ENTRIES ON MESSAGE
MESSAGE QUEUE EMPTy

MESSAGE QUEUE

MSI.lCT
MSQP1

,+Mf.S~N

MSQND
t.D~ MSQtJG
STI.t MSQP1
LOA 8,1
INB
JSB TTY35,I
JMP SCH15

DECHEMENT MESSAGE COUNTER
ADVANCE MESSAGt POINTER
IF AT END OF ~UffER
THEN WRAP AROUND
SET UP NEw ADDRESS
GET ADDRESS ANO
LENGTH OF MESSAGE
AND OUTPUT IT

PAGE

~31~

#29

SCHEDU~E~

~049.

~1/J50

0051
0052
",,,,53
~0f)4·

0055*
"'056
0057
01058
0059
0060
0061
0062
0063
0064
0065
11)066
0067
11)068
00 69
0070
~071

0072
007J
1/J074
0121 75
012176
11)077
0078
00 79
12I1/J8 0

0081
0082
0063
0064
~085

11)066
0087
01668
16089
0090
0091
0092
009J
0094
0095
0096
0097
0098
0099
0100

SCH52
70131t:l
70130 040604
70131 12150351
70132 026224
SET UP LOG BUFFER

EQU •
ADA LOGeT
CPA , .. ,
JMP SCH16

LOG TABLE 18 EMPTY.

70133
70134
70135
70136
70137

STA LOGeT
LOA LOGP1

DECREMENT LOG COUNTER,
~UMP l.OG POINT~R

7~140

70141
70142
70143
70144
70145
70146
70147
70150
7':'1151
70152
70153
70154

70155

70156
7"1f)7
70160
70161
70162
701 6 3
70164
710166
7121166

070604
060606
002004
0f)0630
060626
070606
160606
066006
11)02220
066007
076214
1010~2

01fr!J411
0 4 2011c'
072215
160606
010602
006400
10041210
0"0364
0057 2 7
046011
0762!7
017047
0 1 2216
034606
160606
010411

7"167 017047

710170
70171
70172
70173
7121174
7!t11lS
70176
7121177

SSA
LDBA8CFF
STa LOGBF+J
LSR 10
AND .+37~
ADA AStBA
STA L.O(l6f+4

LOA LOc;Pl,I

70200 072220

70204 060400
70205 066210

TEST f"OR L.OGON
OR l.OGOUT,

SHIfT LOG CHAR TO LEAST 5 81TS,
MASK OfF uTMER STUFF,
CONV~HT TO ASCII.
GET ACCOUNT NUMBER AGAIN,

KEEP ONLY

BLF,sL.F
A08 ASC08
5T8 L.OGBF+6

SET UP LAST DIGIT AS
ASCII LEFT HALF,

#

PART,"

DIV ,+lld

Ja8 *LTEN

CONVERT FIRST 2 TO ASCII ALSO

atA LOGBF+S
ISZ l.OGPl

LOA LOGP1,1
AND ,+37..,
J8B #LTEN

CLB

174606
017047

IF AT END,
Wfo(AP AROUND,

AND B1777
CL.B

0064~0

70201 160606
70202 017047
70203 072221

70206
70207
702110
70211
70212

LDB AStIN

STA LOGSF+lrd
LUA LOG P1,I

10040~
0007~4

NOW GET THE TIME,
GET TERMINAL NijM8ER
CONVERT AND STORE IN

~uffER.

A8R 5
DIV 1)6(0

STB LOGP1,I
JSB #LTEN
5TA LOGBF+7
LOA LOGP1,1
JSB _LTEN

STA LOGBF.8
LOA ,+22
LD8 LOGR2

SAVE SECOND HALF
CONVERT FIRST HALF TO ASCII.
CONVERT 2NO HALF TO ASCII,
TO PRINT THE
STUFf,

11~522

SCH21 JSB TTY35,I

02621,3

JMP SCH15
~uFFER ADDRESS
l.OGR2 OfF *+1,1
LOG~F ASC 11,.*LOGoFF A123 0930 *01

170211
025052
046117

LUGTABL~

INA

CPA LOCfND
LDA LOGt)G
STA LOGPl
LDA LOGP1,I

072223
160606
101025

TEST fOR ANY ENTRIES IN

(l.~PUNCM)

PAGt. 10311 #29
70213
70214
70215
70216
70217
702211)
70221
70222
10223

SCHEOUI.ER

043f517
043106
020UH
030462
031440
030071
03,460
020043
030061

fUll.

1IJ102.

TTY35 10 COMPLtTE

"10~,*

0104
0105
0106
0107
0108
01(;)9
0110
0111
0112
'U13.
0114.
0115
0116
0117
0118
liH 19
0120
0121
0122
0123
0124

012'.

0126*
0121.
0128
0129
0130
0131
iS132*

0133
0134
0135
IU 36
0137
0138
0139
0140
0141
0142
0143
0144
01 45

fU 46

SCH16 CPA
RSS
JMP
I.OA
LOB
CPA
026~56
JMP
002002
SZA
026213
JMP
INPUT COMMAND

70224
70225
70226
10227
70230
70231
70232
7 02 33
70234
TTY35

050314
002001
026273
060277
064301
050355

70235
70236
70237
70240
70241
70242
70243
70244
70245
70246

060303
070060
060304
070061
060412

I.OA
STA
LOA
STA
1. 04
STA
JSB
JMP
JMP
JMP

07006A

017113
026~64

020266
026266

T35F2
SCH15
T;)55T
T;;5PR
XOUTW
SCl123
SCH15
T35B2
SBHED
T36NU
8CHL.
, +4'rH~
SCHP
8COM
8C H17
SCM18
seM1 S

TEST DRIVER COMMUNICATE fL.AG.
SET CONSOl.E STATUS.
IF OUTPUT WAIT,
GO SET HIM UP,
If NOT 10l.E WEVE ALReADY
QUEUED HIM,
POINTtR TO FIRST CHA~ACTER
OF CONSOl.E BUfFER,
POINTER TO ~NO OF
CONSOL.E SUrFE.R,
INITIAL.IZE tOM~AND
HOI..IJER,
GET COMMANO.
8L.ANK LINE
E~ROR

ERROR

SET UP QUEUE ENTRY FOR CONSOI..f.,
70241 060060
70250 070054
70251 060~12
7 0252 07 0055

I.OA
STA
L.OA
STA

SSIiEO

70253
70254
70255
70256
7 0 257
70260
70261
70262
70263
10264
7026e
70266
70261
70270

1.0A
8lA
ADB
STs
L.OA
8TA
L.06
JMP
ASS
I.OA
RSS
L.OA
CLB
STS

#IIL.IB.
SET RESTART ADORt:.SS.
T35RS
SET PROGRAI'1 STATUS
SCH19
T358T
TYPE,
8ET PRIORITY,
,+2
T35PR
T351.N
GO lNSERT !N WUEUE
SCHJ
.COM2+X SYN T-,+1
OUTPUT L.1NE FEED
ONEI

.,60506
070e76
046263
074277
060354
070301
064302
026HH
106061
06"'662
002001
06 0 356
0064 00
074314

8CI123

SCH19
SCH11
S(;1118

T35CP
,+408
TJ5L.C

.+4
T30f2

sET POINTER FOR
T35CR ,
SET uP L.A2T CHAR
AS BLANK

OUTPUT ERROR MESSAGR

PAGE I/jJ12 #29
112147
1d14t)

SCHEDULt:.R

70271 064666
70272 ..,26206

LOB OEH
JMP SCH21

70273 0172"'2

SCH15 JSB SWAPH

0158.

,utH.
~152

ta153.
1.1154.
0155.

01571.1158015901600162
0163
kl164
ItH65

0166
0167
16168
"'169
0170
0171
0172
~17J

0174
0175
~176

kl177
1e)178
~179

kl180
0181
0182
01 8 3
0184
0185
kl186
0187
0188
ft:I189

0190
rrH 91
ft:I192

!dl g 3
leaP4
~H95

"'196
0197
k'l19 t)

CHECK FOR ANYTHING TO DO, IF NOT
SwAPR WILL GO TO SCHi AGAIN,
IT WILL RETURN HERE If THE~f IS
AN t:.XECUTABLE PROGRAM IN ~ORE.

THE PROG~AM TO RUN IS AT THE HEAD OF ThE QUEUE, AND SWAPR HAS
GUARANTEED THAT IT IS IN CORE, THE fOLLOwJN~ SECTION OFtODE
SETS IT UP TO RUN, AND ALSO SETS UP THE CLOCK DRIVER So THAT
fUTURE INTERRUPTS ~lLL GO BACK INTO THE SCHfOULlR.
7 0 274
70275
70276
70277
70300
70301
7 0 3..,2
703",3
7fd304
70300
70306
70307
70310
716311
716312
7133 1 3
716314
70315
7fa316
716317
716320
716321
70322
716323
716324
7fd325
70326
70327
7033'"
703Jl
70332
70333
70334
70335
716336
716337
70340

1°31°0
12162047
e72043
00..,27J
0020~4

1640~10

0543504
0064~V'

174160111
040347
164000
16061602
0762~7

1606400
174e0j()
16 74264
00201a4
16400~

04035"
16700S7
054357
I(JJ4264
040340
16641600
1616001
1610612
070261
160001
010736
070214
061226
103101
1600036
102101
061224
1665225
11621016

CLF
LOA CLC2
STA Cl.C1
1..0 A MLtNK+l
INA
LOB 16,1
CPB .+2
CLB

'"

5r B 0,1

INHIBIT INTER~VPT,
HESTORE A  IN THE
CLOCK INTERRUPT ROUTINE,
GET PRIORITY OF PROGRAM,
IF PklORITY IS 2, CHANGE IT TO

zERO SO IT oOESNl GtT INTERRUPTE

AOA ,.1RSTR"1PLEV
GET RESTART ADDRESS
If NOT Itj, PUT IT IN PREG
L.OB 0,1
TO START UP PROPERLY,
SZ8
STa PREG
pUT Id INTO TA~LE IN ANy CASE
CL.a
STa 0,1
8ET TO SAY NO TIMING.
5T8 TIMEF
GET PROQRAM STATUS.
INA
L.OB 0,1
AOA ,+1C,,-OC-1STAT
SET TIMER POINTE~,
STA TIMER
CpS %SYNT+1
IF STATUS IS RUN, SET
TIMlFLAG fO~ CLOCKING,
ISZ TIMEf
ADA ,-1CLOC
SAVE fLAGS
1..08 A

POINTE~

LOA e,l
AND ENoST
stA ENORM
LOA 8,1
AND Mt:lUST
srA M8U8Y
LOA E.~EG
Cl.O
SL.A,ELA

RESTORE
DRUM
ANI,)
DISC
BUSY
FLAGS
RESTORE E
AND OVERFLOW
REGISTEAS,

L.UA AREG

HESTORE A AND
8 REG,
ENABLE INTERRUpT AND

5ro

LOS BREG
STF 0

16199
",200*
0201
0202
0203
0204
0205
0206
0207
0208
0209
0210
0211

16212
0213
0214
0215

16216
0217.
021d*
",219*

0220*
0221*
0222*
02230224*
0225*
0226*

JMP
START OF SYSTEM •
70342 060355 TS8
LUA
70343 102616
OTA
STC
70344 103716
70345 106711
CI.C
70346 106712
CI.C
70341 125227

10347
70350
70351
70352

70354
70355
70356
70357
703 6 0
10361

8234.
0235*
1tJ236.
0237*

1tJ238.
023g.
0240*
0241.
0242.
02.43.
1244.
024!)*
0246.
8247.
0248.

0249.
0250.

,+3

CL.OeK
CLOCK,e
CH2
1SC
NPORT

CMA
ALf,ALF
lOR lNl
JSB 814SC,1
sFs CH2
JMP
STC CH!,e
LOA .+0
1..06 REAOY
Jsa TTy35,1

70353 1145016

.·1

102311
026354
10J710
060360
0 64 266
114522

TRANSfER TO PROGRAM,
START CLOCK COUNTINw IN
1160 "'S UNITS.
START CL.OCK

A • NUMBER OF

LE~AL

PORTS

~

1

pl.UG IN INITIALIZATION CODE,
wE'RE STARTING
WAll f'OH 2114
10 FINISH
STAR1 SYSTEM
TELETYPE BY OUTPUTTING
Rf.ADy MESSAGE,

THIS SECTION IS THE 8EGINNING OF THE MAIN PART OF THE SCHtDU~
Ll:R CONTROL ALWAYS COMES HERE TO EXAMINE THE TTY UNTIL IT'S
EXHluSTfD, OR WHEN THERE 18 NOTHING TO DO, SWAPR ALWAYS COMES
TO THIS POINT wHEN THE QUEUE 18 EMPTy OR THE FIRST PRUGRAM ON
THE QUEUE IS ABSENT.
THIS SECTION ACTUALLY PROCESSES A TTw tNTRY. THERE ARt SEVERAL.
KINDS O~ ENTRIES WHICH MAY BE CLASSlFIED AS fOLLOWS.
1)

16227*
0228.
022g.
0230.
0231·
0232*
0233*

1.0A

060177
00300'"
001727
030226

PRl:G,J.

ABORT ~ THIS IS INDICATED BY THE TELETYPE STATUS ~EING
-1, THE ACTION TAKEN IS TO STOP THE PROGRAM (IF IT IS
IN THE QUEUE), AND Tu INITIATE THE A60HT MESSAGE,

2) OUTPUT TERMINATE • THIS IS INDICATED BY THE STATUS BEING
XOUTW, THE TrW ENTRY REALLY MtANS THAT THE OUTPUT BUFfER
IS ALMOST EMPTY, THE PROGRAM IS PLACED BACK ON THE QUEUE
ACCURDING TO ITS PRIORITY.
J)

INPUT ~ THIS IS INDICATED BY STATUS ~EING XINPT, IT INUI~
CATES THAT A USER PROGRAM OR SYSTEM PROGRAM THAT HAS
REQuESTED INPUT HAS GOTTtN IT, THE PROGRAM IS PLACED IN
THE QUEUE,

4) COMMAND • WHEN STATUS 1$ XIDLE, [ITHER A COMMAND OR

A SYNTAX STATEMENT HAS BEEN ENTERED, THESE CAN ~l: DISTIN.
GUISHED ~y THE FIRST NON BLANK INPuT C~ARACTER, wHICH 15
A DIGIT ONLY IF SYNTAX HAs SEEN ENTEREU.

5) DISCONNECT. THIS IS INDICATED BY STATUS SEING XOISC.
THf ACTION TAKEN IS TO CALL THE BYE ROUTINE
6) ENTER TIMEOUT • THIS IS INDICATED BY THE STATUS ~EIN~
XENTO! THE RESTART AODRESS IS BUMPED AND THE PROGRAM IS
PLACED ON THE QUEUt,

8251.
0252 70362 1~2100
0253 70363 066013

SCHl

STF 0
Loa TTYCK

PAGE 0314 #29
1fl254
0255
0256
0257
0258
0259
0260

0261
0262
0263

°264

0265
0266

0267
0268
0269
0270
0271
0272
0273

0274
0275
0276
0277
k'J278

0279
0280
0281
0282
0283.

101284*

70364
70360
7121366
70367
71c:l3 7 0
70371
70372
70373
70374
70375
70376
70377
70400
712141211
7121402
70403

SChtOuLER

'154550
026104
160001
12144375
0 76 013
010172
002003
026362
044327
103100
12 0001
1712101211
12174062
044356
1.174063
044362

71d404

160~01

70405
70406
70407
7121411c:l
70411
71c:l412
70413
70414
70415
7"416
70417
70420

04121346
0021.121
12126362
l'J42412
12412100
107121422
026531
1t)26514
0264.13
026535
12126 Hi&
00001210

cPa DTT32
HAVE ALL TELfTYPES BEEN CHECKEO?
JMP SCMS1
yES
LDA 1,1
LOAO STATUS fOR THIS u~ER
AOB .+TTY01~TTY00 GENERATE AODRESS fOR N£XT
STe TTYCK
USER
ANO COM14
COMMUNICAT!ON FROM 21141
SlA,RSS
sKIp IF sa
JMP SCH1
NO •• CHECK NEXT ONE
ADS .+TTY0121~TTY"1 MovE ADDREss BACK TO THIS U
eLF 121
XOR 1,1
CL.EAH
COM14 BIT
srA 1,1
sTB TTQ
SAVE TAB~E AODRESS
A08 ,+?lD
STOfU. 10
ADDRESS
STB SCHIO
Aoa .+?STAT .. ?lD
LOA 1,1
A-STATUS
AOA ,-4
MAKE SURE
SSA,RSS
STATUs c 4
JMP sCH1
IGNORf OTHEH"ISE
ADA *+2
8RANCH TO SECtION
JMP 0,1
TO HANOLE RE~UEST
OEF *+8
JMP SCH4
t.NTf.R TIMt:.OUT
JMP SCH8
DISCONNECT
A80RT
JMP SCH7
COMMAND
JMP SCH6
JMP SCH5
ABORTING
INPUT
NOP

coot:. TO HANDLE INPUT OR OUTPUT,

0285.
02 86 7 13 42 1
10287 710422
0288 7~423
0289 713424
029121 70425
0291 7 0 426
1r:l292 71t)427
0293 7~430
10294 70431
0295 70432
.,296*
,,297* CODE
0298.
02 99 7"433
0300 713434
k'J301 710435
0302 7~436
16303 70437
0304 70440
0JltJ5
713441
031216 713442
0307 70443
031218 70444

1344364
16013131
~44350

170001
1021013
044354

ADS
SCH51 LOA
ADS
STA

.+1PLfV-?STAT
1,1
GET ACTUAL STATUS
.+?STAT.?PLEV
1,1
SET ACTUAL STATUS

ST, 0

Aoe ,+?PLf.V-?STAT
CLA
SET PRIORITY TO
srA 1,1

101324~H!J

17001211

Aoe

k)44JtH

.+?LINK~?PLEV

JMP SCHJ

026101

~

GO INSERT uSER IN Qut:.uE

TO HANDLE ABORT
102100
~k'J6004

017577
~64062
~60412

"'0J00~

1133113'"
11013131
17131301
13106004

SCH7

STF '"

INS

JSB DEQuE

LDB TrQ

til>LINK
REMOVt:. USER FROM QuEuf.,

LDA OUTWT
eMA
eLF 13

AND 1,1
srA 1,1

INa

wArT
alT

PAG~

~309

0310

0311
0312
0313
0314
0315

0316
~317

0318
03 19
iit320
0321
0322

0323
03241
0325
0326
0327

03 28
0J2g
~33121

0331

0332
0333

0334
0335
1IJ336
0337*
1IJ338
0339
03410
03411
03412
03413
1IJ3441
0345
03416
0347
03418

0315 *29

SCHtDUlER

70445
70446
70447
70450
70451
10452
70453
70454
70455
70456
104157
70460
70461
70462
70463

160001
030241
1145014
044351
060444
110001
002003
026475
1t)60372
130001
170001

1~464

0441J~0
06~:J63
1700~1

70465
7~466

10210~

044370
0",2400
170001

70467
7 0 470
7047 t
70472
70473
70474
70475
70475
70476
70477

044351
04 2fcl 23
160000
170001
044354
026101

70500
70501
70502
70503
70504
7051215
7051d 6
7051d7
7 0 51°
70511
70512
70513

064255
017057
064062
060342
017075
006412
051 5 24

044366
170001
116025

lDA B,l
GET TTY NUM~ER
lOR KAO
JS6 SI4SC,1
KILL OUTPUT
AOB ,-I
LOA OfCHK
AND 1,1
SlA,RSS
NEED TO UPOATE CHANG~ DATE?
JMP 5CH7S
NO
lOA UNA6T
YlS
lOR B,l
DISALLOW
STA 6,1
ABORTS
STF "
ADS ,+1PLEV
Ct.A
STA S,l
SET PRIORITY TO ~
AUa ,+?STAT~?PLEV
LOA ,+XSYNT-,+1+UCOAS.COM2
STA b,l
SET STATue TO LAST CHANGE OATE
ADa ,+?R8TR.?STAT
ADA XCOMS
FINU POSITION IN TA8~E
lOA A,l
GET RESTART ADDRESS
STA S,1
SAVE IT
AO~ .+1LINK-?R8TR
JMP SC~3
~O INSE~T IN QUlUE
SCH75 EQU •
ADS ,+1STAT
SET STATUS
srA 1,1
JSs TRNFP,I
C~lAR PHFLG & CSfLG sITS
AND TELL OTHER MACHINE,
CPB PRIST
USfR HAVE LP1
JS8 selPR
YES,
LOB TTQ
NO, PRINT ABORT
lOA ,_8
MESSA~E
JSB TYPt;::
OCT 6412
CRLF
Ase 2,STOP

04752~

0064 12
064062
017100
026362

OCT
8tH78 LU8
JSB
JMP

6412

TTQ
HTEST

CRLF
SCRATCH IF SMELLO 15 RUNNING

8CH1

0~"'* CODE TO SET UP FORCED DISCONNECT,
0350-

83i1.
0352

1t) 3 5 3
0354
0365

0356
0357
0358
ro359
0360
0361
0362

70514
70516
70516
70517
70520
70521
70522
70523
70524
70525
70526

006004
017577
064062
060372
030442
0304414
se3B00
110001
170001
1021~kl

060001

SCH8

INS
JS~

OEQUE
TlQ
UNA6T
ABTRY
DFCHK

lOB
LOA
lOR
lOR
eMA
AND 1,1
STA 1,1

sn·

0

LOA 1

B .. > LINK WORD
REMOVE FROM QUEUE
CLEAR
ABORT

0363
036.0365.
itj366*
klJ67.
0368
0369

0370
11371
0312.

ADA .+1RST~
JMP SCH61

70527 040365
705J0 026755

CODE TO HANDLE
7 0 531 044351
70532 134001
70533 044355
7ftl5J4 ~J26'-22

lNTf~

SCM4

TIMEOUT
A08 ,+1RSTR~?STAT
ISZ 1,1
~UMP RESTART ADDRESS
A08 ,+?PLtVw?RSTR
JMP 8CH5l
GO RtSTORE STATUS

iOllJ.
0374*
0375.
0376
'd377
0378
1d379
Idl80
id381
"'382
1&1383
k'l384
0385.
0386*
0387.
038t).
11389
0J90

0391
0392
0j93
k'l394
0395
0J96
03 9 7
k'l398
0J99
0400

0401
0402
0483.
0404
0405
fd4k'l6
0407

CODE TO HANDLE COMMANDS,
70535 1\12101d
70536 002401d
70537 1t170060
70540 070064
70541
10542
7fd543
70544
70545

017113
026564

kl26546
026605
026617

70546

~64062

70547 044J7k'l
70550 01c?240kJ
70551 150063
7~552

026623

70553
7fd554
7fd555
70556
70557
70560

170001
044347

06ki454
170001
ki4435J
060356

70561 170001
70562 006004
7~563

026101

70564 ki64062
060362
110001
0k)200J
0266fd1

0408

0409

7id571 006004

0410

70572160001
70573 030222
70574 11450!C)
7121575 160001
70576 030242
7fd577 11450~

0417*

STF 0
Cl.A
STA BaMED
srA SCHP
Jse SCOM
JMP 8CHJ0
JMP SCH~
JMP lHERR
JMP SCHl1

SUfFER HEAD TO
SAY 8UffEN IN 2114
INITIALIZE TO HULO CHARAcTeRS
INTERPRET COMMAND
EMPTy LINE,
fIRST CARACTER A DIGIT
INVALID COMMA~D,
COMMAND l~ OK"
f~AG

THE FIRST CHARACTER IS A DIGIT, THIS MEANS THE lINE IS SYNTAX AND
WE HAVE TO ~UEUE IT AS SUCH,

70565
70566
71a567
70570

0411
0412
0413
0414
11415
fd416

SCI16

70600 026362

LOS
ADa
CLA
CPA
JMP
STA
ADa
LOA
STA
A08

LOA

srA
IN8

JMP

SCHID,1
SCH25

8 •• PRIORITY
SET PkIoRITY TO ~
IF NU 10, GO LOG IN,

1,1

.+?RSTR~?PLEV
SET UP STARTING
SVNTA
fOR SYNTAX
1,1
,+?STAT .. 7RSTR
~SYNT
SET STATUS TO
1,1
SYNTAX,
GO INSERT IN ~uEUE,
SCHJ

SCH30 LOB TTQ
LOA TAPfF
AND 1,1
SZA,RSS
JMP SCH20
INB
LOA 1'1
lOR GTe
JS8 S14SC,I
LOA 1,1
lOR ALl
JS8 S14SCrI

JMP SCHl

AOI)R~SS

TEST fOR TAPE MOUE If NULL LINE.

NO

TAPE~.GO

~Mll

~lNE fEtO.
12~8

S-> TTY. IN SITS

SPACE
PA~T

CARRIAGE RETURN
INFORM 2114
TMAT MOR~ INPUT
IS ALLO~At$Lf.

PAGE kill1 #29
fd41t3
0419
042~

0421
8422.

11)423*
0424*
0425
0426
0427
042ij
0429
10430
0431
0432

70601
70602
7",603
70604

SCH~DUI..ER

060164
064062
11 45 76
1d26362

SCH20 L.OA
L.0t)
J8B
JMP

,+12B
TTQ

OUT~UT

A

I..l~E F~EO'

QUTeH,I
8CH!

COME HERE WHEN ANY lL,L"EGAl. INPUT 18 FOUND,
70605 064~62
7ld60!) 006004
70607 054255
706110 017057
70611 06 0 344
70612 017075
70613 005077
70614 037477
706lb 00641a
70'516 026362

EHEHR LOB
INS
CPS
JSB
L.OA
JSB
EH
OCT

TTQ
PIUST
SCI..PR

,-0

IF USER HAS LP,
REL.EASE IT

TYPE
5077,37477,6412

(11'0

JMP 5CHl

0433*

0434* COME HERE WHEN A LEGITIMATE COMMAND IS FOUND
0435.

13436
0437
043ij
0439
0440
0441
0442
0 4 43

70617
70620
70621
70622
70623
70624
70625
70626
710627

0444
(6445
11.1446
0447
0448
0449
0450
0451
0452
0453
0454
0455
0456
0457
0458
0459
04 6 0
0461
0462
0463
16464
0465

706J0
70631
70632
716633
70634
713635
70636
70637
70640
70641
71/l642
70643
70644
70645
70646
70647
70650
70651
70652
70653
7 ftl 65 4
10655
70656

160063
0021603
0!56636
026640
1660332
017075
0051213
04610e
040523
042440
046117
043440
044516
006412
.,26362
071737
~7172;i

064062
160001
010362
002003
026665
006004
160001
030237
114500
102311
026651
102511
002002
0266eJ5
103100
7ftl651 0 4 4351
7ftl660 060362
70661 003000

seHll L.OA SCHlD,l
PHoeEss COMMAND ONL.Y IF
10#0 OR
Sl.A,RSS
CPB HI
HEL.L"O COMMAND,
JMP SCH22
sCH25 l.OA ,-16
pRINT LOb 1,... Mf.SSAGE
JSB TypE
OCT 51211.1
I.f-P
Ase 6,LfASE LOG IN

OCT 6412
JMP SCHl
OfF HELL.O
HI
DTAPR Dff CTAPR
SCH22 LOt) TTG)
L.OA 1,1
AND TAPEF
SZA,RSS
JMP SCH24

TAPE
MODE1
NO

INS

L,DA
lOR
JsB
SFs
JMP
LIA
SZA
JMP
CI.F
AOS
L.OA
eMA

1'1
IL.I
514SC,1
CH2

·-1

yES •• CHfCK
FOR ADDITIONAL
INpUT
WAIT FOR
ACKNOWL,EOG~ENT

CH2

EHERR
0

.-l
TAPEF

IL.L.EGAL. INPlJT?

yt,s

NO

CI..EAR
TApE

PAGE 0J18 #29
.,466
0467
04sa
0469
0470
0471
~472

0473
0474
0475
0476
0477
0478
0479

SCH~OULE~

70662
70663
70664
7"'665
70666
70667

110001
170001
102100
160064
053737
026703
7~67k) 053713
70671 026703
70672 053740
70673 0267~J
70674 160001
70675 010353
70676 002003
70677 0267.,7

1~88*

0481
0482
0483
"~8~.

0485
0486
0487
0488
0489
0490
0491
0492
rd 49 3
0494
0495
1c1496
0497
0498
0499
1d500
0601
0602
0503
(158".
13505
121506
121507
0508
0509
121510
0511
05 12
0513
0514
0515

70700 062637
7071211 070064
70702 026707
70103
70704
70705
70706
7071217
70710
70711
70712
70 7 13
70714
70715
70716
70717
70720
70721
70722
70723
70724
70725
70726
70727
70731d
70731

060353
003000
110001
1700~1

044357
160001
01212021
12126126
16 1210 64
053732
026735
053733

026135
053717
k)2b736
05376!0
026135
053721
026735

064064
046004
1d06021
12126746

10732

k)467~4

7121733
70734
70730
70736
70737
70740
70741
70742
70743
70744

124001
17202~

061334 0
"17075
005122
052510
020117
047114
1054415
026601

AND
SlA
5TF
sCH24 I.DA
CPA
JMP
CPA

1,1
1,1
0
sCHP,l
HEL.LO
SCH27

TfST FOR

HEL.~O,BYE,

OR SCRATCH

OK TO PROCEDE If ANY

Of THESE.

SCH
JMP SCH27

CPA BYE
JMP 8CH27
I.DA 1,1
AND Tt:Rfot
SlA,RSS
JMP SCH126

rEST FOR ANY TApE ERRORS.

LOA DTApR
STA StHP
JMP SCH26

OTHERWISE, I~T UP FOR EXECUTION Of TAPE ~RROR
PRINTOUT ROUTINE,

SCH27 LOA TERR
Cfi1A
ANi) 1,1

STA 1,1
SCH26 ADS .+?NAME
LOA 1,1
SSA,RSS
JMP SCH28
LOA SCHP,l
CPA SAVE
JMP SCH29
CpA CSAV
JMP SCH29
CPA LIS

IF

H~I.LO, BYE OR SCRATCH,
CL.EAR TAPE
ERROR alT
AND PROCEED

TEIT FOR
RUNWONL.Y PRO'R'M.
NOT HUN.ONLY,
If RUNwONI..Y, DON'T
ALLOW THES':'
COMMANDs,

JMP SCH29

CPA PUN
JMP SCHa9
CPA xPuN
JMP SCH29
SCH28 LOB 8CHP
ADa MCOM2
TEST fOR TVPE J COMMAND.
SSB,RSS
JMP sCH12
NOr TyPE I,
ADa *+2
GET STAHTIN~ ADDRESS fOR COMMAND
JMP 1,1
PROCE8S0H AND GO TH~RE'
OEF COMS·COM1+COM2,1
SC H29 LOA '-1 0
Jsa TYPE
OCT 5122
LF-R
ASC 3,UN ONI..

OCT 54415
JMP SCH20

VeeR

"

.. ':.

Soli* TYpE II AND 111 COMMANDS
8520*
0521 70745 044357 SCH12 A08 %SYNT+l
DETERMINE PROGRAM STATUS,
0522 70746 06006~
L.OA TTQ
,,523 70747 040366
ADA ,+15TAT
0524 70750 174e00
STS 0,1
0525 70751 0403tH
AOA .+1HSTR-1STAT A.>RtSTART ADDRtSS
0526 70752 044337
ADS .+,-XSYNT+COM2.COMJ-1
lYPE 11 OR III 11
0527 70753 006020
sse
0528 70754 026766
JMP SCH13
TYPE II COMHAND
0529 70755 064506 seH61 LOB #LIB#
TYPt III COMMANDS MAVE A 5TANft
0530 70756 174"0"
STB 0,1
DARD STARTlNG ADDRESS AND
"531 70757 064354
Loa .+2
PRIORITY ~.
0532 70760 kl4"'35e SCH14 AOA ,+1PL.~V~?RSTR
0533 70761 174000
STS '11,1
eea
iET ~lNK P01NT~R IN ij AND GO
0534 70762 0074 00
0535 70763 044000
AOS '"
TO INS~RT INTO QUEUE.
0536 70764 026101
JMP SCMJ
0537 70765 072034
OfF COM3+COM5.COM1
0538 70766 046765 SCH13 ADS •• 1
GET STARTING ADDRESS FOR TypE
0539 70767 164001
LOB 1,1
11 CO~MANUS.
1d540 7077'" 174001t1
SlB 0,1
CLB,INS
;0 SET PRIORITY TO 1
0541 70771 0064 0 4
0542 7'11772 026760
JMP SCH14
11043*
11)544. "S~RATCH" COMMAND
0545*
0546
",547
1t1548
0549*
0550
1c'J551
0552
0553
0554
0555

70773 0641362
7'11774 016776
70775 026601
70776
70777
710(c)0
71001
710'112
710"'3
71004
71005
71006
71ta07
71010

000000
060702
054257
070056
044355
1700~1

tiSCH

1.08 TTf.)

JSB SCRAT
JMP SCH20

8 11 >TTY TABLE,
PERfORM SCRA1CH FUNCTION.
TERMINATE.

SCRATCH A PROGRA~ (B.>USE~S TTY)
PBUFF
If MAIN.~, SET PbPTR,
MAIN
PBPTR
.+1PROG
a.>PHOGlND
1,1
REsET TA8~E~PROG)
AO~ ,+1NAME-1PROG
CLtAR
LOA 1,1
READ-ONLY dIT.
ELA,CLE,ERA
8lT,
STA 1,1
JMP SCHAT,l

SCRAT NOP
LOA
CPB
STA
ADB
SlA

0556
044354
0557
160001
001665
0558
1t1559
170001
0560
126776
0881*
0002. "TAPE" COMMANO
0103.
0004 71011 103100 _TAP
0005 71012 064062
0006 71013 006004
0007 71014 160001
0008 71015 030;jl5J
0009 71016 114500
0010 71017 103100
0011 71020 102311
0012 71021 027020
01t11J 71022 102511

eL.F
LOB
INB
L.f.)A
lOR
Jst;
Cl.f
SFS
JMP
L.lA

0
TTW
8,1
WTp
S148C,1
fa

CH2
.-1
CM2

8 .> 1FL.AG
Sa> 1TNUM
A. ?TNUM
ASK wHAT TypE,

71023
71024
71025
71026
71 0 2 7
71030
71031
71032
7Ul 33
71034
71035
71036
71037
71040
71041
71042
711tl4J
71044
71045
71"'46

~014

0015
1c:l016
0017
0°1 8
0019

002003
027035
060340
017075
005111
046114

SZA,RSS
JMP -TAP1

JS8 TYPE
OCT 5111
ASt 3,I..L.EGAL.

0044
0045
0046
0047
0048
0049
0050
0051

*

0052
0053
1c:l054
0"'55
~"56_

71057
71060
71061
71062
71063
7hJ64
71065
71066
71067
7110713
71 07 1
711372
71073
71074

l.F, 1

~42507

040514
002 0
006412
OCT 6412
01tl21
026362
JMP SCHl
0022
064062 #TAPI L.DB TTQ
0023
160001
L.OA 1,1
0024
lOR TAPEF
03036~
0025
1701iHU
STA 1,1
0026
1021riHd
STI" 0
0027
006004
INS
0028
LDA 1,1
1 6 0001
0029
kl30236
lOR TPO
.,030
114500
JSB 514SC,1
0031
02b601
JMP SCH20
1J032e033_
01c:lJ4 71047 000000 #LTEN NOP
0035 71050 006401c:l
CL.6
0036 71051 100400
Dlv ,+10
71052 000364
AL.F,AL.F
00;51 71053 001727
~038
ADA 1
71054 11140001
0039 71055 "' 40 57 4
ADA ASC00
0040 71056 127047
JMP #LTEN,l
.841HELEASE LINt PRINT~R
td042**
iHiJ43

TYPE. #1, 01(

L.DA ,-10

00~000

002400
070255

060336

017073
':11142J
005114
050040
1043124-!
042506
0064 12
1000247
114500
1270~7

5CI.,PR NUP
CLA
STA PRIST
LOA •• 12
JSB TypE

ocr

11423

OCT 5114
ASC 3,P FREE.

or.;r 6412
LOA LPD
J8tj S14SC,1
JMP SCI..PR,l

CR, LF
PRINT MESSAGE & TERMINATE,
tj _:II> FLAG WORD

SET TAPE tsIT

rELL
2114

TERMINATE,
CONVERT A # FROM 0-99 TO ASCII,
GET fIRST DlGIT IN A,
sECONO IN ts,
POSITION FIRST ON LEfT,
ADD IN SEtO!";),
ADO IN ASCII tslTS.
RETURN,

REMOVE USER FROM l.P
OUTPUT MESSAGE
X-OFF, X-OFF
Lf,·1.,

CR, LF
TELl.. I/O PROClSSOR TO
HfMOVE USER fkOM l.P

0057· TYPE SENDS AN ENTIRE STRING TO A TE~ETYPE. IT IS CALLED AS FOLLOWS
A-w*OF C~ARS~-MUSl ENO ON RIGHl HALf OF WORD
1d1058.
JSB TyPE
0059*
006rh

0061*
RETURN

PAGE

~321

#J~

SCHEDULER

080000 TYpE NOp
71076 073112
STA TYPET
SAVE COUNTER
1Q~65
71077 163875 TYPEL LOA TYPE,l
GET WORD CONTAINING CHAH,
GET COUNT IN 1;,
0066 71100 067112
LOS TYPET
0067 71101 006011
I~ COUNT 18 EVEN, TA~f HIGH
SLB,RSS
0068 71102 001727
ALF,ALF
CHARI
0069 71103 004010
SlB
If COUNT 18 000,
0070 71104 037015
lSI TYPE
~UMP TYPE,
~071
11105 064062
LOB TTQ
OUTPUT CHAR TO T~LETYPE,
0072 71106 114516
JSB OUTCH,l
0073 71107 037112
ANY MORf.1
ISZ TYPEr
0074 71110 02i077
JMP TYPfL
YES,
NO,
14075 71111 127075
JMP TYPE,1
0076 71112 0~0000 TYPET NOP
0077. SCOM SCANS A COMMAND INPUT BUFfER TO OETERMIN~ WHAT
0018. TME COMMAND IS. THE CALLING SEQUENCE TO SCOM IS:
~06J

71~75

0064

".19.
0080*
0081.
0082.
0083*
008 4•

JSB SCOM





118'.

0086· SCOM ASSUMES THAT BEFORE IT IS CALLED, 8aHfD AND
0087. SCHL ARE INITIALIZED AS REQUIRED 8Y SCHAR,~ AND
0088. SCHP-0 FOR NORMAL usERs AND OCT40 FOR CONsuLE,

0090
0091
0092
0093
0094
0095
0096
0097
009a
0099
01f1J0
0UJl
IU02
16103

0104
0lil5

0106
0107
ftH flJ8

0109
0110
0111
0112
16113

0114
0115
0116
0117

71113 000000
71114 06 434 7
71115

07406~

71116
71117
71120
71121
71122
71123
71124
71125
71126
71127
711 30
71131
71132
71133
71134
71135
71136
71137
71140
71141
711.2
71143
71144
71145
71146

0171527
127113
0J7113
042001
002020
037113
040340
002El21
027140
064064
006002
12711J
064062
006004
160001
0302~ 1
1141500
12711J
0J711l
042r802
002021
121113
040404
002020
12711J

SCOM

NOP
LOB ,-;,
ST8 SCNT
J88 SCHAR
JMP SCOH,I
ISZ SCOM
AgA M608
SSA
ISZ SCOM
ADA ,-10
SSA,RSS
JMP SCOME
LOB SCHP
SlB
JMP SCOM,1
LOS TTQ
INS
L.DA 1'1
lOR aKS
JSB ~U4Sc,1
JMp SCOM,l
SCOME ISZ SCOM
ADA H41~
SCOM8 SSA,R8S
JMP SCOM,1
ADA ,.328
S8A
JMP SCOM,1

ENTRY POINT"
lNITIALIZE C~AR, COUNT TO .3

GET It. CHARACTER,
NOT THERE.BLANK LINE!
SUMP SCOM TO POINT AI Dl_1T RET,
TEST FOR FIRST CHAR A D!~IT.
AUTOMATIC FAILURE IF
< A8(;0
IF <-A8,9, RETURN TO P+2 IF A
-DIGIT, p.3 IF NOT
CONSOL.E',

YES
NO

Tt::LL 2114
TO

8ACKS~ACE

Tf8T FOR LETTER.
NOT ALETTER.
NOT A LETTER,

PAGE 0322 #30
0118
0119
0120
0121
0122
fd123
0124
01 2 5
0126
0127.
0128
!d129
!d130
0131
0132
0133
0134
0135
0136
0137
0138
0139
0140
0141
0142
0143
0144
0145
(U46.

SCHEDU~ER

71147 030064
lOR SCHP
71150 034~65
ISZ SCNT
TEST FOR 3 ~ETTERS IN,
71151 001732
A~F,S~A,RAl
NO""'~OTAT£ FOR NEXT vNE,
YES .... GO TO SEARCH TAblE,
71152 ~27161d
JMP SCOMA
71153 070064
STA SCHP
71154 ~17527
JSB SCHAR
GET NEXT CHARACTlR
FAl~,
71105 127113
JMP SCOM,l
71156 042003
AOA M13lS
71157 027142
JMP SCOM~
SEARCH COMMAND lAB~E *
71160 064710 SCOMA lOB StOMl
71161 002020
SSA
71162 044425
ADB ,+COM4 ... COMl
71163 150001 SCOMO CPA 1,1
71164 02717.
JMP SCOMC
COMMAND FOUND
71165 054712
CPS seOM5
H.~E~AL COMi'lAND
71166 127113
JHP SGOM,l
71167 006004
INB
71170 ~2716J
JMP SCOMD
71171 037113 SCOMC ISZ SCOM
RETURN O,K,
71172 074064
STa SCHP
SAVE. ADDRESS OF COMMAND,
11173 017527
JSB SCHAR
SCAN
71174 027200
JMP *+4
FOR CR
OR DASH,
71175 050427
CPA ,+556
71176 002001
RSS
71177 02717;
JMP *.. 4
71200 064064
Loa SeHP
71201 127113
JMP seOM,l

0147*
0148*
IU49.
0150*
!d151.
0152*
0153*
0154*
0155*
0150*

THE SWAPR ROUTINE IS CALLED FROM VARIOUS POINTS IN THE SCHEDULER
IN OROER TO DETERMINE IF A PROGRAM IS READY TO RUN IT IS ALSO
CALLED WHENEVER THE QUEUE 15 UPDATED. 1HE FUNCTION'OF SWAPR IS TO
DETERMINE IF THERE Is A PROGRAM ON THE QuEUE, AND IF SO, Is THE
PROGRAM AT THE HEAD OF THE gUEut READY TO RUN. IF SAID PRUGHAM IS
NOT R~ADY, SWAPR INITIATES THt NECESSARY DRUM THANSFER~. SWAPR IN~
DICATES WHET~ER A PROGRAM CAN ~t RUN OR NOT AS FOLLOWS:

0156
0159
0160
0161
0162
1D163
IU64
0165
0166
0167
0168
0169
0170
0171

71202 410000i!J

READY
: NORMAL RETURN
NuT READY~ TRANSfER TO SCHl

712~3

06~261

71204
71205
71206
71207
71210
71211
71212
7121,5
71214
71215
71216
71217

030214
002020
~26362

1366"'17
.,06002
027262
066020
006 00 3
027231
13024130
064261
006002

SwAPR NOP
LOA ENORM
lOR Mt3USY
SSA
JMP SCNt
LOB SMA1N
SZB
JMP swApS
~D8 FMAIN
SZB,RSS
JMP SWAP?
CLA
Loa ENORM
sZS

TEST fOR DRUM
OR 01SC tHJSY
WAIT fOR TRANSFER
WAS SWAPR

DOIN~

COMP~ETION

A TRANSfER?

yES, Go CHECK SUCCEss
NO, HAVE wE SAVED
DRIVER fLAGS FOR ThIS USER?
YES, OONIT SAVE CURRENT ONES
NO,
SAVE

DRUM

PAGE 0323 #JW
0172
0173
fIH74
0175
0176
fU77
0178
0179
01821
01 8 1
0182
0183
fiU84
21185
0186
0187
21188
0189
0190
0191
fU92
IU93
0194
0195
0196
0197
0198
IIU99

rtJ200
0201
0202
02213
0204
0205

StHEOULEH

71220
71221
71222
71223
71224
71225
71226
71227
71230
71231
71232
71233
71234
71235
71236
71237
71241!J
71241
71242
71243
71244
71245
71246
71247
11250
71251
71252
71253
71254
71255
71256
71257
71260
71261

060612
06421 04
006002
030736
064000
060612
030736
00J00f.
103100
112020
030001
172e20
10 2100
006400
076020
064273
054272
026362
060604
030313
054302
002e03
027273
060271
003004
040435
002°2 0
027273
017577

71262
7126J
71264
71265
71266
71267
71270
71271
71272
71273
71273
71274
71275
71276
71277
71300
71301
71302
71303
71304

0°24 00
072017

06~277

0703(,1)1
060355
07VJ277
027203

1286.

°2°7
0208
0209
0210
"'211
0212
0213
0214
0215
0216
0217
0218
0219
0220
0221
0222
0223
0224
0225
0226

050~61

027237
070261
006020
116022
116021
026362
044;'51
160001
05 03 50
060401
040337
0e2021
027374
044336
054257
127202

LOA
LOB
SZ6
lOR
LOB
LOA

ENoST
MBUSY

AND
DISC
"NOT
BUSY"
FLAGS
IN

MBUST
A
ENDST
lOR MBUST
THlS
CMA
US~HIS
elF "
FLAGS
A~D FMAIN,I
WORD
lOR 6
STA FMAlN,l
STf 0
CL6
SAY URIVEH
STa FMAIN
FLAGS SAYED
SWAp7 Lva MLINK+1
GET FIRST QuEUE ENTRY
C~B MLINK
TEST FOR QUEUE EMPTY.
JMP SCH1
fMPTY.~NOTH1N~ TO DO,
LOA LOGer
IF CONSOLE AND THERE
lOR TJ5f1
IS CURRENT OR
CPB T35LN
IMMINENT OUTPUT TO
SZA,RSS
ASH,
JMP SwAp4
LOA TJ5ST
GET THE STAT~S
CMA,INA
ADA .+XSYNT-,+1+ROS-COM2
SSA
CHECK TO SEE IF THIS IS
JMP SWAP4
A ROUTINE THAT CANIT B~ UEQUED
JSB OEQUE
SUSPENU UNTIL ITS DON~.
LOA T35ST
STA TJ5PR
LOA lOUTW
STA T35ST
JMP SWAPR+1

CLEAR "SWAPR IN~OKEO
CLA
TRANsFER" fLAG
aTA SMAIN
WAS DRUM TRAN~FER SUCCESSFUL?
CPA ENDRM
yES, CONTINUE
JMP SWAp7
eTA ENORM
NO, CLEAR ENORM FOR KICKS
WERE WE SWAPPING A USER?
SSB
J88 SICKZ,l
NO, WO FOLD CON GRACIA
YfS GO GET RID OF HIM OR HER
J8B JETPA,I
JMP 5CHl
SWAP4 EQU •
A08 ,-I
s->STATUS OF fIRST ENTRY,
LUA 1,1
A_STATUS
CPA ,-2
TEST FOR SPEClAL DISCONNECT,
LOA XSYNT+l+BYE-CUM2
ADA ,-5+COM2.COMJ lEST FOR TypE lIaR Ill.
SSA,RSS
JMP SWAP3
PROGRAM IS OF TYPE Ill.
ADS ,-1STAT
TEST FOR PROGRAM IN CORE.
cPS MA1N
JMP SWAP,""l

PAGE 0324 #30
0227
0226
0229
0230
0231*
0232.

SCHEDUL.ER

71305 060257
71306 1302002
713,,7 027325
713110 1374257

L.DA MAIN
SZA
JMP SwAP1
STB MAIN

FIND OUT ~HAT PROGRAM 15.
IS ANY PROGRAM PRESENT?
'fES,

SET MAIN TO Ntw PROGRAM.

INITIATE DRUM TO CORE TRAN'FE.R

16233.

13234
0235
10236
16237

0238
~239

02413
0241
0242
16243

"244
16245

71311
71312
71313
71314
71315
71316
71317
71320
71321
71322
71323
71324

0761617

8T8 SMAIN

044355
160001

ADB
L.DA
STA
CMA
ADA
STA
AD8
L.OA
L.oe
JSB
JMP

~70056

131330130
041221
13713072
044301
1601301
065222
114770
1326362

,+1PROG
1, I

SAVE TA8L.t OF USER IN QUESTION
B.~PROGRAM fND L.OCATION,
COMPUTE NU~eER OF

pePTR
WOROS IN

PRO~RAM,

USE

WORD
STORE .LEN~TH INTO WORD.
,+7DISC"'1PROG
AaDISC ADDRESS
1,1
BIIIICORE ADDRfss
usEl
DRUM,l
INITIATE DRU~ TRANSFER
RETURN BUSY,
SCHl

16241.

0248*
0249.
0251
0252
02 53
1d254
0255
1d256
0251
0258
0259
026O
0261
0262
16263

0264
02 6 5
0266
0267
0266
162 69

0270
02 7 1
0272
0273
0274
16275

0276
0277
0278
0279
0280
0281

INITIATE CORE TO DRUM TRANSFER
11325
71326
7 13 27
71330
71331
71332
7133J
71334
71335
71336
71337
71340
71341
71342
7 1343
71344
71345
71346
7 13 47
7L3513
71351
71352
71353
71J54
71355
71J56
71357
71360
71361
71362
71363

1t)7013~1

1002400

1676017

0713ae7
044355
06"056
17 0001
003001d
041221
~701372
~44361

1616001

0HIJl7
170001
1r;101222
010355
040676
077112
16 00 00
°1°734
kl4 055a
073353
102500

Vi01727

040364
1310411
0641300
00Sled
005222
045000
007004

SWAP1 STA 1
H•• TA~L.! OF USER TO HE WRITTEN,
SWAP2 CL.A
SET MAIN TO SAY NO USER IN
STB SMAIN
SAVE TAeL~ OF USER IN QUESTION
CORE,
STA MAIN
AOB .+?PROG
e->PROG,END ~OCATION,
LOA PBPTR
srA 1,1
eMA
ADA USE
STA wORD
STORE .LEN~~H INTO wORD,
ADB ,+?DIsC-1pRO" B .> DkUM ADDRESS
G~T USER DRUM ADDRESS
LDA B'l
DEL.ETE SECTOR pART
AND M32
STA 1,1
GET DRUM TABLE ADDRESS
RAL.,RAL.
,+3
ADDRESS
AND
ADA 1ATBl,.
SAVE DRUM ADORESS L.OCATION
SlB TYPET
A.SELECT COOE ~OR DRuM
LOA A,I
L.EAVE THE SELECT CODE
AND B77
SET UP LXA,
ALlA L.lA1
READ THE D~~M STATUS
STA *+1
LIA 0
AL.F,AL.F
GET 'URRENT SECTOR.
ADA • +2
GET POTENTIAL DEST, SE.cTOR,
AND ,+378
LOB A
GtT NUMBER OF WORDS THAT WOULD
BLF
BE SKIPPE~ AT TRACK BEGINNING
RBL.,RBL.
S • _ NUMBER OF ~ORDS LEFT
ADS MULEN
CMa,INe
NOW POSITIVE COUNT

PAGE 0325 .30
0282
0283
0284
.,285
0286
0287
028ts
"'289
12~1*

0292*
11293*

1d295
0296
0297
fd298
0299
1d300
0301
0302
0311J3
fd 4
0305
0306
0307
0308
lrJ309
lrJ310
0311
0312
0313
0314
0315
0316
0317
0318
0319
0320
I6J21
lrJ322
0J23
0324
0325
0326
0327
0328*
fd329*

"J

71364
71365
71366
71367
71370
71371
71372
71373

SCHEDULER
ADe
AOA
SSB
LOA
STA
LOB
JSB
JMP

044072
143112
006020
163112
173112
06522~

114770
lrJ26362

WORD
TYPEr,I
TYPET,l
TYPET,l
USE
DRUM,I
S(;H1

TEST TO SEE IF THERtfS ENOUGH.
COMPUTE Nfw DHU M AODR~55
IF END OF TRACK NOT LONG ENOU~H,
~RITE TO BLGINNlNG,
STORE NE~ ORUM ADDR IN TABLE

S-CORE ADORE-S5,
INITIATE ORUM TRAN8FE~
AND RETURN BUSY.

TYPE III PROGRAMS
71374
71374
71 3 75
71376
71377
71400
71401
71402
71403
7 14"'3
71404
71405
71406
71407
71410
71411
71412
71413
71414
71415
71416
71417
71420
71421
71422
71423
71424
71425
71426
71427
71430
71431
71432

160001
05°4 21
0024 0 1
02740~

044354
170~01

044350
044Jfil
160001
050506
070265
044353
160001
050350
lrJ604fiH
040337
064257
006002
027~26

0<42012
05026ftl
127202
070260
",64750
074072
00740lrJ
,,7tH'l7
064504
1601a00
114770
026362

SWAP3 EQU *
LOA 6,1
GET STATUS
CPA ,+XSYNT-.+l+0PE-COM2
SET PRIOHIT~ TO 0 IF OPfN
CLA,RSS
JMP SNAP6
.
ADS ,+?PLEV-1STAT
STA 13,1
AOB .+?STAT~?PLEV
SNAP6 ECilU •
AD8 .+?HSTR-1STAT e.> RESTART ADDRESS
LOA B,I
CPA *LI6#
IF THIS A fRESH tALL,
STA LCHCR
ZAP THE LCHCR FLAG
Aoe ,+?5TAT~?HSTR
lOA B,1

CPA

,-2

LOA XSYNT+l+syE.COM2
ADA .-5+COM2"COM3
LOB MAIN
TEST FOR MAIN PROGRAM IN CORE
SZB

JMP
AOA
CPA
JMP
STA
LOB
STB

SWAP2
DeOH6
LIB
SWAPR,l
lIB

STe
LOB
LDA
JSB
JMP

SMAIN
jlltH
0,1
DRUM,l
5tH1

eea

M~12

WORD

.->

GO TO WRITE OUT MAIN PRUGRAM.
DRUM ADDRESS FOR LIB. P~OGR.
IS IT IN CORE?
YESp.wRETURN PRESENT,
IF NOT, INITIATE READ IN.
lENGTH OF PROGRAM. 512
SMAIN • ·1 ~El
READING LIBRARY PROGRAM
INITIAT~

DRUM TRANSFER

ENTRY POINT FOR INPUT REQUEST

1~31*

0331
0332
0333
0334
i£1335
0336

71433
71434
71435
71436
71437
7144'"

00000rcl
103100
064273
044336
130001
114500

SCHIQ NOP
ClF
INTERRUPT INHIBIT,
L.OB MI.INK+l
AOS .+?TNUM"'?LINK
luR 1,1
TELL 2114
JSS 5148C,1
ABOUT INPUT WAIT

"

~337

",338

0339
fd340
0341
0342
0343
0344
0345
~346

1:1347
0348
0349
~350

16351*
0352*
0353*
0354
0355
0356
0357
1:1358
0359
0360
0361
0362
0363
0364
03615
0366
0367
0368
0369
0370
0371
0372
0373
0374
0375
0376
0377
0378
0379
0380
0J81
0382
0383
1:1384
0385
0386
0387
0388
0389
0390
0391

71441
71442
71443
71444
71445
71446
7 1 447
71450
71451
71452
71453
71454
71455
71456

ENT RY
71457
71460
71461
71462
7i463
71464
71465
71466
71467
71471:1
71471
71472
71473
71474
71475
71476
71477
71500
7 15 0 1
71502
71503
71504
71505
71506
715",7
71510
71511
71512
71513
7151 4
71515
71516
71517
71520
71521
71522
71523
71524

103100
044364
063433
170001
006004
160001
002020
027651
044354
170001
044350
060354
170001
027651

Cl.f
ADa
l.OA
5TA
INB
LOA
5SA
JMP
ADS

"

.~?RSTR-?TNUM

sCHIQ
1,1

GET PROGRAM TYPE

1,1

QUIT IF ABORT HEQUEST,
SUSP
,+1pLEV-?5TAT
STA 1,1
S~T INTO PLLV.
AOB ,+1STAT-?PL~V
LOA XINPT
CHANGE STATUS TO
STA 1,1
INPUT WAIT,
JMP SUSP
GO REMOVE FRUM QUEUE.

POINT fOR TERMINATION
1031117kl
060262
002003
027476
002400
"'7026~

064273
"'44335
160001
031:1772
170001
044366
06035~

170001
0276tH
1:160273
040336
050255
1:102001
027fS12
060250
1:102002
027510
072043
~17057

00241:10
k)70256
~64273

kl543f1l2
02752~

044335
1:1177160
106427J
044351
160001

11'5 0 351
027651
1t:10240tl

SCHEQ CLF 0
LOA HQOIS
SlA,RSS
JMP SCHQl
C~A

STA
LOB
ADS
LDA
lOR
STA
A08
LOA
srA
JMP
SCHQl LOA
ADA
CPA
RSS
JMP
LDA
SlA
JMP
STA
JSB
SCHQ2 C~A
STA
SCHQ3 LOB
CPS
JMP
ADB
JSB
L08
ACB
LOA
CPA
JMP
CLA

HQoIS

010 THIS GUY TRY TO

DISCONNECT?
NO
yES
REStT oISCO~NfCT FLAu

M~lNK+l

,.?I..INK

1,1

SET
COM14
COMMUNICATIONS
1,1
8lT
,+1STAT
XDISC
SET STATUS
1,1
TO OISCONNECT
SU8P
MLINK+l
DOES THIS
.+1TNUM.1LINK
USER HAVE
PRIST
THE LINE
PRINTER?
SCHQ3
NO
LfLAG
yES ~ IS THE LPH
COMMAND FLAG sET?
SCHW2
YES
CLCl
NO, BLOCK CLOCK
SCLPR
REMOVE USER FROM LP
CLEAR
LFLAG
FLAG
MLIN~+l
SCRATCH!f
T35LN
.+4
•• 1~lNK
THIS IS
HTEST
SHELl.O,
MLINK+1
CHANGE
.+lSTAT~1LINK
STATUS
1,x
,-1
QUIT IF ABOPT REQUEST,
SUSP
TO IOLE

0392
0393

71525 170001
71526 027651

aTA 1,1

JMP 8U8P
SCHAR FETCHES THE NEXT CHARACTEH FROM A BUFF~R. BUfFER
0395. POINTERS FOR SCHAR ARE INITIA~lZEO AS FOLLO~S¥
0396.
SBHEO-. FIRST CHARACTER IF TTYJOJ 10 OTHERwISE
0397.
SCHL,I-> tNO OF T1Y3~ BUFF~R

~394·

139.,*

0399. SCHAR CALLING SEQUENCE.

1i14.1*
0401*
1i!J402*
0403*
0405
0406
0407
0408
0409
0411d
0411
0412
0413
0414
fd415
0416
0417
041tt
~419

0420
0421
0 4 22
0423
0424
0425
0426
0427
1i!J428
0429
~4J0

1i!J431
0432
0433
0434
0435
0436
0437
04 38
0439
0440
0441
0442
0443
0444
14445

"446*

JSe Sc,:HAR
RETURN HERE If CR
RETURN HERE If A~Y OTHER CHARACTER
71527
71530
71531
11532
71533
71534
71535
11536
71537
715410
71541
11542
71543
71544
71545
71546
71547
71550
71551
71552
71553
71554
71555
71556
71557
71560
715 6 1
71562
71563
71564
71565
71566
71567
71570
71571
71572
71573
71573
11674
71575
71576

000000
064060
006003
021551
004065
160001
005610
002001
0£11727
010443
050J67
127527
006004
07406",
050412
027531
037527
127527
064062
006~04

160001
030222
1145~0

102311
027556
102 5 11
0b0412
027553
050367
027573
040766
002fl)21
040317
04 2000
0375~7

127527
160001
~30251
11 ~500

127527

SCHAR NOP
LOB S6HED
SlB,RSS
JMP SCHk1
CLE,EH8

LOA 1,1
ELB,SLB
RSS
ALf,AL.F
AND 6377
CPA .+168
JMP SCHAR,I
INB
8TI; SBHEO
CPA ,+40a

JMp
ISl
JMP
SCHHI LOB
INS
LOA
lOR
JaB
sFs
JMP

SCHAR"'2
SCt1AR

afT POINTER,

TTYJ5'l

NO

yES~.POsITION As WURD POINTER
GET WORD CONTAINING CHARACTER.
REPoSITION POINTlR A~O TEST
FOR UPP~H OR LowER,

MASK OUT CHARACTfR.
RETURN IMMEUIATELy IF CR
BUMp CHARACTER POINTER,
SKIP 8LANKS

SCHAR,I

TTG

1,1
GTe
814SC,1
tH2
•• 1
LlA CH2
CPA ,+.08
JMP SCHR1 ... 2
CPA ,+1 5 8
JMP SCHR2
ADA Mg6
SSA,RSS
ADA MJ2
ADA B1~"
ISZ SCHAH
JMP SCHAR,1
SCHR2 EQU *
LOA 1,1
lOR BKS
JSB SI~SC,l
JMP SCHAR,l

ft::TCH
CHARACTER
FROM 2114
wAlT FOR RESPONSE
8L.ANK1
VES."lGNORE IT
NO, CARRIAGf RETURN1
yES

CHECK fOR CODES
GREATER THAN 1~0.
CODE Is LOwER CAsE, MAKE UPPER.
RESTORE ASCII CODES,
NO.·EXIT
TIJ (P+2)
8w>TTY •
TELL. 2114
TO 6ACKSP~CE

PA~E

0328 .30

SCHEDULER

0447* DE QUE REMOVES A USER FROM THE QUEUE. IT IS CALLED wITH THE USER'S
044 8* LINK ADDRESS IN B.
044e.

0450
0451
0452
0453
0454
(()455
0456
0457
0458
0459
0460

71577 0(()001t'0
71600 060272
7HHH 15400t:l
71602 027607
71603 160000
716l/J4 050272
716l/J5 127577
71606 027601
716l/J7 164001
71610 17400l/J
71611 127577

DEQUE NOP

LDA MLINK

OEQ1

cpa

DEg2

JMP
LDA
CPA
JMP
JMP
Loa

srB

0,1

DEQ2
0,1
MLINK
OEQuE,I
DEQl
1,1
0,I

JMP DEQUE,I

GET POINTER TO fIRST ENTRY.
TEST fOR ENTRY FOUND.
LINK TO NEXT ENTRY,
TEST FOR EN~ Of QUEUE.
NOT ON QuEuE~~~ETURN.
LOOP.
LINK AROUND THIS USER.

11)462* THE OUTCH RgUTIN~ OUTPUT8 • CHARACTER TO A WS&R'8
0463* BUFFER IN THE 2114, THE CALLING SEQUEN~E IS;
"464*
JSB OUTC:H, I
A-CHARACTER TO ~E OU1PUT
0465*
0466.
awTTY TAHLE AUURESS.
1467*
"46tH' DUTCH FIRST CHECKS TO MAKE SURE THAT THE 2.14 :AN ACCEPT
0469* CHARACTERS, IF NOT, THE USER 11 p~ACED IN OUTPUT wAIT STATUS
047'" AND A TRANSFEH IS HADE INTO THE SYSTEM TO DELETE THE U8~R
0471* FROM THE QUEUE
"472*

0474
0475
0476
0477
1647~

0479
0480
0481
0482
164$3
0484
0485
0486
16487
1488*
04S9.
1491.
0491
16492
0493
0494
0495
0496
16497
04iS
0499
0500
0601
0502
"'503
16604
05 05
0506
~507

1d50S
~509

71612
71613
71614
71615
71610
71617
71620
71621
·71622
71623
71624
71625
71626
71627

000000
103100
010443
072014
160001
010412
002002
027630
006004
160001
032014
030220
11450'"
127612

-OUTC NOP
CLF
AND
STA
LOA
AND
SZA
JMP
INa
LOA
lOR
I(JR
JSB
JHP

0

8J77
OUTM1
1,1
OUTwT
OUTCt
1,1
OUTMl
OCR
S14L.P,1
#OUTC,1

MASK ANO
SAVE. CHM~AC 1 ER
CAN 2114
TAKE THIS
CHARACTER1
NO

YES

BUILD OU1PUT WORD
WITH USER'S TTY tI,
CHARACTER AND OPCODE.
CAL.L 2114 DRIVER

TAKE. CARE OF FULL BUFFER IN 21,14
7163i6

71631
71632
71033
71634
71635
71636
71637
71640
71641
71642
71643
71644
71645
716 46
71647
71 6 5 0
71651
71652
71653
71654
71655

0510
0511
16512
8513.
16 514 71656

044360
160001
00212120
i627(1~H

044354
170001
0443 5"
060355
170001
003400
043612
044351
17 000 1
062014
071224

OUTCt ADB
LOA
SSA
JMP
ADS
STA
ADB
LOA
STA
CCA
ADA
ADS
STA

044~37

075225
160273
070273
002400
072043
026362
0000010

SUSP

LOA
STA
AOB
STa
LI)A
srA
CL.A
STA
JMP

S(;HOQ NOP

,.1STAT
1,1

~o OIRECTLY
TO SUSPEND,
.+7PLEV"?S1AT MOVE STATUS TO
1,1
pl.EV ANt> SET
STATUS TO
•• 1STAT 411 1PI.EV
OUl'wAIT.
XOUTw
1,1
SET ~ETURN ADDRESS TO
RECAl..l OUTe
*OUTe
,+1 RSTR4II?STAT
1,1
OUTM1
AREG
.,,7RSTR
BREG
MLINK+l,I
MLINK+1
LOCK
CLOCK
CI.e 1
JUMP TO SCHEDULE~
SCH1

susp

IfA~ORTED

OUTPUT SUSPEND

RlQU~ST

ENTRY,

PAGE 0330 #30

OUTPUT CHARACTER RPUTIN£

0515
0516
0517
0518

71657 103100
71660 063656
71661 002004
71662

0519

0530

71662
71663
71664
71665
71666
71667
7107d
71671
71672
71673
71674
71675

0531

71676 04435l

0532
0533 ..
0534 ..
i5le.
rd536

71677 027631

0520
0521

0522
0523
0524
0~25

0526
0527
0528
0529

0537

0538
rd539
0540
0541

0542
0543

0544

11:1545
0546

073612
06427J

04433b
160001
030412
170001
006004
160001
030243
114500
103100
064273

CL.F 0
LOA SCHOG
INA

SCHSQ EQU
STA
L.OB
ADS
LOA
lOR
STA

INB

TURN OFF INTERRUPT.

SET Up RETURN ADDRESS,

•

.OuTe
ML.INK+l
•• 'lL-INK
1,1

ounn

SET OUTPUT WAIT BIT

1,1

1,1

PUT USER

L.OA
lOR
J8B
CL.F
LOB

S14LP,1

AD8

.+1STAT~1LINK

OWT

0

MLINK+!

IN OUTPUT WAIT
NO INTERRUPTS DURING SUSPEND
FOOL OUTeR INTO DOING THE WORK,

JMP OUTC1+1
HTEST SCRATCHES A PROGRAM IF THE ASSOCIATED HFLAG Bll IS 8ET,
B POINTS TO THE UsER'S TTY ADDRESS,

71700
71701
71702
71703
71704
717,,5
71711:16
71707
71710
71711

011)"000
160001
010356
002003
12770~

103UH"
12 000 1
170001
1"'210'"
016776

71712 127700

HTiST NOP
LOA 1,1
ANIJ HFLAG
SZA,RSS
JMP HTEST,l
cLF 0
XOR 1'1

STA 1,1
STF Ii)
JSB SCRAl
JMP HTEST,l

GET HFLAG 81T.
RETU~N

IF

H~L.A'

CL.EAR HfLAG 8lT
R~TURN.

BIT .",

PAGE

~lll.*31

COM"A~P

TABLE

COMMAND TABLE .~ THlS TAaL~ CONSlSTS Of 2 PARTa, PART 1 CONTAINS
THE ENCODED SyMBOLIC COMMANDS, THEsE ARE CODED AS J BYTES, EACH
0003", BYTE BEING OF LENGTH 5 BITS AND OF VALUE 101(OCTAL) LESS THAN THE
0~04* OCTAL VALUE OF THE CHARACTER, THE THREE BYTES ARE IN BIT POSI0005* TIONS 14-10,9-5, ANO 4w0, RESPECTIVELY, eiT 15 18 SET TO 1 FOR
0006* COMMANDS THAl ARE LEGAL FOR THE SYSTEM CONSO~E,

~00h'

0002*

",7",
0006*

PART 1 IS ITSELF DIVIDED INTO 3 SECTIONS. COMf1ANOS IN SECTION 1
ARE THOSE COMMANDS WHICH ARE HANDLED IMMED14~ELY BY THE EXECUTlvt
WITHOUT ANY DRUM ACCESS, THOSE IN SECTION 2 ARE COMPILER COMMANDS
WHICH ARE RESIDENT BUT WHICH REQUIRE THE PRO'RAM TO BE LOADED
FROM DRUM, COMMANDS IN SECTION 3 ARE SYSTEM COMMANDS WHICH ARE
0013* DRUM RESIDENT. ALL SYSTEM COMMANDS ARE OF THIS TYPE AND
0014* MUST SE LOCATED AfTER COM4.
"16",
0016* PART 2 OF THE COMMAND TABLE CONTAINS THE CORE START IN' ADDRESSES
0017* FOR THOSE CO~MANDS IN SECTIONS 1 AND 2, AND THE DRUM AOURESSES Of
0016* THOSE IN SECTION J,
•• 1i_
0020'" PART 1
882.1.
0022* SECTION I
'123.
SCRATCH
~024
71 7 13 044121 COMI OCT 44121
0025 71113
SCR
EQU COMl
0026 71714 046017
OCT 46liU7
TAPE
Kt:y
002 7 71715 024230
OCT 24230
0,28*
0029* SECTION II
1.38*
RUN
0031 71 7 16 04 3216 eOM2 OCT 43215
OCT 26422
0032 71717 026422 LIS
L.IST
0033 71720 037215 PUN
oCT 37215
PUNCH
0034 71721 056764 XPUN OCT 056764
XPUNCH
FOR AIORT uPDATE CHANGE DATE
0035 71722 177777 UCDAS OCT -I
USED FOR TAPt ~RROR P~INTOU1,
0036 71723 177777 CTAPR OCT -I
e831.
0036* SECTION 111
f/J839.
FOR LENGTH SECTION
~040
7 172 4 177777 eOM3 OCT-I
OCT
_I
FOR TWO HALVES
71725
177777
0041
0042 71726 177777
OF FUSS T1.6LE
OCT -1
0043 71727 171117 COMFL OCT ,,1
FOR FIL.ES
0044 1173 0 111717 ASGNA OCT -I
ASSI"N
FOR CHAIN
0045 11731 177711 eOHeH OCT -I
0046 11732 044025 SAVE OCT 44025
SAVE
0047 71733 006100 CSAV OCT 15101t)
CSAVE
0f/J46 71734 177177 SAVO OCT -I
fOR SAVE OVERLAY
0049 71736 01 4 223
.. £T
OCT 14223
0050 71736 000157
OCT 757
APPEND
0051 71737 016213 HfL.L.O OCT 16213
HEL.L.O
BYE
0052 7174 0 0fa3404 tHE OCT 3404
0053 71141 02441J
OCT 24413
t<1L.1.
0054 71742 04221f5
OCT 42215
RENIJM8ER
0055 71743 032014
OCT 32014
NAME.
0009*
0010",
0011*
0012*

PAGE 0JJ2 *31
!d~56

0",57
0058
0059
0060
0061
~062

006J
1606&1
0065
0066
01r367
0068
,,,:'69
0070
0071
1r3072
0073
1r3074
0075
0076
01r377
0078
007~

0080
0081
01'682
0083
0084
00 8 5
0086
16087
0088
f008~

0090
01691
009§
1c109
"'094
0095
0"'96
0097
0098
16099

0100
0101

71744
71745
71746
71747
7 1750
71751
71752
71753
71754
71755
71756
71757
71760
71761
71762
71763
71764
71765
71766
71766
71767
71 770
71771
71772
71773
71774
71775
71776
71777
72000
72f!HU
72002
72003
72004
72005
720"6
7200 7
72010
72 011
72012
721iU3
72014
72015
72016
72017
72020
72021
72°22

COMMANO TA81.f.

004023
026401
01511H56

CAT

0~6421

044150
042217
045140
177777
006213
046414

STA

1637056

050657
1r334744
02621e
01e1ra7
03 0 222
026761
036721
142217
106421

OpE

COM4

1441~jl6

145140
177777
13 6721
142722
100655
142222
1043 .. 0
144544
116401
132226
124413
15065J
126702
131215
130556
177777
1°4717
102222
144015
106222
137221
130"'06
136356
137050
144744
10J044

ROS

OCT 004frJ2~
OCT 26401
OCT 15066
OCT 6421
OCT &141r50
OCT '2217
OCT 45140
OCT .1
OCT 6213
OCT ·46414
OCT 37856
OCT 50657
OCT 34744
OCT 26215
OCT 10107
OCT 1030222
OCT 26761
OCT 36721
ECilU •
OCT 142217
OCT 10 64 21
OCT 14415frJ
0(; T 145140, .. 1
OCT
O(;T
OCT
OCT
OCT
OCT
OCT
OCT
OCT
OCT

136721
142722
1006e5
142222
104340
144!)44
116401
132226

OCT
OCT
OCT
OCT
OCT
OCT
OCT
OCT
CiCT

10 4717
102222
144015
106222
137221
13kJ006
136356
13705",
144744
10J 0 44

CATAL.OG
1..16HAHV
GROUP
DIRECTORY • USER CONSOLE
SOIRECTORV • USER CONSOL.E
REPORT • USER CONSOL.E
STATUS. USER CONSOLf
FOR STATUS OV[RLAY • USER CONSOt,.

DELETE

TIME
PROTf;CT
UNPROTECT
OpEN
LEN~TH

ECHO
MESSAGE
LPRINTER
PORT-USER CONSOt,.E
REPORT • SVSTE~ CONSOLE
DIRECTORY • SYSTEM CONSOLE
SDIRECTORY • SYSTEM CONSOLE
STATUS. SYSTEM CONSOLE
PORT.SYSTI:,M CONSOLf.
ROSTfR
ANNOUNCE
REee::T
CHAt~wE

SL.EEP
HI8ERNATE

NEwl0

12"~U3

K1LI..I0
150653
UNLOCK
1267il2
LOCK
utT
OCT 131215
MUNL.OCK
OCT 130556,"'1 ML.OCK

oc,;r

0102.
{iH0J. PART II •• ~TAHTING ADORESSES
010 ...
011r35 72023 070773 COM5 DfF .SCR
OEF #TAP
0106 72024 07101\
0107 72025 070601
DfF SCH20
0108.

COpy
BESTOW
SANCTIFY
DESECHATE
PURGI:,
MA(lTAPE
PHO
PRINTER
SPEf.O
BREAK

KE:.Y

PAc.E 0333 .31
IU.,g

0110
0111
0112
0113
0114

0118.
0116*
B117*
0118
0119
0120
0121
0122
0123
0124

---~-

72026
72027
72030
72031
72032
72033

COMMANI.) .TA8Le.

flJJ60 .. 7
052143
052142
052140
073473
0452053

OEF CHPI.E
OEF L.lSr
OfF PUNCH
OfF XPNCH
OEF ABUCO
OfF TAPER

DRUM ADDRESSES
72034 000000
72037
72041
72 0 40
72133 00000k1
72137
72137 000e00

-'!"

COM6

TO SE FILL.ED BY THE LOADER.

ess COMt).COM3

FIL.II; EQU COM6 .. CO MJ+COMFL

CI1Lll3
ASNl8
DSERA
COMTE
LOGGR

fll.Es DRUM ADDRESS
EIIIU COM6.COM3+COMCH (;HAltJ DRUM ADORESS
EQU COM6+ASGNA-CO M3
BSS 4
IJRUM ADDRESSES FOR ERROR Ml:.SS.
EQU
*
HOLDS INfO fOR LOGGIN",
e SS 64

,U20*
0127.
0128.
0129*
0130.
0131
0132
0133
1c1134
0135
0136
0137

TO FlND THE ADT THAT TH£ DISK ADORESS
CONTAINED IN KILD! SHOULD GO INTO,
LTEMPS CALLlD KILO AND KILDF ARE USEO
~OUTINE

0153

72237
72240
72241
72242
72243
72244
72244
72245
72246
7 2 247
72250
72251
72252
72253
72254
12255
72256
72257
72260
72261
72262
72262
72263
72264

a154

72265 0262610

0155
0156
0157
rcU58
0159
0160

72266 042273
72267 070044

10138
0139
0140
0141
0142
0143
0144
0145
0146

10147
0148
0149
0150
0151

10152

000000
060341
070044
060210
040432
07004~

104200
1 iH/'0~·5
000065
005500
016600
002021
026262
060045
040344
034044
026244
102031
026260
06~H~44

003000
050362

72270 1040362
72271 070045
72272 126237
72273 12100115

fADT

NOP

LOA
STA
LOA
AOA
FADec EQU
STA
oL.o

.-g

SET COUNT FOR NUMBER OF AOTS

,+48

A W> DISK TABL.ES
pOINT TO LAST ENTRY

Kll,.D
",HAO
•
KIL.OF
KIL.OF,l

CL.E,EtU
ERB
JS8 FADOB
SSA,RSS
JMP FADaF
LDA KILDF
ADA ,.6
ISZ KIL.l)
JMP FAD~C

FADBN HLT 318
JMP
fADSF ~QU *
LOA KILO

.·1

eMA

A w> DISK TA8l,.E ENTRY
A8 • FIRST ADORESS ON THIS DISK

CONVERT TO

6~OtKS

SKIP IF l,.OWtR DISK
Rf8U~T POSITIVE, FOUND

MOVE TO

PR(~EEDING

TH~ DIS~

ENTRY

GO TRy NExT DISK

BETTER F"IND DIsK
GENERATE THE NUMBER Uf
THE DIsK ADT 10 GET
IF EIGHT, THEN AOORtSS wAS BAD

CpA , ... 8
JMP FADeN
ADA KILpC
-> DRUM AODp,Eas WORD
STA KILO
ADA ,+DADLN .. DADL.C
-> DRUM LENGTH WORD
STA KILDF
JMP FAOT,I
RETURN
KIL.PC DfF DAOLe

(1161_

'5162.
0163·
0164.
td 16!h
0166.
0167·
0168.
0169.
0170
0171
0172
017 3
,U74
kH75

10176

ROUTINE RESTORES DRUM SPACE TO THE DRUM ADT,
ROUTINE ASSUMES.
KILO
• DRUM ADDRESS
KILDF • DRUM AREA L.ENGTH
ROUTINE USES,
KILP
72274
72275
72276
72277
72300

0000~0

064562
060044
003104
140001
723101 002040
72302 026J05
72303 0 4 4354

0f77
0178 72304 02b276
0179-

RSFS

NOP

LISD
KIL13 LDA KILO
CMA,CLE,INA
ADA 1,1
L.OS

SEZ

JMP KIL12

ADa .... 2
JMP KIL.IJ

FINO THE FIRST ADT
RELEASED SPAC~,
FOUNo ONE,

E~lRY

>

0180
~H81

0182
0183
0184
IU85

0186
0187
0188

72305
72306
72:$07
72310
72311
72:$12
723i3
72:$14
72315

16189.
01 9 0 72316

0191

li::l192

0193
0194
0190.
0196*
0197*
0198*
0199*
0200*
0201
02132
0203
k)2 0 4

0205
0206
02137
020ij
0209
02113
0211
13212
0213
0214
0215
0216*
0217
0218
0219
02213
0221*
0222·
13223 •

72316
12311
72320
72321

074034
054562
026316
044360
1601301
006"'134
140001
05"'044
026355
060044
134013415
150034
026346

KIL12 STB KILP

CPS
JMP
A08
LOA
INS
AOA
CPA
JMP

RSFAE E(JU
LOA
AOA
CPA
JMp

LISD
RSFAE
.-2
1,1

SAYE POINTER TO IT,
FIRST ENTRy ON TRACK?
YES, NO PREVIOUS ENTRY,
TEST FOR PRfylOUS ENT~y ADJACENl
TO NEW ONE.

1,1

KILO

KIL14

*

KILO
KILOF

KILP,l

TEST FOR NE~T ENTRY ADJACENT TO
NEW ONE

KIL.1S

THE NEW ENTRY IS ADJACENT TO NEITHER THE PRfCtDING NOR THE
ING ENTRIES. WE HAYE TO CREATE ROOM FOR IT BY SLIDING ~OWN
AOT.
72322
72323
72324
72325
72326
72327
72330
12331
12332
72313
72334
723315
72336
72331
723413
72341

064072
057554
126274
13070013
044562
074000
044354
0140el
007004
006004
04."34
117636
060044
064045
1044130
100034

LOB WORO
CPS M819 2
JMP RSFS,l
CMS
ADa 1..1bO
818 MOVES
AOB .... 2
ST8 MOVED
CMS,INS
INS
AOB KIL.P
JSB MOVFB,l
LOA KILO
1..08 KILDF
D~n Kll..p,.t

72342
72343
72344
72346

060113
040350
070113
126214

LOA ADLEN
ADA ,.2
STA ADLI;.N
JMP ~SFS,l

fOLLOw~
TH~

IF NO ROOM TO EXPAND AOT, wE
HAVE TO LOSE THE SPACE
SET UP SOURCi FOR THE MOVE.

sET uP DESTINATION,
COMPUTE LENGTH,
MOVE JT
INSERT Nf;.W
ENH
72347
0226 72350
0227 72351
0228 72352
12353
0229 72354

H,420kl
100034
e441r345
000044
104400
100034
126274

KIL15 OLD KIL.P,l

GET

~OLI..OWI~G

ENTRY,

ADS KILOF
1..0" KILO
DST KIL.P,l

COMtUNE L.ENGl HS
USE N~W olS~ ADDRESS,
REPLACE.

JMP RSFS,l

OON~

PAGE 0336 #31
0231*
1()232*
"233.
0234
0235
0236
0237
023ij
0239
02410
0241*
0242
1'tj243.
0244*
11)245*
0246
0247
0248
16249

16251r:J
0251
0252

10253
1d254
0255
0256

LI8RARY

SUBROUTIN~S

COME HERE WHEN THE NEW AREA IS ADJACENT TO THE
72355
72356
72357
72360
12361
72362
72363

160001
040045
170001
060044
040045
150034
026365

72364 126274

KIl.14 L.DA 1,1
ADA KIl.OF
STA 1,1

LOA KILO

AOA KILOF
CPA KILP,I
JMP KILl7

~RECEDING

AREA.

AOO L.ENGTH OF 01..0 AREA TO
LENGTH OF NEw ONE
NOW TEST TO SEE IF TEH COM61NEO
AREA IS ADJACENT TO THE NEXT

JMP RSFS,l

NEw AREA WAS ADJACENT TO 2 UTHERS, COMalNE THEM AL.L.,
723M) 034034

72366
72367
72370
72371
72372
72373
72374
72375
72376
72377

160001
140034
1700LH
006004
074051
044354
07411Je0
044674
044072
117537

02157.
0258 12400 03411 3
0259 72 4 01 1034113
0260 72402 126274

KIL17 lSl
L.DA
AOA
STA
INS
ST8
AOB
STa
AOB
ADS
JSB

1<1L.P
1,1

KILP,l
1,1

COMBJNE
THE
LENGTHS,

MOVED

COLL.ApsE AOT,
SET UP MOVE DESTINATION,

MOVES
ML.IBD
WORD
MOVFw,I

SET UP SOURCE
COMPUTE • OF WORDS
TO MOVE,

,.2

ISZ AOLEN
liZ ADI.EN
JMP RSFS,l

REDUCE SiZE Of AOT 8y
TWO,
RETURN

la262*
0263*
0264*
0265*
0266*
0267*
0268.
0269.
0270.
0271ili272.
t)273.
0274·
0275.
0276.
0277.
0278·
0279
0280
0281
0282
0283
~284

k:l285
0286
0287
0288
0289
k:l2~0

0291
0292
0293
0294
0295
0296
0297
0298

ROUTINE TO ADD A aLOCK OF SPACE BACK INTO THE DISK ADT
WHICH IS IN CORE,
ROUTINE ASSU/1ESI
KILDI • TWO WORD DISK ADDRESS
KILN
• DISK LEN~TH
KILO
-> DRUM ADDRESS OF AOT
KI~OF
.> DRUM ~ENGTH OF AOT
ROUTINE USES.
KIL.t;
KI~P

KILPo
ROUTINE RETURNS WITH LENGTH AND WORD BOTH UPOATED,
BUT THE TRACK 15 NOT WRITTEN OUT.
SKIP RETURN 15 NORMAL, NU SKIP Lf THE TRACK WAS
NOT MODIFIEO ( TRACK TOO LONG TO ADD)
72403
72404
72405
72406
72407
7241'"
72411
72412
72413
72414
72414
72415
72416
72417
72420
72421
72422
72423
72424
72425
72426

00000e
0601d43
0020",3
126 4 03
060072
003004
040562
070042
064562
074fJ34
054042
0jjHH~20
104~00

1000:;4
016600
002020
026427
064034
044355
026414

02~9'111

0300
e~el*

0302.
0303.

0306
0307
03 e8
0309
0310
0311
03 12
0313
0314

NOP
LDA KILN
SZA,RSS
JMP RADT,l
LOA WORD
CMA,INA
ADA LIBD
STA KILC
LD8 LISD
KU•. CD EQU •
STB KILP
CPS KILC
JMP KILt"
OLD KILP,I
JSB FADDS
SSA

JMP KILt;F
LOB KILP
ADt.; .... 3

(fliT LENGTH
CHECK LENGTH
DON'T WASTE TIME ON ZERO LENGTH
.ET THE ADT ~ENGTH
MAKE POSiTIVE
.> END OF A~T
a> &EGINNlNij Of AOT

B a> CURRENT ENTRY
CHECK FOR ENO OF TA8LE
INSERT ENTRY AT END
GET DISK AODRESS FOR THIS

..IMP KILCD

CHECK TO SEE IF THE NEW ENTRY
IS ADJACENT TO THE FOLLOWING ENTRY
72427
12430
72431
72432
72433
72434
72435
72436
72437
72440
12441

llcJ4200
000046
000040
044043
00204 0
002004
150034
002~"'5

026520
04 00 34
15 4 000

OLD KILOl
Cl.E
ADS KII.N

ENT~Y

SU8TRACT FROM ADDRESS BEING RETU
SKIP IF NOT FAR ENOUGH
FOUND NEXT ~NTRY GREATER
GET ADT POINifR AND
ADVANCE TO THE NEXT ENTRY

KILCF EQU •

72427

0;)141*

0305

RAOT

GET CURRENT DISK ADDRESS

8EZ

ADD TO B THE LENGTH
CHECK FOR OVERFLOW

INA
CPA KILP,l
CL.A,INA,RSS
JMP KILCG
AOA KILP
cpa A,1

CHEC;K FOR MATC;H
FIRST WORDS ARE E~UAI.
NO MATCH
A a> SECOND WORD OF ENTRY
CHECK FOR MATCH

PAGE 0338 #31
0315

"'316
0317*
031t~·

~lSRARY

SUBROUTINES
YES, WE CAN COMSI~E THE TWO ENTH
CAN'T 6E COMBINEO WITH NEXT ENTR

72442 002001
72443 026520

COMBINE THIS ENTRY WITH THE NEXT ENTRY

,,31V*
0320 72444 1 0 4 2 0 0
GET iHIS 01S~ ADDRESS
OL.D KIL.OI
72445 000040
03 2 1 7 2 446 104400
OST KIL.P,1
REPlA'E THE NEXT ENTRY
72447 100034
0322 7245'" 064034
L08 Kll..P
8 •• LENGTH Of ENTRY
ADS .+2
0323 .72451 044354
LOA KILN
A • L.ENGTH
0324 72452 060043
INCREASE THE LEN~TH TO INCLUDE
ADA B,l
0325 72453 140001
td326 72454 170001
BOTH OLD AND NEw DISK AREAS
STA B,l
0327.
CHECK TO SEE IF PREVIOUS ENTRY IS ADJACeNT
0328*
I.E, 010 THE NEw ENTRY SRIDGE THE GAP
0329*
0330*
0331*

0332
0333
0334
0335

"'336
0337
0J3tS

BtTWEEN TrlO OTHERS?

72455
72456
72457
72460
72461
72462
72463
72464

0339

724tH~

1d340

72466
72467
72470
72471
72472
72473
72474
72475
72476
72477

0341
0342
0343
0344
0345

0346
0347
0348

1d349
0350*
0351*

060034
050562
026~76

04 0 351
070035
0403!5f/J
104200
100000
00121040
1440315
0"2040
002004
150034
002405
026576
04012134
154000
002 00 5
026576

~Ow

0354
fd3!55
IdJ56
0357
k)358
0359

0360
0361
0362

0363
0364
0365

0366

KIL.P
L.IBO
KILCP
,,-1

KIL.PD

,-2

A •• THIS ENTRY
CHECK FOR NO PREVIOUS ENTRY
NO PREVIOUS EN1RY, WE'Re DONE
A -> L.ENGTH OF PREVIOUS ENTRY
A •• PREVIOUS ENTRY UISK ADDRESS

A,l

tl.~

S~Z

ADO PREVIOUS L.ENGTH TO
PRE~IOUS ADDRESS

INA
CPA KILP,l

FIRST WORD MATCH

A08 KlI..PO,I

CL.A,INA,RSS
JMP KIL.CP
ADA KII..P
cpa A,l
INA,RSS
JMP KIL.CP

ENTRIES ARE NOT ADJA'~NT, ADO DO
A
SECOND DISK ADDRESS WORD
CHECK SECONU WORD fOR MATCH
-> L.ENGTH OF FOLL.OWING eNTRY·
ADO 18 DONE CUZ NO MATCH

w.

COMBINE ENTRIES

8312*
1d35j

LOA
CPA
JMP
ADA
STA
ADA
DL.D

72500 164000
72501 \ij40347
725~2 144000
72503 11400~
72504 064034
72505 074051
72506 ~44355
72507 074050
72510 044674
72511 044072
72512 117537
72013 16"045
72514 040355
72515 170045

L.oe A,l
ADA ,.3
ADS A,l

srB A,I
LOB
STB
A08
STe
ADS
ADB
JSb
I.DA
ADA
BTA

KILP
MOVED
,+3
MOV£8
ML.leO
WORD
MO\lFW,1
KlI.DF,I
,+3
KILUf,I

B • LENGTH OF SECOND ENTRY
•• LENGTH OF P~EVIOUS
SUM Of LENGTHS
UPDATE LENGtH"
NOW SET UP FOR MOvE
CURRENT ENTRY IS TO ~t REMOVED
FINO L.ENGTH OF MOVE
MOVE TABL.E DOWN
A • TABL.E U:.NlTTH
SHORTEN ADT

PAGE
0367
~368

#31

~JJ9

~IBRARY

72516 07~072
72517 026576

SUBROUTINES
STA WORD
JMP KILCP

OONt WITrl UPDATE, WRITE OUT

036Q.

03 7°*
0371*
037~

Ii:)J73
0374

0375
0376
0J77
0378
0379
0380
0J81
03 82
0383
038 4
038 5
~386

0387
03 88
0J89
03 9 0
03SH
°3 92
0J9J

0394.

0J95*
0396*

0397*
039th

SEE IF THE ENTRV WILL COMBINE WITH THE
060034
0!S0562
026546
040351
070lD42
7252~ 0403511J
72526 lk'J4200
72527 1000011J
725316 000040
72531 144042
72032 IIJ02040
72533 002004
72534 050046
72535 002001
72536 026546
72537 054047
72540 002001
72541 02 6 54 6
72542 °6 0043
72543 140042
72544 17''''4 2
7 2 545 0 2 6576

7254()

0400

72546
72547
72550
72551
72552
72553
72554
72555
72556
72557
72560
72561
72562
72563
72564

16402
1Q403
0404

0405
0406
0407
0408

it:)409
0410
0411
0412
041J

*

LDA KIL..P

CPA ~lijO
JMP KILCN
AOA

,-1

S1A Kll..C
AOA ,-2
OLD A,1
CL.t:.
ADB
SEZ
INA
CPA
RSS
JMP
cPa
RSS
JMP
LOA
AOA
STA
JMP

064072
057552
1264~3

007000
11.144562

074050
044355
074~51

007004
044354
044034
117536
104200

000\'146
1044~0

KILCN EQU
LD8
CPS
JMP
CHB

ENT~Y

.>

A
CURRENT ENTHY
CHECK fOR BEGINN1NG Of TABL.l
NO PREClEDING ENTRy 10 COMBINE w
A .> L.ENGTM Of PRECEtOlNG ENTRV
SAVE POINTE~
A -> PREVIoUS DlSK ADDRESS

KIL.c,l

ADD PREVIOUS LENGTH 10
PREVIOUS OlSK ADDRESS

Kl~OI

DOES FIRST wORD MATCH

KILeN
KILoI+1

DOESN'T COMS i NE
DO S~COND WORDS MATCH
YES, ENTRIES CAN COMaIN~
DOESN'T cOM~lNE ANYWHERE
GET L.ENGTH
UPDATE ENTRY

KIL.CN
KILN
KILC,l
KILC,l
KILCP

AOD IS ALL OONE

ENTRY IS NOT ADJACENT TO , OR bRIOGING
TWO ENTRIES THAT ARE IN ThE TABLl, , .
TABL.E If POSSI8LE AND INSERT

0399
ttJ401

KIl..CG EQU

72520
72520
72521
72522
72523
72524

PRE~lOUS

*

WORD

M8190

RADl,!

ADS LI8D
STa MOVES
AOB .... 3
ST~ MOVED
eMB,INB
AOB .... 2
AD~ KILP
JS~ MOV'FB,I
DL.D KILOl

OST KILP,1

~El"t:.EN

MUVE

If THERE IS NO HOOM TU

EXPAND THE ADT,
wE HAvE TU LUOsE THE SPACE

SET UP fOR THE MOVE

MO~E TABLE VP TO MAKE ROOM
GET DIsK ADDRESS

sET lNTO TABL£::

72565 100034
0414

0415
0416
0417
iGl 4 18

72566 064034
72567 044354
72570 060043
72571 170001
72572 160045

LOB
ADt;
LOA
STA
LOA

KILP
.... 2
KILN
B,l
KILOF,l

e w> NEw ENTRIES LENGTH
A III L.ENGTH
SET NEW EN!RlES l..ENGTH
GET TABLE L~NGTH

PA.E 03.0 *31
0419
0420
0421
0422
1d423
0424
1d425*
0426
0427
0428
k'l429
0430
16431

0432
0433
0434
k'l435

LIBRARy

72573
72574
72515
12516
72576
72517

".03.7

726e0
726fU
726'2
12603
72604
12606
72606
72607
72618
72611

00eeee
001104

170"45
070072
036403
126403

0e3e'0
002004
000840
044047
002040
0820"4
0400~U)

12668 ..

aU8ROUT1N~i

.-3

ADA
STA KILOF,l
STA WORD
KIL.CP El.1U
ISZ RAUl

•

JMP RAOT,1

IHtREA8£

~y

T~Rt£WQHgS

SKIP RElURtJ IS NORMAL.
RETURN

fADoe NOP
CMa,eLE,INts
,MA,SEZ
INA

eLf

ADS KILDl"'1

ADO l.owER HORf.. S

INA
AOA KILDl
JMP FAOO8,1

ADO UPPER

stz

~OHI)S

13437.
04Jt\*
0439.
0440*
0441*
121442*
0443.
8444*
0445*
8446*
0447*
0448*
0449*
13450*
0451*
0452*
(,)453.
0454
0455
0456
0457
0456
0469
0460
04 61
0462
0463
0464
0465
0466
0467
"'468
0469
0470
0471
04 72
"'473
0474
0475
0476
0477
0478
fd479
048121
0481
04 82
0483
0484
fd485
0486
0487
0488

THIS ROUT1NE SCANS A TABLE AND PUTS DISK SPACE SACK
INTO THE DISK ADT8,
THE-FORMAT OF THE TABLE IS,
LleUS.81921 (10)
I LENGTH
I TWO WORO DISK ADDRESS

,•
~OCTC

• THE NEGATIVE NUM8ER OF ENTRIES
CONTAINS

THE ROUTINE RETURNS ALL SPACE ON ONE ADT SEFORE WRITING
IT BACK, THE DISK AOORESS Of EACH ENTRY 15 ZEROED AS THE
SPACE IS RETURNED,
72612
72613
72613
72614
72615
72616
72617
72620
72621
72621
72622
72623
72624
72625
72626
72627
7263'"
72631
72632
72633

726.54
72635
72636
7 2 637
72640
72641
72642
72643
72644
72645
72646
72647
72650
72651
72652
72653
72654
72655

000001tl
0600321
073562
002~03

126612
065.,02
0061d04
160001
070043
006004
077563
1°42 00
17366J
002 0 0"
006002
002001
026721
1044fa0

0100046
002400
10136400
104400
173503
016237
160045
070072
060044
073564
160044
002003
02672l
064566
117534
026716
016403
000000

T60AO NOP
TaOBB EQU •
LOA LOCTC
STA T8DTl
SZA,RSS
JMP TSDAD,l
LOS L819 2
INij
TI::SOl:U EQU *
I.OA 8,1
SlA KILN
INB
STB TI::SDT2
OL.O TaOT2,1

.ET THE ENTRY COUNT
ANO SAVi IN A TEMP
CHECK FOR NUl.l. TABLE
RETU~N IF SO
.
~OAO TABLE BASE
-> ulSK LENGTH Of flkST ENTHY
GET THE LEt.J(;TH
AND SAVE FO~ THE RAOT ROUTINE
.> DISK AOO"ESS
SAVE THE PO!NTER
GET THE DISK ADDRESS

SZA,RSS
SZB
RSS
..IMP T~OBU
DST KILol

SKIP IF FIRST HALF NON~ZERO
SKIP If ENTRY ALL ZERO
NON~ztRO ENTRy, IT MUST BE RETUH
THIS ONE IS NUL.L
SAVE THE DISK ADDRESS FOR RADT

CLA
CI..B
oST TBOT2,1

PREVENT SECOND RETURN OF SPACE

JS8 FAOT
LDA Kl~DF,I
STA WORD
LOA KIL.O
STA T6DT3
LDA KIL.O,l
SZA,RSS
..IMP TBOBU
LOtS L.l6Dl
JSB ORUMP,l
JMP TaDeY
JS8 RADT
NOP

fINO THE CORRECT ADT
THE ACTS L.ENGTH

.ET

T~ACK

GET THE POINTER TO THE ORUM AODH
AND SAVE.
GET THE ORUM ADDRESS
SKIP IF TRACK EXISTS
NO AOT, fORGET ENTRY
READ IN

T~f

TRACK

PUT THE SPACE BACK

PAGE 1tl342 #31
1t:l489
0490
0491
0492
0493
0494
0495
0496
"497
21498
0499
052121
"501
0502
0503
0504

LI8RARY

72656

726t>6 037562

TtW8C EQU
lSZ
JMP
LOA
L08
JS8
JMP
JMP
T8DBE EQU
LOB

•
TaoTl
TSoSE
TaDT3,1
L18D
DRUMP,l
TSDBY
T60S8

10519

72657
72660
72661
72662
7 2 66 3
72664
72665
72665
72666
72667
72670
72671
72672
72673
72674
7 2 675
72676
7 2 677
727021
72701
72702
727213
727214
72705
7 2706
727217
72710
72711
72712
72713
72714
72115

0521*
10521
fd522
0523
0524

72716
72716 002400
72717 170044
72720 170045

TBOBY EQU •
CLA
srA KILO,1
STA KILDf,1

12721
72721
72722
72723
72724
72725
72726

Ta06U EQU
lSl
fotSS
JMP
LOS
ADa
JMP

"505
0506
05 0 7
0f)08
0509
0510
0511
0512
0513
10514

0515
10516
0517
0518

026665
163564
,,64562
117534
026716
026613

SU~ROUTINES

0 61 563
,,44355
1602101
07e04~

006004
0 77 5cJ
104200
17;)563
002003
0216002
0020211
026656
10440'"
"'00046
016237
2160044
fd53564
2102.01
026606
006.00
104400
173563
016403
000000
026656

1IJ52f5.

0526
0521
0528
k:l 52 9
0530
k:l531
"'532
0081.

037562
"'02001
126612
067563
044355
~26621

1.08

LOA
STA
INS
STS
OLD

•T60T2
,+3

B,l

KII.N
T80T2
TSOT2,1

CHECK COUNT~R
MORE ENT~lES
GET THE DRUM ADDRESS
WRITE THE D18K ADT 8ACt<
SCAN TABLE UNTlL EMPTY
•• NEXT DISK LfN_TH
GET LENGTH
AND SAVE FOR RAOT
.> DISK ADDHESS
SAVE UPDATED POINTER
GET THE DISK ADDRESS

SZA,RSS
SZS
RSS
JMP T8UBe
OST KILOl

CHECK IT FOR ZERO

JSB FADT
LOA KILO
CPA T8DT3
CLA,RS8
JMP Teose
CLS
DST rSUT2,1

FINO WHICH TRACK THIS SPACE BEL.O
GET POINTER TO DRUM ADDRESS
COMPARE WITH SAVfO VERSION
OKAY, SAME TRACK
NOT ON THIS AOT • • UEFER

JSB RAUl
NOP
JMP laose

PUT THE SPACE 3ACK

•T80Tl
TeDAo,1
TBDT2
.+3

TaOSA

REAL ADDRESS, RETURN SPACl:.
GO TRY NEXT ENTRY
SAVE DISK ADDRESS FOR RAOT

PREVENT oouaLE RETURhS

TRY FOR

ANOTH~R

ENTRY

SET AOOHEss AND L.ENCiJTH
TO NUL.L
CHECK THE CVUMlER
ENTRIES SllLLXIST
ALL ENTRIES AH~ ZERO
GET THE TABLE ~OlNTER
-> NEXT DIsK ~ENGTH
BACK TO TRY THIS ONE

PAGE 0343 *32
0003.
kl004*
0rcHd5*
"896*
8887*
000S
0009
0010
0011
0012
0013
0014
16015
~016

0017
0k'J1S
0019
0020
0021
0022
0023
~024

0025
0026
0027
16028

VJ029
0030
0031
0032
0033
0034
!d035
VJ036
0037
0036
10039

!d040
0041
00~2

0043
0044
0045
0046
0047
00 4 6
0049
0050
0ldSl

0052
0853*
0054
0055
0056
01357

L1SRARY

8U6RPUTIN~S

THE T61DT ROUTINE 18 USED TO UPDATE THE CORE TA8Lt
BUILT BY ROUTINES SUCH AS KILLID, PURGE, MLOCK, ETC.
IT UPOATES EACH lOT TRACK AND REWRITES 1T TO Thl OHUM,
72727
72730
72131
72732
72733
72734
72735
72736
72737
72740
72740
72741
72742
72743
72744
72745
72746
72747
72750
72751
72752
72753
72754
72754
72755
72755
72756
12757
72760
72761
72762
72763
72764
72765
72766
72767
72770
72771
72772
72773
72774
72775
72776
72777
73000
73001
7J01c:12
730",3
73004

000000

TfHDT NOP

06((103~

LOA LoeTC
SlA,RSS
JMP T610T,1
AL.S,AL.S
CMA,lNA
ADA L8192
ADA
STA T6DTl
L.OCf6 EgU •
LOA TBOT1,I
STA 10
JSB GTILP,I
lOA lUl.NP,l
SlA WUHO
lOA IDL,.CP,I
LOB Lltl4)1

002003
126727
001020
003004
041002
040J46
073662
16351)2
07 00 52
117535
160076
070072
160075
064566
117534
117546
164076
007004
044562
163562

._4

JSB

L.OCFG
054562
027006
044342
150001
0021001
026755
037562

f,QU

*

LOA T60Tl,I

THE NEXT 10 fROM THE TABl..E

FINO WHAT TRACK IT'S ON
RtAO IN lOT

StT 6 TO POINT TO ENU of lOT TRA

GET ID OF FIRST ENTRY

cpa

1..1BD
JMP LOCfR
ADB
CPA 1,1
RSS
JMP l..OcFG

._8

ISl T6lHl

140001
170!d01
006004
063562
040345
!d7 35 6 2
040356
051002
002001
026754
160075
064562
117534
117540

LOA lOLCP,l
L.OB LIS\)
Jsa DRUMP,I
Jse DEAOA,l

163562
00J0~4

G~T

EIliU •

ADB ,+7
L.OA T60Tl,1
CMA,INA
ADA B,I
STA B,l
INa
LOA T60Tt
ADA .-5
STA T60Tl
ADA .+4
CPA L8192
RSS
JMP L.OCFl

044~61

ADO TABLE BASE
.,. LAST ENTRY
SAVE POINTER

tH~uMP,l

JSB DEADA,I
LOB IDLNP,I
CMB,INB
ADa LI6U

L.OCfl

SET COUNT OF ENTRIES
SKIP IF ~ORK TO DO
NO TAt.'Il..t:., E~lT
MAKE INTO NEGATIVE WORD COUNT

SEARCH FOR

~T

IN lOT,

FOUN!),

.> L.iNGTH OF THIS PATCH
POINT TO SECTORS USED,

SULHRACT
THti
L.ENGTH
OFF
SET B TO NEXT HIGHER tNTRY

.> PREVIOUS ENTRY
SET POINTER TO PATCH TABL.E

SACK TO

Bt~INNING?

LOOP.

WRITE BAC" lOt.

PArlE 0344

.".6ti
0009*
0060
0061
006~

0063
0064
0065
~066

0067
0068
00 6 9

0070
0071
0072

0073
0074

#3~

L.IBRARY SUBROUTINES

7:Slet) 126727
73006
73006
7J007
73010
73011
73012
73013
73013
73014
73015
73016
73017
73020
73021
73022
73023
73024
73025
73026
73027
73030
73031
73032
73033
73rd34
73rdJ5
730J6
73037
73040
13041
73042
73043
73044
73045
73046
73047
13050
73051
73rd52

160~15

064562
117534
117546
026740
060403
11167016
127555
073~H7

005114
047603

.IMP.

lil~T,l

MllUR'-

•

LOCFR EQU
REWRITE THE CURRENT TRACK
LOA IDLCP,I
LOB L180
JIB ORUMP,l
JSB DEADA,l
JMP LOCFB
ANO RiAD THE flEXT
MLKFl E~U ...
L.DA ,+25
L.D~ *+2
JMP LEN2A,1
OfF *+1
OCT 5114
ABC 12,UCKEO BL.oCKS TABLE FUL.l

0455~5

042040
041114
047503
04552J
020124
",40502
ft;l46105
020106
~52514

046040
{O051 04
0445~J

041457
042122
052515
020105
051122
047522
0J544~

041501
041047
052040
042117
02011:.
{O52040

Loft 0
ODERL OCT 5104
Ase 14,ISC/DRUM ERRUR' CAN'T 00 IT

pA~E

0076.
0077·
0id78.

0079.

",,,e.
0081
0082
0083
0084
0085
0086
(1)087

~345 *J~

HDHUF SETS UP THE HEADING FOR DIRECTORY, SOlkECTORY, STATUS AND
REPORT ON THE SYSTEM CONSOLE. THE HEADING CONSISTS Of THE SYSTEM
10, DATE A~D TIME.

00 8 9
0090
0091

73053
73054
7J055
73056
73057
13060
73061
73062
73(Z!63
13064
73065

009~

731066

0",8~

0093
0094
0095
0096
0097

0096
0099
0100
IcH0l

0102
0103
0104
0105
0106
vU0 7

0106
0109

0110
0111
011 2

1d113

0114
0115

0116
0117
0116
0119
0120

0121
0122
0123
0124
0125
IH26

0127
10126

LI8RARY SUBROUTINLS

73067
73070
73071
73072
73073
73 0 74
73075
73076
73077
73100
73UH
73102
73103
73104
73105
7310 6
73107
73110
73111
73112
73113
73114
73115
73116
73117
73120
73121
73122
73123
73124
73126
73126
73127
73130
73131

73132
73133
73134

000000
060301)

070041
063557
170041
06356iJ
034041
170041
0610305
040354
070051
063551
070.,50
064345
117e;J7
063560
064041
044360
170001
044354
074041
060201
01c)640fl
100400
000402
074042
006400
100 4 00

H06UF

NOP
LDA T3fHU

STA L.TEMP+9

L.OA
STA.
L.OA
lSZ
STA
LIJA
AOA
STA
LOA
srA
LOB
JSB
LOA.

LF5PA

INl TIAI..Ilf Tn
BUFfER POINTER
L.f.SPACE.

L.TEMP+9,1
SPSP
TWO SPACES
LTEMP+9
L,T~MP+9,I

T35fH

• +2
MOVED
oSYIO
MOVES

.-l)

MO"Fw,I

8PSP

MOYf.

SYSTEM
10 TO

BUFFER
TWO SPACES

LOB LTEMP+9
ADB .+6
STA t;,l
AD8 .+2
aTB LTfMP.9
LOA DATIM
DIY .+24

GET HOUR OF H.AR
CUNvERT
TO OAY

STB LTE.MP+10

SAVE

CLot;

CL.B

DIY ,+10

HOUR
GET L.AST
DIGIT

RlMAINo~R

000J6~

005727
047561
174041
017146
00740 0
044041
170001
044354
074041
060200
0171~6

170041
063560
",34041
170041
060042
017146
034041
170041
",60202
04'0704

BL.f,BL.f
AoB ZERSL
MERwE IN SL.ASH
8r8 LTEMP+9'I
FIRST TWO P!~lT8 OF DAY
JSB TDNUM
tCt;

ADij
STA
A06
SlB
LOA
JS8
SlA
L.OA
ISZ
aTA
LDA
JSB
lSZ
STA

L.TEMP.9
6,1
.+2

LTEMP+9
ylAfo<
TDNUfo1

yEAR OF CENTURy

LTEMP+9,1
SPSP
TWO SPACES
LTEMP+9

L.TEMP+9,I
LTlMP+10 HOUR OF OAY
ToNUM
L.TEMp+9

LTEMP+9,I

LOA DATIM+1
ADA IJ36K

CONVERT
101'4 MS

PAGE 0346 #32
0129
013~

0131
0132
~133

LIBRARY SUBROUTINES

73135
73136
73137
73140
73141
73142
73143
73144
73145

00641iJ0
100400
"'00456
017146
034041
170041
060406
064305
12705J

CLB

73146
73147
73151(1
7Jl!51
73152
73153
7315 4
73155

ita""".,
006400

TUNUM NOP

UNITS TO
MINUTES

DIV 0600

Of HCUR
J8B TONUM
L.TEMP+9
ISZ
STA L.TEMP+9,1
28 CHARS IN Mt:.AOING
LOA ,+28
LOB T3581
JMP HDBUF,l

0134
0 135
0136
0137.
0138* CONVEt4
0155
0156
0157
0158
kl159
0160
0161
0162
0163
~164

1c:1165
0166
0167
0168
0169
10170
01 71
0172
"'173
10174
0175
0176
0177
0178
rcH79
((J18kl
0181

100400
0(60364
01rH727
e40001
04057 4
127146

~L.B

1)1V .+U'J
ALF,AL.F
ADA B
ADA ASC00
JMP TONUM,l

FIRST DIGIT
Si!;ONO DIGIT
ASCII OFFSET

UHOBF PRINTS TH~ HEADING FOR UIRECTORY, SOIRECTORY, SlATUS AND
REPORT ON THE USER TERMINAL, THE HEADING CONSISTS OF THE SYSTEM
10, UATE ANO TIME,
7~H56

7J157
73160
73161
73162
73163
73164
73165
73166
73167
73170
73171
73172
73173
73173
73174
73175
73176
73177
73200

00000'"
0tHd364
117556
060412
117556
06 0 412
117550
06 0 412
117556
063551
070040
t';60345
~70041

160040
001727
010443
117556
160040
010443
732101 117556
732kl2 0J404~
732103 034041
73204 027173
73205 060412
7J206 117556
73207 060412
732Hl 117556
73211 ((J6k:l201
73212 00641d1a

UH08F NOP
LOA

,+12~

JSB LOUTA,!

LOA .+4"'6
JS~ LOUTA,1
LOA .+406
JSB LOUTA,l
LOA .+406
J~8 LOUTA,1
LOA DSYID
STA LTEMP+8
LOA ._5
STA LTEMP+9
uH081 EQU •
llJA LTEMP+8,1
ALF,ALF
AND 8377
JS8 L.OUTA,1
LOA LTEMP+8,I
AND B377
JSB LOU1A,I
lsz LTEMp+8
ISl LTEMP+9
JMP UHD~l
LOA .+40 B
JSB LOUTA,1
LOA .+408
JSB LOUTA,I
LDA DATIM

tL8

LF
~LANK

BLANK
BL.ANK
-> SySTEM 10
.f)

wOHDS

OUTPUT
SYSTEM
10

BLANK
BL.ANK
GET HOUR Of YEAR

PAGE. idJ47 .32
rrHe2
0183
0184
0185
0186
0187
id18d
0189
0190
0191
0192
0193
0194
0195
''196
0197
0198
0199

0200
0201
0202
0203
028.0205
fc)2 0 6

0207
0208
0209
0210
0211
1tJ212

0213_

1214021516216
0217
0218
0219
1tt220
0221
0222
0223
0224
0225

L.i8HA~V

lJ~lJ

1004'0

73214
73215
73216
73217
73220
73221
73222
73223
73224
73225
73226
73227
73230
73231
73232
73233
73234
73235
73236
73237
73240
73241
73242
73243
13244
73245
73246
73247
73250
73251
73 2 5 2
73253
73254

000402
074041
00641210
10id400
0003644
074040
011255
060040
040432
117556
060431
117556
0b02""
0172f)~

060412
117556
060412
117556
060841
017255
060282
040704
006400
100400
000456
i'1725&
060370
117556
060367
117556
06 0 364
117566
127156

SU8ROUTINES
DIV ,+24

CONVt.HT TO DAY

STe LTEMP+9
tLB
01\1 ,+10

SAVE HOUR REMAINDlR

5T8 LTEMP+8
J5B UTDNM
LDA LTf.MP+8
ADA ,+60S
JSB LOUTA,l
L.OA ,+578
JSB L.OUTA,l
LOA yEAR
JSb UTOt04M
L.OA ,+40S
JSB LOUTA,1
LOA ,+408
JSB LOUTA,1
LOA L.TEMP+9
Js*, UTONM
LOA OATIM+l
ADA 0361(
CL.8
OIV D6f60
J98 UTONM
L.OA .... 2JS
JaB LOUTA.!
LOA ,+156
JI8 L.OUTA,1
LDA ,+128
JBB L.OUTA,1
JMP UHoeF,l

1ST 2

0id"000
006400
100400
00036~

"74043
040432
117656
060043
041d43c
117556

127255

UTONM NOP
CLe
DIV ,+1'"
8TB LTt.MP+l1
AOA ,+606
JaB LOUTA,I
LOA L.TEMP+l1
AOA .+60B
JSB LOUTA,I
JHP UTDNM,1

IN A, L.AST IN

OUTPUT 1ST 2
OUTPUT LAST ONE
,I '

(tET yEAR
AND OUTFUT
SLANK
BLANK
,",OUH OF DAY
CONvERT
1"0fi1S
UNITS TO
tl1NU1ES
OF HOUR
X... Of'F'

CR
L.F

CONVERT A *c100 TO A8Cl1 AND OUTPUT IT
73255
1 3 256
73257
73260
73261
73262
73263
73264
73265
73266
73267

DIGI"~

~

PAGE .,346 #32

UPDAT~

LAST CHANGED DATE. ROUTINE

0221*
UPDATE LAST CHANGED DATES H NECESSARY
0228*
022i.
#L.eDl EQU *
0230 73270
0231 73210 064273
IS THf.R~
L.oe ML.INK+1
0232 73271 044335
Aoe ,.'lL.INK
A NEED TO
~23J
73272 160001
L.OA B,l
CHECK FILtS
0234 73273 010444
AND OFCHK
FOR pOSSIBLE
02J!) 73274 002~0J
SZA,RSS
l'D U~DATE
0236 73275 02734~
JMP EXiT7
ADB ,+1PL.EV
0237 73276 044370
CL.A
0238 73277 0024kl!3
10239
ClF 0
73300 103100
0240 73301 t70001
STA a'l
SET PRIORITY TO 0
NO lIMINe.
SlA TIMEF
0241 733102 070264
AOB ,+?STAT .. ?PlE.V
"'242 73303 044350
0243 73304 060356
S~T STATUS TO SYNTAX SO
lOA XSYNT
0244 73305 170001
STA B,l
WE WON'T GET SWAPPED
0
A08
.+?PROG
..
?STAT
0245 733 6 044341
SOUND INT:')
lOA PBPTR
0246 73307 060056
0247 73310 170001
TTY TABLE
STA a,l
0246 73311 003000
CALCULATE lENGTH
'MA
0249 73312 041221
ADA USE.
f'(,jH WRI TE
0250 73313 070072
STA WORD
10 ORUN+M
0251 73314 044351
fORCE BACK
ADB .+1 DISC -?PROQ
0252 733 15 160001
TO SWAP
L.OA B,l
102 5 3 73316 1010317
AND M32
AREA
STA
B,l
ORIGIN
7
0254 73317 1 0001
0255 7 3320 2165221
OUTPUT USER
L.DB USE
0256 13321 117534
TO DRUM
JSB DfWMP,l
0257 73322 127540
JMP ROPJP,l
B~EW IT, GO ZAP USER
",25S 73323 061S52
LOA F"RMAT
GET FILE COUNT (.)
0259 73324 064273
GET POINTER
lDB ML.INK+l
Ace .+?ID .. ?L.INK
TO 10 WORD
0260 73325 044341
GO
UPUATE
L.AST
CHANG~D DAT~S
JSB lCO
1d261 73326 011353
JMP EXIT1
"'262 73327 027346
cORE INTACT, EXIT
(,~A
bL.OCK
0263 73330 002430
CL.OCK
0264 73331 170634
sr A DClCl,l
RESTORE
0265 73332 064273
lOB ML.INK+1
ADa ,+?PRoG",?L.INK
0266 73333 044340
~267
L.DA b,l
73J34 160001
eMA
026S 73335 IOVJ3000
ADA UsE
0269 73336 041221
0270 73337 070072
STA WORD
USER
1'd271 73340 044351
AUS .+?OISC .. ?PROG
lOA B,I
02 7 2 73341 16000 1
0213 73342 065222
lOB USE I
AREA
JSB DRUMP,I
0274 73343 117534
JMp RDpJp,l
BL.Ew IT, Go ZAp USER
0275 73344 127540
0276 73345
t:.XIT7 £r.lU *
CL.A
BL.OCK
0277 7334S O,24 00
({)278 73346 1 0634
CLOCK
STA DeL.Cl,1
CHECK FOR ASOR"S
Jse ABCK,l
10219 73347 114534
lOA DClC2,l
UNBL.OCK
"'280 73350 160640
0281 73351 170634
CLUCK
STA DClCt,l

iala

02~3*

il284*
028e·
0286*

1 •• 7.

028a.
0289
0290
02 9 1
0292

il293
0294

0295
0296

02 91

"age

0299

.~t.

JMP L.CQ"',I

73301 11'.01

THIS ROUTINE ASSUMES THAT T.,., USER'S a.AP AREA 18 IN CORE,
THAT THE S RE&lSTER POINTS TO HIS 10 WORD IN THE Tf.L.ETYPE
TAILE, AND THAT A CONTAINS tHf NE~ATIV! OF THE NUMa~R Of FILES
73353
73354
73355
73356
73357
73360
73361
73362
73363

0"88"0
073565
011566

LtO

NOP
STA LCDFC
ST8 L.eOID
SSA,RSS
JMP LC09
CI..A
8TA DFCNT
LDA DFNAM
STA MOVED
LOB FIL18
INS
81B LCDSS

ENTRY POlfH
SAVE FILE COUNT
AND 10 POINTER
MAKE SURE YHERE REALL.Y ARE
SOME FtL.ES
INITIALIZ£ DIRTY
fiLE COUNT TO ZERO
GET ADDRESS FOR FIRST
DIRTY FILE'S NAME
GET STA~T OF FILE TABLE
BUMp pO~NTER TO WORe 1
O~ ENTRY AND SAvE

LCD,

LOA e,l
AND BIT14
SZA
JMP L.C02
ADS ,+FT£L
laZ LCOFC
JMP LCD!
LOA DFCNT
SlA,RSS
JMP L.CO~

GET DIRTY ~lL.E 8lT
HAS THIS F U.. E
BEEN CHAN$EO'l

18Z L.CO
CMA,INA
STA OFCNT
LOB DFNAM
8TB L.Ce81
LOA L.ee10,1
8TA L.TEMP
LOA 8,1
STA LTEMP+l
IN8
OLD 13,1

YES, aUMP RETURN (CORE 1S DIFF)
SAVE NEGA1IVE Of
DIRTY FILE COUNT
GET AUORfSS Of FIRST
DIRTY FIL.~'S NAME
STICK 10 IN LTEMP
FOR DLOOK
MOV£ DIRTY

002021

021436
00a400
e73507
063542
07 iJ051
73364 eot'04
13365 000.,4
13Ht ,77eli

0301fr
0302

0303
0304

0305
0306
0311J7
03"S
0309
0310

i3 11
0312.
0313

03 1 4
0315
0316
0317
031S
0319

0320
0321
0322
0323
0324
032'

0326
0327
0326

0329
0330

13361
13310
73371
13312
73373
73374
73375
73376
73371
73. 01
13401
13402
73403
73""4
7340'
73406
73401
13410
73411
13 .. 12
73413
13414
13415
73416
73417
73420
1 3 421
73422
13423
13424
7 ~4al

1610al

0UI222
"02182
02'446
044371

LC03

D~75e5

02;7 36 7

063561
002003
la7"~6

031353
003 00 4
073507
067542
017570
lfJ3566
070030
160001
010031
106"04
1e 4 280
180001
104400
000032
111543
e214t56
061 5 1 0
~443!55

",11510

037'67

fl3i1
.27 .. 11)
il332*
0333 73426 10:56415
e334 13427 0ia00~

LCDO

08T LTEMP+2

LCD7

J8B
JMP
LOB
ADB
818
lSZ
JMP

()L.OKA,l
L.C05
LCOSS

yES

NO, POINT TO NEXT ENTRY
ARE THERE MORE FILES1
YES, CHECK NEXT ONE
NO, Wt::RE
ANY DIRTYl
NO, RETURN

FIL.E-'S

NAMt:::
tNTe

L. TEMP,')

,+3

GO HUNT fOR DIRECTORY ENTRY
FOUND IT
BUMP
POINTER TO
NEXT NAME
MORE DIRTY FILES?
YE8~ PROCESS NEXT ONE

DIR~A,l
S~A'~SS

NO, WRJ.TE DIREcTORY TO DRUM
IF ANY IS IN CORE

L.oA

Lcoes
OFCNT
LCD6

0335
0336
0337
9338
0330
034"
0341
0342
0343
0344
0345
0~4e

0341
i~4t'

0349.
1315i*
0351*
"3~2

03153
0354
03515
0356
0357
0315'

"3ti
036(h
1361*
0362.
0363
0364
0365
0366
0~61

0368
°369
0310
kJ311
0372
0313
0314
1310
"316*
°3"·

8;.\11,.

7343111
73431
13432
13433
73434
73435
73436
13437
73440
73441
73442
73443
73444
7144t

021.t36
e,,64fij0
177545
064562
117534
127544
061566
12144346
060444
103100
120001
1700tU
102100

JMP L.CDi

CL,6

.TB OIRWA,1

L,DB LIBD

'''Sf, RETURN
TIL.L. l1LOOK
'THERE 15N'T

Ja8 DRUMP,1

GOOI', ATTEMPT SAL.VAGE
CL.EAR
CHECK
FOR
LOA DFCHK
0
OIRTY
CL.f'
XOR 8,1
fll..Ei
,81T
.TA 8, I
JMP OLK9A,1

LCOP

L,Oe LCDlO
ADS ._110

StF

"

,.IMP L.CO,1

1a7,313

ft~TUHN

MQYi NAM£ OF DIRty flL£ TO SAfE P"'.CI
7344U5
73447
7345 121
73451
73452
73453
13454
13.06

037067
071570
044364
074050
064347
11 75;,1
061611

l.C02

aa7J1~

PROCE"
73456 060034
73451 040360
73460 160000
73461'173545
73462 064836
73463 0443e4
73464 160001
73465 002 1 21
73466 ~274~1
73467 04~356
73470 06ea"1
73471 170001
1J.,2 121421

ISZ OFCNT

8Ta
ADa
8T8
L08
JaB
LOB
JMP

LeoaS
,+10
MOyES
,-3
MOYfW,l
I.C08S
LtDJ

8UMP DIRTY fI~E COUNT
•• v~ POINTE~ TO FILE TA~LE ENTRY
G£T POINTER TO FILE NAME
ANO SET IN MOvEw'S SOuRCE ADR
Moye: THE J
NAM, \!jORDS
iET ENTRY POINTER SACK
R£TUHN
TO ICAN OF FILE TABLE
-

A FOUNO 01Rf,CTORY ENTRY
LCO!5

LOA LTEMP+4
AOA ,+6
L.OA A,l
StA OlR~A,l

L;08 I..TiHP.rs
A08 ,+2
LOA B,l
5SA,R58
JMP L.C07
AD8 ,+4
1..0A DATIH
STA 8,1
.IMp L.C07

TELL. DLOCK
~HICH IHRE(TORY
TRACK 18
IN CO~f

~T

WORD
2

18 THE ENTRY A FILE?
NO, "0 PROCESS NEXT NAME
VES, UPDATE LAST
CHAN'ED DATE IN
DIRECrORY ENTRY
PROCESS NEXT NAME

.0

TMIS ROUTINE SETS UP THIN.S TO UPDATE THE
A U,£R HAl AIORTED

LA~1

CHAN~E

DATE

~HEN

0379.
0380 73473
II'IJ81
7 34 73
18382 73474
121 3 8 3 73475
0384 7'476
038~
73477
0386 73500
0387 73501
121388 13502
1389 73513

AtHiCD
064~e7

04431515
06 00 56
1700iH
00300"

041221
070072
044J!51
1618.1

£Q\I

l.OB
A08
1..0 A
STA
Cf4A
ADA
slA
AOB
LOA

*MAIN

,+1PROG
PBPTR
a,1

lET BOUND
IN TTY lA'''''

uSE
NUMBER OF .. URD8 TO TRANSFER
wORD
.+10I8C",1PRO"
a,l
i~T SWAP . IP.~·CK AOORfas

..

PAGE
0390
11:1391
0392
10393
10394
0395
11:1396
0397
0398
0399
0401/:1
0 4 01
11:1402
10403
0404
16405
0406
0407
0408
040 9
10410
0411
16412
0413
11414,*

~351

73504
73511:15
73506
73507
73510
73511
73512
73513
73514
73515
73516
73517
73520
73521
73522
73523
73524
73525
73526
73527
735316
73531
73532
7J533

#32

UPDATE LAST CHANGED DATE HOUTINE

01~J17

AND M32

170001
065221
117534
1275410
061502
003004
064267
044356
1D17Jf;)J
000000
103U'0
0642e7
07 .. 062
060372
030442
003000
110001
170001
0024010
070257
170634
044366
127541

STA B,l

LOB UsE
JSB DRUMP,l
JMp ROpJp,l
L.DA FtNTR
CMA,INA
L.oe MAIN
Aoe ,+110
JSH L.tO
NOP
eL.F 0
L.OB MAIN
STB TTQ
L.UA UNAIH
lOR ABTWY
eMA
AND B,I
srA s,I
CL.A
srA MAIN
STA DCLC1,I
AOB ,+1STAT
JMP OSCH7,1

WRITt USER TO SWAP TkACK

"". OF FILtS
.> 10 WOHO IN TTY TAbL.E

UPDATE LAST CHANGE DATE

FOR SCHEDUL.ER

CL.tAR ASORT FL.AGS
USER NO L.ON"cR IN CPkE
BLOCK CL.OCK
-> STATUS WORD
ENTER ABORT CODE IN S'HEDUL.ER

litilH5.

kJ416
04 1 7
16418
0419
0420

0421
0422

0423
0424
0425
~426

0427

73534
73635
73536
73537
73540
73541
73542
73543
73544
73545
7J546
73547
73550
73551
7,3552

074231
0743710
074243
.,74257
074071
10/0433
it12~HJ0

0310610
11:131173
031223
062662
06261J
062411
00017l
160002

11:1428
0429
0430
164 31 7355J 177744
0432 7J554 160000
0433.
0434 7 3 555 074271
0435 73556 13741J2
0 4 36 73557 01/:15040
fc')437 73560 020040
0438 73561 030057
0439.
0440 73562 01i:10001d
11:1441 7J563 00000e
0442 73564 00010100
0443 13566 011:10001c1
0444 13566 000000

ORUMP
GTIL.P
MOI/FB
MUVf"W

DEf
OfF
DE.F
oEF
~OpJp OfF
DSCH7 OEF
Df"N~M oEF
DL.OKA DEF-"
0L.K9A DEF
OIkwA DEF
DlAD .. OEF
SICKA OEF
SAL.VA oEF
DSVID OfF
M819~ DEC
HM28 DtC
M6192 DEC
L.t::N2A
L.OUTA
lFSPA
SPSP
lERSL.

DRUML.
GTIL
MOVE;:B
MOVEw
ROpRJ

SCH7
LItWS+lIll176
DLOOK
DL.OK9
DIfHW
DEAD
SICK
SAL.VG
SYSIO

DIRTY FIL.E NAMES BUFfER

.819~

"2 8
",8192

OEF L.f.NO+2
Ot;.F L.OUT
OCT 504tc1
ASC 1,
ASC 1,0/

T~DT1 BSS 1
r60T2 BSS 1

T~DT3

ass

1

LCDFC BSS 1
lCO!D BSS 1

COUNT OF Fl~ES TO BE CHECKED
POINTER TO USER 10

1d445
0446
0447
0448

73567 00000{()
73570 0{()0000
73571 00"'000
73774

DrCNT t3SS 1
LCOeS rsSS 1
FlL.BF t2SS 131
t;SS kl

COUNT OF
POINT~R

CHA~GEO

FOR

L~D'S

(DIRTY) fILES
SEARCHES

0450*
",451*
0452*
&413*
0454*

THE FOLLOWING ROUTINE wILL PROVID~ A
DUMP ON THE CONSOLE TELETYPE,
ENTER

H~RE

FO~

CO~E

A TSS DUMP

04~5.

0456
0457
0458
0459
(6460

77000
77000
77001
77002
77003

~461

77004 1"3711

0462
0463
0464
0465

77005 H)23t1
770"'6 027005
77007 102511

0466
0467
0468
0469

O~G

10310"
103110
063231
1tt2611

77010 'UJ233
77011 07J~34
77012 002002
77013 027016

17014
77015
77016
77017
77 0 2°

003227
102612

0470
0471
017116
0472
002400
0473
067224
0414 71021 000000
1470 77022 117107
0416.
(6477*
0478*

0419
048"
0481

77023 063236
7702il (.IJ7323t5
77025 163235
~02021

0482

71026

0483

77027 027035
770J~ 831235

(6484
0485
0486
0 4 87

0488
0489
0490

0491
0492
0493

0494
0495
0496

77(031 167235
77032
77033
77034
77035

003004
017067
027047

77036
77037
77040
77041
17042

0210~S1

002003
064000
01715!!!

063221
017124

77043 167235

77044 164001

0497

77045 017155

0498
0499

77046 017116
77047 tt37235

0500
05tH
11502

77050 027025
170~t 102000

0503.
0004.

11052 1278t51

C1.f
eLF
LVA
OTA
STC
SFS
JMP
1.IA
AND
STA
SZA
JMP
LOA
OTA
Jse
cl. A
LOB
NOP

770008
"
CHl
LP8TK
CH2
CH2,t
Ct12

•• 3
TB130
1SC
TKcRl.

Cl.EAH RETWRN CHAN. FROM OTHER MA
wET LP STATUS COMMANI,)
OUTPUT IT TO OTHER MACHINE,
INTERRUPT OTHER MACHINE
WAIT fOR ACCEpT AND RETURN
of STATUS FROM OTHER MACHINE
GfT STATUS WORD
MASK SELECT CODE OF LP
SAVe SEL. CoDE (OR 0)
L.P UP & REAOY?
YES,
PRINT AND PUNCH
OUTPUT TO TELEPRINTE~ KLuDGf BOA
PUT UUT Lt~DING cR L~

TP21H

ENU tH.OCK

.-1

CH2
831TK
TKLP

JaB TK

LOA TKT6L.
8TA TKT6p
TKOl.P LUA TKT6P,1
SSA,RS8
JMP TKIWO
ISZ TKTHp
l.U6 TK'rsp, I
CMA,lNA
JIB TK
JMP TKOLN
rKll'lO SZA,RS5
JM10l TKDON
LOB A
JSB TK~O
LDA TP40
• J3B TKCO
LOB TKT8P,I
LOB B,l
JSe TKWO
JS8 TKCRL
TKOI..N lSZ TKTBP
JMP TKOLP
TKDON tiL.T
.IMP .-,

STARTING POINT fOR DUMPING OF

INITIALIZE.
PNTR,
G!l TBL ENTRY
SlNGL.£ WORe?
YES,
8UMP PNTR,
G[T ENDING P~lR.
MAKE STARTING ADDRESS POSITIVE
OUTPUT STRING
END Of TABLE?
YfS,
COpy TO B
PRINT ADDRESS
A .. BLANK
ANt) PRl~T IT
wET ADOR. A!;AIN
B • MEM CONTE~T
PRINT CONTEtH
AGAIN fEED CARRIAGE

1t1505. SELECTED LOCATIONS.
,,506* ENTER WITH A. STARlIN'
0507. 8. ENDING ADDR~SS.
050'.
0509 77053 (,:173206
STA
IcH)10
77054 077207
ST8
0511 77055 1063234
LDA
0512 77056 002002
aZA
0513 77057 027062
JMP
1t)514 77061t) 063227
LDA
1d515 77061 102612
orA
0b16 77062 01711~
JSB
0517 77063 063206
LOA
0518 7706~ 067207
LOB
0519 77065 017067
JSB
JMP
k1520 77066 027051
0521*

AOORESS AND
TKl
TK2

T~L.P

*.J
T6130

1st
TKtRL
TKl
TK2
TK
TKDON

SAVE STARTING ADDRESS,
SAVE ENDING ADDREss,
CHECK FOR LP SEL, CODE
READY1
YES,
PRINT AND PUNCH
OUTpUT TO TTY KLUDGE BOARD,
PUT OUT L.EAOIN~ CR L.F
GET STARTIN~ AND
ENDING ADORESS.
DUMP,
STOP.

~522*

0523
0524
0525
0526
0527
0528
0529
0530
1t)531
1t)5J2
0533
0534
0535
0536
0537
0538
0039
1t)541t)
0041
0542
10543

77067
77070
77071
77072
77"73
77074
77074
77075
77076
77077
77100
77100
77101
77 UJ2
77103
77104
77105
77106
77107
771 tv)
77111
77112
77113
77114
77115

000000
013 2 14
(673206
[dftj7000
VJ77207

TK

TKA
063 2 14
073210
067206
0171~5

TKB
063221
017124
16720~

017155
03721.16
It)J7210
02710i;
rcH7116
063206
043207
002020
027074
017116
12712167

ftj544
id545
0546
0547
id548.
0549 77116 000000
ftj550 77117 1lJ6322iCJ
0551 7712121 ftj17124
10552
77121 063217
\1553 77122 017124
10554
77123 127116
055!b
0556 77124 "00121010
0557 77125 073213
1t)558 77126 kl77212
k1559 77127 106501

Nap
AND
SlA
CM6
SlB
EQU
LOA
STA
LOS
JSB
EQU
LOA
J8tl
LOB
JSB

IsZ

TM8

TKl

I!t

TK2
•
TM8

TKJ
TKl
TKWO

*

TKCO

EIGHT wORDS PER LIN£.

LOAD ADDRESS
PUT IT OUT

TP4il
lKC;O
TK1,I
TKWO
TKl
TKJ
TKS
TKCRL
TKl
TK2

A .. HLANK
PUT IT OU1,
LOAD DATA wOHI)
OUT IT GoEs.
COUNT UP ADDREss.
COUNT DOWN COUNT WITHIN LINE
CONTINUE WITH THIS LINE
OUTPUT CR AND If
LOAD CURRENT ADDREss
CHE~K fOR OONE
SKI~ IF DONE WITH DUMp
uTHERWISE, START LlNE

TP15
TKCO
TP12
TKtO
TKCRL.,1

CR

lSZ
JMP
JSS
LOA
ADA
saA
JMP TKA
JiB TKCRL
JMP TK,l
TKtRL NOP
L.OA
JSB
LOA
JSs
JMP

BE STUFFY ABOUT STARTING POINT.
SAVE STARTING ADDRESS
t; .. '" B
1
STORt ENDIN~ ADDRESS.

NOP
STA TKe
Sle TK5
LIB ~1

LF
RETURN

ROUTINE TO PUT OUT CHARACTERS
SAVE OUTPuT CHR.
SAVE THE tS REG;STEF'

0560
0561
0562
13563
0564
0565
0566
"'567
056S
1d569
1tJ570
"'571
0572
1d573
0574
0575
0576
1tJ577
k)57S
"'579
It;) 58 It;)
0581

0582
0583*
056 4
0585
0f)86
0587
0588
1d589
0590
0591
"'592
0593
05 9 4
0595
0596
0597
11596*
"599*
0600.
0601.
0602*
k)60 3
0604
0605
0606
0607
1360 8
0609
",610
0611
0612
0613
fd614

771JiI
77131
77132
77133
771J4
77135
77136
77137
77140
77141
77142
77143
77144
77144
77145
77146
77147
77150
77151
77152
77153
77153
77154
77155
77156
77157
77160
77161
77162
77163
77164
77164
77165
77166
77167
7717",
77171

005665
1640lcH
013223
063234
002002
027144
063213
102 312
1627137
102612
10J71C!
fd27153
063 2 13
0fd1 7 22
033232
111'2311
027147
102611
103711
~67212

127124
0fd0000
063222

EL.8,tLf,ER8
LOB 1,1
AND TP377
L.OA TKl.P
SZA
JMP TKCOL
L.OA TKO
SFS 1SC
JMP •• 1
OTA 1St
STC 1SC,C
JMP TKCRN
TKC;OL EQU •
LOA TK6
Al.F,RAL.
lOR TKOTK
SFS CH2
JMp •• 1
OTA CH2
S1C CH2,C
TKCRN EQU •
LUS TK5
JMP TKCO,l
TKWO

k)1d5~10

0020[64
017124
063215
073211
063216
100103
01712~

037211
02:7164
127155

TKW8

NOP
L.DA TP60
RBl.,SL8
INA
JS6 TK(;O
L.OA TM5
STA TK ..
[QU.
L.OA TPc
RRL 3
JS8 TKCO
ISZ TK4
JMP TKWB
JMP TKWOd

DISPl.AY MEMORY l.OCATION
MASK DOWN to SIZE
CHECK FOR LP SEL., CODE
Rfo ADYl
YES,
NU. GET CHR,
WAIT FOH lELEKLUOGE,
ANI) WAIT SOME MORE
OUTPUT THE ~HARACT~R.
STARl THE MONST~R.
GET OUTPUT CHR.
CHARACTER
COMPOSE TKC COMMAND
~AST COMMa ACCEP1EDl
NOT Yt.T, WAIT,
GIVE TKO TO OTHER MACHINE,
INTERRUpT OTHER MACHINE.
POSIT~ON

ROUTINE TO OUTPUT AN ENTIRE WORD
LOAD CODE FOR ZERO
TEST SIGN-SIT
ONE If SET.
FIVE MORE DIGITS,
BITS FOR ASCII
NEXT OCTAL UIGIT TO A
OUT GOES THE MEAN OL' CHARALTER
CHECK fUR cOMPL.ETION OF WORu.
ANOTHER 1"'0,000,0~0 NS SHOT
RETURN

TO SET UP OMA FOR TRANSFER UP OF 211 .. PROGRAM
THE 2116 PROGRAM MUST B~ RUN FIRST
77172
77173
77174
77175
77176
77177
77200
77201
7721/)2
77203
77204
77205

10 67 03
063225
102603
06323~

102703
102611'3
063226
102607
103711
103707
102000
027204

CI.C
l.OA
OTA
l.DA
STC
OrA
L.IlA
orA
STC
srC
Hl.r
JMP

OMA"'''
T6T15
OMA.4
T6160

OMA!W"
OMA.4
T812C
OMA
CH2,C
OMA,C

.·1

SET UP FOR AODRESS
INPUT STARTI~G AT ZERO
ADDRE.SS OUT
l.OAD WORO COUNT ALLowED
8ET UP TO l.OAI) WORO COUNT
OUTPUT WORD COUNT
L.OAO OMA CONTROL ~ORD
OUT TO OHA
START CHANNEL
START OMA

PAGE 0356 .32

TEL.EKL.4JOGE CORE O\.lt4P IWUTINi.

0615.
0616.,.
0617 77206 "00000 TKl
BSS
fd618 77207 000000 TK2
ass
k16U~
772hl 000000 JK3
Sss
fd620 77211 000000 TK4
BSS
0621 77212 000000 TK5
~ss
0622 77213 00000~ TK6
BSS
0623 77214 177770 TM8
OEc
0624 77215 17 7773 TM5
O£C
0625 77216 000006 TP6
DEC
0626 77217 000012 TP12 OCT
0627 77220 0id0~15 TP15 UCT
0628 77221 000040 TP40 OCT
0629 77222 000060 TP6kJ oCT
0630 77223 000377 TP377 OCT
0 6 31 77224 002100 TP21 H otT
0632 77225 100000 T~T15 OCT
0633 77226 120011 Tt;12C ASS
",634 77227 130000 TtH30 OCT
0635 7723" 16"0100 Tfj1 60 OCT
0636 77231 1601022 LPSTK OCT
0637 77232 160031 TKOTK oCT
fd638 77233 ~kHJ037 B37TK OCT
0639.
0640 77234 000000 TKL,.P OCT
",641 77235 0""116010 TKTBP BSS
0642 77236 077237 TKT8L. ofF
0643.
0644 77237 152650
ASS
0645 77241t'1 025274
DEF
06.6.
LOAOt:.R ENTRY POINTS
16647*

1
1
1

1
1
1
.,6

"'0
6
12
15
40
60

377
2100
100000
12000fdfj+CH2
130000
160000
160022
1600J1
37
0

1
*+1

.L. 16US"" 1141 76
LIBU8+1k1276

0648.,.
~649

0650
[6651
0652
0653
0654
0655
0656
0657
16658
0659
"'660
066 1
0662
10663

0664
[6665
0666
0667
10668
1!J669

77241
77242
77243
77244
77245
77246
77247
77250
7.]2 5 1
17252
77253
77254
77255
77256
77257
77260
77261
77262
77263
77264
77265

1.126 000
026156
1626175
~26217

026236
026260
~26321

026612
°2 6 557
026526
02657~

026532
1t'126576
026540
026604
026551
026615
026561
026625
1~51143

026662

OCT
OCT
oCT
OCT
OCT
OCT
OCT
OCT
(JCT
OCT
oCT
OCT
OCT
OCT
UCT
OCT

OCT

26~00

MDlSt

26150
26175
26217
26236
26260
26321
26512
26557
26526
26572
26532
2 6576
26540
26604
26551

T6SCH

MDINT
~ECON

SEEK
DCOUT
CCOUl

WAITD
MSTAl

26bl~

OCT 265 6 1
OCT 26625
OCr 151143
oCr 26662

O""AGO
"ABsEt (26635)
TATUS

PACiE tl~e1

801e
0671
0672
0673
kJ674
0675
0676
0677
0618.
0679
0680
1681*
0682

068~

*32

TE.L.tKt.\lDGE COR-E .DIJMP R{)UTIN£..

15lf/J16
026731
0272150
02731 7
150416
027374
150347
027443

OCl HHld76
OCT 26731
OCT 27250
OCT 27317
OCT 150416
OCT 27374
OCT 151clJ47
OCT 27443

77276 150000
77277 031060

ASS ·OIREe
OEf CLOOf(

77300 031251
773 01 06 001 2
77 3 02 060052

OfF lOlS(;
OfF L.DRUM
OfF OINT

77266
77267
17270
77271
77272
77273
77274
77275

0684
0010.
0686 77303 117640
11'687 77304 060150
"688.

0689
0690·
0691
0692
0693.
0694
0695

ASS .. OAoOR
OfF DRAIL

77305 060417

OfF

77306 117130
77307 060661

ASS .PowFf
OfF POwsw

77310 060115
77311 060735

OEF 1TT35
oEF 1TT2

77312 116652
77313 062266

AktS .TTY0111
OEF TT'132

77314 062266
77315 0624U

OfF JETPT
OEF SAL.VG

77316 115263
77317 062522

ABS .. SAL.CP
OfF SAL.Ee

77320
77321
77322
77323
77324
77325
77J26
77327
77330
77331
77332
77333
77334
77335
77J36
77337
77340
77 34 1
77342

OEF
DE.F
CE.F
OEF
OEF
OEF
OfF
OfF
OfF
DfF
OfF
OEF
DEF
OfF
Of.F
OEF
OfF
OEF
oEF

PO~

06~6.

0697
0698
0699.
0700
0701
1782.
0703
0704
0185.
0706
0707
07e8
0709
0710
0711
111712
0713
0714
0715
11)716
0717
0718
0719
0720
0721
11:\722
"'7 23
0724

06~61J

062662
062725
063307
063334
070014
070016
070011
070020
070026
070043
07l",7!)
071113
071202
071~2i

0711577
071612
07 1656
071700

SICK
DEAD
MOEAO
S1 4 sH
R14CM
OUTMl
tTEMP
SMAIN
FMAIN
CL.KIN
cLCl
TYPE
seOM
SWAPR
SCHAR
DEQUE
*OUTC
SCHOQ
HTEST

O"EOY
.UHfA (27J62)
DRESS

PAGE:. ~J58 *32

",725*
0 7 26
0727
0721·
ld729
0730
0731
0732
0733
0734
07J15.
0736
0737
0738*
073g
0740
0741
0742
0743
0744
0745
1d746
10747
10748
0749
075111
10751
10752
0753
",754
0755
0756*
0757
1d758

TELEKLUOG~

77343 10 5744
77344 072237
77345
77346
71347
77350
77351
77352

~72274

072403
072612
072727
073053
073353

'OREO~MPHOUTl~E.

ASS ""COM6
DEf FADT

OIF RSfS
DEF RADT

OEF TBD·AD
OEF T811.H
OEF HOBUF
OEF LCD

77353 104216
77354 073775

ASS .rSOTl
Dff FILaF+IJ2

77355
77356
77357
77360
77361
77362
77363
77364
77365
77366
77367
77370
77371
77372
77373
77374
77375

074001
074002
074003
074025
074047
07'107
074132
074137
074156
(()74164
074231
074 2 4 3
074257
074JUS
07437.,
07443!5
1374563

Off STAYl
Oi;f STAY2
DEF STAV3
DEF T35C(il
OEF ROPRG
O~f ROliH
OEF LOUT
DEF LTYPR
OEF LTYPE
OEF I.CHAH
oEF DRUML
OEF MOYES
OEF MQyEw
DEf GElID
Off Glll.
OEF StHLQ

77376 103167
77377 1/;74655

ASS ",T358,.
OEF CRl.f

77400 074656
77401 074710

uEF ABCHK
OEF SEMIC

77402 1030t1J0
77403 07600~

ABS "'LIBRA
OEF L..UHU"'l~0~6

7740 4 0"'liHh,0

OCT 0

OfF INSEQ

e7tH~.

0760
0761
0762.
0763
0764
0765*
0 7 66
0161.
0166.
0769.

0002
0003
1c1004
0005
0006
"007

0008
0009
IIHrH0

0011
0012*
0013
0014
0riH5
0016
0017
0018
~rU9

0020
~021

0022
0023

0°24

ORG 74000S

74000

74000 177 645

M1ll. O(.;;T 1t133

74001 000000
74002 00000~
74 003 000000

STAV1
STAV2
STAV3
1A8P2
OL.OKP
OHtWP
FAOTP
RKCYP

740004 074655

74005 031060
74006 031223
74007 072237
74010 000115

74011 072403
74012 072274
7 4 013 072612
74014 06?'~66
74~H5

062613

74016 136241;'
74017 062664:
74020 06272!)
74021 073053
74022 073156
74023 071656
74024 073013

~Ar;TP

RSF-SP
Tt;OAP
JETPP
SICKP
SAL~P

D&'ADP
MDEDP
HoaFA
UH06A
SCHOU
ML.FLA

ass 1
ess 1

BSS 1
OfF CRI.F
Off OI.OOK
OfF DIRWD
OfF FADT
OfF OA01.C

OEF
OfF
uEF
OfF
OEF
Of.F
OEF
OfF
OEF
OfF
OfF
OEF

RAOT
RsFs
TBOAO
JETPT
SICK
SAL.VG
DEAD
MDEAO
HOBUF
UHOSF
SCHOij

USED SY
STATUS I'!HILt:
SUSPENDt:::D
LINK TO DlRfCTORY SEARCH ROUTINt

CYCLIC POINTER TO CURRENT
DISK AOT TRACK ADDREss

MLKFL

0lit25.
0026* T35CQ IS USED BY LIBRARY PROGRAMS TO SCAN THE TTY35 INPUT BUFFER,
"027* EACH TIME IT IS CALLED, IT FETCHES THE NEXT CHARACTER, BUT SKIPS

BLANKS, THE CHARACTER IS LEFT IN T3~LC, AND IN A, WHEN A RETURN IS
ENCOUNTERED,
T35CQ RETURNS TO P+1J 0TH~RwIsf. TO P+2. IT Is INlTX.
0029*
0030* ALIZED BY THE MONITOR BEFORE THE LISRARY ROUTINE IS CALLED,
ilJflJl*
ENTRY POltH ~
0032 74025 000000 TJ5CQ NOP
"033 .,04026 060055
LOA T35LC
GET LAST CHARACTER,
CPA ,+158
If CR,
0034 74027 050367
JMP T35CQ,I
RETURN IMMiOlATELy.
0035 74030 126025
0036 74031
T35C0 EQU *
GET CHARA~TlR POINTER IN 8+
LOB T35CP
0037 74031 064~54
CL.E,ERS
ADJUST.
0038 74032 004065
FETCH
LOA 1,1
0039 74033 160001
0040 74034 002"'41
sEZ,RSS
CHAR.
0041 74035 001727
AI.F,AI.F
AND a177
0042 74036 010441
0043 74 037 070°55
STA TJ5LC
SAVE IT.
BUMP POINiER,
ISl TJ5CP
0044 74040 034054
CPA ,+15B
0045 74041 050367
IF CR.
0046 74042 126025
JMP T35CQ,1
R~lURN IMMEDIATELY.
IF 6I.ANK,
CPA .+4IdB
"047 74043 050412
T35Cl EQU •
0048 74044
004 9
74044 026031
JMP TJSC0
ISl T35CQ
OTHERWISE
006" 7404e 036025
JMP T35CQ,1
0051 74046 126025
RETURN NORMAl.,
002~.

""52.
005J*

RDPRG READS THE CURRENT USER INTO CORE,

"154.
0055 74047
0056 74050

00000~
~64273

RDPRG NOP
LOB ML.INK+l

PA~E 0J6~

0~57

#JJ

l18RA~Y

740151
74052
7405J
74054
74v.H55
74056
74057
740610

044340
16"'001
070056
003000
041221
070072
044351
160001

0065

74061

006~00

"'066

74062 174634
74063 066222
74064 016231
74065 102607.1
74066 160640
74067 170634
74070 126047

0058
0059
0060
0061

0062
0063
0064

0067
0Vl68
0069
0070
0071
0~72

"013.

0074
0015

0076
0077
01078

74071
74071 064273
74072 044335
74073 116014

74074 1261075
74075 070362

SUBROU1INES
ADB
LOA
STA
CMA
ADA
STA

ADB
LOA
Cl8
STB
LDe
J8B
JMP
LOA
STA
JMP
ROPRJ EfilU
LOB
ADa
JSB
JMP
OEF

,+1PROG.1l1NK
(,I
GET PRO~RAM BUUND
PBPTR
COMPUTE LEH~!H,
USE
WORD
,+?DISC.?PHOG
B,1
GET UHUM ADDRESS
BLOCK
DCLC1,1
SCHEDULER,
USEl
PERFORM
DRUML
TRANSF£R
ROPRJ
DCLC2,1
UNBLOCK SCH~OULER~
DCLC1,1
RDPRG,I
RETURN
...
MLINK+l
,_lLINK
JETPP'l
.+1,1
SCH1

GO JETTISON PORT

0079
0080.
0081* DATE COMPUTES A WORD CONTAINING THE YEAR IN ITS 7 HlGH ORDER BITS

0082* AND THE DAY IN ITS 9 LOW ORDER

""83.
0084
00815

74076 000000
74077 060201

0086

74100 006400

0087

74UJ1
74102
74103
74104
74105
74106

0088
0089
00 9 0
0091

100400

DATE

NOP
LOA OAT 1M
CLB
DIV .+24

~ITS,

GET HOUR OF YEAR,
DIVIDE BY 24 TO
GET THE DAY,

00040~

hHlJ047
06 4200
10Hl47
126076

L8L
LOB
LSR
JMP

7
YEAR

POSITION ON LEFT,
POSITION T~f YEAR

7

DATE,l

0892.
0093* RDIOT READS A BLOCK OF THE IDT INTO COk~.
0094* IT THEN SEARCHES THE IDT FOR THE 10 Of THE CURRENT USER AND
0095* RETURNS WITH B ~OlNrlNG TO IT,
8096*
0097 74 h,7 000000 RDIot NOP
0098 741H) 060273
LOA MLIN K+1
GET USER 10
0099 74111 040341
AOA ,+110.lLINK
0100 74112 160001d
LOA 0,1
0101
74113 070052
STA 10
SAVE IN 10
0102 7 4 114 01 6 3 7 0
Jsa GTIL
FINO ~HICH 10 TRACK
LDA IDLNP,1
GET LENGTH OF CHOSEN TRACK
0103 74115 160076
SlA WORD
SET DRUM ORIVER WORD ~OUNT
0104 741H> 070072
0105 74117' 160075
LOA IDLCP,l
~ET DRUM ADDREss
",UJ6 74120 064566
LOB LIBOI
JSB DRUML
0h,7 74121 016231
JSB DEAOP,I
BAD NEWS
0108 74122 116017
0U'90110 74123 064562
SEARCt1 lOT,
LDB LISO

PAGE 0361 *33
ill1
i112
0113
0114
0115
0116
0117.
0118
0119
1£1120
0121

0122

r1123.
0124
k'125
0126
0127

0128
0129
fcU30
fttl31
0132
(U33
0134
0135
0136
0137
16136

0139
0140
0141
0142
"'143
0144
0145
0146
0147.
"'148
0149
10150
0151
0152
IU53
0154

0155
IiUS6
IrU57
0158
0159
016 0
01 6 1
0162
0163
0164
0165

LISRAkY SUBROUTINES
LOA 10

GET THIS UltRS ID SACK
RETURN IF NOT ~OGGEO UN
SEARCH fOR ENTRY,
RETURN

141a4
74125
74126
74127
74130
741~H

060i52
002002
15i001
126UJ7
044362
026126

74132
74133
74134
7413t5
74136

000000
064213
"44335
114576
126132

LOUT

74137
74140
74141
74142
74143
74144
74145
74146
74147
74150
74151
74152
74153
74154
74155
74156
74157
74160
74161
74162
74163
74076
74107

000000

LTYPR NOP
OUTPUT ~A CHARS TO UStR'S TTY;
STA LTYPI B POINTS TO 8UFFEk,
eTa LT.YP2
LTyP3 LOA LTyP2,I
GET FIRST
CHARACTER Of WORD
AI..F,AL.F
JSB LOUT
OUT,
ISZ LTYPI
ANY MORE?
RSS
yErS
JMP LTYPR,l
NO,
LOA LTVP2,I
SEND 2ND
JSB L.OUT
CHAR,
BUMP
POINTER,
ISZ LTYP2
ANY
MORE?
ISl LTYPl
JMP LTYPJ
YES
JMP L.TVPR,l
LTyPE NOP
SAME AS LTyPR BUT w11H CRLF,
JSS I..TYPR
LOA ,,,,,2
LOS ?A8P2
JSB L.TVPR
JMP LTVPE,l
LTy P l EQu DATE
LTYP2 Ewu RDIOT

74164
74166
74160
74167
7417k'
74171
74172
74173
74174
74175
74176
74177
74200
74201

"72~76

076107
162107
001727
016132
0;$6076
002001
126137
162107
rH6132
036107
036076
026i42
126137
000000
016137
06035£1
0660041
016137
126156

000000
000~65

050367
126164
064273
04433t160001
030222
114500
102311
02617~

102 511
070265
0 5 0 4 12

74202 02 6 1 7 0
7420J 050367

74204 12e164
74205 040766

SZA

CPA
JMP
ADS
JMP

ROIDT,l

NQP
LOB
AOS
Jsa
JMP

OUTPUT CHAR, IN A TO USERS TELETYPE,
MLINK+l
,.?L-INK
OUTCH,l
LOUT,l

LCHAR NOP
LOA
CPA
JMp
LCHRI LOB
AOB
LOA
lOR
JS8
SFS
JMP
L1A
STA
CPA
LCH R2 JMP
CPA
JMP
AUA

1,1
,+8
",.3

GET NEXT INPUT CHAR,.~SKIP RETURN
GET CARRIAGE RETURN fLA~
,+ltiB
PREvIOus RETURN?
LCHAR,I
yEs
LCHCR

MLINK+l

,+?TNUMw?LINK
1,1
FETCH
GTe
CHARACTfR
S1 4 SC'1
FROM 21141
CH2
WAIT FOR
•• 1
RESPONSE
CH2
LCHCR
SET CARRIAGE RETURN fL.AG
,+408
BL.ANK?
LCHRl
YES, IGNORE IT
,+158
NO, CARRIAGE RETURN
L.CHAR,l
yES •• EXIT
M96

PAGE 0362 #33
0166
0167
0168
0169
0170
0171
0172
13173
0174
0175
0176
13177
017ij
d179
0180
0181
0182
10183

0184
0185*
0186
0187
018ij
0189
0190
0191
0192
0193
01 9 4
0195
0196.
0197
0196
1t}199

02 00
0201
0202
0203

/

0204
1fl205
0206
0207
02"8
0209*
0210
0211
0212
0213
0214
0215
0216
(0217
0218_
0219*
0220.

74206
74207
74210
74211
74212
74213
74214
74215
74216
74217
7422£1
74221
74222
74223
74224
74225
74226
74227

~lBRARY

002021
k140317
040730
036164
126164
000000
114522
1031k10
",62213
070276
~60277

070301
"'60355

070277

126225
071651
060364
016132
74230 124514

74231
74232
74233
74234
74235
74236
742J7
7424\1.)
74241
74242
74243
74244
74245
74246
74247
74250
''''2~1

00000~

114770
006401fl
060261
002020
026234
002003

036231
k'7426t

1262Jl
01fl0000
00602~

126243
1600e0
170051
003400
040051

7 4 252 0701!i51
742~3

003400

74254 04005~
74255 "'70050
74256 026244

74257
74260
74261
74262
74263
74264
74266
74266

000000
006025
126257
100050
170051

034050
0340&1
026200

SU8ROUTINES
SSA,RSS
ADA MJ2
ADA ,140
18Z LCHAR
JMp L.CHAR,I

T35BP NOP
J8B TTYJ5d
Ct.F "

L.OA T35SP
STA T36RS
L.OA TJ5ST
STA TJ5PR
LOA XOUTW
8TA TJ68T
Jfo1P SUSPP, I

CASE?
yES, l;ONVERT
NO

L.O~ER

NO·.t,xIT
TO (p+2)

OUTPUT TO TTJ~ AND
rIRST OUTPUT.

~AIT,

MOVE RETURN ADDRESS
INTO TABL.E.
MOVE STATUS INTO PRIORITY
SET STATUS 10 OUTWAIT.
(;0 HANG

SUspp OfF SUSP
lLEND LOA .+128
JS8 LOUT

JMP

S~HEN,l

DRUML. NOP

JSB DRUM,l
Cl,,8
LOA ENORM
BSA
JMP •• 2
SZA,RSS
15Z DRUML.
STB E.NDRM
JMP DHUM!..,1
MOVES NOP
S8B,lNB,RSS
JMP MOyES,l
LDA MOVES,1
STA MOvED,I

eCA
ADA MOVED
STA MOVED
eCA
AOA MOvES
STA MOVES
JMP MovfS+l

MOVEW NOP
SSB,lN~,RSS

JMP
LOA
BfA
18Z

MOVEw,l
,.IOVES, I
MOVED,l
MOYES
ISZ MOVED

JMP

MOVE~+1

GET BUSY FLAG
DONE1

YES, TRANSFER SUCCESSFUL.?

yES, SKIP RETURN

CL.EAR BUSY FL.AG REGAkOLlSS
MOVE BACKWARD ~B
MOVES TO MOVED.

UPDATE

~OROS

FROM

POINTE~S,

MOVES -B WOqOS FROM MOVES,I TO
MOVEO,1
GET A

~ORD

StORE

IT,

BUMP
POINTERS,

NO.

LEND OUTPUTS A LINt FEED ON THE SYSTEM TEL.ETYPE
ANO THEN TERMINATES THE PRO_RAM,

PAGE
0221
~222

0223
0224
0225
ft)226

~J6J

74267
74270
74271
74272
74273
14274

-33

LIBRARY aUbROUTINtS

060662
064666
114522
002400
070314
124514

L.END

LOS OEH
JSB TTY3f),1
LE.NOR CL.A

0232

0233
0234
0235

0236
0237
0238
0239
0240

OUTPUT THE
~lNE FEED,

STA TJ5F2

JMP S(;HEN,I

12,27.
0228*
0229*
0230
0231

LDA ONEI

LFRER PRINTS AN ILLEGAL FORMAT MESSAGE UN THE SYSTEM
TEL.ETYPE ANO THEN TERMINATES THE PRUGRAM,
74275 060~71 LfRER L.DA ,+15
74276 066300
LOB LfHOF
74277 026271
JMP LENO"'2
7431?J0 074301 LfRDF OEF *+1
74301 005111
O(;T 5111
ASC
7,LLEGAL FORMAT
74302 046114
74303 042507
74304 040514
74305 020106
74306 047522
74307 046~01
74310 052040
DOERR EQU •
74311
74311 060407
L.OA ,+29
L.OB .... 2
74312 06631'
74313 026271
JMP LENO"'2
74314 073034
DEf DOERL.

"2".
0242* GElID
0243.

0244.
0245*

0246*
0247*

eaAI.
0249
0250
0251
0252
0253
0254
0255
0256
0257
0258

0259
0260

0261
0262
0263
10264

0265
0266
0267
0268
16269

SCANS THE INPUT HUFfER FOR AN 10 NUMBER, If NOT FOUND, IT
OUTPUTS A MESSAGE AND TERMINATES,
IF FOUND, THE RESULT IS pLACED IN 10, -RESULT
IN MID, IF THE FOLLOWING CHARACTER IS A CR, GETIO SKIPS O~ THt
WAY BACK. IN ANY CASE, THE NEXT CHARACTER IS IN A.
GETIO USES L.TEMP"'12,13,14,15.

002144
00045
00046
00047
74315
74316
74317
74320
74321
74322
74323
74324
74325
74326
74327
74330
74331
74332
74333
74334
74335

000000
060273
066434
0~030"
064~72

074.,44
114044
026420
04~000

002021
kl26425
040404
002024
026425
100032
07004fi
060347

GETCH
GETlt
GETIa
GET13
GETIO

EQU L.lfMP"'12
EQu LTEMP"'1J
EQU LTEMP"'14
EQU LTEMP.15
NOP

LOA MLINK ... 1
LOB oLCHR

CPA TJ51..N
LOB TJ5CH
STa GETCH
JSB GETCH,l
Jto1P GTFER
ADA M133.

DETERMINE WHICH SCANNER TO USE

USE ~CHAR IF USER TELETYPE,
TJ5CH IF SYSTEM,

SCAN INPUT SUfFER FOR FIRST
CHAHACTER.
Tt:Sl fOR LETTER

SSA,RSS

JMP GTFER
ADA ,.32B

SSA,lNA
JMP GTFER
ASL. HI

STA GETIl
LOA ,-3

SAVE fOR LATER.
8ET DIGIT

----PAGE
0270
~271

0272
0273
0274
0275
0276
1d277
0278
02 7 9
0280
0281
0282
0283
028.
0285
0286
0287
0288
0289
0290
0291

1d292
0293
0294
fIl29~

0296*
fIl297*
029th

0299.

~364

*33

74336
74337
7434ki
74341
74 3 4 2
74343
74344
74345
74346
74347
74350
74351
74352
74353
74354
74355
74356
74357
74360
74361
7.362
7.363
74364
74365
7 4 366
74367

LIBRAHY SUBROUTINES

070046
00640~

074047
114044
02 0425
040316
002021
026425
".0364
064047
""'5222
044047
005200
044000
raJ4046
026340
044045
074052
007004
074053
016370
114044
ki36315
126311S

"0~000

74372 074075
7~373 006004
74374 160001
74375 002003
74376 02 6411
74377 006004
74400 160001
74401 002003
74402 026411
7 • .-,,3 044350
74404 160001
74.05 0ij3004
74406 040052
7.407 002021
74410 026416
74411
14411 0640715
74412 056423
74413 026'-16
74414 044347
74415 026372

0314
0315
0316
0317
03 1 8

0319

0320
1d321
0322
16323

fIlJ24

HtsL

ADa "
lSZ GET12
JMP GETl4
ADB GETIl
STS 10
CMe,INB
STe MID
JSB GTIL
JSB GETCH,1
ISZ GElID
JMP GETIO,l

AUO IN NEw UIGIT,
H.ST FOR DC~E,
MERGE IN L.ETTER,

f-INU 10 TRACK
GET NEXT CHARACTER,
SKIP RETURN IF CR.

ROUTIN~

GTIl

~660424

0304
03 0 5
0306
0307
03 0 8
0309

0313

FAIL.,
GET PARTIAL V~lUE.
MULTIPLY BY 10,

FINDS WHICH ID THACK THE
IU COOE IS ON,
fNTfR WITH THE ID CODE IN 10

7~372

0311

GElCH,l

SSA
JMP GTFEH
LOB GETl3
ReL,ReL
ADS GETI3

02642~

0303

0312

FAll,

(;fT13

SP~CIFIEO

0388*
03161 104370
k)31d2 74371

0310

SSA,HSS
JMP (lTFER

GfTl2

ADA ,"10

00202"

THE GTIL

GTfOER
ADA M728

COUNTER,
SET NUM8E~
TO 0,
GET NEXT CHAR,
FAIL,
TEST FOR DIGIT

srA
CLB
GET14 STa
JiB
JMP

GTSA

GTSB

NOP
LOB IOECL
EQU *
ST6 IOLCP
INS
LOA B,I
slA,kSS
JMP GT8S
INS
LOA 6,1
5lA,RSS
JMP GTSB
A08 ,-2
LOA B,I
CMA,INA
AUA 10
SSA,RSS
JMP GTSC
EQU *
Loe lULCP
CPB IOECM
JMP GTSC
AOB ... 3
JMP (HSA

a:>

LAST ENTRY

SAVE IN TtMP
•• DRUM ADDRESS
NO ENTRIES ON TRACK
THACK LE~GTH
GET THE L~NGTH
SKIp THIS ONE IF
THE TRACK IS ZERO lEN'TH

a:>

A • fIRST In ON THIS lRACK
)t

OR < 'I

FOUND THE TRACt(
CHECK FOR DONE
DONE, MUST Sf ON FIRST TRACK
MovE TO PHEvlOUS ENTRY

PAGE 0365 #33
16325
0326
16327
16328
16329
163316
16331
16332
0333.
16334
16335
~3J6

0337

1t3338

74416
74416
7 4 417
74420
74421
74422
74423
74424

LIBRAHY SUBROUTINES
GTSC

016016"'4
167 40 75
00616~4

1674076
126370
8016100
000 UJ6

74425 0601644
74426 1650572
74427 02627~
7443~ 060J33
74431 066300
74432 1616156
74433 124514
74434 ,,74164

EQU.

INa

aTB IDLCP
INB
STa IOL.NP
JMP GTIL.,I

~ -> ORUM ADORESS
SET POINTER TO OHUM ADORESS
.> TRACK L.ENGTH
SfT POINTER TO LENGTH
RETURN

IOECM OfF IDEe;
IOECL. Off 10EC+6

GTFfR L.OA GETtH
CPA T3bCH
JMP L.FRER

IF SYSTEM TELETYPE, ~RINT
ERROR MESSAGl THtRE,

IL.fER LOA ,-15
LOB L.FROF

OTHERWISE PRINT IT ON
USER TEL.ETYPE.

VJ3J9
LleER JSB LTYPE
16J416
JMp SCHEN,l
TERMINATE,
16341
OL.CHR OEF LCHAR
10342. THIS ROUTINE IS CALL.ED BY THE COMPIL.ER WHEN IT WANTS TO EXECUTE
16343. A DRUM ROUTINE, THE DRUM ROUTINE IS ALWAYS EXECUTEu WITH A PRIORI1t3344· TY OF 0' AS ALL ORUM ROUTINES ARE, THE CALLING SEQUENcE 1S
0345.
JSB SCHL.B,I
16346.
DlF 
8347.


11348*

4RETURN-

8349*
1635~

k)351
16352
16353
16354
16355
0356
0357
16358
16359
"3616
16361
0362

0363

16364
16365
0366
0367
16368

11)369
0370
0371
16372
0373
16374
0375
03 76
16377

16378
16379

74435
74430
74437
7444t)
74441
74442
74443
74444
74445
74446
74447
7445t)
74451
74452
74453
74454
74455
74456
74457
74460
74461
74462
74463
74464
74465
74466
74467
7447"
74471
74472

000000
1t)J100
064273
044335
160001
010772
002002
126225
160001
030372
17016161
044370
002(00
070264
1700161
04(350
060356
1716001
044341
kl60056
170001
0t)3000
041221
0716072
044~51

1618001
010317
170001
t)0522t
016231

SCHLQ NOP
elF 0

l.OS
ADB
LDA
AND
SlA
JMP
l.OA
lOR

Ml.INK+l
._?LINK

SUSPEND
IF HE
TRIED TO
LLENO-1,I
ASORT
1,1
8ET UNABL.E
UNAST
TO ABo~r
BrA 1,1
~lr
AOB .+?PLEV
CLA
STA TIMEF
NO TIMING.
8lA 1,1
SET PRIOR1TY TO "
AOS ,+?STAT-?PL.EV SET STATUS TO SYNTAX
LOA lSYNT
SO SCHED~L.ER DO&SN'T KNO~
STA 1,1
WHAT WE'Rf. DUING,
Aoa ,+1PHOG~?aTAT
LDA PBPTR
8ET PbPTH IN TABLE,
arA 1,1
CMA
SET UP DRUM
ADA USE
PARAMETERS,
aTA WORD
ADS ,+?018C.?PRCG
L.DA 1,1
AND MJ2
FORCE BAC~ TO SWAP AREA ORIGIN
STA 1,1
LOS USE
OUTPUT USER TO
Jsa ORUML
DRUM
1,1

COM14
..

PAGE 0366 #J3
1cl380
~381

0382
0383
~384

0385
"386
0387
0386
16389
It) 3 9 It)

163 9 1

74473
74474
74475
74476
74477
74!50w}
74501
74502
74503
74504
74505
74506
7450 7

L.IBRARY SvaROUTINES

~26~71

162435

~3643b
~5026~

027000
07026~

160000
064750
074072
064504
1r116231
11 bltH 5
027000

JMP
L.OA
liZ
CPA
JMP
STA
LOA
Loa
ST8
LOB
JSB
JSB
JMP

ROPRJ
SCHLQ,I
SCHLQ
LIS
L.18RA
LIS

sL.Ew IT, GO DUMP US~R
GET ORUM AO~RESS,

M512
WORO
#L.IBl
DRUMl.
SICKP,l
LI8RA

SET UP ORUP1 TRANSFER

0,1

IF IN CORE, TRANSFER OIRECT.
SET LI8,

REAO NO

~aou,

GO EXPIRE

0392
0Ji3*
0394* PROGRAM ALWAYS RETUHNS HERE,
fiJi'.
0396 7451~ 1031~Htl aCHBL eLF
0397 74511 064273
LoB ML.tNK"'l
0396 74512 044351
ADS .... "STAT·1LINK
~J99
TRUE STATUS IS RUN
134001
18Z 1,1
74513
SET FL.AG Fak TIMING
0400 74514 034264
lIZ TIMEF
[{)401 74515 044350
Aoa .... 1CLOC.1STAT
[{)4~2
74516 134001
T1MEV OUT?
lSZ 1,1
0403 74517 026537
JMP aCHB1
NO
0404 74521t) 1c)44356
A08 .+?PlEV-1CLOC
1d405 74521 0bld356
SET PRIOfH TV to 4
LOA .... 4
16406 74522 17 000 1
STA B,I
ADe ,.1RSTk",,1PLEV
1IJ407 74!)23 044347
0406 74524 0624Jti
LOA SCtiL.c.l
0409 74525 170001
sET klSTART AVOkEss
STA B,I
04116 74526 0fc12400
CL.A
0411 74527 170634
STA DeLe1,!
BL.OCK CLOCK
10412 745316 1021016
5TF 0
0413 74531 064273
REMOVE
LOB ML.INK"'l
USER FROM
LVA 8,1
04 1 4 74!532 160001
0415 74533 070273
STA MLINK.l
QUEUE
10416 74534 1016563
JSB IN8Ec.l
IN'ERT AGAIN AT END
JMP *.1,1
RETURN TO St~fDULfR
04 1 7 745 3 5 126536
0416 74536 ~70362
DEF 5tHl
8CH~1 EQU *
10419 74537
0420 74537 10210v:'
STF
JMP SCHLQ,I
RETURN TO LANGUAGE PROCESSOR
0421 74340 126435
1IJ422 74541 074542 Ht.L.K OEF *.1
16423 74542 005111
OCT 5111
0424 74343 046114
ASC 7,L.LEGAL. ACCESS
74544 1d42507
74545 1d40514
74546 0201~1
74547 041503
745516 042523
74551 051440
1t)425 74552 074553 Ht.LH OEF *·1
OCT 5116
16426 7455J 1605116
0427 74554 0474416
ASC 6,0 TIME L.EFT
74555 1!.152111

"

"

PAGE IOJ67 *JJ

10428
042V* .
~4J0*

kl4Jl*

04~2*

0433.
0434
10435
"'436
0437
043 8
0439
0440
04.'1
10442
16443
16444
",445
0446
0447
0448
0449
0450
16451
0452
0453
16454
0455
0456
11)457
0458.
f645g·
10460.
0461
0462
0463
0464

0465
0466
16 467
0468
0469
16470
0471
0472
16473
16474
16475
0476
1IJ477
10478

74556
74557
74560
74561
74562

1.1aRA~·Y. SU8ROUTINf:.~

046505
02~114

042506
052040
000000

STABF aSS 1

USED BY STATUS

THIS SUBROUTINE INSERTS A USER INTO THE QUEUE IN ORDER Of HIS
PRIORITY. WHEN ~E ARRIVE HERE, THE 6 REGISTfR POINTS 10 THE ~lNK
WORD FOR THE USER.
74563
74564
74565
74566
74567
74570
74571
74572
74573
74574
,/4575
74576
74577
74600
746161
74602
746163

000000
074061
006004
160001
1603000
070066

7461c!6
74607
74610
74611
74655

06-4340
174000
126563
0000160
006412

064~72

074064
164001
060001
1602004
160000
040066
002020
026572
1741661

060061
74604 1716064
746165 040347

INSEQ NOP
STB
INS
LOA
eMA
STA
1.06
SCH2 ST8
LOB
LOA
INA
LOA
ADA
S5A
JMP
aTB
LOA
srA
ADA
LOt;
STB.
JMP
T35BF 855
CRLf OCT

seHI.
1,1
SCHPR
MLINK
SCHP
1,1
1
~,l

SCHPH

SAV~ LINK ADOREss IN SCH~
S->USER5 PRIORITY
A-PRIORITY
. STOR~ .1·PRIORITY
IN SCHpR.
8->PHONY USER.
SAVE IN SeHP.
B POINTS TO NEXT USER,
GET PRIORITY Of
THAT UsER IN
A.
COMPARE ~lrH PRIORITy
OF USER SflNG I~SERTlO.
IF >. GO TO ~lNK TO N~XT EN1RY,
SET NE~ ENThY TO POINT TO HIM,

seH2
SeHL,I
SCHI.
SCHP,l
SET PREVIOuS ENTRY .~ N~W ENTRY,
,+?CI.Ot.?LINK SET NEw uSERS CLOCK TO ~10,
•• 1f~
O,1
INStlll,l
30
BUFfER FOR INPUT AND REPLIES,
6412
MUST FOLLO~ TJ5BF

TEST FOR ABORT ATTEMPT WHEN THEY WEREN'T ALLOWED. If
THE SCHEDULER KNOW TO ABORT HIM
74656 0~000" AijCHK NOP
CLEAR
74657 064273
LOB MI.INK+l
Aoe ._1LINK
7466V3 044336
74661 060J72
LOA UNABT
UNABLE TO
74662 00300'"
eMA
74663 103100
eLF 0
Af~ORT
AND 1,1
74664 110001
FLAG
STA 1,1
74665 17"'001
74666
74667
74670
74671
74672
74673
74674

hHH00
010442
0"'2003
126656
103100
0J044~

003000

74675 110VJ01

74676 03!d772
74677 17Q1001

srF 0

AND ASTRY
SZA,RSS
JMP ABeHK,I
eLF 0
lOR CHNFG
CMA
AND 1,1
lOR COM14
STA 1,1

ABORT
NO
YES

ATT~MPTED?

CLEAR AbURT
TRY FLAG
SET eOM14 BIT
TO SIGNAL SCHEDULER

5~,

LET

PAGE
~479

0480
0481
~482

10483
0484
0485
0486
0487.
0488*
10489*

0490*
0491*
0492.
10493

0494
0495
0496
10497

0498
0499
0500
0f)01
05(1)2
05(1)3
0504
0505
0506
0507
10508

0509
051 0
10511

0512
0513
0514
0515
05 1 6
0517
0518
0519
0 5 2(1)
0521
0522
0523
05 24
0525
10526
0527
0528
0529
(1)530
0531
0532
0533

~J68

74700
74701
74102
74703
74704
74705
74706
74707

#33

LIBRARY SUBROUTINES

002400
170634
(1)44366
003400
170001
10210k1
126707
070362

CLA
SlA DCLC1,l

BLOCK
CLPCK

A08 ,+?STAT

LeA

STA 1,1
STF fa
JMP *.1,1
uEF SCHI

sfT STATUS
TO ABORTING
RETURN THHU
SCHEDULER

CHECK IF THE PROGRAM WHICH HAS JUST BEEN LOAUED FROM THE USEH
LIBRARY IS SEM1.COMPILEU, AND SET THE NECESSARY CUMPILER
VARIABLES. LISSC, LIBSP, ANU LISPS ARE PASSED TO THIS ROUTINE
fROM THE LIBRARY ROUTINE WHICH CALLS IT (CHAIN, G~T, OR HELLO)
74710
14711
747 12
74113
74714
74715
74716
74717
7 4 720
74721
74722
74723
74724
74725
74726
74721
74730
747~H

74732
74733
74734
74735
74736
7 4 737
74740
74741
74742
74743
74744
74745
74746
7 4 747
74750
74751
74152
74153
14754
74755
74756
74757
7476""

000000
1031KJ0
0'6 [cH! 4 0
""(1)2020
026127
002400
071575
060045
07 00 56
064273
044335
060354
003000
110001
026761
060045
04034J
070056
07H504
164000
075575
002004
164000
0756 0 6
064452
07560~
0643~6
~752J0

002004
164000
175605
03 56 0 5
035230
026744
0142004
1640100
075607
1d64273
044335
160001
030354

SlMIC NOP
eLF
LOA
SSA
JMP
CLA
STA
LOA

0
LISSC

SEMIl

SYMTB
LIeps
srA PSPTR
LDB MLINK+1
ADS ,-1LINK
LOA CFLAG
CMA
AND 1,1
SEM13

JMP
SEMIl LOA
AOA
STA
srA
LOB
ST~

LIBpS
•• 1
PBPTR
FILTB
0,1
SYMTB

INA
LOS 0,1
STS FlL.CT
Loa DFILT
STe FILPT
LDS ,,,4
SlB SPTR
SEMI2 INA
LOB 0,1
STe FILPT,I
tSZ FILPT
ISZ SPTR
JMP SEMI2
INA

LoB 0,1
STa IJSESN
Loa MLINK+l
Aue ._1LINK
LOA 1,1
lOR CfLAG

SEMI .. COMPILED?
'fES
NO .. ~CLEAR OUT .. OF ..
STURAGE FLAil
SET LENGTH
POINTER
SET
UNCOMPILEI)
t;lT

SET
LENGTH

POINT~R

SET END-OF ..
PROGRAM POINTER
SET 
COUNTf~

POINTER TO

4 <'lLEs
STATEMENTa~ POSSl8Lt
STORE
POINTER
TO cFILf.S
STATEMENT>
ALL 4 DONE?
NO
SAVE
'USING
SEEN' FLACI
SET
COMPIL~O

tHr

PAGE 'd369 tlJJ
0534
0535
k)536
0537
10538

0539
0540
k)541
k)542
0543
0544
0545
0546
0547
1054ij
0549

74761
74762
74163
74764
74765
14766
74767
74770
74771
74772
74773
74774
74775
~0045

000410
001041

L18RAR'f' SUbROUTINt.·S

1710001

074257
064041
075577

SlMIJ STA 1,1
STB MAIN
LOa llt;sP
STa SPROG

STF 10

1021100

JMP SEMIC,I

126710
010000~

01001000

000000
10eeero
160024
1601025
1610026

PORS1
PURS2
PORTL.
SPE
CHS
S1P
WSP
LISPS
L.lBSe
lItiSP

ass

1

8SS 1
ass 1
OcT 101cHrH!J0
OCT 1610024
OCT 160025
OCT 16002b
E:.QU LH.MP+13
EIiIU LTEMP+8
EQU LTE.MP+9

SE.T
MAIN
SET STA~T·OF ...
PROGRAM PllINTE~
USEO BY "PORT"
COMMAND WHILE.
SUSPENDH>,
SAUD RA Tf: INFO
CHAR, SIZE INFO
SUBTYPE INFO
WHAT BAUD RATE?
END OF PROG~AM POINTEK CP6P1R)
SE.MI.COMPIL.EP FLAG
START Of PRCG~AM POINTER

•

0002* THIS TABLE IS USfO BY THE TSS PAPER TAPf

~OAOfR, THE SLEEP
ROUTINE, AND THE MAG TAPE LOAOlR, IT CUNTAIN3 THE LENGTHS OF
0004. A~~ THE REMAINING Ll~RARY ROU1INtS, ANO ENABLES THE LUAOEk TO
0005* ALLOCAT~ THt MINIMUM NUMBER OF VISe 8ECTOkS fOR EACH Of THEM,
0006* THE TABLE Is WRITTEN ON THE DisC As THE FIRST LIBRARY ROUTIN~.
~00J*

"""tS
"'009
0010
0011
0012
0013
~014

0015
0016
0017
001tS
0019

0020
0021
0022
0023
0024
0025
0026
0021

75"""
75000
75001
75002
75003
75004
75005
75006
75007
75010
75tH 1
75012
75013
751.114

~049

1d050
0051
1d052
005J
0054
0055
0056

75052
75053
75054
75055
75056
75057

0029
0030
0031
0032
0033
"034
0035
0036
0037
0038
0039
0040
0041
0042
00403

0044
kH.145

0046
0047
004ts

17700~

177372
177244
177237
177516

15015 177440

75016
75017
75 020
75021
75022
75 0 23
75024
151d25
75026
75027
75030
75031
75032
75033
75034
75035
75036
75037
75040
75041
75042
7511143
75044
75045
75046
15047
75050

0028

ORG LI8RA
177675
177000
177000
177174
177257
177346
177000
177000

75"~1

177172
177645
177420
177420
177420
17726~

177262
177423
17700id
177000
1776 50
177e44
177650
177650
177000
177717
177737
177655
177720
177354
177441
177345
17734ti
1770010
17700k?
1774 0 4
177663
177606
1776~6

177603
177344
177344
177147
177225

ABS L.IBRA.$SL.PL.

DEC ~512
DEC -512
A8S

As8
ABS
Aas
AB8
ASS
ASS
ABS
ABS
ABS
ABS
ASS
ABS
ABS
ABS
ABS
ABS
ASS
AB8
ABS
ABS
ASS
ASS

L.16RA .. SfLB
L.16RA-$ASN

TWO HALVES O~
FuSS TAdL.E

1.1BRA·SCH~

L.IBRA-SSA'V
L.I8fo(A.,SSAV
L18RA .. SSSAV
L.IBRA-SGET
L.IBRA.,APP
LIBRA.$HEL
l"IBRA .. SbYf:

SAVE OVERLAY.

LltH~A.SKIL.

L.IBRA-SRf:N
L.lSHA-$NAM
L.IBRA-iCAT
LIBRA.ICAl
LIBRA_SCAl
L.IBRA.,SDIRS
L.IBHA-iDIRS
llBRA.,$REPS
LIBRA-SSTAS
L. ItSRA.,STA$
L.18RA .. $L>E~
L.I6RA .. STIM
LISRA.SPRO
L.lSRA_$PRU
LIBRA"'jOPE
L.16RA.SL.EN
lIBRA"'$ECH
lIBRA.SMES
LleRA"'SLPR
LIBRA"'SPOk$
LIBRA-SRE.P
LIBRA-SOIR
LIBRA.$I)lA
LI8RA.SSTA
L.IBRA"'SSTA
LlSRA-SJoIOR
LI8RA-SHOS
L.ISRA.SANN
LIBRA-SRES
LIBRA.,tHA
LIBRA-SSlE.

ASS
AB8
AB8
A8S
ABS
A88
AbS
ABS
A8S
ABS
A88
A8&
ABS
A88
A8s
ASS
ABS
AS8
A88
A88 llSRA-'s~E
AB8 llBRA.$NEl'I
Ab8 L1t~RA"SKIO

~ROUP

MESSAGE

HIBERNATE.

pAGE "'371 #34

l.IBRARY SIZt-S·

0157

70961

171~6.

0058
0059
0060
0061
0062
0063
0064
0065
0066
0067
0068
0069
0070
0071
0072
0073
0013
0013
0073
0074

75061
75062
75063
750CJ4
75065
75066
75067
75070
75071
7f)072

171035
171203
177000
177036
171000
177000
177375

75077
751ld0
75101
7511d2
75103

177000
177ld00
177000
177000

ASS .Ll~~.·'UNL

ABS
Aas
ASS
A6S
ASS
ASs
ASS

17745b

ASS

ASS
ASS
ASS
ASS
ASS
ABS
RfP
DEC
DEC
DEC

177314
17773 0
75~73 177747
7f)074 1777 16
75075 17742'5
75076 177671

ot:.c

SSL,PI..

L.IBRA.$L.O~

l.lBRA·SMUN
LISRA.SML.O
L16RA.$$ML.O
I..IBRA-SCOP
I..lt:lRA.stiES
I..IBRA-SSAN
LIBRA-SOES
L.IBRA.SPUR
l.lBRA·SMAG
L.IBRA·$PHO
L.I8RA"SPRl
LIBRA-SspE
L.IBRA.SSRE
4
.512
.512
.512
.612

EYU ..

SANC71FY

ftH076*
16077*
0078*
01679*
0080*
0081*

THE fUSS TABLE CONTAINS A 32 ~ORD ENTRY FOR ~ACH PORT. THt8E
WOROS ARE THE DISC AUDRESSES OF THE FIL~S Ht IS CURRENTY USINw.
A ZERO INDICATES NO FILE. THE TABLE IS READ OUT TO THE DISC
IN TWO HALVES, AND THEY ARE ASSUMED TO BE ON CONTIGUOUS
StCTORS, (THIS 18 GUARANTEED IF FUSS IS ONE OF tHE FIRST
LIBRARY ROUT!NES.

rlil2.
16083
"'084

V)08e»
0086
0086
"'086

0086
0086
"'086
1d086
0086
0086
0086
16086
0086
161686

01086
16086
1iJ"'86
16086
(61086
0086
1d086
0086
16086
"'1d86
16086
16086
16086
11:1086
1t:>1Cl86
00 8 6
1'c)086
(6086
0086
0087*
1608~

1d089
1d"'9'"

"'160916
' '9' '

f609k)
16090
1'c)09"
0090
0090
01d90
0090

ORG L18t260
75300
75320
75340
75360
75400
75420
75440
75460
75500
75520
75540
755616
75600
7 5 6 20
756 40
7 5 6t)0
7 5 7130
75720
75740
7576(0

fUSS

1600000
0f600,,0
000000
1600000
000000
0001600
000000
000000
0000016
000000
000"00
000000
0~0000

00~000

000000
0000016
000000
000000
000000
00000"
000000
000000

O(;T 0,0,0,1d,0,0,0,0,0,0,16,0,0,~,0,16
OCT 0,0,0,0,0,1d,0,0,0,0,0,0,0,~,0,16
OCT 0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,16
OCT 0,0,0,0,0,0,0,0,0,0,g,0,0,0,0,0
OCT 0,0,0,0,~,0,0,0,0,0,0,0,0,0,0,0
OCT 0,~,16,0,0,0,0,0,0,0,0,0,0,16,0,~
OCT

OCT
(JCT
OCT
OCT
OCT
OCT
OCT
OCl
OCT
OCT
OCT
OCT
OCT
OCT
OCT
UNS

0,0,0,0,0,0,e,~,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0v0,0,0,0,~

0,0,0,16,0,0,16,16,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,~

0,16,0,0,0,0,16,0,0,0,0,16,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,16,0,0,0,16,0,0,0,~

0,16,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,~,0,0,0,,,,0,0,0,0,0,0,0,16,0,0
0,0,0,0,0,0,~,~,0,~,~,0,0,~,0,~

0,0,0,0,ra,0,0,0,0,0,0,0,0,~,0,0
0,0,0,0,0,0,ra,0,0,0'~il6,0,0,0,0

0,0,0,0,0,0,0,0,0,16,0.0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,0,0,0,~,0,~

0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0,0,0,0,~,0,0,0,0,ro

PAGE
0093*
0094*
kHc)95*
0-,96*
""197 *
0it9~.

"099*
~10~*

0101*
1tl102.

.34

~J74

FILtS

THE FILES ROUTINE IS USED BY T~t 8ASI' COMPILER TO PROCESS FILES
STATEMENTS DURINij PHASl II, ThE PURPUSE O~ THE ROUTINE IS TO PRO.
VIDE THE coMPlLlR WITH INFORMA1IO~ ABOUT lHf REQUESTED FILES, THIS
INFORMATION CONSISTS OF THE FILE'S 01SC ADDRESS ANO DRUM
ADDRESS (IF ANY), ITS LEN~TH, AND ITS REcORD SIlE,
THE COMPILtR PA$StS PARAMETERS TO THt fILES ROUTINf Al fOLLUWS; .
~lLCT~.5+* OF FILE$ STATEMENTS
FILTSa>BEGINNING OF TABLE AREA FOR FILl INfO.
SCHLB,I.>~IRST POSSIBLE RETURN ADDRESS.

011;)*

1/1104* THE CALLING SEQUENCE TO THE FILES ROUTINE IS AS FOLLO~S,
0185*
JSB SCHL.B,I
11>106*
0107.
OfF Fll.lB

0108*

I0109*

14110*

0111*
11.1113
" 114*
0115

0116
rUl7
11>118
0119
ld120
~121
~122

0123
0124
0125

11)126
k)127
"'128
"'129
"'130
0131

7500~

ORG LIBRA

75~00

LOA FILBP
srA FLeUf
STA FL.tH'P
L.OA ... 17
STA fL,SCl
LOA FILeT
ADA ,+5
CMA,INA
STA FL,eFC
LOA DF Ii.. T
STA FL.BFF
EQU ..
LOB FLBfF,J.
CCA
ADA 1,1
ADA 1
RAL
STA ~L8P
INS
BLS
STB F"LBCP

06J6t12
750"'1 07"'036
750""~ 07eel37
75003 060331
75""04 °7° 0 • 0
75005 061606

7501d6 040357
75007 003004
75 01'" 0 7 0046

75011 0604~2
751012 07210.7
7 5 101J
75013 164"'47
75014

00J'0~

75rU5
75016
75017
75020
75021
751022
75023

140001
040001
10 flit 200
070ld4a
00611)04

10132
ld133
0134
~05000
074043
"'135
IU36*
01 37 75024 06 0 347
0138 75025 070041
0139 75026 0-,a400
01 4 0 75027 070031
0141 75213-' 070030
0142 75031 017550
"'14 3 75jc}32 050416
ld144 75033 ",,~705~
ld145 75034 050424
0146 75035 027061

fL6A

FLat

LOA
STA
CL.A
STA
STA
JSB
CPA
JMP
CPA
JMP

GET POINTf~ iU Fll.E BUFFER
SAVE BUFfER POINTER,
sET COUNT~R FOR MAXIMUM NUM~ER
OF FILES ALLOWED.
GET COUNT n 0 O~ ~lLES STATEMENT
GET COUNT
GET NEGATlvE
SAVE COUNT
GET POINTER TO FIL.ES
STATEMENT TAHLE
GET POINTER TO FILES STATEMENTS
sET PiJI~TER TO
LAST CHA~ + 1 OF.
FIL.ES STATEMENT,

INITIALIZE pOINTER TO

,-J
FLBC2

SET ~ILC2 TO SAY 3 WORDS
AL.L.OWED.

Fl.BCM
FLBS
FLESCH

CL.EAR COMMA FL.AG.

,+448

fLS2
,+526
FLB22

GET FIRST CHAR.
lEST fOR OOLLAR SIGN,
rESl FOR

S~OW~L.AKE

0147
~148

Idl049
0150
0151
0152
0153
1d154
0155
0156
0157
0158
0159
IU6",.
0161
"'162
0163

iU64.
0165
0166
0167
0168
0169
0170
0171
0172
0173
0174
0175
0176
0177
0178
0179
01 8 0
0181
0182
0183

BETTER NOT bE A BLANK,
FAIL.' IF 11 lS,

040"'30
001727
111d036
017550
130035
170036
034036
75~47 017550
75050 034041
75051 027041
75052 050412
75053 027100
751.154 027\77

CPA .+4k18
JMP FL.B4
JMP FL.B8+1

IF fNU OF fILE NAME, CHAR MUST
Bf A BLANK.
FAIL. 1f NOT,

050412
027171

75055
75056
75057
75060
75061
75062
75063
75064
75065
75066
75067
7507t)
75071
75072
75073
75074
75075
75076
75077

060442
070030
017550
027030
061036
070030
017550
050412
002401
027/34 0
064343
17",,36
1034036
006006
027070
064444
174036
002004
027101
06 03 57

0192
0193
0194
ItU95
0196
0197

75 100
75101
75101
75102
75103
75104
75105
75106
75107
75110
75111
75112
75113

0199
0200
0201

75114 06"040
75115 040373
75116 00~004

0184.

01 85
1d186
0187
1d188
0189
0190

0191

Ilva.

FLB5

CPA ,+408
JMFJ FLSS+!
fQU ."
AOA FloSS
AL.F,ALF
STA FLBUF,I
JSb FLSCH
lOR FLSUF,I
STA FL.BUF,I
ISZ FLBUF
JSB FLI:H;H
lSZ FL.BC2
JMP FLBJ

75036
75037
70040
75040
75041
75042
75043
75044
75045
75046

040036
070030
034040
00201U
027171
060031
002002
027024
034047
034046
02701~

FL.82

LOA 8200
STA FL6a
JSB FLBCH
JMP F"-Bb
FLB22 LOA BITl~
STA FloSS
JSB FLBCH
CPA ,+408
CLA,RSS
JMP FLS25
LOB .7
SIA 'L6UF,1
lSZ FLSuF
INB,SZB
JMP ~ .. 3
LOB 13400
STB FL.aUFtl
INA
JMP FLB26
LOA
EfilU
ADA
STA
lSl
RSS
JMP
LOA
SlA
JMP
lSZ
ISZ
JMP

.+5

• O~ S fLAG FIRST CHARACTER
POSITION ON L.EFT
AND STORE IN BUFFER,
GeT RIGHT CHARACTER
AND PACK IN.
BUMP BUFFER POINTEN.
GET NEXT C~ARACTER,
TES1 FOR ENV OF FILE NAME,

IF 1ST CHAR IS 31, SET FILs TO
INDICATE LIBRARY FILE,
GET NEXT CI1AR,
IF FIRST C~AR IS *, SET flL.$ TO
INDICATE ~ROUP LIBRARY fILE
GET NEXT CHARACTER
IS IT BL.ANK?
~ES, • IS pL.ACE HoLDER
NO, CONT!NUE PROCESSING NAME
CLEAR BUFFER
SINCE NO
F1LE NO~

RESERVE 256 WORDS
IN CORE FUR FUTURE fILE

LEAV~

ROOM FOR

STORA~t

•
FL.BUF
FLBUF
FL.BCl

Of fIL.E INFORMATION
FROM THE DIRECTOHY
TEST FOR TOO MANY flL.~S.

FL.6e+1
FLBCM

TEST FOR ANY MORE REGUESTED.

FLal
FL8FF
FLaFC
FLeA

YES 1~ COMMt WAS SEEN.
COUNT UP POXNTtR INTO TABLE
CHEcK COUNTER
PROCESS ANOTHER FILES STATEMENT,

LOA FLBCI
AOA .+17
CMA,INA

SET FILel TO ~QUAL
._ OF FILEs RE~uEsTto

Vl202
0203
0204*
0205
0206
0207
0206*
0209
162116

0211
~212

0213*
0214
0215
t'l216
0217
021ti
0219
0220
0221
1d222
0223
0224
0225*
16226

16227
0226
16229
0230
0231.
0232
0233
0234
0235
0236
0237
0238

02J9
0240

0241

1/.1242
ft:)243
0244

10245
0246
0247

0248.

75117 070040
75120 070041

STA FLee1
STA FL.8C2

75121 036435
75122 0601637
75123 070036

ISZ SCHL.Q
LDA FL~FP
STA FI.6Uf

75124
75125
75126
75127

060273
0410341
16000iQ
0711044

LOA MI.INK+l
'ET u,ER 10 AND SAVE lr.
ADA .+'l101!!t~L.INK
LOA 0,1
STA FL810

75130
75131
75132
75133
75134
75135
75136
75137
75141r:l
75141
75142

164036
1606003
027143
060044
006020
060612
0k'l5727
0..,6020
027147
005727
027165

7014J
75143
75144
75145
75146

ft164k'l36
044362
074036
ft121262

75147
751516
75151
75152
75153
75154
75155
75156
75157
7516ft:)
75161
15162
75163
75164
75 165
75160
75167
75170
75111
75 17 2
75173

005665
13135727
1741636
010602
0064016
1004016
000437
1160200
000431
064000
060132
010044
031dr)01
164036
10 44 00
0f600JI6
fd340Jb
104200
1 b0036

10 44 etiJ
0r60032

0249 75174 116005
0250 75175 02720J
r62r51*

FLB6

LOB FL,BUF,l
SZS,RSS
JMP FL,827
LOA fL.EnO
SSB
LOA A1400
BL.F,BLF
S88
JMP FL.b24
BLF,BLF
JMP FL823

FLS27 EQU ..
LOB FLBUF
ADtt .+8

STe fL.SUF
JMP fLB28

EL.B,('LE,ERB
BL.F, BL.f'
STB fL.8UF,1
AND B1777

BUMP RETURN ADDRESS SINCE wE'Vl
NOW CHECKED fUR TYPE 1 ERRORS,

SET POINTER TO SUffER AwAIH.

GET FIRST waRD OF FILE NAME.
IS THIS A PlACE HOLDER
YES, SKIP JIR~C10RY L.OOKUP
IF SLT 15 uf fIRST WORD IS SET,

PERFORM SEARCH USING A0140,

IF BIT 7 OF
FIRST WORD 1s SET

SET UP ~OR GROUP ~lB SEARCH
EL.sE RESTORE fIRST "ORO

BUMP POINTER
TO NEXT n:MP
IH,IFFEH ENTRY
eL.iAR BIT 7
AND
RlSTORF. TO TABLE
ISOLATE NU~ERICAL PART OF 10

CLoS
[)IV .HH-l

MPY .101/J
LUS
L.OA
AND
lOR
LOB
FL823 05T

A
M2000

FLBIO
B
FLBUF,I
LH:.MP

ISZ FLBUF
OL.O f LBUF , 1
DST

L.IBRMHA~

USER

NUMIH:.H
RESTORE FIRST WORD OF FILE NAME
GfT NEXT 2

wO~DS

LTEHP+2

JSB DLOKP,l
JMP FL.87

sEARt;H fOR FIL.E
FOUNI.l IT,

ALSO.

PAGE 0317 il34
"252
0253

75176

FIL.ES

0160~7

f'I... a8

Jie RpPRQ

If NUT fQUNO, RETURN TO

0255
"256

002400
1b200 112"'06
75201 {o15322
752"'2 026511c'

025S
0259
"'260
0261
0262
0263
0264
0265
0266
0267
026t!
0269
0270
0271
0272
0273
0274
0275

75203
75203 060034
752r,,4 040360
75~05 16 0001/:1
75206 172Z06
752",7 064035
75210 044364
75211 16a001
75212 002021
75213 ~27176
75214 044351
75215 160001
75216 002021
75217 021224
75220 060030
75221 0500 .. 4
75222 003117
75223 027176

FL87

EQU
LOA LTEMP"'4 LOAD POINTER TO DIREC ENTRY,
AOA ,+6
POINTER TO DRUM ADDRESS
LOA A,I
LOAD CURRENT DRUM AODRESS
STA DIRWP,I
SET DIRWO FOR DLOOK
I..UB I..TEMP ... 5
TEST TO SEE
,+2
ADB
IF THIS 15
LUA 1,1
REAl.LY A
SSA,RSS
FIl.E,
JMP FLse
fAlL IF NOT,
ADB ,-1
TEST FOR PROTECTED,
LOA 1,1
SSA,RSS
JMP FLB~
NOT PROTECTED,
LOA LTEMP
IF PRO" 1[8T FOR FILl OWNER
CPA FL.61D
CCA,SEZ,CCE,SSA,SL.A,INA,SlA,HSS JR~
JMP FLBe
PROTECTED FIL.E ACCESS_~FAIL,

75224
7ei225
75226
75227
75230
75 231
75232
75213
75234
752J5
75236
75237
75240
75241
75242
75243
75244
75245
75246
75 24 7
75251/:1
75251
75252
75253
75254
75255
75256
75257
75260
75261

FLag

ISl
ISZ
ADS
LOA
STA
INB
ISZ
OLD

~254

ea~7*

7b177

il216.

0277
027t5
0279
10280
0281
0282
0283
0284
0285
0286
0287
028t!
0289
0290
",291
0292
0293
~294

0295
1d296
1d297
029S
0299
0J"'0
00301
0302
",303
0304

034036
034036
044360
160001
170036
006 004
034036
10420fd
1~0001

104400
100036
kl64035
"'44365
034036
034036
060044
050030
002401
061036
130001
170036
034036
044343
160001
17fr}036
034036
016076
",64035
044357
170001

CLA
STA DIRWP,I
JSB OCMPL
JMP SCHSL.

NO DIRECTORY

e~OCK

IN CORE NOW

•

FLBUF
Fl.aUF
,+6

a,l

FLBUF,1
FLBUF

8,1

DST FLBUF,l
LOB LTEMP ... 5
AOB .... 11
ISZ Fl.BUF'
ISZ FLeUF
L.DA FLIHD
CPA LTEMP
CLA,RSS
LOA BIT15
lOR 13,1
STA FLBUF,l
lSI FLSUF
ADS ,.7
LDA B,I
STA FL.BUf,I
ISZ FLBUF
JSB uATE
LOB LTf.MP+5
ADB ,+5
SIA 6,1

GET DRUM
AOOHESS AND INSERT
IN BUF~fR ENTRY WORD 4
BUMP OIRECT, POINTeR TO DISC ADD
BUMP BUfF P~lNTER TO WORD ~
GET Olse ADDRESS AND
PUT IT IN THE BUfFER
bET DIRECTORY ENTRY POINTER
ADJUST TO FILE LENGTH WORD
BUMP eUfFER POINTER
TO l.ENGTI1 SLOT
TEST fOR USER REFEREN~t
TO PUBLIC OR GROUP fILE
NO,CLEAR tHl 15
YES, SET BIT 15
OR IN FIl.l LENGTH
STORE IT IN BUFFER
SUMP POINTER TO RECORD SIZE SLOT
SAME FOR DIRECTORY POINTER
TRANSFER RECORD SIZE
TO BUfFER
BUMP POINiER TO NEXT ENTRY
GET DATE ANO SET
INTo PURGE (l.AST
REFtRENCt:I))
DATE,

PAGE

~378

#34

FILES

0305.
10306 75262
0307 75262 034040
030~
75263 027130

f-LB28 EQI,I •

lSZ FL.Be1
JMP FI..t;6

TEST FOR AN'l MORE FILES,

1/1309.

0310. wt HAVE fOUND ALL T~E FILES. WE NOW HAVE TO UPVA1E THE FUSS TABLE,
IC)j11* FIRST CHECK TO SEE IF THE PROGRAM HAS ROOM ENOUGH FOR THE TASLE.

r6J12.
"'313
~314

0315
0316
\1317
",31~

0319
",320
"'321
0322
0323
",324
0325
",326
0327
0328

0329

75264
75265
75266
75267
75270
75271
75272
75272
75273
75274
75275
75276
75277
75300
75301
7531d2
75303
75304

162006
002003
V'27272
1064562
0162:31
127603
036435
060041
~70040
~1IJ3004

100200
"'IiH6371
",40056
003000
040462
00202k1
027176

LOA DIRWP,l
SZA,RSS
JMP FLB29
LU8 LIeU
JSS ORUML
JMP DLK9P,I
FLt;29 EQU •
ISZ SCHLQ
LOA FLac2
STA FL8t1
CMA,INA
MPY .+FTEL
ADA PBP'{f<
eMA
ADA LWAUS
5SA
JMP FLB6

WRITE DIREcTORY TO DRUM
IF ANY IS IN CORE
OUTGOIN' CORE ADDRESS,
CANII, GO ATTEMPT SALVAGE
SUMP TO N~XT ~RROR EXIT,
GET. OF fILES,
COM~U1E

NEW

~ALUE

OF PSPTR

TEST FOR OVERfLOW.
FAIL~~PROGHAM

TOO LARGE,

1433".
0331 75305 036435
HUMP To NORMA~ RETURN ADDRESS,
ISZ 5CHLQ
LOA M20rd0
IOJ32 75306 060732
INPUT FUSS TAdlE
03J3 75307 070072
STA wORD
0334 753110 160540
LOA FUSS,l
IdJ35 75311 064566
LOB lltiOI
JSB ORuML
"'336 75312 016231
IT'S STUCK ON THE DRUM
JaB SlCKP,l
0337 75313 116015
0338.
0339 75314 060273
LOA MLINK+l
DETERMINE USER .,
0340 75315 040336
ADA ,+1TNUM-?LINK
0341 75316 160000
LUA 0,1
USER # IN BITS 12~8
03 4 2 75 3 17 001727
ALF,ALF
RIGHT JUSTIFV UStR #
ALF,RAL
MULTIPLY uSER # BY 32 AND
0343 7532 0 001 7 22
ADA LIBU
AOO LIBD TO POINT AT USER'S
1C)344 753 21 04"562
1C)345 75322 0701045
STA fLBFS
SECTION Of fUSS.
STA LTf;MP
0346 75323 070030
0347 75324 064317
Loa M32
zERO OUT US~RIS SECTION
0348 75325 0024010
CLA
STA LTEMP,l
ld349 75326 1700310
ISZ LTEMP
0350 75327 VJ34ld31d
INB,SZB
Idl51 75J30 0106006
JMP •• 3
0352 75331 ~2732t)
kt35J.
0354· NOW CHECK TO Sft IF .NY OF THE REQUE8TEO FILES ARE ijEING USED BY
1IJ355* ANOTHER USER, IF THEY ARE, WE ALLOW ONLY FILE READS BUT NO WRlTES,
1IJ356. IF THE USER IS AN IAI, WE SKIP THE TEST.
0357.
LOA FLBII)
0358 75332 00"044

PAGE
11)359
0360
0361
"~'2.

O363
0J64
0365
0366.
0367
036tS
0369
0370
0371

03751 .34

FILES

75333 0HJ732
75334 rd5fl1612
75335 027403

AND M200.0
CPA AII'00
JMP FL.f.i10

75336 06(/J0~7
75337
75337 070036

L.OA FL.BFP
F1..611 EQU
srA FL.BUr

•

8ET tJUFFER POINTE.R.

ADDfU,SS,

75340
75341
75342
75343
75344

164036
006ft)03
027366
0403!)6
07e036

L.DB FLeUF,1
SlB,RSS
JMP FLB30
AOA
STA FLBUF

GET FIRST nORD OF NAME
PL.AtE HOL.Df.R1
YES
NO, bUMP POINTER TO
DISc ADDRESS

75345
75346
75347
7535"
15351
7.5352
75353
75354
753ti5
75356
75351
75360
15361
75362
75363
75364
75365

064~62

0 7 7 6 04
1"41200
100036
1536f1J4
027362
031604
037604
060536
053604
027376
160036
fd27351
0J7604
157604
027310
027354

LOB L.ISD
STB FUS(;H
OLD FL.eur,l

PUT ADDRESS Of FUSS
INTO fUSS SEARCH POINTER
GET DIsC ADDREss

.....

filJ72.

0373
0374
0375
"376
0377
0378
,,379
"380
0381
0382
0383
0384
1d385
0386
0387
0388
il389.

tij39",
0391
1d392

"'3~8

1399.

0400

10 4 01

0402
0403
0404
0405

04'6.
0407*
04.,8.
0.".
0410
0411
0412

FUSCH,I
FLtU8
FUSCH
FUS,H
1..1024
FUS'H
FL813
FLBUF,1
FL.a14
FuseH
FUSe""1
FI.812
FI..B19

f'I.BJ0 EQU
LOA ,+6
JMP FL.813"'1

75370
75371
75372
75373
753741

034036
0341036
16ld036
031036
170036

FI.B12 ISZ
ISZ
LOA
lOR
STA

75375
75376
75377
75400
754,,,
15402

002401

CLA,RSS
FLa1l LOA ,+2
ADA ,+2
ADA FL.8Ur
lSZ FI.8C1
JMP FLBll

~60l54

040354
040036
.,34040
027337

UPP£R WORDS EQUAL?
YES, GO CQ~PA~E LOWE~
NO, BUMP
FUSS POi~;rER
GET FUSS END ADDRESS
HAVE WE EXHAUSTED FUSS?
YES, GO CHECK NEXT FILE
NO, RESTORE UPPE~ ADDRESS I'fORD
ANO GO COMPARE AGAIN
8UMP To LOW ADDR~SS wORV
18 LOW ADDRESS ALSO ~WUAL1
YES, GO flAG READ ONLY
NO, GO eH~CK NEXT flLH.E

•

75366
75366 060360
75367 027377

i~9J.

0394
0395
0396
11)397

FLa14 CPA
JMP
ISZ
fL.B1~ ISZ
LOA
CPA
JMP
LOA
JMP
FLt:U 8 1SZ
cPa
JMP
JMP

Fl.aUF
'-L.BUF
FI..BUf,l
£jIl15

BUMP SUfFER POINTER
TO LENGTH WORD
SET DISC LENGTH TO SAY
Rf.AD ONLY.

FL8UF,1

ADJUST BUFF~R POINTER
TO NEXT FlL.E NAME
TEST FOR ANY MOHE

NOW UPDATE FUSS BY PLA'lNG THf DISC
INTO THE USER.S FUSS AREA,
75403 060041
76404 070f1J40
75405 060031

FLB1~

LOA FL.BC2
STA FLee1
LDA FLBFP

ADO~ESSES

JUST REQUf.STf.[)

SET COUNTi:R.
GET POINTER TO FIRST ONE.

0413
0414
041~

0416
0417
041 8
0419
0420
0421

0422
0423
~424

042f;)

0426
0427
0426
0429

75406
75406
75401
75410
75411

fUH5 EQU.

040360
164000
040350
1606021

75412 006401
75413 065036

75414 144000
75410 174045
75416 034045
75417 002004
75420 164000
75421 174t:l45
75422 0340"!)

75423 040355
75424 034"40

75425 0274,,0

043e.
0431 75426 160540
0432 75427 064562
0433 75430 016231
0434 75431 116015
0435.
0436 75432 016047
0437 7543J 061504
0438

75434 071576

0439
0440
0441
0442

75435 064037
n,436

754J6 044~61d
75437 104200
754421 IID0001

0443

0444

0445
044 6

1d447
0 4 46

75441 10 4400
75442 101576
75443 035576
75444 035576
7 5445 001 66 5
75446

040J5~

75447 002016

0449
0450

7545/0 040351
75451 007400

111451

75452 175576

VJ452

75453 064355

0453

75454 044037
75455 164001

0454

0455

75456 006003

0456
V;l457

75457 0274174
15460 035576

1d456

75461 001020

0459 75462 1040001
0460*

0461
0462
0463

75463 171576
75464 060356

0464

75465 041576
75466 071576

"465

75467 0034iJ0

AOA .... 6
LOB 0"
ADA .-2
SSB,RSS
CL.B,RSS
LOB BIT15
ADa 0,1
STe FL6FS,I
lSZ FLBFS
INA
LOB A,l
STB FLSFS,1
ISz FLaFS
ADA .... 3
lSI FLBC1

GET FILE I.ENGTH
A POINTS TO HIGH DISC ADDRESS

If NOT READ ONLY,
LEAVE. BIT 15 f().
EL.SE SE r iT,

AND PUT INT,) TABLE.
BUMP
pOINTERS AND
STORE LOW
..HSC A()ORtSS
REBUMP
POINTtRS
TEST fOR DONE,

JMP 'J.,.815

wRITe FUSS TASLt BACK TO
DRUM

LOA FUSS,l
Loe LItlO
JSB DRUML.
J$8 SlCKfo»,l

IT'S aTUCK

JSB ROPRG

READ IN

LOA
STA
LOB
EQU
ADa
DL.D

FILT8
VAL.TB
FLSFP

*

.+6

ti,l

1~

US~R'S

CORE
PROGRAM AGAIN,

GET SUffER POINTER
BUMP TO L~NuTH WORD
GET LENGTH WORD AND

RECOR~

SIZE

DST VALTBd

STORE THEM IN FILE TABLE

ISZ VALT~
ISZ VALTs
ELA,CI..E,ERA

bUMP fILE
TASL.E PO;NrER
REMOVE sIf 15 fROM LENGTH
COMPUTE RELATIVE
ADDRESS Of L.AST
LOGICAL ReCORD
sET FIRST DIsC ADDREss ~ORD
To ALL ONl:.8
GET
DRUM
AOOREss
IS fIL.E SANCT"flED?
NO, FILL OOU~LE WORDS
YES, BUMP FlLe TABLE POINTER
1 ReCORD • 4 SECTORS
COMPUTE DRUM ADDRESS
OF LAST LOGICAL RECORD
INSERT INTO fILE TABLE

AOA .... 2

SLA,INA,SZA
AOA ... 1

eeB
STB VAkTB,1
LOB .... 3
ADe FL.BfP
L.OB 6,1
SlB,RSS
JMP fLB20
lSI VAL Hi
AI..S,ALS
ADA ~
STA
LOA
ADA
Sf A
ceA

VALTa,l
.... 3
VAL.TB
'VALTS

"SANCTIfIED"
INTO HIGH WORD OF

IN8~HT

~LAG

PAGE
0466
0467
046tS
0469
0470
0471
e~72

0473
0474
0475
0476
0477
0478
0479
0480
0481
0482
~483

0484
0485

04 8 6
0487
048a
0 489
049",
0491
0492
(11493
0494
0495
0496
04 9 7
0498
0499
0500
0~(II1

0502
0503
0504
0505
0506*
11'07.
kH501.:l

0509
0510
1011*
0512*
0513.
11)514*
(11515.

~381

7547(11
75471
75472
75473
75474
15475
75~76

75477
75500
75501
75502
75503
75504
75505
75506
75507
75510
75511
15512
75513
75514
75515
75516
75517
75520
75521
7552~

75523
75524
75525
75526
75527
75530
75531
75532
7!>53J
75534
75535
75536
75537
75541/)
75541
75542
75543
75544

.34

FILES

171576
035576
175576
027521
064037
0443 56
077014
006004
000040
149001
067604
164001
002040
006004
UH 100
1e4400
101576
060356
041576
071576
104200
175604
10 44 00
HH576
035576
061576
04i!J5C)
071576
164037
175576
fd34037
035576
104201tl
100037
104400
101576
061576
040355
071576
06412137
044361
074037
03412141
027436
070056

75545 002400
75546 172006
75547 026510

8TA
ISZ
STa
JMP
FL.e 20 LOS
AOB
STe
INS
CLE
ADA
L.OB
Loa

st:z

VAL.Ts,l
VAt,.TB
VALTS,I
FL.b21
FL.BrP
,+4

FUSC;H

8,1
FUSCH
B,1

INS

swP

DST VAL.TS,l
LOA
ADA
SlA
DL.D

FI..s21

aASE ADDRESS
INSER1 BASE URUM ADO~ESS
INTu LOW ~ORD
GO PREPAHE FOR NEXT ~l~f
NOT SANCTIFIEDI GET ADDRESS
OF HIGH OlSC ADDRESS
ANO SAVt. IT
GET POINTER TO LOw 015C AOu WD,
AOD RELATIVE L.ASl RECORD ADDRESS
HIGt-I DISC
ADDRESS WORD
IF L.OW ADO OVERFLEW,
ADD 1 TO HIGH PART
STORE BOTH ~ORDs
OF 1)1 se ADDRESS

a GETS

.+4

VALTS
vAL.TS
FUSCH,l

BAsE 01$C ADDRESS

DST VALTB,I

INTO F !L.. E TAaL.E

lSZ
LOA
ADA
STA
L.DB
STB

VALTB
VALTs

ADJUST POlNTER
aUMP POINTERS,

,+"

VAL.TB
FL.aFP,l
VALTS,l
IsZ FL.aFP
ISl VALTa
OL.D FL.BfP,l

MOVE.
FIL.E

DST VAL.TB,l
LOA
AOA
STA
LOB
ADa
STS
lSl
JMP
STA

VALTS
,+FTEL..12
VAL.lS

INTO
TABL.E

Fi.. SFP

,+7
FL.BFP
FL.aC2
FL.B16
PBPTH

CLA
STA 0IRWP,l
JMP SCHBL.

lEST FOR .NY MORE.
ADVANCE P8PTR TO
fIRST UNUSED WORD
NO DIRECTORY

aLoe~

FL.BCH GETS THE NEXT CHARACTER OUT OF THE FILES
STATEMENT. IF fL.BCHll, IT ASSUMES A COMMA HAS BEEN
SEEN AND RETURNS A BLANK, OTHERWI8E IF THE CHARAC~
TER IS A CO~HA, IT SETS ~L.BCM AND RETURNS A BLANK,

IN CORE NOW

PAGE 0382 *34

FILES

16516 .. IT ALSO RETURNS BLANKS AT THE fND OF THE COUE,
051,.

0518
0519

0520
0521
0522
1()52J
0524
0525
0526
0527
I()s2S

V)529
0530
0531
0532
0533
0534
0535
0536
0537
0538
0539
0540
0541
0542
0543
.5 •••
e545
0546
0547
0548
0549

0551()
0551
0552
0553
1a554
0555
0556
1a557
1d558

16559
16560

75551d
75551
75552
75553
75554
75555
75556
75557
75560
75561
75562
75563
75564
75565
75566
75567
7 5 570
7 5 571
75572
75573
75574
75575
15576
75577
7560ft)
75601

000000
06 0 4 12
064031
0061002
127550
1a6404J
0061604
054042
127550
074043
004065
160001
002041
001727
010441
0e2lilBJ
027551
040766
002e21
04e317
04073e
1d50426
e02kHU
127550
034031
0215151

0e0310
00e31
00036
00037
00e4ft)
00e41
00042

00043
00044
00045
00046
00047
75602 07J571
75603 031173
75604
7561()4 0ld0000

FL.aCH NOP
LOA
LOS
SZB
JMP
LOB
INS
CPS

FL.BCM

R"ETURN tjL.ANK If
fl.BCM IS SET,

FLBCH,l
fL.SCP

GET

,+4 0 8

FLttP

JMP FL.6CH,1

ST8 fLBCP
CLE,ERB
LOA 1,1
sEZ,RSS
AL.F,AL.F
ANO fUl7
SlA,..cS8
JMP FI.-8CH+1
ADA M96
SBA,RSS
ADA M32
AOA ,140
CPA ,+5 4 8
R$S
JMP FL.BCH,1
ISZ FLaCM
JMP FLaCH+1
EQU
FLec M EQU
fL.8UF EQU
FL.8Fp EQU
fL.SC! EQU
FL.8C2 EQU
FL~P
EQU
F1.8CP EQU
fL810 EQU
FLbFS f.QU
FLBfC EQU
FL.BFF EQU
FIL.8P OfF
oL.K9P OfF
SFL.8 EQU
fUSCH BSS
fL.S'

POINTER,
ByMp
IF eND OF iTATEMENT,
RETURN A BL.Af~K,
POINTER,
GET NEXT CHAR,
CHAR~

oTHErH~1St:.

LTEMP
LTEMP~l
I..TEMP~6

lTEMp+7
LTEMP+S
L.TEMP~9
LTiMP+l~

L.TEMP+l1
LTEMP+12
L.TEMP+1J
L.TEMP+14
L.TEMP+15
FILSF
oLOKiIl
•
1

ROTATE JF NECESSARY,
MASK.
sKIP (CPs.

LOWt.R CASf.?
YES, MAKE INTJ UPPER CASE
NO

TEST fOH COM""".

NOT A COMM.\.
IF COMMA, SfT fL.AG AND GO
RETURN A BLANK,

PAGE 038J

'J~

ASSIGN

0003* THE ASSIGN ROUTINE IS USED BY lHE ~ASIC STATEMENT EXECUTIUN PRotES
0004* (PHASE III) TO PROCESS AN ASSIGN STATEMENT, THE PUWPOSt OF THE ROU
0005* TINE IS TO REPLACE THE INFORMATION CURRENTLY IN THE flLt CONTROL
0006* BLOCK REFERENCED aY A SPECIFIED ORolNAL NUMBER WITH INfORMATION A~
0017. THE NEw FILE BEING ASSIGNED TU THAT URD1NAL NUM~ER, INPUT PARAMETt
000th TO THE ASSIGN ROUTINE ARE A8 FOLlO~SI
81f'~.

0rd10*
0ell*
0012.
0013*
it114-

AsaFPa
ASNID.
ORONO;
FILTS:

> TO BUFFER CONTAINING FILE NAME
0- USER LIBRARY, 1- SYSTEM LIBRARY, 2- GROUP LI8RARY
SPtCIFIED ORDINAL NUMBER
w> FILE TABLE

0015* THE CALLING SEQUENCE TO THE ASSIGN ROUTINE IS AS FOLLOWS;

0016.

JSB SCHLB,l
OfF ASNla
.EXIT FOR NON-EXI3TENT FILE>
0020*
cEXIT FOR 'READ-ONLY' (GROUP OR SYSTEM
0021*

cNORMAL EXIT>
Iht22*
ORG Ll~RA
0023 75000
0024 750016 060273
lOA MLINK+l
flET USER 10 ANO STORE
AOA .+110,,?LINj(.
0025 75 1601 040341
0026 75002 1601600
LOA 0,1
0027 75003 070041
STA ASNIO

0017*
0018*
0019.

".a
••
0029
0030
1/1031
0032
0033
0034

0035
16036
0037

0038
0039

75004 0135016
750165 167161630
75006 060041
75"'107 020030
75010 006400
75011 10040'"
75(U2 01604~7
75013 10°2°0
75iH 4 000437
75~H5 030030
75016 07~030
75017 063512
75020 073510

1.,4.,.
01d41 75021
0042
0043
0044
0045

0046
0047

""48.
0049
16050
0051

AND HI6
STA LTEMP
L.OA ASNlO
XQR LTEMP
CLS
DIV ,100
MPY ,100

064041
061470
165 0 363
064612
050354
064e3ID
177510

ASNl

75030 061552
75031 070037

ASN2

75022
75023
75024
75025
75026
75027

75032 1160201/1
75033 000371

0052

751634 041504

0053
0054

75e3~

070036

75036 1302004

L.OSa;: NUMEfUC;S
SAVE
'ET THE 10 ~AC;K
LOSE THE TOP
SET uP FOH DIVISION
PRODUCE GRUUP
LIBRARY 10

IUR
STA
LOA
STA

LTEMP
LTEMP
ASF6F
AseUf

AND SAvE
IN L.Tt.MP
INITIALIZE INFORMATION
BUFFER POINtER

LOB
LOA
CPA
LOB
CPA
LOB
STe

ASNID
ASTYP
.+1
A000
,+2
LTEMP
ASBUF",I

GET USER 10
GET LiBRARY INDICATOR
SYSTEM LleRA~n?
yES
'ROUP LIBRARY'1

I.OA ORONO
STA ASORD
MPY ,+F1EL.

.ADA F lL1B
srA ASFCB
INA

yES

STORE CORRECT 10 IN BUFFER

SPECIFIED
ORDINAL NUMBER
SAVE POINTf.R
SAVE

TO fILE TABLE
ENTRY

PAGE 0384 *35
0055
0056
0057
005d
0059
0060
0061
0062
0063
"'064
0065
16066
0067
0066

ASSIGN

0098
0099

75037
75040
75041
75042
75043
75044
75045
75046
75047
75050
75051
75052
75053
75054
75055
75056
75057
15060
75061
75062
75063
75064
75065
75066
75067
75070
75011
75072
7507J
75074
75075
7b076
75077
75100
75HU
75102
7510J
75104
75105
7 5 10,
7511tl
75110
75111
70112
75113
75114
75 11 5
75116
75117
7512"
75121
75122
75123

0101

75124 116kl05

0069
0070
0071
0072
0073
"'074
0075
0076
16077
0076
0019
0080
0081
0082
0083
0084
0085

0086
01d 8 7
0088
0089
00 9 0
0091
0092
~0g3

0094
009 5
",~96

0097

01"".

164000
004066
004~66

"05323
077507
002041
027112
064"-141
074030
040364
1641d00
074031
002004
104200
100000
10440~

000032
061556
16400ld
074042
002004
104200
100000
104400
000043
116005
002001
02710;'
060034
0414360
160000
172006
060201
064035
044360
170001
060042
070031
104200
"'00043
10 44 00
0000;"2
027122
~O5556

160001
070031
0°6 004
104201d
100001
104400
000032
163610
070031d

LOB 0,1
CL.E,EL.6

CLE,EL.S
RBR,RBR
STa ASSAV
.SEz, RSS
JMP ASN21

LOB ASNIO

STa
ADA
L.DB
STB
INA
OL.O

LTEMP
,+1'"
0,1
L.TEMP+!

SAVE OL.O kECORO SIZE
010 rtRITE OCCUR ON OL.D flLE1
NO
YES, SET UP
L. TEMPUUJ)
WITH OLD
F lL.E NAI-IE

"',1

OST I..TEMP+2
LOA ASSFP
LOB ~,I
STe LTEMP+H'l
Itd

SAVE
NEw FIL.lNAMf.
~t.FORf. SWAP
OCCURS

DL.O 0,1
DST l TEMP+ll

JIB OL.OKP,l
RSS
JMP
LOA
ADA
LOA
STA
LOA
lOB
A08
STA
ASN20 LUA
8TA
OLD

ASN20
i,.TEMP+4
.+6

A,I

OlRWP,1
OAT1M
lTEMP+b
.+6
1,1
LTEMP.10
LTt;MP+l
LTEMp.11

FINl) OIRECTONY ENTRY
NOT FOUND
SAVt. CURRENT
OlRECTOIH
TkACK
FOR O\.OO~
GET HOUR OF y~AR
AND UPDATE.
'LAST CHAN~E'
LOCATION
GET
NEW

DST LTEMP+2
JMP
ASN21 LOB
lOA
STA
INS

ASN22
ASBFP
1,1
LTt,MP+l

OLD 1,1

08T lTEMP+2

fILE

~AMf

IN
LTEMP(l~J)

ASN22 LOA AS6UF,1
STA LTEMP

SET APPROPRIATE
10 IN LTEMP

JSs DLOKP,I

SfAR{,:H FOH FILl;.

~OR

OLD FIL

PAGE e385 ,35
0Ula
ItH0J

0104
0105
0106
0107
fU 08
0109
1c:1110
IIUll

0112
0113
0114
14115
0116
0117
fd116
(iJi 19
012ra
0121
0122
0123
0124
0125
0126
01 2 7
0128
0129
.,130
0131
0132
0133
0134
0135
0136
01 37
IU38
01J9
0140
0141
0142
0143
0144
0145
0146
1147
0148
0149
0150
0151
0152
01el
0154
0155
0156

75125
75126
75127
751:S0
7513 1
75132
75133
75134
75135
75136
75137
75140
15141
75142
15143
75144
75145
75146
75147
75150
75151
75152

Aa-$UH,

006411
007400
060034
048360
160000
152006
027136
002401c:1
172006
006003

027153
036435
162006
002003
021151
006400
176006
064562
1d16231
127504
016e47
027476

7~1'3 06403~

75154

04~3~4

1~15~

16(0001
002021
027140
044351
16 1881
002021
021171
044351
160e01
050041
006005
02714$"
044355
160001
173510
eeJ ee 4
043507
002020
02714$1

7 515 6
75157
75160
7 5 16 1
75 16 2
75163
75164
75165
75166
75161
75170
75171
75172
75173
75 174$
75175
75176
75177
15200
752"1
7,202
15203
75204
75205
75206
75207
75210
75211
75 212
75213

03643~

037!'10
044355
160001
113&1"
006004
037510
1600el
17 3 510
006004
03751k1
101101

CL.fhRSS

eta

L.OA L.TEMP+4
ADA .... 6
LOA 10,1
CPA DIRwP,l
JMP ASN23
Ct.A
STA OlRWP,l
ASN23 SZS,RSS
JMP ASN4
ASN24 ISZ SCHL.(,)
ASNJ L.DA DIRWP,l
SZA,RSS
JMP ASN26
CLB
8Te DIRWP,I
LOB LIBD
JSB DRUML.
JMP DL.K9 Q,1
ASN26 JaB RDpRG
JMP ASN14
ASN4 LOS LTEMP+~
ADS .+2

LOA e,l

SSA,RSS
JMP ASN24
A06 .-1
L.OA 8,1
SSA,R'8
JMP ASN25
ADe .-1
L.OA S,I
CPA ASNID
INB,RSS
JMP A8N24
ASN25 A08 .+3
L.DA e,l
STA ASBUF,1
CMA,INA
AUA ASSAV
as A
JMP ASN3
ISZ 8CHLQ
ISZ ASBUF
ASN5 Aoe .+3
LOA 1,1
STA ASsuf,l
INS
ISZ ASSUF
l.DA 1,1
8TA AseuF,I
INS
ISl ASBUf
L.OA 1,1

IF, FUUNO, tLEAH B
If NOT, ~ GETS -1
GET C;URRE~T
DIRECTORY TRACK
SAME AS OTHER ONE?
YES ($0 NONl HAS BEE~ WRITTEN)
NO, 80 uPDATED ONE HAS
BEEN Wf\lTTEN OUT
IF £NTRY wAS FOUND
(;0 CHECK IT OUT
IS

THER~ A CHANGED
D!RECTOR~ TRACK IN

CORE?

NO
YES, TELL. D~OOK
THERE ISN'T
AND WRITt::

IT our

BL.f.W IT, GO TRy TU SAL.VAGE
IS THf
ENTRY wt:
FOUND
A f'ltE?
NO, foAIL
yf.S, Is
IT PERCHANCE
PROTECTfJ?
NO, CONTINUE
yES, Is Irs
OWNER lRYlNG TO
ACCESS IT?
yES
NO, fAIl.
GET LOGICAL
~ECORD SJ:lE
AND SAVE IT
IS IT L.ARG£~
THAN THE ALL.OCATEO
BuFfER?
YES, fAlL
NO
PUT FILE'S L)HUM ADORt:.SS
IN 8UFFf.R

PUT
DISC
ADDRESS
IN
ttUFflR

PAGE 0386 *35
0157
0158
0159
0160
id161
0162
0163
id164
~165

10166
0167
(,)168
0169
10170
0171
0172
0173
0174
0175
0176
IcU77
rilles.
0179
0180
0181
0182
0183
0184
101 8 5

0186.
liU87
0188
0189
0190

0191
0192
0193
0194
0195
0196
0197
~19a

0199
0200

7~214

75215
15216
75217
75220
75221
75222
7522J
75224
75225
75226
75227
75230
75231
75232
75233
75234
75235

ASSIGN

17 3510
044354
037510
164001
06 004 1
050030
002001
0450J6
17751(1)
016076
064035
044357
170001

STA ASSUF,l
ADa ,+2
ISZ AseUf
LOB 1,1
LOA ASNID
CPA LTEMP

TEST FOR USER REFERENCE
TO PUSLlc I"lLE

ADS BIT15
STa ASBUF,l
JSts DATE

SET bIT 15 OF LENGTH If IT IS
STOHt LENGTH IN eUFFEH
GET DATE AND S~T IN

Ras

L08 LTEMP+5

AOB ,1+5
STA 1,1
CLA
STA DIRWP,l
LOA LTEMP+4
ADA ,+6

0024~0

172006
060034
040360
160000

1..08 Lleo

75237 016231
75240 127504

JSB

DRUML

JMP DLKPQ,l

75241 11)36435

ASN50 ISZ sCHLQ

75242 06073':

LOA M2f61616

FILt tXISTSwwtiUMp RE1URN ADDREss
INPUT FUSS TAtsl..E

LOA FUSS,l

LOti L1801
JS8 DRUMI..
JSB SICKP,I
LOA MLINK+l
AOA ASNSP

06027J
0435 0 3

IT'S STUCK ON THE DRUM
DETEHMINt USEH

#

CLe

0064icH~

100400
000375
70255 001722
75256 040562
75257 1073505
75260 064037
75261 005000
75262 04 0 001
75263 070040
75264 00240rd
75265 006400
75266 104400
75267

bLEw IT, TRy TO SALVAGE

STA wORD

07007~

75244 1605~Vl
75245 064566
75246 016231
75247 116(?J15
75250
75251
75252
7525J
75254

TELL CLOOK THAT NO Dl~ECTO~Y
TRACK IS IN CORt AND
I'j~ITE IT tiACK

LOA 0,1

75236 064562

75243

PUR.;;E LOCATION

DIV ,+TTY01"'TTYI60

ALF,RAL
ADA L180

STA ASUFS
LOB ASOHO
til..S
ADA 1

STA ASNFS
CLA
CI.,.B
D8T ASNFS,I

MULTIPLY USER. BY J2 AND
ADO Ll1:50 TO POINT 10 USER'S
SECTION OF FUSS
SET POINTER TO FUSS
ENTRY FOR THr:.
SPECIfIED ORDINAL

N~.

ZERO OUT OLD FILE INfORMATION

10004~

0201.
0202 75270 002400
16203 75271 kl7JS11
l6a84*

02 0 5
0206

75272 064se2
75273 idOJ51k:l

0207

75274 040350

1.1208
0209

75275 150000
75270 ~57505

CLA

srA

ASN6

ASN7

ASNIF

SAY ENTRY NQT YET
FOUND IN FUSS TABL~

Loe .L1BD
LOA ASBUf

ADA .. ",2
LOA 0,1
CPS ASUFS

GET FIRST WORD OF DISC ADDRESS

SKIP UVER

16210
~211

0212
0213
0214
0215
0216
1121,.
021a
0219
0220
0221
0222
~22J
~224
~225

0226 •
.,227
0228
0229
0230
0231
0232
10233
0234
1D23S
8236.
0237
0238
0239
kJ240

0241
0242
0243
~244

0245
0246

14247

0248
0249
0250
1tj251
0252
0253
[d254
",255
0256
0257
025d
1rJ259,02 6 0
02 6 1
0262
-02 63

.Oij .... 32
CPS L.1024

75277
75300
75301
75302
75303

044412
054536
027326
15000 1
027306
753~4 044354
75 3 °5 027276

75306
75307
75310
75311
75312
75313
75314
75315
75316
75316
75317
75320
75321
75322
75323
75324
75325
75326
75321
75330
75331
75332
7 5333
75334
75335
75336
75337
75340
75341
75341
75342
75343
75344
75344
75345
75345
75346
75347
1535 0
75351

063510

040351

160000

!d06l604
150001
02731b

006004
027273

JMP
CPA
JMP
ADB
JMP
ASN9

A5Nll
1,1
ASN~

.+2
ASN7

LOA ASaUF
ADA •• 1
L.OA 0,1
INij

CPA 1,1
JMP ASN10
INS
JMP ASNb+l
ASN10 E(ilU •

077511

060041
010732
050612
027326
163510
031036
173510
063510
11:140350
160000
161f5UD
0~6021

02,341
0310J6
1064041
054030
027344
027345

STB ASNIF
L.OA ASNlD
AND M201tJ0
CPA A000
JMP ASN11
L.DA ASBUf,l
lOR 81T15
STA ASBUF,!

AOA ,-2
l.OA ",I
L.OB ASBUF,l
8S8,RSS
JMP ASNJ0
lOR BIT15
L.Oij .SNID
CPB L.TEMP
JMP ASNJ1
JMP ASNJ2

L.oa ASNIF

SZB,RSS
IaZ stHL.Q
ASN31 EQU •

75352 160540
75353 064562
75354 016231
75355 11()01S

GET 2ND WORD OF ADDRESS
SUMP FUSS 10 2ND wOR~
ARt:: THEY t::Q"'~L?
yES
MOVE TO NEXT FUSS lNl~Y
RETURN TO CHECKING FUSS
SET TO SAy "IN FUSS"
IS hilS
AN IIA"
USEH?
YES
SET DISC LENGTH 10 SAY
RtAO ONL.Y

~lT HIGH DISC ADDRESS
GET L.ENGTH
IF READ ONL.y,

SET SIT 15 OF HIGH AUORESS, AND
SKIP 1 OR BOTH RETU~N INCREM
DEPENDING ON REASON FUR

ASN30 EQU ..

rH:'I6603
036435

067510
044351
164001
1044 00
10004 0

. YES, NOT THERE
TEST fOR THERE
IT IS
BUMp fUSS POINTER
L.OOK AT NEXT ~NTRY

ASNll L.OA ASBUf

067~11

036435

USERS OWN FUSS
AL.L fUSS CHECKED?

REAO_WRITEI WAS IT

IN FUSS?
NO, BUMP TwICE

ISZ SCHL.Q

ASN32 EQU
L.OB
ADB
L.OB
DST

•
ASBUF
.-1
1,1
ASNfS,l

LOA fUSS,1
L.De L.IBD
JSS ORUML.
JS8 SlCKP,I

GET L.OW ADDRESS IN B
STORE NEW FuSS INFORMATION

WRITl FUSS

~ACK

TO DISC

IT'S STUCK IN CORE

PA~E

0388 *35

ASSIGh

0264.

,,265
13266
13267
0268
13269
02713
"271
"272
1d273
0274
0275
1d276
"277
0278
ft)279
"'280
13281
0282
"'283
13284
1d285
13286
1d287
0288
0289
0290
0291
0292
0293
0294
0295
1d296
02 97
0298
0299
0300
133131
0302
",3133
10304
10305

03136
0307

0308
0309
0310
0311

75356
75357
753613
75361
7 53 6 2
75363
75364
75365
7 53 66
75 3 67
753713
75371
75372
75373
75374
7 5 37 5
75376
75377
754~0

754101
75402
754133
75404
75405
75406
75411)7
754113
75411
754 12
75413
75414
75415
7 5416
75417
75420
75421
75422
75423
75424
75425
75426
75427
754J13
75431
75432
75433
75434
75435
75436
75437
75440
75441
75442
15443

016047
13675113
160001
17131336
034036
044346
164001
174036
034036
1001665
040350
1d02016
040351
0fC7400
174036
1d67S1"
044347
164001
13061303
027416
0341336
0131020
0401301
1 7 0036
1d60kl36
1340355
070036
003400
170030
k134036
174036
1I!27442
~67511d

°4435 0
~77506
0ft)60~4
1i10004(~

1400lO!
1 675 e6
1d1321d40
1I!061d1d4
101100
1k'J4401d
1130036
060036
(0410356
1()70036

1k'.14200
1755131')
113440~

100030
034036
",60036
~40347

JSB RoPRG
LDB ASBUF
LOA 1,1
STA ASFCa,l
ISZ ASFCB

ADB •• 4

l.OB 1,1
STB ASFCS,l
ISl ASFCB
tLA,C;L.E,ERA
ADA •• 2
SLA,INA,SZA
ADA •• 1

tea
srB

ASFCS,l
LOS ASBUF
ADS , .. J

lOB 1,1
SZB,~ss

JMP ASN12
ISZ ASFca
AI.S,AL.S
ADA 1
STA ASFCdd
LOA ASFC6
ADA ,+3
STA ASFCB
CCA
STA ASFCB,l
lSZ ASFCB
STB ASFCB,I
JMP ASNIJ
ASN12 LOB ASBUF
ADB ."2
STa ASSCH
INS
el.E
ADA 1'1
LOB ASSCH,l
SEl
INS

RfAO USER'S PROGRAM BACK IN

GET LENGTH WORD
AND STOHE IT
GET NEW RtcORP SIZE
AND STORE 1",
REMOVE BIT 15 FROM Lt~GTH
COMPUTE REL~TIVE
AI)ORfSS OF L.AST
L.OGICAL RECORD
sET FIRST DISC ADDRESS ~ORO
TO ALL. ONt::S
GET
ORI"IM
ADDRESS
Is FILE SANCTIFIED?
NO, -fIL.L UOUBLE WORDS
yES, BUMP FILE TABLE POINTER
1 RE~ORO • 4 SECTORS
COMPU1E DRUM ADDRESS OF LAST LOG
RECORD ANO STORE I~ FILE TAbLE

lNSEkT eSANCT!fIEDI fLAG
INI0 HIGH WORD OF
tUSE ADDfH:.SS
INSERT BASE CRUM ADDRESS
INTO LOjlj WOflD
NOT SANCTIFIED; GET ADDRESS
OF HI~H D15C ADDRESS
AND SAVE IT
GET POINTER TO LOw DISC AUORESS

DST AsFCB,I

ADD RELATIVE LAST RECORO ADORESS
GETS HIGH DlSC ADDRESS WORD
IF LOW ADDR~SS OVERFLOWS,
ADO 1 TO HIGH PART
STORE BOTH WOHOS OF
DISC ADDRESS

LOA ASFCB
AOA ,+4
sTA ASFCB
OL.D ASSCH,I

STORt 8ASE 01sC ADDRESS

swP

OST ASFC6,1

ISZ ASPCS
ASN13 LOA ASFCS
ADA ,"3

B

INTO FlLE TASLE

ADJUST POINTER
SET

'NULL RECORD'

PAG~

0316
031 7
031ij
0319
0320
0321
0322
0323
0324
0325
0326
0327
0328
0329
0330
0331
0332
0333
0334
0335
It)336
0337
033ij
0339
134O.
0341
ffJ342
0343
0344
0345
0346
0347
0J4ij
0349
0350
0351
0352
0353
0354
0355
0356
16357

035ij
0359
112360

0J8g #35

ASSIGN

75444 065036
7544~ 174000
15446 063510
15441 040346
75460 067607
75451 007004l
75452 144000
75453 034036
75454 160036
75455 040001
75456 170036
75457 034036
75460 170036
75461 034036
75462 002400
75463 170 0 36
75464 034036
75465 06155()
75466 164000
75467 174036
15470 002004
15471 034036
75472 104200
75473 10000e
754'4 104400
75475 100036
75476
75476
75477
75500
75501
75502
75503
00036
00037
00040
00041
75504
75505
7550 6
75507
75510
75511
75512
75513
75521

016656
02651"
176000
177400
1170010
116635

03117:5
0000010
01i"'000
000000
000000
000~00

167551"
000~00

L.ll& 81Tl0

STS 0,1
LOA ASBUF
AU A
L.DB ASSAV
CMS,INS
AOB 0,1
ISZ ASfC;S
LOA ASFCS,1
ADA 1
STA ASFC8,I
lSl ASFCB
aTA ASF-ce,l
ISZ ASFCS
CLA
STA ASFCS,I
ISZ ASFCS
LOA ASBFP
LOS ",I
STB AsF"Ce,l
INA
lSZ ASFC;B
01..0 0,1

CONDItION

.-4

COMPUTE OlFFtRENCE BtTwEEN
O~O AND NEw BUFFER SIZlS
ADJUST 8UFFt,R
AIJORESS
SE.r 'REeOHO FULL.' CONI)1"TION
SET 'NO EOf EXIT'
CONDITION
MOVE.
Fll..E NAME
TO

FILf. TABLE

OST ASFce,l
ASN14 EQU
JSB
JMP
Hl6
oCT
Hl8
OCT
ASN28 DEC
ASNSP ASS

•ABCHK

SCHBL.
AL.L. DONE
1760014
171400
-512
-TTY00,,1LINK
AsFce E(IIU LTEMP+6
ASORO EQU LTEMP+7
ASNfS EQU LTEMP+8
ASNID E~U t..TEMP+~
OL.K9Q OfF OLOK9
ASUfS ass 1
A55CH ass 1
ASSAV BSS 1
ASaUf BSS 1
ASNIF ass 1
CLEAR UNI..ESS FIL.E. IN fUSS
ASfBF Off ~+1
ass 6
SASN EQU ..

PAGE 0390 *35

CHAIN

0362* THE CHAIN ROUTINE 15 USED BY THE SASIC COMPILt~ TO PROCESS A tHAIN
~363* STATEMlNT DURING PHASE III. THt PURPOSE OF THIS ROUTINE IS TO
0364* CHECK FOR THE REQUESTED PROGRAM ON THE USER'S PRIVATE LIBRARY OR
0365. ON THE PUBLIC LIBRARY (If THE NAME IS PRECEDED ~y A DOLLAR SIGN)
fa3b6. OR ON THE GROUP LIBRARy (IF THE NAME IS PRECEDED BY A SNOWfLAKE),
0367. If THE PRoGRAM Is FOUNO IT IS LOADED AND COMpILATION IS BEGUN,
1d368 75000
ORG LIBRA
SET c.;OUNTE:R TO
1d369 75000 061502
LOA FCNTR
0370 75001 00J0~~
CMA
l'S COMpLEMENT OF
NUMBER Of fILES
fa371 75002 071502
STA FCNTR
kl372 75003 002004
INA
PUT 2's COMPlEMENl INTO
kl373 750~4 070034
STA CHNP
SAfE KEEPING FOR LCD
LOAD
FIRST bUfFER AODRESS
~374
FCORE
75005 061232
LOA
~375
75006 065504
LOB FIL.Ta
LOAO POINTER TO
FIRST DISC ADDRESS (LO~ WORD)
0376 75007 044357
ADS ,+6
0377 75010 0J55~c CHN01 ISZ FCNTR
MORt fIL.ES?
0378 75011 002001
yES
RSS
NO •• flNISHE:O DUMPING BUfFERS
0379 75012 ~27027
JMP CHANk!
wRITE
0380 75~13 075236
STe feASE
OUT
fa381 75014 ~71647
STA RQJ
1i)382 75015 015516
~ECORD
JSB WRBUF
LOB FBASE
03 8 3 75016 065236
0384 75017 044365
AD~ ,+FTE~.4
0385 75020 160001
LOA 1,1
0386 75021 001423
ALR,RAR
0387 75022 003004
CMA,INA
0388 75023 044361
ADB .+7
038'9 75024 140001
AOA 1,1
03 90 75 0 25 044347
ADa .-3
0391 75026 02701~
JMP CHN01
0392 75027 064273 CHAN0 LOB MLINK+l
0393 75030 kl44341
ADa .+110.?LINK
0394 75031 074036
STb CHNI
-> US~R 10
0395 75032 044346
ADS .-1ID
CAN THERE aE
LOA b,l
FILES WHOSE
0 3 96 750J3 160001
0397 75034 01044 4
AND DfCHK
~CD'S NfEO
03 98 75035 002003
SZA,RSS
UPDATING?
0399 7503b 027044
JMP CHN17
NO
0400 75037 060034
LOA CHNP
GET NEGATIVE ~ILE COUNT
0401 75040 044356
ADS .+1~0
AND 10 POINTER
0402 75041 11743~
JSB LCOP,l
GP UPDATE LCD'S
0403 75042 002001
RSS
CORE NOT CHANGED (OVeRWRITTEN)
JS8 ROPRG
RESTORE USER AREA
040 4 75043 1i)160~7
0405 75044 160036 CHN17 LOA CHNI,l
GET USER'S !D
STA LTEMP
STORE IN LT[MP
0406 75045 070030
0407 75046 ~60347
LOA .-3
0408 75047 070034
STA CHNP
LOA TWOSP
1£1409 75050 063425
LOB OLTEM
04Ul 75051 064520
0411 75052
CHN00 EQU •
0412 75052 006004
INa
INITIALIZE
0413 75053 1700e1
STA B,I
NAME TO
dLANKS
0414 75054 03403~
lSl CHN~
0415 75055 027052
JMP CHN00
0416 75056 002404
CLA,INA
ALL.O~ STRING

PAGE
0417
041tJ
0419
042 10
10421
0422
0423
0424
0425
0426
0427
1d42tJ
0 4 29
0430
16431
0432
1d433
0434
lli435
0436
0437
16438
10439
10440
044 1
fl:)442
0443
0444
0445
",446
0447
0448
0449
0450
0451
0452
0453
0454
0455
0466
lli457
0458
0459
0460
0461
0462
0463
"'464
0465
0466
",467
0468
046 9

~J91

75057
75060
75061
75062
75063
75064
75065
75066
75067
7 50 7°
75071
75 0 7 2
75 0 7 3
7Sld74
75075
75076
75077
75100
7 5 101
75102
75103
75104
75105
75100
751~7

75110
75 111
75112
75113
75114
75115
75 116
75116
75117
75120
75121
75122
75122
75123
75 124
75125
75126
75127
75130
75131
75132
75133
75134
751J5
75136
75137
75 1 37
75140
75141
75142

#35

CHAIN

071472
01f>336
0()0350
015344
1071256
054351
027137
075410
065256
004065
16 000 1
002041
0~1'27

010443
0fH5416
1027116
050424
"02"~1

0 2 7122
060030
1d10602
006400
100400
kH'''437
1kJI0200
000437
064000
060732
01003'"
030001
002001
060612
070030
kJ35256
0J541fc)
061410
040361
01i12021d
002400
040343
f071410
0714~6

1i160520
002004
0010010
1071272
061004
01535fc)
0il7401d
061613
051334
02714/

STA EOL.
JSB fORMX
LOA ,-2
JSB PSTR
STA TEMP4
CPS ,-1
JMP CHAN4
STB TPt 6?
yES, 8ET TO 6
NO

OlSTINATION POINTER
UPPt:.H CASf. ONL.y
TRANSfER STRING
St:.T fL.AG FOR NO LINE NUMBER
E'NO OF ST.\TEMf:.r-..T'l

YES

PAGE
.,470
0471
"'472
0473
0474

0475
0416
0477

~392

#35

CHAIN

75143 "'15356
75144 015342
75145 k)65032
75140 006004

15147
75147 077426
75150 061577
75151 073427

041a

7515~

116005

",479
0480

00200t

10483

75153
75154
75155
75156
75157

0484

75160 002021

0485
0486
0487
048a
0489

75161
75162
75163
75164

0481
0482

0490
0491

0492
0493
~494

f427421
064035

044356
160001
027166
160036
050030

036435
75165 027421
75 166 036435
75167 03643fj
75170 044350
75171 161i!J001

0495

75172 002020
75173 027421

0496

75174 036435

JSB
JSB
L.UB
INS
CHAN5 EQU
STB
LOA
STA
JSB
RSS

FETCH

SBFIX
OVSRS

*

PKCNT
SPROG
INWRD
DL.OKP,I

J"'p CHAN7

L.D8 CHNPO
ADB .... 4
L.DA a,l
SSA,RSS
JMP CHN14
LOA CHNl,l
CPA l.TEMP
ISZ SCt1l..Q
JMP CHANl
CHN14 lSZ SCt1L.Q
ISZ SCt1L.Q
ADS .-2
L.DA 1,1
SSA
JMP CHAN7
lSZ SCHl..Q

0497.
1049a* IF ENTRY IS ON DISC, START SEEK
"499.
00 00 75175 044357
ADS ,.5
l.DA ~,l
10501 75176 160001
0502 75177 002002
SZA
0503 75200 02720;"
JMP CHN10
srA MWORD
0504 752r31 070215
L.OA B
0505 75202 060001
0506 75203 002004
INA
0507 75204 114212
JSB OlSCA,1
,,50a 752",5 102030
HL.T 3168
0509 75206 102031
Hl.T 3113

NO, GET 1..1N( NUMBtR

ROUNO TO !NrEGER
IL.LEGAL L.INt. NUM8ER
REAOJUST

SAVE THE LINE NUMBER
StARCH DIRECTORy FOR PROGRAM

PROGRAM NOT FOUND
CHECK ILL~srORED
PROGRAM FL-AG
STORED?
NO, CONTINUE
GET USER'S 10
DOES HE OWN THE PROGRAM?
YES, BUMP 10 Il.L.-STORED MESSAGE
NO, ~RINT NONEXISTENl PROGRAM
PAST SECOND ERROR
ANI) ERHOR 2,5
UN8UCCESS~ULL.Y

ENTRY IS A fILE:.
PAST THlfW ERRfJR

GET DRUM
ADDRESS
PRoGRAM ON DRUM?
YES, OON'T aOTHEH SEEKING
STORE 0 WORD COUNT
DlsC
ADDRfss ADDRESS
TO A REG
INITIATE SEEK
DRIvER BUSY
~l..OC~ OUT OF R'NGE

0~10.

0511·
0512*
05 13
0514
1r.)515
0516

10517
1r.)51a
0519
0520
0521
0522
0523

0524

FOUN~

CORRECT ENTRY. FIRST CHECK TO 8fE IF IT fITS

752°7 044344
75210 160001
75211 ~70~31
75212 VJ44354
70213 160001
75214 07004'"
75215 006004
75216 160001
75217 001665
75220 070041
75221 044361
75222 160001

CHN10 ADS ."'6
L.DA ~,l
srA LTEMP+1
ADB .+2
LOA 1,1
STA LIHSC
IN8
LOA 1,1
EL.A,CL.E,ERA
srA L.It;SP
ADB .+7
LI)A 1,1

.> FIRST WORD Of NAME:.

MOVt PROTE:.CTEU BIT
TO SAf'E PL.ACE
.> lHlRO WORD OF NAME
SAVE SEMI.
COMPIL.ED rt,.AG

SAVE STAR1"'OFPROGRAM POINTER
GET PROGRAM LeNGTH

I

PAGE 1393
0~2~

0526
0527
0528
0529
11'530
0531
0532
0533
0534
0535
0536
0537
0538
0~39

0540
0541
,,542
0543
0544
0545
,,546
0547
054 8
0549
11'550
10551

",552
1tt553
",5~4

0!)55
11'556
0557
0558
0559
0560
0561
0562
0563
0564
k1565
",566
0567
0568
0569
0570
0571
0572
0573
10574

"'575
0576
0577

.-3e

75223
75224
75225
75226
75227
75230
75231
75 232
75233
75234
75235
75236
75237
75237
75240
75 2 41
75242
75242
75243
75244
75245
75246
75246
7 524 7
75250
75251
7525 2
75253
75254
75255
75256
75257
75260
752 6 1
75262
75263
75264
75265
75266
75267
75270
75271
75272
75273
75274
75275
75276
75277
7531d0
75301
75302
75303
75304
75305
75306

CHAIN

070042
003004
040041
070045
003004
064040
006021
02 7?-;)7
0410462

002021
027246
027242
040654
002021
027246
060214
002020
027242
027421
036435
016°7 6
064035
044357
170001
044354
160001
0716"44

006004
10 4 2O",
100001

1044~0

000046
160034
07"'1lI72
060034
040360
1600010
064562
016231
027415
064273
0443.0
160001
070037
063427
170001
016047
064042
06004~

0102002
1027327
074215

STA CHNL.N
CMA,INA
AOA L.18SP
STA L.IBPB
CMA,INA
Loe L.IBSC
S8fh RSS
JMP CHN16
ADA L.fIIAUS
SSA,RSS
JMP CHN11
JMP CHN19
CH~18 EQU •
ADA LW97
SSA,RSS
JMP CHN11
CHN19 EQU
LLlA MBUSY
SSA
JMp •• 2
JMP CHAN7
CHNll EQlJ •
ISZ SCHLQ
Jsa DATE
LOB CHNPO
A08 ,+6
STA 1,1
AD8 "'2
L.OA B,l
STA CtiN!)
INS
OI.D 8,1

•

DST CHNOI

L.OA
STA
LOA
AU A
L.OA
LOS
JSB
JMP
LOB
A08
LOA
STA
LOA

srA

JSB
LOB
LOA
SZA
JI"IP
STs

CHNP,l
WORD
CHNP

COMPU1E FIHST
UNUSEO WORr.
~OMPU1E

NEGATIV~

SEMI-COMPIL.EO?
NO
OK
TOO ttlG

TOTAL LENG1H
COMPARE ~lTH MAX ALLOWEIJ
MAKE SURE
DISC URlvt:R
1:) THHOUGH
PROGkAM TOO LARGE
PAST FOURTH ERROR
SET NEW DATE
INTU
DIRECTORY
PROGRAI<1
DRUM Al)OR[:.SS

S~T

AL.SU
DISC;
ADDRESS
WRITE: LlIRECTORY
tUCK TO
DISC

.... 0

0,1
L.leO
ORUML
CAN'T, GO SET UP FOR SAL.VAGE:.
tHN16
MLINK+1 SET TO NULL PROGRAM
.... 'lPROG"''ll.l NK
B,l
SAVE. C;URRENf
CHNC
PROGRAM OOUNO
INWRO
1,1
ROPRG
R£AD IN fIXED AREA
CHNl..N
GET URUM AOIJRE,SS
CHNLl
PROGRAM ON ORUM?
CHN12
YE.S, GO GET IT
NOt
MWOHO

1£:)578
05 79
0580
",581
10582

0083
ft1584
0585
\d586
05 87
0588
0589
0590
0591
0592
",593
0594
0595
0596
0597
0598
0 599
,,600
0601
0602
0603
0004
"'605
",606
0607

753i'J7
75310
75311
75312
75313
75314
75315
75316
75317
,5320
75321
75322
75323
75324
75325
75326
75327
75330
75331
75332
75333
75334

13640.1
045036
063424
114212
11127312
102ff'!31
060214
002"'2'"
027315
002003
027334
064273
044340
060037
170001
027421
074072

064041
045036

"16231
027322
160036
15335 034036
75336 1664031
7!:i337 05003k'J
75340 0~5665
75341 174036
7~342

75343
75344
75345
75346
75347

0341036
104200
000032
104400

0()12."

SlT TO RUN

0613.",614
",615
0616
0017
0618
0619
0620

75352
75353
75354
75J55
75356
75357

0621
0b22

0()23
0624
0625
0626
,,627
0628
0629
0630

.-1

READ
PROGRAM

t1L.T JIB

fROM
L.OA MBUSY
5S A
JMP ... 2
5ZA,RSS
JMP CHN13
CHN15 LOB ML.INI\+l
ADB .+1PROG~?L.INK
L.DA CHNC
STA B,l
JMP CHAN7
Ct1N12 srB WORO
-> START OF PROGRAM
L.OB LIBsP
ADa BIl!5
READ PRO~RAM FROM DRUM
JSB DRUML
JMP CHN15
L.OA CHNl,1
GET USER'S 10
TO FIRST WURO OF NAME
lSZ CHNI
GET fIRST WORD
L.OB LTEMP+1
IF PROGRAM OWNER CLEAR
CPA L.TEMP
RUN.ONL. Y tH T
E.1..6, CL.E, EfH~
srB CHNI,I
STaRt. fIRST WORD OF NAME
SUMP POINTER TO NEXT ~ORO
ISZ CHNI
DL.D L.TEMP+2 GET L.AST 2 WORLS OF NAME
08T CHNI,l

STORE IN TABL.E

10003()

\d6e8
0J643~
0609 75350 01671':1
0610 75351 016655
06U.-

75360

L.oa L.IBsp
ADB B1115
LOA CHNOP
JSB DISCA,I
JMP

103100

1604257
160001
030372
030445
170001
10210k'
065577
054055
027404

75361
75362
75363
76364 !()6157~
75365 002003
75366 060056
75367 067426

75370 00602'"
75371 027376
75372 015314

lSi SCHI.,Q
JSB st.MlC
JSB ABCHK

ABORT ATTEMPT?

eL.F Ii'

LOB fIIAIN
LOA 1'1

lOR LJNABT
lOR CHNFG
srA 1,1
STF ~
LOB SPRO"
cP~ PsPTR
JMP CHAN9
LDA SYMTS
SZA,RSS
l.OA PtWTR
L.OB PKCNT
SSB
JMP CHAN6
JSB fNDPS

DON'T AL.L.UW
AttORTS
DURING CoMpIL.E
NUL.L.
PRUGRAM'l
YES

UNCOMPIL.ED?
YES, USE PI:JPTR
L.INt:. NUMBER
SPECIFIED?
NO

FINO REFERENCED

STATEMN~T

PA.~ "~90 .~O

0631
0632
0633
06J4
0635
0636
0637
1063H
0639
.,640
0041
0642
0643
16644
",645
10646
0647
064H
!a649
lr)05lr)
0651
0652
0653
lr)654
"'655
0656
0657
lr)65t3
16659
066",
0661
0662
0663
0664
0665
0666
0667
0668
0669
0670
0671*
0672

~-

75373
75374
75375
75376
75376
75377
7540113
75401
75401
75402
75403
75404
75405
754~6

CHAIN

027404
000000
002001
065577
1675334
036~35

060412
07 1573
026510
016656
000445
003000
064257
1163100
110001
17000 1
102100
0271401
164034
060034
040360
116016
0162147
016656
026510
000046
02004rl1
000"'00
000000
0lr)0000
07 3 J53

JMP

CHA~9

NOP
RaS
CHAN6 EQU

*
1..06 SPROG

8TB PHGCT
18Z SCHI..Q
CHAN8 EWU
LOA *.+408
STA BLANK

JMP

CHAN9 JSB
L.DA
CMA
Loa
Cl.f
AND
STA
STF
JMP
CHN16 L.UB
LOA
ADA
JS6
CHAN7 JSB
JSB

SAO LINE NUMBt;.R

DEFAULT LINE NUMBlR
SAVE FlRST STATEMENT

SCHtH~

ABCHI<
CHNfG

MAIN
75407
75410
0
75411
6,1
6,1
75412
0
75413
CHANe
75414
5
CHNP,l
7 415
CHNP
15416
75417
.+6
SALVP,l
75420
75421
ROPRG
A8CHK
75422
JMP
SCH8L.
75423
75424
CHNDP Of.F CHNDt
TWQSP ASt; 1,
75425
PKCNT BSS 1
75426
INWRO SSS 1
75427
75430
INCHH eSS 1
LCDP OfF LCD
7 543 1
00034
CHNP EQU L.TEMP+4
CHNPo EQU I.TEMP+5
00035
CHNI EQU I.TEMP+6
00036
EQU L.TEMP+7
CHNC
"'0037
EQU
CHNLN
LTEMP+10
002142
tQU LTEMP+12
CH~D
00044
CHNOI EQU LTEMP+14
00046
LTEMP+l!l 15 USED HERE AI,.SO
75432
!CHN EQU *

CLEAR

CHAl~

f'LAG

READ ~ACK USf.R PROGRAM
ABORT ATTEMPT?
NO

11:1002* THE SAVE COMMAND IS USED TO SAVE PROGRAMS IN THE USER LIBRARY.
10003. THE PROCEDURE IS AS fOLLOWS.
0004*
1) CH~CK THAT PROGRAM IS LISTA~LE (OR IO-Ae00), HAS A NAM~,
IcH"0f)*
AND ISN'T NUL!..,
~006*
2) DECOMPILE,
0007.
J) CHECK FOR lOT OR AOT OVERfLOW.
0008*
4) CHECK fOR OUPLICATELY NAMEO PRO~RAM.
0) UPDATE DIRECTURY.
0009·
6) UPDATE lOT AND AOT,
0010*
IO.H 1.
7) MOVE PRoGRAM TO LIbRARY AREA.
0012.
khl13. STEP 5 IS WRITTEN AS AN OVERLAY, WHICH IS CALLED WHENEvER THE PAR"HH 4. TICULAR OIRECTORY TRACK NEEDEO IS ALREADY fULL. ITS JOe 18 10 GAR.
0015. SAGE CoLLECT THE DIRECTORY 1RACKS,
0017

75000

~019

75000
751001
15002
75003
75004
75005
75006
75007
75010
75011
75012
75013
75014
751015
7 5 016
75017

064273
044341
0 7 4050
1/;144351
074042
0 44 35:
074043
10 42 00
100050
006002
054570
027557
164042
060337
k154702
027500

75020
75021
75022
75023
75 0 24
7 5025

016047
064042
1644347
160001
01°354

0020
0021
0022
10023
0024
0025
rtH~26

10027
0028
10029
16030
0031
0032
0033
0iJJ4.
10035
0036
0037
ii)038
003g
0040
16041
0042
01043
0044*
01045
0046
01d47
004tS
01d49
16050
ii)051
0052
ii)053
0054

ORG lIBRA

0020~J

027044
75027 0271d43
75030 000001fl

L.DB
A08
8Te
ADa
STB

ADe
STe
01.0

sze

CP8
JMP
LOB
LOA
CPS
JMP

7~044

06557r

75045
75046
75047
75050
75051
75052
75053
75054

054702
015520
0641056
174042
00lld04
045221
074072
1010043

TEST FOR NO PROGRAM
ASCSS
SAY;'
8AVP,I

SAve

SAV5

~AME

TEST FOR NUI".L PROGR"f-I,

,..,11

PBUff
SAV4

Jse

7502b

75 0 43 015J2i

MLINK+l
B->LINK WORe.
,+?ID ... 1Ll~K 10 L.DCN,
MOVES
,+'lPROG-11D
SAVP
,+101SC ... ?PROG
SAVO
J-IOVES,l
A-IOdhIST ~ORO OF NAME.

ROPRG
HEAD PROGRAM TO CORE,
TEST fOR COMPIL.EO,
L08 SAVP
AD8 ,.1FLAG~?PROG
LOA 1,1
AND CfLAG
SZA,RSS
JMP SAV5
NOT cOMPILED.
JMP SAV5 .. 1
ROOM fOR CS;\Vt: CODE
BSS 11

JSe

DCMPL

LOB SPROG

CP8 PBUFf
JSfS ALeOM
1..08 PsPTR
81B SAVp,I
CMB,INe
A08 usE
STB WORD
LOA sAVO,I

DECOMPILE tT,
COMMON
ALLOCATED1
NO •• L>O IT
RESET PROGRAh1 BOUND
INTO TABLE
COMPUTE #
Of ~ORDS
GET URu'"

AOl)R~SS

005 5
k,,~56

0057
0058
ll'''.59
0060

0061
0062
0063

0064
0065
0066
00 67
0068
0069
0070
0011.

0072
0073

0074
0075
0076
0077

0078
0079
Wl080
16081
0082
0083

0084
0085

0086
0087

75 0 55
75056
75057
152160
752161
75062
75063
751166
751\')7
75110
75111
75112
75 113
75114
75115
75116

01031 7
170043
065221
016231
026071

027106
0210000
164042
1607004
045577
1374040
UHtaJ0
00 7 210 4
076025

1665577
07404c

75117 016107
75120 044361
75121 160001
75122 042025
75123 003004
75124 044351
75125 000040
75126 1421001
75127 002040
751J0 2127147
75131 067134
75132 06 0 327
75133 02643 2
75134 075135
75135 005114
75136 044502

AND MJ2
STA SAVD,l
LO~ USE
JSB ORUM!..
JMp RDpRJ
SAV50 JMP SAV51
BSS 19
SAV51 LUB SAVP,l
CMB,INS
AO~ SPROG
STS SAV"O
ASR 8
CM8,INB
STS SAVLN
LOB SPROG
STB SAVP

SAV9

8ET SACK TO SWAP
TRACK ORIGIN
WRITE OUT
TO DRUM
GO OUMp TH1S lLL.FATlD

US~R

ROOM fOR CSAVE CODE
COMPUTE
PRO'RAM
LENGTH
SAVE IN
N£GATIVf ~OROS AND
POSITIVE.
BL.OCKS
SAVI:. START .. OF ..
PROGRAM POINTER

JSI3 RDIDT
R~AO IN AN 10 TRACK
ADS .+7
GET DISC USED TO DATE,
L.DA 1,1
ADA SAVLN
GET TOTAL AMOUNT TO
CMA,INA
USED AS A NEGA1IVf QUANTITY
ADS ,-1
eLf
AOA 1,1
st:.z
JMP SAV6
OK.
L.DB *+J
LOA _... 19
JMP L.IBI:.R
DEF .+1
OCT 5114
LF"L.
ASC 9,lSRARY SPACE fUL.L

75137 051101

75140 0bl)31
75141 02~123
75142 050101
75143 041505
75144 020106

75145 052514
75146 046ld40
1608&.

0089* SEARCH ADT FOR SPAC~ TO PUT THE PROGRAM,
0190.
SAV6 EWU.,..
00 9 1 75 147

0092
009.3
16094
0095
0096

75147 061d342
751516 070"44
75151
75151 062010
7~152

01d2~04

0097

75153

0~J601

0098
0099
0100
0101

75154 06J60k)
75155 072010

75156
75157

04~J62
~7~04J

LOA
STA
SAV8A EwU
L.UA
INA
CPA
LOA
srA
AOA
STA

,_8
SAVOr

SET COUNT Of POSSIBLt:. DISK AOTS

RKCYP

_ET CYCLIC POINTER

*

AND ADVANCE
EALNA
IT TO THE
EALCA
NEXT EN1RY
RKCYP
IN THf TA8LE
,+OADLN.UAOLC .~ LENGTH WORO
SAVO

0102
10103
0104
0105
01"'6
0107
0108
0109
0110
0111
0112
!d113
0114
111115
111116
0117
ro118

0119
!d120
0121
0122
1d12J
0124
0125
0126
0127
012tS*
0129
0130
0131
0132
0133
0134
1d135

1~160

75161
75162
75163
75164
75165
75166
75167
75170
75171
75172
75173
75174
15175
75176
75177
75177
75200
75201
75202
75203
75204
75205
75206
75207
75207
75210
75211
75211
75212
75213
75214
75215
75216
75217
75220
15221
75222
75223
15224

160043
002003
027207
070072
162010
064566
016231
027207
007400
160043
100400
000356
070041
064ti62
044354
160001
0031"0
042025
002041
...,27244
044355
034041
027177
034044
027151
060332
067214
026432
075215
005 123
~54523

JSB DRUML

JHP SAvaF

eca

LDA SAVO,l
Div ,+3

STA SAVC
LOB LIBD
AOS ,+2
SAveD EQU *
L.OA 8,1
CHA,CI.E
AOA SAVL.N
SEZ,RSS
JMP SAV7
AOS ,+3
lSZ SAve
JHP SAV8D
sAVBr EQu •
lSZ SAVDF
JMP SAV8A
SAV2J EQU
LOA
L,U8
JHP
OEF
OCT
ASC

IS ThIS OISK AVAll. AB Lt
ZERO SEZ NO AOT TA8L.t
sa wE A~VANCE TO NEXT DIsK
OTHERwISE, SAVE I.ENGTH
GET-DRUM A~D~ESS OF ACT
READ IT IN
DRUM ERROR,
COMPUTE THE
ENTRY
COUNT

~41501

TRACK FOW

SKIP IF TOO SHORT
"UlCHA
ADVANCE TO NfXT ENT~y
OEtHEMENT E~TRY COUNT
PROCESS NEXT ENTRY
PROCEss NEXT TRACK
TRIED AI.l. DISKS FOR ROOM?
NO, TRY THE NEXT ONE

*

,-16
*+2
LIBEf.<

NO~

TEST THIS ENTRy FOR SIG ENOUGH

PRINT "SYSTEM ovERl.OAO'

."'1

I.F-S
512J
7,VSTtM OVERI.OAu

~40504

75240 052105
75241 020105

I~NORE

AND SAVE
.:. FIRST ENTRY
II> L.ENGTH wORO

0521fj5
0464410
0475:lb
042522
11146117

0136.
0137 75225 000214
l1138 /5226 0ro202!d
01 39 75227 027225
1.1140 752J~ \160332
0141 7~231 067233
r;J142 75232 026432
0143 75233 075234
0144 75234 0051°4
0145 75235 052520
75236 046111
7~237

lOA SAVO,l
SlA,RSS
JMP SAV8F
STA wORD
L.OA RKCYP,l
LOB L.IBDI

SAV12 LOA MBU5Y
MAKE SURE
DISC IS
SSA
JMP *",,2
rOL.E
LOA ._t 6
L08 *+2
JMP LI8t:R
uff *+1
(JCT 5104
l.F-D
ASC 7,UPL.ICATE ENT~y

PAGE 0399 *36

SAVe.

75242 047124
75243 fd51i31
~~-

151"6*
0147
0148
0149
015(d
0151
01 5 2
0153
01 54
01 b5
0156
0157
0158
0159
0160
"'161
8162*
01 6 3
0164
0165
0166
0167
~U68

ilU69
0170
0171*
ru72
0173
0174
0170·
16176
0177
0178
fU·79.
0180
0181
ru82
0183
0184
0185
0186
0187
"188
IUI9.

019"
0191
0192
0193
0194
0195
01 9 6

75244
75244
75245
75246
15247
75250
15251
75252
75253
75 2 54
75255
15256
75257
75260
75261
75262
75263
75264
75265
75266
75267
75270
75271
75212
75213

SAVl
062026
1303004
140001
070044
044350
074041
1°42 00
1~0001

10440 "
0160036
006400
0741215
063603
1141212
10203",
1162"'31
00240'"
070045
06052~

070051
064346
016257
021275
00(D0Sk'!

75275
75275 1160k'e>
75276 027225
75277 164034
75300 054714
75301 027573
75 302
75 303
75304
75305
75306
75307
75310
15311
75312

007000
k'!4456 2
074050
044366
074051
007000
044402
044035
01624J

75313
7531.
75315
75316

0606211l
070050
060035
040366

7b317 070051

75320 064346
75321 016267

EQU ..
L.OA SAVl.N
CMA,INA
AOA 8,1
STA SAVOF
AOti .-2
STB SAVe
OL.L> B,I

SAVE L.OCAI'IUN Of
OlSK Auf UHRY
GET DISK AUCRESS

08T SAVOS

AND SAVE

Cl..~

START SEEK
TO CORRfeT
DISC (WITH A "C")
AODRESS
DRIVER BUSYI HAL.T
DISC NOT PRESfNTI HALT

8TB MwORO

L.OA
JSB
HLT
HL.T
CL.A
STA
L.OA
STA
L.OB
Jse
SAVUI JMP
BSS

SAVOP
01SCA,1
J"e
318
BAVOU
OL.TEM
MOVED
._4
MOVt:W
8A V11

SAVE
NEGATIVE. NUMBER OF
SECTOI(S L.EFT

-

SET DRUM
DRUM AOORfSS
MOVE ID/N~ME ENTI(Y TO
L.TEMPC"'3).
ROOM FOR CSAVE CODE

2

.

SAV11 EQU
JSe OI..OKP,I
JMP SAV12

SEARCH FOR ENTRY
ENTRY FOUNp--ll..lEGAL.

L.UB SAVi,l
Cp
M8184
JMP SAV~8

If TRACK 15 fULL., GO DO
OVt.RL.AY eECT1ON,

CM~

SET UP SOURCE FOR
MOVE.

ADS
STB
ADij
STB
CMB

1..160

MOvES
.+12
MOVED

ADa ,+24

SE.T Up OE:n INAT IUN
COMPUlE L.ENGTH,

AOB SAVS
JSB MOVt.B
I.. UA
STA
LOA
AUA
STA

DLTEM
MOVES
SAVS
,+12
MOVED
Lot; , .. 4
JSB MOVEW

MovE 5 WUROS IN FUR
NEW ENTRY,

PAGE
0197
1019~

0199
10200
~201

0202
0203
fc1204
fc1205
0206
10207
fc120~

1a20 9
0210
1a211
0212
0213

~4':.10

75322
75323
75324
75325
75326
75327
7533fc1
75331
75332
75333
75334
7 5 335
75336
75337
75340
75341
75342
75343
75344
75345

.36

SAvE

0600"2
170051
016076
03 4 0 51
170051
034051
060201
170051
034 0 51
0024~HO

170051
034051
10"200
000036
104400
100051
064051
044355
0b0040

170001
02Uh·
0216 75346 160034
0217 75347 040336
021~
75350 170034
0219 75351 070072
fc1220 75352 1060034
ft:l221 75353 k'020k14
fc1222 75354 070001
ft:l223 75355 040357
fc1224 75356 160000
ft:l225 75357 ~6456~
ft:l226 75360 074050
ft:l227 75361 016231
1d228 7b362 116017
022fi.
ft:l230 75 3 6 3 06 434 6
1a231 75364 ft:l162tr)7
0232.
ft:l233 75365
10234 75365 0l6U;!
",235 75366 0 44 361
0236 75367 062025
ft:l23 7 753 70 14 0 ft:l01
023~
75371 1700101
10214

02Jg"
02 4 0
k'241
0242
0243

75372
75373
75374
75375

"'245.
0246
ft:l2"7
ft:l248
0249

75376 1601a4J
75377 070072
75400 l620i~
754101 064566

0244.

16 00 75
,,64562
fd16231
l161()17

LU. SAVP
STA MOVED,l
JiB DATE
15l MOVED
STA MOVED,l
ISl MOYED
LOA OATlH
STA MOVED,1
liZ MOVED
CL.A
STA MOYED,l
ISZ MOVED
DL.D SAYDS
DST MOVflJ,l

STOHk ST~~T.OFPROGRAM POINT~R
STaRt DATE IN ALSO,
LAST REFERENCE DATE
GET HOUR OF YEAR
LAST CHAN~E DATE
CL.fAR DRUM I:ODRfSS

(wO~O

GET OISK ADDRESS FOR
WORIJ5 8 AND 9

1..06 MOYED

AOa .+3
LOA SAY~D
STA &,1
LOA
ADA
STA
STA
LOA
INA
STA
AOA
LOA
LOB

SAYlrl
,-12
SAVI,1
WORD
SAyl

MOVED
.+5
0,1
L.IBD
sre MOVES
JSB DRUM!.
JaB DEAOP,l
l.OB ,_4
JSB MOvE,..
SAV21 EQU
JSe
ADB
LOA
ADA
STA

•RDIOT
,+7
SAYI..N

s,I

1,1

l.OA IOL.~~,J.
L.OB L180
JS8 DRUML.
JSB DEADP,l
L.OA
STA
LOA
LOB

SAVD,l
WORD
RKCVP,l
LIBI)I

•• WORD 11
GET THE I..t:.NGTH wORD fOR
WOt
15436
75437
75440
75441
75442
75443
75444

e2,.,. 75445

104200
10004111
00004110
046025
00204110
002004
110440(0
100041
064041
044354
060044
170001

0289

0290
fd291
0292
029J
lIa'4*
0295
0296
",297
0298
0299

75445 162010
75446 064e62
75447 01~231
75450 027425
75451
75452
75453
75454
75455

IJII.
0301 75477

0302

016 0 47
060040
070215
021471
00000~

75477 063603

ADT TRACK AGAIN
CAN'T, MAKE IT DISAPPEAR
AOT ENTRV COMPLETELV USED?

J"P SAver-

NO, attOR'fEN 1 T

LOB
STB
ADe
STa
AOB
Aoa

YES, REMOVE IT

SAVC
MOVED
,+3
MOVES
ML.lSD
WOR!)
JSB MOVEw

LOA .+J
LOB 8AVO,1
AOB A
STa 8AVO,1
AOA WORD
STA WORD
JMP SAVCG
SA,,30 CL.A
STA SAVD,1
8TA RKeyp,l
JMP SAV31

•

SAVCF EQU
OLD SAVe,l
CLE
ADS SAVL"N
SEZ
lNA
OST SAve,1
L.OB
ADa
LOA
srA

SAve
,+2
SAVDF

B,l

SA"eG EQU •
LOA RKeVP,l

Loa
Jsa

1..1130

ORUML.
JMP SAV30

SAVJ1 JSB
l.oA
STA
SAV2<4 JMP
BSS

ROPRG
SA~Wo

MWORD
SAVae
18

•

SAV2S e:WU
LOA SAVOP

sE.T UP POiNTERS FOR MOvE
CAL.CUL.ATE, THE NEEDED
WORO COUNT
SHORTEN THE APPROPRIATE COUNTS
SHORTt:.N IHE TABL.t: ENTRV
AND THE DRUM DRIVlR COUNT

ZE.RO L.ENbTH
ZERO AODREes

MOVE UP THE OISK

ADO~tSS

By SAVL.N ijLOCKS
CHECK FOR OVERFLOW

AND UPDATE THE COUNT

.> L.ENGTH WORD

GET SAVEO L.ENGTH
AND PLlIG IN
GET DRUM ADDRESS
AND WRITE THE DISK APT
BACK TO THE DRUM
CAN'T, MAKf IT OlSAPPEAH
REAU USER PROGRAM AGA1N
~RITf IT O!H,
TO LIBRARY
ROOM FOR CSAVE CODE

PAGE 04162 #36
"'303
0304
0305
03 0 6
0307
0308
03 09
031 0
0311
"312*

16313
0314
16315
0316
0317
VJ318
0319
0320

VJ321
0322
16323
0324

0325
VJ326
0327
16328
0329
0330
16331
0332

SAVE

75500 0646';142
75501 114212
7~502 021501
75503 10203\
75504 060214
75505 0ft12020
75506 027504
75507 0020ft1J
75510 026226
75b11 11600~
75512 002001
75513 102032
75514 064035
75515 044356
75516 16000~
75517 031036
75520 170001
75521 060034
75522 040360
75523 160000

75524
75525
75526
7 55 27
75530
75ell
75532
7553J
75534
75535
75536
75537

064562
016231
027553
106 3 6 215
067532

026432
0755JJ
005125
04 71 23

LDS SAVP
JSB DIstA,l

JMP ".1

Hl.T Jl~
\..OA MBUSY
55A

JMP •• 2
SZA,RSS
JMP LL.END

WHITE TO DISK
TRY AGAI~ IF ~USY
DISC NOT PRfSlNTI HAL.l
WAIT FOR
lHANSFEH TO
COMPL.ETE
TRANSFER SUCCESSfUL.?

JSB DL.OKP,I

NO, .0 GET DIRECTORY ENTRY AGAIN
fOUND IT
H",T DEATH+32B NOT FOUND: TROUBL.t
RSS

~ET POINTtR TU ENTHY
LOB LTfMP+5
.> END OF COMMON POINTER
ADB .+4
SET tHT 15 TO
L.DA a,l
INUICATf 8ADL.Y SAVED
lOR B1T15
PHOGRAM
5TA B,I
WRITE OUT
LOA LTfMP+4
ADA ,+6
OlHf:.CTORY
THACK
L.OA A,I
L.OB \..180
JSB ORUML.
BL.EW IT, THY TO SALVA~E
JMP SAVJ2
LL>A 8M31
LOB ·+2
JMP LISEH
PRINT FAILUIU.
DiF .+1
LF.U
OCT 5125
ASC 15,NSUCCESSFUL; KIL.L AND REPEAT,

0f)250~

6';1415(15
051523
75540 043125
75641 1046073
75542 02011'"
75543 044514

75544
75545
75546
75547
75550
75561

75552

11146040
040516
042040
051105
051c)10~

0411)524
0271d40
060034
040361d
064072
116016
166 0 332
12161562
026432
075563
005116

0333 75553
0334 75554
16335 75555
10336 75556
0337 75557
16338 75560
0339 ' 15561
16340 75562
0341 75563
",342 7556,4 047441C1
75565 050122

SAv32 LOA
ADA
LOS
JSa
SAVj LOA
SAV4 LOS
JMP

LTfMP+4
.+6

WORD
SAL.VP,l

GET PUINTER TU
OHUM ADL>RESS
GET lkACK LEN~iH
GO GRAB A NEW TRACK

.-1 6
*+2

LIBER
Dt" .+1
uCT 5116

LF.N

ASC 7,0 PROGRAMNAMf

PAGE. 0403 .36

0343
0344
0345
0346
0347
0348
0349
0350
k)J51
03'52
0353
0354
"~55.

---

'-"",-","-

75566
75567
75570
75571
75572
75573
75573
75574
75575
75576
75577
75600
75601
75602
75603
75604
75605

SAVE

047G07
051101
046440
047101
046505

063604
070072
163602
064504
027773
000115
0100:25
072044
000036
177005
17774!

SAYge EQU
LOA
STA
LOA
L08
ttlMP
t:AI.CA OEF
EAL.NA OEF
SAVOY OEF
SAVOP OEF
SMS07 DEC
5M31 DEC

•

SM507
~ORO

SET UP
OV£'RL.AY,

8AvOv,1
.1..161
SAY99
OADL.e
OADL.N
5Avo+eOM6.COMJ
SAVOS
DISK ADDRESS
.1507
.31

,,>

0356
k)357
0358
0359
0360
k)361
0362
0363
0J64
"365
8366.

00034
00035
00036
00040
"0041
00k)42
0"043
00044
00045
74025

5AVI
EQU L.TEMP+4
SAVS EQU L.TEMp+5
SAVDS ~QU LTEMP+6
SAV~D EQU L.TEMP+8
SAve EQU L.TEMP+9
SAYP EQU L.TEMP+10
SAVO EQU L. TEMP+ll
SAVOF EQU L.TEMP+12
5AVDU EQU LTEMP+13
SAVL.N EQU TJ5CQ

0366
0369
0J7",
0J71
k)372
0373
(d374
",J75

75773
75773
75773
75774
75775
75776
75777
76000

SAV99 EQU
JS8
JSB
JMP
JMP
JMP
$SAV EQU

6 & 7 ARE THE DISK

ADO~ESS

L.ENGTH IN WORDS OF PROGRAM

e361.

°RfI L.18RA+5"7

016231
116 0 15
027000
027365
027211

*

ORUMl
SICKP,l

CAL.l IN OVEP./.Ay
8L.E~ IT, flO HOME QUU. TlY

Ll~RA

SAV21
SAV23

*

NORMAL. RETURN
ERROR RETURN

PAGE 0404 #36
"377.
0378.
113379*
0J8'h
0381
!d382
0383*
0384
0385
0386
"387
"388
"389
0390
"391
0392
0393
113394
0395
0396
0397
0398
0399
",400
0401
1d402
0403
04"4*
0405
0406
0407
0408
0409
0410
0411
10412
0413
0414
0415
1d416
0417

CSAVt

THE CSAVE COMMANO IS USED TO SAVE PROGRAMS IN THE USER L.lijRARY
IN SEMleCOMPlLEO FOHM. CSAVE BORROWS CODE FROM SAVE AND MUST
FOLLOW IT,
75000
75000 06427;)

ORG LJ8RA
L.OB ML.1NK.l

75025
75025
75026
75027
7503Vl
75031
75032
75033
75034
75035
75036
75037
75040
75041
75042
75043
75044
75045
75,,46
75047

ORG
SZA
JMP
LOB
CPS
JSe
L08
ST8
LOA
STA
CI.A
STA
JMP

75062
75062
75063
75064
75065
75066
75067
7507ru
75071
75072
75073
75074
75075
75076
75077
75100
75HH
75102
75103
75lld4
7 5 105
75105
75106

"'~20~2
027"~2

065577
054702
015520
065577
075334
060412
071573
002400
071570
127"41
,,36071
06123 0
002002
015522
002400
071230
065504
,,65504
04436'
007004
044462
006021
02711135
060330
!d67073
026432
075074
005120
051117
043522

SAV",
CSAy1
SPROG
PBUFF
AL.COM
SPRaG
PRGC;T
,+406

BLANK

SYMTB
•• 1,1
OfF CMP00
CSA Y1 LOA SPTR
SZA
JSB RSTPT
C~Ay2

CL.A

STA SPTR
LOB FIL.Te

ORG SAV50
LOB FILTe
ADB ,+7
CMB,INa
ADe LwAUS
SSe,RSS
JMp CSAV'LOA ,-18

COMPILEO?
yES
NO, COMMON
ALL.OCATEDi
NOe_DO IT
SET PROGRAM
COUNTER
TURN ON
B~ANK

SU~PR~SS10N

CL.EAIi( OUT ... OF

8TURAGE FL.AG
(10 COMPILE IT
SEMI"COMPILED?
RESTORE SV~8QL TABLE POINTERS
fo·LA" AS
8EM1-COMPILt.{)

TOO BIGi
NO
yf.S

LDe .+2
JMP LIBfR
OiF .+1

OCT 5120
LF.P
ASC 8,RO~RAM Too LARGE

i'~UUHo

·02k1124
047517
020114
040522
~43505

0418
1d419
065504
044361
"420
0421.
0422 75272
"423 75272 060"'3;'
0424 75273 0311d36

CSAV4 EQU •
LOS FILlS
ADS .+7
ORG SAV10
LDA LTEMP+3
lOR SIT15

FLAG NAME
TU INDICATE

PAGE 0405 *36

CSAVE

".25,

75274 0721033

STA l.TEMP+3

0427
0428
0429
0430
04Jl
21432
1d433
113434
0 43 5
k1436
04J7
0438
k143 9
214421
0441
0442
0443
0444
0445
k1446

75454
15454
15455
75456
75451
75460
75461
75462
75 4 6J
75464
75465
75466
75467
7547"
75471
75472
75473
75474
75475
75476

OHG SAV24
LOA FIL.TB
l.De SYMTS

SEMl.COHPlL.EO

21~16.

---~-

2161504
2165515
174e0"
0022104
0656216
114000
2164452
075605
1064346
0752321
0020214
165605
174e0e
2135600
035230
2127466
21022'214

06b6e7
1741r321ki

aTe

INA
l.DB
STB
L.OB
STe
L.OB
8Ta
J
CSAv INA
L.OB
iTa
tSl
ISl
JMP
INA
LOB
eTe

0,1

FILCT
~,I

DFIL.T
FILPT
.4

APTR

.> FIRST WORD AFTER SYMBOL TABLE.
SAvE END-OF
PROGRAM POINTER
SAVE * OF
cFILES STATEMENTS~
lAVe:
POltHERS

FIL.PT,l

0,1

FILPT
SPTR
CSAV3
USESN
21,1

TO  DIRECTORY ORUM ADDRESS
GET IT IN Sf

ADA ._6

SZB,RSS
JMP SUP2

0f1J~1*

0039
0l1J40

GET fIRST DIRECTORY TRACK pTR

75043 067651

0053

75044 044360

0054

75045 160001

LOB SOIRItl

SUP4

Aoa ,+6
LOA 1,1

INCREMENTlNG OOUBL.E WORD QUANTIT
BUMP DIRECTORY TRACK COUNTER,
~AST

DIRECTORY TRACK?

yt:.8
NO"·~O

To NEXT UNE.
#

Of DIRECTORY WORDS,

TEST FOR fULL. UP.
INCRt:.ASE # OF ENTRIES/T~ACK By 1
ANO SAVE IN S,
L.ET 8 COUNT HOW MANY WILL HAVE
THIS LARGER SIZE.
ijET poINTER Tu FIRST TRACK AGAIN
POlNT TO ITS DIsC ADDRESS,

PAGE
~055

0056
0057
0058
0059
"060
0061
0k'62
0146J
01464
0~65

~4~7

75046
7ti047
75050
75051
75052
75053
75054
75055
75056
75057
75060
75061
75062
7506J
75064
75065
75066

0066
0067
0068
0069
0070
0071
14072* TABLE
007~"

fiU.74*
0075
0076
0f177.
14078*
0079.
Ifl10.
0081
0082
0083
0084
0085
01486
0087
0088
0089
0090
00 9 1
0092
0093
0094

kH~98

0099
0100
0101
14102
~103

1d104
0105
8116
0107
0108
0109

SUPERSAVE

002003
027060
037661
002001
037657
063657
00102"
073656
001000
043656
173662
044344
057652

SUPS

~27067

044367
03 7 562
027045

SZA,RSS
JMP SUP5
ISZ SUPB
RSS
ISl SUPS
LDA SUPS
ALS,ALS
STA SUPS.1
ALS
ADA SUPS-I
STA SUPP,I
AOB ,-6
cpa SOIRL
JMP SUP6
AOB ,+lJ
liZ SUPP
JMP SUP4

NN NOW CONTAINS
YRACKS,

TH~

NEW

IF " DON'T

G~VE

IT ANYTHING,

TEST fOR ANY MORE BIG TRACKS,

yES •• CONIT SwITCH.
SWITCH TO SMALLtR SIZE
'ET -. OF ENTRIES ON TRACK,
CONYERT

*

4

TO WORDS,
., 12
STORE IN HSL.E,
TEST FOR 0 0 ~J E. ,
BUMP TO NEXT TRACK.
BUMP TABLE POINTER ALSO,
L~N~THS

OF THE 4 01-

~ECTORY

75067 063641
75070 073662

SUP6

LOA DEFNN
STA 8UPP

SQUEEZE ALL THE DIRECTORY

ENTRI~S

SE T UP POl~HfR
TO NN AG.IN.
ONTO THE

LA~TMOST

OF THE

AVAILABLE TRACKS,
75071 063652
75072 073664
75073 040J6~
75014
750/4 164000

75075
75076
75077
75100
75101
75101
75102
7510;$
751134

..•
,.
0096 75105
0097

#37

75106
75106
751e17
75110
75111
75112
75113
75114
75115
78110
75117
75120
75121

006002
027HH
1340343
027074

LOA SDIRL.
8TA SUPK1
ADA
SUP20 EQU
L.De
aZB
JMP

(;ET ADDREss
ZERO?

SUPa1

ADA ,_7

040344
073666
00240115
07J665
063564

LOA SUPKI

._6

SUP22 EQU

TR~CK

FOR READ

,+6

."
A,1

JMP SUP20
SUP21 EQU ."
ADA
sTA SUP!..1
CL.A
STA SUPK2

16400i6
006 0 03
0272J7
047660
047647
006020
027146
164000
11.172
047665
077665
044530

.> 1ST

*

NO

yES

.> FOR1ST WRIIE
TRACK

#I Of' WORDS

IN

ijUfF~R

L08 A,l
SZB,RSS
JMP SUP27

(;ET ~ENGTH
ZERO?

AOB SUpK2

NO, ADO IN

yES

ADa 58184

sse

JMP SUP23
L.oa A,1
81B WORD
ADB SUPKa
STa SUPK2

ADS L.ULEN

fO~

* of

:.81 84 1
YES

NO, SET
LiHfiTH

UPDATE # OF
WORDS IN CORf.

READ
WORDs IN BUfFER

PAGE 0408 *37
0110
"'111
0112
0113

0114
0115.
0116
0117
0118
0119
0120
0121
ill 122
0123
0124
0125
0126
0127
0128
0129
~130

IU31.
0132
0133
0134
0135
01 36
!d137
013a
0139
0140
"141
01 4 2
0143
0144
!d145
1(.1146
0147
014d
0149
0150
"'151
"152.
0153
0154
"155
0156
"'157
1d158

75122
75 123
75124
75125
75126

SUPE:.RSAVE

0452136
040360
1600016
016231
116017

75127 06366'
751316 050714
751~H 002001
75132 027237
75133 107001'2
15134 067666
75135 170001
75136 044360
15137 1600211
75140 067650
75141 016231
75142 116017
75143 00641a"
75144 077665
75145 02722~
75146
75146
75147
75150
75151
75152
75153
75154
7 5 155
75 156
75157
7516"
75161
751 6 2
75163
75164
7516ti
75166
75167
75170

0070la4
005121
005121
(605121
077671
0067210
""5222

077 6 71/)

144 000
0 7 4072
047665
04453rd
074",5"
~45036

040360
160000
04J671
016231
116017
1c)607l4
070072
067666
170001
044360
160ldrdl
1c)67b50
016231

0160
rd161

75171
75172
75173
75174
75175
75176
75177
75200
75a81

0163
"'164

75202 06765 0
7520J 0rd7004

fcHb9

ruea.

116~17

ADa
ADA
L.OA
JSB
JSB

BITH>
,+6
A,l
DRUML
DEADP,l

L.DA SUPK2
CPA M8184
kSS

JMP
STA
L.DB
STA
AD8
L.DA
LOB

SUP27

CORE ADDRESS
DRUM AOORE-S8

EXACTL.Y 810.
yES
~o

WOR~

SUPL.l
ij,l
,+6
a,l
X21c156
JSB DRUML
JSB DEAOP,I
cL.s
STB SUPK2
JMP SUP24

SUP23 EQU •
CMB,IN8
BHS,BRS
aRS,aRS
aRs,aRS
STS SUPES
SL.F
RSL,R8L.
STB SUPEX
ADe A,l
STe WORD
ADS SUPK2
AU S LULEN
STB MOVES
A08 aIT15
AOA .... 6
LOA A,1
ADA SUPES
J8B DRUML
JS8 OEAOP,l

SET L.ENGTI1
IN OIREC
DRUM AODRt:~S
CORE ADDRESS
aUFF~R

NOW EMPTY

COMPUTE
• OF
t.XTRA
SECTORS
• OF
EXTRA
WORDS
• 01" wORDS
TO READ

CORt: AOORESS
DRUM AOORt:,SS

L.DA Me184
STA WORD
1..013 SUPL.l
STA B,l
ADS .+6
LUA a,I
Loe X2056
J8B ORUML.
JIM DEADP,1

#

LDB X2056
CMs,lt-.a

#

OF WORDS

TO

WR 1 H:.

SAVE IN DIRt.C
OHUM ADDRESS
CORE ADURt:~S

Of
EXTRA

"ORDS1

PAGE 0409 "37 , SUPERSAVt
752kJ4
75205
752wHi
7521r:17
75210
75211

04405"
07766b
0tHtJ5J0
07"051
016257

ADe MOVf.S
STB 8UPK2
LDA t..ULEN
ADA e
STA MOVED
J86 MOVEW

0172
0173
IU74
0175
0176
"177
0178
0179
018O
kJ181
0182
0183

75212
75213
75214
75215
75 216
75217
75220
75221
75222
70223
75224
75225

067670
007004
074072
"47665
07766 5
044530
04H036
063664
040360
16 00 00
016231
116017

LOB SUPEX
CMB,INB
aTS WORD
Al)8 SUPK2
STB SUPK2
ADS LUL.EN
ADS BIT15
L.OA SUPKl
ADA ,+6
L.OA A,l
JSB DRUML
JSB DEA[)P,l

0185
rU86
ItH87
IUB8
0189
.,190
13191
0192
iH9J
!tJi94
0195
kJ196
1187*
019ij
kJ199

75226
75226
75227
75230
75230
75231
75 2 32
75233
75234
75235
75235
75236

0165
0166
0167
0168
0169
0170

04000l

lUll.

......

~200

0201
kJ202
0203
0204
020{)

75237
75237
75240
75241
75 2 4 2
75243
75244
75245

113400
043666
164"".,
006002
027 235
040343
027230
040344
073666
063664
053651

027245
04°343
073664
027100

0216.

"207
0208
kJ209
0210
0211
0212
0213
0214
~215

0216
"217
0218
121V.

75245
75246
75247
75251.1
75251
75252
75253
75254
75 255
75256
75257
75260

063665
002003
027266
070072
067~66

170001
044360
160001
06407 2
0445Ji4
016231
116017

SUP24 EQU
CCA
AOA
SUP25 EQU
LOB
SZB
JMP
ADA
JMP
SUP26 EQU
AOA
STA
SUP27 t,QU
LOA
CPA
JMP
ADA
STA
JMP
SUP28 EQU

WDRUS
TO MOVE
DfSTINATION POINTER
MUVE THEM
." Of ' WORDS
TO REAl) FHOM
PARTlAL TRACt(
."

OF WORDS IN SUFFER

CURi

ADDR~SS

DRUM AODRESS

•
SUPL1

•A,l

SUP26
--7
5UP25
*

,-6

SUP!.1

•SUPKI
SDIRk)
SUP28
,-7
SUPK1
SUP22
..

BUMp TO NE)(T
TRACK iO WHITE
GET AOOHE3S
ZER01
NO
YES, MOVE TO NEXT ONE
SUMP TO LENGTH WORD
SAVE POINTER
~> CURRENT READ lHACI\
L.AS" ONE
YES
NO, ~UMP TO NEXT ONE

LOA SUPK2
SZA,RSS
JMP SUP3~
STA WORD
L.D~ SUP!.1
8TA B,l
ADB ,+6

." OF WORDS IN BUFfER
ZERO?

L.OA

DRUM ADORESS

L08
ADB
JSB
JSB

a,l

wORD
LULEN
DRUM!..
OEADP,1

yES

NO, MUST WR1Tl::. OUT auf FER
SEl LEN"TH
IN DIREC

CORf, AooRESS

PAGE
0220
~221

0222
0223
0224
0225
0226
kJ227
022ij
0229
0230
0231
0232
0233
0234
0235

#37

~41~

75261
75262
75262
75263
75264
75265
75266
75266
75267
75270
75271
75272
75273
75274
75275
75276

SUPfRSAVl
LOA SUPL.1

0636~6

053651
027277
04 0 343
002001
063666
104036'"
164000
((I40J44

SUP29 EQU*
C;PA SDIR0

JMP
ADA
RSS
SUPJ0 EQU
LOA
AOA

SUPJl
.-7

•
SUPL.1
.... 6
L.OS A,l
ADA ._6
SlB,RSS
JMP SUP29
CL.B
STB A,l
JMP SUP29

00600J

0272t.i2
006400
174000
027262

LAST WRITE TRACKl
YES, I)ONE

NO, SUMP TO NEXT ONE

GET AUDRfSS
ZfRO?
YES
NO, SET
LENGTH

"'0

1Il236.

0237· THE MAIN PART Of THE ALGORITHM CONSISTS OF TWO ~~CTI0Na. IN THE
1d23ij· FIRST SECTION WE READ AS POSSIBLE INTO THE SWAP AREA. IN THE 2NO
0239. SECTION WE WRITE OUT AS MUCH AS POSSI~~E. THE ENTIRE PROCEDURE IS
0240* THEN REPEATED UNTIL

wE ARE FINISHED, THE

0241- ASSOCIATED WITH THESE
02.2.

",2<43·
0244.
02450246.
"'247.
1d24~*

",250

0256

MEANINGS ARE

SUPK1_>OIREC ENTRY FOR TRACK HEING REAO.
SUPL1->OIHEC ENTRY FOR TRACK BEIN~ WRITTEN,
suPK2 •• O~ WORDS READ SO fAR fROM Kl.
SUPlal# OF WORDS WRITTEN SO FAR ON ~1,
SUP •• OF ~ORDS IN tORE.
SUpp I> 8* OF WORDS TO BE WRITTEN UN Ll,

02491t1251
0252
0253
0254
0255

fO~L.OwlNG

VARIA~LESZ

7'!Ja77
75277
75300
75301
753",2
75303
75304

SUP31 E.QU •
002400
073665
073667
063651
073664
073666

0257.
025ij 75305 063667
0259 75300 003004
0260 75307 153662
0261 75310 027502
115262.
0263 75311 063660
"'264 75312 0436'!J5
0265 75313 ~02021
~266
75314 02751J
0267 75310 070072
ra26ij 75316 067064
0269 75317 1'Q576'!JJ
"'270 75320 027513
0271 75J21 163664
"'272 75322 043666
0273 75323 002002
1t1274 7bJ24 ~27331

CLoA

STA
SrA
LOA
STA
STA
SUP7

SU~8

SUPt(2
SUPL2
SDIR0
SUPKl
SUPL.l

INITIALIZE
L.eNGTH
WORDS
INITIALIZE
OIREC
POINTERS

* OF

LDA SUPL.2
CMA,INA
CPA SUPP,I
JMP SUP10

18

WORDS

LOA SUP
ADA STlE
SSA,RSS
JMP SUP11
STA WORD
LOB SUPK1
CPS SDIRU
JMP SUP11
LOA SUPK1,I
ADA SUPK2
SZA
JMP SUP9

IS THE SWAP AkEA FULL

~RITTEN

SO FAR ON

1..1-. Of WCHOS TO BE WRITTEN?

YES--GO ADVANCE L19

YES.eGO TO WRITE SECTION.
NO-.SAVE •• Of CORE~ORDS AVAIL.
HAVE WE READ ALL OF THE TRACKS?

YES.-GO TO WRITE SECTION.
A•• # 0' WORDS ON THIS TRACK.
A._* NOT kEAD yET.
~NTIRE TRACK R~A01
NO.

PAGE 0411 #37

SUP~~SAVE

ADS ,+7

yES •• SUMP Kl TO NEXT ,RACK.

Sla SUPKI
STA SUPK2
JMP SuPS

SET • O~ WORDS READ TO
TEST THIS TfUCK,

75325
75326
75327
75330

044361
077664
073665
027311

0280
0281
0282
02 8 3
0284
0285
16286
0287
028ij
0289

75331
75332
75333
75334
75335
75336
75337
75340
75341
75342

167 00 01
007004
044072
0060210
027341
060"72
040734
010611ct
002fb03
5)27513

0291
0292
0293
16294
0295
0296
0297
029ij
0299
03"0
0301

15343
75344
75345
75346
7 534 7
15350
753fH
75352
75353
75354
75355

07td,,72

0303
03 0 4
1630 5
0306
0307
030tS
0309
03116
1311.
0312
0313
0314
I6J15
03 1 6
0317

75356
75357
nj360
75361
75362
75363
75364
75365

166 4 °7 2
007004
04 766"
077660
1664072
007 0 °4
047666
077665

LOB WORD
CMB,INS
ADB SUP
8T8 SUt'
LOB WO~O
CMB,lNB
ADa SUPK2
STS SUPK2

75366
75367
75370
75371
75372
75373
75374
75375
75376
75377
75400
75401
75402
75403
754164
75405
75406
15407

063563
"02002
027311
063667
0166400
100400
000366
060001
""7004
077670
043660
0"'64014
100400

l.OA
SZA
JMP
l.OA
CL.S
OIV

027~

0276
16277
0278

1278.

lIa,e.

,,;sea'.

",31 8
16319
0320
0321
"'322

0323

1.$24

0325
0326

063665
006400
101026
06766 4

0~4360

14"001
064566
047660
IU6231
116017

0~0366

1ee2e0
000360
040562
"'43670

supg STA

1

CMb,IN8
ADS ~ORO
SSS
JMP *.4
LOA wORD
AOA B71
AND M64
SZA,RSS
JMP SUP11
SlA WORD
LOA SUPK2
C1.8

ASR
LOS
ADB
ADA
Loa
ADa

6

SUPK1
.+6

1,1
LIBOI
SuP
JSS DRUML
JSB PEAOP,1

SUPTG
SUP8
SUPI..2
,+12

LOA B
CMB,INS
STI,i SUPEX
ADA SUP
CL.B
OlV ,+12

~,

a •• # O~ wOROS NOT YET REAU ON Kl
MAKE POSITIVE,
IS • OF WORDS ON TRACK> # Of
WOHDS w~ HAVE ROOM FOR?
NO •• R~AO IN ENTIRE TRACK,
GET •• wE HAvE ROOM FOR,
REOU~E TU NEXT 8MALLtR
sECTOR sllE,
IF W~ CAN'T READ IN ANY, Go TO

WRITE

SE~TI0N.

SET WORD • • # OF WORUS TO READ.
GET # OF ~ORD8 RfAD SO ~AR,
Olvl0~ 8y 64 TO GET
sECTOR ADDRESS.
GET OIREC'fORY
TRACK ADDRESS,
COMPUTE CORE LoCATION
TO RlAD INTO.
READ IT IN
DRUM ERROR, fORGET IT
UPDATE # OF WORDS
IN CORE,
UPDATE. OF WORDS
REAU FROM !O.

HAVE WE
yET1

INS~RTEO

THE NEW ENTRY

YES.·~O TRY To REAO MORE.
GET THE AMOUNT ALREAVY WRITTEN
ON THIS TRACK
FIND EXCESS OVER EVEN ENTRY

GET THE COUNT
OF WORDS IN CORE
CONVERT TO ENTRY COUNT

MPY ,+12

AND BACK ro WORD tOUNT

AOA LlSD
AOA SUPEX

80 THAT WE LOOK AT
AN EVEN BOUNDA~Y

pAGE 0412 #37
0327
0326
0329
0J31tJ
"'J31
"'332
1d33J
0334
"'335
0336
0337
1c'l338
fd339
"'340
"'341
",342
0343
"'344
034!h
0346
1e1347
0348
ra349
"'350
"'351
0352
0353
0354
fe355
0356
035 7
0300.
",359
03 60
0361
"'362
",363
0364
0365
"'366
"'367
0 3 68
0369
fe37'"
0371
0372
kl373
0374
ra37S
"'376
0377

0379

7t>,.110
75411
75412
10413
75414
75415
75416
75416
75417
7542'"
75421
75422
75423
75424
75425
75426
75427
75430
75431
75431
75432
75433
75434
15435
75436
15437

SUpERSAVt

006003
040336
07367111
064520
117654
1627311
067670
077671
044336
077670
044674
006020
027 4 31
"'()767'"
060020
117654
027416
037663
11'60562
043660
064000
040365
070051
040336

15440 01(tH351O

75441 007 00 4
15442 041671
15443 01624;)
75444
75440
75446
75447
75450
75451
75452
75453
75454
75455
75456
75457
1546°
75461
75462
15463
75464
75465
75466
75467
75470
75471
15472

063671
°7 005 1
060520
070050
064346
016257
060042
170051
034051
016076
170051
034051
06 020 !
170051
034051
060045
170051
0341051
1°42 0 '"
000036
10440'"
100051
064051

8Z6,RSS
ADA .-12
srA SUPEX
LOS DLTEM
JSB l>lR,s,l
JMP SUPS
SUPJ2 EQU ..

l.oa

BrB
ADe
ST8
AOb
SSB
JMP
LOB
LOA

SUP~X

SUPES
.-12

SUPEX
ML.leO

SUPJ3
SUPEX
DLTEM
Jse CIRCS,l
JMP SUPJ2

SUP33 EQU •
ISZ SUPTa
LOA L.ISO
AOA SUP
LOB A
ADA ,+11
srA MOVED
AOA .-12
STA MOVES
CM8,INa
AOS SUPES
JSS MOVEt,;
LOA
STA
L.OA
aTA
L.OB

Jse

L.OA
STA
ISZ
JSB
S1A
ISZ
LOA
STA
ISZ
LOA
srA
lSZ
OL.D

SUPES
MOVED
oLTEM
MOVES
,_4
MOVEW
SAVP
MOVtD,l
MOVEO
DATE
MOvED,l
MOVED
DATIM
MOVf.D,I
MOVED
SAVDU
MOVED,l
MOVED
SAVDS

DST MOVEO,l
Lo8

MOVED

IO/NAME OF NEW ENTRY
COMpARE
DOESN'T GO ON THIS THACK

.~
~O

GOES ON THI3
TRACK, SO
SEARCH SACKWM~DS
TO F!ND

OUT !'4HE:.RE
COMPARE THIS ENTRY
NOT THIS ONE

SET TOGGLE:. TO SAY WE'VE INSERTED
COMPUTE DESTINATION
OF WORDS TO SE
MOVED

CALL REVEHSE MDVt:.R.

SET SOUHCE:. AT L.TtMP.
MOVE IN FIRST 4
WOFWS,

STORE START-OFe
PROGRAM POINTER
IN8tRT DATE IN WORD 5
ANI,)
GET HOUR OF YEAR FOR
WORD 6
SET OHUM
ADDRESS

GET THE 01SK .DORESS AND SET IT
INTO WORD' 8 AND 9

PAGE 041J *37
03 8 0
0381
0382
0383
0384
0385
0386
13.7.
0388*

SUPfRSAVE

75473 0 4 4355
75474 06ldta40
7547~ 170001
75476 06366'"
75477 04~:S66
75500 073660
75501 027311
COME HERf:. WHEN

AOB
LOA
STA
LOA
ADA
STA
JMP
CU~RENT

,+3
SAVWO
B,I
SUP
,+12
SUP
SUPS
OUTPUT

-> WORD 11

GET L.ENGTH
AND STO~E AWAY
UPDATE THE COUNT OF WORDS
IN CORE 8Y TWELVE

T~ACK

HAS BEEN FILLEO,

838t.

0390
0391
0392
0393
0394
0395
0396
0397
0398

75502 063666
755~J

05365~

75504
75505
75506
75507
75510
75511
75512

027621
040361
07J666
00~4t00

073667
037662
027305

SUP1" LOA
CPA
JMP
ADA
STA
CLA
STA
lSZ
JMP

SUPLl

TEST fOR LAST TRACK,

SOU~L

SUP16
.+7
SUPL1

ALL OONE~*GO CLEAN UP DIREC.
HUMP TO NEXT TRACK,

SUPL,.2
SUPP
SUP7

SET * Uf WORDS WRITTtN SO FAR
TO 0,
BUMP POINTEH TO WOROS TO BE
WRITTEN,

THE NEXT SECTION IS THE OUTPUT SECTION, WE ON~y COME TO THIS SEC.
lION WHEN WE HAVE DETERMINED THAT NO MORE CAN BE Rf:.AD. IN THIS
pART wE WRITE OUT AS MUCH AS POSSIBL.E UNTI~ wE HAVE EXHAUSTf:.D ALL
Wf:. HAVE IN COHE OR WE REAC~ THE POINT WHEN FURTHER OUTPUT WOULD
DESTROY INFORMATION NOT YET Rf:.AD, IN THIS SECTION, THE VAHIAaLE
~40~* SUPS. * OF WOHDS THAT HAVf:. ijEEN OUTPUT FROM THt CURRENl CORl
0406. LOAD,
0400*
0401*
0402*
0403*
0404*

040~

0409
0410
0411
0412
0413
0414
0415
0416
0417
0418
it41i

0420
fd421
fd422
0423
0424
10425
0426
0427
0428
0429
0430
0431

75513
75514
75515
75516
75517
75520
75521
75522
75523
75524
75525
75526
75527
75530
7553 1
7 5 532
75533
75534
75535
7~536

755 3 7
765410

75541
75542

002400
073657
063667
143662
067666
057664
027335
067657
00!004
0476610
077661
044118
~06021

027544
1ti63661
01°6 10
003004
ra2754t4
061G67
007004
047665
044000
007025
040001

SUp11 C~A
SUP15 STA SUPS
LOA SUPL2
ADA SUPP,l
Loe SUPL,.l
CPS SUPK1
JMP SUP12
SUp13 LOB SUPS
CMB,INS
ADS aUf"
STB SUPS

ADS 0

SET * Of WORDS OUTPUT So FAH TO
ZERO,
SET wORO • • * OF WORDS ~EFT
TO BE wRITTEN ON Ll.
TEST FOR HRITING ON A TRACK NOT
COMPLETEb~ READ,
WE ARE,
SET 8_* OF WOROS LEfT IN CORE,
SAVE IN B,

,OMPAHE wITh

* Mi

MANTrO WRlrt.

SSB,RSS
JMP SUP14
HAVE tNOUijNft -* IS IN A,
LOA SUPS
ONLY WRITE ~HAT wE HAVE.
AND M64
USE ONLY FU~L SECTOR'S WORTH
CMA,INA
MAKE NEGATIVE.
JMP SUP14
SUP12 LOB SUPL2
If WklTXNij ON UNREAD TRACK, MAKE
. CMB,INB
SURE WE DON'T GO INTO UNREAD
Aoa 8UPK2
AR~A.
ADS 0
CMB,sse,lNB,RSS
AUA 1
CHANGE A TO AVOID OvtRLAY,

PAGE 0414 #37
~4J2

SUPERSAVE

75543 027522

JMP SUP1J

043J.

0434* A NOW CONTAINS .#
"'435.
16436 75544 070072 SUP14
0437 75545 0"'2003
0436 75546 02761r14
16439 70547 "0JB04
0440 75550 0736~1
0441 75551 063667
0442 75552 002002
16443 75553 027565
kt444*

0445
16446
0447
0446
0449
0450
16451
~452

0453

l.e4.
0455
16456
0457

16456
1i)459
16460
0461
(0462
16463
0464
164 6 5
0466
0407
040 6

0469

75554
75555
70556
7!l557
75560
75561
75562
75563
75564

"'70050
1664346
016257
0024016

75565
75566
75567
75570
75571
75572
75573
75574
75575
75576
7 55 77
756016
75601
75602
756ldl

1606400
101026
067666
044360
140001
0 6 4562
047657
016231
116017
t6636f1
043 667
073667
063661
043657
027514

0471*

16471* COME

063666
0021604

070051
06 0 562
043657

0476
04 79

10480

0481
0482

0483
ia484
10485
0486*

75604
75605
75606
75607
75610
75611
7 5 6 12
75613
75614
75615
75616

SlA \'lORD
SlA,RSS
JMP SUP17
CMA,INA
STA SUPI;i
L.OA SUP1.2
aZ A
JMP SUP18
LOA
INA
STA
LOA
ADA
STA
L.OB
JaB
CLA
CL.B
ASR
LDB
ADB
ADA
LOB
ADa
J8B
JSB
L,L)A

AOA
STA
LOA
ADA
JMP

SUPLl
MOVED
L.IBD
SUPS
MOVES

6

SUPLl

IF NO WORDS TO 8E
WHITTEN GO TU S~IOE CORE FOR
Nf.W INPUT,
TEST FOR FIRST WRITE ON THIS
TRACK,
If: fIRST WRIU.,

ADJUST OIREC TO TELL
N~W FIRST ENTRY UN THAT
TRACK,

CONVEHT WOH08 TU SECTOR
AODHESS,
ADO IN TRACK ~OORESS.

,+6

1,1

LIeD
SUPS
DRUML
DfADP,l
SUPB
SUPL.2
SUPL2
SUPB
SUPS
SUP1!>

COMPUTE COAE
ADDRESS.
OUTPUT TO DRUM
URUM ERROR, NO CHANC~ FUR RECOVE
ADJUST , of WORDS OUTPUT TO
TRACK,
ADJUST. of CURt WORUS WRITTEN
OUT SO fAR.
LOOP FOR ANY ~ORE WRITING.

HERE WHEN WE CAN'T WRITE ANYMORE,

0472.

16473
16474
0475
0476
16477

OF WORDS WE'RE GOING TO WRiTE,

053657
1627305
067657
007004
ia4766~

077660
0id7 004
060562
070051
043657
0700516
75617 016257
756216 027305

SUP17 CPA SUPS

JMP SUP7
L.OS SUPS
CMB,INe
AOB SUP
5Te SUP
CMB,INS
L.OA L.IeD
STA MOVED
ADA SUPS
STA MOvES
J8B MOVEW
JMP SUP7

IF NOTHING WRITTEN AT AL.L., iO TO
TRY AND READ AGAIN.
ADJUST # Of WORDS IN CORE,

MAKE NEGATIVE FOR CORE MOVE.
SET DESTINATION AND SOURCE.

PAGE 0415 #37

SUP~~SAVE

1tl487* ALL TRACKS
0488* DIREC.

~RITTEN

1Il419.

0491cJ
0491
0492
04 9 3
0494
0495
0496
1e1497
049tJ
0499
lei 500
0501
0502
0503
0504
0505
1d506
0507
0508
050 9
0510
0511
1tl512
0513
0514
0515
0516
0517
051a
0519
0520
1e1521
0522
0 5 23
0524
0525
0526
0527
0528
0 5 29
0530
0531
1tl5J2
0533

0534
0535

0536
0537

0538
0539

------

SACK. NOW uPDATE WORD COUMTS IN

75621
75621 063642
75622 073661d
756 2 3 067651
75624
75624 163641
75625 170001
75626 1cJ37641
75627 044361
75630 037660
75631 027624
75632 063646
75633 073772

SUP16 EQU •

75634

SUP3

75634 063643

LOA M80
STA SUP
LUB SDIR0
SUPLL EQU
L.OA
STA
ISZ
ADe

DEFNN,l
S,I
OEFNN
,+7
ISZ SUP
JMP SUPI..L
LOA SUPRl
STA SUPR

75635 070072

75636 16026~
75637 1tl64504
75640 027770
75641 07J571
75642 177660
75643 177010
75644 17652~
75645 17 6525
75646 027776
75647 IU777id
75650 00Ga40
75651

0300~0

75652 0310fH
75653 031061cJ
75654 031176
75655 154024
75656 177777
75657 1/7764
75660 0000013

75661 000001cJ

75662 ,,73571
15663 0"""00

75664 00~001tl
75665 000161tl1tl
75666 1e100000
75667 00000~
75670 1tl00001d
75671 01/HIl001cJ
75770
75770
75770 01623;
75771 116017
75772 027777
75773

•

*

DfFNN
M8"
SM5004
M682
M683

SUP Rl

S8184

SET COUNT
OF OIH~CTORY TRAX
.> FIRST DIMEC ENTRY
COpy NEW LENGTM WORDS INTO
THE DIHec TA8L.~ ENT~ltS
WIPE UUT "CQNSTANT"
ADVANCE DIREC POINTE~
SET UP RETURN ADDRESS,

EQU ..

L.DA SMf)td4
SET WORD COUNT
STA wORD
LOA LIB,l
GET DISC ADDRESS,
Loa 'LItH
JMP SUPRR
OfF FILaF
DfC .Sk)
DEC .504
DEC .. 682
DEC .683
JMP LI~~A+f)10 JUMP FOR NORMAL RETURN
DEC 8184

X20b6 D~F L.l~US+ULEN.6184

sDIRe
sDIRL.
SVlRU
DIRCS
ST",E
SUPS

SUP
SUpS
Supp

suprG

SUPKI
SUPK2
SUPL.l
SUPL.2
SUPEX
SUpES

OfF
DEF
DEF
DEF
ASS
OCT
DEC
OCT

OlREC
DIRfL
DIREU
DIRCM
-ULEN+20
w1
.H~

0

oCT 0

OEF FIL.aF
or;T 0

ess

BSS
BSS
BSS
BSS
8SS
ORG
SUPRR EwU
JSB
JSB
JMP
EQU

1

1

1
1
1
1

LIB~A+5~4

*

O~UML
OVERL.AY WITH QRl~INAL ROUTINE
DEADp,l
CAN'T Gt; IT SACK, ARRGH,
LIBRA+511 SET fOR ERROR ROuTINE
..

THE ~ET ROUTINE IS RESPONSIBL~ FOR LOADING A PROGRAM FHOM THE
USER LI~RARYt IT CAN BE USED TO LOAD ~ROM EITHER THE USER'S
PRIVATE LIBRA~Y, THE GROUP LI6RARY, OR THE PUBLIt LIBRARY,
IF THE PROGRAM IS TO BE FROM THE USER'S GR~UP LIBR.RY, THf
0006* PRuGRAM NAME SHOULD BE PRECEOED ay A SNOMFLAKE (*). If IT IS TO
~007. BE FROM THE PUBLIC LIBRARY, THE PHOGRAM NAME SHOULD BE PRECEDED
~008. BY A OOLLAR SIGN (5),
~002*

~d~3*
~004.
~~05.

13010

7513130

10012
101313
0014
0015
0016
10017
01318
0019
1!l020
0021
0022
0023
0024
0025

75000
75001
75002
7501!l3
75004
75000
75006
75007
750113
75011
75012
751o!l1J
75014
751315
751316
75017
75020
75021
751022
75023
75024
75025

~1326

0"'27
"'1328
0029
00313
0031
0032
0033
0034
0035
101036
0037
10038

ltJ03g
0040

""41.
00 4 2
01343
i"44
13045
0046
1!l1047

""48.
ltJ049
10050
0051

ORG 'L,lSRA
0613273
040341
070036
16000rJ
0701330
060520
0020134
070034
061!l347
13713037

~OA

~16164

1327035
05~416

02705~

75 0 27
75030
75ltJJl
75032
751333
75034

050424
027055
1301727
170034
016164
060412
130034
170034
034 0 34
016164
060412
034037
027020
kJ50412
027074

75035
75036
75037
75040
75041
75042
75043
75044
751045
75046
751!l47

060330
067040
6626432
075041
005111
0 47 126
040514
044504
fd20116
040515
0424440

GETl

75105ltJ 060612
75051 07003ki
75052 1o!l16164

GET2

75 10 26

GEll

AOA
SlA
LOA
STA
LOA
INA
STA
LOA
STA
JSS
JMP
CpA
JMP
CPA
JMP

MLINK+t
GET USER'S 10.
,,+? lO.?LINK
'QET 1

",1

LTEMP
DLTEM

GETP
, .. 3
GETt
LCHAR
GETl
.+448

GET2
.+152S
&ETl44

A~F,ALf

STA
JSB
LUA
lOR
STA
ISZ
JSb
LOA
lSZ
JMP
CPA
JMP

GETP,1
LtHAR
,+408
GElP,l
GETP,l
GETP
LCHAR
+4.,8
GETC
GETl
,.4406

STORE IN LTt:MP.
SET UP POINT~R FOR NAME,
SET UP COUNTER.
GET FIRST INPUT tHAR,
ERROR IF NOfllE.
IF S GO TO SET Up FOH
SEARCHING PUBLIC LIBRARY,
IF .. GO TO S€T UP FOR
'SEARCHING GROUP LIBRARY
SAVE CHARACTER IN lAaLE,
GET RIGHT CHARACTER,
IF END CHANGE TO BLANK.
BUMP POINTEk,
GET NEXT CHARACT~R,
DO WE WANT IT?

YES,

NO~~A

SHOULI) NOW BE bLANK,

GET4

LOA "1J
•
LOB *+2
JMP LUU:'K
OEF •• 1
OCT 5111

ASC 6,NVALII) NAME

LOA A000
STA LTEMP
JSB LCHAR

SET uP FOR
GET FIRST

~U~LIC
CHA~

Of

Ll~RARy
NA~E.

SEARCH

,WS

PAGE 0417 #38
01652
~05J

0054
0055
~id56

"857

0058

GET

75053 027035
75i)54 027020
75~55 060030
75056 010602
75057 0ro640\()
75868 1'8'111
75061 000437
751&H:i2 100202'

JMP
JMP
Gt.T14 L.OA
AND
CI.8
OIV

~H661

0062
0063
0064
0065
16066
0067.
kHrH,,3

0069
0070
0071
"072
0073.
01674
0075
0076
0077
0078
~07~

OO80
"'1081

[6082
[6083
0084
0085

0086
0087
0088
0089
00 9 0

75064 064000

LOB
LUA
AND
lOR
STA
JS8
JMP
JMP

FAIL. IF NONt..

GE.TJ

LoTEMP
B1771

GET USER'S 10
IsOL.ATE NUMERltAL. PART

.1itliJ

01VIOf iY

MPY .1 160

75063 000431'

IdkJ59
itH660

GET1

A
M2idlt>0
LTEMP
B
LTEMP

MUI.TIPL.Y

06073~

75066
75067
75070
75071
75072
75073

010030
030001
070030

75074
7 50 7 5
75076
75077
75100

016047
06 15 77
1670043
116005
027133

GtT4

75 1°1
75102
75103
75U,4
75 1[65
151136
75107
75110
75111
75112
75113
15114
75115
75116
75117

060332
V,)67104
026432
075105
1605 11 6
041440
0151525
[641510
1d201c0
05111 7
043522
040515

GE119 LOA '''16
LOS .... 2
JMP LI~ER
DfF • ... 1
OCT 61A6
ASC 7, SUCH PROGRAM

~16164

~60J27

06112"
026432
7~120 075121
75121 1605111
75 122 ~4611"
75123 026523
75124 0521~7
75125 051105
75126 \';142040
75127 050122
75130 047511!11
75131 .,511161
75132 046441d
75133 064035
75134 044356
75135 160001
75136 011'2[621
75 137 ti27144

LCHAf~

GE.Tl
GETl

JSi RDPRG
LDA SPROG
STA GETS
J8B DL.OKP,1
JMP GET1 8

GET22 LDA
LOB
JMP
DfF

AND

ij~CK,

DROPPING REMA1N

SAVE RESUL.TING MULTIPL.E Of 1010
GET UPPER 6 81Ts MASK
GET ALPHA8ETl~ PART Of ID
MERwt NEW NUMERICAL PART
STORE L18RA~IAN ID
GET FIRST CHAR OF NA~t
FAIL. IF NONE
EL.SE, CONTINUE

7e>065

027035
027020

1~0

SAVE ENO·OF'"
COMMON POINTER
SEARCH DIRECTORY fOR PROGRAM

_",19
.... 2
LIBER
.... 1

OCT 5111

ASC 9,LL",STURED PROGRAM

GET18 Loa GETPD
Aoe .... 4
LOA B,1
SSA,RSS
JMP GET9

CHECK lLL ... STO~ED
pROGRAM Fh.G
UNSUCCESSFUL-L.V STORELfl
NO, CONTINUE

~

----_~-n~.:=---------

PAGE 0418 #38

0091
0092
0093
0094
0095
0096
0097
1c)098
0"99 ...
0100
liIl01
0102
0103
0104
0105

GET

75140 16 1tH'36
75141 050030
7514 2

1t3 2 7115

75143
75144
75145
75146
75147

.027101
044350
160001
002021
027164

75150
75151
75152
75153
75154
75155
75156
75157
7516l:)
75161
75162
7516J

06 0 33 2
067153
026432
075154
005105
047124
051131
020111

GE.T9

lOA {;ETI,l
t;PA L.TEMP
JMP _fT22
JMP ~ETI9
A08 ,-2
lOA 1,1
SSA,RSS
JMP GET10
lOA
lOB
JMP
DfF
OCT
Ase

YES, ~ET USER'S 10
DOES HE (OR SHE) OWN THE PRO~1
YES, PRINT IlL.STOREO PROGRAM
NO, PRINT NO SUC~ PRUGRAM
TEST FOR FILE

,-16
*+2
llBER
.... 1
5105
LfwE
7,NTRY IS A FILE

05144~

040440
043111
ft')46105

0116*
0107· If PROGRAM IS
0108*
"'109 75164 044357
011k) 75165 160001
0111 75166 (002002
0112 75167 027176
0113 75 170 07 0 215
"'114 75171 0(11)001
11)115 75172 00201d~
0116 75173 114212
0117 75174 102030
0118 75175 1"2031
0119*
0120. FOUND CORRECT
0121*
0122 75176 ~44344
0123 75177 1601301
({)124 752"0 ~70031
0125 75201 044354
0126 15202 160001
0127 75203 0700410
1i2128 752"'4 006004
0129 75205 160~01
0130 75206 0~1665
0131 752,,7 070041
0132 7521 0 044361
0133 75211 160001
"'134 75212 070042
0135 75213 003004
11)136 75214 040041
0137 7~215 070045
01 38 75216 003 00 4
"'139 75217 ~64040

ON Ulse, START SE.EK.
GET10 ADB
LOA
SZA
JMP
STA
LOA
INA
JSB
HL.T

,+5

B,I

GETlO
MWORD
a

01S(;A,1
30B
HI,.T 31B

DRUM ADDRESS ~ORO
GET DRUM AODRESS
15 PROGRAM ON DRUM?
yES, DON'T BOTH!R SEEKING
ZERO WORD COUNT
A REG GETS POINT~R
TO DIsC A09HEss
GO lNlTIATE SfEK ON DISC
DRIvER BUSYI HALT
RECOHD OUT ~f RANGEl HALT

ENTRY, FlRST CHECK TO SEE IF IT fITS
Gt:.T15 ADS
L.DA
STA
ADB
LOA
STA
INti
LI)A

.. 6

A,L

LTEMP+1
,+2
1, I
LItiSC
1,1

•• F1RST WORD Of NAMl
MOVE wITH PROTECTED flAG
TO SAFE PLACE
.> THIRD WOHD of NAME.
SAV~

~EMI.

COMPILED '"LAG
RETRIEVE ~TARr ..
OF-r'ROGRAM

ELA,CL.~,ERA

STA L.IBSP
ADS ,+7
LOA 1,1
STA GETLN
CMA,INA
ADA llasp
STA LIspa
CMA,INA
LOB LI8SC

POINTER
GET PROGRAM
LENGTH.
COMPUTE FIRST
UNUSED WOHD
COMPUTE NEGATIVE

PAGE. 0419 #36
1cJ140
0141
0142
0143
0144
0145
0146
0147
0148
Ir:I149
0150
0151
0152
0153
0154
0155
0156
0157
0158
01 59

0160.
0161
1"162
0163
0164
0165
0166
0167
0168
0169
°1 70
0171.
.,172
0173
0174
0175
01 76
01 77
0178

0179

75220
75221
75222
75223
75224
75225
75226
75226
7 5 227
75230
75231
75231
75232
75233
75234
75235
75236
15237
75240
7524 1
75242
75243
75244
75245
15246
75247
75250
7 525 1
75252
75253
75254
75255
75256
75257
75260
75261
75262
75263
75264
75265
75266
75267
75270
752 7 1
75272
75273
7f>274

GET

006021
027226
040462
002021
027251
027231
040654
011>2021
027251
~60214

00210210
1(:)27231
06 0 33 0
067231
026432
075240
00512ft;)
1c151111

SSa,RSS
JMP GE.T25
AOA L.WAUS
SSA,RSS

JMP GET1J
JMP GET26

GET25 EQU *
AOA Lwg7
SSA,RSS
JMP GET13
GET26 EQU *
LOA M8USy
SSA
JMP *,,2
LI)A .... 18
LOB *+2

Sf:.MlwCOMP.II..E01
NO
TOO ttlG'l
NO

YES
TOTAL LENGTH
WITH MAX ALLUI'IED.
UK

COMPA~E

MAKE SURE
DiSC DRIVE~
lS fINISrlto

JMP LUtER

DEF .+1
(JCT 5120
LF-P
ASC 8,ROGRAM TOO LARGE

1043522
040515
020124
047517
020114
040522
043505
016 0 76

06403~

044357
1700iU
044354
160001
070044
006004
104200

GET13 JSB
LOB
AD8
STA
AD6
LOA
STA
IN8
DL.D

DATE
GETPO
,+5
1, I
.+2
8,1
GETD

B,l

SET NE~ UAn.
INTO
DIRECTORY,
GET PROGRAM
DRUM ADDRESS
A'-SO SAVE
DISC

1000~1

104 400

DST GETDI

ADDRESS

0~0046

160034
0701.17~

060034
0403"0
1600 (5(D
064562
0162Jl
027357

LDA
STA
LDA
ADA
L.DA
LOB
JSe
JMP

GElP,l
~ORO

GETP
,+6
0,1
LISD

DIRE:.CTORY
BACK TO
DRUM

~RITE.

O~UML

GET21

SLEW IT, TRY TO SALvAGE

1181.

0181.
0182
0183
0184
0185

75275
75276
75277
75300

06427J
044340
160001
070037

'-DB MLINK+1

SET TO NULL P~OGRAM
ADS ,+lPROG .. 1L.INK
SAVE PROGRAM
LOA til I
STA GETe
LENGTH

PAGE 0420 #38
(cH86
0187
11'188
11)189

019",
IcH91
0192
IrH93
0194
0195
kU96
0197
0198
10199
02"'0
02101

0202
0203
0204
",205
0206
0207
0208
0209
0210
0211
"'212
0213
0214
0215
0216
0217

0218
0219
0220
0221
"'222
0223
0224
0225
0226

Gt.T

75301 06O,,43
75302 170001
75303 0160047
753~4 064042
75305 060044
753kl6 002ft)02
753137 027363
75310 ffJ74215
75311 1064041
75312 045036
75313 063405
75314 114212
75315 "'27314
75316 102"'31
75317 06"'214
75320 0132020
75321 027317
75322 002003
75323 02737'"
75324 06427"
75325 044335
75326 074257
75327 044355
75330 060037
75331 170001
75332 0160~7
75333 ~60J17
75334 1£}67336
75335 026432
75336 1r!J75337
75337 1d05125
75304 0 047101
75341 1c141114
75342 1d4244~
7534J 052117
75344 W:l20122
75345 1042524
75346 051111
75347 042626
75350 2142440
75351 043122
7!>352 047515
75353 020114
75354 1:144502
75355 051101
75356 051131
75357 060034
75360 040360
75 3 61 164 03 4
75J62 116016
75363 074072
75364 064041
75365 VJ45036
75366 016231
75367 027324

LOA
STA
JSB
Loe
LOA
SZA
JMP
STe
LOB
AOt;
LOA
JSB
JMp
HLT
L.OA

GETS
1,1
ROPRG

REAO IN CURRENT USER PROGRAM.

ClETL.N

wET WORD COUNT

GETO

GET DRUM ADDRESS
FILE ON DlaC OR DRUM?
DRUM, CIa ClET F~OM DRUM
DISC, STORE wOHD COUNl
GET START OF PROGRAM POINTER
AND READ BlT
GET PTR TO DISK ADDRESS
GO 00 READ FROM DISC
DISC DRIVER IS CALLEu
DIRECTLY HERE BECAUSt. IT
IS PROBABLY STILL BuSY
DOING THf ADvANCE SEEK
AND SO A
JMp .... 1 IS PUT IN THE
"DRIVlR e~SY" RETURN LaC

GET16

MWORD
L.IBSP
BIT15
GETOP
DISCA,I
*~1

31B
MBUSY

SSA

JMp ... 2
Sl:A,RSS
JMP GET17
GET2e LOS MLINK+1
ADe .w'lLINK
STa MAIN
AOB &+?PROG
L.OA ETC
STA e,1
JSe RDPRG
LOA M32
LOS *+2
JMP L.IBER
OEF •• 1
OCT tH25
LF·U
ASC 15,NA6LE TO HETRIEYE fROM I..IBRARY

GlT21 LOA GETP
ADA ,+0
LOS GETP,l
JSS SAL.YP,l
GET10 STe WORD
Loe L.U;SP
AI)S 8IT15
JSe DRUML
JMP GET20

STORE WORD COUNT FOR DRUM
GET START OF PROGRAM POINTER

PAGE 0421 #38
0227
1228
0229
0230
0231
0232
0233
0234
0235
~2J6

0237
1d2JS
02390240
flI241
0242
1iJ243
0244
1a245

75371ti
75371
75372
75373
75374
75 3 75
75376
75377
754"0
75401
75402
75403
754134
75405

GET

160036
034 0 36
~64~31

050030
0~5665

17 4 036
034036
104200
000032
104400
100036
01671~

1026220
000046

GET17 LDA GETI,1
' ISZ GETI
LOB LTEMP+1
CPA LTEMP
EL.B,Cl... t:"ERS
5T6 GETI,l
ISZ GETI
OL.D LTEMP+2
DST GETI,1

JSB SEMIC
JMP Ll..E.ND
Gi::TOP DEF GETOI

00034
GETP EQU I.TEMP+4
00035
GElPp EQU I.TEMP+5
00036
GETI EQU l..TEMP+b
00037
Gf,.TC EQU l..TEMP+'
00042
GETLN tQU I.TEMP+10
GtTS EQU LTEM~+11
01d043
GETD EQU I..lEMP+12
~246
00044
GE1DI EQU l..TEMP+14
14247 00040
0248*
LTE·MP+ 15 IS USED HERE ALSU
0249 75406
SGET EWU •

GET USER'S 10
FIRST WORD OF NAME.
GET IT
1F PROGRAM Oi'4r~f.R Cl..EAR
RUN"UNL.Y BIT.
STOR~ FIRST WORD OF NAME.
SUMP POINTER TO NEXT WORD,
~ET LAST 2 ~OROS OF ~AME.
STORE IN TAStE.
TERMINATE.
OISK AOI)RESS

.)0

PAGl

~422

#38

APPEND

~251*

THE APPEND COMMAND ALLOWS A USER TO APPEND A

~256.

PROGRAMS WITH COMMON MAY NOT BE APPENDED

~I8RARY

PROGRAM ON TU

0252* THE END OF H:S CURRENT PROGRAM, THE FlRST STAT~MENT Of THE NEW
0253. PROGRAM MUST H4VE A SEQUNCE NUMdER GREATER THAN THAT Of THELAST
~254. STATEMENT OF THE ORIGINAL PROGRAM. IF THE NEw SECTION IS PROTECTEU
0255. THE ENTIRE PRoGRAM WILL BE PROTECTED. SEMI~COMPILED PROGRAMS AND
0251.
0256* THE CODE FOR APPEND MUST

0 2 60 75 0 00
0261 75000
fr3262 75176
rtJ263.
~264
75176
0265 75177
0266 75200
0267 75201
0266 752fd2
0269 75203
0270 75204
0271 75205
0272 75206
1d273 75207
0274 75210
1d275 75211
0276 75212
75213
75214
75215
75216
75217
75221d
75221
75222
75223
rtJ277.
~278
75224
02 79 75225
~280
75226
"-'281 75227
0282 75230
0263 75231
0284 75232
fd265 75233
0286 75234
fd287 75230
0286 75236
02 69 752J7
0290 75240
75241
75242
75243
75244
75245
75246

060213
044346
160001
002021
027224
060214
002020
021202
060324
067210
026432
0 75 211
005123
042515
044455
041517

FO~LO~

ORG ~IBRA
LOA ML.INK+l
ORG GET15
ADa

,.4

LOA 1,1
SSA,RSS
JMP APPru
LOA MBUSY
SSA
JMp
~
LOA ,-22

..

Loa

JMP
OfF
OCT
ASC

THE CODE FUR "GET·,
THE CODE IS rO~NTICAL TO
UP TO L.OCATION G~T15
.> THIRD WORD OF NAME

SEMI e COMPII.EDl
NO
VES, MAKE SUHE
DISC DRlvER
. Is FINISHf.D

*+2

"'leER
·+1
512J
1..F",,8
10,EM1 .. COMpl1..f.D

04652~

044514
[(142504
02012.,
051117
043522
040515
006004
160001
050702
027253
060214
002020
027230
060323
067236
1d264J2
075237
~05116

047440
041511
046515
047516
020 un
051105
040440

At>P01 INS
LOA 1,1
CPA PBUFF

JMP
LOA
SSA
JMP
LOA
Loe
JMP
OfF'
OCT
ASC

APP02
MaUSY
•• 2
•• 2J

COMMON AREA?
NO
MAKE SURE
018C ORIV~R
IS FINISHED

.+2
~IB~R

*+1

5116
~f~N
11,0 COMMON AREA

AL.1..O~ED

"G~T·

PAGE 0423 #38

02 91
0292
0293
0294
0295
id296
0297
0298
0299
03 00
0301
0302
0JeJ

0304
0305
10306
0307
030.8.
10309
0310
10311
10312
0313
ic1314

0315
10316
0317.
ic1318

03 19
0320.
16321
0322
0323
10324
1t)3 2 5
10326
0327
~328

0329
0330
0331
0332
kl333
0334
0335
0336
(()337
0338

1!J33 9

APPEND

75247
15250
75251
75252
1525J
75254
75255
75256
75251
75260
752tH
75262
15263
75264
15265
75266
75267
75270
75271
75272
75273
75274
75275

fr:l4fr:l514
046111
1053505
042040
016076
064035
044357
110001
044346
160001
070036
044360
160001
070044
0060o4
104200
1100001

75276
7b277
15300
7531iH
75302
753icl3
753icl4
75305

APP02 JSa DATE
L.DB GETPD
ADB ,+5
STA 1,1
ADB ,-4
t..L)A 1,1
STA APPt.,S
ADa ,+6
L.OA B,l

srA GElD
INS

OLO e,l

SET DATE OF L.AsT REfERENCE
INTO DIRECTORY ENTRY,
SAVE L.IST BIT,
GET PROGRAM DRUM ADDRESS

SAVE IT
SAVE AL.SO
D15C

10440~

O$T GETDl

ADDRESS

000046
064035
044360
160001
070042

L.oe GETPD
ADB ,+11
L.OA B,l
srA GETt,.N

ANO

160034
070072
0601034
040361()
1 6 0000
064562
016231
027343

L.DA GETP,I
STA WORD
L.DA GETP
ADA ,+6
L.OA 0,1
L.De L.ISO
JSB DRUML.
JMP APP110

WRITE DIRf.ClORY
BACK TO DRlm

DRUM ERROR, GO TRY TO SAL.VAGE

753 0 6 01 60 47
75307 01 5322

JSB ROPRG
JSB DCMPL.

READ IN USER'S PROGRAM AND
L)ECOMPIL.t:. IT,

75310
75311
75312
75313
75314

L.OA GE n,N

TEST FOR

1531~

75316
75317
75320
75321
75322
75323
75324
75325
75326
75327
75330
75331
70332

060042
003004
040056
fr:l70046
003 0 1t)4
040654
002021
1027347
060214
002020
027320
1t:'l60273
04 0 335
1(170257
fr:lo0330
067331
026432
075332
005120

CMA,INA
ADA paPTR
STA L.lepa
CMA,INA
ADA L.w97
SSA,RSs

JMP
L.OA
SSA
JMp
L.DA
ADA
STA
L.OA
L.OB
JMP
OEf
OCT

APPl
MSUsy

... 2
ML.INK+1
,.1L.INK
MAIN
,-18
.+2

L.IBER
.+1
5120

PROGRAM
t..E~liTH

PROGR~M

TOO

I.ARlIE,

L.AST WORD+1 OF COMBINED PROGS,
COMPUTE NEGATIVE
TOTAl. L.ENGTH
COMPARE WITH MAX ALLOWED,
O,K,
MAKE SURE
DISC DRIvER
IS IOL.E
SET MAIN TO SAY PROGRAM IN
CORE,

PAGE 0424 ti3S
0340

d341
~342

0343
0344

APPEND

75333
75334
75335
75336
75337
75340
75341
75342
75343
15344
75345
75346

051117
043522

0347
"'34ij

75347
753510
15351
15352
75353
75354
75355
75356
75357
75360
75361
75362
75363
75364
75J6f)

064042
060044
1t.t02002
027364
074216
070261
064056

~349

10350
"-'351
10352
0353
0354
10355
0356
IdJf)7
0358
0359
0360
0361
03b2

0363
0364
"365.
0J60*
0367.
0368
",369
0370
1(.1371
0372
0373
16374
0375
0376
10377
16378
!a379
!a3 80
0381*

0382

(0383

03 8 4
0385
0386
0387

LARG~

1'640515

020124
047517
020114
041'6522

043505
~6e034

041'6360
164 0 34
116016

034b.
~346

ASC S,ROGRAM TOO

APPU! LOA GETP
AOA ,+6
LOB GETP,l
JSS SALVP,l
APPl

~450J6

063533
114212
027360
1"'2031
"'27J72
074072
0",6400
1~366 074214
75·367 064056
75370 04~"36
75J71 114770

APP7

LOB
LOA
SZA
JMP
STa
STA
LOB
ADB
LOA
JSB
JMp
HL.T
JMP
ST8
CLB
ST8
LOB
ADe
JSB

GETL.N
GETD
APP7
MWORD
ENORM
P8PTR
BITlf5
APPOP
OlSCA,1
•• 1
316
APP8
wORO
MBUSY
P8PTR
BITl5
DRUM,1
O~TERMINE

SCAN ORIGINAL. PROGRAM TO
75372
75373
75374
75375
75376
75377
754013
754"'1
75402
75403
75404

061577
k:)021304
064050

APP8

027422
01(.\3004
04il001
13021021
027407
06"'056
7~41t)5 071577
754136 °2 7 422

LDA SPROG
INA
LO~ P8PTR
INB
CPA 1
JMP APP2
CMA,INA
ADA 8
SSA,RSS
JMP APPO.2
LOA PBPTR
STA SPROG
JMP APP2

154107
75410
75411
75412
75413
75414

061577
0!a2004
07 00 37
140000
051i1001
0021301

LOA
INA
STA
ADA
CPA
HSS

i00b004
~513001

APP5

GET LENGTH OF PROGRA~ TO BE APPO
GET DRUM ADORESS
DISC OR DRUM AOORE8S1
O~UM, GO 00 DRUM REAO
DISC, STORE WORD COUNT
FAKE "DRUM SUCCESSFUL"
INITIATE
DIIK
READ
WAlT UNTIL DRiVER FRl:..E
STORE WORD COUNT FOR DRUM
FAKE
"DISC SUCCESSFUL."
INITIATE

ORU~

READ

LAST SEQUENCf NUMBER,
SET A TO POINT AT LENGTH OF
FIRST STATEJltE"T,
SET 8 TO POINT AT LENGTH Of
FIRSl NEW PROGRAM,
IF E~UAL, PROGRAM 18 NULL, SO
IT'S OK,
IS SPROG>PBPTR?
NO
YES, RESET SPRO~

SPROij

RESTORE

APPS
0,1

SAVE LOCN Of THIS STATE. L.ENGTH,
LINK TO NEXT ONE,
IF SAvE AS a, APPS.>LAST STATE,

(A)
1

PAGE 16425 #038
0388

03ag.
0390
0391
0392
k1393
0394
1d3g5*
1cJ396
121397
0398
0399
16400
0401
0402
16403
11404
1640!)
0416.
0407
0408
°4 0 9
041"*
11411
0412
16413
0414
0415
W)416
1d417
"'41 8
1d419

(11420.
0421
0422
0 4 23
0424
0425
0426
(()427
042.
",429
0430
1d4Jl

APPEND

75415 027411

JMP APP5

OTHER~ISE,

75416 0~3400
75417 040037
7542~ 160000
75421 003001
75422 01/J340~

ceA
ADA APPS
LOA 0,1
CMA,RS!
ce A

GET SEQUENCE # OF LAST stATE ...
,MENTII
MAKE NEGATI~E A~D SUSTRACT
ONE,
SET" TO-1 (SEQNO-0) IF NO PROG,

L,DB

ENDRM
SS8
JMP "·2
SZB
JMP APP9
L.DB MBUSY
SSB
JMP •• 2

WAIT FOR DRUM TO TERMINATE OK

SlB

wAlT fOR DISC
TO
TERldNATE
WITHOUT

75435 140056
15436 002021
75437 0275 14

ADA PBPTR,l
SSA,RSS
JMP APP3

CHECK THAT rlRST SEQUfNCE " IS
GREATER THAN LAST ONE Of OLO
PROGRAM.

75440
75441
75442
75443
75444
75445
75446
75447
75450
75451
75452
15453
75454
75455
75456
75457
754616
75461
75462

1660273
040335
070257
060322
067446
026432
075447
005123

LDA
ADA
STA
LDA
l..DB
JMP
OEF
OtT
ASC

15463
75464
75465
75466
75467
75470
75471
75472
75473
75474
75475
15476

006400
074261
060273
040336
070257
060317
067473
026432
",75474
005125
047101
041114

75423
75424
15425
75426
75427
15430
15431
75432
75433
75434

APP2

064261
12106020
02742J
006002
021463
064214
0~6020

027430
00600~

JMP APP9

1021463

0425~1

LOOP,

SET MAIN TO SAY PROGRAM IN
ML.INK+l
CO~E,
,.?LINK
MAIN
ERRUH,
.-24
.+2
LIBEH
*+1
I..F .. 5
5123
11,EQUENCE NUMBER OVERLAP

052505
047103
042440
041125
046502
042522
020117
053105
051114
((J40520
APP9

CL.B

STB
LOA
AOA
STA
L.OA
LOB
JMP

ENORM
ML.INK+l

CL.EAR DRUM DRIVER
BUSY FL.AG

,·'lI..INK

MAIN
MJ2
.+2
LIBER
D~F "+1
OCT 5125
ASC 15,NA8LE

L.f.U

TO'R~TRIEVE

FROM L.IBRARY

PAGE 0"26 .38

043a.

0433
0434
0435
0436
0437
0438
0439
0440
0441
0442
0443
0444
16445

"'446
16447

0448
0449.

0450
ti451
0452

APPEND

75477
75500
75501
75502
75503
755"4
75505
75506
75507
7!j51'"
75511
75512
75513

0"2440
052117
020122
042524
051111
042526
042440
""3122
041515
020114

75514
75515
75l)16
7551 7
75520
75521
15522
76523
75524
75525
15526
75527
15530
75531
75532
75533

"'6004f5

00036
"00j7
75534

04450~

051101
051131
070056
064273
044341
160001
0060f(J4
0500:30
021530
060036
011036
130001
170001
044345
074257
026226
000046

SET NEW VAL.UE OF
L.ISPB
PBPTR
PBPTR,
GET USER ID,
ML.INK+l
,.'11 O-?L. I NK
1,1
SET POINTER TO NAME,
TEST
FOR SPEClAL.
L.TEMP
USEH,
APP6
APPL.S
IF NOr, GeT LIST HIT
ANO MERGE INTO NAME.
alTHS
1,1
1,1
sET MAIN,
APP6 ADS ,.1NAMf.
ST8 MAIN
JMP LL.END
TERMINATE.
APPOP OfF GElOI

APPJ

L.OA
8TA
L.OS
Aoe
L.OA
INS
CPA
JMP
LOA
AND
lOR
8TA

APPLS EQU L.TEMP+6
APPS f.Qu LlEMP+7
SApp EQU ..

PAGE 0427 #39

HELLO

0002. THE HELLO COMMAND IS USED TO LOG A USER ON TO THE SYSTEM! IT
0003. PtRfORMS THE FOLLOWIN~ FUNCTIONSI
0004.
1) IF A USER IS ALREADV ON, HE IS LOGGEO OfF,
0005.
2) REAO UStR 10 AND PASS~ORO, AND ENTtR lNTQ TTV TAS~~,

0007
000a
0009
0010
0~11

0012
0013
0014
0015
1016*
0017
001a
0019
0020
0021
0022
1123.
0",24
0025
0026
0027
"'028*
0029
0030
0031
0032
0033
0034
lilts.
0036
0037
003t3
IdftJ39
le4th
0041
0042
0043
0044
0045

.. e.6.
0047
1d04t3

113049
16050

75000
75000
75001
75002
75003
75 1210 4
75005
75006
75007
75010

060273
070037
043527
006400
100 4 00
00(6375
ft)700l1
154030
027042

75011
75012
75 riH J
75014
75015
75016

060732
070072
16 0 54 0
064566
016231
116015

ORG l.ltlRA

LOA MLINK+l

STA HEL.TP
AOA HELST

CI,.S
elV

STA HELPT
CpB HEL.lo,1
JMP HEI.7
LOA

M20~0

STA HORO
LDA FUSS,1

SAVt;. IT,

TEst FOR USER IN CoRt,

GO INPUT lOT,

lNPUT FUSS TABLE

Loe Lleul

75017 06f.l031
75020 001720
75~21 040562
75022 ftJ70030,

JSe DRUML
JS8 SlCKP,l

IT'S STUCK UN THE DRUM

LOA HELPT

COMPUTE L.OCATION OF USER'S

ALF,ALS
AUA L. ItH)
STA I..TEMP
ZERO OUT H!S SECTION,

75023
75024
75025
75026
75027
75,,30

00240~

CL.A

064317
170030
03403U
006006
02 7 02 5

LO~

JMP •• 3

75031
75,,32
75033
75034

16054",
064562
"'1623\
11601t'i

LOA FUSS,1
LOB L.l~O
JSS DRUML
JSS SICKP,I

75035
75036
75037
70040
75041

06427;)
044336
160001
030246
11450"

LlH, ML.INK+l

750 4 2
75042 160036
75043 002003
75044 027124

QET HELlO 1M'
ADA ,>-IOwaLl
STARTING TIME,
COMPUTE PORT NUMijER,

M32

STA LTEMP,l
ISZ LTt::MP
INB,SZ~

A08
LOA
lOR
JSB

HEL,7

WRITE BACK 'f0

ulSt,

IT'S STUCK IN CORE

.+1TNUM-1L.INK
1,1
1~L.L. 2114 T~AT
NUt
NEW USER CAL.LEO
S14SC,1

EQU •
LOA HELIO,I

SZA,RSS
JMP MELI

GET CURRENT IU,
IF 0, NO LOGOFF IS NECESSARY,

l'tH.

18S2.

0053
0054

75045 060273
75046 040336

LDA MLINK+l

ADA ,+?TNUMw?LINK

DOES T~lS
USER ~AVf

PAGE 0428 #39
0055
0iD56
0057
0058
kJ059
161660

0061
0062
0063
01064

!cHi65
0066
"",67
0!a6~

0kJ69
0070
0!a71
0",72

0073
0074

0075
0016
0077
001a
0879.
00 8 0
0081
0082
0883*
00 8 4
ill e8

t,.
0086
0087
iDkl8~

0089
0090
kJ091
00 9 2
0093.
0094
00 9 5
0096
0097

75041
75050
75051
75052
75053
75054
75055
75056
75057
75060
75061
75062
75063
75064
75065
75066
75067
75,,70
75071
75072
75073
75074
75075
75076
75077
75100

HE~LO

05iD255
002001
027056
060241
114500
0"248'"
070255
104200
100037
003004
007004

YES • GET OPCODE
TELL 1/0 PROCESSOR

CL.A

Ri"U~E

STA PRIST
HEL.lA OL.D HEL.TP,l

10440~

000040
104200
000201
0400416
000040
044041
074041
100 2 00
"00724
070040
060041
00204t
007400
100400
75101 000456
75102 040040

NO

USfR

GET STARTING 'IME.
SAVE,

OL.O OATIM

GET CURRENT TIME,

ADA HE~TM
el.E
Aoe HEL.TM+1
STe HELTM.1
MPY 06'"

COMPUTE OlFFERENCES'Aw*OF HRS,
OF 100 MS UNITS,
E INDICATES SIGN OF B,
SAVE UNITS,
CHANGE HRS TO MINS,

srA

MAKE BOTH PARTS NEGATIVE.

e-.

HEL.TM
HEL
1
SEZ,RSS

GET UNIT COUNT, IF E.~
THEN COUNT AS NEGA1IVE,

DIV 060'"

CHANGE TO MINUTES,

ADA HfLTM
StA HELTM

ADO PREVIOUS COMPUTATION +1

n,.

tee

75103 070040

TrlE 1.1NE
PRINTER?

CMA,INA
CMe,INa
OST HEL.TM

L.0A

75104 160036
75105 031036
75106 017470

LOA HELIO,l

lOR BIT15
J3B HEL,UG

SET UP LOGOFF
ENTRy,

75107 016UJ7

JSB RoIoT

READ IN PROPER TRACK OF lOT

044 3 57
00004 0
160001

AOB ,+5
Cl.f
LOA 1,1
ADA HEl.TM
SEZ
eCA
STA 1,1

COMPUTE NEW TOTAL TIME.

LOA
LOB
JSB
JMP

GET DRUM AOOR~SS
ANO COREOUl?UT ADDRESS
REWRITE TO ORUM
URUM ERROR, TRY To SAl.VAGE

75110
75111
75112
75113
75114

040040

002040

75115 003400
75116 1 7 0001
7~ 117

160076
75120 (1,164562
75121 016231

75122 fIl27261

0091St
00 99 15 123 17003fj
011,,.
0101. CONVERT 10

0112.
0103
ftH04

ePA PRIST
RSS
JMP HEL.l.
LOA ~PD
Jae 814SC,1

75124 016315

75125 002001

HELl

IOI.CP,1
LISO
ORUML
HEl.10

IF OVERFLOW, USE MAXIMUM.

STA HEL.IO,l

REMOVE

JS8 GETID
RSS

TRANSLATE 10,

US~R'8

10 fROM TABLE,

PAGE 0429 #39
0105
~11d6

0107
0108

HE.LI..O

75126 026425
75127 050426
751J0 1/l~2001
75131 02~425

JMP GTFER
CpA ,+548
RSS
JMP GTFfH

ERROR .... NO

751J2
7513J
75134
75135
75136
75137
75140
75141
75142
75143
75144
75145
75146
75147
751513
75 15 1

160076
07007i
160075
064566
016231
11601b
064072
007004
044562
060052
054562
027256
044342
150001

L.DA IDL.NP,I
aTA WORD
LOA ID~CP,l
LOB 1..1BDl
JSB DRUML
JSB SlCKP,l
LOB WORD
CMB,INB
ADB LIBD
LOA 10
CPB LISD
JMP HELF
AD8 , .. 8
CPA 1,1
RSS
JMP HEL2

GET lD TABLE L.ENGTH
SAVE FOR DRUM DHIVER
GET DRUM ADDRESS
AND COR~ INPUT AODRESS
AND READ IN THE ~ROPER TRACK
DRUM ERHOR, OlE GRACtFuLLY
SEARCH lOT foOt<
NEw USt::R'S lO,

75 152
75153
75154
75155
75156
75157
7 51 6id
75161
75162
75163
75164
75165
75166
75167
75170
75170
75171
75171
75172
75173
75 174
75175
75176
75177
75200
752°1
75202
75203
75204
75205
75205
75206
75206

1tJ60347
070042
074043
03404J
O67536
00b(l02
02717 0
"'16164
027170
006404
05 0 42 6
002001
027171
077536

CO~MA

ERROR .... NO COMMA,

i'109.
~110

~111

0112
011J
0114
0115
IrH 16
0117
0118
liH 19
0120
0121
~122

01203
1i,1124
01 2 5
IUa6.

01 2 7
0128
0129
~130

10131
0132
0133
0134
0135
0136
"'137
013 8
0139
0140
0141
rcH42
0143
0144
0145
0146
01 47
0148
"'149
0150
0151
1015 2
015 3
0154
0155
0156

0157
0158
0159

00~001

027144

"'0240~1

001727
070044
06;'536
006 00 2
027205
016164
027206
006404
050426
002001
027206
077536
002401d
0400"4

HEL.2

LOA ,""3
SlA HELC
STB I-fELP
HEL.3 lSZ HELP
LDB HFL.G
alB
JMP HEL3e
JSS LCHAR
JMP HfLJC
CI.B,INa
CPA ,+54B
RSS
JMP HEL3G
STB HfLG
HfL.3C EQU •
CL.A
HEL3G EIiIU •
ALF,ALf
STA HEL.GT
LD8 Hf'L.G

sza

JMP HfL.JD
JSB LCHAR
JMP HEL3D
CLa,INB
CPA ,"'54B
RSS
JMP HEL.3H
STB HF1..G
HELJO tlllU
CLA *
HtLJH lQU
ADA HEL.bT

•

NOT HtEHE,
FOU~O

CHECK PASS\,\ORD.
BUMP TO NEXT

PASS~ORD

ENTRY,

COMMA ENCUUNTERED PRt. VIOUS1.. Y1
YES,
NO, GET 1ST CHAR,
CR,
NO CR,
COMMA?

NO,
Yt.S, SET

FL."'.,

FIRST CHAR, ON L.EFT.
COMMA ENCOUNT~REO PRlVIOUS1..Y?
YES,
NO, GE.T 2NO CHAR,
CR.
NO CR,
COMMA?

NO,
YES, SET FLAG,

PAGE

IrH60
kH61
0162
0163
0164

0165.
0166
0167
016S
li'169
10170
0171
0172
0173
0174
!ca75
0176
0177
0178
0179
0180
0181
11'182
018J
0184
01 8 5
0186
0187
Idl8S
'cH8P
10190
10191

ra192
0193
0194
10195
0196
0197
IU9S
0199
0200
0201
ra202
0203
ra204
0205
0206
0207.
1020S*

~430

HELLO

75207
75210
75211
75212
75213

15004;S
002001
027256
014042
027155

75214
75215
7 5216
15217
75220
75221
75222
75223
75224
75224
75225
75226
75226
75227
752J0
75231
75232
75233
75234
75235
75236
7!'J237

067536
006002
021224
016164
027264
050426
002..,01
02b425

1~240

75241
75242
75243
75244
75245
75246
75247
75250
75251
75252
75253
75254
75255
75256
75257
75260
75261
75262
75263

016164
026425
040316
002021
026425
040364
002020
026425
07354e
06353 7
100200
000364
043540
073~37

016164
002001
027226
1/l63537
040343
.1002021

026425
0403610

002020
10 26425

001722
027265
060332
066541
026432
060075
k:J64072
116tH6

CPA HELP,l
RSS
JMP HEL.F
liZ HEI..C
JMP HEL.l
L.IJB HFL.G
SZB
JMP HEL.3F
JSB L.eHAR
JMP HELlA
CPA ,+54B
RSS
JMP GTFER
HfL.3F EQU *
JIB L.eHAR
JMP GTFER
HEL.lI EIilU *
ADA M726
S8A,RSS
JMP GTFER
ADA ,+10
SSA
JMP GTFER
STA HTEMP
LOA HTYPE
MPY .+10
ADA HTEMP
srA HTypE
JSB L.CHAR
RS8
JMP HELJI
lilA ~TypE
AUA ,-7
SSA,RSS
JMP GTFER
AUA .+6
SSA
JMP GTFER
AI.F,RAI..
JMP HEt..JB
HE!.' LOA ,-16
Loa HEI.K
JMP LISER
HEl.l" LOA IOLCP
LOS WORD
JSB SAL.VP,l

COMPARE,
DOES NOT COMPARE,
CO-MPARES, BUMP CHAR, C;OUNT£R,
GET NEXT CHAR,
COMMA ENCOUNTfREO PRfVIQUSt..Y1
YES,
NO. GET NtXT 'HA~.
CR, SUBTYPE .11
NO CR, COMMA?
NO,

f~ROR'

GET NEXT CHAR.
CR. ERROR'
NO CR. DIGIT'i
NO, ERROR,
MAY tiE..
NON.OIGITl
DUtil, SAVE.
UPDATE TYPE VARIABLE.

GET NEXT CHAR,

NO CR.

CR. TypE>61
YES. t:.RRORl
NO. RESTORE TO(ORIG.INPUT~l).
WAS i) INPUT"
YES. ERROR'
NO, ROTATt INTO POSITION.
PRINT It..LEGAL. ACCESS MESSAGE,

PASSWORD OK.

111209*
16210 75264

1d211
0212
0213

*39

75264 002400
75265
75265 0;'2774

HEL3A EQU •
CLA
l:IJU
Hf.L.3B
*
lOR STP

SUBTYPE.ll
MERPE OPCODE,

PAGE 0431 #39
0214
~215

16216
0217
021'~

0219
10220
0221
0222
0223
0224
e225.
1tJ226
0227
0228
0229
0230
0231
0232
0233
111234
111235
\')236
0237
0238
~239

0240
0241
"'242
0243
0244
0245
0246
0247
02 48
0249
0250

1211.
0252
~25J

0254.
iJ255.
0256
0257
0258
0259
td2610

HEL.LO

7b266
76267
15270
75271

064273
",44336
130001
114600

LL>S ML.INK"'l
AOS .... 1TNUM"'?L.INK
lOR B,l
MERriE POR": NR,
JSB S14SC,1
TEL.L 2114 'f0 SET UP DEl.AYS,

75272
15273
75274
75275
75276
75277
753"'0

03404;.5
10.200
100043
003104

lSI HEL.P
Dl.D HELP,1

COMPUTE
ALL.OWED TIME_TIME TO

CMA,CLE,INA
ADA 1
Sfl
JMP HELG

NO TIME LEFT,

04~HHU

00;i040

027346

75301 064273
5302 044335
75303 060446
753 0 4 003"'00
75305 110001
75306 170001
7153"'7 006004
75310 160001
75311 030233
75312 114l501tJ
75313 060"'52
75314 017470
753115 104200
75316 00121201
7 5 3 17 10440'"
75320 100037
75321 0600152
75322 00640~'
75323 104400
75324 100036
75325 0<)0702
75326 064~7J
75327 044340
75330 17v)001
75331 1042'''~
75332 075532
75333 10 44 00
75334 00003rc1
75335 1",4200
75336 ·"'7553~
75337 10 44 00
75340 000032

LOB
ADS
LOA
CMA
AND
srA
INS
LOA
lOR
JSB
LOA
JS8
01..0

i

8,1
B,I
1,1
Ul.O
S14SC,1
10
HEL.OG
OArIM

OST HELTP,1
LOA 10
CLB
OST HELlO, I
LDA
L.oe
AOB
8lA
01..0

8.> .,FLAG
CL.EAR
tBFLG

BIT,

B.> 1TNUM
TELL. 2114
THAT USER
LOGGEO ON
MAKE LOG ENTRY,
SET

STAFHl~G

TIME AND 10

INTO TABL.E.•
INSE~r

NAME,

NEW 10 AND Cl.EAR

P6UfF
Al.50 SCHArCH
MlINK+l
.... ?PRO".1LINK
1,1
MOVE SETUP FOR HELLO
Z999

OST LTEMP

PHO.RAM

l~TO

LTEMP(0:J)

DLD HELM'" 1
DST LTEMP+2

75341 l1b005
7l)342 027351
75343 060344
75344 064266
75345 026432
75346 {(!60334
7 534 7 066552

MLINK+l
•• ?L.INK
CeFLG

DAT~.

JSB OLOKP,I
JMP HEL6
HEl.4
HEl.G

LOA
LOB
JMP
LOA
LUB

,.6
READY
LIBER
,.14
HELH

SEAR(;H FOR PROGRAM
FOUND IT.

l~

OUTPUT READY MESSAGE

LIBRARY

PAGE
"'261
121262.
0263.
0264.
rcl265*
0266.
0267
0268
0269
027rcl
0271
",272
"'273
0274
"'275
0276.
02'17
0278
027P
"'280
"'281
rcl282
0283
rcl284
"'285
0286
0287
0288
"'289
029121
0291
0292
0293
0294
0295
10296
0297
rcl298
"'2~9

#39

~432

7535'"

HELLO
JMp LIBER

02643~

SET UP USER TO RUN HELLO
75351
75352
75353
75354
75355
75356
75357
75360
75361

064klJ5
044356
1091211211
002020
027343
044350
16121001
1210202'"
02'134a

75362
75363
75364
75365
75366
75367
75370
75371
75372
75373
'15374
75375
75376
75377
75400
7541211
754",2
75403
75404
75405
75406
75407
75410
75411
75412
7541J
75414
75415
75416
75417
75420
75420
75421
75422

12106004
16001211
07004'"
006004
16121001
1211211665
070041
044355
161tH:HH
070043
0121612104
11214200
100001
104400
00012146
064035
044365
164rcl01
074042
997"'04
044941
07404'5
0rcl7004
121612104'"
00212121
12127420
044462
006021
027423
027343

",300
10301
0302
"'3 121 3
0304
031215
0306
044654
031217
01d6920
03 0 8
027343
0389.
0310.
0311 75423
",312 75423 "'16047
IOJ13 75424 12164042

HEL6

LOB
ADa
LOA
SSA
JMP
AOB
LI)A
SSA
JMP

~ROaRAM.

LTEMP+5
.+4

IS

HEL4
.-2

NO, TEST FOR FILE

6,1

HE~LO PROGRAM
lL.L. ... STORU)1

Yf;S

1,1

tiEL.4

INB
LOA 1,1
ST A LitHiC
INB
LOA 1'1
ELA,CLE,ERA
STA L18SP
A08 ,.J

LI)A 6,1
STA HELP
INS
DLD B,l

-> THIRD

wO~O OF NAME
SAVE SEMI.
COMPIL.E!) FLAG

SAVE START-oF.
PROGRAM POlNTER
GET PROGRAM D~UM ADDRESS
SAVE DRUM ADDRESS
SAVE ALSO
PROGRAM

DISC ADDRESS

OST HELOl

LDB LTEMP+5
ADe .+11
L.OB e,I
ST8 HEL.C
CMB,INB
A08 L1BsP
STe LI8PB
CMB,IN8
LOA LISSC
S5A,RSS

JMP HEL.12
AlJa LWAUS
SS6,RSS
JMP HEL1J
JMP HEL4
HEL12 EQU *

GET
PR"'GRAM
LENtilH
STORE L.EN(';TI'1,
COMPUTE FIRST
uNusED WORD
T~8T

FOR ovERfLoW.

SEMI.C;OMPILfD1
NO
OK

TOO BIG

ADa Lw~7
SsB
JMP HEL4

HE.L.13 E.QU ..

JS6 RDPRG
LDB HELC

REAO IN FlxkD AREA.
GET HELLO PROGRAM LENGTH

PAGE
~314

"3 15
0316
0317
031a
"319
0320
0321
~322

0323
0324
~325

0326
0327
032a
IdJ29
16330
0331
0332
0333
0334
0335
0336
raJ37
ra33a
033 9
0340
0341
0342
0343
0344
0345
0346
0347
0348
03419.

03 5 0
0351
0352
0353
0354
0355
0356
0357
0358
0359
0360
0361
0362
0363
0J64
0365
0366

~433

75425
754 2 6
75427
75430
75431
7543 2
15433
75434
75435
75436
75437
75440
75441
75442
75443
75444
75445
75446
75447
7ti45",
75451
75452
75453
75454
75455
7 5456
75457
75460
75461
75462
75463
75464
75465
75466
75467
75 47 0
75471
75472
75473
75474
75475
75476
75477
75500
75501
7561212
75503
75504
75 505
75500
7550 7
75510
75511
75512

#J9

HEL.LO

060043

L.OA
SlA
JMP
STB
' LI)B
A()B
LDA
JsB
JMP
JMP

~02002

027437
074215
064041
045 0 36
063531
114217
027343
027444
074072
064041
045"36
016231
027343
016710
1",3100
064273
044335
16001.11
0303156
170001
044366
060351
170i01
034264
06f577
054056
127530
076334
060412
071573
10 2100
127467
036045
000fJ00
064004
05~412

027471
06462~

006004
054630
064626
1°31°0
07462'"
170620
060211Jl
0064ti00
100400
00e402
0 6 0001
1002121\:1
"''''0724
070044

HELP
HEL8
MWORD
L.l t3 SP
BIT15
HELDP
DIeCZ,I
HEL"

8TB WORD

HEL9

LOB
ADS
JSB
JMP
JSB
ClF
Loe
AoB
LOA

L.IBSP
8IT15
ORUML..
HEL.4
,EMIC

1'1

SET
HELLO
FL.AG

1,1
.... 1STAT
,SYNT+l
1, I
TIMEF
8PROG
PBPTR
HELRT,l
PRGCT
.+4.,B
BLANK

"

Ht:lOG NOP
L.OB LOGe T
cPa ,+32
JMP *"2
LO~ LOGP2
INa
cpa 1.0GNO
L.ue lOGsG
ClF 0
STB L.OGP2
STA lOGP2'I
L.OA DATIM
01\1

.... 24

LOA 1
MPY 06(0
STA

DRUM ERkOR, GO OUTPUl "READY"
PLAy SAFE.

lOB
CPB
JMP
8TB
L.OA
STA
STF
JMP *+1,1
OfF CMP14

cL.a

STORE wORe COUNT FOR DRUM
GET STARr OF PROGRAM POINTEr<

"MllNK+l
•• ?llNK

lOR HFL.AG

lSZ

OISK fRROR

HU.9

HELa

81A
ADB
LOA
STA

AND DRUM AODRESS
PROGRAM ON DRUM1
YES, .0 GET IT
NO, STORE WORD COUNT FOR DISC
GET START OF PROGRAM POINTER
AND READ tHT
GET POINTER TO DISK ADDRESS

HEL.GT

SET STATUS TO RUN.

SET FL.AG FOR TIMING,
NUL.L. PROGRAM

n.s

INTERRUPT Bf.CK ON,

MAKE ENTkY IN L.OG TAt;1..E,
WAIT UNTIL.
THERE'S ROOM
SET POINTER TO NEXT LOC.
IN lOG QUEUE.
INHIIUT INTERRUPT.
ENTEH 10.
GET OAY COUNT,
GET HOURS OF TODAY'

CONvf.RT TO
SAVE.

Mlt~S,

PAGE 0434 #39
1036 7
0368
~369

0370
0371
0372
0373
1t:l374
0375
~376

1/)377

0378
0379
~380

0381
~382

0383
0384
0385
0386

0387
0388

0369
0390
0391
0392

0393
~394*

0395

75513
75514
75515
75516
75517
75520
75521
75522
75523
75524
75525
75526
75527
75530
75531
75532
75533
75534
755J5
75536
75537
75540
00031
00036
00037
00040
00042
00043
00044
00046

HELLO

060202
LOA UATIM+l
GET UNIT COUHTER,
ADJU8T,
ADA DJ6K
04 0 704
100400
GET IN MINUTES.
DIV 0600
000456
040044AbA HEL.GT
034t;20
liZ LOGP2
PUT IN QUEU~,
AI.F,RAL
001722
030031
lOR HEL.PT
MERGE IN ~ORT NUMBER
170620
STA LOGP2,I
liZ Lo_eT
BUMP COUNT
034604
102100
STF 0
INTERRUPT BACK ON,
127470
JMP HEL.OG,1
RETURN,
116642 HEI,.ST A~8 -TTY00,.'lTIME
041675 HELRT OEF EXITJ
000046 tiELOP DEF HELDI
.> DISK AODREss
1t:l65747 Z999 OCT 65747
USER NUMBER 1999
044105 HEL.M Ase J,HELLO
046114
(474411)
0000i\0 HfL.(I OCT '"
000000 HTYPE OCT "
0"'0000 HTEMP 688 1

LTEMP+1~

75541

HEL.PT
H£LID
HeLTP
HE.I.TM
HEI.C
HEL.P
HEL.GT

EQU
EQU
EQU
EQU
EQU
tQU
~QU

HELDI EQU

L.TEMP+l
LTEMP+6
LTEMP+?
LT~MP+8

LTEMP+1"
LTEMP+!1
LTEMP+12
LT~MP+14

IS USED HERE ALSO
SHEL. EQU *

PAGE 0435 #39

BYE

13397. THE BYE COMMAND IS USED TO LOG A V8ER OFF, Byt MUST PERFOHM THE
039th FOLLOWING FUNCTIONSI
0399*
1) DETERMINt AMOUNT OF CONSOLE TIME USED
!d400.
2) UPOATE USER'S CLOCK IN IO.TABLE
3) SET fLAG FOR SYSTEM TO UN~OOK,
0401*
4) OUTPUT TERMINATION MES$AI;7E
0402*
0404
0405
0400
0407
0408
13~09

0410
0411
0412
111413
11)414
0415
0416
0417
0418
13419
0420
13421
0422
0423
0424
0425
0426
0427
042.,
0429
043 0

e431.
0432
0433
0434
0435

0436
0.31.
04 3 8
043 9
0440
0441
0442
0443
044114
0445
0446.
0447
0448
0449

7500ft)
75000
75001
75002
75003
7500 4
75005
751306
75007
75010
75011
75012
75013
7501411
75015
75016
75017
75020
75021
75022
751323
75024
75025
75026
75027
75030
75 0 31

060273
040330
050255
002001
027011
060247
114500
002400
070255
064273
044335
06~412

003000
110001
170001
044356
160001
002003
0272 0 7
0740~0

060132
070072
16e540
064566
016231
11 60 15

Byf.2

ORG
LOA
ADA
CPA
RSS
JMP
LOA
JSa
CL.A
STA
Loa

LIBRA
MLINK+l
ODES THIS
,+1TNI"jM ... 1LINK
USER HAVE
PRIST
THE L.INE
PRINTER1
NO
SYE2
YESeGET OPCfjOf.
LPD
5145(,1
TELL 1/0 PROCESSOR
REMOVE
PRIST
USER
MLINK+l
AO~ 1+1F~Abp1LINK
b a> fL.AG ~ORD
REMO¥E
LOA OUhH
CMA
OUTWT BIT
AND 1,1
FHOM
STA 1,1
STATUS.
ADS ,+110.1FLA(;
LOA 1,1
,fT 10
5ZA,RSS
IF 10.0, USER NEVER
JMP BYBY
LOGGED ON, SO EXIT
STB BYEIO
SAVE POINTER TO 10
LOA M2~00
INPUT FUSS TA~LE
BtA wORD
LOA FUSS,l
LOB L.IBDI
JSB DRUML.
IT'S STUCK ON THE DRUM
JSB SICKP rl
USE~'S

75032
,5033
7 5 034
75035
75036
75037

060273
043261
006 4 00
111)040e
000375
070"'34

LOA MLINK+1
COMPUTE
ADA BYESP
CL.B
DIV .+TTY01~TTY00

75040
75041
75042
75043
75044
75045
75046
751347

001720
04"'562
070031
060317
174031
1334031
002000
027044

ALF,Al8
COMPUTE LOCATION OF USER'S fUSS
ADA L1S0
aTA LTEMP+l
LOA 1'132
CL.EAR USER'S FUSS
SrB LTEM..,+l,1
lSZ LTEMP+l
INA,SZA
JMP •• 3

75050 160540
75051 064562
75052 016231

PORT NO,

BTA BYEPT

LOA FUSS,!
LOB LISD
JSS OHUML

WRITE FUSS
aACK TO aRUM

PAGE
0450

.,451f1
"452*
0453
0454
0455

~436

116~15

75054
75055
75056
75057

060273
040345
104200
100000
003004
007004
104400
000031
10 42 00
000201
0400:51
00004VJ
044tJ32
074032
100200
000724
070031
060032
002041
007400
100400

75061

~458

75062

75060

75063
11.1460
0461
0462
11:)463
0464
0465
11.1466
11:)467
0468
0469
0470
11.1471

eVE

75053

04 56
14457
0459

#39

75064
75065
75066
75067

75070
75071

75072
75073
75074
75075
75076
75077
75100
75HU 0004~6
75102 040031
75103 070031

IT'S STUCK IN CORE
L.gA ML.INK+1
ADA ,+1TIME-1L.INK

DL.O 0,1
CMA,INA
CMe,INS
OST BYETM

SET BOTH PARTS NEGATIVE,

DL.D DATIM

NOW GET CURRENT TIME

ADA BVETH
CL.f
AOB BYETM+1
STB BYETM+l
MPy D6~
STA BVETM
LOA BYlTM+1

0486
11:)487
0488
",489
0490
0491
0492

0493
0494
0495

75104
75 litH>
751 0 6
75107
75110
75111

lrHH!l604
050412
027104
060620
002004
050630

75112 060626

75113 07062~
75114 1601430
75115 031036
75116 170620
75117 03462kl
75120 1042160
75121 000201
75122 ",74032
75123 006400
75124 100400
75125 000402'
75126 0 6 0001
75127 100200
75130 000724
75131 070033
75132 060032
75133 040704 •
75134 100400
75136 00045()
7·5136 040"'33

SAVE

COMPUTE O!fFERENCESI

A~.

OF HRS,

B•• OF 100 MS UNITS,

E INOICATES SIGN OF B,
SAVE UNITS.
CHANGE HRS TO MINS,

SEZ,RSS

GET UNIT COUNT, IF E~~
THEN COUNT A3 NEGATIVE,

C(;B
DIV D600

CHANGE TO MiNUTES,

ADA HYETM
STA BYETM

ADD PREVIOU$ COMPUTAT10N PL.US

LOA
CPA
JMP
LOA
INA
CPA
LOA
STA
LDA
lOR
STA

LOGCT
,+J2

CHECK FOR ROOM IN LOG TABLE

LOGP2

SET L.OGP2 TO HEXT LOCATION IN
L.OG TABL.E,

0472.

0473
0474
0475
0476
0477
11:)478
0479
0480
0481
0482
0483
11:)484
0485

SET POINTER TO STAHT TIME.
GfT STARTING TIME.

.-2

LOGNO
LOG8G
L.OGp2
BYEID,I
BIT15
L.OGP2,1
ISl L.OGP2
DL.D DATIM

COMPuTE

STS BVETM+1
CLB
DIv .+24

SAVE UNIT COU~TEk.
GET # OF HRS ~N B By MOD'ING
oFF THE DAY COUNT,

L.OA 1
MPY 060

CONV~RT

SrA
L.OA
ADA
DIV

BVtT
BYETM+l
036K
06k10

ADA an.T

PL.ACE 10 IN LOG TABLE AND
SAY LOGO~F.
TI~E

OF DAy.

TO MINS.

SAVE THAT,

GET UNIT COUNTER.
ADJUST
GET MINUTES,
PACK TOGETHER AND PUT IN LOG

PAGE
~496

",497
0498
0499
858".
i5(11
8582*
0503
215214
0505
05216
0507
0508
~5a9

05ir;,.
0511
k;l512
0513
21514
051.5.
16516
0517
051S.
051P

0520
0521.
1t)522
21523
0524
0525
0526
0527
0528
0 52 9
0 5 30
16531
0532
0533
0534
0 5 35
0536
0537.
05 3 8
0539
",540
0541
0542
0543
0544
16545
0546
0541
,,54t;

~437

#39

ByE

75137 001722
75140 fc)J0034
7~141 170620
75142 2134604

ALF,RAL
lOR BYt:.fo'T
aTA l.OGP2,1
ISl L.OGCT

TABLE,
BUMP COUNTE.R.

7:>143 ru6u,7

JSB RDIOT

READ lOT TRAtK fOR Th1.S USER'S 1

75 144
75 145
75146
75147
7515 0
75151
75102

2144357
0002140
1600.01
04212131
002040
003400
17021211

ADa .+5
CI.,E
L.OA 1,1
ADA BYETM

COMPUTE NEW TUTAL TIMl,

eCA
SlA 1,1

75153
75154
75155
751b6

16212175
2164562
2116231
0272421

LOA
LOB
JSB
JMP

SEZ

If OVERFL.OW, USE MAXIMUM.

IDL.CP,I
LISD
DRUML
BYE1

GfT DRUM AOORESS

7 5 157 0024210
75160 170030

CLA
STA Byt::lD,l

REMOVE USER'S 10
FROM TABLE

75161 2160364
75162 016132

lOA ,+12B
JSB L.OUT

75163
75104
7(5165
75166
75167
75170
75171
75172
75173
75 174
75115
75176
75177
75200
75201
75202
15203

2160031
00640"
100400
0210437
074033
040432
016132
06k'0.J3
006400
100 4 01t)
000364
074"'33
04043a
016132
060033
0 4 0432
010132

LOA BYETM
CL.B

752~4

06 0 321
e67243
016156

75205
75206
75207
15207
75210
75211
75212
75213
75214
7521 5

064273
044336
160001
030253
11 '500
102311
02121 4

Olv , hI'"

BYBY

8TB
AOA
JaB
LOA
CL6
OIV

BYET
,+6013
LOUT
BYET

ST8
AOA
JSB
LDA
AOA
JSB

8YE:.T
,+6",8
LOUT
BYET
,+6168
L.OUT

LOA
LOB
JSB
EQU
L.OB
AD8
LOA
IQR
JSB

, .. 25
eVEM
I.TVPE

OUTPUT •

0'

MINUTES.

HUNDREDS

,+10

TENS
UNITa,
OUTPUT THE REST OF
THE MESSAGE,

•MLINK+l

,+'lTNUM-?L.I NK
1,1
ASK fOR TfRHINAL. TYPE.
WTP
S14SC,1

SFS CH2

JMP

ANO WRITE OUT MODIfIED TRACt(
BL.Ew IT, TRY TO SALVAGE

··1

PAGE
~549
05~0

0551
0552
1d553
0554
0f)55
0556
0557
0558
0559
0560
0561
"562
0563
0564
0565
0566
0567
0568
0569
0570
0571
0572
0573
0574
0575
kl576
0577

f(J578
k)!l79

~4J8

75216
75217
75220
75221
75222
75223
75224
75224
75225
75226
75226
75227
75230
75231
75232
75233
75234
75235
75236
75237
75240
75241
75242
00030
00031
00033
00034
75243
75244
75245
75240
75211$7
75250
75251
75252
75253
75254
75255
75256
75257
75260
75261
75262

#39

aVE

102~H 1
00200_
027224
160001
030234
027226

L.1· CH2

SZA
JMP BYEJ
LDA 1,1
lOR ECO
JMP aVE4
BYE.3

160001
030235
BYE4
114500
160001
030232
114500
0411$Jtsl
06 0 441
0k13000
110001
170001
026226
060075
064072
116016

075244
020115
044516
052524
042523
020117
011$3040
052105
051115
0411$516
04k)514
020124
04451f:
042456
116635

BYEI

EQU

LOA
lOR
EQU
JSB
LoA
lOR
JSB

•

1,1

(itT TYPE,
~HICH1

TyPE.l, TuRN ECHO ON,

TYPE .2, TURN ECHO OFf,

EC;F

""
S14SC,!
1,1
HUU
8145C,1
ADS •• 1T NUM
LOA 830M
eMA
AND 8,1
STA B,I
JMP L.L.fNO
LOA lOL.CP

DISCONNECT
USER
S•• 1FLAG
CL.EAR caFL.G AND
PBfL' I:)IT8.

L08 WORD
J8B SAL. vp,x

BYEIo
BrETM
BYET
SVEPT
ByEM

EQU
EQU
EQU
EQU

LTEMP
LTEMp+l
LTEMP+J
L.TEMP+4
OfF *+1
ASC; 13, MINUTE:.S OF TERMINAL. TIME,

tiYESP ASS -TTY0ta ... 1LINK
Sf3YE EQU •

•

PAGt:. fd439 _39

KILL

0581* THE KILl. ROUTINl IS USED TO D~LtTE A PRUGRAM ~RUM THE USER
kS582* LIBRARY. THE PROCt:.SS IS AS FOLl.OWSI
1) CHECK fORMAT AND DETERMINE PROGRAM NAMt:.,
kS583*
2) SEARCH DIRECTORY FOR ENTRY,
0584*
3) OBTAIN LOCATION AND LENGTH,
0585*
0586.
4) COLLAPSE DIRECTORY,
5) upDATE AUT AND lOT,
0567*
kS589

150100

0591
0592
0593
0594
0595

75000
750"1
75002
75003
75004
75005
75006
15007
75010
7511'11

059b

"597
0598
0599
0600
0601
0602
0603
1d604
10605

kS606
0607
060ij
0609
06121
06 11
0612
11'613
"6 14
06 15
1'66 16
10 6 17

06!t'*
0619
0620
0621
0022
0623
0624

75~H2

75013
15014
75015
7501(;
75011
75020
75021
75 0 22
75 21 23
75°24
75025
75026
7f;0 2 7
75°3 0
75 0 3 1
75032
75 0 33
75034
75035
752136
75037
75040
75041
75042
75043
75044
75045

ORG LIBRA
003400
070036
060273
04,,341
160000
070030
060520
00200"
070034
060347
070042
016164
060412
1001727
170034
016164
06041~

13 00 34
17 00 34
"34"34
034 0 42
027013
060031
05 0 57 0
02 7 0 33
0!tile4
027046
067°36
060335
026432
075037
005 111
04611 if
042507
040514
020116
040515
042440

0625*
0626 75046
~627

----

1'66 28
062i.

0630

KIll

75"46 116185
75 04 7 0 2 70e 3

75050 06 0 334

CCA
STA
LOA
ADA
LDA
STA
l.OA
INA
STA
LOA
STA
JSB
LOA

StT FI..AG TO SAY
FOH BUSY fr"lLE,
KILTS
HLINK+l
GET USER'S 10,
,+?IO-1LINK

~E

t1AVE TO CHECK

0,1

LTE.MP
DLTEM

STORE IN LTEMP,
SET UP POINTE.R FOR
NAM~,

KILp
,,,,3
KILC
l.CMAR
,+408
Al.f', AI.F
STA KILP,l
JSB LCHAR
LOA ~+40B
lOR KIL.P,l
srA KILP,l
lSZ KILP
ISZ K1L.C
JMP Klt..l
L.I)A LTEMP+l
CPA ASCBts
JMP KIL2
JS8 L.CHAR
JMP KILJ

SET UP COUNTER,
GET L.EFT CHAR.
BLANK If' NONE,
GE:.T RIGHT CHAH,

BUMP POINrEH.
ANY MORf:.?

YES,

NO CHARS .. ""ERROR,
TEST FOR TOO MANY,
O,K,

KIL2

LOB w+3
LOA ,.13
JMP LleER
DfF *+1
OCT 6111
ASC 6,I..L.EGAL. NAME

KIL3

EQU
JS8 DLUKP,l
JMP Kll.10

..

LOA ,,,,14

IIARC;H DIRECTORY fOR
FOUND,

PROiRA~

0631

0632
~633

.,634
0635

0636.
f0637*
003S.
0639
0640
0641
0642
0643
0644
0645
0646
0647
0648
0649
06513
0651
0652
0653
0654
0655
13656
((3667
0658
0659
0660
0661
0662
(6663.
0664
066 5
0666
0 667
0668
~669

0670
(6671.
0672
(6673
0674
"'675
0676
13677
id678

75051 0670f)J
75~52 fd26432
75053 075k')54
75054 01rHH16
75055 047440
75056 051525
75057 041510
7506121 020105
75061 047124
75((J62 e511l1

LOB *+2
JMP L.I8ER
OfF *+1
OCT 5116

ASC 6,0 SUCH ENTRY

FOUND ENTRY. NOW REMOVE IT.
75063
75064
75065
75066
75067
75070
75071
7!)072
75073
75074
75075
75076
75077
75 HHd
75HU
75102
75103
75104
75105
75106
75107
75110
75111
75112
75113
75113

064035
0741351
(044361
160001
07~H'44

0061304
104200
100001
104400
00004()
064035
044365
160001
064000
005222
074045
002021
027113
007400
101026
0030°4

KILUJ LOB
ST8
ADS
LOA
STA
INS

KII.PD
MOVED
,+7
B,l
KILO

QET LOCATION OF DISC

01..0 B,I

DRUM ADDREss
DRUM AODRt.SS
SAV~ THEM,
B .> DISK ADDHESS
AS • DISK ADDRESS

OST KILOl

SAVE DISK ADDRESS

B
A

.~
III

Ll>e KILPO

8

A08 ,.11
LOA 8,1

III> OIR ENTRy
B .» LENGTH
A • LENGTH OF FILE

LOS A
RBL,RBL
5T6 KILOI'"
8SA,RSS
J",P KIl.ll

SET DRUM sECTOR COUNT
sKIp IF LENijTh IN WOROS (NEGATIV
LENGTH IS POSITlVE 8LOCK COUNT

ete

ASR 6

eMA,INA

I 64 TO GET DRUM SEcTOR cOUNT
MAKE INTO POSITIVE COUNT

070043

STA Kll.DF
ADA ,.3
ARS,ARS
KU.. 11 ECilU *
STA KILN

034036
027211
064036
0 4 4354
160001
7b121 002021
75122 027211

lSZ KILTS
JMP KILle
LDB KILPO
AOS ,+2
LOA 1,1
SSA,RSS
JMP K1L18

TEST fOR UK TO KILL.
O,K,
TEST fOR FILE,

LOA M2000
WORD

INPUT FUSS TAsLE

07004~

040365
001121

75114
75115
75116
75117
75120

75123 060732
75124 "-170072
75125 070042
75126 16054~
70127 06 4 566
75130 016231
75131 116015

AOOR~SS.

STA

srA

LUA
LOB
JSB
JSB

I

~EGINNING

OF

TAB~E

GET DISK ADORESS TO AS
ARE THE UP?fR WORDS tWUAL1
yES, CHECK l.OWER wORDS
PLUG IN WRITl PROTECT Blr AND
CHECK paR ThAT EQUA~
EQUAL., CHECK LowER WORD
AOVANtE POINTER TO N~XT ENTRY
GET ENOING ADDRESS ANO
SEE IF wE ARE THERl yfT
NOT IN FuSS TABl.l
MUST SEARCH ON, RESTORE UPPER wo

ADVANCE TO aECONO WOkU
CHECK LOWER WORD
CAN'T Kl~L - _ FIL.E IS IN uSE
GO TRy NExT ENTky
WRITE BACK FUSS TABLE,

~l~O

JSB ORUMl.
JSB SlCKP,l
JMP KIL3

NOW IT'S STUCK IN CORE
GO wET DIRECTORY AGAlN,

K11..1 9 LOA ,-12

l.OB •• 2
JMp L16ER

OEf .+1

OCT 5106
l.f-F
~st 5,1L.E IN USE

PAGE 0442 *39

KILl

75206 044516
75207 ~20125
75210 0515105
0732.
0733
0734
1c:l735
0736
t)737
10738

0739.
0740
074 1
0742
07 4 3
0744
0745
0746

75211
75212
75213
75214
75215
75210

06403~

04436()
074050
144034
1344674
016257

KIL.18 LOB KILPD
ADB ,+12
sr8 MOVES
AOB KU,p,l
ADa ML,lSO
JSB MOVEW

SfT UP PARAMETERS FOk MOVE.

75217 160034
REDUCE DIRECTORY L.ENGTH BY 8,
LOA KIL.P,l
ADA ,+12
75220 1040366
75 221 1700 34
STA KIL.P,l
wRITE DIRECTORY SACK OUT,
STA WORD
75222 070 0 72
75223 00';'1034
LOA KIL.P
75224 002004
INA
srA MOvED
75225 070051
10747 . 75226 0403~7
ADA ,+5
0748 75227 073337
STA KILRD
0749 75230 160000
LDA 0,1
0750 75231 1064562
L.OB LIBD
1t)751 75232 0740510
srB MOVES
10752 75233 fd16231
JSB DRUML.
JMP
KILRC
0753 75234 1027326
e754.
0755 75235 060034
ADJUST WOHDS 1-4 Of OlREC,
LOA KIL.P
10756 75236 002004
INA
0757 75237 07005,
srA MOVED
10758 75240 064346
L.OB , .. 4
0759 75241 016257
JS8 MOVEW
176e.
READ IN lOT
J8B ROlL>T
,,76 1 75242 0161121 7
GET PROGRAM L.t:NGTH,
LOA
KIL.N
0762 75243 106121043
CMA,INA
0763 75244 0103004
ADB ,+7
0764 75245 1044361
AOJUSJ lOT
10765 75246 140001
ADA B,l
0766 75247 17 0121121 1
STA 1,1
LOA IDLCP
0767 75250 060075
0768 75261 1073337
srA Kll.. RD
RESTORE UPDATED
LDA IDLCP,I
0769 7525 2 160075
lOT TO
LOB LIBD
0770 75 2 5 3 06 4 56 2
0771 75254 0162~1
"THE DRUM
JSB DRUML
1(J772 75255 12127326
JMP KIL.RC
0773.
CHECK DRUM ADDRESS
L.OA KIL.O
1077 4 75 256 06 0044
SZA,RSS
TO SEE IF FILE IS SANCTlflEO
10775 75 257 VllI02100J
NO, I)ONE
JMP KILa
0776 7526'" 027276
0777.
RESTORE SPACE USED BY SANCTIFIED
10778*
FILE TO THE DRUM AOT
~779*
rtJ18rh

10781
0782
078 3

75261 06011J
75262 1d70072
7526 3 06~H 12

LOA AOL.EN
STA WORD
LOA ADLoe

GET AD TRACK LENGTH wURD
SET DRUM ORIVEk WORD COUNT
GET AD TRAC~ DRUM ADDRESS

0784
",785
0786
0787
0788
0789
10790
",791
1d792
0793
07941*

107950796.,
0797*

75264
75265
75266
75267
752711
75271
75272
75273
75274
7 5 2 75

l16456b
016231
027276
116012

LOB
JSB
JMP
JSB
LOA
STA
LUA
1.0B
JS8
JSB

06011~

070072
060112
064562
016231
11 6 1c) 15

1.1801
DRUML
KIL8
RSFSP,I
ADLEN
WORO
AOLoC
LIBD
DRUML
SlCKP,I

NOW RESTORE THE PISK SPACE TO
IHSK ADT

10798
0799

75270
75276 1160(67

Kll.8

0801

75277
75300
75301
75JIc)2
75;)03

LUA KILOF,l
STA WORD
I.DA KILO,1
SlA,RSS
JMP LLENO
Loe LIBOI
JSB DRUML.
JMp KILCS
JSB RAOTP'1
JMP KILCS
LOA KILO,1
1.08 LIBD
JSB ORUMI.
JMP KILOM
KILts EQU •

08.,.
10802
0803
0a04
10 8 liH5

160045

070072
160044
002003
026226

0806
0807

75304 064566

",809
10810

75307 116011
75311d 02731!5
75311 1601644

",808
0811
0812
10813
0814
1d815
flJ816*
0817
0818
0819
082(6

0821

75305 016231
75306 1c)27J15

75312 1d64562
75313 016231
75314 027333
75315
75315 060036
7 53 16 1d0~00J
75317 026220
15 320 016 0 47
7 53 21 015322
15322 060273

(6822
",82:3 75323 040335
0824 .75324 070257
ra825 75325 026226
0826 75326 064346
0~27
75327 1d16257
0828 75330 064072
",829 753.31 063337
0830 75.332 110016

",831

0832
0833
0834
183~

0836
0837
0838

153j3
75334
753.35
15336
75337
101d034
00035
00036

010240'"

KIL.OM

170044

170045
027315
101010 ·KILRD

KILP
KIL.PO
KIL.TS

EQU.,
JSB FAOTP,l

LOA KILTS
SZA,RSS
JMP LI..END
JSB ROPRG
JSB OCMPL.
LOA MLINK+1
AOA , .. 1LINK
8TA MAIN
JMP LLEND
LOB ... 4
JSB MOVE,W
LDB wORO
LOA Kll.RO
JS8 SALVP,I
CL.A
8TA KIL.O,1
STA KILuF,l
JMp KIL(;S
BSS 1
EQU LT~MP+4
EQU L.1EMP+5
EQU LTt:MP+6

REAU TRACK IN
PUT URUM
~RITE

SPAC~

THE AUT

BACK

TO TMt URUM

TH~

APPROPRIATE

FIND THE

Co~~tCT

DISK

GET L.ENGTH O~ DISK AoT
SET FOR URUM ORlvtR
A • ORUM AOORE.SS OF DISK AUT
CHECK EXISTANCE
NO SUCH AcT" • QUIT
GET CORE ADORESS ANO INPUT ~IT
READ THE DISK ADT IN
CAN'T, fOR~ET ABOUT RETURNING IT
PUT SPACE FOR THIS ENTRY BACK
SKIP REWRITE
Aw ORUM ADDRESS
WRITE OUT urOATED ADT
CAN'T, MAKE IT DISAPP~AR
DID WE JUST KIL.L. A
f-lL.E1
NU.
IF WE DID, WE HAVE TO Ot:.COMPILE
THE ~UY ro MAKE SURt: H£:: OOt:SN'T
USE IT,
LEAVE USER J~ CORE,
TERMINATE,
RESt:.T OIREC

ZERO DRUM ADDRESS
ZERO LENGTH

PAGE 0444 #39
rd839
0840
0841
0842
0843

KIL.L

0"'04112
0004113
00044
00045
0rd046
16844. LTEMP+15 18
1d845

75340

KlLC
KIL.N

EWU L.T~MP+10
EQU L.TEMP+l1
KILO EQU LTEMP+12
KIL.OF EQU L.TEMP+1J
KIL.Dl EQU L.TEMP+14
usto HERE ALSO
SKIL EQU ..

10002* THE RENUMBER ROUTINE IS CALLED BY A USER TO ASSIGN

NE~

SEQUENCE NUMBERS TO ALL OR A PART OF A PROGRAM, THE FORMAT
THE COMMAND lSI
REN .. M,/Ii,P,Q
M IS THE NEW INITIAL SEQUENCE NUMBER
N IS THE NE~ INCREMENT
P
IS THE FIRST STATEMENT TO BE RENUMBERED
00'H3.
000~h Q IS THE LAST STATEMENT TO BE RENUM~ERED,
01010* DEFAULT VALUES ARE ASSIGNED AS ~OLLOWS,
M.10 f N.10, P.FIRST STEATMfNT, Q.LAST STATEMENT
0011*
0003*
0004*
0005*
IrH'06*
0007*

0012*
0014
0015
0016
001 7
0018

0019
0020

0021
0022
0023

0024
0025
1'd026
0027
01'd28

0029
8030.
0031*
frHrJ32.

0033
0034
0035
0036
0037

75000
7501r:'10
75001
75002
75003
75004
75005

060273
040340
164000
054702
026226
016047
75~H'6 06427"
75"H:,)7 044335
76010 06rt1354
75011 110001
750112 064056
75013 070033
15014 011:12002
75015 065575
75016 07 404ro

75~17

061577
07~037

0040
"041
10042
0"'.3
0044

75032 05 0 426

0039

0045

074fd45
060364
070031
07 00 32
017417
021134

074031
050367
r/J2713~

0049

75033
75034
75035
75036
75037

ftHl'S0

75040 05 0 4 2 6

0051

75041 0114 1 7

1,62
0063
0054
0055

751~2 027~5.

0046
0047
0048

LIBRA
ML.INK+l
.+1 PRO G"'?LINK
0,1

PBUfF
LLENO
J$6 RDPRG
LOB MLINK+l
ADS •• ?L.INK
LOA CFLA~
AND 1,1
LOB PBPTR
STA Rt:.NC

NULL PROGRAM?
YES
READ IN USER PROGRAM,
COMPUTE
P~OGRAM

STATE

SZA
LOB SYMTb
8TB RENEN

~ND

END Of PROGRAM

SET UP INITIAL SEQUENCE NUMBER AND INCREMENT
75020
75021
75022
75023
75024
75 0 25
75026
75ro27
75030
75-031

0°38

ORG
LOA
ADA
LOB
CPB
JMP

017417

027454
074032
06"367
021134

75043 074037
75044 050367
75045 027ro75

LOA
81A
STB
LOA
STA
STA
JSB
JMP

SPROG
REN~A

.+h'

RENM
RENN
RE,NUM
REN1
8T6 RENM
CPA ,+15B

J"P RENI

CPA .... 54ij
JSB RENUM
JMP RENFl
8rB RENN
CpA ,+itSB

JMP
CPA
JSS
JMP
STB
CpA
JMP

INITIALIZE,

RENL.A

RfoN1
,+546

RENUM
RENFl
RENijA
,+158
REN22

DEFAUl.T

VALUES
'PARAMETER?
NO
yt:.S, RECORD IT
END OF RECORD1

YEI

NO, COMMA?
DEMAriO SECOND
NONE fOUND
RECORD IT
END OF RECORD?
YES
NO, COMMAl
YES, DEMANr, THIRD
NOT FgUNi)
Rt:.CORO IT
END OF RECORD?
YES

O~

PAGE 0446
0056
0057

1d058
10059
01060

0061
0062
IdkJ65*
0067
0068

~ENUM8ER

75046 050426
75047 1017417

CPA .... 548
JSB RENUM

75050
75051
75052
75053

JMP RENrl

027454
074045
050367
002001

7505 4 027 45 4

r.t003*
0064*
IItIrJ66

#4~

*

0069
0070

0071
0072
10073

0074
101075

0076
0077
10078

0079

0080
0081
0082
0083

0084
1cJ085*
0086*
0087*

0,,91
0fcHn
0093

",,,94
0095

0096
0097
0098
10099
01010
0101
0102
0103
0104
1d105

kl106
1d107
01,,8
10109
10110

NO,

t.~RO~

FIND TH~ ~AST SEQUENCE NUMBER LESS THAN
OR EQUAL TO RENLA, AND SET RlNLA TO POINT TO IT
75055
75056
75057
75057
75060
75061
75062
75063
75064
75065
75066
75067
75070
75071
75072
75073
75073
75074

065577
074030
054040
027073
160001
003004
040045
00202~

02707J
074030
060001
002004
144000
027057
064030
074045

LOB SPROG
SrB RENL.
RE,.,,20 EQU •
CPS RENEN
JMP REN21
LOA B,1
CMA,INA
ADA RENL.A
SSA
JMP REN21

8T8
lOA
INA
Aoe
JMP
RlN21 EQU
LOB
STB

RENL.
B

A,l
REN20

*

START WITH FIrST

PRO~RAM

WORD

PROGRAM EXHAUSTEO?
YES
CURRENT SEQUENCE
NUMeER GREATER
THAN HENLA?

YES
NO,

SAV~

PoINTER TO STATEMENT

SET (e) TO
NEXT PROGRAf'I
STATEMENT

RENt..
RENt..A

FINU THE FlRST SEQUENCE NUMBER GREATER THAN
OR E~UAl TO RENBA, AND SET RENBA TO POINT TO IT

0r.tStt*
00 89 75075
0090

8TS RENt..A
CPA .+158
R8S
JMP RENFI

NO, COMMA1
DEMAND FOURT~
NONE FOUND
REtaRD IT
END OF RECORe?

75075
75076
75077
7511210
75HU
75102
75102
751133
75104
75105
7510 6
75107

060k'JJ7
003004
070037
065577
074030
054040

027115
160001
040037
002021
027115

751113 060001
75111 002004
75112 074030
7~11J 144000
75114 027102

75115
75115

~54040

75116 027366
75117 074037

Rt.N22 EQU ..
LOA RENSA
CMA,INA
STA RENSA
L.Ob SPROG
STB RENL.
REN23 EQU *
CPS RENEN
JMP REN24
L.OA B,I
ADA RENSA
SSA,RS8
JMP REN24
LOA B
INA
S'TB RENL
ADa A,1
JMP REN2J
RfN24 EQU ..
CPB RENEN
JMp REN13
STB RENBA

START WITH FIRST WORD OF PROGRAM
PROGRAM EXHAUSTEO?
YES
CURRt:.NT SEQUENCE
NUMBER GREATER THAN
UR EQUA~ TO RENBA1

YES
NO,
Sl T (B)
TO NEXT
PROGRAM
S]A TEMENT

SEQ NS~ ij~yOND PROGRAM?
yEs, SO FINJSHED

0111
0112

0113.
0114*
fUUS.
0116
0117
011S
0119
0120
0121
0122
01 23
0124
0125
0126

rnal.

75120 055571
75121 027127

CP~

SPROG

JMP

RE~29

1ST STATEMENT
YES

TEST FOR SEQUENCE NUMbER OVERLAP AT RENBA
75122 0(;21031
75 123 00300 4
75124 140030
75125 002021

75126 027372
75127
7~H27 06 0 037
75130 003 0 04
75131 0 4 00 45
75132 002020
75133 027454

LOA RENM
CMA,INA
AOA RENL,l
SSA,RSS
JMp RENf2
Rt;.N29 EQU •
LOA RENBA
CMA,INA
ADA RENLA
SSA
JMp RENFl

LOAD NEW ijA SEQ NBR
GET OL.O
SEQUENCE NUMBER
OvERL.AP?
YES
RENL.A
GRt::.ATt.R
THAN OR
EUAL. 10 RENBA1
NO, FAIL

k'12S* GET NUMBER Of STA TEMt::NTS ll~ PROGRAM
012i.
Rt:.Nl EQU *
0130 7 5 134
CL.A
INITIALIZE
0131 75134 002400
STA
RENNS
COUNTE.R
75135
070041
0132
0133 75136 06 55 77
LOB SPROG
0134 75137
Rt:.N27 EQU *
CPS RENEN
DONt::1
0135 75137 1d5404i>
0136 7t:>140 027146
YES
JMP REN2
0137 75141 060001
LOA B
ADVANCE
TO
0138 75142 002004
INA
9
ADB
A,l
NEXT
75143 14400"
013
ISZ RENN~
STATEMENT
0140 7514 4 034041
JMP
REN27
0141 75145 027137

"1.2.
~143*

IS" ••
k'145
0146
0147
0148
0149
0150
lin 51
01 5 2
IU 153
k'154
0155
0156

"117.

GET THE NUMBER OF STATEMENTS FROM RENBA TO RtNLA
75146
75146 002400
75147 07et0J0
75150 (d64037
75151
75151 054045

75152
75153
75154
75155
75156

021160
06~001

lI02.0.
144000
0340Je'

75157 027151

Rt.N2

EQU ..
CLA

srA

RENL.

LOB RENaA

REN25 EQU ..

CPB RENI..A
JMP REN26
L.OA B
INA
AO~ A,l
lSZ RENt..
JMp REN25

INITIALIZE
STATEMENT COUNTt.R
STARTING STATEMENT
PROGRAM EXHAUSTED?
YES
NO

SET UI)

TO NEXT
PROGRAM
STATEMENT

015S* TEST FOR SEQUENCE NUMBER OVERLAP AT RENI.,A
0U5V.
RfN26 EQU 'It
016" 75160
LOA RENL
COMPUTE
0161 7516(d 0ou030
Hi ..
LDe Rt:;;t
040351
070034

75263 017467
75264 021332
75265
75266
75267
75270
75271
75272
75273
75274
75275
75276

064544
16£1£1£11
00300(0
140034
"02024
1t)27J£l2
0"60£14
1654644

RENt4 LI)A SPROG
STA RENQ

ADA , .. 1
STA RENP

REN4

REN7

GET NEXT STATEMENT RlfERENCE.
NONE LEFT,

LOB ERSeA
LOA 1,1

CMA
AOA RENP,l
SSA,INA
JMP REN5

FOUND ONt,

l~S

CPb ERSJ2

002~01

TE8T FOR L)ONE,

RSS

JMP REN7

02 7 266

75277 044411
753016 060056

753161 027311
753162 044t412
75303 0162003
75304 027324
75305 054~44
75306 ,,27326
75307 16£1001
7531fd 044351
75311 1641601
75312 070042
75313 16 0034
75314 "0616164
75315 1440161
75316 ~443f>1

JSB RENSK
JMP REN9

INITIALIZE POINTERS
FOH HENaK.

REN5

A06 ,+31
LOA PBPTR
JMP REN6
ADS .+32

SZA,RSS
JMP REN1e

CPS ER832
JMP REN17
LOA 1,1

ADB .... 1

REN6

LOB 1,1
STA RENC1

LOA RENP,l
REN16 INS
AOB 1,1
ADB .",1

STATEMENT IS IN LAST GROUP,
B-.FIR8T STATEMENT IN GROUP,
TEST FOR FOUt.iD,
TEsr FOR NOT

IH~HE.

8fT A.~FIR8T WORU SEYONO GROUP.
AT FIRST ~ORD aEYO~D 'ROU~,
SAVE ENO TEST,
GET SEQUENtl NUMbER,
BUMP STATEME~T POINTER.

PAGE 0450 #40
1d274
0275
0276
°277
0278
0279.

75317
75320
75321
753.22
75323

~280

753 2 4
75325
75326
75327
7 533VJ
75331

0281
0282
0283
"-128 4
~285

RENUMBER
CPB
JMP
CPA
JMP
JMP

~54042

11'27326
150001
02733 0
"27314

164001
027330
164034
0451::)36
17 4034
~27263

REN18 L08
JMP
REN17 LOB
ADe
RENe STe
JMP

RENC1
REtd7

TEST fOR DONt:..

1,1

T~Sl

fOR FOUND.

RENe
REN16

1,1
*+3
RENP,l

B1T15

RENP,l
REN4

SET BIT15 FOR
UNDeflN~D LABELS.

0280*

0287* NOW CHANGE ALL LABELS TO THEIR NEW VALUES,

0288.

0289
0290
0291
0292
0293
"294
0295
0296
,,297
"'298
0299
0300
0301
0302
0303
030 4

~3"5*

75332
75332
75333
75334
7 5 334
753.35
75336
75337
753411'
75341
75342
75343
75344
75344
75345
ns 3 46

RI:.N9

060037
064031
05kl045
027344
174000
04403~

002004
140000
040351
027334
~5"040

002001
174%

EQU *
LOA RENSA
L08 RENM
REN10 EQU
CPA RENL.A
JMP RE N2 8
ST8 A,l
ADe RENN
INA
ADA A,l
ADA ,-1
JMP RENl'"
REN28 E.QU ..
CPA RENEN
RSS
8Te A,l

•

DONEl
YES

~O, R~CORD NEW SEQUENCE NUMBER
INCREMENT TO NEXT LINE NUM8ER
MOVE
TO
NEXT
STATEMENT

RECORD LAST

St~

NBR

0306· SCAN REfERENCES AGAIN, If ABSOLUTE AODR~SS IS TH(RE,
16307. REPLACE BY NEW L.ABEL, OTHERWlS~ RfPLACE BY OLD LABEL,

03filJt••

O309
10310
0311
16312

0313
0314
0315
0316
[(1317
0318
031~

0320
Id J 21
0322
0323
10324
1032 5
0326
10327
IdJ21:t

75 3 .7
7535(d
75351
75 3 0 2
75353
75354
75355
75356
75357
7 53616
75361
75 3 6 2
70363
75364
75365
75366
750367
75370
75311
75372

06 0033
1302002
027366
166 1577
07 00 35
040351
070034
kH7467
1027366
1601034

001275
002001
16 0000
170034
027356
060273
1t)40 33 5
070257
~26226

REN11 LDA RENt
IS PHOGRAM
COM P I LEl) .,.
SZA
JMP REN1J
yES
LOA SPROG
STA RENQ
ADA ,-1
STA RENP
SEEK EMBEDDED
REN12 JSB RENSK
STATEMENT REPERENC~S
JMP REN13
NONE LEFT
LOA RENP,1
IF RlFERENCt:. Ie
NEGATIVE, CLEAR elT 15,
RAL,CLE,SL.A,ERA
RS8
OTHEHWISt:., REPLACE IT,
WITH THE NEW
LOA 0,1
srA RENP,l
LINE NUMBER
JMP HEN12
SET FLAG TO SAY
REN13 LOA ML.INK+l
'U$~R PRO~RAM 10 CURE'
ADA .... 1LINK
STA MAIN
JMP LLENO
RENF2 E.QU *

PAGE 0451 #40
0329

0330
0331
0332
0333
0334

RENUM6~R

LOA
L.DB
JMP
DEf
OCT
ASC

75372 063604
75373 ~67375
75374 020432

75375 k)7537b
75376
75377
7541210
75401

005123
042521
052505
047103

LENT
RENte'
Ll~ER

.... 1

5123

LF~S

16,EQUENCE NUMijER OVERFL.OW/OVEkL.Ap

75402 0424410
75403
75404
75405
75406
75407
75410
75411
75412
75413
75414
75415

047125
046502
042522
020117
053106
051106
046117
053457
047526
042522
046UH

75416 0500410

0335.

0336* RENUM SCANS INPUr BUFFER fOR A NUMBER, IF IT FINDS NOThlNG
0337. IT RETURNS WITHOUT SKIPPING.If IT FINDS A LEGAL LABEL
033t:i* (1~9999) IT RETURNS WITH IT IN B AND THE N~XT CHARACTER IN A,

0339* AND SKIPs.ON THE WAY
IJ.U,..
03141
0342
0343
0344
0345
0346
0347

10348
0349
0350
0351
0352
0353
0354
03 55
0356
0357
0358
0359
0360
0361
0362
1c1363
03 6 4
0365
13366
0367
0368

75417
7f5421c1
75421
75422
75423
75424
75425
75426

000000
002400
070030
016164
127.U7
040316
002021
027447

75427 04ii364
75430
75431
75432
75433
75434
75435
75436
75437
754410
75441
75442
75443
75444
75445
75446
75447
75450
75451
75452

002'320
027441
06 4030
1347605
006021
027454
064 0 3°
005222
044030
005200
040001
07~030

1016\64
027450
027424
04 0 432
1tJ640~0

1637.17
0060162

~ACK.

IF IT FINDS AN ERROH IT GOES TO HENF,

Rt:.NUM NOP
CLA
STA RENL.
JSB LCHAR
JMP RENUM,l
RENUI AIJA M72B
SSA,RSS
JMP RENU2
AOA .... 1~
SSA
JMP RENU2
LOB RENL
ADB .1000
SSB,RSS
JMP RENF1
LOB RENL
RbL,R8L

ADB RENL
RBI..

ADA 1
SlA RENL.
JS6 LCHAR
JMP .+3
JMP RENUl
RENUa AOA .... 608
LOB RENL.
lSi RENUM
SZB

INITIALIZE INTEGER
TO ZERO
ANy CHARACTlRS?
NU
YES, 1S!T
c ASCII 72 1
NO
yES,
• ASCII 57 1
NO
YES, PREVIOUS
INTEGER
c lkt01d '1
NO
YES
MULTIPL.Y
BY
10

ADO IN
NE~

DIGIT

FETCH NEXT
CHARACTER
RESTORE ANY Lt:.GAL CHARACTER

PAGE 0452 #40
0369
0370
10371
0372
0373
0374
0375

0376
0377
"378
0379
"j80
0381
0382
0383
0384
0385
0386
0387
0388
(()389
0390
10391
~J92

0393
1d394
10395
(()396
0397
039ij
0399
0400
04 01
0402
0403
0404
(()405
0406
0407
040ij
0409
04 10
0411
0412
0413
0414
041 5
0416
0417
0418

75453
75454
75455
15456
75457
75460
75461
75462
75463
75464
75465
75466
75467
75470
70471
754 72
75473
75474
75475
75476
75477
75500
75501
75502
75503
75504
75505
75506
75507
75510
75511
7551~

RENUMt::H:::R

127417
060334
¥:J67tl67
026432
075460
00510~

041t)51t)4
020120
040522

JMP
RENFl LDA
LDB
JMP

RENUM,1
,-14

YES

*+2

LIBER

DfF *+1

OCT 51 0 2
I..F-S
ABC 6,AO PARAMETfl't

~40515

0425i4
04252~

000000
034034
064035
034 0 36
002001
027502
054034
027502
037467
127467
074035
054056
127467
0024016

0 7 0036
034035
064035
034036
160035
010664
144001
044351
053576
027573
0535 77
02 756 0
0536afcl
0275CH1
053601
027557

75513
75514
75515
75516
7 551 7
755 216
75521
75522
75523
75524
75525 063602
75526 002001
75527 027533
755J~ 034035
750 31 160035
75532 010664
75533
75533 050656
75 534 002001
75535 0275""
75536 034035
70537 160035
75540 010664

RENSK NOP
lSZ RENP
LOB RENQ
ISZ RENR
RSS
JMP RENS2
CpS RENp
JMP RENS2
RtN~H ISZ RENSK
JMp RENSK,l
ST8 RENQ
RENS2 CP8 P8PIR
JMP RENSK,l
CL.A
SrA RENR
ISZ RENQ
LOB RENQ
lSI RENQ
LOA RENQ,l
AND OPMSK
AOB 1,1
ADS .-1
CpA REsOp
JMP RENS5
CPA GOTOP
JMP ~ENS3
CPA GOSOP
JMP RENS3
CPA IFOP
JMP RENS3 .. 1
CPA HTOPR
~S8

JMP RENS6
ISZ RENQ
LOA RENQ,l
AND OPMSK
RENS6 EQU
CPA PRTOP
RSS
JMP RENS2-1
lSZ RENQ
LOA RENQ,l
AND OPMSK

•

INCREMENT POINTER
?
NO
yES
STATEMENT FIN;SHED?
yES
NO, RETURN ~ITH RENP
Stl TO NEXT REfERENC~
UPDATE TO NEXT STATEMENT
PRO~RAM EXHAUSTED?
YES
CLEAR USING
FLAG
EXTRACT
ST A1EMENT
TYPE
sfT (B) TO
Nf:.XT STATEMENT
 1
yES
NO, cGOTU SIAT~MENT> 1
YES
NO, ~GOSUB STATEMENT> ?
yES
NO, ?
YES
NO, CHAT aIATI:Mc.NT~1

vEs

NO
GET NEXT
OPf;.RATOR
?

YES

NO

GtT NEXT
OPERATOR

PAGE
0419
0420
0421
0422
0423
0424
0425
"'426
0427
0428
0429
0430
10431
0432
0433
0434
0435
0436
0437
16438
04 39
"'44 0
0441
0442
0443
0444
10445
k14<46
104<47
0448
0449
0450
11)451
0452
10453
",454
icJ455
10456
0457
10458
O459
11)46"
0461
16462

"'463
0464
16465

111466
0467
~468

10469
10470
0471
.~-

~45J

*40

RENUM"fR

050776
00204'1
027t501
120035
050670
002001
027501
755516 003400
75551 070036
75552 060035
75553 0162004
75554 070034
75555 074035
75556 027477
755~7 06360J
75560 030670
75561 074035
75562 044351
75563 074034
15564 044351
75565 15 000 1
15566 "27471
75567 060706
75570 150001
75571 027-:477
75572 027563
75573 150B35
15574 027501
7 55 7 5 02 7 5 0 0
00030
00031
00032
00033
00034
OO035
(11)036
"0037
00040
00041
00042
000 4 3
00044
00045
00046
75576 066000
75577 0520e0
756160 056000
7561111 053000
75602 061;d0'"
15603 075000
756104 171737
75605 116 0 3 0
75606

75541
75542
75543
75544
75545
75546
75547

RlNS3
Rtt.. S4

CPA
RSS
JMP
XOR
CPA
RSS
JMP
CCA
STA
LOA
INA
STA
STB
JMP
LOA
lOR
8TB
ADB
Sla
ADS
CPA
JMP
LOA
CPA
JMP
JMP
CPA
JMP
JMP
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EtIIU
EQU
EtIIU
EIiIU
EQU
EQU
EQU
OCT

USe:;OP

.U81N. STATEMENTl

RENS2 .. 1
RENQ,1
INTFL

NO
GET OPERAND

yES
INTE~ER

FO~LCWSl

YES
RENS2.1

NO

SET USING
RENR
RENQ
RENP
RENQ
RENSl
THNOP
INTFL
RENQ

,-I

RENP
,-1
1,1
RENSl
OFOP

FLAG

SET
REFERENCE
POINTER
SET POINTER TO

N~XT

LOAf) 'THEN'
CREATE REfE~ENCE HEADER
SET ~OlNTEp. TO NEXT STATEMlNT
SET POINTER TO
PROSPECTIVf Rf~EREN~E
PREtEDED t;Y
REFERENCE HEADER?
YES
NO, LOAU HEADER FOR

1,1

REN81
RENS4
Rf.N85
RENW,I
RENS2.1
RENS3
Rt,NL
LTEMP
LTEMP+1
RENM
RENN
LTEMP+2
RENt
l.TEMP+3
RfNP
L,TEMP+4
Rf.NQ
L.TEMP+5
RENR
LTEMP+6
RENtU
"'TEMP+7
RENEN
I.TfMP+8
RENNS
LTEMP+9
RENel
LTEMP+10
RENC2
LTEMP+l1
RENC3
LTEMP+12
REN!..
LTEMP+13
RENSN
LTEMP"'14
66000
RESop
GOTUP OCT 52000
GOSOP OCT ee000
IfOP OCT e3ld00
MTOPR OCT 670160
THNOP OCT 75000
LENT DEC -33
.1000 DEC -Ut00
SREN EQU •

SlATEMENT

REFERENCE, LIST
ANY REFERENCE?
NO
YES

~473*

k1477

0483

0484
k1485
0486
0487

0488
0489

0490
04fU
0492
0493

k1494
16495
0496
0497
0498
0499
05 00
0501
",502

050J-

0504
0505
16506
16507
0508
0509

0513
0514
0515

75000

ORG LIBRA

060273
040342
070030
070033
7~004 1600e0
75005 011030
75006 070034
75007 ~60J47
75011cJ 0716031
75011 002400
75012 070032
75013 017055
75014 k101727
75015 170030
75016 017 0 55
75017 130030
75020 170030
75021 034030
75022 1cJ34031
75023 027~.'I1;l
75024 160033
75025 030034
75026 170033
75027 017055
7503", 050412
75031 026226

LOA MLINK+l
SET POINTER TC NAME,
AOA •• 1NAME"1~INK
STA LTEMP
STA LTEMP+3
SAVE NAME POINT~R IN LTEMP+J,
LOA ~,l
SAVE RUN-ONLY BIT IN LTEMP+4,
ANO B1115
STA LTEMP.4
LOA ,NJ
SET COUNTER,
STA I..TE::MP+l
CLA
SET FLA' TO SAY
srA LTEMP+2
fIRST CHARAtT~R
JSB NAMER
GET A CHAR,
ALF,ALF
STA LTEMP,l
Ja8 NAMER
GET 2ND CHAR,
lOR LTEMP,l
STA LTEMP,l
ISZ LTEMP
BUMP NAME POINTER,
lSZ LTEMP+l
TEST FOR DONE,
JMP NAM~1
LOA LTEMP+J'1 GET fIRST WORD OF NAME
lOR LTEMP+4
MERiE IN RUN.ONLy BIT,
STA LTEMP+J,I
JSB NAMER
T£ST fOR ONLY ~ CHARS,
CPA ,+411tB
JMP LLEND

75000
75001
75002
75003

0478
1d479
0480
0481
k1482

0 5 UJ
(1511
kl5 12

THE NAME ROU1INE ALLOWS A USER TO ASSIGN HIS PROGRAM A NAME.

*

75032
75033
75034
75035
75036
750J7
75040
75041
75042
75043
75044
75045
75046
7Sld47
75050
75051
75052
75053
75054

063054
067035

026432
075036
1605117
047U4

NAM~l

lOA NAM27
LOB *+2
JMP LIBER

DEF *+1
OCT 6117
LF-O
ASC 13,NLY 6 CHARACTERS ACCEPTED

054440
033040
0415116
040522
040503
052180
051123
1620101

041503
04252~

052105
042040
1771 45

75055 0.,0000
75056 016164
75057 060412
750616 k170001

NAM27 DEC -27
NAMER NQP
JSB LCHAR
LOA .+408
STA 1

GETI

~EXT

NAHt CHARACTER,

USE SLANK IF
HOLD IN ~,

~ND

OF

LIN~,

PAGE 0455 #40
0516
~517

051S
0519
0520
0521
11:1522
0~23

V:J524
V:J525
0526
1052 7

8~28.

"'529
1d530
0531
0532
0533
1d534

0535
05 3 6
0537
0538
~53g

0540
0541
0542
0543
~544

0545
0546
~547

NAME

75061
75062
75063
75064
75065
75066
7512167
7507'"
75071
75072
75073
7507 4

010;30
0020tD2
060130
027056
06fr'1001
064"'32
03412132
051£'416
002001
050424
00 6 002
0 2 7115

75075
75076
75077
75100
751''1
751 0 2
75103
75104
751k'5
75106

106 0 3 22

067100
026432
12175101
005111
046114
042507
040514
020106
044522
751~7 051524
75110 020103
75111 044101
75112 05111cH
75113 041624
75114 042622
75115 ~50426
75116 0"'2001
75117 127~55
75120 060:,.7
75121 0/0030
75122 (064273
75123 044342
75124 063132
75125 170001
75126 006004
75127 034030
75130 027125
75131 026430

0546.
0649 75132 fd20040
0550 75133

AND ,140

TEST FOR

CONT~OL

CHAR.

S~A

CpA
JMP
LOA
LOB

,140
NAMER+l
1
LTEMP+2
lSZ LTEMP+2
CPA ,+44B
RSS
CPA ,+528
SZB
JMP NAME2

S~IP CONTRO~ CHARS,
GET IN A AGAIN,
GET 1ST CHAR FLAG,

IF

$

OR IF •
AND FIRST CHARAC1'£.R

PRINT ERROR
L.OA ,-24
L.Oi; .... 2
JMP Ll~ER
OlF .+1
OCT 5111
LF-l
ASC 11,LLEGAL. FIRST CHARACTER

NAP1E2 CPA
RSS
JMP
LOA
STA
LOB
AOB
l.OA
NAtoIF\.. STA
INS

,"'546

IS CHARACTEH A COMMA1

NAMER,I
NO, Rf;TU~N CHARACTE.R,
yES, 8LANK
,.3
l.TEMP
OUT
MLINK+l
,+1NAME .. 1LINK
NAMBL
IL.l.EGAL.

SrI

lSZ l.TEMp
JMP NAMFl.
JMP ILFER

NAMBL ASC 1,
$NAM EQU •

NAME,
OUTPUT ERROR MESSAGE.

PAGE 0456 #41

CATALOG

P~INTS A LIST OF USER PROGRAMS ANg ~l~ES ON THl USER
TELETYPE, IT PRINTS THEsE, 4 PER LINE, A~ONG WITH THEIR LEN~THs
0004. AND AN INDICATION OF FILES, CSAVED PROGRAMS, PROTECT~D ENTRIES,
ra~05. AND SANCTIFIED ENTRIES,
~IeRARY MUST fOlL.OW CATAL.OG IN SEQUENCE,

IcHi)02*

CATA~OG

0~H13.

0006*
""407

0""S.

10009
1c1010
0011
k.l012
0013
111(J14
0015
0fcl16
0017
1/101~

0019
0020
.,021
0022
1/1023
01(J24
0025
0026

0027

0028

0029
1a030

0"31
1/Ik)32
raI(J33

0034
1(J035
1/1036
0037.
0038
0039
0040
0041
0042
0.,43
0044.
1(J1(J45
0040
k)047
0048
1d1a49
lae50
I1Jr'!U *
1c1052
0053
01c154
0055

0056

URli

75001d
75"'1c11
75002
75003
75004
75005
75000
75007
75010
750H'!
75011
75012
75013
75014
75014
75liH5
75 016
75017
75020
75021
75022
75023
751c124
75025
7f)ICJ26
75027
75030
75031

00240'"
070031
070032
070033
061c1364
016132
060346
070036

Llt~RA

CLA
STA LTEMP+1
STA LTEMP+2

016132

STA lTEMP+3
L.OA ,+126
JSB L.OUT
L.OA , .. 4
STA CATJ
CAT00 EQU ..
LOA ,.g
STA CATN
LOA CATTP
STA CATS
CAT01 EQU *
LOA CATS,l
ALF,ALF
AND 8377
J8B LOUT
LOA CATS,1
Af\lO 8377
JS8 LOUT
ISl CATS
ISl CATN
JMP CAT01
ISl CATJ
JMP CAT00
L.OA ,+158
JSB LOUT

~o027J

CArl

060341
070037
063346
070044

160044
01(J1727
010 4 43
016131t
1601/144
01044J
1/116132
034044
034037
027014
034036
027010

060367

LOA
ADA
LOA
JMP
BSS
STA

0271647
000000
070030

7505 0
75051
75052
75"'53
75054
75kl!55

06 0 346
070037
01c12400
070t:l36
06 03 6 4
1/'16132

L.OA
STA
CLA
STA
LOA
Ja8

75056
75057
7506",
75061
75kl62

116005

JSB OI.OKP rl

0000160
160034
003004
040562

NDP
LOA CATI,I
CMA,INA
AUA LISD

CAT2

OUTPUT LEfT CHARACTER

OUTPUT RIGHi CHARACT~H
BUMP TO NEXT MEAOING ~ORD

MLIN K+l
SET USER 10 INTO L.TEMp,
.+110",1LINK

751d32
75033
75034
75035
75036
75047

040341
160000

FIRST TIME IN, SET L.TEMP,1IJ).0.
~E WILL HAV~ TO LOCATE THE FIRST
DIRECTORy E~TRy FOL.LOwING
LTEM~":HJ) •
L.f"

16,1

CAT2
9
L.TEMP
,"'4
CATN
CATJ

,+128

SpACi FOR 10 ~ALCS IN GROUP
RENDEZVOUS ~ITH "L16RARY".
SET N TO COUNT # OF NAMES ON
THIS L.INE,
SET J-0 TO INOICATE THAT NO
DIREcTORY TRACK HAS sEEN EXAMED
EMIT A L.INE FEED.

LOUT
FINO LAST ENTHY C_ LAST
OUTPUT.
COMPUTE LAST AOD~ESS
IN TRACK,

ON~

PAGE 0451 #41

CATALOG

0057 75063 0713'-141
IleS*
0059 75064 061003t)
fdftHH:I
75065 040366
0061 751066 0700J~
10062 75067 050041
0063 75QJ70 027275
006 4 75 0 71 16 003 5
0065 75072 050030
00 66 7507J 027077
0167*
0068 75074 060;'67
tJ069 75075 016132
0070 75076 026226
0171.
0072 75077 027104
0073 75100 000000
0074 75101 000000
0075 75102 000000
0076 75103 000000
1rJ077 75104 0603~7
0078 7511rJ!5 070042
0079 751136 03~035
1t:1080 75107 16 00 35
1t:1081 75110 001727
0082 75111 0161~2
0083 75112 1601tJ35
0084 75113 016132
0085 7511" 0J4042
0086 75115 027106
0087 75116 060412
0088 75117 016132
0089 75120 16003~
009~
75121 002021
0091 75122 02i'!25
009 2 7 5 123 063342
0093 75124 027135
0094 75125 0074ra0
0095 75126 04.035
0096 751 2 7 16 0001
00 97 75 130 002021
0098 75131 027134
0099 75132 06 33 4 3
0100 70133 002001
0101 75 134 060~1~
0102 75135 016132
ItH03 75136 1t:164~J5
0104 75137 044350
0105 75140 16~001
010 6 75 141 01D2~2!
0107 7 5 142 02~14;
0108 75 143 06 33 44
0109 75144 002001
0110 75 145 0 6 0 4 12
0111 75146 016132

STA CATQ
CAT22 L.DA
AOA
CAT10 STA
CPA
JMP
LOA
CPA
JMP

CATP
,+12
CATP
CATQ
CATll
CATP,I
lTEMP
CAT12

CATIJ LOA ,+1513
JSB LOUT
JMP L.L.ENO
CAT12 JMP CAT23
NOp
~OP

CAT 2 3
CAT15

CAT20

CAT21

NOP
NOP
LOA
STA c:~c
181 CATP
L.OA CATP,l
AL.F,AL.F
JSB LOUT
LDA CATP,1
JSB lOUT
I5Z CAfe
JMP CAT15
LOA ,+40B
JSB L.OUT
L.UA CATP,l
SBA,RSS
JMP CA120
lOA ASCC
JMP CAT21
CCO
AOB CATP
L.OA 8,1
aaA,RSS
JMP .+3
L.UA ASCF
RSS
L.DA ,+4,,8
JSO L.OUT
LOB CATP
ADB ,-2
L.UA B,I
SSA,RSS
JMP .+3
L.OA ASCP
RSS
LOA ,+400
JSB LOUT

8ET P TO NEXT
ENTRY
IF PIQ, WER~ DO~E wITH THIS
TRACK_-GO LOOK AT NEXT ONE
TEST FOR ENT~Y BELON~lNG TO THIS
USEH-'IF NOT, WE'RE DONE.
EMIT CRLF

THIS SpACE IS RESERVED
FOR THE IL.l-STOREO
PROGRAM CHECK IN
LI8R~PY AND GROUP,
SET UP COUNTER FOR
PRINTING NAME,
BUMP P TO NEXT WURD,
(fET t..tFT CHAR,
PRINT IT,
OUTPUT IT
TEST FOR 6 CHARS OUT.
OUTpUT A

~LANK.

GET THIRD WORD OF NAME.
SEMI-COMF lI... EO?
NO
YES, OUTPUT A "C"

GET SECOND .. ORO OF NAME
FlLE?
NO
YES, OUTPUT "F"
NEITHER, OUTPUT

" "

POINtER TO
FIRST WORD OF NAME
GET IT
PR01ECTEDl
NO
YES, OUTPUi' "PIt

PAGE 0458 *41
0112
~11J

~114

0115
0116
kill 7
011ij

011 9
0120
0121
0122
"'123
0124
0125

CATA~OG

75147
75150
75151.
75 152
75153
7515 4
75155
75156
75157
75160
75161
75162
75163
75164

064035
044356
160001
IrH1200J
027156
06 334 5
002001
060412
016132
060035
04036c:
fr:I70035
0024fiHo
070045

75165
75166
75167
75170
75171
75172
75173
75174
75175
75176
75177
752"'°
752101
75202
75203
75204
752135
752136
75207
75210
75211
75212
75213
75214

160035
0020216
003004
006400
100400
001032
017256

LOA CATP,1
BaA
CMA,INA

l1i)040~

LOB CATP
Aoe .... 4
LOA B,I
SZA,~SS

JMP .... 3
L.OA Ases
RS8

LOA
JSB
LOA
AOA
STA
CL.A
STA

.+41D8
LOUT
CATP

POINllR TO
ORUM ADORE:JS
GET IT
SANCTIFIED?
NO
YES, OUTPUT "!i"
OUTPUT " "
BUMP TO PROGRAM LENGTH

.+~

CAlP
CAlZS

INITlALIZE
ZERO SUPp~ESS FLAG

0126*

0127
0126
"'129
0130
0131
0132
0133
"'134
"'135
0136
0137
0138
0139
0140
"'141
0142
0143
0144

0145
0146
0147.
0148
0149
f1115"
0151
0152
fr:I153
0154
IcH55
0156
0157
0156

0159
0160
kH61
0162

75215
75216
75217
75221d
75221
75222
75223
75224
75225
75226
75227
75227
75230
75231
75232

001033
1d17256
UH~400

1601034
fr:I17256
1004010
000364
017256
"' 40 57 4
016132
060412
01613~

06°412
016132
060412
016132
034035
fr:I60035
03.fiJ37
027066
040337
064273
044355
07 40 36
064347
074037

GET LENGTH
MAKf POsITIvE IF NECESSARY

CL.B

DIV DyaHs

DIVIDE IT BY 10000

JSB CAT24

DIv DYSRS+1

OUTPUT THE:. fIRST CHARACTER
L>lv bY 1001d.

JSB CAT24
DIy DYSRS+2

OUTPUT THE SECOND OIGIT
ulv by 101D

JSB CAT24
DIv ,+10

OUTPUT THE THIro DIGI1

JsB
ADA
JSe
LOA

OUTPUT THE FOURTH 01GIT

Jse
LOA
JSB
LOA
JSB

CAT24
ASCIIl0
LOUT
,+408
LOUT
.+40B
LOUT
.+408
L.OUT

OUTPUT A BLIlNK

ANI) ANOTHEH
ANI) ANOTHER

bUMP POlNTER Tf) NEXT ENTRY,
lsZ CATP
LOA CATP
END Uf L.l11fE1
18Z CATN
JMP CATUJ
NO,
•• FIRST wORD OF LAST NAME:.
AUA .-11
Lua MLINK"'l
ADa .... ?TEMP~1~lNK
ST8 CATJ
POINTER fOR STORIN~ ~AME
LDS -J
STe tATN
C/q 30 t:QU '"

164000
174036
1d34036
0020~4

LL>6 A,l
STe CATJ,l
ISZ CATJ
INA

SAVE A WORD
OF 1 HE NAME

PAGE 0459 #41
0163
0164

CATALOG

75233 034037
75234 021227

ISZ eATN
JMP CATJ0

016G~.

~166
~167
~168

IU69.
0170*
0171*
8112.
0113
kS174
0175
~176

0177
0178
0179
0180
0181
~182

121183
liH84
0185
0186
16187
10186
16189

10190

10191
0192
0193
10194
fcH 95
01 9 6
0197
0196

16199
102010
021211
10202

75235 06 0 361

75231 116023

~204

~209

0210
0211
0212
0213
0214
0215
0216
10 21 7

QUTPUT wAlT.

READ THE ~.S1 ENTRY OUT OF TH~ TTY
TAaLE AND PUl IT INTO LTEMP(1131
75240
75241
75242
75243
75244
75245
75246
75247
75247
75250
75251
7~252

75253
75254
75255
75256
75257
752610
75261
75262
75263
75264
75265
75266
75267
7527°
75271
75 2 7 2
75273
75274

060520
002004
064347
074037
064273
044355
074036
164036
174000
002004
034036
034037
027247
027032
0000e"
074043
002002
1027267
064045
0061,":'12
027~70

060412
027271
o70045
040574
016132
06 010 43
.,06400
127256

LOA OL.,TEM
INA

1527~ 060034
15a76 ,418361
75277 070b34
7530~ 164000
75301 006 003
753102 027276
75303 074072
75304 IIHd7004
75305 044562
75Jk'l6 074041
75307 002004
75310 164~00
75311 10540;-'10
75~H 2 002 liH1 1

PUT

1..08 , .. 3

Sla
LOij
ADB
ST8

CATN
MLINK+l
,+1TEMP.1LINK
CATJ

CAT29 EQU •
LOB CATJ,I
aTa A,1
INA
ISZ CATJ
ISZ eATN
JMP CAT29
JMP CATl
CAT24 NOP
8TB CATI.N

SZA

JMP CAT27
LOB CATlS
SZB

JMP CAT~5
LOA .+40B
JMP CAT26
CAT27 STA CATZS
CAT25 ADA ASC0to
CAT26 JSB LOUT
LDA CATLN
CL.U
JMP CAT24,I

fit283.

1285
0206
021jf7
0208

OUTPUT CR.

LOA .+15B
JSB L.OUT
JaB sCHou,l

152~6 0161~2

CAlll

LOA CAll
ADA ,+7 _
STA CATI
LOB 0,1
sze,RSS
JMP CATll+1
STa WORD
CMB,INB
ADB LIBD
8TB CATl.I
INA
L08 0,1
CPB LTEMP
RSS

Rf;STORE A WORD
OF THt:. NAME.

GO TO STAHT,
SAVE REMAINDER
Is OleaT ZERO?
NO, GO PRINT IT
YES
IS IT A LEADING ZERO?
NO, GO PRINT IT
YES, SUPPRESS IT AND
PRINT " "
NONl~RO THE SUPPRESS ~LAG
CONSTRUCT T~E CHARACTER
PUT OUT CHAR~CTER
GET REMAINDER .
PREPARE ~OR DIVIDE
RETURN
TEST FOR USER DIRECTORY CONJIN~
yEU ON N~xT UIHfCTORy rRACK,

NEXT TRACK EMPTY.

THERE, RON.

DOES NEXT TRACK BEGIN wITH
THIS USER?
YES

pAGE
0218

~4b~

75:''14
75315
75316
75317
75320
75321
75322
7f>J23
75324
75325
75326
75321
7~3J0

75331
75332
75333
75334
75335
75336
75337
7~340

75341
0233
0234
0235
0236
11)237
0238
ki239
"240
0241
"242
0243
.,244
0245
0246
0247

0248

CATALOG

75313 027074

8219.
0220
0221
0222
0223
0224
0225
0226
0227
0228
11)229
0230
0231
0232

*41

0403 57
160000
064560
016231
027323
060562
027066
060324
0b7326

026432
075327
00 6 412
041501
047047
052040
051105
040504
020104
04452C!
042503
ro52117
051131

~~034

00030
00036
00037
11)"041
"0042
00043
00044
00045
7f>342
75343
75344
75345
75346
75347
75350
75351
75352
75353
75354
75355
75356
75357
75360

Ih'011aJ

000106
000120
0001·23
075:347
02"116
040515
{,:1424416

JMP CATll
AOA
LOA
LOB
JSB

JMP

LOA
JMP
CA128 LOA
Loe
JMP

DEF

OCT
ASC

GET DIRF.CTORY DRUM AODRESS
,+5
i" I
LIBOI
READ DIRECTORY
DRUM!..
CAT28
ARRGH, GO INFORM GUY (OR GAL.)
L..IBD
CA110
... 22
*+2
LleER
*+1
64 12
U:',CANtT READ OIRECTORY

CAT 1 EQU LTe;MP+4
CAlP EQU LlEMP+5
CATJ EQU LTEMP+6
CATN EQU LTEMP+7
CATQ EQU LTEMP+9
CATC EQU LTEMP+10
CATLN EQU LTEMP+11
CAT8 EQU LTEMP+12
CAlZS ~QU LTEHP+13
ASCC OCT 1,,3
ASCF OC T 106
ASCP OCT 120
ASCS OCl 123
CATTP DfF CAT1T
CA1IT ASC g, NAM~

~20"4'"

020114

~42516
~43524oj

'144040
~2"'040

SCAT

NO ... QUIT,

EQU *

I.EN{;;TH

PAGt:: 0461 #41

LIBRARY

ft7250*
0251*
0252*
0253*

LIBRARY 15 IDENTICAL TO CATALOG EXCEPT THAT IT USES A0~~
AS 10 RATHER THAN TH~ USER 10, AND P~O~RAMS WITH EMBEDuto
E.RROR MESSAGES ARE NOT LISTED, IT MUST B~ LOAD~O IMMEDIATELY
AFTER CATALOG. GROUP MUST FOLLOW LIBRARY IN SEWUENCE,

0255

75000
75000
75032
75032
75033
75077
75077
75100
75hU

~256

0257
k'25S
025~

11)260
0261
ft7262
°263
"-1264
0265

751~2

ORG
0024~1d

LIi~RA

CLA
CATI
A14fd0
CAT2
CAT12
CATP
AOA ,+4
LOA A,l
aSA
JMP CAT22
OR~

060612
ft727047
060035
040356
160000
0(02020

75103 027064

•

LOA
JMP
ORG
LOA

cHeCK FOR
lLL .. STUREIJ
. PROGRAMS
LJON'T LIST THI:.M

PAGE

~462

#41

GROUP

0267. GROUP IS IDENTICAL TO LIBRARY ~XCEPT THAT IT USES THE
026ij* GROUP LIBRARIAN'S 10 INSTEAD OF A~00. 1T MUST BE LOAO~O
10269. IMMEDIATELY AFTER LIBRARY,
10271
~272

10273
0274
1-'275
121276
0277
0278
0279
10 280
02 8 1

0282
10 283

10284

75000
750010
75032
75032
7512133
75034
7512135
75036
75!d37
75040
75041
75042
7f)1d4J
751044
75045
75046

002400

106427;,)
~44J41

1600101
010732
0701030
160001
10 10 6 0 2
131064100
1010400

ORG LIBRA
CL.A
QRG CATl
GET USER 10
L08 MlINK+l
ADS ,+1IO-1LINK
LOA 8,1
AND M20ltHd
ISO,",ATE AND
STA lTE.MP
SAVE ALPHABETIC PART
LOA b,!
AND B1777
1501.AT£ NUMt:.RICAL PART
CL.B
01\' .100

GET RIO Of-

MPY .100

TeNS AND

~"104J7

11002010
000431
03010310

lOR LTEMP

QNE~

MERGE IN LETTER

•

PAGt 0463 #41

DIRlCTORY - USER CONSOLE

0286. THE
~287.
~288.

028g",
~29~·

OlRECTO~Y CUMMANO IS AVAILA~LE TO USER A000, IT CAUSES THE
CONTENTS Or THE DISC DIRECTORy TO BE PRINTED ON TH~ uStR'S CONSOLt
IN THE FOLLOWIN~ FORMATe



 '  

0291*
02~2.

THE PURGE DATE IS PRINTED AS A 3-01Gl1 INTEGER INDICATIN~ THt DAY
OF THE YfAR AND A 2-01GIT INTEGER INOICATIN~ THE YEAR, THE ORUM
0294. ADDRESS CONSISTS OF 3 INTEGERS INDICATING DRUM, TRACK, AND SECTOR,
"295* THE DiSC ADDREsS Is A LOGICAL BLOCK NUMBER, THE LENGTH IS IN WOHDs
0296* FOR PROGRAMS, R~COROS FOR FILES, THES~ ARE ALL PRINTED IN DEClMAL.
~297. TYPING oiR-IO WILL START THE LISTING ~ITH THAT 10.
~293·

0a9tS.
"'299 75001Cl

0300
0301
~302

0303
0304
030 5
0306
0307

10308
0309
0310

75001c) 064273
75001 044341
75002 160001
75003 050612
750104 02702J
75005 060327
75~06 067010
75007 026432
75010 075011
75011 00fH20
75012 051111

ORG
L.OB
ADB
LOA
CPA
JMP
LOA
L.OB
JMP

L.18RA
MI.INK+1
.+1IO.1L.INK
B,l
GET USER'S 10
A000
A0001
UoIR1
YES
.~19
NO, NOT ALLOWED
.+2
LI8ER
DEF *+1
OCT 5120
ASC 9,RIVILEGED COMMANO

75~13 053111
75014 12146105

1c)311
0312
0313
0314
0315
0316
0317
0318
0319
0320
1c)321
1c)322
1r)323
1tJ324
032 5
0326
0327

10328
0329
0330

75015 043505
75016 042040
75017 041517
75020 046515
75021 12140516
75022 042040
7 5 023
75"23 002404
75024 0700~2
7512125 016164
75026 0271036
75027 064273

75030 044336
7512131 16~1c)01
75032 0302 51
75033 11451210
75034 016315
75035 02643(0
75036
75036 003400
75037 0400!)2
75040 12164273
7512141 044J54
7512142 17001211
7512143 116022
75,,44 11602J

0331",
0332 75 121 4 5 0 6 0321

UOIRl EQU •
CLA,INA
INITIALIZf IS IN CASf
STA 10
NONE IS 5~ECIFIED
JSB LCHAR
GET A CHAR
JMP UDIR2
CR • START A ~EGINNI~G of D1R
L.OB MLINK+1
AOe ,+1TNUM-1LINK
LOA 1,1
BAtKiPACE
10H BKS
BUFFER
JSB S14SC,1
POINT£P
JSB GETI0
GET THE 10
JMP ILFER
CR MUST FOLLOW
UDIR2 EQU •
CC:A
ADA 10
LOB MI.INK+1
APe ,+1RTIM-?LINK
STA e,I
SAV~ PREVIOUS 10
OUTPUT THE HEADING
JS8 UHD6A,I
JSB SCHOU,l
ANO SUSPENO
25 WORDS IN

PAGE 0464 #41
0333
0334
0335
0336
0337
.,338
0339
0340
0341
0342
0343
0344
0345
0346
",347

03.8.
1d349
0350
0351
0352
Id3!53
0354
(0355
0356
0l51*
0358
0359
0360
0361
11:'362
0363
0364
0365
",366
0367
0366
0369.

0370
0371
"'372
0373
0374*
0375
0376
"'377
0376
",379
0380
0381
0382

75046
75047
75050
75051
75051
75.,152
75053
75054
75055
75056
75057
75060
75061
75062
75063
75064
75065
75066
75067
75070
75071
75072
75073

DIRECTORY • USER (;ONSDL.E

070030
063511
070031
160031

SrA
LOA
srA
uo 11'~ 3 EQU
l.UA

LTEMP
HE.ADING
UOHDA
LrEMP+l
..
LTEMP+l,I OUTPUT

j"iH7~7

Al.f,Al.f

0Ul443
016132
160031
010443
016132
034031
034030
027051
116023

AND
Jse
l.OA
ANO
JSB
lsZ
I$Z
Jf'1P

8377
THE
L.OUT
LTEMP+l,1
DIRECTORY
8.377
LOU'f
HEADING
l.TEMP+l
LTEMP
UOIRJ
J&i SCHOU,l
$U8PENO

06027'
070031
070032
070033
064273
044354

LDA
srA
srA
STA
L.oa
Aoa
LDA
8TA

160001

11:'10030

seT UP L.TEMPl013] FOR
INF
INITIAl.. SEARCH
L.TEMP+l
LTEMP+2
I..TEMP+3
ML.INK+1
,+1RTIM"?L.I NK
B,1
RETRIEVE
L.TEMP
8TAtHINfi ID

•

75074
75074
75075
15076
75076
75077
75100
75UU
75102
75103
75104

040366
070035
140034
",40674
"'02002
027123

UOIR4 [QU
JSe
NOP
UOIR5 EQU
LOA
ADA
STA
ADA
ADA
SZA
JMP

751\tJ5
15106
75 1°7
75110

064034
044361
10000 1
021106

LOB
Aoa
CPA
JMP

LTEMP+4
,+7
B,l
•• 2

75111 074034
15112 160001
75113 070072
75114 \tJ443 6 0
75115 160001
75116 064566
15117 016231
75120 027415

STB
LOA
STA
ADa
LOA
Loa
JSB
JMP

I..TEMP+4
B,l
WORD
,+6

11600t5
000000
06003~

DI..OKP,1

..

Sf,;ARCH DlRECTORY FOR
PHEVIOUS ENTRY

MOVE
l.TEMP+5
.... 12
TO NEXT
L.TEMP+5
eNTRY
LTE.MP+4,I
MLIBD
foND of TRACK
UOIR6
NO

B,l

L.IBDI
DRUMI..
UDI13

YES, HUMP TO
NEXT ONt:.
LOOP IF EMPTY

LENGTH OF TI INTO lTY lABL.E
L.TEMP+8
2 BLANKS
Ui>18S
UOIOW
L.TEMP+5
LTEMP+5,I OUTPUT 3 WORDS
L.TEMP+8,I
UUIOw
l.TEMP+8
OF NAME WHIL.E
L.TEMP+5
L.TEMP+5,I
L.TEMP+8,1
UOlOw
SAvING THEM IN
L.Tt::MP+8
L. H..MP+5

.~i'

~

PAGE
~442

10443
W;)444
0445
~446

0447.
044t5
0449
0450
0451
0452
0453
10454

~466

#41

OlRtCTORY. USER CONSOLE

75204
75205
75206
75207
752HJ

100035
170040
017447
063512

75211
75212
75213
75214
75215
75216
75217
75220
75221
75222
75223
75224
75225
75226
75227
7523",
70231
75232
75233
75234

064035
044354
074035
160035
010502
006 4 00
1°0400
01tl0364
074040
017434

0174~7

0455
W;)456
ltI457
0600~0
0458
040432
0459
016132
0460
060431
1cl461
1c'l16132
1cl462
160035
13463
001727
0464
001301d
1cl465
k110441
0466
1317434
1cJ467*
0468 75235 063512
1cl469 75236 017447
~470
75237 064laJ5
0471 75240 044j47
~472
75241 16la001
k1473 75242 0060~4
°474 75243 0102021
0475 75244 11'27247
10476 75245 063513
0477 75246 027255
1d478 75247
0479 75247 160001
0480 75250 002021
1cl481 75251 02725A
~482
75252 063514
1cl483 75253 002001
~484
75254 ~6041~
0485 75255
0 486 75255 044350
0487 75256 074035
0488 75257 1016132
1cl489 75260 164035
ra491cJ 75261 006021
0491 75262 027265
10492 75263 063515
0493 75264 00200J.
10494 75265 k16lt1412
0495 75266 01613~

l.IlA l.TEMP+5,I
STA l.lEMP",8,I
J8B UOIUW
LOA UDISS
JSB UOIOW
Loa
ADS
STB
LOA
AND
CLB

'JSER'S lTY TABLf.
BLANKS

L.TEMP .... 5
,+2

.,. DATE
l.TEMP+b
LTEMP+5,I
GfT DAY OF Yf.AR
B777

DIV ,+lrJ

sre LTEMP+8
Jsa UOINM
LOA LTEMP+8
AlJA ..... 608
JSB LOUT
LOA ,+67B

Jsa

~

1ST 2

DI~ITS

:N A, LAST ONE IN B

OUTPUT FIRST 2
GET LA8T UNE
CONVERT TO ASCII
AN&) OUTPUT
, I'

LOUT

l.OA L.TEMP+5,I
ALF,AL.F
P08lTION
kAR
YEAR ANU
MASK
AND B177
JSB UOINM
OUTPUT IT

LOA UOlSS

2 SL,ANKS

JSB UOIOW
LOB LTEMP .... 5
AOB ,-3
LOA B,l
INS
5SA,RSS

FILE?

JMP UOllrJ

LOA uOIRf

NO

yEs, (;ET AN If'

JMP UDIll

UOl10 EQU *
l.OA B,I
SSA,RSS

JMP UOllll11'l

LOA UOIRC
kSS
LOA ,+408
UOl11 f:QU •
AOB ,-2
5Ta l.TEMP+f:i
JSB LOUT
LOB LTEMP+5,I
ssb,RSS
JMP *+3
LOA UOIRP

SEMI .. COMP 11,EO'1

NO

Yf8, "ET A It'
A 8L.ANK

-. 1ST WORD OF NAME
OUTPUT A CHAR
PR 01E(;TED1
NO
YEa, "ET A

RSS

l.OA ,+40B
JSB LOUT

A BL.ANK
OUTPUT CHAR

.p'

0496 75267 06 0 412
0497 75270 016132,
849t,.
0499 75271 064035
"'~00
75272 044364
0501 75273 160001
0502 75274 "'44347
0503 75275 074035
0504 75276 01d2020
0505 75277 003004
0506 75300 006400
1t!If>07 75301 100400
75302 001032
0506 75303 07404~
0509 7530A 040432
0510 75305 016132
0511 75306 060040
0512 75307 00e400
0513 75310 100,400
75311 000437
0514 75312 074040
0515 75313 017434
0~H6
75314 060040
0517 75315 017434
051.,.
0519 75316 ",6351~
0520 75317 017447
0521 75320 16~0Je
0522 75321 034035
0523 75322 lok)035
0524 75323 100,4~0
75324 00 it'l32
0525 75325 07404ft)
0526 7f>326 017434
0527 75327 060040
0528 753-'0 006400
0529 75331 1130400
75332 000437
0f>30 75333 074040
0531 7~334 017434
0532 75335 060040
0533 75336 017434
0534.
0535 75337 064035
0536 75340 044350
0537 75341 074035
0536 75342 160035
0539 75343 00200.3
"'5 40 75344 027376
05Al 75345 06351~
0542 75346 017447
15.J 70347 161135
0544 75350 001222
0545 75351 010355
0546 75352 040432

L.DA ,+408
JSB L.OUT
L.DB L.TEMP+5
ADS ,+10
LOA 1:5,1
A08 ,-3
STB LTEMP+6
SSA
CMA,INA

CL.B
DIV DVSRS

STB
ADA
JSB
LOA
CL.B
DIV

LTEHP+8
,+60B
LOUT
LTEMP+8

A BL.ANK

e> L.ENGTH

COMP,-EM~NT

IF NEGATIVE
FIRSl DIGIT IN A, L.AST 4 IN B

CONVERT TO ASCII
AND OUTPUT

.1k)~

STB LTEMP+8
JSB UDINM
LOA LTEMP+8
JSBUDINM

OUTPUT 2"J

OUTPUT 4 .. 5

L.OA UDISS
2 BL.ANKS
JSB UDIOW
LOB LTEMP+5,1 GET
lSI L.TEMP+5
DX8t
ADDRESS
LOA L.H.MP+6,1
1ST a DIGITS IN A, L.AST 4 IN B
OIV OVSRS
STS
JSB
,-OA
tLB
DIV

I..TEMP+8
UDINM
LTEMP+8

STB
JSB
L.OA
JSB

L. n.MP+8

OUTPUT FIRST 2

,1016

UDINM
L.TfMP+8
UDINM

OUTPUT 3.4

OUTPUT 5-6

LOB LTi;MP+~
ACB ,-2
SlB LTEMP+5
L.OA L.TEMP+S,I
SZA,RSS
SKIP PRINTl~S IF ZERO
JMP UDI12
L.OA UOISS
2 BLANKS
JSB UDIOW
LUA LTiM'.O,1
RAL,RAL.
DRUM NUMBER
AND ,+J
IN L.OWEST 2 BlrS
ADA ,+608
CONVERT TO AScII

PAGE '1468 #41
~547

0548
0549
0550
0551
0552
1d553
0554
0555
0556
0557
0558
0559
0560
0561
0562
0563
0564
0565
0566
0567
0568
0569
057 0
0571
0572
0573
0574
0575
0576
0577
0578
0579
0580
0581
0582
0583
0584
0585
0586
0587

75353
75354
75355
75356
75357
75360
75361
75362
75363
75364
75365
75366
75367
75370
75371
75372
75373
75374
75375
75376
75376
75377
754 00
75401
754 02
75403
75404
75405

Dr~ECloRY

01tHJ2
[060431
016132
160036
001727
[010734
017434
06043 1
016132
160035
010441
00640k>
1004tH}
000431
~74040

040432
016132
060040
01743~

060375
fo161J2
06 0 367
01fH32
06 03 64
016132
116023
06462'"

1 54 °6 kl740!51

7541d7
75410
75411
75412
75413
75414
75415
754 15
75416
75417
75420
75421
70422
75423
75424
75425
75426
75427
70430
75431
75432
75433

06427;;J

044354
074050
1d64346
01 6 257
027074
O6 0 324
067420
fd26432
07542,
006412
0415"1
(1.70.7
052040
1d51105
040504
11120111'4
044522
042503
052117
051131

'" USER CONSOt,.E
JSB LOUT
LUA ,+578
JSB LOUT
LOA LTEMP+b,1
AI..",AI..F
AND 677
JS8 UDINM
LOA ,+57B
JSB L.OUT
LOA L.TEMP+5'1
ANO B177
CLB
OX\' ,100

STB
ADA
JSB
LDA
JSB
UD112 EQU
LDA
JSe
LOA
JSB
LOA
JSB
JSe
LOS
STe
Loa
ADB
5TB
LDB
JSB
JMp
UOI13 foQU
LOA
Loa

LTEMP+8
,+60S
LOUT
LTEMP ... S
UDINM

AND OUTPUT
,I '

TRACK NUMtJER IN
LowEST 6 U1TS
OUTPUT IT
'I '

SECTOR NUM6ER IN
1..0WE5T 8 rur~
1ST DIGIT IN A, LAST 2 IN 8
CONVERT 1ST DIGIT
TO ASCII AND OUTPUT
O"T PUT L.AST 2

•

X.OFF
,+23 B
LOUT
,+156
CR
LOUT
,+12B
LF
LOUT
SCHUU,l
SUSPEND
DLTEM
MOVE NAME
MOVtD
FROM TTY
MLINK·l
,+1RTIM"'?LINK
MOVES
TABLE TO
... 4
MOVEw
L. TEMP
lJOIR4

'it' 3)

•

·""22

(f+2

JMp LIttER

OEF ·+1
OCT 6412
ABC 10,CAN'T READ DIRECTORY

058.,.
058~·

UUlNM CONVERTS A je100 TO ASClI AND OUTPUTS IT

14590.

0591

75434 0fd0000

U01NM NOP

PAGE 0469 #41
0592
0593
0594
0595
0596
0597
0598
0599
0600
Ii 6111 1

*

0602*
1683*
0604
0605
0606
,,607
0608
0609
0610
0611
0612
0613
fd614

154J5
75436
75437
75440
75441
75442
15443
75444
75445
75446

75447
75450
75451
75452
75453
75454
7 5455
754e56
75457
75460
75461
75462
75463
75464
75465
75466
75467
75471
75472
754703
75474
75475
75476
75477
7550id
75501
70502
75503
75504
7551215
755~6

0616
0617
0618
fd619
WJ620
0621
0622

-

10623

C1..6

006400
10040/0
""'0364
"74043
040432
016132
060043
040432
016132
127434

01V .+U}
8T8
AOA
JSB
LOA
ADA
Ja8
JI"1P

L.T£:.MP+11
,+6"6
LOUT
LrEMP+l1
,+60B
LOUT
UOINM,l

UOlaw OUTPUTS THE TWO CHARACTERS OF A wORO

76410

0615

DIRECTURY " USER CONSOLE

000000
070~4J

001727
010443
016Ll2
060043
010443
kH6132
127447
005040
044f.)04
12120040
0201d40
041Ull
046505
020040
02kJ040
042101
052100
02° 0 4 121
02004"
020114

UUIOW NOP
SlA I. TEMP+ 11
ALF,Al..f
AND 8377
JSB LOUT
LOA LTEMP+l1
AND 8377
JSt,; LOUT
JMP UDIOW,l
Lf.tH.ANK
UOIHO OCT 5040
ASC 9,10
DATE
NAME

ASC 13,

LENGTH

042~516

043524
12144040
02004.,
042111
11'51503
1020040
020040
020104
1it51125
04642J
006412
075046WJ
02"040

75507
75510
75511
75512
7551J 00~106
75614 0tt0103
75515 fd00120
75516

UOI1DA
UOISS
U/)IRF
UOIRC

UDIRP

OCT 46423
OCT 6412
DfF UOIHO
ASC 1,
OCT 106
OCT 103
OCT 120

$DIRS E.QU •

",,-XOFF
CR.l.f

DISC

DRU

PAGE

~47~

#41

SDIRECTORy.

US~R

CONSOLt

SDIRECTORY IS AVAILABLE TO USER A000 AND CAUSES 1HE SAME PRINTOUT
AS DIRECTORY, EXCEPT THAT ONLY SANCTIFl~D PROGRA~S ANO FILES
0627* (THOSE CURRENTLY RESIOING ON THt DRUM) ARE L!STED. SDIRECTORY
~62a. MUST FOLLOW DIRECTORY.
062~
7~000
ORG LIBRA
~6Je
75000 06.21J
LOa MLINK+l
oR; UOIRO
0031 75123
~025.

~626*

~632

0633
0634
0635
0030

75123
75124
75125
75126
75127

060035
040361
16000~

002003
027076

LOA LTEMP+5
AUA .+7

LOA A,I
SZA,RSS
JMP UDIRS

IS

THIs

ENTRY
SANCTIFliO?
NO, LOOK AT NEXT ONE

PAGE 0471 #42
01602*
0003*
161604*
f6f6f65*

REPORT .UStR CONSOLE

THE RtPORT COMMAND 18 AVAILABLE TO USER Al2lf6121 ANO CAUSES IDT INFO
TO ~E LlSTED ON THE USER CONsULE. EACH USER I~ 15 LIST~~, ALONG
WITH THE OISC ANO TIME usEO TO UATE. DISC STOHAGE IS ~lSTtO IN
WORDS, AND TIME IS LISTED IN MINUTES.

00116*

001217
12112108
00169
01cH0

0011
161612
0013
0014
16015

001 6
kHell7

001a

7512100

75000 064213
75001 044341
750162 160001
750~3 e5f6612
750id4 02712123
75005 060327
7511006 067121116
75007 026432
7501121 0 75 ldl1
75011 00S12\!j
75"'12 051111
75013 053111
751614 046105
7501:i 1il4J5(tl5
75016 042a4121
75017 041517
75020 046515
751321 040516

ORG
L06
AOB
LOA
CPA
JMP
LOA

LISRA
ML.INK+l
.... 1IO.?LINK
8,1
GET

JMP
OEF
OCT
ASC

LIBER
.... 1

01212121
0021
121022
0023
0024
0025
121026
0027
f616 2 a
0029
003121
0031
0032
0033
0034
0035
16036
0037
0038.
0039
01640
0041
",1642
f61643
16044
0045

01646
01647
0048

75023
75023 002404
75024 0712105~
15025 016164
75026 027036
75021 064213
750313 044336
75031 160201
75032 030251
75033 114500
75034 016315
7512135 0264J0
7512136
75036 060052
75ro37 06427j
75040 044354
75041 1701£110 1
75042 116022
75043 116(62J
75044
75045
75046
7!)047
75050
75e50
756/151
75052
751053
75liJ54

06 3J 5 3
liJ70040
063J14

070041
16"-'041
001721
010443
0161J2
160041

A0001

UREpl

yES
NU, NOT ALLUWED

.-19

LOa *.2

751622 16421i140
001 9

,0

A~00

5120

9,RIVILEGEO COMMAND

UREP1 ECilU

*

eTA
JSB
JMp
LOB
ADS
LOA
lOR
JSS
JSB
JMP
UREP2 EQU
LOA
LUB
AOS
STA
JSB

10
LCHAR
UREp2
MLINK+1
.+?TNUMw1LINK
a,I
BACKSPACE
BKS
IN SUfFER
S14SC,1
GETIO
GET THE STARTING 10
lLfER
•
10
SAVE STARTING
MLlNK+l
10

CL.A,INA

J~B

OEFAUL.T 10
OF 1-1
GET FIRST CR
CR

.+?RTIM~1LINK

/;,1 .

UHO~A,l

SCHOU,I

OUTPUT HEADING
AN~ SUSPEND

LOA URt:.J0
J0 wORDS
STA LTe.MP+8
IN HEAOING
LOA URHDA
.> FIRST ONE
STA L.TEMP+9
UREPJ EltlU •
LOA L.TEMP+9,1 OUTPUT
AL.F,ALF
AND BJ77
JSB LOUT
REPORT
LOA LTE.MP+9,1

PAGE
0049
0050
0051
~052

~472

75055
75056
75057
750610
75061
75062

#42

RfPORT. USER

011i:l4~3

016132

034041
034040
021060
116023

0053
0054
0055*
0056 75063
0057 75063 064273
0058 75064 044354
0059

751065 160001

0060
01061
01062
0063
1i:l{c)64
0065
0066
01i:l67

75066
75067
751070
75071
75072
75073
75073
75074
75075

0068
~069

0070
0071
0072

007J

10074
01i:l7~

0076

0077
0078

0079
0080
0081
0082

111083

0084
00 8 5
0086

0087
10088

0089

0090
0091
0092

0093
",,,,94
0095
0096

010 97

07012152
01637t)
06 0 347
070035
06012176

070030
164000
10060102
75076 02110J
75077
75077 053354
75100 1027256
75101 040.355
75102 027073
75103
75 U,3 0 7 4072
75104 007004
75105 044562
75106 074032
75107 003400
75110 1040030
75111 1600010
75112 064566
75113 016231
75114 11 6 015
75115 0 6 0562
75116
75116 0501032
75117 1i:l27127
75120 164000

75121
,5122
75 123
75124

007000
044052

006°2 0
027144

75125 040362

75126 027116
7 5 127

"'1098

75127 060030
75130 027077

0101

75131 074072

0102

75132

"'103

75133 it:'44562

0099
10 1 Idld

75131
~ro70~4

CONSO~E

AND ~J77
JSB LOuT
III LT£MP+9
ISZ ~TEMP+8
JMP UREPJ
JaB SCHOU,l
URE22 EQIJ
~DB

HEADING
AND SUSP"NO

•MLINK .. 1

A08 ,+?RTIM"?~lNK
RETRIEVE
LDA ~,l
STA 10
STARTING 10
JaB GTIt..
FIND WHAT TRACK IT'S ON
LOA .,-3
J 10's
PE~ LINE
STA LTEMP+5
GET POINTER TO LENGTH WORO
LOA IDt..NP

.

UREp4 EQU
STA LTEMP

LOB A,1
SZB

JMP
URE21 EQU
CPA
JMp
AIlA
JMP
UHEP5 EQU

SAVE LIvE TABL~ ENTRy
GET TRACK LENGTH
SKIP IF ZE.RU

UREP5

..
URO(;L
URE15
,+3
UREP4

..
8T8 WORD

LAST 10 THA';K'I
NO, ADvANCE

fo NEXT

SAVE ACTUAL

~E.NGTH

CMS,INB
ADS LIeD
sTB L. n.MP+2

MAKE POINrER TO

ADA LTEMp
LOA All

GET DRUM ADORC,SS

~AST

ON~

ENTRY+1

ceA

~DB ~IBOI

JaB DRUM~
JSB SICKP,I

LOA LI8D
UREP6 EWIJ
CPA ~TEMP+2
JMP URE25
~oe A,l

•

READ IT IN

CHECK FOR END
NOT ON THIS TRACK
GET ID

eMB

ADS 10

SSB

ARE WE PAST YET?

JMP UREP9
ADA ,+8
JMP UREP6
EQU ..

L.OA LTEMP
JMP URE21
UkEl1 E.QIJ •
ST8 WORt)
CM8,INS
ADa LI~D

SAVE LENGTH

MAKE POINTER TO LAST wORD +1

PAGE 047J #42
0104
0105
!d1e6
0107
!d10a
0109
0110
kUll
5.U12*

0113
16114
0115
0116
0117
011~

0119
liH20
0121
IcH22
0123
0124
0125
IcH2b
0127
16128
0129
0130
0131
0132
0133
1tl1l4
0135
0136
0137
013~

0139
0140
tU41
kJ142
0143
10144
0145
11:)146
0147
0148
"'149
kJ150
0151
0152
0153
rU54
~155
~156

0157

15134
75135
75136
75137
75140
75141
75142
75143

75144
75144
75145
75146
75147
75150
75151
75152
75153
75154
75155
75156
75157
75160
75161
75162
75163
75164
75165
75166
75167
7517~

75171
7b172

76173
75174
75175
75176
75177
75200
76201
75202
7520J
752kJ4
152"'5
75206
75207
15210
15211
75212
75213
75214
7&215
75216
75217
75220

REPORT • USER CONSOLE.

074032
!d03400
040030
160000
064566
(rH62Jl
116015
0616562
070034
1616034
0b~27J

044354
170001
00112 1
(ZilcH 727
010411
040772
1616132
160034
0116602
liHHS400
100400

8fa LTEMP+2
ceA
AOA LTEMP
LOA A,I
LUB LIBDI
JSB DRUML
Jsa SICKP,I
LOA 1..18()

DRUM ADDRESS
CORE ,ADDRESS

UREPg EQU
*
STA LTEMP+4
LOA LTEMP+4,1 GET 10
LOB MLINK+1
A06 • +?fH IM-1LINK
STA th I
SAVE 10
ARS,ARS
SHIFT
AI.F,ALf
LETTER
AND .+31B
TO 4.kI
ASCII OffSET
ADA 810k1
JSB LOUr
OUTPUT IT
LOA I.TEMP+4,I GET 10 AGAIN
AND B1777
MASK NUM6ER PART
CL8
DIV .100
1ST DIGIT IN A, LAST 2 IN B

000437
074~40

040432
016132
060040
1017261
060034
040351
070034
060412
016132
160034
017274
0J4~J4

034f634
060412
016132
16kJ034
017274
060412
016132
060412
016132
060412
016132
060412
016132
008raJ4
002004
050032
002001

srB
ADA
JaB
LOA
JaB
LOA
AOA
8TA
L.OA
JS~

LDA
JSB

ISZ

L.Tt.MP+S
,+60B
LOUl
LTEMP+8
URENM
LTEMP+4
.... 5
L.TEMP+4
,+4(Oe
LOUT
LTEMP+4,I
URETR
LTEMP+4
LTEMP+4

ISZ
LOA .... 41t>~
Jab LOUT
LOA LTEMP.4,I
JS6 URETH
LOA .+408
Js~ LOUT
LOA .+40B
'Js~ LOUT
LOA .+4IOB
JSB LOUT
LDA .+40 B
JSd LOUT

LU. LTEMP.4
INA
CPA LTEMP.2
RSS

OUTt-JUT 1ST
OUTPUT L.AST 2
.> TIME
usf.D
AREA
8L.ANK
GET TIME
OUTPUT IT
-> OlSC

ust::o

BL.ANK

GET DISC
OUTPUT IT
FOUR
BI..ANKS

BUMp To NEXT 10

IJONE?

YES

PAGE 0474 *42
0158
0159
~160

0161
0162
0163
~164

0165
01 66
01 67
1d16S
0169

0170
0171
0172
0173
0174
0175
0176
0177

0178
0179
0180
0181

0162
0183
0184
0185
101 8 6

0187
11)188
0189
0190
0191

0192
0193
1d194

75221
75222
75222
75223
75224
75225
75226
75227
7 5 2310
75231
75232
75233
75234
75234
75235
75236
75237
75240
75241
75242
75243
75244
75245
75246
75247
75247
75250
75251
15252
75252
75253
75254
75255
75256
75256
75257
75260

REPORT. USER CONSOLE

027247
0600310
053354
027252
040355

JI'lP URf12
UREIIO EQU *

LOA LrEMP

CpA UROCL.
JMP URE14
AOA .... 3

107003'"

STA LTEMP

16400~

LOtt .. ,1

006003
027222
1034035
0271 ~H
ftl60375
016132
060367
016132
060364
016132
06427J
044354
134001
116023
027063
034035
027144
027234
060375
016132
1060367
1016132
060364
016132
026226

0195_

SZ6,RSS
JMP URE10
rsz LTEMP+5
JMP UREll
URE13 EQU •
LOA .... 238
JSB LOUT
LOA .... 158
JSB LOUT
LDA .+126
JSB L.OUT
LDB ML.INK+l

AOB
ISZ
JsB
JMP
URE12 EQU
lSZ
JMP
JMP
EQU
LOA
JSB
LDA

JSB

UHE1!:) EQU
LOA
Ja8

JMP

0196* URENM CONVERTS •

0197.
0198 75261 000000

0199
102 00

1t7201
0202
0203
1t7204
id205
0206
1t7207

75262 0064013
75263 100 40iIJ
75264 1010036'"
7~265 07404J
75266 0404J~
75267 016132
75270 060043
75271 040432
75272 1d16132
75273 127261

.~10~

*

LTEMP+5

UREP9
URE13
•

.+23B
LOUT
.... 15B
LOUT
•
,,+126
LOUT
LI.END

lIIV .+10

sra LTEMP+l1
ADA .+606
LOUT
LTEMP+l1
,+608

LOUT
URENM,l

1121 ••

1!J209* URETR OUTPUTS A !:)-OIGIT NUMSER

1t7211

75274 1!J00000

URETR NOP

yES

XOFF
CR

LF

BUMP ID
SUSp~NO

END OF I.INE
NO, 00 ANOTHEH ENTRY
YES, (1O SUSPENI)

l,.f

TO ASCII ANO OUTPUTS IT

cl.e

",aUh

NO, L.AS,.
10 TRACK?
yES, DONE
NO, ADVANCE TO
NEXT IDEe ENTHY
GET cOUNT ON THIS TRACK
IF ZERO, CHECK
NEXT ONE
ANY ROOM LEFT ON LINt

.+1~TIM81L.INK

a,I
SCHOu,l
URE22

UHt,NM NOP

JSB
LOA
ADA
JSB
JMP

NO, GO CHECK fOR ROOM

PAGE. 0475 #42
0212
0213
0214
021 5
0216
0217
1d218
0219
0220
0221
0222
0223
0224
0225
0226
0227

75275
75276
75277
75300
75301
753liJ2
75303
7f)304
75305
753",6
75307
75310
75311
75312
7e';313
75314
75315
75316
75317
75321d
Jf)J21

REPORT .. USER CONSOL.f

006400
1004iQW

CL6

DlV OVSRS

~01032

074044
0 4 0432
016132
060044
01064",0
10@400
000437
074044
017261
0610044
017261
127274
10 75 31 5
0050411:1
0445104
020041d
052111

STS
AUA
JSB
LOA
tLoB
OIV

L.TEMP+12
.+bIOB
LUUT
LTEMP+12

1ST OIGIT

.101d

STtt L.TEMP+12

JSB
L.OA
JSB
JMP
URHOA OfF
UHpHO OCT
ASt

URENM
DIGITS 2.3
LTEMP+12
URf.NM
O.1GITS 4.. 5
URETR,l
URPHD
504r.)
20,10 TIME SPACE

1d4'.)5~o

15322 020040

75323
75324
75325
75326
75327
153Jv.>

022t3

1d229
023 It')
0231
0232
0233

75331
75332
75333
75334
7f)335
75336
75337
75340
75341
75342
75343
75344
75345
75346
15347
75350
75351
75352
75353
75354
7535b

1051520
040503
042441d
1il20fd4k'l
02£1040
",44504
021d040
052111
04650b
0210040
105152-'
04~503

04244'"
11:120040
020040
0 445 0 4
020i64kJ
052111
046505
021d040

ASC 7,10

TIME:

SPAt:

~5H)20

04tloe3
04242J
~~6412

177742
000110

OCT 042423
OCT 6412
URt:.30 DEC .30
URDCL OfF lOt:.t+~

SREPS EQU •

E.XUfF
I..R.L.F

10

Tlft1E:

SPACE

PAGE 0476 #42

STATUS. USER CONSOLE

0235. THE STATUS COMMAND, AVAILA6~E TO USER A000, PRINTS A SUMMARY OF
~2J6. SYSTEM RESOURCES, AND THE EX1ENT OF THtlR UTILIZATION, ON THE
10237. USER CONSOLE,
023th
16239 750100
OR" l.IBRA
~240
75000 064273
Loe ~LtNK.l
rtJ241 75001 044341
ADS •• ?ID,,1LINK
0242 75002 160001
LOA B,I
~ET 10
16243 75003 050612
CPA A000
A0001
0244 75004 1027023
JMP USTA0
yES
10245 75005 rtJ60327
LDA ,-19
NO, NOT ALLo~tD
0246 75006 0670116
loDB •• a
10247 751607 1026432
JMP LIBER
10248 750113 075011
OfF .+1
16249 751011 00512 0
OCT 5HZli)
ASC 9,RIVILEGEO COMMAND
0251c1 75lrH2 051111
751013 1053111
751014 046105
75015 0435165
75016 042040
75017 041517
751020 046510
751021 1040516
75022 042040
USTA0 EQU •
0251 75023
PRINT HtAUING
JSB UHOBA,l
0252 75023 116022
ANO SUSPENO
JSS SCHOU,l
10253 75024 1161023
0254.
0255 751025 017656
JSB USTST
0256 15026 005115
OCT 511f5
ASC 2,AG.
1d257 75027 1040507
75kiJ0 0;.)644"-'
025t$ 75",31 01000010
OCT 0
MAaTAPE
LOA MAGSC
10259 75032 1060176
J8B USTOC
SEL.ECT CO!JE
0260 75f()3J 017701
LOS MAGSC
16261
75034 1064176
, fJ ,
LOA ,.528
0262 75035 k:'l60424
13263 75036 0106020
sse
SKIP IF Jri:lJk'
SNOwFLAKE FOR 7i70
0264 75037 016132
Jse L.0uT
JSB USTST
10265 75040 1017656
ASC 4, O~UM.
0266 75041 020040
75042 1042122
75ki4J 05251~
75044 k!lJ6440
OCT 0
0267 75045 00001016
0268 75046 060346
ORUM
LOA ,-4
COUNTE~
STA L.TE.MP.6
10269 751347 10701036
027'" 75050
USTA1 E.QU ..
LOA l.TEMP.6
10271 75050 10610036
0272 75051 \640356
ADA .+4
AOA ?ATBL
0273 75",52 1040676
GET sELECr CODE
kJ274 75053 160000
LUA 0,1
0275 75"'54 1010734
AND B77
MASK AND
10276 75055 0177101
JSB USTOC
OUTPUT
10277 75056 1060412
LUA ,+4108
tH.ANK

PAGt:.
1d278
16279
1d2Be
0281
0282
0283
0284
0265
02 8 6
~287

0288

02 89
0290
0291

0292
0293
0294

~471

*42

STATUS ... USER CONSOL,E.

75057 016132
7506fc1 034030
75061 027050
75062 017745
75063 116023
751(J64 017656
75065 005104
75066 04452J
75067 041523
75070 011415
75071 00504~
75072 020114
75fi173 047507
75074 0445~3
75075 041d514
75076 020040
75077 0e1S0!>
75100 045105
75ikH 041524
75102 02004~
75103 0201~5
751~4 047111
75105 052041d
75106 020040
75lVJ7 043111
75111!' 051123
75111 052040
75112 11'211'.,410
75113 046101
75114 05lb24
75115 011415
75116 ItHH5040
75117 020040
75120 1d52516
75121 044524
75122 02004~
75123 020040
75124 0201ldJ
75125 047504
75126 042441d
75127 020040
751311) 047125
75131 " .. 6612
75132 04252~
75133 ~2004$0
75134 041114
75135 ~4750J
75136 045440
75137 020041d
75141d ~41114
75141 0475k)3
75142 1d4544iC1
7~143

00e~,,1I)

75144 017745
75145 116023

JSe LOUT
ISZ L.TE.MP+6
JMP USTA1
JSS XCRt.F
JSa SCHOU,l
JSa USTST
OCT 5104
ASC 2,15CS

OON~1

NO
SUSPI:,ND
&-f.O

OCT 11415
XOFf·CR
OCT 5040
LF.St..ANK
ASC 19, L.OGICAL. SEL.ECT

OCT 11415
OCT S04r)

Ase

20,

X-OfF-CR
t.F .I:H.. ANK
CODE
UNIT

OCT 0
JSt; xCRL.F
JSB SChOU,1

xOFf-CR ... L.F
SUSPEND

UNIT

FIRST

LAST

NUMBER

SLOCK

dL.OCt\

PAGE rd478 -'42

STATUS .. USER cONSOLE

0295
0296
0297

75146 002400
75147 070030

10298

060031c3
1050362
027266
100200
1d00361D
0402110
1c340354
1641000
164001

0328
0329
0330
10331
f03J2
0333
10334

15150
75151
75152
75U53
7!)154
75155
75156
75 157
75160
75161
75162
75163
75164
75165
75166
15167
751710
75171
75172
75173
75174
75175
75176
75177
75200
75201
752102
75203
75204
75205
75206
752107
7521ki
75211
75212
75213
7521 4
75215
75216
75217
75220
75221
75222
752~3

02004({)

0335
0336
0337
10338
0339
0340
0341
0342

75224
7e>225
75226
75227
752.30
75231
75232
75233

1d0000~

0299
0300
1c3301
0302
0303
0304
10305
0306
10307
0308
10309
0310
0311
16312
0313
1d314
031!)
0316
0317
0~Ha

0319
0320
0321
0322
1c3323
0324
0325
0326
0327

7515~

10106003

027264
070""31
017666
020041c3
1d20040
~0000Wl

060412
icH6132
0601c33k)

01771k:1

01765~

020040
k:l2004V'
020040
0fQ000~

060412
016132
160031
160000
001727
1r1107J4
017701
017656
ft'20040
02004,"

CL.A
STA
USTA4 EQU
LOA
CpA
JMp

fOOM L..OGICAL,

LTEMP

•

lTEMP
,+8
USTA5
MPY ,+6

ADA "'HAD
AOA .... 2.
LOB A,I
lOB B,l
SZ8,RSS
JMP USTAf5 .. 2
STA LTt.MP"'1
JSe USTST
ASC 2,

DISC 0
FINISHED
AL.L. DISCS"
yES
NO

GET Sf.LECT CODE
SKlfol IF ZERO
4 BLANKS

,

OCT
lOA
JSB
l.OA
JS8
JSe
ASC

.... 4klB
"l.OUT

l.TEMP
USTOG
USTST
3,

BL.ANK
LO~IC:AL.

DISC NUMBER

6 BLANKS

otT 10
BL..ANt<.
L..OA .+4Ic)B
JSB 1..0UT
LOA LTf.MP"'1,I
LOA 14,1
ALF,Al.F
AND 877
SELECT CODE
JSB USTOC
() ttLAN K8
JSB USTST
ASC J,

02004~

"'000~0

1601031
160000
010J55
1017110
017650
1020040
~60412

016132
060031
0403e0
164000
002004
1600010

OCT
LOA
LOA
AND
JaB

0

OCT
LOA
JaB
LOA
Al)A
LLlB
INA
LOA

0

LTEMP+1,I

.,1

.+3
USTDG
JsB USTST
ASC 2,
,+40 8
LOUT
LTEMP+1

,-2

A,l
A,I

UNIT NUMBER
4 BL..ANKS

6L.ANK
GET SECTUR
AOURESS OF
THIS DISC

PAGE 0479 #42
0343
IdJ44
034e>
",346
1d347
034a
0349
0350
10351
0352
0353
0354
0355
0356
0357
0358
0359
0360
0361
0362
0363
0364
0365
0366
0367
0368
0J69
0370
IdJl1

0372

75234
75235
75236
75237
75240
75241
75242
75243
75244
75245
75246
75247
7525 0
75251
75252
75253
75254
75255
75256
75257
75260
75261
75262
75263
75264
75265
75266
75266
75267
7~27~

75271
75272
75273
75274
75275
75276
75277
7530~

0373
0374
0375
O376
0377
0318
11;1379
0380
0381
0382
0383
0384
~380

0386
0387
038~

0389

7531a1
75302
75303
75304
7~305

ST4TUS '" USE.R CONSOLE

004065
0"'1540
04k)356
002040
1006004

011716
017056
(020041t)

0(00000
060031
040356
164000
002~"c'4

10000113
004"'65
001540
040351
002041
044351
017716
017745
017755
116023
017766
03403(0
02715'"
011656
005114
0475",3

.

04550~
04~040

042122
052515
020124
0511~1

04151J
051440
000000
017745
0"'2400
O70030
87.,.,32

75306 002~04
753",7 070031
153110

75310
75311
75312
75313
75314
75315
75315
75316
75317

CL.E,ERB
CONVf.RT
ERA,CLE
TO SLOCKS
ADA ,·4
FIRST AVA1LABL.E
SEZ
SL.OCK IS -4
INS
'JaB UST60
FIRST BL.OCK
JSB USTST
2 BLANKS
ASC 1,
,OCT 0
LOA LTEMP+l
GE.T SEcroR
,+4
ADA
L.OB A,I
AODRESS CJF
INA
NEXT DISC
LOA A,l
CLE,ERB
CONVERT
ERA,CLE
TO BLOCKS
ADA ,-I
LAST BLOCK
SEZ,RSS
IS 1 L.EBS
AOB ,-1
JSB UST60
LAST BLOCK
JSB XCRLF
XOff.tR"'LF
SAVE VARIAbLEs
JSB USlSV
JSB SCHOU,I
SUSPEND
JSB uaTRV
RETRlfVE VARIABLES
lSZ L.TEMP
JMP USTA4
USTA5 EQU
JBB USTST
OCT 5114
ASC 9,OCKED DRUM TRACKS

060676
040032
1640016

",o6003
027410
002400
07"1034

OCT 0
JSB XCRLF
tL.A
STA LTEMP
8TA L.TEMP.a
CLA,INA
STA LTEMP+l
USTA6 EQU •
LeA 'fATBL
AUA LTEMP+2
LOB A,I
8Z B,RSS
JMP UST1!5
USTA7 EQU •
tLA
STA LTEMP.4
USTA8 EQU •

TRACK • (0.63)
ORUM • ,'h.3)
MASK

IS 0RUM

PRESENT1

NO
YES, INITIALIZE
COUNT Of ENIRIES

PAGE
0390
0391
0392

0393
rJ394
10395
0396
0397

0398
0399
. 0400
0401
10402
0403
0404
0405
10406
0407
0408
0409
0410
0411
0412
0413
0414
0415
0416
0417
0418
0419

04 2 0
°4 2 1
0422
0423
0424

0425
0426
0427
1d428
0 4 29
0430
0431
0432
0433
0434
10435
10436

10437
0438
10439
0440
0441
,,442
0443
0444

~48~

75317
75320
75321
75322
75323
75324
75325
75325
75326
75327
75330
75331
75332
75333
75334
75335
75335
75336
75337
75340
75341
75342
75343
75344
75345
75346
75347
75347
75350
75351
75352
75353
75354
75355
75356
75357
75360
75361
75362
75362
75363
75364
75365
75366
75367
75370
75371
75372
75373
75374
75375
7f)J7f)
75376
75377
75 400

#42

STATUS

017604
002001
02732l>
017621
027401
027317
002400
050034
002001
027335
060032
01771~

060436
016132
017656
020040
000000
060030
017672
034034
017621
027401
017604
0273e2
017621
0273,5
017604
002001
027347
1060427
016132
003400
040030
017672
034034
017621
0274k:1
060034
040332
002020
1/)27317

~

USER CONSOLt
JSB
RSS
JMP
JSe
JfltP
JMP

USTTZ

TEST HUS HUC;K

USTA9
USTBP
UST14
USTA8

LOCKED
BUMP POINTERS
END UF DRUM

uNL.O~KIO

USTA9 t.QU *
CL.A
CPA LTEMP+4I
RBS
JMP UST10
LOA LTEMP.2 ,
JS~ USTD(f
LOA B72

JS8 LOUT
UST10 EQU
USTST
JSa *
ASC 1 ,
OC'1' o
l.DA LTEMP
JaB UST2D
Iaz LTEMP+4
JSB UST8P
JMP UST14
JsB USTTZ
JMP UST12
USTll tQU '*'
JSB USTsP
JMP UST1J
JSB USTTl
RIa
JMP USTll
LOA +!Sb8
•
JS8 LOUT

ceA

ADA
JSB
lSZ
UST12 EQU
JSB
JMP
LOA

,: '

2 BLANKS

OUTPUT TRACK

;I

BUMP POINTERS
END Of DRUM
rEST NEXT TRACK
UNL.OCKED (ONLY ONE)
L.OCKtD, SUMP POINTER8
END OF DRUM
TEST NEXT TRACK
UNLOCKED
LOCKED, (f0 TO NEXT ONE

' .. '

LTEMP
UST20
LTEMP.4

OUTPUT TRACK •

UST8P
UST14
LTEMP+4

SUMP POINTEH8
END OF DHUM
MORt; ROOM
ON nus
L.INE1
YES
NO
SAVE VARIABI..ES
SUSPEND
RETRIEVE VARIA~LES

*

ADA· .-16
SSA

USTA8
XCRL.F
USTSV
SC;HOU,I
USTf(V
USTA7

rcU7755
116023
01776t'
027315

JMP
JSB
JSB
J8B
JSb
JMP

0Qi427
1316132
063634
131 7672

UST13 EQU *
L.DA .+068
JSB LOUT
LOA US.6J
JaB UST2D

~17745

FIRST ENTRY ON LINE?
yiS
NO
OUTPUT
DRUM •

I. t

LAST TRACK IS 63

PAGE 0481 #42
0445
0446
0447

STATUS • USER CONSOI.l:

~480

75401
75401
75402
75403
75404
754"'5
75406
75407
75410
75410
75411
75412
75413
75414
75415
75416
75416
75417
75420
75421
75422
75423
75424
75425
75426
75427
75430
15431
75432
75433
75434
75435
75436
75437
75437
75440
75441
75442
75443
75444
75445
75 4 4 6
7 544 7
75450

0461

754510 1{c4200

1d44~

0449
0450
k1451
0452
0453
0454
0455
0456
0457
0458
0459
0460
0461
1d462
0463

0464
0465
0466
0467
0468
0469
0470
,,471
0472
0473
0474
16475

0476
0477
0478
04 79

Ic)482
04 83
10484
0465
10486

0487
16488
l1489

75451
75452
7545 3
75454
75455
75456
75457
75460
75461
75462

060034
002003
027410
017745
011755
116023
017766
060032
002004
050356
027416
070ldl2
027310
017656
005114
04750J
045505
042040
042111
05i5fdJ
020102
046111
1IJ41513
0514<40
000000
1d17745
116023
002400
070034
060211d
070030
060562
070031
060030
040354
lo400~

164°01
006 003
027551

UST14 EQU ..
L,.OA lTEMP+4
8ZA,RS$
JMP UST15
SKIP PRINT1NG BLANK l.INE
JSB XCRL.F
JSS USTSV
SA Iii:. VARIAB~ES
JSB SCHOU,l
SUSpEND
RETRIEVE VARIABL.Es
JS8 USTRV
UST15 EQU *
lLlA L.TEMP+2
INA
SUMP DRUM 1#
CPA ,+4
JMP UST16
OONE
STA L.TEMP+2
JMP USiA6
UST16 EQU
JSB USTST
OCT ~114
ASC 9,OtKED DISC SlOCKS

..

OCT 0

JSB XCRL.F
JSB SCHOU,l
CL.A
sr A L.TfMP+4
1.1) A MHAO
UST17 EQU *
sr A L.rEMP
LI)A LIBO
STA L. Tf.MP+l
L.I)A I..TtMP
AUA ,+2
L.uS A,l
L.OB e,l
SZ8,RSS
JMP UST22
UST18 EWU *
OLI) LTt:.MP,l

XOFF.CR .. LF
SUSPEND

.> folRSl UISC
INITIAL.IZE
BUFFER POINTER

GET SELECT rOUE
DISC NOT PREStNT
COMPUTE

10ft1r}30
~0''005

°
1044355
01c)f:54

00204fb

101621604
104400

CL.E,ERA
ERB,C1..E
ADS .+3
SEZ
INA
DST L.TEMP+14

0016046

060762
",70215

LLlA M256
STA MWORU

ADDRESS
OF BAC
BL.OCKS

PAGE 0482 .42
0490
0491
0492
0493
0494
0495
0496
.,497
.,498
.,499
0500
0501
"502
fd503
0blll4
"505
1tJ506
0507
0508
.,509
"'510
.,511
10512
10513
10514
10515
0516
0517
ft3518
1d519
0r)20
1d521
ft3522
0523
0524
0r)25
0526
1d527
0528
0529
0530
0531
0532
10533
ft35J4
0535
0536
fd537
10538
0539
0540
1'.)541

75463
75464
75465
75466
75467
75470
75471
75471
75472
75473
75474
75475
70476
75477
755010
755 0 1
75502
75503
15504
75505
75506
75507
755H!
75511
75512
75513
75514
75515
75516
75517
75520
75521
7~522

Si~TUS

063777
064566
114217
027641
002400
173636
160031
00200J
027551
1042fi'W)
1000J0
00006f5
k)0554 0
144"31
0020~0

002004
1011"'0
110440ft)
000046
017716
034031
003400
140031
"1020.,3
027527
070035
I0604~7

IrU61J2
104200
000046
00004 0
040035
002040
006 004
017716
002404

755 23
75524
75525
75520
75527
75521 002004
755J~ 0400:#4
75531 070034
75532 0340~1
75533 040342
75534 002021
75535 027542
75530 017656
70537 020040
75540 00000~
75541 027471
75542
75542 017745
75543 017756
75544 116023
75545 1017766
75546 00240~

- USER cONSULE
LOA UOl.14
LD8

L.IBDI

JSB OISCZ,l
JMP USTER
CL.A
STA UST(ilv,1
UST19 EQU *
LOA LTEMP+l,I
SZA,I1SS
JMP UST22
OLD LTEMp,1
CLE,E:.HA
ERS,CL.E
ADB L.TEMP+l,1
SEZ
INA
SWP
DST I.TEMp+14

JSB USToD

taz

READ BAO l:H.. OCKS
pUT ZERO AT
tturFER t:.NC
QET LOCKEO BI.OCK

ADDfU~SS

IF ZEHO, flNISHt::D TAtsL.E
COMPUTE
LOGICAL
aLOCK
ADDkESS
FIRST BL.OCK

LTEMP+1

CeA
AOA LTEMP+1,I
SZA,RSS
IF ONI.Y ONE fLOCK, DON'T
PRINT SECONU ACORE8S
JMP UST20
STA LTf;.MP+5
L.OA .+5~8
JSB LOUT
DL.O LTEMP+14 COMPUTE

'- ,

CL.f
ADA LT~MP+b
SEZ
INS
JIS UST6D
CI.A,INA
UST20 EQU •
INA
ADA LTEMP.4
STA L.TEMP+4
18Z LTfMP+l
ADA
SIA,RSS
JMP UST21
JaB USTST
ASC 1 ,

LAST
SLOCK
. ADDRESS
OUTPUT IT
UPOkTE
COUNT

OF

t:.NTRlfs ON LINE

._8

oCT

JMP
usr21 EQU

PHINT FUL.L l..INE
2 8LANKS

"

UST1~

•

Ja8 XCRI..F

Jsts USTSV
J5e SCHOU,!
JIB USTRV
CLA

XoFF"CR-L.F
sAvE VARIABL.t;s
8U8P~NO
RESTO~E

R08~T

VARIABL.ES
ENTRY

pAGE 10483 #42
0542
054 3
fc)544
0545
"'546
0547
0548
0549
05513
0051
0552
0553
0554
0555
0556
1d557

75547
7555 0
75551
75551
75552
75553
75554
75555
75556
75557
75560
75561
75562
75563
75564
75565
75566
75567
75570
75571
75572
75573
75574
75575
75576
75577
75600
75601
75602
756"'3

STATUS "" USER CONSOL.E

",70034
912745 0
060030
040360
~64~10

044432
050001
002001
027437
0601434
002002

01774t)
017656
00511 4
044516

srA LTEMP+4
JMP
UST22 f,QU
LI)A
AOA
LOB
AD~

CPA
RSS
JMP
LOA
SlA
JSB
JS8

COUNTEH

UST18

•L.TlMP
,+6
MHAD
,+48

Nt.xr DISC

B

FINISHED ALL
Yf:.S
NO

UST17
LTEMP+4

XCRLF
USTsr
OCT 5114
ASe 7, I Nt;;

~

NON-8L.ANK LINE
p~INTER

•

04244~

050122
044516
052U,5
051040
03644~

fc)558
OCT
0~000"
0559
CL,F 0
10.'310"
0560
064273
LOB MI..INK+l
AOB ,+?STAT""?LINK
1d561
044361
0562
134001
ISZ S,I
SET SlATUS TO OVt:.RLAY
0563
060506
LI)A -LIB.
RESTART AI)OREss
0564
002004
INA
SO .OUTC WILL ~ORK
0565
127635
JMP USTSO,I
0566.
0567* USTTZ TESTS THE cURRENT TRAX POSITION, tXIT TO (P+l) H 0, (P+2)
1iJ56th IF 1.
0569.
",570 75604 000000 USTTZ NOP
DRUM _
10511 75605 064032
LOB \,.TfMP+2
0572 75606 005222
RBL.,RBL.
MULTIPLY fJY 4
ADS DTRAX
0573 756'17 ",44512
.. > liT TRAX EL.EMENT
L.OA LTE.M~
0574 75610 060030
0575 75611 001121
ARS,ARS
111576 15612 001121
ARS,ARS
~577
A06 A
75613 044000
POSITION IN T~AX
0578 75614 16~001
LOA d,I
",579 75615 010(-)31
AND LTEMp+1
MASK
0580 7t>616 002002
SlA
o EXISTS TO P+l
0581 75617 "'37604
l~Z USTTZ
1 EXISTS TO P+2
0582 16620 127604
JMP USTTZ,l
1083.
1d584* USTeP BUMPS THE. POINTERS TO THE TRAX TABLE, IT EXITS TO (P~1) IF
0585* A D~UM IS FINISHED, OTHERWISE TO (P+2),
0586.
0587 75621 01eeel UST8P NOP
058a 75622 0600J~
LOA LTEMP+l
MASK
0589 75623 00120'"
RAL
ROTATE. rT
10590 75624 070031
STA l,.TEMP+l

"

PAGE 0484 #42
05 9 1
0592
1cl593
,,594
0595
rtJ596
0597
16598

0599
16600

STATUS. USER

75625 21 6 00313
75626 0{o2004
7~627

05071~

7563" O,,2401
7~6Jl 037621
75632 070030
75633 127621
756J4 1i":)0077
75635 071662
75636 0(()163(d

CO~SOL.f.

LOA L.TEMP
INA
CPA BlO16

CL.A,R S

ISZ uSTap

SlA
JMP
US,63 DiC
USTSO liEF
UST(.lV DEF

LTEMP
USTSP,l
63
SCHSQ
LIBUS"'256

BUMp TRACK •
FINISHED A DRUM?
YEa, SET TRACK • TO Zt.RO
NO, EXIT TO (P+2)

PAGE 0485 #42
0602
0603
0604
0605
~606

0607
0608

0689.
0610*
0611.
0612
O613
06 14
0615
0616
0617
10618
0619
"620
0621
0622
0623

062'-.
0625.
8626.
0627
0628
0629

75641
75641
75642
75643
75644
75645
76646
75647
75650
75651
75652
75653
75654
75655

STATUS .. USER CONSO,,"E

060330
067644
026432
0150~5

006412
041501
047047
052040
051105

ORG
USTER L.OA
Loa
JMP
OfF
OCT
ASc.:

l.I6RA.512 .. g5
,,,18
.+2
LIBER
·+1
6412
8,c.:AN'T READ TA8LE

0406~4

02.0124
040602

046105

USTST OUTPUTS A STRING
75656
75657
7566 0
75661
75662
75663
75664
75665
75666
75667
75670
75671

00e000
163656
002003
127656
00i727
010443
016132
163656
010443

USTST NUP
L.OA UST5T,1
SZA,~58

JMP USTST,l
ALF,AL.f
AND 8377
JSB LOUT
LOA US1ST,I
AND 6377
JSB LOUT
ISZ USTST
JMP USTSr+l

01613rl

0376156
027657

UST2D OUTPUTS A
75672
75673
75674
75675
75676
75677
7 5 7 00

000000
006400
1°0400
000364
017710
017710
12 767 2

2~DH;ZT

ZERO 15
END
RIGHT CHAR

NUMBE~

UST20 NOP
CL.B
OlV ,+1 1d

O630
JSS
0631
JSB
JMP
06 32
0633.
06J4* USTOC OUTPUTS A 2"OlGIT
0635*
.,636 15701 10008l1t U5TOC; NOP
0637 75702 0064o",
CL.B
OIV
06J~
75703 100 4 00
7571(14 000362
0639 75705 017711e)
JSB
0640
7571e)6 ~17710
JSS
0641 7b707 1277~1
JMP
0642.
k)64J* UST DG OUTPUTS A OIGlT
06.-4.
0645 757U~ 00000"" USTDG NOP
0646 75711 074040
STB
0647 75712 tll40432
ADA

USTDG
USTOG
UST20,1
OCTAl. INTEGER

.+8
USTUG
USTDG

US1OC,I

l.TEMP+8
,,+608

PAGE 0486 *42
0648
0649
06150
0651*
0652*
0663*
0654
0655

id656
id657
0658
0659
id660

STATUS

USER

CONSO~E

JSB L.OUT
LOA LTEMP+8
Jr-tP U8TOG,1

75713 016132
75714 060040
75715 12771~
UST60 OUTPUTS A
75716 000000
75717 10e400
75720 001032
75721 074037
75722 017672
75723 060037
75724 006400
75725 100400
75726 000437
75727 074037
75730 017672
75731 060037
75732 017672
75733 127716

~

6~OlGIT

NUMBER

UST60 NUP
OIV OVSRS
STB LTEMP+7
JaB UST20
LOA L.TEMP+7
Ct..B
1)1'1 _100

0661
STB L.TEMP+7
0662
JSB UST20
0663
LOA LTEMP+7
1IJ664
JSe UST20
01"IT5 5-6
0660
JMP UST60,1
0666.
0667* UST3D OUTPUTS A 3.01GIT NUMBER
0668*
0669 75734 ""0000 UST30 NOP
0670 75735 006400
CL.B
06 7 1 75736 100400
01'1 -100
75737 IH:HC1437
0672 75740 1011710
JS8 USTOG
DIGIT 1
11)673 75741 017672
0lG118 2-J
JaB UST20
BL.ANK
LOA
,+406
0
"'674 75742 06 412
0675 75743 1616132
JS8 LOUT
JMP U8TJO,1
"'676 75744 127734
8677.
,,678* XCRLF OUTPUTS X-OFF, CARRIAGE R~TURN AND t..INEf£tiD
16679*
kJ680 75745 000000 XC;Rl".F NOP
0681 751.6 06 0 375
LOA ,.236
XOf"
J88 LOUT
"'682 75747 016132
CR
LOA .+158
0683 7575 0 06 0 367
0684 75751 016132
JaB LOUT
Cf
L.OA .+128
11)685 75752 06 0 36 ..
0686 757153 016132
Jaa L.OUT
.,687 7e7'. 127740
JMP XCRLf",l
0688.
1IJ689· usrsv SAVES STATUS VAR1A8L.~S
069".
0691 75755 000000 USTSV NOP
1IJ692 75756 064273
L.DB ML.INK+l
A08 ,+1TEMP~1LINK
0693 75757 04"3~5
STti
MOVED
0694 75760 074051
LDB DL.TEM
06915 75761 06 .. 520
ST8 MOVES
l-jb96
7~762 1/27 4 °5 16
kJ697 75763 064347
LOB .-3
J$B MOVEW
0698 75764 0162,7
JMP USTSV,I
ft:i699 75765 127755

PAGE fd487 #42

STATUS

~

USER

CON50~t

0700*

-

10701* USTRV RESTORES STATUS

0712*

0703
1cl704
0705
0706
1cl707
0708
0709
1cl710
0711
1c?712
0713

75166
75767
75770
75771
75772
75773
75774
75775
75776
75777
7b0((Hd

"~0000

064273
044355
074050
064520
074061

064347

016257
127766
0000~6

VARIAa~tS

USTRV NOP
LOB Mt..lNK+l
AOB • +?TEMP-1I..1 NK
ST~ MOVES
~DB D"-TfM
STB MOVED

LOB .... 3
J56 MOVE~
JMP USTRV,I

UDl.14 OfF L n.MP+14
SSTAS EQU *

PAGE
0002
0003
0004
0005
0006

0007
0008

0009
~010

0011
0012
0013
0014
0015

0016
0017
0018

0019
0020

0021

llilli22
0023
0024

0025
0026
0027
0028
0°2 9

0030
0031
0032
003J

0034
0035
0036
0037
0038
lli039
0040
0041

0042
""'43
0044
0045
0046
"047

.

,,
00<49

005"
"0~1

~488

*4J

STATUS

75000
75000 060250
75001 114500

76002 102311
75003 027002
75004 102511
75005 0700J0
75006 010734
75007 "l77in
7~iH0 060424
7~011 064030
75012 006020
75013 016132
75014 060424
75015 064030
75016 0052i0
75017 00602fD
75020 016132
75021 017656
75022 020040
76023 0200<40
15024 0$252~
75025 042622
75026 020075
15027 000000
75030 064255
75031 006003
15032 027036
75033 160001
75034 001727
76035 °17612
75 0 36 017745
7 5 0 3 7 0176 5 6
7 5 040 ",,5111
7~041 042124
75042 020040
75,,<43 000010
750<44 0603<47
15045 070033

75046 0676Jl
75047 0740J~

75"50
7505" 160034
75051 034034

75052 002003
75053 02711i56
75054 164034
7505b 017447

75056
75056 034034

15051 034034
70808 e~41J3
75061 021050

75062 017741;)
75063 011656

_ USER

OVER~Ay

CON'O~E

ORG L.IBHA
LDA LPa

JaB 8148C,1
Sf'S CH2

JMP .-1
~lA CH2

STA LT£MP
AND B71

JI8 USTOC
LOA .+52B
L08
SS8

~TEMP

JI8 LOUT
L.OA
L.OB ~T[MP

,.ea8

GET THE L.INE
PRINTER STATUS
FROM THE 1/0
PROCESSOR
A • STATUS
A•

8E~ECT

OUTPUT THE

CODE
$(;

A .. ' . '

B • L.P STATUS
CHICK FOR 2610A LP
Yel • OUTPUT I ••
A •

'*'

RIL

CHICK FOR 2767A ~P
JI8 ~OUT
YEe • OUTPUT '.'
J86 USTST
USER •
AIC 5,
88e

OCT

0
I..fli PRIST

SlS,HSS
JMP U8TA2
LDA 8,1
AL.F,ALF
J88 USTaD
Jsa XCRL.f"
JIB lJST8T

USER INDICATOR
CHECK FUR USE

~ET

NO
YES,
OUTPUT
USER TTV.

OCT fS111
ASC 2,DT

OCT
LOA
STA
LOS
ST8
USTl0 EQU
LOA

iii

,-3
LTEMP+3
U8TID
LTEMP+4
•
LTEMP+4,I
lSZ LTEMP+4
SlA,HSS
JMP UST31
L08 LTEMP..,4,I
JS8

UST~L

J lOT

TRACKS

GET ADDRESS

SKIP IF ZERO
GET L.ENGTH
OUTPUT THEM

USTJl EQU •
IaZ LTEMP+4
ISZ LTEMP ....

1.% LTt ..".;,

JMP UBT30
JIB xCRLF
JS8 USTST

XOFf_CR-L.f

0052
0053

0054
0055
0056
0057
0058.
0059
0060
0061
0062

75064
75065
75066
75067
75070
7bi!71
75072

006412
040504
05204t1
000000
060112
06411 J
017447

OCT 6<412

75t173
75074
75075
75076
75077

017745
017656
0i15104
04452J
04\44td
040504
052123
000000
017745
116"23
060346
11)70033
067626

JaB XCRL.F
JSB USTST

75U~0

~063

0064
0065
0066
0067

0066
0069
0070
0071
0072
o073
0074
0075
0076
0077
0076
0079
0080
0081
0082
0083
0084
0085
0086
,,087
0088
13089
0090
0"'91
0092
"'093
0094.
0095
0096
.,,,97
ilf,9tt
0099
Id100
01101

75101
75102
751ta3
751",4
75105
75106
75107
75110
75110
75111
75112
75113
75114
7tH 15
75116
75117
75120
75121
75122
75123
75124
15125
75125
75126
75127
75130

O(';T "

LOA AOL.OC
LDB AOLEN
JSB USTL.I..

ASC 4,lsC AOTS

UST32

75132 06003J
75133 050346
75134 002001

75135 0117 4 5
75136 11:)023
017656
00510..;
044522
042503

75143
75144 ""'".
017745
75145 060346
75146 070033

OCT
JSB
JSB
l.OA
STA
L.OB

L.TEMP+J
USTOC

~QU

•

~

XCRL.f
SCHOU,I

,_4

PER
LINE
.> 1ST DISC ADT
4

STB L.Tt-.MP
LOA L.TtMP,l
GET ADDRESS
SZA,RSS
SKIP IF ZERU
JMP UST3J
L.OB LTEMP
A08 ,+OAOL.N~OADLC
LOB 6,1
~ET Lt-.NGT~
JSa USTL.L
OUTPUT THEM
ISZ l.TEMP+3
LINE fUL~
JMP USTJ3
NO
JSB XCRL.F
yES
L.DA , .. 4
STA L.TEMP+3
U6T3J

064030
006004
057632
002001

OUTPUT ADT
ADDRESS A~O
LENGTH

O'CT SUI4

07403i1
160030
002003
027125
064030
044362
164001
017447
034033
027125
0P'745
060346
VJ780JJ

75131 027110

75137
75140
75141
75142

ASC a,ADT

EbiU •

LOS LTEMP

INS
CPS UST0l.
RS8
JMP USTJ2
LOA l.TEMP+J
CPA
RSS
JSB XCRLF
JSB SCHOU,l

.-4

FINISHED

yEs

SKIP BLANK L.INE

JSB USTST
ASC a,IREC

LOA , .. 4

STA LTEMP.3

DISC A01S1

NO

OCT (5104

OCT "
JSB XCRL.F

A~l

4 pER
l.tNE

PAGE 0490 #43
0102
1410J

0104
{{l105
0106
10107

01{{l8
V>109

ru 10
{{l1l1

0112
rd113
0114
0115
0116
0117
0118
0119
{{I 12"
0121
0122
0123
0124
16125
0126
IH27
"'128
0129
liH30
0131
0132

0133

0134
0135

0136
0137
v>138

0139
0140
{{I141
id142
0143
0144
0145
0146
0147
0148
rd149
rd15e
0151
0152
0153
0154

751 4 7
75150
75150
75151
75152
75153
75164
75155
75156
75157
75160
75161
75162
75163
75164
75165
75166
7oU>7
75170
75170
75171
75172
75173
75 17 4
75175
75176
75177
75200
7 5 201
76202
75203
75204
75205
75 206
75207
75210
75211
75212
75212
75213
75214
75215
7521b
75217
75220
75221
75221
75222
75223
75224
75-225
75220
75227
75230
75231

STATUS

067624

074030
160030
00200J
027170
064030
044~44

164 0 01
017 44 7
034033
02717(6
017745
017755
116023
017766
060346
070033
064030
044361
rd57625
002001
0271~0

060033
05611346
002001
017745
01 7 6 56
06115123
054523
1052106

OVER~AY

• USER

L.oe UST06
UST;''' f:.QU •
ST8 L.TEMP
LOA LTEMP,1
SZA,RSS
JMP

UST~5

CONSO~E

"ET AODkESS
SKIP IF Zt,RO

LOB LTE"'P

ADS _",0
LOB 8,1
JSB USTLL
ISZ LTEMP+3
JMP UST35
JSB XCRL.F
JSB USTSV
J86 SCHOU,!
JSB USTRV
LOA •••
STA LTEMP+J
UST35 EQU •
LOB LTEMP
A08 .+7
CPB USTOU
HSS
JMP UST34
L.oA LTEMP+J
CPA ....
RSS
J~B

.ET LENGTH
OUTPUT THEf1
LINE FULl.
NO
yES,XOFF.CR .. Cf
SUSPEND
RESTORE

VAH1A~lt.S

FINISHED AL.L OlREC ENTRIES?
YES
NO

SKIP PRINT IN' OF BLANK LINE

XC,R~F

JSB USTST
OCT 5123
ASC 3,YSTt.M

"'46440
00000~

002400
070033
067627

07403"
160001
1Il107e ..
050033
027221
07003:$
017464
064034
00600"
057630
(602001
027212

1177.e
017656
005125
VJ515[.(l5

OCT 0
CI.A
STA LTEMP+3
LOB UST'T6
UST50 EQU •
STB I..TEMP+4
LOA 6,1
AND M128
CPA L.TEMP+J
JMP UST36
STA I.TEMP+3
JSB USTOS
USTJ6 EQU •
LOS LTEMP+4
INS
CPS USTTE
RSS
JMP uST50
Jilt XCRL.F

JSB USTST

oCT 5125

ASC 2,SERS

SfT COMPARE ORUM ADO~ESS
6 _. BEGINNiNG OF COM TABLE

GET THE NEXT U~ED DRUM ADOREsS
MASK OFF THE ~,CTOR ~ART
IS tT ALREADY PRINTfU1
vES

NO

COM TABLE POINTER
ACVANCE TO NEXT ENTRV
CHECK FOR ~NO OF TABLE
~ET

SCAN ON

PAGE 0491 #43

~155

121166
0157
0158
0159
016~

0161
113162
113163
IrH64
113165
13166
0167
0168
frH69

017121
121171
0172
113173
121174
121175
13176
113177
017t3
13179
121180
0181
"1182
0183
0184
0185

75232
75233
75234
75235
75236
75237
75240
75241
75241
75242
75243
7524 ..
75245
75246
75247
7525121
75251
75252
75253
75254
75255
75256
75256
75257

STATUS OVERLAY

051123
000000
017745
11602j

06121342
(670033
067633
07412130
160030
002003
027263
017464
034033
027256
017145
017755
116023
017766
060342
07121033

11364"30
044375
7526~ 051634
75261 01212001
75262 12127241
75263
75263 06"12133
75264 050342
75265 121121212111)1
75266 12117745

0186*
121187 75267 017656
0188 7527121 011)51 04
0189 75271 12144523
75272 0414410
75273 04121514
75274 046117
75275 1041501
75276 052111
75277 00471516
753 113 " 12111415
753101 005012
7531d2 020040
753103 00445(64
75304 05204"
01 9 3 75305 012100010
0194 75306 017745
121195 7531217 017554
IcH96
75310 121603047
121197 75311 064356
0198 75312 011505
0199 75313 116023
0200 75314 017656

w

USER CONSOLE

OCT 0
JSe XCRLF
JSB SCHOU,I
L.OA

aTA
LOB
USTJ7 ECilU
STB
L.OA

,-a

8 pER

USTSW

.> DISC ADDRESS FOR TTY00

LTEMP.J

*

LTEMP

LTEMP,1

SZA,RSS

JMP USTJ9
JSB USlDS

ISZ I.,TEMP.3

JMP
JSB
JSB
JSti
JSB
LOA
STA

USTJ8 EQU
LOB
AOB

cPs

1..1~E

ifT ADOfotESS

DONE IF ZERO
OUTPUT IT
L.INE FULL1
NO

USTJ8
XCRLF
USTSV
YES
SCHOU,l
USTRV
,_8
LTEMP+3
•
LTEMP
•• TTY01.TTy~0
USTUS
FINISHED ALL. USERS
YES
USTJ7
NO
•
I..Tf-MP.J

RSS
JMP
USTJ9 EQU
LOA
CfoJA t.8
RSS
JaB XCRLF

SKIP 8LANK LINE

JSB USTST
OCT 51"'4

ASC 7,ISC ALLOCATION

OCT 11415
OCT 5012
ASC 3, lin
OCT
JSB
JSti
LOA
LOB
JSB
JSB
JSti

0
XCRLF
USTOH
,-l
.+4
UST!)A
SCHOU,1
USTST

RlAO OAT
J ENT~IES
It> 1ST lOT t.NTRY
pRINT lOT
SUSPf:.NO

0201
0202

0203
0204
0205
0206
0207
0208
0209
121210
0211
0212
0213
0214
0215
"216
0217
0218
0219
0220
0221
0222
0223
16224
0225
0226
"'227
0228
0229
0230
0231
0232
0233
0234
0235
0236
0237
0238
~239

0240
0241
0242
0243
0244
0245
0246
0247
0248

75315
75316
75317
75lat:!
75321
75322
75323
75324
75325
75326
75327
75330
75331
75332
75333
75334
75335
75336
75337
75340
75341
75342
75343
75344
75345
75346
15346
75347
75350
15351
75352
75353
75354
15355
75356
75357
7536[6
75361
75361
75362
75363
75364
75365
75366
75367
75370
75371
75372
75373
75374
75375
75376
75377
75400
75401

005040
020104
044523
041440
040504
052040
000000
017745
017554
060342
064367
(d1750~

017656
005040
020104
044522
0425",;,
000000
017745
116023
017554
060342
010033
064562
044"17
017520
027361
034033
027361
01774fS
017750
116023
017766
060342
070033
017554
064030
044355
060207
00300"
002004
040562
054 0 00
01d2001
027346
060033
050342
002001
017745
017666
005040
02012J
05452J

OCT 5040
Ase 5, 01SC ADT

OCT 0
J$B XCRL.'
JSB USTDR

READ OAT
8 ENTRIES

LOA ,-B
L.OS ,.1;5

•• 1ST DIsC

ASC J, DIREC

OCT "
JSB xCRLF
JSB SCHOU,l
JaB USTDR

L.DA •• 8

.

8TA L.TEMP.3

LD8 L.IeD
ADB ,.37

EWV

A~T

ENTRY

sET Up BUfFER FOR ACT

JaB USTOA
JaB USTST
O(;T 5040

*

JaB USTSR

JMP UST~l
ISZ L.TEMP+J
JMP UST~l
JSB XCRLF
JS8 UST:jV
JSB sCHoU,l
JaB USTRV
L.OA •• 8
aTA L.TEM,..J

JaB uaTOR
U8T41 EQU •

L,.f.SL.ANK

XOFF.t,;R_l,.f
SUSPEND
READ OAT
8 pER

LINE

•• 1ST DIREC

e~TRY

'ALL SAVE ROOM SU~ROUTINE
~£RO UISC ADDRESS

L.1NE FUI..Ll
NO
Y!$

aUlpEND

R~AD

DAT AGAIN

L.D8 LTEMP

ADa

,.3

LOA oATL.N

CMA,INA
INA

ADA L.1eD

cpa A

RSS
JMP UST40
LOA L.TEMP+3
CpA

.-e

RSS
Jae XCRl..F

J8B US TaT
OCT 0,,41
A8C 4, SYSTEM

FINISHED
ViS
NO

AL~

ENTHIES1

SKIP BLANK '-INt:.

PAGE 0493 #43

024~

0250
1d251
111262
11!125J
0254
0255
0256
0257
0258
1c1 2 59
0260
0261
0262
0263
16264
0265
0266
111267
026a
0269
0270
0271
16272
16273

1c'l274
0275
1c1276
0277
1d278
ro279
1d281d
0281
0282

STATUS OVERLAY. USER

7f)402 052105
15403 046440
1~41c'l4 0ft}0001c'l
75405 01774~
7541(.10 11602J
75407 017554
75410 064562
75411 100001
75412 070033
75413 006004
75414 104200
75415 111101401
75410 101100
75417 017716
75420 000412
7542 1 016132
75422 061fJ03J
75423 017734
75424 0176tH:i
75425 020040
75426 0001100
75427 064205
7543ft} 044355
75431 074KJ30
7543 2 06 e 346
75433 017573
75434 017755
75435 116023
75430 f1l17766
75437 060345
75440 01757J
75441 017755
75442 116023
75443 017766
75444 060346
75445 017573
75446 026226

OCT

CONSO~t

"SCHOU,I

Jsa xCRL.r

Jsa

Jse
L06
L.DA
STA
INS

USTDR
L.lI:H)
8,1
LTf:.MP+3

Gf. T UAT

01..0

8,1

Gtl ADDRESS OF

5WP
JSS
LOA
JSB
L.OA
JSB
JSB
ASC

USToO
,+4Ic'lB
LOUT
L.TEMP+J
USTJ()
USTST

OCT

0

Loa
ADa
8Ta
LOA
JSB
JSB
JSB
JSB
LOA
JaB
JSB
Jsa
JSB
LOA
J8B
JMP

1,

LoeSA
,+3
L.TEMP
,-4

usrss

"

BAC~'

SAVI:. L.ENGTH

SYSTEM !..lI:lRARY
OUTPUT IT
BL.ANt(
OUTPUT
LEN(7TH
2 BLANKS
GET POINTER
TO 1ST DISC
AD[)~ESS IN SST
SEGMENTS 1.. 4

USTSV
SCHOU,1
USTRV
1",5

USTSS

SEGMENTS 5.g

USTSV

SCHOU,l
U~TRI/

.,,4
USJSS
LLE.NO

SEGMENTS 11d-13

PAGE
0284.
028~.

~494

*43

SlArus OVERLAY •

US~R

CONSOLE

USTLL OUTPUTS A DRUM LOCATION AND LENGTH

0286.
0287
0288
0289
fd290
0291
0292
"293
"294
0295
0296
0297
1tJ298

02ee.

1tJ300.
1301.
0302
0303
0304
0305
1tJ306
~307

0308
,,309
0310'
"311

0312
"313
0314
0315
kl316
0317
14318
iJ319.

75447
7545kl
75451
75452

000000
074035
017464
06rt1035
7b453 003rt1e4
75454 006400
75455 10£1400
75456 001eJ~
75457 £117710
7546ft) 011734
75461 060412
75462 016132
75463 127447

75464
75465
75466
75467
75470
75471
75472
75473
75474
75475
75476
75477
15500
75501
15502
1 5 503
75504

0000ee
070036
0141222
010355
01i'710
060431
016132
060£136
001127
01kJ734
017672
060431
016132
06003ti
010441
0177 34
127464

°*

10329

0330
0331
0332
il33J

L.DA L.TEMP+!

CMA,INA

SAVE L.ENGT~
oUTPUT O~UM ACDR!SS
GET LEN(lTH
MAKE ..,OSITIvE

C'-S

DIV oVSRS+1
JIB
JSB
LOA
JSB
JMP

USTD"
USTJO
,+408
LOUT

laT 01G1T
LAST J g1GIT8
BL.ANK

USTLL.,1

USTOS OUTPUTS A ORUM ADDRESS AS 8 CHARS FOLLowig BY A eLANK

13 2
USTDA PRINTS
3
0321.

0322
0323
0324
0325
"326
,,327
0328

USTLL NOP
STB LTEMP+5
JaB USTOS

755fd5 0000010
75506 07£1033
75507 .044562
75510

15510
15511
75512
75512
75513
75514
75515
75516
75517

017520

00000iJ
1064030
044355
034033
027510
"'17745
121505

USTOS NOP
STA LTEMP+6
RAL.,RAL.
AND ,+3
JS8 USTDG
LOA ,+518
JIB LOUT
L.DA L.TEMP+6
ALF,AL.F
ANO 817
JSB USTZC
LOA ,+578
JS! LOUT
LOA LTEMP.6
ANO B177
JI8 UST30
JMP USTOS,1
01S~

,I '

G£T TRACK*

'I'
GET SECTOR

*

AL.LOCATION FOR THt lOT ANO glSC AOT

USTOA NOP

STA LTEMP+3

AgS L18D
USTD1 EII1U *
JSa USTSR
NOP
USTD2 EQU *
LOB LTEMP
ADS ,+3
IaZ L.TEMII+J
JMP USTD1
JS8 XC;RL,F
JMP USTDA,l

0334
"J35.
,,336* SUBROUTINE TO SAVE
0331.

GET DRUM.

ENOU~H

* OF
~.

ENTRIES
1ST ONt ~E WANT

,. NEXT ONE
FINISHEO"
NO
YES

ROOM YHAT THIS RUUTINE

~lII.

fIT

PAGE
~33a

0339
0340

0341
0342

0343
03~4

~345

0346
0347

0348
0349
~350

0351
1352*

0~95

75520
75521
75522
75523
75524
75525
75526
75527
75530
75531
75532
75533
75534
75535
75536

-43

STATUS OVERLAY. USER

000"0~

074030
104200
100030
002003
006002
002001
127520
101100
017716
017656
0221040
00Q1000
037320
121520

USTSR NOP
8TB LTEMP
Ol.D l.TEMP,l

CONSOL~

GET DIsC ADDRESS

SZA,RSS

alB
RSS
JMP USTSR,l

swp
JS~

UST60

JSB USTST

OUTPIJT IT
2 BI.ANI(S

Aac 1,
OCT 0
lSl USTSR
JMP USTSR,l

0353* UST6R READS THE BOOTSTRAP

i354*
0355 75537
~356
75540
~357
75541
0356 75542
0359 75543
0360 75544
75545
0361 75546
0362 75547
0363 75550
0364 75551
16365
75552
0366 75553
"367*
0366* USTOR

000000
060750
070216
002~00

006.04
104400
005:'1046
064205
045ldle
063777
114217
027641
127537

USTBR NOP
LOA M512
STA MWORD
CI.A

Cl.B,INB
DST l.lEMP+14

l.DB L08SA
ADB 8IT15
l.OA UDL14
JSB DlsCl,l
JMp USTER

JMp

L.ENGTH
OISC ADDREsS
CORE AODRf8S
READ IT

UST~R,I

REA OS THE DISC ALLOCATION TABL.E

(4369*

10370
0371
0372
0373
1t:J374

0375

15554 000~0"
75555 011537
75556 06.206

75557 044354
7556., 10420"
75561 1000~1
75562 104400

USTOR NOP

JSB USTBR

RE.AP

01..0 8,1

DST LTEMP.14

AOO~E8S

l.DA UDl.14
DATL.N

.~

7t;563 0"0046

0370
0377
0378
037 9

75564 063177
75565 064207
755tH)

07421~

7!)567 064560
75570 114217
75571 027641

eooTSTfUP

L.DB LSTDA
AD"., ,+2

LOB
STB
LOB
JSB
JMP
JMP

MWO~D

OF OAT

DISC AOORfSS

LENGfH
CORE ADDP.ESS
Rf.AI) IT

l.IBDl
0J80
oISCZ,I
0381
U8TER
0382 75572 127554
USTDR'I
0383*
0384* USTSS FI~LS THE BUFFER WITH SYSTEM SEGMENT
ItlJ85* AUORESSES AND LEN~TH8
0386*
16387 75573 0000~0
USTSS NOP
0388 75574 070033
STA LTEMP.J
SAVE • of

sE~MENTS

PAGE "496 #43
0389

ItlJg0
03~1

0392
0393
0J94
0395
0396
03~7

0398
0399
0400
0401
0402
04i3
0404
0405
0406
"'407
0408
0409
04HJ
0411
0412
0413
0414
0415
0416
0417
0418
0419
042 0

7~H575

751576
75:576
75577
75600
75601

STATUS OVERL.AY - USER CONSOL.E

0175J7
1004210
100030
UU1il0
011716

Ja8 USTBR

•

USTSI EQV
OL.D \..TEMP,l

75610

75611
75612
15613
75614
75615
75616
75611
75020
15621
75622
75623
75624
75625
75626
15627
15630
75631
75632
75633
75634

016132
0640311J
0443ee
16 00 .01
044360
1tl74"3i
"017a7
0J0762
11J0l004
011734
"17656
0211J040
1tl00"""
034033
027576
011746
127073
030£106
03106~;
00011 f)

072034
1tl72137
"00101
000125
061130
062270

filT

01S~

ADDRESS

eWp

756/()2 0b0412

7ts603
75604
75605
156 06
75607

RiAD 800TSTRAP

U8T06
USTOU
VSTOC
USTTB
U8TTE
USTID
USTDf,.
USTSW
USTUI

OUTPUT iT
JaB U8T60
SLANK
I.DA ,+40a
JIB LOUT
Loa LTEMP
AOB ,-a
L.OA 11,1
iET "'iNfiTM
A08 ,+6
STe I..TEMP
AL.F,AL.F
CONVERT
lOR H1MSK
CHA,INA
To SL.OCK:)
JaB USTJD
OUTPUT Xl
2 BLANKS
JaB USTST
AIC 1,
OCT "
liZ LTiMP+J
JMP UsTSl
JaB xCRL.F
JMP uaTSS,l
0&' OlREC+6
DE' OIHEU+6
DEF DADLe
COM6
DE' COMTf;
DE' IDEe.l
oEF DADLN
OfF TTY00.10Isr;
DEF TTYJa+?OISC

0"

PAGE 0497 *43

D£LETE

0422* THE DELETE COMMANO ALLOwS A U~ER TO Of~ETE A SECTION OF HIS
0423* PROGRAM IN A SINGLE LINE, THE FORMAT IS.
0424*
DELETE-M,N
04a~*

OR

0426.r,
DEI,.ETEwwM
0427. WITH THE FIHST FORMAT, ALI,. LINES FROM M THROUGH N ARE
042tS.r, DELETED. WITH THE SECOND, AL~ LINES FROM M TO THE ENO Of
0429. THE PROGRAM A~E DELETED,
0431
0432
0433
,,434
0435
0436
0437
043tS
0439
0440

15000
75000
75001
75"'02
75003
75004
75005
750Cd6
75ld07
750 hi

'456"
0457
.,;458
04 59
04 6£1
104 6 1
0 46 2

0463
0464
0465
0466

JSB
STA
CPt)
JMP
JMP

07~031

OfLNM
OELN
,+l~a

If COMMA FOLLOWS, GO
Gt:.T N,

NEXT

CHA~

MUST BE A CH,

OEL2
lL.FER

75013 002921
75014 026 4 30

CMA
ADA DELM
SSA,RSS
JMP lL-FER

75015 016041
75016 015J22

JSB ROP~G
JSB OCMPL

READ IN PHOG~AM AND
DECOMPILE IT.

75017
75020
75021
15022
75023
75024

060056
064030
015314
002001
00511000
074051

LOA
Loa
JSa
RSS
NOP
STB

PBPTR
OELM
F"NOPS

I,.UCAT£ FIRST
STATEMENl TO

15025 060056
75026 064031

LDA
LOS
BTA
CPB
JMP

PBPTR
DEL.N
MOVES

75011 003000

OEI..2

75012 0400310

75021 070°5 0

75 030
75"'31
752132
75033
75034

0571 2 6
21270 3 7
0216004
015314

INa

OEL.~9

NOP

STB MOVES

7fl044
75045
75046
75"'47

007004
kU6257
060051
07ki056

LOCATE fIRST STATEMENT
NOT TO BE DELETED •

DEI.,.J

75036 074050

75043 044055

DELETED,

JSB FNDPS
RSS

.jU.2"'"

752137 064e5~
7504"-' 05 4 k'51
75041 11"21 0 5 4
75042 0"7004

a~

MOVED

15035 000000

1i467.
0468
"469
04 7 0
0471
0472
047J
0474
0475
0476

CPt; ,+548

054367
027011
02643"

0441"

10442
0443
0444
1ci445
..... 6.
0447
0448
1144V"
0450
0451
0452
0453
0454
,,455

LIBRA
JSB OEL.NM
STA DELM
L.OA DEL.99
O~G

017074
070"30
06;'126
054426
017074

DELJ

LOB MOVES
CPB MOvE.D
JMP DEL4
eMB,INS
AOS Pt;PfR
eMa,lNS
JSB MOVEW
L.OA MOVlD
STA PI3PT~

IF

OEST~&OURCE,

NOTHING DELETED,

OTHERWISE, MOVE UP,

SET'~EW

PBPTR,

VAI..I.!f. OF

PAGE 0498 *43
"417
047S
047~

0480
84'lfr
.,482
0483
0484
0485
0486
0487
0488
0489
.,498

0491
"492.
04 9 3 *
1tl494*
.,400.
1lI496
0497
0498
0499
1lI500
0501
0502
0503
0504
0505
0506
0507
0588
0509
0510
0511
0512
0513
0514
0515
0516
1"6517

0518
051~.

0520
05~1

DELElt:

15050
75051
15052
15053

060273
040335
010251
026220

75054
75055
75056
75057
15060
75061
75062
75063
7511)64
75065
75066
75067
7e070
75071
75072
75073

060273
040lJe
070257
060331
061062
026432
07506;5
005116
047624
044111
047107
020184
042514
042524
042504
000400

OEI.4

L.OA
ADA
STA
JMP

MI.INK+l
,_'lI.INK
MAIN
L.I.END

L.OA
ADA
STA
L.OA
L.OB
JHP
DEF
OCT
ASC

MI.INK+l
,_'lLINK
MAIN
,-17
.+2
lliER
·+1
5116
L.'.N
7,OHUNG DELETED

OCT 6400

TELL SCHEOULER THAT
PRO"HAM IS IN CORE,

eR

DElNM HEADS A NUM8ER 'ROM THE USER'S SUFFER. IN CASE OF ERROR IT
GOES TO DELle OTHERWISE IT RETURNS WITH AI' AND e8NEXT CHAR.
75074
ns 075
7511:176
75076
75077
75100
75HU
75102
75103
75104
7Stlll5
75106
70107
75110
75111
75112
75113
75114
75115
75116
75117
75120
75121
7e122
75123
751 2 4
75125

05 2
0523
1524.
0525 "0031l1

000000
0024~H}

070032
016164
000000
1lI70"01
040316
002021
021122
040364
0021l12f1
"2712~

064032
047127
006021
026430
064032
005222
0440J2
1lI05200
11:140001
027076
06003i
002 00 2
12 70 74
026430

DEL.NM Nap
CLA
DEL.7 EQU *
STA DEL.T
JIB LCHAR
NQP
STA 1
ADA M72~
SSA,RSS
JMP DEL.6
ADA ,+10
seA
JMP OEL6
LUIS Ot:L..T
ADe OELMX
SSI,RSS
JMP U.F£R
L.DB DElT
R8L.,R8L.
ADS DELT
RBL
ADA 1
JMP DEL.7
01:L.6

L.DA DEL.T
SZA
JMfI' DEL.NM,1
JMP ILFER

OELoM

EQU ",TEMP

INITIALIZE TO I,
GET A CHARA"CTER
SAVE IN 8,
TEST FOR UHIIT,

MPy ULD YAlUE

ADO IN NEW.
,",OOP,

"IT VALUE
FAIL l' lERO.

~y

10.

PAGt

#43

DELETE

EQU LTEMP+1
EQU L.TEMP+2
OEL.99 DEC 9999
DU. MX DEC .10~0

Of.L.N

0529

00031
00032
75126 "23411
75127 176030

0530

75130

SDE.L

0526
0527
0528

--'

~499

DEL.T

EQU

*

0532* THE TIME COMMAND PRINTS THE USER'S CONSOLE TIME t'URING THIS
0533* SESSION AND HIS TOTAL CONSOLE TIME TO DATE.
053~

75000

0537
0538
0539

75000 060332
75001 067047
75002 016137

LOA .-16
LOB TIM1
JSB I.TYPR

054'.
0541 75003 060273
0542 75004 040345
0543 75005 104200
75006 100000
0544 75007 003004
1i'545 7511)10 0070e4
0546 75011 104400
75012 000031
0547 75013 1 0 4200
75014 000201
054ij 75015 040031
0649 75016 0000~0
0550 75017 044032
0551 75020 074032
11)552 75021 100200
7 5 022 '''''0124
0553 75023 070031
0554 75e24 060932
0555 75025 002041
0556 75926 007400
0557 75027 100400
75030 000406
(15515 75031 040031
0559 75032 070031
0560 75 033 01 7 0 7 6

1061*

OUTPUT START OF
MESSA;E.

LeA MLINK+l
COMPUTE LOC OP U8ERlS
ADA .+1TIME.?LINK STARTING "TIME.
U~D 0,1
GET STARTING TIME.
CMA,INA
CMS,lN8
OST TIMT

MAKE NEGATIVE ~NO
SAVE IN TIMT.

OI.D OATIM

GET CURRgNT TIME.

ADA TIMT
CI.E
AOS TIMT+l
8T8 TIMT+l
MPY D60

COMPUTE DIRRERENCiS, Aw_ OF HRS,
Be. OF 180 H8 UNITS.
E'.8IGN OF" B.
SAVe; UNITS.
CHAN'f HRS TO MINS,

STA TIMT
LOA TIMT+1
SEZ,RSS
Cts
OIV 068e

GET UNIT COUNT, IF £.0
THEN COUNT IS NEgATIVE.

ADA TIMT
STA TIMT
JaB TIMPR

CHAN(;E TO MINI,
ADO IN PREVIOUS AMT,
PRINT IT.

75 0 34 06 0 334
75035 067060
75036 016137

LOA ... 14
LOS TIM2
JS8 LTYPR

OUTPUT SOME MORE
CHARACTERS,

75037 016Ul7

JIB ROloT

READ IN THE lOT

75040
75041
75042
75043

044357
160001
040031
017076

ADB ,+0
L.UA 1,1
ADA TIMT
JS8 TIMPR

GET TIME TO DATf,

0573
fil574
0575

75 0 44 06 0 367
75045 016132
75046 026226

L.oA .+156
J'i LOUT
JMP LLENO

0577
057at
0579

75 047
75050
75051
75052
75053

0562
0563
0564
056'.
0566
8507.
"056ij
0569
0570
0571

107a-

.,16_

0 75 050
005103
047516
051517
046U,S

TIMI

ADD IN CURRENT TIME,
PRINT IT,

OUTPUT tR.
TERMINA n:.

DEF *+1
OCT 6103
LF.C
Ale 7,ONsoLt TIME.

PAGE 121501 #43

1215 8 0
~581

75054
75055
75056
75057
75",60
75061
75062
75063
75064
75065
15066

0582
058:5

75067
75070
75071
75072
75073
75074
75075

TIME

1020124

044515
042440
036440
075!d61
12120124
11341524
040514
02012(
044515
042441c>
03644td
075071
020115
044516
052524
04252J

TIM2

OfF ·+1
ASC 7, TOTAl. TIME ..

TIM3

OfF *+1
ASC 5, MINUTES,

0~7040

858111.

0585* TIMPH OUTPUTS THE INTEGER IN A TO THE CONSOL.E,

1586.

0587
05 88
0589
0590
8591
0592
0593
0594
0551'5
0596
0597
0598
0599
0600
061211
061212

75076
, 50 77
75100
75HH
75 1id2
75103
75104
75105
75106
75H,7
751l\~

75 111
15112
15113
75114
75115
75116
75117
75120
75121
75122
75123
75124
75125
75126
75127
75131d
75131

061213
0604
0605
0606
0607
121608
0609
0610
16611
0612
06 13*
0614 75132

121012112100
00200J
027125
070033
067133
874034
086400
100400
000034
074030
12154033
02 7114
04121432
016132
!/J6e"'34
0",6400
1"'04!/J'"
001d364
12170034
1602003
027127
"'6~(/I30

027t04
1360432
016132
060341
067070
016137

TIMPR NOP
SlA,RSS
JMP TIMP1
STA TIMNM
L.OB TIMXK
STa TIMI)V
lIMp4 CL.B
D1 V TIMDY

aTB TIMN

cpa

JMP
ADA
JSB
TIMP2 l.OA
CL.B
DIY

TIMNM
TIMP2
+60 8
•l.OUT
TIMDV

SAVE ORIGINA~ NUMBER,
GET INITIAL DIVISOR OF

10~0011

COMpUTE A DIGIT.
SAVE REMAINDE~,
IF REMAINDER-ORIGINAL. NUMBER
THIS IS A L.~ADIN~ ZERO.
OUTPUT
OIGIT.
PRODUCE NEN DIVISOR.

,+ltd

STA TIMD"
SZA,RSS
JMP TIMP3
lOA TIMN
JMP TIMP4
lIMP1 L.0A ,+6I6B
JSB l.0UT
TJ.Mp3 LOA ,.9
L.OB TIM3
JSB I,.TYPR

127076

JMP TIMPR,l

",617

0 6 16

7 5 133 023"20
erald30

1d616

~0031

TIMXK DEC 10000
lIMN EQU l.TEMP
TIMT EQU LTEMP+1

061S.

SPE(';lAL. CASE OF ZERO,

DONE IF DIvISOR IS ZERO,
GET

#

AGAIN AND lOOP,

oUTPUT SlN"I.. E !/J,
PRINT
"MINUTES,"

PAGE 0502 *43
~619

"620
0621

00033
00034
15134

rlMt

TIMNM EQU LTEMP+J
TIMOV ~QU LTEMP+4
STIM EIilU.

0002* THE PROTECT COMMAND tAN BE USED BY AB00 AND BY GROUP ~laHARIANS
0003_ TO RESTRICT rHE USE Of PHOGRAMS ANO FI~ES8Y OTHER USE~8.
0004* A PROTECTED PUBLIC OR GROUP ~lBRARY PROGRAM MAY NOT BE ~lSTtO,
0005_ SAVED, CSAVED, OR PUNCHED IN ANY WAY ~Y ANOTHER USER.
A
0006- PROTE~TED FILE MAY NOr BE ACCESSED AT ALL, TH~ PROTECT
0007- COMMANO SIMpLY SETS BIT 15 of WORO 1 of THE DIRECTORY tNTRY
000ij- FOR THE PRO'RAM OR FILE.
ORG I.lSRA
.. 012
0013
0014
0015

0(U6

0(417
01rH8

75000

06~273

75001
75002
75003
75004
75005

044341
168001

LO~ MLINK+l
GET USER'S 10
ADa .+?lO-1L.INK
LOA ~,l
STA LTEMP
PLACE ID INTO LTEMP

070030

ANO 61171
CLa
DIV ,100

010602
006400
75006 100400

CHECK
FOR
PRIVIL.E~EO

75007 1000437
0019

SZ8,R88

75010 00600J

0020 75011
00210022 75012
0023 7501J
0024 75014
0025 75015
0026 75016
11)027 75017
75020

027030

JMP PROl

06iJ327
067015
1d26432

LOA •• ig
LOt; .+2
JMP L.lbER

USER

07501~
805 U~0

OEF .+1

051111
053111

ASt 9,RIVILtGED COMMAND

OCT 5120

LF-P

LOA

8ET POINTER TO PROGHAM

75021 0~UH"5
75022 043515
75023 042040
75024 041517
75025 ~46fH5
75026 0401H 6
75027 1It4i040

8"28_
0029
0030
0031

75030 ~6~520
75031 070037

0032

75033 070036
750J4 016164
75035 027053

0033
0034

0035
0036

0037

75~40

0039
0040
0041
0042
.. 043

004<4
0045
0046

0047

170037
75041 016164

75042 060412
75043 130037
75044 176037
75ft)45 016164
76046 06fJ412
75047 0Jt4030

75050 16271636

D~TEM

STA PROt;

75032 06°347

75036 001727
15037 034037

0038

PROl

LOA ,-3
alA PROD

8fT UP COUNTER,

JS~

GET fIRST CI1.\R,

~CHAR

JMPPR02
PR03

AL.f,ALf
ISZ PROC
8TA PROC,l
JSB L.CHAR
LOA ,+408

ERROR If NONE,
SAVE CHARACTEH IN
lABLE.

GET RIGHT CHAR.
IF ENO CHANGE TO BLANK

lOR PROC,I
8TA PROC,1
J5a LCHAR
LOA ,+4",,,

GET NEXT ChAR.

18Z PROD
JMp PR03

00

75051 05kJ412

CPA ,+4013

70052 027066

JMP PR(,)4

we. wANT

YES,
MUST

~E

IT1

A BLANK,

NAM~

PAGE 0504 .44

PROTfCT

Ii a.. th,

0049
e050
0051
0052
"053
0054

060335
067056
026.32
0750S7
005111
047120
040514
044504
020116
040515
042440

~R02

O056 75066 116005
0057 75067 027103
8851.
0iHH~
75070 06"334
!d060 75071 061073
0"61 75072 026432
0862 75073 07S074
0063 75074 00511 6
0064 75075 047440
75076 051525
75077 04151f4
75Ule 020105
751''1 047124
75102 e511J1
.8.5.
0066 75103 064'';'5
0067 75Ul4 006004
0868 75105 160001
0069 75106 031036
0070 75u~7 170001
0"71 75110 060201
OO72 75111 044357
0073 75112 170001
1874.
0075 75113 064034
0076 75114 160001
0077 75115 070072
00 78 75 116 0 4 43 6 10
0079 75117 16001D1
008o 7512£1 06<4562
0081 75121 liH6231
0082 75122 002001
0083 75123 1d26226
0084 75124 ~600J4
0085 75125 16409(0
0086 75U!6 ".,J60
0087 75127 116016
0!/J88 00.,36
0089 0"037
!/Jag0 75130

PR04

,1&0.

75053
75",54
75,,55
75056
75057
75e60
75061
75062
75ld63
75064
75065

1..(1 A ,.lJ
L.I)B •• 1
J"p Ll1fR

·.1

Of,..
OCT 5111
ASC 6,NVAL.ID

JS8 OL.OKP,1
JfItP PR06

LOA
L.Pi
J"P
Of,..
OCT
ASe

PRO'

L.IE-l

NAM~

St.ARCH FOR

~ROG

IN OIRECTORY

FOUNU.

,-14

•• a

··1

LIlfR

Lf.N
511 6
6,0 SWCH ENTRY

LOB LTEH"'.!)

SiT PROTE(.;T 81T.

INI

PR07

LI.}A
lOR
STA
LOA
AOtt
STA

1,1
81Tl!

1,1
CATp.

,.1

H,l

LOB LTE/ItP.<4
LOA 1,1
STA WORD

APit

loa

....

1,1

L.~' Ll""

J" DR'WMt.
RSS

JMP LlfNO
L.O-' lTEfit"._
L.(')I A,l
ApA •• 6

Jse

"ROO
PROt
.,,~o

SiT THE LAST
CHANGfO OATE

'A"'''''l

EQU LTE" ••

E~ LTiM'.7
fQU •

IIJRITE OUT DIRECTORY,

PAGE 0505 #44
0092*
009 3 •
11)11'94
0095
11'096
011'97

--.--

UNPROTECT

UNPROTECT IS IOENTICAL TO PROTECT EXCEPT THAT IT CLEARB THE
PROT~CT BIT INSTEAD OF SETlING IT,
75000
75000 064273
75106
75106 001665

ORG

Ll~RA

Loa MLINK+l
QRG PRU7
ELA,CLE,EHA

PAGE

~506

#44

OPEN

THE OPEN COMMANO IS A USE~ FUNCTION WH1CH CAUSES THE SYSTEM TO
0100* CRE~TE ROOM FOR A DATA FILf. T~E fORMAT FOR THE COMMAND IS,

~099*

BUJ!.
0102*
81830104*
0105.
0106.
0107*

0109
illUI

0111
0112
011J
0114
0115
0116
0117
{at 1 ts

0119
0120
0121
0122
0123
0124
0125
0126
0121
0128
112t_
0130
IcU31
0132
0133
0134
0135
0136
0137
fell 38

013'_
0140
0141
0142
0143
,U44
fl145
0146
0147

OPEN .. FILEPfM4f, FILE LENGTH, RECORD 61lE

THE FILENAME IS SUBJECT TO ALL lHE RULES OF PRO'RAM NAMES THE
LENGTH IS A DECIMAL INTEGEfit FROfl1 1 TO J27Gl INDICATINC; THi Fl,",E
LENGTH IN

RECOR~S,

256 INDICATING htE

15000
75000
75001
75"02
750.,3
75004
75"05

75016
75017
75020
75021
75022

060273
04(1341
16(1000
070030
060520
070042
0b0341
070043
002400
070040
0112141
001727
034042
170042
017041
130042
170"42
034043
021011

75023
75024
7 5 025
75026
75027
15030
75031
75032
75,,33
75034
1!5IJ5
7se36
75037
75040

011841
050412
021116
060334
067031
026432
075032
{,,,,SU6
040515
04244{1
152117
047440
046117
k:l47101

7 504 1
75042
75043
7 5 0.4
75045
75046
15047
75050

0".000
068041
050412
127041
01e16.
02643 ..
064a .. 0
010730

75006
75007
75010
75011
75012
75013
75014
75015

Of'El

REtORD SIlE IS A DECIMAL 4NTEwfR FROH
IN WORDS.

RfCO~D.llf

OR$
LDA
ADA
L.DA
STA
LOA
STA
LDA
STA
CLA
STA

LIBRA
MLIN«.1
G£T 10 AND STOkE
... 710.?LINK
IN L.lEHP,
21,1
LTEM'
SIT UP POINTER fOR
DLTEM
OP[P
NAME,
SET
UP tOUNlt;R.
''''~
OI'EC
SET fL.AG SAYli'4(1 FIRST
CHAR.
O"Ef
GET A CHARAtTE~t
JS' OPf.R
ALF,ALF
STORE IN
ISZ OPEP
NAME AREA,
STA Opt",1
G£T RIGtH (,;HAf(,
JSe Ol'!re
MER(lt,. IN,
lOR OPEI',l
STA OPEI',l
TilT FOR ANY MORf,
ISZ 01'£'
JMf' OPi1

JU on~
CPA ••
JKP O'E2

4,.

NEXT CHARACT!~ MUST BE
BLANK,

.-1'

LDA
LOB ... 1
J.MP LII£R
OEF -.1
OCT 5116

ASC 6,AME

OPER

NOI'
LOA OPEF
CpA
JMI' OPER,l

.....'e

Of'ERl J •• L.C~AfIt
JM' IL.""
L.DI liS
ANO .1~'

GET NEXT CHAR FOR NAMf..
lEST TO SEND BACK bL.ANK.
GET NEXT CHAR.

FAIL. IF NONt.,

SAVE IN B,
SKIP CONTROL CHARS.

6~

TO

PAGE 0507 #44
0148
0149
0150
!CI151
0152
~15J

0154
121155
0156
121157
{tH5S
0159
0160
0161
0162
!CI163
0164
0165
0166
0167
121168
rU69.
0170
0171
10172
IU73
0174
0175

OPEN

75051
75052
75053
75054
75055
75056
75057
75060
75061
75062
75063
75064
75065
75066
75067
75070
75071
75072
75073
75074
75075

0"2002
05073121
027045
060040
002002
027078
054426
026430
05441 6
027076
054424
027076
060001
034 0 4 0
127041
054426
002001
02712165
060412
070040
127041

75~76

06 0 322
067101
026432
075102
005111
046!14
042507
040514
020106
044522
051524
020103
04411cH
051101
04i524
042522

75077
75U",'
715101
7!:i11t32
75 10 3
75104
75105
75106
75107
75110
75111
75112
75113
75114
75115

SZA
CPA
JMP
LOA
SZA
JMP
CpB
JMP
CPS
JMP

.14{O

OPERI
OPEf
OPEH2
.... 548

lLFER

,.448
OPE,S
cpa •• 528
JMP OPE16
OPf.RJ LOA 1
lSZ OPt:.f
JMP OPER,l
OPER2 cPa .+54B
RSS
JMP OPERJ
LOA ,+408
STA OPEF'
JMP OPER,l

GET 18T CHAR, fLAG.
TEST FOR 1ST CHAR,
NOT,
TEST FOR COMMA OR S

TEST fOR •
RETURN CHAR IN B
COMMA TEST

OPE16 LOA ,-24
LOB *+2
JMP L.IBER
OEf .+1
I,.f ... l
OCT 5111
ASC 11,LLEGAL fIRST CHAHACTER

0176.
0177* GET fILE LENGTH.
017~h

0179
fUe0
0181
0182
0183
0184
0185
{cU86
IIH87
0188
0189
01 9 0
!CI191
0192

75116
75117
75120
75121
75122
75123
75124
75125
75126
75127
75130
75 131
75132
75133

002400
0700 .. "
016164
027154
05 0 4 2 6
027136
040316
002621

OPE:.2

CL.A

040364

8TA OPEf
JSB LCHAR
JMP OPE51
CPA ,"'54 B
JMP OPE:.50
ADA M728
SSA,RSS
JMP ILFE~
ADA ,+10

112020

5SA

026430
070043
060040

JMP ILfER
8T" OPI:.C
LOA OPEF

02~4J0

INITIALIZE .. TO 0
GI:.T A CHAR,
DONI:.

IS IT A COMf'iA1
YES, GO GET RECORD SIZE
DIGIT TEST,

SAVE Dl(;lT o

PAGE
0193
0194

"IV!.
0196*
0191*
0196
0199
0200

021iH

0202
0203
0204
0205
0206
0201
0206
0209
0210
0211

~508

#44

OPEN

Jse OpES8
JMP OPE2+1

75134 017700
7~HJ5 027117

GET RECORD SIZE

eL..

INITIAL.IZE I1Zt TO 0

JSB l-CHAR
JMP OPEJ

GfT A CHARACT~R
DONE
Dun T TEST

751 3 6 0~2400
75137 070042
76140 016164
75141.0271'6
76142 040316
75143 002021
75144 026430
75145 040364
15146 002020
75147026430
75150 070043
75151 060042
75152 017700
75153 027137

OPEe0

75154
75155
75156
75157
75160
75161
75162
75163
75164
75165

OPES! LOA 64""
STA OPEP
OPE3 LOA OPff'

ST. OPEP

AOA M728
SSA,RSS
JMP lLFER
ADA ,+10
S8A

JM' II..FER

STA OPEC
L.OA OPEP
JSB OP~S8
JMP OPES0+1

0212.

0213
0214
0215
0216
0211
0216
0219
0220
0221

0222
0223*
0224
0225
0226
8227*
°226
1t2229
0210

060444
070042
06004~

SSA,RSS

002021
002003
026430
06i042

SZA,FtSS
JMP XLFIR
L.DA OPEP
ADA M04
SSA

040610

002020
02643113

JM' IL.FER

SAVE DIGIT
sUlLO

GET NEXT 01"IT
DEFAUL.T RECORD SiZE
IS 250 IIjOROS
T£ST FOR L.EijAL. VAL.UE,

ERROR I' ZERO OR NEGATIVE
GET RECORD SIZE
l.EIS THAN 641
YES, AND THAT'O NOT PLAYING
BY THE RULES.

75166 043757
75167 002021
75170 02643113

ADA 0P11'3
saA,RSS

JMP Xl-FER

wRE'TER THAN 2561
THAT'S EQUALL.Y A NO-NO

75171 016107
75172 044360.
7~H7J 1601.301
75174 003100
75175 006004
75176 140001
75177 040040
15200 002041
75201 027220

JaB! RDIOl

~ET

0231
0232
0233
0234
0235
0236
15231.
0236 75202 0672 0 5
",,239 75203 06{iJJ27
0240 75204 026432
0241 75205 075206
0242 75206 005114
0243 75207 044502
75210 051101
75211 J)S11Jl
75212 1t22012J
15213 050101

Aoa ,+6
LOA 1,1
C"'A,eL.E
INS

ADA 1,1

AD. OPE'
SEZ,RSS

JMP OPE4
OPE7

LOS
LOA
JMP
OfF
OCT

Ase

*+3
," 1'.'9
LI8ER
*+1
511.
9,ltlRAHY

APP~OPRIATE

lOT THACK

TEST FOR USER OUT OF DISK SPACE

75214
75215
75216
75217

041505
020106
052514
046(£140

02~4.

02~5*

SEA~CH

AOT FOR

W2'6*

k'J247
k'J24tS
0249
0250
0251
k'J262
1d253
td254
0255
02ti6
0257
e258
0259
026 0
0261
0262
0263
0264
0265
0266
10267
0268
0269
0270
0271
0272
0273
0274
0275
0276
0277
027a
0279
02 8 0
0281
0282
0283
0284
0285
0286
0287
02 88
0289

7522'"
7522'"
75221
75222
75222
75223
75224
75225
75226
75227
75230
75231
75232
7 5 233
75234
75235
75236
75237
75240
75241
75242
75243
75244
75245
75246
75247
75250
75251
75252
75253
75204
75255
75256
75257
75260
15260
75261
75262
75262
75263
75264
75265
75266
75267
75270
75271
75272
75273

~PACE

OPE4
11360342
070041
062010
002004
053766
063765
072010
040362
070~44

160044
002003
027 2 6 0
07 00 7 2
162010
064066
016231
02726(0
k'J107400
160044
1001100
000Je5
070(643
064562
044354
160001
003100
040040
002(641
027276
044355
0J4e43
027250
034041
021222
060332
007265
1d26432
015266
005123
054523

052185
046441d
047526
042522

TO PUT THE
EQU ."
LOA
STA OPEDF

._e

Fl~E.

SET COUNT Of ADTIS TO SEARCH

OPE4A E.IaIU ."
LOA RKCYP
ADVANCE THE. CURR~NT
INA
AOT TRACK ~OlNTER
CPA DALNA
CHECK FOR END OF TAB~E
LOA DALCA
CYCLE TO BEGINNING If sO
SrA RKCyP
AOA .+DAULN~DAOLC POINTER TO LENG1H TABL.~
STA OPEL.N
IS' THIS DISK
LOA OPfLN,l
AVAILA8LE1
SZA,RSS
JMP OPE6A
NO, TRY NEXT ADT
STA WORD
YES
LOA RKCYP,I
READ lN
THE DISK Ai)T
LOB LIBOI
JSB ORUML.
TRACK
JMP OPf.6A
DRUM ERROR: SKIP TRACK FOR NOW
cca
COMpUTE
LDA OPELN,l
ENTRY
DIV .+3
COUNT

OPE6

STA OPEC
LOB LIBD
Aoe ,+2
LOA 1,1
CMA,CLf.
AOA OPEF
SEz,RSS
JMP OPE5
ADa ,+3

ISz OPEC
JMP OPE6
O~E6A EQU *
lSz OPE OF
JMP OPE4A
OPE12 EQU •

AND SAVE
FIRST ENTRy
L.~NGTH il4CRD
TEST Fo~ 8IG ENOUGH,

.>

IT IS,

HAVE wE TRIED ALL AD1S1
NO, TRY NEXT ONE

LOA •• 16

LOB
JMP
OEF
OCT
ASC

.+2
L.IBER
*+1
~F.S
5123
7,YSTEM OVERLOAQ

PAGE

0298_
t;291
0292
0293
k:l294
0295
0296
(,:)297
1t)29a

~510

#44

uPEfIf

75274 046117
75275 040504
75276 t;60040
75277 003004
75300 140001
75301 07 0 k:l4 t
75302 044350
75303 i0741043
75304 104200
75305 100001
75306 104400
753 0 7 000036
75310 002400
75311 070045

0299
0300
1iJ301",
03162 75312 060032
0303 15313 031036
0304 75314 070032
10305 75315 116005
0306 75316 027734
"3 8 7.
0310a 75317 164034
0309 75320 054714
0310 75321
, 027750
0311",
0312 75322 00 1 000
10313 75323 044562
0,314 753 2 4 07405 0
0315 75.325 044366
0316 75326 074051
0317 75327 007000
031ij 75330 0 4 44,,2
121319 75331 044035
0320 75332 016243
03210322 75333 06052(0
0323 7533~ 07kt050
16324 753J5 061cJ035
0325 75336 04036b
0326 75337 070051
16327 75340 064340
",32a 75341 kH6257
0329 75342 1060042
0330 7~343 170(tHH
10331
75344 034051
16332 7 5345 01 6 0 76
0333 753~6 170051
~334
7 534 7 12134051
033 5 75 3 5t; 06 0201
0336 75351 17ra051
0 33 7 75 3 5 2 03A051
033" 75 3 5 3 002""0
0339 75354 17011551
1d340 7 5 355 03""51

OPE5

LOA OPEf
CMA,INA
ACA B,l
STA OPE OF
ADe -2
5T8 OPEC
01..0 1,1
DST OPEDA
CLA
srA OPEDU
LOA
lOR
STA
JIB
JMP

LTt;MP+2
61T15
LTEMP+2
DL.OKP,l

OPES

SAVE
"NUMBER
Of SECTORS
LEfT
SAVE LOCATION OF
OISC AOT ENTRy
SAVE OISC
AODRESS
CLEMo( DRUM

ADDRESS
SET
fILES
81T
SEARCH FOR ~NTRY
ENTRY FOUNO •• ILLEGAL,

LOB LTEI'1P+4,I IF DIRECTORY TRACK IS
FULL, 00
SUPERSAVE (Hit:. SAVt:. Of STEEL)
J"'P OPE~8

CPS M8184

eMS
ADS 1..160
STB MOVES
AC6 ,+12
sri MovED
CMS
A08 ,+2"
A~B LTEMP+5
JaB MOVEb
LOA
STA
LOA
ADA
STA
L08
JSB
L.OA
STA
lS2
JSB
STA

OLTEM
MOVES
L.TEMP+5
,+12
,.,OYED

SET UP DESTINATION
cOM'UTE LENGTH,

MOVt. 4 WOROS
NEW ENTHY,

FOR

It~

.....

MOVEW
OPEP
MOVEO,l
MOV£(.)
DATE
MO~ED,l

lSZ MOVf;D
LOA
STA
ISZ
CLA
STA
182

SET UP SOU~CE
FO~ MOVE,

~ET LOGICAL RECORO SlZE
AN~ PUT IT IN 01R~~TORy

BUMP POINTER
~ET DATE
SET IT IN LAST

H~fERfNct

DATE

DATlM
MOVED,I
MOVED

"ET HOUR OF YfAR

MO~fD,l

ZERO DRUM ADDRESS" UNSANCT1FIED

MOVED

SET IT IN L.AST

~HAN'E

DATE

PAGE

~511

#44

OPEN
GET DISC AOf)R(SS

75356 104200
75357 000036
75360 l1c'4400
75361 100051

Ol.D OPEDA

0343
0344
0345
0346

75362 060355
75363 040051

LOA
ALIA
LOB
8TB

,+J
MOvEO
OPEf
A,l

034ij
16349
03513
0351
0352
0353
16354
0355
0356
0357
16358
0359
0360
0361.
0362
0363

75366

LOA
ADA
STA
STA
LOA
INA
STA
AUA
LOA
l.OB
STS

LTfMP+4'I ADJUST DIRECTORY
l.ENGTH
,-12
LTEMP+4'I
WORD
LTfMP+4
WRITE DIRl:.CTORy
BACK OUT,
MOVl:.O
,+5
0,1

1d341

rlJ.,.

75364 064040
75365 174000
160"'J~

75367 040336
75370 170034
75371
75372
75373
75374
75375

070072

12160034
002004
0700151
040357
75376 16000'"
75377 064562

0366

0367
0368
0369

0370
03 71
03 7 2
0373

0374
0315
0376
0377
0378
16319
0380
0381*
0382
0383

uIREC~'URY

INSERT FlLE
L.EN.TH INTO
l.AST WORD Of
DIRECTORY ENTRY

L.l~O

Jsa

MOVES
DRUMl.
JSB OEAOP,I

DRUM ERROR, IT'S CURTAINS

754133 064346
75404 016257

l.OB ,.4
JaB MOvEw

RESET
DIREC,

75405
754135
75406
754"7
75410
75411
75412

016u~7

044361
06 00 4 0
140"1cJ1
170001
16 160 7 5
75413 064f.i62
75414 016231
75415 116ft'l7
7~416 16 00 414
75417 070 0 72
75420 162010

75421 064566
75422 016231
7~423

027674

75424 064041
75425 006002

0384 75426 027~45
038,.
16386 75427 064043
0387 75430 0741651
038a 75431 044355
16389 75432 0740fHo
16390 75433 044674
0391 75434 044072
0392 75435 016257

0Jg3.

lNTO

75400 0740~0
75401 016231
75402 116(.)17

ra~6.*

16365

DST MOVEO,l

OPEll EQU
JSB
AOB
LOA
ADA
STA
LOA
l.oe
JSB
JSB
LOA
8TA

l.DA
LOB
JSB
JMf.1

•
ROIOT
.+7
OPEf
1,1

GET lOT TRACK AGAIN
ADJUST AMOUNT OF

DIS~

USED.

1,1

IUL.CP,l
LIeo
DRUMl.
OEADP'l
OPf.L.N,1
WORD
RKCYP,l
LIBOI
ORUMI..
OPE14

w~lrE

OUT
lOT
DRUM ERRORf 8YE.ayE
READ

IN

DISK
ACT

TRACK
CAN'T, so MAKE IT DISAPPEAR

.*

Loa

UPEDF
SlB
JMP OPE.9

GET
Of S~CTORS L.EFT IN ADT,
REST FOR ANY PART LEFT
NON ~MPTY APT ENTRY,

LOB OPEC
MOVEO
AO~ ,+3
aTB MOVE:.S
ADS MLlSO
APa WO~O
JSB MOVEW

SQUl:.EZE OUT AOT ENTRY,

STB

PAGE r,HH2 ... 4
039 ..
0395
0396
0391
10396

0399
0401a
' .. IU.

0402

" .. 03
~40"

0405
0"06
iii 4"7
0 .. ,,8
0409
0410
0.. 11
0412.
""13
""1"
0"1 5
0416
0417

,41f.

0419
10420
0421
0422.
0423
042 ..
1c)425
0426
0421.
"'4 2 8
0429
0430
k)431
"432·
0433
0434
0435
0436
0437
0438
043 9
0440
0441
0442
0 .. 43
04 .. 4
0445

OPEN

75 .. 37
75 .... "
15 .. 41
75442
75443
75444

06035e
16 .. 0 ....
" .... 000
174044
040012
070072
027 .. 61

15445
75446
75 .. 47
75450
75451
75452
75453
75454
75455
15 .. 56
75 .. 57
7546"

104200
100043
000040
044040
002040
00200''
104401a
100S .. 3
064043
1tl443S4
060041
170001

75461
75 .. 61
75462
75463
75 .. 64

16 2010
064562
016231
02767"

1~"3b

LOA
LOS
ADe
STS
ADA
STA
JMP
OPE.9

,+3
OPiLN,I
A
OPEL.N,l
WORD
WORD

OPE10

OLD OPEC,1
CI.E
AD8 OPEF
St:Z
INA
OST OPEC,l
LD8
AD8
LOA
STA

OPE10 fiU
LO.
L08
JSB
JMP

OPEC
,+2
OPED'
8,1

•RKCY"l
LIBP
DRUML
OPfl4

06116e
014043
064e62
003400
l1ee01
7~472 04444 ..
75473 03404J
75474 027 .. 71

OPEl!) I..DS M41
ST8 OPEC
LOB LlltD
ceA

75475 06 03 4 0

LDA
STA
LOA
srA

75465
75466
75467
75470
15 .. 71

7~47b

07004~

754]7 063755
7550ft) 070215
75501
75502
75503
7551c)4
75505
75506
755 0 7
75tH0
75tH 1
75~H2

7551:'
75514
75515
75516

064040
047760
"'060211'

027661
07404fd
063764
064!56~

11 .. 21
027710
104200
fdi108J6
0100040
044422
002°4 111

REDUCE
DISC ADT
Lf.NGTH
8Y J
A"'SO REDUCE
TRANSFER L.EN.TM

STA i,l

ADB i4itl
lSZ OPEC
JMP

UPDATE

DISC
ADDRESS
SAVE
R~MAINING

1:H.OCKS
LENGTH
WRITE
018(; AOT
SACK
CAN'T, SO MAKf Il DISAPPEAR
FIL.1..

UIER
AREA

wITH
E. . O·

OF.
Fll..f

··3

OPE52 LOi
ADi
ssB
JMP
ST8
LOA
LOB

•• UI

OPEC
"'10K
MWORo

Ol'£F
M4f1)
01'[13

OPE"

OPiOI
Ll"O

JIB 01SCZ,1

JMP OPEDf
01..0 Ol'IiOA

eLl

ADI ,+41
SEZ

MARr.S

INITIALIZE WRITtS.SEfORlSUSPEND C(,UNT
INITIALIZe.
WOHO COUNT
GET jo(eMAINING flECORO (;OUNT
MOHE THAN
401
NO, GO DO PARTIAL WRlTE
YE , UPOATE COUNT
POINTER TO DISC TO DISC ADDRESS
COR£ AOOREsa
WRITE "0 FILE MARKS
fAILURE. GO PRINT E_MOR
UpDATE
DISC

PAGE 0513 #44
0446
0447

OPEN

75517 t102004
75520 10 4 400
75521 0~0(:j3b

DST OPEDA

0448.
0449 75522 034043
75523 "'27501
"4~0

ISZ OPEC
JMP OPe:52

0451*
0452*
6:)453.
0454
0455
0456
0457
0458
0459
0460
0461
16462
0463

L.UB
AOB
L.OA
STA
INS
L.DA
STA
INB
STa
DL.D

10464
0465
0466
10467
0468
0469
0470
0471
0472
0473
1d474
~475

"'476
"477
121478
0479
0480
1rl481
0 4e2.
ra48~"

0484*
0485.
0486
0487
0488
0489
049"
1rl491
0492
"'493
i:t494

0495
0496
"'497

INA

ADDRESS

TIME TO SESPEN01
NO, CONTINUE

AfH.R 10 WRIH:.S OF 40 FIL.f MARKS EACH, SUSPEND.
75524
75525
75526
75527
75530
75531
75532
75533
75534
75535
755 3 6
75537
75540
75541
75542
75543
75544
75545
70546
75547
75550
75551
75552
75553

064273
044354
060037
170001
006004
060CD31

170il01
006004
0 7 4043
104200

MI.,INK+!
.+1RTIM"'1L.INK
OPEDA+!
S,l
L.TEMP+1
B,l
OPEC
LTEMp+2

00~032

104400
100043
1°31°0
064273
044353
06 0 356
170601
"44347
06~762

170001
012124",,,,

170634
10211210
7ti554 12164273
75555 1601211211
75556 ",10273
75557 12116563
75560 1275tj1
75561 070;'62

8TF

LOS
LOA
SlA
JSB
JMP
OEF

ADURESS STORAGE

.ET L.OW PART AND

STASH IN TTY TABL.E

STORE
ALSO
FU.E
NAME
IN TTY

DST OPEC,1
eL.F
L.OB
ADS
L.DA
SlA
ACS
LOA
srA
CL.A
STA

.ET POINTER TO DISC

TAbL.E

0
OISA8L.E INTERRUPTS
MlINK+l
SET
PRIORITY
.+1 PlEV .... ?L.I NK
,+4
TO
a,I
4
• +1Rsn~ .. 1pl.EV SET
OP17P
RESTART
B,I
ADDRESS
aloCK
DCle1,1
CLOCK
ENA8~E INTERRUPTS
0
REMOVE.
MLINK+l
B,l
USER
-FROM Q
ML.INK+1
INSEQ
AND REINSERT HIM (OR HEtO
.+1,1
GO TO
SCHl
SCHEDUL.ER

OPEN WIL.l Sf RESTARTED HERE,
75562 12164273
75563 044341
75564 16121001
75~65 12170030
75566 044365
75567 1601211211
7557'1 07"'037
75571 00601214
75572 160WJIU
75573 07~12I31
75574 1210612104
75575 1042~0

opE17 LOti ML.INK+l

ADS
lOA
STA
AUB

I.TEMP
,+?RTIM.11D

LOA

B,l

STA
INS
LUA
8TA
IN8
OLD

,+?ID .. 1lINK

B,l

(fET
USER
10

OPEDA+1

GET lOW
WO~O UF CURRENT
DISC ADCRESS

8,1

i£T

LTEMP+l
8,1

FIL.E

NAME
BEING

~498

".99.
0b00

75576 100001
75577 1~4400
75600 0000J2

116005
002001
026226
064.,3'

0512

75601
75602
75603
75604
75605
75606
75607
75610
15611
75612
15613
75614
75615

Idb13

75616 074042

~b14

75617
75620
75621
75622
75623
75624

1d501
1d5ld2
1d503
~504

0505

0506
0507

0508
0509

0510
1d~11

0515
10516
1t)517
1d518
0519
.,520

05 2 1
10522

044354

160001
0102021
026226
044360

1600"1
070036
074043
.,44355

017630
027625
0341tl3f
017630
002001
026226
75625 007004
75626 074 0 41iJ
75627 027461S

0121.
0524 75630 .,00000
"525
1d526

0527
052 8
0 5 29

0530
0531

0532

0533
05 3 4
0535
0536
0531.
1153 ••
0539
0540
1t)541
1d542
0543

05 44
0545
11)546
1Il547
054tJ

75631 1°42 00

7563 2
75633
75634
75635
75636
75637
75640
15641
75642
75643
75644
75645

100W4J
017647'
002120
0276 45
1104200
100943
144042
002040
002004

01 7 64 7
0kJ2021
037630

75646 127630

750.7
7565'"
75651
75652
75653

000000
0°7 104
003 0 4 0
002004

000040

75654 044037
75655 00204e

75656 ","'2004
75657 040036
156614 127647

lNITIAL.IZEO

DIT L.TE;MP+2

OPE-18

JSB DL.OKP,I
RSS
JMP L.L.ENO
L.D8 L.TiMP+5
ADS ,+2
L.QA ",1
SSA,RSS
JMP L.L.EHD
ADe 1+6
LOA ",1
STA O'-EDA
STe OPEC
ADS ,+J
STa OPt.P
JIB OPERC
JMP 0'-£18
liZ OPEDA
JiB OPEfotC
RSS
JMP LL.ENO

eMe'INe

STi OPtF
JMP 0"(15

OPERe N()P
OLD OPEC,l
Ja8 oPtOS
CL.E,sSA
JMP OPElg
OLD OPEC,l

ADe OPE',I
sEZ
INA
JSB OPEDS
SSA,RSI
OPE 19 lSZ o-PERt
JMP OPERC,1
0"'E09 NOP

CMI;J,CL.E,INS
CMA,SEZ
INA
CL.f
ADa OPEDA+l
SEl
INA
AOA OPUU
JMP OPEO',I

CHECK FOR FIL.E'S EXISTENCE
IT'S THERE
IT'S _ONE' TERMINATE
(lET
WORl)
2

IS ,tT A FILf1
NO, TERMINATE
... DISC ADDRE.SS
sET TENTATIVE UPPER
WORD OF CURRENT DlS~ ADDRESS
SAVE DISC
ADDREsS AND
LENGTH POINTERS
CHEcK CU~RENT FOR IN RANGE
IT IS, PROCEED
TRY ONE HIGHER UPPER WORD
AiAIN CHECK FOR IN RANG~
"00 0
8AO, GIVE UP
GET REMAINING ~ECORD
COUNT AND 8TJRE
GO WRITE SOME FIL.E MARKS

GiT FIL.E START
9UISTRACT IT FROM CURRENT ADORES
IN RANGE?
NO, GO FAlL
GET fIL.E STIRT
CAL.CULATE DISC
AiJlJRESS OF Or~E
8EYOND FI~E END
SU8TRACT IT FROM CURRENT ADDRESS
IN RANGEl
NO, SUMP RETURN

NEGATE
A,S
CONTfNTS
AOI)

TO
UPEDA, 0'EOA+1
CUNTENTS

PAGE 0515 #44

OPEN

0~"i",

0550.
0551
0552
0553
0554
(0555
"556
0557
0558
0559
0500
k)b61
0562
056:,.
,,564
13~65

1r3566

0567

11421'
027710
026226

OPE13 EQU *
LOS OPEf
SZS,RSS
JMP L.L.ENO
SL.F,BL.F
eMe,INB
ST" MWORO
LOA OPE01
LOB L.IBD
JSB OISCZ,I
JMP OPE-DE
JMP LL.ENO

GET RECORDS ~~FT
IF NONE,
DON'T BOTHER
NUM8ER OF
1'40ROS TO
TRANSFER
WRITE
OUT TO
DISC
UNSUCCESSFUL- DISK TRANSfER
TERMINATE

75674
75675
75676
75677

12102400
170044
1721310
1327465

OPE14 CL.A
STA OPE~N,I
alA RKCYP,l
JMP OPEl5

ZERO L.ENGTH
ZERO DRUM AOORESS

757130
75701
757132
757133
757k)4
75705
75706
75707
75710
75710
75711

1300000

OPESB NOP
MPY ,+10

001211340
1340043
00612143
127700
0264;)0

7~712

026432

75661
75661
75662
75663
75664
75665
75666
75667
75670
75671
75672
75673

0641340
0060133
026226

005727
007~04

074215
06J76~
06456~

056.8.

0569
05713
"'571
0572
0573
0574

0575

0576
0577
0578
0579
0580
16581
0582

05.3.
0584
05i5

0586
0587
13588

75713
75714
75715
75716
75717
75720
75721
75722
75723
75724
75725
75726
75727
75730
75731
75732
75733
75734
157:54f
75735
75736
75737

1013200

BUILD NEW

~00J64

063761
067713
075714
005125
04712:5
052503
1341505
051523
043125
046073
020113
044fH4
04f6fJ4f0
041t)516

CL.E
NUMBER.
ADA OPEC
OVERFLOW CKfCK,
sEZ,SZ8,HSS
JMP OPESB,I
EXIT
JMP II-FER
OPEOE EQU *
LOA OM31
GET CHAHA~TER COUNT
L08 •• 2
ANI.) POJ.NT£R
JMP L.lbER
OfF "'.1
OCT 5125
ASC 15,NSUCCESSFUL., KIL.L ANO REPEAT,

042~40

0!:l1105
050105
040524
027040

OPES
06033a

067737
026.A32
075740

EQU ."
L.DA •• 16
L,oe *.2
JMP L1BER
Df.F

"'.1

PAGE k1516 .44
0589
0590

8591.
0592
0593
0594
0595
0596
0597
0598
0f)99

0600
0601
1(.)602
0603*
0604
0605
0606
0607.
0608
0609
1.1610

0611
1612*
16613
0614
0615
06 16
0617
1611.
0619
Irlb20
0621
0622
0623
0624
0625

75740
75741
75742
75743
75'44
75i45
75746
7'!J747

OPEN

0051164
k1!)2S2 0
046111
~4 U501
052105
020105
047124
0511 3 1

75750
75750
75751
75752
75753
75754
75755
75756
75757

063756
070"72
163763
06 .. 504
027773
154000
1770165
177 .. 77
757610 17773"
75761 177741

OCT 51""
ASC 7,UPL.ICATE ENTRY

OPE98 EQU
LUA
STA
LOA
LOa
JMf
M10K DEC
OM507 DEC
OM193 DEC
M4k)
!JEC
OM31 DEC

001640
OPEF
00041
OPU)F
OPEP
00042
OPEp Is REFERRE.D To
OPEC
00043
00044
O'ELN
OPEDU
00045
OPEDA
00036
75762
7576J
75764
75765
75766
75773
75773
75774
75775
7':;776
7":'777
76000

075562
072044
000036
000115
000125
016231
11601fS

•
OM&iJ7

SET Up OVt.RLAy

WOIlO
OPf't)V,I
·i.I~l

OPfOR
-1124(;
.607
-19J
.4~·

.31

EQU LTE,MP+8
EQU LT£.. '+9
E.IilU LTUtP+ 110
AS SAVP BY SupERIAVE (AND SAVE)
EQU L. T''''''11
E~ LT£"~+12

Eli" LTtfltP+1J

EQU L.TEM".6

OP17' OfF OPEl7
O"iOV D£F 1.~.cOMe.COM3
0"£.01 o&F

0'£0,

DALC. ofF DADLC
OALNA OfF DAOLN
OP~OR

~27000

027405
027262
SOfo/E

ORr.
JS8
JSS
JMP
J"'P
JMP
EQU

LI8"A+I) 16 7
ORUML
SU;KP, I

OUtM, DIE GRACEFULLY

LIBRA
OPt11

OPE12

•

NORMAL. RETURN.
f,RROR RETURN

PAGE 0517 #45
000~.

THE

~ENGTH

~ENGTH

COMMAND

CAUS~S

THE

~ENGTH

OF THE

U3~R'S

0003. 6E PRINTED ON THE USER'S CONSOLE,
0005
0006
0007
000t5

0009
0010
0011
0012
0013
16014
0015
0016
0017
001 8
16019

0020
0021

0022

0023
0024
0025
0026
0027.
0028
00 2 9
00316
00Jl
0032

0033
0034

0035
0036

0037
0038

0039
0040
0041
0042
0043
0044
0045

0046
0047
004~

004 9
I6050

80tH

0052

QRG LIBRA
JSB ROPRG
READ IN USER PROGRAM,
LOB ML.INK+l
ADa .+1PROG.1LINK
L.OA 1,1
wET POINTER TO END Of
STA ~TEMP
PROwRAM,
CPA PBUFF
1~ NULL PROGRAM GO TO PRINTOUT
JMP ~ENl
SEC110N.
Aoe ,+1FL.AG.?PROG
LOA 1,1
TEST FOH CO~PIL.EO.
AND CFt-..AG
SlA,RSS
JMP LEN1
USER NOT tOMPI~EO.
LOA SYMT6
USE SOURCE PROGRAM POINTER
RSS

75000

75000 016047
75001 ~64~i'3
75002 044340
75003 160~01
751604 (d70030
75005 05 0 702

75006 027016
75007
75010
75011
7e012
751613
75014
75015

044347
160001

010354
002003
027ft'1 6
06!515

002001
75"'16 060e130

LOA LTEMP
CMA

COMpUTE

75022 1602020

SSA

0v)240~

CLA

IF NEGATIVE,

75017 00J(d00
7502(0 041577
75021 0030013
75023

ADA SPROG
CMA

STA LTE.MP

75024 16700316

75025
75026
75027
75030
75031
75032
75033
75034
75035
75036
75037
15040
75041
75042
75043

060364

75~44
7~045

060~J2
04043~

75\tJ46
75{O47
75050
751d51
75052
75053

0161J2
060030
0341tJ31
027036
1360344
067055
026432

75~54

LOA ,+128
JSB LOUT
LOA ,-2
STA LTEMP+1
~OA L.TEMP
CL6

016132
000350
070~31
060~3k:l

0064"'16
100 4 00
1300437
0740;'1tJ
006400
100400
000364
074032
040432

~ENijTH

OUTPUT LINE FEED,
SET COUNTt:.R.
GET FIRST 2 DIGITS IN A.
~AST 2 IN B.

8T6 L.Tt,MP

LEN2

cLB

DIY ,+10

(If.T 2 0IGIT2.

STB L.TEMP+2

ADA ,+6108

JSB LOUT
L.DA LTEMP+2
ADA .+6kiB
JSB LOUT
LOA LTEMP
ISZ ~Tf.MP+1
JMP LEN2
LOA ,.6
LUb .+2

JMP Llt)ER

OfF *+1
ASC :5, WORDS

$L.EN

EQU •

IN WOROS.

SET TO ZERO

01V .100

~161J2

7505b 1375~5b
75056 020~27
75057 (,:147522
75061{) 04212J
75001

PROGRAM TO

PRINT 1ST

PRINT
2ND,
GET 2ND PAIR,
TEST FOR DuNE,

PRINT" WQRL>H",

PAGE 0518 #45

EtHU

''':J~4*

THE ECHO

0060
0061
0062
10063
0064
0065
0066
0067
0068
0069
0070
0071
0072
""'73
0074
007S
0076
0077
0078
0079
0080
1d081
0082
0083
0084
0085*
0086
kHd87
0088
0089
id090
0",91

75000
75000
75001
75002
7500J
75004
75005
75006
75007
75010
75011
75012
75013
75014
75015
75016
75017
75020
75021
75022
75023
75024
75025
75026
75027

060234
070030
01616 ..
002001
026430

75030
75031
75032
75033
75034
75"'35

06427J
044336
16001131
id30ftJJ0
114500
026226

tOMMA~O

IS USEO TO TtLL TH! SYSTEM WHEnfER A TELETYPE

0055. IS FULL DUPLEX OR HALF DuPLtX. TVP1N&
E.CHO-OFF
SAYS HAL~ OVPLtX.
"056*
0151* AN'D
EtHO-ON
005S·
SAYS FULL DUPLEX.

i8~2*

009 3
0094
0095
0096

LIBRA
LeMAR
IL-F£R

01616"
026430
12153040

ORG
JaB
JMP
CPA

0~a001

tl(S8

026430
01616"
02(4311)
053036
02711323
1d5311337
002001
026430
01616 ..
026430
05J0J7
002001
026430
06023e

JMP lL~E.R
JSB L.CHAR
JMP IL.F£R

0020~1

75 0 36 000116
75037 000106
75040 000117
75041

CPA
JMP
CPA
RSS
JMP
JSB

TEIT FOR

ECH'N
ECH'-

ECHO

St.eM

CHARACTER O.

EtHQ

ECHN

FAlL,
GET NEXT ~HARACTER,
FAIL IF NONt,
TEST FOR N.

ECHI
EeHF

T£ST

FOR f,

IL.FER
LCMAR
JMP IL.FER
C" ECMF

FAIL IF NOT.

L.DA ECF
NIl
LOA fCO
STA L.T£..,
JIB I.C~N
RS.

sET ECHO OfF

TEST FOR F,

RSS
JM' II.FiR

[CHl

FI~8T

SET ECtiO ON
TEST fON CR.

JMP

ll.'i~

L.DB
ADB
L.DA
lOR
JSI
JM,

..,L. h,lC+ 1

.+tT~1\'lNK
~£ND

2."

LTE",

$l~S(,

L.LlHO

11.

OCT
OCT 1"
oCT 117
E.Ii1U *

I

£~MO

TO 2114

,,"98*
k'1rJ99*
k'100*
0101*
IcH02*
0103*
0104*
010 5*
0106.

0117*
0108*

THE MESSAGE COMMAND IS USED TO SEND • ~ESSAGE TO
THE SYSTEM CONSOLE. TME PORT NUMBeR Of TNE REQUESTING
uSER IS ALSO OUTPUT. If THE MESSAGE QUEUE IS FULL AT
THE TIME of THE REQUEST, THEN THE USER IS iNFORMED
AND HIS MESSAGE IS IGNORED. IF NOT, IT 1S PLACED ON
THE QUEUE, A MESSAGE MORE THAN 68 CHARACtERS LONG WILL
BE TRUNCATEO. EACH MESSAGE FITS IN A J9 WORD ~UFfER
WHOSE FORMAT ISa
cLENGTH>cPORT><

>

01"9.

"'11 0
0111
0112
0113
0114
0115
011 6
0117
0118
0119
0120
fd121
0122
0123

7500"
75000
75001
75002
75003
75004
75005
7 500 6
75007
75010
75011
7!S012
75013
75014

0(;;0306
040350
002021
027071
060310
002004
0666 55
174000
002004
073121
060273
040336
160000
001727
00b400
10040k'
000364
001727
030001
03°574
173121
037121
06061",
173121
067121
006004
005200
077121
060360

1.1124

75~H)

°125

75016
75017
75020
75021
75022
75 02 3
75024
75025
75026
75027
75030
75031
75032
75033
75034
75 0 35 07312~
75036 0024"'"
75037 072202

1.1126
01 2 7
0128
"'129
0130
10131
Ic)132
"'133
~134

fd135
0136
0137
1d138
13 13 9
01 40
01 41
014 2
0143
0144
1d145
0146

1.1147
014U~

10149

0150
0151

ORG LIBRA
LOA MSWCT
Is THE MESSAGE QuEUE
ADA , .. 2
ALREAOY FUlL?
SSA,RSS
JMP MESS1
YES, TELL USfR
LOA MSQP3
,> NEXT AVAILA~LE BUFfER
INA
PUT CR Lf INTO
THE. MESSA~E BUFFER
Loa CRLF
aTB A,I
INA
STA MSQP2
SET POINTER
LDA MLINK+1
GET THE USER NUMBER
AUA .+?TNUM~1LINK
LOA A,l
INTO THE A REGISTER
AL.f,ALr
SET UP fOR AND
CLB
DIVIDE:. tsY YEN
OIV .+10
AL.F,ALF

CONVERT TO ASCII

lOR
STA
ISZ
LOA
STA

STORE INTO !:SUFFER
ADVANCE POlNTER

lOR B

Loa

ASC00
MSQP2,I
MSQP2
ASCSB
MSlIlP2,1
MSQP2

8TB

MSQP2

INB
RBL

75042 067122

LOA
STA
CLA
5TA
JaB
JMP
r-tE.SS2 EQU
L.OB

~57120

CP~

75~40 1d16~64

7!>041 027066
75042
75 0 4 3
75044
75045
75040
75047
75050

2127051
017104
016164
027051
0271042

(lET TWO tsL.ANKS
AND PLA~E IN THE aUFFlR
TURN BUFFEP FOINTER
INTO
A CHARACTER POINTtR

,+6

MSS(;r

SET CHARAr.TlR COUNT

L.CHR2
L.CHAR
MESER
•
.,74

PREVENT tsLANK SUPPRESSION
GET A CHARACTER
EMPTY MESSAGE IS AN ~RROR

MaseT

JMP MESS4
JS8 MES(;H
JStJ LCHAR
JMP ME5S4
JMP MESS2

15 THE MESSAGE. TOO LONG1
YES, TRUNCAie HERE
STOMtCHARACT£R INTO ~Uf'EH
GET ANOTHER CHARACTER
CR SEZ END OF MESSAGl
NO, PUT l~lS CMARACT~R INTO BUff

pAGE 0520 .45
8152*

0153
0154
0155
0156
IrH07
~158

0159
0160
01t>1

0162
~16J

016 ..
0165
0166
",67.
0168
.,169
0170
0171
(1172.
10173
0174
0115
0176
0177*
0178
0179
0180

150S1
75051
7SeS2
75053
75054
75055
75016
75057
7506(d
75061
7 5 062
75063
75064
75065

MESSAG~

riJ611J64
0111"4
06312"

170110
061117
07621112
0343i.16
064310
0.. 4421
054311
064312
1IJ74l10
026226

MESS .. EQU
LOA
JSi
LOA
STA
LIJB
STa
lSI

*.... 121
MaltT
MSCW3,1

ME.Wi<

MSQ<;T

UJ8 MIGI'l
A~8 •• M£I"'N
CPI MSiNO
L08 MS,*,
ST8 MSWP3
JMP lL.ENU

MtSER EQU
*
LOB MESNK
STI LCMR2
JMP ILFfR

7 5 071
75071 0603J4
75072 067074
75073 026 .. 32

Mt-iS 1 flU *
LOA .-14

1if7S075
1305103
0 .. 7516
£151517
046105
.,20102
052'23
064 .... .,

IU81.

:SET CHARACTER C.OUNT
INTO SUFFER
RESTOR!: LeHAR

LeMR2

75066
75066 067117
75067 076202
7507£1 02643'"

75074
75175
75076
75077
75100
15101
75UD2
15103

Lf

KUCH

INCREMENT THE MESSAGE CUUNTfR
ADVANCE POINTER
FOH

THE
EXIT

NEXT
MES8AGf

fIX LCHAR AND
GIVE ERHOR EXIT

LDI *.2

JMP LI8EIt
t>f' *.1
OCT 51 (I.J
Ale 6 , ()tt SOl.. t. ltUSY

THIS ROUTINE PUTS l~OIVU>ijAL CHARACTERS INTO THE SUFfER
0182*
0183.
0184 75104 0000"0 MESC~ ,.OP
LOAD THE BUFFER POINTER
LDe MSQP2
01 8 5 7511ci5 ~67121
.,186 75H16 ~04fi:'l65
CLE,ERb
TU~N INTO WORD POINTER
IKIp
IF LOWfR CHARACTER
~187
75107 002i41
siZ,R~'
CHA~ACTER
TO LEFT
0188 75110 01'61727
AL.F,AL.'
10189 75111 002040
S~IP
IF
UPPER
C~ARACTfR
SEZ
0190 75112 130001
OM IN UPPfR C~ARACTER
lUIit 8,1
ITORE CHARACTER (8)
0191 7~H 13 178001
STA 8,1
MSQ,t
ADVANCE CHARACTEH POINTER
7511~
0192
037121
ISZ
1d19J 75115 037120
M88(;T
lSZ
INCRE.MENT COUNT
0194 75116 12710 ..
~ETUMN
JMP I"'ESC4'f,l
01'0*
"19 6 75117 112617~ MEilli1< JMP LcwtH
tU97 15120 0t"'''8'' MSSCT bSS 1
019S 7!5121
MSwP2 ttl' 1
,,74 DEC 14
0199 75122 f"",e1l2
e2~
7512J
'~fS
iYU •

0"""8"

0202.
021213.
0204*
0205.
0207
121208
0209
0210
0211
0212
0213
121214
0215
0216
0217
0218
1212Ul.
022121
0221
0222
121223
0224
0225
0226
0227
0228
0229
0230
0231
0232
0233
0234
0235
0236
0237
0238
0239

162.,.

THE ~PRINTER COMMAND IS USED TO REQUEST
PRINTER. THE FORMAT 181
LPRINTER-'CHARACTER STRING)
75000
75000
75001
75002
75003
75004
75005
751306
750137
7512110
75011
75012

060273
12140336
070030
060255
1210200J
12127013
0501213121
002/DIt)1
12127031
07121256
12126226

75~U 3
75fd14
75015
75016
75017
7512120
15021
75022
75023
75024
75025
75026
75027
75030
75031
75032
75",33
7512134
75035
75036

160030
030246
114500
102"11
027016
102511
002003
02712134
002020
026430
06121030
070255
07121256
026226
060341
067037
026432
06121327
067045
026.t32

75037
75040
7512141
75k')44
75045
75046
75047
75057

07512140
12105 it4
050040
1211216400
0 7 5046
005114
05012140

0243

0244

0245
0246
fd247
0248
0249
025121
",251
0252

000310
7512160

1210640~

USE Of THE LlNE

ORG
LOA
AOA
STA

LIBRA
MLINK+l
GET TTV. ADDRESS
,+1TNUM-?LINK
PRITY
SAVE IT
~OA PRIST
GET LP INDI(;ATOR
SZA,RSS
~P 8USY1
JMP L.PRl
NO
CPA PRITY
YES. DOES USER
RSS
HAVE LP1
.IMP L.PR2
NO
STA LFLAG
yES. SET LPR COMMANC fL.'
.IMP LLENO
TERMINATE
LPR l

LOA PRITY,I
lOR LP~
J56 S148(;,1

.-1

LPR2
LPR3

121241

0242

TH~

LPMl

Sf'S CH2
JMP
L1A CH2
SZA,R8S
JMp LPRJ
SSA
JMP ILFER
LOA PRITY
BTA PRIST
STA l.FLAG
JMP LLEND
LOA ... ~
LU~ l.PM1
JMP LIBf.R
LOA •• 1~
LOB L.PM2
JMP LIBE~

'iET TTY.
ADO ope ODE
TELL 1/0 PROCESSOR
AND WAlT FOR
RESPONSE
aET RESPONSE
010 USER GET LP1
NO .. NOT AVAILABLE
NO • HEADING TOO LONG
YES. GET TTY# ADDRESS
AND SET LP INDICATOR
8ET LPR COMMAND FLAG
TERMINATE
LP 8USY

SUP

DEI' .... 1

OCT
Ale;
OCT
LPM2 OfF
OCT
ASC
OCT
UNS
PRITY EQU
SLpR EgU

5114
3,p BUSY
6401rJ

.+1
5114

8,P NoT AVAILABLE
6"00

l.TEMP
.,

PAGE
"'254.
0255 •

~522

*45

PORT" USER CONIO'L.E.

THIS COMMA NO GIVES A PRINT OUT O~ THE BAUD RATE &
CHAR. SIZE FOR WHICH TH£ po«T IS COHFlwURED,

.,256*
0257.
",258.
0259.
0260*

0261*
117262.
i26J*

THE DATA

~RINTED

IS.

PORT NR.

ijAUD RATE
CHAR, SIZE

FORMAT.

"'26~ •

.,265*
0266*
"267.

0268
0269
0270

0271
0272
0273

0274
0275
"'276

0277

02715
0279

OR. LIINA

75000
75000 064273
75001 ~44341
7~1d02 160001
75003 050612
75004 027023
75005 060;,)27
75006 067010
75007 026432
75010 075''11
75011 0iJ5120
75012 05111 J

Loe MLIHK"'l

ADS .... 'IO.lI.1NK

LOA
CPA
JMP
LOA
LOB
JMP
DE"
OCT
Ase

6,1

wET 10.

UPUI

yES,
NO. NOT ALLOWED'

A0"~

.-1'
•• 2

Ai8~1

LIIER
.... 1
5120

9,RIVILEGED COMMAND

75013 053111

75014
75015
75016
75017

117280
.-J281
0282

",283
0284
0285

",286

046105
04J!515
0-42040
041517
75020 1It46515
75021 041516
15122 04a14'
75023
751d23 002400
751024 070830
75025 07~0Jl
75026 070032
75027 070034
75030 06tH 77

0288
0289
0290
0291
0292

7S11731
750312
75033
75 0 34
75035
751d36

~293

75036 017J20

0294

7e037
75037 0173l'"
7!504e 0161e4
75041 027045

0287

0295
0296

11'297
0298
13299
0J09

07013J
016164
026430
053~22

027062

UPOII

EQU •
Cl.A
STA LTEfIW'
STA LT£"P"'l
STA LTEMP.2
SlA UpoC1

LQA
STA
JaB
JMP
CPA

NPO~T

UPOCN
l.CHAR
ILFER
UPO,A
JI#' UP04
upOHS EQU •
JsB UPOD'
UPul EQU
JSB U,.OS¥

•

JI8

LC~H

75"'~2

050~26

7~04J

Y020il

JMf' UPOJ
CflJA .+'48
RSI

759,U 027016

.1M' U'Oll

SiT UP LIMIT,
GET CHARACTER,
CRt l:.RROR,
NO CR. ,,"A"?
YEa,
NU, 01(;IT1
YES, COMPUTE PONT
&1T tHARACTiR,
CRt

NO CR. COMMA1

yEa.
NO,

PAGE 16523 .45
0301
03 0 2
0303
0304
0305
03"6
0307*
030a.
0309
0310
0311
0312
0313
0314
0315
0316
e317.

75045
75045
75046
75047
75050
75051
75052
75 0 5 3
75054
75055
75056
75057
75060
75 0 6 1

PORT • USER
Uf"03

0600J4
04~0J3

0162"21

026430
1617256
06026b
05 0 367
027110
0024fe]0
070034
016164
027'110

16328

0329
0330
{6331
0332
03303
0334
0335
VJ336

16337

0338
0339
03 4 0
0341
0342
0343*
0344
0345
0346
0347

0348

75 0 62
75 0 62
75063
75064
751665
75066
75067
75070
75071
75072
75ld73
75074
75075
75076
75077
751""
7 5 1"0
75101
75102
75103
75104
75 10 0
75106
75107

027~J6

75110
75110
75111
75112
75113
75114
751 if>
75 116
75117
75120

UP04

016164
026430
053423
0021601

0264316

016164
026430
05J423
002001
026430
016164
0162001
026430
002400
07 ((HlIl""
0400033
002021
0~711 {6
011256
06 003 4
002004
027100
017340
00504 0
05"'117
051124
020040
020040
0 4 1101

852084

020122
0405241
75122 042440
7~121

EQU *
LOA UPOCl
AOA UPOCN
aSA,RSS
JMP lLFER
JSB UPOIN
LOA
CPA
JMP
tLA
STA
JSB
JMP
JMP

131ft.

0319
032 0
0321
0322
0323
0324
id325
0326
0327

CO~SOLE,

LCHCR

CHECK LEGALITY,
~

LIMIT?
YES,· ERROR.
NO, ~ET INDICATOR,

,+15t.i

UP05

PICK UP LAST CHAR,
WAS ·IT A CR?
YES, GIVE THE INFORMATION,

UPotl
LCHAR
UP05
UP0 15

NO, wET NEXT CHARACTER.
tR, wIVE THE INFOHMATION.
NO CH,

•

EIiIU
COMMAND FOR ALL PORTS GIVE.N,
JSB L.CHAR
GET NEXT CHAR
JMP IL.FER
CR, ERROR,
CPA UPO,L
NO CR, '"1.."1
RSS
JMP lLFER
NO ERROR,
JSB LCHAR
YEA, {fET NEXT CHAR,
JMP lLFER
CR, ERRORA
CPA UPO,L
-"L"1
RSS
NO. ERROR.
JMP IL.FER
JSB L.CHAR
YES, IIET N~XT CHAR,
RSS
JMP lL.FER
NO CH, f.RRO~.
CR,
tLA
UP018 EQU
STA UPOCl
AOA UPOCN
~L.IMIT?
SSA,RSS
YES,
JMP UP05
JS~ UPOIN
NO. SET INDICATOR,
BUMP PORT NH,
LOA UPOC1
INA
JMP UP018
GIVE THE INFORMATION,
UP05 EQU *
PRINT HEAOING,
JSB UPOPR
LF-SPACE
O'T 5040
ASC 4,PORT

•

ASC 6,SAUO RATE

PAGE 0et24 *45

1(1349

1d350
0351
0352
0353
kl354
"'355
0356
0351
0358
0359
0360
0361
roJ62
"'363
0364
",365
0366
0367
036t)
0369
0370
0371
0372
1d373

1374.
0375
0376
"377
0378
rd37~

e380
0381
0382
0383
rdJ84
0385
0386
1d387

038t)
10389
rd39i:1
0391
0392
0393

75123
75124
15125
15126
75127
75130
75131
15132
75133
75134
75135
75136
75136
75137
75140
75141
75142
75143
15144
75145
15146
75147
15150
75151
15152
151153
75154
15155

PORt ..

US£~

02004.,

Ase s,tHAJol, SIZE

0~41510

040522
027e48
O51511
055105
0~6412

OtT
otT
Ja8
JH

0000f;H'J
011400
116t123
017411
i:l6,,,32

lW06

05~37a

027151
0"'64litiJ
0600310
00001~

12106iH114
kHcU31210
12170030
00680J
027 U55
.,112ill
0114Gt0

t..D~ lTlfItf'+2
CPA ,+&6
Jr-tP UP014
CL.B
I.OA t..TEMP
Sl.A
INS

JMP

ae

J
ICH:QU, I
Jle UPTav

ll&e2J

UPQ16

Ef.iU *

liZ L.T~"'+2
Jf1'P U'{M

75156 021136
IJPUt~

lQU

06".,»
05 e 4 12
026226
0064811f
06{1831
00001 ii

uu

006"e~

INS

~

R~R

S • t..Ti...... l

070031

alS,"'.

006"J
021176
0112°0
121 1741tJ0
116023
017411

J'"
J.

J~ UPT~V

7520~

0Ne.",
01734~

1521d2

{cl2~e~0

tJ'Q,

DONE1

YfS.

CLEAR (8) AND GET
LOWER INDICATOR,
t:tlT SET?
YES, BUMP (8),
ROTATE RIGHT"
RESTORE INDICATOR,
IF 81T-0, JUMP,
oltiER"ISE SET UP SUFf'ER
AND PRINT,
SAVE VARIA~LES.
aUIP£ND,
R£TRIEVE VARIA8lES,
ktUf4P tOUNTER,
GO SACK ..

L>ONt.1

YIS, GET OUT

CLEAR (B) AND b~T
U'PER IN01CA1U~,
81T sETl
y£., 8UMP (til,
ROT.TE RlbHT,
R£STORE INDICATOR.
If' 8IT-I, JUMP,
OTKERIIIIS£ SET UP iUFFER
AND PRINT.
8AVi VARIABLES w
SUSPEND.
H£THl~vE VARIABLEs,

l$Z

•L.T£~+2

J""

UP014

YUHP COUNTER,
GO t:tACK,

UftO~

B\..AHI(.SL.ANK

lWo17 EQU

75201

~'''7

Ul'O,

J9i VfJTIV
JH SCHOU, 1

034"12
027157

SAVf. VARIABLES"
SUSPiND,
RETRIEVE VAHIABLES.

•

L. T'tM..-1
CPA .+32
JKP L.L.lKO
C4A
L.a. L. T£"'.1

00130.,

0395*

UP~J5

Jt8 Ult07
JSB UPTIV

017411

tR-L.F

EQU *

R~

8394*

1/1396
1/1397
flS39tS

6412
0
UPTIV
Stt10U,1
Jail UPTRY

STAL. TfIItP
8Z8,RS8

7515b I/IJ4iJl2

75157
75151
75161iJ
75161
75162
75163
75164
75155
75166
75167
75170
15171
75172
75173
75174
75175
75176
75176
75177

CO"S()\..E,

NaI"

JII
geT

a.4e

PAGE 0525 #45

PORl

16399

75203 0160000

0400
0401
0402
0403
0404
0405
1d406

75204 060412
752145 016132
752166 060032
75207 017354
75210
75210 ~H7J40
75211 020040
75212 020040
75213 02e040
75214 000~00
75215 060032
75216 0161727
75217 032715
75220 114500
75221 102311
75222 027221

0407
1640ij
0409
0410
0411
0412
0413
0414
0415
0416
0417

0418
0419
0420
0421
0422
0423
0424
1d425
0426
0427
0428
0429
0430
0431
0 4 32
0433
0434
".3e
0 4 36
0437
0438
0"3~*

0440.
0441
0442
0443
0444
0445
0446
0447

75223 1162511

75224
75225
75226
75227
75230
75231
75232
75233
75234
75235
75236
75237
75240
75241
75242
75243
75244
75245
75246
75247
75247
75250
75251
75251
7e2e2
75253
75254
75255
75256
75257
75260
75261
75262
75263
75264

017371
017340
020040

~

USER

UP09

CONSO~t,

oCT "
LOA .... 40B
JSe L.OUT
LOA I..TEMP"'2
JSij UP020
EQU.

JSB UPOPR
ASC 3,
OCT 0
LOA L.TEMP+~
AL.F,ALf
lOR WSP
J56 S148C,1
SPS CH2
JMP
l.IA CH2
JSB UPOJO

.·1

JSB UPOPH
ASC 5,

BL.ANK
GET PORT NR,
OUTPUT PORT NH.
P~INT

6 SI..ANKS,

GET PORT NR.
ROTATE,
MERGE WITH OPCODE,
ASK FOR BA~D RATE,

GET BAUD RATE,
OUTPUT ~AUO RATE.
OUTPUT 10 BL.ANKS,

02~040

020'a40
0200~~

020040
0000160
060032
001727
0J0252
114e0~'

102311
027240
102511
002003
027247
01736;'
027251
060424
016132
060367
116132
,,60364
016132
127201d
00000~

060034
064001d
005323
005323
00"01~

040332

OCT 0
LOA LTt:'MP ... 2
Al.F,ALF
lOR WCS
JSB S14SC,1
SFS CH2
JMP .... 1
L.IA CH2
SZA,RS8
JMP UP012
JSB UPDOG
JMP UP013
UP01~ EWU ..
LOA .+4~
JS8 l.OUT
UP013 EgU •
L.UA .... loB
JSa L.OUl
L.OA .+12tt
JSB LOUT
JMP UP07,l
UPOIN NUP
LOA UPOC1
L.OB A
RBR,RBR

GET PORT NR.
ROTATE,
ASK fOR

CHA~

SIZE.

GET CHAR.SIZf.
a01

YES.
NO, PRINT IT,
PRINT ".".

RETURN,
SETS PORT SIT IN INDICATOR.
AaPORT.
8wPOHT#
ROTATE alT'~ INTO 8IT.0.

RBR,RB~

SL.B
ADA ,-16

PORHI~

151

YES, MAKE PORT. fROM 0-15,

PAGE.
0448
0449
kl450
0451
kl452
1t)453
0454
kl455
fd456
kl457
045ti
0459
0460
0461
0462*
",463
0464
1fJ465
0466
1I:l467
fd468
fd469
1d0470
0471
1fJ .. 72
1fJ473
0474
fd475
0476
" .. 77
~478

~526

7526~

75266
15267
75271fJ
75271
75272
75213
75 2 7 3
75274
75275
75276
75277
753011:l
75300
75301
75J02
75302
75303
75311:l4
75305
75306
75307
75307
75310
75311
75312
15313
75314
75315
7531b
75316
75317

t#45

PORT .. USER CONSOLE,

00301i'14
070036
060030
0040lkl
060VJ31
064036
006003
021300
001300
0td6004
fd27273
030353
064036
0f0600J
027307
0f01200
0fdb004
027302
06""34
005323
005323
01d4010
027316
070030

CMA,INA
SrA UPCCN
LOA LTEI1P
aLB
LDA L1EMP+l
LOB UPCCN
UPON1 EQU *
SZ8,RSS
JMP UPON2
RAR
INS
JMP UPON!
UPOH2 EWU
lOR ,+1

•

loDe UPCCN
U*"QNJ EQU •
SZ8,RSS
JMP UPON"
RAL
INS
JMp UpON3
UPON4 EQU •
loDe VPOCl
HBR,R8H
k8~,ReR

SL8
JMP UPO~5
STA LoTEMP
R&S

~0~001

0479
1I:l70031
1I:l480
1272156
0481.
111482.
0 .. 83 753211:l 000000
048 .. 75321 040316
~485
75322 002~21
~486
7 5323 1d26430
0487 7b324 0 4 0364
0488 75325 1fJ02020
0489 75326 026 .. 30
0490 75327 127320
0491*
0492*
0493 75330 000~"0
0494 7bJ31 070035
0495 75JJ2 06ild34
0496 75333 100200
75334 00036'0 497 7!S335 0 41).,35
0498 75336 01003'0499 75337 127J3fd

UPUN5

E(W

UPODG N(JP
AOA Ml~
SS.,RSS
JMP ILFt.R
ADA .+10
SSA

JMP' ILf£M
JMP UPoOG,l

UPOSP NOP
STA UpOC2
LDA UPfJCl
MPY

,.11'

ADA u'OCz
STA

UpOCl

J~

UPOSP, I

1081h

0!S01.

•

srA LTEM'+l
JMp UpOIN,I

UPOPR OUTPUTI A STRIN(f,

NO, Nf.GATE,
SET UP COUNTER,
A-LOWER INOIVATOR,
UppER OR LOWER pORT?
UPPER,
61COUrHEH,
DONE?
YES,
NO, ROTAT£ Rl'HT,
8UMp CoUNrEH,
(f0 dACK,
SET tUT,
ij-COUNTER,
oONE'1
YES,
NO, ROTATE. LEFT,
SUMP COUNTER,
GO tUCK.

UPPER OR L.OWER POHT?
LOWER, STORE IN LOwER lrmIC;,
UPP~~,

STORE IN UPPER INDIC,

EXIT,

DI(flT1
NO, ERRO~,
P4AY 8E,
EfitROR,
RETURN.

SAVt. (A).
UPDATt.
PORT
NUMBER.

PAGE 0527 #45
0002*
ro503
0504
0505
0506
0507
0508
0~09

PORT • USER

75340 000~00
75341 163340
75342 002003
75343 121340
7~344 001727
75345 010443
7~J46 016132
75347 163340
75350 010443
75351 016132
75352 037340
75353 1d27l41

CONSO~E.

UPOPR NOP
LOA UPOPR,I
SlA,RSS
JMP UPOPR,l
AL.F,AL.F
AND B377
JSB L.OUT
L.DA UPOPR,l
~ND B377
JSij ~OUT
ISZ UPOPR
JMP UPOPR+l

0510
0511
0512
1t151J
13 5 14
0'"'.
",516* UPD;iO PRINTS A 2.DIGI.T
051,.
0518 75354 0000011 UPD20 NOP
0519 75355 006400
CL.S
DIY
0520 75356 100 4 00
75351 000364
JSB
0521 15360 011363
0522 75361 011363
JaB
0523 75362 127354
JMP
0524.
0525· UPDOG PRINTS A DIGIT,
0526.
0527 75363 000000 UPDOi Nap
0528 75364 0740<40
aTa
0529 75365 ,,<4.,4J2
AUA
0530 75366 016132
JSB
LOA
0531 75367 060040
0532 75370 127363
JMP
0533.
0534*
1t1535* UP030 OUTPUTS A 3.01GIT
0536*
10537 75371 00o",o0 UPo30 Nap
CL.ij
0 53 8 75372 006<400
01V
0 5 39 75373 10a400
75374 0160437
J$S
75375
0540
01 7 363
,JSB
0541 75J76 017354
JMp
0542 75377 127371
054J*
0544*
0545. UPTSV SAVES VARIABL.ES,
"0<46.
IIH547 75<400 0000013 UPTSY NOP
0548 75401 064273
LOB
0549 75402 044355
Aoa
ST8
0550 75403 074051
0551 75404 0645a0
LOB
8T6
0552 75 40 5 07 40 e 0
LOB
0553 7540 6 064347
JSB
16554 75407 016257

END Of STRING?
YES, RETURN.
NO, QUTPUT
Lt.FT
tHAHAtTER.
OUTPUT
RIgHT
CHAHACTER,
&ET NEXT WO~O.

NR,

.+h'I

UPDOG
UPDOG
UPo20,1

LTEMP+8
.+6"'6
~OUT

L.TEMP+8
UPODG,l
NUMBER,

,100
UPOOG
UP020
UpDJO,l

OUTPUT flHST DIGIT.
OUTPUT l..A$T TWO,

Ml..INK+l
.+1TEMP .. ?L.INK
MOVED
DL.lEM
MOVES

,.3

MOVt:.W

~AGt.

1()528 1145

PORT - USE:.R CONSOL.E,

0555 7541" 12140~
0056.
~557·

JMP UPTSV,l

UPTRV RESTORES VARIABL.ES,

IIt55 ••

0559
~560

0561
k)562
0563
10564
k)565
1O~66

1i1567
0568.
0569.
,,571.
0571
13572
10573
13574
0575
0576
0577

75411
75412
75413
75414
75415
75416
75417
75420
75421

000000

7541122 0001°1
75423 01313114
tf)~03J

001334
000J5
1i10036
75424

U~TRV

064213
044355
074050
0641152'"
074 0 51
06411J47
1316257
127411

UPO.A
UPO,L.
lJPOCN
UPOCl
UPOt2
UPCCN
SPORS

NOP
LDB
ADS
.STB
LOS
STB
LDS
JSB
JMP

OCT
OCT
EQU
Er.HJ
EQU
EQU
EgU

ML.INI<+l
,+1TEMP"?L.INK
MOVES

D&.lEM

MOVED
.,,;,
MOVEW
UPTRV,l

1°1
114

L.TEMP+J
LTE;MP+4
LTEMP+5
L.TEMP+6

*

-A.
-L.,

PAGE 0529 .45

REPORT. SYSTEM CONSOLE

THE REPORT COMMAND CAUSES lOT INFO TO BE ~ISTED ON THE SYSTtM
TELETYPE, EACH USER 10 IS ~lSTED, ALON. WITH THE OISC AND TIME
0581* USED TO OAT~. DISC STORAGE IS LISTED IN WORDS, AND TIMt IS LISTED
0582* IN MINUTES,
~579*

058~*

0~84
~585

0586
0587
0588
",589
0590
0591
0592
i)~9J

0594
0595
0596
105 9 7
0598
0599*
0600
1d601
0602
0603
0604
0605
0606
060 7
0608
0609
0610
0611
0612
0613
0614
0615
0616
0617
0618
0619
i6.20

0621
0622
0 6 23
0624
0625
16626
062 7
06 2 8
0629
06 30
0631
10632

15000
15000
75001
75002
75003
75004
75005
75006
15007
75010
15011
75011
75012
75013
75014

072654
116021
016213

75015
75016
75017
75020
75021
75022
1511!l2J
75 024
75025
75026

062654
070052
060305
070051
063267
070050
067333
fU 6 257
016310
060076

04005~

070054
016315
026275
H~PNI
060~52

7~021

75021
750J0
75031
75032
75033
75033
75034
75035
75036

072653
164000
006002
021037
053325
027072
040355
021027

75137
75037
15040
75 0 4 1
751d42
75043
15044
75045
15046
751d47
75050
75051
7505 2

ORG l.IBRA

002404
070052
114512
027011
003400

074072
062653
0 4 03151
160000
064566
016231
116015
064072
007004
04"'56 2
074030
10643562

CLA,INA
SrA 10
JS6 TJ5(;H,l
.IMP REPNI
CCA
ADA TJ5CP
STA T35CP
JS8 GETID
JMP LFRER
EQU •
LOA 10
STA REPLN
JSB HDBrA,l
J5b TJ5SP
LOA
STA
I.OA
SrA
LOA
STA
LOS
JSB

REPI...N
10
T3581

MOYEo
REPHD
MOyES
REP2P
MovEw

START WITH 10 OF 1 " 1
IN CASE WE DON'T GO TO ~ETIO
SEE WHAT FIRST CHARA~TER IS
CR • • STAR, AT B~GINNING
A • -1

MOVt BACK SUFFER POINTER
GET STARTING 10 CODE
SHOUL.O END WITH CR
SAVE 10
IN SUFFER
PRINY Ht::A01NG
ANO SUSPEND
R~STORE

11)

PRINT
BUFFER,

TO

Jsa GrlL.

FINO WHAT THACK IT'S ON
GET POINTER TO LENGTH WORp

sza

SAVE LIVE IABL.E ENTRY
GET THIS TRACKS LENGTH
SKIP IF TRACK EMPTY
GOOl) TRACK.
GO

LOA IOLNP
REPAB EQU *
STA REPPT
LOS A,I
JMP
Rt:.PSG EQU
CpA
.IMP
ADA
.IMP
RiPA' £QU
ST6
LOA
ADA
LDA
LOB
JSB
JS6
LOB

REPAF
..
RIOCL
REPS
,+:3
RfPAB
..
WORD
REPPT

,-1

A,l
L16DI
DRUML
SlCKP,I
WORD

L.AST 10 TRACK?
yES, EMPTY 10 TABLE
ADVANCE TO NEXT tNTRY
SAVE ACTUAL LENGTH
GET DRUM AODRESS
READ IT IN

CAN'T, orE GRACEFULI.Y

CM~,lNB

AD6 L.IBO
STB REPBF
LOb LIBO

MAKE POINTER TO LAST ENTRY+l

PAGE
"'633
0634
0635
13636
"-1637
0638
0639

,,6.'
16641

0642
16643

"-1644
0645
0646
0647
16648
".~i

0650
10651
0652
0653

~5~~

75053
75053
75054
15050
75056
75057
75060

,SI'H

75062
75063
7511)64
75065
75065
75066
75067
75070

#45

RfPORT. SY3TfM CONSOLE

062653
054030
027033
160001
003000
040052
"'8212'
027065
044362
027053

044674
044072
076654
063334
16811 121rt10
75072
75072 063334
75073 064305
75"'74 026271

Rf.pSC EQU
LDA
CPB
JMP
LOA
eMA
AOA

a'A

•
REPPT
REPaF
REPSG
B,1

CHECK FOR ENe
NOT ON THIS THACK
GET THIS l()

10

ARE WE PAST YET

JMP REPSf
Aoe ,,+8
JMP REPSC

REP8E

REPS

~~U

YES, THIS IS ~HERE WE START
MOVE UP TO NEXT f.NTHY

•

AOB ML.lt~O
A08 WORD
518 REPL"N
LOA REPf;>7

.... P RePl
EQU *

MAKE POIN1ER

~1R

LATER

SET COUNT ON (HIS TRACK
GET ~HARAeTcR COUNT

LOA REP57
LOB T3eBl
JMP L.lNO+2

WE WlLL. PRINT 57 CHAkACTERS,

LOB T35B1
Ja8 T3~SP

PRINT AND
SUSPENO,

LOA T3581
StA REPBF

SET SUFFER
POINTER,

066653
044351
16 000 1
07 00 33
162653
003004
042654
070031
006400
75112 HH040
75113 1d71t:J001
75114 040033

L.OB Rf::PPT
AOB .-1
LOA 8,1
STA REPK
LOA REPPT,l
CMA,INA
ADA REPL,N
5TA REPlD
CL.B
LSR 6
STA 1
AOA REPK

GET CURRENT TRACK POINTtR

75115 1605700

bl.F

75116 005222
75117 007004
7~H20 044031
75121 074031
75122 044402
75123 007004
75124 074072
75125 064566
75126 016231
75127 116015
75130 00 00 31
75131 040562
75 132 07° 03 1

RBL,RBL.
CMB,INB
ADB REPI0
STB REPIO
ADB .+2~
CMa,INB
aTB WORD
LOB L.IBDI
JSB ORUML
JSB SICKP,l
LOA REPIO
ADA L.ISD
STA REPIO

Ht;.P2

otH~RWISE,

JUST PRINT THE .
HEAOING AND TERMINAlt,

065~.

16655

0656

75015 064305
75076 016213

REP1

8657.

0658
0659
1c)660
0661
0662
0663
0664
0665
0666
0667
0668

0669
0670
0671
0672
0673
0674

0675
"'676
0677
0678

",679
06 8 0
0681

0682
"'6 8 3

068 4
068 5
0686
0687.

75077
75100
75HU
75101
75102
75103
751 0 4
75105
75106
75107
75110
75111

060305
070030

EQU •

GE. T LOCA 1 H1N
SAVE DRUM AODRESS
COMPUTE PARAMETERS FOR DRUM
TRANSFER,
REPL"N.IOl.EN,

O,v by 6~ TO ~eT # of SECTORS
TO SKIP,
COMPUTE DRUM ADDRESS
COMPUTE _ Of WORDS
TO TRANSFER,
LN-IDL.EN-(L.N-IOLEN)/64*64
SET TRANSFE~ LENGTH TO READ
J NEw 10 RlCORDS,

ORUM ERROR, G~ DIE GRACEFUL.L.Y
8ET HEPID TO POINT TO THE
FIRST ENTRY TO BE CUNV~RTEO,

PAGE 0531 #45

REPORT

~

SYSTEM CONSOLE

"688.
0689* NOW CONVERT ENTRIES INTO

0690.
06910692

0693
0694
0695

06 9 6

0697

0698
0699

0700
0701
0702
0703
11)704
0705

0706
0707
0708

0709
071111
0711

0712
0713
0714
0715
0716

0717
071 8

0719

0720
0721
0722
0723
fcJ724
11)725
11)726
0727
0728.
0729*

0730.
11)731
0 7 32
fd733
0734
0735
11)736
fd737
fcJ738
0739
0740
0741

R~PBF

TM~ BUFFER, RfPID POINTS AT TNE ENTRY,
POINTS TO THE OUTPUT SUFFER,

75133 160031
75134 11)10602
75135 006400
75136 100400
75137,000437
75140 07 40 32
75141 070001
7514 2 160031
7~H43 001121
75144 01333111
7lH 45 040001
75146 043331
75147 170030
75150 0341430
75151 060032
75152 017233
7Si53 170030
75154 034030
75155 060031
75156 040357
75157 "7 00l1
75160 160031
75161 017243
75162 03~031
75163 034031
75164 160031
15165 017243
75166 060570
75167 170030
75170 034030
75171 034030
75172 034031
75173 066654
751 7 4 044;'62
75175 0 766 54
75176 006002
75177 027226

RfP4

LOA REPIO,I
AND B1777
CL.8

DIY ,100
STB REPT
STA 1
LOA REPID,1
ARS,ARS
AND REPMS
AOA 1
AOA REPFX
STA REPBF,I
ISZ REPbF
LDA REPT
JSB REPNM
8TA REpBF,I
ISZ REpBr
LOA REPID
AOA .+5
aTA REPID
LOA HEPIO,l
JSB REPTR
lSZ REPIO
18Z REPID
LOA REPIO,1
JSB REPTR
LOA ASC;aa
STA REPs,.,l
ISZ REPBF
ISZ REPBF
lSZ REPID
L08,REP&,.N
AOt; ,+8
STB REPL.N

aZ B

JMp REpJ

GET 10.
MASK NUMBER PART.
GET */l~0 IN A, # MOD
SAVE LAST 2 DIGITS,
COMijlNE FIH~i OIGIT
LETTER,

1~0

iN

~.

~lTH

STORE ASCII LfTTER&OIGIT IN BUF,
CONVERT LAST 2 DIGITS
AND STORE IN BUFFER.
MOVE REpBF TO POINT AT TIME AREA
8ET REPIO TO POINT
TO USERS TIME.
ifT UIERS TIME.
tONYERT INTO SUFFER,
POINT TO 01SC USEO
AND
CONyERT IT,
aET A PAIR OF BLANKS
BLANK OUT THIS SPOT
MOYE BUFFER ~OINTER UP FOR
NEXT ENTRY",
MOVt 10 POINTER AL.SO,
SUMP 10 ENTRY COUNTER.
IF ANy LEFT, TEST FOR BUFFER
FULL.

ARRIVE HERE WHEN WE HAVE tOMPLElEO AN 10 TRACK
75200
15200
75201
75202
75203
75204
75205
75206
75207
75210
75211

06265;3
053325
027216
040355
072653
16400fcJ
076654
006[303
02i'200
063335

REPEl EQU
LOA
CPA
JMP
AOA
STA
LOB

•
REPPT
RIDCL
REPEY
.+3
REPPT
A,l
sra REPLN
SZB,RSS
JMP REPEl
LUA REP 56

GET CURRENT IDEC TA8~E POINTER
WAS THIS THE L.AST lOT TRACK?
YES, DONE WITH REPURT
NO, ADvA~CE TO TME NEXT IOEe ENl
wfT COUNT ON THIS TRACK
ANO SET THE COUNTER
EMPTy TRACK, TRy NE~T
IF ENO OF BUFFER,

f'AGE

~~32

*4~

REPORT .. SYSTEM CONSOLE

(0742
(0743
0744
0745
1d746*
0747
1d748
1d749
0750
(d751
0752
1d753
0754
1t:1755
0756.
0757
1tJ75ts
1tJ759
076 0
0761
,,7Cia.

75 212
752 1 3
75214
75215

(o6403ia
05732 7
0271.17:)
027HH

L.oa
CPS
JMP
JMP

75216
7021 6
75217
75220
75221
75222
75223
75224
75225

0 6 0350
040030
067336
174000
040355
043326
001000
027id73

REPEV EQU *
L.OA
AOA REP8F
LOB REPSL.
STB A,l
ADA .+3
ADA REPTT
AL,8
JMP REP2

~763

75 2 33
75234
75235
75236
75231
15240
75 2 4 1
7524 2

0 7 64
10765
10766

75226
75227
75230
75231
752J2

1d767
0768
10769
e771.
0771 75 2 4 3
0772 75244
0773 75245
75246
1077 4 7 5 2 47
°77 5 7~250
0776 7!S2!S1
0777 76252
0778 75253
0779 75254
75 2 55
078 0 . 7 5256
0781 75257
0782 75260
07e 3 7 526 1
07 8 4 75262
10785 75263
07 8 6 75264
0787 7 52 6 5
07 88 75200
178'.
0790 75267
0791 75271t:1
0792 75271
75272

1dt>33Jfi
06403"
057327

c.O TO PRINT
AND SUSPENO
OTH~~wISE

~fAO NEXT TRACK AND
DO ANOTHER ENTRY

.-2

Rt;.P3

027ia75

027133
0000014
006400
100400

REPBF
REPNO
Rt; P l
REPNT

LOA REP5b
LOB REPBF
CPS REPNO
JMP REPl
JMP REP4

Rt,PNM NOP
CL.B
OIV .+10

8PACE-L.F
COMPUlE Ii
OF CHARAC TERS ,.

IF' END OF
BUFFER, GO TO
PRINT AND SUSPEND,

ELSE GO 00 NEXT ENTRY.
cONVERT A *.11d~ TO ASCII.
GET 1ST DIGIT IN A.
2NO IN B.

~00364

AL.F,AL.F
AOA 1
ADA ASClfO
JMP REPNM,I

01t:11727
040001
04 0 574
1272 33
000000
006400
100400
001032
043332
17 0030
0J403id
060001
006400

REPTR NIJP
CL.B

TRANS~ATE

Dlv DV8RS

10040~

ADA
SlA
ISZ
LOA
CL.B
DIV

000437
07 40 33
017233
170030
1t134030
060033
1t117233
170030
034030
127243

ST8 REPK
JSB REPNM
SlA REPSF,I
lSZ REPSF
LOA RfPK
JSB REPNM
STA REPSF,!
ISl REPSF
JMP REPTR,l

075a 7 '"
005040
044504
020041t:1

Rf.PHD

D~F

PACK AND
ADO ON ASCII
BITS.

REP60

A ~~OI~IT
INTO THf. ijUfFER.
CONVERT FI~SI

NUMfjE~

1

DIGIT.
PUT IN
BUfFER,
NOW G~T THE REST,

.180

COMPUTE AS 2 2.DIGIT #8.

REPBF,l
REPSF

SAVE 2NO HA~F.
CONVERT ANO STORE
FIRST PART.
SAME
2NO

~ITH
PA~T.

'''1

OCT 504",
ASC 20,10

lIME

SpACE

10

TIMf.

SpACE

PAGE 0533 #45

0793

0794
0795
0796
0797
0796
0799
0800
0801
0802
rc'J803
0804
0805
0 8 06
0 8 07
0806
fd809
ftt'lr~

75273
75274
75275
75276
75277
75300
75301
75302
75303
75304
75305
75306
75307
75310
75311
75312
75313
75314
75315
75316
75317
75320
75321
15322
75323
75324
75325
7 4 6 53
74654
00030
00031
00032
00033
15326
75327
75330
75331
75332
75333
75334
75335
75336
75337

Rt:PORT " SYSTEM CONSOLE

052111
046505
020040
05152~

040503
042440
021r)040

020040
0445~4

020040
052111
046505
020040
(5),520
0400503

04244kl
02004'"
020040
044504

ASC 8,10

TlME

02004~

052111
046505
020040
051520
040503
042440
0001 H)

10J16~

074E47
01740rc'J
040060
02£1060
17 7743
000071
000070
fd20012

RIOCL. OEF 10EC+8
RiPPT EQU T356F+34
RfPLN EQU TJ5SF+35
REPBF EQU LTEMP
REPIO EQU L.TEMP+l
REPT EQU LTEMP.2
REPK EQU L.TEMP+J
RfPTT ASS .. TJ58F-2
REPND OfF T356F.3r6
REpMS OCT 1740'"
REPFX ASC 1,'0
REP80 ASC 1, 0
REP29 Of.C -29
REPS7 DEC 57
REp56 DEC 56
REPSL OCT 20012
IREP EIilU ..

SPAtE

PA~E

~5J4

#46

DIRECTORY

w

SYSTEM CONSOLE

0002* THE DIRECTORY COMMAND IS A SYSTEM COMMAND ~HICM CAUSES THE
~003* CONTENTS OF THE DISC OIRECTURY TO BE PRINTED UN THE SYSTEM
~004. CONSOLE.
THE FORMAT OF THE PRINTOUT 15 AS FOL~OWS,
11085.

0006* <1D>  .cPUH~~ DATE~  cLEN'TH> cDISC AOR> <~RU~ ADR>
"'081.
0008* THE PURGE DATE IS PRINTED A8 A 3~DIGIT INTEGER INDICATING THE DAY
0009* OF THE YEAR AND A 2-DIGIT INTtGER INDICATING THE YEAR. THE DRUM
0~10* ADDRESS CONSISTS OF 3 INTEGERS INDICATlNG DRUM, i~ACK, ANO SECTOR.
0011* THE UISC ADDRESS IS A LOGICAL ~LOCKNUMBER.
0012* THE LENGTH 18 IN WORDS FOR PROGRAMS, RECORDS fOR fILES.
0013* THESE ARE ALL PRINTED IN DECI~AL.
0014* TYPING DIR.ID WILL START TH~ LISTIN~ WITH THAT 10,
01015. SDIRECTORY MUST FOLLO~ DIRECTORY IN SEQUENCE,
IUIl1

1t)0f6i

iiHH9

75000
75001
75002
7::;0103
75004
75005
75fd00
75ld07
70010
7Sld11
15"'11
751£'12
7501J
75014
751£'15
75016
75017
75020
75021
75022
75023
75024
751£'25
751tJ26

0020
0021
0022

0023

0024
0025
0026
kHd27

0028
0029
0030
0031
0032
r61033
0r634
r61tJ35
r6036
0r637
0038
"'039
kH,40
0041
.

0~4a

OR. LIBRA
002404
070052
114572
~2711H

1

01d3400
040054
070054
IrH631t5
026215
00J401i5
\140052
072654
116021
°1 0 213
063~67

070050
00030b
070051
064322
~J16257
~60432

\16 430 5
1016213

""~3*
01tJ44 75027 060274
0045 75030 0701031
10046 75031 1070032
0047 75032 070033
0048 75033 062654
0r649 75034 07003'"

CL.A,INA
STA lU
JSB T35CH,1
JMP OIRNI
Ct;A
ADA T35tP
STA T35CP
JS6 GETID
JMP LF~ER
~QU •
CCA
ADA 10
STA TJ58F+3!J
JSB HD6FA,1
JSS T35SP
LOA DIR1
STA MOVES
LOA T3561
STA MOVED
Loe ,.24
JSS MOVEW
LOA ,+48
LOB T3561
JSB T35SP
LOA
STA
STA
STA
LOA
STA

INf
LTEM~+l

LTEMP+2
LTEMP+3
T3b8F+35
LTEMP

SlART WITH 10 OF 1 • 1
IN CASE ~E DO~'T GO TU GETI0,
SEE WHAT FIRST CHARACTER 15
CR ... START A1 BEGINNING OF DIR
A ..
1
MOVE SACK BUFFER POINTER,
III

GET STAHTING 10 'ODE
SHOULD END WITH eR

A .. .. 1
LOOK FOR PRtVIOUS 10 WITH
NAME OF INFINITY.
PRINT HEADING
AND SUSPEND
MOVE HEADING TO
PRlNT BUFFERIJ

PRINT
HEADING ANLl
SU8PENO,
SET UP LTEMP(0.3) FOR
INITIAL oIRLLTORY SEARCH'
GET SAVED STARTING 10,

IIIJSIIJ.

0051
0r652
0053
0054
0055

15035 116005
75036 ~00000
75037 1i1601d35
15040 1£'40366
75041 v.170035

JSB OLOKP'1
NOP
LOA LTEMP+5
ADA ,+12
srA LTEMP+5

pERFORM DIR~CTORY SEARCH FOR
LAST ENTkY.
MovE POINTEk UP TO
NEXT ENTRY

PAGt 0535 .46
0056
0057
0058

0059

• "01*
0061
0062

0063

0064

DIRECTORY. SYSTEM CONSOLE

75042 140034
75043 040674
75044 002002
75045 027064

ADA LTEMP+4,I TEST FOR ENO OF TRACK,
ADA MLIBD
SZA
JMP DIR3
NOT fND OF TRACK •

75046
75047
75050
75051

LOB
AOa
CPA
JMP

064034
044361
150001
027047

LTEMP+4

.+7
t,I

•• 2

BUMP TRACK POINTER TO NEXT
TRACK.
L.OOP IF EMPTY.

I"J6S*

0066* fOUND NEXT NON-EMPTY TRACK •• WANT TQ REAO IT

0067*
0068
0069

75052 074034

0070
0071

75055 0 4 4360

0074

75057 064566
75060 016231
75061 027335

0072
0073

0075

STB
LOA
STA
AD6
LOA
L.DB
JSB
JMP

75053 160001
75054 070012
75056

160~01

".76*
0077 75062 060562
0078

LTEMP+4
1,1
WORt.>

LE~GTH.

.+6

1,1
L1801

DRUML
DIRFM

LOA L.180
STA I..TEMP+5

75063 0700J5

8ET WORO

IN~

GET DRUM ADDRESS.

READ TRACK
DRUM ERRO~, GO TELL. OP
SET POINTER TO ENTRY,

0079*

0080
011)81
0082
0083

0084
0085
00 8 6
0087
0088

0089
0090

75064
75065
75066
75067

027071

DIRJ

000000
000000
ftHtHHJ00

75070 000000
75071 160ft'135
75072 072654
7511'73 050351
75074 026267
75075 050030
7~076 027115

DIR9

'''191*
0092 75077 010602
0093 75100 006400
0094 75HH 10ftJ400

75102 000 043 7
0095
0096

0097
0098
0099
0100

0hU
0102

76103 072611
75104 160"J~
75105 00132;'

75106 013420

7tH"'7 042611
75111d 043421

75111 072611
75112 06121001
75113 017325

0103
0104

75114 027117

0185*
0106

7~115

0107
0108

75116 072611
75117 072~12

0109.

06261J

DIR4

JMP
NOP
NOP
NOP
NOP
LOA
SlA
CPA
JMP
CPA
JMP

OIRi

SPACE FOH
SANCTIFIED
TEST IN
SDIRECTORY
LTEMP+e,I GET USfH ID
T358F+J5 LEAVE IN ~UFfER,
•• 1
IF NEwATIVE, WE,RE AT END OF
LEND
Dl~ECTORY, $0 TlRMl~ATE.
LTEMP
If 10 SAME AS LAST TIME, ijO PUT
DIR4
BLANKS IN.

AND B1777
CLS
DIV .1016

GET

8TA T35BF
LOA LTEMP+6,1
RAR,RAR
AND DIRHS
ADA T356F
AOA DIRf'X
STA T35BF
LDA 1
JSB DIRNM
JMP .+3

SAVE ~IRST DIGIT,
GtT 10 AGAIN,
POSITION L.ETT~R'
KEEP ONLY THOSE 5 bITS,
ADD IN DlijIT.
CONVERT TO ASCII.

LOA T358F+2
STA TJ5BF
STA 135BF+1

PLACE BLANKS IN 10 POSITION IN
BUFFER,

NUM~RICAI..

PART Of 10,

;ET FIRST DIGIT IN A,LAST 2 IN b

CONVfRT L.AST 2 DIGITS TO
ASCII AND STORE IN bUFfER.

PAGE 0536 .46
0110
0111
~112

011J

10114

75120
75121
75122
75123
75124
75125

D1RfCTORY.

10341035
160~35

072614
1034035
1fc)42k)~

lli:lfc)035
10 4 41010
75127 074615
751~6

0116.
0117
011"
10119
01210
16121

0122
01 2 3
0124
0125
0126
1d127
rr:l12.,
10129
10130
ltH31
0132
0133
16134
i135.

0136

0137
kU3a
0139
IU4fc)
0141
0142
~143

0144
lU45

751310
75131
75132
7513J
75134
75135

064035

044355
0141035
160035
10110502
~06400

SYST~M

lSZ
LOA
STA
ISZ
DLD

LTEMP+5
MOVE PROGRAM
LTEMP+5,1
T356F+3

LOB LTEMP+fi
ADS .+3
ST8 LTEMP+5
CI..B

AOB
STB
Jse
STA
LOA

75153
75154
75155
75156
75157
751610
75161
75162
15163
75164

8ET POINTER 10 DATE L.OCATION,

LOA L.TEMP+5,I GET OAlf-.
AND 6777
GET OAY Of YEi\R.

Dlv .+116

7~147

INTO SUFFER,

DST T356""'4

75137
75140
75141
75142
75143
75144
75145

75150
75151
75152

N~ME

LTEMP+5
LTEMP+5,I

75136 10 0 4010

75146

CONSOLE

SET A_1ST 2 DIGITS, a-LAST ONE.

0fc)fc)36~

005727
k'J47422
076621
1d17325
0726216
16£0035
001721
0013010
0116441
"-'17325
k172622

1034035
034035
160035
~02003

10272104
10101222
010355
001727
{643422
0 7 2635

16146.

BLF,BLF

POSITION LAST DIGIT IN LEFT
DIRIiJS
HAL.F AND MERijE IN ASCII.
T35BF+8
STORe IN eUf-Ff.R.
OIRNM
CONVERT l~T 2 DIGITS A~U STORt
T35BF+7
IN ijUFFEH,
LTEMP+5,1 GET YEAR.
ALF,ALF
POS1110N,
RAR
AND B177
MASK,
JSB DIRNM
CONVE.HT,
STA T35SF+9
SIORE,

ISZ LTEMP+5
lSZ LTEMP+5
LOA LTEMP+5,1
SZA,Rss
JMP DIR7
RAI..,RAL.
A~O .... 3
AI..F,ALF
AOA OIRes
STA T358F+2{d

BUMP POINTER TO
DRuM AOI)RESS
GET lJRUM AODRESS
Is IT ZERO?
YES, SKIP DRUM ADDRESS fORMATTl~
POSITION DRUM NO. I~ ~OW 2 elTS
KEEP IT.
POSITION AS. LEfT CHAH,
ADO lN ASCII JUNK,
STORt. IN BUfFtR

751()15 16{d"'3~
75166 0~1727
75167 1010734
15170 0173215
75171 1072636

LOA LTEMP+5'1 G~T DRUM ADDRESS AGAIN
POSITION TRACK IN LOW b Birs.
ALF,AL.F
KEEP ONL.Y THOSE bITS,
AND 877
JSB OIRNM
CONVERT,
SlA T356F+21 STORE IN BUFfER

~1f)4

75172 160"35
75173 010441

10155
16156

75175 1{6040'"

LO. LTEMP+6,I GET DRUM ADDRESS AGAIN
KEEP ONLY S~CTCR ADOkESS,
AND B177
CL.B
GET FIRST OIGlr IN A,
Olv ,100
LAST 2 IN 1;.

0157
IiH f)S
liU59
Idlo0

75176
75177
752"0
752{61
75202

0147
1d14a
0149
0150
0151
IU52*

1d1f)3

75174 it:I0()400
~{d"437

043423
072637
",60001
017325

AOA
srA
LOA
Jse

oIRS0
TJ5SF+22
1
OIHNM

CONVERT FIRST ONE.

CONVERT LAST
TWO.

PAGE 0537 #46
rU61
0162.
0163
0164
016t,S
IrH66
0167
kJ168

0169
0170
fcH71
0172
0173
0174
0175
0176
IU77.
017ij
0179
018e.
0181
0182
0183
0184
0186
0186
0187
rU8ij
018g
0190
0191
0192

rU93
0194
IrU95
0196
IU97
01 98

IlV'

0200

"arn.
0202
02°3
fr)204
",205
0206
0207
0218
0209
0210
0211

DIRECTORY. SYSTEM CONSOLE

75203 072640

STA T35tSF.23

75204
75205
75206
75207
75210
75211
75212
75213
75214
75215
75216
15217
75220
75221
75222
75223
75224
75225
75226

ISZ
LOb
liZ
LOA
OlV

LTfMP+6
8UMP POINTE~ TO OlSC ADDRESS
LTEMP.5,I GET HIGH PIRT IN B
l.TEMP+6
l.TEMP+S,I ~ET ~OW PAkT IN A
OVSRS
GET FIRST 2 DIGITS IN A

ST8
JSB
STA
LOA

T356F+17
OlHNM
T35tSF+16

03403b
164035
0340J5
160035
10040&)
001032
076632
017325
07':631
062632
006400
100400
000437
076633
017325
072632
062633
017J25
072633

15227 034035
752J0 034035
75231 160035
75232 002QU!0

75233
75234
75235
75236
76237
75240
75241
75242
75243
75244
75245
75246
75247
75250
75251
75252
71aOJ
75254
75255
75256
15257
75260
75261
75262
7526J

003004
006400
1004f1HiI
001032
043430
072625
060001
006400
100"00
0004J7
076627

f617325

072626
062627
017325
0 7 2 6 27
102613
07 2630
064035
044J41

16et001

006004
002021
027265
863.2&

75264 027273
75265 160001
75266 002021

DIY .100

SAVE THE REST
CONVERT TU ASCII
STORE IN bUFFER
RETRIEVE REST OF DIGITS
;ET DIGITS 3 AND 4
INTO A

STB
JStS
aTA
LOA
.ISS
STA

SAVE 5 AND C
CONVERT TO AtiCII
STORE IN BUFFf;R
GET DIGITS ~ AND 6
CONVERT TO ASCII
STORE IN SUFFER

T35BF+17

CLB

TJ58F+18
OIRNM
T3e8F+17

T358"'+18
OIRNM
T358F+18

~TEMP+5
BUMP POINTER TO LENGTH.
ISZ L.TEMP+6
LOA LTEMP+6,I GET LENGTH,
SSA
CMA,INA
MAK~ POSITIVE IF NECtSSARY
GET FIRST DIGIT IN A, L.AST 4
CLB
OlV OVSRS
IN B

I8Z

ADA ASCB0
STA T35aF+12
LOA B
CL.8
DIV .UJI/J

8TB
JS8
ITA
L.OA
JSB
STA
LOA
8TA

T368F+14
DIRNM
T3 beF+13
TJ66F+14
DIRNM
T356F+14
TJtibF.,

T35eF+15

L08 L.TEMP+5
A08 •• g

LOA 1,1
INS
aSA,RSS
JMP OIR5
LOA DAICF
.IMp DIR6
LOA 8,1
SSA,RSS

CONVERT FIR3T TO ASCII
STORE IN SUFFER
(fET DIGITS 2 • 6
GET DIGITS a • 3 IN A, 4 • 5
IN.ti,
SAVE "'AST TWO
CONVERT 2 4ND 3 TO ASCII
STORE IN ttUffER
GET L.AST TWC
CONVERT TO ,t:SCIl
STORE IN 8UF~ER
8LANK OUT
NEXT TWO COL.UMNS
I~

SECOND WORD OF NAME

BUMP POINTtR TO THIRD WORD
FILE?
NO
yEI, .£1 AN ,.

PAGE k1536
0212
~213

75267
75271d
75271
7527 2
75273
75274
75275
75276
75277
7 5 300
7 5 301
75302
75303
75304
75Jld5
75306
75317
75310
75311
7 53 12
75313

N4()

DIRECTORY •

027272
063424
01d2001
06 0 412
044350
01d1727
104001
006021
027302
033426
002001

0214
0215
0216
0217
0218
0219
0220
0221
0222
0223
03~h412
0224
072624
0225
0640J~
0226
044346
0227
160001
1-22,
flJI2102
0229
060364
1d230
040420
064305
0231
0232
016213
B2l3.
0234 75314 062654
0235 75315 066614
0236 7531 6 1044~H"
75317 01d0030
0237 75320 10 4 201c1
75321 074615
023 8 75322 111' 44 00
75323 00011'32
0239 75324 0270J5

1J2",.
82"1.

112 .. 2.
0243 75325 000000
0244 75326 d0 64 00
0245 75327 100400
75330 000364
0246 75331 001727
0247 75332 0 4 0001
0248 75333 040574
0249 7f)334 127325
"'250 75335
0251 75335 06335111
0252 75336 0 7 0050
0203 75337 06030~
0254 75340 070051
0255 75341 064316
(6256 75342 005111'0
fc:)257 75343 016257
0258 75344 0611'316
111259 75345 003004
0260 75346 067350
0261 75347 026271
0262 75350 075351

DIR6

SYST~M

CONSOLE

JMp *+3
lOA OASee;
RSS
L.OA ,+406
A08 .2

AL.F,lL.F

LOB 6,1
SS8,RSS
JMP *+3
lOR DAse;p
RSS
lOR ,+408
STA T356F +11
LOB L.TEMP+5
AOe ,.,4
LOA B,1
SiA
L.OA .+hl
ADA ,+38
L.OB T35tU
JIB T35SP
L.DA TJSBF+35
LDe T3{)8F+3
oST LTEMP

NO
YES, GET A "
GET A SPACE.
8> FIRST WO~O OF NAME
MovE CHARACTER TO HlliH 8 IUTS
PROTECTED?
NO
MERGE IN A P
MERGE IN A SPACE
STORE. IN 8UFFf.R
GET DRUM ADDRESS
IS THERE ONt. Tu PRltH?
YES
PRINT THE LINE:.
SUSPEND.
SET UP
~lND

L.TEM~(013)

IN OROER TO

NEXT PROijRAM

OL.D T35BF+4
DST LTEMP+2

JMP OlR2

DIRNM NOP

CL.6
DIV ,+10
AL.F,AL.F
"DA 1
AOA ASC0"
JMP DIRNM,l
EQU *
RFM
°l
LOA DIRSO
srA MOVES
LDA 135tU
srA MOVED
L.OS DIRSP
BRS
JSB MOVEW
LOA OIRSP
CMA,INA
LOB DIRSO
JMP L.END+2
DIRSO OfF *+1

LOOP FOR NEXT lUTPUT.

CONVERT A

# c10~

TO A&C1I,

PAGE

ra~39

#40

DIRECTORY - SYSTEM CONSOl.E

0263 7ti351 1405103
0264 ' 75352 040516
75353 023524
75354 020122
75355 042501
75356 042040
75357 042111
75360 051105
75361 041524
75362 047522
75363 054440
75364 052122
75365 040503
75366 045440
0265 00316
0266 75367 075370
0267 75370 005040
~268
75371 044504
75372 020040
75373 02 I,H'J 40
75374 047101
75375 046505
75376 020040
75377 020040
75400 042101
75401 052105
0269 75402 020 0 40
75403 020040
75404 020114
75405 042516
75406 043e24
15407 044040
75410 02rtt~40
75411 042111
75412 051503
75413 020~40
75414 020040
75415 020104
75416 eJ51125
75417 046440
°270 7542 0 °1 7 4 00
0271 75421 040060
0272 75422 030~57
0273 75423 027460
027'4 75424 000103
0275 75425 000106
0276 75426 000l2ki
0277 75427 000"'40
0278 75430 0200~0
0279 75431 020040
75432 020041d
,,280 75433
- _ _r-

OtT 5103
ASC 1J,AN'T READ DIRECTORY TRACK

OlRSP EQU .+OIRSO ••• OIRSO •• +2
D1Rl OfF .+1
L.f-tH.ANK
OCT 5041d
NAME
ASe 9,10
DATE

ASC 14,

OlRMS OtT
OIRF'X ASr;
OIR0S ASe
OlRS0 ASC
OAsee OCT
DASe~ OCT
DASCP OCT
OASeS OCT
ASCB0 ASC
.lSCSS ASC
SI)IR

174 0 0
1,'0
,1,01
1,/10
UI3

106
120
40
1, I()
2,

EQU •

LENGTH

DISC.

DRUM

0282* SOIRECTORY IS A SYSTEM COMMAND WHICH CAUSES THE SAME PkINTOUl
~283* AS DIREtTORY f EXCEPT THAT ONLY SANCTIFIED PROGRAMS AND fILES
0284* (THOSE CURRENTLY RESIDING ON DRUM) ARE LIST~O, SDIR~CTORY MUST
0285* BE LUAOED IMMEDIATELY AFT~R DlkECTORY~
~2a7

7~000

Otu.. 1.1SRA

028S
"'289
k1290
0291
1t2292
0293
0294

750160 0162404
75064
75",64 1060035
75065 040361

CLA,INA
ORG DIR3
I,.OA LTEMP ... 5
ADA .... 7
LOA A,1

75066 1616000

75067 002 0 03
75070 1t227037

SZA,RSS

JMP DIRe

IS

THIS
ENTRY
SANCTlflEDl
NO, LOOK AT NEXT ONE

pAGE 0541 *46
02 96*
0297*
0298
0299
0300
0301
0302
0303.
0304.
031&*
0306
0307
0308
0309
0310
0311
0312
0313
0314
0315
0316
0317

0318
0319
032121
0321
0322
0323
0324
~325

0326
0327
0328
121329
0330
0331
0332*
121333
0334
0335
0336
0337
121338

STATUS - SYSTEM CONSOLE

THE STATUS COMMAND PRINTS A SUMMARY OF THE S'tSTEM RESOURCES,
AND THE EXTENT Of THEIR UTILIZATION, ON THE SYSTEM TEL..E1YPE.
ORG l..IBRA
75000
75000 116021
PRINT HEAOING
JS6 HOt$FA,I
J8B TJ!5SP
AND SUSPEND
75001 016213
75002 0603t:l3
LOA T3562
INITIALIZE
STA 8TASF
BUFfER POINTER
75003 072Eo02
PRINT SELECT CODES,
750k)4
75005
75006
75007
75010
75011
75012
7512113
75014
75015
75016
75017
7512120
75021
75022
7502.3
75024
7C5~2e

750.26
75027
7503121
7512131
7512132
75033
75034
75~J5

7512136
7512137
7512140
75041
75042
7512143
7512144
7512145
75046
7512147
75050
75051
7512152
75053
15054
75055
75056
7512157

017666
005115
040507
036441c3
12100000
060176
017707
064176
060424
00612120
017746
017666
020040
042122
052515
0364416
00000fi:l
06 03 46
070036
060036
040J56
040676
160000
IU0734
017707
12160412
12111740
12134030
027027
12117654
0116~6

005104
12144523
041523
01141 5
005040
020114
047507
044503
12140514
028040
12151505

12146105
041524

JSB STAST
OCT 5115
ASC 2,Ac._
NOP
L.OA MAaS C
J8~ STAUC
LOB MAGSC
LOA ,+628

sss

PRINT l..F,MAG-.

PR I N'T MAGse,
GET SELECT COUE,
GE T ' . '

SKIP If 3030
PUT '*' INTO LINE

JSB STACH
JS6 STAST
ASe 4, DRIJM- PRINT "URUM."

NOP
LDA
alA
STADt L.DA
ADA
AOA
L.OA
AND
JSB
LOA
JSB

I·'

L.TEMP+6
LTEMP+6
,+4
1AT~L

FO~

7970

SET UP DRUM COUNTER
GET sf.Ller
CQUf
Of DRUM

0,1

877
STAoe
,+406
STACH
lIZ LTEMP+6
JMP STAD1
JSB STAPR

JS8 STAST
OCT 1511214
ASC 2,1SC5

MASK SCI
OUTPUT SCI
OUTPUT BI,.AP'iK
DONE?
NO.

LF.O

XOFF.C;R
OCT ~1415
LF.SLANK
OCT 040
ASC 19, LOGICAL sEL.ECT

UNIT

!flRST

LAST

PAGE

~l:)4<

*46

STATUS ., SYSTEM CONSOLE

751060 020040
751061 0210125
7~062 047111
7506~

0339
0340
0341
0342

1~510"

0343
0344
0345
0346
0347
1d348
0349
III 35",
0351
121352
",353
0354
0355
0356
0357
12J35I;J
0359
0360
",361
0362

~52"4~

75064 020040
15",65 043111
75066 0t>1123
75067 0520~0
75070 ~20041d
75071 r64611tH
75072 051524
75073 000000
75074 017654
75075 017666
75076 1020040
75~77 020125
75UB
75102
751ft';'
751".14
75105
751\iJ6
75101
75110
75111
75112
75113
75114
75115·
75116
75111
75120
75 121
75122
75123
75124
75125
75126
75126
75127
7513~

751Jl
75132
75133
75134
15 1 35

75136
75137
75140
75141
75142
75143
75144
75145

OCT
JSe
JSB
ASC

0
STAPR
FIRST LINE OF D18C HEADING
STAST
19,
UNIT
NUMBER t;l,.OCK
CODE

'.'111
052040
020040
02kH2I40
041!H 7
0421!c'l5
11:120040
020116
052515
041105
05104~

1020102

046117
1041513
020040
020102
046117
041513
000000
1611654
0°24 00
0721301
06 200 1
050362
027241
10020"
0.,,,360
04"'210
12140354
1640130
164001
006003
"27237
070031
017666
020040
020"'40
00"'000

Ase
(JCT
JSB
(L.A
STA
STADl EQU
LOA

1,eK
0

STAPR

STAV!

•

STAV1
CPA .+8
JMp STAL.l
MPY ,+6
AUA "'HAD
ADA ,+2
LOS A,l
L.DB e,1
SZB,RSS
JMP STAL.T.2
STA LTt.MP+l
JSB STAST
ASC 2,
OCT

°

SECON!) LINE Of DISC HE-ADING
FOR LOGICAL
018C '"
fINISHED
ALL. DISCSl
yES
NO

GET SEL.ECT COOt'.
SKIP IF ZERO
SAVE SELt.CT CODE/UNIT
4 BL.ANKS

6\.0

PAGE 0543 .46
0363
10364

0J65
0J60
0367
0368

0369
0370
0371
0372
0373
0374
10375

kJ376
0377
0378
0379
0380
0381
0382
0383
10384
0385
0386
0387
0388
0389
.0390
0391
0392
0393
"3~4
03~5

0396
(d397

0398
0399
1;)400
0401
0402
0403
0404
0405
0406
0407
fd40a
0409
0410
0411
0412

STAtuS .. SYSTEM CONSOLE

75146 ~60412
75147 017740
75150 062001
75151 0177H~
7~152 017666
75153 020040
75154 020040
75155 0201340
75156 IOki0000
75157 060412
75 160 01 77 40
7 5 161 160031
75162 160000
75163 001727
75164 1610734
75165 017707
75160 017666
7 5 167 020040
75170 020040
75171 02004~
7517~ 000000
75173 160031
75174 160000
75175 010355
75176 017716
75177 017666
75200 020040
75201 02(6)40
75202 000t'00
75203 06~412
752 0 4 01774 0
75205 0600Jl
752 0 6 04 0 3&0
75207 164000
75210 002004
75211 160000
75212 011:14065
75213 001540
75214 °4°356
75215 00204fd
75216 006004
75217 017722
15220 1"11666
75221 02~04~
75222 000000
75223 060031
75224 040366
75225 164000
75226 002004
75227 16000~
75230 004065
75231 001540
75232 0403~1
75233 002041
75234 044351

L.OA ,+408
JSB STACH
LOA STAVl
JSB 8TAOG
J8B 8TAST
ASt 3,

BLANK
LOGl'AL

01S~

NUMBER

6 BLANKS

OtT 0
LOA .+406
BLANK
JSB STACH
L.DA LTEMP"'1'!
LOA A,1
ALF,ALF
AND 877
JSB STAOC
DISC SELECT CODE
JSe STAST
6 BL.ANKS
ASC 3,
OCT
LOA
L.UA
AND
JSB
JSB
ASC

0
LTEMP+1,I
A,I
.... 3
STAUG
UNIT NUMBER
STAST
4 ~LANKS
2,

OCT 0
LOA .... 40B
JSB STACH
LOA LTEMP+l
AOA ,-2
LOB A,l
INA
LOA .'1
CLE,ERB
E,RA,CL.E
AUA .... 4
8EZ

INa
JSB STA6D
JSB STAST
ASC 1,
OCT 0
LOA I.TEMP+l
AOA .... 4
L.OB 14,1
INA
L.OA 14,1
CLE,ERB
ERA,CLE
~DA ,-1
SEZ,RSS
AL>S ,-1

BLANK
GET SECTOR
ADDRESS OF
THIS 0l!C
CONVERT
TO aLOCKS
FIRST AVAILABL.E
BL.OCK .S .4
FIRST 8LOCK
2 BI..ANKS
GET lECTOR
ADOHESS Of

NEXT DISC
CONVERT
TO SL.UCKS
LAST SLOCK
IS 1 LESS

pAGE 0544 .46
0413
fl'414
0415
0416
0417
0418
0419
0420

0 4 21
0422
0423
0424
0425
0426
0427
0428
0429
0430
0431
0432
0433
0434
0435
0436
0437
0438
0439
0440
0441
0442
0443
0444
11)445
0446
k)447
04 48
0449
11)451/1
0451
1/l452
0453
0454
0455
1/1456
0457
045tJ
0459

75235
75236
75237
75240
75241
75241
75242
75243
75244
75245
75246
75241
75250
75251
75252
75253
75254
75255
75256
75257
75260
75261
75262
75263
75263
75264
75265
75266
75267
75270
7527"
75271
75272
75272
75273
75274
75275
75276
75277
753160
75300
75301
75302
75303
75304
753",5
75311)6
7530 7
75310
75311/1
75J11
75312
75313
75314
75315

STATUS "" SYSTEM CONSOL.E
JSB
JSB
ISZ
JMP

0117.22
~176~4

036001
021126
017666
005114
047503
045505

8TAOO
STAPR
STAVl
STAD!

L.AST ~L.OCK
PRINT IT

•

SlAI..T EQU
JSB STAST
oCT 5114
ASC 9,OCKf.O DRUM TRACKS

042i'4~

042122
052515
020124
051101
041613
051440
000"00

011654
002400
0721601
072003
002404
072002
0616676
042003
164000
006003
0273()4
002400
070030

STL.T0

511..Tl
S1L.T5

01760"
0"2001
027301/1
017615
027351
027272
5TL.T2
0024"'0
050030
002001
0273Hl
062003
01771 6
~60436

0177411)
017666
0201/141/1
1/100000
062001
1/117700
034030

51LT3

OCT 0
JSB STAPR
tl..A
STA STAV!
STA STAV3
C;LA,INA
STA STAV2
EQU *
LOA ?AT~L.
AOA 8TAV3
L.DB A,l
SZB,RSS
JMP 8TLT7
EQU •
CL.A
STA LTEMP
EQU
JSB STATZ
R8S
JMP STL.T2
Ji8 STL.8P
JMP 8TLT6
JMP STL.Tb
E.~U •
CLA
CPA LTEMP
RSS
JMP SlLT3
LDA STAV3
JSB STADG
LOA B72
JSa STACH
E.QU
JSB STAST
ASC 1,
OCT
L.OA STAV!
JSB STA2D
ISZ I..TEMP

•

.

"

TRACK #I (16e63)
DRUM " (0.3)
MASK

18 DRUM
PRE-SENT?
NO

YEiI, INITIAL.IZE
COUNT Of ENTRIES
TEST THIS TRACK
UNL.OCKEO
L.OCKt.O
ENO OF CRUM

FIRST ENTRY
yES

or~

NO

OUTPUT
DRUM "
, a,
2 BL.ANKS
OUTPUT TRACK "

LINE.1

PAGE
0460
0461
0462
1/)463
0464
1/) 45 5
0466
16467
0468
0469
04713
0471
16472
0473
0474
0475
0476
0477
"'478
0479
0480
0481
0482
048 3
0484
~485

0486
0487
0 488
16489

0490
0491
1d492

0493
0494
16495

0496
0 497
0498
0499
0~00

0lcHH
0002
0003
0004

0005
0006

~545

t#46

STATUS .. SySTEM CONSOL.E

75316 ~17615
75317 ~27351
7532k'J 017b01/)
15321 027335
75322
7 5 322 0176 15
7f:1323 027345
75324 ~1760fc1
75325 002"'01
75326 027322
75327 060427
75330 011740
75331 003412110
75332 ~4~001
75333 017700
75334 034"'31:)
75335
75335 017615
75336 027351
75337 06003'"
7534'" 040332
75341 002020
75342 027272
7f)34 3 017654
75344 027210
75345
75345 060~27
75346 017140
7 534 7 063630
75350 017700
75351
75351 060030
75352 002002
75353 017654
75354
75354 062~03
75355 002004
75356 050356
75357 027362
75360 07200~
75J61 027263
75362
75362 017666
75363 005114
75364 047503
75365 16455136
75366 042040
75367 04~111
75370 0eit503
75371 020102
75372 046117
75373 e.UHJ
75374 05144k1
75375 000000
75376 017654

STLT4

8T1.. T8

8TI..T9

5TLT6

STI.T7

STI..10

JIB STLBP
~UMP POINTERS
JMP 5TLT6
END OF DRUM
TEST NEXT TRACK
JSB STATZ
JMP STI.. T8
UNLOCK!O (ONLY ONE)
EQU ..
LOCKED, BUMP POINTERS
JSB 8TI.BP
JMP SlLT9
END OF DRUM
TEST NEXT TRACK
J8B STATZ
RSS
UNLOCKED
JMP STLT4
LOCKED, ~O TO NEXT ONE:.
t• ,
LOA .+556
JSB STACH
CCA
ADA STAV1
OUTPUT TRACK #
JSB STA20
ISZ LTEMP
t.QU
JSB STL.BP
BUMP POINTF.RS
JMP STI.T6
END OF ORUM
LOA LTEMP
MORE ROOM
ON THIS
ADA .-16
SSA
LINt?
JMP'STLT5
YES
NO, PRINT AND SUSPEND
JSB STAPR
JMP 81L.T1
EQU
LOA .+556
'. t
JSB STACH
l.AST TRACK IS 63
L.OA Sl.b3
JSS STA20
f.QU
LOA I..TEMP
SZA
SKIp PRINTING
JSB STAPR
SI..ANK I..HIf.
EQU
LOA STAV;]
INA
BUMP DRUM #
CPA .+4
JMP 811..10
DONE
STA STAV:)
JMP SlL. T0
EQU
JSB STAST
OCT 5114
ASC 9,OCKED DISC ~1..0tKS

.

.
.
.
.

OCl 0
JSB STAPR

PAGE 0546 *47
1dle'07
0010tS
le'009
0010
O011
0012
0013
0014
0015
0016
0017
001tS
O019
0020
0021
0022
002 3

1t){624

0025
"'026
0"'27
"''''2ij
01629

0030
0031
"'032
o 33
",o34
0035
0036
003 7
0038
Ir:I

'"3e
0040

10041
004 2
0043
kl044
0045
01r:146
01047
0kl48
16049
10050
16051
0052
0053
0(654
","'55
0056
0{()S7

75377
7540rJ
75401
75402
75402
75403
75404
7b405
75406
754ft)1
75410
75411
75412
75413
15413
75414
15415
75416
75417
75420
75421
75422
75423
75424
75425
75426
75427
7543'"
75431
75432
75433
75434
7 5434
75435
78.J6
75437
75440
75441
75442
75443
75444
75445
75446
75447
7545(6
75451
75452
15453
75454
75455
75456
75457
75460
75461
75462

STATUS .. SYSTEM CONSULt.

~VJ240fc)

070033
060210
0 7 2001
"60562
le'72002
16620~1
~40354

164000
164001
006003
027511
104200
174001
000065
005541r:1
044355
0ft)2040
002004
1044ft)0
000030
o60762
070215
06"020
"'64566
114217
026311
0ft)2400
17 3772
162002
002003
021&11
104200
17401111

CL.A
alA L.TEMP+J
LOA MHAO
SlAV' EQU
STA STAV1
LOA LlbO
STA STAV2
LOA STAV!
ADA ,+2
LOS A,l
LI)8 B,I
SZ8,RSS
JMP STALx
STAL.Y EQU *
OL.D STAV1,!

•

CL.E,ERA
ERB,CL.E
ADS .+3

•• filRST D!SC
INITIALIZE
BUFFER PO~NTER
GET SELECT

DISC NOT PPESENT
(,;OMPUlE
AOI)RESS

SEl

(,.IF BAI)

INA
OST LTEMP
LOA M256
STA MwORO
LI)A DL.TEM
LOB LIBOI
JSB DlSCZ,l
JMP DDt.HR
CI..A
srA STAQV,I
STAL.Z EQU *
LOA 8TAV2,1
SZA,RSS
JHP 8TALX
OLD SlAV1,I

~00065

e~E,EHA

00554 0
146002
002040
O",2004
101100
1"'44(60
00003'"
017722
1tl36002
00340ft)
142",,2
002003
{()27472
070032
060427
f.117740
104200

ERB,CL.E
ADS STAV2,I
sEZ
INA

COO~

BLOCKS

HEAD BAD BLOCKS
PUT lERO AT
BUFFER END
GET

~OCKED ~LO~K

If it-RO,
COMPUTE

fl~lij04il)

ADDRESS

TA8Li

LOGICAL
BI..OCK

swp

ADDRE::SS

(JST LTEMP
JS8 8TA6D
ISZ STAV2
ceA
ADA STAV2,1
SZA,RSS
JMP STAPZ
STA L.TEMP+2
LOA .+558
JSS STACH
OL.D lTEMP

FIRST BI..OCK

IF ONLy ONE BL.OCK, DON'T
PRlNT SECOND ADDRESS

'. ,
COMPUTE

PAG~

0~58
~059

0i)60
0061
0062
0063
0064
0065
01066
0067
0068
00 69
0070
0071
0072
01673
0074
0075
0076
0077
0078
0079
0080
0081
0~82

0083
0084
i)",85
"'086
0087
0088
0089
0090
01691
0092
0093
0094

0095
0096
0097
0098
01d99
~100

0101
0102
0103
0104
0105

~547

75463
75464
75465
75466

*47

3TATUS. SYSTEM

000030
000040
040032
002040

75467 00600 41

75470 017722
75471 002404
75472
75472 0021c')04
75473 040033
75474.070033
75475 036002
75476 040342
75477 002021
75500 027505
15501 017666
75502 020040
75503 000000
75504 027434
75505
75505 017654
75506 002400
75507 070033
75510 027413
75511
75511 062i)01
75512 040360
75513 064210
75514 044432
75515 050001
75516 002'H1J1
75517 027402
75520 06e033
75521 002002
75522 017&54
75523 IcH7666
75524 005114
75525 044516
75526 042440
75527 050122
755J0 044516
75531 052105
75532 051la40
75533 036440
75534 100'"'000
75535 060~'0
75536 114500
75537 102311
75540 027537
75541 102511
75542 010030
75543 010134
7 5544 01 77 0 7
75545 060424
75546 06 .. 030

~ONSO~E

eLE
AOA LTEMP+2
SEZ
INa
JaB STA6D
CLA,INA
STAPZ EQU •

- LAST

BL.OCK

ADI)RES5

OUTPUT IT

uPDA1E

INA

AOA LTEMP+.}
STA LTEMP+3
ISZ 8TA'I2
ADA ,-8
S$A,RSS
JMP STAPL

JaB
A8e
OCT
JMP
STAPL EQU
JaB
CL.A
STA

STAaT
1,

"
STALZ
•
STAPR
~TEMP+3

JMP STAI..Y
STALX EQU
1..0 A
ADA
1..08
ADa ,+48

CPA B
RSS

JMP STALV
1..0A ~Tf.MP.3
SzA

JaB
JSB
OCT
Ase

OCT
LOA
JS8
SFS
JMp

STAPR
STAST

COUNT Or
ENTRIES ON LINE:.

PRINT

FU~L

1..1NE

2 BI..ANKS

RESET ENTRY
COIJNTER

NEXT DISC
FINISHED AL.L 81
YES
NO
DUMP REST OF SUFFER

5114

7,INE PRINTER.

0

L.PS
S14se,1
CH2
•• 1
~lA tH2
STA LTEMP
AND 877

JS8 STAoe
LOA ,+528
LI)8 LTEMP

"ET THE ~lNE
PRINTER STATUS
FROM THE 1/0
PRoCESSOR
A " STATUS
A , sELECT COOE
PUT THE se IN THE
A •

B

if

'*'

LP STATUS

8U~fER

PAGE
0106
01°7
010 8
0109
011121
0111
121112
fU1J
0114

~115

121116
121117
1d118
0119

0120
"121
0122
0123
0124
0125
kH26

~548

75647
75550
75551
75552
75553
15554
75555
75tti6
75557
7b56'"
75561
75562
75563
7b564
75565
75566
75567
7557k1
7ti571
75572
7b573
75574
7b575
75576
75577

n47

STATUS _

SYST~M

CONS~~E

SS8
JSB STACH
LOA .+026
LOB LTEMP

0~61212fjIJ

0117 40
0 6 121424
064030
~0520fjIJ

sse

i17666

JiB 8TAsr

Jse

027573
16012101
001727
017654
103100
034277
06121506
027656

STLP

Jse

CHECK FOR 2 1 e7A LP
yES. PUT '*' IN THE

~UfftR

,*,

USER ,

OCT 121
LOB PRIST
SlB,RSS
JMP STLP
LOA 8,1
AI..F,AL.F

~06003

01771210

STACH

ASC 5,

1(120040
02012140
052523
042522
02121075
012100121121
064256

6UtF~R

A •

RBL.

0VJ6020
0177411)

CHECK FOR 261~A LP
YES • PUT '.' IN THE

STA~O

JSB STAPR
CI.F 121

ISZ T35ST
LOA #1..1B#
JMP STApR+2

GET USER INOICwTOR AND
CHECK FUR U~f.
NO

yES,
OUTPUT
USER TTY#
PRINT THE 8uFfER
CHANGE STATuS TO OVEkl..AY
RESTART AT I.IkSRA
PRINT THE L!NE ANO SUSpEND

11127.

0128* STATZ TESTS THE CURRE.NT TRAX POSITION, EXIT TO (fI+1) IF 1/1, (P+2)
112i. IF 1.
rU31 •.
121131 7661210 012101211210 STATZ NOP
LOB STAV3
ORUM NO,
0132 7561211 06612103
Rttl..,RBL.
0133 75602 12105222
MULTIPLY fh 4
ADa DTRAX
.~ FIRT TRAX EI..EMENT
0134 7b6e3 044512
0135
k1136
0137
~138

0139
014~

01 4 1
0142
0143
0144.
16145'"
0140.
w147.
1()148
16149
0150
01 5 1

16152
0153
0154
0155
ItH56

7561214
15605
75006
7560 7
7561k1
75611
756 12
75613
75614

121621211211
01211121
001121

1.0A STAVl

ARS,ARS
ARS,ARS
A08 A
&.I,)A a,l
ANO STAV2
SlA
ISZ STATZ
JMP STATZ,l

~4412100

160001
0120~2

002002
037600
121600

POSITION IN TRAX
MASK
Id EXISTS TO P"'l
1 EXISTS TO P+2

BUMPS THE POINTERS TO THE TRAX TA6LE. IT EXISTS TO (P+l> IF
A DHUM IS fINIShED, OTHERWISE TO (P+2).

STL~P

75615
75616
75617
75620
75621
75622
75623
75624
75625

01210000
062(61212
001200
12172002
12162001
002004
050772
01d2401
1(137615

STL.~P

NOP
LOA STAV2
RAI..
STA STAV2
LOA STAV1
INA
CPA au,,,

C&.A,RSS
15Z STLBP

MASK

ROTATE IT
SUMP TRACK ;,
fINISHED THlS DRuM?
yEs, SET TRACK # TO ZERO
NO, EXIT fO (P+2)

PAGE 0549 #47
0157
015S

STATUS

P

SYSTEM CONSOLE
STA~l

75626 072001

SlA

75627 127615

JMP 5TL6P,I

~159.

°160

7563 0 000017

5T.63 DEC 63

pAGE

~550

#47

STATUS

~

SYSTEM

CON50L~

10162 75664
0163*
0164- STAPR PRINTS THE ~UFFER.
i16&*
10166 75654 01d00100 5'!APR NOP
0167 75655 1063654
LOA STAPR
1(J16~
75656 072213
STA TJ5SP
0169 75667 060303
LOA T3582
0170 75660 0030104
CMA,lNA
ADA STA8F
10171 75661 042562
16172 75662 064303
\,.D6 T3582
0173 75663 076562
ST8 STASF
10174 75664 064305
1,.1)8 T3581
10175 75665 1026214
JMP T358P+1
15176*
0177· STAST OUTPUTS A STRIN~
011th
~179
75666 0000o", STAST NOP
0180 75667 163666
LDA STA5T,1
SZA,RSS
"'181 7b670 0020103
0182 75671 127666
JMP STAST,1
10183 75672 001727
ALF,ALf
10184 75673 "'11740
JSB STACH
russ 75674 16366('
LOA STAST,l
JSe STACH
"'186 75675 e1774fO
10187 751576 037666
ISZ STAST
10188 70677 027667
JMP 5TAST+1
(Ua9*
019" .. STA20 OUTPUTS A 2 DIGIT NUMBER.
11191*
"'192 757010 000000 8T.20 NOP
0193 75701 006400
el.s
0194 757102 100400
DIV ,+10
75703 0010364
li:J1 95
JSB STADe.
75704 017716
~196
JSS STADG
75705 101 7716
10197
JMP STA~D,I
75706 127700

16198.
10 199* STADe OUTPUTS A 2-D1&IT

SAVE RETURN ADDRESS,

COMPUTE. OF CtIARS,
RESET BUFfER
POINTER,
OUTPUT,

GET ChAR, PAIR
OUTPUT \,.EFT CHAR.

OUTPUT RIGHT CHAR,
~UMP

LOOP,

OcTAL INTEGER.
8288*
10201 75707 000000 SlAoe NOP
0202 7~710 1d~640"-l
eLoS
0203 75711 1004011'
DIV ,+8
75712 0o",362
Jse STADG
f()204 75713 (.117716
"'205 75714 ~17716
Jsa STADG
JMP SlAoe,l
10206 75715 1277~7
1217.
10208· STADG OUTPUTS A u1GIT,
0219.
0210 75716 1t:H~.i1d000 SlADG NOP
ADA ,+608
0211 75717 ~404J2
0212 75720 ~1774(Q
JSB STACH
JMP STADG,I
0213 75721 127716
1214*

POINTE.R.

PAGE "'551 #47
i6~15*

STATUS .. SYSTEM CONSOL.E

5TAoO OUTPUTS

A 6-1) 1I:tI T

NUMbER

11)216*
0217 75722 000000 STA6t> NOP
OIV OVSRS
02113 75723 100400
75724 001032
",219 75725 074037
STe I.TEMP+7
JSB STA20
FIRST TWO OIGITS
0220 75726 017700
L.DA L. H.MP+7
0221 75727 060037
0222 75730 006400
tLb
0223 75731 100<.400
01V ,100
75732 000437
0224 75733 "'74037
SlB L.TEMP+7
J5B STA2D
0225 75734 017700
SlCONO T~U OlbITS
L.OA LTEMP+7
"'226 75735 060037
0227 7 5 7 36 017700
JSB 5TA20
THIRD TWO 01GIT5
JMP STA60,1
13226 75737 127722
0229*
°23°* STACH INSERTS A CHARACTER INTO THE BUfFER,

0231*

0232
0233
0234
0235
0236
"'237
"'2313
0239
1fl240
0241
0242
11)243
0244*
tc}245*
0246.
0247
02 4 8
02 49
0250
0251
0252
0253
0254
0255
0256
16257
0258
1cJ259
0260
0261
~262

0263
0264
0265
16266

757 4 0
75741
75742
75743
75744
75745
75746
75747
75750
75751
75752
75753

000000
f/J74~4t0

0UJ441

066~62

004065
002 0 41
01U737
1300~H

170001
036562
060040
127740

STACH Nap
8TB L.TEMP+8
AND B177
L.08 STABF'
CL.E,ERB
SEZ,R55
AL.F',SL.A,AL.F
lOR 1,1
STA 1,1
lSZ STAttF
L.OA LTEMP+8
JMP STACH,l

SAVE e.RE ••
CL.EAR TOP 811S.
GlT BUFFER POINTER,
CHARACTER ON LtfT
CHARACTER ON RIGHT,
BUMP POINTER.
RtSTORE OL.I) O~REG,lNTO A,

STA30 OUTPUTS A 3.. Dl"1T NUMBER,
75754
75755
75756
75757
75760
75761
75762
75763
75 16 4
75765
75766
75767
757 7 0
75771
75772
75773
75774
75775
75776
75777
7 6000

0"'0000
2106400

10°4 00

STA3D NOP
CL.8
DIV .10k)

000437
017716
017700
~60412

017740
12 77 54
030006
031066
000115
0 7 21334
072137
001630
000101
000125
061130
1662270
0741r:102

STAD6
STAOU
STADC
STATS
STATE
STAQV
STAIO
STAOL.
STASW
STAUS
OS1V2
$STA

JSB
J5B
L.DA
JSB
JMP
OEF
OEF'
OEF
OfF
OEF
OEf
OEF
OEF'
OEf
OEF
OfF
EQU

STADG
STA2D
,+408
STACH
ST430,1
OIREC+6
olREU+6
OAOI..C
COMC>
COMTE

GET 1ST

DI~lT

IN A, LAST 2 IN

OUTPUl fIRST DIGIT,
OUTPUT I..AST TwO"
OUTPUT BL.ANK,

L.IBUS.~f.t6

IOEC+1
DADL.N
TTY00+101SC
TTY32.?OISC
STAV2
*

tie

PAGE 11552 #47
0268
0269
0270
0271
0272
0273
0274
0275
0276
0277
0278
0279
0280
0281
0282
16283
0284
0285
0286
0287
0288
0289
02 9 0
0291

STATUS OVERL.AY • SYSTEM CONSUL.E

7f>000
75000
750liU
75002
75003
75004
75005
75006
75007
7501e
75010
75011
75012
75013
75ld14
751110

1017411

75016
75017
75020
75021
75022
75023
75 0 24
75025
75026
75027
70 030
75031
75 0 3 2

034034
034034
03403j
0270UI
i'J17654
017666
006412
040504
052040
000000
0 6 0112
06411J
"117411

15~16

017666
044504
1/I!>2040
dWl0000
060341
070033
06777~

~740J4

160034
034034
002003
0c7ii316
164034

OR" L.IBRA

JSB SlAST
ASC 2,10T

PRINT
lOT

OCT
LOA
STA
LOB
8T8

3 lOT
TRACKS

.,,3
"LTEMP+3

STAID
L.TtMP ... 4
<

•

STAIR EQU
L.OA LTEMP+4,I
lSZ LrEMP+4
SZA,RSS
JMP STAIQ
LD6 LTEMP+4,1
JSB STALL.
ST A1(.1 EQU
ISZ LTEMP+4
lSZ LTEMP+4
ISZ LTEMP+3
JMP STAIR
JSB STAPR
JSB STAST
OCT 641S
ABC 2,AT

•

GET ADDRESS
SKIP IF lEHO
GET LEN(lTH
OUTPUT THEM

OCT 0
0292
LOA AUL.Oe
0293
LOB AOLEN
0294
0295
JSB STAL.L.
i296*
PRINT OUT THE OISK AOT
0297·
1291.
0299 751(}33 ""17666
Jse STA~T
0300 75034 006412
oCT 6412,5H14
751d3!J ~05UJ4
A8C 4,ISC AUT8
0 3 kll 75t)36 0 445 23
75~37 041440
75040 134051d4
75041 052123
OCT (21
0302 75 0 4 2 0000010
IdJe3 75043 017654
Jse 8TAPR
PRINT THE. BUFfER
LOA .""4
4 PER
1d3 0 4 75 0 44 060 346
0305 75fd45 07003~
L.INE
STA LTt:;MP+3
LOB STADe
.. > 1ST OlSC ADT
0306 75046 ~67767
121307 75047
STAOJ EQU •
STa STAV1
0308 700 47 ~76001
0309 75050 162001
LOA STAV1,l
GET ADDRESS
03It:) 75051 002003
SlA,RSS
JMP STAOK
SKIP .IF ZEHO
0311 75052 027064
fdJ12 75t:)5J ~660t:)1
LDB SlAVl
0313 7512154 044362
Ao6 .+OAOLN""oAoL.C
0314 75055 164001
LOB ti,l
GET L.ENGTH
1()315 75t:)56 017411
JS8 STAL.L
OUTPUT THEM
ISZ LH.MP+3
0316 75",57 034033
L.INE FUL,,1..1

PAGE 1!!553 #47
0317
0318
031 9
0.J20
0321
0322
0323
0324
0325
0326
0327
0328
0329
03313
fil3l1*
ill32.
0333*
0334.

75060
75061
75062
75063
75004
15064
75065
75066
75067
751370
75071
75072
751373
75074

STATUS

027064
017654
06034b

070033
066001
13136004
057774
0132130.
0271347
060033
050346
1302001
017654

OVER~AY

•

SY~TEM

JMP
JSB
LOA
SlA
STADK t.QU
LOB
INB

STADK
STAPf.(
,"'4
LTEMP..,3
•
STAvl

~DA

~TEMP ... 3

cpa

STAD!.
RSS
JMP STADJ

CPA ,,,,4
RSS
JS8 SlAPR

CONSOL.E
NO
YES, PRINT !T

FINISHED ALL DISC AD1S1
YES
NO
SKIP

PRINTI~G

OF BLANK

~INE

THIS SECTION PRINTS OUT THE DIRECTOHV
THAT ARE or~ THE DRUM

TRAe~s

0335.

0336
0337

0338

111339
0340
0341
0342
0343
0344
0345
0346
0347
11:1348
0349
0350
0351
ra352
0353
111354
0355
0356
0357
0358
0359
0360
0361
0362
11:1363
0364
0365
1366

0367

75075
75076
75077
751160
75h'll
7 5 102
751163

75 1°4
75Ui5
751(66
75107
751(67
75111!!
75111
7 5 112
75113
75114
75115
75116
75117
75120
75121
75122
75123
75124
751204
75125
75126
75127
75130
15131
75132
75133
75134

01766()
006412
042111
051105
041440
00f1l000
01765'06 0 346
070033
067765
076001
162""1
002003
027124
066001

044344
1b4001

ra17411
034033
027'124
0~7654

060346
070033
06 6 00 !,
044361
057766
002001
027107
060033
050346

JSB STAST
OCT 6412
ASe 3,OlREC
OCT 0
JSB STAPR
LOA _"'4
SlA ~TEMP+J
LOe STADb
STADX EQU
STS STAV1
LOA STAV!,l
SZA,RSS
J"'P STADY
L.DB STAV1
ADS , .. 6
LOB e,l
JSB SlA~L.
ISZ L.TEMP+J
JMP STAOY
JSB STAP.R
LOA , .. 4
SlA LTEMP.3
STADY lQU
L.oa STAVl
ADa .+7
CPS STADU

•

4 PER
~lNE

,,> flRST L)lHEC ENTRY
GET ADDRESS
SKIP IF ZfRO
GET l..ENGTt-i
OUTPUT THEM
L.INE fUL.L.?
NO
YES, PRINT IT

•

RSS

JMP STADX
LOA L.TfMP+3
CPA ,-4

002001

RSS

011654

JSB STAPR

75135 ra17666

JSB STAST

FINISHED ALL DIREC ENTR1ES1
vES
NO

SKIP PRINTINi Of SLANK L.INt

036S.

0369

PRINT

PAGE

",372
"'373
0374
0375
0376
10377
13378
10379

0380
"'381

~382

",383
~Ji46
~385

0386
0387
0388
~389

0390
~391

fc13 9 2
",393
0394

~554

~399

0400
04fc11
0402
",403
164"4
0405
ro 4 06
0407
0408
0409
"'410
",411
.,412
",413
0414
0415
0416
",417
0418
0419
0420

STATUS OVERLAY •

75136 00512;$
75137 054523
7514~ "'52100
75141 046440
75142 01000010
75143 1002400
75144 070033
75145 067770
751 4 6
75146 074034
75147 160001
75150 fc110764
75151 050033
75152 027155
75153 070033
75154 1017426
75155
76155 0646",34
75156 006004
75157 057771
75160 002001
75161 027146
75162 017666
75163 O",6412
75164 0~5125
7516b 0515",5
75166 051123
75167 00~HcH'0
75170 liH7654

11)380.

0396
0397
0398

#47

75171
75172
75173
75174
75174
75175
75176
75177
752130
75201
7t>202
75203
752"'4
75205
752"'6
752,,6
75207
752lk1
75211
75212
75213
75213
75214
75215
75216

06 03 42
070033
1067775
076001
162001
0"'200J
02721J
017426
034033
02720 6
1617654
060342
1lI7k:10JJ
",66001
044375
057776
002"''''1
027174
060",33
050342

002001

017654

~YS1EM

CONSO~E

UCT 5123
ASC 3,Y~TI;;.M

OCT
CLA
SlA
LOB
SlANE EQU
STB
LOA
AND
CPA
JMP
STA
JSB
STANG EQU
LOB
INB

'"
LTEMP+J
STATB
.,.
LTEMP+4
e,I
M128
LrEMP+3
STANG
LTEMP+J
STADS

SET COMPARE

B w>

D~UM
eEGINNIN~

ADORES~

OF COM TABLe

GET THE NlXT USl:.V DRUM AOORlSS
MASK OFF THE SEcTOR PART
Is IT ALREAOY PRINTED
YES
NO, PRINT CUT TRACK PART

•

LiEMP+4

cpa STATE

GET COM TA~LE POINTER
ADVANCE TO Ni-XT ENTRY
CHECK FOR ENO OF TABLE

RSS
JMP STANE
SCAN ON
JSB STAST
OCT 6412,b125
ASC 2,SERS

OCT 0
JSB STAPR
LOA ,-8
STA ~TEMP+J
LOS STASW

8 Pl:.R
~lNl:.

-> DISC AODRESS FOR lJY00

STASX l:.WU •
ST8 SlAV1
LOA STAV1,1
SZA,RSS
JMP STASZ
DONI:. IF ZlRO
oUTPUT IT
Jse STADS
ISZ ~TEMP+~
LINt. FU~L
JMP STASY
NO
YES, OUTPUT IT
JSe STAPR
LOA
STA LTEMP+3
SlASY EQU .,.
LOB STAV1
ADS .+TlY~1.TTY00
CPS STAUS
FINISHED ALL. USERS
k$8
YES
JMP STASX
NO
SIASZ EwU .,.
LOA LTEMP+3

._e

CpA

._a

RSS
JSB STAPR

SK1P PRINTING SLANK LINt:.

PAGE 0555 #47

"

-

0421*
0422*
0423*
0424
0425
10426

0427
0428
~429

0430
0431
16432

0433
0434
0435
0436
0437
0438
0439
0 4 40
0441
0442
0443
0444

0 445
0446
~447

0448
0449
045'1
0451
0452
",453
0454
0455
0456
0457
0458
0459

STATUS

• SYSTEM CONSOLE

OVER~AY

PRINT OUT DISC AL.L.OCATION TABL.l:.
75217
75220
75221
75222
75223
75224
75225
75226
75227
75 23 0
75231
75232
75233
75234
75235
75236
75237
75240
75241
75242
75243
75244
75245
75246
75247
75250
75 251

017666
005104
044523
0414410

JSB STASl

oCT 5104

ASC 7,lse AL.LOCATION

~40!514

046117
041501
~e)2111

047516
011415
~05012

020040
044504
052040
000000
017654
017473
064206
044354
1042016
10~001

10440~

074002
IU751fd
060347
064356
017447
7~252 017654
75253 017666
75 2 5 4 00 E040
75255 02~104
75256 044523
75257 ~4144iO
75260 040504
75261 05204~
75262 ~k)00~0
75263 017654
75264 017510
75265 0616342
75266 ~64367
75267 ~17447
75270 017654
75271 017666
75272 005040
75273 020104
75274 104452ii
7527f;i 042503
75276 0~0000
75277 1017664
75300 0175HJ
75301 060342
753~2 070033

OCT 11415
OCT 6012
ASC 3, lOT
OCT
JS6 STAPR
JSb 8TASR
LOB L.STDA
ADS ,+2
OL.O S,I

"

DST STA V2
JSB
L.DA
L.0a
JSB
J'SB
JSB
OCT
ASC

OCT
JSB
JSB
LOA
L.DB
JSB
JSij
JBB
OCT
ASC

8TAOR

,-3

XOff-CR

REAL) SOD', ST RAP

SAVE ADDRESS Of OAT
READ OAT
3 ENTRIES
.> 1ST lOT lNTRY
SET UP SUFfER FOR lOT
PRINT IT

,+4
BrADA
sTAPR
STAST
5040
6, DISC A01

"STAPR
STAOR
,_8

,+13
STAOA
STAPH
STAST
!5040
3, OIREC

REAO DAT 8ACK
6 ENT~IES
.> fJ.RST DISC Aor ENTHY
SET UP SUfFER FOk A01
PRINT IT

OCT 0

JSB STAPR
JSB STAOR
L.OA ,_8
STA I,.TEMP+3

READ OAT
8 pER

LINE

PAGE
~460

0461
~462

1d463
0464
046~

~466

[0467
0468
0469
1d470
1d471
1d472
0473
0474
1c:J475
(0476
0477
047t:t
0479
0480
04 8 1
"482
"483
(0484
",485
0486
0487
1()488
0489
0490
0491
0492
0493
1fJ 4 9 4

~495

0496

",497
049t:t
0499
"'~00

0501
0502
",503
1()504
05 0 5

0506
0507
e508
0509

~b56

7531ci3
753",4
75305
75305
753"6
753 0 7
7 53 10
75311
75312
75313
75314
75315
75316
75317
7532"
75321
75322
75323
75324
75325
75326
75327
75327
75330
75331
75332
75333
75334
753Jb
75336
75337
75340
75341
75342
75343
7 5 3 44
75345
75346
15347
7535",
75351
75352
75353
75354
75355
75356
75357
75360
75361
75362
75363
75364
75365
75366
70367

"47

STATUS OVE.RL.AY .. SYSit:.M CONSUL.E

~645'62

1()44417
1()76001

1°42 00
174001
002003
00600c
002001
027327
101100
017722
017666
020040
000"00
iOJ4033
027327
1017654
060342
070033
rdl75 U)
0 06 (cHlll
044355
060207
003004
0td2004
040562
0b4001d
002001
027305
060033
051d342
002001
017654
017 666
0,,5040
020123
1054523
052hl5
0464410
fdId00k7!d
1017()54
017510

LOb L180
A08 t +37

.

STATX EQU
STtt STAV1
OLD STAV1,1
SZA,RSS
SZB
RSS
JMP STA'JY

swp

JSB STA60
JSB STAST
ASC 1,
OCT
ISZ LTEMP+3
JMP STATY
JSB STAPR
LOA , .. 8
srA L.TEMP"'3
JSB STAOR
STATY EQU
LOB STAV1
AOB .... J
LOA OATLN
CMA,INA
INA
AOA LlijO
cpa A
RSS
JMP STATX
LOA LTEMp+3

CpA

.11>

FlkST OIREC lNTRY

GET UISC ADORESS

SKIP IF Zl:.RO
OUTPUT IT
Z BLANKS

'"

LINt:: fULL1
NO
YES, PRINT 1T

..

READ OAT AGAIN

FINISHED ALL lNTRIES1
YES
NO

._8

HSS

SKIP PRINTING BLANK LINE

JSB STAPR
JSa STAST
OCT 5040
ASC 4, SYSrt:M

OCT

~

STAPR
STAI.)R
LIBD

160001
07003J
006004

JSB
JSB
L.DB
LOA
Sr A
INB

l1d420~

01..0 B,l

GET ADOREss

SIl4P
JSB 8TA60
L.OA ,+40 8

0177~1

JaB STACH

SYSTEM LIBRARY
OUTPUT IT
BI..ANK

0601r:'J3J

LOA LTt:MP+J

OUTPUT I..ENGTH

~o45b2

GET OAT 8ACl(

6,1

LTEMP..,3

SAvE LENGTH
(IF

100001

101100
017722
060412

PAGE 1/;1557 #47
16510
1d511
0512
0513
1d514
0515
ft)516
1d517
10518
0519
0520
1d521
0522
0523
0524
,,525
rcl526

753716
75371
75372
75373
75374
75375
75376
75377
75400
75401
75402
7541213
754164
754fr:}o
75 4166
75407
754UI

STATUS OVERL.AY .. SYSH.M CONSOLE

017754
k:l17666
020040

JSS STAJD
JSB STAST
ABC 1,

000160"

OCT 0

064205
044355
076001
060346
ft)17520
017654
060345
1617520

017654
1360346

0175 2 111
01765~

026267

LOB LOBSA
ADS ,+J
STa STAV1
LOA ,-4
JSB STASS
JSB STAPR
LOA ,-5
JSB STASS
JSB STAPR
LUA ,_4
JSB STASS
JSB STAPR
JMP LENt)

2 SI.ANKS

FINST DlSr.;
ADDRESS IN SST
SEGMENTS 1"6
SEGMENTS

~.g

SE.GMENTS 10-13
OONE

PAGE

~558

#48

STATUS

OVER~AY

~

SYST~M

CONSO~E

0002.
I(JI(J~J.

STALL UUTPUTS A DRUM LOCATION AND LfNGTH

'H'''~.
01605 15411 0000ft0
16006
16007
161t"H~

16009
16010
I6ld11
Ith.l12

"'1613
0014
ItHH5
IcHd16

75412
75413
75414
75415
75416
75417
754216
75421
75422
75423
75424
75425

0740:52
1d17426
0601632
0"3~04

01064016
lra0401d
001033
017716
ft'17754
060412
0177413
127411

STAl..1.. NOP
STS I..TEMP+2
JSB STAOS
LOA LTEMP+2
CMA,lNA

CL6

SAVE LENGfH,
OUTPUT ~HUM AODR~8S

GET L.ENGTH,
MAKE POSlTlvE.

DIV IJVSRS+l

(1fT flRST iJIGIT,

JSB
JSB
LOA
JSB
JMP

PRINT IT,
PRINT REMAINJNG 3,

STADG
STA30
,+406
STACH

OUTPUT

B~ANK,

STALL.,1

'lUI.

1601d* BTADS OUTPUTS A DRUM ADORESS AS 8 CHARS FOLLOWED BY A

16019-

0020
0021
01022
16023
002~

0025
0026
0027
~1628

10029

16030
0,,31
16032
16I6J3

16034
""35
"1636

75426
75427
75430
75431
75432
75433
75434
75435
75430
75437
754416
15441
7~442

001600'"

16716031
001222
01ra355
1tJ17716
060431
017740
k)60031
001727
010734
01770'"
060431
017740

75443 0616~31
nj444 1f.l10441
75445 017754
75440 127426

Vlk»Jl.

BTADS NOP
STA LTEMP+l

RAL.,RAL.

AND ,+J

JSB STA(')G
LOA ,+57~
JSB STACH
L.DA LTEMP+l
AL.F,ALf
AND 877
J8B 5TA20
L.DA ,+578
JS~

STACH

LOA L.TEMP+1

SLASH,
GET TkACK NO,

SL.ASH,

SECTOH NO,

AND B177
JSB 8rA;'0
JMP STAUS,1

""3d* BTADA PRINTS DISC ALLOCATION fOH THE lOT AND 01S, ADT
~j3g.

0040
16041
"'''42
0043
"044
004b

0046
101647
fcH14t5

1tJ049
IdldSk1
016S1
1d052
0053
0054

75447
7545fd
75451
75452
75452
75453
75454
75455
75456
75457
75460
75461
75462
75463
75464
75465

0001000
07003.5
1t'44562
074034
1042010
100034
"-'02003
0061f.l02
002001
027466
101100
1017722
017666
020040
00000~

STAOA NOP
STA
ADB
STAAl EQU
STB
OLO

LTEMP+3
LISO

...

NUMBER OF ENTRIES
-> 18T ENTHY ~E "ANT

L.TEMP+4
LTEMP+4,1 GET ulSt

AO~RES8

SZA,RSS
SlB

RSS

JMP STAA2
SWP
JSB SlA60
JSB STAST
ASC 1,

OCT

°

SKIP IF Zt;HO
OUTPUT IT
2 BLANKS

~L.ANK

PAGE 0559 #48

STATUS OVERLAY

0~o5

75466

1tl~56

75466 0640J4
15467 044355
75470 034033
75471 0 2 745 2
75472 127447

0057

0058
0059
0060
0"61-

0062*
"063_
0064
0065
0066
0067
0068
0069

0070
0071
0072
0073

0074
0075
11076.

STA6R

RE~OS

75473 000000
75474 06~750
75475 070215
75476

00240~

75477
75500
75501
75502
75503

0fd6404
104400
000030
064205
045036
060520
114217
026311
121473

75504

75505
755fd6
75507

STAA2 EQU
LDB
ADa
ISZ
JMP
JMP

~

SYSTEM CONSOLE

*

LTEMp+4
.+3
L.TEMP+3
STAAl
8TAl)A,~

.> NfXT ONE

FINISHED?
NO
yES

THE 800TSTRAP
STABR NOP
LDA M512
STA MWORO
CLA
CLa,INB
OST LTEMP
LOB
ADB
LOA
JSB
JMP
JMP

L.ENlrTH
DISC AODRESS

LOBSA
BIT15

CORE AODRES$

DISCl,l
DOERR
STABR,I

READ IT

OLTEM

0077· STADR READS THE DISC ALL.OCATION TABLE
""7th
007g 75510 1600000 STADR NOP
0080 75511 063777
L.OA PSTV2
W~ OlsC AOOR~SS IN SlAY2 + STAVJ
0081 75512 o64207
LDB DATLN
STB MWORO
0082 75513 074215
LENvTH
liHi)83 75514 064566
LDtt LISDI
CORE ADORESS
0084 75515 114217
JSB OlSC:Z,l
READ IT
JMP DOE~R
0085 75516 026311
0086 75517 1275U)
JMP STADR,l
1187.
0088* STASS FILLS THE bUFFER WITH SYSTEM SEGMENT
0089. ADDRESS ANO LENGTHS
0090*
0091
75520 000000 STASS NOP
sAvt _ of S~GMENTS
0092 75521 070033
SlA LTE.MP+J
JSB STABR
READ aOOTST~AP
0093 75522 017473
0094 75523
STASI EQU •
0095 75523 104200
OLD STAV1,1
GET DISC ADDHESS
75524 174/;,01
SWP
0096 75525 1 fa 1100
0097 75526 017722
JS8 STA6D
OUTPUT IT
0098 75527 06 0 412
LOA ,+408
BLANK
0099 75530 017140
JSB STACH
0100 75531 k16600~
LOB STAY1
75532
t(l44Jb0
A08 ,-2
0101
LOA tJ,I
GET L.ENGTH
0102 75533 160001
AOtJ ,+6
0103 75534 044360
STt; 8TAVI
0104 755J5 076001
0105 75536 fa01727
ALF,AL.F
CONvf.RT
10106 75537 03076;i
lOR HIMSK
fdl07 7554fd 003 00 4
CMA,INA
TO BLOCKS

PAGE
0108
1a109

0110
10111
0112
(1)113
0114

~56V!1

75541
75542
75543
75544
75545

#46

STATUS

017754
017666
0200416

000000
0J4id33
15546 027523
75547 127520

OV~RLAY

• SYSTtM CONSOL,E

JSS STAJD
JSB STAST
A8C 1 ,
ocr 0
18Z LTEMP+3
JMP STASt
JMP STASS,I

OUTPUT IT
2 BLANKS

PAGE

---=---

Ir'.l116 *
rU17*
011'*
IU19*

~561

#48

PORT

w

SVST~M

CONSO~E,

THIS CUMMAND GIVES A PRINT OUT OF rH~ SAUD RAT~ &
CHA~,SIZE FOR WHICH THE PORT IS CONF1~URED,
TH~

DATA PRINTEO IS,
PORT NR,
BAUD RAT:::
CHAR, SIZE

"'120*
0121*
0122*
frH2J*
tc'l124* FORMAT:
0125*
10126*
PURT.POkT#(,PORT#'t,tt, ••• J CR
0121* OR
PURT .... A\~l.
"H28.
0l2S)*
ORG l.IBRA
0130 75000
ra131 750ra0 002400
Cl.A
0132 75001 072767
STA PORSI
STA PORS2
~133
75002 072770
0134 75003 072771
STA PORTl.
srA PORC1
ra13!) 751tH,4 070031
115136 7 5005 06ltH77
LDA NPORT
SET UP ~IMIT.
STA PQRCN
ra137 75006 070030
0138 75"'07 114572
JSI,i T35CH,1
iET Ct1AR,
0139 75010 026275
JMP LFRER
CR, ERROR'
CPA POR,A
NO CR. _"A"1
0140 75011 053372
ra141 75012 0270J7
JMp pORJ
yES,
0142 75fd13
POR1J EQU *
0143 75013 017 2 7 0
JSB POROG
NO. DIGIT'l
In44 75014
POR0 EQU *
0145 75014 017362
YES, COMPUTE PORT NR,
JSB PORSP
~~T NEXT CHAR,
JS6 TJoCH,l
0146 75015 114572
0147 75016 027022
CR,
JMP POR2
0148 75017 050426
CPA .... 648
NO CR, COMMA?
0149 75°20 002 11501
RSS
VES,
,JMP POR13
NO,
0150 75021 11527kJ1J
0151*
POR2 EQU •
tc'l152 75022
LOA PORC1
CHECK l.EGAl.ITY.
115153 75022 060031
0154 75023 040030
ADA PORCN
0155 75024 002~2!
SSA,R5S
>~lMIT1
.H5b 75025 02627~
JMP LFRER
YES, ERROR'
JSB PORIN
NO, 8ET INDlCATOR.
0157 75026 017226
0158 75027 060055
LOA T35LC
PICK UP LAST CHAR.
CPA ,+158
~AS IT A CRT
~159
75030 05 0 3 0 7
JMP PUR4
YES, GIVE T~E INfORMATION,
016ra 75031 027065
CL.A
0161 75032 002400
fd162 75033 0700:!1
STA PORe1
JSB T35CH,I
NO, GET NEXT CHAR.
0163 750J4 1141572
0164 75035 027065
JMP POR4
CR, GIVE THE INFORMATION,
JMP POR1J
NO CR,
016 5 75036 02701J
16166*
0167*
cOMMAND FOR ALL PURTS GIVEN.
PORl EQU •
0168 75037
0169 75037 114572
J5B TJ5CH,I
GET N~XT CHAR.
JMP LFRER
CR, ERROR,
irH70 75040 026275

PAGE 0562 #48
0171
0172
IcH73
0174
0175
0176
0177
!cH7S
01 7 9
16180
0181
"1 8 2
0183
0184
0185
0186
0187
fU8S
0189
0190
0191
0192*
'11193
'11194
0195
0196
10197
0198

0199

020~

0201
0202
02103
0204
0205
0206
fl287.
~20a

0209
162116

0211
02 12
0213

PORT .. SYSTEM CONSOL.E,

75041 ft}53373
75042 002~~1
75~4J 026275
75fd44 114672
75045 026275
75046 053373
75047 002001
75~50 ft}2627!;
7ti051 114572
75052 002001
75053 '1262715
75054 ~02401O
75055
75055 070031
75056 040030
75057 002021
75060 {(J27065
75061 017226
75062 060031
75063 002004
7 5 064 1027055
75065
75065
75066
75067
751371(l
751.171
751c)72
75073

1060303
{(J72562
017312
1005040
050117
1/151124

75~74

~2tt'04~

75075
75076
75077
75100
75 litH

0411161

CPA POR,L

NO CH, '''L."1

RSS

JMP L.FRER
T36CH,1
JMP L.FRER
CPA POR,L.
JSB

NO, ERROR,
YES, GET NEXT CHAR,
CR, ERROR'

."L."1

RSS

JMP LFRER
J8B TJ5CH,1

NO, t.HRORI
YES. GET Nf:.XT CHAR,

HSS

JMP LFRf;R
NO CH, ERRORl
CL.A
eRI
PORs) EQU •
STA PORe1
AOA PORCN
>L.IMIT?
SSA,RSS
JMP POR4
YES,
JS8 PORIN
NO, SET INvICATOR,
SUMP PORT NR,
LDA PORC1
INA
JP1P POR~
~lvE THE INFORMATION,
POR4 ElilU
L.OA T3582
INITIALIZE.
STA STASF
BUFFER PO.tNTER,
JSB PROST
OUTPUT HEADING.
OCT 5040
L.F.SPACE
ASC 4, porn

•

02~"4"

ASC 6,SAUD RATE

1052504
020122
1/140524
10424416
751~2 020040
7~10J 0 4 151'"
75104 040522
7~1"b 1627040
75106 0!>1511
75107 05510f;
75111e? 0"0~00
75111 "'60412
75112 "64 3 °5
75113 016213
75114 060303
7b115 072562
75116
75116 1062771
7~117 050372
75120 el271J~
75121 0~640k1
75122 1662767

ASC !),CHAR, SIlE

POR5

OCT
LOA
lUB
JSB
lDA
STA

16

t:.QU

•

,.J2
T3581
TJ5SP
T35t;12
STA6F

LOA PORTI..
CpA ,.16
JMP POR22
CI..B
LDA PO~Sl

A. NR. OF CHARS.
s- ~UfFER POINTE~,
PRINT & SUSPEND,
RESET BUfFE~ POINTER.

DONE?
ye;s.
CI..EAk on AND Gf:. T
LOWER INDICATOR,
'-----'

PAGE
~214

1t121!5
0216
0217
0218
°219
0220
0221
0222
0223
0224
0225.
~226

0227
022S
0229
0230
"231
0232
~233

0234
0235
0236
0237
023S
0239
0240
0241
0242
0243*
8244.
8245.
0246
02 47
024S
0249
0250
0251
0252
16253
16254

0255
0256
0257
fd258
0259
1c)26kl

0261
0262
0263
0264
0265
ld266

~5()J

151 2 3
75124
75125
7512b
75127
7513 0
75131
75132
75133
75133
75134

75 135
75135
75136
75137
75140
75141
75 14 2
75143
75144
75145
75146
75147
75150
75151

#48

PORT '" SYSTEM CONSOL.E,

0{d0010
0til6t)04

IUT aET?

~"'1300

INB
MAR

036771
027110

STA PORSl
8l6,RSS
JMP POR7
JSB POR6
JaB PROPR
fQU
lIZ PORTL.
JMP POR5

072767
006003
027133
O17154
017300

062771
050412
026267
006400
062710
000910
006004
001300
072770
001j003
027152
e17!!>4
iU7300

~_5152

75152 036771
75153 ld27135

75154
75155
70156
75157
75160
75161
75162
75163
75164
75165
75166
75167
75170
75171
75172
75173
75174
75176
75 176
75177
75200
75201
75202

St.A

000000
06 0 412
017324
017312
020040
0~000'"

062771
017344
tJ11312
020040
020840
020040
00B00ld
062771
001727
03277~

114500
102311
027175
102511
017353
017312
tJ20040

PORl

•

YES, BUMP (~).
ROTATE RI(il'l':'.
R~STORE INOtCATOR,
IF !:.tIT.0, JUMP,
OTHERWISE SET UP BUFfER,
pRINT BUFFEH AND SUSpENO,

eUMP COUNTER.
GO ~ACK.

•

POR22 EQU
LOA PORTL.
CpA .+32
JMp L.ENO
CL.B
L.DA PORS2
St.A
INa
RAR
STA PORS2
SZB,RSS
JMP PORe
JSB POR6
JaB PROPR
PORe EQU
18l POHTL
Jf'4P POR22

•

POR6

NOP
LOA
JIB
JSB
ASC
OCT
LOA
JSB
JSB
ASC

,+4 0 B
PROCH
PROST

DONE"
yES. 'ET OuT,
Ct.EAR (8) ANO GET
UPPER INDICATOR.
BIT 8ET1
YES, BUMP (a>,
ROTATE RIClHT,
RESTORE INOICATOR,
IF BIT.", JUMP,
OTHERWISE SET UP BUFFER,
PHINT BuFFF.R AND SU8pEND,
BUMP COUNTER,
GO SACK.

OUTPUT A

~LANK.

OUTPUT 2 BI..ANKS,

1,
0

PORTL.
PRo2D
PROST
J,

OC;T 0
LOA PORTL
ALF,AL.F
lOR WSP
JSs 814SC,1
SFS CH2
JMP *.1
LlA CH2
JSB PR030
JSB PROST
ASC 5,

GET PORT NR,
OUTPUT PORT N~.
OUTPUT 6 BL.ANKS,

GET PORT NR,
ROTATE INTO POSITION,
MERG~ INTO OPcOOE,
A8KFOR BAUD RATt,
GET SAUO RAlE.
oUTPUT BAUD RATE,
OUTPUT 10 BL.ANKS,

,tf

~'

It

PAGE "f>64 1f48
752~J

0267
ft326S
16269
0270
0211
0272
",273
0274
0275
0276
1/)277
0278
0279
0280
0281
0282

PORT " SYSTEM CON501.t:.,

~216040

752134 020tr:}410
75205 02004'"
752"'0 020040
752~7 000"'00
75210 062771
75211 001727
75212 030252
75213 114500
75214 1162311
75210 1a27214
75216 102511
75217 002003
75220 027223
75221 0173416
75222 127154
75223
75223 0616424
75224 011324
75225 127154

OtT 0
LOA PORTL.
ALF,AL.F
lOR wes
JSB S148C,1
SFS CH2
JMP "'.1
L1A CH2
SZA,RS8
JMP POR11
J8B PHOOG
JMP POR6,l
PORll EQU '"
L.OA .... 42
JaB PROCH
JMP POR6,!

GET PORT NR,
HOlATE INTO FOSITION,
ASK FOR CHAR. SIZE.
GEl CHAR. SIZE,
-0'1

Yf;S.
NO, OUTPUT IT,
RETURN.
OUTPUT "RETURN.

".

0283.
i284.

028!h
0286
kl287
0288
16289
0290
kl291
0292
0293
0294
1r:l295.
0296
0297
"'298
02 99
",300
0301
0302
klJ03
"304
0305
1331/)6
0J07
0308.
0309
0310
0311
13312
0313
0314
1r:l315
0316

0317

75226
75227
752JId
75231
75232
75233
75234
75235
75236
75237
7524"
75241
75242
75243
75243
75244
75245
75246
75247
75250
75250
75251
75252
75252
75253
75254
75255
75256
75257
75257

1660031

13130000

PORIN NOP
L.OA PORC1

0640013
005323
1305323
004010
040332
003100 4
07fjJf633

RBR,RBR
RSR,RBR
SLB
ADA ,-16
CMA,INA
STA PRCCN

062767
0041610
062770
064033

L.OA PORSl
sL.S
L.oA POR82
L.OB PReCN

01a601r:lJ
027250
001300
006004
1627243
030353
06403.3
006kl03
0212,7
"'0120"
006004
027252
064031

lOB A

PORI! lQU •
8Z8,RSS
JMP POR12
kAR

INa

JMP PORll
POR1 2 EQU
"
lOR ',+1
L.OS PRCCN
poR13 EQU •
sze,~ss

JMP POR14
RAL.

INS

JMP PORIJ
PORl4 EQU '"
Loe PORC1

SETS PORT 6lT IN INDICATOR,
A.POIH.
B-PORT.
ROTATE ~lT.4 INTO BlT#f6,
PORT#>151
YES, MAKE peRl. ,ROM 14-15.
NO. NEGATE.
SET UP COUNTt.R,
A_LOWER IN~lCATOR.
uPPER OR L.OwER PORT1
UPPER, A-UPPER INoICATOR.
B_COUNTER,
OONE1

vfS,

NO, ROTATf RIGHT ONE 8lT.
SUMP COUN1ER.
GO lUCK,
SET tH T,
S-COUNTER.
DONE1
YES,
NO, ROTATt. '-EFT ONE elT,
BUMp COUN1ER.
GO BACK.

PAGE 0565 #48

PORT

031ti
0319
0320
0321
0322

7526~

0323

7526f) 0"'2001

0324
0325
1i.1326
0327.
032ij
0329
0331(}
0331
0332
0333
0334
0335
fd336tf
0337tf
ellS.
IIl39.
0340·
0341.
0342
0343
0344
0345
1i.1346
1d347
"'348
1&1349
1135~

75261
75262
75263
75264

SYSTEM CUNSOL.E.,

005323
005323
004010
1627266
07276i

75266
75266 072770
75267 127226
752716
75271
752/2
75273
752 1 4
75275
75 2 76
75277

w

0k1'''HH'I
040316
002021
026275
040364
002020
02 6 2 75
127270

RBR,RBR
RBR,RBR
SL.B
JMP POR15
aTA POR~l

UPPER OR

~OWER

PORT?

L.OWER, STORt, IN L.OWER INDICATOR.

RSS

POIU5

EQU tf

STA PORS2
JMP PORIN,l

PORDe; NOP
AUA M72B
SSA,RSS
JMP LFRER
ADA ,+1'"
SSA
JMP L.FRER
JMP PORUG,1

UPPER, STORE IN UPPff< INDICATOR"

EXIT,

CHECK IF 01"IT IS INPUT,
OIGIT1
NO, tRROR,
MAY e~,
NO. ERROR'
DIGITI RETURN,

PROPR PRHHS THE SUFfER,
7 5 300
75301
753ra2
75303
75304
75305
75306
753",7
7 5 31k1
75311

000000
0 6 3300
072213
060303
003004
042~62

064303
076562
064305
026214

PROPR NOP
L.OA PROPR
STA TJ5SP
L.OA T35a2
CMA,INA
AOA 8TA~F
L.DS T356 2
8TB STABf
L.OB T3::)61
JMP T35SP+l

1d351
0352*
0353. PROST OUTPUTS A STRING,
0354.
0355 75312 0000(60 PROST NOP
L.OA PROST,I
035b
75313 16 3312
035 7 7 03 14 002003
SZA,RSS
JMP PROST,l
0358 75315 127J1:2
AL.F,AL.f
0359 75316 001727
0360 75317 017324
JaB PROCH
1r:1361 75320 163312
L.OA PROST,l
0362 75321 011324
JSB PROCH
lSI
PROST
0363 75322 037312
0364 75323 027313
JMP PROST+!

SAVE HETURN ADDRESS.
COMPUTE NR. Of CHARS,
RESET BUFFER
POINTtR,
OUTPUT,

Gf.T CHAR, PAIH,
OUTPUT LEFT CHAR"
OUTPUT HIGHT (;HAR,
BUMP POINTE~.
L.OOP.

0365.

!dol66* PROCH INSERTS A CHAR, INTO BUFfER,
0l67.
0368 75324 00000'" PHOCH NOP
0369 75325 074034
ST8 SPS2
SAVE e,
1()ol70 75326 kll!Q441
AND B177
CL.EAR L.EFT PART.
75327 066562
L.OB STA6F
kJJ71
GET BUFFER POINTtR.
0372 75330 004065
CLE,ERS

pAGE
0373
~374

0375
0376
16377
037a:t
10379

16~66

70331
75 332
75333
75334
75335
75336
75337

--46

PORT • SYSlEM CONSOLE,

002041
10017 3 7
130001
1716001

S~Z,RSS

AI..F,SL.A,AL.F
lOR 1,1
STA 1,1
lSZ SlAeF
LOA SPS2
JMP PROCH,l

036e6~

1660034
127324

IJ81*

0381* PRODG OUTPUTS A DIGIT,
'382.
0383 7~34ro 011'0000 PROOG NOP
ADA ,+601:$
0384 75341 040432
0385 75342 fd11324
JSB PROCH
0J66 75343 127340
JMP PRODG,I
1381.
038d* PR020 OUTPUTS A 2"OlCiIT NUMBER.
0389.
16390 75344 16ro00il0 PR02D NOP
fc)391 75345 ",O6400
CI..8
DIV ,"10
0392 75346 100400
75347 16100364
JSB PRODG
0393 753516 161734~
0394 75351 017340
JSB PROCG
0395 75352 127344
JMP PR02D,1
0396.
jJ97* PROJO OUTPUTS A 3-D1Gl1' NUMBER,
139'.
0399 15J53 0006/100 PRo30 NOP
0400 75354 006400
CL.B
DIV ,100
04tJl 75355 11d041rH)
75356 011'0437
JSB PRODG
O402 75351 017340
JS8 PR02D
0403 753616 fd17344
JMp PR03D,!
0404 75361 127353

CHAR. ON L.EFT,
CHAR, ON Hl~HT,
8UMP POINTE~,
A. B,

OUTPUT FIRST DIGIT.
oUTPUl I.A8T l WO,

040~h'

k'J406
0407
040d
040 9
0410
0411

0412
0413

75J62
75362
75363
75364
75365
75366
75367
75370
75J71

1600000
~70032

06003\
100200
000364
040032
11170031
12736il

PORSP EQU
NOP
STA
l.llA
MPY

•
PORC2
PORCl

SAVE (A).
UPDATE

,+1(6

ADA PORC2
STA PORCl
JMP PORSP,l

PORT
NUMBER,

i~1~*
0~1fh,
1J~16.

'~17.

0416
0419
0420
fd421
0422
0423
0424

0016316
75372 000101
7537;:) 010IiU 14
00031
00032
0003.5
00034

PORC N
POR,A
POR,l
puRel
PORC2
PRtCN
SPS2

EQU
OCT
OCT
lQU
EQU
EQU
EQU

l.TEMP
101
11~

LTf;MP"'l

l. n,MP+2
L.TEMP+3
L.TEMP+4

.A
III..

PAGE
0425

----..-.--

~567

75314

#48

PORT· SYSTEM CONSOLE,
SPOR

EQU.

PAG~

~427.

~5b6

.48

ROSTf.H

ROSTER PRINTS A LISTING, ON

TH~

SYSTEM CONSOLE, OF ALL
~ PER LINE.

0428. IDS Of CURRENTLY ACTIVE USERS. THEY ARE PRINTED

{O430
0431
t143 2
1d4J3
{O434
0435
0436
0437
043ij
0439

044'"
0441
{Q442
0443
0444
0445
1d446
(Q447

1c1448
0 449
1c1451d
0451
0452

1d453
0454
1d455

ORG LIBRA
LOA ROSLe
STA TJ58f
JSe ROST8

75000
75000 0bJl11
75""31 072611

75002 v.J17031
75'1103 0611 32

stT LF.BLANK IN 6UFFfR
PROC~SS

FIRST 8

I)EF TTY00.?10

LOA ,+48

75004 060432

LUe TJ561
JSB T3f>SP

75005 064305
75'106 016213

LOA TJ58F
lOR HIMSK
STA T358F
J88 ROST8
OEF TTY(d8+1ID
LOA ,+48
LDB T3fH~1
JaB T35SP
JSe ROSTS
OEF TTY16+?lD
LOA ,+48
LD8 T3561
JaB T35SP
JSe ROSTS
OEF TTY24+11D
LOA ,+48

75007 062611
75010
75011
75012
75 013
75014

030762
07 26 11
017031
061362
060432
751t}15 064305
75016 01621J

75017 017031
75 020 0 6 16 12
75021 060432
75{O22 064305
751423 016213
75024 017031
75025 062 0 42
751()26 060432
75027 064305

Loa

751t}30 026271

OUTPUT THEM.

PROCESS 2ND 8

OUTPUT THEM
PROCESS 3HU 8

OUTPUT THtM
LAST 8

PROC~SS

OUTPUT THtN,

T~581

JMP LENO"'2

0457* ROST8 FILLS Trl~ TELETYPE BUFFER ~ITH S IDS, THE fORMAT 151
0458*
Lf,BLANK,7CI0,BLANK,BLANK),lD

k'463

75031 000000
75fdJ2 060305
75033 002004
75034 v.l70k'30

0464

7503~ "'6 0 34 2

0460

0461

k'462
0465

0466
0467
0468

0469
0470
16471

0472
0473
0474
0475

0476
0477

",478
0 4 79

75036 fd70k131
75037 163031
15040 070032
75041 027045
75042
75043
75044
75045

060570
170030
"'34030
160",32

75046 "'02003
75047 021075
75050 0106"'2
75051 0064"'"
75052 1111040~
75053 kl00437

75054 074033
75055 07°001

ROST8 NOP
LOA
INA
STA
LOA
STA
LDA
STA
JMP
ROSI LOA
STA

HOS2

T3561

SET UP POINTER FOR F1RST 10.

ROSP

.-e

Rose
ROST8,l
ROSIO
ROS2
ASCBa
ROSP,l
ISZ ROSP
LOA ROSIO,I
SZA,RSS
JMP ROS.)
AND ~1777

CI.B

DIV ,10111
STt; ROST
STA 1

SET UP COUNTER.
SET UP POINT!R TO 10.
GO 00 FIRST 10,
PUT SLANKS IN AS SEPARATORS.
GfoT 10

lEST fOR NO 11;>,

MASK NUM6tR PA~' T
~ET #/100 IN A,. MOD 100 IN e.
SAVE LAST 2 DIGITS,
COMt;lNE FIR~T DIGl1 wITH

~ETTER.

PAGE 0569 #48
0480
0481
0482
0483
0484
0485
0486
0487
0481:1
0489
0490
0491
0492
0493
0494
0495
0496
"'497
0498
16499

0500
0501
0502
0503
0504
0605
0506.

0507
050a
0509
0510
0511
0512
051J
~514

0515

75056
75057
15060
75061
75062
75063
75064
75065
75066
75067
75070
75071
75072
75£173
7507.
75075
75076
75077
75100
75HU
75102
7510J
751Ct,4

75H,5
75106
75107
75110

ROSTE:.H

160032
001121

LOA ROSID,1
AHS,ARS
AND ROSMS
ADA 1
AOA ROSFX
STA ROSP,l
lSZ ROSP
LOA ROST
CLB
DIV .+10

~13112

040001
043113
170030
034030
0600:53
00f)40'"

100400
00036 4
001727
040001
040574
027100
063114
170030
034030
170030
034030
060032
040375
070032
03403,
027042
037031
127031

00030
00031
75111 01d!S04"
00032
00033
75112 017400
75113 040060
75114 02706b
75115

STORE IN sUFFf,R.
GET L.AST 2 1)1"'IT5,
SEPARATE. THEM.

ROS4

AL.F,ALF
PACK AND CONVERT
ADA 1
TO ASCII,
ADA ASC0"
JHP ROS4
~U STORt:. IN BUFFER.
LOA ROSOD
IF NO 10, PUT DOTS IN SUFft:.R.
STA ROSP,l
ISZ ROSP
STA ROSP,J
ISl ROSP
LOA ROSID
ADVANCE 10 POINTER,
ADA ,+TTY01-TTY00
SrA ROSID
ISl ROSe
ANY MORE'-'
JMP ROSl
YES,
lSI ROSTS
JMP ROST8,I
NO

ROSP
Rose
ROSL.B
ROSIO
ROST
RUSMS
ROSFX
ROSOD
SROS

EQU
EQlJ
OCT
EQU
EQu
oCT
ASC
ABC
EQU

ROS3

LTEMP
",TEMP+l
~"40

I.TEHP+2
LTEMP+3
17400
1,.0

i, ..

*

PA~E 0~7~

#48

ANNUUNtE

1d517* THE ANNOUNCE CANNOY) COMMAND IS USED TO SEND A rESSAGE FROM THE
",518* SYSTEM CONSOLE TO THE US~R CONSO~ES. THE FORMAT IS
rtJ619*
0520*

ANN-,

"S2l.

0522* WHERE PORT. IS AN INTEGER BETWEEN 0 ANO 31 OR 'ALL' AND MESSAGE
tj523* IS A STRING OF ~HARACTERS ENDlNG WITH A CARRIAGE RETURN.

052 ••
0525 751600

0526

0535
16536
16537
16538
16539
16540
0541

750160
7501211
75002
7501213
750164
751211215
75006
15161157
750116
75011
75012
751613
75014
75tH5
75016
75017

~542

75020

16543

75021
75022
751623
751624

~527

16528

0529
16530

,,531
~532

0533
0534

16544
0545
0546
1c)547
0548
16549

~26275

1640364
0162020
026275
0716030
114572
026275
0516426
027043
040316
16021621
1626275
040364
1602020
~26275

060030
1160200
IcH')i11364
1640031
070030

75035

~26275

16558

75036
,51337
75 0 4 0
75041

11 45 72
026275
0 5 0 4 20
1602001

0559

75042 026275

0560

75043
751643 1303401d
75044 1670031

~556

1c)557

~561

fc)562
,,563
16564

0565
"566
0567
16568
16569

05 7 0

AOA M728
SSA,RSS
JMP I..fRER
ADA ,+10
SSA
JMP ~FRER
STA LTEMP+l
LOA Lrt.MP
MPY ,+10

75026 070031

751626
75027
75030
75031
75032
75033
75034

16550
lao51
0 55 2
0553
121554
0555

ORG LIBRA
JSB TJ5CH,1
JMP I,.FRER
CPA ANN,A
JMP ANN2
AOA M728
SSA,RSS
JMP I..FR~H
AOA ,+1111
S8A
JMP LFRER
STA ~TEMP
JSB TJ5CH,1
JMP I..FRER
CpA .+548
JMP ANNl

114572
1626275
053167
12127046
040316
0021621

'A'l
Y~S

NO,
DIGIT1
NO
MAYSE
NO
YES, SAVE IT
NEXT CHAR
c,;UMMA1
YES

NO,

DIGITl

NO
MAySt.

NO
yES

COMPUTE

AUA LTEMP+1

srA

~TEMP

ADA NPORT
SSA,RSS
JMP I..fRER
JSB T35tH,1
JMP I..fRER
CPA ,+548
RSS
JMP ~FRER

04~H77

002021

75045 0272165
75046
75046 114572
751347 026275
75050 053170
75051 11457~
7505~ 026275
75 0 5 3 05317~

GET 1ST CHAR

ANNl

ANN2

TOO 81G?
YE.S, fRROR
NEXT c,;HAR
COMMA?

YES

NO

EQU.

CtA
STA
JMP
EQU
J8B

L"rEMP+l
ANN;'
..

SET fOOR
ON~

PORT

T35CH,1

JMP I,.FRER

CPA ANN,L
JSB T35CH,I
JMP LFRER
CPA ANN.~

'I.'?

yES, NEXT CHAR

NO

, ,'/
~

.-~

PAGE 0571 #48
(d571
0572
~57J

10574
0575
05 76
IcHi77
0578
0579
ro580
0581
0582
10583
0584
ro585
0586
0587
ro588
0589
0590
0591
(0592

0593
0594
0595
0596
0597
0598
0599
0600
0601
0602
0603
0604
0 6 05
0606
0607
",608
0609
0610
0611
0612
0613
[d614
0615
0616
0617
0618
0619
0620
0621*
0622
13623
0624

75rd5 4
75 0 55
·75056
75057
75060
7 01d 61
75062
75063
75064

ANNOUNCE

1104~72

1d26275
050426
002001
026275
0610177

070031
002400
070030

151tJ65

75065
75066
75fd67
75070
75071
75072
75073
75073
75074
75075
75076
75077
75100
75101
75hU
75102
7!5U13
75HJ4
75105
75106
75107

06 0 367
017132
060364
017132
060364
01713«!

ANN4
002400
ro72044
114512
027101
011 132
027073
ANN5
017132
060364
017132
0603604
017132
063171
072044

7511~

7511~

ANN3

06 03 7 5

ANN6

JSB
JMP
CPA
RSS
JMP
LOA
STA
CL.A
STA
EQU
LOA
JS8
LOA
JS8
LOA
JSB
EQU
CL.A
BTA
JSB
JMP
JS8
JMp
EQU
JSB
LOA
JSb
L.OA
JSB
L.OA
8TA
EQU
LOA

T3tsCH,1
L.FRER
,+548
L.FRER
NPOfH
LTEMP+l

1ST PORT 18 0
L.TEMP

•,+15 B
ANNCH
,+12B
ANNCH
,+12S
ANNCH
..
T35C1

TJ5CH,1

ANN5
ANNCti
ANN4

•ANNCH

.+12B
ANNCH
,+12B
ANNCH
ANNJM
T35C1

LF
LF
ALLOW
BL.ANKS
Nt;XT tHAR
tR
OUTPUT IT
L.OOP

eN
LF

L.F
RESTORE dL.ANK
8L.ANK SUPpqESSION

•,+TTY01.T1 Ylr:l0

034030
0341331
027110
026267

LOB A
ADS OTTY0
ADS ,+?STAT
LDA 8,1
CPA .+2
RSS
JMP ANN7
LOA L.TEMP
AL.F,AL.f
lOR IwT
JSB S14SC,1
EQU
tSl L.TEMP
ISZ LTEMP+l
JMP ANN6
JMP LEND

75132 000000
75133 070032
75134 060031

ANNCH NOP
STA L.TEMP+2
LDA LTt::MP+l

ANN7

75126

CR

MPY LTEMP

75111 1~0201O
75112 0000J0
75113 064~i1HtJ
75114 (044546
7~115 044366
75116 160frHH
75117 050354
7512~ 002001
75121 027126
75122 060030
75123 001727
75124 030231
75125 114500
75126
75127
lb130
75131

YES, NEXT CHAR
NO
COMMA?
YES
NO
f# OF PORTS TO SEND MESSAGE TO

•

al> USER.S TTY TABLf

All STATUS
Is STATUS INPUT

~Al11

NO.

YES,

RE,,18Su E IN~uT
wAlT REQUEST.
BuMP PORTf#
ALL. PORTS DONE?
NO,

SAVE CHAR
,; OF PORTS

PAGE 0572 .48
Idb25
1t1626
0627
16628
16()29
0630
0631
0632
0633
0634
0635
0010
0637
0638
0639
0640
06 4 1
0642
0643
0644
IOb45
0b46
16647
064ij
0649
10650

Idb51
0652
0653
0654
10655

75135
75136
75137
75140
75140
75141
75142
75143
75144
75145
75146
75147

~::

ANNOUNCE

V)70033
06003td
070~34

060034
0017~7

030244
114500
102311
1627144
102511
~02002

027140
75151 0600J4
75152 001727
7~5150

75153

0642~5

7515 4
75155
75156
15157
751616
75161
75162
75163
75164
75165
75166
75167
75170
75171
75172

0 ld C083
027160
150001
1t'27163

031r!l220
td30032
11450.a
034034
034 0 3J
027140
1271~2

000101
000114
",260J1

STA l.TEMP.3
LDA l.TEMp
STA L.TEMP+4

ANNe! EftiU *
LOA LTEMP+4
AI.',Al.F
lOR ISF
Ja8 5148,C,1
sFs CH2
JMP
I,..IA CH~
SlA
JMP ANNC1
l.OA LTEMP+4
AI.F,AL.F
LOtt PRIST
SZI,RSS
JMP ANNC2
CpA 8,1
JMP ANNCl
ANNC2 lOR OCk
lOR LTEMP+2
JSB 5145C,1
ANNC3 liZ LTEMP+4
lSZ LTEMP+J
JMp ANNe1
JMP ANNCH,l
ANN,A ocT HH
ANN,,!.. OCT 114
ANNJM JMP TJ5C0
SANN EQU ..

1ST pORT
ASK 2114
IF 6UFFt:.R
15 FUL.L

.-1

yEs
NO
IS THE L.P
IN Use:l
NO

yES .. IF THIs USER HAS
I.P, DO NOT' Sf-NO

OUTPUT CHAR
BUMP PORT ~
AL.1. PORTS DONE?
NO

YES

MESSA~E

PAGE

~573

#48

RESET

0657* RESET ALLOWS A USER'S TIME~10.DATE ENTRY TO BE MODIFIED.
0658. THE FORMAT IS AS FOLLOWS.

0659.

ALL TIMES AHE SET TO ZERO

0660*
0661.
0062* RESET"lD

SPECIFIED USlR'S TIME SfT TO ZERO

0663*

0664* RESET-IO,TIME
0665.
0667

SPECIFIED 10 SET TO SPECIFIED TIME,

ORG L.16RA

75000

066~.

0669
0670
06 71
0672
0673

75000
75001
75002
75003
75004

002400
07'11052
07 003 1

CLA
STA 10
STA REST

114572

JSB T35CH,I

JMP LFRER

02627t)

0674.
0675
0676
0677
0678
0679
06810
0681.
0682
0683
0684.
0686
(4686
0687
068ij

0689
069"
0691

0692

069J
0694

1695.
0696
0697

069d

06 99
0711h
0701
0702
1478,).
0704
0705
1d706
0707
0708
0709
10710

75'1105
75006
75007
75010
75010
75011

053~60

12127115
003400
1d400S4
070064

CPA
JMP
tCA
RfSXE EQU
ADA
8lA

T3SCP

T;55CP

JMP RES2

RE.Sl
16.(076

0741372
10102J
044351
074030
160075
064566
016231

EQU
L.DB
8T6
ASR
ADS

aTB
L.OA
LOB
JSB
JSB

116eH~

75025 064562
75026 0600~2
75027 00~003
75~J0 027105

•
IOL.NP,I
WORD
3
.-1
REse
IOLeP,I
LIbOI
DRUML.
SICKP,l

INITIALIZE TIME AL.SO,
GET 1ST CHAR,
CR w • NO PARAMETERS

"A"

1

YES
BACKSPACE
BUFFER POINTER.
;ET THE 10.
_0 GET TIME."NO CARRIAGE
SET DRUM TRANSFER

RETUR~.

LE~ijTH

INITIATE Uf'UM
TRANSFE.R.

DRUM ERROR, GO DIE GRACEFULLY

LOB L.ISO
L.OA 10
SZA,RSS
JMP RES4

IF 10.0 WE ~ANT TO CLEAR
ALL. TIMERS,

tSl RESt
JMP RESQl

SEARCH lOT FOR CORRECT ENTRY.
TE8T ENTRY

070050
1c160305
070051
0(4)36
005100

LOA
8TA
L.OA
sTA
L.OB
BRS

GET ERROR MESSAGE POINTER
SET UP FOR MOVE ROUTINE

01t)2S7

JSB MOVEW

75031 034030
75032 027046
75033
75034
75035
75036
75037
75040
75041

•

JSB GETI0

75012 016310
75013 027133
75014
75014
75015
75016
75017
75020
751021
75022
75023
75024

RESCA
RESXl

INITIALIZt 10 TO 0,

06316;5

Rf.S5

RESER

MOVES
T3681
MOVED
REStS

GET CHARACTER COUNT

PAGE ro574 #48
0711
kt712
"'713
",714

751342
75043
75044
751345

-----

Rf.SET

060336
kt030ro4
067163
026271

LOA RESfS
CMA,INA
LOB RESER
JMP LENO ... a

GET CHAR CO~INT
MAKE NEGATIVE CHAR COUNT

16715.
~716

\:1717
",718
11'719
0720
"721*
~722

ro 7 23
0724

75046
75046 1500r;l1
75047 "'27r;l52
751d50 \:144362
75"'51 ~271d31

Rf.S51 f.QU

*
CPA 1,1
JMP •• 3
ADB .... 6

IS THIS THE ENTHY1
yES.

JMP R£S5

75052 1344357
75 0 5 3 060031
75054 1711'11;)01

A06

,"'5

LOA REST
STA 1, I

SET IN
NE'" TIME,

~725.

!d 7 26
",727
fd728
0729
13730
0731
0732
0733
"'734
0735
0736
"'737
",738
",739
0740
",741
",742
0743

75 055
75055
75056
75057
75060
75061
75062
75063
75064
75065
75066
751366
75",67
75",7",
75",71
75072
75073
75074

~744

7507~

1t)745
",746
0747
0748
0749
0750
0751
0752
0753*
0754
0 7 55
0756
(0757
"'758
0759
070 0
0761
0762
0763*
0764
0765

f.WU •
LOA IOL.NP,l
srA WORD
LOA IDL.CP,I
LOB LI8D
JSB ORUML
JMP RESb2
LOA 10
SZA
JMP LENO
Hf.s61 E:.QU
LOA IOLNP
AOA ,·3
STA IDLNP
LOA IOLCP
ADA ,+3
SlA IUL.ep
CPA RES&'E
JMP t.ENO
LOA lOLCP,1
SlA,RSS
JMP RES61
JMP RESl
Rt;.S62 E.QU
L.OA IDLCP
LDB IoL.NP,I
JSB SALVP,l
RES6

160076
070072
160075
064562
fd16231
"'27hH2
06"",52
002002
026267
060076
104r;l355
07"'1076
060075
",40355
070075
053162
026267
1601075
0",2003
027066
027014

75076
751077
75101t)
75UB
75102
751",2 060075
75103 164076
75104 116ld16

.

•

ADa .5
LOA AEsr

75105 ia44357
75106 ~61c10J "
751ld7
75107 IdJ4ft)31O
7~1 U1 002001
75111 02705~
75 112 17 000 1
75113 044362
75114 02710 7

RES4

75115
75115 114572

Rf.SXl E;.QU
JSB TJ6CH,I

Rt.S42 fQU

•

.,.RITE 10
TABLE BACK.

DRUM. ERROR
CHlCK FOR ALL.

ADVANCE 10

TA8~E

POINTERS

CHECK FOR ALL 10 TRACKS

DONE
CHECK 10 SEE IF THE lRACK
HAS B~EN ASSIGNED
NO, SKIP IT
NO

CL.EAH ALL. TIMERS,
GET TlME

lSZ REsC

TEST FOR ANY MORE,

RSS
JMP RES6
STA 1,1
A08 "'8
JMP AES42

GO WRITE lOr BACK OUT.
STORE TIMl
SUMP ADDRESS TO NEXT ENTRY.
LOOP

•

GET NEXT

C~ARACTER

rD766
0767

0 76 6
0769

rD77"
~771

0772
0773
0774
rD775
Vl776
't!J777
0776
0779
0780

0781*
0782*

0783*

75116 026275
75117 05 3 161

75120 027123
75121 060350

75122 027010
75123

75125 026275
75126 053161

75127 027131
75130 026275
75131
751~H

75132

114572

027~14

75133 050426
75134
75135
75136
75137
75140
75141
75142
75143

0789

0790
0791
07g2

0793
0794
"'795
0796
0797
079d

.-2

RESXE

*

JSij TJ5CH,1

JMP
CPA
JMP
JMP
Rf.SX3 EQU
JaB
JMP

RES2

114572
026275
027141

114572

R~SJ

027 0 14
040316
002021
026275

75144 040364
75145 002120
75146 026275
75147 070032
75l5le) 060031

75151 100200

0799
0800

75152 0100364
75153 040032
75154 070031

0801

75155

0802

75156 027137

LF~ER

RESC!..
R~SX3

lfRER
,.,
T35CH,1
RE.s1

0812*
~0030

00031
",o032

CPA ,+546
Jsa T,35CI1,1
JMP lFRER
JMP .+3
JSB T35CI1,1
JMP RESl
ADA 114726
SSA,RS8
JMP L.FRER
AOA ,+10
CL.E,SSA
JMP LFRER
BTA RESD
L.OA REST
MPY ,+10
AOA RESO
STA REST
SEZ,SZB,RSS
JMP RES;)
JMP LFRER

"'1t)604~

0803 75157 026275
0804*
0805 75160 000101
0806 7!H61 ~00114
11887 75102 000112
rD80S 75163 075164
0809 75164 0051\6
0810 75160 047440
75166 051'52t;;
75167 041510
75170 02"'111.
15171 042040
0811 00336
Vl813
0814
0815

RESX2

ERROR, NOT
"l" 1
YES

tNOU~H

CHARACTERS

GO TRY TO PACK 10
SET UP IOt.NP & lOLCP
GET ANOTHER
ERROR, NOT ENOUGH CHARACTERS
WL" 1
YES, RESET AL.L. USERS
NOT "ALL." OR L.EGAL. ID

GET ANOTHER CHARACTER
CR, RESET TO ZERO

COMPUTE THE TIME

0785
0786
"'78S

LFRt.R
RfSCL

JSB GTlt.

75123 016370
75124 114572

0784

0787

JMP
CPA
JMP
L.OA
JMP
R£,SX2 EQU

TEST FOR COMMA
COMMA OK •• GET NEXT CHAR,
ERROR IF NONE,

GET NEXT t;HAR,
TEST FOR OlClIT,
ERROR.
ERROR,
SAVE DIGIT,

PARTIA~ RESULT.
COMPUTE NEW VAL.UE.

GET

ADO IN NEW OI~lT,
SAVE NEW RESUL.T,
TEST FOR OVERFLOW,
ERROR,

101
ASCIl "A"
114
ASCII "l"
10Ee+ll
...·1
5116
5,0 SUCH 10

RESCA
RESCl
REaL.E
RESER

OCT
OCT
ofF
OEF
OCT
ASC

RESC
REST
RE5D

EQU L.TEMP

EQU L.TEMP+l
EQU L.TEMP+2

PAGE 0576 #48
0816

7!)172

RfSET
SHES

EQU.

PAGE 0577 #4g
0002*
0003*
0004*

1iJ005_
0006*
16007.

"'00th'
0009*
0010*
0011*
0012*

CHANGEIO

THE CHANGEID COMMAND CAN BE USEU TO MOUIFY THE PARAMETERS IN AN
1D EN1Ry, THE MODIFIABLE ENT~lES ARE THE PASSWORD, TIME ALlOw~D,
AND DlSC ALLOWED, THE POSSIBLE ~ORMATS AREa
CHANGEIO.ID,PASSWORD,TIME,OlSC
CHANGEIO.ID,PASSWORO,TIME
CHANQEIO-ID,PASSWORO"DlSC
CHANGEIO-ID"TIME,OISC
CHANGEIO.ID,PASS"ORO
CHANGEID.I0"TIME
CHANGEIO·ID",PlSC

0014

75000

ORG LIBRA

0016
0017
001ij
0iU9
0020

75001 002001
75fcJ02 026275
750fcJJ 050426

75ld016 016315

JSB
RSS
JMP
CPA
RSS
JMP

l.fRER
IDLNP,1
wORV
IOlCP,1
L.ISOI
ORUML.
SICKP,l

0ld21

75004 0ld2001

75005 026275

1822_

16026

75011 064fi66

0027
002S

75012 016231
75 °13 11 60 15

L.OA
STA
L.OA
L.DB
JaB
JSb

7S{014 1 64 076

Loa

0023
0024
0025

1iJ12V.
0030

0031
1d032

0033
"1634

1ci035

75006 100076
75001 k170~72

75010 160075

75015 007004

75~H6 044562
75017 060052
75020 054562
75021 027(026

0036
01037

75°22 044J~2

00J8
00J9

75024

ee4'h

75023 150001
027~47

75 02 5 027020

0,,43
0044

75026 063040
7 5 027 07 00 50
70030 060315
75031 07 00 5 1

1d045
rd046

75033 016257

16041
0042

0047
Icild 48
0049

75032 064344

75034 060365

75 035

06~3e5

75036 114522

0050

75037 026212

0051

75040 015041
75ld41 005116
75 042 Id47440

0052
010 5 J

CHAI

75043 051525

75044 041510

CHA2

GElID
LFRER
,.548

lOL.NP,I
CMB,INB
AOS L.IeO
L.OA 10
CpB LISD
JMP CHA2
ADe ,-8
CPA 1,1
.IMP CHAJ
JMP CHAl

LOA
STA
L.OA
srA
L.OB
JSB
LOA
L.OB
JSB
JMP
CHA2 [ OEF

GET 10 ENTRy.
8KIp To COMMA TEST.
FAIL. IF NOTHING fOL.l.OWS,
TEST FOR COMHA FOL.L.OWING,
OK,
FAIL. IF NO COMMA fOL.LOWS,
REAO IN THE UH

DRUM ERROR, DIE WITH CL.ASS

SEARCH 10 TAIlL.E
FOR CORRECT ID,
TEST FOR lOT EXHAUSTEO,
MOVE BACK TO NEXT ENTRY,
TEST fOR CORRECT ENTRY,
FOUND IT,

CHA2E
OUPUT NO 10 MESSAGE.
MOVES
TJ581
MOVED
•• 6
MOVEW
,+11
T3681
TTY35,1
L.ENOR
.+1
OCT 5116
L.F-N
ASC 5,0 SUCH 10

75045 1020111
751646 0421040

fIJ"54.

1t)1cJ5S. B NOW

~OINTS

"856.
0057 75047 006004
0058 75050 074030
rJI059
751651 07403~
0060 75052 114572
101061 75053 02 6275
0ld62 75",54 050426
101063 751055 0271H5
0064 75056 00640~
01065 75057 034030
0066 75060 174030
0067 75061 034030
0068 75062 174030
01069 751063 1064031
0070 75064 074030
11'071 75065 064347
0072 75006 074032
IOI07J 75067 001727
0074 75070 170030
10075 75071 114572
101076 751072 027133
0077 75073 050426
10078 75074 027115
"'I07g 75075 130030
10080 75076 170030
0081 75077 034032
0082 75100 002 0 °1
IOfcl83

0f1'84

101085

0086

f()1c)87
0088
161089

fl'098

CHA3

CNA4

034030

114572
027133
050426

75106 027115
751107 1027067
114572

CHAS

027133
0510426
002001
02 6 2 75

75115 1060031
15116 040355
75117 070030

01099
0Uti.
011rH 751210 114572
ilJ102 75121 1026275
10103 75122 10510426
0104 75123 0021001

10105

75124 017145

0106

75125 034030

INB

ST6 tHAID
STB
JSB
JMP
CPA
JMP
CL8
lSZ
STB
ISZ

75hH 027110

751102
75103
75 H,4
75105

1609".
0091 75110
10092 75111
1009 3 75112
75113
~094
101095 75114

",,90.
",097

TO THE CORRECT ID,

CHAll
T351;H,1
L.FRER
.... 546
CHA5

SET CHAIO TO P~lNT TO THE
PASSWORD,
STORE COpy IN CHAIl.
GET fIRST r.HARACTER OF POSSIBLE
PAS~WORD·~tRROR IF NONt,
IF COMMA, WE DON" WANT TO
CHANGE PASSWORD,
INITIALIZE FAS8WORD
TO NULL.S.

CHAIO
CHAID,I
CHAID
STa CHAIO,l
LOB CHAII
STe CHAIO
LOB ,-3
STe CHAC
AI.',ALF
STA CHAID,I
JSB TJ5CH,I
JMP CHA10
CPA .... o.. B
JMP CHA5
lOR CHAIO,l
STA CHAIO,1
ISZ CHAC
RSS
JMP CHA6
ISZ CHAID
JSB T35CH,1
JMP CHAUl
CPA .... 54B
JMP CHAO
JMP CHA4

GET RIGHT CHARACTER.
TERMINATE IF CR,
IF CUMMA, wE'RE DONE wITH
PASSWORU.
MERCiE. IN WI TH L.EF T CHAR,

JaB T~5CH,I
JMP CHA10
CPA ,+548

TEaT FOR TOO MANy PASSwORI) CHANS
END OF REQUEST.
TEST COMMA.

SET CHAID 10 POINT A1
PASSWORD AGAIN,
SET COUNTER FOR 3 wORD
PASSWORD,
SET LEFT CHARACTER Of WORu.

TEST fOR ALL OF

~ASS~ORO

NOT AL.l. IN YET.

IN,

BUMP POINTER,
GET ANOTHER PASSWORD CHARACTER,
DONE IF CR.
TEST FOR COMMA.
LOOP,

RS~

CHA5

JMP LFRt:.R

FAll.,

LOA tHAIl
ADA .... 3
STA CHAIO

SET CHAIO TO POINT TO
lIME ALLowEIJ.

JSB
JMP
CpA
HSS
JSB
ISl

~ET

LFRER
.... 54B

1ST CHAR OF POSSIBL~ lIME.
E.RROR IF NONE,
IF COMMA, Go TO 00 ulsC pART,

CHA.
CHAII)

OTHEkWlSE GET NlW AL~OTTED TIME.
SET ~OINTER TO ALLOTTED DISC

135(;H,1

PAGE 0579 *49
~107

iOH,a
0109
0110

16111
111a.
0113
r6114
"'115
0116
0117
0118
0119
10120

a12i.
0122
10123
0124
1121*
°126*
1014t7*
0128.
fd129*
0130*

fd132
01 33
1/:1134
IU35
0136
1d137
013a
16139

10140
01 41
1d142
0143
0144
0145
0146
10147
1d148
fd149
0150
0151
16152
0153
0164
0156
16157
1d15tJ
0159
0160

75120
75127
75130
75131
75132
75133
75133
75134
75135
75136
75137
75140
75141

CHANGEIO

03403E1
114e72
026215
017145
026275
160076
07007~

16007 5
064562
01623"1
002001
026267

ISZ CHAID
J5a T35CH,1

JMP t..FR~R
JSB CHA*
JMP LFRfR

CHAU' EQU
LOA
STA
L.OA
LOB
JSB
RSS
JMP

75142 060e75
75143 164076
75144 116016

.-

SPACI,
GET FIRST 01iIT Of Ol~C,
FAIL IF NONt,
COMPUTE IT,
RETURN HER£ IS ILLEGAL,

10L.NP,I
WORD
IOL.CP,I
LI80
DRUM",

WRITE OUT THE NEW 10

LEND

TE~MINATE.

TA6L~

L.OA IOL.CP
LOB IOI-Nfl,1
Jsa 8At..VP,I

*

SCANS THE INPUT SUFFER FOR A FROM 0 TO 65535. IF IT FINDS
IT STO~ES IT IN CHAIO,I, IF NO CHARACTER FOLLOWS THE
CHA# lRANSFE~S TO CHAle, IF A COMMA FOLLOWS IT RETURNS, IF AN
ERROR IS FOUNU, IT TRANSFERS TO LFRER, THE 1ST CHARACTEH OF
THE NUMBER IS IN A UPON ENTRY,

CHM~

ON~,

75145
75146
75147
75101/:1
75151
75152
75153
75154
75155
75156
15157
751616

7SHi1
75162
75163
75164
7516~

75166
75167
75171d
75171
75172
75173
75174
00030
0O,,31

00032
100033

75175

000000

00641f)(c)
174030
04raJ16
002021
026275
040364
002a20
026215
107 00 33
160030
100200
000364
0'HUJ4ta
040033
006e43
002001
026275
170030
114572
027133
000426
127145
027150

CHA*
CHA7

NOP
CLB
STB CHAIO,l
AUA M72B
8SA,RSS
JMP L.FRER
AL>A ,+lra
SSA
JMP L.f'RER
STA CHAO
LOA CHAID,I
Mpy ,+10
CI,.E
AOA CHAD
SEZ,SZB,RSS
Ras
JMP LFRtR
STA CHAIO,l
JaB T35CH,I
JMP CHA10
CPA .+548
JMP CHA*,l
JMP CHA7

eHAII)
CHAit
CHAC
CHAD
SCHA

EQU LTEMP

EQ\I LTE"'.,

EIilU L.TEMP+2
EQU I,.TEMP+J
EQU *

INITIAL.IZE

"*,

I;

TO

lE~Ot

TEST FOR 01.IT.
FAIL..
FAIL.,
SAVE DIGIT.
QET OLD VAI,.Uf,
• 1",

+ NfW 01"IT,
TtlT FOR OVERFt..O~,
OK
FAIL
STORE AGAIN.
GET NEXT CHAR,
OONt. IF CR"
RETURN IF COMMA.
EL.SE LOOP,

PAGE

#49

~58~

SLEEP

0162. THl SLEEP COMMAND IS A SYSTEM cOMMAND ~HICH IS U~EO FOR SYSTEM
kl163. SHUTDO~N, THE SLEEP ROUTINE PtRFORMS THE FOLLOWING FUNCTIONSI

I/He.-.
0165*
ftl166*
0167.
ftll 6 s*
0169*
ftl170*
0171*
0173
0174
ftl175
0176
0177
017S
0179
0180
0181
0182
10183
0184
0185
0186
0187
1d18S
0189
,,')190

0191
0192
1/)193
0194
1/2195

0196
0197
!d19S
0199

0200
0201

0202
0203
0204
021,.
1/22106*
02"7.

1)
2)
3)
4)
5)

PLACE ALL USERS IN DISCONNECT MODE,
OUTPUT SpECIFIED MESSAGE TO ALL TERMINALS.
DISCONNE~T ALL U8E~S.
LOG OFF ALL ACTIVE US~RS,
FIXUP ALL USER TRACKS AND FUSS,
6) GARBAG~ COLLECT LIBRARY,
7) DUMp SYSTEM TO MAG TApt.

75~01d

7501d0
75itHCll
75002
75030
75030
75031
75032
75033
75 ftl J4
75035
76036
75037
75040
75041
75042
75043
75044
75045
750<46
75047
75050
75051
75052
75053
75054
75055
75056
75057
75060
75061
75062

103100
027030
000000
1cl6342G
07001~

0024010
072044
171d6~4

060272
0703011'
064546
060444
110001
1700ftll
044J6e
~60J51d

170001
044331
160001
030241
114500
044374
054550
002001
027040
160640
170634
06066~

064666
114522

ORG
eLF
JMP
BSS
SLERE EQU
LOA
STA
CLA
STA
STA
LOA
STA
LOB
SLEl LOA
AND
STA

L1BRA
"
SLERE
22
..
SLiST
CHI

ROOM FOR HI8ERNATE

T35C1

NO OE8LANKING

DCLe 1 ,I
MLINK

~lPE

QUT RF.CElvE

CHANNE~

TJfSLK

DTTYrt;J
DF~HK

CI..EAR

61T Ft.AG
1,1
WORD
Aoe .+?STAT
LOA ,0ISC
SET STATUS
STA 1,1
TO ABORT
A08 .+?TNUM"?STAT
LOA a'l
GET TTY NUM~ER
lUR KAO
JSI S14SC'I
KILL OUTPUT
Aoe ,w?TNUM+TTy01-TTy00
LPS D1T32
FINISHED ALL U~fRS?
yES
RSS
JMP SLE!
NO
LOA OCLC2,1
STA DCt.e1,1
OUTPUT
lOA ONEl
LINE FEED
LOB DEH
Jst; TTY35,1
1,1

REMOVE USER, If ANY, FROM THt LINE PRINTER

0208

751d63 060247
0209 75064 114500
0211.
~211* OUT~UT

LUA LPO
JSe S143C,1

SLEEP MESSAGE TO ALL ACTIVE

0212.
0213 75065 060367
0214 75066 017402
0215 75~67 060364

l.OA ,+156
JSB SLECH
LUA ,+126

GET OPCOO~
TELL 1/0 PROCE~SOR
T£RM1NA~a.

C~OE

PAGE 0581 #49
10216
0217
1021t~
1it21~.

1022121
0221
0222
121223
0224_
0225
0226
0227
0228
0229
023(h
10231
10232
10233
0234
0235
1/)236
1d237
10238
10239
0240
10241.
10242.
121243.
10244
\':)245
0246
10247
10248
10249
0250
10251
0252
0253
0254
10255
10256
10257
0268
ic:l259

10260
10261

0262
~263

0264
0265
0266
0267
10268

td269
13270

SLEEP

75070 017402
75071 ~6tOJ64
751072 1017402

JSB SL.tCH
LOA ,+12 8
JS~ SLECH

75073
75"74
1512175
751076

1016025
1027077
12117402
1027073

JSB T3f)CQ
JMp .+3
JSB SL.ECH
~
JMP

(lET INPUT C~4RACTER,
ENO OF lNPUT

75077
75100
751101
75Ul2
75103

01741212
12160364
017402
1060364
1017402

JSB SLECH
LOA ,+12B
JS8 SL.ECH
L.OA .... 12B
JSB SL.E(;H

FOLLUw BY ANOTHER CRLfLF,

751104
751105
7511c,6
751107
75110
75111
75112
75113
75114
75115

064546
100610104
060317
070031
11)60232
130001
1145010
0443 75
1034031
027110

LI.>B
INB
L.OA
STA
L.DA
lOR
JSB
AOB

..

SLE0

OTT"0

MJ2
LTEMp+l
HUU
HANG UP
A1..1..
1,1
514SC,1
USERS
.+TT"12I1"'TTY0121
lSZ LTEMP+1
FINISHED ALL. USERS?
JMP SL.E0
NO

UPDATE LAST CHANGE DATE
75116
75117
7512lt)
75121
75121
75122
75123
75124
75125
75126
75127
751310
75131
75132
75133
70134
75135
75136
75137
75140
75141
75142
75143
75144
75145
75145
75146

1002400
170634
12164546
1074030
161211030
01i1444
10102003
027145
044355
160001
00312100
12141221
12170072
044351
16012101
065222
016231
027'45
061502

SL.E7

010301O~

0641030
ki44356
117424
1/)640J0
00240121

CL.A
BL.OCK CLOCK,
STA oeLC1,1
LOB OTTY0
EQU
aTB I..TEMP
LOA LTEMp,1
AND DFCHK
DATt. NEE D UP 0 ATIN G'I
SlA,RSS
JHP 81..E8
NO
ADS ,+1PROG
YES
L.OA B,1
CMA
AUA USE.
STA WORD
ADS ,+7 UlSC;; w 'lPRO'
LOA 6,1
L.OB USE!
JaB DRUML.
RfAO PROGRAM fROM SWAP TRACK
JMP SL.ES
ERROR
LDA FCNTR
CHA,INA
LOB L.TEMP
ADS , ... 110

•

JIB i.,O,1
SI..E8

EQU •
L.lHl LTEMP
CL.A

UPOATi LAST tHANiE CAlE

PAGE 0582 #49
0271
0272
0273
0274
0275
8216*
0277*
0218*
0279
0280
16281

0282
0283
1d284
0285
0286
~287

0288

75147
75150
75151
75152
75153

S~EEP

srA B,l
ZERO SIT FLAG WORD
ADa ,+rTY01~TTY"0
CPS OTT32
FINISMEO ALL fTYS?
RSS
YES
JMP SI..E7
NO

1701tHH
044375
1054550
002001
027121

NOW WE HAVt TO LOG OfF ALL ACTIVE USER,
75154
75155
75156
75157
75160
75161
75162
75163

160640

17121634
064546

044356
060317

1070(6J0
16121001
002(603
75164 027306
75165 07412131

SI.. E2

L.OA OCI..C;2,1
srA OCI..Cl,1
LOS OTTY0
A08 ,+110
LOA MJ2
eTA L.TEMP
LOA 1,1
SZA,RSS
JMP SL.EJ

sre L.TEMP+1

UNBLOC;K CLOCK,
sEARCH USER TABLEs,
FQIo( ACTIV~ IDS,
GET 10,
TEST FOR ACTIVE,
NOT ACTIVf,
SAV( POINTER,

0289*

02911J* COMPUTE TIM~ USED,
8291*
1d292 75166 044356
AOd .+'lTIME .. 1IO
OLD 1,1
~ET STARTING TIME
"'293 75167 HJ4200
75170 10"081
16294
75171 003004
CMA,INA
SET 60TH PARTS NEGATIVE.
CMB,INd
1&1 2 9 5 75172 0071604
029b 70 1 7 3 1163100
CI.F '"
0297 75174 040201
ADA OATIM
A•• of HHS, usro,
"'298 75175 0fDa040
CLE
0299 75176 044202
AOB OATIM+1
~.* of UNITS, WITH OVERFLOW IN E
1d300 75177 1021016
STf" 0
03tH 75200 07403~
STB LTEMP+2
SAVE. of UNITS.
0302 75a01 1 kt0afrU"
MPY DOl
. HH •••• MINS,
75202 k>00724
0303 75203 070033
STA LTEMP+J
L.OA L.TEMP+2
GET UNIT COUNTI IF E.~ THEN
0304 75204 060032
0305 75205 1002041
SEZ,HSS
COuNT AS NEGATIvE
cce
0306 752,,6 007400
0307 75207 HHd400
DIY 060'"
CHAN~E TO MINU¥ES,
7521'" 000466
0308 75211 fc140033
AOA LTEMP+J
AOo IN OTHER ~rNUTES,
0309 75212 070032
STA I.TtMP+2
TOTAL IN LTEMPl2).
031".
0311. SEARCH lOT fOR USER,

0312.
0313 75213 160031
0314 7b214 070052
031 5 7~21f) 016J7'"
0316 75216 16"'076
16317

0319

75217 070072
75221t1 1b0070
75221 064566

0320
03 2 1
10322

75222 016231
7s223 116010
75224 160031

1&1318

L.OA
srA
JSB
LOA
STA
LL~A

LOB
JSB
JSB
LOA

L.TEMP+1,1
10
GTII..
10L.NP,1
wORD
IOI..CP,I
LIBoI
DRUML
SlCKP,I
L.IEMP+l,l

GET THIS CI..OD8 10 CODE
FIND WHICH lOT TRACK IT'S ON
GET LENGTH
FOR r)RUM DRillER
READ IN APPRO~~lATE lOT TRACK
CAN'T, DIE, ~EfPING CHARISMA
GET 10 AGAIN,

0323
~324

75225
75226
7!:)227
752Jid
75231

064562
150001
027232
044362
027226

75232
75233
75234
75235
75236
75237
75240

044357
00004.,
16fcJ001
0400:32
002",40
003AliH6
170001

75241
75242
75243
75244
75245
75246
75247
75250

060604
0504'12
027241
060620
002l'HJ4
050630
060626
070620

0325
0326
0327
0328*
1d329. UPDATE IDT ENTRY.
"33fh

1d331
~J32

1d3JJ
0334
0335
0336
0337
0338.
0330
0340
0341
i0342
0343
0344
1d345
0346
0347
0348
k'.l349
0350

"'351
0352
id353

0354
",355
0356

0357
0358
0359
0360

75251

160iJ31

75252
75253
75254
75255
75256
75257
75260
75 2 6 1
75262
75263
75264
75265
75266
75267
75270
75271
75272
75273
75274
75275
75276
75277
7531ei0

031036
170620
034620
104200
1ei00201
074032
006400
100 4 0"
0004f/J2
060f)01
100200
01d0724
1ei700JJ
060032
041ei7a4
100400
000456
040033
001722
040030

LUB
CPA
JMP
ADe
JMP

LI6D
1,1
.... 3
.... 8
.... 3

AOB ,+5
LOA 1,1
ADA LTEMP ... 2
SEZ

ce A

STA 1,1
LOA
CPA
JMP
LOA
INA
CPA
LOA
STA
LOA
lOR
STA
liZ
OLD

LOGeT
.... 32

LOiNO
LOG8G
LOGP2
LTEMP+l,I
LOGP2,1
LO-P2
OATlM

SET ~OGP2 TO NEXT
LOG TABLE.

P~ACE

LO~ATI0N

IN

10 IN LO_ TABLE,

COMPUTE TIME OF DAY,

5T8 LTEMP+2
CL.B
OIV .+24

SAVE UNIT COUNTER
GET NO OF HRS.

LOA 1
MPY 061d

CHANGE TO

STA LTEMP+3
LOA LTEMP ... 2
AOA DJ6K

SAVE.
CHANGE UNITS TO MINS.

75301 160075

LOA IOLCP,l

0369
0370

75302 064562

L08 L180

040412

016231
1a'l7377
064031

044375

TA~LE.

BITlei

0368

0372
0373

CHECK FOR ROOM 1N LOG

MIN~.

olV 0600

0361.

1d371

IF OVERFLOW,
USE MAXIMUM.

tTr-2
LO~P2

170620
034604

75303
753 0 4
75305
753 0 6

COMPUTER NEw TOTAL TIME,

C~E

AOA LTEMP ... 3
ALF,RAL
ADA LTEMP
ADA ,+32
STA LOGP2,1
ISZ LOiCT

0361
"'362
0363
1d364
0365
0366

_ET lOT POINTER,

SlE3

JSB
JMP
LOB
1408

COMPUTE TOTAL TIME,
ROTATE
AOD IN PORT NO.
STORE IN TABLE,
BUMP COUNTER.

DRUML
wRITE OUT MODIFIED IDT TRACK
SLE6
BLEW IT, TRY TO SAL.VAGE
LTtMP"'l
_ET POINTER AijAIN,
, ... TTY~lwTTYI0

PAGE ido84 *49

S,,-EEP

lSZ L.TEMP
JMP 5L.E2

TEST FOR

75311 060604
70312 00216162
10313 027311
75314 05031.3
75315 0020161
75316 1027314

LOA L.OGeT
SZA
JMP
CPA T35f1
RSS
JMP ... 2

~AIT

75317
75320
75321
753 22
75323
75324
75325
75326
75327

1.0B MHAO
A08 , ... 2

753~7 "'34030
0375 75310 fl'27162
0376*

16374

0311.
0378
0379
038~

0381
0382
0383
0384*
038&*
0386*
ic1387
k1388
0389
0390
0391
103 9 2
0393
0394
1d395
0396
k1397
16398

0399
ic1400
1d401
0402
16403

1rJ404
04 0 5
~406

0407
04L18
0409
.,410
0411
0412
16413
10 4 14

0415
04 1 6
0417
0418
1d419
13420
1d421
0422
fIl42J
0424
0425

··2

0642116

044354
160001
16000e.

SL.E5

0021602

1d27327
16443616

027321
"'44350

7533v)

104Z01d

75331
7033 2
75333
75334
703J5
75336
75337
75340
75341
75342
75 3 4.3
75344
75345
75346
7 034 7
75350
75351
75352
75 3 5 3
75354
75355
75356
75 357
75360
7 53 61
75362
75363
7536 4
75365
75366
75367
75370

1 kH0001

L.OA B,l
LOA A,I
54A
JMP '\'+3
ADB .... 6
JI"tP SLf.f>

,-2
DL.O 1:$,1

0000ft:l~

CLE,E:RA
ERB,CLE
INS

00204~

~E.Z

002004
10441d0
,,75432

INA
OST SLE.ijA

0607616

LOA MfH2
STA MWORD
LOA SLEeD
LlH~ L..De5A
AI>B 6I T15
JSB DISCZ,l
J58 SICKP,l
LOA ."2
BTA SL.EeT
LOA LSTDA
STA SLETP
DL..O SLETP,l

070215
06 3 04 2 6
1364 20 5
045036
114217
116°15
~J60360

073430
060206
073431
1~4200

FOR L.OG TAliL.E TO Em"'TY ,

WAIT FUR TTY TO STOP.

FIND
AN
A~TIVE.

DISC

AIJ8

000065
Ialil5540

175431
0713215
0374 31
0374J1
ilJ45036
063431
114217
116 0 15
037431
fIl31431
037430
'-127J54

I.)ON~.

SLE4

srA MWORO
ISZ SL.ETP
lsZ SLETP
ADB 81T15
LOA sL..Er P
JSB DISCZ,I
JSB SlCKP,1
lsZ SL.t::.TP
lSZ SLETP
ISZ SLECT
JMP sLE4

CONVtHT
SECTORS
10 BL.OCKS
GET
60UTSTHAp
ADDRESS
612 WORDS IN
800TSTRAP
REAl)
aOUlsTRAP
42 PAtHS

TO L..OAI)ER
COMPUTE AIJDRE,88
OF SEGMENT TABL..E
GET LENGTH ANO CORE ADDRf-5S

READ A PORTION OF THt LOADE.R

FINISHED 60TH PARTS?
NO

8426*
0427 75371 063"27
L.DA HLT4C
YES, lET POwER
f642a 75372 0700."
STA 4
FAIL TO HAL.T
16429 75373 107700
CL.C 0,C
A • 0 SEZ SL.EEP
"'4 30 75374 002400 SL.EHI CLA
JMP aL.ECA,I
0431 75J7f) 127376
TRANSFER TO LOADER DISC DuMP
0432 75376 020000 SL.fi.CA O(;T 20000
043J*
ft)434 75377 060075 SL.~6 L.OA IOL.CP
0435 75400 064072
L.OB WORD
0436 75401 116016
JSB SAL.VP,l
0431*
04;)6*
16439* SL.ECH OUTPUTS THE CHARACTER IN A TO AL.L. ACTIVE
044k1* USER TERMINAL.S,
'441*
0442 75402 00""00 Sl.ECH NOP
fd443 75403 070030
ITA L.TEMP
lAVE CHARACTER,
ft)444 75404 e6e~17
LDA MJ2
8fT
16445 75405 07161631
ITA L.TEMP+!
COUNTER,
0446 75406 064546
Loe OTTYe
~ET INITIAL POINTER.
Aoe ,+110
0447 754ft)7 044356
044a 75410 1,60001
L.OA 1,1
0449 75411 002003
SZA,RSS
0450 75412 027420
JMP SLEta
iNACTIVE,
8T8 LTEMP+2
SAVE POINTER,
0451 75413 074032
LOA L.TEMP
0452 75414 060030
ADS ,_110
ft)453 75415 044346
0454 754 16 11 45 76
Jae OUTCH,l OUTPUT IT,
0455 75417 064032
LOB LTEMP+2
GET 10 POINTER
04 56 75 420 044:575 St..EC2 ADS ,+TTY01-TTY00
0457 75421 034031
18Z LTlMP+l
TEST FOR DONE.
JMP SL.f.Cl
04sa 75422 027410
,,459 15.a3 1274"a
tlMP 'LleH,l
0461*
O~F L.tD
0 4 61 75424 0733'3 LSD
04 6 2 7 54 25 10 J 710 SLEST STc cHl,e
RESPOND TO 2114 SO NO HANG.UP
0463 75426 075432 sLEBD OfF sL.E8A
13464 75427 1163004 Ht..T4C MLT 4,e
0465*
ft)466 75430 000000 SL.ECT BSS 1
0467 75431 000000 SL.ETP ess 1
0466 75432 8'"'10 SLEeA aas 2
0469*
SSLE £~U.
04 7 0 75434

PAGE
~472.

#49

~~a6

HIBERNATE

THE HIBERNATE

CO~MAND

IS IDENTItAL TO THE &LfEP

COM~AND

0473. EXCEpT THAT IT UpDATES THE HDATt WORD IN THE ~QUlpMENT lAeLE ANO
0474* TELLS THE MAG TAPE SLEEP TO DUMP T~E ENTIRE SYSTEM TO TAPE,
11)475.
0476 75000
ORG LIBRA
~477
CLF IiJ
75000 1031013
0476 75001 £160176
L.OA MAGSC
CHECK FOR MAG TAPE
"'479 751302 002002
SZA
0480 75003 027£126
JMP HISA
TAPE PRE8tNT, OKAY
i481",482

10 49 3

7500 4
75005
75006
75k'.107
75010
15011
75012
75013
75014
751315
75010
75017

0494

75020 005116

04 8 3

0484

0485
0486
0487
10486

0489

"'490
0491
0492
0495

063017
0713050
06l1J135
070051
064336
00fH00
016257
060336
0031304
"'64305
026271
07502",

0496
td497

75021
751322
751023
75024
75025
00336
75026

047440

0496

75026 060201

0499
0500

75027 1370203
75374

0501

75374 003400

LOA HIBRl
STA MOVES
LOA T3561
STA MOVED
LOB H1SS1
BRS
JSB MOVEW
LOA HISS1
CMA,INA
L.OB T35Bl
JMP LENO+2

HIBRI oEF *.1

ocr

8ET UP
80UR'E
ANV
Of.STINA":"lON
FOR MOVE ~OUTINE
MAKE WORD COUNT
MOV~ MESSAGE INTO SUFfER
~OAO CHARACTER COUNT

PRINT ERROR

M~8SAGE

5116

ASC 5,0 MAG TAp!

046501

043440
1(l52101
050113!S

HIeS! lQU
HieA EwU

.+HIBR1~*+H18Rlw*+2

*

OATIM
STA HDATE
ORG SI..EHI
CCA
~OA

THE CU~RENT TIMl AND
8ET INTO THE EQUIPMtNl TABLE

~OAD

A • • 1 SEZ H18fRNATE

PAGE 0587
~~02.
~003.

.5~

NEWIO

NEWIO CREATES NEW ENTRIES IN THE SYSTEM 10
FORMAT IS AS FOLLOWS I

TAe~E,

THE INPUT

8ee4.
~005*

ieee.

NfWIO IDCODE,PA8SWORD,T1Mf,DISC

0007* THESE PROVIOE, RESPlcTIVE~Y, WO~oS ~,1.~'4' AND 6 OF THE 10
0008. WORDS 5 ANO 7 ARt INTIA~lZED TO Z~RO,

0010 75000
OHG LISkA
0111.
0012. NOW INTlRPRET PARAMETERS
8813.
JSij GETIO
0014 75iH~0 01(311)
RSS
0015 75001 002001
16016 750162 026275
JMP LFRER
0017 751!!H13 050426
CpA ,+548
16~ltJ
75004 0162401
CL.A,RSS
16~19
70fa05 026275
JMP Lf'RER

0020*

0021. INPUT IO .. 'fA61,E
0022 75006 16007fi
0023 751607 070072
0024 751610 160075
0025 75011 064566
16026 75fiH2 k'44~62
0027 75013 114770
0028 70014 0640t)2
0fa29 7501b 0740J~
0030.
01c);;U.

*

LOA IDLNP,l
STA WORD
LDA IDL(;p,I
~OB

AOB
JS6
L.OB
STe

LIBDI

,+8
DRUM,I

GET
10 ENTRy,
TEST FOR C·OMMA,
OK

NOT OK
A • LENGTH of 10 TABL.E

CALL DRUM O~IVEH TO
INPUT IDTAbI..E.

10

LTt,MP

NOW SCAN PASSWORD

0032.
~~33

751016 002400

16034

75017

070165~

~035

70020
75021
75022
75023
751624
75025

1617231
0701D31
017231
1670032
1617231

0036
0037

0038
0039
0040
0041.

CLA
alA T35~C
JaB NEWIP
STA L.,TEMP+l
JSB NEwlP
8TA LTE.MP+2
JSB NEWIP
STA L.,TEMP+3

070033

0042. GET THE ALLOWED TIME
0043*
0044
0045
0fc.146
0047
0fa 4 tJ
0049
0050

75026 060055

0~51

75035 026275

75027 0504ao
75~30 02 7 03(,
75031
750J2
75 0 303
15034

114572
kl26275
05 0 426
002 00 1

0052.
0053

75036 011176

0fc.154
0055

75037 070034
75040 06005b

LOA
CpA
JMP
JSB
JMP
CPA
RSS
JMP

T35L.C
,+548

NEWl4
T35CH,I
L.FRER
,+546

CHECK FOR
COMMA
(fET NiXT CHAR,

MUST BE A COMMA,

LFRER

NEWl4 JS6 NEwI.
SlA LTEMP+4
L.OA T35LC

ifT THE ALLOTTED TIME
IN MINUTES,

~NTRY.

PAGE:.. 0568

~5ra

Nf,;WID

0t156 75041 050426
0ft157 75042 0102001
ft1056 75~43 026270
0it5g.
0~60
75~44 017170
~rtH)l
75045 070~J6
0062 75ra46 100640~
O063 75047 0741635
k?064 75050 074037
1cl065 75051 06005!l
0006 75{152 05 0 361
10067 75k:l53 0020"1
0fa66 75 0 54 026275
0069.
k'l070 75055 060261
01071 75056 002020
0072 75057 k?27\355
O073 75060 0021302
0074 75061 116015
00"~h

00 76
0077
0078
IUt7i
0k:1 8 ro
0081
"o82
161083
0084

750 6 2
75003
75064
75065
75 113 66

0086
0087
161d88
011389

75070

~2706f'

0090

75077
75077 160076
751ld0 Vl53611
75H:H 027252

0ld92
0093
009 ••
0095·
""96.
0097
0098
0099
01 00
0101
0102
0103
0104
13105
0106
0107
0108

GET THE DISC

~LLUWEU.

Cl..8

STS
STe
LOA
CPA
RSS
JMP

L.TEMP+5
LTf.MP+7
TJ51.C

.+lgB

MUST Sf ENl,) OF
LINE)

LfRER

LOA ENORM

rEST fOR ORUM INPUT DONE

SSA

JMP •• 2
SZA
JSB SICKP,I
LOS IDLNP,I
CMB,INI;.i
ADS L.leD

RI.

01/12011

044342
054562
VJ27077
160001
041d053

filfiI91

JSB NEWI.
STA LT~MP+6

164 0 76
0ro 7 00 6
044562

75066
75067
75ld70
751d71
75072
751073
75074
751d7t)

0~85

CPA .... 548
HSS
JMP LFRfR

"'tw17 EQU
ADB
CPS
JMP

... 8

LIee
NEWI5

ADA MID

SZA,RSS

02714 0
0k'l2"2'
NE~I5

SET

~

TO POINT TO LAST 10 ENTRy

•

LOA 1, 1

01d2~0J

CROAK CREATIVELY

JMP Ni;.W16
SSA,RSS
JMP NEwl7
EQU *
LOA IDLNP,l
CPA N8192
JMP NWSU

POINT TO NEXT ENTRY
DONE WITH 10 T~BLE1

YES,

~ET TABLE 10,
5U~TRACT TlST

10,

TESr FOR EQUAl..
GO PRINT MESSAGE,
IF LESS WE FOUND A HULE.
EL.aE L.OOP,
GET LEN(fTH
CHECK FOR TRACK FUL.L
ANU 5UPERNE~ IF SO

SL.IDt:: ID TABLE. UP
75102
75103
75104
70 1°5
75106

060562
070051

7Shl7

~44562

0162S7
060521d

0109

751116
75111
75112
151 13
75114
75115
75116

~110

7~117

1!)4fc1J6~

07005V)
0k'l701d4

Id7005~

LOA LI8D
STA MOVED
AOA ,+8
STA MOVES
CMIj,lNB
AI>B LIBD
JSB MOVE.,.
LOA OLTEM
SlA MOVES

064342
1616257
061230

LOB

~0740kl

CCB

1044075

. -e

JSB MOvEw
LOA LIBUS
AUS IOLCP

MOVE THE
FIR~T PARl
Of THE 10
TABLE
COMPUTE L.t.N"TH OF MOVE.
MOVe. THE
NEW PART

IN,

sfT uP
NEw
FIRST 10

•

PAGE

~589

#50

NfWIO

0111 75120 170001
0112*
0113 75121 160076
011~
75122 040342
0115 75123 170076
0116 75124 070012
0111 75125 160076
0118 75126 064562
0119 75127 016231
10120 75130 002001
0121 75131 026267
0122 75132 06001~
0123 75133 16 4 076
0124 15134 116016
11125*
0126 75135 06JUib NEw12
0127 75136 064 3 4 3
012a 75137 027142
0129 7514 0 063 160 NEI'II6
0130 75141 064342
0131*
0132 75142 070050 NEw!8
0133 75143 060305
0134 75144 070051
0135 75145 014030
0136 15 14 6 016251
0137 75147 060030
., 1J a 75150 ")I" 1000
0139 75151 00;S1a04
014., 75152 064305
0141 75153 11452i
liU42 75154 026272
IU4:5*
fd144. OUTPUT MESSAGES
fU45.
0146 75155 07tH5C NEWIA
0147 75156 005111
"'148 75157 042040
75160 052UJi
75161 041114
75162 042440
75163 043125
15164 046114
NEWlS
0149 .,0343
0150 75165 075166 NEI'IIE.
"UH 75166 005104
0152 75167 052520
75170 046111
75171 04HhH
75172 052105
75173 020105
75174 047124
75175 0511Jl
NEWIF
01503 00342
0154 75176 0k10000 NEwl.

srA B,l
LOA
AOA
STA
STA
lOA
LOB
Jaa
RSS
JMP
LOA

ON TRACK

IDL.NP,l

MODIFY IOLENGTH

lOL.NP,l
WORD
IDL.CP,l
LISD
DRUML.

OUTPUT
TO
DRUM

,,,8

LENO
lOL.cP
L08 IOL.NP,l
..1aB 8ALVP,I
lOA NEwlA
LO~ NEWI8
JMP NEW IS
LOA NEWIE
Loa NEWl,.

OUT~UT

STA MOyES
LOA T3581
STA MOVED
8T8 LTEMP
JS8 MQVEW
LOA lTEMP
ALS
CMA,INA
Loa T3581
JSB TTYJ5,I
JMP LfNOR

8ET UP FOR MOyE
ROUTINt.
MOVE STRING
INTO BUFF!R,

TABLE FULL

ME8$Aij~

OUTPUT DUPL.ICATE ENTRY MESSAGE.

CALt..
DRlVER,
TERMINATE,

OfF ·+1
OCT ~111
ASC 6,0 TABLE fULL.

EQU , •• +NEWIA+l
OfF .+1
OCT eu)~
ASC 7,UPLICATE ENTRY

EQU , ••• NEWIE+l
NOP
stAN FOR A NUM8ER.

~155

75177

10156

702~@

~.1157
~15ij

75201 1 t 4072
75202 ~27227

",159

752~J

id160
0161
0162
"'163

752id4 \~02~21
75200 027227
752106 0410364
75207 10102120
7~211O 027227

0164

1a165
"'166
0167
016ij
0169
0170
!d171
0172
1:'173
!d174
0175
0:76
0177
0178
0179
0180
1d181
"'182
0183
0184
1d185
0186
0187
01 88
0189
0190
0191
0192
!d193
0194
10195

019 6
0197
lU9th
"'199*
10200.

7~211

CL.l~

~0240~
~7303k1

STA NEWIT
JSB T35tH,l
JMP ""t.Jt~lZ
A:;;A "'1726
SSA,RSS
JMP NEWIZ

040.316

CLE,SSA
JMP NEWIZ
LOB NEWlT
El.8,E-LB
SEZ,SLS,RSS

0676~*1

7!:1213 0IMH:15"&
75214 002001
75215 026275
75216 ~47630

Ras

JMP LFRE;R
ADS NEwlT
EI.B
SEZ,SL.&,RSS

75217 ~1d56f!H'

7,231 02027C5
7524t1 050426

75241

~272J~

7~242

001'21

75243
75244
75240
75246
75247
752510
75251

07J63~

114572
kl2627;)
05~426
i00241i:10

0436Jk1
127231

NOT A DIGIT

ADA ,+10

75212 0id5626

75220 0061d51
75221 10102001
75222 (126275
75223 1d401d01
75224 0~204~
75225 02627~
75226 0272""
75227 1d636310
702J0 127176
75231 0100000
75232 0024016
75233 1064 0 f)5
75234 1(J54426
75235 127231
75236 114572

INITIAl-IZE
TO Zf:,RO.
GEl NEXl CH~RACTER
I,)ONE
TE-ST FOR DH,lT

RSS

JMP LF'RER
ADA 1

SEl

JMP L.fRER
JMP NEWI#+2
NEWlZ LOA NEWlT
JMP NEwI#,I
NEwlP NOP
CLA
L.oa TJe;I.C
CPS .+546
JMp NEWIP,l
JiB T30CH,1
..IMP L.FR£R
CPA .+648
JMP NEwlp+l
AL.f,AI..F
STA NEWIT
.JSB TJfSCH, I
JMP LFRER
CPA ,+546
CI..A
ADA NEWIT
JMP NEWlP,l

~~T

NEXT 2 PASSWORD LETTERS.

If LAST CHAHACTER A
COMMA, RETURN ZERO,

GET NEXT CHAR.

IF A COMMA
SAVE 1ST
CHM<.

IF COMMA TA"E AS
lERO,

THIS SECTION 15 CALLED TO REOISTRl6UTf
THE 10 lABLE ACCROSS ALL THREE 10 TRACKS.

0201.
0202 75252
0203 75 2 5 2
13204*
0205 75253
10206 75254
0207 75255
",20ij 75256
id209 75257

NWSU
itJ7404~

ftl60342
1I14011d2

EQU.
STa NWSV'
LOA

,-e

~40105

ADA IDEC"'2
ADA IDEC+5

0401116
064111

ADA 1DEC+8
LOB NIPT

SAVE POINTER TO ENTRY
NE~ ONE
FIND THE
TOTAL L.EN(fTH

PRECEEO~NG

Of

TH~

1 ASI",E

CHECK NUMSEH OF 1D TRACKS

PAGE 0591 .50

NEWIO

0210 752 6" 054353
0211 ·75261 027135
0212 75262 054354
021J 75263 027277
0214 75264 064347
0215 75265 074045
0216 76a 66 001400
75267 101023
~217
0218 75270 10e400
75271 000355
0219 75272 053607
0220 75273 00600;'
0221 75274 0 5 3 6 10
0222 75275 027135
i6223 7527e> 027311
0224 75277
0225 75277 064350
0226 75300 074045
0227 75301 00740'"
0228 75302 101~2J
0229 75303 100400
75304 000354
0230 75305 053607
0231 75306 006003
0232 75307 053610
0233 75310 027135
0234 75311
0235 75311 0403!s1
0236 75312 070042
02 37 75J1J 04435 1
0238 75314 074043
0239.
0240 15315 063613
0241 75316 0700."
0242 75317 067617
0243 75320
0244 75320 160001
1()245 ,5321 002003
0246 75322 027331
0247 75323 034043
0248 75 32 4 002°01
0249 75325 034042
0250 75326 060042
0251 75327 0i11020
0252 75330 001000
1(1253 75331
0254 75331 170044
0255 15332 0443!S5
0256 75333 03 4 04 4
0257 15334 0340 .. 5
0258 75335 027320
02!S9-.
TABLE
fc:)26 0 *
THE THREE
1iJ261*
"262.

CPS ,+1
JMP NEWl2
cpa .+2
JMP NWSW
Loa ._3
8T6 NW8T
CCB
ASR 3

OlV ,+3

NWSW

NWTA

CPA NUI24
SZB,RSS
CPA NUJ25
JMP NEW12
JMP NWTA
EQU -.
L.OB .-2
8TB NWST
eea
ASR J
01" .+2
CPA N1024
sze,RSS
CPA N1025
JMP NEW12
EQU •
ADA ,-1
aTA NWSS
ADS ,-I

8Ta

NWTB

NWS5

N~S~

LOA N~8NN
ITA NW8P
Loa NWSIO
EQU •
L.OA B,l
SZA,RSS
JMP NWSb
ISZ NWSa
RSS
ISZ NWSS
LOA NWSS
ALS,AL.S
ALB
EQU
STA NwSP,l
AU8 ,+3
l$Z NWSP
ISZ NWBT
JMP NWT~

•

CHECK FOR 81NiLE TRACK
NO MORE RUOM
ONLY TWO 10 THACK51
YES, PEAL WITH TWO
8ET COUNT OF ID TRACKS
FINO NUMBER OF
ENTRIES IN TABLE
SPREAD oVER THREE TRACKS

FULL, OUTPUT ERROR

8ET COUNT OF 10 TRACKS
FINU NUMBER OF E~TRlfs
IN TAa!,.!

FULL, OUTPUT ERROR
INCREAsE • Or ENTRIES/TRACK By
ONt. AND SAVE.
~ET ij COUNT HOW MANY T~ACKS WILL
BE THIS LARGER SIZt.
SET TA8LE POINTER

GE T DRUM AillJRESS
SKIP IF TRACK NOT AL.L.OCATED
TEST FOR BIG TRACK

YES

NO, SWITCH TO SMALLER SIZE
GET TRACK SlZE
AND CUNVERT TO WOROS
STORE TRACK SIZE IN TABLE
AO"AN~E

SIZE TABLE POINlfR

COUNT

NN NOW CONTAINS THE NEW LfN"THI OF
10 TRACKS,

pAGE 0592
0263
0264

0265*
0266·
0267.
0268*
0269.
0270.

0271·
13272.
0273*
0274*
0275.

1.1276.
0277.
027th
0279.

~50

N~WID

1286.
02 8 7
16 288
0289
0290
0291
0292
0293
0294
8290
0296
16297
0298

SET UP POINTEH
TO I..ENGTH kORD

r

10 TABLE ENTRY FO~ TRACK BEING READ
NWSLl •• 10 TABLE ENTRY FOR TRACK ~EING WRI1TEN
N~aK2 •
# OF WOROS READ sO fAR FHOM Kl
NWSI.2 ,
# OF WORDS WRITT~N SO FAR ON II
NWS
• • OF ~OkOS IN ~O~l
NWSP -> • # OF WORDS TO BE WRITTtN ON 1..1
NWSK1

.~

NWS7

75342 150044
75343 027461

75344
75344 063626
75345 !()43612
75346 1302021
75347 ~2747~
75350 07007~
75351

NWsa

06762~

7 535 2 r157623
1~3~3 027472
75354 163620
75355 043625

0300
(l)31!J1

75356 002~02
75357 027364
75 3 6 0 04435~
75361 f~17621t1

16302

75~)62

13299

lO~

THE MAIN PART OF THIS A~GO~lTHM CONSISTS OF TWO
SECTIONS. lN THt fIRST SfCT10N WE HEAD AS MUCH AS
POSSI6Lt INTO THE SWAP AREA. IN TH~ SECONO SECTION
Wl WRITE AS MUCH AS POSSIBLE, THE tNTl~E PHoCEDURt
IS THEN R~P~ATEO UNTl~ WE ARt FINISHED.
THE FOLLOWXNG MEANINGS ARE ASSOCIATED
WITH THESE VARIA~lfS;

111288.
02 8 1 75;34.,
0282 75340 063624
1.1283 75341 01d30e4
0284
13285

NWSNN
SlA NWSP

753.3ti 063613
75337 1/)70044

18 • OF WORDS WRITTE~ SO FAR TO
~1 • # Of WORDS TO ~E WHI1TEN

JMp NWS10

YES GO

UH)

'*

L.OA NWS
AUA NH?32
SSA,RSS
JMP NW811
STA WOR!)
LOe NWSKl
CP13 NIOCJ
JMP NwS11
LOA NW8Kl,X
AOA NWSK2
SZA

JMP NwSg
AOB .+3

STe NwSKl
STA NWSK2

1073625

0303 75363 1627~4"
0304.
1d30!)
75364
0306 75364 064t'0k'
0307 753650f07'0it.;4
0308 75366 ~44072
0309 75367 006020
031fl1 7537~ l!l27374
(1)311
75371 060072
"'312 75 3 7 2 04 0 734
0313 7 53 7 3 ~10610
1a314 75374
0315 75374 k'0200J
0316 75375 027472
0317*

E.QU,..
LDA NwSL.2
CMA,INA
CPA NI'ISP,I

..lMP

NW$9

NWS6

EQU.
LDB A
CH8,rNB

15 THE SWAP

A~EA

FUL.L?

YES, ~O TO WRITE SECTlO~
NO, SAVE AVAILAB~E WORD tOUNT
HAV~ WE R~AD AL.L. THRE.E TRACKS?

Vi',

(to

TO WRITi at.CIION

ON THIS TRACK
A •
NOT REAO YtT
ENTIRf TRACK Rf-AO YET?
NO
VES, TRY NEXT TRACK
A ••

#
_ #

SET # Of WO~DS REAO TQ ZEHO
TEST THIS TRACK

ADA 677
ANO Mo4

6 • # OF WO~OS NOT YtT READ
MAKE POSITIVE
IS # ON TRACK • • WE HAVE
ROOM fOR?
NO, REAO ENTIRf TRACK
GET # WE CA~ FtT IN
REDUC~ TO NEX~ SMALLtR
SECTOR SIZE

SZA,RS5
JMp NWSll

If WE CAN'T READ ANY,
THEN GO TO THE WRITt SECTION

ADS wOio(\)
S~e

JMP NWS9A

L.UA \01010(0
NW59A E..QU •

PAGE
0316
031g
032 0
0321
0322
0323
0324
0325
0326
0327
0328
0329*
14330
0331
03j2
0333
0334
033 5
0336
0337
11338.
0339
0340
1d341
0342
0343
0344
034~

iOJ46
0347
034 8
0349
0350
0351
03'2*
0353
0354
0355
0356
0357
0358
1/)359
14360
0361*
0362
0363
0364
0365
0366
0367
0366
e308.
0370
10371

03 72

~593

#50

NtWlD

75376
75377
75400
754kJl
75402
75403
75404
75405
75406
75407
75411d

070072
063625
006400
1'-31026
0ft37400
04762'"
14000!
064566
047626
016231
116017

8TA WO~D
llJA NWSK2
e1.f)
ASR 6

SET WORD COUNT FOR READ
ijET • READ SO FAR
DlYIDi BY 64 TO GET
SECTOR ADDRESS

ADB NWSKl

GET 10 TRACK ADDRESS
COMPUTE READ ADDRESS

75411
75412
75413
75414
75415
75416
75417
75420

064rd72
007004
047626
077626
064072
007004
04762t5
077625

L.DB WORD
CMB,INB
ADe NWS

UPOATE COUNT OF WORDS
IN CORf.

L.DB WORD

UPDATE COUNT OF WOROS READ
FROM THIS TRACK

75421
75422
75423
75424
75425
75426
75427
75430
75431
75432
75433
75434
75435

063627
002002
027344
063620
050076

L.DA NWSTCI
aZ A
.IMP NWSS
1.DA NWSKl
CPA IDL.NP
HaS
JMP NWS8
ADS 1.IBD
CMS
ADS Nw8V
SSS,RSS
JMp NWS8
INS

002~PJl

027344
044562
007000
044041
006021
027344
006004

75436
75437
75440
75441
75442
75443
75444
75445

037627
068562
043626
040361
070051

75446
75447
75450
75451
75452
75453
75454

0600fH"
002004
070051
060520
070050
064342
0162fi7

040~42

070050
016243

75455 063626
75456 04 0 362
7 5 4 5 7 07 3 626

cce

ADA
L.OB
ADB
JSB

B,l
LIBDI
NWS
DRUM1.
JSB DEAOP,l

ITS NWS

CMS,INS

NwSK2
STS NWSK2

GENERATE RfAD ADDREss AND
READ IT It'!
BL.Ew IT, ARRGH

AD~

lSZ
L.DA
ADA
ADA
aTA
ADA

NWSTG
1.IBD
NWS
,+7

MOVED
,_8
STA MOVES
JaB MOyEB

1.DA MOVES
INA

STA
l.e A
STA
1.OS
JaB

MOVED
DL.TEM
MOVES
,-8
MOVEw

LoDA NWS
AOA ,+8
STA NWS

HAVE WE INSERTED THE NE~
ENTRY yET?
YES, TRY To READ SOME MORE
ARE WE READING THE TRACK
IT WAS fa Go ON?

YES

NO, TRY TO READ SOME MORE
DETERMINE IF WE HAVE READ THE
ENTRy PRECEEOING ThE NEw ONE

INDICATE ENTRY HAS BEEN
COMPUTE
MOVE
DESTINATION
COMPUTE MOVE SOURCE
CAl.L. THE REVERSE MOVER
NOW 8ET DESTINATION
TO POINT AT FIRST
WORD OF H01.E
SET SOUR,E AT 1.TEMP
MOVE IN ENTRY
£1(;HT MORt
WORDS ARE NOW
IN CORE

INS~RTfO

0;)7 3

CONT1NUE REA01NlI

.,;'74*
0375*

~0~~

HERE WHEN

TH~

CURRENT OUTPUT TRACK HAS BEEN

Fl~LEO

0376*
10377
0378
0379
k1380

75461
10461 &163621
75462 ~53622
7546,} ~27570
75464 \I;l4e35~

NWS1~

EIJU ..

LOA NwSL.l
CPA N1DC2
JMP NWS16

0381
"382
\1383
0384

75465

i~7 3621

75 4 ,~ 6
75467

t~ \(J (I 4 Id !-)

CLA

~/J62t

SlA NwSl..2

IClJ85

7e;4"!0 1;\.34044

0386 7'S4/1
0387*
"381310389*
0391"*

0391·
0392*
0393*
0394*

AOA .+3
STII NWSl.l

ISZ NWSP
JMP NWS7

~'27J4j'!

NW88

"396·
039711~39th

04~4

04\15
1d406
1d41ll7
0408

75472
75472
75473
75473
15474
75475
75t.7fi
7':)477

•

NWSll
N~81f5
~7\tl04~

063624
140044
'LJo76~\

05762k'

7550&1 i:'l2i5j.4
7551tJ 1
75501 !do404?

t:.(,lI,J

•

CLA

0fQ2401n

NIM$lJ

E.WU •

STA NWSS
LDA N~SL2
AOA NWSP,I
LU8 NWSLl
CP~ NWSKl
JMP N~S12

E,i.~U

SET B

sTB

SAVf
COMPARE WITH

755V.13

0412
1t)413
\0414

755v.11\ 1,;174043
705 0 0 ~4~lt.j~~

0415
1d416
1d417

75007 It.2752J
750110 iOo~04J
75511

YJl~61k1

AD8 A
SS8,RSS
JMP NwS14
LUA NWSij
AND Mb4

041ij

75512

\:',!~':HH14

CMAfINA

fd419
0420

75513
75514

~12752J

JMP 1>1"'814
NWS12 f.:QU •

7551. 4 v.167624
75515 Ic(c17l1J~4
75t-'1.6 04162e

LO~ NWSL2
CMe,lN~

75517 04400VJ
?5!1)20 0117025

ADS A

755~6

v.H.16~21

75521

04~HHH

75522

~;27':;~.\

.*

..

0411

~:l4762t'

SET _ OF ~OkOS WRITTlN OUT
SET WORO •
OF WOROS LEfT TO
SE WRITTEN U~ 1..1
TESt FOH WRITl~G ON A TRACK
NOl YlT ~EAn
WE ANt, CHECK fOR OVlRL~Y

LOB NW3S
CMB,INB
ADB N",S

755if)2 0~7e'W~

0421

SET r-oUMljEH Of ~'OROS ~RI TTEN
SU FAR 10 ZeRO
ADVANCE POINTER TO WORDS
TO ~E WRI TH:,N

COUNT OF WORVS THAT HAVE SEEN
WRllTEN FROM THE CURRENT CGRE LOAD,

0409
\:1410

1d422
0423
0424
0425
1d426
13427

ALL OCNE, CL~A~ UP lOte
ADVANCE ,0 NEXT T~ACK

THl~ SlCll0N IS THt OU1PUT SECTION,
THIS SECTION
IS ONLY ~AL~EO WHEN NO MURt CAN ijE READ, THIS SEcTION
WRITES OUT AS MUCH AS POSSIBLE UNliL WE HAVE EXHAUSTED
ALL wE HavE IN CORE OR UNTIL FUR1H~R OU1PUT ~OuLD
uvtRLAY !NFURMATION THAT HAS NOT bEEN HEAO,
THE FULLOHING ADDITIUNAL VARIAS~ES
~R( USED IN lHlS StCTION;

0395*

fc:)399
1d400
"401
k'l402
0403

rEST FOR L.AST TRACK

NWS~

ADS NWSK2

~

#

LEFT IN CORE

#

WI:. wANT 10 wHITt:.

HAVE tNOU~H. • CoUNl IN A
ONLY WRITE WHll WE HAVE
MAKE fULL StCl~R
MAKE NEGATIvE
IF WRITING ON UNREAD TRACK, MAKE
-SURE WI:. DON'T GO INTO UN~EAD
AREA

CMB,ssB,INB,RSS
ADA b
CHANGE COUNT TO AVOID OVERLAYING
JMP NWS13
UNREAD DATA

.,42,..
0429·
~430.

A NQW CONTAINS THE NEGATIVE COUNT OF
THAT ARE TO BE WRITTEN

843'.
~432

0433

0434
10435
0436
0437
0438

0439
0440

75523
75523
75524
75525
75526
75527
75530
75531
75532

NW814 EQU •
070072
002003
027561
003004

070043
063624

002002
027542

0441*
0442 15533 063021

0443
0444
0446

0446
1d447
0448

75534
75535
75536
75537
75540
75541

040350
064562
044 0 42
164001
174000
002400

75542
75542
75543
75544
If>545
75546

006400
101026
0161400
047621
140001

144!h
0450

0451
0452
16453
0454
0455
0456
0457
0458

0459
0460
0461
0462

044"42
016231
116017
060043

043624

75555 07J624

0463

75556 064043

0464
0465

75557 0410042

0466.

0467·

STA WORD
8ZA,RSS
JMP NWS17
CMA,INA
STA NWSB
LOA NWSL,2
SZA
JMP NWS18
LOA
ADA
LOB
ADS
LOB
STB
CLA

NW8Ll

,-2

L,1t30

NWSS
6,1
A,l

IF NO WURDS ARE TO

B~

WRITTEN,

GO MoVE CORE FOR NEW INPUT

TEST FOR FIRST WRIT! ON
TH" TRACK
IF THIS IS
. THE FIRST
WRITE ON THiS
TRACK: THEN
UPDATE THE
lUfC TABLE

NWS18 EQU ."

75547 064562

75550
75551
75552
75553
75554

~ORDS

75560 027473

CLa

ASR
CCB
ADa
ADA
LOB
ADa

JSB
JSB

LOA
ADA
STA
LOB
ADA

JMP

6

CONVERT WORD COUNT
TO SECTOR ADDREss

NWSL,l

B,l

LISD
NWSS
DRUML
DEADP,l
NWSB
NWSL2
NWSL,2
NWSt;
NWSS
NWS15

AOD IN TRAC~ ADDRESS
GENERATE
CORE ADDRESS
AND OUTPUT CURRENT PIECE
eL.Ew IT, ARRGH&
ADJUST NUMBER OF WORDS
OUTPUT TO TRACK
ADJUST

OF cORE WORDS
OUT 80 fAR
L.OOP FOR ANY MORE WRITING
NUMB~R

WRITT~N

COME HERE WHEN WE CAN'T WRITE ANYMORE

0468.

!d469
"470
115471
0472
0473
0474
0415
0476
0477
0478
.. 47i
0480
0481
0482

755 6 1
75~61

801842

75562 027J41D
75563 064042

75564
75565
75566
75567
75570
75571

007004
047626
071526
007004
06frH562
0700151

15572 141.42
75573 0700150
7 55 7 4 01 6 25 7

75575 027340

NWS1' EQU •
CPA Nwsa
JMP NWS7
LOB NWSS
CMB,INS
ADB Nw$
STB NWS
CMB,INB
l.DA LlSD
STA MOVEO
AOA NW88
8TA MOVES
JSB MOVEW
JMP NWS7

If NOTHING .RITTfN AT ALL, GO
THY TO READ AGAIN
ADJUST NUMBER OF WORDS
IN CORE

MAKE NEGATIvE FOR MOvE ROUTINE
8 f T"

• DESTINATION
AND 80UHCE

PAGE
0483.
0484*
kJ485.
~486*

~59b

#50

NEWID

ALL OF THE ID TRACKS HAVE NOw BEEN ~RITTEN
BA~K TO THE DRUM.
UPOATE THE wORD COUNTS IN
THE IDEC TA8L,E

04e7*

1048d

111489
1.1490
~491

13492
1.1493
1.1494

75576
75576 t16361 4
75577 137131132
75613kJ ~63615
756~1 07011.15
7 561~2 063610
756133 ,,70110

10495

7561.14 ;cH:i2400

ill496

756\15 1tj70260

10497 75606
0498.

75607 176001d
75tH k:l 175777

1a50l

75611

13502

INDICAT~

CL.A
STA

NH124 OfC -1024
Nl~25

Dr.C -1025

75612 15.t10Hl

N8192 DEC ",8192
NT232 I'~S 8",UL.EN

10 5 133

75 6 13

f{)51t)4

75614 0013000
01a1641
:oeu42

NwSNN OEF ·+1

0505
05136
0507

~75614

rHHil4J

1650S
0509

001344

0510

7~o17
7562~

10511

16000~

"H!l~45

ass 3

N~8V

NWas
NWSB
Ni'jSP
I'I,ii'jSl

EQU
EQU
EQU
EQU
£:.QU

DfF

~00H31

NWSID

00101102

NWSKl DEF

05 12
1a51J
k'l514
0515
0516
0517
{tJ51S

75624 11010000
75625 ~:H100 tJ III
75626 ~00000
70627 ~00000

165 1 9

156JI2l

~00001a

1tl520

70631

75621 10001102
75622 010011v;
75623 00011~

To SWAPR THAT
P~OGRAM IS IN (;ORt

NO L,lBRARy

LIB
JMP LEND

~26267

16500

111499

NWS16 lQU •
LL)A NWsNN+l
aTA ll>EC ... 2
LOA NWSNN+2
alA IOiC.5
LOA NWSNN+J
aTA IDEC+8

L.TEMP+9
LTEMP+IIO
I.,.TEMP+l1
LTEMP+12
LrEMP+1J
IDEC"'l
IDE.C+2
IDEC·2
IOEC+8
IDEC·l1

N~SLl OfF
NIDC2 DfF
NIoe 3 OEF
NWSL2 ocr
N~SK2 OCT 10

'"

N~S

t'lWSTG

OCT 0

oCT

"

Nt. WIT

BSS

$NEW

E.QU •

1

FIRST DRUM ~~DRESS
10 TASL.E ENTRY FOR READ TRACK
.> IU TAB~E E.NTHY fOR WRITE TRAC

.JI
DJI

• I..ENGHT fO~ WRITE TRACK
• I.ENGTH FO~ REAO TRACK
• # OF WORD~ IN CORE

PAGE

~597

#51

KILLIO

0002* THE KILLID ROUTINE IS USED TO REMOVE 10 CODES FROM THe SYSTEM
0003. lOTA~LE. THE FOHMAT IS.

11014*

KILLID • IOCOOE
0005*
fU'06 *
01007* IOCODE A000 CANNOT BE KILLED BY THIS COMMAND.
0008. GROUP LIBRARIANS CANNOT BE KILLED If ANY MEMBER Of
01009.

THEIR GROUP IS LoGGED ON,

0"10.

0011. KILLIO PERFORMS THE fOLLOWING FUNCTIONSI
IIUa.
01013. 1, THE

ID.COO~

18 REMOVED fROM THE lOT.

0014. 2. ANY UStRS LOGGED ON WITH THIs NUMBER ARE DUMpED.
0015* 3. ALL LIBRARY SPACE ALLOCATED TO THIS 10 IS RETURNED 10 THE
0016.
SYSTEM •.

0018
0019
0ld20
0021
0022
0023
"024*
0025*
"026*
0027
0028
0029
1d030
10031

75000
7511""0 016315
75001 026275
751d~2 060052
75003 050612
75004 027164

0042
0043
0044
0045
1011:146

75005
15006
75001
75010
15011
75 012

010602
006400
10.04"0
000431
006002
02 1 043

0048
00 49

0050
01051

0052

TRANS~ATE THE IDCOD~.
ERROR IF NO CR fOLLOWD.
TEST FOH A000,

A000
KI031

15022
7502;)
75024
75,,25

75027
75030
75031
75 032
1 5 033
75034
75035

AND 131777
CLB
8ZB
JMP KIOAA

I..OA
STA
Loa
A06
EWU
8Te

M32
KIDC
OTTY16
.+?lU
•
KIDP
6,1
10
KIDAF

1013400

OlV .10k)

100200

SKIP IF EVEN HUNDRED
NOT EVEN, NOT GROUP LIBRARIAN

ANY OF HIS SUBJECTS ARE ON

0270J7
01 0602

0064016

MASK TO NUMBER PART

OIV ,100

LOA
CPA
JMP
AND 61777

75020 160~01
75021 050'12

75026 000437
01047

l.IaRA
GETID
LfRER
10

CHECK FOR GROUP LIBRARIAN

0032*
CHECK TO SEE If
0033·
1it0J4*
0035 75013 060317
0ic)36 75014 07 00 42
0037 75010 (664546
100J~
75016 044356
0039 7 501 7
KIOAO
0040 75017 1674031
01041

ORG
JSB
JMP
LOA
CPA
JMP

COUNl Of USERS

.>.,.

fIRST TTY TABLE
fIRST 10

POINTER
GET THE 10 OF THIS USER
THE iAMt:l
yES, HE GETS KIL.LlO ANYWAY
I..EAVE T~E NUMBER PART
SAVE

tl.8

MPY .10'"

TURN

L06
L.OA
AND
lOR
CPA

SAVE IN a
(lET THE 10 AGAIN
LEAVE LETTER PART
CONSTRUCT THE GROUP 10
IS THIS ONE IN HIS GROUP?

~ACK

INTO NUMBER

000437

064000
1 6 0031

01 0 7 32

030001
050052

A

KIOP,l
M2"'00

B
10

PAGE

~598

#51

KILLlu

0057
0058
0"'09

7=>1036
75037
750J7
750410
7504 1
75042
75043

0~61*

READ IN lOT,

101053

0054
0~55

k'~56

006f".

027172
064k'J1

1044375
034 0 42
027fd17

JMP
tKEYIO

SUMP TO NtXT lRACK,

0226* PROCESS DIRECTORY TRACK IN ORDER TO REMOVE KEY 10 ENTRIES, THE
0227· ulRECTORY 18 READ INTO THE aEGINNIN~ OF THE WORKSPACE ANO IS
0228. SCANNED IN REVERSE ORDER, A TABLE OF PATCHES IS BUILT UP
0229* STARTING AT ~laUS+8192,
023rh
THE FOLLOWING POINTERS ARt::: USED'
.,2Jl*
DIRECTORY ENTRY BEING TESTED
0232. KIDPI
0233. KIOP2 a> FIRST ENTRY FOLLOwING LAST KID ENTRY
0234* KIOP3 a> LAST ENTRY IN DIRECTORY
0235* KIDP4 a> LAST ENTRY IN PATCH TABLE
.,236*
10237 75270
KI02 EQU *
aTA WORD
SET UP LENGTH FO~ DRUM lRA~SFtR
16238 75270 070072
~239
75271 003004CMA,lNA
0240 75272 040562
ADA LISD
0241 75273 040336
ADA , .. 12
SET KIOP3 TO POINT TO LAST
16242 75274 070040
aTA Kl0P3
ENTRY IN DiRECTORY,
0243 75275 070036
STA KIoPl
SET POINTER TO CURRENT ENTRY,
0244 75276 061002
LOA 1..8192
INITIALIZE PATCH TABLE
0245 75277 07""41
aTA KIDP4
POINTER". :
0246 75300 002400
CLA
0247 75301 070~~"
STA LOCTC
SET PATCH TA8LE LENGTH
0248 75302 060(~32
LOA KIOl
GET DIRECTORY

.>

PAGE
0249
0250
0251
0252
0253
0254*
{o 2 55
0256
0257
0258
0259
0260
~261

0262.
0263*
0264.
0265
1d266
0267
02b8

0269
0270
0271

~6~2

#01

KILLID

7531113 0403b0

ADA ,+6

160000
75305 064566
75306 016231
75307 116017

LOA 0,1

753164

75 3 10 160036
75311 001665
75312 040053
75313 002021Q

LOB

Klu7

75314 027401
75315 002002
75316 027353

SZA

02 9 4
0295
02 9 6

GET 10 Of NEXT ENTRY

COMPARE wITH
TEST FOR <
TEST fOR

~fY

10.

)I

FOUND AN ENTRY fOH KIO. NOW REMOVE IT,
75317
75320
75321
75322
75323
75324
75325

75347

iJ293.

LUA KIOPld
ELA,CLE,ERA
ADA MID
SSA
JMP KI06
JMP K1D8

064036

LOB KIDPI
ADS ,+12
L.OA KIDP4
CPA L8192
S18 KIOP2
CPA L.UL.EN
JMP KIDE

{d44366
060041

1d51002
074037
050530
027361

0272.
02 7 3 75326 160032
0274 75327 040366
0275 753J~ 170032
16276 75331 070072
0277*
0278 7533 2 064{d36
0279 75333 044361
0280 75334 1601c)01
0281
75335 170041
0282 75336 034041
0283 75337 044350
0284 75340 160001
02 8 5 75341 17004 i
0286 75 3 4 2 03 4 0 4 1
13287 75343 044347
0288 75344 104200
75345 100001
02 89 75346 104400
0290
0291
0292

Ll~DI

J8B DRUML.
JSB DEAOP,.1

DISC ADOjo(E DRUM AL)DRf.SS

SET INTO pATCH TA8LE
ADVANCE POJ~Tt:R
-> L.ENGTH
A • L.ENGTH
SAVE IN PATCH TABL.E
... DISK ADDHESS

DL.D B,I

GET DISK ADUREss

DST KII.>P4,1

SAVE IN PATCH fABL.E

ISZ KIOP4
ISZ KIOP4
ISZ LOCTe

INCREMENT

LOB KIDPl

T~8T

10~041

75350 0;'4041
75351 034041
75352 1d34030
75353
75354
75355
15356
75357

If THIS IS THE fIRST

064036

KIDS

cPa

LIBD
JMP KID6
ADB .... 12

~54562

0274 0 7
1644335
074036

ENT~Y

COUNT

fOR fINISHED
EXAMINING DIRECTORY ENTRltS.

0297
IF NOT, MOY~ POINTER BACK TO
0298
ST8 KIDPl
NEXT ENTRy,
0299 75360 027310
JMP KID7
0311.
0301* MAKE ROOM BY PUSHING UP PARTIAL.L.Y EXAMINED DIRECTORY,

,

PAGE 0603 #61

IJ02.
0303

KlLLID

044040
007000

EQU ,.
LOB KIDP1
ADS ,+12
STa MOVED
LOB KI0P2
STB MOVES
CMB
AU8 KIOP3
CMS

044336
016257

JSB

75361

0304

75361 064036

0305
0306

75362 044366
75363 07~051
75364 064037

0307
03 08
0309
03U'l

0311
0312

0313

75365
75366
75367
75370
75371
75372

KIOE

07405"
007kl"0

AUB .. -12

,,;514.
0315 75373 06 00 32
0316 75374 040360

0317
0318
0319

75376 064562
75377 016231

0320
0321
0322
0323
0324

75400
75401
75402
75403
75404

0325
0326

MOVE~

LUA KIDl
ADA ,,+6
LOA A,1
LDB LIBO
JS(; DRUM'"
JSB DEADP,1
LOA LOCTC
CMA,INA
STA LOCTC
Jsa KIDRR
JSB TBOAP,1
JMP KIoRE

75375 160kl00
11e017

060030
00300~

070"30

fd17476

75405 116013
75406 027252

SET UP
DEST AND
SOURCE,
COMPUTE #
OF WORDS
TO MOVE
AND
DO IT,
->
->

DIHEC ENTRY
DRUM ADDRESS

DRUM ERROR WITH NO HOPE
~ET ENTRY COUNT
SET NEGATlVE FOR OTHER USERS
RESTORE URuM SPACE
RESTORE DISK SPACE
CONTINUE ON

0321.
0328* THE PATCH TABLE IS NOW BUILT, THE NEXT STEP IS TO FIXUP THE DIREC.
ri329.
0330
0331
0332

0333

75407

75407 061iH:'IJ0
75410 00J007
75411 02747 ..
75412 07003ii!

KI06

EQU.
LOA LOCTe
CHECK LfN'TH OF PATCH TABLE
CMA,INA,SlA,RSS
JMP KIDl8
STA LOCTe
SET NEGATIVE ~OUNT

0334
0335.
LUA KIDI,l
0336 75413 loliUc'JJ2
SZA,RSS
IF LENGTH-" WE OONT HAVE TO
0337 75414 002003
0J38 75415 027453
JMP KID10
WRITE IT BACK OUT,
STA WORO
0339 75416 070072
SET UP FOR DISC DRIVER.
03.".
THERE ARE 2
0341* WE FIRST HAVE TO CLOSE UP THE HOLE

0342* CASES, DEPENDING UPON WHE1HER THE HOLE IS AT THE
0343* BEGINNINb OR IN THE MIDDLE,
03 .....

0345
0346

0347
0348
0349

0300
0351
0362

0353
1d354

0365
1!:1356

75417 06 00 37
75420 ~7005~
75421 064033
75422 054052

75423 027435
75424 "'60036
75425 040366
75426
75427
15430
75431

0500e",
027442
064040
00'''04

75432 044037

LOA
STA
LOB
CPS

KIDP2
MOVES
KH)T
10

JMp KIOll
LUA KIOpl
AUA .... 12
CPA MOVES
JMp KIo12
LOt; KIOp3
CMB,INS
ADS KIDP2

WE WILL MOVE fROM KloP2 IN
ANV CASE,
GET fIRST IC l~ B.
IF - HOLE IS AT ~EGINNING
GO SET NEw fIRST 10,
SET OEST, TO ijE RIGHT AFTER
LAST ENTRY EXAMINED
FORGET IT IF SAME AS SOURCE,
COMPUTE • OF WOROS To MOVE,

PAGE 06164 *51
{OJ57
0358
0359.
03613
fc1J61
0362
0363
13364
036&*
13366*
0367*
0368
16369
163713
1c)371
0372
16373
..,374
0J75
0376
0377.
0378
10379
0380
0381
13382
10383
0J84
0385
0386*
13387·
0388*
038~

11'390
0391
0392
0393
k'394
0396*
~396

0,)97
039a
0399
0400
0401
0402 •
.,403*
04134
"'41215
0406
0407
1iJ408
0409
"'41121
~411.

KIL.L!D

75433 044336
754J4 0274413
7 5 435
75436
75437
7544(1
75441

060032
16162004
064345
1370051
1316257

AO~ , ... 12
JMP KI 0 13

KIDll LOA KItH

(;0 MI,lVE IT,
SET UP Ni:.W

Fl~ST

10,

l~A

Loe ,-5
KID1;) srA MOVED
JSS MOVE\tj

NUW wRITE DIRfCTORY BACK TO DISC,
75442
75443
75444
75445
75446
75447
75450
75451
75452

V164562
13613052
1350 0 33
{()64037
060032
040360
160000
1616231
116017

75453
75453
75454
75455
75456
75457
75460
75461

060113
070072
060112
1364566
016231
116017
017476

KIo12 Lue
LOA
ePA
L08
L.OA
ADA
LOA
Jse
JS8

L.ISO
10

DRUML.
DEAOP,l

WRITE TO DRUM
DRUM ERRO~ \tilTH NO HOPE

KIOHI EQU
LDA
srA
LOA
LOB

•AUL.fN

READ IN ADT

DET~RMINE

CORE

AOO~ESS,

KIDT

KIDP2

K101

GET 015C AOURESS,

.+6

0,1

WORD
ADL.OC
LIBDI
JS~ DRUML.
JSB OEAOP,I
Jse KIDRR

DRUM fRROH WITH NO H(JPE
RESTURE DRUM SPACE

WRITE ADT TO DISC

AOLfN

064113
11'74072
060112
064562
016231
11611'17

LOB
STB
LOA
L.OB
Jsa
JSB

7547ki 11611'13
75471 06121033
75473 027263
75474 1031121121
75475 026267

JS8
LOA
CPA
JMP
KID18 eL.F
JMP

7 54 76
75477
75500
75501
755132
7550.)
75504

KIDRR NUP
LOA ADLfN
alA WoRD
LOA A&)L.OC
LOB LIBDI
JSB ORUML.
JSe DEADP,1

7C5462
75463
75464
75465
75466
75467

7547~

k)50052

12110012100

06011 J
070072
060112
064566
12116231
116011

WORO
AOLOC
L.IBD
DRUML.
DEADP,l
TBOAP,I
KIDT
10
KID1

ORUM ERROR WITH NO HOPE
RESTORE DISK SPACE
IF F1RSl 018C ENTRV
wAS NOT 10, wERE DONE.

0

L.END

REAl) IN ADT

DRUM ERROR WITH NO HOPE

PAGE
"'412.
1413.
0414
0410
0416
0417
0418
0419
042121
0421
0422
0423
0424
0425
0426
0427
0428
0429
043 0
0431
(rJ432
0433
r6434
0435
04 36
16437
0438
0439
0440
0441
0442
0443
0444
0445
0446
0447
0448
0449
0460
0451
0452
04DJ*
e'-54",
0455
04!)6
O457
0458
0459
0460
0461
0462
0463
0464
0465
0466

0"60~

*51

KIL.L.II)

WRITE A07 TO DRUM
75505
7551216
75507
75510
75511
15512
15t513
15514
15515
75516
15516
15517
1 55 20
75521
75522
75523
15524
75525
75526
75527
75530
75531
155 3 2
7 55 33
75534
15535
15535
75536
15537
75540
15541
75542
15543
75544
15544
15545
75546
75541
75550

064113
12174012

1..08
5T8
LOA
LOB

060112

064562
0162:51

JSB
JSB
LOA
STA
L.OB

116(117

12160030
010031
06~002

1217412136
16121001
034036
002011')
021535
070044
16121036
00212121
027532
007400
t 02.126
00J005
00102"
070045
116012
16liUJJ6
002021
021544
007400
101030
003004
110036

1..81~2

KIDR8 EQU •
STB KIOP1
L.OA B,I
ISZ KI0P1
SZA,RSS
JMP KIORV
STA KIL.D
L.DA KloPt,I
SSA,RSS
JMP KIDRT

tce

ASR 6
CMA,INA,RS8
KIORT AI..8,ALS
aTA KII.OF
JSB RSFSP,1
KIORV EQU •
L.OA KIDP1,1
SSA,RSS
JMP KIDRW

eca

KIORW

ASR 8
CMA,INA
alA KIoP1,1
~QU

•

I.oa KIOPl
ADS .... 3
Isz KIOp
JMP KIDRS
JMP KIDRR,l

064036
044355
03"031
027516
121476

15551 030000
15552 031051
00031
160032
00033
000JO
001631
00040
0,,41
"0042
"Iel043
75553

AOI..EN
WORD
AOI..OC
1..180
ORUML.
OEAOP,l
L.OC r-C
KIOP

KOIRe
KOIRI.
KloP
KIUI
KIOT
KIOP1
KIDP2
K1DP3
KID'.
KIDC
KID8
SKID

OEF olRf.e
OfF DIREI.
EQU L.TEMP"'l
EQU LTEMP+2
EQu L.TEMP+J
EQU LTEMP ... 6
EQU L.TEMP+7
EQU LTEMP+8
EWU LTEMP.e
EQU L. TEMP+H'l
EQU LTEMP+ll
EQU ..

DRUM ERRQR WITH NO HOPE
GET COUNT OF ENTRIES
.ET TABLE

B~GINNING

POINTER

SET A CONVENIENT POINTER
GET THE DRUM ADDRESS
AOVANCE POINTER TO I..ENGTH WORD
SK1P IF DRUM SPACE
NO DRUM SPACE, JUST CONVERT I.EN~
SAVE AOOHlSS fOR RS~S
(;ET LENGTH ~ORO
8KIP IF N!'ATIVE (WORD COUNT)
POSITIVE ( BLOCK8 )
CONVERT TO SECTORS
CONVERT BLOCKS TO SECTOR8
SAVE L.ENGTH FOR RIFS
RESTORE SPACE TO AoT
fiET L£NGTH
SKIP IF N£G~Tl¥f ( WORD COUNT
POSiTIVE ( ~I.{JCK COUNT )

)

MAKE INTO BL.OCK COUNT
ALTIR TABLE FOR OISK SPACE. RETUR
GET PATCH TABLE POINTER
AOVANCE TO NEXT ENTRY
CHECK FOR END
NoT END, PROCEsS NEXT
RETURN

PAGE

~b06

#51

UNLOCK

046ij* THE UNLOCK COMMAND IS USED TO RlSTORE TO THE SYS1EM ANY ORUM
04b9* lRACKS

WHICH HAVE PREVIOUSLY

a~EN

0471tJ* COMMAND IS AS FOLLOwSa
0471*
UNLOCK-DRUM,TRACKF [,THACKL]
0472*

LOCKED.

THE fORMAT FOR THE

0473*
047~*

10475.
VJ476*
0477.
0478
10479
10480
!d48!

DRUM IS THE DRUM NUM~ER. TRACKF AND TRACKL SPECIFY THE FIRST &
TRACKS TO dE UNLOCKED, If TRACKL 15 NOT dPECIFIED, IT IS
ASSUMED TO BE E~UAL TO TRACKf,

~AST

75000

751iJ1cH'l 017160
750131 177774
75002 12150426
75003 002001
75004 1026275

1'd482
1'd483
04841.
0485 751.105 074030
ra486

75006 044676
75007 1600ltJl
75tH 10 0020163
75011 027250

0487
0488
0489
0490*
84191 15(112 IU110(1
0492 75~HJ 177700
If.l49 3 75014 ~740J1
°494 751.115 05 1tl 426
0495 75~16 002001

0496

027022

ORG
JiB
OCT
CPA
RSS
JMP

LIBRA
UNt.NO
",4
,+546

CHECK FOR CUMNA

FOLL.U~ING,

LfRER

STe UNL.D

ADB 1ATbt.
LOA 1,1
slA,RSS
JMP UNL.l
.1.1
OCT
STe
CPA
RSS
JMP

GET ORUM NO, IN 6

UNL,NO

SAVE. DRUM NUMBER
MAKe. SURE
ORUM EXISTS

NO DRUM
Gt;TFIRST

TRA~K

.1100

UNI"F
,+546

ONL.Y TRACK?
NO

•• J
"41;7*
JSB UNL.NO
fd498 7502~ 01716 CO
GET I..AST lRACK,
11)499
751.121 177700
OCT .1~0
1d500 75022 051.1367
CpA •• 1~6
0501 75023 002001
RSS
1001.12 75k.l!24 026275
JMP LFRER
aTe UNt.1..
10503 75025 1374032
eMS
0504 75026 00701211(J
0505 75027 044031
Aoe UNLF
0506 75030 006021
SSB,HSS
1.151.17 75031 02726J
JMP UNL4
NOT OK.
0508*
LOA UNL.O
CONVERT DRUM/TRACK NO, INTO
0 5 0 9 75 032 1t1 6 0031d
1ij510 75033 10004t.i
LSL. 6
SINGL.E TRACK NO.
0511 75034 0401.131
AOA UNI"F
0512 75035 070031
srA UNL.F
STA UNL.T
1.1513 75036 0700"3
0514 75"'37 060030
LOA UNLD
1d515 75040 100046
LSL. 6
1d516 75041 040032
ADA UNL.L.
0517 75042 070032
STA UNL.L
0518*
0519. NOW SCAN TRAX TO DETERMINE HOW MANY TRACKS WIL.L
0520* ACTUALLY BE OPENED.
0521*
Ct.A
INITIALL.Y COUNT IS 0.
1.1 5 22
15~H7

PAGE.
0523
0524
0525
0526
0527
0528
0529
0530
0531
0532
0533.
0534
0535
0536
0537
16538
0539
0540
0541
0542
0b43.
0544
0545
0546
0547
",548
0549
0550
0551
0552.
0553*
1554.
1.1555

1d556
0557
0 55 ti
0559
056O
0561
0562
0563
0564
1()565
11) 5 66
0567
"'568
10569
10570
[d571
0572
0573
[d574
0575
0576
.,577

0b~7

75044
7 5 045
75046
75047
75050
75051
75052
75053
75054
75055
75056
75056
75 0 57
75060
75061
75062
75063
75064
75065
75066
751d67
75070
75071
75072
75073
75074

#51

UNL.OCK

070034
060"'33
01721t'
002002
034034
060033

UNL5

060032

027050
034033
027045
UNL.6
060542
04~11J
~H'l1100

064034
007004
044000
006020
070034
06011 3
070072
061tJ112
064566
04~0J4

044034
016231
751()/5 026311

STA
L.OA
JSB
SZA
lSZ
LOA
CPA
JMP
lSZ
JMP

UNLCN
UNLl
U~LFT

UNL.CN
UNLT
UNLL
UNL6
UNLT
UNL.5

•

EQU
L.DA P8192
ADA AOL.EN
ARS
LOB UNLCN

75hj5

75106
75107
75110
7 5 1 11
7511"2
75113
75114
75115
75116
75117
75120
75121
75122
75123
75124

106 45 6 2
074051
044t0J4
04'034
11)74050
0b~031

0172U5
002003
027140
12k)001
170001
0611:1051
050050
827140
06fl031
001727
003104
14"05~

0020411
027125
064351d
016257
027114

8UMP TRACK NO,

-. OF WORDS AVAIL. FOR ADT
~# OF NEW WOHDS AL.LOWED.
.# OF NEW ENTRIES AL.LOWED,
COMPARE WIT~ # WE WANT TO ADO,

CM8,IN~

ADB '"
SSB
STA UNL.CN
LOA AOLEN
STA WORD
LOA AOL.Oe
LOB L.l~Ol
AOB UNL.C N
ADB UNLCN
JSB ORUML.
JMP DOERR

SEARCH AOT FOR FIRST ENTRY BEYOND
7 5 076
75077
75100
7 5HU
751"'2
7511.13
751"'4

FIND TRA(';K,
IF LOCKED, "UMP
COUNTER,
GET TRACK VA~UE,
TEST FOR DONE,

LO~

READ IN ADT.

L.EAVE ROOM FOR
NEw ADDITIONS

FIR~T

ONE TO Sf ENTEREO.

LIBD

STe MOVED
ADS UNLCN
ADe UNL.CN
STB MOyES
UNL.9 L.OA UNLF
JSS UNL.F'T
SZA,HSS
JMP UNL.10
XOH 1,1
5rA 1,1
L.OA MOVED
CPA MOyES
JMPUNL.10
UNL.11 LOA UNLF
AL.F,AL.f
CMA,CL-E,INA
ADA MOYES,l
SEz
JMp *+4
I,.oe .... 2
JSb MOYEW
JMP UNLll

DO wE:. wANT TO
UNL.O,K THIS THACK?
DO N~XT ONE
•
YES .. ""CLEAR fRAX
fUT,
tAN WE INSERT APT ENTRY?
NO~~~O

NO· ... (lO DO Nl:;.XT ONE,
SEAHCH ADT FOR A PL.Att TO PUT IT

FOUND ONE.
MOVE 2 ~ORD.!J UP
AND TEST NEXT ENTRY,

0578*
0579
0580
0581
0582
16583
t1584
1d585
0586
0587
0588
"589.

0590

0591
0592
0593
0594
0595*
1d596
0t)97
05 9 8
16599
0611t0

75125
75126
75127
75130
75131
75132
75133

0600J1
001727
064442
027134
06£11355
067313

75134

1~440!t1

00200~

75135 100051.
75136 034051
75137 034051

75140 060 0 31
75141 la5003a
75142 027145
75143 03403t

75144 027103

LOA UNLF
At.f,AL.F
LOB 8200
aZA
JMP •• 3
L.DA ,.3
LOB 8175

OST MOVED,l

INSERT
ENTRY,
TRACK L.ENGTH
TRAtK 0 USES ;5
SECTORS FJR ~OOTS1HAP

ISZ MOVf.D
ISZ MOVED
UNL.1 0 L.DA
CPA
JMP
lSZ
JMP

UNL.F
UNI..L.
•• 3
UNLF
UNL9

75145 060034
75146 001000
75147 0ldJ004
751513 ~41611J
751~)1 07011J

LOA UNI..CN
At.S
CMA,INA
ADA ADL.EN
STA ADL£.N

7 5 152 070 0 72
75153 060112

STA ~ORO
LOA AOL.Oe
LOB 1.180
JS8 DHUML.
JSB SICKP,l
JMP LEND

~AST

THAT THE LAST TRACK?

yES,
BUMP TO NEXT TRACK,
COMPUTE NEW AOLEN.

0601.
0602
0603
11)604

0605
0606

75154
75155
75156
75157

064f562
016231
116015
026267

7510fe'
75161
75162
75163
75164
75165
75166

t)!/J0001i)

0607
0008.
06 0 9* UNLNO INPUTS A DECIMAL. NUMBER AND CHECKS THAT IT IS SMALI..ER THAN
061"'* ., IT RETURNS wITH THE NUMBER IN 8 AND THE FOLLOWING
16611* CHARACMER IN A.
061~h

0613
0014
0615
0616

0617
!/Jolt'

16619
0620
16621
0 6 22
11)0 2 3
0624
Idb25
11)626
0627
II)621:S

017202
026275
07403~

147160
01e1602t
027263

75167 t)17202
75170 027177
75 1 7 1 0 6 0035
75172 001222

75173 041f)t)35
75174 00120'"

75175 ",44000
75176 027163
75177 064035

0629

75200 037160

0b30

75201 127160

!tI631.

UNL-NO NOP
JS8 UNL.DG
JMP LFRER
UNL.NJ STB UNL.N
ADa UNLNO,I
SSB,RSS
JMP UNL.4
JSB UNL,0G
JMP UNL.N2
LOA UNLN
RAL.,RAL.
AOA UNL.N
RAL.
ADS 0

JMP
:JNL.N2 L.OB
ISZ
JMP

UNI..N3
UNL.N
UNt.NO
UNL.NO,I

GET A DIGIT,
IL.L.EGAL. If NONE
SAvE PARTIAL RESUL.T.

GET ANOTHER,
ENO OF NUMBER
MUL.TIPLY RESUL.T SO FAR BY 10.

ADO IN Ntw
RETURN NO,

VA~UE.

PAGE
0632*
0633
0634
0635
"'636
0637
063ij
Id639
0640
0641
0642
0643
0644*
0645·
0646·
",647.
064a*
",649
065 0
0651
",652
0653
0654
",655
0656
0657
065ij
0659*
0660
0 66 1

~609

752"'2
75203
75204
75205
75206
75207
75210
75211
75212
75213
75214

*51

UNLOtK

0"'0000
"'16025
127202
064000
044316
006021
127202
044364
006321
03720~
12720~

UNLDG NvP
JSS T35CQ
JMP UNLDG,l
LP~ 0
ADB M72B
SSB,RSS
JMP UNLOG,l
ADS .... 10
SSt3,RSS
ISZ UNLDG
JMP UNLDG,1

GET DECIMAL Dl'IT,
NOT A DIGIT.

UNLfT FINDS THE BIT IN THe TRAX TABLE SPEtlFI~O 8Y A. IT RETURNS
WITH B POINTING AT THE APPHOPRIATE TRAX WORD' A_THAT ~ORO MASKED
BY THE APPROPRIAT~ 8IT.
75215
75216
75217
75220
75221
75222
7!l223
75224
75225
75226

000000
07icJ001
001700
HH044
010371
11'43227
16000'"
044512
110001
12721b

UNLFT NOP
Sf A
Al.F
I..SR
At;D
ADA
LOA
AD8
AND
JMP

75227
752311'
75231
75232
75233
75234
75235
75236
75237

07523°
000001
0"''''002

UNL.BT DEF •• 1
OCT 1,2,4,10,20,40,100t200,40~,100~,2000,4000

75240

1

4
,.176

UNLt3T
0,1
DTRAX
1,1
UNL.FT,1

GET TRACK NO IN B.
PUSITION WORD NO IN
LOw 4 sITS Of 8, BIT NO
IN LOW 4 OF A.
COMPUTE ADDR~SS OF 81T MASK &
G~T TH~ MASK.
a->TRAX WORD,
MASK &
RETURN,

0160004
000(iJ10

0e00~0

000040
000100
00020iO
000400
001000
002000
004001d
010000

75241
75242
75243
75244
7fS24S 02~8e"
75246 04"'00'"

0663
0664
",66b

0666

75247

10~000

75250
75251
15252
75253
75254
75255

0643.31
017277
0IOl511f:i
047516
042530
044523

75256 0521e~
75257 047124
75260 020104
75261 051125

UNLl

LOB
JSB
oCT
ASC

,"1'
UNLER
5116
8,ONEXISTfNT DRUM

PAGE 06Hl .51

0667
0666
0669
0670

75262
752 6 3
75264
75265
75266
75267
75270
75271
75272
75273
75274
75275
75276
75277
75300
75301
75302
75303
75304
75305
7 5 306
75307
75310
75311
15312

Uf'4l,OCK

046440
06432 7
017277
005111
046114
042507
040514
020120
040522
040515
042524
042522
1c15144'o'
Ic1kJ0000
074033
0015100
063277
070050
060305

0671
",672
16673
0674
0675
0676
0677
.0700~1
0678
016257
0679
060033
1d680
003004
064305
06 8 1
fr1682
026271
0b8J.
0684 75313 000175
0685.
0686 7531 4
0687 00030
0688 00030 00000117
0689 1c10031 0000010
~6g0
",,32
0691 00033 ""0000
06 9 2 fr10034 00eft)!""
0693 00035 0fr10000

"",,,.,,,

UN&"4

LOB "19

JS8 UNL.ER
OCT 5111
ASC 9, LLEGAL. PARAMETEHS

UNI..t:R NOP
STB UNLT

BHa
LOA UNI.ER
STA MOVES
LOA T35i:Sl
SrA MOV~O
JaB MOVEw
LDA UNLT

CHA,INA
LDt$ T3581
JMP LENO+2
81 75
$UNL

OCT 175

EQU '"
ORG LTEMP
UNL,D (iSS 1
UNI,.F BSS 1
UNL.L, b88 1
UNl,T ~SS 1
UNL,CN aSS 1
UNl,N 8S8 1

PAGE 0611 #52
0002*
0003.
0004*
0005*

LOCK

THE LOCK COMMAND IS US£D TO TE~L THE SYSTEM TO STOP USING CERTAIN
DRUM TRACKS. THI8 CAN BE DONE EITHER 8ECAUSE THE TRACKS HAVE BEE~
FOUND FAULTY OR BECAUSE THEY HAVE INFORMATION ON THEM WHICH IS
UNRELATED TO TSB,

8.86.

0007* THE ROUTINE WI~L NOT LOCK TRACKS WHICH ARE 8EING USED FOR SYSTEM
000S* PURP08ES. THESE TRACKS CAN BE LOCKED SY THE LOADER AT SYSTEM IN!~
000g. TIATION,

"8'''.
0011*
rtUua.

THE FORMAT FOR THE LOCK COMMAND IS,

k1013*
LOCK.DRUM,TRACKF l,TRACKLJ
0014.
0015* ALL TRACKS ON THE SPECIFIED DRUM FROM TRACKF TO TRACKL ARE LOCKED.
0016* IF TRACKL IS NOT SPECIFIED, ONLY ONE TRACK 18 LOCKED,

rrJi17.
0°18* THE OPERATION Of THE LOCK ROUTINE IS AS FOLLOWS:
0ili.
I)
INTERPRET & VALIDATE PARAMETERS
0°2°*
0021*
0022*
0023*

0024*
0025*
~026·

0027.
~02S*

002g*

003 i,.
0031*
16 lit 32 *
0033*
0034
003~

0036
0037
0038
003g
0040

0041
0042

"'043
0044

"045
0046
"047.
0048
004g

0060
016~H
00~2

00e3
0054
00~5

0056

CHICK THAT THE SYSTEM IS NOT USING ANY OF THE
SPECIFIED TRACKS,
3) sCAN'THE DIRECTORY AND BUILD 4 TABLE CONTAINING
THE DISC ADDRESS OF EACH SANCflFIED PROGRAM OR
FILE WHICH WILL 8E REMOVED 8Y LOCKING.
4) USING THIS TA8LE, SCA~ THE FUSS TASLE TO INSURE
THAT NONE OF THESE SANCTIFIED FILES ARE IN USE.
5) UPDATE ADT AND TRAX.
6)
UPDATE DIRECTORY, ZEROING THE DRUM ADDRESS FOR
SANCTIFIED PROGRAMS AND REMOVING THE ENTRY FOR
SANCTIFIED FILES,
7) UpDATE DISC ADT AND lUT WITH SPACE RETURNED
FROM SANCTIFIED FILES.
75000
ORG LIBRA
'15000 017561
JaS LOCNO
Q£T DRUM NO.
OCT -4
7~0~1 17'1774
75002 050426
CPA .+t54ij
CHECK FOR COMMA FOLLOWING.
RSS
7~003 0162",,,,1
JMP L.FRER
'5004 026275
75005 060001
L.OA 1
7~006 005323
RSR,R8R
75007 07404.
8T8 LOCO
75010 040676
AOA 1AT8L.
DOES DRUM
75011 100000
L.OA 0,1
EXIST?
7~012 002003
SZA,RSS
75013 027667
JMP LOCRI
NO SUCH DRUM
2)

75014
75015
'16016
'15fU 7
'1!)0211J
75021
'15022
75023

''17561
1'17'100
005727
044042
0'14046
05 0 426
002001
02'1030
75024 017561

JSB LOCNO
OCT -100
SLF,BLF
ADS LOCO
8T8 LOCF
CPA ,+546
RSS
JMP ·+5
J8B LOCNO

GET FIRST TRACK

TEST FOR SECOND PARAMETER.
GET LAST TRACK

PAGE 0612 ,52
0057
0058
0059
0060
0fi161
0862
0063
a164.
0065
0066

0067

0068
a169.
007"..
0071*·
0072**

~OCK

75025
75026
75021
715030
75031
75032
715033

177700
005727
044042
07'0"
050367
002001
026275

OtT -1"0
ILF,SI.F
ADe L.OCO
8TB L.OCL.
CPA ,+158
RSS
JMP L.FRER

75034
75035
75036
75037

007000
044840
0"6021
02770'"

CM8
A08 L.OCF
aSB,RSS
JMP LOeR2

0080

0081
0082

15040
75041
15042
75043
75044
750415
75046

75047

2160177
070031

063732

073046
017616
061130
16la.5
040444
2170030
017616
010.31
003040
0403715
073041
034031
027044

0,,89

75050
75051
15862
7!5iHS3
150154
750515
7150156
715051

0091
0,,92
0893
0094
0095
IQ096
0097
0098
0099
"'100
IQ101

7f!5060
75,,61
75062
75063
75064
75"'65
75066
75067
75070
75071
15072

063742
070rrtJ31
06373rrtJ
073065
017616
0:50006

0103
0104
IU05

715073
75074
76015
75076
715077
7!H 00
7f!5101
75102
75103

060342
070031
063133
01.)100
017616
00011S
037100
034031

0"83
0884
0*,85
0886

..

0087
0088

...,

,ula.
01(~6

oHI7
0108

IQ109
"'110
0111

FOL.~OWIN~,

MAKE SURE La".F.

INSURE THAT NONE OF THE 8PEC1FIEO TRACKS ARE BEING USED FOR
SWAPPING! DIRECTORY, Ol8C ADT, lOT, AOT, SYSTEM LIBRARY OR
BOOTSTRA~ LOADER,

1113.

0074
0075
0076
0077
0078
0079

CHECK FOR CR

063e6~

04"'361

07306~

034031
027064

027077

LOA NPORT
SWAP
,TA 1.0CNT
TRACK8
~QA L.OCST
•• DRUM ADDRESS
"TA LOCSW
OF TTY00
JIS L.Otra
CHECK $WAP TRACK
L.,OCSW OIF TTY0e.1D1SC
LOA LOCIW,I
CHECK
ADA 8400
ADJACENT
ITA LoeTe
TRACK
~.B L.OeTS
A~SO
DC' LOtTC
L.,OA LOCIW
ADA ,+TTY01-TTy.e •• NEXT DRUM ADDRESS
aTA LOCSW
l'Z L.OCNT
JMP ~OCSW_1
LOA MM80

8TA LOCNT
L.OA LOCDL
eTA L.OCOT
J88 LOCTS
LOCOT oEF OIREC.6
LOA LOCOT
ADA ,+7
aTA L.OCDT
18Z LoeNT
JMP LOCDT.l
L.OA
STA
LOA
8TA

JaB

LOCAO DE'
liz
liZ
JM.,

,.8
L.OCNT
L.OCOA
LOCAO
LOCTS
DADL.C
L.OCAD
L.,OCNT
L.OeAD·l

81 DIRECTORY
TRACKS
•• FIRST
DIREC ENTRY
CHiCK DIRECTORY TRACK
•• NIXT OIRIC ENTRY

DISC
Aorta
•• DISC AOT
DRUM ADDRESS
CHICK DISC .DT
8

,. NEXT DISC ADT ENTRy

011:Z.
"1113
0114
0115
0116
0117
0118
0119*
0120
0121
0122*
0123
0124
0125
0126
[0127
0128
~129

rd130
~131

75104
75105
7 510 6
75107
75110
nH 11

017G16
000101
0176 1 6
000104
017616
000101

75112 017616
75113 0VJ0112
75114
75115
751lt)
75117
75120
75121
75122
75123
75124

06,)734
070031
063135
073121
017616
072034
037121
034"31
027120

Jse

OfF
JSB
OEF
JSS
OEF

i.OCTS
ID~C.1

1..0eTS
10EC.4
LOCTS
10Ee.7

FIRST lOT TRACK
SECOND lOT TPACK
THIRD

lOT TRACK

JSS LOtTS

Ot::F ADLOC

L.UA
STA
LUA
8TA
JSB
LoeSL DEF
lSl
ISl
JMP

1..0CcM
LOCNT
LOCM6
LOCSL
LoeTS
COMO
LOCSL
LOCNT
LOCSL_l

ADT
NUM8ER OF SYSTEM
L.IBRARY PROGRAMS
.> L.lijRARY PROGRAM
DRUM AOORt:SS
,. NEXT LIBRARY PROGRAM

0132.

•

IU33'0134.-.- SEAHCH THE DIRECTORY FOR SANCTIFIED ••
0135.-. ENTRIES ON sP~CIFl~D TRACKS
0136.
1131.
1d13t\* READ EACH DIREcTORY TRACK AND CHECK FOR DRUM ADDRESSES WHICH
0139· LI£ IN THE RANGE OF THE TRACKS TO SE ~OCKEO. fOR EACH SUCH
Id 14fch ENTRY FOUND, AOD A 4wWURO ~NTRY TO A TABLE CQNSISTING OFa

.*•

01~1'-

0142*
1d143.
0144.
IrH45*

01.6.
01~7

1d14t\
rd1 4 9
0150
0151

0152

0153
0154
1r:H55
1d156
0157
0158
0159
0160
0161

1)

A POINTER TO THE

2)

A POINTER TO THIS ENTRY'S poSITION IN THE UIRECToRY

DI~EC

ENTRy FOR THIS

~lRECTOHy

TRACK

3) THE TWO-WORO DISC ADORlSS Of THE fl~E OR PROGRAM
IF THE TABLE OVERF~OWS (MORE THAN 512 ~NTRIES), TE~~ THE
OPERATOR TO TRY LOCKING A SMAL.lER BLOCK Of TRACKS.

75125
75126

00~400

75127
75130
75131
75132
75132

066002

"7~~J0

074036
067736
074032

75133 10 000 1

75134 00201/}2
75135 027142
75136
75136 04~361

75137 057737
75140 027241
75141 02713<

0162

7e;142

1IJ163
0164
"1 65

75142
7514J
75144
75145

070072
00740113
1°0401&1

la0036e>

CL.A
fHA

LUCTC

LOB

L81~2

STB LOCTP
LOB LuOlR
LOC U ' EQU •

STB l.OCOI
LOA 8,1
SlA
JMP LOC12
LOC 11 EIiIU *
AD~ .+7
CpS LOCDU
JMP 1..0C20
JMP LO(';10
LOC12 E.QU •
STA WORD

ece

OlV •• 12

INITIALllE COUNT Of
TAt;;L.E ENTRIES
8EGINNINI; Of
TABL.E BUFFER
OIREC

.>

POINTER
ANY tNTRl~S
ON THIS TRACK?
YES
NO, BUMP POINTER
AL.L. FINISHED?
yES

NO

FOR URUM fRAN.'ER
COMPUTE •

OF ENTRIES

PAGE ",614 #52

0166
0167
10168
0169
1/1170
0171
0172
0113.
10174
0175
0176
0177
/()l7S
0179
0180
0181
0182
0183
/()184
10 185

10186
0187
0188
10189
10190
10191
10192

LOCK

7tl146
75147
751SIa
75151
75152
75153
7oH>4

07r61031
10641032
044l6ro

75155
75156
75157
75157
75160
75161
75162
75163
75164
75165
75166
75167
751710
15171
75172
75173
75174
75175
75116

06 45 62
044361

STA
LDB
AOS
LOA
LOB
JS8
JMP

160001

064566
016~Jl

026311

074033
164033
0061/l1/l~

02722'"
054351
1027220
061/l/()46
"'103104
040001
0021041
02722~

007104
044047
/()44442
002041
1027220

1.0CNT
,+6

8,1
LIB01
ORUML
DD~RR

LOB L.IBD
ADe ,+1
LOC13 EQU •
STB L.OCOP
LOB L.OCOP,l
8ZB,R8S
JMP LOtlS
CPS .,,1
JMP LOC15
LOA LOC,.
CMA,CLE,INA
ADA B
SEZ,RSS
JMP LOC1!)
CMS,CLE,INB
ADS LOCI..
ADS B200
SEZ,RSS
JMP LUC1~

ru~~.

0194
0195
0196
0197
lta9S
0199
0200
0201
02 0 2
0203
0204
0205
0206
0207
10208

0209
10210
0211
0212
0213
ra214
10215
0216*
0217
ra218

75177
752010
75201
75202
75203
75204
75205
75206
75207
7521 ia
75211
75212
75213
75214

0b4032

LOB
ST6
lSI
LD8
5T8
lSI
INS
DLD

174036
034036
1064033
174036
10341036
006004
104200
1010001
10 4400
100036
1064036
0545J/()

75216 074036
75217 1034030
LOt15

75221
75222
70223
75224
75225

1044366
034031
1027157
1c1640J2
027136

75226
75226

~64330

DIRECTORY TR.\CK

INITIALIZ~

DIRECTORY
.POINH.R
GET DRUM ADDRESS
CHECK FOR Zt;:RO
SKIP PSEUDO
ENTRIES
CHECK
AGAINSl
LOWER
BOUND
NOT IN RANGE
CHECK
AGAINST
UPPER
SOUND
NOT IN RANGf

LOCOI
LOCTP,I
LOCTP
LotuP
1..0tTP,I
LOCTP

SAVE POlt.TER T'J
Dlk~C ENTRY
IN TA~Lf
SAVE POINTER fO
DIRECTORY AL.SO

B,I

GET DISC
ADDRESS

L08 LOCTP
AOB ,+2
cpa LULf.N
JMP LOC1 6
STS Lor;TP
lSI LOCTC

75215 027226

752210 1064033

DRUM ADORESa
REAl> IN

DST L.OCTP,I

~44354

7522~

ON TRACK

LOtOl

~QU

LOS
ADS
lSI
JMP
LDB
JMP

•LOCOP

.+12
LOCNT
LOC1J
LOCDI
LOC11

LOC16 EQU •
LOB .-18

AND SAVf.
ADVANCE TABLE
POINTER
TABLi:. OVERFLOWI

yEs
NO

SUMP COUNT OF TABLE ENTRlt::.5
BUMP DIREC;-OHY
POINTER
FINISHED lHIS OlHECTORY TRACK?
NO
YES, CHECK
NEXT TRACt<
TAf:H.. t::. OVERFLOW

PAGE 0615
76227
7523 0
75231
75232
75233
75234
75235
75236
75237
75240

#~2

LOCK

017714
005114
047503
045-t40

JSB L.Otf.R
OCT 5114
ASC S,OCK flWER

T~ACKS

04310~

053505
0510411'
052122
040503
045523

(4222.
~223**

NOW COMPARE TABL.E JUST BUILT WITH FUSS TAHLE TO

0224** DETERMINE If THE TRACKS TO bt LOCKED CONTAIN ACTIVE FILts
0225*
0226 75241
LU(';20 EQU •
0227 75241 06003'"
LDA LOCTC
SKIP CHECKING
022t3 75242 003(d07
CMA,INA,SZA,RSS FUSS IF NO
0229 75243 027340
JMP LOC3~
TABLE ENTRIES
0230 75244 070030
STA LotTC
SAVE NEGATIVE
0231 75245 1060732
!.-OA M201d.,
0232 75240 070072
STA WORD
0233 75247 001100
ARS
NUMBER Of FUSS
0234 75250 070031
STA LOCNT
TABLE ENTRIES
0235 75251 160540
REAl)
LOA FUSS,l
!.-DB LIBOl
FUSS
0236 75252 064566
ORUML
JSd
TAB!..£::
0237 75253 016231
.IMP DOERR
023t3 75254 026311
LOB LIBD
0239 75255 106456'2
INITIALIZE
sra I,..OCTP
FUSS POINTER
75256 074036
~240
0241 15257
I,.UC21 EQU '*
10242 75257 104200
OLD LOCTP,l
GET FUSS ENTRY
752616 100036
02 4 3 75261 0020163
SZA,RSS
CHECK
FO~
SZi:S
16244 75262 006002
RSS
1:2245 75263 002001
Zt.RO
0246 75264 02731;3
IT IS, SKIP IT
JMP LO'23-1
Ll)B 1..8192
0247 75265 065002
NON·ZE:.~O, S~T
024ij 75266 044354
ADB .+2
TAdLE PoINTeR IN (B)
NUMBE:.R OF
LOA LUCTC
~249
75267 060030
TABL.E ENTRIES
STA LOCOl
0250 75270 070032
02~1
75271
LOC22 EQU '*
1:2252 75271 16k!001
LDA B,I
COMPARE
fIRST WORl)
INb
0253 7527E 00512104
0254 75273 15e030
OF ENTRIES
CPA LOCTP,1
JMP *+5
0255 75274 027301.
16256 75275 031036
lOR BIT15
0257 75276 150036
CPA !.-OCIP,l
RSS
025t3 75277 002001
0259 75300 027310
JMP LOC25
UNEQUAL
1SZ LOeTP
EQUAL.,
0260 75301 034036
LDA 8,1
COMPARE
753162 160001
~261
CPA LOeTP,l
16262 75303 1 ~ht"30
8ECUND EOHO
JMP LOC24
EQUAL, fILE IN US~
0263 75304 0273216
0264 75305 00~4"0
eeA
UNEQUAL, MOvE
ADA LoeTP
0265 75306 040036
POINTtR BACK

PAGE
0266
0267
~268

0269

0270
"'271
0272
0273
0274
0275
0276
'/)277
0278
10279
0280
~281

0282
0283
0284
0285
0286
'/)287
0288
028~

0290
0291
111292
0293
il2~4*

029"·
0296*
0297
0298
0299
0300
1cl31d1
03k'2
0303
030 4
0305
0306
030 7
030 8
0309
0310
0311
0312
0313
0314
0315
0316

031 7

k'318
0319
WJ320

~616

#52

LOCK

75307 k>7k'kl3b
75310
7531~ 044355
75311 034032
75312 1027271
75313 034036
75314
75314 034036
75315 034031
75316 027257
75317 1d2734fO
75320
75320 044347
75321 074036
75322 164100,
7532J 1610001
75324 070072
75325 044360
75326 160001
75327 064566
1~330 016231
75331 026Jll
75332 060036
75333 0k'2004
75334 16k'001d
75335 073337
75336 017616
75337 ,=,00000

IT IS NOW
753 40
7534fd
75341
75342
75343
75344
75345
75 3 46
75347
75350
75Jt51
75352
75353
75354
75355
75356
75357
15360
753bl

75362

75363
75364
75365
75366

STA

LOC25 EQU
Aoa
15Z
JMP
ISZ
LOC23 EQU
ISZ
lSZ
JMP
JMP
LOC24 EQU
AOB
STa
LOa
LOA
srA
ADa
LUA
LOS
JsB
JMP
LOA
INA
LOA
STA
JSB
BSS

P~RMISS18L~

060113
070072
000112
064566
016231
11 60 15
06456 2
060046
003104
14 1101
0020 4 0
027356
044354
027347
074051
060047
040442
003104
140001
00204k)
027367
044354
027357

..

,+3
LOCOI
LOC22
LOCTP

BUMP TO NEXT TABLE ENTRY
A1.1. TABLE ENTRIES CHEtKE01
NO
YES

LOCNT
LOC21
LOC30

BUMP TO NEXT f~SS ENTRY
ALL fUSS ENTRIES CHECKED?
NO
ytS

LOCTP

&ET POINTeR
TO DIREC

•LOCTP

•,,,,3
B,I

IN

(B)

B,l

TRACK
LENGTH

ad

~EAO

WORD
,+6

LIBDl
DRUML
DOERR
LOCTP
A,I
*+2
LOeTS
1

OlfotECTORV
TRACK
GET POINTER
TO DRUM
ADDRESS FOR
SUBROUTINE.
OUTPUT "CAN'T
LOCK" MESSAGE.

TO 00 THE L.OCKIN(I. F l~S 1 PIJRGE AOT,

Lue30 E.QU
LDA
SlA
LOA
LOB

LOC3

TO FIRST WORO

LOtTP

.
AOLEN

WORD

ADLoe
LIB01
JSB DRUML.
JSB SIeKP,l
LOB Llao
LOA LOCF
CMA,CLE,INA
AU. 1,1

FINO fIRST ENTRY >a LO'f,

SEZ

1.0(;4

JMP *+J
AOS .+2
iMP LOC;'
T8 MOVED
LOA LOeL.
ADA 8200
CMA,CLE,lNA

AOA 1,1
SEZ
JMP *+3
AOtf ,+2
JMP LOC4

FOUND ONE,
SAVE POINTER TO IT,
FIND FIRST ENTRY >aLOCL+128

PAGE 0617

~52

LUCK

"'321 75367 "'74050
STe MOVES.
0322.
~323
75370 044674
AD6 ML.IBD
PERFORM
~DB ADL~N
MOVE
"'324 75371 04411 J
~325
75372 016257
JSB MOVEW
OPERATION
0326.
0327 7537" 060e51
LOA MOVED
COMPUTE ADL.EN,
",328 75374 003004
eMA,INA
0329 75376 040562
ADA LISD
0330 75376 1370113
STA AOl.EN
0331 75377 13701372
STA WORD
L.DA AOLoe
WRITE ADT TO DRUM
"'332 75400 136 0 112
LOB LISD
13333 75401 064562
0334 754162 016231
JSB ORUML
WRIT~ TO DRUM
0335 754133 1161"15
Jse SlCKP,l
03J6.
0337· NOW MOOIFv TRAX TARLE,
0338.
1/)339 15404 0613046
LOA LOC,
GET FIRST TRACK NO IN LOCT.
0340 75405 070044 LOCS STA LOCT
0341 75406 006400
CL.B
POSITION WORD NO IN ~,
0342 75407 100104
RRL 4
BIT NO IN Ao
0343 75410 01317013
ALf
0344 75411 044a12
ADe DTRAX
'ET POINTER TO WORD
1/)345 75412 074031
STS L.OCNT
SAVE. IT,
ADA LOeL.L
0346 75413 043731
COMPUTE SHIFT INSTRUCTION,
0347 75414 073416
STA *+2
"'34ij 75415 002404
CLA,INA
0349 75416 le0~40
LSL 16
POSITION SIT,
1d35e 75417 002~03
SZA,RSS
If'" L.Ow BIT,
SE TIT, .
INA
0351 75420 002~04
0352 75421 130031
IOF< LOCNT,I
SET SIT IN
0353 75422 1701331
STA ,",oeNT,!
WORD TO SAY LOCKED,
03~4
LOA LoeT
75423 060"'44
IS IT LAST TRACK1
0355 75424 1650047
CPA LOCL
0356 75425 027430
yES,
JMP .+3
NO
13357 75426 040444
AOA B400
035ij 75427 027405
JMP LOC5
0359.
13360*· UPDATE Ol~ECTORY ••
0361·
0362.
0363· USING THE TA8lE. BUILT PREVIOUSLY, UPDATE THE DIRECTORY. THt DRUM
16364. ADDRESS fOR PROGRAMS IS SET TO 0 (I,E, THE PROGRAM 15 DESECRATEO)
0365. SINCE A GOOD COpy OF IT EXISTS UN THE DISC, FOR FILES, THE
1/)366* DIRECTORy ENTRy 15 REMOVED, THIS REQUIRES THAT SPACE BE ~ETu~NED
0367. TO THE DISC ADT AND THE RECORD OF SpAtE USED lN THE lOT BE
ft)36ij. UPDATED, IN ORDER TO ACCOMPLISH THIS THE flHS1 TWO WORDS O~ THE
0369. TASL~ ARE REPLACED BY THE 10 AND LENijTH, fOR PROGRAMS THE LENGTH
0370. IS SET TO ZERO SINCE NO SPACE IS TO BE RETURNED,
0371.
03 7 2 75430 06.,030
LOA L.DCTC
SKIP UPDATE
1(J373 75431 ~H"2003
SZA,RSS
IF NO
0 3 7 4 75432 0 2 6267
J~P LEND
ENTRIES
0375 75433 070031
SlA LOeNT

•
•

PAGE idolS .52
11)376
16377
037~

0379
0J80
0381
16382
0383
0384
16385
0386
0387
16388
0389
1t139~

0391
0392
0393
16394
0395
0396
16397
16398
16399
0400
0401
0402
104 0 3
"'404
0405
0406
0407
0408
0409
0410
",411
0412
0413
1/1414
0415
0416
0417
1/:'1416
0419
1r;l420
0421
0422
111423
16424
0425.
(1)426.
(,)427.
0428
0429
0430

75434
75435
75436
75436
75437
75440
75441
75442
75443
75444
75445
75446
75447
75450
75451
75452
75453
75454
75455
75455
75456
75457
754616
75461
75462
75463
75464
75465
75466
75467
75471d
75471
75472
75473
75-474
75475
75476
75477
75477
75500
75501
75502
7551.1.5
75504
7551.15
75506
75507
75510
75511

l..OCK

065002
1674036
16403~

1674032
160001
07007~

003kl04
0416562
1670037
1344360
160001
064566
1616231
116017
064564
1/J74050

074051
034036
164036
044345
160001
0021620
1627477
044357
002400
1701cl01
170036
044343
160001
007400
044036
170001
0-44356
1674036
027524
04436J
160001
17100J6
1344337
074033
160001
007400
11144036
170001
044356
074036

L.L>8 L8192
STa LOCTP
LOt40 E.QU •
Loe LOCTP,I
5T8 LOCOI
LOA B,l
srA WORD
CMA,INA
ADA L.IBO
STA LOCNO
ADB .+6
LOA B,l
LDe L.IBDI
JSB ORUML.
JIB OEADP,l
L.DB LIBD
STB MOVES
8TB MOVED
LOC41 EQU
ISZ LOCTP
LD8 L.OtTPrl
ADS ,we
L.OA B,I
SSA
JMP LOC42
A08 .... 5
eL.A
STA 6,1
STA LOCTP,I
ADa
LOA 6,1
eca
Aoa LoCrp
STA B,I
ADB .+4
STi LOCTP
JMP LOC44
LOC42 t.QU
ADa .... 9
LIJA B,1
STA LOCTP,I
A08 ,-11
srB LOCOP
LOA 8,1
tce
406 LoCTP
STA 8,1
ADB .+4
srB LOCTP

•

.-'

•

MOVE PORTION Of ulRECTORY
75512 0t>40J3
7551J 007004
75514 ~44050

LOB LOCOP
CMB,INS
Aoe MOYES

POINTER TO

FIHST ONE

",. DIREt ENTRy
SAVE OIREC POINTER
WORD
COUNT
COMPUTE END
OF DIRECToRy
BUFFER
R~AD

DIRECTORY
TRACK
INITlALIZE
MOVE
fJOINTERe
-> DIRECTORY f.NTRY

PROGRAM?
NO
yES, ZERO
ORUM AOORESS
AND L.ENGTH
IN TAaLE
SAVE
10 IN
TABL.,E

SAVE
L.ENGTH
UpDATE POnnER
FOR MOVE
sAVE

10
lJPOA TE TAtH.E
POINTER

0431
VJ432
(4433
0434
0435
0436
~437

0438
0439

0440
0441
0442

0443
0444
kl445
0446
0447

0448
0449

0450
10451

0452

0453
0454
16455
0456
0457
0458
0459

10460
10461
0462

0463
0464
10465

0466.
0467**
046S.

0469

0470
0471
10472*
04 73*
10474*

75515
75516
75517
75520
75521
75522
75523
75524
75524
75525
75526
75527
75530
75531
75532
75532
75533
75534
75535
75536
75537
75540
75541
75542
75543
75544
75545
75546
75547
75550
75551
75552
75553
75554
75555

016257
064033

JaB
LOB
AU8
STS
L.OA
ADA

MOv~W

LOCOP
.... 12
MOVES
0741350
160032,
L.OCOI,l
040366
.... 12
8p\ LOCOI, I
170032
LOC44 EQU *
034031
lSZ LOCNT
002001
RSS
1327532
JMP L.OC43
164036
LD8 LOCTP,I
054032
CPB L.OCDI
027455
JMP LOC41
LOC43 EQU *
LOB LOCNO
064~37
007004
eMS,INB
ADS MOVES
044050
016257
JSB MOVEW
064032
LOB LOcol
LOA B,1
160001
STA WORD
070072
INB
006004
STS MOVED
0740el
AOB .... 5
044357
160001
LOA B,l
064562
LOB L.IBD
8TB MOVES
1074i150
JSB DRUML
1/116231
JSB DEADP,1
11612117
064346
LOB , .. 4
JSB MOVEW
riU6257
LOA LOCNT
060031
0132002
aZ A
027436
JMP L.OC40
044~66

uPOA-rE
DIRECTORY
L.ENGTH

FIN1SHEO TABLf.?
NO
YES
~ET NEXT DIRLC ENTRY FROM
SAME OIHECTO~Y TRACK?
yES

TABL~

NO, MOVE
ENO

0' DIRECTORY

WRITE

OUT
DIRECTORY

RESET

OIREC
FINISHED
TABLE?
NO

UPDATE DISC AOT AND lOT
75556 117740
75557 117741
755613 026267

JSB LOCUO'I
JSB LOCul,1
JMP LEND

UPDATE DISC ADT
UPDATE lOT
TERMINATE

LOCNO SCANS THE INPUT FOR A NUMBER. THE NUMBER MUST 8E LESS THAN
THE VALUE OF ~(JSB+l). IT RETURNS WITH TH~ NUMBER IN 8 AND THE
NEXT
CHAR. IN A,
0475*

0476*
0477 75561 000000
0478 7!)562 017603
0479 7f>563 026275
10480
75564 074043
0481 75565 147561
0482 75566 006i121
10483 75567 1027700
0484 75570 017603
10480 75571 027600

LOCNO NOP
JaB LOeOG
JMP I.FRER
LUCNl STB LoeN
AOB LOCNO,l
SS8,RSS
JMP LOCR2
J5B LOeOG
JMP LOCN2

GET A DIGIT.
ILLECIAL IF NONE.
SAVE PARTIAL RESULT,
CHECK FOR OvERFLOw,
ERROR.
GET NEXT DIGIT.
END OF NUMBER

PAGE
~486

0487
\(}488
10489
0490
kl491
10492
0493
10494
0495*
".-96*
16497
049ti
0499
0500
10501
k'5~2

10503
105104
~505

"'506
105(07
050~h
1O~09.

"'5a,*
0511.
16512.
0513*
0514.
0515.
10516*
0517*
0518
0519
0520
0521
\(}522
0523
0524
16525
0526
"527
1d52ti
0529
10530
~531

d532
0533

.,534*
",535*
053e*
0 5 37
10538
10539
10540

#52

~620

~OC~

75572
75573
75574
75575
75576
75'.j77
75600
75601
75602

060043
001222
040043
01012010
044000
027564
0640'-3
037561
127561

75603
75604
75605
75606
756107
756110
75611
75612
75613
75614
75615

0000010 . LOCDG NOP

~OCN
RA~,HAL.

LOA

AOA I,.OCN
RAt..
AOf; 0
JMP ~OCNl
LOCN2 LOB LOCN
lSZ LOCNO
JMP L.OCNO,I

JSB T35CQ
JMP L.OeOG,l

~16025

127603
064000
044316
0106021
12760J
044364
1006021
0376163
127603

LOS 0
Aoe M72e

MUL.TIPL.Y PREVIOUS RESULT ijY 10,

AOO IN NEW VAL.UE.
LOOP,
HETUHN NO.

GET OECIMAL DIGIT,
GET CHAR,
NONE THERE,
00 DIGIT TEST,

sse,RSS
JMP LOCOG,l
Aoe ,+10
SSB,RSS
ISZ LOCOG

JMP L.OCOG,I
LoCTS DETERMINES WHETHER A GIVEN TRACK 15 INCL.UDED IN THE:. RANGE OF
TRACKS BEING LOCKED. IF IT IS, AN ERROk MESSAGE IS PRINTEO AND THt:.
ROUTINE IS TEHMINATEO,
CAL~ING

SEQUENCE.

JSB 1..0eTS
DfF 
<~ETURN Ii- OK>
75616 000000
7~617 167616
75620 ~37616
75621 1640101
75622 0k)6003
75623 127610
75624 060046
75625 0031~4
75626 041/l1t31/l1
75627 01d2041
75630 127616
75631 1007110A
75632 044047
75633 10 44442
75634 0102041
75635 127616
ERROR_~ATTEMPT

75636
75637
75640
75641

0034016
k143616
160000
161i:1001t:J

LOCTS NOP
LOB LOCTS,1

ISZ LoeTS
LOB 1,1
SZB,RSS
JMP LoeTS,l
LOA LOCF

CMA,CLE,lNA
ADA 1
SEZ,RSS
JMP LOtTs,1
CM6,eLl,INt;
AL)S LOCI..

GET POINTER TO DISC ADDHESS.
BUMP RETURN ADvRESS,
GET UISC ADORF:SS
IGNORE ZEfWES
TEST AGAINST FIHST THACK.

TEST AGAINST LAST TRACK,

ADS 9200
SfZ,RSS
JMP LOeTS,1
TO

LOC~

SYSTEM TRACK,

CCA
ADA LOCTS
LOA Ii:1,I

LOA

~,I

GET L>1Se
ADO~f;;SS

AGAIN,

PAGE
05041
11:1542
0f)43
1/)544
0545
1d546
1d547
1Ilf)048
1d549
0550
rd551
0552

0553.
0 554
0555
0556
0557

0558
0559
1Il560
0561

16562
0563
0564
0565
10566

0567
056~

0569
1&1570
10571
10572

0573

~621

#52

LOCK

75642
756043
75644
75645
75646
75647
76650
75651
75652
75653
75654
75655
75656
75657
75660
75661
75662
75663
75664
75665
75666

0~1727

75667
7 56 710
75671
75672
75673
75674
75675
75676
75677
7570'"
75701
75702
7571d3
75704
757105
757106
75707
757110
75711
75712
75713
75714
75715
75716
75717
75720
75721
75722
75723
7572.
75725
75726
75727

06';3J5
01 7714
00511 6
047440
051525
0415UI
020104
1cl51125
04644'"
064J2 7

010734
006400
1100400

000364
001727
040~01

040574
073666
064326
017714
00510J
04111516
023524
102 III 11 4
047503
045440
052122
040503
045440

ALF,AL.F
AND 877
CL.B
L> I V • "'HI

KEEP TRACK NO, ONL.Y,
CONVERT T"O OECIMAL.

ALF,ALF
ADA 1
ADA ASC01d
STA LOCR1-1
STORt:: IN 8UffER,
LDe ,-20
JSB L.OCER
PRINT ERROR MESS
O(;T 5103
ASC 9,AN'T L.OCK TRACK

02~040

1017714

005111
046114
042507
040514
020120
040522
0410515
042524
1042522
051440
000001e)
07~044

060J05
07 e0 5 1
06371-4
070050
kH()5hHd

016 2 57
0600.4
003004
064J05

1026271

L.OC Rl LOB
JSB
OCT
ASC

.... 13
L.OCER
5116
6,0 SUCH DRUM

LOC R2 LOB '-1 9
JSa L.OCE;;R
OCT 5111
ASC 9,LLE.GAl PARAMETERS

LOtER NOP
8TB LoeT
LOA TJ581
STA MOVED
LDA I,.OCER
STA MOVES
SRS
JSB MOVEW
L.OA L,OtT
CMA,INA
LOd TJ5Bl
J MP Lt:.N(H2

ERROR PRINTER,

PAGE
0574.
0575
16576
(6577
0578
0l)79

0580
0561
10562
0583
0564
10585
rtl586
0587.
IOtl68
10589
0!:>90
16591
16592
16593
10594
0095
115596

~622

757316
75731
75732
75733
75734
75735
75736
75737
75740
75741
7!:>742
75743

1t.10030
001631
010032
1610033
160036
010037

00042
1t.10043
00044

0b91

00046

1t.1!:>98

001.!l47

#5 2

LOCK

030006
100040
06113O
0160115

177675
072034
0300010
16310616
Itll2614
072727
177660

LOCOL
LOCL.L
LOCST
L.OCOA
LoeCH
L,OCM6
LoOIR
L.OCDU

Ot.F OlREC+6
lSL 16
OiF TTV,,0+101SC
DfF DADL.e

SLoe

EQU

*

LOeTe
LOCNT
LOCOI
LOCOP
LOCH'
L.OCNO
LOco
L.OCN
LoeT
LOCF
LOCL

Et.lU
EIalU
EQU
EQU
EIalU
EQU
f.QU
EQU
EQU
EQU
EQU

LTEMP
LTEMp"1
LTE.MP+2
LTEMP+3
LTEMP+6
LTEMP+7
LTEMP+h1
LTEMP+11
LTEMP+12
L.TEMP+14
LTEMP+15

ASS COM6-COMTf.
DEF COM6

oEF OIREC

DE' DIREU
Loeuo OEF TBDAP
L,OCUI DEF TalDr
,.,M811i) DEC ... 80

PAGl

~623

#53

MUNLOCK

0002* THE MUNLOCK CO~MANO IS USfD TO RE3TORE TO THE SYSTEM ~NY DISC
0003· BLOCKS WHICH HAVE PREVIOUSLY SEEN MLOCKED, THE FORMAT ~OR THE
~004* COMMAND 151
0005.
MUNLOCK.faLOCK[,L~LOCKl
00136*
0fnJ7.

0008*
0009.
0010*
,,.U 1 *
0012
~013

012114
IcHH5

0016
~017

001ij
0019
0020
0021
13022
0023
01024
0025
0026
"'027
0028
01329
0030
0031
13032
01333
0034
0035
13036
0037

0038
0039
0040
13041
0042
0043
0044

FBLOCK AND LBLOCK SPECIfY THE FIRST AND LAST ~LUCK8 TO bE
MUNLOCKEO, If LBLOCK IS NOT SPECIFIED IT IS ASSUMED TO tiE
EQUAL TO FBlOCK,
75000
75000
751301
75 00 2
750103
75004
75t.Ho5
75006
750107
75007
75010
75011
75012
75013
75014
75015
7 5~H 6
75017
75020
75021
75022
75023
75024
75025
75025
751026
75027
75030
75031
75032
75033
75034
15035
75036
75",37
750413
751341
751341
75042
75043
75044
75045
751346
751046
75047

IU 7 lJ0
13271325
050426
027~07

0513367
02704 i
026275

MUN1
104200
0001330
1134400
0001346
IHi33e
1327025
050167
0020131
026275
064046
060047
017377
006 0133
027046

10~4130

002004
070032

OST

~UNSB

JSB
JMP
CPA
RSS
JMP

MLINNO
MUN2
Lf'Rt;R

L.OB

MU~SB

MUNJ
LFRER

GET FIRST BL.O(;K
It.L.EGAL FORMAT
COMMA FOL.LOWING?
yES
NO, C~?
YES
NO, I;.RROR

MUNIN

SAVE FIRST

MU~2

.+548
~UNl

,+15B

*

,+158

JSB MUNTS

BL.OCK
flET I.AST Bl.OCK

IL.LEGAL FORMAT
CR fOL.LOWS?
YES
NO, ERROR
COMPUTE
L.AST BL.OCK ...
FIRST aLO(';K
DIFFERENCE VALlO?

SlB,RSS
JMP MUN4
yES
EQU *
NO,
LOB ,-19
J36 MUNER
ERROR
OCT 5111
AS(; 9,L.LEGAL PARAMETERS

MUNJ

000a46
002400

L.lBRA
MUNNO

LOA MUNSB+l

064327
01i421
005111
046114
042507
1340514
02012121
040522
040515
1342524
042522
1051440
113"'2013
00013J0

ORG
JSB
JMP
CPA
JMP
CpA
JMP
JMP
EQU
DL.D

EQU •
OLD MUNIN
,OST MUNSB

CLA
EQU •
INA
STA MUNLN

SAVE fIRST
BL.OCI(

SET fOR ONE BI.OCK
SAVE
LENfiTH

PAGE 10624 #53
16045
0046
0047
0048
0049
0050
11)051
"052
0053
"11)54
""/J55
"11)56
11",57
0058
O059
fd0 6 0
16061
0062
O063
1d064
0065
0066
10067

0068
O11)69
0070
100 7 1
0072
0013
0074
1611'75
01d76
0077
le)!o78

75050
75051
751452
75053
75054
75055
75056
7 5 056
75"'57
75(d60
75061
75kH)2
75063
75064
75065
75 0 66
751d67
75070
75071
75072
75073
7 5 07 4
75075
751376
15077
751100
75101
75102
75U,3
75104
751"'5
75106
75111)7
7:;110
75111
7511~

75113
75114
75115
75116
15117
0079
0080
o",81
01d82
0083
1d084
1d085
0086
0087
!d088

HUNLOCK

06021lC
040432
~7003;)

011411
00602~

027025
HUN5
060033
04 0 344
070033
(d17411
006020
02705Ci
II)0201d4
07 0 1J37
104200
1d00046
104400
00003'"
017411
006120
027025
070036
040346
002041
027025
060033
O4°354
164000
164001
006002
027122
06433'
017 4 21
011'5116
047516
1()425J0
04452J
052105
047124
020104

15120

04452~

75121
75122
75 122
75123
75124
75125
75126
75127
75 13ft)
75131
75132
75133

041440

7b134

LOA MHAO
ADA ,+48
STA MUNTP
JSB MUNDS
SSS,RSS
JMP MUN2

1c1020~~

104411'0
00kJ046

*
LOA MUNTP
ADA ,-6
SlA MUNTP
JSa MUNOS
SS6
JMP MUNf)
INA
ST4 MUNL.A
01..0 MUNSB

OF DISC EQT
BL.OCK TOO
L.ARr;E1

YES

NO, MOVE
TO NEXT DISC
EQT ENTHY
SL.OCK ON
TH1S DlSC1
NO
YES, SAVE
1..8T BL.OCK
FIRST

OST MUNIN
JSe MUNOS
CL.E,SSB
JMP MUN2
STA MUNFA
A04 .-4
SEl,RSS
JMP MUN2
LDA MUNTP
AOA .+2
LOB .,1
\..D8 6,1
SZB

JMP MUNo
LiJB ,-17

BLOCK
UN THIS
DISC Al.801
NO
YES, SAVE IT
Bl.OCKS
0-3 ARE
IL.L.EGAl.
CHECK

FOR
DISC

IT

PRESENT
l~

fRROto(
JSB MUNER
OCT 5116
ASC 8,ON EXISTENT DISC

MUN6
06°76 2
070215
1"'421d0
100033
000065
"'0S!40
044355
002040

EQU

L.AST ,.ORO

.:It

EQU

*

L.DA M286
STA MW RD
01..0 MUNTP,l

BAD BL.OCKS 18
256 WORDS I..UN(;

C\,.E,ERA
f,RB,C\,.E
ADa .+J
SEZ
INA
D8T MUNSB

RESIOES ON BLOCK J

pAGE
0089
00910

0091
0092
fdtJ93
0094
0095
0096
0097
0098
10099

1i1100
0101
10102
0103
0104
10 1°5
0106
0107
01 0 8
0109
0110
0111
0112
10113

0114
0115
0116
0117
0118
10119
1012~

0121
0122
0123
0124
~125

0126
0127

10128

0129
0130
10131
10132

0133
IrH34
0135
0136
0137
0138
lell 39

014 0
0141
0142
0143

~625

*53

75135
75136
75137
75140
75141
75142
7514 3
75144
75145
75146
75147
75150
70151
75151
75152
75 15 3
75154
75155
75156
7 5 15 7
75161d
75161
75162
75163
75164
7 5 165
75166
75166
75167
75170
75171
75171
75172
75173
75174
70175
7 5 176
75177
7521010

75201

7 52102

75203
75204
75205
75206
75207
75210
75211
75212
75212
75213
75214
75215
75216
75217

MUNLOCK

063571

LOA MUNDA

1067572

lOB MUN81

114217
026311
116007
1610045
070072
160044
064566
016231
026311
065002

Jse OISCZ,1
JMP OUERR
JSB FADTP,l
LOA KILOF,1
STA WORD
LOA KILO,1
LOB LIBUI
JSB DRUML
JMP DOERR
LOB L81~2
EQU '*
LOA B,l
SZA,RSS
.IMP MUNll
CMA,CLE,INA
ADA MUNFA
SZA,HSS
JMP MUN12
SEZ,RSS
JMP MUNt8
ADB ,+2
CPt;S MUNLZ
RSS
JMP MUN10
EQU
'*
Jsa "'UNPB
JMP MUN17
JMP lEND
EQU '*
INS
LOA MUNL.N
CMA,CLE
ADA a,l
Sfl,RSS
JMP MUN13
INA
STA 8,1
ADa ,.1
LOA MUNLA
STA B,I
L.UA MUNFA
STA MUNRA
LOA MUNL.N
STA MUNRL
JSB MUNRS
JMP MUNl7
EQU
LOA B,1
STA MUNRL
AOe .-1
LOA B,I
STA MUNRA
STB MUNSR

MUN10
160k"H
01021003
02716~

0031 10 4
f6 4 fOld 3 6
002003
02 7171

01O~041

02 32t5
044354
057573
0102001
0 2 71t51

MUNll

0174J~

02727J
026267
MUN12
00600~

060032
003100
140001
002041
02 1212
00200 4
170001
044351
06 0 037
17 0001
060036
070040
060032
070043
017552
027273
MUN13
160001
107004J
044351
16 0001
070040
074041

•

READ
SAO BL.OtKS
TABL.E
GET TMIS DISC AOT
L.ENGTH OF
DISC ADT
READ
DISC
AOT
II>

FIRST ENTRY

GET ~OEM
FINISHEO SEARCH?
YES
NO, lS
HUS ENTRy
EQUAL.?
YES
NO, GREATER
yES
NO, FINISHED
SEARCH?
yES
NO
CHECK PRECEt:.OlNG BLOCK
ENTRIES COMaiNED
NO WORK OONt,
IS THIS
ENTRY
COM~L.ETELY

ENCL.OSED?
YE.S

NO, SAVE
NEW LENl;TH
SAvE NEw
STARTIN"
ADDRESS
ADDREsS Of tH.. OCK
TO BE RETURNED
L.ENGTH OF RETURNED
BLOC;K
RETURN BLOCK TO DlSC ADT
L.ENGHt ANO
ADDRESS Of
BL.OCK TO
RETURN TO
DISC ADT
SAVE (8)

PAGE
1d144
0145
0146
~147

10148
0149
0150
!d151
0152
!d153
0154
0155
0156
0157
015a
0159
0160
0161
0102
16163.
Idlo4*
1616&.
0166
1d167
016ij
0169
16170
0171
0172
0173
1d174
10175

~626

#53

75220
7522 1
75222
75222
75223
75224
75225
75226
75227
76230
75231
75232
75233
75233
75234
75235
75236
75237
7524!d
CHECK

MUf\!LOCK

~74030

"-'44354
~5757J

kl272J3
160001
002003
02723J
170030
034030
006004
027222
002400
170030
1d34030
170ld30
064041
1'117552

5T8 MUNPP
ADS ·+2
MUN14 E.QU tt
CPS MUNI..Z
JMP MUN15
LOA e,I
SZA,RSS
JMP MUN15
srA MUNPP,l
lSZ fo4UNPP
INt)
JMP MUN14
"IU~15 EQU .,.
Cl.A
STA MUNPP,l
ISZ MUNPP
STA MUNPP,I
LDB MUN8R
JSB MUNRS

SUCCE~DING

101 95

0196
0197

0198

75273
75 2 73 06 0 762
75274 070215
75275 10421010

EL.IMINATE
COMPLETELY
E.NCLOSED
ENTkY
ZERO OUT
TW(.J WOHDS
AfTER LAST
ENTRY
Re.STORE (B)
RETURN SlOCK TO DISC AOT

BLOCKS

MUN ItS EQU .,.
75241
75241 160001
lOA B,l
7~242 01d2003
SZA,RSS
75243 1c'l27273
JMP MUN17
75244 060037
LOA MUNLA
75245 003104
CMA,CLE,INA
75246 140001
ADA B,1
75247 0"'2040
sf-Z
752510 1027273
JMP MUNt7
75251 0060~4
INB
10176 75252 14e00~
AOA B,l
01 77 7 5253 [()1d20[()3
SZA,RSS
1c'l178 75254 1021212
JMP MUN1J
rol79 75255 fd!d2041
St:.Z,RSS
fd180 75256 027212
JMP MUN~3
STA MUN P
0181 75257 ro700Jtc:I
0182 75260 003004
CMA,INA
10183 75261 1400101
ADA B,I
10184 75262 070043
srA MUNRL
0185 75263 060030
LOA MUNPP
0186 75264 1710kHH
STA B,I
0187 75265 044351
ADB •• 1
018H 75266 16000~
LOA B,I
STA MUNRA
10189 75 2 67 1070040
LOA MUNLA
0190 75210 060037
0191 75271 170001
STA 8,1
JS8 MUNRS
"'192 75272 017552
0193* WRITE I)1SC ADT AND LOCKED BL.OCKS
01904.

DESTINATION POINTER
SOURCE:: POINTE.R

MUN17 EQU
LDA
STA
DLD

•
M256
MWORD
Mu Nr P ,l

ANY MORE
ENTRIES1
NO
YES,
OVERLAP
NEXT
ENTf(Y?
NO
yES,
COMPLfTELY
ENCLOSE ITl
yES
MAytH:.
YES
~O, SAVe I,.ENG1~
LE.NGTH Of-'
RETURNED
~1.0CK

SAVE L.ENGTH Of
LOCKED blOCK
AOOHt:.SS Or
REtURNEL)
SLOCK
SAVE NE~
STARTING Bl.OCK
RETURN SPACE TO DISC AOT

L.EN(JTH Of
SAO sL.OCKS
COMPUTE

I

PAGE 0627 #53

0199
ki200
0201
0202
0203
0204
0205
0206
0207
020~

0209
02H:'I
0211
0212
0213
0214
0215
0216
0217
0218
..,219
0220
0221
0222
0223
0224*
0225*
0226*
0227*
022ij*
0229
02 3 0
0231
0232
023J
0234
0235
",236
0237
023 8
0239

1d241a
0241
ta242
1d243
10244

0245
0246
0247
0248
~249

0250
0251

75276
75277
75300
75301
7531112
75303
75304
75305
75306
75307
75310
75311
75312
75313
75314
75315
75316
75J17
75320
75321
75322
75323
75324
75325
75325
75326
75327

MUNLUCK

1000 33
0(,H')065
0055 .. 0
044355
002040
002004
1°4400
000046
063571
065002
114217
116020
160045
070072
160044
064562
016231
002001
026267
002400
170044
170044
026267
017435
027241
027241

CL.E,ERA
E~B,CLE

ADDRESS

ADa ,+3

SEZ

Of

INA
DST MUNSB
LDA
LOB
JS8
J58
LOA
STA
LOA
L.OS
JSB
RSS
JMP
CLA
STA
8TA
JMP
MUN18 EQU
JSB
JMP
JMP

MUNOA
L,8192

THREE:
wRIT~

OUT
LOCKED
8LOCKS

DISCZ,l

MDt;OP,1
KIL.OF,I
wORD
Kl1.0,1
LIBD
DRUML

~LOCK

w~ITE

OUT
!JISC
AUT
T~ACK

LEND
KIL.D,1
KILO,l
L.END
*
MUNPa
MUN16
MUN16

REMOVE
DISC ADT
CHECK PRECEEOING BL.OCK
GO CHECK
NEXT ENTRY

MUNNO SCANS THE INPUT STRING fOR AN INTEGER L.Eas THAN 2**19, IF
FOUND IT RETURNS TO (P+2) ~lTH THE INTEGER IN MUNIN[011l AND
THE FOLLOW INC CHARACTER IN (A), ERRORS EXIT TO (P+1),
75330
7533 1
75332
75333
7 5334
75335
75336
75336
75337
7 5 34 1d
75341
75342
75343
75344
75345
75346
75347
75350
75351
75302
75353
75354
75355

000000
0074 00
0742133
006400
07 40 30
~74031

016025
027374
064 000
044316
006021
027374
044364
1306020
0273741
ta74033
000031
064030
1000 22
001004ta

",41d031
0020 40

MUNNU NOP

cca

STB MUNTP

'L.B
8Te MUNIN

STB MUNIN+1
MUNNI EQU *
JSB TJ5CQ
JMP MUNN2
LOB A
ADS M12b
SSB,RSS
JMP MUNN2
AOB ,+10

ssa

JMP
STB
LOA
L.OB
ASL
eL.f
ADA
SEl

MUNN2
MUNTP
MUNIN+1
MUNIN
2

MUNIN+l

SfT FI.AG fOR
NUMBER OCCURRENCE
INITIALIZE
TWO·OIGIT
t LAST WORD

STA
LOA
ADA
STA
OL.D

ML.KLN
MHAO
,+48
ML.KLP
MLKIN

CI..E,INB
SEZ
INA
oST MI,.KLB

MLK5

SAV~

JSB MLKOS
SSB,RSS
JMP ML.K2
EQU
'*
LOA MLKLP
ADA ._6
STA ML.KL.P
JSB MLKOS

sse

JMP MI,.K6
INA
STA MLKLA
OL.D ML.KFB

OST ML.KIN

OF DISC EQT
SAvE AODRESS
OF LAST
~L.OCK

BLOCK TOO
LAHGE1
YES
NO, MOVE
TO NEXT DIsC
t.QT ENTRY
SL.OCK ON
THl~ DISC?
NO
YES, SAVE
LA~n BL.OCK
FIRST
BLOCK

JSB MLKOS
ON THIS
c.LE,sse
DIsC ALsO
NO
JMP MLK2
STA MLKFA
YES, SAVE IT
ADA ._4
BLOCKS
0.3 ARE
sEZ,RSS
JMP ML..K2
ILLEGAL
LDA MLKl.P
CHECK
ADA ,+2
FOR
LOB A,l
DISc
L08 B,I
StB
PRESENT
JMP MLK6
IT 18
LOB ._17
ERROR
JSB ML.KER
oCT 5116
ASC 8,ONEXISTENT DISC

PAGE

"asa.,.
01696*

~6J4

#~4

ML,OCK

7512J \(120104
75124 044523
75125 041440

CHECK SST AND OAT TO INSURE THAT NONE OF THE BLOCKS TO BE LOCKtO
0097* ARE ~EING USED ~y THE SYSTEM
0091.
ML.K6 EQU ...
00 99 75 12 6
0100 75126 0t)ft:'J 715 0
LOA M512
LENGTH OF
STA MWORD
rcH01 75127 070215
80UTSTRAP
0102 75130 06420:S
i.OB LDBSA
COR~ ADDRESS
0103 75131 045036
AUB BIT15
0104 75132 063732
LUA MLKo,
D18C ADDRESS OF 0,1
1tJ105 75133 114217
JS8 DISCZ,l
READ BOOTSTRAP
IcH06 75134 026311
JMP DOERR
011tJ7 75135 160205
LOA LDt;SA,l
NUM8ER
0108 75136 040345
ADA ,.5
O~ SYSTEM
0109 75137 073761
STA MLKCT
S~"MEtHS
0110 75140 1d64205
L08 Lo8SA
II> FIRST
AOB
0111 75141 044355
DIsC
3
ST8 MI,.KB
ADORESe
0112 75142 077146
EQU
...
0113 75143
MLK7
0114 75143 t{J07400
PRINT MESSAGE ON ERROR
eC8
0115 75 144 06 03 3 0
DISTANCE FROM AODR TO Lf.NGTh
LOA , .. 2
MLKCK
0116 75145 017552
CHECK THIs ADDRESS
JaB
0117 75146 000000 MLKB NOP
011ij 75147 063146
LOA MLK6
UPOATE
0119 75150 10140356
AOA ,.4
TO NEXT
STA MLK8
ADDRESS
0120 75151 073146
ISZ MLKCT
1d121 75152 037761
JMP MLK7
0122 75153 027143
LOA DATLN
LENGTH
1d123 75 154 ~60207

c·

0124t

75155 010210

STA

kH215
0126

75 156
75157
75160
75161
75162
75163
75164
75165
75166

tCB
Olv ,.3

0127
0128
0129
10130
0131
0132
0133
0134
~135

101136
0137
IdlJij

013g
0140
0141
0142
10143

007 41/"~
100400
0~0355

073761
002004
070030
064206
044354
104200
751b7 100001
7 5 17 0 l 1c1 4400
75171 075764
75172 064566
75173 063777
75174 114217
75175 026311
75176 0601562
75177 002004
75200 073212
75201 040354
75202 1d644412
752 101 3 174000

STA
INA
STA
LOS
AOB
ULO

"WORD

MLKCT
Ml.KTC
LSToA
,.2
B,1

08T MLK1N
L.fJB
LOA
JSt;
JMP
LOA
INA
STA
AOA
LOB
ST8

OF OAT

NUM8ER
OF OAT

LIBOl
MI..t SECON!) ENTRY
SET TO FULL
LENGTH

PAGE 0635 #54
10144
0145
"'146
0147
10148

0149
0150
0151
0152
0153
ftH54
L1155
1d156
o US7.
0158*·
0159**
"UUh

0161*
0162*
10163*
0164.
0165*
10166*
0167.
10168
IcH69
01710
10171
0172
IU73
0174
0175
10176
0177
ftU78
0179
'rHe0
0181
0182
0183
10184
0185
0186
0187
0188

-

ML.OCK

752104 040355
75205 034030
7~206 027203
70207
75207 007400
752110 003400
75211 017')52
75212 000000
75213 063212
75214 040355
75215 073212
75216 037761
75217 027207

AOA
ISZ
JMP
ML.14.9 EQU
teB
eeA
JSB
MLK10 NQP
L.OA
ADA
STA

.+3
ML.KTt
•• 3
•
MLKCK

PRlNT MlSSAGE ON ERRUR
DISTANCE FROM ADDR TO LENGTH
CHECK TH1S ADDRESS

MLK1~

UPDAT~

.+3
ML.K10
lSZ MLKCT
JMP ML.K9

TU NEXT
OAT ENTRY

SEARCH DIRECTORY FOR ENTRIES w~ICH
LIE IN THE RANGE OF SL.OCKS TO aE LOCKED

*.

••

REAO EACH D1RECTORY TRACK AND CHECK FOR Dlac ADDRESSES WHICH LIE
IN THE RANGE OFTHE BL.OCKS TO BE LOCKED ~UR EACH SUCH ENTRY
fOUND, ADO A 4.wORD ENTRY TO A TA~L.E CO
NSISTING OF:
1)
A POINTER TO THE DIREC ENTRY FOR THIS DIRECTORy TRACK
2) A POINTlR TO THIS tNTHY'S POSITION IN THE DIRECTORY
3)
THE TWO-WORD uISK ADDRESS Of THE FIL.E OR PROGRAM
75220
75221
75222
75223
75224
75225
75226
75227
75227
752.5""
75231
75232
75233
75233
75234
75235
75236
75237
75237
75240
75241
75242
75243
75244
75245
75246
75247
75250
75251

063770
073767
002401cl
070030
065002
074037
067733
"7~036

160001
002002
027237
044361
057734
027345
027227
070072
007-400
10e400
000366
073761
064036
044360
160001
0641566
016231

0189
ftU90
0191
10192
0193
10194
0195
1026311
0190.
0197 75252 064562

LOA
STA
CL.A
SlA
L.oB
STe
LOS
ML.Kl1 EIilU
STb
L.OA
SlA
JMP
ML.K12 EQU
ADa
CPB
JMP
JMP
ML.K1J EQU
STA
eca
DIV
STA
L.Ob
A06
L.DA
LOB
JSB
JMP

ML.I4.RP
MLKRD
ML.KTe
Le192
ML.KT'"
MLDIR

•ML.KUI
B,l

ML.K1J

•.+7

ML.KOU
ML.1\20
ML.K11
•
WORl)
,+12
Mt.,KCT
ML.KOI
,+6
B,l
LIBOI
DRUML.
DDt.RR

LOb LISO

SUFFER FOR ENTRIES TO
RETURN TO DISC ADT
lNITIAL.IZE COUNT
OF TABLE ENTRU.S
III> SEGINNINCr;
OF fABL.E BUFFER
OIH£C
POINTE~

ANy ENTRIES
ON THIS TRACK?
YES
NO, bUM'" POINTER
AL.L. FINISHED?

YES

NO

FOR DRUM TRANSFEH
COMPUTE #
OF ENTRIES
ON TRACK
DRUM ADDRESS
READ IN
DIRfCTORY TRACK
INITIALIlE

PAGE 0636 #54
0198
fd199

02160

0201
0202
0203
0204
0205
0206
020 7
0208
0209
0210
13211
0212
0213
0214
0215
13 216
0217
fd218

10219
0220
0221
0222
0223
0224
0225
0226
0227
0228
0229
02313
fd231

0232
0233
1d~34

0235
10236
0237
0238
10239
02413
1!J241
°242
10243
0244
k'J245
13246
0247
024~

0249
10250

MLOCK

7~253

044362

753~0

0772611:)
006400
060355
017552
000000
027324
027304
10672(hl
160001
173767
1fj06004
037767
160001
173767
037767
1.144354
160001
10102021
027302
001721
030762

75254
75254
75255
75256
75257
75260
75261
75262
75263
75264
75265
75266
75267
75270
75271
75272
75273
75274
75275
75276
75277

75301 ~Hd3004
753"'2 173767
7S31d3 037767
75304
753 0 4 064 VJ 36

75305
75306
75307
75J10
75311
75312
75313
75314
75315
75316
7f:)317
75320
75321
75322
75323
75324
75324
75325
75326
75J27
75330
75331
75332
75332
7t)JJ3
75334
753..55

174037
034037
067260
174037
034037
104200
100001
1°44 00
100037
0641337
fd44354
054530
\(127332
074037
0J4lr:S30
fd67260
1044366
10 3 7 761
1027254
064036
027233
0b43J0
01753b

kHo5114
1114750..5

ADe ,+8
ML.K14 fQU •
sTB MLKOP
CL.B
LOA ,+3
JS8 MI..K(;K
ML.KDP NOP
JMP ML.Kl5
JMP ML.K~l
LOS ML.KOP
LOA B,l
STA ML~RD,l
INS
ISl ML.KRO
LOA B,l
Sf A ML.KRO,I
ISZ MLKRD
AOB ,+2
LOA-a,l
SSA,RSS
JMP *+4
AL.F,AL.F
lOR HIMSt(
CMA,INA
StA MLKRD,I
ISZ MI..KRO
E.QU •
LOB MLKDI
srB ML.KTP,I
ISZ MLKTP
Loe ML.KDP
SfS MLKTP,I
IsZ ML,KTP
DL.D 8,1
05T

ML.KTP,I

LOS ML.KTP
ADS ,+2
CPB LULEN
JMP ML.K16
STe ML.KTP
lSZ MLKTC
EwU •
LOB MLKDP
ADS .+12
ISZ MLK(;T
JMP MLK14
LOS MLKDl
JMP MLK12
EGU •
LOb .-18
Jse MLKER
OCT 5114

ASC

8,UC~

DIRECTORY
POINTER
SKIP RETURN ON FQUND
DISTANCE ~ETWErN AOOR AND LENGTH
CHECK THI S ADOt~ESS
NOT IN RANGt.
NO SPECIAL ENTRY FOUND
.. > biSC ADDRESS

SAVE. FIRST WORD

SAVE:. SECOND WORD
GfT L.ENGTH

IT POSITIVE
CONVERT
TO
BL.OCKS
SAVE THE LENGTH IN BLOCKS
SAVE POINTER
TO OIREC

IN

TA~Lt.

,0

SAVE POINTER
DIRECTORY AL.SO
GET DISC
ADDRESS
AND SAVf.
ADVANCE TABL.E
POINTER
OVERFL.OW1
YES
NO
sUMP COUNT OF

TA~LE

tNTRIlS

BUMP OlREC10RY
POINTER
FINISHED THIS DIRECTURY TRACK?
NO
yES, CHECK
NEXT TRACK
TAtlLt:.

OVEHFL.O~

FEWER BL.OCKS

PAGf;. 0637 11154
75336
75337
75340
75341
75342
75343
75344

1251.
0252*
0253.
0254*
0255
0256
0257
025t5
02 59
02610

"261
0262
0263
"264
0265
0266
1t;)267
026t5
02 69
0270
0271
0272
0273
0274
027 5
0276
0277
0278
0279
0280
0281
0282
~28J

0284
0285
0286
~287

0268
0269
0290
0291
0292
"'29J
029 4
0295
0296
0297

r-tL.OCK

045440
043105
053505
051040
041114
047503
04S:52J

NOW COMPARE TABL.E JUST BUIL.T WITH FUSS TABLE TO
DETERMINE IF THE TRACKS TO BE LOCKED CONTAIN ACTlVE FIL.ES
75345
75345
75346
75347
75 3 5 0
75351
75352
75353
75354
75355
75356
75357
75360
75361
7 53 6 2
75363
75363
75364
75365
75366
75367
7 53 70
75371
75372
75373
75374
75374

060030
003007
027723
07 00 30
060732
070072
001100
073761
16"540
06456~

016231
026311
064562
07 40 37
104200
100037
03 00 °1
002003
027416
~65002
044~54

0600Je
070036

160001
006004
75376 150037
75377 12127404
75 400 ~J10J6
7541211 150~J6
75402 ''''&!001
754~3 027413
754",4 034e37
75405 16001211
75 40 6 15 003 7
15407 027423
7541111 01213400
75411 040037
7 5412 fr)7 i03 7
75413
75413 044355
7 5414 0J4~36
7~375

MLK20 EQU *
LOA MLKTC
SKIP CHECKI~G
CMA,INA,SZA,RS8 fUSS 1~' NO
JMP ML.KJ0
TABLE ENTRIES
STA MLKTC
LOA 1'12000
STA WORD
ARS
NUMttER OF FUSS
8TA MLKCT
TA8LE ENTRIES
L.OA FUSS,!
REAO
LOB LIBel
FUSS
JSB ORUML
TABLE
JMP DOEHR
LO~ L.IBD
INITIALIzE
ST~ ML.KTP
FUSS POINTER
ML.K21 EQU
OL.O ML.IHP,l
ifT FUSS ENT~Y

.

lOR 8
SZA,RSS
JMP ML.K23-1
LOB L.S192
AOB .... 2
L.OA ML.KrC
STA ML.KOI
ML.K22 EQU *
L.OA 8,1
INS
CPA ML.KrP,1
JMP *. . 6
lOR 81T15
CPA L.OCTP,1
R8S
JMp ML.K2~
ISZ ML.KTP
LOA e,l
CPA Ml.KTP,1
JMP ML.K24

ceA

ADA
.TA
ML.K25 EQU
ADB
lSZ

CH£tK
FOR ZERO
IT IS, SKIP IT
NON-ZERO, 8ET
TABL.E POINTER IN un
NUMf.iER OF
TABL.E ENTRIES
COMPARE
F1HST WORD
OF ENTRIES

Ml.KTP
MLKTP

UNEQUAL.
EQUAL.,
(;OMPARE
SECOND WORD
EQUAL, FIL.E IN USE
UNEQUAl., MOVE
POINTt:.R BAC;K
TO FIRlt WORO

,+3
Ml.Kl)l

BUMP TO NEXT TABLE ENTRY
FINISHED rA~L.t.1

..

PAGE
~298

~299

~638

70415
75416
15417
75417
75421t1
15421
75422

*54

MI..Ot;K

1.127374
034~J7

JMP ML. .... 22
ISZ ML.KTP
MLK23 E.QU
ISZ ML.KTP
ISZ ML.KCT
JMP ML.K21
JMP ML.K30

•

NO
yt,S

0JIt10
1t13ft:11
034037
BUMP TO N~XT ~uss E.NTRY
1t1302
037761
FINISHED fUSS
0303
021363
NO
0304
1d2772J
YES
e305.
1d306 75423
MLK24 EQU *
ADS .",3
GET POINTt.R
031tS' 75423 ~44347
030~
75424 07 4 037
Ml,.KTP
8T8
TO OIREC
IN (8)
L.oa B,l
0309 75425 164001
fd311t1 75426 1blr3001
L.DA B,1
TRACK
113311 7~427 070072
STA WORD
L.ENGTH
11)312 75430 ~44360
ADe ,,+6
fd313 75431 160001
LOA B,l
READ
1d314 75432 064566
L.OB L.IBOI
DIRECTORY
0315 75433 016231
JSB ORUML
TRACK
0316 75434 02631,
JMP DOERR
0317 75435 060037
LOA Ml"KTP
TO DRUM
0318 15436 002004
INA
TO DRUM
13319 75437 1001t100
ADDRESS FOR
LOA A,I
0320 75440 073444
STA MLK26
SUBROuTINE
0321 75441 007400
eeB
UUTPUT
fcl322 70442 060355
I CAN '1
LOA ,+3
fcl32J 75443 ~17b52
JSB ML.KC;K
LUCK'
O324 75444 "'0000O MLK26 NOp
MESSAliE
032th
0326* ML.KNO SCANS THE INPUT STRING fO~ AN INTEGER LESS THAN 2**19, IF
0327. FOUND IT RETURNS TO (P+2) WIT~ THE INTEGER IN MLKINt0111 ANI.)
0328. THE FOLLOWING eHAHACT~R IN CA), ERRORS EXIT TO (P+2).
fIt:S2V*
0338 75446 ItUI."1 MLKNO NUP
cee
SET FL.AG fOR
fi:l331 75446 '''07400
O332 75441 ~740J7
STB ML.KTP
NuMSER OCCURRENCE
0333 7545fd "'0640fd
eLa
IrdT IAL.IlE
",334 75451 077764
aTB MLKIN
HiO.DIGl T
0335 7 545 2 0771 05
STB ML.KIN+l
RESUL.T
",330 75453
MLKNl EQU •
0337 75453 016025
Jse TJ5CQ
GET A CHARAC1LR
0338 75454 027511
JMP MLKN2
CR
033g
75455 ,,,64000
L.OB
0340 75456 044316
ADB M72B
0341 75457 ",(16t'l21
SSb,RSS
DIGIT?
JMP ML.KN2
NO
10342 75460 027511
0343 75461 044364
ADS ,+10
MAyt.iE
1d344 75402 006020
SSB
0345 75463 027511
JMP MLKN2
NO
STB MLKTP
YES, SAVE IT
0346 75464 074°37
0347 75465 063766
LOA MLKIN+1
GET PREVIOUS
0348 75466 067764
LOB MLKIN
RESUL.T
fcl349 75461 1~fi:l022
ASL. 2
MULTIpLY 8y 4
~350
7547fi:1 01t:lfi:l040
eLf
ADO PREVIOUS
AUA ML.KIN+l
0351 75471 043765
RESULT,
v;352
75472 002040
PRODUCING
sEz

.

PAGE
1(J353
0354

0355
0356
1!l357

~35a

0359
0360
1!l361
0362

0363

",364
0365
11:)366
0367
1!l 36 a
0369
k1370

0371.

~639

#54

M~OC~

75473

0060~<4

75474
75475
75476
75477
75500

047764

100021

000"-4"
040037
002040

75501 006004
75502
75503
75504
75505
75506
75507
75510
75511
75511
75!H2
755 1 3

077764
07 3 7 65
060001
010361
050001
0274t53
127445
034037
037445
127445

lNB
AOB ML.KIN
ASl. 1
el.f
AOA ML.KTP

MULTIPLICATION
BY 5
NOW 1~*PREVIOU8 RESULT
ADD IN

SEZ

INt3
eT8
STA
l.OA
AND
CPA
JMP

JMP

ML.I THE DISC
ADORE8S,
75552 0160161616 MLKCK NOP
75553 \(174040
sra Ml,.KEX
75554 0701641
STA ML.KTI
SAVE TA81.~ INCRtMENT
75555 167552
.> DISC
LfJB ML.KtK,I
5TB ML.KBR
ADDRESS
75556 0741643
75557 1637552
ISZ MLKCK
755616 1164201d
GET I)lSe; ACDRiSS
OL.D ML.KijR,l
75561
75562
75563
75564
75565
75566
75567
755716
75571
75572
75573
75574
75575
75576
75577

0424

'116257
0601637
161631604
064305
026271

75611:11
75602
756163
75604
75605
756166
756166

75607
756116
75611
75612
75613
7 5 6 14
75615
75615
75616
75617
756216
7562 1
75622
75623
75624

1"'01643
lid4400
075764
10 3000 1
16021603
127552
104200
0001646
1617745
0021620
027606
1164200
1("75762
161 7 740
00211:121
127f>0I
1634041d
027651
",63765
1667764
k12761t>

017657
000046
127552
121 34 0 46:)
1627654
f(J60047
~64046

100400

DST MLKIN

lOR B
SlA,RS!
JMP MLKCK,I
OL.D MLKfB

SKIP
CHECK
IF ZERO
SUBTRACT FIHsr

JS8 MLKTw
SSA

JMP MLKCl
01..0 MlKL.6

BI..OCK AOO~ES~
IN RANGE?
NO
yE8, CHECK AG.INST

JS8 ML,KTW
SSA,RSS

LAST BLOCK
IN RANGE?

.IMP Kf.KCK,l
lSZ MI.KEX
JMP MLKC5
LOA MLKIN+l
Loe MI.KIN
JMP MI,.KC2
EQU .,
JSB MI.KEC
OfF MLKFS
JMP MI.KCK,l
lSZ MLKEX
JMP MI..KC4
LOA MLKFB+l
Loe ML.KFB
MLKC2 EQU •
DIV DVSRS

~o

yES, PRINT fRROR?
NO
YES, GO
OUTPUT
ERROR MtSS .. GE
CHECK FOR MIOOl,.E Of ~NTRY
OVtRLAPPING FIRST bl.OCK
IT OUESN' T
10 DOES, PR~NT ERROR?
NO
YES
COMPUTE

0010;}~

074032
12167736
1d74 0 3 1
1617711
0601632
00640'"

STB
LOB
SlB
JaB
LOA
cl.B

MI.KFA
MLKOJ
MLKLA
MI.KNM
MLKFA

FIRST PAIR
OF DIGITS
COMPUTE

PAGe 0641 #54
0457
0458
0459
046f(l
04 6 1
0462
0463
16464
k1465

-~

0466
0467
V)468
0469
V)470
0471
0472
0473
0474
0475
0476.
0477.
1tl478
0479
0480
0481
V)482
0483
0484
0485
0486
0487
10488
0489
~490

ft:)491
0492
16493

0494
0495
0496
10497
i'J498
1£'1499
0500
0501

75625
75626
75627
7563ld
75631
75632
75633
75634
75635
75636
75637
75640
75641
75642
75643
75644
75645
75646
75646
75651
75651
75652
75653
75654
75654
75655
75656
75657
75660
75661
75662
75663
75664
75665
75666
75667
7567ft)
75671
75672
75673
75674
76675
75676
75677
75700
75701
75702
75703
75704
75705
75706
75707
76710

ML.,OCK

100400
00{C)4J7
074032
017711
060~32

017 7 11
064322
017!536
005103
040516
023524
020114
047503
v)45440
041114
047503
045440
00ft)000
017657
075762
002001
037552
037552
127552
000000
060043
040~41

164000
006021
027670
0034"'111
101110
007004
044351
160k143
k'J4e43
000e40
1441643
002(i)4~

002004
104400
075'764
163657
lft:)4200
100000
037657
017145
0"~021
037~57

127657

OIV • h.lv)
8TB
JSS
lOA
JSB
lOB
JaB
OCT
ASC

MLKC3 EQU

sss

SE(;OND PAIR

MI.KFA
ML.I
lENGTH
.. BLOCKS
• WORDS
CONVt;:RT TO
... tsLOCKs
COMPUfE
flf
STA MWORO
OLD MLKL.P,I

LE.NGTH OF
BAD Bl.OCKS

CL.E,ERA
ERB,tl.E
ADS ,+J
SEZ
INA
OST MLKIN

RESIOES ON

LOA
Loa
JSB
JMP

READ BAD
BLOCKS
TABL.E

Ml.KIP
LIBOI
OISC;Z,l
DOERR

6LO~K

3

UPDATe L.OCKED al.OCKS TABLE

• 833*
10034 75017 064562

0035
101636
101037
01638
10039
101040
00 4 1
0042

IT USES THE TABLE

75020
75020
75021
75022
75023
75024
7502e
75026
75027
7~0J0

75031
75032
75033
75034
751635
751036
75tc'37
7~0J7

160001
002003
027154
003104
040°32
002"03
~2704J

002041

027124
044354
057736
01d2001
~2702ro

017556
027163
10310~

75040 002400
75041 07026((3

LOB LItH)
MLK71 EQU •
LOA B,l
SZA,RSS
JMP MLK81
CMA,CLE,lNA
ADA ML.KfA
8ZA , RS8
JMP ML.K7J
SEZ,RSS
JMp MLK78
ADB ,+2
CPB MLKL.Z
RSS
JMP MLK71
JSB ML.KPB
JMP MLK82
MLK72 eQU *
CL.F 0
CLA
STA LIB

fINISHED SEAR;;H?
YES, GO INSERT AT END
THIS
ENTRY
koQUAL.1
YES
NO, GREATER?
yES
NO, TABLE
FUL.L.?
yES

NO LOOP
CHECK PRECEEDING BLOCK
ENTRlt.S MERGED

NO RUUTINf IN

CU~E

PAGE
01d55
0056
0057
0058
0059
006k)
0061
",o62
k)06J
0064
0065
1d066
itJ067
"'1t}68
0069
0070
0071
0072
1t}073
0074
0075
0076
0077
k)07~

0079
0080
0081
0082
li"1183

0",84
0085
0086
0087
01i'l88

0089
01t}90
0091
0092
01i'l93

0094
0095
0096
0097
0098
0099

1t}100
0101
"'1"2
0103
kH04
0105
t'106
0107
0108
0109

~64~

.55

75042
75043
70043
75044
75045
75046
75047
75050
75051
75052
75053
75054
75054
75055
75056
75057
7506k1
75061
75062
75063
75064
75065
75066
75067
75070
75071
75072
75073
75074
75075
75076
75077
75100
75101
75101
75102
75103
75104
75105
75105
75106
75107
751 HI
75111
7 5 112
75113
75114
75115
75116
75116
7 5 117
15120
75121
75122
75123

HLOCK UVERLAY
JMP MLFL.A,l

126'-"24

MI.K7J EYU
006004
063766
003104
140001
002040
027547
063766
170001
006~04

057736
027163
160001
002003
027163
044350
160001
006004
140001
003100
006004
140001
006044
0271e3
140001
002045
027101
044350
140001
170001
006005

MLK74

MI..K75
044351
07(043
071757
044354
057736
027116
16001t}1
0raa01J
027116
17 3 757
0377:57

MLK76

00~004

02;'105

MLK77
002400
173751
037757
173757
064043
027054

*

INS
LOA MLKL.N
CMA,CLE,lNA
AOA B,l
SEZ
JMP MLKSJ9
LOA MLKL.N
STA B,I
INS
EQU *
CPS MLKLZ
JMP MLK82
LOA 8,1
SZA,RSS
JMP MLK82
ADB .-2
LOA B,l
INa
AOA 8,1
CMA,CLE
INS
ADA B,l
SEZ,IN8
JMP ML.K82
ADA 8,1
8EZ,lNA,R$S
JMP ML.K7~
ADS ,.2
ADA B,I
STA B,l
INB,RSS
EQU •
AOB '-1
srs MLKBR
SlB I'1L.KPP
ADB ,+2
EYU •
CPB MLKLZ
JMP MLK71
LOA 8,1
8ZA,RSS
JMP ML.K77
srA MLKPP,I
ISZ ML.KPP
INS·
JMP MLK76
EQU •
CLA
SlA MLKPP,l
ISl Ml..KPft

SlA Ml.KPP,1
LOB ML.KBR
JMP MLK74

OUTPUT TABLE FUl.L MESSAGE

18 THE
NEw
BL.OCK
LONGER1
NO
YES, RESET
L.ENGTH
END OF TABL.E1
YES
Al.l. ENTRIES
FINIsHED?
YES
NO
DoEs THIS
ENTRY
OVERL.AP THE.
NEXT ONE?
NO
YES, ENCL.OSE
THE ENTRY?
YES
NEW LEN&TH
AND SAvE

SAYE (8)
DESTINATION POINTER
SOURCE poiNTEH

MOYE
TABL.E,
f.LIMINATING
ONE ENTRY
ZERO TWO
"'ORO, Af TtoR

I,.AST ENiRV
RESTORE (8)
GO CHECK NEXT ENTRY

0110
0111
0112

0113
0114
0115
0116
0117
01H3
IrH 19
0121/}
0121
0122
\1123
0124
0125
1d126

0127
0128
0129
0130
01~1

-'132
0133
0134
0135
If)! 36
0137
\1138
0139
0140
1d141

0142
liH43
0144
0145
0146

0147
0148
11'149
0158.

lun.
0152**
0153.
0154.
"155*
1c)156*
0157*
11'158*

75124
7 5 124
75125
75126
75127
75130
75131
75132

027037

7~133

0777~7

017 556
027054
0 7 4fc143
067737
160001
00200~

75134 1t)44350
75135
7f>135 160001
75136 173757
75137 1654fc14J
75140 k;12714c
75141 044351
75142 010340ru
75143 043757
70144 073757
70145 027130
75146
15146 ~60032
75147 170001
75150 006004
75151 063766
75152 170001
75153 02705J
75154
75154 IrU7556
75155 027163
75156 kl6 00 32
75157 17"'001
75160 00600~
75161 063766
75162 1700\11
75163
75163 11'63777
75164 06456~
75165 114217
75166 1160216

ML,K78 eQU •
~SB M1..KPt;
JMP M1..K14
5T8 ML.I
 DIRECTORY ENTRY
til> 10 WORD

SAVE 10
IN TABL.E
SAVE POINTER FOR MOVE.
GET L.ENGTH
CONVERT
TO BLOCKS
AND SAVf

IN TABLE
SAVE DRUM
AOVRESS

GfT L.ENGTH AGAIN
CONvERT
TO SECTORS

CMA,l~A,RSS

MLK42 EQU •
ALS,ALS
STA MLKTP,.[

AND SAVE

PAG~

004ti _55

"'I..UtK OV'E.RLAY

1(l220 75251 Vl34037
.,221.
1(l222. MOVE PORTION Of
0223.·
0224 75261&1 064~43
~225
75261 007004
"226 75262 04405"
"227 ,5263 1(l162 51
0228 75264 e6404J
0229 75265 044366
0230 75266 074050
1132 31 75267 16003b
~232

7527~

~40366

0233
0234
0235
0236
"231'

75271
15272
75273
75274
75275
75270
75277
75300

170036

~238

0239
"240
16241
,,242
0243
~244

75J0~

75 301
75302
7531d3
753 0 4
75305
75306
75307
75310

~37761

0021001

,,21'300
164037
054030
1027214

067760
",,100 4
~44050

~16257

ISZ MLKTP
UIR~CTORV

LOB Ml.KBR
CMt;,INB
AO.S t-10VES

MOVEW
MLKBR
,+12
MOVES
ML.KOl,I
~OA ,+12
STA MLKOld
lSZ MLKCT

JSB
LOB
ADa
STe
LOA

Ras

JMP MLK4J
LOB MLKTP,l
CPS Ml.KDI
JMP ML.K41
MLK43 fQU *
LOS ML..KNO
CMe,INS
ADS MoVES
JSB MOVEW
UHi MLKOI
LOA fj,'1
STA wORO
INS
sre MOVED
ADa ,+5
LOA ~,1

16245
"641336
16246
1611311301
0247
"70072
0248
0060"'4
0249
VJ740~1
025", 7~311 1/)44357
iiJ251 75312 1601001
0252 15313 064562
LOB
srs
0253 75314 074050
JSS
iiJ254 75315 016231
JS6
10255 15316 116017
0256 75317 064346
LOS
JS~
k)257 75320 1016257
iiJ258 75 321 kl6 3 76 1
LOA
SZA
0259 75322 ld02002
JMP
102 6 0 75323 102 7 1 7 'J
0261.
k}202*· UPI)ATt AOT ANU IDT
0263.
L.OA
0264 15324 0600JkI
1/1265 753 2 5 f07J161
STA
0266 75326 fOb0113
LOA
VJ267 75J27 070072
STA
LOA
0268 7533~ 0610112
LDB
0269 75331 11)64566
1/)270 753J2 016231
JSB
JSB
0271 75333 116017
10272 75334 1/165002
lub
AOS
0273 75335 1044354
10274 75336
MLKold EQU

L18D

MOVES
DRUML
UfAOP,1

._4

MOVEW
ML.KCT
MLK40

MLKTC
MLKCT
ADL.EN
JlfOHO

AOLOC
LltfOI
DRUML
DEAOP,l
L8192
,+2
*

CoMPUTE.
NUMBER
UF WORuS
UPOATE
POl/HER
UPDATE:.
DlkE:.tTORY
LENGTH
FINISHED r ABL.E'.:

NO

YES
GET NEXT UIREC ENTRY fRI.JM
SAME OIRECTORy TRACK?

YES

NO, MOVE E:NO
of OIREtTORY

WRITE.
OUT
DIRECTORY

HEsEl

OIREC
FINlSHEO
TABL.E?
NO

NUMBt.R OF
TABLE ENTRIES
READ

IN
AOT
.. > FIHST ORUM

AI)OREsS

TA~Lf.

0275 75336 0741'37
0276 75337 160037
0277 7534t:1 034037
02 78 70341 01d2003
t:l279 75342 027347
0280 75343 070044
0281 75344 160037
10282 75345 070045
0283 75346 116(tI12
10264 75347
0285 75347 064037
0286 75350 044355
0287 75351 037761
0288 75352 kJ27J36
0289 75353 060113
0290 75354 070072
"2 91 75355 06 0 112
0292 75356 064562
0293 75357 016231
0294 75360 116017
0295.
10296.* UPOATE DISC
02g7.
1d298 75361
0299 75361 11'5007
raJ00 70362 166045
0J01 75363 070072
fd302 75364 16eft144
0303 75365 06456b
0304 75366 016231
0305 75367 1161&117
0306 75370 104200
75371 000046
0307 15372 1°44 00
75J73 075764
0J08 75374
10309 75374 061767
ft1310 75375 057770
0311 75376 027414
0312 75377 04.J51
0313 754010 16g,001
10314 75401 070043
10315 75402 044351
0316 75403 160001
1d317 75404 070047
0318 75405 044351
0319 75406 160001
0320 75407 070046
1.1321 7 54 10 077767
0322 75411 116ftH1
0323 75412 000000
0324 7~413 021374
0325 75414
0326 75414 104200
75415 075764

5T6 ML.KTP
L.OA MLKTP,1
ISZ MI.KTP
SZA,RSS
JMP ML.K51
STA KIL.O
L.OA ML.KTP,!
STA KILOF
JSB RSfSP,l
M~K51 EQU •
L.OB ML.KTP
AOS ,+3
lSZ ML.K(.;T
JMP MLK50
LOA AOLEN
STA WORO
LOA ADLOC
LDe L.IBD
JS8 DRUM!,.
Jse DEAVP,l

SET

AODR~SS

wORD

SET L.t;;.NGTH wORD
RETURN SPACE TO ADT
UPDATE TAt;LE
POINTER
FINISHED TABLE?
NO
YES, WRITE
AD r TO
DRUM

AOT
MLK59 EQU •

JsB FADTP'l

LOA
STA
L.OA
LOB
JaB
JSB
OLD

KIL.DF,l
WORD
KIL.O,l
LIBDl
ORUML.
DEADP,l
MLKFB

OST MLKIN
MLK57 EQU

LOB
CPS
JMP
ADB
LOA
STA
ADS
LDA
STA

*

ML.KRD
MLKRP
MLK~8

... 1
B,1
ML.KeR

,-1

ti,l

MLKFS+l

COMPUTE

THIS ENTRV
GET POINTER TO SpECIAL TABLE
END OF TABLE?
YES

GEl LENGTH
SECOND WORD OF DISC ADDRESS

AL)t;J ... 1

LOA
STA
STB
JSB
NOP
JMP

8,1

MI,.KfB
MLKRD
RADTP,l

FIRST WORD Of DISc ADDRESS
TABL.E POINTER
RETURN SPACE TO DISC AvT

MLK57

MLK58 ECa/U •

DL.O ML.KIN

RESTORE

PAGE 0050 #55
1d327
0328
0329
0330
10331
0332
1c:1333
0334
~335

il336
0337
~33a

0339
0340
0341
0342
0J4J
0344
0345
103 46
10347
0348
1c:1349
0J50

",351
0352
0353
10354
IaJ5~

0356
0357
03btl
0359
16360
03 0 1
0362
0363
0364
0365
0366
0367
~J°tl
~369

0370
16371
0372
1.1373
0374
0375
0376
0377
IC:lJ78
0379

MI..OCK OVERLAY

75416 1~4400
75417 01c:10046
7542~ 160045
75 4 21 003004
75422 040 562
75423 1c:17J76~
75424 06456~
7 54 25 07-1037
75426
75426 1i0420~
75427 100037
75430 017745
7~431

75432
75433
754J4
15435
75436
75-137
754413
75441
7544 2
75443
75444
75445
75446
75447
75450
75450
75451
75452
7f>453
754f>4
75455
7!>456
75457
7546k)
75461
75461
75462
75463
75464
75464
7 5465
75466
75467
75470
75471
7547~

"'~2003

006"02
Id02001
027450
0022120
1c:12755J
064037
1344355
",74037
1057760
002001
1c:127426
1Il176l!
10127536
027544
1c164037
04435(
063766
00310'"
140001
00204~

027464
170001
027532
064037
1fJ4435l1
",7 4 037
064037
07 405 1
044J55
074050
063761.1
003004
044000
016257
164045
044355
1741(145

75473
75474
75475
75476
75477 ~6776[!)
75500 044347

DST ML.KFS
LOA KII..OF,l
CMA,INA
AOA LISD
STA MLKNO
Loa LI80
STa ML.KTP
MI.K60 EQU
DL.D MI..KTP,l

•

JSB MLKTW
SZA,RSS
SZB
Rse
JMP MI,.K61
SSA
JMP MI..K65
LOB ML.KTP
AOt:i ,+3
5TB ML.KTP
CPS ML.KND
RSS
JMP ML.K60
JSB MI..KPE
JMP MLK64
JMP MLK9a

•

MLK61 t:.QU
LDB MLKTP
ADa ,+2
LDA ML.KLN
CMA,CLE

ADA a,l

sEZ,INA,RSS
JMP MI..K62
STA 8,1
JMP Ml.K67
MLKbb EQU •
LOB MLKTP
AD6 ,wo2
STe MI.KTP
ML.K62 EQU
LI)6 MLKTP
ST6 MOVED
AD6 ,+3
ST6 MOVES
LUA Ml.KNU
CMA,INA
AU~ A
JS6 MOVE~
LOB KlI..OF,l
ADa .... 3
STa KILDF,I
Loa MLKND
ADS .-3

•

ML.KF8
COMPUTE
ENO OF
TABL.E
BUfFE~

INITIALIZE
TABL.E POI~TER
.. STARTING
BI..OCK
EQUAL.?
NO
YEI
GREAH.R?
yES

UPOATE
TABL.E
PUINTtR
END OF TA~L.t:?
YES
NO

CMEt" PRECEEDlfH,
MfRGt:.O
NO WORK DONE

18 THIS
ENTkY
COMPLETELY
ENC,-O&EO?
YES
NE.1'4 LENlI1H
UPDATE
TABLE
POINTER
SET UP
P01NTERS

FUR
MOV~

COMPUTE
L.ENGTH
ufo MovE

ELIMINATE ENTRt
UPDATE
DISC ADT
LENGTH
UPDA1E. E.NU.
Of TA8LE

ENn~Y

PAGE
1d380
1d381
0382
0383
0384
0385
0386
0387
0388
0389
10390
1t)3 9 1
1t)392
1t)393
0394
0395
'11396
1cl397
0398
0399
0400
04211
0402
kl403
0404
111405
0406
10407
0408
0409
0411t)
0411
0412
0413.
0414
0415
"'416
"<417
041'.
1d419
0420
fd421
0422
0423
0424
1d425
0426
0427
.,42'.
1t)4 2 9*

~651

75501
75502
755132
755133
755164
75505
75506
755'117
75510
75511
75512
75~13

75514
75515
755 16
75517
75520
75521
75522
75523
75524
75525
75526
755~7

75530
75531
75532
75532
75533
75534
75535
75536
75536
75537
75540
75541
75542
75543

#5f>

ML.OCI(

077760
1cl64037
0577621
021536
1042160

100 0 37
116 .. 4160
075764
104~01d

075162
017745
1d1t)2021
027536
0J4fc)37
"'34037
01602140
1442137
006003
02'461
Idkl2041
027461
174037
064037
044350
074037
1042fc)Id
0 7 5162
1°44160
llt)0037
16i'e45
070~12

160044
064562
016231
116017

OV~RI.AY

sre MI..KND
MI..K63 E,QU
L.DB ML.KTP
(..PB MI..KND
JMP Ml.K64
DL.D Ml.IHP,l

•

OVEHLAP

OLD MLKLB

NEXT

JSB MLKTw
S8A,RSS
JMP MLK64
lSZ ML,KTP
Ial MLKTP
CLE
ADS MLKTP,I
SZB,RSS
JMP ML.K66
SEZ,RSS
JMP MLK66
aTs MLKTP,l
LOB ML.KTP
AilS .-2
STB MLKTP
"1LI(61 EQU
OLD ML.KLB

•

08T MLKTP,I

MLK64 EQU
LOA
SlA
LOA
L.DB

•KILOf,1

WORO
KIL.O,!
L.LeD
JSB DRUML.
JSB DEAOP,1

•

ML.t<98 EQU
L.DA ML.KTC

75547
75547
75550
75551
75552
75553
75553
75554
75555

MLK99 EQU
CLF
CL.A
STA
JMP
ML.K06 ~QU
JSB
JMP
JMP

MLKPB

0024id0
070260
026267
017611
027502
027~02
CH~CKS

END OF
TABLE?
yES
NO,

DST MLKIN

75544
75544 060030
75545 00201t)2
75546 l1i'7.0
1~3100

POINTER

SlA

J8B M&.KUl,l

ENTRy1
NO
YES,
COMPLETELy
ENCLOSE
IT?
YES
MAySE

YES

NO, SAVE L.ENGTH
~lTARTING

tH.. OCK
WRITE
D18C ADl

TU DRUM

ANY TABLE ENTRIES

YEI, UPOATE lOT

•

0

LIB
LEND

•

ML.KPE
MLK63
MLK63

CH~CK

PRECEfOlN_ ENTRy

.0 CHECK

SUCCEf.01NG f.NTRY

THE PRECf.EDING tiLOCK TO SEE IF THE NEW ENTRY IS IN

PAGE 0652 #55

MLOCK

OVE~LAY

0430* ITS RANGE, IF SO, IT MODIFIES THE PREtEEOIN~ fNT~y AND RETU~NS
0431* TO (P+l), OT~ER~lSE TO (P+~).

1it4J2*
0433
0434
0435
0436
0437
0438
10439
10440
10441

0442
0 44 3
0444
0445
0446
0447
0448
0449
10450
0451
10452
\lJ453
0454
1d455
0456
10457
0458
0459
1c) 4 b0

.,461.
j462.
0463
0464
1c)465
1c)466
0467
1d4b8

0469
~470

1d471
0472
0473
04 7 4
0475
0476
10477
0478
0479
0480
0481
10482

75556 00000'"
75557 054562

75560 02760l
75561 044351
75562 160001
75563 04435~
75564 140001
7~565 003100
75566 1040032
75567 002040
75570 027606
75b71 100001
75572 003004
75573 040031
7557 4 006~H~4
7~575

07375i'

75576 003h14
75577 14000!
75600 002040
756~1 027604
7!>602 063757
7Soli'l3 1700161
75604 006004
75605 127556
75606 044354
756"'7
756107 037556
756 10 12755c
75611
75612
75613
75614
75615
75616
75617
75620
75621
75622

000000
1042fc'10
000046
11044 00
075764
060037
050562
027641
040351
164000

15623 077757
75624
75625
75626
75627
756310
75631
75632
75633
75634
75635
75636

040350
070037
10 003 7
034037
000040
144037
002040
002004
017745
034031
01d2020

ML.KP8 NOP
CP~ LISD
JMP ML.KPl

ADS ... 1
LIJA ~,l
ACS ,-1
ADA ~,1
CMA,CL.l
ADA ML.KFA
SEZ
JMP ML.KP1.1
LOA 6,1
CMA,INA
ADA ML.KLA
INS
Sf A Ml.KXe
CMA,eL.E,INA
ADA B,I
SEl
JMP .+3
LOA MLKX8
STA B,I
INS
JMP MLKPB,!
AOB ,+2
MI..KP1 f.WU *
ISz ML.KPB
JMP ML.KPB,l
MLKPE NOP
DL.D MLKF6
DST ML.KIN
LOA
CPA
JMP
ADA
Loa
STB
ADA
STA
LOA
lSZ
CI.E
ADB

sEZ

MLKTP
LISD
MLKEl
... 1
A,l
Ml.KXB
,.2
MLKTP
MLKTP,l
ML..KTP

MLKTP,I

INA
Jsa Ml.KTW
ISZ ML.KTP
SSA

bE'lNNING Of TA8L.E?
yES
NO, Nt-III
BL.OtK IN
HANCIE Of
PRECEtDINCJ ONE?
NO
yES, COMPUTf
NEw LENGTH

BIGGEk THAN
PRf.VIOUS L.ENGTH?
NO
YES, SAVE. NE~
I.E.NGTH
RES T(J~E (tS)
~f..8TOHE

(B)

FOR SUBTRACT
ROU1INf
BEGINNING
Of lAtslE1
YES
NO
SAVE.
L.EN"TH
SAvE
P01NTER
IS THf. NE~
tH.. vtK IN

RANiE Of Tlit.
PRECEfOING ONE1

pAGE 1!1653 *55
0483
0484
0485
Id466
0467
1c)488
16469
fd49"
rd491
0492
kJ493
k')494
16495
0496
fd497
0498
16499

Id500
0501
0502
rd503
1d504
0505
k'l50b

05167
0bkH~

0509
rd511d
1c)511
0512
0513
rd514
0515
0516
0517
0518
10519
0520
0021
0522
1d523
11.1524
0525
0526
0527
052H
0529
0530
0531

75637
75640
75641
75641
75642
75643
75643
75644
75645
75646
75647
7565(:'1
75651
15652
15653
75654
75655
75656
15657
75660

ML.OCK QVf.RL.AY

027643
1c)341637
1/J37611
127611

060"'37
040350
104200
1011Jl80iO
017745
174037
064037
044351&)
0741ri37
104200
100037
000040
047757
002040
756t)! 002004
75662 104400
75663 ,,75764
75664 lrd4~00
75665 075762
75666 fin7745
75667 002003
15670 006fd02
75671 002001
75672 027732
75673 002020
75674 027732
75675 1c)777f)7
75676 061760
75677 057741
75700 1c)27i'32
15701 074"'50
75702 044355
75703 074051
1 5 7 04 0777610
75705 ~4434!)
75706 007004
71107 0.... "37
7 5 710 016 24J
7 5 711 164~45
75712 kJ44347
75713 174045
75714 f£l6416J7
75715 f£l44J55
75716 074037
75717 104200
7572(1 076762
75721 110 4400
75722 100037
75723 064037

JMP
l$Z
MLKE1 EQU
ISZ
JMP
MLKE2 EQU
LOA
ADA

ML.Kf.2
MLKTP

YES

*ML.KPE
MLKPE,I

*MLKTP
,-2

OL.O

A,l

J$6
STe
LOB
AI)B
STe
OL.D

ML.KTw
ML.KTP,l
ML.KTP
.-2
ML.KTP
MLKTP,1

COMPUTE
NEW LENGTH
AND SAVE

IS THE

CLf
ADa ML.KXB
BEz
INA
oST ML.KIN

UNLOCKED
PORTION
IN THf. MiooLE

DL.D ML.KL.B
JSB ML.KTW
SlA,RSS

OF THl:. PREVIOUS

sze

RBS
JMP
S8A
JMP
STa
Loa
CPB
JMP
8T6
ADa

SLOCK?
ML.KEJ

ML.KE3
MLKxa
ML.KNo
ML619
MLKEJ
MOvEs
,+3
8TB MOVED
STS ML.KND
AOB .. 5
cMe,iNe

~o

MAYSt:.
NO
Yt;S
TABL.E
FULL?
YES
SET UP
FO~

MOVE

ADtt MLKTP

JSB
L.OB
ADS
STa
L.OB
ADa
8TB
OI..D

MOVEB
KILDF,l
,"3
KIL.OF,I
MI..KTP
,+3
MLKTP
MLKL.B

DST ML.KTP,1
LOB to1LKIP

MAKl:. ROOM FOR NEW ENTRY
UPDATE.
DHiC AOT
L.ENGTH
UPDATE
TABLE
POINTER
SAVE AOI)RESS

OF NEW ENTRY
SAVE

PAGE.

0532
0533
0534
0035

0536
0537
16038
0639
0540
id541
1£}542
10543
05 44
10545
",546

0547

~654

75724
75725
75726
75727
75730
75731
75732
7 5 7 32
75733
75734
75735
75736
75737
75740
75741
75742

#5~

MI.Of,:K OVE.RLAY

1044354
063757
1700ftll

AOS ,.2
LOA MI.KXB

00600~

STA
INS

0740;$7
127611

STS ML.KTP
JMP ML.KPE,l

064037

MLKE3 EQU

I.ENGTH

~,l

•

",44J~5

1.0S ML.KTP
AOB ,+3

074037
127611
"'°1 6 3"
10016 2 7
072727
1021226

STB MI.KTp
JMP MI.KPE,l
DEF 1..1BUS+256
OfF L18US+255
DEf T810T
OfF Llt3US+819ro

ML.KLZ
MLKLY
tw1L.KUI
1011.819
$$ML,.U E.QU •

AL.SO

RE8TURE
TABL.E

pOINTEH

PAGE

~-

~655

#56

COpy

0002* THE COpy COMMAND IS USED TO COpy A PROG~AM OR fILE FROM ONE USER'S
0003* LIBRARY TO ANOTHER US~R'S L16RARY. THE FORMAT lSI
0004.
COPY.OlOIO, OLDNAME, NEWlD, NEWNAME
~"'05·
0006.
ORG LIBRA
0007 7500~
0008 750~0 060520
LDA OlT!M
0009 75001 017512
Jse COPIN
GE.T OL.O 10 AND NAME
0010 7~Ir:Hi'2 054426
CpB ,+546
CUMMA FOL.L.OWS1
0011 75rrJ0J 002~01
RSS
YES
0012 75011J4 1t:126275
NO, t.RROR
JMP LFRER
0013 75005 063742
LOA COP?T
0014 75006 017512
JSB COPIN
GET NEw ID AND NAME
0~15
75007 054367
CPS .+1 5 6
cR FOL.LOWS?
0016 75010 002001
RSS
YES
0017 75011 026270
JMP LFRER
NO, ERROR
001tS 75012 116005
JSB DLOKP,l
0019 75013 027017
JMP COP00
0020 75014 1063714
LOA COPEG
"NO SUCH EN1RY"
0021 75015 064342
L.DB COPfG
0022 75016 027613
JMP COPlL
75rtH7
~"'23
CUP0" EQU *
LD6 COPS
0024 75~H7 064035
Aoe .+2
0025 75021t:1 04·.354
0026 75021 06~742
U)A COPPT
0027 75022 ~41i!1354
ADA .+2
IcH,28 75023 070042
STA COPP
0029 75 0 24 160001
MOVE
LOA 6,1
AND SlT15
0030 75025 01 HI36
FII.E
lOR COPfJ,1
0031 75026 130042
fL.AG
STA COPP,I
0032 15027 170042
1i!1033 75030 ~04S0iJ4
INS
0034 75031 034042
IsZ COPP
0",35 75032 160001
LOA B,l
MOVE
O036 75 033 011036
AND 81T15
SEMI0037 75034 130042
lOR COPP,l
CO~PIL.EO
0038 75035 17~042
STA COPP,1
fL.AG
0039 75036 006004
INB
1004" 75 0 37 160001
lOA S,I
.ET WORO FOUR
0041 n;04 0 0"2021
SSA,RSS
CHECK fOR ILL.-S1ORtO PROGRAM
JMP
COP",
fOi'i42 7~041 027045
0043 75042 1063701
LOA COPEF
WIL.L.-STORED PROGRAM"
00044 7&043 064340
LOB COP"~
0045 75044 1027613
JMP COPlL.
0046 75045
COP0 E.QU
75045
070042
STA Copp
SA~E WORD 4
"047
O048 7!l046 fc144355
AOtt ,+3
0rtJ49 75047 It- 1tlJ00 1
LOA I::t,!
0050 75050 07213 7
SlA COPDR
ORUM ADORESS
0051 75051 006004
IN~
LOA 8,1
0052 75 052 160001
DIRST WORD OF DISC ADDRESS
SlA toPU!
0053 7505~ 0701tlJ43
101d54
75054 VJ06004
INS
0055 75055 16000!
L.0A B,I
SECOND wo~o OF DISC AOORESS
0056 75056 070044
STA COPDI.1

•

PAGE 0656 *06
0057
0068

10059

COPV

75057 044354
75060 160001
7~061 070040

ADS ,+2
LOA 1;,1
SlA COPWD

75062 002021
75063 027067
7511:')64 001727
75~65 030762
75066 003004
75067 072315

SSA,RSS
JMP .+4
AL.F,ALF
lOR HIMSK
CMA,INA
STA COPt.N

75071d
75071
75072
75073
75074
75075
75076
75077
751010
751ftH
75102
75103
75104
751"'5
7bh16
75107

LOA tOPtJT,l
STA 10
JSB GTIL.
LOA lDI.NP
LOB A,I
SlB,RSS
JMP tOP2
STe WORD
CMB,INB
AUS LI8D
STe 'LTEMP+1
AOA .-1
LOA 1.,1
Loa L.IBOI
JIB DRUML.
JSB SlCKP,I

SAVE: LENGTH

jU'50.

0061
0062
1t)!i:l63
0064
0065
0066
il67.
0066
0069
11"070

0071
0072
01073
101074
01075
10076
0id77
10078
10079
0080
0081
01082
0083
0084.
0085
01/)86
0087
10088
008i

0090
11>091
fc1092
009,3
0094
01095
0096
r10 97
0098
Idkl99
10100
~101

0102
0103
11:1104

01 117 5

r1106
0107
0108
"'1109
~110

IfJl11

163742
070052
01637fc1
060076
164000
00600J
027124
v.174072
007004
1044562
0741c?31
040351
160000
064566
016231
116~H b

75110 ~6"562

75111
75111
75112
7&11:5
75114
75115
75116
75117
751210
70121
75122
75 123
75124
75124
75125
75126
75127
75127
75130
75 13 1
75132
75133
75134
75135
75136
75137

1054031
027124
10111'

002003
~27127

COP2

~64344

1027613

COPJ
070045
044361
076 132
160001
04231!$
Id~Jld04

044351
00~ld40

140001

EQU

•

cPS L.Tf.MP+1
JMP COP2
t.~. ~,1

~40062

063635

L~NGTH

TO

HI-OtKS

fIND WHAT
TRACt< NEW
10 IS ON
L.ENGTH
ZERO?
YE.S, ERROR
NO, SAVE IT
SET PUINTt:R
TO L.AST
WORD +1
DRUM AOURESS
Rf.Au 10 TRACK

L.OB L.ISO
tOP1

~03004

16020210
027124
04436 2
027111

CONV~RT

CMA,INA
AOA 10
SZA,RSS
JMP COPJ
S5A
JMP tOP~
ADS .... 8
JMP COP1
EQU
*
LOA COPES
L.oa COPFB
JMP COPIt.
EQU *
STA COPUU
ADa ,+7
STB tOPF
LOA B,1
ADA COPLN
CMA,INA
ADS ,-1
CI.E
AOA b,l

ENO Of TABL.t.?
YES
NO, "foT CURRitf, 11)
EQUAI..1
vES, FOUND TH~ ONE w~ WANT
NU, ijHEATt:.R1
Yf.S, ERROR
NO, MOVE TO Ni;.Xr ONE

"NO SUCH 10 "

SET L>RUM AOURE3S
SAVE POINTER TO ENTRY
GET TOTAL.
SPACE USED

PAGE 0657 ,.56
IU12
0113
0114
0115
IfUl6
0111
0116
0119
0120
'H21
0122
0123
0124
0125
0126
0127
0126
0129
013'"
0131
0132
0133
0134
0135
0136
0137
0136
IU39

0140
0141
0142
0143
0144
{U45
0146
0147
0148
01 4 9
01b0
1i:)151
0152
W15J
0154*
10155
rcU56
1/)157
0158

75140
75141
75142
75143
75144
7514b
75145
75146
75147
75147
75150
75151
75152
75153
75154
75155
75156
751!7
751616
75161
75162
75163
75164
75165
75166
75167
75170
75171
7 5 17 2

COpy

stZ

002040
"'27145
063644
064340
021'6103
COP4
06eJ42
072435

062010
002004
053752
063153
fr'J720UJ
040362
072164
162164
0i12003
027205
070072
16201WJ
06456t
016231
027205
007400
162164
10040e
01/)0355
07 00 41
7~H73 0ij 45 62
75 174 ",44354
75175
75175 H>0001
75176 003100
75177 04231~
75200 002041
75201 027215
75202 044355
7 5203 03404l
75 20 4 02 7175
7f>2"'5
75205 036435
152"6 027147

COP5

COP6

COP7

COMPARE WITH ALLOTMENT
JMP CO P4
OK
LOA COPE.C
wL16RARY SPACE FULL"
LOB COPfC
JMP COPIL
EQU
LOA .... 6
8 POSSIBLE DISC AOTS
5TA (;OPOF
EQU *
LOA RKCVP
GET CVCLIC POINTER
INA
AND ADVANCE
CPA (';PLNA
IT TO THE:.
LOA CPLtA
NEXT tNTHY
STA RKCVP
IN THE TABL.E
ADA ,+OAOLN-OAOL.C
STA COPU
L.OA COPO,1
SZA,RSS
15 THIS DISC AVAILABLE.?
JMP COP7
NO
STA WORD
YES, SAVE LEN~TH
LOA RKCVP,1
GET DRUM AOORESS
LOB L.IBOI
JSB ORUML
READ IT
JMP COP7
cte
COMPUTE
LOA COPO,l
ENTRY
OlV ,+3
COUNT

•

STA COPC
L.OB LISD
AOS ,+2
EQU •
LOA 8,1
CMA,CL.E
ADA COPLN
SEl,RSS
JMP tOP10
AOB ,+3
lSZ COPt
JMP CUf/6
EQU
ISZ COPDf
JMf CUPt)

•

75207
75207 063657
75210 064342
75211 02161J

cope

75212
75212 06367u
75213 064~"2
75214 1/)27613

COP9

75215

COP10 EQU ."

EQU ."
LOA COPED
L.OB COPFD
JMP COPIL.

.>

LENGTH WORU

ENTtH

LAR~E

ENOUGH?

yES

NO
ANY LEfT?
YES
NO, ANy ADT$ LEfT?

'''is
"SYSTEM OVEHLOAO"

fiJ159.

.~

0160
0161
0162
1/)163
0164*
"'160

~WU

."

. LOA COPEE
L,US COPfe.

JMP COPIL

"OUPLICATE ENTRY"

PAGE 0658 #56
kl166
kl167
0168
k?16g
01 70
°171
kl172
"'1 7 3

75215
75216
75217
75220
75221
75222
75223
75224
75225
75226

c.;Opy

kJ62315
k'lkl3004
140klkll
~72435

04435~

074 10 41
104201d

LOA COPLN
CMA,INA
ADA B,l
STA COPOr:
ADe ,-2
STe cope
D~D B,l

SAVt.
NE(jjATIVE. NUMSE.R
OF SECTORS '-EfT
LOCATION OF
DISC: AOT ENTRY
GET DISC ADDRESS
SAV~

1~0001

1 0 4400

DST COPOS

ANt) SAVI;::

~kl00Jt;I

IU74.
0175
11.l176
0177
10178
1d179
rcH80
10181
0182
"183.
~184

0185
",186
0187.
fc1188
01 89
"'190
fc1191
",192
rd19J
16194
0195
~1~6

,,191*
ill 198
0199
1/)200
0201
0202
"'203
"'20 4
0205
"'2"'6
020 7
10208
0209
0210
0211
0212
0213
0214
fc1215
0216
1d217

75227
7f>230
75231
75232
75233
75234
75235
75236

0605216
070",51
063742
1070050
064346
016257
116005
027212

75237 164034
75241d 05471~
75241 027735
75242
75 243
75244
75245
75246
75247

007000
fc144562
07405~

fc144366
1/)74051
~1d7000

044402
75251 ",440J5
75252 "1624J
752~0

7525J
75254
75255
75256
75257
75260
752 6 1
75262
75263
7 5264
75265
75 2 66
75267
75270
75271
75272
75273
75274

06052'"
070la50
"'0"'035
040366
070051
064346
016257
060042
1701651
016076
034051
17 00 !)l
fc134051
"'60201
170kl 5 1
034061
1d02400
170051
7~275 034051
75276 10420'"
75277 1d~0036

LOA
STA
LUA
STA

Loa

01. TI.:.M
MOVED
COPPT
MOVES

MOVe. IDINA~E
TO LTEMP [01 3J

._4

JSB MOVf,W
JSB Ol.OKP,I
JMP COpg

StARCH FOR tN1RY
FOUND, ERROR

l.OB COPI,l

IF TRACK IS FUl.L, GO
00 OVERLAY SECTION

CPS M81ij4

JMP COP98
tMB
AOB
ST6
A08
BTB
eMS
AUS
ADB

Jai
l.DA
SlA
LUA
ADA
STA
LOS
JS8
LOA
STA
JSa
IS~

STA
ISZ
LOA
SrA

ISZ

LISD

MovEs

MAKE
ROOM

,+12
MOVf.O

"OR NEW

,+24

DIREC TOR'f

COPS
MU~E8

DI.,TEM

MOVES
COPS

ENTity

MOVf.
lD/NAME

,+lc

MOVf.D

INTO

.-.-

MOVEw

eopp
MOVEO,I
DATE
MOvED
MOVED,l
MOvED
OATIM
MOVED,l
MoVED

eLA
STA MOVE.D,l
ISZ MOVED
OL.D COPOS

01R~CrOHt

WORD

4

l.AST rtEFERENCf. UATE

LAST (,;HANGt: OATf.
DRUM AODRESS
DISC AODRESS

PAGE 0659 *56
~218

0219
0220
0221
0222
1i)22J*
"224
0225
0226
0227
ii.l228
0229
0230
0231
0232
0233
0234
0235
0236
0237.
0238
0239
.,240.
0241
0242
0243
0244
0245
0246
0247
0248
0249
14250*
0251
0252
0253
0254*
0255
025b

0257
"'258
0259.
0260
0261
0262
0263
0264
"'265
0260*
0267
1tl268
0269
0270*
"'271

COpy

753"'0
753ldl
75302
15303
75304
75305

104400
100051
064051
044355
06{o040
170001

DST MOVED,I
LDe
ADB
LOA
srA

MOVED
,+3
cOPWD
is, 1

75306
7531d7
75310
75;:'11
75312
75313
75J14
75315
75316
75317
75320
75321
75322

163034
040336
17'a034
"70072
060034
002004
070051
040J57
160000
064562
074050
016231
115017

LOA
ADA
STA
STA
LOA
INA
STA
ADA
LUA
LOB
sre
JSB
JSB

COPl,l
,-12
COPI,I
WORD
COPI

75323 064346
15324 016257
75325
75325 060016
75J26 164(')(1J0
75327 074072
753310 040J51
75331 16~000
75332 064566
75333 015231
15334 116~H7

MOVED
,+5
A,l
LISD
MOVES
DRUML
OEADP,l

LI.)8 ,-4
JS8 MOvEw
COPU EQU
LOA
LOB
5T8
ADA
LOA

LENGH1
ADJUST
OIHECTORY
LENGTH

WRITt. DIRECTORY BACK
RESET
DIREC

•IDLNP
A,1
WORD
,'Ill

A,l
L.oa LIBDI
JSB DRUML
JSS DEADP,I

Rf.AD lOT AGAIN

75335 162132
75336 04231~
75337 172132

L.OA COPF,1
ADA COPL.N
STA COPF,I

UPDATf.
DISC
USED

75J40
75341
75342
75343

160075
064562
016231
116017

LOA 10L.CP,1
LOB LIBD
JSB ORUML.
JaB DEADP,1

WRITE our lOT

7534~

162104
070072

LOA
STA
LUA
LOS

75345
75346
75347
75350
75351

16~01"

064t506
11:116231
027373

cOPD,1
WORD

RKeyp,.[
LISDI

JMP COP14

Re-AI) DISC ADT SACK
CAN'T, GO ZAP IT

75352 062435
75353 ~02002
75354 027377

LOA COPI)F
SZA
JMP COPtS

ADT Ii.NTRY CUMPLETELY USED?
NO

75355 064041

LOB cope

YES, REMOVE IT

JSB ORUML

PAGE
k'272
101273
16274

0275
0276
VJ277

027'.

0279
iU280
0281
kl282
0283
16284
1t.1285
0286*
0287

1d288
1d289
1t.1290
0291
.,292*
1029"
10294
10295
0296
k'297
1t.129 8
0299
0300
k'30 1
0302
0303.

k'304
IdJ0S

0:$06
~307

16308

0309*
031~

0311
k'312
0313
0314
0315
IdJ16
1d317
k1318
k'319
0320
~321

13322
0323
1d324

t:l66~

1~350

.56

COPY

k174rDOl
044355

75357
75360
75361
75362
75363

04.674
04.072
016257

STa MOVED
ADe .+3
STa MOVES
ADS ML.180
AOB WORD
JSB MOVEW

75364
75365
75366
75367
75370
75371
75372

060355
166164
16440011'
\76164
040072
070072
02i'412

L.OA
LOB
ADS
aTB
ADA
51A
JHP

75373
75373 00240O
7~J74 172164
75375 172010
75376 027416

COP14 EQU
CL.A
STA
STA
JMp

75377
75377
75400
75401
754 02
75403
75404
75405
75406

COPl5 EQU
LOB cope
AOB .+2
STA 1:j,1
OL.D COPt,l

07405(()

06A041

O44354
170001
lld4 200
100041
000040
t146315
"'021640

754167 O1/)2°04

75410 1044016
75411 1.,,,a.1

.+3

COPO,1
A
COPO,1
WORD
WORD
COP16

SHORTEN TABLE

LEN~TH

SHORTEN WORD COUNT

..
COPO,1
RKCyP,l
COp17

ZERO lENClTH
.zERO ADDRESS

•

CL.E
A08 COPloN

UPDATE THE LENGTH
MOVE THE DISC AOOR~SS

BY LOPLN l;iLOCKS

SEZ

INA
DaT tOPC,1

AND SAVE IT

,

75412
75412
75413
75414
75415
7541 6
75416
75417
75420
75421
75422
75423
75424
75425
75426
75427
75430
75431
754J2
75433

162010
064562
"'16231
02737J
062137
002003

027436
0663115
005727
"'07004
1d74072
,,7 4 21 5
",64566
016231
11:127611
063750
064562
114217

COP16 EQU
L.OA
LOS
JaB
JMP

•RKCYP,I
LI60
DRUMl
COP14

COPt 7 EQU *
L.OA COPOR
slA,RSS
JMP COP20
LOB COPLoN
BL.F,BL,F
cMB,INe
srts WORD
8T8 MWORO
L.UB LI8DI
JSB ORUML.
JMP COPoE
L.OA COPAP
lOS LISO
JS8 DISCz,l

wRITt ADT 8ACK OUT

GET DRUM
ZERO?

~DOREas

yES

NO,

COMPUTE
L.ENGTH

OF

TRAN8Fc.R

READ FROM ORUf1
FAILURE
WRITf:. TO DISC

PAGE 0661 #56
0325
0326
~327

16328
k)329
16330

0331
0332
0333
k)334
0335
0336
0337

0338
0339
10340
0341
0342
0343
0344
0345
0346
0347
10348
0349
0350
0351
°352
0353
0354
03 55
0356.
0357*
03515.
0359
k)36 0
10361
0362
",363
0364
0365
0366
0J67
0J6~

75434
75435
75436
75436
75437
75440
75441
75442
75443
75444
75445
75445
75446
75447
75450
75451
75452
15452
75453
75454
75455
75456
75457
75460
75461
75462
75463
75464
75465
75466
75467
75470
75471
75472
75473
75 4 74

COpy

021611
1626267

006400
06231t;)
100400

JMP COPOE.
JMP LEND
COP20 EQU *
CL.8
LOA COPL.N
DIV ,+40

FAll.URE
DONE

0100422

003000
070041
074042
034f(}41
02:'4152
060042
011415
026267
060422
f017475
1042011'

eMA
STA
STB
COP21 EWU
lSZ
JMP
LOA
JSB
JMP
COP22 EQU
L.DA
JSB
OLD

COPC
copp

*
COPC
COP22
Copp
COPRW
LEND
*
,+40
COPRW
COPUS

# OF 40 B~OCK READS + WR1TES
• OF 8LOCKS IN LAST WRITE
ANY 4, BLOCKERS LEFT?
ES
"(.
NO, Rt.AO ANI)
wRITE LAST ONE
DONE
READ AND wRl H.
40 aLOCKS
UPDATE

00~036
fdiH~040

044422
0020410
002004
104400
000035
lk)42 00
000043
000040
044422
0°2°40
00~t404

U1440k1
000043
0 2 7 44 5

eLE
ADB ,+4'"

st:z

WRITE

INA
DST COPOS

ADDRESS
UpDATE

OLD COPOI

UPDATl:.

eL.E
A08 .+40
SEZ
INA
OST CfJPOI
JMP COP21

RfAD
ADDRESS
LOOP

COPRW READS AND WRITES
75475
75476
75477
755011:1
75501
15502
75503
75504
75505
755",6
75507
75510
15511

000000
001727
li"'~ 3004
070215
1663747
064566
114217
027611
06.5760
064562
114217
027611
1274t75

COPRW NOP
AI,.F,AL.F
CM.,INA
8TA MwORD
LOA COPlP
LOB LIBUl
JSB Dlsez,I
JMP tOPDE
L.OA COPAP
LOB Ll80
JSB OISCZ,l
JMP COPOE
JMP tOPRw,I

0369
O370
il371
0372.
fd373* COPIt-.. Gf.T8 AN ID AND NAME
fd374.

COMPUTE
• OF
WORDS
RfAO IT
FAIl.u RE
WRITE IT
FAIt-UHE

PAGE 0662 #56
0375
id376

0377
0378
0379

",380
0381
"'382
0383
038 4
"'385
"'386
0387
0388
id389
039",
"'391
0392

"'393
f0394
IOJ9E>
(0396
(0397

f0398
0399
04"'0
0401
fd402

10403
fd404

0405.
04060401.
0408
0409
0410
",411
f0412
V,l413
0414
"'41E>

0416

",417

0418
",419
1d420
0421
",422

10423
0424
1d420
10426
",427
"'428
10429

75512
75513
70014
15515
75516
755 1 7
7!)520
7!)521
75522

COpy

000000
070042
0163115
ft}02001
026275
0b Z426
f026275
072132

CO~R

75546
75547
75550
7 555 1
75552
75552
75553
75554
75555
15556
75557
75560
75561
75561
75562
75563
75564
75565
75566
70567
75570
70571

170"'42
060347
0700(1
017546
001727
034042
170042
017546
130042
170042
034041
027527
017546
"'50412
127512
063625
064343
027613

SlA COPP
JSB GETIO

.> wHERE TO PUT IT
GET THE ID

JMP lFRER
CPA ,+e48
CLA,RSS

CR CNN'T FOL.LOW
COMMA FOLL.OWS?

JMP LFRER

NO

RSS

0024~1

1 5 523 060052

7b524
75525
75526
75527
75527
7553'"
7b531
75532
75533
75534
75535
75536
75537
75540
70541
75542
75543
75543
75544
75545

COpIi'! NOp
y~S

STA COPF
LOA ID
STA COPP,l
L.OA ,-3
STA cope
COPI1 EQU JSB COPR
AL,f,ALF
18Z Copp
STA COPP,I

JIB COPR
lOR COPp,l
COpp,l
lSZ COPC
JMP CoPI!

srA

JsB
CPA
JMP
CUP12 EIilU
LOA
LDS

COPR

.+408

COPIN'l

*

COPEA
COPFA

SAY 1ST CHAIo!
SA~E

10

6 CHAR

MAXIMUM

GET LEFT CHAR

SAVE IT
GET RIGHT CHAR
SAVE IT
fIN 1 SHEO 6

CHII F(S'I

NO
yf:.S, ~EXT MUST
Sf:. A BLANK
OK

"INVAL.ID NAME"

JMP COPH.

FETCHES CHARACTERS FOR THE NAME
000~"0

062132
0f) kJ 412
1 2 7 54 6

COPR

NOP

LDA COPF

114572
027607

CPA
JMP
COPRl EQU
JsB
JMp

~64000

\..O~

1010730
002002
1d50730
027552

ANO .140

062132
1002002
027577
054426
026275
t154416
027043
~54424

(1)27543

TEST TO RETURN t:JLANK

,+40B
COPR,l

*

T35CH,1
COPR5

GET A CHAR

A

SKIP CONTROL

SZA
CPA .141d

JMP COPfH
COPRC EQU *

LOA COPF
SlA
JMP COPR2

CPS ,+b48
JMF' lFRER
CPS .+44H
JMP COP12
CPS .+f>2t:J
JMP COPI2

FIRST CHAR?
NO

YES, COMMA?
YES
NO, '5'1

YES

NO, '*'1
yES

~HARACTf.AS

PAGl
0430
0431
0432
0433
0434
"'435
0436
0437
fr.1438
0439
044(0

0441
16442
0443
0444
0445
0446
0447
16448
0449
0450
1d451
VJ452
0453
0454
0455
0456
045 7
0458
"'459
0460
16461
0462
0463
0464
046f>

0466
0467
046a
0469

0470
16471
1d472
0473

~663

.50

CUPV

75572
75573
75574
75574
75575
75576
75577
75577
756160
75601
75602
75603
756164
75604
75605
75606
75607

054367
026275

756~7

064000
rtl27561

75610
75611
75611
75612
75613
75613
75614
75615
75616
7 5 6 17
7562~

75621
75622
75623
75624
75625
75626
75627
756;)0
75631
75632
7563J
75634
00343
75635
75636
75637
75640
75641
75642
75643
00344
75644
75645
75646
75647
75650

060001
036132
1275 .. 6
054426
027604
05011367
002001
02757"
06i)412
072132
1275 .. 6

063725
064343
07iHIHS0
060305
070051
07403ca
016 2 57
060030
00100"
003004
064305
026271
075626
0105111
0 47 126
040514
044604
02011 ti
040515
042440

CPb .... 158
~O, CR7
JMP LFRf.R
COPRJ EQU
NO, Hf.STQMf A
L.OA jj
lSZ COPf
JMP CUPR,l
COPR2 EQU
CPB "".... 548
COMMA1
JMP COPR4
yES
Cp" ,+15S
CM1
RSS
YES
JMP COPR3
NO
COPR4 EQU
LOA ,+411t.,
RETUHN A til,.ANK
STA COPF
JMP COPR,l
COPR5 £QU •
LOB A
JMP COPR6
tOPOE ECilU
LOA COPEH
"UNSUCC~SSFUL' KILL AND REPEAT"
LOB COPFH
COPIt.. EQU *
STA MOVES
MOVE ERROR
LOA T35Bl
srA MOVED
MESSAGE TO
ST8 L.TEMP
JS8 1'10Vf~
TTV BUFFER
LOA LTEMP
AL.B
CM/" INA
LOB T3561
JMP LfNO+2
COpE A OfF .+1
OCT 5111
ASC 6,NVAL.IO NAME:.

.

.

.

EQU
COPEe OfF
OCT
ASC
C:;OPFA

0 7 5636
00511(;
047440
051525

.... +COPfA+1
*+1
5116
5,0 SUCH ID

0~1510

020111
04_040
07564~

"0511"

044502

051101

051131

COPF8 EQU ... ·+coPEe+!
COPEC OEF *+1
otT 511"
ASC 9,I8RARY SpACE FuL.L

PAGE 0664 #56

0474
13475
",476
"'477

0478
0479
fc1480
101481

"'482
fc148,3
0484
0485

75651
75652
75653
75654
75655
75656
0"'34101
756~7

COpy

0201~"

050hH
k141505"
02011/)0
1352514
046040

COPFC EQU w ·-+COPEC+l
COPED DEF *+1
OCT 512J
ASt 7,YSTEM OVE.RlOAD
p

10175660
00512J
1d54523

7566ft!
75661
75662
75663
75664
75665
75666
75667
00342
75670
75671
75672
75673
75674
75675
7!5616
75677
7570101
00J42
757 0 1
757",2
75703
7571/)4
7571/)5

075671
1006104
052520
1046111
0415r)1
052105

7~71tJ6

e~118t5

k152105

1d4644fc)
047526
"'42522
"46117
1040504

COPFD EQU .···COPEO+l
COPEE:. UEF *+1
OCT 5Ul4
ASC 7, UpllCArE ENTtH

Ballit
1047124
051131
1d7570?,
005111
046114
1tl26523
052117

COPFE E.QU ,···COPI:.E.1
COPf.F OfF ·-+1
OCT 5111

ASt 9,L.L.-STURt:.D PHUGRAM

1571/)7 042040

0486
0487
10488
16489

0490
id4 9 1
0492
0493

75711C1 ~50122
75711 10147507
76712 1r)51101
75713 046440
003410

757 14
75715
75716
75717
75720
75721
70722
75723
75724

0757 15
10105116
047440
10151525
~4151id
~201"'5

047124
id51131
k'J20~41()

~0342

157 2 5
75726
75727
75731()
757Jl
75132

COPFF EQU .···COPt:.F+l
COPt:G DEF *+1
OCT 5116
ASt 7,0 SUCH ENTRY

~75726

idlo15125
t't4712J
05250J
~41505

051523

COPFG E.QU .·.+COPEG+l
COPEH OfF *+1
OCT 5125
ASC 6,NSUCClSSFUl

PAGE

0494
0495
0496
0497
0498
0499
0~0'"

0501*
0502
0503
0504
16500
0506
0507
0508
0509
0510
0511
0512
0513
0514
0515
(rj516
0517

1651ij
(rj519
0520
0521
0522
",523*
16524
1(.1525
1(.1526
1(.1527
0528
16529
0530
0531

~66t)

15733
757.)4
00343
7!>7J5
75735
75736
75737
75740
75741
75742
75743
75747
75750
75751
75752
7575J
75754
00034
00035
00036
00040
IcHd041
00042
00043
00045
7 4 132
74137
74315
74164
74435
75773
75773
75773
75774
75775
75776
75777
76000

*56

COpy

1li43125
046i6411i
063754
070072
163751
064504
027773

COPfH EQU
COP98 EQU
LOA
8lA
LOA
LOB
JMP

07't743

COPPT OfF *+1

000000
00~043

0160036
072044
000125
000115
177005

016231
11~015

027000
027325
02720i'

.··+COPt.M+l

•CM501

wORD
COPOV,l
*LltsI

SET UP
OVERLAy

COP~9

BSS 4

COPIP
COPAp
COPOV
CPLNA
CPL.CA
CM507
COP!
COPS
cupos
cOPWO
COPC
cupP
COPDl
COPOU
COPF
COPDR
COPL.N
COPO
COPOF

OEF
OfF
OEF
OfF
OfF
DEC
EQU
E.Qu

EQU
EQU
EQU
EII1U
EQU
EQU
EQU
EQU
EQU
EQU
EQu

ORG
COP99 EQU
JSB
Ja 8
JMP
JMp
JMP
$COP EQU

COPOI
COPDS
8AVO.COM6.COMJ
DADLN
OAOLC
... 507
LTEHP+4
LTEHP+15
LTEMP+6
7 AI.80 USED
LTEMP+8
L.TEMP+9
L.1EMP+U'
LTEMP+ll 12 ALSO USED
LTt.MP+13
LOUT
LTYPR
GETIO
L.CHAR
SCHLQ
LIBRA+501

•ORUML.

CALL. OVERL.A'r

COPl1
tOP8

NORMAL RETURN
ERROR RETURN

sICKP,I
L.I8RA
•

PAGE

~666

.57

BESTOw

0002* THE bESTUW COMMAND IS USEU TO TRANSFER PROG~AMS AND FILES FROM
13003. ONE USE~'S Ll~RARY TO ANOTHER USER'S LISRAHY. THE fORMAT Uf THE
0"04. COMMANQ IS,

see,.
0006.

BES -

O~OlD,

NEwlD l,NAME)

0007.
0008* IF NAME IS OMITTED, ALL PROGRAMS ARE TRANSFERED EXCEPT FOR THOSE
Ic"lI"'~. WHOSE NAMES ALREADY ~XIST IN NEWID'~ LIBRARY,

(UJU!.

0011
0(1)12
01013
0014
10015
0016

0017
0018
0019
0020
0021
(11)22.

0023
0024
0025
0026
0027
10028
0029
0030

0031

10032
0033
1it0J4
0030*
0036
0037
10038
011)39
10040
0~41

00 4 2
i0043
01tl44
0045
(1)046
0047
1tl048

0049
0050
0051
11)052

75011H11
75000
75(1)01
75002
75003
751t)0 4
751d06
75006
75007
75010
75011

75012
75013
75014
75 015
75016
75017
7502ro
750~1

75022
75023
15024
7502b

016315
0021tl01
026275
05 0 426
002401
026275
(1)72137
1d60052
070030
072132

7~042

L..OA 10

J8B GElID
NOP

CpA .+15B
JMP 6ESJ
CPA .+54~
CI.A,RSS
JMP LFRER
STA BESF

002401
026215
(l) 7 tHil43

LDA DI.TEM
STA BESP
LDA .-J
STA 6&::8'

060520
1070042
06 0 341
(711)041

102627';)

75043 1054367
75044 0034k11
75~45 (1)26275

005J_
0054 75k146 1072164
0055 75047 116000
0056 7505(1) 027054

GEliO

STA LT~MP
STA BESOl

050425

75027 001727
750J0 034042
75031 1701tl4tc!
70032 0175104
750J3 1J0~42
75"'34 170042
75035 0J4041
75036 027026
7513J7 101751c!J4
7504 0 ro~kl412
75w41 0020k11

L.l~RA

JS~

kSS
JMP LFRER
CPA .+54~
CLA,RSS
JMP LFRER
srA BESOE

016315
00"'000
050367
027061

75026
75026 017504

ORr;

~ESl

Gf'r 01..010

CR 15 ERRVR
COMMA FOL.1..0WS?
YES
NO, ERROR
SET ~UPI..ICATE ENTRy COUNTER
SAVE

10
GET NEWID
CR

YES

fOL.LOWS?

NO, COMMA'1
yES

NO, ERROR
6 CHAR

... AXIMUit

EWU •

JaB BE5R
ALF,ALF
lSZ BESP
STA &ESP,l
JaB 8ESR
lOR BESP,l
STA BESP,!
ISZ BESe;
JMP BESl
JSB BESR
CPA .+41C1I:I
RSS
JMP LFRfR
CpS ,+158
CCA,RSS
JMP l..FRER

SlA SESMF

JaB DLOKP,1
JMP sf-S2

GET L.EFT CHAR

SAVE IT
GET RIGHT CHAR
SAVE IT
flNlsHEO 0 CHARS?
NO

YEoS, NEXT MUST

Bt. A BLANK

OK
CR foL.LoWS?
yES
NO

SET MUOE r"LAG
SEARCH FOR ENTRY
FOUND

PAG~

0057
0058
0059
id06~

0061
0062
0063
0064
IIUII65 *
0066
0067
0068
0069
"070
irHa71
0072*
0073
0074
0075
0076
"'077
0078
0079
0080
0081
0082
0083
16064
0085
0086
16087
kJ068
1d089
0090
"'091
kJ092
~kJ9J

td094
16095
16090
0097
01d98
00 99
~100

0101
01 0 2
0103
01164
0105
16106
0107
0108
0109
01116*

0667 #57
751'651
75052
75053
75054
750ti4
75kl55
75056
75057
75060

BESrOr.

~63552

10420~

LDA
LOB
JMP
EQU
OLD

000034
072025
076315
027164

STA BESD4
STB BES05
JMP BESl0

064342
027146
BfS2

75061
75061 002400
75062 ~72164
75063 070031
750b4 070032
75065 07003.3

BESJ

75066
75066
75067
75070
75071
75072
75073
75074
75075
75076
75077
75t1tH"
75101
75102
75102
75103
75104
751160
75 10 6
75107
75110
75111
75112
75113
75114
75115
75 116
75117
75120
75 121
75122
75123
75124
75125
75126
75127
75130

BES4

STA
STA
STA
srA

6ES5
0576!1~

027134
160001
002fdkJJ
021102
006004
160ft)01
ft)500J'"
002001
027134
1644&J51
0 7 61625
"'00562
072310
16 0016 1
070 16 72
044360
1010001
064566
016231
116015
1627164

~ENTHY

NOT

~OUND"

SAVE
DIHECTOHY
POINTERS

EQU *
CL.A

116005
kl27160
064035
044366
074035
164034
007004
044562
054035
002001
1d2'131
064034
044361

SESEA
SESFA
BESIL.
•
LTEMP+4

f:.QU
JSB
JMP
LOB
ADB

BESMF
l.TfMP+l
L.TEMP+2
L.TEMP+J

•
DL.OKP,I
BES9
L.TfMP+O
.+12
8rB LTEMP+5
L.OB LTEMP+4,I
CMB,lNij
A08 LI8D
CPS LTEMP+S
RSS
JMP SES6
L.DB L.TfMP+4
EQU *
AOB .+7
CPB BD1RU
JMP BES7
LDA 6,1
SlA,RSS
JMP BEs5
INB
LOA B,1
CPA L.TEMP
HSS
JMP 8ES7
ADS ... 1
STB BESD4
LOA LIBD
srA BESDS
LOA 8,1
SlA WORD
ADS .+6
LUA 8,1
LOS LIBDI
JSB DRUML.
Jsr; SlCKP,l
Jfo1P BES10

SET MODE
Fl.AG
INITIALIZE
NAME
SEARCH FOR ENTRY
FOUND

NOT f"OUND
00 wE POINT
BEYOND THt::.
OIRECTORY'I
yES
NO
.> NEXT DIREC ENTRY
L.AST ONE?
YES
NO
LENfiTH lERO'1
yE.s

NO
flET FIRST ID ON lRAt"
SAMf AS THIS ONE1
yES
NO
SAVE
DIREC
POINTt.R~

READ
NEw
DIRECTORY
TRA(;K

PAGE 0668 #57
~111

"'112
011J
16114

afSTOW

75131
75131 104~35
75132 ~54~31d
75133 0271610

Bt:,S6

75134
15134
75135
75136
75137
7 5 137

Bt.a7

JMP

ItHlb •.

10116
!'dl17
011d
t1119
fd120
0121
0122
0123
IrH24
0125
fd126
16121
1012~

10129
0130
16131
16132
13133
10134
10135
10136
10137
1013d
10 139
10140
0141

0142
10143
k'l144
"'145
10146

0147
10148

vJ149
10150
10151
k)152

0153
10154
10155
0156

10157

0158
10109
10160
10161
10162

ft1163
10164

7~140

75141
7 5 142
75143
75144
70144
75145
75146
75146
75147
7 5 150
75151

fd02400
052164
027144
052137
026267
1063563
~64337

021146

1670050
"'60305
07 100 51

0740310
7~152 016257
75153 t16e030
75154 001rc"?1I:
75155 00;$"'04
75156 10643105
75157 026271
751610
7516e! lkJ4200
75161 000034
75162 072025
75163 076315
75164
75164 066315
75165 044365
75166 1600101
75167 ft170040
1511k'J 002021
75171 1.127175
75172 0101727
7517j I1JI07612
75174 i3t-:.J 00 4
75175 1070044
70176 t14434td
70177 1601001
75200 ~10274
75201 107101031
75202 0100004
75203 160001
75204 t170032
75205 101060104
75206 16101001
75207 0710033

at:.s~

YES

f.QU •

CL.A
CPA
JMP
8ts15 EQU
CPA
JMP
LUA
LOB
JMP
6£:.58

063677
064337

EQU •
LOB LT~MP+~,I 0'-010 THt. SAME
AS THIS ONE1
CPS LTEMP

BESMF
BESS

•bESOE
LENO
BESES
Sf-Bf8
BESIL.

EQU *

LOA BESEC
LOB BESFC
Bt-SU. EQU •
STA MOVES
LOA TJ5bl
STA MOVED
ITS LTEMP
JIB MUVEW
LOA LTEMP
ALtB
CMA,INA
LOB T3581
JMP LENO"'2
8EI9 EWU
OLD LTEMp ... 4

•

STA BESD4
STe Bf.S05

BESl0 EQU •
LDB BEaDS
A06 .... 11
LOA 6,1
STA 8ESWO
SSA,RSS
JMP *+4
AL.F,ALf
lOR HIMSK
CMA,INA
STA I:tESLN
ADB ... 10
LOA H,l
AND INF
STA LTEMp ... 1
INB
LOA 8,1
STA L.TEMP,..2
INS
LOA B,I
STA L1EMP ... 3

FIRST TIMt
THkU?
YES
NO, ANY DUPLICATE ENTRI~S?
NO
·OUPLICATt ENTRY(IES)"

"NO ENTHIES FOR OL.DIL>"
MOVE MESSAGE.
TO TTY
bUFFEH

SAvt:
DIHEC
POINH.~S

r.;ET LEN(lTH
SAVE IT
CONVERT
TU
BLOCKS
SAVE # OF BLO(;KS

MOvE

lO/f-.4AME
INTO

PAGE {d669 1#57
0165
0166
0167
1c1168
0169
0170
0171
0172
0173
0174
0175
0176
0177
017i3
(,3179
vJ180
0181
IU82
0183
IU84
0185
10 18 6
0187
!rHSa

0189
0190
0191
01 9 2
0193
1c1194
0195
0196
0197
019d
0199
0200
0201
~202

0203
0204
1c1205
0206
!lt207
0208
0209
0210
0211
0212
0213
0214
0215
.,216
0217
021tl
0219

75210
75211
75212
75213
75214
75215
75216
75217
75221c1
75221
75222
75223
75224
75225
75226
75227
75230
75231
75231
75232
75233
75234
75235
75236
75237
75240
75241
75242
75243
75244
15245
75246
75247
lfi25"

75 25 1
75252
75253
75254
75255
75256
75257
75260
75261
75262
7526J
75264
75265
75266
75267
75270
75271
75272
75273
75274
75275

Bl:STOw

060"'52
07"030
116005
027423
017440
044361
160001
040044
003004
04~351

000040
14"0iH
002040
02J231

06J62J
064340
027146
006004
160001
040044
17~001

017470
062132
070052
017440
044361
0 6 0044
00300 4
140001
1700rrl1
017476
062025
16~000

07 40 7 2
0403610

160000
061566
"162J!
116015
066315
074051
044306
160001
070042
044355
160001
070045
006fd04
16fJ001
07003~

006f1t"~

160001
070037
1:144350

LOA
STA
JSB
JMP
JSB

10

LTEMP
DLOKP,1
SES1J
BESIS
AI>B •• 7
LOA ti,I
ADA SESlN
CMA,lNA
ADS ,-I
CLf
AUA B,l
SEZ
JMP BESll
LOA BESEE
lOS BESFE
JMP SESIL
SE811 EQU
INS
L.OA B,I
ADA SESLN
STA B,1
JSB BESIW
LOA BESOI
STA 10
JSB BESIS
AOB ,+7
LOA SE8L.N

•

CMA,INA

ADA
Sf A
JSB
LOA
LOB
STfj
ADA
L.OA
L.OB
JaB
JSB
LOB
STB

B,l
6,1
BE.Slw
BESD4
A,I
~ORO

LTEMP (e.ll

SEAHCH FOR NEW ENTRY
FOUND, DUPLIcATE
GET TRACK FOR NEWID
COMPUTE
T01AL
DISC
USED
GREATER THAN ALL.OTMENT?
NO
"LISRARY SPACf FULL"

UPDATE
DISC
USED
WHITt OUT 10 TRACK
Qt.T TRACK FOR OLIHD
REDUCE
DISC
USED
WRITE OUT 10 TRACK
REAl)
DIREcTORY

.+6
A,l
LIBO!
ORUML
SICKP,I
6ES05

FOR 0 ... 0
ENTRY

~OVfD

.+4
LOA B,l
srA BESP
ADS ,+3
LOA 8,1
STA BESOU
INB
LOA B,I
STA BESOS
A08

IN~

LOA !::SII
STA Sf-SOS+!
ADa ,+3

SAVE
WOHO 4
SAVt: DRUM
AOORtSS
SAVE

011'
ADDRESS

PAGE
tJ220
~221
~222

"'223
",224
0225
",226
0227
~228

"'229
\(123",
0231
10 232
0233
0234
0235
",236
11)237
"'238
"'239
0240
1d241
",242
0243
11)244
~245

f024C
1It247.
t?24~

1el249
"'250
"'251
16252
0253
0254
0255
"'25C
0257.
1Il258
0259
",260
11)261
0262
"'263
0264

0265
0266
0267
11268
"'269
0270
"'271

(0272
0273
16274

~67~

75276
75277
103",,,,
75301
753"'2

#57

~tSTO~

~7405fO

146a25
044674
016257
\(166025

75303 160001

75304 040366
753135 1700fcH
7031/16 070072
75307 0"'6004
75310 074111151
75311 044357
75312 076435
75313 160001
75314 ",64562
75315 074050
75316 "'16231
75317 027416
7532 0 064346
75321 016257
75322 0611030
75323 070052
75324 116005
75325 0000140
75326 164034
75327 054714
75330 027433
75331 00711100
75332 044562
75333 'iJ74050

75334 "'44366
75335 074051
70336 007t:l00
15337 1el44402
7534\1 0441d35
75341 016 243
75342 060520
75343 070050
75344 060035
75345 040366
75346 07"'051
75347 "'04346
75350 ",16257
75351 06012142
75352.17"'051
75353 016076
75 3 54 03 4 11 151
75355 1700~1.
75356 0.34 0 5 1
75357 060201
75360 17\'J051
75361 03 4 051
75362 060045

MOVES
8ESo4,I
MLlSO
JSB MOVEw
LIJB Bf.So4
LOA B,l
ADA ,.12
STA M,l
STA WORD
lNB
SIB
ADS
ADS

sra

ADS
STS
L.OA
LOB
5TB
JSS
JMP
LOS

EL.IMINATE
ENTRY
UPDATE
TRM:K

LENGTH

1-10Vf.D

,.5
BE:.S~D

B,l

L18D
MOVES
ORUML
BES12
,"4

JSB MOvEw

L.OA LTEMP
SrA 10
JSB OLOKP,1

NOP

wRITE:. DIRECTORY TRACK
TRY TO SAL.VAGE
RESET

DIREC

RESEl

10

SEARCH FOR NEw ENTRY

LUB LTEMP+4,1 If TRACK IS FULL., GO
CPS M8184
00 OVERL.AY SECTION
JMP SES~8

eMS

ADS LUlU
STB MOVES
AoB ,.12
srB MOVED

ROOM
fOR NE:.w

eMS

ADS ,+24
ADS LrEMP+5
JSS MOVE"

LOA
STA
LOA
ADA
STA
L08
JSB
L.DA
STA
JSB
ISZ
STA

Dl.Tt.M
MOVES
LTl;. MP+5

°lRtCTORY
EN1RY
MOVE
IO/NAME

,+12

MOVED
,_4
MOVEW
BESP
MOVEO,1
DATE
MOVED

INTO
OlRE:.CTO~Y

WORO 4
L.AST REFEkENCE DATE

MUvED,I
ISZ MUVED

LOA OATIM
STA MOvED,l
ISZ MOVED
LOA BESoU

LA'T CHANijE DATE

DRUM ADDRESS

PAGE. 0671 *57
0275
0276
(()277
0278
0279
(()280
"'2 8 1
0282
828l*
0284
0285
0286
(()287
(()28ij
0289
0290
0291
0292
0293
0294
0295
0296
0297
0298
0299
0300
I6J01
0302
0303
0304
0305
0J06
0307
(()30 8
0309
0J10
(()311
0312
0313
0314
~315

0316*
1d317
0318
0319
0320
10321

BESTOw

75363
75364
75365
75366
75367
75370
75371
75372
75373
75374

170051
034051
1042(()(()
000036
10 44 00
100051
064051
044355
060040

STA MOVEO,1
ISZ MOVED
DL.D BESOS

171d~01

B,l

75375
75376
75377
75400
75401
75402
75403
75404
75405
75406
75407
75410
75411
75412
75413
75414
75415
75416
75416
7 5 417
75420
75421
75422
75423
75423
75424
75426
75426
75427
75430
15431
7 54 32

160034
040330
170034
070072
060034
002004
07ld051
040357
072435
160800
06'562
074050

036137
062132
070030
034033
036164
027066
002401d
027137

MOVED
,+5
BESRD
A,I
LD~ LIBD
STa MOVE.S
JSb ORUML
JMP 8ES12
L06 ,·4
JSB MOvEw
JMP BE813+1
Bt.S12 EQU •
L.08 ".4 •
JSB MOVEW
LOB WORD
LOA l:iESRD
JaB SALVP,l
Bf-Sl3 EQU
lSZ BESDE
LOA 8ES01
STA LTEMP
ISZ L.TEMP+J
lSZ BESMF
JMP BES4
CL.A
JMP SES1S

75433
75433
75434
75435
75436
754J7

063647
070072
163646
064504
027773

BES98 EQU
L.OA
STA
LOA
L.OB
JMP

0164t31

027416
064346
016257
027424

",64346
016257
06 4 072
062435
116016

OST

MOVED,l

L.OB
ADb
LOA
STA

MOVt,1)
,+3
BESwO

LOA
ADA
STA
8TA
LOA
INA
SrA
ADA
STA
LOA

DISC ADDRESS

L.ENGTH

LTEMP+4,I UPDATE
, ... 12
OlHeCTO~Y
L.Tf.MP+4,I
L.ENGTH
WORD
LTEMP+4

•

•BM507

w
RESt.T
DIR~C

RESET
OIREC
ATTEMPT TO SAL.VAGE
~UMP DUPLICATf fLAG
RESET
OL.OIO
BUMP NAME fOR SEARCH
MORE THAN ONE ENTRY?
YES
NO

8ET UP OVfRLAy

WORD
~ESOV,l

*L.161
BES99

0322
1d323*
0324* atSIS SEARCHES THE 10 TABLE
032S*
032b
7 5440 0000010 aESIS ~OP
0327 75441 1016370
Jse GTIL.

FIND OUT WHICH TRACK

PAGE
k'32t;
~329

k'330
0331
~332

~33J
~334

1d335
k:l336
k'337
k'338
ltl339
IdJ40
"'341
10342
10343
~344

IdJ4~

~672

75442
75443
75444
75445
75446
70447
754513
75451
75452
75453
75454
75455
75456
75457
75460
754610
75461
75462
75463
75464
75465
75466
75467
75470
70471
754 7 2
75473
7547 3
7':J474
75475

k'346
IdJ47
0348
1d349
03 5 0
10351
10352
",353
0354
fd355
13356
13357
0358.
0359* 6tSIW

#57

BES1C~

LDA lLJI.NP
Loe A,l
SZB,RSS
JMP BES12
STe WORD

",60076
1641d01d
1d1d60fdJ
ra27473
074072
fr107l104

eMe,INe
ADa
SlB
ADA
L.OA
L.OB
JSB
JSt3

ro4456~

0741d36
1040351
161tJ1d00
k'64566
k'162J1
116015
064562
054036
1627473
1613001
0031304
040052
0fd200:)
12 744 0
fdld2020
027473
1tJ44362
02746it:l

Lua

LIeD
BESDS
."1
A,l
1.1BOI
DRUML.
SICKP,l
L18D

BESII EQU *
cPa BESOS
JMP Bt:.S12
lOA B,l
CMA,INA
ADA 10
SZA,RSS
JMP BESIS,I
SSA

JMP BES12
"UB ... 0

JMP BESll

Ijts12 EQU

*

LOA BESEO
LOB BESFO
JMP BESIL

Il)03613
064343
027146

WRITES OUT THE 10

L,ENG1H
ZERO?

YES
NO, SAVE IT
GEr PUINTf.~
TO LAST
~ORO

~EAL)

+1

10 TRACK

ENO OF TAbL.E1

YES

NO, GET

Cu~kENT

10

EQUAl.?
YES, fOUND THE ONE W~
NO, GREATER?
yES, ERROR
NO, MoVt TO NEXT ONE
"NO SUCH

~ANT

Nf~10"

TABL.~

036(,,*

"'361
~362

k'363
k'J64
(0365
0366

0367*
IQJ6ij*
0369*
0370
1d371
VJ372
0373
0374
k'375
10376
0377
0378
10379
03813
10381
~382

75476
75477
755"'"
75501

000000
1601375
Idb4562
1016231
755~2 116017
75503 127476

BESIW NOP
LOA
L.OB
JSB
JSB
JMP

IOl.CP,l
LIBD
DRUML.
[lEAOP,I

DRUM

AOO~ESS

WRI1E IT
FAIL.

BESI~,l

BESR fETCHES CHARACTERS FOR THE NAME
75504 o",,,o00
75505 ~6~~4J
75~06 050412
7550 7 12750 4

755H'
7551~

114572

75511 027545

75512 06413013
75513 010730

75514 1002002
75515 k'50731o
75516 027511t)
75517

BESR

NOP
LOA SESF

THEST TO RETURN

6LAN~

CpA ,+408

JMP
BESRl EQU
JSB
JMP
LOB

Bf;;SR,l

11

TJ5CH,I
BESR4
A

AND ,1413

SlA
CPA ,140
JMP BlSRl
BESR5 EQU •

GET A CHAR
CR

SKIP

CONT~OL.

~HARACT~kS

PAGE 16673 #57
0Jij3
(()384
(()3e5
(()3 8 6
0387
0388
16389
0390
0391
(()392
0393
10394
0395
10396
0397
0398
0399
04121121
04fal
0402
04 0 3
04104
0405
0406
0407
0408
040 9
0410
0411
0412
fa413
0414
0415
0 4 16

0417
k'41tS
1tj419
~42~

BESTOW

75517 0 6 "'043
7552~ 002002
75521 0275J5
75522 054426
75523 026275
75524 054416
75525 027547
75526 0544~4
75527 027547
75530 054367
75531 026275
7~5J2

75532
7 5 533
75534
75535
755.35
75536
75537
75540
75541
75542
75543
75544
75545
75545
75546
75547
75547
75550
75551
75552
75553
75554
75555
75556
75557
7556k'
75561
75562
00342
75563
75564
75565
75566
7~567

7557W:1
75571
75572
7557J
75574

06001211
03412143
121504
054426
027547
12154367
002001
027532
060412
07ra04J
127504
06401210
027517
063636
064343
"'27146
12175553
005105
0 47 124
0511 3 1

LOA
SZA
JMP
CP8
JMP
CPS
JMP
CPS
JMP
CPB
JMP
SESR3 EQU
LOA

.SESf'-

JMP
bf.SR2 EWU
CPS
JMP
CPS
RSS
JMP
LDA
STA
JMP
BESR .. EQU
lOB
JMP
BESR6 EQU
LOA
lOB
JMP
SESEA OfF
OCT
ASC

BESR,l

St:.SR2
,+548
L.FRER
,+446
BESR6
,+528
BESR6
,+158
L.FRER

.

B

ISZ BE5F

•,+548
BESR6
,+156

BESR3
,+40 B
BESr
BESR,l
•
A
BESR5

•BESEF

FIRST CHAR?
NO
YES, COMMA?
YES
NO, 'I'?
YES
NO, '.'?
YES
NO, CR?
NO, RfS10RE A

COMMA"
YES, ERROR
NO, CR?
yES
NO
RETURN A t$LANK

"INVAL.ID NAME"

BESFf
8ESll
.+1
5HHS

7,N1RY NOT FOUND

02~1l6

041524
kl22J106
04752b
1047104
075564
005104
05252~

BESFA EQU ,~*+BESEA.l
BESEB OfF •• 1
OCT 511(J4
ASC lk',UPllCATE ENTHY(IES)

~46111

041501
0~2105

02121105
1/l4/124
(OSt131
02411t

k142523
75576 02444,:)
00337
75577 075600
7~57~

0421
.,422

Bt:.SFB EQU ,,,, •• 8ESES+l
Bf.SEC OfF ·+1

PAGE
~42J

1a424

10425
1d426
10427
1d42i:J

13429
104313
~431

1(1432

10433
1d434
1'.1435
10436

1d437
16438.
13439
0440
1c:l441
1It442.
V?443
1c:l444
04415
0446

1c:l447
"'44i:J
10449
1d450

~674

#57

BESTOw

75600 00511t:1
1347440
75602 042510
15603 052122
75604 044511'5
75605 1051440
75606 1043117
756107 k'ei H!141O
756113 047514
75611 1'.142111
15612 1c'l42040
13k'JJ7
75613 075614
75614 1d10511b
75615 10474410
75616 05152f,S
75617 1'.141510
75620 0210116
75621 1042527
75622 044504
013343
75623 075624
75624 10105114
75625 1d4451d~
75626 0~1101
75627 0~ 11.51
756310 10216123
75631 10501131
75632 041505
15633 021d106
75634 052514
75635 10461041'.1
130341d
75636 075637
75637 13105111
15641!) 1()47t20
75641 10 4 1'.1514
75642 '144504
75643 0213115
75644 1'.1410515
75645 1(142441c'l
013343

UCT 5Ub

7~601

ASC 11d,0

f~TRlfS FU~ O~OID

SfSFC EQU ••• +BES~C+l
ijESED oEF *+1
OCT 5116
ASC 6,0 SUCH NEW1D

BESFD EQU ,,,, .. +BES~D+l
B~SEE OfF *+1
OCT 5114
ASC 9,IBRARY SPACE FULL

BESFE EQU ••• +BESt.E+l
Bt:.SEF lJEF ·+1
UCT 5111
ASC 6,NVAL.IO NAME

BESFF f::.QU , •• +BESt:.F+l

75646 1072044
75647 177005
75651c:l 03106~

BESOV OEF SAVO+COM6.CQM3
BM5137 DEC .. 507
SOIRU OEF OIREU

00036
000413
rd0041

EQU LTEMP+6
EQU LlE.MP+8
8~SC
EQU LTEMp+9
ttf,8P f,WU LTEMP.llit
tlf.SF EQU L'TEMP+l1
8f.SLN EQU LTEMP+12
ijESOU EQU LTEMP+1J
BESD4 f.QU TJ 5CQ

'..,842
100~43

00044
0131045
74025

8~SDS

a~SwD

PAGE 0675 #57
0451
10452
0453
0454
0455
0456.
0457.
,,45ij
0459
1r:!46fd
fd461
0462
fd463
10 464
"'465

BESTOW

74315
741J2
74137
74164
74435

Bt:.SO~

~QU

Bt:.SOI
Bt.SOE
BESMf
8ESRO

EQU
EQU
E.QU
EQU

75773
75773
75773
75774
7577'!)
75776
75777
76000

ORG
BES99 EQU
JSB
JSe
JMP
JMP
HI.T
SeES EQU

loH62Jl
11 6 01 5
02700kl
027424
102041

(;ETID
L.OUT
LTyPR
l.CHAR
SCH!.Q
LISRA+507

.-

DRUM!.
SICKP,l
L.IBRA
BlS13+1
41 6

*

PAGE
0467.
1046th
~469*

#57

~676

SANCTIFY

THIS ROUTINE IS USEU TO COpy A FIL~ FROM THE
DISK ONTO THE OHUM.
THE PRIMARY PURPOSE IS TO PUT FREQUENTLY USED
FILES AND PROGRAMS ONTO fASlER ACCESS STORAGE.

0470*
1d471*
\1472*
FOR~AT LSI
0473",
0474 750010
0415*
"'476 75000 016315
1/)477
75001 002001
0478 7512102 026275
10479 75ek'l3 050426
0480 751004 01212401
11481 7512105 026215
0482_
t{J483*
0484_
0485 75006 1070055
0486 151211217 12117257
0487 7512110 0712111'31
k:).:.88 75011 017257
~489
75012 070032
10490 7512113 017257
1d4~1
75014 £170033

SAN~,(C~)

ORG LIBRA
JSB GETID

GET TNE 1u CODE IN YUtSTION

RSS

JMP LfHER
CpA ,+5413
CL.A,RSS
JMp L.FRER

srA
Jsa
STA
JSB
STA
JSB
STA.

FORMAT ERROR •
COMMAl
NO, fURMAT

~

NO FILt NAME

~~ROR

TJ5L.C
SAN1P
LTEMP+l
SANIP
lTEMP+2

SANIP
LTEMP"'J

04~2.

04~3

10494

0495
t{J496
10497
049tht
1c1499*

05"".
0f>01

001212
0603.
0504
0505
0506
0507.

0SeS
0509

05 10
~511

0512
1d513
0514
~510

10516
10517

051S

0519

0520
0521

75015
75016
75017
75020
75021

JaB
RS8
JMP
LDA
STA

114572
01620161
026275
060052
ro7riHd30

TJ5CH,I
LFRER
10

LTEMP

NAMES ARE c, SIx CNARACTERS
THE 10 CODE
FOR THE CL.OOK ROUT1Nf

SAV~

NUW SEARCH THE DIRECTORY FOR THIS ENTRY
15022 116005
75kl2J 027027

JSB oL.OKP,I
JMP SANe;

75024 063315
75025 ~643411
75026 021300

LOA SANEA
LDB SANFA
JMP SANIL

750~7
75~27

0641635
75030 044 3 65
75031 160~01
15fc:132 070036
15033 002020
75034 027042
75035 003004
750,,6 040412
75037 002020
75040 0212716

7512141 0270415
75042
75 042 043402

8ANe;

EWU.
LOB LTEMP+5
ADB ,+11
LOA 8,1
STA SANLA

"ENTRY NUT PRESENT"

GET POINTEP TO THE ENTRY
-> I.ENG·' H WOR!)
A • L.ENGTH
SAVE LENGTH

5SA

JMP SANeA
CMA,INA
ADA .+32

PROGRAM
32 IS LONGEST

~L.LO~AbLE

SSA

JMP
JMP
SANCA t.WU
AOA

SANKS
SANea
•
BAN8K

"ENTRY TOO LONG"

PAGE 0677 #57

~

-

,

05 22
0523
05241.
0525
10526
10527
10528

0529
0530
0531*
0532
!d533
0534
0535
0536
0537
053.h
0539
!d54 0
0541
0542
0543
10544.
0545·
0546.
0547*
10548
0549

SANCTIFY

75 0 4 3 0020210
75044 027210
75045
75045
75046
75047
75050
75rt'151

t)640J5
044361
160001
002002
027273

."7

.> DRUM AODHESS

SANKC

"ENTRY ALREADY SANCTIFIED"

10203\

75060
75061
751()62
75063
75064

064035
044 354
16001tl1
002021
1027115

LDS L.'fEMP"5
A06 , .. 2
L.DA 1:5,1
SSA,RSS
JMP SANCM

10~030

PRO(JRAM TOO L.ONG CHECK
"ENTRY TOO L.ON(J"

8,1

STA
LOA
ADA
JS6
HL.T
HL.T

MWORD
LTEMP.5

,.e

DISCA,I
306
316

•• DIRECTORY ENTHY
,,> DISK ADDRESS
OVEHL.AP SEEK WITH DRUM DIDDLING

.> WORD TWO
BIT 15 sET SEZ Fll..E
PHOGRAM, WON'T Bt. IN FUSS

THE FUSS TABL.E IS NOW SEARCHED TO StE IF THIS
FILE IS IN USE,

~553

75~74

16054ki

0554
0555
121556
0557*
0558
ta559
"560
0561

75075 064566
75076 ~16231
75flJ77 11612115

05b2

•
I..TEMP+5

070215
060035
04'1362
11<212

0441361r;1
104200
100001
11r;14400
0008J7
060732

1r;1551
0552

SANCS EQU
LOS
AOtS
LOA
SZA
JMP

75052
75053
75054
75055
75056
75057

75065
751d66
75067
75070
75071
75072
75073

0550

5SA
JMP SANKe

75111'0
751lCll
75101
75102
75103
15104
75UJ5
75106
75107
75110
75111
75111
75112

~7001~

06.582
16000~

006084
1r;150037
002001
027111
160001
050040
027276

ADS ,"6
OL.D 8,1

•• IHSK ADDRESS

DST SANL.B

SAVE OISK ADDRESS FOH SEARCH

LU A M20tr)0
STA WORI)
lOA FUSS,1
1..08 lI801
JSB D~UML.
JS8 SICKP,l

L.ENGTH OF FUSS TA6L.E
READ
IN
FUSS
TABLE
IT'S STUCK ON THE DRUM

LOB
SANce EQU
L.OA
INe
CPA
RSS
JMP
L.OA
CPA

0563
0564
0565
0566
0567
SANCD
"568
0569
006004
0570
0~~5J6
1071 7tH1J 0271115
0572 75114 fd27HH
0573.
NOW REAl) IN fHE
10574*

L18D

..

8,1
SANL.!

SANtO
e,l
SANLC
JMP SANKO
EQU *
INa
cPa L1024
SANtM
JMP SANCC

J"'

.> FIRST ENTRY OF FUSS
.> SECOND WORD OF ENTHY
CHECK FOR FIRST wORD FOR MArCH
MATCH, MUST CHECK SECOND WORDS
NU MATCH
L.OAD sECONO WORD
SECOND WORO MATCH1
"FILE IN USt."

•• NEXT ENTRY
TEST FOR SEARCH DONE
NOT OUNE, Tf;ST NEXT t.NTRY

AOT AND FIND ROOM ON THE DRUM

PAG~

~678

.57

SANCTIfY

0575*
1:1576
~b77
~t)7S

05 7 9
113581i:i
~581
~582

10583
kl584
0585
1d586
£1587
kl58S
10089
059'"

75115
7 5 115 06 00 36
10110 01132021
75117 027123
75120 007400
75121 lfcl1026
70122 0.,3005
75123 00102kl
75124 0711)1337
75125 06011J
7512b 1070012

75127
75130
75131
75132

060112
064560
016231
116015

75133
75134
75135
75136
75137

k')61tH lJ
0k11100
1070040

0591*
10592
~593

113594
10595
~o96

0597
1059S
111599
10600
0601
0602
06 0 3
0604
10605
0616.
0607
061d8
1136109

fcl612

~61J

k')614
[cH> 15
10616
~017

061 8
0619
~62fr3

10021
113622
~623

10 024
113625

IOb26
I13b27

1064562

0kl6004

INS

1514~

E:QU •

1d60",;")7
((l03\tJ04
140fcl01
0113204!1
11327153
10 44354
1i:i34040
",27140

loDA SANL.i:I
CMA,INA
ADA 8,1
SSA,RSS
JMP SANC;T
ADa '+2
ISZ SANL.C
JMP SANeR

75150 063365
75151 064336
70152 1i:i27300

L.DA SANfE
t,.OB SANFf
JMp SANll..

751411:)
75141
75142
75143
75144
75145
75146
75147

75153
75153
15154
75155
7515b
75157
751610
75161
75162
75163
751b4
75165
75166
75161

070041
1700e1
1c)44351
160kH(l1
fr371c)04l1:l
113410037
170001
060041
0021002
027171
IOl41051
044354
107~"'e>~

7517~

044674
70171 044",72
75172 016257

t662tJ*
0629

loOA SANL.A
SSA,RSS
JMP SANCP
SA~CO cea
ASR 6
CMA,INA,HSS
SANCP AL.s,AL.S
STA SANI..B
loOA AOloEN
STA WORD
loDA AOL.UC
LOB L.ISOI
JIB DRUML.
JSB SICKP,l
L.oA AOLEN
ARS
sr A SANL.C
loDe loltH)

0610*
0011

SANCM EQU '"

75173 fCb011J

SANC;T t:.QU '"
STA SAI'~LD
STA 8rI
ADS ,-1
LOA B,l
STA SANI."C
ADA SANI..B

STA
LOA
SZA
JMP
sra
AUS

B,1
SANL.D
SANCV

MOVED

,+2

STS MOVlS
ADa MloIBo

AOS ~ORD
JS6 MOVEW

loDA AULEN

THE lotNGTH WORD
POSITIVE BLOCKS IF FILE

~ET

CONVERT
NE(,ATIVE WORDS
TO SECTOR~

CONVfHT BL.OeK eNT TO sECTOR CNT
RlAO
IN
THE
APT

DRUM ERROR, DIE WITH eONSIDERATl
GET COUNT
uF AUT
ENTHIEs
.> FIRST E.NTR(
LENGTH OF THIs ENTRY

.>

GET

DESIR~D

L.ENGTH

AUD IN ENTRY LENGTH

SKIP IF ToO SHORT

ENTRY IS BIG lNOUGH
ADVANCE TU NEXT ENTRY
CHECK COUNT
"lN8UFFIClt:.NT ORUM SPACE"

SAVE THE L.ENGTH

RE~AINING

GET THE DRUM ADDRESS,
SAVE A COPY,
ANO upDATt. IT
1T

CHECK THE NEW LENGTH
SKl~ IF t:.NTR~ HEMOVEU
SQUEEZE
OUT
THt:.
01..0

ENTRY

IN THI

PAG£ 0679 .57
0630
0631
0632
0633
0634
06 3 5
0636
0637

75174
75175
15176
75177
75177
75200

SANCTIFY

040354
fd7 0 113
070072
06 0 112
064562

75201 016231
75202 11601 b

ADA ,+2
SrA ADI..~N
STA WORD

SANCV EQU •
LOA ADI..OC
LLH3 L160
JSB ORUML
JSf3 SlCKP,l

HiE. AOT AND

TRANSFER
I.ENGTH
WRIlE OUT
THE UPDATED
AUT

1lJ6ltS.

0639
0640
0641
0642
0643
"'644
0645
"'646
1i5647.
0648
",649
0650
"'651
0652
0653
0654
0655
0656
0657
1c165~

0659
0660
06cl
0662
0663.
0664
0665
0666
1d667
066~

1c1669

0670.
1t)671
0672
0673
0674
fd675
0676
10677.
067~

fd679
0660
1i5681
0682
0683.
fd684

75203
75204
75205
75206
75207
75210
75211
75212

160034
070072
06 4 034
044360
1601601
064566
016231
116015

LOA
SlA
LDB
ADB
LOA

LI6Dl
JSB DRUMI.
Jse SlCKP,l

HEAD 8ACK THE
DIRECTORy TRACK
DRUM fi:.RHOR

75213
75214
75215
75216
75217
75220
75221
75222
75223
75224
75225
75226
75227
75230
75231

064035
044&361
060040
170001
064034
044360
160001
064562
016231
002001
027232
060034
164000
040360
116016

Loe
ALl8
LDA
STA
LOB
A08
LOA
LOB
JSB
HSS
JMP
LOA
L06
ADA
JSB

I.TEMP+f>
,+7
SANI.C
8,1
LTEMP+14
,+6
B,I
1.16D
DRUML

.>LoAODRUMTHE ADDRESS
DRUM ADOREss

SANDO
L,lEMP+4
A,I
,+6
SALVP,I

CONTINUE

75232
75232 060037
75233 10B026
75234 00JlrH~4
75235 070215
75236 07007~
75237
7524'"
75241
75242
75243
75244
75245
75246
75247
7525(rj
75251

06003~

kJ40362
064566
11421~

1t?27242
102031
0613214
002020
0272145
002"0~

116015

75252 060040

LTEMP+4,I gET THE DIRECTORY TRAtK LENGTH
WORD
LTEMP+4
.> OIREC ENTRy
,+6
a> DRUM ADDRESS OF OIH. TRA~K

6,1

LD~

SANDO EI.lU •
LOA SANL8
ASL 6
CMA,INA
BlA MwORD
STA WOHD
LOA
ADA
LOB
JSB
JMP
HLT

LTEMP+5
,+8
LI BuI
OIS(;A,I
.·1
31ti

LOA MBUSy
SSA
JMP •• 2
SZA
JSB SICKp,I
LOA SANLC

~OOlFY

AND

THE DIRECTOHY

.> DRUM ADOREss OF DIR, TRACK

WRITE OUT THE NEW
DIRECTORy TRACK

.LENwTH Of TRACK IN CORE
.> DtWM ADDRESS
SALVAGE TRACK
CONVERT PRO.RAM LENGTH FROM
8ft TORS TO WORDS
MAKE NEGATIVE FOR DRUM AND DISK
$fT DISK AND
DRUM TRANSfER I.E.NGTHS
.> D1RECTORY ENTRY

.> 01SK ADOHESS
REAO IN THE fILE OR PROGRAM

STILI. BUSY DOING SEEK

~AIT

FOR TRANSFER TO

LOAD THE DRUM ADDRESS

~E

COMPLETt

~

PAGE
0685
!Clo86
16687
"68~h·

"-

SANCT!FY

k'J66'Q) #57'

752'53 1c;'J'04$62
15254 01 6 !l31
752,55 11~15"

LOB LIllO

JSB ORIJML.
JSB SICKP,l

,

. .

d 6 8Si 75256 1026267
,
1it69'h

W)o91*
0692*
0693
0694
0695
0696
0697
fc)69ij
0699
1a700
:

-"i'"

~

167"1
0702*
0703*
0704*
0705
0706
10707
07iHt*
0709
fe)71fe)
0711
0112*
0713
0714
0715*
10716
0717
071ij
~719

COpy TO THE ORUM

JMP LENO

"
TWO CHARACTERS
OF NAME.

(,if 1

:*,

75257 00",~0'" , SANIP NOP
7526k'l 114572
JSB T35CH,1
15261 060412
LOA .... 40 B
75262 0~1727
AL.F,AL.F
SlA SANLA
75263 "'70'03~
75264 11457~
JSB TJ5CH,1
75265 06~412
LOA ,+40B
75266 030036
lOR SANL,A
75267 127257
JMP SANIP,l
t:R~(JR

GET N~XT CHARACTER
RETURN B~ANKS AT END
TO LEfT HALF
GET NEXT CH~RACTtR
RETURN BLANX AT ENO
Rt;lURN

MESSAClf., PH INTER

"

063327
75271 06,4342
75272 ~2'300

752710

SANKB LOA SANE~
LOB SANfB
JMP SANIL

.'

7527J 063340
75274 064335
75275 027300

SANKe LOA SANEC
LIJB SANfC;
JMP SANIL

.

75276 06'3356' SANKO LOA SANt.:.O
752,77 -"64344
1..06 SANFO
SANI\..
75300
75300 .790ee '.
75301 0 6 0305"
75·J02 ~70051
75303 07403Wl.
75304 ~i6a57
753~f) 06021 4
75306 fd",2020
753fd7 2121305
75Jlf&1, 060,:030~
75311 "'01000
75312 001004
75313 "06430y
10J14 "2&27 ..
.

~QU

.

STA MOVES
LOA T35B1
STA MOVEO
518 LTEMP
JSB MOVEw
L.OA "'BUSY
SSA
JMp
LOA LTEMP
AL.S
CMA,INA
LOB TJf:jBl
JMP LENO+2

MOVE THE ERROR MESSAGE
INTO THE TTY
BUFFER

072O
0721
f&1722
WAIT fOR
8Ef.K TO
f&1723
O724
CoMpLETt
0725
0726
fe)727
AND PRINT
072ij
THE MESSAGE
f&1729
wile*
",731 75115 li!'i'~J 1 8 SANEA Off *+1
OCT 5105
0732 75316 00~1i'5
~7J3
75317 a~1124.,
ASC 8,NTRY NOT PRESENT
'

'

75320 0511:"

. ,-

15321 021111,
75322 "4t52'~~
75323. &a012t.
7'5324 0Stl~'" .
7~j25 0~1506
.
~ ..

t

,

,

~

t.

}'

':-t·
l'~.,

.

Ih •.-

.-2

PAGE \.1681 #57

-

0734
",735*
k:l736
0737
073ij

SANCTIfY

75326 041124
160341
75327
753311'
75331
75J32
15333
75334
75335
75336
75337
00342

,,75330
006105

047124
051131
02"'124
02td114
04;'516
k:l4J440

07~6

7540~

05~101

75401
00336

0~151D5

00~36

00037
~0040

SANtB OfF *+1
OCT 5105
ASC 7'NT~Y TOO L.ONG

04t7517

0739
1rJ740*
10741 75340 1375341
0742 75341 I£Hr'J5105
0743 75342 1647124
75343 1051131
75344 02fr'101
75345 046122
75346 td425rd1
75347 042131
75350 022J12J
75351 040f;H6
75352 041524
75353 04"500
75354 044505
75355 rt)42040
rt)744 00335
0 7 45 75356 0 75357
0746 75357 00511116
0747 753610 044514
75361 042440
75362 044516
75363 020125
75364 0151505
1c174ij (00344
0749.
k:l750 75365 075360
0751 75366 005111
0752 75367 047123
75370 052506
75371 1d43111
75372 04UHl
75373 1d42516
75374 1d5211'40
75375 042122
75376 052515
75377 0~0123
.,753
0754
(0155

SANFA EQU .tIIII*+SANEA+l

SANfS E.QU ,.*+SM"'t::S+ 1
SANEC OfF *+1
oCT 5HHj
ASC 12,NTRY AL.READY SANCTIFIED

SANFC EQU , ••• SAt"tC+l
SANED Of.F *+1
OCT 5106
ASC 5,1L.E IN USE

SANFO EQU •••• SANEO+l
SANEE

D~F

.+1
oCT 0111
ASC 11,NSUffICIENT DRUM SPACE

SANF!. EQU
SA~LA EQU
SANI..~ EQU
SANLC HIU

.-*+aAtofEE+l

LTEMp+6
I..TEMP+7
LTEMP+8

PAGE

~b82

#51

SANCTIFY

~757

IOfd~41

~758

754102 02 0000
75403

0759

5A~~D EQU LTEMP+9
SAN8K DEC 8192
$SAN
E..QU.

PAG~

0802*
16003*
0004.

0005*
0006*
0007·
0008.
0009.

0010*
8011*
0012
001J
ir'014
16015
0016
0017
0fd16
((HUg

0020
kl021
0022
0023

0024
0025
0826.
01027
0028

0683 #58

OESECHATE

THIS ROUTINE IS USED TO RESTOR~ FlLES AND
TO THEIR DISC AREAS, THE ORUM SpACE
IS R(STORE TO THE AOT.
IF THE ENTRY IS A F1LE, IT IS COPIEO ~ACK TO
THE 01se, IF THE ENTRY IS A PROGRAM, IT IS
NOT NECESSARY TO COpy IT BACK, SINCE THE ORUM
COpy CANNOT tiE ALTERED,
PROG~AMS

ORG LIBRA
JSB GETI0
RBS
JMP LFHER
CPA ,+54B
CLA,RSS
JMP LFHt:.R
aTA T35LC
JSB DEalP
STA LTEMP+l
JSB OESlp
STA LTEMP+2
Ja8 OESIP
STA LTEMP+J

15000

75000 016Jl~
75klirH 0102001
75~H~2

02627~

75003
750L-l4
75005
750166
750167
75010
75011
75012
75013
75014

050426
002401
017215
010031
017215
070032
011215
070033

75015
751rJ16
75017
75020

114572
1602001
026275
060052

02~27!5
kl7r60~~

JSB
RSS
JMP
LOA
BTA

T35tH,I

0029
LfRER
0030
10
LTEMP
0031 75021 07~030
0832.
0033. SEARCH DIRECTORY fOR THIS ENTRY
IUJ34.
04:135 751d22 1161211215
JSB DLDKP,I
0036 751d23 02712127
JMP DESl
4:1"37*
0038

0039
0040
0",41*
L-l1IJ42
0kl43
01044
0045

0046
0L-l47
(iHd48
0049

"'000
0051

0052

0(153
10054
0055
16056

LDA DEBEA

75"'24 063244
75025 12164341

LOB OESFA

75'4"

7~ra41

D~51

16000~

00201212
02712131
12163216
064337
162720"
Dtsa
~44JDo

1612101211

7 5 042 1d12l212121
7512143 02712156

GET THREE

WORDS OF
NAME
CR fOLLaW8?
yES
NO, ERROR
SAVE 10
FOR DL.OOK

FOUND
"ENTRY NOT PRESENT"

f.WU

*

Aoe
LI)A
SZA
JMP
LOA

.+7
B,I

LOB LTEMP+5

06412135
044361

0712112144

FORMAT ERROR
COMMA?
YES
NO, ERROR

JMP DESIL.

751026 021201d

75027
75027
75031d
7512131
751d32
7511.133
75034
15035
70036
7512137
75037

GET THE 10 CODE

OfS2
DE SEC
LOB DEsFC
JMP OEslL
EQU •
alA KILO
ADB.• +4
LDA B,I
SSA,RSS
JMP DES3

GET DRUM ADORES8
ZEHO?
NO

"ENTRY NOT SANtTlflEO"

SAVE ORUM ADDRESS
GEl L.~N(,TH
FIL.E?
YES

"'057
IOkl58
0059
(cH660
0061
0062
~063

(01064
~"'o~

001121
016 1121
001121
kl03004
07004e
(044346
002400
170001
7~054 017226
75055 (027160

0066
0867.
101068 75{c}56
10069 75056
~070
75057
75060
~"'71
101072 751661
13(073 70l(}62
16Ct:'l74 75063
~075
75Ct:'l64
0L176 75065
0077 75l(}66
007S.
''''J79 * CHECK
111188*
16061 75!()67
151d70
(01682 751671
7~"72

"'083

751373

0084

75~74

0k1b~

75"'75
7 50 7 6
75VJ77
75100
75hl1
75 102

1608 6
16k187
"'068
"'1669
161690
(;)091.
009 2
101693
{c}W:)94
~095

0096
0097
"'098
k1099
01(00
0101
(0102
01°3
0104
0105
0106.
0107.-

relles.
0109

ARS,ARS
ARS,ARS
ARS,ARS
CMA,INA
STA KlI..Of>

75044
751645
75046
75047
75050
75051
75002
75053

ADB ,-4

CLA
STA 6,1
JaB DESOW
JMP L>ES7
DlS3

001020
0701645
002400
070215
1644347
06~H1Ct:'l1

114212
102"'30
1102031

I..OA
STA
AR8
STA
LOA

TO SECTORS

ORIJM

ADDREss
GO WHITE OUT DIRECTORY

CONVtRT FIL.E
I..~NGTH TO SE~lORS
S~T UP

FOR EARLY
SEEK

IN VSl
SAVt: DISC

OEseT

FUSS,I
DE8RA
JSB DRUML
Jse SlCKP,l

L.OB u~ 19 2

EQU.
LOA B,1

INa
CpA DEsLB

HSS

75110 027114
1600~1
050~41

75113 027176

OlS5

75114 IrH~601r'J4
75115 0J4037
75116 [627104

AO()RESS

M20ftJld
WOHD

Loa

751~4 160VJ01
75H'o ~06004
75106 050040
75107 "'tl2001

JMP DES5
LOA th 1
CPA DESl..s+l
JMP DESIL",2
£:QU.
INa

COUNl
Otr ENTRIE3
HEAD
FUSS
TABL.E
.> flHST t:.NTRY

FIRST WORD MATCH

vt.s

NO

SEcOMO WORD MATCH?
yEs, (';AN'T OESECRATE

ISZ OEseT

NO
FINISHED TA81..E1

JMP Of-SA

NU

UPDATE:. DIRECTORY

75117 1IJ6403ts

ltRO

DST DESLt;

DtS4

7~114

FIL.~

OLD 6,1

10 42°10
100001
1104400
1o:'J00040
060732
07007:2
k1kJ1100
07°037
10054'"
067322
1316231
11 6 015

75103 10651d02

75111
75112

PHOCIRAM LENGTH

HLT J1e

FUSS TA8Ll fOR

lblld4

EQU *
AI.S,AL.S
STA KIL.OF
CI..A
STA MWORO
ADb ,.3
LOA B
JSB OISCA,1
HI..T 30B

NO, (,;ONVERT

LOB

LTE"'~+5

PAGE 0685 #58
0110
0111

011 2
011 3
liH14
0115
10116
~117

011d
0119

IrH20
0121
0122

0123.
ItH24.
11125.
01 2 6
0127
012d
IcH2~

013rl*
0131
0132
0133
0134
16135
kSl36
IU37
L-;113ij
0139
1d140
0141
0142
0143
10144
0145.
~146 ..
IrU4I7*

75120
75121
75122
75123
75124
75125
75126
75127
751310
75131
75132
75133
7 5 134
75135
75136

DESECRATE

104400
0000410
017226
060045
0017010
001 0 20
003004
070072
070215

75137
75140
7b141
75142

1060044
064566
016231
027155

75143
7!)t44
75145
75146
75147
75150
75151
75152
75153
75154
75155
75155
75156
75157

1063321
064562
114212
02714(;

DST DESL.S

AODRESS

JSB DESOw
LOA KIL.OF
AL.F
ALS,AI..S
CMA,INA
STA Wo~O
STA MWORD

WRITE OUT
CONVERT

LOA IOLD

READ

L.Oa LI~Ol
JSB DRUMl.
JMP OE86

1~2{6Jl

060214
002020
027150
00~003

021160

063256
064333
027200

SECtORS
TO wORD::;

OES6

LOA OESL.P
LOa L.IBD
JS~ OISCA,l
JMP h·1
HLT 31t;
LOA MBUSY
SSA
JMp •• 2
SZA,RSS
JMP DES7
f.QU.
l.OA IJESEB
LOB OESfS
JMP OES1L.

FU.ES

WRITE
FILE
TO DISC
WAIT fO~ HEADY

WAIT FOR
TRANSF~R

toMpL.ErE
SUCCESSFUL?
yES
"6AO TRASFER, fILE DESTROYED"

RETURN SPACE TO DRUM ADT
DES7

7~160

75160 060113
7 5161 "'7 00 72

75162 06k1112
75163 064566
75164 01623,

75r
,

0100*
0156
0157*
101513
L-;1159
0160
0161
0102

SAVE DISC

COP FILE TO DISC

~149

",54

ZERO DRUM
AODRESS

10~JlC)01

~148

0150
0151
L-;1152
0153

AOb ,+7
CLA
STA 8,1
INB
OL.D B,I

044361
0102400
170001
006004
1164200

1160~~

EQU •
LIJA ADLEN
STA WORD
L.DA ADI..OC

LOB LIBOI
JSB DRUML.

Jse SlCKP,1

A01 TU
CORE

'

75166 116012

JSe RSFSP,l

RETURN SPACE TO AoT

75167
75170
75171
75172
75173

LOA AOLEN
5TA WORD
LOA AULoe

WRITf

06011J

070072
060112
064562
010231

Loe

L.l~O

JSB DRUML

AD r TO

DRUM

PAGE
~lo3

~686

#06

Ot:.Sf.(,;~ATE

75174 116\()1f)

JSB SICI\P,l

7 5 17 0 02 6267

JMP LEND

ft)164*
~165

lU66*
kl167
"'168
ItU69
IcH70
0171
kl172
!CH73
1d174
fd175
~176

!d177
fd178
fd179
Idl80
Idl 8 l
1&11 8 2

75176
75177
75200
752"''''
75201
7 5 202
75203
75204
75205
75206
75207
75211d
75211
70212
75 213
75214

063312
rtJ64344
070051d
060305
07 00 51
07403it1

016251
060214
1002020
027205

LOA OESED
1.08 DESr-D
DUilL [QU *
STA MOVES
L.OA Tl5tH
STA MOVED
STB LH.MP

JSB

MOVE~

LeA MBUSY
SSA
JMP •• 2
LOA L.TEMI"
AL.S
CHA,INA
L.OB T3581
JMP LENO"'2

0oId0;)"

01d1000
003004
06431,HS
~26271

"fIL.E IN USf
MOVE ERROR
Mf.SSAGt. TO
TlY BUFFER
WAIT FOR
ADVANCE SEEK
TO CoMPLETE

0183.

0184* GET TWO CHARACTERS OF NAME

lues.

0186

1d187
0168
kl189
"'190
liU91
kl1 9 2
0193
k:l1g4
0195*
0196*

75215
75216
15217
7522!d
75221
75222
75223
75 22 4
75225

.u.el."
114572

DEIIP NOP

Ja8 T35eH,I
LDA , ... 408
AI.F,AL.fo
sTA DEsL.A
JSB TJ5CH,I
LeA , •• 08
lOR DESI..A
JMP OESIP,l

060412
0kl1727
070036
114572
000412
03003f>
127215

GET NEXT CHARACTER
RETuRN BL.ANKS AT END
TO LEfT HALf
GET NEXT ~HARACTER
RETURN BLAKS AT END

WRITE OUT DIRECTORY

IU91.

kl198
"'199
0200
10201
",202
kl203
"'204
10205
1cl206
{fJ207
0206
02",9
0210
"'211
11212*
0213
0214
"'215

75226
75227
75230
75231
75232
75233
75234
75235
75236
75237
75240
75241
75242
75243

0001d0VJ
0641d34
1610001
070012
",443 6 0
1601001
064562
016231
0VJ2001
127226
060"'34
164000
040360
116016

DESpW NOP
L°tj LTEMP",,,,
LOA B,I
STA WORD

75244
75245
75246
75247
75251(}

~75245

0105105
047124
051131
0210116

OESfA OfF *+1

ADe .+6

LOA 1;,1
LOB LISO
JSB DRUML

Rse

JMP
LeA
LOB
ADA
JSB

DESDw,I

l..TEMP.4
A,l
.... 6
sAI,.Vp,1

ORUM ADDRESS
CORE ADDRESS
wIUTt:.. IT OUT
ERROR
.L.ENGTH Of TRACK
.>

D~UM

AOD~Ess

ATTEMPT To SALVAGE

otT

510~

ASC

8,NTRY NOl PRESENT

PAGE fd687 #56

0216
1a217
02H~

0219

0220
O221
O222
10223

75251
75252
15253
75254
75255
00341
75256
75257
75260
75261
75262
75263
75264
75265
75266
75267
75270
75271
75272
75273
75274
75275
00333
75276
75277
75300
75lld1
15302
75303
75304
75305

Dt;SECRATE

O47524
020120
o:>1 HH5
~51505

047124
1a75257

1605102
04~504

OESFA EQU •• •• DE8EA.1
DESES DEF *+1
OCT 5102
ASC 14,AO TRANSFER, FILE DESTROyEO

020124
klS110!

04712J
043105
051054
020106
044514
042444'"
042Ul5
051524
051U7
054505
042040
075277
0",5111,5
047124
051131
020116
047524
020123

··1

DESFS EQU .-*+DESt.S·1
DESEt OEF
OCT 5105
ASC 10,NTRY NOT SANCTIFIED

04051~

75306 041524

0224
0225
0226
0227

k'l22S

0229.

0230
"231
0232.
0233
0234
1d235
0236

-

-

75307
75310
75311
00337
75312
75313
75314
75315
75316
75317
75320
00344

044506
044505
042040
16 75 313
005106
044514
04:i4410
044516
020125

DESFC EQU .-*+0£.8EC+l
OESEO OEF
OCT eU~6
ASC 5, !I.. E IN USE

··1

05150~

OESFO EQU ,·*+OE8EO+1

75321 fd00040
75322 121230

OEBLP DEF DESlt'
DEBRA OEF LIBUS+8192,1

0000$6
00037
00040
7f>J2J

Of-SLA EQU LTEMP+6
DESCT EQU LTf.MP+7
DEaL.B f.QU Lrf.MP.8
.Pts EQU *

i

USEl) AL.sO

PAGE 0666 #58
~238.
~239*
~240.

PURGE

THE PURGE COMMAND MAKES IT POSSl~LETO HEMUvE fHOM THE LIBRARY
PROGRAMS ~HICH HAVl NOT BEEN ACCESSED ~OR SOME PERIOD OF TIME,
THE FORMAT ~OR THE COMMANO IS AS FOLlO~SJ

02~1·

PURGE.DAy/yeAR

~242*

024J.
~244.

WHERE DAY IS AN INTEGER FROM 1 TO J66 AND YEAH IS AN I~TEGER FROM
TO 99, ALL PROGRAMS OR FILES WHICH HAVE NOT BEEN ACCESSED SlNCl
0246* THE SPECIFIED DATE ARE DELETED fROM THE Ll~RARY,
~245.

~

0247.
~2~8.
~249*

PURGE WILL REFUS~ TO OPERATl IF THE SPlCIFIED DATE IS bEYOND
TODAY'S DATE,

02be.

0252
i425J

750130
75~00

75001
1r:1254
0255
0256
10257
0258
fd259
0260
14261
16262
1d263
16264
10265
13266
10267
1d266
0269
1.12710
13271
"'272
0273
10274
0275.
10270.
~277*

7~002

751d03
75004
75005
75 00 6
7~007

75010
15011
75°12
75"'13
7~014

75015
75016
751017
75021d
751.121
751022
751023
751d24
751025
75026
751.127
7503kl
751031

OST LTEMP

HellO PROGRAM

PREVE~T

FRUM

~EIN"

f'URGt,D.

OLD PURHE+1
OST LTEMP+2

10440~

01i)(6032
116005
01d2001
027 0 32
016076
06403:5
044357
17141r'1r' 1
060034
10410360
07 010 ,,7
161016010
1d64562
016231
01321001
02713:32
064t172
1000037
116k11b

JSB DLOKP'l
RSS
JMP PUR2
JSB DATE
LDB LTEMP+e
Aoa ,+5
srA 1,1
LOA LTEMP+4
ADA ,+6
STA PURP
LOA 0,1
LDt$ LISD
JSB DRUMI.,.
HSS
JMP PUR2
lOB WORD
LOA PUHP
Jsa SALVP,l

SEARCH DIRECTURY FOR ENTRY

INTERPRlT DATE,

102 78
1.1279
1r:1281d
1(j281
0282

101 7°7 4
750J3 177221
75034 kie;)0431
75035 006003

~283

751d37 0740416
751d4~ 1d171(j74
751041 177634
751042 L150J67

0284
10285
0286

ORG LIBRA
OLD PZ999

10 42 0 k'
075460
10 4400
000030
104200
075462

7~032

750~H>

1027131

PUR2

JSB PURNO
OEC .. 367
c"' •• +57t;
SZB,RSS
JMP PURl
STB PUROT
JSB PURNO
DEC -100
CPA ,+10B

GET DAY Ot< YEAR,
TEST fOR NONZERO AND SL.ASH fOL'"

L.OWING.

PARAMETER ERROR,
SAVE DATE,
NOW ~ET THE YEAR,
CHE~~

FOR

RET~R~

FOLLOWING,

0287
0288

0269*

02gI(J
0291
0292
0293
0294
0295
0296
0297
0298
1it299.
0300*
0301*
0302*

0303*

0304
0305
0306
0307
0308
030 9
0310.
0311
03 1 2
0313
0314
0315
0316
fa317
0318
"JI9.
0320*
0J21.
0322
",323
0324
0325
0326
0327
032ij
0329
0330
0331
1/1332
0333
0334
0335
0336
0337
fd338
0339
0340.

0341.

75043 002401
75044 027131

CL.A,RSS
JMP PURl

75045
75046
75047
75050
75051
75052
75053
75054
75056

RRR 7
lOR PUROT
STA pUROT

101107
030040
070040
016076
064040
007104
040001
002041
027131

Jse OATE

LOB PURor
CMB,CLE,INB
AOA 1
SEZ,RSS
JMP PURl

MERiE YEAR AND DATE.
NOW GET lOoAY'S DATE.
MAKE SURE SPECIfIED DATE IS
.u,lODAY'S lJATE

THE NEXT STEP IS TO GUARANTEE THAT WE pON'T KILL ANY FILES CUR~
RENTLY IN USE, TO DO THIS WE ~ILL CHECK THAT THE FUSS TABLE IS
EMPTY.
75056
75057
75060
75061
75062
75063
75fd6 4
75065
75066
75067
75070
75071
75072
75073

LOA
STA
LOA
LOB
JSB
JSB

060732
07007~
1605~0

064566
016231
11 6 015
06 4 562
054536
027171
160001

PUR4

002"02
027144
0060,,41
027065

ROUTINE TO INPUT A

75074

00000~

75075
75076
75077
75100

017116
026275
074041
147074
rtH:J6021
027131
01711t>
02 7 113
060041
001222

7f>101

751"'2
75103
751°4
75105
75106
75107 ~40041
75110 00120fd
75111 044000
75112 027077
75113 0~4041
75114 037074
75115 1~7074

LOB
CPS
JMP
LOA
SlA
JMP
INB
JMP

M2e00

WORD
FUSS,I
LIBDI
DRUML
SlCKP,l

LIBO
L1024
PUR3
1,1

INPUT fUSS
TABt.f.

DONE?
YES.

PUR7
PUR4

NUM~ER

PURNO NUP
JSB PURO!;
JMP L."-RER
pURNl STB pURN
AD~ PURNO,1
SSS,RSS
JMP PURl
JSB PURDG
JMP PURN2
LOA PURN
RAL.,RAL
ADA PUHN
RAL
ADB 0
JMP PUHNl
PURN2 LOB PURN
ISZ PURNO
JMP PURNO,1

GET A 01'11T
ILL.EGAL. IF NONE.
SAVE pARTIAL RESULT,
CHECK fOR OVERFL.OW,
c.ET NEXT DIGIT.
END OF NUMBER.
MULTIPLY ·PRtVIOUS RESULT BY 10.

ADO IN NEW VALUE
1.00P

RETUHN NO.

PAGE 14691c' #58
~342

10343
0344
0345
0346
0J47
11'348
10349
10350
0351
14 352
1tl353*
0354",
"'355.
0356
1(J357
10358

"'359

PU~GE

75116 ~lthHI)"HO
75117 016020
7512~ 127116
75121 0641Ofd0
75122 k)44316
75123 006~21
75124 12711(\
75125 ~44364
7:)126 0106021
75127 kJ37116
751310 127116

PUROG NOP
J~8

TJ5CQ

JMp PUROG,l
L.oe 0
ADB M72t$

GET DECIMAL 01&11
Gt.T CHAR,
NONE THERE,

DO DIGIT TEST,

sse,Rss

JMP PUROG,I
Ace ,+10
SSB,RSS
ISZ PUROG
JMP PUROc.;,l

F:.RROR PRINT,
75131
75132
75133
75134
75135
75136
75137
751413
75141

064330
017155
0105111
046114
042507

PURl

L.oe
JS8
OCT
ASC

PURER
5111
8,LLEGAL PARAMETER

LOB
JSS
oCT
ASC

.-11
PURER
5102
6,USY f'U,ES

1"'18

04051~

1Q20121O
1040522
0410515

7fU4a ... 2&2"

10360
10361
",362
10363

0364
10365

0366
0367
10368
0369
~370

(()371
fd372
~J73

IOJ74
0375
0376.

75143
75 144
75145
75146
75147
751513
75151
75152
15153
75154
75155
75156
75157
75160
75161
70162
75163
75164
75165
75166
75167
701 70

1342522
06433 7
{"i7lS!)
005102
052523
054440
043111
046101:)
ItltH44wJ
",201040
01tl0000
1074 0 4 1
1Q60305
070051
063155
070050
005100
016 2 tV

PUHER NOP
518 PURN

LOA
STA
LDA
STA

~R8

LOA PURN
CMA,INA
L08 T315S1
JfIIP L.ENO.2

~600"1

SEA~CH

TJ5 Bl
MOVED
PURER
,.,OVES

JSS MOVEW

003004
fd64J"'b
fd26271

~J77*

I(lJ7ij*

PUR7

DIRECTORY

kJ319.

II1J8fd
0381
0J82
1Q383
0384

75 171
75171
75172
75173
7 5 17 4

PURJ
002400
070031
066t102

07 4 fOJJ

EQU *

CLA

STA PURcr
LUB L8192
STB PURTP

PAGE
~385

0386
0387
0388
1d389
0390
0391
0392
0393
0394
0395
11'396
0397
0398
0399
"400
,,401
04rd2
0403
0404
0405
04136
0407
0408
0409
0410
1t)411
0412
0413
0414
0415
0416
1d417
0418
/0419

042.,
0421
0422
.,423
0424
0425
0426
1tt427
0428
0429
04313
043 1
",432
10433
0434
0435
1d436
11'437
13438
.,439

~691

#58

PURGE.

75175 067452
75176
75176 0740J2
75177 16 000 1
752~td 11'02002
75201 02721td
752"'2
75202 044361
75 203 01)745;)
75204 0020ill
75205 027176
75206 017362
752"'7 026267
7521VJ

75210
75211
7 5 212
75213
15214
75215
75216
75217
75220
15221
75222
75223
75224
75224
75225
75226
75227
75230
75231
75232
75233
75234
75 23 5
75236
75237
752413
75241
75242
75243
75244
15245
75246
75247
75250
75251
71)252
75253
75254
75255
75256
75257

070072
0i3004
040562
01 0 036
1344360
160001
1364566
016231
116ru7
064562
074050
07 4 051
074037
",44357
060040
0133104
14 iC1001
002040
021333
0441345
160001
170033
044360
034033
160001
002021
027246
001727
030762
003004
170033
034 0 33
1(144347
160001
170033
034033
006004
160001
170033
034033

LDti
PURll EwU
SIB
LOA
SZA
JMP

PUR12 EQU
AOB
CPB
R5S
JMP
JSB
JMp

PUDIR

•PURDI

FIRST OIR!CTORY

TRAC~

B,l

PUR1J

•,+7

PURDU

PURl!
PURfX
LEND
PUR13 E.~U •
STA WORD
CMA,INA
ADA LlSO
STA PURNO
ADS ,+6
L.OA B,l
L.OS L.IBDI
JSB ORUML.
JSB DEAOP,I
LOB LISO
aTe MOVES
aTa MOVEO
PUR15 EQU
8TB PURP
ADS ,+5
LOA PURUT
CMA,eL.E,INA
AOA B,I
SEZ
JMP Pu R16
ADB ,.5
L.OA tSl 1
STA PURTP,l
ADS ,+11
ISZ PlJFI
JSB DRUMI.
READ AOT
JSB OEAOP,l
lOB L.81~2
Sle MOVES
8Ta MOVED
AOB ,+4
PURF1 EQU •
STB PURTP
LOA 8,1
GET DRUM AD~REss
SZA,RS8
ZERO?
JMP PURF2
YES
STA KIL.O
NO, SAVE IT
AD~ ,-J
L.OA ~,I
AL.s,AL.S
8TA Kll.Of
L.DB MOVES
ST8 PURES
L.OB MOVED
8rB PURfD

J88 RSFSP,l
L.OB pUREs
ste MOVES
Loa PURi::L>
STB MOVED
PURF2 EQU •
LOB , .. 4
JSB MOVE.W

SAVi

j

Of

8ECTo~S

RETURN SPACE TO ADT

MOVE TABLE
TO DELETE

PAGE 16094 .58
0550
1ci551
~552

16553
16554
0555
0556
0557
055S
0559
0560
0561
(0562
0563
1()564
0565

PURGE

lSZ MOVES
L.DB PURTP
AOe ,+5
ISZ PUReT
JMP PURfl
L.OA AOLt:.N
STA WORD
LDA ADL.OC
L.OB LIBL>
JS8 ORUML.
JSts OEADP,l
JaB PURuD,l
JS8 Pu~ul,l
L.OB L8192
5T8 PURTP
JMP PURFX,l

75426 0340514
75427 064033
7~43Vj 1644357
7543 1 034 0 J1
75432 027402
75433 060113
75434 1d7007~
75435 060112
75436 064562
75437 1016231
75440 11600'
75441 117456
7:)442 117457
75443 0651002
75444 074033
75445 127362

U~UM AOORESS
SUMP
POINTER
TABI..f. DONE 'I
NO

YES

~RITf.

RIiTURN

R£TU~N

OUT ADT
SPAC~ TO DIsC AOT
SPACE TO 101'

1It566.

14567
(do6S
0569
(0570
0571
10572
0~7J

(0574
16575
"'576
0577
1d57S
0579
rJ580
1r1581
1d582
0583
1d584
0585
(0586

{6587

000310
000J1
00",32
1d00J3

160036
001637
00fd416
16"'041
75446
75447
75451ll
75451
75452
7545J
75454
75455
75456
75457
7546 1r1
75461
75462
75463
75464

00000'"
000000
1d0000k1
00011;100
030011;1'"
03106~

ft)1()06Jl

160010
1r172612
rJ72727
065747
~44105

046114
047441r1

PURTC EQV
~URCT EQU
PURDI EQU
PU~TP EQU
PUf01 EQU *
JSB SPUOG
JS~

.,A~~

SPI)~K

JSB TJ5CH,l
JMP ~FRER
CpA .+54B

ZERO OUT SPEED INDICA10R,
ZERO OUT CHAR.SIZE INDICATOR,
GET 1ST DIGIT Of SPEEO.
CR. ERROR,
NO CRt 01(;IT1
YES, COMPUTE SPEED

l~DICATOR,

GET NEXT CHAR,
CR. f.RROR,
NO CR, COMMA?

HSS

JMP SP001
L.OA SPONR
ADA BAUOL.
SSA
JMP LfRtR
L.L>A SPDNR
ADA BAUOH
SSA,RSS
JMP LfRER
JSB
JMP
CpA
HSS
JMP
JS8
JMP
CPA

TJ5CH,I
~FRt.R

,+528

SPD14
T35CI-I,1
l.FRER
,+548

JMP SPDIc13

JMP
SPI)!4 EQU
JSB
JSt;
JSr:;
JMP
CpA

L.FRER

*

SPOI)(J
SPOCL.
TJ5CH,I
LFRER
,+548

NO,
YES, CHECK BAUO RATE.
LEss THAN 581

yEs. ERROR'

GREA1ER THAN 27781
YES, ERROR1
NU. GET NEXT 'HAR,
CR. ERROR,
NO 'H, ASTEIUK?
NO.
YES, GET NEXT CHAR,
CR, ERROR,
NO CH, COMMA?
YEs.
NO. t;;RROHI
OIGIT1
Yt.S, COMPUTE CHAR. SIlE.
GET NEXT CHAR.
CRt ERROR,
NO Ctot, COMMAl

1il201
02 0 2
02"3
0204
0205
0206
0207
0208
0209
0210
0211
0212
0213
0214
0215
0216
0217
021d
0219
0220
0221
0222
0223
0224
0225
0226
0 22 7
0228*
0229
0230
0231
0232
0233
0234
0235
0236
0237
0238
02 39
0240
82.1*
0242
0243
~244

0245
0246
0247
0248
0249
0250
0251
0252
0253
0254
02 55

75051
7512152
75,,53
75054
75055
75056
75057
75060
75061
75061
75062
75063
75064
75060
75065
75066
75066
75067
75070
75071
75072
75073
75074
75074
75075
7511176

Ras

0rcJ2001
027044
06"'k136
050354
027061
05035J
002001
02627fj
114572
026275
053351
027114
017176
01725;(
1l457~

027074
050425
002001
027065

75~77

060031
04 00 3 2
11102021
026275

75100
75101
75102
75 103
75104
7511d5
75106
75107
7t)11 1d
75111
75112
75113

060031
017262
060031
017200
060055
050367
027216
002400
1117 00 31
114572
027216
027065

75114
75114
75115
75116
75117
75120
75121
75122
75123
75124
75125
75126
75127
751Jk1

114572
026275
053352
002001
026275
114572
026275
053352
002001
02627e
114572
002001
02 6 2 75

JMP
LOA
CpA
JMP
CPA
RSS
JMP

SPD03 EQU
JIB
JMP
CPA
JMP
SPD16 EQU
JSB
SP017 EQU
JSB
JSB
JMP
CPA
RIS
JMP
SP04 EQU
LOA

SP014
SPOSZ
,+2
SP00J
.+1

LFRER
•
TJ5CH,1

LFRER
SP.A
SP09

•

SPDOG

•

SPOSP
T35tH,I
SP04
,+548
SP016

•
SPOTM

ADA SPDCN

SP~ED

INDICATOR,

-21
YES,
NO, -11
YES,
NO, t:.RROR'
GET NE:.XT CHAR,
CR, ERROR,
NO CR, tA?

yES,

NO. DIGIT1

YES, COMPUTE PORT NR,
GET NEXT t;HAR.
CR,
NO CR, CaMMAl
YES,
NO,
CHECK L.IMIT,

SSA,RSS
JMP LFRER

GREA1E:.R THAN L.iMIT?
YES, ERROR'

LOA SPDTM

NO, PORT LOGGED ON?

LOA SPDTM

NO, SET PORT. INTO TAijLE.

JaB SPOll

JiB SPSET

LOA
CPA
JMP
CL.A
STA
JSB
JMP
JMP
SPD9

NO,
CHECK

EQU
JSB
JMP
CPA
RSI
JMP
JSB
JMP
CPA
RSa
JMP

,,+156
SP01"

PICK UP L.AST CHAR,
wAS IT A CR1
YES, CONfIGURE PORTCS).
NO,

SPDTM
T35CH,1
SP010
SPD16

GET NExT CHAR,
CR,
NO CR.

TJ51..C

'T35CH,1
*
LFRt:.R
SP,L.

LFRER
T:.J5<;H,1
LFRER
SP,L.

L.FRER
Jae T35CH,1

RIS

JMP LFRf,R

GET NEXT CHAR,
CR. ERROR'
NO CR •• L?
NO, ERROR,
YES. GET NEXT CHAR.
cR, ERROR'
NO CR, -1..1
NO, ERROR,
YEa. GfT NEXT CHAR.
CR, START CONFIGURATIUN,
NO CR, ERROR'

PAGE
~256

~701

#59

SPEED

0~2400

0261

75131
75132
75133
75133
75134
75135

0262

75136 027142

0263

75137
75140
75141
76142
75142
75143

0257
0258

0259
02 6 0

0264
0265
0266
0267

16268
~269

0270

0271
0272
02 7 3
0274

0275
16276

070035
017262
034032
002001
034035
060035

027133
060171
07ft032

75144 "'0240"

75145 070035
75146
75146 01715fi
75147 034032
75150 002001
75151 026267
75152 034"'35
75 15 3 0600 3 5
75154 027146

0277
0278
16279*
0280 75155
0281 75155
02 8 2 75156
028 3 7 5 1 5 7
~284
75160
0285 75161
0286 75162
0287 75163
0288 75164
0289 15165
0290 7~)166
0291 75167
13 2 9 2 7517'"
0293 75171
0294 75172
"'295 75173
"'296 75174
0297 75175

000000
07(0033
06677 3
0kH 727

030001

064036
005722

0l00"'.1
114600
"'60033
066772
"'01727
1.13 000 1

064030
030001

114501')
127155

0303
16304
13305

0306

",307

LOA
JMP
SP019 EfIlU
LOA
STA
CLA
STA
SP06 ECilU
JSB
ISl
RSS
JMP
lSZ
LOA
JMP

0309

SP019

SPOOC
SPOt8
•
NPORT
SPOCN
SPOOC

*

SPSET ECilU
NOP

002021

SET UP FOR PORT_d0.

DONE'
NOT DONt.,

75206
75206 000001.1

04I6J1()

SET UP COUNTER.

LEND
SPOOC
SPOOC
SP06

026275
04fjl64
002020
75204 020275
752",5 127176

000000

PORTS CHECKED,
BUMP PORT NUMBER,

PORT,
BUMP COUNTER,

SPOOG EfIlU •
NOP
ADA M72B
SSA,RSS
JMP LFRER
AOA .+10
SSA
JMP LFRER
JMP SPODG,I

75176
75176
75177
75200
752"'1
75202
75203

PORT L.OGGEO ON?
NO, BUMP COUNTER,

SPD7
SPDCN

EI.ilU.
NOP
SlA SPDPO
L.OB CHS
ALF,ALF
lOR B
LOB SPOSZ
8L.F,RBL.
lOR B
JSB S14SC,1
LOA SPDPO
LOB SPE.
AL.F,AL.F
lOR B
LOB SPONfot
lOR B
JSB S14SC,1
JMP SP07,l

0308*

",310

SPOOC
.,
SPOil
SPOCN

ISZ SPOOC

SP07

fl29ts*

0299
0300
0301
0302

Cl,.A
STA
SP018 EQU
JSB
ISZ
RSS
JMP

*

CON"I~URE

TREAT NEXT POHT,
POHT CONFIGURATION SUBROUTINE.
SAVE PORT Nfo(,
B- CHAR, SIZE OPCODE,
ROTATE. PORT NR,
MERGE PORT NR,
B~ CHAR, SIZE. INOICATOR.
ROTATE INTO POSlTION,
MER'E CHAR, SIZE.
TeL.L 2114,
AI!IPORT NR,
S- SPEED OPCOUE.
ROTAEE PORT NR,
MERGE PORT NR,
B- SPEED INDICATOR.
MERGI:. SpEt:O,
TELL 2114,
HETURN,

DETERMINES IF CHAR, IS A DIGIT,
DIGIT?
NO. ERROR?
MAY 8E,
NOT A OI~IT, ERROR'
OIGIT, UK, EXITl

SET PORT NR. INTO TABLE,

PAGE 0702 *59
0311
0312
~J13

0314
0315
0316
0J17
i318.
0319
",320
0321
0322
0323
0324
0325
0326
0327
03as
0329
0330
0331
0332
51333.

7!>21/17
7f5210
7f5211
7f5212
75213
75214
75215
75216
75216
75217
75220
75221
75222
75223
75223
75224
75225
75226
75227
75230
75231

SPE~D

0641/134
057346
026275
17 00 01
034035
034034
127206
060031:'
003004
070035
063305
1d70034
160034
017155
034035
002001
026267
034034
027223

LOB
CPS
JMP
STA
lSl
lSl
J~1P

TABPN
PEND
L.FRER

B,I

SPDO~

TASPN
SPSET,l

SP010 EQU •
LOA spooe
CMA,INA
STA sPl)oe
L.OA pTABL
STA TAe~N
SP013 E.QU
LOA TABPN,I
JSB SP07
ISZ SPOOC
RSS
JMP L.END
lSZ TABPN
JMP SPOll

•

GET POINT~R,
TABLE LIMIT E~~EEDE01
YES, ERROR!
NO, 8ET PORT NR, INtO TABLE.
BUMP COUNTE~.
BUMP POINTER,
EXIT,
SET Up COUNTER FOR NUMBER
OF PORTS
TO SE CONFIGUR~O.
SET Up TA~Lt pOINTER,
GET PORT NR.
cON'IGURE PORT.
BUMP COUNTER.
DaNE,
NOT VET, SUMP POINTEH,
GO BACK,

033 ...

0335
0336
O337
033S
0339
0340
0341
1342
83043.
8344.
16345
0346
0347
0346
0349
0350
0351
16352
fl353.
135 ••
16355
16356
0357
0356
0359
0J60

0361
0362

752J2
75232
75 2 33
7!>234
75235

00000O
07 0 °33
060030
10020O
1!>236 000364
75237 04012133
7 5 240 07°030
702"1 127232
75242
75242
75 2 43
75244
75245
75246
75247
75250
75251
75252
75252
75253
75254
75255
75256
75257
7 5 260
75261

0000016
07 016 33
~60036

1002015
00.,364
040033
07 0163 6
127242

000000
16 7"' 16 33
06"''''31
10020O
1600364
td4160J;'
167° 031
127252

SPOCK EQU
NOP
STA
LOA
..,PY

•
SPOPO
SPONR

SAVE (A),
uPDATE

,+HJ

ADA SPOPO
STA SPONR
Jf4P &PO,K,l
SPDCl. f:.QU •
NOP
STA SPDPO
LOA SPOSZ
MPY ,+10
AOA SPOPO
STA SPDSZ
JMP SPDCL,l
SPOSP EQU •
NOP
STA SPOPO
LOA SPOTM
MPY ,+11.1
ADA SPOPO
SlA sporM
JMP SPOSP,l

SPEED
INDICATOR.

SAVE (Al,
uPDATE
CHAR,
SIzE
INDICATOR,

SAVi (Al,
uPDATE
PORT
NUM8t.H,

PAGE 0704 #59

".."".
0401*
0402*
0403.
04",4*

BREAK

THIS COMMAN~ IS USED TO ENAe~~ THE ABORT CAPAalLITY WITH THE ~BREAK" KEY OESPITE THE FACT
THAT THE ABORT CAPABILITY WAS DISABLED BY EV~.
LUATlON OF ThE SRK(0) FUNCTION.

14,,0.
0406*

,,'*

THE FORMAT OF THIS OPERATORS COMMAND 181

a~406*
..

"""9.
I"UI.
0411
0412
0413
",414
"'415
0416
0417
0416
0419
0420
let421
0422
0423
0424
0425
0426
0427
0426
0429
0430
let431

1i43a

0433
0434
0435
043 6
0437
0436
0439

75000
75000
15001
75002
75003
15004
75005
7512106
75007
75010
75011
75012
75013
75014
15015
75015
75016
75017

002400
070031
114572
026275
017061
017071
114572
027015
011061
IH7071
114572
002001
1026275

060031
064177
040001
7~020 002021
75021 026275
75022 060031
75.23 uu,a ...
750a4 000375
75025 040546
75026 040356
750a7 160000
75030 002003
75031 027043
75032 060031
75033 100200
75034 00121375
75~35 040546
75036 064000
75037 16000121
75041r?1 03044()
75041 170001
75042 02626;

0440
0441
0442
0443
0444
0445
1144 0.
(1)447 75043
75043
044~
0449 75044
0450 75045
0451 7!)046
0452 75047

060J7tt
067046
026271
075047
005125

ORG
'LA
STA
JSB
JMP
JSe
JS8
JSB
JMP
JS8
JS8
JSB

L.IBRA
BRKPN
TJ5CH,1
~FRER

aRKOG
aRKSP
T35C,",,1
BREKl
aRKOG
aRKSP
Tlec,""I

RSS

CL.EAR STORAliE OF
PORT NR,
GET 1ST DIGIT OF PORT NR.
CR, ~RRQR1
NO CR, DIGIT?
YES. COMPUTE PORT NR,
GET NEXT CHAR.
CRt
.
NO CRt 01.IT'I
YES. 'OMPUTE PORT NR,
(fET NEXT 'HAR,
CRt
NO CRt ERRO:1'

JMP LFRER
8REK1 EQU •
LOA BRKPN
CHECK l.IMIT,
Loe NPORT
AOA a
SSA,RSS
PORT NR. > AVAl~AB~E PORTS?
JMP ~FR~R
VEl, ERROR!
.
~OA BRKPN
NO, CHECK IF USER IS LOGGED ON.
MPY ,+TTYW1-TTY"
AOA 0TTye
A•• ?FLAG
AOA .+'110
A•• 110
LOA A,1
A_ 710
SZA,RSS
USER LOGG~O ON7
JMP BRtK2
NO, PRINT ERROR MESSAGE,
LOA BRKPN
YES, SET ,Bf~G BIT,
MPY ,+TTyel~TTY0B
ADA
Loa
LOA
lOR
STA
JMP
8Hf,K2 EQU
LDA
LOB
JMP
BIo(EKJ DEF
OCT

DTTVB
A
A,1
CSFLG
8,1
LEND
•
,+a~

eREK3
LENO+2
*+1
5125

A•• 1FLAi
slit> '/FLAG
A. 1f!..AG
SET teFL.G BIT,
~ONE,

OUTPUT ERROR MESSAGE,

PAGE 0705
0453

.5~

BREAK

75050
75051
75052
75053
75054
15055
75056
75057
750613

0515165
051040
047117
052040
046117
043507
042604
020117
0470410

75061
75061
751d62
75063
75064
75065
75066
75067
75070

0013000
040316
002021
026276
040364
002020
026275
127061

Ase 9,SER NOT LOGGED ON

16"~".

0455.
0456
0457
1d45ij
0459
04613
0461
0462
0463
0464
0465.
0466.
",467
0468
0469
0470
0471

75071
75071
75072
75073
75074
75075
75076
75077
7511tJ0

0472
"'473
0474
0475.
0476.
10477 00030
0478 00031
0479 75101

0000016
070030
060031
100200
00eJ64
04e030
070031
127071

BRKDG EQU •
NOP
AOA M72S
88 A,RSS
JMP L.FRER
ADA .+11'6
SSA
JMP LFRER
JMP 6RKOG,1
BRKSP EQU
NOP
STA
LOA
Mpy

DETERMINES IF CHAR, IS A DIGIT.
DIGIT1
NO. ERROR'
MAy Si,
NOT A oIGIT' ERRORl
DIGIT, OK' EXITa

•
BRKPO
BRKPN
,+10

AOA BRKPO
STA BRKPN
JMP sRKSP,l

BRKPO EQU LTt,MP
BRKpN EQU LTEMP+l
st;RE EQU •

SAVE DIGIT,
UPDATE
PORT
NUM~ER.

PAGE 0706 *59
0481
0482
10483
0484
048t)
0486
0487
10488
0489
0490
0491
049 2
0493
0494
0495
0496
10497
0498
0499
05 00
05101

05102
0~0J

10504
fct 510 5
05fcJ6
05107
10508
0e109
0510
0511
fcJ512
0513
0514
0515
0516
0517
0518
10519
05 2 0

0521
0522
0~23

0524
10525
0526
0527
0528
0529
10530
10531
0532
0533
0534
1tj535

75000
75!r:l00
750!r:l1
750210
75021
75040
75041
75060
75061
75100
751101
75120
75121
75140
75141
75160
75161
752100
75201
75220
75221
75240
75241
75260
75201
75300
75301
753210
75321
75340
75341
753610
75361
75400
75401
754210
75421
75440
7544 1
75460
75461
755010
755101
755210
75521
75540
7554 1
75560
75561
756100
7561dl
75620
75621
75640

~ANGUAGE

177771
047525
177763
044514
177763
042530
177762
046511.
177761
04 1510
177762
1046511
177761
1046511
177762
046511
177761
046511
177764
0465U
177763
046511
177764
046511
177763
1046511
177762
046511
17777fIJ
044514
177766
051511
177762
046511
177765
044514
177762
044514
177761
1046501
177761
047117
177761
1047117
177'164
1046511
177763
046511
177761
050101
177765
05251 6
177761

PROCESSOR ERROR MESSAGES
SUP
OR"
DEC
ASC
OfC
AS,

L.U~RA

.7
15,OUT OF STORA'E
-13

15,lLLEGAL OR MISSING

DEe -IJ

ASC
DEC
ASC
DEC
ASC
DEC
AIC
DEC
ASC
DEC
ASC
DEC

lNTE~ER

15,EXTRANEOU8 LIST DELIMITER
-14
15,HISSING ASSIGNMENT OPERATOR
.. 15
13,CHAHACTERS AFTER STAT~MENT END

-14

15,MISSING OR lL~EGAL SUSSCRIPT
-15
15,MlSSING OR BAD LIST DELIMITER
-14

15,MI8SING OR 8AO FUNCTION NAME

"'us

ASC 15,MISSING OR SAO SIMPLE VARIABLE
DEC -12
ASC 15,MlSSlNG OR ILLEGAL 'OF'

DEC -13

ASC
DEC
Ase
UEC

ASe

DEC
ASC
DEC
ASC
DEC
Ase
DEC

ASC
DEC
Ase
DEC
Ase
DEC
ASC

15,MISSING OR ILLEGAL 'lHEN'
.12
15,MISSING OR lLLE"AL '.0'
.. 13
15,MIS51NG OR ILLEGAL 'STEP'
-14
15,HISSING OR ILLEGAL DATA ITEM
.. 8
15,lLLEGAL EXPONENT
• it]
15,SIGN WITHOUT NUH~ER
-14
15,MlSSlNG RELATIONAL OPERATOR
.. 11
15,lLLfGAL READ VARIABLE
.14
Is,lLLlGAL SYMijOL FOLLOWS 'HAT'
.. 15
15,MATRIX CANNOT sf ON sOTH SIDES

DEC .H»

ASC
DEC
ASC
DtC
A8C

IS,NO '.' AFTER RIGHT PARENTHE~lS
_15
15,NO LEGA~ BINARY OPERATOR fOUND
.12
15,HISSING LEfT PA~ENTH~sIS
DEC -13
ASC 15,HlSSlNG RIGHT PARENThESIS
DEt .us
ASC 15,PARAMETER NOT STRING VARIABLE
DEC -11

ASC 15,UNDECIPHERABLE OPERAND
UEC .. it)

PAGt 0707 #59 'LANGUAGE PROCESSOR
0530
0537
0b38
0539
0540
~541

0542
0543
0544
ia545
0546
05 4 8
0549
16550

0551
16052
0553
0554
0555
16556
id557

055ts
0559
0500
0561
fd562
16563
16564
0565
16566
16567
0568
0569

75641
75660
75661
7571d0
75701
75720
75721
75740
75741
75760
75761

046511
177761
051524
177761
046511
17777~

047117
177762
1d3J462
177761
1651524

750160
7501616 171761
751601 046511

75020
75021
750416
75041
751660
75061
75U]0
75101
75120
75121
75140
75141
75160
75161
752016

177762
023520
177761
044514
177761
053101
000017
052616
000015
047105
00001~

0587
0588

753016
753ldl
75329
75321
75349
75341
75360
75361
75400
75401
75420
75421
75440
75441
75460
75461

051501
16160013
043125
009015
053101
009014
046101
177771
1652516
171767
165 2 516
17"1770
1640522
177762
040522
0000e7
047525
000015
042111
177762
0415111)
177763
041101
17"1763
046511
000013
043517

16589

755~0

0eJ0015

16570
0571

0572
0573
16574

0575
0576
16577
0076

0579
0580
16581
0582
0583
0584
0585
16586

752~:11

752216
75221
75240
75241
752616
75261

~RROR

MESSAGES

ASC
DEC
ASC
DEC
ASC
DEC
ASC
DEC
ASC
OEC
ASC

15,MlSSIN~ OR SAD ARRAY VARIABLE
-15
lS,STRING VAR1A~LE NOT LEGAL MERE
_15
15,MlSSlNG OR 8AD STR~NG OPERAND

ORG
DEC
Ase
DEC
ASC

LIaRA
-15
15,MISSING OR ijAO FILE REFERENCE
-14
15,'PRINT' MUST PRECEDE 'USING'

-8

15,NO CLOSING QUOTE
-14
15,72 CHARACTERS MAX FOR STRING
-U$

15,STATEMENT HAS EXCESSIVE LENGTH

DEC -15

ASC 15,lLLEGAL OPERAND AFTER 'USING'
DEC -15
ASC 15,VARIABLE MISSING OR WRO~G TYPE

DEC 15
ASC
DEC
ASC
DEC
ASC
DEc
ASC

15,UNUEFINED STATlMENT REFEREN~l
13
15,NEXT WITHOUT MATCHIN_ FOR
12
15,$AME FOR.VARIABLE NESTED
11

15,FUNCTION DEFINED TWlct

DEC 13

ASC 15,VARIA8LE DIMENSIONED TWICE
DEC 12
AS~ 1S,LAST STATEMENT NOT 'END'
DEC -7
ASe 15,UNMATCHfO FOR
DEC .. Q
Ase 15,UNOEFINEO FUNCTION
DEC .8
ASC 15'AR~AY TOO ~ARGE
DEC .. 14
ASC 15,ARRAY OF UNKNOWN DIMENSIONS
OtC 7
ASC lS,OUT Of STORA~E
OEC 13
ASC 15,DIMENSIONS NOT COMPATIBLE
DEC.14
ASC 15,CHARACTEHS AFTER COMMAND END
DEC -13
ASC 15'~AD fORMAT OR ILLEGAL NAME
DEC -13
Ase l~,Mla'lNi OR PROTECT'O 'ILE
DEC 11
ASC 15,GOSUSS NESTED TEN DEEP
DEC 13

PAGE kJ7~8 *59

I..AN(jjUAGE PRO'CESSOR ERROR MESSAGES

lo,e

75501
75520
75521
75540
75541

1Q511 05
000014
0515215
1tJ00013
0471015

75061 •••117
75561 047117
7560" 000010

~598

75601
7S62rd
75621
75640
75641

051524
000006

ro~91d

0591
0592
i.l5gJ

0594

0596
0597
0599
0600
0601
06fd2
06fd3

0604
0605
0606

06107

06 0 a

0609
0610
0611

0612

1tJ614
0615
0616
0617
0618
16619
fd620
1d621

0622
0623
0624
0625

rd626
0627
0628
0629

0630
0631
0632

0633
0634
1d635

0636
!d637
0638

0639
0640
0641
0642
0643

04752~

000011

1642101
756610 0160014
75661 052510

ASC 15,RETUHN WITH NO PRIOR G03UB

DEC 12

ASC 15,8UBSCRIPT OUT Of BOUNDS
11
ASC 15,NE~ATIVE STRlNG LENGTH
ole 1.0
ASC 15,NON-CONTliUOUS STRING CREATlO
()~C

DfC 8

ASC 15,STRING uVERFLOW

DEC

6

DEC

9

ASC 15,OUT OF DATA
ASC 15,OAT4 OF WRONG TYPE

DEC 12

Aat 15,UNDEFINED VALUE ACCESSED

000011
1d46501
000017
051105
0002113
047105
757616 fdi)0014
75761 046111

DEC

150~0

ORG LU~RA
DEC 12
ASC 15,$QR OF NEGATIVE ARGUMENT
DEC u
ASC 15,ZERO TO ZERO POWER
DEC 15
ASC 15,NEGATIVE NUMeER TO REA~ POWLR
DEC 15
ASC 15'AR~UMENT OF SIN OR TAN TOO ~lG

75700
75701
75720
75721
75740
75741

75 0160
75001
75020
75021
75040
75041
75060
75061
751"'0
75101
75120
75121
75140
75141

k10001 4
051521
000011
055105
000fU7
047105
0i)01i17
040522
177761
041526
177761
"'46101
177763
fd52117

75160 1600016

75161
75200
752°1
7522fd
75221
75240
75241
75260
75261
75300
75301
75321d

041117
000017
13 53522
000015
042516
000012

9

AiC 15,MATRIX NOT SQUARt
DEC 15
ASC 15,REDIMENSION~D ARHAY TvO LARGE
DEC 11
ASC 15,NEAR~Y SINGULAR MATRIX
DEC 12
ASC 15,LO~ U~ NEGATIV~ ARGUMENT

DEC -15
ASC

15,OV~R/UNDERFLOWS

De.C .15

• WARNING ONLY

15,LAST INPUT IGNORED, RETYPE 1T
-13
15,TOO MAN V FILES STATEMENTS
14
15,NON-e.XISTENT FILE REQUESTED
15
15,WRITE TRIED ON REAU-ONLY FILE
~EC 13
ASC 15,EN~.OF.FILE/ENO Of RECORD

ASC
OEC
ASC
DEC
ASC
DEC
ASC

Dt::t 10

1c1515~4

ASC 15,STATtMENT NOT IMAGE

101110017
047117
000014

OfC 15

0415113

ASC 15,NONw£XlSTENT PROGRAM REQUESTED
DEC 12
ASC 15,CHAIN REQUEST IS A FILE

"'''0016

OEC 14

75321 050122

75340 177763

ASC 15,PROGRAM CHAINED IS TOO

DEt .1J

~ARGf

PAGE
0044
!d045
0646
0647
0648
0649
0650
0651
0652
0653
0654

!d655
0656

065.7
0658
"'659
066 0
0661
0662
0663
0664
0665
0666
13667
0668
0669
0670
0671
0672

0673
0674
0675
0676
0677
0678
0680
0681
fd682
0683
k1684
06S5

0686
0687
0688
0689
0690
0691
0692
!d093
0694
16695

07~9

#59

75341
75360
75361
75400
75401
75420
75421
75440
75441
75460
75461
755"0
75501
75520
75521
75540
7554 1
75560
75561
75600
75601
75620
75621
75640
75641
75660
75661
75700
757"'1
75720
75721
75740
75741
7576((1
75761

~ANGUAGE

PROCESSOR

~RROR

MESSAGES

1d41517
000016
040522
000010
041101
"00007
041101
0013014
0411 0 1
000017
041501
000017
044514
177772
"50122
000016
0465 11
000016
044514
0"0010
047117
000017
04 1101
000012
051105
00001k1
051105
00e014
046525
00k'1015
0411°1
000016
0441514
0000115
044514

ASC
DEC
ASC
DEC
ASC

ASC
DEC
ASC
DEC
ASC
DEC
ASC
DEC
ASC

15,~A~ CHARACTER AFTER REPLICA TOR
10
15,REPLICATOR TOO LA~GE
8
15,REP~lCATOR lERO
12
15,MULTIP~E DECIMAL POINTS
13
15,ijAO F~OATING SPECIFICATION
14
15,1~lEGA~ CHARACTER IN FORMAT
13
15,IL~EwAL FORMAT FOR STRING

75000
75000 000015
75~01 W'46511
75020 000011
75021 04f1511
75040 000iUt>
75041 052117
75060 000014
75061 046511
75100 00001t5
75101 044514
75120 177762
75UB 041101
75140 fd0iHH5
75141 046117

ORG
DEC
ASC
DEC
ASC
DEC
ASC
DEC
ASC

L.IBRA
13
15,MISSINQ RIGHT PARENTHESIS
9
15,MISSING RfP~lCATOR
14
15,TOO MANY PARENTHE$lS ~EVELS
12
15,MISSING LEfT PARENTHESIS

15,COM STATEMENT OUT OF O~DER
14
15'AR~UMENT OF TIM OUT Of RANGE
14
15,ijAD fORMAT 8TR1NG SUbSCRIPT

DEC 7

ASC 15,SAD
ASC
DEC
ASC
OEC
ASC
DEC
ASC
DfC
ASC
OEC
ASC
DEC
ASC
DEC
ASC
DEC
ASC

READ

D~C

15,6AO fI~E WRITE DETECTED
15
15,CAN'f READ PROGRAM CHAINED TO
15
15,1~~.STORED PROGRAM CHAINED TO

e6
15,PROG~AM BAD
14
1S,MISSING FORMAT SPECIFICATION
14
15,1~~EGA~ OR MISSING D~LIMITER

8
15,NO.C~O'lNG

QUOTE

15

DEC 13

0696

75161 05!i105

!cl697

ASC
DEC
ASC
DEC
ASC
DEC
AS,

752016 000017

DEC 15

751616 000017

Fl~E

DEC 12

15,lL~tGAL

-14
16,~AO

FORMAT

lNPUT,

FOR·NUMS~R

H~TYPE

FROM ITEM

13
15,~OG OF ZERO w WARNING ONLY
15
Ib,ZERO TO NEGATIVE POWERwWARNING

PAGE 0710 #59
~o98

0699
13700
0101
071212
0703
121704
13705
0706
0707
121708
0709
0710
0 7 11
0712

75201
752213
75221
75240
75241
75260
75261

75300
75301
75320

LANGUAGE PROCESSOH ERROR MESSAGES

042111
000016
04253'"
00ee14
04752b
000014
05251 6
177763
042530
177770

75321 051105

75340
75341
75342
75343

177775
011423
fiH,,5012
025040

121714 00000
0715 00000 0"'001210
0716
•• NO ERRORS.

•

ASC 15,OlvlOE 8Y ZERO. wARNING ONLY
DEC 14

ASC 15, EXP OVERrrL.Ow • IWARN ING ONL y
DEC 12

ASC
DEC
Ale
DEC
Ale
DEC
AS~

15,OVERfLOW • WARNING ONL.Y
12
15,UNUERFLOW. WARNING ONLY
-13
15,EXTRA INPUT • WARNIN~ ONLY
.8
15,READ~ONL.Y fILES.

DEC .3

OCT 11423
OCT 511J12
Ale 13,.
ORG "
NOP
E~D

SIGNAL LOADER THAT

W~'RE

OONE.

CROSS-REFERENCf SYMBOL TAttLE

"""

--'

';ALCO

0<420/0C)

043<4

';ARID

0116/05

0259

#ARlr-.

0095/16

0346

#ASYM

0198/08

0306

#BKSP

0J89/19

0396

#8L01

01(197/06

0408

,;BNOP

0386/14

0348

#CHEB

0185/20

0386

#CHOU

01lJ25/22

0416

#CMPR

011 8 /14

0J32

.CRST

121<461/05

027 6

#CUSP

0517/06

0312

#OB10

0317/22

111292

#DCMP

0385/01

0308

#OGCK

0J26/1I16

0278

#DLPR

16<497/05

0300

#05CH

0352/25

0<450

#lHLl

02~6/25

04<42

#EOA~

007111/21

0470

#Eoal

liH682/21

0076/21

#EOL.M

0J29/1Q

0378

"ENOl

I;HH9/1~

1(1310

#EPRU

0121/11

0<462

#EVEP

04"'8/25

0454

#EXp

046<4/211'1

0382

#f'AD

121560/1~

111356

#FCUC

0318/14

0468

0109/06

033<4/19

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

GROSS .. REFERENCE SYMBOL TAtH.E

• FI)AT

0111/12

0340

#FOPS

00171iJ6

0302

tiFOV

004"'/16

"'362

.FENC

",358/14

1d438

tiFIL.R

015V/06

0422

tiFIlS

0~97/15

~428

#FINC

0344/14

0286

*fLOT

1If2fh'/28

"'328

#FLUN

0133/16

"'366

'fMP

0005/16

0360

.FORM

0335/12

0320

#fPOP

0446/,,4

0255

tiFRCH

0415/04

0253

tiFRMT

0021/23

1d460

'FS~

056 8/15

035 8

.Fst

0199/04

0249

.F'CH

,,2i8/14

(j)~42

tiFTCH

0279/12

03J6

.GTCR

164143/19

"'39 4

#GTOG

0273/19

0374

#GTPF

0062/06

0265

ti(;15T

0180/05

0318

tillTTY

03 7 9/15

0430

tiIENT

0229/20

0J88

tiIFIX

0043/15

"'368

tilNCL

02",8/12

",3~2

tiLCDl

0230/32

16466

0361/1t5

0416/19

"""

"-----

CRUSS-HEFERENC:E SYMBOL TABLE

#LIB#

0277

0133/29

0529/29

f6J0 6 /30

"'5eJ/4~

0125/ 4 7

#LISl

0275
0499/56

03a4/30
0121/57

0Jeg/J3

16347/36

0,O7/37

0596/44

#LOG

0,,"7/21

0384

#LPCK

0547/06

0267

#L.TCK

0343/06

"2Be

#L.TEN

0034/30

0078/ 2 9

0083/29

"090/29

il09J/29

0040/30

#L.TR

0269/06

0272

#Melfd

0191/22

0290

#MCH~

0377/2~

0452

#MCOT

~573/2i

0402

#MOVE:.

fd287/16

0418

#MTG1

0243/25

0440

#NMCK

0057/22

0288

#NMOT

0042/19

0372

#NRML,

0224/2~

0294

#OPCK

0403/1'-

0352

*OT8L.

0322/2~

'.46

#OTCL,

0331/25

0448

#OTCR

0368/19

0398

#OTIN

0300/19

0400

#OTL,N

0349/1P

0376

#OTST

0611/21

0404

#OUTC

0474/30

0333

0501/30

fd519/30

0722/32

#OVFL

001fU22

02ge

#PACK

0260/22

0296

#PCHK

0094/14

0JJ4

I

I

0294/16

0487/30

0523/54

",.",.,.,.

CRUSS",REFERENCE

#PFSH

039"'/06

k'.I458

#PGIN

0081/06

0261

tlPNST

0017/08

031'11

.'SHS

8474/1"

8;'44

#PSTR

018~/14

"J~fS

#PWR2

0264/20

",390

#ROIM

1d321/18

10410

#RECk

0134/06

"'420

#RPCK

0308/06

0269

#fHilST

0",9"'/15

0426

#RSCK

0437/14

16Je4

#RSTO

0158/05

"316

*RSTP

aa64/ii

(l4J6

.RUNO

027 8 /25

0444

#SaCK

0027/05

0251

#58FX

01620/15

0324

#S8pl)

0533/06

0282

#SCR

0546/29

"'105/31

-SERR

fd3~9/16

0414

#SINl

03ldS/12

040 6

*SL.CK

0560/06

"'464

.5SyM

0127/08

03644

#STOP

0034/12

0JJ8

.STOP

"'293/06

0274

#STPT

",291/12

0380

#STRI

0128/05

0;'14

#5TST

0272/14

0322

~a68/"8

01644/12

~YMSOL.

IIJ2gllt/18

TABLE

IJI~/"8

", .. ,
-

C;RUSSP'RI::FE.RENtE SYMBOl.. TAttLE

#SlH~

0;'71/14

0350

#5VCK

~3b2/1d6

0284

#TAP

01d04/30

0106/31

#T4Pl

0022/Jftl

ftl015/J0

#TaSt<

0185/0b

0~63

#TRST

0515/15

0330

#UNPK

~5J8/15

03b4

#USCK

1d20t'i/i05

10456

#V CHK

1tl284/18

0412

#VlFl

01d62/12

1d424

#VRUP

0399/05

0257

#WR8U

~422/1~

11)432

SSMlO

1d547/55

0061/34

$SSAV

0539/37

~017/34

SANN

0655/48

005.0/34

$APP

1d452/3~

0019134

!ASN

0360/35

0013/34

sBES

1d465/57

1tl0b3/34

SSRE

0479/59

012171/34

S8VE:.

0579/39

1c1021/3 4

SCAT

024 8 /41

ftHd25/34

$CHA

0160/4~

1d0b2/34

$CHN

0672/35

0014/34

SCOP

0531/56

0062/34

$DEl

053121/43

0033/34

SUES

023 6 /58

0065/34

. $OlR

i6280/4ti

0044/34

~

0533/15

00261054

0"'45/34

0027/34

.... " ....

CROSS .. REFERENCe. !:SYMBOL. TABL.E

SDIH$

0623/41

0028/34

SECH

iHeJ96/45

16039/34

5fl.B

0559/34

0012/34

SG~T

0249/38

0018/14

SHEL

0390/39

0020/J4

SKID

0466/51

0056134

SKU.

0845/39

0022/J4

'LEN

11162/.5

li;J8/J4

SL.OC

058 6 /52

005 8 /34

SL.PR

0252/45

0041/34

SMAG

1dk15~/59

0067/~4

SMES

0200/45

00 4 0/34

SML.O

IrH563/54

.,060/34

SMuN

0424/53

0059/34

SNAM

0550/40

002./34

iNEW

IUS20/~0

0055/34

sOPt.

116~~/44

lde;"/J4

SPHO

00 8 5/59

0068/34

SPOR

0425/48

0048/34

SPORS

0577/45

0042/J4

SPRI

01 44/ t>9

0069/;54

SPRu

0090/44

0035/J4

SPUR

~587/58

00b6/J4

SREN

O471/4 0

0023/J4

SREp

0810/45

00 4U/34

SREPs

0233/42

0030/34

SRt.8

0 8 16/ 48

0051 / 34

0 02 9/34

0036/34

·... ,. ...

CROS5"REFERt:.NCE SYMBOl.. TABL.E.

SROS

0515/48

1il049/J4

SSAN

0759/b7

0064/34

SS"V

0370/36

"~15/J4

1c'J016/J4

$SL.E.

047k:)/49

IIIf.!I63/34

01c'J64/J4

S5LPl..

0074/34

"'018

""'09/34

S5Pf.

0398/~9

~070/j4

S51"

0266/47

0046/34

0id47/34

S5T"$

~713/42

id031/34

0032/34

STIM

0621/43

1c'J-tJ34/34

$VNl..

0686/~1

160~7/34

~ABOR

0233

XDISC

16237

0667/28

XE,NTO

0238

0549/28

XINPT

0234

~45~/28

0346/30

XOUTW

0230
IrH78/33

0070127

0 0 16/26

XPUN

id2J9

!d4b1/27

0590/28

XSVNT

(rj236
liH41/29

0073/27
1t1182/29

~221O/JkJ

0217
k!l239

•

~514

0366/30

161 9 0/49

0521/28

iH09/29

0203/30 . 0498/30

04 9 0/28
0399/29
11)243/32

10493/28
11)021/29
11)366/33

0000/28
0526/29
",337/39

0057/28
tH97/31il

0297/JItJ

1t:1488/28
0325/29
1t)311/3k'

10233
0502
16515
10114/103

id234
10503
iditl26/03
10154/1cl3

fd235
0510
1Il036/flI3
III 159/IiIJ
16349/03
0493/03
111644/IclJ

0236
16511

14237
1Il512
"'053/03
0284/03
11)401/03
11)031103
~669/03

0238
16513
0itl79/163
1iJ287/1il3
16438/143
IOb77/ItlJ
00810/103

01Q1~/~4
~1093/!a4

1Il018/~4

0~36/104

II)UH~/\II4

015~/104

1d234/1i)4
10302/104

10251/WJ4
k'lJ07/04
"'370/04
1d1D58/05
14206/05
kl411)2/05

10261/11)4
0316/04
039J/1I)4
"I(J74/1d5

100810/03
,,290/03

~292/0J

0J2~/.,3

1e14~4/~3

1tJ457/1d3

1i;l460/1113

0b81O/I!!J
k'l684/f(1J

10612/~3

1009111/103
101075/104

1()72k1/~J

1lI048/~4

10085/~J
~688/~3
~061/1i14

01503/104

1cl155/1i14

102~1/'''4

10269/104
1i1316/\II4

1/J213/104

10217/10 4
10269/04
II)J5f)/04
1I)041/1O!5

1i144~/1iI4

1lI076/05
0224/105
0412/105
0ldJO/I(lO

0265/104
IdJ23/1tJ4 k';o3491104
0027/1Of) 0\11JJ/1iJ5
10128/05 0133/05
1tJ238/105 . 1tJ284/105
10428/1t)5 16463/1t:15
10\1162/06 1iJ105/ltJb

0017/~4

kl14J/~5

kl316/I(JO
li)4tf2/05
0131/k';6

11039/~3
1I~73/103

0385/143
0500/11)3
kJ658/II)J

IOJ71/~4

1D049/"f)
11182/.,5
klJ6J/1iJ5
1d612/t15
kl206/1I:16

0624/~~

10211/06

021~/ta5

1d406/1IlI5
0626/105
0308/1/16

"""

CROSS9REFERENCE SYMBOl.. TABI..E
0330/06
0456/06
"085/01
14198/07
03121147
0361/01
0046/08
021114/08
0278/08
0320/08
0420/08
004910/)9
01bb/09
0374/09
0434/09
0093/10
01,*7/10
020 6 /10
0269/10
",351/110
006 9 /11
0105/11
142610/11
0316/11
0'*2 8 /11
047J/ll
0534/11
1801 4 /11
0154/12
023 9 /12
0365/12
.,.-71/12
0170/13
0386/13
0191/1'*
0436/14

034110 6
14461106
0124/07
0204/107
0317/07
0410/07
61)860/08
0208/168
02/9/148
0322/148
0442/08
1606t5/09
Ir:lJ16/1f)9
0~76/.,,9

1r:l437/tl9
0100/10
0158/11d
10229/10
0276/11t)
kJ356/10
00dJ/ll

0140/11
1d271/1I
0321/11
1c1430/11
0A7S/I1
0540/11
kJ618/11
0163/12
kJa~2/12

0395/12
0025/13
019 4 /13
041U/13
01~4/14

0446/14

~048/lf,i

00~1/15

0158/15
1d255/15
0357/15
fl)423/15
0470/15
0",98/16
10.346/16
0,*6J/16
0054/17
0184/17
038 5 /17
13344/18
0122/19
,Hoc/li
0225/19
t(J300/19
0356/19

0173/15
0259/15
03~6/15

0430/15
0471/15
0117/16
0367/16
16465/16
0056/17
~194/17

0409/17
16022/19
101030/19
1!O174/19
0235/19
14311/19
0377/19

0 364 /06
0492/06
0130/07
10210/07
0320/01
0428/07
0UJ9/08
02h:J/08
029J/08
0334/08
0445/08
0,,74/09
0326/109
0378/09
044£1/09
0103/10
0165/11t.'
0a'-3/10
028l/10
)i362/10
0(184/11
01t54/11
0285/11
0332/11
0 .. 39/11
0483/11
0042/11
0620/11
1/)165/12
0294/12
0J97/12
lde34/13
0209/13
0104/14
02S1/1'*
0457/14
0054/1~
IU85/1~

0271/15
10400/15
0434/15
1tl477/15
0181/16
11)36\)/16
0469/16
0117/11
IU96/17
0025/18
00'9/19
16136/19
10176/19
0249/19
0/)0319/19
0380/19

0 367 /0 6
10547/146
141411147
0227/07
IIiIJ21/1Q7
.,,446/07
0127/08
.,,219/08
.,,301/08
14345/08
"'4~0/08

0086/09
10344/09
16381/09
0444/09
1()1hUle
IU74/10
1()246/Ut
1c1293/10
0378/10
",085/11
10103/11

1CJ287/11
It:SJ89/11
0'*42/11
0467/11
10563/11
0036/12
0220/12
0296/12
164~3/12

01tJ 5 2/13
0227/1;.1
0124/14
0348/14
104 6 0/1"
IOl1d3/15
WJ1 8 7/15
0282/15
14402/15
0439/15
16520/15
1d189/16
0375/16
10411/16
W)155/17

""276/17
0060/18
14051/19
0143/1"
1d186/19
02t»3/19
.,332/1 9
10417/19

0375/06
0560/06
0166/07
0228/07
1Q350/147
0447/07
~1.)5/08

0225/148
IcJJ04/t08
0348/148
0004/149
t1)ta92/!el9
11)346/09
10384/!el9
.,,1tJ68/10
!dll2/10
1t.'1715/10
ICHit51/11t)
10297/10
11.1387/10
0086/11
0183/11
1tJ295/11
0400/11
10451/11
1d~07/11

0578/11
It:SkJ38 I 12
14222/12
0308/12
",431/)/12
.,1063/13
1d255/13
IU30/14
1IJ417/14
0463/14
10110/15
1IJ213/15
1d299/15
tiJ 4 0 9 /15
",452/15
14602/15
0207/16
10393/16
1d493/16
.,166/17
.,,340/17
0069/18
01d64/19
wH!H/19
0209/19
10258/19
10336/19
0446/19

03 9 0/0 6
0004/07
1/H76/0!
VJ232/07
",352/01
"4516/07
14149/08
02J~/08

0308/08
041()/08
0018/09
16094/09
.,35"/09
10422/149
.,082/10
~131/10

~190/10

dji61/11iJ
WlllS/11el
IIJIH>1/11
008~/ll

IU97/11
0298/11
1I}413/11
040~/ll

IiHH5/11
",586/11
1t'043/12
1622 6 /12

",358/12
0453/12
ta068/13
1d264/13
14141tJ/14
10421/14
0475/14
14118110
1d237/15
11)313/15
~"10/15

",,456/15
kl606/15
1d27o/1t)
." .. 03/16
10494/16
1t:S168/17
!el341/17
10075/18
",066/19
0150/19
1tl211/19
,,'259/19
~352/1SJ

1d500/19

045"/0 6
0041/07
0195/07
10291/1{)7
Ir:lJ62/07
002~/"'8

14158/08
027J/168
0319/108
0416/1tlS
0025/1tl9
0130/109
0359/1tJ9
0431/109
101084/10
1tl141/1ta
ft/194/10
0263/10
0336/10
It)ltJ 65 /11
01()98/11
023 5 /11
0.30 9 /11
041 8 /11
0471/11
0b23/11
059 7 /11
0090/12
0235/12
036 4 /12
Wl45 4 /12
0127/13
11.1278/13
!d154/14
0426/14
01025/15
013 7 /15
""242/15
1d.321d/15
0412/15
0468/15
""k'l33/16
0.327/16
04flJo/16
0498/16
ItHH2/17
10383/17
0230/18
101d82/19
0162/19
1022"'/19
0260119
035"/19
10513/19

"""

(.;RUSS"REFf.RENCE. SYMBUL TAI:H.E
((Hl1~/~~
~108/21t.;

VJJ45/2~

1d253/21
0313/21
~381d/21

1043//21
1d501/21
",586/21
0121/22
0k)55/23
~238/23

",31d9/2J
0370/23
01d51/24
012.,/24
IH68/24
111268/24
0004/2f1

1i,)\!J 47

/2'IJ

~~52/21d

~2J4/20

kl25!tl/21d
10124/21
1d2/4/21
1d347/21

10109/21
10261/21
0344/21
04"'4/21
10444/21
0512/21
1t'J1d26/22
10138/22
101674/23
~265/2J

10314/23
~41d8/23

1d42~/23

1Ok)84/24
1d127/24
10216/24
0289/24
IhlJl/25

~01d7/2f1

k10~9/25

wl1 12/25

1Il192/25

Itn 96/25

~22fd/25

16227125
0332/25
1d456/25
10212/26
",366/20
01073/27
1d160/21
1d5164/21
0256/28
10294/28
1l-49l/28
1t)544/28
1d583/28
10012/2 9
1d095/29
It1171/29
10267/29

10162/25
102fdl/25
\()23fd/25
0334/21)
10458/25
0219/26
0383/26
0073/27
0182/27
\()511/27
1(}262/28

1Il49~/28

1d5.;9/28
056 9 /28
Ir:HH ro/2~

itHeJ82/29
1t'l168/29
0262/29
1t'l29 4 /29
IIlJJ1/29
0395/29
10512/29
10554/29
0115/J0
v)221/Jkl
10215/30
10308/30

~312/29

It)J3 4 /29
0398/29
Idfl2l/29
1f)556/29
11:'1130/J.,
0224/30
1f)276/31l1
1f)310/31O

0J61/3~

~365/30

0419/.}IQ

10431/JIO
0!.S21/30
10177/31
11)335131
1t)4ld6/Jl
Vl0J5/32

05~H) 1~0

10157/31
0323/31
JiJ378/31
111015/32

041~/21

1d447/21
1O!:)47/21
101628/22
111195/22
IOHJ 4 /23
102 8 2/2J
10309/23

01677/24
0126/24
0192/24
0276/24

~~8"/25

029S/2ij
1Il431/20
111192/26
11:136 4 /26
VJ46J/20
1r:l158/27
'lJ476/27
10213/26
10292/28

~

1d0 J4 /21d
1()119/21d
IUtill/21d
10259/21
0.315/21
041d1/21
0441/21
0t>fr:l7/21
1d01ld/22
10123/22
1d051123
0248/23
1()312/23
1d398/23
0066/24
11:)125/24
01910/24
1d273/24

~372/28

0 4 9J/28
10548/28
1lt584/2~

010 3 4/29
0119/29
0181r)/29
10269/29
IIlJ21/29
0341/~9

k/418/29
0525/29
0016/J"
1tJ141/31f)
1d235/30
0297/31f)
l!J312/30
11)3711:'1/310
043J/31d
10531/3JiJ
Vl183/31
0337/31
0409/31
1d1041d/32

101bti/2~

02102/25
10279/25
~3J6/25

0082/26
10245/26
0387/26
lOid88/21
",457/21
1d.,26/28
1d271d/28
~428/28
05~0/28

1d5 56 /28
10588/28
.,041/29
1d1Jk:I/29
.,184/29
10271/29
Ic)J24/29
10363/29
0429/29
10526/29
1f)036/31r)
IIH 91/310
10241/30
10297/30
~334/31cJ

1d384/JId
",491/310
I61J2/31
1tl211t7/31
1d3~4/l1

",41!S/ll
1OL147/32

Idlt3 4 /20
1d292/20
10171/21
10295/21
10357/21
0426/21
1d471/21
",562/21
1d065/22
10281/22
1d122/23
10305/23
163710/23
1d422/23
101089/24
1d148/24
1d224/24
10292/24
I6fd33/2~

101711l/25
10203/20
11)29(6/25
k:l350/25
01d85/26
'/)277/26
10392/26
~14J/27

11)460/27
101051/28
ro272/~8

10466/28
11)500/28
1It557/28
10601/28
0",fl2/29
10131/29
1t)201/29
11:1286/29
10326/29
11)368/29
104410/29
.,b26/J9
101Q41/.ll1
10197/30
1d255/31f)
10300/30
11)338/311)
1d387/3~

10495/JItJ
10135/31
10218/31
10359/31
10419/Jl
10.,49/)2

11'128/216
10313/20
16185/21
1d30&/21
10376/21
1d432/21
10472/21
1d580/21
1010810/22
1d3210/22
10144/23
IdJ01/23
10371/23
1d44Y/23
1dfr:l 9 1/24
10157/24
10226/24
1d295/24
Id!aJo/2h
101 8 1/25
.,215/25
11)294/25
IOJfl8/25
1d11ir:J/26
1d286/26
04116/26
1d148/27
10463/27
101070/28
1It274i28
,,486/28
105.,4/28
II:'Ifl57/28
13656/28
100 68 /29
10141/29
10214/29
-'1288/29
1332~/29

k:l3710/29
1046J/29
10531/29
W;091/31d
1f)217/31d
1tJ261/31O
10.302/30
1f)346/J.,
.,3ti9/31O
"'497/lld
10140/31
10252/31
10366/31
1d499/31
1tJL167/32

10161/20
~JJ9/20

ItH95/21
03111'/21
1d378/21
0430/21
1d474/21
10581/21
Idhl7/22
101653/23
1d163/23
1d3fd8/23
0374/23
0048/24
"'116124
1d164/24
0252/24
1d3",8/24
~IdJ9/25

0183/25
~218/25

fd29bl25
~360/25

10179/26
03616/26
1042 9 /26
0153/27
104 67/27
021O~/28

10291d/28
049ld/28
.,008/28
115560/28
106 89 /28
101074/29
1Il144/29
1t)201/29
0291/29
1d327129
0390/29
0489/29
10532/29
1d10991.30
1d21~/30
~266/3ld

If)J04/JVJ
0347/JId
w;410/31f)
06102/30
10153/31
.,297/31
IOJ76/31
0531/31
Idllt91d/~2

...........

C~OSS.REFERE.NCE

lc1(094 132
"'1 4 2/32
11)178/32
02106/32
",2371',32
031O b /32
0372/32
fd~47/33

0120/33
0231d/33
0J37/33
0401/33
0481/33
10137/34
0185/34

lc10 98 /32
ItH53/32
~182/32

0208/J2
0242/32
0~28/J2

11)382/32
10057/33
IrH41/33
0237/33
0353/33
0404/33
0503/33
0143/34
~2"0/34

1iJ27t/~4
~J91/34

.,81/34

044 7 /3.

11)449/34
0501/34
0064/35
16138/35
"'210/35
'0277/35
fd3 70 135
"'4!67/35
1t)462/35

~498/34

01651/35
~13J/35

16207/35
0215/35
1d319/35
10401/35
",456/35

~41d1/34

0~50/35

~552/J5

1lI021O/36
16083/30
11)1410/36
0212/36
",280/36
0412/36

"'022/36
10092/J6
0152/36
021713b
0317/36
1t)420/36
0047/31
0e91/J7
16195/37
WJ2'i6/J7
0J53/37

~H1410/37

0ld 88 /37
10192/37
~275/37

1d351/J7
04 56 /31
0[(1 36 /38
!t)1~~/38

0160/38
0271/38
",3JJ/38
0 445 /38
10127/39
~196/39

02 68 /39
10352/39
10474/39
0535/39
0607/39
0681/39
10823/39

"4~8/J7

WJ039/38
liHe9/J8
13175/38
0285/38
10335/38
10012/39
",137/39
02141/39
10272/39
1iJ363/39
~488/J9

165J8/39
10620/39

",726/39
lOe26/39

k1100/ J 2
10165/032
"'185/32
0210/32
024t)/J2
0342/032
11);)88/32
1006J/33
0150/33
16264/33
t'lJ61/33
0405/33
0509/33
16145/34$
0210/34$
12'7/34
1t)402/34
0.52/34
0019/34
008fcJI35
0147/35

SYMBOL. TAt;L.E
iblfd 4 /J2
"'157/32
"'189/32
11)218/32
11)201/32
d3!)4/32
",398/32
0076/33
10153/33
10269/33
10365/33
104107/33
10519/33
101 47 /34
10228/34
~J'3/34

"'414/34
104 6 2/34
16f)39/J4
100 8 5/35
01~8/35

1011' 7 /32
10159/32
.,191/32
~220/J2

1C)260/32
0356/32
0412/J2
01681133
10161/33
1tl278/33
"'368/33
0452/33
14531/33
IdHH/3il
1d260/34

"'21~/39

0284/39
0 4 136/39
0t)03/39
105403/39
0630/39
07,)4/39
0016/40

"'1O~4/39

10171/39
1t1227/39
1c'1291/39
0415/39
10519/39
10563/39
W:)641/J9

1d141/39
101022/4'"

10121/.J4

012 9 /J5
IrH ii0/35
0270/ 35
1631 5 /';5

111390/35
10431/35
10513/35
16590/35
IOksJ7/J6

Id2~3/38

0 4 b3/33

1Or,,45/JO

1d388/35
'0422/35
IOb00/35
16567/35

10342/38
0042/39
0152/39

1039 8 /JJ

"'rtl43/3~

~298/J5

"'125/38
1d2k'6/38
1/1295/38
",412/38

0J23/~3

kJ374/3J
045J/33
0118/34

10125/35
kl173/35

10219/35

10074/38

ta182/J3

~31J/3J

10105/J~

~290/35

11:1053/31
10123/31
10213/37
",323/37
10360/31
0162"'/38

011::;'/J3

1lI482/~4

1t)21!)/3~

1O~17/J7

11:)04 5 /,)3

10471/34
10(025/35

1032.,J.
10416/34

0281/35
0384/35
0419/35
0492/J5
06 6 1/30
10024/36
010(0/36
10107/36
1.1223/36
13322/36
10430/36
01049/37
0111/37
13202/37
13317/37
036J/37
IdIU 3/38
lihJ 4 2/38
0122/38
0183/J8

fd112/J6
101b3/36
10230/36
fd334/J6

11)266/32
163 64 / 3 2
"'1034/33
10099/33
1(;163/33

fdlJ 4 / 3 2
131 76 / 3 2
10197/J2
0232/ 3 2
0271/J2
IOJ68/32

1017o/J4
0268/34
0;"70/3.
0441/J4
1048 9 /34

10108/35
16238/J5

101031/36

"'11 5 / 3 2
IU63/32
0195/32
"'223/32

~115/36

10186/36
10235/36
10337/J6
k'1019/o37
101066/37
10147/37
111224/37
eJ24/37
0384/37
10024/.)8
IOI080/J8
10132/38
14208/038
1()298/38
10414/38
0(086/39
10181/39
10245/39
10332/39
",420/39
1d!)26/J9
16594/39
""648/J9
0747/39
, 1d036/41O

k.l1 7 2/J4

10264/34
t134W/J4t
10427/34

~256/35

"'309/35
IdJ93/J5
10433/35
Ir!lf)1 6 / 35
",639/35
10073/36
0122/36
10193/ 36
10259/36
lcJ3921036
kHo29/31
~~069/31

10157/ 37
10228/37
10326/37
10393/ 37

IdJ95/J5

10453/35
IOb2J/J5
10053/35

10077/36
013"'/36
~>19b/')b

0265/36
10401136
101030137
0083/37
1018.,/37
0~30/37

"'026/38

e336/37
10451/37
1'01031/38

~li)6/39

0163/J8
102b4/J8
16312/38
10436/38
10122/39

100 8 7/38
10154/38
10219/38
"'305/38
VJ42 4 /38

011195/38

tl1 66/39

01iij/39

16256/39
10336/39
10435/39
10530/39
0600/39
10659/39
",758/39
k'042/41O

0259/39
10344/39
"'4~4/J9

0532/39
e60J/39
0667/39
0764/39
0"'44/ 4 10

CRUSS .. RE.FERENCt: SYMHOL.

~~".,
~",48/4~

~05~/4'"

0209/4\0
0299/40
1d430/41d
0b25/41O
0018/41
I!Jkl77/41
0122/41
li1156/41
0227/41
I6J32/41
1d405/41
1!J471/41
0b09/41
",566/41
\(.)590/41
1d058/42
0134/42

IlI231/41d
13314/410
1i14038/41d
0529/416
I01b35/41
",,,,87/41
0137/41
1"166/41
kl262/41
"'354/41
",413/41
"'484/41
1Cl536/41
",568/41
",598/41
kl002/42
16136/42
0171/42
1d2IOVJ/42
13266/42
",319/42
1f.l361/42
0515/42
",638/42
10697/42
16075/43
1f.l127/43
VJ20 6 / 4 3
1f!l260/43
0307/43
1d435/4J
0542/43
0610/43
11)049/44

~163/42
It)1 92/42

",262/ 4 2
1!J312/42
163 59 / 4 2
10464/ 4 2
1t!l629/42
069J/42
VJ060/~3

10122/43
1d197/43
1f!l2 43 / 4 3
tc131d5/43
1!J399/43
1()537/43
1t!l61c) 0 /43
1d040/44
\(.)110/44
~H6j/.4

-'

1f.l239/44
11)295/44
11)35 5 /44
0444/44
05\(.}4/44
r.H:126/45
0112/45
102109/45
0357/45
10461/45
0561/45
1Il710/"5
1013411)/46
121142/46
102"0/46
0327/46
I!JJ87/46

~131/44

11'166/44
0248/44
0315/44
If.lJ62/44
ttl455/44
:db08/44
10030/45
10122/45
10234/45

0\154/416
0241/4kl
0325/410
0478/40
10 0 35/40
0039/41
Vi101/41
1d141/41
10175/41
10275/41
10363/41
"'427/41
~486/41

10545/41
10570/41
kJ633/41
0~7J/42
~142/42

0173/42
102162/42
16272/42
10331/42
",422/42
kl029/42
0647/42
\(.}7",S/42
\(jicH~ 1/43
v.>158/43
1(.\207/43
0268/43
ra313/43
",438/43
0062/43
01013/44
~1d59/44

ki13J/44
IH70/44
~256/44
~318/44

0367/44
0467/44
0512/44
0037/45
1d126/40
f0237/45

~377/45

~40"'/45

1d487/45
10565/45
10724/45
10054/46
1t!l203/46
0245/46
10300/46
103910/46

1t1496/45
icJC18/45
kl735/40
01002/46
10215/46
10260/46
0J52/46
II:'J96/40

kl~b614~

1d258/4td

TA~Lt.

IOklOkl/41d
111261/40

~349/4'"

I6J65/4~

111484/40
16538/4kl
IlI",45/41
kl1V'.l4/41
101 4 3/41
ItH78/41
13301/41
"'311/41
10449/41
10494/41
",546/41
10576/41
001lJ9/42
",O95/42
10146/42
1"115/42
",2",5/42
0277/42
10336/42
13432/ 4 2
10046/42
10674/42
107VJ9/42

",501/40
1Q041/41d
161C149/41

VJ09~/43

10173/43
10216/43
102 1 1d/43
1d331!J/4J
ro478/4j
IOb68/43
11)022/44
1U1612/44
1t!l142/44
01 8 3/44
1d268/44
.,325/44
.,388/44
16468/44
05/0/44
it.1039/45
0138/45
1tl271c1/45
II:24J1/45
16520/45
1tJ623/45
0748/45
101071/46
1f)216/46
16291/46
",354/46
041f!l4/46

kl110/4t

ItH4b/4l
t6195/4~

kl164/4(d
0267/40
IlI31lf)l40
!()514/4111
"'013/41
1606k'J/41
14113/41
14152/41
10205/41
",317/41
1tl396/41
",458/41
165010/41
1lJ554/41
\(.)58;.!/41
16025/42
1t)121/42
10150/42
018//42
1d241/42
",3101/42

1003",0/41
10378/41
",454/41
1tl490/41
10048/41
10578/41
"'1013/42
10117/42
10140/42
IU78/42
",215/42
",299/42
1tl339/42
11)441/42
-'048/42
16681/42
IthH 1/43
0HHd/43
10177/43
0219/43
0275/43
1d373/"3
16463/43
1tl!)73/4$3
101631/ 44
1tl078/44
0154/44
16188/44
10271/44
",327/44
16394/44
1Il47"'/44

",394/43
10480/43
059ts/43
10039/44
"'08b/44
0150/44
",2100/44
",277/44
10343/44
1f)4169/44
.,487/44

~58!)/44

~1d08/4o

111042/45
10154/45
.,274/45
"'434/45
10029/45
0642/45
16752/45
101087/46
1c122J/46
IdJ13/46
16363/46
.,410/40

0047/45
10162/45
",298/45
10436/40
10549/45
1tl662/45
10765/45
liH 18/46
\(.)226/46
1Il319/46
103710/46
10412/46

~34o/42

11)406/42
k)bb1/42
16683/42
10010/43
1f)109/43
"'lts3/43
",229/ 4 3
028~/43

0192/40
0273/40
0391/41b
10523/40
0015/41
111068/41
0119/41
1d154/41
kl~2V'.l/4 ~.

",327/41
039~/41

",460/41
1tl002/41
0561/41
1!J593/41
0",34/42
kH2~/42

10152/42
13189/42
0245/42
1f)3",3/42
",353/42
1t)475/42
10 01t)3/42
1tl665/42
",034/43
~118/43
01~6/43

0234/43
1d29b/43
1113971 4 3
05",6/43
06",2/43
0043/44
k)111/44
16158/44
10229/44
0284/44
0349/44
0428/44
0490/44
16"'13/45
0087/45
0114/45
103110/45
16447/45
0553/45

13678/45
16038/46
0123/46
112229/46
IOJ22/46
1lJ362/46
0411d/46

"", ..

CRQSS"HEFERENCE SYMBOl TAtH.E
~48~/46
~083/47
025~/47

0486/46
0085/47
0272147
10356/47

Ii)J&16/47
0418/47 ~434/47
0461/47 16477/47
105216/47 10523/47
0096/46 0101/48
0228/48 02~7/48
0392/48 10410/48
0489/48 050"'/48
0573/48 10581/48
0607/48 06169/48
0754/48 16761/48
101619/49 0036/49
01687/49 0093/49
0189/49 ~192/49
0228/49 0238/49
1112 9 2/49 . 16326/49
0388/49 0"93/.9
0 496 /49 (/J0!7/016
0061/50 0099/50
0184/510 0188/b16
0218/50 0225/50
0356/0111 0J58/51O
100 56 /51 0078/51
10128/51 rU3e/51
0223/51 0241/51
0287/51 1d297/51
0362/51 0373/01
0584/51 0640/51
01361/52 0086/52
0175/52 11)181/52
0278/52 13283/52
13405/52 ",410/&2
1/J455/52 0461/52
01615/5J 1t>01 7 /5J
00710/53 1fJ075/53
0187/53 0201/53
0345/53 ",J55/53
"'028/54 0036/54
0091/54 10108154
ft)141/54 liH42/54
0198/54 0202/54
0296/54 0307/54
0487/54 051d7/54
101018~/55
0092/55
111194/55 02ft)J/55
0273/55 0286/55
0364/55 IdJ69/55
0457/55 0 .. 69/55
0524/55 1d527/55
0ft327/56 "'048/56
IcHld/56 IcH26/56

0 497 /46
16104/47
"J~4/47
0~H)16/47

11)438/47
kJ482/41
0014/46
01163/48
02810/48
0435/48
16!S33/48
0683/48
10689/48
0769/48
004b/49
0098/49
10196/49
0253/49
0331/49
,,395/49
0iJ26/50
011116/5111
0194/50
022~/50

0367/50
0086/51
0134/51
0241051
0J05/bl
0449/51
065J/51
0098/52
1a~04/52

(6J10/52
0414/52
13504/52
0025/5J
0085/53
1iJ~42/53

0361/5J
11)045/54
!dIll/54
ft)144/54
0215/54
0Jl~/54

0526/5Al
0119155
021"d9/55
0312/55
0.376/55
0472/55
1d532/55
1011)57/56.
10138/56

ft3~15/47

101168/47
10313/47
1i)365/41
I04 ..H~/41
11)4 9 1/41
0023/4$
1d148/48
02~2/48

11)443/48
Id~J9/48

1d58~/48

0719/48
16/84/48
101047/49
"'11113/49
0213/49
0258/4'
1/J340/49
0410/49
k?045/50
0114/50

10205/50
0235/50
11)371/50
1011195/51
11)147/51
10266/51
101312/51
~461/51

101663/51
10103/52
!d211/52
1/J319/52
!d417/52
16f)44/52
!d034/5J
10111153
i0262/53
1d3b7/5J
tOVJ~7/54

10115/54
10153/54
1d234/54
IOJ22/5.
rJit12J/55

1d125/55
0229/55
"'315/55
ta379/55
1cl490/55
10541t}/55
1d""'9/56
1d141/56

"11)24/47

~194/47

IOJ19/47
10396/47
10448/47
kJO,,7/47
1O~25/48

0159/48
kjJ07148
16448/48
16544/48
0596/48
11)722/48
10793/48
10062/49
10138/49
10215/49
10266/49
101354/49
10447/49
101049/0'"
0149/50
0210/50

r>0~H) 147
k12Idl/47
11)328/47
1D41d8/41
"'44U~ 14}
ItH)15/47
I6It1J1/48
11)202/48

10211141
0341/47
10412/47
11)458/47
0517147
16105iI48

IDJJ2/48

kjJ804/48

~453/4e
~549/4a

",464/ 4 8
",ob 7 1"48

~598/48

10603/48

.,738/48
tlI798/48
101071/49
11:1143/49
",217/49
0272/49
10364/49
If.jAlllJ/4i
1D,,56/50
1)153/50
~212/5ta

~kj69/47

021~/48

~/41/·\8

",811148

VJVJ71149
~152/49
~226/49

0282/49
0J7J/49
10466/49
01066/0113
113162/50
0214/50

10158/52
10218/52
k:lJ86/f)2
1r;l423/52

0255/50
0443/50
10114/51
0167/51
10279/51
101351/51
105010/51
1010.37/52
10165/52
0248/52
i(lJ97/52
11)433/52

0!:t49/~2

w;J054/ 0 2

13058/52

1d046/53
10128/53
0320/53
1d37J/t)3
0069/54
0119/54
11)181/54
10241/54

kl053/5J
014iO/53
0323/53
0386/53
111082/ 54
"'126/54
10188/54
16247/54
It)J6J/54

1iI~66/5J

10237/b~
IOJ81/~0

10110/51
10164/til
1&1274/bl
0316/51
0494/51
1()667/51

~J43/f)4

10045/55
1r'J115/55
10232/55
ta.318/55
111401/55
"'495/a5
IUH0/56
"'1I)96/~6

"'148/56

~VJ72/55

"'187/55
1I1251r:1/55
,1344/55
04J6/55
.,,510/55
10015/56
101164/56
kH71d/56

10300/00
1O~38/bl

0121151
017.0/01
0~8J/bl

103511b1
Idb7o/bl
10",53/52

101168/52
1r;l266/52
0401/f)2
~'36/52

I0145/~J

0329/53
kj1026/54
",,,,86/04
kH31/54
10191/54
1d276/b4
1t1462/54
0"'84/55
0188/55
0256/55
0J54/55
13438/55
0519/55
~025/56

0109/b6
10179/56

",.,.

C!o(OSSIIIREFf.RENCE S'1 MBOI. TAt:H.. E

•13

000ij/12

fd?20/14

,74

01006/19

fd0/1d/l~

,75

0007/1~

0180/19

.A

0006/23

01t;9/23

0362/23

.CHEt;

0150/02
0218/20

0J17/~2

0344/02
0364/20

0436/02

IdJ16/20

0146/02

0320/02

0343/02

05fd~/21d

0~12/21O

,f.XP1

0503/2t?

14468/20

0508/20

.EXP2

0506/20

0458/20

0465/20

,FAD

0120/02
10 5 62/15
0289/20
0~17/21

0339/102
0300/17
0298/210
,()034/21

012()/02
0i 87 /16
0032/21

0342/1cl2
1142/1 8
0U9/21

• FD Vl

0081/16

14047/16

,FDV2

01384/16

14044/16

01~0/02

,EXP

,FDV

,FI.UN

00 6/19

,fMP

0124/02
000D/16
0210/1 8
",J1fd/212!
~409/20

0",42/21

,FSB

0122/02
IeU22/1 4
0219/18
16314/2121
121468/211)

0471/02

i'J186/2~

0217120

~467/02

0364/13

W)452/20

.,b02/20

0444/02
024b/1S
",J36/20
0040/21

04()9/02
101a85/19
",346/20
10115/21

1t)180/h1

~i319/13

0~61/15

0090/19
",476/20
11)121/21

kJ208/20
fd486/20
10129/21

0496/210
0140/21

0 4 64/02
0J7J/ae
'H27/21

0337/13

0402/13

Idfd41/16

~41d4/2i)

.,488/2e

~49./214

0083/16
01112.)/21

034 8/142
0267/2'IJ

034 9 / 02
0012/21

0045/15
10106/21

054 1 / 1 5
10260/23

0553/ 1 5

0139/16

0341/02
10036/16
0260/18
031 8 /20
04!5/20
11>113/21

0463/02
0296/17
0185/214

",331/1J
10044/18
02VJ4/2S
IOJ08/20
0473/20

"l62/!3
11)154/18

04",8/13
IU67/18
10286/20
0J6b/20
10026/21

1Q 4 1 6 /13

04""/20
ta030/21

14046/14

",O55/14

~lJ7/18

1020 3 /18

0J01/20

IliJ62/21d
1(1028/21

16325/13
1Dk'J88/18
0213/20
10411120
101/138/21

0432/20

0"'06/20
0410/20

0 456 /1 9
0457/20

121333/20
0454/20
0138/21

0249/18
0J49/2121
16490/20

0470/02
0569/15
0267/18
0350/20
0021/21

034"'1102
056'~/15

~413/20

0183/10
lOoJ2/15
t(J~VJ6/20

1D21~/20

t1J60/20
10484/20

,FSB1

0579/15

16573/15

0~76/15

,lENT

01t12 / 02
0469/19

fc)J1 8/ \02
0236/20

k}J 45/ 02
0237/20

fd 4J7/ 02
10242/20

1lI 47 2/02
0293/20

fd 4 JIO/19
103410/20

,LNUM

0242/02

"'425/~6

01030/06

\tljY9/09

0233/16

!i.i39~/16

~261/21O

0199/18
~296/20

"""
-

c.;I-iOSS.REFERENCt. SYMBOL. TAdl...E
~361/13

f2)00~/21

~1/:I44/~1

0046/21

0347/02
017 5 /22

~()31/1b

fcHd35/16
10297/22

~1d82/16

0262/22

14"0",/22

0021/20
",30b/22

k)310/22

0J19/02

1d312/21(.\

0j46/1d2
0336/216

1t)4J8/02
10344/214

W!l500/2~

0276/20
ItH23/21

16131/ 2 1

01003/23

01 87 /23

16330/23

0357/23

0009/2.

0h)9/24

?ABP2

0007/33

fC!142/33

?ADIN

1.1268

1.1030

0057/26

1ATBL

16397
048 6 /51

1(.\056/20
'lJ043/62

0261/310

16273/42

16381/42

1t)323/46

1t)42 9 / 46

?CL.OC

0254/27

k1258/27

16180129

IU64/29

la4P11/33

10404/33

16452/33

lDISt

0234/27
16 388 /32
to264/47

16010
00 03 /J3
\1258/49

0238/27
1tl374/J3

0261/30
W!l 4 1 9 / 4 3

la251/32
1(.\42fd/ 43

0271/32
1d263/41

0079/b2

to2 4 1/JId
Ith, 24 / 36
'do71/52

?FLAG

0212/27

0230/27

kJ467/21

01637/36

",41 0 /39

16420/39

161/:113/45

?10

0242/27
1(.\267/29
16025/:;5
0436/38
10241/42
0442/48
0453/49

0011
02 6 9/2 9
0393/35
1tl42ro/39
"'1613/4.
1tl447/48
1(.\1£138/51

to422/ld9
0260/32
1(.\395/35
10594/39
10111144
",452/46

0026/22
1/:13 4 2/J2
1f)401/35
I{)k)J9/41
10487/44

k:l246/27
1/:1398/32

16463/27
Itlld99/33
01022/36
1d301/41

~2b6/49

10282/49

1tl461/27
162h1/j4
001J/38
f.1"'10 9 /42
0434/48
0441/49

k)110/51

0127/51

~j71d/59

'1267/27
0 457/27
I()j61/J0
ir:)26",/J2
0J53/j3
034k)/J4
001J/38
Idld42/39

00 85 /k)7
1fl566/2 8
101370/30
1{)266/J2
",398/33
1d025/35
0183/38
10054/39

k)J50/07
1tl689/213
to384/30
1()1(l57/J3
10452/33
",j47/35
10206/38
1t!215/39

1d4U>/39

~454/39

~543/39

t.1~16/4VJ

~022/40

to118/41
1()427/41
td178/42
0542/43
1(.\ic)87/II-5

"'275/41
1f}576/41
"'241/42
10122/45

IOJ25/4ro
IOJ01/41
161(.\09/42
ro561/42
10111/44
02"-19/4b

1Cl387/0 1
.,012/29
1f)381/JId
I/:Ikl16/33
\il463/33
",393/35
16333/38
0227/39
",518/39
0418/40
10317/41
"'025/42
10693/42
10455/44
1d210/45

1NAMt

10246/27

10250/27

1£1489/29

?PLEV

1d271/27

la276/27

1/)012/29

,L.UG

16146/k12

16473/02

,L.OGl

01640/21

1d0~8/21

.PACK

01tJ6la/~2

1i125 3 /20
0154/102
",291/2'IJ

,X

,PW R2

1LINK

~1/J13/44

026~/20

~1020/J6

",275/41
1d491()/44

ir:)422/~9

1rJ294/29
1Cl521/3.,
0099/33
",f;!03/33
Itlb67/j5
1rJ412/38
",245/39
10694/39

~21",/45

",292/49
1d434/b9
0380/19
10331/29
",531/30
1d120/33
16531/33
10590/35
1tl424/36
",332/39
1/:1681/39
1f)0J9/41
10354/41

k:l10J/~0

0271/2~

1d271/27
If)J34/.50
16232/J2
015J/33
10211O/j4

"'034/~2

01058/42

10701)/42
1r)467/44
"'049/45

10478/43
11'487/44
",561/45

lih'2'd/36
0436/38
1f)41f)6/J9
10823/39
10154/41
0396/41
0111/42
0483/43
01/:108/45
0134/51

10556/29

10445/38

16478/40

13541/40

10171/29

0286/ 2 9

1d28H/29

1tl291/29

11:1541/410

11:1327/41

-----1PROG

?RSTR

1RTIM
1SC

?STAT

CRUSS""fo(EFERENCE. SYMBOL, TAbl..E
02~./29
0J0~/30

0321/29

~J2./29

0J02/j~

IOJ4~/Jft

IOj/0/29
til347/J0

kl3911:1/29
ta495/JiIJ

0242/32

~Jb1/Jj

10,,65/33

~4l14/33

10407/33

0238/27
k'261/316
00b7/33
0024/36
0013/45

1d242/27

0554/2~

~056/29

0240/32
0063/33
0037136
0253/49

113251/32

0206/32
10374/33
t621d8/J8

",235/30
10271/32
",567/35
"'245/39
10171/29
103 98 12 9
10506/JId

10327/29
1052 5 /2 9
1t141rl7/3J

IdJJ1/.:/44

160596/41
0 49 0/ 44

0.'0/26
0198/27

~052/27

1t11ge/28

00 68 /27
11)347/28

1021O512~

~470/J2

~51f)/J2

0~ol1J2

"'~26/22

0267/27
1d 556 /2 8

(0368/33
kl183/38
10258/49

0258/27
03 63 /2 9
0304/310

~308/JIti

0539/28
0J 7 fd/29
VJJ36/3W:J

0276/27
10 5 7 6 / 4 1

02gB/1t
0034/42

028itJ/27
00 58 / 4 2

0033
101103/27
0363/28
056g/J2

"'36~/26

0108/27
036./2 8
1t)571t:1/J2

0394/26
0122/27
03 6 5/2 8

0262/27
0 480 /2 8
0588/28
0324/29
0224/30

0 5 0 4 /28
1d61U 128
0'}27/29
0300/30

~2b2127

03 68 /2 9

~35(/11)7

01 8 5/2',
0 5 ",8/2 8

il!~44/28

103 95 /2 9

105({J2/JIO
1.1466/28

1011 7 1.2
0468/26

"'140/27

fOJ9b/29
1IJ497/JiIJ
0467/ 4 4

0032/29

\li2·1/30

0255/J~

~J82/32

038 8 / 3 2

1r:l591cl/35
"1016/ 4 0

IOIOfbc/45

10231/32

04716/44

0ft122/ ';"6

\6tl32f29
k'J41~/44

0161d/2Q

~269/2g

~286/2g

0334/29
0302/310
10.91/30

11)398/29
10308/310
10497/30
0368/33

0561/42

0368/29
0304/30
10490/30
i'J365/33
",607/48

0460/27
0 566 /2 8
1d288/29
0523/29
03.5/30
0502/30
1Il398/3J

13189/49

~192/49

0463/27
0 569 /2 8
0291/29
0525/29
0341130
0c31/J0
04101/3J
!d121/01

0~49/45

0 b48 /2 8

IdJ6~/3'"

",361130

02.2/32
1t1481/33
IrH 30/51

0245/32
030561J9

1TBL

0085

16397

?TEM~

0280/27
0561/45

01 54 /41

0178/41

1d427/41

0693/42

070b/42

1TIME

0250/27

025./27

03 7 8/39

ro.a!)4/39

0542/43

0292/49

1TNUM

02310/27
0153/33
0563/39

023 4 / 2 7
0042/3Q
0;51/141

1/)476/ 2 7
10(16·/39

Id371a/J0
0543/39

1t.11d2!)/.2

0334/30 1d33e/J0
0215/39 . ",406/39
klk187/45 ~122/45

01~2/.9

0.9 4 /16
0341C/34
10681/39
0196/49

1TT2

00610/27

0'-b0

0f538/a6

1C~52/a6

11)044/27

11'110/27

0690/32

1TT35

0037/27

0289

00 4 3/27

k!lId56/2~

1069./32

A

0020
0134/15
liH60/26
026 9 /30

0tlJJ1/1d6
0139/15
0163126
10277130
10379/31
01",6/35

0032/0 6
0142/15
0),66/26
0314/31
0365/32
" •• 1/35

0275/~7

0200/1'
10175/26
103.18/31
,,4 9 1/32
0267/36

02791'/)7
0.38/19
kl185/29

0 4 02/0 9
002·/23
klJ29/29
11353/31
L<.'261/J4
tj08o/37

032 4 /1 4
0457/25
kl176/30
10305/31
0424/34

0356/31

1I:11d81/35

0412/32

~347/J1

t:l239/J4
1d323/36

~21i:H~/45

0~g8/37

""""

CRU5S""RlFERENCE 5 YMBUl TAtH.E:
0110 5 /37
10234/37
0139/4V}
0159/41

ItH54/4~

101 48 /37
lOo51iJ/39
1a182/41d
"'034/41
10322/42
k14/6/42
1"123/45
IdJ55/46
",431/46

01 8 1/37
",082/39
Id29b/41d

",229/37
0105/40
",304/40
009k1/42

idJ3id/42
V)'071142
10443/45
.,373/46
1OV)16/47
"'413/50
10238/53
1Q522/54
"'232/56
10201/57
11:1209/08

k1189/31
0080/40
10298/410
10082/42
11:134kl/42
id2J9/43
.,612/45
",381/46
10138/47
V)424/50
"'1081/54
"'186/55
.,243/56
0293/57
11)468/58

0304/42
10340/44
073}/45
It)J93/46
11:1288/48
01348/01
10.31 9/54
04710/55
itJ2tH/56
11:1337/57
1(1371/59
A,10

001£14/07

0006/09

A000

050 5
01(149/3,8

Id425/fd 9
1025 8 /41

0219/34
0303/41

v; J Oli1l 34

14044/J'5

0231/35

~011/42

102405/42

1Cl272/4~

10441135
1i'022/b1

10 4 39/102
1i)lc'J12/1b

~5J8/15

0589/15
0.a45/16

CC5 9 2/15

(601 8 /15

~622/15

0 6 30/1 5

0 57 0/15
01d42/16

(O 58 0/15
k)td~4/16

~591d/15

105g1/15
k'J00J/16

0 6 0 8 /1t)

10",5 8 /16

16 6 42/35

Al

~024/16

raJ90/49

11:13id6/~1O

10290/52
10481/54
101c'J72/56
10447/56
04108/57
1e1441/59

"'071/53
10496/54
1O~81O/56

V)198/57
"'660/57
0442/59

~w)67/42

11:102 5 /16

AAA

0tc:)5J/21

1d035/21

AAAA

ccol0/20

11)471/20

ABCHK

0461/33
ItIb56/35

0299

0760/32

10472/33

IdJ42/35

061ro/35

ABCI(

0299

~471/07

0J03/09

16569/11

1d475/16

~279/32

ABR

1t1472/28

1d434/28

ABR1

0485/~8

'1)4 80/ 26

ABR2

0503/28

\t;)492/28

AbT

0158

1d609/2tj

AIHHY

1d 5 1 7

10 48 2/2 6

0356/29

10 4 0 5/ 32

10 47 0 / 3"5

ABUCO

03816/32

"'113/31

ACC5A

0293

0209/1113

0210/03

1()215/03

10260/.,3

ACCS!

0566/05

0~801105

1d593/05

1d608/05

ACCS2

0~94/05

0 574 /0 5

0 58 2/0 5

~5~i()/15

~342/42

01085/44
~624/45

0391/46
0481/47
0447/00
0143/:'4
k137~/b5

1024 0 /56
t(J32 9 /57
104810/58

~k)d5/16

0 44 1/ft/2
tdld17/16

A2

~.-

1035~/J7

01 4 1/37
0105i/38
tlJ177/41O
0263/41
03104/42
",383/42
10118/45
0292/46
04107/46

k1182/41
10105/42
16356/42
"'396/44
10751/40
10405/46
10605/48
"'317/51
"'33 9 /54
0491/55
(0415/56
'1)377/57
"'435/59

~1107/42

--

k'112/37

CROSSII!IREFERE.Nt.:.t:. SYMBOL TABLE

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

ACCSJ

0607/05

0615/165

ACCS4

0616/06

0573/05

Aces~

0618/05

~2~3

lii592/05

ACC56

0 6 2 9 /0 5

", 567 /0 0

0 6 21/165

ACC5A

02 9 1
0613/03
0721/03
0124/",4

0641/03
16724/03
1tl154/04

0645/03

0b~9/0J

~037/04

10272/05

ACC5T

0561/05

0291

ra317/05

A0810

0429/26

04;)6/26

ADL.EN

0081
0788/39

0027/28
0056/43
1()544/51

0217/31
0294/47

1d289/ob
0518/5(;

10585/57
0555/58
0783/39

w;41o/51

1079lt}/39
0b4o/51

VJ291/55

0536/51
026 6 /5t)

",158/58

ADL.OC

032 6 /03

' 00C!9/28
21080
0391/ 5 1 0~07/51
0332/52 ~268/55
05216/58 1r.l557/56

AOMU1

21585/15

~504/15

AOMU2

06 0 2/15

0586/15

AOMU:3

06116/1f5

0636/10

ADMU4

0 6 30/1 5

",6,,5/1 5

ADMU5

0633/15

01:)11 / 15

AEND

0532/04

1i/J477/~3

AL.e00

0446/06

"454/106

ALCOl

0424/06

0505/06

ALC02

0455/06

~43J/06

ALeo;,

04671166

001$58/06

AL.t;U4

0472/06

0.69/1136

AL.CO~

04al/iO

04EJ1/itl6

ALC06

0434/00

16504/06

0;)50/213

10599/51

0467/03

0 ti 3 8 /03

"'685/03

0~49/04

ffi670/163
16062/164

0287/05

10017/1f>

16219/31

16258/31
16389/61

1').1165/51

106160/51

0298/52

1tl~24/52

t.1592/57

.,629/57

~631/57

0149/58

0055/43

0293/47

(r)381/51

~587/57

'(Joe3/51
\1634/57

"121/ 52

(r)300/52
1ilJ1blb/58

10 0 2 4 /15

16 6 2 8 /15

0 4 11/laJ

0379/&1

0601/15

0 6 20/15

~1704/03

0502/06

21 564 /03

0709/~';

~076/04

~0871'()(J,

0259/31

0781/39
0414/51

IDl fH/58

03310/52

"-

,.",,.,

--------

CROSS ... RE.FERENCE SYMBOl.,. TAijLE

Al.Co 1

16493/1(16

0466/lr1o

0471/iQ6

ALCOM

0196/02

0436/00

~4419/1d6

ALI

0144

0632/05

0414/29

ANN,A

\(1652/48

052 8 /4 8

ANN.L

10653/48

10567/46

ANNl

0561O/4ij

~5.fOI48

ANN2

10564/48

~529/48

ANNJ

105610/48

10563/48

ANN4

0587/48

~59J/48

ANN5

10594/48

10591/48

ANN6

06102/48

fd619/48

ANN7

061b/46

~611/48

ANNel

1.:1626/48

~6J7/48

ANNC2

1!!64b/48

fd642/48

ANNC-S

10648/48

11644/48

ANNCH

0622/ 48
",59 9 /43

10582/48
10651/48

ANNJ"

0654/418

0600/48

ANOl

0266

0JJb/~4

APP01

102 78/38

02 6 7/J8

APPI02

0291/38

~2ijl/38

APPl

roJ4o/~a

"3 26 /03 8

APP10

l.:1034113~

10316/Jij

·APP2

0394/ J 6

I(JJ,3/38

APPJ

0433/38

1d4109/J8

APP5

10384/38

0377/38

APPb

1d440/J8

~440/J8

0001/07

00.8/lCS

fiU89/36

fc)586/48

10592/48

0595/48

0b70/48

0650/48

0584/48

~381d/38

0388/38

0597/48

C;:HUSS-RE.FEHENCE

"""

S,(Mt;O~

TABL.E.

APP7

0359/38

10349/38

APP8

0J68/38

0;)58/38

APP9

11'-421/38

'-'4 00 /Je

APPOP

0446/38

0354/38

APPL,S

045°/38

0297/J8

04011$l1J8

APPS

0451/38

~384/38

VI .,911 38

APTR1

000 6 /07

102~21~6

APTH2

01010 5 /07

0231/",8

ARt:iAS

000 3 /12

043 5 /12

AHlG

01iH,0/102

1/)57 7 /28

ARGl

00 58 /14

00 48 /1 4

ARG2

00 49 /14

00 57 /1 4

AHIN1

~121/)116

0100/16

AHIN2

01010/16

0097/16

AHIN3

0122/16

00'HJ/1 6

A~lNV

0110 / 02
0047/19

~156/20

IcH21 / 16
10343/20

012 5 /1 6

k1la 86/ 1 8

026ti/1 8

Q006/20

0024'02

",)56'02

0J 8 1/0a

""J3/", ..

~118/~5

",,'4,8"

tU J~,.,

1IJ163/~4

"'Uill'"''

0 0 3 8 /04
00 46 /0 5

03 99 /03
00 56 /iC 5

10 4 08/03

(0410/03

~1I.I64/105

10131/11 5

0090/04
10146/0 5

,,,'32'05
1121 8 1/0 5

0034/05
01 69 /0 5

",62 4 /11

0 4 03/11

10 44 5/11

",011/11

04~J/~2

0446/11
VJJJJ/Jo

0512/11

IOtdJ/11

052 7/11

"'53 0 / 11

007~/35

VJ092/J5
035 6 /35

00;'9/35

00 .. 7130

1d~98/35

k)140/35

~151/35

~153/35

.,1 57/ 35

0218/35
028121/35

0233/35

01 b5/ 36

i02J7/35

0146/35
1d1 65 /35
1a255/35

0149/35
02ra 6/ 35
0266/35

k)297/3~

0235/35
13J18/35

112159/35
0240/35

0331
01 98 / 4 1

0280/2b
1211.2 9 / 45

~291/26

4150 7 /27
~248/46

0039/J0
",492/48

0145/32

0168/45

~E,41/~2

0139/41
0511.1/54

0620/28

0076/2S1

ARRI0

01 47 /04

ARyAO
ASBFA
ASt:ifP
ASbUF

ASC0.,
ASC0t:i

~J81/11

kl4 0 5/Ja

\01 9 °/29

105~5/j0

0111/1 0

((1133/13

.

~.

,,.,,,,,

---

~

i

CROSS ... REFERENCt. SYMBOL TASL.E

ASCBIO

"'278/4~

01tt8/46

ASCBA

10024/213

10069/29

ASCBB

10327

"'~28/J6

ASCC

kl242/41

00i2/41

ASCEfoI

052kl/16

10325/16

ASCF

024.3/41

0099/41

ASCFt-

k:l623/28

1()065/29

ASCIN

0622/28

10063/29

ASCP

0244/41

16108/41

ASCS

k:l240/41

0117/41

ASCSS

10279/46

ASFIH

0368/31;

kH!'1J81 :.15

ASFCB

1034tt/35
1d2 85 /30
10301/35
",32 4 /35
1113.30/";5

",~53/35

102 88 /.35
k)31,!H3/.35
!fJ32 0 /3b
ki3371J5

ASGNA

"'1044/31

1/)121/31

ASINP

",292/02

",{()71/'IJ7

ASNl

0041/35

ASNlk:l

0227/35

1cl223/35

ASN11

0237/35

10 212/..;5

ASN12

0297/35

1(1284/30

ASN13

031 4 /35

1d2 96 / 35

ASN14

0J41/J5

0123/35

ASN2

"049/35

ASN20

1008 7 /j5

"'11178/35

ASN21

0092/~5

0001/35

ASN22

0"'96/36

'11091/35

",614/39

ItU 3 2/ 45

",71d/45

0469/48

0268/35
10289/3 5
1031'0135
IclJ21/35
0339/35

02 69 /35

0272/35
102 9 3/.35
10313/35

1/)273/36
1rJ2 i4 /35
0314/35

~329/J5

~331/35

0332/09

~2J2/35

~2g1/35

10312/35
10328/35

04kJ2/11

1/)2 79 /35
0295/35
",323/35
",332/35

r

........ , ..

CfWSS .. REFERENCE

SYMbOL TAt;;L.E

ASN2J

0111/35

1<1108/35

ASN24

0113/35

oU!8/35

ASN25

013f::il35

0132/36

ASN2Q

0122/35

0116/3b

ASN26

0340/35

ASN3

0114/35

~144/35

ASNJ0

0248/35

"'242/,,5

ASNJ1

0252/35

024 6 /.35

ASNJ2

0254/35

0247 / 35

ASN4

0124/35

1{)112/35

ASN5

0147/35

ASN5 1l1

01 79 /J5

ASN6

0205/;'5

~225/35

ASr-.7

020 9 /35

021 6 /35

ASN9

0218/35

"'214/J~

ASNFS

0350/J5

~H97/35

ASNlS

0121/31

0491/11

ASNIIJ

0351/35
0229/35

13244/35

ASNlF

0357/35

0203/,35

ASNS

035 8 /05

0514/klO

ASNS4

0366/05

ASNSP

1d34 7/ 35

01H8/J~

ASORI)

034 9 /35

1tl050/J5

i(J194/35

ASSAV

0355 / 35

0059/J5

[01 4 2 / 35

"'32°/35

ASSCH

035 4 /35

0299/35

0303/35

IOJl1/35

ASSOP

0Q0~/~4

iJ1c/03

0J83/03

0023/03

ASTEP

0540/04

0541/",3

~kl27/35

0137/35

02210/35

I{)208/35

0031/35

11.1041/35

~228/J5

0249/35

01662/35

"'135/35

0098/04

.,)91/04

0161/35

",. .. ,.,

CROSS",REfERENCE SYMBOL TAbLE

ASTYP

0494/02

0417/11

0434/11

ASUf-S

0J53/35

019J/J5

0209/35

ASYMT

"'071.1/ 16 2

030J/~2

0J01 /167

AlAS

0279

0391/06

0479/21

ATHEN

0459

k:l5107/0J

AT 1M

0257/~2

0255/11

~)263/11

ATMP

fd20J/02
VJ26 4 /15

16419/02
1040 9 /15

1.1198/08

020 j/08

0222/06

1!12J2/ i0 8

10 42 0 /"2
13461/15

04b7/11
10201/20

0460/11
1iJ2QJ7/20

0~JH/l1

111262/15

1d214/20

kl029/06
kl400/ldl=l
0141111
10192/11
fiH75/10
04103/15
10478/15
10235/26

03 9 9/0 6
IcIHJ6/1l
0104/11
10225/11
16168/10
1(J424/10
0!al5/21
",279/20
11;')060/28
",495/28
10189/29

04161/06
0106/11
1(.1167/11
164166/11

0021
0341/169
1.1134/11
",184/11
Io!)J61/14
16391/15
",472/15
",16 6 /21
1046 8 /27
16283/28
060 6 /26
16323/29

040 8 /,,5
10349/09

~326/29

~J30/29

~0107/30

~3I1Jl/J'.a

td3105/Je
1!l043/32
02 44 /32
1032td/J2
IdJ89/"2

kiJ09/""

1(1325/31
101099/32
"'2 5 2/32
,,345/32
",407/32
1(J406/33
11:1298/34
td126/35
10444/35
1d568/35
0214/36
0156/37
10496/37
0169/38
td216/J9
10566/39
1(J018/41u
f(J1()96/41
1d355/41
1d51d1/41
16242/42
td076/4J
1c'J1d14/44
10469/44
1d505/44

05.,0/31
.,2 4 10/ 32
~3\12/J2
~384/32
~306/J3

1d281O/J4
1tJ45 9 /34
16J 96 /JO
~514/3f;

1d117/36
1(.1320/3<>
0214/37
vJ114/36
1d302/3t1
0285/39

1()649/J9
111152/40
10279/ 4 1
~391141

1d1059/42
",562/42
02~1143

1042J/44
0491/44
10191/4!S
....._ . - '

k:1W42/30

~llJ9/11

"188/11
"'1 04 /10
1d4101/15
0474/15
10206/26
'()4l7/27
16J58/28
101045/29

~31\1/3J
102~4/34

1IJ475/34
0413/35
1(1553/35
IcH50/J6
v.l122/3l
0318/31
10123/38
103106/38
10288/39
0765/39
10179/4VJ
VJ31C>2/41
10472/41
:a118/42
td576/42
WJ374/4J
~457/44

"'494/44
~271/45

0506/~7

k:l471128
k'!186/29
~044/32

0247/32
0J23/32
kiJ91/32
IOJ14/33
0294/34
VJ477/34
~421130

0556/35
tit5 4 /J6
~124/37

klJ82/37
0166/38
IlIJ75/38
10292/39
0072/40
1054J/41(J
(d328/41
k'J479/41
0119/42
0026/43
IOJ98/43
0460/44
10497/44
t\oJ7/4!)

td66J/4~

r:l238/1~

16429/15
0081/21
10290/~6

",,,,71/28
10498/28
10309/29
10182/J!a
10326/31
10114/32
1C>2 54 /J2
0346/32
104.,8/32
",409/3J
ICJJ1d4/31
101310:'1/35
1048"/35
td092/35
1i2231lJb
td156/37
"'062/36
1111 84/38
11:1230/39
kJ567/39
Id096/4f(J
1(1105/41
IOJ72/41
l(J~lv.1/42
IdJ~0/42

Idl1"'/43
!a07"/44
\1472/44

0075/0 8
16123/11
11:1172/11
1(J423/11
162816/15
"'431/15
"'1683/21
10402/27
1d217/28
16600/28
10318/29
1(J262/30
11:1411/31
1.11 44 /32
td267/32
td3 69 /J2
10 496 / 3 2
1d41 4 / 3J
1044~/34

1tJ1j4/JO
10501/35
10641135
1d281136
10166/31
10086/36
\121\1/38
"'231/39
10042/39
0102/40
1D114/41

1.1376/41
1d026/42
VJ477/42
10139/43
~29J/44

VJ477/44

0345/169
10129/11
1c1179/11
1o!)347/14
0314/15
0 4 35/15
1(J186/21
16466/27
r:l227/28
1.1606/28
0·319/29
.,29b/30
1IJ463/Jl
1/:1233/"2
0272/32
0374/32
1606 4 /33
0242/34
0454/34
1c113 9 /J5
0 5 100/35
064 8 /35
0318/36
1d212/37
",110/36
0,as~9/38

10269/39

.,645/39
1d131/4(d
0276/41
.,J79/41
01035/42
tdb49/42
02!)4/43
"'411/44
1d488/44

100~9144

~128/40

01910/45

td19td/46

102110/46

k?21H/46

,,..,

..

CR(,lSS ... RE.FE.RE.NCE
0227/46
(tJ51/47
11:1643/48
0111150
0",51/01
0180/52

1d201102

0284/51
1t)252/52

0381/52
11')419/02
0127/53

;d387/f;>2

~Jge/52

0422/02

0 4 51/52
0138/03

SY"'l~OL

IlIJb6/4b

khH 7/47

tCkl d t)147

tO~78/"'1

1!J43!;)/47

1.10101/47

ItH 93/~9
1d2f,4/l>1O
1d280/f:ll

10254/49

td2~9/49

0J24/o~

10426/50
1012fl8/bl

0;.!bl/52
~403/b2
~4~6/52

id;.41/53

iblJ0/!;j
1,'183/03

11186153

ldlti8/0J

IdJ24/t>:~

0J40103

~J44103

0J83/tiJ
1r'J21 6 /54
I()J13,54
0064/55

",08f$/54

1('132/54

~231/54

",362/54
\1!do9/55

td212/54
10364/54
1tJ073/5b

0",85155
13141/55

.,,,e6/55

10096/55

~1~4/55

~170/05

021"'/55

",24b/55
0437/55
-'030/56

0251/55
w:J439/55

~106106

0111156

043"3/66

lor"~0/57

10160/~7

~16J/57

lU 95/51

10208/51
liIaea/07
(;,560/57

~H76/!:13

0321/53
"'380/ 5 3
0212/54
0311d/o4
IcHH)~/55

k}J61O/55
002 9 /56
00 89 /56
0290/56
"'lb b /57
liH 94/57
0227/07
1d541/57

~kl4rcJ/56

10115/55
1d1 7 6/55
ft)J1J/55
0444/56
1c)v; 49 / 56
0143/56
1d094/57
1011'1/51

TA~I..E

11:111 9 / 04 7
1d504/47
1a271/49
1d440150
ttJ425/51
1!'l280/52
10406/52
1d.,72/b3
1d149/53
0191/b3
",348/53
1d177/54
102813/54
10425/54
~1tJ75/55

10121/55
",190/55
10316/55
k'l451D/55
",.,52/56
IrH68/56

10102/57
10176/57
1c)214/0/
.395/07
10600/67
1004e/o8

1t139/47
id!fd2/48
ltJ;lSg /49
0455/5fd
11')154/52
11')281/02
1d409/52
011012/53
10167/53
1I12b1/53
1a358/ 0 3
10192/54
!e289/54
",fj09/54
",,,,78/55
111132/55
0195/55
k}J19/55
k}454/ 55
0k'55/56
101172/56
~105/57

0314/47
~b08/4d

0396/49
0~41/b).

01b9/52
0284/52
1d41f)/!)2
~12J/5~"

0172/53
1d2bJ;5~

IdJb9;!J3
~2k'18/t>4

",30 9 / 54
I,H'30 / '15

0"1081/05
0135/55
02104/55

0357/55

0034/55
01058/56
01222/56
1tJ141157
10186/57
022 5 / 5 7

10 . 31 4/09

16420/58
10530/58
10428/59

1d184/57
"'217/57
.511/6.1
10(113/57
0054/68
tat 14/58
1a424/58
1d5J5/58
0444/59

10 4 33/21

1O~64/26

~406/41

0122/42

0b9 3 / 4 2

f(10 99 /0 8

0036/11

0453/11

"'~5J/15

033 0 /15

kl255/21

02 68 /21

0278/21

001d5/26

1(1'18/27

0196/27

SlJ0K

001210/26

U120/27

Ijil3

",252/05

0291/04

tH40

0616/28

01n~1/3Vl

B160K

011:107/26

10101/27

1:;175

0 684 /51

",585/51

8177

0225

~199/!66

0373/06

idJb9/15~

kl13~/27

~1"1/27

~145/27

k1286/28

0400/21
1d361/28

10263/22
101642/33

0229/26
0b32/34

112;53/57
1d549/51

1c)211/~)7

~618/~7

~643/57

101074/58

1d061/58

~661/57
~1~94/58

162~J/58

:o3A8/~8

",4~4/58

0345/51
0565/51
IOb54/57
100\:19/58
10 4 1 6 /08

k}43 7 /f)8
0288/59

k'441/58

1!1.~5/5~

0500/08

~293/~19

",,295/59

0457

0516

0229
0391/15

0519

Bl~0

frH:192/21

B120K

B100

0112/b8

1528/07
0615151
0k'164/58

1112"''''/58
0433/08

111285/59

016./.'
81000

\lj45~/15

:

,,,,,,1/1

CROSS-REFERENCt:. SYMIjOL TABLE
164 65 / 4 1

0 557 141

\i?310/43

IdlJ2/46

1"154/ 4 6

023 4 / 47

1d0J4/ 4 8

0337
10120/42

~012/29

16235/34
0693/40

16437135
16",92/46

0~55/J8

028"'/41
160271':>1

~409/41

0475/48

1r:t1d44 10 1

V,1220
It:I165/34

~517

~284/22
019~/52

16362/28

IdJ14/52

0368/20
10531/52

iUJ1/27

1d581/51

~2001()

10345

",5165

0520

~140/06

ft)032/11

051G11/11

01d8 5 /14'

B2ldM

16230

16523

B300VJ

16341

l1143/06

0034/11

161098/17

B30M

0231

007 9 /21

0474/26

0603/28

0~64/J9

0219/~9

0224/09
0192/12
0224/14
0455/15
0398/2'"
16382/25
0 4 30/35

0JIc)J/11c)

0142/12
10210 8 114
020 6 /15
0272/210
10033/23
11)171/32

16252/11
16434/12
027 8 /14
16435/16
16590/21
10414/3'"
0339/41

033 8 /11
",,,,70/13
",301114
rt281iJ/19
160210/21
1d47b/J'"

~6Hl/41

~~40/42

10234/14
10119116
10135/21
13075/27
IcH:l25/41
0049/42

"1157/11
10417/1<
10260/14
16428/16
10055/21
1d465/28
14028141
11'017/42

062~/42

05108/ 4 5

1018f(J/34

IOJ71ti/4ti

B1777
~201c:'

~377

0227
1()426/11
·1,1162/14
~J21114

1()231/21t)
",292/22
101 68 /32
10007/41
vJ511/45

-----

~016/44

1d290/22

~408/12

1iJ342/~1

B37TK

0638/32

04 65 /32

1:)4",,,,

022 8
'1213/44

~518

042 4 /44

0103 / 1 0
01081/f)2

0 49 0 / 19
16357/52

k)4 9 5/1 9

051vJ/19

B400'"

0429

",521

16227/11

~lr!!b8/12

~441/26

1:)039/2 8

B40tt1

001d4/1G

1c?095/16

663

~091/2~

0396/21

B72

10222

"'~IdJ/42

0451/46

B73

0417

k)o14/ldJ

0671/03

[£1027/04

007ld/04

10144/06

B77

0427
0257/26
1d311/43

022 4 /12

0241/12
0286/37
0325/40

0038/17

0~70/J0

",~52/41

fd059/26
1IJ275/42

10375/46

10102/47

006bl26
1032 4 /42
"'029/48

(d226/26
Idld09/43
",312/ 5 0

0119/04

W;437/1r25

ki089/10

0155/10

",313/16

1d542/o2

t)149/46
I:)ld17/5!i1

8776

005"'/21

0047/21

8777

10:1273
1()452/41

",388/03
IIH21/46

BASSU

ICJJ14/13

I:)JUt/13

..........

,

CROSS""REfERENCE SYMBOL TABL.E

BAUDH

k1J94/b9

~181/59

BAUDL.

-,39!;/5~

1C1 77 /b9

BB13J

~25!;/05

"4~4/",5

B8776

0~~!;/21

0012/22

BBBS

~511120

0479/20

bCKSP

~160/02

k:l510/16

0323/02
l10J0/0 4
1/l4104/166
10394/19

BDIRU

0441/57

1d0a8/57

BES1

012130/57

0045/57

BES10

16144/57

"'064/57

BE.S 11

0182/57

16178/57

BES12

0301/57

iJ237/57

16297/57

bES13

0307/57

0108/57

0300/57

BESl5

012"'/51

~315/57

I:H:.S2

0060/57

0050/51

BES3

01066/57

10026/67

BES4

01673/57

id313/57

BESS

0086/57

16092/07

BESt>

0111/57

0084/57

BES7

011 6 /57

00tS 9 /57

"ES8

0126/57

1"119/57

BE.S9

1(;l140/57

0075/57

BESg8

16317/57

0246/57

BES99

0459/57

fdJ22/57

BESC

0445/57

0034/57

0044/57

tjES04

0450/57

"'062/57

0,,99/57

ijES05

0451/57

101663/67

~ 11tH 157

~714/k1J

12132 4 /105

0k'8J/v)4

fd30 8 /1i1J
kU 4 1/0 4

01038/167

11:1274/116

025/121

k'J270/21

~261/03

0484/163
1d226/fd5
id320/10

16617/1213
id2 4 kl/fd 5
10289/11

0674/03

10142/51

~197/t)7

1cJ221/rJ7

14224/57

~143/57

10145/57

lli?05/57

02 68 /1£l5

0237/12

01£19/57

0403/57

1t1097/57

0114/57

"',

-~-

..

CRUSS ... REfEREI'-4Ct:.

SYM~OL

TAdLE

BESOt:.

13453/57

11~IR/!>7

0121/!>7

d31ab/57

BESDS

10443/57

"'210/57

0218/57

VJ217/fJI

0335/57

klJ4J/57

BESj)U

0449/51

0212/51

0274/57

BESEA

0414/57

fcl057/57

0417/57

BfStl:j

1::l411:j/!)7

13123/57

0421/57

BESEC

0422/57

10127/b7

0425/57

BESED

k?426/57

10355/57

13429/57

BESEt.

043kl/b7

kl179/57

0433/57

BESE~

0434/!)7

10411/57

0437/57

BESf

13447/57

(11330/57

ftl3 7 1/57

03 ti 3/57

k'396/57

k'405/57

BESFA

13417/57

10165t;/57

~ESfb

1d421/57

10124/57

BESfC

0425/57

~128/57

BESFD

0429/57

(:1356/57

BESfE

0433/57

018~/57

BESFt

10437/57

r;412/57

tiES!1

10342/51

10353/51

t;ESI2

10354/57

0331/07

0J44/57

10351/57

BESIL

0129/57

(:}~59/57

0125/57

0181/57

1.1357/57

kl41J/57

BESIS

ld32b/57

~lb9/!>7

131910/57

10349/57

BESlw

IdJ61/5?

!d187/ti7

0196/57

II)Jbb/57

BESLN

0448/57

VJt54/b7

0172/57

IeH85/57

0192/57

tH:.SM~

10454/57

0054/57

0"'68/57

0118/!)7

(0312/57

BESUI

0452/57

1d1321/57

0188/57

103.,9/57

BESUV

10439/57

fJ32kl/57

BESP

.,440/57
1/1205/57

:0032/57

01039/57

1d",40/57

0042/57

11)043/ 57

",2",9/07

.....-

CROSS.HEFEREN(;E SYMBOl.. TAtll.E

~ESH

0J70/!S7

0031157

tlESRl

f(J374/57

"'Jet/57

~ESR2

0398/57

~J85/57

BESR3

0394/57

Ii) ttftJ 3 157

BESR4

0407/57

0 3 7 6 /57

BESR!)

0382/!S7

"409/57

BESRb

0410/57

~ESH'D

k1373/57

10397/57

1t140b/~7

0 4 06/13

",41 4 /13

0 4 17/13

.,4,,7/13
1IJ3ilc)/14

,,415/13

0~19/1J

fIl04 9 /1 4

0330/13
10070/14

1IJ336/13
tiH21/14

0 355 /13
0J86/14

012J/15
02 99 /1 8
"11',)54/2 8
10234/35
0110/37

10\89/15
0 45 2/1 9
It\:i73/2 8
"'24J/35
01 46 /37
",,,81/ 39
111362/ 43
"'256/52

020 7 /15
0 483 /1 9
",169/34

0041/57

0046/57

0389/57

algi/57

0400/57

0-455/57

0aJ2/57

0292/57

1113.,5/57

~ESWD

0444/57

kH 4 8/57

0281/57

HfE

0526/28

"'.36/a8

SF I..

0515/28

0435/28

BINOI

~266/02

036a/13
"'0g4/14

fc1381/1J

fd3~2/13

113418/13

1d387/14

10392/14

6INQ2

02 67 /02
01370/14

dlO3/13
0079/14

0J83/13
Befi5/14

6INOfo1

0112/02

02 68 /02

0~HS/13

~378/13

~e45/14

00 5 4/14

k132 4 /13
1D0 6 6/14

IdJ88/14

BIT14

0232

"47~/15

0303/32

0121/59

BITlb

0504
1021'/15
0 5 2 7 /19
0293/34
1d5 79 /35
131 95 /38
0326/39
10303/44
0284/54

0J43/0 g
031 5 /1 5
024 8 /21
0397/34
0224/38
0.82/39
.,,,11/48
"'&3"1:'6

0107/11
",398/1 5
00 8 9/27
04.1 9 /34
0319/36
035J/38
0701/39
0348/ 4i

0411114
0 43 2/1 5
00 9 2/27
01 6 4/30
111424/36
0363/38
10283/40.
0407/4g

~030/06

IQIr)Jl/!>9

~11J/:"9

SKS

0151

0392/19

010S/30

k(443/311)

0319/41

SKSPC

0Ii":l8/26

0156/27

BL.ANK

02 45/0 2
16286/11
0024/24

0.465/05

"3.47/11
.,,323/25

0483/05
0390/11

"2 5 2 / 10
10309/12
11)640/:$5

1c1322110
.,,41'/19

0110/06

0116/la6

BI..Ol1

k15~6/35

~385/2b

0119106

~4.42/38

1IJ482/41d
11)418/49

16393/36

Id~H6/J5

01 78 / 37
0J1 9 /39
0166 9 / 44
liU03/&4

111027/42

IOJ63/10

14.7f5/19
11)346/39

02 8 2 / 11
0368/23

,.",,.,

CRUS~ .. RE.FERENC;t.

tiYMBOL TAbLE

t;L012

1r1114/"'0

"'11!:l0/ldb

ftH~2/06

BLOIN

0172/1.12
"'256/21

03b6/kl2
.1271/21

"'27ld/",3

0401/11)3

BM501

0440/57

"'318/07

BREG

0007/02

0663/26

10191/29

ld5((Jl/30

BREK1

0425/59

0419/09

BREK2

td447/~9

040$7/59

dREKo$

"'451/59

04 4 9/69

BRKOG

0456/09

0410/59

0420/59

1&1464/59

SRKP~

0478/59

0413/69

0426/59

0431/59

BRKPO

11:1471159

1t;l469/59

4'1472/59

BRKSP

0461/59

"'417/ 0 9

0421/ 5 9

0474/ 59

SS1

041"'/02
",2 5 1/1 1
028tS/17
",35 5 /1 1
00105/16
k1174/16

0169/17
",252/1 7
102 94 /17

~211/17

~253/17

11)223/17
102 6 0/1 7
",3102/17
11)3 88 /17
10(022/1 8

0411/"'2
102 45 /1 J
",290/17
",394/17
vlvH:') 8 I 1 6

01 85 /1 7
02 49 /17
11:1296/11
",3 99 /17
k>010/16

0222/17
02 5 0/17
0297/17
0400/17

~412/1l12

11:'1 97 /17
k!2 66 /1 7

bS2

t;SJ

~356/17

1000 6 /16

0080/1O~

1/J121/fdo

10"'39/07

0438/59

0471U59

0473/59

0227/17
0260/1 7
1030 6 /17
1fJ392/17

0230/17
02 79 /1 7
121353/17
0411/17

1!l026/18

1r:1230/17
102 75 /17
103",9/17
10393/17
10051D/16

I!lld6111/18

022 8 /17
.,2 66 /1;
10321/17
10415/17

022 9 /11
02 67 /17
",J14/17
11)417/17

1623 4 /17
0289/17
0J86/17
0004/16

~ftl62/16

0226/17
102 6 1/1 7
1t)319/11
0405/17
",116/1 8
0216/1 7
1/J 2b 0/1 7
0326/17
",246/18

0218/17
0290/11
16023/18
k225tc'J/t6

0221/17
02 9 1/17
1001119/18

0247/17
0 299 /17
0tCt54/16

k2194/1t0

1cJ200/20

02,,3/20

03!d1/17
10361/17
10007/18

02 48 /1 7
03103/17
\1063/16

",.h:) 5 I 17

~1~4/18

0213/17
1112 78 /17
0322/17
0112118

lHMP

026 4 /02

~421/02

0422/kl2

0193/20

BYBY

0541/39

10423/39

ByE.

0052/31

",474/29

kl220/JIt)

",311/30

tHE1

fc:I5b9/;)9

0514/39

BYE2

f0414/39

ftl409/J9

BYE3

0555/39

~551/39

BYE4

f0558/39

0554/39

",274/18

...... " ..

CROSS.REFERENCE SYMBUL TABLE

tHlID

0512/39

KJ424/39

~iYEM

0576/39

0539/39

tHEPT

0575/39

0436/39

BYESP

057ij/39

0433/39

BvEr

0574/39

0491/39

0495/39

0525/39

0528/39

0531/39

0534/39

BVETM

liH573/39
0470/39

0458/;;,9

04ee/39
~486/39

0462/39
0492/39

0463/3 9
~506/39

0465/3 9
",522/39

0466/39

~471/39

044"'/02
0016/16

0542/15

05g3/1b
0052/16

0596/15

000J/15

0612/15

0014/16

"018/16

C2

11:1442/02
0020116

0554/15
0023/16

0519/15
0021/16

0594/15
0060/16

0595/15

0609/15

liH:l13/16

l;ARRO

031 9 /26
1623 3 /26
""281/26

ItH68/26
14234/26
0262/26

0111/26
0238/26
0292/26

0204/26
.,2 39 /26
10293/20

0205/26
~261/26

0222/26
02 69 /26

022J;,26
0271/26

0~H8/26

ru e0/26

rU'1/20

0211/26

,,244/26

,,250/26

0252/26

026~/26

1r)270/26

CARRY

0265/26

0181/26

01gJ/26

0213/26

0246/26

1iJ267/26

0272/26

CAT

00t)6/31

0493/28

CAT00

001 7 / 4 1

/r)034/41

tATl1

0fr)2i/41

18J2/41

CAll

003 8 / 4 1

iU87/41

0257/41

0273/41

CATliC'

0061/41

0HH/41

0226/41

CAT11

020 4 / 4 1

0063/41

0209/ 4 1

CAT12

0072/41

0066/41

11:1260/41

CAT13

0068/41

0218/41

CAT15

0079/41

0066/41

CAT2

0043/41

1d041/41

CAT20

0094/41

0091/41

tAT21

16102/41

i'09J/41

CAT22

005 9 /41

"265/41

Cl

CARRS

0481/3g

0517/Jg

04g7/3g

0259/41

,,"''',.f/I

CROSS .. f/21

Cd029/21

eecc

",518/20

ft'I483/20

CDFLG

"'349/02

0339/163

0J47/03

",511

01g~/03

0238/21

0j(d4/33

0533/33

0023/40

'0015/45
'4 8 J/0 7

0385/0 7

10039/36
CH1

0031
0458/J2

0458/26
0179/49

0426/28
04 6 2/49

04~1/28

fd464/28

0581/28

0213/29

CH2

01632
0466/2 6
1640 8 /28
0 4 2 8 /30
057 8 /32
0549/39
0423/45
0274/48

rQ410/1 9

02rt14/29
",430/30
0579/32
0005/43
",425/45
0633/48

0412/19
0308/28
",211/29
04 6 0/32
0611/32
11:1007/43
0098/47
10635/48

0363/26
03116/28
0457/29
16 46 1/J2
",633/32
0223/45
0100/47

"'450/26
10404/28
0459/29
1d462/32
01!§7/33
",225/45
1IJ261/48

"'461/26
0406/28
0011/31C'1
fd464/J2
46159/33
0412/45

0465/26
0407/28
0'cH3/30
l607b/32
16547/39
0414/45
0272/48

CHAM

"1132/49

fc)105/49

0110149

0153/49

CHAl

0034/49

"'039/49

CHAI"

0113/49

0076/49

0086/49

16092/49

eHAa

0041/49

0035/4 9

CHA2i;

0051/49

0041/49

CHA3

0057/49

003 8 /4 9

eHA4

16073/49

fc)01!J9/49

CHA5

0097/49

0063/4 9

0078/49

0088 / 49

CHAo

0091/49

0063/49

CHA7

013 5 /49

0154/49

CHAC

0158/49

0072/49

0081/49

CHAO

"1 59 /49

01 4 1/ 49

014~/49

CHAIl

0157/49

00,g/49

0069/4g

k1097/4g

CHAII)

0156/49
0074/49
0134/49

0058/49
"",79/49
1tJ142/49

0065/49
0080/49
1Q149/49

0066/49
01684/49

0392/35

0J79/35

CFL.AG

CHAN0

05G9/26

~2bJ/48

fc:)131/49

"'067/49
01699/49

0068/49
"'106/49

0070/49
010//49

.....,

CRUSS.~tfEHENCt.

CHAN2

~446/35

0432/35

CHAN3

~451/35

k)435/35

CHAN4

td465/30

0~,23/3t1

CHAN5

0474/35

0469/35

CHANe

0634/35

06 29/ 35

CHAN7

0655/35

~480/35

CHAN6

0638/35

k1650/35

CHAN9

0642/35

k)623/35

CHANS

0292/05

.:15371105

CHESl

0195/20

0211/20

CHEB2

0212/2~

fd19~/20

CHLI~

1cl121cl/31

.,015/12

CHN0fd

0411/35

0410/30

CHN01

0377/35

0391/35

CHN10

ki51J/3!)

05103/30

CHN11

fd546/3~

0535/35

CMN12

0594/35

V:l576/J5

CHN13

0599/35

tl568/,35

CHN14

0490/35

0485/35

CHN 15

0589/35

1c'J59b/J5

CHN16

0651/ 3 5

10565/35

CHN17

~405/35

0,399/35

CHN18

053 7/ 3 5

053 2 /,30

CHN19

0541/3~

1lJ536/35

CHNC

0667/.15

0569/35

0591/3b

CHND

066~/,35

0554/35

k'l574/35

CHND.1

"'6710/35

0557 /3 5

0658/35

SYMBOL

TA~LE

~/

--

...

--

0489/35

10631/35

0540/35

fd4~5/35

fd045/35

059J/3b

.........

CROSS.Rt.FERENtE SyMBOL TA8LE

CHNOP

1d65S/35

~58"/35

CHNFG

0519

0Jil7/09

04'J/16

0474/33

0618/35

0643/35

CHNI

0666/35
0605/36

0J94/35
:a607/J5

0405/J5

0486/035

0599/35

0600/35

0604/35

CHNLN

0668/35

0525/35

0513/35

CHNP

0004/3!)
0651/36

0J73/3~

0400/35

0408/35

0414/35

1(1558/35

0500/35

0652/35

CHNPO

0665/35

0481/35

CHOUl

0037/22

0030/22

CHOU;

0180/02

0331/02

"036/22

1&10 J 6/22

12"39/22

0040/22

0301/22

0",,7/11
01 7 7/li

0388/11

0216/12

0378/19

02961 H~
00 67 /19
0442/19

022 9 /12
", 35 0/1 9

0414/16
0 37J /1 9

CHRS1

0466/05

0479/05

CHRS2

04 76 /06

0473/e 5

CHRSJ

04 8 0 / 05

04 67/ 05

0 47 0 / ,,5

CHRSl

0040/02

~J86/e2

CHS

054 4 /13

"'283/59

i;L.AOR

eaJa/al

rllle2/aa

CLe0

06156/28

0651/28

CLC1

066 6 /28
0716/32

CLC2

(0549/35

~30b/22

CHRCT

0244/02
0025/1 9

~470/19

~J29/19

~J40/19

11:1518/19

0460/21

04~2/03

10185/05

~36J

0~U57 128

0671/28

0367

0163/29

eL.F"

04 45 /26

041110/26

CLKOR

1tJ264

0037

CLKEO

0662/28

0555 / 26

CLKIN

0648/28

0264

CLN1

0af{) 7/ 28

klle9/28

CL N1P

024"'/28

~2011l/28

i~25/25

0339/25

0286/1tJ5

048"/05

0484/05

0679/28

0164/29

,,377/30

0fH 1/10

0~'1/26

0555/20

067"'/28

0e-8"'/28

0715/ 3 2

022"'/28

°24 0/ 28

0564/26

...".

CROSS.REFERENCE SYMBOL TASLE

CMP1t>

1/)078/~7

"'010/07

CMP17

0344/01

0080/01

CMP18

1tJ361r)/01

00771f1J7

CMP41

0274107

VJ238/07

CMP91

0308/07

031a4/07

CMPL,'"

0065/07

0023/12

CMPl,.l

~181/"7

0219/07

CMPL,2

02211f1J7

02021",'

CMPL,3

0226/07

flJl]4/0]

CMPL.4

0259/07

0240/07

CMPL,5

0265/01

0262/01

CMPL,b

!d281/0?

0229/07

CMPL,1

"'290/07

itJ106/1i18

CMPL,8

0295/07

0287/01

CMPL,9

0301/11)7

0231/167

CMPL,E

0030/[07

01~g/31

CMTIL

~4J2/28

04ai/28

COEFfd

fd384/20

0365/20

COEFl

0438/20

1d41 4 /20

COEf~

032 4 /20

0311120

COMI

0024/31

"'407

00U/2i

fdeJ7/2i

0130/30

16~25/31

COM1 4

,,51 6
0363/30

(1)4'.)2/28
,,))55/33

11 5 0 6 /28
0477/3l

flJ533/28
IU32/51

11)546/28

,, 57 1/28

0259/29

COM2

0031/31
0620/28
k1221/J0

~3f)2/07

04g"'/28

(1)493/28
1I)t526/29

01)00/28

01-41/29
0297/.)0

0073/21
12132&/29
0311/30

111197/"'0

0b57/28
022vj/J0

0490/28
121119/31

0557/28

05~t>/29

VJ121d/ll

111121/31

",037/29
.,,351/36

.,221/30
0614/44

",50 6 /1)6

COMJ

0040/31
011ts/"'1
0439/57

0212/07

0234/01

1O~11/2g

0312/30
0312/30

-,.---,

CRO~S.,~EFERENCE

CUM4

~k'J74/31

IcHJIIl/J0

COMS

0H15/Jl

1d41d9

0635/28

0511/29

0537/29

1d118/J1

COM6

011 8 131
1(J120/J2
105810/52

1d008
0351/30

0303
0415/43
k)4391b7

0626/28
1tJ614/44

0119131
0258/47

"'12",/31
liH28/52

111121/31
1d579/52

COMCH

0"'45/31

0120/31

COMF'L

1Il~43/JI

11;1119/31

COMMA

0479/04
lIl~o5/04

0353/03
,,"1)1 9 /10 4

0631/03
1d2 9 5/05

0662/03
1d,32kl/1Il5

1d692/03
IOJJ2/05

0k'J40/1Il4

1d361/"':;

1Il368/1(J~

0593/03
1Il1d97/1Gl5
1fJ375/11.'15

COHOP

0433
0487/21

0432/106

0237/'iJ7

k)JIt:IJ/07

0438/1d7

00J8/08

0264/1d8

COMPI

0124/14

1d120/14

COMP2

0135/1 4

tin50/14

COMPJ

013 9 /14

(cH3 6 /14

COMP4

~1142/14

1d13 8 /14

COMP5

1(.11 45 /14

11)1 55 114

COMPo

V11~51/14

0143/14

COMP7

01 50 /1 4

01 5 3/1 4

011131/14

01d 96 /02

0 4 12 / 02
ia038/14

0 457 /02
0123/14

1Il00 5 /14
0149/14

01cH2/1 4

0"'1 7/ 1 4

01024/14

0369/02

0 4 10 5 /",8

0448/168
013 6 /0 9

04 5 1/0 8
IcH 37 /0 9
10158/09

rtJ084/09
013 8 /11)9
1d214/flJ9

IIlHH/09

~134/09

101 39 /0 9
1d217/09

0125/109
1111 4 0/0 9
0223/169

1323 3 /09

0135/0 9
0151/10 9
1d2J8/t(l9

COMS

"'339/03

0355/ldJ

0517/ldo

COMSVJ

0J4o/0J

02 51 1lO 0

COMSI

0J 49 /klJ

0J45/IdJ

COMSN

0 367 /fd2

~023/08

rd1d 4 0/klt3

~042/06

COMH:.

"'123/31

0416/43

025 9/ 4 7

05 ,9/ 52

CON1R

VJ273/irl2

1d04~/2J

01dbJ/23

1d210/25

COPVJ

1Ili/1 4 6/ 56

0042/5b

COMPI-(
COMPT

0141/1()~

-

SyMBOL TA8LE

1fJ~06/~6

0JJ9/~5

kl1 6 4/14

0152/1d9

~2J9/Ii:H~

••••••

CROSS-REFERENCE SYMBUL TASLE

COP00

0023/56

001 9/56

COP1

0086/56

00~7/56

COP10

016f)/~6

"1 4 7/56

COPU

02411/56

05~9/56

COP14

0287/56

0~65/56

COP15

0293/56

0269/56

COP16

03134/56

0285/56

COP17

031fd/56

0291/56

COP2

0098/56

08741/56

COP2"

0327/56

0313/56

COP21

0JJ4/56

0355/56

COP22

0J4fd/56

0336/56

COPJ

(tH02/56

fUI93/b6

COP4

0117/!S6

0113/56

COP5

0120/56

fd153/56

COPt)

0142/56

0150/56

tOP1

0101/6e

'1~'/O6

C;OP8

0155/56

0530/56

COP~

01 6 0 / 5 6

0182/56

C;OPge

0AH~5/56

0186/56

COP99

052~/56

0500/56

COPAP

05fd5/56

~322/56

0301/56

cope

0308/56

8888/56

~095/56

'1~1/&6

0514/56

0139/56

1d271/56

~332/56

0149/56
0335/56

fU71/56

0J~2/50

0387/56

0Ji6/b6

COPO

0521/56
0289/56

16127/56

01~8/56

16137/56

1d261U56

COPD£:.

0449/56

IiJl21 156

0JaO/56

a~b6/06

(lJ71/56

COPDf

0522/56

0119/56

0152/56

fd169/56

11)267/56

0294/56

8291/56

15280/56

0282/56

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

-

CROSS-REFERENCE SYMBOL. TABL.E

COPO!

0516/56

"0~3/b6

~056/~6

COPOR

~b19/56

1005fd/~6

k1J11/56

capos

0512/56

fd173/~6

0217/56

COPDU

0517/56

10103/06

COPEA

0463/56

~402/56

~466/56

COPEb

0467/56

fd099/~6

10470/56

COPEC

0 4 7 1/56

1IJ114/~6

11' 4 74/50

COPED

kl475/56

10156/56

0478/56

COPEE.

10479/56

10161/56

0 4 82/56

COPf.r

046J/56

0043/56

0486/50

COPEG

0 4 87/ 5 6

(!)0210156

0490/56

COPEH

0491/56

0450/56

0494/56

COPF

0516/56
11'434/56

10105/56
10444/56

COPfA

fd466/56

1d403/56

COPF'~

(04710/51)

Idl1iH1/b6

COPFC

10474/56

0115/56

COPFO

f(J47ij/b6

01 57/56

COPfl:.

10482/56

i0162/~6

COPfr

id460156

0044/56

COPfG

04910/56

d021/56

COPFH

" 494/ 56

k> 4 b 1/ 56

COPI

0511d/56

01ij4/56

COPIt

0386/56

I()J97/:;6

('OPI2

04idl/56

0427/56

0429/56

COPll

0452/56

1d022/b6
0009/bo

0349/56

1&)354/56

66004/56

~J43/56

0348/!>6

0505/56

0;lS1/56

kJ25J/56

0383/56

0 4U19/56

0421/56

0224/56

0226/50

"'228/56

0045/56

0101/b6

rU16/56

0158/56

k1J16J/b6

1d1lJ14/56

"'4!d0/b6

~4"4/56

COPl1'4

".575/56

.....,

CRUSS.F<~FERENCf

COPIP

0504/56

0363/56

COPLN

05 20 /56
0314/56

~066/56

0329/56

COPOV

0506/56

0498/06

COPP

0515/56
0047/56
0392/56

COPPT

SYMBOL TAtH.E

0107/50

IU 4 5/56

"'166/56

"252/56

0299/56

0028/56
0205/56
0394/56

0031/56
0.333/56
10395/56

0032/56
",331/56

0"'34/56
",376/56

0037/56
11)380/56

0038/56
0J91/56

0502/56

0(U3/56

0"26/t56

0068/56

"117/56

cOPR

0408/56

0389/56

0393/56

0398/56

0411/56

e,f35/56

0445/~6

COPR1

0412/56

0419/56

COPR2

0436/56

0423/56

COPRJ

0432/56

0441/56

COPR4

0442/56

0438/56

COPR5

0446/06

1414/06

COPR!)

0420/56

"'448/56

COPRW

035 9 /56

1c)3J8/56

0342/56

0l71/56

COPS

0511/56

0024/56

01t5/56

0200/56

COPWO

0513/56

"059/56

0221/56

CORE

0138/26

0045/26

0083/26

0105/26

rU85/26

0492/26

COUNT

0344/02

1c)204/06

~214/06

0362/06

031"/06

CP[d

[d46 7 /02

012 9 /14

0135/14

CP1

,,46 8 /02

0132/14

0151/14

"'156/14

CfJl.CA

0508/56

~124/56

CPLNA

,,507/56

0123/56

CRLF

0457 / 30$

075 8/ J2

011) 0 7/33

kl1 17/45

CSAV

0047/31

0352/,,7

0496/29

CSAVl

1tJ398/36

0386/36

C5A'I2

0401/36

0008/",7

"" ....

'----

SYMBOL. TABL.E

CSAVJ

04,38/36

13443/36

CSAV4

0418/3e

0411/36

CSVRT

000 8 /137

1c:l~.H'3/07

CTAPR

00Jo/J1

16447/29

CTEMP

063fd/28

0649/28

fd66kl/28

10668/28

"'712/32

CTMP

0474/IQ2

01 89/ 2 0

01 9 5/2 16

1d1Y6/20

1cl197/20

1cl209/2 0

Cul

IdJJ1/02

0518/06

0525/06

CUS1A

0507/05

1'0486/06

~491/fc:)b

CUSP

0076/132

"'497/06
k'J197/1(.19

0f) 2 6/06

0128/08

k1205/08

020111d9

0J~1/",9

1029~/lJ

"443/ 0 8
ttl447/14

13019/09

0~b"/1c!!9

CUs P 1

052J/166

1I:t501106

I)

000~/23

0191/23

0 01 0/ 2 4

1)100

034'"

051d~

0259/04

0293/1'0 6

(0348/16

D1111

0251t)/k!5

0190/05

1)133

02b6/165

~J44/06

D36K

0 4 1'03

00 4 1/20

0128/32

11'202/32

14368/39

(6493/39

0359/49

D53

025 9 /05

(6294/06

0577

0251/05

0120/1(.14

060

0419

~071/39

fd3b5/J9

[d464/J9

1tl490/39

ft)552/4J

\(13fd2/~9

00 88 /29
10"'56/49

0252
1d494/39

0043/20
0557143

01311:)/32

021t14/32
03blc1/49

ft)1d76/J9

03b9/39

0469/39

062

0093/21

0393/21

D6!)

"'0!elt> 1 17

0039/17

066

0fdit:l4/12

04140/12

D72

0210

ffj211

0327/136

DADDio(

01 37 /2. 6
0493/26

00 44 /26
1d686/J2

O11 8 /2 6

0~U7/26

13224/26

k)22 6 / 26

,,487/26

DADLl;

0083
0414/43

01!)7/31
10256/44

0160/31

0011133
0257/47

0100/36

"349/Je
tdl,,8/52

"07b/43

060ft)

-

CHUSS"'~t.rERENCE

1lI3iOl/49

~b16/44

td31J/47

"'578/~2

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

CROSS-REFERENCE SYMBOL TABLE
0126/56

1d5",8/56

0084

0157/;11
0262/47

0110/36
031J/41

0350/36
0126/56

(U)75/43

0617/44

DAORR

11'45 9 /02

"'J07/15

0.536/115

0J45/1t5

0J5i/15

DAI.CA

13616/44

0254/44

OAL.NA

0617/44

0253/44

OASeC

027 4 / 4 6

0213/46

OASC~

0275/46

02"8/46

DASCP

0276/4&

0221/46

OASeS

0277/46

DATAl

13582/03

060 4 /03

OATA2

0591/03

06iHIl/03

DATAl

0,96/03

01583/03

DATA4

06"'1/ 0 3

0e18/"'3

0,81 /0 3

DATAS

0571/03

0595/03

0530/05

DATE

00 84 /33
036 8 /37
0293/58

0091/33
0161/38

01.5/33

03"'1/34
0332/44

1C>207/56

0092

0040/20

010 2 / 3 2
0203/36
04 85 /J9
049 8 /49

0040/20
012 1 132
16371/37
054 7 /43
021t/56

OATLoN

0100

023 5 /43

0377/43

OATOfoi

0377

0"e2/0 8

",,40/12

D61.NK

0623/11

"4°4/11

0518/11

DBY10

005 0 /02

0109/19

UADLoN

DATIM

02~1/38

~507106

~U66/J5

""18/4J

0256/44

",548/35
0267/57

01 99 /36
0260/58
0654/28
010 83 / 35
O45 9 /39

0050/21
16201/ 3 2
0238/39
03oS5/4 4

0651/28
0361/39
1CJ297/49

0653/28
160 85 / 33
1d367/39
02 99 /49

0483/ 47

01081/48

0123/ 54

ill16/1V

0160/22

"J1V/22

0340/22

02 49 /25

IrH20/12

16123/12

0135/12

·16150/12

IU 8 "/J2

0",66/3~

ee71/44

~37J/J2

0J51/ 49

0271/57

11)262/25

DCCNT

038 8 /02
0151112

",,50/12
0174/20

0114/12

OtFL.(I

0313/02

¥J21k'J/1r)8

0a~4/08

DtHAN

013 9 /26

0068/26

,.",."".

CkOSS .. tESE.t;

0217/58

0142/58

1cl220/58

L>ESt:.C

0221/58

1cl048/b8

0224/58

DESED

0225/58

"167/58

0228/58

DEBFA

1d21()/58

00J9/58

PESrt;

fr:l221d/58

~143/56

DESfC

0224/58

11)049/58

DESfU

11228/~8

0168/58

DESIL

"H6~/58

0040/58

01d50/5ts

0101/58

IIH44/58

DE.SI~

0186/58

00210/58

01022/08

10024/58

k'l194/~8

DESL,A

1I12",J/58

1111 !HI/58

~193/58

DESlS

1023 5 /56

0082/58

0096/56

Idl1cl0/58

16115/58

1623"/58

()E.SlP

fd230/!58

0131/58

Dt:.SRA

0231/58

1IJ088/58

DEST

03271(()2
0453/06
ftJ17J/16
10269/16

0421/06

((1434/ 0 0
, 0490/0()

11')469/11')7

0447/06
11)1080/10

0192/16
"'290/10

1fJ248/16

0442/146
10464/07
1t1258/16

16443/ 14 6

~494/06

1Il26J/16

.,2Il/to

DEQUt:.

0301/29

0353/29

ro~00/J0

0456/J0

0460/J0

li1161/51

----

~

0207/58

04 5 2 / 0 6
0083/10
11')277/16

"",,.

CROSS.REFERENCE SYMBOL,. TABLE

DFAIL

0140/2e

0072/2e

0130/26

OFCHK

~~le

0366/09

0313/29

0351129

0234/32

1/J343/32

0186/4~

0260/49

DFCNT

04 4b /J2

029 5 /32

0319/32

0315/32

0331/J2

0352/32

DFll..T

0246

(1020/11)8

0 0 17/33

ft)124/J4

0434/36

DFLAG

0~28/04

0340/03
,,072/05

0032/04
0073/00

0126/04

"057/05

0298/03
0066/0f)

DFNAM

0422/32

0296/32

0316/32

DGCNT

0325/02

0301/19

0316/19

DIGCK

0042/0:?

0445/02

0409/00

0397/35

003 7/0 5

0039/05

0086/0[,

01''1/06

0129/22

111134/22

"329/06
liI14J/22

033 2 / 0 6
0148/23

0334/06

0123/19
032 4 /21

0133/19
0327/21

11)187/19
1t15 4 0/21

i214'lg
0 5 43/21

0208/19

0229/19

1365

'310/17

1436/,,7

fd266/01

1114.1/21

DIMS

03JJ/03

0tH 9/05

OINT

01r!J7 9/ 26

0268

01.7/26

0091/26

1t)535/26

0549/26

0684/32

OINT1

0086/26

6062/26

DINT2

012 3 /26

01 65 /2 6

OlNTJ

012~/26

f0061126

DIRe S

0272/46

0125/46

DIR1

0266146

0"34/46

DIR2

0051/46

0239/46

DIRJ

118 16/46

11159/46

DIR4

0U)6/46

0090/46

O~H~

02116/46

0207/46

DIR6

0216/46

0a09/46

OI R1

0163/.6

0140/46

DIR8

00bJ/46

16294/46

0335/06
liH74/2J

0071/22

0310/02
02 4 0/19

DIMOP

OI(lCT

I,U4'/46

f4i,i / ' Ci

01 59 /23

,.".""

CkOSS.RE.FERENCE SYMBOL. TASL.E

DIR9

01060/46

"'080/46

DIRC1

013Y/~J

1.1115/",3

0127/03

DIRC2

01 4 0/03

0113/fe13

0120/0J

,:)126/103

DIRe3

0117/03

01~8/~3

DIRC4

013"'/03

kj124/03

OlRC5

",1 4 1/,,3

IU10/0 J

011 7 103

1c')125/0 3

DIRCM

v.1112/0J
fdlJ2/",3

003"'/03

0"'67/0J

1(.1087/°3

00971163

0129/ 0 3

0520/.j7

01 3 1 / 0 3

OIRCS

ta520/37

kl331/37

DIRDL

0135/",3

0020/03

OIREC

0004/ 0 J
1d075/52

0679/32
0581/52

105 17 / 37
10527/54

"4 12 /43
0579/58

16255/41

0455/5 1

"096/:,2

DIREL.

11)005/03

0135/103

fc)518/J7

0456/51

DIREU

0006/ 0 3
0580/58

1d619/J7

11)4 13/43

1c:l2b6/47

05 8 2/ 52

"'52 8 /54

"'441/57

OIRFM

0251c:l/46

1:)075/46

OIRfX

0211/46

fc'1"'0/ 4 6

DlRMS

0270/46

0ftl96/46

OIRNI

" 02 8/ 4 6

"022/46

OIRNM

024J/40
0175/46

1d103/46
101 78 /46

0127/46
1d194/46

"'133/46
01 9 7/46

14150/ 4 6
111249/ 4 6

0160/46

0169/4b

DIRS0

0273/45

11)157/46

DIRSO

0262/46

0251/46

~260/46

"'265/46

0265/46

OIRSP

",265/46

0255/46

0258/46

OIR~A

0425/32

10333/32

033 7/ 3 2

03 66/ 32

OIRwO

"'13l/fd3

0041/~J

ftl043/ltJJ

0425/32

01409/33

OIRwP

00109/33

°2 54/ 34

02 6 2/34
(dl1d/3t>

"'313/J4
",111/35

0509/34

0082/35

~114/J5

01° 7 /3 5

IU11/",J
IIJllo/J8

(d218/15
10197/38

0494/15
ICIJ!l5/38

0507/J5

1r:J561/3t5
1fJ674/57

0159/36
0075/58

Id 110/~15

DlsCA

fOhH~

11'304/36
~lJJ/58

0343/37

111535/57

CROSS-REfERENCE SYMBOL TAijLE

"""
DISCS

01ei

DISCZ

rtH 18
0032/47
011d5/54

0321/39
007 3 / .. 8
10136/54

1030·1.;'
°4°8/ .. 9
10148/55

0J80/43
0420/49
IOJa./50

042 4 /32

05~8/J·

0352/J5

04 78/35
ItlJ59/41

0.92/·2
""84/ .. 8
16029/55

04 4 1/1/44

1d091/5 3

.,560/44
0207/53

~36f)/56

~Jb9/56

0313/ 36

OKT8L

0086

DLCHH

"'341/33

0255/33

OLK9A

"'424/32

0340132

DLK9P

0558/34

0318/34

DLK~Q

~3Da/Jf5

IU21/35

fU77/:S,

01..010

0142/03

00f54/03

oUJ2/0;)

OLOK1

0028103

0024/03

OLOK2

0025/0,)

0031/03

DLOK3

0021/03

0027/ftJ3

DLOK4

13063/03

0042/03

DLOK~

kH)72/,,3

f1:1068/03

OLOK6

0015/03

0094/ftJ3

DLOK7

1,,,,,92/03

O088/03

DLOK8

00g6/03

0085/",3

DI..OK9

fd102/03

00 48 /03

OLOKA

0423/32

0~2~/32

OLOKt)

004 9 /03

0045/03

OLOKP

0008/33
1IJ071/38

0010 /30
0627/39

IU0l/3D

05ltHD/44

O249/34
0252/39
0051/46

01iJ18/~6

1d~55/57

0242/57

IrHhJ1/~7

0035/58

11:1181/56
VJ257/5$

011 3 / 3 6
16056/44
rJIQ74/51

OLOOK

0tU9/0J
0680/32

0069103
0008/J3

0070/03

0"90/03

011598/03

kl100/0J

0423/32

OLTEM

0287
0190/36

0065/03

0.,83/03
kJJ61/l7

0410/35
IIHU7/J8
10114144

rcJ459/35
0f)g7/J9
10322/44
00081b6

0165/36
IU73/41
kJ551/45

1iJ66J/45

0S29/03
k?JJ0/Jl
k)6g5/42
0030/47

~19ij/56

0~31/b7

0~7J/41

0089/0;)

-'3~2/37

07wl/42
0072/48
02S8/51

IrHH52/41

{rH029/44
10 1 04.150

kJ365/51d

0Jld6/44

IUb7/57

0175/56

.. ,,.,.,.,
OMA

C~OSS.REFERt::NCt.

~~30

1012 4 /26

100 69 /26

1O~94/26

~3b9/26

10003/32

SYMBOL TASL,E
0UJ6/26
1d611)5/J2

106~I/J2

11)10 7 /26

0111/ 26
106V,18/J2

111112/26
II)bh;1/32

i6fr)12/2J
1IJ139/2J

0077/23
IIJloJ/23

10341/24

11)001/25

1IJ102/25

1IJ1l~/25

0082/23
1015//23
ti1ldl1125
10126/25

01 94 /23

10220/23

~612/J2

()ONEA

111007/07

11)032/107

0057/07

UP

02 74 102
1(111)2/23

"'id22/25
id134/25

tlIr}28 123
ItHIt)7/2J
10172/23
ti1028/25
kJ3b2/2b

00til/2J
1"131/23
0210/23
0087120
10362/25

k'J275/~2
~295/23

0064/22
iOIlI61 124

~tcH.)6/22

10152/22

k'J074/24

IOIcl9J/24

OR.66

0316/26

IrH59/2b

OH8NM

0286126

~251/26

fIl 2 55 /2 6

0258/26

0294/26

OR A0S

0312/26

0221/26

ORAl

0174/26

01bts/26

DRA2

01 8 "'/26

1'171/26

ORAJ

101 9 "'/26

01 87 /2 6

DRAB",

0Jll/e!6

",203/26

ORAIl

015 2 /26

"'093/26

~154/26

~262/26

1d687/32

ORANM

0275/26

0207126

0227/26

1d236/26

I0283/C!6

()R4S~

",313/2 6

0232/2 6

ORATS

0143/26

113074/26

kHD91/ 2 6

1d1 2 9/ 2 6

1024 7/ 2 5

0256/26

ORBL.S

l.1309/2b

0165/26

OROF

02 98 /26

fd297/26

ORDFP

~297/26

1tj1 69 /2 6

DRDOl

{()31~/2b

1023 7 /26

UROR

"'J0~/26

k)2 99/ 26

URD~P

0299/26

0178/26

UHEOl-'

"'112

1d515/26

ORlvt

009Y/40

006 1 / 2 6

0"'75 /2 6

101"'1/ 2 6

10104/26

10131/ 2 6

~16e/23

OPFL.G

11)068/23
1rJ1J4/23
10214/23
11)097/25
11'1364/25

~395/2b

1(",,85/23

"".,,""

CROSS-REFERENCE SYMBOL. TABl.E

DRMER

012 8 /2 6

00 6 J/20

DRRE

0302/26

{l301/20

DRREP

{11301/26

{II188/26

DRSA

030 6 /2 6

0;,,,5/20

OR8AP

03 f1H5/26

021°/26

DRST

0308/26

03e7/20

DRSTP

0307/26

O243/26

DRUM

O455
",326/30

"2° 8/ 15
IU87/33

".85/1 5
0;'04/38

IU86/33
0193/33
0120/35
010 8 /36
0113/37
0462/31
0096/39
111122/39
022 3 / 4 1
0373/ 44
0693/48
Id 11 9150
0252/61
"'550/51

0136/1iS3
1111 95/ 33
(4176/J5
0227/36
"126/37
0536/31

1IJ11l5/28
0319/33
01 8 4/35
0242/36
01'''/37
0118/38
0327/39
0771/39
,,1'4/42
,,410/44
0021/4'
04$8/50
0375/51
0171/02
rcH'i8/0J
025A/55
0230/56
0101157
0555/51
012S/58
",469/58

DRUMl.

038~/52

0534/54
0082/56

0114/39

0152/39
0J81/41
"'379/44
Wl731/48
0321150
IilJl9/51
0605/51
0'-09/52
1/H78/55
0134/66

00 89 /26

0353/16

0494/20

0244/30

fd288/30

0749/32
1153 11'/034
16564/35
.,,292/36

0068/33
0J36/34
0597/35
ta321/36
0217/037
iJ021/39

IU07/JJ

0027/5"

0416/32
039,,/33
0262/35
115250/.)6
IH6e/l7
111225/38
0429/39
0785/39
010 9 / 4 2
.,,620/44
0118/49
00()7/51
0J8J/fH
0237/52
.,,213153
0270/55
11248/56
0203/57

tuaa/l7
"'315/38

.,449/39
-,lga/"9
0W181/44
1IJ620/45
0261/49
0100/=>1
IdJ9J/bl
0280/52
"'194/54
0293/55
111251/56

~e51J/39

0290/57

033 4 /52
1lI315/b4
0 4'11/55
0301156
0J39/57

058~/57

1a6l6/57

1&645/57

0656/57

10153/58

IH02/58

u200/58

0482/58

0503/f)8

.,522/58

02b 9 /58
0559/58

0063/32

0256/32

02J6/~7

0364/57
0686/57
030 8 /58

05i6/56
0460/57
00 89 /58
0406/58

DRUMP

041 6 / 3 2
0274/32

0485/31
8339/32

04'4/31
0393/J2

0025/32

0056/32

DRUMi

0lab/21

a41J/27

04'1/21

"fl55/al

a076/ae

DRUMw

013 6 103

018-4'/03

0"07/03

DRWR

030 4/ 2 6

0303/26

DRWRP

0303/26

0190/26

DSAVt.

0141/26

0081/26

0095/26

DSCEO

0134/26

"'49 /2 6

0073/2&

032"'/56

,,433/34
0.,5 8 /36
037alJ6
0030"'/37
i7038/39
0b77/39
0813/39
036 9 /44
0074/46
0J711J/49

.,8(1'/39

111264/ 4 4
0682/45
11)320/49
0143/bl
",4.,9/51
trJ302/52
0266/04
iJ304/55
0264/56

IU97/f)1
tl41 8 /61

...... " ..
I)SCHI

0421/32

10413/..12

I)SCST

0~b4/26

li?491t'/26

DStHA

~122/Jl

fd~09/15

USERR

00vHl/15

IOJ41/16

DSRCH

0214/02
012ld/2f)

0047123
~H30/25

DSTV2

"-1205/47

0080/48

I)SYID

0429/32

0092/32 '0161/32

DTAfJH

0447129

0481/29

DTEMP

0142/26

"'058/26

011 4 126

Dlll

020 6 /02

10 4 0 4 /23

DTl10

0257125

fd2bb/25

I)TMP

02 60 /102

0423/112

DTMT~

01£15 7 /20

kJ0J8/20

UTRAX

0281

DTT32
DTTY0

057J/20

10514/20

"'0 6 3/23
0J57125

0132/23
10359/2b

10361/25

100 86 125
"367/25

01 4 4/24

0241/24

1fJ150/2 5

kl2 6 16/2!l

0424/102

1tl191/20

1r.12~2/21d

0210/20

0212/20

1r.1573/42

(rH34/47

06b6/!)1

IaJ44/52

0311

121254/29

0197/ 4 9

ft)273/ 49

030 9
0281/4 9

0 586 /2 8
10446/4 9

0023/29
0-'37/51

10 0 0 6 / 48
0109/!l1

16369/59

1d2Jl/ 49
(44 33 /59

1d246/49
044 0 /b 9

0493
052 4 /41
VJ218/47

1r.1486
0213/42
131311/48

0412/35

ItHJ1/41
0293/43

0133/41
0773/45

ItH3b/41
"167/46

1(11 87 / 46

I:.

0410

0247/19

10116122

1a146/23

0190/25

t:.AI3~

00~5/20

0481

lAL.CA

0349/36

1d098/36

lAL.NA

0J5kl/J6

1tl097/Jb

EANI)

0121 66 /14

01 5 4/13

EAS01a

0 4 37/11

111432/11

EASkl1

kl4J3/11

10 429/11

I:.AS02

0451/11

!6·U9/11

DVSRS

.~.

CROSS-REFERENCE SYMHOL TABLE

~655/42

lr:)(tJ1 8/ 25

fcH 8 0 / 49

045(4/04

00 98 /25

0b07/41

CROSS.REFERENCE SYMBOl.. TA81..E

"""
EASN

0399/11

102 4 7/12

tASN0

ra4~~/11

0409/11

E.ASN1

13467/11

EASN2

~496/11

EASNJ

0530/11

0498/11

E:.ASN4

0540/11

0493/11

E:.ASN5

0542/11

0492/11

f:.ATN

0396/20

0478

EATNt

1/)406/20

0428/2/6

E:.ATN2

~427/20

0402/20

EATNJ

.,429/20

04121/20

EATN4

0431/20

,,424/20

EBRK

rcH 66 /21

04 9 1

E:.BRK1

0192/21

0181/21

E:.BRK2

0197/21

0191/21

0194/21

f:.C

047 b /02

"'021/23

0032/23

1 .. 11/46

0003/11

/6541/11

0543/11

13041/23

~289/2J

0350/23

,,426/2rt)

0331/24

0338/24

ECF

"13i

115111'

ECHI

0080/ 4 5

00 69 /45

ECHAN

001 4 /12

0270/12

ECHF

009 4 /45

007 0 /45

ECHN

0093/4(5

0068/45

E:.CHO

0095/ 4 5

006 3/4 5

teo

"H38

1d55J/J9

E:.COS

0281/2'"

0490

EDABR

0234/02

"'5 99/ 11

04 9 5 /1 6

fd08!5 /21

0183/21

litt 96/21

E.OEI..M

0142/1tl2

eJ14/02

0397/02

"HU8/l1

f4134/17

0331/19

EDSTA

0276/02

03 34 /2 4

0 4 27/25

04J 8 /25

0476/25

007 5 /45

0080/415

"'344/19

",.,.

"'----"

CROSS.REfERENt£:. SYMBOL.

TA~L.E

EHU0

1r.1335/11

03"7/11

EE N1J

"'363/11

0354/11

tE N14

03 67 /11

0302/11

EEN1!:;)

",36 9 /11

037.1/11

EEN10

0372111

036 8 /11

EEN17

0378/11

IOJ1~/11

0326/11

IOJ29/11

0331/11

0334/11

tEN1S

0387/11

"'27 9 /11

0333/11

0362/11

0366/11

0371D/11

0.$73/11

EENTl

02 46 /11

0222/11

022 9 /11

EENTo

1c)28k1/11

0266/11

tENT7

0324/11

0319/11

EENT6

032 7 /11

!d32 3 /11

tE.NT9

",332 / 11

tENTH

!d21S//ll

0271/12

£EQL

0",2 4 /14

0152/13

EEXP

04~2/2~

0479

EFAD

111318/13

10144/13

EFOV

id330/1J

~147/1J

EfLAt;

02 77 /02

001:S 0 /2J

U"MP

1c133fr:)/1J

1(j14011J

EFN"

0J98/~2

EFN1

003 4 /14

00 6 5/14

0227/23

0292/23

0(657/24

0152/25

0.)00/25

1111679/116

"0S6/llc?

"'1 0 9/10

0116 /10

td173/10

0184/10

0J99/~2

1c?111/10

0121/1111

"H07/10

IU81/10

0182/10

tfN2

1d 4 00/k12

~125/10

01 70 111c1

1Q1 79 /1(6

IrH 85/UJ

tFNJ

0401/02

0130/h'

0137/1~

EFOR

(rH'~HS/10

0257/12

tFORII1

01r.1 77 /10

1d0 99 /10

EFOR1

fr:)0 90 /11d

0101/10

EFOR2

1r111r.12/!fr:)

100 97 /1'"

CR08S.HEFERENCE SYMBOL. TA8L.E

"""
EFOR3

0121/10

~148/10

tFOR4

0128/10

0136/10

0140/10

EFOR5

010~/10

",,7 8/ 10

01187/10

EFOH6

0146/10

.,119/10

EFSB

0324/13

~145/13

EGORE

001 7 /1 4

015 9/ 13

EGOS1

0061/10

0050/10

EG08S

0043/10

0259/12

EGOTO

"037/10

0255/12

EGTRT

0005/14

14149/13

EH

0431/29

IIJJ89

EHERR

0425/29

0;)83/29

tIF

0023/10

kt256/12

Elfl

0kH6/10

liHIJ27 I 10

EIN10

",272/10

0264/10

fIN11

02 89 /10

i2 441 IUI

0247/10

EIN12

0293/10

0208/1"

,110;)/17

tI Nt3

03"'0/10

0227/10

fIN14

0~H2/10

0288/10

EIN15

035 4 /10

0348/10

t.IN16

0349/10

1IJ3t)J/10

t.IN17

0321/10

EIN1H

0338/10

03416/1"

tI N19

0340/10

0352/10

EIN20

034J/111J

0329/10

EIN21

0347/10

"J27/1"

EINP0

0256/10

"
00164/17

0461/29

03'7/10

... ,., ..

CROSS.REFERENCE SYMBOl. TA61.E

t.INPl

0216/110

IcHH15/17

t.lNP2

02210110

fd2b2/10

E:.INPJ

id232/10

1t1223/10

EINP4

02J9/1k1

~235/11d

E.INPb

0248/10

0292/10

E.INPb

",251/H1

v:J3J9/10

E:.INPJ

021b/1id

0249/10

E:.INP8

02 80 /1 0

E:.INPY

k1271/10

0275/10

0279/110

1d2 8 7/10

10,,42/10

LiJ3 5 0/10

ICll55/10

02 00 /1 0

02 77/ 10

10 2 9 1/1 0

0J6 4/ 1id

fd265/10

02610/10

027J/10

EINPT

1d214/1~

0264/12

t.INT

01.114/2",

0483

EINTl

fdl.123/2r.?

0016/20

ElOR

0id75/14

0155/13

t.LBRC

id169/1J

0138/13

ELCNl

04~1/02

0034 / 17

0443/25

1Cl406/25

0469/25

E:.L.Er

I.100 7 /1fl;

0251/12

0272/12

E.LIN

0489/1Y

0475

fLlN1

",507/1\,)

04Y4/19

E.LIN2

",52 7 /1\')

0 6 0 0 /1 9

E:.1..1NJ

0520/19

0512/19

E:.LOG

id~05/21

id48"

t:1..0RE.

01631/1 4

0160/13

E:.LST

Ic1'112/1 4

01 5 1.1113

EMAT

010 2 5 /1 7

~268/12

E.MATl

0162/17

0~28/17

E:.MAT2

id17!:)/17

id337/17

EMATJ

0222/17

1d189/17

051 9 /1 9

,.,.",,.

CROSS-REfEREhCE SYMBOl.. TASLE

EMAT4

~260/17

021a2/17

EMATb

0331/17

0179/11

EMATO

0331i/17

0173/11

EMAT7

0370/17

0360/17

EMAT8

0378/17

~344/17

EMAX

0045/1.

01"/13

E:.M1N

0054/14

iH56/13

~NUIN

8.IJ/17

1161/11

E.NDOP

0375

0335/07

0024/10

1i,,)J8/11

ENDRM

10166
10,,52/26
020 9 /30

"20 9 /1Cj· 0a28/1~
0090/2 6 0106/26
.,211/J0 IU89/JJ

0 48 &/1 5
~474/26
IU ~4/J3

0 5 04/15
0188/29

,,351/J8

835./1 6
IU 59 / 3 0
~396/38

0~7"'/50
t.N~.

i662/13

ilal186

ila8/.0

.Iat/.. ,

ENOST

05210

0187/29

0172/J0

0177/3fIJ

ENEQL.

00J8/14

",151/13

01'a/13

0008/14

file'I/14

flJee0/l 4

ENEXI

0161/10

0166/10

ENEX2

016 7 /10

0164/10

ENEXJ

ftJ1 e3/10

01 45 / 10

ENEX 4

0193/116

0188/10

ENEXT

0154/10

0258/12

ENOT

0084 /1 4

0161/13

ENOUf

0256/02

0J31/01i

0Jl1111

03JflJ/l1

IIJ86/11

'037/22

ENOUT

0134/02

a058/11

0136/11

0028/19

ENTRl

032 3 /10 5

0;:)12/0 5

ENTR2

0328/105

0322/05

ENTRS

030 6 /05

0538/05

E:.NTRT

02 6 5 / 11 • !d5li 5/ 2 8

03 6 0/1 6

0170/ 3 0
0422/38

,.,,.,.,..

-~-

CROSS.REF~RENCE

E~TVt<

1d346/02

t:.Of

0b02

fd25fd/15

E.QfOP

'1417/22

~f)j2/1d4

EOL

041d6/1d2
01d74/11
0433/19

~008/11O

Idlk12/11

EOPF

SYMBOL TAaLE

0J88/15

fd4 4 7/15

16017/11
10505/11
td416/25

IiHCl21/11

1tJ046/11

~",94/13

WJJJ5/19

10459/19

10028/10
0411/11
0492/19

1tl422/~b

~46J/25

1c:141c:191i/)2

1d024/19

0009/19

10179/19

16349/19

0351/19

EOR

~503

~233/15

02 48 /1b

1032 9 /1 5

fd355/15

103 8 6/1 5

1/1 445 /15

EORFI..

'1455/",2

~096/11

IU59/12

0 4 fd7/15

liH53/20

EOST

032b/103
13 594 /103

i031 9 /163
v>632/03

0392/03
0129/1f)4

1tl456/03
IU 40/104

1t)148/04

0546103
101 7 1/1£14

1655 5 /03
10261/105

EOSTA

'1261/05

1d270/05

0296/05

0300/05

~J46/1r:15

0378/~5

EPR10

Vl093/11

10168 1 / 11

~H188/11

t:.PR11

0090/11

0039/11

EPR12

01ra~/1\

1fJ029/11

EPRIJ

011d5/U

0011/11

E.PRI1

0013/11

'-"033/11

EPR12

0019/11

Ir:1tH2/11

0015/11

1r:10J5/11

0112/ 1 1

EPRIJ

t302~/11

0041/11

EPR14

0~27/11

1O~56/11

01609/11

1d{663/11

td095/11

EPRlb

1£10 45 /11

002 5 /11

EPRI7

0060/11

00 54/ 11

00 7 2/11

0101/11

EPR18

1£1004/11

"16J7/11

iJ050/11

E.PH19

0082/11

~094/11

E.PRIN

1300 6 /11

0260/12

EPRUl

0151/11

"'137/11

t:.PRU2

11172/11

0168/11

EPRU3

v.1183/11

"'171/11

t:.PtW4

loj191/11

k.1152/11

IrHH2/103

00 99 /11

1d055/11
.,338/19
10417/35

.. "" ..

CROSS.REFERENCE SYMBOL. TAtH.. E

~PRUS

0226/02

0001/11

EPWR

0349/1:$

0148/1l

EREAl

0J83/10

(1);)11/10

EREA2

0387/10

115315/10

ERE AD

0310/10

0386/10

0265/12

EREG

0008/02

0681/28

rU92/2i

ERNO

0072/20

~484

ERNDI

00 19 /20

0074/~0

fRR

0521/16

.,520/16

ERRCT

033 5 / 0 2
0612/16

162.4/0l
rrHH4/16

ERaJ2

0371

ERSCA

0128/11

rtl13~/11

flU);'''/17

0842/06

0043/06

115 167/1 6

0212/1 6

0213 / 1 6

0160107

0192/01

0201/07

1'1224/40

i2!54/40

0264/40

0J0 7
11:1241/40

01 37 /0 7

rU8&/07

0214/1&

0351/1 6

~311/16

01 99 / 4 0

ERSEC

11:1269/02
0 45 2/02
0477/02
0484/02
0624/11

0301
0 4 53/02
111418/02
11)485/02

0311
0 455 /02
0479/02
0486/02

0300/0a
111 459 /02
10480/.,2
111487/02

0449/02
1IJ 46 0/1I12
0481/02
14488/02

045e/02
.,475/",2
0482/02
0.489/02

0451/02
0 416 /02
0483/02
0490/1112

ERSTR

0207/11

0267/12

ERTRN

0202/HI

0260/12

ESCM1

IU90/13

0175/1l

E.SCM2

020 9 /13

0203/13

ESCMA

01 89 /13

01 4 2/13

fSwN

0124/20

0485

fSIN

0280/20

0489

ESINI

0J(II9/20

030 4 /20

ESPA

0456/19

"'~76

ESPAI

0415/19

f&'468/19

fd418/19

ESpA4

0483/19

0~61/19

0463/19

0126/11

0;)93/10

0414/19

CRUSS",REt-EHENCt:. SyMBOL TA8L.E

""'fl
lSQR

1c'1101/21

IUS2

ESQR1

0117/2],

16142/21

ESQR2

LH34/21

1/'1168/21

lST

k'2 78/ 1c'12

1c'121 8 /23

0337/23

03 8 6/23

ESTl

1c'14J6/1d2

0271/13

0297/13

1d31d5/1J

EST2

0437/1c'12

0282/13

0301/13

t:ST3

0438/~)2

102 87 /13

0294/13

ESTR

",2 45 /13

01 43 /13

lSTRl

1(1250/13

1fl263/13

ESTR2

'12 58 /13

02 49 /13

ESTR3

1.1264/13

1r:l2 b ",/1J

ESTR4

0310J/lJ

10276/13

ESTR5

030 8 /13

1(J247/13

t:.TAB

04310/19

10474

t:TAB1

",446/1 9

1044 9/ 1 9

t:.TAB2

1c'1441/19

",436/19

t:.TAB4

10452/19

1a440/19

t:.TAN

0333/20

k1471

ETANt

0307/20

1a377/20

E.TAN2

0376/20

~J53/216

ETAN3

0378/20

16371/20

lTIM

0029/20

0488

ETIM16

1c'I1d 4 10/21c'1

1010 58 /20

lTIMl

Ic'Ikl 40/ 20

~059/2~

ETIM2

016016/20

1c'10b1c'l/2!b

lTIM3

1(1(d54/20

0044/20

ETa

{d!)3 8 /2 8

16 437/2 8

0280/13

0444/19

Vlld49/21c'1

IaI,H) 1 120

",,,,95/24

"'hH/2 4

..

" ,.

CROSS",REFERENCE SYMBOL. TAttLE

ETYP

014t;/20

0487

ETYPl

0104/2~

0171/20

ETYP2

0168/20

IrH7~/20

ETyp3

0173/20

0149/20

EUMIN

0132/13

014\/13

EVEX0

0412/25

0423/25

EVEX3

04~1/25

fl)42i/25

EVEX4

0440/25

0430/25

EVEX,

0443/25

1411/25

EVEX6

0445/25

0486/25

EVEX7

0468/25

0444/25

EVEX8

0482/2~

04~3/25

EvEX~

0475/25

0471/25

EVEXP

02l8/i2
0447/25

i255/23
0451/25

0340/23
0480/25

0414/25

EXIT

0550/11

0315

,,201/12

0262/12

(:.X1T0

0~64/11

e621/11

EXITl

063 0 /11

fl)572/11

EXIT2

0610/11

0565/11

EXIT3

0~67/11

,,,u,7/07

0e85/12

0379/39

EXIT4

13589/11

"'583/11

E.XIT7

0276/;52

11236/32

0202/32

EXITA

0315

0288/11

(6336/12

EXP

0304/02
",627/15
0104/19
0058/22
0231/22
0277/23

13050/15
0007/16

0°6 2/15
0!!l09/10
1t)274/19
0097/22
0248/22
10395/23
0357/25

0153/25

0111/19

0077122
~247/22

0286/23
0244/25

tU80/20

0481/25

0543/15
I&10f)0/16
0282/19
011ri8/22
111219/22
ICilJ9/24

0429/25

i441/25

0442/25

05 86/ 15
16051/16
IOliH 9/21ri
111194/22
10321/22
1d141/24

0597/15

06 00 /15
!!l101/19
"251/20
0211ri/22

WJ~98/19

11")89/20
iS96/22
.,322/22
0238/24

~261/23

IjH49/25

"""
tXP2

CROSS"'HEFEt{ENCE SYMBOL TABL.E
~44J/~2

0611.:'1/15

EXPO N 03100/02
~154/19

--

055b/1 5
00b5/10
kl

11.:,,'" 1 y

10 578 /1 5
01665/16

!d5 8 1/10
0",79/16

101161/19

ICH111.!/19
10216/19

0158/19

~192/19

~203/19

10061/22
0166/22
0121/24

0261/19
0161/22
0068/24
0145/24
i0193/25
0201/2f1

0UH/24
1:1197/20
0204/25

EXPOp

0249/0t;

0386/104

EXPW

0478/02

0287/23

EXT1

0605/11

0630/11

EXTIA

0601/11

~584/11

E::XTJA

01605/12

0021/12

f

0096/2l

0449/21

f0.0

0",21/1/

0020/17

f0.iO A 0"'20/17

"'373/17

01d2J/17

0022/11

Fl.0 A ",,,,22/17

10371/17

FAO~c..

0136/31

IcH47/31

FAD~f'

II.! if) 10 13 1

014J/31

fADBN

0148/31

0154/31

fAtJDt;

0426/J1

fADT

0164/22
0117/24

02~8/24

0199/20

~1a69/22

iOJ9J/2J
10123/24
0237/24
1d2k14/25

i0596/15

~599/15

0 6 VJ7/15

0115/19

0118/19
10254/19
141b3/22
10411/23

.0121/19
10250/19
itJ159/22
10"'6 4 /24
0137/24
1c)158/25

16250/19
lOi073/22
10405/2J
10128/24
1a24J/24

It)lJI0/24

10206/25

10151/25
10247/25

0727/32-

lde10/ 3 3

~256/25

kJJiilJ/25

0148/25

0293/11

01 4 1/1 8

!d2b7/1 B

i0141/31

0293/31

kl430/J1

!d131/J1

10159/31

kl476/31

0510/J1

FADTP

0010/J3

0799/39

0093/0J

1.1299/55

fAL.Se:

012 3 /13

000 7 /14

0019/14

~1tJ26/14

0041/14

0069/14

0HU/14

fBASE:.

0454/16;2
0610/11
0185/1,2
0125/15
0147/15
0174/15
0191/15
1.1275/15

0018/10
0613/11
"'198/12
d126/15

0021/10
0153/12
0100/15
IcH27/1b
0149/15
0160/15
0236/15
0279/15

0472/11

164 82 /11
IU69/12
ItH09/15

0 4 8 4 /11

1It17b/12

",533/11
0184/12
0122/15
lal38/15
1;H67/15
10186/15
0212/15

fl.0

liH48/1b

0179/15
IiH99/15
10278/15

liH68/12

1.1106/15
IU28/15
IH04/15
01t51/15
kl243/15
10281/15

1It130/16
10155/15

IU82/1f)
0245/15
10283/15

1d1l1/15
IU33/15
11Il63/15
IU84/15
0270/15
0298/15

~J0J/15

CROSS""REFERENCE SYMBOL TABLE

"""

1iJ3 Y5/15
0493/15

(,)422/15
0380/35

riJ44f6/15
0383/35

0 4 42/15

0336/ 0 9
",564/11
10377/35

163b3/09
140 9 9/15
16263/49

"'4 3 ;'/09
0102/15

04 3 9/09
,,448/16

0464/11
9395/32

0402/08

0257/09

I6b61/11

16374/35

0467

032 0 /14

0333/14

0334/14

0449/11

0463/35

0444/162

0059/16

01667/16

01c'J74/16

0281/19

0290/1

1t1553/34

kJ212/34

0217/34

0241/34

kJ273/J4

0291d/34

0358/34

fLBP

0551/34

0132/34

0525/34

FLSUF

0547/34
01711 34
022 9 /34
121281/"4
1d29 9 /34
0394/34

0116/J4
0181/34
1fJ234/34
l:!283/34
",300/..14
0395/34

0152/J4
0187/34
0243/34
121285/34
fD365/J4
0396/34

01b4/~4

161 8 8/34
kJ245/34
0288/34
kJ367/34
10398/34

IU55/34
0207/34
10246/J4
0289/34
10371/..14
"'403/.54

IU56/34
021 4 / 34
'lJ2 77 / 34
16295/34
0375/34

liU76/34
0227/34
1d2 78 / 34
0296/34
0383/34

fLGt3T

0298/02
0129/21d

037!J/0J

0588/03

103,,4/04

0443/05

("1107/16

0352/16

kH 72/21

1d170/(()7

0244/"'7

1d25t/07

0253/a7

",269/07

0271/07

10241/11

10274/11
0254/210

10300/11

'lJ295/20

",459/11
16 34 2/20

0537/11
0 46 k'1/20

0101 4 / 2 1

FLINK

1.'1354/02
IdJ40/'"

fL.OAT

0092/02
55
00 / 2 "

~166/20

FLSTS

0251/102

VJ248

fMIO

IilI6Jij/2J

.,,,31/23

0071/13

CROSS.REFERENCE SYM80L TA8t.E

"""
fM00

0087/204

1tl0eJ/204

fM01

0091/24

00e6/2~

FM02

010 9 /24

IUeS/24

FM03

01 47 /24

0152/24

FM04

0175/24

0159/24

FM10

022 7 /25

il217/25

FMll

00;$1/25

0024/26

fMAIN

0632/28

II)690/28

0166/31

0181/30

018 3/30

0186/30

1714/32

FMENO

0210/25

0031/23

0052/23

"'256/2~

0346/23

0333/24

0336/24

fMT0

fd1~2/23

0106/23

0216/23

FMT00

0122/25

0115/25

FMT01

e07~/23

0070/23

FMTI2

0046/24

0137/24

fMT05

0366/23

0382/23

FMT06

0009/24

ft)0 0S/24

FMTft)7

0030/24

~023/24

fMT0 8

021 7 /23

e21l/23

FMT0V

0328/24

0143/25

fMTl

0",60/23

0054/23

FMT10

0223/23

10190/23

fMTll

0225/23

fHT 13

0221/23

W147/23

FMT14

0230/23

iJ143/23

fMT15

0238/23

0193/23

FHT16

0112/23

012 4 /23

FMT18

0241/23

0219/23

FMT2

0047/23

0342/24

,,156/23

., ....

CROSS",REFERENCE SYMBOt.. TABLE.

FMT2k1

(6324/2J

102b4/23

FMT2l

03310/23

fd32012J

FMT24

0 344 /23

1D247/2J

fMT25

0341123

13250/23

FMT26

I6J57123

~353/2J

FMT27

0362/23

k)J5 9 /23

fMT28

1d383/23

1d361/23

FMT29

1d379/23

fd373/23

FMT3

0084/23

Id16b9/23

FMrJ0

0392/23

1d298/23

FMT31

02 8 2/23

F-MT32

1d3416/23

~-'

-

0388/23

0037125

1d1d64/25

162 04 /23

02 7 1/23

162 74 /23

1d404/23

~397/23

0412/23

FMT33

0413/23

04163/23

FMTJ4

04J6/23

"'~"'J/24

F-MTJ5

0v:l01/24

0446/23

FMTJt)

1d01d4/24

0439/23

FMT37

0"'16/ 2 4

16011/24

01d7 0/2 4

FMT4

o H:l4/23

FMT4id

0069/2ct

1tJ029/24

0 16 4 0/ 24

F Mr42

0098/24

1di.76/24

1d079/24

r MT43

0 4 2 5 /23

041 8 /23

0 4 21/23

FMT45

0136/24

"'2 97/ 23

FMT46

Vj3r;2/23

0129/23

F MT47

0317/2:3

raj 11/23

FMT5

1117/123

10160/23

FMT516

flU 5J/24

~H

FMT5 1

0183/24

(Q15~/24

74/24

1d076/2e

02 06/ 2 4

031 8/ 2 4

1d059/24

0062/24

kl135/23

0140/23

IdJ21d/23

0212/24

1d226/24

10232/24

0091124

1d089/ 25

0121/ 2 5

"",.

CROSS"REfERENCE SyM80L TA8LE

FMT54

01 95 /24

0188/24$

"1 9 1/24$

FMT55

0226/24

0215/24

0218/24

FMT56

~042/24

00J2/24

FMT51

0074/24

"'018/24

FMT58

0 rtJ 5 rtJ /24

004$1/24

004 5/24

FMT59

0094/24

0443/23

04151/23

FMTts

0187/23

014~/23

FMT61

0207/24

0140/24$

FMT62

023 6 /2 4

0294/23

FMT67

0266/24

0250/24

FMT68

0281/24

"275/24$

FMT7

0201/23

01!;6/23

f'MT7"

02 8 7/a4

"a71/24

FMT72

03~4/24

16280124

FMT76

0100/24

0115124

FMT78

121116/24

"'1~2/24

fMT8

0204$/2J

FMT80

0222/24

0015/24

"0!13/24

0286/24

0297/24

16;)12/24

IU88/2J

0200/23

0222/23

8226/23

8229/23

0237/23

014$4$/28
0J15/24

fc14~6/23

0430/23

0196/24

0203/24

8257/24

0263/a4

FMT9

0220/23

0145/23

FMT90

03 22/2 4

0J06 /2 3

0338/ 2 3

03 87/2 3

11096/ 2 4

ill J2/2 ..

0209/25

FMT91

0331/24

0129/215

0139/25

FMT92

0001 / a5

0327/a 4

01 04 /25

il08/a15

"13 6/ a 15

'1 40 /a 5

FMT9J

0012/25

0008/25

0044/25

FMT94

003 8 /2 15

001 6 /2 5

011J27/215

FMT95

0048125

02J9 / 23

FMT96

0065/25

00515/2~

FMT97

0077/25

0005/25

fl073/a4

014~/24

02153/24

0036/25

00 34 /2 5

CROSSt!!lR~FERf.NCf:.

"""

SYMBOL TABLE

FMT9t:S

"'1"9/25

1lI~79/25

FMT99

IIH!J91d/25

0083/25

FN

048 8 /04

ta365/03

fNDPl

00216/06

"034/06

fNDP2

1d1d35/06

00261(;)6

FNOPJ

~",52/06

((J~21/k'6

0028/106

",,40/S6

",,,,4b/06

FNDPS

00 66 /1i.12

1d414/!tJ2
1lI291/21

02",6/03
063(;)/35

10 5 72/05

00 55 /,,6

~452/43

liU,,52/06
1d463/43

0,,53/06

10",56/0 7

FOJr

0136/13

0003/12

fOPBS

0323

10406/12

FOPI

0J61/20

033 4 /20

FOR10

"'046/13

0319

FOR12

1013610/13

8472/12

FORIJ

01d93/1J

"'396/12

FOR14

IcH04/13
IOJJ 6 /13

!tJ1 25/13

10128/13
0J99/13

161341/13
1/.1404/13

0320/13
1C1050/14

0326/13
0062/14

,,332/13
10105/1 4

FORM0

0377/12

0372/12

FORMI

0341/12

042 8/ 12

013 9/ 13

"'2"'8/13

~229/1j

FORM2

0J 8d /12

0345/12

03 69 /12

103 76 /12

10451/12

04 57 /12

0056/13

FORMJ

0 4 02/12

03 9 0/12

"10 9 6/13

fORM4

04 16/ 12

"'1", 9/ 13

"'1 41d/ 13

10 2 57/ 13

0312 / 13

FORM!::)

0429/12

~421/12

0307/13

FORMb

0445/12

0349/12

FORMl

0452/12

0447/12

ORM8

10",,,,4/13

IdJ 66 /12

FORMX

100 64 /02:
1d15J/11
0506/11
01tJ48/1J

10 3 10 6 /02
0231/11
0279/12

"''''0 9 /116
0267/11

1022 4 /10
"'3"'4/11

0 37 2/10
0412/11
111012/13

"0 47 /11
0455/11

0119/13

kt417/25

",10 6 /10
"'2 90 /11
1c:J478/12
1c'1484/25

f

~365/13

0230/k;4

klJ97/21

~075/13

(d470/12

111010/13

1c'1418/J5

~1d23/13

""",

CROSS-REFERENCE SYMBOL. TABLE

FOROP

02g4/02

0239/07

FORQ

0382/02

038~/09

FORS

0~18/03

~~24/0~

FORST

0383/02
0143/10

0a91/10

elf>1/1.

16077/1 0
0160/10

0f1el/lt)
0168/10

!/J171/10

01"a/l"
018t/10.

111°5/1 0
0193/10

00~5/10

11 0 7/1 0
0173/12

~291/12

FPOP

0020/02

0358/02

0.-84/02

0465/04

0093/05

l1Ie71/06

fRCUR

0018/02

0354/02

0456/02

,,4391"'-

1it1l42/,,5

0163/06

FRET

e31 9
0056120
037 5 /20
0133/21

~4!)J/19

0484/1 9
01"/28
0430/20

0528/19
0126/21
0'-34/20

0007/a 0

&116/28

1/Il32/20
14'-53/20

14022/2 0
0167/20

FRMAT

0379/28
0199/21

fUJ06/21

""2 5 /a"
132"/20
0le2/21

(()22 4 /02
0201/11

03~1/"2

0374/02
0449/16

".-,,7/i2
,,258/32

1'-92/",2

0150/11

IUg"'/11

0660/11

0141 4 /02
0 5 2 5 /eJ
0433/04
006 8 /06

0236/02
,,536 /03
0462/04
0142/i6

0357/02
" e45 /03
0051/,,5
0166/06

0312/03
0 657 /0 3
0068/0S

03'0/03
0 7 1'/03
1299/05

,,437/03
0 37 0/0 4
£1329/05

0489/eJ

FSC0

0263/04

eG00/04

FSC~

0203/04

"ilS1/04

IIIJ'5/i'"

FSC10

032 3 /04

1i!13 45 /0 4

0381104

F&Cl1

.,;J~"/i4

la~6/14

FSC12

0,,49/04

0392/04

FSC1 3

03 1 1/ ",4

0210 / .,4

0212 / 0 4

02 5 4/",4

030~/04

03 64/ 0 4

FsCt4

111401/04

Ii)J31 11114

0338/04

"J~2/"4

0359/04

0J63/14

FSC2

0208/04

0326/04

FSCJ

0240/04

"262/04

FSC4

0a55/04

02;)1/14

FSC5

0282/04

0290/04

02'2/04

FSC6

02 85 /0 4

0222/04

03 8 111/0 4

FSC7

0288/04

0209/144

FSC8

031111104

"278/04

FSC

e388/04

0 4 ,,4/e 4

0J65/1J~

8372/14

"

""",
FSC9

CfWSS"REFl:Rf NeE SYMBOL TAtn.E
k'l313/04

0299/k)4

01k'l6/~2

0330

0310/14

kl307/23

FsCHA

033b
0337/15

FSP

FSCH

0416/02

0082/11

0139/14

03"'0/14

0309/14

~J35/10

0391/h1

"'360/11

~525/11

"'292/13

0303/13

0281d/02
020 8 /23
0328/23
1r:1365/23
01.180/24
0181/24

0098"/23
0217/23
0329/23
10385/23
0094/24
10182/24

0120/23
0242/23
0336/23
1d436/23
0098/24
030"'/24

0121/23
03103/23
1d3J9/23
0440/23
"'100/24

"'185/23
0304/23
0J51/23
"'007/24
1d103/24

0206/23
",32 4 /23
0350/23
0fd19/24
10108/24

~301/24

~049/25

0186/23
031 9 /23
10355/23
00168/24
1d106/24
",322/20

04 76 /02
011'123
0166/23
0068/25

00 49 /23
"'12 5 /23
016 7 /23
10012/25

0k'lb4/23
01 3 0/23
kl207/23
1d100/25

01065/23
k'l133/23
k'l209/23
10132/25

10099/23
k'l13 8 /23
10020/25
1d353/25

k'l10 9 /23
kl1 5 1/23
0056/25
0393/25

0112/23
rU 5 2/23
",,,,6"'/25

0023

~469/11

0614/11

"'103/1 5

0306/32

032 4 / 34

10 498 /34

0051/35

0384/35

FUSCH

0 50 0/34
03 80 /34

k'l374/34
0472/34

0376/34
0476/34

1d378/J4
1d4d5/34

IdJ79134

163 8 1/34

0J 85 /34

FuSS

0303
tHH 9/ 39

0489/27
0 4 27/39
rd264/54

0334/34
1d447/J9

0431/34
kj675/39

"'1 8 2/35
0 7 20/39

0195/51

0471/27
00 36 / 39
10235/52

"'oo3/S7

~087/58

0260/35
01 4 1/ 0 1

~306/58

0397/02

10090/1£1

0138/10

FST

FTll

FVT

~J94/25

,.~,-

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

CROSS.R~FERENCE

GET1

0042/38

0023/38

GET10

0109/38

0998/38

GET13

0161/38

0\44/38

GET14

0054/38

0027/38

GET10

0122/38

kl112/J8

GETlO

0222/38

0192/38

GET17

0227/38

0~04/38

GETl8

0"86/38

e012/J8

GET19

0074/38

0094/38

GET2

0"49/38

0025/38

GET20

0205/38

0226/38

GI::T21

0216/38

11'1'9/38

GET22

0080/38

0093/38

GET2!)

0146/38

0141/38

GfT2b

01~0/38

0145/38

GET3

0!d28/38

0838/38

GET4

0068/38

0,,40/38

(jET9

0095/38

0090/38

GEl(;

0243/38

~021/38

0052/38

SYMBOL TABL.E
0065/38

0149/38

0262/38

0003/38

0066/38

00;$1138

0185/38

IrHUJ9/38
·'It.,-

02e9/3;$

",273/33

0293/33

0334/33

0259/03

,,442/1t);)

0474/03

11528/1t)3

064~/"3

06151/03

0676/03

0132/04
0193/11J&
0160/06
0212/10
"'314/11

0708/03
0264/04
16306/11)5
"269/06

16563/03
0044/04
0275/04
fe415/05

GE.TCH

0249/33

GETeR

0158/02
06WJ2/03
0081/04
0083/05

0123/,,4
0147/05

GETI)

0258/33

0065/06

0099/06

(tH:l36/01
0;554/10

1t)239/1WJ
0283/11

~345/14

~359/14

~331/16

025"/21
0132/22

0266/21
01 .. 1/22

0276/21

0255/04
0266/165
0216/06
0290/10
0325/11
0616/16
,,284/21

0246/J8

0167/38

iU90/38

r.;31tl0/JI

WJ314/1~

0369/11
1I)~18/19

ItJUH/22
fdJ47/38

0~76/06

0340/10
0372/11
0424&/19
141 19/22

0f)74/03
0fc)5b/04
0362/04
0466/05
0315/06
0349/10
0233/12
0425/19
0127/22

."" ..
GETOu

--

CJ.!QSSwHEfEHENCE. SYMBOL TABLE
0138/i()2

"'399/11)2
0307/24

0129/19
0164/25

16135/19
0218/25

",291/19

~H67/24

GElDl

~247/38

0170/38

,,,,238/38

0303/38

10448/38

GETDP

0238/38

0196/38

GETI

k1242/J8
0235/38

0014/38

0",91/38

k:l227/38

GEll1

0200/33

~~68/33

0288/33

GET12

0251/33

0270/33

0286/33

GETl3

02~2/33

0212/33

0281/3J

0283/33

GETI4

0272/33

0287/33

GETIO

0253/33
0 59 2/45
1c1520/56

.,702/32
002 6 / 46
0012/57

0294t/J3
0 68 2/46
0023/57

1/)2~5/JJ

GE.TLN

0244/38

013 4 /38

GETP

0240/38
0174/38

GETPL>

10407/23

0147/24

rd228/J8

~232/38

0233/38

0"'16/49

0321/41
"°1 9 /51
001J/08

01t.12 9 / 4 2
0377/56

04~1/57

0hiJ/J9
001 4 / 5 0
ifJ47b/57

01 8 9/36

",307/3ij

0321/35

1tJ340/38

0019/38
021 8 /38

0029/J6
0220/38

"'1032/38
0309/38

16033/38
10311138

1t.1034/38
.,341/38

0172/38
0J43/38

((}241/38

Idlit86/38

0162/38

Id292/3tf

",304/38

GETPf

0031tJ/02
0402/06

"'383/02

0142/104

"'263/~4

0430/04

16401/04

10072/",6

GETS

0245/38

007"'/38

0186/38

GE.TST

0", 82 /02

iIl387/1c12

0599/03

0 6 83/03

0166/kH5

"'19b/0!)

0233/05

GFLAG

029 9 /02

",42 3 /1/)3

0409/03

td228/05

0110/06

0310/12

GMQ6

01 52 /103

"au 7

01 55 /03

leU 63/0 3

rcU 64 /03

GMQt:;P

011i'7

iCl153/26

049~/27

(iOSOP

0465/40

04~2/41t)

GOrOl

0427/~3

10461/103

(;Or0 2

0451/03

LiJ4!:>5/03

GOTOJ

0457/03

10425/1.13

GOT04

0462/03

0458/1.1J

I;OTOP

liJ4e. 4 /4t0

1rt41d0/41rt

,.,.,.,.,..

CROSS"HEFERENCE SYMBOL. TA"l.E

GOTOS

04171"'3

052~/05

0526/i1e5

(He

0126

0232

0413/19

0411/29

16426/30

0155/33

GTFEH

0334/33
0105/3i
01i8/J9

0260/33
rtH08/39

026J/33
0173/39

"26()/33
1d176/J9

"274/33
0180/39

0183/39

1280/33
0190/39

GTIL.

0301/33
0608/45

0tU7/32
",,72/48

0703/32
0315/49

0102/33
0070/56

8292/33
0327/57

ill0/33

0061/42

GTIL.P

0417/32

0020/32

GTMP

0396/02

0044/10

GTSA

0303/33

0324/33

GTSB

0319/33

0318/33

klJ12/J3

GTSt

ft)325/33

0318/33

0322/33

GTTY1

0 3 77/15

""''''8/15

GTTy2

0393/15

.,.11/15

GTTY3

039 5 /15

03 8 3 /15

GTTy4

0410/15

031'/15

GTlYS

0412/15

., ....~/15

GTTy6

0405/15

~399/15

GTTYP

IUi"'/12

.,J27/ia

1.91/11

(1161/12

1394/15

"'413/15

fU6l/20

HAl.F

0499
00,,9/21

S146/1i

0126/13

11384/13

1iJ408/13

0216/20

0 4 97/20

HATCH

0483/04

e311/i5

0104/06

H8

i479/i2

1 ... 41

HBP

0480/02
0052/24
0173/24

e2tl/a3
"54/24
12'16/24
.t66/25

0J"/23
0050/24
0221/24
0167/25

04110/23

048./23
0151/24
r.JJ0'/24

0410/23
0158/24
0310/2.
10180/25

{l432/23
0169/24
0317/24
il8S/25

iH61/2S
0187/25

0213/25

°"'02/10

0J81/U5

eaet/25

0149/24
1228/2.
0177/2&

HDATE

00~6

1 .. 99/49

HDBFA

"021/3:1

i5V7/ .. e

1032/41

12VG/46

HD8UF

0(1181/32

1130/32

01JJ/32

1121/J~

•

.,~17/33

0111/25

ej;WSS-f/15

0055/19

0015/2t)

ei2~/20

16239/20

IFIXl

0058/1f> "000-3/15

IfIX2

0062/15

".sr/15

IFIX3

0066/15

~""7/15

HOP

~466/40

04114/40

IF S

k)473/fd3

",!SaJ/15

IFSS

0281/02 ' 0249/09

1'6897/23

0~41/23

IJI2/23

0i15"/25

IfSTR

0282/02
0118125

0~17/16

0.21123

11340/24

~"58/25

l6iJ70/25

01686/25

IH6

16447
aairc/23
0316/24: ~t6a/25
-

0431/23
0176/215

00t)1J/24

11165/24

fU50/24

0204/24

0292/25
,
~440/43

fn71l45
tlJ29/45

r.J445/43
102,,4/ 44
00615/45
0229/45
llI332/45

0512/43
0207/44
0067/45
02 89 /45
16486/45

...... '[

lLfER

033 7 / 33
0 5 2 3 / 43 ,
021 8 /44
0072/45
030 5 / 45
0489/45

1415 47 /416
01415/44
0122/44
0014/45
0:121/45

11..1

0141

041$5/2 9

I~AGS

1tJ3 9S /03

!i)t51 6 /165

IM(lOP

0437

INCAL.

k1156/0a

INCHH

066 2 / 3

INCL.l

fIli12/16

'"

11)324/45

(11630/42
1it1 8 7/ 44
0575/44
1c'10 8 4/45
0326/45

"'15 4 /168

014;5/U

i51a/21

~J22/02

0219/11

"'2371 H.

{l312/10

0238/12

~224/12

0aUl/12

02 .. 3/12

1NCL2

°23 9/1 2

0al~/12

"2J4 /1 2

INF

0181

~~t8/1a

0431/1'
8l57/6'

"417/19

IU07/20

16066/1'

0Ji2/41
01155/44

0226/4.

~'e7114b

e·
'

.

0~13/2a

-, 0149/41

0113/1.
" ..... 1 .. '

INFST

0374/02

0218/07

"422/,,,1

INl

~H32

~/26

ff289/2'

INITf'

0402/0.2, "21 6 /1 "

022111_

., .~~ ...
.

.

IU 9,,/44
IISII62i45

,.

,
"
"

.

IiHHki/20

INPOP

~24~/~5

~02j/~4

INPTS

~62./03

~615/~j

063.5/03

0531/~5

INSEQ

0434/33

~636/28

0155/32

0416/3J

~455/33

INSQA

0636/28

~015/2~

INTFL

0391·

~082/06

~049/1~

~42j/4~

~434/42

10310/10

~330/10

i:

~406/~2

0234/10

02e6/1~

0345/11

~3b~/ll

~374/11

INV

~019/10

104108117

INVI

0039/18

INV10

IOt042~18
:
015~/18

t:'147/18

INV11

~164/18

0173/18

INV12

017"'/18

INV13

~180/18

INTMP

I

INV14
INVlb

02~7/18

02108/18
,
I

01g0/18

i

INV16

021;2/18

\)227/18

!

INV17
INV18

1022,2/18
1;

.,

i,

'

022.8/18
I.

'. I

0214/18
0241/18

INV19

10238/18

~182/18

INV2

0~58/1~

10055/18

INVJ

006 8(18

0233/18

INV4

0~'76/18
•
I

"'067/18

INV5

1008 3 /18

01100/18

INV6

10097/18

10092/18

INV7

0114/1t;

I

:1

I

013b/18

'I

INV8

0136'/18
I

INV9
INVL

~479/44

'tJ109/18

10186/18

0337/10

0358/110

,

,.,.,.,,.,
,

CAOSS"REFfRE~CE

,

INWRD

0661/35

0477/35

laSTS

0424/22

"26104

IPWR

0374/13

iJ5a1/13

IPWRI

038tS/lJ

1Il420/1J

IPWR2

0J92/13 ' .... 13/1J

IPwRJ

",4010/13

0J96/1J

IPWR4

040~/13

1l~90/1J

IPWR5

0414/13

1393/13

ITEMP

0006/12

0206/12

'

SYMBO,-

fAttLE-

0'7'/35

0213/12

"

032~/l0

10614/.'

"'20/27

,,633/28

.0710/32

,81'/33

0523/27
0510/21

1 4156 /27
0512/21

0 45'/27

8475/21

041'/27

0493/27

0502/27

Jt::.TT2

052 4 /21

"t2/2'

1)48'/27

,,486/27

at511/21

0t)13/27

(1515/27

JTD

0236/i2
0021102
0041/02
0055/12
0069/01

.""/a2

e~31/i2

h19/1a

'''al/02

02123/82

e~25/e2

iIJ,4J/02

ill4li.a

(1051/02
.. ,,65/02
ilJIl9/02

0053/02
0067/02
iHIJ81/.,2

IWT

0135

0231/12

JDEQU

0522/27,

0458/27

JEll

0512/2'1' ,e'11/21

JET2

051 8 /27:

~5'8/27

JETMS

kH525/21

eMl./21

JETNO

0529/2'1

"'1'18.1/27

JETPA

0633/2S

0214/30

JETPP

1,"6/33

1,17/33

JETPT

0455/27

JElTI

••2'/02

leS11i2
e'''1/82

, 008J/ea' "851,,2

0097/02
0111/02
0125/i~

013'/01
0153/81
0167/0'Z

rUat9/02
1113/02
,la1102
.141/1ll2
~tlti/02

1-1. 69 102

e'14/21

,,"i1Iri2

,.,3/1.'
1,,81Iil'
1Il11./ali

'

.

.ell/sa .. e3'l/12 0031/02 "",39/02

"'.'/01
".'/rl2
e061/¥aetJ6J/I2
... ,5tet . '

'."/1'2
ttttl/82

."gJ/~2

1"9~/kt2

11"7/02
fU21/02

010g/02

(1117/02

81"/_2
"19J&2

111143/_2

,U4s/ea iI47/,a

.1.1/1'

11'9-/12

"149/e2
it163/02
liH17/02

''1''1/''.
0116/02

808';la"
"1fdJ/e~

.lt91.2 ' 11311411
0171/02

.1./82
'1&11~

IU1J/81" "1715/"a
, "

11~'/12

0123/02

IUJl/02
rU5i/fd2
0165/02
0179/02

--,-,-

-

CRUSS"HEFERENCE 8YMHOL.
0181/162

liH83/1cl2

~195/~2

~~97/k12

~'1185/02
~199/1d2

V:l209/02
1r122J/102

0211/kl2
0225/02

0213/02
0227/02

Kl

0382/20
0372/20

02 9 0/21d
1d403/20

K2

1.1,383/20

kl186/20

K819 2

1d582/58

1(}476/58

KAO

10143

U310/29

KDIHk:l

0455/51

0221/51

KDIHL

0450/til

0209/51

KI01

0220/51

0399/51

Kl1)11d

0378/51

03,38/51

KI011

0360/51

",349/51

KI012

0308/51

0353/51

KIDl,3

1d363/!)1

"'358/51

KID18

r.1401l'/51

11)333/51

KI02

02J7/~1

0219/51

1<1031

"163/51

10023/01

KI032

10160/51

0077/51

K1033

0076/51

0081/51

KI034

0111/51

(rH 10/61

KID3b

012.3/51

0113/51

KI003O

0195/51

0118/51

KIDJ7

0114/51

0159/51

KI0.38

IcH46/51

0138/51

KID4

1d21~/51

1.1224/51

KIDo

0.330/51

0259/51

1\11)7

0255/51

0299/51

TA~L.E

14187/02
02101/02
0215/02
d229/r,,2

10189/02
0203/02
",217/02
0231/02

1"191/162
10205/02
10219/02
0233/02

0193/1r12
"'207/1()2
1()221/1r12
0235/02

0Jr,,2/20
0412/20

0315/20

0337/2"

0350/20

0363/20

03165/20

(0354/20

0361/20

"'41",/20

1tt194/49

0296/51

",,.,,

CROSS-REFERENCE SYMBOL TABLE

KID8

02g4/51

0261/51

KIDA"

0~5~/51

0031/51

KlDAl)

0039/51

0058/51

KIDA".

0064/~1

fJ1d4J/tH

KIDAN

016~/51

&)053/51

KID4Z

0171/51

0165/51

0168/51

KIDS

0460/51

0123/51

0158/51

KIDC

0464/51
0118/11

0036/01

0051151

0106/51

0115/51

0146/51

0172/51

KIOf

0303/51

0271/51

KIDEQ

0161/51

0135/51

KIDl

0 468 / 0 1
0315/51

~210/51

0212/51
0360/51

0220/51
0372/51

0248/51

027 3 / 5 1

0~75/51

KIDH1

018./01

0163/f)1

KIDM2

0187/51

0l66/tH

KIDM3

01~1i1/51

0leg/11

I1

0336/51

0286/51

.. "",

'---'

CIofOSS"'HEFlRENCt:.

KIDRw

11447/51

i-j442101

KIDr

tt;)459/51
0397/51

1d1~8/51

KILl

0602/39

1i:1612/l9

KILl'"

"'039/39

0628/39

KILll

0661/39

06~4/JY

KIL12

018113/J1

0176/31

KILl"

0172/J:

0178/31

KIL14

0234/31

10188/31

KILl5

0225/31

0194/J1

KIL17

0246/"1

0240/31

KILl6

0733/39

0665/39

KIL19

07 26 /3g

°7 16 / 3 9

KIL2

0619/39

fiUH5/39

KIL3

0626/39

1C'J017/39

KILAI)

069S/J9

1i:1711/39

KILAt.

07\IJti/J9

0717 / 39

KILAt-

0713/39

07ro~/J9

KILAJ

\()718/J9

07 0 9/39

KILij

0798/39

,,,71013Y

KILtH~

0208/51

10119/b1

KILC

08J~/J9
06~1/J9

0700/39

0286/31
0611/39
0708/39

KILCO

0286/31

kJ298/J1

KILCf""

1.13 00/ 3'

029f) / 3 1

KILC~

0372/31

KILCN
KILCP

SYMBO~

TAijLE

ftll .17151

11»213/51

0347/51

0370/01

0290/31
0674/J9
0714/39

0377/31
I/Jb96/J9
[6715/39

Idl81/31
"'699/J9

0391/31
0702/39

",392/31
16704/39

0291/Jl

0312/31

",316/31

0399/3~

037b/Jl

(l)386/J1

0389/31

0422/31

03J4/J1

0J45/31

0J49/.51

0368/31

1d393/J1

0117151

0670/39

01 24 /39

0703/39

0780/l9

... " ....

CROSS.REFERENCE SYMBOL TA6L..E

KIL.~S

0815/39

Kll.O

0841/39
0191/31
0523/31
01696/53
0052/58

16808/39

0BUI/39

k'834/39

0133/31

0643/39
16211/53
0126/58

01'6/31
0227/31
16714/39
0217/53
0533/58

0237/31
11)803/39
"'218/53

0842/39
0226/31
047 7 /31
0801/39
032 8 /55
0070/58

0137/31
0235/31
0524/31
B833/39
0375/55
0U7/58

0138/31
0238/31
0652/39
0431151
0377/55
0531158

10144/31
0364/31
0658/39
0094/53
"'407/55

0523/55

""18/31
0688/39
0282/55
k2525/55

0843/39
0434/31

~30e/31

0320/31
0tUI9/31

0384/31
0646139

0387/31
0697/39

.,412/31
0710/39

0431/31

KIL.DM

0831/39

08i4/39

KIL.N

0840/39
0b01/J!

0280/31
0662/39

0301131
0762/39

0324/31

039~/31

0416/31

11)46 4 /31

KILP

0 8 3 6 /39
02 39 / 3 1
0313/31
0373/31
166169/39

kH 81/1/3 1

0193/31

(12 46 / 3 1
rc321/31
0410/31

ea'8/l1

0322/31
0413/31
0136/39

0211/31
02 89 /31
0332/31
11)414/31
0740/39

"'215/31
0292/ 3 1
11)343/31
",599/39
16742/39

0225/31
02 96 / 3 1
0346/31
16606/39
"'744/39

022 8 /31
0 3 10/ 3 1
0357131
16611)"/39

KIL.PC

0160/31

0155/31

KIL..PO

0831139

0336/31

klJ40/31

16639/39

0647/J9

0666/39

0133/39

KIL.RC

0 8 26/39

0753/39

0772/19

KIL.RO

0835/39

0148/39

0768/39

0829/39

KIL.TS

0838/39

~592/39

0'64/3~

0817/39

L1024

0301

(6380/34

02tl/l0

07"'7/39

00111157

1312/58

L.2E

052"/21

i4'5/20

0.65

0017/28
0149/52
16215/54

0460/31
1D247/!52
IrH 65/55

0014/32
1cJ376/52
"212/05

16050/32
16\00/53

0318/53
0524/58

0053/28
0422/51
0112/54
0563/58

0~92/58

0244/51
0206/53
0383/58

LBOP

0353

0035/05

0375/12

1I)1t)61/17

L.IRAC

(149 5 /04

""2g/05

e049/ 06

LlHMP

0 4 73/02

0 440 /19

044 8 /19

l'U7/20

002r4/20

002 4 /20

KILOf

KILO!

L819 2

0268/51

k121J/31

~472/31

~610/39

rU51/31

1001 4 /28

0156/31
0479/31.
0811/39
0280/55

fU12/31
0481/31
1D832/J9
0302/55

01S8/31
10366/31
0686/39

11'192/31

~209/53

0187/31
8tHl/l!

042 9 /51
0409/55
0214131
0420/31
0689/39
0300/55
0061/58

0755/19

••••••

CROSS .. REFERENCE SYMBOL. TABLf:
~14b/20
041t~ 120

--

L-)132/21

0154/20
0459/20
0134/21

LCALL

0004/19

0197/19

L.CO

0269/32
0461/49

iD261/32

LCOl

031d2/32

14308/32

LC02

03 5 2 /32

0.30 5/32

LC03

0306132

03~9/J2

LCD~

03{)3/32

0326/32

LCD6

0320/32

,,331/32

LCD,

0327/32

1d3,l/J2

0370/32

LCD9

1d341/32

0293/32

0311/32

0335/32

LC08S

1!144b/J2

0311HO/32

0317/32

0327/32

LCOFL

f.'l44J/32

0291d/32

0307/32

LCOll)

0444/32

0291/32

0318/32

1d341/32

LCOU)

0231d/02

0566/11

fd450/16

.,282/32

LCOP

066J/3~

iD4kl2/35

LCH

0481/02

1d01l1b/25

10038/25

LCHAf'~

i1:114 8 /33
0022/38
016 9 /39
0362/ 4 i1:1
L-)1d42/44
f£l082/45

0748/32
1d1130/38
0175/39
1t:151J/41t:1
1d144/44
IH 42/45

0HH/33
0035/38
0189/39
0314/41
0181/44
0149/45

0320/45

033~/45

~~21/56

0602/39
1d1d22/42
0200/44
0288/45
1d454/57

L.CHCR

0174

111307/30

0149/33

I41b0/33

LCHRl

k'152/J3

1c)162/33

0196/45

LCHR2

0162/33

ft)141 145

1!U59/45

kH70/4b

LDSSA

01"3

1d267/4J
Idlh'l/54

0361/43

"'514/47

1lJ107/~4

i.ld~c/c6

10455

i"~6/26

fl68J/J2

LORYM
....._ _1

0229/20
0462/20

"238/2~

~351/~0

10498/20

0!501/21rl

0369/20
0506/20

0399/20
0110121

0313/32

10348/32

0399/32

0734/32

0663/35

1ia32Y/32

0353/32

1d3b8/32

1t:1169/33
"064/38
0606/39

0170/33
0134/39
1d616/39
It:IldJ3/ 4 4
111066/45
10314/ 45

iDJ41/J3
0149/39
1d344/41d
1t:10J8/44
01d7J/45
1d320/45

0406/49

"'102/54

112164/33
IiHr,51/J8

"b~Id/43

10061/45
d296/4!5

t1309/4!S

0070/48

"',

..

CROSS-REFERENCE SYMBOL. "ABL.E

LOVSH

1d486

~J02/19

l.E2

0052/21

0043/21

l.EN1

0020/45

0li112/45

L.ENa

81;)6/ .. 5

11.0/ .. 15

l.EN2A

0434/32

0069/32

l.ENCN

0246/0&

0249/04

l.ENO

0221/33
0152 6 / 4 7
012(1)/49
0682/51
0310/53
0139/57
0035/59
11)450/59

~434/32

0232/3~

~229/4S
~492/49

0411/154
0689/57
0084/59

ra405/48
10121/50
0471/52
0423/515
0729/57
1/)132/59

0239/33
0620/48
0497/50
0573/52
td326/56
IU6S/58
16275/59

0142/50

1tl182/51

~374/152

"017/45

0653/45
0714/48
td222/o1
0118/53
td339/56
0182/58
0330/59

0088/46
,,73b/48
0401/51
0215/53
0 4 62/56
1Il375/58
0376/159

0261/46
0744/48
!d61t)7101
0219/53
0122/57
0397/58
0445/59

0102/04

0211/04

0257/0.4

i'156/ 48
0334/48
0554/46
"'67J/48
IcHHl3/48
0111/49
01/J51/5fc1

0170/48
0527/ 4 8
0556/48
0766/48
0018149
10137/49
01058/50
0020/fH
0!d19/53
0362/56
0052/57
ihH8/58
0038/59
10103/59

l.ENOR

0224/33

0050/49

l.ENT

046g/40

0329/40

l.ET0

0306/03

~539/05

L.ETI

0320/03

fd314/03

l.ETCK

004 4 /02
0271/06

a301/02
034o/1tJ6

0446/02
03.9/06

r6009/1J4
0350/06

l.ETOP

0421

0289/03

0306/03

039rdl21

l.ETS

03 0 9/03

0518/105

L.Fl.AG

0163

0374/30

0;)80/30

~217/40

0232/45

l.FROf

0233/33

i:)231/33

0338/33

LFREH

0230/33
017 3 / 4 8
0532/48
0559/48
0774/48
0021/49
0140/49
006 6 /50
(1)483/51
0027/53
10425/56
0387/57
0029/58
0042/59

~336/33

00'3/45
0178/48
0538/48
0569/48
0786/48
0095/49
0016/50
0174/50
0615/51
",O38/54
121014/57
10478/57
0ill8/59

1/)027/46
.U81/ 48
0543/48
0572/48
0792/48
"'102/49
10019/150

0139/48
0331/48

k'l117/~0

0181/~0

01OJ9/52
"'012/56
01U7/57
0481/57
11)021/69
kH,'69/5g

0063/52
14017/56
i02i/f)7
0495/57
ltHD26/09
01072/59

0175/48
11)535/48
0566/48
0777/48
0061/49
01"ts/49
0169/50
0502/51
~0JII)/54

04Jl/56
0393/57
0324/58
00.47/59

0064/~9

0~46/48

0576/48
0795/48
0109/49
0048/50

"193/50
111479/52
0379/56
"'049/57
0015/58
0029109
0081/59

"""

CROSS"REfEHE.NCE
",100/59
0172/59
02ft18/59
",255/59
04010/59

SYM8U~

~111/59

IU 19/59

121125/59

0119/59
10211/59

0183/59
0227/59
0300/59

~186/59

~3"'3/59

ftl244/59
0313/59

lAtH-.f

"'136/59
10191/59
16247/59

0141/59
0194/59
kt249/59

(U66/59
121199/59
02!)2/59

ta415/~9

10424/59

J(J4J",/~9

~40J/59

LFSPA

0436.132

10084/32

LIA1

klJ1J

0121 0 0 /26

0271/30

LIB

",165
1215216/54

"J17/3k1

I6JIS'/30
0422/55

ftl383/JJ

ftl385/3J

"'5166/37

16490/50

IOJ21
121121 75 /28
0374/3i
1033 8 132
1211 75 /35
",220/36
0461(J/37
0118/39
0721/39
0225/ 4 1
10218/ 4 3
",357/44
",632/ 4 5

1d035/03
16171/J1
1(1404/31
101110/33
0192/35
"'241/36
048121/37

0.046/"'3
01 8 1/31
16493/31
0J16/34
1/1205/30
ftl2 9 1/30
0177/38
ftl439/39

0063/03
0205/31
ftl1(J29/32
",344/34
1t1261/35
10324/30
",314/38
0448/39
ftl791/39
14086/42
10324/43
kl421/44
0012/47
fdfd32/49
",,,,97/5,,,
Id477/50
",290/51
IrH14/52
10457/52
1d173/55
1d434/55
0256/56
ftl249/57
k1b;$5/57
0311/58

1/).,96/03
16285/31
"'1033/32
",373/34
0563/35
032f>/,,7
0026/.)9
I6~H 2/39
k)812/J9
1411213/42
0ft180/44
ftl439/44
1t146k'J/47
k)fdJ4/49
r1102/50
01674/51
tOl18/51
0239/02
0212/03
0180/55
10467/05
ftl294/57
10655/57
"'401/f>8

0481/27
1i1287/31
ta",50/32
111432/34
0114/36
0348/37
0037/39
ftl685/39
1tJ056/41
ft)111/ 4 2
",27",/44
1d5M)/44
1d486/47
0111/49
0118/0k)
",,,,76/51
0368/51
1d304/52
0138/54
Id252/55
1d077/56
10323/56
k1J34/b7
kJ685/57
040ij/58

0490/27
0333/J1
IcHd62/J2
ftl119/J5
11:1181/36
121448/;$7
121095/39
0695/39
16212/41
1(J472/42
",313/44
0630/45
0500/47
fd323/49
0346/f>0
0099/51
0392/51
0329/52
1d197/S4
ftl292/05
01485/56
03 68 / 56
",""1/57
"'132/58
10465/58

1d484/31
k1298/J7
0222/41

0024/32
002",/39
0380/41
1d625/45
0319/49
0408/51
ftlftI91/f>3
"'269/55
k1J64/06
Id07J/f)7

010 6 /JJ
0113/39
0083/42
",681/45
ta025/50
ft)54//51
10134/54
1I13k'1J/55
16106/57
"'127/58

",J3b/J4
042 8 /39
0108/42
ftl073/46
0J25/50
0170/52
0193/54
0081/56
021112/57
0152/58

0142/36

~J29/J6

~1"'2/38

la156/J8

1633Y/36
0214/38

0414/36
",273/38

LIBD

~ftl42/48

",369/49
0354/5f()
0149/51
0417/51
~JlJ/52

0208/54
fdl3ft1/55
",140/56
0",81/57
0363/57
0101/58
fd5ft11/56

LIBDI

0120/39
"'75~/39

16170/39

0384/41
10238/43
0372/44
121685/45
k)696/48
"12178/50

121""8/42
0253/43
04U>/44
0",77/46
07lfd/4b
0ft)82/5ft1
0466/50
024",/51
0604/51
0391/52
(6147/55
041ld/55
0233/56
0234/07
0595/57
0268/58

0444/5f()

16190/01
1d555/51
1d384/52
0034/55
1fl332/55
0189/56
IflHH1/57
121558/57
0204/58
"'558/58

~307/58

0056/03
1t)107/J6
1i1784/39
111379/43
",,,,83/48
ft)142/51
L2
0314/54
0247/56
"'554/57
"'4"'5/58

0472/27
0249/36
0806/l9
0263/44
0692/48
0251/51
111"01/52
0028/55
111263/56
0588/57
0481/58

0J39/33
00 44 /38

100 84 /30
00 76 /38

"'132/36
00 8 2/J8

0325
",183/35
0676/39
0491/42

",,,,31/ 4 7
"'~66/51

'11236/52
",265/54
013J/56
0338/57
LI~fH

VJ"'~4/55

~378/44

0026/49
ftl382/51
0388/52
Idl/7/55
0J19/56
10644/57
ftlfJ21 158

~306/fJ6

.... , ......

L.18P~

LIBRA

CROSS"'HEFERENCE SYMBOL TABLE
02 87 /3 8
0621/39
0229/41
16024/44
05 79 /44

033 7 /38
0632/39
03167/41
0051/44
0567/44

0 4 1 6 /38
0728/39
(6584/41
0061/44
1'tl04 9 /45

042 8 /38
0331/40
16015/42
0135/44
0176/45

10203/39
16J72/40
16247/42
0172/44
k'236/45

0240/44
023 9 /45

0261/J9
ef)31/ 40
16481143
028 6 /44
027 6 /45

0547/33
0296/39

~!500/J3

0508/33

16528/35

161311J8

0324/38

043 3 / 38

0097

0275
0009/34
0018/34
0025/34
0032/34
kHt'J39/34
(046)3"
0053/34
0060/34
0061/34
16113/34

0277
0012/34
0019/34

0011/17

121033/34
0040/34
01647/34
0054/34
ftj061/J4
1IJ1068/34
16023/35
tci514/37

0763/32
16013/ 34
ItH12f6/34
ttt027/34
ft!.,34/34

0404/39
kl2Y9/41
05J5/43
006liU4e
0298/46
0014/49
16012/53
i1524/56
0252/56
0548/59

0629/41
01610/44
01hU45
0162/47
1tJ113/49
0023/54
0528/56
01608/09
ItH) 14/59

1/51
0059/f)9
068v;/59

0764/32
"leU 4/34
01621/34
0028/34
0035/34
161'tl42/J4
0104 9 /34
It)ir:lf)6/34
16063/34
161070/J4
01617/36
11153 8 /37
0475/40
0239/ 4 2
0109/44
026 8 /45
0130/48
0ftjlltJ/50
0532/04
0458/57
0092/59

~41l/59

0018
0008/34
0017/34
16024/34
0031/34
0038/34
0045/34
0052/34
0059/34
0066/34
0088/34
0381/36
0107/lU
0211/ 4 1
0431/43
0161/J5/45
0287/46
0667/48
0034/52
"11)11156
0012/58
0482/59

0113

k'J 84 /J3

~392/33

01615/34
0022/34
002 9 /34
0036/34
0043/34
0050/34
0057/34
00 64 /34
0071/34
0368/36
0010/38
0007/41
0602/42
061 9 /44
0!S84/4f5
16430/48
0018/51
053 6 /54
0462/57
0155/59

16016/34
0023/34
0,,30/34
0037/34
0044/34
\110f>1/34
il05 8 /34
16065/34
~083/34

1f372/J6
0260/38
0255/41
0002/43
0622/44
0017/46
0525/48
0478/b1
0011/55
0474/57

fiH"a6/J4

k)$SU/J9

02 58 /39
16506/40
0~05/42

1a~41/34
1/)~48/34

0055/34
0062/34
0069/34
16368/35
16534/37
0014/40
0007/ 42
0094/44
162167/45
1a268/47
047()/49
0~29/54

ItHl1

'-ISSe:

0548/33
0298/"

(j495/3J

0518/35

05JltJ/35

k3127/38

0139/38

027 9 /39

LltsSP

0 549 /33
01 36 /38

0536/33
01 94 /38

0022/35
0223/38

16f)27/J5
02 8 3/39

0578/35
1tJ29f5/39

0595/35
1031 8 / 39

161J1/38
kl32 5 / J9

LI8US

0010/02
0 4 22/32
0421/53

0295
0 644 /32
0422/b3

klJ01
0 645 /32
0423/53

k3321
0 5 16/37
10543/55

16325
0 6 00/42
0544/55

0:595

0260/47
0546/55

0465
010 8 / 5 0
0231/08

L.IN£A

i62J/16

iJi0/16

LIS

0032/31

rt)498/29

LISH:1

0471/21

0004/19

0459/21

LIS11

0482/21

0473/21

0503/21

'-1512

0507/21

0395/21

LlS1J

0528/21

05Hj/21

0517/21

,,.,.,.,.

C~OSS~RE.fE.RE.NCt.

LIS14

0553/21

~402/21

L1Slb

0530/21

03.36/21

0.340/21

LISl6

0547/21

1(:)232/21

0292/21

1..1S11

0562/2\

"'5b7/21

1..1518

0522/21

1/l519/21

LlSCM

0264/21

0254/21

LISCP

0281/21

0256/21

0269/21

LISCQ

0287/2!

11'201/21

0275/21

LI5CR

Id2 89/2l

02b0/21

LI5CU

0312/21

03(()0/21

1..15Pf"

1t)34b/21

03~"'/21

LISPM

~o353/21

0343/21

1..15T

0226/21

0224/21

I..IST(()

0427/2l

0418/21

llST2

0334/2,

0322/21

0382/21

LISTJ

~J69/21

0 48 1/21

0366/21
0 486 /21

041 6 /21
0 488 /21

LIST4

1636 6 /21

id371/21

0500/21

1..1Sr b

0409/21

0389/21

0"91/21

I..ISTb

0 4 31d/21

0453/21

0476/21

LIST7

0447/21

"440/21

LI5r8

0449/21

(()429/21

LIST9

0457/21

1(.14103/21

LLt.NL>

01 8 2/33
081 9 /39
0194/ 4 2
0519/44

0307/3J
0825/39
0282/43
0554/44

0311/J6
0019/414

SYMf:HlL. TAaLE

0110/31

0443/21
06 2 6 / 2 1

1444 6 /21
0 53 1/ 2 1

0470/21
0 564 / 2 1

0562/44

0231138
16327/40
0575/4J
1d091/45

10447/38
0502/40
0083/4.
!el166/40

0£;68/J9
007!el/41
0502/44
1c'1218/45

0805/39
0;'99/41
Id007/ 44
023.3/45

1d3140/21

0025/22

ro48~/43

0 438 /21
1(:) 497 /21

0521/21

~J78/45

~

LNAME

~24J/02

10012

0318/09

LNGTH

1d341 "'2

0186/06

°2 10 3/06

,.,.,.,.,,.

CROSS"~E.FERENCE

L.OC11d

v,H52/52

1tl161/f)2

LOCll

0157/52

0215/52

LOC12

0162/52

0156/52

LOC1J

0170/52

rcS21J/52

LOC15

020 9 /52

0160/52

LOCH>

0217/52

0~06/52

LUC20

0226/52

0160/52

LOC21

0241/52

0215/f»2

LOC2;l

0251/52

0271lJ/52

L.OC2J

0272/52

0246/52

LOC24

0217/52

0263/52

L.OC25

0267/5~

0259/52

LOCJ

0305/52

0311/52

L.OCJ'"

0297/52

0229/52

LOC4

0313/52

0320/52

LOC40

0378/52

0465/52

1.0C41

0394/52

i444/52

1.0C42

041J/52

0400/52

1..0C43

fc'J44 5 /52

0441/52

1..0C44

0436/52

0 412/52

1..0C5

13340/52

0358/52

1.0CAO

0108/02

16106/52

L.OCCM

0579152

0123/52

LOCO

0594/52

0042/52

LOCOA

0576152

'4105/52

LOCOG

0497/52

LOCDl

0590/52

0182/52

SYMI10L, TABLE

fU81/52

IUga/Ci2

0216/52

1

01\0W/52

lUll/52

"051/52

IQiJ59/52

047 6 /52

0484/52

",499/52

(r)503/52

0506/52

0507/52

iH53/52

0167/52

019 4 / 5 2

6d214/fj2

11)250/52

026 9/52

""".,."

-

CROSS'"HEFERtNCf SYMtiOL
038"/ 0 2

fd43f)/f)2

I.OCOL

iI'~7f)/b2

0093/52

L.OCoP

0591/52
0432/52

L.OCOl

lA~L.E

",437/52

.,443/52

1tJ45{t1I52

IU77/52

11:1178/52

"UU /52

.,210/52

0090/~2

0094/62

0097/5~

0099/52

"101/52

LOCDU

0582/52

0159/52

LOCf.K

0562/02

14219/02

0~50/52

14555/52

0559/52

14566/52

LOCF

0597/02

1tJ0b2/52

01066/52

!d183/02

10305/52

10339/52

LOC"1

1d0JItJ/32

00b2/J2

LOCF~

0017/32

0060/32

LOCfG

0032/J2

0038/32

LOCf'R

006!d/J~

0034/32

LOCI..

059ti/52

00 6 0/52

,,189/52

031.5/52

14355/52

10531tJ/52

L.OeL.1..

0576/52

0346/52

LOCMb

0080/02

14125/52

LoOeN

059b/52

0480/52

0486/52

1tJ486/52

1r:l492/52

LOCNl

~460/52

1c)491/02

LOCN2

W;J492/52

ij485/52

LOeNO

0093/52

0385/02

0446/52

LOCNO

"47 7 /52

100"5/52

01046/52

011306/52

.,481/52

0493/52

"'494/52

I..OCNT

0589/52
012 4 / 52
idJ52/52

007b/52
0353/52

00 68 /52
01 66 / 5 2
0375/52

0092/52
0212/ 52

10100/02
1'0234/52
0463/52

101",4/52
02 74 / 5 2

0110/52
0 345 / 5 2

1..0CHl

0554/52

1d04b/52

0548/~2

LOCH2

0558/52

1d068/52

0483i52

1..0CSL

0126/52

~H

26/52

0129/52

!(J13t/52

L.OCST

!d577/52

0016/52

L.OeSW

fc1~19/52

VJ~77/52

0!(Jelf)/52

kl1tJ85/52

IcH,,87/52

~069/52

LOCr

1059b/52

",J41tJ/52

0354/52

14503/52

1f)510/02

~

~-~

~130/52

0439/52

.,418/52

0428/52

!d524/52

..... .,.

tROSS-REFERENCE SYMBOL TABLE
0588/52
0331/51
0227/52

0456/31
0334/f)1
0230/52

"'itflUl/ ;'2

k)420/51
024e/52

0247/51
(6082/52
0372/52

11292/51
111,,84/52

0321/51
0148/52

0323/51
0208/52

0 5 92/52
0262/52
0377/52
0410/52

0150/ 5 2
0216 7 / 5 2
0265/52
0J79/52
0.421/52

01e5/52
162 4 0/52
0266/52
0395/52
0424/52

01 96 /52
02 4 2/ 5 2
0271/52
0396/52
0442/52

'0198/52
025 4 / 5 2
0273/52
0404/52
0285/54

iU 99 / 5 2
12 57 / 52
0279/52
0408/52

02162/52
02 6 0/ 5 2
0288/52
0411/52

0518/52
011 7 /52
0528/52

0078/52
0120/52
0633/52

0083/52
0127/52
0538/52

100 9 !5/52
0292/ 5 2

0107/ 5 2

0 5 19 /52

0113/52
0 5 20/52

0115/52
0523/52

Loeuo

058l/52

~469/52

LOCUI

0584/52

0470/52

LOOIR

0581/52

0151/52

LOGtif

16100/29
0094/29

0066/29

0010/29

0077/29

"'079/29

0084/29

0091/29

1..0G~G

16357

0060/29

0357/39

0479/39

i1345/49

LOGtT

",339
16499/39

0051/29
0339/49

0056/ 29
0366/49

iU90/3"
(6378/49

10351/ 3 9

03 7 5 / 3 9

04 7 3 / 3 9

LOGGR

0124/31

0341

kl351

0357

0359

L,OGND

0 35 9

00 5 9/29

0356/39

(r)478/ 3 9

0344/49

LOiP1

0341

Be67/29

Ifl61/2i

fUIf)2/2i

ea8rl/29

1i181/29

~089/29

009~U29

e"7,/2g

0085/29
16351

k'4 8 k'/39
03510/49

0354/39
0483/39
0365/49

0359/39
0484/39

0498/,,9

~36~"39

",311/39
fOJ42/49

037 4 /39
k1346/ 49

0476/39
03 49 / 49

LOGRZ

0",99/29

0096/29

LOUT

0118/33
0520/39
0030/ 4 1
0111/41
0199/41
t')488/41
0562/41
v;611/41
0147/42
0188/42
k)278/42
16516/42

0435/32
0527/39
0050/41
0120/41
e340/41
0495/41
(1)567/41
0047/42
0149/42
0190/42
0313/42
0618/42

0122/33
0536/39
1d082/41
0142/41
.,,407/41
,,5UJ/41
0571/41
0123/42
I01b3/42
0203/42
0337/42
1'6648/42

11129/33
01/114/41
kl084/41
0144/41
10414/41
0547/41
16596/41
0130/42
0172/42
0206/42
0404/42
0675/42

0134/33
01626/41
10088/41
0146/41
0459/41
16549/41
0599/41
0137/42
fU 74/42
0216/42

0183/33
0029/41
16102/41
"161/41
0461/41
0555/41
0608/41
16143/42
0176/42
0264/42
0442/42
0684/42

LOCTe

LoeTP

16216 3 / 5 2

LoeTS

LOGP2

0745/32
16533/39
0069/41
0140/41
16343/41
0497/41
0569/41
~050/42

0151/42
0193/42
0320/42
v;621/42

0~23/42

0682/42

"",.,

CRUSS"'HEf~RENCt:.

VJ686/42
0395/43

"~14/43

SYMBOL. lAtiL.E

0{(J19/4J
0599/43
kJ435/4o

",2 6 1/43
kl609/4.3
",4.37/45

10297/43
0{(J29/45
"'009/45

{(J512/45

031 4 / 4 3
k'l1043/45
0530/45

0.308/4.3
1O"'40/4~

0518/56

"'514/43
k'l4J2/45
0452/57

LOUTA

04J5/32
01 77 /32
0209/32

0154/32
0179/32
0211/32

16156/32
01 9 ",/32
I.1221/J2

13158/.52
01 9 2/32
{(J224/32

.,160/32
01 96 /32

0169/32
1£1198/32

0172/32
0207/32

LPCK

0032/02

0391/02

0374/03

0134/04

10266/04

0067/06

{(J553/!d6

LPD

!d1M;

0053/3'"

005 8/ 3 9

"41~/39

0208/49

LPMl

!d242/45

0235/45

LPM2

0246/45

0238/45

LPOP

1/)355

0282/104

LPH

014d

",221/45

LPRl

k'l220/45

"213/45

LPR2

10234/45

"'216/45

LPR3

k'l237/45

1tJ227/45

LPS

0150

001(J3/4J

LPSTK

0636/32

1/) 45 9/32

LSD

id461/49

1/)267/49

LSTDA

1/)104

0372/43

0433/47

0412/49

(U30/fS4

LT0

tdJ13/02

ru227/21

0321/21

1£1373/21

01:)37/21

L.ll

0314/",2
03 76 /16
03310/21
1/)367/21
0482/21
1/)619/21

0319/",9
0391/16
0334/21
0369/21
0490/21

0573/11
0419/16
,,331/21
0386/21
0494/21

0585/11
10426/16
10355/21
{(J41/)9/21
0509/21

1Q326/16
0434/16
16359/21
1/)462/21
10554/21

1Q368/16
0437/16
0360/21
10464/21
0614/21

0371/16

0Jlb/~2
037~/21

1tJ326/09
0 46 3/21

0590/11
0 466 /21

k'lJ24/16
{(J483/21

IcJl86/16
0 4 9 b /21

0307/21
ItJb23/21

0J6b/21

0310/02
023 4 /21
fd423/21

10314/16
02 65 /21
043"'/21

0336/16
(11 288 / 2 1
0435/21

0341!1/16
", 294 /21
1tJ477/21

0343/16

0373/16

IdJ2 9 /21

"499/16

1d~11/21

f1J589/21

0599/21

*t317/ltHt
0623/21

.. -48"/21

.. -498/21

IdfHJ/21

..674/21

..577/21

04~1/45

L.12

10551/06

0096/47

0.301/21
16362/21
0460/21
1ci616/21

052 9 / 2 1

fd615/21

LT3

LoT.
~_./

0415/~1

0611/21

..

,., .. ,

CROSSeREFERENCE

~YM80L.

TABL.E

LT5

0318/02
0242/16
0478/16

0401/11
0316/16
0240/21

0408/11
0362/16
0417/21

0516/11
10397/16
0489/21

0t521/11
0399/16

i229/16
041217/16

0241/16
0453/16

LT6

0319/02
0335/21

02J1/16

0338/16

10383/16

14388/16

0247/21

0290/21

LT7

0320/02

0249/21

((J27J/21

0338/21

LTtS

0321/1212

"'229/21

121283/21

10342/21

0345/21

"349/21

0352/21

LTEMP

0039

((J287
100 5 0/03
11:1076/10"
012185/32
0113/32

0021/03

0022/03

100 5 2/03
121081/03
0087/32
0116132
0132/32
0174/32

00~4/0J

0025/03
01t166/03
0084/1t13
1t:l.,97/32
0121/32
IrH62/32
0186/J2
0324/32
1tJ547/33
1t:l212/34
0545/34
0552/34

0033/03
00 7 2/03
ilJ092/1i13
1t1101/32
0122/32
01 64 /32

0"'37/03
00 7 ;'/0 3
0093/ilJJ
0105/32
0123/32
016 6 /32

00 38 /03
0074/fcl3
0083/32
IrH11i1/32
012 5 /32
0170/32
0219/32
121249/33
024 4 /34
030?/34
054 8 /34
0555/34
0063/35
0121 87 /35
010 4 /35
034 9 /35
04 87 /35
0666/35
0333/36
0362/36
00b 4 /38
023 4 /38
02 46 /38
121032/39
03 88 /39
0442/39
061 3 /39
0842/39
045J/40
0460/40
0487/40
0498/40
0011141
0235/41
027 8 / 4 1
0345/41
121365/41
0412/41
0436/41
044 8 /41
0487/41

1tI1~6/32

fiH73/32
0222/32
025fcl/33
0241/34
0346/34
0549/34
0550/34
0066/35
0088/35
0124/35
0350/35
0515/35
0661135
"356/36
16363/36
0061/38
0240/38
02 41 138
02 48 /39
0J69/39
0443/39
083 6 /39
0843/39
0454/40
0461/40
0490/40
0499/40
0012/41
0236/41
14284/41

0350/41
0310/41
~415/41

e'37/41
~4~Hil/41

0489/41

03H~/32

1tJ2 6 1/33

0259/34
0349/34
05t50/34
00:30/35
11"'69/35
0089/35
0162/35
0351/35
0601/35
0668/35
03D7/36
0364/36
(II1r:l63/38
02 4 1/38
11'4;'9/38
02 5 0/39
0390/39
1cl572/3i
0837/39
ft)448/ 40
0455/40
0462/40
0492/416
10521/40
01443/41
0237/41
0333/41
0351/41
037S/41
0428/41
0438/41
04(')1/41
0499/41

0082/03
1/l0S8/J2
0119/32
10133/32
0183/32
10321/32
0252/33
0263/34
035121/34
~551/34

",,,J2/35
10072135
1d090/35
0167/3~

0406/35
0602/35
kl669/J5

0358/36
1tl423/36
0092/38
0242/38
1t')4 5 0/J8
0261/39
16391/39
1cl573/39
1t')838/39
ft)449/40
0456/40
I6A79/40
kl493/40
0522/40
0065/41
~238/41

0335/41
0352/41
0385/41
0431/41
0440/41
0455/41
10503/41

flH'36/35

0075/35
012194/35
0112/35
0436/35
0606/35
ki610/35
0359/36
0425/36
10124/38
0243/38
~451/38

1tl290/J9
0392/39
1tl514/J9
1i1839/39
0450/40
0457/40
048121/40
0494/40
0539/40
0216/41
1tJ239/41
0331141
0356/41
10394/41
0432/41
11:1441/41
0457/41
1050$/41

id188/32

019~/32

1t1363/32
.,548/33
0286/34
1054 6 /34
0553/34
0031/36
0107Y/35
0097/35
02 45 /35
ilJ443/35
1t1664/35
0316/36

0367/32
10049/33
121291/34
0541134
0554/34

0360/36

0"16/38
1/)229/38
~~44/38

0027/39
0386/39
0393/39
0575/39
0840/39
0451/ 4 0
16458/40
0483/40
0490/40
0545/40
0233/ 4 1
0~40/41

0341/41
0362/41
0400/41
0433/41
0442/41
0462/41
10511/41

004~/35

0084/.)5
16099/35
0348/35
0448/35
0665/35

0321/36
0361/36
01050/38
"'2316/38
02 40 /38
01d31/39
0387139
10440/39
0596/39
0841/39
0452/40
0459/40
14480/40
049 7 /40
0010/41
023 4 /41
0241/41
10344/41
0364/41
0408/41
043~/41

0443/41
0470/41
0514/41

,.

...,..

CROSSwREFERE.NCE SYMIjOL TAbLE
~516/41

1d~21/41

~522/41

1d532/41
1d560/41
004k'1/42
0066/42
fd11 4 /42

0535/41
0563/41
101042/42
0079/42

013~/42

10140/42
0168/42
"'222/42
10314/42
10377/42
0411/42
10468/42

0537/41
,,594/41
0044/42
0081/42
1d124/42
0141/42
0183/42
0269/42
0321/ 4 2
0379/42
0425/42
0471/42
0503/42
0526/42
0574/42
0649/42
0tH2/43
0046/43
0078/43
010ij/43
0141/43
0174/43
10242/43
0309/43
0360/ 4 3

0164/42
1tl221d/42
03fd 8 /42
0376/42
041d9/42
0458/42
0497/42
0517/42
0552/42
0596/42
10712/42
"'040/43
ifH!171 143
01041 4 3
fd135/43
0163/43
"'230/ 4 3
fd290/4J
033 9 /43
Id 4 01d/ 4 3
061 9 /43
008~/44

034 8 /44
ii149b/44
0610/ 44
0103 5 /45
rd251/45

0372/45
1()41 9 / 45
0573/45
08~0/45

1t11tl56/46
10110/46
111129/46
0164/46
0225/4b
0359/46
10459/46
0"54/47
01111/47
02JJ/47
1fJ284/47
"'342/47
1d3b2/47
0474/47
~021/48

0v.15b/48
~

~115/42

051O~/42

0519/42
0571/42
10646/42
00",,8/43
0043/43
0074/43
"'105/43
fd138/43
016/143
0233/43
0303/43
(6340/43
0 4 0 8 /43
0620/43
0113/44
035ii1/44
051tlJ/44
",f511/44
tl038/4~

k'J282/45
1.310/45
0450/4f)
0574/45
10045/46
0~61/46

0111/46
10136/46
"-'1b5/46
0236/46
0372/46
"'475/46
0057/47
0105/47
tr1242/47
0285/47
03~3/47

11:)385/47
10478/47
0027148
k'0b9/48

1()523/41
0538/41

~6~5/41

"''''51/42
IM,,98/42
10131/42
10154/42
0204/42
1C279/42
0J38/42
0388/42
10431/42
10474/42
0509/42
11:)528/42
16588/42
10658/42
0035/43
10048/43
11)084/43
k:l119/43
10146/43
0182/43
0262/43
10323/43
0388/43
1df">27 143
fd075/44
0308/44
10463/44
0610 6 / 4 4
k:l026/4t)
0045/45
1D35 b l45

0398/42
0446/42
0481/42
1d511/42
1d542/42
1d59k1/42
1C661/42
01037/43
1C067/43
k:l089/4J
tr1121/43
11'159/43
1{)217/43
02 69 / 4 3
16329/43
0391/43
10617/43
tr111J84/ 44
1fJ319/44
10489/44
0611J8/44
1IJ031/ 45
k:l0B1/45
IOJ 610/45

rtJJ92/4I,5

'~12/4i

.4,1/45

047~/45

0528/4t5
1d79 8 /45
10053/46
1d089/46
111119/46
11)153/46
10183/46
0321/46
11)436/ 4 6
10027/47
0079/47
11:1224/47
1tJ278/47
·103210/47
0377/47
0417/47
1d006/48
1d04b/48
0421/4ij

0531/45
0799/45
0055/46
01096/46
liH20/46
1ll163/4b
fd202/46
0329/46
fd44 6 /46
1dt447/47
0089/47
1cJ226/47
1d281/47
IcJJ27/47
0.580/47
0459/47
k'1tI08/48
01tJ!S6/48
0422/48

~116/43

10255/43
0315/43
0375/43
"'~26/43

0066/44
fd304/44
",459/44
Idb1l)5/44

':HH~/45

Itlfd20/4!5

0041/40
0283/ 4 5

~033/48

Ic:11D44/45
10284/45
.,384/46
10416/45
0576/4f">
0fd47/46
10078/46
ic1114/46
1c:l138/46
ItH81/46
ir:l290/46
0389/46
"'491/46
1d066/47
0219/41
1d275/47
10305/47
k13b4/47
1U405/47
0b1ll2/41
1tl1a41/48

0",92/48

~112/48

~28b/47

0357/47
0397/47
04910/47

KJo310/ 4 1
0556/41
0632/ 4 1
10"'63/42

ro597/41

0~25/43

.~81iJ/4(j

",52 7 / 4 1
",55",/41
tr1609/41
10052/42
01104/ 4 2
1()133/42
0156/42
1()214/42
"'296/42

101d48/42
tr1088/42
10128/42
0144/42
II!12fd1/ 4 2
0271/42
10329/42
",382/42
10 4 27142
10413/42
11)507/42
0527/42
10579/42
k)656/42
101016/43
tr11047/43
",O82/43
"'112/ 4 3
10143/43

0010/44
0302/44
0352/44
06",4/44

0452/45
0575/45
0tr146/46
0068/46
1t1113/46
0137/46
1d166/46
1d238/46
038fd/46
0479/46
0059/47
0109/47
0273/47

1O~25/41

1d54J/41

,,797/45
101d49/46
16"'85/46
IrH17/46
16147/46
10182146
"J20/46
"403/46
11'008/47
"'067/47
10221/47
0277/ 4 7
IdJ16/47
10374/47
10409/47
160",9/47
1tl044/48
0418/48

1()35~/42

~106/42

0135/42
10160/42
"'217/42
"'298/ 4 2
0367/42
0401/42
0454/<42
0487/42
0614/42
0545/42
"'591/42
0663/42
0k1J 9 / 4 J
"""0/43
1d101/43
10126/43
0162/43
O223/43
0288/43
0331/43
0396/43
10 6 1 8 / 4 3
0088/44
IfJJ2 4 / 44
0495/44
060~/44

01d32/ 4 5
0089/45
IdJ64/45

"""

L.TR

CROSSIIIREFERENCE SYMBOL
0423/48
10547/48
0604/48
0626/48
0813/ 4 8
0234/49
0288/49
0322/49
0363/49
0455/49
0l1!161/5kJ
0507/50
0461/51
05 89 /52
059 6 /52
0411/53
0566/54
It)573/64
0511/56
0021d/57
1lI1d79/57
0135/57
0244/57
0311/57
044 9 /57
0533/57
0671/57
0021/58
0178/58
0256/58
0571/58
00JId/59
0099/59
el87/0t
0477/59

,,424/48
0548/48
ftJ~12/48

0~27/48

0814/48
0239/49
0301/49

0334/49
0372/49
0457/49
0063/5ic)

",5,,7/48
0550/48
0617/48
0629/48
08U>/48
0248/49
0J03/49
0347/49
",;514/49
",029/50
0064/50

iI~08/50

050~/60

0462/51

0463/61
",591/52
05$8/52
0413/53
0568/541
00781:)6
0513/56
0SeV/57
0ra85/:)7
0158/51

~590/S2

0597/52
0or112/53
",S67/54
0514/54
0512/56
0061/57
1d082/57
0141/57
0255/57
U443/57
0481/57
0539/57
0720/67
0023/58
IU 99/58
0261/58
0572/58
0033/59

"100/59
1188/59
0478/59

k/50 8 /48

~51~/48

"'551/48

0662/48
0623/48
",646/46
lI!I157/49
16265/49
lI!IJ08/49
0357/49
14445/49
1Ct038/bld
0137/50
1d458/51
1/)465/51
0S93/52
16408/53
"'415/b3
It)f)70/54
10450/56
k:l5U;/56
"'011/57
"112/57
0164/57
",286/57
0446/57
0497/'07
0648/57
It)755/57
"'1d43/58
1d234/58
16568/58
16011/09
0075/59
0120/59

16618/48
0638/48
ItHfJ6/49
1rJ249/49
0304/49
0352/49
0443/49
"'036/00
lI!I1J5/50
0457/tll
1d4b4/51
1/1592/52
0407/53

038V/5j

1/1414/53
0569/541
0/de7/56
10014/56
0070/57
lI1095/51
0161/57
0284/51
0445/57
",491/51
0641/57
10754/57
0031/58
0233/58
0567/58
0574/58
0013/59
01i4/59
0390/6i

026l1!1/57
It)444157

0489/57
06J9/57
0125/57
It)e2S/58
0218/f)8
0264/58
0573/58
0061/59
0112/59

TA~LE

0611/ 48
0577/48
16624/48
1rJ648/48
0158/49
16269/49
0309/49
0358/49
0451/49
1d040/0~

0505/50
0459/51
.,68//51
11594/52
11409/03
1d4H>/53
~571/54

1d458/56
05H>/56
lI1~76/51

"113/57
1d166/57
0288/57
1d447/57
IrH>,,9/57
10652/57

0756/57
IcH09/58
0235/58
1d~69/58

0015/59
0~79/59

.,122/59

,,03ti/48
0579/48
0625/48
16649/48
f0159/49
0284/49
0313/49
",361/49
0452/49
0kl54/50
0506/50
0460/51
0588/52
0595/52
041fd/53
0560/54
0572/54
"'510/!)6

0517/56
007t)/57
0133/57
k:l241d/57
0311/)/57
t'l448/07
0526/57
0659/57
0757/'!",
0173/58
0254/58
0571d/58
01rH6/59
0095/59
0126/59
0J93/09

i~illb9

.. 392/09

i/l007/i/l4
0273/06

16100/04
0278/0 6

16267/04

0036/02
1611 6 /0 5

0393/02
1621J/~5

0361/163
0 39 9/0 e

0J08/03
0272/06

L.TYPl

fd145/33

111125/33

It)lJ0/33

ItH 36/3J

L.TYP2

0146/33

0126/33

0127/33

0133/33

0136/J3

LTYPJ

0127/33

0137/33

LTYPE

0139/33

07.7/32

0144/33

0339/33

"'b40/39

LTYPR

012 4 /33
0 564 / 4 3

0746/32
0 6 12/43

0132/33
0 5 19 /56

kHJ8/.3J

"'140/33

0143/33

0539/43

0295
i205/52

0109/37

fU44/37

0167/37

16177/37

0216/37

0270/51

(4235/54

0165/"'3

0278/03

LULEN
Lw200

0 45 3/57

,,.,.,.,,,

CRUSS .. REfERENCt. SYMHOL TAbLE::

LW 97

~379

1d53ij/35

~147/J8

10326/JS

11:1306/39

LWAUS

0250
01 9ij /1 6
11:1142/38

1/:1418/11:14
02 id l / 1 6
1d301/J9

0611:12/00
01/:12 8/ 18

~52rd/06

11:1 0 32/1 8

0185/1/:19
rtl327/34

0299/12
0533/35

0477/14
0409/36

M1001tl

001~/19

~Ht.'I63/19

M103

0200/05

~563/06

M10K

1d59ti/44

104..50/44

M124

051 4 /20

0463/20

M128

0451

0140/43

M13l.

0003/33

"'261/33

M1336

1d619/28

0125/310

M21d00

0425
023~/3e,
~050/51

0424/1t19
11:1442/35
0139/51

0469/27
011:160/38
0231/52

02 4 13/34
1clft117/39
026e1/54

11:1..532/34
0425/39
IOb51/57

ra359/34
1c)672/39
0083/58

0180/35
0277/41
0..5e14/b8

04 49
0 449 /10
16481'.i/42

",501
,,527/15
1O()28/47

02id9/1d9
01"'2/16
00 8 0/53

10273/11
10498/19

1d252/1 5
id10 ti /2113
0062/59

0390/15
113287/22

01~6/5J

0255/14
0507/19
0018/55

0212

0422/19
1d3 9 0/J2
i642 6 /3ij
10035/51

",389/25
10107/33
11:1030/39
0105/51

k}484/27
0376/33
10441/39
11:1151/51

0030/28
t(J347/34
1/:1687/39

026J/JII:I
0537/J4
0233/49

0283/49

0331'd/14
0253/32
11:1212/38
"'4144/49

"136K

0621/2&

0652/2ij

M40

0611:11/4~

10419/44

"141B

~618/2ij

13112/30

"146

0-'07/23

0302/24

"1512

0439

'1J2fO/J~

0387/J3

0356/43

006~/48

040J/49

01"'0/54

M60i:J

k1617/28

009 6/30

M04

0500

0110/26

10287/31

0 4 23/37

0220/44

0313/50

0417/013

M6ij2

0512/J7

k:l043/J7

M6ij3

051J/37

10045/37

... 718

009 4 /21

"21S2/~1

"1256

M32

~437/3i6

1/:I1t!5 0 /36

~

0379/47

0434/44

,.,.,.,,.,.

(;ROSS.RE:FERENCE SYMBOL TASLE

M72

1()007/12

0217/12

M72S

0211
1()50 3 / 4 3
07916/48
1()346/58

0323/21
0185/44
0135/49
0067/59

1();,t51/21
0202/ 4 4
01e9/50
0301/59

16539/21
0484/45
0637/51
16458/59

1'173

0441

0405/03

0103/05

10160/23

1'174

0629/11

0078/11

1'180

0511d/37

lQ4!1.l1/J7

1'18184

0411

0177/36

0117137

1'18190

0430/32

0401/31

1'1819 2

0432/32

16202/31

1'196

1d453
1()535/34

032 8 /14

0 4 2ft1/19

MAOD

0245/18

0014/17

MA()()A

0014/17

0all111

MAGt

003 6 /59

0013/59

MAGS

003J/59

1D023/59

0037/59

MAGO"

,,":140/59

001691&9

01U4/59

0164 9/ 5 9

MAGSC

0089

~259/42

0261/42

MAIN

"H64
0~H 9/05
IlH!J4 5 /07
03 69 /09
05 79 /11
10444/16

0192/.,3
062 9 /05
0047/16 7
.,2J 7 /11
16592/11
0 446 /1 0
101 6 7/21
0227/30
",410/32

019;'/03
0049/06
0060/fd7
0206/11
05 98 /11
k14e8/16

~404/19

022 5 /30
04102/32
0413/38

16275/33
0329/48
0501/52

0530/ 48
0C!J9/53

034 0 / 4 0
0541/46
034((.1/54

0153/37

16309/44

16185/56

0245/51

I(JJ 87 /25

(d071/26

,,435/30

0165/33

16310/46

I(JJ12/46

0478/49

0"3 4 /ei9

0240/03
100 5 0/06

0433/03
11)242/06
0313/09
01554/11
0254/16
kH51fd/16
0465/27
0381/ 32
0207/38
0479/4;}

0463/03
,,254/146
0368/09
0574/11
032"'/16
03 89 119
0552/29
0397/32
0334/38

~425/38

0230/30
10535/33
0446/38

0297/11
02rd9/12
10506/1 6
02;}9/21
0254/30
1d015/35
ft)824/l9

0418/03
leU 87/06
IaJ12/1a9
05!52/11
0253/16
0508/16
16032/22
10313/30
lao45/35
10326/40

~178/21

03~6/09

a178/39

£1484/43

MANTI

0302/102
0210 5 /22
1a25 8 /23

0095/19
1d212/22
0262/23

0287/19
0232/22
0268/23

10059/22
0244/22
1d279/23

kHd92/22
02 49 / 2 2
1/1145/25

0168/22
",31 7 /22

0UH/22
0J32/22

MANT2

",303/VJ2
020 2 /22
0147/2f)

14097/19
0213/22

0288/19
02 33 / 22

11)060/22
0 3 23/22

10088/22
11)331/22

0169/22
0335/22

0197/22
02 84 /23

MAT10

007 4 /,,4

0084/144

.......

-

CkOSS .. RlFERENC£ SYMt30L.

MATll

1c:l~8J/~4

1c:l1c:l69/~4

MAT12

00~4/04

00()7/04

MAT1J

006~/kl4

"1IJ47/04

MATrN

0525/1a4

~108/~4

MATFS

0521/22

1c:lf>25/04

MAllU

0526/1c:l4

ItH:H 7/04

MATQP

1c:l01c:l9/07

0072/08

MATS

0007/1c:l4

05J5/105

MATS1

003 3 /0 4

002 4 /04

MATS2

0043/04

0022/1c:l4

MATSJ

0089/04

(1)010/04

MATS4

1d131c:l/04

10122/04

MATSo

IU41/04

Ic:lllcH 104

MATSo

0149/164

IrHIc:l3/04

MATSl

0162104

0176104

MA1S8

1c:l171c:l/04

0160/04

MATS9

0172/04

~H61/04

MAXC R

0339/02
1c:l21d1100

MAXE.

TAti~E

0026/104

k>!028/04

01d42/1d4

fc)285/1(JJ
0239/05

0293/03
0219/00

1d5106/0J

0540/03

0016/04

0202/164

0433/02
"1c:l94/18
10217/18

0/(J35/18
0130/18
1t1220/18

00056/18
0144/18
0266/18

"043/18

"079/18
0168/18

IrHJ81c:l/18
142°1/18

Ic:lld89 I 18
id204/18

MAXFX

01d31/19

0~86/1g

MAXSN

0413

0117/06

MB

",,,,5 4 /21

0031/21

MtJUSl

"521

0190/29

"-1175/3""

0178/30

MBUSv

kl110
1d54 2 / 3 5
0282/38
10175/56

kl174/1c:l3
kl584/J5
0329/38

0221/15
0131136
ItIJ61/38

",497/15
1d307/36
041dl/38

0191/29
0151/J8

016O/3O
0201d/38
0722/57

0113/30
0268/38
01JO/b8

"1~5/18

"'273/18

0171/40

ft)078/57

II,,.,,.,

--~

CRuSS"r/45

0158/45

~169/45

MEXIT

,,418/02

0163/11

0C:!56/17

.0040/18

01656/16

MHAD

0106
01084/47

0134/31
10387/49

~302/42

10547/42

0045/53

",469/42
1d1d56/54

MID

101043

10291/33

01085/50

021~/51

111257/51

MINFX

10030/19

0091/19

MINPl

00105/17

0!b8J/17

MINP2

001214/17

0085/17

MIOI

0045/17

fd1~4/17

MI02

~H19S/17

0"66/17

MI03

1012 8 /17

0111117

MI04

0117/11

k'122/17

MI05

0132/17

lr:1i40/11

MI06

1t1135/17

0131/17

MI07

01 49 /1 7

062 8 /11

01/)96/1 7

10123/17

MIOS

01310/17

0145/17

MI09

01089/17

0077/17

MIOE.N

06 2 8/11

fC255/11C

MLtt19

10546/55

10513/55

MLDI~

05211b4

0174/54

ML.fLA

[6024/33

0055/55

MLlS0

10395
03910/44
10625/57

0254/31
kl645/45

0361/31
10057/46

0261/36
l!J~88/51

10178
10561/28

121181
0r- 88 /28
0360/.110
0509/310
1i1075/JJ

0fd84/ro7
0fd08/29
0Jb9/JI(J
rd521d/Jrd

10349/07
1d014/29
10381/30
",5JItt/J0
1(J119/3J

MLINK

IOJ3J/30
~51d8/3~
~056/JJ

-------

10303/46

0009/47

10338/37
fdJ23/S2

10737/J9
10275/56

0366/41
fd222/b7

10386/107
1d165/29
10386/30
"'231/32
ftl152/J3

0421/1c)9

fd18'/30
10451/30
"'259/32
102!>4/JJ

037 9 /1 9
IU 8e /l0
0455/30
026b/J2
",352/3]

l1liH~5/17

rdro~8/JJ

••••••

CROSS-REFEREN(,;E $YMBOL. TABL.E
0397/33
0209/34
0019/36
0411/38
0226/39
0542/39
0477/4"
0316/41
t100 8 /42
O560/42
009 5 /44
0007/45
0183/49

00413/33
0339/34
W1382/36
0423/38
~244/39

ee93/39

0540/40
0326/41
0124/42
0692/ .. 2
O11014 ..
0086/45

MLKI

0031/54

0027/54

ML.KI0

015t/!)"

0140/54

ML.Kl1

0175/54

0184/54

ML.K12

0180/54

0245/54

MLK13

0185/54

0179/54

ML.K14

11199/54

111243/54

ML.K15

0239/54

0205/54

ML.K16

0246/54

0336/54

ML.K17

0224/54

0206/54

ML.K2

0044/54

0025/54

ML.K20

025 5 1 54

,,1 8 3/54

ML.K21

0270/54

0303/54

ML.K22

027 9 /04

1t)298/54

ML.K23

0300/54

0214/54

MLK·a4

0~"6/54

aa91/54

ML.K25

0295/e4

0287/,4

ML.K26

0324/54

032,,/54

MLKJ

0049/54

0029/54

ML.K30

051 7 /54

0258/54

ML.K4

0053/54

0043/54

k?415/l3
0024/35
0"'12/38
0435/38
0331/39
0680/39
,,"38/41
0313/41
"033/42
0104/42
045"/4"
0121/45

0 44 0/33
01 8 1/35
01 8 2/38
"fO,,8/39

0405/39
0822/39
ru 53/41
0395/41
"O51142
0471143
0 .. 66/4 ..
0208/45

0152/54

0154/54

01'd35/54

0066/54

eJ.,4/'4

,,462/33
1392/35
0205/38
0041/39
,,414/39
iJlrH '/40
1)177/41
,,426/41
11)116/42
0482/43
" .. ,6/44
"269/45

,,502/33
0560/35
0261/38
0053/39
0432/39
0021/40
"1l74/41
0!57b/41
0171142
,,1541/ 4 3
"'478/44
0548/45

008e/54

,,,,,84/54

0~3fO/JJ

e589/35
0332/38
0214/39
0453/39
0324/40
0300/41
~63kJ/41

0240/42
iH612/44
0486/44
056"/45

CROSS ... REFE.RENCE SYMt;OL TABLE

"""
----

-

MLK410

10167/55

1026"'/55

MLK41

k'>18J/55

02J9/5~

MLK42

~217/55

0208/55

MLK4J

024f(l/b5

0236/55

MLK5

0067/54

0073/04

MLK510

f0274/ti5

1t1288/55

MLKtil

0284/55

rd279/55

MLK~7

'1Jrd8/55

W324/55

MLK58

1&32b/55

0311/55

MLK59

0298/55

0163/55

MLK6

0099/54

009f(l/54

MLKOIO

0J34/55

k;l348/55

MLK61

0352/55

0340/55

MLK62

k:l36b/55

(()359/55

MLK03

0381/55

!el42b/55

0427/55

MLK64

0410 6 /55

0350/55

03 84 /55

MLK65

VJ424/55

0342/55

MLK66

0362/55

fd396/55

MLK67

04103/06

10361/55

MLK7

011J/54

!el122/54

MLK71

0035/55

I6kl48/55

ML.K72

0051/5b

1d117/55

MlK73

10056/55

0042/05

MLK74

006 6 /55

~1,,9/55

ML.K75

01&88/55

10083/55

MLK76

009J/50

0102/55

MLK77

011t'lJ/55

0095/05

0212/55

03 9 0/55

0J98/M>

0112/55

0!elSle/55

10136/55

.......

CROSS.REFERENCE SYMBOL. TA8L.E

ML,K76

011e/~5

0044/~5

ML.K79

012e/55

0129/55

ML.,K8

0117/54

0112/54

MlK8e

0130/55

0124/f)5

MLK81

0137/55

0038/55

MLK82

0145/55

0050/55

MLK9

0147/54

0156/54

MLK96

0414/55

0351/55

MLK99

e419/55

0e62/b5

MLKBR

0573/54
00 9 0/55
0314/55

",421/54
0108/55

MLKCl

0441/54

0431/54

ML.KC2

0449/54

"' •• 0/&4

MLKCJ

~466/54

0530/54

ML.,Kc4

0472/54

0446/54

MLKC5

0468/54

~4Jl/54

MLKCK

0417/54
1427/54

0118/54

fcl120/54

0008/55

ItH01/!)5

0080/55

°13 9 /55

e423/54

0479/54
0123/5S

0488/54

~113/55

~19~V55

0489/ 54
0224/55

0491/54
0228/55

0150/54
1444/64

kt203/54
.,473/54

0323/54
..474/54

~420/54

0422/'U

•• ~5/&.

1.75/54

0555/54
02 63 / 54

irH0 9 /b4
0302/ 54

0121/ 54

~164/55

It'.J127/54
0234/55

025 8 / 55

IU55/~4

01 89 / 54
02 65 /55

0242/ 54
02 87 /55

MLKD,

052 6 /54

0104/54

ML,KDl

0530/54

0452/54

MLKOI

0569/54
0169/55

01 76 / 54
0231/55

rtl1 9 S/54
0233/55

02 25 / 54
02J8/55

e2 44 / 54
0245/55

,,2 78 / 54

0297/54

ML.KOP

020 4 / 5 4

,,200/54

0207/54

0228/54

0240/ 54

ML.KDS

0390/54

0064/54

0011/54

0078/54

k)J96/~4

MLKDU

05 2 8/54

0182/54

ML.Kf.l

0480/55

r.t468/55

MLKE2

0488/55

0483/65

MLKCT

~1t6/54

",.,.,.,.,.

"'-~/

Ck 0 SS .. RE. FOE. RENe t

SYMBOL. lAdLE

ML.KE3

0536/55

Vl506/55

05116/55

",514/55

MI.KE~

0478/54

0442/54

ft)469/54

"'4~5/54

10497/54

0500/54

MLKER

0 4 00/ 54

00 46 / 54

00 9 2/ 54

02 48 / 54

1d404/54

1t)463/ 54

MLKt X 0571/54

0418/54

0436/54

11)445/54

MLKFA

0567/54
0131/55

00 b 1/54
0140/55

0 45 1/54
0441/55

ft)455/54

",458/54

((}46k)/54

1dft)40/55

Ml.Kf6

fd 574 /54
0 44 3/ 54
0464/55

!d033/54
0447/54

00 39 / 54

00 4 0/ 54
0306/55

0051/5~

~448/54

0317/~5

00 76 / 54
d32((}/55

042 8 / 54
[032 7 / 55

MLKFL

0ft16b/J2

1d024/33

MLKIN

1t)557/54
0335/54
0380/54
0549/54
05kJ2/55

0032/54
0347/54
0363/54
0562/54

0050/54
1£1348/54
0424/54
0026/515

0Vl59/54
",351/54
0438/54

0",77/54
0354/54
0439/54
0326/55

0133/54
k'360/54
0494/54
0386/55

IdJJ4/54
0361/54
0540/54
0465/55

MLKIP

0562/54

0135/54

0"'27/55

"'1 4 6/55

MLKLA

0566/54

ft)0/5/54

0453/54

.,511/54

0512/54

((}446/55

MLKLt:s

0550/54
fd529/55

1d063/54

ft)432/54

[0470/54

",387/55

"'404/55

0503/55

MLKLN

0556/54

0055/54

0058/55

00 6 J/55

11)134/55

"'14J/55

0355/55

MLKLP

0566/54

fd058/54

0068/54

0070/f)4

0085/54

0J91/54

fde20/55

MLKLY

0044/55

16114/55

MLKLZ

16543/55

"046/55

0id67/55

ld094/55

MLKNl

0336/!J4

16365/54

MLKN2

0361104

0338/54

~342/54

0345/54

ML,KNO

055J/54
k'lJ80/55

0114/5ti
0383/55

024H/~b

13J1/65
id518/55

"346/55

*'371/55

8J78/55

10512/55

MLKNM

",5135/54

16454/54

ro459/54

16461/54

0513/54

MLKNO

ro3JII'/54

01024/54

161634/54

10366/54

0J69/54

faJ70/54

MLKPl

",,458/55

O435/55

{11443/55

MLKPtj

",433/55

0049/55

0111/5b

0138/55

*'456/55

0459/55

~31d'/55

0501/54

i .. 'i/.5

tROSS.REFERENtE SYMBOL TABLE

~~~'Cl"
t-li..!(pl:,

0463/55

ICJJ49/55

0425/55

0486/55

.,487/55

"5:$7/55

0542/55

MLKPP

0552/54
0107/55

0554/54
0118/55

0"~i/55

ICJlCJii/55

01"e/55
0128/55

0106/~5

0127/5~

ru 05/55

iJ122/5e5

0559/54
0223/54

(6169/54
ill19/55

0219/54

.,211/54

0~21/56

kt21l/54

0214/54

0222/ 04

0560/54

0168/54

0310/55

0505/54

0129/54
0161/55

0256/54

Rl259/54

0264/55

kt171/54
0415/55

1C12J8/f)4

V:J277/54

f'll.KT 1

0572/54

0419/54

0480/54

MLKTP

0571CJ/54
0233/54
0293/54
0346/54
0184/55
0200/55
0281/55
0363/55
0394/55
0474/55
0494/55
0531/55

0173/64

0227/54
0271/54
0J01/54
0401/54
(U9J/55
0237/05
1cl3J5/Mi
i1382/55
0402/55
1d481/55
0021/55
0541/55

{lJ229/54
e282/54
ilea/54
0408/54
0201/55
1d275/55
1034J/55
10;)85/55
048'/55
.,484/b5
11)526/55

0230/54
i288/54
0J17/ 54
0166/55
0202/55
0276/55
0345/55
0391/55
41»466/55
04\89/55
0528/55

8232/54
029tcl/04
0332/54
0168/55
0205/55
0277/55
0353/55

0496/55
05;)6/55

0226/54
0269/54
",2i9/54
0368/54
0191/55
0220/55
0333/55
0317/55
0400/55
0417/55
0497/55
10539/55

MLKRD
,..1LKRP

MLKTC

~2Jl/64

iJa94/54
03~7/54

0189/55
0219/55
0285/55

0365/55
0JQ9/55
0415/55

0145/54

0392/55

0473/55
049"/55
053~/55

Ml,.KTS

IclJ75/~4

fil041/54

0J84/~4

0395/54

ML.KTW

0541/54
0480/55

0429/54
ftJ492/55

0433/54
0584/55

kt4Y8/54

1d550/54

0336/55

1i138ti/55

ML.KUI

0545/55

ft)411/55

HL Kx8

0554/54

0448/55

0453/55

0471/55

0499/55

0~11/55

0033/55

HLOOP

02 45/ 1 7

02 55/17

0316/11

0041/18

MLOPl

1Il247/17

1Il247/18

02151/18

MLOP2

0249/17

0012/17

.,20 2 / 18

Ml.OPJ

0251/17

00S3/11

0254/18

MLP2A

0012/11

017 4 /17

0 2 115/18

Ml..P3A

0013/11

0J70/17

NM4

0323/216

1d297/20

MM72

01408/19

"4~7/19

MM14

0009/19

0341/19

•

0258/18

.... , .... "

CROSS.,REFf:I1
044 8 /52
0230/65
1199/56
025111/57
0409/158
0525/158

o

0419/32
36
o 2 139
f113'2/44
0046/49
011190/tH
0431/152
0244/55
1iS457/56
0621157
0649/58

"J6J /

0111/32
0110/31
0579/41
01554/415
0488/49
0111/151
044V/5a
0257/55
11'1134/57
0121/51

- MOVFS

11)418/32

02\2/31

0411/31

MOV,..W

0419/32

0256/31

0363/31

MP2

0431/20

0431/20

MPRl

0293/17

0327/17

MPR2

0295/17

16307/17

5 9 /39
0363/44
11)71"/ 48
0481/5111
10325/52
0227/1515
027 7 /56
030J/57
01506/5.

0~37/46

"357/50
0556/51
0327/52
"24~/55

0254/46
0364/50
056 6 /51
0J93/52

,,368/55
020 9 /56
021~/56

0293/16

0~31/36

0210/33

kI~64/45

(6(6J~/46

ltl132/5e
0308/bl
!al2i/52
0304/53
1t)370/55
ii453/56
0624/57
0461/158
11'1550/58
10217/33
~452/37

070~/48

f11130/57
0717/57
0473/68

0362/150
0352/51
16430/52
0181/55
0178/66
022"'/57
IU71d/58
0492/58

0168/36
14 8 4/3 7
0474/43
0039/ 46
fUl6/ 5 0
0576/151
03(c)6/5J
0204/56
0264/51
0448/58

1196/36
07 3 8 /3 9
0328/44
111215 7 /46
0368/50
0678/51
041117/154
023 9 / 5 6
0299/57
0493/58

05115/15~

C~OSS.REFERENCE

(t(t(t"(t(t

SYMBOL TABL.E

MUN11

0115/53

0104/53

MUN12

0119/53

0108/5~

MUN13

0137/53

0125/53

MUN14

0146/53

kl155/53

MUN15

0156/5;)

0148/53

",UH/53

MUN16

0166/53

"'222/53

02aJ/~J

MUN17

01 9 5/53

0111/~3

0136/53

IrH 69/53

"'114/53

MUN18

0220/53

0110/5J

MUN2

0033/53

kHH4/5;)

0024/53

0050/53

"'064/1)3

0068/53

MUN3

0036/f:)3

0018/53

HUN4

0042/53

0032/53

MUN5

0051/53

0~Hi1/53

MUN6

0fc)19/53

fc)074/53

MUNal

0421/53

0090/53

MUNSR

0 4 15 /53

01 4 3/;)3

1tl1 6 1/ 5 3

rd356/5J

1i1371/53

0394/53

040 4/ 53

MUNDA

0420/53

0089/53

0205/53

MUNDS

02 89/ 53

el4 8 /53

ele!)/!);)

1616a/!);)

rd2ge/f:i3

MUNER

02 99 /53

00J5/53

0076/53

(11303/53

0362/53

MUNFA

ft)411/53

0065/53

0106/53

0131/53

0326/53

0338/53

0342/53

MUNIN

0407/53
0247/53

"'021/53
0250/53

0139/53
0253/53

0061/53
0259/53

11'233/53
0260/53

0234/53
0219/53

024 6 /53
0282/53

MUNL,A

0 4 12/53

i859/53

0129/53

10170/53

0191it/bJ

0346/53

0J7 9 / 53

MUNlN

0409/53

"'044/53

0121/53

IU33/5J

klJ53/53

MUNLY

fc)42J/53

03~1/53

MUNLZ

0422/53

0112/ti3

MUNNI

0235/53

0264/53

MUNN2

0266/5;)

i231/b3

1tl118/53

0180/53

0147/53

0241/53

0244/53

""""."
----

--

CRUSS"RE.fERENCE SYMI;lUL

TA~I..E

02()5/f)3

1d268/53

02 6 9/ 53

0221/53

f0331/53

f0332/53

0388/53

~185/53

(0152/53
0366/53

10153/53
0370/53

kl158/53
0375/53

0159/53
fd316/53

0413/03

0132/53

01 4 2/53

01 8 9/53

fd339/53

(03 98 / 53

MUNRL

0414/53

0134/53

0139/53

1i!1184/53

10337/53

11)354/53

MUNRS

0393/ 5 3

1d135/5:j

01 6 2/53

(01 9 2/53

0387/53

0405/53

MUNS!;

0408/53
0204/53

0022/53
0322/53

0028/53
034"/53

0029/53
0352/53

0040/53
IdJ82/53

0060/53
1d401/53

0ld88/53
11)420/ 5 3

MUNTP

041fd/!:SJ
0231/ 5 ;)
0395/53

1a0 4 7/53
0245/5J

0052/53
02 56 /53

~Hc'l54/5J

02 6 1153

1d069/53
029(0/53

1dll)82/53
0JliHo/53

0198/5J
IdJ0 7 /53

MUNTS

0274/53

1d1r:'l30/53

0283/53

1d294/53

MVENU

0330/02

102 87/16

0292/16

MWORD

0111
011313 8
((J431/44
0(081/53

fd215/15
0193/3 8
0057/44

0577/35

0197/03

-'082/48
01019/55

tiJ!57/J6
fd3t)7/43
13404/49
((J318/56

0297/36
16378/43
10415/49
0362/56

~532/57

0668/57

0490/15
0350/38
0029/47
01-'1/54
0((J72/58

N

(0097/21

10451/21

Nlfc)24

~499/00

0219/01()

102J0/O~

N1020

05[d0/50

VJ221/5kl

02J2/0{O

N819 2

0501/5"

ItH~92/50

NAD

0482/102

0093/23

0165/24

((}lg9/24

020~/24

NAM27

0510/4id

~5fjf4/40

MUNNU

f0229/53

1d013/~3

'-"023/53

MUNPl

(033(0/53

0319/53

~J35/b3

MUNP2

~3J3/53

0328/!:SJ

MUNP3

0365/53

~36ra/53

MUNP4

0368/53

16377/53

MUNPb

(0378/53

0372/53

MUNP6

0385/53

0351/53

MUNPB

0317/53

16116/03

MUNPP

0410/53
0181/5;$

fd144/53

MUNRA

0138/24

(05(04/35
1d317/3 g
(0006/48
10124/54
{O122/58

ItH6(()/24

~489/42

0160/53

,.,.,."

CROSS"REf'ERENCE SYMBOl. TA61.£

NAMbL.

0549/40

0e42/40

NAME!

0488/40

04~6/40

NAME2

0535/40

0621/40

NAMER

0~H2/40

0488/40

NAMFI.

0543/40

0546/4"

Neo

0483/02

NBL.K

NtH

0"'1/40

0~00/4i

0094/23

0146/24

018l/24

0484/02
0197/24

0421/23
0279/24

0i121/24
0285/24

0283/02
0430/16
0128/23
0128/25

'1149/11
0438/16
/a32S/24
0138/25

017rlJlll
0029/23
0015/25

0519/40

05J1/40

"'021/24
029l/24

0021/24
0111/25

10316/24

0171/11
01635/23
11'026/25

0200/11
16061/23
0k'42/25

0420/16
00 8 0/23

~09f)/25

0422/16
0114/23
0106/25

0180/bra

0307/25

0k'34/24
0310/26

0366/25

NDIRT

'182

NEWl'

0164/50

0053/50

flH1J60/50

0178/58

NE.I2

812616.

1211/51

la22/5.

8233/58

NEWl4

0053/58

"046/58

NEwI5

0090/50

0083/50

NEW16

0129/50

0087/50

NEw17

0080/50

0089/50

NEW18

0132/50

0128/50

NEWIA

8146/&0

0126/50

NEWltt

0149/50

0121150

NEWIE

0150/50

0129/50

N£Wlf

IU53/51i

fU3fil/00

NEWIP

0181/50

0035/50

0037/51

kHfJ39/58

kl185/50

0189/60

0191/50

NEwIT

0519/50

£1156/50

0105/50

0170/50

rU79/50

IU91/b0

0196/60

Nf:WI Z

0179/50

01 5 8/5'"

"'161/50

0164/fS0

NEXTS

0552/03

0525/05

NHBH

0485/£12

0402/23

0406/2~

0414/23

0149/50

01153/50

fill,.",.,

---.........--

tFWSS.REFERENCE S'tMBUL. TAttL.E

NIDll!?

0513/~0

~379/bld

NIDCJ

0514/~~

id294/50

NIDT

0079

020 9 / 5 10

NMBfA

0005/19

0124/19

NM010

"'164/19

0168/19

NM011

017 4 /19

~100/19

NM012

0204/19

0212/19

NM013

~225/19

0228/19

NM014

~231C/19

1d200/19

NM015

023J/!9

0241/19

NM016

02kl9/19

1d195/19

0199/19

NMPTR

0J0ts/ld~

0131/ 19
(0238/19

01J2/19

101 42/1 9

kJ16J/19

018 8 /19

0231/19

"H25/l9
!ii237/19

NMTMP

0310 1 102
021 9 /1 9

0161/19
\1227/19

IH64/1 9
0233/19

01 69 /1 9

0194/19

0190/1 9

0206/19

NORMI

0233/22

10250/22

NORM2

0235/22

0230/22

"239/22

10241/22

NORML.

005ts/k)2

1d2 d9 /1 9

00 9 9/22

10234/22

kl260/22

1033 9 /22

NOT

"374/22

"'266

NPORT

010 9 ",
010 74 /52

02~4/28

"'286/45
,,427/b9

kU 3 0 / 48

0552/ 48

057 6 / 48

IcH 56/~9

02",6/29
10261159

NQT

0462/02

021 4 /14

,,236/14

10256/14

0262/14

NSPTH

0Jb6/02

041!?8/1l16
0260/1C8

05ft30/kH)
1C289/id8

0183/07
'''302108

0417/07

"'033/08

01669/~8

0095/~)H

NT0

O311/02

"'224/22

0227122

NT232

05162/50

"269/50

NUt

0142

o",44/39

NUM1

0264/02
0184/24
"287/24

0088/23
0210/24

~23f&1/2l

0251/23
02bo/24

0413/23

0149/19

1d23"/l~

0171/19

0215/19

02101/23
ftl230124

10218/19

1d20J/2J
02Jl/24

0244/24

~258/24

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

CROSS.REFERENCE SYMBOL TABLE

NUM11

01046/22

fU ;)3/22

0135/22

NUM12

IU51/22

fD UJ2/22

0118/22

NUM13

0164/22

0157/22

NUM14

016S/22

" Hi5/22

NUM15

0175/22

0171/22

NUM16

(6182/22

0120/22

0128/22

0130/22

1"145/22

NUM2

0285/02
0171/24

0089/23
0172/24

0197/23
0175/24

0199/23
0213/24

fcJ231/23
0245/24

0252/23
0266/24

0153/204

NUMB,.

030~/02

0042/19
0089/19

16048/19
0094/19

0053/19

0054/19

0062/19

0076/19

0005/19
0084/19

NUMCI

0065/22

0Ul3/22

NUt1Ca

0071/22

0067/22

NUMC3

008 5 /22

0106/22

HUMC 4

08W9/21

.818/22

11'4/22

fcJ111/21

NUMC5

0104/22

~086/22

NUt1C6

0101122

0079/22

NUMC7

0112/22

11)012/22

NUMC8

11)127/22

0122/22

NUMC9

012 9 /22

0125/22

NUMCK

0052/02
0182/22

0582/03
0183/22

11)288/04

02 48 /10

0321111

0115/22

11181/22

NUM00

0103/19

0108/19

NUMOl

(405 4 /19

rlJ04~/19

NUt102

0082/19

0056/19

NUMQ3

009 4/1 9

0088/19

NUM04

0111/19

BU9/19

NUM05

012(4/19

fr:1102/19

NUM06

0129/19

rUJ4/1f1)

NUt107

0143/19

015J/19

0142/22

0163/22

0f1e8/19

0114/19

••••••

-~-

CROSS-RE.FERENCt SYM801.. TAtiL.E

NUM08

fa15 4 /19

U15k'/19

NUM09

101157/19

0138/19

0148/19

NUMOT

13136/02
111196/19

0299/02
ta243/19

0J98/102
0<65/19

0403/02
10469/21

0404/02

NUMPT

ta255/02

1'0138/167

015fd/lo11

101151/1117

1011591fd7

NUMWl

0486/1d2

"209/23

0280/23

fd144/25

NUMw2

1.148711tJ2

"'285/23

f6146/i!5

NWS

0517/50
1(J372/50

10288/0111
0411/50

0320/510
1047415((!

10332/51d
0475/5fc:1

NWSlld

0377/51'0

0285/50

NWS11

0399/513

k)291/50

0295/00

0316/0fc:1

NWS12

0420/5k)

104ill7/51d

NWS13

041018/010

10427/5k1

NWS14

0432/50

0415/51d

NWS10

0401/00

0465/50

NWS16

0488/51.1

0380/50

NWS17

0469/51d . 0435/01d

NWS18

~4010/50

0440/010

NWS5

0253/5WIJ

0246/51d

NWS7

0281/00

0386/oic1

0471/5~

1d4 8 2/5ro

NWS8

0287/01.1

031(13/50

~341/51O

NWS9

k)J05/50

0299/50

NWS9A

0J14/5ta

1d31fd/5fd

NWSB

105k) 7 /°v)
1(1463/5'"

1d2J8/o",

NWSIO

05H'/50

0242/50

NWSKI

0511/510

NWSK2

0~lb/~"

11'020/19

01078/19

101333/50

0355/50

1.:)370/50

113345/50

10350/50

0373/50

0247/0k)

0412/510

0416/00

0437/ 5 0

0461d/50

k!l293/00

1(1296/50

idJtal/50

0J23/~0

0342/5"

04ld o /50

1c)2§17/~0

Ir)J"2/5ftt

IcJJ19/6e

"J30/0"

lIJJJ7/6"

042.)/50

fd419/!:)0

...........

•

CRoaS-REFERENCE SYMBOL. TABL.E

NWSL.l

0512/50

0378/blc1

0382/'0

0405/51

0442/~0

0454/50

NW'L2

0515/50
0462/50

1282/50

0384/50

0403/~"

1c1421/50

0438/50

NWSNN

0503/51

0240/50

"a63/50

8489/58

!f)491/50

"4i3/58

NWSP

01S08/50
0404/50

0241/1S0

0a04/50

0256/50

02«54/50

0284/50

0385/511

NWSS

0506/50
041S 7 /50

0236/150
0.&4/50

0248/50
04 7 0/50

.,250/5.
0 47 2/5,

16402/50
1647"/ 5 0

i40"/150

lit445/5"

NWST

0509/50

0215/50

0226/50

025115.

NW8T&

iSll/50

83.1'/'.

'~63/e.

NWSU

0202/1S0

0(1193/50

NWSV

0'05/50

(11203/f10

NW8W

0224/50

0213/50

NWTA

0234/50

la2J/50

NWT8

0243/50

(11258/!50

NXTDT

038g/02
0134/12
0176/20

0(1101/12

IU17/1i

1131/12

0138/12

(11121/12
"148/12

8132/12
0!4"/12

1133/12
1169/20

NxTOP

0373

0241/07

0134/10

OCR

0124

03Ui/2e

0'8 5 /30

OCTMP

0312/02

0368/19

0376/19

OF

0490/04

0445/163

OFOP

0~05

04.8/{IJJ

OM193

061c10/44

1224/44

OM31

0602/44

01577/44

OM507

"5gg/44

i59J/44

ONEI

0385

''142/29

OP17p

0613/4.

0471/44

OPCHl

0418/14

0411/14

OPCH2

0420/14

1428/14

.

0461/50

0:548/51

012·/12
(11139/12

0645/ 4e

0441/40

0221/3J

0202/4"

"",,.

CRUSS.,HEfERENCt. SYMBOL fAijLE

OPCHJ

0425/14

~405/14

1Ci419/14

OPCHK

0116/02
01 89 /13
0485/25

0427/02
0261/13

0462/fd2
IcH86/14

!d414/k:l2
11)371/14

IC1k:151/11
1d389/14

fd461/11
10423/14

0280/12
0421/2t\

OPDMK

0399
0062/13
el449/25

OPDST

0365/02
00 4b /ll
0291/11
0295/12

0272/~8

IMd46/10

0023/11

IrU 93/11

0221c1/11

0343/12

k'02611 7

0046/17

!{J17l/11

kl191/17

II)J6~/17

~410/21

0225/10
0 232 /11

0228/11c)
0234/11
121296/11
0.)47/12
01d26/13
0104/13
fCl25rd/13
fl'1c160 1 14
10422/14

1d230/10
10236/11
03kl5/11
103b4/12
ia027/13
leU 105/1 J
0204/13
id118/1 4
kJ459/14

0373/11t:t
fd268/11
10308/11
k:l477/12
10028/13
0108/13
0256/13
1tl272/14
10461/14

0377/10
0270/11
0311d/11
k:l1cl11/1J

0379/10
0272/11
0456/11
0"113/13
0047/13
021111/13
0349/13
1l'l276/14

~294/11

005k:1/13
0224/13
005 8 /1 4
0403/14

0346/12
!d024/13
Idfll74/13
0225/13
1c1059/14
11'420/14

OPE

0068/31

0297/31l'l

OPt1

0120/44

1c)128/44

OPE11c1

0413/44

040~/44

OPE11

0365/44

111623/44

OPE12

0283/44

1t:J624/44

OPEIJ

0551/44

0436/44

OPE14

0564/44

0380/44

0417/44

OPE1b

0419/44

0522/44

0567/44

OPE16

0170/44

0157/44

11)1 59 /44

OPt17

11466/44

~61J/44

OPE18

((1520/44

1d515/44

OPE19

0535/44

IcH528/44

OPE2

0179144

0132/44

OPl3

0215/44

((1201/44

OPE4

0247/44

0236/44

OPl4A

02~0/44

0282/44

OPf5

fr:I291/44

0276/44

0101 0 /13

0194/44

003~/13

016Y/13
~258/13

k:'I273/14
0418/25

"""

CROSS .. ~EFERENCE SYMBOL. TABL.E

OPEf)0

0198/44

0184/44

OPE5!

0211/44

iH62/44

OPE52

04~3/44

.,450/44

OPE6

0272/44

0219/44

OPE6.

0a8"'/44

0260/44

OPE7

0239144

OPE8

0584/44

0311J6/44

OPEg

04~2/44

03d4/44

OPE98

0592/44

",310/44

OPEC

0011J8/44
0296/44
0429/ 4 4
0572/44

0117144
0386/44
0449/44

OPED.

0611/44
0510/44

OPEDf

0576/44

0441/44

0561/44

OPED"

0605/44

0249/44

0281/44

OPEDl

061 5 /44

1iJ438/44

0558/44

oPt.os

153i/44

1526/44

0613/44

.548/44

OPEOU

0610/44

0300/44

OPEf

0604/44
0192/ 44
0404/44

0119/44
021 5 /44
1t1433/44

0141/44
0234/ 44
0437/44

OPEL..N

0609/44
0565/44

0257/44

OPfOR

0620/44

0597/44

OPEOV

(cHst4/44

0595144

OPEP

060 6 / 4 4
02f)9/44

OPER
OPERl

0211144

0265/4.

11)4211)/ 44
",525/44

0278/44
042b/44
0529/44

111447/44
10615/44

0456/44

1492/44

0382/44

14410/44

rrHol144
0274/44
11)521/44

1iJ161/44
0291/44
1(}552/ 4 4

11)167/44
0345/ 44

01811)/ 44
0368/44

0258/44

1/)267/44

I1JJ75/44

I1JJ95/44

0391/44

0115/44
0214/44

0122/44
0219/44

(&HaJ/44
0129/44

14125/44
11)513/44

IU26/44
14530/44

rugS/44

13140/44

0120/44

ft1124/44

kUla/44

IU43/44

liH62/44

1/)168/ 44

0144/44

~150/44

0127/44
0402/44
0462/44

11J19!/44
11)'11)7/44
0464/44

0208/44
0408/44
.,511/44

la~8/44

i~41/44

i1516/44

itJ544/44

0442/44
",547/44

0294/44

026~/44

"",,.,

CROSS .. REfERENCE SYMBOL TASL.E.

OPfR2

"1163/44

~153/44

OPER3

016"'/44

1t:1165/44

OPERe

0524/44

0514/44

0517/44

1d5J5/44

OPEsa

0569/44

0193/44

0210/44

0574/44

OPM5K

0367
0431/k'6
0171/0ts
0142/11
0374/12
0576/21

0430/03
0477/tlJ6
1t:1263/1d8
0226/11
10392/12
0395/410

1d245/fd4
ID432/1/J7
0J1tJ6/08
051d0/11
0184/16
0411/40

"'036/06
0411/11'9
0039/12
10",63/17
16418/40

ft:1J66/02
104 4 1/14

0297/12
0462/14

03ft:12/12

ORONU

0492/102

"-I4b4/11

0T1

0322/02

OT3

01d36/06
0076/08
0133/10
1d1d67/12
0201d/17

0248/06
1d081/08
IOft:1Jl/11
10074/12
10387/';.1

0456/12

1d014/13

101d1 6 /13

01d2 9 /13

(0462/11

11:1468/11

"'(d4 9 /35

0303/19

0 30 7/19

"' 31 5/19

0323/fd2

IdJfd8/19

0314/19

OT4

0324/102

030 5 /19

0 30 9/19

0312/19

OTCRA

IOJ74/19

16J70/19

UT5T1

10614/21

113624/21

OT5T2

0619/21

",613/21

OUTBI..

0210/1d2
0327/25

03J3/2J

(d360/23

0012/24

0112/24

111178/24

0299/24

OUTC1

1tJ491/J~

~481/30

0032/Jt1

OUTCH

0333

0381/19

0420/29

0072/30

0121/33

11'454/49

OUTCI..

0212/02
"'340/2b

113441/16

0522/19

01d12/25

0159/25

1d2fd8/25

1tJ213/25

OUTeR

"'162/02

0627/05
",443/11:1 9
0261/11
1tJ242/12
046 4 /16
0226/19
0320/19
0476/19
0316/21
104105/21
0520/21

0317/09
0 445 /1tJ9
0392/11
",366/16
0466/16

1d375/09
",2 7 0/1'"
0221/12
1d370/16
0470/16
0248/19
"353/19
",514/19
1d348/21
10445/21
0542/21

0377/09
",264/10
10223/12

0379/09
1tJ2 98 /10
0225/12
04",6/1 6
"'023/19
11'262/19

0432/1tJ9
0(690/11
fd227/12
",429/16
0",70/19
1tJ264/19
(dJ62/19
0311/21
0379/21
0502/21
0063/21

OPTRQ

~436/09

fd092/11
0240/12
0436/16
IcH85/19
0313/19
fd447/19
10314/21
0381/21
,,-,Sfd8/21

-'

~J43/04

1d536/44

037711tJ6
01tJ98/IllB
0130/11
0~84/12

0b7~1/21

~464/14

~239/19

11:1337/19
0501/19
~J26/21

[d434/21
0527/21

~404/16

,,472/16
"'255/19
1d355/19
10516/19
111358/21
1tJ4fH'/21
0548/21

03~7/19

0296/21
0377/21
11'452/21
0553/21

..... "

CROSS.~EFERENCE

10 5904 /21
fc1J75/23
0088/24
017 9 /25
0219/25
0337/25

1rJ598/21
(d377/23
0092/24
0182/25
0221/25

UUTI1

0306/19

0311/19

OUTI2

0314/19

03UI/19

~UlIN

11'1 64 /02
0368/21

OUTL.N

SYMBOL. TA6L.E

02Jl/25

11' 3 13/23
0025/24
11'129/24
10198/25
0324/25

031 5 /23
0047/24
1i1131/24
02100/25
0333/25

011'50/24
017 5 /25
02tt l l25
il3Jt)/25

0282/10

0J96/16

11'077/19

0321/19

0356/21

(d400/11'2
il343/19

0080/11
(C368/19

10 1"3/11
(d4b1/19

16141/11
0482/19

leU 42/17

01072/19

(d62 8 /28

"477/30

0484/30

0504/JItJ

"'11/l2

0168/02
052 5 /21
ft)625/21

0327/1tJS~

0328/16
0590/21

k)387/16
.,591/21

0394/16
0592/21

03(d9/21

0530/21

05 9 1/11
0501/21

oUhn

0515

l/,I51 9 /2 8

0 5 31/2 8

k)303/2 9

047 9 /30

0523/30

,,41 6 /3 9

OVFLW

0062/02

0312/02

0 44 J/02

0086/16

1tJk)16/22

,,309/22

Owl

0145

0527/30

P4l/,19

0581/58

0458/58

P8192

0J05

0535/01

PACK1

l/,I210/22

0272/22

PACK3

03101/22

0286/22

PACK4

0306/22

0269/22

"299/22

PBFL.G

0522

0074/21

0018/21

0168/21

,,475/28

PBPlR

0046
0e0 8 /05

02,,11163
0e7"/"5
00Jl/ft)7
0462/"7
"154/08
0045/09

16230/03

02491163
1r)611105
" 115/,,1
14470/01
1r)36111rJ8
iH82/09
"380/,,9
0432/12
1c1031/13
0195/13
0445/14
11)203/1'
10236/18

16250/163
"440/"6
14125/07
16131/,,8
0403/148
It)! 81109
"303/12
k)475/12
0fi133/13
td21fi1/13
1&)448/14
k)24ei/16
,,231/21

(C618/21
0380/23
0099/24
0186/25
0223/25

(/)b22/21
04048/23
0122/24

II'2f'81 1II'
0493/21

(d14(d/,,2
0162/19

OUTM1
OUTST

0~H1/06

0455/07
0153/08
0020/09
0252/09
0427/12
000 9 /13
0051/13
1630 8 /13
0481/14
1627 4 /16

0256/,,9

0429/12
0020/13
0003/13
,,309/13
0170/16
,,4g7/16

06eO/ItJ~

0054/,,7
"4elle?
0220/'"
0fd61/09
031.52/0'
0431/12
0022/13
0193/13
,,311/13
rU9S/16
"ll3/18

'H~1/25

0277/03
0445/166
"341107
0143/08
0444/08
"198/09
.,337/12
,,48td/12
0035/13
02SH/13
"'41 4 /14
162 49 /16
0236/21

031 6 /23

059b/4l1

"6016/05
05"3/"6
0395/07
0144/08
0ru 6/,,9
.,248/09
0410/12
0007/13
fil036/13
VolJ06/13
0481tJ/14
9271/16
0bbJ/29

".".

CROSS-Rt:.FERENCE SYMtjOl TAt1L.E
0237/30
'1510/3.3
0352/38
0025/40

02~6/J0
~362/38

ki246/32
0505/34
'1370/38

02b9/4td

t'.IJ87/40

0195/1Cl3
0396/[(17
0047/36

0237/03

0049/0 7
0032/36

PCl

0280/02

PC2

PBUff"

0401

0325/34

16383/32

0622/35
037d/38
0450/43

0",59/33
0626/35
0407/36
~457/43

10369/33
0049/36
0434/38
0472/43

0001/33
0J2J/J8

0341/39

16476/43

~459/07

10422/06
1641!J4/0 8

~388/3b

0437/06
0172/16

028~/J8

0448/06
0230/21

0243/39

0016/40

0551/29
0011145

10044/23

01/)63/25

01169/25

0113/25

0287/162

0045/23

0t175/25

0",,7/25

0081/25

PCHK

1(:)(698/102

040 6 /",2

0J51/13

",38(.1/13

''108/14

PCHK1

01 0 0/14

0097/14

POFeS

16431

0473/12

POFFL

k1393

0114/04

0239/k14

04k1C1/06

0427/21

POFNS

0443

16233/04

POFlfJ

047 4

16431

PEND

0J86/Sg

0312/59

PFlAG

03516/"'2
0165/04

0369/03
fo438/05

10619/03

.,687/03. 10697103

10162/104

0432/kJ5

PFSHI

0404/166

0393/",6

PFSRH

0222/02

0654/03

0711/03

-'058/04

1d41i'l3/06

0408/06

04090J6

PHO

0127

0082/~9

t>t105

0079/59

0066/~9

PH06

0061/~9

007 8 /f)9

PIBY2

VJ436/2~

0282/2[{J

ro42ei/2~

0h1J/06

IrH"'4/06

101071160

Idl1~/06

012k1/06

irH01/18

liH 08/18

0143/18

0149/18

0182/12
10464/15

1d241/1b

itt267/15

0J"H/15

PINTG

029~/1d3

0J0~/~2

012198/00

1t)147/2~

0164/20

04J5/~2

"'076/18

0181/18

1d073/18
0192/18

PKCNT

121660/35

0475/35

10627/35

PLUS

0501104

v)1 b7/"'4

0384/04

1029"'/102

t:11b6/12
0343/15

0438/15

PIVEL

PMASK

1110$41/15

~180/12

r,,,:130/07

........

CROSS-HE-FERENCE SYMBOL. TABL.E

POfFP

0576/26

0513/26

POR.A

0419/48

0140/48

POR.L.

1042~/48

r.5171/4ij

PORil

10144/46

PORU

0279/48

02i~/48

POR1J

0142/48

111150/48

POR2

01b2/48

0147/48

POR22

0226/48

e211/48

PURJ

0168/48

0141/48

POR4

01 9 3/48

0160/48

PORS

02108/48

0224/48

~OR6

02 40 / 48

10220/48

POR7

0222/48

10219/48

!JOR8

0240/48

kl237/48

POR9

1018J/48

CH91/48

PORC1

0 4 21/48
031 7 /48

PORe2

0176/48

0160/48

10242/48

~164/48

0187/48

0238/48

111278/48

0282/48

01 35 / 48

01 0 3/ 48
10412/48

01 6 2/ 48

~u84/48

1r)40~/48

01 89 / 48

10422/48

04108/48

0411/48

!JORCN

041 8 /48

1tJ1J7/48

10104/48

POROG

0328/48

161 41 3/ 4 8

10335/48

PORIl

10300/48

0305/48

PORl2

0::506/48

0302/48

PORIJ

0310/48

0315/48

PORl4

0::510/48

0312/48

~OR15

0324/48

0321/48

PORIN

0286/48

0157/48

0188/48

0326/48

PORS1

101540/33

~132/48

0213/48

0217/48

0296/48

0322/48

IIH85/48

0281/48

,.,,.,.,

-

CROSS .. IH:F ERENCt.

POHS2

~541/3J

~133/48

1d231/48

PORSP

04~6/48

10145/48

0413/48

PORTL

10542/33
102b7/48

0134/48
10268/48

POw

k')320/26

POWl

~'1MBOL.

TAbLE

10235/48

102g8/48

"'325/48

1d209/48

10223/48

10227/48

0241/48

10252/48

"'254

13341/26

0352/26

",689/32

0380/26

0327/26

0568/26

k1569/26

POI'H 4

10457/26

.,411/26

POW2

0370/26

,:)339/20

POW27

k.'I500/26

POW28

1(1574/26

10480/26

POW29

i0491/26

0482/26

POW31

'1573/26

10483/26

POW4

IdJ9~/26

0413/26

POW40

0517/26

~569/26

POW5

041 9 /26

1d403/26

pow51d

0512/26

"'486/26

POW52

0497/26

0476/26

POW6

0409/26

POWA~

10489/26

0502/26

10576/26

10405/26
10449/26

"'409/26

0412/2b

0J47/26

10485/26

~496/26

10516/26

0428/26

10432/26

k)451/26

0522/26

0351/26

k'508/26

POWCL

0446/26

0444/26

POWI)1

05b 8 /26

!d342/26

POWD2

0569/26

10345/26

POWEO

0523/26

"'J49/26

05"~/26

POW,"

1(1526/26

0391U26

~399/26

04101/26

POWfF-

051 9 /26
1(1691/32

0336/20

0338/26

1d471/26

POWfL

0520/26

10369/26

0389/26

1d462/26

POWl

052"'/26

.:)331/26
11')437126

~3b~/26

10386/26

0438/20

11:1448/20

~424/2n

,.,.."

CfO(OSSwREFERENCE SYMBOL. TABLE

POWIN

0254

0016

POWJ

0~21/26

0;'84/26

POWNO

0510/26

0373/26

POWP

0524/26

",353/26

POWST

0442/26

0440/26

powSW

0527/26

POWTt~

0420/26

0450/26

047~/26

1()511/26

0355/26

0381/26

14692/32

0529/2f>

0419/26

t)42J/26

POXl

0539/26

ra5&1126

POX2

0553/26

0571/26

POX3

0566/26

0575/26

PRCCN

0423/48

0294/48

PROFS

0473/22

1()443

PREG

0009/fd2

PRGCT

03ts7/02
0d 58 1 1
0257/10
(i",,64 1 12
03510/17
0636/35
II::}

02~~/48

0309/48

14681/28

111114/ 2 9

0199/ 2 9

0034/",7

01640/~7

0055/1(J1

1I'964/Hl

0111/10

~118/10

0311/12
0425/25

0110111
0389/12
164J6/25

I6l841 1 111
"172/12
1d413/25

~1()28/11

~3\)1/J6

Ii:'IJ4l/J9

~269/1i:'15

0389/162
0088/",6

0424/03
0112/1r::lb

PRl1

liH23/59

16097/59

PR12

0126/59

0108/59

0116/59

PRIOG

0134/59

0093/5f11

01/J~8/59

0143/59

PRIN0

0675/03

066(/11)3

0672/03

0 694/0l

PRIN1

0683/03

0689/"'J

PRIN2

0688/03

0710/143

PRINJ

0697/03

0682/03

PRIN4

14711/0J

"702/0J

PRIN5

0714/"'3

0700/0J

PRGIN

0026/02

0722/03

1/J~11/03

1tl113/1tl6

lIJ014/26

0534/26

1IJ059/07
1412 6 /10
"127/11

040 7 /09
IU 42 /10
0 497 /11

144 46 /25

163 91 11(J9
11J1 21 /116
14246/11
/Ubl/1?
0473/25

0010/05

1()100/05

022 9 /05

")(c)60/17

018t:t/17
kl 4 6 8 /J5

,.,.,.,.,.,.
PRINfi

0721d/tdJ

fd712/1l13

PRIN7

0723/163

0677/kiJ

PRINti

0718/fd3

~713/fOj

PRINS

0639/1113

105jJ/~~

"'162
~j38/29

"'208/11
1G'l427/29

iOla4b/J0

\i.:l413/J9

~02J/4J

PRITY

1G'l251/40

121210/45

PRN"'l

121665/103

1{)643/03

PRNIIO

060"/1213

f2J664/IlIJ

PRNll

1d658/k1J

~655/I!lJ

PRNSl

011128/1218

PRNS2

PRIST

-------

-

CRUSS.REf-ERENCE

0581/11

SY~HUL.

TA~lE

Ithl)

VJ211/45

0588/11
iOJll/JId
1G'l231/45

1tl214/45

1U221U/45

102310/45

0332/\17

0404/1217

10418/07

1G'l1G'l91/kl8
121284/1037
1i!449/1d7
1G'l11J/i06

101ti0/1d7
0294/107

022111/07
IdJ""/1{)7
IG'lkl51 108

1024J/01
0323/107

.,258/107
1ll412/1G'l7

IOIcJ:;)j/~8

PRNSJ

101108/08

12I1fcl0/08

PRNS4

005"'/08

0041/108

PRNS5

0071/08

12112158/108

P RNS 6

01l186/ 0 U

0079/08

PRNSI

01d 74 /ft}2

1lI31!l5/02

"'171/107

1d41d3/07

PR01

la029/44

0"'2"'/44

PR02

011149/44

121034/44

PR02U

039VJ/48

"'253/48

fclJ9b/48

VJ403/48

PR03

fclll1Jo/44

~045/44

PR03IJ

"'j99/4~)

0264/48

PR04

1011056/44

1lI047144

PR06

0la66/44

ItHHS 7/44

PR07

13'169/44

1c:)1d96/44

011144 /It.H~

1040414~

kl~61/39

0468/16
0407/39

I{)b41d/48

101.31/09

~i/J55/108

VJ27J/07
0424/VJ7
"'07I(J I v.l8

\1280/1Cl7
1G'l441O/1t:17
L0103/108

0017/1218

0IH9/1218

ItH07/fcl8

0211112
50/39
k:i11b/47

046121/16

., .. ,.

CROSS.REFERENCE SYMBOL TABLE

PROC

0089/44

0030/44

0036/44

1d037/4.

0e40/44

0041/44

PROCH

03()8/ 4 8

0248/48

0281/48

IdJQ0/48

0362/48

0379/48

PROD

"06b/44

01/1;;'2/44

00.4/44

PRODG

0383/48

~277/48

k'J86/48

0393/48

0J94/48

0402/46

PROGS

0297/02

0013

04el

0249/1&12

PROPR

0342/48

0221/48

0239/48

0343/48

PROST

03 55 /48
0361/48

01 96 /48
0363/48

0249/48

0254/48

~260/48

0356/48

PRTOP

0381

"021/04

0071108

0124/11

Idld15/12

0413/40

PS0

0466/02

"185/14

020'/1.

0226/14

(D2l2/14

[d23e/14

0245/14

PSI

tc)46 6 /02
0262/14

0J2 8 /11d

0347/10

0353/11

0367/11

018 7 /14

0211f)/14

PSC

01417

0128/59

PSH8T

0108/"2
(0462/14

.,4111 1162

8336/12

~.26/12

•• 7./12

IUJ0b/lJ

100(s/13

PSTR

",090/02
03 413 /11
kl2 49 /14

043 5 /11J2
04S4/11
0258/14

V)468/02
1d008/11
0265/14

1d308/10

16390/10
02 69 /13
1d420/35

0066/11
012 5 /1 4

14131/1 4

PSTR1

kl2110/14

0216/141

PSTR2

021 4 /14

021J/14

PSTR3

02 45 /14

0230/14

PSTR4

02418/14

f(}244/14

PSTR5

0251f)/14

02J9/14

PSTR6

0254/14

0264/14

PSTR7

16259/14

0263/14

PlAtH.

0384/69

0Hi8/59

PUDIR

0579/58

Id385/58

PUKED

k'l51ij/58

0464/68

0474/ee

PUKES

0577/58

e.62/5i

0~1a/58

PUN

0033/31

0500/29

038f>/48

035 8 /48

1d;)64/48

01"/14

0323/59

!d2 bo/1J

1d432/26

015 5 /11

,.,.".,.

CROSS",RE.ft:RENCE. SYMBOL.

PUNCH

0225/21

0111/31

PuRl

~356/5t:i

kl282/08

PUR11

0380/58

0395/56

PUR12

~391108

"'508/58

PUR1J

~J98/58

0390/58

PURlo

1£1411/58

"'49"/58

PUR16

04~0/58

0416 / 08

0460/56

PUR2

0276/08

0259/08

fc:I271/~8

PUR3

1£13810/58

0313/58

PUR4

0312/58

0316/b8

PUR7

t'i360/oB

~316/bB

PURCl

05 68 /58

",382/tiij

PURDG

~342/08

PURDl

~1i!88/58

TA~LE

0298/58

1C)328/58

0455/58

1d4~7/58

ItHHJ/56

1d517/58

0553/58

0323/08

0329/58

0344/58

10348/08

0351/ 58

0352/58

0569/58
\1507/58

03 87 /58

0452/58

0404/58

1d466/!>8

041t:i/58

0494/58

PURDI

10 0 7 3 / 5 8

028 3 /58

0291/58

0292/58

0294/ 5 8

0414/08

PURDU

0581c1/58

0393/58

PURf:.D

0576/56

e541/08

0545/58

PURER

""304/58

""357/58

0361/58

PURES

0575/58

1c15J9/b8

0543/58

PURrl

~528/58

0554/58

PURf2

10547/56

05.32/08

PURFX

0512/58

1d396/58

PURhf:.

~56b/58

~255/58

PURN

0 574 /5B

0325/58

PURNl

0325/58

0336/58

PURN2

0337/58

fdJJId/58

10368/58

0471/58

0515/58

0565/58

0J31/08

0333/58

ICJJ37/58

tcJ365/58

0372/58

CROSS.rU.FERENCE SYMSOL. TA8L.E

"""
PURND

0571/58

0402/58

0488/58

PURNO

0322/58

0278/58

0284/58

10326/58

0338/58

03Ji/58

PURP

0572/58

0266/58

0213/58

0412/08

0445/58

"'44p/58

0486/08

~URTt

0567/58

0516/58

PURTP

0 57 0/ 58
1Q4J5/58

03 84 / 58

~421/58

0 4 23/58

iJ 4 l0/58

v)439/58

10 44 2/58

10 44 3/68

0 4 31/58
10 6 2 9 /58

04 34/58
0551/58

~438/58

kt564/58

PURUO

0583/58

0561/58

PURUI

0584/58

0562/58

PWR2A

0276/20

0265/20

PZ99, !d585/58

0aN/58.,.r!

"'1!!11.'::·,t' .).~ ..

...

.,~,.....~

-

",,,,.

~

CRUSS"HEfEkENCE SyMtjOL. TAt;LE

CalUorE

0477/"'4

16323

0167/((Jo

R14CM

0419/28

02 08

05 3 6/26

R14D~

1(1258

(d031

16558/26

H14EU

16593/28

0550/26

R14HT

0 445 /28
0 469 /26
0543/28

16439/26
0 497 /28
1.1551/28

0 44 0/28
10 5 02/28
056b/28

R22

10051/21

\/l018/21

01622/21

RADT

10279/31
1d731d/32

16262/031
10013/33

RADTP

v.HHJ/33

0809/J9

RBOP

0487/164

008ld/C15

RBP

161316

RCRO#

05 3 7/26

16550/26

1iJ452/28

07H)/J2

10 46 0/28

((J476/28
Id021/28

16 4 84/28
0535/28

\/lo73/26

1t1468/28
1t151 7 /28
10591/28

",402/31

1/)423/31

1iJ424/J1

16487/31

16517/31

041t12/53

16322/55

16432/03

16257/06

(,3532/11

16451/102

16068/12

0158/12

"'361/15

HUfd

fc143fc1/102

16327/18

03J7/18

k'342/18

~350/18

RDIDT

0097/33
0501/39

16744/32

\/l114/j3
16566/43

1d146/33
",228/44

16fc172/36
16366/44

16234/36

101684/39

ROIM1

0335/18

0331/18

RDfJJP

1642\/l/32

~257/32

16275/32

16394/32

RDPRG

01655 / 33
0404/35
0211/38

(,3743/32
16572/35
16318/38

0072 / 33
",655/35
{11312/39

10 2 5 2/34
01635/36
16820/39

"'436/34
10295/36
1616216/40

10122 / 35
16068/36
1d447/43

10 2 6 5/35
fc11881038
01606/45

ROPRJ

00 74 /33

0 4 216/32

011:1 0 9/33

103 8 16/33

16059/j6

READ1

061711/)3

ra611/",j

READS

1661 ((J/((J3

((J~J2/100

READY

0175

0215/29

RECRIa

0143/106

10139/106

RECRl

0147/06

"'135/00

RECRf

0184/1d2
161401166

03791102
icH ~16/1iJ6

0665/liJJ

01625/(C)4

01668/04

0136/06

1d761103~

~511/28

16257/39

0610/fc1J

.... ,.,

tROSS.REFERENCE SYr'160L TA6LE

f/48

il675/48

RESCL.

0800/48

0767/48

0171/48

RE,D

"8H~/4'

1796/48

16799/48

RESER

080 6 /48

0104/48

0713/48

RESfS

",811/ 48

070 8 /48

0711148

RESLE

0807/48

0743/48

RESOP

046J/4 0

0398 / 4'"

RE.ST

081 4 / 48

0671/48

RESXl

0164148

0676/48

RESX2

fd771/ 48

~168/48

RESX3

077 8 /48

0776/48

RE8Xf.

0678/48

"'17~/48

RETAD

",2l8/16

022 4 /1 6

-------

,,123/48

fit25 6 /16
fit282/17
1t:I~04/18

0037/20
"'261121

16811148

0811/48

0755/ 48

07911 48

1215/11
"'364/17
0324/18
0158/20
0277/21

081UJ/48

0220/11
0396/17
0134/18
0294/20
02811'/21

.... ".

CRUSS-REFf.RfNef. S YMtiOL TAHl.E

RErCl)

0291/i()2

0489/11

~494/11

RIDCL

1c1794/45

0616/45

10733/45

fd011/3J
0251/44

0095136
fd255/44

0tHi9/3b
0262/44

VJJ77144

fd12ti/56

k11J2/56

0262/56

RNDA1

0112/20

0084/216

RNOA2

0113/20

0081/210

RNDCl

0114/21fJ

0086/20

RNDC2

0115/20

0092/2i()

RNOXl

0241c1/02

0077/20

RKeyp

i()495/11

1d53b/11

j()1~6/36

~274/36

02~i/36

1Q566/44

0121/~6

10290/56

k'248/36
1d414/44
1c1305/56

008(0/2(0

0082/20

IcH,,80120

(0087120

0i()9 ti /20

0i()83/21G1

10090/20

~",9b/20

0472/48

10480/48

0499/48

1(1501/48

10411/48

1d485/48

i()48b148

0495/48

lcl446/48

"'451/48

0466/48

(tHHJ4/48

0091/20

'" lIc:Hc:l/2 0

--

kNDX2

0241/02

0078/216

kOND1

0284/25

0295/25

ROND2

0306/25

0302/25

ROS

008i()/31

1d073/27

ROS1

i()46 9 148

1d51d3/48

kOS2

0472/48

10468/48

ROS3

i()494/48

1d474/48

ROS4

0497/48

1r:J49J/48

Rose

050 8 /48

0465/48

ROSOl)

0514/48

0494/48

ROSfX

"'513/48

0484/48

kOSlO

051i()/48

0467/48

ROSUJ

0509/48

0431/48

ROSMS

0512/48

1(1482/48

RQSP

fd5fc?7/48
16490/48

10463/48
fc?497148

047fc?/48
0498/48

ROST

0511/48

10478/48

0487/48

ROST8

0460/48

040$3/48

l-:l441/48

1d197/31d

0502/48

"", ..

CROSS8REFERENCE SYMBOL TAbLE
V'505/46

ROUND

~

02",8/02
Wi305/25

(1)428/23
0309/25

0311/25

RPARN

0491/04

"Jet/e4

0(178/05

10310/06

RPCK

003 4 /02

0392/02

0J80/"'J

01361",4

RPOP

0349

0522

0353/04

10312/06

IHH

044 9 /02

0093/15

0114/1&

0195/15

",a30/15

RQ2

045111/02

00 93 /15

0117/15

10120/15

RQJ

0451/02
0244/15

,,480/11
0441/15

0611/11
0484/15

"'163/15
04 9 1/15

RQ4

0452/02

0172/15

0276/15

RQ5

0453/02

1d178/15

01~7/1!5

RQS10

0224/1~

0212/15

RI.ISll

0245/15

02'6/15

RQS12

"'263/15

1c'1209/15

RQS13

"'270/15

"'246/15

0249/15

0251/16

RQS14

02 73 /15

"'232/15

0~U5/15

02 4 0/15

RQS15

0194/15

"'190/15

RQST2

0147/15

0121/15

RQST3

"'230/15

0192/15

RQST4

0233/15

10196/15

RQST5

0236/15

0226/15

RQST6

0146/15

ftH~4/15

RQST7

0150/15

0145/15

RQST8

0213/15

0203/15

RQST9

0281/15

0119/15

RQSTR

0190/02

0094/12

0284/15

0366/15

RSCHI

045"'/14

0458/14

0211/2.

0313/24

fcH 72/25

0281/25

0289/25

1c'1277/04

1c'1070/06

Ic'IJ17/06

"'168/15

0204/15

0274/15

0206/15
0381/35

0216/15

0234/15

0378/15

iH02/20

0265/15

.....,

----

CROSS",RE.FE.RENCE. SYMBOL. TAtsLE

RSCH2

0459/14

L!j453/14

RSCHK

0118/02
026f>/14

0372/14

RSFAE.

0190/31

0182/31

RSFS

1.:1170/31
0014/33

RSFSP

~313/"'2

fc)431/02
0443/14

0461/02
10466/14

Iir)J78/12

0fd18/13

0~60/1J

0203/J1

ft)220/31

1d229/Jl

0242/31

"'260/31

0729/32

0014/33

1d787/J9

043 8 /51

0283/55

"'156/58

10542/58

RSPTR

(,1404/02

10293/11

0378/11

03/9/11

0380/11

0J82/11

Iir)JS4/11

RSTOl

0165/"-15

0161/0f>

RSTOP

011H:l10/02
IoJ5t;/1t}5

0385102

031t;/03

100L!j4/0J

0164/",5

"1167/05

0292/05

RSTPl

0269/08

0265/08

RSTP2

0271/1d8

~291/L!j8

RSTPJ

0287/1t}8

031d9/08

RSTP4

11:1292/08

0281/08

RSTPb

0J1 4 /11:l 8

1d257/11:l8

0330/08

RSTP6

0333/08

0324/1d8

0330/08

RSTPI

0J39/~8

0J21/08

0349/08

RSTP8

0350/08

1t1344/"'S

0347/08

RSTP9

0355/08

0316/08

RSTPT

02010/02

0074/07

RSTRl

0271/~5

"'267111:15

RSTf(S

1t)266/0~

1.15J4/t'.J5

RT0

0471/02

"'444/14

0465/14

RTl

0472/02

0449/14

0451/14

~4!:)5/14

0456/14

RTNST

"'381/"'2
0"'67/111.1

"'33"'/09
021.12/10

",383/",9
0207/11{l

0427/09

043~/09

0065/10

0066/10

RTRNQ

0380/02

03S2/09

0420/09

~446/0g

Ih169/10

0203110

R~RSL

IIJI4WJJ/20

ItH 99/21

0377/~5

0358/08

10354/08

0400/36

.......... ,

CROSS.REFERENtE SYMBOL TABLE

S

0004/2:5

0!42/23

04~7/23

S14L,P

0211

0~O4/07

,,' 96 /11

0 49 2/1 6

039J/19

S14SC

0270
024()/IDO
0311/29
0109/3(0
0217/39
0028/42
0260/48
0237/49

0271
0258/06
0412/29
O336/30
0235/39
1t)004/43
10271/48
0083/!>9

0421/03
0409119

0466/03
0311/28

04 U5/29
0427/30
0411139
0090/45
0129/59

0436/03
jj)J07/28
16456/29
0444/30
16546/39
(0222/45
113632/48
0289/59

S14SH

0395/28

027113

0415/28

0709/32

88184

0515/37

0102/37

SAl

0144/21

0139/21

SA2

0145/21

O114/21

SAO

0288/102

(c)091/23

0236/23

0416/23

SAL1

0030/28

0067/28

5 AL2

1t)0~"'/28

0038/28

0056/28

0071128

SALJ

",O45/28

0042/28

SAL4

000 9 /28

00~6/28

SAL.5

0070/28

0063128

SALCP

0097/28

1122/28

(/J181/a.

"'703/32

SAL.OA

01(C)0/28

01l1/28

0"es0/as

0"52/28

SAL.Ee

0102/28

0049/28

00615/28

0704/J2

SAL.fA

011(1)/28

0(/J91/28

SAL8U

0106/28

0164/28

SA1. n.

",,98/2 8

002~/a8

0"~2/a8

00 7 3/28

SALTS

{/)1~1/28

0035/28

0061/28

SALVA

042~/~2

SAL.VG

0021/28

fUJ7/1i3

0r.t 86 /28

SALyP

0018/33
0 8 30/39

0654/35
00 87 / 44
16211158

0336/36
IC)le2/ 4 8

0662/e7

06US/48

0214/~8

0 486 / 3 0

05 28/30

0633/05

0195/49

(U91/06
0210/29
""'54/30
01059/39
0320/41
0(Ogll47
0209/49

0186/24

0219/24

0248/24

IIh'l12/28

0082128

IU,93/28

16428/J2

0101/ 32

"(01 8 /33

11221/38

0344/38
"'436/49

(1)206/39
0124/50

0511/39
030 0 /b7

IU24/4~

00"~/30

01!S6/33
05!Ul/39
"411/45
0647/48
61)296/59

00U,,28
"1630/30
0045/39
0562139
0422/45

."",

--

--

CROSS"REFERENCE SYMBOl.. TAS,-E

SAl..Yw

~lJ7/03

0104/03

SAU~L

0099/28

.,028/28

SAM2K

0U~4/28

0045128

SAN8K

0758/57

0521/57

SANe

0508/57

0502/57

SANCA

0520/57

0514/~7

SANC~

0525/57

0519/57

SANec

0559/~7

0572/~7

SANCO

05 66/57

0564/57

SANCM

l!:)576/57

05 43 /57

SANCO

0560/67

SANCP

058;,,/57

",579/57

SANeR

",5 97 /57

0605/57

SANCT

"'611/57

0602/57

SANey

0633/57

0621/57

SANDO

0664/57

[6658/57

SANEA

0731/57

0504/57

0734/51

SANE~

"'7 36 / 5 7

07 05/5 7

0,39/ 5 7

BANEC

07 4 1/ 5 7

"'7 0 9/ 5 7

07 44 / 5 7

SANEO

07 4 5/57

[6713/57

07 4 8/57

SANEf:.

075 0 /57

06 0 7/57

0753 / 57

SANfA

07J4/57

0o"5/t)7

SANfti

07J 9 / 57

071d 6 /57

SANFC

0744/57

0710/07

SANFL.>

0748/57

0714/57

SANFf:.

075J/57

061d8/57

SANIl..

07 H)/07

10506/57

0036/28

ta043/28

rrh146/28

0707/57

0711/b7

0571/57

0609/57

it
""

,.,.-,.,."

CROSS-REFERENCE :syMBUL. TAttLE

SANIP

0693/57

0486/57

0488/57

SANKS

0705/57

0518/57

0523/57

SANKC

0709/57

05""'/57

SANKO

071J/57

ItH567/57

SANLA

",754157

0512/57

SANL,8

1cJ755/57

SANL,C

0490/57

,,7el/57

0077/57

0697/57

rnee/57

0550/57

0562/57

0584/57

ItH:H~8/57

0617/57

0065/57

0756/57

fiH56~/57

05~4/57

061d4/57

0616/57

0650/57

0684/57

SANL,O

0757/57

ftHH2/57

061~/51

SAY"

0040/36

0J04/36

SAVI"

0169/36

04122/:)6

SAY11

0172/36

016g/36

SAY12

013 7 /36

017 4 /3 6

SAY21

0233/36

e373/36

SAY23

0129/36

0374/36·

SA Y24

029 8 /36

0421/36

SAY25

0311,)1/36

1iI298/36

SAY3

f63.}7/'}6

f6e2~/.}6

SAY.}"

0272/ 36

0251/36

SAY31

0295/36

0275/36

SAY32

0333/36

0326/36

SAY4

0338/36

0,,33/36

SAY5

0046/36

0041/J6

SAY50

0060/J6

,,405/J6

SAV51

0062/J6

.,060/36

SAV6

0091/36

0081/J6

SAY7

ftH47/36

fcH21/J6

SAY9

0083/36

0293/36

0042/36

CROSS",REFERENCE S'(MBul. TABL.E

""""""
SAV98

0343/36

0178/36

SAV99

0369/36

0348/36

SAVBA

0094/36

0127/J6

SAVBD

~116/36

0124/36

SAVS"

0125/36

0104/36

0199/36

sAve

0360/36

leU 13/36

0123/36

0153/36

0251136

0278/36

0283/36

",111/36

0284/36

SAvtF

0277/36

0205/36

SAVCG

0289/36

0271/36

SAVO

0362/36
0246/36

t)025/36
0266/16

0054/36
0268/lb

0006/36
02/3/36

fc'I101/36

0UJ2/36

SAVOr>

0363/36

0093/16

0126/36

0151/36

025 3 / 3 6

0286/36

SA.¥DP

0352/36

0158/36

0302/36

SAYDS

035 8 /36

rrH55/30

0209/36

(0352/30

~J77/J7

SAVDU

0364/36

0104/36

0J74/37

SAVE

0046/31

0494/29

SAYl

0350/36

0176/36

0216/36

0218/36

0220/36

SAVLN

0365/36

0068/36

0075/36

0119/36

0148/36

SAVO

0048/31

0351/J6

0614/44

0506/56

0439/57

SAVOV

0351/36

0346/36

SAVP

0361/36

0023/36
fd3i63/36

0030/36
0365/37

(1036/36

0050/36

0H~7/36

SAVS

0 357 /3 6

01 87 /36

01 9 2/36

SAVWU

16359/36

0065/36

0213/36

0296/36

0J81/37

5tH

~146/21

0141/21

S62

0147/21

ItH 16/:U

SBL>

0289/02
122.,/24

16090/23
.".7/2.

0233/23

0234/23

SBFIX

0088/kJ2

0062/1rd

0 4 &2/11

.,080/12

0236/36

1(1280/J6

0062/36

00710/36

11)4'15/23

0444/23

018b/24

.,,,97/12

"191/13

IU98/13

.......

CRO$S.REFERENC~

SYMBOL. TAI;H.E

0021/15
0471/35

0023/15

0021/15

"'028/15

0323/18

0333/18

SBHEO

0049

"'116/29

0128/2~

0318/29

0406/30

"0418/30

S8JTa

a204~

aaJ6/fJ2

SBP

01ag

lUll

0417/03

116190/06

0J45/28

SBPTR

0246/02
0307/03
0428/03
",486/03
0686/"'3
0011104
021 8 /04
0301/04
0376/04
0180/05
0326/05
0591/05
0141106
019 8 /06
0313/06
0535/06
0233/11
0277/11

0410/02

02D1/03
0341/03
04:51/03
04g4/03
0653/03
0057/04
0242/04
0332/04
0036/05
0218/05
0341/05
059V/05
01448/06
0224/06
0395/06
0231/10
02443/11
03"1/11
0502/16
0092/17
0119117
0336/18
0178/22
0418/25

02]1/0J
0376/03
0449/03
0505/03
0695/03
0089/04
0243/04
0334/04
0081/05
0236/05
0435/05
0616/05
0149/06

.,a72/03
0386/03
04PJ2/"'3
0535/03
069 9 /03
0104/164
"'247/04

0275/03
0398/03
0473/03
0539/03
",710/03
0107/04
0263/04
0341/04

0130/05
"231105
0476/05
0081/06

0271/05
0477/e5

0429/k'J
04871"'3
0624/",3
.,014/164
0232/04
0322/04
0402/004
0205/1d5
0327/05
0598/05
01~5/06

0072/17
0107/17
0326/18
034 9 /18
0464/25

0223/06
0378/06
0552/06
02442/11
0292/11
0340/15
0091/17
rU08/17
0328/18
0176/22
0471125

00~6/02

0391/03

019~/14

SBPUD

"J09/~3

0 67 5/03
0361/04
0064/06
053 9 /06

0 696/ 03
0075/05
006 9 /06
0177/22

0 4 50/03
0 7 07/03
0082/05
0084/06
0179/22

~23J/06

0396/06
0360/10
0244/11
16302/11
0057/1'
0093/17
(C!120/11
0338/18
0459/25
04 79 /25
0 45 J/0 3

1633~/04

1d15i/06

0252/06
04406/06
0376/10
"'269/11
0303/11
0069/17
0101/17
0135/17
0343/18
.,461/25

01 65 /05
0087/06

0571/03
0054/0 4
0232/05
0226/06

00~3/04

fU3 8 /05

0157/20

0276/03
0 4 27/03
0476/03
0562/03
0717/03
0116104
0283/04
0354/004
01b8/05
030 8 /05
0PJ65/05

iHiJ83/06

00~6/06

"192/06
0297/06
1d407/06
0382/10
1r.J275/11

(4311/11

0196/06
029 8 /06
053"/06
0060/11
0270/11
0376/11

0070/17
0103/17
IU37/1?
03447/18
1i1462/2t5

010 4 /17
013 8 /17
0344 8 /18
0463/25

0 639 /e3
00 8 5/04
0474/05
0299/06

0650/03
0288/0 4
0481/05
031 4 /06

~1071117

saSCl

0060/06

0099/05

0102/05

SBSCJ

0070/05

0063/05

0067/05

00 9 8/05

0106/06

SBSC4

0095/05

0059/05

S8SC5

0100/05

0040/05

SBSCK

0f,u6/02
0087/05

0378/r12
0092/05

00;54/04
00904/05

0127/04
0221/05

0030/06
04211'/05

'UIJ1/05

004J/05

S8TB

0J47/02

'5')J/06

05J8/rtJe

sBUFA

0336/02

0252/03

0561/05

0563/05

05711kH5

0586/05

0595/05

....,.
SCALR
SCH1

CROSS.REFERENCE SyMBOL T.• 8LE
05~o/05

0605/"5

0.J2/02
012 4 /1 8

0332/17
01 87 /1 8

0087/18
01 9 8/1 8

0093/18
021 6 /1 8

IUlts/1S
0261/1 8

0118118
0266/1 8

0121/18
0272/18

02~2/29

k'l695/28
0432/29
0289/30

0011/29
0445/29

k'l 2 t)1/29

(/I27J/29

0327/30

0021/30
",512/30

0162/30
0079/33

0348/29
0189/30
0.18/33

0416/29
0215/30

0098/29

0106/29

IU12/29

0548/29

1031/J0

0107/31

0421/29
0245/30
0481/44

~-

~~

SC H11

0436/29

038./29

8CH12

0521/29

0508/29

8tH13

05J8/29

0528/29

5C H1 4

0532/29

0542/29

SCH15

0152/29

0021/29

0048/29

SCH16

0104/29

0029/29

00eJ/29

SCH17

01 4 2/29

0122/29

SCH1S

0~44/29

0123/29

SCH19

0141/29

0135/29

8CH2

0441/33

04.8/33

SCH20

0.18/29

0408/29

SCH21

0097/29

0148/29

SCH22

0 448 /29

0439/29

SCH2J

0136/29

0110/29

SCH2.

04 69/29

",.52/29

SCH25

0440/29

0393/29

SCH26

0.89/29

0479/29

0.'3/29

SCH27

0485/29

0411/29

047J/29

0475/29

SC H28

0505/29

0492/29

SCH29

0tH2/29

0495/29

0497/29

0499/29

8501/29

0503/29

SCH3

rrHeH5/29

0140/29

0295/29

(0332/29

1402/29

0536/29

SCHJ0

04~4/29

0381/2 9

012"/29

0517/29

\

0480/J3

",.,.

CROSS.REfERENCE SYMBOl,. TA81,.E

5CH4

036ij/29

0277/29

StH5

0025/29

"Z'1/29

SCH51

0287/29

0371/29

SCH~2

00~0/29

~0J5/29

SCH6

0376/29

0280/29

SC H61

0529/29

1636 4 /29

SCH7

0299/29

0279/29

seH7~

0333/29

0316/29

seH7S

0346/29

SCH8

0352/29

0278/29

SCH9

0389/29

0382/29

SCHAR

0405/30
0422/30

0093/30
0439/30

seHBl

0419/33

0403/33

sCHtH.

0396/33

0256/34

SCHED

1d677/i8

0671/28

seHEN

0283
05 49 /21

062 8 /05
018 4 /33

SCHEQ

0354/30

0283

SCHIO

0062

SCHIN

0421/32

0123/30

0~20/J0

1~21/30

0139/30
0445/3",

1416/30

04~0/3(6

e5UI/34

0343/35

0641/35

1657/35

0634/05
0226/33

0(;00/11
"'340/33

84151/16

ef53'/21

0'45/21

0268/29

0392/29

",436/29

0285

0264/11

0232/12

0330/16

SeHHl

0331/30

0285

0339/30

seHL

0050

0118/29

0435/3J

"449/33

SCHLS

"'297

0364/07

0490/11

0014/12

SCHl.Q

IdJ50/ 33
0205/34
0253/35
1r:1637/35

0297
1r:1320/34
0488/35
1d522/56

07 54 /32
0331/34
0490/35
0455/57

0381/33
011 3 /35
0491/35

16382/33
"'145/35
rt>496/J5

61408/33
fU 79 / J5
0547/35

0 4 21/J3
0251/ J5
0608/35

SCHOQ

0514/30

0~H6/J0

0723/32

"'023/33

sCHOU

0023/33

1r:1168/41

0330/41

0347/41

0512/41

0031142

0054/~2

",720/32

84~fUJJ

CROSS.REFERENCE SYMBOL TABLE

~~~~.~

fU80/42
0466/42
0199/43
0369/45

0253/42
0539/42
0214/43

0ld53

0102/30

SCHPR

0282/42
0060/43
0227/43

0294/42
0093/43
0251/43

1365/42
0116143
.,273/43

iJ437/42
11.1157/43
0278/43

0451/42
0171/43
0J6 3 / 4 6

0120/29
011 8 /30

0379/29

0469/29
0138/30

8482/29
iJ144/Je

0493/29
0441/33

0451/33

"~55

0439/33

0446/33

SCHQl

0369/30

0357/30

SCHQ2

0379/30

0376/30

SCHQ3

14381/30

a373/30

8CHRI

0423/30

0401/30

8CHR2

0441/30

0434/30

8CH81

0022/29

0255/29

SCHSQ

0518/30

0599/42

SCLPR

0044/30

0339/29

.,,,55/30

ta378/30

8CMMA

0503/04

0062/05

SCNT

0054

0092/30

0119/30

SCOM

0090/30
0110/30
0145/30

0121/29
0111/30
0718/32

038iJ/a 9
0114/30

0094/30
feHli'/l0

0095/30
fU24/30

0098/3 0
0134/30

0104/30
0137/30

SCOHI

0407

0128/30

SCOM5

0409

0133/30

SCOMA

0128/30

0121/10

SCOMS

0113/30

0126/30

SCOMC

0137/38

1132/3fiJ

SCOMO

0131/30

0136/30

SCOME

0111/30

0Ul1/30

SCOMM

0430

0478/06

3CR

0"2~/Jl

0472/29

SCRAT

05516/29

0547/29

SCHP

~389/45

0122/l0

0585/29

0432/3"

0428/29

0307/08

0560/29

0645/30

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

CROSS-REFERENCE SYMBOL TA8"E

SDIR0

0tH 7/37

0013/37

10052/37

"2"'0/31

liJ2_22/~7

SOIRl.

IDfU8/37

0033/31

,,067/37

00 8 1/37

liJ391/Jl

SOIRU

05151/31

0269/31

SEMI

0481/04

0648/03

SE Ml1

0508/33

04V7/JJ

SEMI2

0521/33

(,H526/33

SfMI3

0534/33

0507/33

SEMle

8 4 U3/3J

1IJ761/~2

jf611J9/31

.836/J8

,329/39

SEHl

0355/25

0368/25

SER10

0425/16

0439/16

SER11

0433/16

0424/1 6

SER12

04410/16

0432/16

SER1J

~442/16

0409/16

SER5A

046~/16

"'401116

SER7A

01 84 /03

11120 8 /03

0178/02

0S27
01538

0528

0530

16535

0259/10

031 7 /10

022G/l0

0~10/16

0j2'/02
0 4 1$/10

111330/02

0532
1/1242/10

0533

0536

SERRI

0336/16

0237/16

0318/16

SERR2

0373/16

04182/16

0496/16

SERRl

0397/16

0389/16

SERR4

0405/16

0332/16

SERR5

0453/16

0364/16

SERRO

0497/16

0322/16

SERR7

0fH6/16

0184/03

SERR8

0414/16

04102/16

SERR9

0416/16

kJ412/16

SERRA

0005/15

0312/16

SERR

12541/37

0~~3/Jl

0012/04

00~'/JJ

046a/16

,.,.,.,,.,

CROSS.REFERENCE SYMt30l TABt,.E

SERRI:i

100$62/16

~358/16

SERRS

0527
1d 354 1V;3
0439/03

1d2S0/I{)J
0362/1t.13
0443/03
0524/ir13
111584/1/13
0663/I{)J
0041/1t.14
I(JIdS8/k'4
0158/04
1d211/1(14

0~2i{)/03

11:1575/03
0652/103
0029/04
",,,,SId/1ll4
ro140/1!;l4
1t;'l266/I04

0J17/~3

"'J21/~J

~361/~3

369 /163
0475/ftl3
i{)5JJ/03
0603/03
10698/103
1011)53/164
Irll1t/"'4
0175/04
IrlJI00/04
111117/05
",2031/00
1d344/05
id066/06

10447/VJ3
~529/03

i{)598/03
1I)673/k'.l3
01045/",4
13099/10 4
0169/1d4
0276/04
0105/05
f()217/05
0J40/165
0bkl4/100
o t"d 6/ 15

1/1

16327/1/13
klJ79/03
1c)482/03

~J48/"'3

IOlll/ft:lb

0344/03
ftl384/03
0503/11:13
1{)554/03
11)627/03
1Q008/0.
10,,66/04
10133/1/)4
0256/04
0320/04
0163/140
031 4 /",5
0362/105
",311/166

0 4 0 7 /L€i3
",5116/1213
0565/163
06491163
0k120/It)4
"'''72/164
0139/",4
0265/104
0405/04
1I)184/ftl5
10321/i{)5
0J69/105
0537/k'.l6

ftl544/0~

11)616/03
10725/163
",,,,56/164
ftl128/ftl4
14256/04
",314/04
"'141d/0D
I(.IJ07/165
10352/11)5

",42~/k14

~079/1{)O

!lI180/105
f()333/05

l1l92/1{)5

",,371/100
10551O1~6

",425/fr.'10
lO000/15

SETOl

~045/12

111041/12

SET02

0049/12

00J5/12

SETDP

0102/102

kl307/kl2

0.3ts8/Ql9

1a212/11

ItHd52/12

k'.l11 8 /12

0172/20

SETPT

0144/02
0304/12

lO316/02

"'3H6/~9

1J1"'4/1k'.l

"'17"'/10

td195/10

rd174/12

SfC7

0570/26

Sft,.AG

0534/",4
049k'.l/03
04J8/kJ4
L!l219/105

0297/1113
0620/03
1!)4bJ/1tI4

1(1310/",J
fd65b/t13
k'101/05

10313/03
0718/03
kl137/05

ft:I320/",3
",369/04
"'141/105

0342/03
0394/04
11)159/05

0488/",3
0437/04
0162/05

SfLG

0 477 /lO2
0124/2'5

",,,,46/23

10223/23

02 25 /23

1d24 5 /23

0323/24

0.,92/25

SFLGA

025H/05

10298/05

11)342/05

03b4/05

SICK

0119/28

10138/103
",706/32

0010/10
lOid17/3,3

04/4/27

ft:I492/27

"'123/28

0634/28

00$37/34
01 H)/39
011",/42
",4"'9/49
10530/54

"'434/34
kl430/39
",621/44

~5b6/57

",~9"'/57

k'.l185/35
045ft:1/39
ft:I627/415
II)td74/olil
1d527/56
11)637/51

0263/35
067H/39
10683/45
kl068/51
"'116ts/57
",b4b/!:>7

0371/J6
.,123/39
1d694/48
",606/51
1r1204/57
0662/07

~427/32

'''30351~5

"'258/~5

SItKA

"'427132

SICKL

0((11\!)/15

0361/16

SICKM

012//28

0121/28

SICKp

0017/33
01022/39
",793/39
(011)28/ 49

0391/33
k'.l039/39

0Jk)J/o2
",34~/51

v.I~S5/42

0321/49
IdJJ5/02
0401/07

~J42t/49

kl0d3/56

..

~~~

..

CRO~S.REFERENCE

0687/fJ7

0090/08

SICKW

ru 3a/ta3

kl058/03

SICKl

0634/28

0213/30

SIGN

0301/02
0278/10
t(J461/21
0087/24

0e7 J /03
0289/hl
0110/22
0189/24

SINIT

01 7 0/02

046 6 /ftJ2

~LE0

0aJ5/49

0240/49

SLE1

0186/49

0199/49

SL E2

028b/49

0375/49

5LE.3

0373/49

02tt7/49

SLE4

0414/49

kl425/49

SLE5

0J89/49

0394/49

SLE6

0434/49

03 7 t/4Y

Sl.E7

0247/49

027t>14Y

SLE8

0268/49

0252/49

0i62/49

5LEBA

0468/49

0402/49

0463/49

SLEBD

0463/ 49

(cl4,,5/49

SLEtl

rd44a/49

104~8/49

SLEc2

0456/49

(cl4~t(J/49

5LECA

0432/49

(6431/49

sLECH

0442/49
0229/ .. 9

0214/49
., .. 6y/ .. 9

0216/49

SLEeT

0466/49

0 4 11149

0"2 .. /49

SLEHI

rd4J0/49

0500/49

SLENG

0343/02

1tl195lrd6

SLEPl

leY1

SL.ER~

0177/49

0115/49

SYMlioL TAtH.E

0164/58

01b3/58

Ir3:U.l9/58

00~6/03

10266/23
0223/24

06 0 1/03
0324/11
1t128J/2J
02bl/2"

0297/l44
0052/19
"'4 ts~/23
tU74/25

0233/10
0073/19
rtJ447/23

0246/03

0t135/07

k'Jll/12

0235/21

1d218/49

0222/49

111220/49

0209/06

0218/06

l4241rJ/16

~J1J/ll

0202/06

8236/10

0183/19
0046/24

0221149

.. ,.,.,.,.

~

CRUSS ... RE.FE.RENCE. SYMBOL

SL£ST

~462/49

id178/49

SLET~

0467/49
\()423/49

0413/4!11

SM31

0354/36

0327/36

SM5'14

ftj511/J7

05"4/31

SM51c,17

0353/36

0344/36

SMAIN

0631/28

5MBGN

TA~LE.

~414/49

0416/49

10417/49

1r:J419/49

0422/49

~103/3(,:l

02k'.l8/3flJ

10234/30

10253/30

0323/30

\()713/32

vJ342/02

0193/~6

10231/06

0249/136

10251/186

SMSK

IcHH,4/1 ~

0114/16

VJ138/1b

SMULA

!d1016/17

10336/17

SMUL.T

!d2610/18

!d016/17

SNFLG

0488/!d2
k1f(136/24

0092/2.3
1I)k:')43 124

0424/23
ft'lid49/24

10 44 1/23
!dk:l81/24

0450/23
10090/24

£0002/24
0194/24

01&?36/24
0265/24

SOURC

032 0 /112
0269/16

1a174/16

0187/16

101 88 /16

021!d/16

1021 8 /16

1c.126 7 /16

SP,A

11)396/59

10212/59

SP,L.

10397/59

1d245/59

SP001

0167/59

0175/59

SPOit13

0209/59

0193/59

02"'~/59

SP010

Ic.1j19/59

0235 / 5 9

°239/59

SP01l

0367/59

10230/59

025~/59

SP012

it1377/59

0375/59

SPD13

it1j25/59

it13J2/59

SP014

°195/59

10189/5 9

1021cl2/59

SPOt6

0214/59

1cl222/59

024!d/~~

SP017

10216/59

SP01~

0258/59

10265/59

SPl>1 9

02 66 / 59

10202/59

SP04

0223/59

1{)219/59

1c.127~/16

0~~0/59

id373/59

CHOSS.REfERENCE SYMBOL TABL.E

'''''""
SP06

1I)271/~9

1D278/59

SP07

0281ti/59

0272/59

SP09

0242/b9

"213/59

SPOCK

0335/59

"169/59

rd342/59

SPUt:L.

034 5 /59

0197/59

0352/b9

SPDCN

0~89/59

0157/59

0225/59

0260/59

11)268/59

SPDD"

0299/59

0168/09

0196/59

0215/59

kJ301/59

SPDNR

0387/59

0163/59

0116/59

leU 80/59

1a294/~9

kJ338/59

0341/59

spooe:

0392/59
0277/59

rue2/59
,,315/59

0251159
0320/59

"263/59
0322/59

fd264/59
10328/59

0270/59

0276/59

SPDPO

0390/59

0282/59
kJ300/59

0290/ 5 9

!d 3J 7 /5 9

ilJ40/59

034 7/ 5 9

0350/59

0357/59
SPOSP

035b/59

0217/59

0362/59

SPL)Sl

",3 9 3/ 59

lu 6 4/59

0203/ 59

02ij6/59

1034 8 /59

ICIJ~51/59

SPDTM

163 88 /09
0361/59

IU61/59

",224/59

11)22 9 /09

0231/59

0237/59

035 8 /59

SPE

1654J/33

1il291/59

SPHOG

0249/132
10 46 0/01
0537/33
0387/36
0033/40
0312/40

'U90/0J

~HU9/06

04 76 /35
0390/36
0067/4iJ
0022/45

0438/06
0027/08
11) 6 35/35
0368/38
11)111140

""fUJ/,,7
0254/11)8
10104 6 /36
10379/"8
0133/40

0121107
03 87 /0 9
0064/36
0382/38
11.1208/ 4 0

0146/07
0209/11
0069/J6
16340/39
023 9 / 4 0

SPS2

0424/48

0369/48

0;;,78/48

SPSfT

1!J31!J9/59

0232/59

~J11/59

SPSP

0437/ 32

1ct08&/32

009&/32

0120/J2

SPT~

0357/02
02fd7/0 7
1ct310/07
0414/07
!d029/08
11.1059/08

1ct068/07
0211/07
0322/07
0419/",7
00l1/1e18
0063/06
01ll/fd8
0261/08
111171/16

0076/1ct7
02 36 /01
0324/07
0421/07
0032/08
01d71/08
0112/08
0262/",8
0216/16

0079/01

01e1/iJ1
16292/0 7
",398/01
1il434/07

0182/e7
029!5/0 7
0401/07
0441/07
0045/08
(0091111)8
0255/08
e288/08
0234/16

0188/01
0 l 11/k17
8413/07
e028/ld8
"047/08
0101/08
0258/08
1iJ292/08

0108/~8

0259/08
0Jfdfd/0 8

11.146~/07

fc1297/b9

0466/01
0621/35
0069/38
0093/48

0327/59

02Y~U07

1t)333/07
0431/07
0034/08
00~1/kJ8

0110/08
0211/08
0219/16

fd8J'/~8

0e92/08
0173/08
1d286/",8
(0232/16

"273/59

023~/16

-"".

CRUSS"'REFE~E.NCE.
~243/10
04~2/3b

SSTAK

fd338/i!l2
02010/0 4
0422/L14
1!'J432/04
11',,47/05

SYM80L

TA8L.~

1d2 44 /1 6
0437/36

kiJ2 65 /1 6
0442/.30

(02 60 /1 6

jd520/J3

16 5 2 5 /"3

1d204/fd3
02 8 4/1d4
1d423/04

0168/04
041 5 /0 4

ro449/~4

10046/165

~fd~3/00

10131/04
0J 6 0/1.i 4
16426/04
0447/1.i4
kHtl54/ldO

11'138/04
1.i41213/1d4
II)428/1d4

04J4/~4

0092/04
(0357110 4
It1425/1.i4
16435/04

0089/1d5

101044/05
16090/1.15

0235/11'7

102 8 1/07

1d296/07

IcH75/08

121199/08

0121/47

~191/41

0221c1/47

~429/04

I.1

J98 /J6

0114/1d4
0 4 16 /1d4
0431/04
0045/05
0~91/1c15

1d145/~O

SSYMT

Illld68/102

0J02/~2

S1'.6J

01610/47

10488/46

SlA

ItH.163/31

05~~/28

ST A2L>

1d1 9 2/47
0225/47

trJ458/46
10227/47

0474/46
0251/47

16489/46

STAJl)

10247/47

1d254/47

05 UI/47

ld~lJ/48

IcHrlJ5/48

Idlld8/48

STA6D

021 7 / 47
0500/47

~399/46

10 4 13/ 46
01t191148

1l)0 48 / 47

0062/ 47

022 8 / 47

ro 47 0/41

1d051/48

STAAl

fd043/46

005 9 /48

STAA2

0055/48

10049/48

STABf

10428/33
16206/48

1.1302/46
0341/48

0171/47
ftl349/ 4 8

0173/47
100571/48

0235/47
10377/48

11)241/47

019 5 / 48

STAB~

0064/48

16 432/4 7

10075/48

009,3/48

STACH

0232/ 47
0 47 1/46
1t.1212/47
0'199/48

031 5 / 46
k)487/46

03 28 / 46

~388/46

0~56/47

~243/47

~25J/47

03 6 4/46
010 7 / 47
1(J5!d8/47

01 84 / 47
1d026/48

0 4 52/ 46
01 86 / 47
01032/ 48

STADl

II)J21/46

\1331.1/40

STAL>6

0255/47

k)343/47

STAOA

f0041cl/48

0440/41

0451d/47

IcHtHHU48

STADe

I(}251/47

0310 6 /47

STADG

0210/ 4 7
02\15/47

ft;1366/40
0213/47

0J83/46
02510/47

10450/46
0012/48

0196/47

0204/47

STAL>l

0.34 8 /40

10416/46

STADJ

031.17/47

0326/47

STAOK

1£)321/47

~1311/47

1fl317147

01330/48

0371/46
1/)1121 47
16ii)1~/48

"'195/47
0024/48

.....,

CRUSS""HEf'ERENCE SYMBOL TAtH.E

STALIL.

0262/47

"':'24/47

STAOR

0079/48

0437/47

214.7/47

11)457/47

0479/47

5TA05

0°2°/48

0383/47

041114/47

f60Lil7/48

011136/48

STADU

0256/47

0361/47

SlAl>X

11)344/47

10363/47

SlAOY

0358/47

0348/47

STAID

0261/47

0274/47

ST A1W

16283/47

028Lil/47

STAIR

0276/ 4 7

02S7/47

STAl.L

00ki 5 / 4S

02 8 2/ 47

0a 9 5/47

(031 5 / 47

10352/ 47

001 6 / 48

STALT

0417/46

0351/46

0Jr.5S/46

AL. V 00116/47

0088/47

0326/46

11)376/46

aUIJ/47

0206/47

0340/46

Lil414/46
Ir:'l122/47
0340/47
14441/47

1/1422/46
iH26/47
0355/"
0446/47
Lil522/47

0483/46
0161/47

r1J18/47
0421iJ/47
04i3/.7

Lil345/46
1(111'91/47
0330/47
0431/.7
0498/47

0360/46

0J67/46

~H

1£),,81/47

0019/47

STAL.V

00211)/47

0080/47

STALZ

0ki3C)/ 47

14076/47

STANE

0J76/47

fdJ89/47

STAN"

0364/47

"381/47

STAat

0201/47

(0311/46

STAPL

0076/47

0071/47

STApR

0166/47
1(1493/46
0288/47
0394/47
045 0 /47

0331/46
0006/47

STAPZ

0064/47

0053/47

5TAQV

0261d/47

00J5/47

STASI

0094/48

0113/48

STAae

~11I91/48

IItH8/47

Idlal/47

1d624/4~

lIt114/48

STAST

0179/47

1t33ld6/46

0316/46

0333/46

0341/46

~303/41

(11)66/48

~3e4/47

STAL.X

0407/47
'11476/47

0499/47

0039/47

~077/47

0~1~/47

003671"

0451/47
0525/47

.......

1t)41t)0/4t,)

0377/46
vH)92/47
0269/47
0442/47

1038 4 /46
"'113141
10289/41
04b2/47

STASW

0203/47

103~8147

STASX

",399/47

0415/41

STASY

0410/47

id4id6/47

STASl

0416/47

VJ4id3/47

STAT"

10258/47

10375/47

STATE

10259/47

0367/47

STAT X

0462/47

10489/47

STATY

04810/47

1d468/41

164/5/47

STATl

0131/47

"1/14.58/46

STAUS

0264/47

0413/47

STAV1

IrHH.,4/33
0457/46
0135/47
1!j34b/47
10463/47

1d1/l72/47
"-'188/47
frJ424/47
idH.l9/48

04~4/47

1(1454/46
10185/47
k'J369/47
kH>11/47

10002/47
0187/47
10390/47
id052/46

10462146

0467/46

10142/47

10143/47

10739/32
k:1473/46
0152/47
11)346/47
1t)464/47

0347/46
011l11/41
ro157/47
10349/47
10481/41

0349/46
id1d14/47
1r.131d6/47
10309/41
0516/47

0365/46
0021/47
009~/48

k141b/46
0WJ4t'1/47
0312/47
1d401/47
1d1161d/48

0424/46
0082/41
10322/47
0411/47
IU 04/48

1t)1d0 5 / 3 3
100 5 1/ 47

1/) 74 0/J2

",427/46
101 4 0/47

id01 3 / 41
0149/47

Ii?)kS37/47
0151/47

1010 4 3/ 4 1
1Il2Mj/47

004~/47

00 66 /47

STAVJ

01d0 0 /J3
1lI132/47

11)741/32

0425/46

~43"/46

1d449/46

kS4Y5/46

0499/46

STt;AS

0440

kS299/1d3

STC0

105/2/26

1d439/26

STCTl

~J7kl/02

ItllJb/07

0155/107

10156/07

1Q1ii!06/~7

0211/07

STCT~

0371/02

IIHJb/1l)7

0152/.,7

STC1J

10312/1112

ICllb8/1t)'

1D162/~7

STE

012b

10262/11

STENU

kl350/02

kl1d18/0S

STEP

0456/22

1d54ld/04

STFId

044..5/26

"'372/26

STAV2

~-'

CROSS",REFERENCE SyMBOL TAt;LE
~lfH'/41

10299/41
0471/47

\:1kl96/0b

0418/46
10182/47
103.56/47

~30~U47

10400/47

rd43b/47

411411411 __ "

CROSS.REfERENCE SYMBOl. TABL.E

STL10

0001/47

04~8/46

STLBp

0146/47

04~1/4b

0460/46

0465/46

0477/46

1"156/47

STLCK

0228/"'2

0 4 93/02

ro033/06

05615/06

0403/09

1d361/21

SlLE

0521/37

0264/37

STL.P

0122/47

0118/47

5TLT16

0428/40

0500/46

STLT1

0434/46

0484/46

8TLT2

0444/46

14411/46

5TLT3

0.453/46

0448/46

STLT4

0464/46

046~/46

5TL.T5

04J7/46

IU43/46

0482/46

SlLT6

04 g 0/46

0442/4b

0461/46

0478/46

5TL.T7

0494/46

0433/46

STL.T8

0476/46

0463/46

5TLT9

0485/46

0466/46

STMP1

0360/02
0216 7 /16 8
"317,,,8

0226/07
022 3 /0 8
"333/ ..'

0299/07
0226/0 8
"361/08

"318/~7

0235/0 8

0129/ro8
0276/0 8

0140/08
02 83 /0 8

0361/ro2
02 7 0/0 7
0160/08

1d247/'d7
0274/10 7
0201/08

0.252/07
02 8 5/0 7

0257/ro7
0266/0 7
0233/168

ro2159/1d7
roJe S /0 7
0339/08

0266/0 J
031 5 /0 7
1t)342/1d8

0266/ki7
01 45 /0 8

STP

16545/33

0213/3g

STPTR

0366/02
16455/06
0474/06
0499/166

0423/06
0469/06
04715/06

10424/06
0460/06
0476/06

0426/06
10461/06
04eJ/~6

0427/06
(64615/166
0484/06

0429/06
0472/06
1d467/06

04Jfc1/106
0413/06
0496/06

STRll

0137/05

0129/~5

STRID

0078/02

0384/02

011~/05

I01J6/05

ft)14i/05

0220/05

041\'1'110

STRl.N

0407/02

0161/11

0180/11

1d18!/11

STROfJ

0038/102
0144/05

0395/",2

0372/03
0429/05

(6094/1c14
0300/06

0151/04

0274/k'4

0134/105

STMP2

1d414/"'~

0230/08

0158/47

fiH59/08
0~97/08

",.,.,.,,,

'-

~

""

('R(JSS .. REffRlNCl S YMI:Wl.. TABLE

STSTH

IiHjij6/1d2

1a4171((.l2

~[664/11

1d1d95/13

kJ288/14

STTUP

011 4 /02
",374/14

4-:1325/102
1c)391/14

0479/12

0038/13

0132/13

IcH~7/13

0[684/14

STTYP

",244/kl5

fc'J286/1d3

SlYPI:.

0359/[(52

ftJ272/VJ7

ra289/07

kJ3J4/07

1'0435/07

1/)037/11)8

0174/"H~

STYPS

0381c}/22

0244/165

SUP

052 4 /37
VJ3 8 3/37

0263/37
0380/J7

0299/37
0417/37

0Jld5/37
0477/37

IdJ06/J7

0321/31

0478/37

1049~U37

0349/37
049 9 /J7

SUP1

0018/37

0036/37

SUP11/)

1t)39[6/37

[0261/37

SUP11

fc'J41/)8/37

1c)266/31

02710/37

"'289/37

SUP12

0426/37

0414/37

SUP13

0415/37

1a43~/J7

SUP1 4

0430/37

"'421/37

SUPlb

0409/37

0469/37

SUP1b

04910/37

[6392/37

SUP1l

101473/37

"'438/37

SUP1H

0455/37

"'443/37

SUP2

~032/Jl

01321/31

SUP2fr:l

t.1084/37

0089/37

SUP21

1ll",91a/37

1a087/37

SUP22

011)97/37

0204/37

SUP23

[6132/37

0104/37

SUP24

0185/37

IOJ30/JI

SUP25

0188/37

rtl193/37

SUP26

1(3194/37

10191/37

SUP21

11'198/37

0110"'/37

SUP28

"'200/37

021111/31

[6425/37

"'1024/37

e119/37

..

" "

CROSS-HEfERENCE SYMBOL TAeL.E

SUP29

~221/37

0232/37

SUP3

05taJ/J7

kH'46/37

SUPJkl

1ci220137

11)209/37

SUP31

0250/J7

0223/37

SUP32

033J/J7

e344/37

SUP33

0346/37

0340/37

SUP4

1ci054/J7

0.071/37

SUPS

0065/37

0056/37

SUP6

16075/37

1ci068/37

SUP7

025 8 /37

0398/37

0474/37

11)465/37

SUP8

0263/37

0278/37

03'4/J7

0332/31

0386/J7

SUP9

0280/31

0274/37

SUPS

0525/37

,n131 137
ra4&4/37

0,,42/37
0467/37

0050/37

0ra57/37

0418/37

~4416/37

SUPES

0533/37

14137/37

11)149/37

10335/37

16350/37

035 9 /37

SUPEX

16532/37
0337/37

0140/37
16341/37

,,,,72/37

1IJ320/37

0320/37

IciJ29/37

0334/37

SUPKl

052 8 / 37
",268/37

01Z182/37
11)271/37

0196/31
0216/37

0179/37
1ci295/37

IU99/37
0413/37

16203/37

10255/37

SUPK2

0529/37
161 4 3/37
1t'J277/J7

00 94 /37
161 66 /37
0292/37

0UJ1/ J7
1211 75 /37
rdJ09/37

01167/ 37
01 76 /37
1ci310/37

0108/ J7

kUl o /37
02 5 2/37

012 9 / 3 7
02 7 2/37

16 5 316/37
0220/37
"457/37

160 92 / 37
0221/3 7

0121/ 37
0256/37

01~)!S/37

.,,39,,/31

IU 87 / 37

0394/37

01 9 6/37
0 4 12/37

0211/37

SUPL2

0531/37
0441/37

kl2f53/37
0465/37

1ci21S/37
0406/37

16315/37

0390/37

"410/37

0420/37

SUPI..L

0494/37

0151r:10/37

supp

0526/37

16065/37

1r:1070/37

(Jt/J76/J7

16260/37

0397/37

0411/37

SUPR

0538/37

j5(1)2/'J7

SUPRl

0514/37

05"'1/37

SUP!.. 1

0235/J7

020 7/37
rd428/37

0422/37

0 445 /37

,."-,,,.,
SUPRR

~530/J7

0508/37

~52J/37

1d025/37
00 59 /;;7
0461/37

0026/37

00 48 /37
0449/37
SUPTG

0527/37

031~/37

0347/37

SUSP

0508/30
0494/311'

fd21d2/21
0181/33

~J44/30

SUS~N

0202/21

1c:1189/21

SUSpp

0181/33

10180/33

SV~C2

0594/28

0398/28

0413/28

SVeH2

006kl

10459/26

0J97/2b

SWAP1

10251/30

0229/30

SWAP2

1d2b2/JId

1d315/31d

SWAP3

0~90/30

k)223/J0

Si'4Ap4

121216/30

0194/30

SWAP5

101207/30

~165/3k)

SWAP6

03103/30

1d299/JIO

SWA~7

0187/30

1d168/30

0210/316

SWAPR

01tsa/3e

0816/29

tU52/29

SY~I'

0383/28

02ft12/28

0346/28

SVe 1

~348/28

0367/28

10378/28

Sye2

10371t1/28

IdJb1/28

SYC3

1.1347/28.

0203/28

SYCBA

0362/28

0197/28

Syeet.

0381/28

ft1199/28

SYCeL

0384/28

0375/28

SyeON

0341/28
0371/28

02ft11/28

SVMCl

0367/06

0371/06

SUPS

--

--

~./

CROSS .. Rt.fERENCf. SYM1301" TABL.E

~1d30/J7

10027/37
00 6 2/37
10473/37

0064/31
1d475/J7

0038/37
1d 4 0 9 /37
0482/37

0039/37
04 15/37

1d350/30

0368/30

0390/30

0393/30

.,285/1.

1126/JI

.318/3 ..

0344/28

103b5/28

16356/28

0377/28

10342/28

I(lJ48/28

10353/28

~354/28

0374/28

0219/28

0229/28

0231/28

0232/28

0233/28

~060/37

0466/37

0199/31tl

.

"1~/J2

...,.,.

tROSS""REFERE~CE

SYMBOL

SYMCa

0J75/06

0369/06

SYMCK

00 48 /02
0592/03
006 4 /04
0J19/1IJ5
0309/06

03 94 /02
0630/"'3
0iJ78/04
0028/05
1d3J1/05
0365/06

SYMTl

0131/08

0136/08

SYMT2

0140/08

0221/08

SYMT3

0153/08

0132/08

0142/08

SYMT4

0156/08

0141108

0242/08

SYMT5

016 4 /08

0134/08

0224/08

0236/1d8

SYM16

0210/08

0006/07

SYMT7

021 7 /08

0O,,5/107

02091,,8

"234/08

8YMTe

fl22.)/"

1212/0"

II1US/18

SYMT9

0235/f68

0218/08

SYMT8

1:'247/02
0075/01
0457/07
0326/08
006 5 /13
0382/17
0513/3 3

0198/03
0116/07
0130/08
0340/08
0169/16
0170/20
0624/35

0257/03
0196/07
0167/08
0406/08
0104/16
0246/21
0395/36

SYNTl

0246/03

0199/03

0242/03

SYN1A

02~0

1tJ396/29

SY~Tt;

0514/05

0445

SY~TW

0337/02

0255/03

SyNTX

0236/03

0250

BYSID

0088

0429/ 32

T3581

0191
0652/45
0174/47
0461/48
0140/50

0169/27
0655/45
"203/48
0706/48
0174/51
0309/53

0J9~/04

0301/53

0~1~/03

0641/03
0091/04
0061/(65

0338/00
0366/06

03 5 2/03
"'661/",3
0144/1d4
011J77/05
0360/05
0374/06

10622/05
0330/01
",206/08
0092/10
0053/17
0421/21
",42 9 /38

01536/06

"'218/10

01815/27
0658/45
0350/48
0043/49

0082/32
00 36 / 46
0436/48
0048/49
0616/5i
0410/54

0180/~1

0402/54

TA~L.E

(6382/03
0091/03
01156/",4
0096/vHS
103671105
0319/06

li't501/0J
14039/04
0350/04
10294/05
10374/05
0380/06

0 5 22/103
0051/104
0J83/04
0310/105
0163/106
0548/tl6

062J/0~

0052/07
10430/07
027b/08
0034/12
liH81/17

""65/07
0454/",,7
0314/168
0360/12
01 93 111
0499/33

0400/01
0256/108
IIH~7/10

01615/17
0034/22
0028/40

0089/32
01/141/46
0444/48
0484/49
0681/51
0454/56

k)455/2~

fcHd18/ 45

0135/32
0231/ 46
0449/48
10491/4,9
1/)564/52
0461/56

0602/45
0253/46
0454/48
0133/00

0b72/52
0131/57

"",.,

CRUSS·RE.fERENCE. SYMBOL TAbL.E
w:l1J 8 /57

kJ718/~1

y,726/57

1i)l/1/fl6

1.11 8 1/58

0366/56

{OJ74/58

T3582

0189
0340/48

1.1115/29
\:)348/46

0301/46

frU69/47

10172/47

10194/48

k:l20b/48

T35Bf

0456/33
0795/45

1fJ169
[d796/45
009 9 /46
0126/46
0166/46
0189/46
10224/46

1tJ189
0 6 01/45
0101/46
11)128/46
0170/46
0193/46

0190
fd 8 02/45
"'h;6/46
1",34/46
IcH71/46

1O~34/46

10235/46

fd191d
fdfd31/46
0107/46
ItH45/46
10174/46
1()196/46
16231/46

1"191
kH)46/46
k'J1IdB/46
16151/48
k'J17b146
1()198/46
16432/48

[d757/32
11).,86/46
0112/46
0158/46
0177/46
1&1199/46
1.1436/48

"'021/46
I.1t)26/48
10672/48

0146/48
0b5b/48
0773/48
ir:H:l91 149
ttl192/b0
0187/58
0210/59
0418/b9

0~195/46

fd115/46
0161/46
0179/46
02011)/46
04410/48
T35C~

0036/33

0049/33

10054/48

r35C1

0048/33

0589/48

0001/48

101 8 1/49

T35CH

fd32~

0257/33
0169/48
10566/48
0785/48
0108/49

ri'J35/33
0174/48
0571/48
0788/48
0150/49

",375/57

~493/t)7

fdl05/59
0238/59

0243/09

la587/45
0179/48
10590/48
101060/49
10047/510
0694/57
1.1185/59
1/)248/59

0157/50
0696/b7
{(U 90/59
0253/59

0138/48
0537/48
10765/48
10085/49
!cH8b/50
1/)",27/58
0198/59
10414/59

0163/48
0565/48
0779/48
011t11/49
0413/56
0191/58
1d218/09
"'422/59

0171/~9

~"o7b/49

T35CL

1d18J

T35 Cfol

k'044
0025/46

ki129/29
0679/48

01d37/33
0681d/48

"'044/33

059fd/45

1d591/45

0024/46

T35CY

0",32/33
",360/36
(()343/b8
0115/59

0329
0220/ 49
0022/b9
"'l23/b9

1()142/32
0 634 / 0 1
01()27/59

(c",,35/33
1()498/52
0036/59

IOkl4b/J3
1d23 6 /53
k'J041/59

1/)050/33
0337/54
1d06b/59

01051/33
0 45 0/ 51
0107/59

T350R

1i12bld

0033

(0560/20

T35Fl

1.12162
0191/31.1

kJ042/27
1d381/49

0065/27

0100/27

10192/27

0187/28

0~26/29

T35f2

0203

0078/27

,,136/27

0159/27

10104/29

1tt146/29

0225/33

r35FJ

02k)4

k'J047/27

0161/27

1Ok'28/29

T35FG

0166
fdLH/29
006b/51d

0033/33

0043/33
10485/57

0156/48
10019/58

0034/50
0233/09

"'~44/5'"

0(55/511)

0186

IU~b

11'184/49

T30L.C
T35lK
""--=--""

~H~5/4b

01d4b

~135/59

~183/00

",

...

C;ROSS .. ~EFERENCE SYMBOL.

lJoloN

016ij

0139/29

TJ5ND

0190

0117/29

T35PR

0187

T35RS
T35SP

TA~LE

[I:I192/J0

1t)382/3rtJ

1d256/33

0071/27

1d108/29

11)138/29

f6202/J0

!d177/J3

10184

16134/29

0175/33

0171/33
fti3101d/46
0445148

0174/33
0168/47
10450/48

,,598/45
1t'l1?S/47

td 656 /45
1t12104/46

16033/46
0344/48

0351/ 4 8

0232/46
04.i7/48

T35$T

10185
020 4 /30

0069/27
01 76 /33

01679/27
0179/33

"'107/29
0124/47

IU36/2S1

01Sl!5/30

0201/J0

TA~

0464/22

0219

TABL.E.

0341d/02

0185/136

0205/06

TABPN

0391/59

liU59/59

0311/59

031 6/ 5 9

032./59

032 6/59

0331/09

TADR

0"'1 3 /26
0238/28

0040/27

"",91/27

1dk)94/21

0117/27

0126/27

019b/27

TAP{4

iJ2ij/~

IU 90/1i

aall/16

ljIi lit 6 I 16

iia"/16

.. 264/16

0266/16

TAPI

0329/11)2

ld261/16

ld2116/16

TAPEl

leH7S/16

ItHSo/16

0215/16

TAPE2

0195/16

0191/16

0260/16

TAPEl

0224/16

lcI217/16

TAPE4

0231t1/16

0241/16

TAPE5

0248/16

016 8 /16

TAPE6

0258/16

0193/16

TAPE7

0261/16

0199/16

TAPfA

0183/163

1tJ245/163

TAPEF

0513
0024/30

0618/1d5

0J19/16

04fH5/29

04b0/29

0464/29

TAPER

1d166/16

0183/~3

0114/31

T612C

0633/32

0809/32

T6130

",834/32

0469/32

TB16'"

0635/32

0606/32

~042/46

0278/16

0202/16

0f)t4/J2

0031/22

.. ,", ..

CROSS .. HEFERENCe. SYMBOL TABLE

TCR5

0304/28

0312/28

0J20/28

TCR8A

0332/28

0268/28

0280/28

TCRCe

0331/28

a266/28

0277/28

TCRIR

0249/28

0494/27

Ir:1185/28

0296/28

TCROl

0298/28
029b/28

0271/28
0321/28

0273/28

~275/28

TCRPC

O330/28

0255/28

0261/28

0311:10/28

TCRPT

0329/28

11:1250/28

0253/28

11:1-'102/28

TCRPU

0324/28

0263/28

TCRSD

0326/28

0257/28

TDNUM

01 4 11:1/ 3 2

0111/32

0118/32

TEMP

0258/02
0J62/02
0J09/02
.441/12
0373/0J
0527/k)J
01371,,4
0227/04
037 4 /04
0142/",5
044i1J/05
04 98 /05
0f)8J/105
121010/05
0054/06
00 80 /22
0136/22
0180/22

0309/02
",363/02
0370/"'2
,.41/.2
0404/03
",53fd/03
",149/104
10229/",4
10381/",4
0188/",5
",461/05
0499/05
",588/105
0611/10 5
0274/06
0100/22

0336/02
16364/02
0371/02

022 6 /22

0409/03
00910/03
IIH02/04
0240/04
041110/04
0411/05
0462/05
1!t503/06
0669/05
0614/05
0277/06
0109/22
IU39/22
02J5/22

0390/02
00 45 /10
"'383/10
0109/11
020 7 /11
0496/11
0370/12
001 9 /13
0277/14
01tl58/17
0190/17
0379/17
0445/25

0409/10 9
00 47 /10
0022/11
11:1122/11
0208/11
00 6 2/12
0373/12
0021/13
0283/14
0149/17
0199/17

0410/09
00 5 4/10
0026/11
01J5/11
0211/11
0073/12
11)388/12
0032/13
0284/14
0150/17
0333/17

TEMPI

0137/~2

""2/.2

1r)3~1/1d

"329/1~

10448/25

10467/25

02 8 1/28

0 293 /28

VJ287/28

0291/28

1012 4 /32

r1131/ 3 2

01 4 6/ 3 2

",338/02
1)365/02
10372/02
1447/1'
04 4 1/03
",,,13/04
",164/1214
0246/04
0446/04
0413/145
0 4 69/00
111504/05
10594/05
0rt.l17/06
0062/22
1C'111J/22
0140/22
0245/22

0350/02
0366/02

10360/02
103671102

0361/02

~313/02

~J9"'/02

' ..... /12
0444/03
IIHI,91/04
IUS?/04
kl24S/ttl4
"464/04
0417/"'6
10411/05
1i)t)07/ft)5
0591/05
0018/1116
007&/22
IU 14/22
10146/22
10276/22

1;'6"/113
0492/Ic'lJ

0439/02
IJ1frJ/IIJ
049 9 /1fJ3
IrH It:I0/1() 4

01010/10
100 88 /10
01r:l27/11
0146/11
0219/11
k1078/12
",391/12
0054/13
!I)IC)25/17
10170/11
0334/11
10353/18
10472/25

10019/10
011 7 /10
10030/11
11'147/11
0223/11
0083/12
0448/12
011155/13
0032/17
111171/17
10335/17
0412/25
1I1467/J5

~"95/04

0170/04
0272/1()4
1()132/0b
0427/05
",478/05

036S/~2

017:5/~4

0306/10 4
10135/1C)5
04J0/~5

0497/1tl5

~b69/1r:l5

105781~5

0600/kl5
1/)02"'/00
1I1fr)82/22
11>126/22
liJ147/22
"'294/22

0601/105
01112.4/106
01083/22
0131/22
0151/22

0020/10
IU54/10
0043/11
,,196/11
0230/11
0341/12
0449/12
11511,61/13
11>1036/17
k1170/17
111348/17
ttJ424/25

01r:123/10
",25°/110
0k>44/11

Ir:lJ08/~2

019b/11

0245/11
0342/12
04514/12
1d27 4 /14
101645/17

IdlS7/17
0378/17
043~/25

"""",
TE.MP2

CRUSS",REf'E.lo2/12

0337/09
0240/13

",371/109

10409/12

0419/12

0468/12

TEMPJ

~3921102

0412/12

0420/12

k1248/13

11:1252/13

11:1262/13

TEMP4

0393/02
fcH9kl/12
1r!)266/13
klJ32/14

0067/11
0377/12
11:1272/13
0433/25

1cl415/11
kl382/12
030Wl/1J
0421/3!>

it:I421/11
11:1196/1J
ta126/14
1c1425/35

0435/11

0509/11
10217/13

10302/14
11:1449/30

10308/14

1r)222/13
0322/14

0394/~2

0361/10
",1 6 1/12
"'157/14
1d522/15

0377/11
1/J21 5 /1J
0163/14
10532/15

ta448/11
111221/13
0189/14

11.1514/11
1tl27 4 /1J
Ir3197/14

14116/12
1d2 8 1/1J
1019ij/14

011 9 /12
10 2 EH) 113
1tl248/14

~257/14

"'343/10
132 53 /1 3
1IJ259/14

0345/10
101 9 2/1 4
01443/10

"'156/11
11:12",7/1 4
"'056/15

10189/11
",223/14
1t:I1tl66/15

1tl363/11
k)2 3 1/1 4
11:1023/210

Ir:1J65/11
02 54 /1 4

TE.NTH

O",90/21

10325/22

11:1333/22

H:RR

0511d

02391103

01t:147/~O

0251/16

1t:1507 I 16

0477/29

0485/29

THE.N

1t:1454/22

10409

THNUP

1(j46~/40

1d4J3/411l

TIM1

1r:157114J

1t:l5J6/43

T1M2

v.lti80/43

It:looJI4J

TIM3

0082/43

0611/43

TIMD'II

06210143

11)592/43

10594/43

00100/43

1t:160J/43

TIMf:f

~170

1fJ692/2~

~177/29

~183/29

1d241/J2

1d3b3/3J

1t:1400/J3

kJ161/29

TEMP5

01 07 /12
~31d2/13
~349/15

TE.MPo

10395/1112
':12 0 1/13

"'3"~/1I:I9

i0339/3Y

'--'"'

TIMf:1-<

~~48

{d69 4 /28

TIMf:S

0511/{d4

IcH45/~4

lIMN

0617/43

"'595/43

0606/43

11MNM

~619/43

eJ5Y0/4J

0596/43

TIMPl

0o{d8/4J

kl5tt 9 /4J

TIMP2

~600/43

10591143

TIMPJ

0610/43

0605/43

TlMP4

059J/43

166167/43

1O~06/1J

0422/12

0141/12

~462/30

"""
TIMPR

CROSS""RtFERENCf SYMBOL. TABL.E
0587/43

0560/43

0571/43

0614/43

0 6 18 / 4 3
0558/43

~546/4J

0559/43

0 548 /43
0510/43

kJ 5 50/43

0551/43

TIMXK

061b/43

10591/43

TK

1d52J/J2

0475/32

0487/32

0519/32

rtJ047/J2

TK1

0 6 17/32
0542/32

ft) 5 0 9 /32

~517/32

",525/32

kJ531/32

TK1WD

048g/32

0483/32

TK2

061 8 /32

0510/32

0618/32

0527/32

0543/32

TK3

061 9 / 3 2

0530/32

0539/32

TI<4

0620/32

fcHS90/32

0D95/32

1K5

10621/32

rtJ558/32

0581/32

TK6

0622/32

0557/32

0566/32

14513/32

11(.

(1528/32

1545/32

TK6

0533/32

0540/J2

TKCO

0 556 / 3 2
0594/32

(0494/32

0 5 35/32

kJ 55 1/ 3 2

TKCOL

0572/32

0565/32

TKCRL

10549/32

kJ471/J2

0498/32

11)516/32

TKCRN

0 56 0/ 3 2

0 57 1/ 3 2

TKOLN

0499/32

0488/32

TKDLP

0481/32

05"'0/32

TKDON

0001/32

0490/32

0520/32

TKl.P

064ft)/32

0466/32

rtH.H 1/32

0563/32

TI\OTI\

0637/32

0575/32

TKTliL

0642/32

04 79 /32

TKTtsP

10641/32

fc1480/32

0481/32

TKWb

0591/32

0596/32

TKWO

0584/32

0492/32

0497/32

TIMT

10 55 3/43

t)554/43

0536/32

~538/J2

kJ553/32

0582/32

0 586 /32

0541/32

0546/32

0554/32

0484/32

",485/32

049b/32

0499/32

16532/32

IcH5l7/J2

~o97/32

... ,. .. ,.,.

CfWtiS .. HE.f ERH~Ct:.

TMo

0624/32

kl589/J2

TMij

0623/32

0524/32

TMPST

0384/02
10017/13
IcH3J/14

16J05/1Vl
1tl0J7/13
0200/13
0134/14

~437/14

1c)4J9/14

164631V)2
100 70 /11
10375111
111219/14

V)24~/14

TO

16489/04

16531/163

lOG

kHH2/26

TOL

0029/32
~162/11

163411:1/11

0046/13
02104/1J
0193/14
16452/14

IOki49/13
1C3212/1J
1tl287/14
1i!\i£'l24/18

0309/11t')

ftj326/1kl

1()0 S1 J/11

~344/11

10444/11

0524/11
10333/15

0333/10
1/11
11)286/13
111351/15

0046/21

ftj1687/27

1t')434/02

1604 6 /18

10138/1 8

TOL.e

kH119/11

0045/18

roup

16247105

1c)5J4/163

TOPl

(;!J22/2~

11287/216

TOTl>G

04 89 1102
1I1168/2!)

0246/24
0184/20

TP12

1662 6 /32

0552/32

TP15

16621132

i0550/32

TP21 H

0631/32

16473/32

TPJ77

06310/32

16562/32

TP 4 16

062 8 /32

0493/32

TP6

I(}625/32

16092/32

TP60

,,62~/32

0585/"2

TPO

fr11416

V.l029/3{d

lPRMt:.

t1 464/{d2

IaJ06/11t1
10 438 /11

~lkl7/13

TNULL

,d 43b /11

10277/13
V.l3211l4

TRAX

-'

SYMI:WL. TABU:

011tS7

1()29b/13
0434/20

"'281

10260/24
16188/20

16293/12
101072/13

16381/12
10073/1J
1c)226/13
111420/14

01tJ06/13
0hlb/13
1022 8 /13

100~9/18

0234/18

0334/10
iclJ 58 /11
1d295/1J
ldo16/15

0344/10
IOJ5lJ/11
IrH28/14
1640b/35

16359/116
0 364 /11
10142/14

16124/27

0129/27

v)239/28

1d261/24

1d272/24

1d281/24

13163/25

130b~/ll

iJJ41/11

16357/11
101 94 /12
029b/l4 03"'1/14
~4516/J5 . 1C1452/Jb

04211'/11
162 67 /1 3
11)318/14
1-3457/35

103 0

1622~/13

10418/14
1010021 U~

~421/14

003 4 /32

13J32/11O
fr144J/l1
~127/14
(d439/2~

10 5 10/11

10211/14
0424/30

101 44 /12

.... " .. ,.

CROSS-.REf'lIH.NCE SYMBOL lAtH.E

TRFCH

046 9 /L12

0515/15

fOf)19/15

TRN

0004/18

04 12 / 17

V'~12/18

TRN1

0413/17

1()014/18

TRNFP

0637/~8

0336/29

TRNOf

060ld/28

0611/28

1d637/28

TRS0

~47~/02

1()521/15

0528/15

lRSTR

01()94/02
0 45 0/11
1d338/15

1d411/02
16 5 2 6 /11
0fH8/15

10293/13

TRUl

012 6 /13

0020/14

TSS

0201/29

0ftH5

TSPTR

(134 6 /02

TSRlkl

0324/10

16:536/10
0304/13

1d392/10
1t)34 6 /14

1d;)49/1 4

0361/11
0J o ro/1 4

0027/14

0~33/14

0040/14

007 6 /14

01(d1114

0230/(66

0236/1tJ6

0237/06

11'25 4 /06

0217/166

ki221lJ/06

TSRe1

11'202/06

0225/k'l6

TSRC2

0206/06

k'l215/06

TSRCJ

0211/100

0241/06

TSRe4

0216/06

0201/06

TSRe5

022 0 /00

1d222/06

TSRtO

0229/06

021£1/06

TSRe!

0233/06

0239/106

TSRCS

0242/tt>6

0234/06

TSRC9

0251/06

0259/1d6

TTl

0445/102

0374/13

16394/13

TTl0

011t.l4/27
0181/27

0139/27

0144/27

0149/27

0167/27

0175/27

TT11

0192/27

0154/27

1T12

0179/27

0157/27

TT15

f61J0/27

liS200/27

Tl16

1i:H74/27

0188/27

0349/11

16464/:56

[0146/27

CROSS~RE.FERENCE

fIJ"'"
Tll1

f!11Jb/27

IOIOb7/27

Tl18

0kHH 121

",,,54/27

0076/27

"'095/27

1T2

0446/"'2

~377/1J

[6368/13

0391/13

0405/13

"'412/13

TT3

1d4471"2

t1385/1J

0397/13

",41t1J/13

1t)40 9 /13

04Hl/13

T14

044~/02

0387/1J

1t1398/13

0411/1J

lT5

1ilI114/27

0084/27

TT6

0.,99/27

10086/27

Tn~

0103/27

0132/27

TTA

0~0~/2b

0061/27

01~6/27

TTt;

"''''10/26

~062/27

1d107/27

TH.

0v.l11/2b

0~b4/27

1d1104/27
.,340/29
11.1 448 /2 9

ItIJ46/29
10522/2 9
10403/32

035 4 /2 9
~54b/29

0389/29
000 5 /J[6

10309
10347135
1t1263/47
10272/49
d577/52

d584/28
11.1012/39
11.1412/47
10373/49
"'368/ 59

0627/28
0378/39
1il434/48
10456/49
0432/59

0262/29
06 03 /48
10114/51

IiH90/3!5
0196/4 9
11.1086/02

liHH 21 J 9
1Il238/49
11\368/59

1TQ

,,~51

0266/29

1t14[64/2 9
1IJ022/JItI

~419/29

fOJ02/2g
10 4 25/2 9

~071/J0

IOh,5/JIr:I

~423/3'"

TTXCP

.,2"'1/27

0093/27

TTYItlItl

1t1284/27
11.1257/29

10009
1IJ262/29
IrH57 81 J9
06163/48
"'114/01

0[610
ki697/32
Vl177/4J
10196/49
01079/52

"'(011
1tJ190/J5
kJ419/4J

1Cl4Jb/J~

00"'0/48
10",56/51
0439/59

TTV",1

-~

SVMBOL. TAt;LE

02 89 /27
"'4 3 5/39
10272/ 49

",O.,9
1t1584/28
f!1177/4 J . 04 12/47
1037-'/49 0456/49

~4j2/59

~4J9/09

TTYld2

1d294/21

lTV~J

"'299/27

TTY04

IOJfc.14/27

TTY{d5

{d3fc.19/27

TTYkl6

~314/27

TTY07

0319/27

T TY~b

1(1324/27

10442/46

~2J8/49

1tJ1d86/t:>2
"257/29
"'5"'~/48

10056/51

,."""."

CRUSS.REfERENCE SYM80L TABLE

TTY~9

0329/27

TTY!k'J

~334/2'

TTY 11

0339/27

TTY12

~J44/2'

TTY13

0349/27

TTY14

0354/27

TTY15

16359/27

TTY16

0304/27

TTY17

0369/27

TT Y1S

0374/27

TTY19

0379/27

TTY210

0384/27

TTY21

038~/27

TTY22

0394/27

TTY23

0399/27

TTY24

0404/27

TTVat)

r.J4j~la7

TTY20

0414/27

TTY21

0419/27

TTY26

16424/27

TTY29

0429/27

TTY31c:)

~434/27

TTY31

0439/27

TTY32

16 443 /27

0311

k16~8/32

10420/43

0264/47

TTY35

0289

0047/29
0141/50

0091129
",181/51

0216/29

0112/33

0204149

0627/28

0024/29

02!S3/29

0258/29

TTYCK

" •• 7/48

W)452/48

0223/33

frH'J49/49

,,.,,,,

CIWSS""RfF ERE NeE;.

llY!:.U

0200/27

0552/26

TWOSP

1{)659/30

il14169/J5

IcH~63/31c}

101665/310

0342/29
1d070/JI/)

TYPEL.

~1{)6f)/31r}

1011174/310

TYPET

0070/30
(d286/3\()

16064/30

UI;I)Ab

111030/31

10325/29

UOHDA

0618/41

103J4/41

UDl10

047b/ 4 1

10475/41

UOll1

10485/41

0477/41

UDlle

0565/41

054~/41

UDllJ

058 1 / 4 1

IcJJs2/41

UDIHIJ

0613/41

0618/41

UOINM

10591/41

1/)416/41
10533/41

1{) 6 16 4 / 4 1
10 440 / 4 1

16 4 21/41
W;l469/41

UDIR1

1r:i311/41

0304/41

UOIR2

ItlJ2J/41

0315/41

UDIHJ

0336/41

~346/41

UDIR4

16358/41

\()58rl1/41

UDIRb

00$61/41

16636/41

UD1H6

0 3 87/ 41

kL361:~ 141

UDIH7

0390$/41

f63b8/41

UOIKb

1041~/41

f64fd1/41

UDIR~

1t14 2 b/4 1

164 17/4 1

UDIRl:

0621/41

1048e/41

UDIMfo

111621tJ/41

0476/41

TYPE:.

10531/41

UDIOW

SYMBUL TAbL.E

~4316/29

0441/29

0075/J~

lOi17/Jii

0066/30

0513/29

Ir":'117/3111

0048130

1tl1c173/30

0268/3111

0283/3fd

0285/31r3

0456/41
0053/41

id466/41
10564/41

,,515/41
166010/41

0511/41

1d526/41

10 4 23/41

1/:1 43 0/ 4 1

", 434 / 4 1
IOb12/ 4 1

0 4 39/41

10 444 / 4 1

0481/41

IO b 20/41

16~42/41

,

06 3 1/41

,.,.,.",.

CROSS.~EFERENtE

SYMBOL. TABLE

UDIRP

0622/41

0492/41

UOISS

0619/41

0420/41

0422/41

0429/41

1c144~/41

~468/41

"eU~/41

0373/04

0 4 24/04

0455/"4

0541/4l
UDL14

0712/42

0490/42

0363/43

0376/43

UFLAG

0536/04

02041(64

0313/04

03J0/1r.t4

UHOS1

01 65 /32

0175/32

UIiOttA

0022/33

0329/41

0030/42

11)252/42

UHDBf

0152/32

02 1 2 / 32

00~2/JJ

UHU

0555/2j

0438/2tt

UliU1

0567/28

rlJ55S\/28

UIR

0133

0063/~7

"563/28
,

ULEN

0172

0256

0295

0379

1646~

~5t6/J7

0521/37

0~5J/l1

rt)445/16
10617/35

0418/28

0317/29

0355/29

~538/51

16542/51

0548/51

0549/51

(d6le/b1

",642/51

064J/51

1()~:H:I~/bfl:l

ULO

0137

,a3~/~i

UNABl

0514
04k14/32

0046/07
0359/33

UNL.1

0663/51

~48~/b1

UNll16

0590/51

0563/51

UNL11

1656i1/51

(6517/01

UNL4

~667101

0507/51

UNlf)

052 4 / 5 1

0$32/ 0 1

Ut-tL6

0534/01

0530/!)1

UN1..9

05b16/51

0594/51

UNLBT

06616/51

16654/51

UNI..CN

0692/51
1iI!)!)7/!)1

0523/51

05271'51

k1558/51

ii)596/~1

UNL.O

0 68ij / o 1

0 485 /51

~5e9/51

ft) 5

UNL.DG

06J 3 / 5 1

061 4 /51

1t)620/ 5 1

10635/51

UNL.t:.H

fd671/51

0664/51

0668/51

10674/51

~464/33

0' 68 /01

~619/bl

14/51

....

,.,. .. ,.

CkOS S""kE.f'ERENCE SYMBUL. TAtH.E

UNLF

~t;)bY/51

IOb7 g /51

1d493/bl
10590/:;1

0505/51
0b93/51

k1b11101

UNL,.FT

klo4\Ub 1

~525/51

~561/51

1cJ658/51

UNL.L.

06910/ 5 1

1t)51t)3/~>1

~516/51

UNI.N

069J/51

10616/51

UNL.N2

10628/51

10621/51

UNLNJ

1i:1610151

0627/51

UNL.NU

~61J/51

UNL,T

0569/51

IrHH2/ti1

145614/51

0517/51

0529/51

klb91/51

0622/51

0624/51

k1628/51

"-'479/51

0491/51

0498/51

10617/51

10629/51

0630/51

k')691/01

10513/51

0524/51

0528/01

0531/51

0672/51

0679/51

UNMN(;

1d48b/04

1d315/144

UNNRM

1dk')It)J/15

({)109/16

10112116

UNPAK

({)12 8 /ld2
10040/16

0544/15

0545/15

(cJ5~6/15

1/)060/15

0568/15

0005/16

UNPL,C

0486/04

14321/04

UNR

0134

0595/11

0491/16

UPCCN

0576/40

k')44 9 /45

10453/45

04 0 3/45

UPD20

0518/45

04103/45

0523/45

10541/45

UPOJO

({)5Jl145

10415/45

16542/45

UPDDG

10 5 2 7 / 45

1042 8 /45

0 5 21/ 45

0 5 32/45

165 4 0/ 45

UPO."

\0571/45

\0290/45

UPO,L

0572/45

0322/45

UPOIo

1t32tH1/45

0273145

UPOl

kl294/45

UP012

1043\0/45

k)427/4b

UP013

10433/45

10429/45

UP014

0375/45

035 8 /45

1d39J/45

UP015

10292/45

IOJftJ0/45

\0316/45

UflO16

0J71/45

lI)J66/45

0327/45

",522/45

fH. ____

CROSS-HEP:ERENCE SYMBOL. TA8LE

UP017

~391/4~

0386/45

UP018

0334/45

0342/45

UP03

0301/45

0297/45

UP04

0319/45

(4291/45

UP05

0344/45

0311/45

UP06

0;'515/45

0lJ8/45

",355/45

0373/45

UP07

039«>/45

0367/45 , 0J87/4f)

",438/45

UP09

0404/45

UPOCI

0574/45
0471/45

02 85/45
0495/45

0J 0 2/ 4O (1)3 13/45
16498/45

UPOC2

10575/45

0494/45

0497/45

UPOCN

",573/45

0287/45

0313/45

UPOOG

04 8 3 / 4 5

16293/45

0490/45

UPOIN

",441/45

0l06/45

03:59/45

04 8 0/40

UPONI

"'454/45

"'459/45

UPON2

04616/45

0456/45

UPONJ

0404/45

0469/45

UPON.4

14711/41

"~66/~O

UPON!)

0478/45

0415/45

UPOPR

105 0 3/45
0510/45

0345/45
~51J/45

16,597/45
16fH4/45

UPOSP

0493/45

1a295/45

0499/45

UPTRV

0559/45

IIll54/45

UPTSV

0547/45

URDCL

"'335/45

0340/45

0442/45

0405/41>

"'41 6 / 45

0504/45

0506/45

0370/45

0390/45

0567/45

0352/45

0368/45

(43 8 8/45

",555/ 45

0232/42

(4,,71/42

0161/42

UHE110

1015 9 /4 2

0161/42

URf11

01010/42

iJ169/42

URt12

0182/42

0HHt/42

0336/45

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

CRUSS.REf'EHE.N(;E SYMIjOI. TAtjL.E

URE13

1f.l17~/42

Id185/42

UHE14

0186/42

1d162/42

URElb

vH91/42

Ir:lfd72/42

URE21

0071i:1/42

0099/42

URt:.22

vHd06/42

"'181142

URE2b

0097/42

1d1d89/42

URE31d

'1231/42

10039/42

URt:.NM

019 8 / 4 2

~132/42

UHEPt

01d19/42

Id1r:l12/42

UREP2

fd0;'1/42

"'023/42

UREPJ

0043/42

1d053/42

UHEP4

0060/42

1d074/42

UREP5

0075/42

1i:10bS~/42

UREPo

0087/42

10090/42

UREP9

0113/42

0094/42

0184/42

URETI-<

'1211/42

0139/42

1r:l145/42

1r:l2~4/42

URHDA

0225/42

0041/42

URPHD

1022 0/ 42

10225/42

US.63

1d598/42

1i:1443/4~

USCKl

1r:l224/1d5

1d214/fdO

USCK2

1f.l232/id5

0225/{oo

USCK3

"'235/1r:l5

0211/1r:l5

USE

Id0ld2/1d2

1I;)239/Jri)

0259/31d
0ft) 6 1/J3

10287/3",
10 37 2/33

1d249/32

",3 9 2/32

~386/32

"'21d7/42

0221/42

1i:1223/42

~378/jJ

"255/32
101d52/36

0269/J2

11012/02

01,)6'3/1112

01fJ 51 / 36

VJ256/49

USEl

"'ld0J/1f.l2

1d243/3~

10213/32

~1d07/JJ

1d261d/49

USt.Of-l

1(1461

0f1182/v.lij

If.llJ1/11

"'499/21

(4419/40

USEH

00\dO/1d2
11;)296/102

kHU3

001'-

1/j2oo

.J79

1i1185/1OJ

CROSSIIIREFERENCE SYMBOL. TAttl.E

.. ft ........

UStSN

0254/02

0024/08

USIt~5

~J52/105

0515/05

USTlfr:)

0405/42

0400/42

USTll

0416/42

0421/42

UST12

0428/42

0415/42

UST1J

0440/42

0418/42

UST14

0445/42

UST15

0085/08

0245/09

0394/42

0413/42

0430/42

0453/42

0385/42

0448/42

UST16

0460/42

0457/42

UST17

tc1470/42

0551/42

UST18

04810/42

rcH543/42

UST19

04 96 142

0535/42

UST2e

{O524/42

0tHJ/42

UST21

0536/42

11»531/42

UST22

0544/42

0479/42

0499/42

UST2 0

062 7 /42
V;)664/42

041°/42
0673/42

16420/42
0028/43

UST3"

013S/43

0049/43

USTJl

0045/43

0042/43

USTJ2

0069/43

00 8 8/43

UST33

0083/ 4 3

0073/43

UST34

0l1tl3/43

0125/43

UST35

0120/43

0107/43

USTJb

fd1 45 / 4 3

0142/43

UST37

0161/43

IU80/4J

USTJ8

0175/43

f0168/43

UST39

~181/43

0165/43

0t'529/JJ

fd44f)/36

0632/42

0651142

\

0444/42
16312/43

0662/42

0079/43

0111/43

'~'j

,.

..... ,..

029b/43

~J11143

~404/43

",bkl8/42

~C522/42

"'66~/42

0259/43

0412/42

0417/42

0429/42

059b/42

0591142

"'366 / 4 3

11'371/4 3

0J89 / 4 3

0220/02
kl241/05

0642/ft:)J

0046/04

1li212/0b

0223/05

1U230/05

16234/05

USTOl

ft:)325/43

10332/43

USTD2

"'328/43

USTDb

",412/43

0102/43

USTUA

0322/43

"'198/43

0208/43

"'334/4J

USTDC

0414/43

0068/43

06 40 /42

"'315/ 4 2
",650/ 42

0332/42
0672/ 4 2

0402/42

0639/42

.,2 94 / 43

i603'''142

0631/42

",6 4 0/ 42

1d306/4J

USTOL.

~418/43

"'086/43

USTDR

",3711)/43

1r:J195/43

02"'5/43

1c1215/43

0231/4;)

0202/43

0382/43

USTpS

"'3\'.12/43

0144/43

0166/4J

0289/43

0J18/43

UST3U

06b~/42

kl676/42

UST4~

~22k1/43

0241/43

UST41

~2J2/4J

"'222/43

UST5,,-,

~lJ7/43

~150/43

UST6D

0654/42
034bl43

fr3348/42
\'.1393/43

USTAfr3

0251/42

0244/42

USTAl

02710/42

026"'/42

USTA2

0k:l2 9 /43

10025/43

USTA4

\'.1297/42

0368/42

USTAf)

~369/42

03"''''/42

USTAb

03 8 0/42

045 9 /42

USTA!

0386/42

1tl439/42

USTA8

"'3 89/ 42

0.)95/42

USTA9

"'396/42

~392/42

UST~P

1tl587/42

1tl393/42

USTBR

k135~/43

USTCK

USTD~

~--

CROSS.HEfERE.NCa:: SYM80L TAtH.E
"'263/43

k1224/4J

0362/42

0J""/42

0434/42

CROSS'!!REFtRENCE SYMBOl.. TA81..E

"""
USTOU

k)413/4J

0123/43

USTE.R

0603/ 4 2

i14~3/42

U5TIO

0417/43

0036/43

USTL.&"

02 87 / 4 3

00 4 4/43

USTMA

VJ24J/05

~209/05

USTMT

11)382/22

"'243/11)'

USTOC

063 0 / 4 2

0260/42

USTQV

0600/42

0495/42

USTR¥

07",3/ 4 2
1c:H 72/43

03 66 /42
.,22 8 /4J

USTSl

0390/43

11)409/43

USTSO

16599/42

l()e65/42

UST8H

1133 8 /43

UST55
USTSl

11)366/43

0381/43

0",57/43

00 7 1/43

iU 11/43

0298/43

0276/42

0J26/42

11)641/42

0010/ 4 J

0438/42
0214/43

0 4 52/42
II'2 79 /4J

i154rU 4 2

0111/42

IIa21/43

0326/43

(6 344 /

43

163511/43

0351/43

0387/43

0271/43

0276/43

11)281/43

0411/43

~612/42

1d33J/42
061 3 / 4 2
0051143
11210 9 / 4 3

02 f5 5/42
0349/42
061 5 /42
",O60/43
1i)246/43

02 65 / 4 2
",J111)/42
0619/42
0095/43
fr'J264/43

0283/ 4 2
0 4 0 6 /42
0622/42
0130/43
1tJ341/43

030 9 / 4 2
1d461/42
0623/42
IU52/ 4 3
0406/43

031 6 / 4 2
1i)532/42
0020/ 4 3

0326,42
0 555 /42
,,,-,30/43

IH87/43

020~/43

USTsV

", 69 1/ 4 2
0170/43

03 64 / 4 2
022 6 /43

10 4 36/42
0212/43

0 45 0/ 4 2
'd271/43

053 8 / 42

0699/42

011 5 / 4 3

USTsw

0419/43

ItH60/43

USTT6

0415/43

"'136/43

USTTt.

0 4 1°/ 43

01 48 / 4 3

U5TTZ

0571c)/42

0390/42

04104/42

11)419/42

11'581/42

0582/42

USTUS

0420/43

1tJ178/4J

UTDNM

0216/32

0187/32

0194/32

021tJ0/32

0205/32

0226/32

UTEMP

02 6 1/02
0019/21

0 4 J4/1t)2

0 4 0 6 /20
0025/21

0 4 0 8 /20
1tJ027/21

0~16/2'"

",475/20

"'02~/21

1It.,31/21

006J/09

0039/11)9

0057/09

11)144/09

II)1!5e/1tJ9

VAL.10

0117/43

0 48 !)/20

CRUSS",REFfRENCE. SYMBOL

"~"~,,l

--

VALll

0065/k19

~023/1(.19

VAL.12

0068/169

1t)011/~9

VAL13

0161/09

10005/09

VAL.l4

0166/ro9

0414/06

VALl5

0174/09

~419/t'l6

VAL.l6

0199/id9

0211/109

VAI.17

,,201/09

0177/109

VALlS

0212/09

0160/0"9

VAL.19

0235/09

0230/09

VAL.20

/.1231/09

1d~22/,,9

VAL.ll

10446/06

0441/106

VAL51

100810/09

0014/09

VAL52

0128/09
10121/09

0",91/09

VAL53

0154/169

0157/09

VAL.98

0253/09

10244/",9

VAL99

10241/09

0410/08

0248/~2

0335/02
0451/34
10466/34
10491'0/34

0371/07
04t)7/J4

kU27/it)9

04J3/id8
01 6 10 / 1(.19

0 438 /08
0103 / 0 9

0452/08
I(.Il 0 7/ta 9

VAL.U 2

0435/08

10447/08

VALUJ

04;,9/168

kt42tt/fd8

VAL.U4

045blft18

0417/1/:)8

VAL.U5

"h.1ld4/09

104221166

VAL.U6

1d026/k19

00071rog

VAL.Ul

0f.1J2/1tl9

101019/(09

VAL.UH

0~47/09

ldf.1b1/09

VAL.Tti

0445/34
1046 7 /34
\!)488/34

VAL.Ul

~408/06

TA~L.[

0228/09

01001kH~

10105/09

0UJ9/09

1/J116/09

10118/09

0436/34

~481/34

0334/09
",461/J4
1C14ts3/34

10492/34

~494/34

10464/.14
1049b/34

0443/34
0464/34
1(.1486/34
0491134

0444/34
0466/34
046 7 /34
10499/34

0456/~8

(0053/09

102010 / 10 9

~205/09

1.1072/169
1d24fd/1d 9

0247/09

0"'62/09

~46J/J4

"""

CROSS. REFERENCE SYMBOl. TAeL..E

yAL.U9

00~4/09

0046/09

VAL.Ut;

0402/08

0073/07

VAR01

0427/05

0410/05

VARU2

0431/05

0418/05

VARaJ

0440/05

0445/05

VARU4

0419/05

VAROP

0022/02
0626/103

0~6V/07

10372/07

0403/1t)5

04115/05

0407/05

11:1426/05

0359/02
0208/04
0370/05
0433/105

0380/02
0427/04
0400/101)
0441/05
,

VJ343/0J
10 4 58/04
104101/05

0377/03
liH60/05
10408/1£'5

1ti31J/05
0422/05

11552/03
0334/165
042J/165

VCHK

0176/02
\')1 98 /17

0337/102
0387/17

10408/02
02 9 3/18

0430/02
10 46 0/20

0491/02

0102/17

0186/17

VCHKl

~291/18

0305/18

10307/18

VCHK2

0306/18

0298/18

VL.0

,,458/02

0077/12

VI.FI0

0070/12

0065/12

VL.FI1

0072/12

0069/12

VL.F12

0088/12

0099/12

VL.FIJ

0896/12

i086/12

VL.FIL.

rU8 6 /02
004;'/17

0017/10

0370/UI

16010/11

0070/12

0~71/12

0~95/12

VLF'-li

0250/02
10242/09

034 6 /07
0255/09

0306/08

tt)426/08

0009/09

0161/09

0175/09

VT0

0431/02
0a 4 11/1 8

~H75/18

0223/18
02 9 1/1 8

023 8 /18

~343/105

0518/03

01692/12

0218/18

"2 86 /1 8

"a 81 118

0221/18
(42 8 8/1 8

0222/18
029"/1 8

0362/02
0073/09
0174/09

i~J5/08

04~1108

fiH"21/0~

0083/ 09
11)188/11)9

00166/09
0087/09
1iJ199/09

01115/09

0080/09
0181/09

0122/[69

012fi/ 09

0052/09
015 9 /09

VTMP2

0363/ft>2
0146/09

0008/09
1IJ166/09

0026/09

0k142/1t'9

0050/09

0169J/09

0131/09

VTMP3

11'364/02
00"4/0 9
0078/09

0017/09
011J35/0 9
0085/09

,,1429/09
0036/09
0089/09

00"0/08
00 4 3/0 9
011'91/09

.,031/09
00 18 /0 9
0098/09

00;'2/09
.,0 76 /0 9
iiH1IJ2/09

0033/09
01/J 77 /V)9
1111 10/09

VTMP1

~207/09

,.,.""

CROSS.REFE.RENCl:. S'1MBOl. TA8l.f.
~1ij3/09

ItH93/kt 9

021 3 /0 9

0221r.i/0 9

1I)11d6/09

10119/",9

0123/09

0124/",9

0400/10

0411d/16

kJ455/16

1648"'/16

1I)4~8/09

~265/10

kl008/1 5

01d 8 4/10

k:l2ijkl/1ti1
0122/1 6

tt)295/10
0609/20

0259/11
0045/21

fd212/12
0302/22

~1"3/1d3

0205/1 5
10047/28

0482/15
0074/28
1Q283/31

11'350/16
0240/3 0
1(1362/31
1IJ271d/32
0181/35
16262/36
10142/37
02&5/37
0222/38
11)324/39
0802/39
0261/ 4 4

0049/26
026"-1/30
0361131
0387132
1/lf":»59/J5
1t)26 9 /J6
ItU 54/37
0291/37
0310/38
10426/39
082 8 /39
0351/44

1(137 6 /44
0646/ 4 5

0051/103
01 971 2 6
1tJ321/30
0421/31
10111J 4 /33
1d053/36
IOJ35/36
0210/37
tt)307/37
1d018/39
0673/39
0377/41
10,391/44
1IJ680/45

~257/49

~J17/49

04J5/4~

Iihi)2J/5~

0311/f":»0 0,318/~0
Ic)140/51 10238/01
0415/51 10545/~1
IdJ31/52 0382/52
0J11/54 IICH 9/b4
040ti/f":»5 0075/56
0283/56 . 1a2ij4/~6
0287/57 1d30 4 / 01
1r:)632/57 10640/57
0201/ 58 10272/58
1d5bo/58

103Jft)/00
10276/51

0334/60
k'l339/c)1

0602/~H

10103/b~

~232/02

~282/52

",452/52
0111/55
01J1/06
IOJ11/56
11.131 9 / 57
10669/57
10305/56

10095/53
1t12471b b
11.1227/56
16497/56
11.1332/57
1IJ1084/58

10210/5J
11261/55
10244/56

liH80154
.2ifd/5b
0201/56
lIB 99/57
0580/ 51
tU510/58
104 90 /58

0111/0 9

0113/~9

~220/~9

0112/j09
0229/,,9

11!1231/09

YTMP4

IdJ60/02

"'040/09

~058/1d9

VTMPO

1I)36o/1U2

1r.i082 111)9

kl128/1r.i9

WCS

0155

0421/45

027kJ/46

WERRA

0rd0S/15

1fJ226/10

WERHS

0536
01°2/14
1(1 Jtt) 7 122

WORO

k:l05~

°1° 8/ 2 0
1.1282/30
1(1401tl/31
Ilh')62/33
059 4 /35
1(12710/36
1(117 4 /37
13303/37
1d359/38
0570/39
13211t)/~1

047"'127
02fd1/31
0478/31
kl373/J3
1010 5 /36
10345/36
0215/37
10436/37
10111/39
0/4,3/39
101076/42
039ij/44
01t)7ft)/40

~205/Jl

1/l1022132
1d,388/3J
k1219/36
10111)6/37
162671"37
10505/37
"'116/39
1(1782/39
101"'1/42

1I)25~/32

1d333/34
0247/36
0120/37
10282/37
lOi73/38
10205/39
~78~/39

101tj77/44

103~9144

1d~94/44

~621/4e

0628/4~

106ti7/~8

1a728/48
10116/50·
11)43,3/50
1d380/51

0024/49
14292/ 0 0
0064/51
03911)/51

0116149

03~9/58

.,10J/51

10 552/57
111121/58
0477/58

VJ41H/15

~R6Ul

04~1t)/15

WR6U2

0500/15 ·10469/15

~R8U4

0442/15

0453/15

WRtW5

0461d/15

11)466/10

WRI:W6

1f.1467/15

10443/15

WRjij7

0471/15

10437/15

0462/15

0446/1~

10448/15

,-.

!

0308/~0
1t)1tJ91/~1

1t)40 6 1 !H
0299/ 0 2
102611 5 4
,-"U 105
0276/56
1d22 8 /07
10626/57
01511)/56
It)til11)/56

"""

WRtJUF

CROSS.REFERENCE SYMBOl.. TAt.iL.E
0196/02
"433/15

i428/02
i502/15

0408/02

WSP

0540/33

"4U.l/45

02159/48

WTP

0156

01i8/l0

0545/J~

X

062 9 /28

0656/28

0659/28

X2056

0516/37

0125/37

IUei/l7

0163/;)7

X2TMP

0262/02
"'27 4 /20

0425/02
0275/20

0426/02

XCOM5

06J5/~8

fa328/29

XCRl..F

0 68 (Cl/42
0 465 / 4 2
0064/43
01 56 / 4 3
,02 45 /43

0281/ 4 2
k}l5J7/42
lu,81lJ143
IrH69/43
0250143

02 e l/42
051541 4 2
1"214;)

l,aJ/18

"~82/35

0fH2/11

~19J/15

0421/115

0187/20

0205/20

0266/20

026 8 /20

(ClJ 6 3/ 42
(Cl687/42

0314/42

~099/4~

~114/4J

0415/42
1IJ050/ 4 3
0129/43
~213/43

1 449 / 4 2
"05 9 /43
0151/43
14225/43

0249/12

16051/10
0208/10
0213/11
0250/12

0060/10
0299/10
0247/11
0252/12

0318/17

0015/18

0461/11

IU85/4;)

IU 94 /43

03J3/4J

~4U:tl4J

0i2~/4J

liI204/43

XEC

0J01/0~

XECi

il28/1e

I~U5/1e

XEClill

0316/09

0310/(c)9

XfCl

039 7 /09

0317
0171/10
0lk,4/11
046 6 /11
0254/12

0'10/10
0162/10
IUll/11
0539/11
0263/12

.:)159/11
0248/12
0269/12

0175/12

0048/17
022 6 /2e

1-'158/17

~162/17

~229/25

0232/2~

f606~/10

16385/10
03 93 /11
0253/12

XEC1 A 0317
02 37 /1&$

0214/~6

XEC2

0334/09

1lI362/09

XECJ

0343/09

1lI241

XEC31

1lI241

0447/09

XEC4

0363/09

0335/",9

XEC5

0420/09

0242

XEC51

0242

0342/09

XEC6

0442/09

0436/09

XfC7

0446/09

0426/09

XEC8

0380/09

1lI373/09

03:59/09

riJI22/11
~192/10

IIll/10
"196/10
IU14/11

,.,.,.,.,..

CROSS .. REfERE.NCE. SYMBOl.. TABI..E

XEC9

Pl371/09

0365/1()9

XECBR

062f)tl1

0414/~9

XE.CT~

0247/12

0625/11

XPNCH

13223/21

"'112/31

XPUN

0~34/J1

.,5k12/29

XTEMP

13259/02
03"'7/20
10348/210

1d415/~2

Idld13/21
0112/21

k'308/21d
10356/20
10469/21()
k3016/21
10118/21

fc1416/02
03°9/20
0376/210
0472/210
IrH:121d/21
10126/21

I0474/2ta
I()0J0/21
",136/21

0288/20
IOJ19/20
10405/20
k':I489/20
10033/21
fU37/21

YEAR

1d091

k1054/20

",117132

01~3/32

0089/33

YTEMP

026~/02

0433/102
0417120
10482/20
",120/21

0357/20
10429/20
k1491/21O
0122/21

",359/20
10433/20
1i}492/21O
10125/21

0367/20
",461/20
",495/20
10128/21

0178/(03

10179/03

10682/32

1d4~6/20

10378/20
1(1481/20
1d117/21

fc1432/!a2
10311/20
~396/21O

0299/2'"
03J5/20
10422/20
~49J/20

010D/21
10166/21

0368/20
10471/20
10010/21
"'130/21

0300/20

Ic'J.7/20
042712v')
01011/21
0111/21
1011~121

0374/20
1347 8 /20
1131.141/21
0176/21

tal~8/21

. ""'"------

Z999

0381/39

0247/39

ZOISC

O169/03

10118

ZERSL

0438/32

01"91.i~,

'~,'" I

l!t1"t(1 ,:~{ ••

-~.

.:I~1Iil



File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.3
Linearized                      : No
XMP Toolkit                     : Adobe XMP Core 4.2.1-c043 52.372728, 2009/01/18-15:56:37
Create Date                     : 1999:10:31 01:40:28Z
Creator Tool                    : imagepdf
Modify Date                     : 2009:08:17 11:17:57-07:00
Metadata Date                   : 2009:08:17 11:17:57-07:00
Producer                        : Adobe Acrobat 9.13 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:144721a4-23c4-4b06-97f6-cb245f5750b6
Instance ID                     : uuid:6c0ce0a9-e985-45c7-a27e-7bd4be52ca81
Page Mode                       : UseOutlines
Page Count                      : 890
Creator                         : imagepdf