Digital PDFs

XX-7265F-CC-1

May 1975

63 pages

Original

5.0MB

Document:	PDP-15 System Software Program Solutions
Order Number:	XX-7265F-CC
Revision:	1
Pages:	63
Original Filename:	http://bitsavers.org/pdf/dec/pdp15/PDP-15_System_Software_Program_Solutions_1975.pdf

OCR Text

mamanmn

PDP-15
SOFTWARE
SYSTEM
SOLUTIONS
PROGRAM

PDP-15
SYSTEM SOFTWARE
PROGRAM SOLUTIONS

digital equipment corporation • maynard. massachusetts

The information in 'this document is subject to change without notice
and should not be construed as a commitment by Digital Equipment
Corporation. Digital Equipment Corporation assumes no responsibility
for any errors that may appear in this manual.
The software described in this document is furnished to the purchaser
under a license for use on a single computer system and can be copied
(with inclusion of DIGITAL's copyright notice) only for use in such
system, except as may otherwise be provided in writing by DIGITAL.
Digital Equipment Corporation assumes no responsibility for the use
or reliability of its software on equipment that is not supplied by
DIGITAL.

{S)

1975 by Digital Equipment Corporation

The following are trademarks of Digital Equipment Corporation:
CDP
COMPUTER LAB
COMSYST
COM'.l'EX
DDT
DEC
DECCOMM
DECTAPE
DIBOL

DIGITAL
DNC
EDGRIN
EDU SYSTEM
FLIP CHIP
FOCAL
GLC-8
·IDAC
IDACS

INDAC
KAlO
LAB-8
LAB-8/e
LAB-I<
OMNIBUS
OS/8
PDP
PHA

PS/8
QUICKPOINT
RAD-8
RSTS
RSX
RTM
RT-11
SABR
TYPESET 8
.UNIBUS

. PAGE -

PRPGIUM C#1 )· COUNTS ··~-OF ~_eITS ..-_-,:!'f;'.:iN_\~o.a.w_.··

COUNT-\ SR-c:·_-

·- - '

.._ ,: -:·-. _:· .'· .. ·_ .': ·-· . .

_-., . - . -•. · :._ ·_

~T?TL;E: .ltROG:;u_M --cin. etiu·~~,.$ ., ·OF _·:eiTs: _: 9·E.T. r.N- .08W
cur .--8!-JS >a!T _:T_o:-:·1 ·u.f TME_:_QATA.

/PROGRAM COUNTS TM! NUMB!R

/SltfITCM ·REGISTER; . 8V ROTATING :tH-f-:\l~LU!.-THRCUCJ,H. T~f:

/AC AND C'HECKIN·G TO .S!! -IF.· ert -1~ I! .s·e:.T.-' ··THf!)t!SUlT·
/IS PLACED IN Tl-ii A-CCUMlJl.ATOR SO ::THAT: ·?T- _.ti_ .OIS.PLAY-fD
ION TH! CONSOL! 1.IGHlS.. WH!'.N. THI! . ft:Ft:QGR-Mf: ~·:(.._TS~
.
1-.

STAR't

.:QAC T!$T

0000!5 R UJ0022 ·11
e019oi1 R 5HJ02f5 R

I
N!XT:: ·

ICL.~•R

SZA

?SZ 8!TS
L..t.C T!ST-

"Ff
I

10011!5 R 4411H'l24 -·R

IG!T Tl!.ST

/RQTAT! -1 PL4CE TO:TH! ~lSHT~
Jri~~PL.AC! VA~.!JE 0,. T!ST.

II!! !·I' DO!lt'i,' .18 T!.M!i V!T~
/NOT D_llN!~ . GO BACt< FO·ct N!XT._ SIT~

ISZ. COUNT
I

10017 R 200023 R
00131UI R 740040. A
100121 R f.500000 R

\31Ul22 R e.1000J021 A
00023 R 0"21000 A
00024 R iU.10000 A·

18KlP IF JC10~ . ·
I eIT 17 • b i 0- AD 0 l .T0 el'i' s ~

o•:c TEST

-J~P

10QH8 A 80011{119 .A

N!XT

ID I SPLAY .fUT COU·NT IN· .AC~
/AND HALT~ ~t~ tONTlNY! TO GO

I.AC BITS
to!L..T

ISACIC AND GET AN.OTHE.R VAL.Ill~ .

JMP START
I
TEST
SITS
COUfllT.-

LOCATION ~IlS 1~. ?!RO~ .

IS!T ·RID OF ALL BUT iUT- _l~.-.

IOA

/LOAD AC WITH TEST.

I.AC TEST
· UIO (t

I
00010 R ., 4021ll0
00011 R 4400SZ:S
R 218rHl22
"'"" 12
741Hl20
fl0113
10014 R 040022

- .

/PUT- .;.18 DECIMAL. INTO ··Ac· ·
, -/AND S.TOAl IT·. HI C.QUN'•

L.AW •22.
DAC COUt.IT
OZM BlTS .

·.

18.V! VAl.U!· IN T!IT:·

00005 R 11UH23 R

.·

/~OW FAST --ARE . V.OUf -·
_/lllEAD OAT.A SWIT.CHE$ INTO -AC~.

MLT.- L.AS

777758 A
QllUJlU R 040024 R

10103

. .. ..

P~OG~AM

IR!LOCATABLE
O.llUJ00I R 740.0.40 A
000HH R 751HHU A'""002 R 040022 ~

0
i?J
"1_

POtNTS Tn BE NOTED ••••••
1•1. WMV on W!,~EED"JM! HALT tNtTRUCT!ON lN LOClTfO~ 07
I

••••••

I• 2 • Wlot V %S THE R!

A " L. AW • 2:.?. 11 I N L 0 CA-Tl 0 N . 3 7 WM .-T AIt E TM

/ADVANTAGES OF USING A "LAW •22 11 INSTRUCTION tNSTfAD OF
/"LAC (•22 11 7
-

1•3. WME"-1 THIS PROGRAM IS 1..0AD!D, 1..0CATION "BTTS 1'
/LOCATION -23l IS SET TO ~. !UT T~E P~OGRAM Z!ROES IT
!ANVWAV WITH l

"DZM 81TS 11 tNSTRUCTIDN IN LOCATION s·.wHVT

/WHAT WOUlO HAPPEN ON A Sf CONG :~U~ OF TME P•OG~AM
/CWI1H A NON~ZERO VALUE IN T~E OJ~) WfTMOUT LOADI~G
IA FRES~ COPY O~ IT INTO. CORE! .

I
00000G!'
0002~

R 000001 A •L
Sii!Ull0Q!2e

.ENO ST•~T .

NO ERROR LIN'S

PAGe

COU·NT 1 f.'XCf PT CMECl<S FO!if QI ·AC:· I_N$T!~O .OF eOUNTING

COUNT A SRC·

.~ T ITLf · COUNT 1. EXCE flT· ·e "4!,Clt S
~0000

START

R 7400!40 A

ei0min t R 750004
OJ0~1'l12

R 04002! R

FDR ra AC tN"9T! Af'! OF

MLT
LAS
. DAC TES·T

I
001211'1!~

14011122 R

000Ql4 R 2UJ021

OZM BITS
I
N!'ICT
I

SNA

0010e R 741200 J.
(IJ0108

R eei001e R

~0007

R 50JtU2:S R

~00UJ

R 740200

1,.AC TEST

J'4P DON!

II S Tlitl! AC•ll 7 IF SO,. "ON!

/YES

•

00011 R 440022 Iii

180ME BIT

SZA

181(!1'

lSZ BITS

ICITM!Fhlt IE,. ADD 1

IF ~,I.! 1 IF ~OT fHT t7.

I.AC T!ST

0(1)012 R 200021 R
00113 R 74411121111 A

OAC

TEST

JMP N!XT

0001! A 6PJ0004 A
I

OONE

00015 R 200022 R
CU017 R 74!Ul40
00020 R 80111000 R

•

0ia1as

00!0000

JMP START
I

•

TEST
BITS
I

00012100 R
tll00J~:J

Ql0QU.101

I.AC B?TS
Ml,. T

eHUJ22 R l1110000J A

•L.

SlZE•0002•

".ENO

TO A:ns:

IG!T Tl!ST

!CLEAR LINI< B!FOR! ROTATINli~
ltMECt<ING P'OR AN 4LL 'ZERO AC

ltCl'lf

00014 Ft 040021 R

SET. IS I·T -.rr 17?

ANO. Ct

.l.

STA~T

NO ERROR l,.INl!S

IOl!P!NOS UPON Rl'ITATlNn "18
/tNTO Tl'IE AC,

PAGE

C0UNT2 SRC

(•2) C'OUNTS _-#• OF l'UTS- S:E.T tt.1 OSw

PROGAAM

. .

.TITL! PROGRAM t•~t cnuNTS ~ 01 "BITS ~!T !N nsw
/PROGRAM COUNTS THE·-~OM~!R OF BtT! S!T TO 1 IN THE DATA/Sli41TCi1 REGISTER, MUC·!h!G use OF TME MCI REGISTER •. Tl-IE

/RESULT IS PLACED IN T~! ACCUMULATO~ 80 T.~AT YT 18
IDISPL•YED ON- Tti4E CONSOLE l.,.IGH'l'S WHEN ptROlil'UM HALTS~
I
0

e00~0

scnm0

A8S

• LOC SliU!QJ0

~HHllrA 1

740040
750004

s210m2

8~200'1'

START

l.MQ

/MALT AND ENTER VALU~ ,ROM
/DATA SIMITCHE8 1
/PUT VALUE INTO MQ 1

OZM IUTS

ICLEA~_B?TS TO ZERO~

/LOAD lC WIT~ •ta D!C?MA~

MLT
LAS

50003

HHIJ017
I

!500"14

1777!5@

4.,AW •22

50~t115

05002e

-OAC COUNT

/AND ST,RE tN C~UNT.

CL.A
L.LS 1

/CLEAR AC ~CR. FI~ST TI~! TMRU. IG!T t BIT FROM TME MQ.

SZAlCLA

1sz cnurvT

ISZ BITS -

/SKIP lF AC•I• CLEAR AC~
·/AC ~or ~ SD ADD 1 TO BtTS,
/T!ST TO l!E %, DONE 18 T?MES.

JMP

/NOT DONE, GO BACk '0~ N!VT B?T~

500&116

50007

7!50000
8421601

NXT
I

50!0Ut
50~11

50012

7!!U120f!
450!017
450020
I
I

5tU113

6121007

~XT

50014
!50CH5
!50018

/D%SPLAV RESULT %N AC~
/AND GO BACK FOR ANOTHER VALUE •

LAC IHTI

21 llJ017
., 4004til
6t00HUJ

lofl T

IO!PR!SS CONT?NU! ~!V~

JMP STAFiT

!50017
!50020

0 0 llJ!.ll00
0at})00ei

errs

CDU1'¥T

- ••••••

POTNTS TD A! NOT£D ••••••

1•11 NOTE THAT T~E LMQ ?NSTRUCTION. IN 5P0~2 MAK!! U~!
·1nF T~E MQ REGISTER !VEN THOUGH NO MULTIPLICATION NnR
/DIVISlDl'll WILL B! PERFOf01ED.

TM! MCI R!GIITF.R IS VERV

/CONVENIENT FOR TEMPORARY STORAGE (WHY USE CORE
/~OCATlON WHEN THE MQ %8 ALWAVS T~ER!T)ANO •LLO~S FOR
/LONG SHIFTS tNTO TM! AC, VOU 1 LL FIND TH! US! OF T~E
/MQ REGIST!R MANDY ,OR CE•TA?N TVP!S OF CONV!RS?ONS~
I

1•2. NOTE THAT WMETM!R OR NCIT 4 SKIP IS PERFDR~!O WMEN
/LOCATION 00010 lS !X!CUTEO, TH! AC !S CL!~~!O,
I
WMAT IS 'IT 4BOUT TH! CONT!NTS OF LOCATION 50A1~
/MAKES TMIS SOT ALSO••WMV IS THIS N!C!SSAR¥7 (WHAT
ICAN HAPPEN ON THE SECONO TIM! THRU AFT~R L~D•tNG BAC~
ITO NXT IF THE AC IS NOT F%RST C~EAR!D71
I

050000

8IZE•f50021

.!NO START
NO ERROR LIN!S

PAGE

MOVE1

CDMM!NTAIV

s~c

MOYE!

.TITL! COMMENTARY ON MOYE!
I
I
I

•··········~··~···*······
•
POtNTS TO B! NOTED •

•

I
I
I

•

~·······~··············~

1•1. WMEN TH! SUBROUTINE IS CALLEO••

I
THE ~CCUMULATOR SMOULD CONTAIN THI NUMB!~ DF
/LOCATIONS TO SE MOV!O,I 0 E. TM! !!ZE OF T~f TABLE:

TME LOCATION FOLLOWIN~ TME ttJMS 1 CALL SMOULD

/CONTAIN THE Fl~Si LOCATION TO BE MOV!D CTM~ FI~ST
/AOORESS OF TME O~IGINlL TABLE).1.e. TH! SOURe! AODR!SSa
I
TME N~XT LOCATION SHOULD CONT~IN THE AD~RESS TO
IWHICH T"E TABLE IS TO BE MOVEO CTHE FIRST lOORESS nF
IOF THE NEW TABLE), I.Ea TME D!STtNATION ADDRESS.
I
ICAL~ING

LAC CTAeLE SI?!~

SEQUENCES

JMS MOV!i

I
I

CSOU~CE

(rESTINATION

ADO~!SS'
AOOR~S8)

/FOR

EXAMP~f••

~AC

(~00

JMS MOVE1
1450
lTRAILING
3120
. JARGUMENT8

I
I

/STATES TMAT Wf WANT
/TO MOV! eoNTF.NTS
/OF LOCS i45mni841
/TO LOCS

!120•~317.

ITH•T IS, 4 TABLE 2~0 LOCATIONS LONGa TM! O~I~INAL TABLE
/STARTS 4f LOCAT?ON 145~ 9 THE NEW TABLE START5 AT 312~.
I

TME RETURN "PC" (THE ADORESS OF THE LOCATION
/FOLLOWING TME JMS INSTRUCTION) I8 STORED ev THE ePU
II~ THE FI~ST LOCATION OF TH! SUB~OUTlN! CMOV~1~.
1~2.

I
l•~a

THE

SUBROUTIN~

USfS

T~XS

TO PICK UP VALUES

POINTE~

/WHICH FOLLOW TH! JMS CALL CKNOWN AS

TRAILI~G

A~GUMfNTS'

I
I•~.

THE "ISZ" INSTRUCTION

M~KES

IT VERY NIC! TO USE

IN!GATIV! COUNTERS FOR LOOPING tSET COUNTER TO '-'S
1eoMPLEM!Nf OF# OF TIMES A P~OCESS IS TO BE PERFOR~!O)~
/EACM TIME. A LOO~ OF PROCESSING IS COMPLETED, X~C~f~ENT
ITME COUNTER av 1. W~EN THf COUNTER G!TS I~CR!MfNTEO TO
I~, THE "lSZ" ALSO S~IPS AN INSTRUCTION ALLOWING TH!
IP~OGRAM
/W~EN

TO GET OUT OF THE LOOP~•THUS DETER~IN?NG

THE ENTIRE PROC!SS IS

COM~LETED.

I
1•5• IT IS TH! SUSROUTIN!•S RESPONSA8ILIT¥ TO

UPD•T~ THE
IPOINTER,MOV!i, ENOUG~ TIMES TO POINT PAST T~! TRAILING
/ARGUMENTS SACK ?N T~E CALL?NG ROUTINE tHERf VIA "ISZ")e

1•6. TME $U8ROUTI~E RETURNS TO THE CALbING
l"J"P•" T"RU THE PlR~T LOCATION (MOVE1l.

~OUTINF.

VIA A

MOVE1

PAGE

SUSROUTIN~

SRC:

r•t)

HOV!S SLntKS OF Cd~E

.TITLE SUBROUfINE

