Digital PDFs

XX-C28F3-D1

September 1978

93 pages

Original

18MB

Document:	CARXEA0 RX02 FMTR PROG
Order Number:	XX-C28F3-D1
Revision:	0
Pages:	93
Original Filename:	http://bitsavers.org/pdf/dec/pdp11/xxdp/diag_listings/RX11/CARXEA0_RX02_FMTR_PROG_Sep78.pdf

OCR Text

ClRXf>\O RX02 'FM1RPROGMAcvl1 30(046)

,CZRXEA.P'1
5546

S54 7
55,:'8

20~SEP-18

10:48

20-SEP-lB

10:48

PAGE

5~ 1

SEO 0001

;<PRUCHA>R)(2FMLP11.7. 22-AUG-l8 13:28:G6" fDIT 8'( SOUSA

. REM

<; ~)/<t 9

')'-50

SSSl

51)5?

S5S:;;

SS54

')')55

55S6
5557
5558
55C::9

sr()o

IDFNTlF ICATION

..--.. -

5561
5562
')">63

--~---'---

5565
SSM
5567
5568
,)S69
55;'0

PRODUCT COOt:

AC-f662A-MC

PRODUCT NAME:

CZRXEAO RX02 FMTR PROG

DATE CREATED:

25 JUl 78

MAINTA1NER:

DIAGNOSTl C ENGINEERING

AUTHOR:

L. S. PRUCHA

SS64

')571

SSt?

5S7~

5574
5575
5')76
55'77
51)78
5:;79
5580
5581

5582

5583
5584

SSB')

5586
5587
SSM
5589
55Q()

SS91
SS92

5593
5594

5S9S

5596

SSQ('
~\S9B

f)S99
S600
~}601

THE INFORMTION IN THIS DOCU'1ENT IS SU3JECT TO CHANGE WITHOUT NOT ICE
AND SHOULD NOT BE CONSTRUED. AS A CO"fIIlTMENT BY DIGITAL EQUIPMENT
CORPORA r ION. DIG1 TAL EQUIPMENT CORPORA iION ASSlJt1ES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPtAA IN THIS MWJAl.

THE SOFTWARE DESCRI8ED IN THIS DO(~ENT IS FURNISHED TO THE PURCHASER
UNDER A LICENSE FOR USE ON A SINGLE CQlVPUTER SYSTEM AND CAN Bf COPIED
(WJTH INCLUSION OF Dt~ITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
SYSTEM" EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
DIGHAl EQUlPMENT CORPORATION ASSlI1ES NO RESPONSIBILITY fOR THE USE OR
REL18lLlTY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIeD BY
OJ GIl Al.

I
I

c ,

(lRXE AO R)(02~MTR PROGMAC v11 30(1046)
'(ZR<fA:.Pll
20-SfP-78 10~48

i.'

~
i

'.
•

PAGE

~,)-,

S60~
~16QJ..

')60 f)
S60t,
5607

10:48

(.}\J
Ii-{')" t")

560.8.
''j,.'
5609
, 56i0
I ~~~1
S6'~

I'..·

20-SEP-?8

)6. 14

S6 1 S

I ~m

TABLE Of (ONHNTS

------------.----: .0

,ABS TRAC T

2.0

REQUIREI'tENTS

2. 1
2.2

HAADWARE
STMAGE

5619

5620

3.0

L DAD 1N'G PROC ED~E

5621
5622

4•0

S fAA T1 NG PROC EDURE

5.0

CONSOLE OR SOfTWARE SWITCH SETTINGS

)625
5626

6.0
6. 1

OPERA r ION
(~D IT IONS OF OPE RA T1 ON

S628

".0
".1
".2

PROGRAM DESCRIPTION
FlOW
TfsrOESCRIPTlONS

8.0

DEVICE REGlSTtRS

9.0
9.1

LISTING INDEX
LISTING

I
I.'.

562~

S6?4

)627

'5629
56.30
56~~1

S632
5633
5634
S635

Sf 0 OOO?

~ ClRXE ~O Rx02 FMTR PROG
ICIR~EA.P"
i
r.~
I'

·f

I
~

5637
'5638

20-SEP-7810:48

30(1046)

20-SEP-78
1.0

t),639

5641
S64?
564<;

5646

)647

o 1

10:48 PAGE 60

ABSTRACT

THIS PROGRAM IS INTENDED TO FORMAT A fLOPPY DISK TO EITHER SINGLE
OR DOlJ3LE DENSITY ON A DRIVE CAPABLE OF SETTING DENSITY ON A fLOPPY
DISK. IT WILL RUN UNDER APT, BUT WIll RUN IN A USER MODE WITH
SEvERAL SWITCHABLE OPTIONS 10 ENABLE A TESTING AND DEBUGGING.

5640

5644
I 564')
~

MAC '(11

2.0

REQUIREMENTS
... _--_ ............ --

2.1

HARDWARE

5648

)649
c:,650
c:,651
<.. 6S2

5653
5654

5655
5656

5657
5658

2.2

56'39

5/ ,64
".s6S

3.0

5666

5671

~:"72

5673

STORAGE

LOADING PROCEDURE
USE OF STANDARD BINARY LOADING PROCEDURE OR DOWN LINE LOAD VIA
APT.

5667
5668
5669

5670

PROCESSOR
RX02.XX SleSYSTEM

THIS PROGRAM REQUIRES AT LEAST 4K wORDS Of CORE.
IF LOADING
V1A XXDP MORE STORAGE WIll BE NEEDED FOR THE XXDP MONITOR.

5660

';661
)(62
56S3

ANY PDP-l1

4.0

STARTING PROCf'URE

5674

uSER MODf - STA~T AT LOCATION 200(8)
TO
INITlALlZE
~--------REGISTERS.
- STARl AT LOCATlON 210(8) TO RESTART TEST.
- START AT LOCATlON 220(8) TO ENTER DEBUG MODE.

5679
5680

APT MODE

5675
5676
56?7
5678

.....

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

-. ALWAYS START AT LOCATION 20000.

SEQ 0003

~ CIR)(E~O

RX02 FMTR PROG MAC Y11 30(1046)
~CZR)(EA.P'1
20-SEP-78 10:48

20-SEP-78

E 1

10:48 PAGE 61

SEQ 0004

5682

i 5683

I
'1

5684

5.0

SOFTWARE SwITCH SETTINGS
--........ -................. -- .... ... --_ ... -~ ~

-.,.

5687

USER MODE - THE SWITCH REGISTER IS SETUP FOR THE USER BY
--------THE PROGRAM VIA USER DIALOG.
+
SW15:
1:; HALT ON ERROR
o :; CONT INUE

S691

SW14:

'>68'>
5686
1)688
5689
5690

5692
5693
5694
56<:;!)

. . M> _ _ _ _ _

1 :; EXTENDED ERROR REPORTS

+---------------------+

S~i13 :

1 :; INHIBI T ERRC»~ REPORTS
o .: PRINT ER~ORS

!THESE SWI;~H SETTINGS!
fARE AVAILABlE.BUT ARE~
~-->!lNTENDED FOR HARDWARE!
~
DEBUG ONl y •
~

S1!J12:

1 :; BUS INITIALIZE ON ERROR IF LOOPING!
NO BUS INITIAL1ZE ON ERROR

o .: NORMAL ERROR REPORTS

')0%

5697
5698
5699

57(10

.
j

o :;
i = LOOP ON ERROR

swc~:

O~·

5701

5702

+----------~--------~-+

... ------,-+

CaNT INUE

r)703

5704

5705

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

• __ •••

5706
,)?07

5714
S,1 S

••••••

--~~-!-~~--------~~---~---~~~~-------~~----~---~~-~-~---------~----~~!
15 ! .......
14 __~ .... _13
~ 12 ...~ ,..... _11!
10! 09!
08!
07;
! 05
! 04
~ ..............
03 ! -.02... ____
: 01 ..........
~ 00
__ ........ !t ____
... ____
... _ .... ____
... __ ._
......... __
.... _ 06
.. __ ..
____
...... ___
__ !t

.
!sY;!Syo:
!lOE!DBL!CRC!
SWR
!DEN!ALL!
! SEL ~ SEL !
-~--------~------------------~~---~-~-~-----~~---~---~--~------------.. "
~

5709
5710
5711
5712
5713

S708

SOFTWARE sw1TCH REGISTER

~
~

HOE! EXT r 1ER! BUS!
!ER!
!lNT!

5716

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

.........

••

•••••

••••••

•••

')71 7

5718

~719

I,
I,

+-----------------------------------------+
~ THE Sf BITS ARE Sf T BY PROGR.AM INTERF ACE :

.
: TO USER - THEY ARE SHOWN HfRE TO AID IN ~---------------->.
~ PROGRAM Ml\INTENANCE.

';720
'>721
1)722
5723

5724

5725

5,26
5727
5728

J l,
"1'''9

MODE - THE APT SWITCH REGISTER ''SSWREG'' MUST BE SET UP
... ------...
AS FOllOWS: SYOSEl=l (SITO) AND DBLDEN::::1 {BInn
FOR SETTING TO DOlI3LE DENSlTY. IF eRe CHECK ON
Al.L TRACKS IS DESIRED THEN SETBH CRCAll.;:1 (8IT?)
SfE SWITCH REGISTER ABOvE.

APT

; CZRX:f~O Rx02, fMTRPROG
CZRXEA.P1'

MACYl1 30(1046)

. 20~SEP-78 10:48

20-SEP~78

F 1
10:48 PAGE 62

SEC OOOS

5T~1

7 "')
57
. . •l (
5733
'3T9..
5735
57·36
5737
5738
'.)739
5740

f:, • 0

THE PQOGRA/1 OPERATION IN 'USER MODE" 15 SIMPLE. AFTER INITIAL
START THE PROGRAM \!JILL ASK lHE OPERATOR IF HELP 15 wANTED AND
wILL TYPE OUT A SHORT DESCRIPT1CJ'.J OF THE: PROGRAM IF ANSWERED
YES. THE PROGRAM WILL ALSO ASK IF A fULL DISKETTE SCAN IS
WANTED TO VERIFY (Re. If ADDRESS MODIFICATlON 15 SELEcrtD fHEN
THE PROGRN-1 wILL THEN ASK THE OPERATOR TO ENTER THE BUS ADDRESS
AND VECTOR ADDRESS.

5741

5"142

574 "5

5744
57/.5

OPE RA TI ON

6. 1

CONDIT lONS OF OPERAT 10N

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

5746
574·;'

--..... ....

5748

THE PROGRNtl EXPECTS TO RUN ON AN RX02 INTERfACE AND Rx02 DRIVE
SLf3SYSTEM THAT HAVE PASSED ALL OIAGNOSllC TESTS. ERROPS ARE
REPORTED Bur PRINTOUTS ARE NOT EXTENSIVE ENOUGH TO DIAGNOSE
HARDWARE FAILURES.

5749

5750
571)1
5752
5753

5754
57S£:,
5756
571)7
5758
5759
5760
5761
5762
5763
5764
5765
5766
5767
5768
5769
5770

7.0

PROGRAMDESCRIPTION
_... ,.. ..-.- ...._--- .. _..... -_ .. THE PROGRAM IS ORGANIZED AS FOLLOWS:

START

DETERMINE IF LSI PROCESSOR
IF NOT APT MOOE~ CALL OPERATOR INTERfACE
Sf T UP REGI STfRS

CAll SYSTEM SCHEDULER

IF NOT APr MOOE-CALL OUlPUf SYSTEM DONE (GET FURTHER OPERATOR INSTRUCTlClNS)
END Of PASS
lNCREMENT PASS COlJ.JfER
CHECK IF ACT MODE

P~ INT

BUS ~ESET
IF H>lf MODE SET THEN IDLE IN lOOP

J!Jt1P8ACI( TO "CAt l SY$ TEMSCHEOULER"

t
! (lRXEAO RXO.? fMTR PROG MACVl1 30(1046)
lCZRXEA.P"
20-SEP-78 10:48

G 1

20-SEP-78 10:48 PAGE 63

5772

I 5773
I 51'71.,
57 5
I'

5T16
577'1

1)778

7. 1

FLOW

---BEGINROUT INE ',.,00 PROGRAM START + CONTROL)
INITIALIZE STACK POINTER

IF RO IS FALSE
THEN

PRINT PROGR~ IDENT iF HArlaN MSG
IF APT MODE IS TRUE

5779

Tr'EN
GET APT SWITCH REGISTER
IF APT PROCESSOR Q-8US TRuE

5780
S781
S782
S'183
5784
578)

')786

S787
5788

ENDlF

GET APT VECTOR
SET SYSTEM VECTOR
GE T APT BASE ADORE S5 OF

5789

UNIT UNDER IE ST
CALL ADDRESSING TEST
ELSE
SETUP BUS TRAP fOR LSI PROC TEST
SET PROCESSOR STATUS WORD
IF LSI PROCESSOR STATUS WORD TRAP TRUE
THEN
SET LSI PROCESSOR WORD STATUS
:
SET LSI PROCESSOR FLAG

S790
5191
5792
S193
S?9~~
~,/9)

~: ';IW)

S797
')798

END IF

)799

5800
5801

5805

5806
5E:07

5808
5809
5810
5811
5812

;

ENDl F

THEN
:
CAll OUTPUT DONE (MOD 3.0)
ENDIF
SET UP/PRINT END OF PASS + PASS COUNT
INCREMENT PASS COUNTER
IF ACT MODE TRUE
; THEN

581 ~~

5817

RESET

5818

:
CALL ACT HOOKS
END1F
IF SYSrEM_flAG=lDlE
: THEN
BEGINDO

5819

S820
5821
5822
5823

5824
5826
5827

CALL MOD-TEST ADDRESS

CLEAR PASS COUNTER
BGNDO
CALL SYSTEM SCHEDULER (MOD 2.0)
IF APT MOOE FALSE

5814
5815
5816

5825

CALL OPERATOR INTERFACE (MOD 1.0)
SET VECTOR INTERRUPT ADDRESS

ENDIF
SE TUP DENSI TY PER SWITCH REGI STER
CLEAR TABLES + FLAGS

5802

5803
5804

THEN
SET LSI PRoe PRl
ELSE
SET PDP11 PRoe PRl

ENDlF

: fNDDO
fNOROUT INE

ENDDO

.lfQ

0006

CIRxI·.6.0 RX02 fMTR PROG

CIRxfA.P'1

20-SEP-18 10:48

58;'9

SH30
5832

I
j

10:48

H 1

PAGE 64

SEa 0007

PROGRAM FUNCTIONAL DESCRIPTIONS

S833

THE PROGRANI WI LL AC Cll'tPll SH THE FOLL O.,lNG FUNC TlONAL ELEMENTS:

5835
5836

PROGRANI INI TI AL 1ZE SElEe TED SYS TEMS + CHE CK S TA TUS

READ MAINTENANCE STATUS ON SELECTED DRIVES

5839

SET DENSITY ON ALL SELECTED DRIVES

5841

58l.2
5843
5844

CHECK CRC ON TRACKS 1176 AND 110 OR ALL TRACKS, IF SELECTED
BY USER. REPORT STATUS. IF ANY ERRORS.

REPORT

t 5834
!

20-SfP-78

7.2

S8~1

