Digital PDFs

XX-918B1-70

2008

55 pages

Original

3.3MB

Document:	22 MAGTAP
Order Number:	XX-918B1-70
Revision:
Pages:	55
Original Filename:	http://bitsavers.org/pdf/dec/pdp15/diag/MAINDEC-15-DAQAA-A-LA_System_Exerciser/22_MAGTAP.pdf

OCR Text

PAGE

IMAGNETIC TAPE EXERCISER MODULE AVAILABLE IN 2 SIZES
IMAGTAP OR MAGTPS (4000 OR 400 WORD BUFFERS)
IHEV~ DATE - 4/15/71 . - - (1)

'1 vl 4 v) ~}~l

A
~1QHl v} 10 A
00~000 A
r~ (1 ~~ Ii) 2 ({1 A

7~'7341

7l,17321

7~)7301

707322
7v,17324

7~)7326

707352

o
()

o
o
o

A
A
A
A
A
A
A

7(17312 A

()

",cBREl.

MAGTAP SRC

7073!Ll4 A
7~')7702

707764 A
0v.H10tZl R 603005 A

/ASSEMBL.Y PARAMETERS-------8UFSIZ=4Q1vJ0
NUMriAN =10

NUMPAR;:20
MTSF=707341
MTCR=707321
MTTR=7073~)1