(*1~

~OV!S 9LnC~S

OF CORE

I
I
/E~AMPLE

OF MOVE SUA~OUTIN! WHICH MOVES
/BLOCKS OF COR! LOCATIONS (TA!LES'•
I

SEQUENCES

IC•Ll?~G

L.~C

(T•SLf

szze:'

J..-S MOVE 1

CSOURf.:! AOO~f5S'
roESTINATlON AOOR!SSl

I
I

I
I
~OVf 1

I
~flJ0'1!711

740~31

~HHrn2

R el4002QI

i:;

~00~3
000~4

R 22000~ R

R 0~0021 P

/DEVELOP NEGATIVE
/FOR A LOt:'IP'•

LAC* MOVE'.1
OAC SOUf<CE

/G!T SOU~CE AOO~E!S~

ISZ MOVE1

/ADD 1 TO RETURN "PC" S~ TMAT
l!T NOW POINTS TO NfXf ARGUMENT
/GET OEST!NATION ADDRESS.
/STOR£ IN POINTfR.

000£'!5 R 440000

t,.AC-t MOVEt

1/100"'6 R 220fil0V! R
0!00'111 R PJ .. 0022 ~

OAC OES'f I~
I

\'!!@\H0 R 220P21

~0011

~601i122

t10v.112

ll 4400121

r.!l(HI 13

44'002~

l..AC• sou~r:e:
OAC!• OESTIN

ISZ SOU~CE
ISZ DESTIN
I

00014 R 440!11120 R
l'Jlt.l\~ 15

R :ll001i10QI II

I
TASl..SZ
SOURC:E

0
0

Ol!STlf\!

00H'l@0f?I A
SlZE'•f.ll00!23

/LOCATIONS IN OLD

~~D

NEW T•BLES

IOONf 1 MOVEi SHOULD POINT

JMF!'ll!r M0\11!1

0111~22

/AOP t TO LOCATIO~S sau~eE ANO
/DESTIN SO THEY' POINT TO NE>tT

IS? MOVft
I

~0021

/MO\IE1 TABL.ES111

IAOO 1 TO NEGAT!V~ COUNT
/ARE Wt! OCINE?
INO••GO SACK FO~ MORE

R 61'}!i2JlflU p

R ~00001? A
~ 0~~~~e A

/STORE IN A POINTER~

ISZ TABLSZ
I

~0020

SJZ~

TCA

OAC TABL'§Z

.,END

f~~OR

L.INES

/TO

LOeAT!O~

AFTER

AR~U~ENTS

IFXIT••R!TURN TO CALLING ~OUTINE
/VIA TME ADORES~ STDR!O IN ~OVE1

I
I

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

•• POINTS TO BE NOTED ••
•
•

I
I
I
I
I
I

··········~····~····~···

T~E~E

1•1.

ARE TWO

M4JO~

~IFFE~!NtfS

B!TWEE~

/SUBROUTINES MOVE1 ANO ~OV!21
I
I

OF PROGRAMwq
RE!..OCATABLE VSc A!§SOL!Jfl! 11

A'TVP~

I
I
I

nF ADORESSING us~o-~
?NO!RECT VS. 4UTO•INC~E~ENT~

~'TYPE

1•2. MOVE1 IS

1np

~ABS

l~ITM

ANO

pqoGRAM CRECAL~ T~! AB!E~CE
LOCATIONS USEO STARTED

P!LOCAT~B~E

.1..cc STATEMENTS).

RE~OCATA8L!

P~OGAAM

MOVE2 IS AN ABSOLUTf

I.ASS ANO .Loe STATf~ENTS,.

(NOTE TM! U9! OF
LOCATIONS USED STA~T WJTM

IASSOLUTE 100,.
I

1•3. MOVE1 MAKES us~ OF INDIR~CT ADD~ESSI~G~

IT ~ETS UP
/LOCATIONS SOURC! •ND OfST!N WITHIN ITSELF. ALgO, TO
/UPDATE THES! POINT~RS !T MAKES USE OF "ISZ SOURC~" AND
l"ISZ DESTIN" I~STRUCTIONS 0
I
MOV~2 MAKES US! OF AUT09I~CRFMF.~T ~OORES!?NG.
IT
/SETS UP ABSOLUTE LOCATIONS 10 AND 11 AS SOUR~E AND
/DESTIN ~ESP~~CT!VELV. THIS MAKES FO~ A SMA~LE~ PROGRAM
18ECAU5E LOCATI~NS 10•17 ARE "RESFRVED" FDR AUTO~
II~CREMENT AOORESSING ANV~AV (I.E. TH~V APE NnT NOR~ALLV
IUSEO TO
/~SE

HO~D

E~ECUTA~LE

OF THEM TO

lwITMI~
/A~SO,

~DLO

!~STFUCTIONS),

SD~"'

NOT

~~~E

VllUfS (RATHER THAN TAKING UP SPACE

THE SUBROUTINE).
6ECAUSE THE¥ ARE

AUTO~INC~E~ENT LOCjTtONS. ~OVE2
/DOESN'T NE!O "lSZ SOURCE" ANO "ISZ DESTIN" I~ST~UCT!ONS

/LOCATIONS

SOit~CE

& OEST?~

18V 1 BEFORE BEING IJSl!D AS

Ar~E

AUTOMAT?eAU.¥ 'fNCREME'NTEO

PO?NTE~S
~EGIST!RS

(SUCH IS

Tl-4~

FATE

WHEN USED WITH INDIRECT
/ADORESSl~Gl.
~~KE SUR~ YOU UNDERSTAND TME PURPO~E OF
/THE "~A~ •l" l~STRUCTIDN USED IN LOCATIONS 1~3 ANO 107~
IOF

AUTD·INCREMF~T

PAGF.

SU8~0UTt~E

C•2~

~bves aLOC~S

OF eoR~

.TITL! SU8ROUTINE (#2, MOVES BLDC~S O' CO~E
I
IE~AMPLE

IS~OCKS

OF ~OVE SU~ROUTIN~ WHICH MOVES
OF CORE
L~CAf?ONS CTABLES3.
.
.
.

/CALLING SEQUENCEI
I
I

CT48~E. SIZE'
MOVE2
(SOURCE AOD~ESS,
COESTINAT?ON AO~RESSl

~AC

J~S

11l111ALSO SEE f~PLANATORV NOTES ~N PREVIOUS
111111FOR SUBROUTINE MOVE1.

PA~EB

.ABS

.Loe 10r

ot~1Qlt71

I
~~10t0

00910li.11l'I

110VE2

t7I

IO!VELOP NEGATIVE S!Z!
/FOR LOOP.

(11V'1Vl1

101031

00102

04012P.

QJl'l\103
001 Cl!4

777777

I.A~

36~1 l.lll;ll

TAO• MOVl!2

~01~5

040L'l10

/GET SOURC! AOORfSS
/STOR! IN A POINTER~

ISZ MO\IE2

/ADD 1 TO RETURN "PC" SO TH~T
/IT POINTS TO NEXT AR~U~ENT.

TCA
OAC .TABL SZ.

I
•1

OAC SOUf'CE

I
;:~HH1116

44010Q!

001~7

177771

00110

,HHJl1~0

TAOw MOV!2

0~111

Vl.CQIQ! 11

OAC OF-S'f IN

IG!T DEST!NATION AOOR!SS
/STORE IN POINTER.

Cll0112

22~01121

I.AC• SOURCE

n~ove:

0"-113

060011

00114

440121?'

lSZ TABLSZ

IAOD 1 TO NEGATIVE eOUNT
/ARE'. W! DONE?

00115

60!01.12

JMP MORE

l~O-•tO

00116

440100

IS! MflVE2

IDONE••MOV!2 SMOULO POINT

I.AW •1
I

MORE
I

I
I
0P1\7

f52~ 100!

tJJ"11 l a0

0tll0ill01il

TA8L.Sl

i'\li}liJ10
0!0!17100~

l{lf,111?111

A00'1HA0

SOURCE'
!)ES'f IN
I

011!011101"

SIZ!•llHU21

/TO

B•CK FOR MORE

LOC~TtONAFT~R

ARGU~!NTS

IEWIT••AETURN TO CALl.tNr. ROUTINE
IVIA T~E ADDRESS 8TOR!O IN ~0Vf2

I
I
'-'tAlH0

TASLES 111

OAC• DESTIN

.END
NO ERROR 1..INES

PAGE

.TITLE P~OGR4M

r#t)

TO READ ANO REVF~S! OCTAL DI

GET A SIX PLACE OCTAL NUMBER FAOM THE DATA
A~O REVERSE T~E OCTAL NUMBER.
I E~AMPLEI VALUE FROM S~ITC"ES • 123456
I
RESULTANT VALUE
• e54321
I
I

~WITC"~S

.ABS

.Loe UH

91~1~0

I
~~1 "'0

START

1 OJ040

!-ii., T

ilJl)l 1~1
"~ 102

,. 420~('1

'~103

040122

~Vlt~•

!500123

i7J011il5

:i\40121

01A1('115

2tll0122

~1610!7

641506
500124
J40121
040121

I GET VALUE FROM

1.,,AS

7!51iHHU

SWHA
OAC Tf'MP•

SWtTCH~S

A.SSUME VALUE IS 1~3439

I
I

4ee1~:s

4!515123
0!500!2A
050IC112tll

ANO

(7007!.ll

IH·C F?NAL.#

1..AC TEMP
I.RS f5
ANO (70CA7
TAO FINAL.

I
I
I
I
I

I
~0110

09' 111
00112

OAC FtNAl.,
l
T~MP

4~6123

004561
IU!40JOH
0540'21

054Pl21
4!5fH ~3

~ill 11 ~

200122

L.AC

0'11tt 4

54t2160e

0r111 U5

50012!5

"'~U6

340121

Ll.S 6
A.NO (10111700
TAO F! NAI..

I
I
I
I

00117

1401/14P

I'll. T

/OI5PL4V RESULT IN AC

612323
eei030~

954321

I
I
~rt'l 120

JMP

6(11010~

START

I
.ENl'.I START

~0m10oi

07 00,7p

•L.

00124

01'179107

0!~125

7tJtQl700

•L
•I..

0""U~3

SIZE•~012fll

NO ERROR l..IN!S

/HIT CONTJNUE T~ GET ~ACK Tn
IBfGIN~tNG FOR ANOTMEq VALUE.

REVRC:2 s~c

PROGRA~

(#2, TO REAO ANO REVERSE OCTAL nIG!TS

I
I

I
I
I
~OIQl!'A0 R 740040
Ol0i/J"'l R '111712
000JP2 R 0400115
00!2103 R 750004

"°'0914 R 7421820

A
A
R
A

~EVRC:i

•

00005 R 74201~ A

/AL.LOW SETTING OF DATA SWITCHES

HL.T

L.Aw •6
OAC DIGITS#

L.OOP

000Cll5 ~ 14201Q'! A
012111107 R 74201~ A
~0010 Fi e40S03 i

/SET fS DIGITS

I.AS

/READ IN DATA SlllITCMES

RTR

/MOVE 2 POSITlCNS RIGMT sn nuT
/FIRST OCTAL DIGIT ts e !HTS OFF

i:ITL.

/ROTATE 6 LEFT TO 8RING
/MOST S!G~IF, C.HAR TO Ll!AST
/SIGN!P!CANT !ND OF At!

RTL.

RTL
LRS 3

/PL.ACE IN MQ

ISZ OtG!TS
JMP LOOP

/T!ST !·ND
/NOT DONE

L.ACQ

IOISPLAV

HL.T

/ON HALT

JMP REVRC2

ISTA~T

I
00~11 R 440016 "
i1100l12 R 601iJQl05 R
;].!~~' 3 R 641002 A

VET••GO BACI< FOR ~OJ!tf

0'1014 R 7400!40

I
~lillu.tt5

6001i'0P. R

I
000111!0!~

S?ZEmtit0~17

.ENO REV"C2
NO ERROR L.lNES

AGAIN

UNSlG~EO

MPV

MULTIPLY RnUTINE

, TITl..E

UN~IGNEO

Ml 1LT!PL:V ROUTINE

.ABS
I
START

74~04~

7 5QJ0tU

I.AS

'10~0!2

~40ti147

OAC

l1j0Qlfi!;!

740Cl!40

~~(11til4

1~QIOl04

loll T
I.AS
OA.C

"'~~rr.5

~40'1150

"t"lt'ltH)

t40Ql53

?I~ \ltll'l 7
:AQl~1!11

2'1HH'l41
04QJPl5t

01~011

2()1Pltll!5~

L.AC

~01'112

0400!5~

OAC
TCA
TAO
S,_.A

:ilftl013

1401i'131

Qlfll!H 4

340Uil41
14010L'I
61110023

~Mll!l
~0~16

?1~017

200ft'5PI

(ll!.#l".JJ20

1140051

O'ZM
1.,AC

OAC

A
R
PROO#
A#
MCANO#
R#
MPL U!RM
A

A801<

LAC

OAC
L.AC
OAC

MCANO
A
MPLIER

LAC

MPL?ER

2CHH~47

~eiQl22

J.1400!52

0Vlli.l2J
~ i.Ar;,2 4

2CH'J0!52
141200

?l~t1125

600~44

JMP

~rf,ii,J26

50'11054

ANO

910:il27

740l20QI

St A

JJ1r1713Cll

6CA0040!

ABOK

/ASSUME A~B,
/SMA~LER

5NA

llONf
C1

~ENCE

NUM8ER BfCOM!S

l~UL.Ttl'LIER

/~!GATE B ANO Ano A:

/IF

JMP

·~0~~1

TO ALLOW ENTRV nF
/VALUE FOR A ON S~ITCHES.
/STORE !N 1.0CATJON A. 8
/~A~T TO AL.LOW fNTRV 0,
/VALU! FOR B ON SWITCHES.
/STORE JN LOCATION 8.
/CLEA~ RESULT AREA.
/~ALT

1-iLT

~0~f.ilOI

~li\0r;,1

SU~

MINUS,

REVERS~

/SINCE B>A REVERSE FU~CTION
/OF A ANO 8 AS MPLifR AND MCAND.
I

/GET MULTtPL?EA
IIF MPLIER•0, ALL. OONf

JMP

AOrl

/GET BIT 17 OF ~PLIER
/ANO SEE IF IT JS 0~
/GO ADO IN ~CANO TO PROD
IGET MCAND ANO SHIF'

SHIFT

A,~

IA•B, OK AS IS

~NE

PLAC!

~01031

2li'IVJiil51

LAC

"lCA.NO

~0fJ!32
?lfil~.33

144P.l 1PI
"140!1151

RCL.
DAC

MCA.NO

~lil\1134

2\i!Ql9152

I.AC

MPLtEA

'hH~35

744!f!2~

~CR

~~.lli{'Jt5

J40052

OAC

MPL?!R

"'""i2l31

ISOIQJ'-'23

JMP

ASOI(

JGO BAeK FOR NEVT BtT tN

:{1Jl~ill0

2~01i!5J

0~~41

34vHH51

l.,AC
TAO

PROO
MC,ANO

IBtT 17 OF MPLIER WAS NOT 0,
IAOD MCANO ANO STORF TN PAOD.

OAC
JMP

PROO
SM!FT

IGO SM!FT

L,AC

PROO

00042

040V"53

i110:JJ43

600Pl~1

/LEFT FOR NE~T TI~E T"IRIJ

/GET MPLIER AND SM?FT O~f PLACE
/RIGMT FOR NE~T T!ME TMRU.
I

MPL!E~

~PLtEA.

ANO MCANM.

I
l)ONf

)J~~44

21110053

r,ljli\'1145
'l!CAQ! 46

1411104()1

HLT

6C!IQIOl"'P

JMP

!!!TART

I
ll'lrAli'lr,,'!QIOI
~"'~~Qli
•I..
SIZF.•1'10~!55

.EN" STAAT
NO

E~ROR

L,.!NES

IST~P

TO EXA~!NE. PESULT tN AC~

/C~ANGE

A ANO 8 •~D on

AGAI~.

C!OSRC'.i1 SRC

oan SEARC~ PR08~EM

,TITL.~

IA PROGRAM TO SfARCM 120•1!~ FOR
1000 NU~BERS tN THE ~ANGE OF
1xiwx~t TO VX~X51, TOTAL STOAEO I~ AC
1400RESS OF E~CM STO~EO IN A T4BLE
ISTAIHll'JG AT
I

~01'1

.L.OC 40l'
I

'5000111!

START
JMS SETUP
PTR1•10

001.l!0! 11

PTR2•11

U1041el
0ft.4~ l
~04~2
9104'!'1~
~04~4

·0~403

QJ04~6

0~407

00410

220!111QI

L.AC• PTRt

,t.!10431

A!'.10 (71

34041132
1Ql041 t
440427
800401

SAO

(!51

JMS FOUND

xsz·couNT

JMP .•!
L.AC H!TSM

20043P.
7 40!0.SV>

/S!T UP VARrA~LES
/GET • NUMBER

/LOOK FOR 000 erT
/ANO THE NUM8ER "50"

/OONE WtTM SEARCH?
lfi..10

IVES

~LT

/SUBROUTINES
I

FOUND

Ql~411

~Ql~Ql0Q!

~0412

20Jl~ 1 p.

1.AC PTR1

0Pl413

060011
44043P.

OAC• PTR2

~IA415

e2~• 11

JMP• FOUNI">

OJQl41G

~l71LlJl'l0fA

0r,,417

1A'11430

0"11420
0'11421

2(110433

00422

0"1CHH 1

!UC PTRCP

00!414

~•rn01v

o~c

PTR1

2910434

L.AC (177

·1JP!4~!5

~40"127

-1l!0. ·~6

62111•1e
011.10071

~111432

ti.1000l51
011.10117
0!00177

0~4~4

/SETUP SOURCE TABLE
/SET

•31
OAC COUNT
JMP• SETUP

771747

U143t

/PRESET HITS TO ZERO

C117

TABLE OF RESULTS

1,.AW

COUNT

·~H

.ENO START

12100400

.a'1433

Mt TS

0rue•
"00427

I
:iETUflll

OZM
L.AC

.,.,.,., .,

. 0,111.14 2 3

ISZ ~ITS

/Gf!T AOD~ESS
ISTOR! IN T-'BLE
/L1POAT! MITS

•I..
•L

•t..
•I.

S!ZE•~0435

ER~OR

~lN!S

/SET UP TABLE SIZE

•·

PAGE

TSLLK

T~Bi~ SEARC~ PR09LEM

SRC

.TITLE TABLE S!~~Cfol PROB~E~
IA PROGRAM TO ACtEPi A ~UMBER
IF~OM THE DATA S~tTCHES,
/SEARCM FOR THE 1ST WD~Dco.s.
/hi

L.OC~TIONS .. 400•417

• .ABB
I

• LOC tlf'IL'!

Q!ll'I 1 ~0

$TOP

/AL.LOW OPFRATOR TIME TO
/SET TME DATA SWITCHES

foll i'

~1111POI

., 40Q!40!

001~1

1!500et'1

\ll~H02

1•00~1

LAS
TCA

001?13

040121
200123

DAC ALPl-IA#
I.AC C311

0ir. 1 ~4
001~5

OAC PTFf

~40010

PT~•10J

000111.110
'1101ii'6

117'1VJ~

0ft'l 1~7

~40122

~(.l! 11 ~

00\13

22Hl1Q!
3410121
7!51100
600111

"0lt4

440122

~~115

t500l10
740040

01:4111

00112

0('1116
Ull 11

h'll 20

I.AW •100
OAC f AL.LY#i

•NG

tSl TAL.LV:

FOUND

2Pl910! 1 ~

SlZF.•Clt21124

NO EP~nR

/EXAMPLE CF ASSIGNED V~RIABLE "M
IE~A~PL! OF 4 LITERAL "t"
/SET UP 'AUTO•lNCREMENT
/EXAMPLE O~ A DIRECT ~SSIGN~E~T
/SET UP TABLE S!ZE TALLV
/GET ANUMSER FRO~ TABLE
ICTABL!,+•CAl•R!SULT
l~ESULT•C•l

IVES

LI~ES

AcOR•CTABLE'

l~ESULT•C•l A~(TABLE)
ISEARC~fD WMOLE TABlf1

/NO

ML.T
1.,AC PTR

HL. T
.ENO STnP·

74121040

000377

1.•c• PTR
TA.0 ALP MA
SPA1CLA
JMP FOUND
JMP ANG

0Hl10~

QJ0123

15fT UP AL.PM.A. [•U

COMMENTARY ON
I
I
I
I
I
I
I

S~UARE

•*······················~·
•
POINTS TO BE N~T!O •

1•1. NOTE TMAT T~E PROG~AM IS LOAO!O AT 2~0~0~ THI! 75
ISO THAT IS ODES NOT G!T LOADED OVE~ tHENCE.OVEALAY,••
ICOLLOQUALLY KNO~N 45 CLOBBERING) TM! MONITOR~ AT THE
/END OF TME PROGRAM WE JUST RETURN TO TME MONITOR U5lNG
!"CAL CODE !5" CTHE MONITOR HAS A ROUTINE TO ~ET!RM!NE
/WMICH "CAL ROUTINE" ?S 8!ING ~EQUESTEO. I~ TMt! CASE,
/MONITOR ROUTINE 15 IS AN !~IT ROUTINE).
I

1•2.TMIS PROGRAM MAK!S USE OF AUTO•INCR!MENT ~EGIRTfR t~
IO~CE A SQUARE IS COMPUTEO, IT IS STOR!O IN A TABLE VIA
/INDIRECT ADO~ESSl~G ON LOCATION 10 (NOTf "OAe• 1mn IN
ILdCATlON 2~~12'• TH?S TABLE STARTS AT ~OCAT?ON ~0P~~.
ISUT ~HEN AUTO•INC~EMENT PEGIST!RS AR! US!D INOY~fCTLY,
IT~EV ARE PRE·l~CREMENTEO.
~ENCE, WE MUST SET UP
IA8SOLUTE LOC 1~ TO CONTAIN "20171"• FIRST, WE LOAO
1"2~177" INTO THE ACCUMUL~TOR (TH! "LAC (20177"
tN
ILOCATIO~

2~0~~l.

I
I

NO~ THE PROSLF-M IS TO STORE TMIS VALUE !N ABSOLUTE
/LOCATION 1~. W~ER! WOULD TME VALUE "20177" AE STORED
IIF THE INSTRUCTION IN LOCATION 2P0~5 REAO "0AC 1~"'
1r~lNTI ~HAT BANK ~OULD IT 8! INT)

I
I

NO~ LET•S ~OOK AT TME ~OAC• (10" INST~UCT?ON JN
/LOCATION 200M~. THE ASSEMB~ER SETS UP LOCATION ~03~A
/TO CONTAIN A "1~" C~HVTl. THE INSTRUCTION "DAC• C'0"
II~

~~S~~6~ED

05~~P4

(P0~

l1~

~00

JAC INTO TM£ LOCAT?DN POINTED TO 8V
''~304, I.E. ABSOLUTE LCC•T!ON im 0

I
I

100~

txx xxx ~xw xxx xx~
~~v vx~ xxx ~x~

IX~~

v1~

/XX~

xx~

000

~11

~0m

10P.

0ft

10~,I

• DAC
• INOIR!CT AO~RESSING
• VIA LOC 3~4 ?N T~!S ·
BAN~.

~0~

L~CATION

BUILDING A TABLE OF SOUARrs

SQUARE SRC

PAGE

BUILDING A TABLE OF SQUARES

.TIT~E

IT~!S PROGRAM WILL BU!L.0 A TA6~E OF SQUARES
IFROM 1 TO 10~ COCTA~'•
IT~E TABL.E STARTS •T LOCATION 20200.

ITHf 8UlLD?NG 0, THE
/FACT THATI

TA~Lf

OF SQUARES IS eAse:n upnN TME

ITl-fE NT!ol SQUARE
1
2

2
2

NTl-l

ooo ~

SQUARE + THE

111

Ill

I
I
I

Ill

•

111114

...
•

1119

•
ETC

C: l.. A
OAC N)(TA!

2U'.l~rll0

200fll 1

2 ~ ;aoi 2

7400)30

IAC

20QIV'3

ii1!4030~

OAC OOOdt

/000 STARTS AT t.

L.AC (2017'1

/STORE TAB~~ AT LOC 2~2~0
/VIA AUTO INC REGtSTE~ 10

I
~li'l~f!'4

200303

2\"109915

i?J6GIJ304

IHC•

I
,0,;lJC!'l 6

17710(/i

2(1;0(,ij7

04030Ci'

2Vi i)j 1 [fl

2CH~30 i

2~011

340~02

:?iH.112

06QJ010

I
SQF«

L.AW •100
OAC C:OUtvT•

/SET UP COUNTER
/COUNT 100 TIMES

L.AC N)( T
TAO ODD
OAC• 10

I
91
1
I
i
1'1•3•.d
I !21:1!2fiHn • 1 C20l20!
•A

OAC NXT

20013

040301
I

one

DAC 01".10

I
I

20'!?! 14
20!'.I ! 5

2V'030~

L.AC

340305

TAO C2

20~16

!!}40~02

LOOP.

T~RU

4
'4+5111;
r2~21112, 1119

we DONE?

2vl\H 7
:20.1120

ISZ COUf\ T

/ARE

60lc-l~1QI

JMP SQR

2~:1121

740040!

"IL T

20022
2012123

00!~0!/ICll

CAL..

/VES•wCMECK TABL! VIA C~NSOLE.
/GO BACK TO TM! MONITOR 8V
/~ITTY~G CONTINUE SWITCM

440J0fi'

000!il1!5
I

.LOC

2021i'!lll
20:2Ql0

.END STA!itT

Ol20~0QI
~gtJ~3
Ul3~4

:?0305

~0~0~

.19l.OCI< 1 lil&ll
11201"7
•i1000111'1

•L.
•L

01'100A~
•L
S!ZE•2')13~B

/NO~~so !ACK ~OR MORE~

SRC

,TITl..E SORT RDUTlNE
I

l••SUHROUTlNE SORTS YAl..Uf5 INTO ASCENDING O~D!R
/••Ar rIM~ Of ENT~v. (AC)• T~E NUMBER OF ~OROS TO Bf !OR
(MQ)• AOO~ESS OF BUFFER TO 6E SO~TE

I
I
e GL.08L.
.1~~~Vi
~:?Jil,)01

fol

~ 3 iC ~ ~111

w 340041

AG~IN

TAU c• 1
OAC COiJNT.tt
I,, Ar;; C:OtJNT

ll0ti:H1~ R Vl4iti041 loi.
iilet\C;1J lo( 2illl!?lll41 !'(
ld0i0014 M 7 4003 l A
w:ltiHH1b to( V1411li.IJ4ti
1r.H'l f0 0b ~ 141t? 1ll4..Z R
t(Jfc·~~I !( ei41;102 A
~.ov.~1(1? ~ ~ 4 ltJ\.1 t4 J R
idk'illJ11 R 7 4i0031d A
itl0ill 1 ~ R 04l()l.144 ~

/USE TO POINT TO NEXT

UAC PT2i:t
I
L.OOP

TCA

tl0ir.1l~
dlii'itl10

R 3bll'.li.144

TAO• Pi2

7411~\ll

SPA

l•A
/BRA

OK B~• SO OROf~ OK
/Ba4<0 MEANS A>8 SO SWITCH

ISZ Pf1
ISZ PT2
IS. Z \AIDCNT
JMP t..OOP

IPT1 NOW POINTS TO NEXT WORO
/PT2 NOW POINT! TO NEXT wORO
/ARE WE OONE'l
INO••GO SACK FOR MORE CHECKS

lo(

l..AC Fl. Mi•

"'~"17
''b\},!42~

IB-A~•0

~liJ\123

d~ld24

221~11142

.a lt11ll ~ 1 k
il!l01!11?2 R

eano

wo~o

JM$ SwITCt-1

R 1 ·~lt?fi'J31i1 R
4"111h:l4J
4 4 lt'll1 il14
441!'.li,1416
60113~ 13

CHECKS

LAC• Pf l

74~H.131

;.(

~05)•1

/PICK UP BUFFER ADDRESS FROM MQ
IPL.ACE IN PTi FOA LATE~ ~fFE~fNC

l..ACQ
OAC PT11*
lAC

~2~043

(NUMBER OF

TCA

~CHH4

itl

IH~VE

OAC WOCNT•
OZM F"I.. AG

"ill 1J R

SO~T

I
SQl(T

fl/
lo(

sz•

R 74!0201.1 A
iD
14'002b R 000l-10J R
(101ll27 R 620ilk:lill ~

/WERE CHANGES MAOE ON L•ST TIM!

JMP 4G4lfl!
JMP• SORT

/NO ••WEIRE COMPLETE~V DONE

SWITCH

R lil0~0VJ0 A
lle'.11:31 R 22!£!.llq3 R

~ei~31:?
~ill032
1!)~·~3.)

I-<

22\t!~44

OV'f034

¥J6kH..i4"'

Jo<

ll0rd3~

lot 2:lltllill40

R l?i1'1i1:;11.14

6~.137

44~042

ihh:l 4 V'

1-l

6!2003\!l

lo(

/GET LARGE~ VALUE
IMOLO TEMPORA~?LV
/GET SMAL~ER VALUE
/PLACE IN EARLifR fNT~V

OAC TE"1P'#
L.AC• PT2

OAC* PT1
TEMP
OAC:• PT2
ISZ FL.AG

l..AC

ill !"VJ3i:1

!ti

L.ACw PT 1

R l?J40d041!.'> R

/PLACE LARGER IN 2NO
/SET FLAG TO SHO~
/SWITCH TOOK PLACE

iliiH:i 47

JMP• SlllITCM
I
I

"'la :lJ !1H~ A

777771

*I..

SIZl:.•0~'!15<1

.eND
!\iO

OROE~

ERROR 1..1 NES

E~T~V

LINED

!'AGE

SRC

.TITLF. LINE EOITOR
I
I

.ABSP
I
70VJ4CH

TSF•7Pl0401

700406
1~03A1

TL5•7004t1!6
t<SF117003i111

7011J312

1<~8•7~0312

0~1'110

70!0416

0~ 1e1

101162

~e1 P'2

11i1101fiP

i!ll.'I l ~~

1~0141

01i' 1 ~4
if.10\ C'!5

10014'5
50l27t5

(11171106
l7101frll7
Ol~U~

00111
~Q\112

OJ!t\113
~QI 11 •

.1..oc 1AP
Tl.9+1~

08A

JMS C~Lf
JMS S~TlJP
MO~E.

JMS

LIS~

SAO (?2!5
JMP LDL T
SAD· (~77

e"101Jl'I

540277
1500133

J~P

RUBt'lUT

05!H61.5
54el30(11

04C BUFF,)(

6i'i10116
12!5A01

JMP OUTPUT
AXS 1

t'l0115
001Hi
910111

600104
100U5P

~V.-120

2UH6~

0Ql121

10111ld1

~@123

100U5J
540300
61JJ0126

OJ(li124

72~001

~11'125
Ill~ 126
'1~1~7

r50012P
U1016P

1.101 ~2

I
START

SAO (2U!i

JMP MORE

OUTPUT

JMS CAL.F
JMS SETUP

LAC BUFF,X
JMS
SAU
JMP
AXS
Jr-tP
JMS

TVPE
C21!!'i
.•3
t
PRINT
Ci:lL.F

JMP MORE•1

6L'IU0:5

/INITIALIZE XR ANO LR
/WAfT FOR CHA~. FRO~ K8RD
/CHECK FOR SPECIAL CMARACTE~S
/AUi
!RASE ENTtR~ Ll~E
LAST CMAR.
ISTORE CHARACTER IN BUFFER
/IS CMAR, A C.R.7
/VES • ENO OF INPUT LIN!
/NO • ?NCRE~ENT XR, IF c
112 CMARS, GET NEXT CMAR.
/EC110 A CR, L.F
/PE•IN?T?ALIZE
IECMO ONE CHAR. AT A TI~E
l~USOUT

/PONE W!TM ENT?Rf LIN!

/RE.AO IN NEXT LINE

OltrH 3121
iJJ0131

715A~0~

~W1J2

600103

l.OLT

100U53

LAW

3~li'I

JMS TVPE
JMP MOAE•t

/EC:MO

'''"

ll!"11 ~3

76!11334

~UtlOUT

L,..AW 334

IECMC A REVERSE SLASH

PXA

J?F ~UBOUT IS FtRST C~Aq.
/OONT BAC~UP auFFER Pnt~TFR

111~1;,4

1~0153

JMS TVPE

~~135
~H" 13 IS

724CllA0
7 4020!!'1

SZA

~0137

7~1777

Q.!0140

6P!0104

AXA •1
JMP MCJRf

.EJE'CT

f:) /d';I;.

Lil\JED

LIN!: HH'fOR

S?C:
I

IS!JB~OUT INE8

I
1101.dt

a~:a0W'.111t

\llV1142

21i'031i1'1

0
1.,AC

:~f,11\43

722~"10

~AL

SETUP

00tA4

1350~'1!

CL >C

~0145

tHHH 41

Jl"IP111

ci 1 QI
~ET!JP

I
t1Hi146
rfl0147

L.IS~

·~1'!'10!00

7~03Pl1

~~151i.l

6tii0147

"'01!51

700312

t?ICiH f:i2

62PI 146

0it'! t 53
0V'l t 54

0~0000

1fll041H

i?lf>'l1'55

6~0154

l<SF

JMP e•l

i(RB
JlolP• l..ISN
I

~~VJ 136

7'?104106

t1J0157

620153

i(Hii i") 0

!d~0"1lll!G'!

"'0tfS1

760215

TVPE.

r1l

TSF
JMP • ""1
TL.S

JMPw TVPE
I

CRL.f

~:(1115~

1~211!53

1.,AW 215
JMS TV Pt:

01'11.53

76~2t?.

I.AW 212

Q.lil' 1~4

1fi'l01~3
eH~1a1ti0

JMPw

Jliii165

JMS TYPE

CRLF

I
0rA ttHS

~UFF

., BL,OCK

it~

,,ENn START

000100!
~~2715

vHHl22!5

.. L.

~V'f277

•L

•rn3Pt\i'!

00~377
~~02U5

itlel30'1

~01?111\'I!

•L

*I..

SI Zf 111P103t'l2

"' 0

ER~PR

L.!llJF.5

PRUG~AM

PTCOPV SRC

rn COPY PAPE~ TAPE

.TITL'. P~OGRAM TO COPV PAPER TAPE
I

.ABSP
.LOI: ,0c>
I

70!0204

PSA•700204

71AQl1014

~SA•701itUJ4
PSF•7i110~i!WH

7002~1

1CHJ112
7QJi31iil1

RR8•7Qll?.1112
RSF•711101t'l1

f}I:;, t ()\iii

740~4171

~V'HH

11<"/762

OBA

~~11A2

2A0661

l.AC

~010~

72211101'1

p /lL.

i-11.. T
(50~

/PREPARE TO SET PUNeH FLAG

PSA+l~

700214

/~ALT TO tNSERT T•PF TO COPY
IENTE~ PAGE MOOE
/PUT 50~ JN ~IM!T REGTSTER

I
~~U"5

14(11~57

rAQ!l!Jl6

10166171
140!5!5l5

ei~t~7

A.2

DZM ROFLAG#
OZM RDINOlC#
OZM PCINOX#
~nttvOX

;lt(i'! t 10

20l066~

I.AC

"fll 11. 1

1211i10lli1

~ll'l 112
~~113

1Ql~111!4

PAlC
RSA

7Q\01'1.11

~SF

:lllA114

6~0113

JMP .•1

00115

7Ql0314

IORS

/GET READ INDEX REGISTER VALUE
/PUT INTO XR

/REAO A CHARACTER

/WAIT FOR READ FLAG
/TO GO UP

0~116

51i!fll66~

vHH 17
Qt0120

140200

41110 C100H1!
SZA

50!0152

JMP A.17

/GET I/O STATUS AEGJSTER
/SEE IF R!AOER ~UT OF TAPF..
llF 0, NOT OUT
J~EAO!R OUT OF TAPE

Qlli:'\121
\110\22

7'101.12
r1l50 t 5e

RRB
OAC BUFF,lC

/GET CMAR INTO AC
/STORE IT IN BUFF,X

AXS 1

/UPDATE INDEX

~~123

725001

OJ01,4

8<30127

JMP A.8 /BUFF NOT FULL

2006153
040657

L.AC C1

OAC RDFLAG

I
'4~127

724000

211Z1130

:2140660

210'!131

:!00656

00'132

72 t 0VJP

A.8

PXA
DAC RIHr.iO)(

•.ee

LAC PC:tt-1ox
PA)(

PSF
JMP A.15
I

/SAVE REAO INDE>t
/IN RO!NOX
/GET PUNCM INDEX
IANO STOA! JN XR
tF PUNCM REAOV
/NOT REAOV, SEE IF CA~

/S~f

~EAO

AGt

PiCOPV SRC

Ol!ll 135

21VJ155

~Ql13f.5

74\ UIQI
14004111

0r1137
011140

70~204

0~t41

7251!01

;1'11142
"'Iii 143

741000
!~010!5

~0144

U10!557

0~1.45

7 4\lt20r;,
1500133

~ill 146

PROG~AM

A.10

•.11
•.12

A.13
A.14

l..AC

TO C:OPV PAPF~ TAF'f!
SUFF,X

/GET Cl'fAR FROfill BUFF
/ANO SEE IF IT rs NE'GAT!VF.
/IT WAS, 80 MAL.T
/START PUNCHING NEXT r!HAFUCTEA
I IP' SIC?P, PUNClof BUFF E~flTV

SP-

'"IL. T
PSA

AXS 1
Si<P

A,. 15

JMP A.2

IBUFF EMPTY, GO AEAC "40~E
/SEE tF REAO BUFF FUL.L
IIF QI. "'OT f'Ul.L,. • GO lltl!Af')
/REAO FUl.L.1 so LOOP IN PUNCI-!

I.AC RDFLAG
SZA

JMP A.9

iai.l.1147
:1111\50

7 24'!100
~4CH5~6

00t~1

OAC PC I t-IO>t

600110

JJ!ll 152

711771

JMP A.!

~01!53

QJ!501~HS

0~\54

040e57

~~15!5

600131

•.15

A.t7

I
iilJFF

~ft! 156

P lC A

ISAV! flUNCM INDEX

/REAO BUFF NOT ll'ULL.••GO Rf At"

I.AW • 1
OAC 811FF, X
O.AC ROFL AG
JMP A.85
.BL.CCI<

/PUT TERM?NAL CIORACTl!R ?N BU,FE
/SET ROFL.AG TO tJQN OI

!50~

I
-~0681
~0662

'1vH563

~001 lllVI
\a00!50~

•L

;).ICll1000!
IZl00001

•L

.ENO A.1

• L.

SIZE•Cll0664

E~ROR

I.. I NF!S

PAGE

OUM?

SRC

.••••••••••••••••••••••••

I
I
I

•

POINTS TO BE NOTED

•

I
I

1•1. NOTE THAT ~OST "IDT" INSTRUCTIONS AR~ ~OT D!F!N!D
/WITHIN ~ACRO'S SVMBOL TABLES. TME~EFORE, TH~V MUST
l~f OEFINED 8~ THE USE~.
USUALLY ONE 00!8 TH?S BY
IOtRfCT ASS?GNMF.NT STATEMENTS AT THE 8EGINN%NG OF TH!
IPROGRAM••AS IS O~NE IN T~!S P~OG~AM 'OR "TSF","fL8",
l"KSFtt, AND ttKR8"•
I

1•2. NOTE THAT TME TELfPRtNTfR XS AN OUTPUT OEV?ef iN~
IAS SUCH, WE WANT TO CHECK ITS "REAOV FLAG" B~FO~~ DOING
/AN¥ OUT~UT ._@UT ALL. FLAGS ARE CLEAR!O 8!FORE TM! PROGl:UM
l!S STARTED (TH! ABSOLUT! LO•OER eL.EA~S ALL FLA~S ANO SC
/DOEST~! R!SET. SWITCM ON TH! CONSOL!~,
THfq!FORE, WE
/MUST SET THE FLAG OURS!LV!S. CONSIOE~ HOW LnNG WE
/WILL ST•V I~ T~E LOOPI TSF
J"1P • • 1

I
I

IIF WE DO NOT TAKE CANE OF SETTING TM! FLAG~ TM?S rs
/DONE_ WITH TME "TLS•1~" IN!TAUCTI~N ?N LOCATt~N 2:
/GO OVE~ TME !OT FORMAT TO MAK! SURE YOU UNDf~STA~O WHAT
/THIS DOES FO~ us. TLS~1~ • 7~0416.
exr 14 ts SETITHIS CLEARS THE ACCUMULATOR B!FO~E THE OUTPUT
/OPE~ATIO~ IS PERFORMED.
ALL ZEROES rs TME ASCII C~D!
/FOR THE NULL C~ARACTER.,.A~D THAT'S EXACTLY
/WHAT IS OUT?UT TO T~E TELEPR!NTER tLISTEN CA~EFULLV).
/THE I~PORTANT TMING tS THAT 10~ ~ILLIS~CONOS AFTFR THE
!PRINTING OF THIS C~4RACT~~ IS I~IT!ATEO, T~E "~EADY
/FLAG" IS RAISED, FROM MERE ON IN THEN, WE•R! 4LL SET
11'0 00 OUTP'UT.
I

1•3a R!CALL TMAT WM!N A CMARAeT~R COMES IN

FRO~

TME K!Va

/BOARD, TME cnoE STORED I~ TME. ~EVBOARO BUFFE~ TO
IREP~ESE~T THF. C.HARACTfR • THE 7·BIT ASCII eoof + 2P0.

IWH!N CM!CKING

~O~

A SPEC!FtC CHARACTER, MAKE SURF. YOU

/TAKE THIS INTO ACCOUNT. FOR EXAMPLE, WHEN C~ECK?NG
IFOR A FORWARD SLASM "I" ~MICM MAS • 7aBIT ~SCII eOOE
/OF 57, ~E MUST NOT! THAT TME KEYBOARD BUFF!R CONTAINS
IA "257" f91+20~~. ~E REAO TM! CONTENT OF TH! KEYBOARD
IAUFFER INTO T~f ACCUMULATOR WITH A ttKR~" INSTRUCTION.
/THEN WE CAN CO~PARE THE ACCUMULATOR WITH T~! VALUE 2~7,
/cSAO (257~, nR ~! CAN MASK OUT fV!RVTM!NG F.XCfPT
!FOR TME LEAST SIGN!F!CANT 1 BITS IN TME AC,
/~ANO

(117~,

ANO

lOO~

FOR A 57.

PAGE

DUMP

OCTAL OUMP PROBLEM -

SRC

.TITLE OCTAL OUMP

PROBLE~

/PROGRAM ACCEPTS A LEGAL OCTAL ADDRESS FROM
ITME ~!YBOARO, ANO TVPES OUT ITS CONTENTS.
I

/THIS IS A RELOC4TABL! PROQRAM WM!CH ~IL~ Bf LDADEO
/SY TME LINKING LOADER. THE LtNKtNG LOADER WORKS
/UNO£R THE DOS SYSTEM ANO, THERf,ORf, INTERRUPT
/SVST!MS W?LL B! ON W~EN TME PROGRAM rs LOAO!O lNn
ISTARTEO. IF W.! DO NOT TAKE C4RE OF T~?S, TH!
IPROG~AM WON'T WO~~ BECAUSE ?T USES OEDICATEO II~~
/TME INT!~RUPT SVST!~ WILL PIC~ UP TH! n!VICf PLAGS
IRATM!R THAN THE "KS'" AND "TSF" !NSTRUCTlONS I~ THF
/PROGRAM. T~E FIRST THAE! lNSTRUtTlONS IN THf
/PROGRAM TURN OFF THE INTERRUPT SYSTEMS (Pl & APt,.
I

70041111 A
70040ei A

TLS•7004'J6

700301 A
7Qlia312

!CSF•700l:.H1

'
700002
70!5S14
•

Q!00~r,1 R
A
(IJ00Jli>' 1 R
A
0~0~2 R 700416

0!0003 R
~00'114

TSf"•7'tllfllA01

KA8•70IV3312
I

START

/TURN OFF Pt
/AND API 1NTERRUPT SYST!MS

TL. S+ 1 P

JMS CRLF

1 OJH1ee R

JMS Sl!TUP

R 1r110047 R

Ol01l1915 R 1 ele.IC'l6P p

ro,
tSA+1!?1

MORE
I

000~6

R 4•0Cll74 A
R 5A0077 R
00l!1H 0 R 800021 A
000.!~7

JMS LISTEN

tSZ O?QIT
SAO (257
JMP OONE

",., OR

/GET HER! IF NOT
I
~~~11

Ii ~0~UH~

ANO

119 TH?S TH! 8TH DIGIT!
1%, NOT. rs IT A ,ORWARO SLAS~T
/Vf8 IN EITHER CASE!
~TM

C~lRACT!R

/GET l')'fGIT

OAC SAVE#

Ql0012 Fl 04007!5 A

I
R 201&073 A
00014 R 74401~ A
0~tH3

0~01!5

742010

/GET AOORFSS
/ROTATE 3 POSITfO~S LEFT Tn
/MAK! ROO~ FOR NEW ~I~lT.
/UPIHT! ADDRESS

L.AC ADOSS

i'UL. 1CLL.
RTL.

TAO SAVE
OAC ADOSS

R 3•00!75 Fi
00017 ~ 041iJ073 R
0~0~0 R 800005 p
0~~\6

JMP '40Hf

I
\71~~21

100047

OONE

00022 R 220.0!73 fi
~~023 R 744010

00024
74ot01P A
01i'025 R 742010 A
11JQl028 ~ r:u001~ R

~OOP

J~S
~AC•

SETVP
ADOSS

RA~1CLL
R~L
~TL.

IGET CONTENT
/ROTATE 4 POSITIONS FJRST TIME
13 P081TIONS AFTER T~AT

OAC l.OOSS

/SAVE CURRENT POSITIONS

PAGE

DUMP

OCTAi.. OLIMP · Pf:f-OBL!M

SRC

ANO (1
TAO (28~
JMS TV Pf

R 50010P. !;
0't1~30 R 340 lCH R
1!~027

0~031

R 1PJCll05~ R

lfi!T CICTAL DIGIT

/"1ANUF4CTURE a.set?

eo~e

L.AC ADOSS

!30CU2 R HlciJCll1:5 R
OJCll033 R 440074 ~
O!O!OJ~4 R '5000!2• ~

ISZ O!GIT
JMP LOOP
OZM

~ 101073 R
A
7!50004 A
OJP036
A
R
14021110
o.1~031

000~5

00001

2100•11
00042
1.71004~

00l04'4
000!45

OH,1.1046

R 8021004
R 200102
R o.1•001e
R •U0076
lit 800043
R 00~1'110~
R HHIJQI 1 !5

ADOSS

LAS
SZA

JMP START+A

'~"'
R

L.AC Ct
OAC T!..,ER#

R
R

JMP .-1

?SZ T?M!R

•

CAL.

1!5

/SUBROUT?N!S

•

OH.,Ol•7 R 000J0QI~
0 Pl QH50. R 171'112 A
100~1

R 040014 p

00Ql!S2

SETUP

82011147 A

300!53 ~ i'A00000I A
QllU154 R 70111.1401 A

001!!5 R 6013054

I
TV.PE

~00~7

R 8200!53 R

TSF
JMP .-1
TUJ

700406 A

O.HHH!l6

0
l.,A.W .. ~
OAC OtGlT
JMP• SETUP

JMP• TVPI!
I

000611!1

00000!et A

LISTEN

QIO!OJf'H

l(SF

rll0083 R 7~0!312 A.
OJ0084 R 82Q.IQU5QI R

l(RB

R 100301 A
0e0e2 R 81'.HHHH R

JMP .-t

JMP• LISTEN
I

C!l0QJ85

QIOl12'Q!QIP

CALF

oi00ee R 1150215 A
000Jff7 ~ 101311153 ~
00¥1170 R 181(11~ 1 ~ A
00"71 ~ 10rt!liH53 lit
el~072 R 1520005 R
001000~

eJ0074 R 11'1712 A

JMP• CRL. I'
AOOSS
OIQtT
I

000POI~

R
01tJ077 R ~002S7 A •L.
~0UH8 R ~"90007 A • L.
0!1!1fllt R ;110!0215QI A •I..
0"'1 CA2 R ~QIQ!e!QI t A •I.

21e

JMS TVPE
I.AW 212
JMS TVPE
I

004'173 lif

ta
l.,.A\11

SIZE•0101fJJ3

.,,
~

.ENO STAIH

NO f ~~OR L.IN!S

/ARE w! OONET'1
/NO l ••IHCK FOR MO~E
l'f!Sl•CLEAR AOr.lSS FOR NEXT TIME
/WANT TO CONTINUE'?
10 DSW SAYS QO lUCI< T~ MONITOR
IOON'T NEED TLS+10 H!Vfi!IORe'. 11

PAGE

PROGRAM TO AVERAGf DECIMAL VALUfS

SRC

A\IG

.TITL~

PROGRAM TO AV!ftAGE DECIMAL VALUES

1ooooooooooooooooooooaooooooooaoooooooooooooooooaoo60000
l
I
I

PROGRAM ACC!PTS DECtMAL VALU!S FROM TME ~FVACAR~,
SUMS THEM AND PRINTS OUT THE DEeIMAL. AV!RAG! tGtVFN

TO THE TENTMS PLACE) ON TH! T!L!~RINT!R.
uSER SHOULD FOLL.OW EACH VALUE ~!TM A CO~MAI TERMINATE
I TM! LI~E WITM CR.
FOR E~AMPLEI ~,!8129,•,tC~)

I
I

1o~oooouoooooooooaoooooooooooooooooooooooaoooooooeoooooo

I
700301 A

1004ee •
7Pla40t A
70031~ A
~0000

R 707782 A

~~0~1

R 70000~ A

KSl'•700301

Tl.S•7M1•06
TSF•?OJ0•~1

l(IU•700;, t 2
I

/RUN tN PAGE MOOE

8EGI~

/TURN OFF P!
/ANO AP! INTERRUPT SVST'-MS

!3lUJ02 R 705514 A
I

R 7004te A
0A004 ~ 140126 R
00005 R 140127 R
~01~3

~0~08
0~0~7

R 10012~ R
R 140130 R

O'ZM NUM8•

IT!MPDAARV LOCATION

l(SF
Jl"IP .•1

108

R 7A0312 A

SAO (215

00013 R. 540134 R

00014 R 80A035
~0015 R 540135
00016 R 500030
00it7 R 5001~8
~0020 R 040133

IINITtAT! PRl~T••GET FL4G
·1eOUNT• # 0, VALUES
/FINAL• SUM OF VALUES

DZM COU"1T#
OZM FINAL#
JMS CALF

m0010 A 7~0301 A
R 60001f. A

1~011
~0012

TL.8+1tit

k
R
R

JMP AL.L.DUN

ANO (17
OAC T!MP'f

SAD (25.t
JMfll OUN

/CR MEANS LAST VALUE
/R,n SEPARATES VALUES
/GET OCTAL NU~B!R

I
~0~01

L.AC NUMe

R 20ml30 R

~0022

MIJL

R 853122 A
00023 R 0~0012 A
~~~24
~002~

R 64tm02 A
R 3401~3

001Z!25 Ff 001130 R

1..•co

TAO TEMP

/RESULT SMALL •• tN MO
IAOO ON LAST DIGIT

OAC NUMS

ltUVE IN NUtilB

JMP NEXT

10027 R 8~001~ R
I

00030 R 200130 P
~~031
0~032

OUN

L.AC NUMP

TAD FHUL

R 340127 R

OAC'' FINAL

R 040121 R
I

~0033
000~4

JGET T~!S VAL.UE
l•DD !T TO TH! SUM

ISZ COUNT

R 440126 ~
R 9@0007 R

JP'IP

N)(T

/~!EP

TRAC~

OF MOW MANV VALUES

PAGE

AVG

P~OGRAM

s~c

TO AVEA AGE OECIMAL VAl.U!S

J
o.111"0~!5

R 2Ql0128 R
R
040041 p
"1"'0:36
0~037 R 200121 R
~0040 R 1553323
0171\1141 R 000000
"~QJ42 R Ql4ril 132
0014! R 84UllU
Ul!ll.64 R 0•ett31

ALL.OUN

IGET # OP' VAl.,U!S

L.AC COUt.iT
OAC • •3

/STORE FOR DIVISION
1.G!T SUM

LAC FINAL.

A
A

IO?V

Ill

R!TUAN!D ?N AC
IN MQ
QUOTI!NT
/GET

OAC R!MA%N4t
1.•CQ

A
R

IREMArNDE~

OAC QUOT*il
I

0!0045 ~ 73500P. A

CL. IC

L.AC QUOT

00046 R 2tiHH~1 R
!110041 R 853323
i1J0~Sl1! R ~00012
i!H'11?151 R ~50106
Ql~Ql52 R 11541902
11100!53 R 741200
000!54 R 8(!100!57

A
A
R

N!X XT

IOIV
12

DtG?T,JC
1.ACQ
SNA
JMP OUN~'

ISTO~E

OAC

A
A
Iii

~12!0~5 R 737001 A
0t'l056 R 6e!0047 R

IN TABLE

/PICIC UP QUOTil!NT
/CO~!T

t NUE IF Nl)T 0

AXR 1

/STOP WHEN QUOTIENT • QI
/PUT !N TABLE F~R LAT!R OUTPUT

JMS CRL.F

/ISSUE

L.AC O?G!T,)C
_TAO Ct.8f!

/TO MAI(! ASCII

JMP NE>C>cT.
I
-1

qjl1IQJ!57 R 100120! R

OU~N

001860 A 2101Pl6 R
~~061

OUNNN

R 340137 R

A 100113 p
°'0063 R 1311'11 A
0~QH'2

!3~~e•
~et~H!.15

R 724f\01l' A
A 74010P A

~~0t'H5

R 60006Ql R

J~S

A>fR

•1

CR A~O

/GET N!~T CHARACTER•~wORK
IWAV 8ACI< UP TALBE
/ARE WE OONE.,•WMEN )CFh0, VE8

PXA
S~A

JflilP OIJNNN

000157 R 2~01412' R
0ftil07121 Ill 100U3 R

ltSSUE OECl"1AI.. PO!NT

L.AC C2l5f5

JMS pi;r1~·T

L.AC COUf•· l'

~00171
~~Ql72

R 2lJl012! R
R curaun~ p
0!0!ll73 R 2001:Si R
71Ql07 4 R 853t2t A
00075 R ae.10012 A

OAC R!M
L,,AC ~EM•t11t
'1UL.

12
L.ACQ

•

QJ0Q!18 R 841002
0Qlq.!77 R 853:32~ A
00100 R 000Ql!'llf, A
0"11~1 R tU 1002 A
~"11et2 ~ 30J137 R
<.Jv.I l r~ 3 A 100113 A
0~ 1tf'l4 ~ 10012~ R
~

e00000 R

lilliHet8 R

Jl\1111'!5

?DIV
REM

•11

L.ACQ
TAO

C280

JMS PRINT
JMS CRLF
Jf'IP 8EGtN

OIGIT

• BL.OCK !5

•

?AGE

. J

AVG

PROGRAM

Si:i!C

TO H'ERAGE DECIMAL, VAL,IJ[S

I
"~ 11 !

,'IJQl0000 A
(10J114 R 7~0401 A
;ill011! R 600114 R

JMP .•1
TL.S

00116 R 71210406 A
0v.l l l 1 I'll e2lllt1:5 j;l

JMP• !PRINT
I

00120 R 0~0121~(11

A
~li1!UH R 76021!5 IA
00122 R 100113 R
!11123 R 715~212 A
~fll 12• R Ui0113 R

!1HH25 R

11013• R
<:Jl0 t35 R

00136 A
~~1J7

00140

CFH.F

LAW 2U5
JMS PRHJT
1.,AW 212

Jfw!S PRINT
JMP• r!RLfF

8Hll2~

""'

0
TSI'

021eJQ!00 R
Hl02H5 A •I..
l?IC1102!5• A *L
~00017 A •L
00028P. A •IPL.
0002!56 A •L..
SJZ!11110llll141

ENO BEt;IN

!RRO~

L.IN!S

OTOASC

PAGE

s~c

/PROGRAM TRANSL•TES ON! 18 8?T

WO~D

St~

/OCTAL ASClt ~M.AAACT!RS~ TME CMA~4eT!~8 -~E
ISTO~!D !N A 8U,,!R POINTED TO AV TM! WORD
/FOLLOWING TME JMS TO OTO.ABC.
I

/C4LLING SECUENCEI
I
I

LAC (WOAD TO RE TRA~SLATED)

I
I

SU,F!P .AOOAESS

J"1S• .OTOASC

l~ME-E

FtRST lSCtt CHA~
1%8 TO ~! STOI!~.

I
I

.GL;OBL OTOASC
I
0!~111~0

R 0fl!0"11fJOI
01lf0!ll1 R fli!ll.UI•
f)0-0"12 R 2200t1JP!
tll000!3 R 0400!2121

OTOASC

1,.MQ

Ill
II

LAC6" OTOUIC
0.AC PTFU•
I

AiUJt.llA R 4400'!0!1!1 R
~0005 R 77777'1 A
V!00P.!5 R 0400 \., R

ISZ OTOASC
LAW •fJ

/ITOR! 18 SITS TO BF TRAN~LAT!D
/PtCK UP STORAGE BUFF!A AnDR!SS

ISET UP FDA !WIT

l~E!P

TRACK 0, S CHARACTEIS

D.AC COUNT4'

JOO CONVl!RStON
I

i11QIOIOl7

lit 750QHl'HA I

ltl.!AR AC
3 erTs ,ROM MC
/AOC 80 TO MAKE ASCII
/STOA! !T AWA¥

CLA

/~OV!

LLS 3
TAO (llJl!I

~~01~ R 54~803 A
A00ll R !400l2t R
00012 R 080~2~ R

OAC• PTf'
I

ISZ PTA

~tl!Olt3 R ~•0!0!2~ ~
00GIJ14 R 440ett'I p
(110015 R 601Ul01 ~
t,,lttHHt'i R 921'!111.1QJ91 . ~

IS? COUNT
JMP MOR!
Jr.4P• OTl"IASC
I
.f!NI)

00000,i A
~00!21

R 0001110~

•L

sn:E•0t0.t022

NO EARtlR

l,.INl!S

/POINT TO N!~T 8U~FER lOCATtON
/ARE W! DDN!t
INO••GO BACK FOR

NE~T

3 !!TS

/VfS••RETURN TO CALLl~G

-~UTINE

··.. ·.

TRANSLATES !MAGE

PAGE

ALP~A

TO S!Xa8JT ASCII

,TITLE T~ANSLATES IMAGE. ALP~A TO SI~~~IT ASttl
I

/PROGRAM TRANSL•rEs IMAGE •LPHA CHAWACTERS TO
/ASCII CHARACTERS.

SI~·B!T

/CALLING SEQU!NCEI
I
I
I

LAC (ADDRESS OF 'I~!T IMAGE ALPHA CMAR)
JMS• IA,88
I~

DF St~·S!T NO~ns

llIM8T

8lJF.

I
I

~UFFE~

~~O~ESS

OAC•642~ia0!

14~68

• Gl,.OBL
I
:1110~0!0

iilf11001l!L'I

IA26B

00011 R 1440GH' A

OAC I MGP'fR#

!ll0001 R 0Al710!5 R
JI (ti (iH'll 2 R 220Pll?l0 R
ii!lflV!t!IJ R 14012131 A
"1i(lfllV'l4 R 04001:§4 R
'1000-5 R 4400!11'1.I R
0 0 2n7l e R 2201UQI R
0~"101 R Q.14003e R
011'LH0 R 440000

LAC• IA215B
"i'CA
OAC

cnuwr•

tSZ IA2f58

UP AOD RESS O' \IH.f!~E
~UV! ?T
1'1 !UT CfiURS AND

CL.I.

/CL,.EAR LINK
/CL.EAR MQ
/SET UP COUNT!R OF ~
/BECAUSE 3 SilCBT CIO.FUJ P!R WORD

CL.Q

1210rt112 R ~HHl£.11G.U1 A
00!a13 R 1117'1'5 A
0 fl!(IJl 4 R ~40033 R

1..Aloll •:.1l

DAC CPt,;f3if
I

ISZ CNT3•

11-!AVE

R 22f1Hll~5

lil02117 R 5~003'1
R 542P!llJ0

010

OAC

<a00J'l

0011):24 R C54Ul02
fa0025 R ~A09'36
~00215 R 440GIJ34
~~0P.1 R 7~100'i!
?J0030 R 6201l§00
000~1 R 4orn 36
~0~32 R 600011

•

L.AC• IMSPTR

c., 1

JMP MORE

St!llHH5 R

L.•c;o

we: C:O~V!RTED 3 !MAG! rHARS

JNC).,. .. t;C'J

!UCI< 1"0" MORE

IPICI< UP SIX8T VU.UI! tN MQ
XT 4WAV
/ARE WE OCJNE'»

OAC• SXBPTR

ISTOIH'

?SZ COU~T
SKP
JMP• 1A268
ISZ SV8PTR
JMF' AGAIN

IVES••R!TURN

A
R
R
R
I

~®031

IS!T UP FOR EXIT

ISZ IMGPTR

R 640606 A

QJVJ~U5

00?121 ~ 440CiJ:S5 Ii(
00022 R 4400!33 R

/PICK

/GET MCI IN CORRECT PO!ITil'!N
/PICK !JP CHAR TO 15! CONVERTED
IElCT"'ACi LOWER IS BITS
/OR TH! MQ AND AC •• ~R!SUL'T' L!FT
/POINT TO N!>CT IMAGE eMUUCT!R

I.LS 5

~t/!l)ll 15

0~9120

!!llil!00"'0 IA
R il!Qlo.1077 A •L

S?ZE•l'IQl~40

TO !TO

1.. AC• lA2!5B
OAC S)(BPT~*il
ISZ IA268
I

4GAlN

/POINTER TO IMAGE Cl-IA~S ,. !"! RE co
/PICK UP # OF SI>tBT llHH~OS
/MAl<E IT NEGATIVE c~' ~ COMPlEMEN

.ENO
NO

ERROR I..! N!S

IN0111n11
l!NCIU'.~ENT

TO CAL.LI~G

P"'Ot':RAM

Sl)tBT BUFF!R POINTER

PAGE

CLOC~

Cl,.KOGN SRC

OIAGNDSTIC~~SKlP

DN FLAG

.JITLE C~OCK OilGNOSfIC••SKlP ON FL•G
I
I
I

~IGMT IN AC. ANO Ll~K WILL MOYE ~ POSITION! L~FT
EVERY S!CONO WHEN CLOCK IS RUNN!NG PROPERLY:
I AC•! AT OUTSET OF ~ROGRAM~
I AC•l IF CLOCK NOT OPERATIVE ~MEN PROG~AM STA~f~~
I IF C~OCK DISAALEO FROM CONSOLE .WITM CLOCK S~ITCM,
I AC ANO LIN~ AR! FROZEN.
WM!N CLOCK REENA~L~O

I
I
I

7000!4A A

100001 A

FROM

CONSOL.~

!BUTCH, LIGMT STAATS MOVING AGAit.1 11

CLON•7000.t4
CL.Sf •1000Ul1
I

HH!ll0 A
1"" 1 i110 4 100002
tllltr-'Ji A 10!5514
1~ti)l2 A 7el4030
1illiei3 A 170117

t VI 11'14 A 05121116
i0U~5 A ., '11104
\0106 A 37011'1
101 i:.,1 ~ 010111
1(()110 A 210118
H!!t 11 A 7~0044
UI 112 A 100fll01
\~113 A 6UH12

ISA+t~

ITUFlN OFF P! •NO
IAPl SVSTFMS

CLA1CLL.1?4C

IAC•i

A
A

OtM•· f'1

A
A
A

1.,.AW •1'4
TAD.- O'

OAC ACS•VE•

OAC• (7

L.AC ACSA\IE

CL.ON

CL.SF

JMP .•1
~TL.

UH1~ A 142010 A
10115 A 6101041 A

JMP AGAIN

I
~UJ10CI!

1~111

IOF

A
A 000007 A •L

.ENO START

SI7.E•10i~til

ISAVE Ae WMI~E TENOtNG CL.MCK
1e0 TJCKS PfR S!CONC(14 BASE 8)
IAOD IN A~Y RUNOVER
/SET C~OCK REGlSTER••LOC. 0P~001
/GET AC BACK
/TURN CLOCK ON AND CL.!A~ FLAG
/CHECK FO~ CL.OCK FLAG S!T
llF NOT, wE WAIT
/WHEN SET~ 1 .ROTATE ~C
IGO SACK FOR MORE

TIMEFL. SRC

PAGE

I
I
I P~OGRA~ USES OEDICAT!O !/0 WITH TH! ~EAL TIME CLOCK
I TO P~lNT A "l" O~ TME TELEP~INTER EVE~V 5 S!CONMS~
I
I
I
I
70QHll01

700044

A.S LONG AS THE DATA SWITCM!S ARE NOT ~,
T~E PROGRAM CONTINUES.
WMEN THF. OS~ ARE ' '
IS RETURNED TO THE MONITO~.

CLSF•7~H'l0fil1

CLON91700044
TLS•70040S
TCP'•700012

1i:.0•0& A
700402 A

I
l ~Sil!O.I

/H?GH ENOUG~ TO AVDtO ~~Nf TOR

A
I

10!'5Cll0 A 700002 A
1 fll501 A 705~1• A

/LO•OEO BV OOS••TMAT ~EANS
/INTERRUPTS ~ER~ ONrso TUAN OFF

START

/ZERO L.OC 7

10!502 A 170!52• A
I

1051/13 A 777324 A

MO~E

L.AW ,..494

TAD• C7
OAC• ('1

10504 A 37"1152• A
10505 A 07052• A
I

1(('15(;116 A 700044 A
,~~5017 A 7Ql0001 A
105UJ A 010513 A
tfi'tS 11 A 110520

CL.KT ST

•

10512 A 6 UH51ii3 A

OSWTST

/TURN CLOCK ON

I.AS

/CHECK DATA SWITCHES FOR ~

SZA

1flHH4 A 140200 A
1io.'1!515 A e10e01 A

JMP CLICTST
.EXIT

•

/VES••PRINT A "1"
/GO BACK FOR MORE TIMING

/NOT ~. KEEP T!STING CLOC~ FLAG
10, GO BACK TO MONITOR

/ASCII COOE FOR "1"

LAW 81
TL.S

JMP• PRINT
I

01050l'! A

UU524 A

l' ~ SECON~S HAV! ~A8SEO

·t0522 A 70041l18 A

10523 A 630520

ICHEC~

CAI.

10516 A 0tlll0000
•G
10517 A 000015 A •G

10,20 A 0Q'IHHll0 ,,.
10521 A 760061 A

/AOD •S Sf.CONDS IN T?eKS
/TO CLOCK COUNTER
IA!STORE TO CLOCK COUNT!A

CLON
CLSF
JMP OSWTST
JMS PRXNT
JMP MO~E

10513 A 75000• A

00IALiH~1 A • L.
SIZ!•10~25

CONT~O~

.ENO ST•RT
NO ERROR L,.lNES

IPllUNT IT
IRETIJRt..1

PAGE

I
I
I

PROGRAM USES PI wrr~ THE REAL. TIME CLOCI<
TO P~I~T A "1" ON TME TELEPR?NTE~ EVERY e s~eoNns:
~~lL.! C~OCK IS TIC~ING, TME L.!NK rs BL?NKF.0 AS A
BACKG~OUNO

PROGRA~.

100001

CLSF111:7!l)0~01

700044
700406
100402

CL.OM•'101?!0~4
TL.$111004~6
TCF•1011'l4~2

I
., ABS
I
~fi'l0fi1Ql

.Lac i:'I

I
?! Vl'il fl!~

'1!000ft'IV.

(!1~01'11

520002

~'10il!2

~UH512

.+1
"JMP•
tNT
I

.LOC 10!52ltl!

10!5~0

1 Ql5Ql0
1l'.45iil1

700042

START

ION
DVh•

110535

I
1 ~5(112
1 V'l5fll3
t050!4

777324

.1"101U

L.AW .. A(5A

TAO• C7

370535
07053!5

r)AC:•

1Vl!'Hll5
1 '2!5'116

450533

11115CA7

610506

1 't11510
1'1l!H1

740q,02
6 i raf505

\G'\SU!
10~13
1l6~H4

1'4515
1Vl516
10~11

CLON

i'G'Ji{l0441

23053S
05ot53Al

uz COU~T~

JMP • ... 1

c1¥1L.

/TURN P! ON
/CL.EAR C:L..OC:I< COUNTEfi

IAOD ,.,5 SE CO NOS IN TI el<~
ITO CLOCK COUNTER
/RESTO~E TO CLOCK COU\IT!R

ISTAFfT Cl.OCI< ANO Cl,.! AR FL.lG
/START RL.!~KING TloiE 1.,?Nt<
/WMl:'.N COUNT O\IERFl..OWS.
/COMPLEMENT LtNI<

JMP ... 3

I
lllJT

l.,AC•

OAC Rf Tit
C:L.SF

70;a0(111
61?J527
7 50t'J61
70041216

JMP

CL.~

.IP %Cl<

?F INTER~UPT FROM r.LOCI<
l?F NOT CL.Ot:K•..•TMElll JUST RETURN
l!T HI,

TL.S

/,lNO

,.EJ!CT

URN Pe

ICM!CI<

L.AW 61
I

~ET

/SET UP FOR Rf TUAN

so GET CODE FOR 1

:.AGE

TIMEPI s~c

1111520

777324

l~!tl
1~!522

370535
070535

PIUNT

II 1.i'

•., TER 5 S~CCNOS••llS!NG

I·

CLOCK COUNTER 48 S!"FORE

1.A\11 •.4!.4
TAO• (7

IR!STO~f

CLON
ION
R!S

ICLE4R CLOCK 'LAG
/TURN P! BACK ON

JMP• R!T
CA'

/RETUR~

DA Ct (1
I

\0!52~

7011J044

1 tit!524

7"-10042

1052!!5

707742

10528

530!534

10527

703302

10!~0

7P.10~42

UHi~l

707742

1m!532

63053.t

CLR

/SET UP TO RESTORE LINK~PAGEIBAN
/CLEAR

?ON

/SET UP TO RESTORE LlNK,PAG!'.IBAN

RES

JMP• RET

lFU!TURN

010500
105~!5
1~536

0QleJ007
0Cl!00Qll,I!

.e:~o

START

•L
•I.

SIZE•tVJ837

TO INT!RRUPTEO PR~GRAM
FLAGS••WAS NOT CLOCK

AL~

NO ERROR 1.IN'.S

Pil:l!<

CLOCK DtAGNCSTIC

SRC

WIT~ P~

ENABLED

I
1oo~ooooooooooooooooooooooooeooooooeo~o~ooo~~6000ooeoe~o

I
IP~OGRA~ PERFOR~S ROTAT!O~ OF 4e WHEN CLOCK A~D PI ARf
IENi\BL.,ED. WMILE 'flollS IS GOING ON, TME l,.fNI< CO~'l'tNllAU.. V
IB~INKS C~HETMER OR NOT THE CLOCK .ANO PI ARE ENABLED).

CLOCK rs NOT WORKING OR PI IS

ltF WME~ PROGRA~ STARTS,
iO?S•~LEO THEN AC•1.

IIF CLOC~ ANO Pl AR! ENABLED £NO ~URl<INGt T~fN TM! AC
/IS ROTATED ONE SIT POSITION TO T~E LfFT ONCf A S!C~NO
/UNTIL THE AC•400~0~. THE~ TM! AC IS ROTATED ONf BIT

/POSITION TO THE RIGHT EVERY SECOND UNTlL TME AC•~0~0~i.

/IF AT ANV POINT ~H!LE TH1S ts GOING o~. THE ~LOCK ~R P!
/A~E DlSABLEO FROM THE CONSOL!, TM! DISPLAYED CONTE~T
IOF THE AC tS F~OZEN UNTIL TMEY A~E ENABLED.
I

/USER MAY
ITO ZERO.

R~TURN

T~E

MONITOR ev SETTING DATA SWITCHES

I
1ooooooooooooooeoooooooooooooooooooooooooooeo~o~o~oooooo

CL..ON•700044

100001 A

CLSF•70"'001

7Pl0044

.L.OC

~li!000

~000!0
~0Qlf.111

A 011'l0t»@~ A

JMP S1<Pl:r!N

A 600500 /l

/JUMP TO SKIP CHAIN

• LOC: 50C'I

i;JJl?!~t/10

A
A 100001
~e'!5£111 A 6~0524
?1~5lil2 A 04061!5
~'115Ql3 A 540611
00'51i!4 A 6!'105;,0
00~05 A ~40620
005~0

.;1)£11506

e00!53m

CLSF
JMP CLR

A
A

SAO Ci40~0~Ql

Sl<FIC:HN

OAC ACSAVE

/WAS !T Tl-IE Cl..OCI< T~AT INTERRUPT
/IF NOT CLOCK, THEN ILl..!GAI..
/SAVE TME AC FOR ROTATION
ICMECK IF AC NOW AT fXT~!ME ~!FT
/V!S••CMANGE TO ~OTATtN~ ~IGMT

/>.

JMP C~A~GE

SAO

(0!00~V11

1~0 ••

JMP

CH01QE

IVES•·CMANGE TO ROTATING LEFT

rs IT AT E~TREME RIG~T'

,/8!FORE
..........................•.....•..•......•.•......•...
QOTAT!NG THE AC, CMECK TO SEE IF USER WANTS TO
I

/TO RETURN TO MONITOR. IF OATA SWITCHES AR! ZERO, GO
/SACK TD MONITOR. IF OATA SWITC"ES ARE NON ~. CONTI~UE
ION WIT~ THE PROGRAM.

I•••••*************************************•••••••••••••
I

005~7

A 750~04 A

~1510

A 74120A A

00511

A 8!'-10613 I.

C1'4fCK

l~EAO

L.AS
SNA
J~P

MONTOR

.EJECT

TME OATA SWITCHES

/IF NOT 0 CONTINUE ON
IIF 0, GO TO .EXIT

PAGE •

PICLI<

SRC

CLOCK

UIAGN~STIC WIT~ ~?

ENABLED

!••••••••••••••*•••~•••************************•********

IGET AC VALU! BACK ANO ROTAT! ~?GMT OR LE'T ACCORDING
/TO THE INSTRUCTION IN LOC•T?O~ ROTATE fTM%S MAV BE
/~ODIFlEO

/THEN SET

IN T"F CHA~GE SECT?D~~.
CLOCK TO TICK FOR ANOTM!R SfCONO B!FO~E

T~E

••• ,THEN RfTURN TO THE
,.......•.•...•...•.....................................
ll~TERRU~TING

I~TERRUPT~D

P~OGRAM.

~1"!512

A 21210615 A
!ll0S13 A 144020 A

00514 A 0•0e1e A
091!'1 e A 11'1"10• A
~~516 A 040001 A
0P311 A 200615 A
00!520 A 700044 A
0.10521 A 107142 A
00~22 A 70ta~•2
Q.11'1523 A 620000 A

GET AC

~AC

ROTATE

RCR

ACSAV'E

IG!T AC VALUE TO aE ROTAT!D

OAC ACSAVEt111
1,,..01

•1•

04C 1
L.AC

ACSAVI!#

CL.ON

RES

ION
JMP• "'

,/G!T
.......•...............................................
HERE FROM LOCATION 501
IS NOT FROM
I

~~EN

INTEA~UPT
A~D

/THE CLOCK. ALL WE 00 rs CLEAR ALL FLAGS
ITHE INTERRUPTED PROGAAMe

A!TURN TO

,...................................................... .
I

00924 A 703302 A
00525 A 1~7742 A
00526 A 700042 A
00527 A 820000 ..

CLiif

CAF
RES

ION
JMP•

(1J

,..................•......................•.............
HERE FROM 50A OA 508
WE WANT TO
THE
I

IG~T

W~!N

C~A~G!

/DIRECTION OF ROTATION. THE CHANGE IS SIMPLY DONF.I
/RCR•7~4020 WHILE RCL•1•4~1~. NOT?Cf THAT IF.VOU ~O~ ONE
WITM TMf VALUE

II~8TRUCTION

00.~03~,

YOU GET TME

OTME~

,.........•.................•.....•.......••.............
I INSTRUCTION a
I

0~530
~0531
~0932
~0~33

A 2~0513
A 240621
A 0405i3
A 600507

A
A

CM ANGE

L-'C ROTfl.T!
XOR

Cti!fllm030

ROTATE
JMP CMf (;!(

OAC

A
I

.EJECT

PAGE

PICLI<

CLOC~ DIAG~DSTIC

SRC

!~A8LED

WlTH Pt

,/MAIN
......••......•.............
SECTION OF PROGRAM
I

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

ISET UP THE CLOCK INITIALLY
/PLACE 000001 IN AC

,......••........•.•...................................
/EH, I NI< Tlif L ?NI<

,Loe e00
0~f5~0

A 7!5011100 A

A 70!5!5QJA
0~8~2 A 711704
0~9~3 A 040007
00S~4 A 754@30
~080!5 .A 712100.42
00eP6 A 10e~•·
006~1

~\1180!7

~0t'l10
'1J~611

I
START

Cl.A

ISA

LAW •1t4
OAC 1
CL.AlCl.L.llAC

A
A
A
A

A '4408 \ S J.
A 600e01 A
A 74CHH~lt' A

00612 A 5~0607 A

ION

Cl.ON

COMPl.

I!Z COUNT#
JMP

• •1

CML..
JMP COMPI.,

,....................•.•............•..•.•..............
I

BACK TO THE MONITOR
.E¥IT
,/GO............•..........................•..•............
~ITM

1'10NTOR

0\?1613 A
~~513
0~e14

.EXIT
CAI.
U5

A 000~A0 A •G
A 000~1e A •G
I

,...•..•................................•...............
THAT IN
TO B!
I

/~OTE

OROE~

FO~

T~IS

P~OGRAM

LOADE~

/BV THE LINKING LOAD!R. AP? MUST ~E ENABLED~
IT~IS IS BECAUSE AS SOON AS LOCATION 1 rs LOADEn,
IT"E SVSTEM•S US! OF PI FOR LOAOl~G IS eoRRUPT!O.

I
ISAPI Qp.i
I

/SGLOAO
11,..0~0EA

V)t )(

l•~ICL.K

,................................•......................
I

0G110em0 A
QJ0817 A 400C1100I A •I..
11)0820! A 000001 A •L
0~8~1 A QJ0003R! A •L

SIZE-.1!'0622

NO E~ROR LINES

EOtNTR

I~TE~~UPT

s~c

LlNE ~OITOR ~~O&~EM

_.TITLE INTE~RUPT L?Nt !DITO~ PA"BLEM
I

IA PROGRA~
IUSI~G TME
I
I

TO fCMO AN E~ITEO LIN~
PRnGRAM INTERRUPT CONT~OL

EMPL.OV'S TWn SOFTWAR! SW?TCMESS

"CM~'"

• CARRIAGE R!TU~N LINE ,!ED
C•1•CR,0•L.I')

I
I

"MOD!" • INPUT/OUTPUT

tONT~OL

(•1•0UTPUT,~•%NPLlT 1 +1•CRL'

I
I

ONLY)

.ABSP

I
701.n01

i<SF•1'11~3;a1

100312

l<HS•700312

7012141112

TCP•700402
TSF•1l'l0•GH
TLS•700405

100401
1004~6

"Ol0P0
t11~~00

0ru100e.

00QJrl'l 1

51110112

PIC

.L.oc "'

JMP Se:VINT

00100

.L.OC t0rt

O,PJ1V10

70~11142

~1111\111

11i.11U1e
100217
1!50001

Cl.101C12
~0103

START

ION

/TURN ON ''PIC"

JMS SETUP

/SET UP 1ST INT!RRUPT
IS!T UP VAR1A8LES

CLA1CMA

IS!T •1 IN ''AC"

TLS+tat
C~L.F#

OAC

~qi HHS

Ql403:57
44034P

00U'!6

440342

ISZ T?ME•

"'~
1"''
~iii 110

600106

J~P

74011!102

CMI.

:ali'l 111

B0~10e

JMP ... ~

:.8011"4

ISZ MOOF.it

I
I

.•1

INTERRIJFIT Sl<lP CrtAIN

I
0~112
~flitt3

040i541

SE VINT

OAC

100301

KSF

00114
0~1'1!5

1410ll!P

Sl<P

0"' 1115
u1111
•.Ht20
~(i' 12 l

70040t
74100UI
600128

Sl<P

7400All0

i-4L T

~0122

200341
700042
703344
62£11000

~0124

Ql0125

$AV•CH

JMP KB

6011'166

TSF

JMP TP
I

00123

/SET UP "CRL.P'"
/CRLF ONL.\'l

EXIT

I.AC SA\IAC
ION
OBR
JMP• PIC

184V! INTfRRUPTED "AC"
/KEVBCIARO'
/\'ES

IF'IUNT!R1
/V!S
/!I.LEGAL INTERRUPT!

SAVED "AC"
/TURN INTERRUPT BACK ON
/P!S!T LtNI<
/P!TURN TO INTERRUPTEn PROG~AM
/~!STORE

AG!!

ED INT~ s~c

INTE~~UPT

L.1 lllE F.l'J ! TO~ PR Of\ LEM

TEl..EiVPE SERVICE l\?OU'f INF

TCF

(JJ"'126

7'910402

'1Cl!t27

200340

L.AC MOOE'

00130

7312~0!

SNAlCLA

()!~ 131

600122
2Gl!0337

I.AC CRLF

idG\132

JMP

EXIT

~fil 133

1412~0

~rit34

80?J156

SNA
JMF' Lfll'

01?1135
'i'!f(!\36

7 51 Ul0

SP41CLA

0~01(1:51

JMP CR

0~137

230!~215

l.. AC•

00140

7004"'6

iai1141
0C1142

725001
540343
1411l!0£11

00143
1'1f-' 1.44

60ia122

0~1.d5

U10217

~(~146

440340
1501'101

01ilt~1

~lll15121

/CL.EAR tNTf~RUPTING FLAG
l?NPUT,CIU'l"PUT o~ C:RLF7

l?NPUTl ... GET OUT£
l~•L.?N!

FEED

/1•1•CA~RIAGf Rt!TU~N

~UFPTR,lC

TL.S

IPIHNT

SKP
JMP EXIT
JMS SETUP
ISZ MOOE
CLA!CMA
DAC CRLF
Jt-IP EXIT

vJ!i'l 1 ~H

12140337
600122

~~152

76ft'21 e

Qlfl.1153
·JJ~ 1 !154

7@0406
140337

Tl.S
DZM

~Ql155

6(110122

~~1!56

760212

~"'U57

11Z10•~6

JfwlP f)(lT
I
l. AW 2 !. 2

;J!Pl\~0

2!!!Pt34t'I

~Vl151

75010C'I

MOOE
SMA!CLA

00162
~(ti 1 ~;,

140340

OZM MOO!

440337

rsz CRLF

I'~ 1@14

135000

CL. le

r61i'11~5

el0012~

CHARACTER

l•DVOIC! )(R, n~ CHAIUCTEfifS'P
IC A~l:U AGE RETURN?

AlCS +1
SAO c2115

/MORE TO GO!
ITERMINATf" OUTPUT
ISWITCM TO INPUT

I
CR

I. F

L. hi 215

18ET TO L..f NE FEED

C~L.F

TLS

L.AC

1+ 1 •CRl..f' ONLV
ISHlJT OFF OUTPUT
ISto!LIT OFF C~L.F
l~f&ET TA81..f FOR OUTPUT OR TN PUT

JMP EXIT
I

,EJECT

I
I
I

KEYBOARD SERVICE ROUTI~E

0L'l 166

100312

~el1ei7

54~344

t!'lli'l 110

60VJ205

JMJ' 1,.NOLT

JV!S

).117! 171

11Jtllt 72

54'5!45
51'10211

SAD C311
JMP r:f!JBOI.. T

IV!S

'1!0113 -

070228

DAC• 8UFPTR,X

·~Pit?.«

i'25001

AXS +1

SAO CU 5

l<B

KI'S

SAO (225

~~115

54034&~

0!!1176

74UHUt

Pl QI 1'''

e~0122

JMF EXIT

~0200
D.! !iH2 rA 1

750001

CL.A1CM4

04Ql340

OAC MOOf.

ta0202

040337

~lll2r~3

10041 e

002lil4

60!0122

SI< p

l~UBOUT7.

CMARACT!R
~R,72 CHARAC1ERS?
!CARRIAGE RETU~N?
IBTO~!

/AOV~NCE

/T!~MINAT!l

/MOR! TO COME!

ISfT UP FCR OUTPUT

OAC CRLv;
TL..S+11'1

JMP

E~IT

1,,NOL '1'

CL..lC'

0020!5
01l'21116

1350Hl
16~30~

l,.AW 31110

0~2rll7
~02Ul

100016
6021122

Tl..S

JMP E~lT
I

~0212

724(1100
140200

IH'l213

00214

00211

~021!5

0021t'5

RUBDL.T

PXA
SZA

IBEGINING OF 1..INE7

1~1777

4XR • 1

/N01

160334
100406
60121122

L.AW 334
TLS

JMP ElCIT
I

00217
Hl220

SETUP

1!'~0000

0
flZM MODE

140340

~0221

14eJ~3'

OZM CRLF

0~2~2

7 ;,!5000!
200346
722000
62021'1

Cl..X
L.AC

0e2~:s

00224
0f022!5

cuei

PAI..

JMP• SETUP
I

8UFPTR

~0226

!:3UFF

(lf'A227

.ENO START

00344

00010m
000215
0"10225

00345

000377

•L.
•l.

a1e1J46

.a001 U'!

•I..

00343

BUFF
eBL.OCK 110

•I.

SIZE•!ll0~47

NO ERROR L.IN€S

INTE~RUPT T~ST

ROUT?Nf

INTERRUPT TESl AnUTtNf

.TIT~~

.ABSP
I
I
~l/li1JC'10

1,a(7!!2J()l~O,l

00;(!~ 1

~4U55

!NT

?1~0"'2

1~0314

O.AC SAVE#
!ORS

('IL~liH13

60lfl!10Q!

JMP CHEC:I<
I
I

I
(.l!Ci'l 1"10

iaia1Cll1

041r1.'!56
501 rHlC'I

CHf!C:K

DAC SAV5f.Uit
AND C300!130!0

541 '~6el
6~riJ30~

SAO (300~910
Jp.!p REAO

JMP REAO

001~6

54 UHH
E'HA0311JQI
5'41062

001~1

t5l'A0:~27

JM!i' PU~tl'I

~0110

2010tJ3
10•.1.t.606
201rn5e

L.AC (1

Cll01Cil2
~011113
~01914

1(111'1105

il!0111

u1112
~" 113

SAO
SAO

(2012!0"0
( 100!Cll~0

n.s

l.AC SAVSTA
~LT

140Ci!4QI

15A\IE ?ORS wORO
/MAS~ UN!XPECT!O FL.•GS
IC:~fCK FOR SIMULTANEOUS
l~ANDLE

/CMEC~

READER FI~ST ·
,OR READtR FLAG

FLAGS

/CMECK FOR PUNCM FL.•G
IRING B!LL ON TTV
/MALT W?TM !ORS O?SPLAV!O
IIN AC ON UNEXPECTEO tNTERRUPT.

.LOC:

'0~

C50Vi

INIT

r:i!"2!i*0
0Ql2'411

2QI 11?164
i':i!!20C!IP

L,AC
p Al.

0!l.l2~2

141053

OZM P!NOX#

(ll{.)12~ll3

1410!54

:!102CA4

141~~'

~02~5
0~2Cl!l!i

1~11e2
13f51X~Q!

~\A2~1
~""210
~(11211

/SETUP LR

OZM FUNC'lC#

OZM TEMP#
OBA

/SETUP FOR tNOEl( MOOE

7001U~

?ON

/TURN ON INTERRUPT

1!5001210

CL•

11110204
700104

PSA
RSA

00213
1'10214

754030

CLA1CLL.1IAC:

7400U!

RAI..

~A215

441052

ISZ

CNTR~

017'2U5
r.110217

617112121!5

JMP

.•1

14010~

SM.A

0~212

Qlv.:1220

5~021.4

00221

740020
441052

0(1)222

cL. )(

/MOVE TAPE TO GET FfR~T

JMP MAit-1•1

IHGHT

~AR

ISZ CNTF(

00223

eit:ll\?1222

JMP .•1

002~4

541065
8'110214
600221

SAO

JMP

MA H·"H

00~2!5
0~226

JMP ~!GI-If

INTtR~UP

PAGE

T~PINT

INTERRUPT ·TfST ~OUT I NE

s~c

I
003~1/!

3~l("

.L.OC

003Clll'IJ

2010~4

0~3~1

;a0J02

721~0QI
7~0112

0'-"31?13

a50352

003~4

201~515

!.71~3:Jl5

501066

READ

l. AC RtNflX
PAX
RRS
OAC BUFF; lt _

/GET R!AOER
/SETUP )(R
IRE~D

tN~E)(

READ.ER BUP'FER

/STOfl'H!

ITI

l..AC SAVSTA
ANO CUU0

/GET

l8AV! FOR CHECK WMf "1 PUNCH DONE
/CHECK FO~ ~EADER NO. TAI'!

TEMP

003C'l6

~41057

01/13Pt1
0l"l310

341066

DAC
SAO

6Ql0322

JMP SETLIM

l!'l'll 11
00312

125Pl(iil1
141Pl0C!I

AX:S+1

a~l13
~0J14

600323
124000

JMP RESET

00JU5

041054

~0318

OAC RINOl<

100Uloi$

00317

~ra1m5s

ct £Hfl0.

!O~S

WORO - -

· l!ETUP L.R FOR·PUNCH
llNCREM!hlT XRdU<IP. !F

Ill

Sl<P

/G.E.T REI.DER INOElC
/SAVE IT
1-MoVE TAPE VOU•RE NOT CON! VET

PX.4
RSA

R!T

1..AC SAVE

~0320

700042

?ON

~0!321

620~i.!JQ,\

JMP• !NT

l~ETUR"1

SETL.IM

A)(S • 1
p )(I..

/SETUP FINAL. LIMIT FOi:t l"UNC:M

~ESET

!HM ~HIClX

T.O MAIN PROGl'UM

00322

125777

0Ql323

- 7~t50"0

00324

60~317

0~3'.f5

141 f'l54
6li!0317

00J;?5
[110327
0033'l'I

201Pl5~

J~P

RET

/RE?Nl'TIALI?E READE~ ?NO!)(

JMP RET
I
PUNCM

t..AC PtNOX

72100Ql

PA)(

~0331

210!52

I.AC BUFF,l(

\?IV'l332

1 PHl21116

'11~333

12501711

PS.l
·~
AX S +t

171V'334

741~121!,11

SKP

~t:IJ335

800J41

JMP RNT

Cll0JJ6

124tiJ00

?)(A

I )(lhl..R, CHl!CI< FO~
/GET PIJNCl-4 INOE>t

0~J37'

041053

DAC PIN[>)(

/SAVE IT1

~0340

~0342

llS00317
201057
54Ul!68

CJ!~34J

60i?J347

00341

RNT

IPUtllCM A CHUUCTE~
IINCR!MENT XR-S!<IP IF

JMP RF-T
l..AC TEMP
SAO C10CJIQI
JMP A~EAO

RO~

Ill

NC!

l..fr1
TAP~

/GET MASKED lORS lliO~O
ICHECI< FOR ROiif NO T.APF-

IGET C'IUT OF INTERRUPT ROUTINES

/YOU'RE OONEl

\)1.,1!344

141'115;,

OZM P'.1'. Nt lC

Q.llf!J.45

700104

~SA

~f1.346

~171347

60!0~ 17
7033111~

e!0J50

400317

~0351

152ii:'100Q!

IRE!N!TlAL.IZE PUNCH INO!X
ISTA!llT THE READE~

JMP RET
AME AO

/CLEAR TME

CAF

XCT

JMPlill t NT
I

0fll352

6Uf f"

a BL.OCK

~ORL.01

IPfSTOJ!fE TME AC FOR fiU I t.i
IOONfT TU~N INTERRUPT o~.

~ET

5"0

PAGE

TAP!NT

I
1'LS•700406.
PS4•700204

700411.16
70020•
100104
100112

MS.l•70010A
HR8•70HU 12

.END

00000(11
3Q!Cll00P.!

•L.

01iUH
01062

200000

•L

1 Ql012'0~

01063

·0"0007
00050\11

•L
•L.
•L
•L.
•L.

01'H.i~

~10tU

01065

00Qt0Q 1

~\0t';6

12)1,111(1100!

INTERRUPT TEST ROUTINf

s~c

SIZ!•Ol1P61

NO ERROR 1.lN!S

?ROC•R'AM. "'PJ co~vtRr IOPS
~TITLE

PROG~A~

ASCU ..TO. ~MAra: AL.PHA & SOR'

CONVf~T·

IOPS ASCII TO %MAGE AL

/PROGRAM INPUTS IN IOP~ ASCII F~O~- THE TTV~
/WNPAC~S AND STORES AS ?MAGE ALPHA,
/SORTS TH~· CH~AACT~Rl lN ~SCENOlNG ORDER
/4Nu OUTPUTS ON W"fA'tEVER DEVICE lS .lTT•C~EO

ITO JAT SL.0~ 3•111US!JAL.LV .Tt-16 TT .OR L,P,
I
.
.
.

• I l.lD EV· .i. 2 , 3 .
I

• G·L. 0 !31.. 5 0 ~ T

.INIT 3,1,RST

.!NIT •2 1 0,RST

/TT OR LPFQf:fOUTPUT

/TT ONL.¥. FOR INPUT

,READ •2,2 1 8UFFI,34
.1<1AIT •2
I
dil'·I010 R

l\1"1220 "

JMS UNPACi<
t!UFf l

BUFFO
I

C6UF"F0+2-

L.AC

ilH-10.22
iiHH123

lo(

6?:>2k'l!O:.d

L.MQ

lo(

2~~jJl

!O~id24

12~J30

t:.

I.AC HDCNT·
JMS• SORT

l(l l'l !d

21 R 2,.,03Jb

llOORESS OF INPU1 BUFFER
/AOORESS OF OUTPUT 81.JFFF.R
. lG E T ADD RE s_s 0 F 0 AT A Nu T HE. 0 ER
/SUB REQUIR~S IT IN MQ ~!GlSTER

. /GET WORO COUNT IN AC
IGO OFF TO SORTING ROUT?NE

I
I

.wRifE 3,J,BUFF0,82
,WAlT 3
JMP MORE
I
RST

.ci..ose: •2
,ci..ose: 3

JMP GO
ilJ~iD.41

~~1~J

R 00~~~~

~A00~~

~~10~

~t'll'-'~

• 6L.,0CI(
0

6UFDf

,BLOCK 12f!.l

I
I
I

I
(IV1220 R 0~12!~r1H1 A
i0022b R 22\d2faO w
4V.227 ~ ttHH'l3~1c'.l ~
ii}vie3~ !( 44\d22!5 R
;d~i231

w 22~220 R

"1til23c R V,1)40.334

itlkl,33 K 7?.3002 A

\J1'4PACK

L,.AC1r UNPACK
DAC
FROM#

ISZ UNPACi<
LAC• UNPACK
OAC TOP#
A1H; +2

/PICK UP auFFI AOORESS
/PICK UP

~UFFO

/GET AROUNO

AOORESS

~E•OER

wo~os

fo'A•,J~

...

C(Jr'<IV~f

'-'.

SRC

"'~2:,4

IOill23~

R 44~220 k
k 2211l33in

V>~230

Vl411:1.,)~3

. IJA.C .rnti::

.. :, . . . ,.i·Jitr:iiNT&'.~ ·lo· ·O·A.T·,(, A}(EA

I Si. UN.PACI<
.. /SET. UP '101f E">c·:r'r ,
'
I.AC•· f~OM '·. . .</Gt'r HEAOER ·woRD."' OF· INPUT".

A·N:O .(37~Q!00 :_·.·. ·.: /G.,ET ..11fORO PA IR \eOUNT (tf?TS. 1 •8]

10i'>237 R ::hh1..)37 ~
ll!Jllt~41{1 l'1 -~4~J4id k

TAO:t•·(0~a

·. /SUBTRACT'.ONE-(TO EXCLQOE.

/~·!:.A[l_ER- wOR:O .:PAIR . -. . . . . . .. . .
l!ltL.ACE irl[j P~ COUNT I·!\J·..8IT8· '9•17

·-

()02.d~

R 742~JJ 4
k 74~·,,31 A

SWHA. .. > · .
. TCA

detg43

!ll4~321

UA~ cou~~~

32'~41

. ·,"'~WORO. Fi'AIR CO-UN.T :-_: . :
·/SAVE FOR. ~lTE~. IN ijNPACK

. <.,AND·, . FOR
.002414

R 2(!iOJ30 R

!00~4::>

1 ~3v:!V!2 A

id l'!24o

~403316

!0~~47

R 14~331

. IP 1c·~ . UP ;Mloll0 .OF. INPUT

L.AC F~OM·::
'44C· +a·.·.·.·
U.AC. :FROM· ·

USE": IN··.SORT ~-Ou Tl N.~ ...

euf'FER .

/GET· ~ROU~O:KEAO~~·~o~us
.,,RriM NO~ Pdt~ts-~o_FtRST OAlA.

I
./CLE~R tMlGE'~LPMA CH&~. COUNTE~·

.UZJllJ
. . . . l<IOCNTtt
\
.

/00 THE A~TUAk.U~P•CKtNG
I

uo .

L;AC;o:FROM

idii:i?Ci©

~:20J3~

idi?i,~1

R 74211,1;,11

il1~254!

7 42i!.!21t)

dire~.)

:lot· 1·fi,~J21

2~d33~
142~21d
742~20

:Rn( .. ·

jo(

JMS. S_TORE

112~254

00251>

~025b

1112'2~7

R 1 MJ321

$·w·HA

·!H.~.

· JMS ·~HORE
LAt•:FRa~·
~TR·

.· /c;e·t: THE' FtRST. OF f'·I VE:
.. /PtCK u~·Fl~ST ~ORO AGAIN
'/MOY~ i~O~CHARACTtR ·lNTo:.sITS 11•11

... :/STORE TM! 2~ro :OF.

,_Ive:·.

I
fO~C'.6!0 ~ 22!0J3t6 Iii
iOV\261 R 742'110 A
1tH~262 R 74~\!110 A.

:Dt~~J

5'1V>341

i'(

00264 ~ 040332
002ees R 440J3ft1

-At.iO. ·( 17.itii
OAC ·ffM.P#

lSZ· :FROM

L. A c; •

i(tVl~l;b

R 220~~"'

fd0261
id~ll7 VJ

A
R 742ib1IO A

~~lit71
iO~Z72
~~21a

M Oi21!'1342 R
R 34!ll3J2 i..;
~ UJ0.:n 1 R

l-AC•.fR.°OM.
RTL.
. · RAl. .
.

74201~

F· ~ 0 f'I

~TL.
~TL

/PICK UP 2NO WORD OF PAI~
·/MOVi 2ND H~iF OF 3~D CHA~
lT6· ·St T.S Ul• l 7

.A,..p

(7
TAO Te'.MP

JMS .STOR'E

/FINALL.\'••STORE: TMf 3RO OF FIVE

I
ld0214 ~ 22k!l..)3!.1 R
a027!) R 14~lt'l HJ A.
i4027" ~ 74203~ A

. IOL,
$WI-IA

il"'211 lit 1 ill\!1321

.,TMS STOKE

·1..AC• F"ROM

t'l

/PI.CK UP 2"40 WORD ·AGAIN TO GET

. /AT lME 4TM OF TIYE••MOVI TO SIT
/NOW TO SIT~ 11•17
/STORE 4TH.OF FIVE

I
~~~~~
0il~tll1
~e.Je2

.I.AC• PROM

R 2~~J3el R
~

741/l020 A

R 1~~321

IUR

JMS STORE

,EJECT

IPlCK UP ~-ORD 2 FOR C~ARACTER 5
/PLACE IN BIT~ l1•i7
/STORE LAST OF FIVE

CO~V~T

44~330
44~327

PR.OG~AM JO':·~ONVEf(T /IO·PS. ASCil TO

SRC

~~.)03
~~304

~
~

idt.'!J~:)

R b0"'25\1 Joi

il1ill~~o

. ISZ FR.OM .

·isl: COUNT

R
R
A

l~b••GO BAC~·Fo~ MO~E ..

L..AC HIJCNT

I YES·, OON!•INCLUOE. HEAOflt WORQ. "PA.
/ANO ONE. FOR GOO~ LUC(
_

AAC +3
SWHA.

th1i)l.'17 K
"i.;'31~ R 742VJ31d A
11H1.) 11 ~ 7 4t11tJ~ii:l A
MJJtli! fit ~Vj~.)37 ~
d·V\ 31 J lo( 123vJll.I.) A
(JY..)141 R ~/jldJJ4 I(

IUR
~NO

(377000

AAC •3
OAC• TOP

44~334

lSZ TOP

J1!13to R 1616334
"r1-Jt7 R lti1g1333

0214• TOP

DZl'h TO

b2!022~

4~310

;Ofr.1J2i.?

0~~~0~

!Cl~..)2~

500343 H

01ilJ2d

~
~

0eJ2b R

i.1t:i~333
44~33~
44~3.)1

i0~32tt

020321 I<

~~J24

STORt

0
ANO

(177
/

lSZ !'IOCNT
J~P•

STORE

I
12hHh1~ill

~
~

0~~3J~
~0010~

~0337

377~~0

~~~~~1

~~3d~
~~.)41
d~J4~

~0J43

• ENO r.;o

•E
•L

A *L
R 711~~~ A •L
R ~~~l7M A *L
A •L

R ~~~171 A ·~

SlZf.•~0344

NO ERROl:f L.lNES

/SET DATA MODE ~O IMAGE

.·.·:.

DAC• TO
ISZ TO

~~33~
~~33~

'ID?VIOE ev 2. ANO ~"OSITlON IN . :
/SITS 1•8
.···.. :-·

JMP• UNPACK
I
I

~~.)2l ·~

'/SETUP To·o·o IT ~ITH' N!.XT 2 wo's
/AR! WE OONE··WtTH~AL~' a/1 WR·

.JMP 00 : .

I
2~\dJJl
72J.1~J

nut.a: (.~.~.H:A ,. so~

I .
.

FILL.ST SRC ··

PAGE

: ...

SOURCE ~ILE ·~ISTE~·
• T1.T1..1! sotHtee: · .r11..t, Lt.srfl!R .

I
Io ooo o 0000:0.. 0000·" ooo"ocn7 o """"''" 000000 OOJ7 co~oo oo,C, oonoeoooo
I

ILA8 PROaLE~ ~·OEVISE A·P~OGRAM TO LI•T A ~s~en FILf OF
/ANY LENGTH ON A GIV!N OUTPUT O~VJCE
I

/EXAMPLE OF A GL~BAL CALL
I

/INPUT DEVICE IS .DAT ~15.COIS~ OR ~T)

I 0 UT PUT

OF.: V I CE I S · • 0 A·T :5· · CT T OR LP) .

/COMMAND STRING IS .OAT ·•2 CMUST ee TTY)

JNAME IS AN INTERNAL GLOBAL
l~ILNAM

AN EKTER~AL

GLOBAL .

I1oooooooooooo~ooocoo~oooooo"ooooo~oooooo~oo~ooo~oo~eo~oo
.
. . .
.
I

I
START

.HUT •2,A,RST

.INIT 3,1,0
.?NIT •HJ,ra,0
I

.~R!T! •3.2,MESS1,3A
.wRtTE •3,2,MESS2,3~
.WRITE •3 1 2,MESS3,34
.~AIT -~
.

.RE•O •2 1 2,A~S,6
•'llAIT 111?.
• CLOSE •2

Qtll\042

R 2~0 un R

L,.AC ANS+2

OAC AUG!

2~0110

LAC

"'li'H!l45 R 040051
OlliH'l49 H ~OJQl171

R
R

OAC AUG?
1,.AC ANS•4

12028~

~0043

R 3400!50!

~0!~.44

1110.a47

~~050

R 0000!l'l0 A

00~51

R 000!~00!

AUG1
AUG2

A"'IS,..3

JM8w FIL!\101
0
0

•t!5,NA~E

.FSTAT
~00~5 R 14120Cll A
4'1~0!56

•SCII

/LA$T PART.
~11 ASC!I
/GO CONVERT. '!Jl'1 Tt'I StX8T

/FILENAME

O~ ~EVICE'
PRESE~'-Tt

.S!F.I< •15,NAM!

/NO GO REST-RT
/VES OPEN AND R!A~ FIRST

.REAO •t5.2,8UFF,ee~

/GET ONE ll~E OF TE~T

JMP RST
I

Vl00!f52 H

~/7

ISECONO PART OF 511 ASCJ

IF I L.E

Sf\IA

R 6~0111 R

/FIRST PART OF

.WAIT •1:5
I

...

I
1\10~70

SOURCE FtL·E. .bl ~T:ER

FILLST s~c

R 2Pl0i2~ Ji!

l.A.C ·SllFf
ANO C7
SAO (5 '

tHHH1 R 500264 ~
00012 R ~40265 P.
~!(!073 R 8Pll'J103 R

JMP on~e

IDONE7 ..
/.VES

i'-

.WRITE 3, 2, 8 1JFF, ~·.WAIT 3

~01@2

JMP MORE·

R e000e2 p

/NO

I
0010!3 ~

OONE

.WRIT! :•3,2 1 MF.'.SS4,3"d

~0111

~ST

.WAIT·•3
.CL.OSI! •l

.CL.OS! •2 .
1'11111.17 R 6Ql0~00 R
00120 ~
A

• CL.OSE •15

JMP START
8U'F

.•

.BL.OC!< .t2

I
I
~P.162

R QH!l0llt0Cll A
00163 R ~HHl000
~0184 ~ 2;,2203 A

~f)t65

..,~175

M ~10002

NAME
I
4NS
I
1'1ES51

00176 R 00000'11 A
~11'177 R 445ri'12 A
00200 R 74'4el30

.SIXBT ''•••••fSRC 11
.BLOCK 10 '
MES82•Mf SStl.2• i P1rcU1 •:2' ·.
0
fl I ·liltL;L R!,TR!!VE U!V

.•sexr

•

•5RCI F!Ll!U.1111!'1>

R 481~12 A
0\4202 R 24'26~V! A
'8~211'3 R 512230 A
00204 ~ 553212 A
~02Ql1

A 2020~1
R 6!5~51t10
R 236472·
00::n0 R 241!5SS
~020~
~02e!t5
rA02~7

A
A
A
A

00211 R 2~2151 A
"'0212 R 146212 A
00213 R ?J84CUJ0 A
l!J0214 R A000J00

0~215

A
A

R ~12002
002lt5 R 00000PI
00217 R 522632
00220 R 042!'f00
·~ei221

MESS3·MFSS212•100~+~

.ASCII "TVPF.'. I I'll

R 446344 A

00222 R 0405~12'
R 4325~1
llJ111224 R 446l0rA
"11l'225 R ~H 62_33
~0226 R 11!2020«5
~~227 R 442032
01i'230 R 2406,6
0!i1122~

"1ESS2

A
A

•
fl

•
A

4 FLll.L

• co

/ANO nuTPIJ·T T~! L.tNE
/.GO. 9AC1<· FOR·· 1~0TH-Elii' L.IN.

SIX

CMAIUCT,E~

...

?AGE

&110231

SOURCE FILE· 1.IST!R. ·

FILL.ST SRC

3
~

52(1132 A

0~232

R 22~00~ A

!~~233

R 4'322~1

00234 R 44'25V!PI
00235 R -472031

.ASCII "FILE NA~E."c0t5>

091236 R 542534 A
~Q\237

R le'lt54000 />.
1U2.id0! R 0~0fl00 A
002•1 R 00e002 A
00242 R 01.110Q100l A
0024-3 R 4266tP A
00244 R 141Sl!U0 A

Me:SS3

MES54•MESS312•t000+2
0

.ASCII

EXAMPL!•• !CHOffcCR~"C015>

00245 R 482129
00248 R 225100 A
0P.24'1 R 426t.i71 A
00250 R 041800 A
GJ02!!Jt

401110 A

00202 P. 351174 A
~02e3 R 064000 A

•,.

~~2:.;4

R 00J0"0Cll
A 1t1103002 A
"102!56 R 000000
00257 R 422371 A
002e0 R 542502 A
002e1 ~ 0.,4000 A
1!1"1262 H. 09.1000PI A
IZIV.2~!'5

000283

R
R
000000

!11ESS4

ENDM•MESS412•1000•2
0

.ASCII

11 00N!I 11 dl1!5"'

ENOM••
.ENP STAIU

0t7J2t53 R 00028~ E •E

~0264
~026!5

R ~l?IQ!007 A •L
R k'l0000! fl, •I.

SIZE•etia2ee

NO ERROR L.IN!S

.• TITL! ~OUTINE TO CONVERT 517 ASCII TO 1!Yl1T AS
I

IROUTI~E

TO CONV!~T ~11 P~CKfO ASCll NAME T~ 'lXS!T ~AME
/FILE NAME IS "AaCD!F" FOP COMMENTS
l"X"IS A DON'T CARE POSITION
1"0" IS A POSITION KNOWN TO Bf ZER-0
IBYT POSITIONS ARE GIVEN ev CHARACTER ~ETTEPS A•F OF FIL
I
I
I

CAL.L. 5Er.JU!NC!

JMS•

I
I
I

AUG1
AUG2

FILNAM

/YAAA.lAAXBeee~e•crc

/CCCXOOODDD~f~E!fF.0

AC:•AUQ3

l~'FFFFF~~0'0~0~0~0

l"NAM£11 IS AN EXTERNAL Gl.,.OBL
JllFILNAM" IS AN PlT!!~NAL Gl.08L
I
,,~~r.1\t~

~0~Q!1
ill~0ill2
~0~0l3
!Jq<~l~4

~~01'15

3Jirllt'le5
!ll0!'1P17
~001 (lJ

~P-011
~~ill! 2
·~viir;i 13
~e!Q!14

?lli'!"t1!5
1'1fn(l'J16
;JI i( l}J 1 7

R t'lt?ICJ!f11?@ A
lil V'l40046 R
R 21i'!i80!5!.ll E
R 123~~1 A
R '1140041 R
R '11'5161 A
R 52Ql1i100! ~
~ 14411.Hrt.1 A
R 7441i'l~0 ~
~ 1 liHi1037 R
R 01'!3:>'56 A
R 100~37 R
R ;1lril~l~34
R 06QHHH!I E
lo( 44:;.IJQ!~fi'I R

•

22?ti~0~

FIL.NAM

.. GL.OBL NAME,F!L.NAM
0
OAC SAVAC
l..AC NAMF!
AAC 1
OAC: NAME 1

i.•w

ANO•

U'17~7

FIL.NAM

CLL llUL

CLL
JMS i,.FTPK
375ti

JMS 1.FTPK
34

OAC•

I,. A Cw FIL NAM
L,RS O'

TAO•

NA~I!

~~~22

06~~!5~

OAC•

NU1f!

.~17\'2!li'3

R 64 !21el23
R 50;111~5 j

l.LS 23

ANO C17':i111

JMS L.FTF'i<

'lJ~024

ii li'H'I 2 5 R
R
~vlJ.127 R
:11vi~30 R

~(ill,,,26

1 "'011137
0"'3740 A

374fll

0601'!47

OAC•

2iai3046

64~!513
l'HJ0~~2

A
R

"B"&"C" 7TM SITS TO ~

/AC•~AAAAAAP8Ae~e~mcce

IAC•AAAAAJ0BBBBSB~CCC~

l~OVE

"B"&"e"

O~f

LEFT

/AC•AAAAAA8~B~ea0r.cc0~
/~OVE
O~E
/AC•AAAAAA8eBA88CCC~0~

"C"

LEFT

NA"1E

ISZ F ti..~' AH

l?l00J2121 R l!'i4i·H517
~~(JI~ 1 R 380~~5~ E:

/SAVE AUG3

NAME1
L.AC SAVAC
L.R S 1~
AND ('11

"'ftltJI J 1

rl!~~32
~l?J~33

R 3E!l0ei47

Ii(

TAO• NAME\

,'J~·~34

Sf'
liil

OAC•

~Q;(J!35

R 0!500)47
R 44000l'JI

1'!~1'J136

R ~H?01l'0'1! R

~AMEt

ISZ FILNAM

Jp.\Pw FIL.NAM

• EJECT

/AC•CCCXDODOO~~~EFE~E~
1•c·~~0~0~0P0~0~~rn~ccc

/AC•AAAAAABBBAeAeeeeee
/AC•OODOOOXEEEE!E~0~0~

/FORCE AC 6 TO
/MOVE "E" ONE LEFT
I'-!

IAC•OOOOOOEEEEE~0~~~~~
IAC•~FFFFFF~0~~~~~~~~~

IAC•0A0~~~0~0~~~FFFFFF
/FORCE AC tt TO ~

/AC•DOOnonEFEF.EEFFFFFF

PAGE

FILN~

RO!JT I NE

SP.C

~ 1'.100'afl!QI A
40!040 R 04i2!04!5 R
r11~1u1 ~ !520037 R
~0037

1.FTPK

R 34~045 R

~00•4

C:ONVE~·y '617

0 .

DAC f \
4~0"' lr'f PK
TAO T1

~~042
~004;,

ISZ L.FTPIC
JMP• LFTPt<

R 4409137 R
620037 p

I
0Vt\114t5 R 00000Q! A
00046 A 00'11000 A
~0~47 R 0"'0000 A
00000PJ A
Ql0QJ5PI R 000Ql5PI E •E
l~f.)10~1 R 173171 A •I.
OJ00r')2 R 00!0077 A •l.

~JAVAC

0
0

NAME1

SIZE•0!0P3~

.!NO

NO ERRnR I.INES

ASCJ! TO SI)(fHT ASC!t

FILE.NM

PAGE

II A

SRC

SLJBROUTif\iE Tn CONVERT

~17

ASCU. ·To

e B '.l'T

.TITLE'. "A SUBROUTINE TO CONVERT 517 ASC!t
I

.GL08L NAME,FlL.NAM

I
1."tll0~0I Ji 000CA0Cll A
PJ00Coll 1 R 040061 R
000~~2 R 220000 R

FIL.NAM

OAC SAVACtl

I.AC• P'lLNAM

/SAVE I.A.ST ARGUMENT
/GET FIRST

I
/Gl!T 2 ANO 1/2 SIXBtT CHARACTERS
I
0Q!~Q!3

0~~1'Jl4

R 74017! 1tll A
R 0401iiei? Fi

RAL.
OAC

R 50! 0 QI f5 4 i;
00~"'6 R ~6Pl063 E
i;itli'IQJ17!7 R 2"10c,,a2 R

DAC• NAt-\E
LAC

OAC TEMP
ANO 01077~0
TAO• NAME
OAC• .NAME

R
E

LAC TEMP
R A.L.
ANO (1'~00!070
OAC TEMP
ISZ Fil.N~M
LAC• FIL NAM

p
~V.0 U.5 R 740A10\ A
~111~17 R 5~01i1166 R
0!0?120 R iaAA062 Ii(
i'A0~21
0~~22

R 44Qltll00I
R 22'110!00!

TE~P

~AL.

QICJl"U~ R 740~10! A
~(11(1111 R ~ 401i1162 R

iall'012 R 500065
"1~2113 R 3600tJ3
~fl!Ol\4 R iae0111e3
?IM!15 R 211'006?

T!MPM

A.NO (77"112100

0!0~~5

~
~

/GET SECOND

/COf'lPLETE 5 SIX BIT CMARACTERS

R 5~0067 p
~0!fl24 R 14At'Hl0 A
OhU25 R 74201~ A
@J0L'J~S R 742(11\~ A
Qli11~27 R J4itlfll62 p
12!0~?3

AND

(711lO'~fA0

CLL
RTL.

RTL.

"10"30 R 350Q!6~ E
(;llfi'l031 R ~600!63 f"

TAO TF.l'IP
TAO• ~Ap.1f
OAC• NAME

00QJJ2 R 220000

l..AC• 1'%1..NAM

"ti'Ql33 R 7421/HOI

RTL

R 142~1P A
R 1})4\21062 R

RTI.
OAC

TEMP

~5'1101iHl4

ANO

(770~~0

0~0.34
00~3~

30?136 R
0~1a37
~Q\0401

1?1"1~41

illli"042

00043
('10eit44
\!0Gll45
0111~46
lll~047

~liHl.150

QJ011HH

R 440063 E
R 0!801'153 E
R 21710015~ Ii?
R 740011" A
R ~0ia065 I?
~ J60(!163 f
R ~f50Pl83 E
R 20l 0ClllH R
R 742Cll3t11 A
R 74202Pl A
R SCllC'ICll7111 5d

ISZ NAME
DAC• NA.~E
I.AC TEMP
~·\,.

AND

(tJJ0770!0
TAO• NAl'll!
C>AC• NAME

L.AC SAVAC
SWHA

qTR
ANO

ri:ii0~~11

IA$SEM8LE LAST SI >e !HT
/CIOIUCTER

T('I

SRC

FlLEN~

R 360~1.53 e:
fe!Ol053 R C116V10e:,, E

·r AO'llP NA"'~

300~2

~1(1054

R 777777

f.ll00!§5 R

OAC• NAME

1..•w •1

34!B~83

00056 R 040gie3

00~51

R 44QHHl171

OAC NAME

30e!~C!I

R 62001!'9! R

ISZ FIL.N4M
JMP• FIL.NAM

TAO N04E

00000G'J A
000e3 R 0Qllll063 F •E
0~064 ~ 17~~0t}I A •I.
OH~".165 R 0(11770!11 A
"'L.
(11gj(i1f111t'!

A •l.

R 1000~CJI
R rll0~Pi77

A •L.
A •t..

00066 R
0~067
~ett'll70

SIZF•!l!(}Jt:>.11

Nr.J ERROR L.XNF.S

PROG~AM

FILALO SRC

TO ALLOCATf

SPAC~ FD~

RANDOM ACCESS FJLF

1ooooooooooooooeoooooooooooooooocooooo~oooocooo~oooecuoo

[XPECTS TO FtNO TH~ NAME
FIL! IN TME l'lATA SWtTCM
IR!GIST!Ra TME P~OG~AM MALTS J TIMES ..
I
l)PLACE FIRST J C~APS te BIT) OF NA~! IN DSR.
I
2)PLACE SECO~O~ CHAR! re !IT,. OF N•M~ IN D!R
I
3JPLACE 3 CMARS ce BIT' OF E~T!NStON !N OSR
I
4,PLACE OESIRED LfNGTM OF FlLE IN BLOeKS IN OSR

/W~EN

STARTED,

T~t PRO&RA~

/ANO OESHifO LE~QTM OF T~E

/~MEN

OPERATOq HITS TMIRO CONTINUE, PROGRAM t~EATES

/THE DUM~V FILE 1 SLOC~ LDNGf~ TMAN SP!CIPlfD !N TH~ OSR
/NOTE THAT TME EXTRA
IRET~IEVAL

BLOC~

!! USED TO

HO~D

TM~

"RIB",

INFOR~ATION BLOCW, ~MICM IS NfCESSAR¥.FO•
ACCESS OP~RATIONS. OON'T TRY TO FDOL TH! P•~G~AM

/RANDOM
IBV PLACING A VALUE 1 LfSS THAN THE DESIRED
/THE DATA SWITC~ ~EGISTE~.

L~NGTM

I
1oooooo~oooooooooooeoooooeo~oooooooooooooooooeo6o~oeeyooo

.IO!'.lEV

.c1

I
210!000,! !
~~~~~111

OUTst
I
START

/INITIALIZE OUTPUT ['IEVIC

.INTT 4,0UT,Ol

I
L/l(.ili/14

1;i11ii'!(?J(,ll 5

R 7400!4(11 A

R 7500041

'10i"CA6 R ;ll4'1qij42

DAC NAME

/HALT Tri
UP FIAST ~ CrUfUCTf~S
/OF NAME ANO SAVE

1'4L T

/.,.ALT TO

I'll T
L.AS

/Pt Ct<

I
t?H''J~f;ll'
17) 0iJ1 L'I

R 741tl!!i!40 A
R 7501?104 A

~H~ i?l 1 1

R 04(1)\t\43

""·~~ 12
',, '-' 1. 3

R 74"'!;'!.dQI A

MLT

/MALT TO

;1'5~004

L.AS

l'PlCI<

"~l i1J 1 4

CU~QJ4.4

i:;>

OAC EXT

/ANO

~:!'ill t 5

Fol

HL T

IHALT TO
/PICK UP OES?REO.FHE L.~NGTH
IL!GAL ONLY IF STRICTL!f P"1STTIVl!
IOTH!lhl IS! EXIT
/ptiAKE IT A NEGATIVE cnur..1r

/PIC:I< UP SECONO J
/OF NA"1E ANO ~U\IE

l.AS
DAC NAME'+1

C~AroeTEIU

I
1400!49! A
"'.(fl~ 16 Ii 150G-'104 A
""'~ti' ~ 14 urn~ A
1'Vi;(1~1;it R 6L'lr2!04~ R
?!~((!? 1 R 1'4etfll31 A
~i2Jrd22

R ~40443

LAS
SPAlSNA
JM? E)(IT

TCA
OAC

COU~T#

.EJF,:CT

UP 3 CH.&FUCTER l!>tTf;':NStON
SAVE

PAGE

.ti? .

..... ',: .

PRO~RAM .rn Al.LOCATE -SPACE.FOR ~AN00~1 ACl:ESS F!~E

FlLAl,.O SF"'C

•.:

'·

I
.· I
• ENT EA . .t, N.O!E

OUTPUT .• w~tTE 4,3,BUFF,2~4
.8~fil34

~~~35

• Iii At T .•
ISZ COUt.JT,
JMP OUTPlJT

R 44QIA43 R
R 500026 P

.CLOSE A
EltIT

.EXIT -

I
I
I
NAME

~'11042

R ~Ol000QI

~MJ4J

30q!Q10PI A

QI~~··

000001;1 A

J:!)(f

JJ!i'~45

R 1170!0!!1 A

I
t3UFF

~~~415

'4~~r.110t'I

1 ??P':iiJA
id

.REPT 374
5
.
I
0Ql~000I

SIZE•Ot121441

.END START
NO !RRnR L.'tN~s·

/~ET

DIRECTOR¥ ENTRV FOR
!T 0UT••ON! PLOCK

/~RITE

I AIU WE DONf t
/NO••SACK FOR MOR!
/VES••CLOSf FtL!
/ElVE •. •.

FILBLK SRC

.TITL! PROGRAM T~ LIST RLOCKI USED ev A ,TL~
I

1oocoooooooooooooooooooooooooooooooooooooeooteoeo900000e
·/
/P~OGRAM ASKS "FOR TM! N~ME OF • 'IL! WHtCM
8TOR£0
ION T~E OEVIC! ASSOCIAT!O·WITM OAT 3 tD?Sk OR DECTAPE~.
I!, TME 'IL! !XISTS, TMf BLOC~S UStD 8V TME F!LE ARF
ILI8T!D ON THE O!VXC! ASSOCIATED ~XTH DAT lf tTT O~ ~P).
ll, THE 'IL! DOES NOT_ E~?!T ON TH! DEVICE, • ~!SS•G!

/TO TMAT !FF!CT IS PR?NT!D ON TME TT,.
I

1ooooooooooooooooooooooooooooooooooooooeoooeoou~uooooooo

,GLOBL !A28!,0TDAIC

.IODEV S,12"
101!J0Q1Ql A
!!100001 A

%N1110
OUT!ll 1

I
STAIH

.INtT ~.IN,~

IS!TUP 3 'OR INPUT

tFT.L!~

• HUT •2 1 OUT, RI

.lNlT 1R,OUT 1 0 I SETUP 12 FOR OUTPUT (TT D~ LP)
.IhltT •3,!N,OV!FP

,.......................•..............•......•.........
GET FILE NAME ANO
I

,........................................................ .
!~T!~SION

.WRIT! •212,MESS.t,3•
.wRrT! .2.2,M!SS1~,3··
.WR?T! •2121M!SS~,34
LIST

1'ril034 R

.~RIT!

1!'.XAMPL.!
/NAM!•

.WRTTE -a.a.~ESS,.!A

/E>fT111

•212,M!SS3,34
.WAIT •2
lfil!AO IN NAME
.READ •3,3,8U'FN,8
.WAIT •3
.WAIT •I
.READ ·~ 1 ~ 1 BUFFE,e

L.AC

11101!1182 R 2et 111117 R
"'0!af)3 R 12tt0!1 E'
tll0084 R OH'l 0 Ol 012 A
~0~85

C8U,FN•2

JMS• tAISB
2

AEAD!NG !XT!NStON
/TRANSLATE ~AME
INUM8f R O~ SIX• BlT WOROS
/w~tL.E

/WAIT FOR !~T'-NSt"N A!AO

.WAIT ... 3
I

"
-

/READ lN E>CT!~S?DN

N.AM!

R 0091841 R

0.10010 R 2"'111111

ITYP!

I.AC C"Ulf FE+~
Jt-19•
1

1J:a011 R 121 UH5 f,
t'JOl072 R IHHIJ0fl t
~007;) R 0!UJ6,t R

tAeee

!X T
I

/NU~BfR

OF !?X• BIT wo"os

'A~E

l'Il..BLK SRC
I•••••••••••••~••~•••~•~••••~***~••••~•••~••~•~••*****•*
~IND OUT ?P ~%~! !~78T8
.

I'****************•••~*****************••••••••~*********
.
I

R "1•120~ •
~~1~1 R 11021"1 A
001ma R 0•0123 R

.FSTAT 3,NAM!

~0100

SNA
.JMP N!XlST

8LKNUM

DAC TRAN•2

/DID !T G!V! START ~Loe• #f
/No~-so ao!IN'T !X?ST

,...................................................... .
I

I
I
I

G!T BLOCK #8 AND 'NfNT ciUT

,........................•..•.........•...........•.....
I

~01~3

R 121108 F

001~•

A 0002•~ R

JMS• OTOASC
BU,ASC
.WRIT! 12~2.CRLFe(
.wAtT 12
.WRITE t2.3,8LKM0,8
."1A!T ti

.TR•N 31IN,1,1u,,,asa
.WAIT 3

~013~

R 2~094! P

. L.AC SUFF +377

~~131
~0132
~~133

A 541111 R
R 8~013• R
R 801102 R

SAD C"/777'17
JMll !NDF!L.
JMP BLKNUM

,.....................................•.................
G!T M!R! WHEN HAVE PRINTFO ALL 8LOCK #S
,.......................•...............................
I
I
I

t!:NOFlL
ANOTH!Ft

.WRIT! 1212,CRLF,A
.WR!T! 12,2,M!SSS,3•
.WRtT! •2121CRLF1d
.w~tT! •212,M!Sa1,3•
.READ •1 1 3,BU,MR,3
.1t1A?T •2

~0te2
~~1~3

R 2~ees• A
R 541112 A

~~16•

R e00.1S"I R

L.AC 8UFMR•2
SAD Ct31
JMP OVER
.EXIT

lt~t11'1'!S

/START OV!R

I
0ei1e1 R
QJOl 113 R 80Hll03• R

ave:~

.wR?T! •21l1CRLF1•
Jft'P L!ST

I
I

si:cc

F 1 L.BLt<

I
I

0r,.i 114

0Cl!00!(1!&'1

WR NAME

.WRITE 12,2,CRt,.F',.O

.WAIT 1 P

002Ul

R 20!~671
R ~41113
R 0401561
R 2QIU\.4
R 040f511
R 2011 H5

"1~2i1

R 0.C087~ R

0~2rJl3

'1l020! 4
~lf'2"95

002l?!6
~02"'7

L.AC
TAD
OAC
L.AC
OAC

R
~
~

R
Ill

L,AC

8UP'F!
(10~0

euFEMO .

(20
8UFFE

O.AC BUFfl~• 1. ·
.liiRIT! 121318U,1'"N, Ut

11WAlT 12
.WR.IT!

12,~.eUP'EMO,e

.\O%T 12

1110216 R 62017~

0c,,221

JMP• WRNAME

I
N€ll!!!T

• WIUTE t212aM!S89,3t4

• wAt T 12

JMP ANOTMl!R

0!'12!5 R 600144 p

I
I

,.................................•...•................ BUFFERS
,.......................•...............•..............
I

~0236 R l!.ICIJ4CIJQl3 A
0rt!2:!'1 R taet00J00 A

I
8L.KHD

QJ04PJOJ5
QI

A
002.4111 ~
0!0246 R 0(;10£ll 15 A

BUFASC

~CA:2.47

6UFF

tll<'l!47

000~0'71

121

P.llll~!:ill'I

00111~0e'

t.JAME

OIQ!l!HH R

00!00!IH~

EXT

• BL.OCI(

1 f5
I
• 8L.OCI< illl!Pi

0!'2115!52 R

8Ul'MR

.BL.OCI< 41

0!1(!696 R 000001?! A

BUl'FN

00657 R 000000 A
A
1UH5!0 R
0!1118fH5
001551
!lJliH570
Ql0571
('-1\11872
0~8'13

00875

R 0~HH 15 A
R 0(1100183 A
R 0~000m A
R Ql00000 A
Fl 0P10Ql00 A
A
R
R 000015 A

0
0

• BL.OCI<

BUFEHO
SUFFE

t75
0CHIJP!lt'l3
0
0

0
• FH.,OCI< 3

18!;T UP FOR l'fUN OF BLOCK

1Gf

MESS·4G·E:'···p A,(iE

FILBLI< SRC

•.. ',,

00977

OJ l 1000

0Ql7P0 R 0o.!IHl0111
00.1~1 Ff !522632
1u1m2 R 0421500
0071!13 R 44834A

A
A

Ql~704

040!500

I
I
MESSi.

• TITL.! ~1fs~·u1! ~AG!·.··
.
..

. .·

...

MESS t A.wMISS 112•UJ.f10
.
..
·0
..
NAM!·.f···
• ASC·ttJrv.P~· iN ~- 'LILL. e CHARACT!A
.
. '
. !

•

007m!5 R ·~2531 A
00708 R 448100

Pl0.7et7 R 33101 P.I

••

OJ01t0 R 34421!1f A

'rA711 R 51203P

00712 R 352212 A
1111113 R e11011 A
00114 R 540632 A
001 UJ
415011 A
09~11!

R QICl!0'110'11 A

.•sett I AND ·.TMIU!E CM~IUCTER !~T!NSlONt/ct~~ .

00711 R 4Ql6350!
OJ07H:I R 420Jl5PI A

HJ72l R ••2•90

00734

A
R 542!50°' A
R 4l621QI A
A Ult202 A
R 4115SUJ A
R 5!51 UIO! A
A 4261512
lil 4421534 A
A 5t823i ·A
~ 747134 A
R 08401!1(11 A
A 0HJ~00 A

Ql073!5

1050Qlf A

0i'739 p

!ZIOl001i!111'

007~2

r/107~3

t'J0724
0!012!5
0~728

OJOJ121
007JVI
00731

0.0732
A0733

. ·.

•
I

" 432231
ta0731

M!SStA

.ASCII /FtL.L. I~ NUl.:L. 8 W·ITM 11 1 11 /C18i.

R
A
(11074(4 R 4•15100 A
00741 R 4463A4 A
0!0742 R 0A7282 A
11112174~

~lll7••

ot074!

R 482~12

,.,

,, ;s1202se
448elll

MEl~~~Mf~~1Alt•t0PA . ·
!II

...

00748 R 020 ll~• A
0!~141 A 4BH041 ~

tlJ07!0 R SA00~0

MESS2

M!~S3•"~$5~12•1~~~

Ql07!U

R ~10~0' A

ill~152

R l!HlJ0"00I A

Ill

121~1!53

R 432372 A
a2021e A

.ASC?l ll'OH !lUMPL.E 11

~OJ71U

007~~

•

5420~1

I' At;E

MESS.AGE ,_PAGE

FIL!!LI< SRC

~0!156

R 55023~ A
00151 R 42!5150! A
~07~0 rot 0~00ltll0 A
0!0761 R 412031 A
111076~ R !542!7~ A
lil!l117el3 R 51631~ A
C.IJ\111154 R 25220(11 A

01t'1765 R 40023P

• .ASC I? INAM€•SORTl•l411ill>/EXT•SRC/~1~~

R 5~4~5'1! A
R ;.,ee412 A
0!0110 R 241432 A

~07t116

0~1e1

R 0el3&Ul0
~°'''
1
!ill~112 R 000000
00113 R 3123!5Cll
!110714 R 145612
0t1111!5 R 36712l!'
Cll~116 R 000000

MESS~

.•sen JJIN4Mf!ll/dl U'!5ill>

•
A

IQ 003011.!lll ,..
OJ10CllPI R 001iJPl00 A
C11Ull'l1 f:il 04tH33
tll1~0!2 R 052172 A
"'t:?J!/13 R 1640HI A
0~111

M!'.SS4

M!SS5•M[S84/2•1~0~

•

1'11 OJ tl! .. R Ht0~011!

M!SS4•M~SS312•1~00

!ii

.ASCit ct1111t/!XT111/c175ill>

0 ll'l~!'J R 002~£1!0 A
(JI 100'5 R 00000el A
~10~1 R 201004
.\111010 R 0"1640et I>

fl1ES85

•

• ASC: U
I

0!1011 R 0!lH5Pl0~ A

~ES!e•M!SS!/2•1~0~

I!!

il1E' SSlS

t!l10t2 R 0Jflell.l'0(11
"'117113 R !52221~ A
~UJ14 R 1 s211 e A

/ti 19.,

M!SS7•MESS612•1000
L7J

.ASCII

/TMATH~

AI.. l- TM!RE !Sl/•15>

011211!5 R !51501~ A
01etU5 R 1•623el A

•

0UH7 Pi 12012!51!
mu1~0 R Ql.4126441 A
!IHCll~H Ill ·~5011
0Hl~2 R UH!502 A
~1Q!23 R 084"11l'!OI
f!1~24 R 0!0012100 A

•
•

'-!UJ25 R ~1700~ A
l?l1026 R 0000"~ A
01021 R 4223l'JA A
R

0!548~H!

I
r<t!SS'

M!Sss-~ES8112•1A0~
~

.ASCIT. /00

A
A

ill1 ~Jftll
1'J 1Ql31 R fH?5P112
e'll 032 R 14053.4 A
OIUl33 f( 52101~ A
~1~34 R 141!l3@1 A

vou WANT OIOTM!R FILE?/

F'AGE

MESSAGE PAGE

FILBLI< 51l'C

f11U35 R 522210! A
Ol1ill36 R. 55110P! A
f!11~37 R 432231 A
0104111 R 442576 A
~U41 R 406352 A

.•serr /ANSWER ¥ FO~ Vl!S.I

C4UA2 R 353612 A
~UUJ

R 511Cllt3
r;,t ~44 R 1 Ul214
~U.45 R 476444
~\~46 R 0!!54612
~ 2 ii147 ~ 5U5~40

911050 R 001!0~tlHll
~UHH R 265330
:31052 R 147262
li!\121~3 R 522211
~H0~4 R 147216
~1"5!5 R 202131
:~ 10~9 R 4515!2
QI UJ57 ~ 21!!2151
l'J 10 f5 Cit R 7!51 U10

01~61

4723et

fl,

A
A
A

.ASCII

A
A

l••OPf'f1'4fl'llG

u.ae: fl' f'llil. 11101«15•

•
A
A

A
A

OJ1ii162 R 5f1J~ClllJJ'1J J

R ~Ol1PH.l10 A
tt! UH54 R 009JV!Qlli'I A

(,lJigjf.jJ

01~65
1'.I t t\HHS
010~7
\,l! i "110
011171

~1~'12

"1Cll13
Pl1Cll74

I
MESSB

R 202111
R 142646 A
R 202331 ·A
R 1521tU A
R 4~5tH 1 A
R t5HH'I~ A
R 202371 A
A 62021 Ill

CR~FeMESSRl,•10~0

.Asen I ooes NOT !)(IST ON OEVICEl•U5>

••

01013 R 426551
0U115 R 1-'1'512 A
tl!U11:7 J:l (3lU"1!3f!I A
O!li!!!!tll R "J0"'0GllO! ;.
VJ 11 ~

0110'2
O'J 111?1:5
(IJ 1104

~11~!5

1'11 , VI !5

.1111\?'7

I
•?J0200til A
CRL.F
R 00000~ A
R 06400Qll A
R Ol0Ql001?' A
?J0"-IA0Qll R
R 001105 E •E
R ~[)) 1106 F itE
R ~l'JIQl660! ~ •L
~

0£1121;!0!l!
0

.ASCII cU5>
.END STA AT

'111110 A ~00673 Si •L.
~ 11t1 ~ 111111 A •I..
~11t2

1H01!t A •L

11fii3 l'1 001 Q\C'!f,11 A •L
:?11tt4 R 000V'l2~ A •L
I') t 1i 5 R t'l~0\i'l11
•I..

S?'Zf!•f)I!\ 2 UI

~~ROR

t,.IN~$

$L
EXAM~LE

OF FILBLK USE----

TO THE TELETYJIE
$A TT

$GLOAD

LOADEft V3AllJ00
>~FILBLK,OTOASC,IA26B

TYJIE IN A FULL 6 CHAftACTEft NAME AND TH"EE CHAr.ACTER EXTENSION.
FILL IN NULLS WITH "@"
FOft EXAMJILE: NAME=SOftT@@ EXT=SftC
>NAME=MAINl@
EXT=SftC
MA IN l@ SftC
"00520
0fH!J522

THAT'S ALL THE"E !SJ
10 YOU WANT ANOTHtft FILE?

ANSWEft Y FOl't YES--ANYTHING ELSE FO~ NO

N
iOS-15 V3AilJeJ0

TO THE LINEJlftINTEft
$A Ll9

$GLOAI
LOA IE!': V3A 21\110
>~FILBLK ,OTOASC, IA26B
TY~E IN A FULL 6 CHAftACTE" NAME AN! TH~EE CHA~ACTE~ EXTENSION.
FILL IN NULLS WITH "@"
FOPt EXAMJIDLE: NAME=SOl'tT@@ EXT=S~C
>NAME=MA!Nl@
EXT=SftC
BO YOU WANT ANOTHEft FILE? ANSWEft Y FOft YES--ANYTHING ELSE FOft NO

DOS-15 V3A0f.leJ
$

DIGITAL EQUIPMENT CORPORATION. Maynard . Massachusetts. Telephone: (617) 897-5111 • ARIZONA. Phoenix • CALIFORNIA
Sunnyvale. Santa Ana. Los Angeles. San Diego and San Francisco (Mountain View) • COLORADO. Engelwood • CONNECTICUT.
Meriden • DISTRICT OF COLUMBIA. Washington (Riverdale. Md ) • FLORIDA. Orlando • GEORGIA. Atlanta • ILLINOIS. Northbrook
• INDIANA. Indianapolis • LOUISIANA. Meta1rie • MARYLAND. Riverdale • MASSACHUSETTS. Cambridge and Waltham • MICHIGAN ,
Ann Arbor and Detroit (Southfield ) • MINNESOTA. Minneapolis • MISSOURI. Kansas City and Maryland Heights • NEW JERSEY.
Fairfield. Metuchen and Princeton • NEW MEXICO. Albuquerque • NEW YORK. Huntington Station , Manhattan. New York. Syracuse
and Rochester • NORTH CAROLINA. Durham / Chapel Hill • OHIO. Cleveland . Dayton and Euclid • OKLAHOMA. Tulsa • OREGON .
Portland • PENNSYLVANIA, Bluebell . Paoli and Pittsburgh • TENNESSEE. Knoxville • TEXAS. Dallas and Houston • UTAH . Salt Lake
City • WASHINGTON . Bellevue • WISCONSIN. Milwaukee • ARGENTINA. Buenos Aires • AUSTRALIA. Adelaide. Brisbane. Crows
Nest. Melbourne. Norwood. Perth and Sydney • AUSTRIA. Vienna • BELGIUM. Brussels • BRAZIL. Rio de Janeiro. Sao Paulo
and Porto Alegre
•
CANADA . Alberta . Vancouver . British Columbia : Hamilton . Mississauga and Ottawa , Ontario ; and
Quebec • CHILE. Santiago • DENMARK. Copenhagen and Hellerup • FINLAND. Helsinki • FRANCE. Grenoble and Rungis •
GERMANY. Cologne. Hannover. Frankfurt. Munich and Stuttgart • INDIA. Bombay • ISRAEL. Tel Aviv • ITALY. Milano • JAPAN ,
Osaka and Tokyo • MEXICO . Mexico City • NETHERLANDS . The Hague • NEW ZEALAND. Auckland • NORWAY. Oslo •
PHILIPPINES, Manila •
PUERTO RICO, Miramar and Santurce
• REPUBLIC OF CHINA. Taiwan • SCOTLAND, West Lothian •
SPA IN. Barcelona and Madrid
•
SWEDEN . Solna and Stockholm
• SWITZER LAND . Geneva and Zurich • UN ITED
KINGDOM . B irmingham . Bristol. ::'.dinburgh , London . Manchester . Reading and Warwickshire
•
VE NEZ UELA, Caracas