MACv11 30( 10(6)

5837

5838

5840

I
II
I

wHEN DONE.

(HECK STArUS

CHECK STATUS

tlRXEAORX02fMIR PROG MACY11 30(1046)
ClR)(EA.P"
20-SEP-78 10:48
5846

5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5e59
5860

20-SEP-78

I
10:48 PAGE 65

8.0

_--_

5872

5873

5874
5875
5876
5877

5878
5879
S880
5881
5882
5883

FUNCTION

CODE
----

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

::
::
::
::

3
4

5
6
7

::
::

FILL BUFFER
EMPTY BUFFER
WRITE SECTOR
READ SECTOR
SET DENSITY (RX02) ** BE CAREFUL TAKES 15 SECONDS **
READ STATUS ** MAINTENANCE NODE **
WRITE SECTOR WITH DELISTED DATA
READ ERROR CODE

I
.................
..................................... .

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

5862
5863
5864
586S

5871

seQ 0008

DEVICEREGJSTERS
.........
.................... -

5861

5866
5867
5868
5869
5870

.
"

! 15 ! 14 !

13! 12! 11! 10! 09! 08! 07! 06 ! 05 !04 !03 ! 02 ! 01 ! 00

RXCS:!ERR!INT!XM !XM !RX2!

!SID!DEN!TR !JE !DON!DRV!FUN!FUN!FUN!GO !

WORD
COUNT

WC:

SA:

! BASE

.. .. ..

!--~~~.~~~~~-----~--~~-~-~--~~-~~~~~-~~-~~-~~~ ~~-~.~~~-- ~ ~ -~!

ADDRESS

RXES:! x ! )( ! X ! )( !NXM!WC !SIf)!DRV!DRV!DEl!DSK!DEN!AC !lNT!SID!CRC!
!f ...... _!........
' __
! .....,__!..........! _ .. ___
!OVF!#1
J#1 !Rl)Y!DAT!DEN!ERR!lOW!DON!RDY!ERR!
.... __ ... _ ... __ ... .,_ .. ,.,,... ___ .. ..............._,.,.., ............ ............-. __........ _ ..

RXOS:! DATA
.. ___ ... !t .... .,BUFFER
..... ..... _ ............___ .. _ .... ______ ................,... _ ...

.
t

_~~

... ___ ...... _ ......... _ ....... _ ... __ ...... -. ...... -. .... _ ..... _ ...!

, CIRxEAQ RX02 nnR PROG MACV11 30(1046)
CZRXEA.P"
20-SEP-78 10:48

5885

5~6

5887
5888

5889

5890
:1·

58~'
5f92

5893
5894
5895
5896
5897
5898
5899
5900
5901

5902

5903

5904

5905

5906

5907

5908
5909
5910

591'
5912
5913

5914
5915
5916
5917
5918
5919
5920
5921

5922
5923

5924
5925

5926
5927
5928

5929
5930
5931
5932
5933
5934
5935
5936
5937
5938
5939

5940

20.. SfP... 78 10:48
9.0

PAGE 66

SEa 0009

LISTING INDEX
6042
6069
6128
6130
6186
6269
6376
6432
6452
6459
6476
6512
6618

BASIC DEFINITIONS

7963

TIMf OOT ER~ PRINT

AC T11 HOOKS
APT ~ILBox.-eTA8LE
APT PARAMETER BLOCK
MODULE 0.0 - PROGRAM START AND CONTROL
MODULE 1.0 ~ OPERATOR INTERFACE
MODULE 1.1- GET SYSTEM BUS ADDRESS + TEST
ADDRESSING TEST
ERROR 1
UNIT NOT RESPONDING TO ADDRESS
MODULE 1..2 - GET SOFTWARE SWITCH REGISTER
MODULE 1.3 - CHECK SYSTEM ADDRESS
MODULE 2.0 - SYSTEM SCHEDULER
MODULE 2.1 - INITIALIZE CHECK
6677
ERROR 2
NO [)CWE BIT AFTER INITIALIZE
6690
ERROA 3
ERROR B1 T SET ON INI rIAll ZE
6705
MODULE 2.2 - SYSTEM DRIVER
6818
MODULE 2.2.1 - GET C~D
6911
MODULE 2.2.2 - TRACK + SECTOR UPDATE
7040
MODUlE 2.2.3 - DRIVE DRIVER
708.3
l'O)utE 2.2.3. 1 - OUTPUT DRIVE C~D
7149
MODULE 2.2.3.1.1 - OUTPUT SINGLE WOAD
7161
MODULE 2.2.5 - ERROR CHECK
7237
ERROR 4
READ ~INT STATUS CCM1AND ERROR
7253
ERROR 5
SET DENSl TY C~ ERROR
7270
ERROR 6
READ SECTOR CC11YH> ERROR
7279
MODULE 2.2.S.1 -DRIVE DROP
7385
MODULE 2.2.5.2 - DRIVES AVAILPBlE CHECK
7481MODUlE2.2.S.3 - SET TEST BITS IN CSR + ESR
7524
MODULE 2.2.5.4 - LOOPING MODULE
7539
ERROR 7
LOOPING MOD-CSR ERR
7543
ERROR 10
LOOPING MOD-ESR ERR
7548
MODUlE 2.3 - SYSTEM STATUS
7659
r-r.>DVLE 2.3.1 - PRINT SYSTEM STATUS
7728
~Lt 2."5.2- SYS rEM DROP
7758
f"O)utE 2.3.3 - SYSTEM TlMEOUT CHECK
7803
~E 2.4 - WATCHDOG SYSTEMNO
7826
~E 2.5 - WATCH DOGSYSfEMNl
7853
PO>U'.. E 3.0 -OUTPUT SYSTEM D<H
7893
ft'()DULE U.PRIHI - SE T PROCESSOR PRIORI TV HIGH
7901
fIo()DUlE U.PRILO - SET PROCESSOR PRIORI TV LOW
7909~ULE U.PR(PAJ - SET PROCESSOR PRI
7922
f'IOOUlE U.SAM
- SET SYSTEM BUS ADDRESS
7932
MODUlE U.SUCO
- SET SYSTErIlI IN>ER CONTROL OFFSET
7940
MODUlE U.Dl - DELAY FOR •
OR • 'DCH"
7996

8037
8078
8098

8106
8124
8142

8255

"R'·

RX CS ER~ (HE CK
R)(ESERRM CHECK
TEST HEADER CHECK + PRINT
MODUlE U.PRTSYS - PRINT SYSTeM IDENTI FI CATION
MOOULE U.PRTORV .. PRINT DRIVE IOENT IF 1CATION
MODULE U.PRTKSC .. PRINT TRACK + SECTOR ERROR IDENT
CHfCK.BITS SET + NOT SET
ERROR SET Sl.8ROUT 1N€

CZRXEAORX02 fMTR PRQG MACY"

, C.ZRXEA.P"
5941

5942
'3943
')944
'3945
')946
'3947
5948
5CJ49
5950

5951
5952
5953
5954
5955

5956
5957
5958
5959
5960
5961

20-SE·P-78 10:48

30(1046)

ZG-SEP-18 10:48 PAGE 66-1

SEQ 0010

BUS INl TIAU ZE SLBROUTINf
RX02 I1JTERRUPT HANDLER 110
8301
RXOl INTERRUPT HANDLER. #1
8307
TTY INTERRUPT HANDLER
832.3
BUS ADDRESS TRAP HANDLER
8346
APT ERROR HANDLER
8358HODUlE U.DPRANS - ScRIP + GET OPERATOR ANSwERS
8371
TTV ENTRY SLBROUTINE
8418
TTV ENTRY ERROR SlI3ROUTlNE
8427
TTVANSWERENTRY SlSROUT INE
8458
TTV READ StBROUTlNf
8474
TTV ASCII OUTPUT Sl8ROUTINE
8497
OCTAL OUTPUT SlfJAOUT INE
8560
DATA CHARACTER OUTPUT SUBROUTINE
8587
TTV OUTPUT
8601
ME SSAG.E TABl E
8666
TEST HEADE~S
8264

8?94

8677
8691

ERRM COOt STORAGE

PATCH AREA

5962
5963

5964
5965

5966

I
t
1
ti CIRXEAO RX02 F,.,TR PROGMACY11 30(1046)
20"'SEP~?8 10:48 PAGE 67
ClRXEA.Pl1
20.... SEP-7810:48
5%8
5969
5970
5971
seq2

9.1

.TITLE

5973

Ll STING

CZRXEAO RX02 FMTR PAOG

; RX02-APT

')974

5975

; 14-MAACH-78

5977
'5978

.LIST

;L. PRUCHA

5976

• ENABLE ABS.AM

')979

5980
5981
1)982
5983
5984
5985
5986

5987
598B

5989
SS""'fO

5991
5992
5993

.NlIST

OOOOl,C
000200

OC;040()

001000
000200
000010
OOf'J004
000002
000400
0(10020

6008

SIDE1
fiRVRDY

::::

200
400
1000
200

:::

SIDRDY
DRIVEl
DENERR

:::
:::
:::
:::

CRCERR

:::

ACLO'W
IN] TDN

400
BIT4

BITS
BITO

:::

000001

APTENV

:::

40
SW7

000006

CRCALl
RDSEC
RDM'-I5T

::::

DBlDEN

12
10

:::

BIT8

6002
600.3
6004

6027
6034

DEN91 T

ERRBI T
DRVl
RXINI T

000020
040000

6007

::
::

TRSl T

100000

S996
5997
5998
5999
6000

6005
6006

Df\I31 T

DRVDEN

000001

6001

8E.X.CNO.MC,MD

000040

5994

5995

SEQ 0011

~OOO

000040
000200

000012
000010

000400

000001
000001

Rx28lT

APTCSP

Sf TOEN

)(=1
N:::l

:::

=
=
:::

.::'

100000
20
40000
4000

;DONE BIT--------<CSR>
;TR BIT----------<CSR>
;DENSITY BIT-----<CSR>
;SlDf #1 81T-----<ESR> & <CSR>
;DRIVE READY 81T-<ESR>
;AC LOIJ BIT------<ESR>
;INITIAlIZE DONE BIT-<ESR>
;SlDE READY 8IT--<ESR>
;DRIVE #1 BIT----<ESR>
;DENSITY ERROR---<ESR>
;DRIVE DENSITY---<ESP>
;CRC ERROR 81T---<ESR>
;fRROR8IT-------<CSR>

;DRIVE l---------<CSR>
;RXINIT BIT------<CSR>
;RX02 BIT--------<CSR>
;APT ENVIRtl'ftNT TEST WORD
;APT CCWSOlE SUPRESSION WORD
; CRe ALL TRACKS & SECTORS fLAG
;READ SECTOR CCWIAND CODE (LEFT SHH TED)
;.READ MAINT sr.,rus CCff'1ANI) CODE (lS)
;SET DENSITY Ca.IAND CODE (LS)
;DOLBlE DENSITY 8JT

CZRXEAO RX,02 fMT,R PROG f'1AC,', Y11 30( 1046>
,I', CZRXEA.Pl1
20"'SEP-78 10:48

6Ol.0
6042

.58TTl

(1)

(1)
(1)

(1)
(1)
(i)
<' i )
('\ )
(1 )

0)
(1)

CD
('1)

STACK~

.[QUIV

. FOUIV

CD
(1)

10:48

PIt 1
PAGE 67 .. 1

BASI C f)Ef INI TIONS

;*lNITlAt ADDRESS OF
001000

(1)

20-SEP-l8

000011
000012

000015

000200
177776
1T1771.

177772

177570

177510

1000

EMT,ERROR

lOT ;SCOPE

T~E

S -\CK ~j('1rNTER ••• 1000 ***
;;8ASIC DEFINITION Of ERROR CALL

; ;BASIC DEF INITlON OF SCOPE (All

;*MlSCElLANEOUS DEFIN.ITIONS
HT:::
11
;; CODE FOR HORIZONTAL TAB
IF=
12
:;CODE FOR LINE FEED
CR=
15
;; CODE FOR CARRlAGE RETURN
(RtF=
200
;; CODE FOR CARRlAGE RETURN-LINE FEED

ps=

;;PROCESSOR STATUS WORD

OSWR=
DDISP=

; ; SfA C.\. i ''11 T RE GIS TER
;;PROGR.Al'flNTERRuPT REQUEST REGISTER
: ;HAADtJARE SWl reH REGI STER
; ;HAADWAAE OISPLAY REGISTER

177776
.EQuIV P$,PSW
STKlI'fIT= 177774
PIRQ~
177772

177570
17757C

(":)

000007

; • GENERAL PURPOSE REGISTER Dff INITIJNS
; ; GENERAL REG! STER
RO=
'to
Rl:::
%1
; ; GENERAL REG! STER
RZ:::
%2
; ; GENERAL REGI STER
,R3=
%5
; ; GENERAl REGl STER
;;GENfAAl REGISTER
RL. =
%4
; ; GENERAl REGISTER
R5=
%5
R6:;;.:
%6
;;GfNERAl REG! STER
R7=
%1
; ; GENERAL REG! STER
SF'=
;%6
;;STACK P01NTER
PC::
%7
;; PROGRAMCOl.N·r ER

000000

PRO=

(1)

(":)
('1)

OX><)()O

000002
000003

('''! )

(:)

000001

000004

C'i

000005

{ "!'

000007
000006

, r

en
, ' !

Cl>

(1)
(1 )

000006

0)
('n
(1)
(1)
(1)
(1)
(1 )
(1 )
(1 )

CI )

0)
(1)
(1)

0)
(1 )
(1)
(1)

(1)
(1)
(1)
(1)

()()()O40

000100

: "'PRIORI n LEVEL DEF INl HONS

PR 1::
PR2=

000140

PR3=
PR4,,=,

000240

PR5=

000200

000300
000340

PR6=

PR7=

0
40
100

140
200
240

300
340

; ;PR1ORITY LEVEL 0
; ; PR 1OR.17Y LE VE l 1
; ;PRIORITY lEVEL 2
; ;PRIORIT'y LEVEL 3
; ;PRIORITY LEVEL 4
; ; PFU OFU TY LEVEL 5
; ;PfHOAI TY LEVEL 6
; ;f>RJORITY LEVEL 7

;."SWITCH REGISTER t • SWITCH DEFINITlONS

100000

5\J15=
SW'i4=

020000
010000
004000

SWi2=

040000

002000

001000
000400

000200
OOC100

000040
000020
000010

s\J13=

swl1=
51..110=
S\J09=
SW08=
S\J07=
SW06=
$1..105=

100000
40000
;~OOOO

iOOOO

4000
2000

1000
200
100
40
20
400

Sw04=
SW03=10

SEQ 0012

I
·1'
.•...

CIRX[AO RX02 F"HR PROG I'l\ACV11 30(046)

CIRXEA~P'1

·I (,)
I

(1)

•. •

(.1)
(1)

~~;

000004
000002
000001

•

t
I

(1)
(1 )
(1)

( )
1"1)
(1)
(1 )
(j)
(' )

i~; ~

(1)
(1)

(1)

<i' )
(1)

(1)
(1 )

(1)

(~ )

4000

000400
000200
000100

81 r09=
sn08=

enOl:::
ep06:-

8110S=
81104=

001000

000040

000020

000010
000004
000002
000001

(1)

(1)
(1)

(1)

6043

BlT03,::
BITO;?:.:
BIT 0"::
an 00::

• FQUr.;
.EOUIV

.EOUIV
.EOUIV
.EOUIV

.EOUIV

.EOUIV
.EOUIV

.fourv

1
81 T09 ,.8,T 79
BIT08~B!r8

81107#8117
8JI06 .. 81T6
81105 .. 8J15
81104 .. 81T4

81103 .. 8113

.81T02 .. 8112
81T01 .. 8111

.fourv 81TOO,,8ITO

(1 )

(1,

2000
1000
400
200
100

(i )

SWOO,SWO

8~¥11:::;

( )

1
SIJ09,SW9

81Tl0=

004000

4
2

002000

020000

(1)

SEQ 0013

010000

100000
040000

(1)
(1)
(1 )
(1)

. Eovlv
•Eoulv

N 1

PAGE 67-2

; "PATA r rOEFINITICWS (SITOO TO BJT15)
8; T1 S= 100000
Bl T11.= 1.0Q(iO
81! 1 J= 200\)0
81 '\' 12=1 0000

(1)

5'01102::

SWOl ::
SIJOO::

.EQUIY

(1 )

(I>

10:48
BASICDEFINITIONS

SItI08"S\J8
.EQUIV SlJOr"Sw7
• EOUIV sW06"SW6
· tOU1\! SIJOS ,sw5
• E(lUl V S\J04,SW4
· fe/vJ V SW03,SW3
• [(JU1V S\J02,SW2
• EOUIV SW01..SWl

(" )
(1)

]

20-SEP-78 10:48

20-SEP-18

000004

000010

000014
000014

000014
000020

000024
000030
000034

000060
000064
000240

;-BASIC "CPU" TRAP VECTOR ADDRESSES
ERRVEC= 4
:; TIME our AND OTHER ERRORS
RESVEC= 10
; ;RFSERVED AND ILLEGAL INSTRUCT IONS
T81 TVEC;:14
; ~ HT' 8IT
TFHVEC= 14
;;TRACE TRAP
SPTVEC:.: 14
: ; BREAKPOINT TRAP (SPT>
IOTVEC=20
; ; INPUT/OUTPUT TRAP (Jon .-SCOPE-PWRVE c;:: 24
; ; POWER FAll
EMTVEC= 30
; ; EMULATOR TRAP (EM·f) .-ERROR.·
TRAPVEC:::34
;;' "TRAP" TRAP
iK VE C:: 60
; ; TTV KE VBOARD VE CTOR
TPVEf= 64
; ;TTV PRINTER VECTOR
PIRQVE(~240
;;PROGRAM INTERRUPT REQUf~t VECTOR
I

1_1__________________-.-__- - - - - -__- 1_ . _ . ,_ _ _ _ _ _- -_ _,_,,,_ _ _ _ _ _- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -_ _ _ _ _ _ _ _ _ _-J

B 2

MACV11 30(1046) 20-SEP-78 10:48 PAGE 67-3
20-SEP-7810:48
BASIC DEFINITIONS

(lRXE AO R)(02 FMTR PROG

CZRXEA.Pl1

TRAP CATCHERS *""***

6044
6045

000000
000000 000000
6048 000002 000000
6049 0\.."'0004 000000

.=-O

6046
6041

6050
60'> 1

60)2

A{153

::)4
"')5-

t)v')6

SEQ 0014

000006
OC0010
0000"2

000014
000016

000020
0v0022

. WORD
. WORD
•WORD
. WORD
• wORD
•WORD
•WORD
. WORD
. WORD
•WORD
.\..JORD
.WORD
•WORD
. WORD
. WORD
. WORD
. WORD
. WORD
.\JORD

OOOOOC

080000

O{)OOOC
000000
000000

000000

000000
000000
000000
000000
000000
000000
000000
6064 000042 000000
6065 000044 000000

60S7 000024
6058 000026
6059 000030
6060 000032
6061 000034
6062 000036
606.3 000040
6066
6067
6068
6069

.S8TTL

0
0

; UNASSIGNED TRAP

; TIME OUT, BUS TRAP

0
0
0
0
0
0
0
0
0
0
0

;RESERVED INSTRUCTION

; TRACE TRAP

0
0

ACT11 HOOKS

(1)

;;*******************************""*******************************

(2)
(1)
(1)
(1)
(1)

(1)
(1)

(1)

I
I
I

I!
I

I
I
I

000046
000046
000046 001422
000052
000052 000000
000046

;HOOKS REOUIRED BY

ssvPC=.
.=46
SENDAD
.=52

. WORD 0
.=SSVPC

ACT1'

;SAVE PC
;;l)SET lOC.46 TO ADDRESS OF $ENDAD

;;2)SET lOC.52 TO ZERO

;; RESTORE PC

CZRXEAO RX02 fMTil PROG MACV11 30<104t» 20-SEP-78 10:48 PAGE 6'_4 2
CZRXEA.P11
20-SEP-78 10:48
ACT11 HOOKS
6071
;~-*** TTY INTERRUPT VECTOR ***-*
6072
6073
.::60
000060
;TTY INTERRUPT HEADER ADDRESS
6074 000060 012420
TT INT
6075 000062 000000
o
6076
60'17
6078
6079
.=200
1 6080 000200 000200
RO
CLR
005000
STAAT
;PROGRAM START
6081 000202 000137 001000
JMP
6082
.::210
6083
000210
111 ~RO
;SET NO HEADER FLAG
MaV
6084 000210 012700 000001
JMP
STAAT
6085 000214 000137 001000
6086
.::220
6087
000220
;SET DE8UG FLAG
INC
Dl3GFLG
6088 000220 005237 000516
RO
;SET SO HEADER WILL PRINT
CLR
6089 000224 005000
STAAT
JMP
6090 000226 000137 001000

6091

6092

6093

6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6i04
6105
6106
6107
6108
6109
6110
6111
6112
6113
6114
6'15
6116
6117

.::264
RXINTO
340

000264
000264 012404
000266 000340
000270
000270 012412
000272 000340

.=270
RXINT1
340
.::300

000300

;Rx02 INTERRUPT HANDLER 110 ADDRESS
;RX02 INTERRuPT HANDLER 111 ADDRESS

;11'**** CONSTANTS .**.11'

000300
000302
000304
000306

000310
000312
000314
000316
6118 000320
6119 000322
6120 000324
6121

177560
177562
177564
177566

TKS:
TK8:
TPS:

TPS:

177560
177562
177564
177566

;TTY READER STATUS
;TTY READ BUFFER
;TTY PUNCH STATUS
;TTY PUNCH BUFFER

;* .. *** INITIAL CONSTANTS *.*.*

000264
000270
177170
177200
000004
000006
000401

VECTO:
VECT1:
REGSO:
REGS1:
BTRP:
BTRP2:
SWREG:

264
270
177170
177200

4
6

401

;INTERRUPT VECTOR SYS #0
;INTERRUPT vECTOR SYS 111
;STAATlNG REGISTER ADDRESS SYS 110
;STARTING REGISTER ADDRESS SYS 111
;8US TRAP ADDRESS
;8US TRAP RRIORITY LEVEL
;SOFTWARE SWITCH REGISTER ... PRESET ... ) DEN=DBl,SVSO

SEa 0015

_-------------------- -_." D 2

.-........

ctRXEAO RX02 fMTR PROG MAcvn 30(1046) 20-SEP-78 10:48
20-S'EP .... 78 10:48
. CZRXEA.P11
AC T11 HOOKS

6123

000400
000401
000264

6124

6125
6126

177.110

6127

6128
(1)

PAGE 67-5

SEQ 0016

.==400

ASWREG~401

:~PT VECTOR 264
;APT UNIBUS ADDRESS

AVECT1=264
N3ASE=l77170
· SBTTl

APT MAILBOX-ETABLE

(2)
(1)

(1)

000400
000400
(1)
000402
(1)
000404
(1)
000406
(1)
000410
(1)
000412
(1) 000414
(1) . 000416
(1)
000420
(i)
000420
(1)

<1>000421
(1)

(1)
(1)

000422

000424

0004,26

(1)
(1)

00000o
00000o
00000o
00000o
000000
000000
00000o

AFATAl
ATESTN
APASS

;;APT MAILBOX
;;MESSAGE TYPE CODE
;;FATAL ERROR NUMBER
;;T£ST MJlf3ER
; ; PASS COL.NT

ALNIT
MSGAJ)
'MSGlG

; ; 110 lNI T NlJt'BER
;;MESSAGE ADDRESS
; ;MESSAGE LENGTH

000
000

AENV
AENVM

000000

AUS~

(1)
("I )
Ct)

(, )
(1 )
(1)

(1)

B1 T , O=REAL TIME CLOCK
9=flOATlNG POINT PROCeSSOR

: '"

• II!

0004 30
000431

000

!MAMS1! .8YTE
$MTYP1: .BYTE

AWV1S1
ANtTYP1

; 111

.· '"
()()0.4 32

000000

000434

000
000

000435

000441

00000o

000
000

00000o
000444
000

000445
000
000446 00000o
000450 00026'.

()()()452 000000

000454 177170
000456

BIT
Bll

8-=MEfWKlRY ~GEMENT
; ;H1GH ADDRESS"M.S. BYTE
; ;MEM. TYPE .. 8LK#1
MEM. TYPE BYTE
-- (HIGH BYTE>

•WORD

N¥.DR1

900 NSEC CORE=001
300 NSEC BlPOLAR=002
SOO NSEC MOS=OO3
; :HIGH ADDRESS .. 8LKA1

~S2: .8YTe

Al¥I1S2

;;HIGH ADORESS . M.S .. ByrE

~TYP3
~R3

;;MEM.LAST ADDRESS,81KA'2
; .;H IGH ADDRE S5 .. M. S.BYTE
; ;MEM. TYPE *BLK#3
; ;MEM. LAS TADDRESS .. BLK"3

;

()()0442

(1)

; ;USER SWI rCHES

l'/04=Ol~11/05=02~11/20=03*11/40=04Iil1/45=05
11/70=06~PDO=07,Q=10

·· '"

(1 )

;;APT ENVIR<Nt1ENT TABLE
; ; ENVIRCN'1ENT eYTE
;;ENVIRCHttNT MODE BITS
;;APT SWITCH REGISTER

: 11

0004.36
000440

; ;DEVI CE COttH

ACPUOP ;; CPU TYPE ,OPT l~S
BITS 15-11=CPU TYPE

: ""

(1)
(1)
(1)
(1)

(1)
(1)

ASIAAEG

000000

(1 )
(1)

('1:)
(1)

ADEVCT

0<>0401

<, )

NVlSGTY

000000

,'111

SMADR1 :
.*

SMTYP2: .BYTE
SMADR2: • ..oRO
$I'lAMS3: .BYTE

SMTYP3: .BYTE
SMADR3: •WORD

$I¥IlS4: .BYTE
SMTYP4: .BYTE
~4:

SVECT1:

sveCT2:

~WORD
~WORO
~WORD

seASE: • WORD
Sf TEND:

.MEXIT

N¥tTYP2
fJN4.DR2
A'¥MS3

NW1S4

NltTY?4
AMADR4

AVECTl

AVECT2
A9ASE

MfM.lAST ADM.:3 8YTES~ nus WORD AND lOW OF '1YPE

;;MeM.tYPf~81K#2

; .;HIGHADDRfSS.M. S.BYTE
; ;MfM. TYPe ,BlKA4

;;MEM.LAST ADDRESS .. BlKA'4
;; INTERRlPT VECTOR.f' ,BUS PfUORl TY",

;;lNTERRUPT veCTOR'28USPRIORITYN2

;;8Ase ADDRESS OF EOUIPMENT ~OER TEST

ABOVE

E 2

ClRX£AO RX02 FMTRPROGMACV11 30(046) 20-SfP-78 10:48 PAGE 67... 6
CIRXEA.P1,
20.... SfP... 78 10:48
APT PARN1ETER BLOCK

6130

.58TTt APT PAAAMErER8LOC~

(2)
~i )
(2)

;SET LOCATICWS 24 IWD. 44 AS REQUIRED FOR APT

(1)

(1)
(1)
(1)
(1)

<1)

;;*.****.********-************************************-**********

000456

000024
000Ql,4

(1)

(2)
(, )
(, )
(1)
(1 )
(1)

(1 >

(1)
(1)

0)
(1)

SEQ 0017

;;***.***********************************************************
S)(·~

:=24·

000044
O)Q4S6
000456

;; SAVE CURRENT LOCATION

;;5£1 POWER FAll TJ POINT TO START OF PROGRAM
200
; ;fOR APT START lP
• ·=44
; ;POINT TO APT INDIRECT ADDRESS PNTR.
SAPTHCR ; ;POINT TO APT HEADER BLOCK
.=.S)(
; ;RESET lOCAT1~ r.MTER

000024
000200

,.., ***~***.*******-***********************************************
;SETuP APT PARN'IfTER BLOCK AS DEFINED IN THE APT ..PDPll DIAGNOSTIC

; I NTH~F ACE SPE C.

000456
000456

000460

000462
000464
000466
QOOI.70

•

000000
000400
000120
000120
000120
000027

SAPTHD:
Sf-HeTS: • WORD
vt3ADR: • WORD

.WORO
SPASTM: • WORD
SlI'4Z TM: .WORO

S151M:

• WORD

;;TWO HIGH BITS OF 18 BIT MAILBOX ADDR.

; ; ADDRESS OF APT MAILBOX (BlTS 0-15)
; ;RtM 11M OF LONGEST TEST
;;RlJ',I TIME IN SEes. Of 1ST PASS ON 1 UNIT (QUICK VERIFY)
... i..iADDI TJDNAL R~ TIME (SEeS) OF A PASS FOR EACH ADDlT lONAl UNIT
SETENO·~lLI2 ;;lENGTH MAIL80X-ETABLf(WORDS}

SMAll
120
120
120

.CZR)(£AO R~()2;:MTR PROGMACV1130(046)
CIRXfA"P11
6132
6133
613J..

6'35

6136

6:37

6'38

6139

20-SEP ... 78 10:48

ooo,~ 72

'1 77170

000474

177112

C00476
000500
OOOl)C2

000504
000506
000)10
6142 000S'12

6140
6141
6'4~

000514

000516
000520
6~46
OOOS22
,Y47 000524
6148 000526

6'44
614)

6149 000':>30
6150 0005.32
61~.1
6~S2

000534
000536

61)4

000542
000544
O()0546
000550

61':>3

61))

6'56

6157
6158
6159
6'60
6161

A162

000540

000264

000001
000000

000324

000000
000000

00000o
00000o

000000
000000
000000
0000:;,0

000000
000000
OOJOOO

00000o

000000
000000
000000

00000o
00000o
000000

000552 00(0)0
000554 00000o
000556 OOOCOO
000560

00000o

000562 000000
6163 000564 00000o
6164 000566 OOOOOC
6i65 000570 00000o
6166 000572 00000o

00000o
000576 000000
61119 000600 00000o
6170 000602 00000o
6171 000604 00000o
6'72 000606 000000
6173 000610 00000o
6'67
6168

6174

6175

000574

000612 000000

000614
000616

6176
6177 000620
6178 000622
6179
6180
6181
6182

000624

00000o
00000o
00000o
00000o
00000o

000000
000630 000000
000632 000000
6183 000634 000000
000626

F 2

20-SEP-78 10:48 PAGE 67-7
APT PARAMETER BLOCK

R)(CSA{): 177170

R)(DBAD: 177172

R)(VECT: 264
SECT;(: 1
TRACK: 0
SwR:
#SWREG
DENS:
0
REGS:
0

VE Cr :
0
INlTPG: 0

DBGFlG: 0
LSIFlG: 0

PCNTR:
T()3:

TlB:

ANS~ER:

0
0

TTwA\1T: 0
CSR:
(I
ESR:
0

WOOf:

CMD:

CSRCMP:
ESRMSK:
ESRCMP:
TS TERR:
SQW\1l T:

CSRMSK: 0

Sl~lT:

TEMP1:
TE~2:

0
0
0

0
0
0.

TEMP3:
&'!'RPFl: 0

SYSM5G: 0
$YSFlG: 0
STflG: C

TMSGAO: 0
HORFlG: 0
0
SYSfRR: 0
sue:
0

ER1~TYP:

SOAV:

S1Av;
SORDY:

0
0
0

0
0
S1 CMO: 0
SODN:
0
S1DN:
0
TTlTFG: 0
ENDFTS: 0
S1RDY:

SOCMD:

SEQ 0018

;RX02 CSR ADDRESS
;RX02 DaR ADDRESS
;RX02 VECTOR ADDRESS
;SECTOR ADDRESS
;TRACK ADDRESS
;SWITCH REG ADDRESS
;DENSITY WORD
;REGISTER ADDRESS BUFFER
;VfCTOR ADDRESS BUFFER
;PROGRAM INITIALIZE FLAG
;DE8UG FLAG
;lSI OR SI./ITCHlESS PROCESSOR FLAG
;PASS COLWTER
;TYPE OUTPUT BUFFER
;TYPE INPUT BUFFER
;ANSIJER TO QUESTION BUFFER
; TTY WA IT FLAG
;RXCS TEMP STORE
;RXES rEMP STORE

;WORD FOR OUTPUT

;RX C()YMAND
;HXCS ~SK IJORD
;RXCS CcrtPAAE IJORD
;R.XES ~SK WORD
;RXES C(Jf)AAE WORD
;TEST ERROR FLAG
;IJATCHDOGMUl TIPLER SYSTEftWO
;WATCHDOG MUlTJPlER SYSTEMl1

·
·;8US TRAP FLAG

•
,

;SYSTEM ME~SAGE BUFFER
;SY$TEM FLAGS
; - START PROGRAM FLAG
;MfSS.AGE ADDRESS-HEADER

;HEADER FLAG

;ERROR TYPE
;SVSTEM ERROR
; SYSTEM lMDER Co.-HROL
;SYSTEMIIO AVAILABLE
;SYSTEM#1 AVAILABLE
;SYSTEMIIO READY
;SYSTEMN1 READY
;SYSTEMNO CCf'M6.ND WORD
;SYSTEMN1 COMMAND WORD
;SYSTEMNO DONE FLAG
;SYSTEMN1 DONE FLAG
;TTY INTERRUPT FLAG
;* .. * DO NOT REMOVE THIS LABEL <if_.

G 2

CZRXEAO Rx02 fMTR PROG MACY1' 30(1046) 20-SEP-78 10:48 PAGE 67-8
APT PAANt1ETER BLOCK
CZRXEA.Pl1·
20-S£P-78 10:48
6185

6186
6187

6188

001000

6189 001000 Oi2706
6190 001004 005037
6191 001010 005037
6192 001014 005037
6193 001020 005700
6194 001022 00'115
6195 001024 012704
6196 001'030 004737
6197 001034 132737
6198 001042 001441
6199 001044 122737
6200 001052 001006
6201 001054 012737
6202 001062 106427
6203 001066 000403
6204 001070 012777
6205 001076 012737
6206 00,,04 113700
6207 0011 10 042700
6208 001114 012720
6209 001120 012710
6210 001124 013737
6211 001132 004737
6212 001136 013737
6213 001144 000444
6214 001146 042777
6215 001154 012777
6216 00'162 012777
6217 00'170 012777
6218 001176 000405
6219 001200 0127.37
6220 001206 106427
6221 001212 005077
6222 001216 005077
6223 00'222 004737
6224 001226 013705
6225 ,001232 012725
6226 001236 012715
622? 001242 013705
6228 001246 012725
6229 J01252 012715
6230 001256 005037
6231 001262 032777
6232 001270 001404
6233 001272 012737
6234 001300 000402
6235 001302 005037
6236 001306 012702
6237 001312 012700
6238 001316 005022
6239 001320 020200
6240 001322 103775

SEa 0019

.=1000
•S8TTL MODULE 0.0 - Pr.OGRAM START AND CONTROL
•"

...

STAAT:

00100'0
000516
000406
000570

IAOO:

014040
013232
000001 000420

1800:

000100 000427

lCOO:

000001 000520
000200
176700 Leoo:
000422 000504 ECO(;:
000,50
17"7400
012404
000340
000454 000472
002204
000472 000314
0003,~0

~....

MaV
CLR
CLR
ClR
TST

BNE
MOV
jSR
BITB
BEQ

CMPB

BNE
MOV
r-1TPS
BR
MOV
MOV

Mova

SIC

MaV
MOV
MeV
CALL
MaV

SR
SIC

000100
001200
000200
000340

177124 l800:
1771.56
'77132
176600 1000:

000001

000520 LSITRP: MOV
MTPS
EDOO:
CLR
(lR
CAll
MaV
MOV
MOV
MOV
MOV
MOV
CLR
EAOO:
177214 IJOO:
BIT
BEQ
MaV
000506
BR
LJOO:
cu~
BEOO:
MOV
MOV
(LR
BFOO:
eMIl
BlO

000200
177102
177100
001456
000310
012404

000340

000312
012412
000340
000522
000400

000400
000506
000524
000634

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

(IOV
MOV
MOV

/fl000,SP
DBGFLG
$PASS

BYRPFL
RO
EAOO
IfMSG3,R4
PC,TTOUT
IfAPTENV,$ENV
LBOO
Ifl00,$CPUOP+'
LCOO

1f1,LSIFLG

11200

f(OO
IfPR7,iiPSW

II$S~EG.SWR

$VECT1 ,RQ

1f177400,RO

AAAINTO. {ROH'

1I~40, (RO)

$BASE .. RX(SAD
ADTST
RXCSAP,RfGSO
fADO
#81 T6,iTKS
ilLS I TRP,iBTRP
1f200,iBTRP2
1f340,aPSW
rDOO
1f1 • LSlF LG

11200

Q8TRP
Q8TRP2
OPINT
VECTO .. R5
#RX INTO" (R5) +
11M? .. (R5)
VEe Tl .. R5
IfRXINT1 ~ (R5)+
IfPR7 .. (R )
peNTR
#8IT8,iSWR
lJOO
IfDl3LOEN .. DENS
BEOO
DENS
ItTOO,R2
IfENDFT8"RO
(R2)+

R26RO

SF 0

~- ...

--~

;SET STACK POINTER
;CLtAR DEBUG FLAG
;ClrAR APT PASS COUNTER
;ClEAR BUS TRAP FLAG
;IF PRINT HEADER
; INPICATED, THEN
; SETUP rI TLE MSG
;PRINT T1 TLE
; IF APT MODE
; TRUE, THEN

; I F CPU IS

;LSl/Q-8US, THEN

;SET LSI PROCESSOR FLAG
;SET LSI PRIORITY
.

.;SET PDP-ll PRIORITY

;SET SOFTWARE SWITCH ADDRESS
;GET VECTOR FROM ETABLE
; (LEA.~ TOf BY TERO
;LOAD I~TtRRUPT ADR IN VECTOR
;~OAD

PRIORITY

;SET REGISTER BASE FROM ETABLE
;CALL ADDRESSING Tsr
;SET SYS#O BUS ADDR
;BR TO END 'A'
;DlSABlE TTY KEYBOARD INTERRUPTS
;SET BUS TRAP FOR LSI TRAP
;SET UP PROCESSOR PRI-BUS TRAP
; F PROCESSOR IS
;~ lSL THEN
;SET LSI PROCESSOR FLAG
;SET LSI PROCESSOR PR!ORITY
;RESET BUS TR,4P
;RESET BUS TRAP
; CALL GE T USER INPUT (MOD 1. 0)
;GET SYSAO VECTOR
;SET SYSTEJ'fIAO VECTOR
;seT PROCESSOR PRI
;GE1 SVS#l VECTOR
;SET SYSTE,."l VECTOR
;SE1 PROCESSOR PRI
;ClEAR PASS COUNTER
; IF SWI TCH REG HAS DOt.eLE DENSITY BIT
;SET" THEN
;SETUP DENSITY=DOlBLE
;8R TO BEGIN DO 'e'
;SETUP DEN$lTY=SINGLE
; SET 8EGII\NING Of TABLE
;SET END OF TABLE
;CLEAR fABLE OF FLAGS + COUNTERS
; DO I..NrIl

;END OF TABLES DONE

........

[APT]
[APT]
[APT]
[APT]
[APT]
[APT]
[APT]
[APT]
[APT]
[APT]

[APT]
[APT]
[APT]

[APT]
[A.PT]

(APT]
CAPT]
[USER]
(USER]
(USER]
(USER)
[USER]
(USER]
(USER)
[USER]
(USER)
(USER)
(USER)
(USER)
[USER]
[USER)
(USER)
[USER]

CZRXf 1<\0 R)(O;) FMTR PROG

CZRXEA.Pl1
6241
6242

6243

6244

20-SEP-78 10:4b

001324
001330

001334
00'1342

001344
6246 001350
6247 001354
6248 001360
6249 001364
6250 001.370
6251 001374
6252 001400
6253 001406
6254 001412
6255 001414
6256 001420
6257 001422
6258 001424
6259 001426
6260 001430
6261 001432
6262 001440
6263 001442
6264 001444
6265 001446
6266 001452
6267
6245

MACv11 30(1046)

005237

004737
132737
001002
004737
012704
004737
005237
013703
004737
005237
0137.37
013700
001407
005037
000005

000514
002514
000001

000420

007676
014164
013232
000532
000522
013346
000522
000522 000406
000042
000042

004710
000240
000240
000240
032737 000100 000574
001401
000777
000005
005037 000532
OJ0137 001306

H 2
20-SEP-78 10:48 PAGE 67-9
MODULE 0.0 - PROGRNt'I START AND CONTROL

IGOO:
EGOQ:

INC
CALL
81 T8
BNE
CALL
MOV
JSR
INC
MOV
JSR
lNC

MOV
MOV
8EQ
ClR
RESET
$ENDAD: JSR
NOP
NOP
NOP
IHOO:

1100:
1$:

EIOO:

ENDOO:

81 r

8EQ
BR
RESfT
CLR
JMP

INlTPG
SVS(HD
IfAPTENV,SENV
EGOO
OTSYDN
HMSG6,R4
PC,TTOUT
TTWAI 1
PCNTR,R3
PC,OCTP
PCNTR
PCNTR,$PASS

~42,RO

1100
0JII42

PC" (RO)
Ifl00"SYSFLG
flOO
1$
TTWAI T
8EOO

SEQ 0020

; SE T PROGRAM INl TlAL I ZE FLAG
;GO FORMAT SCHEDULED SYSTEMS
; IF fI.PT MODE
;FAlSE, THEN
;CALL OUTPUT SYSTEM DONE
;SET END OF PASS MSG
;PRINT END OF PASS
;5£1 TTY WAIT FLAG

(MOD 2.0)
(MOD 3.0)

;PRINT PASS NUMBER
;9UMP PASS COU~TER
;8UMP APT PASS COUNTER
;IF ACT
;MODE, THEN
;A80RT THIS PROGRAM
;ACT HOOKS
· It DO NOT
REMOVE
·

··
·
·;IF
IDLE MODE

THESE NOP'S

;SfT, THEN
;IDlE LOOP

·;CLEAR TTY WAIT FLAG
;DO NEXT PASS

•.------------------------~----------------------------------------------

CZ,RXEAO RX02 F"'TR PROG Mev" 30(1046) 20-SEP-78 10:48 PAGE 67-10
MODULE 1.0 - OPERATOR INTERFACE
CZR~EA.P'1
20-SEP-?8 10:48
6269
6270
6271
6272

6273
6274
6275
6276
6277

6278

6279

6280

6281

6282

6283
6284

6285

6286

6287
6288
6289
6290

6291

6292

6293
6294
6295

6296

6297

6298
6299
6300
6301

6302

6303
6304

6305

6306

6"!IJ?

S3i08
6309
6310
6311

6312

6313
6314

6315
6316
6317
6318
6319

6320
6321

.S8TTL MODULE 1.0 - OPERATOR INTERFACE
;8EGINROUTINE (MODULE 1.0 -GET USER INPUT)
; SET SOFTWARE SWITCH REG ADDRESS
; SETUP & PRINT ''-tElP?''
; CALL GET ANSWER
[AJ
; IF ANSWER=YES
; : THEN
; :
SETuP & PRINT HELP FILE
; ENDIF
; SETUP & PRINT ''SET DISKETTE TO SINGLE DENSITY? (Y OR N)"
; CALL GET ANSWER
[8J
; IF ANSWER=YES
; : THEN
;:
SET DENS it SOFT SWITCH REG DENSITY 8IT=slNGLE DENSITY
; : ELSE
;:
SET DENS it SOFT SWITCH REG DENSITY BIT=DOlI3LE DENSITY
; ENDlF
; SETUP & PRINT 'VERIFY DISKETTE CRC (ALL TRACKS)? (Y OR N)"
; CAl.L GET ANSWER
[e)
; IF ANSWER=YES
: ; THEN
;:
SET SOFT SWITCH REG=CRC ALL 8IT
; ; ELSE
;:
CLEAR SOFT SWITCH REG=CR(ALl 8IT
; ENDIF
; SET <SUC>=O
; SETUP & PRINT "FLOPPY SYS '0 ADDRESS CHANGE? (V OR N)"
; CALL GET ANSWER
[DJ
; IF ANSIJER=YES
: : THEN
::
S.E T YES ANSWER FLAG
; : ELSE
; :
CLEAR YES ANSWE RF LAG
; ENDJF
; CALL GET SYSTEM BUS ADDRESS
; CAll CHECK SYSTEM BUS A·DORESS (SEE IF 800T S, ~ fEM>
; SET SOFT SWITCH REG=SYS 10 AVA1LA8tE
; SETLP &PRINT "IS SECCWD FLOPPY SYSTEM AVAILABLE? <Y OR N)"
; CALL GE T AI'ISWER
; JF ANSWER=YES
eEJ
;
THEN
;
SET <SUC>=l
;
SET YES ANSWER FLAG
;
CAll GET SYSTEM BUS ADDRESS
;
CALL CHECK SYSTE" sus ADDRESS (SEE IFaOT MEDIA,)
;:
SET SOFT SWITCH REG=SYS #1 AVAILABLE
; EN&IF
[F J
; IF DE8UG..FLAG=sET
: : THEN
;:
CALL GET SOFT SWITCH REG

;

fNOH

;ENDROUT INE

seQ 0021

•••

: CZRXEA!) R)(02;:MTR PROG MACY11 30(1046) 20-SEP-78 10:48 PAGE 67-11
'CIRXE/t.Pll
20-SEP,..78 10:48
MODULE 1.0 - OPERATOR INTERFACE
632")

6324 00145(>
6325 001461.,
6326 001470
6327 0014"74

012737
012704
004"737
004"737
6:>28 001500 122737

6329
6330
6331

6332

63:~3

6334

6335

6"S36
63.37
63:38
6339
6340
6341

00':')06

00'1510
OtY;514

001004
012"104

004737

000324 000504
015726
013232
012624
000131 000530
013232

000400

1 76732

001004

042777

001552 000403

052777 000400 176722
012704 016125
001566 004737 013232
6342 O}1572 004737 012624
634.3 001576 122737 000131 000530
6344

6345

00155/..
001562

001604
001606

001614
001616
6348 001624
6349 001630
6346
6347

6350

001634

6356

001660

6351 001640
6352 001644
6353 001652
6354 001654
6355 001656

6357 001662
6358 001666
6359 001672
6?:r60 OOi700
6361 001704

6362

001710

6363 001714
6364 001722
6365 001724
6366 001732
~367 001734
6368
6369

6370
6371
6372
6373
6374

001740

001744
001752
001756
001760
001764

001004

052777
0(X)403

0427-7

0050S7

012704

lA10:
EA 10:

000530

001')42
001S/-+4

1810:

L810:
E810:
IC10;

MOY
MOV
CALL
CALL

CMP8

BNE
MOY
CALL
MOY
CALL
CALL
CMP8
BNE
8lC
8R
815

MOV
CAll
CALL
CMP8
BNE

8IS

000200

176670

000200

176660 lelO:
EC10;

000610

00221

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

OPINT:

015300

001520 012"104 016045
001524 004737 013232
OOi S~50 004T57 012624
08,1534 122737 000131

SEQ

016206
OCw..737 013232
004737 012624
122737 000131 000530 1010:
001002
005202
000401
lDl0:
005002
ED10:
004737 001766
004737 002422
052777 000001 176604
012704 016271
004737 013232
004737 012624
122737 000131 000530 1£10:
001013
012737 000001 000610
005202
004737 001766
004737 002422
052777 000002 176532
005737 000516
IF10:
001402
004737 002346
Xl0:
000207

SIC
ClR
MOV
CALL
CALL
CMPB
aNE
INC
BR
CLR
[ALL
CAll

815

MaY
CAll
CALL
CMPB
BNE
MOY

#DENBIT,iSWR
F:810
HDENBIT,iSWR
#MSG46,R4

;SET SOFTSWITCH REG ADR
;SETUP MSG ·,.,ELP?"
;PRINT
; CALL GET OPERATOR ANSwER
;IF ANSWER
;15 YES, THEN
;SETUP MSG --> HELP FILE
; PRINT
: SETUP MSG "SET 01 SKE TTE TO SINGLE DENSl TY: (y OR N)?"
;PRINT
;CAll GET OPERATOR ANSWER
;IF ~~SWER
;15 YES . (SET SINGLE DENSITY), THEN
;ClEAR DENSITY BIT IN SOFT SWITCH REG
;BR TO END '8'
;SET DENSITY BIT IN SOFT SWITCH REG
;SETUP MSG 'VERIFY DISKETTE CRC (ALL TRACKS): (Y OR N)?"

TraJT

; PRINT

HSWREG,SWR
HMSG43,R4
TTOUT
GET,A,NS
H'Y,ANSWER
EA10
#MSG39,R4
nOUT
.tfMSG45,R4
TTOUT
GETANS
#'Y,ANSWER
L8l0

GETANS
H'Y,ANSWER
lJl0
HCRCAlL,iSWR
FC10
HCRCALL,iSWR

sue

/fr'1SG47,R4
TTOUT
GETANS
H'Y,ANSWER
LD10
R2
£Dl0
R2
GTSYAD
CKSYAO
Ifl,iSWR
HMSG48,R4
TTOUT
GETANS
If'Y,ANSWER
IF10

Ifl , SUC

INC
R2
CALL
GTSYAD
CALL
CKSYAD
81S
1f2,iSWR
TST
DBGFlG
BEQ
Xl0
CALL
GTSWR
RETURN

;CALl GET OPERATOR ANSWER
;IF ANSWER
; IS YES. THEN
;SET CRe ALL FLAG IN SOFT SWITCH REG
;8R TO END 'C'
;CLEAR eRe ALL FLAG IN SOFT SWITCH REG
;SET <sue> = 0
;SETUP MSG "FLOPPY SYS 0 ADDRESS MODIfICATION (Y OR N)?"
;PRINT
; CA\LL GET OPERA TOR ANSWER
;IF ANSWER
;lS YES, THEN
;5ET YES ANSWER FLAG
;8R TO END '0'
;CLEAR YES ANSWER FLAG
;CAlL GET SYSTEM BUS ADR &', TEST
;CA\lL CHECK SYSTEM At>R - MEDIA PROTECT
;5ET SYSTEMNO AVAIL
;SETUP MSG '~ECOND FLOPPY SUBSYSTEM (Y OR N)?"
;PRINT
;CALL GET OPERATOR ANSWER
;IF ANSWER
;15 YES THEN
; SE T <sue> = 1
;SET YES ANSWER FLAG
;CALL GET SYSTEf\1 BUS AOR & TEST
;CALl CHECK SYSTEM AOR - MEDIA PROTECT
;SET SYSTEMWl AVAIL
;IF DEBUG FLAG
;SET, THEN
;GET SOFTWARE SWITCH REG
;RETURN

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

K 2

CIRx£AO Rx02 FMTR PROG MACYl1 30(1046) 20-SEP-78 10;48 PAGE 67-12
ClRXEA.Pl1
20-SEP-78 10:48
MODULE 1.1 - GET SYSTEM BUS ADDRESS & TEST
.SBTTL

6:~l6

6377
·-,.·..,8

;BEGIN ROUTINE (MODULE 1. 1. GET SYSTEM BUS ADDRESS & TeST)
BEGIN DO
GET <sue> REGISTER & VECTOR ADDRESSES
·
SETuP &PRINT BUS ADDRESS
GET
NEW BUS ADDRESS
•
SET UP BUS ADDRESS
·
SETUP & PRINT VECTOR ADDRESS
·
GET NEW VECTOR
SETUP VECTOR
·
CLEAR BUS-TRAP-FlAG
. L~ll ADDRESS rEST
•
DO UNTIL BUS TRAP FlAG:O
SET <SUC> RE~ISTE~ & VECTOR ADDRESSES
·
; ENDROUT 1NE

().:) !

6379

···
··
··
·
··

63BO
63..81

'38'<.
b.,

638'3

63.84
63.13,')
6::,86
6387

(388
63.89
63.90

6391
6392

•.------------~~~------~~~----------~--------~------~------~-------------

639.S

IX)()2.r..O
001770 0002.r..O
6396 001772 0047.37 010126
67')97 0/:177'6 016137 000.31-4

6394

b, 3ci.')

6398
6399

6400

GTSYAD: NOP

001766

O:'ZOfj..!.

0':2014

0161~7

005702

001450

000.310

BAll:

000510
000512

004737 011132
002022 0 1 2704 014072
6403 002026 004737 013232
6404 002032 013703 000510
6405 002036 004737 013346
000510
~ 002042 012705
6407 002046 012701 000006
,6/..08 002052 012702 177500
'64W 002056 012703 177100
6£.10 002062 004737 012652
6411 002066 012704 014127
6412 002072 O()l.7.37 013232
6413 002076 013703 000512
6414 002il)2 004737 01.3346
6415 002"106 012705 000512
6416 002112 012701 000003
6417 002116 012702 000300
6418 002'22 012703 000250
6419 002126 004737 012652
6420 002132 013700 000512
6421 002136 005037 000570
6422 002142 013737 000510 000472
6423 002150 ~737 0022CM
6424 002154 005737 000570
6425 002160 001303
6426 002162 004737 010126
6427 002166 013761 000510 000314
6428 002174 013761 000512 000310
6429 002202 000207
6401
6402

6430

MOl)ULE 1.1 - GET SYSTEM BUS ADDRESS & TEST

1811:

002016

NOP

CALL
MOV
MOV

TST
BEQ
CALL
MOV

.JSR

MOV

.J5R
MOV
MOV

MOV
MOV
.J5R
MOV
.JSR

MO',

E811:
UA11 :

Xll:

;SR
MOV
MOV
MOV
MOV
JSR
MaV
CLR
MaV
CAll
TST
BNE
CALL
MaV
MaV
RETURN

SSUCOF
REGSO(R1)"REGS
VECTOCR1) ,VEer
q2
2811

PRTSYS
JtMSG4.R4
pc, TrOUT
REGS .. R3
PC,OCTP
IIREGS,R5
116,Rl
1f177500,R2

11177100,R3
PC, rTR
IIMSGS,R4
PC,TTOUT
VECT ,R3
PC,OCTP
IIVECT,R5

113,R1

11300,R2
1/250"R3
Pc, TTR
VECT,RO

BTRPFL
REGS ,.RXCSAD
ADTST

BTRPFL
BAl1

SSUCOF
REGS,REGSO(R1)
VECT,VECTO\R1)

··;CALL SET <SUC> OFFSET

;GET <sue> REGISTER ADR
:GET <SUC> VECTOR ADR
;IF YES FLAG
;5ET" THEN
;C~lL PRINT SYSTEM IDENT
;USER MODE
;REQUEST REGlSTER ADDRESS
,·

;PRINT CURRENT ADDRESS
;5ET ADDRESS SAVE lOC
;5ET SIZE OF RESPONSE
;5£T UPPER LIMlT
;SET LOWER LIMIT
;GO GET RESPONSE
,·

;REOUEST VECTOR
,·

;PRINT CURRENT VECTOR
;5E1 ADDRESS SAVE lOC
;SE1 SIZE OF RESPONSE
;SET UPPER lIMIT
; SET LOWER l IM1 T
;GO GEf RESPONSE
;GET VECTOR
;CLEAA BUS TRAP FLAG
;SET REGlSTER ADR
;CAlL ADDRESSING TEST
;00 UNTIL BUS TRAP FLAG
;EQUAlS 0
;CAll SET <SUC> OFFSET
;SET <SUC> REGISTER ADR
;SET <SUC> VECTOR ADR
;RETURN

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

SEQ 0023

CZRXEAO RX02 fMTR PROG MACY11 30(1046> 20-SEP-78 10:48 PAGE 6'-'~
CZRXEA .. P11
ADDRESSING TEST
20-SEP-78 10:48
.SBTTL

6432

6433
&.34

6435
6436
6437
6438
6439
6440
6441
6442

6443
6444
6445
6446
6447
6448
6449

6450

6451
6452
(1)
(1 )
(1 )
(2)
(1)

(1 )
(1)
(1)

6453
6454
6455
6456
6457

SEQ 0024

ADDRESSING TEST

•.~~~~~~~---~~~------~ -~~--~~~-~-~~---~-~-~-----~-~-~~-----~--~~--~~---

002204
002206
002214
002222
002230
002234
002236
002240
002244
002246
002250
002254
002256
002264
002266
002272
002276
002300
002304
002312
002314
002320
002322
002326
002330
002332
002334
002340
002344

000005
012737
012777
012777
013701
005711
000240
062701
005711
000240
005737
001427
032777
001004
012704
004737
000240
004737
032777
001350
004737
OOC'OOl

014367 000600
012474 176076
000340 176072
000472

AD1:

000002
000570
014326
013232
012262
001000 176172

TST
NOP
ADD
TST
NOP

2$:

(Rl)

112 .. Rl
(Rl)

BEQ
BIT

MOV

IIMSG11,R4
PC .. TTOUT

JSR
NOP
JSR
Bl T
BNE

JSR

• WORD

TST

BPL

HALT
NOP
AD2:
CLR
CLR
ADTSTX: RTS
1$:

IIMSG12"TMSGAD
II TRAP "iBTRP
11340 .. iBTRP2
RXCSAD,R1

BTRPFL
AD2
IIBIT13 .. iilSWR

BNE

012240

000240
005077 175760
005077 175756
000207

RESET
fIOV
MOV
MOV
MeV

TST

020000 176220

005777 176156
100001

00000o

ADTST:

PC .. 8SINlT
IISW09 .. iSWR
AD1
PC,.ERRSET
111
iSWR
1$
Ql8TRP
iBTRP2
PC

; INI TIALI ZE BUS

;SET TEST MSG HEADER
;SET TRAP HANDLER ADR

"
;GET
CSR ADDRESS
;REF CS REG
;IF ADDRESS IS BAD; BUS TRAP WILL OCCUR
;SET ADDRESS OF D8
;REF D8 REG

";IF

INITIAL ADDRESS TEST
;D1D NOT PASS .. THEN
; IF 1NH18I T ERROR REPORT
;NOT SET THEN
;SET UNIT NOT RESPONDING
;PRINT MSG

"
;CHECK
SWR fOR BUS INITIALIZE
; CHECK FOR LOOP ON ERROR
;GO TO LOOP ERROR

;FATAL ERR' 1 - UNIT NOT RESPONDING TO ADDRESS
;CHECK FOR HALT ON ERROR
; HAL T IF SET
;<UNIT NOT RESPONDING TO ADDRESS>
;ClEAR BUS TRAP
HANDLER
•·
;RETURN

•.-~~-~~-----~~-~~~-~~-~-~-~--~----~-~~~---~~-~~~------~--~~~----~--~----

M 2

CZRXEAO RX02 FMTR PROG MACY11 30(1046) 2o-SEP-78 10:48 PAGE 67-14
MODULE 1.2 - GET SOFTWARE SWITCH REGISTER
ClRXEA.P11
20-SEP-78 10:48
.S8TTlMODULE 1.2 - GET SOFTWARE SWITCH REGlSTER
6459
,. .........
...-... --_......--'-_........... -.-....-.,.....-...... ........ ........ ... ... .. ..... ............. ........... ..
6460
•
6461
;REQUEST SWITCH REG MSG
#MSG2,R4
GTSWR: f'lJV
6462 002346 012704 014002
Pc.. TTOUT
JSR
6463 002352 004737 013232
..
;SET CURRENT SWlTCH REG
SWREG,R3
MOV
6464 002356 013703 000324
;PR1NT CURRENT SWITCH REG
PC,OCTPE
JSR
6465 002362 004737 013334
;SET
SOFTWARE SWITCH REG AOR
#SWREG,SWR
MaV
6466 002366 012737 000324 000504
;SET ADDRESS Of SWITCH REG
#SWREG .. R5
MaV
6467 002374 012705 000324
;SET SIZE OR RESPONSE
116 Rl
MOV
6468 002400 012701 000006
#177777,R2
;SfT UPPER LIMIT
MOV
6469 002404 012702 177777
;SET lOWER LIMIT
MaV
IIO.R3
6470 002410 012703 000000
PC, TTR
;GO GET RESPONSE
JSR
6471 002414 004737 012652
;RETURN
RETURN
X12:
6472 002420 000207
6473
•.~~-~-~~--~~--~~---~~~~~~~~~~~-~-~-~-~--~-~~~~~~-~~~-~-~-----~---~-~-~~~
6474

,,--..

6475

---

-- ---

;8EGINROUTlNE (MODULE 1.3 - CHECK SYS rEM ADDRESS)
[AJ
; IF LOAD MEDIA PROTECT BYTE=RX02
,
THEN
[8J
,
IF <SUC> ADDRESS=RXO? STANOARD ADDRESS
;
THEN
•
CALL SYSTEM IDENTlFlCATION
,
SETUP & PRINT '~EMOVE XXDP MEDIA FR()'1 THIS SYSTEM"
,
SETUP & PRINT "-TYPE "CR" WHEN READY"

6478
6479
61.. 80
6481
6482

6483
6484

6485

6486

,
;
:

&.87

6488

&.B9

,,:

8EGINDO

ENDIF

6490
6491
6492
6493

; ENDlF
;ENDROUTINE

6495 002422 000240
6496 002424 122737 00001 5 000041
6497 002432 001026

CKSYAD: NOP
10413:
Cf\fl8

: . CALL TTY INPUT-GET TTY CHARACTER
DOLNT II CHARACTER:' 'CR' ,
CLEAR MEDIA PROTECT BYTE

(CJ

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

6--.94

002434 022761

177170 000314

6499 002442 001022
6500 002444 004737 011132
6501 002450 012704 015140

002454
6502 002460
(1)
002464
6503 002470
6504 002474
6505 002502
6506 002504
6507 002510
6508 002512
6509
6510
(1)

--~

.$BTTl MODULE 1.3 - CHECK SYSTEM ADDRESS

6476
6477

6498

-, -

004737

1813:

013232

012704 017065
004737 013232

BC13:
013156
122737 000015 000526
001372
105037 000041
EA13:
000240
X13:
000207
004737

BNE
Cf'P
BNE

CALL
MaV
CALL
MeV
CALL
CALL

CMP8

BNE

ClRS
NOP

RETURN

#15 .. Ci114 1
; IF RX02
EA13
;WAS LOAD MEDIA .. THEN
#177170,REGSO(R1);lF SYSTEM ADDRESS
EA13
;SET = RX02 STANDARD ADDRESS, THEN
PRTSYS
;CALl PRINT SYSTEM IDENT
IIMSG34,R4
;SET MSG-> '~EMOVE XXDP MEDIA FR()'1 BOOT SYSTEM·'
TTOUT
;PRINT MSG
IIMSG58 .. R4
;SET MSG-> "-TYPE ItCR" WHEN READY"
TTOUT
;PRINT MSG
TTIN
;CALl TTY INPUT-GET CHARACTER
1115 TIB

BC13
&#41

;1)0 l.IlTIl

; CHARACTER = "CR"
;CLEAA
RX02 BOOT MEDIA PROTECTlON
.
,

; RETURN

•.-~~--~~-~~~--~-.~~~-~-~-~-~~----~~~~--~---~--~~~~-~--~-~~-~----~-~-~-

SEQ 0025

N 2
CZRXEAO RX02 fMTR PROG MAtY11 30(1046} 20-SEP-78 10:48 PAGE 67-15
MODULE 2.0 - SYSTEM SCHEDULER
CZRXEA.P1'
20-SEP-7810:48
.S8TTL MODULE 2.0 - SYSTEM SCHEDULER
6512
6513
;SEGINROUTlNE CI'I)D 2" 0 SYSTEM SCHEDULER)
6514
; SET SYSAO & 5YS#1 READY BITS
6515
; Sf T SY$NO SEL 81 T
6516
; SET <SUC> :; 0
6517
; SET SYSOAVL :; All
6518
• CALL INl TlAlIZE CHl' (MOD 2. 1)
6519
[AJ
6),(0
IF SWR = SYS#1 SEL'
)
6521
•
THEN
SET <SU(>:1
6522
;
SET SYS1AVL :; ALL
6523
;.
CALL INIT1.4l1ZE CHECK (MOD 2.1>
6524
; ENDIF
6525
[8J
; IF NO SYSTEM AVAIL
6526
6527
•
THEN
•
SETUP SYSMSG •'NO SYSTEM AVAILABLE"
6528
;
ELSE
6529
(CJ
6530
•
BEGINDO
CDJ
•
IF SYSO SELECTED
6531
6532
•
THEN
(M)
6533
•
IF SYO DONE=NOTSET
THEFJ
6534
·
SET <SUC> :; 0
6535
•
(E]
IF 5YSO ROY seT
6536
THEN
6537
·
CAll SYSTEM DRIVER (MOD 2.2>
6538
•
ELSE
65.39
•·
.
CALL WATCH DOG SY$NO (MOD 2.4)
6.540
•·
.
ENDIF
6541
•·
:
ENDH
6542
•·
ENDlF
6543
·
•
.(F)
IF SrS1 SELECTED
6544
•·
THEN
6S45
•·
(IJ
IF SYl DSONE:;NOTSEr
6546
•
THER
6547
•·
SET <SUC> :; 1
6548
•·
(GJ
If SYS1 RDY SET
6549
·
•
:
THEN
6550
•·
:
CALL SYSTEM DRIVER (MOD 2.2)
6551
•·
ELSE
:
6552
•·
:
CALL WATCH DOG SYSNl (MOD 2.5)
6553
•·
:
ENDIF
6554
·•
:
ENDlF
6555
•·
ENDlF
0556
CLE.AR PROGRAM INITIALIZE FLAG
6557
•
:
CALL
UPDATE SYSTEM STATUS (MOD .?3)
6~58
•·•
DO
Lf,IT!L
ALL SYSTEMS DONE OR NO SYSTEM AvAIL
!)SS9
•
SETUP
SYSTEM
MSG
6560
·; ENDlF
.
6561
; PRINT PRJNT . , . EM MS",
6562
;ENOROUTJNE
6563
#

·
··

w-________________~--__-----------------------.-------------------

SEa 0026

6'-1~

CZHXEAO RX02 ffiUR PROG MAC'"1 30(046) 20-SEP-78 10:48 PAGE
CIRXEA .. P11
MODULE 2.0 - SYSTEM SCHEDULER
20-SEP"'78 10:48
. . . . . . . . . . . . . . . . . . . . . . . . . . . . . ._ _ _ ........ _ _ 1I11III . .- . , . _ . . . . . . . . . .'. . _ _ ........ _ _ ... _ _ _ ... _ _ _ _ _ _ . . _ _ _ _ .....- - _ . . . . . . . . . . . . . . . . - . _ . . _ -

6565

I
I

•

6566
6567
6568
6569
6570
6571
6572
6S73
6574
6575
65'76
6S77
6578
65"19
6580
6581
6582
6583
6584
6585
6586
658?
6588
6589

002514
002520
002524
002532
002536
002544
002550
002556
002':)60
002566
002574
002600
002604
002606
002612
002614
002620
002622
002624
002632
002634
002640
002642
6590 002646
6591 002652
6592 002654

005237
005237
0527?7
005037
012737
0IJ4737
032777
001410
012737
012737
004737
005737

001007

6596
6597
6598

6599

WJO
6601
f:HJ2
6603
6604
6605
6f:J.)6

6607

6608

002Wt

002670
002672
002676
002704
002706
002712
002714
002722
002726
002730
002734
002740
002744
002746

66IJ9 002752

6610
661'
6612
6613

6614

001004

BNE

TST

BI\IE

016357
000001
000626
000610
000616

MOV

175652

8e20:
1020:
IH~.'O :

lE20:

000616
007670
0()I..737 003272
000402
004737 007474
LE20:
032777 000002 175600 !F20:
001422
005737 000630
Il20:
001017
012737 000001 000610
005737 000620
IG20:
001407
005037 000620
00,5237 007672
004737 003272
000402
004737 007572
tG?O:
EF20:
005037 000514

002756 004737 006570
002762
5737 000574
1715
002766
002770 013704 0005;'2
002774 0047.37 013232

6615 003000 000207
6616

SYSCHD: INC
000616
INC
000620
BIS
000001 175752
ClR
000610
MOV
000017 000612
CAll
003002
175726
IA20:
BIT
000002
BfQ
MOV
000001 000610
MOV
000017 000614
CALL
003002
TST
000612
1820:

005737 000614

012704
000465
000240
032777
001421
00573"1
001016
005037
005737
001407
005037
6593 002'660 0052"!7
6594
6595

SEa 0027

OC20:
f820:
)(20:

NOP

BIT

BEQ
TST
BN'E

ClR

TST
BEQ
CLR
INC
CAll
8R

CALL
BIT
SEQ
TST

SORDY
SlRDY
1t1,GlSWR
SUC
1117,SOAV
INITCI<.

112,Q)SIJR

1820
SUC
1t17,SlAV
INITCK
SOAV
1D20
SlAV
1020
#MSG49 .. R4
E820
#1 tQ)SWR
IF 20
S<..'ON

111

IF20

sue

SORDY

lE20
SORDY

WArINO

SYSDVR
IF20

IJATCHO

#2 .. o,$WR

EF20

S10N

8NE

EF20

ClR

SlROY
L620
SlRDY
WATINl

MeV
TST
8EQ
INC

CALL

(LR

#1 "sue

SYSDVR

Ef20
WATCHl
INl TPG
SYSTAT
SVSFlG

CAll
rST
8(20
8fO
IfIOV
SVSMSG.R4
TrOUT
CAll
RETURN

;5ET SYSO RDY
;SET SYS1 RDY
;5ET SYSl SELECT IN SOFT SWITCH REG
;SET SYS UNDER CQNTROl=#O
;SE1 5YSTEMNO AVAll=All
(MOO 2. 1)
;CALL INITIALIZE CHECK
;IF SYS 111
;SElECTEO .. THEN
;5ET SYS LNOER CQNTROL=#1
:SET SYSTEMW1 AVAlt=ALL
(MOO 2.1)
;CALL INITIALIZE CHECK
;IF SYSTEf'WO
;NOT AVAIL AND
; IF SY$TEMrl
;NOT AVAIL .. THEN
; Sf T MSG:::' 'NO SYS AVAIL TO THIS PROG"
:8A TO END'S'
;BEGIN DO LNTIl • C'
; If SYS 110
;SELECTEO .. THEN
; 1F SYSO OCNE
;NOT SET . THEN
:5ET SYSTEM LNDER CONTROl=$Y$ #0
;IF SYSPO READY FLAG
: 1S SET.. THEN
;CLEAR SYSIIO READY
;SET WATCHDOG INtT 110 FLAG
(MOO 2.2)
;CALl $YS DRIVER
;8A TO IF 'F'
(MOD 2.4)
;CAll WATCH DOG SYSIIO
;IF SYS 111
;SElECTED .. THEN
; IF SYSl DCNE
:NOT SET.. THEN
;5£T SYSTEM IN>fR CCWTROL=SYS .,
;IF SYS #1 READY fLAG
; IS SEL THEN
;ClEAR SYS #1 READY
:SET WATCHDOG IN1T " FLAG
(MOO 2.2)
;CALL SYS DRIVER

;8R OT END tG'

(MOO 2.5)
;CAll WATCH DOG SYS ,1
;CLEAR PROGRAM INITIALIZE fLAG
(MOD 2.3)
:CALl SYSTEM STATUS
;DO UNTIL SYSTEM FLAG
;SET (EITHER SYSTEM DONE OR NO SVC; AVAIL)
; Sf TOP SYS rEM MS6
;PRINT SYSTEM MSG
;RfTURN

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

C 3

CIRl(EAO Rx02 FPlHR PROGMAcvl1 30<1(46) lO-SEP-78 10:4R PAGE 67-17
iCIR'<EA.P'1
20-5E,,-18 10:48
MOOULE 2.1 ... INITIALIZe CHECK
!

6618
6619

6620
6621
6622
6623
6624

6625

6626
6627
6628
66'('9

6630

6631
6632
6633
6634

6635

6636

6637
6638
6639

6640

6641
6642
664,3
6644
6645

6646
·6647
6648
6(:1.9

6650
6651
6652

6653

6654

6655

6656
6657
6658
6659

SEa 0028

.5BTTL MQOULE 2.1- INlTIALl1ECHECK
;8fGINROUT INE (MOO 2.1 - INITlAlIZe CHECK
; CLEAR INITIALIZE f>.AOP FLAG
.. SET <$UC> AOt>Res~ & OFfseT
; seT <sue> CCIf'lAND:;INITJALIZE
; INITIALIZE SYSTEJ'II AT .AD:()RESS
; SE fOP OElAYFQR OCWE
; CALL DELAY ROUT INE
; SET <sue> OFFSET
IF <sue> C.SR :; NO DONE BIT SET
;
THEN
;
Sf T IN! HAL 1ZE DROP FLAG
;
CALL PRINT SysTEM U>ENTIF ICATION
;
SET APT ERROR ,
#

;

Else

;

•
~

.-·

.·
",.

·
"·
· .,
•.'
·· .
~

;
;
;
;
;:
:

;
;

ENOlF

ENaIf

fBJ

THEN
Sf T INJ HAL I ZE DROP fLAG
CALL PRINT SVsTEJ'II IOENTl FICA TJC),I
SETLP &. PRINT 'tRAOR BIT StY AFTER INIT1AlIZf"
1F <SUC> ESR :: AC tOW 81 t Sf T
eel
: THEN
:
SETUP & PRINT HAC-lOW-IS FLOPPY SYSTEM POWERED UP?"
ENOIF
If <sue> eSR =: INJ TIAlI 1£ DCJ.4E NOT Sf T
(OJ
·THfN
:
SETUP & MI·Nf "INITlAlIZE NOT OONE ... Rlfl DJAG ~LESS ERROR"
ENOIF
SfTNlfeR~ ,
tNDU
IF <sue> CSA NOT=DOl.8lE DENSlTY TYPE SYSTEM
rEJ
: THEN
SfY IN! r IAlI IE DROP FLAG
:
Sf TI.I> & PRINT '-"Hl S SYSTEM NOT CAPASlE Of DouatE DEN OPS"
ENOl'

IF INI TlAl1 ZE ... DiAOP f LAG Sf T
: THEN
.

;:
;

IF <sue> CSA~ERR:Bl T Sf T

[AJ

CLEAR <sue> AVAIL

; ENOROU TI NE

(F)

ClRXEAO Rx02 FfllltR PROG MAC vl1 30(046) 20-SEP-78 10:48 PAGE 67-18
SEQ 0029
'CIR·~EA.Pl1
20-SEP... 78 10:48
MODUlE 2.1 ... INITIALIZE CHECK
6661
6662
INJTCK: (LR
INITDP
;ClEAR lNITIALIZE OROP fLAG
6663 003002 00S037 003270
CALL
SSUCAO
;CALL ~(T <sue> ADDRESS
66t:A 003006 0047.37 010076
ft1(JV
ItRXINI T"S.OCfIII)(AtJ; Sf. T <sue > C~ :: INt 11 At J IE
666S 003012 012761 040000 000622
MaV
NRXINIT"iRX.cSAD ;INITIALIZE SYSTEM AT <sue> CSR ADDRESS
66th 003020 012777 040000 175444
MeV
Rl(CSAD .. CSIfAI>R
; SET AnDRESS FOR OELAY TEST
f:/::h'l OO'Y:J26 013737 fY..}()I.72 010230
MOV
II~IT .. AO'.WO
;SEt DONE BIT FOR DElAV TEST
fH:,8 003034 012737 ()()()()40 010226
MaV
#15 .. RYOX
;SET DELAYIlU.TJPLIER
Y;h9 003042 012737 000015 010222
CAl.L
DELAY
;D,flAY FOR O~ 81 T
6670 003050 004737 010136
6671 003051, 004737 010126
CAll
SSUCOF
;CAll SET <SOC> OFFSEt
175404
tA21:
81T
ItDtllIT"MXC$AO
;1'
<SUC> CSR D<Wf 8lT
032m
6672 003060
000040
BNE
J821
;MJT Sf T~ TfofEN
6673 003066 001014
INC
IN! TDP
.; SET INI TlAt.l1EM'OPFLAG
6674 003070 005237
(ALL
PRTSYS
; CAl.l PRINT SYSTEM IOfNT
6675 003074 004737
~v
~SG52 .. R4
;SETf1SG-> 't«) O(Wf 81T AFTER IN1TIALIZE
6676 003100 012704
(1)
003104 0047!.7
CAll
nrur
;PAIHT MSG
JSR
Pc.. ERASEr
(:677 0031'0 00473:7
(2)
003114 00(,002
.WORt)
II?
.;FATAl ERR. 2., NO OCN: 81f AFTER INITIALIZE
8R
f A2l
:BR TO l'I)I) EXI T
66 78 00.31'6 0004S3
6679 003120 032777 100000 175344 1821:
81 r
NERReH "iRXCSAI) .; IF <sue> CSA fMM 81 T
B£Q
a2l
;$,c T" THEN
f:I>8O 003126 001433
INC
INITOP
;Sf T INn lAL IlE ()AoP FLAG
6681 OO~130 005237 003270
W>2 0031_"S4 004737 0"132
CALL
PRTSYS
; CAll PA1NT 5'S1£" JDENT
r-vV
.-..sG29 .. R·'"
;5E1 MSG-> ''ERROR 8lf SET AFTER INIT.IAlIIE"
6683 003140 012704 011. 776
(1)
00314<4 (X)I..7?;7 01323l
CALL
nOVT
;PA.INT MSG
668/.. 003150 0:321"'7 000010 175316 J(21:
SIT
NAClOW"IRM08AD.; IF <sue> ESA AC lOW 81 T
SEQ
102'
.
; IS SfT THEN
6685 00:;156 001404
f'k)VAlMSG54,A4; SET MSG-) • ~( lOW ERROR-IS 01 S~ $VSTEflit POW(AEDuP?"
66B6 003160 1/)270/. 016530
(1)
003164 ()Ol.737 013232
CALL
nrur
;PRINT flllSG
8IT
.f IN,JT'f)H. iAlD8AD ; IF <suC>ESR IHI TJAlIIE DCN Sf r
6687 003170 ClS2'll7 000004 175276 1021:
6688 . 003176 001004
8NE
fD21
;MJ1 SET, THEN
p!()y
rM'tSG4.4"Jt4
;5.£1 fI1SG-> "INITIAlIZE NOtl'>ONf"'R\,J4 OIAG Lf4tESS fAR t:eVI
6689 003200 012704 0157'52
(1)
003204 004737 013232
CAll
rrruT
;PAINT f'ltSG
6690 003(>10
f021:
(1)
003<10 004737 0 1 2 2 4 0 . 1 SR
PC .. ERASE T
.~D
113
:'AfAL EAA • 3 - (MaR 81f SEt ~ IN1TlAlllf
<2> 003214 000003
81 r
*RX281 T"a,U(CSAD ; If <SUC>-f)(lI3Lf DENS) TV SystEM tyPE
6691 003216 Ol2777 004·000 175246 lE21:
8NE
£ A 2 1 ; 8 I T P«>TSEf THEN
/:iJ92 003224 001010
INC
INITJ)P
;$ET INITJAlIZE OROP FLAG
6693 003226 005257 003270
CALL
PATSY'S
;CAll PRINT 5Y5r(" )I)ENT
6694 003.232.' 004737 011132
6695 0032,36 012704 014610
f'l)V
.-.sG23.R4
;S£T MSG-> ·'THIS SYS MlT CAPAStE Of 00\.8l£ DEN OPS"
(1)
003242 004737 013Z32
CAll
TTOUT
;PR.lNt MSG
MaV
.,7f,SOAV(R1)
; seT <sue> SVSTE.M AVAll
6696 003246 012761 0000.t7 on0612 £A21:
I,F 21:
1St
,INJ fOP
; IF IHI UAlllE DROP FLAG
M97 003254 005751 003270
8EO
)(21
: Sf r. THE"
6698 003260 001402
ClRSOAV(R1)
; CLEAR (SOC> S'STEM AVAILABLE
6699 00.3262 005061 000612
X21:
RETUAN
; RfJlAN
6700 003266 000207
6701
iNlTDP: ,0
; INJ flAtJ lEOROP fLAG
67.02.' 00.5270 000000

.1........ _. ,_______.• ___. .__...,.,.....'..'_____...__:.'_________......._________...___.'... .
; .'.'._..._.... _--------_._._-----_
.....,..-.-.. .. ..,--,-,
/I: _ _ _ _ _ _ _ _ _

6'7C<~

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

--- -

E 3

C.ZRXEAO Rx02 fMTR PROG MACY'1 30(1046) 20-SEP-78 10:48 PAGE 67-19
MODULE 2.2 - SYSTEM DRIVER
CZRXEA"P"
20-SEP-78 10:48
.S8TTL MODULE 2.2 - SYSTEM DRIVER
6705
6706
:BEGINROUTINE (MOD 2.2 SYSTEM DRIVE~)
6707
; CLEAR W~TCHDOG INITIALIZE fLAG FOR <sue>
6708
:
CALL ERROR CHECK ROUTINE (MOD 2.2.5)
6709
[A]
;
IF THlS SYSTEM AVAILABLE NOT = 0
6710
;
THtN6711
[C]
6712
•
BEGINDO
•
SET <SUC> DRIVE DONE=GET NEXT COMMAND FLAG
6713
·
CLEAR GET NEXT rOMMAND FLAG
6714
•
CALL GET NEXT COMMAND (MOD 2.2.1)
6715
[D]
IF CCM1AND = DONE
;
6716
6717
•
THEN
•
SET SUC->SYS DONE FLAG
6718
6719
·
ELSE
-;
GET SYSTEM UNDER CONTROL OFFSET
6720
[EJ
;
IF CCM1AND = DRIVE #1 SELECTED
6721
iHf:N
6722
[f]
IF SUC-> DRIVE #1 AVAIL
6723
THEN
·
6724
·
[GJ
IF COMMAND=SIDE #1 SELECTED
6725
THEN
6726
IF SUC-) SIDE#l AVAIL NOT SET [H]
6727
: THEN
6728
:
SET
GET
NEXT
COMMAND FLAG
6729
·
.
ENDlF
6730
ENDIF
6731
ELSE
6732
:
SET GET NEXT COMMAND fLAG
·
6733
·•
ENDlF
6734
ELSE
6735
•
IF SUC-> DRIVE #O_AVIAL SET
eIJ
6736
·
THEN
6737
•
(J)
IF COMMAND = SIDE #1 SELECTED
6738
THEN
··
6739
IF SUC-> SIDE #1 AVIAl NOT SET D<.J
6740
•
: THEN
6741
·
:
SET
GET
NEXT
COMMAND FLAG
6742
•
,·
:
ENDIF
6743
ENDIF
6744
•·
ELSE
6745
·
.
SET GET NEXT COMMAND FLAG
6746
•·
:
ENOL
F
6747
•
:
ENDIF
6748
•·
:
ENDIF
6749
•
DOUNTll GET NEXT C~=O
6750
•
IF C~D NOT :: -DONE
[LJ
6751
·•
THEN
6752
•
[M]
IF COMMAND = READ SECTOR
6753
··
: THEN
6754
:
CALL TRK , SECTOR (MOD 2.2.2>
6755
•
ENDH
6756
•.
.
CALL DRVR (MOD 2.2.3)
6757
•
ENDIF
675B
.
;
ENDlF
6759
; ENDROUT INE
6760

·
·
·
·
·

SEQ 0030

F 3

r:ZRXEAO RXO~) FMTR PROG MACY11 30(1046) 20-SEP-78 10;48 PAGE 67-20
. CZRXEA.Pl1
20-SEP-7810:48
MODULE 2.2 - SYSTEM DRIVER

676?

676!»
6764

I
I

676)
6766
6767
6768
6769
6770
6771
67T2
67'73
6T14

f 67/5

6776

6T77

6778

6T19

6780
6781
6782
6783
6784
6785

6786
6787
6788

6789
6790
6791
6792
679'5
6794
6795
6796

6797
67'98

6799

6800

6801
6f302
6803
6804
6805

6806

6807

6808

6809
6810
6811

003('72
OC3300

003304

003=~10

003314
003320
003324

6816

005037
004737
005261
004737
004737
005761

003330 001511
0033:32 05,3761
003340 005037
003344 004737
003350 005737
003354 002005
003356 004737
003362 005261
003366 000451
003370 004737
003374 032737
003402 001422
003404 032761
0034102 001413
003414 f}32737
003422 001433
003424 032761
003432 001027
003434 005237
003440 000424
003442 005237
003446 000421
00:,450 032761
003456 001413
003460 032737
003466 001411
003470 032761
003476 001005
003500 005237
003504 000402
003506 005237
003512 005737
003516 001305
003520 005737
003524 100413
003526 013702
003532 042702
003536 022702
003542 001002
003544 004737
003550 004737
003554 000207

6812
6813 003556
6814 003560
6815 003')62

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

•
,,' 00051'" 004.360 SVSDVR: B1 S

(')-37~~
.;

000000
000000
000000

SEQ 0031

003556
010126
)07670
005164
010126
000612

003556
00.3556
003564
000542

IA22:
003560

B(22:
ID22:

010126
000626

CLR
CALL
INC
CALL
CALL
TST

BfQ
31 S
U.R

CALL
LST

8GE
CALL
INC

CALL

010126
000020

000542

lD22:
1E22:

000012

000612

1F22:

001000

000542

IG22:

8IT

000010

000612

IH22:

BIT

Lf22:

8R
INC

BIT

BFQ
8IT

BEQ
BEQ

BNE
lNC

003556
003556

000005

000612

1122:

001000

000542

IJ22:

BIT

000004

000612

IK22:

BIT

003556

BIT

BEQ

BNE
lNC

L122:

003556
003556

UC22:

000542

ll22 :
1M22:

004016
004402

fM22:

x22:

I.JATINO(R1>
FRRCHK

CMD

LD22
SSUCOF
SODN(R1)
uC22
SSUCOF
HDRV1,CMD
1122
#12.S0AV(Rl)
lF22
ItS 1DE 1 "CMD

u(22
ItlO,SOAV(Rl)
uc 22
GTCMO
uC22
GTCMD
uC22
1t5,SOAV(R1)

1.122

IfSlDE1,CMD

uC22
#4,SOAV(Rl)
uC22
G~CMD

BNE
8MI

x22

8IC

N177761,R2
IRDSEC;R2

INC
TST

TST

CMP
aNE
CALL

U\LL
RETURN

:PASS INITIALIZE FLAG TO TRACK & SECTOR MOD
;CLEAR GET COMMAND FLAG
;CALl SET <sue> OFFSET

;INCREMENT SYSTEM WATCH DOG INlTIALIZE
; CALL [,RHOR CHE CK (MOD 2.2.5)

;CALL SET <SUC> OFFSET
: IF SYSTEM AVAILABLE
x22
;NOT = O. THEN
GfCMD,SODVDN(R1);SET <sue> DRlVE DONE =GET COMMAND FLAG
GTCMD
;CLEAR GET C()'of1ANO FLAG
GE TeMD
; C4LL GE T (<mAND (MOD 2.2. 1>
SSUCOF
SOAV(Rl)

uC22
GTCMD
GTCMD
8(22

MeV

000542
177761
000006

INITPG,INITTS
GTCMD
SSUCOF

CMD

CMD.R2

EM22
TRKSEC

DRVR

; IF C(MIItIWD

;fOUAlS DONE (::-1). THEN
;CALL SET <SUC> OFFSET
;5ET SYSTEM DONE FLAG
;BR TO l-"lTlL te'
;CALL SET <sue> OfFSET
;IF COMMAND
;HAS DRIVE Ifl SELfCTED

;IF SYSTEM DRIVE 11 AVAILABLE
;SET, THEN
: I F COMMAND
;H.4S SIDE It SELECTED

;IF <sue> ~lDE #1 AVAILABLE
; NOT SE T, THEN
;SET GET COMMAND FLAG
:BR TO ENDIF 'E'
;ELSE SET GET CCJ1I1AND fLAG
;BR TO END IF 'E'

:1F SYSTEM DRIVE itO AVAILABLE
;5£1'. THEN
;IF COMMAND

;HAS SIDE #1 SELECTED. THEN
;IF SYSTfM SIDE #1 AVAILABLE
;NOT SE7, THEN
;5£T JET COMMAND FLAG
;8 P ra ENDIF 'E'
.~ET GET COMMAND FLAG
;DO I.J'JT IL GET NEXT CMf)FLAG
; EQUALS 0
;If COMMAND
;NOT=DONE (-1) ~ THEN
;GET C~ TO TEsr

;(LEAR ALL BUr ACTUAL e~D
;IF COMMAND
;SET TO READ SECTOR. THEN
;CALL TRACK & SECTOR UPDATE (MOD 2.2.2)
;CALL UNIT DRIVER (MOD 2.2.3)
;RETURN TO CALLER

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

GTC~D: 0
SODVDN: 0
SlDVDN: (I
•

;GET COMMAND FLAG
;SYSTEMitO DRIVE DONE FLAG
;SYSTEMitl DRIVE DONE fLAG

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

G 3
CZRxEAO RX02 FMTR PROG MACY11 30(1046) 20-SEP-78 10:48 PAGE 61-21
MODULE 2.2.1 - GET COMMAND
ICZRXEA.P"
20-SEP-7810:48
i
r

;

L.Q18
6819

.S8TTl

6820
6821

;BEGINROUT.1NE (MOD 2.2.1 - GET CamAND)
• INITIALIZE SYSTEM COMMAND TABLE POINTERS, IF INIT SET
GET SYSTEM UNDER CONTROL <SUC> COMMAND TABLE POINTER.
• GET COMMAND AT POINTER
[AJ
• IF COMMAND: DONE
THEN
·
RESET <SUC> COMMAND POINTER
ELSE
[8J
IF COMMAND : READ SECTOR
THEN
GET <SUC> DRIVE DONE FLAG
,·
[CJ
IF DRIVE DONE FLAG SET
THEN CLEAR <SUC> DRIVE DONE FLAG
[EJ
IF <sue> NEW COMMAND FLAG NOT SET
THEN
INCREMENT <SUC> COMMAND TABLE POINTER
GET COMMAND AT POlNTER
[DJ
IF COMMAND: DONE
THEN
.
RESET <SUC> COMMAND TABLE POINTER
ENDIF
··
ENDIF
.
CLEAR <sue> NEW COMMAND FLAG
ENDIF
·
ELSE
INCREMENT <sue> COMMAND TABLE POINTER
SET <sue> NEW COMMAND FLAG
.
· .
ENDIF
; ENDH
; CLEAR <SUC> DRIVE DONE FLAG
; Sf T SELE CTED DENSl TY ONTO C~D

\JCJ

hK'2.
- ,I':

6823
6824
6825

6826
682'7

6828

&'$29
6830

6B31
6832

6833
6834

6835

6836

68.37
6838

6839
6840
6841

6842

6843
6844

6845

6846
6847
6848
6849

6850
6851

6852

MODULE 2.2.1 - GET COMMAND

: ENDROUT 1NE

SfQ 0032

H 3
CZRXEAO RX02 FMTR PROG MACYl1 30(1046) 20-SEP-78 10:48 PAGE 67-22
CZRXEA.Pll
20-SEP-7810:48
MODULE 2.2.1 - GET CCJt'l'1AND

6854
6855
6856
6857
6858
6859
6860
6861

6862
6863

6864
6865
6866

6867

6868

6869

6870
6871

6872

003564
003570
003572
003576
003602
003606
003612
003620
003624
003626
003630
003634
003636
003642
003646
003650
003654
003656

6873 003660
6874 003664
6875 003670
6876 003672
0877 003700
6878 003704
6879 003712
6880 003716
6881
6882

003720

003722
003726
6884 003732

6883

005737
001404
005037
005037
004737
016102
016237
013703
005703
002003
005061
000444
042703
022703
001032
016104
005704
001433
005061
005761
001016
062761
016102
016237
013703
005703
002012
005061
005061
000405

000514
003762
003764
010126
003762
003772 000542
000542

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

GETCMD: TST

003560
003560
003766
000002 003762
003762
003772 000542
000542
003762
003766

1$:

003734

ClR
ClR
CAll

MOV

lA221:

MOV
MOV
TS T

8GE

(lR

LA221:
1B221:
1C221:
lE221:

10221:

EE221:

000002 003762 LB221:
6886 003742 005261 003766
6887 003746 053737 000506 000542 EA221:
6888 003754 005061 003560
X221:
6889 003760 000207

6885

IN1TPG

BEQ

003762
177761
000006

SEO 0033

062761

SIC

CMP

BNE
MaV
TST

BEQ

CLR
TST
BNE
ADD
MaV
MOV

SYOTPT
SY1TPT
SSUCOF
SYOTPT<R1) ,R2
CMDTBL(R2),CMD
eMf) ,R3
R3

LA221
SYOTPT<R1)
EA221
#177761.R3
#6,R3
lB221
SOOVDN(R1),R4
R4
fA221
SODVDN(R1)
SOCMDF(R1)
EE221
#2 ,SYOTPT (R1)
SYOTPT(R1),R2

C~~TBl(R2),CMD

MOV

CMf) ,R3

TST
SGE
CLR
CLR

R3
EA221
SYOTPT(R1)
SOCMDF (R1)
EA221
#2,SYOTPT(R1)

ADD
INC
SOCMDF(R1)
81S
DENS,CMD
CLR
SODVDN(Rl)
RETURN

;IF INITIALIZE

;SET, THEN

;CLEAR SVS #0 TABLE PTR
;CLEAR SVS #1 TABLE PTR
;CALL SET <SUC> OFFSET
;GEl <SUC> CMD TABLE PTR
;GET COMMAND AT POINTER
; SAVE C~D TEft1P #3
; IF CemAND

; EQUALS · 'DONE", TH~N
;RESET ,<sue> CMO TIV3LE PTR
;BR TO EXI T MOD
;CLEAR All BUT CQI'1I1AND
;IF CemANO
;EQUALS '~EAO SECTOR", THEN
;GET <SUC> DRIVE DONE FLAG
;IF <SUC> DRIVE DONE FLAG
; SE T, THEN
;CLEAR <SUC> DRIVE DONE FLAG
;IF <SUC> NEW COMMAND FLAG
;OOT SET. THEN
; INCREME."JT <SUC> CMD TABU: PTR
;GET <SUC> CMD TABLE PTR
;GET COMMAND AT POINTER
; SAVE C~D IN TE/'t\P#3
;IF COMMAND
;EQUALS ''D~E'', THEN
;RESET CMD TABLE POINTER
;CLEAR <SUC> NEW C~D FLAG
;BR TO EXI T MOD
;lNCREMENT <SUC> CMD TABLE ~TR
;SET <SUC> NEW COMMAND FLAu
;SET SELECTED DENSITY
;CLEAR <SUC> DRIVE DONE FLAG
;RETURN

6890

6891
6892

003762 00000o

6894
6895

003766
003770

6893 003764

00000o
00000o

000000

6896

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

SVOTPT: 0
SY1TPT: 0
SOCMDF: 0
S1CMDF: 0

;SYSTEMWO COMMAND TABLE POINTER
;SYSTEMWl COMMAND TABLE POINTER
;SVS#O NEW C~ FLAG
;SYS#1 NEW COMMAND FLAG

•.-----~------~-~----~-----~----~----------~------~----~-~--------------~

6897

6898

6899 003772 000113
~900 003774 000133
6901 003776 000111
6902 004000 000131
6903 004002 000107

CMDTBL: • WORD
. WORD
•WORD
. WORD

001107

• WORD
• WORD

6904

6905

6906

004004
004006
004010
004012

6907
6908 004014
6909

• WORD

•WORD

000127

001127
177777
177777

•WORD
. WORD

to . . _ _ _ _ _ . . . _

•

.. _

.... _

0113
0133
0111
0131
0107
0127
1107
1127
-1

-1

..... _

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

;DRVNISIOENICQMMANO

IPTR

; 0 I 0 I READ MAl NT STATUS
; 1 I 0 I READ MAINT STATUS
; 0 I 0 I SET DENSITY
1 I 0 I SET DENSITY
• 0 I 0 I READ SECTOR
• 1 I 0 I READ SECTOR
• 0 I 1 I READ SECTOR
; 1 I 1 I READ SECTOR
;DONE TERM1NATOR
;DONE TERMINATOR

10
12

;--~-/~~-~-/~----~-------------~/-------

/~0

112
114
116
120

/22

...... ., .... _ _ _ _ _ _ _ ... , . . _ .... _ _ _ _ _ _ _ _ . . . . . ..,. . . . . . . . . . _ _ _ _ _ _ _ ... _ _ _ IIIia_ ...

I 3
CZRX[AO RX02 fMTR PROG MAeV11 30(1046) 20-SEP-78 10 :48 PAGE 67-23
CZRXEA.P"
20-SEP-78 10:48
MODULE 2.2.2 - TRACK &SECTOR UPDATE
.SBTTL MODULE 2.2.2 - TRACK &SEelOR UPDATE
6911

6912
6913

691t..

6915
6916
6917
6918
6919
6920
6921
6922

6923

692t..

6925
6926
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6939
6940
6941

6942

6943

6944
6945

6946
6947
6948

6949
6950
6951
6952
6953
6954
6955

6956
6957
6958
6959
6960

6961
6962
6963

;BEGINROUTINf (MOD 2.2.2 TRACK & SECTOR UPDATE)
• INITIALIZE MODULE, IF INITIALIZE PROGRAM SET
• IF SOFT SWITCH REG->CRC ALL TRACKS SET
·
THEN;
IF <SUC> DRIVE SECTOR DONE
•
THEN
•
I F <sue> DR I VE TRACK DONE
THEN
CLEAR <sue> DRIVE TRACK DONE
SET <SUC> DRIVE TRACK = 76
·
SET <sue> DRIVE DONE
ELSE
DECREMENT <SUC> DRIVE TRACK
SET TRACK=<SUC> DRIVE TRACK
IF <SUC> DRIVE TRACK=O
"
: THEN
.
SET <sue> DRIVE TRACK DONE
•
ENDlF
.
SET SECTOR = <sue> DRIVE SECTOR
•
ENDIF
CLEAR <SUC> DRIVE SECTOR DONE
·
·
ELSE
·
SET <SUC> DRIVE SECTOR=INTERLEAVE + <SUC> DRIVE SECTOR
SET SECTOR=<SUC> DRIVE SECTOR
IF <SUC> DRIVE SECTOR=26
·
THEN
SET <SUC> DRIVE SECTOR DONE FLAG
·
SET <SUC> DRIVE SECTOR=l
·
ELSE
IF SECTOR >26
·
. THENSET <SUC> DRIVE SECTOR &SECTOR =2
·
.
ENDlF
···
ENDIF
.
SET TRACK = <SUC> DRIVE TRACK
ENDlf
•
ELSE
"
IF <SUC> DRIVE TRACK DONE fLAG SET
•
THEN
,
SET TRACK=O
SET <SUC> DRIVE TRACK=O
CLEAR <SUC> DRIVE TRACK DONE
•
SET <sue> DRIVE DONE
•
ELSE
·•
SET TRACK =76
..
SET <SUC> DRIVE TRACK DONE fLAG
.
•
ENDIF
;
SET <SUC> DRIVE SECTOR=l
;:
SET SECTOR= <SUC> DRIVE SECTOR
; ENDIF
;ENDROL!TINE

seQ 0034

[A]

[8J
[(J

···

·
·
··
··
·
··
··
··
··
·
·

[DJ

(E]

(F]

(G]

. ClRXEAO Rx02 fMTR PROG MACY" 30(1046) 20-SEP-78 10:48 PAGE 67-24
,ClRXEA.P11
20-SEP-78 10:48
MODULE 2.2.2 - TRACK &, SECTOR UPDATE

6965
6966

004016

00573l 004360

SEQ 0035

•.---~--~-~--~-~--------~~---~-~----~------~-~-------~----~--------------

TRKSEC: 1ST

INIT1S

;IF INITIALIZE PROGRAM

. j

I
I

K 3
ClRXEAO RX02 F"TR PROG fY.CY11 30(1046) 20-SEP-78 10:48 PAGE 68
MOOUlE2. 2.2 - TRACK g, SECTOR UPDATE
CZRXEA.Pl1
2o-SEP-78 10:48

6968
6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
6984
6985

6986

004022
004024
004030
004034
004040
004044
004050
004056
004064

004072

004100
004104

004112
004114
004120
004122
004126
004130
004134

004142
004146
004150
004156
004162
004166
004170
6994 004174

6987
6988
6989
6990
6991
6992
6993

6995
6996

004202
0042C6

6997 0042-10
6998 004216
6em 004224
?COO 004232
7001 004234
7002 004240
7003 004246
7004 004250
7005 004256
7006 004260
7007 004266
7008 004274
7r:x:fi 004302
7010 004304
7011 004310
7012 004312
7013 004316
7014 004322
7015 004326
7016 004330
7017 004336
7018 004342
7019 004350
7020 004356
7021

001426
005037
005037
005037
005037
005037
012737
012737
012737
012737
004737
032777
001474
005761
001433
005761
0014'10
005061
012761
005261
OC()415
01G137
005361
005761
001002
005261
012761
005061
000463
062761
016137
026127
00'1006
005261
012761
000412
02.3727
103406
012737
012761
016137
000425
005761
001407
005061
005037
005261
000405
012737
005261
012761
016137
000207

BEQ

004370
000114
000114
000001
000001
010126
000200

004376

004400

004372
004374

174372

1$:

IA222:

004366

IB222:

004362

IC222:

004362

000114 004376
003560
004376 000502 lC222:
004376
10222:
004376
004362

000001
004366

004372 ED222:

£C222:

000002 004372 lB222:
004372 000500
004372 000032 lE222:
004366

000001

004372

000500

000032

IF222=

000002 000500
000002 004372
004376 000502 EE222:
004362

IG222:

004362
000502
003560
000502 LG222:
004362
000001 004372 EG222:
004372 000500
x222:
0001':4

; SET, THEN
;CLEAR INITIALIZE FLAG
INITTS
;CLEAR SYS#O DRIVE TRK DONE
DVTKDN
;CLEAR SYS#l DRIVE TRK DONE
DVTKDN+2
;CLEAR SYS#O DRIVE SEC DONE
DVSCDN
;ClEAR SYS#l DRIVE SEC DONE
DVSCDN+2
;SET SYS#O DRIVE TRK = 76
1176. ,OVTRK
MOV
;SET SYS#l DRIVE TRK = 76
1176. ,OVTRK+2
MaV
#1,DVSEC
;SET SYSTEMWO DRVSEC=1
MaV
#1,DVSEC+2
;SET SYSTEMWl DRVSEC=l
fiOV
;CALL SET <SUC> OFfSET
SSUCOF
(ALL
;IF SWR -> CRCAlL TRACKS
IICRCALL,iSWR
81 T
; SET, THEN
BEQ
IG222
DVSCDN(R1)
;IF <SUC> DRIVE SECTOR DONE FLAG
TST
; SET, THEN
BEQ
LB222
DVTKDN(Rl)
TST
;IF <SUC> DRIVE TRACK DONE fLAG
BEQ
; SET, THEN
lC222
(LR
DVTKDN(R1)
;ClEAR <SUC> DRIVE TRACK DONE fLAG
1176. ,DVTRK(Rl) ;SET <sue> DRIVE TRACK =76
MaV
SODVDN(R1)
;SET <SUC> DRIVE DONE FLAG
INC
;BR TO ENDIF 'C'
EC222
BR
r'()V
DVTRKCR1),TRACK ;SET TRACK = <SUC> DRIVE TRACK
DVTRKCR1)
DE(
;DECREMENT <SUC> DRIVE TRACK
DVTRK(R1)
;!F <SUC> DRIVE TRACK
TST
;EQUAlS ZERO, THEN
BNE
£:D222
DVTKDN(R1)
;SET <SUC> DRIVE TRACK DONE FLAG
INC
III ,DVSEC (Rl)
;SET <SUC> DRIVE SECTOR=1
MaV
(LR
DVSCDN(R1)
;ClEAR <SUC> DRIVE SECTOR DONE fLAG
;BR TO ~D EXIT
x222
BR
NINTlV,DVSEC(Rl);SET <SUC> DRV SEC=INTERLEAVE + OLD DRV SEC
ADD
f'{)V
DVSECCR1> ,SECTR ;SET SECTOR=<SUC> DRIVE SECTOR
DVSEC(Rl).,1I26. ;IF <SUC> DRVE SECTOR
ctvP
;EQlJAlS 26., THEN
BNE
IF222
DVSCDN(Rl)
;SET <SUC> DRIVE SECTOR DONE FLAG
INC
111 ,DVSEC (Rn
;SET <SUC> DRIVE SECTOR=1
r'OV
;BR TO END 'E'
BR
EE222
SECTR,#26.
; IF SECTOR
CrwP
;>26., THEN
BlO
EE222
#2,SECTR
;S£1 SECTOR=2
~v
ftK)V
112 ,DVSE C(Rl )
;S£1 <SUC> DRIVE SECTOR = 2
DVTRK(R1),TRACK ;SET TRACK = <SUC> DRIVE TRACK
r'OV
;BR TO ~D EXI T
x222
BR
TST
DVTKDN(R1)
;IF <SUC> DRIVE TRACK DONE FLAG
BEQ
;SET., THEN
lG222
DVTKDNCR1)
;ClEAR <SUC> DRIVE TRACK DONE FLAG
CLR
(LR
TRACK
;S£T TRACK=O
SODVDNCR1)
;SET <SUC> DRIVE DONE FLAG
INC
;BR TO ENOIF 'G'
8R
EG222
1176. , TRACK
;SET TRACK=76
MaV
DVTKDN(Rl)
;SET <SUC> DRIVE TRACK DONE FLAG
INC
N1,DVSECCR1)
; SET <sue> DRIVE SECTOR=1
MaV
DVSECCR1),SECTR ;SET SECTOR=<SUC> DAIVE SECTOR
MaV
;RETURN - MOD EXIT
RETURN
1$

[LR
eLR
(LR
(LR
(LR

004360
004362
004364
004366

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

SEQ 0036

CZRXEAO RX02 FMTR PROGMACVll 30(1046) 20-SEP-78 10:48 PAGE 68-1
ClRxEA.Pl1
20-SEP-78 10:48
MODULE 2.2.2 - TRACK & SECTOR UPDATE

7023
7024

000002

7025

7026
7027

7028
7029

004360 000000

7030 004362
7031 004364

00000o
00000o

004366 00000o
7033 004370 000000
7034 004372 000001
7035 004374 000001
7036 004376 000114
7037 004400 000114

7032

7038

7039

SEQ 0037

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

INTLV

= 2

"----------------------------------------------------------------------iNITTS:
0
;INITIAlIZE TRACK &SECTOR FLAG
· ............ _-_._----_ ... __ ..... _- ..... -------- .... -----_ ... _-----_ .... .. ---------------------•

DVTKDN: •WORD
•WORD
DVSCDN: . WORD
DVSt: (:
DVTRK:

• WORD
• WORD

•WORD
. WORD
•WORD

0
0
0
0

1
1

76.
76.

;DRIVE TRACK DONE (DVTKDN)
;DRIVE TRACK DONE (DVTKDN)
;DRIVE SECTOR DONE (DVSCDN)
;DRIVE SECTOR DONE (!)vSCDN)
(DVSE()
;DRIVE SECTOR
(DVSEC)
;DRIVE SECTOR
WVTRK)
;DRIVE TRACK
(DVTRKJ
;DRIVE TRACK

SYS itO
SYS Itl
SYS itO
SYS Itl
SYS itO
SYS 111
SYS itO
SYS 111

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

CZFi:XEAO RX02 FMrR PROGMACVll 30(1046)

CZRxEA.P11

20-SEP-78 10:48

.S8TTL

7041

7042
7043
7044
7045
7046
7049

7050
7051
7052
7053
7054
7055

7056

7057
7058
7059
~('060

7061

7062
7063
7064 004402

004737
013761
7066004414 013702
7067004420 042702
7068 004424 022702
7069 004430 001004
7070 004432 012761
7071 004440000403
7072 004442 012761
7073 004450 013761
7074 004456 013761
7075 004464 013737
7076 004472 013737
7077 004500 013737
7078 004506 004737
7079 004512 004737
7080 004516 004737
7081 004522 000207
7082

{)04406

10:48

MODULE 2.2.3 - DRIvE DRIVER

;BEGINROUTINE (MOD 2.2.3 - DRIVE DRIVER)
; CALL SET <SUC> ADDRESS AND OFFSET
• SAVE CCM1AND IN <suc> C~D
• IF COMMAND=SET DENSITY
•
THEN
;
SET <sue> WATCHDOG MULTIPLIER LIMIT=400
•
ELSE
;:
SET <SUC> WATCHDOG MULTIPLIER LIMIT=20
• ENDIF
• SETUP SECTOR FOR PRINT
• SETUP TRACK FOR PRINT
• SETUP SECTOR ADR FOR OUTPUT
• SE TuP TRACK ADR FOR OUTPUT
• SE TUP C~ FOR OUTPUT
• CALL SET PRIORITY HIGH
• CALL OUTPUT C~D
; CAll SET PRIORITY LOW
;ENDROUTINE
•.... - .. __ ... _---_ ....... _----------------- ... -------_._------------------ ... ------------

7047
7048

7065

,., 3
PAGE 68-2
MODULE 2.2.3 - DRIVE DRIVER
20-SEP .... 78

010076
000542 000622
000542
177761
000010

DRVR:
IA223:

000400

000556

000020
000500
000502
000500
000502
000542
010020
004524
010034

000556 LA223:
011310 EA223:
011304
005114
005112

000540

)(223:

;CALL SET <SUC> ADDRESS & OFFSET
SSUCAD
CMD ,SOCMD(R1>
;SAVE CemAND IN <SUC> CCJI'f1AND
; GET C()'IfI1AND
CMD,R2
N177761,R2
;CLEAR All BUT COMMAND
8IC
NSETDEN,R2
;IF CCf'fttAND
Cf¥P
; EQUALS . 'SET DENSI TY"
BNE
LA223
N400, SCWML T(R1 ) ;SET <SUC> WATCHDOG MUlT LIMIT=400
MaV
;BR TO END 'A'
EA223
BR
#20,SOWMLT(Rl) ;SET <SUC> WATCHDOGft'kJlT LIMIT=20
MOV
SECTR,SOSECCR1> ;SETUP SECTOR FOR PRINT
MOV
TRACK,SOTRK eR1> ;SETUP TRACK FOR PRINT
MOV
; SE TUP SEC TOR ADR f OR OUTPUT
SECTR,SECAOR
MOV
TRACK,TRKADR
; SETUP TRACK ADR fOR OUTPUT
MeV
; SE TUP C~ FOR OUTPuT
MOV
CMD.WDOT
;CAll SET PRIORITY HIGH
PRIHI
CALL
ourCM[)
:CAll OUTPUT COMMAND
CALL
;CALL SET PRIORITY LOW
PRILO
CALL
;RETURN
RETURN
CALL
MOV
MOV

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

•

SEQ 0038

N 3
CZRXEAO RX02 F~TR PROG MACY11 30(1046) 20-SEP-78 10:48 PAGE 68-3
SEa 0039
MODULE 2.2.3. 1 - OUTPUT DRIVE C(Mt1AND
CZRXEA.P11
20-SEP-78 10:48
7084
.S8TTl MODULE 2.2.3.1 - OUTPUT DRIVE COMMAND
... .. ~..
... ....... ..-....
... .....--... ...--~--.. ~ .. --.......-- ..
7085
•.....-.........,.,-~-(PASS to 2.2.3.1.1>
;READY TEST WD
7086 004524 012737 000040 010226 OUTeM£>: MaV
1IDf\B1 T"RDYWO
(PASS
TO 2.2.3.1.1)
;IJORD
FOR
OUTPUT
\JDOT
,WADS
MOV
7087 004532 013737 000540 005102
(PASS
TO 2.2.3.1.1)
;ADDRESS
OF
OUTPUT
MaV
7088 004540 013737 000472 005104
RXCSAD"ADRS
;OUTPUT FLNCTION WD (FW) DO 2.~.· . 3.1.1)
PC,OUTSWD
JSR
7089 004546 004737 005124
; THEN, IF FLNCT HW 1S
IIl0,WDor
7090 C04552 032737 000010 000540 l82231: BIT
;' 'READ, WRI TE .. FILL, E~TY" (FW 81 T #3=0)
I C22.31
7091 004560 001043
8NE
;AND THEN IF FUNCTION IS
114,IJDOT
?C'f12 004562 032737 000004 000540 IH2231: BIT
;"E~TY, FILL" (FW 8IT#2=0)
lH2231
7093 004')70 001047
BNE
;THEN
SET OUTPUT READY TEST WOf\D (PASS TO 2.2.3.1. i )
rov
IITPBIT"RDVWO
7094 004572 012737 000200 010226
f'()V
;ANO
SET
WORD FOR OUTPUT
(PASS TO 2.2.3.1.1)
WOCT
,WADS
013737
005102
005122
7C'ff5 004600
roy
;.AND SET ADDRESS OF OUTPUT
(PASS TO 2.2.3.1.1)
RXD8AD,ADRS
?C:1% 004606 013737 000474 005104
.)SR
PC ,OUTSWD
;OUTPUT BASE ADDRESS WORD
DO 2.2.3.1.1
7tfi7 004614 004737 005124
;IF '11Ll" (FW 81 Til 1=0)
112,WOOT
7098 004620 032737 000002 000540 IK2231= SIT
lK2231
: THEN
BNE
7m 004626 001004
(PASS TO 2.2.3.1.1)
;SET DATA FILL BUFFER ADR
8AF III ,laIRDS
MaV
7100 004630 013737 005116 005102
:8R TO END IF 'K'
EK2231
7101 004636 000403
8R
(PASS TO 2.2.3.1.1)
;SET DATA EI"PTY BUFFER ADR
BAE~T "WROS
7102 004640 013737 005120 005102 LK2231: fl()V
(PASS TO 2.2.3.1.1)
IITPBIT,ROYWD
;SET OUTPUT READY TEST WORD
7103 004646 012737 000200 010226 EK2231: f"OV
(PASS TO 2.2.3.1.1)
;ADDRESS OF OUTPUT
RXDBAD,AORS
~v
7104 004654 013737 000474 005104
PC,OUTSWO
; OUTPUT '-ORO COLNT WORD
VO 2.2.3.1.1
JSR
7105 004662 004737 005124
;BRANCH TO END IF 'H'
EH2?31
BR
7i06 004666 000444
114,\JOOT
; IF FLNCTICW ~D IS
000540
lC2231:
BIT
7107 004670 032737 000004
;'\IUTE D.O"OR ''READ E.C" {FW 81T #2=1'
BEQ
7~108
1£22.31
004676 001455
112,w()OT
: THEN, IF FLNCTICW IS
7109 004700 032737 000002 000540 102231: BIT
;' "'U TE 0.0", THEN (FW 81 T#1 =0)
lD2231
SNE
7110 004706 001035
:SET OUTPUT READY TEST WORD
IfTRBIT .. RDYWD
7111 004710 012737 000200 010226 LH2231: f'OV
f'l()V
;MOVE TRACK AND SECTOR ADDAESS
SECADR .. WRDS
7112 004716 013737 005114 005102
#177700,WRDS
;FORMAT TO SECTOR ADDRESS
177700
005102
SIC
7113 004724 042737
:ADDRESS OF OUTPUT
MOV
RXDBAD,ADRS
7114 004732 013737 000474 005104
P('OUTSWO
;OUTPUT SECTOR ADDRESS
JSR
7115 0(}4740 004737 005124
roy
TRKADR,WRDS
;MOVE TRACK AND SECTOR ADDAESS
7116 004744 013737 005112 005102
#177600,WRDS
;FORMAT TRACK ADDRESS
aIC
7117 <X)4752 042737 177600 005102
; SE TOUTPUT ~EA.OY TEST WORD
MOV
#TRBIT"RDYWD
7118 004760 012737 000200 010226
;ADORESS OF OUTPUT
f'OV
RXD&\D .. ADRS
7119 004766 01373i' 00()I..74 005104
P('OUTSWO
;OUTPUT TRACK ADDRESS
JSR
7120 004n4 004737 005124
;ENDIF H -DONE
EH2231: SR
END2231
7121 005000 000437
;SE T READY WD TO TR MODE
#TRBIT .. RDYWD
7122 005002 012737 000200 010226 LD22Jl: f'l'(JV
IIXER . WRDS
;EXT ERA. CODE TABLE ADD
r'fJV
7123 005010 012737 017446 005102
RXD&\D,AORS
;ADDRESS OF OUTPUT .. RXDB
f'OV
7124 005016 013737 000474 005104
;O/P BASE ADD FOR ERA. CODE
JSR
PC . OUTSWO
7125 005024 004737 005124
; DONE
SR
END2231
7126 005030 000423
#2i WOOT
; 1F FLNC TI ON IS
7127 005032 032737 000002 000540 1E2231: BIT
;' 'READ STATUS" (FW 81 T#l =1)
BEQ
lE 231
7128 005040 001404
;THEN-SET ERR STATUS fLAG
#1 . ERSTAT
7129 005042 012737 000001 005106 TE2231: MOV
8R
; DONE
END2231
7130 005050 000413
#TF~BI T,ROYWD
;SET OUTPUT READY TEST WD
7131 005052 012737 000200 010226 LE2231: MaV
MOV
;VALIDATlON WORD
VALWO .. WRDS
7132 005060 013737 0051~0 005102
MaV
RXDBAD,AORS
;ADDRESS OF OUTPUT" RXDB
7133 005066 ;013737 000474 005104
PC,OUTSWD
;OUTPUT VALIDAT ION WORD
JSR
7134 005074 004737 005124
PC
;RETURN TO MOO 2.3
END2231: RTS
7135 005100 000207
7136
•.~------------.---~--------~---.--.-----------.--------------------

..-.------'- - --..-- ---- - ----- -

....

B 4

CZRXEAORx02 fMTR PRQG MeYl1 30<1(46)20-SEP-7810:48PAGE .68-4
·Cl~XEA.P'l
20-SEP-?8 10:48
MODULE 2.2 .. 3.• 1 ... OUTPUT DRIVE C~D

7138
71 . 39 005102000000
7140005104 00000o
7141 005106 000000
7142 005110 000111
7143 005112 00000o
7144005114 00000o
7145005"6 000000
7146 005120 000000
7147 005122 000000
7148
7149
7150
7151
7152
7153 005124 013737
7154 005132 013737
7155 005140 004737
7156 005144 033777
7157 005152 001403
7158 005154 013777
7159 005162000207
7160

- ---.---...---'..-..-..-.. ;MODULE
.. ....-.. ...-...--- ...........-................................ ...
2.2.3. 1. 1 OUTPUT WORD

·........-,.,-..... ........

•

,.- -..,-~

IJRDS:
0
ADRS:
0
ERST AT: 0
VAlWD: 111

:I~DULE 2.2.3.1.1 OUTPUT ADDRESS
;MODUlE 0.0 ERR STATUS READ FLAG
;VAlIDATlON WD (SET DENS-ASCII HIli)
; TRACK ADDR'ESS
TRKADR: 0
;SECTOR
ADDRESS
SECADR: 0
;8A$E ADDRESS FILL BUFFER
BAfILL= 0
;8ASE ADORES5 eJIItPTY BUFFER
BAEMPT: 0
;WORD eOlNT
WDCT:
0
;MOD 2.2.3.1 ~-~~- END MODULE ~~-- ... ~~-~~~----~~-~~-~-~--~~---.~~--~----.58TTL MODULE 2.2.3.1.1 - OUTPUT SINGLE WORD
.......
............. ..
...
... ..... ...... .. ..... ...... ... ---.....-...... -.. .... --•·...
,~----

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

RXCSAD.CSRADR ;SET C&S REG ADR
000472 010230 OUTSWD: MOV
RDYWD .. RDYWD
;OUTPUT READY WORD (PASS iO DELAY)
MOV
010226 010226
P('DELAY
;.DELAY FOR READY DO DELAY
JSR
010136
RDywD .. iRXCSAD ;IF READY"
B1T
010226 173320
BEQ
X22311
; THEN
WRDS"Q)AORS
;MOV WORD TO ADDRESS
~v
005102 177722
PC
;RETURN
)(22311: RTS
;MOD 2.2.3.1.1 _.... - ...... END MODULE - ..---.........-----..... --....... ------........'...., .....---...---...

sea 0040

C 4

ClRX£AQ R)(02 fMTR PROGMACVl 1 30(1046) 20-SEP-78 10:48 PAGE 68-5
C~RXEA .. P11
20-SEP-78 10:'8
MODULE 2.2.5 - ERRO~ CHECK

7162
7163
7164
7165
7166
7167
7168
7169
7170
7171
7172
7173
7174
7175
7176
7177
7178
7179
7180
7i81
7182
7183
7184
7185
7186
7187
7188
7189
7190
7191
7192
7193
7194

7,95

7196
7197

7198
7199
7200
7201

7202

7203
7204
7205
7206
7207
7208
7209
7210
7211
7212
7213
7214
7215

.S8TTL

MODULE 2.2.5 - ERROR CHECK

;8EGINROUTlNE (MOD 2.2.5 - ERROR CHECK)
; CLEAR PRINT HEADER FLAG & ERROR FLAG
;. CALL SET <SUC> ADDRESS &OFFSET
; GET <SUC> C()IftWJD (FR~ LAST OPERATlON)
; If <SUC> CCJ1'tW\ID=R.EAD MAINT STATUS
;
THEN
;
SET C~D HEADER=''READ MAINT STATUS"
;
SETUP CSR &ESR CHECK BITS &DON'T CARE BITS
:
CALL CSR ERROR CHECK & CALL ESR ERROR CHECK
;
SET ERROR FLAG, IF ANY ERRORS
~.
I F~~~~_F LAG SET
;
;
;
;
;
;
;
;
;
;
:
:
:

;
;
;
:
:
;
;

;

:
;
;
;
;
;
;
:
:
;
;
:
;
;

;

:
:

SEQ 0041

(AJ

[8]

SET ERROR=<READ MAINT STATUS C~D ERROR>
CALLDRI VE S DROP
(MOD 2.2.5. 1)
CALL LOOP
(MOD 2.2.5.4)
ELSE
:
CALL DRIVES AVAILABLE CHECK
(MOD 2.2.5.2>
ENDIF
ELSE
[C]
IF <SUC> CCM-1AND=SET DENSI TV
THEN
SET C~D HEADER="SET DENSITY ERROR"
CALL SET TEST BITS
(MOD 2.2.5.3>
CALL CSR ERROR CHECK & CAll ESR ERROR CHECK
=
SET ERROR FLAG, IF ANY ERRORS
(DJ
IF ERRDR_f LAG SE T
: THEN
•
SETERROR=<SET DENSITY COI'f1AND ERROR>
CALL DRIVES DROP
{MOD 2.2.5.1>
:
CALL LOOP
(1'1002.2.5.4)
ENDIF
ELSE
(F)
IF <SUC> Ccn1AND=READ SECTOR
THEN
SET C<Jft1AND HEADER="READ SECTOR CCJtl'<1AND ERROR"
CALL SET TEST BITS
(MOD 2.2.5.3)
:
CALL CSR ERROR CHECK &CALL ESR ERROR CHECK
SET ERROR FLAG .. IF ANY ERRORS
[E)
IF ERROR_FLAG SET
: THEN
[G)
IF RXDB=CRC ERROR
:
: THEN
:
CALL TRACK & SECTOR IDENT
:
END IF
SET ERROR=<READ SECTOR COMMAND ERROR>
CALL DRIVES DROP
(MOD 2.2.5.1)
:
CALL LOOP
(MOD 2.2.5.4)
:

ENDIF

;:
ENDI F
; ENDIF
;ENDROUTINE

ENDIF

D 4
C2RXEAO RX02FMTR PROG MACV11 30(1046) 20-SEP-78 10:48 PAGE 68-6
CZRXEA.P11
20-SEP-78 .10:48
MODULE 2.2.5 - ERROR CHECK
7217
7218
7219
7220
7221
7222
7223
7224
7225
7226
7227
7228
7229
7230
7231
7232
7233
7234
7235
7236
7237
7238
(2 )
7239
7240
7241
7242
7243
7244
7245
7246
7247
7248
7249
7250
7251
7252
7253
7254
(2)

7255
7256
7257
7258
7259
7260
7261
7262
7263
7264
7265
7266
7267
7268
7269
7270

005164
005170
005174
005200
005204
005210
005214
005216
005224
005232
005240
005246
005252
005260
005264
005270
005274
005300
005304
005306
005312
005314
005320
005324
005326
005332
005334
005340
005342
005350
005354
005360
005364
005370
005374
005400
005402
005406
005410
005414.
005420
005422
005426
005430
005436
005442
005446
005452
005456
005462
005466
005470
005476
005500

005037
005037
004737
016102
042702
022702
001047
012737
012737
052737
012737
005037
012737
004737
010037
004737
050037
005737
001410
004737
000004

000602
005526
010076
000622
177761
000012
017346 000600
000040 000546
004000 000546
173537 000544
000552
171662 000550
010404
005526
010624
005526
005526
012240

004737 005530
004737 006406

000476

004737 006040
000473

022702
001030
012737
004737
004737
010037
004737
050037
005737
001450
004737
000005
004737
004737
000440
022702
001035
012737
004737
004737
010037
004737
050037
005737
001415
032777
001402
004737

000010
017311 000600
006266
010404
005526
010624
005526
005526
012240
005530
006406

005526
010624
005526
005526
011232

..~-~--~~---~~--.-----~-~~-~~~~~~~~---~----~~--~~---~--~-~---~~~.~-~----HDRFLG
;CLEAR HEADER FLAG
ERRCHK: CLR
(LR
ERRFLG
;eLEAR ERROR FLAGS
;eALl SET <SUC> ADDRESS e OFFSET
SSUCAD
CALL
SOCMD{R1),R2
;GET <sue> LAST Cor-fo1AND
MOV
11177761.,R2
;CLEAR ALL BUT COMMAND
Ble
;IF C~D
IfRD~ST .. R2
IA225: CMP
;EQUALS ''READ MAINT STATUS", THEN
1(225
BNE
MOV
IfMSGCD5 .. TMSGAD ;SETUP COMMAND HEADER
MOV
;SET DONE BIT eK-CSR COMPARE
IID~1 T.. CSRCMP
BIS
IfRX2BIT .. CSRCfif> ;SET DOLBLE DENSITY 81T CK-CSR COMPARE
MOV
11173537"CSRMSK ;SET CSR DON'T CARE 81TS
(LR
ESRCMP
;SET DRV RDY-ESR CCJt1PARE
MOV
Jl171662"ESRMSK ;SET-ESR DON'T CARE 81TS
CSRCHK
;CALL CSR ERROR CHECK
CALL
MOV
RO,ERRflG
;5ET ERROR fLAG .. IF ANY ERRORS
ESRCHK
;CALL ESR ERROR CHECK
CALL
RO,ERRFLG
;SET ERROR FLAG, IF ANY ERRORS
SIS
ERRFLG
;IF ERROR FLAG
18225: TST
SEQ
;SET, THEN
L8225
PC,ERRSET
JSR
. WORD 114
;FATAL ERR II 4 - READ MAINT STATUS COMMAND ERROR
DRVDRP
;CAlL DRIVES DROP
(MOD 2.2.5.1>
CALL
LOOP
(MOD 2.2.5.4)
CALL
;CALL LOOPING MODULE
EA225
;8R TO MOD EXIT
8R
DRVAVL
L8225: CALL
;CAlL DRIVES AVAIL CHK (MOD 2.2.5.2>
EA225
:BR TO MOD EXIT
8R
:IF C~D
lC225: CMf'
IISETDEN"R2
IF 225
;EQtJl\LS · 'SET DENSI TY", THEN
BNE
MOV
IfMSGCD4 .. TMSGAD ;SETuP COMMAND HEADER
STSTBT
;CALL SET TEST BITS
(MOD 2.2.5.3)
CAll
CSRCHK
CALL
;CALl CSR ERROR CHECK
RO,ERRFLG
MOV
;SET ERROR FLAG,. IF ANY ERRORS
ESRCHK
;CALL ESR ERROR CHECK
CALL
BIS
RO,ERRFLG
;SET ERROR FLAG,. IF ANY ERRORS
10225: TST
ERRFLG
;IF ERROR FLAG
BEQ
;SET,. THEN
EA22S
JSR
PC,ERRSET
•WORD #5
:fATAL ERR II 5 - SET DENSITY COMMAND ERROR
CALL
DRVDRP
;CALl DRIVES DROP
(MOD 2.2.5.1)
CALL
;CALL LOOPING MODULE
LOOP
(MOD 2.2.5.4)
,
EA22S
BR
1F225: CMf'
;IF COf'1VlAND
IfRDSEC"R2
;EQUALS · 'READ SECTOA", THEN
BNE
EA225
MeV
IfMSGCD3, TMSGAD ;SET COMMAND HEADER
STST8r
CALL
;CAlL SET TEST BITS
(MOD 2.2.5.3)
CALL
CSRCHK
;CAll CSR ERROR CHECK
MOV
RO,ERRFLG
;SETERROR fLAG,. IF AHY ERRORS
CALL
ESRCHK
;CALl ESR ERROR CHECK
BIS
RO,ERRfLG
;SET ERROR Fl.AG. IF ANY ERRORS
EI~RFlG
IE225: TST
;Jf ERROR FLAG
SEQ
;SET. THEN
EA225
IG225: BIT
#CRCERR,iRXDBAD ;IF CRe ERROR
BEQ
EG225
;SET, THEN
CALL
PRTKSC
;CAlL PRINT TRACK/SECTOR

000006
017254 000600
006266
010404

000001

SEQ 0042

172776

I
I

i CZRXEA.O Rx02 FMTR AAOG
ICZRXEA.P"

7271

(2)

(1 )

I 7272

7273
II~ 7275
7274

I
I

005504

005504
005510
005512
005516
005522
005524

MACvl1 30(1046)

20-SEP-7810:48

004737 012240
000006
004737 005530
004 757 006406
000240
000207

20-SEP-78
ERROR 5
EG22S:

EA225:
x225:

E 4

10;48 PAGE 68-7
SET DENSITY COMMAND EP~ ~

Pc. ERR~E T
JSR
. WORD 1f6
DRVDRP
CAll
lOOP
CALL
NOP
RETURN

;FATAl ERR 11 6 - READ SECTOR COM'1AND ERROR
;CALl DRIVES DROP
(MOD 2.2.5.1)
;CAlL LOOPING MODULE
(MOD 2.2.5.4)

•

;RE1URN

7276
7277 005526 000000

fRRFLG: 0

7278

•.-------~---------------~----------------------------------------------~

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

;ERROR FLAG

SEQ 0043

CZRXEAO Rx02 fMTR PROG MACY'1 30n046} 20-SEP-78 10:48 PAGE 68-8
C.ZRXEA.P1'
20-SEP-7810:48
MODULE 2.2.5.1 - DRIVE DROP
.SBTTL MODULE 2.2.5.1 - DRIVE DROP
7280
7281
;8EGINROUTlNE (MOD 2.2.5.1 ... DRIVE DROP)
7282
; CLEAR DROP DRIVE CONTROL WORD
7283
, CLEAR PRINT SIDE FLAG
7284
, CALL seT <sOc> O~FSET
7?85
, IF <SUC> CCJtP\«WD=DRIVE 1f1 SELECTED
7286
,
THEN
7287
r
IF <SUC> COMMAND=SIDE #1 SELECTED
7288
7289
•
THEN
•
IF <SUC> SYS AVAIL=SIDE 1f1
7290
7291
•
THEN;
SETUP PRINT SIDE=#l. DRIVE:/f1
7292
•
SET DROP DRIVE=SIDE 1/DRIVE 1
7293
•
:
SET PRINT SIDE FLAG
7294
7295
•
ENDIF
7296
•
ELSE
;
SET DROP DR1Vf=SlDE O/DRIVE 1
7297
•
IF <SUC> ~YS AVAIL=SIDE #1
7298
•
THEN7299
·
SETUP PRINT SlDE=/fO, DRIVE=/f1
7300
•
SET PRINT SIDE FLAG
7301
•
ELSE
-7302
;
:
SETUP PRINT DRIVE=/f1
7303
•
.
ENDIF
7304
;
ENDIF
7305
7306
•
ELSE
•
IF <SUC> COMMAND=SlDE /f1 SELECTED
7307
;
THEN
1:08
•
IF <SUC> SYS AVAll=SIDE ~1
7309
•
: T~N
7310
;
.
SETUP PRINT SlD£=/f1, DRIVE:/fO
7311
7312
:
ENDIFSET DROP_DRIVE=SH'E l/DRIVE 0
7313
7314
•
ELSE
•
SET DROP DRIVE=SIDE 01 DRIVE 0
7315
;
1F <SUC> -SYS_AVAIl=SIDE 1f1
7316
; .
THEN
7317
•
SETUP PRINT S10E=#0. DRIVE=/fO
7318
;
SET PRINT SIDE FLAG
7319
•
ELSE
-7320
•
:
SETUP PRINT DRIVE=/fO
7321
:
:
ENDIF
7322
.:
END IF
7323
7324
• ENDIF
• IF DROP DRIVE NOT=O
7325
•
THEN7326
,
CALL PRINT SYSTEM IDENTIFICATION
7327
;
CALL PRINT DRIVE IDENTIFICATION
7328
.:
DROP DRIVES SET IN DROP DRIVE FROM <sue> AVAIL
7329
; ENDlF
7330
;ENDROUTlNE
7331

SEQ 0044

[AJ
[BJ

[CJ

[DJ

[EJ
[F)

(G]

[H]

G 4

CZRXEAO RX02 fMTR PROG MAC y11 30(1046) 20-SEP-78 10:48 PAGE 68-9
MODULE 2.2.5.1 - DRIVE DROP
CZRxEA.P11
20-SEP-78 10:48
7333
7334
7335 005530
73~ 005534
7337 005540
7338 005544
7339 005552
7340 005554
'1341 005562
7342 005564
7343 005572
7344 005574
7345 005602
7346 005610
7347 005616
7348 005622
7349 005624
7350 005632
7351 005640
7352 00,642
7353 005646
7354 005654
735') 005660
7356 005662
7357 005670
7358 005672
7359 005700
7360 C05702
7361 0057,0
7362 005712
736.3 005720
7364 005724
731:>5 005732
73th 005736
7367 005740
7368 005746
7"'!:b9 005754
7370 005756
7371 005762
7372 005766
7373 005772
7374 005774
7375 006000
7376 006004
7377 006006
7378 006012
7379 006016
7380 006024
(1)
006030
7381 006031.
7382
7383 006036
7384

SEQ 0045

•.-~~~-------~-~~--------~-~-~~~~~--~-----~--~-----------~---------------

005037
005037
004757
032761
001447
032761
001420
032761
001502
012737
012737
012737
005237
000466
012737
032761
001410
005037
012737
005237
000447
012737
00044.3
0327{'1
001417
032761
001433
012737
005037
012737
005237
000420
012737
032761
001407
005037
005037
005237
000402
005037
005737
001413
004737
004737
043761
012704
004737
000207
000000

;ClEAR DROP DRIVES CONTROL WORD
;CLEAR PRINT SIDE FLAG
; CALL SE T <sue> OF FSE T
IfDRVl ~ SOCMD (Rn ; IF <sue> C~D=DRIVE 111
;SELECTED .. THEN
1E2251
HSIDE1.S0CMD(Rl);IF <sue> COMMAND=SIDE 111
;SElECTED .. THEN
l82251
; IF <SUC> SY5 AVA1L::SIDE 111
Hl0~SOAV(R1)
;
SE7" .. THEN
IH2251
;SETUP PRINT SIOE=#1
H1~SlDE
;SETUP PRINT DRIVE=#1
Hl.DRIVE
;SET DROP DRIVE=SIDf 1/0RIVE 1
Hl0.DROPDV
;SET PRINT SIDE FLAG
PTSIDF
;8R TO IF 'H'
IH2251
;SET DROP DRIVE=SlDE O/DRIVE 1
1f2.DROPDV
;IF <SUC> SYS AVAIL=SlOE III
H10.S0AV(R1)
; SET, THEN
LD2251
;SETUP PRINT SID£=#O
SIDE
;SETUP PRINT DRIVE=#l
Hl,DRIVE
;SET PRINT SIDE FLAG
PTSIDf
;8R TO IF 'H'
IH2251
;SETUP PRINT DRIVE=#l
Ifl ,DR 1 VE
;8R TO IF 'H'
IH2251
8R
#SlDE1;50CMO(Rl);IF <sue> COMMANO=SIDE #1
IE2251: BIT
BEQ
;SELECTED, THEN
LE22S1
#1,SOAV(Rl)
;IF <SUC> AVAIl.::SIDE 111/DRIVf 110
IF2251: BIT
BEQ
;SET. THEN
IH22S1
;SETUP PRINT 510£:#1
Hl,SIDE
MaV
;SETUP PRINT DRIVE=IIO
DRIVE
ClR
;SET DROP DRIVE=SIDE l/DRIVf 0
#4.DROPDV
MOV
;SET PRINT SIDE FLAG
PTSIOF
INC
;8R TO IF 'H'
IH22S1
8R
#l,DROPDV
;SE1 DROP DRIVE=SIDE O/DRIVE 0
LE2251: MOV
;I~ <sue> SYS AVAIL=SIDE Ill/DRIVE 110
#4.S0AV(R1)
IG2251: BIT
BEQ
;SET, THEN
lG22S1
;SETUP PRINT SIDE~#O
CLR
SIDE
;SETUP PRINTDRIVE=#O
ClR
DRIVE
;5ET PRINT SIDE FLAG
PTSIDF
INC
;8R TO IF 'HI
IH2251
8R
;SETUP PRINT ORIVE:#O
DRIVE
LG2251: CLR
;IF DROP DRIVE CONTROL WORD
DROPOV
IH2251: TST
BEQ
; SET; THEN
X22S1
;CALl PRINT SYSTEM IDENT
PRTSYS
CALL
PRTORV
;CAlL PRINT DRIVE IDENT
CALL
DROPDV,SOAV(R1) ;DROP DRIVES SET IN <SUC> AVAIL
SIC
IIMSG33,R4
;SETMSG-> 'T>ROPPEO"
MaV
;PRINT MSG
TTOUT
CALL
; RETURN
X2251: RETURN

DRVDRP: CLR
006036
ClR
011230
CALL
010126
000020 000622 IA2251: 81 T
BEQ
001000 000622 182251: BIT
BEQ
000010 000612 lC2251: BIT
BEQ
MOV
000001 011226
MOV
000001 011224
MOV
000010 006036
INC
011230
BR
000002 006036 L82251: MOV
000010 000612 102251: BIT
BEQ
ClR
011226
MOV
000001 011224
INC
011230
BR
000001 011224 LD2251: MaV
001000 000622
000001

000612

000001 011226
011224
000004 006036
011230
000001 006036
000004 000612
011226
011224
011230
011224
006036
011132
011154
006036 000612
015121
013232

·.----..

DROPDV

PTSIDF
SSUCOF

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

CROPDV: 0

;DROP DRIVE CONTROL WORD

"-----------------------------------------------------------------------

•

H 4
CZRXE.A0 ~)(02 FMTR PROG MACY11 30(046) 20-SEP-78 10:48 PAGE 68-10
CZRXfA.Pl1
20-SEP-78 10:48
MODULE 2.2.5.2 - DRIVES AVAILABLE CHECK
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395

7396
7397
7398
7399

.S8TTL MODULE 2.2.5.2 - DRIVES AVAILABLE CHECK
;8EGINROUTINE (MOD 2.2.5.2 - DRIVES AVAILABLE CHECK)
· CLEAR DROP AVAILABLE DRIVES CONTROL
IF <sue> e~D=DRIVE #1 SELECTED
THEN
IF RXES=DRIVf: NOT ROY
THEN
IF <SUC> AVAIL=DRIVE #1 SET
THEN
SET DRIVE::1
:
SET DROP AVAIL DRIVE::lll
:
ENDH
ENDIF

7400
7401
7402
740.3
7404
740S
7406
7407
7408

7409

7410
7411
7412
7413
7414
7415
7416
7417
7418
7419
7420
7421
7422
7423
7424
7425
7426
7427
7428

SEQ 0046

,·

··

[8J

rCJ

l '

IF RXES=SIDE NOT ROY
THEN
:
DROP <sue> AVAIL-SIDE 1I1/DRIVE 111
ENDIF

[DJ

IF RXES=DRIVE NOT RDY
THEN
IF <SUC> AVAIL=DRIVE #0 SET
THEN
SET ORIVE::O
:
SET DROP AVAIL DRIVE=IIO
:
ENDIF
-ENDIF
IF RXES=SlDE NOT ROY
THEN
:
DROP <SUC> AV41L-SIDE Ill/DRIVE 1t1

[EJ

ELSE

··

[AJ

.:
ENOl F
; ENOL F

[FJ

[GJ

[H]
• IF DROP AVAIL DRIVE NOT=O
•
THEN•
CALL PRINT SYSTEM IDENT
;
SETUP PRINT 'nRIVE NOT READY-IS DISK IN DRIVE g,"
•
CALL PRINT SYSTEM IDENT
•
CLEAR SlOE PRlNT fLAG
•
CALL PRINT DRIVE IDENT
;
DROP THE DRIVE SET IN DROP AVAiL DRIVE IN <sue> AVAIL
.:
SE TUP& PRINT • 'DROPPED" ; ENDH
; ENDROUT IN£:

·CZRXEAO Rx t)2 '"MTR PROG
Cl~xfA.Pll

rwlA.CY11 30(1046)

20-SEP-78 10:48

7t..30
743'1
006()i..O

005037

74~

006050
006056

O()1426

7433 006044

'J0473 7
032761

006264
010876
000020 000622

006060 032777 000200 172406
7437 006066 001012
7438 QOI~)70 032761 000002 000612
7'-.39 O()6076 IN 1406
7440 006100 012737 000001 011224
7441 0"J6106 012737 000002 006264
7442 006114 032777 000002 172352
7436

71..l.t3

7444

7445

7446
7447
7448
7449
7450
7451
7452
7453
7454
7455
7456
7'-.57

SEQ 0047

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

7432

7'-.35

I 4
20-SEP-78 10:48 PAGE 68-11
MODULE 2.2.5.2 - DRIVES AVAILABLE CHECK

006122
C£~'24

006132
006134
006142

C()6144

006152

006154
006160
006166
0061f4
006176
006204
006210
006212
7458 006216
(1)
006222
7459 006226
7460 006232
7461 006236
746? 006242

001030

042761

DRVAVl:

SEQ
182252: BIT

BNE
1C2252: BIT
BEQ

MOV

MOV
102252: 81T

BNE

000010 000612

000424

(LR

CALL
IA2252: 81T

8IC
SR
8IT

032777 000200

172332

IE2252:

0.32761
001405
005037
012737
0.32777
001003
042761
005737
001423
004737
012704
004737
004737
005037
004737
043761

000001

000612

011224
000001
000002

006264
172300

IF2252: BIT
BEQ
(LR

000004

000612

001011

006264

011132
016613
013232
011132
0112.30
011154
006264 000612
7463 006250 012704 015121
(1) 006254 004737 013232
7464 006260 000240
7465 006262 000207
7466
7467 006264 000000
7468
7469
7470
7471
7'-.72
7473
7474
7475
7476
7477
7478
7479
7480

BNE

,,..,0 V

1G2252: Blf
BNE
B1 (
IH2252: TST
BEQ
CALL
MaV
CALL
CALL
(LR
CALL
SIC
MOV

(ALL
EH2252: NOP
X2252: RETURN

··•
·.·
•·
··

DROPAV
; CLEAR DROP AVAI L DRI VE
SSUCAD
;CALL SET <sue> ADDRESS & OFFSET
HDRV1,SOCMD(Rl) ;IF <SUC> COMMAND
1£2252
;H.t\S DRIVE #1 SELECTED, THEN
HDRVRDY,~RXD8AD ;IF RXES
ID2252
;DRIVE RDY NOT SET, THEN
h2,SOAVeR1)
;IF <SUC> DRIVE #1
1D2252
;AVAllABLE, THEN
Hi,DRIVE
;SET DRIVE=1 FOR PRINT
#2,DROPAV
;SET DROP AVAIL SIDE #0, DRIVE h!
#SlDRDY~iRXDBAD ;IF RXES
IH2252
;SlDE RDY NOT SET, THEN
Nl0,SOAV{Rl)
;DROP SIDE #1. DRIVE N1
IH2252
;8R TO IF 'H'
NDRVRDY,iRXOBAD ;IF RXES
1G2252
;DRIVE ROY NOT SET, THEN
#l,SOAV(Rl)
;if <sue> DRIVE NO
1G2252
;AVAIlABLE, THEN
DRIVE
;5£T DRIVE=O
Hl,DROPAV
;SET DROP AVAIL SIDE NO, DRIVE NO
NSIORDY,iRXDBAD ;IF RXES
IH2252
;SIDE RDY NOT SET, THEN
N4,SOAV(Rl)
;DROP SIDE #1, DRIVE #0
DROPAV
.1F DROP AVAIL SIDE/DRIVE
EH2252
;SET, THEN
PRTSYS
;CALL PRINT SYSTEM IDENT
IIMSG55,R4
;S£T MSG-> 'ty)RIVE NOT ROY-IS DISK IN DRIVE & DOOR CLOSED
TTOUT
;PRINT MSG
PRTSYS
;CALL PRINT SYSTEM IDENT
PTSIDF
;ClEAR PRINT SIDE FLAG
PRTDRV
;CALL PRINT DRIVE/SIDE IDENT
DROPAV,SOAV(Rl) ;DROP DRIVE SET -> IN <SUC> AVAIL
IfMSG33,R4
;5ET MSG-> ''DROPPED''
TTOUT
;PRINT MSG

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

•

SYSTEM AVAILABLE WORD
+-~~.--~+---+---+
I

1 !

<-- SIDE & DRlVE BIT AVAILABLE

I l l ! 10! 01;

OO!

(-- SIDE & DRIVE CODE

lO! 4 ! 2

+---+---+---+---+
f

SO! SO; SD! SO!
......
! ! ... DRI VE

! .... SlOE

J 4
CZRXEAO RX02 FMTR PROG MACVll 30(1046) 20-SfP-78 10: 48 PAGE 68-12
CZRXEA .. P"
20-SEP-78 '0:48
MODULE 2.2.5.3 - SET TEST BITS IN CSR & ESR

.$BTTL

7482
7483
7484
7485
7486
7487
7488
7489
7490
7491
7492
7493

MODULE 2.2.5.3 - SET TEST 81TS IN CSR &ESR

;8EGINROUTINE (MOD 2.2.5.3 - SET TEST BITS IN CSR &ESR)
; SETuP C5R COMPARE=OONE BIT
; SETUP e5R-C()Ii\PARE=00U3lE DENSITY BIT
• GET <SUC>-LAST C~
• SAVE ALL READ/WRITE BITS
; SETUP CSR COMPARE=SET All READ/WRITE 81TS
; SETUP eSR-MASK=DCW'T CARE BITS
, CLEAR All-SUT SIDE BIT FR<J'f1 <sue> LAST CemAND
; SETUP ESR C()Ii\PARE=SIDE BIT AS SET FROM <SUC> LAST CMD
• IF <SUC> lAST COMMAND=DRIVE#l SELECTED
• : THEN
;:
SETUP ESR COMAPRE=ORIVE#1
, ENDIF
; IF <SUC> LAST CCmAND=DOlBLE DENSITY 31T SET
" : THEN
;:
SETUP ESR COMPARE=DRIVE DOUBLE DENSITY BIT SET
; ENDIF
~ENg~~l~R_MASK=DONIT CARE BITS

7494

7495

7496

7497

7498

7499

7~OO

7501
7502
7503

[AJ
[aJ

•.~~-~-~~----~---------------~~-~---------------------------~-~--~--~-~-

?S04

000040 000546 STST8T: MaV
SIS
004000 000546
MaV
7507 006302 016103 000622
BIC
7508 006306 042703 176257
8IS
7509 006312 050337 000546
MOV
7510 006316012737 070017 000544
MaV
7511 006324 016103 000622
8IC
7512 006330 042703 176777
MaV
7513 006334 010337000552
7514 006.340 032761 000020 000622 IA2253: BIT
BEQ
7515 006346 001403
SIS
7516 006350 052737 000400 000552
7517006356 032761 000400 000622 182253: BIT
BEQ
7518 006364001403
BIS
7519 006366 0.52737 000040 000552
7520 006374 012737 170000 000550 E82253: MOV
NOP
7521 006402 000240
X2253: RETURN
7522 006404 000207
. ....-~-- ........
7523
"

7505 006266 G12737
7506

SEQ 0048

006274

052737

----

HDNBIT,CSRCMP
;5ET DONE BIT CK-CSR MODULE
IIRX2BIT .. CSRCMP ;SET()0U3lE DENSITY BIT CK-CSR CC»1PARE
SOCMD(R1),R3
;SET <SUC> COMMAND
1t176257,R3
;SAVE ALL R/W BITS
R3,CSRCMP
;SET R/W BITS FOR-CSR COMPARE
1t70017,CSRMSK
;SET-CSR OOO'T CARE 8IT MASK
SOCrtl(){R1) ,R3
;6ET <SUC> CCMAND
It A CSIDE1,R3
;ClEAR ALL BIT SIDE BIT
R3,ESRCMP
;SET SIDE BIT (If SELECTEO)-ESR COMAPRE
ItDRV1,$OCMO(Rl) ;IF DRIVE It'
182253
;SELECTED IN COMMAND, THEN
ItORIVE1 .. ESRCMP ;$ET DRIVE #1 BIT-ESR COMPARE
NDEreIT,SOC"'CR1);lfDOU3lE DENSITY
E82253
;SELECTED IN CCJt1AND, THEN
ItDRVDEN .. ESRCMP ;SET DRIVE DENSITY BIT-ESR COMPARE
1t170000,ESRMSK ;SET ESR DON'T CARE BIT MASK
,.

;RETURN
------...--------..-... ------,
...------..........-------- ---------------.....-

K 4
CZRXEAO RX02 fMTR PROG MACY'1 30( 1046) 20-SEP-78 10:48 PAGE 68-13
MODUlE 2.2.5.4- LOOPING MOOUlE
CZRX£A.Pl1
20-SEP-78 10:48

7525
7526
7527
7528
7529
7530
7531
7532
7533
7534
7535
7536
7537
7538
7539
7540
(1 )
(1 )
(1)

(2)
(1 )
(1 )
(1)

(1 )

7541
7542

7543
7544
(1)
(1 )

(1)
(2)
(1)

,1 )
(1 )
(1)

7545
7546
7547

sea 0049

.S8TTl 'MODULE 2.2.5.4 - lOOPING MODULE
•.~~~-~~~---~~~~---~-~~.-~-~--~-~------~----~--~~~--~--~-~--~~-------~---

006406
006410
'006414
006416
006424
006426
006432
006440
006446
006454
006460

006462
006464

006470

006476

006500
006504
006506

LOOP:
0002'-.0
005737 000516
001464
032777 101000 172060
001460

005037
012737
016137
013737
004737
005700
001416
004737
03.2777
001363
004737
000007
005777

006512 100001
006514 00000o
006516 000240
006520 004737
006524 005700
006526 001416
006530 004737
006534 032777
006542 001341
006544 004737
006550 000010
006552 005777
006556 100001
006560
006562
006564
006566

00000o

000240
000240
000207

000602
017417 000600
000622 000542
000542 000540 LOOP':
010404
012262

001000

BE')

Bl T

BEQ
CLR

MOV
MOV
MOV

CALL
TST

JSR

172006

BIT

Bf'.JE
JSR
. WORD

171772

TST

BPl
1$:
LOOP2:

010624
001000

lST

BEQ

012240

012262

NOP

CALL
TST

BIT

Bf'.JE
JSR

012240

• WORt>

171726
1$:

lOOP3;
x2254:

x2254

HDRFLG
NMSGlP .. H1SGAD
SOC~(R1),CMD

CT1),WDOT
CSRCHK

LOOP2
PC .. 85INIT
IISW09,iSWR
LOOP1

PC.ERRSET

TST
BPl
HALT
NOP
NOP

RETURN

· DEBUG FLAG
-;IF

; SE T, THEN
;IF H~LT ON ERR OR LOOP ON fqR
;5ET, THEN
;CLEAR HEADER FLAG
;SET MODULE MESSAGE
;GET <sue> COMMAND
;PAS5 COMMAND TO OUTPUT MODULE
;CALL CSR CHECK
;IF RXCS ERROR
;5ET, THEN
;CHECK 5WR fOR BUS INITIALIZE
; CHECK FOR LOOP ON ERROR
;GO TO lOOP ERROR

117

iSWR
1$

;FATAl ERR II 7 - LOOPING MOD-(SR ERR
;CHECK FOR HALT ON ERROR
;HALT IF SET
;<lOOPING MOO-CSR ERR>

ESRCHK
RO
LOOP3
PC .. BSINIT
115W09;iSWR

;CAlL ESR CHECK
;IF RXESERROR
;SET .. THEN
;CHECK SWR fOR BUS INITIALIZE
;CHECK fOR LOOP ON ERROR
;GO TO LOOP ERROR

HALT

BEQ
JSR

171742

DBGFLG
x2254
#101000,iSWR

lOOPl

PC.ERRSET

1110

GlSWR
1$

;FATAL ERR II 10 - LOOPING MOD-ESR ERR
;CHECK FOR HALT ON ERROR
; HAL T IF SET
;<LOOPING MOO-ESR ERR>

•

;RETURN

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

CZRXEAO Rx02 fMTR PROG MACyn 30(1046) 20-SEP-78 10:48 PAGE 68-14
CZRXEA.P1'
20-SEP-18 10:48
MODULE 2.3 - SYSTEM STATUS

7549

7550
7551
7552

7553
7554
7555
7556
7557
7558
7559
7560
7561
7562
7563
7564
7565
75l::b

7567

7568

7569
7570
7571
7572
7573
7574

7575
7576
7577
7578
7579
7580
7581

7582
7SB3
7584
7585
75&J
7587
7588
7589
7590
7591

7592
7593
7594
7595
7596
7597
7598

7599
7600
7601
7602
7603

SEQ 0050

2.3 - SYSTEM STATUS
;8EGINRruTINE (MOO 2.3 - SYSTEM STATUS)
: If SYSTEMO_AVAIL=O & SYSTEMNOz:SElECTED
• 58TTl

;
:
;
;:

MODULE

[AJ

THEN
SET <SUC>:O
CALL DROP SYSTEM

(MOD 2.3.2>

• ENDIF

;
~
~

raj

If SYSTEMW1 AVAIL=O & SYSTEMN1=SELECTED
THEN
SET <SUC>:1
CAll DROP SYSTEM

(MOD 2.3.2>

ENOlF

[(J
If SYSTEMNO &SYSTEMW1=NOT SELECTED
THEN
SET SYSTE~ fLAG
SET MS6 'NO SYSTEM AVAILABLE TO FORMATER
ELSE
[OJ
•
If SYSTEM#1=SElECTED
"
: THEN
[EJ
,
IF SYSTEft1#1DONE=1
;
:
THEN[FJ
,
IF SYSTEM#O SELECTED
;
THEN
[GJ
;
.
IF SYSTEMNO DONE=1
,
THEN
,
SET SYSTEM FLAG
,,'
CALL PRINT SYSTEM STATUS (MOD 2.3. 1)
;
.
CLEAR SYSTEKfO & SYSTEM#1 DCWE
. '
SETUP FORMATTER ,.,SG
•
ELSE
,
:
CALL SYSTEII1 TIII1EOUT CHECK (MOD 2.3.3)
:
ENOl F
;
ELSE
,
SE T SYSTEM FLAG
(MOD 2.3. l)
,
CAll PRINT SYSTEM STATUS
,
CLEAR SYSTEM#l DONE
,
:
SE TUP fORMATTER MSG
,
ENDlf
ELSE
,
(MOD 2.3.3)
,
:
CALL SYSTEM TIMEOUT CHECK
,
ENDIF
,
ELSE
[HJ
,
IF SYSTEMIO DONE=1
,
THEN
,
SET SYSTEM FLAG
(MOD 2.3. 1)
;
CALL PRINT SYSTEM STATUS
,
:
CLEAR SYSTEMNO DONE
,
SETUP FORMATTER MSG
,
•
ELSE
(MOD 2.3.3)
,
:
CALL SYSTEM TIMEOUT CHECK

;
•
;
;
,

,,:
ENDlF
; ENDU
;ENOROUTINE

ENDIF

4
CZRXEAO RX02 FMlR ?ROG MACY1' 30(1046) 20-SEP-78 10:48 PAGE 68-15
CZRXEA.Pl1
MODULE 2.3 - SYSTEM STATUS
20-SEP-78 10:48
.... ----..~---- ..... --- .. -.....
... 7605
•·..-... ......----,-.--.......... ---~ ... .................. .... ~-- ...
7606
7607 006570 000240
SYSTAT: NOP
•·
;IF SYSTEMNO AVAIL
TST
SOAV
7608 006572 005737 000612
lA23:
76('FJ 006576 001010
;EQUAlS ZERO AND
1823
BNE
#l,@SWR
;SYSTEMIIO
7610 006f:I:X) 032777 000001 171676
BIT
BEQ
7611 00f:iIJ6 001404
;SElECTED. THEN
1823
;SET <sue>=o
CLR
sue
7612 006610 005037 000610
(MOD 2.3.2)
SYSDRP
;CAll SYSTEM DROP
7613 006614 004737 007264
CALL
TST
SlAV
;IF
SYSTEMN1
AVAIL
7614 006620 005737 000614
1823:
;EQUAlS ZERO AND
7615 006624 001011
BNE
1C23
#2,@SWR
;SYSTEMlll
BIT
7616 006626 032777 000002 171650
BEQ
7617 006634 001405
1C23
;SElECTED THEN
#l.sue
;SET <SUC>=1
MOV
7618 006636 Oi2737 000001 000610
(MOD 2.3.2)
SYSDRP
;CALl SYSTEM DROP
7619 006644 004737 007264
CALL
#3,@SWR
;IF SYSNO & SYSN1
BIT
7620 006650 032777 000003 171626 1(23:
;NOT SELECTED OR DESELECTED, THEN
7621 006656 001006
1023
BNE
SYSFLG
;SET SYSTEM FLAG
INC
7622 006660 005237 000574
762'3 00t:I:h4 012737 014206 000572
;SET SYSTEM MSG 'NO SYSTEMS TO FORMAT"
MOV
IIMSG8.SYSMSG
;BR TO END 'C·
BR
EC23
7624 006672 000471
#2,@SWR
;IF SYSTEMN1
BIT
7625 006674 032777 000002 171602 1023:
BEQ
; SELECTED, THEN
IH23
7626 006702 001446
TST
SlDN
;IF SYSTEMlf1 DONE
IE23:
7627 006704 005737 000630
BEQ
;SET. THEN
LE23
7628 006710 001440
#1,@SWR
; IF SYSTEMO
BIT
7629 006712 032777 000001 171564 IF23:
BEQ
LF23
;SElECTED, THEN
7630 006720 001422
I..>
SODN
;IF SY5TEMNO DONE
IG23:
7631 006722 005737 000626
BEQ
LG23
;SE1. THEN
7632 Of>6726 001414
SYSFLG
;SET SYSTEM FLAG
INC
763.3 006730 005237 000574
PTSYST
(MOD 2.3. 1)
;CALl PRINT SYSTEM STATUS
CALL
7634 006734 004737 007062
SOON
;CLEAR SYSTEMNO DONE
CLR
7635 006740 005037 000626
S1DN
;CLEAR SYSTEMN1 DONE
CLR
7636 006744 005037 000630
;5ET SYSTEM M5G "FORMAT CCM'lETED
7637 006750 012737 014246 000572
MOV
IfMSG9 .. SYSMSG
;8R TO END IC'
7638 006756 000437
8R
EC23
SYTMCK
;CALL SYSTEM TIMEOUT CHECK
(MOD 2.3.3)
7639 006760 004737 007342
lG23:
CALL
;8R TO END tc'
8R
EC23
7640 006764 000434
lF23:
INC
SYSFL6
;5ET SYSTEM FLAG
7641 006766 005237 000574
PT5YST
;CAll PRINT SYSTEM STATUS
(MOD 2.3.1)
CALL
7642 006772 004737 007062
CLR
S10N
;~lEAR SYSTEMW1 DONE
7643 006776 005037 000630
#MSG9,SYSMSG
;5ET SYSTEM MSG "FORMAT C(K>lETEO
MaV
7644 007002 012737 014246 000572
;8R TO END 'C'
7645 007010 000422
EC23
8R
lE23:
SYTMCK
; CALL SYSTEM TIMEOUT CHECK
(MOD 2.3.3)
CALL
7646 007012 004737 007342
;8R TO END tc·
7647 007016 000417
8R
EC23
TST
IH23:
SODN
;IF SYSTEMNO OONE
7648 007020 005737 000626
SEQ
LH23
;SET .. THEN
7649 007024 001412
SYSFLG
INC
;SEr SYSTEM FLAG
76.50 007026 005237 000574
007062
PT5YST
;CALl PRlNT SYSTEM STATUS
(MOD 2.3. 1)
004737
CALL
007032
7651
CLR
SODN
; CLEAR SYSTEIWO DONE
7652 007036 005037 000626
IMSG9 .. SYSMSG
MOV
;SET SYSTEM "'S6 '~ORMAT CG'1PLETEO
7653 007042 012737 014246 000572
;8R TO ENO 'C'
BR
EC23
7654 007050 000402
LH23:
SYTMCK
;CALL SYSTEM TIMEOUT CHECK
(MOD 2.3.3)
CA.Ll
7655 007052 004737 007342
EC23:
NOP
7656 007056 000240
·
RETURN
;RETURN
X23:
7657 007060 000207

- -

---------

_-----_

TC"T
I

;

7658

•.-~-~-~~~-~~~---~-.-~~~~---~-~~-~---~~-----~~~----~-~--~--~~-~--~-~--~-~

SEQ 0051

N 4
CZRXEAO RX02 FMTR PROG MACY11 30 (1046) 20-SEP-78 10: 48 PAGE 68-16
. CZRXEA.P1'
20-SEP-78 10:48
MODULE 2.3.1 - PRINT SYSTEM STATUS
7(;hO

7661
7662

I 7665
~~

7666
7667
7668

7669
7670
7671
7672
7673
7674
7675
7676
7677
7678
7679
7680
7681
7682
7683
7684
76aS
7686

7687
7688
7689
7690

seQ 0052

.S8TTL MODULE 2.3.1 - PRINT SYSTEM STATUS
;8EGINROUTINE (MOD 2.3. 1 - PRINT SYSTEM STATUS)
" SE T <SUC>=O
; 8EGINDO
• : INITIALIZE DRIVE PTR=1" DRIVE.CTR=O
,
If <sue> DONE=SET
,
THEN
,
PRINT "SYSTEM: <sue> fORMAT DONE ON FOLLOWING:"
;
BEGINDO
, :
IF <SUC> AVAIL=8IT SET AT SYSTEM AVAIL PTR
•
THEN
•
IF <sue> AVAIL=EITHER SIDE AVAIL
,
: THEN
"
:
SET SIDE FLAG
•
: ELSE
,
:
CLEAR SIDE fLAG
"
ENDIF
,
SET DRIVE #
"
SET SIDE #
"
:
CALL PRINT DRIVES IDENT
,
ENOl F
,
INCREMENT DRIVE COltHER
;
SHJfT LEFT DRIVE POINTER
"
: DO UNTIL DRIVE.COUNTER=1
"
:
ENDDO
;
ENDlF
•
INCREMENT <sue>
, : DO UNTIL <SUC>=2
; ENDDO
;ENDROUTINE

[AJ

(8J

[CJ
[OJ

(EJ

CZRXEAO Rx02 FMTR PROG MACY11 30(1046> 20-SEP-7(.. 10:48 PAGE. 68-17
MODULE 2.3.1 ... PRINT SYSTSlitSTATU5
(·ZRXE A. P1 1
20-SEP-78 10:48

7692
7693
7694 007062
(1)
007062 012704
(1)
007~ 004757
7695 007072 005037
76% 007076 012737
7697 0071,04 005037
7698 007110 ()\)4 737
769'1 007114 005761
7700· 007120 001450
7701 007122 004737
7702 007126 000240
'7703 007130 033761
7704 007136 001431
7705 007140 032761
7706 007146 001403
7707 007'150 005237
7708 007154 000402
7709 007156 005037
7710 007162 '013737
7711 007170 Ql..2737
7712 007176 013737
7713 007204 006237
771/. 007210 042737
7715 007216 004737
7716 007222 005237
7717 007226 006337
7718 007232 022737
7719 007240 001332
7720 007242 005237
7721 007246 022737
7722 007254 001310
7723 007256 000207
7724
7725 007260 000000
7726 007262 000000
7727

; ____ "" ___ ....,____.""_,,,._,, __
~

014452
01.3232
000610

000001

007260
010126
000626
0111,32

PTS:YST:

MaV
CAll
CLR
MOV
CLR
CALL

007262 BA231:
18231=

TST

BEQ
CALL
NOP
BIT
BEQ

8C231:
007262 000612 11)231:

~,_,,,-41!1'

#MSG14#R4
TrOUT

suc

N1,DRVPTR
DRVCNT
SSUCOf
SODN(Rl )
E8231
PRTSYS

SEa 0053

__" ________ ----"""""-"""'''''_-., .... .. .., ..... - .....--.. --................
~

;SET MSG-> "FORMAT DONE ON FOLLOWING"
;PRINT MSG
;SET <5U(>=0
; INl HAll ZE DRIVE POINTER:1
; INl flAt I ZE DRIVE CQUNTER=O
;CALL SET <sue> OFFSET
;IF <SUC> DONE
:5ET, THEN
;CALL PRINT SYSTEM IDENT

•

DRVPTR,SOAV(R1) ;IF DRIVE POINTfR=<5UC> AVAIL B1T
;5£T, THEN
ED231
#14 .. S0AV(R1)
;JF EITHER SIDE IN <sue> AVAIL
000014 000612 lE231: BIT
BEQ
; SET, THEN
LE231
;SET PRINT SIDE fLAG
PTSIDF
INC
011230
;BR TO END te'
BR
fE2.31
;ClEAA PRINT SIDE FLAG
PT51DF
LE231 : CLR
011230
;GET DRIVE COlNT
DRVCNT .. OR I "IE
007260 011224 E£231: MeV
; CLEAR SIDE 81 T (DRIVE=DRIVE#) PRINT
Bl C
000002 01'224
112"DRIVE
;G£T DRIVE COlNT
DRVCNT.SIOE
MeV
007260 011226
;SHIFT IT RIGHT TO SHOW SIDE BIT
ASR
SIDE
0'1226
#177776 .. 5IDE
; CLEAR ANY JLM 81 TS
177776 011226
BIC
PRTDRV
;CAlL PRINTDRIVf IDENT
CAll
011154
DRveNT
; INCREMeNT DRJ "IE C~TeR
E0231 : INC
007260
DRVPTR
; SHlF T lEFT DRIVE POINTER
ASl
007262
N4 DRVCNT
;00 L.NTllORIVE e~T
000004 007260 UC231: CMf'
;EOUAL5 4
Be 31
BNE
; INCR·· ,lENT <sue> TO NEXT SYSTEM
sue
E8231: INC
000610
;DOLNTJl<sue>
#2.SUC
000002 000610 UA231: CMf>
;EOUAlS 2
8A231
BNE
;
RETURN
RETURN
x231 =
,.
...
...
......
......
.,------~
.......... .....
....... ...........- ..
•
;O~IVE COL.NTER
ORveNT: 0
;DRIVEPOINTER
ORVPTR: 0

-- ----

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

C 5

CIRXEAO Rx02 FMTR PROG MACV11 30(046) 20-SEP-78 10:48 PAGE 68-18
ClR)(EA~P"
20-$Ep... 78 10:48
MO()ULE 2.3.2 - SYSTEM OROP

SEQ 0054

7729

.S8T11

7731

;8EGlNAOUTINE (MOD 2.3 .. 2 SYSTEM DROP)
;
SETuP" .PRINT M5G "SYSTEM··
;
SETuP & PFUNT SYSTEPW
;
IF SUC = 0
;
:.
THEN
;
DESELECT SYSTEMO
;
ELSE
;.
DESELECT SYSTEMl
;
ENDIF
;
SETUP & PR1NT MSG .~ DRIVES AVAIL - DROPPED"

7730
7732

7733

7'134 '

7735

7T3t;

7737,
7738'
7739
7740
7741
7742
7743
7744
7745 007264 012704
7746 007270 004737
7747 007274 013703
7748 007300 004737
7749 007304 005737
7750 007310 001004
7751 007312 042777
7752 007320 000403
7753 007322, 042777
7754 007330 012'704
7755 007334 004737
7756 007340 000207
7757

MODULE 2.3.2 - SYSTEM DROP

; ENDROUr INE
•.-~~-~--~~-~---~~~~~~--~~~-----~---~~~--~~~-~~~---~~~~_I_~~

SYSDRP: MOV
016425
CALL
013232
MOV
000610
CALL
013346
IA232: TST
000610
BNE
BlC
000001 171164
BR
000002 171154 LA232: SIC
016475
EA232: MeV
CALL
013232
x232: RETURN

IIMSG51 .. R4

;SfTUP MSG "SYSTEM:"

sue ,R.3
OCTP
sue

;5£1 SYSTE II
;PRINT IT!
; IF SYSTEM \..NOER CONTROL

rrOUT

LA232
EAc::'32

IIl~Q)SWR

IIt"Q)S~R

IIMSG53 .. R4

TTOUT.

• _ _ _ .... _ _ IIIIIIIt . . _ _ . _ . . . . . . . _

~~-.~~~~~~~

;PRINT 1r!

;IS ZERO" THEN
;DESELECT SYSTEM ZERO
;8A TO ENDIF •A'
;ELSE DESELECT SYSTEM ONE
; SETUP MSC ~t>ROPPeD FROM FORMATTER"
,;PRINT JT!
;RETURN

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

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

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

o 5
!lClRXEA.Pil
ClRXEAO Rx02 f~HR PROG . MACY11 30(1046) 20"SEP-78 10:48 PAGE 68-19
MODULE 2.3.3- SYSTEM TIMEOUT CHfCK
?O.... SEP-78 10:48
1i

I 7759
t
I
f
.

. 58Tfl MODULE 2.3.3 - SYSTEM T1MEOUT CHECI<

7760
7761
7762

;

7761..

;

7?6'~}

T169

7770
7771

[8J

THEN
:

•

fNDlF

IF SYSTEM ERROR=SVS#1 TIMEOUT ERROR
THEN
SET <sue>=l
CALL SYSTeM IDENT
Sf TLP & PRINT TIMEour ERROR
:
(tEAR SVS#1 AVAILABLE WORD
ENDlF

;

771)
7716

;

7777
1T'8

SET <$UC>=O
CALL SYSTEM IDENT
SETUP & PRINT T1"'£ OUT ERROR
ClEAA SVS 110 AVAl LABlE IJORD

•

;
;
•

7772
7773
77'14

..:
• ENDIF
;ENDROUTINE

7779
7780

·
..

OO?<,«~?

oe102'0
0·,,) l"f.7

007350

0014<46
(\3:>777
J. i.. •)

oor9.4

IA233:
000010 000606 18233:

O()O606

1802

.,. »

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

"'t_,_ _ _ ..... _

. . . _ _ <_ _ . . . . . . . . . . . . . . . .

SYTM(K = NQP

7785 OOT5S~
7786 OOT56O 001417
7787 007~
" c." OOS037 000610
7788 007366 004737 0111 32
7789 007372 012704 014272
(1)
007~76 004737 013232
7790 007402 0127()4 015702
';1)
007406 004737 013232
7791 007412 005037 000612
71'92 007416 000423
7793 007420 O:S2737 000020 000606
7794 007426 001417
7795 007430 012737 000001 000610
7796 0074'36 0047,37 011132
7797 007442 012704 014272
en 007446 004737 013232
77'98 0074'12 012704 015702
(1) 007456 004 737 013232
7799 007462 005037 000614
7800 007466 005057 000606
7801 007472 0<>0207

If SYSTEM fRROR=SYS#Q TIME our ERROR

•
•
;

7766

[AJ

THEN-

•

'1767
7768

77f:t.1
?7f!.2
778};
17..V-.

; BEG INROUTlNE
(MOD 2.3.~~ - SYSTEM TIMEOUT CHECK)
IF SYSTEM ERROR NOT::O
,

?76~

SEa 0055

BIT

#10#SYSf~R

CLR

sue

BEQ

~EQUALS

#MSG10,R4
TrOUT

#MSG41,R4
TrOUT

;CLEAA SYS#O AVIALABLE

SOAV
fA233

BIT

h20"SYSERR

MaV

Ill,

;BR TOfND 'A'
; U SYSTEM ERROR
;EQUAlS SVSM1 TIME OUT ERR , THE.N

EA2)3

SEQ

CALL

sue

;5E1 <sue> :: 1
;CALL PRINT SYSTEM IDENT
:SET M5G-> "INTERRUPT DID NOT OCCUR"
;PRINT MSG
;SET MSG .... > .... T1Mf OuT ERROR"
;PRINT MSG
;CLfAR SYSN' AVIALABtE

PRTSYS
-'SG10"R4

MOV

TrOUT

CAll
MaV
CAll
CL.R
CLR
RE TURN

""'$G41,R4
TrOUT

SlAV

;ClEAR SYSTEM ERROR

SYSERR

;RETURN

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

•

_1
Mm. rt '

SYSMO TIME OUT ERR

: Sf r <sue> :: 0
;C~Ll PRINT SYSTEM IDENT
; SE\T MSG-> tflNTERRuPTDID NOT OCCUR"
;P,'UNT MSG
;SfT MSG-> "-TIME OUT ERROR"
~PRINr I'iISG

PRTSY$

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

;NOT :;: O. THEN
; F SYSTEM ERROR

1(233

MaV
CALL
CLR

..:.U SYSTEM ERROR

fA2.33

(,All.

EA233:

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

sYSfRR

1ST

SEQ

CALL
MOV

I C23.~:

....... _

[CJ

6~-26

, C1FlXEAO Rx02 F'UR PROG . MAC.V11 30< 1046) 20-SEP.. 78 10:48 PAGE
! CZRXEA.P11
20"'SEP-?8 10:48
MODULE 2.4 - WATCH DOG SYSTEM#O

SEQ 0056

. 58TTt MODULE Z. 4 ... WATCHDOG SYSTEMIIO
".~-------.~------~~---q~~--~~-.-~~-----~--~~~-~~~---~-~.~~~-~~--~-~--~-~
WAT INa
TST
~IF WATCH DOG INITO
~ 007474 00S737 007670
WATCHO:
1$
7807 007500 001406
;NOT ::: O. THEN
SEQ
cu·~
WAf INO
;.CLEAR WATCHDOG INIT itO fLAG
7808 007502 005037 007670
WCNTRO
;CLEAR WATCH DOG COUNTER 10
7~ 007506 005037 007566
ClR
7810 007512 005037 007570
~LTO
;CLcAR IJATCH DOG~lTlPLIER 110
ClR
1$:
7811 007516 005237 007566
WCNTRO
; INCREMENT WATCH DOG COLNTfR itO
l~C
7812 007522 023737 007566 007674
CMP
WCNTRO.wtNTMX ;1F COUNTER
781.:S 007530 103415
XIJATO
; .1 S ::: TO COLNTMAX
BlC
WCNTRO
7814 007532 005037 00/566
;CLEAR WATCH DOG COl'HER 110
ClR
7815 007536 005237 007570
~LiO
INC
;lNCRfMENT WATCH DOG MUlTIPIER '0
'1816 007542 023737 007570 000556
~LTO,SOWMlT
CI"P
; 1F MUl T1PL I ER
7817 007S50 103405
XWAiO
;15 ::: TO MULTIPLIER MAX
BlO
(LR
7818 007552 005037 007570
IrI1LiO
;CLEAR I-lATCH DOG MUL TIPlIER 110
7819 007556 052737 000010 000606
1I10 .. S¥SERR
; Sf r SYSTEM ERR = TIME OUT
BIS
XWA',·O: RETURN
7820 007S64 000207
;RETtJRN
7821
•~~.~.----~---~---~~~~~~~-----~~--~-~-----~~-~~~~~~--~-~--~~-~~-~~~--~~~-wCN"RO:
;WATCH DOG COUNTER 10
7822 007566 000000
0
~Ll iJ:
;WATCH DOG ~L TIPLIER 110
7823 007S70 000000
0
7824
•.~~-~~--~~--~----~-~~---~~--~--.-~~~--~--~~---~~~~--~-~~~-~~~.-~~-~---~~
7825
7826
7827
.sern MODULE 2.5 - WATCH DOG SYSTEMNl
7828
•.------.------.---~-----------------------------~--------------~-------WAT lNl
WATCH1:
TST
; IF WATCH DOG INl T1
7829 ')07572 005737 007672
1$
;NOT :: 1. THEN
SEQ
7830 007')76 001406
wAT lNl
;CLEAR WoI\TCH DOG INIi 111 FLAG
ClR
7831 007600 005037 007672
WCNTR;
(LR
; CLEAR I-lA TCH DOG COl.'HEP. 111
7832 007604 005037 007664
CLR
W'1L Tl
;ClEAR WATCH DOG MULTIPLIER '1
7833 007610 005037 007666
1$:
WCNTRl
; IN:CREMENT WATCH DOG CMTER 111
INC
7834 007614 005237 007664
;IF C~TER
7835 007620 023737 007664 007674
CfItfP
WCNTR1~WCNTMX
XIJATl
;IS ::: TO COUNT MAX
7836 007626 103415
BlO
WCNTR1
7837 007630 005037 007664
ClR
;CLEAA WATCH DOG COUNTER '1
-.Ml1'1
;INCREMfNT WATCH DOG MUlTIPIER 111
7838 007634 005237 007666
INC
78,39 007640 023737 007666 000560
CMP
; IF ~l TIPLIER
~L T1.S1WMl T
XWATl
7840 007646 103405
BlO
;lS = TO MULTIPLIER MAX
7841 007650 0050~7 007666
eLR
IrI1l11
;CLEAA WATCH DOG IItJLTIPLIER '1
7842 007654 052737 000020 000606
BIS
;5ET SYSTEM ERR = TIME OUT
'20,SYSERR
)(WA 11 : RETURN
7843 007662 000207
;RET~N
.... .. ...
........ ... ...... ................... ..... ... .... .. -_.'...... -_ ...
7844
•" .........
WCNTR1: 0
7845 007664 000000
;WATCH DOG COUNTER '1
7846 007666 000000
;WAiCH OOG MULTIPLIER "
T1 : 0
7847
.~-~-~~,~~~-.--~----~-~~----.--.~--~~~~-~~~-~-~~-~-~~~~~.~~~-~.~-~~~--•
WATlNO:
0
;WATCH DOG INITIALIZE fLAG 110
7848 007670 000000
WATJN1: 0
7849 007672 000000
;WATCH DOG INITIAlIZE FLAG "
WCNTM)(: -,
LIMlT
7850 007674 177777
............ ....... ;WATCH.. DOGS
.........MAX
_.....,...COl-NT
..--,.,.......
-.... .......... _....
,,,-_ ......... _... __ ....
7851
7852
7W-.

780S

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

""'l.

_---

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

- -~

_-_ ------_ _-_

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

CZRXEAQ RX02 FMTR PROG MACvl1 30(1046) 20-SEP-78 10:48 PAGE 68-21
CZRXEA.P11
20-SEP-7810:48
MODULE 3.0'" OUTPUT SYSTEM DONE

7854
7855
7856
78S7
7858
7859
7860
7a61
7862
7863
7864
7865

.S8TfL MODULE 3.0 - OUTPUi SYSTEM DONE
;8eGINROUTINE (MOD 3.0 - OUTPUT SYSTEM DONE)
; SETUP &. PRINT 't>O YOU WANT TO FORMAT MORE DISKETTES?"
; CALL GE T ANSWER
; IF ANSIJER:YES
[AJ
;
THEN
;
SETUP &PRINT '~EMOVE FORMATTED DISKETTS & INSERT DISKETTS TO BE fORMATTED"
;
SETUP &. PRINT "-->TYPE "CR" WHEN READY"
;
BGNDO
[BJ
;
: GET OPERATOR RESPONSE-CALL TTY INPUT
;
: DO UNTlL TTY CTR:"CR"
;
ENDDO
;
ELSE
;
SETuP & PRINT "FORMATTER DONE-RESTART MONITOR, uPDATE PROGRAM-->TYPE CTRL-( TO S
;
SET SYSTEM FLAG=IDLE
;:
ENABLE TTY INTERRUPTS &. SET TTY GO BIT
; ENDH
; ENDROUTJNE

7866

7867
7868
7&>9
7870
7871
7872
7873
78(4

•"-----------------------------------------------------------------------

7815

7876 007676
(1)
007676
(1)
007702
7877 007706
7878 007712
7879 007720
7880 007722
(1) 007726
7881 007732
(1) 007736
7882 007742
7883 007746
7884 007754
7885 007756
7886 007764
7887 007766
(1 ) 007766
(1)
007772
7888 007776
7889 010004
7890 010012
7891 010016
7892

SEQ 0057

012704
004737
004737
122737
001022
012704
004737
012704
004737
004737
122737
001372
012737
000414

0 1 6703

013232
012624
000131 000530

OTSYDN:

MOV
C.~ll

IA30;

016766
013232
017065
013232
8830:
013156
000015 .000526
000002 000574
LA30:

012704 017117
004737 013232
012737 000100 000574
052777 000100 170266
005277 170262
x30:
000207

CALL

CMP8

BNE

MOV
CALL
MOV
CALL
CALL
CMPB

BNE

TTOUT

GETANS
II'Y"ANSWER
lA30
HMSG57.R4
TTOUT
IIMSG58 .. R4
TTOUT
TTIN
#15. TIS

8830

MGV

112.SYSFLG
x30

MOV

IIMSG59,R4
TrOUT
#100 .. SYSFlG
#8IT6.iTKS
iTKS

C~Ll

MaV
BIS
INC

RErU~N

;SET MSG-> DO YOU WANT TO FORMAT MORE DISKETTES?
;PRINT MSG
;CALl GET OPERATOR ANSWER
; IF ANSWER
; I S YES. THEN
;SET MSG-> REMOVE FORMATTED DISKETTES & INS[RT DISKETTES
;PRINT MSG
;SET MSG-> TYPE "CR" WHEN READY
;PRINT MSG
; CALL TTY INPUT
;DO LNTlL
; CHAAAC TER=' 'CR' •
;SET SYSTEM FlAG:RESTART
;BR TO MODULE EXIT

IIMSG56~R4

;SET MSG-> FORMATTER DONE-RESTART MONITOR, UPDATE PROGRA
;PRINT MSG
;SET SYSTEM FLAG=IDLE
; SET TTY KEYBOARD INTERRUPT BIT
;SET TTY KEYBOARD GO aIT
;RETURN

•.~----~-~--.~~~---~---~----~- ---~-~--------------~--~-----~-~---~-----~

G 5

CIRXEAO Rx02 FMlR PR06 MA(vl1 30(1046) 20-SfP-78 10:48 PAGE 68-22
CZRxEA.P'1
20-SEP-78 10:48
MODULE U.PRIHI - SET PROCESSOR PRIORITY H1GH
.S8TH

78194
789'>
h396

•.-~-~~---------~-~-~---~-~-~--~--~--~------~---~-~----~-~----~----------

789 7 010020
'1898 010026
?89G 010032
7900

012?~7

OO1,757
OOQ?O?

000340
010050

0100 74 PRIHl:

RETURN

I
I

?90~

7908

0100~4

010042
010046

012737
004737
000207

000000
0100'50

010074

7920
7921
7922

7923
7924
79'25
7926
7927
7928
7929
7930
7931

;SETUP F-OR PROCESSOR PRl LEV::7
;5ET PROCESSOR FLAG
;RETURN

PRIlO:

MOV

CALL

RETURN

NPRO,NEWPRI
Sf TPRI

;SETUP FOR PROCESSOR PRl LfV::O
;S£T PROCESSOR PRl
;RETURN

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

.S8TTL

7911

7913
7914
791S
7916
7917
7918
7919

SETPRI

·
.S8TTL MODULE U.PRllO - SET PROCESSOR PRIORITY LOW
·"---------------------------------..-----------------------------------·

7909
79'0
7912

NPR7#NEWPRI

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

7901

7905
7906
79{)?

MOV
CALL

790?
7904

MODULE U.PRIHI - SET PROCESSOR PRIORiTY HIGH

010050
010054
010056
010062
010064
010072

005737 000520
001403
106437 010074
000403
013777 010074
000207

010074

000000

MODULE U.PROPRI - SET PROCESSOR PNI

•.-~----------------~-------~~-~~---~------------------~~-----~---------SE TPR I: T5 T
;IF PROCESSOR IS
LSIFLG

167704

BEQ
MTPS
BR

1$:

MOV

SETPIX: RTS

NE WPR 1
SETPIX
NEWPRl,GlPSW
PC

; L51, THEN

;SET PROCESSOR PRl

;8R TO END

;SET PROCESSOR PRl
;RETURN

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

NEWPRI: 0

;NEW PROCESSOR PRIORI TY

"-----------------------------------------------------------------------

•

.S8TTL

MODULE U.SADR

- SET SYSTEM 8US ADDRESS

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

010076 004737 ('10126
010102 016137 000314
010110 016137 000314
010116 062737 000002
010124 000207

SSUCOF
;CAlL SET <SUC> OFFSET
SSUCAD: CALL
REGSO(Rl),RXCSAD;SET NEW SYSTEM ADDRESS
MOV
REGSO(R1),RXDBAD;SET NEW SYSTEM 08 ADDR
MOV
ADD
#2,RXDBAD
;8UMP ADDRESS
;RETURN
RETURN
•.-------------~-----~--~~-~--~------------~~---------- -----------------

7932

7933
7934
7935
7936 010126
7937 010132
7938 010134
7939

000472
000474
000474

.S8TTL

MODULE U.SUCO

- SET SYSTEM UNDER CONTROL OFFSET

•.-~~---~---~---~--------------~------------------------~----------------

013701
006301
000207

000610

SSUCOF: MOV
SUC,R1
ASl
R1
RETURN

;GET SYSTEM UNDER CONTROL
;DOUBlE IT! FOR WORD OFFSET ADDRESSING
;RETURN

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

H 5
CZRXEAO Rx02 FMTR PROG MAev11 30(1046) 20"'SEP ... 78 10:48 PAGE 68-23
CZRXEA.P11
20-SEP-78 10:48
MODULE U.DL - DELAY FOR "TRIO OR "DONE"
• S8TTl

7941
7942

7943 010136
7944 010142
7945 010146
7946 010154
7947 010156
7948 010160
7949 010162
7950 010170
7951 010174
7952 010176
7953 010200
7954 010206
7955 010214
7956 010220
7957
7958 010222
7959 010224
7960 010226
7961 010230
7962
7963
7964
7965
7966

MODULE U.DL - DELAY fOR "TR" OR 'DONE"

.~~---~---~-~-~~--~~~~.*~-

•
DELAY:
MOV
010222
BOAUDL: MaV
010224
010226 000054 soaUDL: BIT

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

;SET READY DELAY MULT
;SET READY DELAY
: IF READY
: EOUAL TO "1" .. THE N BR TOE xIT
BNE
;ELSE DECREMENT DELAY
DEC
;00
If\JTll R3=0
BNE
117, TOO
;SET uP BELL
MOV
000007 000524
;PRINT BELL
JSR
PC. TOG
013700
;DECREMENT DELAY MULT.
R4
DEC
;00 If\JTIL R4=0
BDAUOL
BNE
1140000,SYSERR ;SET TIME OUT ERR
815
040000 000606
; SET r. O. WORD
RDYWD, TOEReT
MaY
010226 010402
PC,TOPRT
;GO PRINT TIMEOUT ERRORS
JSR
010232
;RETURN TO CALLING MOO
PC
XUOL:
RTS
· -,.,- .............. _.. -_ .........--_ .. --_ .. __ .. _-. ... -.... -- ...-.-- ............... - ...........--- ...... -.. __ ...... _-----------RYOX:
15
;READY r-tJl TIPl J ER
000015
RVDLY: 100000
;READY DELAY
100000
RDY~:
0
;READY WORD ... TEST FOR DEVICE READY
000000
CSRADR: 0
;(&S REG OF UNIT- WAIT1NG FOR
000000
; ... _-.. _.,--.... --..... _.. END MODULE - . . ---.. - . . - ..... --..... ----------.. - .. --.. - ......... -----. . ---

013704
013703
033717
001021
005303
001372
012737
004737
005304
001361
052737
013737
004737
000207

.S8TTL

010232

SEa 0059

032777

020000

170244

RYDX.R4
RYDLY"R3
RDYWD,iCSRADR
XUOL
R3
BOBUDL

TIME OUT ERROR PRINT

.-~~---------~~~--~-~--~-~-~-~~------------~---------~-------~-~-------TOPRT: 8IT
~1T13#Q)SWR
;1F INHIBIT ERROR RESULTS

CIRxEAO Rx02 FMTR PROG MAC y 11 30(1 C46) 20-SEP-78 10:48 PAGE 6~
CZRXFA.Pl1
TIME OUT ERROR pr~ INT
20-SEP-78 10:48
7968

0' Gi.'40

7969 010242
7970 010246
7911 010254
7972 010256
7973 010262
7974 010266
797S
7976
79T7
79]8

79'79
7980
7981
7982
7983
7984
7985
7986
7987
7988

7989
7990

7991
7992
7993
7994
7995

7996

0010S7
004737

010300
010.304
010310
010316
010320
010324
010330
010334
010340
010344
010350
010354
010360
010364
010370
010374
010400

032737
001(01)
012704
004737
000404
012704
004737
012704
004737
032777
001430
012704
004737
017703
004737
012704
0047.37
017703
004737
012704
004737
013703
004737
000207

010402

000000

010270
010(='74

011042
000040

010402

BNE

TOPRTX
PC, TSH0CI(
.trDfII3lT , TOE R8 T
2$

M0v

ItMSG30,R4

2$:

MOV

3$:

MOV

HMSG31,R4
PC.TTOUT
.tfMSG41,R4
Pc. TrOUT

1$;

015031
013232
015055
013232
015702
0132.32
040000
01,3742
013232
170136
013334
014564
013232
170120
013334
014564
013232
000542
013346

JSR
BIT
BEO

JSR
BR

JSR

170166

JSR

BIT
BEQ
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
MOV
JSR
TOPRTX: RTS

PC.TTour
)$

IfSW14,~SWR

TOPRT>:
IIMSGi,R4
PC,TTOUT
Q'lRXCSAD,R3
P('OCTPE
HMSG2',R4
PC,TTOUT
QlRXD8AD.R3
PC.OCTPE
#MSG21,R4
PC,TTOUT
CMD,R3
P('OC TP
PC

SEQ 0060
; I S NOT SE L

THEN

TEST HEADER (HECK
; 1F READY WORD WAS SET TO
; TE ST DONE 8lT, THEN
;SET DONE NOT SET MSG
;PK1NT MSG
;GO PRINTMSG
;SET TR BIT NOT SET MSG
;PRINT MSG
;SET TIME our MSG
;PRINTMSG
;1F EXTENDED ERROR REPORTS
; Sf T, THEN
;SET REG MSG
;PRINT MSG
;SET TO PRINT RXCS
;PRINT
;SET SPACES MSG
;PRINT
;SET TO PRINT RXES
;PRINT
;SfT SPACES
;PRINT
; 5ETC DI'ft1AND
;PRINT COf'\'1AND
;RETURN
; C~LL

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

rO[R8 r:
•

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

CZRXEAQ RXO? f:MTR PROG MA~V 11 30(1046) 20-SEP-78 10:48
CZRXEA.Pl1
20-SEP-78 10:48
RXCS ERROR CHECK

I
1(,:

8000

01 O'~OL.

017701

8002 010410 043701

023701
001471
0"0422 010137
?006 010426 01 '3737
8007 0"-0434 012737
BOOB 010442 0127"57
8009 010450 012737
80~O
0101.56 032777
80i 1 0101.64 001044
8.012 010466 004737
801.3 010472 01270/.
8014 010476 004737
8015 010502 032777
8016 010510 O()1430
80i7 010512 012704
8018 010516 004737
8019 010522 01,3703
8020 010526 0047,37
8021 010532 012704
8022 010536 004737
8023 010542 013703
8024 010546 004737
8025 010552 012704
8026 010556 004737
&127 010562 017703
8028 010566 004737
&129 010572 004737
8030 010576 012700
8031 010602 000405
8032 010604 005000
8033 010606 053700
8034 010612 005037
8035 010616 050037
8036 010622 000207
filXi3

(1.004
8005

8037

S[O 0061

.58TTL RXCS ERROR CHECK
•-~-~-~-~----~~~~------ .. --~~-~--~~-------------~-----~-~------~---------

7998
7999

8001

PAGE 69-1

0' 01.. 14

Oi()i.20

CSRCHK: MOV

170~)62

000544
000546
011540
OOOS46
0~lS44

000004
000014

O~~OOOO

011042
014722
013232
040000
014411
013232
000546
013134
014564
013232
011540
013334
014564
013232
167704
013334
011314
177777

CSRMSK.Rl

BEQ

CMF'

011 536
011542
011534
011532
170020

1$:

MOV
MOV

MOV

,MOV

1f12. 481 Tl 1M
4$

,-.,0 V

JSR

MOV
JSR

MaV
JSR
MaV
JSR
MOV
JSR
MOV
JSR
MOV

3$:
4$:

JSR
JSR

MOV

SR
5$:

000606
000606
000554

(LR
BIS
CLR

CSRCKX: 81S
RTS

Rl,8ADWRD
CSRCMP.CMPWRD
IfCMSG T8, TABADR
1f4,81TOFF

MOV

BIT
BEQ

167774

CSR(~.Rl

BIT
BNE
CALL

2$:

WRX CS,AD, Rl

BIC

IfSW1_,>. Q)SIJR

TSHDCI(
IfMSG26,R4
PC. nOUT
HSW14,Q)SWR
3$

JtMSG 1.3 ~ R4

PC,TTOUT
CSRCMP,R3
PC,OCTPE
JtMSG21,R4
PC,TTOUT
BADWRD,R3
PC,OCTPE
JtMSG21 .. R4
PC, nOUT
Q)RXCSAD.R3
PC,OCTPE
PC.CK81TS

#-1,RO

CSRCKX
RO
SYSERR,RO
SYSERR
RO,;STERR
PC

;GET Rxes
;MASK OFF BITS DON·T CARE ABOUT
:IF RXCS CONTAINS
;ERkORS. THEN
;SET BAD WORD
;SET C(YtlPARE wORD
;SET MSG TABLE ADDRESS
;SET # BITS TO OFFSET WORD
;SET H BITS TO CHECK
;Ic INHIBIT ERROR REPORTS
;NOT SE T, THEN
;CALl TEST HEADER CHECI(
;S£T Rxes MSG HEADER
;PRINT MSG
;IF EXTENDED ERROR REPORTS
; SET, THEN

;SEJ REG FORMT MSG
;PRINT MSG
;SET GOOD Rxes
;PRINT GOOD RXCS
;SET SPACES MSG
;PRINT SPACES
;SET COMPARED RXCS
;PRINT COMPARED RXCS
;$£T SPACES MSG
;PRINT MSG
: SET FULL Rxes
; PRINT FULL RXCS
;REPORT BAD BITS
; SET ERR
;8R TO END
;ClEAR ERRORS
;SET ANY SYSTEM ERRORS
;CLEAR SYS ERROR
;SET TEST ERROR FLAG. IF ERRORS
;RETURN

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

. CZR~EAO RXO,? FMTR PROG MACY11 30(1046)
,Clff<EA.P1,

20-SEP-78 10:48

,>-It) 39

• S8TTl
•
C10624

80'.. 3 0106.50
&>44
804')
8046
8047
8C~8

et'J49

Oi06·Y-t
01()640
0106'.. 2
010646
010654
010662

8OS0 Ol0666
80S 1

&2152
8053

1'!lJ54

8}JS5

B056

80S 7

BOSS
8G59

8060
8061
81)62

01067'4

()1?701
043101
0;>3'701
001470

010744

eM?

O()0552

004737
012704
004737

011042
014736
013232
040000

0.32777
00'430

1$:

013232

004737

ClR

BIT

BNE

2$:
167556

013334
014564

806S

8067

010774

0041.'37

004737
8066 010770 012704

013232
011540
013334
014564
013232
167470
013334
011314
177777

8068 011000 017703
8069 011004 004 737
8070 0'1010 004737
8071 011014 012700
8072 011020 000405
8073 011022 005000
8074 011024 053700 000606
8075 011030 005037 000606
8076 011034 050037 000554
8077 011040 000207
8078

CALL
MOV
jSR
BIT
SEQ

MOV
JSR
MOV
JSR
MOV
)SR
MOV
JSR
MOV
JSR

013703 000552
012704

BEQ
MOV
MOV
MOV

MOV

014411

012704
004737

004 737
013703

8064

81 C

011540
000552 011536
011574 011542
011534
000014 011532
020000 167602

010702 001044
010704
010710
010714
010720
O#i ()726
010730
010734
010740

ESRCHK: MOV

167644
0005S0

Oi 0137
013737
012737
005037
012737
03?777

1)'10750
01 ()754
010760
010764

8063

RXE S ERROR CHF CK

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

B040
8C141
81Y~2

K 5
20-SEP-78 10:48 PAGE 69 ... 2
RXES ERROR (HECI<

MOV

3$:

4$:

5$:

JSR

MOV
8R

CLR
SIS
CLR

ESRCK)(: BIS
RTS

;GET RXFS
;MASK O:F BITS DON'T CARE ABOUT
;IF RXES CONTAINS
5$
;ERHORS, THEN
R1,BADWRD
;SET BAD WORD
;SET COMPARE WORD
f SRCMP" CMPWRD
.ttEMSG Ta, TABADR ;5ET MSG TABLE ADR
81 TOF F
; SET 81 T OFF SET
;5ET It BITS TO CHECK
#12. ~BITL 1M
;IF INHIBIT ERROR REPORTS
#51.11_" iswR
4$
;NOT SET, THEN
TSHDCK
;C.~LL TEST HEADER CHECK
;SET RXE5 MSG HEADER
IIMSG27'.R4
PC,TTOUT
;PRINT MSG
ItSW14,iSWR
;IF EXTENDED ERROR REPORTS
3$
; SET .. THEN
IIMSG13,R4
;S£T REG FORMAT MSG
pc, nOUT
;PR1NT MSG
ESRCl"f',R3
;5ET GOOD RXES
PC,OCTPE
;PRINT GOOD RXES
#'MSG21,R4
;5£T SPACES MSG
pc, TTOUT
;PRINT SPACES
BADWRD,R3
;5ET C<WARED RXES
PC.OCTPE
;PRINT COMPARED RXCS
NMSG21,R4
;S£T SPACES MSG
PC,TTOUT
;PRINT MSG
iRXDBAD,R3
;S£T FULL RXCS
;PRINT FULL RXCS
PCOCTPE
Pc, CKBI TS
;REPORT BAD BITS
#-1,RO
;SET ERR
ESRCKX
;BR TO END
RO
;CLEAR ERRORS
;SET ANY SYSTEM ERRORS
SYSERR"RO
SYSERR
;CLEAA SYSTEM ERRORS
RO,TSTERR
;SET TEST ERROR FLAG. IF ERRORS
PC
;RETURN
OlRXD8AD,R1
LSRMSK.R1
fSRCMP.Rl

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

SEQ 0062

CZRXEAO R)(02 FMTR PROG MACY11 30<1046} 20-SEP-7810:48 PAGE 69-3
CZRXEA.Pl1
20-SEP-78 10:48
TEST HEADER CHECK &PRINT

ROBO

.S8TTL

8081

8082

8083
8084
8085

8086

8087
8088

8089
8090

8091

8092

8093

8094

8095

8096

8097
8098

TEST HEADER CHECK & PRINT

•.~~~-~-~-~~~---~~--~~-.~-~~~-~.-~----~----~~~~~---.------~~------~--~-~--

011042
011046
011050
011054
0'1060
011064
011070
011074
011'02
011'04
011112
011114
01"20
011124
011130

005737
001030
005237
013704
004737
004737
004737
032761
001404
012737
000402
005037
005037
004737
000207

TSHDCK: TST
BNE
INC
000602
MOV
000600
JSR
013232
CAll
010126
CALL
011' 32
BIT
000020 000622
BEQ
MOV
000001 011224
BR
1$:
(LR
011224
2$:
(LR
011230
011154
CALL
ENDTSH: RTS
000602

;IF HEADER FLAG
HDRFLG
;NOT SET, THEN
ENDTSH
; SET TEST HEADER FLAG
HDRFLG
;5E1 TEST MSG II
TMSGAD,R4
pc, TTOUT
;PRlNT TEST MSG
;CAlL SET <sue> OFFSET
SSUCOF
;CAlL PRINT SYSTEM IDENTIFICATION
PRTSYS
IIDRV1 • SOCMD (R1) ;IF DRl VE 111
1$
;SELECTED# THEN
;SET DRIVE=1I1
Ifl.DRlVE
2$
;BR TO 2$
;SET DRIVE=IfO
DRIVE
PTSIDF
;eLEAR PRINT SIDE FLAG
PRTDRV
;CAll PRINT DRIVE
;RETURN
PC

'.----------------------------------------------------------------------

•

SEa 0063

M 5

CZRXEAO RX02 FMTR PROG MACYll 30(1046} 20 ... SEP-18 10:48 PAGE 69 ... 4
CZRXEA.P11
20-SEP-78 10:48
MODULE U.PRTSYS - PRINT SYSTEM IDENTlF ICATlON
8100
8101
8102

011132
<1 ) 011132
(1)
011136
8103 0\1142
8104 011146
8105 01'152
8106

016425
013232
000610
013346

· S8TTL MODULE U.PRTDRV - PRINT DRIVE IDENTIF 1CATlON

8109
8110

•*----~~~---~~~~----~----~~~-~-~~---~-------~~--------~-~---------------~

011154
I 8111
(1) 011154 012704 014547

8112
8113
8114

8i~5

8116
(1)

8117
8118
8119
8120

011160
011164
011170
01' 174
011200
0"202
011206
011212
011216
011222

004737
013703
004737
005737
001410
012704
004737
013703
004737
000207

014556
013232
011226
013346

8130
(1)

8131

8132

8133
(1 )

8'34

5135

8136
8137

CALL
MOV
CALL
XUPTDV: RETURN

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

•

011232
011232 012704
011236 004737
011242 012704
01'246 0047.37
011252 016 i03
011256 004737
011262 012704
011266 004 7.37
011272 016103
011276 004737
011302 000207

011304 000000
8139 011306 000000
8140 011310 000000
8141 011312 000000
8142
8138

CALL
TST
BEQ

;5fY MSG-> ''DRIVE: ..
;PR1NT MSG
;GET DRIVE II
;PRINT IT!
;IF SlOE FLAG
;5ET, THEN
;SfT MSG-> "SIDE:
;PR1NT .MSG
;GET SIDE II
;PRINT IT!
;RETURN

•.-~-~~~~---~~~~------~-~~~--~~~-~-- --~---~~-~-~~--~~~-~~~~--~~-~~---~-.saTTL MODULE U.PRTKSC - PRINT T~A.C/( 8. SECTOR ERROR IDENT

8127
(1)

MOV

IfMSG17.R4
TTOUT
DRIVE.R3
OCTP
PTSIDF
XUPTDV
IfMSG20.R4
TTOUT
SIDE.R3
OCTP

•

8126

(1)

MOV
CALL

"--------------------.-------------------------------------------------DRIVE:
0
;DRIVE " TO PRINT
~ SH>E II TO PRINT
SIDE:
0
; S1[>E PRINT CONTROL FLAG
PTSIDF: 0

8125

8129

PRTDRV:

013232
011224
013346
011230

8121 011224 000000
8122 0'1226 000000
8123 011230 000000
8124
81;~8

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

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

8108

---~-- ~

8107

(1)

· SBTTl MODULE U.PFHSYS- PRINT SYSHM IDENTIFICATION
·-----.-.---... --- ....... ..
....... --_ ......... -- ... _--- .......... - ........... -.... ..,.. -........
PRTSYS:
;SET MSG-> "SYSTEM:"
#MSG51~R4
MaV
TTOUT
;PR1NT MSG
CALL
;5E1 SYSTEMN FOR PRINT
MOV
SUC.R3
OCTP
;PRINT IT!
CAll
;REiURN
RETURN

012704
004737
013703
004737
000207

SEQ 0064

014570
013232
014506
013232
011304
013346
014526
013232
011310
013346

PRTKSC:
MOV

CALL
MeV
CALL
MeV
CALL
MOV
CALL
MaV
CAll
RETURN

IIMSG22,R4
TrOUT
IIMSG15,R4
TTOUT
SOTRK(R1} .. R3
OCTP
IIMSG16,R4
TTOUT

SOSEC(R1),R3
OCTP

;SET MSG-> "CRC ERROR-"
;PR1NT MSG
; SET MSG-> · iRACK="'
;PRINT MSG
;GET TRACK II
;PRINT IT!
;SE1 MSG-> "SECTOR:::"
;PRINT MSG
;GET SECTOR II
;PRINT IT!
; RETURN

.----~------------------------------------------------SOTRK:
0
;SYS#O TRACK
S1TRK: 0
;SY5111 TRACK
;SYSIIO SECTOR
SOSEC: 0
SlSEC: 0
;SYSlfl SECTOR
•

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

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

N 5

CIRXEA.ORXO;' FM'R PROGMACY11 30(1046) 20... SEP.... 78 10:48 PAGE 69-5
CZRXEA.P11
20-SEP-7810:48
CHECK 8JTS SET & NOT SET

.S8TTL CHECK BITS SET & Nor seT
•'" --~-----'.----'-'-""-""''''-''-,''''.''''-'''''''''---'''''-'--''-------'''-''-''''

R144

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

8'145

8146
g1/1 1

0113'11..

8148
8149

011320
)11 :)26

8150
8'51

;;<15')
,~J
j

81S3
81 S.l.

81SC.
8 1 56
RiS?

'~i158

8159
8160
8'61

8 1 62

816.~

8164

816S
8166

011 "t..'>.?

o 1 :S36

011524
012222 011530
013700 011536

00503?

012757

01~701

011570
..... """,
----"")

\)1.5f<.

011 ~76
0111..00
0"1·/1..04
O~1410

f,168

011 /.. 16

8169
8170
8171
8172

011422

0114cl 6
011430
cn14:~

011436
011442

011446
011452

8182

011476

BIS

BAOWAD;RO

011534

1ST

RO
SHOfF

:SET BITS

()EC

81 TOf f

000241

011534

COM

(Q\'!

BEQ
1$:

CLC

006000

006001

005737

001'567

011534

O()503? 011526
032701 000001
0014(>0
012704 015210
013252
1..1\,...1 .<
01:Z;704 011.526
006304
063704 011542
011404
004737 013232
013,04 011530
004737 013232
OOS2)7 011526

?S:
:3$:

011.502

011520

011522

8;191

011526

tn90 Ql1S24

R192
8193
8194

8195
8196
8'197'
8198

01 '1530
011532

0115,34

011536
011540
011 st.;?

000731

000207'

l LR
BIT

HI TeNT
1I1.Rl

MOY

#MSG35.R4
PC. TrOUT

MOY
AS!.

4$:

ADD
MOV
JSR
MOy
JSR

; IF BIT OF FSf T
;fOUAL 5 O. THEN

; CLEAR BIT

BITCNT"R4

:SET UP "-" MSG
;P'<lNT MSG
; Gf r 81 r CQU'.lT

R'TABADR,R4
.

;DClBLE FOR WORD ADDRESSING
;ADD fABLE ADDRESS

;SeT MSG TO PRJN!
;PRINT MSG
;5£T SfT BITS MSG
;PRINT MSG

(R4) ,R4
PC TrOUT

8 iTMSG .. R4
P{ ~ TrOUT

R1
81 TlIM .. SHCNT
3$
BrreNT

INC

MOV

MOV
8R

RTS

(~TfR

.
·

ROR
eMF'

C~ C

BNE

SS:

·
··
•

;CLEAR CARRY

B.ITCNT

Tsr

011524

··

;CLfAR CARRY

INC

BHI
ClR

011504

RlBl
8'188
8189

BITOF F

)SR

().Aj·'~·7

0057~7

Tsr

BEO

;RO :: BITS THAT SHOULD BE SfT
; I F BIT OFF Sf T
; NOT ~o; THEN

BNE

; C(WJLlMENT COMPARE WORD

ROR

(LC
ROR

000241

001007
005237 011524
B185 011510 012757 012200 011530
8186 011516 010001

818.3

81&4

; Gf T BAD WORD

053700 011540

0237'37 011532 011526
8180 011470 101345
8181 011472 005037 011526
0'11462

;SET.

;Rl :: 81TS THAT SHOUtDN-r BE SET

011456 000241
011460 ()()6001

811'9

NSf TMSG"BI TMSG
CMPWRO,RO

RO .. Rl

005100
OOS7?-?
001411
005B?

011~

;CLEAR BIT PASS COUNT
SET BITS MSG ADR
:GET C<MJARE W()AO

81 TPAS

MOWRI)"R1

0'113S0

011354
0• ''1i " ,)7:1::)'JI..
,.... ., ",!'l. L ")
v' " ..~C
011564

MOY
MOY

Mev
8IC

011 ~')40

011 ?14?
0' '3'.6

CKens: ClR

011540

040001
00S100

8161 0 1 1412

8173
8174
8175
,'3776
8177
en 78

SEQ 0065

: INCREMENT 81 Til COUNTER
; CLfAA CARRY 8J T
; S.HIF r NE.X TarT FOR Tf ST

; IJ' Al L BIrs S?E CIF If D
; DONE , THEN
;RE Sf TBI T COtJN T

81 TPAS

RO"Rl

•
;SET
81TPASS TO GErOUT NEXT PASS
;SFT NOT SET BITS MSG At>R
;GEf NOT seT 81TS F~ TEST

;REnJRN

BITPAS

NNSMSG,8ITMSG

;00 NOT SET ens

000000

000000
000000
000000
000000
000000
000000
000000

.. ..-..

• ~-

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

, 'TF

;

11'

I sI

!i*,"'.

••

~ CZRXEAO RX02FMTR PROG
~ CZRXEA.PT1

MACY11 30<10!.6)

20-SEP-78 10:48

8 6

20-SEP... 78 10:48 PAGE 69-6
CHECK BITS SET &~OT SET

"~
~

822-00
8 01

8202
8203

"
~

820')
8206

Ii
i

I
"

g2Ci~

0'1S44
Oi 15/~6
0115')0

011S')2

011554
011556
8207 011560
8208 0'11562
8209

~~~~
8212
8213

011564
011566

011634

• WORD

011641
011662
011665
011675
011704
011713
():1750

• WORD
• WORD
• WORD
· IJORD

0' 1758

• WORD

• WORD
. WORD

011570 0'4202
01 1 572 011770

011777
01200.3
8216 0"600 012014
8217 011602 012026
8218 011604 012035
8219 011606 012051
(Q20 0116 1 0 012066
8221 011612 012103
8222 0'11614 012115
822_~
0"!1616 012-:25
8224 (/1'1620 012'1.34
8225 O·~ 1622 012156
8226
8227 011624 051104
8228 011634 047504
111
8229 0*11641
8230 011662 051124
104
8231 011665
123
8232 011675
8233 O~! 1704 044502
104
8234 0'1713
8235 011750 054105
8236 011770 051105
8237
103
8238 011777
123
8239 012003
8240 012.014 0471 i1
8241 .012026 041501
104
8242 .012035
104
8243 012051
8244 .012066 042504
104
8245 012103
104
8246 012115
123
8247 .012125
82t8 .012134 047527
8249 012156 047516
8250
8251 .012200 041040
8252 012222 .041040
8253
8254
8255
8214
8215

•.------------------------------.--------~-------------------------"-----CMSGl t
CMSGTB: • WORD

011624

• WORD
.IJORf>

cr~SGS

CMSG6

CMSG7
CMSGB
CMSG9
CMSG10
CMSG11
CMSG12
(I-"SG12
MSG7
C""5G15

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

0"115740'1:576

EMSGTB: • wDR)

• WORD
• WDiiD
• WORD
.1,.,1()RD
.!.JOR£)

• WORD
• WORD
• WORD

• WORD

053111

020105

052116
043
047105
042111
020124
052517
042524

0511.05

042516

0475~~2

041S??

04211

043

044523
020105
030061
046102
042116
020122
043

:20105

.-----~~------~~---------------~-~---~-~--~-~--------------~--'--------~
·CMSG4:
.ASC.!] IDRl VE 1111

CMSG5:
CMSG6:
CMSG7:
(M5G8:

.ASCl.l

CMSG9:

.ASC11

042526

02.0105
042122 041440
.020116 054105

042111

052111
052111

047055
051455

.ASC11

.ASCll

.ASC11

CMSG10: .ASC11

IDONEItI
11NTERRUPT ENABlEIII
ITRAI

IDENSI TYIII
IS1DE 1111

181T 1011/

IDOUBLE DENSITY FLOPPY SYSTEMIII
CN!SG12: .Ase 11 IEXTENDED MEMORYIII
CMSGl 5: .AS C11 IERROR III
· ------.'- .... -,-----------... -------_ .... _,.,,--_ ..-- .. - ..... -----------,-------- .... _--- .... _.. --E~$G.o: .ASCll ICRCNI
EMSG1: .ASCIl ISIDE RDYIII
EMSG2: .ASCIl IINIT DONENI
EMSG3: .ASCJl lAC LOWIII
EMSG4: .ASClI IDENSI TV ERRIII
CMSG11 : .ASCII

052111 042040
046040 053517
047105 044523
051511 020113 EMSG5:
042514 042524 EMSG6:
044522 042526 E1'1SG7:

044522

ErYlSGO
E,IIIlSGl
EM5G2
ENj5G3
E.NlSG4
fl"'1SG5
EMSG6
EMSG7
EMSG8
EMSG9
EMSG10
EMSG 11

EMSG8:
E1'15G9:
E1'15G10:
EMSGll:

.ASCIl

.ASCll

.ASCII
.ASCII

.ASCll
.ASClI
.ASC 11

IDlSK DENSITVltl
IDELETED DATAII/
IDRIVE RDVNI

IDRIVE 1#1
ISIDE 1111

IWORD CNT OVERFLOWII/
INCN EX I STENT MEM.III

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

NSMSG: .ASClI I BIT-NOT SET ERR 11/
SETMSG: .ASCII I BIT-SET ERR N/
.EVEN
•.-~-----~----~-------~-----~~--~~-~-~-~~-----~--------------------~-----

SEQ 0066

C 6
IICZR~EA.P"
Clf..'tEAO Rx02 FMTR PROG MAcvl1 30<1046> 20-SEP-78 10:48 PAGE 69-7
ERROR SET SL8RourINE
20-SEP-?810:48

SEQ 0067

I,.. ~,258
FQSI'
· SBTTL ERR~ SE T StJ3ROUT:NE
,----------_..-------_.. _---...----------------------------------.------t ;yS9
iV(SP),$FATAL
;MOVE ERRN TO $FATAL MAILBOX
012240 017637 000000 000402 ERRSET: MOV
It 8260
#l,SMSGTY
;SET MAIL 80X FLAG
8261 (122'46 012757 000001 000400
MOV
~

i
i

"2'6~')

r::i

8.26"S

0' 22S4
O'i!?60

062716

000207

#2, (SP)
;ADJUST STACK RETURN ADDRESS
ADD
PC
;RflURN
ERSETX: RTS
... ...... ....... ........ -- ....-...--.- ...........'-,.. ,-- ..... ........ .. ......... ...... .................. ............. .......... --•..
.58TTL BUS INl T1All ZE SUBROUT INE

000002

E<..264
E".265

~-----

I 8266
8267

8268
8269 012262
82'70
;~,211

8272

8273
8274

S275

"\,,! 2')"0
V
1 (. I

012('72

l'
1 ') ". e76
...' " C c

012304

012306

O-i2?"O
1
t

012314
8277 012316
82'18 012324
8219 012326
0")'-'6
(.X f

8280
8281
8282
8283

O'2:~32

0123:36

8292

8293

829ft

01240?

.. --- - ---

- --

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

•

03('777
001407
004737
032777
O()1401
000005
005737

041000

0)2777
001405

001000

004737
()()()407

013232

001026
012704

005777
100012
012704
8284
004737
8285
011603
8286
062703
8287
011303
8288
8289 012366 004137
8290 012372 012737
8291 012400 000207

012340
012344
012346
01235)
012356
012360
012364

000000

166214 BSINIT: 8IT
BEQ

01'042
010000 166200

C~LL

BlT
BEQ
1$:

166160

2$:

014752

015223
013232
000014
013346
000001

TSHDCK
HSW12,CilSWR
1$

RESET

012402

166140

lilt 1000, aSWR

3$:

TST

LPPRT

81 T

HSWC9,iSWR

BNE

BEQ
MOV
CALL

TST

8Pl

MOV

4$:

CALL
MeV
ADD

MOV

CALL
012402 5$:
MOV
B51NT)(: RTS

:~$

HMSG28,R4
TTOUT

4$
iilSWR

#MSG37,R4
TfOUT
(SP),R3

1114,R3

(R3) .. R3

OCTP

111, LPPFH

; iF LOOP
;15 SET. THEN

;PRINT TEST HEADER
;IF SUS INITIALIZE
; 8 I T Sf T. THEN
; INI TlAll ZE BUS
;IF LOOP MESSAGE
;NOT PRINTED~ THEN
;IF LOOP ON
; ERROR, THEN
;5£T LOOP ON ERROR MSG
;PRINT MSG
•

;IF HALf ON ERROR
;15 SET. THEN
;5ET HALT ON.ERROR MSG
;PFUNT MSG
;GfT REtURN ADR
;ADJ. ADDRESS FOR ERR NO.
;GET ERR NO.
;PRINT ERR II
;5ET LOOP MSG PRINTED FLAG
;RETURN

•.--------------------~-------------------------~------.----------------
; LOOP FLAG
LPPRT:
0

•.---------------~-------------------------------------------------------

C1RXEAO Rx02 FMTR PROG

,CZRXEA.P'1

MACVll 30(1046>

20-SEP... 78 10:48

SEa 0068

.S8TTL Rx02 INTERRUPT HANDLER '0

8?96

8297
8298
8299 012404 005237
8300 012410 000002
8301

o 6

20-SEP-78 10:48 PAGE 69-8
RX02 INTERRUPT HANDLER '0

000616

•.----.~--~~~~~~-~~-~~~ .. ~~-~--~---~~~~~-~~-~-~~--~~-~---~----~-~~-~-~~-~SORDY
; INCREMENT SYS 110 READY
RXINTO: INC

;RETURN TO CALLER

RTl

8302

•.~~~~---~--~--~------~-~---~--~-~~~--~-~~~---~~-~--~-~--~-~----~-~~~~-~~
.S8TTL RX02 INTERRUPT HANDLER 111

8305

•.------.-~~-~~-~-~~~---~-~.~---~~~~~~--~--~----~-~--.-~~~--~~--~~-~--~~~
SlRDY
;INCREMENT SYS 111 READY
RXINT1: INC

8303
8304

8306

8307
8308
8309
8310
831'
8312
8313
8314
8315
8316
(1)

8317
8318
8319
8320
8321
8322
8323

012412 005237 000620
012416 000002

RT!
• S8TTL TTY INTERRUPT HANDLER

;RETURN TO CALLER

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

•.~-~--~----~~~~.-~-~~-~~-~.~-~~~--~~~~----~-~~-~-~-~~~~-~-~~~~-~~~---~~~~

TTlNT: CALL
012420 004737 013156
012424 113737 000526 000632
Move
0121..32 022737 000003 000632
CMP
012440 001007
BNE
012442 012704 014715
MOV
012446 004737 013232
CALL
(LR
012452 005000
JMP
012454 000137 001000
81S
012460 052777 000100 165612 1s:
INC
012466 005277 165606
RTI
0]2472 000002

TTIN

Tl8, TTITFG
113. TTl TFG
1$

NMSG25.R4
TTOUT
RO
STAAT
IIBIT6.iTKS
irKS

;CALl TTY INPUT ROUTINE
; SAVE TTY INPUT CHARACTER
;IF TTY INTERRUPT
;WAS CTRL C, THEN
; SE T MSG-> ItAC"
;PRINT
MSG
.
•
;JUMP
TO START OVER
;SET TTY INTERRURT 8lT
;SET TTY GO 8lT

•.-------.-.---.-~-------.-----------------------------------------------

e 6

'CIRXEAO Rx02 FMTR PROG MACY11 30(1046) 20-SEP-78 10:48 PAGE 69-9
CZRXEA.Pl1
20-SEP-78 10:48
BUS ADDRESS TRAP HANDLER

00')237
032717
001020
005737
001006
005237
013704
004737
012704
004737
010103
004 737
004737
000055
005777
100001
000000
000002

000570
020000 165776
000602
000600
013232
014701
013232
013346
012570

012570
012576
012600
012606
8355 012614
8356 012616
8357 012622
8358

-- --.........'-.-........

------,-

TST
BNE

TRAP1.

INC
MOV
JSR

MeV
JSR

MaV

TRAP2:

JSR
JSR
• WORt)

TSl

TRAPJ(:

aPL
HAL T

BTRPFl
'20000,iSWR
TAAP2
HDRFlG
TRAP 1
HDRFlG
TMSGAD,R4
PC"TTOUT
NMSG24,R4
PC TTOUT
R1,R3
PC"OCTP

PC.APTER
55

-~---

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

:5ET BUS TRAP FLAG
;SEE IF SHOULD PRINT ERRORS
;IF NOT~ 8R
;5EE IF DCWE HEADER

; IF SO .. ~~

;ELSE SET HEADER FLAG

;PRINT HEADER

;PRINT ERROR
;PRINT ADDRESS OF TRAP
;8US TRAP ERROR

iSWR

; S.EE IF HAL T ON ERROR
; IF NOT ~ 8R

TRAPJ(

RTI

;RETURN FRefIt INTERRUPT

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

.seTTl

APT ERROR HANOLER

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

•

132737
001407
017637
012737
000777
062716
000207

000001

000420 APTER:

000000 000402
000001 000400
1$:
000002
2$:

BlTB

BEQ

MOV

MaY

ADD
RTS

IIAPTENV"SENV
?S
i ( SP) , SF Ar AL

#1 ,,$MSGTY
1$

#2. CSP)
PC

; IF IN
;APT MODE. THEN
;MOVE EAA • TO $FATAl ~IL80X
;SET MAll BOX FLAG
; AP TE RRM LOOP

•

;RETlJW

".-.-------_...------.--------------.-.--------------------------------.58Tfl MODULE U.OPRAN5 - seTup & GET OPERATOR ANSWERS
..... ..
... .......
.... ..-.- .......... -.. ------......... --_ ................ _... _...
•·.......
•

8359

---- --

8360

8361
8362
8363 012624
8364 012632
8365 012640
8366 0126/.4
8367
8368 012646
8369 012650
8370

INC

BIT
8N:E

165722

8348

8351
8352
8353
8354

TRAP:

000602

8347

8349
8350

..-..--- -

-- -

.S8TTL BUS ADDRESS TRAP HANDLER
..... ... ---~ ..
.......... .., ... ...
,· ... ........... --

R32S

8326
8327
8328 012474
8329 012500
8330 012506
8331 012510
8332 012514
8333 012516
8334 012522
8335 0'12526
8336 012532
8337 012536
8338 0125 /.. 2
8339 012544
8340 012550
8341 012554
8342 012556
8343 012562
8344 012564
8345 012566
8346

seQ 0069

--~~,.,--

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

~--

#'N,ANSOEF
012737 000116 012646 GETANS: MaV
II'Y,ANSCHG
012737 000131 012650
MaY
TTAA
004737 013036
CALL
000207
RE TURN

;SET OEFAULT ANSWER-''NO''
;S£T CHANGE ANSWER·"YES"
;GET ANSWER-CALL fTY ANSWER
;RFTURN

000000
000000

;CHANGE ANSWER SUFFER

._---------------------ANSDEF:
0
ANSCHG: 0

..__.._-------_._------------------_.----------;DEFAULT ANSWER SUFFER

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

F 6

CZRXEAO Rx02 fMTR PROG MAcv11 30 (1046> 20"SEP-78 10:48 PAGE 69-10
CZRXEA.P11
MODULE U.OPRANS - SETUP &GET OPERATOR ANSWERS
20-SEP-78 10:48
8372

8373
83"74
8375
8376

.58TTL

8318

8379

8380
8381
8382
838-~

8390

8391
8392
8393
8394
8395

8396

8397

8398
8399

8400
8401
8402
8403
8404
8405
8406
8407
8408
8409
8410
8411
841;>
8413
8414
8415
8416

8417
8418

012652
012656
012660
012664
012672
012674
012700
012702
012706
012711.,
0127'6
012722
012730
012732
012736
012742
01271.,4
012746
012750
012752
012754
012756
012764
012770
012772
012774
012776
013000
013004
013006
013010
013014
013016

005037
005000
004737
122737
001005
005737
00141.,6
000137
122737
101402
000137
122737
101(>02

000562

005237
00021.,1
006100
00021.,1
006100
00021.,1
006100
042737
053700
005301
001332
020002
101402
000137
020300
101402
000137
010015
000207

3020
860562

000137

013156
000015 000526
012774
000060 000526
013020
000070 000526

177770 000526
000526

013J20
013020

•.------.~~---~--~--~--~-------~-~~---~~----~-~-------~-~--~-~~~~-~-~~~--

8419

• S8TTL

BJ.21

8422
8423 01:'020 012704 014202
BJ.24 013024 004737 013i32
8425 013030 162r6 0000(0
8427

;THIS SI.J3ROUTlNE IS USED BY THE TEST CONDITION ENTRY ROUTINE TO READ
;THf RESPONSE ENTERED AT THE TTY AND CHECI< THEM FOR LEGALITY AND LIMITS.
;ALL RESPONSE MUST BE TYPED IN OCTAL (0 - 7> AND MUST FALL WITHIN THE
;LIMITS SET BY THE CALLING ROUTINE. IF AN ENTRY IS ILLEGAL OR OUTSIDE
;THE LIMITS, A QUESTION MARl< (?> IS TYPED AND THE RESPONSE MAY BE RE;ENTERED. ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND MAY BE TERMIN;ATED AT lESS THAN SlX BY TYPING A CARRIAGE RETURN.
TEMP1
;ClEAR FIRST CHARACTER FLAG
TTR:
CLR
CLR
RO
;GO READ CHARACTER
TTRO:
JSR
PC, TTlN
Cft\P8
;SEE IF CR
"15.T18
TTRl
; If NOT 8R
BNE
;SEE IF FIRST CHARACTER
TST
TEMP1
fTR5
; IF SO; BR
BEQ
TTR2
;ELSE .. GO LOAD VALUE
JI"'P
TfAl:
; S.EE IF CHAR I S lESS THAN 0
#60, TIS
CMOB
TTR1A
; IF NOT., 8R
BLOS
j~
T1NEA
;EtSE# GO TO ERROR
TTR1A: CI'fJ8
;SEE IF CHAR IS GREATER THAN?
1170# T18
TTR1B
BHl
; IF NOT" BR
TINER
;ELSE . GO TO ERROR
JfV'P
IE,.,1
;S(1 FIRST CHARACTER FLAG
TTR18: INC
CLC
ROl
RO
ClC
: SH 1FT 3 l EF1
RO
ROL
eLC
RO
ROt
;S1RIP ASCII
11177770 .. 118
81 C
;LOA.D
CHARACTER
TI8
.
RO
81S
Rl
; SEE IF DONE
DEC
TTRO
; IF NOT. BR
aNE
rTR2:
eMf'
: SEE IF EXC.EEDED MAX IMl.I1 LIMIT
RO . R2
TTR3
BlOS
; IF NOT" BR
TINER
;ELSE. GO TO ERROR
JI"'P
TTR3:
CMf>
; SEE IF BELOW MINIMLfIl l IM1 T
R3 . RO
TTR4
BLOS
; IF NOT" BR
JMP
TINER
;ELSE. GO TO ERROR
RO, (AS)
rrR4:
MOV
; LOAL> VALUE
TTRS:
RTS
;EXIT
PC
#

000562

8420

fY426

TTY ENTRY SUBROUTINE

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

8377

8384
8385
8386
8387
8388
8389

SEa 0070

013034

0OO2t17

TTY fNr~v ERROR SU8ROUT JNf

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

TlNfR:

MOV

JSR

SlI3

R1S

IfMSG7.R4
PC 6TTOUT
112 .(SP)
~_~_~
PC ~

• _ _ _ _ ~~_~ _ _ ~ _ _ _ _ _ _ _

____

;PRINT?
;RESET SP TO START OF VALUE ROUl 1NE
~
~ VALUE
~~~_~
~~
~~
~
;REDO
ENTRY

_____

___

___ • ___ w __

_____

___ ~

G 6
ClRXEAO Rx02 FMTR i-lROG MACv'1 30(1046) 20-SEP-78 10:48 PAGE 69-11
CZRXEA.Pl1
20-SE.P-78 10:48
TTy ENTRy ERROR SLBROUTINE
R428
84(9
8 L.30
8431

.S8TTL

;THIS SLBROUTINE IS USED BY THE TEST CONDITION ENTRY ROUTINE TO
.;READ THE RESP(wSE ENTERED AT THE TTY AND CHECK THEM FOR lEGAL1 TY.
;AlL RESP~SES flUST BE EQUAL TO RETURN THE DEFAULT ANSWER, (HANGED ANSWfR
;OR A CARRIAGE RETURN~ IF ENTRY IS ILLEGAL A OUESTION MARK IS TYPED AND
; THE RESP~SE MAY BE REENTERED.

8434
8435

8436
8437 013036
8439
8440
8441
8442
8443

8444
8445
8446
8447
8448
8449

8450
8451
8452

8453
8454
84S5

8456

8457

8458

013042
013044

013050
013056
013060
01 3064
013066
013074
013076
013104
013106
013114
013122
013124
013132
013134
013140
013144
013146
013154

TTAR:

105037 000530

005000

004737 013156
122737 000032
001003
005237 000576
0004 33
122737 000015
001004
113737 012646
000423
042737 000040
123737 012650
001411
123737 012646
001405
012704 014202
004737 013232
000734
113737 000526
000207

000526

000530

8468
8469

8470
8471

8472

84 73

8474

Ci-R

TTAR2:

TTlN
1132.T18

(MOe

XTTAA
1115.T18

BNE
INC
BR
8f.JE

BIC

CMPB

BEQ
CMP8
BEQ
MOV
(ALL

TTAR3:
XTTAR:

ANSWER
RO

CI"P8

MOV8

000526

MOVB
RETURN

TIAR1
STF LG
TTAR2

ANSDEF.ANSWfR
XTTAA
1140. TIB
ANSCHG.TIB
TTAR3

ANSDEF,TIB
TTAR3

IfMSG7,R4
TrOUT
TTAR

TIS,ANSWfR

;ClfAR ANSWER
;GO READ

; 1~ . tAL' •

.S8TTl

A CHARACTER

: THEN
;SET STARl PROGRAM
;8R TO END
; 1F "CR"
; THEN
;SE1 DEFAULT ANSWER
;8R TO END
;CLEAR LOWER CASE BIT
: 1F ANSWER NOT OK WI TH (HA.NGE ANS
;THEN
;IF ASNWfR NOT OK WITH DEfAULT ANS
; THEN
;SETUP MSG '"'? ..
;PR1NT MSG
;STAAT OVER
: SAve ANSWER
;RETURN

•.--~-~---~-~-~---~--~-~~~~-~.--~-----.-

8460
8461

8463
8464
8465
8466
8467

TTAR;:

000530
000526
000526

(LR8

CALL

000526

8459
8462

TTV ANSWER ENTr.y SUBROUTINE

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

M~.2
843~

8438

SEO 0071

~--~-~~~-~-.--~-~~~-~------>---~

TTY READ SU8~OUTINE

•.~----.---------------------------------.------------------------------

013156
013162
013166
013172
013176
013200
013206
013212
013214
013222
013230

005077
005037
005277
105777
100375
017737
105777
100375
113777
042737
000207

165116
000526
165106
165102

165076 000526
165072
000526
000200

165064
000526

TTIN:

ClR
ClR

TTIN1:

TST8

TTIN2:

INC

iiHKS
T1S
@TKS

@TKS

BPL
MOV
TST8
BPL

TTlNl
@TKB, T18
@TPS
TTIN2

BIC
RTS

'200,T18
PC

MOve

TI8~@TPB

;STRIP OFF TOP B1T OF BYTE

•.~--~-~~--~~--~-~~-~~--~---------~~~~~---~~--~~-~-~---------~~~--~--~---

H 6
CZRXEAQ Rx02 FMTR PROG MACY" 30( 1046) 20-SEP-78 10:48 PAGE 69-12
TTV ASCII OUTPUT SUBROUTINE
rZRxEA.P11
20-SEP-78 10:48

8A76
8477

· S8T TL

8480
8481
8482
8483
8484

8485
8486
8487

8488

8489
8490

8491
8492
8493

8494
8495
8496
8497

TTY ASCII OUTPUT SUBROUTINE

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

•

8478
8479

SfQ 0072

013232

013236
013244
013246
013254
01:5256
013262
013264
013272
013276
013302
013306
013312
013314
013316
013324
013330
013332

112437
122757
001432
122737
001403
OC4737
000763
112737
004737
012703
005037
004737
005303
001372
'12737
004737
000740
000207

000524
000043

000524

000045

000524

TTOUT:

CMP9

BEO

CMP8

BEO

013700
000015 000524
013700
000001
000524
013700

Move

JSR

TCRLf:

MOV8
JSR
MOV

TCRLFA: (LR
JSR
DEC

BNE

000012 000524
013700
HEX:

MOV8
JSR
BR
RTS

(R4)+.TOB
1143~ roe
TCEX

1145, roe
TCRlF
PC, TOG
TlOUT
1115,TOB
PC,rOG
1I',R3
TOO
pc. TOG
R3
TCRlfA
1112,T08
PLTOG
TTour
PC

;IF TOB::: "II"

;IF TOB= '1"
; Sf T TOO::; "CR"

;DO FlLlERS
; Sf T TOO::; 'tF
;RfTURN

·.-~---~~--~~~-~-------~---~----------------------------~---------~------

ClRXE';O Rx02 I=MTR PROG

CZR'~EA.P1'1

~CYll

20-SE P-?8 10: 48

30(1046)

8506

8507
8508

8509
8510

C', ~;;3·Y.
01 ?34?
013344
0"\ 3346

01 =';;352
01 =<;354
013356
013362

013366

8513

013372
013374
013400

8515
8516

0131..10
013412

8511
8512

85i4

8517

01 =)404

013416
013420
013422

8518
8S19
8520 01"51..24
8521 013426
8522 013430
8523

013432

8524 013436
8S25 013440
8S26 013442
8527 013444
8528

8S29
8530
8531
8532
8533
8534

8535

013450

013452
013454
013456
013460
013464

013466

013470
8536 013472
8537 013474
8538 013500
8539 013504

8540
8541
8542
8543
8544

OCTAL OUTPUT SUBROUTINE
----- ........---...--... ._ .... _- ..._.. _---_ ... -------- .. --- ... ------------_._--------•
.S8TTL

8499
8:300

8501
81)02
81)03
8504
8505

10:(t8 PAGE 69-13
OC TAL OUT PUT St..eROUTINE
20-SEP-78

013506
013512
013520
013524

012737
()
1I i)
~()"I
"
. ••
..,

000001

013570

0'00410

005037 013570
010304
001004
004737 013550
000137 013512
032704 100000
001406
012704 000001
004737 013526
000137 013416
005004
004737 013526
010304
006004
006004
006004
006004
000304
004737 013526
010304
006004
000304
004737 013526
010304
006104
006104
000304
004737 013526
010304
006004
006004
006004
004737 013526
005237 013570

010304
004737 013526
012737 000240 000524
004737 013700
000207

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

MOV
MOV
BR
OCTP:
CLR
OCTPE1: MOV

OCTPE:

8Nt

JSR

JMP

OCTPO:

OCTP1:

OCTP2:

BlY
BfQ
MOV

J$,c<
JMP

CLR
JSR
MOV
ROR

R3,R4

OCTPO
Pc'OCTPG1
OCTP3
1I100000,R4
OCTPl

1I1,R4

p('oe TPG
OCTP2
R4
PC.OCTPG
R3,R4

R4
R4
R4

SwAB

JSR
MOV
ROR

P(,OCTPG
R3,R4

SI,)M3

R4
R4

JSR
MOV
ROl
ROL

R3.R4

SwAB

JSR
MOV
ROR

o('OCTPG

R4
R4
R4
PC,OCTPG
R3,R4
R4

ROR
JSR

PI..

MOV
JSR

r-roV
JSR
RTS

:(L~AR FLAG FOR LEADING ZERO
;SEE IF NlH3ER IS ZERO
; IF NOT ZERO, BR
;ELSE PRINT ZERO
;SPACE AND EXIT

;SEE IF MSG:::1

;IF NOT, BR

;PRINT 1
;PRINT 0

;POSITION DIGIT
;PRINT DIGIT 2
;PRINT DIGlT 3

;PRINT DIGIT 4

ROR

lNC

OCTPX:

R3,R4
O(TPO
OFl

ROR

ROR
ROR

O(TP3:

#1 ~ OF l

P('OCTPG
OFL
R3,R4
PC,OCTPG

11240, TOB

PC, TOG
PC

;PRINT DIGIT 5
;5ET FLAG TO PRINT LSD
; PR 1N T DIG IT 6
;PRINT SPACE
;EXIT
;E.><1T

•.-----------~-------------~-----------~--------------- -----------------

CZRXE"O RX02 FMTR PROG

CZRXEA"P11

042704
001004
005737
001001
000207
005237
052704
010437
004737
010304
000207
000000

20-SEP-?8 10:48 PAGE 69-14
OCTAL OUTPUT SUI3ROUTlNE

177770

OCTPG:

20-SEP-78 10:48

8546
8547 013526
8548 013532
8549 013534
8550 013540
85S1 013542
8552 013544
8553 0~3550
8554 013554
8555 013560
8556 01.3564
8557 013566
8558
8559 013570
8560

MACY11 30(1046)

013570
013570
000260
000524
013700

._---------------------------------------------------------------------Ble
#177770,R4
BNE

TST

BNE
RTS
O(TPGO: INC
O(TPG1: 81S

MaV

JSR
MOV
OCTPGX: RTS

OCTPGO

OF L

OCTPGO
PC
OfL
#260,R4
R4, TOO
PC, TOG
R3,R4
PC

,.~----~~--~----~~---~~-----~---~-~-~-~~-~--~-~--------~------~--~------0
; FI RS T CHAR FLAG

OF L :

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

SEQ 0074

K 6

ClRXEAO RXO;? FMTR PROG M.ACvl1 30(1046) 20-SEP ... 78 10:48 PAGE 69-15
ClRxEA.pn
20-SEP-78 10:48
DATA CHARACTER OUTPUT SUBROUTINE
856;:>
8563

8564
8565

.S8TTL

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

(\1, ....~S72
.'
_

000524
000010
000524
164472

013703
000303
004737
013703
0047.37
000207

000566

8580

\ ..i

013576

8581 013654
8582 013660
858.3 013662
8584 013666
8585 013672
8.586 013676
8587
8588
8589
8590
8591 013700
8592 013706
8593 013710
8594 013714
8595 013716
8596 013724
8597 013730
8598 013732
8599 013736
8600 013740
8601

DATA CHARACTER OUTPUT SLBROUTINE

•

005057
012704
8568 013602 110337
856q 013606 105777
8570 01 =S61? 100375
8571 013614 132737
8')72 013622 001404
8l)73 013624 012777
(";74 013632 000403
8')75 013634 012777
8576 013642 006137
8577 013646 005304
8578 013650 001356
8579 013652 000207

8566
8567

SEQ 0075

DOUr:
DOuT1 :

(LR

MOV
MOV8
T5T8
8PL

000200

000524

000061

164454

000060
000524

164444

81 T8
SEQ

MOV
B;{

Dour2:
DOUT3:

MOV
ROL
DEC

BNE

RTS

rOB

#10,R4
f<3, TOO
@TPS
DOUT1
#200, TOO
DOU12
It061,Q)TPB
DOUT3

;SET Nl.JftY3ER TO PRIN""

~060,Q)TPB

TOO

R4
DOUT1
PC

•.-----------~-------------~---~----------------------- ------------------

DOUTD=

013572
000566
013572

MOV
SWAB
JSR

TEMP3,R3

R3
PC,Dour

MOV
JSR
RTS

TEMP3,R3
P('DOUT
PC

BNE
TST8
8Pl

Mova

TEX
@TPS
TOG
TOO,@TPB
T[>IIIAJ T
TEX
@TPS

RTS

·"----------------------------------------------------------------------.S8TTL TTY OUTPUT
.----------------------------~---------------------------------~-------IIAPTCSP,$ENVM
;SEE IF CONSOLE suprRESS MODE
132737 000040 000421 ·TOG:
81 T8

001014
105777 164370
100371
113777 000524
005737 000532
001403
105777 164346
100375
000207

164362
1$:

TEX:
•..

TST
BEQ
TST8
BPl

;JF SO. BR

;15 TTY WAIT FLAG SET
;THEN
;WAJ T FOR CHARTER
;TO BE PRINTED

_----------------------------------------------------------------------

CZRXEAO RX02 FMTR PROG MACvl1 30(1046) 20-SEP-78 10:48
CZRXEA.Pl1
20-SEP-78 10:48
MESSAGE T.ABlE

8606
8607
8608
8609
8610
8611
8612
8613
861'.
8615
8616
8617
8618
8619
8620
8621
8622
8623
8624
8625
8626

eh27

8628
8629
8630
8631
8632

8633
86~

8635

8636
8637
8638
8639

8640
8641
8642
·8643
8i:A4

864.5
8646
8647

8648

8649

8650
8651
8652
8653
8654
8655
8656
8657
8658

SEQ 0076

.SBTTl MESSAGE Tf.lBLE

8603

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

8604

8605

l 6
PAGE 69-16
...

013742
014002
014040
014072
014127
014164
014202
014206
014246
014272
014326
014367
014411
014452
014506
014526
014547
014556
014564
0145iO
014610
014701
014715
014722
014736
014752
014776
015031
015055
015077
015121
015140
015210
015217
015223
015244
015300
015404
0"15510
015615
015702
015723
015726
015752
016045
016125
016206
016271
016357
016422
016425
016436
016475

020045
051445
022445
020045
045
042445
037440
047045
022445
020045
052445
045
045
022445
020040
020040
104
044523
020040
020045
020045
045
045
020045
020045
020040
042445
045
045
045
040
026445
020045
045
040
042445
052045
047445
047445
045
052055
045
044045
004445
045
045
043045
045
045
004445
045
047045
040

020040
043117
055103
020040
020040
042116
021440
020117
047506
044440
044516
042101
020040
047506
051124
Qi.2523
044522
042504
021440
051'03
044124
052502
041536
054122
054122
046055
051122
042040
052040
020040
026440
051076
020040
037040
026440
052116
044510
020116
042520
046101
046511
021440
046105
047111
042523
042526
047514
051511
047516
011
054523
020117
037055

MSGl :
MSG2:
MSG3:
MSG4:
MSG5:
MSG6:
MSG7:
054523 MSG8:
046522 MSG9:
052116 MSG10:
020124 MSG11:
051104 MSG12:
054105 MSG13:
046522 MSG14:
041501 MSG15:
052103 MSG16:
042526 MSG1 7 :
021472 MSG20:
MSG21:
020103 MSG22:
051511 MSG23:
020123 MSG24:
021440 ;MSG25:
051503 MSG26:
051505 MSG2 7 :
047517 MSG28:
051117 MSG29:
047117 MSG30:
020122 MSG31 :
020040 MSG32:
020076 MSG33:
046505 MSG34:
020055 MSG35:
043 MSG36:
040510 MSG37:
051105 MSG38:
020123 MSG39:
047502 MSG40:
040522
020114
020105 MSG41:
MSG42:
037520 MSG43:
052111 MSG44:
020124 MSG45:
044522 MSG46:
050120 MSG47:
040440 MSG48:
051440 MSG49:
054122
053524
054122
020040
020040
047440

MSGSO:
052123 MSG51:
047504 MSG52:
051104 MSG53:

.ASCll
.ASCll
.ASCII
.ASC!!
.ASCII
.ASCll
.ASC1I
.ASCII
.ASCll
.ASCli
.ASCII
.ASCIr
.ASCII
.ASCII
.ASCII
.ASCII
.ASCIl
.ASCIr
.ASCll
.ASCII
.ASCII
.ASCII
.ASC~l

.ASCII
.ASCII
.ASCII
.. ASCII
.ASCII
.ASCII
.ASClI
.ASCI1
.ASCII
.ASCII
.. ASCI!
.. ASCII
.ASCII
.ASCII
.. ASCI!
.ASCII
.ASCll
.ASCII
.ASC!I
.ASCII
.ASCII
.ASCII
.ASCll
.ASCIl
.ASCll
.ASCl!
.ASCII
.ASCII
.ASC!I
.ASCI 1

.--

IX
RXCS
RXDB
CMD% III
I%SOFTWARE SWITCH REG (OCT) = III
I%XClRXEAO RX02 FMTR PROG%III
IX
RXCS ADDRESS (OCT) = III
IX
VECTOR (OCT) = III
IXEND OF PASS III
I ? III
IXNO SYSTEM AVAILABLE TO FORMAT III
IX%FORMAT COMPlETFD III
IX INTERRUPT DID NOT OCCUR III
IX~IT NOT RESP(wDING TO ADDRESS III
ltADDRESSING TEST III
IX EXPECT
RCVD
ACTUAL% III
IX%FORMAT DONE ON FOLLOWING III
I TRACK (OCT) =111
I SECTOR (OCT) =111
IDRIVE :111
151D£:1I1
I
III

IX CRC ERROR -> III
IX THIS SYSTEM NOT CAPABLE OF DOUBLE DENSITY OPERATIONS! III
I%8US TRAP: III
I%"C III
IX RXCS ERR III
IX RXES ERR III
I -LOOPING ON ERR: III
I%ERROR BIT SET AFTER INIT III
IX DONE BIT NOT SET III
IX TR BIT NOT SET III
1%
= III
I -> DROPPED III
I%->REMOVE XXDP MEDIA FROVI THIS SYSTEM! !III
1%
- III
1% >111

I -HALT ON ERR: III
I%ENTER CONDITIONS IN OCTAL III
I%THIS PROGRAM fORMATS DISKETTES TO SINGLE OR OOUBLE(DEFAUlT) DENSITYI
I%ON BOTH DRIVES OF A FLOPPY DISK SUBSYSTEM CAPABLE OF DOUBLE DENSITYI
I%OPERATIONS. A CRC VERIFY IS PERFORMED ON TRACKS: 0 & 76 (DEFAULT) ORI
ltALl TRACKS Of THE fORMATTED DISKETTE. IF SELECTED. XIII
I-T lME OUT ERROR III
1% 1/1
I%HELP? (Y OR N) N III
1%
INITIALIZE NOT DONE - RUN DIAGNOSTICS UNLESS OBVIOUS ERRIII
I%SfT DISKETTE TO SINGLE DENSITY?
(Y OR N) N III
IXVERlFY DISKETTE CRC (ALL TRACKS)? (Y OR N) N III
IXFLOPPY DISK SYSTEM: 0 ADDRESS CHANGE? (Y OR N) N III
1%15 ANOTHER FLOPPY DISK SYSTEM AVAILABLE? (Y OR N) N III
I%NO SYSTEM AVAILABLE TO fORMATTER III
IX
I
I%SYSTEM:1I1
IXND DONE BIT AFTER INITIALIZE #1
I ->DROPPED FROM FORMATTER%III

M 6
CZRXEAO RX02 FMTR PROG MACY'1 30(1046) 20-SEP-78 10:48 PAGE 69-17
SEQ 0077
MESSAGE T,ABU:
CZRXEA.P11
2o-SEP-78 10:48
AC LOW ERROR - IS FLOPPY DISK SYSTEM POWERED UP?NI
8659 016530 004445 041501 046040 MSGS4: .ASCII 1%
DRIVE NOT READY - IS DISKETTE IN DRIVE e DOOR CLOSED?III
8660 016613
045 042011 044522 MSG55: .ASCll 1%
8661 016703
045 047504 054440 MSG56: .ASCII I%DO YOU WANT TO FORMAT MORE DISKETTES? (Y OR N) N II
8662 016766 051045 046505 053117 MSG57: .ASCII I%REMOVE FORMATTED DISKETTES e INSERT DISKETTES TO BE fORMATTED#1
8663 017065
045 026455 020076 MSG58: .ASCII 1%--> TYPE f'CR" WHEN READYIII
8664 017117
045 047506 046522 MSG59: .ASCII IXFORMATTER DONE-RESTART MONITOR OR UPDATE PROGRAM-->TYPE CTRL C TO/
.ASCII I%START THIS PROGRAM AGAIN III
8665 017221
045 052123 051101
8666

•.~~~~~--~--~--~~----~~-~~--~-~~~-~.-~~-~~----~~~---~-----~-~-~~------~-~

8668

.S8TTL

8669

•.-----~~-----~~~~--~~-~--------~--~------~

e667

8670

8671

017254 022445
045
022445
&>74 017417
045
8675
017446
8676
8672 017311
8673 017'346
8677

8678

8681
8682
8683

8684
8685
8686

8687
8688
8689

042522
051476
042522
037055

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

MSGCD3: .ASCII IXX->READ SECTOR COMMAND ERR II
MSGCD4: •AS C11 IXX->SET DENSITY COMMAND ERR II
MSGCD5: .ASCII IXX->READ MAINTENANCE STATUS COMMAND ERR II
MSGlP: .ASCII IX%-->lOOP MODULE-ERR II
.EVEN
•.~~~-~~-~-~~--~~-~~-~~~-~~-~-~~~--~~~-~----~---~-~-~-~~------~---~~--~~

.SBTTL ERROR CODE STORAGE

8679

8680

037055
026445
037055
026445

TEST HEADERS

017446
017447
017450
017451
017452
017453
017454
017455

000
000
000
000
000
000
000
000

•.-~-~~~-~-----~~~~---~--~~-----~~~--~-~~~-~---~--~-~-~~--------~~~--~--
.8YTE
o
:ERR CODE - EXTENDED
o
.8YTE
•·
.8YTE
•
.8YTE
o
•
.BYTE o
•
.8YTE
o
•

XER:

.8YTE
.8YTE

o
o

·
•·
·
•

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

•

8690

8691

8692
8693

.S8TTL PATCH AREA

8694

•.---~~~--~-~-.~-~~-~~-.--~-----

8696 017456 000000

PATCH:

8695

017660
8698 017660 000000

0
.=.+200
LASTAD: 0

8700
8701

.END

8697

8699

000001

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

;lAST ADDRESS NOT TO ExceED 17776

rr'-'-,- - - - - - - - - - - - - - - - - - - -N -6 - - - - - - - - - - - - - - - - - - " ,
J

(lRXEAO Hx.02 FP.HR PROG MACY1130(1046) 20-SEP-78 10:48 PAGE 70
20-SEP-78 10~48
CROSS REFERENCE tABLE ... - USER Sy'f130lS

SEQ 0078

(l~XEA.Pl 1
N3A'~E

:::: 17717(,

ACDwl ::: OOCANO

!'.

',ACDW? ::: 0000')0
: AC,L flW :::: 000010
A.C Pi (.)p::: 00,000,v,O

ADD!""O ::: OO()('NQ
;\DDw1
000000
Ii ADDI.J: 0= 000000
~ ADDw'11::: 000000
I

AD. D1"J12= 000000

61 c) 111

" 2°'~I
O.

6128

S98BII

6128

6128
6128
6128
6128
6~28

6128
, 128
0
,

ADDW4 ::: 000000

6 1 28

ADDW2 ::: 000000
ADO""'3 ::: 000000

6 1 28

MDWS : 000000
ADDW6. I:: Qi)OQQO

6128
6'28

Aj)()W f

uOOOOO

6128

61/8

, AIlow8 :::. 000000

6128

AN ve r::: 000000
ADf \/J~ ::: OOO()OO
I\DHS
005104
Ill) r S T
002' 204
AD f STX 002:,44
ADl
002234
;\D2
002334
At. N\I ::: 000000
AENVM ::: 000000

6 1 28
6;28
7088*

ADD\J9 ::: 000000

AF A TAt::: OOC{)oO
N'-Af)R 1=: oo.,'YOOO

N"ADR i'= 000000

tVAADR 3,= 000000

I"VV'ADR4: 00000o

/lI"fN'tS 1= 00000o
,N"N'lS2= 000000

Ar"1AMS.3.= 00000
N'W"1S4::: :, )0)00
I

AMSGADz: )OOi)()O

~ ~S(il G=

)O()t)()(:

(\}'\f'lI ,/jr
f" tV",'}'... G~' TY;"','l./\/......,
f:,MTVP1= 000000
AMT YP2= 000000
A NIt)'

'Vi' \.of'

• AMT yp3= 000000
AM.T'fP':': 000000
ANSCHG 012650
ANSDE F 012646
At.JSIJE R 000530
AF'AS$ z 000000
APR lOR:=: 000000
APTCSP= OOQOJ..O
APTfNV:t 000001
APTER 012570
I ASIJREG,t; 000"01

ATrSfN= 000000

6684

612S

ADDW'l 3= Of'JOOOO
ADDW14: 000000
f ADD\aJ'l 5::: 000000

6128

6?11 *

61., S5/1

7096*
642.3*

6440/1

6452

6",46

645.311

6128
6128
6'28

7114*

7119*

7124*

7133*

7140#

7158*

6335

8451
6343

6352

{;'S63

7878

8437*

8446*

6243

8351

7104*

64 ~s#

6128
6128
6128

6128
6 i 28
6~28

6128
6128
6128
6128

6728

6128

S364*
8365*
614?1I
6128

6128

836911
8368#

6328

600011

8591

612511
6128

6128

S99911
8340

6197
8351"

8449
8446

8456*

i ClRXEAO Rx02 FMTR PRQG ~ACY11 30( 1046)
IClRXEA.Pl1

20-SEP~78

! AUN 1 T = OOOCk..'I(I

'0:48

6128

!A-VEer,:: 000264
I AVECT2:: 000000
IBAD'-iRC

011540

6128
612611
tl'1" >8
8005"

IBAf
ILL
· BAil

001770

F AUSIJR

;: OOOOJO

! BAEMPT

005120

005116

: BA231

007076

007742
002470
002622
003332
007126
010142

18830

18 (13

8C2O
'!8(22
· 8C231
'8DAUDL
BOBUDl
8EOO
1

010146
001 7 06

Broo

1102
7100
6395#
7696#
7882#
650311
6584#
6i7111
770211
794411
794511
62~)4

0015c16

623811

81 TOf F 011 534

8009*
8148'*'
8008*
8147·
5994

8ITCNT

91 TL 1M
e:TJY!SG

011526
011532
011530

181
TPAS 011524
• B1 TO= 000001
EHTOO = 000001

i 81 TOl :: 000002
81 T02 :: Ot,'V004

BIT03 :: 000010
81T04 :: 000020
81T05 :: 000040

81T06 :: 000100

BIT07 :: 000200
BIT08 :: 000400

81709 :: 001000

:: 0..'10002
srn 0 :: 002000
8IT11 :: 004000
BIT12 :: 010000
BIT1

81T13 :: 02C()OO

~ 81 T14

:: 040000
RT"1"15
100000
<:-l;
-81T2 =: 000004
811,3 :: 000010

81 T4

, BITS
:' :61T6
i'.' BIT7
81 T8

:: 000020
:: 000040
:: 000100
=: 000200

= 000400

I 81 T9 = 001000
ISPTVEC:: 000014
BSINIT 012262
!SSINTX 012400
BTRP

BTRPFL

BTRP2

000320
000570
000322

(KBlTS 011314

7
20"'SEP-78 10:48 PAGE 7~-1
(ROSS REFERENCE TABLE-'" USER SYf130LS

8164*

60'.2tt

6128
8023
714611
7145#
6425
7722
7884
6505
6612
6802
7719
7952
7948
6236#
6240
8169
8050*
8174
8049*
8182
604211

8046f1'

8064

8150

8153

8179
819311
819211
8157*
819011

8181*

8191#

8162

8194#

6453'*
6445

8328-

6~~66

8176*
8179
81858155
8184*

604211
604211
604211
604211
604211
604211
604211
604211

6042#

604211
6042r
604211
604211
6042#
6042#
6042#
604211
604211
5992
5993
604211
604211
6005
604211
604211
6452
829111
611811
6165#
611911
8029

6447

7966

604211
604211
6214

7889

604211

6231

7540

7544

826911

6215*
6192*
6216*
8070

62216421*
6222*
8147#

6437*
6414
6438*

8319

64~4'

8196#

SEa 0079

f·· ..

I ?RXL~O
II
i
C

Rx02 fMTR. PROG f!Il.!\C v1 1 30<10 .. 6)

C'-,.SYA,D

002422
000542

~CZR)(EA.Pl1

(1'\1)

20-SEP-7810:48

0037?2
011))6
ICMSGTB 011S4l.
CMSG10 0 11704
,Cr1) TBl

I (MPWRD

f CMSG11

0 1 1713
011750
0117;0

.CMSG12

il CMSG1S

I.~ (MSG4
CMSGS

0116~4

0116.34

\, CMSG6

011641
011662

ICMSG7

"CMSG8

011665

ICMSG9 011675
CR
== 000015
I CRCAll== 00(.1200
'CRCERR== 000001
CRlF = 000200
000S:34
CSR
CSRADR 010230
CSR(Ht( 010404
CSRC/(X 010616
CSRCI'P 000546
CSRMSK 000544
DBGflG 000516

,)8l DE N= 0004 00

002762
OC20
DDISP :: 177570
010.136
DELAY

DEI\fU T= 000400

:::ENfRR== 000020

COO 506

DENS

. DI'BI T == 000040
, DOOT
01:5572

01.3654

DCUID
OWl 1

013606

013634
013642
011224

DCUT2

DCtJT3
DR I Vf.

= 000400

DR 1liE 1
DROPAV

006264

DRVAVl

006040.

OROPDV 0060.36

DRVCNT 007260
DRVDEN: 000040
DRVDRP 005530
DRVPTR 007262
004402
DRVR

DRVRDY== 00020.0

DRVl == 00.0.0.20
DSWR == 177570
DVSCDN 00.4.366
00.4372
DVSfC

6358--

6154#
7066
6851

8006*
8007
8207
8208
8209
8212

~i368~

6774
7077
6878

8047'~

820111

C 7
20-SEP-78 10:48 PAGE 70-2
CROSS REFERENCE TABLE -- USER SYMSOLS

6495#
6780
7535*
689911
8149

6784
7536

6794
7991

SEQ 0080

8234 It

7228*
7510*
6190"

7505*
8002
6370

604211
6670"*'
598511

7155
6357

794311
6339

7517

623.3*
6668
8583

62.35*
6672
8585

6887
7086

7227

7505

7970

8570
8575#
857611
7353*

8578
7,356--

7363-

7371 -

7374-

7440*

7450*

7451 7349*

7455
7364*

7462
7367-

746711
7375

7379

7383#

7710
7519
7255*
7703
706411
7436
6780

7712

7716*

7718

772511

72727717*

733511
772611

7446
7338

7434

7514

8090

6973*
6977*

6981
6994*

6995"
6997*

7001 *
6998

70.32#
6999

7002*

7007*

12.:2'"
8(' .51
f 15611

661111

5992#
614011
598.311

856611
858111
856911
8572
8574
7345*
8121#
599111

7432*
7.3.35 >\'
7242*
7697-599311
7239*
7696*
6810'"
5987#
5996#
604211
6972*
6976*

8094-

8112

7018·

7019

703411

8019

796111
7537-

666~'"

8092*

8006

7945
7262*

615511
6088*
600.511

7153-7248-805511
7227-7229*
614411
6233

604, )1/
615 If

7711*

8003

823.3#

6979

599'111

7710*

7509-

819511

6347

600'/1

70S5

6862

6345
7268

820t

604; /I

6887-

6861-

8235#

8202
820.3
.3204
8205

6879

6805

8210
8236#
8227#
822811
822911
82.3011
823.111
823211

8201

6878)(

6803

7516
744 i *
7346*

743211

8001#
75067529

0 7
CIRXEAO Rx02 fMTR flROG MACV 11 30( 1046) 20~SEP-78 10:48 PAGE 70-3
CZRXEA.P11
CROSS REFERENCE T.4BLE -- USER SY~OlS
20-SEP-78 10:48
7010
70126993DVTKDN 004362
6970* 6971~ 6983
6985*
7008
.DVTRI( 004376
6989
6990* 6991
6974* 6975~
6986·
6194
6230#
EAOO
001256
6213
EA10
6332#
001520
6329
6507#
6497
E·A13
6499
002510
6678
6696#
EA21
003246
6692
6887#
6872
6884
EAZ21
OC3746
6881
6866
7071
707311
EA223 004l~50
7274#
7267
7257
7259
7241
7243
7253
005522
EA225
775411
7752
EA232 007330
7784
7794
7800#
7792
. EA233 007466
634011
6338
E810
001562
642111
6400
E811
002136
6(;1411
·E820
002774
6583
7518
752011
E82253 006374
7720#
7700
007242
E8231
6205#
6203
ECOO
001076
634811
E(10
6346
001624
699511
6988
E(222 004202
7654
7647
7656.
7645
7624
7638
7640
E(23
007056
622111
6218
001212
EDOO
635711
6.355
E010
001662
6690#
003210
6688
ED21
6994#
6992
004174
ED222
770/~
. ED231
771611
007222
6883/1
6875
003726
EE221
7005
7008#
7003
EE222 004274
7710lt
7708
007162
EE231
6609.
6600
6598
6607
EF20
002752
6244
624611
001350
EGOO
7015
701811
EG222 004342
7271#
7269
005504
EG225
712111
7106
EH2231 005000
7464#
7456
EH2252 006260
6264#
001444
6262
EIOO
7103#
7101
EK2231 004646
8214#
8048
·EMSGT8 011574
8214
8238#
EMSGO 011777
823911
8215
012003
EMSG1
824811
8224
EMSG10 012134
824911
8225
EMSG11 012156
8216
824011
EMSG2 012014
8217
824111
EMSG3 012026
8218
824211
EMSG4 012035
824311
8219
EMSG5 012051
824411
8220
EMSG6 012066
824511
8221
EMSG7 012103
824611
8222
EMSGB 012115
824711
8223
EMSG9 012125
604211
EMTVE C:: 000030
6810#
6808
003550
EM22
6183# 6237
ENDFT8 000634
809711
8084
EM)TSH 011130
6266#
ENDOO 001452
713511
7121
7126
7130
END223 005100
599511 6679
ERRBI f= 100000

SEQ OOBl

7017·
7036#

7030#

E 7
CIRXEAO Rx02 FMTR PROG MACY 11 30(1046) 20-SEP-78 10:48 PAGE 70-4
CROSSREFERENCf TABLE -- USER SY~OLS
CZRXEA.P'1
20-SEP-78 10:48
ERRCHK 005164
ERRfLG 005526
ERRSE T 012240
ERRTYP 000604
ERRVEC: 000004
ERSE1X 012260
ERSTAT 005106
ESR
000536
ESRCHK 010624
. ESRCI(X 011034
ESRCMP 000552
ESRMSK 000550
GETANS 012624
Gf TC'" 003564
G1Cr1)
003556
GTSWR
002346
. GTSYAO 001766
HDRflG 000602
: 000011
lAOO
001020
1
lA10
001500
IA13
002424
lA2D
002550
JA2l
003060
003324
lA22
003624
lA221
IA222 004104
IA223 004424
005210
IA225
lA225' 005544
IA2252 006050
IA2253 006340
006572
IA23
IA232 007304
1A233 007344
007712
IA30
001034
1800
001534
IS10
002012
1811
002434
1813
002600
IB20
003120
1821
003642
18221
18222 004114
182231 004552
18225 005300
182251 005554
182252 006060
182253 006356
006620
1823
007114
18231
18233 007352
001044
1eoo
001576
1(10
003150
1e21
1(221
003654

6767 ...
1220 ...
6452

7219#
7233*
6677

7129-..
6152#
7234*
8072

7141.

617111
604211
826311

6158#
615711

6321*
6773*
6764*
63726357·
617011

6042#

619311
6.328#
64961t
657311
667211
676911
686311
697911
706811
7224ft
733811
743411
751411
760811
7749/1
778311
7878n
619711
633511
639911
649811
6574
6673

686811
698111
709011
723611
734011
743611
7515
7609
769911
778511
619911
634311
668411
687111

7250*
807611
7230*
7231*
6334*
6855#
6771
6462#
63677219*

7517#
7611

72517271

7252
7540

72637544

7519--

8044

8047

8060

6362*

7877·

8363#

6788-

6790-

6798-

6800-

8083

8085-

8331

8333-

7235*

6690

7236
7238

7249·
7254

7264*

7541 *

804211

7513*
7520·
6342*

7516*
8043
6351.

6772*
6394#
7533*

6578#
667911

761411

SEQ 0082

6801

7265*
8260#

6813#

7266

7277#

F 7

ClRXEAO Rx02 FMTR PROG MACY11 30(1046) 20-SfP-78 10:48 PAGE 70-5
CROSS REFE~ENCE TA9LE .... USER SYti30LS
CIRXEA.Pl1
20-SEP ... 78 10:48
lC222
IC2231
1(225
1C2251
:C2252
1C23
1(233
1000
1010
1020
ID21
:D22
ID221
10222
1D2231
10225
102251
102252
1D23
10231
IE 10
lE20
IE21
lE22

IE2.?1
. IE22.?

IE2231
lE225
lE2251
lE2.?52
IE23
lE231

Ino

IF20
IF 21
IF22
IF2.?2
It 225
H2251

1F2252

lF23
;GOO
1G20
1(,22
1G222
1G225
1(,2251
1G2252

1G23

IHOO
I H20
1H22

IH2231
IH2251
1112252
:H23

004122
004670
005334
005564
006070

0066 SO

007420

001170

001644
002624
003170
003350
003716
004162
004700
005374
005632
006114
006674
007130
001714
002646
003216
003374
003664
004224
005032
005462
005672
006134
005704
007140
001752
002676
003254
003404
004250
005422
005702
006144
006712
001334
002722
003414
004304
005470
005746
006166
006722
001406
002634
003424
004562
006000
006204
007020

6983#
7091
l?25
73;211
743811
7615
7786
621711
635211
6579
6685
6774#
688011
699111
710911
725211
735011
7437
7621
7703#
636311
659011
6680
6780#
687411
699911

7108
7266#
7339
7435
762711
770511
6364
6586
669711
678211
7000
7245
7360#
744811
762911
624311
660211
678411

6980
726811
736811
7447

763~#

625311
658711
678611
709211
7343
7443
7626

SEQ 0083

710711
724411

7617
779311

762011

6581
668711

658511

7439
762511

744211

6691#
712711
735811
744611
637011
6588

6595

6597#

700411
725811

701011
7449

745211

7348
7445
764811

7355
7453

7.357
7455#

7361

7366

7373

7375#

C1RXEAO RX02 ~MTR PROG MA.C Y 11 30(1046)

CIR:<E.A.Pl1

001432

IIOO
I J?O

OO~}706

I 122

00345:)

: JOO

:J22
I ~?Z

1
.")")
~ 1(,
(.

20-SEP-78 10:48

....! I~ 2":'
<-

IM;?2

001262
003460
003470
2,(.4620
003520
003536

003002
1\11 TDN::: 000004
INI rDP 00327'0
INITPG 000514
INlTTS 00i., 360
INTLV :: 000002
rNITCI(

IOTVEC:: 000020

LASTAf)
LA.221

017660
OO~~636

00'..442
007.322
007766
001146
001554
003734
00421 {)
005326
005624
001070
LCOO
001616
Lel0
0041 SO
LC222
U)10
001660
003370
LD22
L)2231 005002
LD2251 005662
002672
LE20
LE 2231 005052
lE2251 005740
007012
LE23
007156
LE231
:: 000012
LF
003442
lJ22
006766
LF 23
002746
lG20
004330
lG222
LG2251 OC5774
006760
LG23
LH2231 004710
007052
lH23
003506
LI22
001302
LJOO
u<2231 004640
006406
LOOP
006446
l00P1
006520
lOOP2
006564
LOOP3
012402
lPPRT
lA223
LA.232
lA.30
lBOO
LB10
L8221
lB222
La225
L82251

625i.,
659911
6781
623111
619411
679611
709811
680311
680711
651(''*1

598911
6663614311
6763*
6997
604211
8698#
6864
7069
7750
7'879

6198
6336
6869
6982
7(7)7
7341
6200
634'.
6984
6353
6775
711 C'
7351
6591
7128
7359
7628
7706
6042#
6783
7630
6603
7011
7369
7632
7093
7649
6793
6232
7099
7240*
753611
7539
7543
8275

G 7
PAGE 70-6
[QrlSS REFERENCE TABLE
USER $rMSOl S

20-SEP-78

10:48

6261#

679211

6577"
6687
6674 "
6241 . .
6966
?024t1

6663#
6681 ft
66096969·

6693·
6763
7027#

727~1<

7528#

686711

70721t

775 ')/t
?88?/t
621i.,tt
6339tt
688511
699711
724211
734911
620411
634711
698911
635611
677911
7122/.1

735611
659611
713111
736711
7646/t
770911
679011
764111
660811
7016#
737411
763911
711111
765511
680011
6235#
7102#
72567540
7541#
75451J

8290-

7544

82q3#

6697
6855

6702#

SrQ 0084

H 7
ZRXfAO RX02 FMTR PROG MACY11 30(1046) 20-SEP-78 10:48 PAGE 70-7
ZRXEA.Pl1
CROSS REFEREN~E TABLE -- USER SY~Ol$
20-SEP-78 10:48
l Slf LG
000520
:.. SllRP 001200
MSGCD3 01725 /1
· MSGCD4 017311
MSGCD5 017346
MSGLP
017417
MSG1
013742
MSG10
0'4272
· MSGll
014326
M3G12
014367
MSG13 014411
MSG14
014452
MSG15
014506
MSG16 014526
MSG1? 014547
MSG2
014002
MSG20 014556
014564
MSG21
MSG22 014570
MSG23
014610
014701
MSG24
014715
MSG25
014722
MSG26
MSG27 014736
MSG28 014752
MSG29 014776
014040
MSG3
MSG30 015031
MSG31
015055
MSG32 015077
MSG33 015121
015140
MSG34
MSG35
015210
MSG36 015217
MSG37 015223
MSG38 015244
MSG39 015300
014072
MSG4
MSG40 015404
015702
MSG41
015723
MSG42
MSG43 015726
015752
MSG44
016045
MSG45
MSG46 016125
MSGt.7 016206
016271
MSG48
MSG49 016357
014127
MSG5
MSG50 016422
016425
MSG51
016436
MSG52
MSG53 016475
016530
MSG54
016613
MSG55
· MSG56 016703

614511
6215
7?60
7246
7226
7534
7981
7789
6449
6436
8017
7694
8130
8133
8111

6462
8116

7985
8129
6695
8336
8316
8013
8054
8279
6683
6195
7972
7975
8635#
7380
6501
8167
863911
8284
864111
63.30
6402
864311
7790
8647#
6325
6689
6332
6340
6349
6360
6582
641 ~
8655#
7745
6676
7754
6686
7458
7876

6201·
621911
867111
867211
867311
867411
860611
7797
861611
861711
8058
861911
862011
8621;'1
862211
860711
862.311
7989
862511
862611
862711
862811
862911
863011
863111
863211
860811
863311
863411
7463
863711
8638#

6219*

SEQ 0085

7913

861511
861811

8021

8025

8062

8066

8624#

863611

864011
864211
860911
7798

7977

864811
864911
865011
865111
865211
865311
865411
861011
8102
865711
865811
865911
866011
866111

864611

I
8656#

I 7
CZRXEAO RX02 FMTR PROG MACY11 30 (1046) 20-SEP-78 10:48 PAGE 70-8
CZRXEA.Pl1
CROSS REFERENCE TABLE -- USER SYMBOLS
20-SEP-78 10:48

MSG57 016766
MSG58 017065
MSG59 01711?
MSG6
014164
MSG7
014202
MSG8
014206
MSG9
014246
::: 000011
N
NEwPRI 010074
NSMSG 01?200
OCTP
01 :'346
OCTPE
013334
OCTPEl 013352
O(TPG 013526
OCTPGX 013566
O(TPGO 013544
OCTPG1 013550
OCTPX
013524
OCTPO 013366
0131..10
OCTP1
0131..16
OCTP2
OCTP3 013)12
013570
Ofl
OPINT
0011..56
OTSVDN 007676
I)JTCP'I) 004524
. (lJTSWD 005124
PATCH 017456
PCNTR 000522
PIRO ::: 177772
PIRQVE::: 000240
010020
PRIHI
PRIlO 010034
PRTDRV 011154
PRTKSC 0'1232
PRTSYS 011132
PRO ::: 000000
::: 000040
PRl
:: 000100
PR2
PR3 = 000140
::: 000200
PR4
::: 000240
PRS
PR6 ::: 000300
PR7 :: 000340
:: 177776
PS
PSW ::: 177776
PTSIOF 011230
PTSYST 007062
: PWRVE (=000024
RDl"NST= 000012
ROSEC :: 000006
ROV.o 010226
000510
REGS
000314
REGSO
000316
REGS1
RESVE(= 000010

7880
6502
7g87
6246
8211
7623
7637
600711
7897.".
8185
62')0
6465

866211
7881
8664#
8611#
8423
8613#
7644
645211
7905*
825111
6405
7984

8513

8548
8508
854311
8504
8511
8514
8509
8502*
6223*
6245*
7079""
7089
869611
614611
604211
604211
7078*
7080*
7378*
7270*
6401*
604211
604211
604211
604211
604211
604211
604211
6042#
604211
604211
73367634·
604211
600311
600211
6668*
6141#
611611
611711
6042#

850611
855711

SEQ 0086

8663#
8453

8612#

7653
6677#
7915-

8614#
669011
7917

723811
792011

725411

727111

7540#

754411

6414
7988

77488020

7992
8024

8104*
8028

8113*
8061

8118·
8065

8132·
8069

8135·
850211

8289*

8339

850511

8516

8523

8527

8532

8537

8540

854711

8550
8553#

855211

8507
851511
8517#
854111
8505*
632411
7876#
708611
7097

851011

8538·

8549

8552·

855911

7105

7115

7120

7125

7134

7153#

6230·

6249

6251·

6252

789711
790511
7461*
8129#
6500*
7905

7715*

8096*

811111

6675*

6682*

6694-

7377.

7457.

7459-

7701-

7788-

7796"

8089·

810211

6204

6226

6229

7897

6204*
7347*
7642*

6217*
7354*
7651*

7917*
7365*
7694#

7372*

7460-

7707*

7709·

8095·

8114

812311

7224
6807
7086*
6397*
6212*

7258
7094*
6404
6397

7103*
6406
6427*

7111·
6422
6498

71186427
7927

7122*

7131.

7154·

7156

7945

79S4

796011

7928

J 7
CZRXEAO Rx02 FMTR PAOG M.AO 11 30(1046) 20-SEP-78 10:48 PAGE 70-9
ClR,<EA.P1:
(ROSS REFERENCE TABLE -- USER SYMBOLS
20-SEP-78 10:48

RXCSAD

00(1472

6 ~ 3411

RXOBAD

000474

61~511

RX P.JI T= 040000
RXINTO 012404
RXINT1 01?412
RXVECT 000476
RX2BI T= 004000

010224
RYDX
010222
SECADR 005114
SEcrR
000500
SETDEN::: 000010
Sf TMSG 012222
SF TPIX 010072

RYDLY

SE TPR I

010050

SIDE

011226
SIDEl ::: 001000
SlDRDY= 000002
SSUCAD 010076
SSUCOF 010126

7927 ..

74S(>
')99711
6095
6099

613611
S9Q8.Jt

7944
666911'
7075"
613711
6004Jt
8148
7'916

7898;,7344,..
5986#
599011
6664*
6396*
8088*
604211
6081

6439

6666-

6667

6672

6679

6691

7088

715:3

7156

7104
8042

7114

7119

7124

7133

7268

7436

7442

7446

8068

7006-

7019-

7073

7075

6210·
1983
6684
79286665
6208
6228

6212
8001
6687
7929*
6666
6225
830611

6422*
8027
7096
7987

6691

7228

7506

795911

7943
7112
69987068
825211
791811
79067352*
6784
7442
7064*
6426*

8299#

7958#

714411

7004
7244

791311
7.362*
6794
7452
72216671*

7370*
7340

77127358

7713*
7512

7714-

8117

812211

7433*
6765-

792611
6768*

6776-

6779-

685911:

6978-

7337·

7698-

7926-

793611

6085
8442*

6090

618911

8318

750511
6365.7795*
6231
6585
7966

6570·
7936
6324*
6597
7979

6575*
8103
6337*
6979
8010

658911:

6601-

7612.-

7618-

769511:

772011:

7721

7747

6339*
7531
8015

63457540
8051

6347·
7544
8056

635911:
7610
8269

6369*
7616
8272

6447
7620
8277

6452
7625
8282

6466*
7629
8329

6467

SiACK = 001000
START
001000
STFlG
000576
STKlMT= 177774
STSTBT 006266
sue
000610

617311

000504

613911

7261·
6348'7787.6205'6573
7753-

000324
000001
swoo ::: 000001
SWOl =: 000002
sW02 = 000004
SWO.3 ::: 000010
s\J04 =: 000020
swos ::: 000040
SW06 = 000100
S\J07 ::: 000200

612011

6139

6324

6464

6466

6452

7540

7544

8277

8272
8010
7979

8051
8015

8056

SiJR

SWREG
S\JO

s\J08

000400

SW09 ::: 001000
::: 000002
S\J1
5\",110 :: 002000
SW11 =: 004000
$\",112 = 010000
SW13 :: 020000
SW14 ::: 040000
SIJ15 == 100000
sw2 = 000004
=: 000010
I. SiJ3
sw4 =: 000020

61681t
604211

1247.,
7749

6569*
7751..8342

6042.tt
604211
604211
604211
6042#
604211
604211
604211
604211
604211
604211
604211
604211
604211
604211
6042#
6042#
60421t
6042#
6042#
604211

SEQ 0087

ClRXEAO Rx.02 FMTR PROG

MI\CYll 30{ 1046)

sw5

604211
604211

CZRxEA.P11
SW6

Sw?
Sw8

, S'w/9

20-SEP-78 10:48

::; O()()t14 0

::;,)00100

::;000200
::: 000400

::: 001000
SYSCHD 002514
SYSDRP 007264
SYSDVR 003272
SYSERR 000606
SYSFlG 000574
SYSMSG 000572
SVST"T 006570
SVTMCK 007542
SYOTPT 003762
SVlTPT 003764
SOAV
000612

SOCMD

000622

SOC11.)f
SODN
SODVDN
SORDY
SOSEC
SOTRK.

003766
000626
003560
000616
011310

011304

sChM.. T 000556

000614
000624
SlC~
51(f'i'(>F 003770
S1DN
000630
51 DI/DN 003562
SlRDY
000620
011312
SlSfC
SlTRK
011.306
SllJ1.. T 000560
TABADR 011542
T81 TVE= 000014
TeEl(
013332
TCRlF
013264
TCRLFA 013.302
TEMP1
000562
TEMP2 000564
TEMP3
000566
013740
TEX
I TIB
1E2231 005042
000526
51~v

I TINER
TKB

013020
000302

000300
r/(VEC = 000060
TMSGAD 000600
000524
HE

TKS

TOfRBT

TOG

010402
013700

6001

60!.r211
604211
6242*
7613'"
659/~ ...
617211
616711
616611
6610*
7639...,
6857~

6858*

617411

7:)68
617811
8090
6874

6180P
6771"

617611
7073"07074616011
6'17511
617911
689511
618111
681511
617711
814111

813911
616111
8007*

604211

8481
8483
8489#
6162#
616311
616411
8592
712911
6148/1
8451
8394
610:#
6106. •
604211
6169#
614711

8571
7954*
7950

K 7
20-SEP-78 10:48 PAGE 70-10
CROSS REFERENCE TABLE -- USER SYr-BOLS

SEQ 0088

604211
656711

774511
676311
7785
6611
7623*

7793
76227637*

7800*
7633*
7644*

7819*
7641*
7653*

7842*
7650-

7953*
7885*

7655*
6865-

778211
6876-

6877

6882*

6885-

689211

6578
7438
7065*

6696*
7444*
7222

66997448
7338

6769
7454*
7340

6782
7462*
7358

6786
7608
7434

6883*
6587
681411
6567.
8134
8131
7070*
6576*

6886*
67776870
6590
814011
813811
70726580

689411
7631
68736592*

76356888*
8299*

7648
6987*

7652*
7014*

7699

7816
7614

7799*

6599

7627

7636*

7643*

6568*

6602

6604*

8306·

1839
8048*

8171

8197#

848611
849?
8384*

8389

8398*

8581
8S9?

8584
860011

6504
8456
8397
8468
6214*

7883
8464*
8411

8313
8468*
8414

8387
8471
842311

8392
8472*

8395

7889-

7890*

831911'

8320*

6436·
6236
8576*
7970
8484

7226*
7949*
8595
799511
8487

7246*
8479*

72608480

8490

8494

7619-

66067783
6261
6613
760711
7646*
6860
6893#
657173796665-

8033
7888*

8034*

8074

8075*

6792
7703
7507

6796
7705
7511

7342
7791*
7514

7350

7360

7517

7535

8405*

8406

8440

8444

8448·

8449

8463*

8465*

8466

7534*
8482

8086
8486*

8334
8489*

8493*

8541*

8554*

8566-

8')68*

8542

8555

859111

8594

849611

I ClRXEAO Rx02 FMTR PROG

." (ZRXEA. P1 1
TOPRT
, TOPRTX
'T;:l(3

MAC v 11 30 (1 04tJ)

20-SEP-78 10:48

010232

010400

COO 306

TPS
000304
'TPVEC :: 000064
'. TRACK
000502
. TRAP
012474
: TRAPVE:: 000034
'TRAPX
012566
,TRAP1
012532
,TRAP2
012550
TRBIT :: 1)()()200
'TRKADR 005112
TRKSEC 004016
TRTVEC:: 000014
TSHDCK 011042
TSTERR 000554
TTAR
013036
TiM1
013066
TTAR2
013106
, TiAR3
013146
TTIN
013156
rrun 012420
TT IN1
013172
TTIN2
013206
TTl TfG 000632
TTCX.JT
013232
I

7955

7968
6:0911
61 'J811
6~211

6138#
6437
6042#
8343
8332
8330
5984#
1076*
6809*
604211
7969
615911
8365844i
8445
8450
65036074
8"'6611
846911
618211
6196
6502*
7789*
7990

TTR

iiRO

012652

012660

8129,*
8l..7911
6410

8386#

012706
012722
0127.36
012774
01300i.
013014

8388
8393
8396
8391
8410
841.3

000532
UA11
002154
007246
UA231
003512
I UC22
007232
uc231
005110
VALWD
000512
vEeT
000310
VECTO
VEcn 000312
wATCHO 007474
WATCHl 007572
wATlNO 007670
wATlN1 007672
.\JCNTMX 007674
wCNTRO 007566

615011
642411
772111
6778
771811

TTRl
TTR1A
riR18
TTR2
rTR3
TTR4

TTRS
THJAIT

013016

8390

7132

614211
611411
611511
6596*
6608*
659.3·
66057812
7809*

196611
7980
8471 8469

6989*
8328#
8345#
833611
8340#
7094
7116

696611
8012'"
8035*
843711
844411
844811
8452

l 7
20-SEP-78 10:48 PAGE 70-11
CROSS REFERENCE TABLE -- USER SYMBOLS

7993#
8573*
8569

8575*
8593

8595*
8598

7008*

7013-

7016*

7074

7076

7103
714311

7111

7118

7122

71.31

805380768455

808311

8271*

SEa ()O89

7882'*

845611
8312-

8386

8439*

846311

63316683·
7798·
8022
8168

6333*
6686*
78768026
8173

6341 668978808055
8175

63506695·
7881·
8059
8280·

636173807887118063
8285-

6403
7i.587973
8067
8.316*

6"'19

8314
6326*
6676*
7797*
8018
8133*
8i.95
6471

6265*

8596

6787

6789

6791

6795

6797

6799

680111

6413
6398

6415
642811-

6420

6428

7806
7831*
785011
7812

7808*
784911

784811

7814*

782211

831211
8467
847'0
831.3*
6247
6614*
7790*
8014
8130*
8485
8408
839211
839511
839811
840911
841211
841511
841611
6248*
6785
714211
6398*
6224
6227
780611
782911
6766*
7829
7835
7811 ..

838411

6412
7463*
7976
8087
8335

6450
76947978
81028337

6i.63
77467982
8111*
8424

6501·

7755117986
81168454*

M 7
ZRXEAO RX02 FMTR PROG M.A.C Y 11 30(1046) 20-SEP-78 10:48 PAGE 70-12
ClRXEA.Pll
CROSS REFERENCE T.A8LE -- USER SY~OlS
20"'SEP-78 10:48

007664
005 L?2
WOOT
000540
WMLTO 007570
\.J"1l 11
007666
WRDS
005102
)(
:: 000001
XER
017446
XTTAA
013154
XUDL
010220
XUPTC>V 011222
XWATO
007564
Xt"JAT1
007662
X10
001764
X11
002202
x12
002420
x13
002512

. WCNTR1
WOCT

x20

'- ~ ....... -1

,1(c' I

><2'2

x221

x2'22
)<2'23
,,)'311
<-\r......C
x225

x2251

x2252

:(2253

;.:2254
x23

$HIBTS
$MADR1

1810*

7833*
7087 . .
6006#
1123
8443
7946

8115

7813
7836
6311

64;"911
647211

00355 /..
005760

6770
6889#
6996

003266
004356
001.. 522

005162
005524
006034
006262

006404
006566

000402

000456

000432

7834*
7147#
707778157838*
7095*
8681#
8447
795611
8119#
7817
7840
637311

7835

7837-

7845#

7087
7816
7839
7100*

7090
7818*
7841*
7102*

7092
7823#
7846#
7112*

8457#
782011
7843#

650~1I

661511

000436
$MADR3 000442
$MADR4 000446
$MAIL
000400
$MAM$1
000430
$MAMSZ 000434
$MAMS3 000440
$MAMS4 000444
$I13ADR 000460
$MSGAO OOOtt 14
$MSGlG 000416
$MADRZ

615311

OO~OOO

007060
x251
007256
)(232
007340
x30
010016
$ At'") THD 000456
. 'f8ASE
000454
$CPLKJP 000426
${)[VCT 000410
$ENDAD 001422
$ENV
000420
$fNVM 000421
$ETABL 000420
$ErEND 000456

. $FATAL

7832'"
7095

6698

7081 If

670011
6804

6811#

7009

702011

7157

715911

T576

7381#

752211
7530
7657#
172311

7532

727')#
71.6)11

775611
7886
613011

612811
612811
6128/1
6069
612811
612811
612811
612811
612811
613011
612811
612811
612811
612811
612.'311
612811
612811
612811
6128#
613011

6128#
612811

754611

789111

6210
6199
625711
6197
8591

6243

6130
8260-

8353*

6130

8351

SEQ 0090

7098

7107

7109

7127

7536-

7113*

7116*

7117-

7123-

7132-

7139#

7158

N 7

·:ZRXEAO RX02 FMTR PROG MACY1 1 30(1046) 20.... SEP... 78 10:48 PAGE 70-13
lRXEA .• Pl1
20-SEP"'78 10 :48
(ROSS REFERENCE TABLE -- USER S)'~OLS
'r~SG TV

$MTVP1

000400

000431
$Ml YP2 0004 35
1lMTvp3 000441
$II1TVP4 000445
$PASS 000406

000464
$SVPC ::: 000046
$PAST,.,

612811

6128#

6128#
6128#
612811
613011
606911

$UN 11M

0004 12
000466

$VE CT1
$vEeT2

0004 50
000452

000456

869711
6130..

0004.22
()()I)404
000462

$1ST'1

$UN I T

$USWR

000424

.:;; 017662

•• $ ) ( : : .

8354-

6191·

6252-

612811

612811
612811
61.3011
6128#
613011
612811
612811
6128#

SSWREG

$ TE STN

8261*

SEQ 0091

604611

6205

6206
606911

607311

6079i1

6083·11

6087#

609411

609811

6 i 0211

612411

61~CI1

618511

8t.7';,11

ClRXEAO RX02 fMTR PROG MACV"
CZRXEA.Pl.1
2o-SEP-78 10:48
CCfftN

ENDCCf1

15261

153F)1I

, ERNUM
ERR

6028#

ESCAPE
GETPRI
GETSWR

165411

ERROR

~L T

NEWTST

POP

PUSH
REPORT

6009#
604211

127811
172511
439311
158511
2103#

209511

5~52#

SCOPE
SETPRI

604211

SKIP

1688#
147811

SETUP

I SLASH

SPACE
. STARS

SWRSU
Tn'OUT
TYPBIN

TYPDEC

TYPNAM

TvPM..J'1
TVPQCS
TvPOCT
TYPTXT

. $$ESCA
$$NEWT

$$SKIP

.EQUAT

.HEADE

.KT11
.SETUP
.SWRHI
.$ACTl
.$APTB
.. $A.PTH

.$APTY

.!.ASTA

.$CATC
.$CMTA

124611
130211

604211

144711
141611
603511
7798

2039#

200911
177911
197611

192911

189211
184611
166711
162111
170111

1761f

5011
319/1
118011
9211

496111
500511
526111

5436#
5307/1
90511
101611

.$DIV

459111
411411
449411

.SERRO
•.SERRT
.. $MJlT

443111

.$DBi:'D

.$D820

.$foP
.$EQUA

• •.$P()Jf
• .$RAN£)

.SRDOE

216211
604111
264311
28381f
4143#

421811
381411

604211
6042#
6452
6452
604211
604211
604211
604211
6042#
604111
604111
604211

6~77

6677

30(1046)

8 8

PAGE 71
CROSS REFERENCE TABLE _. MACRO NAMES
20-SEP-78

10:48

6690
6690

7238
7238

7254
7254

6128
6683
7887

6130

7271
7271

7540
7540

7544
7544

6689
8111

6695
8116

7380
8129

SEQ 0092

6042#
604211

604211
6042#
6042#
604211

6041#
604211
6501
7876
604211
604211
604211
6042#
6042#
604211
6042#
604211
604211
604211

604211

6069

6502

6676
7881

604111
604111
604111
604111

6069
6128
6130

7880

6042

604111

6686
8102

7458
8130

7463
8133

7694

8316

7789

7790

7797

C 8

ClRXE-\O RX02 FMTR PRQG MACY11 30(1046) 20-SfP-i'8 10:48PAGf 71-1
C/RXEA.P11
~O"'SEP"'78 10:48
CROSS REFEAENCf TA8:lE -- MACRO NAMES

.'LRDOC
• $REAl)
• 'SR2AI

.SSAVE
.• $582D
.$S820
.$SCOP
.SSIZE
~ •. SSUPR
•STRAP
.. STYPe
.STYPD
.$TYPE
. 'TYPO
.S40CA
.. '170

. ASS.

372311
3328#

4858#
3889#
4675#

477611
?39711
427111
4814#

399111

32.21#
3144#
292511

3048#
944'
498#

017662

000

ERRORS DETECTED: 0
CZRXEA,CZRXEA/CRF=CZRXEA.SMl,CZRXEA.Pl1
RLN-TlME: 1614 1 SECONDS
Rl..fi4-T1ME RAllO: 38/3l.:1.2
CORE USED: 35K (]O PAGES)

SEQ 0093