MTAF=707322
MTCM=707324
t'Hl.C=707326
MTRS;:707352
MTRC=707312
MTGO=70Y304
EBA=707764
UODSW
61!l30Q15
(tJ
(1

,DSA

MSERV

• [)S A

MINIT
"MAGTAP"

.SIXBT

R 150107 A
0[~(ij07 R 24(1120 A
~HH110 R 00(rH1~11 A
0f,1011 R
A

~H1006

.BL.OCK

0kjQ126
(i1[1(127
0VJ0;J0

00031

INUMBER OF HAND~ER PARAMETERS~
ISKIP ON MAG, TAPE FLAG.
ISKIP ON CONTROLLER READY,
15KIP ON TRANSPORT READY.
IC~EAR STATUS AND COMMAND REGS.
lOR AC TO CUMMAND REG.
/~OAD AC TO COMMAND REG,
/READ STATUS REGISTER
IREAD COMMAND REGISTER
/SET GO FLIP~FLOP IN CONTRO~LER

o
o
o

EE~1=707702

R r"~1000~) A
00(102 R '10 (!H~ k) ~J A
0{1V,)~)3 R ~00"'00 A
00004 R t<l003~ 1 R
(tH~005 R 0tiHiJ 2~J 5 R

00~24
~H)025

TSTRUN=20v.H~

0~Hd01

kH1 Vl 20 R (,100000 A
00021 R 'i10(100~j A
0f1022 R mCtHH100 A
~H!H123 R 00 vH1 el~' A

/SIZE OF BUFFERS. ****** (400 FOR MAGTPS)
/NUMBER OF HANDLERS AL~OWED~

SYSERR

0
~J

ERCODE

0
0
10
0

R 000vH30 A
R ~HHH1(1v) A
R 00(~0~HJ A
R QH.10(1~J ~) A
R r:H1~000 A
R r~0tiH~00 A

V,)

0
0
0

IPATTERN WORD FOR PARAMETER MODE
IRECORD LENGTH FOR PARAMETER MODE
/RUN ~ENGTH. 0=2000
/SERVICE ENTRANCE
IINITIATION ENTRANCE
/PROGRAM TITLE ****** (MAGTPS)

o
o

IMASK FOR CHAIN MODE

IERROR IND. TO MON.,=~l FIRST
/WORD COUNT FOR DATA WORDS.
/ERROR CODE,
IHANDLER NO.

ER,,=~2

SECOND ER.

ICOM~'AND

/STATUS RETURN
ISTARTING we
/FINAL. we
I$TARTING CA
IFINAL. CA

IMAGNETIC TAPE SySTEMS TEST.
ITEST 0---RUN ALL AVAILABLE HANDLERS SELECTING HANDLERS AND
I
OPERATIONS ON A RANDOM 8ASIS.
ITEST l---WRITE 1~0,1~~0 WORD RECORDS, EACH RECORD A~L ONES, DENSITY
I
8~~ BPI, 000 PARITY~ THEN REWIND AND REPEAT.
ITEST 2-"-PERFORM TEST 1, AFTER WRITE SEQUENCE AND REWIND, READ
I
ALL R~CORDS, REWIND, AND REPEAT READ CYCLE,
ITEST 3---SIMULATEP COpy OPERATION, WRlrE 1000 RECORDS OF RANDOM LENGTH MADE
I
UP OF RANDOM DATA, REWIND AND COpy DATA FROM ONE HAND~ER TO

o
o

o
o
o
o

()

(
\
' .......'/

PAGE

~1Ar.;TAP

SRC

THE NEXT, AT END OF FILE REWIND BOTH TAPES AND REPEAT.
fjf::JECT

()

()
I

()

o
o
o
o

PAGE

ICOMMAND SKELETON TABt"E
R r;HH1 Q){OQ1 A
vH1033 R V101011.l~ A
0v,H134 R 002400 A

~1V,10 32

~1vHJ35

o
o
o

o
o

R f~HHH1~j~1 A

0t1rt136 R ~044~'0 A
00037 R (10540kl A
00040 R V106400 A

R 007 4~)0
0v.l1il42 R 0144@~)
(iH~~j43 R (H10400
0t1044 R (ilvl1400

A
A
A
A

(iHH~032

~H1041

I
NOOP
RE\~IND

READ
RPCOMP
WRITE
WRTEOF
SPCFWD
SPCREV
~~ RT EXT

(lH)00~)Cij

0010V)ill
vH124(lJk)
0
t~t14400
r1~540VJ

00640¥J
~.H17 401!1

014400

NOOPl

0004(-10

REWNOl

001400

o
o

MAGTAP SRC

R rH}0~H10 A
00046 R 112)(100~ A
~)f.~047 R 211H:H100 A
~'0.05ti1 R 300~J00 A
00("51 R 400.eH'H1 A
0vH~52 R 5~0000 A
~0053 R 6VHH10fd A
~.)!!J '" 0 4 R 70~HH!H1 A
(iJ0~45

Cf1DSKL=NOOP
I

~iANON~1

r1~1000f1j

1~10~H!J kl

.. CONTAINS CONMAND CODE FOR EACti COr1MAND •
I WI T~i INTERRUPT ENAf3L.E BIT SET.
INO OP CONMANO .. (0)
IRE~IJINO

COMr~1AND.

( 1)

IREAD DATA COMMAND. (2)
IREAD ANP COMPARE COMt1AND. (3)
I~~RITE COM~lANO , (4)
IWRITE EOF COMMAND. (5)
/SPACE FORWARD CO~lMAND , (6)
ISPACE REVEf~SE COMMAND,. (7)
IWRITE EXTENDED CMD.

4~HHiJ00

5vH1000

600000

7vJ~j0~10

(I)

R
A
R

C!~READ

CKSR2

CKRDC~l

R
R
R

CKWTEF
CKSPFD
CKSPBK

CK¥'RT

CKSR4

Ct<SR5
CKSR6
CKSR7

C1\e10055 R

CHKTA6=CKNOOP
"E ..JECT

3001?HH1

CKNUOP
CKRWNO

IHANDLER NOS .. POSITIONED ~-OR DIRECT
IINSERTION IN COMMANDS.

ICHECK ROUTINE POINTERS ASSOCIATED WITH EACH CO~1MAND ..
A

12H1 t.15 5 R 0(1~Hj00
00056 R Vl0 0~) 0 (1
0 0j{ij57 R 000666
0~)060 R (;HHHa~)0
00061 R OH11 kH10
(lHa062 R OH:11v)15
0\1063 R 01 (11 VJ2 4
0lfH164 R (1~t027

IEQUATE FOR START OF COMMANl) TABLE.

2'10000

/CHECK NO~OP (0)
ICHECK REWIN[) ( 1)
ICHECK READ DATA (2)
ICHECK READ CO~lPARE (3)
ICHECK WRITE DATA (4)
ICHECK WRITE t:OF (5)
ICHECK SPACE FORWARD (6)
ICHECK SPACE BACKWARD. (7)
IE(~UATE

FOR START OF CHECK TAB,

o
o
o

o
o

()

PAGE

MAGTAP SRC
ITHIS
I

00~)65
kj0~J66

R 000000 A.
R ft1li)(1t.10vJ A

o
o

o
o
o

o
o

CUR HAN

HANP~ER

NUMBERS.
ITHIS HANDL.ER.
ICURRENT HAND~ER.

IPOINTER ~OCATIONS FOR VARIOUS PARAMETERS AND CONSTANTS STORED IN OPRTAB.
I

0~~(167

R 0f~HH10~J A

C~'D

r~0(~0l~el

Ql v]lt) 7 '1 R
A
0k1071 R (JOHHfHHJ A

0(~~72

CHKPTR
CNTR
CNTW
DENPAR

R V)t!10000 A
01~H173 R 01~H~000 A

0~1074

R ~(il00~i0 A
0\1075 R O1~H~ fiHnd A
00076 R ~)H!lQHHH1 A
0(1077 R o~J f/H~ 0 Q) A
1i.101~'0 R C1v.HH1vH1 A
yH1101 R r;H!10~HlJ0 A
0VJ U12 R ofrHHll 0. 0 A
0~1103 R Q0fi100vJ A
~H11 ~4 R vHJ~000 A
0l~105 R o(!HH100 A
001(16 R ii1(iJ000vl A

NONSEN

HANNUM

cr-l[)CNT

EOFCNT
RDCNT
\~RTCNT

SPFCNT
SPBCNT

ICURRENT COMMAND.
ICURRENT AOR. USED.
IWORD COUNT USEDw
IPOINTER TO OPER. CHECK ROUTINE.
ICURRENT POSITION COUNTER"
INO, of RECORDS WRITTEN COUNTER.
/CURRENT DENSITY AND PARITY.
INONSENSE STATUS BITS FOR THIS eMD
IHAND~ER NUMBER FOR INSERTION IN CMD~
ICOMt1ANO COUNT"
lEND OF FILE COUNT.
IREAD COUNT.
/WRITE COUNT.
ISPACE FORWARD COUNT.
ISPACE BACKWARD COUNT,

~00067

PARTAt3=CMO
/

/SAVE STURAGE CEL~S FOR END OF OPERATION

001107 R ~~000Y.i0 A
R riH:l00(~~1 A
00111 R (~000i1Vj A
(10112 R ",OH~H1vH'1 A
(10113 R ~00033 A
~H111 eI

/
SVCMI)

SVSTAT

SVCA
sv~~c

0
0

00114 R 000032 A

SYSCA
SYSWC

33
32

ISAVE FINAl. CAlli
ISAVE FINAL. we"
IPOINTERS FOR SYSTEM CA
lAND we

l~yj115

I
DISTSW

ITEST DISTRIBUTION SW. AT SERVICE ENTRANCE.

R f~00~'0l1 A

"EJECT

o
o
o
o

o
o

THStiAN

AND NEXT

o
o

HAND~ER

o
o
o
o

()

PAGE

MAGT'AP SRC

/NONSENSE STATUS BITS ASSOCIATED WITH EACH COMMAND.
I

()

00116 R 0376(iHj A

~3760k)

~)0120

R 302vHJ0 A

302v]~Hj

(10121

R r~HH?)000

~0122
0012~i

R 313Vt00 A

o
o

00125 R

2(174~0

00126 R rJl0(1j4~0 A
~)0127

R r.HH)2!~0 A
00130 R ~-10020VJ A

R 377777
R 577777
(1)0133 R 677777
~10134 R 737777
00135 R 757777

A
A
A
A
A

o
o
o

400
20tj

SPBCON

20~'

IWRITE EOr'

0~J137
VJ~j14~'

ISPACE fORWARD
ISPACE BAC~q~ARD,

IMASK TABL.E USED FOR SETTING UP STATUS MASKS FOR SELECTABLE HANDLERS,

MSKTAB

18IT 0 CORRESPONDS TO HANDLER
IZERO WHILE BIT 7 CORRESPONDS
ITO HANDLE SEVEN.
INOTE: THAT MASK TAB~E IS IN
ICOMPLEMENTARY FORM.

377777

577777

677777
737777
757777
767777
773777

00136 R 767777 A
R 773777 A
R 775777 A

775777

~04IfH)0

0~142

R 002[,100 A

00144 R 00400{!J A

~10151

RECTAB

BUFSIZ/2
BUFSIZ/4
BLJF"SIZ/10
BLJFSIZ/20
ITRACK TABLE FOR SEVEN AND NINE TRACK

TRKTAB
I

~B~OCK

00161 R rn00(1~0 A

ACTIVE

0(1162 R 777777 A
0\~j 163 R 774000 A

ANRW[)

LAvJ

MAXt3LJF

~tHJFSIZ

011J164 R

SELHAN

15PECIA~

TAB~E

~6LOCK

SAVERR

'.BLOCK
"
~EJECT

TRANSPO~TSw

10=NOT ACTIVE, l=ACTIVE
10=REWINOING, l=NOT REWINDING
FOR DETERMINING WHICH HANDLERS ARE ACTUALLY
10

ISECOND ERROR SAVE TABLE.

00175 R

I
0~ 174 R ~0~H1(ij0

BUFSIZ
BIJFSIZ/2
BLJFSIZ/4
BUr-SIZ/l

/STATUS WORDS FOR ESTABLISHING CURRENT STATUS OF HANDLERS.
IRECORD L~NGTH TAB~E

0~1141

EOFCON
SPreON
I

~1~11 J 1
0~132

00145 R ~020{11~) A
(lH1146 R 0010k10 A
0l!1147 R 0004kll?l A
~0150 R ~0vJ2l1j0 A

o
o

/CONSTANTS FOR COMMAND DISTRIBUTIONS.

3VJ340~

31tJ340vJ
207400

00143 R ~vl1000 A

313(10C:1

R 303400 A
f!H1124 R 30340~) A

If OR NOOP(VJ)
IFOR RE\~ I NO ( 1 )
IFOR REAO(2)
IFOR REA() . . COMPARE (3)
IFOR ~~RITE(4)
IFOR WRITE EOF(5)
If OR SPACE FOR¥IARO (6)
IFOR SPACE REVERSE(7)

V,)376~1~j

00117 R 1~376~j~1 A

o
o

NONTAB

AVAILABLE~

o
o

o
o
o

o
o
()

o
o

o
o
o

o
o

PAGE

MAGTAP SRC

1***************************************************** **************
/MAr.;NETIC TAPE INITIALIZATION ROUTINE.
I
v'02t15 R (rHHHHH) A
00206 R 7~17764 A
0V,12k17 R 7~}7702 A
0021~1 R 20CH~01 R
(10211 R V147460 R
00212 R 773771 A
~Hj213

lili~214

UOOSW'fol

I..AC
DAC

PATTEN#

LAW
TAD

-BUFSIZ-l
UODSW+2

MINITl

SMA

JMP

A
R

CL.C

TAU

UODSvl+2

CMA
DAC
SPA

RECLEN#

R
A
R

A
R 600221 R
R

MINITl

Jf1P

.+3

LAW
JMP
LAC

1IfIBUFSIZ
.. ,..4

.ANO

A
R
A
R

SZA

.+4
... TSTRUN
RANL.EN#

,+4

R
R

,JMP
Ct1A
TAD
f)AC

RANLEN

LAC

11INIT

R
R
R

!lAC

MSERV

OZM

DSTSW1#

DZM

MOVERR#
APIFLG#
SYSERR
ERCODE-l

DLr~

DZM
DZM

.EJECT

(377777)

JMP

DAC

UODSW+3

~Avl

R
A

EEM

3400~}2

00226 R 2~HJ~H13
0vl227 R 507520
0023~1 R 7402010
0vJ231 R 6!1.l\~235
0~J232 R 776000
00233 R 047465
00234 R 6~)~240
0k1235 R 740001
00236 R 347521
00237 R J'~47465
00240 R 2~H120.5
0!!1241 R 0403~jl
~H4242 R 147442
00243 R 147457
00244 R 147416
00245 R 140V12~
00246 R I. 40~J21
(10247 R 147441

r.1

E8A

R
R 7401vH1 A

0!t)215 R 60£11224
vHJ216 R 7 50k)v) 1
00217 R 340002
00220 R 740001
li1kl221 R ~47466
0~j222 R 7411ftHil
00223 R 60"1226
00224 R 774000
0~l225

f1INIT

o
o

C1 )

ISET L. I I~K IN t1SERV IN CASE
IOF ERROR.

ICLEAR SECOND ERROR FI.,AG.
/CLEAR API FLAG.
ICLEAR SYSERR.

DONE#

()

.......

;..... )

PAGE
(j

0
()

C)
0

C)
0
()
0

MAGTAP SRC

~(d200

SVSTAT

DZt1

ACTIVE

IRESET ACTIVE, ANO

Jf1S
Jf1S

RESt3UF

IRE vi I NOM ASK S •

J~1S

ER01
CLOfTS

DZM

CL.C
DAC

BUFGEN

ANRWD

LAC

UOOSW

AND

(100000)

SNA

JMP
LAC

RANINT+l

AND
SAl)

(3VJ0
(0)

JMP

RANINT+l

SAD

(100)

JMP

TEST1tl

SAO

(200)

JMP

TEST2+1

SAO

(300)

JMP

Tt:ST~S+l

JI1P

TERMIN

.EJECT

IGET

uoosw FOR TEST NO.

UODSW

I
00300 R 6'10367 R

IHESET MAG TAPE F~AGS.
ICHECK CONTROLLER RUY.
INOT REAOY, TERMINATE.
IREADY, C~EAR HANDLER TABLE.
ICL.EAR STATUS

f.1TAF
«'ITeR
J 11P

R 707322 A
0Vl251 R 707321 A
0kl252 R 6v.12646 R
(/)0253 R 10~627 R
00254 R 14~110 R
00255 R 14(11161 R
k)t1256 R 102617 R
~10257 R 1121 26 ~j 1 R
00260 R 75'1001 A
QH1261 R 11140162 R
00262 R 20(1)000 R
00263 R 507522 R
0vl264 R 741200 A
~H1265 R 60~'457 R
0vJ266 R 2~HH100 R
0~j267 R 50752~i R
0vJ27~ R 547524 R
00271 R 600457 R
~j(1272 R 547525 R
~H~273 R 602317 R
v.10274 R 547526 R
00275 R 602324 R
00276 R 547523 R
~H1277 R 602372 R

ITEST ZERO, RANDUM HANDLER
ITEST"
ITEST ONE, WRITE TEST,
ITEST TWO, WRITE THEN READ

ITEST.

ITEST 3, COpy

TEST~

o
o

()

o
o
()

PAGE

~lAGTAP

SRC

1***************************************************** ******************
ISERVICE ENTRANCE FOR MAGNETIC TAPE EXERCISER.

0030l R {iH~~1l1~tt~ A
QH~3t~2 R 707764 A
00303 R 7077t12 A
(.1(13k14 R 10f/.13~7 R

00305 R 120115 R

00306 R 600356 R

10
0(Jj307 R r;J00Q.100 A

1
r1SERV

EBA
EEr1

ITEST FL.AGS
ITEST DISTRIBUTION SWITCH.
OISTsw
lEND OPERATION, EXIT.
ENDOPR
EXIT
1***************************************************** ******************
ITEST FL.AGS FOR TYPE OF ENTHV~
JMS
JMS*
JMP

I
TS'TFl.G

00310 R ~47415 R
00311 R 707312 A
v.H1312 R Vl40107 R
00313 R 707~52 A
00314 R ~40110 R

o
o

o
o
o
o
o

ACSAVE#

ISAVE AC INCASE API IS ON.

f1TRC
OAC

svcr~o

~1TR5

DAC
L.AC
SNA
Jf1P

00316 I~ 741200 A
00317 R 600332 R

SVSTAT

T5Tf.l

ICHECK SYSERR FLAG. IF ZERO
IMIGHT BE AN ARTIfICIAL ENTRY.
IZER.O, SO CHECK MOVE FLAG.

(400000)

INOT ZERO CHECK API.

TSTF.2

SYSERR

I
~10320

R 207527 R

00321 R 705501
0liJ 322 R 7 4 lltHij 0
0~323 R 6~0344
0~324 R 147416
0~325 R 707341
00326 R 600353

TSTF lt 4

LAC
SPI

R
R

SKP
JI'1P
DZM
WT SF

JMP
JMS

00327 R 100653 R

00332 R 207457 R

Jt1P*

TSTFL.G

IAPI IS ON, GO SET API FLAG~
IAPI NOT ON, C~EAR API F~AG.
ICHECK MAG. TAPE FLAG
INOT ON, EXIT, NOT MAG. TAP~.
ION, SAVE STATUS, we AND CA FROM
IPREVIOUS OPERa C~EAR MAG TAPE FLAGS.
I GO PROC. THIS INTERRUPT.

LAC

MOVERR

ICHECK MOVE ERROR FLAG.
ION RETURN MOVE ERROR FROM ERROR SAVE THEN,

APIFL,.G

TSTF.3
SAVEOP

~'T AF

Ii.HJ330 R 707322 A
00331 R 620307 R
I

TSTF.l

0"'333 R 74~200 A

SZA

103172 R

JMS

MOVPUT

l.AC

DSTS~11

00334 R

I
(l)vJ335 R 207442 R
00336 R 740200 A

JMP
LAC

00341 R 74V)2~H1 A
00342 R 603154 R

SZA

~-'0343

JrfiP

JMP

R 60~320 R

BREAKl
DONE

TSTf.4
I ~1 AGTAP E F I... AG5 •

TSTF. 2

LA~·J

DAC

""1

APIFLG

~1TSF

JMP
JMS

ER16
SAVEOP

ISET API FLAG

ICHECK MAG. TAPE FLAG
IAPI IS ON BUT MAG, TAPE FLAG OFF,

~lT AF

JMP*

TSTFLG

o
o

ION, GO PROC, INTERRUPT.

o
01

o
o

o
o
o

DON .. 1

0Vl344 R 777777 A
00345 R 047416 R
00346 R 707341 A
vH)~i47 R 6~H~663 R
0~350 R 1~0653 R
0k}351 R 7~)7322 A

SZA

00337 R 600451 R
00340 R 207441 R

00302 R 62c1J3C?l7 R

TSTF-'LG

o
DAC

00315 R 200020 R

o
o
o
o
o

(-~'"

.-.J
PAGE

(-J

MAGTAP SRC
"EJECT

o
0

0
0

()

,,.~~"~

1......)

PAGE

~'AGT AP SRC

00303 R 75\?1~j01 A
~H~354 R 7Q,3344 A
(1'1)355 R 6203~1 R
0ta356 R

~10357

0vl360

00361

0
0

QH?l362
00363

yHl371

00372
0;;.1373

r1~J374
0~l375

C;}0377

004102

0v1376
0t~4(d0

~H14111
~104Vj3

00404

0
0
0
0
0

0
0
0

08R

ENDOPR

t~v)405

0~j4l16

00407
00410
00411

t1 SERV

IwITH AC= -1.

LAC

APIf-'L,G

lEND

R
R
A
R

JMP
LAC

R 2~jl1!!133 R
R ~47505 R
R 77777vJ A
R V14750G R
R 207530 R
R 047507 R
R 707321 A
R 741~HH) A
R 60(1)407 R
R 100433 R
R 447okJI' R
R 500375 R
R ~07531 R
R t~40k'2~1 R
R 140021 R
R 6~1C1356 R
R 207530 R
R Q147507 R
R 2r~ 7 50 5 R

0VJ412 R 707326 A
til~? 413 R 707301 A

00414 R 741000
(,H1415 R 60v.J422
L!'H.~ 4 16 R 100433
00417 R 447507
vHj42VJ R 6Q10413
0~j 421 R 741~H?)0
00422 R 7073Ql4
~H1423 R 347522
00424 R 0J475'15
0(1425 R 447506
v.Hl426 R 60fiJ373
00427 R 707321
0kl430 R 600427
vJ0431 R 7fi}'7322
00432 R 60041'J3

JMP*
SNA

oaR

JMP*

I
TS'TF.5

A
R
R
R
R
A
A
R
R
R
R
/l,
R
A
R

TSTF.5
ACSAVE

EXIT., CHECK API
FOR RESTORING ACCUMU~ATOR
IFLAG OFF.
ION, RESTORE AC, PEBREAK,
OP~RATlaN

TERMIN

lAND EXIT.

IC~EAR

JMP",

~1 SER V

LAC

RE~~IND

DAC

TER.1U

TERM.l

OAC
L.AC

ACCUM. AND EXIT,

... 1'1

TER,2#
(~12YHj)

/REWIND A~L HANDLERS
/THEN EXIT.

o
o
o

J~lP

.+1l1

BREAK

Jf15

r~TCR

SKP

ISZ
~J MP

TER,,3
.... 5

L.AC

( ",,4)

OAC

SYSERR

Dzr~

ERCODE-l

JMP
LAC

ENDOPR

DAC

T£R.3
TER.1

LA.C
MTL.C

(-1200.)

ISZ

JMP

.+5

BREAK
TER.3
111",,5

SKP

rffGO
TAO
DAC

ISZ
J f1P

( 1 v.H1 v-HHD
Tt::R .. l

TER.2
TERM.l

r1TCR
JMP

f1TAF

JMP

.t::JECT

o
o

~ITTR

SKP
Jf'1P
JMS

TERM.2

o
o

TER.3#

DAC

TERN.2

MSERV

Cl.A

~A~'I

I~LAG

OBR
I

0~1367

INOT MAG. TAPE" EXIT TO MONITOR

CLC

016364 R 7500l1vj A
~'v)365 R 703344 A
~HJ3156 R 620301 R

00370

2017416 R

R 741200
R 6liJM364
~ 207415
R 703344
R 620.301

TSTF.3

o
o
o
o

()

PAGf::

MAGTAP SRC

0t14J3 R f/1(!j~)0vH}
!i1«1434 R ~47411'
QJl14J5 R 750~10
(tH?14~6 R (:147456
lil0437 R 2 ~H1(IJ 20
~1044~1 R 741200
~H1441 R 6~H1444
00442 R 777776
~H)443 f~ 600445
00444 R 777773
Y10445 R l~ 40~~20
0~1446 R 777777
00447 R ~47442
0~J450 R 60Q,306

A
R

B~EAK

DAC

ARKAC#

GLt<

A
R
R
A

DAC
l..AC
SNA

LINKU

R
A
R

JtilP

,,+3

LA\~

""'2

A
R

LA\~

DAC

A
R

LA.~

5YSERR
"",1

OAC

DtifSWl

JMP

EX!'f

DZM

DSTSWl

LAC
RAR
LAC
JMP*
eEJECT

l.INK

JMP

SYSt:RR

,,+2
-5

00451
(iH}452
00453
(10454
v.10455

R 1.47442
R 2r~7456
R 74M020
R 207417
R 62(~433

R
R
A
R
R

BREAKl

BHKAC

BREAK

o
o
o

o
0

()

o
()
()

o
o
o
o

o
o
o

o
o

PAGE

M,AGTAP

SRC

1***************************************************** ******************
IMAGNE'TIC TAPE r.:XCERSISER INITIATION ROUTINE,

~H1456

R (i1 (-10 ftHl ~J A

R 75 1:a000
R L147514
00461 R 2(1)7532
~104G2 R ~40115
0(1463 R 147446
00464 R lC1~)513
~Hl457

~)r1460

~H1465

DAC

LAC

~1 I NI , 1

JMS

POLHAN
MINI.2
HANCNT
SETNXT
GET
MSKTAB

J~lS

00471 R 100621 R
kH1472 R t"Q)0131 R
00473 R 7 400~J 1 A
0t1474 R 340161 R
00475 R C~ 4~ 161 R
00476 R '.(,)1513 R
00477 R 1.01344 R
v.H~500 R 207446 R
00501 R 547521 R
v.H,502 R 74100Vl A
005L13 R 6'10465 R

.PSA

ISET TEST NO. TO vJ FOR RANTST
ISET CYCLE COUNT FOR t:NO OF PASS.
ISET 'TEST DISTRIBUTION SWITCH IN
I~'SERV TO RAN TST.
ICLEAR NUNBER Of AVAIL.ABL,E
IHANDL"ERS III GO TO POkL.ING INITIAL..IZE.
IPOL..L HANDL.ERS, EXIT +2 IF ACTIVE FND.
/EXIT +1 IF POLLING COt1PLETE !t

/COUNT THIS HANDLER.
/GO TO SET NXT FOR PARAMETER P.A.
15ET THIS HANDI...ER ACTIVE.

TAO
DAC
JI1S

Jf'1S

LAC

/CLEAR DISTRIBUTION.
ISE~ECT NEXT OPERATION FOR THIS
IHANDl,.ER, TriEN CHECK FOR T~tIS ONE
IBEING THE FIRST POL..lwED AND FOUND

SAO
SKP

C1 )

l.,AC

HNDNUMr~

[lAC

THSHAN

JMP

MINl.l

IRE TURN FOR NEXT HAND~ER.

JNP

ACTIVE
ACTIVE
CLwRDIS
5LNXOP
HANCNT
MINI.l

/SET FIRST HANDL.ER

,I 'T HIS I,

LAC

HANCNT

IPOLLING

SAL)

R
R

JMP

(0)
ER20

INO HANDL.ERS AVAILABI".E, EX I 'f

Jf1P

RANTS5

t1INI.2

"t::JECT

o
o

o
o
o

Ct~A

QH1504 R 207451 R
00505 R 040065 R
005(16 R 60~]465 R

(1)0507 R 207446
vH1510 R 547524
~Jf1511 R 602665
00512 R 600651

DISTSW
HANCNT»
POLINT

lSZ
JMS

R 1(1j1242 R

TSTNO#
(RANTST)

[)AC
[) l t~
JttlS
JI1P

00466 R 600507 R
00467 R 447446 R
0~1470

CL.A

A
R
R
R
R

R 1~0525 R

RANINT

o
o
o
()

CO~1P~ETE

o
o

()

....

PAGE

fv1AGT AP

SRC

()
0
0

t1v}516 R

0
0
0
0

0
0
()

0
0

LAC

NOOP

DAC

TSTCMlJ#

777767 A

LAW

III!

00517 R V}47461 R
~H) 52r1 R 750001 A
00521 R 047451 R
v.H1522 R 207533 R
0(~523 R C147510 R
~H~524 R 62l~513 R

DAC
C!..,C
DAC

LAC
DAC
Jf1P*

11
POLOONU.

HNDNUM
(TRKTAB)
TKTBPT#
POI..INl

ISET TEST COMMAND

ISET POL..LING

AS NOOP,

pULHAN

00525 R ~~v.HH.100

~H~526 R 447461
Qll(J527 R 741~j0fa.
~~(~530 R 620525
0~,531 R 207513
vHo 5;) 2 R 707326
0id533 R 707 3~) 1
00534 R 6~H157ftl
005J5 R 707352
00536 R ~4t!l110
vHJ537 R 507522
00540 R 74120.0
~HHi41 R 60v)562
00542 R 200110
00543 R 507534
vHJ544 R 7412QH7l
0~1545 R 600550
'iHl546 R 750001
I{jVJ547 R 741000
0055((1 R 20'7035

rsz

SKP

R
R
A

ICLEAR CURRENT HANDLER
INUMBER

IEXIT.

POL~1. 7

R
A
R
R

JMP
POl.H.9

POl.rHAN

TSTCMO

POL..H.4
SVSTAT
( 10)

IHANDI..ER NOT ON BOT,
ICHECK HANDL.ER INDICATOR FOR
ItiEVEN OR NINE TRACK.

AND
J~1P

CL..C
SK.P
I.,AC

01(1556 R !Il47470 R
0(1557 R 207536 R
'1!d06~) R V}40115 R
00501 R 6~H1306 R

,,+3

POl.HAN

,JNP*

PULHAN

l.AC
DAC

SAVPIS#

LAC

(POl..H.6)

OISTSW

DISTSW

IINCREMENT TEST COt1t1 AND
INOT ENO, EXIT +1 TO L.OG ANOTHER
IHANDLER ON L,.INE III

lEND OF RE\~IND
IRE TURN TO t10NITOR VIA EXIT, 1/0 STARTED.

T S'rCMD

IHAND'~ER

R
R
A

AND

(7(~~j0~0)

ITAPE,

TAO
MTLC

REWNDl

f~TGO

MP
"EJECT

POL.H.2

ISAVE DISTRIBUTION SW
/UNTIL. AFTER REWIND ..

LAC

POLH.4

EX 1'"'1'

0
0

JNP
I

(177777)

TKTBPT
INCRE

OAC.
JMS
lSZ

DAC

0
0

(1 Vj~1000)

SNA

POL.H.2

POL.H.5

AND
~AC

(NOOP)

I Cl-iECK HANOLER
ISTATUS
ION BOT.

R
A
R

R
R 1(]67510 R
00552 R lro~J604 R
(10553 R 440525 R
0.E1554 R 62(1525 R

COM~iANO

SVSTAT

/PICK UP TEST

IL..OAD IT AND CHECK THAT THIS

DAC

0
lIS READY"

jl1TRS

SNA
JMP

QH~501

CiJk.1562 R 2Ql7513
01iJo63 R 507537
v..H1564 R 340k144
0~)565 R 707326
~hIJ5t:i6 R 7~l7304
00567 R 6v)0555

MTLC

POLDON

"1TTR

JMP*
LAC

COUNT,

/
IriANOL.ER POLLING ROUTINE
/

0k1555 R 20v1115 R

I
POL1NT

POLLING INITIATION ROUTINE

IrIANDL.,ER

00513 R fi'HtJ0vH'!~) A
(iHd514 R 2(1HH132 R
(~v)515 R 047013 R

(-)

NO'T AT BEGINNING OF
UP REWIND COMf1AND,
ITRANSMIT IT AND \'i AI T FOR
~lAKE

/COMPLETION.
IIRANSMIT GO.

( ..... '\
'--"

0
PAGE

0
0
0
0
0

~H)57~J R 707352
(1Q)571 R !I14~11~j
t1t1572 R 50754e)
~)Vj573 R 74';1200
00574 R 6{10577
(/H1575 R 1f10604
00576 R 6t1~J526

0~J6t~5

v.H16k17
!~H161v.J

00612
0~j613

00614

POL.H.5

SVSTAT

ANO

(20~H"~j0)

SZA

R
R
R

JMP
Jr~1S

I
POLt"i.8

MTRS
DAC

0V1604 R ~0e10~J~ A

tiHd611

A
R
R

(1J0577 R 1~1~~433 R
f!l v.l6 ((Hi) R 707301 A
~H.'6(11 R 741~H()0 A
0116(~2 R fH~0535 R
(1~)6vJ3 R 600577 R

0k1606

MAGTAP SRC

PO~H.8

INCRE

C1~)617

IINCREMENT TEST CllMt'1ANU
INOT DONE, LOOK AT NEXT HANOLER.

POLHAN+l

JMS

BREAK

JMP

POl..H.9

Jf1P

111,.4

SKP

INCRE

ISZ
LAC
DAC

ISZ
NOP
l.AC
JI1P*
PO~H,6

TKTBPT
TSTCMD
(100000)
'fSTcr1D
~iNDNUM

HNONUM
INeRE

IINCRE. TEST COr-1MAND ..
IANO PUI..LING COUNTER AND CHECK

0
/SET HANDLER NO. IN

AC~

DAC

JMP

SAVD1S
OISTS\~

POLH.7

IRETURN FROM RE\~INO, RESTORE
IDISTRIBUTION sw", RETURN TO
/RETEST HANOL..ER.

/GET SUBROUTINE

R ~0~~Ha0 A

GET

li.1

TAO*

GET

DAC

GE'T"l#

LAC.

R
R
R

0
0

/
0vJ622 R 360621
OH1623 R li147445
0~J624 R 227445
~0625 R 44tll621
0k1626 R 6211621

IFOR END

I
(lH(l621

Q'l

LAC

(tJ

TA()

R L~4(1115 R

JMP

0VJ62Ql R 60(,:1031

t1T fR

R 447510 R
R 2~)7513 R
R 347522 R
R 047513 R
R 447451 R
R 7400~j0 A
R ~07451 R
R 62V;)o04 R

00615 R ~H10e;k:H!1 A
11.1\;1616 R 207470 R

!SZ

GET.l
GET

JMP*

GE'T

/USED TO GET A VAl..UE FROM
IA TABLE. ENTRY WITH INDEX,
IBASE IS +1 ON CAL!.."

/RETURN vlITH VAL.UE~

ICLEAR HANDLER OPERATION TABLE ..

0
0
0
0
0

'1 ~16 2 7 R k1000~Hl A
~1v.1630 R 207541 R

/
CI..OPTB

VH16 ;)6 R 447436 R
011637 R 600634 R
Qj064~ R 62V1627 H

LAC
PAC

ft.)0631 R 047436 f~
~H)632 R 2~17542 R
~Hd633 R ~47437 R

00634 R 167437 R
00635 R 447437 R

CL.OP.l

(-NUMriAN*NUMPAR)

CL.O.lt4

LAC

(OPRTAB)

DAC

Cl"O.2#

DZM*

Cl..O.2

ISZ
ISZ

Jt1P

JMP*
.EJECT

CL.,O.2
CL.,O .. l
CL.OP.l

0
ISET Opp TAB L..ENGTH.,

ISET START OF opp TA8.
IZERO ()PR

TAB

0
0

CL..OPT8

()

G
PAGE

r'1AGTAP SRC

0'
1***************************************************** ****************

o
o
o
o

IRANOOM HANDLER EXERCISER - TEST0,

0VJ641 R 1)1~~HHH1 A

lSi!
SKP

RANI".EN

IINCREMENT PASS COUNTER,

R 600367 R
00645 R 10~661 R
0~646 R 101270 R

JMP
JMS

TERi'1IN

IPONE WITH TEST.
ICHECK PREVIOUS OPERATION
IUPDATE COUNTERS.
ISE~ECT NEXT OPER. FOR THIS HANDLER.
ISELECT NEW NEXT HANDLER.
IINITIATE OPERATION ON NEXT HANDL.ER.
IEXIT.

0~644

00647 R 101344 R

00650 R 102104 R

00651 R \01673 R
~0652 R 600306 R

00653 R '~HH]000

RANTS2
RANTS6
RANTS3
RANTS5

~JMS

JMS
JMS

CHKOPR
LJPDTCr

Sl.,NXOP
SL,NXHN

INTOPR
EXIT
1***************************************************** ******************
15AVE TERMINATIUN PARAMETERS FOR THIS HANO~ER AFTER OPERATION COMPLETE,
1

SAVEOP

Jt1S

JMP

0!J654 R 220113 R

l,AC*

00655 R 040111
~H1656 R 220114
00657 R 04~112
00660 R 62'1653

DAC

SYSCA
SVCA

LAC.

SYS~~C

R
R

o
o

Vlvl642 R 44]465 R
~j~'643 R 74100l~ A

1
RANTST

lAND WORD COUNT AND SAVE.

svwr;
SAVEOP
1***************************************************** ************
DAC
Jt-1P*

ICHECK OPERATION OF PREVIOUS COMMANO~~

1
(iHj661 R ~0V1~H,ei A
QH1662 R 22v,H.172 R
(1'£1663 R ~47424 R

CHKOPR

o
LAC.

CHKPTR

()AC

CKO.l#

127424 R

J~lS*

CKO,,~

00665 R 620661 R

JMP*

C~iKt)PR

00664 R

IGET CHECK ROUTINE POINTER FOR
IPREVIOUS COMMAND THEN CHECK.
IRESULTS OF THE LAST OPERATION.
IEXIT.

o
o

o
o '
o
o
o

o
o
o

(!H'666 R ~00000 A
00667 R 1(~1~32 R
0067~ R 2Q1~110 R
f1v)671 R 507543 R
00672 R 74(1200 A
((Hj673 R 6~H~717 R
~H1674 R 200065 R
00675 R 347533 R
00676 r~ (']47427 R
VJk'677 R 750Qj01 A
00700 R ~343414 R
0'~7v.l1 R 74V10~11 A
vHl)702 R 360073 R
(;H1703 R 527427 R
0!d704 R 74VJ211Jla A
0(a705 R 602670 R

ICHECK READ COMMAND rERMINATION FOR ERRORS
ICHECK COMMON ERROR, THEN
o
CHKCOM
ICHECK FOR CORRECT VA~UES OF
Jt1S
LAC
SVSTAT

CKSR2

AND

ClvH:10~)

SZA

JMP
LAC
TAD
DAC

CKSR.4

THSHAN

(TRKTA8)
CKS.3#

CLC
'TAO

BUFl

C~lA

TAO'"

AND*

CNTR
CKS.3

SZA
J~'P

ER23

svwc

74vH'01 A

CI,..C
TAO
Cf1A

R 347544 R
00712 R ~47426 R

TAO
DAC

(-BUFSIZ)
CKS.2#

0t1706 R 750~~~Jl A
00707 R 34k1.112 R
007 U~ R
~H1711

lEND OF FILE

o
o

o
o
o
o

()

· --- --- --- -*- -- --- -- ._. -- -

....

---

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

- ....-

-- -- - -. -

-_.

-- -

.. _.

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

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

....

·.-· ..·'1

(

;--)

,....)

PAGE

0
0
0
0
0
0
0

0
()
0

00714 R 527427 R
R 74(~2m~!J A
~H!)716 R 6 1212666 I~
(10717 R 7 500vj 1 A
0£172'1 R 34t~ 1 63 R
00721 R 74vH,VJl A
00722 R 36007~1 R
00723 R i~47430 R
00724 R 34£1112 R
C1t-J725 R 54'1111 R
0(1726 R 741QH10 A
00727 R tH~2656 R
0(~7 30 R 2~H1111 R
00731 R 54743(() R
l~07 32 R 6~0743 R

v.l iO 7 15

00733 R 2~H1112
eH1734 R 7412~1f!1
0\1J735 R (;02657
00736 R 2('.H~111O
00737 R 507545
Ii.H174(1) R 7 4120~j
00741 R 602657

0
0

0
0
0

CKSR.4

TAl)
ANIJ*
Sl.A

BUF1+1

JMP

ER21

CI~S.3

CL.C

TAO
CMA
'f AD ..
DAC
TAD
SAD
SKP

JMP
LAC
SAD

JMP

LAC

A
R
R

SNA
JI'1P

LAC

MAXBUF

0
Iwe AND CA AT TERt-l I NAT I () N ..
IFORM (CA+MAXBUF) AND SAVE,

CKS2.1#
SVWC
SVCA

IFORM (CA+t1AXBUF-WC) AND CHECK
IFOR MArCH ~~ I TH FINA," CA.

ERll

l~lISMATCH,

SVCA

CKS2.1
CKS2.2

svwr.;

ER12
SVSTAT

WC/CA

ER~OR

ICHECK FOR ~1ATC~i OF CCA+MAXBUF)
IWITH FINAL. CAli!
IMATCH, C~1ECK we AND INCOR. REC~ LEN ..
II~ISMATCH, ¥IC SHOUL,D NOT EQUAL ZERO,
lAND INCORRECT RECORD L..ENGTH BIT
ISHOULD BE SET.

AN!)
SNA

(1 ~HHi')

JMP
~Jt1P

ER12
CKS2.3

IINCORRECT REC. LENGTH 8IT NOT SET,

00742 R 600752 R

LAC

SVWC

I~·IC

SZA
~] I~l P
l...AC
AND
SZA

.:.

I
00743 R 200112
011)744 R 74{~2VJ!6
vHJ745 R 602657
~HJ7 46 R 200110
00747 R 5t'17545
0~j700 R 740200

A
R

R
R

A
R 602657 R
R ~HHll1 ~l R
R 507543 R
R 74(']200 A

00755 R 620666
00756 R 207046
QH1757 R 047425
0k176Vl R 2~ij7 426
ei0761 R 347547
00762 R (~47426
r10763 R 203414
00764 R 367425

CKS2.3

0
0
0
0

St-tOULD 8E ZERO, AND
IINCORRECT RECORD LENGTH SHOU,"O
INOT BE SET

(10~0)

IRECORD t.,.ENGT~i INCORRECT

lIS

ER12
SVSfAT

JMP

ER12

I.,,"AC

SVSTAT

AND

(10~H1Q))

SET, ERROR.

SZA

Jr.1P*

CKSR2

LAC

(BUF1+l)

DAC

Ct~S .. l#

LAC

CKS.2

TAD
DAC

(2)

R
R
R
R
R

R
R

LAC

R
~'h1765 R 447425 R
~~1766 R 447426 R
01.1767 R 6~10764 R
~H177(1 R 740001 A
00771 R 347521 R

00772 R 36742ti
0~j773 R 527427
0kJ774 R !il47444
0t~j775 R 7 A(f.l20~)
0(1776 R 6C~2667

CKS2.2

11 •

A
R

00754

MAGTAP SRC

'''~713 R 343415 R

(iH1751
0,,)752
(/H1753

'fAD ..

ISZ
ISZ

JMP

lEND OF FII...E

0
0

CKS.2

SUFi
CKS.l
CKS,l
CKS,2

0
0

",-3

CI1A

TAl)

( 1)

R
R
R

TAD ...

CKS,l

SZA

JMP

AND ...

DAC

CKS.3
ERR.22#
ER22

0
ICHECK

SU~,

ERROR

...

L·

(j
PAGE

MAGTAP SRC

08777 R 620666 R

Jr1P*

"EJECT

CKSR2

INOT SET, NO

ERRO~

EXIT~

c'. '
o

o
o

--- ._--

-- --- --- _. -

-- --- -

PAGE

MAGTAP SRC

0
R (lH~)(~HH10 A.
01001 R 101k132 R

~j 1 ~H1 ",

CKSR4

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

-- --

Jf11P
L.AC
SZA

ER13

IMISMATC~t,

~'IC/CA ERROR 4111
I MAT C.i, CHECK FOR WC::;0.

J ~1P

ER14

01014 R 6210~kl R

JMP*

CKSR4

Iwe NOT=0. ERROR 5.
INO ERROR, EXIT,

01007
01010
v.11011
01012

Jr1S
Cl..C

A
R

TAD*

CHKCO~1

/C~iECI<

CMA

A
R
R
A
R

TAfJ*

SAO

SKP

R
A

SVt~C

ICHECK WRITE END OF FIL.E COMt1AND TERMINATION FOR ERRORS.

_...

IfORN (CA+WC) AND MATCI-1 AGAINST
IFINAL.. CA,

010~J6

R 7500(11
R 360071
R 740k101
R 36vj070
R 540111
R 741000
R 602660
R 2~HlJ 112
R 7 4~2~Hj
R 602661

r~'

_. --

SVCA

01~104

01~)13

--_. -- ...

V)10~j3

01005

COr1~lQ N E,RRURS THEN
/CHECK FOR CORRECT VAI.UES OF
/we AND CA AT TERMINATI()N,

(I) 10~j2

- - - -

/CHECK WRITE COMMAND TER~1 I NAT ION FOR ERRORS.
/

()

I
01vl15 H ~(/1QHH10
01l;116 R 101032
01017 R 20(~110
0102~) R 5~J7543
01021 R 74\200
01 ~}22 R 602662
01023 R 621015

CKSR5

R
R
R

()

JMS

CHKCOtvl

l.AC
AND

(V.) 1~!100)

ICHECK

COr~lMON

ERRORS THEN,

SVSTAT

IGET STATUS REGISTER AND CHECK
/THAT END OF FIl..E BIT WAS SET,

SNA
Jt1P

ER15

JMP*

CKSR5

IEOF BIT NOT SE1' , ERROR 5.
INO ERROR EXIT"

A
/

ICHECK SPAC~ FORyl ARD COMMAND TERMINATION FOR ERRORS.

0
'11024 R ~10li'H3(~0 A

/
CKSR,6

'11025 R 101v)32 R

JMS

C;HKCOM

IJ.l1026 R 621024 R

Ji1P*

CKSR6

ICHECK COMMON ERRORS THEN.

IEXIT.

ICHECK SPACE REVERSE COMMAND FOR TERMINATION ERRORS,

0
{~ 1027

R QH10000 A
R
01030
101l~32 R
(i11r131 R 621027 R

CKSR7

r1
JMS
JMP*

CHKC lH1

CKSR7

ICHECK COMMON ERRORS THEN
IEXIT

0
0

v.11032
01033
01034
010J5
(11036
01037
01040

£.11041
01042
01043
01044

R ~000t10 A
R 20011~
R 74010k1
R 601(1,145
R 5(17550
R 74l2v)0
R 6(1)1045

ICHECK OPERATION FOR COMMON ERROR ITEMS
I
CHKCOM 0
/GET SAVED STATUS AND
SVSTAT
LAC

R
R
A

I
01~45

R 2v.'0110 R

SMA
Jl1P

CHKC.1

AND

(4v.J000)

ICHECK FOR Il.LEGAL. COf\1MANU.

CHKC.l

INOT

SNA

R
R 2kH~110 R
R 5(17551 R
R 7412kj0 A
R 602650 R

CHKC.l

JMP
LAC
AND

SVSTAT
(137600)

SNA
Jf'lP

ER03

LAC

SVSfAT

0
0

0
0
0

ILLEGA~

0
INOT FIRST COMMAND, ILL.EGAL.

()

\..........

1'''''''.\

o
o
o
o
·0

o
o

o
o
o

o
o

PAGE

MAGTAP

01046
01047
01'150
01051
1I11052
01053

R 520076 R
R 7402e'0 A
R 6~'2652 R
R 2001'.0 R
R 7401v.'1il A
R 601057 R

SRC

AND ...
SZA
J~lP

LAC

JMP

CHKC.2

AND

(13761tJ0)

SNA

R 101064 R
R 601105 R
R 602653 R
R 602654 R
R 621032 R

ER05
SVSTAT

ICHECK NONSENSE BITti FOR THIS
ICOMMAND.
ISOME ON, ERROR 5
ICHECK ERROR FLAG. IF NOT
111

SMA

"'1054 R 5~J7551 R
01'155 R 7412vHiJ A
tiil~)56 R 602651 R
01v)57
01060
01(161
QJ1062
01063

NONSEN

CHKC.2

,IMP

ER04

JMS
JMP
JMP

PARDRL

JtY'JP
JMP",

EH1VJ l
lll

ERVJ6
ER07

CHKCOM

IIF ON CHECK THAT SOME CAUSE
16ITS ARE ON.
INONE ON, ERROR 4.
ISQME ON, CHECK BAD rAPE, ETell!
IOATA REQUES'r L.ATE ERROR
IBAD TAPE ERROR
IPARITY ERROR
INO ERROR, EXIT.

IPARITY ERROR, DATA REQUEST L.ATE, AND BAD TAPE ERRORS,

Q] U1G4

R {H~H1f{H10 A
01 (165 R ~H1~) 11 ~j R
01066 R 507552 R
01067 R 74~200 A
0112170 R 621064 R
01071 R 2k1V1110 R
01072 R 507526 R
01f173 R 740.200 A
01074 R 601103 R
01~15 R 200110 R
01076 R 5vJ7553 R
01077 R 74020{d A
~J1100 R 743.00k' A
011!~ 1 R 441064 R
01102 R 441064 R
01103 R 441004 R
01104 R 621064 R

PARPRl..

0
L.AC

ANI)
SlA
Jt1P*
lnAC
AND

SVSTAT
C4 0~))

PARPRL
SVSTAT
(200)

AND

11"1 AND If NO ERROR, CAL.L

1+4.

SZA

JMP
LAC

ICHECKS SAVE STATu.s REGISTER ERROR
IBITS ANO IF BAD TAPE ERROR
IRE TURNS CAL.L+2; IF PARITY
IERROR, CAL.L.+3; I fr~ DATA
IREQUEST LATE ERROR, CALL

PARO.2
SVSTAT
(2r,,000)

o
01

o
o
0,

o
o

SZA
SKP

PARD,2

ISZ
ISZ
ISZ
JMP*
.EJECT

PARDRL.

PARPRL.
PARDRh
PARPRL.

o
o

o
()

()

o
o

o
o
o
o

o
o

o
o
()

PAGE

2'1

MAGTAP SRC

01105 R 2£!t"'0l"3 R
vll106 R 74V)10kl A

()
ER10.1

LAC

UOI)S\~t3

SI'lA

JNP

011Q17 R 6V12655 R

ER10

I
ri11110 R 1.01126
R 2~17554
R "140115
R 102543
R 5!1~S~144
R 6003(!H5

01111
01112
01113
(11114
01115

(Jj 1121

01122
01123
01124
01125

l..,AC

DAC
,JMS

R
R

JtrlP

JMP

01116 R C3f1(i.H100 A
~)1117
~J 1120

JMS

R
R
R

DoaVER

R 2!~7467 R
R [il60~)67 R
R 2'17471 R
R ~.,60071 R
R 2~7470 R
R tJ40115 R
R 6t1V1651 R

01126 R 0('iHH~100
01127 R 220067
0113k) R 047467
01131 R 220~~71
01132 R 047471
01.133 R 2("~:H141
01134 R 360~17 5
01135 R 36(.1VJ77
01136 H li16~H167
01137 R 777777
01140 R j,i60~j71
01141 R 200115
~)1142 R (14747(1
01143 R 621126

A
R
R
R
R
R
R
R
R
A
R
R
R
R

SAVOLU

IOONfT RETRY. JUST REPORT THE ERROR ..

o
o

TRNCMD
BI)TAP3
EXIT

CDOOVER)
DISTSW

hAC
DAC*
LAC

CMD
SAVWC#

DAC ..

~~ C

LAC

SAVDIS
DISTSW
RANTS5

Jt~P

SAVOLD

DAC

ICHECK TO SEE IF OPERATUR WANTS TO
IIGNORE DATA LATE ERRORS t;Y SPACE REVERSE ONE
IRECORD AND THEN TRY THE FAILING OPERATION AGAIN.

SAVC~10tl

o
o
o

I
0

LAC*

CMO

OAC

SAVCM()

LAC*
DAC
LAC

SAV~~C

SPCREV

TAD ..
TAO ..

fJENPA~
HANNU~1

PAC*

C~lD

l..Avl

""1

DISTSW
SAVDIS

DAC*
LAC
PAC

JMP*
.EJECT

~~ C

SAVOLD

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

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

---- -- -- -

--- ---'- --- -- -- -

-- - -

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

.....'\

PAGE

0
()

0
0
0
0

0
0
0

0
0
0
0

----

- -- --

-- -- -- -

-- -

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

,,'

- -- - ~

-----------

-, ..•

-.- - - ---

. - . - - -.. - --- --- -

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

\.....J

()

- - -_.- --

1""',

MAGTAP SRC

01144 R lVJ1126
01145 R 147511
~)1146 R 20vl11eJ
01147 R (1)475'13
0115V.1 R 777773
01151 R ~47512
111152 R 207555
'11153 R t~40115
1211154 R 1~2543
1211155 R 740000
t11156 R 6003Q16
01157 R ~1000kHl
0116C1 R 207556
01161 R 040115
~?J1162 R ~07467
01163 R (~6006.7
01164 R 207471
(r11165 R !l)6(107 1
v.}1166 R 102543
1(11167 R 74~000
01170 R 60(~J06

01171
1211172
01173
"'1174
(11175
01176
fd1177

'-.. ....'

ERk}7 II 1

R
R
R
A
R
R
R

01204 R 74020vJ
01205 R 447511
012~~6 R 447512
t~1207 R 741kHJ0
01210 R 6(11230
01211 R 2 v.HJ 0 41
01212 R 360075

OZt1
I... AC
DAC

5VSTAT

hAW

-5

DAC

TOT~TY#

LAC

CFIVTRY)

SSVTAT#

DAC

DlSTS~~

TRNCMD

"lMP

EXIT

FIVTRY

'LAC
"
DAC

R
R
R
R

LAC
DAC*
LAC
DAC*

Jr1S

NOP

J~1P

FIVel

SZA
Jf1P
l..AC
AND
SZA

R
R
R
A
R
R
R
A
R
R

DISTS.~

SAVCMO

eMf)

SAVWC
~~ C

TRNCMO

EXIT
SVSTAl'
(400)

l)LRETY

C)
0

SVSTAT
(200)

ER06
SVSTAT
(20000)

TOTPAR
TOTRTY

Ji1P

RPTER7

L.AC

SPCREV
DENPAR
HANNUM

Jr'lP

LAC
AND
SZA

lSZ
lSZ
S,(P

R
R
R
01213 R 360~77 R
01214 R t160067 R
"1215 R 777777 A
01216 R ~,,60071 R
01217 R 2~7555 R
0122'1 R 040115 R
vJ1221 R U1254~ R
01222 R 740000 A
01.223 R 60~1306 R

(F'IV.l)

I
0

l.AC
AND

R
R

TOTPAR#

JMS
Nap

R 74(11200 A

01203 R 507553

SAVUl.D

R
A

R f1~HlH100 A
R 20~1110 R
R 507552 R

R 6C~1224
R ~0~110
R 507526
VJ12kl0 R 74~2~10
012~1 R 602653
01202 R 20~~110

.J r'S

FIV.2

TAD*
TAO ...
DAC*
LAW
PAC ...

Ct lD
""1

ImtAC

CfIVTRY)

DAC
J~1S

fJISTSW
TRNCf1lJ

NOP
JMP

EXIT

.EJECT

---.

o
o

PAGE

NAGTAP SRC

01224 R 2000~~ R

DLRETY

v.l1225 R 74vl1~1~J A

R 602655 R
01227 R 601211 R

~1226

01230 R 207511 R
R 744020 A
01232 R 742020 A

RPTER7

012~1

I.AC

uaDS~~+3

sr1A
JMP

ER10

Jr1P
I

hAC

TOTPAR

RAR
XOR

01234 R 247557 R
~1235 R ~47443 R

hAC
DAC

DISTS~~

01240 R 103112 R
01241 R 602725 R

J~IS
Jr~p

RESPlJT

o
o
o
o

o
o

DAC

(1)

01237 R r~4(a115 R

RTR

01233 R 740V)20 A

01236 R 207470 R

RCR

FIV.2

ERN.1
SAVOIS

()

--. --- .. _--

ERR2.1

ISET NEXT OPERATION TABLE POINTERS
01242 R ~0vH~£iHi.l A

R ~40~66
R 101263
R 347542
R ~40067
R ~07560
0125~ R ~47474
01251 R 777762
~1243

01244
01245
01246
01247

SETNXr

R
R
R
R
R
R
A

(lJ1252 R 047475 R
~) 1253 R 2(10067 R

DAC
J rl S

CURHAN

TAr)

(OPRTAB)

DAC

PAR'fAB

~AC

(PARTAS+1)
SET.l#

SETN.l

SET.2#

LAC

PARrAB

/PICK UP FIRST POINTER, INCREMENT

TAD

C1 )
SE'T.l

IF"OR NEXT ENTRY

DAC*
ISZ
IS,
JMP
LAC
JMP*

01257 R 447475 R

01260 R 601254 R
01261 R 200066 R
01262 R 621242 R
I

IMU~TIPLY

01263
01264
01265
01266
01267

R Q100Qi01l!
R 74400~
R 742~10
R 742010
R 621263

A
A
A
A
R

MPY

HANDLER NO. BY NO.
/UF ENTRIES PER HANDLER AND
ISET FIRST POINTER,
/GET NXT P.A~ LOC. AND SET.
IMU~TIPLY

DAC
I- A~~
DAC
I

01254 R 347521 R
~1255 R 067474 R
01256 R 447474 R

'~PY

IENTRY WITH HANDLER NUMBER.

""'NU~1PAR+2

SEr~l

SET.2
SETN.1
CURHAN
SE::TNXT

0
0

IGET NUM. OF PARAMETERS

IANO P"A ..

ICONTINUE UNTIL DONE,
IRESTORE INBOUND HAND~~R
/EXIT.

0
NO~

BY 16 UTILITY ROUTINE.
IENTRY WITH ARGUMENT IN AC.
/EXIT WITH PRODUCT IN AC.

0
C~L
RT~
RT~

\Jr1P*

.EJECr

0
0

11PV

(-"j
-......,..,'

c)
PAGE

~1AGTAP

SRC

/******************************************************************
IUPDATE POSITION COUNTERS BASED ON PREV10US COMMANQ EXECUTE!).

0
0
0

CJ
0
0

0
0
0

0
0
0
0
(-J
0

0
,~

I
0127kl R rn~1\i1v)00
01271 R 22 ~1~H' 7
V11272 R 507561
01273 R !;47561
(11274 R 6013[;JO
01275 R 547b62
01276 R 601321
01277 R 547~63
01300 R 741000
01301 R 601337
013vJ2 R 46~073
01303 R 7400f(H~
013~4 R 220073
101305 R 601331

A
R

UPOTCT

LAC*

er-1D

AND

(7000)

IGET PREVIOUS COM~iANO AND
ICHECK FOR TYPE ..

SAP

I ~~ AS A BACK

R
R
R

J~lP

(7000 )
UPOT.l

SAO

C6itHH1)

Jr1P
SAD
SKP
JMP

UP[)T,2

ISZ*

CNTR

R
R
A

R
R

NOP
LAC*
JMP

A
R

UPDT.l

'fAD

TAl)*

SVi~C

R 750001
R 360071
R :7 400ell
R 34(1112
R 7411~H{J
R 740040
R 360073
R r;,6vH,73
R 740001
R 347521
R 360074
R 7411vJ0
~11335 R 740040
01336 R 6212711

01337
0134121
01341
01342
01343

BACK SPACE.

tWAS

ISET

IN CNTR.

IFORMCCNTR~(lNIT.

o
WC .. FINAL

we.))

HL..T

TAD*
DAC*

CNTR

SPA

riL T

JMP*

UPfJTCT

UPI)T.2

/EXIT
I v~ AS A FORWAR() SPACE ..

C~C

lAO""

~~ C

A
R
A
A
R
R
A
R
R
A
A

CI"1A
TAO

sv~~c

IFORM CNTR+(INIT. rH: .. fINAL
ISET IN eNTR.

o
we)

SPA

TAD*
DAC*
UPDT .. 4

CNTR
CN'TR

Ct1 A
TAD

TAD*

C1 )

CNTW

SPA

tiLT
/
UPDT,,3

JMP*

UPOTCT

l. AC 'lit
TAO

CNTR
( 1)
CNTR
CNTvJ

DAC*

DAC*
J~lP*

,EJECT

()

11L'T

R 220073 R
R 347021 R
R 06vH173 R
R 06~1074 R
R 62127k') R

tWAS A ~RITE OR WRITE EUF.
tWAS A REAO(CNTR+1=CNTR)

SZA1SMA

01321
01322
01323
01324
01325
01326
01327
01330
013J1
01332
01333
01334

tWAS A FORWARD SPACE.,

UPDT.4

CL.C
C~1A

SPACE.

CNTR

01306 R 75000.1 A
~j1307 R 3403112 R
01310 R 7 40l.1~ 1 A
01311 R 360071 R
01312 R 74V)3~H?I A
11.11313 R 7 4 ~"114~) A
01314 R 36~H173 R
01315 R 1~6\iHJ7 3 R
01316 R 741100 A
01317 R 74QJkJ40 f~
01320 R 621270 R

(2000)

UPOT.3

UPOTCl

tWAS A WRI'TE OR WRITE END Of FIL.E.
IINCREfY'ENT CNTR AND SET
lIN BOTH CNTR AND CNfW ..

o
o

()

o
o
o
o
.0

o
o

PAGE

MAGTAP SRC

1***************************************************** ******************
ISELECT NEXT OPERATION FOR THIS HANDLER TO PERFORM.
1
~j1344

(~l1~H.1(tH1

SLNXOP

01345 R 200110 R
01346 R 507564 R
01347 R 7412~H~ A
t~1350

01351 R t01505 R
01302 R 621344 R

013~6

SVSTAT

AND

(4~H10)

SNA

R 601353 R

0.1353 R ~(!)I,~11~J R
v.11354 R 5vJ7522 R
01355 R 74!iJ200 A

'"
LAC

SI,.,NO.0

013t5~J R 7412~j(o A
01361 R 601467 R

SVSTAT

ICHECK FOR BOT MARKER.

AND

(100000)

SNA
SLNQ,,8

SAD*

CNTW

JI1P

SL,NO.9

JMS
AND
DAC
SAl)

RANGEN

01370 R 601364 R

JMP

SLNO .. 1

01371 R 547566 R

SAP

(5)

JNP
JMS

LAC

SLNO.l
CMDOIS
SL.NO.l
GET
CMDSKL
SLN.2#
SLN.l

SAD

( 1)

01363 R 601473 R
1
SLNO.1

01366 R ~47476

R
01367 R 547565 R

01372 R 61~1364 R

01373 R 101537 R
01374 R 601364 R
01375 R 100621 R

v11376 R (~0(1)032 R

,PSA

01377 R 047477 R

DAC

o
o
o

o
o
()

SLNO.8

CNTR

JNP

01364 R 101624 R
t,1j 1365 R 507557 R

01400 R

JI1P

SLNO. 7

207476 R

01401 R 547521 R

o1 4 02 R 7 4 10 ~l ~J A

JI~S

JMP

R 101505 R
01405 R 621344 R

JMS

014~4

JMP*

01406 R 207477 R

51-NO.2

@1407 R 36~H177 R
01410 R 36~H1J70 R

01411 R ~60067 R
SI.,NO.3

R
R
R
R

SLNO.2
GENRWO
SLNXOP

SLN,,2

lIS REWIND, GEN. COMMAND AND EXIT,

INOT REWIND, GET COMO. SKE~ETON.
lOR IN HANDLER NUMBER AND
ICURRENT DESITY AND PARITY.

AND

(77)

IPOSSIBLE WC.

_ ",,3

IZERO, DON'T USE _
ISAVE,.
IGET COMMAND NUMBER
lAND CHECK FOR SPACE FORWARD
lOR REVERSE"

JMP

R 0475~10
R 207476
R 547570
R 601434

ICHECK IF DISTRIBUTION UK.
INOT OR, GET ANOTHER NUMBER.
10K, GET COMMAND SKELETON
If OR THIS ONE AND
ISAVE IT"
IGET COMMAND NO. AGAIN
lODES FIT, CHECK FOR REWIND.

RANGEN

01415 R 601412 R

DAC

I.AC
SAL)

J ~1P

o
0,
C>

JI""15
SNA

(4)

DENPAR
CMD

01414 R 74120k) A
C!11416
01417
01420
01421

INEITHER, ANY IMPLEMENTED
ICOMMAND FITTING DISTRIBUTION IS
I~EGA~w GET COMMAND NO. AND

LAC
TAD*
TAU*
DAC*

01412 R 101624 R
01413 R 507567 R

(7)

SI".N.ltl

ICHECK POSITION COUNTER FOR 0.
IfIJ MEANS BOT.
lIS ZERO.,
INOT ZE~O, CHECK CNTR=CNTW.
IARE EQUAL.

S~p

R 6014((.10 R

014t~3

l.AC

JMP
LAC*

R 601467 R

560~)74

SI..NXOP

SZA

vJ1357 R 22tt1e 73 R
'

01362 R

INO, NO~MAL SEL.ECTION.
IYES, GENERATE REWINO COMMAND.
IEXIT.

GENRylD

ICHECK FOR HAND~ER AT
lEND OF TAPE.

JMP
JMS
JMP*

Sl,..NO.0

HANNUf1

SLN.3#
SLN.l
(6)
SLN010

ISAVE IN

o
o

o
o
o

CO~'MANl)

IGET RANDOM NUMBER FOR

o
o
o

- -_. --_ ..

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

()
PAGE

(:>
0
0

0
0

0
0
0

MAGTAP SRC

vJ1422 R 547557
01423 R 7410QJy1
01424 R 6k)1456
0.1425 R 750001
e.)1426 R 347beJ0

SA!)

SKP
JMP
CLC
TAO

A
R

R
01427 R 74~HHll A
01430 R 360073 R
01431 R 741100 A

(11432 R 6~11412 R
01433 R F5(!11.451 R
(I) 1434 R ~07500 R
01435 R 5~17557 R
01436 R 347021 R
01437 R 0475010 R
01440 R 75v.HHll A
01441 R 360074 R
01442 R 740001 A
01443 R 36v.H373 H
01444 R 347~}00 R
01445 R 740001 A
~31446 R 347521 R
01447 R 7411~J~ A
014tH) R 6~)1412 R
01451 R 75QHl01 A
01452 R 3470(10 R
01403 R 740~H)1 A
01454 R Vl60~J71 R
~) 1455 R 16~1070 R

0
0
0
0
0

0
0

R
R

01467 R 7400~H~ A
0141(1) R 1.01 5 13 R
01471 R 102255 R

CNTH

SLN010

JMP
JMP
LAC
ANi)

ICHECK THAT we DOES NOT
IEXCEED eNTR..

TAD
DAC

IEXCEEDS CNTR, GET ANOTHER
10K, CONTINUE.
ISET WC MOO 8

SLNO.3
SL.NO .. 4

SLN.3
(7)

CI",C

TAD.
TAD*

CNTR

TAD
CMA
TAD
SPA

SLN .. 3

JMP

SLNO.3

SL.NO,6

I(CNTW-CNTR)

o
o

lIT DOES, GET ANOTHER.
10K, GET we, COMP~IMENT

SLN.3

Ct1~'
[) Z t1 *

lAND SET IN WORD COUNT.
ICLEAR CA.

LAC

Sl.,N,l

IGET CHECK POINTER FOR

OAC*

JI.,S

.OSA
DAC*
LAC
Jt1S
.OSA
DAC*
JMP*

~IC

GET

ITHIS

5LN~1

GET
NONTAB
NONSEN
SLNXOP
ICNTR=ZERO~~--"TAPE Al' BOT ..
SbNO.8 NOP
Jt1S
CLROIS
GEN~~RT

JMS

RANGEN

AND

(7)

Q)1473 R 101 6 24
~j1474 R 507557
~11415 R 047476
01476 R 547570
01477 R 601473
0150{1 R 547547
~115(ijl R 6QJ1473
v)15Vj2 R 101037
015(il3 R 601473

SLNO.9

DAC
SAO

SLN.l

R
R
R

J~lP
SA()

SLi~O.9

JMP

Sl,NO.9

JNS

JI1P

CMIJDIS
Sl.NO .. 9

0 ,

COM~1AND.

CHI(T AS

CHKPTR

,JMS
JI1P*

(1 )

C~C

TAD

ISPACE FORWARD. MAKE SURE

Iwe DOES NOT EXCEED:

CNTW

CMA

SL.NO,,4

WC~

( 1)
Sl..N.3

SI,.NXOP
ICNTR=CNTW-----TAPE AT

R
R

I 5 P AeE B ACK\~ ARD.

SLN.3

01472 R 621344 R

INEITHER CONTINUE,

SPA

R
R
R
R

SLNU.o

C~1A

TAD*

I
R 2v.17476
R 100621
R 000vj50
R !'I6'H~72
R 207476
01463 R tYH~621
01464 R r~~H111 (j
~11465 R 016Q1(!J76
01466 R 621344

01406
01457
01460
01461
01462

(7)

IGET NONSENSE BIT MASK.
lAND PUT AWAY FOR THIS COMMAND.
IEXIT.

ICHECK BOT FLAG, SHOUhD
IC~EAR COMMAND DISTRI~UTION CNTRS.
IGENERATE A WRITE

END OF WRITTEN RECOROS.
IGET NEXT COMMAND AND
ICHECK FOR READ OR SPACE
IFORWARO. ELIMINATE THESE.

(6)

ISPACE FORWARD, REJECT

(2)

IREAD, REJECT.
ICHECK OISTRIBUTION OF COMMANDS.
INOT OK.

o
o
o
o

o
o

(J
o

()
PAGE

26
015~4

MAGTAP SRC
R 601375 R

Jt1P

.eJECT

SLNO!' 7

10K

o
o

()

o
o
o

PAGE

~1AGT AP

SRC
IGENERAT~

01505 R ~H1vH100 A
01506 R 2vH~Q)33 R

REI~ I ND
HANI~Ut1

[11512 R t.i215kl5 R

J~IP*

GENRvlD

015~j7

R 36~~~i 7 7 R

v.) 151'~ R

ii' 60 ~j 6 7 R

01511 R 1.01513

o
o
C)

o
o
()

o
o

o
o
o

ICLEAR

HANf)L.Er~

CMt)

R OHl0 kHHJ
R 16A070
R 16l/H171
R 160073

A
R

CbRI)IS

R
R

PARAMETEf~S,

DlM*
DZM*

CN'TR

DZM*
LAC

CNT\~

PAC*

OENPAR

01522 R 100076 R
01523 R 160100 R
01524 R 212)(1)126 R

DZM*
OZN*
LAC
DAC*
LAC
DAC*
LAC
DAC*

NONSEN

R 207545 R
R 060105 R
R 2'10066 R
R 1 (1v)621 R
01534 R !~HHH145 R
01535 R '160077 R
01536 R 621513 R

01530
01531
01532
01533

l. AC

JMS
.DSA
DAC*
JMP*

/SET RE~~ I NO CO~\f>1AND AS NEXT
I COr1r~ AND WHEN THIS HANDL..ER SELECTED.
ICL.EAN UP OPR TAB FOR THIS HANDL..ER

0
0

occu~s

RE\~ IND

AND AT BOT.

0
0

Oll·1*

R 060101 R
R 207545 R
01527 R 060104 R

ENO OF 'TAPE OR BY SEl.ECTION

ICLEAR HANDL.ER PARAMETERS"

R 160074 R
k}1520 R 2(17571 R
01521 R 060075 R

~11525
~11526

CLRDIS

01513
01514
01515
01516
01517

EITriER

LAC
TAD·
DAC*
JMS

GENR~~D

A REWIND COr1MANO

(40300)

eMDeNT
EOFCON
EOFCNT

ICl.EAR COMMANO COUNT,

ISET NEW EOF DISTRIBUTION COUNTERIt

Cl0.~Hd)

SPFCNT

0
0
0

(1000)

SPBCNT
CURHAN
GET

HANDNf4

HANNUM

CL..RDIS

ICHt:.CK SELECTED COMMAND FOR PROPEH DISTRIBUTION.
I

01537
01540
01541
01542
01543
01544
01545
t11546
01547
~) 1 050
01551
~11552

~J1553

R f2'~et000. A
R 047440- R
R 547521 R
R 601556 R
R 547547 R
R 601562 R
R 547565 R
R 60t562 R
R 547566 R

Ctf,OUIS

R ? 2 ~~ 1 ~j 0
R 347572
R 741100
R 621537

R
R
A
R

CMD.1#

J~1P

CMDD.l

CHDO.l

( 1)

SAD

(2)

JMP
SAO
Jf1P
SA.O

CMDD.2

JMP

R 6~lo66 R
R 547570 R
R 601600 R
R 547557 R

01554 R 601612 R
e.11555 R 621537 R
01556
01557
01560
01561

0
DAC
SAD

(4)

/SAVE CO~lM AND NUMUER"
ICHECK FOR REWIND

/READ

(5)

SAD

(6)

J~lP

C~10D. 6

SA[)

(7)

JMP

C~10D .. 7

~JMP*

C~1DD I S

LAC*

CMDCNT

TAt)
SPA
Jf1P.

(-lvHH10)

CMDOIS

0
C)

I~*RITE

CMDll.2

CMOD.5

I.~R I TE

EOF

If(lR~~ARO

IBACK~~ARD

SPACt:
SPACE

0
0

ICHECK RE~IJrND COUNT. ALLOWS
/REWIND ONLY AFTER 4K WRITTEN
IRECORDS ARE ON TAPE.
INOT ENOUGH-EXIT

0
0

(-';

,1'0,.

(................\

PAGE

MAGTAP SRC

o
I

01562 R 4601 ~10 R
01563 R ?v)744~j R
01564 f~ 441537 R

CMDD .. 2

01565 R 621537 R

0
()

~'1566 R 750001
01567 R 36vj 100
01570 R 7 4 til ottl 1
01571 R 36til101

0
0

01573
01574
01575
v) 1576
01577

()

016!i)ft}

v)1601
01602
tI)1603
~1604

0
0

CMlJCNT

J~lP*

C~1!JOIS

016(~5

01606
'11607
01610
01611

A
R
A
R
R 7401vJ0 A
R 62-1537 R
R 22eJl~)1 R
R 340126 R
R '136VJ101 R
R 6~' 1502 R

R 7 50~k) 1 A
R 360100 R
R 740001 A
R 3601~J4 R
R 74e}1~lkl A
R 621537 R
R 220104 R
R 34(1127 R
R ~6VJ104 R
R 601562 R

CMOQ.5

0
0
0
0

A
R
A

FI~E

EOFCNT

OAC ...

CMODIS
EOFCNl
EOFCON
EOFCNT

JMP

CM[JD .. 2

JMP*

LAC ...
TAP
I

C~10(}. {1

Cl"C
TAD ...
CMA

TAO ...

CMDCNT

SPfCNT

S "1 A

Jf1P*

CI1UDIS

LAC ...

SPFCNT

TAD

SPFCON
SPFCNT
CMDU.2

DAC,

JJ¥1P

CMDD.7

Cl..C

TAO ...
Cj., A
TAD*

SMA

JMP ...

LAC'"
TAD
DAC ...
Jr1P

R
R
R

EOF, CHECK EN!) C1F
/COUNTEK AGAINST COt~r1 AND
/COUNT ..

.EJECT

CMDCNT

IEXIT-NOT ENOUGH

IENOUG~i~SEr

NEv~

COUNT.

ISPACE FOR~'4ARO , CHECK SPACE
IFORW ,~RO COUNTER AGAINST
/COMMAND COUNT.

IEXIT, NOT ENOUGH.
IENfJUGH-SET NEW COUNT,

Crl0i,).2

o
o
o
o
()

ISPACE 8ACKWARD, CHECK SPACE
IfjACI<~~ARD COUNTER AGAINST
ICOMMAND COUNT.

SPBCNT
CMDDIS
SPBCNT
SPBCON
SPBCNT

SMA

01612 R. 75M001
~j1613 R 3601 vH1
01614 R 740vH11
~1615 R 3601 '15
01616 R 7 4~H 00
(11617 R 621537
01620 R 2201"-15
01621 R 34{J]13vJ
01622 R ~J6Q;105
01623 R 601562

o
I~~RITE

CNDCNT

C'·lA

TAO.

Ct'10DIS

Cl.C

TAO*

IEN()UGH~EXIT

CMD.l

I
I

(~1572

152*
LAC
ISZ

IEXIT, NOT ENOUGH,
IENOUGH-SET NEW COUNT

()

0
PAGE

~'AGT AP

SRC

IRANDOM NUi1BER GENER AT OR",FR O~1 TAPE EXERCISER EXEC"
I

0
0

0
0
0

R t~ f,i) ~HH?I k1
R ?-01662
R 547073
R 741CHH!l
R 6~j1640
~)1631 R ~07074
01632 R (.l41662

01624
01625
~1162 6
01627
~J 16 3vl

A
R
R
A
R

0
0
0

01646
01647
v) 1650
01651
01652
(1165:3
01654

(41655

01606
01657
~'16ti0

0
0

R ~61662 R
R 777400 A
R (141660 R
R 201657 R
R 74~H12(iJ A
R 361662 R
R f~41657 R
R 441662 R
R 621624 R
R 300~HH1 A
R 777400 A

LAC

RANDEX

SAD

(RANT81...+1v.,)

JI'1P
LAC

R 341661 R
~'1642 R 061662 R
01643 R 441660 R
~1644 R 6"'1651 R
~'1645 R 367524 R

0
SKP

DAC

R
01633 f~ ~~11661 R
v.11634 R 745100 A
liJ1635 R 744~02 A
vJ1636 R 740010 A
016~i7 R Ci.l41661 R
01640 R 221662 R
~)1641

RANGEN

LAC

RANTAP.-l
(RANT61.)

RAN()EX
RANCON

SPA 1Cl..l"

R 123456
R 001673
R 654321
R 361416
R ~55363
01666 R 546060
01667 R 243035
01670 R 762572
01671 R 453237
01672 R 150214

INO, CONTINUE.
IYES, RESET INDEX TO START OF
ITABl"E.

100 A ROTATE ON

lAND

REP~ACE.

RANCON

DAC

RANTAD

LAC*
TAD

oA(>.ISZ
JMP
TAD*
OAC*
l.AW
DAC
LAC
RAR
TAO*
DAC

RANSAV
RANCNT

lSZ
JMP*

RANCON
RANDEX

IPICI< UP TABl.E ENTRY

RANCON
RANDEX
RANCNT

IAO() CONSTANT, REPLACING IN
/ENTRY"

A
R

RANCON
RANDEX

"'400

RANDEX
RANSAV
RANPEX
RANGEN

RANTBL.

IPICK UP PREVIOUS RANDOM NUr'1SER
/ROTA'TE IT ON RIGHT ANO AOD
lIT TO TI;I S TABL.E ENTRY.
ISAVE THE NU~lBER ..
IINCREMENT RANDEX FOR NEXT
ICYCLE ANO EXIT WITH NU~'BER INAC"
ICURRENT RANOOM NUMBER"

.. 4~~0

RANTBL..+1Q1

A
A
A

554321
361416
055363
546060

243035

702572

403237

15~'214

"EJEC'T

o
01

o
o
o

RANDEX

123456

ANt)

.'t5
(0)

RANCNT
RANSAV

STl..
RAt.,

01661
01662
01663
01664
01665

IGET RANDOM TABL.E INDEX AND
ICHECK FOR END OF TABl,E,

o
0,

IRANDOM CONSTANT.
IRANTBL INDEX
IRANDOM VALUE TABL.E.

o
o
o

()

o
o
o
o

o
o
o

o
o
o
o
o
o
o
o

PAGE

~IAGTAP

SRC

1***************************************************** *****************
IINITIATE NEXT OPERATION ON NEXT HANDLER.

INTOPR

~, 1 6 7 3

R r~ r~ 11.1 ~} 0 0 A

01674
01675
01676
01677

R 102601 R
R 102307 R
R 147452 R
R 207575 R

JMS

BUFGEN

J j-, 5

HOL.O

LAC

("'120~}ei)

01700 R ~47453 R
01701 R 707321 A

DAC

INT.4U

017 142 R 741k1~H1 A
vl17kl3 R 6iJ}17~)7 R

SKP

.+4

~117v.14

0
DZM

INT.3#

j~TCR

JMP
ISZ
JMP

R 447453 R

01705 R 501701 R
017~6 R 602646 R
017147 R l.f12~j23 R

Jt'lP
,JMS

INT.4
11""4
ER01

R ~00065 R

LAC

01711 R 101242 R
01712 R 220067 R
~1713 R 507561 R
01714 R 547563 R

JI1S

CKRWD
THSHAN
SETNXT

LAC*

Cf'lD

AND

C7~~0)

0171~'

SA!)

(4000)
INTO.,4

IWHITE COMMAND NEXT

SAD

(1000)

vJ 17J2 R ~6"H17111 R

01733 R 101624 R
~11734

R 507557 R

01735 R 100621 R
01736 R 000141 R
01737 R 043415 R
0174~J

R 74(1001 A

~1741

R 347521 R

01742 R ~60071
vJ1743 R 347547
~Jl744 R 047404
v)1745 R 207546

R
R
R
R

01746 R 047455 R

J~1P

IRE~~IND

COMMAND NEXT.

ITRANSMIT CURRENT COMMAND
IHANDLER NOT ROY, RETURN
Jf~P
ICHECK REPEAT FLAG, If ON JUST
LAC
IISSUEO A REWIND,
SNA
INOT ON, EXIT.
INTOPR
JM?*
ION SELECT NEW HANDLER AND
INrO.6 JMS
SkNXHN
IHEPEAT. IF NO MORE HANO~ERS SEE SLNXHN.
JMP
INTOPR+l
IGENERATE DATA AND SET UP PARAMETERS TO INITIATE A WRITE,
(BUr;!-l)
IINITIATE A WRITE"GET
INTO.4 LAC
INEXT BUFFER AND SAVE IN
IUPRTAB
AND IN SYSTEM CA.
CA
DAC*
IGET RECORD LENGTH fROM RANGEN
J~lS
RANGEN
(7)
IUSING REC TAB ..
AND
INTO.l

JMS

TRNCNU
INTO.6
INT.3

JI1S

GE"f

"DSA

RECTAB
BUFl+1

DAC
CMA

TAO
PAC*
TAD
DAC
l..AC
DAC

(11747 R 220073 R
01750 R ~43414 R

LAC.

01751 R 367455 R

TAl) ...

(11752 R 447455 R

!NTO .. 5

DONE REWIND.

ICHECK NEXT COMMAND FOR READ,
IWRITE, OR REWIND~

J 111 P

01717 R 601731 R
~1720 R 547545 R
01721 R 601764 R
01722 R t~2543 R
01723 R 601727 R
01724 R 207402 R
01725 R 7412vl/tJ A
01726 R 621673 R

01731 R 207576 R

HAND~ERS

IREAD COMMAND NEXT.

JMP
SAD

R 102104 R
R 6t!11674 R

(2000)

IREADY, CHECK ANY

INTO.3

01715 R 601757 R
~'1716 R 547564 R

l~1727
0173~'

IRESET REPEAT FLAG
IWAIT FOR TRANSPORT HEADY.

I)AC

ISZ

(2)

INT.5#
(B UF 1 + 1 )
INT.6#
CNTR
BUFl
INT.6
INT.6

o
o

o
o
0

o
o
o

( 1)

ISET THE VALUE IN OPRTAB AND

o
o
o
o

PAGE

~lAGT AP

01754 R 6~)1751 R
01705 r~ 0167455 R
01756 R 601722 R

01757 R ~07576 R

o
o
o

o
o
()

o
o

o
o
o

01764 R 101772
01765 R 547524
01766 R f501771
~i 1767 R 777777
01770 R 047452
01771 R 6~)1722

R
R
R
R

R
R
R

A
R
R

INT.5

INT .. b
J r-1P
IRETURN TO START OPERATION.
INTO.l
/SET UP PARAMETERS TO INITIATE A READ.
IGET NEXT BUFFER AND SAVE
INTO.3 l.. AC
(BUF1""'1)
lIN OPRTABAND SYSTEM CA~
CA
DAC*
15ET SYSTEM WORD COUNT TO
MAXBUF
l.AC
IMAXIMUM BUFFER SIZE AND
we
DAC*
JMP
/RETURN TO INITIATE COMMAND.
INTO.1
ISET RE~IJ!ND OPERATION
IGO SET REwINDING ~OCK OUT,
INTO.5 JMS
SETRND
(0)
SAD
ITHIS IS LAST HAND~ER
Jf1P
.+3
IUON'T REPEAT.
IESSENTIALLY TERMINATES
LAW
-1
ICYC~E ON THIS HAND~ER, SET REPEAT
DAC
INT 3
IINITIATION F~AG AND INITIATE REWIND.
JMP
INTOal
DAC"

SETRWO

J~'S

.. USA

AND

PAC
LAW
TAO

CURHAN
GET
MSKTAIJ
ANRWD
ANRWO
HANCNT

A
R

JMP*

SETRWP

L.AC
TAD""

DAC*
LAC
DAC

REi~NO 1

IEXIT.

SETR.l

o
o

SETRI~O

It)

LAC

THStiAN

JI~S

CLRR~~O

L.AC

(RANTSTl
DISTSW
CLROIS
RANTS6

DAC

JMS
,J~lP

o
o

ITEST FOR ANY HANDLERS REWINDING AND IF so, IS THE OPERATION COMPLETE.
I

CKRWD

l1 Zi~

LAC
C~'A

DAC

CKW.3tt
ANRwD
CKW.l#

o
o

HANNUJ1

CMD
(SETR .. l)
DISTSvJ

C~A

JMP*

02027 R ~47431 R

"'1
HANCN1'

DAC
SZA

02023 R fiH~(1000 A
02v124 R 147433 R

l.AC

R
02007 R 0]60067 R
02010 R 207577 R
~'2~J 11 R ~40110 R
02012 R 750C1Jl~H{) A
02013 R 621772 R
02014 R 0ftH'000 A
til2Vl15 R 2vHH)65 R
02016 R 1 v.12057 R
02017 R 2(117532 R
0202~) R 040115 R
02021 R 1(;'1513 R
(i)2022 R 60~647 R

fil1772 R r1 (3 ({HI) ~H'J A
01773 R 2t100t56 R
01774 R 100621 R
01775 R (100131 R
01776 R 50(1)162 R
01777 R ri140t62 R
02000 R 777777 A

.-3

02025 R 200162 R
~2t126 R 7 4 vH'~ 1 A

IS'Z
Jf-1P

ISET REWIND BITS FOR HANDL..ER REWINDING.

02v)(iJl R 347446
02~)!tJ2 R 047446
Q'2003 R 7402ViItJ
02004 R 621772
vJ20VJ5 R 20004.4
02vH16 R 360077

......

SRC

011703 R 447454 R

01760 R !t16007~)
01761 R 2~H1163
01762 R \"16~) 0 71
(11763 R 501722

.-- J

IGET HANDLER REWINOING FLAG
IMORE, COMP~IMENT IT AND SAVE~

o
o
o
o

- - -.. - -- - - - - - - - - - - -

~--

---

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

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

o
PAGE

0
0

SRC

(120~'1

R 7412vjf1 A
02Q)31 R 622~)23 R
~'2~32 R 2vHl.H132 R
020:33 R 1';)47432 R

02034 R 2(~7431
02035 R 7 ,H11 ~lk1
02036 R 602045
02037 R 207432

SNA
JI1P ..

CKR\~,,2

02~)40

'12042

02043
02044

R 7~j7326
R 7073~jl
R 61.1J2045
R ~QJ7433
R 102057

Sr~ A

R
R

JfY1P
l,AC

A
A
R
R
R

02045 R 447433 f~
02'146 R 2~)7431 R

02047 R 74401.0
Q)2050 R 047431
02~51 R 7412"'0
v)2052 R 622vJ23
V,12Cd53 R 207432
02054 R 347522

lAC
DAC
LAC

A
/

02041

MAGTAP

ANY REWINDING.
INO,EXIT.
IYES, SET UP Noap CQt1M AND FOR
/REWINDING UNIT SEl..ECTION.
IGET RE¥~INOING F~AG WORD AND
/CHECK FOR THIS ONE REWINDING.
IARE

CKRWD

NOOP
CKN.2U
CK~IJ.l

CKRW.l
CK~·J.2

ITRANS~lIT

NOOP (UNIT

NO. )

TO CONTROI.w

MTLC
t1TTR
Jr.,p

LAC

CKRI~ .1

A
R

CK~J.;j

JMS

CLRR~1D

ISZ
LAC

CKW.3
CKW.l

ReI...
DAC

CKW.l

SNA

A
R
R
R
02~155 R 0147432 R
02056 R 502vj34 R

CKRW.l

JI1P*

CKRWO

LAC

CKw.2

TAl)
DAC

JMP

C1000Ql0)

ICHECK FOR TRANSPORT READY.
IREADY, Ct..EAR RE"~INPING.
IGET REWINDING FL,AG AGAIN AND
ICHECK T~iE NEXl I,AND~ER ..
/ANY MORE?
INO, EXIT.
IYES, STEP THE NOOP
lAND GO AROUND AGAIN.

0
0
0

02057 R c'0~l00r,)
02'160 R l.ei1242
1212061 R 101344
02'162 R 2(00066

02063
142064
02065
02066
02067
vl207kl

A
R
R
R
R 100621 R
R '300131 R
R 74vHH11 A
R 34111162 R
R 04~1162 R
R 447440 R
R 622057 r~

02071

R ~0(it000
R
02073
207575
02074 R {~47423
€12075 R 7073v)1
V,12~'72

0
0

C~RRl~f)

IIJ

JMS

SETNXT

Jt1S

SL,NXOP
CURHAN
GET

LAC
JMS
.DSA

MSKTAB

Ct1 A

TAl)
PAC
ISZ
Jl"lP*

ANRWO
ANRl~O

HANCNT

IGET r'lASK POSITIONED FOR THIS

/HANDLER NO. AND SET HANDI..,ER
IREWINDING BIT FOR THIS HANDLER
ISO THAT IT CAN BE RANOOMI..Y
/SEL.ECTED AGAIN IN SEL.. NEXT.
ItiANDL.ER

CHI(HAN

LAC

( 81

DAC

MTTR
JMP

CHK .. 1U

0.2ft,76 R 6v)21{~1 R
02077 R 442072 R
0210vJ R 622072 R
~i21 ~ 1 R 447423 R
02102 R 602075 R
02103 R 602647 R

'ISZ
JI'I1P*

ISZ
JMP
Jt1P

.EJECT

12000)

IWAIT FOR HANDL..ER
ITO COME READY. NO
140

r~ORE

~lS •

.+3

CHKHAN
CHKHAN
CHK.l

IHANDL.ER READY, RETURN.

.-5
Er~02

o
o

o
0'

o
o
o
o

CL.,RRWD

R
R

ICL.EAR REWINDING HANDLER ROUTINE
I

CI~¥~.2
CKR~I.2

INOT RDY, ERROR

THAN

o
o
o

()

o
10

o
o
o

o
o

o
o
c)

PAGE

3 ~;

MAGTAP SRC

o
1***************************************************** ****************

021 (1)4 R !~0(iHH1{!l
v121 ~j 5 R lVj~102
021~~6 R 740200
021vJ7 R 602137
02110 R 2fl)0162

ISELECT

NE~~

I
SLNXHN

St.. NX.5

J(15

SZA

R
R

LAC

JI'lP

02111 R 740~v)1 A
~)2112 R 7412{1J0 A
~) 2113 R 6td2665 R
~)2114 R 147001 R
02115 R 741100 A
02116 R 61(12122 R
~12117 R 744010 A
02120 R 447b~)1 R
02121 R 602115 R
02122 R 2075£11 R

CMA
SNA

~2123

Jf 1S

SELT'AB
SLNX"l

ANRWD

JMP

ER20

DZM

SLX.l#

SPA
JMP
Ret..
lSZ
JMP
LAC

R t 0v~621 R
v.12124 R vHH~'045 R
vJ2125 R 34!!1043 R

02126 R 707326
02127 R 2r~7 6~H)
~]213~1 R 040115
02131 R 600306
02132 R 207501
02133 R tra2~57
f!12134 R 207532
02135 R 04~115
02136 R 602100
02137 R 1.01624
02140 R 507557
~12141 R 1l)475vll
02142 R 347601
v.12l43 R (~475v)2
02144 R 2275vJ2
02145 R 7402~Ha
02146 R 602137
02147 R 207501

NEXT HANDLER ROUTINE.

.OSA
TAP

.. +4

.... 4

SLX.l
GET
HANONM
NOOPl

ISET HANDLER SELECTION

!eXIT TO MONITOR SETTING
IDISTRIBUTOR S\~rTCH TO RETURN
IHERE ON INTERRUPT.
IAFTER REWINDING COr·1PI.E TE.
ICL.EAR REv-lINDING 8IT FOR 'THIS HANOL.ER.

tl Tl. C

R
R
R
R
R
R
R
R
R
R
R
R
R
R

LAC

(Sl.NX.4)

(JAC

OlSTS~~

JMP

EXIT

t.. AC

SL..X.l
CLRRWD
(RANl'ST)
DIS TS ~~
Sl.NX,,5
RANGEN

R
R
Ql2150 R 1i140065 R
02151 R 622104 R

JMS
LAC
[) AC

JMP
SL.NX.l

J~lS

AND

(7)

DAC
TAD
DAC

kAC*

SLX,l
(SELHAN)
SLX.2#
SLX.2

SZA
Jt'1P

Sl.NX.l

LAC

INO RE~~rNDS"'ALL OUT OF HAND~ERS.
IYES AN OUTSTANDING REWIND.
IFIND FIRST REWINl)ING HANDL.ER
If'OUND.
INOT FOUND, CONTINUE SEARCH~

SL.X .. 1

Sl.NX.4

IGET NO, Qf HANDLERS AVAILABLE
If"OR RANDOM SELECTION,
lONE OR MORE AVAILABL.E.
INO HANDLERS AVAILABL.E FOR SELECTION. CHECK
IFOR AN OUTSTANDING REWIND,

S~X.l

OAC

THSHAN

JNP"
.EJECT

SL,NXHN

o
0

o
o
o
o

IRESE'f OISTRlBUTION SI~ITCH,
ITRY AGAIN.

IGET NEXT RANDOM NUf1BER
lAND cHECK SELECTION 'r ABLE
ITO DETERMINE IF THAT ONE
lIS AVAIL.ABLE.

INO, GET ANO'THER HANDL.ER NO.
IYES, l)SE THAT NO" FOR NEN
!NEXT HANDL.ER.
ISET OL.O NEXT HANDL.ER IN THIS
IEXIT.

o
o

o
o
o
o

o
o
o

PAGE

MAGTAP SRC
/ROUTINE TO DETERMINE

02152
02153
02154
02155
02166
eJ2157
0216t~

02161
02162
(~216a

v12164
02165
02166

R V) QH1 llJ 00
R 777770
R 11147472
R ~H~7601
R r~47 47 3
R 750~H~1
R 067473
R 447473
R 447472
R 60216el
R 2'17601
R ~47473
R 147472

/
St::LTA8

LAW
OAC

R
R

DAC

k.AC

SELT.l

R
R
R
R
R

CLC
OAC*
ISZ
ISZ
JMP
LAC

"' 1 ~l
St::l.. .. l#

(SELHAN)
SEL,2#
SEl. .. 2

SEL.2
St:L.l

SELT .. 1
(SEL.HAN)

DAC

SEl... 2

PZM

SEL.l

02167 R 20)0161 R
~1217'" R 501/'162 R

LAC

ACTIVE

AND

ANR~~D

~)2171

R 74010~1
02172 R 602175
021713 R 167473
(~2174 R 447472
02175 R 744~j10
~12176 R 7412~Hj
02177 R 6022~2
QJ22l!l0 R 447473
022~j 1 R 602171
~)22!12 R 207472
022vl3 R 622152

A
H
R
R
A
A
R

SEL.T,,2

St::L.T.3

R
R

SELT .. 4

ARE AVAILABL.E:: FOR RANDOM SELECTION_

SMA

JMP
Dzr-1*
ISZ
ReI..

SELT,,3
SEL..2
SEL.l

ICL.EAR SEL.ECTABLE r1ANO~ERS
ITO MINUS ONES,
lAS EACH ~iANDLER IS EXAMINED FOR
ISELECTABILITY, ITS ENTRY IS ZEROED
IIF AVAIL,ABLE FUR SERVICE.
IRE TURN TO SL.NXHN ~I I TH NUMBER
IHANDLERS AVAILABLE.
lAND TOGETHER THE FOLLOWING TO DETERIMINE SEl.EC'TABIL.ITY.

IACTIVE:0=INACTIVE;1=ACTIVE
IARWD,0=REWINDING;1~NOT REWIN£)ING
ISPECIAL:Vj;;SPEC. SEG;l=NOT SPECIAL.
IAL.L THOSE WITH A ONE RESULT ARE SELECTABl..E
ICHECI< L.EFT MOST BIT __
IOFF"'NOT AVAIL..ABI,..E.
ION-Cl..EAR HAND~ER ENTRY"
ICOUNT THE NQ.AVAIL.ABL.E.
ISHIFT TO GET NEXT ONE.

SMA

~iANDLt::RS

\.9

A
R

~JH I CH

JMP
ISZ
Jr·,P
LAC

JMP*
.EJECT

SELT.4
SEL.2
SELT.2
SEL.l
SELTAB

/DONE.,NO MORE AVAILABL.,E.
INORE AVAIl.ABLE",GET THErvl.
ISET NUt1BER AVAILABLE IN AC.
lAND RETURN.

o
o

o
III

o
o
o
()

()

PAGE

1***************************************************** ****************
~2204

o
o

o
o
o

o
o
o
o

o
()

MAGTAP SRC

022115
02206
~122~17

0221 ~)

02211
02212
02213
02214
02215
02216
02217
02220
02221

R V1~HHtH'0 A
R 2076kl2 R
R (~4~1115 R
R 1 ~H~H) 13 R
R U~0525 R
R 602665 R
R 1{t)1242 R
R 101513 R

CL,BI11

OAC

LAC
OAC*
LAC

RANLEN
TS1.2#
(BUF1"1)

R ~07466

R
R
R
R
R
R
Ii
A

T5T1,,3

TST1,,2

~12246

R 102543 R
02247 R 602665 R
~12250 R 207603 R
02251 R (~40115 R
~

IOCTA~,

JMP

ER2v)

\]MP
0

EXIT
CHKOPR

TST1.4

,,+3
TS1.2
TST1.3

I.,.AC
TAD ..

HANNlJM

REWNDl

CMD

DAC*
JNS
JMS
JMP
LAC

ER20
(TST1.4)

DAC

OI5TS~~

JMP

EXIT

CLRDIS
TRNCMD

lil

.EJECT

o
o

IHANDLER NOT READY ERROR ..

ICHECK OPERATION

SVSTAT
( 4 '~,1(~Hl.l )

JMP
ISZ
JMP

JMP*

SZA

02244 R Vl6~'06 7 R

R 62221()4

Jl'"lS

AND

IGENERATE WRITE COM~lANO "
ICI..,EAR WRITE BUFFER TO ALL 1 'S
ISET NUMBER OF CYCLES TO 3~HJ

CA
~II C

JMS

IGO TO PO!..!.. HANDLERS AND
IFIND l)NE ACTIVE!!!
INONE ACTIVE~TEHMINATE~
ISET THIS HANDL.ER
ICLEAR PARAMETERS

RECLEN
HOLD
TRNCMD

LAC

02252 R 600305 R
02253 R rl)v)0~.HH.'J A

GEN\~RT

J~lS

ISET DISTRIBUTION SWITCH FOR RETURN,

( 1)

(JAC*

R
R
A
R
R

02245 R 101513 R

~2254

SETNXT

CLRDIS

J ~iS

R 360~}77 R

02237

J t1S

ER20

LAC

~}2243

ti12235
~12236

OISTSW

PULINT
POLHAN

R 102274 R
R

R 602226 R.
R 2~j1i.1044 R

022;~4

L>AC

JMS
JMS
JMP
JMS

HANCNT

~2241
~12242

'12233

(1'5'1'1.2)

LAC

(1224v)

~12231

02232

I",AC

DAC
Jr1S

R 102543
R 602665
R 60VJ3v.j6
R 13 {!H~ 0(10
R t~(i)661
R 2~J0110
R 5(1,17564
R 7 4~2~,0
R 602242
R 447515

02230

(ij

R ?Q?7521 R

02225 R 06ll}071
ej2226 R 1v'23i17
~12227

EXERCISER TEST

R (147446 R
R 102255 R

R 2f17465
R r~47515
")2222 R 2~~7576
02223 R 060070
~12224

I\'JR I TE
TSTl,.l

TST1.1

ICOUNT END
INOT END

o
o
o
o
o

()

(

PAGE

i1 AGT AP SRC

IGENERATE:: A WRITE COHMAND
I

0
0

02255 R (~(~ 0 (;H~Hd
02256 R 20Vl036
y]2257 R 36t.lH177
0226~j R 360075
~2261

02262

()

02263
(1)2264
02265

02266
[12207
02270

02271
~j227 2

02273

R V16!~~67
R 2Q)7576
R 060070
R 200061
R (~60072
R 207565
R 1(10621
R I/H~H) 116
R 06(~~76
R 46{f11t10
R 622255

GENWRT

WRITE
HANNUM

LAC
TAD*
TAO ...

!)ENPAR

PAC*
l.AC

ChD
(BUF1-1)

()AC1t

R
R
R
R
R
H
R
R

LAC
DAC*
LAC

CKWRT

CHKPTR

Jf1S

GeT

R
R
R

.OSA

NONSEN

ISZ*

CMDCNT

GENWRT

leL-EAR BUFfER TO MINUS ONES.

02274
02275
02276
02277
0230k'

v12301

R ot00kH.10
R 207604
R 047434
R 7740e7Q)
R (~47435
R 207 46~j
R (167434
R 447434
R 447435
R 602~02
R 622274

A
R

DAC*
15Z

02305

~H~3(!l7

R '~0!i)0~0 A
~)2310 R 750004 A
02311 R 507521 R

~j2312

LAC

DAr;
LAYI
DAC
I.. AC

02306

(!1

R
A
R
R

023k)2
vi2303
0231~4

CLBt11

R
R
R

ISZ

R 741200 A
02313 H 5223ei7 R
(02314 R 100433 R
02315 R 6l112;,310 R

I
HOL.O

(BUF1)
h 6f1. 1#

~BUFSIZ

CI.. 8M .. 2#

PATTEN
Cl.BM.l

CI..Br~. 1

CL..B~'. 2

J~'P

, ... 3

.111P*

CL..BMl

Ai~D

( 1)

SNA

JMP*

HOl,.P

JI1S

BREAK

JMP
,EJECT

o
o

IINCREMENT COMMAND caUNT,
IEXIT.

o
o
o
o

o
o
o

LAS

ISET CHECK WRITE POINTER.

NONTA8

ISET IN ClJt\'lMAND.

(4)

DAG.
Jt1P*

IGET WRITE COMMAND
15ET HAND~EH NUMBER,
IDENSITY AND PARITY AND

","'5

()

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

- - ---

.....

-- - - -- - -- -

-- -- - - - -

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

--)

PAGE

MAGTAP SRC

o
o

1***************************************************** **************
IWRITE EXERCISER

TESTl

02323 R 1i1Q}000v) A
02324 R 207547 R
P}2325 R tfl47514 R

JMS
JHP

o
o

o
o
o
o

.. __. -.. -'.~-' ---- -- -- -

----

( 1)

TSTNO
TST1.1

TERMIN

TEST2

lit

LAC

(2)

OAC

TSTNO

JMS

TST1.1

CL.C
TAD

TS1~2

A
R
R
R

CMA

TAD
DAC

RANL.EN

~J MS

TST2 .. 1

Jr1P

",-6

TS2,,1#

ISET TEST NO. TO 2.,
IWRITE RECORDS,

/READ RECORDS,

1
1***************************************************** **********************

I
(.12337 R 1 ~H~625 R
0234Vl R 2076k?5 R
02341 R ('140115 R
02342 R 1023~17 R
~12343 R 1~}2543 R
02344 R 602665 R
02345 R 60vJ3vi6 R
02346 R r~00000 A
k12347 R t0~661 R
[.j 23 tH1 R 20r~110 R
02351 R 507564 R
02352 R 74V12~H1 A
02303 R 602356 R
02354 R 447516 R
02355 R 6Vl2342 R
02306 R 2'H~044 R
(12357 R 36(1)(177 R
v.12360 R ~6C1~67 R
(12361 R 1'11 0 13 H
02362 R 10.2543 R
V12~i63

TST2,1

TST2,3

T5T2.2

L.AC
DAC

GENRD
CTST2.2)
DISrSW

JMS

HOL.U

JMS

ER20

COMMAND.
IHANDLER NOT READY,

Jf1P
t1

EXIT

IEXIT.

JMS

CHKOPR
SVSTAT

ICHECK OPERATION

TRNCMD

AND

(40i(JI/) ,

SZA
\1IYjP

,+3

ISZ
JMP
LAC
rAO ..

TS2.1
TST2.3

CLRDIS

JMP
LAC

ER2t1
(15T2.4)

JMP

DISTSW
EXIT

I(}

J r'1P'"

TST2.1

0
0

ICOUNT CYCL.ES,
INOT DONE, REPEAT.

0
0

CMQ
TRNC~'D

ITRANS~1!T

REWNDl
HANNUM

DAC*
JMS
JMS
DAC

TST2.4

/ ASSU~,,":S EXECUTION OF TST1,1
IGENERATE A READ COi~ •
ISEl' DISTRIBUTION SWITCH.

JMP

LAC

(1)2364 R 2076v16 R
023£55 R (1}4v)115 R

0237'1 R 622336 R

Jt-lS

R 602665 R

012366 r~ 60~3~16 R
02367 R 0100000 A

0
0

IWRITt:-READ EXERCISER TEST

02336 R (~~"0~100 A

1
1**** WRITE""REA(J EXERCISER

02326 R 1102204 R
eJ2327 R 75(7.11001 A

L.AC
OAC

R '~47b14 R
02321 R 102204 R
02322 R 60(1367 R
02~2v)

02330 R 347515 R

...

1
02316 R 00~0vH) A
~j2317 R 207521 R

02331 R 740001
02332 R 347465
02333 R (147516
02334 R 102336
02335 R 602327

- - - - -_.- - -

- -

ITRANSMIT IT.
NOT READY.
ISET DISTRIBUTION S¥JITCH.
IHAND~ER

/C:XIT.
IDONE REWINDING, RETURN.

I
I

()

PAGE

MAGTAP SRC

.eJECT

()

/-.)

o
o

C)
o

PAGE

MAGTAP SRC

1***************************************************** ***********
I

QJ2371 R ;i1 ~} 121 ~) vH) A

02313 R (147514 R
02374 R 1'12376 R

o
o

TEST3

(12375 R

6(~0;~67

()

o
o
o
C)

o
o

(3)

TERMIN

ISET TEST NlH·,BER ..
IGO TO TEST
IEXIT, END OF' TEST.

~iANCNT

I SEGt1ENT 1 ,

TSTNO

TST3 .. 1

I
023/6 R liHH10 v., v) A
02377 R 147446 R
024~10 R 207610 R
024(i11 R ~4Cj115 R
~}24kJ2 R 1'10513 R
02403 R 100525 R
02404 R 6~j2665 R
~2405 R 447446 R
~'2406 R 047517 R
~1241(i)

LAC
OAe
JMS
JNP

02372 R 2~)7607 R

TST3 .. 1

R 547521
02411 R 7410kH1
02412 R 6~)2416
02413 R 207517
~'2414 R ra47447

02415 R 602403
~j2416 R 207517
02417 R l'i147450
0242k:' R 101242
02421 R 101513
02422 R 207447
02423 R l{1)t242
02424 R 101f:>13
~2425 R 102274
02426 R 1"'2205

R
A
R
R
R
R
R
R
R

'1
OZM

TS'T3.7

02407 R 207446 R

()

LAC

CTST3 .. 3)

DAC

() I S'f S ~~

JMS
JMS
JMP

POLHAN

ISZ

HANCNT

02433 R 51.17057 R
02434 R 100621 R

JMP
LAC
DAC

TST3.6
T53,,1
HANN01#

~JMP

T5T3.7

LAC

T53 .. 1
HANN02#

Ji15
,JMS

LAC
£JAC
TST3,,4

o
o

R
R

02430 R 0147517 R

()

HANCNT

R
R

(1)2431 R 1!.123V;J7 R
~12432 R 101624 R

CNT.

TS3,1#

JMS
JMS
LAC
Jf'lS
JMS

Q12427 R 2ft17465 R

HAND~ER

LAC

DAC

R
R

ER20

CLR

OAC

SAP
SKP

TST3,,6

POLINT

INI'T'"

C1 ,

SETNXT
C~RDIS

HANNOl
SETNXT
CL..RDIS

CLf:3Ml

GENWRT
RANLEN
TS3.1

Jr1S

HO!,..O

JMS

RANGEN

AND

(7)

JMS
.DSA

GET
RECTA6

02435 R '100141 R
02436 R 74VJ0~11 A
~'2437 R 347521 R
0244(.1 R Vl60@71 R

OAC*

02441 R 102543 r~
02442 R 602665 R
02443 R fH.H~31()6 R

JMP

Cf1A
TAO

JMS
JMP

.EJECT

( 1)

TRNCMO
ER2~1

EXIT

o
o
o
o
o
o

()

( ..... ')
.........

PAGE

0
()

4 ~1

A
R

0245~1

02451
0.2453

02454
02455
QJ2456

()

02457
02460
~t2461

02462
Qj2463
~2464

0
0

SRC

02444 R 000fiHi'J0
(~2445 R '.0t~661
02446 R 2vH1110
(~2447 R 507564
02452

~1AGTAP

R 7402Vl~j
R 6('-'2454
R 447517
R 6~2431
R 2~H~e; 44
R 360k,71'
R (i)60067
R 1~'1513
R t~J2543
R 602665
R ?07611
R l-140115
R 75011HQl

T5T3,,3

Jt1S

CHKOPR

LAC

SVSTAT

AND

(4Qi~0)

5LA
Jr"1P

R
R
R

ISZ
JMP
LAC
TAD*

R
R
R
R
R

R
A

02465 R 347517 R
R 740001 A
02467 R 347465 R
0247(1 R (;147517 R
v12471 R 600306 R

HANNUj>,
C~lD

Jr1S
Jr1S

CLRUIS
Tt-<NCMP
ER20

0
0

02475 R 101242 R
~'2416 R 207612 R
02477 R Ql4vJ115 R
vj2500 R 102625 R
025111 R 102543 R
02502 R 602665 R
'-12503 R 60vJ3~H5 R

0
0

o
01

CLC
TAf)

1'53,,1

JMP
TST3.5

(TST3.5)
DISTSW

RANl..EN

TS3.1
EXIT

02472 R 1~000v.J0 A
02473 R 1023qj7 R
02474 R 207447 R

L.AC
DAC

Cf1A
TAD
OAC

~12466

TST3,4
RE~JNDl

OAC*
J~lp

R
R

,,+3

TS3.1

J f1S

LAC

HOLD

~iANNO 1

JI"lS

SETNXT

LAC

(TST3,,8)

OAC

JMS
JMS

OISTSW
GENRD

Jf1P

TRNCMD
ER20

JMP

EXIT

.~JECT

o
01
()

o
o

(.-,

)

.....

(-"J
.-.-'

PAGE

0
0
0

~)25¥J7

R 507064
VJ251VJ R 74fIJ2vHJ
02511 R 6kl2542
02512 R 1~)23VJ7

02513
vJ2514
v)2515
v.)2516
'12517
02520
~)2522

~12523

v)2524

SRC

02504 R ItHHH?;0~1 A
kJ 2 5~) 5 R 1';H)661 R
02506 R 20~)11~) R

02521

MAGTAP

TST3~8

A
R
R

\(1
JrlS

CHKOPR

LAC

SVSTAl

ANt)
SL.A

(401(J0)

JMP

TST3.2

Jf1S

HO~D

R 2y)745~ R

LAC

HANN02

R 101242 R
R 207613 R
R &14f;'115 R

Jf1S

SETNXT
(TST3.9)

R 102255
R 750~Hj 1
R 340112
R 7 4(~001.
R 340163
R 7412vH1
R 5~l2664
R V160071
R 102543
R 602665

02525
02526
02527
02530
025J1 R 600~H?j6

L.AC
DAC
Ji1S
CI..C
TAO
CMA
TAD
SNA

R
A

R
A
R
A

SV ~~C

MAXBUF

0
0
0

Y'10~J0~HQ

T5T3.9

02533 R 100661 R
y} 2 5J 4 R ?01t111~ R
02535 R 507564 R

02542 R 622376 R

JrviP

EXIT

0
JI'lS
ANI)
SZA

I
TST3,2

TRNCMIJ
ER20

LAC

02536 R 74020rJj A
02537 R 602542 R
02540 R 447517 R
02541 R 602473 R

J~lP

I
02532 R

Jr1S

R
R
R

GEN~~RT

0 ,

ER17

JMP
DAC*

R
R

DISrSW

CHKOPR
SVSTAT
(4000)

JMP

TST3.-2

lSZ
JMP

T53.1

JiiP~

T5T3.1

.EJECT

TSTJ.5+1

o
0

()

o
()

o
o

o
o
o
o

o
o
o

PAGE

MAGT AP sr~c

ITRANSNIT CO~H~AND TO HANDL.ER.
I
~)2543

02544
'12545
02546
02547
~J2550

02551
02552
02553
02554
~)2555

02556

(12507
02560

R rHHHHHl A
H 22vH171 R
R f~60114 R
R 220~17~ R
R ~6Vil13 R
R 220067 R
R 707321 A
R 6(~2551 R
R 7~7326 A
R 707352 A
R 507534 R
R 7452t10 A
R 6~j2073 R
R ~(~(iHHij0 R
R 507614 R
R 547614 R

TRNCt1(J

'1
l,. Ar:

OAC*
LAC*
DAC*
l.AC*

sys~~e

SYSCA
CMP

NTCR

JMP

"",,1

MTL.C
(10)
ANO
SNALCLL
JMP
TRNC.l
UOOSW
L.AC
(3QH10)

vj2563 R 602573

JMP

TRNC,l

~)2564

RTR

02565

02566
02567
~257'j

02571

R
R 742v-'20 A
R 740~'20 A
R (/1475k)4 R
R 7~17312 A
R 507615 R
R 2470(1,)4 R

02572 R 707326 A
02573 R 102~)72 R

R 622543
R 102307
R 707304
R 442543
Q'26(i)vl R 622543

02574
02575
02576
02577

R
R
A
R
R

ITHEN, GET CURRENT COMMAND
lAND CHECK CONTRO~LER.
INOT READY, ERROR AND TERMIN,
IREADY, L.OAD COMMAND AND

MTRS

ANI)
SAO

~12561

02562

IfRANSMIT COMMAND SUBROUTINE,
ILOAD we AND CURRENT ADR~
IFROM OPR TAB,

o
o

o
o
01

(300M)

f~ AR

DAC

SVPAR#

tl\TRC

ANO

(777477)

XOR

SVPAR

t1ThC

TRNC.l

JMS
Jf'f1P ...

JMS

CHKHAN

TRNC~'D

HOLD

MTGO

ISZ

TRNCMD

Jr1P*

TRNcr~o

.t::JEcr

....,

ICHECK HANDl..ER

10K, SET GO.

INEED ANOTHER HANDLER,

C)
o

o
o

PAGE

IfHJfFER

o
o
o
o
o

BUfGEN

DATA

GENERATION ROUTINE

l.. A ¥~

JMS

SNA
Ir.JMP

.-2

DAC*
lSZ

BUf.2#
BUF.2

OAC

0262~'

ISZ

"'4t1

BLJF,lU
RANGEN

/FORTY OC TAt. LOCATIONS PER
IENTRY

BUF' ,,31#
RESt;3UF

ISZ

BUF.l

Jr'1P

_",,11

JMP*

t3UPGEN

t~00000

A
R 7 7 4yH~1~) A
R 047422 R
R 207604 R
R 047421 R
R 622617 R

RESBUf

~BlJfSIZ

BUF.3

L.AC

(BIJF1)

PAC
Jj'tlP*

BUF.2

A
R
R
R
R
R
R

~12633 R ~6(1!1J70
02634 R 2C1l!1163 R
02635 R r~60071 R
02636 R 2(t}0~57 R
02637 R (16~lv)72 R
'12640 R ~07547 R
02641 R 1 C.H10 21 R
02642 R ~H10116 R
02643 R o;60~76 R
(~2644 R 460100 R
02645 R 622625 R

GEN!~D

RES8UF

()

I
I
I

02625 R 0vH~~H21v1
(12626 R 200034
02627 R 360~~77
02630 R 36~H175
02631 R 06ri)vJ67
~12632 R 207576

Y-J

l. AI~
OAt:

o
()

SKP
J~lS

o
o

A
R

R
R
0261~) R 447421 R
02611 R 447422 R
02612 R 741~QJ(ij A
02613 R 1102ti17 R
~12614 R d47420 R
02615 R 602604 R
02616 R 622601 R

02621
02622
02623
02624

R tHl(i)0v..H) A

02602 R 77774fiJ
tfJ2603 R r14742k)
0261!J4 R 101624
026~5 R 741200
026~6 R 602604
02607 R (il67421

RANOOI~

I
r~26~Jl

02617

MAGTAP SRC

IGENERATE READ

ti1
LAL~

READ

TAO*
TAO*
DAC*
LAC
DAC*

HANNUM

L.AC

DENPA~

CMO
(BUF1""1)
CA
r~1AXBUF

DAC*

vH;

l.AC
()AC*

CKREAD
CHKPTR

LAC

(2)

Jt1S
.. DSA

GET
NONTAB

DAC*
15Z*

CMOCNT

,H1P""

.. EJECT

N()NSEN
GENRrj

o
o
0:

o
0

o
o

()

/ .... \

()

\J
PAGE

~1AGT AP

SRC

I***********************~***************************** ******************

IERROR DECOOER A.ND PROCESSOR.

I
JI1S
Jr15
Jf1S

ERRv.H'l

ER~)5

JMS
JMS

ER06

JI1S

ERRvj2
ERR02
ERR03

IPOSSIBL.E ERRORS-"'"-,·"·
ICONTROLLER NOT READY AT INITIATIllN.
ISEhECTEP TRANSPORT NOT READY AT INIT.
IILLEGAL COMMAND RETURN.
IEF HIGH, NO CAUSE BITS HIGt·i.
INONSENSE BITS HIGH FOR THIS CMD"
IdAD TAPE ERROR--INITIATE RECOVERY"
IPARITY ERROR,
IDATA REQUEST LATE E~ROR.
IWC-·CA ERROR ON READ.
IWC"'~INCORRECT LENGTH aIr ERROR.
I ~'JC--C A ERROR ON v~RITE"
I ~lC NON--ZER0 AFTER \~R I TE
It:Of BIT NOT SET AFTER WRITE.
IILwL.EGAL, ENTRY TO MAG~ TAPE.
INOT BOT AND CNTR=0.
IAL.L. OUT OF HANDLERS

02646 R 102671 R
02647 R lCi.i2677 R
~)265v.} R 102723 R
02601 R , ~)2723 R
vJ2652 R 102723 R
02653 R U:12727 R
02654 R 601144 R
02655 R Ud2723 R
02606 R 1~j2723 R
02607 R lk'2723 R
0266(1 R 102723 R
02661 R 102723 R
'12662 R lv.12723 R
~12663 R 1.02671 R
~'2664 R 1£12671 R
02665 R 102671 R
02666 R 102733 R
v.i2667 R 1.02733 R
0267f' R 102733 R

ER01
ER02

02671 R CH1Q1QH10 A
02672 R 103075 R
02673 R 777777 A

ERRVl0

'12674 R C147441 R

DAC

""1
f)UNE

02675 R 1t1~~135 R
02676 R 6VH{t367 R

Jf¥tS

ENDPUT

JMP

TERMIN

ISET ERROR NUMBER AN[) SYSERR
IFLAG AND TERMINATE.
ITRANSPORT NOT READY, SET ER",NUM.,
cor1~1AND , AND SYSERR
/HANDI...ER Nl,JM""

t·",

()

0
0

0
0
0
,.-,
U

0
0
0

ER04

ERR~l
ERR0~

ER07.1
ERRltJ2

ER~17

Jr"P

ER10

ER11

Jr'iS
Jf1S

ERR02

ER12

Jr1S

ERR~j2

ER13
ER14
ER10

JMS
JMS

~J MS

ERR02
ERRvJ2
ERRI'J2
ERRI10
ERRld0
ERR00
ERR!t.14
ERR04

Jr1S

ERRVl4

Jt1S

ER16

Jf1S

ER17

JMS
JMS
JMS

ER20

ER21
ER22
ER23

JI"S
L AY~

ERNUM

ERH~91

(i)

JNS

ERNUM

LAC.

CMO

JMS

PUT

l,AC

THSliAN

JMS

GET
MSKTAB
ACTIVE
ACTIVE
ENDPUT

• ()SA

AND
DAC
J~'S

CLC

HANCNT
HANCNT

ICONTROI...LER NOT READY

IDE .. ACTIVATE THIS
IHANDhER •

IPECREf1ENT HANDLER COUNT AND
ICHECK FOR NO MORE L.EFT AND
INONE RE,~ I NDIN G

TAO
(JAC
SZA
Jr1P'"

CHKHAN

LAC

ANRWI)

Cr'l A
SZA
JNPoJr

ICHECK FOR
IANY REi~INDINr;.

CHK~iAN

IYES, CONTINUE.
IND. TERMINATE

JMP
.. EJECT

ER2l!l

o
o

()

o
o
0

o
o
o
o

R (/1~) 0 til y}0 A
~)27t~0 R 103075 R
v) 2 7 QJ 1 R 220~j67 R
02702 R 103131!l R
02703 R 2vJ011.165 R
02704 R 10~621 R
027 1!J5 R OH1<1131 R
027ro6 R 5~0161 R
027eJ7 R (44~161 R
02710 R 1(13135 R
tiJ2711 R 7ovH1!ill A
02712 R 347446 R
02713 R ~47446 R
02714 R 74'1200 A
02715 R 622072 R
02716 R ~00162 R
~l2717 R 740~)01 A
(-12720 R 74l~20vJ A
02721 R 622(1)72 R
~J2677

02722 R 602665 R

ER03

--'--

.. _- -

- -- - -- -

--- -

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

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

- --- ... _- - - '- - - -- - -

- - --

()
PAGE

0
0

Sf~C

MAGTAP

lUTHER ERRORS, SET ERROR

02723 R r,H~0 ((, t1:{J
(lJ2724 R 103~}75
v.12725 R 1.t1305t1
02726 R 602771

ERR02

R
R
R

Jf1S

ERNlH1

ERR2.1

JNS

ERRPUT
ERR .. 1

~'2727

JNP

IT~'iEN

SET

RE~'AINING

NUt1BER

PARAMETERS.

ERROR

0
0

0
,,-....

0
0

R r~00~'~HJ
027 3~1 R 1~J3QJ75
027~1 R 1(1~;050
02732 R 603~lt~ 1
02733 R (iH~~H1(/H1

R
R
R
A

ERR~3

Jr¥lS

ERR04

02734 R 2'127~~3 R
~}2735 R v,42742 R
vl2736

02737 R 74120!1.l
02740 R 602743
02741 R 620666
02742 R ~0'''0yH1
02743 R lei3075
02744 R 22{~067
02745 R 10313fJ
02746 R 2{10110
02747 R lk,3130

0275(1 R 220ti)73

v12751
02752
02753
02754
")2755
(12756
02757
0276'1
02761
02762

1I12763
~'2764

02765

02767
02770

~}2766

R 1(13130
R 203414
R 103130

R 203415
R t~'3~30

A
R
R
A
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
A
R
R

JMS

ERf~PUT

BADTAP

LAC

ERR04

DAC

ERR4.2

ERR4.2
ERR4,,1

JNP

ERR4.1

J"1P*

CKSR2

Jt'lS

ERNUf1

LAC*

C~1D

JMS
I,,,AC
Jr'lS

PUT

l.AC*

Jr.,s

CNTR
PUT
BUFl
PUT
BUF1+1
PUT
(BUFSIZ
SVWC
PUT

~AC

ERR.22

JMS
LAC
JMS
l,AC

TAD

~J~1S

SVSTAT
PUT

ENDPUT
CNTR

LAC'IIr

CNTR
CNTW

NQP

DAC*
JrtlP

( )

o
o

PUT

JMS
ISZ*

o
o

RANTSti

JMS

ENDPUT

LAC

TSTNO

A
R
R

SZA
Ji'1P*

CHKOPR

L.AC

ERN.l

02776 R 547607 R

SAO

(3)

JMP

02777 R 60ril6A7 R
03v)00 R 62t~661 R

RANTS6
CHKOPR

Jt-1S
L.AC

I
ERR.1

o
o

TSTNO

02771
02772
02773
02774
02775

R 207514
R 7402~0
R 62~661
R 207443

INUMBER, THEN REMAINING PAPAMETERS
lAND FINAL.L.Y BAP TAPE SPECIAl. SE(~ •

SNA

R 207564
R 34~112
R 1,03130
R ~[tj7444
R \fd3130
R 1~131;,s5
R 46lfHl73
R 740000
R 220~73
R ~60074
R 600647 R
R 103135 R

SET

ERNUr,1

JI'1P

LAC

R 2~)7514 R

IBAO TAPE ERROR.

¥1

ICLOSE PUT ROUTINE, IF SECOND ERROR

o
()

o
o
o

Jt1P*

.EJECT

/ENOPUT RETURNS T () SEL.ECT NEXT

OP~R.

()

("')
.........,

PAGE

v) ~Hj01
~)3002

,. ........)

t130vJ3

03~r,16

~}3~1v14

03t1j05
030~'7

0J01v.l

()

v.)J011

03012
03013

03~14

03015

til:ivJ16
03017

NOP
LAC

TAD*

R
R
R
R
R
R 777777 A
R ~6",~j/l R
R U~3135 R
R \vJ2543 R
R 603~44 R
R f50(~306 R

DAC*
LAC

03030

~)J031

R 207617 R

03023
0avJ24
03025

BADTAP

R
R

03026
0Jk127

A
R

R 000~HHtJ
R 20~H1)42
R 36Cd075
R 360077
R 060067
R 200163
R ~6~H)71
R 2VJ7576

~3021

R 740v.HH}
R 2~H1\041
R 3611075
~ 360t1)77
R t~6v.~~J67
R 200115
R ~'4 7 470
R 207616
R 04y1115

SRC

TAO ...

SPCREV
DENPAR
HANNUM
CI1D

LAC
(JAC

DIS'fSW

LA~i

-1

DAC*

VIC

JltlS

ENOPUT
TRNCMO
BOTAP3
EXIT

Jf~S

JMP
JMP

VJ3(~22

vJ30~~2

~~60vJ7l1

BDTAPl

til

TAD*
DAC*

WRTEXT
OENPAR
HANNUM
CMD

LAC

~'A X8LJf

LAC

R
R
R
R
R
R
R
R

TAO ...

R t~4~'115 R
0,13(133 R 2k10v161 R
03t134 R ~GvHtj72 R
03(135 R 1 (lJ2543 R
vJ3036 R 603t144 R
03037 R 6'HiJ306 H
R V10Ctl000 A
03041 R ~~)7470 R

0.3042 R ilJ 4~' 115 R
03(143 R 6~H1642 R

03044 R 207514 R
fL13045 R 547524 R

BOTAP2

L..AC
DAC

(BOTAP2)
DISTSW

LAC
DAC*
Jr1S
JMP
JMP

CHKPTR
TRNCMD
BDTAP3

03(~46

6~)(1650

03{d47 R

6~)0367

R
R

ISET SPECIAL SEQUENCE SWITCH TO
IAVOID SELECT NXT QP FOH THIS HANDLER.

CK vlRT

EXIT

o
o
o

ISECOND PURiION Of ~AD TAPE
ISEQUENCE. FORCE AN EXTENOEU
/WRITE

o
o

(aUF1-1)

ISET CHECK POINTER AS fOR A
INORMAL. WRITE,
/RETURN, TO NORMAL. SEQUENCE,

SAVL>IS
OISTSW
RANTST+l

o
o

LAC

TSTNO

SAO

(0)

JMP

RANTS3

Jr1P

TERMIN

.EJECT

DAC
.JMP
I

BOTAP3

ITHE NEST OPERATION FOR THIS
IHANDLER"

DAC*
LAC
DAC*

I
~1304t1

L)ISTS~~

SAVuIS
(BOTAP1)

DAC

TAPE SeQUENCE. PERFORMED
lIN THE EVENT OF A BAD TAPE
IERROR. THE SEQUENCE IS AS
IFOL~OWS. A FORCED BACK~ARD
15PACE IS ARTIfICIALLY SET AS
I~AD

03v)2~j

MAGTAP

C~)

PAGE

47
~1J0tHiJ

~'3051

vl3(102

~l30 5 4
~j ~HtJ 5 5
~1~H~56

0
0
()

0'
0

()
0

0
()

~'30b3

t~AGTAP

R ~4 (1 Ii' 0 ~H1
R 22vH)67
R t 'i}313(~
R 200~}22
R 507557
R 547551
R 7 41l1ell~
R 6~'~i062
R 207503
R 741V..1(f)~!
R 20011v.)
R 1031~i0

SRC
A
R
R

ERRPUT

LAC*

C~lD

Jr"\s

pur

LAC

ERCO()E

ANIJ

(7)

SAO
SKP

(7)

A
03057
R
0:306",
R
(13061
A
03(162
R
0J(tJ6a
R
ft1~3VJG4 R 220~371 R
03065 R Ift)313~J R
(,jJQ)66 R 2~HJ 112 R
rtl3067 R 103130 R
03070 R 22(i)ej7~ R
03071 R lQl;;13~J R
~)3072 R 2'1!il111 R
~131!j73 R 1l1313~J R
fr13074 R 623(~5~j R

J~1P

.. +3

t.AC

SSVTAT

ISET INITIAL COMMAND.

o
o

SI<P

\...AC

SVSTAT

ISET HESU~TING STATUS.

LAC*

vJC

ISET

JMS

PUT

l.AC

S v~~c
PU'T
CA

J~lS

JNS
L.,AC*

PUT

JMS

PUT

l.AC
Ji'iS

SVCA

JMP*

PUT
ERRPUT

INITIA~

ISET FINAL WORD COUNT.
ISET

INITIA~

R 740~H~) 1,
031!{15 R 367443

031!{i4

03lfd6 R 5~7620
0al~~7 R tA,47443
03110 R 103112
03111 R 623075

1\
R
R
R
R

CURRENT

ADORESS~

ISET FINAL CURRENT ADDRESS,

A
R
A
R
R
R
R
R

ANI.)

(77777)
(-2)

ERN .. 1#

CLC
TAO

(ER~11)

IfORM:
I(ERR. ADR.-BASE

ADR.)~ER.NUM.

ERN.l

AND
DAC

ERN.l

Jf1S

RESPUT

Jf1P*

ERNUM

"E,JECT

o
o

CMA

TAO*

o
o

IRETURNf!I

/ROUTINE fOR DETERMINING ERROR NUMBER.
ERNUM
l1
IGET ERROR ENTRY ADDRESS AND
ERNUf1
LAC
TAD
DAC

WORD COUNT.

03075 R ~ 1{1 QI0~) ~1
(13076 R 203~75
~13077 R 5 1!.)7620
0~3100 R 347621
tlJ3101 R 0147443
031~'2 R 75lnl!Hil
(03103 R 347G22

(77777)

ISET ERROR NUMBER IN PROPER TABLE.
IRETURN,

()

()
'-

()

PAGE

~j~~112

~) 3114
(i)~115

o
o
o

03116
~13117

Ql312Ql
Q'~12l

03122
(13123
03124

03125
Q)3126
~)3127

0313r1

~31~3

o
o
o

SRC

IPUT ROUT1NE, PLACES ERROR PARAMETERS IN SUCCESSIVE ~ocs. IN PROPER
IERHOR lA81.,E FOR t·, () NIT 0 R,.
~J~~113

()

MAGTAP

031;31
03132
~13134

03135
03136
03137

o314~]

103141
ti13142
03143
~13144

03145
03146
\~3147

~)31til!)

03101
kJ3152
Y13153

R t~!?\00vJe, A
R ~vj0il12ttl R
R 7.!1v12vH1 A
R 6v13122 R
R ~07443 R
R 040022 R
R 207623 R
R 6~13125 R
R 2El7443 R
R [44 v.1 17:) R
R 207624 R
R t(J47462 R
R 147463 R
R 623112 R
R (I1~J0000 A
R (.167462 R
R 447462 R
R 447463 R
R 62313Q) R
R (iH1~HHHiJ A
R 447463 R
R 2VJ002v.) R
R 7 4020~' A
R 6(13160 R
R ~07463 R
R 740001 A
R 347521 R
R G14t1v.121 R
R 2(17441 R
R 741200 A
R 6 v)3155 R
R 777776 A
R r.~4002~j R
R fH1'~3~J6 R

I
RESPUT

SYSERR

IGET SECOND ERROR F~AG, IS IT ON?

IYES, THIS IS SECOND ERROR,
IND, FIRST ERROR. GET ERROR NUMBER.
ISET ERROR NUMBER,
ISET START PUT AWAY ADDRESS,

DAC

PUTS.l
ERN.l
ERCOOE
(t::RCODE+l)
PUTS.2
ERN.l
SAVERR

LAC
DAC

PUT.l#

SZA

JMP
LAC
DAC

LAC
Jr1P

PUTS.2

PUT

ENopur

1/.1

LAC

PlJTS"l

LAC

PUT,,2#

JMP*

RESPUT

DAC*
!SZ
ISZ
JMP*

PUT.1
PUT.l

0,
ISET START PUTAWAY ADH.
PARAMETER COUNTER.
IEXIT.
IPUT SUBROUTINE, DEPQSITS PARAMETERS
lIN SUCCESSIVE LOCS.
IC~EAR

pur

PUT.2

~AC

5YSERR

ICHECK SECOND ERROR

JMP
LAC

PUTS.3
PUT.2

ION, THIS WAS SECOND ERROR,
IOFF, THIS WAS FIRST ERROR.

Ci1A
TAD
DAC

(1 )

f~AG,

SZA

ERCOOE"'l
DONE

SNA

Jr'1P

PUT.2

'ISZ
"

LAC

ISET ERROR NUMBER,

(SAVERR+l)

OZt1

ENDP.l

L.AW
DAC

.. 2
SYSERR

JMP
,EJECT

EXIT

ISET PARAMETER COUNT IN

o
o
o
o
0:

()

o
()

o
o

o
o
o

PAGE

03154 H 600367 R
03155 R 2(~'7625 R
(I}3156 R (~40~j 20 R
~)3157 R 62~il,35 R
f1:;16~1 R 2 1.!J7463 R
(1)3161 R 7 4r1 (,101 A
~l;S162 R ~i47521 R

03163 R {.,40174
03164 R 777777
~13165 R C147457
v13166 R 2f17621
03167 R fi'4vH12'~
~1317 (,] R 7(1)7322
03171 R 6vHJ306

03172
031/3
~~3174
~)J175

(13176

03177
(il321~0

{I)3201
0J2~2
032~a

032(1J4
032QJ5

()

o
o
o

M,I\GT AP SRC

0J2t16

o32liJ 7
03210
~3211
~)3212

03213

DON.l
ENDP"l

Jf1P

TERI1IN

LAC

C!III 1)
SYSERR

DAC
J~1P*

PUTS,J

LAC

ENQPUT
PUT.2

o
INORMAl.. ERROR TABL.E, SET

/SYSERR TO -I FOR MONITOR.
IEXIT"
ITHIS IS SECOND ERROR, SET

CMA

TAD

C1 )

IPARAr1EfER COUNT, SET ERROR
TO MOVE PARAMETERS,
ISET '"2 FOR MONITOR IN
ISYSERR AND

DAC

SAVERR-l

A
R
R
R

LAvi

"'1

DAC

~10VERR

LAC

( ·2)

DAC

SYSERR

,Ji1P

EXIT

IEXIT TO

LAC

SAVERR"l

TAll
DAC

(-1 )

IGET PARAMETER COUNT +1 AND
ISET FOR NOVE,

A
R
R ('HHHJ00 A
R 2tiH~174 R
R 347625 R
R ('11.17462 R
R 2f.17626 R
R 047463 R
R 2~j7627 R
R r.~47a64 R
R ~27463 R
R ~67464 R
R 447463 R
R 447464 R
R 447462 R
R 6~'3202 R
R 777777 A
R !14~~(1~0 R
R 1.47457 R
R 623130 R

MTAF
MOVPUT

PUTS,4

I~H'~ITCH

PUT.1

l,.AC

(SAVERR-l)

DAC

PUi'.2

LAC
DAC
LAC*
DAC*

(ERCOOE-l)
PUT,,3#
PUT.2

ISZ

ISZ
ISZ
JMP

LAW
i)AC
DZM

JMP",

PUT.3

PUT.2
PUT.3
PUT.1
PUTS.4

ISET--FROM--ADDRESS
ISET~-TO~-ADDRESS

IMAKE THE MOVE OF ERROR
IPARANETERS ..

IDONE WITH MOVE"

I~OVERR

IRESET MOVE ERROR SWITCH.
IGO TO INITIATE NEW 1/0.

ENDPUT

03214 R

IOPERATION TABLE, ENTRIES BY HANDL..ER
l1FRTAB .BLOCK NU11HAN *NU~lPAR
ICONTAINS---~--------~
ICOMMAND
/CURRENT ADDRESS
COUNT

ICHECK RUUTINE POINTER FOR THIS CMO.
ICNTR
ICNTW
ICURRENT DENSITY AND PARITY.
ININETRACK HANO~ER.
IACTIVE - INACTIVE
/REWINDING ~ NOT REWINDING.

IINPUT-OUTPUT BUFFERS

I
03414 R
~17 414 R

V)0vH2HO~)

BUFl

.8LOCK

EN[)l3UF

"EJECT

BUFSIZ

o
o

o
o
o
o

o
o

-1
SYSERR

NO NEW 1/0"

I~~ORD

~10N I TOR,

o
o
o

o
o

()

(~)

PAGE

5\1

MAGTAP
~ 1i1!1 ~1 vH1

vj7520 R ~577777

SRC

.END

A *L.

UODSW

o
o

07521 R CH'HH1vll A *L
075~2 R t f1f-'HHi kl A *L
07523 R (~QH1300 A *L
~j7524 R 1~~1\i1vH)0 A *l.

07526 R 1~002~~1 A *l..
~7527 R 40(~00~ A *L

07525 R (1ttH~ 10t(l A *l,..

07530 R 7766~j~1 A *l.
07531 R 777774 A *L

075a2 R ~0C16 41
075~3
075~)4

07535
v)7536
\{'j7537
07540

(1)7543

0
0

07541
07542

R f~~H~151
R ~00~j 1~)
R 1,77777
R 000610
R 7t1(;:HHH'
R 2V10000
R 777600
R (~t13214
R n10~)QJ0
R 774000
R ~1~)lL~00
R ~0341.5
R Q1v)0IlivJ2
R V)4000Vl
R 13760.0

07544
07545
07546
07547
07550
07551
07552 R r.1004L10
07553 R t12In~00
~7554 R 1.,01116
eJ7555 R f,1Vil157
07556 R fi101171
07507 R 1:1fiH1(.1)07
VJ7560 R riHHiH17 it?
(~7 561 R ~07000
07562 R 006000
07563 R '1(0 20 ~Jt2)
07564 R t?H140V)\()
07565 R (1 ({H.HHJ4

R *L
R *L
A *L
A *L
R *L
A *L
A
A

*L.

R *L

A *L
A *L
A *L
R *L
A *L

A *L

A *L
A *l.
A *L
R *L

R *L

R *L
A *L.
R *1."
A *L
A *L

*L
A *L
A *L
07566 R ~00005 A *L.

07567 R 0001/177
07570 R ftH10006
{17571 R r~40300
07572 R 770000

(ij7573 R 0~1673

07574 R c~0166J
07575 R 766000

07576 R ~03413
07577 R 002014

07600 R 002132
~17 6 Qj 1 R (Jt C!j 016 4
07602 R !~02232
07603 R 0~:12253

A *L
A *L
A *L
R *L.
R *L.
A *L
R *1..
R *L.
R *L
R *L
R *l
R *L.

o
o
o
01

o
o

o
()

o
o

0 '

()

..... '.

("',

\.....-'

1...._ )

PAGE

0
0
1

0
0

t,'AG TAP SRC

07604 R ~0~~414
07 6ft' 5 R \1023116
vJ76v.l6 R 0023f,7
Q)76(~7 R ~~00(1j03
0761~) R ~102444
07611 R 002472
07612 R ~025k' 4
07613 R fi102532

~17614

R (1~) 3~HH1

v.l7615 R 777477
07616 R (10~H12C1
2.17617 R 003~40
v1762t~ R 077777
9)7621 R 777776

07622 R 002646
vJ7623 R f.~0.0~23
07624 R 00~176
07625 R 777777
(iJ7626 R 000174
07627 R e0r!.H121

R *L
R *1...
R *L
A *L
R *L
R *L
R *l..
R *l,.,
A *L.
A *L.
R *L
R *l..
A *L.
A *L.
R *L
R *L
R *L
A *L
R *L
R *L

SlZ~;~7642

}

0 '

o
()

o
0,
0,
NO ERROR L.INES

()

0 ,

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

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

-- .--

_._- --- ..

_- -- --_. ._-

--- _._- - - -

_ ..

- - . _.-

----

---

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

---

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

0
0

ACSAVE

07415 R

CKRUCf,'

(ij006(~

CKRW.l
CKSR .. 4
CKSR6
CKS .. 3

i~)2045

00717
~11V124

07427

CK ~~RT

tij0061

CKW .. 3

~17433

CLOPTB

'10627
01513
01537

CLRDIS
CMDDIS
CMDU.6
CNTR

DoaVER
ENDBUF
EOFCNT
ERN .. 1

k1160~

fiHHi73
l1VJ115
~'1116
~7414
~'0101
~~7443
~J2671

R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R

R
R

ERR00
ERR04
Ef'<01

ER13

R
R
02652 R
02655 R
0266q R

ER17

~}2664

ER2J

(12670 R
(11211 R
00621 R

ER05
ER10

~12733
k~2646

ACTIVE
BOTAPl
BREAK1
BUF.l
CA

CKSR7

CKS2.1
CKWTEf

CLaM.1
CLOP.l

CLRR~~D

CMDO.l
CMDD,7
CNTW
DLRETV
DSTSWl
ENDOPR
EOfCQN
ERRPUT
ERR01
ERR2,1
ERCd2
ER~6

ER10.1
ER14
ER2(1
EXIT
GENRQ

7456 R

MAXBIJF

~1INI.l

(110465 R
l11263 R

MIN!.2

0
0

PUT.3
RANGEN
RANT AD

07464 R
01624 R
'~116 4,. R

07417 R

8UFGEN

!d7421 R

8UF.3
CHKC .. 1
CHKPTR
CKO,1

CKS~4

td 1032 R

07420 R
(10070 R

o,,666 R

l.. I NK

A
MTRC
7e'7312 A
NONSEN
vH1076 R
NUMHAN ~H)f!l 010 A
PARD.2 011{13 R
~j0525 R
POLtiAN
POLH.6 00615 f~
POL.INT 00513 R
PUTS.3 0316V1 R

Ct'iKCOt'f

~0451

CKSR2

INTO.3
INT.3

7~l732t1

BDTAP2
BRKAC
BUF.2

APIFI...G
aOTAP3

00661 R
00k}55 R
02023 R
0vH164 R

()

~'TCt1

03020 R

\11(1162 R
Ql304~ R

CHKOPR
CKNOOP
CKRWD
CKSPBK

R
~J 1757 R
t17452 R

.~ NR~/l)

R
07423 R
00057 R
02034 R

HOl.U

~J7447
(~23~J7

kH1161 R

CHKHAN
CHK.l
CKREAP
CKRW.2

FIV.2
GET
HANNOl

._- - - ---

--- ._ ...-

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

--- -- -

-- ._- _.-

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

-- --

SRC

r1P y

~, AG TA. P

BADTAP t13~Jv) 1 R
BREAK
'~10433 R
BUFSIZ ilH~4vH~HI A
BUFl
03414 R
CHKC.2 01~lo7 R
CHKTAB (,)(10055 R

DISTS~'1

- -

0
PAGE

- ...

GET.l

HANN02
INeRt'!

INTO.4
INT.4
r'lSERV

MTCR
~1TRS

NONTAB

02~j72

01('1J27 R
k?743VJ R

CKS.l

R
07425 R

CKS2",2

00743 R

00~J62
~7434

CKW .. 1
07431 R
CLBM.2 074;35 R
07436 R
CLO.l
eND
t1Vl067 R
CMDD.2 01562 R
CMOSKL ~H"~032 R
CURHAN 00066 R

R
v)(1634 R
02057 R

v11556 R
\01612 R
vH~E174

0100k)

R
01224 R
07442 R
~H1356 R
00126 R
03050 R

DONE
07441 R
707754 A
EBA
ENDPUT 03135 R
ERCODE itHH122 f(
~2771 R
ERR.1

02677 R

ERR02

02720 K

ERR4.1

'12647 R
~)2653 R

ER03

ER~7

02723 R
02743 R
02650 R
R
R

CKSPFD
CKSR5
CKS.2
CKS2.3
CK i~. 2

CLBNl

C~OIl/2

~7422

01045 R
0'1072 R
07424 R
(10056 R
00063 R
01015 R
~7426 R
00752 R
07432 R
02274 R
07437 R
yj010t!1 R
~1566 R
07440 R
00075 R

CMOCNT
CMDD,5
CMO.l
IJENPAR
03154 R
OON.l
EEM
707702 A

ENDP,l
ERNUM

f::RR.22
E::RR0~3

t:RR4.2
ER04
ER~7.1

03155
03075
07444
02727
02742
02651

R
R
R

R
R
R
R
R
R
R

0030G R

FIVTRY

02654
02656
02662
02606
01157

F I V1t.1

01171 H

02625 R
07445 R
07450 R
00604 f~
01731 to(

GENR~~O

01 !:;HH) R

GENWRT

02255 R

HANCNT
HANNUM

t1 AND N'~

INrop~

07446 R
00077 R
01673 R

INTO~5

01764 R

R
R
R
R
07455 R

011kH) R
02661 R
02665 R

07453 R
~0163 R
00507 R
00301 R
707321 A
707352 A
~0.11t)

NlH1PAR 000020 A

ER 11

ER15
ER21

EI~ 16

(11144
02657
02663

R
R

ER22

02667

INT.5

07454 R
\!10205
R
~'INIT
MOVERR 07457 R
0(1131 R
MSKTA6
MTGO
70730.4 A
707341 A
MTSF
00[~32 R
NOOP
OPRTAB 03214 R

PATTEN
POl,H.4

POLH.7

R
100555 R
00.531 R

PUT

0313~1

PUTS.4
RANCNT
RANINT
RANTBL

PUTS,l

03202 R
0166fr) R
00456 R
kl1663 R

PUT.l

03122 R
07462 R

RANCON
RANL.EN

01661 R
07465 R
00641 R

PARTA8
POL.H.2

CKRWN()

(17416 R
v)3044 R
02601 R

00~H:)67

POL.H.~

RANTST

VJ746!~

R
00562 R
00577 R

ER12

t!l0045
v,7451
01722
01727

HNDNUM
INTO.1
INl'O,o
INT.t)
MINITl 00224 R
MOVPUT 03172 R
MTAF
7~7322 A
MT'l.C
7~17326 A
MTTR

707301
00043
NOOP1
PARDRl. 01064
POL.DON 07461
PO~H.5
00570

POL.H.9
PUTS,2

PUT.2
RANDEX
RANSAV
RANTS2

R
R
R
R
00535 R
03125 R
vJ7463 R

C11662
~1657

R
00646 R

0
r"

0
0

0
0
()
'-'"

0
0
0

0
0
0
0
0
0

t""")
\

........

PAGE

~1AGT.I\P

5;3

RANTS3

(il~65~

RDCO~'P

RESBUF

~H1t135 R
(12617 R

RPTER7
SAVERR

~1123~
~10175

SELTAB
SELT,4
SETN.l

v.121ti2 R
(1122(12 R
01251.1 R

0
0
0

5ET.2

Q)7 5~12

Sf'CREV

00vj41

SVCA

(HiJl1t

TERMIN

f(H1367
~J7 5'16
t12:3 7 1
07512
07513

svwc

TER .. 2

TEST~3

C)
0
0
()

~17475
(~1412

SLNO,,3
SLNU.8
SLNXOP
SLN.l
SLX.2

TOTRTY
TSTCMD
TSTF .. 3

01467
ei1344

07476

~1~'112

0y)35~i

TSTRUN (102001!1

R
R
R

R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
A
R

SRC

RANTS5
REAl)
RESPUT

SAVCM()
SAV(lLD

SELT.l
SEL.~l

SETRWD
SLNO,,0
SL.NO.4
SL.NO.9
SLNX.l

SLN.2

00651 R
00034 R
03112 ~
(17467 R
01126 R
0216~) R

07472 R
01772 R
R
R
H
R
'17477 R

01353
01451
01473
02137

SPBCNT

'10105 R

SPFCNT
SVCMI)

kl0104 R

SYSCA

TERM"l
TER.3
THSHAN
TRKT ~\6
TSTFL,G

TSTF.4
TST1.1
TST2.1
TST3.1
TSf3.5
l5T3,,9

RE::CLEN
RE~~ I ND

~H1)647

R
07466 R
~1lij033

SAvors

SAVWC

R
07470 R
07471 R

SELT.2
SEl..2

02171 R
07473 R

SErf<" 1
SLNO"l

SLNO,,6
SLN010
SLNX.4

02014 R
01 ~304 R
01456 R
(114~i4 R
02132 R

SI..N.3

07ovH' R

SPl'3CON
SPFCON

0013~)

00107 R
00113 R

SVPAR

R
00127 R
075'14 R

SYSERR

~0020

\(J0J73 R
(175v)7 R
00065 R
100151 R
1;10307 R
00320 f~
{12204 R
02336 R
02376 R

TERr-l.2

T5T1.4

02253

T5T2,4
T5T3,4
T5T3.8
TS~~"l

v.12367 R
v.l2431 R
02504 R
~)7517 R

UOOSvl

(,i)000~1

lJPOT,2

01321 R

UPDT.3

01337 R

\~RITE

v10~j36

~1RrCNT

(iHa103 R

RANTS6

02472 R
l?J2532 R

TESTl

TKTBPT

TRNCMD
TSTF.l
TSTF.5
TS'fl,,2

T5T2 .. 2
TST3.2
T5T3.6
TS1.2

UPDTCT
UPOT.4

WRTEOf

RDCNT
RECTAB
REWNDl

00102 R

SAVEUP

0065~
l~0164

SELHAN
SELT.3
SETNXT
SET.l
SL.NO.2
SLNO,7
SLNXHN
SL,NX.5

SL.X,l
SPCFWD
SSVTAT
SVSTAT

v'0364 R
02232 R
02346 R
02542 R

SYSWC
fER.l
TEST2
TOTPAR
TRNC.l
TSTF .. 2
rSTNO
TST1.3
TST2.3
TST3.3

~12416

1'5T3.7

R
00403 R
02316 R
0701!tJ

02543 R
00332 R

(1)7515 R
01270 R

01331

00037 R

TS2,,1

UPOT.l

WRTEXT

00141 R
vJ~H) 4 4

R
R
R

02175 R

01242 R
07474 R
01406 R

1ij1375 R
02'.04 R
02105 R
07501 R

R
07503 R
00110 R

0~040

~10114

07505 R

(12323 R
07511 R
02573 R
00344 R
07514 R
02226 R
02342 R
02444 R
02403 R
VJ7516 R
01~06 R
00071 R
00Q142 R

o
()

o
o!

()

._--_._- -

._....

-- -

.. -- --- --

__ •

_. _ _ _ _ _ _ _ _ _ _ _

••••

_ _ _ • _ _ ._

M _ _ ._

•• _

PAGE

ERCODE
REAf)

SPCFWO
REWNDl
CKR~t~ND

CURHAN

TSTFLG

TSTF.3
TERN.l
RANINT

()

POLH,,6
RANTST
RANTS:;

CKSR .. 4
CKSR5

CHKC.l
ER10.1
FIVTRY
RPTER7
UPD'fCT

UPOT,3
SLNO.7
SLNO",4
GENR~~O

Cr1DO,,2
RANGEN
RANCON
INTO.l
INTO.5

~0036

~'lR TEOF

(10037 R

WRTEXT 00042 R
CHKTAB 00~055 R

NOOPl
CKNOOP
CKWRT

QHH155 R

CHI(PTR

(tlY..'k175 R

NONSEN

00076 R

00(162 R
~10~' 66 R
vH1071

v.jVjlvJt R
R
00116 R
0{1131 R
00162 R

00205 R
~J0307

R
v'0353 R
eJ0373 R
kH1456 R
00525 R
~10562 R
~10615 R
vH1641 R
~J0651 R
00717 R

01'115
01 ~j 4 5
vll1v)5
01157

R
R
R

01230 R
0127f~ R
01337 R

ca1375 R
01451- f~
Q11505 R
1~1562 R
V)1624 R
v11661 R

01722 R

SELT~3

T5T1,,2

l~2232

HOL,.O

02307 R
02342 R
02376 R
02444 R

CHI~HAN

SLNX .. 1

T512.3
TSTJ.l
T5T3.3
TST~~,,2

0003~

WRITt::

R
vH1041 R
00045 R
00(ti57 R
0(IJ~)63 R
00~)67 R
v.HiJ072 R

11)1764 R
02~123 R
Q!2072 R
02137 R
02175 R

CKR\~O

REwINO

RDCOr1P

SPCREV
HANDNi"'1

CKREAD
CKSPFD
eMil

SYSCA

POI..HAN
POLH,4

A
00v)32 R

SYSERR

NOUP

(i)VJ 112

NUMPAI-<

SV~IC

AN R~~ 0

NUMHAN ~vHJl<11 t() A
CMOSKL 0":H1032 R

011105 R

MINIT

~1I/.H10(~ R
':Hij It) 2? R
00034 R
Vl !!Hi14 ~1 R
v.H1vj 4 4 R
l~ei056 R

RDCNT
SVCMO

_ _ _ _ _ _ _ _ _ _ _ • _ _• • _ .

__M

_ ••

_. __

••

•

_ _ _ ••

M_'

_._

•

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

-~-

--- _.. - --_.

11 AGTAP SRC

DENPAR
EOFCNT
SPBCNT
NONTAB
MSK TAf3

_______

1 ....-...'

CKWTEF

()

_ •• _ _ _ _ •

UODSvl

......
......)

RESBUF

0254~
~)2617

R
R

(4(1035

00102 R
I(jt~ 107 R
k)(Ji113 R

CKRf)cr1
CKSPBK

000.70 R

CNTW

00Q174

CMDCNT
SPFCNT

SVST~\r

011111 ~l R

SVCA

S YSl~ C

vHI) 114 R

DISTS~~

SPFCON

00127 R
~H1151 R
0~J164 R
0~3Vjl H
00332 R
vHJ364 R
00433 R
fd05f{l7 R
(lH)535 R
k10577 R
00627 R
00647 R
00661 R
00752 R
01 f,27 R
01064 R
1tJ1126 R
01211 R
01254 R
01321 R

SPBCON
ACTIVE

VJel10VJ
00104
00111
00115

R
R
R
R
R

TSTF~5

R
00653 R

BREAK
MINI.2
POLH.9
POLH!!I 8
CLOPTB
RANTS6
CHKOPR

013743 R
01024 R

CKS2.3
CKSR7

111~57

PARORl"

Ml110 R

SAVOLiJ

MINI.l
POLH.7

R
00465 R

POL.H.5

GET

00531 R
(i)0570 R
00621 R

fxANTS2

~0640

SAVEOP
CKS2.2
CKSR6

TRKTAf3

SEl.. riAN

MSERY
TSTF.1

CHKC.2
OOOVER
FlV.l

01171 R

FIV.2

SE'TNXT

01242 R

SETN.l

UPOT.l

01306 R

UPDT,,2

SLNXOP
SL.NQ.2

SLNO.6

CL.ROIS
CMDD.5
RANT AD

01344 R
01406 K
1(j1456 R
01513 R
01566 R
t11641 R

SLNO.,t-1

5l.,NO.3
SLNO.B
CMDOIS
CMOD.6
RANSAV

00064 R

013:>3
01412
vJ1467
01537
~16C10

R
R
R
R

01657 R
i)1663 R

RANTBL
INTO.4 0.1731 R
TSTRUN vHI,12000 A

SAVERR

EXIT
rSTF .. 2
TERMIN
BREAK1
PO~INT

POL.H.2
INCRE
CLOP .. 1
RANTS3
CKSR2
CKSR4
CHKCl)M

0£1451 R
00513 R

00555 R
00604
00634
00650
00666
01000
(i)1(~'32

R
R

1'-\

R
R

01434 R

Ct10D.7

RANCNT
INTOPR
INTO,,3
CL.RRrli)

SELT.2

GENWRT

02316 R

TEST2

'TST2.4

~2367

vJ2403 R
vH2472 R
VJ2543 R
02625 R

TST3.6
T5T3.8
TRNC.l
ER(dl

~12416

00367 R

~j1473

SLNX.4

(12345

SLN010

R
R

SI..NO.9
Ct1DD.l

'12105
02161(1
02204
02255
02323

~'0344

02045 R

~j030 6

0126a R
01331 R
01364 R

CKf·n~"l

TST1.1

00175 R

MPY
UPOT.4
SLNO.l

OLRETY

SLNX.5
SELT.l

02253

01144 R

lo2034 R
02104 R
02152 R
02202 R

SLNXHN
SELTAS
SEt. T,,4
TST1.4
TESTl
TST2,,2
TST3.7
TST3 5
TRNCf1D
GENRD

01103 R

CKR\~" 2

01772 R

EReJ7.1

t11662

Vj013~)
~,~ 161

PARD.2

RANDEX
INTO .. 6
BE TR ~~o

01727 K

00065 R

~H14~13

0(t)32eJ R

00(161

THSHAN

kH1356 R

'H1224 R

kHt]~43

rERr~.2

R.
00141 R
'Ht) 163 R

014Q160 R

0vJ02f) H

PARrAS 000057 R
00~)7~~ R
CNTR
HANNUM 00077 R
WRTCNT 00103 R

EOFCON
RECTA6
MAXBUf
MINITl
TSTF.4
ENt>OPR

~J0126

~HHH12(1

SETR.1

rST1,,3
Cl.BMl
rST2.1
TEST3

01224 R

R
01556 R

01612 R
0166(1 R
01673 R
01757 R
vJ2014 R
02~j57 R
(12132 R
02171 R
02226 R

02274 R
~12336

R
02371 R
02431 R

R
02504 R
02573 R

TST3.9
BUFGEN

02532 R

02646 R

ER~12

02647 R

T5T3,4

0
0
0

02601 R

( ....)

"'-

( ",

(-'"

,-.J

......J

PAGE

0
0

tilAGT AP SRC

ER13

02650 R
~}2654 R
0266(11 R

ER17

02664 R

ER23

0207~

ERC13

Ef~R2,,1

~2725

ER04
ER10
ER14
ER20
t: RRl1~)
ERR03

ERR4.1
BOTAP2
RESPUT
ENOPUT

02743

ERR.l

t~OVPUT

03172 R

EH07

0304rtl R
03112 R
031~~5

BUFSIZ 004vJ~~)\ A
BRKAC
~7417 f~
CHK.l
'17423 R

CKS'll3
C1< 1~. 3

CLO.2
ERN.1
HANNO!

1,,\

MQVERR

INT.4

PUT.2
SAVCt1D

SEL.2
SL.N.2

SSVTAT
TER .. 3

MTCR

TSTcr~D

T53.1

MTSF

~17427

'17433 R
074:37 R
07443 R
07447 R
07453 R
k17457 R
(1)7463 R
(17467 R
~17473 R
07477 R
vj75k13 R
~)75Ql7

v17513 r~
(1)7517 R
7v'732," A
7t~7341 A

6DTAP3

PUrS.l
DON.l
PUTS.4

02655

'~12661
~12665

ER11
ER15

~j2771

R
R
tI.12727 R

~12671

R
03~144 R
1(13122 R
~tJ3154

~13202

(07414 R

BUF.l

0742~J

CMfj.l

ERR.22
HANN02

INT.S
PATTEN
PUT.3

ERRPl,JT

ER05

ENDBUF'

CI{O.l
CKS2.1
CLBM.l

BADTAP

02652 R
02656 R
02602 R
~2666 R
vJ2677 R
02733 R
03001 R

02651 R

R
07424 R
~'7430 R
~)7434 R
(17440 R
07444 R
07450 R
~17454 R
~'746V,l R
~7464 R

ER21
ERR01
ERR04

PUTS.2
ENDP,l
OPRTAB
ACSAVE
8UF.2
CKS.l
CKW.l
CL.BM,,2

OONE
GET,.l
HNQNU~l

INT 6
III

POL.I.)Ot~

SAV()IS

~j7470

SET.l

07474
07500
k17504
~) 751 (I)
07514

RANLEN
SAVWC
SET,2

SL.X.l

Sl.N,3
SVPAR
'TKTBPT

TER,l
TOTPAR

TS1.2

TSTNO
';IT TR

707301 A

MTGO

~lT AF

7~'7322

MTC~l

t1TRS

7~)7352

EEt1

ERR4.2
t3DTAPl

(iJ2653 R
02657 R
02663 R
02667 R
02723 R
02742 R
03020 R

0305(1) R

t::RNU~1

lIJ3l175 R

03125 R
(13155 R
03214 R
f~7415 R

PUT

03130 R
03160 R

r~7421

BUF.3
CKS.2

07425 R
07431 R

07435 R
07441 R
07445 R
07451 R
07455 R
(1)7461 R
07465 R
0;1471 R
~17 475

07501 R
075v.15 R
~)7 511 R
07515 R
707304 A
707324 A
707702 A

f::R06

cR12
ER16
ER22
ERRt12

PUTS.3
BUrl
APIF'~G

CKW,,2

CLO.l
OSTSWl
HANCNT
INT.3

03414 R
07416 R

07422
07426
07432
vJ7436
07442

07446

R
R
R
R
R
R
R
R
R
R
R

St:L .. l

07452
07456
07462
07466
07472

SL.N.l
SLX .. 2

~'7476

~17502

TER,,2

07506 R

LINK
PUT.!
RECLEN

TOTRTY

07512 R

T52.1

07516 R

MTRC
f'1TLC

707J12 A

EBA

707764

707326, A

o
01
0;

o
o
o
o

()