0948931 0001_990_Computer_Co Resident_Sys_Listing_Mar77 0001 990 Computer Co Resident Sys Listing Mar77

0948931-0001_990_Computer_Co-Resident_Sys_Listing_Mar77 0948931-0001_990_Computer_Co-Resident_Sys_Listing_Mar77

User Manual: 0948931-0001_990_Computer_Co-Resident_Sys_Listing_Mar77

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

Download0948931-0001_990_Computer_Co-Resident_Sys_Listing_Mar77 0948931-0001 990 Computer Co-Resident Sys Listing Mar77
Open PDF In BrowserView PDF
.

.

,

'

...

.

:

~ ~.

'.

'.TEXAS IN STRUM ENTS

Improving Man's Effectiveness Through Electronics
•

:>

•

-,

-M odel 990 Computer
Co-Resident Sys Listing

948931-0001

!

I

...

.•

,

Digital Systems Division

J¥?\
~

-,';'-'

o

o TEXAS INSTRUMENTS
~
VI

LIST

INCORPORATED
QUANTITY
PER
ASSEMBLY

PRINT
ITEM
NUMBER

0001

UNIT
Of
ISSUE

00001.000

DWG.
SIZE

EA

03110/77

DATE

OF

MATERIAL

PART NUMBER

PAGE

PART NUMBER

L~ 0948931-000

REV)

~

VENDOR PART NUMBER

THIS KIT CONTAINS ONLY
THOSE PARTS WHICH ARE

r:

UNIQUE TO PXPATE. ALL OTHER

00010

PARTS LINKED IN PXRATE MAY

000l~

BE FOUNO IN THE STANDARO

0'011=

PROTOTYPING SYSTEM LISTINGS

000lG

KIT

0001H

*

OOOlt

.PXRSRC.PXR~NQaLINK

OOOlJ

.PX.RATE'LL.MN~PP,AD,8F,HL.

C9~3518-0019).

CONTROL

:)'

PH.-LINKED OBJECT

0001K

"

,

.PX.RATECXPLAINt EXPLAINS

OOOll

I~

PX.RATE FILE

0001M

00001.000

EA

09~8925-99011

00028

.PXR08J.NEW08JCASM'

E.

If
.t

.PXRSRC.PXRASM

00001.000

'"'

Al,PXRASM,ONE-PASS ASSEM8LER-PXR990

0002A

0003

3

LMl,PXRATE,CO-RES PROTtI SYS MON-PXR990

Otl48929-Q901

-OOOlFl

0002

1 of

DESCr
"

SDSlED
PXRLAl

C

947288 *B

19:27:15 MONDAY. FEB 21. 1977.
LENGTH 0680
PROGRAM ORIGIN 4F0C

NODULE
NAl'lE

LENGTH

P>::RLAL

~~16E:t;:1

PF.:OGF.:AN
OF.:IGIN
4F~X:

PAGE
948929-9901 *A

3

DATE

Tlt1E

t·10[.\ULE
SOURCE

02,""2f1("'77

15:56:47

SDSMAC

D E F I N I T I 0 N S
NAME
*8EGLAL

VALUE
4Ft;:1C

NAt1E
*ENDLAL

VALUE

NAf'lE

VALUE

558A

LALCSR

4FCA

NAME

VALUE

c

"" 4L. _ .

nt,

__ t

. __.M __

_2,M __ ",t.Jh44 ...,g 3

.

%

4.4,

~

..&.;:", $,.

4.p~ ..

o

,,('-~\

'--,

·-ilil.

":;.·w:"

SDSLED
P::O::RATE

0

947288 *8

1'1ODULE
NAME

LEt·KiTH

P:X:R8UF
ASM

PROGRAl'l
ORIGIN
0000
01211212
:1.87E
2cec
3:1.64
32eA
32A8
32DA
3:2F4
3:3:8121
34C8
3:4D8
3:56121
35E0
3:67E
3:79C
3:7D8
3:8A8
3:A4E
3:EA2
3:EFA
3:F4e
3:F52
3:F6E
3:FC6
3:FEA
40:1.A

000:2
:1.87(:
:1.e8E
121558
eeA6

P~":RE['\T

TRACEt'!
SET REG
SETRAC
t1INIT
ERRINT

~109E

12112132
ee:1A

~!I::AF!:TH
1.::F!~

BKPT
BLANK
C8D

044A
4[)5C
4CA4
48FE

E6

NAl'lE
*SDA
8KPTPR
SPTAB
C8DSTG

VALUE
000A*
4674
4D62
4C00

fd~
~"

~
!,t.
i\\i
;;"7

~~:

.t ...

...... L

g

$

,

- .;

CL2Z"Zt.k '.

. SA

Ii

o

1I..··i"

~f·;.'-,

SDSLED

94728:3 +=B

P~"-~CT

FREt1Et1
GETFLD
*HAB
It1P
INSCNT
IC'=
.......
LDBUF
*LDENT'T'
LDNt'lCC
LDPRT
LGRASC
*LOG
I'll NUS
t-lONCHR
NUt'18PS
*OPEN
PEF<:IOD
PF<:8CC
PRDASC
PF<:NTH8
PROPEN
PRTSS
PTDIRT
*PTR
PTI.o!EOF
F<:GSTFi:
RU80UT
SBP
SIEINT
SNAPS
SF<:EGN
STF<:ACE
SVCPF<:B
*SVCUSFi:
svn·jF<:T
TF<:fICE
TF.:LNTH
TF.:T'r'PE
UEt'lASK
USRl·t=.:P
~

Ci
,',

~"'

~:.

,
t·

4822

3:68E
4CB0
1211211211*
3380
121121121121*
3A4E
€11217F*
01211212
4CBD
449C
4DCC
34DC
0~:::1I21D*

3:F41Z1
4D98
3FC6
4C34
4C86
4C8A
482C
38F8
1211210121*
4CA6
3D86
£10£14*
0121121£1*
4CA9
4C1.E
49A6
3S1A
4994
421.121
4924
l2It2nj3*
495C
4CE2
4CAE
3EA4
4646
4D36
4BAA

1.9:27:1.5 t·10NDA'T' .. FEB 21 .. 1.977.
PROGRAM ORIGIN 0000
LENGTH 55BC
NAt'lE
C8He
*CHB
CLST
COMt1A
CRR
CSBACK
CSF~ASC

CSI.oJASC
DCTTYT
EDTCSR
ENTSIZ
ERROR
F8T
FJ.oJD
GETFLN
HILIM
INCHAR
10

It·JP
LDCBA
LDFLG
LDOPCD
LDTBL
Lmo.lASC
Lm·JLI t'1
t10[)CRU
MRP
NUMSNP
*O'·.·'LRET
PL
F'Fi:BUEF.:
F'RDIRT
PF<:NTHN
PRTCF~U

F'TCe:OF
F'TOPEN
F'TRILL
RANGE>~

RGSTR8
RUN
SCT8
SIEST
SNF'ENT
SSS

3:226

STRF'RT

4C:06
4COB
4C14
4D26

*S'·.·'Cl·l1.0
S'T't'1T
TFi:ACER

4D;;;-~A

TFi:LI)~·l

0~:::112'6;+;

3:93:C
4['S(1

5 1'1,1 C: SF 13

TRV1.
USFi:PC
*l·JTASC:

VALUE
4BF8
4BF0
367E
4CA7
46E4
eeen3*
3A98
3B5C
488E
1D24
0e0A*
3858
4736
4712
34D8
4DA2
4C1.2
394E
3:F6E
4C3e
4C28
4C26
4C86
3D12
4DA0
401C
41218;:;::
001214*
4428
4472
4C1.8
4A22
3820
41.8C
48B6
489121
4986
3F02
4CE4
44A6
45E6
4D8C
0fH38*
4536
4[:r94
4C0A
4DAA
001;:a
2D€12
0121£12*
0€U:::18*
4D9C
0@ZlB*

NAl'lE
*CBH2
*CHBVAL
*CMDt1SK
CPLSAV
CRUOFF
CSFJ.oJD
CSRWND
CSWEOF
DFBIAS
EFMASK
EOR
ERSTR
*FPSTRT
GETBUF
GETHEX
HXAR
INIMEM
IRP
LDABS
LDC88C
*U)LDPT
*LDPGNM
LDUFL
LOAD
*U·lP
t'10DMEt1
*NOCELS

VALUE
48FA
4BF2
393E
4092
1FE0*
12112100*
01210121*
3BDC
4CA2
393D
4CAA
4C88
FEee*
32FA
3564
4788
32F6
40A~

4284
4C32
4C88
4C8B
427A
427E
3302
3FEA
e00A*

NUfo"ITF~

e0~34*

OVLY
PLUS
F'RCLOS
PRINT

43F4
4CA8
49AI2I
381210
3S26
417A
48AE
48A2
4CC4
01211219*
FFFA*
3306
391121
4D8A
4D3C
4CE6
007C*

PRNTH>-~

PRTMEM
PTCLOS
PTOPRW
PTSUl'l
*RDASC
Rot1L[)R
*RI.olP
SETLUN
SIEt·JP
SNF'TAB
SSSTR
*SVC
SI..,IC:SF.:

361212

* S'·... Cl·l 7
TERl'l
TRFLGS
TFi:NARA
TTTBL
USRST
ZERO

4DA4
44A2
000~j*

4F0C
4[)2E
4['9E
4CA5

PAGE

5

948929-9901 *A
NAME
CBP
CLOT
CMDTBL
CR
CRUPRT
CSOPEN
CSS
*DAB
DMPSPR
EI
EQSIGN
ESC
FPWP
GETCHR
GETHXN
ICP
HUT
ISRFLG
LDADDR
LDCC
LDLUN
LDPRB
*LF
LOADOV
t'lEMWP
MODI.olSP
NOCMDS
NUt'1TTE
PCOUT
PRBBUF
PRCRLF
PRNTC
PROMPT
PRTPR[)
PTDIFF
*F'TP
PTI.olASC
RETBUF
Rf':
SAVWP
SIE
SIINPG
SR
SSSTF.:B
SVCALT
SVCSRA
SVCt·JP
TERt-lCR
TRHIGH
TRTBL
*UEFMSK
USFi:l·JP

VALUE
46D8
3928
481.0
4CAA
1FA0*
3A90
46DE
0008*
4C04
32DA
4C02
4CAD
F8ee*
3708
3560
3F52
32A8
4D2C
4C2A
4C2E
4C27
4C24
4CAB
429A
4DAC
411E
4BEE
12112104*
34C8
4C1A
37F8

37FC
4CB4
4CD6
4CCA
0002*
48CE
32FE
33~jE

4D90
4616
4[)8E
31.64
4CE['
4C20
35FE
4D96
4CAF
0€104*
4CEE
393:F
4D9A

0

.~"

;'"

"'t~
~
X

.. &.A.

..... r. aea

o

{-,

~/

o

SDSLED
PXRABS

C

~9:27:~5

947288 *8

LENGTH 0456

t'10DULE
NAt'lE

L.ENGTH

PROGF.:At'1
ORIGIN

ABSDNP
ABSLD

121242
12121.4

5:t4E

PAGE

MONDAY. FEB 2~. ~977.
PROGRAM ORIGIN 4F0C

6

948929-9901 *A

TIME

DATE

t'10C'ULE
SOURCE

4F~3C:

D E FIN I T ION S
NAt'1E
*ABSBUT

'·... ALLIE

NAt'1E

..... ALUE

51.4E

ABSLDR

51.64

NAt1E

NAME

VAL.UE

..... ALUE

4F7E

c

kQ2

#

-'.

t.;;L., JR...,XJk . ()

4$

:.4;

.. [ ...94#

'>:" :

SDSLED
PXRPRO

C

947288 *8

PAGE 7
948929-9901 *A

19:27:15 MONDAY. FEB 21. 1977.
LENGTH 0690
PROGRAM ORIGIN 4F0C

t'10DUL.E
NAt-1E

LENGTH

F' f': (It-l F' G

\Z1690

Pf':OGf':At-l
ORIGIN

[)ATE

t10[:OULE
SOURCE

TIt'1E

4F~3C

[:0

E FIN I T ION S

NAt'lE

VALUE

NAt-1E

VALUE

NAt1E

VALUE

NAt1E

VALUE

PGBIAS

4F5C

*PPCSI

5020

PI<:OGSZ

4F5E

*PSCSI

546A

"_ ... A!LL.

I. ____ 13K.:;:::;;;:

SDSLED
PXR8NP

.

0

947288 *8

19:27:15 MONDAY. FEB 21. 1977.

LENGTH

t'10[:'ULE
NAt'lE

LENGTH

[:tt'18NPF

((]::=:2

PAGE 8
948929-9901 wfJ

PROGRAM ORIGIN 4F0C

0382

PF.:()GRAt'l
ORIGIN

[)ATE

TIME

MO[)ULE
SOURCE

4F~3C

D E FIN I T ION S
NAt'lE
:+:Dt'18NPF

VALUE

NAME

. . . ALUE

4F9C:

o
k

.. 4

.,4.4

"_ #4#

NAt'lE

VALUE

NAt'lE

.....ALUE

SDSlED
PXRHIl

c

947288 *B

1"10DULE
NAt-1E

19:27:15 MONDAY. FEB 21. 1977.
LENGTH 02D6
PROGRAM ORIGIN 4F0C
PF.:OGF.:At'"'
C)RIGIN

LENClTH

DATE

PAGE 9
948929-9901 *A

TIl'lE

t10DULE
SOURCE

4F0C
D E F I N I T
NAt'1E
:+:Dt'1HL

VALUE

NAt1E

'",'AL.UE

I

0 N S

NAME

VALUE

NAME

VALUE

4F7C

>38AA BYTES OF LIST SPACE USED OUT OF >4000
**** LINKING COMPLETED

o
__.0• ._ 4 ..

t¢C&S. -,

J4!W»

o

o TEXAS INSTRUMENTS
~
UI

PRINT
ITEM
NUMBER

INCORPORATED

QUANTITY
PER
ASSEMBLY

0001

REF

0002

REF

UNIT
OF

ISSUE

DWG.
SIZE

c

n
DATE

LIST Of MATERIAL

04/26117
PART NUMBER

(.

PAGE

EA

EA

0948928-9901

IAl,PX~BUF,RES

MCNITOR

BUFFE~

0007R

MUST BE FIRST IN PXRATE-

0002e

ROOT
EA

REF

EA

0948921-9901

PXRATE-ROOT
REF

EA

0945381-9901

IAl, TRACEMOC,TRACE INTERPRETER-PX990
PXRATE-ROOT

REF

EA

0945385-9<101

IAl, SETREG,SET TRACE REGtON-PX990

0006A
0007

PXfUTE-ROOT
REF

EA

0945386-9901 IAl. SETRACE,SET TRACE FORMAT-PX990

0001A
0008

PXRATE-ROOT
REF

EA

0948938-9901 IAl,MINtT,INITIAlIZE MONITOR-PXR990

0008A
OOM

PXRATE-POOT

EA

REF

0945354-9901 IAl, EPRINT,ERROR INTERRUPT PROC-PX990
p)(~ATe-ROOT

0009~

0010

REF

EA

0945382-9901 IAL, WKSPMG,WORKSPACE MANAGEMENT-PX990

DRAFTSMAN

DATE

I CKD. DRAFTSMAN

APPD.-MFG.

DATE

1L.
..... Il.. ~ 4-:l."..,I '1
I
APPD. PROJfCT ENGINEER

DATE I DESIGN ENGINEER

DATE

RelEASED

LOli/'(')
T.I. 13849

OEF-PXR990

IAl, PXR EDT, TEXT EO ITOR-PXR990

OOOSA
0006

VENDOR PART NUMBER

PX~ATE-POOT

0004A
0005

R~

0948925-9901 IAL,PXRASM.ONE-PASS ASSEMBlER-PXR990

0003A
0004

I

COS.PXRATE LINK CONTROl-PXR990

P XR A TE-P DOT

REF

PART NUMBER

ILMo948929-990 1

DESCRIPTION

o94ffq 2cr':-z2-0 1

00074

0003

\0 of

I

DATE I TITLE

l4L,PXRATE,CO-RES PROTO SYS MON-PXR990
DATE

I PROJECT NO.

f2 . t'\\.ciLClAh 'Sf.. /,., I 1so~

I

I

'ART NUMIER

~948929-9901

I

REV

A

J

o

~

c TEXAS INSTRUMENTS
~
UI

PRINT
ITEM
NUMBER

LIST

INCORPORATED

QUANTITY
PER
ASSEMBLY

UNIT
OF
ISSUE

DWG,
SIZE

DATE

04/26117

REF

EA

0945330-9901

IAl,

REF

EA

REF

EA

REF

EA

VENDOR PART NUMBER

C~STPP.C~D

STRING PROC,PROTO-PX990

P)(PATE-ROOT
REF

EA

0945381-9901 IAl' SUPVSR,SUPERVISOR CAll I/F-PX990
PXRATE-ROOT

REF

EA

0945352-9901 IAL, CONVRT,ASClt/8INARY CONVERSION-PX99C
PX~ATE-ROOT

REf

EA

0945346-9901 IAl, ASGlUN,ASSIGN lUNO-PX990

.;\

PlCIUTE-ROOT
REf

EA

0945348-~901

IAl, CHARIN,CHARACTER INPUT-PX990
PXRATE-ROOT

REF

EA

0948939-9901

IAL,~PXIOS,I/C

OISPATCHER-PXR990

PXRATE -POOT

0019A
0020

A

0945357-9901 IAL, GTHEx,tNPUT HEXADECIMAL NUMBER-PX99(

0018A
0019

REV

PXRATE-ROOT

0011A
0018

'1

0945356-9901 IAl, GTFElD,tNPUT CHARACTER STRING-PX990

0016A

0011

PART NUMBER

L~0948929-9901

PXRATE-ROOT

00151\
0016

ru-

0945369-9901 IAl, PCOUT,OUTPUT OATA,fRONT PANEl-PX990

0014A
0015

of

PXRATE-ROOT

00134
0014

I'

DESCRIPTION

0012A
0013

PAGE

PXRATE-ROOT

0011~

0012

MATERIAL

PART NUMBER

OOlO~

0011

OF

o

REF

EA

0945353-9901 IAl, DSR 733, 733ASR DEVI CE DRt VER-PX990
I DESIGN ENGINEER

DRAFTSMAN

DATE I CKD. DRAFTSMAN

DATE

APPD"MFG.

DATE I APPD. PROJECT ENGINEER

DATE I RELEASED

DATE I TITLE

I, ---

lMl,PXRATE,CO-RES PROTO SYS HON-PXR990

T.I. 13849

DATE I PROJECT NO.

I

-PARTNOM8fi-

L~0948929-9901

-r

I

REV

A

~

o

n

TEXAS INSTRUMENTS
DATE

PRINT
ITEM
NUMBER

!

00204

I

0021

QUANTITY
PER
ASSEMBLY

UNIT
OF
ISSUE

DWG.
SIZE

04/26/71

EA

~EF

0945371-9901

REf

EA

0945375-9901

IiLMo94892q-9901 I
PART NUMBER

REV

~

VENDOR PART NUMBER

Al, Se,SET BREAKPOINT-PX990

Al, RANGE,EXTRACT RANGE/PARAMETERS-PX99(
P)cRATE-ROOT

REF

EA

0945360-9901

Al t IM,INSPECT MEMORY-PX990
PXRATE-ROOT

REF

EA

0945359-9901

Al, IC,INSPECT CRU PROCESSOR-PX990
PXRATE-ROOT

REf

EA

0945363-«;901

0025A
0026

I ,..of

PXPATE-ROOT

0024A
0025

PAGE

PXRATE-AOOT

0023A
0024

MATERIAL
DESCRIPTION

0022A
0023

OF

PART NUMBER

0021A
0022

LIST

o

Al, tNWKSP,lNSPECT WORKSPACE-PX990
P)(AATE-ROOT

REF

EA

0945362-9901

Al, INSPSS,INSPECT SNAPSHOT-PX990

I

I

.L.

0026A
0027

PXRATE-ROOT
REF

EA

0945365-9901

0021A
0028

PXRATE-ROOT
REf

EA

0945364-9901

0028A
0029

Al, MODCR,MOOIFY CRU-PX990
P XRATE-qOOT

REF

EA

0945366-9901

At, MOOAEG,MOOIFY REGISTERS-PX990
PXRATE-ROOT

0029A
0030

Al, MOOME,MODlfV MEMORV-PX990

REF

EA

0945367-9901

AL, MODWP,MOOlfY WORKSPACE-PX990

DRAFTSMAN

DATE

CKD. DRAFTSMAN

DATE

DESIGN ENGINEER

DATE

TITLE

APPD.-MFG.

DATE

APPD. PROJECT ENGINEER

DATE

RelEASED

DATE

PROJECT NO.

L1L,PXRATE,CO-RES PROTO SYS MON-PXR990

I

IL~09~8929-9901 I
PART NUMBER

lEV

A

n

~~TO

~EXASINSTRUMENTS

I
-

PRINT
ITEM
NUMBER

00304
0031

QUANTITY
PER
ASSEMBLY

UNIT
OF
ISSUE

DWG.
SIZE

PART NUMBER

DESCRIPTION

REF

EA

0945370-9901

REF

EA

0945311-9901

REF

EA

0948~34-9901

REF

EA

0948935-9901

REF

EA

0948937-9901

REF

EA

0945383-9901

REF

EA

0936181-9901

REF

EA

0945380-9901

Al,PROMlD,PROM lOAOER-PXR990

Al, USRPGM,USER PROG SPVSR CAlLS-PX990

Al,PUNPGN RUN USER PROGRAM-PXR990

Al, SSNAP,SET

SNAPSHOT-PX~90

PXRATE-ROOT
REF

EA

0945318-9901

0039A
0040

Al,OVElAY,OVERlAY SUPERVISOR-PXR990

PXRATE-ROOT

0038A
0039

Al,PRlDOR,lOAOER DRIVER-PXR990

PXRATf-ROOT

0037A
0038

Al, PRTSSN.PRINT SNAPSHOT-PX990

PXRATE-ROOT

00364
0037

Al. PPTMMC,PRINT MEMORY,CRU RANGES-PX99C

PXRATE-ROOT

0035A
0036

VENDOR PART NUMBER

PXRATE-ROOT

0034A
0035

A

P)(RA TE-ROOT

0033A
0034

REV

PXRATE-ROOT

0032A
0033

PART NUMBER

LM0948929-9901

P)(RATE-ROOT

0031A
0032

oI

Al, SCNTBL,SCAN TABLES-PX990
PXRATE-ROOT

REF

EA

0945319-9901

Al, StEPR,SIE ORIVER-PX990

DRAFTSMAN

DATE

CKD. DRAFTSMAN

DATE

DESIGN ENGINEER

DATE

TITLE

APPD.-MFG.

DATE

APPD. PROJECT ENGINEER

DATE

RElEASED

DATE

PROJECT NO.

LMl,PXRATE.CO-RES PROTO SYS MON-PXR990

T.I. 13849

I

ILM091t8929-9901 I
PART NUMBER

REV

A
----'

o
4P
o

'UI

PRINT
ITEM
NUMBER

004-0-A
0041

INCORPORATED

DATE
QUANTITY
PER
ASSEMBLY

UNIT
OF
ISSUE

DWG.
SIZE

LIST

04/2&/17

REF

EA

REF

EA

0945349-9901 IAL, CLEAR,CLEAR

REF

EA

CO~MAND

REF

EA

VENDOR PART NUMBER

PROCESSOR-PX990

0945358-9901 IAl, HXARTH,HEXADECIMAl APITHMETIC-PX990
PXRATE-ROOT

REF

EA

0943524-9901

I Al, WRTPRT, WR lTE PROTECT-PX990
PXRA TE-ROOT

REF

EA

0943523-9901 IAL. FPOEFP,FRONT PANEL OEF'S,PROTO-PX99(
PXRATE-ROOT

REF

EA

0948941-9901 IAl,TTVPT,PAPER TAPE OSR-PXP990
PXRATE-ROOT

REF

EA

0948930-9901 IAl.CMDEFO,COMMANO DEFINITION TBl-PXR990
PXRATE-ROOT

. C048~

MUST BE NEXT-TO-LAST IN

0048C

PXRATE-ROOT
REF

EA

0945312-9901 IAl, PXDATA,REAO/WRITE DATA AREA-PX990

DRAFTSMAN

DATE I CKD. DRAFTSMAN

DATE I DESIGN ENGINEER

DATE I TITLE

APPO.-MFG.

DATE I APPO. PROJECT ENGINEER

DATE I RelEASED

DATE

LML,PXRATE.CO-RES PROTO SYS MON-PXR990

T.I. 13849

I PROJECT NO.

I

I

PAIl NUMBER

L~948929-9901

')

A J

PXfU TE-POOT

0048A

0049

REV

0945355-9901 IAl. FIND,SCAN MEMORY FOR VAlUES-PX990

0047A
0048

PART NUMBER

IL~948q29-q901

PXRATE-ROOT

004640
0047

(.

PXPATE-ROOT

0045A
0046

tof of

0945347-9901 IAl, BKPPR,BREADPOINT PROCESSOR-PX990

00444
0045

PAGE

DESCRIPTION

004340
0044

MATERIAL

PXRA TE-ROOT

0042A
0043

OF

PART NUMBER

0041 A
0042

o

~

TEXAS INSTRUMENTS

I

REV

A

~

o

n

TEXAS INSTRUMENTS
DATE

PRINT
ITEM
NUMBER

0049A

QUANTITY
PER
ASSEMBLY

UNIT
OF
ISSUE

DWG.
SIZE

04/26/77

REF

EA

0948926-9901

PEF

EA

0945388-9901

IS

~

PART NUMBER

LMo948929-9901

I

REV

A

VENDOR PART NUMBER

OVERLAY

AL, A8S0MP,OUMP ABSOLUTE-PX990
PXRATE-PXRA8S OVERLAY

REF

EA

0945389-9901

Al. ABSLO,ABSOlUTE LOADER-PX990
PXRATE-PXRABS OVERLAY

REF

EA

0945391-9901

AL. PPOMPG,PPOM PPOGRAMMER,PART I-PX990
PXRATE-PXRPRO OVERLAY

EA

REF

0945397-9901

0054A
0055

of

AL,PXPlAL.LtNKING LOADER-PXR990
PXR~TE-PXRLAL

0053A
0054

15

MUST SE LAST IN PXRATE-ROOT

0052A
0053

PAGE

pxru TE-ROOT

OOSIA

0052

MATERIAL
DESCRIPTION

0050A
0051

OF

PART NUMBER

CQ49B
0050

LIST

o

AL, OMBNPF,DUMP BNPF-PX990
PXRATE-PXRBNP OVERLAY

REF

fA

0945325-9901

0055A

Al, OMHL,DUMP HI-LO,PROTO-PX990
PXRATE-PXRHll OVERLAY

DRAFTSMAN

DATE

CKD. DRAFTSMAN

DATE

DESIGN ENGINEER

DATE

TITlE

APPD.·MFG.

DATE

APPD. PROJECT ENGINEER

DATE

RElEASED

DATE

PROJECT NO.

L'4L,PXRATE,CO-RES PROTO SYS MON-PXR990

I
T.I. 13849

I

PART NUMBfR

L~948929-9901

IA
lIEV

tuw

-,

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

--

...

•

A[
APPLICA TION

o

NEXT ASS V

... n.

US£DON

,

REVISIONS
DATE

DE8C""""1ON

AfIIIIII"()V£O

7506

NOTE:SOURCEAND OBJECT ON
DISC IN SOP 948931.

-

.

~

!

REV
SHEET

lA

REV STATUS
OF SHEETS

REV
SHEET

UNLE55 OTHE_'5E S~EC'~IED
DIMENSIONS AltE IN 'NCHES
TOLEIlANCES
ANOLES '" I '
J ,"LACE DECIMAL ~ 010
2 ~LAC( O£CIMAl+ 02
IDENTII"rINO MUM.KItS
SHOWN IN ~AItENTHESES
~Olt ItIf'EItENCE ONLY

o

INTt:It~ItET OWQ 1M
ACCOltOA .. CE WITH
MIL STO 100

OWNO

TllRNFR

~~ TEXA~ !~,,~!,,~,,!!'4 r....

~_,,_l7ATE

..

C .....

ENTS

Equ;pnwnt G,...,.,

OM_,

.>'
•. ') \..'~.;. L"--, \
',k,,..s'l-,r)-1I17
AL, PXRASM, ONE-PASS ASSEMBLER- 91tf
-V\Vl~ 3-tO...'?
E"""Rf

yd~-~ ;, / ul1'1
CONTR NO

SlU

COOl!: ICENT NO

CESIGN ACTIVITY RELEASE

A

96214
I REV

i.4r~(~ ;;, iLd<.c.-.-.h 3-14-77

SCALE

+

YI-I'lt·e

044

.Wk.-H.

.. ,".M. _. .# .it

Dl"AWING NO

94892$-9901
SI-EET

1 of 149

.1&

.

.444¢.~·:

" n"u·

PXRASM
F';:·:;F:I::t:::I'·1 -- ()NF

C

o~::lIa:;,::
~:~ \;:1 ~:~ ~::
~~ltl\;j4
[1~~lO5

I~) \~I ~:j

E:

~:j(jO?

~~10~~:::

0009
(10::LO
(:~~::1:1J.
12I~::11;?

~:l~~13:
~?1I21:t4

(;)015
~?1016

00:1..7
\X11S
~?1I?1:l.9

12t~3~?'2t

';3 (1;?:1.

0((2:2
(H:l;2:3:
~1\12,::j·

~?1'2t:25
\::1~:3;?6

MIRA990 V2L1
PA::::S FI:::::;EI"'IBLE:F,:

**
:+:
:+:
:+:

*
*'
*':+:
*

:+:

*

:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:

TITLE:

17:44:10
94::::92!:;-99l:'1::t

197/76

PAGE

0~301A

*:+:

P::';F.:ASM

F.:E',/I S I ON : 03:,/01/74

OF.:IGINAL
ONE-PASS ASSEMBLER
03: . . ·15/76
MODIFIED TO RUN WITH PX9MTR
06.~·'2E:.···t76

MODIFIED FOR INCLUSION IN MONITOR BOOTSTRAP
ALONG WITH TEXT EDITOR
CONPUTEF.:: 990.990 MIRA ASSEMBLY
ABSTF.:ACT: P;:':: F.: ASt'1 IS A ONE -PASS ASSENBLER WH I CH
OPERATES IN 4K MENORY WORDS. PXRASM
ACCEPTS SOURCE INPUT FF.:OM THE ASR733
CASSETT~ GENERATES AN OBJECT FILE
ON ASR7ll CASSETTE. PRINTS AN ASSENBLY
LISTING AND ERF.:OR MESSAGES
THE ASF.:7l3: PF.: I NTEF.:.
IN 4K NENOF.:Y CONF~GURATION. A
NINIMUM OF :1.35 SYMBOLS ARE AVAILABLE WITHOUT
PREDEFINED F.:EGI STEF.:S. 125 SYMBOLS WITH
PREDEFINED REGISTERS. EACH ADDITIONAL
4K MEMORY CONFIGURED GIVES APPF.:OXIMATELY
::::2\1 S'T't'·IBOL.S.

("
\

,,...,,.)

... MM..

z.

J 104;

jJ

L A4) 44 _ ,.@y(&,

~g

g.

A

""r"

.""

e

MIRA990

c.·.'·
,.

17:44:10
948925-9901**

V2Ll

[:tATA BASE

197/76

PAGE 0002

""

0~?1:?9
0(:~3:1C:1

:+:

~3r:G1

1~1I;~44

:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:

~?H345

:+:

1~1~346

:+:
:+:
:+:

~~lf13:2

~31~~3:3:
f'l~~1~:::4
(1~~C:5

~~1~3:3:6
0~n:7
~3~:::G8

0(1]:9
1C:11~14(1

~~H~41

~"t:.:N2

(1043

~?t~:147

~3~34:=:

(112149

~?I[1I;:H3

~::1(~~5~7:1

~3r:151

(1f10J
1?,1 (:j 13 :~:

~~1[15:?

1~1~?t [1 ~~:

I~H~5J:

01Zn34

(~t154

I;:H3~?15

[1~::15!5
~X156

13[157
13(15:::::

DATB
PXRASM DATA BASE
REVISION: 03/01/74
ORIGINAL
03/15/76
MODIFIED TO RUN WITH PXRMTR
COMPUTER: 990. 990 ASSEMBLY
ABSTRACT: THE DATA BASE CONTAINS THE SYMBOL
AND FORWARD REFERENCE TABLES.
1.,"'0 BUFFERS.. MESSAGES.. CHARACTER
CLASS TABLE. AND THE OPERAND
t'lNEUt'10N I C AND DIRECT I ..... E TABLE.
CALLING SEQUENCE:
NON CALLABLE

I""IA INL·J F.:EG I STEF!:5
EQU
EG!U
EQU
EG!U

1C:1
1

PC

E(;,~U

~~1~::H:::I7'

N~.,fS',.'r·l

E(;'J.U
EG!U
EGlU

4
5

~:::I~?1~?16

2CI<
SNAt'l

~::10~~1:::~

SPTR
NULL
:::::FLAGS
DBF<:N
IOPAr;:t'l

~::1t:.:)~39

1::J1?1~):::;t

~:H~0A

12t~j613

'~1~3(1A

12t~::16:1.

1?1~3[1A

~:~n6;;::

m~~x:

OI~~t:::3:

':H3m:r

~~064

00~::1E

fl (16 !';'i

OI2i(~IF

(1,::J t7. 6
~::i (1 ,~:; '7

t·U·NAL
(3ETC
CHAr;:
RELABS

t;~1::~69

rjI2)~::H::1

t1 ~?1 ':) :l.
~:, J?IIZI :3:

(11~1?::::

l~iO~~I<"~

1)0"::':::::

~?10~~16

~?fei'?·"1

(:1 (:) I::) ?

(:h;'1i3:::::

0001:::
l]ell;~iC:

E@J

EC!U
EG!U
EQU
EGlU
T'T'PE
EG!U
S'T'I'INPT EG!U
PPNPT
EOU
C,'",' L. P T EQU
:+:
:+:
:+:

,::" Ct "? (:j
007:1

(:tel "?"::;
1;::1 I;:) "?' {'

TITLE:

2

3:

6
7
....,
Co-

9
1(1
1~?1

10
:12
:1.3:

1.4
15

L.Pl·JP F.:EG I STERS

Ef?F.:G
BL.I'"Jt:::K
1·'t::(,PT
U'ISGPT

EOU
EGlU
EG!U
EG!U
::::cr·lF<:
EO!...!
EINDPT EOU
EPOF::::T EOU
Nt i i'l E" F,: C, EC!U
PelP
EOU

~::,

:t
3:
4
~5

.?'
1-,

c-

:1.1

:12

o
..

"-

------------:.l.? : ,::j.4 : ::1.0

F:O::PH::;;:/'i
I)

o

fn \:::1

19'(",76

E:H::::F'

el('I?9

:+:

(:~~::I::;;:el

:+:
:+:

f.:~u::::::.L

o~:'1 :::: ;::~

\::1 f.~1 (1 121

~:'t \::1 ::::: J:

1:::H::If?1::L.

C::IIJ::'::4

1~1el(~;~:

~~C1:=':5

~::1 121 C;:I 3:

O~:1:::::6

(1la~:'1?

I] I]::: ?

OI~j(l:::::

00:::::;:::

~:::1 f.:'t f.:'1:;:'4

01;~::::9

of.'30 A

1112191;::1

12t~~OE

E: I N',,.'tiL. EOU
EC!U
EOU
t'1ADD
SCCODE EOU
E:HCODE EOU
BDCODE EOU
HC:NT
EG!U
peNT
EG!U
CHOF'C
EG!U
f·ll:::IL.~:;I",.

f.:'1I~19J

:+:

121092

:+:

009~::

:+:

1:~eI94

1~1(::IIJt1

(j09':i

elf.:'1I~'tl

1~'t12196

1?IOflJ;

i::)U'::;"?

o(:, ::~I ::~:

l2iOI~"::f
(:'1I2i~j5

Ct099
1~1 :1.. ~;j ()
0::1..\::1:1

m'tt2I'(

0102

OI]f.:'1A

f.:j:1. ~::1 :::::
C1JClo::f

OI:::ICjC

t;~ ~~ (:'1 :::::
f.:'11~jf.:'1:31
m::11~'!B

~5AlliE:

:+:

~l.Uj6

:+:
:+:

12IJ.I:'1:::::

121;:'11210

t?11Ct9
0:11(1

fKII?'iJ.

[II::'tell

CI.Lll.

ell;~02

CUL:?

1;::li~'1fl:?

!Cll.·I·:::
I:,JI..·::I·
0J..:1 ~::;
!?1:Lit:;
01.:1. -;::'
U:l:.L ::::
0:1::1 .::,
I::'.L.:::(::'
r:":L?J

[H:H~I':I·
eIOCt~:i

01;:'1136
(11~;tI~' "?'

OCtO::;::
OO~~19

(::1 0 !;:'t H
CiOf1C

SC~'JP

OTCl..S
EOU
Cl...:::::T'T'P EOU
F.:E~:::,I..Oo r
EOU
EC!U
EF:~F.:4
sePT EG!I...1
t·J::-:;CPT
EOU
INCSC
EG!U
~:::;CNT
EC!U
Toe
EDU
F.: TN
EG!U

~:'1:10~"'i
\::1J..~~I·?

CONVWS REGISTERS

S'r'r'IPT'r':
::~ ',,1 !"1 N()
COI...INT
FI....AGS
:::' 'T'!"I N1"1
r·JS'T'!·'·1
'.,.'AL..I...IE
Nt,J:::::CT
::::;CNT2
r'6E::I T

ECilJ
EOU
EC!U
EOU
EOU
EOU
E:C!U
EC!U

EOU

EC!U
G:~;HOI....D E()U
G:3Hl..D;:::: EI)I..J
OI...iT::::;
E:C!U

7
:=:
9

H.1
14
F.:EG I STEF.:5
(1

1
3:
4

'-:=;

'?
!::
:31

::L(;.1
1:1
1;2

(I

1
::L
~~~
~j:

:4
!,::i

6
?
1::-

:9
H3
::L~2

E;:.:;t,JF F.:EGISTEF::5

(,,:J.. ::"'j

OC11::jU

("11.,;:;'1:::;

CIC~04

P~:;',,"HLOo
EO I...!
PE:::;L..T2 EO!..'!

,)' :J::;

(IIJia~::;

CIF'F::E~:::;

el~::I~::16

r:,cII::j/'
121 (:1 n :=.::

F.: E tOo '.,.' L.
F.: 1.... "", r::!L..
elF'

I-::i".! '?I;::i

e!C'i:::I:~1

::::;p

:::":1 -:;'1

'::'ilji::jf1

J",,'fiL.

iJ~::'I;::IH

F'l...

;;)J.,? ?

:.;:~

3:

SYMBOL. REGISTEF.:S

:+:
:+:
:+:

rJ.1.?~:

EOU

~:'1

1

EOU
EOU
EOU
EC!I...1
EOI..!
EC!U
EC!U

~~1

4f:::'

'-'
6
?

,-,
'=1

:9
j-~~,

:H:1

0·.· "·

,f;

ME

x.

. .$

l'

''"ttl

t

1::';":;PfISI'1
[:OATA BASE

O·
. }

t'IIPA996

0:1.. :~:3:
01::.t4

6~~11;::10

1!:1:13:~:5

66~?IE

IZI:1.:~:6

6~:H:1F

~::t6t;:K:

f

2(:.:::2
NFl.JD
FST I 1'1
NGFL

EGlU
EG!U
EGIU
EQU·

~H:?;:7

:t:

~31:3:::::

LKl.JP
*'
*'
SCPTPT EGIU

~:1:l3:9

C'~

:17': 44 : 10

1",I'':'~L:1.

1~~146

6~.:=t~::.'I6

12114:1
1!:114;;;;:
1!:114::::;
121:1..44

~:1001

e:1005
60f.16
12I00R

EG'~U
LCKRG
EQU
SYI'1
TA8CHR EQU
BLNI~F~·JP

TEt-1P
PTr::1
SAE:S
F'T r:: 2
FRTVAL
r::ELF.:EG
HPTF.:1
HPTr::1'·.•'
PF'CPT;;::
FF.:TEND
TEI"'IP2
S\"AL.

EG!U
EG!U
EG!U
EG!U
EG!U
EG!U
EG!U
EC!U
EG!I...1
EG!U
EG!U
EG!U

r::EG I STERS
~3

1
.")

.::..

.")
.:;,.

3:
4
6
'(;t

::::
9
1€1
12

:+:

f:'1;20?
(1;?!?1::::
f:'1;?09

:+:
:+:
f;'HJ f:H~1

1;::t:2:.1..1~~

~X1~~:1

0:2:J.:l

~:'112t I;3:?

EUU

;;~

O:?:l.:?
(:'1 ~;::::I. ?:
t:1;;;:::.1..4

el;::H33:

3:

I~1t~11~14

EG!U
EG!U

I];?:.t~)

I~)ljn6

i~'1:?:l.6

!?1[:1121-;:"

OE:JPT
CDALII"'I EC!U
F ...·'L.
EC!U
EC!U
It'6PT

el;::~::1..?

O~K1:::

F~E:D'·,·'I....

EOU

(J2J.. ::::

'-'

CXH:I9

CDL II'I

9

I]:?J'?,I

~:~I~lf1C

CI2;~:O

CKF'T
:+:

EC!U
FG!U

~:;';2,:::::1

:t:

O;:?22

:t:

OTWP F.:EGISTEr::S

t-J CON S
CKSUI"1

EGlU
EOU

OTE:~·JP

t~

1
4
r.::,.1

E;
'?
';::1

:t;;:~

F.:EG I STEF.:S

(:c:::?~::

12tf1~:IO

:r NSPT2 EC!U

~~1

!:;1:??4

~:HK1:1.

~:IE:[T

EG!U

::1..

~~i2;?~5

ft~:~f1;;:::

EOU

C!,?;:::6

Ot~WC~:

FeU..!

;2
3:

FI)U
FOU

c::•. .,1

[01...1

t:

n,':::~:'9

(:~Oi::;6

liODD
:;E:'r'T
FB'T'T
ZZEF.:U
SHU)

!;:1:??t?!

CII::'I(~I'?

OB ..,TF'T2 EOU

'?

CI~::::::-:.i.

olao::;::

i:::

lj;2.'?:.'::

1?1(:~D9

F,:'T'TFL..
EOU
orOBF'T EI]U

CI,~: .::::~:::

(~II::'IOH

'::',::::':\
, ..\

1~1ljO·::I·

O~~1I21':':;

.'

.'

',::.

::./.-::

PAGE 1211211215

2
3:
4

~::1;?(16

~::toe!:;

197'.,·76

4

1':11) !) E:

BL!'-.lr·4t:::
UJCF.?

Fe!!...!

9
:1.(::1
:1.1

(ICI~::IC

L.OCP::::

EO!.I

:12

EC!U

o
ucqma.

.' t

k- ,.,

. AJ£44i14

m

a

.$Ji4Z

F' ::-': F.: ~1~;:: ,'"

:1,(: 44: :H3

:197/76

PAGE 1010106

DI=tTA E:ASE

o

:+:
:+:
:+:

~3:;~3:9
~:;:;;::4~~1

~::tJ;::10~~1

0241.

~3100i

8:242

810102

~;):243:

101O~3::::(

121244

8(1(14

5

~3f.185

'21246

1~1~~1~~16

€12<~

~?t12lf.17

0:24::::

I~H31O:=:

1~1249

fH::t108
€1€10C

~~25~:'l

025:1.
la;;:~53

~3:254
~::(?55

o

81 NVL.F'
PR8F
R(;'8F
F'fHPOS
8LPT
Rl'lK
LSTPT
FST
TEt'lPRG
F'GHC
RCC'i
:+:
:+:
:+:

~"?t~~~5~2

0€1€H3
(:)08:1

€1~~~56

88€1;~

f:t25?'

~::1~~183:

"32~iF.:

08~34

€12~59

8€185

e:1:;;-~6121

~3~~1€16

121:26:1.

~X:II~17

1~;2t:';2

~3~?t~?I~1

LNREG REGISTERS
EQU.
EQU
EQU
EQU
EG!U
EG!U
EQU
EG!U
EG!U
EC::!U
EG!U

:+:

12l;;;-~6o::l·

:+:

0;'?tS~:i

:+:

6

7
8
ii
1.2

1.····0 WORKSPACE E'~UATES

RDCODF' EG!U
~·JRC:o[:'P EG!U
EQU
IOC
IOPL.UN EC'JU
EG!U
FL.GS
8UFADF.: EG!U
8UFL..EN EG!U
CHRCNT EG!U
EG!U
LEN

t;32~63

0
1.
2
3:
4
5

0
i
2
3;
4
5
6

7
i8

COt'11'10N F.:EGISTER E@JATES

~.:);:?t:~6

~~IOI~113

R~::t

EI~JU

~?t

l:1;:?67

~?t~:"~1:1

F.:J..

~3~?t~32

(1;?6:3

(18f.C
!ZU3f14
i2l ~'::I €15

F."-'
•. a=:
R3:
R4

i
2
3:

F.~!:i

EGlU
EGlU
ECJU
EQU
EQU
EQU
EQU
EG!U
EQU
EC!U
EG!U

/2!:?'7~::1

02Y'l

(:j'31~1E:

F.:E:

~::127:~:

~KII~17

F.:~;:'

/?1??4

~?t ~::11~1 ::::

!~:':?7~~

f1 '::1::"
/~101~1fi

°

pc,
'.'...'
F.: 9
F.::1 t1

,;:1;;:"??

~~i~31;:JB

F;:~:ll

(~I;? '(' :~~:

~3/~lC;C:

F.::1..;~:

!?lI::'iOD

Fod.::::
F.::1.4
F.::1.!:i

~~I;? :=: ~::/

I?iC/f:~E

(12:=:J

~:~(I~:1F

4
L':'

._1

6
7
::::
S·
:1..~?t

:t1

Fe!U
EC!U

12

EG!U
EClU

:14
:15

:13

o
... _ "_" M.

_t.

j

.... ,._4 ... .puza,

"':'

F'::'::PI:i'=.:'·'j
Hf=i'::::F:·

Ot=1TA

o

I?I?:~:::::

MIRA990

V2LJ

POF:Ci

O,:::"a~:1

~-::i:~~:=,:'::j.

:+:
:+:
:+:
:+:
:+:

CI2:::::5

O.?:::::t::
0;;:::::::7'
~32:::::9

~j(lfIO

(i~?91::~

~)~)~H.

(3;~:91

(i~7:lrl;?

17:44:10

::)4:::::9;;::':i"-991~~:t.**

~?10~:r3:

4:1.
54
3:A
00

~::11~11~14

1::~9

~::1(iO~~i

~x:

DATA
AORG :>2e:1

f'i:::t'l
TEF:t'l
COLON

0::

8'T'TE ,"A'·'
8'T'TE ···T···
B'T'TE ..' ,.' .' :>00

f':Eto1CIVED 07 ....'76)

END OF MODULE RECORD
TAB CHARACTER
::::'r'I·'·180L TABLE PTR TO

N:>~T

ENTR'r'

~?t~~~?t6
~3;~~~;'7

:+:
:+:

f1;2~~~::::

~) ~~:::;. :~.;.

~31J ~~ I::::

20

121 ::::: I] \7:1

1:'1 ~3:l :l.

00

0:3:0:1

f1I~1:t. ;;::

20

~:C: ~::1 ,7::

(K1:1 A

121 ? t?1 3:

~~~(:'1:lE

OA

ERROR MESSAGES

EPMSG
ERNUM

TEXT
BYTE
TEXT
EFt. or: BSS
LERAOD BYTE

/

**

ERR /

0

/ - STMT /
4

:>OAI)OO

~jD

c

03:~?14

OI~J;?O

~::t:3: (15

~::1(C 121

,;n (~6

(1(:r?A

4C

LERMSG TEXT /LAST ERR - STMT
BSS ,::t.
BYTE )OA.:>0D

LAST ERR - STMT XXXX

~

L...EF.:L.OC

OA

O:~:(:~?

:+:

(1::::0:::;:
121 ~:: I::j 9

*

UNDEFINED SYMBOL ERROR MESSAGES

:+:

(1 :::':::L 121

f::1 (1 :3: t:::

~~j3:::Lj.

(i(~?'?

(13::12

r::1~~:'4::l.

OR
55
OR

UNDMSG BYTE )OA
TEXT ~UNDEF 5MBL~
BYTE )OA.)0D

(1-:::1::::
ERROP COUNT MESSAGE

i:J::::::I ,:1·
():::: ::1. ~:i
o.: : :1 t::
O:?J?

(:j tj ,:1

:::::
'::11?144

IJ~:'

0:::::.1..:::::

DO'~::~:

20

1(1":::15

~::1I34F

OA

!::j ~: ::: .7:1

~Y:j 5:l

::::~

,::;: :1

tj C' ~'; t:;

IT:' -,-,

O~:)';H

i~1 _.'

N1...1 i·' 1j'I::::: Cl F3',·'TF )laA
t·,!L"·'H.. C)C B::::;:::::

NUMBER OF ERPORS

4

TEXT / EPPORS/
BYTE )OA.)OD

Ci

1. 11"41.... ""f ::.~; Ci 1" t::: ;:.:: T .,' L. C) C: ,.'
iil"4i)L()C: F:5::::;
<+

0A

BYTE )0A.)OD

~:J[>
~::!

"::,,,-:.

,~

:t,

(.:.:, ..;",:j

*
*

,:;;··::::::7
1:1:· ,:;' ::;::

,J'... ',I
CI':,-;:(::,

PERIPHERAL DEVICE DEFAULT LOGICAL UNIT NUMBERS

0 ':::1'::; c

Ij (II::~ ij

0(,1,,"+:·

CICH::'f.;

':::1 () ,:::: 0

CIUCI/·

K f.::: 1.1 iN () I) ffT H 1::'1
F'F'LJ . ii'·JCI r>HTA I~:
C::Li ... I...It·J() [)HTfi ?

o
_ ".4A. R 44. ',,,

LOG (kEYBOAPD/PRINTER)
LOG (PF.: I NTEF:)
CS1 (LEFT CASSETTE - INPUT)

, $$A. ,.

il "'_'.

u," "_"'

_~

._-.

Liit.{ ___

aM-ill ill . ...;

MAA24 $

F';:-:;PH':::;I·'1
DfiTI::"1 F:F:I':::;F
1~1::::::::::1.

0062

::I...? : 44 : ::IJ~

:t.971··"~::'6

CS2 (RIGHT CASSETTE - OUTPUT)

Janel:::::

OJ::::::;?
l?t:-:::~G

:+:
:+:

':~1?~::4

~:r:<::':~:.

O(:h:~4

1?1.:.h~1~?1

NON I/O MONITOR SUPV CALL BLOCKS

ENDPRG DATA )0400

END OF PROGRAM

I:E3:6
:+:
:+:

DEFINE SUPV CALL XOP

(3:?J:9
~?1?4f1

:+:

1:::134:1..

:+:
:+:

0342
0343
0344
0345
0?46

0066
0067

00
00
0900
OB00

l?f?47
('1-::';,'19
('·?5CI
':::C'",iJ

:+:
:+:

0068

C13""i~~i

o 1::'1 6H

I::'I:?; ~i E;
C!"::'57
o ~:' '-::;::;::
O-::':!:')9
(:i··::61:::1
(:~ :? ,:; .:1

I~~ I::; 6 C
(i1::i6F

BYTE
BYTE
EQU
EQU

)00
)00
)0900
)0B00

la ~:I ~::I

1.'.1 O~? D:t

EOU

~?1

~'JOPD;;::

EOI...l

1:-':

0000

LtiB~~'TR

DATA

I::~

CI::=,:~~I(~

EC'F

DHTfi :::·::;:a;:H:1

RCIHB

E:\'TE >::1.0
[".If:tTH .:::.
[)HTH :1 (:~

(:j fi 1:: 1 (:1

l~j(:1E;F

(ll
:.1. el

t;:)(:171?1

I::'IO~7:I::::

0(7:1·7;?
fi Ij -;:"::/
I] el "? ~~;

OO(:;IH
1~'1I]

....,

t-d E1.-.1 F· F.' I::· l)fHA (:~
7-:1..
B'T'TE 1.

E: TCiHT"
TF:I...I:::;

1.. ,-

DATA
DATf1

6 ,::i

\::1 :::: E: :::::

(i::::6·~:.

OPEN
END OF FILE
F.:EA() ASC I I
~'JF.: I TE ASC I I

DATA
OBJECT RECORD BUFFER

Ola';,1;;::

1:~1
la-::';~5:':

1::1:': t, :::-:

OPNCOD
EOFCOD
RDCOD
WRCOD
:+:
:+:
:+:

0::':4:::::

0354

MONITOR SUPV CALL CODES FOR I/O

1 ~:;I~::I
1 (::HjO

:+:

OE:JPCD B:::;::::;

?4

:+:

,+:
:+:

"?? ::-:'

C:'?
OOC··::
() (='1 F '~)
(::1 ("I F" f::
(~I CI ,::. F·

,::, .:':' .~,

(1:.!. 0 ("I

('I ..' ':::: :::,

,.::!.?.;::::::,
(I··:: .:::' f:'j

0·-;: ~;:' i
~:1

Ij 0

OC
20

TITLE

TITLE

BYTE

>0C

T PF;:';

F:~:;:::;

~:il::~

TPAGE

TEXT

F'1::ICjl-·4UI-! E:S::::;

F:: I.(T" E:
;:~II:::I f~1

r>

1.... F· C F:

UJJ1U· L F
':::Ij ell·
r:;:;:·

TITLE CHAf':ACTEF.::::;
PAGE

4
:::{~

A

i) 1::1 T ~1> i:~1 H (:j [)

EO!..i
FI)lj

LINE FEED/CARRIAGE RETURN

L..FCF:
i....FCR+:1.

o
; .7..;

¥La .

. .Q.#_ -

44.. ,"" . .M¥

_~""""

-

4

P;·2~:'1;;'::~~
LCIC.I··~I.Jt·1

2020
20
PF:BIJF
I NSE:UF

7C

BS:3
4
DFH'A )2€1;;::~~

INSTRUCTION VALUE
RELOCATABILITY MARK

B'T'TE

);;:O~]

B~::S

6::'::
62

E::;~::;

LOCATION OF INSTRUCTION

E'·.,IEN

i?14fe
(10::1.(1::;::
O·::j.l]::::'
tZI41el
Ij,;j:l :l
':')4'1:::::

:t:
:t:

A::::::::::OPTEI) EG!Uf=tTE:::;

:t:

f.11::i :::: ~~:i " OE:.J::::T

E()U

OF,:.:JPC[:I+:1.3:

(Ielell)

FCHJ

)D

!j'lt:::::

'::\(:1,:·1·(1

EOI.
fiTSGr·J

O"Li.··I·

I] (I;? 1:::1

I~:::TF.:

:'i. ,::;

OO:?F

CI,::I.:!. (::

1:::10::I..~:J

o;:'l,'I·J?
U4:1.:.:::
1:)".' ::1.';:'
(},:I,:>I;:'

4fl('!I::j

OF'C.t·JT
~::::I ;:':;TN
IOFPF:

?1:::II:::II~i

FOF

~;!":I

CR~

INSTRUCTION BUFFER

0J.;?A
012C
0:1.30
1;::1::13;::::
0136

('I·:leil2i

~

:+:

(J=~::::;14

0396
0397
0398
0399

ABORT FLAG

ENDMSG TEXT ~ASM/TERM?
BYTE )00
:+:

~7:I:::: ,':::. :.l.

TEXT ~ *A80RT*~
BYTE )0A.)0D

:+:
:+:
:+:

0'::':::;::5

en: 9;?
0=:':9::::

TABLE OVERFLOW MESSAGE

:t:

I'}I;?,L

F:C'U

:>4~3

EO!..I
Ee!l...!
FOCI

>;?A

EOIJ
E:OI.i

47

:::..:.HKH~1

:=.: I ;: ..j.

CIIF:F
O:LF::F
(1:'1 (.()

b ·T'n:::?.

~J,

1:;:1.. ::::

-I-

:1.

1:)1::'1

CIO

MPt;a41

&.

4X

P >,; F ':1 :::'; 1'1
[)HTH F:H::::F

0. .··
<'I!:'

PAGE

:I..?: 44: :10

~10:1f;t

1~1 :1, C::1.
~1·:l2:':i

B',,'TF 0,. f1,. 3,. ::L

1~~lC;?

2

f1J.,C:::::
(H,r::::4
~:~lC~:i

f1 .: 1· ;~~ t)

1~14.:;::7

~?I J. C: E:

fU.. C 7

~~, ~::

(11(::;:':
0:.1..(:9

~~O

O:1.Cfi

B"r'TE 0,. ;';:: .. 0 .. 4

:+:

B'T'TE 6 .. 6,. 6 .. 6

....1

4

B'T'TE 6,. 6 .. 6 .. 6

ALPHA

5

NUN

6

~~'::l..CE:
~~I:l.CC

OleD
el4:;?:;:::

~::1:lCF

R1..DI~~

~:~6

(::U.. D::L

f16

~:HD:::::

':::'6

~::'1:1D 4

(1(3

. [:,:;:i

~::1J

f34?I~j

~::11[tf.:

B'T'TE 121 .• (:l. 9 .•

(1

OUOTE

B'T'TE

~),.

5

C!UOTE

Eh·'TE 5 .. !:i,. :5 ..

~5

~1:1..[:t'(·
~3:.u):::::

[1 .j. :?:1.

c

O:l,D9
1~1 ::1.. [) H

(I,.

5 ..

~~)::L DP

OJDC
O:I..l>[:t
(I·l::':::::

~:~:L[)E:

OJ.I)F

eu F~:j

C1~::i

1;:j::l..El.

fi'=:;

(1:1 [' ':::

I::' ~i

F·I

(~I~::i

_ Clj

CI:iF~:',

!::il-:I

f.j_

I:::IJ..E~:::

IjJ.E?

F:::::

(::15

eli E 9
la:1. 1::: 1::1

Cl ~::i

::101.

n ·'l ... I;::;

eu [h
':!':i:··.!':;

CiJ t: i....
CI:Li:::C
luy'F'
(I J F (J
j:~~ .J.

F J.

,Y::i
~::! ~::i

Ij ~::;

':).1.. i~ ,>
11j !,..
1:.I:.!

!j:.i.

",J
F' ::::;

1::)'5
~:J

I?I

.M4MAt4¥#

J

#

MLt¥4'-44.

__ ,., KZMMe_ KALJK

F>::r-:::H::::;"j
/)!~rfl

'...' ;~:: L J

F:H':::F:

PAGE €n:311

J" '? : 44 : :1I::~

94:~:92:5-9901,:+::+:

fl::LF:::::
':j:l.F9

04:::=:9

:+:
:+:
:+:

1:~·l·::!,I;:j

(?;I4·41

OPTE:L

~:'144;;::

0443
0444
0445
0446
0447
0448

01FA
01FD

40

TE:'::T ", t"IOV ",

00

8'T'TE t1,. :::-C:l::t,. 1

i?1:tFF

CI~;I

I~UFF

1~1:1

0200
0204
0206

40
0001
4C49

o .;:: I~j :~:

13 ('1 ~:ll:j

1::;I.?r::lf:'

020C

0;:;::0.:,\
41

(:j;?t;'I!)
,;:j :::: (:;1 E

13 (1

\~j;::::CIF

('1(;1

~:1;?1 (1

A~;j

OJ,

~:j:::12

·1-::1..42

O,~:::1

..

04",:;:1
eI4:;:i;?

"\

::::

(~II;;'I (31~1

~:;I;~:l.C

0;;:::24
·::1,1

(1244

1;'1·::1":5::':

fo'

4;::::4C

0240
0242

42
0402
42
040A
44
050A
54
110A
43

I;:" ::::: .;I~~,

I) (::,

((>·:f·:l,

ijC'
CIO

0454

022H

84~5

022E
8230
8234
0236
023A

8456

0457
0458
0459
0460
8461

0462

'::;II~'tOf?1

E:OO:L
4:149

02:1A
(::f;?:LE~

0~.~L

;;:1;::"',':;

TE>::T ", t'10VE: ",
DATA )D~::ttl1
DATA /LI/.O.)0204

C1/?1

Ij?:.Ll
f12:14
13;::::1.6

(

OPERATOR MNEMONIC AND DIRECTIVE TABLE

i:::I:~::'::i·~;;

:~;:~::1

,':,;? ,J?

CIL

i?1.::-';i,f:,

(11:::1 C'! 1:::1

(I.::' "I, C

9 (j (j:1.

el . ,::' 1F

'~I'::,'l<::'

1<1;/'-)'·)

(1eji?j(:~i

,.1,":'

,':;,:::::::::'1

TE:O:;T ",:::'I',m I ",
[)r'1TA :>244
DATA ?BL/.O.)0682

TE:402

rE::4~:~A
TE::~;:ielfi
TPn' " TE:: r::' T ,:::, ::: '1::1.. (I A
BYTE

~C?,0.0.0.)80.1

GATA

~CI'.0.>0284

'TE;:.:;'r 'Cl.. F.:'
Ff'r'TE

·.· · ~·c
O
'r i

~J.

4,. :>C2

()L.j.

.'.,

ilLM

>

,"

4.u.

.z." L

$$.$XP...

_j;;:;;4A¥k#.¢24. __ -'- _ "MA2$R J A4 .

. .omau

_.2!YtW!l!.14.4

F':";,F::J~:I':::!'i

!)AT ':::1

0"

,/::::1...::1..

I~:: H ::::: F.:

~:)

'::146-;:"
1346:;::

1'1' : 44 : :W

197.·..'76

PAGE 12112112

94H9;;::~'-::;:t9~:H**

: : ' :;
~"i

C;?

1~':;:'5A

44

TE::n
DATA
TE:';;T
8'T'TE

~3 ..

6 .. ;;::

. ' DECT ,.'
)642

." DEF ,.'
121, 6, :>A

~'26A

13:;:::6E:
I::H?::~:
1~1':+ ·(".:f

~:'26F
~3:? 71;~1

J;:.H3
I;:,'IF

~::1~:;::?::I.

(:1 A

~:)4 '?~:i

r:)·::I··?6

I,

I

~::1:;::

'( ::::;

~?lA

~:;2,(?

I2It'1

i~;I::j. '?~:~

t?1~::7:=:

.49

~j4 7::::

121 :~'78
12127(:

~31a

12I!5

1)479

~,;;;::'?E

49

ei4::::~:)

f:~~~::::::2

1~15C::2

0,:+:::;::1.

~::1;;;:::;:::4

4A

(1·:1·::::2

~7i ~~~ :::;:

7

~::1I?1

1:)·+::;;:3

~J2:::::ri

,?,1:2:::::[)

(II::,

1?1;;2:::E
I~:' :;~ :;::: F

~:) 7

4A48
~::, 0 f:'I 121

fi.?·~kl

IF:(:f?

n~p7

8296
8299

4A
08

1·:';~::::4F;
;:'·i·:·~::.:

Ci,?::~'C:

f.:'I'?
,lfvl (:

1:::12':~F:

01;:'1[1':::1

I)..::' H f:)

:.i.. H CI '?

':::"1 ;..;~'
:':'I·i ::··e!

! .:j \ .!.

';;:, .!..

,'.;....:...:

""'j.

j:?t':I.,:::
(I.?f::l:::-:l

e: ;,:.':

~:I':~~

ij.:·::!'·:,F:

TE:>::T ", INC'"
8'T'TE l3,. 5,. ):=:2
1Ex:T .. Ir-JCT'"
DATA :;:.~;C:;2
TE:'~T ,,' ..:rEG! ,.'
BYTE 121 .• :;:'1.3: .. 7
'

TE::1.~3,. 7

J5

(:);? :~, :::::

04S6

0290

TE:x:T "'EQU'"
8'T'TE 121,. :>A,. >A

:1.:;::
121?
4A

0·:1·;::::·::1·

0485

~

I;:)

~3;;~76

132;:::::;;:
el ~::. : ; : 9

0

~~~

TE:x:T ,"F.:EF'··
8'T'TE ~3,. )-F .. :>A

TE:::.1.2 .• ?

fE::1.:1.. .?

n::: ;:':; T' 16. 7

(~;?E:E

fl;?E:F
~7;1499

~::12c:t2t

~?r':::i 121121

(1 ;;:: c?

TE:":1' ", J'NO ",
E:'T'TE 0, ~'19,. 7

~::'1:~:C4
O~:;f1:1.

la:::C6

I::; 50:?

(~:? C' ':;t
(~2CI::i

02C:E:
1~~!5 1::'14

121 2 (F
~7.1:':;:: [) .:1

::It::
1;::17
''',FI

TE:'::T ", JOP ",

12I~?I

B'T'TE 121,. )J..C,. ?

1;::1;? D ~;::

:1. C
07
5254

[t?D4

~:;om?1

la::;~D6

04~iE:

~~:I;? [.1::1

[I"::i (:~ ~::i

TEi'::T ", Joe ",
E:'-r'TE ~3,. >:t8,. 7

DATA

~RT~.0.)0458

(::i:::i(::lt:::
050;::'

(1;2[:,::::

::i;2

020C

0380

[lATA

:> 3:::;:0

o ':::i(:;:::.:

la;~:f)E

'53

BYTE

~S~.0.0.12I.)60.1

1'E;:'::T ,"RHo.IP'"

fi;?DF
02F~:;

CI;?Ft
CI~?F,;::

(12F::::

02[:::;

'(1210:1

':::,:':i'i.FI

O~:~EA

<,~<~,

':Y:::::LJ

~:;.;::E[:I

1::;11;::1

I:~I:?EF

~::C

CI::"i:.L:?

f~I;?F'i::~

;,:1

CI;?F:::
!21;?F·::j.

TEi 3:C,• .;;

TE:':;1' ", t'IP'T" "
8 IT'TE ~:'1,. >38,. .;;
..::::::!

Ij;?F'::"i

TE::-::T ", ~::'LA ",
8'T'TE ~3,. >A,. 9

TE;:,::r "'SFi:A'"
E:"r'TE .::;1,. 8,. 9
1::j:::::I~:ICI

(:'i::CI:i.

0::::;
1;:'19

TE:E:. 9

o

lE:";T ", ::;RL ",

.. , .$ .

A'

4$.

4-.

e

$ .1

.L

. "--', __ apt .

,'$4·,"

I'j I

Pf~I5I9Ia

'·.·'.?I... 1

1-;:" : 44: 1f.1

PAGE 121(114

94::;::9:?!:;i--99('I1.:+::+:
I~~ ~:::;;;:: ::1..

0::;.1:1 E

B""TE

~;).,

9 .. 9

(~1:::: (:j (:

0:::::00

0522
0523
0524
0525
0526
0527
0528
0529
0530
0531
0532
0533
0534
0535
0536

030E
0312
0314
0318
031Ft
031E
0320
0323

53
06(:2
53
3406
4C
3006
53
00

(::13;;:0·::1·

::l..D

0326
032A
832(:
0330
0332
0336
0338

53
02C5
53
02A5
54
120A
58

n::::::;r . ' S~·JP8 ..'
DATA
TE;:'::T
[:.ATA
1'E;:'::T
DATA

>6C2
.., STC~: ..,
>3:41216
..' L[:.CR ..'

TE:,,:r
DATA
TD::T
DATA

..' STST ..'
>;;;::C5

Y?::(H36
TE::-::T . ' 580 ..'
B'T'TE 121 .. >1[:' .. 3:

···SH·JP···
);;;::A5

TE;:.:;r ..' T I TL ..'
DATA

>:t~~f.1A

TE>:;r ..' ::·::op .'
8'T'TE ~?t .. ::>2 C.' 6

(j3:::=:D
(I,,::;::;::::

(I::::::::::E::

ei ::'.~ . : : : ;

t2i:: ·::1· :l.

TE::·::T .' ::·::OF.: ..'
B,,·'TE (~., >;;;::8 .. 6

O:::'i.:;::
o::!:··~?
iY:";':H~!

TE::/·':!

B'T'TE

~;).,

)4121 .. J.

(I::::.;j.:::::

(!:?4S1
,:):";·1·,,':

i~j"::·:I·i::1

!::.::::.

(:,::> i· ?
8544

(J:::: 4 E:::

51~H~t::I..

TE::<:T ..' SZCB ..'
[:;FHA >~50~;)1

0350

5442

DATA

(I:; '5;?

0 (1 I] 1~1
:l F I~j :~:

i?! ..::: ~::; .~.

t::;

~:~ ~:::; ,.j. ~:::i

I;::t ::::: ~:::i

(, ::::; .. i· I':::

(J >.:. ~::; ::~

~T8~.I2t.)lFI2I3:

TD::T ···SOC·"
B'T'TE ~L )EJ3 .. :t

fl:::::':Z:;H

E(:j

CI;;':::;E;:

01
To:;-r "'SOCB'"

01~G

:::1''''':'';1':::
!

o

J'

1':,

0365

00

0:::.1:::;,:;

:.LE

t~;!:':' '::";:::;

,::i?f::;I:::1

j:::i"? .::;'~.:!

,..j.;::~

[:'AHl >F('I~~11
TD::T ..' S8Z ..'
E:',.'TE ~J . :>:1. E .. ::;:

'n::: ::.:;'1"

.' :::; E TO"

i)ATA

:>'('('I~;~

TE:::1.~':~~':'1A
fE;:'::T . F;;:SET ..'
I)ArH :>36~~
TE;:-:;T .' ()t<: I ..'
h'FI"!::::

I;~ ..

2 .. )64

APt.

;..

@&4i_

.J

4#

.. t.;; WCJAi.

_

s·· •. ,&$.

XACitC

-

::1.7 :44::.1.121

P:':1.01:'::10
TE:>::T ·'·UJPI ".
DATA :::-~~E8
TE~"':T "'LIt-n'"
DATA :>3:0:3
TE:":T ·"LIST'·'
DATA )N3A
TE>~T "ABS"
8'T'TE 0 .. O?_ :::-4·2

NOP AND ERROFi: I NSTRUCT I ON FILL

TE:':;T ,.' AORG ,.'
DATA >:t0f-i
BYTE

~B/.0.0.€t.4.)42

1~~3:E:2

o:::;[::::!:
1?1:~:B·':I·
1~~::::I::;::::i

C
.;
~\

0:~:E:6

1"E:'-:;1" ..' BES ..'

el:~:B9

B'T'TI:::~

0,.

;;;~.,

>A

!21:?BF:/

03BB
0:::::1:=':(:
i:;nBF

lE'::T ·'BSS'"
8'T'TE 0. 3 .. )A

O:~:Cf:)

1::'1 :3: C::1..

~::1 f!

43
0380

0583

03C2
03C6
03C8

i~'i ""i ;=::., i

(I :~. C. C:

~J

0585

03CE
0301

43
00·

f::C:l)?
C1 3: I) ":i:

;?Ia

0581
aSS?

~586

43
3: fi (:~

n::::':;T ,.' CI3;O~1

TE;:-n .,' CI:3;AI2t

TE:,,::r .' COC·'

B"r'TE

~~"

)21) .. .:::.

(::11:;:

U::':i:::.:::'

,::oJ·?!::.• ·::I·

TE:>n" ···cze···

Ci'"";;::;;':::

1::'1:::: I>'?

l:::'T'TE

~3 ..

)24" 6

!71":;:[·;:::

03DA
03DE

44
G7GA

059i

G~E0

5S

0~Q~

03E:

08

O";:f',::1

'j,,,.:::

0~S~
G~QG

TE:,,::T .' [:tOPG ..'
DATFI >?~:hi
TE:-::r "'UNL"
B',.'TE ~3,. >L~; .. )A

o
.#2

.$

..... x . ,.• "

_.... M.. 4

F' >-:: F: fi :::; rei

•

C·
121:::;:::)4
~:1~):3~~i

1?:I5::::1t;:
I~:' ::i ~~~ ?

(~~5~~:=:

(:J'599
121I;;O(~

f36F1:1
of:: o;:?
!]6(F:

1::jf::lj·::1
() f~ () :::~;

C·

,J.t

ritZI

l~f::::E9

~~I~'

(::'?EI=i

1214

f:1~~:EB

:::: ;;:~

~:~~~:EC:

44

~?'GFr1

~?:I::::0A

\:i3F5
('eFt::

(3(:)

,a::::F:?

1~19

(I::::F?

~~1A

CI:?F:::::
!?I:::FC
(:j::::FF
[14ft;?

• ·M.1
.::f"'"

r1~:!:41~1

(:~·:'rI4

4::'';1

12140?
O·:l(:H:::

~:1~':'

la4(l9

OR

(:j.::j,I::j 1::1

121·:10[:0

·::1,:;::1
CliJ

(::j·:ll::)F

0:5

.:+::::1

c,,::c!'?

04::[·,1
U4:1f:

(:j::::EI~;1

O·,I,:JSJ
O·:j.:l.r':!

(:)(:1

1:3';:"C;;::

i~j4:I..C,

4(:

O·:i:J.F'

(::1[1

0420

O?::.::;?

;:!61.:::

TE~-:;T
I N',.,'
B'T'TE ~:::1" .••r::'.1. >42
"

1

L F.: D:: ",

TE;:'::T

[:OATA >3:Erl
TE;:'::T
I:::: ',,'T E
l)fiTF=1

4C::

J. ."j

T'F::-:;T
E:\'TE:

"

L.D!) ",

(~1

>~?1?C~~
",

LD:::;

1(;1

i)f:ITt::1

:> I;:~ '? :::: ~::

TE::-::T
E;'T'TE
DHTA

~=:t

CIPTEI"~I)

CI(:l."':;
ell:::::'LI;;

1~~.::I,;?;;::

·::IC

(~':l2o:::;

01::)

'':'

,:='j·:l;?6

~1::~:;?9

06!

",

~:'C:

.::j.;~:

(;'I!:::; 1. (01
(:1":;I.J
I?! (:; ::L :?

TE::':;T "'EVEN ",
DATA >8~:::1A
TE::-:;T ", I DLE "
DATA >3:4~:::1
'fE::,::T
r DT ",
B'T'TE t1,. :>C: .. >A

IZlB~::1A

4e

(:; ;: :

TD::r ", D;:'~OF' "
DATA :>E:€1A
",
ENC) ",
TD~T
BYTE r1, -'C! .- ::'--A

45

(:i·::I,::t.el

CI~::;

".'i.\
'-"

I:KI

~~:::::E::::::

OC(I(:;

j:'!(::CI9

\

Ij:~::[?

04f7:IF

c~ ~~;

'

1. '? : 44 : ~U:,~

F:R::::;F

l)fITI=1

I...J·IF

"

:> f.i:3:;2 ::=!i

:1

F':',':Rfl:;:::!,j
!"'lA I N OP I I,,..F.];;~

1. 7' : 44 : :H)
94:;;::925···991?1:1.**

~"'2L1.

•

o

0620

062:1.
0622
062?
0624
0625
0626
0627

:+:

*

~:~6~7:~f::

1313013
13131313
0000

IZl6;;?9

~::t43:2

0€100

1;::163:121

~34 3:4

00~H3

~363::1.

0436

130013
~::tB~::H3

~~1633

(143: :::::
~~14 3: A
1::.143:C

04 3:E

0€H~11;::1

063:5
1363:6
136:::1:7

WORKSPACE AREA FOR MAIN DRIVER

:+:

0428
042A
B42C
042E
0430

~363:4

PAGE 131317

:.1.97' ....'7'6

0000

MAINW
NWVL

116E~

~"3~::H~H~1
000~"3

~?I44€1

B~~10~~1

f144:=2

(10 =~: 8 ..'

1216?::;;::

€1444

r16:::~:9

~34'::f·6

186A'"
~='ID6E . '

PCVL
NSMBL

DATA
DATA'
DATA
DATA
Dt1TA
DATA
DATA
DATA
[:IATA
[:IATA
DATA
DATA
DATA
CIATA
CIATA
DATA

Re

0

GETCHF.:
13

R:1
R2
~3
R3
13
R4
13
R5
13
R6
~~1
R7
0
R8
13
RSt
13
R:1B
0
R:1:1.
13
R:12
S'T'MBOL+SYMNM+SYMNM R:13:
PF.:NTL.N
R:14
C:iETSVL
FU5

NWVAL
GETC
CHAR
RELABS
PC
ZCK
SNAM
NWS'T'M
SPTR
NULL S: I/O F.: TN STATUS
SFLAG~D8RN, IOPARM
T'-r'PE
S'T't'1NPT
PRNPT
C:iVLPT

o

o
"

.-

" " . "_a __~ _.- .

I.#;;..M-

P::<;F.:A Sr'1

...·'2Ll

C;·
,.

*'
*'
*'
*'

064:1.
1~16.::f·2

121643:
~~644
~?1645

f-1647
121648
121649
~365~1

121651.
~165;;::

€1653:
~3654

121655
~1656

121657
121658
0659
~~~661?1

~?I66l

06':;;2
~~1663:

121664
(3665
~3666

0667
~366E:

13E:6:7.'
01':-:;7~3

12167:1
~?l6'?2

0448
~344·A

06'?4

TITLE:

1?144C
r144E

:197/76

PAGE 0018

02E0
0428 ..'

START/PXRASM
PXRASM MAIN DRIVER

REVISION: 1213/1211/74
ORIGINAL
~?t3t,,·':15rI76

*'
*'

€1646

121673

1. 7 : 44 : 1.121

948::;':25-99~?I:1.*,*,

1'1fiIN OP!".·'EF.:

MODIFIED TO RUN WITH PXRMTR
*' COMPUTER: 99121. ASSEMBLY
*' A8STF.:ACT: START BRANCHES TO INITIALIZATION ROUTINE
*'
FOR HEADING. MEMORY SIZE. ~ND PREDEFINED
*'
REGISTERS FIRST TIME PXRASM EXECUTED AFTER
*'
LOAD. SU8SEG!UENT E:>::ECUT IONS BRANCH TO pr~RAS"'1.
*'
PXRASM CONTAINS THE CODE FOR INITIALIZATION
*'
OF FLAGS AND BUFFERS. AND THE MAIN DRIVER
*'
WHICH IS RESPONSIBLE FOR THE GENERAL
*'
SCAN OF AN INPUT LINE (PROCESSING OF
*'
LABELS AND EXAMINATION OF OPERATOR
*'
FIELD). AND THE BASIC CALLS TO IDENTI*'
FICATION AND PROCESSING ROUTINES.
*' CALLING SEG!UENCE:
:+:
NON-CALLABLE
*' ADDITIONAL NOTES:
*'
WORKSPACE = MAINW(SHARED WITH DIPR)
*'
SHARES MAINW AS A WORKSPACE. PXRASM PERFORMS
*'
ALL NECESSARY INITIALIZATION TO KEEP PXRASM
:+:
REENTF.:ANT.
*'
f<~CII.JTINES CALLED: PF.:INT . PRINTN, KEY'IN . OPEN .
*'
SYMCLR.RDRCD.LKCHAR.PRNTLN.SCAN.SRCSYM.
*'
GETSCT.GETSVL.GETCHR.ER2.0PSRCH.AEVEN.
*'
OPTYPE.XOPG.ER6.AEVEN
CtEF F'iSf···IC:SF::
ASI'1C:;R
STAPT
l...f.·.IP J MA I Ni·.1
INIT WORKSPACE POINTER

1?16AI?I

:tA6C:,"

ElL.

f!-lINIT

INITIALIZE PROGRAM

I.... 1,.'11

~:

HUT

L.I

IOPARM.LFCR

Ll

10PAFn'L

121675
~:f6'?t:~

t?i6'?7
~?;tS'?!:::
;.?lt~'?~:~

~?14~5~:::1

02E~:j

I~H':5;:;::

~:~428

(:J454

r:C~.3(3

~?I456

~?1(302

~3.:l5E:

(32~?lt1

f145A

I~H.On

12t4~)C

f~ ·::I·;? J?I

(1·:i5E

:l::::tCE

1~14t-:;f2t

I::; 2 (:, f1

.. '

..'
,

..

(?il;::;:~~j~:i

i::!t;:~::L

ENNiCT

04t;2
(:~

t:: :7.; ~;:~

STFHUS

13:H:'1E ...

~?I4t::4

~~14:~:t?1

0,::1·66

:1.::;:'06

,;,1'7 :::: ~;::

la . :i6::::

(1.?f;~114

f(17C

~16'::;4

f146f.!
!3·:lt:C:
(346F

1...1

EN[Jj··"ISC.1

PRINT END MESSAGE

INPUT F::ESPIJNSE

.'

1~1421?1
J::::~::::A

o
A#

.. #"'##4-.

P:'-:;PASt·j

I"1A I N

OF.~ I

~:;471~1

~3 !:;: ;;: t2)

~:J4 72

f1:1. 7C .,'

121474
f?t476

~~1t21t211'"

~~1686

0f~;e:7

~347E:

i?16:~::5

0

'...'2L:1,
17 : 44 : :1.€1
9489;;;::5-99121:1**

'·... EP

t2147A
0688
06:==9

~348t21
~369:t

~369~~

1214:;::2
04:34
121486
~:1.:~8:::

048A

9:=:20
t21:1.. 7C'"
~3~3@:3 .,'
16EE
C2At2I

.JNE

5 1.,.1 C=

EN[:'A
@ENDPf':G

NO
END OF PRO GRAN SUPV CALL

C8

@INSBUF, @ASM

IS IT ASSEMBLE?

.JNE
NOV

EN()ACT
@C1LUNo.. IOPARt'l

OPEN CASSETTE

tKIV

'C;~:Ala
~?tI;:162

1.

~:'1694

~3492

:1.964 .,'

@C2L.UNO,. IOPARN

OPEN CASSETTE 2

.,'

(:'14~~~:1

BU·JP l!':lOPEN

1-3695
f216~76

"'"'""

06:;t7

*

,+,

€16~3::::
~3E;99

C~!
,,Ii

I SIT TERt'l I NATE?

BU·,IP @OPEN

~:)4:;::C

1?1~::'\~~2

f!iI NS8UF .• @TERI'1

0420
:1.964 "

048£
1;:149(3

1?1~::·~::1:1.

C[:

~3~:::16t21·,

~7:1693:

(3'7(:'1(3

PAGE 012119

EN[:'A
~347C

f347E
12169~3

161?'1;;i:
2FEI;:1
121064'"

:1.97"'''76

INITIALIZATION OF FLAGS, -BUFFERS,
BUFFER POINTERS

AND

EII=JTCH
(1494
121496
1214-::1:;::

1::::~i6'"

1Z!49~i

Jr:::;Et>'

(149C
(:'49E

I~J51:1f::t

f?l 5 FK1

INC

I]tLIST

INC

@OTWP+NCONS+NCONS SET NON-CONSECUTIVE FLAG

SET LIST FL.AG

(::14E~:1

CLEAR ERROR COUNT
CL.EAF.: LINE (:Ol..,it'rr

(3.::/,A;?

IZlB44 ",
f7:14Ef1
:V59121 ,,'

1~14A4

(::t4E~:J

CLEAR PAGE NUMBER

1Z!4A~::;

:1.!::'i~:;:I;~:

1?17(35

(1·q·Af.:
f34Ati

~J'?(::t6

~34FIC

(3 '?f?t ?

(:J·::f,AE
1Z!·:tE:!?1

12I4E(1
1..:1..C8 .'
f7.14F.)3
~3:1.I?1C ,,'

(:'1'707:
l~q(N

~::t4A(:'1

12148<7::
~'3.:.1B4

121 7 f?l8

12171219

",

C:::::;2~'3

I~F1E:RTFL

CLEAR ABORT FLAG

MOV

@LFCR.@lERADD

TRUNCATE LAST ERR MSG

LI

SPTF.:,. OBJRC:(:O

INITIALIZE OBJECT RUFFER

MOV

@OTBWP+ZZERO+ZZERO,NWVAL

,.'
~7.1f.1:l.E ",

~:J4E:t::

121 ;;;:: ~:~ :::

~34B8

~?lI?t?·::::

.,'

04BA

Cr1;~~f:1

~?t4E:C

:l '{[:.;? ",

f7:17JI2I

~34BF.

C:H~~'t

(3.:.1,CI~1

CEf.n?i

l~j4C?

r:oEf1~::1

~:17::I..·'I,

,::'l4C:4

~j·?·t

f14C6
1::'10::/,(,8
'::1,4CA

['F;;:::';:"
l'('OC'"
121:;;::::::::::
~:11::1F~ "
:L:LFB
[:':::::20

~?t'?::1,:::::

<",f

eLF.:

~?I:H7.1~.3

07:1.1
i?i';-:'J ;?

t::~

CLEAR DORG ENCOUNTERED FLAG

MOV
NWVAL.*SPTR+
MOV
NWVAL,*SPTR+
MOVB NWVAL,*SPTR+

ZEI:;':O PF.:O(JPfil·j LENGTH

MOVB @BL.ANK,*SPTR+

CLEAN OUT OBJECT BUFFER

Cl..F.:BF

rCJ,::::

~]4CC

(:17'].(='

1:::14CE

CI

:::;PTF.:,. TPACiE

,J"-.'r
CL,RBF
t·'I(Y...'E: I]iFF. (i~T I Tl.. E

0
.4

$.. ; .

aWltA.-Al.t_

. P~<:IOi:ASt'1
J't1AIN DPI'·... EP

07:1.9

.,'

04D~?1

~?1 f.11~15

la.::I·l);:;~

~::HX:;?'"

k14[:.4
04D6

(::=:20

~?t40::::

:1,6EE"
04E~?t

~?14[:'C

:1,7[:'S"
04Ei21

LI

(::::08
1:1.86'"

~?t4EA

C:::21~~

~?t4EC

~?I006·'·

~34C4

~37-'~;~5

~34F2

(:::::~:.'t4

~'HF4

0(::1.:::'"

~34F6

~::121~1::

~::14F:::

~3~3k1l.

12t4FI=t
04FC

~::14E~::1

1~14FE

~?1;~:08

~::1~:'if~1f;~1

~?1f.1A0

SPTf':,. FRT -:1.

INITIALIZE POINTER TO FRT

~:;?:::::f.1

~?t~)~?1~'2

12t4 F:':::

l~r?~i:J.

~:~504

:::::=:f2l:;::

MOV

@SYMTBE.@ENDST

MARK END OF SYMBOL TABLE

CLR

PC
PC., 1]lf':ELPC

INITIALIZE PROGRAM COUNTER AN

1...,0 V

LI

REL.A8S . :1.

RELOCATABILITY VALUE

CLIOi:

1]lF.:CDCNT

CLEAR RECORD COUNT

1... I

SPTF<: . FF<:T

CLEAR SYMBOL TABLE

CLR
C

*S:'PTR+
SPTR.@ENDST

,TLT

CLF.:S

::I..:=:6~:··'

,~,'?2~9

CLRS

05ell~:

~::183:E:··'

O'::'I~~::::

llFC
AF.:EI:1/:)

(:1;:'::~:,:f.

3: ~~:;

:+:
:+:

1:::1~7::;:1:'::

:+:
050A

REAO AND PROCESS A RECORO

02E0
,.

~Y5~7:IC

~N;?:='::

0S0E

C160

~)~H0

12t~::1E;C

0739

0512

0740

0514

1305
e160

~3!:d6

:17'[:1::: ,.'

0518
051A

1602
0420

0741
0742

CLEAR BYTE FLAG

MOV SPTR.@FRWP+MLBPT+MLBPT

~:~4E6

04ES

0K;:8"

0738

@OT8~·JP+B'T'TFL+BYTFL

CLEAR NEW FWD REF FLAG

~.3;2~)S

f.14F~::1

07?7

CLR '

0€19F

04EE

~:'17t

@08JSTP.@OTWP+08JPT+OBJPT

~3~:.'t6C'"

~3724

O'?:?;?
121'?:3:?

MOV

~?t8D6·'·

~?I4DA

(14DE
04E0
04E2
04E4

0020

948925-99~)1:+:*

•

o

Pf"iGE

17': 44: 1.0

V2L1

HAVE ANY FWD REFS BEEN

MOV

@NEWFRF.ZCK

.TEC!
NO'·...

NO
@OTBWP+BYTFL+8YTFL.ZCK

.JNE
BL.I.·JP

FtP;;~

f~S'T't·1CLF.:

NO
CLEAR SYMBOL FOR RESOLVE

SET FIRST-PRINT-OF-LINE FLAG

RES~D

",

CONVENIENT TO RESOLVE?

(:;5:1C

I2tOF~:"·'

0741
0744

051E

05A0

INC

I]lFSTF'T

0745

0522

04E0

(1C1C .,'

CLR

@SCWF'+INC5C+INCSC CLEAR INSIDF-STPING FLAG

f.1~:).?4

0526

04E0

CLF.:

@L.ABSN

t?15~?::::

::I..~iA6

052A

(;804

[1~'.i;:;:'C

:1 :1.BA ..'

8746
0747
0748

AR2

CLEAR LABEL SEEN FLAG

/

052E

(;820

f15:::0

:l,:::::4F"

INITIALIZE PRESENT
MOV

pc

@L.NREG+RD8F+RDBF.@SCNP+SCPT+SCPT

o
u

.. #..

.

MM¢£¥ ..

4

t. _

_ .... "...

A:

P>::PA:::;:I"I

NIPA99~~1

'·... 2Lt

!'lA I N OP I '·,·'FF<:

•

o

~:~5?::;::

0749
f175~-::1

0534
(35:::::':=::
05:3B

0751
0752

REA(:. A RECORD

::l..90A . '
~::1420

E:U.·~P

I]lLKCHAF.:

LOOK AT CHARACTER

053C

0282

CI

CHAF.:, "'>t: . '

IS CHARACTER AN ASTERISK

~~5~~:E

~X1;;~A

0540

1604

.JNE

APF.:OC

NO.. PF.:OCESS LINE

APF.:LN
APEPLN

~:q54

0756
0757

PAGE 002:1.

::197""76

**

I?tC:1.6··
0420

~:r;::'53:

0755

:1..7: 44: :H3

::;'4:::::92 S-·991;::1:l

0542
f1544
0546
0548

02E0
04;;::8 ..'
041E
10E0

REESTABLISH WOPKSPACE PTR

Uo.IP I !'lA I Nlo.l
BU·JP >t:PF.:NPT
..H1P

PF.:INT LINE
F.:EA[:' NE::::PA~:::;I"1

::I..?: 44: ::1.0

r'HiI N DR I '·,o'ER
•

0787
0788
0789
0790
0791
0792

058C
058E
0590

1"1 ei '. .'
JNE

C0CJ
1601
05C0

PEL~7iBS. F.~EL.f1t::S

IS SYMBOL CODE RELoeATABLE

FIRE!....

I t·JCT t·H,J'·... AL

NO. ADD TWO TO FLAG VALUE

AREL

0793

0592
0594
121596
0598

0AJ0
0420
(1D5C ..'
E020

0794

059C

1008

BUjp

t·H·JVAL 3:
I]tGETSCT

SOC

@SYMBOL+COUNT+COUNT.NWVAL

SUi

POSITION FLAGS
GET SYMBOL COUNT

PLACE SYMBOL INTO TA8LE
ANTFNO

0796
0797
0798
0799
0800

059E

C020

~::15t10

~:'1D3:E

05A2

0220

~:15A4

FFNj

@SYMBOL+NWSCT+NWSCT.NWVAL
..'

AI

05A6C0CJ
05A8 1602
05AA 0220

0802

~35t-::'C

f1~'Jlf1

05AE

C220

1215B~3

1]03:,'2 . '

t;;'1:~::0::~

~:'15B;?

f:I6C0

~:'1::!I]4

1~~5B4

[:'60121

O:::::I2I':i
Of::(:~6

1],,:;F:t:;
W5B::::

O:::::~:'f?

~3I::'i8~i

C::I..9D
(:5:::;:4

O:::::~::IS

1?1~5BC

C:::;:1~~8

W')F:E

~:'1f~6:::::

f1:::;:(19

05[:1]

(~I'SAt21

MOV
.JNE

PELA8S.RELABS
ANF;2

AI

W·J'·... t1L ..

...IF'E:
I"IO\,'B
E::i. J·JP
MOV
i·IO'.,.'
MOV
~::;;I

(:~':l:l. F

MAPK AS

):1.Jj

r·H·j',/AL
M·.j'·/Al....

OEF~D

RELOCATABLE

IS CODE PRESENTLY RELOCATABLE
'T'ES
NO. MARK AS ABSOLUTE

PLACE NEW FLAG IN ENTRY
:+SF'TF!:

:+:C;'·... I.... PT
*SYMNPT . SNAM
PC . :·I·::=.;;r·4AI'·'
SPTR . @LABPTR

POINT TO SYMBOL VALUE
LET PC 8E PRESENT VALUE
SAVE LABEL ENTRY

.'

SET LABEL SEEN FLAG

li:::iFI6"

*
PF:OCIP

O:::;:lCi
~:~ :::;: ::1. J.
I] :::: :I.. ;?
(='1::::::1 :?
O::~:J.4

+

END OF LABEL PROCESSING
PROCESS OPERATOR FIELD

.'

Hi i...IP :+:(iETC
CI
CHHF(. :::·2(1

(lET C:HFIF.:AC:TEF.:
1:=;: ':::;'r'i·IHOL.. f~1 bL.ANt:::

JEI)

f1f·.I::':;CHI:;::

[:I..~·~P

li~IEF;::?

YES.. (lET NEXT CHARACTER
::::;l,.'t·JTH;:'; r::F.:PCIj:;::

13:::::I::=:;

W::iC4

1;;)·:1:1.::1.

0816

05C6

0282

8817
0818

05CA
05CC

138J
0420

~:l~:;CE

m:::·::j.E·

0819

05D0

18B8

PRINT ERROR LINE

0821

05D2

0420

LOOK HT CHARACTER

8822

05D6

0282
1](10[,

1'~,::~:?7:

O'SD::::
CI":il)H

0824

05DC

0420

0825
0826

J

-::.[::~.

0'5[+::

\~:IC;:?C"

0SE0
0SF2

102A
C820

O~:iF:4

1?IC:l.2··
I J C: 1:1 .

(I '") ~:t:;

YES, LABEL-ONLY CARD OR BLANK
NO, GET OPERATOR

.TE·CI
F:L i·~P

HF'F:LJ~

JMP
NOV

QPERX
NON-SYMHOL IN OPERATOR FLO
@SCWP+RESLT+RFSLT,@FRWP+OPWRD+OPWRD

(~p::;cr1r·.1

o
$. .

.._ 44!

F¥L..I.

$$ " __

'e_.

_____

-JII,.-J 4tEiM4l&.bU.X.4L.. ,;

_, -, 44 I 4

- L #. AM,·'

f XI

-

P;:2~:'1

OPERATOR NOT IN TABLE
GET C:HARACTEF.:
IS THE CHARACTER A BLANK

JEQ

CLROP

S~~RFX

:5 'r' t-H A;:':; EF.: F.:OR

MOV

@ERFX,@FRWP+OPCODE+OPCODE

ClR

@FRWF'+BRANCH+BRANCH

r

@FRWP+BRANCH+BRANCR,@TENS

SET NOP

~::161~~;::::I~(:;:91~1···

(1 :~::? ::=.:

...

~:~t;04

tJ.C;~~

1::'16 (1 E:

la .:+ E I)

(:~60::::

1·i.. C6···

CLF.:OP
1)6121C

c~:
-"'' '

~~:WI7::::'··

~16 ::Ila

::I.. ::: ~~:I-:l

JEI)

~KIA!)J

(16:.1..2

OE;A(1
m-=::l(1··

BL.

f~AF.""'Fr·~

E: L. 1.-.1 F'

(ij CI

1~)::::4:::::

(::16::1.4
(16:1.6

YES, DO NOT FIND WORD BNDRY
GET WOR!) BOUNDARY

C::::::~:'14

1],::1:::::

::L::LBA··

~16::LA

0420

061C

:L?·?C··

1~1::::44
121:::I::i·~5

D I F.:ECT I ',.,IE?

::I..:LC6··

~)~:::OE

0:;:;: -::I·:l
1:::1:=.::.:1-::;::

SET ZERO BRANCH

r·,IC)FIC'J

F' T 'T' F- F·

Ij:::::-::j.I'::_

(16::l.E

~~':+E;~:'1

~lE:~::~:3

050A···

~::1:;:;:49

~1~::;::::2

~::14~:;;:0
~?:t[:t94

121:::::'5~1

(16;;:::4
13626

l~i::::5:t

(16;~~:=:

~::1!::::47

F:

NOOF'F

1;;.1:='::48

SEARCH SYMROI_ TARLE
...

:lf10?

JMP
C
...

~362A

~3[:t3:6

~::'I62C

I)C.37~:::1···

~j::::5~~:

oE:: ,"2 E

~";J::::5:3:

~::'I63:(:~

1603
0420

~lt7,::;2

149A···

(1::;::54
(1:::::55

06:3:4
(163:6

10F4

~~1:::::~i6

OPERX
NOT IN TABLE / ERROR
@SYMBOL+FLAGS+FLAGS,@EIGHT
IS THIS A DXClF'

0420

1:::16~~:8

~3B5E···

~?16:3:A

.lefE2

OPERX

JNE OPERX
BlWP @XOPG

NO - EPF.:or~:
YES, PROCESS DEFINED OF'

JMP NXCRD
BLWP @ER6

PEAD NE::-n CAf:::[:·
UNPECOGNIZABlE OPERATOR

. H'·IP

SET UP NCIF'

NOF':::::T

"

'-Ii

.WM!i'f.fAMQ1; _

.

l€¥ _8 _ ... _ .4

,.

:17 :44: ~W

PAGE 121121;;::4

:1.~~71····76

DIRECTIVE PROCESSORS
•
DIPR
DIRECTIVE PROCESSORS
REVISION: 03/0:1./74
ORIGINAL
03/:1.5/76
MODIFIED TO RUN WITH PXRMTR
COMPUTER: 990.ASSEMBLY
*' ABSTF.:ACT:
ALL DIRECTIVE ENTRIES IN THE OPERATOR MNEMONIC
*'
:+:
AND DIRECTIVE TABLE CONTAIN THE BRANCH 10 AND
:+:
AN OPCODE ENTRY EQUIVALENT TO THEIR DIRECTIVE
:+:
NUMBERS, THIS IS USED TO BRANCH TO THE PROPER
:+:
DIRECTIVE PROCESSOR, RETURN FROM ANY PROCESSOR
:+:
IS EITHER TO 'AREAD' OR 'APRLN' IN DRIV99 TO
:+:
READ A NEW RECORD OR PRINT A LINE RESPECTIVELY,
:+: CALLING SEG!UENCE:
FROM OPTYPE ONLY, THE CALL IS PART OF THE
*'
:+:
OPERATOR CLASS BRANCH TABLE FOR WHICH THE
:+:
TENTH ENTRY IS DATA DIPR
:+: ADDITIONAL NOTES:
WORKSPACE = MAINW ~SHARED WITH START/PXRASM)
ROUTINES CALLED: WDE.GETSVL.PCPRN.EXEVL.
:t:
TRUNK.BINHEX.OUTBYT.PRNTLN.NXTFLD.AEVEN.FXPR.
:+:
OUTOBJ.SCAN.SRCSYM.ER5.ER2.GETCHR.SYMCLR.
:t:
CLROBJ.OUTSYM.REFDEF.LKCHAR.WRITE.BINDEC.
:+:
PRINT. GETSCT. ER4.PGHDR.OUTNW2. EXPR
DIPP

l::1B59

C·'·,"

:,'

:+:
:+:
:+:
:+:
:+:
:+:
:+:

t'l:::::61;;)
~::1::::61.
~:::1:=:63:

';:H'::64
~~1:::65

~3:=:66

121:=:67

..:::1::':::71
1Z1:=:7;~:
~:::r:::::73:

0:=:74·
1:):=:75
~~1:=:76

~:1:=:77
~:1:=:79
~1:::::::f~1

f1::::::::::1.
~.::t:::::::~t

~:1:::e.:5

0886

C:

12t63C
f163:E

TITLE:

121 2 EI2t
04;;::8 ",
:+:
:+:
:+:

0890

0640
121642

D2A0
::L:1.C2 ",
'Z197'A

SPL

C~:;::AA

1"1 C) ",,'

~::r891.

~::1644

~'3:::::92

0646
(164::::

(:'t64 A",

12189:3:
f1:::::94

~:::164A

~::r45A

JI"1F'TE:8
~::164C

'.:JE;~::'2

,,'

C164E

~:::16E:A

",

~::r65~:::1

~::16D4'"

~?tE;5;::
~::r:::::99

(1654

09CH]

~:::1656

~]766'"

~:::19(31

~:165:::

~~1~?9:=:

09'~12

'~)t::~:;A

~::17C6'"

o:~"'~:r:::

~:::i65C

:':)::a)t=:"

~:1904

t:! 9 0::::

065E
r:::166('
';l6t;;?
0664
121666

:::1 (:j ::~

~366:::::

09(16
(39~J?
(~i

MOVB @FRWP+OPCODE+OPCODE.DBRN

",

~:::1:::::EI)'"

r:::t:CC'"
fi~St~.:.;~

,,'

~?:r9AC"

(19E:2 '

"

~]9Cr~1'"

JUMP TO PROPER PROCESSOR

"

[;OATA
DATA
DATA
DATA
DATA
DATF'1
[:IATA
DATA
DATA
DATfi
OATA
DATA
OATfi
OATA
[:rATA

GET BRANCH VALUE

DBRN.7
ADJUST FOP JUMP
@JMPT88-2(OBRN).DBRN

1:-'-,

f16E2'"
0?:1.fi'"

(39~)5

BRANCH TO APPROPRIATE PROCESSOR

AOF<:Ci
BES

AAOF.:G
ABES
AE:::~::;

?

B'T'TE
DATA
OFF
[tC)F.:Ci

9

FND

11;:1

EO!...!
E","EN

AB'T'TE
ADATA
DFF
ADORG
AD;:::PRESS I ON

...Tt'lP

PRG

PRINT OUTPUT LINE
COl"lI"1AND

AD ...TUST PF.:ESENT PC
~.JELL

BL

1]t~·~DE

t'10V

@EXWP+RESLT+RESLT.NWVAL

GET

DEFINED E::FF

TRUNCATE

121421;::1
I;::1BEIZt···

BU·~P

CONVERT TO ASCI I

~~1428'"

C'ATA NWVL
C'ATA I NS'·... AL
@BL.ANI< .. @I NSVAL
t10V

A8',.'TE2

~371;::14

~~17~36

~::19:=::1.

*5YI"lNPT. SPTR
PC .. *SPTFi:
@PCPRN

*
PF!:OCESS "'BYTE'"
*
*
AE:',.'TE
PC., @PPC
t10'·.·'

CI~12~3

121975

€19'?E:

t'10V
totO V
BL

PRG2

~]967

~:3969

PAGE 0027

~6E6'"

06A0
:149';::1'"
06AIZt
IZtAAE'"

~36DA

~97.·"'76

~490"

0956

121959
09':::';::1

V2L~
~7:44:~0
948925-990~**

12113:8'"
C82121
17DC'"
~3:i.38 ..,

1Zt7f.18

~~16AIZt

1Zt7~3A

149121'"
121584
042121
:1.7E8···
1;::141E

121:;':::2

1Zt71~1C

(19::-::3:

~:37~:3E

(~9:::::4

1~19:=:5

1217:1.<'2
1;::17:14
07:16

~:1~7.1~:::6

~:37:1.:=:

~37:1.~~1

8L

liBINHEX

liPCPF.:N

I~~C
PC
8U.JP I]tOUTB'T'T

1~105AI;::1

BUJP *PF~NPT
I]lN;:'~TFL.D
BL

IZtACC'"
:10E4

.•Tt'IP

A8'T'TE

LOCATION OF BYTE VAL.UE
LOCATION IN OUTPI...IT LINE
CLEAF.: TOP PART OF l·KlF<:D

PLACE PC IN OUTPUT

LINE

AI).JUST PC
OUTPUT 8YTE
PRINT LINE
CHECI< FOR NE::<:T FIEL.D
GET

NE>~T

B'T'TE

o
.. J.

, .. IM .. , ..

. 4. ", ..

:1.7:

44 : :1.0

197",76

PAGE 0028

DIRECTIVE PROCESSORS

•

t19!::::::

:+:
:+:
:+:

€1:7.t:::~;,

':J99~~1

1;:1991
0992

ADATA
071A
(171C

06A0
0811;:1 . '

~:371E

C8~:34

~~1721;:1

118A'"

0993:
~~1994
~:3995
~]996

e:1722

~342~:3

~:3724

~3F42"

f1726

1~X1C

:+:
:+:
:+:

~399:=:

1;:1999
'~~16A0

149~3

10~U

(171~~C;

~:15C4

1~X~2

(f?;2E

~:3202

~~17J:~3

2D2[:O

~373:2

C:::::0~~:

~~173:4

~~1:i3:8'"

~]73:E;

(:::::1-7,12

~::173:::::

~:U3:A'"

f.17J:A

~~i~iAI)

~::173:E

16E6'"
:1 1;:1 €1F

jJ308

~374~3

(1,::j.2~:3

~~1E:E€1'"

HW:19

~::1F22

1.i::U~~1

f'l742
(1744
0746

:1.(:111

~::1748

06A~::1

::l.~X17

1012
101l
1014
1015
1016
1017
1018
1019
1020
11~1;?:1

GET WORD 80UNDARY

NOV

PC .. I]lPPC

ADJUST PRESENT PC

BU·JP

@E>-~PR

GET

Jt'1P

ADAT2

NO

E>~PRESS I ON
F~·J[)

REF FOUN[)

OUTPUT FORWARD REFERENCE
(51PCPRN

PLACE PC IN OUTPUT LINE

INCT PC
LI
CHAFi: . >2D2D

INCRENENT PC
PUT IN MINUS SIGNS

MOV

CHAR.@INSVAL

PLACE INTO OUTPUT LINE

MOV

CHAR.@INSVAL+2

INC

@OTWP+NCONS+NCONS SET NON-CONSECUTIVE FLAG

ADAT;;:~

CONVERT TO ASCII
,'

DATA EXWP+RESLT+RESLT
DATA INSVAL
BL
IpPCPFi:t·J

~313:8'"

~:174A

149~]'"

074C
074E
075(1
0752
0754
(1756

05C4
C160

EXPRESSION RESULT
INSTRUCTION LOCATION
PLACE PC IN OUTPUT LINE

INCT PC
ADJUST PC
MOV @EXWP+RELVL+RELVL.ZCK
EXPRESSION TYPE?

~~1~?58

~~1F2:=: . '
ll03
0820
lt16E: .'
~:3:13:C . '

075A

0420

075E
0760
[1762
0764

041E
06A0

.JEG! A[:'AT3
MOVe @QT.@RELMRK

ABSOLUTE - SKIP
RELOCATABLE - SET APOSTROPHE

BU.IP I]tOUTOE:.J

PLACE OBJECT IN RUFFER

ADAT3
ADAT4
t~ACC

PRINT LINE
CHECK NEXT FIELD

BUJP *PF.:NPT
BL
I]lN:>::TFLD
,,'
.JtolP

l~~IDC

:112122

ADATA2

MORE DATA - CONTINUE

:+:

:l1~1;2 ~:

:+:

:U:::I;24

:t:

PROCESS

~DEF~

COMMAND

DEF

ltJ;?5

1026

I]lAE ...·'EN

.,'

~:373:C
Hj~36

COMMAND

8L

BL

(1'('2:::

072A

1(104

~DATA~

A[:'ATA2

(1997
1~:3~~1{~1

PROCESS

0766

041E

PF.:INT LINE

BU·JP *PRNPT

4##4.. . ..&$.....

A

-'.

• . . Q{

. £¥Mftk,A"

i·.M

i4

A

.. JlM.,1

PXRASM
MIRA990
DIRECTIVE PROCESSORS
:1.(1;27

0

10:~==:

:1e:129

:1(G0
:1e(u
:1133:2
:1((:1:3;
:103:4
:1~.33:5

:103:6
103:7
1133:::::
:10::::(9
:10413
:11)4:1
:1~:::142

:1~343:

11344
:1045

13768
076A
e76C
(176E
0770
0772
0774

0

0776

0778
077A
e77C

e6Ae
0ACC"
:1eF5

077E
07813
0782

0784
0786
~~1788

(178A
e7::::C
~378E

C220
020C
130:10
661ZtC
10F7
~.3420

l.384E ..'
:1eF4

JI"1P AINSYM
BLWP @ER5

SYM80L NOT IN TABLE
GOOD
MULTIPLY DEFINED SYM80L

8L

@NXTFLD

CHECK NEXT FIEL[)

.JNP

[.lEFF

1"10RE SYM80LS

1"10V

@SYM80L+SYMPTR+SYMPTR.SPTR

LI

TYPE.SIXTN

MARK AS UNREF"-CJ E>::T DEF

S
.JNP

Pr'PE, *SPTR
ADEF2

CHECK FOR MORE S'T'I"1BOLS

8U·JP

@EF~2

S'T'NTAX ERROR IN [)EF

JI"1P

A[)EF2

CHECK

-

8LJ..JP @ER2

~37ge

~~1420

~3792

l384E"

(1794

~3460

0'?96

13542'"

PRG
8
*
*

-

CONTINUE

NE~";T

FIELD

SYNTAX ERROR

I]tAPRLN

PRINT A LINE

PROCESS "C'OF<:G'" CO 1"1 1"1 AN[)

:+:

ADORG
0798

~35A(1

079A

1~17A6

07 A::::

~~1C:18'"

f:I7AA

~.372(1

~.37AC

:11C8'"

~37AE

~'36Ae

~37Ea.3

e:1AO:::1'"

:1.(362

~~178;;~

C16~.3
~1F2:=:

:1(163:

13784
(1786

:16~~G

1~?164

t178E:

(14C3:

1~)6!:i

e78A

(146~~1

~::178C:

~369:3'"

~.379C
~~17A~.3

(17 A;;::
~~17A4

INC

@OTWP+NCONS+NCONS SET NON-CONSECUTIVE FL.AG

t'10V

I]tDOF~GFL..

JNE
t'10\-,
JEQ
t'10V

AC'ORG2
RELA8S .. RELABS
A["ORG:1
PC., @F<:ELPC

2CI<

IS CODE PF<:ESENTLY IN [:'OF<:C:r?
YES .. CONTINUE
NO . IS CODE NOW RELOCATA8L.E--::·
NO
YES .. SAVE RELOCATABLE PC

ADORG1

1€15::::

SETO @DORGFL

SET DORG ENCOUNTERED FLAG

8L

@·JDE

GET WELL-DEFINED

NOV

@EXWP+RELVL+RELVL.ZCK

.JNE
CLR
B

RELA8S
@AAORG3:

ADOF<:G2

:1e:16 121
H~61

NO SYMBOL FOUND
SEARCH SYM80L TABLE

S'T'NTX

e79E

:1(159

Jt'1P [)FER
8LWP @SRCSYM

DFER

16E6'"
(:16(1
:1:1..C8···
:16136
ceC3:
:13:02
C8e4

:1t~57

GET OPERAND

·0D32···

le5~.3

:H354
1.(155
:1(156

@SCAN

AI NSYI"1

:i~349

1.(153:

8U·~P

ADEF2

:1~.3.:'JE:

:1(151
:1052

PAGE 012129

DEFF
13·420
0C2C'"
:1eeE
134213
0D94'"
:1..0(15
04213
085A'"

:1046
:1~347

V2L:1
:17:44:10
948925-990:1**

.,'

E;:'~PRESS

E;:'~PRESS

I ON

I ON RELOCATABLE?

YES. RELOCATABLE DORG
NARk: Co[)E AS ABSOLUTE
FINISH PROCESSING LIKE AORG

F~LDORC:i

0
"

.,-:j

~'
_..... p'-

..

,

.. 4$$$ .

,_ En. t~..,.J .31 &It., .#,

.u.

. -.. . .--..- - - - - - - - - - - - - - - - - -...-11
D I REe T r ~/E

o

ll)66
1(167

1'1 I RA99f1
PPOCESSORS

1~374

11376
1(177

RLC;' OF.: C:i
LI

RELABS,l

,.,ARK CODE AS RELOCATABLE

~)460

8

@ARORGl

FINISH PROCESSING LIKE RORG

~37C4

0A24'"
*
*

*'

fl7C6
07(::=:
07CA
1217CC
e7CE
07N?t
~37[:'2
~37[:'6

1.382
1(183:

c

1084
1085
1~JE:6

10E?
10::::8

10~1

1(192
1·:)9:.
10~':i

PROCESS "'DXOP'" CO,.,MAND

ADXOP

07D4
1.379
lf180

PAGE 0010

0203:
0121(11

1~:171

112175

197.,-'16

678E
07C0
67C:2

1(169
1070
H,'172
1073:

V2Ll
:1.7:44:10
948925-9901**

6420
0C2C'"
10E2
121426
0[)94'"
11303:
'0420
085A'"
10DE

BLWP @SCAN

GET LABEL

SNP SYNTX
BLWP @SRCSYM

NO SYMBOL
ERROR
SEARCH SYNBOL TABLE

~TI'1P

ADX2

BU.JP

I~ER5

NOT IN TABLE
GOOD
IN TABLE
1'111L TIBLY DEFINEr·

~TNP

PRG

PRINT LINE

MOV

@SYMBOL+NWSCT+NWSCT,TYPE

AI

T'T'PE .. ->18

SLA
MOV

T'T'PE.. 8
@SYMBOL+SYMPTP+SYMPTR .. SPTR

-

-

-

AD:X:2
~~17D8

C3:2121

G7DA
1:':17'[)C
G7DE
':17'E')
07E2
07E4
07E6
'J7E8
.J7EA
('t7Ee
'J7EE
07FO
.37F2
07F4
07F6
f37F:=::
07FA
'37FC
f17FE

~3C'::$E'"

osoet
138.32
GSf14

022C
FFE8
.::.'lASe
C220
'3D3:2 ..'
[:'60C
0411
(1282
'302C
161)(1
62E0
1256"
06A~)

1552"
02E6
'::''1428'"
.341F
e19[;.
C5AO
126E'
1(K7

10~5

t'10\"B TYPE,. *SPTP
BU.iP *GETC
CI
CHAF.:,. >2C

PLACE IN SYt'1BOL TABLE
GET CHAPACTEP
I SIT A cOt-n'lt'=!

..,TNE
S'r'tH>::
UoJPI OP~'JP

~JO .. S'T'NTA>:: EF.'ROP
ADJUST WOR~SPACE

BL

GET TEF.:fol FOR LE'...'EL HF E;:;:.'PU;:·' '!

UoJP I

r'lA I

N~'J

REESTABL I SH

BUoJP *GVLPT
MOV
*SYMNPT .. SNAt'1

*

l~)Sb

!'lARK AS [>XOP

~oJP

POINT TO SYMBOL VALUE

r'10V

I!lOP~.JP+REGREG""REGF.:EG,.

,J~1P

PRG

*SNAI'l PLACE LEIlEL

HJ ',-,'AU.iE

PRINT LINE

PROCESS END COt'1MAND

1>:197
109::::

RENC'

CliO

BU,)P *PPNPT
1'10\,' I~NE.·4FF.:F., ZOo,

PPINT LINE
CHECI< NE~oJ nJD r.::EF FLFfI::i

1::02
~3 4 2 (1

..TEG!
ENDAL
BU'JP 1]1 S'T't'lCLR

NONE NE~oJ
SOI'1E NEW

1099

\~l::::(;';

'341E

1~00

0808

11f~;1

~~'::;>::1C

1..1>: .::

f~1:::: ~=i E

,-....

-

r.::ESOL",'E F.'EFS

@OTWP+08JPT+OBJPT,@OBJBUF

o
. .. " .."ME

. ow".

Uk;

:

PXRRSM
MIRA990
DIRECTIVE PROCESSORS

'.... ;;::L:l..

•

197,"'76

PAGE 003:1

1211::::08 ..'
1302
0420
17BE ..'

.JEO
F.:FDFF>{
BUJP IECLF.:OBJ

r-.lo - cor-n I NUE

~?t:::::tE

~::1420

BLWF' I]lOUTS ....'t·1

OUTPUT ERROR 1 MESSAGES

~~1::::2~~1

1;;:::1.C···

~~1::=':16

1105
1106

17 : 44 : :t~1
94892!::i-991Z11*'*

0818
081A
~Z181C

CLEAR OBJECT BUFFER

11t;::17

Lim::
1H:t9

~?1:=:;;::2

~~142t;;:1

0E2E'"

111121

t;::1824
121:=:26
~:'i:::2:=:

t;::n37::::'"

:1.:1.:t:1.
:1.112
J.1:U:
1:1.14

~~~;;:~3A

LI

t;::1::::2A

~:)42~~1

~~182C

:1.:1.5C···

~~182E

~~12:=:2

~~183:t;::1

12t0~Z1D

~3:=:3:2

:1.::::1C

~3:::::::A

~~142~3

~Z1:=:3:6

CI

:t115
:t11E;

~38J:8

0::=':3: A

042~~1

~~18J:C

~~1(:'94

1:1:17
:1.1.:1.8

(1S3:E

104B
C1A0

~Z184fl

:1:12.~1

t;::10m;:
:1,·:l46

:1:1.21

~'::1::::4A

C:~~20

~?t84C

:1.6EE···

l:t2;~

084E

DE2~3

~385~~1

~3B4t;::1'"

1:124
:1:125
1126
::L:1.27
:1.:12::::
:1.:129
:1.:1.3:(1
:1.:13::1

J:1.7:7
:1.:1..7:::::

POINT INTO OBJECT
IS THERE AN END VECTOR?

>~Z1D

.JEG!
NOEV
BUJP (~SCAN

NO
YES,

.Jt·lP
EF<:EN[:'
E:U·JP I~SF<:CS""'t'1

NO SYMBOL - ERROR
SEARCH SYMBOL TABLE

CHECK SYMBOL

JMP
MOV

EREND
NOT IN TABLE - ERROR
@SYMBOL+FLAGS+FLAGS.SNAM
CHECK FLAGS

~::12:=:6

CI

St·JAt-l .. S

JHE
MOV

EREND
NO - ERROR
@OTWP+OBJPT+OBJPT.SPTR
YES. POINT TO OBJECT

NO'·... B I]lZZ:1...

:+:SPTF~+

IS SYMBOL DEFINED

MARK AS ABSOLUTE ENTRY ADDR

~:'1:::52

121246

121854

~.::nX12

~3!=:56

1E;~~1:3:

~3:::5:=:

~36(1::::

(1::::5A
(1::::5C

BE2t;::1

1:385E

~::14:1F

f1::=':6~]

~]42~.3

(1:=!t~;;::

~~i:=:66

IZtBEf1'"
(lDJ:C .,'
121(1'79 ..'

~?1:::6:::

~?t;;;::2A

~~1S6A

~~1(1"::15

~3::::6C

CI~lC:3:

O::::6E

:1.602

MOV
.JNE

~::1::::7~:::1

C:1.;;::~::i

1"10'·/

~:~::::74

DEA0
:1.7D2···

MOVB @OTBWP+ZZERO+ZZERO.*SFLAGS+

C:::::~)A

MOV

TEST FOR ABSOLUTE SYMBOL
.JNE
DEC
AB

ENDV
SPTF:
I~Z1 .. *SPTF.:+

YES. DO NOT ADJUST
NO. ADJUST FOR RELOCATABLE

~3(16E'"

ENC'··...

t1864

BL~·JP *G'...'L.PT
BUJP I]lB I NHE;:<

POINT TO SYMBOL VALUE
CON'·.·'EF.:T

SYMBOL VALUE TO HEX ASCII
DATA SYMBOL+VALUE+VALUE
& STORE IN OBJECT RECOR0
DATA ORJRCD+l
AI
SFLAGS .. 5
MODIFY IDT PLACEMENT
NOE'·.·'
RELABS.RELABS
f;,:EL.END
IEF<:ELPC .. PC

CHECK RELOCATABILITY
RELOCATABLE - CONTINUE
NO - GET LAST RELOC LOCN

F.:ELEND
~:::1:::76

1.:13:9

UNDEFS.

~3[)3:6'"

:lJ.~;;:3:

:1:134
1:1.3:5
113:6

CHAR ..

DEF~

..'

t;::1:=:4;;;::
t,'t844
0::::46
12:1:::4::::

lL2J:

SFLAGS, OBJRC[)

BUJP IELKCHAF<:

0C2C'"
1t;::14E

:1:11.9

C

OUTPUT REFS.

I]S?::::
~:~:::: 7A

SFLAGS.@EVLOC

INITIALIZE IDT ENTRY

(3:::::::6 ",

. 4 P

; '-0.-,.

a

3£$@4

=s, ;MUJR.Ah,;Y;:;;:;;':"

;;,.a

.

1'-1 I F.:A990
DIRECTIVE PF.:OCESSORS

•

1:14(1

C

';

~:~::::7C:

[:~~~2~3

f1::':::?E

17DC'"

~Z1::::=:(1

(i42~3

~?I:::::::2

12IBE~~1'"

:1.:142
11.43:
:1:1.44-

£1:::::::4
0:;::::6
121::::8:3
t;::188 A

12143:(1'"
1218:::6'" EVL.OC

1:14~i

1;:1::::::::C:

€12~3E:

O::::::::E

FFF::::

0::::90

DE::':~3

f2t:3:~2

(15:3:=:
:1:1FD
C:8£1A
lE:EE'"

:1:14:1

:1:146
:1147
:1:1.48
1:149

"~1f:9t:~

:115:1

:Lt54

::1.1.55

C

0::::9.:.1(1:;:'::9::::
0:::9A
[1::=:9(:

J.:1.53:

:1:156
:Ll57

:1:1"5:::
:1159
1:1.60
:116:1.
l

::1.. t:;;~

:1:16::;::
l:1.64·

MOV

@BLANK.NWVAL

CF.:EATE BL.ANK

DATA PCVL
[:oATA $
AI
SFL.AGS,4

LENGTH OF PROGPAM
LOCATION IN OBJECT
POINT TO IDT NAME APEA

0t;::H~14

L.I

SPTP., -8

MOVB
INC
.JLT
MOV

BL.ANK OUT IDT NAME
NWVAL.*,SFLAGS+
SPTF.:
ENDL.P
SFL.AGS.@OTWP+OBJPT+OBJPT

SET CHARACTEP COUNT

IZ142~3

CLEAR OBJECT

~~1:=:9E

:i7E:E'"
(120A

O::=:A~?1

~3(102'"

~~1:::A2

~342~~1

~~1:::A4

19C2"

~?I::':A6

C:::':~;~~3

(1::::A:::
0E:AA

(1B44'"
OE:[:(1'"

~3:;::AC

(142~Z1

~38AE

~3E:F4

1~1:::B(1

~X't4-::f.···

~::18B2

~~12~?1A

[1:;:: E: 4

(H34]:'"

LI

IOPARt't. COLON

WRITE MODUL.E SEPARATOF.: RECORD

MOV

@NUMERR.@BINVL.

CONVEF.:T

BUJP @8 I NDEC

NUt'1BEF.: OF EF.:ROR

..'
DATA NUt-1LOC
LI
IOPARM.NUMMSG

PLACE EF.:F.:OR COUNT I tHO L I NF.

,-7,1:=.:E:6

~342(i

BUJP I:!IPf;': I NT

~~1:::B8

MOV

@NUMERR.ZCK

~3:;::BC

1.9CE···
C:1.6(1
~3E:44 ..'

@:::BE

:1:::~:.Zt4
~?1;;;::~Z1A

.JEG!
LI

Et'~[;OE::

_A¥_$!I,

·t.

_ '. ;:;;*-,.

.. n

j'

PXRASM
DIRECT I
:1.:1.7'4
:1:175
:1.:176
:1:17'7

c

:1:17::::

'·.·:E

MIRA990
PF.:OCESSOF.:S

*'
*'
AEG!U
08E£1

~:::t6A0

~38E2

0AC€1'"

~:::t8E4

C:16~:::t

08E6

:1.5A6···

~~1:=:EE:

1.6~:::t2

~~18EA

046(1

~3::::EC

~~1790'"

1:1:::~~

~1::::EE

~~14C0

:1:t::::3:

£18F£1

C:22€1

~:::t8F2

~:::tf168'"

:1.:179
1.H::ft
:t:1.8:1

1.185
:1.:1.86
1.:187

C. ',.
.~

WAS LABEL USED

.JNE
B

AEG!U2
@S'T'NT:X:

CLF.:
MOV

@LABPTR,SPTR

YES - GOOD
NO, SYNTAX ERROR

N~.JVAL

CLEAR VALUE
POINT TO SYMTAB ENTRY FOR LAB

~10V8

~32:::C:

CI

*'SPTR.. T'T'PE
T'T'PE.. >2€1t;::1f1

IS CODE RECENTLY DEFINED

.JL.T
AI

AEG!U4
Nl·JVAL 4

~O,

MOV

@EXWP+RELVL+RELVL,ZCK

J.3:=:F8
08FA
0::::FC
08FE

2~1~~1~:::1

1:1.£12

~3F2:=!'"

~j9~:::t8

:160;2

t2t9~)A

05C~:::t

09~~1C:

1.~1~~,(3:

f,19€1E
~~19:1.0

[:1::::21:':1
1A6E:'"

~)9:12

~?t13:C'"

~:'t91.4

;;~3:20

~~191.6

~)~:::16A'"

t~19:1:::

:1.6~::t:1

~::19:1A

~)5::::~1

12~:::1:1.

09:1.(:

:1.2~12

~;)9:1.E

€19;;::\:'1

f1[:oSC ..'

:12~~(3:

~:192~~

Af12~~1
~)[:O3:4

:1.2~J4

121924
'-Zi926

:1.;;:'::f15

~3:::;'~~:3

D61~J0

L21~16

~::192A

:1.;:;::(1'('
:1. ;::::~)::::

~:::19;;::C

f14:1F
C:19[:O

~~192E

C:SA~)

~~193:0

f1F22 .'

~~193:;;-~

~~142€1

12193:4

~)BEt1'"

YES
MARK NEW SYMBOL NOT

AEC!U4

.JNE
AEG!REL
I NCT t·H·J'·/AL
.J~1P
AEOAB

EXPRESSION RELOCATA8L.E

'T'ES
NO. MARK SYMBOL ABSOLUTE

AEG'PEL
PUT APOSTROPHE IN LINE

AEG!AB

COC

@E[:'F .. T'T'PE

.JNE
INC

AEG!DF
M·J'·/AL.

'T'ES
NO.. AD.JUST FLAG

f,1A3:~:::1

SLA

t·H.J'·... AL .• 3:

~::t4~::::~::t

BUJP @3ETSCT

ADJUST FL.AG IN WORD
GET S'T'I'lBCIL. C:,]I...ItH

L?~i0

0

t!tLABSN, ZCI<

SPTR,@SYMBOL+SYMPTR+5YMPTR

~~19~)6

AEC!DF

A

@SYMBOL+COUNT+COUNT.NWVAL

SLA
t'1C"·... 8
BU·JP
MOV
MOV

NL·J'·... AL .. ::::
t-.lL·J'·... AL *SPTF.:
:t:G'·... LPT

.,'

0A::::~)

12::L0

~)93:6

~:W;22"

~L;;?J..1

093:::::

:1.2:12

~:'193:A

'::):1.3:8 ..'
H:::H::t2

1~?::L::::

t10V

MOV

C:16~~1

:1209

GET WELL DEFINED EXPRESSION

C::=:"~18

~~19~:::t4

Lt9::::
Lt99

I]I~·JDE

(1[:'3:2 ..'
D3:18

€i~1€14

1:1.96
:t197

BL

~Z1:=!F6

£1902

:1:194
:1:1.95

PROCESS 'EQU' COMMAND

1Z18F4

"~122~3

:U.9:1
:1:192
:1.:1.:::f3:

PAGE 01213:3:

:1.97/76

94892S-99~31**

AEG!U2

~~19~~1f1

1.:1.::::9
:1:190

:1. 7 : 44 : 1~)

'·/2L:1

MOVE IN NEW FLAGS
POINT TO SYMBOL. VALUE
REPLACE '·.·'ALUE
*S'T~NPT.SNAM
@EXWP+RESLT+RESLT.*SNAM

BLWP @8INHEX

CONVERT VALUE FOR PRINTING

DATA EXWP+RESL.T+RESLT
DATA INSVAL
.Jt·lP
PRe;3:

EXPRESSION VAL.UE
LOCATION IN OUTPUT LINE

:+:

,?,

mMM..;;...... .4 _4- ...

, n

t

17:44::1.0
948925-99€11**

DIRECTIVE PROCESSORS

•

1214
1215
1216
1217
1218

*
*
EVEN
093C

06A0

~'393:E

~1Ell~1'"

0940
0942

0460

**

12;;::~3

12;;::1

1224

0944

020A

~1946

0~119

~Z194:::

~1207

~394A

~1~1C3'"

~Z194C

C0~1A

~394E

~1A:H:::1

~395~Z1

C2~17

C;

095;;-~

DE2~3

~1954

17DC'"

~Z1956

~Z160~:::1

123:2

t195E:

:15FC

123:3:
123:4

~195A

~14:1.1

~i95C

0282

1;23:7
1.23:::::

095E

~1~127

~396~3

1.673:

0962

~35A~.3

~:::1964

I;:1Cle···

i-Z1966

~Zi420

El

I]lAPfO:LN

~)96:=:

~3C2C'"

1239

096A

1~:::10~1

124~:::1

~.396C

C02t1
E1C12'"

1;;::41
1242

~:::197~'3

:1.3:~::1D

1ZI:3'?2

DDC0

PROCESS /TITL/ COMMAND

DElRN,25

LI

N~JS'T'M,

t'10V
SLA
/>10 V

DElRN .. NW·IAL
N~~VAL.. 1
Nl·JS'T'/>" SPTfO:

TI

TF~v.:

POINT TO TITLE AREA

SAVE COUNT
SA'y'E PO I I'HER

NO'·.·'B I]lBLANK .. *SPTfO:+

CLEAR AREA

DEC
JGT
BU·JP
CI

Nl·JVAL
GET CHAfO:ACTER
IS CHARACTER A OUOTE

JNE
INC

SYNTX2
NO - SYNTAX ERROR
@SCWP+INCSC+INCSC SET INSIDE STRING FLAG

ElU~P

I]tSCAN

NOP
MOV

(DUMMY EXIT FROM SCAN)
@SCWP+RESLT+RESLT,NWVAL
GET WORD OF CHRS
T I TG!3
NWVAL,*NWSYN+
Nl·JVAL
Nl·J'·... AL.. NW·... AL
TI TG!2
NWVAL,*NWSYM+
DBF.:N
TITG!
:+:GETC
CHAR. :>27

~t243:

~j974

:1;244

~3976

~j6C0
D01~K1

1;~~45

121978

13:~19

1246
1247
:124::::
:1..249

~197A

[:0[:001

t197C
t197E

~Z16~:::1A

:15F3:

098~:::1

~Z1411

L25~.3

09:::;;;-~

0;;~:=:2

C: I

0984

~1027

1251

~.39:=:6

13~12

:l~"2~32

~7.19:=::=:

t1420
OE:56'"

t19::::A

ZT
>+27

..TEG!
TITGG
BUJP I]tEF.:4

GET TWO CHARACTERS

IF ZERO - END HIT
PLACE INTO STRING
GET SECOND CHARACTER
IS SECOND CHARACTER ZERO
YES - END AT ONE CHARACTER
PLaCE INTO STRING
DECRENENT COUNT
CONTINUE IF NORE CHARACTERS
GET CHAF":ACTER
IS CHARACTER A QUOTE
YES - END NORMALLY
NO - TRUNCATION ERROR

T I TO;;;-~
T I TO]:

L~::53:

~t254

:1;;::~)6

PREPARE FOR 50 CHARACTERS

LI

.JEG!
NOVE:
Sl·.IPEl
t·10'·... B
.JEG!
NOVEl
DEC
.JGT
BU·JP

:12~5~:'

MAKE PROGRAM COUNTER EVEN

TITG!

096E

0

@AEVEN

ZT

123:1

123:5
:1:23:6

ElL

TITF>~2

:1229
123:~3

PROCESS /EVEN/ COMMAND

>+<
ATITL

1.2;;~5

1226
1227
122::::

PAGE 0034

~3542'"

1219

:1.222
:1223:

PRG3

197.·-'76

~~19SC

~j4E~j

09:::E

t1C1C"
:H115

099~3

CLR

@SCWP+INCSC+INCSC CLEAR INSIDE STRING FLAG
READ NEXT RECORD

1

4

.i -'-.4.42

.4

. .44 __ JAW)@%;q,4~"A

'.-

4Q$

S'

t '} t.w

-""-

PXRASM
MIRA990
DIRECTIVE PROCESSORS

V2L1.

•

0,
.

,

17:44:1.0

197",76

PAGE 003:5

948925-99~31.*':+:

:+:
*'

1.259

*'A I [:·T

1.;;::6~3

1.261.

1262
:t263:
1.264

0992
0994
121996
£199:::
099A
£199C

8:=:2121

041.E

8LWP *,PRNPT
PRINT LINE
C
@OTWP+OBJPT+OBJPT.@OBJSTP POINT INTO OBJECT

1.6EE···
£18[:'6'
1.3:03:
£1420

.JEG!
IDTFX
8U·JP IjtER2

~399E

~384E'"

1.;;::65
1.:266

09A~Z1

1.121£10

1267

(19A2

~32£1A

~39A4

~Z112104

£19A6
l39A8
09AA

i?,1207
012170'"
1. £1D 121

126f.:

PROCESS 'IDT' COMMAND

RIGHT LOCATION - CONTINUE
TOO LATE - SYNTA;:':: ERROF<:

Jt'lP

RF::G

READ NEXT RECORD

LI

DBF<:N.4

SET COUNT

LI

NWSYM.08JRCD+5

POINT TO AREA FOR FILL

.JrlP

TI

I [:'TF;";

TF~<2

FILL IN STRING

1.27'~3

127:t
:1272:

1273:
1274

1219AC
~Z19AE

1.275

098121

05A0
1856 ..'
112105

1~~76

1277

c·.·'"

1:279
1.2::::0

0982
121984

12::31

~39B6

;~'

L~:::::3:

~39BA

C1.6l3
:1!::56'"
1.3:1212
l342l:::1
15FIE'"

1~198C

046~:::1

~ZI9BE

~35I21A'"

*'
PROCESS ~LIST~ COMMAND
:+:
ALIST
INC
@LIST
.JrlP
F.:RG
:+:
:+:
PROCESS ~PAGE' COMMAND
:+:
APACiE
t'lC) V IjtL I ST .. ZCK
.JEGJ
RF<:G
BUJP I]lPGHDF.:

:+:
:+:
:+:
F.:EF

12:::4
:1.;;~85

:1..2:::7
041.E

READ NE::-=:T RECOF<:D

IS LIST FLAG SET
NO - READ NEXT RECORD
YES - PRINT PAGE HEADER

IjtAF.:EAD

F.: F.: G

SET LIST FLAG

READ NEXT RECORD

PROCESS 'REF' COMMAND

BUJP *,PF<:t'JPT

PRINT LINE

F.:EFF
1;29J;:1
129l

£19C2

~342121

~Z19C4

€1C;;~C

J;:19C6

1293:
1294

~39C:C:

H311.
I:'N2£1
l3D94'
:U::1 121 3:

~Z19CE

~"342~3

1;;:::9:.5
:1;;::96

(19D;2

(185;2'·
:1.€1121::::

1297

~::19D4

(19CA

BLJ.JP @SCAN

GET S'T'rlBOL

..H·lP
AF.:FEF.:
BU·JP I]fSF.:CS'T'rl

NO SYMBOL - EF.:ROR
SEARCH SYMBOL TABLE

.JrlP
ARF2
BU·JP I]fERJ:

NOT IN TABLE - GOOD
ILLEGAL EXTEF.:NAL REFERENCE

..'

..WIP

AN:>:;TFL

C(12~::1

MOV

@SYMBOL+NWSCT+NWSCT.NWVAL

I2IU3:E'"
l::1;;::;2(1

AI

t·U·NAL 8

GET NE::-:;T FIELD

AF.:F2

LL.

ADJUST FLAG VALUE

_. __ , .4#,"--444

1...@,;.

M ,Uti _#.0

*

e*

DIREC~IVE

•

c

~299
~3t2tt2t

131211
1302
1303

MIRA99t2t
PROCESSORS

(~9DA

~j~H:::1:::

t2t9DC

C22t2t

~19DE

~3D32'"

t2t9E0
t2t9E2

121 6C 121
D6t2tt2t

t2t9E4

t2t6A0
t2tACC'10EC

09E8
09EA
09EE

042121
084E'"
10FA

13:1~1

:13:23
:1324

PLACE

BL

@NXTFLD

CHECK NEXT FIELD

JMP

REFF

MORE SYMBOLS -

IN

SYMBOL TABLE ENTRY

CONTINUE

8LWP @ER2
.Jt·lP

TEST NE::H FIELD

AN::HFL
'RORG' COMMAND

~:::15A0

INC

@OTWP+NCONS+NCONS SET NON-CONSECUTIVE FLAG

t'10V

@DOR:GFL ZCI<

IS CODE PRESENTLY IN DORG?

~::19F6

16E6'"
C:1.60
l1C8'"

09F8
(19FA

1.6~:::12

.JNE

C0C3

t·10'·,..

AR:OR:G2
f':ELABS ..

~39FC

:16~:::16

~:::19FE

02~:::(~:

.JNE
A F.: C:t F: G;;~ LI

RELABS .. 1

'T'ES
PRESENTLY RELOCATA8LE?
'T'ES.. SI< I P
MARK CODE AS RELOCATA8LE

t10 .....

I]tRELPC .. PC

GET OLD RELOC VALUE

CLF.~

I]tDOf':GFL

F.~ESET

0A~3~1

~100:1.

~:::1A02

C12~3

~3A04

~:::1Cl:=:'"

~1A06

~:::14E(1

~3A~38

l1C::::'"

~:::1A~3A

~:::142~j

~3Af1C

115C'"

R~ELABS

F~ELORG

DCIF.:G FLAG

f':ELCtF.:G
8UJP @L!D

IF CARRIAGE RETURN,

RETURN

GET WELL DEFINED EXPRESSION
EXPRESSION RELOCATABLE?

f1A:1.A
[IA1C

:1603:

~:'~A1E

~:::14;;:~~3

~:::1A2~1

~:384E

13A22

lfHj2

..Tt'iP

FKIUT

f1A24

C12~:::1

MOV

@EXWP+RESLT+RESLT.PC

~jA26

0F;;:~2'"

0A28

C:1.60
15A6 ..,
1309
C1E0

tKI'.,..

I!tLABSN .. ZCK

WAS LA8EL PRESENT

..TEG!
MOV

f':OUT2
@LA8PTR,NWSYM

NO - E::·:;r T
YES - POINT TO IT

f1F;;;:~8'"

'T'ES
NO -

I!tER~2

SYNTAX ERROR

..'

:1..:~:;;;:~9

:1.330
133:1.
1332

REPLACE OLD PC

ROUT
f1A;;~A

1333
1334

0A2C
0A2E

1335

0A32
~:::1A3:4

55E0
fH::'6F ..'

SZC8 @ROA8,*NWSYM

ADJUST RELOCATA8ILITY

o
_p

_

$

_4;

&-<, i-. ;"

A£. ;

c

,

J.."U_.(

;*'

1\4#._.414

?4g;a

-

0,
,~:

C)

P~'::RASN
I'll F.:A99~3 '·.·'2L:1.
:1.7: 44: 1e
197/76
PAGE ee37
DIRECTIVE PROCESSORS
948:::~25-99~Z1:1.**,
•
:13:36 0A3:6 C::::e.~7
MOV NWSYN.@SYNBOL+SYMPTR+SYMPTR
0A3::::: ~~t[(:l:;2 . '
133:7 0A3A 041F
BLWP *GVLPT
POINT TO SYMBOL VALUE
::1.338 I!,A3:C C:19D
NOV *,SYMNPT.SNAM
AD...TUST VALUE
:1339 0A3E C584
NOV PC. *SNAl'l
j.::A~3
ROUT2
13:41 0A40 06A0
BL
@PCPRN
PLACE PC IN OUTPUT LINE
0A42 1490'"
13:42
PRCi4
13:43 0A44 ~3460
B
@APRLN
PRINT LINE
0A46 0542'"
1344
SYNTX2
1345 ~3A4f.~ ~3460
8
@S'T'NTX
0A4A 079~3'"
:1346
*'
:13:47
PROCESS ~TEXT~ COMMAND
*'
13:4:::
*'
:1349
AT>::T
13:50 ~3A4C 04CA
eLF.: SFLAGS
CLEAR NEGATIVE FLAG
:13:5::1. 0A4E 0411
BLj..JP *,GETC
GET CHARACTEF.:
:1..3:52 0A50 0282
CI
CHAR.. :>2D
IS IT A MINUS
(1A52 002D
:1:I53: ~?tA54 16~3~~
..TNE NON
NO 1'1INUS
13:54 ~3A56 ~35E:A
INC SFLAGS
YES. SET NEGATIVE FLAG
::1.355 (tA58 041:1.
BUJP *GETC
GET CHARACTER
13:56
NOt'1
13:57 0A5A ~32E:2
CI
CHAR.. :>27
I S CHAR A '~UOTE
0A5C ~:K1;27
13:58 0A5E 16F4
..TNE SYNTX2
NO. SYNTAX ERROR
:13:59 ~3A60 ~~15A~3
INC @SCWP+INCSC+INCSC SET INSIDE STRING FLAG
0A62 0C1C':1:3:60
CiTG!
:1:::(6:1. 0A64 0420
GET QUOTED PAIR
0A66 (1C;;-~C'"
~1..:::(6;;::
t.Z1A6:::
1~Zt€10
NOP
:13:63 0A6A OZ12€1
MOV @SCWP+RESLT+RESLT.NWVAL
€1A6C ~X::12'"
1364 ~3A6E €16Ce
S~oJP8 N~oJVAL
:i:::::65 0A7€1 D€H3e
1'10V8 WoJ'·... AL. W·JVAL
IS THERE ONLY ONE CHARACTER
.JE(;J EXTQ
:1366 0A72 13ec
YES. LAST CHARACTER
13:67 ~3A74 e6Ae
8L
l~ounH·J2
NO - OUTPUT VALUE
eA76 eAE8'"
13:6::: ~3A7:=: ~362~3
DEC @SCj..JP+SCPT+SCPT DECRENENT SCAN POINTER
~3A7A
€1C16'"
:136::?t eA7C e42e
8U·JP @LKCHAR
WAS SEC CHAR A QUOTE
€1A7E 115C'"
:13:7€1 €1AE:e ~32:::2
CI CHAR.. :>27
0A:::2

e~~127

1.371

~3A::::4

~L6EF

:1.. ::1:72

0A86

~Z16;2~Z1

~Z1A:::;::

~Z1C::16

:13:?3:
:13:74
:U:75
:.1.:3:76

0A8A

H.'tEC

.'

..TNE
DEC

GTQ

,J 1"1 P

GTG!

fESC~oJP+SCPT

+SCPT

NO .. CONTINUE
YES. DECREt'lENT SCAN POINTER
GET NEXT m.IOTED PAIR

E~-:;TG!
~3A8C

C;2::=:A

~3A8E

:13:01.

1'10 V SFLAGS .. SFLAGS
.JEG! E::'~TG!2

IS NEGATE SET
NO - EXIT

0
4 ..1.

S.

;"

_ . .i

P:X:RASt'l
NIRA99~3
['J I t-;;:ECT I ..... E PROCESSORS

•

C

:1.3:77-=1
:13:7::::
1379
1380
13:81.
:13:::;:2
'1.3:83
1~~84

~)A9~~1

0SI211!.1

0A92
fjA94
0A96
0A98
0A9A
0A9C
0A9E
IZIAAIZI
t.::1AA2

1:';:1411.
0411
0282
0020
1302
£142121
0B4E"

~3AA4

121460

~3AA6

~7.15IZ1A·'

06A0

**
*AUNL
~~~AA8

IZIAAA

C

~3AAC

1Z14EI;.1
1856'"
H:1FB

1::::~97

~:;IAAE
~3AEa7,1

IZIAB2
IZIAB4

~7.iACIZI···

:1399

~3AB6

BL"'IP *GETC
BUI/P *GETC
CHAR.. )20
CI

GET CHARACTER
GET NEXT CHARACTER
IS CHARACTER A BLANK

...TEG!
BL~JP

T>::TEND
@ER2

YES - END OF TEXT
NO - SYNTAX ERROR

B

@AREAD

READ NEXT RECORD

@LIST

CLEAR LIST FLAG
NEXT RECORD

EVALUATE EXPRESSION

B

*,NULL

~:.'I459

*'*'
*
l-.lDE

1.41~14

~7.1ACC

CONMAND

SYNTX2
EXPRESSION IS RELOC ERROR
@EXWP+RESLT+RESLT.PC PLACE IN PC

~3ABE

I:';:1ACE
I:';:1ADfi

~UNL~

JNE
A

14~32

IZIACt.::1
IZIAC2
0AC4
t.::1AC6
t.::1AC8
t.::1ACA

PROCESS

@EXWP+REL ..... L+REL ..... L.ZCK

14~31

0

OUTPUT VALUE

MOV

~3AB:3

1419

@OUTNl·J2

C16~:::i

fiABA
IZIABC

141.7
14:18

BL

1.1.., NULL.
']Ill/DE

14~7,1~7.1

:1.4~7,19

NEGATE LAST BYTE

NOV
BL

141211

:141121
:.1-4:1.1.
1412
14:1.3:
14·14
1415
:1.416

YES -

~EAD

C24B
t.::16AIZI

l:';:iF28'"
16C7
A 1;;;:121
IZIF22'"

14121::::

NWVAL

CLF.:

**'
*

1.3:98

141215
:1.4(16
14(17

NEG

TXT END

13:f.::~:

13:92
13:93:
:1394
:1.3:95
:13:96

PAGE 003:8

~3AE8'"

1.~~87

1389
1.3:91;.1
13:91

:197/76

E::-::TG!2

13:85

1::::'86

17:44:10
\·'2L1.
948925-99t.::11**

~:::15A~3

SAVE RETURN
GET WELL. DEFINED EXPR
EXPRESSION RELOCATABLE?

RETUF.:N

GET WELL-DEFINED EXPRESSION

INC

@t~FloJ[)A

MARK NO FWD ALLOWD

11.B8···
1Z142~7.1

BUoJP @E>::PF.:

GET E:X:PRESS I ON

NOP
RT

FORWARD REF RETURN
RETURN

IZIF42'"
1~3fn3
~7,145B

1:';:141.1.
1212:=:2

*
CHECK NE::·:;r FIELD
*
:+:
N::<;TFLD
BUoJP :+:GETC
CHAR. :>;;;:121
CI

GET NEXT CHARACTER
IS CHAR A BLANK

l:';:i~:::12~:::1

~3AD2

1.3:E8

r2lAD4

~:12:=:2

...TEO
CI

CHAR. >2C

YES ~ READ NEXT RECORD
I S CHAR A COl'lNA

l~iAD6

tu7,12C
:1.. 3:(16

~TEr:;:!

N~'~OUT

'T'ES -

~::1AD:=:

T>-~TEND

CONT I NUE

$ "I"

-

17: 44: :1.. 0

'·,·'2Ll

·. ·,
c·
.,

~)ADA

~~1ADC

1.4;;:::1..

04;20
(1B4E'"

::::;'T'NTA>:: EF.:F.:OR

~Z1ADE

C:1..6~Z1

NO'·...

~Z1AE)j

:1.4;:;::;;-~

~~1 AE 2

1423:
:1.424
1425
1426
:1427
142::::
14;29

~~iAE4

:1::35::::: ..'
13:E ~Zi
lOAF

~Z1AE6

045B

143:~Z1

1~1AE:::::

~j42f.i

~3AEA

1~)BE~Z1'"

~)AEC

[:142:=:-'H13::::::'"

:1.43::l
142:2
1433:

PAGE 0lZG9

1

94:::::9;:;::~i-99f1:1.=+::+:

DIRECTIVE PROCESSORS
14;;;::~;)

:t 971··,1 7 6

I]lFSTPT.. ZCK

HAS LINE BEEN PRINTED

.JE(~

T;<:TEND

...Tt·1P'

PF~G4

YES - READ RECORD
NO - PRINT LINE

N:>::OUT
F.:ETUF.:N

FH
:+:
=+:

OUTPUT TEXT VALUE

*oUTt-H,J 2
~Z1AEE
0AF~Z1

C::::2~3

OAF2

:1.7DC·'·

BU·JP 1]18 I t·JHE::<

PUT OUT VALUE

DATA NL·J'·... L
DATA I NSo"W1L
MOV
@BLANK.@INSVAL

B'T'TE VALUE
LOCATION IN OUTPUT LINE
BLANK OUT FIRST BYTE

~ZiAF4

~3:1..3::::::···

J.. 43:4
143:5

1?1AF6
I2IAF:?

C:J:~Z1E:

I··'ICI~,.'

11 .. T'T'PE

(16A(i

BL

I]lPCPRN

~jAFA

:lA9~Z1'"

14:::::6
:1.43:7

I2IAFC

~::15:::::4

~3AFE

CSf.14
:LLBA'"

INC
1"10'...'

PC
PC., I]lPPC:

0E:0~3
~jE:f.12

(142~3

~3E:~?14
(1E:~Z16

17E:::::'"
(::1.60

(1Ea?'1:::::

1:~:5!:::--'

:L44f.1

~?:1E:~Z1A

1:::.t01

:t44:1

~'3E:~jC

~7;I':+lE

:1.442
:1.. 443:

~Z1E:0E

~:'145C

SA",I'E ~:ETIJ~~r-J
PLACE PC IN OUTPUT LINE
PUT OUT AND INCR LOC
Ar·JI "::;T PF.:ESENT PC
OUTPUT B'T'TE

t·10'·.·'

FIRST TIME FOR PRINT?

@FSTPT .. 2CI<

.JEG!
OI.JTW·J
BLI.·JP :t:PF.:NPT

NCI,. 9:::IP
PF.:INT L"INE

OUTt·H,J
B

~L444

:+:

J.445

:+:

:1.446
:1.447

:+:
AE'·,,'EN

:t:Pr'PE

PETUPN

MAKE PROGRAM COUNTER EVEN

PC

:144:::::

m:::H.1

f:l~i:::::4

:1449

0B:L2

~::1;244

INC
AM) I

PC., )FFFE

~?1E:14

laB1E;

FFFE
ClE:O

t·'IO'...'

I]lLAR:;N .. 2CK

~3E:l:::

:1.~:'A6···

JEQ
MOV

AEVOUT
NO - QUIT
@LABPTR.@SYMBOL+SYMPTP+SYMPTP

1450

:1.. 4~'5:1.
:1.45;:;;:

~jB1A

l:.7;:~?:16

0B:1..C
~~1BJ.. E

C:::::2(1

~Z1B2~7.1

~7.1D3:2·'·

~~nZ16:::::

...

:1.. 4::i 3:

~:'1B22

~:'14:1.F

:l4~i4

I1B24

:L4~55

~?:1B;;;:6

C:1.9D
(:5:=:4

(1E:2:::::

~:14E~::1

~7.1B2t-=t

17D:::::"

OB2C

~'H5E:

::1..45:::::

IS LABEL PPESENT

BLWP *GVLPT
MOV
:+:SYMNPT.SNAM
NO',."
pc.. :t:St·JAto1

POINT TO SYMBOL VALUE
ADJUST VALUE IN LABEL

AE',/(HJT

:L,:+~56

:L4~;7

NAKE PROGRAN COUNTER EVEN

CLF.:

PT

@OTBWP+BYTFL+BYTFL

CLEAR BYTE BOUNDARY FLAG
F.:ETUF.:N

o
. ",.g.g,.XL"A ot,

#4 _, _. #W4.W4.. . "_ ;;:".1&.4444*",$14

.AM!4#4

.-A .'' _ .

_ -__,&

PNRASN
NIRA99~3
E F!: F.: (I F!: PF.:OCESSOF!:

•

0

146:1
1462
1463:
1464
1465
1466
1467
1468
1469
1470
1471
1472
147]:
1474
1475
1476
1477
1478
1479

•·... 2L1

17:44::1.13

948925-99~j1

**'

:1.97 ....'76

PAGE 13040

:+:

082E
€1830
083:2
0834
08:~6

0E:3:::::
~383A

~3E:3C
08::::~E

0840
~:::1842

€1B44
€1B46
084::;:
~~184A

€184C

~:::n3€1€1
€H~20

*' EF!:F!:OR PROCESSOR
*'
L/ATA 0
LPl.JP

DATA
[')ATA
~~1€10€1
[')ATA
00€18···
[)ATA
€101E···
~3~:::106 ...
END5T DATA
~:::1C16···
DATA
08F4···
C'ATA
3:2€u:::1
DATA
]:1€10 ZZ1.
C'ATA
~300€1
DATA
€U3€1€1
r·JUI'1ERR DATA
"15AE···
DATA
€H:::10~:::1
DATA
~3~:::100
DATA
0€100
DATA

l.JORI20
0
ERI'1SG
LERAD[)
Syt'1T
5CWP+SCPT+5CPT
BINDEC
:>3:200
:>:a€10
0
0
PGHDFi:
~~1
~3

0

AM,N.

_

ERRG
BLNKK
CHAR
1'15GPT
LMSGPT
SCNR
BINDPT
EROF5T
IOPARt'1
NUI'1ERG
PGP
OLD WP
OLD PC
OLD SR

" _. ¥444$ Jt4Q

i&IM@@Q.

c

$

*

o

c

1.9·("....'76
P;:'::F.:ASN
t·t I RA990 V2L:l
17 : 44 : 10
PAGE 0041.
ERROR PROCESSOR
948925-9901**
•
14::::1
ERF:OR
:+: TITLE:
14::::~~
:+:
ERROR PROCESSOR
:+: REVISION: 03/01./74
1.484
:+:
ORIGINAL
:+:
03/1.5/76
1.485
1.486
*
NODIFIED TO RUN WITH PXRMTR
1.487
:+: COMPUTER: 990. ASSEMBLY
1.488
:+: ABSTRACT:
1.4::;:9
>I<
SEVEN ENTI':Y PO I NTS ARE GIVEN I NTO THE ERROR
149£1
>I<
PROCESSOR TO CREATE THE APPROPRIATE VALUE:
1.491.
:+:
ER2 - SYNTAX ERROR
1.492
*
ER3 - ILLEGAL EXTERNAL REFERENCE
1.493:
>I<
ER4 - TRUNCATION ERROR
:1494
*
ER5 - MULTIPLY DEFINED SYMBOL
:+:
ER6 - UNRECOGNIZABLE OPERATOR
1.495
1.496
>I<
ER7 - ILLEGAL FORWARD REFERENCE
1497'
*
ER8 - ILLEGAL TERM
:+:
THE PROCESSOR WILL SCAN THE INPUT LINE TO THE
:1498
1.499
>I<
NEXT CONNA. 8LANK. OR EOL TO ATTEMPT TO
:15(1[1
>I<
CONTINUE SCAN OF LINE.
:1501.
* CALLING SEQUENCE:
:15~32
:+:
8LWP @ERX
X = 2.3.4.5.&7.8
:15~33:
>I< ADDITIONAL NOTES:
:15~:N
>I<
WORKSPACE = LPWPCUNSHARED)
:15~35
>I<
ROUTINES CALLED: BINDEC.PGHDR.PRINT
:15~Z16
EF.:2
1.5(17 (184E (182E···
[:tATA LP~·JP
[)ATA E1':1':0 R2
S""NTA::·~ ERROl':
:1508 ~Z1850 ~3876···
:15~39
EFB
[:tATA LP~·JP
1.5H3 ~385;;:: 082E···
ILLEGAL EXTERNAL REFERENCE
(1854 ~::1874···
DATA EF.: FW F.: 3
:V51.1.
:15:12
EF.:4
[:tATA LPl·jP
:15:13 0856 082E···
TRUNCAT I ON EF.:R OF:
DATA EPRt)R4
:15:14 (iE:5:3 0E:72'"
:15:15
ER5
[)ATA LPl·JP
J.5:16 (185A ~382E··
CIATA EPROR5
MULTIPLY [:tEFINED SYMBOL ERROR
~1.~5:1 7
085C 087(1··
:15H::
EP6
CIATA LPl~P
:1.5:19 ~::185E ~Z182E···
[lATA ERROR6
086(1 [186E···
j.52~::1
UNRECOGNIZA8LE OPERATOP ERROR
:1521
EF.?
[lATA LPl·jP
0862 (18;;~E .'
[:tATA EF.: F.: 0 F.?
:1.523: f1E:64 ~386C···
ILLEGAL FORWAR[:t REFERENCE
J.5;;A
EF.:::;:
152:5 0866 ~382E···
DATA LPloJP
~?186A···
[:tATA ERF.:OR8
:15;;:~6
~::1E:6:=:
ILLEGAL TEF.:t·l
:1.~i;~~7
*
ENTR'T' POIt·~TS
*
.
=t
:1.•t::"_1"",.::__.. ••

>I<

:1531;:'1
1531

EF.:ROF.:::::
086A

0580

1533
:1.'53:4

INC

EF.: F.: G

I t·JC

EF.:F.:G

EF.:F.:OF?

:1.. 5:~:;~~

086C

0580
EF.: F.: 0 F.: 6

t4P..M

~

.4

•. ,

tSw' t

-$

3

"'itt!

PXRA5M
MIRA990
ERF<:Ctl;,: PPOC:E5S0P

•

:15::::~;

0

f,1E:6E

~~15:::~:3

:1536
"

~~187~3

:1..53:9

[1E:72

t15E:0

:1..550
:1..55:1..

1552
:1..553:
:1..554
:1555
:1..556
:1..557

SZ1580

C

~~1874

058~3

:+:
:+:
:+:
~3876

INC

ERF!:G

CREATE ERF<:OR MESSAGE

087A
087C
t187E

D:::~:30

5LA ERRG, 8
EF<:OFST, ERF<:G
A
1"10V8 ERF.:G., @EF.:NUt'l

00:1..:1..···
C82f1

1"10V

~~188~:3

1:::62 ..'

0E::::2

~:3E:O:3

~:3884

~341.7

0886

0~~1:1..A

SHIRT ERROR NUM8ER LEFT
,
CONVERT FOR ASCII
PLACE ERROR NUM8ER IN OUTPUT

@PCDCNT, @8INVL

CONVERT STATEl"lENT NUMBER

..'
..'

~3E::::::=:

0620

0E::::A
(188C

:1..59~3···

:1..501

~3E:8E

~~14:1..C

089~~1

C:~~:=:3:

~~189;;;::

~~142t1

~~1894

8LJ.JP *8INDPT
DATA ERLOC
@LNCNT
DEC

TO DEC It'lAL AND PLACE
IN ERPOF<: 1"1ESSAGE
DECR LINE COUNT OF PRINT

.,rGT
t'lSGPF<:T
8U,JP :+:PGP

IF ROm't,
NO Roor'l,

t'10',,.. t'lSGPT., IOPAF<:l"l
8LJ.JP I]lPF!:INT

POINT TO EF.:F!:OF<: 1"1ESSAGE
PRINT 1"1ESSAGE

PRINT t'lESSAGE
PRINT HEADEF<:

t'lSGPF<:T

:1..560
:1561

~38A(1
f.18A;~

:t562

~38A4

~35E:E:

:1563
1!564

(mA6

~:::14~~:~~1

~~18A8

:1..:1..6E···
8042

~~896

t'10V

1]l8LANK., :+:U'lSGPT

Ei'~TEND

t'lO'",'

@F<:CDCNT., ff:t8INVL

C:()N'",'ERT CUF<:PENT F<:ECOF<:D C:OI...lNT

TO INCL LAST EF<:F.: r'lSG

8U'JP *8INDPT
DATA LEF!:LOC
ItK: NUt-1EF.:G

TO DECIt'lAL AND STOF.:E
IN LAST EF<:F!:OF.: NESSAGE
INCR NUt'18EF.: OF E F!: F.: 0 F<:5

8UJP I]lGETCHR

GET CHAF.:ACTEF.:

r'-'

CHAR., BLNKI<
E::-:;LP
CHAR., :::-2(:

1'=
-' IT A 8LANK
'TIES
E~':: I T
A COt'll"lA''?

.,rEG!
CI

E>~LP

C:HAR., EOL

'T'ES., E~'::r T
END OF LINE''?

.,rNE

LPBG

NO.,

LP8G

:1.565

~3BAA

1566

fi8AC
0BAE

:1..~i:~36

i~388~:1

~3~:12C

.,rEG!
CI

~32:=:2

0BR=2

13~::13:

~j884

€12:=:2

0886

(10~3r)

~:188:=:

:1..6F6

1571.

,I

COtHINUE SCANNING

E::CIZIIZI
DATA :>AIZI(1
DATA -4
DATA €1
OBJSTP DATA 08.JST
08.J8UF DATA 08.JRCD
DATA ~:::1
DATA 121
DATA 121

PAGE 121043

~·JOPKSPACE

R0
R1
R':;:'
.....
R3:
R4
F.:5
R6
R7'
R8
F.:9
F.:1.0
R11
R12
R13:
F.:14
F.:15

AREA

8INVAL
VALSV
MADD
SCCODE

8HCO[)E
8DCODE
HCNT
PCNT

CHOPC

BINAR'T' VALUE
TEI'1P VALUE SAVE
LOCN ASCII VALUE
SUP V CALL COC)E
ASCII VALUE

8 I NAR'T' ...·HEX SCC
B I NARy,,'C)EC I MAL SCC
CHAR t10VE COUNT

OLC' WP
OLD PC
OLC) ST

o
.44..04.#4

,q

.__,#.@A¥¥

.z.,.-

PXRASM
MIRA9ge
CONVERSION ROUTINES

0,

V2L:1.

:17 : 44 : :10

:1.97/76 .

PAGE 0044

9489;;:~5-99~1:1**

CONVRT (8INHEX/8INDEC)
CONVERSION ROUTINES
** REVISION: 03/0:1/74
*
ORIGINAL
:+:
03/:15/76
*
I'10D I F I ED TO RUN WITH PXRMTR
* COMPUTER: 990.. ASSEM8L Y
* A8STRACT: SETS UP SUPER . . . ISOR CALL 8LOCK FOR CALL
*
AND STORES ..... ALUES AFTER RETURN IN USER
*
DEF I NED LOCAT IONS.
* CALLING SEQUENCE:
*
8INARY TO HEX ASCII
8LWP @8INHEX
*
:+:
DATA ADDRESS-OF-..... ALUE
*
DATA ADDRESS-FOR-PLACEMENT
*
8INARY TO DECIMAL ASCII
MOV VALUE.@8INVL
*
*
8LWP @8INDEC
*
DATA ADDRESS-FOR-PLACEMENT
8INHE:X:
[>ATF'1 CONVl·JS
DATA BIHE:X:
BIHE:":
1"10'·.·' :+:CHOPC+.8INVAL
POINT TO ADDRESS OF VALUE
t'10V *8 I NVAL BI NVAL
GET VALUE IN Re FOR CALL
t·m . . . BHCODE.. SCCCJDE
SET UP SUPV CALL CODE
svc SCCODE
BINARY TO HEX SUPV CALL
MOV *CHOPC+ .. NADD
GET PLACENENT LOC & NEW RTN
VAL~:::V., ASCVL:1.
LI
SET UP ASCII VALUE POINTER
* TITLE:

:1.599
:16~3~1

:1613:1
:16e2
:16~13
:16~34

:16e5
':16~36

:16e7
:161218
:16e9
:16:10
:16:1:1
:16:12
:16:1.3:
:1.6:1.4
:16:15
:161.6
16:17
1.6:1.8
:16:19
:162e
:1.62:1.
:1622

~38E6

1.623:
:1624

~1BEE:

C~3C7

08EA

~38E~1

~38C0'"

08E;;-~

~38E4···

e8E4

033:E
ce:1.e

:1.625

~38EC

;::FC3
ce8E

~L626

e8EE

~12~1:t

12t8F~'3

~3BC8'"

12t8F2

:1~'307

:1.. ':;27
:l.6~;~E:

:16:;::9
:1.63:~3

:1.6:::1:1
:1.63:2
:163::(
:16:3:4
163:5
16:3:6
16:3:7 1
:1..63:8
:163:9

e8F4
I:'::1BF6

:+:

8INDC
eBF8
eBFA
~38FC

ceC8
2FC3:
ceBE

12t8FE
12tC 121 €I

eBCA'"

121032

C289

t'10V
LI

8DCODE .. SCCODE
SCCODE
*CHOPC+ .. NADD
VALSV., ASCVL2

SET UP SUPERVISOR CALL CODE
8INARY TO DECINAL SUP V CALL
GET PLACENENT LOC & NEW RTN
SET UP ASCII VALUE POINTER

NOV

HCt-n . PCNT

INIT COUNT TO 4

t'10V
5·,/C:

e2~1:1

1"10 VAL
BIN
eC04
1210:::16

:1.643:~3C:~38

1644

l'lCI ..... AL

DATA CON'·,·'l·JS
DATA BIt-mC

~1BCI2t···

08F8'"

164~3

:1.64:1
:1.642

~mp

*
8INDEC

12tCeA

DCB:1.
~358A

:1:1F[>
03:::::e

NOVB *VALSV+ .. * 1"1 A[>[> +
INC PCNT
.JLT BIN
RTWP

NOVE CONVERTED DECIMAL VALUE
TO USER SPECIFIED LOCATION
RETURN

P;:'::RASI'1 •
MIRA990
SCAN PROCESSING
:1.647

0

*

1.64:=:

*
*

:1.649
:1.65~3

1.65:1.
:1.652
:1.653:
:1.654
:1.655
:1.656
:1.657
:1.658
:1.659
:1.660
:1.66:1
:1.662
:1663:
:1664
:1665
:1666

..... 2L:1.
:1.7:44::1.e
948925-990:1.**

:1.97..... 76

PAGE e045

SCAN l.JORKSPACE AREA

SCl.JP

0C0C
0C0E
0C:1.0
0C:1.2
0C:1.4
0C:1.6
~3C:1.8

0C:1.A
0C:1.(:
0C:1.E
0C20
0C22
0C24
0C26
0C28
1!:1C2A

el!:108
e000
001313
0000
0856'"
0~30~3

0000 RELPC
0CE4'"
0000
121000
el):1.8"000e
0000
0000
0013~3

0001!:1

DATA
DATA
DATA
DATA
DATA
('JATA
C)ATA
DATA
DATA
C:'ATA
DATA
DATA
DATA
DATA
DATA
DATA

8
0
0
0
ER4
0
0
N:";CHAR
0
0
TQUOT
0
0
0
0
0

WR0
WR:1.
WR2
WR3
WR4
WR5

QTCLS
CL5TYP
CHAR
RE5LT
ERR4
SCPT

WR7
WR8
WR9
WR:1.0
WR:1:1
WR:12
WR:13
WR:14
WR:15

NXCPT
INCSC
SCNT
TQC
RTREG
SAVE
OLD WP
OL[" PC
OLD SR

o
4.$..

.. S

$. 4

-~

A $4

PXRASM
MIRA998
•
SCAt·J PF.:OCESS
I NG

* TITLE:

166:3

0

:1669
:167(1
:167:1

1

:1672
:1.673

:1674
:1675
:1676
:1677
1.67:3

:1679
16:::~3

:16:::::1
1682

16:=:::'

1 E;::: 4

:1685
16:::6
16:=:7

:16:::8

:16::::9
:1698
:169:1
:16:::'2

C

:1693:
:1694
:1.695
:1E::96
:1.697
:169:=:

:1699
:178~3
:17~~1:l

~:::1C:~:;::C
~~1C2E

17~.3::::

C3C3:0

[:20:=:

:1 ?1219
:1.71121

~lC32

:1666

:1.7:1..3:
:1.7::1..4

(1C3:4

~3;;::8::

:1:14A'"

(1C3:::::

~:::1697

~K3A

~322:1

8C3:C

FFFB
:11.40
[:'::::2:1
:1.A2E···

~-::1C:4(1

~::tI::::4;2

:1.7:1.5
:1·?:1..6
:17:1..7

*'
*'
*'
*'
SCBG

~~1C:::6

~3C:::E

:197"'"76

PAGE

0~346

SCAN
SCAN PROCESSING

** REVISION: 03:~0:1~74
*
ORIGINAL
* COMPUTER: 990. ASSEM8LY
*' A8STRACT:
*
THE FIRST CHARACTER IS USED TO DETERMINE IF THE
*'
SCAN VALUE I S A S',..,..,80L OR A NU,..,ER I C CONSTANT.
*'
THE SCAN OF A SYM80L CONTINUES UNTIL A NON:+:
ALPHANUMERIC CHARACTER IS SEE~ BUT ONLY THE
*
FIRST SIX CHARACTERS ARE SAVED (ZERO-FILL). A
*
COUNT OF THE NUMBER OF CHARACTERS IS KEP~
*'
THE SCAN OF A NUMERIC VALUE CONTINUES UNTIL A
*'
INAPPROPRIATE CHARACTER IS REACHED. THE
:+:
NUMERIC VALUE IS CONVERTED INTERNALL~
* CALLING SEQUENCE:
*'
BLWP @SCAN
*'
JMP NUMERIC LOCATION JUMP TO NUMERIC PROCESSOR
*' ADDITIONAL NOTES:
:+:
WORKSPACE = SCWP (UNSHARED)
TloJO POSS I8LE F.:ETUF.:NS 1'1 A'T' 8E TAKEN B'r' SCAN. IF
*'
A NUMERIC VALUE IS FOUND. THE CONVERTED NUMERIC
*'
VALUE PLACED IN RESLT AND PROCESSING CONTINUES
*'
:+:
AT THE t·1Et-10F.:Y l·JORD FOLLm.J I NG THE CALL. r F A
SYM80L IS FOUND. RESLT WILL CONTAIN A POINTER
*'
TO THE SIX CHARACTER NAt-1E (THIS POINTER WILL
*'
:+<
ALSO BE GIVEN TO t-1AINW+NWSYM). THE
:+<
CHARACTER COUNT IS PLACED IN SYMBOL+NWSCT+NWSCT
AND PROCESSING CONTINUES AT THE SECOND WORD
*
:+:
AFTER THE CALL SCAN UTILIZES A CLASS TABLE IN
ANALYZING CHARACTERS.
*'
ROUTINES CALLED: ER4.ER2.NXCHAR.TQUOT
*'
SCAN
~:::10~1C: . '
Dt'1TA SCl.JP
l·JOF.:KSPACE
C.3CJ:~3 . '
START
DATA SCSCi

17';;"(2
:1703:
1 7~~14
1.705
:l7f.16
1. 7CI7

:17:1.:1
1_ ?1_2

'·... 2L1.
:17: 44 : :1.f1
948925-99(1:1**

8C44

~.X:47···

l:'1C46

1. f.1F F

CLASSIFY FIRST CHARACTER AND BRANCH
TO APPROPRIATE PROCESSING CODE
MOV INCSC. INCSC
.JNE G!UOTE
LI
RESLT.SYt-1BL
SL
AI

:+: N::<: CPT

CLST'r'P .. -5

INSIDE OF STRING?
INITIALIZE RESULT POINTER
GET NEXT CHARACTER CLASS
ADJUST CLASS TYPE

..ILT ERRORS
TOO St-1ALL - ERROR
MOVS @JMPTB:1(CLSTYP).@Jt-1P:1+:1
..II··lP:l
*
:+:

JNP

$

BRANCH ON CHARACTER CLASS

SYMBOL PROCESSOR

0
"

"" '.~~!

g; k,,)At§@f.

_ .M •.. ,q . .4(,i#J4C.M

n

M$,£.PW.

"t,)'

p,e

,$$"Q. .

P;:':RASl'l
1'1 I RASISIe
SCAN PROCESSING

0.

1718
1719
1;

,',.I

:1.720

1721
1722
1723:
1724
1725
1726
1727
1728
17251
173:121
173:1
173:3:
173:4
173:5
:1.73:6
173:7
1.73::3

c

173:9
:t74e
1741
1742
1743
1744
1745
1746
1747
:1748
1749
175121
:1.751

eC4E:
eC4A
eC4C
€1C4E
eC5e
eC52
eC54

e4F3:
e4F3:
e4D3:
121223:
FFFC
12121219
121(11215

eC56
eC58

I2IA82
DCC2

eC5A 06517
eC5C ·0281
eC5E 0005
0C6e 1106
0C62 0281
0C64 001217
0C66 1503:
I2IC68 06051
0C6A 11F7
0C6C 10F4
061215
C24S1
151211
04CSI

0C76
eC78
0C7A
eC7C
eC7E
eC8e
eC82
0C84
eC86
eC88
eC8A

0512151
0229
01211216
C8e9
~3D3:E

1756
1757
1758

~3C8C

eC8E
,Z,C9(1

CLR
CLR
CLF<:
AI

*RESLT+
*RESLT+
*RESLT
RESLT,-4

RESET POINTER

LI

SCNT,S

SET COUNT

CLEAR RESULT

SLA CHAR,S
MOVB CHAR,*RESLT+

POSITION CHARACTER
MOVE INTO SYMBOL NAME

BL
CI

*NXCPT
CLSTYP,5

GET CHARACTER CLASS
IS CHARACTER ALPHANUMERIC

.JLT
CI

NOADD
CLSTYP.7

NO - OUT OF RANGE
NO - OUT OF RANGE

JGT
DEC
JLT
.JMP

NOADD
SCtH
CONGET
MOVCHR

NO - OUT OF RANGE
YES, TEST FOR ADDING
DON"'T ADD
A[)D

DEC

SCPT
SCNT, SCNT
M. . . CNT
SCNT

DECREMENT SCAN POINTER
IS COUNT > 6
NO
CL.EAR COUNT

NEG
AI

SCNT

SET PROPER CHARACTER COUNT

t'10Y

SCNT, @SYMBOL+NWSCT+NWSCT

LI

RESL T, SYI'lBL

1'10.....

RESLT.@MAINW+NWSYM+NWSYM

1'10V

JGT
CLR
1'1VCNT

..'

e5CE
12138121

scrH . 6

INCT 14
f':TloJP

*
*
*
NUM

PASS TO S'T'MBOL

POINT TO SYMBOL NAME
PASS TO 1'1A I Nl.J

TAKE ALTERNATE RETURN
f':ETURN

[:'EC I NAL I NTEGER PROCESSOR

AI

CHAR.. RESL T
RESL T.. ->::::~0

GET FIRST DIGIT
ADJUST FOR DECINAL VALUE

8L
CI

:t:Nr~CPT

CLST'T'P .. 6

GET NEXT CHARACTER CLASS
IS CHARACTER NUMERIC

.JEG!

NUI·..,AD

YES.. CO/'H I NUE

t'10Y

NXGET
8C92
eC94
~3CSl6

1759
176121
1761
1762

cm-mET

~343:6"

C€1C2
121223:
FFDe

PAGE 12112147

MOVCHR

12121213
114A'"
C8e3:

175::::~

1517. . . 76

*
ALPHA

NOAD[:'
eC6E
eC70
0C72
eC74

1.752

1754
1755

V2L1
17 : 44 : 1121
51485125-51511211**

eC9S

121697
02:;::1
1211211216
131212
NUMO

I2IC9A
I2IC9C

861215
1213:80

[)EC SCPT
RTloJP

NO. DECREMENT SCAN POINTER
RETURN

. @CP

.Z4

4:"

_.$X

.. 4AA PM..'

J.; -,'

PXRASM
MIRA990
SCAN P~OCESSING

o

17'63
17'64
1.7'65
17'66
17'67'
17'68
17'69
177'0
17'71
1772
1773
1774
1775
1776

OC9E
OCAO
OCA2
OCA4
~3CA6

OCA8
OCAA
OCAC
OCAE

178e
1781
1782

1783
1784

c·

.'\

1785
1786
1787
1788

1798
1799

CHAR.->30

SLA

RESLT.1
RESLT/CHAR
SLA RESLT/2
A
CHAR/RESLT
JNC NXGET
8LWP *ERR4
Jl'tP NXGET

IF NO OVERFLOW. CONTINUE
TRUNCATION ERROR
GET NEXT DIGIT

HEXADECIMAL INTEGER PROCESSOR

OC82
OC84
OC86
~3C88

OC8A
OC8C
OC8E
OCCO
OCC2
OCC4
eCC6
OCC8
OCCA

HE:":X
0697
0221
FFF8
l1F0
D821
lA33"
0CC1'"
leFF JMP2
AL
0282
0e46
15E9
121222

FFF9

CLR

RESLT

CLEAR RESULT

8L
AI

*NXCPT
CLSTYP .. -5

GET NEXT CHARACTER CLASS
ALPHANUMERIC?

.JL T NUI'10
. NOT ALPHANUt'1ER I C
MOV8 @JMPT82(CLSTYP).@JMP2+1
JMP

$

USE

CI

CHAR. >46

OUT OF RANGE?

JGT
AI

NUMO
CHAR..-7

YES - E;:<; I T
ADJUST FOR ALPHABETIC

AI

CHAR.->30

AD.JUST FOR ASC I I

~TUl'lP

TA8LE

NU

OCD2
OC[>4

0222
FFD0
OA43
1701
0414

0CD6
0CD8

A0C2
10EC

0CDA
0CDC
eCDE
0CE€1
0CE2

0605
0420
084E"
04C3
0380

~3CCC
~3CDO

ACHAR
ERRORS

SLA RESLT.4
JNC ACHAR
8UoJP *ERR4

SHIFT CHARACTER VALUE
IF NO OVERFLOW. CONTINUE
TRUNCATION ERROR

A
.JI'1P

HE~'<:X

ADD CHARACTER VALUE IN
CONTINUE

DEC SCPT
8Uo.IP @ER2

DECREMENT SCAN POINTER
SYNTAX ERROR

CLR RESLT
RTWP

CLEAR f.<:ESUL T
RETURN

CHAR.. RESL T

*
CLASSIFY
*
N::<:CHAF.~

*

1807
18108

ADD TO RESULT

HEX

:1..E:e~3

180::::(
1.8£14
18f15
H'::06

YES, ADJUST FOR VALUE

A

OC80' 04C3

:1..792

1793
1794
1795
1796
17'97

AI

*
**

eCCE
1789
1790
1791

PAGE 0048

1971'76

NUl'lAD
e222
FF[)e
OA13
Ae83
eA23
AeC2
17F3
0414
10F1

1777

1778
1779

V2L.l
17:44:1e
948925-9901**

OCE4
IZtCE6
£1CE8
0CEA
0CEC
0CEE

De85
10982
0282
10009
1602
102102

CHARACTER

MOV8 *SCPT+.CHAR
SRL CHAR.8
CI
CHAR. >09
JNE
LI

NXCH2
CHAR. >20

o
.. $ .

$

#.

GET CHARACTER
RIGHT JUSTIFY
TA8?
NO
'T'ES - SET TO BLANK

-*-

.4 X4.¥._

PXRASM
MIRA990
SCAN PR"OCESSING

0:

1809
1810
1811
1812
1813
1814
1815
1816
1817
1818
1819
182121
1821
1822
:1.823:
1824
18;;::5
1826
1827
:1.828
1829
:183:0
1.832

183:3:
183:4
1:=:35

:1.83:6
1837
:183:8

1839

1840
1841
1842
1843:
:1844
1845
1846
1::::.:+ 7

1848

0CF0

0020

0CF2
0CF4
I2ICF6
0CF8
I2ICFA
0CFC
I2ICFE

0282
01212121
11F1
DI2I62
019A"
121981
045B

V2L1
17:44:10
948925-9901**

CI

C0C2
121697
801211
161211
069A

0012
0()14
0()16

I2IA83
EI2IC2
038121

CHAR,)2121

IS CHARACTER LESS THAN >2121

JLT ERRORS
YES
MOVB @CLASS->20(CHAR),CLSTYP
SRL
RT

*
*
QUOTE

NQ

0008
0C)0A
0()0C
0()0E
0(:'10

PAGE 121049

NXCH2

*

I2IDI2II2I 0697
0D02 "81211211
0D04 1601
0DI2I6 069A

197'''''76

CLSTYP,8

RIGHT JUSTIFY
RETURN

QUOTED STRING PROCESSOR
BL
C
JNE
BL

*NXCPT
CLSTYP,QTCLS
NQ
*TQC

GET NEXT CHARACTER CLASS
IS THIS A QUOTE
NO
YES - ADDITIONAL QUOTE?

MOV
BL
C
JNE
BL

CHAR,RESLT
*NXCPT
CLSTYP,QTCLS
NQ2
*TQC

NO, MOVE CHARACTER
GET NEXT CHARACTER CLASS
TEST FOR QUOTE
NO
YES - ADDITIONAL QUOTE?

SLA
SOC

RESLT,8
CHAR,RESLT

LEFT .JUSTIFY
PLACE IN RESLT
RETURN

NG!2

TQUOT

0D18
0D1A
0D1C
0D1E
0(:'20
0D22

13:02
121645
04C2

121024

045C

RnJP

C3:08
0697

MOV
BL

80~31

CLSTYP.QTCLS
.JEQ OQ
()ECT SCPT
CLR CHAR

...

RTN,SAVE
*N;:-~CPT

GET NEXT CHARACTER CL.ASS
IS IT A QUOTE
YES - EXIT
NO. END OF STRING
CLEAR CHARACTER

I'"

OQ

8

*
*
*

GET CLASS

*SAVE

'iES.. RETURN

DOL.LAR SIGN PROCESSOR

DOLLAR
0D26
I2ID2E:

C0E0
04::::(0 . '

t)[:.2A

C::::;;::~:3

0D2C
~:::rD;?E

~:::r42E'"
f~1F~:;::FI"

0D30

03:80

MOV

@MAINW+PC+PC.RESLT

MOV

@MAINW+RELA8S+RELABS,@EXWP+RLVAL+RLVAL

RTWP

GET PC VALUE AND RELOC

RETURN

o
, .. ¢..

.,

.. o_A4 $

.. ,

¥$

;

"

. ¥

:t 51?

F'::-::RA::;!"~

t"1 I F<:A99f1
V2L:1..
1.7:44 : :H~1
S"r't-1E:OL TABLE ENTF.:'T' '·.·'F1LUES 94:39;;::5-99t1:1:+::+:

C

'i~

::1..85::1..
1:=:52

~3D3:;;::

I2II~K1121

~3D34

t1t10~~~

1857'
1.:::5:3

~3DJ6

I2I121t10

12.1[:'3:8

~X10~3

l:::~~~;J

~3D3:A

fjl~10~:.'1

1::::6121
:1.:::t;:.J,
:1.::::15;;::

~::1D3:C

fn?1f,1IZt

f1D3:E

~:.'I~:::1~3~:.'I

:.1.::::6::::
:L :::: t=: ::'~
1:::::70

I:::

PAGE 1211215121

S'r'tfIBOL. TABLE ENTF.:'r' REG ICIN
:+:
SYNBOL
[)ATA 121
RI2I
DATA 121
R:1.
[)ATA 0
R2
DATA t1
R::::~
[)ATA ~:.'I
R4
[)ATA 0
f':5
'·.·'L
DATA 121
R6
[)ATA ~::1
R7
DATA f,1
R8
DFITA 0
F.:9
DfiTA 121
F.::1J3
DATA ~::~
FU:1..
DATA f1
R:1..2
DATA ~:~
fU3:
l)fiTr':'1 1~1
Fd4
DATA ~:)
F.::1.5
:+:

1E:!:i6

::1..::=':64
1::-::65
:1..::=':66
:1::::67

~~:'

:+:

1:353
1E:5.:.l
:1..:355

:t::::t.::;.'3~

.,0.1

~:'1[:..~.(I

121 ~::i ~~1 f1

OD·::j.2
f1D44
t;:)D4f::'

~30(1~3
12I12t(~la

~::10(:'1~?t

~?tD4::::

~::1~~~jla

~3D4A

~::10~::1121

~'3D4C:

f'f1~'30
~3'~K1f.1

(:m4E
005('

f,10~3f~)

SYI'1PTR
SYMNI2I, COUNT
FLAGS
SYt'lNI'1
NSYN
..... ALUE
Nl·JSCT
SCNT2
NSBIT
GSHOLD
GSHLD2, IOPARI'1
F.:ETURN
OUTS
OLD !·JP
- OLD PC
OLD Sf':

c.

o
4

$-. ,-'

M$

,.4£ .

... $.

1.&% MAt, .,.J:

017:44:::1[1

:L::::;:";?
J.:::::·?~i:

:1. :::: '? ::::;
:1..:;:;:-;::'6
:I..:;:;:7?

1.:;:;:7:;:;:
:1..::-::7:3
::/., :;:;::::::,:::,
:1.::::::::::1.
:1.. :::: !:: :?
:1..8:;:;:]:
:1.::::::::::4
1.:::::::5
:l.8:::::E:
1::;::::::7
:1. !:::: :::: H

*
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:

:Lf::~~:9

*

:1:~::::!1::1

;+:

::1.:::::9:.1.

:t:

SYMBOL TABLE ENTRY VALUE
REVISION: 03/01/74
ORIGINAL
COMPUTER: 990.ASSEMBLY
ABSTRACT:
FOUR ROUTINES ARE USED TO PROVIDE:
1. CHARACTER COUNT FOR SYMBOL NAME
2. SYMBOL FLAG VALUE
3. POINTER TO SYMBOL NAME
4. POINTER TO VALUE AND VALUE
TWO DUMMY ENTRY POINTS ARE CREATED
FOR ENTRY FROM OUTSIDE THE WORKSPACE,
C:AL.L I t·JCi SEG!UENCE:
INSIDE WORKSPACE:
BL
f~CiT~:;CT
BL.
(~IGTSFL
F:/....
E:/....

:+:

:l:~;:92

:1;:::: ::::' :~::
::L::::::=!.::!-

:+:

t:::::)":)

:+:

:t:

l:~:::::'t::

:/..:;::9?
:/.:::::9:::::
:1.:::::9::'<

C".",

TIT/....E:

IEtGTSNI'1
(~Grs'...'/....

OUTSIDE WORKSPACE:
BI. . ~·.IP f~GETSCT
8LWP @GETSVL
ADDITIONAL NOTES:
WORKSPACE = SYM80L (SHARED WITH SRCSYM,
SY~:LR,
AND REFDEF)
GTSNM CALLS GTSCT, GTSVL CALLS GTSNM
H :~;',.'I·IBOI.... TAEil. F t'JOI)E I=iPPEfif":::::' AS FClI . . LOL·.!::::;:

.

:t9(":::'

~:::

,./

:1..901
:l. ::::~~:l:?
::l..9CC
:1.904
:l91?15

GTSCT
CiTSFL
CJTSNt'l
GTS'·... L

,
'1"

..

i'l

::'

FL.,R(j';:;
() F~LAG::::
FLHG::::;
WHERE FLAGS ARE BROKEN DOWN TO A FLAG VALUE fN
8 ITS ::::: --:1.2 fir',II) f:, :::~ 'T'I'" F: 0 L. CO 1...II'·rl I N F: TT,::; L::>. ·:i ::::; THj'.:
COUNT WILL CAUSE A MODIFICATION OF THE NUMBER
OF RYTES NEEDED TO STORE THE SYMBOL TABLE ENTRY
THE SYMBOL NAME AND, THE SYMBOL VALUE WILL
HLWAYS START ON A WORD BOUNDARY
THE FLAG VHLUE IS A CODE AS BELOW:
o
DEF,REL,EXTDEF,PECDEF
:l
DEF,REL,RECDEF
DEF,ABS, EXTDEF, RECDEF
[I

J9~~1I:::

J.. 9C17

:1.9(::':::::
:l91?19

:l9:1J"::'
19:1.::1.
:19:12
·t::::1J3
J.::!:Jt4
.L 9J.r.::;
:.I. :::'16

1....

[> E: F::',

~::,

F: :::;. r';::F C: f.> EF

i":rEF'. Fd.:.L, E;:'::T["EF
I)FY. f<:fD..

[,'EF. FIE::::::. E:::(TDEF
...

L:~:! ;?I?i
l,9,?"L

i);:':;UF'
i.Jt·JREF., E::-:;TDEF

.+'

:.LU
::1. :.1.

J. ;.:::
:l~::

~·.jHFF.:E

I?EF· .. E;:,:;"n>EF
PET,ljNDEF
E}:;n:EF .. F.:EFHBS
f:~;:'::TR[F, r;::E:Ff-;::EL.

:

0·.· · '
""

P¥M4

:;4#

,..

".1. t." oX",.""

PAGE
DEF
F.:EL
E::

1954

0060
ell)6?
0064

06H8
I]D66"
8380

F<:T~·.jF

j Q 56

0066

C050

NOV

.19,,::;7

(i[.. 6:;;::

024L

fiND I

~11::'61:::!

/::'1007

1958

ODGC

8458

*SYMPTR,CGUNT
CCIl..nn.,?

(lET C·:OI...INr

i'JO~;:[..

SEPARATE OUT COUNT

:+:
:t:

[96:1

GET SYMBOL VALUE

:+:

(JET'::::;'.,,'!.

L:;~C;~:

1963

0DCE

1964

0070

f)fl T H ::::; 'T'I'IF::()L..
OflTfJ cJ'r~:;',/L.,::::

8D32/
OD72/

E:I....

1967

8076

1£.fI~iT::::;'·."i....

0380

i·JO F.: t< ::~Pf:ICE
:::;;Tfii:;;:'j"

D1...11"11'"'1" CHL.I...

F: E T 1.1 F<: t-J
CiT:~;"/L.

".
·.'r.,.'.

V

1

16HIJL["

69

0078

~248

"j()'o,.'

:.1..:1..

.L ,:~ .::., CI

C! [.,? H

(16 H(!

b L..

(f.J (j T :~:; I',,' i'l

riC"'?C.

OI:>:~:4

1971

007E

I):::' ,:;:

!;:'i [, ,:::: ('I

0643
C.:1 :::i":"

'! _,:::,';::' ..::.

ej[!;:~:;:?

CII:.!. ~::;9

j

0

::':;FI'·/E F.:ETI...lf<:N
CiFf S'T't'IF.::OL NAHF

..'
:+: ~::; '1" t, 1r',1 1'1, ....' Hi .. 1...1E

POINT TO SYMBOL VALUE
GET SYMBOL VHLUE

:+ (J :::; /-1 Ct LT'

j:;;:ETl...IF::N

['FC:T ::::;'1"/"11-'41'1
I" CI'/
F:

r:-;",;pn':::'H •
1"" I F.~A99(3
'.,·'21..:1.
::L? : 4.:.1- : :11~~
SYMBOL TABLE ENTRY VALUES 948925-990:1**
:1..971::-

C

*

l~~~'?'?

GT~;::;t'~""1

:t97;:~:

CiO:::::4

(:288

:l9?~:;:1

1~10:::::6

12I6Af?l

~::1[):;::::;:::

l~m~;6'"

::1.9::::0
:19::::::1

OD8A
I2ID:::::C

6~Z1C:l

:t~3:::2

~'=:tD:::::E
~'=:tD9121

:l ~;':~!3:

J.97.····?t;

~)(:t9;2

O:.::tCfl
0243:
FFFE
045A

1"'10'...'
BL...

:1:J..., GSHL..[:';';::
IJ.lGTSCT

SAVE RETUF<:N
GET S'T't'180L COUNT

MOV
5
AND I

SYMPTR.SYMNM
COUNT., S'T't'1NN
S'T't'1Nt'1.. )FFFE

POINT TO SYNBOL NAME
POINT TO BYTE OFFSET
SET AT WORD BOUNDARY

*GSHl...D2

0·. .· ·

t"

I.4iik4Ji " ~ £ , 4#..#_ "M

"_ ... ,.AgAR 4SUA

" A4A. ~S ",awe;·

PXRRSM
MIRR990
SEARCH tYMBOL TRBLE

o

:+:

t'/21...::I..

::L? : 44 : ~U:J
99[1::1.. :+::+:

TITLE:

SRCSYM
SEARCH SYMBOL TABLE

REVISION:

03/0~/?4

•
J..9:~::::::

:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:

19:::::9
1.991
:1:~19;:'::

19~~"::~:

1994
:t995

:1996
::1.997
1_99:,
~?~)~)(1

~~:~::'10:1

;;?

2~7.10~:

2(1(14
;:;::1305
20~7.16
~~~f2ff;~7

~~: ~:'11?H:::
~:;::~::'1~)9
:2~"3:1(1

:;RC:~:'r'/'''1

2~):t:1..

l~m::::~4

f?tOJ:;;?'

;?O:J.:?

t~1[:.96

~3D9:::::

2013
20:1..4

0~354

ORIGINAL
COMPUTER: 990. ASSEMBLY
ABSTF.:ACT:
THE SYMBOL TABLE IS SEARCHED FOR A GIVEN
S'r't"IBOL NAt'lE. I F THE NAt'lE I S NOT FOUND., I TIS
ADDED TO THE SYMBOL TABLE WITH THE CODE
REFERENCED BUT UNDEFINED FOR ITS FLAG VALUE.
IF THE SYMBOL IS FOUND. AN ALTERNATE EXIT IS
TAKEN, DUE TO THE VARIABLE LENGTH ENTRIES OF
THE SYMBOL TABLE. IT IS SEARCHED IN A LINEAR
FASHION. ENDING WHEN THE COUNT REACHES ZERO.
CALLING SEQUENCE:
BLWP @SRCSYM
SYMBOL-NOT-FOUND INSTRUCTION
SYMBOL-FOUND INSTRUCTION
ADDITIONAL NOTES:
:+:
WORKSPRCE = SYMBOL (SHARED WITH SENTRY.
:+:
S'r'I·'lCI...R., F:EFf)EF:;'
:+:
WORKSPACE REGISTER NSBIT IS USED IN FORWARD REF
:+:
TABLE ENTRIES. WORKSPACE REGISTFR NWSCT HRS
:+:
BEEt',1 PI::::E'",' I OI.J:~:I... 'Tt SF:T B'T' ::::;CAN.

::1..99\7:1

;~:~) ~::'1

Pf~(JE

::~ ,;:1· :~::~ ;:;:' 5 -

[., f=t T f=t

~:~ 'T' /"1 f:: 0 1...

~'.IOF~:f:::'::;Pt1C:E

::::; T t:1 ~:: 'r

DFITA ::::;RC

.'

SRC
0098

0208

fiD9A

~::1F1tJ::I..

L. T

2015
2016

t'4::::;F: IT., :l

:+:
:+:

POINT TO BEGINNING OF SYMBOL TABLE

:+:

2018

0D9C

C026

f1f)9E

:1..:1..54 ..'

MOV

@SYMTAB.SYMPTR

POINT TO SYMBOL TRBLE

MOV

@NSMBL.NSYM

POINT TO START OF NEW SYMBOl.

C

SYMPTR,@FNDST

IS TFIBL..E Et·.jI)E[.1

.JL.F

E::-< I

F:/....

(~GT:;;t·WI

;?0:l9
~:;::O;?f1

;?t?12J
:? I?I ;;:~ ;:::

2023
2024
2025

:+:

SYMCHK
0DA0

C120

t?tOFI:?

(1,:1-3:6 ..'

0DA4

8860

1~1Dt1t-:;

~3t::nB

2026
2027

0DR8
ODRA

1212
06A0

t~1[)f=tC

~:JI):::::'::j.

2028
2029
2038
2031
2032

ODAE
0DB0

8181
1608

0~R2

9D33
J606

~~33

2034

..'

'T'E::::; -.. NOT

n',IO

Net -. (1FT

FCIiJI'·Ji)

FlHI:;;"T'

"

C

S',.'I'INC)'

,.n! F

;.J Cf T ':~ A 1'1

Ni.,t;CT

CB
JNF
DEC
JNE

:+:SYMNM+.:+:NSYM+
NOTSHM
SYMNO
COMPHR

C:CII"1PAF":F CI)I. .ir·JT::::;
r',IOT THE: ~:::HI'''IE

COMPAR
0084
8DB6
0088

~681

16FC

ARE CHARHCTERS THE SAME
ARE CHARACTERS FINISHED
NO, KEEP COMPARING

o
(-'kG

4...44,

.;

A4#4A4U

PXRASM
MIRA990
SEARCH SYMBOL TABLE
::;:~r-G5

0

~:;/)BFf

f:16A~]

~:mBC

~:;D5;;::

;2ff3:6

~::1DBE

f.15CE

~:~'33:7

00C:0

1-33::::a3

BL

~:'16A0

1~10C4

€1[;.7E:

GET FLAGS

TAKE ALTERNATE RETURN
RETURN

LOOK AT NE::<:T SYt<180L

.7'.IZI.:.14

';:~OC6

~?t6~::C:

~:;::[145

~'3DC:S

C:~::103:

:?~?!46
~~:f.14 7

f.1DCA

f15:::::::

1~1DCC:

:1.~:~E9

8L

I]lGT5VL

POINT TO LAST WORD OF ENTRY

DEC
NO ...·'
INC
..Tt·1P

5'T'NNt'1
::; ',-' 1'1 N 1'1.. S'T't··/PTF.:
NSBIT
S'T't'1CHK

POINT TO FIRST BYTE OF NEXT
SET AS PCI I NTEF.:
INCRENENT SYMBOL NUNBEP
GET NE::5::::

L.I

FLAGS .• :1.:.1.

C·:H::16

'·'10'·.,'

~36A~:1

BL..

M·J S CT. :+:::::'T'!··/PTF.:
I!.JGT::::Nfo1

MOVE INTO NEW ENTRY
POINT TO START OF NAME

t·10'.,.'

li,1f·,I:::::r··,SL NS',-'/"!

F'O I NT TO

~"3~35::::

(1;;::1;32
~:112/~::'B

~::1[:r[:rA

~::'D:=:4'"

~]DDC
~7:/r)I)E

C:::l ;;?~?I
1;:'143:6"

;~f15!:::

~::'DFfl

I)CF4

'··IO ...·'F::

217;/!:;9

:+:t·t~:'T'I··l+ , :1-: :::: '/"·1NI··!+

f:tDE2
0DE4
f3DF6

~::16f~~:1

S'T""lN()

:l.'::iF[:o

DEC
,JCiT

EN02

~7:f6A';:~

SL,

(,!?GTc:;'..•'L.

m)E:::::

~::1C'7::::···

POINT TO LAST WORD IN ~NTRY

;~~~?f56

Z'.C157

2(:~~;f1

20601..

t·.IF1I'!I~:

Fr·JO;?

:::::06:;;:212163:

~:mEA

f1(:;~::1:?

DEC

~'3I)EC:

C::::~::I3:

/"10'·/

S'T'/"IN"',
S'T'I'·lNt··! .• I}tENI)ST

f3[)EE

0E::~:::::: .'

POINT TO NEXT ENTRY
SET AS ENG OF TA8LE

2 ~:'I ,~~ .:+

~?1[:'Ff1

~]6A0

BL..

IEL. I t"C:HK

f2l0F2

CHECK OVERFLOW L.IMITS

:1.:1.92'"

~:.'I[:tF4

~::~3:8~:1

2~:~65

o

FOUND -

NOTSAN
~:1DC::?

<~:~:~4:=:

C;

PAGE ~~H?t55

*

:+:
:+:
:+:

<'2/~14~3

;~'1?t5]:

IElGT5FL.

HJC:T :1..4
RnJP

;;:~1;3~:1;:::

;2~:J5;~:

17 : 44 . :U::'
94::':925-991;:'1:1.**

..,

2f.13:9
:?1;:'I4:1.
;:?12/4;;;::
;2/2143:

'·.·'2U.

PTf.·JP

PXRASM
MIRA990 V2Ll
CI....E'::It-': ::::;'/"'1TAE: CIF F:E:::: F' ,. )[) RE:F~)

0. ,· ;·

't-

2 I?I 6:=;:
:::::069
:;::~::I?t

;?~?t73:

2~::I?"l
~~~~f?5

;21;:'76
2~:17?
~~~07f.:
;;:~12179
::;::~?:1::::~:1
2~)S:t
2~)::::2

2~::tS~:::

;;;::0::;::4

2~::19~)

:21?'191
;2~7.19:::::
2~):::;'4

C.'·"

,

;;::~)95

~:(196

2f19'('
.?~::1:::1::::

2099
2100
2101

0DF6
0DFS

0D32~
0DFA~

:::;t .::j. :::! :::;12~:) ..-. 9 91~1:1. :f: :+:

SYMCLR
CLEAR FORWARD REFERENCED SYMBOLS
REVISION: 03/O:1./74
ORIGINAL
COMPUTER: 990, ASSEMBLY
ABSTRACT: THE SYMBOL TABLE IS SEARCHED FOR RECENTLY
DEFINED SYMBOLS. I. ~. SYMBOLS WHICH HAD
BEEN FORWARD REFERENCED BUT WHOSE REFERENCES
*
HAVE NOT. AS YE~ BEEN RESOLVED.
FOR EACH
:+:
SUCH SYMBOL. IT CALLS FIXFRF TO RESOLVE ITS
:+:
REFERENCES AND THEN MODIFIES ITS SYMBOL TABLE
:+:
FLAG CODE SO THAT IT IS NO LONGER CONSIDERED
:+:
AS RECENTL ',-. DEF I NED.
:+: CALLING SEQUENCE:
:+:
BLWP @SYMCLR
:+: ADDITIONAL NOTES:
:+:
WORKSPACE = SYMBOL (SHARED WITH SENTRY, SRCSYM,
:+:
AND REFDEF)
:+:
THIS ROUTINE IS ONLY CALLED WHEN THE FLAG
:+:
NEWFRF IS SET SIGNIFYING THE EXISTENCE OF
:+:
A RECENTLY DEFINED SYMBOL IN THE SYMBOL
:+:
TABLE AND WHEN THE FLAG REGISTER BYTFL OF
:+:
WORKSPACE OTBWP IS CLEAR. SIGNIFYING THAT
:+:
THE OBJECT CODE LAST PUT OUT COMPLETED A
:+:
WORD OF CODE.
THESE TWO FLAGS ARE CHECKED
:+:
EACH TIME BEFORE A RECORD IS READ.
THE:
:+:
COUNT I,"J t·t:;::E: I T I:::' IY:::;E:T:o li~:;:: THE S'T11'IE;t)L 1··.IIJI'iF:Fj:;':
:+:
FOR COMPARISON WITH ENTRIES IN THE FORWARD
:+:
~?EFEF:E~·.IC:.E TAt::L.E.
:+:
F:()lrr I NE~; CHUFf): CilS'·.·'L... ClT:::::FL... F' I ;::::L

NO

o
W,k; .$

AM414 .. .

. · 04 #

..

PXRASM
MIRA990
V2Ll
C:L.EAF.: ::t'T't'lTAB OF RES FI.·jl) F.·EFS

21.:1.6

0

:?1.17

I2IE:1.4

~?14;211

~~1E16

:1.5E6·'·

11E:1.:::
f1E:1..A

:1.7[)C···

~;::t~t:?

PAGE 12112157

@SLANI'::: .. *,S'T"'1PTR

FIX UP FWD REFS

CLEAR AS REe DEF~D

FIND NEXT SYMBOL IN SYMBOL TABLE

:+:

2:1.:2:1.
2:1.22
21.23:
2:1.;;;;:4

~3E2f1

CI2I~33:

;;:~~1.25

0E;;-~::::

88f10

f.1E;;~4

0E:3:::::'"

~'21.;?6

~3E~'26

1.5EO

::;:::12?

~?lE2:::::

~34E~3

~?lE;;~A

11~':~6C···

I2IE2C

1213::::::~?t

~'21;2:::

AS
*'
*'

;;2:L?~3

::1..:7.'(',·..·7'6

YES.

842~?1

2:1:.1..9

:1..7: 44: :1.0

9489;;~5-990:1.*':+:

N::·~:1.

f.1E1C

~::t5::!8

1~~E:1.E

06~?I::.:i:

INC
r'EC
MOV
C

NSBIT
SYNNM
SYMNM.SYMPTR
SYMPTR.@ENDST

INCREMENT SYMBOL NUMBER
POINT TO NEW SYMBOL
GET NEl·~ SYMBOL
Dm'JE?

·JGT
CLR

SCHK
I~NEl"'FRF

NO
'T'ES..

CLEAF.: RESOL VED FLAG

F.:ETURN

o
... _$

PXRASM
MIRA990 V2L1
17:44:113
•
OUTPUT EXT REFS AND DEFS 948925-9981**

o

PAGE 0058

1

* TITLE:

.2:1..33
~~:1.3:I::f.

~;::13:5
~'21]:6

;~:13:9

2:1.4~3

;2141
2:142
2:1.43:
2:1.44

2145
::2:1..46
2:1.47
;2::1..4:::::

2149
2:1..5~?t

2:15:1..

~:'1E2E

m)J:;;;:~'"

;215;;::
2:1.53:
2:1!::;.:.1,

8E3:IZ1

~3E3:;~:'"

21,55
;2:156
2157

:+:
:+:

0E?2
~3EJ:4

2:1.!::i:::::

2:1..59

*

C020

f1E3:6

~3;~~~:::16

~:'1E3::::::

~3~?t~:::15

~3E:?A

~32f1C

~Z1E3:C

~?lI~~7E:

@SYMTAB.SYMPTR

POINT TO SYMBOL TABLE

1...1

Nl'JSCT,- 5

SET SYMBOLS-ON-CARD COUNT

LI

o1...1 T5,. ()8.JF.:CD

POINT INTO OBJECT BUFFER

Nl.JS'T"'-12

*

:+:
:+:

0E3E

88013

~3E4f1

~::.'tE:J:8

2165
;2:.1.66
2'1,67

13E42

:1..236

2169

13E44
0E46
0E48

WHILE 5YMBL TABLE HAS AN ENTRY
C

,,'

S'r't'lPTR-

I~ENDST

BRANCH ACCORDING TO FLAG

(::rE4~/
~3E";I,C

2171

MOV

."

;~~16IZ1

2170

POINT TO THE START OF THE 5Yt'lBOL TABLE

:1:1. 54 .,'

2::l.f.;1

;2:1..62
2:1.63:
2:1.64

REFDEF
OUTPUT EXTERNAL REFS AND DEFS
* REVISION: 03/0:1/74
*
ORIGINAL
* COMPUTER: 99B,ASSEMBLY
* ABSTRACT:
:+:
SYMBOL TABLE IS EXAt'1 I NED. EXTERNALLY REF ·"1)
:+:
OR DEF ." D SYNBOLS Af':E PLACED I NTO THE OB.JECT
:+:
CO['E AN[) U~mEF I NE[.l SYMBOLS ARE PR I NTE[) I N THE
:+:
UNDEFINED S',.'t'lBOL5 LIST,
:+: CALLING SEQUENCE:
:+:
BLWP @REFDEF
:+: ADDITIONAL NOTES:
:+:
WORKSPACE = SYMBOL (SHARED WITH SENTRY.
:+:
SRCS'T'~1. S'T't'lCLR)
:+:
THE SYMBOL TABLE FLAG VALUE IS USED AS A JUNP
:+:
TABLE (FTAB) INDEX
:+:
ROUTINES CALLED: GTSFL.GTSVL,BINHEX.GTSNN.
CI...ROB.J,- Pf<:INT
*
REFDEF
DATA S'T't-1E:()L
l·JORKSPACE
[:·/=tTA AF[)FBG
::::;TAfH
AFl)FBG
:+:

;2~1:.:::7

c

1. 97 .... 76

AE4E

06A0
1:::1()52 ,,'
0822
:.1..A5IZt ,,'
~::rF4F ",
:1..0FF JMPF

Bl..

(!'rGTSFL.

GET SYMBOL. FLAGS

Nell/B I]lFTAB':: FLACt:;:;. " (~,J1'1F'F +:1.
JUMP ON FLAG VALUE
PROCESS EXTERNAL DEF

::~~:l'7f:::

o

(~1E5(1

021::'1:::::

1~~E'5;2

3:Sf:'W1

*
F::":TI.)FP
L.I

NSE: I T,-

>3:5~Z1t;;:1

MARK AS RELOCATABLE DEF

PXRASM
MIRA990
V2L1
17:44:10
OUTPUT ~XT REFS AND DEFS 948925-9901**

o

;;:::1..77
;;:::1.78
:2:1.79

(1E54

If.10~?

PAGE 0059

IN

.Jt·1P

DROUT

PLACE

OBJECT BUFFER

LI

NSE:IT .• )3:600

MARK ABSOLUTE DEF

EXTDFA
~]E56

~'3~"20E:

~3E58

3:600
*
*
*

2:1"::31

OUTPUT OBJECT

[)F~(::rUT

2:1::::5
2:1..::::6

~~1E5A

~36A0

~~1E5C

~?1D78···

0E5E

[:'F~38

~:1E6~?1

C8~3C

~3E6:;:-~

0E6A'"
04;;-~~3

;;:~~:t..88

IZtE64
0E66
f.1E68

~7:~:1..~;':S"

~3E6A

~30~?IO

2:1.9~3

0E6C

~::t;2;2C:

~~1E6E

0';::104

~3E7~?1

~3~::;:~::17

~3E7::

CONVERT TO ASCII

[:'ATA '..,IL
S.,.'I'1LOC: DATA ~3
AI
OUTS .. 4
LI

'·.·'ALUE OF S'T'MBOL
LOCATION IN OBJECT BUFFER
POINT TO NAME AREA

SetH:2 .. 6

SET CHARACTER COUNT

LPOT

2194
;~~:1:;'6

(~GTSVL

(:mE~3'"

:;:~::f..~:=t2
;~~1.. ~;'3:

BL

MOVB @BLANK.*OUTS+

BLANK OUT NAME AREA

DEC:
.JGT
AI

RESET OBJECT POINTER

SC:NT;2
LPOT
CIUTS .. -6

PO I NT TO S'T'!"180L NFWIE

BL

0:2~37

L..I

SCNT:?.6

SET CHARACTER COUNT

MOVB
[:tEC:
[:tEC
.JOT
A
DEC
JGT
1'10 V

*SyrmM+.*OUTS+

MOVE IN SYMBOL NAME

!... POT?

IZtE9~:::1

;~~~?:~35

~'3E::;t<~:

2;;;::1~~6

~::'~E94

;;::;;:~~:i'?

~::1E96

~3E9:=:

(1E9A

~34;2~:::1

~:::1E9C

:1.78E···

(1E9E

~32f.16

~::1EA(1

~30f.15

~?1EA;2

1~1 :;:: ~::1 C
0t?J7:3'"

0EA4

:::::O.JT:2
COI...INT
I...POT;~:

SCNT2.0UTS
ADJUST OBJECT POINTER
NWSCT
ROOM ON CARD?
NXSYM
YES - GET NEXT SYMBOL
OUTS.@OTWP+08JPT+OBJPT
NO
CLEAR OBJECT BUFFER
RESET SYI'1BOI...-ON-CARD COUNT

l..I
LI

OUTS .. OB.JRC[:'

RESET OBJECT BUFFER POINTER

:+:

2;;:-~1:i
2~:;:::1.:.?

*

:?;:;:::1:3:
:?;:;:::14
:??:l5

:+:

EXAMINE NEXT SYMBOL IN SYMBOL TABLE

r·J:'·'::::::'T"··l
~:'lEA6

~3E;~1~1

1~1F.A:~:

f7.1D'?::::···

C1FAFi

~7.1f~f?I::::(

BL.

(~t3TS'·.·'L

POINT TCI LAST Lo.IOF.:D IN FNTF.:'T'

[:OEC

::;'T'I··lNt·!

POINT TO

NE~<:T

S'T'I··'IBOL..

o
$

_

• . $ZW.ms

,4M( .

£ S£L£.u P,,,.,

~~~H~M

MIRA990
V2Ll
17:44:10
OUTPUT ~XT REFS AND DEFS
948925-9901**

o

2217
2218

0EAC
0EAE

C003
10e7

MOV
.Jt'tP

*
*:+:

;2221.

::1..9·7.·..'76

PAGE 0060

SYMNM.SYMPTR
Nl.JS'T'N2

END OF WHILE LOOP

N::3:40~Z1

1~1EE4

N:'\S'T't'l

o
Q

4.

... ,A $l $

....

PXRASM
MIRA990 V2L1
17:44:10
SEARCH'OP AND DIR TABLE
948925-9901**

o

2255
2256
;2257
2~~58
~~259
;2~~61

2262
2263

2264
2265

2266
2267

2268
2269

2::;::70
~~2·?1.

2272
2~;;:~7.:~

2275
;2276
2277

2278
2279
'-"-'0'-'
c"
.. ';;:'~• .:::.

c

;2;283=

2284

;2286
2289
;;~290

2'7~9:1.

2292
;;::293
;2294
2;295
~:~;':96

;229:3
2~~SI9

OPSRCH
SEARCH
OPERATOR AND DIRECTIVE TABLE
** REVISION: 03/01/74
*
ORIGINAL
* COMPUTER: 990. ASSEMBLY
* ABSTRACT:
*
THE OPERATOR /'lNEMON I C AND DIRECT I VE TABLE IS
*
SEARCHE[) FOR THE SYt'lBOL NAt'lE I N THE OPERATOR
*
FIELD OF A LINE. I F THE SY/,lE:OL IS NOT FOUND.
*
CONTROL WILL RETURN TO THE INSTRUCTION
*
IMMEDIATELY FOLLOWING THE CALL. IF THE SYMBOL
*
IS FOUND. THIS INSTRUCTION WILL BE SKIPPED
UPON RETURN TO THE CALL I NG ROUT I NE. I F FOUND ..
*
*
THE CODE CLASS OF THE SYMBOL WILL BE DETERMINED
,.. CALLING SEQUENCE:
,..
BLWP @OPSRCH
,..
NOT- FOUND-INSTRUCTION
,..
FOUND-INSTRUCTION
* ADDITIONAL NOTES:
,..
WORKSPACE = OPSWP (UNSHARED)
*
AN OPERATOR MNEMONIC AND DIRECTIVE TABLE ENTRY
,..
CONSIST OF THREE WORDS. THE FIRST TWO WORDS
*
CONTAIN THE SYMBOL NAME (LEFT-JUSTIFIED. ZERO,..
FILLED). AND THE THIRD WORD IS DIVIDED. INTO
,..
TWO FIELD~ THE FIRST TWELVE BITS OF THE WORD
,..
(0-11) HOLD THE INSTRUCTION FIELD FOR A
*
MNEMONIC AND A BRANCH NUMBER FOR A DIRECTIVE.
,..
THE RIGHTMOST FOUR BITS OF THE WORD SIGNIFY A
,..
PROCESSING TYPE. THE THIRTEEN PROCESSING TYPES
*
ARE:
,..
NUM
ACTION
,..
o
NO ACTION
NOP .. ',.·'1 I
:1.
TWO
GENERAL ADDRESSES
I
*,..
ONE GENERAL ADDRESS
I .....
,..
B'T'TE E::::T

TITL
UNL

THE OPERATOR TABLE IS SEARCHED THROUGH THE USE
OF A L I NEAR SEAF.~CH.
DATA FR~'JP
DATfi elPSSG

l'JOR~:::SPACE

C:I. .R
LI

"(:LEAF.: BF.:ANCH
POINT TO START OF TABLE

BF.:ANC:H
OPPTR.OPTBL

STAF.:T

COMPARE SYMBOL TO TABLE ENTRY

:f:

SC)PL.OP
':::fEF,:t

::::DE::::

~:1EF6

~:1~:HX1

ClEF::::
(:;FFr1

f:DE::::

I~)FFC

~-::IOO;2

::L6CIB

C

@WORD:1(OPWRD).:+:OPPTR+

15 FIRST WORD THE SAME

.JNE
C

Bt·J;:':;OP:1.

NO
@WORD2(OPWRD).*OPPTR+

IS WORD2 THE SAME

BN;:':;OP2

\?IEFF

It::09

,JNE

t::;Fi~~O

C:,?:::~i?

MOV :+:OPPTR,OPCODE
MOV OPCODE,BRANCH
ANDI OPCODE,)FFFO

NO
GET elPCODE
GET BRANCH T'T'PE
SEf-:'AF.:ATE

At·J[) I BF.'ANCH, >F

(JET BF.:ANCH T'T'PE
TAKE ALTERNATE RETURN
RETI...IRN

2~:::::::9

0F~i::J2

C:2C:9

,::'::4121

OFI~~4

O~?4:::1

OF~:jC:

F'FFf,i

,:::::?:·:!·:I.

('IF 0::::

,:,,24[:

0FOH

1::~I:::I~-::iF

OFf:)C

IJ~:::;CE:

INCT

'::T OPEF.:ATOF.:
ARE WE PAST THE TABLE

F:OPL()P

NO - CONTINUE SEARCH
RETUF.:N - NOT FOUND

?~5~

'''0'::5:'

(W16

Ci42;~"

0F18
(iF:l A

12ED

,JL. F

CC:::::O

F:TI.,.IP

JQJU,,_,$ M

. 4$

£44$

. I

44 _Q. A..i

,4 _ . Mi, -.

.•

P;:':;PA51'1
I"1IF.:A99~3
E:"';PRE:'::;9 I ON EVAUJATOF.:

0

~'2:3:5t~

~3F:tC:

~3131211."3

~:3:57

t;;:1F:tE
I2IF:=20

1.3121121121
12100~3

1~1F22

~:::u:::t1;::1121

t1F;24

131211210
fl 121121 0
(10130

;;~3:5:3

23:59
23:6f:t
236:1..

~::1F;26

1~?];6;2

~::;F2E:

23:6]:
23:64
2::::65

0F2A
0F;2C
0F;2E

~'2J:66

~3F3:~:'I

23:67
23:6::::

1.3F3:;;;::

2~3:69

13F3:6

2:.'?:7f1
23:7:1.
;23:7:?

~:'IF3:A

€1~3e:11.::1

1;::1F3C

;2?:73:
;23:74

1~1F4[1

1211.3121121
fU?!€1€1
0€1(H3

~3F:~4
~:~F3::::::

~3F3:E

01210~3
1313~3~3

000[1
01.3130
(1121130
1.:'1[113(1
01211210
[1[10121

f'i2I..a:1..

E:':;~·JP

E::-~l·JP ;2

1.7:44:1.0

94:::9;25-99~31.**,

[:IATA
DATA
DATA
DATA
[.lATA
[)ATA
DATA
CIATA
DATA
DATA
(:lATA
DATA
nATA
[lATA
DATA
DATA
DATA
DATA
DATA

:t97.·..'·76

~3

PAGE 0063:
WR0
WR:1.

R5 ..... AL
CL5TYP
loJF~2
CHAR
WR3
RE5LT
WR4
RESLT2
loJR5
OPRES
WR6
REL ..... L
lo,fR7
RLVAL
j..JR8
OP
WR9
SP
l·JR:1.0
.JVAL FL
loJF<::1.:1.
RETURN
j..JR1.2
ZCK2
WFU3:
NFloJD
j..JR1.4
FSTIM
j..JR:1.5
NGFL
loJR1.3 (2) OLE;. loJP
I-oJR:1.4(2) CILD PC
l·JF:::15 (2) OLD SR

0
0
121
0
0
0
121
0
0
121
0
0
121
0
121
121
~3

0

o
; .

\

.

4 .•.$

I'll ,..:: 1-1:-::1 :::H:~

" .•...• P:.n.::'1'1

:1..? : 44 : :1[1

'.,.';ZL.:l..

EXPRESSION EVALUATOR

:1..97 ....'7'6

94::::925-99~:'1**

* TITLE:

1'-\.
'-Ji

'''":'--;:-7-'::;,
,...•

:+:

.:.. ._;. I

*
*
*
*
*
*
*
*
*
*
*
*

23:::::::
;~::]:90

Z3:9:t

:+:

*
23:93~

:+:

;;:3:94

*

2~3::7.J5

:+:
:+:

;;:~3:~516

*
:t:

;;23:99
~;::':;I·O:l.

:+:
:+:
:+:

;;::.::j.~::1~7.1
241~i;;:::

:t:

;:;: 4 ~7.i :~:

:t:

;~:4(~4

:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:

~~:41215

:-:-::.::/.[16

24f17
241~1:=:

;;:::4\39
24:1f1

2·::/.:1.:t
24:1;;::

:?41:::!:
;;::414
2415
24:1.6
2417
?41::::

0F42
0F44

0F22/
0F46/

OF4~;

02E\7.1

OF4::::

i?IF:1C . '

DATA E::-:;~'JP;;:::
[:tATA E::-:;8G

~·JORKSPACE

::::;TAPT

EXBG
CHANGE WORKSPACE
:+:

242(:)

:+:

2421

:+:

2.::I,;?4

GETSVL,ER7,ER2.FRENT.ER3.ER4,PF.:PMD,L~CHAR

E;:-:;PR

;?419

2422
2421

EXPRESSION EVALUATOR
REVISION: 03/01/74
ORIGINAL RELEASE
03/15/76
t'10[:' I F I ED TO RUN ~.J I TH P~·~F.:t'1TR, DORG PROCESS I NG
ADDED
COMPUTER: 990.ASSEM8LY
A8STRACT:
EXPRESSIONS ARE EVALUATED IN A LEFT-TO-RIGHT.
NON-PRECEDENCE FORMAT. THE EVALUATION OF AN
EXPRESSION IS HALTED UPON ONE OF THREE
SITUATIONS: (1) THE READING OF A NON-ALPHANUMERIC CHARACTER (OTHER THAN +.-.*./.$) (2) A
NON-OPERATOR CHARACTER FOLLOWING AN OPERAN~ OR
(3) THE READING OF AN EXTERNALLY REFERENCED
SYM80L. THE EXPRESSION MAY CONTAIN ONLY ONE
REFERENCED SYMBOL.
TWO ALTERNATIVE EXITS MAY
BE TAKEN - THE FIRST FOR EXPRESSIONS WHICH
CONTAIN NO FORWARD REFERENCES. THE SECOND FOR
EXPRESSIONS WHICH DO,
CALLING SEQUENCE:
8L.~·JP r~E;:-:;PR ...
NON-FORWARD-REFERENCE-INSTRUCTION
FORWARD-REFERENCE-INSTRUCTION
ADDITIONAL NOTES:
WORKSPACE = EXWP/EXWP2 (UNSHARED)
AL.L SIXTEEN REGISTERS ARE USED BY OVERLAPPING
EXWP AND EXWP2 ALL ENTRANCES ARE DEFINED
THROUGH E;:'::I.·JF';;::' TO RErFI I t·J THE F.:ETI..IPt·J E:~N"',I I F.:CINi'IENT
THE FIRST INSTRUCTION IS THEN A LWPI EXWP TO
GAIN THE TREE ADDITIONAL REGISTEF.: FOR USE. A
LWPI EXWP2 WILL THEN PRECEDE ANY RTWP
INSTRUCTION. THE NFWDA FLAG WILL CAUSE AN
ERROR RETURN UPON DISCOVERY OF A FORWARD
REFERENCE.
ROUTINES CALLED: GETCHR.ML8FX,SCAN,SRCSYM

0F4A
0F4C
0F4E
(iF50

INITIALIZE VALUES AND FLAGS

04CF
04E0
1:lB0'"

CLR
CLR

NGFL
CLEAR NEGATE FLAG
@FRWP+FWDSN+FWDSN CLEAR FORWARD REF SEEN FLAG

O~:-::~~I::::

L. I

()P,

(:j ell~~ ;;:::

;'::' ,{ :? 5

~::IF:":i 4

W5:::: 5

INC

(IPRES

?:j. 2 t~

l~iF '::5

C[:t

C:L.R

NHJ[)

t;

1~14

I"'IARK AS PL..i...IS

;?

F :,,:i ;?

(~i

SET OP AS UNRESOLVED
CLEAR NO FORWARD FLAG

· · ~,:"
O
";

.'AP.A?

·,4

4.

,$

&%#M.4 . .¥ $ ..$ ¢$ "

44#4¥S -',_." _,. -

PXRASM
MIRA990
E>:;PRE::7.S ]"ON E'·... ALUf=tTOF.:

c

2427
;;::·:+2::=':
;:;;:429

[I F 5:::::

~7:l4C3:

12tF5A

~~4C4

~:3F5C

~:'14C6

;;-~43:f.1

~3F5E

f.15:::::E

2431
2432

*

*
*
E:":CON

;2.:~J:5

0F6~:1

f.14C7

~:~43:6

0F6;2

042~:1

~:'1F64

116E'"

~::tF66

1;3;;::E:;;-~

~3F6:=:

~::t~::t20

~:'1F6FI

:t:16B

~::IF6C

N~6;2

~:'iF6E

12t19A'"

~=?44CI

12tF70

~39:=::1.

;;::441

~::tF-;::'2

D:::::;2:1.
lA3::::::'"
(1F79'"
lCiFF

~~F74
t::~F76

24·:1-2
2.:.1··::f·3
2·c1-4·::I·
;:;;:445
;?44f:;
24·::\-7

'·.·';2L:1.
17: 44 : :1.0
94:::::9:25-99t;;:1:i

nF7:::::

PAGE

**

CLP
CLF.:
CLF.:
INC

RESLT
F.:ESLT2
F.:EL '·... L
FSTH1

CLEAR F.:ESUL T
CLEAP RELOCATABILITY VALUE
SET FIRST TIME FLAG

EXAMINE CLASS OF INPUT SYMBOL AND BRANCH

eLP PL'·/AL
BU-IP IEGETCHP

MARK AS ABSOLUTE
GET NEXT CHARACTER

C:I

IN RANGE?

JLT EPPS
NO - ERPOP
MOVB @CLASS->20(CHAR).CLSTYP
GET CLASS TYPE
SF.:L
CLSPr'P .. E:
MOVB @JMPTB3(CLSTYP).@JMP3+:1.

,.H·1P3:
:+:
:+:
:t:

"n"IF'

BRANCH BY CLASS TYPE

$

END OF EXPRESSION -

EVALUATE COPPECTNESS

C~:::EF;:

(:iF7fj
riF7e

(14EI~J

eLF.:

CLEAP NO FWD PEF ALLOWED FLAG

;:;:'·:-1-4:;:::

~:'1F?E

J:tF.::::: ..'
C:?:='::E

;2449

0F:::::~?1

:1.E:6f:~

,JNE

245~:J

~::1F:::::2

~::1621::J

['E(:

F:::'T I t·t. FST I I""
ERR::::
(i~SCi·JP+~:;CPT +SCPT

~:'1F:::::4

(X:::J..6···

24~5::!"

1"10'·/

ANY RESULT PRESENT?
I'~O.,
EF.:F.:OF.:
YES, DECREMENT SCAN POINTER

~::1F:::::E:;

C::?;~~~3

MOV

@FRWP+FWDSN+FWDSN,ZCK2

~::1F::::::::::

:1::LB0 ..'
:.1..613:::::
(:::1:::::6
:1.J.59
R?::=':6

JlJE
MOV
,JL T
CI

(30
RELVL,RELVL
EPF.::-::.
PEL'·... L..1

:::::4'52

~3F:::::A

;::::45:~:

~:JF:::::C

::;;:4~54

~::tF::=':E

:?455

~::1F9~::1
~::1F92

~::10~:H

24~i6

OF94
i2IF96

1556
C::145
1654
::1.. ~:'i fi 4·

2·:+:)7

~3065

;:>11:';:::;:

~~F9:::::

;;:: I:i· ~:; ~~
;;:::460

(1 F' Sf t=1

JCH

ERF"::::~

tKI'.,.'
,JNE
JI'lP

OPPES .. OPPE:3
EF.:PS
E;:·::PF':E::-:;

'T'E:::~

NO.. PELOCATABILITY VALUE?
LESS THAN ZEPO - ERPOR
GREATER THAN ONE?
',,'E:3 - EF.:F.:OP
NO, OPERA TOP LEFT HANGING?
'T'ES - EPPOR
NO - TAKE NORMAL EXIT

:+:

?461

:+:

::?':'~f;.:?

:'1':

CLEAN UP FORWARD REFERENCE TABLE ENTRY

00
FWD RF SEEN.
;?t465

~~FA~::j

f:WH2
,:>,:1(:('

'::',11:;':::

!?15Efi
I)F:::::F'

(~!F~FI4

O;?E[i

f3F:-fl6

13:=2;::::"
eC::::fi

c~FH::::

FIX UP MLB IN FR

TAKE ALTERNATE EXIT

FTi,·,IF'

F.:ETUPN

,": ,I I':;':!

o
PMM4YL" 4.

'""

__ 1

C ..

J. 4P,A,,$

0),"

4

@¢J\i444lJ$4i4i.42 __ a..(.4"".i. . .L.i,,_&l:llL¢2_.¥'-~

MIRA990
FXPRESgrON EVALUATOR

~XHH~M

o

;~:·::I·'?';:I

:+:

;;~4?::L

:f:

:1,7: 44: :1.. 121

V2Lt

PAGE 12112166

197.·..'7'6

948925·-99~1:t.*:+:

PROCESS ADDITION OPERATOR

OF'STK:l.
:24'?4
2·475

(:~FAA

C145

MOV

f1FAC

:131218

~TEl1

OPRES.OPRES
STk:

~~1FAE

l£1D8

,,,Tto1P

E~"::CON

SLL OPERATORS RESOLVED?
'T'ES. STACk:
ADJUST NEGATE FLAG
CONTINUE

:+:

;24:;:::4

PROCESS MULTIPLY OR DIVIDE OPERATOR

:+:
:+:

OPSTK3
2488
2489
249121

BFB8
0FBA
BF8C

INC

B58D
C145
1642

"'1(1'•••'

,JNE

NFl·H)
OPRES,. CIPRES
EF<:RS

SET NO FWD REF FLAG
OPERATORS RESOLVED?
NO. SYNTAX ERROR
~LL

:+:

c

STACK C)PERATOF<:

:+:
:+:

2493:
::'::494

STt:::

SL.A

~~IFCI~)

1"10'·.·'

~~1FC2

INC
CL.F.:

1~1FC4

~~14CE

~:WC6

lBCC

"n"'p

~~~5r?1r:::1

CL.ST'T'P,. 1
CLST'T'P. C)P
OPF<:ES
FST Ito"
E::,::CCrN

STACK OPERATOR
SET UNRESOLVED FL.AG
CLEAR FIRST TIME FLAG
CCINTINI...IE

:f:

OBTAIN OPERAND - QUOTED STRING VALUE

25~::i:1.
~:'::~)i~12

SCOT

25~~1J:

251214
251215
2506

BFC8
BFCA
r3FC:C
BFCE
(1FDB

B4C5
05AB
rZlC1C , '
12142121
~?lC~~C

CLR
INC

GET CHARACTER PAIR

",

(lFD;~t.

J..~3~?I(~

flFD4

~~14;~:r2t

CfFD6

:1,:l6E ",

NOP
BU·JP I1'tGETCHf;,:

12rFD:;:::

25J..B

f2tFDA
0FDC

1632

;;::'S:LL

~?lFDE

1::;4H;

2512

121 F EI2t
BFE2

r::-1Cte,'
(1212121
13(::1..2 ,"
B6C0
[)1](1!?i

l?,iFE4

OPRES
CLEAR OF' RESOLVED FL.AG
@SCWP+INCSC+INCSC SET INSIDE STRING FLAG

,

CI

CHAF.:,.

JNE
CLR

ERRS
NO. ILLEGAL QUOTE IN EXPR
@SCWP+INCSC+INCSC CLEAR INSIDE STRING FLAG

MOV

@SCWP+RESL.T+RESLT.RSVAL

:::,:27

2513
)51.4

0FE6

,:::''';J~:':;

1:;;FFfi

l:;::(~!::l

JEC!

::::crrr2

?51~

0FEC

06CB

:::;',·,IPE:

P:=~""'AL

CIFFE

::!.. (je;~::;

.JHF'

'·h-=tLCrP2

j;~FE:;:::

DUMMY EXIT FROM SCAN
GET NEXT CHARACTER

:;::;l·JPE: PSVAL.
t·10',... E: F.S'·... AL

IS IT A

(~UOTE

GET I,lAL.UE

ADJUST FOR ONLY ONE CHARACTER
F.:SVAL

,::d'·-:;.I?
,~"i:L,:::

USE AS

CIPEF.~AN[)

o
$

" .UA.# "$,.4#A¢..PQ44A

_ .. S ..

z.-.,....

"ft

PVPASM

: :F".',..,:
,... -F"" ::~'::"
''':'.''[ ,-,.'
E.:,:':,
.. ,..,

0

.,

MIRA990

r··,',',-,
11···r
... r'~
c.
1-11.......
t·1 /..II':

>I-:

2~~;~~(1

:+:

~:~5;~~1

*SCAL

;2:5;~~::::

~"::IFF0

~::16;2~"::I

~::1FF<-;-~

~.:'IC:16

~~~r:52:4

~::1FF4

C:1<..'f.5

~~:5~~:5

0FF6

:13:C:1.

;~:526

~::1FF8

~34C5

:::5;27

~"::IFFA

~'34;2~::'1

0FFC

f1L:;-~C

;;::5;2:;':

~7:lFFE

::I..£15C

~~~52::;t

:1..~::1~7:I~::1

(14;2~3

;25::::~~3

..'

f.1D94 ..

:1..£H7:l4

::I.. ~'3 ~'3 ~::I
:+:
:+:
:+:

~:':~5::~:2
;2~5:3;3:

;;~~~)~3:5

::~5:~;~~;

:1fH:'16
:H"::Ifi::::

C;2At2!

:l~::1I)A

[):=:~:~A

:1..'~":::1C:
::!.~::i~:'1E

l.fi42
J0:1.:1

::U:U, '~1

::U3FF

1~'DJ:6

Jt'IPt::
:+:
:+:

;?5~;:~~"
J.ril,~:

:+:

5 .~:~ :3:

:+:

;? ~:~ ,::j..::f.
:? ~~:j L:I· ~5

-.!::.:'

,.!

"'1"

-,

c>

1..::'1:14

04;;::i:J

'1I::J:L6

(:iD6E

:1.';:1:.1..:;;::
J.I2!:'!" A

(:(12(:)

:lCi:J..C

I2ID?C:
:!..\::I·:lF

NOT IN TABLE

SYMBOL FOUND - BRANCH ON SYMBOL FLAG TYPE
@SYMBOL+FLAGS+FLAGS.JVAL

..n·iP

BPANCH BY FLAG TYPE

~j:

RELOCATABLE SYMBOL

:+:

RELnCATA8lE

'·.·'f1L..(IF';;:;

EXTERNALLY DEFINED SYMBOL

Er,
J.. Clt.E

C;?t:;~7:1

:l';::i;::::~~1

OD:~:2

MOV

@SYMBOL+SYMPTR+SYMPTR.SP
:+::;P .. r';;5',/FiL

.'

;?5~;"··i·

:1. ~:~;~:;?

C(3::1,.9

NO'·,.'

;;~~"55::i

:1,1:::124

~::'1;~~4fl

fiNO I P:::;'·,.'t'il... . '>FF07

:1.~?:I~::6
;?~~:i~=j6

:H7.12::;::

FF(i('
12126(:1

lf3;?A

@~15~)

:1..1~~2C

C640

ADJUST FLAG VALUE
MARK AS REFERENCED
CONTINUE AS FWD REF

2~i::3::~~

:+:

:'? l::~!::::~~
·:::\r.::;,.::;,:?t

:+:
:+:

FORWARD REFERENCED SYMBOL

FF.:

.:;:~ ~:::; ~~~·t

.;::·::~i I;::' :~:.

H~

AB:::::CH.,.I.,ITE ::;::'T'I·lBOL.

Ji'iF'

:+:

;:?~5~?

MARK

PL. '·... AL..

:+:

.?I:::i~:::; :;:0

0

NOP

GET S'r'I·1BOI.... ".·'AU..It=.:

:;~:::::;!=;!?I

.1.: ..

SCALAR - GO PROCESS
SEARCH SYMBOL TABLE

"

,?':'?'::l.
•••• !.:,:.!:::•.-:

.Jt·lP '·. . ALOP
BI.J·JP ,]I SRCS'T't'l

*
AO!='

2~~;,:-;'9

.·::•... 1 •..

ALL OPEPATORS RESOLVED?
YES - TWO OPERANDS IN ROW
CLEAR UNPESOLYED FLAG
GET OPERAND

:r t·,le

~:j~~i::::?

~?~~·::f.;2

I:,~ '. [

C'PF.:ES . OPf':ES
CI:;PPE::<

E::'~

IT

1~?14:::::

~::14C6

:25-;::'6
;;::577

::Lf?14A

:H::1AC

2578
2579

104C
104E

04CE
0420

H::t~jC1

:1::t.D~3

:1052

1086

ER'·/L

;~:~5(' ;~~

CLEAF.: F~ESUL T
CLEAR RELOCATA8ILITY

E>:; PF.: >::2

~~575

2581

NO - ILLEGAL FWD REF
YES - IS FWD PEF ACCEPTABLE?
YES NOW - PPOCESS

NFl~D

ERF.:5
1J344

~~:5~:'::

ILF
NFloJO .
FF.:GT

BUJP ']fER?

1.((:1::::::

2~57~3
~2!:;7:1.

0~368

IL.F
::l..r-·-·
;~ ..::.L

;256~3

PAGE

19?,,·'7'f':'

:::;'4:::::9'~::5-99~::t:l.*:+:

:1(13:0
:103:2
::1..03:4
;;::566
~7:~567

17: 44 : H~

'.... ;;::1..:.1..

FRCiT
eLF.: FSTHl
BUJP I]tFRENT

tLEAF.: FIF.:ST TIME FLAG
SET INTO FF.:T ENTRY

..Tr·w

cor-nINUE

..'

E>:;cor·J

:+:
:f:

EXTERNALLY REFERENCED SYMBOL - MODIFY CHAIN LINKS

:+:

ILE;:-:;

c

2586

1054
lCJ'56
:l.1~i5:::::

0420
Ot.::52··
H:JF6

BL.~·.IP

(ilEF.:3:

Jt'lP
Ef?

2589
2590
2591

105A
105C
105E

C38E
13FB
0420

FST I t·t. FST I 1"1
.JEO I L.E::O::
BU·JP IT~U:::CHI=tR

J.06~Z1

~1..::l.5C

2592

1062
::U::164

0282
00:20

CI

C:HAR.

EPCT
C:Hf=tF.: . );:;::C

'T'ES.. ccmT I NUE
NO.. I :::; I T A COt'WIA

EPCT
CHAR. :::<2:::

'T'ES.. CCINTlt·R.lE
NO.. IS IT A LEFT PAREN

.'

2~'::;93:

:H~66

::1.3:1216

..:rEO

2594

:1068

0282

CI

:1J36f1

~:::II:::I;2C

2595
2596

106C
106E

1303
0282

2597

~072

16F0

..rEG!
CI

)2~3

I ::; I T A

NO.

BLANI<

ILLEGAL EXTERNAL REF

EF.:CT

;~~5~?:~,'

2599

IS THIS FIRST OPERAND/OPERATO
NO. ILLEGAL EXT REF
GET NEXT CHARACTER

1"1[1\,1

1074

0420

lft7t::

~?t[)6E"

:U17:::::

c: m:: 0

261~1:1

1(17A
111?C

(ID.'3:C: . '
C::1.:::::A

:.-::. 6~?t ;;:

::l..f17E

~::12;:;::6

:V~1:=:O

2607

1082

FFF .::1·
C320
:LLBA ..'

::1.0:::::4

BL.I.'JF·

GET SYMBOL VALUE

(~CiETS'·.·'L.

@SYNBOL+VALUE+VAL.UE.PESL.T
AI

J'·.·'AL . PEL.'·,·'L.
PEL'·.·'L.. -:1.;;;::

GET PREVIOUS VALUE

USE FLAG FOR RELOCATABILITY
GET PROPER VALUE
IS PRESENT PC ABS CODE ZERO

4414

;

4

K

,,..,.,

.!!L,.

.

t

3*Uj,.&'M¥U",.~" .

i¥. ,W%4¥#

W$ _

#MY·.,;

PXRASM
MIRA9ge
EXPRESgION EVALUATOR
;;::6~34

It?.1E:6

:::::E:~:l":)

:tf1:::::3

;26£.36
;?607

26:12
2613:
26:1.4
26:1.5

16121]
C3:2:f.1

:1..97,····76

PAGE e~369

94::::9:~:5-99~::11.**

JNE
MOV

ERINS
NO
@MAINW+RELABS+RELAE:S.2CK2

JEG!

EF.E:·:;

t'10V

@DOF.:t3FL Ri1

JNE
MOV

EREX
SET FLAGS IN SYME:OL TABLE
@SYME:OL+SYMNM+SYMNM.SP
REPLACE VALUE (CHAIN

.'
C66f1
1.1.E:A ..'

t·lOV

IEPPC .• *SP

C26~)

MOV

@SYMBOL+SYMPTR+SYMPTR.SP

t'10V
AND I

*SP .. FL
FL.... )FF07

~JV

@MAINW+RELABS+RELABS.2CK2

.JEO
AI

AER
FL::::

AI

FL ..

NO'·.·'

FL .• :+:SP

1I21E:A

~342E

:l~:l::::C:

:L?14

.'
'T'ES .•

[:'0 NOT REPLACE

EF.:INS
:1..~::1:='::E

C:~:Ef.1

:1..e9~~1

llCS'"
161.:1

1~39::7~

2611

:t. 7 : 44 : H~

'·... :.;::L::I

:1.12194
H:::196
1.12198
H:l9A
:V:l9C
:H39E
:1. f.1Af1

C26~3

DON~T

IF IN DORG.

CHAIN OR

~3 D 3::3

MOVE IN PRESENT PC

f1D3:2 ..'
C:~~99

H3R'2

~324A

H3A4
:1.f1A6
10A8

C::::(:';::~::1

t'1CI'·lE IN FLAG
ADJUST FLAG VALUE

FFI2I7
12142E'"
13:121:2

2E::1.6

1.~::1AA

:~~6:l7

:U::1AC:
:1..f.1AE

~3;;:~2A

ltJBf1

~:l22A

:l.~:::1B:~~

006~:~

llZ,1B4

C64A

-CODE IS ABSOLUTE
I···IAF.:K F.:ELOCATABLE

~~11:::U:::1::::

RER
:';::6:19
:~:620

:';::62:1..

MARK AS EXTERNAL REF
PLACE NEW FLAG INTO ENTRY

EF.E:·:;
:1..~::1B6

c

)6~]

:tf1C9
:+:
:+:
:+:

;~:6;~~5

~7:~ 6 ~~:~ r::
:2627

CALCULATE NEW VALUE OF EXPRESSION

'·.·'tiLOF'
:1. t:::tE:::;::
:lOE:A

/·'1I:Y·,,'

C~]20

@SCWP+RESLT+RESlT.RSVAL

OC:l2"
'·,·'AL.. ()P:2

26::::::=:t

CLI:;::

~?6::::::l

:l.f1C~'3

2E:::;:2

:l ~::II=:: ;~:

26:~::::::

:1.1:::'C4
:1..f1C6

1~14CF

CL,F.:

f150~'3

NEG

NHH)
FS:TIN
NGFL., r·,IGFI....
Not·lEG
NGFL
F.:5'·... AL

J.f1C.S

(::t46::::

F::

I~JI"lPTE:5-,7:: 0::

11~1CF'i

:1.~~1CFI

::::: IS? f:

:l.~] C: C:

:l1~11) :~:

::LtXE
:l.fiDI]

lf1~7.1::::

..n'·IP
JI"IP
. n'lF'
. n'1F

A[:o[:oIJP

;::::tS::::·:~!

:26311

263:4

::I..t:::!F::C
lf1E:E

04CI)
1:::14CE
C::::CF
:13:121;2

CL,F.:
1"10'.,.'
.JEei

CLEAR NO FWD ALLOWED FLAG
CLEAR FIRST TIME FLAG
IS NEGATE FLAG SET?
Nel .- ::::;r::: I P
YES - CLEAR NEGATE FLAG
NEGATE \·'AI..JJE

t·Klt·4ECi

264121
2;::;4:1
,?642

ll?I[)2

lOfiE:
::W17

OP::O

E:RANCH ON OPERATOR

FI[)[:' I T I ON
:::::I...IBTF.:ACT I ON
t'll...ILT I PL I CAT I ON
I) I '..,' I S I ON

::::;UE:

,'IUt. T
[:0 1'.,.'[:,

:t:

:'I';,:r~:

:+:

?I·:~·I"I·

:t:

PERFORN ADDITION

1::1 [. [., 1.1 F'
:?,,~

,: 1· I'::;

?6·,:j'7

:Hi [,,:~.
::11::)[·6

HJ.. ::::: i:'
A(iCO

F.:L.".·'AL., F.:EL ',.•'1...
P::::;VAL., PESL.T

CHANGE RELOCATAF::ILITY
At)l) I N VALUE

o
ihM

44

_ $.$

$l. t _ . ;.-M_Af#i±f@)tJ4.

,i¢..k

#MM_ q

__

L..,,_

LIm

0 4 . iU

PXRASM.
MIRA990
EXPRESSION EVALUATOR

c

2648
;.:!:649

:U:;.[:t8

::~65~3

1.0[:tA
1J3DC

0420
0E:56'"

:to[IE

:10E:9

265:1..
2652
2654
2655
;::656
2657
265::;:
2659
2661~1

:1.97/76

TRNE>::

PAGE 0070

TEST FOR OVERFLOW

TRN
8UoJP I]tER4

TRUNCATION ERROR

.Jl'lP

CONTINUE

TF':NE:X:

*
*
*SUB
:H3E~3
tl~~E;;::

6:187

:H3E4
1(1E6

::L9FC
1.0F9

*
*
*1'1ULT

;~:664
:t~"3E:=:

~-::16At:3

:H?tEA

:1:1.f1E···
3::3C:I2I

2666

::J..~:'1EC:

;;;::E;67
266::';:

:10EE
j .. f1F~?t
:1.. €1F~?
1J:1F 4

FREX

PERFORM SUBTRACTION

S
S
JNO
.JI·'lP

612tC~::1

;~:663:

;2E;69

1. 7 : 44 : 1.0

.JNO

:t9~~12

;;~661.

~'2f565

V2L:1.

RL VAL., F':EL VL
RSVAL RESL T
TF':NEX
TRN

PERFORM MULTIPLICATION

BL

C~?tC3:
:l3:~~~2
~?t421;:'1

CHANGE RELOCATABILITY
SUBTRACT VALUE
TEST FOR OVERFLOW
TRUNCATION ERROR

PREPARE OPEF::ANC'S

1'1 P 'T'
1"10 V
JEI)
BU,JP

RSVAL F<:ESI.... T
F<:ESL T., RESL T
FII.... M
I]tER4

t'lULT I PL. Y VALUE
OVEF.:FL.Ol·J
NO
TRUNCAT I ON EF<:ROF.:

MOV

RESLT2.RESLT

fiLL. I GN F.:ESUL T

~:m56'"

FIU"'f
Cf1C4

c

~~672

*:+:

ADJUST SIGNS

:+:

SINF::::;

;2675
2676
2677
267::::

H:1F::;:

C3CF

1"10'·.·'

H?tFA
j.J3FC

::I..3F:1.

~~~f:79

:t~~FE

04C:F

;2E;80

1.:11210

:1(1EE

.JEG!
NEG
CLR
.Jr"fF'

~::150:1:

:26:;::1.

:+:
:+:
:+:

NGFL N(]FL
TF<:NE:x:
F<:ESL T
NGFL
nnJE::'~

IS NEGATE FLAG SET?
NO - EXIT
YES - NEGATE RESULT
CLEAR NEGATE FLAG
Ej:IT

F'ERFOF<:t-1 D I V I S I ON

[:tI".·'D
2685
26f:6
;;::6::::7

:1.:H~~;;;::

fI6A~~1

1104

:l::Lt~:IE"

11.~?:16

C1.~?t:::::

:1:1..1218

~::14C3:

2~:::8::::

1.:t~?t~1

:::::CC~7.1

;;::';::::9

:U. OC

::tJ3F5
:t:

BL.

I]tPRPt'lD

PREPARE FOR DIVIDE

MOV
eLF.:
DI V
.JNP

RESLT.RESLT2
RESLT
F.:S'·... AL .. F.:ESL T
S I NF:x;

ADJUST FOR DIVIsION
DIVIOE VAL.UE
FI:'<: SIGNS

PPEF'APE SIGNS TI'.J NULTIPLV/DIVIDE OPERATIONS

:+:

F'PF'I"'lD

,::o:;:::;,.::}

o

(:::1..::;:,:::;

"1()'•••'

;?t;~~~5

::l..10F
:t:l J,I21

169:~:

JI'-4E

;?t:.;:::,t=:

11:.1.2

C::LC7

"'10'·.·'
.JNE
CI

PEl..VL PEL ..... /..
E F.: F.:S
F.:L Vf1L .. F.:L VAL
EF::F.5
RE5LT .. -::L

IS RELOCATABILITV ZERO
NO - EF<:F.:OR
IS SYMBOL RELOCATABLE?
'T'ES - E Rf<: 0 F.:
IS RESULT PPESENTLY NEGATIVE

. t

. .P

1. . .

*

".,$

40

ttt

I'1IPA990
EXPRES5ION EVALUATOR
.:;. 1::,
.-0::.'::'
.... ~.'
1;; ••

C

<7::7~7:t~:1

271.;11

;to :l :1. ::::
:t:1.. :lA
:1..:1..1(:
1LtE

FFFF

:1..12:0
11.~:':~2

;;::7~:::14

;2705
27~36

1

94::::925-990:1:+::+:
PRP~:;::

NGFL
RESLT

NO - CONTINUE
YES - ADJUST NEGATE FLAG
NEGATE RESULT

0280

CI

RSVAL -:1

IS OPERAND NEGATIVE

:i:l.. 24

FFFF
:1502

JGT

:1:1;~6

~354F

UN

:1:1.. 2::::

12150121

PRP3
NGFL
RSVAL

NO- CONTINUE
ADJUST NEGATE FLAG
NEGATE OPERAND

~7:t54F
t::.15~3::::~

PRP2

:lL:;::A

NEG
PF<:P3:

271217
27~3:=:

PAGE 1211217:1

:1.97 .... 76

.JGT
INV
NEG

1.5~);2

"27~'32
27~33:

:17:44::1~:::1

"la.. :l

~'3458

RT

RETURN

o
,

I

-I

444 _

.Q..

,QJ¥),i

Xi

$1

q

X

·.tiM'.

PXRASM
n":::lJr·.!CAt TON

o

MIRA990
CHECK

TITLE:

TRUNK
TRUNCATION CHECK

*'

REVISION:

03~0:1.~74

ORIGINAL RELEASE
*' COMPUTEk: 990. ASSEMBLY
*' FiBSTF.:ACT:
:+:
TRUNI< CHECKS WORD VALUES TO DETERM I NE I F THE
:+:
VALUE IS BETWEEN -128 AND 127. IF NOT. A
:+:
TRUNCATION ERROR IS CREATED AND TRUNCATION
*'
OCCURS.
:+: CALLING SEQUENCE:
:+:
BL @TRUNK
:+: ADDITIONAL NOTES:
*'
ROUTINES WHICH CALL TRUNK USE ONE OF THE
*'
FOLLOWING WORKSPACES: MAINW. OPWP~OPWP2.
*'
OR F~<~·~P.
*'
TRUNK EXPECTS THE WORD VALUE IN R0 AND WILL
*'
RETURN THE TRUNCATED VALUE IN R0. Ri0 WILL BE
*'
DESTROYED. ROUTINE CALLED: ER4
TRUNK
1"10'·... Rf.1 .. R:H3
SA ..... E VALUE
S~.JP8 R~:'1
CHECK FOR TRUNCATION
TOP BIT SIGN EXTENDED?
SRA R~::1 .• E:
C
F.:~:::1 .• R:1.0
'T'ES - GOOD
.JEG! ENDTRN
'T'ES - GOOD
TF.:UNCAT I ON EF.: F.: 0 F<:
BU·JP @ER4

~~~7:1.. 7
;~~·?1.E:

27:1.9
;~:7~~~3

~'272:1.

2725

:tL'2C
:1..:t2E

C2:3~'3

273:;;::
~:;::73:3:

113:~::1

:':'::73:4
;:;:: ;:"3:5

:1:1. 3: 4-

08:::::f1
::::: ;28 ~:::1
:13121 2

~'27'3:6

:1..:11:6

~:::1420

~L13::=:

~3B56

1:t3A

0458

2737
;;::7:3:::;:

PAGE 0072

:+:*'

:+:

;;~?:1.5

;;;::73::1..

:1.. 7 : 44 : :U:;,

94F.:925--99~H.

:+:

*'
::::'7:1.::
;27:1..4

V21..:1.

:1.13:;~

~'36C0

..'

ENDTRN
RT

F<:ETUPN

o
. _.$

1-

.4

_;

4 .

Wit

.:;

PXRASM •
MIRA990
CHARACTER SCANNER
;274:1.

C

;~:74·:~~

2743:
27,:H
;;:~745

:1:.1.. 3:C
:1. 1.3:E
:1.:1...:.1-(1
:1.:146
:1.:.1.. 4:::

;2747'

LIAA

;;:~;.:r4f:

:1. :1.51)

;;~74~;'

1:1.5;;~

;~~~75~3

:1:1..54
:1:156
:1.:t5:::::
:1.15F"i

2~'('5~:;:

~~75::::

l:1.E;~::1···

I;:K1~)€1

1.:1A;2

;;~746

~"2751.

~)C::16'"

~)€H:::11:)

0(1(19
~:::1~::120

(iE:3::::: ."
(1€H3~3

~3t1~X1

(1(1(1(1

1,/21...:1.

Lf:J'~P

1.? : 44 : :1€1

,.'

.

1.::;.7 .... 76
1

94:::;:::~;2!:i-9:::4€1:1**

DATA
DATA
DATA
INSn~D E:S5
[:tATA
C'ATA
E:SS
S'T'N8L
DATA
BSS
S'T't'1TA8 [:'ATA
DATA
[:'ATA
[:tATA

SC~'~P+SCPT +SCPT

LKC

0
4
I:)

>(19
6
>2~)

2
S'T't'1T
~l

0
~::1

F::f1
SCPTPT
R1
LC.(RG
F::2
CHAR
R3-R4
R5
S'T'N
R6
TA8CHR
F::7-R9
R1.0
8LNKF::
R1.1.
RETURN
R1.2
SYN80L TABLE POINTER
F::1.3:
OLD loJP
FH4
OLD PC
F.:1.5
OLD SF::

c

c··.· · · ~· ·
,j'

k..

,;0..,.".,._

%,$,4.

A A".$"";g;;.P(A4L.,,.P& ... '...... }&44..

&ilJ(S4U.4,.L¥=t6.

,

$

,n

.#p;i!\f!%

e.fp·T1*,*W

j

PXRASM
MIRA990
CHARACtER SCANNER
;~:'?56

~::758
2'?6~~

27f~t

27'62
;;~764

2765
2~766
~:767

2768
~~~769

277f.1
~~77:1.

:2773:
:~~774

;27?'5
~~:~776

2777
277:=::

:1:t5C
:LI..5E

J..16~'

:1. :l. ~::; ;;::
·",:1 '7'::' "";?

:.U.. 64
:1.:166
1:1..68
:l:1.6A
1~L6C

;?'?~~5

:.1..l6E
:1~L 7l:'1

;;:?9'7
2798

11'74

2799

:1..176

;~:·?:~4

PAGE 0074

LKCHAR/GETCHR
CHARACTER SCANNER
:+: REVISION: 03/01/74
:+:
ORIGINAL RELEASE
:+: COMPUTER: 990. ASSEMBLY
:+: AE:ST~:ACT:
:+:
TWO ROUTINE:S ARE USED TO SCAN THE INPUT LINE AN
:+:
RETURN THE NEXT CHARACTER. THE FIRST. LKCHAR.
~.J I LL. NOT ADVANCE THE SCAN PO I NTER.
THE SECOND.
*':+:
GETCHR. WILL ADVANCE THE SCAN POINTER.
FURTHERMORE. IF THE CHARACTER IS BLANK. GETCHR
*'
WILL ADVANCE THE SCAN POINTER TO THE NEXT
*':+:
NON-BLANK CHARACTER AFTER RETURNING THE BLANK
AS THE CHARACTER FOUND.
:+:*' CALL.ING SEG!UENCE:
:+:
BU.~P I!tLKCHAR
:+:
CIR
*'
8LWP @GETCHR
:+: ADDITIONAL NOTES:
:+:
WORKSPACE = LKWP {UNSHARED)
:+:
THE CHARACTER WILL BE RETURNED RIGHT-JUSTIFIED.
:+:
ZERO-FILLED IN WORKSPACE REG 2 OF THE CALLING
:+:
ROUTINE. A TAB WILL BE RETURNED AS A BLANK.
U::U:.:
:1601.
1"'/0 V BLNKF.: . C:HAF~
YES - CHANGE TO 8LANK
O~18A
E:>::LK
t;:.145E:
FH
PETURN
GETCHF.:
::I.13C:···
[;lATA l....t::}JP
!·JOF~KSPACE
J.1. 7';~: ..'
DATA GTCH
START
GTCH
12IE;9::L
GET CHAF.:ACTE~:
BI....
*L.O:::PG
C142
NO'·.·' CHAP .. S'T',"l
SAllE CHAF.:AC:TEF.:
INC: :+:SC:F'TPT
~590
INCPEMENT SCAN POINTEP

:1.:1..7';2

*'

:~~7.:e!l

:+:
:+:

;?f:~j~;~

2803
2804
2805
280f
2807
2808

:1. 9 ~::' ...-' 7 t:

:+:

2759

,:;•• 1 ' .... f

1.? : 44 : :1.(:,

:+: TITLE:

27::;5

;;-~779

'·/;;::1.... :1.

1178
lJ.'7A

8282
J.608

117C
J.17£
1180

0691
0590
8282

SKIP OVER
C
.JNE

IM8E~DED

CHAR. BU·W:F.:
OCHF.:

BLANKS
IS CHARACTEP A BLANK
NO - ENI)

LPCHR
BL
INC
C

*LC~:::RG

*SCPTPT
CHAR. BLNKF.:

YES. GET NEXT CHAPACTEP
INCREMENT SCAN POINTER
IS CHARACTER A BLANK

o
..

... -. - g

.4.4

.$...,

ken ..

PXRASM
MIRA990
CHARACtER SCANNER

0

V;~~L::f.

:1..7: 44:

~~:3~:.1S..

:1..:1.. :::2

13:FC

JEG!

2:=::1.~:'1

:1:1.84
:1-:1..86
:1.::1.88

~-::1610

DEC:

C!C,185

;;=:::;:::1.. :1.
28:1.2

1~3~31

;2813
;;:~:314

:ti8A

~3691

*

28:1.6

:+:
:+:

;;-~8:t7
~::3:1.:::

2:::~'2f:f

:1.:::-7 .... 76

PAGE 0075

1

NOV
..TI"IP

LPCHR
*SCPTPT
SYI'1.. CHAR
OCHR

YES... CONT INUE LOOP
NO, DECREMENT SCAN POINtER
RESTORE CHARACTER

8L

*LCKRG

GET CHARACTER

ENI)

LKCALL

2:315

;;=:::::1.9

J.e

RETUf<:N CHARACTER

OCHF.~

::L:1..8C
1.18E

C84;;;::

:1.:1.. 9~:)

fG:30

1'10V

CHAR.. l¥l4( 13)

RETURN IN CALLING WR2

~3I::.l04

F.:TWP

RETURN

o
it ..

,u.

"",''1.

'...'2 L:1..

:1.7: 44:

1~1

94::::9~:;;:5-99~~U.

o

*'
*'
*'
*'
:+:
*'
*'
:+:

*'
*'
:+:
:+:

2835
283:6

:+:
:+:

*'
*'

:+:

2E:4~3

,'284:1..

:+:

,"

PAGE 0076

*'*'

TITLE:
TITLE:

LIMCHK
LIMCHK
LIMIT CHECK
REVISION: 03/01/74
ORIGINAL RELEASE
COMPUTER: 990.ASSEMBLY
ABSTRACT:
THE END OF THE SYMBOL TABLE IS COMPARED TO THE
END OF FOR~"ARD REFERENCE TABLE. I F TWO TABLES
OVERLAP. THE RUN IS ABORTED AND CONTROL PASSED
TO THE .., ENC' ..' PFi:CrCESSOR AS I F THERE WERE NO END
VECTOR.
CALLING SEQUENCE:
BL @LIMCHK
ADDITIONAL NOTES:
CALLED FROM ROUTINES WITH WORKSPACE SYMBOL
OR FRWP
ROUTINE CALLED: PRINT

L II"1CH~<
:1.:1..92
:1:1.94
j.196

C

1.

:3 :::! ;;:: ~~1

..'
:1.1.86 ..'
~~183:E:

r-·
-'

r]tEN[JST .. r]tENDFRT

COMPARE FOR OVERLAP

~:;::844

1:1..~::;':='::

1.8~:'1A

.JH

2::::45

:1.19A
:1..::l..9C
:U9E

~32r}A

LI

LIt-1END
IOPARN .. ABOf":T

NO OVEf":LAP
PR I NT ABORT 1'1ESSAGE

:U.A~3

:19CE'"
INC

r]tAE:RTFL

SET ABOF.:T FLAG

2 ::::47

"

~~: :=~.:~

:;:!

:1:1.A:2
11.A4
:1.:1.A6
l:1.H:::;:
:l.:1.AA
:U.AC:

r}1.~32

..'

04;?~1

~::r5A~3
~::r:H3C'"
~:'1;2E~::1

u·JP I t1A I N~·J

..34~~:E: ..'
~~1460

@EF.:NOE'·.·'

rZl::::DA'"

SET WORKSPACE POINTER
END

PROC.E~:::S
\

L I t·1F.J·JO

o
.

;

.. 444A¥ 4 _4

P4424# _4$ .

PXRASM
MIRA990
V2Ll
17:44:10
FORWARD"REFERENCE BUILD
948925-9901**

2:;:::::i4

C

~~~t:::55

~~E:56
2~857

:U_B~3

~~I~?t 1;:.1121

2:=:58

~?t0el~~1

~~::::7J.

:1.:1.B2
1:1.E:4
:11.B6
:t:1.. B:=':
:t:1.BA
:1.:1.B[:
118E
:1.:1.CI::.1
:1. 1 C;;::
:t:1.C4
:1.:1.C6
1.:1.C8
:1..:1.CA
:1..:1.CC

2:::::7;;:~

~l:1..CE

""':t':JC"I::'
':'.'_1._1_,

;;-~860

:2::::6:1..
~~:862
:;:~E:~N:;:~:

~~~::::6.:~
;;~e:~:::5
2~:::66

2::;:67
2::::6:3
:::':~E:t::~7.t

2::::70

~::n30~~1

~300€1
~3~300
~::lIa€H)
€H)0;;~

~3~3~3~3
0~3€1121
~::'~~300

f.1 IZI 00
'000€1
lX100
0(300
0~~1"::1~::1

1::.1 ..?t0~::1

1.97,..-'76

PAGE 0077

*
FORl·JARD REFERENCE ENTRY BUILD WORKSPACE
*
*
FF.:l·.IP
DATft f.1
R0
FloJDSN, FRTCNT
DATA 0
R1.
FRTPT, FRE
DATA 0
R2
NFRT
ENDFF.:T I)ATA 0
R3
1'1LBPT
DATA ~?t
NFl~DA
R4
NFA
DATA 121
PPC
R5
PPCRG
DATA 2
TloJO
R6
FR2
DATA 0
R7
OPPTR
[:'ATA 0
R8
OPWRD
DATA 0
OPCO["E
R9
DATA ~3
R1.0
IOPARI'1
[:'ATA 1::.1
R11.
BRANCH
DOF.:C:iFL. [)ATA 0
R1.2
DUt·n·1.,.' ORG FLAG
DATA ~3
OLE) l·JP
R1.3:
DI=tTA €1
R1.4
OLD PC
DATA ~~1
F.::15
OLD SR

o
$$

4 ..

4

.

_.... 4.1.4""

.J..

,

:1

'

PXRASM

MIRA996

FORWAR~ REFERENCE BUILO

* TITL.E:
:+:

PAGE

V2L1
17:44:16
948925-9961**

~~11217'8

FF.:ENT
FOWARD REFERENCE ENTRY BUILDER

RE'·lISION:

OR I 13 I NAL F.:ELEASE
** COMPUTER: 996. ASSEMBLY
~3:::~,,··'15''''·76

*

f>10D I F I ED TO RUN
ADDED.

*

**

.-~

r"I.-·j -:.

'::"="::'

N ::'

2::::::6

291~1Cj
~;:9~;U

;;'::9~:::(2

· c ."'.
\

.• !'

29C(:::
;:'~9C14
;2~::-~35
;2~7.1~~16
;;~:9Ij7

291;;:19
;29:Vl
;~~91:l.

2912

2913
2914

110121
1102

2916

1104
11D6
11D8
11DA

2917
2918

:+:
:+:

;:::9~?~::1

2924

PXRf>1TR. (:'ORG PROCESS I NG

ABSTRACT:
.*
A FORWARD REFRENCE TABLE ENTRY IS BUILT. ONLY
*
ONE FOWARD REFERENCE IS ALLOWED PER EXPRESSIO~
*
THIS ROUTINE PLACES THE SYf>1BOL'S SYMBOL TABLE
*
ENTRY NUMBER AND IT/S ASSOCIATED ARITHf>1ETIC
*
OPERATOR INTO THE ENTRY.
* CALLING SEQUENCE:
*
BLWP @FRENT
* ADDITIONAL NOTES:
*
WORKSPACE = FRWP (SHARED WITH MLBFX. OUTSYM)
*
A FORWARD REFERENC~ TABLE ENTRY CONTAINS FOUR
*
WORDS: LOCATION OF EXPRESSION
*
ENTRY CODE (ST NUMBER AND OPERATOR)
*
CUMULATIVE SUM OF EXPRESSION
*
FLAG WORD
*
THE L.EFTMOST BYTE OF THE FLAG WORD CONTAINS THE
:+:
PRESENT ACCUWJLATED RELOCATABILITY VALUE OF THE
*
EXPRESSION. THE RIGHTMOST BYTE CONTAINS A FLAG
:+:
CODE:
:+:
o - ABSOLUTE BYTE
2 - ABSOL.UTE WORD
1 - PELOCATABLE BYTE
3 - RELOCATABLE WORD
*
:+:
THE AB:301.JJTE ()F.: F.:EI. JJCfiTABLE t·JATIJPE REFEF.:PED TO
:+:
HEPE IS THAT OF THE LOCATION AT WHICH THE
FORWAPD
REFERENCE IS MADE. AND THE WOPD/BYTE
*
POPTION
REFEPS
TO THE NATUPE OF THE INSTPUCTION
*
:+:
INVOLVING THE PEFERENCE. THE JUMP INSTPUCTIONS
:+:
ARE ONLY ONES FOP WHICH FOPWARD REFS IN
EXPPESSIONS
APE ALLOWED TO CPEATE BYTE ENTRIES.
*
ALL
OTHER
FORWARD
REFERENCES MUST BE IN
*
:+:
EXPRESSIONS WHICH SATISFY FULL WORD ENTRIES.
FPEr·n
11B6/
DATA FR~·JP
~·~OF.:KSPACE
1104/
DATA FPBG
SHiF.:T
FRBG
C2E6
DO NOT BUILD FRT IF IN DORG
1:1..(::::: . '
1361
..IEG! FPB
Fn~·jp
6386

;:~9:1.9

292:.1..
:2922
2923

~.J I TH

SET APPROPPIATE FLAGS FOR EXPPESSION PROCESSING

:t:

FRB
11DC
11DE

0580
0584

I t·K:
TNC:

F I.·J 0:3 N
NFfi

SET FWD SEEN FLAG
SET NO FWD REF ALLOWED FLAG

ESTABLISH ENTRY CODE WORD

:U.hM. i#M"MtT· .. ¥

",

llib)! .....

:4$$

P~RASM •
MIRA9ge V2L1
17:44:1.0
FuRWARD REFERENCE BUILD
948925-991211**

:2:32:7

0

.,

;~~9;~:8

1:tE~:.'t

:U. E2

2929

11E4
:U.. E6

2~?l:::~0

29::a

C12I6121
e[)42'"
81A0

2934

t'10 '.••'

@SYM80L+NS8IT+NS8IT,FRE

C

@E:O8101010

YES, OP ALREADY INSERTED
SET NEGATIVE FLAG

FRE .. NFRT

PLACE II'HO STORAGE
RETURN

8121~3~3

293::;:~
~~~;'3:3

*

PAGE

197"''76

INSTOP
1'10\1

Rn.fP

o
A

a;

,j

...'!L

PXRASM •
MIRA990 V2L1
17:44:10
FIX UP MULTI-LABEL BLOCK 948925-9901**

c·.:

* TITLE:
MLBFX
*
FIX FOWARD REFERENCE BLOCK
* REVISION: 01/0l/74
ORIGINAL RELEASE

,.

;;;::9::
LI
FRTPT .• FF.:T
NOT EQUAL. UNDEFINED SYMBOLS
~:"2121:1.
1212~3A

122E
:L.?3:0

3:014

'7'

=

3:~:.~~:::t2

~~: ~31121

TITLE:

19(,,/76

. .'"

F.'Tl'W

E;:-::IT

o
. . .. $

.

.Ail . .

P::::PR
)·2(:
~~1

~::r

0

:1.97.·-"76

PAGE 0092

WR0
EXPREG
WR1
CGET
WR2
8'v'AL, TCHR
loJR3
NXTWD, NXWD
STEP, INSFLG
loJR4
WR5
FLGREG
WR6
TEMPIN
WR7
INSTRG
THOLD, RS'v'3
"JR8
WR9
RS'v'
l·JR10
SCVAL
loJR:1.1
RETURN
WR12
REGREG
WR13
RAPT
loJR14
EXPRT
l..,F.:15
COto1MA
l..,R13(2) OLD WP
LoJR14(2) OL[" PC
WR15(2) OLD SR

o
=

. .J.ek.,X. -

,I". _. ...s
~

.F~

s¥ff

t t

*ft

PXRASM
MIRA990 V2Ll
17:44:10
OPERATOR TYPE PROCESSORS 948925-9901**

o

3~)5f.1

3~35:1
3:~352

3:053
3:054
3055
3056
3057
3058
3~359

3060
3061
3~362
3~363:

3~364

3:065
3:066

3:f:t67
3~168

3~369
3~170

3071

C'
c

3073
3:074

127C
127E

3:~376
"7~ff77
I

3:0:;::f.1

1284

~34C4

3f1:::31

:t~'2:36

~3203:

:1::;:: 88
128A
:12:::C

:1.:1.4 2 ..'

C1E0
::l.:tC2 ..'
C0A0
11C6'"

MOV

@FRWP+OPCODE+OPCOD~

:1.;;29;;::

~?IA:12

SLA

:1294

O:::1A2
:129A'"

~101

1;;~96
3:el!~:6

3:~~:=:8
?:~'389

I NSFLG
. I N.STI.om

CLEAR INSTRUCTION FLAG
INITIALIZE NEXT WD PTR
INSTRG

@FRWP+BRANCH+RRANCH.8VAL
...'

*:+:
*

3:~"3!=:7

B'·... t11 .... :1.

GET BF.:ANCH

PREPARE FOR BRANCH

@JMPTB7(BVAL).8VAL

BF.:ANCH ON CODE

JI'1PT87

J;09~?1

3:~'391

J.. ;29A

:t:?:Ft7,'"

3:~19;;'::

129C:

3;ef'~':::;;

J:?::':!E
l:?fiO

:12F(:1'"
:1316"

~?: i;:i .I~';l ~~

OBTAIN INSTRUCTION WORD AND BRANCH CODE
N>~l~[:I

1;'?9~3

'?~:~C;5

*
*

CLF.:
LI

:t28E

:?Fl9·::I·

TITLE:

:+:

._ ••• I

3082

PAGE 0083

OPTYPE
OPERATOR TYPE PROCESSORS
REVISION: 03 . . . 01 ..... 74
ORIGINAL RELEASE
COMPUTE~: 990. ASSEMBLY
ABSTRACT:
THE DIFFERENT TYPES OF OPERATORS REQUIRE MANY
DIFFERENT TYPES OF PROCESSING OF THEIR OPERAND
FIELDS. A BRANCH IS TAKEN BASED ON TYPE AND THE
FINAL VALUE OF THE INSTRUCTION IS PLACED IN
THE OB.JECT CODE.
CALLING SEQUENCE:
BLWP @OPTYPE
ADDITIONAL NOTES:
WORKSPACE = OPWP . . . OPWP2 (SHARED WITH XOPG
AND OPERAND)
ALL SIXTEEN REGISTERS ARE UTILIZED THROUGH THE
OVERLAP OF OPWP2 AND OPWP. ALL ENTRIES ARE MADE
THROUGH OPWP2 AND ARE APPROPRIATELY MODIFIED TO
USE OPWP. ALL RETURNS ARE ACCOMPLISHED THROUGH
OPWP2.
ROUTINES CALLED: SCAN. SRCSYM.GETCHR. GAD.ER4.
**'
AGET1. EXPR.RA. ER2.BINHEX. TRUNK. PRNTLN. FWDJ.
OUTOB.J .. PCPF.:N. ER8
*'
OPT'-r'PE
125C'
DATA OPl·JP2
l·JORKSPACE
1280'
DATA OPBG
STAfH
OPE:f3
(t;~:E~::t
U·WI OPlo.IP
:1256'"
*
*
*
*
*
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*
*'

3~34:;::

3~)49

:1.97 . . . 76

12f-i;?
-'I..?t4·:l

:1. :3:~"2;2 ".
J3:4Ft··

:136E'

DATFI
DATA
DI=tH=t
["ATFI
DFHA
DATA

AI NST2
T'T'P:1..
'f'1,1f';2

T'T'P3:
T'T'P4
T'T' p5

o
4.4

.41A... _ $

...... $

.

'St1'"

. WQ*

..

PXRASM
MIRA999 V2L~
17:44:10
•
OPERATOR TYPE PROCESSORS 948925-9901**

o

3:12197
3:99::::
]:l399
3: lJ3 121
311;;:1:1

12AE

~::163:C'"

:::1:1.l32

:L:;:~8~3

1::::~1C'"

31l~(~:

1;;:~B2

1284'"

12A6
:12A8

~l3?4'"

l;;~AA

:l354'"

:t;;~AC

~L3:[):::

..'

]::H34

*

]::H35

*'
*'TYPC

]:1.(16
::U~j7

3:10::::

:t~~BE

£1420
0C2C'"
:HU0
0420
£1['94'"
:1 o(=:t 5

:120::1

Cl3A~3

1;;~84

:L~E:6

::1:1.99

:t~~E::::

3:1:1.f1

:1:28 A
L=2E:C

3:1.13:
3:114

:::U. 15
3116

:t2C:;;~

f1[:'3:6'"

:1.;;~C4

(1;222

:1:2C6

FFFS
11€13:

:t2(::::

c··',

~2CA

312:1

TYP6
TYP7
TYP8
TYP9
DIPR
TYP8
TYPC

o <=

TEF~N

=>

7

GET TERM

,.Tt'lP
VCI

3:1.69
3170
~:::L 7:l
:::::::1..72
~1::l;::?

:3:174
::~::l.75

:3:171;;
-;;:::I.?7
:3:''17:::::
:3:::1.79

:1318
:131A

1.:3:~3::::

:H31.6
TYPB -

COMPL.ETE RETURN INSTRUCTION

:+:

T'T'F'E:
Ii I

l:3::1..C
l~::lE

f1~Z11)B

:l3:2CI

:HJ6A

I t·JSTRCi. ::>8

COMPLETE INSTRUCTION
OUTPUT INSTRUCTION

:+:
:+:
:+:

TYP3 -

WELL -

DEFINED BYTE EXPRESSION

TYP3
:1..:3:;?2
:13;?4
:E:;::;:6
:1.. 3: ?:::::
:13;?A
1:3:2C:
:l32E
:1. :3:~~:~::1

1)':iAI)
liB:::::"
(141.E

INC

I]tNFI.·JDri

SET NO FWD AL.L.OWED FL.AG

BL.WP :+:EXPRT
GET EXPRESSION
NOP
FWD REF NOT SEEN
MOV
@EXWP+RESLT+RESLT.EXPREG
SAVE RESULT

100f~

0::'121)
~::1F2;;:;:"
~::'16At?i

8L

I]tTPI.Jt·W:

TEST FOR TRUNCATION

::U2C'"

:L::G;;::

~'::1240

::1..:3::3:4
:1..:3::3.1:J:3:::::::::::

OCIFF

AND I

E1C~::i

E:<-:;PPEC,., >FF

SOC EXPPEG, INSTRG

:1..0(:17

.. H'jF'

T'TIPO

TRI.Jt·JCtiTE
MOVE INTO INSTRUCTION
OUTPUT INSTRUCTION

:+:

::::ER
:133Ft
:l33C

s'T'r·nA::':; E F.: F.: OF.:

1:::;4;~::CI

f::lf:':4E:'"

::L :::. :: E

~:, ,oj. [I ~::

CL.P

'L?4f'3
=::L:~:'::I·
::1.?4:?
:?J ::::5 :1 ::,:.14
.':': '1 :~:: t : : l ::::. ,::",,::;

(::1:='::4
f':t14::i.f:;

MOV
::::;LA
A

7:: J ::::;?
:'i e::::

o

OUTPUT INSTRUCTION
:+:
:+:

::~:l::::13

3:1.:::::1.

GET FIRST GEN ADD INTO INST

..'

~ll

(16

n!:::; ::::: ,::j.

I NC

:t:t·J::-:;TL·jD
INSFLG.TEMPIN
TEI'IP I n, J
TEMPIN, INSFLG
II'·t:::FL.G

CLEAR NE::::;

o

:I3:::;:(?

:I.'::::::::;::

F:
:1..0"1:;-:'

1:)·:1·'1

[: L, i.·J P +: E: ;:-:; F' F: T
J 1"'" P
'r 'T'l Z::

GET E::'::PRESS I ON
NO FWD PEF - SKIP

4 ¢

_ .A

¥

Ali4JPW:;

U

'H

P::6

:l.O~:W

?;;;::E::1

POINT TO FLAGS IN ML

:1.458'"

:1..~::C2

:~:;?60

@FRWP+ML8PT+ML8PT.TEMPIN

;~~D:~:D

:1..3:C:4
:l.3:C6
:13 c::::
:13 C ~-i
::L3:CC
:13CE
:L?DO

~:. ;:;:~ ""i ,;::'

AI

1264~

3:;;::5~-::1

3251

t'l0 '.,.'

197'.····"(t:;

TPUhICF!TE
SOC
C

EXPREG. INSTRG
PLACE INTO INSTRUCTION
I]!IE>::l·JP+PEL'·.·'I....+F.:EI.... \·'L.• I]~I'IA I NI.·J+F.:ELriB::::+F.:F.::L.HE:::;;

..JEI)
FKt I I'-JST
E: I..I·W ITo' E I:;:: :2

RFLOCATABILITY ACCEPTABL.E
UNACCEPTABLE - SYNTAX ERROR
OUTPUT INSTPUCTION

OUTPUT INSTRUCTION
:+:
:t:

':;;:'::';9
7:;??t]
:::::'~"?:1

-:::::0";:"':'

:::???
:". :? '(" ~:'i

0··· · ,;

'-::;;2

:1..::::.0::::
1::'11:'::9[:1
:L?DA
FlCC.
:l:::::DC
041:1.
::l3DF
:::::?C?
J ..·:::r::::f316F:::::
:J3E:?
O~;9D
:1.3 E 4

I:~II~ "" C

?~:;J.'?F6

FLC:C:

TYP9 -

E:l...
SOC
t::l...~'.IP

C
JNE
E:L..
St..A
SOC

PA.

SHIFT VALUE

:+:F.:APT
REGREG, INSTRG
*CGET
T CI-·I F.: .. CCtNNA
SEF.:RG
:t:F.~AF'T

F.~EGF.~ECi.. 4
PEGREG, INSTRG

GET REGISTER ADDRESS
PL.AC:F I rHO I NST
13ET C:HAF.:ACTER
CONI"lA?
NO - SYNTAX EPPOP
GET SHIFT ',,·'AUJE
POSITION IT AND PLACE INTO IN

"'

Ai.X

,._,

¥

4.-4

P4¥¥ 1A .24

M.

qt

PXRASM •
MIRA990 V2L~
~7:44:~0
OPERATOR TYPE PROCESSORS 948925-990~:+:*

0. . . . : : :

7 :::::

:+:
:+:

3:;~:7~~

:+:

:l:31 7 .... 7 6
1

1

DETERMINE THAT INSTRUCTION IS COMPLETE

AOINST

~~:28Ia

328~

~3E8

3282
3283
3284

13EA
:l :3: EC
:l3EE
13F0

3285

13F4

1 :3:F;;-~

0411
0282

CI

:+:CGET
CHAR.. >2~:1

GET CHAF.:ACTEF.:
BLANK?

.JEI)
C: I

AI NST2
CHAf;,: . ECIL

'T'ES - CotH I NUE
NO - END OF LINE?

.JNE

SEF.:RG

NO - SYNTAX ERROR

BU·~P

~?11;::1;;:: ~::1

1303
0282
~'3 (n?1 0
16EE
AINST2

3287

13F6

0203

:1..:3:F:::::

l::l..42··

:13:Fti

i~~6A(1

:13FC:

:1..49~:1···

:1.3:FE

l::142~'3

:l40~::1

~'3E:Ef.1

:3::;;::9~j

:1.4~:::1;;::

:L?64'"

~1:29:l

14~:~4

~::113:::::···

::::::?92

:l4f16
:1.·::j.l'3:::::
:l40A
:1.4f1C
14f'fE

3:~~~:~::~!

3:;;:::::::9

3:;;::9:3:
3:~:::94

:t4:1.~.3

LI
BL
.'

04;;-~f1

POINT TO FIRST EXTRA WORD
@PCPF.:r·J

PLACE PC IN OUTPUT LINE

BU·JP 11'E: I NHE;':;

CONVERT INSTRUCTION VALUE

['\FITA I NST
DATA I r·JS'·/AL
E:U·JP I]tPF.:NTLN

I.NSTF.:UCT I ON
LOCATION IN OUTPUT LINE
PRINT FIRST LINE

INCT @MAINW+PC+PC

AOJUST PROGRAM COUNTER

BU·JP I1'C)I...ITOB.J

OUTPI...iT OB.JECT

:U:::r';::A'"
~j5EO
~?143:12t

.'

1?142~'3

:1.. ~:'~'36 . '

OUTPUT INSTRUCTION USING JUMP TABLE BASED ON NUMBER
AND TYPE OF ADDITIONAL WORDS TO INSTRUCTION
:1.4:1.2
:1.4:1.4
:1.4:1.6
14:1.::::
J4:lF1
14::1..C:

?:309
3310
33:1.1
. 3312
3?13
3314

f12f.1f1
:l.:.1·5~'3

:1.0BE

:1.426

F1.. GREG . AB:::: I N

POINT TO ABSOLUTE PROCESS

L.I

REGREG . F.:EL IN

RELOCATABLE PROCESS

LI

.'

:l42A

:~: :~: ~::I ·::1·

3305
3306
3307

~::1;;::lac

1428

:t4;~:;;:::

:l4~;::4

1.... I

1472'"

D::::::::::4
lASE .'
:1.425'"
::L[IFF .Jt·'IF' I i'4
UN
0695
IN:1.
0695

:1..41E
:1. 4:?~'3

: : : ::: I]?:

~':'12~:'1:::i

::1.·::1· 7:::::"

FORWARO REFERENCE PROCESS

Move @INTBL(STEP),@.JMPIN+1
BRANCH ON INSTRUCTION TYPE
BL
BL

OUTPUT ABSOLUTE DATA
*FL.GRr.:::G

OUTPUT ABSOLUTE DATA
E):: I T

IN5
142C

0695

142E
:1.4?8

069C
10BB

F:L.

:+FL.GPFG

OUTPUT ABSOLUTE DATA

f.:::L
.H··IF'

:+:F.:EGPECi

OFE:-:;PPECl

OUTPUT FWD REF DATA

IN2
I t·.16

IN3

$$.

.. $$

" ... 4¥444AWiiU.sz..

.\.

; .. 4$.

~

&

nU4

.. .,.)$2,,0""

leal "'ni? "tIcwt.

e t rlt

t 9-;:=-.·'"76

PXRASM.
MIRA990
V2Ll
17:44:10
OPERATOR TYPE PROCESSORS
948925-9901**
:~:~:::1..9

C

:1·:+:3:6

l0B::;!

:3:3;::1::;1
:~:3::?:1.

:1..43:::;:

~:'169C

3:3:~:~~

::I..43:A

:1J:::1F6

1.43:[:
:.1..43:E

f169C
H:::1F7

:1.44f1
:1..44:2

~?t69C

:::~3:2:3:

33~~:4

3:3:;;::5
3:3:;?6

3:3:27
3::-3:2:::

3:::G1
:3:3:3:;;::

3:3:3:3:
333:.:.1-

::;::3:3:7
:3:3::::;:::::
3:3:3:::;'
3::::::4~:1

334:1.
334<-:::
3343:

C,,'

3]:,:+·::1·
334!:"i

:WF8

::34:::::
3~:::4<:;t

3351]
3::::::51

:3:7i ..5;?

*F.:EGF.:EG
IN2

OUTPUT RELOCATABLE DATA
OUTPUT RELOCATABLE DATA

BL
.Jt·lP

*F.:EGF.:EG

OUTPUT RELOCATABLE DATA
Hom REF

HJ3:

BL

*E>:;PF.:ECi

..H··IF'

HU

OUTPUT FWD REF DATA
OUTPUT ABSOLUTE DATA

:1..44::;:
::L·::f.4A

~:::1690

BL
.Jt··IP

*F;";PPECi
IN;;::

OUTPUT FWD REF DATA
OUTPUT RELOCATA8LE DATA

1·::f.4C
l44E

1~1691~1

BL.

:HZ1F2

..rt'IP

*E;:-:;PPECi
It·n:

.Fl·JD REF

LI

THOLD.)2D2D

MOV

THOLD.@INSVAL.

C::~:f1:=:

MOV

THOL.D.@INSVAL.+2

t;:H.3:A
05i=10
:16F6 ..'

INC

@OTWP+NCONS+NCONS SET NON-CONSECUTIVE FLAG

I N1l
:1.~Z1F:.1..

I N:L2

FI.·J[:< I
:1.45f.1
:1..452
145.::1·
:1..456

OUTPUT FWD REF DATA

t·~

~-::121)8

;::1);2D

C: :~: ~-:.~ ::::
l~i13::::

CREATE MINUS PRINT FOP FWD RE

.'

Fi·J[tJ
1458
J.45A
:l.45C
:l.45E
146~-::1

[:J.::;:E:

1"'10'...'

:1..462
:1.. 464

~"36F1~~

m..

1::1. .. TE}lP I t·.1
IJ:!PCPRN

::::;F1VE 1:;;:E:TUF:r'~
PLACE PC IN OUTPUT LINE

J.·::j·t:.:6
:1..46:::::
::L46A
:1.. 46C
:1.46E
:1471d

1)4;;::1~1

E:L.i·.IP

(~PF~·t-JTL.N

PF.: I t·n L. I t·.IF:

:1..49\"3

.'

OTL.r·J2
::L:::::E:A
C::l~-::;E(:t

INCT @MAINW+PC+PC

FIDJUST PC

J 1··,jCT t·~;:'J·H>
E:
:+:TEt'IP I N

POINT TO NEXT EXTRA WORD
F·ETI...IRN

04~::[1

05[::::::
l~i4·5t~

PEL. TN

:1..47';:2:
:1-474
:l4?6

D:::::;?I~l

SET RELOCATA8ILITY MARK

J.Af:B ..'
O::I..::::C ..'
FiF.::: ::'~ Tr·J

:t4:~:2

121::1.. 3::::::

3:3::::'::::

14::::4

:::~: ~~. ~~l9

:t·::I·:~:6

!. ·:f·!::::f:1

C:l..f:E:
O,:::;AO
1·l::"!t(1
~~1<1·:? C1

:L4::~:C

:.1 ';::'(fl; .'

:L·::!·::::::~:

--:: ",'1'; (i

BL
.It'1F'

1(IF~:J

C::::~:1:3:

.·?~?56
-:. -:. c:- .-.::.- .. :;...,,','

OUTPUT RELOCATABLE DATA
OUTPUT ABSOLUTE DATA

I N1f.1

:1.478
:.1..47FI
::1..47[:
J.·::f.7F
:1480

~::::?5:::)

IN1

069~:J

?::~:~:::j=:::

3::::::5.::/·

:+:PEGF.:EG

1444
:1..446

3:3:46
:::347

BL.
·Jt·1F'

I N9

3:~~:3:5

3::336

OPE::-:;T

I N::;:

3:J:~=29
333:~:J

..n·1P
I N7

:l4:::::~7:1

NOV

NXWD.@NXWLC

POINT TO ADDITIONAL WORD

F:I.... I.·.IF·

I},IE: I

CONVEPT WOPD FOP PRINTING

.'

~::14;;::1~1

NHE;:-::

OF:EI]
J.4:::::1~1

.'

N>-::L·HJ:

r>ATfi $
DFITA I t·~::::'·"'AL.
1"'10'...'
::1::1.. TH1P I
F:L
IJ:!PCF'PN

ADDITIONAL WOPD VALUE
LOCATION IN OUTPUT LINE
t·~

:~:A""'E

RETUF.·t·~

PLACE PC

IN

OUTPUT LINE

OUTPI.../T OB.JECT

C;
Wil

4.. 4#

.4EBU -4

..

¢V

za

44

. #

.._ L . 1.

.. J41£..,:40,.4II#.4..,_ .. ,-,#;;:;;;;;;\1144\#144 .¢¥P;.

..k.

a

!!;;;;;;;;;;;;;:4f.·;PQf.·,.-

PXRASM.

MIRA990

V2l1

OPE:P~1TOP T'r'PE PRCICESSOF.~S

o

:1.4:3E

~L.~~EE:

pur

149~3

:1..492
:1.494
1496
:1.498

:l97,·..'7'E:

OTLN2
PROGF.~AI'1

:+:

:::::::~:65

33:E;6

.J~1P

:+:
*'

3::::::64

17:44:10

9489;;:~5-'9~:;t~3:L*:+:

PAGE 0090
PRINT OUTPUT LINE

CC)UNTER OUT FOR LINE

PCPRN
~:::r'k=20
~38E0'"

BU·JP

~:::143:~?1···

DATA I'1AINW+PC+PC
[)ATA LOCNUN

12113:2'"
~3458

F.~T

1]18 I NHE>:;

CONVERT PC
PC VALUE
LOCATION IN OUTPUT LINE
RETURN

c·

o
j

.

4-...

t.

n.

_

.$U4£ $($

u

oz..

*

=1 M.t t

PXRASM.
MIRA990
DEFINED OP PROCESSOR

o

V2Ll
17:44:10
948925-9901**

* T I Tl..E :

*
*

PAGE 0t391

:.1. ~~7.·"·('6

::2C00

;~::C~"313

:t4AA
14AC
148;;;::
:1.484

LI

0207

SL.A
SOC:
CLR

E::·:;PF.:ECl. 6
E::;?1~1

(;[:T CHARFII::::TER
BL.ANK?

.JEO

;::f. ;::'5

'L4F4

0584

INC

:1...:1 F I:::;
:1..4F:::::

A:1..2~::1

ff

:l':~F'li

CCEI?I

MOV

@EXWP+RESLT+RESLT,:+:NXWD+

14FC

f1F:I·:::::~'5

LOOK AT NEXT CHARACTER
BLANK?

'::'I~];2(1

.TEe'

c:

E;:.::r T;2

:::;::::::(:2
:1..:::;:~]F

..IEf)

CI

TCHP . COI"WIA
E::2:::::

.TNE

E::·:;T:2

:::;:4::::6

::L~::;:l.4

0e~9D

::4:::;:7
::>:1:::;::::;:
:::i4f:9

:1..5:16
::I..!:::d.::::

05C5
(:'14:1..:.1.

15JA

f:(::::::;:~~:

:1. ~5 J. C
::L r5:1E

(~I ~:1:2 9

::;::49(1
::::49:1

PLACE RESULT IN WORD

YES - SYMBOLIC MEMORY EXIT
COI"lt'lA?
YES - SYMBOLIC MEMORY EXIT
LEFT PARENTHESIS?
NO - EXIT WITH ERROR
GET CHAF.:I==iCTEP
YES - GET REGISTER INDEX
j"IFH,:K "rAe; A::; 2
GET F.: I C1HT PHF;':EN
IS IT RIGHT PARENTHESIS?

E:["I.·.IP 't:CGET
E/"
:t'F.:APT
I NCT FL ClF.:EC;
F:1..,,~·jP :+:CG[:::T
c: I CHAP., >29

YES -

::I..:::::(~4

INDEXED EXIT

EXT?
:.1.. !::' ;;:: ~:~
:1.':::;;?:?

0420

15;::::4

nt:::;::-n

IJF.:4E .'
DEC

@SC:WP+SC:PT+SCPT

1":,FC.kE:,·IEr·JT :::::C.HI··.i PCI I r'4'fEP

(3C:.t.6··

3.::1··,=t4
:,1':

F:? ~~:; (! ,: r

:·1·'

INDIRECT WORKSPACE REGISTER ADDRESS,
wnRKSPACE REGISTER RDDRESS AND
i hiL' i F;,'E:C:T Ai./T,,,·- I 1'·JC.Pl:::i·IE:Nf

'?::~::;(t::::;

: I', ,:,',:"

..i. "i.? E

("I> ::::: .:.

:::. ,,::; (I :::.

!jCI.?R
:1. ~:i? ,?L :.; 02

?~:;!'I)

J,,~::;:?4

(169[,'

t:: 1...

:::,,::;JO

::L::E6

O':I~::;9

.- ':;;1 ,?
":: '::iL .::
.": "i 'j .. ,'I

::I. !:i::::: ::::

(1,::1

:15 ~::. f7.1

:i. :L
':::16 ::! [..
!21.,:j. 2 r::,

'l~::;:~O

LrO:i~: r
.j

::': ,,>!

o

"OJ

:r M.t I PEeT
NO - GET REGISTER HODRES;

I r·,fl:,tpcr

'T'ES..

F:

F.: H j==:' T
:t:F.:::; .....

f;::FrUF,:t·.j

bL . !.. JF'

+C.GET

TF:C'

'i"

:~;t:.:

F:!'"
:+:i:;;:HPT
F:L..L·JP 1.r:IL..iATA F::·::F~·JP
l·JCtF.:K:::;PACE
[.'FITA F;:':;FBG

~5EA~

PTRL

C63:1

I'IC)'.,.'

C:';::1:::::l

1'0'10'·,,'

*PTP:1..+, 'f:PPCPT~:::
PTR:l., PTf.';:~::

*'

3:659

::::669

:::t:;;"O

PO un TO FNTF.:'T' 8E I NCl f:.HECt .. F["

PLACE LOCATION INTO PRESENf P
POINT TO j·jO\·'JNG LOCFfrII.lr·~

EXAMINE FRT ENTRY FOR CORRESPONDENCE TO SYMBOL

:+:

CKEi\IT

~::66~:;:1

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

FRT

1..1

:+:

.::.t:.t::. {

PAGE 0099

*'
*'
*'
*'
*'

3:63:9

3:66~

::l..9·?,···'7~;

* TITLE:
*
FIX UP FORWAR0 REFERENCE
*' REVISION: 03/01/74
*
ORIGINAL RELEASE

3:E:3:0

365~

'1? : 4·::f. : ::/0

::'1.::1 ::'::925-99121:1.**

::l. 5F;2

::::f;';41

:l5F4
:15F6
l:iF:?
:l5FFI
:15FC
15F[

~1..::il~~C

C

PTRJ.*FRTEND

PFiST THF'::: EN!) OF

em::.::!..

Jen

F::-::F

MOV

f.1;24~7;:

fiNO I

*PTR:1...FRTVAL
FF.:T',lAI." , )~!:FFF

c

@SYMBOL+NSBIT+NSBIT.FRTVAL

3:FFF
::::m::t?I
C1[..:t?

:t6i~'i0

J?I~1F

.rEf)

'1.6(12
:1 f: 1~1 ,::1·

C(",E:::!
C:CEU,

':L6~?:16

CC8t

MOV
MOV
MOV
MOV
MOV

FOUI",ID;;';:
*PTRi+.*PTR2+
*PTR1+,*PTR2+
*PTRi+,*PTR2+
*PTRi.*PPCPT2
*PTRi+,*PTR2+

H'IF

Ct:::Ft-H

:J 6':::1f;

Ct::l:l

161?IA

C:CPJ.

J.I:=::I::~C

JelF.?

,+,

TABLE

NO. COMPARE PTR OF PTR:1
r·JUHBEF.:

O::;AI-iE
C.CiPV
C.C)P',.1

FNl'P'T'
C:I...ij'i::~;!'JI"1

COpy RELOC FIND FLAGS
PLflCF L.OeAr I CJN J t·nCt F-'·F.:ESFt·rr

:+:
'f:

F::FF~::1~::1

.JEQ
CLP

T? (:'16
::!? I~J'?
~:: ? CI ::::
":': ? ~~19
::::'? ::1..121

.:::

~PLUS

::::; '.... AI....

~::'5~jC

3697

MAPK SYMBOL

L. I

O:l.~::'~::'

:1 I':; t"; Fi
t (:: '''; c:
:'j f:; ",,; r:

U (: Ci i'.'·
!)CI:l6

roy:: ::;:: ':1
liUCii":

(-FC.

HF::'TF;:::.i..

r"l Ct'.,·' [: :+:HPTF::i,
::::: FY:I

T F]·j F'., ::::

;:::1

C: '0/ i::, 1.... '

TFI"li~

T' F i 'j F'

(1 ,,::: "j ':::i

elf:; .::[:.
t":: r,? ,:::'
1:1 :::::;11:='

C'i:::·,"'r F"T P;:::'
'::"+PTP;?+, TEi'lF
';::;PI:::ITF'!'IF', :i
;::::i
!r,!fr:,'UW<
c; i f:
T EJ'I F'.,
i' iI.' .... ' HT F' 1'1 F:'.

: ;:
'i'

HF'r i;:; :L -+-

FC) I t·,iTro i . i)"., l::If<:i')E'i;:: H',.'iL.
(JET i ... CII..J CIi:;':I..'Li·:: H:T'Ti:·
F:-:rFi'·,jl) THi .;::: i Cd·J
Hi:> [., I hi '".' 1:1i..ii/:::.
~::;ljhrF':h(:.r

T ~'ll)

:::; ij r:::

l. .. () I::, f1'!' .i. II j"4

r F: I::" c.r

i'I "/ I

'.1:

c.+:: H:T'ilq"

TEST FOKfRUNCATION
!,FT r. J ':::F;'I._':::IC.FI'ji:]'·,11
I ,',j .;:; F FT !.' j ; i'

#4

;;;g;p:4. #.

1.1"

PXPASM

MIRA990

F I ;:':; FOF!t·JAF.~[:' REFS
3:7;~~~:'

0

3:7;;;:~!::~

372~::"

:1..66::::
::l.E:6A
JI':,)6C
:t66E

t;~;;~4 7

J7 . ':+4 : :1.1~1

'·/~2L.J.

~J.~~?,···'76

ANDI HPTR:1. V,:1.

PAGE 0:H'H.
GET RELOC OF LOCATION

I)~::tfl:t

OAS?

Sl..A

75:::7

S8

HPTR:1.'·.·' . :::
HPTR:1.V,*HPTR:1.

CORRECT FOR MINUS LOC ON JMP

o
;; #$ 4.

~

4

e..

. ....a.)#;;:4

A.

A$ 4

PXRASM
F I ;:.:; FOI:;;:t..IARD

o

3?=~:5
~7~6

3737
~738

3739
3740
3:74:1
3742
3:743:
37'44

:1 67' t.:}
1672
1674
1676
1678
167A
167C
167E
1680

MIRA990

'·,·',?I... : I

f:~EFS

:t?:

44 : :1..0

:1. 97,,"''('6

94f::~~<7~5--990:1.:t::t:

*:+:
*NOVFL.

8[:'84
(:156
0606
0136
130A
0884

CHECK FOR PROPER RELOCATABILITY OF RESULT
FIX RELOC FOR RESOLVED SYMBOL
GET FLAGS VALUE

:5f<:A
CI

RELREG.*HPTR1+
*HPTR1,FLGREG
HF'TFU
*HPTR1+,RELREG
SETOUT
RELREG . :;::
RELREG.1

:1604

.JNE

TRERR

NO - TRUNCATION ERROR

2568

C2C;

1~n.IO.,

AB
MOV
DEC
MOVB
.JEG!

t.:Q::=:4

GET RELOC VALUE
CUMSUtol ABSOLUTE
TEST RELOCATABILITY
IS CUMSUtol ACCEPTABLE RELOC

~::1~?t0:1

FLGREG

IS THIS A BYTE INSTRUCTION

3745

1682
16::::4
1686

1603

.JNE

~~: ~;:I ':t t.:'

:1..6 :::: ::::

~:'14 C: 4·

eL.F::

SETCJUT
RELPEG

NO - OUTPUT INSTRUCTION
YES - CLEAR RELOCATABILITY

BLJ'~P

I]tER4

TF<:Ut·JCAT I ON ERFKJR

:l:J..E:C ..'

3:747

:+:

TF.:EPf<:
:3:749

::L 6:::: l=t

eI42~?1

::I..68C

~:1E:~i~:'

.'
OUTPUT INSTRUCTION

*SETOI...lT

3:757

12tt:~4;:;:'

::l..6'::'4€1
::1..692

(:::::02

1.::::94

tj,:.j·;:?(1

:1.696

I2iBE~?1···

~U::::::I::::"

12113::2 . '

3?'65
3:766

3767

F'Tl..OC

C81~1:1.

16A6'"
1;35C:1..

. I]tPTLCIC

REMOVE LOCATION FROM FRT
POINT TO l.OCATION
GET ASCII REPRESENTATluN

DATA $
DATA L.OCNur·1
NO'·,,'
F'TF.::t .' I]tPTL.OC:~:

LOCfH I ()f',1 '.,.'HL..UE
I. OCfH I Clt',1 J r·J nl..JTF'UT LINE:
PCI I NT TO VAL..i..iE~

INCT PTP::l.
BU·JP @BINHE~<

PO I f·.jT TO FL. I:iI3S
cnt·JVERT

~::J4;2~3

:1~:A6

J.6A6··· PTLOC? DATA
013:::::'"
DATA
[:1:3~~~Z1
!'10VE:
:170C'"
~::1:1.3:C . '
C:HN
tolOV
:13:83:
..fEG!
D82~~1
!'1CtVB
:1A68 ..
t.:H3:C .'

:1..6AA
16AC
16AE
168f1
168;;::
16B4
1686
:1.68::::

PTI:;;:~:;::

BLI.,JF (f,IB I NHF>::

:1.6A2
16A4

~::1BE~?1

PTj:;;';~:

,,'

:.t.6~';t:~:

1. 6 A::::

3:764

:1..~~~7.1:~:

169A
:16:7.'C
:16:=::tE
:1..6A~:'1
~:::?6:1..

f.:oFCT
!;-I0 '. .'

:16:;::E

..'

$

I NS","AL
I!!E:LANK .. I]lREL !'l f<: 1<
RELREG,RELREG
01..2

I]tG!T.. 1]tF.:EU1F.:K

DATA
LOCATION FOR DATA
CLEAR RELOCATABILITY

MAP~

IS VALUE RELOCATABLE
NO
YES. MARK ON OUTPUT

"

OL2

3:769
3:77(1

:168A
:1..68C
168E
16C€1

AND I FL.GF.:EG . :1.

~3245

GET RElOCATABILITY

~?t@;:H.

1212€1';:'
~?142E

LI

HPTR1V,MAINW+RELABS+RELABS

MOV

*HPTR1V,HPTR1

..'
I)

I SPLACE

J .J.

PF~ESENT

4«.

4

RELOC ',}ALUF

. . A$".

,.'.$.

. '-

4

.,.

PXRASM
MIRA990
F I ;:.:; FOF:!~·JAR[:' REFS

0

377;2
3773:

3774
3775
3776
3:777
3:77:=:

3779

16C4
16C6
16C8
16CA
16CC
16CE
16[:.(;:1
1.6[)2
16D4
16[)6
16DE:
16DA
16DC
:t6[)E

C5C5
05A~3
~3420

170A'"
05Af.1
16E6'"
C5C6
C820
15A4'0136"
0420
186A'"

*'

:;:~7E:;2

37:=:5

:16E0
16E2
:t6E4

t·1OV
INC

FLGREG .. *HPTR1 V
@OTWP+NCONS+NCONS SET NON-CONSECUTIVE FLAG

BU~P

@OUTOB

INC

@OHJP+NCONS+NCONS SET NON-CONSECUTIVE FLAG

MOV

HPTR1 . *HPTR1 V
@FWDMK.@LOCNUM+4

~10V

~35C1

3781
3:7E::~:

PAGE 0103

197/76

16E6'"

378(1

3:784

V2L1
17:44:10
948925-9901**

C611
CC81
:1.086

*
*

PLACE IN OBJECT BUFFER

REPLACE PRESENT RELOC VALUE
PLACE "'**" INTO OUTPUT LINE

BU·JP @PRNTLN

PRINT OI...lTPUT L. I~JE

INCT PTR1

POINT TO LOCATION FOR

NE>~T

SKIP OVER ENTRY TO C:ONDENSE TA8LE
MOV
t"IOV
.JMP

*PTR:l. *,PPCPT2
*PTR1+.*,PTR2+
CKENT

AD.JUST PFi:ESENT PC
COP.,.' NEf..J l...OC
CHECK NEXT ENTR.,.'

o
QJ

.4

.e ..$..

jQ

1'1L

PXRASM
MIRA990
OUTPUT' OBJECT RECORD
37:=:8

0

*
*

3:789
3:7913
3:791.

3:792
3:793:

3:794
3:795
3:796
3797

3:798
3:799
3:80(1
3:8(11

:+:

16E6
16EE:
16EA
16EC
16EE

121121121121
121121121121
3:7e~3

3:9121121
121121121121

16F~3

~3eAF'"

:1.6F;;~

46€1e
0121121121
42€1IZt
0(184'"

3:::::05

16F4
16F6
:1.6F8
16FA ~3~3e0
16FC' ~3ee~3
16FE (ieee
17121121 ~3eee
:1.71212 e~3e~3

3::~:f.16

17~34

3:3~.32

3:8€G
:::~8e4

(1~:::10e

V2'-1

17:44:1121

~l97

/76

PAGE 12111214

94:::925-991211**
OUTPUT 08.JECT RECORD WORKSPACE AREA

on./p
CKSM

DATA
CIATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA

121
121
:>3:7121121
:>3:91210
121
08.JRCC'+55
:>461210
121
:>42121121
08.JRCD+6e
121
121

121

Re
R1
R2
R3:
R4
R5
R6
R7
R8
R9
R:1.0
R11
R12

121

FU3

121
121

R14
R15

NCONS
CKSUI'1
S ..... N
A8 ..... L
08.JPT
CDALIM
F ..... L
INSPT,H .....AL
A8D ..... L
C[)LIM
IOPARM
RETURN
CKPT
OLD WP
OLD PC
OLD SR

o
QQ

MAS

$$Q

M

l"

.....

$.

PXRASM
MIRA990
OUTPUt OBJECT RECORD

o

1·/2L.1

17: 44 : :t(::1

3: EaZ19

:+:
:+: TITLE:

::::;:::::1.0

:+:

3:::::1:1_

:+:
:+:
:+:

:+:
:+:
:+:

J::::15
3:!:::1.f5

:+:

:+:
:+:
:+:
:+:

:+:
:+:

:+:
:+:

-:,,-,,-.1::"

..:~·C'&:::.·~.1

:+:
:+:
:+:
:+:
:+:
:+:
:+:

.

=~::::::3::1

:+:
:+:
:+:
:+:
:+:
:+:

'::..=.'";...:,

.••:"_'''':'1

OUTOBJ
OUTPUT OBJECT RECORD
REVISIQN: 03/01/74
ORIGINAL
03/15/76
MODIFIED TO RUN WITH PXRMTR. DORG PROCESSING
ADDED
ABSTRACT: THIS ROUTINE PLACES OBJECT CODE INTO
THE OE:.JECT BUFFEF.: FOR OJ...lTPUT. I F NONCONSECUTIVE CODE IS BEING ENTERED,THE
DATA ADDRESS WILL BE PLACED INTO THE
CODE. OTHERWISE, JUST THE DATA WILL
BE PUT INTO THE LINE. WHEN THE PRESENT
L.INE WILL NOT HOLD THE FUL.L DATA WORD
(AND ADDRESS. IF APPLICABLE). THE LINE
OF OBJECT WILL BE WRITTEN BEFORE THE
NE~~ 08.JEC:T IS FiODED .
CLROBJ IS A SEPARATE ENTRY TO FORCE A
BUFFER THAT IS NOT FULL. TO BE WRITTEN
TO TAPE.
CFiL.L.ING SEQUENCE:
BLWP @OUrOBJ
OR
BLWP @CLROBJ
OR
BLWP @OUTOB
ADDITIONAL NOTES:
WORKSPACE = OTWP (UNSHARED)
R(:)UT I NES CHL.L.EI): oTF.: CD .. E: I NHF::<. l·JR I TF

OUT083
3840
3841
3842
3843
3844
3845
3846
3847
3848

1706

16E6~

170A
:1.70C

16E6/
171..6"

170E
::1.. 7:1 ~3
1712
1714

C2E0

1.517"..'76

94::::925-99~:'1:+::+:

. OrBG

l·~ORKSPACE

.

STA~n'

DFiTA un.IP . OUTO

~·JORKSPACE

.

ST~1F.:T

MOV

@DORGFL.R:1.:1.

EXIT IF IN DORG

.JEO

OUTO

DATA

on~p

OUTOB
OT8G
:1.1. C: :::: .'

1301
0380

F.:nJP

OUTO
1716
17:.U:::

04E0
::1.. 7D8 . '

CLR

@OTBWP+BYTFL.+BYTFL

CLEAR BYTE BOUNDARY FLAG

3:::::49
?S5~Z1

:+:

TEST FOR NECESSITY OF ADDRESS IN OB3ECT LINE

::::::::::5::1..

?S52
3853
?854
3855
3856

17:1.A
:1.71C
171E
1720
1722

C000
1312
04C0
8144
1102

MOV
C

NCONS,NCONS
O'·/AL
NCot-6
08.JPT.CDALIM

.JL T

F.:OOt·,

.JEI]

CLR

CONSECUTIVE VALUE?
NO. OUTPUT ADDRESS
I ~::; THEF.:E ROor·P
YES. PLACE IN LINE

OI...ITF.:CD

0"
,

",",;;;,:

,"4¢

W

A.

.4 ¢

, _,

4

,_

. 41..

,.

PXRASM
MIRA990
OUTPUT-OBJECT RECORD
385:::

C
"

1.724
:1726

06A0
1764·-

:1.."("28
:172A
:1..72C
:1..72E
:1..73:0
:1..73:2

D50::::~

!(861

3:862
3::=:63

BL

042E":1..3:02
852";:1
007:1..·-

..TEQ
AB

*:+:

3866

:+:

:1..73:4
:1..736

3E:7:2

PAGE 0:1..06
OUTPUT RECORD

@OTRCD

ABOK
@EIGHT+:1...*OBJPT

NO - SKIP
MARK AS RELOCATABLE

MOVE ADDRESS INTO OBJECT CODE

ABOK

3:=:67

3:87:1..

:1..97/76

MOVE: AE:VL.. *OBJPT
I'10VE I N ABSOLUTE MARKER
MOV @MAINW+RELABS+RELABS,CKPT IS CODE RELOCATABLE?

C3:2~3

3:865

3:870

:1..7: 44::1..0

9489;;:~5-990:1..**

ROOf'l

3859
3:86~'3

V;2U,.

:173::::
:17:'A

173C
:1.. 73:E
:1.74121

0584
02~37

INC
LI

OB ..TPT
INSPT,LOCNUM

POINT INTO OBJECT 8UFFER
POINT TO ADDRESS IN LINE

MOV8
MOV8
MOVB
MOVB

*INSPT+,*OBJPT+
*INSPT+,*OBJPT+
*INSPT+,*08JPT+
*INSPT+.*OBJPT+

t10VE ADDRESS

C
.JHE

08JPT,CDLIM
OUTRCD

IS THERE ROOM
NO - OUTPUT RECORD

~313:2-·

DC)3:7
D03:7
e1c):]:?

DO 3:7
OVAL

3:875
3:876

:1..742
:1.744

8244
:1..4EF

* MOVE DATA INTO OBJECT CODE
MARK AS A8S0LUTE DATA
IS DATA RELOCATA8LE?

.JNE
AB

ABDAT
@2:1... *OB..TPT

NO - SKIP
YES- ADD IN RELOCATARILTTY

INC
LI

08JPT
I NSPT.. I NSVAL

POINT INTO OBJECT
PO I NT TO [.lATA

f'10V8
t'10VB
t'l()VB
NCtVB

*INSPT+ ..
*INSPT+,
*INSPT+.,
*INSPT+ .

MOVE IN DATA WORD

:1..76~:'1

DDJ:7
DC)3:7
DD3:7
DD3:7

:1."162

~'33::3~~1

f;,~n~p

05(18
982f.1
:1..A6B···

:1752

0€16E···

:1754

1;:1584
0207

~::H3:C·'

:1..6€12
B52~3

3:==:::4
3:=::=:5

1756

:1..758
:1..75A
~L75C

:1..75E

*

3::::93:

:+:
:+:

3::=:~;'.::f·

j.764
:1.766

t'10"lB SVI'4., :+:OB.JPT+
CKPT, 08.JF.~CD
LI

~32~'3C

:1.. 7 6::::

(1~J7E:'"

04C:1.

J~:=:9:;'

CLF.~

:+:
:+:
:+:

3:9~~1~'::i
3:9~~i;l,

o

RETURN

OUTPUT RECORD

DDf.12

:i;:"6A

1

39R::-;:
]:9(13

*OBJPT+
*OB ..TPT+
*OBJPT+
*OBJPT+

OTRCD

3::3~~.f5

3::::98

A8DAT

t1:l3E:···

3~:=:92

3:::::96

*

t'10VB ABDVL.. *OB ..TPT
CB
@G!T .. @REUolRK

1746
:1..748
:1..74A
1"14C
:1..74E
j.750

176C

t?,14C7

CONPUTE CHECKSUM
POINT TO START OF 08JECT

CI4:1.00

lo.IR0
lo.IR1

:>10€1
INSVAL+2
INSVAL
>3030
0
0
0
OUTOBJ
>2020
LOCNU/,1+2
LOCNUt'l+ 3
0
0
0

lo.IR3
WR4
WR5
lo.IR6
lo.IR7
lo.IR8
lo.IR9
lo.IR10
lo.IR11
lo.IR12
loJR13
WR14
loJR15

0

l~R2

INSPT2
ABET
AODD
SBYT
FBYT
ZZERO
SHLD
OBJPT2
BYTFL
OTOBPT
BLNNK
LOCP2
LOCP3
OLe> l~P
OI.,.D PC
OLD SR

o
...

$ UP

. .$-

. g..

a;

..... 0.

$ ..

S

't

t

t

..

PXRASM
MIRA990
OUTPUT·08JECT BYTE
~i:96€1

0

3961
3962
3:963

3964
3965
3966
:;:(967

3968
3:969
3970
3971
3972
3:973

::::(974
3975

3:976
3:977
3:978
3:979

3980

3981
::::~982

3983:
3:984
3:9:35
3:9:36

3:9:::::::

1.7EC
1.7EE
17F0

3:989

17F;;-~

3:9:=':7

C:

:17EE:
17EA

3:99~~1

*'
*'

3:99;2

3:993:

"7:'I::;'~CI
..........
_.~I

17F4
17F6
17FE:
17FA
17FC
17FE

3:995
3996
39~:;t7

PAGE

~1..971···t76

~31t2t9

* TITLE:
OUT8YT
*
OUTPUT 08JECT BYTE
* REVISION: 03/01/74
*
ORIGINAL RELEASE
*
03/15/76
*
MODIFIED TO RUN WITH PXRMTR. DORG PROCESSING
*
ADDED
* COMPUTER: 99121. ASSEM8LY
*' A8STRf'iCT:
*'
THIS ROUTINE COORDINATES THE PLACEMENT OF BYTE
*'
DATA INTO THE OBJECT CODE IF THE BYTE OCCURS
*'
ON A WORC' BOUNDRY. IT IS PLACE() INTO THE OB.JECT
*'
AS A LEFT-JUSTIFIE(>. ZERO-FILLED WORD. IF THE
*
8YTE OCCURS ON A NON-WORD BOUNDARY IN
*'
CONSECUTIVE CODE. THE BYTE IS ~OR~ED INTO THE
*'
08JECT WORD PRESENTLY THERE. IF IN NON*'
CONSECUTIVE CODE. THE BYTE IS PLACED IN THE
*'
08JECT AS A RIGHT-JUSTIFIED. ZERO-FILLED WORD.
* CALLING SEQUENCE:
*'
BLWP @OUTBYT
*' ADDITIONAL NOTES:
*'
WORKSPACE = OTBWP (UNSHARED)
*'
ROUTINES CALLED: OUTOB3
OUTB'T'T
:1.7C8···
DATA OT8~oJP
WOF!:KSPACE
17EC'"
DATA OT88G
START
OT88G
MOV @DORGFL.SHLD
C1At2t
E>::IT IF IN DORG
11CS"
:1.3:€11
.JEQ OUT8
1:'::G:::t2t
F!:TloJP
OUT8

3991
3994

'·.·'2L1
1"1: 44 : :to
94:::925-990:1**

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

C1A0
:1.6E6'"
13:1.8

*'

CHECK FOR CONSECUTIVE CODE AND BOUNDARY LOCATION
MOV

@OTWP+NCONS+NCONS.SHLD

.JEG!
CONPT
t'10V8 :+:LOCP3: . I NSPT2
I NSPT;;:: . A8ET
C8
~TLT
DECI'l
COC AODD .. I NSPT2
..TNE CIDD
~Tt-1P
EVN

r)~::11C

9~~1*3

1:1.1:::13

3999

1.8~30

~~~~3t2t2

4~~100

1:::~32

1.60A

4CH31.
4€H32

1804

:H3~~12

4~::1~33:

:1:::06

2~~1~::1~'2

COC

40~::14

1E:~):=~

13:07

.JEG!

'T'ES
NO. GET LAST BYTE OF ADDRESS
DECIDE IF BYTE EVEN/ODD
DECIMAL VALUE (0-9)
BYTE NOT ON WORD BOUNDARY
BYTE ON WD BOUNDARY

DECI'"

4~~H~15

*'

4~306

CONSECUTIVE CODE?

AODC' .. I NSPT2
C)(:oD

B'T'TE ODD

OUTPUT WORD BOUNDARY BYTE

41~K17

40~3:=:
40~:'19

18~~1A

4010

18~?:IC

4~:11::l

~L.:=:C1E

C5:13
C:4C5
E14:19

MOV *,SBYT.*,F8YT
MOV ZZERO.*,SBYT
BUoJP :+:OTOBPT

OUTPUT EVEN BYTE
FAKE WORD OBJECT
OUTPUT OB..TEC:T

0
••

n.

4$

.;4

$..

$

~ ¢.

4 .

L .

.a .'

P~'{RA:::::M
NIRA99121
OUTPUT OBJECT B'T'TE

0

4~312

1:31~3

4013:
4014

18:12

4~115

1814
:1816

"358::::

03:8(1
:+:
:+:
* ,
ODD

4~119

4132121
4132:1
41322
4023
41324
41325

18:1.8
181A
:1.81C
:1.81E
182(1

41:"::126

1824
1826
1.828

4~327

41328
4';::129
4e:::m
413:(1

1822

C193
C5(15
C4C5
e61.B
13419
e59B
C5121A
C4C6
:1.0~38

4~33:2

4133:3
4e:N
41335

:1.82A
:182C
182E
183121

[:'13:1.(:

:1.:=:3:2
:.1.. :::3:4

:1.3:EB
:1.131212

4~340

:1.::::36

41214:1
4(142
4';::143:

:1.8:~8

2002
1.6E8

4~33:6

4~33:7
41:"::1::::~8

ge4~1

1:1.133:
21:"::n32

4~Zf3:9

C"

41344
412145
41346
4~347

4(14:::
4~349

1E:3:A
:1.83(:
183:E
18413
:1:=:42

:1.844
1846
1848

C1.Ee
16EE'"
t?t647
DDF3
[:'5D3
~36~33:

e4C8
~33:8~1

197....·?6

1'10 'v' :+:F8YT,:+:SBYT
1'10 'v' BLN~U(, *FBYT
INC 8'T'TFL
RTWP

C.::m4
C5121A

412116
41317
41318

:1.7: 44: 10
948925-991211:+::+:

1."I~:;:L:l

PAGE 0110
RESTORE
BLANK OUT FIRST BYTE
SET BYTE ADDRESS FLAG
RETURN

OUTPUT NON-WORD BOUNDARY BYTE
t10'v'
1'10'v'
MO'v'
DEC
BU..,P
INC
1'10V
MOV
. TNP
.

*SBYT,SHLD
ZZERO,*FBYT
ZZERO .. :+:SBYT
:+:LOCP2
:+:OTOBPT
:+:LOCP2
BLNNK. *FBYT
SHLD .. :+:S8YT
CNOD

SAVE TRUE YALUE
OUTPUT ZERO loJORD
SET EYEN ADDRESS
OUTPUT OB.JECT
RESTORE ADDRESS
RESTORE YALUE
PLACE VALUE IN BYTE
OUTPUT O[)[) 8.,.'TE

:+:
:+:
CONSECUTIVE Co[)E PROCESSING
*
CONPT
NOVB :+:LOCP3, INSPT2
TEST FOR l·JD BOUN[:'ARY
CB
INSPT2 . A8ET
. .TLT DECI"'12
DECII'1AL VALUE «(1-9)
COC AODD. INSPT2
. .TEG! EVN
l·JD BOUNDAR.,.'
ON) BOUNDAR.,.'
..TI"·lP CNOD
[;.EC:I"·12
C()C AO[:'D .. INSPT2
.JNE EVN
l·m BCtUNDARY
CNOD
POINT INTO OELJF.C:T
t'10V @OTWP+08JPT+08JPT.08JPT2
DECT 08 . .TPT2
t'l 0 'v'8 *SB.,.'T+ .. :+:OB.JPT2+
,. .,() 'v'B :+:S8.,.'T .. *08.JPT2
DEC 58.,.'T
CLF:: B'T'TFL
RTloJP

POINT TO STUFFING ADC'RE::::S
PL.ACE B.,.'TE Il'oHO l·J()f~:D
F.:ESTORE POINTER TO P,.,.'TF
CLEAR 8'T'TE BCtUNDAR.,.' FLAG
RETURN

o
_ 344

$

.

PXRASM
MIRA990
I.····O I NT"ERFACE
*~15<7::

41!:15:i:

0

4~:354

.l

412155
412156
412157
4~358
4~:359

4l:36f.1
41361
4~362

184A
184C
:t84E
H:: 5 l:3
1:=:52

1854
1:::::56

4l:::16:i:

:1..:::5:::

4~~164

18!:;A
1:::5C:
:U::5E
:1:::6[1

4(1E;5
4(166
41~167
4~~16::::

1:=:t::;~

4069
4~:17121

1:364
1866

4~:q:i

1.86:::

17:44:~0
94::::925-99~:31:+::+:

V2L1

1.. ~;'71···'76

PAGE 121111

:+:
:+:
1.····0 INTEF.:FACE ~·JOF.:~::r:~AS"'1

~t.97.····7'6

PAGE 121115
t1AKE SLIP V CALL
YES, RESTART

"""
..
,.,f

0··.·· ·'"

'';I

"

L #.

,,$

444%«

;',:4#.,0

;iM ##

tiN

'~tt!ri@f"'W·

,." (' W",.;t.rwH

t

PXRASM
1.····0 F=::tIl...IT I NES

MIRA9ge

42~.38

C

421219
42:1.£1
42:11
4;;;::1;2
4213:
42:14

1944
:1946
:1948

e8e~3

4215

195:=::

4216

195A

ee3:C

V;'~L:l.

17:44:1121
948925-991211**

*
~"'ORKSPACE
*I 0l·JK5

:t:

1219121121

SC8LK

DATA
DATA
855
DATA
855

1.97 ...··'(6

PAGE 0116

AF=::EA FOR INPUT ..... OUTPUT ROUTINES

RDCO()
WRCO[)
:16
6121
:113

umMA,;

R0
RDCODP
R:1
loJRCODP
R2-R9 1 ..... 0 5UPV CALL 8L1< (PR8)
R1ta LEN
R11-R:1.5

.

&4444

...4$.

,*", ," .4 #

.

PXRASM
1""'0 F":iJUT I NES

C·
'"

MIRA990
:+:
:+:
:+:
:+:
:+:
:+:

4223:

4224
4225
4226
4227
42:28
4229

42:3:[1
423:1
423:2

1964
1966

423:3:

:1968

423:4

196A
196C
196E

42::::(5
423:6
423:7

197~3

1.972

PAGE 01.17

TITLE:

OPEN
ASSIGN A DEVICE TO A TASK

REVISION

03:~15~76

ORIGINAL
COMPUTER: 990, ASSEM8LY
A8STRACT:
:+:
SETS UP PR8 AND MAKES SUPERVISOR CALL TO OPEN
:+:
A DEVICE
:+: CALLING SEQUENCE:
:+:
R10=LUNO
:+:
8LWP @OPEN
:+: ADDITIONAL NOTES:
:+:
WORKSPACE = IOWKS (SHARED WITH I~O ROUTINES)
OPEN
DATA IOWKS.$+2
TRANSFER VECTOR
1944'"
1968"CL~:
IOPLUN
04C3:
STOF.:E 1 ..-'0 OP
MOV8 @OPNCOD. IOPLUN
D0E~3
£1066'"
INIT FLAGS
CLF.: FLGS
04C4
INIT CODE FOR I~O SUP V CAll
~:14C2
CL~:
IOC
GET CALLER"-S WORKSPACE PTR
C3:0D
I'10V F.:13: .. F.:1.2
AI
R12.R10+R10
INDEX TO CALL PARAMETER
022C

4'-'-:"-·
t!;.~·CI

1974
1976

423:9

1. 97:=::

C::aC

4240
4241

197A
197C
197E

E~3CC

4~~:42

1.9"(""''76

948925-99~31:+::+:

4218
4;;;::19
4220
4221
4222

17 : 44 : 1£1

l,l2U.

~3014

2FC2
03:8~:1

I'10V
SOC
SVC

:+:F.:12. F.:12
F.:12., IOPLUN
IOC

GET LUNO
OR LUNO INTO IOPLUN
t'1AI~RAS"'1

1 ....'0

0

ROU"rINES

4293:
4294
4295
4296
4297
4298
4299
4300
43:01
4302
4303:
43:04
431:'::15
43:06
431:'::17

19A0
19A2
19A4
19A6
19A8
19AA
19AC
19AE
19B0
19B2
19B4
19B6

t'1 I Fi:A990

17:44:10
V2L1
948925-9901**

04C7
04C2
2FC2
A707
0243:
00FF
8803
005C'"
1303
064C
C704
0380

197/76

CLR
CLR
S',lC
A
ANDI

CHRCNT
IOC
IOC
CHRCNT)*R12
IOPLUN):>00FF

C

IOPLUN)@I1AI10VE FLAGS TO CALLING R9
TO RETURN READ STATUS
ELSE) RETURN

MOVB WRCODP) IOPLUN
LI
BUFADR,LFCR

SET UP PRB TO PRINT LF
SET UP BUFFER ADDR

SETO FLGS
JJ>1P PRTKEY

SET FLAG TO PRINT WITHOUT CR
JUJ>1P TO ENTRY POINT IN PRINT

I-

g'W,4$i4\!I·:;:my;;::g;:·• .4ZA

___ ,31

_,2=4L£.$

,_ .. #,7?,;

ri' ','" '·'·''''?!ft' tWX?

, ,

t·'tymm

P;":F::ASt'1
1","0 POljTINES
43:57
43:5:3
4:."::(59

0

43:60
43:61
43:62
43:63:
43:64
43:65
43:66

!

.

NI PA99~3

19E8
19EA

CeE(1

SETO FLGS

PAGE 0121

SET FLAG FOR PRINT WITHOUT CR

19EC
19EE
19Fe
19F2
19F4

00Cl
C3eD

MOV

@KBLUNO., IOPLUN

SET LUNa

0 FOR PRINT

e~~15C'"

PF::J.oJfH

~322C

I'10VB WRCOOP., IOPLUN
MOV P13., R12
P12, R10+R10
AI

STORE 1 ..... 0 OP
GET CALLER'" S J,.JP
INDEX TO CALLING PARAMETERS

MOV

*R12, BUFAOR

SET UP BUFFER ADDR

BL

I~GETCNT

GET CHAR COUNT

~3e14

C1.5C
PRTKE'T'

43:67
43:68
43:69
43:7~3

lA~:::n3

43:71

lA(12
lA(14

2FC:2
(1244

43:72
43:73:
43:74

lFI~~16

43:7::;:
43:79

197,..-'76

F'PENT

06Ae
lA1A'"
A1C4
04C4

43:76
·43:77

17 :44 : :t';;:1
V2L..:t
948925-9901**

~371214

19F6
19F8
1.9FA
19FC
19FE

43:75

C'

:19E6

!::'

lA08

~34C2

ADJUST CHRCNT FOR CR
INIT FLAGS
INIT CODE FOR 1 ..... 0 SUPV CALL..
t'1AKE SUPV CALL
CHECK RETURN STATUS

4~3(n3

(12CF
13:07

lA~3A

~~1;;:~43

lA~3C

1A:1.0

0€1FF
E:::::€13:
€I05E'"

lAl;;-~

16~3:;;:

lA14
:1.A16

~?146~3

~345~3'"

lA1E:

10;13: f::l":3

lA~~1E

FLGS., CHRCNT
A
CLF:: FLGS
CLR
IOC
SVC
IOC
ANDI FLGS, IOEPF::
STST R15
.JEG!
PF::E;:":T
AN() I IOF'LUN., :>e:10FF

'STORE FLAGS IN USER STATUS RE
ZERO, E:"': I T

C

IOF'LUN., I]tPF<:L..UNO

F'RINTEP ERP (ESC CNTL PTN)

.JNE
B

F'F!:E::-::T

NO
YES.

1~F':'<:RASI'1

RESTART ASSEMBLY

pF::E::-n
F.:n,~p

PET URN

,v'

o
k4AG , . 41.0

# ,~

# ..4

;,4

..4

PM$.

7

t

PXRASM
I/O ROCrT I NES

0

d

r

b

g

*t

MIRA9ge

438:1
43E:3
4384
4385
43:86
4387
4388
4389
439~j

:1AJ.A

e4C7
121587

44~je

:1A:1C
:1A:1E
:1A2e
:1A22

44~~1:1

:1A;;-~4

0287

44~~12

:1A26
:1A28

1.:1F9

:1A2A
:1A2C

43:99

44t.::G
441214
441215

PAGE 121:122

GETCNT
GET CHARACTER COUNT
** f':EVISION: 1213/:15/76
ORIGINAL
** COl"lPUTER: 99121, ASSEI"1BL Y
* ABSTRACT:
*
SCANS LINE COUNTING CHARACTERS UP TO AND
*
INCLUDING CR. RETURNS COUNT IN CHRCNT (R7)
* CALLING SEQUENCE:
*
R:1I21=BUFFER ADDRESS
*
8L @GETCNT
* ADDITIONAL NOTES:
*
RETURN PARAMETERS:
*
CHRCNT CR7) = CHARACTER COUNT
GETCNT
INIT CHAR COUNT
CL.R CHRCNT
GCLOOP
INCR CHAR COUNT
INC CHRCNT
COl"lPARE CHAR TO CR
*BUFADR+,@CR
CB
* TITLE:

43:82

43:9:1
43:92
4393
43:94
4395
43:96
43:97
43:98

V;;::L.:1
1. 7 : 44 : :1€1
948925-9901.**

9:=:3:5

121:1121:1'"

.lEG!
CI

GCE::-::T
CHRCNT .. 82

IF EG!UAL EXIT
1"10RE THAN 8121 CHARS + LF/CR?

.JLT

GCLOOP

NO, CONTINUE

6:147

S

~j45B

B

CHf':CNT, BUFADR
*RTN

:13:~j3:

e~j52

GC:E:>a

RESET BUFFER ADDR TO START
RETURN

C

o
; .

. £

as

40

".au.

t..

t' ··+tT· ·X'tMttz

••wt'tt+ie

j

i'

PXRASM.
1""'(1 ROUT I r'~ES

0)

1·

MIRA990

*'
*':+:

44~j9
0~3

22
6F
5C

:N

442:3:
4424
4425
44;;;::6
4427
442::::
44;;;::9
443:f1
443:1.

:1 A 3:::;l
:1A3:9
:1A3:A
:1 A 3:E:
:1A3:C
:1.A3:D
:1A3:E
:lA3:F

~:::10

:1 c.
'-'
:1E:
:tF
1.F
3:E:
3:E:

:1.A4~:::1

"-:8

443:;~

1.A4:1

3:E!

4422

C

4,::1·3:3:
443:4
443:5
443:6
4437'
443:::;:
443:9
4441:":1
4441.
4442
4443:
·::J.444
4445
4446
4447
444::::
·::1-449
4451:;:1
445::1.
445:2
4453

:::!:E:
-"':,-::'
I

:+:
:+:
:+:

AL.PHA-...TI'lP:1.,..-'2-:1
NUt'l-JMP:1.,'··2-:1.
DOL.L.AR-...Tto1P:1 ..... 2-:1
G!UOTE - ...Tt·lP:1./2-:1.

AL.PHA
NUt'l

HE:,.~-JMP:1./2-:1

:>

8"r'TE
B'T'TE
B'T'TE
B"r'TE
E:'T'TE

AL -.Jto1P;;-~/2-:1.
NU-...H'1P2 ...·'2-:1
NUt10-Jt'lP2/2-:1
NUt·10-.Jl'lP2"··2-:1
NUMO-.JMP2/2-:1

B'T'TE
B'T'TE
B'T'TE
B"r'TE
B'T'TE
B"r'TE
B'T'TE
B'T'TE
B'T'TE
B'T'TE

CKER-JI'lP3:,····;;;:-:1
OPSTK:1. - ...TI'lP3.·... 2-:1
OPSTI<:2-...Tt·lP3:/2-:1
OPSTK3-.Jt'lP3:",·'2-:1
OPSTK3:-JI'lP3.····2-:1
SCAl - ..TI"·lP3:.····2-:1.
SCAL. -.JtolP3/2-:1
SeAL. -Jt'lP3/2-:l

$

QUOTE

SCG!T-.Jt'lP3.···'Z~-i

SC:AL.- ...Tt·lP3:.··';~-:1.

0
:1
.:::.

-.

...
..:E.
4

c'

'-'

.-.6c·
'7
9

.JUt'lP TABLES USING S'T't'180L TYPE

..H'1PTB6
lA42
:lA43:
:1A44
:1A45
:tA46
:1A47
lA48
:1A49
:lFI4A
:1A48
:1.A4C

~J(1

I;;K1
0:1
f1:1
~::H3

I:":U::1
~3:1

f1:1
1.1_,
,=,
~::16

f16

~LA4D

~:::1E

HNE
:1A4F

24
24

l.A5~:::1

~::H3

:1A5:1

B"r'TE
B'T'TE
B'T'TE
BYTE
BYTE
B'T'TE
BYTE
B'T'TE
B'T'TE
8'T'TE
8'T'TE
B'T'TE
8'T'TE
8'T'TE

F.:DF - ..Jto1P6/2-:1
RDF - ..TI"'lP6/2-:1
ADF -.Jf'1P6.····2-:1
ADF -JI'lP6,····2-:1
F.:DF - ...Tt'1P6,'··2-:1
RDF - ..TI"'lP6/2-:1
ADF -.JI··lP6/2-:1.
ADF -.J t·1P6.···· 2-:1
ERRS-.Jt·1P6.····;;,::-:1.
ED-.Jt·lP6/2-1.
ED-.Jt·1P6.····2-1.
FF.:-.Jt··IP6.····2-:1
EF':-.Jt·1P6.···'2-:1
EF.:-.JI···IP6.····;2-i

8'T'TE
B'T'TE
8'T'TE
B'T'TE
B'T'TE
8'T'TE
8'T'TE
B',,1TE
8'T'TE

E::::S'T't'l-...Tt·lPF /~:;::- l
E::-:;TDFF.:-.Jt·1F'F.····~~-:1

N::~F.:ASl"·l

•
1.····0 ROUTINES

0

446:1.
4462
4463:
4464
4465
4466
4467
4468
4469
447f,
447:1.
4472

4473
4474
4475
4476
4477
4478
4479
44E:~3

448:1.
4482
4483
4484
4485

:1.1459
:1.A5A
:1A5B
:1.A5C
:1A5D

:1.A5E
:1.A5F
:1.A60
:1.A6:1.
1.A62
:1.A63
:1.A64
:1.A65
:1.A66
1.A67
:1. A6::::
:1A69
:1A6A
:1.A6B

to1 I RA99(1

B'T'TE
B'r'TE
B'r'TE
E:'r'TE
BYTE

3E
3E
3E
3B
38

02
0:1.
04
07
00
03
06
1:"::19
[1B
0D
0F
:1.:1.
1.3
27

:17:44::1.0
. . . 2L:1.
948925-990:1.**

197.-176

UNDSI'1-JMPF .-12-:1.
UN[)SM-Jt1PF.-12-:1.
UN[)SM-JI'1PF .-12-:1.
EXTRFA-JI"1PF .-12-:1.
EXTRFR-JMPF.-I2-:1.

PAGE 0:1.24
FLAGS
FLAGS
FLAGS
FLAGS
FLAGS

=9
= :1.0
= :1.:1.
= :1.2
= 13

*
JUt'1P TABLE USING INSTRUCTION
*
WORD LENGTH AND RELOCATABILITY
*
*
INT8L
BYTE I N0-JMP I N...'2-:1.
NO EXTRA WDS
B'r'TE I N:1.-JI'1PI N..... 2-:1.
:1. EX WD -DEF"'D ABS
BYTE I N2-.JMP I N.-I2-:1.
:1. EX WD -DEF·'D REL
BYTE I N:~-JI'1P I N.-I2-:1.
:1. EX I.oJD -FRF
(DEF ABS, DEF ABS)
BYTE I N4-JMP I N.-I2-:1.
(DEF ABS, DEF REL)
B'-r'TE I N5-JMP I ~J.-I2-:1.
(DEF ABS, FRF)
BYTE I N6-~TI'1P I N/2-:1.
(DEF REL DEF ABS)
B'r'TE I N7-JI'1P I N..... 2-:1.
(DEF REL DEF REL)
B'r'TE IN8-JMPIN . . . 2-:1.
(DEF REL.. FRF)
BYTE I N9-.JI'1P I N. . . 2-:1.
(FRF .' DEF ABS)
BYTE I N:1.0-~TMP I N..... 2-:1.
(FRF , DEF REL)
B'r'TE I N:1.:1. -JMP I N..... 2-:1.
(FRF,
FRF)
B'T'TE I N:1.2-JI'1P I N.... 2-:1.
I~T
B'r'TE .,' .,'

:1.
2
3
4

5

6
7
8
9

:1.0
:1.1.
12

.,' ,,'

:+:

C:

o
..... .##4

.U.¥d

,j

wi

V2L:1..

PXRASM
MIRA990
INITIALIZATION

o

:+: TITLE:
:+:
:+: REVISION:
:+:
:+:
:+:
:+:

44:::9
449~:1

4491
4492
4493:
4494
4495
4496
4497
449::::
4499

*'
*'*'
*'
*'
*'
*'
*'
*'
:+:
*'
*'
*'
*':+:

45~:H3

450:1
4502
45tG
4504
45t15
45t16
45~.3,?

45(1::;:
45~39

c

45:1J:1
4511
4512
45:1.3:
4514
4:i15
4516
4517
451.::::
4519

4!521

PAGE 0125

17: 44: 10

948925-99~.31:+::+:

FRT/SYMT/INIT
FORWARD REFERENCE TABLE/SYMBOL TABLE/HEADING
03/01/74
ORIGINAL
03/15/76
HEADING AND MEM SIZE INIT MOYED & MODIFIED
TO RUN WITH PXRMTR. PREDEFINED REG OPTION ADDED
12/07....76
f'1Et'1 SIZE REI'10YE[:'.
COl'1PUTER: 990. ASSEI'1BL .,..
ABSTf;,:ACT: THE AREA FROf'1 END OF PXRASM TO END OF
f'1Ef'10RY RESERVED FOR FORWARD REFERENCE
TABLE AND SYMBOL TABLE. FRT STARTS AT
BOTTOM OF BUFFER AND IS BUILT UP.SYMT
STARTS AT TOP OF SAf'1E BUFFER AND IS
BU I LT DOl·JN.
INIT CONTAINS CODE FOR INITIALIZATION
DONE FIRST TIME PXRASM EXECUTED ONLY.

FFn

~:H3A~3

:+:
:+:
:+:

HUT
:+:
:+:
1A6C
1A6E

0;'~:t19

FORWARD REFERENCE TABLE
AND SYMBOL TABLE
EG!U
PEF

>A~:1

S'T't'1T

RCIf;,:G Ff;,:T
INITIALIZE XOP VECTOR
F.:EF SVO·JP
F.:EF S'·... CSf;,:
LI
F.:9. S'·... C~·JP

~:1t1~:1t1

1A7~:1

C::=:~39

1A72
l.A74
1A7'6

f11Z17C
~32~39

LI

F.:9 . SVC:Sf<:

NO'·,,'

R9., 1]I)7E

~3~:1~3~:1

1_A'?::::

C::::~:19

1A7fi

IZ1t17E
:+:

:+:

4:i;;::4
1A?C
l.A7'E
.•., t!:".-.""":'

...,.._f,;::.

t'

453::1

C2A~::t

PRINT OUT HEADING
MOV @KBLUNO. IOPARM

~_A8~:1

042~3

E:UoJP i]tOPEN

1 A::::;;;::

1FIE:4
1A::::6

1964'"
C2Af1
Cu35E"

MOV

1 A:::::::!

~::142[i

BU,JP I]lOPEt·J

lA::::A
:tFIl:::C
1f-iSE
1A9(3

::1..964'"

l.A9;,~:

19CE'"
t12C.3A

lA94

OPEN LOG KEYBOARD

~:105C'"

~::1~:;::~:1A
~:1H~~3

.'

@PRLUNO. IOPARM

OPEN LOG PRINTER

LI

IOPAF::t'"/.. LFCR

PRINT LINE FEED/CARRIAGE RETU

LI

IOPAF.:fo1.. NAt'U'"lSG

PRINT PROGRAN TITLE

(;.14;20

o
&.J AMP>. K

.$. . .£S'4A lA4

$

.i¥W.#

J&$gzgMlR!~"

t •

H hi

PXRASM
MIRA990
INITIAt..IZATION

o

4532
4533
4534
4535
45::::~6

4537

453:9
454€1
4541
4542
4543
4544
4545

C'

1A96
1A9E:
1A9A

4546
4547
4548
4549
4550
455:1.
4552
4553
4554
4555
4556

. . . 2L1
17:44:10
948925-991211**

1AE6···
12142121
19CE'"

BU~P

*'
*'
REQPR
1A9C
1A9E
1AAe
1AA2
1AA4
1AA6
1AA8
1AAA
1AAC·
1AAE
1AB0
1AB2
1AB4
1AB6
:tAB8
1ABA
1ABC
1ABE
1AC0
1AC2
1AC4
1AC6

@PRINT

PREDEFINED REGISTER OPTION
LI

e2eA
1Be2"
12142121
19D6"e2eA
e17C'"
12142121
198A"
(:820
1154"e0€16'"
9820

PAGE 0126

197..... 76

IOPARI'1. PDRMSG

REGISTERS DESIRED?

BUJP @PRINTN
LI

REQUEST IF PREDEFINED

IOPARM .. I NSBUF

I NPUT

F~ESPONSE

BUJP @KEYIN
MO . . .

@SYMTAB.@SYMTBE

INIT TOP OF SYMBOL TABLE

CB

@INSBUF.@NO

NO PREDEFINED REGISTERS?

.JEQ
CB

EXTI'1S
@INSBUF.@YES

THEN EXIT
YES?

.JEG!
CI

SETPR
IOPARM. INSBUF

ASSUME DEFAULTS IF NO INPUT

JNE

REQPR

NO. ASK AGAIN

LI

R9.

S

R9 .. @SYt'1TBE

LI

R9 .. PDREG

MO ..... E PRE[)EF I NED REG I STERS TO

LI

R1e.SYMT

BOTTOM OF SYMBOL TABLE

AI

R10.PDREG-PDREGE+1

~317C"

1B19'"
1315
982121
017C'"
::LB1A ..'
1303
028A
e17C'"
16EA
SETPR

1ACE:
1ACA
1ACC
1ACE
:1. AD €1
1AD2
1A04
1A06
1A08
1AC·A

0209
006€1
6809

PDF.~EGE

-POREG

RESET NEXT SYMBOL TABLE ENTRY
PAST PREDEFINED REGISTERS

~3e06"

€12e9
1B1C'"
020A
1154'"
e22A
FFA1

TOP OF SYMBOL TABLE

1'10VPR
I

1ADC
1ADE
1AEe
1AE2

:1.E:7C ..'
16FC

:lAE4

€145B

0289

NOVB *R9+ . *R:l0+
CI
R9 .. PDREGE
~TNE

t·l0 . . . PR

"'lOVE BYTES
ALL DEFINITIONS NOVED?
NO. CONTINUE

.::~557

4558

RT

4~559

*;

456~~1

:+:
:+:

4~561
4~562

j .. AE6

4563

1AE7

4564

:18~3~-:)

1"lESSAGES

STAFi~T
.~~

ASSEt'lBL Y

DATA

0A
50
eA

NAMMSG BYTE )0A
TEXT "'PXRASM
BYTE )0A.)eD

50
00

PDRMSG TEXT "'PREDEFINED REGISTERS? ...
BYTE )00

948925 *'* 12JUL76'"

1801
4~i65

:1. E:lZI 2

·'+566

1 E::::t 8

o
_a

4

,z, ' ,_ ",_ . "X,4#,2,

; . 'I'.

j,z .,. ., "$' ".

PXRASM
MIRA990
INT TIAL"IZAT ION
456(='

:lE:19

4E

NO

~l81A

59

'T'ES

1·...

2L1
17: 44: j .. 0
94::::925-991211**

1.97,,"'76

PAGE 01.27

8'r' TE ···N···
8 Ir' TE .' 'rio.·

C:

o
.4

$

k_jj .

PXRASM
MIRA990
•
INITIALIZATION
457~Zi

0

>I<

4572

>I<

4576

4577
4578
4579
45:::.3
4581
45::::2
45::r:::~

.:*5::::4
45:;::5
,:+5::::6
45::::-('
45:::::=:
1:+5::;:9
4!:i9~1

4591
45~:;';2

4593:
4594
4595
4596
~~5~:'''7

459:::
4599
460f1
46~U

46f12
46~Z13:

4E:1214
4,6f1!'::i
46~::16

EVEN
181C
181E
1821
1822
1824
:1.. E:27
1E:2::':::
182A
1.E:2D
1.8;;;::E
183:0
183:3:
lE::N
183:6
183:9
183:A
183:C:
183:F

0~3~Z1F

~Z1f.1~Z1D

DATA
TE:X:T
8'T'TE
[:IATA
TE:>::T
8'T'TE
DATA

52

TE~-::T

3E:

8'T'TE
DATA
TE:X:T
8 'T'TE
DATA

52
3:8
la~30E

5"

~<:..

::m

~300C

52
3:E:
~Z1~Z1~38

52
3:E:
f1€1~:'1A

52
3:E:

184~Z1

~3€1€19

:1..B42
1844
1846
1.E:48
184A
:184C
184E
:1850
1852
1854
1856
1858
185A

52
f.1€(:;:A
~:K1tJ8

52
~)r;::GA

0f.u37

52
~3f13:A
~:'i~Z1€16

52
f10:?(A
(~fHJ5

52

lB~iC

€H~13:A

4t~~~1::::

185E
1B60
1E:62
:1.B64
1.E:E:6

~}~J~34

f:Ki]:A

:lE:6E:

f1~}3:A

186A
:l.8E:C
186E

(~~Jf1:~~

4t~:l.5

46:1.6
4611'
4t:'::!':::::
4E::1.9
46;;::~3

·:j.E:;;;:-:1
4 t; ;;;:: ;~:
':;J.6,?~::

PAGE f.1128

P[:'F.:EG

46~~f?

46f19
46:1f1
4611
46:1.2
46:U:
46:14

197/76

PF.:EDEFI NED F.:EGISTER DEFINITIONS

4573:

4575

17: 44: lfi

9489~~5-99~31>1<>I<

>I<

4571

4574

C

V;;;::Ll

:1.87~~1

:1.E:72
1.E:74
1.E:76
:1.I:::'?:::;:
l.E:;::'fi

5:;:~
~}~~1~:~3:

52
5~?
I~HZ13:A

"'F~1.5'"

:> 3: E:
14
"'F.:1.4'"
:::-3:E:

R1.4

:13:

FU3:

"'R1.3:'"

)·3:8
1.2
"'F.:12'"

R12

:>::::~E:

:1.1
TE::'~T "'F.:ll'"
8'T'TE >3:8
DATA lf1
TE~'::T ,,' F.:l~~1'"
8'T'TE :>3:E:
DATA 9
TE::-::T "'F.:9'"
DATA >:IA
DATA !:::
TE::-:;T ..oR::::'··
DATA >3:A
DATA 7
TE;:'::T ", F.~71 ",
DATA >3:A
DATA 6
TE::-:;T ", F.: 6 ,,'
[:'ATA ~:-3:A
DATA 5
TE::-:;T ", F.:5 ",
DATA >3:A
DATA 4
TE>::T ", F.:4 ",
DATA )3:A
DATA ";.
-'
TE::'::T ,,' F.:3: ,,'
DATA >3:A
DATA 2
TE:'::T ,,' F.:2 ,,'

DATA
DATA
s'-:'
TE;:'::T
'_ t::...
O~:r::;:fi
DATA
~::11;~ ~:~ ~~i
DATA
C"'-'
,_.1':::'
TE::3:A
:1.
", F.:l"
:>3:A

F.: 1.

~}

R~J

,"P0"
:>3:A
$

o
. xu

.¥

".$,

_

4M

"L

,_4Sa;4..~

,

4 ".«M_. -tU$.· - " 1...13"

PXRASM
MIRA990
I N I r I FIL ~:ZFIT ION

~l7: 44: 1.C1
94::;:925-991211**

19,?,·"'76

PAGE 121:129

46;;;~4

4625

END

STAfH

c

.

4, 4 . .

$

g

__

j

..

LiMP.AS". ,

44; JIb at

a.$"

"t...

....... &9"

rt

h

PXRASM

MIRA998

'·,·'2L1

PAGE ~3:1.3:0

17 : 44 : :1.€1

I NIT I At. I ZAT I C)t·j

o

F.: f1AOF.:Ci
R AAOF.:G4

P
P
P
F.:

P
P
F.:

ABET
ABSIN
AB'T'TE2
ADAT4
ADEF
ADOF.:G1
AD::-:;OP
AEG!F.:EL

P AEP
F.: AGET1

R AL
F.: ANF2
R AN::{rFL
P APEF.:LN
R APEAD
F.: AF.:FEP
R ASC',"'Ll
ASTF.:
F.: AUNL
BHCODE
R BINDEC
F.: BIN'·... L
BU·~~::}<

(1~3(1:1

:1.478
~36F6

1375E

05::;:C:
(i7AA
07C6
f19~3E

1(18€1
13:(1:::
13CC2
~35AE

09E4
(1542
~35.3A
~::.'t9EA
~~BC:::;:
~:::H:::12A

~::tAA8

(U:::1137
IZtBF4
.3B03
13~:::1(11

R AAOPG1
F.: ABDAT
F.: ABOI<
R ABSS
R ACHAR
F.: ADATA
R ADEF2
F.: ADOF.:G2
f<: AEND
F.: AEG!U
f<: AE'·... EN
F.: AIDT
F.: ALIST
F.: ANODEF
AODD
F.: APRLN
F.: Af<:EF
F.: AF::ORG
F.: ASC'·... L2
F.: ATITL
R BATCH
F.: B I HE"':
BINDPT
BINVLP
BLt-JI<:F::

€1684
1754
173:4
~36(:'4

€1CD6
071A
0778
€1?AE
0806
(i8E0
~:::1BH.'I

0992
09Ae
056e
(10132
0542
ti5:::4
1Zt9F(i
.:::i8eA
.:::1944
.:::1494
~3BE4
.30~:::17
~::1fI1Zt0

0t1.:::1A

F.: BN::-:;OP1
BUFADF.:
B',.'TFL
CDL It'1

13FH:1
1313.:::15

P Bt·J::-:;OP2

~3F12
.3~3~:::16

~::.'t~:::H:::i:=:

P

8UFLEt·J
C1LUNCI

(1(n39

CGET

~Ki01

CHF.: C: r-n
CKF'T

~:::n:::107

CLNBUF
CLF.:OBJ
CNOD
CONGET
COUNT
DECt'12
DFEF.:
DORGFL
EIGHT
ENDE:::
BINVP
8LNW:::
F:: BOPLOP

~:::16E:6
0~308

(11132
00(13:
0740
071E
112114
14F4
13914
08EE
OB28
13:F6
0C48
059E
13:EE:
054A
0592
t19FE
(1 ~:::1 (1(1
(1"(148
~3~Z1~3E:

~3C1Zt4
~:::1BE(1

(1t104
OIZt(1A
~3EF4

00~32
1Zt~:::162

1186
.3.)64

F:: C2LUNO
CHAF.:
F.: CKENT
CKSUt"1
F.: CLP8G
F.: CLF::5
COl'lt'lA
F.: CONPT
DBf<:N
F:: [)EF
F.: D I ....' [:,
F.: ED
F.: ENDACT
F:: ENDIT
F.: ENDF.:ST

1Zt8D2

~~I:=:5E

R EN02

~~~DE~:::1

~~(1IZtD

F.: EF.:
F.: EF.:5
F.: EF.:CT
F.: ERIN::::
F.: EF<:Ntll"l
EF.:PG
F.: E F.: F.: OF.: 5
F.: EF.:F.:OF.:S
F.: E'·... LOC
F.: E::·::E

1~j5A

~:::1(1~~;2

~:::1H31
(H31Zt~:::1

t163:e
~:::1E5A
~347C

I2IB56
.:::1866
13::(9.3
[18DA
~::1B72

.:::186 A
.:::193:C
t1F6~:::1

(1[~f1~~:

i.5F2
~Z1~:::1":::11

:1.7'(:2
1Zt5~::12

1Zt00F
~3~30A
~:::1766

lH32
llZt:1.E
(146(1
~:::1EE:E

R
R
R

R
[:,

AAORGJ:
ABES
ABRTFL
AB'T'TE
ADATJ:
ADDUP
ADORG
AD:X:2
AEG!DF
AEG!U4
AFDFE:G
AINSYl'l
ANDFER
AW-:;CHR
APAGE
AF.:2
ARF2
ARORG3:
ASl'lCSR

069:::
06BA
010C
1216E2
075A
1121[:'4
13798
07D:::
1391C
0904
OEJ:2
077E
~3566

1Zt5D2
1Zt9B2
051E
(19[:04
(1A24
~344E:

R Ann

~::tA4C

P BGPRT
F.: B I NDC
8INVAL
R BLANK
BLPT
8PANCH
R B'T'TF I ::-:;
CDAL I t'1
CHOPC
F.: CKER
R CL.AS:='::
P CLRFF.:T
CL.ST'T'P
F.: C:Ot·1PAF.:
R C:ON'·/I.·JS
F.: DEC 1"1
F.: DEFF
P DOL.LAF.:
P EDF
F.: ENDAL

:V::J7A
(1BFE:
(1(1€1~:::1

17[:OC
(1tH":'14
1:":.1(11:":.18
:i65~?1
1~1(1~"='15

~:'1I~10E
1~1F'(A

1~1:1.E:A

:16:1.2
1;:~~3~):t

(i[:o8:2:
laBC:~3
:l8~7;16
~3716::::

l~[)26

t,71('16A
o:::::t:?

F.: H~[:tLF'
F.: END:::::T

~::1::::9~:::1
;;~(:t(10

(185A

EO!=-"
F.: EF.::;::
F.: EF.:6

1,~::174

F.: F.:F.: END

(1SD6

:1. 13::;: E
(n311

P EPU)C
EF.:C)FST
F.: EF.:POF.'2
F.: EPF.:t]F.:6
F.' EPF.:S
F.: EVr-J
F.: E,,:E'·... L
R E::-:;U<
E>::PPECl

(1tZt:lA

~3~j":::H:::1

(1B7(1
(:~C:[)A

:1.6~:::1E

:154A

R E:'::ITNO

IZtDCE

:1.4E~1

F.: E;:';; P F.:

~:::1F42

.¥ " ..

R
R
F.:
R
R
R
R
R
R
R
R
R
R
R

Ii$4N.A;U;gMiW.. 41 ..

F1E:~:::::~:

m::·~'j.F

~?1B5E

#

0l~~:1:::::

13876
(1B6E
:t~::i42
:1.::::l:~A

~::1AAE

:1.1.E;C
~)(10~3

t

CS@-j

td

*"

P ~Y~RA:::;t'l
tot I
INITIALIZATION

0

F.:
F.:
F.:
F.:
R

R
R
R
R
R
R
R
R

R
R
R
F.:
F.:
F.:
R

Co,

F.:

F.:
R
f':

R
F.:
R
F.:
F.:
F.:
R
F.:
R

F.:

P
p
F.:
F.:
F.:

E::JP
t'lLB
NOVAL
1'15GF' f<:T
NAI"lNSG
NFF.:T
NO
NON
NOTSAfo1
NO;;::
NU
NUt·lEF.:G

I:;;: NUNO

Nl·J ...·'AL

p r·J::~
F,: t·10VCHF.:
1'1SGPT
NCONS
NFloJD
P NOAD[:'
R NONEG
f<: NO'·... FL
N58IT
NULL
f<: N1...JI'.lERF.:
Nl·JSCT
F.: Nl·JVL
N:>:;CPT
R N::~
R INe
R IN12
R INS
R IN9
R INPT
INSPT2
R I NSTW[J
IOC
R IOl>n~:s
f<: ..Tt·1P6
R .JMPTB2
R .JMPT87
R I~
R IN1
R IN2
R IN6
INCSC
R INSBUF
R INST
R INSVAL
IOEF.:R
R ..Jto1P1
R ,Tt'lPF
R .JMPT83:
R ~Tt1PT88
R KE'T'PLF
LCKRG
F,: LERt'lSG
F,: LIMENC'
R LI1CLR
S'T'f>1NPT
R S'T'f>1TBE
F.: TAB
TEMP
R TENS
R TITFX2
F.: TITQ2
R TQUOT
R TRUNK
R TYPIZt
R TYP4
R Pr'P7
F~ "'T'PC
R UNDLP
;:;;. . . . ALCHI<
F<: VAL OUT
F<: VCKP
J...IOF.:[:'1
F.: J..WEOF

0

eDF6
000[)
0006
0004
001210
0072
094C
0St8C
0D1.8
1.1.2C
1.348
1.34A

'.

F.: :>::OF'G
ZCK~~
~3IZtOI~1

:13:::::6

1.284
eED6
1.57C
158(:
:1.;;-~DA
0~3~Z11Z1

19;2E
:t49A
f#3,z1C:

V2L.1.
1.7:44:1.10
948925-99101.**

R SYMLOC
SYMPTR
R SYNRFr~
TABCHR
TEMP2
R TERM
R TITLE
R TITQ3
R TRERR
R TWO
R TYP1.
R TYP4A
R TYP8
T'T'PE
R LlNDt'lSC;
F<: VALCI
::T

:t:l.6~::

Ei\!DFF.:T

;?:~:(:;f.1

Fl.IDIT

fl686
0690

:1..:1(1:1..
:1..::L6f1
:2::::43
2:::::2.::1,

ENDLP

1:1.. 4 t-::

:l.l4:~1

FlJDI·t:::;13

':::C::~:6

[16:::;::.1.

Ft-JDPPt::i

0.1:3:5
:LL67

Ft'JI)P'::::T
F~N/)'rFJJ

[!',.Ie,',,.'
FI',let:?

44,:+7

:???'?
t1:::::7

1:1..65
0723

873:1..

:::::825

2863

2125

2164

2843

;::.,::~~;?

J,.:?4
;;:::0,::::,:::,

FOF

\14:.1.,::::

4::1.::::9

FOf::C!')!)
r::Ci!.
f'::P
Ep:::'

f:~:::::·::f.4

4::;::f~12

(1·:1:1.2

(:)f:22

:J,~:;69

:?2:=.:4

·:l44::~1

0818
1420

4451::'/
0835
179?

::1.042
2571

:1..045
3181

1169
3266

1264
3263

1306
3492

::1.327

:l.~;t:?

1.252

1655

2650

2669

2736

3129

3710

3749

:1.~::;::I.,r5

0'77:::-

JI]':::::;::

:I.(";:"'?

J,:1 :L ':':i

::I:J 'L 7

:1 J .;;: ~:)

3534
1533

3536
1535

3544
1537

J,539

j541

1546

1547

FF'?
FF4

C~::

::I.

::1. L31~J '~:I

:1.5:1.:=.:

EF'?

:1 ':52;1..

FP::::
FF'CT

:1..'::'24

F~~'Ff"~D

::1.1..69

FPF:<

2621

EF'f:-::<
[:'1:;:' Tt,.!,:;

21St::'!?

;?~~;elr::j,

~3 ~:::':::';?

:L'5:::i:l.

f1'56~i

0C
,:: r.;:J·t:;; Ci

0 ::::: 9 9

!:::'Pj',if"![\'

J.:I ,?,:::!

[;:'::1'.//11"

fC:fll::'1

F';:;'F',:'
r:-pp/='-;':'

elo'="?

F

F~'i

1384

l',"i4?
'::'

FF'I::'(';

3531
'L53:J

;:'!~;'F'nF~'?

'I. ~:::;?:::::
'ISO:::::

FF'e()F>?

:~~:i4

:1 ~)4 ;;::
1'54(',

1548

J~5:1.1

1.,5J4
F'F'F'('jr;::(:

:t "::;],:::;
:1.":::',: ,:"

r::T:i:;:"~IF~::'

'j

F:' F~ r:: r'/ p ;::::

"" ':~~? I~)

Fr;>I:;:'i':IF'r::;

0··: .:·

li::iJ ';::
!, :~:;;?t?i

''';~:::>

:1.':::i,:::;C:

,144';:)

-"11

J.t[

$2

#44.,#

,nMPM.A.4.7

_ 4J

'A

t.

+1

'MO-' ,

PfH:JE

o

FP',/L
E:',,.'EI'·J
E"/L.OC
E'.,.'N
E ::.:: E.: CJ
E::::T[)FP
E>::n'!:::;

2466
1?1:1..S:l
;? 5 7 5

1::'I99~::;

:L,:H:'I::::
:::::1,;::3:

;25::::1..

3:/?'142

3::'36

3405

3406

3t72

:::::203

3235

3469

:::=:4:~:.:.l

:?:17:;:::

445,:+

44'::'i::::

2:1.75

4 4 ~-::; 2

,::J. 4 '::i I::::

:::i::1?6
3:3::.1.::::

3::1';::'/'

:::r3:~:~t

:1.062
:;:04:1:::
:::~:,::~ 75

:.1. :l9~:1

:l 2(:):::::

J,:::::L~:1

.~:~ ::=t ;~;:~ 9

29-;:'.::/,

2~:;' '?~::;

3::L74

~~::1.25

3333

:?49:1.
3:.494

:::i.331~~

3407

=~:49(1

455~:'

45,:.j·;?

1~:':7'::I·

:1. :::=:I::~ I';

E>::'r02
E::::F'F:T

948925-9901 .**

1?19~7:I"::i

3: ,::f·::=t7

E>-:F:'I:C:
E>:'PF:Ff:l

0138

::I..??t:::

4,l64
441:;,,:i

E >< I.,J F' :?
FF:"r'T
Ft=
F TL.I'l

;;~ 3: ~i ~::I

FJXFRF

3650

~'3~?;?7

09:?:::::

ki ':::1 ,?:;?

O'::I'7J

J(~H:~9

:1:::::;?~-::i

t:·:'.:<:f::1

::1. :::::'-9

:l.4~:'1:J.

:lO:J::i:
:J :::::4 ?

:?:l74

3:2(~i::::

?2:l,O

3:?!::i:J

·~~.;?::~i:::::

4009

40:l2

401?

402J.

4026

2116
26:13
0768
2053

26:14
0768
2114

2617
0851
2170

261~

2620

085J,
2534

2534

1.1t8
?t:l2

1942
31:12

1943
3532

1944
3532

3143
?487
4235
":J.:7:6:::::

315:1
3498
4292
43:71

?:l52
35:17
4301

3299
3522
4306

3305
3'736
4325

3307
3744
4350

33::Ll
3-;:'69
4353

33:1.6
3772
4357

2931

2933

2976

2977

29'78

2979

::':,:1·77

~"3::::9::'
::::f":~ ?[I

01. ~::::?
i?:U ".it

3142
3454
4203
43f:?

FOUND?

?690

3666

FF'

;::-,,::;6::1.

,::/.44':::

:? ':::':1. 5

2':::!J7
2':::IJ,4

jl1~

F'P::~:

FPF:
I~:j

'1

":~:1

~~~~

!:::i~i:::'I'..IT

;:::'j;"F>,

.. .#

L

.¢

.$)94444..# .) i

,¥.i_ilk

F'HGF:

p:r'JT

(:1::1.,49

F." EJJD

O;?~:~::

FF.~TPT

ia::l.,~:;I2I

FI:;;'TVAL
FF.:I,·,iF'

\~1:1.9:::=:

45~UJ

(~124 ?

F:::::T
F::::;T I t'1

0:1.:3:",,;

F~:::;TPT

4~~16::

FTAB
F'·//...,
Hj[:t I N

4 ,::j. 501
(12:15

Fi,·ID,J

:::::;::4:1.

"::, ~::"~'I::I

.,,: .... :....:.'.,,1

072:1.
:::: [1 (:J 7
3661
3010
3663
0722
2913
4104
2430
0744
2170

0728
::': I::j I::' ;::::
36:::=:2
30:1.4
3664
0:::=:26
2961
4104
2448
1421

3008

0139

3010

3654

3022
3692
0838
3082

0840
3083

0890
3237

2325

2498

2578

2589

2589

2630

2451

2451

2923

24~6

2508

3029

3685
3021
3665
0837
3005
4157
2448
:1.439

**

948925-9901

:3:9::1,5
:::::~~:Ol
3;:?4~:.~
-;:. ":::I--:~":;<

F' f'~ I:> 1'1 K

...:.j

FI·il)~:::;r·J

2423

2423

2:1.::L 2
::i::1.. .:.1, :1

::; I:::; '::i:.I
:::::L ~::; CI

F:',:;FBCi
F>-::FI"Ji='

':::6l.i:::t

Cifi!)

?4·:!,F:

I

I

:?I';~:i,'::::

eiCE,:,':T

4·:11:~'::

4'::I,~](1

(,(:[, ClOP
Ci/:'TPt'i

,f.::::::':j7

44((::

::::1 J,::::

:,~,:JJ,.::"

CiF:TCHF:

.:-;0';:"::::';::

0625

nFTCr'J'T

.:.l":.:::r~:;

t4I,<:;
1~~4

!:iET::::;CT194::::r
': l J, 9

:t96;,,;;
,~:4E;;::::

fjll :::.'
Ci:=; H I) I '" [,
CiTe.,.··1

CiT' 'I:; r 'T';:;O
r:,"I"::~F'i,

I":' T ':::; Y'.II"!

,', T<::;'·ii
,":; '. :1 .. 1":"'1"

I~I :1:1 :~;:

::1.9 '::;;?
:t ':;:"::i,:I
'19 '? '?
l. ';:,1,::;":;,;
CI :::'1 ~:; ':)

J.,':;:".I.

:1 . :' ( '7,'

:t :::;';::'::~:

'.I :':,1 ( ":'

J(",::=;:1

2035
J.970
1966

20113
:04~

2169
2055
2061

219(
21JJ

2:4;
2184

2215

0805

095~

0951

J091

J.l~8

~206

1337

1453

~G98

3702
3735

3703

3704

~729

~7~G

~7?7

5((~

5((b

3705

?727

-,7~8

3729

3738
3770

377J

3772

""::':]

"i,·,i?,?

20~7

J ,(; '::~ ~::~I
,I.::: !. ':"i
t';:"'??
,'::I;:>CI,::"

:1.';::'::::'·:1

3G97
372G
]704

':: ·'::'.-i ";:1

,.>

I

•• 1•• 1

377~

?L'1:1
.~.

:~

f';: ,..
"-""":.,:: ..

'"!·-·I;::

.

•

.• .1. .W.4 -UAp\' 4.

@

;.

Jlgg:44C4

...... _~ .... n ••

:1 :~f.: /,.. 7 E:
1

0 ,'

.,

IN2
I t-.!'7::
IN.::!·
INS
IN6
IN'?
IN::::
H·.19

:':3:~~14

4475
44'('6

~r::a5

-=~4·7·7

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

0140

948925-9901

447:::
4474

0745
2505

1236
2505

1236
2511

1255
25:1:1..

1255

1359

1~59

1708

0689

2243

3924

4058

4156

4538

4541

3185
3474
38?:1
3904
3999

3186
3475
3872
3905
4003

?205

3209

3210

3408

3464

3873
3906
4033

3886

388?

~~d~

3889

4034

4036

4040
1J??

·:+479
44:=:~~1

I ~·~OF.:C:T

~:::5:1..:1.

INIT
I t-JPT

45:1.4

~:1t:;74

·::1·::1.67

4::l.. t~15

I r·JSE::i.. IF

04~::t6

I r',ISTDF'
I r·t::: TF;;: Ci

F'hClE

_ •• _.". _ _ _ ..... ~ • • _~ •• _ _ ~

:::::3:;~~0

0745
1708

I t'J':::F'T~7~
I NST

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

~::::::3.4

?::::::l.'?

?J:::l.. O

-

1?'1;?23

3: 5 ft::::

0683

0685

4543

·::1·54~i

3080
3467
3869
7::890
3996

3183
347:1.
38?0
3903
3997

3:(1:;:::2
7::2:1?

::::::t.::~::l

::~::l4'~;:

3:::l..4~:;

::::::152

:::::::1.53:

3229

3240

J25?

3270

3276

';'::1 6 !::.
3403

~::C::1]:5

:?93:::::
(::1::1 '? 4

Tt-.lSTI.·J[:o

27·:.1·4

3:~::t8:.L

••:.

-::"-:"::I--:~

:::::·::j·(39

I NS'·/F1L.

0'::1-I:~12

1~!97':::~

1::~9:::1:::1

::I..1~1Izr::::

j

,?:l:l

l·::f·.:~:.?

~:::~?:::':./..

:::::::4""1

3:::::4?

:::.:=:;::::6

?946

f1~~:~::t '('

:::::3:0;?
4ftr.::i?

~:'1~;~5E:

·:1·2~3~3

1214:1..7

4:1.:::::':;;

~7:11?16:l

;?;?44
4::1..79
IOF'LJJN

f1t:;::"·:!.

(:~';9:?

:::::1~1':L :1

3:('1':1..::::

:c. ~:='i '::;, ::1.

"JJ52
:'::,9:1. ::::1

4191

4192

4525

452?

4529

4521

':":::',:>4
4516

·::I·;?~::-:::

4;;:'·::.·:{·

4.:;::·:·j·'::1

,:·j?,::::·:·I·

4~~.!=;j.:.i

., :' ~'::i ::~

·I~.

r::::t

42;::;!:::j
':1·::'/4

4;:::;::;;1'"

4~::24

4.;-::7::;:::-

4:?t-;:::::

4;;:::='::·::·
,;j.":.i ':~.
,':1·,::1· '.I .•:':,

..:I. :~. ,;:::::'

.::!-':: •.~ 6

·::f.:::~4·;:"

·'1· :::;.•::.::;::

:.17:::::1..

Of I"iF:::

:-:::44:;:::

;::"'" '!.1
4,::!:::1

·:'1·4:1::1.
4.: 1 -:1 (.
.:.j..:I,:::::::=:

·::1..::1'1.::::
.:j.'.'.J::::
·::/··,·'·;::'4

-:1 ,.j :1.·::1·

'14::1..'::';

':!"':i-, . ::(i1

':·I·,:j<~:::l.

44:::.::::

·,:1· ·l4,;:1

.:{. 4 .,,f. ::1.

,.'..:.'.0::1,:;

.::/.O::i .•::'.?

4 .:.j. ~51::)

?:1.?'::1

,.;i.·':I·~:;.:·:'

.:14::::i:~

·J4~:::j·,·j·

44,::;i::1

44C::i.

4,':I.~~:.?

44~:::::'

44';:::j

4",," ?>

,:I··'l·? .:::

4· ·'1· 4 9
,:r·::/ ;":j;:::;
·::j··:i·"::,·+
,:{.•:.j..? "1

4480

4481.

4482

4483

447 0

*~j8

4::';./:::',

4·::1·'::'::,

44.?:?
44::':?

ii-!F rl",i

,

I :LI·:::.!.

(i~:;::::3:

·::I·;?I:~?

:1..7::::;:;-

r;,;i:Ti::'''::

·::/·2·,:j::l.

4":' (:j4

4::1.9':;'
J.'?:1...,:j.

44:t I::!
,::!·4J.f=:

4:1..:::::3:
·::1·21;:14
"'E?J
1~.1 r::; :;::; :1

42~;;::I..

4:?11

Ti"'PTF:"!
TI":P'T'P:?
Ti'~F' 'IT::.::'

.... 1 I

42:::;;::::
T ()I·lI-:·'~;
n'IF':1
Ti·jp.?

?:t ?::L

~:•.

3::.1:::;'·:/

3407

,::i·"'I··::I·"I·

·::/·44.:::'

4··: ~':"!::;
44i~''':i
.~. "f

? ~',

:'I'::":! .!
i

';:,,:::::.1.

··')··j···i'.i.

.

,

4

M·

**

_

1'1

t

'

F'nGE

OJ

1·11..f3
f'lLEW'··;

'YfL.E::!"',
I"'fl

i::~~:::'

'1. ~~;....I:::; 7::

0::::,"1-6
i?i (I f: 4

4162

.::1· ~::, ;;;: ~:i

:.l.~"i?(;:1

21.95
1507

1510

1 51?:

41~J::::I:::::

4 t?1 ';::1:;;;:
:1.6:3.';:;:

:1..6·::1·:1

0676
2615

0737
2848

0755
2977

0886
?253

1090
3258

1747
3297

1846
3348

1847
3367

0722
3237

2971
3237

2972

2973

2974

2975

2979

3G07

0701
lOS?

09'[9
1052

09J9
J31.2

0948
131:

8948
3?:43

0960
3343

0960
3773

1005

:1625
0673
2605
;~~ ~7.I t-:: ~~;

? ';:;1 f; ~-:~

;?4C,::j

;?91~~:?

T

l·lCt'·,.'Fti.
!'!f·r.,.'ri···JI:'::

l-:/11,,((",

C..

1.7~:)::::

J" ':':;1:::; ,:>

1:::170,:;:
:1'1""i6
:L ::1'::;'('

1J.. O::',l

:t:l.~::;9

1780
0796
2052
0935
1115

:t785
079C
2054
0916
1316

44:19
:1080
2:158
8937
:1747

~::i

;?::L C CI
0 I;:! ,::f. 9

!'·.II,!',:'I.

ri6;::::4

i'!:-:!

.::::1;:::J

i'·r·';'''!''L~'

'1 ::::0::::1
1 ;::;0:::::

442:.1
1297
22('t9
:1228

,::j

1:::1 :~I'? ;::::

,>"! :::::(1'::'
:t~::;

IJ796
:1:1'::1·(:1

l:?O':::;
1,::::4(;
.-j "::.

~:,

. !.,'

I

I

.' 'j ·1

,j"

,.::.
,

"';.
07 '1 ,::,'

'-::'
I) "::'
-;::'
I

O:~: r:'iO

0:::: Cf :
:1 :1. H:::!

,9
1 J ,::1· ?
(:1

::! ::?(:
'1 ;;:: ~ i:::1 .-::";'

I

::1. :1. :~::: I;;::
:1 ;?;;:: ...':'
.1 ~: ::::i ::::

'.:~

:J

1:::' .'::' :.I

:1 :::(11]

~~~~

(:j::::: ~:j4
oJ ::1.. 9;;:::

..;,
:1 4 Ij
i •.. f:'1J
{:~

'_,f

::i.
:1 :1. J 9

::f ;~~'::I·;:>
::i.. ~~: t:;; "::'

,.'

";:1

~:;::

~::~j

0

(I ~::I .'::'

,::::

1:::'9 ';:' ;::::
1. .;:: ,::j .:

I

::I I:,:: c! :.I..
oJ ,;::, ,::!.

J

.•..

64

.. ~ •

I

::::1

i

"

J ;;? •. j. ,::1
J " I~; ;;';i.
"

!

'1. "r·<.:!

'J ':.;:=t .::,

I

"j .. ') ,:~,

, -;"'1

11,'

44?0
1080
2285
:1224
:1747

:.1 .. ·::/·1212

t·::/·;::'!,,:;
O'~:J" 7
03:1..1::::
:t?CI]

O?;::!?
CI :~-:. /' I'::
·1.;?C14
:1;::;'44
1'::6"";

"'"

2:176
2250

,::i ·:1·::1. :::::

[I')(:'I':~

i··,I!,I::::;',,'I·j

!'i'j'HfiF'
!')':;'" r::, T

2:1..?2
2249

1::"(;'::::

OJ J

['·01 I.,j ':, 'r'I"I 2
f·,n, I'.,' I::n..

2106
2246

.,,!

-I. i'~: ::':;
i::i '::~! ;::~ ::::;

~:?

o

.. :,,' !

~

.x, ",-

1.._ $ ".

# ,,;:.i4.. 14

aW44P

.

·k

"H±e'

b

tt?!ttMfft/o·IIW '*!t!o'·· .. n'''' ..

948925-9901**

0
\

N>::TI,II:>
'4,"1 11".

-,,' ,»., ':':'.-"" . '

1::1::L6::=':
1::=j'169

30::::1

3]87

3349

3354

3409

3477

1:t04
0718
1262
3870
3888
3917
4043
0411
3796

0718
2207
3871
3889
3919
4044
070::::
3800

1:1..04
2207
3872
3890
3931
4045
1110
3897

1104
2225
3873
3896
3932
4046
1131
3917

1121
2225
3875
3907
3934

1121
3855
3880
3910
4043

1150
3860
3883
3914
4043

1150
3863
3885
3915

1262
3868
3887
3916

1171
3932

1268
3934

1593

2159

2210

N::';I.,JI...C
OE:JE:IJF

:1..",,;0;.::::

OF.:,JPT

(:'1::::;::1.:::::

OE:JF'T;?

~7.12~)~1

C)E:JPCC'

(E6.:.j.

OF:l':::TF'

:1. ''::I9;?

OCHF'

2:::::1:::;:

2::::(:'4

;:::":::;:12

(,11)[',

4~LL9

,::!Oel(i

4t?11~'4

OC,O
()/ . ":?

4:'.~5~:;

4:1';:":?

07::1.. ::::1:? t'=: 2

2424

2496

2636

2929

2929

0890
4528

~~~~

2339

2340

3082

3082

2473
2526

2480

24::::0

2489

24::=':9

1104
3775

1121
3840

Cleo',IT
OF'('CIDF

0,::11":';

CiPFhl
C)F'FP;:':;

4~::::::::t

0837
0692

0837
0694

0890
4526

3309
4234

3314

3319

0343

1?1:'L~":;9

c!r'::'F;:'::T

OPNCCiD

....
2473
2524
.' ..:....
' ..;.- '.~I
,::.....

2425
2497

2457
2584

2457
2524

2 ':;::;? 6

0:::;:29
44,::::'::\4,:12,,)
44;::::1~;

()eTi.~:r',,[,

(14.:1?
06'1.'1

,? :~:: ~:~::I.

C'! F:··r I.,-! F' F:

~:~:

(1 :::;:.:+ ~'"i

f)~';;'I,./F'

":':1::1:;0:::::

r!i~:'i'.I;:::'··:'

:::~

j···IF-idF·(',

OJ

Cl,':)

I. ::}!.(i

eIF'TF:i..

el '7 2

1::1 ::' .i

'"i:::::

4,'!-27

23:?9
1088
3073
0826

1093
3247
0826

3076
3396
2334

3399

070S

0719

0740

1138

1457

3848

3984

':1· ::'It.. 1.

,j ki ,,:;- 4

0701
iJ.50

0718
1262

8919
13J2

0948
2207

0960
2225

1005
3343

1052
3773

2336

; :~':~il,:'i
":~:

::::!.::,.'?

:", ::. ,.,i ~~

"::!.i?!(i::::;
,.,;. ,T !':

1.:1<::1;:::,"

o
44€I#,IM4P,

¢

.4

;

,w_

t,?

~

i

#A

up.

" __ . __ .1111]

**

948925~9901

o

!)i.JTNI.'~

:1"'!·,:·1·2

::1.. 441::1

Ol..!Ti'·Jj.,.I?
()I.JT(!
Of.! T C)E:
O!.i 'r CI E: .J
f) !...i or F:: C: j)

1,!29

:i.:3:6?
::::::::'::I·;?

:::.:;;::41

()!IT~:;

0:1..::;::0

01...1 T::::; IT'H

':::::::::4~:'

::::'{'?4

:Hll?

:3: ::::~ ~'5 ?

(I"',' F:

:;::flt:;:j.::f
::::: :;;:: -;::' 4
'f ::1.. f.: ~:~

F'i~Cl~·.II..!i'·1

121::::7:.1.

PC

CIO.'::i?

CI I,,.. H L.

2159

2:185

:?;2::tf1
::1..:1..0::::

;?~?~?5

;::'C',.·IL.
F'[:,j:;:'c.:::c,
F'!)PFC:iF
F' [:0 f;:' ::~ Ci

t·,

2190

2193

2196

2200

2204

2207

t193:;'::

~:::194t1

1:13:6

t1953:
133(j

(~'?2'::f

~~1?;?!::i

074 ?

0:::::~:1?

~::1:::;:4:::::

09:::::2
:/.,:Ifl:l
?: ;;:: ~~ :::;:
1 64:?

i]::'~94

::l.O~~I::L

1~:'112

:1..4,'3.6
~f: ~:~ :::' :3'

14::~:?

:1..::1·48

09:24
Hj57
J..449

1.:1·5:5

:1..3:18
1846

3.;:~:9:::::

~~:3:4::::

::::::3:48

]:~~:t:'7'

3:3:6';::'

t?l9~~i4

()O::)E:::i..

(:j9::::::1

:ll~1ti(:~

:1 (~:1..:1.

J.. 3:4:1

:143:!::j

J:;;;:::;:::::

1.437

260?

2611

::::202

3463

J~/::i?

:?2":i:l

;?:~>f6

:::::~;U...?

3:0:1.9

'+53~::1

1026

1099

:126:1

1288

::l.441

(~I () :::: ::~

:1.63:::::'

?::::.t::S

1719,::1·2
::::::::.::j.,,:)

06,:?:::;:

2:186

1]969

::1..::::::::::::'
F'C:j'·,IT
P (': F:' r,: 1...1

'.1..:::. ?:~:,
:::.:::::40:::i

:1846

.:~: ::~:::~i:~;1

'1:1.4;;::

4o:::i?4

4(:2:::
'l'5 e:i

,::/",:;.31::;

F'I:3[:Cl
F~' c)

c: r' JT

POHC'
PCiHDF;:'
i=',':,P

":I·:le!;?

:J;:?;::;::::

:1476

4(16';::'

074?
:::6:1 9

0843

0969

0994

~~I;?4'J

01- :1 ~~i ::::

4 ::L :3 (1

4:1,:.:"9

4J.;?~::;

4153

4154

C'; :~:.::.~:i;;F
F'F'C'

F:' I:::' C: ~:: (:i
Ff;:'F::F'

1;:.':::,,:::/ p:::'
~::-F;:'C

F;;'

F:i:~':::;'!'·.IT

411.1::;

··].1 ::: '1

CI·:·f.f:.ir.::;

4121

4144

"II ~::;2
4:-:::5::::

.j, :L::::L

,:,j. :1..:'? :::::

,'oj, ':'. '?'?

4.? /6

J;:::I,:l':":

!j:::' ~:; ,i

:1.1:::; 7 ::::

:?

~~I ~.:~i ,:.!. :':=,

I?I ~~;I :~::; ::~:i

(~ ::~.j t:~

'" :1 ~::i I;)

,:1::' ,,:i:1

I.::::!:~::

.1.::: :i:'

i.'.j.,:

Ji.) ..

,::,.":::).,.::'

!':,,'/.::,
•.j. ~';':.'

::1. (19 ,:.j.

:1.:1.5::::

::I.::l.t:;,:::·

:;::, (; :~:; ,?

':!. :::~I .? :~i:

4 ::i :::~. '?'

..:'.1::;.":) ,..:'

,·1·:[

1:·i·.·::::~::i4

,":j. '?'?~::;

.:l~5;?'?·

075C

0984

::1.(1)

::;:i::::'

o
$

$4#

k

A 4M 4

. ",M'_~

f':'H'- ('lE:'
." . .

0145

948925·9901

**

PF:Pf"'ID

O ~:~:!I"Ur::.

40::::~?

4f19E;

4J3:5

4:.1,,19

F'r.?TF::l

4J.:~:'?

4:1..4;;:

P~?TC~::

4~~:49

43:46

F'I:;;:T~:::E',·I

4:::::6!5

4~~:IZt?

Pf?TNCF:
F'F:TF'CF:
F'f?TF'C6
F' r.;::
p
PPI,.Ij:;::T

4~~:::56

I r-;.

fiE)

r:::

F"T'L.CIC
F'"'!'·L.OC2
F'Tl (Ie?

41:5;~:

43:47
4:1..:1..3

i?t;?4~::
.::!-::I.. ,:j. 3

41.~:::9

4:1..30
414:::

~~: I:::; '?:J.

:s ~~; 7 ::::

4:1..46

4:1..47

:::'~E:~:if.;

J'::;6:1..

366J

::.t667

3668

3669

~;':;::::t4

:'::~6:::~~'5

369;;~

J,7~~12

3:759

3:76~~1

3:6'1£1
:;:.:7'79

3:6IS:~!

~~:669

:::::t..~~7:1..

:~:6'{,7

367:3

3:6::::1

3:6=::2

::~:·7~)1::f.

3: 7' !55

~~(?G4

"L>:;~~I
:~:'7!5?

":::/'t:;;?
~~:i3:1..6

.

F'TF::1

::::: '? ;;:::1..
F';:":Pr:ISt'l
01"
(lTCL.':::;
C'UClTF
P,:I?I
pi
r,:'l.O

4:1..38

t~6?~)

42~?15

,'l4::;::,':j.
l?I i?! 9 0::1·
:JS1::;::

:lJ'I:l;'''i
:1.:::::2(1

J.J9~",

:1::::;?6
4 ,::j.:1.. 4

27?J

2732

27J?

2734

;;;::?'?::!.

;?~:":~4

,::I·::i.::i,,'::/-

4:1.;'~,?

'::J.::I.,:l::~

'::I·;~?:~::::::

I::~;?:?:::::

.::~;?B~:~

f~~;?6?
;;~1:?711S

4J ~::~ ..:}
.::~ ;? :::: ~:~I

<~·J;~26

4:127'

41.4<+

41.4~5

4:3:6:3:

43:6:3:

1:~.:::"j~:iJ.

·,i·~5!::;~;::

42;:::::::::

f:~. ~~~ ~:::

9

,:·~;;::9~j

,:.~ ;;:: :~) ~:;

4~~i51::~

~:'i~7:~7·?

;? 6 1::'1::::

;::::9:1~:;

296":1

:~::::;4"1

12t~~~7E::

4~~~3:7

,:~. ~~:~ 3: !:::

t::f·~~~?:::::!

,::J.;2=:~:9

4;?4fl

.:.l1:la,:::1

'::1·3:~::r:t.

':+?:6;;:~

4::~:6:::::

'::1·~:~;4

.::f.~?::::7

4 ;::~:~::~:

4:~::6,::'

R:1..:~:

~:t;~:?~:;.

FdA

l~i2::::I~i

F.'J ':'5

~?I;?::::::1.

P;?
P."':

1~(26::;::

~"'l

0;:::- '?~?I
i?i:?"?:L

~:':':;

f•'" t;,.-

1?1;::~69

1"='1::;::(":::::
!j;?-;:"'::':

,::'127,::1·

"'·1::1 :::::

4::L;;;'!:~

4:1.2:?

,4::1..;;::,·,·

,;1· :1 =:~: 6

4:1..~i:::=':

41,'+0

4:1.0:;1,1,

4!:,iJ :7.i

'::~51~~~3

,:j ~~i;?:1..

4~;i,?,?

t~·5t:~r=~

.::j.!:i.::/.9

4~:i!:,i~~

"1.('1::::9

,./.j ::::9
4 ~~i ":;;,:::;
:::::(1.::1.::1
121~

?227

3269

3274

?486

3509

3513

4156

4179

,q.:l.::i. '?
4:14?
4 5 ~-::; ,::1
F'r;
F'f=tF'T

"<52'?
IJJ.:::::I::.i

1:;::':--1)'1

~:1;?':::;n

~i97
,1·1 li11'.~

,'/.:1.93

F'f"T:.rr..rr

,::!.I::'16;::::
~7:I'7:" ::~ :::::

~~??

1549

,:J.. ! ;"::,,:~:

,:i:.i

F' '". I"d'·,P. !f'l
Fr."'

'::!·i.::::;·!

,:1.'1. :~::':l

(;:-:'.:'j.'?

8748

? ~'t

1559
4 :l "? : 1

0748

4117

4;:;'·1.?

o
.. w

. p

$

.tJtU4¢.$

AW.

.%

$::m*:'!

d

Hi'

t""t

MM

>

:1.9:=:.···'76
OSCAN

SCBL.K

1.7137
4214

SCCODE

13~385

SCHK

::;::1.H3

SCBCi

SC:NR
SCNT
SC:I'H2
SCPT

SCPTPT

sc~·JP

:1028

3:1.f.18

352,::

1623
21.26

1.6::;::4

1.572

1724
2191
13748
1.76:1.
2741.
2785
443:1
25:1.5
3J25
0745
1372
2741.
3140
3226

::::~493

:1.739
21.98
1.368
18134
3493

2799

28~37

3J27
0748
1.470
3123
3:1.97
3273

3532
0826
1701
3493

4544
8768
1.1.44

0769
1147

13775
1.1513

:1. ~::13: :;::

3:5 4 ~:i

~3:t1.6

~31398

131.413
;;:~5:t7

13178
165€1

:::;:26..~
3:753
4547

SHLO

~32;~:~;t

SINF;:.::

~?'675

·,·,·SI;:'::TN
.. S~4A'··1

f.14:t6
fZtf.155

13f~159

1.734
2194
13748
1796

:1.1373

:1.1.14

1.238

1.2913

1.361.

1.739
22131.
1.368
1838

:1.741
22134
1.372
24513

1.743

1744

1.745

13:72

1.470
2523

14713
2523

1738
2741.

3533
1236
2450
3541.

3535
1240
25135

3538
1.255
2~11

3541.
1359
2512

3543
1.363
2523

3545
1368
2627

13778
11.71
4827

8783
1350

1.1113
1.354

1.132
1.375

11.38
1375

1139

1.1393:

:1:1.. :1::::

11.:.1..9
2E:;2~'
07;;'~~~~

SF'

~313:~:1

255::=;

~~:55.:1·

.:........1.,••1,

'-;.t=a=7

261~'?t

SPTF.:

0(157

137~3S

137:1.~3

~:r711

~3?1;2

13730
1083
1.1.84

0731
1684
1.185

0802
1.1.21
12135

0884
1122
1228

121766
4625

0849

103121

1675

111.6

€167;~:

fll713
2494

:24 74

~::4:=::1.

2112

2:1.12

3695

3708

37:1.9

8796
1:1.30
1963
2612

08132
J184
2011
2928

::::n::

2f.1Jfl

S 1...1 8
5 '.,.'FI L.

**

25136

2450

3285

:1.12192
14!54
;;::6:11
87:1.4
0808
1125
1.230

SRC
:3RCS'T't'1
STAF.:T
STEP

948925 .. 9901

0147

1.635

~3~373

SER
SEF.:RG
SETOUT
SETPF.:
':::FLACiS

C

~:1E:24

25:;::7

13:113:1

SCOT
SC:OT:2
SCVAL

13764

PAGE

rZt8~36

~381Zt7

~:194~~1

1;2~:17

:t2~:i:=:

:1.3:39

:1.,455
261.;;:~

261.3:

~3715

~3?2:1

0952
1.1.26
1299

0953
1.1.45
131211.

1037
1.1.48

1.039
1.183

1292

2529

311.6

3536

8851
:1.203
21399
3112

0936
:1.297
2151
3120

0956
1299
2534
3405

1037
1336
2547
3532

3:3~~12

r:::13::::'~9

45:1.8
::::: '•..' t·J

1212::l.J

S'T"''''

~::1::L42

S I·r ' r", r: F: (J

('j'T""'ICHk:

?:ti::=t::!

4~:51. 7

45;;;::::1.
45:1.. 9

;;~:79:;::

;;:::;:::1.:1.

(1827

J..7:1.~j

1746

0637
J..080
1452
2553

121768

0793
:1.118
1950
2610

~083

1745
2606

211210

2!2t·::j.7

.I., L4¥

$

,

.

. t.

::.:: F.: E F:7 9 (I

:1.. S'::;:.o.·1 76

'...':l L.. 1

PAGE

0148

948925-9901

**

:1.1..0:~:
<~::1..::;::6
rl:1.:1;;-~

~::1637

~3t~:3:7

2~::145

d:~::15!=:

261121
SYMNO
SYMNPT
SYMPTR

0109
0063
0:1.08

2028
0806
0802
1~:!:1::::]:

1.942
21.24
SYMTAB
SYMTBE
SYNRFX
SYNTX2
TAB
TABCHR
TABS
TCHR

2750
0295
0834
1044
1344
0292
0:1.43
3563
0167

TEMP
TH1P;?
TEMPIN

0194
0;::::(14
0173

S~~TX

TE:]'1PRG
TEN:;
····TERt.1
/THOLD
TITF::·:;
TITF;:-:;;2
TITLE
T IT'F'T
TITf)
TTT02
T' I T(:I:3:
TF'AC)F
T(lC
'rOljOT

C

TFi'EPF'

f124::;::

~~:244

~~G69

:1.2;;~4

:l;~:25

:1..269
f17:1 ~?

~:'1:1_8:::'

~i:59:1..

12:3:'('

:1..248
1:;::45
:l::?41

19!=:~:1

21.23

1981
2124

1982

2~363:

1.f192

12~:!:17

13:38

(19::~6

~;;950

~3950

1.454
1.037

1299

1.299

220~3

2031
2216

2044
2217

1€183
1.452

35f3'?

2(11::::

2t125

:':::157

2164

2217

2553

2£154
2553:

1037
1.452
2105
261.2

275~~1

4551.

454~:1

:1.469
;;:::.1.. 57
4549

1f174
:1..3:5:;::

:10:=:7
:1.40(3

:t1.8~:!:1

1345

4:1.47
3:1..96

3:2~~5

3:27~;~

3:457

3: 479

3A8~L

:'::;4·::::3:

3:7~l:::

3719

:3:7~7:~~3

3:7;~~~~::

3:7;~:~3:

3:72:5

3:7;;::6

3::1.84
3:464
4:1..26

3::1-:;:::;

~l::23:7

3:;~~3:::::

:~:;;~3:9

3:24(1

3344

3:46E:
,:+15:3:

::NE:7
4:1..54

4:1.8'~~

.:.~1:::2

4'1.::::~~:

3::3:3::;'

334~:::1

334;~:

2659
3175
3 7 ,~~ ~:i
:1.392

2677
3255
:~:';::O 4 4
14:1.7

2680
3724
1422

3132

3146

3:1.60

13:36

21:17

2612

454~:1

1

:D5~':'~

356:1..

1::':'51

~~11(1;?

:1. :::: ]: 3:
:3:;:",::j.::::

:1.661.

;:~:651

2648
0974

T F:: 1"4
TPt',!E>:;
n:;:: i.II'·W:

:1'::'7'::._0 1 _

1.::r3:6
2f145

1:1.84
1956
:::::125
t1:;:~::=t5

1~1175

1254
f1::::7f1

~::1:::~32

2:1.. f15

~)<~:9~1

:1.25:~.

2~:!:159

0952
093:6
1184
1.9:::£1

2018
0723
34:1..3
0930
1235
4:1.18
2788
4138
3:1.39
]:5:1.5
3717

4115
0::;::4(1
':36::::5

~336f1

2~::(~:3:
~:19:3:9

~3;;::94

3183

1..971
2(162
2610

::~:742
26f.~0

2 T?:. ~:)

']"[.10

;?::::6:::~:

;::;?::: ::;::

T:·:TFr·~f)

1:::::::::5

:1.383

1~'T'?2

:'; :::: ~i I::'

T'T'F'!J
T',·'F'L
f'T'F':?

:?::J::::?
3:1..::::6

3117
:::092

'('T'F"?

:::::170
:?L9:?

:~:U9'::I·

3:1.78

.:~: (i ::~ ::3:

:? I~i ~:~! ~i

'::;?(1;:"
:~~; I;) Si I:~:

0····. "

-::::~::I::::,?

"}

.

M,.##.,

4- ,.,

_,oj.,"

;;;;:;;;:;;;;7.4444. ,At. ,&:;41-4.· ,hP

4#¢

___ .4.4

PHGE

c·.•. '

T'/F';:"

·~:·:,.:fl:>:::
1

948925-9901

0149

**

'?:?'-;:,I
':';'::'0:1

":::099

T .,. ,:::1

::::::?6:='::

::::::1.01:)

'T"T'P[:
·'!"'r'F·I.'::

.?t 6.;,,:/

::::.1('1::::

:~::JJ'I'?

r\'r::'E~:

(~(I I;;;: ,~:

:::::103:
103:8

1039

::1. 4 ::~: 4

:.1.. ,';1· .:1- '.~:

1080

1081

1082

1084

1185

1186

1197

2600

2600

3120

1053

::~:eI2:?

ijNC'i... f)(

U i"J [, L. F'
Ij/'-.IC'i'i':::CI

O::::;?::I..
,:? ;? "" !:i
CI?:l!j

iWH',':::I'1
iJr·.! Ii' i '::: e:i
',,.'ri!.. CHI··

,;>.>I.;J..

'/HI... C::kP
',i ~:II ... CI F'
'/ fi L. 1,,1 F' :?
"/i:::;l., <)1 rr

":'''''i,,!.(I

',"; '::11.. '::: '.,.'
'. f:H .. !.. IF

('1':' ;:.:; CI

:~:O:l'?

22·'+:~:

?t:'i:l:l
4,;:16:1..
::::fl:l:;;::

,,+,,·/·6:::>:

.:.1-463

J.I::; ,:::: !';;:.I.. (:??

1130
3405

t. t::: 4 :.1.
1972
3405

2112
3538

2547
3538

2547

0970

i0~:1

it77

1324

1398

-:''':'i·I;::;

? t=::: ~::;
,::'I:::'? :::;
~:::::~;:::_:il:::j
!:~I (I ::::; :.:;.

i] J

J. ,':1·

L138
3120
:':'/,:'::1

"/ j': i< F'

::':L ,;::: ,,:/
":" J .? :::.

'·/1
',·'Cit·:·

"'::::60
"c.·I.. ::CI

::::l.,?:::::

h!.+

l. 1::j·CI!::::

0927

\,' f. t:'

::::1.1"1')

;:1.-::' ~'j ,::'
ide/Fr,.>

C:':.:~;··'·-.:·:::::.:F'
:.Ii:::' Trl':"

':-:;C:F:;::

/::1:":;:;:
,::','::;:,,:1·1::;:

::'::-:::',::;
'I;:: j"

ID2~"i!:';

1'::,;:'1-'

.-1-:::.1;:1

"·i· :1. '::'1:':;
4:,:::';::
":':.,:i:3..4

L. 1. I:::: :::;

-:1 :l. ",I Jj

J . .L ~":;:::.':' <;' ,;: ()
·:;."I·J.:?

:<(~~t !:::: F: r::i
~

1"·:1 r~,< (';;

:. I

'::.:'::.'::;'::::;
,I '''i~~ :~::

,1·''';4::

~~:;'?

:J -:I.. ;;;:: 1:::

,,::~. ::::: ;:::; ::::.

0738

0740

0827

0933

1013

I L ':i :::,

J.L 6,:.j.

0922
J. :1 ? ;:::

0928

I i !!l'i

I oj

(" 1"1

L? :::: ~j

.13 t 3

070~i~.~

lJ.38

4010

4021

4022

:)

1. :::;? ~',

t062

:i.. ::::::.?

CiJ····

I. :?:'::'
'1.'., ...:

:i .:O'.?
'l:"
07~9

o
.La

4 .. ij44AL.$,·

_Mk¥4;;;;;::;aA# ..

;#....@3¢.4_$-·,~

. Nt

h

tnt 't

+

At
APPLICATION
NEXT "'55"

L:"'

USEOON

REVISIONS

a..c""'1ON

"~ED

DATE

7506

.

NOTE:SOURCEAND OBJECT ON
DISC IN SDP 948931.

,

,

-

...

~

"

REV
SHEET

1A

REV STATUS
OF SHEETS

REV
SHEET

UNLfSS OT .. f _ , . f S'"fCI~IIlD
DI"fN.,ONS ... ltf IN INCMIl.
TOLflt ... NCf.
AHGLfS ~ I'
I ,"LACE DECI .. Al ~ 010
:I "LACIl Of:CI ..... l:!: 02
IDfNTll'YlNO NU . . . . _
... OWN '" ...... f .. THf.fS
~O" Itf~llltf"Cf ONLY
INTflt .. ltfT owa IN
ACCOItDA .. Cf WITH
MIL .TD 100

o

0"'''0 TI1RNFR

I"cn","O,,"T£D

EfIII ......' G....

D6/. .,

r....

E_I~\,,,,,

I"..:t;, IIi. q ,"lY\.O...-~ '3 ~f

A~.~~#/
.....
.

,~

CONTR

-~,,~-

~"

0-'"

[(o{ at

AL, PXRLAL, LINKING LOADER-PXR990

-;/11/ 7 1

..a

OI:SIGN ACTIVIT" RELE"'S(

"I-' •• I·C

~

~ TEXAS INSTRUMENTS

1-'\- t7ATE

C·....

I'(,Ar-'(\.,:&

3'- 14-71

SIZE

COClE IOENT NO

A

96214
I REV

SCALE

+

D't"W!NG NO

948926-9901
5MEET

.4.

-'

1 of 47

vu .. _

2-

40.... _X¥_ .

t neH&

P::-.:RLAL
DATA-SASE

SDSMAC 947075 *8

*
*

0~G0

0'.:.'131.
0032
0033

*
*

121034

*

003:5

:+<
:+<
:+:
:+:
:+:
:+<

0€.136
~3'':;3:?

1C:11C:138
1ZI~339

01Z14~3

TIl"LE:

t-10[) I F I ED TO RUN WITH PXRMTR
COMPUTER: 990. 990 ASSEt-1BL Y
ABSTRACT: THIS DATA BASE CONTAINS ALL WORKSPACE
REGISTER EQUATES. ERROR MESSAGES. AND
MISCELLANEOUS DATA
CALLING SEQUENCE: NON-CALLABLE
IDT

01C:14:~:

REF
REF
DEF
DEF
DEF

~Zt'.:.'I4 ?
12104::::
~3~~149

:+:
:+:
:+<

€.H351.
01Z1~i;;-~
~J053

~.30~::1€i

~3~354

0k'101.

~.::t055

~~i002

~ji!.'t56

01!.'t~33

f1t1~i?

fl1C:1t14

'.::t1;:,}58

00'~'t5

f:t~359

0t1~~16

';:Hj6~::t
~::.'t1Zl62

00ti"?
1211211218
121£11219

~'t063

1Z10~3A

1~'t£i64

'.?t0~3C

o

EC!U
EOU
ESTPT EOU
SYt1P
EG!U
ENTPT EQU
ENTVAL. EG!U
PRNTN EI;~U
SPTR
EG!U
E@J
TPPT
uI'mPT EOU
IOPARt1 EQU
SFLAGS EOU

i!.'t

1.

:+:

*
~::n:~n30

~~H369

'.301211.

~~I'~1?O

O£1~~i;;;:~

MAINl.olP REGISTERS

TEt'1P

01:':.166
~:~~36:3

DS~'lP

*INPT
TGFLD
BIAS

knj·?l.

£U~U~f3:

NE~·lLOC

k:II2I?:;~

'.::n:::n34

0E'I-;:":3:
m..1~;"4

~30'.35
~~£106

';:H)7"j

01307'

f.11~r?6

~7.1'j'J8

LOCPT
SVPT
HLI)
FLG'·lL
Pf:

('t';:1'?~"

l..DPT

~:~(17E;

'~Ku3C
J;:'10U[)

~j~?t7'3

~H:"HJE

~:IOS'~~

1;:"t~~I;:;F

INSID
TDAT

I t·4CP

(1~:'l~-:H.

:t:

k'~:~::::2

:t:

ek~:~::::\:

;+:

~j~::t84

0~.?tt1~::'

m:~::::~j

t::.'t~3t11.

~~O:36

t1~~'te~~~

UO:;::?

~:'1k't'j3:

m)::;:::::;:

~:1'"::tE14

ERROR.USRPC.INIT.LDBUF.GETHEX.PRCRLF.SVCALT
SVCWP .. SVCSR
BEGLAL
EN[)LAL
LALCSR

F.~Df;,~BF

'~'t~::'165
~::.'t067

"PXRLAL "

EXTERNAL REFS AND DEFS

1C:1~.:.'I46

~~u35IC:i

DATES
DATA BASE
1213/1.5/76

:+<
:+<
:+<

01C:144
1C:1t145

:.'

PAGE 012102

REVISION: 05/01./74
ORIGINAL

0~~14::J.

IZIIC:142

m:"161.

SATURDAY. DEC 1.1.. 1.9?6.

**

0~.:.'I29

o

1.6:59:48

f;,:[:o
FST
PTF.:
N:::;r'1E:LF'
:::Nt'1E:

F.~EG

EOU
EG!U
EG!U
EOU
EG!U
EG!U
EG!U
EOU
EG!U
EG!U
EOU
EG!U
EG!U
LN·JP

.")

""
3:
4
5
6
7
8
9
1.0
1.2

I STERS
~3

1.
2
3:
4
I:::'

'-'

6
7

:3

:12
1. -'
-::.
1.4
1.5
REGISTEf;,~S

EG!U

~~1

EG!I...I

1.
2
3:

EG!U
EC!U
EGlU

4

. $W.

. P 44 . . $ .

4-.

".. W4. , .. . " .

¢at

t-·'>::r-<:LHL
DAl;f1 BASE
~':H':;89

~:'1~Z19~:"l

t:':.H::r31.
~:1(:.'t92
€U)9::::~

SDSMAC 947075 *8

0005
0006
0007
000E:
OOOC

~~1~::t95
~:::u397

~:::100t:J

~J~:::198

~3~3~31.

t:Jt:i,99

~::m~32

('1H:::1~3

~3m:::G

t:J HJ 1.
t:;j1.t:32
[11.[13
('tHJ4

t:X104
~]I;:K't5

t:J~Z106
~:''1~:.'t07

~]::U~'15

[1H36
t:~1H.'17

Ci

['11. H)

€U3[H::t
m301.
t:'::U3 ['I 2

'31.1.1.
t:31.1.:'::::

~::UZ107

[11.:13:

~)~::H)8

t:'::11. 1. 4
01.1.5
t:311.6

[1t:':.'n~'t9

1;;.11.:17'

k'l~3t1E

tn:::1~Z(:~:

['1~ZK'IB
~Z1€1[1C:

n1.1.8
t:.::t1. 1. 9

C¥L
HVAL
F!:[)F!:L
CUt1PT
ENDOB
HE::'::P
F!:LF!:G
CSUt1

EQU
EQU
EQU
EQU
EQU

t:J1~~1.

Ot;;H':'1~3

~3::L:22

~?n3~~'t1.

'7
12

CMWP REGISTERS
EI)U
EG!U

0
1

Er.;~U

2

EG!U
EI)U
EG!U
EG!U
EG!U

3:
4

5
6
7

CONVWS REGISTERS

B I N'·... AL
'·"'ALS',,,'
r'1ADD
:;;::C:CODE
BHCCJDE
HEa::::CIDE
S'·... CAL1.
HUH
PC NT
CHUPC

EC!U
EG!U
EG!U
EC!U
EOU
EG!U
EG!U
EOU
EG!U
EOU

t:J 1. 23:
t:J1.24

(U3 f:l 2
[1t:'::H':G

~]1.;;;:5

t:J~~'It:J4

~:::t1.~'::6

0~:::1~:;5

tH.•:::7
('11.;;;::;;::

nt:Jn6
~~It;;~O'?

:::Nt'1PTF.:
:='Nt'1NO
FLAGS
S'T't'lNt'1
NS'r't'l
'·... ALUE
~:::;E'·... EN
STPTF!:

~~~

.

1.
~

.:::.

3:
7
::::
9
1.1.
:12
1.4

~::t1.29

00t:J:::

NI.·~:::;CT

SYMBOL REGISTERS

0
1.
2

~:'1.:3:0

~:::1~::1f:l9

TN

1~'I:131.

O~::t~)H

t:J:t3:;;::

k1['It:JC

t·t:.B 1 T
NINE

EG!U
EOU
EOU
EOU
EOU
EOI.J
EOU
EG!U
EOU
EClU
EC!U
EOU

~~1:1.:::;:4

:+:
:+:

I/O WORKSPACE EQUATES

~]1.:::::~i

:t:

01.~::6

1;;.'1t;;H.:m

01.:~:7

(:;('101

0:1.::;:::::
0:13:9

Ot:~'H]~~~:

01.4t:.:.'1

~:iJA3

(H:H:''f4
0005
(1006
O(:O?

~:n44

1:;~O~j::::

U14~j

(1t;:~()::3

':;1.4,,;;

['I~3~'.'IB

0:l42

U:l.4?
fHA:=.:

PAGE 0003

6

:+:
:+:
:+:

:+:
:+:

~;;:l ;;;:~:::1

01.,c1-:t

1.976.

:+:

k'l:t3~::

o

TMP
LOC
SRSM
NMMSG
HEXP2
:+:
:+:
:+:

k1~Z196

(1H~19

DEC 1.1.

*:+:

~.::n394

t11.t:'::1E:

1.6:59:48 SATURDAY.

~:H:H.:n:

RI)CUDP EOU
~·~F.:(:!J[)P EC!U
loe
EOU
IOPL.. Ut4 EOU
F LU ~~;
EC!U
BUFHI)f<: EClU
E:::UFLEN EOU
C:HPCNT EOU
LEN
EClU
~;"lC:Al_;;~ EGIU
f<:lN
EC!U

*

3:
4
0::....1

.::;
7

::::
:=::-

H::1
:t2

0
1.

;;::
..
4

-;.
..:.

~5

f.'
..'

7
::::
:7.1
:l.J.

COMMON REGISTER EGlUATES

¢ PUGA-.

k "'"

,$##20 ...4 •._$

.&?4#JAM4. -$

;,,-,

N

*
r'Af'o::LHL.

16:59:48 SATURDAY.
948926-9901

**

[)AlA .E:A::::E
~:'1:l49

i976.
PAGE 0£104

=+:

[1:1~i~J

0~~~::m

~~1:1~i:1

~::;00i

['Ii~i~~
~':.1:154

tHj('1;;:'=:
I;:H':1€f3:
m104

~':'1i59

('1009

F.:":'1
Ri
R2
R3
F.:4
R5
F.:6
R7
R8
R9

0i6~"3

0f:l~~1A

F.:1~3

~.:'ti6i

~J~~n~'1E:

~Ji6;;~

['t~':1~JC

EG!U
EG!U
EGlU
EGlU
EGlU
EG!U
EOU
EOU
EOU
EOU
EOU
EG!U
EOU
EOU
EG!U
EI~J.U

~:n,~i3:

DEC 11.

~:''1i55

01;:1~3~i

['Ii56

0~::106

~':'I1,57

0~~n~17
":'U::;~ZI!3

~Ji63:

~,;m~~1[)

~~'I:164

t1J;:'~':'IE

F.::11
Rl;;::
Ri3:
Ri4

Oi65

~XH'::1F

fU~5

~j:166

*
*=+:

~~:t6'?
~':'li6:::

['Ii69
I;U?'~:'t
~Ji7i

;;;::3:~':'13:

U1.'?2

23:~~'14

~j1'?::;:

23:~j5

~Ji"?4

23:~.3E;

ILSG!
ILC[)
t1SEN[)
LAEF.:
P F.: U'1
CKSr'1

~::1

1
2
3:
4
5
6
7
,:;.

'-'

9

H:t
11
12
1::::~

i4
i5

ER F.: OF:: C:ODES
EG!U
EG!U
EG!U
EI)U
EG!U
EG!U

:>231;:1:1
:>23 ..;:12
:::·23(13

ILLEGAL LOAD SEG!UENCE
ILLEGAL LOAD CODE
MISSING END STATEMENT
LOAD ADDRESS ERROR
PREVIOUS LOAD MODULE
CHECKSUI'1 EF.:F.:OF::

)23:~~14

)2305
>23~':'16

I'

o
4.%4

.$.

3#4.

Mat. JM

bU

~

w

• 1I'-·.t.-f

:::>L}:::.,'IHC

n ....

DA'TA. BASE

1;;.'11. ?t::

::
"31:=:6
13006"
e1.87
0007"
e1.88 ~:::rl::rr.:.18
2~3
~j1.89
2000
~.:.'t:l_ge
40 13 €I
t11.91. ~~~309
3A
e1.92 ~~€1eA
46
~11.93: '.:.'teeB
4C
131.94 ~~~3IZtC
45
~j1.95 eelZtD
54

:+:
:+:
:+:

L.FCR
LF
CR
BLANK
EOF
IOERF<~

COLON
F
LOAD
END
TERt1

~,:'I:l_96

:+:

e1.9~;:O

:+:
:+:

e1.98
'~1.99

ege0

132~31Zt

1Zt8~JIZt

DATA

RDCOD
WRCOD
:+:
:+:
:+:

~::j2€G

~~2e4
e;;-~115

12112113£

~~~::tel2l

k,'t2t:.::16

e~;)1.e

~~',:'I~36

t1;;~1217

';:'1~31.2

~:::rlZte7

e2~39

13 €I €Ie
e0Ae

~j2:11.

'~21.2
e2L~:
IJ;;:~1.!'.:i
~J::~:1.6

01Zt1.4
001.5
o 121:1 t::

20

t'l'~'1:1. ~-;.

2'~~

2~:::1

2~j

':j01.9

20

'~1f.11.A

;~r.:.'1

t'lO:lB
ee:1C

2121
20

~:.'t'':'1:1.D

2~3

~3r:.HE

m:;;;:€1

21::.1
2'.1
;2A

~.:.1~:1:?1.

:?r.:.'1

01::.11211::.1
IJ(,::?4 ',:'I '~:I~) '~'1
~:'~.:)22

o

READ ASCII
lo.lR I TE ASC II

DLDPT
DLDBI

LOG (KEYBOARD)
L.OG (PRINTER)
CS# (DEFAULT CASSETTE LUND)

DEFAULT LOAD VALUES
EQU
EQU

€I
>Ae

LOAD POINT
LOAD BIAS

DEFINITION MESSAGE
.......

DEFt'l

'

'T'

21::.1

0f~1.:=:

'.:.H~1:1.F

EG!U :>e90e
EQU >eBee
EVEN

KBLUNO DATA ~~
PRLUNO DATA 6
CTLUNO DATA 7

:+:
:+:
:+:

'~1:;:~:14

END OF FILE STATUS
UNRECO ..... ERABLE ERROR STATUS

PERIPHERAL DEVICE DEFAULT LOGICAL UNIT NUMBERS

:+:
:+:

'J21.0

LINE FEED,..-'CARRIAGE RETURN

MONITOR SUP ..... CALL CODES FOR 1,..-'0

';:''I21Zt:1 €I 0 €IE
~:.'t:2~:::12

[>ATA :>0AeD
EQU LFCR
EG'~U
LFCR+1.
BYTE :>20
EQU :>2000
EQU :>41Zt00
B'r'TE .......
BYTE "'F'"
BYTE "'L'"
BYTE "'E"
B',.'T£ "T"

t1k~;;:~6

~3~300

k:tI.:1;2:::

;;?I;':'1

k.H.3;;~9

:2'~1

DEFN

DATA

~:::1 .• ~:::1

TE~t.RL.AL.
DAlH BASE

SDSt1AC 94'?e75 *B
16: 59: 48 SATURDA'T' .•
948926-99121:1
**

8219 882A 888121

o

8(1;;~C

e8~lJ8

022121 l2Ie2E
12122:1
121222
121223

eD

~j~~2F

~~224

k~e3:4

55
4E
44
45
46
eA

~j~.:.G~i

~.3D

~.3~~13:6

2121

~':.H~1:::'~ I' .

;;~~:?t

k'l~~'13:8

2121
28

'303121
~je31

0~G2
~;}I;::G3

~.:.'t225

£1~j39

';:1 i!.G A ~~0~:?t~3

DEC 11..

:1976.
PAGE 1211211216

DATA 121.121

DEFL

BYTE >D
*
*
UNDEFINED SYMBOLS MESSAGE
*
UNDEF TEXT ~UNDEF~
UNDEFINED SYMBOL

BYTE :>A, >D
TE~"::T

UDS

.'

UDSN

~:.'Ie3C

0'.31218
';:'I'.:.'t:~~E £1121121121
ft228 884~~~
8A
8[)
';:'1841
~':''1229
~j23:';:j

~.:.'t231.

1;:,23:2 012142
012143
':'::1;;~:::;::.:.t '.:.'Il;:l44

20
4[)

'j235
~123:6

'j~145

~~4E

4C
4F
41.
44
2F
4 C._1'
4E
44
3F
2t1

t"~:.14F

1;;.'10

8(146
('1047
12112148
01!:149
~k'l4A

~.:.11::'4B

k1k14C
~;H:14[)

*
*
*'

MUL T I PLY DEF I NED S'T'MBOL MESSAGE

MULDF

TEXT' M'

*'
*'
*'

LOAD MESSAGE

LODMSG TEXT " LOAD/END'-;:- ..'

B',,'TE :>D

*'
~.:Jo::~"+~;'

:+:

~':'lO::::"+:.i..

*'

k1~!:I~.:.1

o

~J,:::~.:t

";J,::::I!.~f;:1

MULTIPLE DEFINED SYMBOL

e[)

~j234

(:123';:>

B',,'TE )OA .. )OD

2~'I

~.:.1~.:.1~i1.

2['1

~~!:i2

2'':'''

~::t~.:.1~._-:.:

~~~~'t

~.:.1~!:i4

~~~j

I;J~j!:")!:1

2('1

~.:.1~.:.1!:i6

(1l~'.:.'t~3

~::t".::I::f:::::

k'l0(u;'1

~:n.:.1!:IH

~':''1I~H~H~

U~.:.1~,I...:

;2I;:.I2~)

~:H.:.1::::.1:::.

t;:Kl~jk1

~;'~Jbk1

~.:.11)0~j

~:'k1br.~

'':~D

NAME MESSAGE

NAt'll'lSG

TE~<:T

..

.-

'

NAr'1E'

L...OCVAL DATA

~3.,

0

:+:

*'

ENTR.,.' t1ESSAGE

£4,

t."

LiX

. i. 4# P

it

f--re

1-' ;:.:; t-:~ L. A L.
DH I ~ BA~::;E

SDSMAC 94?075 *B
i6:59:48 SATURDAV.
948926-9901
**

~~1;;:::4:::

~.:.1;;:::49

C

:+:

(H:.16:3:

2~J

t1~J64

4~5

~~1~)6~i

4E
54

~:::1~~166
~J(16"{'

~52

'J~~16:=:

!:i9

~::t~369

2~;~

t106A
th:::16B

3:D
2'3

~:~2!,::i~3

~3~'::16C:

kl;;;~~:;:J_

~.::U~f?~J

~::'A

0~:::17i

~;.1[:O

i-~1;2~i;2
~:.1~-'::54
I;:j~:;:~~3:5

~::t~':'1·?:;'::

~jA

~j;;::56

~K'I?3:

::i4
._,
4"'"

~~1k't?4
~:::1~3Y::i

~i:;::

OI;;;?6

4[:0
2F
,4"-'
..::.
4F
4E

[1~~'1~::"?

~3':f?:=:
~~1~:r?9
~;.1~:'1·?A

C

~::H~r?B

~:i4

';) ~~1 ~::' C:
0''::1-;:'0
I;;K1"?E

3:F
;2121

~.:.1,::::bk~

~:.126i

~:::I~~1?F

1;:, A

I-.:.'.::::t,~-'::

kj~;:I:=a3

46
2F

~.:.Uj::::i

1:::1k.1:=:2

~50

kH:jR3:

2f1
4(:
4q

~:j~j::::4

~3J.::'1:=:~j

~i3:

!"54

~j ~~1 ::: ::::

:~:F

t:~~~;'1:::::~

20

U;263 Ok.1:::H

(:j[:o

:+:

e: ~i

:t:

Iil;?66

:t:

~J~::E';?

O~::~:=:B

~J:~6::::

~jkl:3C

tl:,,'':';,9

1210:::[:0

klA
4(:
44

O~):::E

;,::.::ti

Ok1::W

'::;0

009(:.1

~54

~j~::t91.

3:F

009;;~:

2U

~::1I)9.3:

0[:0

LPt'lSG

:+:

1.:1:;~:·;::1

:t:

~J,:::: { •.:;,,<

:+:
k~094

I:H1

END ACTION MESSAGE

LIST 1'1ESSAGE

REQUEST LOAD POINT MESSAGE
B'T'TE )A
TE::'::T .' LD PT? ..'

B'T'TE

U~::: ",1..;.1

1'1,,:: ".-

ENTF":'T' = ..'

LSH1SG B'T'TE )A
TEXT 'F/P LIST? '

U~~:64
~::I ;~~

0

~.::I~:::1::::6

t1I;;,::;::?

00~37

B'r'TE >D
:+:
:+:
:+:

~J~~19

'

PAGE

ENDAC:T B'T'TE >A
TEXT ~TERM/CONT? '

~':H)

~.:.1~~1:=:

..

i976.

LOCNUt1 E:SS
4
B'T'TE :>A .• :::-[)
:+:
:+:
:+:

e.12~i::;:

".:.1~~1"1;;t

ENH1SG TE::<:T

DEC i i .

LBt'6G

}[:o

REQUEST LOAD BIAS MESSAGE
8'T'TE >A

4..%-4# ..".(

, .J.4#-...l.A4-..

A·

$ ..,..¥

.

I.

'if""s:' ·tertH

~~H.:.'t9!:i
~)~j96

0· :;,
"

~.:.'t~~~9?

2~.:.'t

~)~~198

4'-:'
.::.4'::'
-'

~jk'l99

~.:.1<:::

",-::,

4C
44

(1~)9A

:::W

~;~~j9E:

20

l'l~]9C

~]D

~.:.U.:.1=-'1:::.

8'T'TE
E'·... EN

>[)

t .

o
24:;gg:;

.94TL .

1V¥4bIl.#

, , .4

. _ ,,.. .....

• . d!JftMH

T

ttetWdt'tmrt*#

t

r-- ,:':,r::LHL
I'IH 1 N

•

DF:~

:::;Dsr'1AC
I '",'EP

!f . .

:16: 59: 48 SATUR[)A'T', DEC 11. 1.'76.
:~4:=:9;26-99~jl :t::t:

94?~j7!:5:t:B

:t: MAIN DRIVER WORKSPACE AREA
:t:
r'1A I NI.oJP
1::1::::::=:::::: ~:H?19E [1'j~~1~)
DATA ~:3
R0
t1;;~:::::::~ ~1~~1A~::'1 ~~1t1t1~j
DATA LDBUF
R1.
t:,::1284 ~X1A2 (159C ..'
DATA ENDST
R2
~~1;~:=:~i ~3t;.1A4 '~!:i8:=: ,.'
DATA SYMBOL+SYMPTR+SYMPTR R3
DATA ENTMSG
R4
u:::::~? 00AS
ENTADD
u;,,;:~~ B0AS 0000
ENTVL DATA 0
r.::5
u:::::~~ UBAA 066C~
DATA PRINTN
R6
~~~u
REF ENDBUF
tHJAC t1~~1~3~) S'T't'1TAB DATA ENDBUF
R7
~.:1~:::I:::: ~;HJAE ~3~::'H':'H:'
TOPDAT DATA 0
R8
k.1:::::9~: (H.~BO 'J~~1~](1
DATA 0
R9
~.:.1;;'-~:~4 ~:HJ8;;:: t10~::'1~j
DATA 0
R10
~?129!:i ~.::t~384 ~~1~X1~~1
DATA 0
R:1:1
~.:.1296 ~jt1B6 ~:::158C:'"
DATA SYM80L+FLAGS+FLAGS R:12
~:1~~18:=: ~::t~~1t:::1~~1
DATA 0
R:13
~:K1BA ~'::H::1~j~::'1
DATA 0
R:14
kn;~I::::C m~1~j~j
DATA 0
R:15

,I,!

PAGE

ti!l

~:1;';::{9

o

1::.1;";::=:[1

TEMP
RDRBF
ESTPT
SYMP
ENTPT
ENTVAL
PRNTN
SPTR
TPPT
UNDPT & I/O RTN STATUS
IOPARM
RETURN
SFLAGS

o
.464&.4 .. #$# #.. $ $

__ ME_

"4.

",MU. ,(

t$.~

...

a •.f

_.....·_I.lr"_
l'IHlN

,.,

*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'

~.:.1..:::1::';'::

k1..:::k1.$.
~'::'k14

~''..:;.100

1::.1.$.l.:.16
~.$.k1{'
~.:.1:":;~j::::
1:::1..:;.1:::1::>'
1:::1"::':.1.1:::1
1:::1:":;:1.:.1.
1:::1"::':1.0::::

~.:.1.$:1.$.

~"..::.:1.4
~.::t.$.1.~i
1:::I"::.:.1.b
•.::1..:::1.1'"
1:::1.::' :1.;::;

~.:.1.:.:'1.::?
1:::1"::.':::; •.::1

l.:.1":::;'::1.
k1:;.:::::C::
~.$.23
~.:.1..:::;'::4

1::.1,,::.. ,::::::Jo':'I"::.'t.::.

..,:.'..::..:::;. ...
"':'I..::.'::::i::i

c

",:"..::.~:::e

".1..:l.'::'~'

1::.1'::''':::1.
J..:.1"::'.j.f:!.

I:::I":::":::J:

,~.t:.

J.P.:>. : ~9

: 41::1

~t'I

11.IROt't'T'.

DEC 11. 1976.
PAGE

~~BE

ees.e

TITLE:

PXRLAL
LINK AND LOAD DRIVER
REVISION: 1215/1211/74
ORIGINAL
e3/15~76

MODIFIED TO BE A COMMAND OF PXRMTR
COMPUTER: 99121. ASSEMBLY
ABSTRACT: THE LIST OPTION IS REQUESTED. THE USER
SHOULD ENTER "F" FOR FULL AND "P" FOR
PARTIAL LIST.
THE QUESTION "LOAD~END?"
IS ASKED. THE USER SHOULD ENTER "L" FOR
LOAD OR "E" FOR END. IF LOAD. THE DISPATCH
ROUTINE IS CALLED TO PROCESS THE MODULE.
THE LOAD,..'END LOOP IS CONT I NUED UNT I L
ALL MODULES HAVE BEEN LOADED.
IF END. THE ENTRY POINT AND ANY UNDEFINED
S'T'MBOLS ARE PR I NTED. AND THE TERM . .' CONT
QUESTION IS ASKED. IF THERE ARE STILL
SOME UNDEFINED SYMBOLS. THE CONT OPTION
1'1A'T' BE SPEC I F I ED AND ADD I T IONAL MODULES
MAY BE LOADED. ONCE ALL MODULES ARE LOADED.
TERM MAY BE SPECIFIED. AND CONTROL WILL
RETURN TO THE MONITOR. THE USER MAY THEN
EXECUTE OR DEBUG HIS PROGRAM WITH MONITOR
COMMANDS.
CALLING SEQUENCE:
~
@LALCSR
STATISTICS: WOHKSPACE = MAINWP (UNSHARED)
ROUTINES CALLED:
PRINT. PRINTN. KEY IN. DSPTCH. GETSFL.
GETSNM. BINHEX. PRCRLF. GETHEX. OPEN

*
*'
LALCSR

1:::1..:;..::.4

I:::I'::'.$.~

0.;.0

948926-991211. *'*'

1::.1..:::~:1

0-;'-

.:~.... ( 10 I'

DHIVEH

0eBE 12142121
~":.'I(1C~::t 121';:'1(:4"
121337 eeC2 121458
~'::'.$.6

PXF.:LAL

COI'1MA~m

INTERFACE

BLWP @PXRLAL

START UP LAL

RT

RETURN TO MONITOR

DATA t1A I NI.oJP) LAL

WOF.:KSPACE. START

LWF'I MAINWP

UHT WP

*

P~'~RLAL
034~:::1

0t.:.~(:4

l:.~~jC6
1:::1.::.41.

.'
00(:8 "

~!l09E

00(:8

LAL

~.:.1.:.::4~:

03:44

~X1CC

i~1209

~j(1CE

~~10~.::t(1

~j(::tNj

C::=:"~19

~::'1(1D2

i~1 ~:'1 ~::.

~':'';::1D4

ij;;::i:,::"

~:n.:.11)6

~~1~:::1~~~:.'I

~::I1::.1D::::

C::::~39

~::I~:1DR

i':'1~.:f?E

~::t(-~[)C

~j6A0

C

~:.1.:..~4B

Ot:l,;::4St

* SET UP XOP LEVEL 1.5 TRAP*'***,**'*'*'*'**'*'*'*'*'**'**'***'*'**********,*
LI
R9., SVCI.oJF'

~.:.1I:::IL;'1::.

(n3';::1~::t

~.;.1':'::::1~.:.1

~::t0Ei':'1

:1.000

~~1.'::::::'1.

I::.U.:.11:::2

~;',;:::::I:::::

~:H:'1E~~::

R9 .. 1]1>7(:

t'10V

R9.,

I](>'?E

*******'*******'*****'**'*'**'****'**'*******'*'*'**'**'*'*'***'********'****'
BL
@F'RCRLF
PRINT CR/LF
F.:G!LF·

020A

t10V

IGNORE ERROR RETURN

NOP
LI

IOPAf;,:I'1.. LPI'1SG

REQUEST LOAD POINT

... _4.

_0

.';:'V';:)l'lnl...

t1A I N DR I VER

o

~1I353

~~~3E6

0354

~3eE8

e416
06Ae
ee0e
1eFA
1ee2
02eA
€Ieee

e€1EA
e355 eeEC
1d356 ~::.~eEE
1d357' 00Fe
eeF2
(:.G58 eeF4
STLP
~.:.1":::59 e0F 4 C8eA
~1eF6 e1.FE'"
~":::60 eeF8
RQLB
1::.1.':::6:1. e';:}F8 e2~.3A
~3eFA ee94 ,.
~.:.1.:::6;;;:~ 0eFC e416
1d363: 00FE J;:":16A0
e10~3

;:''''P''

."''';;)''''0
:.I.e:. ; :59: 48
948926-9901 **

::St'f rUROHVI

~j:136

16e2

1:::1..:::::::6

1:::1:1.38

~35Ae

INPUT HEX VALUE

J'MP RQLP
.JMP STLP
LI
R10,DLDPT

IF ERROR
GOOD INPUT VALUE
NO I NPUTI ASSUME DEFAULT

MOV

R10,QlLOADPT

SAVE LOAD POINT

LI

IOPARM.LBMSG

REQUEST LOAD BIAS

BLWP *PRNTN
BL
@GETHEX

.JNE
INC

"'.:1"::::::: . .-

:+:
:+:
:+:

kt::'~8:=:
~:'''::':::::;

1:.113C
~:H

..... ..
O'~ "1~"""';'
,

..... _.:

.:

:::::c

013:E

PAGE 001.1.

INPUT HEX VALUE

~.3~.?tEA·'

1d ..:::85

~.:.1":::::? :1

1976.

BLWP *PRNTN
BL
@GETHEX

e3:64 121102 1eFA
~TMP
RQLB
1::.1365 121:104 1ee2
~TMP
STLB
e::::~66 0H:)6 020A
LI
R1e.DLDBI
0108 ~1I0A~)
1d":::67 01.eA
STLB
~":::68 01.eA C80A
t10V R1e.@BIASWD
1d:1.0C ~:::11EA"
~":::63 eH:::1E C14A
MOV R1.0,ENTVAL
Id"::: {'Id 1211.1.0 e20'?
LI
SPTR., ENDBUF
~1112 00Ae "
e11.4 C48'?
MOV SPTR.:+:ESTPT
e116 06e'?
DEC SPTR
e3:73 e118 e4C'(
t10V SPTR., :+:SYMP
0374 ~.311A 0SAe
INC @FSTIM
e11C l'::t41A "
~.:.t375 ~\11E e208
LI
TPPT.>8e
1d:1.2e e08e
:+:
:+: LIST OPTION
:+:
~..::: ,..,:; e1.22 e2eA
LI
IOPARM.LSTMSG
0124 r.:}07'F "
~.3::i:8e 121126 e416
8LWP :+:PRNTN
~1I381. e1.28 C281
t'10V RDRBF. IOPARM
1d3:82 01.2A 042e
8LWP IjlF1.30

NO.. USE DEFAULT
CLEAR ALL BITS EXCEPT LUNO

MOVB TEMP.@CTLUNO+1

SAVE INPUT LUNCI

';:'1~:::1i2

..'
..'

1..:.11 Eo E

~.:'tF~X1

~.:1*.:.1:.t

~~11. 7~3

[)8~:::n:::1

~4:1.~

0174
OPNCAS
0174 e2A0
MOV
@CTLUNO. IOPARM
~.H 76 ~.3t;:1i2 ..'
BUJF' @OPEN

~4:1.1

":141."::: 1..::11.7 C

BATC:H

k14:1.4 k1:1. "('C ~.342~~1
~.H 7E ~~121.3C "
~.:.14:1.~' k1:1.8.:::1 1.('1FD
~.::t"+ :1.b

BUJP @DSF'TCH
.Jt1P

PFWCESS t10DULE

BATCH

PROCESS NEXT MODULE

*

1..::14:1. ('

:+:
PROCESS UNDEFINED SYMBOLS
:+:
ENDPR:O
:::;ETO UNDPT
SET UNDEFINED PRINT FLAG
SPTF.: .• :+:S'T't1P
POINT TO SYMBOL TABLE
t'10V

~.:141.:=:

1..::141.9 ';:1:1-82
I.J42~:::1 ~3182 kf?I.:::19
k14:Z1 1.3i::::4 C4C?
1..:.142=~:

~:11:=:6

k1424

~.H88

.,:,1"+':::::::,

1..:.1:1.~::H

8493
:1218
1.3421.:::1

k1:1.:=:C 1.3~5A:::: ..'
~:14;;'::b 1::.1:1.8E ~36:1C
~.:14::::"" 1::.1:190 11.14
•.:N.::::;=; 1..:.1:1.9:::: C;;-~49
~.:.14::::9 1..:.1:1.94 13€15
~.:.14 ..:::~.:1

OF'EN CASSETTE

~:':1.96

1.~121;:.1A

C
:+:SYMP.:+:ESTPT
.JLE
EtHB
BU·JP I!tGETSFL

EN!) OF TABLE?
YES - EN!) PROCESSING
NO - GET SYMBOL FLAGS

DEC
JL T
MOV
..lEO
LI

UNDEF I HE!)''?
NO - GET NEXT SYMBOL
PRINT ~UNDEFINED' MESSAGE?
NO - S~~RLAL

NOV

ENTVAL.. liUSRPC

RT\.oJP

SET UP ENTR'T' POINT FOR P:X:RNTF<:
RETURN

o
,

I

r
J

;

x

.~.

. . ..4.0$.

t&1 " , i' *h NHMtmb

LUH~

MUDULE DISPATCHER

.....

~.:.1"+1::

".:.14-::.::::

0:

~';)"+b=-'

1::.1"+ ... ~.:.1 ~~11.1::.6
(l. 01.E6 121 121 t2t€-1

*'
*' DSPTCH
*'DS~'~P

~.:.14

~.:.14(<:::

~.:.1l.E8

t2tt2t~30

1::.14('::': t2t1.EA t2t'ZlA';::1
~.:J"+(4 I::.11.EC
~.:.1"+ ... :::1
~~1l.EC 00'Zl0
~.:;Io:.j. ... ,=. ~.:.1l.1::.1::.
12112100
"'.:.1'+", ... 1::.1:1. .... ~.:.1 ~.:.1l!1l::.n.::t
c·

~.:;I:.i..r- .:::

1d1!l~.:.11!1

".:.t~"':::'

~:l::U"4

I::.U.:.10l3

~:1 "+ ;::a.:.1

I!I:U- 6

0l3l~n3

...:....... 'I·

l.:.14::::l. 1::.1:lF8 t2tt2t€-10
k.i4i=;~ 1::.1:lt- H l~1l3l~1~j
1o,:1'+:::;,,=:: l.::t1.FC €-1'3';::1';::1
1::.14:::::4 k1:lFE 0l3l~1~~1
"':'~I:I.;~' ~'.:::~.:.1~ ~.:.1.j:1- t. .'
...:.,~~1::.1~ I::.U.::t0l3
"':'~':it,
Io.::t.:.t-::::( 1::.1::::~~14 0l:::1AE"
1-,:1':+ '::; '=- ~.:.1::::l.:.16 l:::1~1~3l3
".:J~i=,::::e

";:1':::1-,:1:::;

~.:.n.:.1k1~::t

10.:.' ..... :;' ...:.1

~.:.1.;,:;~.:.1H

kU.:.1~.::n.:.1

PAGE 13131.4

BIAS~JD

CISWP2
NWLOC

~'~O~:IAl3

DATA
()ATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
LOADPT DATA
DATA
DATA
DATA
DATA
DATA
DATA

10
10
a
a
a
a
a
l3

RIO
R1.
R2

INPT
TGFLD
BIAS

R3
R4
R5
R6
R7
R8

NEI.oJLOC
LOCPT
SVPT
HLD
FLt3VL
PC
RETURN STATUS ON READ
IOPARM
RETURN
LDPT
INCP
INSID
TDAT
OLD ~.~p
OLD PC
OLD ST

~:9

R1.a
R1.1.
R1.2
R1.3
R1.4
R1.5

~3
~j

I NCHI<
121

TOPDAT
l3
€-1
0

~:1.3
~:1.4
~:1.5

o
.a@

¢#4#$.. 4

&.!. 4

;xg*-.

.¥-#-

444

at

ij.,

A4#4iP& ",@*"

S0SMAC 947075 *B
~6:59:48 SATURDAY.
MUOULE DISPATCHER
948926-99121~ **

~~KLHL
LU~U

~~.

~976.

PAGE

e0~5

* TITLE
DSPTCH
LOAD MODULE DISPATCHER
*
* REVISION: 05/0~/74
*'
ORIGINAL

i:j4:;:1.:;:

0:

DEC

:~::~~

*'
*'*'
*'
*'
:+:
*'
*':+:

~:14=-'b

03/~5/76

~:.1::11t.

MODIFIED TO RUN WITH PXRMTR
COl'lF'UTER: 99121. 990 ASSEMBLY
ABSTRACT: OB.JECT RECORDS ARE READ AN[) PROCESSED.
EACH RECORD CONTAINS SEVERAL OBJECT ENTRIES.
AN OB.JEeT ENTR'T' CONSISTS OF A TAG FIELD AND
LIP TO TWO ADDITIONAL FIELDS. THE TAG FIELD
OF EACH ENTfO~'T' I S USED TO BRANCH TO THE
APPROPRIATE PROCESSOR. A TAG FIELD OF ~F~
:+:
BLWP @DSPTCH
:+: STATISTICS:
*
WORKSPACE = DSWP AND DSWP2 (UNSHARED)
:+:
ALL SIXTEEN REGISTERS ARE USED BY OVERLAPPING
:+:
DSWP AND DSWP2. ALL ENTRANCES ARE DEFINED
*'
THROUGH EXWP2 TO RETAIN THE RETURN ENVIRONMENT
*'
THE FIRST INSTRUCTION IS THEN A "LWPI DSWP~
:+:
TO GAIN THREE ADDIT10NAL REGISTERS FOR USE.
*'
WILL CAUSE A NEW RECORD TO BE READ.
*' CALLING SEQUENCE:
:+:
A "LWPI DSWP2~ WILL THEN PRECEDE ANY RTWP
.+:
I NSTRUCT ION.

~J::'l.

('

:+:

k1~51::::

:+:
:+:
:+:

~.:.14;:1

("

~.:.14 ;:I::::
~.:.14 '.::l;:l

~1:'j~10
i:j::,~.:.1 :1
I,:;I;::I~:.''::::

L:1$3.3:
~:1'5U4

05€15
1::.1~,1.:.16
~.:.1~)~.:i

....

~.:.1::1~1::::
1o.:.1~.~j'::1

~.:.1::':1 ~j
~:.1~):1:1

~:,51;;;:
~j51.3:

10;.151.4
k1::,'15

THE TAG FIELDS REPRESENT THE FOLLOWING
ENTR'T' T'T'PES:
:+:
TAG
1'1EANING
:+:
121
lOT F~ECOF.:D
:+:
1
ABSOLUTE ENTRY ADDRESS
.-,
.:::.
RELOCATABLE ENTRY ADDRESS
*' 3:
:+:
EXTERNAL REFERENCE IN RELOCATA8LE CODE
4
EXTERNAL REFERENCE IN ABSOLUTE CODE
*' 5
:+:
RELOCATABLE EXTERNAL DEFINITION
:+:
6
ABSOLUTE EXTERNAL DEFINITION
,
C:HECI.:.1::,.;;:.:.1
1:;.1::'';;:1.

*'

:+:
:+:

.J~,';;:.:::

10:.1::•.;;:4

;t:

:+:
:+:

~J::,.:;.b

U::.':;: ,.'

:t:
~~1

::.I..,i.

::1

:+:

*'
*'
*'

.:.':::' '+.:.'
.:.1::'41.

.Y542

ROUTINES CALLED:
BINHEX,CONVRT,CUMCHK,ERROR,GETSVL,HEXBIN,
INCHK,LDR,PRCRLF,PRINTN,READ,SRCSYM

l1~;A3:

.0'.')

DSPTCH

~Y:'44

~320C

U::i4~

02(1C k11EC"

W:A6 O;;'::OE J::j;2:10"
1.;:1"'i 4~

.~1:::A:::

.~12:V)

~:'1::::1.[1

Df1TA DS~~P2
DATA DSBG

1212E.0

~.JOF.'I<:S F' He E

STA~n

ADJUST WORKSPACE

U:::::1.:::: R1EE:"
U":.4'::1 1.J214

1.34C:E

eLF:

INSID

%44

¥.. K

.M. t¢i

. a. .

44.,"

#A#A4#@# .

_«

t 7

·a

t~'

:::.L):::.r'lHL:

f" ..... l-nL

1.6:59:48 SATURDA't', DEC 1.1., 1.976.
:::iI4?0i"'0 *8
948926-9901. :+::+:

LUHD £10DULE DISPATCHER
~!:)!:)1.

*'

0

~::'o..:;:
"I.

1

~.::t0:::1.6

1:::1004 021.6 0200
1::10:::1.8 00A0"
1:::1000 1::100001.H C280
~.::to!:)o ~.::t::::1.C 0420
021.E 0622'"
0557 0220 0249
0222 6000
~,5~i8 0224 1.68B
1::.1!:)!:):.?

LI

:+:
:+:

1::100:::: 0226
1d!:i63: 0226 '0242
0228 FFFE
0564 022A 04C7
~.::t565 022C 04C6
0566 ~.322E D';:;70
l::1!:)f.::o? 12123:121 ~3221.

CHLP

~:'::,f.::o:'?

1::1!:)(1d
121571.
10572

POINT TO READ BUFFER

MOV INPT, IOPARM
BLWP @READ

READ A RECORD

ANDI R9,EOF+I0ERR

EOF OR IOERR ENCOUNTERED

.JNE

YES, RESTART

ASK

ADJUST BIAS AND BRANCH BY TAG CHARACTER
ANDI BIAS .. >FFFE

SET BIAS TO WORD BOUNDARY

CLR
CLR
MOVB
AI

FLGVL
HLD
:+:INPT+.TGFLD
TGFLD,->312100

CLEAR REF . . . DEF FLAG
CLEAR TEt'1P LOCN FOR OFFSET
GET TAG FIELD
AD.JUST FOR ASCII

.JLT
SRL
CI

TAGE
NOT IN RANGE - INV LD CD
TGFLD,7
AD.JUST TAG FOR BRANCH
TGFLD.JMPTBE-JMPTB-1.
IN RANGE?

.JGT
MOV

TAGE
NO - INV L[) CD
@JMPTBCTGFLD).TGFLD BRANCH ON TAG

[)0121'~~

023:4 1.1.20
121236 121971.
0238 12128:1
~:::'23A 121031.
'.323C 1.51.C
~.323E C12I61.
1::10:::4121 121244"
121242 0451.

INPT.LDBUF

:+:

~.::too1.

0232

C·

TAGF

1::106~:::'

1::.1~ltl::::

REA[> AN OB.JEeT RECORD (F)

:+:

~~!:)O:::

.

PAGE 0€11.6

1d0?3
B
:+:TGFLD
:+:
121574
:+:
0575
TAG CHARACTER JUMP TABLE
:+:
057'6
05;,,, 0244
.Jt1PTB
0!:i~;'8 0244 0288'"
IDT RECORD
DATA TAG~.3
ld~i?9 ~3246 ';:'~2CE'"
DATA TAG1.
ABSOLUTE ENTRY A['JDF::ESS
DATA TAG2
RELOCATABLE ENTRY At:)DRESS
12158'.3 0248 02CC"
1::1 !:) 8:1 024A 0;;-~D8'"
(>ATA TAG3:
E::::TERNAL DEF
DATA TAG5
1!.1:;:.::::4 ~O:::OIi.1 035€1"
DATA TAG6
ABSOLUTE EXTERNAL DEF
k1!::.::::::, 0252 ~33:B8 .'
(>ATA TAG7
CHECKSUM
k1::,::::f.::o ~.::t;';:::'4 03:8C"
DATA TAG8
IGNORE CHECIATA BKOUT
1::10:::::::: Id 0:: 58 02BE'"
COLON: END OF MODUL
~.:1 ::. :::: :.? J..:.125A 0276,0'
t:)ATA TAGE
INVALI[> LOAD CODE
DATA TAGE
INVALID LOAD CODE
~.::tO:.?I:." 1::1::::::.1_: 121276"
~.:;1:::.:.?:1 025E 1!.~27E;···
DATA TAGE
I N'·. . ALID LOAD CODE
1::1;'::0121 ~:::'2'?6'"
DATA TAGE
INVALID LOAD CODE
~.:1::.~..::~ ~';;::62 .;:.~ ~=!·7':: ..'
DATA TAGE
INVALID LOAD CODE
1::1 !:):.? 4 0264 0276'"
DATA TAGE
INVALID LOAD CODE
~.:.1;'::66 03C;;-~'"
DATA TAGA
F~ELOCATABLE LOAD ADDRESS
1::.1:;:.:::*6 ~.:;1::~f.::o:::: ~.::t3D2···
DATA TAGB
ABSOLUTE [)ATUt'l
~::t~,~::' ,.- 0~:;-~6A I;.13D'.3'·
DATA TAGC
RELOCATABLE [)ATUt1
k.1~19:3 12126C ~?I3:EA·'
LOAD BIAS
DATA TAGD
~:,:::.:::t:;.t ~.:.1~61::. ~327IE; ..'
ERROR
DATA TAGE
ki t-ki 1::1 ~.?I;2·?O ~:::'2:16 "
DATA TAGF
END OF RECORD
~.:1t.::.~:~:1 14';::0-;>''';' 0282'"
RELOCATABLE SYMBOL
DATA TAGGH
1:~1t.::.1:::t I::: k1:::~ .... .::t. "::'~2:=:~~ ,,"
ABSOLUTE S'T't'1BOL
DATA TAGGH
~:12·?6···
1::.1b~~1.:.~
.Jt1F'TBE EQU $

-

~.:;1:::,:,?;";:

~.:l:::.:::t:;:.

0

~.-,

~

I

,I

stU

.Mil. Ok .. . ;

...

($

.i .

1.42J$IM)4I

;

:

, ,

••. " ....... "....

;;;;.v.::... ln....

::0 .... t

'Y'Ci
l..b : 59 : 41:1 ::'HTURDH'T', DEC :1:1, :1976.
948926-99121:1 *'*'

~ (";:;1

LOAD MODULE DISPATCHER

•

0'

12161214
12161215
I::.1b06

...*'

~.:lb~:~ ('

~.:1::::·?6

,

~3276

~.:161218

1::.1~""8

TAGE

02eA
231212

1::.161.~

...*'

~::t6L.-;:

~::t61.4
1::.1~:::I2

1:::I~,1.6

~.::t~:::I2

1::.1~~4

I::.1b1. I'I::.1b1.8
1::.161.9

1::.1~~b

I::.1b~2

1::.1623
~b'::::4
~.::I60:::::'

o

1::.1626
~::t62'?

~::t628

121629
1::.16~0

121631.
...:::2

~::tt'.::

1:::16~::::

1:::16..:::4
1:: 1 f.:d !:::,
1::.16.':::6
1::.16":::,'"

o

~.:.'t:,46
~~Jt:,4

(

ILLEGAL LOAD CODE

BL

@ERROR

CALL MONITOR ERROR ROUTINE

B

@LAL

FATAL ERROR

-

RESTART

SYMBOL TABLE TAG CHARACTERS (G/H)
AI

INPT,1.e

JMP

CHLP

INCREMENT POINTER PAST ENTRY
TO IGNORE SYMBOL TABLE TAGS

*'
...

PROCESS MODULE IDT (e)

*'
1::.1~~:::I
TAGe
121288 C8e2
I:::I~::::H 121424'"
e;;~8C; C38E
1::.12::CE 1.607
1:::12:;1::.1 ~14;;~e
1:::I;"~92 0438"
0294 1.01.8
~:::t296 12146121
1::.1~:;:::I 12I:13C "
029A 12158E
029C :11210D
e29E
TAGeB
029E 1216Ae
1212Ae 12141212"
1212A2 e1.EC ...
02A4 A8121 3:
~.:12H6 04E2,o'
02A8 98:1~.3
1212AA 0121121::: ..'
k't2AC 1.3:1213

*
*

*'

1::.12~4

I::.1b42 02B4 022121
1:::12B6 FFFC
1:::1643 121288
1::.1644 0288 12122121
1::.12BA l2t1a~::~c
~:1f.:,4!::1

IOPARM, ILCD

TAGGH

·022121
eeeA
:10CF

~.:lb"::::::

~b41

LI

*'

1::.16~1::.1
I:::Ib~1

ILLEGAL TAG CHARACTER (E)

*'

1::.161219 e27A
ERR
061.121 027A 06Ae
e27C o121 121 I!:t
12161.1. 027E 12146121
1::.128121 eeC8"

1::.11:::.:1.. ::;'

PAGE 1313:17

MOV

BIAS,@LOCPTR

MOV

GET PRESENT BIAS

INSID. INSID
TAGeB
BLWP (9LDR

PRESENTLY INSIDE MODULE?
YES - TEST IF PROPER
NO - PROCESS IDT

~TNE

.Jt'lP

DSPE~"

(:81:::1121
1::.'12E2 1214EA"
~~2E4 e42121
1;-,:I:;'::E6 e5C6"
~32E0

*

1.(~1.B

I:::I::''::C:H 12122~::1
I:::I::::EC 121'':;1216
1::.''::.:::::::: ~;'~t:.E C:103
1::.16:::::::t l:::I::::rl::' :t39A
~.:.16:-::'~.:.1 02F2 ,""::1420
klt;)::::(

'::t~r4
.':"1::.;' J..

~J;;'~FA

k~62121
~::t:::.::::C'"

~~~-:::FE

:t:10~~

.

~:, ~~I::'::::

~J (~:~:1

~:1":::k.1A

BL
*INCP
DATA ENTADD
A
HLD.@ENTADD

TEST INSIDE MODUL AND CONVERT
PLACE IN ENTRY ADDRESS
ADD IN OFFSET

. .TI'1P

G'ET NEXT TAG

CHL.P

GET RELOCATABLE CODE REF (3)
MO\·'

BI AS .• HLD

SET RELOCATABLE OFFSET

GET ABSOLUTE CODE REF (4)
TEST INSIDE MODUL AND CONVERT
PLACE I N N"'~UJC
ADJUST WITH BIAS

PROCESS REF CHAIN LINKAGE
MOV

INPT.@NSMBL

POINT TO SYMBOL

I'~AME

BLWP (!iSRCSYM

SEARCH SYMBOL TABLE

.JI'1P
AI

IF NOT FOUND .. ENTER IT
ADJUST PO I NTEF!:

ENTERR
It..tPT.6

NEJ..JLOC. LOCPT
CHLP
BLWP litGETSVL

•.: 1. : :1: .11:.1 A:HK:
C:194

•.;:I..:;~.:1H

GET ABSOLUTE ENTRY ADDRESS (1.)

JEl~

~:L~:k12

..- ~:1~:~

SET RELOCATABLE OFFSET

POINT TO NEJ..J END OF CHAIN
IF ZERO .. NO REF. SO END PRO'::

MOV

@SYMBOL+SYMNM+SYMNM.SVPT GET VALUE

DEC

@SYMBOL+FLAGS+FLAGS

.JLT

F~"';RF

IF DEF . SATISFY CHAIN

A
t10V
JEG!
t10V
.Jt1P

LDPT . LOCPT
*LOCPT.HLD
EN[:'LPR
HLD .. LOCPT
LPFXR

POINT TO ACTUAL t1EM HDDR
GET NE~{T CHAIN ENTR""
IF ZERO .. END OF CHAIN
CHANGE LOCATION POINTER
CONTINUE CHAINING

A

LDPT . LOCPT

POINT TO ACTUAL t1Et'1 AD[)R

LPF:'::F.:

1o:1..::.~:1~:J

~:I

BIAS)HLD

1215B~3'"

~::t;::::r-I...:

~::t..:::~;'6

GET RELOCATABLE ENTRY ADDRESS (2)

MOV

k12F6 C:1.6~1
1:::12F8 k't58E"

~.:.1.;:: ~.:14

RETURN

BL
*INCP
DATA NWLOC
A
HLD.NEWLOC
**

~.:1b::::~

12I;;~E8

ACCOUNT FOR ODD LENGTH

*TAG4

{'

1-:,'::.::::'::'

BIAS

MO .....

1::.16b~

l::~b:::::5

INC

RTWP

*
*
*TAG1.

~.::Ibb;"~

~.:.1b::::4

ADD IN NEW BIAS

LWPI DSWP2

e2E0
e1.EC"
e38e

I::.IC·a::.J...

C

@NWBIAS .. BIAS

[)SPEXT

~.::IbO:::t l:::I;,,;:t:c
I:::Ibbl:::l 02(:C C1.82

~::t6(

A

~':;4E2"

.~b:;:t::;

~::II::.t.:o'"

PAGE ee1.8

1..;::~:~2

1_:H:16
:11::.1f-"B
EN[:'LPR
A:UX:

Z. 4.1t

ex

__ k'

$.4 ...

I&Z4.X.C.

H. "H.trh

t

'I" W

rnKLnL
~DSMHC 34712175 *6
~6:59:48 SATURDAY.
LOAD MODULE DISPATCHER
948926-990~ **

0,

kf?~~;2

H~s~3C

~.:.17';::13:

~:.'G~::'1E

C51.!:i
(:543:

t1,...1d4

~3::a~3

~08A

1::.1""~.:.15

~33:~2

~.:.1""~16

~3:::a2

Id,,··~.:q

~G~4

k.1{·1:;.18

~G~4

A~0C

~j7~19

~G~6

C~94

C503

03~8

I::.U1.H

c~e6

~.:.1"":12

'':;~'j:~C

:16FB

b( ..L.:.;.
1:;.1 ...·1.4

~.:.'I..:::1.t::.

~.::t

...~13:2~3

('1.::::'

~f3:2~~1

~.:.1

~2I587

1:;.1,...:::::1::.1 t:.:f3:22
~:.1""21.

~;r:::::22

C~6e

0324 0~i:3:=:'"
t-.:.1 .... ;....::~ k132'::: C547
k1(23 032:::: ~322~i
~~G;~A FFF9
~:1~;:O24 ~2I::f.;;-~C DO'?e
~.:.1

(::::!:1

~.:.132E

DD7'~1

D[)7';::1
...,:1,...:::: ( J..::t.:i:j:2 DD7'2I

C

10.:.1",

'::::1::.

~.:.1..:::..:::1:;.1

"':'1 (

.:::t=i

~.:.1~.:.~4

DD~:'~~1

~'::I'" .::::::.'

1::.1.:.~..:;:b

D57~3

1::.1 (..:::~;~ ~"33:=: ~::1225
1::.133:A FFF9
~.:.1'" _~::l ~.:.1:':::3:C C!:i43:
".:,1 ',••' ..:::::;: ~.:.133E C8e5
'~'134t1

..::.t:-

f::J .....::. ...

1::."." ..~::::;
1::.1(..:::3
~:.1{ 4~.:.1

~:.1_:::4 :::;

~.33:48

'j2~1A

1::.1..:::4H

23:~:34

~;L:~4C:

~a96

~.:.1

...·44

~:e4E

~:~""45

~.~G4E

C1::::2

*'
*'TAG6

~;J"''t,..

t.1'" 4:::;
r::::I{~:::'

~.:.1":::!::lk1

~.:1 (::,~:1

kl3:~i~~1

~~169D

~:~~:'~5:1

~:GS~:;::

~J:1EC

~:j ('~i;~~

~:'3:~:'i4

A~'::1C6

~:'1 ?I~:t 3:

kt'?~54
~:.1

(!:I!:,

GET VALUE

A
MO .....
t10 .....
t'lO .....
..TNE

LDPT .• LOCPT
*LOCPT.HLD
NEWLOC .• *LOCPT
HL[). LOCPT
LPDF

POINT TO ACTUAL MEM ADDR
POINT TO NEXT ENTRY IN CHAIN
FILL IN RESOLVED VALUE
CHANGE LOCATION POINTER
CONTINUE CHAINING

.Jt·1P

CHLP

END PROC.

GET NEXT TAG

t·lOV
AI

FLCiVL *SVPT
SVPT .• -"("

t10VB
t'lO ...·'8
t'10VB
t'lO'·... B
t'lOVB
f10VB
AI

*INPT+ .. *SVPT+
*INPT+ .. *SVPT+
*INPT+,*SVPT+
*INPT+ .• *SVPT+
*INPT+ .. *SVPT+
*INF·T+ .. *,SVPT
S ..... PT .• -7

POINT TO VALUE

to10V
t'lOV

NEl·JLOC .• *SVPT
SVPT .• I]lENDST

t10VE I N VALUE
CREATE NEW END OF SYMBOL TABLE

r'-'

*T[:'AT .• I]lENDST

IS LIMIT 8ELOW SYMBOL TABLE?

.JL

C:HLP3

to1ARI< FLAG
POINT TO NAME LOCATION

MOVE IN NAt1E

ERFi:

8 I AS .• HL[:'

*'
*'

SET RELOCATABLE OFFSET

GET ABSOLUTE DEF (6)

BL
*,INCP
DATA NL·JLOC
A
HLD .. NEl.oJLOC

..,

POINT TO ERROR CODE

GET RELOCATA8LE DEF (5)

t'1CIV

1::.1'" 'tl::)

0

*S ..... PT .• NEWLOC

*
LOAD A[)DFi:ESS EFi:Fi:OF~
*
*
L[)A [:'F:Fi:
LI
IOPARt'l .. LAER

*'
*
*TAGS

~.:.1(42

,.. 4 ..~:

MO ...·'

~TMP

•.:.'{4:1.
~.:.1

BREAK END LINK
CREATE NEI.oJ L I "n~: IN SYMBOL TAB
END PROC. GET NEXT TAG

~)59C'"

'j'(3:3: €G42 :381.F
kG44 ~::'159C'"
1:;.1"" _~:4 ~13:46 :lAEB
~.:.1 .... _~:~I
"~J'"

*S ..... PT .• *,LOCPT
NEl·JLOC .• *S ..... PT
CHLP

*
ENTER SYMBOL INTO TABLE
*
*
ENTERR
INI:::
FLG ..... L
SET REF CODE
ENTERD
to10 .....
@SYMBOL+SYMPTR+SYMPTR.S ..... PT

1:.1,'··1.b
~.:.1"':1.

MOV
t'10V
.JMP

CHLP3
1.12183

(1.::'

1o.:1 ...·:l::::

PAGE ee~9

LPDF

"-:11::.1

~::t":::1.E

~976.

F:X:RF
CaD5

~.:.1(1.:1

~:.1

DEC ~~.

TEST INSIDE MODUL AND CONVERT
PLACE IN r·n·JLOC
AD,JUST WITH BIAS

PROCESS DEF RESOLUTION

tA,-

_,@ji

4, ,Mit

L. 3411#.. .4444

A

;,-

UEt&1 ,,'_ Ca;A!K

H

,,"'1

mawr

ares

l..b : 59 : 48
948926-9913:1 **

MUDULE DISPATCHER
•
10 (::'6 1;:.1356 C~':)6e
k1~58 053C"
i::.1( ;:. ( IO~::'H 1.3:13
~1 a' ::,~ 1..::135C 04210
I::.(.:;.;:.t:. 100010 '
10(::'9 103610 e1.EC'"

LUHU

o

MOV

1::.1(010 lOSt:..::: I!.1I;:.1;i,!H'

101'1'.:01. 1..::1.$64 0201.
10(1'.:0:::: l!.1~b::::
MVNM
k1 (03 10368 DC70
k1 1"04 ~336A 10281.
k1~bt: 101028"
>.:,1,' 1::0;:'

1:::1,.:;.0~

1.~FC

~.::t(bb

~:j~'('e

tI..:::(~

02210
FFFA
e6Ae
10142"
1131013
02eA
101..::11.4'"
04213

1O..$::::~j

~.::t66C'·

10372
1O,""0( 1;:.1374
10"::: (6
kl ('0:::: 1::.13"('8
~.:.11'69 lB'?A
10,.:;. (1_.
i,:.1(

10 a'

(10

I':L

tI..:::::::::::

1.-;.,,'

Co.!.

~lS:::Ot;:o

1O;i,!IdH

1O..$:!::tc;

1O~.::t4::::'

10(0::0.0::

1O..::.9H 1;:.14210
1O.::~9C: 1..::166C'·

i::.IIO":;'

1O,.:;.9~

1O~~4

1d~9~

lO(c;;:'

IO..$HI..::I

o

JEQ PRNTOV
BLWP @BINHEX

NO - SKIP
YES - CONVERT LOCATION

DATA NWLOC
DATA DEFL
LX
TGFLD~DEFN

LOCATION VALUE
LOCATION IN MESSAGE
POINT TO NAME IN MESSAGE

MOVB *INPT+J*TGFLD+
TGFLD.DEFN+6
CI

MOVE IN NAME

JLT
AI

M. . . NM
INPT.-6

RESET POINTER

BL

@PRCRLF

PRINT CR . . . LF

NOP
LI

IOPARM.DEFM

IGNORE ERROR RETURN
PRINT DEFINITION MESSAGE

MOV

.•Tt 1P
AI

ENTERD
INPTJ 6

NOT FOUND. ENTER IT
ADJUST POINTER

[)EC

@SYMBOL+FLAGS+FLAGS

~TEQ

SDF

*'
*'
*'

BUoJP @PRINTN
CHLP2

~eBF

SDF

JMP

MOV
MOV
t10V

:+:SVPT.o LOCPT
POINT TO REF CHAIN
NElo.lLOC.o *SVPT
CHANGE ..... ALUE
@SYMBOL+SYMPTR+SYMPTR.S . . . PT POINT TO ENTRY
:+:SVPT
LOCPT.LOCPT
CHLP2
LPI)F

CLR
MO . . .

~.:.1"':-::I.:::

~:''':::l:::4

1.:::W4

.JEG!

~:1'"

k1..:.~1:::6

:10AE

(

GET SYMBOL VALUE

@SYMBOL+SYMNM+SYMNM.SVPT POINT TO ..... ALUE

C:1~34

:+:
:+:
:+:

cor-nINUE

MOV

~::t4f)5

,"'::::'b

CHLP3

BLf.oJP @GETSVL

~':'C:'B2

1:~1 (~-::'

NO - SET DEFINITION ..... ALUE

LI

0:::'~8J21

~:,

DEF I NED?

NUL T I PL',.' DEF I NED SYMBOL

~:, (.~::::

.... ::~~,

POINT TO SYMBOL NAME
SEARCH SYMBOL TABLE

(1'('9:1.

~:,

INPT.@NSMBL

BLWP @SRCSYM
0

k1l86 e3AIO 04213
kt..:r.H:::: 10580"
k.1 (::::.... 03A4 C16e
I::.t..:r.H6 e58E'"
~.::t (:::::::1 1:::t3:H8 C:1:15
k1 ('89 12t:JAA C543:
k1 (9~.::t e3AC C::l.60
k(::~AE 10588 ..'

:74

IS FULL LIST DESIRED

~.35C6···

IO,",""~

,::110

PAGE 0020

PRrHOV

1:::1(('4 038A 1eC8
>':;' ( (;:. IO~::::'-: 102210
Id~::::~ 1..::1006
1:::1((0 1..::1":::90 136213·
1..::I::::~92 e58C"
1::.1 ( ... ( 1..::1..:::94 13135
i::.I (

@LIST.TGFLD

DEC 1.1.., 1.976.

BLWP @PRINTN

0382 C8ee
1..::I~::::4 e4EA"
04210
~.::t388

5RT lIRL'HY ~

.JMP

CHANGE FLAG
WAS ACTUAL REF USED?
NO - FINISH PROCESSING
PROCESS CHAIN SATISFACTION

GET CHECKSUt1 ( 7)

.tJ

,

au

. i ..

.. I·

SDSMAC ~::iI47~::.'t75 *B
:1.6: 59: 48 SATURDAY.
I'IULJUL.E D I SPAT CHEF.:
948926-9901. **

r'l;,to::LHL
L.unL·'

k1,···::;:t9

0,

~~3:B8

1;;~4;;::~1

~j3:E:A

~~4F;;~'"

BLI.oJF· I]tCUMCHk

~:1:::H:U.:.1

*
*TAG8

*

1::.1::::~:1:1
~.:H:::I::1::::

I:::I . :....:J ..::~~ld~l.:.j.

k1::::a.:.1~,

1::.1.:.::I::::C:
~.:l":;'I:::I"':

k1;':::2~3

I::Gt::lI::::

(::1~~~34

~~1::::(C0

:1.0EE

~.:.1:::::~.:.16

**

~:1:::::E.1?

k1.:(C2

~.:.1:::::1k1

~':GC2

C:1.82

~;';:::1."~

**

I::H:::1...:.~

:+:

~.:.1::::1.4

k1..:,:C4

{:~:::::1.~"j

~:r1:C 4

~.:.1:::::16

k13C6 1Z1:1.EC ..'

1o.:.••::t ..l.I'

~':'l..:i.I.•• ;;:;

~::t:::~:CC

k.1:::~J..:.1

R3:C:E H3E7

A2~3C

~:'I'::I'::..L

:+:

1::'i::i2~

*

".:1:::~ ..~:

C

I::':::~~.

~B[:O~3

INPT.4

SKIP CUMSUM

.Jt1P

CHLP2

GET NEXT FIELD

GET RELOCATABLE LOAD ADDRESS (A)

B I AS., HLD

SET RELOCATABLE OFFSET

GET ABSOLUTE LOAD ADDRESS (9)

*INCP
N~'~LOC

HLD .. NE~o.ILOC
NEI.oJLOC., PC
LDPT., PC
CHLP2

TEST INSIDE MODUL AND CON ..... ERT
PLACE IN NWLOC
FiD.JUST WITH BIAS
SET LOCATION COUNTEF.:
ADJUST WITH ACTUAL LOAD POINT
COr-nINUE

GET RELOCATABLE DATUM (C)

*

TAGe
C1.82

t10V

B I AS., HLD

SET RELOCATABLE OFFSET

~~1:=:;;::E;
~.:j:=:~~~7

*

k':::::::::::

*TAGE:

1;::1::::29
1::.1:::::3~3

10.:.1 ;::' ..~.:).

~.:.1.:.::D4

~.:J59C

~.:.13D6

:1.4B::::

".:.1;:i.'::.":;:
t.:.'I='''::.~

l::.1':'::I)H 1.40:1.
~.:.l.:.i..LIC C?C8
~::t.:.::Dt:::

~.:.1::::":::6

IZf3:DE C:8~~18
03H:.'1 KsE4'"

1-;.1:::,,::: ('

~:~(,:1:E;;-~

~369D

&..:.1:::: •.:::::::

~::t3E4

03E4'"
AE06
H:::'DA

Io.:,'i::i ..::. =--

~.:.1..:::t::.6

~.:.1..:;:t:::::::

~,:,lO:::;"'.::~

4 ..:,:
~:J;::;'" .,.
k1 ..:::t::.A
~::I':'::I::::A

C3::::E

~.:.1::::4r::.

~J3:EC

1.61216

,..-

~::I ..:':I:::.t::.
t,':'::1- ~:1

k16A~::1

f.:Ji:':;q::::

~~I .. ~:I- ~.;:

~:l1.EA

tJi:::j':.t-::::t

k~ ..:::1-

:V.:.1D4

~:1 ::::::::0:1

IS ADDR PAST SYMBOL TABLE?

.JHE
C:
..THE
t10'·."

LOADEr-;;:
*TOAT .. PC
SETLP
PC., *TDAT

'T'ES - ER!"=~OR
IS OLD LIMIT ABOVE ADDRESS?
YES - eor-n I NUE
CREATE NE~o.I L I t'1 I T

t'10V

PC I:!ILOADV2

SET UP LOAD POINT

*INCP

TEST INSIDE MODUL AND CON ..... ERT
PLACE IN F'C
A[)D I N OFFSET
GET NE:: t::,1"'t..!. ... 10101:::110
DATA
\::.io':""'t .!Iq. .sr:. '.:.1'.:.10121
DATA

108(::1

**

RIO
R1.
R2
R3
R4
R5
R6
R7
R8
R9
R1.e
R1.1.
R1.2
R1.3
R1.4
R1.5

RD
FST
PTR
Nsr'1BLP
SYMB
TMP
LaC
sr;:SM
NMMSG
IOPARM
RTN
HE~-~P
OLD PC
OLD ST

, d1

16:5':46

~~'URDAY.

DEC

~~.

~976.

PAGE 0024

PRuCESS IDT ENTRY
~.:~:::::'~tS

o

k1::::~l'

.':'I::;a"':'II::.1

~:J::::O.:!.

1...::::!t~2~

~.::I44;"'::

0446'"

HEVISION:

LI)P
LOADER PROCESS OF IDT ENTRY
05~0~/74

ORIGINAL
03/~5/76

....

~j444

~:.'I4:iC

":J::t ..::.::::

~~1446

~344E;"

~.:.144:::::

~::t4 t:.::~

~~144A

~.3222

~j44C

00 t;:.'t 4
:t:
:+<

*

t.·:::'Cf ..~·
~.:.144E

C~~14:1

k,945

k14~i0

:1..6:1.6
1••:4C:2

~.:.14

::. ~.;:

,..-

~~14~j4

~;4:1"?

~.:.1~=-'4:::

k"4~i6

:t(.1k18

k14!:I:=':

~~162~3

~~l::?,+

~~l:-::' :::1~:1

~:'::::'::::I:l

PTRPT

.'

~.:.1::::I4;::::

~~":::,'+4

~:~4~'H

~3~i:=:C:

~:14~:iC

:tJ::lD

CONVERT RELOCATABLE LENGTH
MOV

t:,-:;,4:.L

I

:+<
:+:
:+:
:+<
:+:
:+<

*
*:+<

"+

1::.144k1
~:~~~ .:..(

I
I

TITLE:

MODIFIED TO RUN WITH PXRMTR
COMPUTER: 990, ASSEMBLY
ABSTRACT: AN IDT ENTRY IS CHECKED. IF THIS IS
~.:.1::::I~.:.14
*
THE FIRST MODULE.. THE NAME WILL BE PLACED
~.:J:='~::J::'
*
I N THE SYMBOL TABLE AND CONTROL RETURNE[:'
ki91Z16
*
TO THE CALLING ROUTINE FOR MODULE PROCESSING.
~.:.i9t;'f?
*
IF THIS IS A LATER ENTRY WHOSE NAME IS NOT
*
IN THE SYMBOL TABLE, IT WILL BE FLUSHED.
~.::I::::II::.1::::1
*
IF ALREADY DEFINED. AN ERROR MESSAGE WILL
~~1:=,:.i..~:'
:+:
BE PRINTED AND THE MODULE FLUSHED. IF ONLY
~:.I.=,:i:.L
*
REF~D,
MODULE WILL BE PROCESSED AS FIRST
U:-::Oj.. :::::
:+:
MODULE. AND THE NAME WILL BE MARKED AS DEF~D.
~.:J:::O:.i....~.
*
NO VALUE IS GIVEN TO THE NAME SO IT MAY NOT
*
BE USED TO SATISFY REFERENCES. THREE RETURNS
~:'9:1.4
~.:J:::Ol.::'
:+:
ARE PROVIDED FOR ACCEPTABLE MODULES, MODULES
~j9:l6
*
FLUSHED BECAUSE OF"ERROR, AND MODULES FLUSHED
*
BECAUSE NOT REF " [:0.
~:r:::l:1""
'::.1:::O:.i..::::s
* CALL I NI) SEG!UENCE:
..:J:::O:.L:?
:+<
BLWP @LDR
~:'::::I;;';:~.:.1
:+:
NOT REF~D MODULE FLUSHED - ~ WD INSTR
1:~1~::t';'~1.
*
ERROR - MODULE FLUSHED
- 2 WD INSTR
*
ACCEPTABLE MODULE
- ~ WD INSTR
k.1 ::~ ;~~ .:..(
* STATISTICS: WORKSPACE = LDWP (UNSHARED)
1::.1=.t24
:+< ROUTINES CALLED:
:+<
1::.1::::1:::::5
BINHEX.ERROR,GETSVL.HEXBIN.PRCRLF.PRINTN.
:t:
~.:.1::'-:I:::::6
READ. SFP.:CS'T'M
1::.1:::0'::: ... ~.:.14"::::::
LDR
1::.1~~::: 12143::::: ~j4:i8 "
DATA LDL-!P
L-mRKSPACE
START
DATA L(>BG
~::J::::''::::=.t ~:14_<'H 1::.143C···
~.::J:::O"';'I::.' ~:14.::~C
LDBG
1::.1:::'.:;::1 1::.14:;~C (:f1:30
POINT TO READ BUFFER
MOV RD.PTR
~.::J4':;:t:. 0582
SKIP TAG
INC PTR

~,::J-:;'~,::J:i

~.:.l:::O..:i•..:i.

o

:+<
:+<

PTR. (.;tPTRPT

DATA $
DATA NL-!8 I AS
AI
PTF.: .. 4

POINT TO BUFFER
CONVERT LENGTH
POINTER TO MODUL LENGTH
CFP.:EATE NEW BI AS
ADJUST PAST LENGTH

TEST FOR LOADABLE MODUL
.JNE
MOV
BLWP
JMP
DEC

FST .. FST
F IFP.:ST T H1E?
F IFP.:5T
YES - PROCESS
PTR.*NSMBLP
:+:SRSM
NO. SEARCH FOR NAME
FLCL
SYMBOL NOT FOUND - FLUSH
@SYM80L+FLAGS+FLAGS PREVIOUSLY DEFINED?

~TEG!

t·1FP.:KI)F

t'1CIV

.."

*
:+:

NO, MARK AS DEF

PREVIOUSLY LOADED MODULE ERROR

4.1

$

.

t_.

Ji;:

· t t#

hE

t

PXRLAL
SDSMAC
PROCESS IDT ENTRY

SATURDAY. DEC

~~.

~976.

PAGE

t;)025

tJ :~~:::;•..:::

o

~:~::::I!::A
1;:'1~=-'~i~;

~N~:;E

~::(?I~~A

~:14b~.:1

;'::::':1:~:::15

LI

~~146~~::

~~~6A(:~

1~1464

tt:;:?C ..'

PREV LOAD MODULE ERROR
CALL MONITOR ERROR PROCESSOR

ElL

INCT
~:.1:::-:::1

IOPAf":t'1., P'RLM

..-

*
*

~:'::::I~I:=:

R:14

TAKE ERROR

E~'::

IT

FLUSH 1'10DULE

*FLCL
t·l0.....

f":D.- PTR

POINT TO BUFFER AREA

LF'FL
~::I:::'b ..~·

~.:146H

1_:::::::::(1

t'10V

RD., IOPAF.:t-l

~.:1;:t64

~:'146C

~~14 2(1

E:UO~P

f~READ

1~~4E;E

(::t622 ..'

[14;:"(:1

(::'~~49

~.:14 (;,.~:

f.::,I::'~~1~1

',:1::::'1::,1::,

~:14

(4

:16~J3:

1-.:1:::-t:,....

1::.14 "?6

:~:=::12

~:14(:::

€n:::1(:~::~

~;'4 (H
U4 (C:

:1.6F·?

~:J:7t.::':::'

'.:.'.:::' .. I:;.'

~.:14 (I..:

~:::f3::=:~'::'

~:r:;:l6!:::'

~:J::::'t.::,:::::

..'

~;t::::'

*
*
*FIRST

... "+ ~.:' "+ ... t:.
,"':::;, ~.:14 .... E ~~14C:l

(:~~:;t?6
~j~?771

(:'14:=:(:~

~j2H~i

k1482

~~H~"'::'6

~~14::::4

f.:;!:::;:~~::S

k14:::::6 ~::~~:i9A ..'
1::14::::::::: k1551C ..'

(:=t48A [:J..2(;;
k1'4:::::L: (:1t1AC"
~:1;:t (9 ~:.'14 :::: E ~~1;;;::;;;~ 4
~J:::'."'::::

k14:::~(:1

EOF OR I/O ERROR?

JNE
CB

FLRT
*PTF.:., @COLON

FIRST CHAR: =

..JNE

LPFL

I'KI-"· cor-n I NUE

FLF<:T

'.:J::::' ... :.L

~::t:::'

ANDI R9.EOF+IOERR

PROCESS FIRST fo10DUL
CLF.:
Ll

FST
HlP., 6

CLEAR FIRST MODUL FLAG
I NIT COUNTER:

S

(HEt·t, litENDST

SET NEW END OF SYMBOL TABLE

MOV

@SYfo1TAB.SYfo18

POINT TO SYMBOL NAME LOCATION

AI

:=';'T't'18 .• -7

FFF9
LP

~.:::'o~

04;:t~

~:f:?:::;:l

~.:.14::~;;~

[)[)32

'::.I::;:t;::;.::~

~:14::;:!4

~'::'6~::'1~i

~:, .:::' ,::0 .::.

~.:' "+ ::::' 1::,

1. !:::.r D

MOVE: *PTR+.*SYMB+
DEC Tl'lP
.JGT LP

*
*
*t'lF<:KDF

MOVE IN MODUL NAME

PROCESS ACCEPTABLE MOOUL
INCT PTR
SKIP LAST TWO CHARACTERS
MOV @SYMBOL+SYMPTR+SYMPTR.SYMB

':'49r~
tJ::::,::;:!~.:1

~:1:-::t:? ;:~:

o

~·J::1::::t ..".
~:.I

'"' .:"1'

i.~,1~5:=::=:'"

k14::.;tE (::'404
';J"+M."~

r r r :-::1

(.~ 4 FI4

~) ;;~ (:~ 5

~:14A6

~~H~1~i6"

kHH:::: /"':1)(,4
';J"+1"1t-1 t .. tJ ... "+

I:::L"':

*S'T'MB

AI

:=Nt'lB., -('

t'lAF.:K A:::: DEF
POINT TO NAfo1E

L. I

HlP., NAt'1E

MOVE NAME TO OUTPUT LINE

MOV
t'R) .....

*SYMB+.*TMP+
:+: S'T't'18 +.' :+:Tt'lP+
:+:::;'T't'lB+. *Tt'lP+

r'lO'",'
".::I::~:::'t:.

I.:J:;::I::~'"

~:'.:.l:::~k1

~.:.14B~~~

~~1~5E:'~1"

f::~':ll::::;::~

Cl;~:~~1

e4B4

kl~:i::::E

POINT TO SYfo1BOL VALUE

(~GETS","L

~::14fit:.

t'l0 '""

@SYfo1BOL+SYMNM+SYMNM.SYMB

..'

44$

,,$U

JJk a

.w,

u.t

-4"

aa,i!kJJ

16:59:46
r~u~~~~

•

0. ·. ·,:
EC

lUI

ENTRY

SHTURDAY. DEC

~~,

~976,

PAGE

9489;;;::6-99lU **

".:J~~7;::'

~:141:::l6

1_:~,~:~6

t10'·.·'

09~~9

~:~4E:8

~::t42~3

BLWP I]tB I NHE:>::

MOVE IN LOC VALUE
CONVERT LOC FOR PRINT

[)ATA L.OCPTR
DATA LOCVAL
BL
I]tPRCRLF

LOCATION VALUE
PRINTING LOCATION
PRINT CR . . . LF

NOP
MOV NMMSG. IOPARM
BLWP filPR I NTN

IGNORE ERROR RETURN
PRINT MODULE NAME MESSAGE

AI

TAKE ALTERNATE RETURN

"

-':;'''+I::;t"1

~.::t~:::,/..:.1

..L.'':'I~:J~::J

~;'41:::C

~.:.14;;::4·'·

J.. •.:., •.:.'J..

'':'''''tt::.t:.

~~:::Ot'_

::U.:.1/..:.12

~::t40':'1
1:::14t.:;,,~

06A0
'.;:1..:;:,"6"

:l1:::l~.:.13:

~34C4

~00~3

:.L •.:.1t'''+

•.:;141_:6 C::::8::::

1.~':'1f1!'.:i

U:l06
:l~.:.U:.1

,..-

LOC .. *So,.'l"lB

~3026

'

~:,}4C8

042~3

(14CA

~.366C'"

~:::14CC

~.::t22E

~:::14CE

~:K106

04D~~1

~.3::::~8(1

R~4,.

6

~:ETUF~N

o
. k¥. Z.

4 .. 4 .~L

g;g;;z;;a::ag

a"

~,";¥;"LTL_..,

.J -

_ ...$.q;;ttU£M1Q2('p-;;a.J.~,p

"itntt'Ptut±

I

_

'r

FXRLAL
CH~CK~UM

•

CHECK

SDSMAC 947075 *B
16:59:48 SATURDAY.
948926-9901 **

:1~.:.1:1t1

*
*
*

:.u.:.l~t:l

0

:.L~;J:.L.'::::'

.J..>;.I ..l."::.

~:)"+I..J'::::'

J..~;):i"+

I::J"+l)';'~

.J.. •.:.1.J..::::1 1::) 4 l.14
.1.·':'1.J..1:,;. •.:.1 "+ L.I t:o
I::.l"+l.I;~
:L~;JJ.. .~U::tl':::::

~.:.14DA

J..~;Ji:::t

~.:.14Dt:

..&..1::.1.::....:..

~:I"+Vt:.

J...;)'::::':.L. •.::141::.1::.1
•.:.14t:.::::

:.1•• 1:::1'::::':::
1.~::w.:::..::.

:.I••;J':::: "+

~:'41::.4
.;J "+ t:. 1:;:.

:J.....:.'d~1 1::,4E8
~U:J'::::I:::.

~.:.14EA

.;)"+1:::.1.•.
..L. ...:.t.::..::. •.:J"+t:.I::".
..l. ...:• .:::::.t •.:J"+I"" ~:)

.L"':'lc: ..-

CHECKSUM C:HECK

~r,JORKSPACE

DEC 11.

1976.
PAGE 0027

AREA

Ct'1"~P

I::.l~~.:.1t:'

CKLOC

.:.:.n.:n~(1

~3

DATt=!
DATA
~.:.141.8 "
DATA
~:1t1~.:.1t1
DATA
["ATA
1::":t1E6'"
~.:.156C'"
DATA
~;J~~~
DATA
to::LVL
0":'H::1~j
DATA
~.:.1~::'1~3~3
Nl·J8IAS DATA
~::t~::I~)~)
DATA
~;J~.:.1i::'~.:.1
DATA
t:.:.10~3~j
DATA
0~3~3~:'1
NSt'lBL DATA
I::.l~~~
DATA
~:1~.:.1~.:.1~.:.1
DATA
~::t~.:.100
DATA

LDBUF
~3

DStr,JP+ I NPT + I NPT
HEXBIN

0
0

R€1
R1.
R2
R3
R4
~:5

~~1

R6
R7
R8

0

~:9

~3

~:1.0

~3

~:11.

~j

R12

t3
1!.1
0

~:1.4

~:13:

R15

CKL
H'v'AL
RDRL
CUt1PT
ENDOB
HEXP
RLRG
C5UM

IOPARM
F.:ETURN
OLD loJP
OLD PC
OLD 5T

c

o
4UL ,2...A4#, 4

.MMlMt4iZ.;'.

i,. '-

. "";

b.

ill Ii

~,~• .:;P$;;::;,!,IM,""i·

#""/ t'

'f,.

t

.$ t

-!

t'W tt

SDSMAC 947075 *B

r ,". "'::L_ H L

1_:HECKSI...Ir1 CHECK
:+:
:+:
*
:+:
:+:
:+:
:+:
:+:
:+:

J.. ...:.l ..::•.::;

J.. ...:.l..:.:....::.
.J..•.:.• .;:• ...,.

oL lo':''';:.;:::.1.. •.::'.;:.1:.

:.1..1::,"::' ...
.J..I::'-:'~::::

:.L •.:.l...,. •.:.l
J..1::..'"t J ..

1. •.:.1q;::::
J.. •.::.o+ _".
.J..I::.' '"t '"t

.:u:.o'"t._.
..L1::.I ..... r.:.

J.. •.:.o'"t ...

c

:.I..~.:.14:::t

~]4F2

:v~:I:::.~.:.1

~j4F;;::

~::t4D2'"

.:... •.:......'J..

.~:I4t-

4

~:.14F6···

J.. •.:.I....I'"t
.u:J::':::'
1.k1!:::t6

f14F6 1!:14C?

~:Nt-b

2~:J:::'(

~.:.14t-:::!

1. ~:1!:i ::::

~~14FA

:1.~~1~i9

~NFA

:!.I::Jt:.~.:.1

~::t4t-1

:.I..~.:.lt:.:.l.

~:.1qt-

.:.-=:-.::::

.J.. ..

C~:'1C2
~)4C1.

. .: D£1';:> 3:

t:.

~::t6t:1.

~.:.1:::.kU.:.1

A1.C~t

•.:.l:::'~~:I:::~

~:!::i~,,3:

:J_~.:.164

~.:.1$34

1.1.FA

~l~:::16!:;

~:15~:::16

€1!:i~::t7

:H:'b::::t
:11:::1 ?~:::1

~.:.1!:::tk18

2~(1

~!:::t~C

C40::?
~.34j.. ~i
050C'

..U:l (;::::

k15~:::1E

~~'14[:'E

.J.X'{ 5

~.:.1;::'2~.:.1

81.1...:b

.J. .~.' .. ...,.

~:':::':.I..'::::

1. ..::: 1;;.1 D

••1",=,.11...11...'

J;:~!:i~3A

~6:59:48

94E:926-99~.3~

TITLE:
REVISION:

SATURDAY. DEC

~~.

~976.

PAGE

:+::+:

~:;028

CUNtHK
CHECK CHECKS UN VALUE
e5/0~/74

ORIGINAL
e3/~5/76

NODIFIED TO RUN WITH PXRNTR
COMPUTER: 990. ASSE~1BL Y
ABSTRACT: THE CHECKSUM IS COMPUTED AND COMPARED
TO THE VALUE PRESENT ON THE OBJECT
:+:
RECORD. IF AN ERROR OCCURS. A NESSAGE
:+:
IS PRINTED AND KEYBOARD RESPONSE IS
:+:
REQUIRED BEFORE THE NEXT INPUT RECORD
:+:
NA'T' BE REAC'.
:+: CALLING SEQUENCE:
:+:
BLWP @CUNCHK
* ~IHI1STICS: WORKSPACE = CNWP (UNSHARED)
:+: ROUTINES CALLED:
:+:
ERROR.HEXBIN.KEYIN.OF'EN
CUMCHI<
DATA CI'1~"P
~·mRI.:.' ...

:1.1.08

16: 59: 4:::: SATURDAY, DEC 1.1., 1.976.
*8
948926-99101. **

94·?~.:r?5

*
COI'WERSION ROUTINE
*
*
053k'l
CONV\.oJS
05::;:10 1010010 BIN . . . L DATA e
053:2 121121121121
DATA 0
1d534 100010
DATA 0
~?I536 121010121
SVCBLK [)ATA e
>.:.'-'..:>;::1 1010';:'10
HSCVL DATA 0
1Zt53A €I 000
DATA 0
"'lOSt.: Idldldld
DATA 121
LIST
1:::153E 0C00
DATA ::>C00
k.1040 0De0
DATA ::>D00
10::::'4;;';: Idldldld
[)ATA SVCALT
~1544 121536'"
DATA SVCBLK
1:::1::::'46 FFFC
DATA -4
1:."048 e~300
DATA 0
1:.1::'4H 1211000
DATA 0
~;.10 ... ,_. Idldldld
DATA 10
~:''I54E 00121~3
DATA ~3

PAGE l.,e3e

WORKSPACE AREA
R0
R1.
R2
R3
R4
R5
R6
R7
RS
R9
R1.0
R1.1.
R12
R1.]:
R1.4

8INVAL
VALSV
MADD
SCCODE

BHCODE
HBCODE
SVCAL1.

BINARY VALUE
TEMP VALUE SAVE
LOCN HEX VALUE
SUPV CALL CODE
ASCII VALUE
BINARY ..... HEX SCC
HEX ..... BINARY SCC
PXRMTR SUPV CALL ROUT
SUPV CALL BLOCK PTR

HCNT
PCNT
CHOPC

R1.5

OLD WP
OLD PC
OLD ST

o
$

$$

;

;

a.

.x

4 4 .SQ#E£t- -

~XKLRL
~UNV~HSION

•

SDSMAC 947075 *8
16:59:48 SATURDAY, DEC 11. 1976.
ROUTINES
948926-9901 **
* TITLE:

_L..I..:!.1!.1

o

:.L:1.:1.1.

**

.J_J• .i'::.
.J...i..i....;:.

**

:1.:1.1.4

*
*
*
*
*

1.:.i..:.i..o
:.i..:.i..:.L6
:L:L:L(

:1.:1.1.8
.:... ..... i..:::-

~

J.J.':::'o,:.,

*
*
*
*

.J..J.':::'..L.

.J...J...::..:::.
..L:.L,::'''::.

1124

BI NHE~'~""HE~<:

SINH

*

HE>~BIN

k1::'.':::0 "
1,::157121"HEXBI

·._'_1.

J:::IO{J:::I

:LV:::,::,::

e:1!::i~;:00

C:~3BE

1'10 V

:1.:1. ::::'3
J_:1.54

1215~:'~l

GOC8

MOV
LI

05~·:·4

~';2e.H.

(6
k10?8

J..:.1~lj:E:"·

~;,:::.

.L :J.. O~:'

::1..:1.:::,6
:1. J.. !:i7

~'::'!:i

(31218
lA DC'?2

~:;57C

HE::1<>1<
~::'588

S'T't·1BOL.

1.1.66 '':'5:38
:.J.:Lt.:. (' 058A
:l.:lt.:::: l::l58C

00';:'l~

~:)::.o:::;t:.

1::.'1 1;;.1 1::.'1 l='

..I.J..J::.::.o

1Zt~.3IZt~.:'I
(~~-"('I~)

1.:1'?121 l::'590 01Zt~3121
1.1. "('1. 121592 1211211210
J...J..,' 0:::.

1::.1:"';0 ...

:11.·?3: 1215:36
:1.1.{4 121598
.1. ..1.. ( •••'

I::)::'~N

~1::.'I0{

e~.:.'tAC···

~3e06

IdI::.'lIdN

:1.:1.76 1Zt59C 121121121121
:1.:1. (' ,. , l::.'Io9E IZtl)0e
..LJ..'t=i

c

o

~:.1::'H~:.1

K7

~.:.'t009

:.t.:1.,..,~

05A2

l~0ee

.J.. :J..O~:)

~:)oN4

'0~jl,:,1~~'

l.H':::l..

~:''I5A6

":",00121

H:.N
ENDST

DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
r.>ATA
DATA
DATA
DATA
DATA
DATA

121
121
~.:.'t

121
121
121

7
S'T'MTAB
6
1.121
0
121

9
121
121

121

WRIZt
WR1.
WR2
WR3
WR4
WR5
WR6
lAIR 7
WR8
WR9
WR 1. 121
WR1.1.
WR1.2
WR1.3
WR1.4
WR1.5

SYMPTR
SYMNO
FLAGS
SYMNM
N5YM
VALUE
SEVEN
5TPTR
NWSCT
TN
N5BIT
RETURN
NINE
OLD WP
OLD PC
OLD ST

PAGE 12112132

~X~LHL

.::' TI'II::;UL
•
:tl.:~

o

I

SDSMAC '947075 *B
~6:59:48 SATURDAY. DEC
HBLE ENTR'T' VALUE:::: ~~489~~:6-99121:1. **

**

.J..j.~6

*
:+:
:+:
*
*
:+:
*
:+:
*
:+:
:+:
*

:1.:1.. 87
1.:188
~:1J::9

~~9121

:J..:J..:::t:1
:11.92
:J..:J..::;:t.;!:
:J..:J..:::'4
1.~95
:1~96

:1.1.9';:i.:J..::::'~

l.;;:~l2Ie
:1.2~3~

1.2~:.'t2

1.:::: kG
1.2€14

(

'"
,

.:;/

1.::::k16 05A8
1.::::1::.1? 05Af:

~:.'I588

"

:i.,:::~'::J;:;

~.:.1::'HH

~.:.1~'AC

"

:1. 2';:"9 05Ae
~2~12I 1215AC

C:09~3

:1.2~~

12138121

~~~5AE

12~4

0

L
0.~

WHERE 0 = DEFINED.

~

= UNDEFINED

SYMBOL FLAG

DATA SYMBOL
DATA GTSFL

WORKSPACE
START

MOV :+:SYMPTR.FLAGS
RTWP

GET FLAGS
RETURN

~o.IORD

GET SYMBOL VALUE

*GETSVL

:1. ; ;: 1.!:i 058€1
:1.. 216 05BI2I

~'.I~,)8:3·-

1.:::::1. ,-- 1::1582

121584 .-

DATA SYMBOL
DATA GTS . .·'L

~o.IORKSPACE

START

GTSVL

~o~4

:1.:::::19 1215B4

c~')ce

MOV

:12;;~~3

6~~'CC

5

1.::::::::1. 1215B8 C153
1.::::::::::~ ':-:t5BA 1213:8121
:1.:::::2:::(

1.::::::::4
:.It£.c~~

1.::::::::? 05BC
1228 05BE
~229 1215e0

e5/e~/74

ORIGINAL
COMPUTER: 99121. ASSEMBLY
ABSTRACT: THREE ROUTINES ARE USED TO PROVIDE:
~.
SYMBOL FLAG VALUE
2. POINTER TO SYMBOL NAME
3. POINTER TO VALUE AND VALUE
CALLING SEQUENCE:
BLWP @GETSFl.
BLWP @GETSVL
BLWP @GETSUM
STATISTICS: WORKSPACE = SYMBOL (SHARED WITH SRCSYM)
SYMBOL TABLE ENTRY APPEARS AS FOLLOWS:
5
Y
M B

:+:
*

1.2~3

~~~586

.

CHSFL

:121.2

~~~~

REVISION:

*
*
*
*
*
*
GET
*
*
GETSFL

~!.1.~::::

~976

SENTR'r'
SYMBOL TABLE ENTRY VALUES

:+: TITL.E:

..::'

:J..:1..,':::4
:11.:::-;::;.

~~.

121588~
1215C0~

:1.. ;;:':::?-0 '':'50:' cacI2I
1.:;~~:;~:l

t::.~5C::2

6~K:6

:1.;?:~::;~

~15C:4

e38~1

MOV

SYMPTR.SYMNM
NINE. S'r'MNt1
*SYMNM.VALUE

Rno.lp

*
:+:
GET S'r't1BOL NAt1E
:+:
CiETSNt1
DATA SYMBOL
DATA GTSNM
GTSNM
MOV SYMPTR.SYMNM
p,nJP

Ps I. X

POINT TO START OF SYMBOL ENTRY
POINT TO VALUE
GET SYMBOL VAL.UE
RETURN

I.oJORKSPACE
STAj;(T
POINT TO SYMBOL ENTRY
POINT TO NAME
RETURN

. ,t

. -;

42,..

pg A4pWX ..

r'r,ro...... nL..

SEARCH SYMBOL TABLE
i~~~~]:~i

o

:t:~:~2.:E:

1ZI'?

:1238
::t.:':;~39
:124~3

:1241.
L242
1243
:1244
1245
:1;;;:~46

:1.24"('
:1248
:1:;;:~49

:1250
125:1 0!:iC6
~::t~iC~6

0588'"

1.;;;?53: 135C8

1.25~~:

13~iCA'"

12~54

1.255
1;2!'56
1257 e5CA
L:::~58

~~~5CA

:1.26~j

::1..261
:1:;;:~62

'?I~iCC

16:59:48 SATURDAY, DEC 11, 1976.
948926-99';::11 **'

:+: TITLE:
SRCSYM
*'
SEARCH SYMBOL TABLE
*' REVISION: 05/131/74
*'
ORIGINAL
*'
1213/:15/76
*'
MODIFIED TO RUN WITH PXRMTR
*' COMPUTER: 99121, ASSEMBLY
*' ABSTRACT: THE SYMBOL TABLE IS SEARCHED FOR A
*'
GIVEN SYMBOL NAME. IF THE SYMBOL
*'
IS FOUND, AN ALTERNATE EXIT IS
*'
TAKEN. THE TABLE IS SEARCHED LINEARLY.
*' CALL I NI) SEG'~UENCE:
*'
BLWP @SRCSYM
*'
SYMBOL-NOT-FOUND INSTRUCTION
*'
SYMBOL-FOUND INSTRUCTION
*' STATISTICS: WORKSPACE = SYMBOL (SHARED WITH SENTRY)
SRCSYM
DATA SYMBOL
WORKSPACE
DATA SRC
START
*'
POINT TO BEGINNING OF SYMBOL TABLE
*'

*'
SRC
C1317

MOV *,STPTR,SYMPTR
*'
*'
COMPARE TO ENTRY
*'
SYt1CH.<
MOV @NSMBL,NSYM

13!:.iCC~ C:1. 2 ,?I
1215CE 1214EA"
....-'
1.264 e5D13 8~;:~80
Syr1PTR., NSB I T
.JLE EXIT
1265 ~j!'5D2 12139
1.;;:~66 e5D4 C13C0
MOV SYMPTR,SYMNM
:126';;- 135D6 6l3C6
S
SEVEN,SYMNM
1268 1215D8 [:048
MOV NWSCT,SYMNO
1269 05DA
Cot1PAR
1.:;~·7~1 l35DA 9D33
CB
*'SYf'1Nf'1+., *'NS'r't1+
1.;;;:?:l. ~35DC 161215
.JNE NOT SAM
:l_;;~?;;~ ~j5DE 1361211
DEC SYMNO
l35Ef.1 16FC
.JNE COMPAR
:1;;;~74 ~.?I5E2 CI2I9~.?I
MOV *'S'T'MPTR., FLAGS
:1;;;~"('5 ~j5E4 13!'5CE
INCT 14
1.~:~7E: ~35E6
EXIT
1.~~'?'? ~35E6 '33813
RTJ.oJP
1 '-:-70
*'
LOOK AT NE:X:T S'r'MBOL
*'
*'
:12::::1. l2I!"::iE8
NOTSAt1
c-'
:l;;;~:::;;:: 05E8 6';:~l::19
TN., SYMPTR
'1.283: f.15EA :If.1F';:~
.Jt'1P SYMCHK

:t;?6::?

. .::... I

PAGE 0034

POINT TO SYMBOL TABLE

POINT TO NEW SYMBOL
PAST END OF TABLE?
YES - E::'~ I T
PO I NT TO ENTR'r'
POINT TO NAf'1E
GET C:OUNT
ARE CHARACTERS THE SAME?
NO - GET NEXT SYMBOL
ARE CHARACTERS FINISHED
NO, KEEP COMPARING
YES - GET FOUND SYMBOL'S FLAGS
TAKE ALTERNATE RETURN
RETURN

.."

POINT TO NEXT SYMBOL
GET NEXT SYMBOL

o
.. 4.._3#

Z.

%2$# W.43

.<" • •

. .0$.4.

·Ck

t'XI'":L.HL...

I/O ROUTINES
•
1.28E:

SDSMAC 947075 *B
16 : 59 : 48 SATURDAY
. 948926-9ge1. **

:1..2:::';::-

0

1.288
1.289
1.2ge
1.291.
1.292
1.293
1.294
:1295
1.296

~~5EC

eSEC
0SEE
eSFe
eSFC
0SFE
~~6ee

e602

egee
eBee

*
*
*
IOWKS
SCBLK

€lese
0S42"
eSFe'"

I

DEC 11.. 1.976.
PAGE ee3S

WORKSPACE AREA FOR I NPUT . . . OUTPUT ROUTINES
DATA
DATA
BSS
DATA
DATA
DATA
BSS

RDCOD
WRCOD
1.2
se
SVCALT
SCBLK
1.0

Re
R1.
R2-R7
RS
R9
R1.e
R1.1.-R1.S

RDCODP
WRCODP
1 ..... 0 SUP ..... CALL BLK (PRe)
LEN
SVCAL2
POINTER TO SUPV CALL BLOCK

o
.x.uut. $. #4

$

,

.

.. ;

a

_ 2-

SPSMHC:

r7'i r::1.... Mt..

I/O ROUTINES
:t29::::
~t;;:~99

0

:1.300
:1.301
1302
1303
13~34

1305
:1:::.~1!:16

130·("
1308
:1.309 060C
131~3

~"::I60C

l360E
:1.:::a1 '.:.'1610
13:1.2 ~.:.'I612
1313 0614
:1.:::aA 0616
l3618
~:.'I6:1A

J

DEC 11, 1976.
PAGE 012136

* TITLE:
OPEN
*
ASSIGN A DEVICE TO A TASK
* REVISION: 1213/15/76
*
ORIGINAL
* COMPUTER: 990, ASSEMBLY
* ABSTRACT: SETS UP PRB AND MAKES SUPERVISOR
*
CALL TO OPEN A DEVICE
* CALLING SEQUENCE:
*
R10 = LUNO
*
BLWP @OPEN
* STATISTICS: WORKSPACE = IOWKS (SHARED WITH I/O ROUTINES)
OPEN
05EC'DATA IOWKS,$+2
TRANSFER VECTOR
'3610"
04C3
CLR IOPLUN
SET UP I/O OP
04C2
CLR IOC
I NIT CODE FOR 1....·0 SUPV CALL
C30D
MOV R:1.3,R12
GET CALLER'-S WORKSPACEPTR
AI
R12,R10+R10
022C
INDEX TO CALL PARAMETER
001A

(:31C
::t~;;::1.6 061C E0CC
1.31'( ~36:1.E 0419
1,3:1. 8 l3620 l3380
:t~j:15

94 7~3:l75 *8
16 : 59 : 48 SATURDAY
948926-9901 **

MOV *R12 .. R12
SOC R12, IOPLUN
BLWP *SVCAL2

GET LUNO
OR LUNO INTO 10PLUN
MAKE SUPV CALL
RETURN

~:Tj..~P

o
Uk.

.a

2_2

.. p ..

P>~r.:l..AL

1.····0 ROUT I NES
•

O·
'.

?,~,;

:1::~22

1.33:4
1.33:5

ORIGINAL
*
* COMPUTER: 990. ASSEMBLY
* AB::;TRACT: SETS UP PRB AND MAKES SUPV CALL
*
TO READ A RECORD
* CALLING SEQUENCE:
*
R1.121 = BUFFER ADDRESS
*
BLWP @READ
* RETURN PARAMETERS:
*
R1.121 = BUFFER ADDR+CHAR COUNT
*
R9 = FLAGS
* STATISTICS: WORKSPACE = IOWKS (SHARED WITH I/O ROUTINES)
~16;;-~:;::
READ
06:;:::;:: l::t5EC-DATA I OI.o~KS, $+2
TRANSFER VECTOR

:U36

'j6<7~6

O~~EO

~3628

121121:1.2 "
1.12104

1.3:24
1.325
:1.326
1.32~:;t

:1328

1.329
1.33~3

1.:$3:1.
1.332

13:3-;::'

c

o

PAGE 12103'(

R:E:AI)
*' TITLE:
READ
A RECORD
*'
* REVISION: 1213/1.5/76

::1..3:21.
:13::;:~::~

.

SDSMAC 947075 *B
1.6:59:48 SATURDAY. DEC 1.1. •. 1.976.
:7.148926-9901. **

~'362A

MOV

@CTLUNO. IOPLUN

.JMP

KEYFi:D

STORE LUNO

~~KLHL

I/O ROUTINES

SDSMAC 94712175 *B
16:59:48 SATURDAY. DEC 11. 1976.
948926-991211 **

13:3:9
13:4121
1341

o

KE'r'IN
KEYBOARD INPUT ROUTINE
** REVISION: 1213/15/76
*
ORIGINAL
* COMPUTER: 99121. ASSEMBLY
* ABSTRACT: SETS UP PRB AND MAKES SUPV CALL
*
TO INPUT A RECORD FROM KEYBOARD
* CALLING SEQUENCE:
*
R1e = BUFFER ADDRESS
*
BLWP @KEYIN
* RETURN PARAMETERS:
*
R1e = BUFFER ADDRESS+CHAR COUNT
*
R9 = FLAGS
* STATISTICS: WORKSPACE = IOWKS (SHARED WITH I/O ROUTINES)
KE'r'IN
DATA IOWKS.$+2
TRANSFER VECTOR
* TITLE:

1::::A2

1343
1344
1345
:1346
1.347
1348
1349
135121
1351
135;;~

13:53: 062C
:1. 3 !'.:i4 e62C "~?I5EC'·
,"362E 12163121"13:55 e63f1 C€'~Ee
~.3632 eeeE'·
13:56 121634
KEYRD
1:::;:5~;:O

~':'~634

[)ec~.3

:1..:;:~58

~.3636

C3eD

~':'~63:8

~.?I22C

1.359
1:::'~6~.3

1361
1.36;;~

C~-:

1363:
1364
1,36~'

1.366
136("J
:t:?6E:

:1:?69
1.3~;:O~~

r:r?1
1":~:·?;;;::

:1.37::~
1.:::i:~;·4

:13"("5

1.376
:1.:::r?7
::L3:l':::

PAGE 12112138

MOV

@KBLUNO. IOPLUN

STORE LUNO

t'10VB R[)CODP. IOPLUN
MOV R13.R12
AI
R12 .. R1e+R1e

e63A 12112114
1216::::~C C15C
MOV
~.36~sE (::1.88
MOV
~j640 e4C4
CLR
121642 ~~4C7
CLR
~.3644 e4C2
CLR
0646 0419
BLWP
A
0648 A707
12164A e64C
DECT
e64C C7'e4
MOV
12164E 121243
ANDI
';:~65e eeFF
~j652 881213
C
e6!;:i4 eeeE'·
~36~i6 131211
.JEG!
I2IE:58 12138121
RTWP
e65A
KE'T'PLF
065A C~~~EI2I
MOV
12165C ~.1f1Hj'"
12165E D~jC1
MOVB
12166121 12121215
Ll
121662 ~"3~.31216 "'
~:'~664 1214C4
CL~:
121666 1€.~eE
.Jt'1P

STORE 1.... 0 OP
GET CALLER"'S WORKSPACE PTR
INDEX TO CALLING PARAMETERS

*R12 .. BUFADR
LEN .. BUFLEN
FLGS
CHRCNT
IOC
*SVCAL2
r.:.~HRCNT .. *R12
R12
FLGS.*R12
IOPLUN.>eeFF

SET UP BUFFER ADDRESS
SET UP BUFFER LENGTH
HUT FLAGS
INIT CHAR CNT TO ZERO
INIT CODE FOR I/O SUPV CODE
MAKE SUPV CALL
INCR BUFF PTR TO END OF DATA
MOVE FLAGS TO CALLING WS
IS THIS KEYBOARD READ?

IOPLUN .. @KBLUNO
KEYPLF

IF READ .. RETURN

@PRLlJNO. IOPLUN

SETUP UP TO PRINT LF/CR

WRCODP. IOPLLlN
BUFADR.. LFCR
FLGS
PRTKEY

0·
."

,w.

Ii

. .t

...

Q

; . $..

$.

,

24444 .. 4;

t-·;':;!":·LHL.

::::D:;;:t'lAC 947075 *8

1.····0 F.:CIUT I NES

•

DEC 11.

1976.
PAGE 0039

F'Fi: I NT .... PR I NTN
PR I NT A RECOF~D
:+: REVISION: 03 .... 15 .... 76
*
ORIGINAL
* COMPUTER: 990. ASSEM8LY
* ABSTRACT: SETS UP PR8 AND MAKES SUP V CALL
*
TO PRINT A RECORD
PRINT - PRINTS RECORD WITH CR
*
PRINTN- PRINTS RECORD WITHOUT CR
*
* CALLING SEQUENCE:
*
R10
BUFFER ADDRESS
*
8LWP @PRINT
OR
*
BLWP I]lPR I NTN
*

:13::::~.5

:1.3::::6
:13:::::'('
:13::::::::

TITLE:

=

13:9~3
1::~:91

13:9:2
13:93:

*
**

1::?::::N
1395
1396 0668
1397 0668
~J6E:A

:1.:3:9::::
:L3:::;":;'

1.6 : 59 : 4::: SATURDAY.
**

94:=:926-99~~11

05EC~
~:~6('4

= IOWKS

(SHARED WITH 1 .... 0 ROUTINES)

TRANSFER VECTOR

..'

~~'66C
~:~66C:

STATISTICS: WORKSPACE
PRINT
DATA IOWKS.PRTCR
PRINTN

~~~iEC'"

C'ATA IOHI<:s.. PFnNCF.:

-TF.:ANSFER VECTOR

SETO FLGS
.JI'1P PRENT

SET FLAG FOR PRINT WITHOUT CR

eLF.:

FLGS

SET FLAG FOR PRINT WITH CR

t'10V

I]lPRLUNO .• 10PLUN

STOF.:E LUNO

~16·?~.:.'1···

:14 ~:~ ~:1 1::.'1 6 ~;. ~~1
:14 ~::1:l. fi6 "? ~;1

O,?'~34

:14~J2

~J6?2

H.'I~::''11

14~G

~:16~::'4

:14~;'4

~:'6'?4

J.4f1~i

~;'E;i'6

:14(,6

~:'6'?6

PRTNC:F.:

pF.:"rc:F.:
('I4C4
PF.:ENT
C:~~B::'1
0~.:.'110···

:1.4~r?

~167A

pF.:~·nn

1. 4~~:::: ~:1t:~'? A D~~'IC:l
:1.4(:'19 (:;IE:';:'C C::r.~3C'
141.(1 ~::16-;::'E t;:Q2C

1'10'·.·'8 ~·~RCODP .. IOPLUN
NOV
FU3 .• f<:12
R12 .. f<:1~1+f<:1~1
AI

STORE I.····O OF'
GET CALLEr::" S "~F'
INDEX TO CALLING PARANETERS

r·1O . .·'

*f<:12 .• 8UFADFi:

SET UP BUFFER ADDR

8L

I]lGETCNT

GET C:HAR COUNT

A
eLF.:
CLF.:
BU·JP
A
t"IOV

FLGS .. CHRcr-n
FLGS
IOC
:+::'=;;'·/C:AL2
CHF.:C:NT .. *F.:12
IOC .. 10C
PRE::0

~3714

~::t444
~::"990

1".

::t.1.4~3

07·86

1.1:::164
1';::16:3

121383

C:L.F"'

R

13825

a652

CB

I::NJ..~P

a81a

065~

B"r'TE

C:NBG

13745

a622
a848

et::~1216

R

121673

1~38

121563
a368
1.134
11.45

BUFL.EN

CI<:~;Ir't'18

13775
141a

aa'7a
13473
1135
1143
1132

eee5

R

a766
1359

eee2
I2I1.EA
e554
e564

BUFADR

(:I

R

R
R'.

~.3a41.

e4~5

~3425

(:HLP
CHLF'2

1a71
e7a1
1.418
a723
1ae6

PAGE

a4~3

BLWP

o

121838
';::1651
13839

SATURDAY, DEC 11, 1976.
948926-9901
**

e1.7C
12100e

8L
BLANK

~6:59:48

SDSMAC 94712175 *8

t',<:RLftL

O!:iDA

:1.:;~~6:3

1.273

~14::tJ;,

H8"?~3

';::1866

1.3'::;4

1149
112162

_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _III.!IIIIA!IIII$411#11

l.a65

_.4.___

112173

""-!IIII!
..111,••••
4 _ _ _- - - - - - -•..

-!II!;.1!!I-1I!4II.1II
... _.I1#1
... !II!_.!1111
.._ _" ' "

$!1111!.4

:',ly::;r'lAC 94 ('I.;r,;.-o *B
:16:59:48 SATURDAY .• DEC :1:1, :1976.
VAL.UE
DEFN REFERENCES 948926-9901

• ..... r::I.-MI.-

LABEL.

0

**

C"I'L.I...INO R
CI.Jr1CHt< 1'::
CUMPT
DATA

el!.~:12
~34F;;;::

13131213

0207
:1(149
13:1121121

~\41214

13799
:1057
131.80
0243
121291.
034121
0478
121487
058:1
0590
~3599

C

0

DEC
DECT
DEF
[:'EFL
DEf'tol
DEFN
DL[:'BI
DI. . DPT
DSBG
DSPEXT
DSPTCH
DSl·JP
DSWP2
END
ENDACT
ENDBUF
ENDLAL
ENDLPR
EN[)()B
ENl)Pf<:O
ENDST
Er-nADD
ENTB
ENTEF.:[)
FNTERR
ENTt'lSG
ENTPT
ENTVAL
ENTVL
EOF
EOI...!

1217613
13882
1389:1
:100:1
:1022
:1051.
1.099
:1:1.1218
:1.:1.7121
:1.1.79
:1.252
:1.354
13372
1.367
1312147
12176121
0769

R
R

1211212A
0121:1.4

R

et;!.~22

e2:1~;:O

1;;~76:1.

12I~'Ae

~32:1.2

el2lel2l
132:1121
,?t:2C6

l'32:1.:1121547
121653:

e366
121357
e546
121626
1214:14
121548
f:t545
1214121121
0454
12129:1.
12112148
106:37
:.1..'363
1214,'3:1

R
R
R

R'.
R
R
R

l?t2~3C:

~;~544

,3::l..E6
e:1.EC:
12I';:'1I21C
,31217;;::

12147l?t
,?t474

';:'16AE

:1.448

~33(1A

~37';:'n::'1

l301214

~~:1,.I2I:1,

~3:194
~325!:,':-;

~~29121

E

D
R

132:19
02:1.6

f<:

~?t:.t8:;-~

~34:19

R

t;!.~59C

Fr.'

P.

1210A8
'::1:1.CI2I

:11,76
121287
121448

R
R

l'3322

~:~7;;::0

13320

p'.

R

e4l39

04:1:1

:112182

:1060
01.8:1
0244
0292
0451.
0479
0488
0582
059:1
0600
08:16
0883
13892
:10:14
1e23
1.071.
1.:1.00
:1.:1.33
:1.:1.7:1
1:1.80
:1.253
:1.397
121426

:1063
0:185
0282
0293
0452
0480
0489
0583
0592
060:1
0838
0884
0893
:10:15
::1.12124
1.12172
1.:1121:1
:1.:134
:1.:172
:1.:1.8:1.
:1.290

:112169
0205 0206
0283 0284
0294 121295
047:1 0472
048:1 0482
049121 0545
0584 121585
121593 0594
06e2 e632
0848 0869
0885 0886
0894 0928
:1e:16 1e:17
:112125 :1026
1.12193 :1.094
:11.1212 1:11213
:1:1.49 :1.:1.50
:1:1.73 -1174
:1.207 :1.208

121048

0049

PAGE 0042

1.336

:12~::;t:1.

1.29::?;

0207
0285
0296
0473
0483
121546
121586
13595
0666
0870
0887
0929
1e18
:1.027
112195
1:104
:1.:166
:1.175
:1.2:16
:1294

12I~"76

0949

121982

:1.272

121733

12183~3

1219'('7

121055
012164
0076
012188
,?t:1.l2Ie
121:1.:1.2

0056
(-:te68
'?f0'(,7
ee89
131,(1:1
121:1.:1.3

el2l57
121069

12112158
1211217'0

,?t12l59

0e6~3

~~07:1.

007:::

~:::1079

13139121

''3139:1.
';:'1H33
0:1.:1.5

0080
1312192

0072
012184

02:17
0286
0297
0475
121484
0578
0587
e596
e679
0879
0888
0938
1e:19
1028
1.096
1105
:1167
1:1.76
1.2:17
:1.295

021.9
0288
0298
0476
121485
0579
121588
121597
0751
121880
0889
0939
11212e
1029
1.12197
1106
:1.:168
1:1.77
:1.227
:1.3:1.0

0227
121289
121299
121477
121486
121580
0589
e598
e759
0881
0890
:10130
102:1.
1.050
1.098
1:1.,'37
::1.:1.69
:1.1.78
::1.228
:1.3:35

1012161.

:1.39~::;t

0692

121764

:1.121:1.8
121654
:1.449
~337e

~\284

~q32

121667

f17:18

121666
121424
0774
13686
'J2t::6

t::~(163:

~3;;'?49

0f.n34

m..\57

~344::;t

~-:t';:'1'::t!:i

0~~158

~:::1463

~:~I2IA8

~"3;;~8::r

e369
,?t45::1.

2121(1,3

e1,89

~J557

~~965

';:'1(:~!::i~3:

~:::t'354

(:~'~162

';:'11216::'~

0(174
0086
'312198
(1::1.:1.121

'?t';:~75
e~387
e~399

1211.:1.:1.

. . IW.. 1m

0H~2

13:1.:14

i .

ast

,"~~:1.1214

121:1.:1.6

M44ki. __ 4Z·

~30·?::'~

1211219::::~

0085
1211219;::-

1;::1:108
(1:1.1.7

121:1.2:1.

~HJj9

_ .MM.4.4Wt..

lib

t-'XRLHL

LABEL

VALUE

•

16:59:48 SATURDAY. DEC 11. 1976.
SDSl'lAC 947075 *8
DEFN REFERENCES 948926-9901
e~1.22

:1.. 22~3

1211.31.
01.43
01.55
e1.64
01.8'7
e64e
e61.121
e371.
e2e1.
1.265
e384
e945
e296
1.274
eSl48
1.362
e564
a966
a944
e374
e693
1.443
1.445
1.41.3
121354
0425
e434
e69a
1.208
j. ;;:~28

1.21.8
01.1.3
1211.1.5
1.1.56
1.151
1.148

1.1.53
:1.1.42
1158
1150
0868

~31€1;2

1a7~=-'

0
ERR
Ef'~ROR

R
E

ESTPT
EVEN
E~::RF
GCE~-m
HE>~BI
HE~·~BIN

027A
0002

R
R
R
R
R
R..
R
R

~"?t5E6

eeeA
12147E
l2Iee2
0468
eee4
ae07
047C
0el2l1.
~341.A

e31.2
06A(:

1216e9
el2l45
e055
1.276
e1.92
121974
01.23
e96e
e1.40
0e75
a969
0a85
e88e
e7e5
1.446

F:~

~=-'69E

1.44~3

R
E

069C

1.438

R

05A8
e58(:
058e
1215AC
e5ca
0584

R
R
R
R
R

12I~345

~"?t0e8

R
R
R

HE::-~P

01211218
05?A
0570
056(:
0el2l5

1.2~36

1.226
1.2j.5
1.2€19

0

0692

e692

e776

e776

0S14S1

094S1

121e

1.3:68
e71.SI

1.3·77
e722

1.4e1.

1.41214

1,41.4

141.5

121944

e975

0363
0786

e996

1.~~1.7

1155

e696
121839

e698

€17~~~9

a71.1

12I'.::a98

1e.~59

11216121

.;:;e4:112161218
086121
e932

11.44

1157

144:1

e642
e729
1.e1.8
e845

121644
0763

a684
(1'766

'.3687
e·... ·-:···
,. .::.. .

e845

0854

e854

e397
e449
e.86e

e398
e454
0954

e411.
€1456
e963

043e
e555

23:~31

1211. -,."',~~
'3:169

1213:F6

121853

~"?tl?eD

r:.~~::'17E:

J:oe

e296

12168e
121825

231212

I N~::: I [)

013:0
121142
121154
01.63:
121186

0673
121817
::1-12162

Il...SI]

~"?t3FA

01.2S1
121141
121153:
0162
1211.74
0603:

0667
12181121
1e61.

lL.CD

R
E

01.28
12114121
121152
1211.61
e1.73
021.2

~3752

1[:."1"

INEf;,~

0127
1211.39
121151
1211.6121
121172
021.1.

12166121

€n3~:>4

INIT
INPT

01.26
013:8
121150
1211.59
01.71
02el2l

~~1.25

12I~:>45

~::'€193

R

013:7
121146
1211.58
1211.70
e1.SISI

121937
0565

~:'Il2Iec

0121a6

INC
I NCHI<
INCP
INCT

a1.24
0136
121145
121157
01.6S1
e1.Sle
0861.
1079

1~319

HU)

'31211211

01.23
1211.3:2
121144
121156
e165
e1.89
e74e
e955
0423:
0276

~"?t891.

HE~q
- _.;..1 _.

0992

03;"5
0639
1.0'78

:1084

0695
121788
:1000

0696
0792

0698
0792

121701

0702

0708

tZf7e9

07:10

121548
:1:152

121654
:1156

1.08121
1316
1408
1.335
0407
1.074
0983
0833
:1265
0568
0356
0645
0794
1402
121572

0611
121:180

06~?I8

l3'73~3

0·794

12139:1
:11.43

_M04#

c

$,

.

r.~"f,~.l

:::.U::;:;l'lAC

... Mt.....

VALLIE:

o

94~;"k:r(0

I)EFN

1'10',,·'

:16: 59: 4::: 5ATI..JFWA'T'..

:t:E:

REFERENCES
~:~:::::4~3

~~~:3:4;;:::

'n4~i

e.C4·{'
041.1.

';:'4~34

948926-9901
~:G~~1,

~135~~

&;::13:tS::::

~3369

';::1371.

03'?3

(1421.
0555
0696
0722

~::'~428

~:::143:5

~3437

~3438

05'{';;;::

';::162;;;~

~:tE;98

f,1702
0732
1081.10
121931.
0994
1.1.36
1.1.61.
1.2~;:O4

(1623
(17'.:'13:
0745
1081.8
0936
f,1995
1.1.37
1,2:10
1.31.::::'

r·1f':KDF

p

t'15END
t'lULDF

0866

~~978

~~~989

099::~

11069
:11.53
:1263
136€1
0409
0981

:1e8~3

1.1.55
1266
1361
0566
1060

1.1082
1.1.6€1
:1268
0724
1143

1.3:'?4
0725
1.:156

10726
:1357

0680

0688

0703

0706

H710

0'(31

0752

0789

0393

10768

10103

0772

0882

1263

12710
10651.
0679

10939
0751.

0759

08:16

0028
1030
:1338
0819
1144
0392

0:175
1088
1.379
0830
1.155
0767

0278
1109
1.424
0832
1157
1002

03010
:1164

10466
11.82

0491
1234

0874
1285

0895
:1297

0834

0836

0839

0441.
H770

0453
0782

1005

:.1..4€16
0362

103810

0396

10455

0932

0936

0940

0946

0961

0967

0981

10988

072:1

~~:3::q

;;::3~33

01.71

~)63::3

0~~3:;~

~~7E:1.

121';:-'6:2

~.376!:i

~~243:

';:~992

H~)!:i~~

~.:.~ 2~ 4 :~~

NEG
01071

0633
1;;-~2~::1

NINE

~)'::1~'::1C

e.U32

~:'0~38

~J~392

:.1,,~:::1~34

f14EA

:1..:;;:::::;:1.
01::1:1.
1026

0350
:1;;;::71
:1.264
0684

N::::;l'lBLP
r·t:'::8 t'l

':'n::'~l;n

t;:"~87'

~:~94E;

l::te.~~?t4

~'t1.25

NWBIAS F.:

04E~-:::

N~·~LOC

~31,EC:

11022
10475

:1263
0633
0632

NeW

'I

NOT5At'1 P

N:::;;E:IT

~35E:::~
~)~:)~'::1A

F.'

F.:

NW~:::~C:T

r'J:x:~::Nt1

R

f1:l.BA

~:~442

'3427

F<:

';)6~3C

:t3:(~9

~::141.;2

OPNCAS F.:
CII.JrCK
R

';:'~::l.74

':j4H~1

04~)7

';:~5:~~E

:t ~~185

0076
0116
0H45
:.1,,4 0!:i

:1.J~17 4
H002
1.1009
131.9
08:18
1142
0349
1.4 ~~1:2

PAGE

o

~.::t e.~ e.~ :::::

':~';:~k~C

E
f;.:

':~6'?6

P
F.:

~;~69A

:14:;;::~~

:14;2~:''I

0668

F.'

':~IS6C:

1396
1398

043:1
0289

;;;~~i:f1!'.:i

~~~:17::'~:

t;,954

';:HH~;~

~;~;2~::16

':~m~6

H059

:1.3:"(4
0353

':f3::::::2

~f?('i

';:~7~.r?

:1..:::::9';:::137::::
:.1.. :::(.99

"',

F.'
PPTCF.'
R
PRlKF'r' R
F-'RfNCP F.:
Pf':·l·~P"I·
F.:
F'l F<'
PT PPT

123:~:::1

13:55
1.419
10729

':~~::'~08

OPEN

pC
peNT
f-;'F.:CF.:L..F
PPEt·n
PF:'E::<:T
F"f.:' J NT
Pf<: I NTN
PRLt'l
PF;':L.UNO
f'f<'r'J"IN
r'f<:NTC'.....

11.40
:1221,
133:6
1411.
0728
1408

0961.
1.10('14
1.1.42

~;~::::3 7'

Nt'1t'15Ci

N~::;;t'lBL.

1.4k~6

~3998

~3836

:.1,,~:::16~i

NF~·~L.CIC

c"'· ·

1368

0'{,~;:O2

10834
(1946

~~95~::''I

l::t~:::1!':,i6

t·l'·... W·l
NAt'lE
NA t1t'1 SCi P

10397'
0449
0684
107'1.0
';::1'{,87

0854

'~~71.:1

~~'49::::

03::::::1
0439
'3673
07'39

073::1
(1792
086'('

~::'~463

~::'~691.

~37'ge

MOVE:

1.9'(6.

066(1
0'('36
0756
0825
0944
10997
1.1.38
121.9
13:1.5
1.409
0727
1.375

~:~456

'::'~688

€1::::45
10963
:10!:j'?
:11.52
:12!:i8
13!';i8
104106
0763

DEC 1.1...

**

F.:
F<'
.J
R4
R5
R6
R""
.,'
R8
R9
RD
RDCOD
RDCODP
RDRBF
RDRL
READ
R
REF
F.:EG!LE F.:
RLRCi
RLVL
R
RG~LB
R
RG.!LP
R
RT
RTN
RTWP
S
SCBLK
SCCODE
SDF
SETLP
SETO
SEVEN
SF LAGS
SOC
SPRNT
::::;PTR
SRC
SRCSYt·,
SRL
::::RSt1
STLB
STLP
STPTR

R
R
R

~301212

121622

e163
e164
e165
121152
121153
121154
121155
0156
121157
1211.58
e159
el2l84
121199
121136
12112154
,,12199
1.334

01211216
e4DE
0eF8
121I21E2

121394
e:H:.'G
11212121
12136121
121351.

1211211218

121146

~3146

1215 F 121
1211211213
e3Ae
~.33DE

1211211216
~j~?II2IC

1292
121111
121785
0835
121127
121'364

121368

121369

1314

131.4

1359

1359

1313
1367
1.313
121956

131.4
:1.368
1358
:1.1211216

1.315
14e9
141219

1315
141121

1316
1411

1.358
1418

1.359

1.36121

1.3~;6

121344
121931
12ge
1357
121381
112157
121556
12112145
12141213
112173
112172
121364
121355
121337
1448
121464
1232
121443
1295
1138
121777

121345
e961

121346
121963

121347

121557

121965

e384
1.e8121
121964
012146

121397

1214121121

e41212

e41215

e41216

121456

121458

097121
1318
122121

11211217
13'72
1231

112186
1423
:t267

1.146

1.162

:121.1

1.~~;~?~.

:1,282

:1.44('

121371

0372

121373

121421

121773

121886

1159
1.365
:1,,294

1.41.7

121'71216
121729

121721
121730

1217;;:~2

121723
l3732

121(:;::4

121 7;;-!. 5
121'788

1211211217
010A

12Ie.~91

F.''.

K:~67

~3365

R

0~~'tF4
12I~~u39

'.::t~~H39

s'",leALT E

'?Ie.~45

..

E

1.(196
1211214'::

11.~~G

~:~ '1/

E

~;~l~'t46

';::1344
121691

::::;',lC:I.oJP
~::~'~/F"r

~

~::1536

~;1~3~~1~j

121(173

121655
1.277
121977
1153
141211
:1. 267

~~1356

1.258
1139
131.7
::1..102

:~;VC:F:L..'<

c: ~::; F.~

121872

~3426

~,5C6

'~~12I~~17

12129121

e83~~

12142121
1231

~3~'=~E:('t

1213:58
l"::l128
1211.14
121145

12I~346

121366

1257
1251

121433

PAGE

**

121359
141121

1215CA

R
R

l31A~3

948926-9901

121357
:1.41121

~jl2l1217

R

::1..6:59:48 SATURDAY, DEC 11, 1976.

*8

F.:EFERENCES

1.3:16
121429
12137121
1253
121685
0569
121947'

S·...·CAL:t
::::;VCAL?

0

94~7e75

[)EFN

~'3346

1217~?'6

121702
,'3727

e7121::::~

0728

u

#

$ ;

0731

tJ

.J

1!.~787

. 4U #4PW

#. 4·

... ---- $ ..

SDSMAC

r-;.:;ro.:LHL.

'~-'AL.UE

L.,ABEL

o

947075

DEFN

S~'~F'B

:::Nt-18

~3~:1(14

012188
1165

S'T't-1CHI< R
5 'T't-lN1'1

';:''I5CC
f1I!.103:

1262
0124
0122
0056
0121

~:Nt-1NO

'.1001

S'T't-1F'

~301!.G

SYt'lPTR

1211211210

121291
"rAI3~3

R

TAG~'::1B
TAG(1C:t,~

R
R
R

TAG:1.

R

'rAG''::II::

c

1217::::9
1214[:15
0978
0:397
121285
0949
1283:
121435
1220
1268
0373:
121285
1219

16:59:48 SATURDAY,

~:'978

tj,(9121
112161
0979

948926-9901

~::129E

t~63:~:1

~3;;::E:4

121641

~':;6J5

~:'1643:

0629
1:::1579
1215:::(:1

~~2CE

121664
''::1659

"rAe:;]:
"I'AG4
TAG!:i

'3672

~3581

~::J2[:'A

~:1rS7(=-

0582

1976,
PAGE 0047

~~~7-91.

0981

0989

12199121

0991

121993

0994

121995

0296
0989

0435
0997

0691
121217

0692
1216

0721
1227

121776
1252

121787

0790

0435
1221
1272
0421
0285
1230
1173

0691
1230

0691
1231

0787
1266

0787
1267

121997
1270

0997

1219

0423
121721
1258

0443
0721
1264

0790
1266

0790
1274

0989
1282

0989

1210

0590

0591,

0226

t.B4E

121744

€15::::?.:

~33:5~j

1::~749

~::'1584

f)79:3

0~i85

'fAG::::
TAG::;'

~::13:E:C

08~:13:

"35:=~1::;

03:[:4

~3814

~358'?

'rAGA

r:cc;:?

~::18~::.t9

~::'1595

TAGB

t;;:?::D2

€1:?'~~~~3

TACK:

(;:13:D~j

el:::24

0596
1::;5::;'7

TAGD

f:GEA

~3844

~:15::;'8

e6~17

1.356::::

~j571

'~553:

~36r:10

TAGE
TAGF
TAC:iI3H
'l'DAT

~:1615

~)6t.U

1084
0602

.;:,tf:n:1F

e~~8~3

0,(':::;::3

1!.~:33::;-~

~3834

TEt-1P

t.31~H?t~3

~::'1~:'153

~:14~36

~:14~38

~34r:19

(159A

11';:>5

~::1443:

0977

~~~3.;:,m

~7.1:l..::;'5

R'"

11.

~j998

TAG6
TAG'?

lEF"-:t-l

DEC

121624

t~12CC

e_
rr.,

**

t~1621

TAG;2

TEN
lEi-a

o

*B

F"-~EFERENCES

~3594

';~4!:i:::

' :;::1.. 79

121216

~?t256

0262

TGFU)

f:1566

f:1567

f:~569

1;:.'1224
02';::'4
05'(-';:''1

TIlL

0001.

0027

027'?

0465

0873

1008

0976

121982

0992

0993

0994

0995

1,143:

:U.54

::1.156

11.61:::1

1,161

. 44.MJM4.JWM

. 41.444 ".

'T t-1F'

~:~0f:15

TN

~.:m~39

"I'(JPI)AT f;,:
fF'F'"r
p
1..1 I):=':

'':''1(1(18

UL)~:::;r'J

F.:

Ur'J[,:oEF
UNDF'T

e_
rr.,

1J::;':f.':F'C

F.

0089
12113 (3
'':;292

(:'14:3'('

~::t~::1::::.E;

~:~2;;:~E:

(:~44~:~

~71~:~::::.A

~~1;;-~27

~143:6

~:'I~'?I;2F

~~1;;~;~~4

1::'43:~::1

~3~~AE

~~10f1~:;'

0218

1087

1163

~233

1;;:::3;;~

~:'1';:'16;~~

~N2~Z1

~X14~i'

~;~463:

On~J1,

[U)J9

:t1.4:1-

VALl ,If:

HOD5

~::1:1..;;;:6

l;;~;~j.

i'~R(Ol)

~;jB(10

~:1;'~ (:1 ~~1

:1;;~~:;'1

L'~f<·t:UDP

~::1~:~(:n

~;~::L::r?

13:75

_" 44#.

J

;;;L##.$#44..

" ".,,,4i§.,,.#44,#11..M4-_.W44#-

-:0

-

-

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

.._---- _.

.

~

Al
APPLICATION
NEXT ASS ...

REVISIONS

USED ON

LTIIII

A~EO

DATE

OI!!IC"""ION

7506

0

,

.
.

'

"

,

,
"

NOTE:SOURCEAND OBJECT .ON
DISC IN SDP 948931.

,

,

-

.

, '

0
'.

REV
SHEET

lA

REV STATUS
OF SHEETS

REV
SHEET

UNI..~SS OT"~_IS~ S"~CI"IED

DIMENSIONS ... ~~ IN INCHa.

OWN

... NOI..ES ~I'
J "LACE DECI .. Al ~ 010
2 "LACE DECI .... L + 02

C ....

TOI..E~"'NCES

ID~NTIf'YINQ Nu . . .a",
SHOWN IN .... ~ENT"E.ES

"O~ ~~"IE~~NCE

ONLY

INT~~ .. IItET OWQ I "
.. CCOIltDANCr WIT"
MIl.. STO 100

C

n T1JRNFR 1_r:._l'7TtZ

ENGR

t:' .

' ,:\\.At L to,"'''') - I 1- r

I"(O~"O~::REDT
TE>~T ED I TOF.:
ORIGINAL

:+<

*
*':+:
*:+:

~301219

PAGE

..

>-fIl......."... ~{,

*

. 03: ..... :15.·-'76

1'10D I F I ED TO RUN WITH PX9MTR, THE PROTOTYP I NG
S'T'STEM AND 7llASR PROGRAM DE . . . ELOPMENT SYSTE,..,
DEBUG MONITOR
MODIFIED FOR INCLUSION IN MONITOR
ALONG WITH THE TEXT EDITOR.
COI'1PUTER: 99121.. 99121 ASSE,..,BL Y -1'1 I RA ASSENBLER USED
ABSTRACT: P~<:F.:EDT IS AN INTERACTI . . . E PROGRAM FOR EC'ITING
SOURCE OR OBJECT CODE. THE USER MAY GENERATE
NEl·J TEXT CIATA FRO,.., THE KEYBOARD OR /'tAY READ
I N E~'~ I ST I NG TE:"':T DATA FRO,..t CASSETTE. THE
TEXT DATA, NEW OR EXISTING, IS READ INTO A
BUFFER AREA AND MAY BE EDITED BY ADDITIONS,
DELETIONS. OR CORRECTIONS FROM THE KEYBOARD.
THE EDITED DATA MAY. THEN BE WRITTEN TO
CASSETTE TAPE.

:+:

c

jJ~32:5

:+:

'2'ia:~~6

:+:

1~1(1~2?'

:+:
:+:
:+:

*

PROGRAM FUNCTIONS:
1) SET UP COMMANDS
2) POINTER COMNANDS
3: ::. E[) I T COt'lMAt·mS
4) PRINT COMNANDS
5) OUTPUT COMMANDS

o
.4#4A.C._

~

p;:~TLA[:'

E:SS

2

R199

():15~~1

O;;~O(1

~3:1.5:2

8SS
8SS

2
2

121;;;::1211

~3:1.54

BSS

~~12~:::J~~

Ol~56

2
2

BSS

2
2

~J::L94

0

1211.9~~~i

L..INA[:t[:t

f.J~:;S

1212';;:'::::
020::"

0164

~D;::::J..O

1~116t::

CUF.:NO
PRLAD
SAVF.:TN
SLoe
SLINPT
L..t·1L
t-lA::<:L.. I N
PF.:'·/L I N
5',iPF.:I·'·1
5A'·,.'t·1F.:G
FS[:r
SF.:KNT

I~:'~::i:l.

121:1..'=:::;::

S~:;I)

021.. 2

I~~::l..6A

1;::i~2~L.::I:

0:1.6(:
f:.1:J.. 6E
l2Ii7121

F::·~iJ

1~~J. 9~?

~::I ~:':: t.·~.1

~'::1:1..ge

INL.NNCI

TEN
1~,OI:::'~~
ANCHOF.:
1~10A4
INTLPT
2?('1F LL..HlIT
IJA~X:'
LFCR
I~H::;:4'"
LF
~31::::!:; ..' CF.:
:~:O(1[)
SF'CR
1~1(10A

BELL..
LFE
CF.:E
EOF
IOEF.:F.:
BINA5C
'iEA
CONT
TEF.:t'·1
TAB

LOCATIONS IN WHICH MARGINS
AF.:E SA',lE[:'
FIRST STRING DELIt-lETER
STRING CHAF.:ACTER COUNT
SECOND STRING DELIMETEF.:

2

E:S:~;

F~::[)::(r

~~~:1.

LINE NUM8ER OF LAST LINE MOVED
LINE NUM8EF.: OF LAST SOURCE LINE SF.:

2

F5[:';:<

O:1..·?;~:

LOCATION TO SAVE LINK REGISTER IN

~:;:

.? ,::1·

eI2:1:;:::
02J..:::;I

0

.-'.

121:1. ,':1· 4·
O:l"tf;
121:1. .::1·::::
O14F1

():1.. ~::I

LOCATION OF FIF.:ST STF.:ING DELIt-lETEF.:
LOCATION OF SECOND STRING DELEMETE
t-lOVE RELATIVE COUNT
LINE NUt-lBER FOR INSERTED LINES
CONSTANT FOR NUMBER CONVERSION
POINTS TO DUt-lt-lY LINE
INITIAL VALUE OF LINPTF.:
LINE LHlIT
LINE FEED~CAF.:RIAGE RETUF.:N

....,
.:::.

>:3':;''1(1(1
:10

F'GEND
PGEN[:'+4
9999
:>~3A~3[:.

LFCF.:
LFCF.:+1
>2(1~3[)

SPACE~CARRIAGE

F.:ETURN

SPCF.:
~3

7 .. 1.2., 3:f,1., 3:2 ..

EG!U >~3,?
EG!!...! >0A
EG!U :;:'~:::1D
EGlU >2~X1(1
EGlU >4~3(1(~
B'T'TE )3:~)
B"r'TE ... '.......
B'T'TE ···C··'
8'T'TE "'T'"
8'T'TE >~:::19

(1

CURRENT PF.:INT POSITION FOR TABS
TAB SETTINGS BASED ON e~59

BELL
LINE FEED
CAF.:F~ I AGE F.:ETURN
EOF STATUS
1.···'0 EF.: F.: 0 F.: STATUS
CONSTANT FOR NUMBER CONVERSION

t'1I PA99(1

1··?:;/"'::t::.l) I

l)AHi

o

fiF£H

•

~'24:?

:+:

1~1~::4'::j.

:+:

~?1~24~i

:+:

fl24 I;::

(119'=1

1?1~)1?1(1

(i24("

~:H9C:

e~:::le6

~2f2t:+::;'

(1250
02!::il
121252
0253

(1:19E

e~?n)7

(1:1.A~:'~

121(1121:3

elA2

1214121121

~Z125'::f.

121256
~3257

~?HA4

(12!5::!

(ilA5

1211;:\
121[:.

~~ ~~~ !::i~;'

~?19';:K1

[1;;~f'::0

e8~:::1e

~);;~61

258/76

PAGE een37

PERIPHERAL DEVICE DEFAULT LOGICAL UNIT NUMBERS

I1214121121
:+:
:+:
:+:

((255

'",'2L:1
:1.2: :13 : :1:1
948927-99121:1**

END OF PROGRAM

MONITOR SUPV CALL CODES FOR 1 ..... 0

OPNCOD 8 IT'TE
EOFCOD 8'T'TE
RDCOD E';!U
E';!U
~o./F.:COD
EVEN

>121121
>eD
>1219121121
>1218121121

OPEN
END OF FILE
READ ASCII
l·JRITE ASCI I

:+:
[126:::~

:+:

~;:t;;-~64

:+:

DEFINE SUPV CALL XOP

~)~~6~)

c

o
$_

1U4

a

.4.4#4.«

04

fe' ;:.:; F.: E [:0 T

:t2 : 13: : :U.

PAGE 1010108

25:::""'76

I'IH I N [)P I '·,.'ER

•

t;:~ ~:: "? ~5
(~~~~'?6
~3;;:~·{~;:t

027::;::
el;?~::'9

la2:~;:O

::;:::l

0;;;:::::::::::
(:12::;::.::1·
1;~1;:2::::6

02:::::7
OZ~8::~

la::l.. Fi6
~?1:1 f=t:::

02EO
la006 ..

I~H.RH

~~16R~?1

~~11.RC

~L0412t

()::l..HE

~J2EO

(~:lBO

00~:,6

O:1.E:2
f11.E:4
0:1.E:1:::
I)J.E::::

~?13~::lf1

ORIGINAL
103/15/76

BL

.'

(HNIT

INITIALIZE PF.:OGRAM

P ::.:: F.: E [:, T
..'

O:l.Cf-i
01.CC
O:1.CE

ClR

(!iEOFlG

INIT END OF FILE FLAG

04EO
(:J:1.:1. ::::

ClF.:

1]lE::::L.

..

~~14E~J

I~U.C::;::

INIT STATUS

CL.R

1214E~:::1
~:::1l5C:

~:::1114'"

1~1:1.Ct::

I t'lA I NRG

L.H'II 2

~'f:1BH

(1:1.(:2
0:1.(:4

UO~P

0(~1~?1;;;::

1;:jJ.E:C
OJ.BE
O:1.C~?1

o

RE'.,.' I S I ON:

'

~~1292
1~129:3:

:+:

START/PXREDT
MAIN DRIYER

MODIFIED TO RUN WITH PXRMTR
COMPUTER: 9910. 9910 ASSEMBLY
ABSTF.:ACT: THIS IS THE t'lAIN [:.F.:IVER FOR P;"':F.:EDT.
THE FIRST TIME PXREDT IS EXECUTED AFTER
BEING LOADED. START WILL BRANCH TO
INITIALIZATION SECTION FOR HEADING AND
MEMORY SIZE INIT. IT WILL RETURN TO PXREDT
UPON COMPLET ION.
SUBSEQUENT EXECUTIONS WILL FALL THROUGH
TO PXREDT. THIS CONTAINS INITIALIZATION
OF FLAGS. POINTERS. AND BUFFERS AND THE
MAIN DRIVER LOOP WHICH READS THE
COMMAND LINE AND BRANCHES TO THE
APPROPRIATE FUNCTION
C'EF EDTCSF.:
EDTC:SR
::::TFiF.:T
I NIT l·JOF.:I+9

(1;;::5::::
025A

1:3FA
046(1
(13:FE'"

f2C 5 121

fa2~iC

A~:;:E:A

025E

C;2A11
(12BIZ1'"

~::'1;260

~)4Eel

~:~;;::62

~::'113:::'"

(1264

~)5A(1

~3;~:':':;6

~:11.3::::

0:3:53:

~::126:=:

~341A

(1:~::54

(i~~6t1

~::r::;:55

~~I~~6E

~~1J:56

0~;~?(1

f;:'142~)

~:12~:=';;::

~:::1F:::4

~32?4

06A~3

t1;;:~"(tE;

~:::12C:E

~3;;~7:=:

I;:'H):14

~~I::!:6C1

(!~;:I:::e;

1~1.3:

e: ";: -

R10.ENDLST-CMDLST

CB

@CMDLST <. R10) I @CPBUF

...TEQ
DEC

SUCCES
R10
CI'1P"':
@OPERR

FOUND
IS IT ILLEGAL?
NO. NOT YET
YES

R10 .• R10
I]lROUTAD <. R10). RiO

GET ADDRESS OF DESIRED ROUTNE

JOC
B
SUCCES A
NO'·,,'
CLR

I]lCC

INC

I]lCC

DE TERM I NE COMI"1AND

SET CHARACTER COUNT TO ONE

BUJP *R10
I:!'EXTFLG.. R12
t'lOV

E::<:ECUTE COI"11'1AND
l·JAS IT QUIT?

,.lEG!

NO
QUIT -- WRITE END OF FILE

BI.,_~·JP

Cot1NND
I!tENDFIL

BL

1!tI'1SGOUT

C'ATA

2~)

,.'
",

~.::t::;::~;9

03:6:1.

LI

.,'

C:3:;2(1
(1:1:1.::: ",
:13:DB

(C:5::::

PAGE 0010

258/76

THIS ROUTINE DETERMINES WHICH COMMAND
HAS BEEN SPECIFIED AND BRANCHES TO
THE APPROPRIATE COMMAND SUBROUTINE

Ct'1PR

0;2AO'"
0(16E'"

0~~6C

CI

'·/;2L:1
:1:;;:: : 13 : :11
94:39;2'{'-990:1**

',lE]":

PRINT END EDIT MESSAGE

ENDACT
(1;;:?A
027'(:

C:~~::=::':::

1'10'·.,'
ACTION., R10
BLHP *PFHN
I]tGETANS
BL

~'::I;;:?E

(14:15
12t6A(3

t12:::1~1

121;;;~OA'"

~::1 ;;:~ !::!:;~

(12:::: A

~::12:::4·

I2tOC;;~

~32:=:t:

:1~~:F9

f~12:=:!=:

9:=:;;?~Z1

~)t;::1C2'"

(I~::::C:

01,97""

~~12:?E

1.3:~~f6
::::r:=:;;~t::1

f~1~;~9;~~

0@::2

INPUT RESPONSE
A~N

CI

F.:1~).

.JEG!
CB

a·mACT
I!tPBUF., I]tTERt'1

NC!.. ASK AGA I N
TEF.:t'1 I NATE?

.JEG!
CE:

EPE:>~IT

I]tPBUF .• @CONT

'T'ES, E::'~ I T
CONTINUE?

PBUF

RESPONSE?

.,'

f~:12:=:A

121;;::9(1

TERMINATE/CONTINUE? MSG

,,'

0294

~::H96'"

!;~) :::~: (: ::;

JJ:;:::S16

16Fl

I?!:? t~; :~I

~~I ;;:: ::~ !::

f;:'146~~1

''::1;;;::9A

faJ.AE'"

';:~;;~:::aC:

;;~FE~'::I

O;;~9E

O:Ht:;;:'"

.JNE
B
EPE::'::IT ;,·:;op

ASK AGA I ~J
RESTART EDIT

(gtP:x:F~E[~T

NO.
NO.

I]lENDPRG., :15

RETURN TO MONITOR

ENDACT

o
£i MeL.lS .,M "

X$· i _it

.Af!

P;',':F'EUT
i"IAIN DPI'...'ER

1"'1 I

F.:A99f.1

•

'::1::::72

0

:+:
:+:
:+:

12137:::
t13~?4

()3:'?!5

~;:J2A~:::1

~:::1~i:~?6

03:-;:'7

la2A:1,
02A;2

[(3:7:3

~:::12A:3:

~3J::::4

~32A9

1~~3::=:5

O;;;::FII4

4;;;::
...;,
4-::'
44
45
46
49
48
4(:
4D
5(1
5:1

~'3E.:6

(t~~A8

52

fl~~::=:7

~:::i2AC:

5:::'~

f.1 j: ::: !:!

~321=t1)

54

1~1::::::::9

1~1;;;::AE

55

~:::IJ~'?9

~32A4

0J::::~3

(12A5

~::'I3:81,

~~t2A6

~~13~:::;2

(12A7

1213::::3:

~::'1:;:~A:::

121390
(G91.

C:

,~,

'''''!I.-

'-,1r=o
.:.,._1
......... ( 0

PAGE

0011

LIST OF COt'1!"lANDS

CI"'IDLST 8'T'TE
8'T'TE
BYTE
8'T'TE
8'T'TE
8YTE
8'T'TE
8'T'TE
BYTE
B'T'TE
8YTE
8'T'TE
8'T'TE
8'T'TE
ENDLST 8'T'TE
*
*

~:n:92

1'::-- : :13:: :11
94:::927-99(1:1**

V;;~L:1,

"'E:'"

",c",

80TTOM
CHANGE

"[) ",

[.'m~N

"'E'"
"'F'"
", I "
,- 1-< ,"'L'"
,- t'l'"
'-P'"
"G!'"
", f':"

EXIT
FIND
INSERT
KEEP
LIMITS
MOVE
PRINT
G!UIT
REt'10VE
SETUP
TOP
UP

,,'c·,'

-'

"'T'"
,"lI'"

LIST OF COt'1t'1AND ROUTINE ADDRESSES

:+:

t;:1::~93:

028(1

'~C~94

~:::12E:2

~~~J:95

(1~:;::84

~:::1~i:96

(1;;:'::86

~:::(~:9?

~~1 :;~

E: ::::

(1::::~7.t:=:

~:::1;;::8A

~~1:::::99

028(:

040~)

~:::1;;;::BE

~J4~31,

~32C(::t

04(12

~3~:;::C2

~:14~l3:

(1~~C4

04ta4

~::r2C6

~~4f15

(12C8

1::1.:.}(\6

~3;;~CA

~7.140?

t~2CC

", ROUTAD [:'ATA
DATA
~:::16:::~~1 ",
DATA
(1794'"
DATA
~"37:3:=: ",
DATA
(1A-;:'C'"
DATA
~:::1ElIaA "
DATA
(1844'"
DATA
~Z1 E: :::::::: ",
DATA
~3C:3:E:'"
DATA
(1D4E'"
DATA
~3EJ:4 ",
DATA
1~1EE:E'"
DATA
OF4C'"
[:'ATA
CIATA
~36CA'"
~:::i64~3

~J66E'"

8TN
CHNG
NJN

80TTOt'l
CHANGE
Dm,JN

E::-::T

E~'::IT

Ft'm
INSRT
KP
Lto1TS
tol',,..
PF.:tH

FIND
INSERT
KEEP
LIMITS
NO ","E
Pf':INT

(H

I:;~UIT

Rt1V
STP
TOP
UP

REtol0VE
SETUP
TOP
UP

o
.AAO..S

.4. 4..

'.

w ..•. ;

x.

4

PXHEDT
MIRA990 '·... 2L:1
:12 : :13 : :1:1
MESSAGE OUTPUT ROUTINE
94:::9;;;::?-991;::1:1**

PAGE 00:1..2

258"''76

•

041.~::1

0

~~14:1 ~::'

* TITLE:
MSGOUT
*
MESSAGE OUTPUT ROUTINE
* F~EVISION:
*
ORIGINAL
*
03/:15/76
*
MODIFIED TO RUN WITH PXRMTR
* COMPUTER: 99121. 990 ASSEMBLY
* ABSTRACT: PRINT MESSAGE SPECIFIED BY N

04:1.::::

:+:

~:34:19

*:+:
*
:+:
*
:+:
*:+:
*
*
*
*
*
**

1;::14:1:1
,z14:1.2
1214:13:
04:14
f~.:.H5

f~4:1.6

~~'t42:~~1
~342::l.

104;22
1~~.:~~:'::3:
~;424

0.::I,;;;::!5
0426
~~14;;:~:'?

1~1'4~:::::

(14,'29
04:~:(~

(143::1
t't43;'~
~:34J:3:

~?14::-N

*
*

,z143:~i

04:3:E:

C'

~}4:;'~::::

02CE
02DI2I
12I~~:D4

(12[)6
~}44:.t..

(12[:.::::

**

~?1444

*

044~~i

(i·::iA9

22

CALLING SEQUENCE:
BL
@MSGOUT
DATA N

MOV
MOV

~:::1443:

~344::::

4
6
8
1.0
:12
:14
:t6
:18
2121

C2BB
C2AA
02E4'"
(142(1
IZIFEC'"
(145B

(144:~:

';:'1446
1;:14·::/,'(,

2

,..lSGOUT

~32D2
~)44,~~1

o

*

~.343:('

04:3:9

,..1ESSAGE
SETUP INSTRUCTIONS
TERM I NATE.....CONT I NUE?
LINE NOT FOUND
INVALID OPERATOR
OFF THE TOP
INVALID OPERAND
EN[.l OF FILE
0121121121 FOUNC,
LAST LINE
BUFFER FULL
END EDIT
.
BUFFEF~ EMPT'T'

N

*RTN+.R:1e
@MCOUNTCR:10).R1.0

INDEX FOR MESSAGE TABLE
SET UP BUFFER ADDR FOR PRINT

BU·JP (!iPR I NT

PRINT t1SG

B

RETURN

ROUTINE THAT ACCEPTS ANSWERS UP TO A CR
IN PRINT BUFFER

*

GETANS
,z1;;::[:'A
1;:12 [) (:

C2A~)
~~n3C~)

I>10V

l~l:~:DE

~342fl

02E0

(1FA4'"
0458

02E~2

i~~4!::i[:l

(!iPBUFA .• F.:10

SET UP BUFFER ADDRESS

,,'
INPUT CHARS FROM KBD
*RTN

*

04~~:i:1.
1~1·::f.5:?
(::f~~~::'i::;:

04!:,i4

~~);;;::E4

04~:'i!5

f~;2E6

04~i6
1;:)4~'5?

(1;;'£ A

().::I·:;:i:3

(1~'2EC:

(:J,::j.':i9

~~1~2EE

*
MESSAGE TABLE
*
1;::1:~~E4 .,'
1"lCOUNT E(~U $
[)ATA t'lSG00
~~12FC'"
~:nl.?·"
DATA 1>15131;::1:1
0:3::;'~C'"
[:'ATA NSGI;::12
[)ATA NSGI;::13
~}33C'"
~:33:4E ",
DATA I>lSGI2I4
~~n~iB'"
DATA NSG(15

0
'"

,I

41

•

•

$$

. 4._ .k· "

1_'2IU;'.. ;'"

fl'$4

t.

I'll

PXPEDT
MIRA990
'·... 2L.:1
MESSAGE OUTPUT ROUTINE

:1.2 : :13: : :11.

25::: ..··'76

•

0;

0.::1·':::121

12t::2FO

~):i:6C:'"

~:~·::j.61

O:~?F2

03?9 ..'

~:'I46;2

~);;::FA

0:i::=:~:::1'"

!J463:
/214E:4

~:'1;;;;:F6

[C:::::B"

~:::146!5

(1;;-::FA

0:3:A;2 ..'
:+:
:+:
:+:

'21466
f~146-;::'
[1~:J.E:;3

~:::1469

0~~FC

~:::1A

[1·::j.?O

~);2F[:'

5(1

0471

1213:15
f,13::16

~)A

047~;::

I~C::L7

0[;.
54

~~14'?3:

~::G2A

~)7

(1J:~~B

(10

0474

(j:i:2C
(133A

4C

04 ~~·~S

03:~1:B

~:::1D

(147::::
0·::1·79

l~f3:L39

49
121 A
OD
4F
(1A
(1D
49
OA

~~I.:+

-;: ..?

~)3:5A

04::;::0
04::::1.

(~
"

>"

~)3:5B

(G6A
03:6B
~):~:6C

45

04:::::3:

~:j3~7'7

~)A

~:'1~;:7:=:

~~ID

04:::4

~:l3:?9

04:::5

(C7E
(G7F

46
OFt

04::::6

~~13::=:O

O·::j.::::-;::·

~3:;::=:~7.'

4·~:':~

~::G96

(H"1

t.~1J::~7

~)D

0490

03:9::::

049:1.

~33:A~-;:1

4!:i
fjA
~:11)

,;3494

0:3:A::L
(:13fI2
(13:FiE
03flF
O:(Bfj

,;34::~~::i

CCE:;;::

07

~:::13B:?

~::1D

1214::)6

4;;-~

t'15G~:::1:1

TE>::T "'TERMINATE/CONTINUE?'"
B'T'TE BELL.. CRE

t'15G~::(2

TE::-::T "'LINE NOT FOUND'"
B'T'TE LFE., CF.:E

t'15Gt2I:3:

TE::-::T ..' I NVAL I D OPEF.:ATOF.: ..'
B'T'TE LFE .. CF.:E

N5G~:::14

TE>::T "'OFF THE TOP'"
E:'T'TE LFE .. CF.:E

N5G05

TEXT /INVALID OPERAND'"
B'T'TE LFE .. CRE

1"151306

TEXT ~END OF FILE/
B'T'TE LFE .. CF.:E

N5G07

TEXT "'FOUND/
B'T'TE LFE.. CF.:E

1"151308

TEXT /L.A5T LINE'"
BITITE LFE.. CF.:E

M5G09

TEXT /BUFFER FULL'
B'T'TE LFE., CF.:E

M5G:10

TEXT 'END EDIT/
B'T'TE LFE., CRE

t'·ISG:1.:l.

TE~'::T ···E:UFFEF.: Et'1PT'T""
B'TITE LFE., CF.:E

(1~i

0(:1
2(~1

O~;:B4

~~(i

0497

I2CE:9

0[:0

i::q9:;::

O~:::E:A

~5~~::

U'i·S'9

I:::'~:CA

~::1D

,;:!::::i~:)O

ENTER CR'

m>

o3::::: B

(:i'~19 ~~:

B'T'TE LFE
TEXT "'P05ITION TAPES,
B'T'TE LFE .. CRE

~)[:I

4C
(1Ft

04::::8
(:14::::9

0,;:1·:::·;::::

t'15 130 (1

~)D

~]4:::2

03::=:Ft

NE55AGE5

~:3A

12133:C
034(:
(C4D
(G4E

~~14 ~:"6

[tfHA r"I:=;G~:::16
DATA t'"I::;CKf?
DATA t'15G~):=:
[:'ATA ,"15CK19
[:'ATA t'15131~)
DATA H5C:i11

to1:::~Gl;;-::

MSG13
to15Gl~

TE::-::T ..' '7B'T'TE BELL.. CPE
1 ,"

TEXT
B'T'TE
TEXT
B'T'TE
E',/EN

/ Y/N?'"
CF.:E
"'RDY TAPE-TYPE CR'"
CRE

."4. ".,,14#;

·n4

,..,.0.0. ..... I
r'lll"::H:5'5'~
WARNING MESSAGES

r" ....

•

05~::r1:
05~)4

0

05(15

ec~cc
(~3CE

t15~)6

0::i:D0

0~"3:1.0

05121'(

~33D2

~)460

~'nD4

121226''-

~J5~~1::::

0::;;~C'6

~)!:i~:::19

0:~1):3

C24B
06A0
02CE'"
0(1(18
0459
06A0
02CE'"

(15:1.~)

(GDA
0:WC:

05:1.1

~:n(:!E

~::15:1.~~

~)3E~?:1

~..nE2

C;

06A(1
02CE'"

05:13

(C:E4

0~:::10A

~:::1514

~:GE6

0460

~)5:1..5

0:(E:;::
03:EA

~)6A~:::1

((~:EC

02CE'"

(1516
(15:1'("

~J::;;~EE

0~)16

~)3:F(1

0460

I2I3:F;;-~

~~1226'"

~~1::ii:::

~):::W4

~)6At~

~:::GF6

~:::12CE'"

((sF;:::

0~)04

(~::i;;;::I~~

0:tFA
((:!:FC

046(1

12J!S2J..

~:::C:FE

(16A0
(12C:E'"
00(16
0460

~3~i22

1;:'14~)2

[152:;:~

(1404
041216

PAGE 0014

1

F<:OUTINES THAT PRINT
*
*
@l'lSGOUT
LSTLIN 8L.

I.o~AF<:NING

MESSAGES
"'LAST L.INE'"

DATA 16
@Cot'11'1ND
B
ATTOP

OPNERF~

1'10 V
BL.

RTN. 9
@t'lSGOUT

"'OFF THE TOP'"

DATA 8
B
*9
@MSGOLIT
BL

"'INVALID OPERAND'"

[)ATA 10
@COl'll'lN[)
B

~~1226'"

~:::151.9

(14~~10

258 .... 76

V2L1.
:.l2 : 1.3 : 11
94::::927-9901**

t'l E t'l P Pr' BL

1]tl'lSGOLIT

"'BUFFER EI'1PT'T'"

DATA 22
@COMt-1ND
B
NOTFNC' BL.

@t'lSGOUT

"'LINE NOT FOUND'"

(:'ATA 4
@COl'll'lN["
B

~3226'"

OPEf':R

BL

."

l]tt'lSGOUT

INVALlr~

OPERATOR'"

DATA 6
E:
@GETCOl"l

12123:2'"

o
., .au

,U _ _ . "."

.. $

. MOP

3M

t.iMi; ..

2M SUUt .L

.w."

L . • .t $$4

44 M#i$I4II-

·'",'cd

'

'I'

'rj', '\

"'I

l

F';:'::F.:E[)T

LINE ::::C!UEEZEP
•

t'1 I PA99~J

~) ~::; ;;:.II:~

:+:

:+:

''::J~:i2:=:

:+:

~3:::;;~:::;t

:+:

1~'r!:i3:0

TITLE:

SOUEEZ
MEMORY COMPRESS ROUTINE

PE'·/!:::' I ON:

ORIGINAL
03/15/76
:+:
MODIFIED TO RUN WITH PXRMTR
:+: COMPUTER: 990. 990 ASSEMBLY
:+: ABSTPACT: THIS ROUTINE IN EFFECT SQUEEZES OUT INACTIVE
:+:
LINES FPOM THE LINE BUFFER BY PLACING ALL
:+:
THE ACTIVE LINES AS ONE CONTIGUOUS BLOCK
:+:
IN t·lEt·10f':Ir'.
:+: CALLING SEOUENCE:
:+:
BL
@SOUEEZ
:+: STATISTICS:
:+:
LINPTR POINTS TO THE CELL FOLLOWING THE
:+:
LAST LINE IN MEMORY BEFORE COMPRESSION.
:+:
PEGISTER 10 CONTAINS THE ADDRESS OF THE
:+:
CELL FOLLOWING THE LAST LINE AFTER
:+:
COMPPESSION AT LABEL SQ7.
SQUEEZ SETO :+:LINPTP
TERM BUFFER WITH -:1
MOV @INTLPT.TMLOC
SEY SQUEEZE
:+:

~:~:f3::1.

0::5:3:2
O~~i:3:3:
~:~~~:~:4
O'5~i:5

05:~:6
~?15~~:·7

~~1 ~i ~~: ::::

O~5:::;:9
O':541~1

0:::i41
~3"54;2

~3~i4=:i:
O~i'::1·4
054~:i

()4~:1::::

~:1?1.4

O:::i 4 1':';

04(1A
04(iC

C:1E(1
[:1:1::::1] . '

O~54?

041~1E

C.364?

()::54::::

04j_~)

1~1~iC,?

0':49

,-.•-.£:.""":'

~j~5::;:1

1214:1.2
(141.4
0·:+16
041::::

FFFF
:16FB

O~:5!=.'i;;::

C.~141.A

C:2~:=:'?'

~:::i4:1.C:

::::j.~3?

~:141E

145~:1

12~::; ~5 t:~

(142~:1

~:1~:i~57
(~15::::i:=:

C.' O=jr:5:?

PAGE 00:1.5

;25:3,···'7'6

9'~· ::::7.1 2 7 - 9:7.'~"3:1. :+= :+:

i2t::i ~~:: '?

(:155~D

12 : :1.3: : 11

'·.·'2L:1.

_.,:::. ..... ,.

SG!1

~32:=::7.'

SEAPC:H POINTEf':5

C'ECT n1LOC
INCT niLOC
!'·10'·/ :+:Tt·lL.OC .. 9
CI
9.- :>FFFF

LOOK FCIF.: INACTIVE BLOCK
FOUND?

..TNE
NO'·.·'
1-·
-'
..THE

SG!:1
NO
TMLOC.R:10
YES
TMLOC.L.INPTP IS TO BE MOVED
SQ7
NO MORE TO SQUEEZE

~::t5:=!7

INC

04:~:2

[:'2~;'?

t·10'·... B

(1424
1;::14;26

9:::a39

CB

H1LOC
:+:Tt·lLOC .. 9
F.: 9 .. I]lCf':

~:.=t ~~j~):~

04;;-~::::

:t6FB

JNE

(":i t2; ~:I

04~::F'i

~~1E(1

SG!8
@MAPGLM.TMLOC

~:)42C

01.2E···

COC

O;:::i':i4
~j5~:;5

SG!2

SG!!:::

WITHIN ACTIVE BLOCK?

~:H:::5'"

'T'ES
~·JOPD

BOUNDAF.:Y?

0::;:i6:1

12142E

16~):1

..mE

$+4

O~56~~

('r·43:~~1

~~16(1'?

()::':i6:::':

~343:2

12I5C7

el564

0434

C:;2Si='

\N~!:6

H1LCJC
I F NOT.. t'lAKE I TONE.
H1LJ)C
:+:Tt·1LOC.. 9
9 . )FFFF
ANOTHER INACTIVE BL.OCK?

~:14:3::::

f12::::9
FFFF

DEC
I NCT
t·10'·.·'
CI

~::I·::j.::i:A

l:~:F~)

f14:J:C

C3:~]7

121 ~~~i I::;

::5

j~J '::: 6 ::::

SQ4
:+:
:t:

fl569
(i~5~:I~::t

O·::j.3:E

:::!;?t::/.!:::

(1'5'/1

~;:I,::j.40

044;;~

1.6(il
Cl::::A

04.::1·4

::::~~I::::C

fI441~~

::L6~):1..

..TEG! SG!2
MOV TMLOC.12
SAVE ADDR OF LINE TO BE SQUEEZED U
SAVE INFO NEEDED TO UPDATE NEXT-L.INE PTP OF PPEVIOUS
LINE AND PPEVIOUS LINE POINTEP OF FOLLOWING L.INE
C
CLINNO.9
IS THE LINE AT THE POINTEP BEl
.JlJE :iH4
1"10'·.·' :1(1 .. CLLCJC
'T'E:::;.. AC'.JUST FOF.: IT.
c:
12 . L. I NAD
IF LINAD OR PPVLIN
..TNE $+4
AF.:E F'O I NT I NG TO

;.WAg

i.. ¢, .4

M?N4AA# A4..

..z

-

#$"

%%#4#2

If',

'"# t

PXREDT
follRA990
LINE SG!/...IEE;;:::EFi:

•

0

(35(:'~~i

044::::

C(18A

(1:;;'('6

f~144A

:3:=:~Z1C:

':':;144C
(144E

01.5E'"

1215'('7
~::1~:)7:3

la45~~1

C80A
e1.5E'"

~3579

e454
0456

~:N52

16(1}~:

C::::~Z1A

e:14~i:=:

~35E0

(15:;::1,

e45A
045C
e45E

~~1~~:36

~Z146C

01.56"
(15E0
01.56"
C24A
(:8(19
£1:13E"
(15C9
C809
(31.40'"
05C9

~::'~5:=:7

046E

C:8(19

~Z14 7~Z1

(11.42'"

~:N7;';-~

(1209
(n302
CEBC
(1609
:18FD
D6BC

~Z1460

~3583:

(1584

(1462
(1464
f1466

1215:=:~i

~3468

~N6A

~~5:3:=:

1.]5:=:9

""

1'10 V
C

1.0.• LINAD
1.2.• I)PRVL I N

.JNE
t10V

S17J.o4A
10, I)PRVL I N

t10V

1.0.• @SLOC

PAGE 001.6

LINES ABOUT TO BE
1'10VED, CORRECT
THEIR VALUES

It-.lCT @SLOC
INCT @SLOC
SQ4A

MOV
MOV

1.0,9
9,I)SLADDR

INCT -'q
1'10V 9 .• I)SQPLAD

SAVE POINTERS TO CELLS
WHICH WILL CONTAIN

INCT 9
MOV 51,. @SQNLAD

ADDRESSES OF CELLS TO
BE UPDATE(,)

SQ3
~Z147'4

C:,

258 ...76

01.56/

(1~;:;::(1

~35:=::;-~

V2L1.
12:1.3:11.
94::::927-99(11.**

~Z159(1

0476

e59:1

0.:~7!::

f159~~

047A

(1593

~:::147C

~3594

047E
(14:::(1
€14E:2
04::::4

983A

LI
SG!3:A

SGJ.9

9 .. 2

folOV
*12+ .. *1.0+
DEC q.,'
,JOC SG!3:A
t10'.,.'B *12+,. *1.0
CB
Fi::i0+ .• @Cf':

*

t'10VE THE LINE
LIP TO
NEW
LOCATION
STOP MOVING WHEN C/R FOUND

~3597

048::::

e1.::::5'"
1.6FC
C260
~Z11.40 ..'
(:259

059=:::

~Z148A

0229

";:1.:~::::C:

0~X14

~:::1599

04::::E
0490

(:66(1
(11.3:E ,.'

t'l0 '....

@SLADDR.. *9

LINE

121612t~3

~:N9~~

C;;~6£1

t'10V

@SG!NLAD .• 9

IS THERE A

~3494

01.42'"
1'10'...'
.JEG!
HKT
1"10 V

:+:9 .. 9

'L'

(1!:i95
0596

~Z1486

(16121:1

(:259

f2t6~:::C:

e496
049:::3
049A

~~f604

~)49C

1.3:(13
(15C9
(:66(1

1:'::149E

~:::11.3:E'"

~~160:=:

f14AI:'::1
e4fi2
(14fi4

;22A(1
I;:H2E'"
:16(11.

~~16~:'19

~::14A6

~Z15:=:A

j~:16J.0

1:'::14A::::
t;:,14AA

:;;~3:;~:f.1

t16:1:t

~~14~1C

1:'::11.2E"·
1. 6 I;;H

006~L2

O·::fHE

1Z1~5:=:C:

~:::1€:::£1;;:~

1:'::161;:,5
0606
12160';::'

~TNE

t10V

SQ9
@SQPLAD .. 9

t10 .....
AI

*9,9
9 .• 4

5':;-J.5
9
@SLADDFi:. *9

UPDATE NEXT-LINE
POINTER OF
PREVIOUS

NE:X:T L I HE?
NO
'T'ES
LINE POINTER

*SET SQUEEZE ADDRESS ON WORD BOUNDRY
COC
@folARI3U1.. 1.~3
,JNE
INC
COC

$+4
l)fo1AFi:GLM,. 1.2

JNE
INC

$+4
1.2

1.~Z1

gg

.4

...

L44UA.,- _ ',"-I,.

JJ(EM.SLSt:

PXREDT

. MIRA990

L. I !"JE :30UE:E:ZER

•

0

V2L.1
1~:: : :1.3: : 1:1
94:::::;';27-9901**

0613

04B!~1

C1.CC:

t'10'",'

f16:14

1)4E:;;::

f.:~WC

r'-'

~:::16:1.5

~:::1484

:14~'35

('1616

04B~':;

C:;~57

~;)61.·?

04E:E:

0t:~1:::

04BC

t.~6:19

~34BE

~362(1

04CO

(16;2:1.

~~4C;;::

0289
,FFFF
:13:AF
10BE
C:10A
C260
(=:1008'"
6244
C3:08

.JHE
t'10',,..
CI

1.2, Tt-1LOC
12., L.INPTR
SQ7
*Tt-1LO(:.,9
9,)FFFF'

.JEQ
...TI'lP
t'10',,..
/'10 V

SQ2
SQ4
10., LINPTR
@HICOR., 9

5
1'10'",'
CI

LINPTR.,9
F.:Ht,12
9,:30

...TH
E:L

SQ7A
@t'lSGOUT

~:::14BFI

~::14C:4
~j6~'2~2

04(:6

(16~~3:

1;:1 ,::I. C:::

l~j6Z:4

04C:A
04CC:

~3~:;:::=:9

(16;:~:~;

~34CE

·:tB~~9

~'3626

la4C'~::1

06A~:::1

(14C)2
04D4

~:::12CE'"

(~~t::~?'?
~~11::~ ;~~ :::

~'34[)IS

c:;;:: 6 1-3

~34D:=:

":~:1..:;::::::

1~1t::;?9

~'34DA

:16(12

063:0

04DC

(146~'3

~~4DE

~:12;':~6

(:14EO
04E;:;::

12145C

~:::16~U.

I2lf;:?2

SG!7

25:::,···1"('6

PAGE 0017

ALL. SQUEEZED UP?
'T'ES, PREPARE TO EX IT.
NO
ANOTHER INACTIVE BLOCK

'T'ES
NO
FIX LINPTR

ENOUGH SQUEEZED?

~J~::15t1

8UFFEF.: FULL
CALLED 8'T' FIND''?

C'ATA 1:3
I]lFFLG., 9
1"10'",'

~J(1:1;2

..'
.JNE
E'.'

$+6
(!iCOt'l1'lND

'T'ES
NO

..-

~~l~;CC

SG!7A

INC:T ~L.;;::
:+::t2
E:

C':
'.);\

o
.P. $ ;

.M

.J

oS

±

4)]

wit

MUd

I'll to::H:'::':::t~,;:I

r> ,>,"".r..V I

*'

o

(163:6

PAGE 0018

25:::/76

94:::92,?-9SI~31*':+:

•

06:::::~5

:1;;;:: : :13 : 1j.

V2L:l

FIND LINE ADDRESS

TITLE:

FLIN
FIND LINE ADDRESS

~~1 t;'::( -;::'

:+: RE'·.·'ISION:

1)63:::

ORIGINAL
COMPUTER; 990. ASSEMBLY
*' A8STF.:ACT: F 1 NI)S LINE A[:.DRESS OF LINE WHOSE NUMBER
:+:
I SIN NUI'1B. RESULTS RETURNEe.' IN TMLOC.
:+: CALLING SEQUENCE:
:+:
@NUMB
LINE NUMBER
:+:
BL
@FLIN
FLIN
MOV @ANCHOR.10

*'
*'

€1,5:1:~
~)64~3

064:1
0t::::4;~:

=

~J643:

(1644
064!::i

~34E4

(1646

~34E8

~J647

~34Efi

C2AO
(i17E'"
C1CA
C::;::97

~)64::::

~J4EC

:=:::::~:1A

~:14E~':;

FLIN1

1'1CiV
1'10 V

C

10 .• Tt-1LOC
:+:TI'1LOC .. 10
11Z1. @NUI'1B

(14EE

(1:1.3:C ..,

(11:::49

~?:l4FI)

1~i:I~16

065~)

~'::14F2

~~1;;~27

.JE';,
AI

F[);:-:;T
Tl'1LOC .. 4

(14F4

(1(104
(:;297
it:::F7

t'1CIV
.JNE

046~3

8

:+:TMLOC .. 1~3
FLIN1
I]lNOTFND

8

:+:F;;:TN

01:7,~5:t

~:14F6

06'5::7::

~J4F::::

~)653:

1214FA
(14FC
04FE

LOOK AT LINE NUI'1BER

THIS IS IT
STEP POINTER AND
LOOK AT NE~::IT
12., :~'0D

NO

.JEG!
B

E::·,:TSI<
@OPNEF::F<:

(1~;C9
Nt'lE::':: IT INCT
(14!:59
E:::TF;::FlCT

I,,. ~~:L.:i

MIRA990

PXREDT

NUl"1[:: EF.:
•

:L2 : 13: : 11

~2!:i ::: 1•••1 "(' 6

94:=:9;;:7-99~~~:1:+::"':

:+:

TITL.E:

I'-JUt'lE::'~T

E::nF.:ACT

r·~tU-'1BEF.:

:+: F.:E\,' I:::' I ON :
06::=':6
Ol::':::::?
Ot:;::::::::::
Ot:;:::::9
~~169C1
1;::1t~;9:.1.

121692
069::
01:::94
1~~6::)~::;

(::1t:~96

1~14CJ..

o,:::::':j 7

04E(~
0~:5;;::A

~::U

06::~::::

l2I:::i~~C

12tE;::~9

(::1~5;;::E

121700

05.12

028C

(~::i~i:4

~~1~J20

0536
05.18

13FB
028C

O~:;~~:A

0121:::~3

0701
0?12t2

GETCH

(l?O::

~:::1~EC

lLU~

1;:)704

O~~:~!:E

O;;::::::C
00::9

0540
"'~.··

. .1A . '

ia 7 0 ::i

C. ' l~f?O(; ~)~:54~::
0544
0-;:"0-;:"

(:1'::546
(15,::/.:::::

:+:
ORIGINAL
:+: COMPUTER:. 990. ASSEMBLY
:+: ABSTRACT: EXTRACTS NUMBER FROM COMMAND INPUT
:+:
BUFFER AND CONVERTS IT TO BINARY
:+: CALLING SEQUENCE:
:+:
BL
@NUMEXT
:+: STATISTICS: UPON COMPLETION WORKSPACE REGISTER 12
:+:
CONTAINS THE TERMINATING CHARACTER.
:+:
UDCNT CONTAINS OPERAND. AND NUMBF CONTAINS
:+:
NUMBER OF CHARACTERS. REGISTERS 9 AND
:+:
TMLOC MUST BE KEPT SAFE.
I'-JUMEXT CLR UDCNT
CLEAR NUMBER
CLR @NUMBF
CLEAR NUMBER FOUND FLAG

NCH

t'le) '. .'
BL

RTN . 1~)
I:!itGC:HA

CI

:12 .. >20

JEC!
CI

GETC:H
12 .. ..' ~:::1'"

.JL.T
CI

N::~::t~30F

'::'1';:"09
0710

~j'5!:;O

A::~:);;::

f1

LINAD .

0552

C04C

:1;;;:: .. U[:'CNT

0·/::l.J..

O~-:;:::;4

(:16AO

t'l0 './
BL

0712
0?13

0558
055A

10EF
06AO

.JI··IF'
GETCHt BL

I]tGCHA

':Y?:.L4

Ci'::)~:5E

~:::12:::::C

t-J;:-:; IT

C:I

:12 .. >2(1

FIND NON-BLAW:::

f~I':':;6i~;

~::1(~2~::J

0715
0716

0562
0564

13FB
028C

.JEt)

C1

GETCH1.
..
1;;~ . ..'

TEF.:t·l I NATC)F.:
DIGIT NOT I·.·'ALID

I,:) ?

0 ::;i 6 ::::

:1.:1.. 0 '::5

~~1~56A

O;?::::C:

JLT
C1

12 .. "'9'"

.l?
(:17:1.:=.::

o~:::; ~:;c

(~I;:":L::-;'

O~:i(;E

0720

8570

0721

8574

!::)~:;?

o

2

TO B I NAP'T'

1.;;~

I:!itGC:HA

GET NE::'::T CHAF.:
GO PF.:OCESS IT

I"~CH

~~~

'

TEF.:t'1 I r·~ATOF.:

OK>:;'-

~XC9

150;2
8460
I~r:n::

B

OK::'::T
l:!it (I F' r·~ EF.: F.:

c

U[)ct-n., I]lLL I t'1 I T

.JeJT

121 ..'

8801

OKXT

LINE t-JUt'1BERS MUST

..£444;;1.. #.

,.34%4·

M.MQ .W

4.$,

. •"'Wb; .,,,j

,._,-,$#

-.4

~w" %."'"

.... ; . . • •£111\;'

nw'

M

t

!tnt-

an

PXPEDT

MIRA998

EXTRACT NUMBER

•

CJ~5'?t::;

0

V2L1
12:13:11
948927-9981**

(I~:::;?'::::

1;:~:O2

(;'1-;:";23:

.JL[

O'5?f~

B4~'::O

E:

0724

(3'5?C
05?E

03EI;;:1
04':5A

t15:~3~J

C~i:;2~3

':':~::i ::::~?

~31:::~::::

i;~r5:=:.:;~

~3!:i:=:6
121 '? ~~:: i::!

E;:'::TE::·cr E:
. :+::1.10
EXTRACT CHAPACTER
GCHA
MOV @CC.12

~~i?';2~::.f

o .? :::~: 121

..

'

[:o:?~:;::C

~J5A";:1

O'::;::;::A

~::1~L3::=:

O~58C

£19::::C

O~:;:;:::[

04!5E:

NOT D::CEED 9999

*

I21B6E .. '

1215::::::::

E::·::TE::·::T
I:f:!OPNEPF.:

.'

~:~ ?' ;;~: ~:~

1;~1?';~::'7

~3B21

1:;\::1..:::::;;:: .'

(1 -;.:' ;;;:: ;?

(3??E:

PAGE

.'

MOVS @CP8UF(12).12
INC

@CC

SRL

12.8

B

GET CHARACTER
INCREMENT INDEX
POSITION CHAR FOR COMPARES

:+:F<:TN

c:

o
,.

pj

*-

#$ ;

%.

LA

q.

aZ46h.:e..n.M4Ai

44 4P',lti,U¥lU4",(¢$ Z

¢

,~-

PXPEDT
MIRA990
EXTRACT OPERANDS

•

O·.

··:·,;·i
.,

:+:
:+:
:f:
:f:
:f:
:f:
:f:
:f:
:f:
:f:
:f:
:f:
:f:
:f:

07::;:.:.1O'?:::::~)

... ............ '"
(' ,.::·t)

,

,

~::!

~~, '? :~~: ~::*

1;3 ~::I :~: i:::

0740
121';:"4:1..
(1?4~;~

0'?43
~~1?44

074~:::i
0?4t~;

(,'?47
~::'74:::::

~J'?49

.'

0750
0751
0752
0753

0590
0592
0594
0596
~Y59:::::

0JEA ..'

0754

059A

04E0

0~59C

1~H.1C

O~:):::IE

t16AO

O'?~::i~:5

0756

C148
CID0
1602
0460

T I Tl"E: :

E::-:;OP

EXTRACT OPERAND
RE"", I 5 I ON:

ORIGINAL
COMPUTER:. 990. ASSEMBLY
ABSTRACT: ROUTINE TO EXTRACT LINE NUMBERS FOR THOSE
COMMANDS WHICH EXPECT OPERANDS OF THE TYPES
L-K (ABSOLUTE LINE NOS)
+N
(RELATIVE TO POINTER)
-N
(RELATIVE TO POINTER)
N
(SAME AS +N)
(POINTER LINE)
ERROR EXIT TAKEN IF KOD

O'5AH
O::5AC

O~)0D

JEO

CUF.:PTL

IF C/R USE CURRENT POINTER VA
EXPECT RELATIVE NUMBER

F::ELNI...II"l

IF FIRST CHAR IS + OR -,
OTHERWISE. ERROR

1~~:2E

NO

(:1

0'~5E:O

0028

(158;~~

:t=~:0!5

O?6;;~

0584

1~12:::::C

."TEO
CI

L:;::., .,._."

05E:f,:;
1::1 ~i E: :=::

I) 0 <;;: [)
J" 3: CI2

JEG!

F.:ELNUI"l

U~)81~

1)46~~1

E'.'

I~C)PNEF::F.:

(:i~:;E:C

03Ei) ,,'

~~i'?I::''':)

(;)':::i81::

~::i9~~C

F.:EL.NUr'l SF.:L.

~)'?E;t::

fl~K:O

C;~~4C:

1"10'",'

0767

05C2

06AO

BL

~:I'::;C4

0:::i~;::6'"

0768

05C6

o~:) C: :::::

ij?!:::;'~~

~y:::;eH

0770

05ee
j:),,:iCE
I::) ,,:i I) 0

U??.L

SET ABSOLUTE-RELATIVE FLAG T

(f~AE:RLFG

0';:"61

(:1';:" 6:::;:
(j7fA

258/76

..'

05HE

U'5C';;?

o

V2Ll
12:13:11
948927-9901**

C2AO

CHANGE + - TO EVEN-ODD

12" 2
::1.2" 9

" H~1

"'10',/

(~r'JUt'lBF

..TNE

$+6
C!:'IOPNEF.:R

1;:'iJ. :::: A'

:1..60;;:
0460

c'
IMol

0JEI?1 "

C:=:: 0 J..

0:1.:1.C: .,'

,'·JUL.F.:E:L.. 1'10\,'

UDCNT., II:tABF.:LFG

:j??2

O~)D4

::L6ei~2

.JNt::

~~:+6

077~

05D6

0460
O:::'E0"

8

I]lOPNEF.:R

~'r!5[)::::;

GET NUt'lE:ER

(~NUr'lE::'::T

SET FLAG TO RELATIVE
ZEPO NOT ALLOWED

_#4ii@i4l.4Z44

_ # ,W #

_"- g •

.\- .J

H

@"..L

,,4"- Ai. X ,.,t r,"" ! 'If ii«:Mt@n..'"

«

00..

t

··. . ;;::L1
j2 : 1.3: : 11
948927-9901**

0

O?"?4

O~':;[:OFl

C:~:::1C6

f1'?'?~i

IJ5DC:
O!:.iDE

~::':''5121:1

~::3:::iE~:'~

O:1.2E
:16e,:;::

~J776

f2f?"??

05E~:;;:

MOV
NEG
CDC

~~;26~~1

(15E4
1~~5E6

~J'?:::4

~:::1~iEC

(~7:=:5

~;~5EE

~'::i7:=:15

~3~iF0

(t'?::::'?

1~15F2

C:1.. C3:
1215e7
C:1D7
C297
:13:06
05:;:::1
:16FA
C(1(:7

'-~J'?:::::=:

05F4

C~'36~3

0~5F6

1;;~:1:1..C···

~.:)5F:::

H)2';'~

1J?91

0~5FA

O::'~DI~1

~:1 ?9~~~

O~5FC:

01::'A0
0]:[:'6 ..'

~37':=:;;::

~:::15E:=:

3:

el5Efi

~~t ~:' ::::

~~I ~:=- :::!:3i

0023:

CLLOC.PLIMTS SET LOCATION OF FIRST LINE
U[:'CNT
l]lt·lARGU·1., 9

...TNE . E~·mpE:>::
* START MOVING UPLINKED LIST.
* TO FIND ADDR OF FIRST LINE
RELNEG MOV PLIMTS.TMLOC
RLNEG1 INCT TMLOC
MOV *TMLOC.TMLOC GET ADDR OF LINE
MOV *TMLOC.10
DUMMY?
...TEQ EX1
YES
INC U(:.CNT
.JNE RLNEG1
MOV TMLOC.PLIMTS
EXOPEX MOV @A8RLFG.UDCNT
SET PLIMTS EQUAL

0~::"?9

1:':~~::'8~::i

PAGE

1

.'

~~1?'7':=:

0'('::::1..

258 .... 76

E:X:IT

~J790

05FE
{}'?9:3:

C:

~)6(10

AI~:161~1

~::'~6f1~:;;:

EX1

~:::1'?94

~:;604

O:1.:1C ..'
:1. 6:1. A

~::1~:;':7.&5

(~6(11=;

~::'46(1

t~~E:I~~:3

~:1;~26

~:::1?96

~J6~3A

C(1C6

~:'1'?:::.a~;:1

OE;~::'1C

~35A(1

~::16('1E

('I:1:1C .'

06:1.0

:1~JF:l

~:1799

~~~6:1;;::

C~:::1C:1

O:::O~J

(~6:14

~~:;::E!C:
~:H:::12D

:13(12
(14C9
:1('ID9

0::::04

(1616
06:1:::;:
06:1.A
(16:1C
06:1E

1~1::::0:5

1216;2~'::1

::L::~:::1D

\:1:31~:16

f~1 f; ~:: ~2:

~J6A0

~:::1:::~H.
~':1 :::: (, ~:~

o:~::~n:

~:j::::i~j /'

"~1~:i2t:

(~1b;;::6

C;?FKI

A

@A8RLFG.UDCNT

..INE
8

E::·::E;'::OP
@COt'1t'lN[)

CURPTL MOV
INC
A8NMS

GULM

C:~:::"::J:

0624

*DUMNXT.PLIMTS SET PLIMTS TO TOP LIMITS
@ATTOP
P~INT 'OFF THE TOP'

CLLOC.PLIMTS USE CURRENT LINE AS OPERAND
@ABRLFG
SET RELATIVE FLAG
UDCNT.PLIMTS SAVE LOWER LIMIT

.JEG!

GUU'l

CLF:~

9

...TMP
MOV
JEQ
8L

NULREL
NULL-SIGNED RELATIVE LINE NUMB
PLIMTS.PLIMTS TRYING TO OPERATE ON LINE ZERO?
EREXOP
NO
@NUMEXT
GET SECOND OPERAND

eI

E~'::OPE::<:

:12., ... _ ..'

GET UPPEf;: LIM I T

,,'
..'

(ir=,::;?::!

~3:1.J:A

I~~E:;~;~A

:l~j:~):=:

.JEG!

~?I:::::09

1;:;,::::2C

::::~'::1C1

C

CI;::::.i.~:~

~~:16:2E

:11~;E;

JLT

0:::;1:1

~;~6J:r:1

C:::::(f~;:

1"10'",'

EF.:E::·::OP
UDCNT. PLlt'1TS
Ef;:E;>::OP
PLII'1TS., I]tNUI"1E!

~::1:LJ:C

(:.::::1.. 2

ti 6 .~~: ;;::
OE::3:4

81...

I!lFLIN

~'1:=':::::6

~j4E4

~~1~; :::~: ::::!

(:I2IC'('

~:J63fj

~)455

OE;~::C

~~)·::f·6t1

(:)'::;3E

~'::CEO"

iJ;~::J.~:::;

NO LINES TO WORK WITH

..IMP
MOV

U:;:::,j:;:::

C1:::::J.::::
i?1:::;:.l..4

CALC NO OF LINES INVOLVED

.,'

9 !:::

~~1 ~::I

MOV
8L

ERROR

,0'

~~16AO

.'

r'1 CI 1./

E::·::E ::'::O~' 8
EF.:E::·::OP 8

n·ILOC: . PLIt'lTS
:+:!::i
(,~OPNEF.:F.:

0
.:.1

t.

Q .

. '• ._

.w;. J .

1

sri#:

'g

~~~~VT

E:O'fTO!'il

MIRA990

:+: TITLE:
:+:
:+: F~EVI5ION:
:+:
:+: COMPUTER~
:+: ABSTRACT:

0:::::19
1~1::::;;:~'2f
f1:=:~::::1.

(1:::~:25
1:-:):=:;;~6

t::.1:=:~;::·?

~::164~3

[1642
~3644

~3646
~.:.=t ::;:: ~:;: :::1

(1f::~~:~~1
~::/!:;:: ~~::1.

064::::
(164Ft
[1,::;4C
(:.'I64E
(165[1

0026'"
(1644'"
06A0
!2'51A'"
C:1D[1

25:::.···'76

PAGE 00:24

~?'46~3
[16A~:::1

O::;::2:~~:

~'::16!:54

()::;::3:4

'~16~56

C<~~:1. ?'
(::1.::::7
";:1 :~( :::: ~1

~::'6!;5A

C2A~3

Ot::5C:
[165E
(:'1660

'~l1.7'E

CO::::4:1.

~~1t:~6Z:~

~:1::::4;;~

~~~664

(t:;::42:

(1666
r;::166:::!

BL

@SI'(ANTI'1

CHECK TERI"1 CHAR

MOV
SNE
B

:+:DUr1N::-::T.- TMLOC
$+6
1]lt-1ENPT'r'

t-1Et-l0R'T' ENPT'r'?
NO
'T'ES

8L

I]lBOTTOl"l

FINE) BOTTON LINE

t'10'·.·'
MO'-."

*H1LOC. CLINNO
Tl'lLOC., CLLOC

SET POINTERS

(GEA'"
~'::165A'"

~:~E:~5:=:

BH1
BOTTOM COMMAND

ORIGINAL
990. ASSEMBLY
MOVES POINTER TO LAST ACTIVE LINE
:+:
IN SOURCE LINE BUFFER
:+: CALLING SEQUENCE:
:+:
BLWP @BTM
[)ATA f':OUTRG.- $+2
BTt-1

:lE;I2';~

(~6!52

0::;::44

:12: :13: : :1:1

•

121::::::1::;::

o

",";~~L:l

C:OI"'ll"'IF~r'~D

F~nJP

:+:
ROUTINE THAT FINDS BOTTOM LINE
:+:
:+:
BOTTON MOV
@ANCHOR.10
GET ADDR OF FIRST LINE
..'
AI

:1.[1 .• 4

C:1.CA
C29A
:1.6FE:

1"10'·,,'
1''1(1'.,..

~32;':::7

AI

:1.[1.- TI"'ILOC
:+:1(1 .. H3
BHU
H'Il.OC .• -4

8

:+:RTN

C.:.=t~~;~~Fl

BHU

POINTS TO LOC THAT CONTAINS ADDR

Of1~:::14

~~66A

FI-I-L

~:::166C

~::14!:i8

~TNE

SA'.,.'E IT
HAS NEXT LINE BEEN BROUGHT IN?
YES NOVE DOWN ANOTHER ONE
SET POINTER TO BEGINNING OF LINE
f':ETUF.:N

o
.4l

. . . . •;2 ...,,_ ..,.,

bu.. a

M

PXREDT

MIRA990

Ci-iANGE cOI"jr"IAW)

o

12!:;::4:;::

:+:

*'

*'
*'
*'
*'
*'
*'

(1::::~H.

~.::I::::!"::i2

(::1::;:53:
';:~f:~i4

~~:::5:5
(1:.:::~56

~:::1!357

~366E

0~326'"

~36n)

~3672'"

'~6('~~

05A(1

~~16"?4

~3:11.6·'

(1676

(16A0

eI6?'::'~

";'~E3:E:···

067A
06'{,C
(167'E

PAGE

;258"'-'76

~3025

94:3927-99~.3:1*':+:

•

1::.1:::::4:::,
~7:1 !:::::i 121

:12 : :13: : :1:1

'",';.~L:t

TITLE:

CHNG
CHANGE COt'lI'1ANI)

REVISION:

ORIGINAL
COMPUTER; 990. ASSEMBLY
ABSTRACT: CHANGES SOURCE LINES YIA REI'10YE
ANI) INSERT
CALLING SEQUENCE:
:+:
BLWP @CHNG
CHNG
DATA ROUTRG.$+2
INC

@CHFLG

SET CHANGE FLAG

BL

@R~1VCH

[)O RE~10VES

H6A(1
(1A:3(1'"

BL

@INSCH

[>0 INSrHS

~33:=:(1

RTWP

c

o
4#.

;

.

_ 4.

as: x.txt , .., t

A

.A.

P>::F:F[)T
DOI,·JN

1"'1 I 1~;:fl990

',.·'21.... :1

2!:i:::: ..··I'?6

:1.2 : 13: : 11

PAGE

~3(126

CCII"II"IAt,~[:t

•

('1::;:6<1-

:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:

oi:m
~~1::::69
i~1 ;::: ~:~ (I

\:~ :::: '::' 1.

0::;::/;;;::

~:~6:=:~~1
~::16:=!~~

(1::::-;;'9
O:::::=:~:I

1:::1::::::::2

~30~::6'"

ot:;:::: 4

(if5::::4

~36~,(1

laE;E:C: ",

~::16::::::::

C~~~:=:6

la 6:;:: fI
06:::(:
(16::::E
12169121
0692

t;;.'t2~~:A

[16~~11

:1. !5 t;;,'t 9
C2:::A

Ot~;96

O:::::=,::,,~

06:3:;::

:1.6~:.'tF1

la:::::::::5

~~16::'~fi

O!:i:;::l
fK16 (1

~:''t69C

O,::;9E
la61='O
06A2
06A4
06A6

1~):l5C:

ORIGINAL
COMPUTER:, 990. ASSEMBLY
ABSTRACT: MOVES POINTER DOWN NUMBER OF LINES
SPECIFIED IN COMMAND TO MOVE PAST
LAST LINE. REQUIRED NUMBER OF SOURCE
LINES ARE BROUGHT IN
CALLING SEQUENCE:
BLWP @DWN
DWN
DATA ROUTRG.$+2
BL

I]lUDCOt'11

MOV
AI

CLLOC.~0

t·'!CI'. ,'
1"'10'·.·'
DEC
JGT
MOV
,JNE
INC
A

H}. 'H1LOC
:+:n·1LOC,. ~€1
UDCNT
DWN2
:1.0.10
[A·JN4
UDCNT
@MAXLIN.UDCNT

BL

(~INSOU

SR I HG THEt"1 IN
END OF FILE E:':: I T

DETEF.:~1

SET UP SEARCH
POINTERS

~0.4

::UX1'?

,J~1P

EOFE::,::T

1~309

,_H'1P

0::::90

06 A:;::

C:~~:::A

"'Ie)'·."

'::~::::9:1

~36AA

~I..J:F'?

,JEQ

D~·mJ:

0:::;:92
(1::;:9:::':
Ci:::::94

~';:16AC

~HIEE

,J~'IP

(16f1E

C::l:::::A

NO
LINES TO BRING IN

1'·10'·. .

D~·Jt-U

10.CLLOC
SET POINTERS
:+:CLL..OC. CL I NNel
E;:'::IT
(£lI"1SCiOUT

~:~6E:(1

C;~::::1,6

06r:::;~~

:1~~'tO:~:

Ot:;E:4
(j6E:6
06E:::::

1;::16A~:)

(I;;;::CE"
Ot;;.'t(1C:

DHTA

06BA

~:j:;:::::O

F.:T'~·,IP

0:::::99
O::::IjJIZI

06E:C:

C:14B

O::~lijJ..

(:'16[::[

O'=;I=i~:~

I:) S' iJ ,?

06 C ,~:

I r'.IC

UI)CNT

Ci .:::' I;~! ?

(I I::~ C: 4

1"'10\,'

JEC!

U[:'CI·-n,. UDCNT
E:':: IT

8

:+::::;

Cl::::;~::I;,::;

FINISHED?
NO MOVE DOWN ONE MORE
IS NEXT LINE IN?

la ::;: ",

E:':: I T
:10. H,

(1;:;:9?

I NE COUNT

",

~:'16A~3
~:1'?

F.: E'.,.'! S I ON :

DW'J:l

(1(1la4
C:1.CA
[:;';::51';::-

r21:::;::::~~:

D~·JN

DOWN COMMAND

",

~jt;:::t:;

(1t~;94

TITLE:

,:19fj4

06[,::;

121':i :::::1.
CO"',:1.
1::;:F9

():I (:) '::.

I::) 6 C :::;:

~:14!:i!5

.JI'·'IP

EOFE::,::T BL

:12

:+:
ROUTINE COMMON TO UP AND DOWN
UDCOMl MOV RTN.5
BL
I}ilSKfiNCIP

[)EFAUL T COUNT

0·.· '· :
.:',.

M. W4

-

p. _

WJiw.·"-,, " .. 4.4#., ..-$",,,$

"*1$::,##4

:,

$i.;;;;Mi;; , , -' J.44\44A*

em '

F' ;:.::F.: E I) T

o.

V:2L:1.
1;;;:: : 13: : 1:1.
948927-990:1.:+::+:

COI'H'11~11'·JD

UP

•

090::::

:+: TITLE:

1219~::i9

~~19:i~:''1
. OS-::L:1.
J;;:19:i:;;:
('19:13:
(19:14

:+:
:+:
:+:
:+:
:+:
:+:
:+:

~~19:15

1219:16
(~'19:t.7

66A6

(16N~

~~16BC···

69:19

~36D<7~

C:1[:O~3

~~1920

~36D4

:16~32

(19~:;::1

1~~6f)~':;

046f1

~:::16CE···

~:::f3:EA···

~~'1~:::1~~~2

~~'16Dfi

E:1.:::'('

~;~9;;~::

~~'I6DC

:t.6~~G

t;;:1924

(16DE

66At;;:i
6::W6···
:11:)6B
C1C6
UP4
fi!:iC?

"::1~;'2~3

€.1~::a26

66E:2
06E4

~:392~:'

1~~6E6
~]6E:=:

C:~:;:97

(19::~~1

06EA
('I6Ee

~J9:::1..

~::16EE

~)9J:2

~~16F~3

C)6933

1216F2

~':~9:~:4

~36F'::f·

(1!'.::iCA
C1CA
C:297
t36f11.
15(14
664·;;0

1;::19:~:.;-~;

('I6F6

C::1E:7

12' ::~ 3: ~::I

~::16F:3

C;;-~16

~:1:::1 ~:::;::

(i6FF"i
l;::i6FC

094(1
o9,::j· 1

~:36FE

((:l:8f1
C69A
16F::i

0·?I~)la

~)6AI2I

J;;) -;:" 121 ;;~

f~C[)t::

1.\

Cot'1~1ANC)

REVISIot·~:

~:''I6D:::

(16E(~'1

PAGE 0027

ORIGINAL
COMPUTER:. 990. ASSEMBLY
ABSTRACT: MOVES POINTER UP NU~1BER OF LINES SPEC I F I ED
BY COMMAND
CALLING SEQUENCE:
BLWP @UP
6626··· UP
DATA ROUTRG.$+2

06CA
('I6Ce
fi6CE

t'l9::L:;::

UP
UP

25:=:,····76

UP1

09:~:~i

DETER~1INE

BL

t:~UDCOM1

t'lOV
SNE
B

*[)Ut'1N:'::T. Tt1LOC BUFFER EMPP,'?
$+6
I!lMEt'lPPr'

C
.JNE
BL

H1LOC. CLLOC
UP4
@ATTOP

E::-=:TUP
CLLOC. H1LOC
INCT H1LOC
NOV
*TMLOC .• H:::1
INCT 10
16 .. H1LOC
t·10'·.·'
t·"!Ov *H1LOC .. 1.6
DEC
UDCNT
.JGT
UP2
DECT ·n1LOC

COUNT

ALREACr'T' AT TOP?

'rES

SNP
~10V

GET LOC OF LINE
AT POINTER
SET TO LOOK AT PREV LINE

MOVE UP ONE ~10RE
SET PO INTERS.

UP::

0942

6764

C1D~)

1~~9':1·:::::

~~1706

:1~3F·?

NO'·.·'
NOV
E:'-=:TUP
UP2

H1LOC .• CLLOC
*CLLOC.CLINNO

R"HJP
'·'10'·,,'
.JNE
ElL

*1.6 .• *1121
UP1
I]lATTOP

MOV
J·t-"lP

*DUMNXT.TMLOC
UP:?::

TEF.:I··1 I M4L NODE?
NO
'T'ES

...

SET TO TOP LINE.

o
J¥

..... _ . 4.

.." .$.

W k 1.k t . .

,N,

; iJ i

.

a

Y

,,,'·eI

h*

:1.~~

1"';:'::1'(1:'. [..t 1

: :1.3: : 1:1.

•

O::~41::;

:-1':

*

121947

~~4~:
O. 1:::1:::t4=,
~)951.
~)953:
~)954

~::1955
~1'?~3:=:

C1.4B

('I~?(IA

c::=: 2 121

0'?0C

~)~L1.4

~;l?0E

~:H.1.4

09~;9

,;:r?:l0

:t64 £1

la960

~)71.2

(16A~3

~:1::;t~)~=:

I NSOU
INPUT SOURCE LINE

*

~J95E;
r~195'?

TITLE:

* F~EVISrON:
*
ORIGINAL
*
03/~5/76
*
MODIFIED TO RUN WITH PXRMTR
* COMPUTER: 990. ASSEMBLY
* ABSTRACT: BRINGS IN SOURCE LINES. SETS UP HEADERS.
*
SETS UP POINTERS
* CALLING SEQUENCE:
BL
@INSOU
SAVE RETURN ADDRESS
INSOU MOV RTN.5
MOV @EOFLG.@EOFLG
CHECK EOF FLAG

~::19!::;~;:1

..'
..'

~:3?1.4

~)65A'"

~:37·:t6

C::=:~37

~?17:1.:3

~::H!;:iE'"

~::t7:1A

~~~227

('I7:1C

£1I::'I€14

~::~7'iE

[::::';:'17

~:'1?2~Z1

~:3:1.56

.JNE
BL

E~'~ITIN

MOV

TMLOC.@PRVLIN

AI

Tl"lLOC: .• 4

MOV

TMLOC.@SLOC

MOV

@HICOR.i0

.,'

~:f?22

C2A(1
~3(H]:=:

t;~'~~E;~3

~~f?2E:

~::~~:::I~.

5

0966

~3'?:'N~:::

~~12:=:A

CI

LINPTR. i0
:1.0 .• E:0

1::r?~~A

(10~:i€1

fj'?:2C:
072£
0'73:0

06A~)

JH
8L

:$:+6
I]lS(JUEEZ

t10'·.·'
MOV

LINPTR.. i0
@MAXLIN.*10+

C'k~1'~'':::'''7
I;';'

I

(196::::

INPS3

(15A~-:)

~3?3:4

1;::1i!;'5C'"

~:~9?~:::1

(1';:>:;:6

C:;~:::::'4

(19?:1.

~::1("3::=:

CEA0

0'?:~:A

~Ji5C'"

073C

CEA~~'1

~::17:i:E

(.:.t.

t::j742
'~:I ("+4

U9'?::;

0746

J;:H::5E'"
C::::0FI
~':'j.. 5!=: .,'
12I4FA
C:WH

(1-;':' .::~:=:

0?4A

~:.1:::~

1::;1976

~~174C:

FOF.: ONE L I NE'-;:'
MIN SPACE FOR ONE LINE

NO

..'

~3,?'3:2

~:~74Ia

I S THERE F.:Oot'l

.,'

l.Ea:~;;~
~~"W:=:

IF SET.. EXIT
FIND LAST LINE

@BOTTCIt'l

0724

':.....

PAGE 01!:128

:::~()UF.:C:E

1 NF'UT

PUT LINE NO IN HEADER
SET PREVIOUS LINE PTR

t10V

HJ .. (!iSL I NPT

SAVE LOC OF CELL WHICH MAY REQ

~)42t;::1

CLF.: :+:F.:10+
1"'10'·.,'
Ri~Z1 .. F.:i2
8U·JP 1]1 F.: EA[:'

ADDR FOR INPUT IN Ri0
SAVE INPUT AN)R
INPUT

(iF 91=1 .,'
121249

ANDI F.:9.EOF+IOERR

CHECK FOR EOF OR 10 ERR

JGT

INPS1

(:8

* F.::l (1 .• (g.SP

'T'ES
DELETE TRAILING BLANKS

074£
1;::1750

600~j

~)?~=;;;:

~J6('1A

07:54

::" :::::i. fi

~:171~5i;

:l.~j:i.E

(~9::::;1

[1'?'~5:=:

0::L:::6 ..'
i::::FC

(1':::;:::::2

O?~::;A

1~1:5:::A

IJ)::::::

O?!:;C

OEAI~'1

.JEG!
I I'~PS2
INC F.::H-::t
t''!CIV8 I]lCF.: .. :+:F.::H3+

END SOURCE LINE WITH CR

o
. t.·

."_ k4J$

... _.#4

d'

_.

$I

44#.$ ...

dtt#r..

pen

fl

PXREDT

MIRA990

~)'?!5E

0

~:'1:1:::5

,.'

~~~'?6(~

2~:;::~1~~

~~('E;;2

121:1.. 2E ",

f.~19::::~:i

0764

1.6~1:t

~:19:::;6

~)'?66

~]5E:A

~'::1~::'6:3

CE:(14
t2t15E'"
C1.0A
C2AO

(~~?;::'?

~;l?6A
~~i9::::::

~~1'?6C

(,'1989

0'?6E
121'17(1
1;:'1'£'7'2

099~j

~377'4
k1~?:::I1.

C:6A0

[:::::20

'~1'?'?:3

~)1,58

..,TNE
INC
1"10Y

$+4
R1.f1
LINPTR,@PRYLIN

I"IOY
1"10Y

RiO .• LINPTR
@.SLOC .• Rit2t

POINTER FOR NEXT SOURCE LINE

1"10Y

@PRYLIN,*R1t2t

FIX NXT LINE PTR OF PRY LINE

1'10Y

@SL I NPT .• @SLCIC

1'10Y

IItl'lA::-::L I N, CL I NNO

SET POINTER

t'10V

IItPRVL IN,. CLLOC

PAF.:RMETERS

r'..,'

U(:ICNT, IItl'lA:X:L I N

R1.0

INC TO
NE:>~T

WORD
IF O()D ADDRESS

",

~.:n,~,6"

~~1'?7C

C22~3

~377E

1~~:t5C

~?:1~7.!9:::::

~17:::(1

~~1994

1-21'(':::;2
(17:::4,

",

~::f:7.i::;'~:i

0~:';=::=~

C::l.. AI~1
0::L5E'"
::::::::1-:;:1:1
121:15C: ",
1.5(:C

13996

1~~'?:3A

~Z1!:iC~5

1~:19~:;'7

(17'::::(:

~34!:.'i5

j2l9~;':=;

~:17'8E

~:::15AI2)

(,1"?90

~11.::IA

~:~~:'9;;::

(~4~i5

099::::~

~!tt·1AF.:GU1..

~)::I.5E'"

~:'1??6

i~-;:':::~'::

COC

~)1.5t;'"

~':'l'?~:'H

099;;::

PAGE 012129

9.:~:::92'?-~?l901:+:*

•

~j9::':4

1.2 : 13 : 1:t

',•.'2 L:1

I NF'UT SOUF.:CE

INPSl

..,TGT
INPS3
INCT 5
8
*5
I:gtEOFLG
INC

NEED ANOTHER LINE?
YES
F~ETURN

EOF RECORD DETECTED

",

E::<:ITIN 8

*5

C

o
.4 $44&

..&Z

40.1

4.

i.taIk.tti.p&' II

"j"

PAC¥'-

--1i'+'*'¥e!I'!iOS"

~t;:::

. . . ··.··.lI:...1.... f

F:·': I T CCI/'il'lAI",ID

: 13 : :1:1.

•

o

J..()02
:LO(i::::

:+: TITLE:
:+:
:+: 1:;£1",1 I S I ON
:+:
:+:

J.. 01) ,':1·
:1. i;;) .::) 15
:1006
~L(10?

j.OO::::
1.1211219
:1.010
::L ~:):1.:l.
10:1.;2

1;::1794

:

E;:";T
E:':; IT CONt"IAN[:1
1213:.""15,,,"76

ORIGINAL - COMMAND ADDED TO RESTART WITHOUT
I T I NG EOF
:+: CONPUTER: 990. 990 ASSEN8LY
:+: ABSTRACT: RESTARTS THE EDIT PROCESS WITHOUT WRITING EOF
:+: CALLING SEQUENCE:
:+:
8LWP @EXT
0006' EXT
DATA MAINRG.ENDACT
WORKSPACE. START
~"'F.:

:+:

o
""

$ .. ..Q

'"

,JiA ,."".,,±,.

J.

&.aL_MU;';","

4$#j_"',:q"~_A",

.LA ,.M,WpM

,i~

;"

WP) H

t(

'Hz

e

e : ": RE:- [:t T

12: 13: 11.

PAGE 1211213:1

F' I N[.I CUI·'ihAI'·m

•

i.~~IJ.. !:5

0

:+: TITLE:
:+:
:+: RE'",' I S I ON :

1,(~:1.6

>

~_~:l1C

*

:.l.~::':l::::

ORIGINAL
03:/15/76
MODIFIED TO RUN WITH PXRMTR
99121. ASSEMBLY
THE FIND COMMAND LOCATES STRINGS AND
THEN CAN REPLACE THE FIRST STRING BY
:+:
THE SECOND WITH VERIFY AND PRINT OPTIONS,
:+: CALLING SEQUENCE:
BLWP @FND

1~;):19

:+:
:+:
:+: COMPUTER:
:+: ABSTRACT:

:1.0<'2121
1(1;;::1
l,I;:;,;;::;2

*

~t(1;:2:~
::U~1;;~4

:lIJ2~5

*

~Uj2E:

:112';;;::7
11;::1;2::::

~~t79:::

IZI[12C'"

~:r?9A

~379C'"

~}79C

~)2EC}

079E
(17A0
0?A:2

121 ''::1;26 ",

UJPI ROUTRG

~;:"5AI2I

BL

C::::~.38

~:17'AE:

12112124'"

(t'?A::::

02:::(:

[1?AA

~~I(~4C

::i..03:3:

~3'?AC

160:::!:

~1.i21:3:4

(~'?FIE

~372121

(1?E:I2I

~:1::L:1E

1~17E!;2

::L~}~37

~:::1'?B4

~::1;;~8C:

O'?E:E:

~31;::146

~:::1~7E::=:

13:~32

IZI?E:A
07E:C

~:::146~3

CLINNO.@ROUTRG-2

(:I

:t2 .. "'L'"

FIND IN LABEL FIELD?

'T'ES

",
JI'1P
CI

FN[>A
12" ,"F'-

,.rEG!
E:

$+6

CLR

@LFFLG

'T'ES

CLF.:

@SRIS

';:'~590'"

0'?Fi4

1044

FroJD
F I ~m COIVlt'1AND

Ft'mA

~:14E~3

CLEAR REPLACEMENT FLAG

[1i2,:; .'

,'-'[)t;::;

12I6A(1

I:::I .... [);:::

~3A~5C

1::.1'" L.'r1
1:::1 (L)t..

L,;::,i"":II_"
~?'!J.,64

",
FIRST STRING DELIMETER

,.'

~:j

(I)t:

1..::=:~~'21

~:j

{' ~;:,I~:I

U::U:::::·"

~J

(1:::,:::::

1::1J_"('4

.,'

~~I(I:::A

~~lt:;Ar~1

O?E,::;

~::tf161==t·"

O~::'E:~:

:::: ;::! 1~1 C~

FNDE:

SCAN TO

.,1'.

,..$

_a'£L.t~lH.J

. ¥.4t¢ t

441;;;

4;

"we

tf

,.. ..

'71

'~''''"'''.1::;,'L.''

I'f .L r::l-1::::t::~10

1

:.L ~:) ~~) ~:~

~::I?r:::C

'2t::l.64 ..'
:1..6FI::

:1lj~:;1

Ij~:'E:E

C;~~I::I(1

~j?F'~~
i)oO?F2

121:13:::;: ..'

1.05~~
1~~~~S:3:

(f?F4

6~~~A0

(1,?'E~:1

0

~36(1A

258.·····('6

:1.::: : ::1.. 3 : :1:1

V2:1.... ::I.

.JNE
1"10',.·'

FNDB
@CC, 1.~3

DEC
5

10

FIRST STRH4G
CHECK FOR NULL STRING
ADJUST FOR DELIMETER

@FS(:O~'<:,

1.0

Ij'?F6

~31.74···

li21:::i.:+

€1~;:tF:3

:1602

.JNE

::L~3~:;i~5

~::qFA

~~146~3

8

$+6
@OPNEr::R

~~1'?FC:

~3JE)3'"

(1'('FE

C:iCA

t'10V

1.0, Tt-1LOC

BL

@GCHA

CI

:1~~.,

.JEG!
CI

Ft·mC

.JNE
8

$+6

CI

12 .• >(1[;'

IF C/R,

.JEG!
CI

FN[d.. 8
:12.- "'p.-

AND NO STRING REPLACEMENT
CHECK FOR PRINT OPTION.

SAVE 2ND

1056
1121~5,?

1.6'::i::::

~):::~::~(1

~:16A~Z1

i~~ :=~ ~.:~

05:.:::~Z1···

;;::

E1;;::::'::C:

0::;:06

~~1~::12(1

::LOf:'~1

1~~:::!I2I::::

~LJ:FB

:t Ot::::I.

la:=:~::'A

~~12:3C:

6::::0C

~X156

1. fit:: 2

~:,r:::~:)E

~l6~'::12

li~16:.:i:

I~J ::::1. (1

12t46~)

:1Ut;.:::,

0::::::1..:2
0::::14
la::::16
1;:1::::1.::::

:.L 1:::1 t:. t:1

~:1;:::::L H

H)64

:.LI::Jt:· {

Cl.~:1b::::
'\

::U:.1b::~

1~:::1'?0

:.1,j';:":1..

:J__ :::2:~1

kl ;;2 :::: c::

THEN NO PRINT,

.J I:: I::'!

1~~::::2:~~1

'-::::::~.::t'-:

f··IO',.·'

FN['1.B-4
:t2 .. I~SSD

I;:, ~::: ~~ ;;:~

~~J ~L

k1:=:~24

C:f:21~~

t'10V

(iflCC .•

~:::J:=:26

€11.3:::: .,'

~::~:=:2:=:

0:1.76"

C~1:=:2A

~~16A~3

8L

I!lCi I TCF.:E:

fO:=:;;!:(:

~3A6A'"

~::1E:~::E

::::=:~3C~
~Z1:.1

r'-'

1.2 .. @SS[:'

~::1:::::::i:~J

JNE
INC

FNC'F
(ifiREPFLCi

t'10V

I]lCC .• 1.1:'::1

(16~~11:'

[;o£C

62A0

:..

11:'::1
ADJUST FOR [tEL I 1'1ETEF.:.
1]1:55 [:. ::'~., 1.(1
STRINGS L.,JITH

i~1 I:::: _~:

r.;.

1;:1::::3:::::
(1:::: J: r1
0::::3[:
0;:::3£
():::I·::I·O

NO VERI

IS::: ,,'

FN[:'F

.. 6::: ,.'

(~SS[)~<

AND ITS POSITION.

SCAN TO END OF
SECOND STr:: I NG.

SET STRING REPLACEMENT FLAG

0:13:::;:'"

~'::1::L?6··

:J..~::!.?'?

~:j84;~~

:::::1.CFI

C

::1.. i) -;::. ;:::

0::::44

lJ:(1~;::

..TEG!
INC

c).i:::I::::.'?

[)EL I METER FOR
SECOND STRING

I]tOP~4Er::R

~;H:1 :::' ~.:.1

~l6FE:

J.. () ~:::;:?

IS NOT A VALID

:.L ..::. .:~::I

(15A0
t1:12:.:.]' .'
c:;;;:: A 1;: 1

i,;::,;:::!?'
10::::::1..

/V/

1-;:11:':i ••l.t:.

083:4

J"O-;::'~~

..·1,.,•..·

1::,1;:::;:J..IoO'·

(~:=::~:~~

:!..';:~?'j

..

CHAR Fr::ot1 COl'lBUF

:>20

O~K1[)

.i..1~}?:::i:

::1..;::'1'('6

:i;;~

GET NE::O::T CHAR.

12GE~j'"

1;::128C

:.LI;:)?~~

:1"i:374

SAVE STRING LENGTH.

FNDC

t1:::~::14

10~:i9

NOT ALLOWED

~::1::::46

O!;'A~3

121::;:48

~::I~l26

1;~I::::4A

1~16AI~1

Ij:::4C

f~1:5

f~:::4E

~~t~~:::C:

(~:::~25(i

~~IO~3!)

I?I :::: I~:; ;;:~

J.::OD

:.1.(1 .. n'1LOC
$+6

SAl'lE LENGTH?

I~I'U.,JLF

SET NEW-LOC FLAG

..'

F A:::: 1<
·c=L_

(gt(:iCHA

CI

:t2 ..

.JEG!

FND1.E:

SEE IF VERIFY OR

:::.:: (1 ,.'
:>~)D

PRINT OPTION SET.
NEITHER

#.$

MZA ."

. , 4#. L ". _". 2

is! ,.LL"" "i-H"

. 4

¥ .. 4.q;

PXREDT
F I N["

1. ~~:::::':l

0

MIRA990

V2L1

•

~3::::!.54

~~I~:;:: :::C:

CI

:12:.-

.JI'JE
INC

$+6
I]tVFLCi

028C
';::U215f1

CI

12, " P ..'

JNE
INC

$+6
@PFLG

(IE:~i6

('t~~'56

:10:=:~:i

1218~):=:

:1.,2!::;:6

(1~=:!:5A

:V5('I2
05ftf1

~.1:=~~3C:

~::'t1.2;;~

(1:=:~3E

:1.(I:=:~?

~?1:=:6f1

J,el:::::::
:1.i?1:;:::9
:1.f190

~~1:=:62

16~32

1;:1864
f1;:::66

';::15A(1

(~1:=:t::=:

:V:::1F~3

~~IS6A

~~15AO
~31.;;;::e,···

r:::I5AO

~::''I87~3

o~312:8'"

:1(1S'4

~:1::::7;2

C:;~'::f·3

1~:j9'::~

~'::1;=:7.:~

C:~):3:::;'

::U:'196

~:'1::::7E;

C26r?1
I;:H26'"

0

.'.11/.-'

SET VERIFY

SET PRINT

Jt'lP
FASI<
:+: LOCATE THE LINE TO BE SEARCHED
INC
@PFLG
SET PRINT

~?:I:=:~~:E

t.;:1:::: ?::::

PAGE 003:3

~:::1:t20'"

0::;:6C:
l~:.'t:::;'J:

258 ....'76

..'

:1~~19:1

:11::''192

12:13:11

::N89;;::7-99~:::l:t*:+:

COI"!I"'lfH'-'!1)

FN[:ol.B

INC

@FFLG

FND:1

tolOV
1'10'·.,'
1'10V

PL I t'1TS., 9
9 .. LINAC"
@I'U,JLF., 9

SAVE ADDR OF CURRENT LINE
EXTRA MEtolORY SPACE REQUIRED?

1~:~97'

~~~:::7A

~13r::.'tF

..rEG!

::L09:::

~:~:=:~?C;

C2:Fle

t,,/OV

FNC":1A
@HICOR.. :10

NO
F.:OOt,·/ FOF.:

(1:;::'?E

r;:K1~::1:=:

t'1C,'·.,1

1]1 '",'LNP TR., L I NPTR

ONE

..'

t1:::::=:~::1

C1.2~3

~~~!::::::2

l2Iel;;;::E'"

::lJ.('t(1
:1,:1. I~' 1.

~~1:=::::4

E:~~E;.:~

._.c

LINPTf:=~., 1~:::1

1~~:=::::6

~~12:::~A

CI

10) ::;:0

~.3 :::: ::: ::::

~~1'215~:3

::L:1. ~::1 ~;~

~:'1:=::::A

1B~:::1?

.; 1:1.0:3:

~~1 :::: :~~: C:

C: 22 '.:1

.JH
MOV

FND:1A
@ROUTRG-2.CLINNO GET BACI< LINE NO.

~):::~='::E

aa:=::3'~~

(1f1;;::4 ,.'
f16FiO

BL

@SG!UEEZ

~~!::::;'2

~34(1E:'"

(3::::9,4
121=39'::

1.(11212

..r1'1P
B

$+6
I]lPFKHT

NOV

t,·/O',.·'

LIt-dAD., 1121
:+::1(1+ .. @CUF":NO

/'10'",1

:1121., I]lPRLA[:'

t'l0 ',,..

*H?'1+ .. (€'PRELAC"

t'10V

:1121 ..

/"10'·.·'

*:1r::.1+ .• IEN:,,:TLAD

t'l0 '".'

1121 .• I]lTHLA[:'

:1.la99

C'

:1,1';::14
:1:1.~::t~i
:1J.i~:16

~::t:=::3:3

I2IA4e ..'

C:2:=:2
C:::::":::H

1.:1.0'':--

~389A

:1.~L~]::::

~3:39C:

:1:.l.~:J9

OE:9E
~::1 :::: FI ~2'

C8~:::1A

~j:=:A2

~):152'"

';::18A4

C:::::3:A

~~'!:::A6

(1~L4:=:'"

:11,:.1.0

I::~::::H:::::

C::;::OH

,:-:l:=:B~~

1;:116W'
C:::: 3: A
f114E "
C:::a)A
';:1:1.6C .,'

LLJ.4

~:1::::E:4

~14C/)

::L::!.. ::L!::i
1.::1.. :l.E;
.t J,1';::~:.. :I...:l.:=:

r;::t:;:::B6

~34CE

~~~ :::! E: :=~
(i:::;:E:j::,

C:26~1

O::::BC

'::J:126'"

J.. :1..:1.. ;;::

t;:1::::AC
O::::AE

i~l.:J.. ~::

~:.'t::::B0

FND1A

NO
BUFFEF.: FULL

SAVE LINE NUt'1E:EF.:

'~U5c.:1···

@::iHH

:l.:J,~l:J..

0

~2146f1

LINE?

C3:C4

SAVE ADDR OF PREVIOUS LINE

']lF~-=:Lm'}

SAVE ADDR OF NEXT LINE

CLR
FGPOS
CLEAR LINE
ClR
FPPOS
INDICES
:+: CR~ATE HEADER FOR POSSIBLE NEW LINE
MOV
LINPTR.NEWPTR
/"'/C)'•.•' ~1'Ir·U·JLF .. 9

. . . .$

ZkkM.J<..

¥

Q

'

Mi4¢

,'$+ . "'··.·.·WW··U···,,····"l'"

"N",*,Mrt*

•

0..

11:1.9

08BE

:1t,:;::O
11 ;;::::1

1;::1 ::;: C ~::~

:1.60:1
C3C2

0:::;:(;2

CFE~:1

~3::::CA

la:1.51~~

'1;('

:1.1.2':;~

I~~:=:CE:

PAGE

25E:,···'7E:

1,2 : :11: : :1:1.
914:::927-.. 99~::.~:1.!+::+;

F II··JI) CCI\'II"'IHNI)

0e:(]:4

"'10'·.·'

$:+4
LINAD.NEWPTR SPACE?
@CURNO.*NEWPTR+ COpy LINE NO TO HEADER

1"10'·.,' ,

@PRELAD.*NEWPTR+

FI::-:: POItHER TO PRE'·.·' LINE

t·10'·,,'

I]lN:X:TLAD ..

FI!=<: POINTER TO NEXT LINE

BL

I]lFF<:OL I N

JNE
1"'10 V

",

CFEH
f1j.4::;: ",

08CA

CFE0

~.:.1 :::: l: I••:

1;:;1 :14 E'"

ll~~

~~L~

~bH0

11~~

08D2

880D

C

FCiPOS .. I]lLOto'!RG

..THE
E:L

FND3
(HONLIN

l: 1

FCHAF<: .

..TEG!
,.Tt·lP
C

FN[:'2

:1.123

FND;;::

11~b

~~Ub

14~b

11~i

0808

06A0

~:~!:::I)Fi

12t9A:3 ,-'

11~~

~~UL

0~d~

(18D!::.

~:1k1k1r'

FN[:'4

08E0

1348

10F5

1132

08E2
08E4
O::;:EE:
08E8

11~S

~~~H

L~~~

~.:.1::::i::'.L

~:11.

~:H72'"

:1.:1.34

0:;::EE
08FO
I::j:::!1'" ;::::

~:1::'.,II:::b

1129
1130
1131

(1~L=~:6

FND3

:1.547

li.Al,
114~

NO

>~21[:'

ENe, OF OLD LINE

Ft'J[:'9
FGPOS.@HIMRG
@FSDX.@FSDXT

BL.

I]lFF.:STF<:
FCHAR..1:2
FND!::i
(~L.FFL.I]., 1;;;::

FN[:'9

06A0
::;:30::;:

C

~L=~:~~14

08F8

C320

..TEG!
t'Hy·. .

~~U1E

FND7

.JL.T
t"10 "",

FND9
FND4
FGPOS., I]lSCFP

DEC

I]I::::CFP

E:L.

Il'ITONL.IN

t'·I()',.,'

.,.I r'lF'
~~~~

L~~U

~:19~:::12

(1::L6E ,"
~)6:~:121

Ij90E:;

O~L6E

0908

06H0

1;)9~3H

~:~9FI!:::

NO.

~NU~

FND6
,,'

~7.19~~1C

CJ.,CD
0GA0
0994'"

E:L

FGPOS .. Tt'1LOC
I]lFF.:I]L. IN

1145

0912

8807

C

Tt·1L..OC., (f;lH I t·lF.:G

::i..L4'~;

09:.1..1:::
O:::IJ..::::

J.':i::~:O

.JCiT

(16AO

E:I....

(~F

C

1]1 F :::; [:0.,

~::19E:6

:::1:1. C:

:::: _::: ~~: 12~

~::i

.,'

FOUND END OF FIRST STRING?

:12

0:1.64'

:1..149

o~.::.;::::el

1309

.JEO

:::;;F't-.![:'

J, 1..:::; (I

0 :;:<~: ,7::

:::EJ'::I:;::

C

1'-;'
.:-...

L.L ~~;:L

O~~2,::j·

J..::~:Fl

.JEO

FCHAF.:.,
Ft·JD6

;,j',::;;':

CI9;?t;::

C=~:6(J

1"10',,..

(~:;CFP.,

FCiF'OS

II",le

I::'·GPO::::

11 '::;::::

.'

eJ ::::! ~~~ ;:::

DON'T L.OOK PAST HIGH MAF.:GIN

FN[:'9
F.: STF.:

!~~:~:;'J..E

0. ..

FIELD ONLY? YES NO MATCH
TRY TO MATCH NEXT POSITIO
FOUt·J[:o PO I NTEF.:

.,'

090E
09J.O

la:~';'J..H

STRING MATCH FOUND
IS MODE SET TO L.ABEL

.,'

~L:l::[)

0904

GET CHAR FF.:Oto'! STRING

1:.i..4:?

.1..1. I-I· ;:~:

YES. STRING NOT FOUND
NO

"

1144

:L.L·I?

TIME TO STOP STRING NATCHI

('4"

:.1..:,1..,,::, ~-::'
:1.:1, ,:" ~:j

TIt'1E TO START STRING t1ATCH
'T'ES

.JGT
MOV

(1:;::F4

~3:;::FC

GET CHAR FF<:ON OLD LINE

."

1;:,1::::F6

iJSFA

~L :1. ~:: ::::

88(1)

*Na~PTFH

YES. MATCH IS FOUND.
MATCHING CONTINUES
F.:ESET OL.D-L. I NE

1;:1 1. ~~; E: .'

"

"##4

M 4#

.4 tz "._ .;.

4..3

...4,

M4

¢.Q

AiW. .4MiGjAlPlPAK:gQIbHJIl44I4

::I..;? : :1.::::: : :1:1

I::) '::~' ;~::: C
IJ92E

c . :~: ;: :; I)

l'iCI,/

FOf-;'CI~::; ..

Fa....

(~1Fr.;;:C)L

.,H'I P
I 1",le:

F t',i [) 3

1"'10\·'

(l,1'·/FLG .. 12

JEt)
i·'if)'·,·'
E::t...

I.._INAD .. 1~3
(!iPF.:L. IN

BI....

(~jGErFINS

. .' . ..1 .. ,.......... '

09:::::;::::

(:It::Hn
Ci ::) ~::i "~I· .
::1.. i)::::

::i...J.;~:;·?

1:~j9:;::4

(:;I~;:iHU

:1.1. :::' ::::

1:::19.'::3
i;:'193H

i.::: :::::;? ~::I

1.,L:5::4

o9:::;. c:

:1.3:0()

:l :tr::;(j

(19:::E::

::LJ.~::i'5

O "'I":;~::'

el ::~I :::;: (:1

o

:~:FNi)

,[1.6::::

(I':::kj,::j,
('194!::;

CI;::::12IH
()3E::4'

J.. .L ,:; ::::

I::) ::::, "I, ::::
O::::14H

(:j 4 ~~ (;I

·i.. II;::;·!

C19.:.IC
[) ::::q. E::
i;::t ~::I ~::; (:t

06~il21

[I ::::<::;;::::
(~19':::j .o:i,

;;~WI C ;~::

JL f: I:::
1167

;::19,,51::;
0958
(:~9~:'i~i

:1. ..i.. I:::; ':~I

C'

:.i.:L?O

,>

:.L.i.. /'::i..

:~ :~~: ~~ (I

I OI"J
GET CHAR

MATCHING STRING ENDED
STEP FC)Ut·JD COUNT

(~:::'PI::

097C
0 :::'? l::

11::'(/::::
::=: (;I 6 ~::I

(J9::::1~:1

(IJ.'j(1·'

J" .. '.. ,.' ':~i

1;;:. ::~ ::<:::

1:3: ::5 E

I. J .. :::: I;::!

i::r:::, :::: ':1-

t.: ;,,:: 6 ~~i

U :::' ::::: 1'::,

I::: ::: ",

061::/0

. L.L:::: :1.

121 ::"' !::: ::::

1::j::L ':=1-1::.. '
:l. :? ~i :::

!"L::~:,,::

~~I::~I:::::r'i

~j46~:j

(=)9:::[

/2I:::l4 ..'

~~d~

(/98E
0990
0992

0601
15F9
J..056

J.1S6
1187

0994

C2A0

i18~

o

la ;:2 [)H .,'

(19t::C:

ii8?

"1"

OF'I:::-O ..'

[1:9 ~:: E

1..::1../',::::

FOS I

()::i.2~::'·'

0:)4121

J, ..t.. I;:;; :5

FPPO::':::

IN

Ft'JI) 9

C

r·7 1'·,ID9B

FND9H

DEC
JGT
.JMP
GET CHAR
FROL.IN MOV

*

F:F'F'C)S

OET CHAR FROM 2ND STPING

.

:::; [) :1;;;::

IT~N;:~~1D

FND:1~3

00~5J..

~)91)C::

J.:lO?
1212~?1 ::::
0 I:::' 0 I)

JLT
1....1

FND:1.. :1
FCI-IAF.:., )OD

(I~::::OE

L. I

FPF'OS., :::0

BL.

(HONLIN

JI"'IP

FN£>:l:iB

NOV

@PFLG .. 12

.JEC!

FND:1.:1A

I'KI'.,.'
AI

NEJoJPTR, 10
10., -6

091) E
~~19 E (~I
t::;19E?
:;:'19E4
(:19E6

GET CHAF.:

IN

091)fi

L. I HE l·J I LL FIT
LINE TOC) LONG

1)(::I~;I~j

t;;'J6AO

(:)9E:::::

~~19fl::;:

1)9E:t=i

::LOO::~:

AFTEF.: E:oni CHfiF.:

..'
Ft-JD::L:l

09E(:
;J:~EE

C320
01:?0"

,::? ":;

0 9 F ,;;~

C :=.:: :::: F

L,>,;::f:~:

!~~9F4

O~::;~:fl

CI9Ff:~

Fr.:·F~i

L, ,,.

D9F='::;::

O~:;;1:10

j

ACr[:.R OF LINE
AC'C' I NDE;':;
POS I T I ON CHAr.:
PUT IN LINE
I NCF.:Et-1ENT I NDE:>:;

FR:~:TR
~~:19i;:;:I:::

1::::1:;:19

Hl)D I NI)E;:<
GET CHAP

r.::·GPO~;

09[,:;:::;::

::L~:::Ct:::

C

A
I"'IO\,'E:
SPA
I 1"'/(:
E:
PUT CHAR
PTOt-JLN MOV

LJ;::::::~

NO

o
. £AlMAS.

,,4\4.(U),

,$4

MJ J44#..Qk.

~"e-.

4

. . L.

i

¢, .lil)UI!

:L::~

," ....,,..: r;:.L' !

.L

..,

.. .:::.
"

LINK l'HE NEW LI~E INTO LIST MEMORY WHERE THE
OLD ONE WAS. AND MARK OLD LINE INACTIVE
FND~:1A MOV
@REPFLG.12
ANY REPLACEMENT?

*

::!.,.~~;?~::t

0

1. ;;~:::::I::J

i;::t:;::IFC

1~:I:1.. <'2 4

J., ;,;:~ :::~:.-.1..

Ij(;IO~~1

::l.~~:E:E:

JE(~

FlW9

,.L2:::::2

~':=IHI~~';::

C3;2(~

1"'10'·,,'

I]lN~·JLF.,:12

1;;;::::::3

OAlj4
1:::IA06

1:::1:1;;;:6 ",
::l.,::f:B::::

.JEG!

:t ~~: :::: ,oj,

OA~.:=t::::

C~:!:~~~,

1···10.....

FND9
,]I P F.: L AD .•

o,:::,0 A

NO

la:t ~=':i;;;~ "
C::~::l,C:

1"10'·,,'

:1236

tlA(~I!:::

121 ;;2 ~~: C:

AI

:+::1.2.:1.2
:12,,4

!;:1H::l..~;;

~X1(14

::1..2:::7

i::~A:l.2

C'?\N

1''1(1'••,'

L I t,IPTR, *:1.2

J.?:=::;::::

I]A::L4

C:~:2(1

1"10'·,·'

l]ln~LAD" :t2

1;:~A::L6

1'10'·.,'

J.2:,;:::::':'

~:'lH::L::::

O::L.6A
(:3:1.C

l.;;~:·::j.O

~?IH:t.H

~L::3:0~~~

:1 ;;;::,,;j,:1.
:1..2·:1,::::
:l:?·l:::;:
J.. 2"j,,::j.

OfUC:

O!;5CC
C'?~?14

(::142

FND::i.:1.C t·10',,..

1;:~A;;:::2

C;;;::<~~(,

MOV

@ROUTRG-2.CLINNO

~?IFi;;;::4

~:::10~:;::4

of:1 ;;~: I:~

(~t:'A~?:I

BL

11i'~::I T 8L

(112'l~?:I

;.i.. ~2 ~::; ::~

~~1t=14C

1~100E

:1.,,;2f':;~)

~.3i=t4E

C:~~~:;::~~f

~;~A!:)\?I

~.K1;;::4

OA~5;2

1;:12 E121

~~1Ar:;4

(~~::~;;~C

PFKNT

']itt'lSGOUT

DATA :lE;
']lSFi:KNT .• 9

PRINT

'LAST

LINE~

1"10'10'

,.'

BL

(!ilC ON '".' F.: T

CONVERT COUNT

ElL

l]lt"ISGOUT

PRINT t'lESStiGE

TO

ASCII

"

DATA :14
0000 FOUND
MOV
@ROUTRG-2.CLINNO GET BACK LINE NO.

..'

u·JP I F.:OUTF.::1.

.. '

OH~:;6

O~i;:=:~3

12IF1:::;::::
~:::1A::iA

0460
(CD.::'

J..~~~1=;4

f1A~3C

:.I. ;:~: ~:; ~~:;

1~1A!::iE

OA6~::1

\~IA61=t .'

1:::IHb;~::

t;:l~:;:::=:L

,.L:;,::b6

IN

~DE::L6 ."

~?lf:i;?C

J.. ;;~: I::; ~2
:1. :.? t:: ::;:

L I NAD., 5

"

Of:j:2A

:J..I;::I=;~L

F I ~< NE:":T LINE

~:~Fi;:~:O

:1;:;::'1·

:L ..;:: :5 ~:;
J. ~? .~,::; t~

::< PFi:EV-L IN

*:12,.:1.2
JEG!
FlJ[:':1.:1,C
INCT :1:2

::1.,:::::46

:1.2':i3
::1..;;::::;4

FI

i~"IH::LE

A ~~:: :::;:

LOCAl' ION?

NO

i;::IA~:~C

"

NE~'J

:t;;;::

::L,;~,~:;:5

~;,

0

C~::21:::1

09F:'t::

::/..,;::4:::;

C

:1.::1..

~

·r·,

" ,,',

"

: ,L::: :

F:TI.,JP
EI~;:E>::Ft'J

E:

1]1 OPN E F.: F.:

C:L4E:

GITCR

~~6t112t

GITCR~

MOV
BL

RTN.5
@GITCR8

EXTRACT CHAR FROM
COMBUF.

REJECTING

.. .4-

4.A.. AM.

X-

...

g"

12 : ~U: : J.:1.

o

iJHf::.,.:j

UU;::lj

:1-;:::67

OA61::

J. ::::: F E::

:1..;;:::1::;:::::

JEG'

GITCF::1

Cifle:::::

O,;.1-~5:)

,::'
1::

:+:!5

:.L2t:::.:::i
:.1.2;:-'0

~~IA6H

C24E:

OFit::C

el':::HO

Cifl?:;Z

1215 ::;: ~::i . '
028C
01;30D

0H74

:1..602

0Ai6

0460

I:)H,:::[::

:1..27:1..
:1..272
:1..273

:1..274

OA70

Off?::::

03:E6

0A7A

6459

1

BLANKS

f;,:TN., ::;,

E:~3[:O

FPOM COMBUF.

INCLUDING BLANKS

BUT NOT C,...'F.:

:+:9

o
q

,4;

b~.

qUk£

P.i,.·

_ . . . . LX &1.£3$

l~;

.\.4 ,n;;;; $

in

.).UI¥

.904.#

4At

rA~~VI

Ml~H990

:L~;~'?::::

:1.279
:i~:;::::;::~'1
~t2::;:1

F.:E"", I ::;: I ON :
OF.: I Ci I NAL
~3:::(,···115.···'76

'::ir1:::::~~1

Of"i::::::;~:

O~L54

:1.:::::::::1;:::

~::IA:::::4

C::I.. E~::1
I;:LLt6'"

:1293
:12S·4

1::.1H:::::t..
Ofi:='::::;:
(IA:::':lI=i
k'lA8C:

~L;::::::::::::'

~L;;~:!:::E;

:l;;~::::::'?

:1..;2 :::: ::!

=

~L:?::::9

:1.;?90

OA?C:
~:jFI?E

:1 ~,:: ~:~J_

J.::;::9~5

~:'lASE

~L r:1(;~::::

CO;:::6

I NSF.:5

(16A~3
O::;O~)

t'l0 '",'

f~CHFL..G.,

.Jt'·IF'
t'l(:)'"."
8L

INSR1
CLLOe., L.INAO
I]tSKANOP

..It'lP
1'10',,..

U[:'C:t'~T .'

8L

t]lFLIN

1~:IF19(i

::I..~~I~~15

IjA92
UH:::I'::I·
i;::1H:::Ib

C::::c::t:1.
1211.:3:C ..'

I;:'H::::';:::;

k14 I::. 4

:1.•::::::,:::1

~.:.lH::'1"1

i.... ~.::I:::: ...

:1 ..:,: ~j ~:~

i~~ I-I:~ '._:

C2Ak'l

OA9E

~::1 ~~1(1

1.=:::0:1

f.1AFH:~

E;;2:::4

:.:'

LINPTF.:., 1(1

:1::-~:1~~2

IZiAFt2

~~12:::A

CI

:1.~J .• :::~3

~::1AA4

005~:::1

:l::-~:O::~:

CJAt16
OAA::;:

:1.E:~;~2

.JH
ElL

$+6

~~IAAA

(;};:H;:t:;::.,'

~.:.1bH~.:.1

.'

r'lCI'.,"
I N:::::PJ.A t·1CI .....

IN:::,f'o::~l

~:::16A~3

01=IF1C

C: 2:::: 4·

1.::~:~::t6

~:::1AAE

..;:1;22 A

I~JABO

~)('1[16

::L:~:~:; ?

f.1AE::;~

(:2::::4

"1()','"

::L3:(1:::'::

OA[-N

1~)2:2A

AI

GAEr6

(1~?:1(16

~l3(19

~jHE:8

C:3:~::1A

:1,,,::: 1.~;:t

OAElA
OABC
CJABE

(142~:::1

~:II-ILf:::1

:1"::::1,;::
~L:3::1.:3:

kiHC:::2
k'lAC4

:1.3::14

~JAC6

:t~3:~~i

t2IAC::::
(IACA

j_3:1.6

~:::1ACC

I NSFUA

NONE. USE POINTEF.:.
FIND ADDR OF LINE AFTER WHICH

l]lt·JUt··IE:

INSERTS ARE TO BE MADE

nlLOC., LINA[)
IEH I C:OF.:. :10

IS THEr';;:E

E: ..'

1::~:('t:5

:1.3:::1..:1..

(lET POINTEF.: LINE ADOF.:
GET OPEF<:f"iN[) ,

..'

l.;:::::~'"

1::::04

CHAI'~

nlLOC

:12:::'16

:1.'::::::~ ;::;

0

*

It',ISPT
I NSEF.:T CCJto'U''''Flt'J(:!

*

:.1.2::::4

C

TITLE:

MODIFIED TO RUN WITH PXRMTR
:+: COMPUTER: 990. ASSEMBLY
:+: ABSTRACT: INSERTS LINES FROM KEY80ARD INTO SOURCE
:+:
LINE 8UFFER AND SETS UP POINTERS
:+: CALLING SEQUENCE:
:+:
8LWP @INSRT
:+:
8L
@INSCH
:+: STATISTICS: LINE NUM8ER OF INSERTED LINES
>8000
~JO;;?6 ..'
INSRT
DATA POUTRG. INSR5
I;::'A:='::A'"
C:::::::~JE:
t'K)'.," RTN .. I]lSA',/F.:TN
ENTF.:'T' POINT l,JHEN CALLEC:. 8'T'
It'6CH

:.L2::::::3:

"

:+:

:to
:+:

~l~~:::::~~

25:::1","76

94::;:::;:t;;;::?'-::;:t::;:ttZ1:1**

:1.;;::'??

C

::1..2 : :1..3 : :1.:1-

"/;;;~L.J_

I t·,I::::;E:PT CCH'H'HiND

"'1(1'",'
AI

F<:OOt'l FOP
INSEFH?

(~::;QUEEZ

L It·4PTR.,
1~:::1.,

NO
1~?I

C::ALC AN:.F:: FOF.:
It·6EF.:T

6

LINPTR .. F.:H::1
fU0 .• 6

CALC ADOF.: FOP
I t·JSEF.:T

Fi::H1., F.: 1;;::
1"10 V
BL..I.,JP I]lKE'T'IN

SAVE BUFFER STARTING RDDF.:
INPUT LINE

"'10'",'8 1]1 C F.:., :+:F.::1(1

END STPING WITH A CP

~::1FA4'"

D6AO
k11.:::::i ..
::::3:(1A

'

13:1.E:
[15::::: A
22A(1

C
..lEG!
INC
COC

F<::1. ~~I., FU2
E>n-INS
FU.(1
l]lt'lAF.:GU'1..

..H:JE

$+4

fU~:::1

At·N INPUT?
NCI
SET AC:'[:'F.:
FOF.:

~:H2E'"
16t~H,

",

.vi

.4RSIfMliK;GQ.

" . YLALCPW''''_r __ . sm:;;;mm¥4!h:gR¥@. ¢.

¢

.#Ph .%!4 ..4Z

$U.4;a;;t.

I.~g

.. ¥

E'

W

PXREDT
MIRA990
INSERT COMMAND

0

:i:~::.t.'('·

~::tAC:E

~J5::::A

:13:18
:1:::1:19

~~Hi[:'~:~

1.:3:2(1

(1A[:'4
0A[:.6
€1ADi::1

(::144
(:[:'61;-21
(117A'"
05A0
0:t7A'"

1.:~:;;;::1

~~1AOA

C3:~Z12

13~~~:'::

~~1A[)C

1_3:2:::~

1;::1ADE
';;;'HI::.I::'

CD4C
e22C:

1.":::;".::4

~jHE;;:~

:1..:::..::::::,
:.1...::-.:::1:-

~.:'HI:::.4

1::.1H1:::.6

[1~':'t.:~

;J.. ..::. .::~ ( ,

1o,::IHt:.i::;

'_0"+"+

{~~A[:'2

1::.1t11:::.H

'_:::;':::'L.

::::<

~.:.lHt:.I_.

'.~ {~.:.14

:l..;;'.::.~:l

~.:.lHI:::.I:::.

1__ ':::1::.1;::;

..L. •• ~••~••1..

I::.'nrl~:'

:J..::;: ..:::;::::

~.:.1HJ- <:~

:'LI:::·1::.1"::::
L<:::1.':'}

1 ...::·"::.":::
:.t.;;'.'::."-(-

1;:.1Ht- '4

C::t90

:1.::::3?
:1::~:::;::3

:13:351
:134€1
C,1.341.
:1.3:42
:1:3:43:

R10
LINPTR..5
@I NLNNO .• *5+

INC

I}INLNI'KI

NOV
t·1O'.,,'
AI

L I NAD .• R1.2
R1.2 .• *5+
R1.2,4

INSERT
SET LINE

NU~1BER

STEP INSERTED LINE cOlJl'n

PUT ADOR OF PREY LINE IN HEAD
FIX ADDR OF WORD IN PREY LINE T

1'10'~·'

FIND AD[>R OF CELL IN NEXT
*R1.2 .• 9
LINE (IF IT Er-:ISTS) TO
INSR6
INC!" 9
BE UPDATED
UP-[>ATE NE>~T-LINE TO POINT
r'1OV
LINPTR .. *9
t'1CIV
TO INSEF~TE[> LINE. ~1AKE INSERTE
*R12 .• *R5
MCJV
LINE POINT TO NEXT LINE. POINT
L I NPTR.. *R1.2
,.,1'-'\"
CLINNO .. CLINNO PREV LINE TO INSERTED LINE
..TNE
I NSR7
NOV
*L I NPTf': .• CL I NNO
IF POINTER Ol'~ DUt·lNI.r' .• NOVE
1'10 V *N.lt·lN:"'~T .• CLLOC TO TOP LINE IN BUFFER
~TEG!

!N:::ol-::t;::·

11'':::-''::(

1.:::~:::!:;

:i=:~:36

II'.le
t"IO\<,
NOV

PAGE 0040

~.:.U.::l'=='4

C25C
:1..:>1:::1 :i

. .::::i::i

~L_:!

~I...'::'.::::

258.·..·76

V2L1
12:13:11
948927-9901**

PF.:EPARE FOR NE:>'~T INSERT
t'10V
L I NPTR.. nlLOC
R1(1 .• L I NPTR
t'10V
..Tt·lP
INSR1
@CHFLG .• 5
EHTINS t'10V
:+:

(1AF6
(1FIF8
0AFfi
(1AFC
0AFE

C1C4
C:t0A
:HX:F
C:.1. 6 121

~Z18~)0

1.303:

.JEt}

~:'181;-)2

C2E~:::1

1"10V

$+:;:
I]lSAVRTN, RTN

08~)4

~:::11.54

08~)6

E:1458
1213:::0

E:

*f':TN

OE:OE:

~:::r1:.t6···

GET RETURN A[>DR

..'

GO E:riCK TO CHANC:iE

F~nJF'

o
, ,t

#.,.44

,~4..

,,)

. . t.,AXSZ.1(4,-4.L.

's

,44

,#44M#

j

W

".

F' ;:-:: F.: E (:t T
10D

...:

~~I.,::::::I

t...:!

O::I..~::A

,-:::::U:1.
Ij:l.i·:::: . '

1"10\,'

U[:'C:NT., l]lt'l',/F.:CNT

SAVE UP-DOWN COUNT

1~'1:'31"'11"i

l;;:IbH~::t

II~SKANOF'

1::1 :::,I~~ 1::1 ..'

8L.

GET SECOND OPERAND

I~11::::Ht...:

I"i 1:::.

:1.~:1~.:.1b

. Jto1P

'::Jt:;!::;!:::'

C:::::1::,1:l.

1"'1 U"",

1"1',,.':1. +4
UDCNT., I]lNLWIB

BL.

I]'FL. I N

t'10V

n·IL.OC., l]tt'lAL. I t-J

1:::1 1:';:

tJ.J.. ..::· t....

i::'bHld

~:.tr.:It:11::.

t::''+t::."'I' .

~:J I:'.:i t:;Ci

t...• i:::;t..:.1 (

~:Jt::it::;H

'::,l~~H'

:1.. '+ ..::.:.1..

I:::'t::;r:.;I,..

'_· ..L .......::·

1"11_1','

r"

..1•• ··T,..:·..::..

t-':J •• ~II.. •.• _I

J.NI...:I

a;.-

':.,1"1...'1...'(;...

.-=.

':;.11::,1.••. 1::.'

'::.t::I..L. ....1

t.·

'-':-1':::)._

':.,'1_"_'';:..

1:..I ••

•.•:'

:.L q ...~.;:I

.•i.."1''4"J..

IF YES. USE POINTER
COt"II"lA?

~~II:::H4

'~Jt:it::i.::::

~'!'

ASSUME NO SECOND OPREAND
CARRAIGE RETURN?

t''!'\''1
:1.. 2., :>2(:

i:JI::::J:::4

••1.

SAVE LINE-t-JO OF L.AST MOVED L.INE

1"'1 .

1::1t::r1b
~.:.11::::H::::

C·

,

*
*
*
:+:
*
:+:
*

1"]'0/:1.

L_.L I"

, :::','

'~l"lAL.

NO NUMBER USE POINTER
FIND ADDR OF L.INE AFTER

:::.

WHICH LINES ARE TO BE MOVED
HDDR OF LINE ABOVE STRNG TO 8
SAME AS L.INE AFTER WHICH
STRING IS TO BE MOVED?

~!NU

IN

L.,;::.n

·:..'t..." ...'''T

.J.. ...:,_..

I_,

•..1 C.I".!

1::.::·:;rf"I'",'

f-':.1Ctl .... ,=.

'-":::":::"-'

I'IUV

:'1';::1., ~I::'

~:,t::,t.·;:::;

1....~bI::.1

t'l0 "",

I]WIALIN., 5

'::Jt:;I..,.H

~n.'::::H"

~::'c;'-.,""

~:, 100;::

HI

5.,4

~11:'5'-"t::

~JI::,1~.:.14

~ll::;V~l

I_,i::;:.,-:::,

i"KJ"",

:+:5.,

~;n::: l) ::::

1::,:1.:,.'::1...:"

1:::1 I::::L) ,q.

1...::1'-:":::

MUV

~:.1 t:i L) 1::1

i=i;::,J..:.l{

PL.IMTS.TML.OC FIND END OF STRING TO BE MOVED
TMLOC.@MAL.IN
ERROR IF MOVENG STRING AFTER

c'::::

1

I'I\"'::~

~

NO

FIND ADDR OF L.INE THAT FOLLOWS
STRING TO BE MOVED

(gtL.At'1(Y",'

1::.lt.::;'L·"::'

>':" ..I.. ,::n·

1::..,::·'.... 1
.'

~..::·.::::c:

'..rEG!

ERE::-::N'...'

i::,i!:::L)C:

1,.:1,f.::.~j

r'lU"','

@ABF.:LFG., 5

4..414

ONE OF ITS MEMBERS
ABLOL.UTE OF.~

##;4444141$& J it 442%

c ..

2$..

L

_t

wPs _ AP4¥

$; A.$¥

WAlAS;;

$A!i4;t.APl;, .i!T$#

t-' ;,.,; 1->:: I:: I) I

1'1!.J "/1:::.

o

:12 : :13 : LL

/",:1')1'11 '/ 1'"11",1 L·t

:1'::~<+.:':

IJUI)I:::
UI::EO

J.-+'+'+

~:JI::::I::.;:!::

1.'+'+::')
:1446

:1.'+'+'"
1.44:;:::
:1.449

1450
1,:+5:1
1452
:1.1~1·::) ..:::

I::~ :1. :1.

c:

:1.6~:~::;1

~':~f.::E::4

~'::IJ..~:iH

I,:~t:::t::.t:"

:13[19

Jl4E
C

t'1V!5
*Tt·1LOC .• I]lU'1L

JEG!
AI

t,I'·.·'6
Tt·1LOC .. 4

1"10'·.·'

..'

'ZIE:E:;:::

'T'E::::

C:1.0-;:'
:1~~.1- ..:::

·..IN!::.

08FO

~~1461~1

~)E:F2

l?'i]:F 4 ..'
0620
MV5

E'-'

:+:Tt·1LOC .. Tt"ILOC
\'·1··.·'4
I]tNOTFN(:O

[:'Ee

@t·1'·.·'F':CNT

...TNE
t'1CIV
14 I

t'1'·.·17'
TNLOC: .. :12
n1LOC: .. 4

IjE:EC:
Ol:3EE

0BF4
OE:F6
OBF:;:::
08FA

:16F7
C307

1::~t3r 1._

~~122'?

F.:ELAT I '·.·'E?
END FOUNC)?

~:::11?:=:'"

MV6

SAVE ADDR OF LINE AT END OF NVD ST
GET ADDR OF LINE FOLLOWING

t- 1::'_

~~I ~:~ ~:H

::l."·I<)·:+
:.1.. .+:::' ::::0
:1. ,+ :~:, t:.

1:::1I•. :I::jl;:,1

C J.. 5'('

!,'KI'•••'

:+: Tt"IL OC: ..

~~II.. .. I,::I ,:::

:1. _~: I:~I..:::

...TEO

1··1 ...·'6A

t:ll. ..· ~:, ,'~

~:, ::::'1._.:::'

J. NLI

::'

:.1_ ,:+ :::'

,..

tH..·I:::II::,

1._. :;:) <+ 1"1

::L~l.

:1·::j.~:;::::

oeo::=.:
oe0A

~~164~::;

r·llj'..."
[)E-:C:1"

022A

fi I

1£1 .. 4

I;:H:::~~II::

\.:::1004

:l.:tt::ei

~~IC:(3E:

(:6::!:::5

:14t:::1
:1 ,:+t);,;:

OC:l.O
k;IC:l.:?
OCJ.4
IdC:i6

05(:]:

'YIC"·.·' 5 .. *:1(1
I NeT PL I 1"iT::::

C1E~:'1

MOV

@MALIN.TMLOC

MOV
FII

TMLOC .. *PLIMTS
n1LOC .. 4

~~II:::

1459

:1.,'+6:::::
1 ..,~. t· .:+

~:n~2A

MV6A

:+:5

~5

1~1C::LC

~:~643:

1,;+66
:1. 41':;; 7

~:lCl.E

(,:j C ~:: f:1

C5C3
C :161~1

~:jC2~;~

f~:L2C

::L .Cl· t:, :~::

~:i C ;,:;:: 4

:1 J: ~~I :~:

::Vlb::~

1::1L::~t~.

~j~iC:~i

:.l.':+'" 1:::1

~::IL;:::::::

V:::,4C

:J•. ·'l (1.

~;:I'-.:':::H

~j64~:i

1472

0C2C

022C

~~IG~E

1~1\'~104

0C30
0C32
0C34

C705
MOV
5 .. *12
0380
EXTMV
RTWP
0460
EREXMV 8
@OPNERR
Id3Et;:) .'

1~1C:::%

LINK TOP OF MOVED STRING
TO THE LINE AFTER
~·JHICH

IT
TO E:E NO'·... ED

~·JA5

0004

1.46~:;

1473
:1474
1475

THE STRING TO 8E MOVED
LINK THE LINES PRECEEOING
AND FOLLm·J I NG
THE 1'·10 ...·'EI)
5TF.:ING

.'

(:4C7

UI...::l.b

OC:1f:1

5

BE I···IO'·... EO

DECT PL I t'1TS
MOV
PLIMTS.*TMLOC
1"'1(1'•••'
I]lLAt·10V .. 5

LINK BOTTOM OF THE MOVED STRING

.'

MV68

.JEG!
HJCT
1''11:1'••.'
DECT
AI

!'·1'·... 68
!:i
:i;;~ .. *5
5
:12: .. 4

4, _,._

TO THE LINE FOLLOWING
THE L.. I NE AFTEF.:
~·.IH I CH THE :5TF.: I NG
~·JA::~ TO E:E

1"10 '·... E D

EF.ROF.: E:"; I T

¥

.$2.(

4.£4. i

. .444.0

LX

j

'!WAS . . 4,3£ ,,14iA4\i4#4iU4A

4,' U."

M¢.4,AM.¢#!4

b'1;

PXREDT
F'P:i: f·rr

0'
0/1

MIRA990

:1.,;:1·';::':::';
j_4?9

:+: T I TL..f':: :
:+:
:+: F.:E'·/ISION:

14::;::~~1

:14::;::1
:1·::/-8:2
:1.48=~:

:14:::::::;:i
:t 4::;:: 6
:.1.4::::1'"
14:::::::::
I~~

~.:1

:14~~';jI~J

I;::II...:..:::H
(1C]:C
~'::IC31::.

~.;;I:::':7~.:1··

~~C41~)

C:2::::3:

~~C4:2

06A~:::1

(1(:44
(1C46
taC:4:::::
J;:,1C:4H

~~1C:6:::

:1494
:1495
14=-'t:.
:149?

c·,,~
"

c: ~3: ::;!

:1.4:::::51

:1.493

;~~5::!""'76

F'PNT
PP 1 NT COrn'lAN[:'

OF.: I 13 I Nt1L
1211/15/76
MODIFIED TO RUN WITH PXRMTR
:+: COMPUTER: 99121. ASSEMBLY
* ABSTRACT: PRINTS LINES BETWEEN TWO LIMITS OR
*
PELATIVE TO THE CURRENT LINE POINTER
:+: CALLING SEQUENCE:
:+:
BLWP @PRNT
~RNT
DATA POUTRI3.$+2

:+:
:+:

:1.4::;::4

:L49:1.
149;;::

1.;;;~ : 1.]: : :1:1
94f:92 '("-'9 9~~1:L:+::+:

\.' ;;;:: l... :1.

(:Cil'lt"I~:Ii"K'

.'
L: ..::: L: .'

~~1~:~;::'::6

~::'16A('I

PF.:NT:1.

I]lE;:':;OP

EXTRACT OPERANDS

t·lOV
BL

PLINTS .. 1~1
IEPF.:L I N

PF.:INT THE LINE

1''1CIV

I]lABF~LFI3 .. I]tABF~LFG

.JEG!
(:.EC
JEG!

"'10\>'

PABS
UDCNT
E::·::TPRT
I]lSL I NPT .•

NO'·.·'
JNE
B

*1f~ .• 1~1
PF.;tH1
I]lLSTLIN

t·10'·.·'

I]tL I NADF.: .•

..'

C::=:2~:::1

ABSOLUTE OR RELATIVE?

I~H1C'"
.'

~:::1:1.:1C

~::'1C4C

:13:~3:=:

~)(::4E

~.36~:::1:1

~.:1C!::)~j

:13:~~A

k1C:~t2

C2A~.3

1::,1C::;'4

1::~:1.!:i

14=-':::;
1'::1·:;:1=-,

~.:11_:!56

1::.1 [::::i::::

C29H
16F4

:J.. :::;.1:;;11::,1

~~'I...·::'H

~.:14b~.:1

:1~'I::;I1.

L:
1::,11_:::;'1:::.
I2IC6121

t:;,..::H1::.1
!Z1146'"

~.:11_:::,

BL

PF.:tH2

ABSOLUTE
ALL LINES PRINTED?
IF 'T'ES E:=<: I T
DOES NEXT LINE EXIST?

1~3

:;:: .,"

IF YES PRINT ANOTHER ONE
NO

~.:U:CC:···

PABS

1~)

1.5~:::1;;;:

1~1C6<:~

::::~'::I:::'H

C

:+::1~.UDCNT

:1 !:::' 1::.1,;;:

~.:11_:b4

JN~

PRNT2

:1~iI::.14

~.:1C66

1.1::.r- 1;:0
1::,1.'::: H 1::.1

ALL LINES PRINTED?
NO

E::HPF.:T F.:HJP

:1.!:5~::'1~,

:+: ROUTINE TO PRINT LINE

1::i 121 6

* WORKSPACE ELEMENT 1121 CONTAINS ADDR OF LINE TO BE PRINTED
:+:
:+:
ROUTINE TO PRINT A LINE
*
IF THB ENCOUNTEPED. SPACES ARE PRINTED
:+:
TO NEXT TAB POSITION
*
LINE NUMBERS ARE PRINTED AS NEEDED
:+:
R10 CONTHINS ADDR OF LINE TO BE PPINTED

1:::)~.::I""

:.1..:::.1::.1::::
j

!:::i~;19

:1. ~:..:L ~.:1
:1. ~::ol.:1
1.~:::d2

:l.:::':L";;.

:J.. ::'1.4

0,

1-' 1":: L. 1.

".:.li...~I::,:=i

L;;;:;~.:lH

1:::1I_·I;;;.H

I::J:J.."+t::•.

J_::):1.:.)

t::;1 i.... t:;.I_.

t-.:.11:~'::::H

:J..::::r J_I::.

1::. c.
~:Ii_. ,.. 1:: 1

Piu··.··

i'<:H.1 .• I]lL I NADF.:

=: A

HI

F.:U.~.,

4

SAI••,IE POINTEF.:

1"10'·.·'

FU~:::1 ..

.]tSLINPT

1",1

E LINE ADDF.:

"+

1;;;1 '_.

~.:J ~.:J I::J

f.,:iL. ( .....:

~.:.11.:::,:;;::

:,I. :~:r:J.. ...

~.:lL

,"'.::j.

~::I~:.tI_:H

:L :.:0 :.L ;:::

l::jL,""b

L:::::~.:1H

~.J'-~

•... :=j

~.:1:J..·::t-4

~.:.11_.

(H

L1.4t::

:!.::' 1.:::'

t·.,

Li:::~.:1H

TO NE::'::T LINE

.'
INCT F.:10
R1(1 .. I]lL I NAD[:'
r'10\>,

SAVE TE::.::T POINTER

.'

"'10'·,·'

F.: TN.. F.: 5

SAVE RETUF.:N

P

%-.

#. ;

$I.,J2!@Uq

t

Mk,.J#i4

.t,,"".

. #4#

. IF

M,

._ '-- t l ,,; ,

44. 24$1&.4 Pb " ... ¥;

,. t \.. ;;:;;;;;;;;,IlUZ:;A¥

...

~'"-

_

-" ,,_..

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

""",,,",,......
,.........

.....

........--,---_.25:::,····76

J.2: 13: 11

:1. ~"i :~:: 0

IjL

(C:

Ul.... (I::.

0

ElL

I]tEl[:OPRNT

PUT LINE NO

t'10V

IEL I NAD(:o .• R9

COpy ONE TEXT CHAR

'

~:~L::::I::,

I_:<:::b~:'

~~1144'"

:1.::';"::;;:::

1::tL::::;::::
~:, 1_: :::: 4

D ..~:":::~

1. ~::i ::::: _:::

~jC:::::6

9:=:~~C

~~~ C: :::: :::!
0C8A
l1C:?'C

(119:::: ",

:1.5;24

~~C::::E

~::1:i:=:5'"

t·l0'·... B *R9+ .• R12
F.:12., I]tTAB
eEl

GET CHAR
TAB?

1J:~::~3

JEG!

9::::~)C

eEl

YES
CARRIAGE RETURN?

1::5~~~6

~::iC9~;;

~LJ:1(1

j_:~527'

(1C9;;~

['A::;:C

BLDl

I2IC:94

~::t(1C2'"

~:'~C96

:1!:i~~~9

OC9f,

::L::i:~:0

~::tC9C:

1?15A(1
..'
~:11. !::: ::::
05SA
BL[:'lA
C:2CA

:1~::;:::1.

1?1C:9E

C::=:;;-~(1

~.3CAO

(11:1. A ..'
t;:.11:1..A ..
1:3:02
1?'1;228

1!:~2:::::

f~i C: ~:~ ::::

fICfi;;:'=:
1~~CA4

1~5J:J:

(1CA6
13CA:::::

:::: ,:j.

OC:~iA

~=::::~::1B
(1:13:~~

J_::i:::!:5

(leAC:
(iC:AE

:1.:2EA

:1.~5:::~:6

(1CE:~)

~:%0A

1"::i:::!:?

::I..::i3::::::

::l.'5J:9

::1..':;4121
:1541.

[1C:R~

DAA0
~3~t84

~3CB6

(1~.3C2

0C8::;:
0(:BA
(i(:BC
t2tC8E
(iCC: (1

DAA(1

:1!54::::
:1.!549

0··-'··.,. .
'1

J!!,- ,:" ••,

""ov

NO
A(:o ..lUST FOF.: THEt'l

F.:l1 .. I]tPMF.:G I N

BL[:O::::~

CHECK PRINT MARGIN
TRANSFER ANOTHER CHAR
DECREMENT POINTER
TEF.: t'l l·J I TH LF ...··CF.:

...

t·l0'·... B I]tCR.. I]tPBUF +1 0:: Rl~:::1::O

~X1CJ:'"
C2t1~.3

t'l0 '".'

Co!IPBUFA ..

Rl~)

BUFFER A[:O[:OR FOR PRINT

~::K103···

BUJP I]lPF.: I NT
eLF.:

I]tPRTPOS

B
CLF.:

*R5
RETURN
R12
INSERT SPACES TO NEXT TAB
@PRTPOS.@TABSO::R12::O FIN[:O TAB GREATER THAN

1-·

-'

REINIT PRINT POSITION

'

~:::t;2:=:C:
(1~:::1~)::;:

(1CDC:
OCDE
OCEO

:16F:=:

~)CE4

INCR BUFF PTR
SAVE CHAR COUNT
LINE NOS BEING PRINTED?

~3185···

~3CDfi

~)C:E2

::I..S':SO

F.:10
F.:l(1 .. Rll
I]tPLFLG .• I]tPLFLG

.JLE
BL[:'l
['Ee
F.:10
NO'·... B I]tLF .• I]tPBUF 0:: R10::O

~.34E~3

t2tC[:'4
OC:[)6
OCD::::

~NC

C

1-:3:1 :::: :::: .,'
[1455
134CC:
F'F.:TB
!::: E::;~ ~:'::1
PRTB1
0:1::-::::::'"
01::::A ..
lH.34
0!'.:iCC

~::1C[:O:2

INCR PRINT POSITION

E:LD~;~

~:~CC:::::

0C:[)~)

@PRTPOS

JE:G! . BL[:'2
AI
Rll .• 6

~X:C6

f2tCCE

:1'5.::1·6
::1..::.47'

..'

~342~:::1

l~54,::j·

!NC

'

(iFEC .'

~.3C:C:C:

::l..54~)

..

0CC;;-~

~.X:C:A

YES
MOVE ONE CHAR INTO BUFFER

t·10'·,.'

I2tC:C4

l~::i4:::::

BL(:O::::(
..lEG!
!'10VB F.:12 .• @PE:lJF 0:: F.:10)

~:::1(1~:::i6

I3CB4

1~:;4;;;:

PF.:TB
F.: 12.. @CR

'

:1.5:~:2

~t ':~

C\

f::Jt.HkJ
t"-..:J- o:t. .

:1. ::::0 2::1_

:1:::i~:~~5

~3046

PAGE

DAA~)

PRTSP

.JL T
PRTSP
INCT F.:12
CI
FU~~ .. ::;:

CURRENT PRINT POSITION
INCR TAB BUFF INDEX
UP TO 4 TABS ALLOWED

.JNE PF.:TB1
MOVB @SP.@PBUFO::R1(1)

FOUND.

INCR PRINT POSITION

INSERT SPACES

0:1.::;:6·"
..'
~X1C;;~
~~1':iAO

(li:::::::: ..'

INC

@PRTPOS

~;~CE6

OCE:::::

:=:E:2~3

C

@PRTPOS.@TABSO::R12)

UNTIL TAB STOP REACHED

'''J

oM

$.

__ ~W

gMP

« .in

4,.

a. ; ; ar _ _1m; "# _gLU··,·Y

"t'"",._,

In<<,,

\$

*'

":!'!lZoIl+- •. , ••

rA~~~!

MI~H990

PRINT COMMAND
IJCEr!

0

·.··'."1
','"'-'y

OJ.:::::H'

1~1C:FF

::1..::5 ::::~ ~:;:

OCF(::I

::1.. ~::j:5t;;l·

~JC:F;::::

(1CF4

C2A0

oeFf;

0~L:1A'"

~?ICF:::::

04CA
1327
C2A0

CLR
JEQ
MOV

(:'I[:{~ I)

O~t46'"
C2 : P E' [I T
I::i~::

:E::l:::::11

TI'xl' C.CI!·'II·I!:::II"4D

e'[I.:!-.::;:

042(3

OD4:::;:

~jFF(I'"

J':'i::::II~)

OD4H

J.. ":'i::;I::I..

t;)[).::j·C

(14CH
la4:'"5E:

:I. ~:;::::: ':::

PAGE 0048

94::::92(:····-99~3:i**

:.1. I::i:::;:9

PF.:INT LINE

E::{'~::1

:1!:i(12

~TGT

~~ [:' '7 :;::

~:::16A~::'1

BL

1:;),1'1.
@FLIN

('1[:074

(14E4'"
C::=:€17'
(1:14C'"
C:1[:'(1

G!T:1

MOV

TMLOC,@FINLAD

G!T2

MOV
SNE
t'10'·/

:+:DUNNXT.TNLOC IS MEMORY EMPTY?
QT3
NO
I]lEOFLCi .. :12
'iES. END OF FILE SET.

.JNE
·NOV

G!T5

AI

UDCNT .. :10

~:::1[:07f"

fID?C
O[)7E
(1[:OE:~:::1

o

TO OUTPUT FIL

121[:06C
l2If>6E

~:::1D76

::L63:4::L 6 :~: '::i

AND INPUT
(S) TO

~~1j)6A

IZ1 [:1 of' :::

:1.6:::;::1.

AND INPUT

G!T0
~~1[)6:=!

J.. 6~::E::
162';:"

REMAINDER OF BUFFER
FILE TO OUTPUT FILE
REMA I N[)ER OF BUFFER
FILE TO LINE NUMBER
FILE.
RE~1A I NDER OF BUFFER

THE FLAG EXTFLG IS SET TO INDICATE TO THE MAIN
ROUTINE TO WRITE AN END OF FILE RECORD AND
:+:
"F<:ESTART THE E[) I TOR.
:+: CALLING SEQUENCE:
:+:
'8L..WP @QT
:+:
~::1(:(26 ..'
[)fHA RClUTRG,$+2
G!T
0[:'52'"
04E~~1
@FINLA[:'
ASSUI'1E NO OPERAND
CLR
~)J.4C .. '
@SI COPIES
SOURCE
OUTPUT
Q 0 COPIES

:+:

J,1::'lj9

-

258/76

G!

:+:

:1.6~::1:=:

1'::"1':::'

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

:+: TITLE:
I:;)'T
:+:
QUIT COMMAND
:+: F<:EVI5ION:
:+:
ORIGINAL
:+: COMPUTER: 990,99121 ASSEMBLY
:+: AE:5TF.:ACT: TERMIt~ATES THE E[>IT PROCESS AFTER COPYING
:+:
THE RE~1A I NDER OF THE SPEC I F I ED DATA ONTO THE
:+:
OUTPUT FIL~

::LE:O:L

:',1....1 ........

:l2: :13: : :1:1

94·:::927'-991211.**

:1!5:::~:)

j .. 6:.1.. 6

'·... 2L..l

/;::1D::::2
0D::::4
121;)::::6
/21[:'8::::
(~[)::h1

SETO TNLOC
9 .. @NAXLIN

r'-'

~::1:15C'"

:16~38

(:3:20
:1.1. 4- .,'
::1.6:1.:1
C:(16(1

ASSUME LINE NOT IN BUFFER
HAS THE LINE BEEN IN CORE?
NO
YES.

SEE IF IT IS STILL THERE.

~3

@t-'lA:>~L IN ..

IF YES,

LINE NOT FOUND

UOCNT

~3:1..5C···

~::1;;~2:1
l;::i~:::1f.1A

QUi

sa

...lit.

.... 1..

" L

.otL"

t!r T@'

PXREDT
QUIT COMMAND
:1.(:;3

0

'::1

J.. I:;:;:::;:::::
:1 f..=:; :3: :~.(
1,::;40
J..t::;4::L
::L6 ,::j. 2
:1.64:3:

136140
(t'?~:I:=:

~~ID9(;

J. ~:; ~:~ ~~1

OD9;;::

:tOF3:

(11)94
(1)96
13D::'48

(iDeE'"

~3611~:::1

@INSOU

.Jt'1P
St'lP
E:L

i:+2

PAGE

258/76

G!1'3

QT2
@SCROLL

C32(1
9:t4C'"

t·10 ...,'

@F I NLA[) .• 12

(1[:'9(:

:130E:

OD9E

:1:1:1.9

...TEfJ
.JLT
C
.JEI:;'.!

SAVALL
(;!T4
12,LINA[)

.J~1P

t'10V

I:;'.!T2
@FINLA[),12

.JEI:;'.!
E:L

I]lMSGOUT

::::f.~~E:C:

0[)1=t6
ODA::;:
(iDAA
~~1I)AC

~~16A~:::1

ODfiE
(:1DE:(f

~);2CE'"

:16::~iO
::L~:;~:i::i.

0()E:~~

~~)t;::IA

ie::5~~

13DE:4

C::l..D~3

J.. I:::::::i3

OI)E:6
(lOB::::

::l..6EE

O()E:I=t

::I..6::::~4

BL

0D51FI

:t::i:1.2
:U)EA
C3:2(1
"H4C'"
::J39E

1. t:~ .:.~ ::!
::1. (:; .::j. :::1

~2:13:1~

eese

BRING IN TEN LINES

,,-

~~I[)A~3

:1.6,46
J.. 64·;::-

V2L~

948927-9901**

ODFJ:2
ODI=t4

::i.644
:1.64';3

C'!

0[:0::;:(:

oD:::: I:.

MIRA990

~X11.~3

C3:~~~(1

:L6~;5

m:'BC

9:.1.14'"
J3DE

:.l6:56
1.t;!:j'{

~j[)BE

j.~304

(1[:'0:::1

:=::=:2~3

i:::1DC2

RI.. 5~3'··

O[::'C4

0:13:(:'"

::L1:~5::::

~)[:tC6

~6[:'9

:l6'59

1~1De:=:

~:::1729

ODC:t':;l

fl1.:U::···

J.66(:'

BDee

1;33:::::(1

G!T5

E>-~TQT

E~'~TQT

[)ftTA 16
.J~1F' . E~<:nH
SA '·... ALL. t'10V *l)UI"1N>::T ~ TI'1LOC
I:;'.! 1'3
~nJE
r'10V I]lEOFLG.• 12
JEQ
JI'1F'

QT2
EiHQT
@CURNO,@NUNB

G!T4

C

E::'~T(~r

.JNE QT2
SE1'O I]lE:x:TFLG

EOF EXIT
SCROLL TOP LINE
CHECK FLAG
SCROLL EVERYTHING
LOOK AT CURNO
LAST LINE GONE?
YES
SAVE ALL?
YES
NO
LAST LINE
IS t'lEMORY Et'1PPr'?
NO.. SCROLL OUT MORE.
EN[) OF FILE FOUN[)
NO.. SCROLL OUT ~10RE.
'T'ES
LAST LINE OUT?
IF NO, SCROLL OUT MORE
YES, SET QUIT FLAG & EXIT

RTl.-JP

o
4 Z

.$__

. _#4&$.. )£,,,,

sa

uS

'?4#.

,4Q#4!,ww#"

#

44

",""
.:: ;.' i~:' !'> i,~.

;,":! j"4

r>

i'l TFH:::i90
T!i.,!

j.:., i.. . F~: 1....

:1<

0:
,

1,/.::1...1.,
12: :1::::. : 11
:::;i 1:4~ :::: ~~~i ;~:: '? ,.... 9 :~:I ~~:I ::1.. :f: :+:

r :i:r L.J:: :

::::;CF,:OL..l.......·l::LF.:L I N
SCROLL LINE FROM MEMORY/CLEAR LINE HEADER

:+: F::E'·... I S I CII··.I :

~.

OR I G I NfiL.

:+,
:+:

MODIFIED TO RUN WITH PXRMTR
:+: COMPUTER: 990. ASSEMBLY
:+: ABSTRACT: SCROLL WILL SCROLL A LINE OUT OF MEMORY.
:+:
TML.OC CONTAINS ADDR OF LINE TO BE SCROLLED
:+:
SCROLL FALLS THROUGH TO KLRLIN.
:+:
KLRLIN CLEARS THE HEADER OF THE LINE WHOSE
:+:
A(:'DF::ESS I :::; IN F.:EG I STEF.: 5.
:+: CALLING SEQUENCE:
:+:
BL
@SCROLL
:+:
BL
@KLRLIN
:::'CI::::C)LL
SET BUFFER ADDR FOR OUTPUT
AI
FdO . t~;
INCR PAST HEADER INFO
:+:

11:::;';:"1,::1
::1.. I::; .::" :1.

.L t~; .? ::::
:16 ';:: ,:,~

Or:·CE
,:1':;::::0

(

'"

j~S9
~690

j>;:;f>4
ODI)r:::;

12142(1

O[)I):::::

1~::~~19

.JEG!

CI I) i) I:::'

~)20H

LI

ODDC

O:?E:I~'"

OODE
O[)EO
ODE::?

OFFO"
C:.::::HO

CII)E4

OI~:II~:(i

el[)E;;::;

IJ4:?O
OFI::I4'"

~.JF.:

I TE I TOUT

OFEO'"
SC:F.:(1
1:;;::U::1,. r·1::'Gl·::j.

I F NO EF.:ROF.: '
PRINT RDY OBJ-TYPE CR

BU·.IF I]!IFF.: I NTH

04;~O

INPUT RESPONSE

1"'1 e) I...'

Il'iF'B1...1 Ft1 ..

lOF·l.

.JI··IP

SC:POLL

0DEC
GDEE

C08?
C83?

MOV
MOV

TMLOC.LINAD
ADDR OF LINE TO BE MOVED OUT
:+:TML.OC+.@CURNO
CURRENT L.INE NUMBER

f:)[::onj
OI)F:?
IjDF4

12115(1 ..'

MOV

TMLOC . @PRLAD

F::i~)

.'

C:::::~~17

CCtt-HINUE

PPEVIOUS LINE POINTER

O::I..~i;~:··

J':::;92

1:~lr)Ft;;

O~iC:'?

u::; ~::. ::'

0 D F :;:::
I2II)FH

C:::::.1.. '?

INCT Tl"1LOC
MOV :+:TMLOC.@NXTLAD

AD DR OF NEXT LINE

MOV
JEG!

:+:TMLOC.:+:DUMNXT
SCRJ.

'T'ES

*TI··'ILOC .. 9

~694

ODFC

1693

ODFE

0::L4E"
C417
1::'05

L ,:;:=.,i i~;
1".:::;9;:"

(I E I;~I ~~I

C ~;:::::.'?

1"'1 () '•..'

ClEO;?
OE04

f~:t'5C::9

INCT 9

C66121

OE06

O::l.,7E'"

OE08

OE0R

1004
C120

l~iEOC

OJJ=':i21'"

0EOE

0224

OE:l.(1

;;'11210.::1·

0E12
0E14

05C7
C142

1698

1699
1700
J701

o

I~)C'[";::I

(:1 [)!:):?

nC'E;::::
1::'![)Efl

"

C2::::';::-

1702
1703
..I, '704

SCPl

SCP2

Jr"IP
MOV

SC:F.:2

AI

Llt-JPTF.: .. 4

@INTLPT.LINPTR

IS THERE A NEXT LINE?

RESET LINE POINTER TO TOP

INCT TI"'IUJC

1···10 ...·'

L I NAI),. 5

SAVE ADDR OF LINE

i.

4¢

"*

to)

: :. c: F: (,;;

o

"::ti',n::,

.1. f'~.

r, .7:'!'":::;q::;1

i·i. !~: i... 'i: ii

I)E:J.,:::
(II:::J..:=:
OF::!.:::,

:J..?:!,:;::

.J.. ~::':L !:::;
L :' ~L "

~.t.•::::' : :1..:;. : :1.1..
~::l...1 :::; SI.? '?' .-.. 9 91;:H. :t: :t:

1< I.... Pl.... r i"J ::::: E: T 0
C14F'~5

PFIGE 12112152

0:.1_ !::=i ~::I'

0F20
0F22
0E24
0E26
0E28
0E2A

:J..604
C100
J.303
C18?
C2:J..?
0458

ur:.?c

.i.?i::~

!;'IE';?E:
I?I i::-::::()
I? [: :::. ;::'

:t: ~:i +

CLF.:

;i-:!::;+

C

@CURNO.CLINNO

U4[,:::;

(:'I[;:I.C:
i;:~ F::U::::

J;!<;

t·?::o ('.

:.1.

THIS ROUTINE CLEARS THE HEADER OF THE LINE WHOSE
ADDR IS IN ELEMENT 5

::L?U?

'1.7:13
J;::·.!..4
L ',:;'.-1.. ~:5

~," ,:::. t....

:::::;;;::;;~O

C1HO
fl:1. '?E:"
C: ;~?O·?
::I.Y:iF E:

JNE
MOV
JEQ
MOV
SCR4
MOV
EXTSCR 8
::::;CF::~:
MOV

REPLACE LINE NUMBER WITH -1
REPLACE POINTERS
~'JI TH ZEF.:()
HAS LINE AT POINTER BEEN REMOVE

EXTSCR
NO
:t:DUMNXT. TMLOC
YES. SET POINTERS.
SCR3
MEMORY EMPTY?
T'I"1 L.tJ C.' C:LLOC
NO
:t:Ti"'1LOC., CL. I NNf)
:t:RTN
EXIT SCROLL
@ANCHOR.CLL.OC

MOV

TMlOC.CLINNO

..J"I"'IP

E::::TLA[)

1;~IE6;;::~

(~E64

ClE(1
01.4:::::'"

"'10 V

@PF.:ELAD . H1LOC

:=:::::!~~7

(.

H1LOC., I11ANCHOR

..TEG!
AI

f;.:t'1 1",'2

t'10V

(£iN::·~TLAD

(1EE:6
(IE 6:::::
OE6A
fjE6C

('I::I..?E···
l3:0C

~~E6E

(1~:;:27

OF7121

O~:::Hj4

~~1E7~~

CU;~j

C.~IE-;:'4

1~1J.4E

m::::76

C5C5

~:::1E'?:::

lJ:I~1A

IJE7A

~)5C5

~3E~::'C

:1 7':59

(1 E::::: 0
OF:::::;;::

::1.. "(',Sfl

IJE:::::4

lO~H

~:::iE7E

-'

Tt·lLOC .

SAVE LINE NUMBER

SAVE ADDR OF PREV LINE

SAVE ADDR OF NEXT LINE

IS THERE A PREVIOUS LINE?
NO
'T'ES.. LINK lH TH IT.

4

. 5

..'

C1.[:5
C:1.60
Ol4:::::'"
(:'5(:5

:1..?61.

RMVCH

'

1740

J.74?

PEV I :::; I ON :
:+:
ORIGINAL
:+: COMPUTER: 990, ASSEMBLY
:+:
:+: ABSTRACT: INACTIVATES SOURCE BY SETTING LINE
:+:
NUNBER TO -1 AND ZEROING REST OF HEADER
:+: CALLING SEQUENCE:
:+:
BLWP @RMV
:+:
OR
:+:
BL @RMVCHR
RMV
DATA ROUTRG,RMV6

:+:

t726

:l"?:::~i

Fd··l'·."

F.:ENO'·.·'E COt··,t·lANl)

1/24

:.t.?;?:::::

o

V;:::: L. :l.;l..;:~ . ::1. ..::: : 1.1.

C(JI'II'IHt'J['

Rt·l'·/4

:+:

"'10 './ 5.- :t:Tt'lLOC
JEG! CL.PL I r·~
I t·JCT 5
t'l0 ', . 5.- Tt'lLOC
"'10'·.·' I:£IPRELA(:' . 5

LIN~::: NE::-::T
LINE TO
PF.:EV IOUS L I r'JE

t'10V
':i, :+:Tt'lLOC
..TMP CLRL.IN
GO CLEAR THIS LINE
THE LINE BEING REMOVED IS THE TOP ONE

, _.'

. ;

~4A

; hi

M4A

$

.MUM

IiMH.,A,

&;:¥.A.#,.,..C.,¢,. ,;.;tir

#;,$...),;',$.,_""..

\,,,.*4

.£

-c- ,-W<,f~;,"" 1

"11. I'(f4::;t:7-'t.:.'I

:1;::',:::';::

(1E::::;:A
OE::::C

C:1-6(1
014E'"
(41)!:i
:16F6

~:::iE:=:E

Cj_4~~:

~:::1E9~~

~)6A~:::1

~?:IE9;;::

OE:1..6'"
C:1612t
~~':1.j.C ",
16(14

OF;~:6

I~~E:=::=:

0

:1.. '?~;:3~
:17~~:·:t

J.7t?S
1766
~l'?67

1;::1E94
~)E96

:1 ~::I'::::::
:t-;::'E;:9

J.'??f'
::L'??:1

~:::'E::'48

0ES'A
1;::1E9C
(1£9£
'21 E FH3

:11211;::17

1;:~E~':J2

~)612t1

:13:(15

I2IEFI6
0EA8
1;::1EAA
(1EAC
OEAE
12tE81;:)

C~.3E~J

~3EB2

1. '?7'::;:
1,779
1.7::::i21

';:~E84

OEB':::
0EB::::

OEBI=t
~t -;::'f.:J"

f~EBC:

':!IN:X:TLAl)" 5

t"IOV
,,TNE
CLF.:LIN 1'10 V
ElL

5) *OU,..'IN:X:T
RNV4
LH~AO,

5

(!iKLRLIN

CLEAR THE LINE

NOV

@ABRLFG/ 5

RELATIVE OR ABSOLUTE?

SNE

RELRr1V
']tCURNO, U[)CNT

RELATIVE
LAST LINE REMOVED?

,JNE
.Jt'1F'
F.:ELRNV OEC
,.:rEG!
RE~'<:B
t'1OV

J.6~33:

~::1Ef14

:1 "?1~::I7-:1

I"IOV

PAGE 12112154

258 ....'76

(11512""

:1.'?'?~:

:1..';::'("(;

F.:t'l',/2

r'-'

:=:(16~J

::I.,'?73
::1.. 7-;::'4
~L ?7~:~

J.2 : 1.3 : :l:l.
94::;:9;;;:7-990:1.**

-',..,,::1-.:1

FEI"'IO',,.'E C,OI'1I"'i'::1Nf>

~3i4E

1.6(:01,
~346~J

REXB
E:X:TRrN
U()CNT
EXTRMV
@NXTLAO" PLIfo1TS

NO
YES

GET POINTER

",
,.TNE
8

(13:C(:'"
C:1612t E;:'::T F.:N"", NOV
~:::1:11,6 ",
1,60:1
SNE
(13:8~3
RTWP
(:;;;:E';::1 CHf;,:ET 1"'10 V
01.5·'1,-"
~3458
B

Rt'1Vi
I]tLSTLIN
@CHFLG. 5

TO NEXT LINE
THERE IS NONE
CALLED BY CHANGE?

CHRET
,]tSAVRTN" RTN
*R.TN

RETURN TO
CHANGE

C'

o
... 4##$

..4

,'."

F';:4

:1(1:13

~Tt1P

~3F:18

C8~3:1

MOV

1'1DFLT
UC'CNT, @Lot'1RG

0F:1A

~1:134'"

~1F:1C

:13:0E

~3F:1E

~32:=:C;

JEQ
CI

Ef':EXST
:12., ..' .' "

0F20

.JNE
E:L

EF~EXST

~1F22

1:326

~3F24

06A~3

~:::1526'"

1'10 V

I~NUt1E:F.-

JEQ
NOV

EREXST
UDeNT.- I~HINRG

C

@LONRG, UDCNT

']HE
RTf..JP

ERE:>~ST

:13:~36

~iF2E

:183:~3

0F32
0F3:4
(iF36

C80:1
0:13:6'"
:3060
(1:13:4 ..'

~:::1F3:0

:1::::3:6

(

c'

VAL I D DEL I 1'1ETER
GET HIGH MARGIN

@NUNE~'~T

C:160
fH3A'"

(1F2C

:1:33:5

CaNNA IS THE ONLY

~~1F2~=:

:1::::2!=:
:1:329

:14~:::1:1

5

~33:8~:::1

E~= HI NRG.

~:::1F3:::::

"
~3:13:4 .'

ZERO NOT
ALLOWED

f1F26
~:::1F2A

:1::::3:4

.1.1-

0F:16

:1825

:18:a
:1:=:32
:1:33:3:

..l..~ . .

948927-990~**

002C
:160E:

:1.::::27

..1..;;:.. ,

'l..::.L.J..

SETUP COMMAND

I]lLot-1RG

DEFAULT -

LEFT NARGIN

RIGHT NARGIN

= :1
= PXR

P~::REDT
I.····O F.:OUT I NES

~~~~
.....

U24

1.925
:1926
:1927

:i929
i93:~:::1

i9::a
i932
:1933

i934
i93:5
i936
1.93:7

~)FA4

I-:;:1FA6
~)FA:3

0FAA
i939

i940

~)FAC

i94i
i942

0FAE
€1FB€1
0FB2
(1FB4
0FB6

i943:
i944

i945
'.
( ""'~46

,",047

i948
i949
i950

~)FB::::
~:::1FBA

0FBC
0FE:E
0FC~3
~:::1FC2
~)FC4

i95i

~:::1FC6

0FC8
i952

~3FCA

0FCC
i954
i955
i956
i957
i958
i959

i961-:;:1
i96i

··.···'~
O
,
'''"i

~3FCE
~3FD~)

0FD2
0FD4
0FD6
fiFD:3
0FDA
0FDC
0FDE

1'1 I RA990

V2Li

i2:i3:ii

PAGE 006i

* TITLE:
KEYIN
*
KEYBOARD INPUT ROUTINE
* REVISION: 03/i5/76
*
ORIGINAL
* COMPUTER: 990. ASSEMBLY
* ABSTRACT: SETS UP PRB AND MAKES SUPV CALL
*
TO INPUT A RECORD FROM KEYBOARD
* CALLING SEQUENCE:
*
Ri0 = BUFFER ADDRESS
*
BLWP @KEYIN
* STATISTICS:
RETURN PARAMETERS:
*
*
Ri0 = BUFFER ADDRESS+CHAR COUNT
R9 = FLAGS
*
KE'T'IN
1-:;:104C .[)ATA Im·JKS .. $+2
TRANSFER . . . ECTOR
fJFA::::_,
C0EI-:;:1
1'10 . . . @KBLUNO .. IOPLUN
STORE LUNO
l-:;:1i9A'"
IA0
START OF BUFFER AREA
ENDBUF
END OF BUFFER

INITIALIZE XOP VECTOR
REF SVC~~P
REF SVCSR
LI
R9. SVCt·JP

LI

R9 .. S . . . CSR

I'10Y

R9 .. @>7E

€187E
:+:

:1.~35A

C2A0

*

PRINT OUT HEADING
1'10'.,.'

@K8LUNO .. R:1.0

8LJ..JP

I~OPEN

MOV

@PRLUNO .. R:1.e

ET~

OPEN LOG KEY80ARD

~3:1.9A···

J.3420
0F6:=:'"

C2A8
8:1.9C . .
1-3428
J.3F6::V
020A
10:1.::::4 ,.
104210
eFEC···
020A
:1.1072···
0420
0FEC/

2~Z190

10458

OPEN LOG PRINTER

8LJ..JP @OPEN
LI

R:1.e.LFCR

PR I NT LINE FEED/CAF.:R I AGE F.:ETU

BUJP @PRINT
LI

R:1.€1. NAt'lt'lSG

BLWP

I~PF.:INT

:+:

2~39:1.

:1.078

PAGE 1:::1865

R9 .. 11(>7C:

C::=:~39

2(1::;:(1
288:1.
:1.(158
:1.1052
:1.J.Z154
:1.(156
:1.(158

258.·,76

~3(1j.38

2079
2(1:32

TITLE:

*
PGENO EQU
REF
*
*
INIT
:+:
:+:

2~:::172

V2L:1.
:1.2::1.3::1.:1.
948927-998:1.**

*

RETURN TO MAIN PROGRAM
RT

PRINT PROGRAM TITLE

PXREDT
MIRA990
INITIALIZATION

0

94
95
2096
2097
2098
2099

1072
1073
108C

0A
50
0A

~J;::f8D

0[)

V2L~

12:~3:~1

258..... 76

PAGE 0066

948927-9901**

**
MESSAGES
*
NAMMSG
,B'T'TE LFE
TEXT "'PXREDT
BYTE LFE~CRE
END

948927

**

12JUL76'"

START

o
A

IQ!

¢§.

t.

4

".. ~ ... L ,H"r!!IU.ll!ljtllhlll!!'I'%hS.m.x .i ''',

#w'".1fII'!"

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

PXREDT
MIRA990
INITIALIZATION
Q8NMS
./'iATTOP
R 8LD:1.
R 80TTOf'1
8UFLEN
R CHFLG
CLINNO
R Ct1DLST
R CONT
R CR
R OFLT
R D~.,fN2
R ENDACT
R ENDPRG
R EOFE~-:;T
R ERE>~MV
R E;:'::1
R E::-::OP
R E>~T8P1
R E::-::n'1V
R E:>~TSCR
R FASI<
R FFLG
R FLIt-.!
R FND:1.0
R FND:1.1C
('.FND3'
",FND7
R FND9B
R FNDF
R FSD
R GCE~'~T
R GETCH
R GITCR
R HICOR
R I NPS:1.
R INSOU
R IN5R6
IOC
R KBLUNO
R KEYPLF
R KP2
R LFCR
R LINADD
R Ll"lL
R MAINRG
R MCOUNT
R f'lSG0€1
R MSG04
R MSG08
R NSG:1.2
R MV

QMV6

. "'MVRCNT
Nf'1EXIT

06:1.2
03D6
0C84
065A
121(106
0:1.:1.6
121008
02A0
121:1.96
121185
121838
e6A8
e27A
e:1.A2
121684
eC34
e5FA
0590
0[:'4A
eC32
eE2A
e84A
121:1.28
e4E4
09CA
0A20
e8E4
08F8
0984
082A
0164
:1.e3C
052E
0A5C
0008
078E
0708
0AEA
0002
019A
(1FD2
1218:1.4
0:1.84
0144
015A
0006
02E4
02FC
e34E
103810
0380
10888
08FA
0:1.78
0516

R
R
R
R
R
R
R
R
R
E
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
R

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

V2L:1.
:1.2::1.3::1.:1.
948927-990:1.**
A8RLFG
8DPRNT
8LD:1.A
8TM
C:1.LUNO
CHNG
CLLOC
CMPR
CONVRT
CRE
C'UMNXT
OWN3
END8UF
ENTRY
EOFLG
EF':E~-:;OP

EXE;:'::OP
E::-::OPEX
EXTEXT
E;:'::TPRT
EXTSK
FCHAR
FGPOS
FLIN:1.
FNO:1.:1.
FND:1.A
FND4
FND8
FNDA
FPPOS
FSDX
GCHA
GETCH:1.
GITCR1
HH1RG
INPS2
I NSR:1.
INSR7
IOERR
KEEP:1.
KE'r'RD
LAMOV
LFE
LINADR
LMTS
MALIN
MDFLT
MSG0:1.
1"1SGe5
1"1513(19
MSG13
MV:1.
I"1VGA
NANf'1SG
NOTFND

0:1.:1.C
0CF4
0C9A
0640
0:1.9E
066E
0006
024A
0D04
00eD
e~30e

e69A
012108
01211210
0:1.:1.4
e63C
e63A
05F4
057E
0C66
0518
001218
e00D
04E8
09EC
089A
08D8
0968
e7C2
e00E
0:1.74
058121
055A
eA5E
121:1.36
~3752

0A9A
0AF6
4~300

0824
0FAC
0:1.2C
000A
0146
0844
012A
0F3E
0317
10358
0388
10384
0888
0C0A
:1.072
03F4

R
R
R

258..... 76
ACTION
8ELL
8LD2
8TM1
C2LUNO
CHRCNT
CLRDUM
CNVRT
CP8UF
CURNO
DWN

R
R
R
R
R
R D~.,fN4
R ENOFIL
EOF
R EPEXIT
R EREXST
R EXIT
R EXT
R E>-~TFLG
R EXTQT
R EXTSTP
R FDXT
R FINLAO
R FND
R .FND:1.:1.A
R FND18
R FND5
R FND9
R FNDB
R FROLIN
R FSDXT
R GCLOOP
R GETCNT
R GITCR8
R IN IT
R INPS3
R I NSR:1.A
R INSRT
IOPLUN
KEY
R KLRLIN
LEN
R LFFLG
LINPTR
R LOf'lRG
R MARGLM
R MENPTY
R MSG02
R 1"151306
R MSG10
R MSG:1.4
R 1"1 V4
R MV68
R NCH
R NOVY

0002
012107
0CAA
065E
0:1.A0
012107
0:1.E0
121008
ee6E
121:1.50
121680
e6AE
0F84
21211210
029C
eF3A
eG8A
0794
1211:1.8
eDC8
0F38
04FE
0:1.4C
0798
09FC
e86E
0900
121978
07E4
121994
0172
:1.02E
:1.e2C
0A6A
:1.040
0722
0A9C
0A7C
0003
0006
0E:1.6
000A
011E
0004
0134
012E
€13EA
e32C
e36C
10398
e38A
08[,'6
0C2C
0538
0958

PAGE 0067
R ANCHOR
R 8INASC
R 8LD3
8UFADR
R CC
R CHRET
R CLRLIN
R COMt1ND
R CP8UFA
R CURPTL
R DWN:1.
0 EDTCSR
R ENDLST·
R EOFCCtD
R ERE~-':FN
R ESCRTN
R EXITIN
R EXTBDP
R EXT INS
R EXTRf'lV
R EXTUP
R FERXIT
FLGS
R FND1
R FND:1.:1.B
R FND2
R FND6
R FND9A
R FNDC
R FRSTR
R FXLAD
R GETANS
R GETCOf'l
R GULt1
R INLNNO
R INSCH
R INSR5
R INTLPT
R IOWK5
R KE'T' IN
R KP
R LF
LINAD
R LLIMIT
R LSTLIN
R NAXLIN
R MOEXT
R MSGe3
R 1"1513107
R 1"1513:1.:1.
R f>15GOUT
R MV5
R MV7
NEl.JPTR
R NULREL

0:1.7E
0:1.94
0C82
0005
0:1.38
0E88
0E8E
0226
006C
06eA
068A
~3:1.A6

e2AE
e:1.A5
eA58
e2:1.C
0792
eD36
eAFC
0E80
e6FA
eA3A
0004
121874
09F2
e8CE
091218
098E
081210
121986
e:1.6A
02DA
0232
06:1.E
0:1.7A
0A80
0A8A
0:1.80
004C
0FA4
080A
0:1.84
0002
0182
03CC
015C
0B3E
033C
10379
03A2
e2CE
e8F4
0BE8
000F
05D0

P>::F.:El)T
MIRA99~3
INITIALIZATION

Ol~~~7~
R
R
R
R
R
p..

OPEN
PASS
PFLG
PNF.:GIN
PRINT
PF.:LUNO
PF.:1Jto1PT
F.: PF.:TCR
R PRTPOS
F~ PTONLN
R OT
R I~T3
R:1
R13

R

F.:
R
F.:
F.:
F.:
R

(113C
055E
eF6::f
eC5E

eFEC
e19C
~:::n:::1e3

eFF8
0:1:3:?
09A2
eD4E
eD94

12I~3~:::17

ERRORS

F~

e~:::1~1D
~u:::103

(1~100

R NUMBF
R N~'~LAD
F.: OPERR
R PBUF
PGEND
R PF.:ELAD
F.: PRINTN
F.: PRNT
PRT
F.: PRTKE'T'
F.: PRTSP
F.: PTSP1
F.: on3

~3e~1:1

F.'7
·.1
F.:DCODP
F.:EL F.: t'1 I.",
F.: t-1'..•'
Rr·1'·... 6
F.:OUTRG
SA'·... RTN
SCR:1
SCF.:OLL

t

"'.'.'

~3132

RO;;·
._"

('\SLADDR
SNARG
5PLII'1
R SQ3A
R 5Q7
R SQNLAD
F.: SSf)
F.: STF.:CHR
E SVCl·~P
R TEN
R TONLIN
UDCNT
R UP2
R VLNPTF.:
F.: YEA

0···'

~:::112e

e0(1~1

(1EA2
eE::4
eE:~C

R
R
R
R

~:::i026

~3:154

(1E0A
eDCE
~1:1::E

0F:12
(1EF6
(1476

0403
(1:142
121168
121:17121
1(142
017C
(i9A:=:
~:::1ee1

e6FC
002E
0195

V2L1
12:13:11
948927-99(11:+::+:

R
R
R
R
R
R
R
R
R
H
R
R
R
R
R
R

013A
~314A

e3FE
~30C2

(H3A(1
0148
~3FF(1

eC38
(10~34

R
R
R
R
R
R
R
F.:
F.:

1~3(18

(1CDE
0D2C
~1D66

I~T4

~1DCf1

R10
F.:14
R4
R8
READ
F.:EPFLG
Rt-1V1
F.:NVCH
F.:TN
SC8LK
SC:R2
SFND
SLIN
SNLIN
SQ1
SG!4
SG!7A
SG!PLA[>
5SC';:<
5UCCES
SVPF.:t-1
TERt'1
TOP
UDCOt'11
UP3
I.oJF.:COD

e~:::1~1A

R
R
F.:
R

0(10E
~101214

121(11218
~1F9A
~:::1124

I2IE4E
(1E::8
~3ee8
~305~1

0E12
~3934

0EEC
0EE2
134:10
043C
04E2
121140
0176
.~:::125A

13:160
0197
eF4C
e68C
e6F6
1218(10

R
R
R
R
R
R
R
R
R
R
R
R
R
R
R
'
.....
R
R

258 .... 76

PAGE 0068

1

NUME:X:T
NXTLAD
OPNCOD
P8UFA
PLFLG
PF.:ENT
PF.:LAD
PRNT1
PF.:T8
PRTN
PF.:VLIN
PUTSPS
G!T1
QT5
R:11
F.:15
R5
R9
F.:ELNEG

(1526
014E
e1A4
e(1Ce
e11A
eFFA
€1152
eC42
(1CCC
~3e~:::15

~3:15E

0D28
0D76
0DA6
0~308

(10eF
121121135
l2Ie~39

05E4

Fi:E::-::E:

~1EA6

RN ...•'2
ROUTAD
SAVALL
SCFP
SC:R3:
SKAt"KIP
SLINPT
SP
5.::12
SQ4A
SQ!3

I2IE86
02Be
0D84

SI;~UEEZ

. START
SVC

TA8
THLAD
TOPI'1Et1
R UP
R UP4
lo.lRCODP

~316E

0E2C
05~3~1

121:158
0:186
041C
0460
0420
12141218
I2I:1A6
l2Ie0F
~1198

e16C
e~3e1

e6CA
1216E4
~3(101

F.:
R
R
R
R
R
R
F.:
R
R
F.:
R

Nlo.lLF
OKXT
OPNERR
PFInEND I N
:+:
F F.: CIt'l >A0 TO THE BEG I NN I NG OF THE ASSEt·1BLER. TEXT
:+:
EDITOR.. 1'10NITOR.
:+: CAL.LING SEQUENCE: NON-CALLABLE
F.:ORG

~:::1~3(1'?

0~:'~(1:=:
~3~::1~~19
~~~t~:tt~

12~~:::1:1.1.
(K~1.3:

:+:

t~~:::11.4

:+: DEFINE END OF ASSEMBLER SYMBOL TABLE.
:+:
[)EF
8GNP::<:R
8GNP::·::F.: 8(-':1
=.~
DEF
S'T'MT
BC'=
S'T'MT
1.
THE LAST 8'T'TE OF THE BUFFER AREA.

(1(1:15
tl~31.6

0(11. 7 (U:::U:::1(1
~~~~.3:1. :::

(101.9

A

~:::10~'::11.

_.1_1

~:'1~;):;-~t~

:+:

0~::;;21.

:+:
:+:

0023
0024
0025
NO EF.:ROF.:S

0002~

DEFINE END OF 8UFFER FOR TEXT EDITOR AND LINKING LOADER

DEF
END8UF EQU
END

ENDBUF
$

c:

o
M.tAMP

"4#44

4.44

U44U&£ ,,'

Wt;q;

.

A40 _ ,44& tw., '. $

¥#

5 "d "t"¥&.'

t

. '#'''., n t $h

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

t""

-

t",

·1'nL .....1t.~.

:'1::

f;,''.

BGNP::·::f;.:

[)

"

1..··L:.r~ Pf

(;,11;)(12

m::u30

0

~X102

0024

0(1(11.

0(11.9

IDT
ROf;.:13
Syt-H

TITL

D

948928-9901

PAGE 0002

**

~3(1;;-~4

0(1:1.';:-

E:SS

[>EF
END
ENOBUF D
EW.J

r:.t::.r- t::. ....,t::.r~ ..... t:.:::.

t.3 (;H. 6
~:'017

13,"::119

001.6
0025
(10;;;::3
00;24
0002
(1012

~3018

0023

~3(118

0001

o
.. i t "

U.

. t MSh ...

, 4 @$

;\".% -

EA

•....."'"""............
q ""-'...
" ........
"......
' ' . . . . .. . - ._ _. . . . . - - - - - - - - - - - - - -

;,

Al
NEXT ASSV

I

I

APPLICA TION

REVISIONS
I..T1'II

US£DON

CESCIltlfl'TION

A~EO

OAT£

7506

o

NOTE:SOURCE AND OBJECT ON
DISC IN SDP 948931.

...

~

REV
SHEET

1A

REV STATUS
OF SHEETS

REV
SHEET

UNLESS OTHE_ISE S~ECI~IlD
DIMENSIONS
IN INCHlS
TOLEitANCES
ANOLES ~ I '
I ~LAC(DIECIMAl~ 010
" ~LACE Ot:CIMAl:!: 02

DW"'o J11 RN r= R

IDIENTININQ NUM.I"
SHOWN IN ~Alte:NTHt[SES
I'Oit ItE~EltENCt[ ONLY

E""1:

",n;

INTe:It~ltET OWQ IN
ACCOltOAHC( WITH
MIL STO 100

o

'"

C"'''
('

,

,":!", ,.'):r J'4r

"'mCl~

~~/~j

TEXAS INSTRUMENTS
"H Olt

~Olt'"

ED

OM'-. r.IlM

EquiplNnr G""""

' 511"17
~~'l{"'1"

3J~h1

AL, CMDEFQ, COMMAND DEFINITION TABLE-PXR990

CONTI'! NO

SIZE

eCCE IOENT NO

DlESIGN "CTIVITY "'ELEAS(

A

96214

j(,f. (UU ,
Tf-e •• I·C

~gJ

<_1:;_ 7D.,"TE

12 4f<'J.f'oo,/::;

~-14-77

5CAL.£

+

I

OI'IAW!NG NO

948930-9901
$MEET

REV

MW.. aet

$"_ ",'

r,

. W¥.

;u

1 of 10

.#1 $ • &.

!ljira'

"iI: iM

t""P'''4'Wi!'''!!.' aum"

**

",*..eet:!eri.!i;,,!

GOMMAND DEFINITIONS

**

o
L.M .. %.$,$

.M444."...e

._._ .. '4." cmKXiI

A ;;$.

tw.

41" iiiJlAM#MI

"i!...

·.

** COMMAND DEFINITIONS **
(1121'.;:14
[u:::n35

o

*
*
*
*
*
*
*
*
*
*
*
*
*
*
*
:+:
:+:

~3121~36

1211211217
1211:'::1(18
1211211219
1211211.1:': 1
£11:'::11.1.
~31211.2

1211211.3
~301.4

01211.5
001.6
01211.7
~31211.8
0~31.9

12102121
012121.
1211:'::122
012123:
12112124
~3~325

:+:
:+:

~31:'::128

:+:

12112129

:+:
:+:
*
*
PH
PC
PH
*

~31213:0

1211:'::13:1.
O~Z13:2

~31213:5

. . Ct1DEFG! . '
CMDEFQ
COMMAND DEFINITION TABLE
2/1.~76

ORIGINAL
e7~1.5/76

E~":TENDED TO INCLUDE PA AND TE COMMANDS
REVISION: 8/313/76
MODIFIED FOR A PERMANENT TRACE MODULE (FORMERLY
OVERLAY>
COMPUTER: 9ge,ASM
ABSTRACT: CONTAINS A LIST OF THE COMMANDS,THEIR
ALLOWABLE PARAMETERS, AND THE ENTRY POINT
FOR THE COMMAND PROCESSER ROUT I NE.
CALLING SEQUENCE:
NON EXECUTABLE

COMMAND STRUCTURE

:+:

01:'::126
012127

12103:6

REVISION:

PAGE 131302

:+:
:+:
:+:

1:'::11213:3:
003:4

lOT
TITLE:

94893121-991211.**

12I~301.

01211212
12101213:

*********************
.*
COt1MAND
*
****:+:****************
P1. - P8
:+:
*
*********************
:+: SERVICE ROUTINE *
:+:**:+:****~****:+:*******

PARAMETER .DEFINITIONS
EQU

1..

EI~JU

2
3

EQU

HEX STRING
CHARACTER STRING
NULL

o
,kA.

"_.

~¢.

,,_.

ggaJ£,-.##§

£¢44&£i4iU.,:;a

.M -

;;;A; I.

0~:::13:E:

0

*
*
*

0039
010410
101041
01042
01043:
~1044

01045
101046
101047
101048
01049
~)1]5e

~X151

~:::1Be0

~3~352

(10101
0002

~3(153

e0~34

0(154
~)055

0056
~3057

0006
0(107

~X158

00~38

B~359

(n3eA

(106~3
~::m61

0062
0063 000C
e00D
C,12I064 000E
(1065 0010
0~366

01067
~306E:

0~379
~30:=:e
0~381

010:32
£1083 001E
4C
001F
4C
010:34 10102£1 FFFF
~3e85 0e22 0ee~3
~:::1e:36

0
.

LIEF
DEF
DEF

Ct>1DT8L
NOCMDS
SREGN

DATA PN:+:4+PN:+:4+PN*4+PN*4+PN*4+PN*4+PN*4+PN
[)ATA EXCT
*'
*'
*'

008 :3

~:::n389

4C
5£1

LIt·U< AND LOAD
REF
TE~~·'

0012
0013
(1070 (1014
0(171 0016
0072
01073:
(11074
0075
0(176 01018
01019
58
~:::1077 001A FFFF
0078 001C 0000
~3~)69

PAGE 0003

948930-9901**

** COMMAND DEFINITIONS **

STANDARD LOADER
REF
TE~H

LOAD
·'LP'·

. Ug.?",$

4.

. 4;

Slwa

.Ai.,

i4

a. L

(

@ilI.

#.@iqa; nP, 2.... #.A¥W&

~

0.·

0091 (u326 5FFF
0(192 (1(128 0000
0093
0094
0095
0(196 002A
4C
~3~)2B
41
0~)97 002C 7FFF
0~)98 00:2E 0(100
0099
01.(n)
~3101

DATA PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN
DATA LOAD

*
*
*

*
*

~3115

,'-~T

50
53
AFFF
0000

LDUFL
.' LU "

DATA PH*4+PH*4+PN*4+PN*4+PN*4+PN*4+PN*4+PN
DATA LDUFL

*
*
*

LOAD PROM PROGRAMMER
REF
TE~~CT
E
FBT
E
F~m
E
H::1B.0
*
*
*
*
...*
*
***** UP FRONT LOADER

DEFAULT BIAS

1-PROCEDURE LOADER_DRIVER7C
C809
007C
LI
R9.SVCSR
0209
0000
MOV R9.@::>7E
C809
007E
*'
1.002
JMP LOA005
*'*'*'*'*'*'*'*'*'*'*'*****'*' OVERLAY ENTRY POINT ***************'**
0020" LOADOV EQU $
020E
LI
R1.4.3
0003
0024" LOAe05 EQU $
*'
*,ALLOC.COPY.LINK
BLWP @ACL
0420
00e0
MOV ' R1.l, @SAVWP
C80D
00e0
RETR I EVE R1.4 FROM OLD I.oJS
C0ED
1'10"'" @R1.4*,2(R1.3).Rl
001.C
t10V
C1.0A
2-LOADER_LUNO = 7 i
..... *' DEF = C
:+:
LI
0209
0700
2-IF CPL. PARM1. . NE. NULL THEN
*'
3-LOADER_LUNO
= CPL. PARM1.
*'
MOV *'R4+.. Re
C034
CHECK PRESENCE BITS
SLA Re.9
0A90
JNC LOAe1.0
1.702
MOV *R4+.R9
C274
BYTE SIZE PARM
SLA R9,8
0A89
0040" LOA01.0 EQU $
*'
MOVB R9.@LDLUN
D809
0000
2-IF DEVICE T'T'PE . NE. CS SIGNA
*'
1'10".1
R9.
R1.e
C289
SRL R1.e.s
098A
BL
@CLDT
06A0
0000
LI
RS.CS
0208
0000
SRL R9.8
0989
LI
R1.e.LUNERR
020A
2401.
R9.R8
C
8209
JNE LOAe52
1.64C
*'
LI'
R9.0PN*LBYTE
e209
0000
t10VB R9. @LDOPCD
D809
0e0e
2-CALL SVC(SVC_CALL_BLOCK)i
*'
LI
R1.e.LDPRB
020A
e00e
BLWP @SVCALT
e420

TA. ,$$.,"

C

g

4#_"_,,.#

. _ Mq.

. a;!JCQ-1'-tk4iGtQ

t.Jti.«

@PAMt.Q,.

M"q#.

U.k." ••. ;

-4.4

w'

'("''''9''9"$')-

BettiNd.

~.

H

'1

LUNU~K

t 'W

s!

% .

ti'1S""%

uRIVE~

PAGE 1211211217

~48~l4-~~e1.**

**

12112168 121121121121
0::::Z{

121228 ee6A
ee6C
0121229 ee6E
e23e
10231.
e232
e233
10234 ee7e
121235 ee72
121236 12112174
121237 ee76
121238 12112178
ee7A
e23~ ee7C
ee7E
12124121 1211218121
121241.
121242 12112182
12112184
e243
121244 12112186
121245
121246
121247 12112188
008A
121248 ee8C
ee8E
121249 1211219121
0:,12125121
.. j. 10251. 12112192
12112194
121252
121253 12112196
1:::1254 12112198
121255
10256
e257 ee9A
ee~c

121258

ee~E

e25~

12126£1 eeAe
eeA2
£1261. eeA4
£1262
121263 eeA6
121264
0::::bo
~..::'=''='
~..::'='(

IOIOHI:::!
'=:tI:::lHH
idO::::btS IOIOHL,;

eeAE
eeBe
1d::::,"'1:::1 1:::11:::11:12
27 1. eeB4
eeB6
0::::(:::: 1:::11:::188
eeBA
l:::I::::b:;;l

0

\1283
eee1.
l.BeC

*

CI

Rl.1.

JH

LOAe1.4

2- I F (LD FLAG. LE. 1.) THEN

*
*
*
*

eA1.e
SLA R0.1.
1.81219
JOC LOA01.2
ceC3
MOV R3,R3
1.6e5
JNE LOAe1.1.
12121211.
R1..BGNPXR
LI
eeee
121221.
R1.,UFLBIA
AI
FE5e
JMP LOAe1.4
l.ee3
ee82" LOAe1.1. EQU $
1'10\,' @DFBIAS,*R4
C52e
1211211210
ee86" LOAe1.2 EQU $
C074
t'lOV *R4+,R1.
012188" LOA01.4 EQU $
*
e4E0
CLR @LDCC
eeee
121283
CI
R3.2
1211211212
1.31217
JEQ LOAe3e
*
e2eB
R1.1.,LDIO
LI
1211.1212"
*
C241.
t'lOV R1..R9
e4ce
CLR Re
*
*
ceAe
MOV @ROMLDR.R2
€Ieee
£1452
B
*R2
eeA0" LOAe3e EQU $
@ABSLDR
e6Ae
BL
eeee
121121121121
DATA LDTBL
*******RETURN FROM ABSLOADER
1.12123
JMP LOAe5e
*
*
*
veRe
MOVB @LDNMCC.R2
l:::Ieee
1..s:1::.11:::!
.JEG! LOAe35
e6Ae
@PRCRLF
BL
£Ieee
:1121121121
NOP
e2eA
LI
R1.e.LDNMCC
eeAA"
e6A0
BL
@PRNTC
121121121121

_in

3-IF(CPL_PARM2 . NE. NULL)THN
4-B I AS- PARM2;
3-END IF;
3-ELSE BIAS=DEFAULT_BIAS;
CHECK PRESENCE BIT

2-CALL SET LOADER WORKSPACE;

2-CALL SET_WORKSPACE(R1.1.,LOC(L
2-CALL

SETWORKSPACE(R~,BIAS)

SET FLAG FOR CASSETTE LOAD
2-CALL LOADER30

CI

R112t,:>1.1.

JLT
AI

GETRT
R1e.-7

EQU
BL
...TMP
JI'1P

*R11.
LOIO
LOAI2t5e

~.::tld..$H

Id..s04 lLIl.o8 13eD
Id-so::' 101.::'H 1LI~8A
t;::!1.::'1": IOILIILIU
10.£66 e15E 131217
10";;:0." 1LI:16e e22A
adl.b~ t-t-I)ILI
0368 121164 02SA
121166 1211011
10369 10168 11102
1213710 e16A e22A
e1.6C FFF9
10371
e16E" GETFa
10372 e16E 121698
10373: 017~3 1eC8
1213:74 10172 112180
0375
0376
...*
ad..s,...,...
Id-Stl::l

Q0";;:::::";;:
~";;:::::4

'~u

$

RETURN HERE FOR ERROR
3-END;
2-END LOla;
2-00 FORE .....ER;
3-CALL GETCHAR;

*

*
0379
121174" LDle60 EQU
ad";;:::::1LI 0:174 e6Ae
BL
121176 101102"
1LI..;;:8:1 121178 1.0FD
JI'1P
'-1..$::;C:!

PAGE 121019

948934-991211**

** LUHUt:.t< Ut<.1Vt:.t< *>1<

$

@LDIO

FLUSH TO END OF RECORD

LDle60
2-END
1-END LOADER_DR I VER;

*,..
END

I::.tH
1:11:14E

1:1126
121:11212

12112184

121124

.,,1,:.11-4
1Z116E

:u.n

1:11.2:1
1211.27
e371

I:.

121194
12131213

121209
12131218

121241
121321

121269
121311

121272
121334

121294

12131214

121372

12138121

121248

e285

e363

e365

e368

121247

121254

121279

12112195

12112196

l2Ie97

e:138
121147
121:158

121:139
121:148
121159
e241
121321

e14e
121:149
121163
121243
121355

e141
12115121
121172
121245
121371

121142
121:151
121176
121259
e379

e143
121:152
a:18e
e274

e:144
121155
e:184
121277

121:145
e:156
121:192
e3121121

121373

121374

e367

12137121

12126121
e226

12121Z1~

e3e8

121268

e28:1

e286

e327

121364

121366

121:178

e1ge

e24e

e263

121295

121298

121237
121338
121222

121292
121341
12133121

12111219
121:112

0249
121326
121229
121369
121:174
0":>1::11.
12121216
12122121
121235
1212121:1
012195
121343
0345

.,,:.t.l.l.

~":>43

121357

121359

0247
0349
031212
121336
121326
0364
025:1
021.1
121267

0325
12135:1

121344

JLI

I.)
LDHl)DR E
LOI:;;UI- I:.
LU .... t:lH t:.
Lv .... t:lt:I.... t:.
LI.)CL:
E
LOCI'<
LUt:.1'<1'<
LVI"'Lli t:.
LDI05e R
C11:1bl:::l to::
, J1U
I'<
LULIJN t:.
LI.)NMGG I:.

121192
1213121121

1211810
0274

121243
121355

e125

...iI'It'

LI.)Ht:1~

121184
0277

121176
121259.
121379

121369

.JH

JNC
JNI:.
JUL:
Lt:ly I I:.

121172
121245
121371
121362
1212610
121196
121239
e258
121238
1212:15
121196
e2:19
e228
121215
1:1:173
121345
121348
121216
1:::1261
121325
12112194121242
121:154
121384
121:137
121:146
121157
121:194
1213103
12131214

PAGE 0011

**

121366
lZIee5
121359
121293

.l.N....

.LNCI
.LrH I
JI:.t..!
Jlit

948934-9901

REFE~ENCES

01.1210
I:1I:1I:1H
0128
01.34
.,,:.t. ... L.

121:155
~1.80

~1.<::::<::::

e:12E

1211:1121

<::::41:::11:1
1,:.11.1.C
121:146
01.74
1,:.11.1:1<::::

e:158
1211.08
0355
121379
1:1":>:'::1.

.,,"'...,

1:11:11:;;':'

"':.t.I,:.1(

1::.11.23

121327
038:1
121373

12138121

0271.

• 4&1441 ,tt

L.-'

toe.

,_

. g_

a.,a.,

L; "I

AM...;;;;4 P !i\M!6i#¢4 ..e.

It' 1

t

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

T ••

LiJut"L-U t:.
LUr"r;:l:I t:.
Lv I I:IL- t:.

O~ur-LLUMIOIO'"
LUMI:::II:::IO
LUMIO:.LIO
LUMt:.1:.L:.1.
LUHI:::I1C::
LUMIO:.1.,,+
LUMIO..s.1O
LUHI:::I.$:::'
LUMIOOI:::I
LUMIOO;'::
LUMIOblO
LUMU
LUMUUV
LUNt:.t<1<
URit"
MUV

I

ttt

U

I<

t<
I'<
I<

I<

I'<
I'<
R
I<

t<
I<
U

l)

,-Ut:.

1:::1111:::1
1:::1114
1010....10
10101:::11:::1
1:::I1:::I1:::It:.
1:::11:::10:::4
1010.... 1:: 1
IOl:::Il::IC::
12112186
I:::Il:::Il::Il::I
t:.1t:.1MIO
l2IeSE
l2IeEE

I:::II:::IF2
101:::1.......
101010"+
1:: 11:: 10:: 1: :1
241211.

t:.

hUVI:I
r"ut"
Ut"N
(JVLt<9ge TRANS I ENT AREA. SPEC I F I CALL Y:
*'
1.) DISABLE COMMANDS IN CURRENT OVERLAY.
*'*'
2) CALL LOADER TO LOAD OVERLAY.
:+:
3) I F LOAD SUCCESSFUL ENABLE COMMANDS
IN NEJ..J OVERLAY.
*':+: CALLING SEGJUENCE:
:+:
BL @OVLY
:+:
R1.e CONTAINS POINTER TO COMMAND PARAMETER LIST
:+:
PROCEDURE OVERLAY;

:+:
:+:
:+:

*'
*'
:+:
*
*
:+:

OVERLAY IS RESPONSIBLE FOR
MANAGING THE PX9ge TRANSIENT
AR~A. THIS INCLUDES;
1.) DISABLING COMMANDS FOR THE
CUF.:RENT AREA.
2) CALLING THE LOADER TO LOAD
THE NEJ..J O"lEF.:LA'T'.
3) ENABLING THE COMMANDS IN THE
NEl·J OVERLA'T'.
4) BUILDING A TRANSFER VECTOR FOR
USE B'T' THE OVEF~LA'T' I N CALL I NG
THE S'T'STEM.

:+:
:+:
:+:
:+:
:+:
:+:

*'

:+:
:+:
:+:

*

:+:
:+:
:+:
:+:

*'
*'
*
*'
*
*'
*
*'
*'
*'
*:+:
*'
*'
*'
:+:
:+:
:+:

*'

e~:::161.

:+:
:+:

e€162
13€163:

*'
*'

:+= .....

[:'ECLARE
TRANSIENT_AREA(7ee) FIXEDC1.6) CONTROL TPTR.
VECTOR(2) PTR CONTROL TPTR;
/:+: SVC CALL */
DECLARE
1. COMMAND_ENTRY CONTROL CPTR;
2 COMMAND_STRING
CHAR(2).
2 COMMAND_ROUT
POINTER;
CPTR = LOC(TRANSIENT_AREA) + LEN(VECTOR);
DO ~'JH I LE Cot1t1AND_ENTRY . NE. 13;
CMDPTR = LOCCCOMMAND_TABLE);
CCNT = NO_CM[:'S;
DO WHILE CCNT>e;
IF COMMAND_STRING . NE. CMDPTR. COMMAND
THEN DO;
CMDPTR = CMDPTR + LEN(COMMAND)
ccrn = CCNT -1.;
END;
CPTR = CPTR + LEN(COMMAND_ENTRY);
Et-K:t

BIAS= LOC(BGNPXR)
LOAD(FLAG. BIAS. ERROR)
IF LOAD SUCCESSFUL THEN DO;
CPTR = LOC(TRANSIENT_AREA)
DO WHILE COMMAND ENTRY . NE. 13;
CMDPTR = LOC(COMMAND_TABLE);
CCNT = NO_Ct1DS
[:'0 J..JH I LE CCNT>e.;
IF COMMAND_STRING . ER CMDPTR. COMMAND
THEN DO;
CMDPTR = CMDPTR + LEN(COMMAND);

CAL~

.. .KAt Q

K..

$."

Al

@#..

M#WL _ ." .. $. 4A4E. ~

WlJii.i£. AE

q ->

pac;

go 4,4i!I&44tI.Q\.,..Q.4Z444$M,,¥\4444

OVELAY
SDSMAC 947075 *D
** OVERLAY PROCESSOR **

0

(1(164
0065
0066
0067
0068
0069
0070
0071

*
**
*

*

*

*
*

*

~3072

0073
(u374
0075
0(176
13(177

*

0~:::17:3

~30::::0

13081
~3(182

0(183
(u384
01385
01386
131387
131388
00::::9
0090
0(191
en392
131393
(1094
(u~195

01396
(1097
0(198
(11399
~~11ee

(1101
(11(12
01(13
~~:1.e4

~3:1.05

0:1.136
01137
13:1.08
01139
0:1.:1.0
0:1.11
13112
0113
131:1.4
0115
0:1.16
0:1.17 00013
0002
O€t11E:
0119
€t12e
€t12:1.
~3:122

1~77.

PAGE 0003

CCNT ::: CCNT -1.;
END;
CMDPTR. COMMAND_SVC_ROUTINE
CPTR = CPTR + LEN (COMMAND_ENTR'r').;
END;
END.; ELSE DO;
,.'* I ND I CATE NO COMMANDS */
LOC(TRANSIENT_AREA) = 0i
END;
REF~S AND DEF~S

= COMMAND_ROU

REF GETBUF
REF RETBUF
REF LWP
REF Rl.JP
REF ACL
REF RR
ClEF OVL'T'
[)EF. , OVLRET
REF LOADOV

0(179

C

15:31:20 TUESDAY. FEB 22,
948935-9901**

F=~EF

REF
REF
REF
REF
REF
REF
REF

**WORKSPACE
13000
0(101
01302
00133
013134
13(1135
13(106
01307
00(18
fu309
0e0A

*R0
R1
R2
R3
R4
R5
R6
R7
F.:8

eeec
000D
0eeE
0e0F

R9
R1e
R11
R12
R13
R14
R15

0000"

*
*
*
*OVL'T'

~31~10B

*
0420
0000

BEGLAL
ENDLAL
CMC'TE:L
NOCt1DS
PRCRLF
PRINT

REGISTER DEFINITIONS

EQU
EG!U
EQU

0
1

EG~U

3
4'
5
6
7
8
9
10
11
12
13
14
15

EQU
EQU
EQU
EGJ.U
EQU
EQU
EQU
EQU
EQU
EG"J.U
EG"J.U
EQU

START OF TRANSIENT AREA
BEG I NN I NG OF PXR t10N I TOR
BEGIN OF LINK LOADER.
END OF LINK LOADER.

TRNAr:~A
BGNP~-'::R

.....:::..

EQU $
*ALLOC,COPY,LINK
BLWP I!lACL

1-PROCEDURE OVERLAY;

2-/*
2- OVERLAY IS RESPONSIBLE FOR
2- MANAGING THE PX990 TRANSIE
2- AREA. TH I S I tKLUDES.;
2- 1) DISABLING COMMANDS FOR

*
*
*
*
*
;;m·_s

Cj .••." , k

_;;, ;,.z..,; i., 4#A$.4

a.

",_~'_

4. .W

,,&WP.

....... • ,..:.:J. : iC:t'1

** OVERLA'T' PROCESSOR **

o

01.23
01.24
01.25
01.26
€11.27
01.28
01.29
01.30
01.31.
01.32
01.33
01.34
01.35
€11.36
01.37
01.38
01.39
€11.40
01.41.
01.42
01.43
01.44
01.45
01.46
01.47
01.48
01.49
01.50
01.51.
01.52
, 01.53
01.54 0004
0006
131.55
131.56
01.57 0008
01.58 000A
131.59
01.60 0e0C
e0eE
0:161.
0162 0010
00:12
0:163
0:164
01.65 001.4
01.66
01.67
0:168 00:16
01.69 00:18
01.70
0:171. 001.A
001.C
01.72
01.73 001.E

C

,

vc,;;;)vnYI"

0206
0000
0008~

C596
:13:10
0205
0000
C:120
0000
001.4~

:130B
8556
:1304
0225
0006
0604

0" 01.75
0020 :10F9
01.76
01.74

0022~

01.77 0022 04E5
0024 01304

it/:."I

1:5'7("
•
,

PAGE 0004

2CURRENT AREA.
2- 2) CALLING THE LOADER TO
2THE NEW OVERLAY.
2- 3) ENABLING THE COMMANDS
2NEW OVERLAY.
2- 4) BUILDING A TRANSFER "IE
2USE BY THE OVERLAY IN
2THE SYSTEM.
2-*1
2-DECLARE
3-TRANSIENT_AREA(700) FIXEO(:16
3-VECTOR(2) PTR CONTROL TPTR;
2-DECLARE
3-1 COMMAND_ENTRY CONTROL CPT
4-2 COMMAND_STRING
CHAR(2)1
4-2 COMMAND_ROUT
POINTER;

*
*
*
*
*
*
*
*
*
*

13004
00136
0000
0002

r- t:.1.5

948935-990:1**

*
*
*
*
*
*CMDRTN

EQU
CMDLEN EQU
CDSTR EQU
CDRTN EQU

4
6
0
2

*
*
*
*
*
*
*
*
*
*
*

- COMMAND ENTRY POINTER
- COMMAND TABLE POINTER
- TEMP
2-CPTR = LOC(TRANSIENT_AREA) +
R61TRNARA

COMMAND TEXT STRING
COMMAND SERVIC~ ROUTINE.

REGISTER ASSIGNMENTS
R:10
R9
R8
R7
R6
R5
R4
LI

2-DO WHILE COMMAND_ENTRY . NE.

*
OVLY10
EQU
MOV
JEQ

*R61*R6
OVLY50

*

LI

R51CMDTBL

MO.....

@NOCMDSIR4

:$

3-CMDPTR

= LOC(COMt1AND_TABLE);

*
*
OVLY20 EQU
JEQ
*
*
C
.JEQ
*
AI
*

*

DEC

JMP
OVLY40 EQU
CLR

3-DO WH I LE CCNT::>0.;
:$

OVLY50
4-IF COMMAND_STRING . NE. CMDPT
4-THEN DO;
*R61*R5
OVLY40
4-CMDPTR = CMDPTR + LEN(COMMAN
R!5ICMDLEN
4-CCNT

R4

= CCNT

-:1;

OVLY20
:$

@CMDRTN(R!5)

i ..

, . .. za

SQAiOZ.

. aXl.

calM J£ L; "'

; a

i;:K . & U 2 . ))

~~:S1:~~IU~~VMY~

o

c

o

121:.1.78
121179 121121215
0e28
121:.1.8121
121:.1.8:.1. ee2A
121:.1.82
121:.1.83
121:.1.84
121185 002C
002E
0:.1.86
121:.1.87 121£13121
1211213:2
0:.1.88
121:.1.89
£1:.1.90 £112134
121:.1.9:.1. 12112136
121:.1.92
121:.1.93:
121:.1.94 12103:8
ee3A
0:.1.95
121:.1.96
121:.1.97 ee3C
0:.1.98 ee3:E
0:.1.99
e2(le 1211214121
12112142
12120:.1.
£121212 12112144
012146
12121213
121204
0205 0048
021216
0207
121208 004A
0209 004C
02:.1.121
02:.1.:.1. ee4E
£1£15121
£12:.1.2
1212:.1.3 012152
1212:.1.4
1212:.1.5 £1£154
021.6
1212:.1.7
021.8 0056
0e58
ee5A
021.9 ee5C
e05E
12122121 1211216121
121221. 0062
0222 0064
012166
121223 £1068
ee6A
121224 ee6C
£1225

AI

R6~CDRTN+2

ee2C~

1212£1:.1.
121£10121

JMP OVLY1e
OVLY5e EQU $
**
LOAD OVERLAY
*
R:.I.IBGNPXR
LI
*

e6A0
121£10121
ee3:4~

ce00
:.I.6:.1.E
12121216

1~77.

= CPTR

+ LEN (COMMAND_EN

2-END

*
:.I.eEE

Z2~

PAGE 1211211215
3-CPTR

*
£1226
121£11214

F~5

948935-990:.1.**

** OVERLAY PROCESSOR **

2-BIAS= LOC(BGNPXR-LENGTH OF L
2-CALL

BL
OVLRET EQU
*
MOV
JNE
*
*
LI .

LOAD(FLAG~BIAS~ERROR)

·@LOADOV
$

2-IF LOAD SUCCESSFUL THEN DO;
R0,Re
OVLZ5121
3-CPTR
R6, TRNARA

= LOC(TRANSIENT_AREA)

0ee6~

*
ee3:C' OVLZ:.I.e EQU
C596
MO .....
:.I.3::.I.C
JEQ
*
121205
LI
eeeE"
*
C:.I.2e
MOV

3:-00 WH I LE Cot1MAND ENTRY . NE.
$

*R6,*R6
O..... LZ6e
4-CMDPTR
R5ICMDTBL

= LOC (COMMAND_ TABLE).;

@NOCMDS,R4

ee:.l.2~
e048~

:.1.3:.1.5
8556
:.1.304
£1225
£1121£16
1216£14
:.I.eF9
e056~

C966
£1£1£12
£1121£14
e6Ae
€Ieee
:.1.1211210
C285
021219
£1£11212
e6Ae
€Ieee
:.1.1210121

*
OVLZ2e EQU
JEQ
*
*
C
JEQ
*
AI

*
*

DEC

4-00 WHILE CCNT)0;
$

0 ..... L25e
5-IF COMMAND_STRING . EQ. CMDPT
5-THEN DO;
*R6,*R5
OVL23:e
5-CMDPTR
R5~CMDLEN

R4

5-CCNT

= CMDPTR

= CCNT

+ LEN(COMMAN

-1.;

4-END;

JMP
OVL23e EQU

OVL220

*

MO .....

6-CMDPTR. COMMAND_SVC_ROUT I t-~E
@CDRTN(R6),@CMDRTN(R5)

~L

@PRCRLF

$

=

NOP
MOV
LI
BL

@PRINT

Nap

*

4-CPTR

. .PM .

= CPTR

$4 0.2 .t $."~_."

" ..3

+ LEN (COMMAND_EN

mGJ£ is jQ.

".

41\

«Q$..

$1$

t.,

..

O..... ELAY
SDSMAC 947075 *D
O..... ERLAY PROCESSOR **

*'*

0

121226 ee6E 121226
AI
12112170 1211211214
121227
121228 121072 10E4 *'
JMP
121229
*
12123121
0074" OVL25e EQU
121231
*'
121232
*'
121233 12112174 04E0
CLR
121076 ee3A"
e234
*'.....Lz6e EQU
e235
12112178" O
121236 12112178 12142121
BLWP
0e7A 0eee
121'-;'-;:'' ' e07C 121458
RT
121238
END
NO ERRORS

_._--------------------....
15:l1:2eTUESDAYI FEB 221 1977.·
,
948935-991211**
.

PAGE 001216

R6 .. CDRTN+2
3-END;

O..... L21e

2-END;ELSE DO;

$

3-/* INDICATE NO COMMANDS */
)-LOC(TRANSIENT_AREA) = 121;

(IITRNARA

2-END;

$

@RR

.::.".;,:.. (

c

o
.00

$.

""oW

.4. $

". 4..

.

£

@

.44 .. 21¥

."

.. . .

~-"'.-~.-

OVELA'r'
LABEL

0

C

$

ACL
AI
BEGLAL
BGNPXR
8L
BLWP
C
CDRTN
CDSTR
CLR
CMDLEN
CMDRTN
CMDTBL
DEC
DEF
END
ENDLAL
EQU

GET8UF
I[:'T
JEQ
JMP
...TNE
LI
LOADOV
LWP
MOV
NOCMDS
NOP
OVLRET
OVLY
OVLY10
OVL..,,2e
OVLY4e
OVL'.,,50
OVLz~e

VALUE
R
E
E
E

~5:3~:20 T~ESDAY~ FEB
SDSMAC 947075 *D
DEFN REFERENCES 948935-9901

130132

01379

e82E

0086
01385

1313132
eeee

e~42

1313136
e004
ee42

e~4e
e~39

E

e~79

02~~

8226

e2~9

0223

0~85
0~87
e~68

13236
e2e8

e~79

e2~e

e~77

0233

- ..

-.~~-.-

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

.

~

PAGE e007

0~e2

0~e8

0~96

0204

02~6

E.l~0~

e~e2
0~~5

e~03

e~e8

e~96

e2~8

e22~

e226

0~4~

8e88

e~7~
e~77
e~60
e~73
8e8~

e2~~

02~e

e200
e2~3

e082

ee95

e096

ee97

e098

ee99

e~e4

e~e5

e~e6

0~e7

e~4e

0~4~

e~42

e~56

e~ee
e~64

0~ee
e~e9
0~76

e2e4

02~6

e23e

e235

e~58
e~75
8~91.

e~65
0:1:8~

e169

e~ge

e205

e2e9

e2~5

e228

e~54
e~87

e16e

e~85

e~94

e2ee

13222

e~57

e~62

e~ge

e~97

e2e2

e218

e221

e1.62
e22e
0082

02e2
e224

e213
8177

e200

0208

e2~~

e~~0
0~e2

e~39

e875
88e4

E
E

ee32

ee83
131377

E

ee46

e089

D

131334
00ee
013138
13131.4
ee22
e02C
e03C
ee48
0056
ee74
01378

8188

0230
0235

0~9~

0205

0~98
e0e~

13003

0e5E
0e6A
e8ee

013913

021.9
0223

D

R
R
R
R
R
R
R
R
R

e08~

R10
R1.1.
R1.2

0eeA
ee08
€Ieee
0e0D
e0eE
ee8F
eee2
eee3
0ee4
ee85

R~5

0~~7
e~7~

.....

ee87

R~

R2
R3:
R4
R5

e~76

-.~

e238
E

OVLZ20
.OVLZ30
OVLZ50
OVLZ6e
PAGE'
PRCRLF E
PRINT E
Re

O~i!

01:56
13235

0~64

132313

e~~5

0e7E

.

~977.

**

0~~7

E

22~

.. -~-

e~15
e~56
e~64
e~76

0~82
0~96

0204
e2~6

0e9~

e895
0096 .
01.05
01.06

eee~
e~8~
0~75
e~69
0~58

e~65

e228
e215
02e9

0~ge

0198

0~85
022~

e~e7
0~08
8~e9
e~~e

ee97
e098
e899

e~62

e~73

e202

e~ee

e168

0~68

e17~
.4

--

# 4 .

.L

.. 4.

@.

_A4

. us. .sa .

.

-

...4$.-..

OVELAY
LABEL

VALUE

OR6
R7
R8
R9
REF
RETBUF
RR
RT
RI.oJP
TITL
TRNARA

E
E

j.5 : 3j. : 213 TUESDAY
SDSMAC 947975 *0
DEFN REFERENCES
948935-9901
9j.ej.

eel2l7
131211218
1313139

1211.1212
13:1133
121:194
e076
e08e

PAGE eee8

ej.54
e21.8

ej.57
e226

0j.57

ej.68

9j.79

91.94

91.97

01.97

9298

121222
ee75
9986

e976
9987

9977
9988

9978
9989

9979
99ge

90se
0091.

e983

0984

9985

9:194

9233

0236
0237

ge78

E
E

FEB 22J j.977.
,

**

91396

ee7A

J

9976

9984

ee02
9:154

c

o
At

. 4*.4.

.. $

X .

+

A[
APPLICATION
NEXT ASSY

.

o

L.n.

USE:D ON

REVISIONS

~ION

A~VEO

DATE

7506

~'

:~

..

NOTE:SOURCE AND OBJECT DN
DISC IN SDP 94893l.

,

.

~

(j

REV
SHEET

lA

REV STATUS
OF SHEETS

REV
SHEET

UNLESS OT"E_ISI! S"I!CI~II[D
DIMENSIONS AItE IN INC"I.
TOLE"ANCI!S
ANOLES ~ S·
J "LACE DICIMAl:!:OIO
2 "LACE DECIMAL + .02
IDENTlnlNQ NUM.I_
SHOWN IN "AItENT"ISI!S

~Olt ItE~EItI!NCE ~LV

INTEIt"ItET OWQ IN
ACCOItOANCE WIT1'4
MILSTO 100

C

OW"'n TIIRNr:R

1_r:._77ATE

..

~

C .....

e)Q\~{C t.1rf; f 71
"'~(i ~ '3-10-'7
E"OGA \~.

tP

TEXAS INSTRUMENTS
1""0""0"""(0

Eqvipnwrtr Gt'OI4J

OM,.,

r ....

Jl""LL.

~d--#

AL, PROMLD, .PROM LOADER-PXR990

:I/lth7
...:>

CONTA NO

SIZE

eCCE !CENT

DESIGN ACTIVITY RELEASE

A

96214

7 ";d'~

((.

A-a'flfl..o:X; 3- I

"'-•• ,.-c

",,@IU,ML@

t(

~; 7

r REV

!IC~

+

~,;"" M4M4AQ"itJA4# ".

a..AWING

_4

£4.,lp;;,

&-.V u..,$fb!!!!¥JiM;Aik!Ml4\4¥t,.Vt¥A. '~r

...:>

948937-9901
SHEET
1 of 3

, _ ,,!iSi!,. :z;aUL,: ; ( _.,IV

J -l .; ... :lUi liMP,;;

~~UML.G

L.CII-tl)

~DSMHL

f::'j:;:'Of'1

.

:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:
:+:

~:j ~:, ~:f::i

eH~1(16
~:jl;:1~::I?
1~11:::1 ~~I:?

1;::I~:~09
~:~~:j:l (:'I

':;;"~H,1.
O~:U,,2

Ok1:l.::::
'::H:1:l,,:t
OU1~;",

Uk~::l..6
O~:'IJ.. ?
001.:::;:

kll:J;;;::l,

k:Ju;:?;?
(;:1-;:1::::3

la~;m:l

f.:::l

~:;lla;~::4

O~:KI:::;:

1.:.:.:..1;:'
rO::,I, ..:'_-

uo~~~:,

(:KlI;:l:::iI

~:~ ,~~ ~;:~ f::.

~;:I~;:nJA

P:H~1

I;:jkl;;'::'?

1;::tUUf:::

F:::1.J..

klk);;::::::;:

O~:llaF

F.::1.~5

:+:
:+:

~::I kl ::~: ~j

1;:'1 ~;'(1I;:'1 .,.

~Jla3:1
~~I 0 ::~: ~:~

06Af1

t11;:~f::t4

kHj'~1~j

k1k1~~16

~;~2~::t:1,

~~I ~:~ ~::I :;::

k1Hf:1~::t

k11~'tOA

C;;:~;;;~k1

~~~j~3C:

O~~1~::'1~~t

~,:K1~':;E

E~'~14:3

~~1~~1:12

(:2"?::::

la~j4;;;::

~:10:.l4

~':'1A99

~j~~11.6

1. '?k't::L

~:'~J:l:=:

~J!:iC8

~:'k1lA

k1H:19

U~:H,C

J. '?~:':l.

:+:

f;~I~:j4:::;:

kl~~f4~i

:+:
~.:mlA"·

~;K147

o

9

EG!U
EOU
EC!U

:1.l
:1.5

~J~~'flE

PL1.

C:~~'5::::
~::tU2~;;

t;;; ~~I ;;~: ~:)

C:::~~f:1,

~:;f:~;?;~~

~::tf:;k't(1

~~'t~:'24

~:16A~'::1

fa u ~:i ~5

::::
l~:::1

-i-PROCEDURE PROM_LOADCCPL_POINTER)
EG!U $
MOV 'P1.i.Rl5
SAVE PETURN ADDRESS
-2-CALL OVL.YCCPL_POINTER)
8L
I]tOVL'T'
-2-DFBIAS
END8UF

= LOCCINIT)

- PROG_SIZE

FU,.

R:;::, Pl
-2-POINTER - CPL_POINTER
1'10V R1.f1,. R8
t'10 ",,' :+:R8+, F.:9
SLA F.:9,.9
-2-IF PARM(1.) ,NE. NULL THEN
.JNC.~
PLl
-3-POINTER = POINTER + 2
INCT R8
EOU

$

SLA

t'1\:Y·"

R9,1.
-2-IF PARM(2) . NE. NULL THEN
PL2
-3- BIAS = LOCCPOINTER)
:+:F.:8,. Rl

EG!U
t1C)V

F.::J... I]tPG8 I AS

8L

-2-CALL LOADOVCCPL_POINTER.BIAS)
@LOADOV

:+:

~':;O~53:

[1(1~i6

EOU

JNC

(:1k1~5:1.

~~1~~154

1.

:+:

f:~I~:'I49

~j(:'I~5;'::~

EOU
I::-.UU

5

C;;;::(1A

1:::t~~1l~~'t

~~H?I41.

~j~j~;jH

F'L.
ENDBUF.OVLY,LOADOV.PG8IAS
PROG:::;Z

u:

:+:

~;m4(:'

~'::lId4:~:

[)EF
REF
REF

:+:

~;jla~:;::::;t

f~W.146

PL
:+:

~j~j~~f~~

k103!:i

klla44

". PPCtt'1LD , '
PPOMLD
PROM LOAD

:+:

I;:) ~j ;~:::"'

~:1(:'3:::

TUESDAY. JAN 04. 1977.

MODIFIED TO RUN UNDER PXRMAE SYSTEM
COMPUTER: 990.ASM
ABSTPACT: THIS PROGRAM WILL LOAD THE PROM PROGRAMMER INTO
MEMORY. ONE PART IS LOADED IN THE OVERLAY AREA
BY A CALL TO THE OVERLAY DRIVER. THE SECOND PARl
IS LOADEt.' I tHO THE USER AREA BIT' CALL I NG THE LOA·'
DF.: I VER AND 5 I MULAT I NG AN OVERLAY CALL.
CALLING SEQUENCE:
CALLED FROM COMMAND STRING PROCESSOR
ENTRY - R1.0 POINTS TO COMMAND PARM LIST
DESTROYS R1..R8.R9.Rl5.Rl4

(::1 k~ ;:;:: ~:j

1::'II::j~~:6

14:30:~9

F.:EVISION:

~JO:t::::I

~:jla34

*8

::::I.::H:::::;t:~:?-99~~I:t:+:*

1[:IT
lITLE:

OkIO,:~:

~:WII~:r·l

94/~?~

f-'F::Cfl.3~jPHI·'1r"f::.F:

.,'

PL..~~:

:+:
:+:

$

-

STORE PROG BIAS IN OVERLAY

-l-END PROM_LOAD
.

.

£.

. , ,

t...

. "" .at

wt.-'

i"~':'1 iI"IL..['
':;;,[Y:;;;t'1HI..· <~':+;:'I:J?~::' *E:
:1,.:.1-: 3~j : 0:3 TUE:::;I)A'T'"
94:=::9::~:'?-9:::;'~~IJ,:+::+:
.IJF11.> r:'r::I..H'1 F'f,::UGC:iI·;':HI"11"1Ef<:

o

iJ I: I ::':; :::::

Ij U ;::: :::::

1:::14 ~::< I'~

b

I:Jld~:,i9

.
I' JC) 1::: r::f;:' CI ~;: :.:,

JAN ~~~4.,

1.:3';::7 .

:+:F:: :V::i

END

c

o
"

. W) #2

4 .2$•.."

E4, A

4·

;,.Mil..

_. ;1#2 A 4

_. 4

¥b;;;:PW;:;;U

Jt!tU

"Zj"" J, ,3 ¢

PF<'(lf'11 ... L'
L.AI::::E1....
:$:

0

'·,,'AI..J,JE
fo"

~~1'-:j31.

IdU:2A

Ok'l3:4

DEF
END

~':3 rUES[:·AY"

948937-9901

JAN 1214,

:1.9'("'7,

PAGE

**

001213:

121';:'53

';::U356

e~31.9
I~H.359

k'l~.32k'l

~.31213:6
~.3~.323

12112124

12112125

12112126

12112127

12112128

12112137

1211214121

1211214:1

12112152

1,312154

~'::'';:l:::~:::

';::u3!'52

~'Ie54

12112141:'::1
12112148

1211214:1.

121"346

~112152

1211213:1

12112147

121053

l2Ie~~e

IDT
1 NC:T

12I(~46

.JHe

~.3~~144

Ll
L..UAI)UV E
1"10'.,.'
() 1',11L. tTl
f.~.

~~'I~336

r;'AGE
PClE: I AS E
I';;'L
D
f~'L:l.
foi''.
F'L.2
fi':
PF::C)G::::Z E

k'l~'::'47

31~~

~~'I~:j$3

1:::
HI-.

ENDE::UF E
EUU

C

:1.4
SIY::::r'lAC: ::~4 ?U;."!:i *8
1)f.::FN
PEFERENCES

~.3~:}:2~3

1;:}c.~56

~3~~~::::~2

0~':';2121

';:''11215121

~~~~334

"X1e2
0~3~~~~~'I

~:''I~'::'!:.'i4

~~'I~X'l~~'I

~.::t';:'G:t

~:'I'-:}1.9

~~'I~:'l:tA

~31214'?

';:'~J44

~~~ ~~I ~~: t;:}

~Jc.~153:

~'::'~35~3

';:;~~'I2:1

'-~~:n?

F.::l..
I-"::H'
h:ll

~:H~1~~'I:1.

..~~~J~~:~:

~.3~~G6

Iij~~lk1A

~':'H2E;

~~'I04"Z1

~~1~~I~jB

~~1'J;2'?

~':jla32

Kl~5

~:''I'':::I~:;IF

..~}.:.3 ;;~ :::

':,3';:''13:2

~,3058

F::::::

~.:H:'I':':~8

~~I"~} ;;;:: 4

~j~.::t3·?

12112138

F:"~
......

"j~~1i.19

~':'~j2!5

t:';}('I4:1.

~'::'~::142
12I~~1;';:::1.

F::EF

~~'I('I2~~

::-

12I ..~'I38

:~:I....A

1i.1~N2

T IlL..

~:'I

~j12l48

..Z1t:.::.:l

o
.: .z.

•, n ,

244$

. "t. . .•

+

A[
APPLICA TION
NEXT "'SS'¥'

.

0

'-~

USED ON

REVISIONS

DESCIltlll"1ON

A~VEO

DATE

7506

NOTE:SOURCE AND OBJECT ON
DISC IN SOP 948931.

,

~

0

REV
SHEtr"

1A

REV STATUS
OF SHEtr"S

REV
SHEET

UNL(!!!! OTH(_'S( S"(Cltrlt:D
O'''ENS'ONS Aln 'N INCHES
TOLE"ANCES
"'NOLE!! ~ I'
J "'-ACE DECI ..... l YOlO
2 "'-ACE Ot:C'''AL:!:02

DWNO,TlJRNFR

IDENT,,-y'NO NU".E_
S.HOWN 'N "A"ENTHESES
trO" 'ntrt:"ENCt: ONLY

ENGR ( L\.\ lL

'NTEI"'''ET OWQ IN
ACCO"DANCt: W'TH
M'L STO 100'

()

C ....

fb

f):u~"
, ~ ,,(..~.-'" 3'11-'77

... ~\\u=tL ' . . ro .."
~~~~ 3/ I f~, 17

AL ,MINIT ,

TEXAS INSTRUMENTS
,"CO" "0" A' I: D
OM• . r•••
Equ;pm.,r G-..p

IN·~TIALIZE

CONTI'! "'"

SIZE

CODE IOENT NO

DESIGN ACTIVITY R£LE"'S£

A

96214

LeLGi.ru",> !?

"I-•• ,I·C

~

.!; . DATE
~- -t7

.4f41Z{t,J'!.

'?, .(I.{-'?

,

SCAL.E

I

REV

MONITOR-PXR990

""'AWING NO

948938-9901
SMEET

1

of 4

MIN I T
S[)St1AC 947075 *'D
*'* NEW INITIATE MON*,*

11:53:54 FRIDAYJ FEB 19J 1977.
949938-9901**

I

'.

PAGE: 0001A

o
. J.,.SSJ6h..#1

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

I"1INIT
SDSI"1AC 9471375 *0
** NEJ..J I NIT I ATE 1"10N**

o

*

e~322

o

o

PAGE 01211212

lOT ,o'I"1INIT,o'
* TITLE:
DEFINED
* COI"1PUTER: 9ge,ASM
*
ORIGINAL
*REVISION: 9/5/76 TO SUPPORT PAPER TAPE
* ABSTRACT: INITIALIZES THE MONITOR WHENEVER IT IS
*
LOADED OR RESTARTED. BRANCHES TO
*
COMMAND STRING PROCESSOR.
* CALLING SEQUENCE:
*
LOAD OR RESTART MONITOR
*
OR
*
B
@INIT

121131214
1211211215
1211211216
121131217
1211211218
12113139
121121:1121
121121:1:1
121121:12
121121:13
121121:14
121121:15
121121:16
121121:17
121121:18
121121:19
1211212121
1211212:1
12112123
12112124
12112125
12112126
131327
1312128
12112129
13133121
1211213:1
131332
1211333
12112134
12112135
12112136 121121121121
1211211212
12112137 12113134
1211211216
1312138
12112139
131214121
1211214:1 1211211218
12112142
12112143
1211344
12112145 I2Il21eA
eeec
1312146 eeeE
121121:1121
131347
1211348
1312149
131215121 13121:12
121121:14
1211215:1 13121:16
12112152
12112153
1211354
1211355 121121:18
ee:1A
12112156 ee:1C
12112157 ee:1E

:1:1:53:54 FRIDAY, FEB :18, :1977.
948938-99121:1**

:1FCe
1313121121

DEF
REF
REF
REF
REF
REF
REF
RE:F
REF
REF
REF
REF
CLRERR EQU

*WRTPRT
*
R:1

121121121:1
eeec R:12
13121121121" INIT
e2Ee
121121121121
1213121121
1211211212
*
*
*
12136121
*
*
*
1212121:1
121121121121
C8e:1
eeeA

e2ec
121121121121
:10121121

C32e
121121121121
:101219
:1DeB

*
*
*
*
*
*

EQU

ItHT

CRUPRT
CSP
SVCSR
SVCWP
DC733:1
DCTTYT
EI
FREMEM
GETBUF
INIMEM
FPSTRT
>:1FCe
121

EQU:1
EQU:12
EQU $
LWPI FREMEM
LII"1I >2
CLEAR PARITY ERRORS
RSET
FRONT PANEL INTERRUPT VECTOR

1"10'.1

R:1,@>A

TURN OFF PROTECT VIOLATION FLAG AND CLEAR PROTECT RE
LI

R:12,CRUPRT

SBO

WRTPRT

INITIALIZE 33
1"10'.1

@DCTTYT,R:12

SBO
seo

>9
>8

MOVE ASR 33 CRU BASE
DATA TERMINAL READY
CLEAR READ REQUEST

$4tS

... HU."

a

N .. 4

!SESe]:.

MINIT
SDSMAC 947075 *D
** NEW INITIATE MON**

0

0058 0020 1.D0C
0059 0022, 1.E0F
006~3

0061.
0062
0063
0064 0024
0026
0~365 0028
0066 002A
0067 002C
0068 002E
0069
0(170
0071.
0072 0030
0032
0073 0034
0036
0~:374 0038
003:A
0075
NO EF!:RORS

SBO
SBZ

1.1.:53:54 FRIDAY~ FEB 1.81 1.977.
948938-9901."'*

PAGE 0003

CLEAR WRITE REQUEST
DIAGNOSTIC MODE

:>C
:>F

*
INITIALIZE 733
*
*
0024'" INI733 EQU $
C320
MOV @DC7331./R1.2 t'10VE CRU BASE
0000
1.D09
5BO :>9
DATA TERMINAL READY
1.D0A
seo :>A
CLEAR REQUEST TO SEND
1.tJ0B
5BO :>B
CLEAR READ REQUEST
1.D0C
SBO :>C
CLEAR WRITE REQUEST
*
INITIALIZE MEI"10RY CHAINS
*
*
0420
BLWP @INIMEM
0000
0420
BLI.o~P @GETBUF
0000
0460
B
@C5P
0000
0000"END INIT

c

o
. ME

$., $

$.4.

;

$.

4U;

J.

l£AXSlILJU''''¥4.b41l;' ¥

t'1I NI T
LABEL
:$

0

B
BLWP
CLREF.:R
CRUPRT
CSP
OC733::1.
DCTTYT
OEF
EI
ENO
EQU
FPSTRT
FREI'1EI'1
GETBUF
I[:'T
I NI 7:::l:3
I NIt1Et'1
HUT
LI
LIt1I
Llo!PI
t10V
PAGE
R:1.
R12
REF

VALUE

:1.:1.:53:54 FRIDAY, FEB :1.9, :1.977.
SOSMAC 94712175 *0
OEFN F.:EFERENCES

948938:"9901

R

e~:nc

E
E
E
E

:1.FCe
121121:1.4
ee3A
12112126
ee:1.A

12112129
121121:1.8
121121:1.9
12112122
0023

E

~3e0C

0024

012135
12112174
12112172

121063

PAGE 0101214

**

12112173

1211215121
1211074
12112164
0055
1210:1.7
12112145
12I~375

12112129
E
E
E

~3e36

012128
012125
012126

R
E
0

012124
12112132
1211210121

12112163
12112127
12112135

CRSET
SBO
SBZ
SVCSR E
SVC\.oJP E
TITL
WRTPRT

01211212

121121121:1.
eeec

12112133
12112134

1211213:1.

I2II21J3

121034

el2l35

l2Ie63

12112164
01212121

121021

012122

£112123

12112124

12112125

12112157

12112158

12112165

12112166

12112167

12112168

12112136
12112173
1211211214
12112172
121121::1.7
12112145·
12112137·
12112136
12112146
1211211212
12112145
1211215121
12112118
12112127
12112141
121£151
12112159

12112175
005121
012155
1211211213
12112146
12112155
1210:1.9
1312128
12112156

1312164

12112126

ee2~3

12112121
0000

12112131

1211211211
12105:1.

o
.' £t

Q

_

.4 ,,4, -.\....

~

;g

,.L

==

J$,--ALS 4.,.g

~!IfN

.... ~ !:ll1ilr?

'N

~

A[

..

APPLICA TlON
NEXT ASS V

o

REVISIONS
L.~

USED ON

,
A~VEO

DATE

OESC""ION

7506

NOTE:SOURCE AND OBJECT ON
DISC IN SOP 948931.

c

f4

.---

REV
SHEET

LA

REV STATUS
OF SHEETS

REV
SHEET

UHlE55 OTHE_'.E S~EC''''I:D
DIMEH510H. AIU IN .NCHI:.
TOLE"ANCE'
ANQlE5 ~ I '
I ~LAC( DECIMAL:!: 010
2 ~LACE Df:CIMAL+ 02

OWNO

ENGA~:.
. ,) ~\C(Z ". ~
. Cl

IDI:NT'l'YlNa NUM.I."
SHOWN IN ~A"I:NTHI:'fS
,.0" IU,.E"I:HCI: ONLY
IHT["~"[T

o

I

OL2L';tl/,

J.c

l 1. :U·/ 3
.

n
AL,

MP~IOS,

TEXAS INSTRUMENTS
'''CO''~O''''T£D

EquiprMlnt G",.,.,

3/14/77
SIZE

COClE !DENT NO

OESIGN ACTIVITY RELEAS£

A

96214
1 REV

f2

D.,,.,, T" ' .

I/O DISPATCHER-PXR990

CONTA NO

4",-Y,'
1'1-•• ".C

~~

1_!1.;..l7ATE

"1\V1~..tt ~ ... tO-11

owa

IN
ACCO"DAHCE WITH
MILSTD 100

TlJRNFR

e .....

AruL6. _-h ?--II./-71

SCAI..E

+
$.

_ .#44-4~

WZI

DRAWING NO

948939-9901
$MEET

-.M

44.. ..#4 42 ,.t-

1 of 15

4,)#.. ,_

t. X

MPXIOS

**

SDSMAC 947075 *8

NEW I/O DISPATCH MODULE

**

12:14:10 TUESDAY.

SEP

~:::t7.,

1976.

0 ,'
,

,

c'

o
. lIP

. $2

40

C=M[W,.,I$$,C __ 2,#, ;

-

MPXIOS
SDSMAC 947075 *8
** NEW I/O DISPATCH MODULE **
le·T

f1~.3~~'4

0

~~1"-1~~1~:;

0006
~:::1(1~37

(1008
~3~31Z19
~301(1
~3(111

~)0:12
1~:H313:

0~314

0015
(1l2l:t6
(1~.1:1. 7
0018
(10:19
(1~:::12(1
~':'Hj2:1

~:~1;::t22:
~.:.'I~~12:::'~
~3(1;;~4

12:14:10 TUESDAY, SEP 07, 1976.
948939-9901*

PAGE 010102

···t·1P::'~IOS···

*
* TITLE:
*
:+< ORIGINAL:
*REVISIONS: 109/03/76 TO RECOGNIZE TTY I/O CALLS
*
* CONPUTER: 990
:+<

* ABSTRACT: TH I 5 F':OlfT I NE DOES 1.·"0 CALLS FOR PX990 WITH
DEVICES: ASR, CASSETTE, ASR 33 PAPER TAPE PUNCH/
*'*
READER A GROUPING OF SUBROUTINES WHICH
:+<
CONSTITUE THE PX99-1 10 EXECUTIVE

*'

:+:
:+<
:+<
:+<
:+:
:+:

TABLE OF CONTENTS:
1. LUNO/DEVICE TYPE/DEVICE NANE CONVERSION
A.
DEVICE NAME TO DEVICE TYPE
a
SET DEVICE TYPE IN LUNO TABLE
C.
LUNO TO DEVICE TYPE
2. 10 SERVICE DISPATCHER

*'

c

o
I
. A $.$ L _

nia

.. "." .4.-_.

. l.basSi kJ

MPXIOS
SDSMAC 94712175 *8
NEW I/O DISPATCH MODULE **'

**

1:::it:I:::~t.

0

j..:.1j..:.1~-;: ""

'J~J;;:::::
~.:.lk129

(11-;:13:0
j.)(13::1..
0.:::(3:2
121 ('(;:c

OI2(N
I2ItG~5

t.::KG6
~'::II;::f3?

01211::10
.)(11211
(1~X12

.)1-3(13:
(11211-;:14
(1(11215
(11-)1-)6
j.)O';:f?
(1(1(1::::

(1j.)~~:::::

1-;:1~3e9

~;1~::139
0~:)4~::1

j.X1eA
":Kn)8

tl(14l

~X1f:.1C

e~::142

(lOt-X)
t-;:lt2l(lE

et;:)4::
12112144
.:::1.;:145
O·~i46

0047
1211;::14::::
1211-;:149

~::1t21(1F

*'
*'
*'
F!:t2t
fU
F!"-'
'.'::"
R3
R4
F!:5
F.: 6
F.: 7
RE:
F.: 9
FUt2t
R11
R:12
R1::
F.::14
FU5
*'
:+:
:+:

j.~i .;:1~:5:1

0~,:)52

C:

.::Kt5::
(n)54
~':'11215~;
O~:1~)6

(lW57
005::::
012159
.;:106121
~:'1(161

.;:1.;:162
.;:1(163:
(1~::164

0065
121066
j.;:1~367

1;::11216::::
''::1(16:::4
O~)'7'~3
.;:1~::171

0t.;:1'?2
~'::1(173:

0(174

:+:

O~~175

*'

01-376
(10-;:"7'
";:1 f~ ~::' !::!

0

121.379
I~:IO::::O
OJ.~l:=::1

0~D::::2

f:10 E:::;;:
~)O::::4
~:1 ~:~ :::: ~:I

~'JORKSPACE

EGJU
EG!U
EG!U
EG!U

SEP 07,

1976.
PAGE 1-3003:

Fi:EG I STEF.: OEF I NIT IONS

(1

1

2
3:

EI:;-~U

4

EG!U
EG!U
EG!U
EG!U
EG!U
EG!U
EG!U
EG!U
EG!U
EGlU
EG!U

5
6
7
,:;.

'-'

9
1.3
11
1'-:'
.::..
13:
14
15

Fi:EFEFi:ENCES
F!:EF
F.:EF
F!:EF
F!:EF
F!:EF
F!:EF
REF
F!:EF
F.:EF
REF
F.:EF
Fi:EF
F.:EF
F.:EF
F!:EF
f;,:EF
f;,:EF
F!:EF
f;,:EF
F£F
F.:EF
F.:EF
F.:EF
F.:EF
REF
F.:EF

~:i~D5(1

12:14:10 TUESDAY.
948939-990:i*

ACL
[:'CTT.,.'T
OC733:1
LCiRASC
LG~'JASC

CSOPEN
CSBACK
CSF~'JO

CSF!:ASC
CSF~~'JI'~D

CSUNLD
CS~'JASC
CS~oJEOF

PTOPEN
PTCLOS
PTCEOF
PTOPFi:loJ
PTDlFi:T
pnoJASC
PHJEOF
PF.:OPEN
PFi:CLOS
PF.:[:o I F.:T
PF.:OASC
PTPILL
F.: F.:

DEFINITIONS
C:oEF
DEF
DEF
DEF
DEF
[:oEF
[:oEF
DEF
DEF

CDNDT
CL[:oT
C:t'1Dt'1SK
EFNASK

CHAF.:ACTEF.: 1'10[:'E
END-OF-FILE FLAG
10 SEPVICE DISPATCHER

10

SETLUN
UEMASK
UNRECOV. ERROR
UEFNSK
UNRECOV ERROR AND EOF FLG
LOG.DUM.CS.PTP.PTR

"

;

.CO,§"4i.W;;U;;'",.@.,_,

;;Y4

:+:*

Nt::.~·~

1.····1..1 D.1. :::.t-'H I LH 1·IUL..'UL.t::.

*'NV .... 1'T.,....

~;J·;n:;I::·

0

".:.'f.:~i::i

,.-

~'::' ~.:1 ~:1::)

!;;~~j:=:8

1O:.~01.~3

1-.::t~.:.1::::sa

1;';.1~:::1S1~:::1

la091.
1:;.11:::1::;:1;:::: 1:: t1: .11::.11::.1
I~H.:.11::.1~
i:::1~~1~12
~.::t~:~:?..;;:

~.:n.:.Hj..;;:

[11211214
O(1~15

f1~::194

~:::1(19:::i

4:::~
... "">

~3~~08

::'1::1
43:
53:
3;:'2
5(1
54

~:::1~3(19

~K1';:':U::

(10(1[;'

5~~1

(1~j0F

5121
54
12t07F

~312199

~'1~:::1(10

(1:1.. ~)(1
01.0:1

~~'1~)~3:t

12t:1.~)2

(11;::1~:::13:

(11.tJ~~:

~)006

(1~:::102

01.1214

!'1AX.

[)Ul'l
LOG
CS
PTP
PTF.:
NUNDEV

TE:>~T

"'CS1"

TE:>~T

"'CS2'"

TE~":T

"'PTP'"

EG!U
EG!U
EG!U
EG!U
EG!U
EG!U

1;::10:1.2'" DVNDVT EG!U
~.::t1:;.1
B'T'TE
!;:.1:1~':~::: ~.::tIJl.:3:
'?F
B'T'TE
B',.'TE
~31
~':~:H::IS' (H3:1.4
~:::I :1. :1.13 ~3~~n5
01
8'T'TE
~3.-;::
E:'y'TE
~JJ.. l.l. ~~'1I;:n6
~:::I:l:1.~~ 0t'l:l7
03:
B'y'TE
(11:1.3
~3(1:1E: ..'
0:1.14
DVNUNT EG!U
~):l:l!'.::i IZtf1:t:3
~3f1
8'T'TE
~j0
~:::1:116 ~j0:19
B'y'TE
~)(1
B'y'TE
0:1:17 0(1:1. A
~:::1:1.
(1:1.:1"::: ~3";~:1.B
BYTE
t;H:19 001C
~3~3
B'T'TE
(1:1.;;::~:::1 121(1:1.0
B'y'TE
00
(112:1.
~~'1:L:;::2
0';::I:1E'" LUNCNT EG!U
(H:::1
0:1.23 (10:1E
B'T'TE
(10:1F
7F
0020
?F
~3(121
7F
StT'TE
~:::1:L:;::4 (H322
?F
0~:::1;::3:
?F
,.,. 1::.11::':L:::

*

*'

~:t~3~:;::4

~30

0~:1~::5

~:::11.

~3026

(1:1
7F
7F

~3e:127
"~1~32::::

NO.

LIJNO

DEVICE NAME TABLE

TE>';T ···PTF':···

*

1::.1:1.1::16

~~'1:1;;;::~5

PAGE 0004

NUNBER OF DEVICES

:;)

1·-·...,.
t!.i
0
:1.
;2
3:
6

TOTAL NUMBER OF PERIPHERALS
CONNECTED

*

~':1.~.::I!::,

0

1976.

TE::-::T ···C)UM·r

52

€1~:'151:::

~.:1:J..~::t

SEP 07.

--1.:;-

~j~j~jE

I;:Hj:1.121
121 ~~1:1.:1.

C

4,...

r

t:.1~J.U

*
NUt'1LUN EG!U 1.6
*
$
L)VNHPlt:. t:.1.:.!U
TEXT "'LOG'"

47
44
55
4D

~~1(107

~3~:1~:''1E:

~:~~:'197

4C

~;:tj;::1~:::16

(1~21(1A

~j096

12I1O:.11::.1~

12:14:10 TUESDAY.
::;:14::::::;:139-9901*

**

DEVICE NAME TO DEVICE TYPE

$

LOG
DUN
C'::
'-'
C·'·
..:;.
PTP
PTF.:
DEVICE NAME TO UNIT NUMBER

$

f1
0
0
1
0
0
LOGICAL UNIT NO TO DEV TYPE

$

LOG. OUN, OUI'1.. OUt'l

[:IUN. C)UM .• LOG .• CS

8'y'TE C:5,. DUM. DUN .. DUN

','

,I

',1

.1·1

!

4#$

$,.

. .__ 1.J Z. .

.JiaU

MPXIOS
SDSMAC 947075 *8
NEW I/O DISPATCH MODULE **

**

o

1::.1 ;L:::'::;.

~~I I::~ ~-::: H

k1k1;"'::'I::::

~~'f12F

00
f10

(~~~~3121

0f~

(1 (13:t

0~:::1

E1~~1~:'~2

~::'H3

~3(13:3:

~3~3

~)J2I3:4

eJ0

0~::~3:5

(1~)

~:::1~33t::;

~31

003:7

~3~:::1

~'::103::::

~X1

(1(:;'3:9
~;)~~13A

00
O(1

J2I~~13:B

~:::1~3

1)03C

(n)

~303:[)

~30

(1:133
~):134
~:::113:5

c

o

SEP 07.

1.97~

PAGE

€lees

(I(I(I-

~302E···

~3e'2E

12:14:10 TUESDAY.
948939-991211*

*

LUNUNT EG!U $
8'T'TE 0 .• 121, €I, €I

8'.,'TE

0100

e. e. 121, 121

8'.,'TE 1..' 0. 121, 0

8'r'TE

*

~~I~:::13:E

LOGICAL UNIT NO TO PHYS UNIT

L8YTE

e. 0 .. e. 0

EVEN
EQU >1.121121

MOVE 8YTE TO LEFT 8YTE

-

MPXIOS
SDSMAC 947075 *8
** NEW liD DISPATCH MODULE **

o

~::!J.3?
~.:.i1...;::::::

*:+:

(1:1..:::9
0:14(1

:+:
:+: F.:E',/ I ~:; I ON

TITLE:

0149

EQU
LI

1~)04(1

~~~(I~~16

12/~t'::i6

(11~142

01':5?

~~I~?144

0042/ CDNDT2 EQU
0609
DEC'
.JL T
111~:~

~~11.5:::

0~~14E;

c:~:::n?19

121159
01.6121
J21::l.6J.

~XI4:=:

A(109

1~11~i4A

A~~n39

A
A

~~1~34C

~~12~~(1

AI

(H34 E

~~I ~X1I~1

0155

CONVERT DVNAME TO DVTYPE
SET L.OOP VARIABLE

$

f':9., tKlt'1[:rEV
$.'

END OF LOOP?

f':9
C[:'NL)T8

DEVELOP [NNAt'lE
F.: 9., F.: (1
F.:~3., D',/NAt'lE

..'

0:1.62

:+:

t'10r",1

Ct14A
(1:1.. 64 t1052 9(:,;::'I.?1
1211.65 ~Ki~54 1.6F6
13:166 01~.'I56 9C·?~?1
0:167 0~)5:3 :16F4
0::LE;:::: ~:H35A 94:;1.)
0:1.69 1;:J05C 16F;;'::
O::L ,?~?1
Ci:171 Cn?15E [)2~~9
~::1~?15~~1

0~~16~~.'1

0173:
1.:::1:1.74
01.·?!:5

CDNDT
CONVERT DEVICE NAME TO DEVICE TY&E/UNIT NO.

=

015~~/

0:1 ~i:1.
0152
:+:
0:153
003E~ CDNDT
0154 003E 0209

~?1j.. 7;;~

197&

:+: COt'lPUTEf'::
:+: ABSTRACT:

~?i:14:::

C

SEP 07.

94::::93:9-99~:1:1,:+:

Of': II3NAL.
990
THIS ROUTINE CONVERTS A THREE-CHARACTER
:+:
DEVICE NAME TO A TYPE AND PHYSICAL
:+:
UN I T NUt'18ER.
:+: CALLING SEQUENCE:
:+:
MOV
(ADDRESS OF DEVICE NAME STRING>.R10
:+:
BL
@CDNDT
:+:
UPON RETURN:
:+:
R9L: DEVICE TYPE (ERROR IF
-:1)
:+:
R8L: PHYSICAL UNIT NUMBER

~:11.41.

''::1:1.4:/
0:14::
121:1.44
0:1.45
0:1.46
0::1..47

1.~1:16:~:

12:14:10 TUESDAY.

0~~i:t:::

CB
JNE
CB
.JNE
C8
.JNE

*

rF

F.:H.'I., F.: 1
:+:F.:t1+., :t: f': 1. +
CDNC'T2
:+:F.:t1+., :+: F.: 1. +
CDNDT2
:t: F.: ~::1.,
F.: 1.
C[:rt·J[:IT2

NOT EG!UAL

*

1"10',/8 I]lDVNUNT (F.:9 ::0 .'

~:!3

SET UN IT NUt'lBER

..'

0~:i62

[:1;;~69

~21t164

(iRl2'"

t"IO"'lB I]tD'."lt·JD',lT 0:: F.: 9 ::0 .' F.: 9
:+:

OI~166"
~:::/~:166

t1458

CONe'T:::: EOtJ
F.:T

$

F.:ETUF.:N

o
li _ 1...44 4. 4, $.

$

-4!I(444M24

4T.

.¥

4.

"lUJ4Mg, Q

",,4"

k¥

MPXIOS
SDSMAC 947975 *8
** NEW I/O DISPATCH MODULE **
OJ.'??

0

** TITLE:

(1:1.'(':3
~):1.79

**'

(1:1.::::0
9:1.:::::.1
I~U83:
~:::1:1:::5

';:U86
(1:1.:37
(1:1:3:3
(11::::9

0:1.90
0:19:t
(1:192
121:1.93:
121:194

RE . .·'ISION:

:+:
~:::u)6:3

0:196 996A
.;:H97 1Z196C
(1:1.98 t.:K16E
0070
0:1.99 ~3072

C)

SETLUN
SET DEVICE TYPE/UNIT IN LUNO TABLE

ORIGINAL
Cm1PUTER: 990
A8STRACT: THIS ROUTINE SETS DEVICE TYPE AND
*
PHYSICAL UNIT NUMBER FOR THE INDICATED LOGICAL
:+:
UN I T NUf'18EF~.
* CALLING SEQUENCE:
:+:
MOV .R10
:+:
MOVB ,R9
MOVB .R8
*
:+:
BL
@SETLUN
:+:
UPON RETURN:
:+:
R7: ERROR CODE C0 = NO ERROR. -:1. = ERROR)

0:1E:4

~:'~2(10

PAGE 0007

:+:
:+:
:+:

~J:l:32

(1:1.9~3

:1.2::1.4::1.0 TUESDAY, SEP 07, 1976.
94893:9-9901*

0~3?4

(u:::168'" SETLUN EQU :$
~:::1797
SETO R7
MOV 'F~:1.0, R:1.~3
C28A
..lEI} SLUN90
:1.3~38
92E:A
CI
R:1.0.NUMLUN
00:1.0
:1.405
JHE SLUN90
MOV8 R9,@LUNDVTCR10)
C'A:39
00:1.E···
[)A88
MOV8 R8,@LUNUNTCR:1.0)

(u376
(12(1:1. 09"("8
0(17A ~:::102E'"
(12(12 (197C (14C7
CLR
02(1]:
~:::10?E'" SLUN90 E';,U
(1~:::1ZI4 €107E 0458
RT

1::.-;_

ERROR CODE

SET DEVICE TYPE
SET PHYSICAL UNIT NUM8ER
CLEAR ERROR CODE

rr.. I

:$

RETURN

o
.z

4-

.$ ..JUN X

;

,

!QUi .iX. .Cw.

MPXIOS
SDSMAC 94712175 *B
** NEW I/O DISPATCH MODULE **

o

021~~6

** TITLE:
*
* RE',..'ISION:
*
* CO~1PUTER:
:+: ABSTRACT:

1212(1('
~32€1:::

(1;;::09
12121(1

PAGE 1211211218

"

CLI)T
CONVERT LUNO TO DEVICE TYPE AND UNIT

ORIGINAL
99121
THIS ROUTINE RETURNS THE DEVICE TYPE AND
:+:
PHYS I CAL UN I T NUMBER FOR THE GIVEN LUNO.
:+: CALLING SEQUENCE:
:+:
MOV .R10
*
BL
I!lCLDT
:+:
UPON RETURN:
:+:
R9L: DEC
:+:
R9L: DEVICE TYPE CERROR =-1)
*
R8L: UNOT NUMBER

J21~;::1.1
~::1~~12
~)213

121214
~);~1.5

~)216
r,;:1;;~:1. 7
~);;:::1.. 9

O:~~2~?1

121221
0222

0e80~

~::1086

c

12:14:10 TUESDAY. SEP 07. 1976.
948939-991211*
..

*'

CLDT

EQU
LI

$

CI

R11Zt.,

CONVERTS LUN TO

DEVICE TYPE

R9.DUM*LBYTE
NUt1LU~J

IN RANGE?

001(1

02;;::~5

0~):::::=:

14~34

~::1;;;~26

~3~J8A

D26A

02;;;::-1

(u38C ~301E "
(1(1E:E D22A
~3(19(1 (1~::12E . '

.JHE CU:oT91Zt
MOVB @LUNDVTCR11Zt).R9

121228
1Zt1Zt92~ CLDT91Zt EQU
0229 121092 121458
RT

YES

$

RETURN

o
4"

M.M@;;aM

., x.

S..1

---------_

.._ - -

**

NEW I/O DISPATCH MODULE

*'
*'
*'lOOP

tZ1;;::~~:;2
~3Z:::::3:
~::12:3:4

OO(1~3

~)2::5

(1(1(11

(1:2::%

00~32

~32:::r?

~3~:;KG

0~:~::9

1:)004
0(n36

~'::I :;:: 4121

~:::10(1E:

LUND
S'T'SFU3
USEFLG
BFA(:'DR
BFLNTH
CCOUNT

024:1..
(I;;~4;;~

(1~~~:::1F

0:243:

~30(1E

0:244

(U::K1[:'

*'

UE
EOFLG
C HF::t'10 [:0

121245
~~;;;::46

(1094

024'?

~?:I095

121;;;::48

~:::H396

0249 012197

*'
UEt'lASK
En'IASK
Ct'l[:ot'lSK

4(1
2(1
1(1
6121

UEH1S~:::

02~i0

~::1:;~51

:+:
:+:

02~5::~:
(1;~:55

(::1~::;:56

121(19::::
0099

(14
06

(i;~!:i:=:

~:::1(19A

~3A

1;;:1;2~;9

009E:
009C:

~3C

f~1;;::5~:;t

c

~.3€19:::

~~1260

.,- *'
oeTDT

02E:1

:+:
:+:

1;:.1;;;::63:
~.:1:::::t:.4
j.~~;;::IS5

~:::1(19C

f:j~~19C

*'

..' UTLOG

(1~:::1~:::1(1

(1;;::~:'6

~X19E'"

1;;:1~7::67

(1(19E t1(19C'"
1~10A~::1 (1(19E'"

O~;~6:3
i2l26:~

121:27'0

O~3A;;;:'"
~3(1A~~~

~21(1[1(1

~~1(1A4

~)~)A2'"

(12"('1

1;::1~.3A4

(12'?:~~

027'4·

~::1(1(19

~~1275

~3~3~36

027'6

~:::10(1F

EOU
EOU
EG!U
EI:;).U
EG!U
EG!U
EOU
FLAG
EOU
EG!U
EG!U
FLAG
B'T'TE
B'T'TE
B'T'TE
B'T'TE

OC:TCF.:U EG!U

J.~1~~5::7~

UTCST

UTPTP

..' UTPTF.:

*'

SEP 07.

197&

94E:9:::~9-99~U*'

PF::B (:, I SPLACEt'lENT EI:;).UATES:

*'

(1~300

12:14:10 TUESDAY.

*'*'

1;: 1
1

10 OP CO(:'E
LOGICAL UNIT NUMBER
S'T'STEt'1 FLAGS
USER FLAGS
BUFFER A['~C)RESS
BUFFEF~ LENGTH
CHARACTER COUNT

2
3:
4
6
!::=

SHIFT COUNTS:
16-1
16-2

:1.6-3
SET MASKS:
:>4(1
)2~3

>1(1
)4~H>20
~:::1

OCT t'lAPPING TAE:LES

NAP DEVICE T'r'PE
EGlU
B'T'TE
B'T'TE
B'T'TE
B'T'TE
E"lEN

UNRECO'v'. EF~ROR
Eo[)-/F -F I LE FLG
CHARACTER MODE

:$
UTLOG-OCTDT
UTCST -OCTC:oT
UTPTP-OCTDT
UTPTF.:-OCTDT

(ONE ENTF::'r' PER DEV T'T'PE>

LOG
CASSETTE
TAPE PUNCH
TAPE REA(:'ER

t'lAP UNIT TO OCT
EG!U
DATA
EOU
[:oATA
DATA
EC!U
DATA
EOU
DATA

R[:'AC:OD EOU
FSPCO[:o EG!U
t,t:.:; I OOP EG!U

:$

LOG

DC 73::::1:1
:$
[:oC733:1
[:'C73::::1::1.

UNIT (1
CASSETTE
UNIT 0
UNIT 1
TAPE F'UNCH

:$

DCTT'T'T
TAPE F.:EA[:'EF.:

:$

[:OCTT'1'T
F.:EAD ASCI I 10 OF' CO[')E
SPACE 10 OP (:O[:OE
t'1A>:; I t'1Ut'1 10 OF'

9

FOF.:~'JARC:'

6
15

o
.,4# 4

$.

£ .I.L44

$#ttI4A1¥¥.4£; .($

p.

A#. . . . 4k '"

,Aid

:

t "

UMWU;ilAtIA¥l!t4;r

MPXIOS
SDSMAC 947075 *8
** NEW I/O DISPATCH MODULE **
('f;;~:~:";If:

0

1

@2JA6'"

~Z1;27'~:;a

(~0F16

~)5CA

::: ~:I

~:::1l2fAE:

03::::8

~3~~:=::1.

~~1t1AA

C~3CA

~J;~:=:,"2

00AC

58E~:::1

~::t(1AE

~309("""

~~1:;~

10

(1002
D2A3:
00B4 0001

12:14:10 TUESDAY,
94893:9-990:1.*

SEP 07,

197~

PAGE 121010

$
EGIU
SET PRB ADDRESS
INCT R10·
R:l1, f"''''
..:::.
tKI'v'
,::.
R10, R-'
~10'v'
@SYSFLG(R3:)
@UEFMSK,
S2CB

~~1~::tE:13

12' ~~ :::: ~:;:
02::;:4

~~11~~B6

~:::198A

121~"2;=:5

008S

~:::16A0

~:::1~3E:A

0~380'"

~:~;;::::!6

(u38C ~39:39
0(1E:E 0988
£1~::1CI;::1 [)1E3:

k~12:37

~::I:;:::=:~=:

~X1C:~:;::

0~3(1(1

i!),7~:=:9

IZIt;::1C4

~Z19E:7

1~1~~9(1

~:::H::1C6

€12:::9

SRL
~10VB

R9 .• 8
R8 .• 8
@IOOP(R3:) .• R7

SRL
CI

R7, 8
R9 .• DUM

5F~L

~:::u37F

13~3CA

16£1C

~TNE

~:1;29~:

130CC

~;~2E:7

CI'

10020
R7 .• RDACO[)

~'3~::1CE

(1(109

(1293:

(1~:::1[)(1

:13~:::13:

~:::1;294

~:::1 ~:::1 [:' ;;:~

~3287

JEG!
CI

LL2
R7 .. FSPCOD

(10D4

1~1~:::1(16

~Z12~37

16(1!:i
00[:'S'"
f2'~3D:3 F8EO
@ZlDA 0095'"
1)0[)C 0~:::102

12129:::

~3~3DE

~':)4E3:

(1(1E~:::1

00~3E:

~:::10E2

0452

~:::1(lD6

121;;;::99
~':):J:0~J

~30E2'"

0~1:02

@CCOUNT(R3:)
$
*R2
$
R7, ~1XIOOP

JLE

LL4
*f':2

-r2t~:E:7
0(1t::.1F
1201
€1452

E:

~::)J:12'4

0~::1EA

~10EC"

~::t~;:~~15

£13:06 00EC D1A9
~1~'3EE

~:3985

'33:15 0104 (:109
CJ::;::16 ~:::1106 ~3A14
1213:17 0:1.~3:3 A144
~~1:1:1::;: ~?t:t(1A C:1..65
~U0C (1126'"
0:H9 ~11(1E 1:;:~~:::1A
t.:) J: 20 (1~U.~1 ~342~3
(111;;~

ErJ.U

$

~10VB

I]fOCTDT (R9) .• R6

(DISP TO BEGINNING OF TABLE

Sf':L
t·lOV
SLA
A
t·10'·.·'

R6 .• 8
F.:E=J R5

(UNl T*2:)

R5, 1
R5, f':6
I)OCTr)T 0:: R6) .• R6

~:::u39E:'"

('13::1.;2 00FC [:'1.67
(1IZiFE 0126'"
(13::1:( 01~:3~:3 :1]:11
~3~102

LL4

RETURN

~3~398'"

(1(1F0 0986
f.13:f~~::: 00F2 C148
03:09 ~:::1~:tF4 0A15
(G1~~1 00F6 A1.E:5
f(:;:11. e'0F:;:: C1A6
0J:~Z1?

IZI~':)FI'

I0020

(DEVICE TYPE)
(UNIT NUMBER)
(10 OP CODE>

IF NOT READ OR FORWARD SPACE

CLR

(1~::tE6
(1~3EE:

~':):~:14

1001(1

SET LUNO

.JNE
I0010
$
EG!U
SOCB @EFMASI...;:, @S'T'SFLG(R3: )

(1~?IE4

0~'3E4""

~::1J:(lJ:

!, ~

LL2

EG!U
B
EG'JU
CI

iZGR1.

"

R10 .• 8
@CU)T

~::~f1CS

";:1;;~9t;

0

SRL
BL

~J29:1..

(1<":::95

C

MOVB I)LUNO (R3: ), R10

~::t0B2

NOVB @ I OPTE:L (f':7 )., f':5
.JEG!
::;:RL
MOV
SLA
A
~10V
~TEG!

BUo~P

1005(1
f':5 .• 8
f':9 .• R4
R4, 1
F~4 .• R5
I) I OPTBL (f':5), R5

[:'ISP TO DEV T'T'PE TABLE B'T' OPC
IF NULL ON 10 OP CODE

([:'EV T'T'PE *

2

A[)DRESS OF CALLED SUBf':OUT I NE
IF NULL

10050
I)ACL

(10'21~:::1

au - .

---4#

.. 3U.$.

s."

-

MPXIOS

**

0

NEW 1/0

o:::~: ;;2 :t 0:1:1.4
121322 01:16
1~(3:23

C:~2:=::~:

I"'IOV

C~~46

NOV
MOV

eJ.. 1E: C:3::;-~9
O:t::LA 0(1(10

(i:3:;;:~4

~311.C:

C~345

(iJ:~~5

0~L:tE

0691

~~~~j:~::6

o:1 ;;~~ [1
01;;::2

'~~:3: ~~~ ::::
~;;

:: ;~: ~::;,

~:'li::N

04;;-~~3

~:::1452

..'

~:::11.26

03::~::l.

~211~;:'?

le,

0:::::;:;2

01;;-~::::

;;::(1

O:::G::~:

~H29

~~:=:

03:3:4
(~I :::;: 3: ~~;

~;H2A

3:~:::1

I~H~'::B

121(1

0:::;::::::6 I::U2C:

~~::=:

03:3:7

4~~

'-'

IZ1:3:::i:::: 0:1.2E

~;J~3

CD::::~~:9

O12F

5~)

e34~:::1

01:::!:~3

4'='
'-'

~j3:41

t;:u:::a

6~)

la342
(C43:

~:::1:t3:;;;:

5::::

~313:J:

6:::

0::~:44

0:1.3:4

7~::;

~~~:;: 4!::i

~3135

O?::::

(13:46
0:136'"
121:3:47 ~;)1:::!:6 1;::10~:'1el
03:4:::: 01.3:::: (11;::10~::1
I~G49

~;U3:A

O~3(1~3

1):::~:5(1

(il3:C:

~)~j~K1

(H.:3E ..'
[11.3:E
1211.41;::1

~:::1(1[1~:'1

0~~:53:
~)3:54

[1::l4;;-~

0~~10[1

[1~::i~:::1(1

I;::C!::i!5 1211.44 (10(H~1
0:::;:':;6
13:.1..46'"
~7.1~~:57 1;::11.46 1;::1(1e~J
(f 3: ~~; ;:: 121:.1..4:::: (1[10~:::1
(1::~:59

~:::11.4A

~:::n:::I~K1

12C6f~

01.4C

~::H:::1(nj

(1:1..4E

~:::H;:1I;::1 (1

O:1.5~3

(10(1~3

1213:6:1.
~3J:6;;::
~:r3:t::3:

~3:14E'"

(1[1121(1
..'
~33:1:::5 121:1_54 (113:C
~)1.5E; ."
~:::e66
IZC67 (11.5E; (1(1(1~3
(13:64

fi~l52

12I~~:6:=:

~)15:=:

133:69

~3:1.5A

(1J:7~3

~:::115C

(1~!:'?1.

0

[10(i~:::1
~3j..4;;;:

..'

131.44 ..'
~315E'"

1~1:::7;;:~

~31.!:5E

~':=UX10

~7:1 ~;: ~:' :~:

0:.1.. 60

(1~:::1~~1~3

1213:'?4 1~11.6;2 (1(100
t;::G75 121164 ~)t;:~(1(1
(1166'"
0:3:76
o:~:?'? 0166 ~X1~30
121~:'?!=:

~~116:::

~300~3

I

C)05~:::1

EG!U

B

1.~3

(13:~52

SEP 07.

1976.
PAGE 00:1.1

MOYE PR8 POINTER TO NEW WKSP
SET CRU 8ASE ADDRESS

CALL SU8ROUTINE

(1~30~3

eL::6

0J:~3~L

R3:., FU_0
F:6., R9
@OCTCRU(R9).R12

R5., F:1.
E:L
*R1
E:LWP @F.:R

03:::::1~1

~21:1.~::D

12:1.4:1.0 TUESDAY.
94:::939-9901:+'

1'10'",'

(1::l24 ..'

IZ1 ~::: ;~~~ ?'

C'

SDSMAC 94712175 *8
DISPATCH MODULE **

IOPTE:L EG!U
8.,.'1'E
B'T'TE
B'T'TE
8'T'TE
E:'T'TE
E:'T'TE
B'T'TE
B'T'TE
E:'T'TE
8'T'TE
8'T'TE
E:',·'TE
8'T'TE
8'T'TE
B'T'TE
8'T'TE
EG!U
OPEN
DATA
(:'ATA
[:'ATA
DATA
EC!U
CLOSE
DATA
DATA
(:'ATA
[:'ATA
CLEC)F
EGlU
DATA
[;.ATA
DATA
[:'ATA
OPNF.:HJ EC!U
(:·ATA
DATA
DATA
DATA
CL.UNL
EG!U
DATA
DATA
DATA
D_ATA
FSF'ACE EG!U
(:'ATA
DATA
DATA
OATA
BSPACE EG!l!
[;.ATA
OATA

$
*F.:2
$
OPEN-IOPTE:L
CLOSE-IOPTE:L
CLEOF-IOPT8L
OPNF.:El,J- IOPTBL
CL..UNL-IOPT8L

KEVED 8Y lOOP CODE
ti0: OPEN
~31.: CLOSE
02: CLOSE EOF
03: OPEN REWIND
04: CLOSE UNLOAD

~3

FSPACE-IOPTBL
BSPACE-IOPTE:L
0
F.:ASC I I - I OPTE:L
F.:(:' I F.:CT - I OPTE:L
l·JASC I I - IOPTBL
~'JD I F::CT - IOPTBL
l,JEOF - I OPTE:L
F.:nJ I ND- I OPTE:L
UNLOAD-IOPTE:L
$

06:
~37:

FORWARD SPACE
BACK SPACE

~~19:

REA(:' ASC I I
0H3: F::EA[;. [) I F:ECT
, 1.1: l,JF:: I TE ASC I I
1.2: WRITE DIRECT
1.3::
WRITE END-~F-FILE
14:
RE~HNC'
1.5: UNLOAD

~:::1

C:30PEN
PTOPEN
F'F.:OPEN
$
~~1

0
F'TCLOS
F'F.:CLOS
$
~:::1
~:::1

F'TCEOF
PTF:: I LL
$:
(1
~3

F'TOPF:l,J
PF.:OPEN
$
~:::i

(1
PTCLOS
F'F.:CLOS
$
~3

CSFl,JD
0
0
$
(1

CSBACK

$.\4

,J..

w..

,_ WUM¥X4¥&MII.;

,'IF';:': I 0::::

**

0

CI~::?9

O::l..t::A

O~~1~::1~~1

O:~:::::O

~~I~Lt::C

1~10~KI

~j:::::::::J,

121115£

l~i:3::=!2

01.6E'"

121J,6E
0::::::::::4 [11 ~::'1~1
~::i:?::::!5 ~:::11. 72
~~!J::::::6 la:1.74

~::t(1(1~:::t

o:::::::::::~~:

~31.4C

."

~:::1~3(1(1

76 ", F.:ASCI I

()~3:::::7

~:::11.

~30(n:::1

0::91
0:::::92

~~~(1(1~J

~:::1:1 ~:'C

F.:DIF.:CT

~:::1~~~~:::1121

1;33:::::::: 121:1'?6
~;;~~::::::9 ~:::1:1. 7::::
O::9~~1 0:1?FJ

(~~JI)~:::1

~H72'"
~:::1:1

'?E ",

O:1.'?E ~;~(1~)~J
13:1.,:::::0 (10~::1I2t
I2G9L~; OJ.::::: 2 O~J~:::1~::1
O::~:96 (::1J.:::::4 0:17'A'"
0:?97
0:1:=:6'"
(1:~:9::::: ~:;:I:1. ::::: t:: 1:'::1(1~3~:::1
03:::,9 01:::::::::: ~:::1~)~3~:::1

~·~D I

F.:CT

I~C9:::::

~~13:94

040~:::1

~H:::::A

,,,,

l·~ASC I

I

~3(112t~3

,,'
041~~;;::
1:'::1:1::::E'" l·JEOF
0403: 0:1::::E 001210
0404 (1::1..9(1 00(1(1
I~:r 4 121 ~::i 0192 (:~O~::r~~1
0406 0:194 ~30~:::1~J
1;::11::;:~6 ",
O·::j,~37
F::El·J I NO
(14~::1:::: ~:::1~L96 (H:;:I (I (1
(i40::'.; ~::rl,9::::: ~:::1~:::1(11;::1
041.0 (1:1.9A (1(1~::r0
fl4J,l OJ.9C 1~'(1(10
!?14:1.~::
(119E'" UNLOAD
04:13 OJ,9E ~X1(H3
0.:LL4 O:1.F!~~1 ~~IOO~::1
04j.. 5 0:1.A;2 l~h~H)0
~:J4:J..6 O:1.A4 (:~O00
04:1..?
'>'JIJ I:::: F.: F;:C)PS

04, OJ, O:l:::::C

C

1.2: 1.4 : 1.(1 TUESr:'A'T'..
94:::939-99(11.*

SOSt'lAC 94707!:i :+:E:

NEW 1/0 DISPATCH MODULE

~:::1::U::4

**

r)ATA
DATA
E'·... EN
EG!U
DATA
DATA
DATA
[:'ATA
EOU
DATA
[;tATA
DATA
DATA
EG!U
C'ATA
DATA
[:tATA
DATA
EG!U
C'ATA
DArA
C'ATA
[:tATA
EG!U
DATA
DATA
[;tATA
DATA
EG!U
DATA
DATA
DATA
DATA
EG!U
DATA
DATA
CIATA
DATA
ENC'

SEP 1217..

1.976.
PAGE

12I~31.2

~:::1

(1
$
~3

~3

PTRILL
PFi:[) I F.:T
$

LGRASC
CSRASC
PTRILL
PF~C'ASC

$

121
(1
PTCHRT
PTFi:ILL
$

Lmo.lASC
CS~·~ASC

PTHASC
PTRILL
$

(1
CSlo.lEOF
F'HJEOF
(1

$
~:::1

CSF.:l·JND
(1
121

$
(1

C::;UNLD
~)

~3

o
#4

.t4 -T·I.,W.".

, A" 4 $A4" ",MUHMU,$,A.M4J4%;:;;;;lI#

/"IP::< I OS

Sl)SI';lAC
"... ~=tLUE

LAE:EL
::j;:

P

~:;. .:.l'? ~21'?5

DEFN

:+:8

1!.~091

O:1.A6

~~12(($

0
A
ACL

(1296
12136:1.
0407
0:1.59
E

0048

AI
8FA[)[:OF~

la~3~34

0238

BFL.NTH

(1~.:m6

"~1239

8L

~)2:::5

8U,.lP
8::':;PACE R
B"r'TE

~)320

(3:1.66

e:2~76

0:1.:1.8
€U31
1!.~259

C:COUNT
C:()NDT
D
CDNDT;2 F.:
C[:tNDT8 R
CHF:i'10Ct

0(10:3

~~124~~1

~~~03~E

0:1.53

~X142

~~1:1.55

~~n366
0~::11::m

0:1.74
(1;;::44

[",

00::;:(1

~3~:;:22

C

CLDT
(:L [:'T 9(3
CL..EOF
CLO:::'£

F:''.
F.:
F.:

~3~392

12122:=:

03:38
0164
(12:98
121077
0:1.65
0:1.57
~3:1.98

(:I

0078
(1225

~3j"46

0:;~56

~::.'(332

~3:1.3:E

(13:5:1.

F.:

0:1.56

0366

0J31
(1202
03:34

Ci"'/DI"lSK [)
(::5
Ct
CSE:ACK E
C:;FL,m
E
CSOPEN E
CSRASC E
CSRL·./ND E

';:'~096

t.3248

0~379

~30~~1:1.

0100
0(155
0(153:
0056
01Z157
12105:::

121085
037:::
03:73
(1348
fr3:89
0409
04:1.4

~~11359

o-:·qq

(1060

~!t404

CLF.~

CU.Jr·JL

~3~354

C5UNL[:' E
CSL·JASC E
CS~'JECIF E
1)~1TA

0265
~!t363

(1374
fG86
((I98
~3409
(1~35~~1

~3265

0(149

1Z127(1
q::l. 56
0(177
0(185
0:125

[:t

0~~17F

0(19:::

Fi:

130(1(1

D··.·IN[:r~.·IT R
I)"/N/.JNT F.:
EFI"lASK D

~3(112

0091.
0:106

0~3:18

~:1:1:14

(u395

~!t24 '('

['lWI

O[:r . . ~JAI·.1E
END

0:1.14
121228
12131211
121371

121:1.22
121255
12131215
0376

0310

0317

0304

121328

0:1.28
121264
121327
121382

PAGE 012113
~!t:1.53

121266
121329
0387

121155
0269
121346
121392

121174
12127:1.
121351
121397

121194
121278
121356
12141212

1211.15
0126
121256
121335
121344

121116
121129
121257
121336
121345

1211:1.7
121:1.3:121
0258
0337

1213:4=3

13349

(13:59

0::::~60

(13513
0362

0325
0326
0108
0:1.19
121:1.32
0330
0339
0:1.66

0:1.09
0:1.2121
121246
0331

1211.10
0123
121247

0332

121:1.11
01.24
0248
13333

0:2~4e

0341

121342

12111.2
121:1.25
121249
0334
0343

0:1.67

0169

0224
(1285

0290

121292

0294

0302

0109

01:1.0

~3:1.24

0:1.25

€1267
0353
03:64
0375
03:88
121399
1214:1.0
0267

026:::
0354
121365
1213:77
121389

121:1.68

0298

"'::'-'-'

(13:52

DC733:1. £
[:tCTT'T'T E
[:IEe:
(:rEF

0:1.(16
121222
121299
0366
121412
016(1

**

1976.

~2(n7
~):1.07

C8

948939-9901

SEP 1217~

0::::~20

0:1.6:1.
0300

8

:1.2::1.4:1121 TUESJ)AY~

F:EFEF.:ENCES

027~)

~~1272

0355

~3357

~!t367

~!t36:::

~.33:78

121379

(1347
121358
(1369
0380

(13:7~!t

0372

~33:73

(1383

fC:85
121396
(1408

1Z13:9~~1

~3j:9:1.

~!t3:93

~!t394

(13:84
1Z13:95

040~3

04~)1

04~!t3

134134

~34135

~3406

134:1.1
0268

0413

1214:1.4

~!t415

04:1.6

0079
0:1.23:
0:126

0(180
0123:
0:126

(1081
0123
(1:126

0E:182
1Z1124
0223

0083
13:1.24

..3272
0(178
(1:1.08
0:126

~~1084

0085
0:125

0:125

02~0

~!t:16:1.

0:172
121:17:1
(10::::0
04:1.7

0297

."

.

.1

t'IP:':: I 0:::;
L.AE:EL.

',.,'ALUE

EOF·L(3
EG!U

0

121121~::IE

:12: 14: 1(1 TUESDAY.,
SDSl'lAC 947(175 *8
F::EFERENCES
[:'EFN

948939-9901

~3346
~3392

C

.

E:115E

~~G71

~'K106

0275

I;'K1A6

~127E:

~::n3E2

00E4
121:1.::'24

0299
030:t
..::1327

lOOP

~~~~)~:::1el

~323:4

ICIPTBL. F.:

~31.26

0329

JEG!
.JHE
.JLE
JL.T
,:rNE
LB'T'TE

0134
((n6
0294
00€14
(1279
0081

PAGE ee14

**

e(132
0041
121100
121153
121236
121255
121296
121361
121407

0033
0042
011211
e155
0237
0264
121299
0366
0412

121034
0043
12111212
121174
0238
0266
121301
121371

121035
121044
01e3
121194
121239
121269
12131215
0376

12112136
121087
e1e6
12121213
12124121
121271
121327
121382

121037
121089
e114
0222
0242
121274
121329
121387

12133121
121341
121313

121331
121342
121319

121332
121343

121333
121344

121334

121336

0337

121169

0291

121295

121123

0124

121196
0323

~:::128:1.

~33:1218

12I::::~:1.1.

0315

~:::13::t8

(12~3121

028121
121324
1212121:1.

121226

0227

121283

028::::

~:::GI2I6

0257

0258

121259

~3:(~36

~33:11

(11211213

12112125

(11.36

e176

1212(15

121230

0277

01Z130
121039
121098
e128
121234
121244
121276
121351·
121397
e26E:1

ee31
012140
012199
121135
0235
121251
121278
0::::~56

12141212
121381

~3295

0291
121313
0288
121 3::l:. 2
1213:3:9
0197
121199

IZG19
031.8
~334121

121293
121225

12I~45

E:1::::~€G

E:1157
121165
E:11. ~:::1 ~~I

..J '. _._. E
U-'PA'::"-'
Lm,JASC E
L1
LL;;~
r:<:
U.4
F.:

00[:'::::
el(1EC

[:,

(~eeI0

LUNO'.... T r:<:
U.JNO
LUNUNT F.''.
1·'10 ...·•

(u31E
IZn31211
0(12E

LOG

1976.

0243:
(1029
(n:::G8
0091
0122
0228
0243
0275

EVEN
FSPAC:E r:<:
FSPCOD
101"
INCT
[:.
10
I O(1~U::1
F:~
I () ~:::1 ~~: ~J
F.''.
I 0(1~51~1 P

SEP e71

~'U35

1~1223

005:t
12112152

0::::(::::8
~:::139E:

~):1.54

0296
0305
(u399
~:::1122

0303
121(185
(120121

~:::1235

~1283:

0201
121158
J.~132:1

foI>:: lOOP
I",ID'",'T'T'P
NUN[:'EV
NUNLUN
OCTCF.:U
OCTDT F.:
f';:
OPEN
OPNr:<:E~'.1 P
PI=tGE
PF.:CL.OS E
PRDASC E
PF.:DIPT E
PF.:OPEN E
PTCEOF E
Q'Tr:l'-lc
.
- .1..-, E
.. F'TI) I F.:T E
F'TOPEN E
F'TOPF~~'J E
PTP
D

~3~3€1F

e0e5
1;::1(11;::16

(1276

€1:t 71
e312
03e2
(11.54
121198

(1(1I;::1E:1
~3e9E:

~:::1255

~:::1256

(1:136

~3346

~33::~(1

~31.4E

(13:61.

(f3:33
(11211212
03:55

~:::11Z169

~::1~3~:::12

~3H:::17

1Z1226
0·-'·
... ...,
.:::..:::.r
016:::.t
1!:(]:22
1211.72

(1e8~;:O

1;::11.1213
1;::112189
e251

ee1~3

121223

0293

0128

t'10',/8

121167

~:::1224

~~1323:

~3J:7e

0~371

~3:~91

(n370

03::36

~3~:::16E:

(13:5(1
(13:59
1Z13:54
03:95
(13:49
03:64

e365

121(163:
0062
0(165
121(161.
0064
~:::1101

~3~385

(111:1

~33:69

tJ

It

.

j

4" ...... Q

1444 ..#", "",'1 .

·.

_
1"1F';:':: I O~:::;
L.1=tE:EL

0

["'"I
PTP
F'TPILL. E
P'HJASC E
F'TI.oJEOF E

(1 (1 (f3:

F';:0

(1~3~3e

~]e29

FU.

~::.1t3(11

F.:H~

")(11~1A

1211213121
1211213:9

F.: 1:1.
FU2

el2l~'3C

F.:~tJ:

(1121:35

f1(17~~

~Z1::::~6~Z1

I2n]66
12112167

(14121~3

121121 f'l D
121121121£
~'3~::H3F

~312144

(H~1(12

RJ:

121121(13

1211213:1
1211213:2

fN

e~Z1e4

~:::1e3:3:

f=;~~;

~3(1(15

F.:6
F.:7
p'::'
",I_'
R9

(1(1I:~16

121(13:4
13(13:5
131336
1312137
1312138

F.:ASCI I R
F.:DACOD
F.:[:. I RCT F.''.
F.:EF

~:::t176

~3:::~:37

~3121€19

121274
€13:82

e~:::1e7

~~~3~::1:3
~~~:::11219

F.:E/.o.IIND R
F.: F.:
E
F:T
SETLUN [:.

(116E

~3196

REFEF.:ENCES

~3:1(12

1211214(1
12112141
12112142
12112143:

~Z1eeB

F.::1,::j.
Fd.5
F.:2

C

(:OEH~

1214~Z17

121073

(141215
(115:3
121163:
121:163:
121279
12128121
e:1323

12128121
(1281
13315
~33:1218
~3:::'~12I6

1211:35
121171
12I1!34'
(1223
12133:3
13292

121194

50CB
5F.:L
::::'T'SFLG

(1121(12

(1;;::36

121:1.6121
121166
121196
0283:

121161
121168
121198
121284

0164
1213:24
1212121121
1213:2:1

121166
1213:25
12121211

121224

1213:121121
121282
1213:16
133:13:3
(13:1217

1213:1214
121283:
1213:17
133:1121
1213:113
121288
121227
12115:3
10286

1213:2:3
121288

121297

1212:38

1213:21

1213:12
13311
121289
121287
121:.1..59
1212:3121

1213:14
1213:11
121292
12131218
121:.1..6121
1213:1216

1213:17
121322
13294

12112151
12112160
12112169

1312152

~Z112158

13121513
1211215:3

~312166

12112167

~3068

0204

121229

~~1;~E:2

~·JEOF

~~271.

~1:1E:6

121397
1213:92
04E:12

~3:t:3E

121171
1213:15

121:.1..72
0322

121172
1213:23

1212121121

012154
12112163
012172

12112155
0064

12112156
12112165

1211217121

1211353
0062
12112171

~312161

133:.1..4

13(194

(11395

131396

~312197

~~1242

121249
0246
1214:.1..2
12'23:,("
121266
(1;264
(1269

e~:::1A4
~::117E

1213:12

~33:e7

0282

~3eA;;'~

1213:1212

13289

131384
12112183
1213:45

1~1(19E

121324

121287

131393

1211219(:

1213:18

(1286
13297

€128;2

R
R
F.:
R
F.:
R
F.:

1213:18

1213:16
12119:3

(11392
(1(1(11
[:.
F.:

0227

~3~382

~5ZC:8

(1 121 I2IF
(11397
1312194
e19E
I2IEKf3:

121226

~3326

TE:',::T
TITL
UE
UEFr'15K
UEI'1ASI<
UNLOA[:'
USEFL.Ci
UTC5T
UTLOG
UTPTP
UTPTR
~·JASCI I
1.·Jr.;. I F:: Cf

[:.

-----~---

0:168

1213:44

~3:.1..:35

(12(13:

121159
121164
121196
1212:::1

1211214:3

1213121:3
(119';:1212::37
121284

12I(1'(,E

12141211

e~Z148

~::;LA

F.''.

1213:96

02~32

-- --_._.'

PAGE 12112115

**

(13:9121

12121211
121156
121226

..

1:376.

(1112
la3:85

12112157

~:::;ETO

SU..JN9~'3

948939-9901

~

~334121

121175
~312168

SEP 1217,

12:14:1121 TI)ES[:OAY ..

:5 L)S 1"1 AC ::.a4·7075 *E:

l·lALUE

...

€1~:57

€1256
~325:=:

121259
12134:.1..
13342
1213:43:

0
P .. -

$

. _

d.

4.. Q.

. & .

~.312173:

•

IA[
APPLICATION
NEXT ASSV

.

o

L'nt

USEDDN

REVISIONS
A~

DATW:

IXIIC"-' ION

7506

·
·

·

NOTE:SOURCE AND OBJECT ON
DISC IN SDP 948931.

.

~

d

REV
SHEET

lA

REV STATUS
OF SHEETS

REV
SHEET

UNL~SS OTH~_ISI! .~I!CI~IEO

OlM~NSIONS

TOL~ItANC~S
ANQLES ~I'

I
2

OWN

AItE IN INCMES

3e.!j!77

D.TURNER

~

~ TEXASINcn"
INSTRUMENTS
..O",,'f:D

C ....

~LACI OICIMAL~.OIO

~LACI

Ot:CIMAL:!:.02

IDINTI""INQ NUM . . . .
SMOWN IN ~AItENTME.~S
ONLY

~Olt "E~~ItI!NCE

INTI!It~It~T DWQ IN
ACCOItDANCE WITH
MIL·STD·l00

0

E~.

QV~.H

OM_.

r __

I(-Il

• "" Ji .~ ) ••0-11

AL, TTYPT, PAPER TAPE DSR-PXR990

.

31t+J17

CeNTA I'0IO

SIZE

CODE !DENT NO

DESIGN ACTIVITY ItELEASE

A

96214
1 REV

L,.t2.~
y.-••••. c

&w.c~}

Ifill"""" G,...

R.. AI?'.t?4-.k ~ - ( 4 - i

7

8CALE

•

Dl'AWINGNO

948941-9901
SHEET
1 of 18

TTYPT
SDSMAC 947075 *D
**PAPER TAPE SER. ROUTINE**

13:15:10 FRIDAY, FEB 18, 1977.
948941-9901 **

PAGE 0001A

o

c:

o
k i

i#. JI.

U.UU..Q%.t.L.2;,

.sa

«#AU

i. A

TTYPT
SDSMAC 94712175 *D
**PAPER TAPE SER. ROUTINE**
0004
0005
€101Z16
0007
0008
0009
e010
0011
0012
0~)1.3:

0014
0015
~3016

0017
0018
0019
0020
0~)21

0022
0023:
0024
0025
012126
1ZI€127
1ZI~328

c

012129
01213:0
12103:1
~)1ZI3:2

1211213:3:

IDT

*'
* TITLE:
*
*
*' ORIGINAL

*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'
*'

13: 15: 1121 FRIDA'T'I FEB :1.81 :1.977.
94894:1. -99121:1. **

PAGE 001212

"TTYPT"
TT',.'PTU
DEVICE SERVICE ROUTINE - ASR 33 TTY AS PAPER
TAPE UNIT
9 ...'5("76

REVISION:
CDI"1PUTER : 99121
ABSTRACT:
A GROUPING OF SUBROUTINES WHICH CONSTITUE
A ASR 33 TTY PAPER TAPE DEVICE SERVICE
ROUTINE.
TABLE OF CONTENTS
:1.. SUBROUTINES PUNCH
A. OPEN (PTOPEN)
B. CLOSE (PTCLOS)
C. CLOSE EOF (PTCEOF)
D. OPEN REWIND (PTOPRW)
E. CLOSE UNLOAD (PTCLOS)
F. WRITE ASCII (PTASC)
G. l.JRITE DIRECT (PTrJIRT)
H. WRITE EOF (PTWEOF)
2. SUBROUNTINE READER
A. OPEN (PROPEN)
B. CLOSE (PRCLOS)
C. OPEN REWIND (PROPEN)
D. CLOSE UNLOAD (PRCLOS)
E. READ ASCII (PTRASC)
F. READ DIRECT (RDIRCT)

0.·.··

.

.

,

.. \fL,;n;,

L ,;$AI

44

4It. .3L4I. " ,AU

&,w,*,p;a;Jd£

"M

tt

TTYPT
SDSMAC 947e75 *D
**PAPER TAPE SER. ROUTINE**

0

0035
0036
0037
01338
0039
00413
004~

13042
e043
0044
131345
131346
0047
13048
ee49
e050
e05~

13052
13053
13054
13055
13056
0057
0058
0059
0060
0e6~

C'

0062
0063
0064
0065
121066
0067
012168
0069
0070
007~

*
*
*
e0e0 lOOP
1313131 LUNO
eee2 SYSFLG
0003 USEFLG
eee4' BFADDR
0006 BFLNTH
00ea CCOUNT
*
eeeF
eeeD
eeec

*
*UE

~3:15:1e

**

PAGE 9003

PRB EQUATES DISPLACEMENTS
EQU
EQU
EQU
EQU
EQU
EQU
EQU

0

lOOP CODE
LOGICAL UNIT NUMBER
SYSTEM FLAGS
USER FLAGS
BUFFER ADDRESS
BUFFER LENGTH
CHARACTER COUNT

~

2
3
4
6
8

FLAG SHIFT COUNTS

EQU
CHRMOD EQU
NWFLG EQU

UNRECOVERABLE ERROR
CHARACTER MODE
NO WAIT FLAG

~6-1

1.6-3
1.6-4

*
*
*

REFERENCES

*
*

DEFINITIONS

*

FRIDAYI FEB 181 1977.
94S~41-9901

REI=' UEMASK
REF ,EFMASK

DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF
DEF

UNRECOVERABLE ERROR

DCTTYT
PTOPEN
PTCLOS
PTCEOF
PTOPRW
PTDIRT
PTWASC
PTWEOF
PROPEN
PRCLOS
PRDIRT
PRDASC
PTRILL

o
.

$.

oz..

$.

_m&i_,

42

¥¥

H1

it

TTYPT
SDSt'1AC 94712175 *D
**PAPER TAPE SER. ROUTINE**

o

C!

01373
1211374
12112175
12112176
1211377
1211378
1211079
1010810
1012181
1012182
1211383
12112184
12112185
12112186
12112187
12112188
12112189
1211219121
1211219:1
1211092
12112193
12112194
12112195
12112196
12112197
1012198
1211099
121:1121121

eeeA
l2IeeB
l2Ieec
I2Il21eD

131211313
1313101
121101212
eee3
0004
0121135
0121136
012107
12112108
1210109
e00A
0el2lB
eeec
eeeD
eeeE
e0eF

:i:~

1211133
121:1134
131135
13:1136
13:1137
121:1138
1211.1219
121:1:1121
121:1:1:1
121112
13:113
121:114
13:115
1211.:16
121117
121:118
121:1:19
121:1213
121121.
131.22
121:123
13124
121:125
121:126
131.27
121128
... 121129
12113121
13131
121132

O

**

121121121121
12112111
12101.2
13013
1312114
12112117
1313139
0e0C
13007
013138
eeeD
eel2lA
131212121
l2Ie7F
1211121121

1313121121
131313:1
121131212
1211211214
13121136
13131218
el2ll2lA
eeec
l2IeeE
121121:1121
1211312
101014

12113
1.3
eDeA
:131313
12113121121
1313
:14121121
1212113
1:112113.
13121121
17121121
121710121

*RTS

1.3: 1.5: 1.13 FRIDAYI FEB 1.81 1.977.
948941.-99131. **

CRU INTERFACE DEFINITIONS
REQUEST TO SEND
WRITE REQUEST
READ REQUEST
NEW STATUS FLAG

WRQ
RRQ
NSF

EQU
EQU
EQU
EQU

**

WORKSPACE REGISTER DEFINITIONS

*
Re
R1.
R2
R3
R4
R5
R6
R7
R8
R9
R1.e
R11
R1.2
R1l
R:14
R:15

EQU 13
EQU 1.
EQU 2
EQU 3
EQU 4
EQU 5
EQU 6
EQU 7
EQU 8
EQU 9
EQU . 113
EQU 1.:1
EQU 1.2
EQU 1l
EQU:14
EQU:15

*
**
*
ZERO

PROGRAM EQUATES

:>A
>B
:>C
:>D

NULL VALUE
READER-ON
PUNCH-ON
READER-OFF
PUNCH-OFF
CR REPLACEMENT CHAR. (CR TO ET
HT VALUE
FORM FEED VALUE
BELL VALUE
BACKSPACE VALUE
CARRIAGE RETURN VALUE
LINE FEED VALUE
SPACE VALUE
BELETE VALUE
LEFT BYTE POS. VALUE

DC:1
DC2
DCl
DC4
ETB
HT
FF
BEL
BS
CR
LF
SP
DEL
LBYTE

EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU
EQU

**

INFORMATION DATA

*

PAGE 13004

BYTE
EOF
BYTE
EOR
. DATA
DATA
DATA
BYTE
EOR:1
DATA
EOR3
DATA
DC:1VAL DATA
DC3VAL DATA
ETBVAL DATA
BEL VAL DATA

121
:>1.:1
:>1.2
>1.l
:>:14
:>:17
9
12
7
8

:>1210
:>eA
:>213
:>7F
:>1.1313

ZERO
DC3
CR*LBYTE+LF
DCl*LBYTE+ZERO
ZERO*LBYTE+ZERO
ZERO
DC4*LBYTE+ZERO
DC2*LBYTE+ZERO
DC1*LBYTE
DC3*LBYTE
ETB*LBYTE
BEL*LBYTE
WE

. At.

FILLER
E-O-F VALUES
E-O-R VALUE

DC1
DC3
ETB
BEL

LEFT
LEFT
LEFT
LEFT
Q, Q"

BYTE
BYTE
BYTE
BYTE
_"

4.-

sa

IL~.gk. ¢.j,,,A,,,ji,.Jij,.,,

TTYPT
SDSMAC 9471375 *0
**PAPER TAPE SER. ROUTINE**

Oi

1313:3
1313:4
13:135

1301313 CRVAL
2131313 ASCLOW
7F13e ASCHIG
e~3:6
02 ERILOP
e~3:7 ee~[.,
05 ERWRFG
013:8 ee1E 1301313 WRTFLG
13~3:9 131320 13131313
REDFLG
e~4~1 131322
e14~ 13022 0~120
DCTT'r'T
ee~6
ee~,8
e~1~A
ee~c

DATA
DATA
[)ATA
BYTE
BYTE
DATA
LJATA
EVEN
DATA

~3:~5:~e

FRIDAY. FEB
94894~-9ge~

CR*LBYTE
SP*LBYTE
DEL*LBYTE
2
5
13
13
:>20

~81

~977.

**

PAGE 1313135

CR LEFT BYTE
LEGAL LOW ASCII VALUE
LEGAL HIGH ASCII VALUE+1
ILLEGAL OP CODE
DEVICE NOT OPEN

CRU BASE ADDR TTY

c'

o
i4UM 4 M4,...

.t ¥A$41 .

44#$ .""

,,,,t.)', J,g 3.. .. " .. _ 1444

t . .aM, ,.,.4!U h,AT4':;;?;;;::?)

,

1.,4,

TTYPT
SDSMAC 9471375 *0
**PAPER TAPE SER. ROUTINE"''''

o

0143:
0144
13145
13146
13147
13148
~:::1149

131513
13151
13152
0153
121154
1312124'
13155 131324 C1eB
13156 1211326 1217613
1312128 e131E "
~3157 ee2A 166A
1315:3 121e2C ~35Ae
~3e2E ee1E'13159 ee::::~e e6A13
131332 13244'
131613 012134 121454
121161
121162
1312136'
121163 12112136 ce8B
121164 12112138 1216AI2I
~31213A 12112124'
0165 el2l3C 1216A13
~3e3E 12123121'
:~~; 13134121 121452
13168
13169
131713
13171
121172
13173
13174
13175
12112142-0176
0177 ~3e42 ce8B
13178 131344 134E13
131346 ee1E'"
13179 131348 121452
1211813
121134A'"
121181 ee4A C1eB
13182 13e4C ce8B
13183 ee4E 137613
e~35e ee1E'
13184 1211352 1356
13185 131354 e6Ae
e~356 eeEE"
13186 e~358 e4Ee
e~35A ~31211E "
13187 ee5C e6Ae
13e5E 132313'
C:>e188 1313613 13454

C

:+:
:+:

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

13:15:113 FRIDAY. FEB 18. 1977.
948941-99131 **

PAGE 013136

OPEN PAPER TAPE PUNCH
(1) NAME: PTOPEN; SETS WRITE FLAG
CALL: BELOUT
(2) NAME: PTOPRW; SETS WRITE FLAG AND PUNCHES
S0 BLANK FRAMES
CALLS: PTOPEN AND PUNCS0

PTOPEN EQU
MO . . .
ABS

R1.1,R4
@WRTFLG

SAVE RETURN
IS DEVICE ALREADY OPEN?

JNE
INC

OPEERR
@J.oJRTFLG

YES. IN USE
SET WRITE FLAG

BL

@BELOUT

OUTPUT TWO BELLS

B
...
PTOPRW EQU

RETURN
$

SA ..... E RETURN

BL

R1.1.,R2
@PTOPEN

BL

@PUNC80

PUNCH 80 BLANK FRAt'1ES

B

*R2

RETURN

t10 .....

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

$

CLOSE PAPER TAPE PUNCH
(1.) NAME: PTCLOS; RESETS WRITE FLAG

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

(2) NAME: PTCEOF; RESETS WRITE FLAG, PUNCHES EO
AND 813 BLANK FRAMES
CALLS: PUNC8e AND PUNEOF

PTCLOS EQU
MO . . .
CLR
B

$

R1.1..R2
@WRTFLG

SA . . . E RETURN
RESET J.oJR I TE FLAG

*R2

RETURN

PTCEOF EQU
MO'...'
MO .....
ABS

R1.1.,R4
R1.1. .. R2
I:!tWRTFLG

JEQ
BL

OPEERR
@pnJEOF

CLR

@WRTFLG

RESET

BL

@PUNC8e

PUNCH 813 BLANK FRAMES

B

"'R4

RETURN

$

SA . . . E RETURN
SA . . . E RETURN FOR ERR
FLAG SET?

4WP,,~

,

~·lR

$. •.• .41,,44.4_-'4.[ U

I TE FLAG

44." @t)Q.!¥4.24 ..M-.,

"-,'~'

#i nXstJ4&w'l4JAt.L.4._ ..P

13:15:10 FRIDAY, FEB lS, 1977.
948941-9901 **

TTYPT
SDSMAC 947075 *D
**PAPER TAPE SER. ROUTINE**
0191
0192
0193
0194
0195
0196
0197
0198

~)1.99
02~~10

02~~11.

0062
0064
~~1066

0(168

c

WRITE ASCII
**
NAt1E: PTWASC; TH I S ROUT I NE GETS A CHAR. FROM
*
USER ,. S BUFFER AND PUNCHES RESULT
*
ON TAPE TERMINATES IF THE USER'S
*
IS EMPTy'.
*
ERRORS: IF DEVICE IS NOT OPEN
*
*
0062' PTWASC EG!U $
C08B
SAVE RETURN
MOV R11.. R2
CLEAR OFF SET
04C8
CLR R8
IS DEVICE OPEN?
(176121
ABS @WRTFLG
001E'
JEQ OPEERR
NO, RETURN
13:4A
R8,@CCOUNT(R10)
BUFFER EMPTY?
8AS8 NXTCHR C

0202 ~:::n)6A
02(13 006C
006E 0~)08
JEQ
~)204 0070 1318
(1072 06AI2I
BL
(1074 (127~)···
02(16 ~3076 0249
ANDI
~)078 7F00
(12(17 007A 02:39
CI
(107C 0000
~:::1208 0~)7E 1603
JNE
02(19 008121 0260
t10VB
0082 0012·'
021.0 0(184 1.(1(13
~Tt1P
~)21.1. 0086 06A~)
LEGCHK BL
0088 01.F0·'
021.2 (108A 1.002
Jt'1P
021.3 008C 06A0 ASCPUN BL
008E 0286 ,.
021.4 (1090 121588 NE)< I t~C INC
~)21.5 0092 0289
CI
~)094

€1222
~3223

o

(1224 0(1A2
0121A4
121225 (1(1A6
00A8
0226 00AA
0227 I2II21AC
0(1RE
0228 012180
(1229 0082
~3230 0(184

EOREXT
@GETCHR

RETURN
GET NEXT CHAR.

R9.DEL*LBYTE

NO PARITY. JUST CHAR.

R9.CR*LBYTE

IS IT CR?

LEGCHK
@ETBVAL. R9

NO. IS VALUE LEGAL?
CR TO ETB

ASCPUN
@LEGCHR

DEPOSIT RESULTS
IS CHAR LEGAL?

NEX I HC

@PU~OUT

OFF SET INCREASE (ERR RT)
PUNCH ONE CHAR. (GOOD RT)

R8
R9,DC4*LBYTE

INCREASE OFF SET
IS IT PUNCH-OFF?

JNE
LI

N:X:TCHR
R9,DC2*LBYTE

NO. NE~-':T CHAR
YES. PUNCH-ON CHAR

BL

@PUNOUT

TURN PUNCH BACK ON

1.4~)0

021.6 0(196 1.6EA
(121. 7 0098 0209
009A 1.20~)
(121.8 009C 06A(1
0~)9E 0286'"
021.9 ~)0A0 1.0E5
0220
022:1

PAGE 121007

cornINuE

*
*
*
EOREXT

WRITE END OF RECORD OR END OF FILE

0121A2'
EQU
0208
LI
12112107
021217
LI
12112102'
D277 EOROUT MOV8
1216 A121
8L
121286'
061218
DEC
16F8
JNE
121452
8

$

R8.7

NUt1B.

CHAR.

TO 8E PUNCHED

R7 .. EOR

CHAR.

ADDR.

TO PUNCH

*R7+.R9
@PUNOUT

CHAR. VALUE TO PUNCH
PUNCH CHAR.

R8
EOROUT
*R2

DONE?
NO. CONTINUE
RETURN

4# ,""

; ~

.. PM#

$ AQ44444kA

,w

a,,"

_14"

j

WM4Sil-'iI"Ji#J+9 11i@

,$

444

UU4¢4..iJ

,u..r

TTYPT
SDSMAC 947075 >\\<>\\<>\<

o

0233
023:4
0235
0236
0237

c

0238
0239
0240
00B6~
024:1. 00B6 04C8
0242 0088 C08B
0243 008A 0760
~Z10BC 00:1.E·~)244 008E :1.320
0245 ~)0C0 8A88
00C2 0008
0246 00C4 :1.30F
0247 00C6 06A0
00C8 0270~
0248 00CA 0249
00CC FF00
0249 00CE 06A0
00D~3 0286 "
0250 0';::1D2 0289
00D4 :1.400
025:1. 00D6 :1.604
0252 00D8 0209
00DA :1.200
0253 00£)C 06R0
00DE 0286~
0254 0~3E';::1 0588
0255 O';::1E2 :1.0EE
0256 ~30E4 0208
00E6 0004
~3257 00E8 0207
00EA 0004~
(1258 00EC :1.~)DE
0259

0260
~326:1.

>\<
>\<
>\<
>\<
>\<
>\<
>\<

:1.3::1.5::1.0 FRIDAY. FEB 18. 1977.
948941-990:1. **

PAGE 001218

I.-JRITE DIRECT
t-~AME: WD I RCT i TH I S ROUT I NE I.-JR I TES THE SPEC I F I ED
OF CHARS. AND TERMINATES WHEN
CHAR. COUNT IS DONE. CHECKS
WRITE FLAG.
CALLS: WE OF

*

>I<

PTDIRT EQU
CLR
MOV
ABS

R8
R:1.:1..R2
@WRTFLG

CLEAR OFF SET
SAVE RETURN
WRITE FLAG SET?

.JEQ
I.-JDRLOP C

OPE ERR
R8.@CCOUNT(R:1.e)

NO. DEVICE NOT OPEN
OUTPUT DONE?

WDREND
@GETCHR

GO TO EOF SET UP
GET CHAR.

JEQ
BL

$

ANDI R9.:>FFe0

JUST CHAR.

BL

PUNCH CHAR.

@PUNOUT

CI

PUt-~CH

.JNE
LI

r;:~9.

t-.lOT[)C4
DC2>1\<
:.j.c

>\<

>I<
0262
0263
>\<
0264
>I<
0265
00EE~ PTWEOF
0266 00EE C08B
0267 00F0 0760
00F2 00:1.E~
~3268 0eF 4 :1.305
0269 0eF6 021218
0eF8 012108
0270 e0FA 021217
0eFC 000:1. "
027:1. 00FE :1.0£)5

OFF?

TO PUNCH

WRITE END OF FILE
NAME: PHJEOF.; THIS ROUTINE PUNCHES AN E/O/F
FOR EITHER DIRECT OR ASCII CHECK
SEE IF DEVICE IS OPEN
EQU
MOV
ABS

R:1.:1..R2
@WRTFLG

SAVE RETURN
FLAG SET?

JEQ
LI

OPEERR
R8.8

NO. DEVICE NOT OPEN
PUNCH 8 SEQ. CHAR.

LI

R7.EOF

CHAR.

...Tt-1P

EOROUT

OUTPUT END OF FILE

$

ADDR.

TO PUNCH

o
#$; it 4J , , ,;

4i44Q&" ¥4

W., 4

.X'd

_t, .14:£,,;;;;&4 X.,.W

. A· ,2 $ $

$

.x;d

kim

TTYPT
SDSMAC 94712175 *D
**PAPER TAPE SER. ROUTINE**

c

o

13273
121274
121275
13276
13277 12111313
1311212
12111214
0278 011216
011218
e1eA
0279 01ec
0280 e1eE
0281 0:10E
0110
0112
0282 0:1:14
121116
0:1:18
0283 0:1:1A
13284
0285
0286
121287
0288
0289 e11C
e1:1E
12129121 0120
029:1 0122
0:124
121292 0:126
121293
0294
0295
0296
121297
121298 121128
012A
121299 e12C

1211121121-FAAe
13131313
121131212
DAAe
ee1D-121003
0452
FAA0
131132-13002
DAAe
e0:1C ,.
001213
045B

**
*
OPEERR

13:15:1121 FRIDAYJ FEB 181 1977.
948941-991211**

PAGE 1211211219

ERROR RETURN ROUTINES
EQU $
SOCB @UEMASKI@SYSFLG(R:1e) UNRECOV. ERR
MOVB @ERWRFGI@USEFLG(R1e) DEVICE NOT OPEN

B
*R2
RETURN
PTRILL EVEN
SOCB @UEMASKI@SYSFLG(R1e) UNRECOV. ERR
MOVB @ERILOPJ@USEFLG(R1e) ILLEGAL OP CODE
RETURN

RT

**
OPEN PAPER TAPE READER
*
NAME: PROPEN; THIS ROUTINE SETS READER FLAG
*
e11C·' PROPEN EQU $
12176121
ASS @REDFLG
IS DEVICE ALREADY OPEN?
01212121-'
16EF
JNE OPE ERR
YES 1 IN USE
e5Ae
INC @REDFLG
SET READ FLAG
0020-'
045B
RT
RETURN

*
*
**

CLOSE PAPER TAPE READER
NAME: PRCLOS; THIS ROUTINE RESETS READER FLAG

121:128-' PRCLOS EQU
e4E0
CLR
1211212121-'
e45B
RT

$

@REDFLG

RESET READ FLAG
RETURN

TTYPT
SDSMAC 947075 *0
**PAPER TAPE SER. ROUTINE**

0"/,,'
"

C'
,

.'/

o

1;::1301

03:02
03:~33:

03:e4
03:e5
03:06
e3:07
eGe8
03:e9
012E'"
e3:1e 012E C08B
03:11 e130 04C8
0312 e13:2 e76e
~3134 0e2e--~:n1.::::( 013:6 13E4
e3:14 013:8 C260
013A e0eE'"
e3:15 e13:C e6A0
013:E e286"
0:H6 014e 06A0
01.42 027A'"
03:1.7 e144 0249
€1146 7F00
03:1.8 0148 e289
014A ee0e
0319 014C 13F9
e3:20 014E 0289
01.50 13:00
e3:21 0152 1327
03:22 0154 8A88
~3156 eoe6
03:23: e158 13:18
03:24 e15A e2::::9
015C 0D00
~33:25 e15E 1318
0::::(26 016e e289
0162 17e0
0327 0164 16e3
e328 e166 D260
0168 ee16"
e3:29 016A 1ee3
033:0 e16C 06A0
016E 0:1F0 "
0331. e1.70 1.e09
0332 e172 06A0
01.74 e266"
e33:3 01.76 e289
0178 0010'"
03:34 01.7A 1.604
0335 017C 0209
01.7E 000E'"
03:36 e18e 06A0
0182 e286'"
03:3:7 01.84 0588
0338 0186 0GA0
0188 027A'"
e33:9 01.8A 0249
01.:3C 7F0e
0340 018E 1.0E2
e341. e1.9~3 06AO
~31.92 e22e "

*

*
*
*
*
*
*
*
PRDASC

13:15:10 FRIDAY, FEB 18, 1977.
948941-9901
**

PAGE 0010

READ ASCII
NAME: PTRASC; THIS ROUTINE READS CHAR. FROM THE
TAPE CHECKS FOR LEGAL CHAR. AND TERMINATE
IF USER"'S BUFFER IS FULL OR CR IS
ENCOUNTERED, IGNORES LEADING BLANKS.
ERRORS: IF DEVICE NOT OPEN
EQU
MOV
CLR
ABS

R11.R2
R8
@REDFLG

SAVE RETURN
CLEAR OFF SET
DEVICE OPEN?

JEQ
MOV

OPEERR
DC1VAL,R9

NO, ERR RETURN
TURN ON READER

BL

@PUNOUT

SEND TO TTY

NULOOP BL

@REDCHR

GET CHAR.

AN~I

R9.DEL*LBYTE

REMOVE PAR I T'T'.. JUST CHAR.

CI

R9.ZERO*LBYTE

IS IT NULL?

JEQ
FIRCHR CI

NULOOP
R9.DC3*LBYTE

'T'ES. IGNORE
IS IT END OF FILE?

JEQ
CHRLOP C

FILEND
R8,@BFLNTH(R10)

YES. RETURN
BUFFER FULL?

JEQ
CI

BUFEND
R9,CR*LBYTE

YES. LOOK FOR EOR
IS IT A CR?

.JEQ
CI

8UFEND
R9.ETB*LBYTE

'T'ES. TERM I NATE
IS IT A ETB?

$

JNE CHKLEG
MOVB @CRVAL.R9

NO. IS IT STILL LEGAL?
CHANGE ETB TO CR

JMP
CHKLEG BL

CHRSTR
@LEGCHR

GO TO STORE PROCESS
CHECK FOR LEGAL CHAR.

JMP
CHRSTR BL

OFFINC
@STRCHR

OFF SET INCREASE
STORE RESULTS

CI

R9.DC3VAL

IS IT READER-OFF?

...TNE
LI

OFF INC
R9.DC1VAL

NO. NEXT CHAR
YES. READER-ON VALUE

BL

@PUNOUT

TURN READER BACK ON

R8
@REDCHR

INCREASE OFF SET
GET NE::FFee

CHAR.

CI

R9, ZERO*LB'T'TE

IS IT NULL?

NULLOP
R8,@BFLNTH(R1e)

YES, IGNORE
BUFFER FULL?

JEQ
BL

RDIRDN
@STRCHR

RETURN
STORE CHAR.

CI

R9,DC3VAL

IS IT READER-OFF,

JNE
LI

UPINC
R9,DC1VAL

NO, NEXT CHAR
'T'ES, REA[)ER-ON VALUE

BL

@PUNOUT

TURN READER BACK ON

INC
BL

R8
@REDCHR

INCREASE OFF SET
GET NEXT CHAR.

JEQ
NTDIRC C

UPINC

RD I R[)N

PAGE 0011

+ PAR I TY

ANDI R9,>FF00

CHAR. + PARITY

JMP

CONTINUE
LOOK FOR END-OF-RECORD

~Tt'1P

NTDIRC
BUFEND

o
; M.¥A ,$

$

@.$

,,$.#£

#M~.4"Z#

.. -

$

;gg

a ; , &44 .

$I

. ¢ $Ah$

. ,Uh

#4 $

M

;¥£¥

..""!ac.:iIHr!

TTYPT
SDSMAC 94712175 *D
:+:*PAPER TAPE SER. ROUTINE**

o

~3378

121379

01Fe~

~338e e1FIZt
121381 I2I1F2
e1F4
121382 e1F6
121383 e1F8
e1FA
121384 e1FC
121385 I2I1FE

ceca
121289
egee
1312
121289
ecee
13eF
121289

~321210

~37121e

13:15:1121

FRIDAY~ FEB 18. 1977.
948941-991211 **

PAGE 12112112

:+: CHECKS FOR LEGAL ASCII CHARACTER
LEGCHR EG"~U :$
MOV R11,R3
SAVE RETURN
IS IT HT?
CI
R9,HT*LBYTE
JEQ
CI

LEGEND
R9. FF*LB't'TE

YES, LEGAL CHAR.
IS IT FF?

. TEQ
.
CI

LEGEND
R9,BEL*LBYTE

YES. LEGAL CHAR.
IS IT BEL?

121386 12121212 13121C
JEQ LEGEND
YES. LEGAL CHAR.
121387 12121214 121289
CI
R9,BS*LBYTE
IS IT BS?
12121216 1218121121
0388 12121218 131219
JEQ LEGEND
't'ES. LEGAL CHAR.
121389 e2121A 121289
CI
R9,DC3VAL
DC3 FOR STANDALONE
1212121C el2l1e~
1213ge e2eE 131216
JEQ LEGEND
YES. LEGAL CHAR.
e391 12121121 981219
CB
R9,@ASCLOW
BELOW BOTTOt1 RANGE?
121212 ee18~
NOT LEGAL CHAR
e392 e214 111214
JLT ·LEGBAD
CB
R9,@ASCHIG
12139::::~ e216 981219
ABOVE TOP RANGE?
121218 l2Ie1A~
121394 e21A 14e1
NOT LEGAL CHAR
JHE LEGBAD
121395 e21C e5C3 LEGEND INCT R3
PROPER RETURN
e396 e21E 121453 LEGBAD a
RETURN
*R3
:+:
0397
121398
* LOOKS FOR READER OFF CHARACTER
e399
1214ee
12122121" EORCHF!: EQU :$
e4e1. e22e ceca
MOV R11;R3
SAVE RETURN
12141212 121222 e289 ROFLOP CI
READER OFF?
R9.DC3*LBYTE
121224 13121121
12141213 121226 13e3
JEQ EO REND
YES. QUIT
12141214 121228 1216Ae
BL
@REDCHR
GET NEXT CHAR.
e22A 12127A"
NO. KEEP LOOKING
12141215 12122(: 1121FA
Jt-1P ROFLOP
RETURN
e41216 e22E 121453 EOREND B
:+:R3

o
. .xx

.. 4

h 11.

WA.4lAkW...

dUM,

~

';£_.'.$

>

.,.

Ppu.

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

''''''

.

,

--.

TTYPT
SDSMAC 947075 *D
**PAPER TAPE SER. ROUTINE**

o·

0408
0409
0410
0230'"
0411
0412 0230 C0CB
0413 0232 0208
0234 0050
0414 0236 0209
0238 0000
0415 023A 06A0
023C 0286'"
0416 023E 0608
0417 0240 16FA
0418 0242 0453
0419
0420
0421
0422
0423
0244'"
0424 0244 C0CB
0425 0246 C260
0248 000A'"
0426 024A 06A0
024C 0286"
0427 024E C260
0250 0014'"
0428 0252 06A0
0254 0286'"
0429 0256 06A0
0258 0286'"
0430 025A 06A0
025C 027A'"
0431 025E 0289
0260 7F00
0432 0262 16FB
0433 0264 0453

--

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

13:15:10

FRIDAY~

FEB
948941-9901

18~

**

197~

PAGE 0013

** PUNCHES 80 BLANK FRAMES

*PUNC80

EQU
MOV
LI

:$
R8~80

SAVE RETURN
CHAR. TO PUNCH

PUNLOP LI

R9~ZERO

NULL IN R9

BL

@PUNOUT

PUNCH CHAR.

DEC
JNE
B

R8
PUNLOP
*R3

DONE?
NO" CONTINUE
RETURN

*
**
*BELOUT

R11~R3

OUTPUTS TWO BELLS WAITS FOR CR
EQU $
MOV R11~R3
MO'Y' . @EOR1~R9

SAVE RETURN
TURN PUNCH OFF

BL

IJPUNOUT

PUNCH IT

MOV

@BELVAL .. R9

PUT BELL VALUE IN R9

BL

@PUNOUT

PUNCH IT

BL

@PUNOUT

PUNCH IT AGAIN

DELINP BL

@REDCHR

GET CHAR.

CI

R9~DEL*LBYTE

IS IT A DEL?

JNE
B

DELINP
*R3

NO.. KEEP WAITING
RETURN

o
¥PM

J.

OJ.$._.,'.

- -,._, - _ .. _" .. - - ' ¥ ' - '

TT'T'PT
S["SNAC 947075 *D
**PAPER TAPE SER. ROUTINE**

0

~'!

043:5
043:6
043:7
043:8
043:9 0266
0268
0440 026A
044:1 026C
0442 026E
0443:
0444
0445
0446
0447 0270
0272

0448 (1274
0449 0276
0450 0278
045:1
0452
~3453:

C

0454 027A
0455 027A
0456 027C
0457 027E
0458 0280
0459 0282
0460 0284
046:1
0462
0463:
0464 0286
0465 0286
0466 0288
0467 028A
0468 028C
0469 028E
0470 0290
047:1 0292
0472
NO ERRORS

:13:::15::10 FRIDA'r', FEB :18, :1977_
94894:1-990:1 **

PAGE 00:14

*
PUTS CHARACTER INTO USER"S BUFFER
*
*
0266-- STRCHR EQU :$
C06A
NOY @BFADDR(R:10),R:1
GET ADDRESS
0004
R8,R:1
A
BUFFER OFF SET
A048
D449
MOYB R9,*R:1
STORE
RT
RETURN
045B
*
GETS CHARACTER FROM USER"S BUFFER
*
*
0270" GETCHR EQU :$
C06A
MOY @BFADDR(R:10),R:1
GET ADDRESS
0004
R8,R:1
A04E:
BUFFER OFFSET
A
D25:1
MOYB *R:1,R9
GET YALUE
~345B
RT
RETURN
*
READS ONE CHARACTER
*
*
RE[)CHR EYEN
RRQ
READ'T' TO READ
:1FOC RE[:.RD'T' TB
NO, WAIT
~TNE
:16FE
REDRDY
04C9
CLR R9
1..... 0 STORAGE REGISTER CLEAR
3:609
STCR R9,8
PUT IN LEFT BYTE
:1D0C
SBO RRQ
CLEAR REQUEST
045B
RT
RETURN
*
WRITE ONE CHARACTER
*
*
PUNOUT EYEN
:1DOA
SBO RTS
TERMINAL READ'T'?
3:209
LDCR R9,8
GET VALUE
loJRQ
:1FOB ~'JRQRD'r' TB
CLEAR IT
NO, WAIT
JNE WRQRDY
:16FE
:1["JOB
SBO WRQ
NOloJ CLEAR IT
RESET
:1EOA
SB2 RTS
RETURN
RT
045B
END

o
_ .. 34.,)$$,

",_.,j

. . ¥¥4.

l _

,$4

44 _, w. $..$..,.

_ ,$ __ A

J:e;t;Z•..;,.en;$,UkL.,-.. .£4Jt.£JjJ,,3tg

13:15:10 FRIDAYI FEB 181 1977.
SDSMAC 947e75 *D
948941-9901
VALUE
DEFN REFERENCES
**

TT'r'PT
LABEL
$

0

R

A
ABS
ANDI
ASCHIG R
ASCLOW R
ASCPUN R
B
BEL
BELOUT R
BEL VAL R
BFADDR
BFLNTH
BL

e294

e91A
0e18
ge8C
eee7
e244
e914
ege4
eee6

0135
e134
e213
9111
e423
e132
ee42
ee43

0154
e288
0446
0440
e156
e296
e393
9391
e21e
e169
9418
e132
e159
9427
e439
e322
e159
e2~7

C

BS
BUFEND
BYTE
C
CB
CCOUNT
CHKLEG
CHRLOP
CHRMOD
CHRSTR
CI
CLR
CR
CRVAL
DATA

R

R
R
R

R

DC1.
DC1VAL R
DC2
DC3
DC3VAL R
DC4
DCTTYT D
. DEC
DEF
DEL
DELINP
EFMASK
END
EOF
EOR
EOR1
OEOR3
. EORCHR
EOREND
EOREXT
EOROUT
EQU

R

E
R
R
R
R

R
R
R
R

eee8
e1.ge

9ge8
e16C
e1.54
eel2lD
121172

geeD
ee16
ee11
€IeeE
ee12
ee13
ee10
ee14
e022

9112
e341

ee44
e33:0
e322
l2Ie49
e332

9113
e133
e1e4
e129
e1e5
91e6
013e
e1e7
0141

ee7F
e25A
e1A4

e116
043e
0e55

0ee1
eee2
0eeA
e0ec
e220
e22E
eeA2
00AA

e122
e123
e127
0128
e4e0
e4e6
0223
0226

e338
e415
e387
9323
121121
121293
9391
e2e3
e327
e34e
e329
e2e7
e368
e178
e123
e328
e123
e1.33
e129
e314
9128
9122
e333
0127
ee59
0228
e059
0e68
0135
0432
0346
e472
0270
e225
e425
e341
04e3
02e4
0229
0938

PAGE 0015
0276
9438

0162
0297

0176
0309

0180
0354

0198
0379

0223
040e

0240
9411

0265
0423

0448
e183
0248

0201
0317

9243
0339

0267
9362

0289
0374

9312

9357

9179

e188

e239

9279

9345

9396

9496

e1.65
e249
e344
e428

e185
e253
e369
0429

9187
9315
e361.
943e

9295
e31.6
e367

e21.1.
e33e
e371.

921.3
9332
9373

921.8
e336
04e4

e376
9126
e322

e136
e365

e1.37

9166
9433
e385
e447
e365
e164
9247
e341
e426
9325
121122
e245
9393
e245

e342

9215
e381
e186
9133

e25e
e383
e2ee
92e7

9318
e385
e241
9324

e32e
e387
e298

e324
9389
e311

e326
e4e2
e355

e333
e431.
e457

e363

e124
e134

e125
e1.35

e127
e138

9128
e1.39

e129
e141

e13e

e131

e132

e335
e217
e124
0343
e215

9359
e252
e13e
e368
e250

e37e

e416
e060
e069
02e6

0064

9965

e966

0067

e043

0044

0048

0049

e32e
e389

e4e2

0e61
e070
e317

ee62
ee71
e339

0e63
e431

0271
9040

0041

e042

e257

0258
0039

-,'---

TTYPT
LABEL

,·'ALLIE

1.3:1.5:1.e FRIDAYI FEB 1.81 1.977.
SI)St1AC 947e75 *D
DEFN REFERENCES 948941-9901

**

e~15e

0
ERILOP
ERWRFG
ETB
ETB ..... AL
EVEN
FF
FILEt-m
FIRCHR
GETCHR
HT
I[)T
INC
INCT
lOOP
JEQ

R
R

ea1.C
ea1.D
ee1.7

R

~3a1.2

R
R
R

eeec
01.A2
e1.4E
~327e

eee9

€Ieee

e136
a1.37
e1.e8
101.31.
e11e
e346
e32e
e446
e1e9

ee87
ee96
e1e9
e1.54
e288
e446
e282
e278
e1.31.
a2e9
e1.4e
e383
e321.
e2e5
e381.
aea4
e1.58
e395
e184

JHE
.JLT
.JMP
JNE
LB'T'TE

LDCR:
LEGBAD
LEGCHK
LEGCHR
LEGENO
LF
LI

e1el2l

R
R
R
R

LliNO
MOV
MOVB
NEXINC
NOTOC4
NSF
NT[:'IRC
NliLLOP
NliLOOP
NI.4FLG

e21.E
101086
01Fe
e21C
€I 121121 A
e001.

R
R
R
R
R

ON::HCH~ R

.. OFFINL R
OPEERR R
PAGE
PRCLOS D

1211219121
I2II21EI2I
012100
I2I1.CA
I2I1BC
12114121
I2II21I21C
1211216C
121184
1211.121121
121128

ee76
ee88
ee97
e1.1a
a1.62
10297

ee77
ee89
ee98
e1.1.1
e1.76
e309

ee78
e0ge
e1.e3
e1.12
e18e
e354

e454

e464

e214

e254

e2e2
121325
04e3

PAGE ee1.6

ee84
ee93
e1.e6
e11.5
e24e
1041.1.

ee85
e094
e1.e7
e1.1.6
e265
10423

ee86
ee95
e1e8
e1.1.7
e276
e438

e268
121382

e31.3
e384

e31.9
e386

10321.
e388

e258

121271.

e329

e331.

12134121

10251.

102910

10327

103:3:4

e3:69

e1.28
1021217
0326

~3129

12121.5
10339

e1.3e
021.7
0363

e1.31
025e
1213E:1

121132
0252
103:83:

e079
ee91.
e1.a4
e1.1.3
e1.98
10379

ee83
ee92
a1.a5
e1.1.4
e223
e40e

e291

e337

e372

02e4
e358

e244
e364

e246
121366

e21.2 e21.9
121375 121376
12121218 121216
e432 e456
e124 ,10125
101.34 10135
e31.8 e320
10387 04102

e255
12141215
121229
e468
e127
102106

a326
e280

a247

ee38
03:23

C'

,.~,-.--

e1.1.7

((s;96
e211
10379
03:95
e11.4

1213ge
e394
e392
12121.e
121347
121157
e417
e123
101.33
e31.7
0385
0466
03:92
(12E:18
10211
10382
01.23
e21.7
03710

~13:24

10431.

121394
e33e
a384

103:86

e388

103910

10224
e413

0225
0414

10252

e256

0257

121269

12127121

e335

01.63
0342
121427
0226

01.77
0343
121439

0182
0359

01.99
121380

e242
(141211.

10266
~1412

e310
0424

12127:3

01.81.
0356
121447
121282

1213:28

121441.

121449

12121.9
121334
1211.84
121003
12141217

12121212
0034
121434

121244
121072

10268
101.42

1212ge
1211.89

1213:1.3
121231.

1213:58
121272

12131210

0039
121155
0314
121425
121209
12121.2
121251

121214
121254
12112179
121365 ·0375
1213:61 121364
1213:16 121'319
1211215121
1212~13:
121216
1213:37 1213:3:1.
121276 ~31.57
1211211212
121377
121297 12112168

. i..li.XW. #4 "

#$4, J

.gM#

4$.

1_ .,AU ,Al,_

.

L,~"

.

waU4M

X.At, $..._.,,£4

_k.,

$#&$41

TT'r'PT
LA8EL
PRDASC
OPRDIRT
PRDOFF
PF':OPEN
PTCEOF
PTCLOS
PTDIRT
PTOPEN
PTOPRI.oJ
PTRILL
PTWASC
PTWEOF
PUNC8e

13:15:1121 FRIDA"', FEB 18, 1977.
SDSMAC 94712175 *D
VALUE
DEFN REFERENCES 948941-9901
(112E
I2I1AA
tU98
I2I11C
1211214A

[)

~312142

D
0
D
D

0
R
Pur'~LOP R
PUNOUT F':

12112186
12112124
12112136
12I1.I2IE
131362
I2II21EE
132313
121236
121286

12131219
121354
121343
e288
12118e
121176
12124e
121154
13162
02813
131.98
121265
e411
e414
121464

Re
R1.
R1.e

eel2l0
13131211.
el2leA

131383
131384
131393

R11

eee8

ee94

R12
R1.3
R1.4
R15
R2

eeec
1310100
eeeE
eeeF
1313132

101395
ee96
131397
10(198
10(185

121101213
1013104
eee5
1313106
1013137
1013138

131086
1012187
101088
131089
eege
ee91.

I)

D
R

D
D

D

Q3
..4

R5
R6
R7

R8
R9

RDIRDN
RE[:'CHR
REDFLG
F-:EDRDY
REF
ROFLOP
F':RQ
RT
RTS
S80
S8Z
SOC8
SP
OTCR
.. TRCHR
S'T'SFLG
T8
TITL
UE

PAGE 121017

**

12113139

R
R
F~

R
R

131392

e1EE
e27A
1313213
e27A

13376
e454
121139
13455

121222
121 121121 C

12141212
12112178

1211217121
(112169
e347
ee67
l2Ie62
l2Ie61
12112164
ee6e
1312163
el2l71
13065
01366
13165
1341.7
121213
121371

1321.8
13415

0227
13426

e249
121428

0253
121429

0:l15

e3:l6

e344

036e

13439
132133
e365
e155
10356

e44e
e245
e439
e163
e38e

13441
13277
0447
13177
134131.

13447
e278

e448
e281

0449
e282

e322

13342

121346

131.81
13412

e182
e424

e199

e242

e266

13310

121163
10279

13166
e31e
10395
e16e

e177
121345
121396
13181

13179
13356
e4e1
121188

13182

e199

e23e

121242

10266

e4e6

13412

10418

13424

e433

10226
1021213

102710
0224
121337

121228
121342

e241
121355

121245
13365

10254
0<
.... ")
-_.(

...

121256
1341.3

e44e
132137
13317
13343
121385
121431

10257
121214
121322
121448
132139
1331.8
10359
121387
121441

13215
1332121
121362
121389
121449

13217
13324
13363
121391
121457

13226
13326
121368
121393
121458

13248
13328
e37e

132513
13333
121374
121414

13252
13335
121381.
121425

e338
13291

121361.
e298

121373
e31.2

e4e4
121357

(143e

121459
121292
1347121
13465

121299

121442

045121

12146121

121281

121346

121367
e281
121467

121346

133:=:0

131.55
10225
1021013
13269
13416
1212136
121314
1333:9
121383
121427
121366
e31.6
121289
13456
131354
12141215
121455
02:33

eeeA

R

1211376

12113213

131.15

0266
12113132

13438
121121413

ee(1F

12112148

13465
121459
1214713
13277
13134
121458
13332
121277
121455
1211211211.

0164

e185
13187

~331.1

e4~32

121466

ee55
121471

13469

U!U. "

Ill'

!I!!II!!IJI!I!I

""'!II!!!l!II!lI"" ..

!/!.

" _

111.1 ! !.""'.~~ III! II!

,a

. J .1 . •

~

jI ~.,

I

..

MiIIP

TT'r'PT
LABEL

0

c

o

UEMASK
UPINC
USEFLG
WORENO
WDRLOP
IoJRQ
WRQROY
WRTFLG
ZERO

VALUE
E
R
R
R
R
R

0:1:1121
e:1E2
-0003
00E4
00C0
000B
028A
e01E
01210121

:13::15::10
SOSMAC 947075 *0
OEFN REFERENCES

FRIOAY~

948941-9901

121054
0372
004:1
121256
0245
121077
0467
121:138
121:11213

0277
121369
0278
121246
0255
0467
121468
121:156
121:12:1
121414

028:1

FEB

:18~

:1977.
PAGE ee18

**

0282
0469
0:158
121:124

121:178
121125

121:183
e125

121:186
e1.26

1212121:1
121127

121243
e128

121267
e318

121363

yt

At
APPLICA TION

•,

Nt:

'\

'55Y

~

V~

REVISIONS
:0 ON

L"

~-,

DATE

1'V"f

A

~,t:.U

7506

NOTE:SOURCE AND OBJECT ON
DISC IN SOP 948931.

,~~

(

,

REV
SHEET

1~

REV STATUS
OF SHEETS

REV
SHEET
'

Uo.U "'I OTHf:_'''( '''(C''''I!D
0''''('''''00.'' ""( IN I"CHI.'"~·
TOL' ....... CfS
""0\.('1

• I'

) "L~CI O(C"."I:! 010
1 "LACf O(C' .... l:! 01

....."'.""..

lorNT''''''',o.O I'ClJ .. " I _
, .. OW" ,N ~A .. f .. T .. ( ' ( S

~

" , . . ( T O"WQ ,--.

O"O""'C( WITH
"Tn 100

!>"" ..

0 TlIRNFR

·~-S-

. .,.

77

4P

"

e ....

.

(""-1'" .
'

I';

,

~

'

... ~.u..~\t.t 1-- -J1
7/ If h 1
~~L,,",z
CON'" r-,o
OE.SI("..N "C f,YITv AEl ( ....,.[

At,

I
,

,

I'

A" ,', t:.

__ r

~O"

1&' 10

D.,. Tun

G~

1,(·77

RUNPGN, RUN USER PROGRAM-PXR990

S'1.(.

C()(X IO£NT NO

A

96214

.-~-'-

., •• • • _11

,"- ( fl"

£qv~

----

10

f

TEXAS INSTRUMENTS

5C"L£

Ai

I

REV

Oft "",ING NO

936187-9901
S>-
HIGH_LIMIT THEN DO;
INSTRUCTION_COUNT = INSTRTUCTION_COUNT -1;
CALL SCAN_TABLE(BREAKPOINTJUSER_PCJFOUND);
IF FOUND THEN DO;
CALL BREAKPOINT_PROCESS(USER_PCJBREAK_#J
BREAK_ENTRY; TERM);
IF TERM THEN SIGNAL RETURN_TO_OPERATOR
Etm;
IF INSTRUCTION_COUNT . EQ. €l THEN
SIGNAL RETURN_fa_OPERATOR;
IF INSTRUCTION_COUNT . EQ. -1 THEN
INSTRUCTION_COUNT = INSTRUCTION_COUNT +1.;
CALL MONITOR_CHAR(CHAR,NO_WAIT);
IF CHAR . EQ. ESCAPE THEN SIGNAL
RETURtL TO_OPERATOR;
l

(

Et-JDi

EtJl);
RETURN_TO_OPERATOR:
END RUN.;
lOT· ·'RUNPGN"
TITLE:
RUN
RUN USER PGM UNDER DEBUG
REVISION:
ORIGIr·mL
12. ..'13/76 1'10DIFIED FROl'l ORIGINAL PROTOTYPH~G
SYSTEM TO CORRECT A RUN COUNT COMPUTA
ERROR.
COt-lPUTER: 990, HSI'1
ABSTRACT: T.~I5 ROUTINE CONTROLS THE DEBUG EXECUTION
OF A USER" 5 PROGRAI'1.
CALLING SEQUENCE'
BL @RUN
R1B = PTR TO COMMOND PARAMETER LIST
REF'S AND DEF'S
DEF
REF
REF

pun
CiETBUF
RETBUF

--

. RUHPGH
SDSMAC 947075 *0
~3:51:44 FRIDAY,
DEBUG RUN COMMAND PXRATE
936~87-990~ **

~ 0063
. 0064
0065

8

REF
REF
REF
REF
REF
REF
REF
REF
REF
REF
REF
REF
REF
REF
REF
REF
REF
REF
REF
REF

0066
0067
0068
0069
0070
0071.
0072
121073
0074
0075
0076
0(1"(7

0078
0079
0080
0081
0082
0083
0084
0085
0086
121087
OC188
~00:39

'U\00'30

0031
0092
0093
0094
0095
121096
0097
121098
0099
0100
010~

~8,

~977.

PAGE 0002

INSTRUCTION COUNT

*
*WORKSPACE
REGISTER DEFINITIONS
0000
0001.
0002
0003
0004
0005
0006
0007
0008
0009
000R
000B
OOOC
0000
OOOE
OOOF

0102
01CG

0104
0105
0106
0107
0108
0109
0110
01.11. 0000
0002
0112
0113
t4iiiIII... 0 114
. ·0115
0116
(HJ7
0118
0119 0004
012121 0006

Rl,lP
ACL
RR
IN5CNT
TRACE
ERROR
BKPT
m(PTPR
PCOUT
LOHLIM
HILIM
ESC
SIE
TRACER
SREGN
"1otJCHR
USRPC
seTB
STRPRT
CRUPRT

FEB

0004
121007
0001.

'"RO

EOU
EOU
EQU
EQU
EOU
EQU
EOU
EOU
EQU
EQU
EOU
EG!U
EC!U
EQU
EOU
EG!U

R1.
R2
R3
R4
R5
P6

R7
"

R8

R3
RiO
Rl1.
R12
R13

RiA

R1.5

'"
'"
r'li<1214

EOU
EQU
PRTVIO EQU
t1~<07

0
1

-,

"-

:3
4
5
6
-,
(

8
:3

10
11
12
13
1.4
1.5

,

::>001214
)0007
1.

'"
..

EOU :t
*ALLOCJ CUP'T' L I Nt(
BUJP @ACL
1

0000

2-/* RUN CONTROLS THE EXECUTIO
A USER PROGRRN UHDER EITH
2OR
TRACE MODE. IT PROVIDE
2USER'S KEYBOARD LEVEL CON
2OF THE S'T'STEt1.
2-

*

'"
'"
'"
>I<

2-:+:/

*

C27H
OA99

TRY TO EX TRACE WHEN NOT IN 0
WRITE PROTECT VIOLATION
1.-PROCEDURE RUN(CPL);

:+:

0000/ RUN

- *
0420

.

2- I F

'"

,,-1""'10-

'iiE2.J,i.Ad.kW';

t'IOV

;fRl0+,R9

SLA

F:'9/9

Q.. '-"'T

CPL.

PARt-11. . HE.

HULL THEN

RUHPGN
SDSMAC 947075 *0
13:51:44 FRIDAY~ FEB
DEBUG RUN COMMAND PXRATE
936~87-990~ **
~

0122

r __ \ 0123

0

OOOA C81A
OOOC 00013

0124
0125
0126
0127
01.28 OOOE
0010
0~29 001.2
001.4
0130 001.6
00~8
01.3~

0132 001A
0~33 001.C
0134
0135
0136 001E
0020
0137
0138 0022
0139
0140
014~
~

'tj)

0142 0024
0026
014:3: 0028
0144
0145 002A
002C
0146
0147 002E
0148 0030
0032
0149
0:150
01.5:1 0~334
0036
0152 0~338
003A
0153 003e
0154 003E
0155 8048
0042
0156 0044
01.57
0158 0046
012148
0159
01.60

*

020A
0000
C260
0000
06AO
0000

~977.

3-INSTRUCTION_COUNT
MOV

OOOE' *
RUN010 EQU

*
*

~8,

~:R10,

@I NSCNT

PAGE 013133

= CPL

PARM

2-END;
$

2-DO UNITL RETURN_TO_OPERATOR;
3-CALL SCAN_TABLE(TRACE,USER_P
LI

Rl0,TRACE

t10V

@USRPC,R9

BL

@SCTB

3-IF . NOT. FOUND THEN DO;
*
C28A
MOV Rto, R1e
o => FOUND
1.303
JEQ RUN020
001.E' RUN015 EQU $
*
06AO
BL
@SIE
0000
*
3-END;ELSE DO;
1008
JMP RUN030
0024' RUN020 EQU $
***********CHECK THAT TRACE OVERLAY IS PRESENT
>I<
4-IF TRACE NE RESIDENT THEN ER
C2A0
MOV @5REGN.R10
0000
1.32C
,..TEQ RUN055
*
4-CALL TRACER(USER_PC.USER_WP.
06AO
IllT RFiCER
BL
0000
>I<
3-END;
F:UI1060
10.2D
.J t'lP
I~PCOUT
06RO
BL
OUTPUT USRPC TO PANEL
l (
0008
0034' RUN030 EQU $
3-IF WRITE_PROTECT_ERROR = :1. T
*
020A
LI
R10,11i<07
0007
Ll·
R:12,CRUPRT
020C
0000
T8
PPTVIO
1.F01.
16(13
...TNE RUN032
RESET '.110 FLAG AND RESTORE PR
LDCR @STRPRT,O
3020
0000
ERROR E;'-~IT
.Jt'lP F~UtJ05 7
1020
0046' RUN032 EQU 1:
t'10'v' @U5RPC, R9
C26O:~0014·'
3-IF USER_PC < LOW~LIMIT . OR.
*
4-HIGH_LIMIT THEN DO;
*
R9, @LOloJLlt'l
8809
c
0000
PUtK135
.JL
lA03
RSI, @HILH1
8809
c

0161 004A
004C
t:e;11.62 004E
0163 0050
0052 012t~::n)
0164 121054 :1ADC
JL
0165
0056' RUN035 EQU
:+<
0166

PUtJ0:10
$

4- INSTRUCT I mLCOUtH :: I tJSTR rue

-

RUNPGN
SDSMAC 947075 *D
13:51:44
DEBUG RUN COMMAND PXRATE
936187-9901

cti

0058 OOOC'"
JEQ
0168 OB5A 130J
. 01.69 005C 0620
DEC
005E 0058'"
JEQ
0170 0060 131.4
0171
*
LI
0172 0062 020A RUtm40
01364 0000
0173 0066 06AO
BL
0~J68 0018'"
0174
*
0175 006A C28A
~10V
0176 006C 1604
JNE
0177
*
0178
*
0179 006E 06A0
BL
0070 0000
0180
*
0181. 0072 C28A
~10V
01.82 0074 160A
JNE
01.83
01.84
0076'" RUN050 EQU
0185
01.86 0076 06A0 *
BL
01378 0000
0:187

RUN040
@INSCNT

007A 9809
007C 000~)
8:190 007E 16C7
'.:H91. 0080 1004
0:192
0191
13:194
OB82/'
01.95 01382 020A
~3084 0004
0:196
0B86/'
13:197 01386 06AO
0088 0000
0:198
0:199
008A~
0200
0213:1
0202 008A 0420
008C 000(1
0203: e08E 045B
0204
NO ERRORS
.-

*
*
RUWJ55

PAGE 0004
IF COUNT=O, SKIP DEPLETION
DECREt1ENT COUNT.

R1.0~BKPT

@SCTB
4-IF FOUND THEN DO;
RiO, R1.0
RUN050
5-CALL BREAKPOINT_PROCESS(USER
6-BREAK_ENTRY;TERM);
@BKPTPR
4-IF TERM THEN SIGNAL RETURN_T
R:1.0, R1.0
RUN060
4-EHD;
$

@f'10NCHR
4-IF CHAR . EQ. ESCAPE THEN 51G
5-RETURN_TO_OPERATOR;

CB

R9,@ESC

JtJE

PlItH:'1J0

JI'1P

putm60
3-Et·JD;
2-END;

EQU
LI

RUNB57 EQU
. BL

*'

RUN060 EQU

$

RH),

t'1~<04

(

$

@ERROR
$

i-END RUN;

>I<

>I<

FEB 18. 1977.

**

IF DEPLETED, RETURN TO MONI
4-CALL SCAN_TABLE(BREAKPOINT~U

RUN060

*'>I<

~:~~~

FRIDAY~

*L I rJK TO PRE.....
BLl·JP @RR
RT
EfJO

~·H(SP,

RET CURR

~·JKSP

(

-

"f,\,1, . . ."~~I,,....'~...~~.._...:....~d'.;;...,_.';""":;"''"''''''"!~"",,,,,,,,,,,-,,,,"..,'';'''''':'~'''''~'''''''''u'o..r.:....~...:."~',"";i1' ...

-,

RUt'~PGN

LABEL

r\$

VALUE

R

0090

E
E
BKPTPR E
BL
BLWP
C
CB
CRUPRT E
DEC
DEF
END
EQU

0002
0064
0070

&CL
... BKPT

·ERROR
ESC
GETBUF
HILIM
IDT
INSCNT
.JEQ
JL

.---"_.

003A

0064
0069
0070

0082

0052

0068
0074
0060
0073

E

005E

0066

0088
007C

~Tt-1P

fij-TtJC
.'lJNE
LDCR
LI
E
LWP
E
MotJCHR E
NOV
t't~m4

004C
0078

01372
0062
0078

t1y~07

0004
0007

0105

PAGE
PCOUT E
PRTVIO
RO
Rl
Rl0

0032
0001
0000
0001.
OO(1A

01371.
0106
0086
0087
0096

Rl1
R12
R13

0008
000C

R1.·1

eOOE
000F,,-'--"-0002

R15
R2
R3:
R4

r;;:;,s

"'-6
.7
R8

R9
REF

OOOD

OO((~

0004
0005
0(106
00(17
000:3
eO~39

--. -.-

,

"""".",,"

.....

1.3 :~·1: 44 FRIDAY,
SDSt'lAC 947075 *D
DEFN REFERENCES
936187-9901

E
E
E
E

LOl~Llt'l

"

OH3·l

01.09
01.96
01.1.1.
01.72
01.79
01.30
01.11.
0161.
0189
0152
0169
13059
0204
0086
0095
0106
0194
0197
01.89

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

FEB :1.8, 1.977.
PAGE 0005

**

01.25
01.99

0.1.34

01.39

01.49

01.57

01.65

01.84

01.36
0202
01.63

0:1.45

01.48

01.73

01.79

01.86

01.97

0087
0096
0109
0.1.96

0088
0097
0125
01.99

0089
0098
01.34

0090
0099
01.39

0091.
01.00
01.49

0092
0101.
01.57

0093
0104
01.65

0094
0105
01.84

0167
0143
0164
01.47

0169
01.68

0170

01.56

01.91.

OJ_54

01.76

~3182

0.1.90

0155
0128
0161

0151

01.52

01.?2

01.95

0123

0129

13132

(11.42

0158

0167

0175

0181.

0:1.23

0128
0.1.81

0132
0195

01.32

0142

015.1.

0172

0175

0120
0061
0070

0129
0062
0071
0080

0158
0063
01372
0081

01.61.
01364
01373

0163
0065
0074

(llB9·
01366

(11""::16-'"

0075

0076

0068
01077

"e"a, .. ll...JA;:t4.:,g.w.¥...¥,&W£

,.$.40,,·,.··._

0163
0'342
0.1.23
0133
0162
(1138
01.21

01.94

13186

13119
0195
0151
(JOO2
0148
~H53

0167
0119
0175

oun

0097

0098
0099

0152

(1100

0101
0088
0089
009ft

0(191
0(132
OfJ33
0094
0095

01J.~}

0060
0069
0078

0079
#,44 •

.
'

.,---

AM, #';;

0082
•

¥}-"!lj(!lIiill~_~., 'fl'.)jiffl;"if.MI~71!iiihi%i$"_ ,~m·'f.''';;:;;"","l/'''Y;:'''''''i1k.,iWi,w;:;;;;;nq;:c, ,,_~i'F;".

-

_ _ l.-. . . . . . . . . . .

SDSMAC 947'075 *D

RUNPGN
LABEL

VALUE

D

DEFN

13:51:44

REFERENCES
0202
0203
0059
01.21

E

0ase

0065

RUN015
RUN020
RUN030
RUN032
RUN035
RUNe40
RUNe50
RUN0S5
RUNe57
RUNe60

R
R
R
R
R
R
R
R
R
R
R

0000
000E
001E
0024
0034
0046
0056
0062
0076
0082
0086
008A

RWP

E

SCTB

E 0068

SIE

E .

0109
'0164
0125
.:' .....
0134
0139 0133
0149 . 01.38 .
0157 01~4
01.65 0162
01.72 0168 •
0184 0176
01.94 0143 ."'~
0196 0156 .
01.99 0147 01?a
0063
00813 13130 0173
0075 0136
13120
0077 0142
0081 0155
131.53
131301
0067 13128
131376 0145
0079 0129 13158

eRR

.~N
RUN010

~020

SLA

SREGN E
STRPRT E

0026
13042

TB

TITl
TRACE E
TRACER E
USRPC E

0010
oe2C
01348

_ • • • • • •_ _ _ _ • • • •

_. _ _

FRIDAY~

936187-9901

FEB

-**

.-----. _ _-----_.
.
1977. 1\
..•..

1.8~

~~

.; PAOE 0006

01.90

13182

13191

:.

l

~-

•

A[
APPLICATION
NEXT ","SSY

o

-

REVISIONS

a..::ftP, ION

L.,",

USEDDN

,

"._-,-

.~

DATE

7506
;,.,! !

,

:'

.

~"

.
:

.

c+

~

REV
SHEET

lA
REV

REV STATUS
OF SHEETS

SHEET

UNLESS OTMEItWISE SNCI"'ED
DIMENSIONS "'"ItE IN INCH ••
TOLE" .. NCE.
.. NGLES ~l·

a ~CE DICIM.L~,O.O

2 "LACE

~
CH.."

Df:CIM"L~.02

E"«:OR

IDENTI"INQ NUM . . . .
• HOWN IN .... ItENTHE.ES
"Olt "E"EItENCE DNLY

QA

INTEIt ..ItET DWQ IN
.. CCOItD .. NCE WITH
MIL·STD·lOO

"'PVD

0

CONT"

:,

/

..

/

-,,/

"7" / "

"

D E ¥ AcTIVITY RELEASE ~,

V
yl-••••. c

/

~

o...1"E/

~ TEXAS INSTRUMENTS
I NCO''''O"

Equ."." G,..,

"',I: D

0./_. re_

AL, BASCON, SAMPLE PROGRAM 3-PXR990
SIZE

CODE !DENT NO

A

96214
1 REV.

"'+

!ICAL.E

"".W!NQ NO

936145-9901
SHEET

1

of

2

f.;~:1::;::C

:;:::[:o:3t'IAC 94 ?~T?:i:+:E:

eli',/

SAMPLE

PROGRAM 3

o

I[:OT

~:1 €1~J2

Rt;;~ ~~

0019

i~112t04

1;::14C2

I~H:j20

~~1~J01;

(:;1,::(.[3:

0021 0008 38£0

C'
.'

I;:~ I~) I) A

121 1 ~:; ~'::1

00:;::;;:

OI~10C

f!la:~:::::

(:J';:~~~E

CCIC4
[:,L::2

: 43: : 5::::

:+:
:+:
:+:
:+:
:+:
:+:

:+:
:+:
:+:

:+:
:+:

:+:
:+:

:+:

THIS PROGRAM TAKES AN ASCII NUMBER AND
CONVERTS IT TO A SPECIFIC BASE IN 2~S
COI"lPLEI"'1ENT NOTAl' r ON. THE POS I 1'1 VE '
NUMBER MUST BE IN 7-BIT ASCII FORMAT
STARTING AT LOCATION CINDEPENDANT OF PROGRAM
8ASE ADDRESS) )104J ONE DIGIT PER BYTE.
THE BASE VALUE SHOULD 8E A DATA WORD AT
LOCATION )100; THE LENGTH OF THE NUMBER
TO BE CONVERTED. IN DIGITSJ SHOULD BE AT
DATA LOCATION )~02.
THE PESUL TIS RETURNED AT LOCAT I ON :>120.
NO ASCII VALIDITY CHECKS OR OVERFLOW CHECKS
APE l'lAC'E.

:+:

ENTRY

u·JP I

LOOP

eLR R2
C L. F.:
F.::::(
!"1F:'T', (~BASE . R3

R2=LOOP COUNTEF.:
R3=INTEPMEDIATE ACCUMULATOR
MULT. SUBRESULT BY BASE

t'10V R4 . RJ:
MOVB @NUMBER(R2).R4

LOAD LEAST SIG. BITS OF RESULT

~oJRI~0~3
BASE
DATA >:10
LENGTH DATA :>6
NUM8ER E::::;S )11:'::1
AORG :>1;;;::~::t
RESULT ['ATA 1:'::1
B~;~=;
:>20
WRKS
DATA :>O4~'::1~~1
OUT
END ENTF~'T'

NCi EF.:F.:OPS

o
A

,;

_.",... U.S;

,.4

.,

" 22;U..$;;1.1;[ ,..,.

.

.0.

$

-

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

-j----~~--------

~0~MHC

'.,.'I~H"I..Jt:::

o

~470/5

DE:I:::/'"I

07:43:58 TUESDAY.
I';;:EFEF:EI'·,ICE::::;
936145-9901

{:':I

O(12~5

HJ

0026

fi(JPCi
E;H::;:;E

, 0::1..00

0~:::13~::

!)~iTA

EN[)
~XHf:

1[:, r

Ii'·,!e
JNE
U:::NCj TI1
L 1:'1 Ci F'
F:

~~1:U)2
~'::I 0 ~:~ :::::

L.J'!F I
l'lel'.,.'
i'IO",.'E:

o0 ::~: "~t

*8

IJ~332
(I 0;;;:: J..

0Ia:::::~.:;

0~~11.9

~)020

0033
0041}

0034

0037

0039

0022
0024

0025
0025

,--

NOV 30. 1976

**

PAGE (1002

(1~:::140

00(12
002?
0029
~~I I) ;;:: ::::

00;21

0029

~:'I~3?:(1

I} 0;;:: 2

~301:::::
(t~33:1~1

Of1~:;::3

I'IF"T'
i",lijl'IE::EP

O::LO.::I·

~;~~::G'=;

0~J23:

Ijl.JT

i~):1.':f2

(1 0)::i: 9

I~~ 0:13 J.

k2

fjO~3:::

i';;':::::
P4
FESi.JL,T

0004

:::::eL.

c

TITL,
i"iF-='I<::::;
;;::OP

@REPL Y.

OR OP CODE PRO

~5

0~54'"

** DEC I S I ON BRANCH
C060

*

R3= OP CODE

R2=LUt-~O.;

MOV

@IMP.R~

GET INPUT

ANDI

R~.)7F00

MASK OFF GARBAGE

AI

R~,-:>4500

IS IT AN E?

JEQ
AI

ERRPRO
R~ .. -)A00

YES, ERROR PROCEDURE
IS IT AN O?

.JEQ
AI

OPCPRO

YES. OP CODE PROCEDURE
IS IT AN S?

0~DE'"
024~

7F00
022~

BB00
~308
~322~

F600
~3~6
022~

R~,-:>400

FC00
~6EF

2FE0

JNE AGAIN
*
* RETURN TO MONITOR
*
XOP @RET.~5

NO. PROt1P AGA I N

RETURN

0~52'"

004~

o

** ERROR PROCEDURE
0042
0043
*ERRPF.:O EVEN
0044 004A
(n345 004A 2FE0
>mp @ASKOP .. ~5
004C 00F4"
:,.mp @INPCD .. ~5
0046 004E 2FE0
0050 0~00"
0047 0052 D82~3
MOVB @INBUF.@VAL
0054 0~E0"
0f:t56 0~~~'"
01348 ~3(158 2FE0
XOP @COMBI.~5

OUTPUT PROr1PT
INPUT REPLY
SET UP FOR CONVERSION
CONVERT
M$

£ 4$

OXA!

,W$4¢2£.

JJ.,m" . . .ilia $.$ A @iOta

,C,

wtatt' et*

OPTEST
SDSMAC 94712175 *D
~3:37:~a FRIDAY. FEB
SAMPLE PROGRAM 4
936~46-9ge~ **

o·

e€15A e~ec"
12112149 €1€15C e6ce
1211215121 ee5E 1)8121121
~31216e

SWPB RI2I
MOVB RI2I.@IOOP

o

~977.

PAGE 13121132

RESULTS IN LEFT BYTE
[:'EPOS I T FOR PROCESS

12I~26"

12112162 121 6 A121
BL
@TESTOT
12I~364 I2II21C8"
12112152 12112166 1214EI2I
CLR @SYSFL
12112168 12I~28"
12112153 1211216A ~eDC OVER
JMP AGAIN
12112154
12I~355
** OP CODE PROCEDURE
12112156
*
12112157 1211216C
OPCPRO EVEN
12112158 1211216C 2FEI2I
XOP @ASKOP.~5
el2l6E I2II21F4'"
12I€159 1211217121 2FEI2I
XOP @INPCD. ~5
12112172 e~I2II21"
e€16e 12112174 D82121
MOVB @INBUF.@VAL
~312176 I2I:1EI2I "
12112178 1;;:1~~~"
XOP . @CI)t1B I. ~5
~31216~ 1211217A 2FEI2I
12I1;;:17C 12I~I2IC"
12112162 1211217E 1216CI2I
S~.JPB RI2I
121063: 008121 CI2ICI2I
MOV RI2I.R3
12112164 12112182 121243
ANDI R3.>7FI2II2I
12112184 7FI2II2I
12112165 12112186 CI2IAI2I
MOV @INBUF,R2
12112188 I2I~EI2I"
12112166 12I08A 0242
12108C 1211217F
12112167 1211218E 1212::::2
R2.>50
CI
1211219121 1211215121
12112168 12112192 ~61215
.JNE REDTES
~312169 12112194 D8121121
1'10VB Re. @lOOP
12112196 12I~26"
1211217121 12112198 121 6 A121
BL
@TESTOT
1211219A I2II21C8'"
1211217:1 1211219C ~I2IC3
JMP AGAIN
12112172
*
12112173
* CHECK READ ASCII OR DIRECT
12112174
*
12112175 ee9E
REDTES EVEN
012176 oe9E 121282
CI
R2.>52
eeAe 12112152
~31;;:177 eeA2 ~6ce
JNE AGAIN
12112178 eeA4 0283
CI
R3 .. >A00
eeA6 OAe~3
01;;:179 eOA8 :1603
JNE I.-JRTASC
12108121 l2IeAA 2FEI2I
XOP @REDDIR.. ~5
e0AC 0:146"
ee8~ 1210AE ~0D()
.Jt1P OVER
012182 el2lB0 0283 "JRTASC CI
R3: . :>9121121
0082 090121
12112183: 121084 ~603
.JNE REDOPN
121084 00B6 2FEe
:X:OP @REDASC.~5
eeB8 0~3:(1'"
0085 00BA ~0D7
.JI'1P OVER
0086
*
121087 008C 121283 REDOPN CI
(10BE 0~30(1
12I€15~

c

~a.

4,.##

PROCESS CALL
CLEAR ALL ERR FLAGS
DO IT AGAIN

OUTPUT PROMPT
GET REPLY
SET UP FOR CONVERSION
CONVERT
PUT IN LEFT BYTE
GET REPL 'y' VALUE
FIRST REPLY ONLY

SECOND REPLY ONLY
IS IT PUNCH?
NO. CHECK ASCII OR DIRECT
DEPOSIT RESULTS
PROCESS CALL
DO IT AGAIN

IS IT READ?
NO, BAD START
IS IT READ DIRECT?
CHECK READ ASCII
PROCESS IT
DO IT AGAIN
IS IT READ ASCII?
IS IT OPEN READER?
PROCESS IT
DO IT AGAIN
IS OP CODE OPEN VALUE?

4.#

"

.;

;pMlt, $.4$ . .1@. __ ',._ IFP.

1M trt

$

".*8

OPTEST
SDSMAC 947075 *D
13:37:18 FRIDAY. FEB 18. 1977.
SAMPLE PROGRAt1 4
936146-9901 **

o

o

0088 00C0 16D4
0089 00C2 2FE0
00C·4 013C"
0090 00C6 10D1
0091
0092
0093
0094 00C8
0095 00C8 2FE0
00CA 01.24"
0096 00CC C820
0eCE 01.A8"
00D0 0114"
0097 00D2 04E0
00D4 121116"
0098 00D6 2FEI2I
00D8 121118"
0099 00DA C02121
00DC 121128"
0100 00DE 2FE0
00E0 121112"
0101 1210E2 2FE0
I2II21E4 01.18"
0102 00E6 045B
0103
0104
0105
0106 0121E8
0107 00E8 0000
e1.08 00EA o BI2I 121
01.09 I2II21EC 001210
01.1.0 00EE 01.60"
01.1.1 00F0 1211211210
011.2 0121F2 004C
e113
0114 I2II21F4 00121121
01.1.5 00F6 0B0121
0116 0121F8 012100
01.1.7 00FA I2I1AA"
0118 I2II21FC 12100121
0119 00FE 012134
0120
01.21 121100 001210
01.22 12111212 091210
01.23 01.1214 001210
1211.24 01.1216 01E0"
01.25 121108 121002
0126 01.0A 121000
01.27
01.28 010C 0D00
30
0129 12I1.0E
3121
12I1.0F
3121
01.10
3121
01.30 0111
01.31
0132 011.2
01.33 0112 I2IC0121
01.34 0114 00121121
01.35 01.1.6 0000
01.36

JNE
XOP

OVER
@OPNRED.15

NO. BAD START
YES. OPEN READER

JMP

OVER

PROMPT AGAIN

PAGE 1211211213

** ALL PURPOSE XOP

*TESTOT

EVEN
XOP @SUPCL.1.5

PROCESS CALL

MOV

@CARLIN.@OUTBUF

GET CR. LF

CLR

@OUT2

XOP

@OUTRES.1.5

OUTPUT CR. LF

MOV

@SYSFL.R0

FLAGS IN RI2I

XOP

@CONASJ15

CONVERT TO ASCII

XOP

@OUTRES.15

OUTPUT RESULTS

B

*R11

RETURN

** PRB DATA TABLES

*HEAD

*ASKOP

*INPCD

*COMBI
VAL

EVEN
DATA
DATA
DATA
DATA
DATA
DATA

OUTPUT MESS TO LOG

0
:>B~0

0
HEADER
0
76

DATA
DATA
DATA
DATA
DATA
DATA

121
:>B12I0
121
OUTMES
121
52

OUTPUT PROMPT MESS

DATA
DATA
DATA
DATA
DATA
DATA

0
:>90121
121
INBUF
2
0

REPLY

CONVERT REPLY TO FORM

DATA :>0D00
TEXT "1210121"
BYTE :>30

*CONAS

EVEN
DATA :>C00
OUTBUF DATA 0
OUT2
DATA 121

*
.$

¥

QQ.&..

tauul..U_

. :;sa

..

$$

_

.....

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

' ",",'"

-'

"

---~".----

OPTEST
SDSMAC 947075 *D
13:37:18 FRIDAY~ FEB 181
SAMPLE PROGRAM 4
936:146-9ge1 **
OUT RES E..... EN
DATA
DATA
rJATA
DATA
DATA
DATA
~1143
a144
*
0145 0124 0aa0 SUPCL DATA
BYTE
00 lOOP
a146 0126
BYTE
a147 e127
eA LUNO
121148 e128
€Ie S',.'SFL BYTE
e149 e129
€Ie USERFL BYTE
e15121 e12A e1E2'- BUFAD DATA
e151 e12C ~3eee BUFLIN DATA
e152 e12E e014 CHRCT DATA
e153
*
e154 e13e
REDASC E. . . EN
DATA
e155 e13e e00e
~1156 121132 121ge9
IOOPA DATA
DATA
0157 e134 €Ieee
~315:3 121136 I2I1F6'DATA
DATA
e159 e138 e~314
DATA
e:16e 0:13A €Ieee
121:161
*
e:162 e13C €Ieee OPNRED DATA
DATA
e163 a13E 12101219
DATA
a:164 e:14121 ~3eee
e:142 €Ieee
~3137

0

C

0138
0139
0140
0141
0142

0118
0118
011A
011C
011E
0120
a122

~1144

0000
0B00
0000
0114""
0000
aa04

197~

PAGE 0a04

0
)B00
0
OUTBUF
0
4
MAIN CALL TO RIP

0
0
)A
0
0
BUFFR1
0
20

READ ASCII
0
)909
0
BUFFR2
2121
a
€I
)ee9
e .. e.~ 121

OPEN READER

~3eel2l

e:165

*
READ DIRECT
REDDIR DATA €I
e:167
IOOPD DATA )Ae9
DATA 121
12I121~3121
e:168
DATA BUFFR3
e2eA""
0:169
DATA 2121
0~114
~3170
DATA 121
e:17:1
I2I121a0
';::1172
*
E'. .'EN
F.:ET
121173 121152
DATA :>4e0
(1:174 121152 1214121121
121:175
*
BRANCH INPUT
e176 ~3154 a~1ae REPL'T' DATA €I
DATA )9121a
0177 a:156 09aa
DATA ~3
a:17::: 121158 a0aa
DATA IMP
e:179 0:15A 01[)E .DATA 1
e18121 e:15C a(1a:1
DATA 0
a:18:1 a15E 0121ae
e182
*
a183
* PRB STORAGE OUTPUT AREA
121:184
*
0185 a:16e aAI2ID HEADER DATA )AI2ID
TEr~T .' INPUT S FOR STOP OR E FOR ERROR PROCEDURE""
49
a186 e:162
4E
e:163
5a
e164
17"1.65
55
b:166
54
121:167
2a
a:168
53
a169
2a
016A
46
~3166

0

121:146
e148
e14A
e14C
12114E
015121

€Ieee
eAe9

$

_._._4#

J

_.;

@%

4,"

'-

'0"

M

_Estes;",

j

CAl, etc;::

$"

. ;::;; . .4:;;;;:#(#

o.

,

$'%""'• •

:1.3::3:7::1.8 FRIDAY~ FEB
OPTEST
SDSMAC 947075 *D
93:6:1.46-990:1. **
SAMPLE PROGRAM 4

0

0

0

4F
01.68
52
e1.6C
2e
e1.60
53
e1.6E
54
0:1.6F
4F
e1.7e
e1.71.
50
213
e1.72
4F
01.73
a1.74
52
2a
a1.75
45
a1.76
01.77
2a
01.78
46
131.79
4F
e1.7A
52
e1.78
2e
a1.7C
45
e1.7D
52
52
01.7E
01.7F
4F
e1.8e
52
2a
a 1.8:1.
5e
e1.82
52
01.83:
4F
a1.84
e1.85
43
a1.86
45
44
01.87
55
e1.88
52
01.89
45
01.8A
e1.87 e1.8C eA0D
4F
01.S8 e1.SE
52
a1.SF
2e
01.9a
4F
e1.91.
a1.92
20
46
e1.93
e:1.94
4F
52
a1.95
·20
a:1.96
4F
a:1.97
5a
e1.98
20
01.99
43:
01.9A
4F
a1.98
a:1.9C
44
45
0:1.9D
20
e:1.9E
5a
01.9F
52
a1.Ae
4F
a1.A1.
43:
e1.A2
45
a1.A3
e1.A4
44
01.A5
55
52
01.A6
45
a1.A7
a1.E~9 01.AS aAeD

:1.8~

:1.977.
PAGE eee5

DATA )A0D
TEXT "OR 0 FOR OP CODE PROCEDURE"

CARLIN DATA )A0D
..

,

" .IIII!I.""

... I!II!!I!II

L IlIIfIIl!I!. ..

~··L

.~'"

'"I.

OPTEST
SC/St1A(: 947075 *D
:13: 37::18 FRIDA',.') FE8 :18) :1977_
SAMPLE PROGRAM 4
936:146-990:1 **

0

C

0

121:190
0:19:1 0:1AA 0A0D
0:192 0:1AC
45
0:1A[>
4E
0:1AE
54
45
0:1AF
52
0:180
0:18:1
213
0182
44
13183
45
13184
53
13:185
49
13186
52
13:187
45
13188
44
0189
20
0:18A
4F
0188
513
01.8(:
2D
018D
43
~1:18E
4F
e18F
44
45
01ce
01(:1
20
4:1
0:1C2
01(:3
4E
01C4
44
13:1(:5
213
4()
0:1C6
4F
e:1C7
13:1(:8
44
01(:9
45
0:1(:A
213
121:1(:8
28
1211(:(:
52
131(:0
3D
12I1(:E
52
12I:1(:F
45
4:1
0100
44
0:101
2[:
13102
2121
0:193 13103:
0104
5121
3[>
01.05
01C/6
5121
55
~31D7
4E
121:108
.01.D9
43
48
I2I:1DA
121:194 e1De 121 A121 0
121:195
0196 e1.DE 12113121121
13197 e1E0 0000
2121
0198 I2I:1E2
I2I:1E3
2:1
I2I1E4
3121
I2I:1E5
3:1
01E6
32
0:1E7
3:3
0:1EE:
41.

PAGE 001216

:+:

OUTt1ES DATA )-A0D
TE:X:T '-ENTER DESIRED OP-(:ODE AND MODE (R=READ) '"

TEXT

,-

P=PUNCH'"

DATA )-AI2ID
:+:

IMP
IN8UF
8UFF~::1

DATA 121
OATA 121,.,
!12I1.23A8(:D'"
TEXT

d1.. M4

a;"

,#I?44(Q

$

WAM ".M

_. 4:$. M4§4@

~rr*A-'J.Q

,.fA"".;';;

.$

41;;"41441 .r?, 1$4;;$.1.,.444 "

___·_··_b_'_'_'__
r l ¥_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

~d_*·._!e

OPTEST
SDSMAC 947e75 *0
13:37:18 FRIDAY. FEB 181 1977.
SAMPLE PROGRAM 4
936146-9ge1 **

0

(11E9
e1EA
e1EE:
e:199 e1EC
e1EE
e1Fe
01F2
€11F4
e2ee e1F6
~3201. e20A
e2e2
NO ERRORS

PAGE eee7

42
43
44
7E7F
e8e9
e70A
0102
2e20
BUFFR2 BSS 20
BUFFR3 BSS 20
e020-END START

o
«

424

$

.tLA

¥

$(

. ,• . 4,

_ =.iZtUiUiffit

,i

¢ 1M

_ 4. P.•Mi44~.

!!M:t,el'

"

.~---~

1.3::3:7:1.8 FRIDAY, FEB 1.8. 1977.
SOSt1AC 947a75 *0
VALUE
['JEFN REFERENCES
936146-9901

OPTEST
LABEL

0

REDDIR
F:EDOPN
REDTES
F:EPL'T'
RET
START
SUPCL
SWPB
S'r'SFL
TESTOT
TEXT
TITL
USERFL
VAL
WRTASC
I.oJSF'
>::OF'

**

R
R
R
R
R
F:
R

e1.46
aeBC
ee9E
e154
a1.52
ee2e
e1.24

ee75
1211.76
01.73:
ee23:
e1.45

R
R

e1.28
eeC8

e1.48
ee94

R
R

a1.29
€I 1.1.1.
eeBe
€Ieee

a1.49
e1.3:e
ea82
ee22

F:
R

0166
~3e87

ee8e
0e83:
ee68
ee25
e04e
e2e2
e095
0049
ee52
ee51.
e1.29
eeei
ee47
ee79
ee23:
ee24
ee8e

ee62
0099
ee7e
e1.86

e1.88

e1.92

e1.93:

0198

004e
ee89

ee45
ee95

0e46
ee98

0e48
e1.ee

PAGE eee9

ee6e
ee25
0e84

e058
e1.e1.

ee59

0e61.

I~'.'·
L\

•
4.

; _$

gan.

w- .eo _

O¥A"SUJ..4MhL. :;za$iiM Z:;;4! iA41¥4 J. Q,G¥4
Source Exif Data: 
File Type                       : PDF
File Type Extension             : pdf
MIME Type                       : application/pdf
PDF Version                     : 1.6
Linearized                      : No
Create Date                     : 2016:06:25 09:42:54-08:00
Modify Date                     : 2016:06:25 10:16:32-07:00
XMP Toolkit                     : Adobe XMP Core 4.2.1-c041 52.342996, 2008/05/07-21:37:19
Metadata Date                   : 2016:06:25 10:16:32-07:00
Producer                        : Adobe Acrobat 9.0 Paper Capture Plug-in
Format                          : application/pdf
Document ID                     : uuid:8c51916c-3316-3043-abac-601e19a83991
Instance ID                     : uuid:8b65bc71-eaa5-0443-8c1e-24133c4f0db7
Page Layout                     : SinglePage
Page Mode                       : UseNone
Page Count                      : 395
EXIF Metadata provided by EXIF.tools

Navigation menu