Digital PDFs

XX-59C68-AF

February 2000

196 pages

Original

9.5MB

Document:	MAINDEC-12-D0LC-D
Order Number:	XX-59C68-AF
Revision:	0
Pages:	196
Original Filename:	http://bitsavers.org/pdf/dec/pdp12/diagnostics_set2/MAINDEC-12-D0LC-D.pdf

OCR Text

,..._

lDENTl'ICATION
PRODUCT

CODE I

MA l NOEC 12•.0!l.C -])

P~ooucT

NAHEI

rPP•i2 TR~CE

DAT£t

rEB~u•~Y

AUTKO'IH

BILL. L.l F'L.AHHt

HUNhlN£Ri

DIAGNOSTIC GROUP

,,..t•' ""' C> ,,,,,. ,,,~

.rt~llllflflTt,,_
~- .....,~

T ~,r~(~ E

1811972
~

r"' \

~
1,

ABSTFUCT

••••••••
THIS PROGRAM IS ~ESIC~E~ TO AlO THE ENGINEER lN TROU~LE SHOOTING
THE rPP•12 HARO~ARE, T~E ~R~GRAM CONSISTS ESSENTIALLY or THREE
MAJOR SEGMENTS!

1~1

TELETYPE MONITOR

···········=•••:s
THE ENGINEER CAN CONTRO~ TME OPERAtlON or THE PROGRAM ANO
INTERROGATE THE Sl~ULATO~ THROUGH THE HONITOR 1 THERE ARE SEVERAL
2 CHARACTER COMMANDS USEO roR CONTROL~ (SEE COMMANDS,>
THESE COMMANDS ALLOW TM£ USER TO INPUT HlS OWN rPP•12
PROGRA" AND RUN IT~ TME ,PP•12 PROGRAM CAN CONSIST
A~Y SET or 'PP•12 JNSTRUCTIONS~

1~2

Sl"ULA!OR·

•••••••••

THE SIMULATOR rs TME HEART or THE PROGRAM~ A~~ O' THE HARDWARE
R£Cl!TERS ARE SIMULAtED, THE 'PP•{2 19 STARTEQ IN THE MAINTE•
NANCE MOOE AND STEPP!D TMROUCM AN ,P,•i2 PROGRAM ONE TIME STA'E
AT A TlME~ SIMULT4NEOUSLV THE PROGRAM SIMULAT~S THE HARDWIRE
OPERAT?ON 1 9£,0RE StEPPINC TO THE NtXf TIME S!ATEt TM£ ~ROGRAM
COMPARES THE CONTENTS O' THE HARDWARE REGISTER~ WHICH C&N 8E
READ WITH AN lOT, WJTH THE CONTENTS or TMt CORRESPONDING SO,TWlRE

RECI!TtR,
THE 'PP•12 PROCRAM CAN BE ANV IET or ,,,.,. lN~T~UCTIONS LOCltro

ANVWM£Rt IN CORE OUTSICE TME LIMlTS or TMt TRAQE PROGRAM~ THE
INSTRUCTION SET CAN BE ANY LENCTM~ AN OPERAND TAB~E CAN ar AN¥
LtNG1H AND ALSO CAN BE LOCATED ANYWHERE IN CORE OUTStDt TM!
PROGRAM LIMITS~
1,s

MINI ROUTINES

•••••••••••••
A SET or $UBROUTtNES USED By TME SIMULATOR TO PEA,ORM !ME

HARDWARE ruNeTf ONS1 COMPARE RECISTER CONTENTS, AND REPORT ERRORS:

•

•
21

REOUJREMENTS

2~1

EQUIPMENT

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

·=·====··

2~2

AN rPP•12 r~oATlNG POINT PROCESSOR

A POP•8 OR P'P•12 WITM AT LEAST 8K or MEMORY

AN A~R33 OR ASR35 TELETYPE

STORAGE

•••••••

TME PROGRAM USES ALL or rttLO e ANO ALL or FlELO 1
PAELtMlNARV PROGRAMS

2~3

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

ALL POP•8 OR POP•12 PROCESSOR ANO MEMORY DIAGNOSTICS,
LOAOtNG PROCEDURE

•••••••••••••••••
LOAD TMt PROGRAM wtTM ~HE BIN ~O-AOER1 DIAL LOADER OR P~-e ~OAO!R~

STARtlNG PROCEOURE

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

START !ME PROGRAM !N 8 MOOE AT LOCATtON ~12e IN r1£LO a,
TME PROGRAM WJ~L ENTER THE TELETYPE MONITOR ANO TYPE AN ASTERl!K
<•>, THt PROGRAM ts NOW WAITING roR INPUT FROM TM£ TTY~

"'
!

'<,

~
5·,

OPERATING !NSTRUCTIO~S

••••••••••••••••••••••
TMERE ARE TWO SETS or OPERATINC INSTRUCTIO~s. TME BASlC SET ''·1>
WILL AUTOMATICALLY ATTEMPT TO OETECT A rAULTV REGISTER WMl?MIN
A SPECIFIC TIME STATE,
THE COMPLETE SET (5 1 2) ALLOWS THE ENGINEER TO USE THE !ROU8LE
SHOOTING CAPA8!LtT!ES or THE PROGRAM ALONG W!TM A scop~ TO
ISOLATE A rAIL!NG COMPONENT,

5~l

BASIC OPERATING INSTRUCTIONS~

········=·······=············
1)
2)
3)

It! SR~2•1
SE! ALL OTMER SWiTCHES • I
TYPE "ALT MODE"

THE 'PP•12 is STAR?EO !N TME MAINTENANCE MOOE RUNNING AN rPP·12
PROGRAM WH!CM WAS LOADED WITM THE tRACt PROGRAM, THE PROGRAM
WILL RUN INOEVlN!TEL9 UNTIL AN ERROR IS DETECTED~ TME ERROR
WILL BE TYPED iNO THE PROGRAM WILL WAIT ,OR A RESPONSE rAOM THr
TTV K£VBOARD~
THE 'PP•12 PROGRAM RUNNING AT THIS TlME IS THE FPP•12
CODE·EXTRACT£0 rROM THE rPP•12 EXERCISER MAINDEC 12•C•~·~

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

-~~~~~~~

5~2

COMPLETE OPE~ATING INSTRUCTIONS
::::::•:::::s::::c:::::::::::=~

ANY SET Of f~P•12 INSTRU~TIONS CAN BE RUN ANO CHECKED BY
THE TRACE ?R~G~AMJ THEREfORE A SET or TTY INPUT COMMANDS
ARE AVAILAaL~ TO ENA9LE THE usrR TO INPUT ANO RUN HIS OWN
tPP•12 PROGRAM: COMMANOS ARE ALSO AVAILABLE TO eONTROL
THE OPERATION or THE PROGRAM POR TROUBLE SHOOTING, ~lRECTfONS
tOR USING THESf COMMANOS START AT PARAGRAPH 6 1
THERE AR~ 12 COMMANOS WHICH CAN BE INPUT THROUGH THE TELETYPE~
ALL COMMANDS ARE TWO CMARACTERS ANO ARE PRECEDED BY A PERIOD C~>:
MOST COMMANDS REQUIRE ONE OR MORE OPERANOS~ EACH OPERAND MUST
BE TERMlNATEO BY A SPAeE OR A eARRfAGE RETURN, tN THE PRO~RAM
THERE JS NO 01tr£RENCE WHICH TrRMJNATOR !S USEC, TYPJNG A
RUBOUT WILL OE~ETt ALL OATA ArTER THE LAST TERMINATOR~
ANYTtME THAT T~E SIMULATOR IS AUNN!NG 1 TYPING ANY CHARACTER
WILL TRANStER CONTROL TO THE TTY MONITOR AT THE ENO or THE
PRESrN! TlME STATE~ ., TMIS T!ME TH[ STATUS or TH£
SIMULATEO rPP·i2 CAN ar tNTERROGATEO~
5~2.1

INSERTING ~N r~P-~2 ~R9GRAH
················-····~·····
THE "~AS" eoMM1NO ·~LOWS TME USER

to 'YPE IN 'OUR O!Gl! OCTAL
WORO! IN SCQUENCE TO ei RUN AS AN ,PP•i2 PROGRAM~ THE rPP~12
INSTRUCTIONS YOU WlSH to TtST MUST 8£ TY~to ?N!O CORE. tr NO
~OCATJON IS GlVEN TO TM£ AS COMMANO, CSEE COMMANDS~> T~E OITA
IS INSERTEO STARTING ., 4111 IN rtcLO i.

THE tt,OP" COMM~NO IS T~E SAME AS T~E H~AS" COMMAND EXC~PT THA'
CATA 1s tNSERTtO STARTING AT 411~ !N rlt~D 1, THIS IS
NQRMAL~Y USEC TO INSERT OPERANes ANO/OR A BASE TAB~E.
5~! 1 2

RUNNtNG AN_rPP~12 PROG~AM
···~-~··········-···-···~

THE rPP•12 P~OGRAM CAN BE RUN IN T~E TRACI MOOE JN wHlCH EACH
TIME STATE IS TRACfO ANO CHECKro 89 US!NG THE ",RT" COMMANO~ OR
tT CAN BE RUN IN TME r4ST MOOE WIT~ THE ",Rr" COMMAND IN W~leH
TME rPP•12 IS STARTEO !N NORMA~ MOOE AND THE PROGRAM WAITS roR
tT TO EX?T~ IN TME rAST MOOE THE tPP•12 CAN BE STOPPEO BY THE
"~EX" COMMANO~
THE ,P~•12 PROGRAM CAN BE STAR!EO ?N T~E DOUBLE
PRECtSlON MOOE BV SETT!NG THE COMMAND REGlST~R W!TH THE ",CM"
COMMAND,
I

I
I

5~2,3

ALL OTMER OO~MiNDS ANO THE SWITCH REGISTER CAN BE USEC TO
THE OPERATION Or THE S!MULATOR~

OONTRO~

.......

~
61

TTV MONITOR

•••••••••••
THE TTY wo~ITO~ AL~OWS THE USER TO COMUNlCATE wITH TH£
PROGRAM, HE CAN INPUT rPP•12 tNSTRUCTtONS AND OPERAND~
TO BE RUN AN' TRACED: HE CAN RUN THE TRACE IN TME SlN~LE
STATE OR co~Tl~UOUS ~OOE~ HE CAN iNTERROGATE THE STATUS
MEMORY OR ANY REGIS,ER AT ANY TtME~

OUE TO MEMORY CQNSTRAlNTS, VERV LITTLE ERROR CHECKING lS
CONE tN THE ~ONlTOR,
THERE AR£ six SPECIAL CHARACTERS USEO IN TME MONITOR
TO TELL tT WHAT TO 00~ THESE 6 CHARACTERS ARE I
Rt: TURN
SPACE
PtRlOD
RUBOUT
AL.T MODE
CNTRL

TtRMtNUOR
TtRH!NATOR
COMHlNC SWITCH
OELttES CURRENT DAtA ENTRY
SPECIAL un
EXIT TRACE PROGRAM (SEE COMHANOS 7 1 )

THERE ARE A NUMBER or COMMANDI WHICH ·~LOW THE USER TO
CONTROL THE PROGRAM ( SEE "COMMANDS" 7, ,, MO~T or
THE COMMANDS REQUIRE ONE QA HORE A~GUHtNTS 1 W1TH THE
EXCEPTION or T~E ~TY COMMAND TRESt ARGUMENTS WILL BE
GROUPS or 1 • ' OCTA~ blGIT$~ EAC~ COMMAND lS
S£PERA!EO rROM lT$ ARGUMENT BY A TERMINATOR
C SPACE OR RETURN ) 1
EACH ARwUHENt IS ALSO TERMINATED
By E!THER or TM£ TWO TfRMINATO•S,
THlS MEANS TMAf EVtRV eoMMANO THAT ACCfPT' AN ARCUMENT
MUST HAVE AT LfAST TWO TtRHINAtOR CHARACTERS, ONE TO
TERMINATE THE COMHANO lNO ONE TO TCRMINATE EACH ARCUMENT~
THIS H0L.DS TRUE EVEN l' NO ARGUHEN' IS ENTERED, SN THE
CASE or NO ARGUMENT BEING ENTERED, THE StCONO TERMINATOR
TELLS THE COMHlNO ROUTINE TO CHECK TO SEE Ir AN ARGUMENT
WAS INPUT, THE OPERATION OCCURS IN THC rO~LOWlNG ORDtR~
P£RlOD TEL.LS TME MONITOR THAT THE two CHARACTERS PRECEQlNG
THE NEXT TERMINATOR ARE TO BE TAK£~ AS A COMMAND,
TWO CHARACtER COMMAND ANO A TERMINATOR TELLS THE MONITOR
TO DECODE THE eoMMANO ANO TRANSrER TO THE COMMAND ROUTlNE~
TME COMMAND RQUTtNt THEN PERrORMS tHt PROPER r~NCTlON,
tr AN ARGUMENT IS NEEOEO, THE COMMAND ROU!!NE !RANSrER~
CONTROL BACK TO THE MONITOR, THE MONITOR REMEMBERS ~HICH
COMMAND IS BEJNG EXEOUTEO,
THE NEXT TERMINATOR TRANSPERS CONTROL BACK TO !HE
COMMAND ROUTINE, THIS ALSO PASSES ON THE ARGUMENT 1r
ANY, EACH TIME THE PROGRAM TRANSrtRES OUT or THE MONl!OR
ONLY ONE ARGUMENT !S PASSED ON~
WHEN A COMMAND THAT USES A r1xto NUMBER or ARG~M[NTS
(0 OR 1) IS r1NISM£0 1 THE PROy•AM tYPES AN ASTERISK C•)
ANO RETURNS eoNT~O~ TO THE MONf TOR~
-----7~

illi_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __

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

6~l

co~MAND

roRMATS

·========:=====
ts THE rORMAT rOR EACM COM~ANO, ArTER TME
tN PARENTH~S!S, ts TME NUMBER tr ARGUMENTS
T~•T TME COMMAND ACCEPTS~
A "C" AS THE NUMBER or
A~GUMENTS !NOlCATES THAT THE COMMAND Wt~L ACCEPT ARGUMENTS
CONTINUOUSLY UNTIL ANOTHER COMMAND IS !NPUT, roR THE
MEAN!NG or EAC~ CQMMANO ANO A CETAf~[O OESCRlP!ION SEE
PAqAGRAPMS 7 ANO 8~
T~E ro~~~~ING

·~GU~ENT,

·,AS XXXX

(c,

1 01'

(c)

)(XXX

',TY XX

C1 OR :5)

,SA ACOR

<1>

·,RA AODR

C1)

',EA AODR

(1)

·,cL

"',

·,RT AODR

C1)

·,RF' AODR

0.,

·,EX

( z)

',SH XX

C1>

r~
I

.......

~
1·,

CO"MA.NCS

••••••••
1,1

SU"M4RY !SE£ oescAtPTtON (8,) roR MORE DETAI~Sl
z:::•ss

7~1.1

l~PuT

ANO ouTPyT

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

ASSEMBL.E

rPP•1' INSTRUCTIONS ANO/OR OPERANDS A.Rf
INPUT IN OCTAL rROM THE TTV ANO STOR~O
SEQUENTIAL.LY !N MEMORY 1 EACH TlME A
CARRIAGE R£TURN rs INPUT THE PROGRlM
TYPES THE NE~T MEMORY L.OCATlON 1 l~ AN
•# is TYPto <• • OCTAL rtEL.o otstGNATOR>
rOLLOWfO BV A. SPA.C~ ANO 4 OCTAL OI~ITS 1
THE L.OeATtON COUNTER is CHANGEQ TO THIS
rJ£L.O ANO AOORESS 1 IP NO LOCA!!ON IS
lNPUT1 THE DATA tS STORED STAR!tNG AT
4000 IN ritLO 1,

·,OP

OPE:RANO

SAME AS THf ~A.S COMMA.NO EXCEPT THAT TH~
L.OCATlON COUNTER is SE! TO 41~0 !N r!E~O
1 ANO eA.NNOT Bt CHA.NGtO SY THE USER~

·,TY

TYPE

REQUESTtO CATA IS TYPED roR TM~ OP!RATORS
ust, THE OATA REQUESTS A.REI

SlMUL.AT£0 0 REGISTER

P'Q

rPP•1Z 0 RfG!STER

SIMULATED A REGISTER

SlMUL.ATEO 8 REGISTER

SlMUL.ATED MQ RIGJSTER

SlMULATEO VAC

SIMULATED ,PC

SIMULATED !NSTRUCTJON REClSTER

SIMUL.ATEO OP AOOAESS

SlMUL.ATEO AOORS REGIST~R

SlMUL.ATEO STATUS REGISTER

SlMUL,ATEO TIME STATE REGISTER
<SEE OESCRf PTION ON NEXT PAGE)

F'S

F'PP•1Z TtMt STATE REGISTER
CS£E DfSCRf PTION BEL.OW)

TME APT LOCATEO tN TME PROGRAM~ T~IS
IS TME APT WMICM IS USED tr NO OTMeR
rs SEl.tCTEO

SIMUL,ATEO fNOEX REGJSTERS

SIMULATED SM!F'T REGISTER

AL.

ALI. or ABOVE

F' AAAA N

N NO~ or WOROS STAFITlNG AT F'lE~O F'

CNTRI. 0

FIETUFIN TO OUL.

CNTRI. fl

RETURN TO PSS MONITOR

CNTRI. e

RETURN TO OTA MONl!OR

A00R£SS Uh',

••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
***************** TIME STAT£ AEGIST£R •••••••••***********
······································-·····················
AO
F'UNCTJON
BIT

MOST S!GNJ'lCANT BlT or TlME S'ATt COUNTER
BlT 1 OF' TME TfME STATr COUTNEA
BlT 2 OF' TM£ TIME STATr COUNTER
BIT 3 or TME T!M£ !TATr COUNTER

01
02
03

CNR OEPOSIT fl.OP (1) M
CNR F'£TCM PL.OP (1) M
CNR tX~CUTt ;L.oP C1> M
CNR tX T r1.o~ t1> H
CNR tN!ATE F'~O,. (1) M
ONR PROCESS tL.OP (1) H
AST0 swrr F'AC ,RAC M lNOT USEO tN TRACE)
CNOT USEC ?N TRACE)
AST1 NO SMF'T Ii> H

05
06
07
08
09
10
11

,..,.-,

""'

F""'.

?~1,2

P~CGRAM

~
=oNTROL

. . . . . . . . . . 1!t ... •V~W

,SA

,:u

SET SINGLE

OCTAL ADDRESS lS
INPUT PROM TTY~ TME PROGRAM WlLL ~NTER
THE SlNGLE: STA1E MOOE WHEN THJS AOORESS
IS ENCOUNTERED IN THE STEP ROU!INE

RESET SINGL.E:

4 DIGIT OCTAL. ADDRESS IS lNPUT
rROM THE TTY~ THE PROGRAM WlL.1. £X!T THE
SINGL.E STATE MOOE WHEN THIS AOORESS IS
ENCOUNTEREO !N THE STE? ROUTINE

sun: 4DDR

STATE ADOR

4 ~IGIT

,EA

EXIT AOORESS

4 OlGlT OCTAL ADORESS lS INPUT PROM THE
TTY, WHEN THIS AOORESS JS ENCOUNT~REO
lN THt STEP •OUT!NE, THE PROGRAM W!L.L
CL.EAR THE ,PP•i2 WITH AN nrPtCI." lOT ANO GO
TO INlTIATf TO RESTART TM£ PPP•12 lNO TH£
SlMUL.ATOR

·,cL

Cl.UR SlN(;L.t
STATt SWITCH

CL.tARS THE P~OGRAM SINGL.E STATt
SWlTCH WHlOH WlS SET BY THf ,si COMMANO~

~RT

RUN TRAC£

• OIGlT ADDRESS or THE APT is INPUT
rROM TME Tty ANO TME rPP·~2 ANO SIMUL.ATO~
ARE STARTED AT THIS AODR[SS, Ir T~E APT
AOORE~S JS e1Bm TH[ PROGRAM AP! ANO tNOE~
RtGISTtRS WIL.L. Bt USEO TO RUN !HE 'PP•i2
PROGRAM lN~UT VlA THE 1AS COMMANOi
1r THt USER SPECtrttS MIS OWN APT
ADORESI, T~E rtE~O BJT~ or TMt APT
ADORE~S MUST BE SET IN THE L.ASi OlClT
or TMt ,CM COMMANDi

·,RF'

AUN rAST

SAME AS AT EXCEPT THAT THE S?MYL.ATOR IS
NOT USED ANO THE rPP•~2 RUNS lN tTS
NORMA~ MOOE (NOT MAINTl

,C"l

StT C::QMMANO
RtGISTER

4 DIGITS ARE INPUT rROM THE TTY ANO ~OA0£0
INTO THE PROGRAM COMMANO RtGJS!ERi TH!S
WORD IS usro WtTM THE "FPCOM" lOT TO STAPT
TME r~P-12~ 1r AN AL.TERNATE APT AOOR£SS
IS USEC WlTH TME 1 RT OR ~Rr COMMANOS
TME ritL.O BITS or THE APT ADDRESS MUST
tNPUT AS TME LAST OlGlT or THE ,CM
COMMANO,
.

~--==--==----~-.~~~.....- - - - - - - - - - - - - - - - - - - - - - -

·• e: )(

E:XtT F'PP•12

A CPU rORCEO E~IT ts fSSUEO TO TME: rPP~1~i
TME CURRENT INSTRUCTION rs FINISHE~ AN~
THE rPP•12 £)(!TS STORING THE APT~

,SH

SET SPECIAi..
SH I F"T

2 OIGITS ARE LOAOEO rROM TME T!Y lNTO A
SPECIAi.. SHfF'T COUNTER IN TME P~OGRlM 1 ANO
A SPECfAL SHIF'T rl.,AG IS SET,
tr NO OlGitS ARE INPUT ae:rORE !M~ SECOND
TERM!NATOR 1 TM£ SPtClAL SHIFT ~OUN'ER WILL
BE SET TO m ANO TM£ SPECIAi.. SHIPT ,LAG W!L~
BE RESET, TM!S SPECIAi.. SHIF'T gouNT ts
USEO lN THf MULTIPLY ANO OlVlOt TO ALTER
THE NORMAL CVCLE or THESE INST~UCTfONS lN
TIME STATE 2 ONLV 1

'"'

,..
~

. ...
~-

81 1

·~

~
DE~~~IPT!ON

Of COMMANOS

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

DATA INPUT A~O OUTPUT

====·=·============;:

SINCE IT IS N.ECESSARV TO INPUT fPP•12 INSTRUCTIONS ANO
OPERANOS TO BE RUN, ANO TO lNT~RROCATE T~E STATUS or THE
SIMULATED REG!STE~S, TME rOLLOWlNG TTY CONTRO~-COMMANOS
ARE OEflNED, ANV TIME THAT TME TRACE PROGRAM IS RUNNING
TYPING A CARRIAGE RETURN WtLL TRANSFER CONTROL TO THE
TTV MONITOR, TYP,NG "ALT MOOE" Wl(L RETURN CONTROL TO
TH£ TRACE PROGRAM,
e·,1,1

·,AS

USED TO INPUT rPP•12 lNSTRUCTlONS WRITTEN BY T~E
USER TO BE RUN BV THE TRACE PROGRAM, ANV NUMStR
or INSTRUCTIONS CAN BE INPUT TO BE RUN lN
SEQUENtE AS lN FPP•12 PROGRAM~ TMf INSTRUCTIONS
MUST Be CONVfRTEO INTO OCT1L CODE BY THE USER
ANO MUST BE iNPUT tN OCTAL~ CARE MUST-Bt TA~EN TO
INPUT tORR£CT tlELO DESIGNATORS IN TME COMMANC 1
THiS IS ESPEel•LLY TRUE WITH BtTS 9•11 or DOUBLE
WORD COMMANDS~ INPUT OATA IS NORMALLY STORED
SEQUENTIA~LY $,ARTtNC •T ·~mm IN FIELD 1~
MOWEVtR T~E UStR MAY CMANGt THE STORAGE LOCATION
AT ANY TIM£ fY,lNG AN ASTEAISK rOLLOWEO BY
A rtELO OESlGNiTOR1 A !PACE1 AND 4 OlGlT
ABSOLUTE AOOAESS ct.E~ •2 lmem>, EACM T1Mt A
CARRlA~E RETURN IS TYPfO TM£ PROGRAM RESPONDS WITM
THE NEXT AOOR£8S TO BE STORED f NT09
SlNC£ fME TTV MONITO~ !S USED to INPUT DATA IT is
NOT NECES$AR9 ,0 £NO TME ~AS COMMAND, ONCE THIS
ROUTINE 1$ ENTERED IT WILL CONTINUE TO ACCEPT ANO
STORE eATA UNT!L A NEW COMMAND IS lNPU!,
1WO EXTRA 'EATURES or THE ~AS COMMAND ALLOW TM~
USER TO INPUT TME lNl!!AL SETTlNGS or !HE ;Ac
AND ?NOEX AEGl!TERS, WHILE IN TME ,AS ROUTlNE
TYPING "AC xxxx xxxx xxxxn WtL~ CAUSE !HE
PROGRAM TO SfORE TME TMREE OCTAL ARGUMENTS INTO
THE rAC PCRTtON or TM~ APT~ TYPING "X# XXXX"
(# • TME lNDEX REGlST~A NUMBER) WILL CAUSE TM£
PROGRAM TO STORE TME OCTAL ARGUMENT IN!O TME
SPEctr!ED lNOEX REGISTER LOCATED IN THE PROGRAM~
ArTER THE ARGUMENTS ARE INPUT ANO STORED BV THE
PROGRAM TH[ NORMAL PORTION or THE ,AS ROUTINE .
CONTINUES, BOTH or TMfSE rtATURES ASSUME THAT
THE USER WILL START TH[ PROGRAM WITHOUT USING AN
AUXILlARV APT ADDRESS ISEE ~RT ANO ,Rri,

e·, f, 2

·,OP

USED TO !NPUT OPERANDS roR USE WITH THE rPP•12
INSTRUCTIONS INPUT V!A THE ,AS COMMAND, OCTAL
DATA IS INPUr rRoM TME TTY AND STORED SEQUENTIALLY
STARTING AT ~1~0 IN rl~LO i~ THE STAR!l~G ADDRESS
CANNOT BE MOOlPlEO BY THE USER~ LIKE THE ~AS
COMMAND THTS ROUTINE MAS NO WAV TO END, THE ROUTlNE
Wl(L CONTlNUE TO lNPUT ANO STORE OATA UNTlLL A NEW
COMMAND IS TVP~D IN,
~---~°=='-~----:;cc--:-

- - - - __; - - - -

8 Ii. :5

·,TV

THE PROGRAM CAN TYPE OUT TME CONTENTS Or ANY MEMORY
LOCATlON<S), THlS IS NORMALLY USEO TO INT(RRO~ATE
THE CONTENTS or SI~ULATEO REGISTERS OR OPERAND~~
<SEE "?,1,1 SUMMARY~ roR ARGUMENT LIST,), ALL
TYPEOUTS EXCEPT PO, PS, AP ARE TME CON!ENTS or TME
SlMULATEC REGISTER AT THE tIME Or THE !YPEOUT~
THIS 15 THE tNPORMAT?ON THAT-SMOU~O BE CONTAINED l~ THE
PPP•12 HAROWARE R(GJST!R AT THE TlME 1
A SCOPE CAN eE USEO TO PINO OUT tr THE HARDWARE
REGISTER is tORRECT OR IN ERROR, tr l! JS KNOWN
THAT AN ERROR OCCURS IN A SPEClrlC TIME STATE, TME
rPP•12 ANO TRAeE PROGRAM CiN BE STOPPED SErORE
ENTERING TMAT TIME STATE CSEE ~SA) 1 A! THIS
TIME TME USER CAN TYPEOUT fH[ CONTENTS or VARIOUS
REGlSTfRS ANO eoMPAR[ THE tPP•i2 TO THIS CATA TO
OEfERMf NE TH£ CAUSE or TM£ rAtLURE,
-

THE VARIABLE TYPEOUT er AAAA N> CAN BE USED TO
CHECK ,PP•iz INSTRUCTIONS AND OPERANDS JNPUT BY TM!
USER B!PORt RUNNING TMtM,
ANY TIME TMt P~OGRAH IS TY,1NG OUT1 lT CAN Bt ~TOPPED
BY TYPING A RtfURN ON TH£ KEY8QARO.
THE PROGRAM WILL TMEN •ETURN CONTRbL TO THE TTY MONITOR~
8~1,•

CNTRL D THE PROGRAM WILL REAO THt DIAL MONITOR IN rROM
TAPE UNIT I ANO TRANSFER CONTROL TO THt OlAL
HON I TO~~

a~t~t

CNTAL P THE PROGRAM JUMPS TO 7611 fN rlELO 11 lr THIS
AREA O' MtMORY HAS NOT BEEN ALTERED, CONTROL
WJLL BE TRANSJERED TO '58~

S~l,6

CNTRl C THE PROGRAM JUMPS TO 7'10 IN F!ELO 0 1 I' THIS
AREA or MEMORY MAS NOT BEEN ALTERED, CONTROL
WlLL BE TRANSrERfO TO THE OTA MONITOR,

~\
i

'""-

(

~
8~2

SI~GLE

STATE CO~TROL

==============:::;:~

EyENV TI~E STATE IS ENTERED THROuG~ A su~ROuTl~E CALLED
"STEP"i THE DEFINE~ INSTRUCTION »rsTEP" GOES TO STEP,
IT IS ?N THE »STEP" ROUTINE THAT MOST ERROR ARE OETECTED~
THE "S!EP~ ROUTINE ALSO CHECKS VARfOUS INVORMA!ION lNPVT
BY THE USER TO CONTROL THE OPERATION or THE PROGRAM,
I~ THE SINGLE STATE MOOE THE PROGRAM WILL TRANSFER
CONTROL TO THE TTY MON!TOR EACH TIME IT ENTERS THE »ST~P"
SUBROU!lNE~
THIS IS DONE AfTER CHECKING FOR ERRORS, 8~T
BtFORE STEPPING THE FPP•12 TO THE NEXT TIME STATE, TME
FOLLOWING COMMANDS ARE USEC TO INPUT THE INFORMATION USEO
lN THE "STEP" ~OUTINE, THE AOORESS RErERRED TO is THtADORESS tN WHteH THE "rSTEP" INSTRUCTION CALLING THE
STEP ROUTINE 15 LOCATEO,

e·, 2, 1

, SA

EACH TtME THE "STEP" ROUTINE IS ENTERED, THE ADORtSS
INPUT AS THE ARGUMENT tN T~E ~SA COHMANO lS COMPAR~O
WITH T~E AODRESS lF TM£ "FSTEP" INSTRUCTION, tr
THERE !S A MATeH, THE 'ROGRAM SETS TME PROGR•M SINOLE
STATE SWITCH~ THE PROaRAM WlLL THEN BE 1N TME StNaLE
STATE MOOE~ TME PROGRAM SINGLE STATE swtTOH
PERrORMS TME SAME ruNCTJON AS SWITCH 3 ON THE CONSOLE~
CSEE SWITCH OPTIONS 9 1 , TME PROGRAM WILL STEP THROUGH
ONE T1ME STATE EACH TIME AN "A~T MOOE" IS TYP£0~
BEFORE TRANSPERR!NG TO THE TTY MONITOR THE PRO~AAM
W1LL TYPE THE LOCATlON~1
TMt "FSTEP" tNSTAUQT!ON~
THE USER CAN THEN LOOK AT 'ME LlST?NG !O rtNO WMtC~
TIME STATE ls ABOUT TO BE £NTERE0 1 Jr TME 1 SA
ARGUMENT IS ~0~0 THERE WlLL NEVER BE A MATCH SO TH!
THE ~ROGRAM WILL NOT ENTER THE SINGLE STATE MOQ£~

8 •• 2 I 2

IR A

EACH T!ME THE »STEP" ROUTINE IS REENTERED
rROM THE TTY MONITOR IN TM£ SINGLE STATE MOOE, THE
AODRESS or TME "FSTEP" INStRUCf lON IS COMPAREO W!T~
THE ~RA ARGUMENT~ Ir THERE IS A MATCHt THE PROGRA~
SINGLE STATE SW1TCH IS RESET ANO THE PROGRAM CONTINUES~
BY USING TME ~SA ANO 1 RA COMMANDS TOGETHER, THC
PROGRAM CAN BE RUN IN THE SINGLE STATE MOOE roR A rEW
TIME STATES ANO IN TME CONTINUOUS MOOE rOR ALL EXC~PT
THOSE TIM~ STATES,

..--..

a·,2,3

·,ct.

THE PROGRAM SINGLE STATE SWITCH tS CLEARED
SY T~IS COMMAND, THE SET SINGLE STATE ADORESS
(,SA) AN~ RESET SINGLE STATE ADDRESS ( 1 RA) ARE
~OT AF~ECTED~
TM!S COMMANO ALLOWS T~E USER TO
ENTER THE S!~GLE STATE MOOE AT A GIVEN T!ME STATE
WITH THE ,SA COMMA~O ANO STEP TH~OUGH A VARIABLE
NUMBER or TIME STATES, THEN CLEAR THE SINGLE
STATE SWITCH TO RUN CONTINUOUSLY UNTILL THE
TIME STATE IS REACHED AGAIN,

e',2,4

,EA

EACH TtME THE "STEP" ROUTINE IS ENTERED, TME
ADDRESS OF THE "FSTEP" INSTRUCTION IS COMPARED
WlTH THE 1 ~A ARGUMENT, IF THERE IS A MATCM 1
TH£ PROGRAM f SSUES AN ttfPlCL" !OT TO THE rPP•i2
ANO GOES TO tNtATE TO AESTART THE PPP•12 ANO
THE SIMULATOR~ TMJS COMMAND lS US£rUL~ 1r AN
ERROR OCCURS lN THE MIODLE or A MAJOR ~TATE,
THE REMAINING TtME STATES ANO INSTRUCTIONS CAN
BE SVPASSEO,

("~""
\,

,~\

,.,..,,

8~3

TRACE CONTROLS

:::;;:::========
THE roLLO~l~G CJ~~A~~s ARE USEO TO SETUP, START AND
STOP THE TRACE Sl~ULAT!ON OF AN rPP•12 PROGRAM,

'"· 3 I 1

LOADS THE CO~MAND REGISTER WITH ONE 12 BIT
WORD (4 OCTAL OIGlTS>, THiS WORO 15 ENTERED
AS THE ARGUMENT or THE ,CM COMMAND,
THE COMMAND REGISTER WILL BE USEO WITH A "'PCOM"
tOT WHEN START!NG THE rPP•12 AND THE S!MULATOR 1
IF AN AWXILIARV ADDRESS IS USEO WITH THE ~RT OR
~Rr COMMANDS. THE rIELO BltS or THE APT ADORES~
MUST BE ENTERED AS THE LAST DIGIT or THE ,CM
COMM ANO,

e·, 3, 2

·,SM

A MAINTENANCE !OT lN TME FPP•12 ALLOWS A USER
TO LOAD THE SH!FT COUNTER UNOER 'ROGRAM CONTROL,
THtS IS ONLY USErULL lN A MULT!PLY OR OlVlOE
INSTRUCTION, TYPING ~SH WfTH AN ARGUMENT
CONSISTING or • TWO OCTAL DIGIT NUMBER WILL LOAD
A SPECIAL SHtrT REGISTER Wf TH THE ARGUMENT AND SET
A SPECIAL SMirT 'LAG~ WHEN TIME STATE 2 or A
~U~T!PLY OR OlVlDE IS iNTE•EC1 THE PROGRAM
LOOKS AT HE SPECIAL SHlFT rLAG~ I' THE rLAG I~
SET, TME SPECIAL SHIFT REGISTER tS LOADED INTO
THE HARDWARE ANO SIMU~ATEO SMJrT COUNTER,
TYPING ,SH FOLLOWEO BY TWO TERMINATOR CHARACTE~S
WITH NO ARGU'MENT WILL AESU TMt SPECUL SHIF'T
rLAG ANO iERO 'ME SPE~!AL SHlr' ~EG!STER,

~-~--=-;~·~---=;;_-=-~--=-=~~~-.:;;,"""-'-~--

13'1 3, 3

·,RT

THIS COM~AN~ TRANSrERES CONTRO~ TO TME
TRACE SI~ULA~OR, THIS WILL START THE rPP•12
IN MAINTENANeE MODE ANO TRACE EACH TIME STATE,
THE ~ROG~AM HAS
PROG~AM LOCATEO

THE ABILITY TO RUN A PPP~12
ANY WHERE iN MEMORY OUTSIDE
THE LIMITS or THE TRACE PROGRAM, THE APT ANO
INOE~ REGISTERS CAN ALSO BE LOCATEO ANY WHtRE
IN MEMORY EXCEPT LOCAT!ON mz00 0r ANY MEMORY
r1ELO, WtT~tN THE TRACE PROCRAM is AN APT
WHtCH !S SET UP AUTOMATICALLY TO RUN A fPP•12
PROGRAM LOCATED AT 400m !N ftELO 1 1 THE BASE
POiNTER IS SET TO 4100 lN PIELO 1 1 THE JNOEX
PO!NTER IS SET TO 4 St' or lNOEX REGIS!ERS

LOCATEO WlTHtN THE TRACE P~OGRAM~ THIS APT
AND lNOEX TA!Lf IS roR TME CONVltNENC£ 0' THE
usrR S!NCt T~E ,AS ANO ,OP COMMANDS STORE
THIER DATA lN '1£LO 1 AT LOCA,!ONS 4000 AND 4100
RtSPECTlV~V 1
'HIS APT ANO INDEX TABLt
WllL St USEO 1' THE U$!R SPECl'lES ADDRESS
BIBI Al THE lP' ADORES!, THt USER MAY SPtcrry
THE AD8RESS or HIS OWN A,T BY TYPING ",RT ADOR"~
THE AUXILlAAV iPT AND INDEX REGISTERS MAY BE
SETUP BY UStNG TMt ~AS COMMAND~ TMESE MAY ALSO
Bt PARf OJ A REAL rPP•i2 PROGRAM LOCATtO ZN
r(ELO 2 OR ABOVE WMlCH WAS PREVIOUSLY LOAD£0
BY SOME OTMER "E4NS,

t~
\.

18"\
e. 3, 4

·,RF'

THIS co~~A~J STARTS THE F'PP•12 IN THE ~ORMAL
RUNNI~G ~o~E:
NC ERROR C~ECK!NG OR TRACING
IS o=~E. T~~ ?RIMARV USE OF TMlS CO~MANO
IS T~ A~LOw T~E F'PP•12 TO RUN A PROGRAM AT
ITS F'ASTEST SPEE~ F'OR SCOPi~G~ THE RULES
?£RTAl~l~G TO THE APT AND AUXlLIARV ADDRESSES
ARE THE SAME AS THOSE roR ~RT CSEE 8,3,3>,
ONCE TM£ F'PP.12 IS STARTED TME PROGRAM WAlTS
IN A LOQO F'OR f~E FPP•l2 TO EXtT OR F'O~ AN
INPUT rRQM T~E TTY ~EY~OARO, THE USER CAN
TYPE A CARRAtGE RETURN TO BRING CONTROL TO TME
TTV ~O~ITOR, AT TMIS TIME TME F'PP•12 IS STILL
RUNNING 9UT TMf PROGRAM lS NOT C~ECK!NG !T 1
TYPING A 1 EX COMMA~D AT TMIS T!ME W!LL FORCE
THE F'PP•12 Tc EXIT ANO RETURN co~TROL !O TME
TTV ~ONITOR,

8, 3, 5

·,EX

IF TME FPP•12 IS RUNNING, A "CPU FORCE EXJT"
!OT !S ISSUED~ SUF'FIC1ENT M•lNTENANCE lOTS
ARE lSSUEO TO ALLOW THE FPP•12 TO COMPLETE
ITS CURRENT iNSTRUCTtON ANO STORE THE APTt
THUS PCRFORMiNG A NORMAL EXIT~

S~!T~~

OPTIONS <USEJ O~LY lN TRACE MOOE>

s~z~

ct>

I~~I9IT

ER~OR

5q~1

(1)

!N~l~IT

ERROR TYPEOUTS

MALT
USED IN RO'H

SR02 (1)

RESTART PROGRAM ArtER AN EXIT,
TRACE AND rAST MOOE,

SRe3 (1)

SlNGLE STATE MOOE~ OV£RRlOES !HE ~SA 1 RA ~CL
CO~MANOS (SEE PSINGLE STATE CONTRO~s~ e,2)

5Re!4

ENTER STOP~ STOPS TME PROGRAM EACM TJME A MAJOR
STATE rs ENTER[O, TVP£ ·~T MOOE TO CONT!NOE~

(1)

SFU!5 C'->

(~
'---· J

TTV TRACE~
ENTEREO,

TYPES EACH MAJOR S!ATE AS IT IS

/ ....

\._

\___j

,...,

~
10',

EqRQRS
Ol>OOIHI

T~E

TRACE PROGQAY CA\ ~E~ECT 7 TVPES or ERRORS IN TME FPP•I2:

T~ERF IS ONE TYPEOUT
~AY NOT 9E A~ ERROR,

IN T"E ERROR ROUTINE WMICW ~AY OR
THIS TVPEOUT OCCURS lF TME PPP•12
CID NOT CAUSE A SKIP AFTER A "rPST" IOT, AFTER TME TYPEOU,,
CO~TRO~ !S TRANSFERE~ TO T~E TTV MONITOR,
TYPING
"ALT MODE" ~!LL CAUSE THE PROGRA~ TO CONTINUE RIGMT AFTER
THE "FPST" IOT~ TMIS TYPEOUT !SI
-

"FPP•12 DID NOT START"
ONE ERROR, DATA ERROR STORING TME APT, WMICH IS THE ~EAST
~IKELY TO OCCUR HAS iTS OWN MESSAGf FORMAT,
TMlS
ERROR TYPES THE MESSAGEI
"ERROR SAVING APT !N EXlT"

ArTER TYPING THE MtSSACE, SINCE THE rPP•12 HAS FlNlSMED
ITS EXlT, THE PROGRAM eoNTINUtS AS THOUGH NO ERROR
OCCURED,
A~~

OTHER ERRORS TYPE A MESSAGE WlTH TME SAME rQRMAT,

"ERROR XXXX • TYPE • FPP YYYY VYYY • PROG llll llll"

TH£ ~EANING or THIS ~ESSAGE !SI
ERROR

SINCE THE TTY !S USEO roR OTHER TYPEOU!S,
TH!S IS OlSTiNCU?SHEO •S AN ERROR MESSAGE 1

xxxx

THE P,C,•1 or THE !NSTRUCT!ON THAT TRANSrEREO
TO TWE ERROR CHECKING ROUTiNE~ BY LOOKING lN !HE
LlSTtNG AT THE P~C; LOCATION (ALWAYS F?ELO Z),
THE USER CAN oeTERMINE WHICH T!Mt STATE FA1~£01
Ir THE P~C~ POINTS TO A ~oeATlON ArTER AN "FST£P"
INSTRUeTtON, TME E~ROR WAS GENERATED IN THE
PREVIOUS T!ME STATE,

TYPE

TYPE or ERROR ts THE REGISTER IN WHICH THE
ERROR WAS DETECTED <IE~ 0 REGl;

YYYY

THE ERRO~EOUS OATA REAO rRoM TME rPP·12
HARDWARE REGISTER,

222t

WHAT THE DATA SHOU~D BE AS DETERMINED BY
TNE TRACE SIMULATOR,

.-.....

ElCAMDl.E

----···

ERROq 2117 * 0 REG • rPP 1234 1234 • PROG 1234 1235
THE P,C, SAYS 'HAT T~E E~ROR OCCUREO IN OEPos1r
STATE 11~ (THE P 1 C1 POl~TS TO TME nrSTEP" TO ENTER
O[PQSIT STATE 12>~
THE 9A0 DATA WAS OETECTE~ tN TME 0 REGISTER,

THE rPP•12 0 REGISTER CO~TAlNS 1234 1234
TH! rPP•12 O REGISTER SHOULD CONTAiN 1234 1235,
IT APPEARS TMAT THE rPP•12 O?D NOT ROUND UP WHEN
IT SMO~~O MAVE~
NOTE ••••••

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

THE DATA WORD& ARE SPLIT INTO TWO 12 BIT PARTS
EVEN TMOUGH THE REGlST£~ IS A SINGLE 24 BlT REGISTER,
THIS I~ SO TMA~ IT IS !ASltR TC DETERMINE WHETHER THE
ERROR WAS tN TTHE MSW OR LSW or THt REGISTER, THIS IS
DONE BECAUSE "OST SIGNALS IN TME HARDWARE RErERENC£
THE MSW OR l.SW or A REGISTER~

I
I

/~-,

~j
c _____ !_______, ___________

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

-=------------------- -- -

------~----

-- --- ·------ - -

........

~
10~1

TYPES or ERRORS
·-~---.,·-·--···

TIME STATE

~~ E~ROR
::~~~ SE

ERROR,

NOTE

****

SEE PARAGRAPH ,,1 rOR A DESCRIPTION
~r T~E TIME STATE REGISTER

IN THE O REGlSTER 1

0 REG

A ~ATA ERROR

STATUS

OP ADOR

OP A~DRESS ERROR,

AODRS

ERROR tN TME AOORS REGISTER, (APT ADDRESS)

MEMORY

ERRONEOUS DATA STORED INTO MEMORY BY

NOTE
10~2

IN TH[ STATE GE~ERATER, T~IS
A TIME ST,TE OR MAJOR STATE

ERROR IN TH£ STATUS REG!STER 1

T~E rPP•12~
T~lS ERROR

WILL OCCUR tr TM[ rPP•12 STORES
DATA INTO A NON•EXiSTENT MEMORV FltLO~

.... ....

ERROR HALT
..,

."'

IF SR00•0 THE ERROR ROUTINE GOES TO THE TTY MONITOR
ANO WAITS FOR THE OPERATOR, !VPING "ALT MOOE" WILL
e4USE THE PROGRAM TO CONTINUE~

u·,

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

THE PROGRAM LISTJNG

SEVERA~ PRE·~ErI~E~ INSTRUCTIONS ARE USEO IN THE TRACE
s1~ULATOR,
THESE :~sTRUCTIO~S ARE oErINED AT THE
BEGI~NING

Or TME ~!STI~G,

THESE INSTRUCTIONS ARE USED TO SIMPLXrV TME COOlNG1
ANO TO MAKE THE LISTING RESEMBLE TME ;pp.42 rLOW PRINTS,
T~[ eOOING or THE SIMULATOR WAS WRITTEN USING !HE ;pP.~2
PLOW PRINTS, MANV or THE COMMENTS ARE COPPIEO FROM
T~E rLOW PRINTS,
ANY TIME TME LISTING IS BEING USED, THE USER SMOULO AL~O

MAYE A SET or PPP•12 FLOWS~ USING TME rPP•12 rLOWS WILL
CLARlfY THE PROGRAM LISTING ANO MAKE IT EASY TO rOLLOW 1
AS rEW INSTRUCTIONS
POSSIBLE ARf USED TO ACCOMPLISH

•s

THE ruNCTlON or ONE BLOCK IN TME PLOWS;

THE START Or tVERY MAJOR STATE ANO TIME STATE IS LABELED
WITH A TAG TMAT STATES AS CLOS£ AS POSSIBLE WMlCM MAJOR
STATE ANO TIME STATE lT rs~ MOST OF TME TAGS CONSIST 6;
THE MA~OR STAT£ NAME, ABBREVIATED, FOLLOWED BY THE TlME
STATE NUMBER~ tIE 1 1NlT2 1 INITIATE STATE 2) 1
AT TME BEG!NNlNG or EACH MAJOR STATE IS A TAG WITH TMt
MAJOR STATE NAME ANO NO TlME STATE NUMBER 1 FROM THIS
TAG TO THE tlRST TIME STATE ARE INSTRUCTIONS TO SETUP
THE PROGRAM roR THE MAJOR STATE ANO CLEAR TEMPORARY
RtGISTERS ANO rLAGS,

~~~

r~~-;;.,,,
'

~
6•APR•72

13i37

::JI At.,10

V0r113

Sloi21

('I

~RRQR

I
I
I
I

Sw1
Sw2

('I

ERROR !VPEOUT
RESTART PPP Af'TER ~XIT

1rt.,OATING ~OINT EXERCISER

SW3
SW4

Sw5

CO'.JTROL,S

I
I

,SA
,RA
,EA
Cl.
,AS
·,RT
·,Rr
,TV
,CM
·,EX
·,OP
,SM

I
I
I
I
I
I
I
I
I
I

I
I
I
I

C:NTRt. 0
CNTRI. P
CNTRI. C

1
1
1
1

~Al.T

STEP MOOE

ENTER STOP
TRACE

L.OAD START STEP AOORESS
L.OAD RESET STEP AODRESS
t.OAD EXIT ADDRESS
Cl.[AR STEP rt.AG CEXlT ~TEP MOD~)
ASSEMBL.E
RUN TRACE MODE
RUN F"AST MOOE
TYPE CONTENTS Or REGlSTE~
L.OAO COMMAND REGISTER f'PP EX 1T
L.OAD OPERAND TABt.E
SET SH!rT COUNTER ANO r.t.AG
NO INPUT Wlt.L. RESET 'I.AG
RETURN TO OlAI.
RETURN TO 1'5e
RETURN TO OTA MONITOR

i;4~E

Sia

ERROR MALT

6-APlh72

13i3'7

TV?Et:!UTS

I
I
I

PROGRAM 0 REGISTER
F'?P 0 REGISTER
A REGISTER
9 REGISTER
~
MQ
M~ REGISTER
PROGRAM F'AC
AC
PROGRAM F'PC
PC
[R
PROGRAM F'lR
OP ADDRESS
OP
AO
AODRS
ST
STATUS
PROGRAM STATE
PS
STATE READ rROM F'PP
F's
AP
APT
tNOEX REGISTERS
x
Sl-l!F'T REGJSTER
SH
Al.I. or ABOVE
Al.
F'JEL.Dr 12 BIT AOOR 1 eOUNT
F' AU.A N

I
I
I
I

I
I
I
I
I

""';"°".

V003

[

D1AL10

:::ic

F' 0
A

PAGE 2

,....,,.

~,,
I

swr

ERROR ~ALT

D1 ALU

V"03

PM ODE

/MACRO OEF'IN!T!ONS

'EF'I"JE

"JPAGE:<

JMP l
PAGE>

(~•20"&7600

/SUrF'ERS roR f PP CODE
4000
4100

T£Sh41!JZ0
OP£RNOi4U0

/lOT Cf:F'!NlT!ONS
6551
6552
6553
65!J4
6555
6556

F'P!Nh
F'PlCL11
F'PCOM1

6,51
65!J2
6553
6554

6557

F'PML. h
F'PSh
F'PRSh
F'P!ST•

6561
6562
6563
6564
6565
6567
6566

F'MAlNh 6561
RSTATE• 6562
ROMSW• 6563
ROL.SW11 6564
RAPT•
6565
LSMF'T• 6567
ROOPil
6566

65'5

65!J6
65'7

6•APR•i2

13137

PAGE 3

swe

ERROR i.IALT
I

4;77
4576
4575
4514
4573
4572
4571
4570
4567
4566
4565
4564
4563
4562
4561
4560
4557
4556
4'55
4'54
4553
4552
4551
4550
4547
4546
4545
4544
4543
4542
4541
4540
4537
4536
4535
4534
4)33
4532
4531
4530
4527
4526
452!:>

DULU

vzi3

6•APR•72

1313"

"•~E 4

!N5TRUCT!ON DE>I~ITI~NS

AMBO:
APBO:
CAPT:

JMS t CSUBA8
JMS [ t ADOAB
JMS I tAPTC
JMS t ~F"Cl.R
CLEA~=
JMS t CCLRAX
CL.Rh
JMS I fCLRE!X
Ci.RB:
CL.RO:
JMS t CCL.ROX
JMS [ f CMEM1
C~EME:=
CME Mr;: JMS I (CMEM2
OECAPT: JMS I CAPTOEC
OECOP• JMS l tOPDEC
ENTER• JMS l t SETUP
rST£p; JMS t fSTEP
GETAPTI JMS I CGAPt
GETOP1 JMS t CGOP
GETPc1 JMS l CGPC
JMS t ~XGEtX
GETX•
INCAPT8 JMS l CINC3
INCOP• JMS I ClNCi
INCORI JMS J f0Pl.US1
tNCPC• JMS I ClNCi
tNCSh JMS t CSTlNC
JMS r CXPl.US1
INCXI
l.OAOh JMS r tTOA
LOAOACii JMS l CTOAC
LOAOt!• JMS l tTOB
LOAOMQ1 JMS ! f TOMQ
LOAOOt JMS 1 noo
LOAOOP• JMS l f TOOP
LOAOPC; JMS l CTOPt
M0Vt;U JMS 1 tPINDEX
JMS t CXNORM
NORM•
JMS t CXPUTX
PUTX•
JMS l f AEi!
SA£i!•
JMS I tAGi!
SAGh
JMS t f At.i!
SAL.iii
SHF'TB!!i JMS l f SHlf'TB
SMl"TO• JMS t fSHIF'TO
JMS 1 COEl
S0£l•
STORA• JMS I tSTRA
ST ORB= JMS I CSTRB
TOMEM• JMS I fMEMiNS
JMS l tTRSl<P
TRACE'=

I A "I P.JUS

8 TO 0
/A PL.US 8 TO 0
/COMPARE; APT ADDRESS (AO~S>
/Cl.EAR F"PP ANO PRO~RAM R£GfSTERS
/Cl.EAR Ti.IE A REGISTER
/CLEAR THE 9 R~G?$TER
/Cl.EAR TME 0 REGISTER
/CMECK MEMORY EXPONENT
/COMPARE MEMORY rRlCTlON
/DECREMENT TME APT AOORESS CAORS)
/OECRE~ENT T~E OP iODR!SS
/SETUP TO ENTER A MAJOR !TlT£
/CMECK REGS AND 5T!P TO TH£ NE~T TIME STATE
/OUTBRK USING AORS
IOUTBRK USING OP A~DRESS
/OUTBRK USING ~PC
/GET PROGRAM INDEX REG!StER
/INCREMENT APT AOOAESS CiD•S,
/INCREMENT TH£ OP AOORESS
/INCREMENT THE O R!G?ST!~
/INCREMENT TM£ rPC
/INCREMENT TIME STATE AEGl!TER
/INCREMENT THE PROGRAM INDEX R~GISTER
/L.OAO !HE A RE~ WlTM REG JN NE•T t.OCATlON
/L.OAO !HE rAC WITH R£G JN NEXT LOCATION
/LOAD B REG Wl!M REG IN NtXT l.OCATION
/l.OAD MQ RtG WITM "EC !N N!XT LOCATION
/LOAD 0 REG W!!M R!G IN NEXT LOCATION
/LOAD OP AOORESS W!TH REG fN N!XT L.OOATlON
/LOAD rPC WITH R~G lN NEXT LOCATION
/MOVE ~StR lNOEX R~GS TO PAOG INDEX REGS
/NORMALl~E THE 0 R!GtSTER
/STORE CATA IN PROGRAM lNOEX REGISTER
/SKIP tf r•c • a
/SKIP lf r•c is CR!ATER THAN ~
/SKIP lf fAC l~ ~E!S TMAN ~
/SMIF'T B REG RIGHT USlNG S~lf'T COUNT
/SHIF'T 0 REG ~EF'T UStN~ SMf F'T tOUNT
/SKIP lf 0 REG • 0
/STORE lN ALSW ANO EXTEND 51CN to AMSW
/STORE lN BL.SW ANO EXTENT SICN TO BMSW
/SKIP IF' AN~WER DO~S NOT GO TO MEMORY
/TVPE !EXT tr !RACfNG PROGRA~ tSRZ5 a 0)

""·

~
I

511:"

l-IALT

oIA 1.10

~EGISTER

OEflNITfONS

ERRO~

?021

~MS.o:

2'022

~L.Sw=

l"223

OE)(h

?2124

A'1Si.I:

?ns

AL,Sw11

2'026

AEXT:

!!1027

8MSW11
BL.5w:

'1'030
21031

BEXh

12'rll32

MQMSW•

12111133

"1QL,SW11

OREG
OREG+1
OREG•2
AREG
AREG•1
AREG•2
!:!REG
8REG•1
BREG•2
MQREC
MQREC•i
MQREG•2

0034

MQ£X't•

0fl62

TMSW:

0163

TL.SW•

TRE:G
TREG•1

HJS
0036

ACEXP•
ACMS WI

ml/JJ7

AC\,SWI

PF'AC
PF'AC•1
PF'AC•2

i'J036

rACF'FU=

PF'AC•1

01/J29
081110

RECS.
ERROR•

4 fl.!00

LOEXTI

4Hl/J

7402

~AL.h

OREG•1
7402

Vlll"J

6•APQ•72

iJiJ;

PACE 5

Si.II'

ERROR ~ALT

"'eeio

L' 1Al.1Z

V"'03

6•APR•72

13i37

F'AGE 6

•Z
/TEMPORAPY LOCATIONS

~""0

'..1000

~Z~1

i0021

:"2:'.12

2'000

~0~3

2'0021
r-000

:il0t"6

~000

00~7

2'000

21020

•22'

Z0~4

~0~5

~020

~~*'\
I

r.tH'

MT2,
SAVOr.i,
SAVOL1
MClf'L.AG,
EMfM,
MMEM,
LMEM,

el"""

5724'

e
~

"0
21
t!'
0

JMP

BEGIN

1roR U~E 8Y STlRt t~ SWITCM ON POP•12

,.-..

11'-.
I

s.i~

ERROR MAL.T

0 lAL.1121

VlllZIJ

6•AP"•'2

131 ;s;

/SlMUL.ATED HARDWARE REGISTERS
:'10?1
:"022
t'111l2J
°'lll24
!21025

111n6

!21027
003!a
0031
0032

111033
0034

210!210

('_'!

12111l011l

0000
2.1000
0 "'110

AREG,

0000
!210011l
00H

8REG,

f1J0H
t/Jl!IH

~QREG1

121035

~01!J0

flfll37

Hlllfll
rl!Hfll

er040

11!0!/Jiil

ei0•1

!/JiilH

01•2

HH
HH

0044
0'145
1'100

eiuro
0ru.10
fllilQ!il

/0 REG!STE'!

/4 REGlSTE'l

e
2

/B REG lSTElt

/MQ

0
0

1rPP ACCUMUL.ATOR

Rf;GIST~R

0
0

02100

~036

1110•3

~REG,

?0!210

P'AC,

PrPc,

OPACA1

""
""
"'21

1rPP PROGRAM COUNT!R

/OP ADDRU!

PAGE 7

sw0

13131

6•APR•72

ERROR MAl.T

9101?10
e000

PAPT,

2105('1

111051

~111210

PIR1

00!52

!i!leJH

C0MREG 1 ~

/PPP COMMAND R£GtS'E~

0(()53

0H0

PSTAT,

/PPP S!ATUS RECtST!R

1110!14
1110'5
"'eJ'6

PJl/IH
12lHfD

"
PBASE1
"

0eJ57
21"6111

PXP 1

/PROGRAM INDEX POINTER

1?18H

~"61

l'IH2

e!Hlll
0H0
UH

TREG,

/TEMPORARY REGISTER

l!llllU
U64

""
""

111965
121966

0H0

X0AOR1

/'PP INDEX POlNTER

?.~47

01 AL.Ul

;1l

2lfiUH~

212H

VeH'l3

FIACE 8

/ACORS

'l
~

/PPP

lNSTROCTI~N

/BASE RE~lST[R

RrGtS~ER

(DfO A~O'ESSt

rlJ

111

Ill

(
\

,~\

.
/

.:-:"""
( _)

~
I

S\rlrll

ERROR l-IALT

DIAL.10

V~2'3

6•APq•72

1Ji37

PAC:E 9

1;1.,IP rL.OPS • TE~PORARY 1.,0CATlONS • CONSTANT~

1'11367
rli0712!
eril71
2'072

~000

SHF'LAG1

12!

?030

SMf!'CNT I

12!

!'1000

""""

SHREC: 1 0
EXITSW1 l'I
F'l.AGi1
rL.4G21
F'L.4G3t

111073
111074
elr.J75

11101110

0076
llJ077

11!el00
00"'11

0Uri!
01u

lllHllJ
Z027

llJU2

1!!1PJ3
0U4

2000
HH

T1i
T21

ll!U5
l!l 11!16
0117

"" 1110
HH

STEPSW 1 ll
APT
AAl'T I

11J1U

IZlfJH

111111

eiu2

l/JIOH
HH

l'l1U

0211110

~114

00H
11!1/lllJllJ
111001/J
IZ'H0
218"0
11! S111 l/l

"'115
0116

0117
01211J
0121

~000

3000

PJ2U

"
"
CARYiN1
llJ

/SPECIAL S~IF'T F'LAC:
/SPECIAL S~IF'T COUNT
/F'PP SHlF'T COUNTER
/EXIT ~w?TeH
/GENERAL PORPOSE F'LlP 'L.OPS
/AOOER CARP I ES

C:AROUT, llJ

021,

llJ

/OOUBl.,E PR!C!S!ON 27

2'1

"
llJ

eSTATE • Ill

EKWO,

/TEMPORARY STORAC:E

Ill

OVF'L,
Ill
!GNF'L1 Ill
EXADOR1 llJ
ENTSTP1 0
EXSTP1 f!J
MCNT,
llJ
0
Cl<01
CKOP,
S•VOP1 eJ

/PROGRAM S'ATE GENERATOR
/PROGRAM S!NCL! STATE SWITCH
/ADORt~S 0' THE AP'
/OVER,~OW

/IGNORE UNOER,~OW ,LIP F'l.Ofl
/EXlT AOOR!SS f~EX COMMAND)
/ENTER STEP ADORESS (~SA COMMAND)
/EXIT ~TEP AODRESS (~RA COMMANO>
/CHECK 0 R!G!STER SWITCH
/CHECK OP lDDRESS SW!TeH

s .. ~

ERRO~

;'21'Z

"0~0

x0,

~U1

?'000

X11

2'0e0

)( 2'

21
0

:>c:n

2'0~'11

x3,

:2'0"0
21000

)( 4 I

X61

APT,

Z2216

?00£1
2'1lfll0

32U
0211
2'212

21021il
2!000

nu
~214

21215

~216

0211

2220
Ql221

P222
"223
~2!4

0
el
0
el
el

0H0

PX0,

fl!

HH
HH
HH
HH

PX11

000!0

6•APRw72

13i37

PAGE 1"

P)(2,

/PROGRAM

1NO~X REGlSTE~S

3
21

x.,'

0000
011100
0000
!Hl!I

0226
2227

x5,

~2'00

0225

V"~3

222'3

l'214
"2~5

OIAL 111J

PAGE

~2<lZ

l-IALT

/APT U~EO WH£N N~ 100R£SS
/IS GIVEN WITH .~T OR ~RF CO~MANOS

/INDEX R£GfSTCAS USE~ W?TM AeOVE 4'T

11'

PX31
PX''
PX5,
PX61

P)(.,'

! ~

~
I

S":'

r,n2
"'.2:!1
7~32
~2'33

C"2H
~235

0236
0237
2'240
21241
2'242
:l243
21244
0245
1"246
2'247

ERROR 1-!Al.T

73:1Z
1777 1
:!347
3776'
7604
7136
77U

START,

4774 I
2354

0000

g(t:;IN1

47731

4772 I
4261
5246

OOTB1

0250
21251
21252

0254

KEVC1<1

0253

3350

22!!!4
21255
0256

6"32

?~HJ

1250

APTSAV
OCTWD
F'PPRUN

OCA
LAS
Cl.I. RTL.
SPA Cl.A
STF'PP+:!
JMP
Ty F'
JMS
EOP

5775 I

37761

Cl.A Cl.L
HD
::JCA

DI Al.10

DCA
JMS
JMS
JMS
JMP

TAO

6•APRw72

f3i37

P4C:E 11

/GET I.AST APT AoiRrss
/STORE F'OR RERUN
/Cl.EAR F'PP RUN rr
/GET SWlTCM REGISTER
/SR02 • 1 !
/YES • R£$TART PROCRAM
/TYPE END 'rRACE'.

·• •i

/Cl.EAR PROCRAM RUN FF'
/TVPE PROGRAM TITI.£
JTVPE AN ASTERtSK t•>
/Al.LOW INPOT rROM 'TV
/PROGRAM SHOULO NOf ~EtURN HER£

l<EVCK
REfURN

/GET T!Y INPUT BETWEEN TlMt STATES
/ANO A~TER ERReR ?YPrOOt
/GtT RETURN A00Rr-SS
/SAVE fOR !X!T TO 'RAC£

F'PPRUN
Tli'LE
ASTER
WORD

•••

Cl.A Cl.~

V0Zl3

0257

4261
5650

DCA
KCC
JMS
JMS
JMP l

t<EVCI<

/TYPE AN A!TER!SK t•)
/Al.I.OW TTY JNPUT
/RETURN TO TAAeE

0260

5661

E:XITWC1 JMP 1

WORD

/L.lNI< WITH TM?! MEMORY PAGr

41721

ASf ER
WORD

-----~-----~--=--.......----------------

sw~

E~ROq

>iAl.T

DIAl.11!1

Vlil"3

6•APq•72

13i31

PAGE 12

/RECE1VE I~PUT •~O~ TTV, ONE WOR~ AT 4 TIME.
/A CARRIAGE qETUqN oq SPACE w11.1. EXIT 9ACK T~
IT~E CAI.I.ING ROUTlNE 1
/Al.T MODE DOES A SPECIAi. EXIT
f'l261
lll262

21263
0264
11'265
~266

2'267
0210

~0~~
73~0

3347
3346
61l131
5265
6036

0214

3345
1345
6046
6041
5213

21275

6042

"2'1
212'2
1!12'3

wORO,

qEAO,

Cl.A Cl.L.
OCT WO
OCA
AStwo
OCA
KSP
,•i
JMP
KR9
ASC CM
OCA
TAO
ASCCM
Tl,.S
TSF'

/Cl.EAR 1.lNWtNG WOROS
/WA l T ~OFI 'TV
/GET CHA~ACTER rqo~ TTV
/SAVE CHARACTER
/ECHO ~HARlCTER

JMP
TCF'

,•!

,,,.,,

TAO

(•215

/CMECK FOR SPECIAi. CMAAACTtRS
/RETURN t

JMP

l!l3U

1367

TAO

PET
(•ZJ

/SPACE ?

1!1302

7450

SNA

5661
1366
1450
5'1651

TAC
SNA

1!1216
02'7
1113 l:!!e
23~3

11139'4
2'3f!5
21306

U11

H!t0

2131!1'1

1U4

l!IJH!
111311
21312

7450
57631
1362

GIJ313

0JH

21315
0316
0317

2'320

765e
575riJ
1345
U61

7710
5760 I

SNA
JMP !

JMP
TAO
SNA

JMP

TAC

WORD

<•i6

/PERlOO ?

OOT
<•i21

/RUBOU! ?

RUBOUT
(2

/Al.T MOOE ?

SNA Cl.A
RETURN
J~P l
ASCCM
TAO
TAO

(11240

JM?

TRE:X tT

SPA CLA

/RETURN TO SfMUl.ATfON
/GET A~C!l CMARACTtR
/CNTRI. KE'.Y T .

/YES • EXl' TO MONITOR

r:~,

"' )

~
I

SWCll

:'l\321

E:RROi:i

OULU

~ALT

ASCCH

TAD

21343
0344

1345
2'357
3345
1346
0357
71216
7006
'"~o
1345
3346
1345
0356
3345
1347
e355
7134
7006
1345
3347
5265

21345

000111

ASCCM1

03!eJ
213!1

UJ28

OCTWD1 el
RtTURN 1 STF'PPJ•I
STUVt 1 21

03!55

0777
01111117

r322

Z3?3
P'324
2'325
2'3'-6
2'32?
i"33:a
2'331
0332
0333
2'334
~335

0336
121331

111340

2'341
2'342

21346
2'347

~.5!6

HH
HH

00flllll

03!57

~017

~3U

5705

0361
0362
111364
0365
~366
~367

?755

(11370
~371

~Tl.

RTI.

<77

ASCCM
ASCWD
<77

Cl.I.

RTL.

TAD
ASCCM
ASCWO
OCA
TAO
ASCCH
(7
ANO
ASCC~
OCA
OCT WO
TAO
( 1"i 7
ANO
RAI. ca.1.
RTI.
ASC CM
TAO
OCA
OC1'WC
READ
JMP

ucwc.

6"APq•72

13i37

PAGE 13

/GET CHA~A~TER
/STRIP T~ & BJTS
/SAVE 6 9lT ASC!l CHARACTER
/GET A?Cll WORD
/SAVE ~AST CMA~AeTrR
/MOVE ~o 1.£FT HALF or WORO
/lNSER! ~EW CHARAC,ER
/SAVE P4CK[0 ASCtJ WORO
/G£T ASC!I CHA~AtTfR
/EXTRACT OCTAi. DfGfT
/SAVE OCTAL: DIGIT
/GET OCTAi. WORO
/SAVE I.AST 3 O!Gf TS
/MOVE 1 Ol~lT l.EfT
/lNSER! NEW Dl~lt
/SAVE OCTAL: WORD
/GET NEXT CHAR•CTER

21
21

/SPECIAi. R!TURN ADORrS8

7762
~42!4

P'372
2'373

7563
7261
7266

t."374
l"!J75

102~

~376
~.$77

ANO
OCA
TAD
AND

V0~3

7540

111002
11111110
7657
!11413

111363

7313

1045
1044
li'41?k'

PAGE

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

....
....•

P')

...,.....

..,

lri

N
.....

•
...
•

0..

"' /

.c!J

..,

....

IS)

....
.......
'51

.......i
4

•:I:

a::
0
a::
er
LJ

,..-.

~
I

sweo

ERR~ll

l-IAL. T

DIAL.U

V02!3

6•AF>Q•72

13137

PA~E

/SET ENTER SlNGL.E STATE ADDRESS
~400

47771

'1'4Z1

1776'
3114
57751

~4l'l2

12:40!3
t'14t"4
2'4l'l5
r41116
P!49J7
0410
21411

13?4
6046
6041
5206
6042

s".

57731

fll413

47771

ENTSTP
OO'i'EX

/ALL.OW T'V I~PUT
/GET ADDRESS
/SET E~T~R A~DRESS L.OCATlON
/EXIT

TAO
TL.S
TSF'
JMP
TCr
Cl.A
JMP

C2i2

/lNPUT rRO~ 'TV WAS A eARRAIGE
/RETURN, 'YPE A t.!N~ F'EEO

EX?TWO

/EXtr WORD ROUTl~E

JMS

WORD

/SET T!Y R!TURN F'OR COMMAND

JMP

t:IE.,.'

122!0

0412

oc•

octwc

J~S

TAO

OOT,

WORD

.•i

/BRANCM TO COMMAND ROUTINE
0414
fll415
0416
0417
l?J42"
"'421
0422
fll423
0424
04!5
214H
0427
l?J430
1"431

U12
3010
1371
3011
1411
311"3
1410
7450
5232
7041
1770'
'640
5220
5503

OOTC1<1

TAO
OCA
TAO

OCA
TAO I
DCA
TAO l
SNA

JMP

CIA

<BRANCH

u
CCNTRL.S•1
u
u.
T1
UJ

OO'i'ERR

TAO
ASCWD
SiU Cl.A
JMP
,•10
T1
JMP !

/ADORE~S

OF' tHARAC'E~ TABL.£

/ADORE~S

0' AOUTf NE 'i'ABL.£

/GET ROUTl~E A~ORESS
/UVE AOOR!SS
/G£T CHARAeTER SET
/END O' CHARACTER 'ABL.! ?
/Y£S • JNPOT ERROR
/NO
/COMPARE W!TM TTV lSCJ! !NPUT
/COMPA~E 1
/NO • !RV lGAIN
/YES • GO TO ROUTINE

/COMMAND INPUT ERROR
111432
0433
l!J434
1'!435

41611
2736
QJ f/J00

57661

OOTERR, Jt1S
OMI<
l!J

JMP

TYP

/TYPE ??

BEGIN•!.

/TYPE • AN~ RESTiR'

swr

ERRO" MAl.T

(°'4:!6
14!1

~556
7~10

EX1

~4'l

16U

2'445
el446
1'!44 7
t451

5246
6554
5561
6557
5243
6,52
73H
47651

1!'451

57751

1'441

1!!442
Z443
014'4

0 JAl.UJ

VH3

6dPR•72

~4R

JlS

JMP

,+5

JMP

1•2

F'PMl.T
F'T"IAJNT
F'PfST

PAGE 15

/GET ;PP STATUS

r-PRST
SNI. Cl.A

1313;

rPICI.
CL.A Cl.I.
SETRtT
JMS
J'1P
OOTtX

tPP RUNNtN~ !

JNO

/CPU f'ORCE EXlT
/ADVAN~E TJM!NC UN,11.1.
/tXlT lS COMPl.£Tf0
/CLEAR F'PPe12
/SETUP R£TORN
/EXIT RQUTJNE

/SET EXIT ADDRESS
r4"!2
0453
~454

t.4'5

47771

EA1

17'6'
3113
51751

JMS
TAO

OCA
JMP

WOAD

octwo

EXlOOR
DOtEX

/ALI.OW TTV INPUT
/GtT ADDRESS
/SAVE IN COMPARE WORD
ltXIT ROUTINE

11.0AO OPERAND TABLE
1456

U64

114!7

Hi1

1oe

fl465

"7'17'
17761
6211
3411
6291
5268

0466

1176'

1461

1462

1463
lll464

U67

2147111
21471
21472
l'l473
lll414
lll415

()

0363
U62

.,,,,

3103

17761

3503
57611

t.OOP,

TAD
DCA
JM9
TAO

car

DCA I
COT
JHP

t.OOX1

COPERND•1

IGtT TABLE ADDRESS

WORD

l~LLOW

TTV INPUT

octwo
u

/STORt-tN rt£L0 i

IR£$TOR£ DlTA r1r1..e
/GU -NEXT WORD

,•5

/GU OCTAL WORO

ILOAO !NOEX REGISTER CENTERED ~ROM ,AS ROU'lNE,
/Gt:T OCTAi. WORO
TAD
OCT WO
(7
/EXTRA~T INDEX R£GISTER
AND
TAO
/AOO AQDRESS 0' tNeEx AEG '
CPXlll
/SAVE INDEX AOOR£SS
OCA
T1
IAl.\.f»I TTY INPUT
JMS
WORD
/GET O~TAL. ARGUM£N'
TAO
octwc
/SET INDEX REG!Stt~
T1
OCA l
/GO BACK Te AS R~UtlNE
J"HP
AS•4

/
\

I
/

SW~

E~RO~

loiALT
/SET

1?477

47771
1770'

05~0
~5(!1

3052
57751

~476

c~,

JMS
TAO
DCA

JMP

DlAl.10
T~E

COH~ANn

WORD
OCT WO
COMREG
DOi'EX

VfZ!i213

6•APR•72

13i37

l'A~E

/SET RESET SlNGl.E STATE ADORES§
215~2

47771

0503

17761

12'51114

3115

0505

57751

RA I

JMS
TAD

DCA
JMP

WORD
OCTWO
EXSTP
OOTEX

/ALLOW TTV INPUT
/GET OCTAL WORO
/SET EXIT eOMPARE ~o~o
/EXP

/RUN TFUCE MOOE
0506
e!507

4760 I
57571

RT,

JMS
JMP

STF'PP
INiT

/SETUP TO !TAR'I' rPP
/START TRACE ANO rPP IN INIATE

/RUN f'AST MODE
0510
111511
0512
0513
0514
0515
0516
~517

0520
0521
21522
0523
0524
0525
21526
21521
0530
0531
0532
e533
0534
iii535
C'!536
~537

?:Hill

4761211

Rf'1

H02

1356
:5103
:5104
1341
7040
:5341
1341
6<1'31
1410
47551
6557
74U:l

57,41
2104
5326
2103
5326
5317

JMS
TAO

1052
6!)53
7200
1107
6555
RF' A,

F'PCOM
CLA
TAO
F'PST
loll. T
TAO
DCA

OCA
TAO

CMA
OCA

r:ire,

TAO
KSF'
SKP
JMS
F'PIST
St<P
JMP
1Si!

JMP

I Si!

JMP

JMF'

STF'PP
COMREG

/SETUP TO !TART F'PP
/GET COMMAND RfG!S'ER
/SET rPP•1t COMMlN~ RE~IS,tR

UPT

/GET ADORtSS O' iP'
/'PP•12 START £RROR

( •20

IGtT TIME CONSTANT
/$£T TIMER

T1
T2
ACBIT
ACBIT
ACBIT

KEY CK

/GET CONTENTS OF B!T PATTERN
/COMPl.JMEN'I'
/RESTORE
/~OAO BlT ~ATTtRN
/CHECK KEV80AR0 rLAG
/GET T!V lNPU'
/lS F'PP•1Z rtN!S~E~ 1
/NO

START

T2
RF'B
T1
RF'B
RF'A

/VES • EX lT
/TIMEOYT B~F'ORf tO~PLIMEN,lNG AC
/AC F'~ASHE! ON ANO OF'F' Wloill.E WAITING

-- - - - - ---

--------

ERROR ~AL.T

?541

:'."0:a0

AC9l'!",

?.542

3H6
57751

cI.'

DCA
J"MP

S~P'

~543

0554
0'!555
0556

11!5!57

esu
21561
21562
21563
21564

STEPSW
OOTEX

V0213

1313;

6•APR•72

PACE 17

/CL.EAR STEP SW!TtM
/EXIT

k"230
r.250
77 60
1064

Ui6
061!14

21220

llJ5H

1!1(1)07
4117
7254
1!1244

1!1561

1i50

1156'

OU\.UJ

m''' l!l;J46
7237

!511

1846
'''2 1!1268

0573
8514

"'''
.,,,,
0516

I I

IPJ2i2

1!124'
Q!;J4.,
1!1261

216811

PAOt

: '

(
i I

.
~
\__ /

'-.,_

~'
~j

S;.J~

~
'?

e:RROl:l lo!Al. T

V003

DIAl. U

6•APR•72

1Jj3;

PAGE 18

/ASSEMBl.E AN FPP•12 PROGRAM
i'6:110

AS 1

"'6~5

1377
3262
1376
3233
1775 1
1374

~6~6

7640

SH CL.A

47731

JMS
ASPNTR
ASAOOR
JMS
ASA DOR

?!6~1

1'16!'!2
r'6213
~61'!4

'161117
l1l 61121
0611
12'612

0613
0614
0615
'91616
2'617
062"1
2'621
0622
0623
0624
0625
0626
11l62?

0631/J
0631
11l632
e'633
0634
0635
r-636
0637
0640
0641
til642
21643
0644

0645
1'1646
~647

TA:J
~CA

TAO

'.:'CA

<TEST
ASPNTR
<COF' 10
ASf'l.D
ASCCM
(•215

/GET B~rFER ADDRESS
/SET POlNT~R
/ASSEMBl.E !N F'!El.0 1

AS GET
ASC

/GET ASCII C4ARAtTER
/SUBTRACT RETURN
/WAS ?NPUT TER~l~A,EO ey A RETURN
/NO • GET NEXT WOR~
/CONVERT ADDRESS TO ASOll

TYPNCR

/TVPE AD~R!SS

1110'

TAO

11l367

ANO

WORD
ASCWO
C7?1iU!

136?

TAO

( •r1113121

/ALL.OW TTY INPUT
/GET A5Ctl WORO
/EXT~A~T L.frT eHiRACTER
/SUBTRACT "A"
/INPUT • Ae ?
/YES • l.OAe rAe iN APT
/SUBTRACT "X"
/lNPUT • X 1
/YES • SET lNOfX RtG!ST£R
/SUBTRACE •
/NCW 1.,0CAT!ON ?
/YES • SET 1.0CAT!ON C:00NT£R
/NO • INPUT lS OiTl
/C~ANGE OATA r!ELO
/STORE OATl
/R£STORE OATA r1r1.0
/INCREMENT POINT~R
/!'OINTER U OK
/POINTER OVERrLOWEO r1r1.o
/INCREMENT FIELD POtNT~R
/EXTRA9T rtEl.D Bf T~
/OVERr~ow TO rtELO 121 ?
/YES • ERROR
/OK • MAKE cor INS,RUCTION
/MOO H'Y PROGRAM
/YES • TVP~ PO!NTER

TAO
TAO
J~P

5216

"662
2':646
47721
2646
11l 12111l 121
•111'

ASGET1

SNA
Jl'IP
TAD

7451/J
5~50

1U6
7451/J
5165'
1364
76!1/J
5273
17631
62h
3662
6201
2262
5204
1233
1362
111361
745"1
57UI

1357
3233
5204

.JMS

SNA

l.DAC
C•27H

JMP
1.oox
(•22210
TAO
SNA C:L.•
ASLOC
JMP

TAO
A5'L.C 1

C:Of'

OCA l
C:OF'
t Si!

JMP
TAO
TAO
ANO

oc,wo

11/J
ASPNTR
210

ASPNTR
4S•4
ASF'l.D
C13
!721

SNA

JM Pe
TAO
DCA
JMP

DOT ERR
<COF
ASF'LO
AS•4

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

--~--·=-=~---•---C-'-CO->~'

s.n

ERR:JR MALT

0 IALU

/~OAO

:"650

1356

l651
2'652

3011

1355

~653

312!3

:'654

47'11;

2'655
?656

17631
341.1

~657

2U3

f66'!1
2'661

5254
5204

2'662

21ui;,

L~AC I

TA'.)

(AF'T•4

/ADDRESS o~ F"Ae

11
C•3

/WORD COUNT

/ALLOW TTY INPUT
/GET OCTAL WORO
/STORE l N lC

T1
WORD
OCT WO

J~P

·, •4

JMP

AS•'4

•

6•AP~•72

13i3?

PAGE 19

rAC IN APT CENTERED rROM AS eOMMANO)

'.)CA
TAO
OCA
JMS
TAD
DCA l
I Si

ASPN1'R, ti

V0~3

/GET NEXT WORD
/GO BA~K TO AS ROU,lNE

/S£T SPECIAL SHirT
Z6U
l\'664

1°665

3666
21667
0671
0671
21672

~
\,

47711
1110'
7640
7241'/J
3167
1163'
:Sf 10
57541

Sjoj 1

JMS
TAO

WORD
ASCWO

SU CLl
STA
SHrLAG
OCA
TAD

OCA
JMP

octwo

SHFCNT

oottx

/ALLOW INPUT ,~OM TTY
/GET ASC 11 WORO
/WERE ANY eHlRlCfEAS l~PU' 1
/YES • AC it 77,7
/SET OR RESET SHI'' rLAG
/GET O~TAL lNPUT
/SET SPtCllL SMtrT COUNT
/EXIT

s w7'

'."673

(:',

'l677

17631
235:5
71214
7kl06
1357

e'700

3233

11'71ll1

47711
17631
3262

2074

:"675
2'676

Z'nl2
1.1'7~3

11'7it14
07('115
~706

Z753
11l754
2'755
~756

0751
0760
0761
0762
0763
el764
0765
11l766
'JJ767

0710
0711
t'l7'2

11l773
2'1714

07'5
11l7'6
'!!7'7

~
E>IP:Jo "'ALT

ASI.,~~,

:lCHID

/GET F'lEL.0 DES!G~ATOP
/EXTRA~T l.4S~ DIGIT
/MOVE !O B!TS 6•e

I COF'
ASF'L.O
WORD
OCT WO
ASPNTR

/CREATE COP !NSTRUeT?ON
/CMA~CE AS ROUfINE
/Al.L.OW TTV INPUT
/GET NEW A~DRESS
/SET POt"lT~R
/RETURN TO AS ROUTINE

RTI.

HD
:lCA
JMS
'!'AD

DCA
JMP
:"'

SAV"1E:M1 ti!

0432

Pll2l10
11.1010
0347

5600
0466

511210
1700
0346

1000

i3 i 37

':' AJ

0007
0245
1115
0214
6201

0261
1335
?'346
1563
0H5
6211
400kl

6•Af'R•72

ASSEMBL.V L.OCATOR

CL.I. RAI.

MF'l,.:::l,

V011l3

1:~A~GE

AN'.)

52~4

0000
0000

DIALUI

PAGE

AS~4

PAGE 211J

ITMESE 2 C~NSTANTS ARE USEO BY
/ANOTHER ROUTINE C CMEM1 )

ERR:q WALT

0 I AL.10

10!!'0

1317

ClUi?:Ji,.'T I

10~1

301Ql

CRUTXT•1
10

SW0

,. A:l
JCA
TA :l ?

1011
1012

1410
?450
5716'
6046
62141
5206
7200
52G!!2
0334

11U4

0240

SNA
JMP
''\.S
TS•
JMP
Cl.A
JMP
334
240
240

10!\lJ

1004
10e!5

10a!6
1007

101'?1

U13
U15

0240

RUTXT 1

V0213

13i3?

6"APR•72

11r RUBOUT

/ECHO I

/DATA

~AS

"AGE 21

I~?UT

A'ID DEL.fr£

~o~o~

IN weR~

~OUTINf

lrl0RD•1

,•1

,.,

~~"'
\

...__ ____ , /J

.........

~
I

SW~

ERROq ~Al.T

0 IAl.1121

ViiH'13

6eAPR•72

13131

PACE 22

/SETUP T~ START THE rPP
1016
1J17
hlJ2(1

1021
1022
1"23
Ul24

~52'7

1ill25

H671

1366

11/JH

1Z31
1"32
U33
1034
112135

1036
11fJ!7
U4Ql
1041

OT•l
J"IS

TAO

1314
37731
1312
37'71'
1370

1026
1027

STl:"PI' 1

4775;

r:CA

TAO
;)CA
TAO
::JCA

TAO
CICA
OCA
TAO

37651

37641
17631

TAO
OCA
OCA
TAO
OCA
STA
OCA
OCA
JMP !

1365

310?
3106
111217
3244

72411l
3245
H53
5616

1ilJ44

011l00
01/JH

APT$AV1 ~
F'PPRUN1 0

Blit.ANCH,

1046
10'7
U'0

U!S1

10,2

10'3
10!54
Ul'5

10,6

10'7

1061/J
1061
1062

10"3

Hf/J1
221/Jl
ei1n

2224
22216
2431

11!530
17211l
2310
0314
2151.'11
~0210

<TEST
APT+1
CPXQJ
.APT+2
COPERNO
APT+3

( 31"1

.APT
APT+4
OCT WO

S~A

7450

U42
104J
U45

WORD

l!J

23211
2201
12!123
2224
22216
2431
21315
21530
17211l

23U
21314
215211
0rll 00

CAPT
UPT
STE:PSW
UPT
APUAV
f"PPRUN
PST AT
STF'PP

/SA
/RA

/AS
/R't

/R;
ITV

/CM
/EX
/OP
/SM
IC~

/EA

/ENTERED W!T~ A JM~
/Al.I.OW TTY INPUT
/GET ADDRE~S or tpp !N~tRUCTlONS
/SET rPc lN PROGqAM APT
/GET INDEX POlNT~R
/SET INDEX POlNT~R lN APT
/GET AOD~ESS or OPtRANO TABl.E
/SET BASE lDDRESS !N APT
/GET f'? El.D BtTS
/SET A~T r!El.D BITS
/Cl.EAR OP ADDRESS f N APT
/GET T!Y INPUT
ll s 1T l1J9J 01!1 ?
IVES • G£T AODR 0, PQO~R.AM APT
/SET APT A"ORESS
/Cl.EAR S!NCl.E STiT~ swtTCH
/SAVE APT lDORESS
/SET P~OCRAM RUN rr
/CLEAR STA,US WO~D
/EXIT

LOAD S!.ART STEP ADOR£S!
1.0AO RESET STEP AOORESS
AS!SEMBl.E
RUN TRACE MOOE
RUN F' UT MODE
TVPE CONTENTS or RfG!S'ER
1.0AD COMMAND REG!S,ER
rt PP EX lT
OPtRAND TA81.E
1.0AO
SET SHlf"T COUNT ANO r~AG
Cl.EAR STEP SW.l!CM
SET E:lC IT AOOF'E~S

SW:'!

1tl64

U65
Hlf!6

1067
1072'
1071

1072

1flJ 73

1074

1llJ 75
1076
1.017

11H

1U1
1U'2
11U
11U

111/)5
11H

11217
6555

%NtTll1

7610

5273
1361
476flJ'
0flJ\3flJ
11'2!7
3050

4564

6~61

72elflJ

1052
6553

'11357
3i147

'610

53U
4756'

1112

47551
4562

11!4

3il24

1117
11H

U24

11u

1644

11!5 1024
1116 f13!J7
1121

1122

'"12
?RIUJ

1123

"3!J7

1124
112,

1124

3li065

I NtT •

F'P'T
SKP Cl.l
JMP
TYP
JMS
STATER
l<EVCK
JMS
G£TAPT
AMSW
OCA
TAO
AMSW
H
ANO
PrPC
OCA
AMSW
TAO
RTR
FUR
ANO
C7
XeJADR
OCA
AMSW
TAO

•••

1126

7012

!HR

1127

7012
72112

FIT~

1131

~357
~054

1131!1

1132
1133

4556

11~4

4575

1135
11~6

r"'!_/
\"-..

3i141

3117

'3120

vei:s

6•APR•72

fJ i 31

PAGE 23

rpp PLOWS

CL.EAR
MST ATE
JMS
SKP Cl.A
JMP
,•4
TAO
ClNlT•1
ERR
JMS
ERROR
HU
UPT
TAO
PAPh1
OCA
ENTER
EN!NiTa f'MAlNT
Cl.A
TAO
COM REG
rPeOM
(7
ANO
PAPT
OCA
UF'T
TAO

4574

4762'

1U7
110

1111

OULU

ERROR MA!.T

/Cl.EAR rPP A~O PRO~RAM REGISTERS
/CME CK SH TES
/TlME ~TAT! ERROR
/T?ME ~TAT! GENERA,ER !S OK
/GET p~ roR ERROR TYPEOUT
STATE ERROR eooE
/GET ADDRESS or AP'
/SET APT COMPARE ADDRESS
/TYPE ENTER tN!TIA'E
/SET f'PP MA?NT MOO[

/GET ,PP COMMAND WOR~
/SET rPP COMMAND Rf G
/GET AOORESS or 1P'
/START F'PP
/FPP 010 NOT START
/rPP S!ART ERROR
/TYPE tRROR MtSSiGt
/WAlT !OR ~EYBOARO INPUT
/OUTBRK USING lDRS
/MB TO AMSW
/AND VIEl.D ens

''IEl.Q BITS OF' r~c
/VES•GET ffELD 8!T5
/YlEl.O B!TS er !ND~X P~!NTER
/GtT ru:1..o SITS

RTR

ANO
DCA

INC APT
CAPT
OCA
DCA

F'BASE
Cl<O
CKOP

/PIEl.O BITS CF P~ lODR
/INCREMENT AORS
/CMEC!< APT
/C~EAR CMEeK 0 rLAC
/Cl.EAR C~ECK OP ADOR f'LAG

~
I

:-pp Fi,.:JWS

~1'!7

4 563

~14~

4562
3025
'-544
:1024
4556
4575
4543
0021
1045
3042
57541

!141
!142

1143
i144
1145
1146
11•7
1150

11'1
1152
1154
1155
1156
1157

1160
1161
1162
1163
1164
1165
1166
1167
117Z
1171

'.:! l A I.. { 0

V::l<'l3

!\IT:!.,

i:-STEP
:;ET APT
:;CA

6• APR•?2

Al..SW

LOAQO

AREG
I NCA?T
CAPT
LOADOP
OREG

13137

PACE 24

/STEP TO SHTE 1
/OUTBRK US!NG AD~S
/MB TO ALSW
/A TO 0
/INC ADRS
/CHECK APT ADD~ESS
10 TO 0? AODR

'!'A 0
DCA

OPADR•1
PF"PCH

JM!'

IN ?T2

/OP ADDR TO rpc

/GO TO STATE 2

1211ll1J

02511J
7313
11!007
7H7
1065
60011J
11l347
0214

1112U
11l111l1
0213
4Ul1J

11!212

1112

11l2211J

1173
11H
1175
1176
11'7

411J 2lfll
0261
li'l262

0211

10i1
120k!

PAGE

-·---~-~~~=--=-=--'--=--::---=-=~

--ws

·w

...,-t- Jn

r:"pi:s

12!'0
12"'1

12"'2

OlAL10

V02l3

4563
4562

P.JIT21

>STE?

3066

12~3
12~4

4556
4575

12Z'5
12!"'6

4563
4562

12~7

3055

INP:51

1212'
1211
1212

4556
4556
4575

1213
1214
1215
1216
121?

4563
4562
3el35
4556
4575

!NlT41

12H
1221
1222
1223
1224

4563
4562
3024
4556

INIT51

1225
1226
1221
123el
1231
1232
1233

4563
062
3125
4544
21024
4547
0021

lNIT61

1234
1235

4541
5236

lNtN01

r
i
\
--;;;_

f'LOWS

4515

GET APT
DCA
INCAPT
CAPT
F"STEP
GETAPT
OCA
!NCAPT
l NC::APT
CAl'T
F"STEI'
GETAPT
OCA
INC APT
C:APT
F'STEP
GETAPT
DCA
INC APT
C:APT
F"STEP
GET APT
OCA
L.OAOO
ARE:G
LOADAC
ORfG
MOVE)(
JMP

6•APlh12

13137

X0ADR+1

/STE? !O STATE '
/OUT9RK USING AO~S
/MB TO X"' lDDR
/INC AORS
/CHECK APT ADDRESS

P84SE+1

/STEP TO STATE 3
/OUTBRK US!NG AORS
/MB TO PQJ lDOR
/l~C AORS
/lNC AORS
/C~EC::K APT AOORESS

ACEXP

/STEP !O STATE 4
/OUTBRK US!NG 1oqs
/SAVE ~AC £Xl'ONENT
/INC AORS
/CMEC:K APT

AMSW

/STEP !O STATE 5
/OUTBRK USING AORS
/MB TO AM$W
/lNC AORS
/C~ECK APT AOD~ESS

ALSW

PA~E

/STEP !O ShTt 6
/OUTS~K USING ADAS
/~9 TO Al.SW
IA TO 0

10 TO r4c ,RACTION

F'ETCM

/StT PRQGRIM tNorx RE:Gf STtRS
/RETURN TO CONTROi. PROGRAM

~
1

rP 0 ri.~~s
!236
1237

4564

JlAi.io:l
i:'E'l'C..i I

4573
4572

6•APRw72

V333
ENTER

1241
1242
1243
1244
1245
1246
1247

1c'41

:LRA
CL.RB
TAD

~317

A\JD

3041
6567
3071
311'16
3004

DCA

PF'PC

1250
1251
12-52
1253
12'4
1255
1256
1257
1260
1261
1262
1263
1264
1265
1266
1267
1270
1271
1272
12t3
1274
1275
1276
1277

4563
4511
30'32

124~

,.....

l.S~F'T

rEC:l'l:zi'

MQMSW
MQL,SW
MQEXT

OCA

PlR

027
TAO
ST ORB

ACE'.XP

AMBO
TAO

PIA

ANO
SNA

CUllJ

JMP

TAO
SZA

7640
53Qlil
47731

JMP
JMS

7240

STA

5172'

F'EC:H1 I

F'Ei::H1
Sti'ST3

/Cl.EAR MCI
/OUTBRK US!NG rpo
/STORE IN ~ROGRAM

!N~T REG
PROGRAM rPC
/SET A REG • 23
/OOUBL.E: WORD 2,
/SET B REG ' ,AC EXPONtNT
/STORE ~SW ANO EX?[NO SIGN
IA MINUS B TO 0 ~£~
/GET rPp lNSTRUCTiON
/EXTRACT BITS 3 ANe 4
/SPECIAi. lNSTRUCTiONt
/l~CREMENT

IYES•£ND 0, 'ETCM

/OOUBL.~ WOAD JNSt
/NO•GO TO !TAT[ 1
/SET S! ATE 3

F'l.AG1
F'EC:H34

/SET ,~AG1 roR DOU~L.E WORO INST,

F'STEP
TAD

PlR

/~ET l NSTRUCTl ON
/SAVE BIT rJR3 IN THE LiNK

PlR

/GET INSTRUCTION
/GET BlTS 5•11

Cl.I. RTL,
Cl.I. RTL,

13~4

72210

CL.A

1051
2'311

TAO

4530
4546
£'1024
4576
4546
"11321
4516

/TYPE ENTEq F'ETC~
/Cl.EAR A R;:G
/CL.EAR 8 REG
/Cl.EAR atTS 0~e ~F' F'PC
/BECAU~E TME HAROWiRE HAS
10Nt.Y 15 ens
/tERO F'PP SH!rT RE~lST~R
/tERC PROGRAM SHiP' ~ECIST~R
/Cl.EAR CARRY IN rr
/CLEAR MUL.T OR OiV F'L.AG

JMP

1305
13l'J6
132'7
1310
1311
1312
1313
1314
1315
1316
1317

7430
1'1377

( •Ul8

OCA

3073

4563

F'END

CL.A

PAGE 26

/STEP !O F'eTCM STATE 0

F'STEP
CL.RO
OCA
OCA
DCA

lNC:PC
L.OAOA

1051
7106
711'6

MOF'L.AG

GETPC

45621
3051
4553
•550
0100
1il35
•527
•577
111151
U76
700
51751

13~0

SHREG
CUYIN

DCA
OCA
DCA

3i133
3il34

131'.11
13m2
131'13

PF'PC

13137

ANO
StL.
ANO
STORA
L.OAOB
AREG
APBO
LOAOB
OREG
APBO

<117

/8 l T 3 • 1'

/VES•EXTqAeT B!T~ ~·11
/rlR 5•11 OR 9•11 TO AL.SW
/MOVE A TO B roR ADO (~+A TO 0)
/A PL.US ~
ti

TO 0 R~G

/A PL.US q

TO QR(r.

10 TO

rpr:s n.ows

OIAL10

V003

13?.rll

r:-t:Crt? I

F'STEP
LOAD A
OREG
LOA DB
P8A.SE
APBO
t.OAOOP
OREG

1321

1322
1323
1324
1325
1326
1327
1330
1331
1332
1333
1334
1335
1336
!331

134111
1341
1342
1343
1344
1345
1346
1341
135111
1351
1352

(!~21

4546
2lr/J54

4576
4543
Z021
1051
0370
764"
5350
6556
1110
5350
1051
0361
1366
74521
535111
1361
745111
5350

n66

7640

5353
4555

13!J3
1354

111151
11131111

1355
1356
1357

?650
57151
5?65'

1365
1366

1400

13~7

7111"0
"400

1370
1311
1312
1373
1314
1315
1376
1377

~;~
'~-

4563
455i

13137

PAOE 21

/STEP TO STATE 2

n TO A

/P2J AODR TO 9
/A PLIJ~ 9 TO 0
10 TO OP A~OR

PlR
(401/J
ANO
SlA. Cl.A
F'ECH24
JMP
F'PRST
SPA Cl.A
F'ECH24
JMP
TAO

/GET lNSTROCTlON
/EXTRA.CT BtT 3
/B!T 3 • U
/YES•lNC OF' A.DOR
/GET F'PP STA.TVS
/OOUBl.E PR£C!S!ON?
/VES•JNC 0- A.DOR
/GET INSTRUCTION
IEXTRA.~T OP CODE

ANO

PlR
PIH

TAO

C•Hlllfll

JMP

F'ECH24

/F'O 1V1
IYE'.S•lNC OP AOOR

JMP

F'ECH24

/F'MIJL.1
/YES•lNC Ofl AOOR

TAO

C•Hlllfll

TAO

SNA.
TAO
SNA

<•UH

YECH24' SU ca.A
JMFI
·• •2
INCOFI
TAO
PlR
( 41!10
ANO
SNA CL.A
F'ENO
JMP
JMP
F'ECH:S

511100

21117

1406
~344

7400
1533
0600
Cl'007
1400

6•APR•72

PA.GE

/VHUl.117
/NO•CO NOT INC o• lOOR
/lNC OP AOeR
/GET lNST~OCTlON
/EXTRACT an 3
1a n :s • 111t
/ENO 0~ F'tTCM
/NO • ~O TO STA.TE 3

,..-

~
I

r:-pi:i

14'110
14'11
14'212

fL.')WS
4563

14214
1405
1406
14t'l7
1410
1411
1412
1413

4561
7'377
3032
4555
3073
1051
['13'76
'7112
'7010
4530
4546

141'4

rl«'65

1415
1416
1417
14221

4563
1073

14~3

1421

1422
1423

1424
1425
14!6
1421
143G'J
1431
1432
1433
1434
1435
1436

1431
14411l

1441
1442
1443
1444
1445

?640

5223
4561
3033
3073

4516
4543
0G'J21
45'1
Ul51
0315
7:106
72106
71!106
7410
5241
4774 I

5254
7010
764rD
5246

'.'.l ! A;.iZ

V003

: - E:.., '3 I

::-STEP

6•APR1172

'.;E TOP
Al\l'.J

~CA
!~COP

~QMSlll

".'CA

F'l.AG1

rE:.;34 1 TA.,
ANO

F' 1R

(70

13137

PA(';E

;STEP TQ SUTE 3
;OUTBR~ US!NG OP A~D"
/EXTRACT BITS 9•11
/M99•1l TO MOMSW

!CL.EAR F'l,.Al'I 1
/GET INSTRVCTION
/EXTRACT BfTS ~-~

CL.I. RTR

RAR
STORA
l.OAOB
X0ADR

rE0,,4,

1-"STEP
TA!:l

1r?R 6•6 TO AL.SW • 0 TO AMSW
/X~ ADDR TO g

F'LAG1

Si!A Cl.A
JMP
1•3
GET OP

OCA
OCA

MQLSW

'°LAG1

;STEP TO STATE 4
/GET DDUBl.£ WORD F'~AC
/OOUBl.E wo~o l~STRUCTION 7
/YES • NO OUTBREAK
/OUTBRK US!NG OP AODR
/MB TO MOl.!W
/CL.EAR ooueL.E wo~o F'LAO

/A Pl.US B 'fQ 0
10 TO Op AOOR

F'tCH42 1 APBO

L.OAOOP

OREG

Cl.RO
HO
PlR
(110
ANO
CL.I. RTI.
RTL.
RTL.
Si!L. SN•
,+3
JMP
SE'tST5
JMS
FECH6
JMP
RAR

/0 TO 0 REC
/GET INSTRUCTION
/EXTRA~T Bf ts 5·~

Si!A Cl.A

/F'tR 5•8 • '"

1.7731

JMP
JMS

5211

JMP

SETST6
fEC:H7

/flR5 '

ANO r1R 6•e NE 07

/YES•SETUP FOR StAfE 6
/GO TO MAJOR STATE 6

/YES•SETUP F'OR MAJOR STATE 7
/GO TO STHE '1

~-=_o-_c:-::-_:_.=_::;_

""PP F'L.OWS

1446
1447

1450
1451
1452
1453
1454
1455
1456
1411J7
1460
1461
1462
1463
1464
1465
1466
1467
14'10

~.'

4563
4551
U51

0141..1~

V033

""EC~;,

.-STEP

6•APR•'2

PIR

AND

7650

SNA C:L,A

( 7"

5244

,JMP

F'EC:H5"2

4563
4557
3025
3024
4546
0024
4576
1052
7710
52'1
4546
0021
4516

F'EC:H6,

F'STEP
GETX
OCA
OCA
LOADS
AREG
APBO
TAO

SPA CL.A
JMP
LOA DB
OREG
APBO

PA~E

/STEP TO STATE S

INC:X

~37fi

13137

ALSW
AMSW

COMREG
, +4

/GET INSTRUCTION
BfTS 6•8
lf"IRh~ = 3?
/YES•SETUP F'OR STATE 7

/EXTRA~T

/STEP !O S'ATE 6
/OUTBRK USfN~ OP AOD~
/MB TO ALSW
I~ TO AMSW
/A TO B ro~ ADO cA•A TO 0)
/A PL.US B TO 0
/GET COMMAND R£GfS,E•
l'L.OATING ~OINT MOOET
!NO

/0 TO B
/A PL.U~ TO 0

""'

~
I

F'P" F'l.OWS

OIAl.H'l

v0213

1471
1472
1473
14'14
1475
1476
1477
1500
1501
15'!12
1503
15t114
1505'
15216
15l'l7
15U
1511
1512
1513
1514

rEeii1,

F"STC:F'
t.OADA
MQqEG

1515

1516
1517
152111
1521

1522
15U
1524
1525
1526

1527
15:5Ql
1531
1532
1533
1567

1570
1511
1572
1573
1514
1575
1576
1577

4S63

4;se
'."~32

4546

ORtG

1051

TAO

~312

ANO

7640
5312

Si!A C:L.A

JMP
GET PC
OCA
TAO
ANO

4560
3025
Ul51
~;sn

3024

OCA

4546

Ql021

QlllJ21

F'ECH;~,

F'EC:11;3, tNCOP
Jl'1P
F't:NO,

16Qllli
5Hl1J
701!1[11
11'20Z
6353
6335
2117[11
H7fll
0[1107
16'1'0

PAGE

TAD

SNA

JMP

PlR
!200

3Ql

/GET INSTROCTION
/EXTRACT B!T 4
/F'1R4•3,

F'ECM72
AL.SW
PIR
(7
A.MSW

( • 30 l!lel

F'ECH73
C•iHlll

SNA
JMP

F'ECH13

TAO

( •HH

SNA Cl.A

F'A~E

10 TO B

L.OAOB
ORtG
lNCPC
APBO
L.OAOOP
OREG
TAO
COMREG
SPA Cl.A
JMP
F'END
TAO
PI Ft
ANO
<7!H

1052
7710
5333
U51
0371
137il
74'il
5332
n11
745111
5332
U1"
76!SllJ
4555
57671

13137

/STEP !O STA TE 7
/MC TO A

1.0AOB

01/l21

4553
4576
4543

6•AF1 Re72

EXEC

/YES•GO TO STATE 7~2
/OUTBRK US!NG PPC
/MB TO Al.SW
/GET INSTRUCTION
/EXTRACT B!TS 9•i1
1r!R 9•11 TO A.MSW
/0 TO B
/l NC F'PC
/A Pl.U~ ~ 'fO 0
/0 TO OP A~OR

/GET C0M11AND RtG
10 I P', MOD! .,
/VES • ENO or PETC~
/GET INSTRUCTION
/EXTRA~T 01' COOE

l'DIVl

/VES•INC Olt A.DOR

/'MUI.?
/VES•lNC OJI ACOR
/F'MUl.Ml
/VES•lNC 01' ACOR
/GO TO EXEeUTE

F'?P F'LOwS

:!.o'."i

13~e

16~1

3073

16'.'12

3074
3075

16:"3
16l"4
16~5
16~6
16~?

16U
1611

1612
1613
1614

1615
1616
1617
16221
1621
1622

1623
1624

1625
1626

1627
1630
1631
1632
1633
163•

1635

1636

163'1

\,,,

VIC<l3

r xr:,

:;.A

6•APR•72

CC4
';CA
'.JC4
'.JCA

3177'
1051

OCA
HO
ANO

7640
57751

SH Cl.A

0376

1051
33?4

JMP
PROC!:S, TAO
ANI)

1373
?4211J
5237
7650
57'121
4564
4,63
060
3e2s
1951

TAO
SNI.

SPECi1
TIUP£01

TRAP11

n11
3el24

011121

1051
llJH7

1642

74'21

1643

'766 1

1644

7104

1645
1646
1647

111106

?420
5214

5PE:C21

/Cl.EAR F'l.A~S AND TEMP LOCATI~NS

/GET INSTRUCTION R~G
B!TS 3•4

/EXTRA~T

ARiTH

/ARITMMETie INSTRUCTIONS
/PROCESS SPEClll. INSTROCTlONS
/GET OP eoot

PIR
( 7Hel
C•211JH

ENTER
rsTtP

Al.SW

TAO
ANO

PlR

OCA

AMS~

/WMlCH SPEeIAI. F'ORMAT?
/SPECIAi. rORMAT 2
/,J)(N?

/YES

/ENTER TRAPPED l~SfRUCTlONS
/STEP TO STAT£ 1
/OUTBRK US!N~ rPe
/MB TO Al.SW
/GET lNSTROCTlON RtG
/EXTRACT 9!TS ••11
/'lR9•11 TO AMSW
IA TO 0
10 TO Op AfiDR

/lNC rPc

JMP
E:XiT
Cl.A Cl.L
TAO
PIA
ANO
SNA
JMP

PAOE 31

C6H

tNCPC

4553

1640

suesw

PlR

1.0AOO
AREG
l.OAOOP
OREG

4544

0024
4543
57101
73H

F'LAG1
F'l.AG2
F'l.AG3
T1
T2

JMP
SP!:C2
SNA Cl.A
Jf'41'
JXN

GtTPC
OCA

13137

/EXECUTE S~IP CHAI~

CLL.

~CA

3V3
3104

1641

:; I Ai..:!.Z

c7'7el

SPEC3

/GO TO EX 1'
/SPECIAi. PORMAT 2 !NST~UCTtONS

/GtT INSTRUCTIONS

/SPEC fMAT 2 O~ 3
/SPEC ~MAT 3

Cl.I. RAL

RTI.

SNL

JMP

/Ofl COOE 0 OR 1

SPEC2QJ

/OP COOE ~

( -)
-

~
1

rpp
1052

ri.~;.;s

136,
771Z

16'31
1652
1653
1654
1655
16'36
1657
1660
1661
1662
1663
1664
1665
1666
1661
167121
16'1
1672

21213
5266
15'1.!4
3104

1613

5504

5256
4525
702!rtl
57641
1051
7363
711i!
7012
7040
31J3

1362
3104
2104

'.:l IAl.irtl

vQli2J3

SPEC?1 1 HD

6•APR•12

13137

0 A~E

( •141?'0

SPA Cl.A
,+4
JM?
TRACE
'JQP
JMP
F'ETCI-!
TAO
PIR
AND
( 11rtJ
Cl.I. RAR
RTR
CMA
OCA
T1
TAD
CINS21•1
DCA
T2
?Si!
T2
I Si!
T1
JMP
.•2
T2
TAO I
DCA
T2
T2
JMI' !

/NOP?
/NO
/YES•TAAC%~G PROr.RAM?
/VES•TYPE NOi'
/GO TO PE'.TeH
/GET INSTRUCTION

/EXTRA~T

E~TENSION

/RlGf.IT JUSTIF'V
/NEGATE
/GET ADDRESS or !NST?UeT!ON TAel.E
1r?ND tNSTRUCT!ON
/GET INSTRQCTION A~ORE5S

6•APR•72

DlAL.10

1674
1675

SPEC20 1 Cl..l. RTR
CITR
RTR
CIA
I AC:
SNA
F'ALN
JMP
I AC:
SNA
F' Ai'x
JMI'
!AC

1676

1¢77

7112
7 012
7012
7~41

17~0

1211211

1n1
171212
17"3
171214

1450

17t;J,5

17"6
17~'1

1710
1711
1712
1713
1714
1715
1716
1717
17'4
1115

17,6
17'7
17621
1761
1762
1763

17'4
1765
1766
1761
11,S
1711
1712

1713
1774
1715
1776
171'1

.~
\

Vl/J03

F'PP F'L.OWS

5761'
71i101
?45"

5760'
7001
7450
57571

1356
745fJ
57551
711101

1650
57'41
5253

SNA
JMP
TAO

SNA

12111105

4434
4265

4036
'1217
llJ1'10
1236
64H
2H0
77't0

2427
0H 1
44'3
6000

71H0
2030

1?1612!1/J

?. 0l1J"

PAGE

PA~E

/ALIGN INSTRUCTION

/4TX INSTRUCTION
/XTA INSTRUCTION

JMP
F'LOX
JAC
SNA CL.•
AOOX
JMP
SP!:C21•3
JMP

5212
4010

7112

F'XTA

13131

IL.OX INSTRUCTION
/ADOX lNSTAUCT!ON
/NOP

~
I

l'ACE 3•

F'L.-,WS

~I AL.i~

V~2'3

6• APl\w7Z

13137

22'."'0

H'l'51

SPE:3 1

,. A'.)

PI~

2.?'"1

':377

AN'.)

7 4'ii21

CIA
SNA
JMP

/SPECIAi. FORMAT ~
/EXTRACT B!TS 9wi1
/NEGATE

EXiT

/EX IT

F'PAUSE

/PAuSE

F'CL.A

;FCL.A

rNEG

/F'NEG

F'NORM

/F'NORM

F'STF'

/START F'

F'Si'O

/START 0
/JAC

i:"pi:t

2Z~2
r.z~3

'7041

2ii:l\114

~7161

2121~5

712131
745121

2;/!06

2z:n
2121Ul
212111

2U2
2013
2014
2"15
2016
2017
2020
2021
2022
2023
2024
2025
2026
202'1

JMP

7001

UC:

7450
5714 I

SNA

JMP
?AC
SNA
JMP
?AC
5NA
JMP
?AC:
SNA
JMP
?AC:
SNA
JMP
JMP

?001
'1'450

57731
?001
7450

5712'

7001

745i)

57711
7001
'450
57711JI

57671

1051

2032

7U6
7006
7040

2033
20H
2035
2036
2037
2040
2041
211142
2043
20'4
2045
212146

SNA

5775'

2 03"

2031

!AC

3Ul3
1052

7004
7206
711106
1365
311214

2104
2103

212147

5244
15t"4

22150
f>2l51

31214
!'5!214

AR1TM1

JAC

PlR
AND
c7l!Jlll0
C:L.I. RT~
RTI.
C:MA
T1
OCA
TAO
C:OMREG
RAI.
C:l.A RTI.
RTI.
TAO
C lNSh1
T2
OCA
T2
ISl
IS!
T1
·... 2
JMP
T2
TAO 1
T2
OCA
T2
JMP t
TAO

/GET lNSTRQCTlON
/EXTRA~T QP COOE
/RlGMT JlJS'fIF'V
/NEGATE·H
/SAVE MtNU! OP coo~
/GET COMMAND R~G
/O~P, BIT 'O L.!N~
/MOVE O,P~ BtT TO lee
/GET ADOR OF' r~oiT!NC PT~
/OR O~P, INSTRUCTION TlBLE
/lNC AOOR
/lNC lNSTRQCTlON
/NOT TMIS !NS••TRV AGA!N
/GET AOOR or INST
/GO TO INSTRUCTION

r-pr;i F'L.~~S

2J52

4:;64

22'53

4563

2~54

11Zi52
7720
4540
4550

2;,55

2256
2~57

2i!l60
2~61
2~62

2063
2!!164
2065

2066
2"67
2070
2071
2072
22173
2074

2015
20.,6
20n
211'10

2U1
2U2

2U3

21'!4
2U5
211!16
2UJ7
2110

2111
2112
2113
2114
2115

~.
\

0021.

4572
1023
3112.13
U2l
7700

1e4"

3073
4576

1103

7710
4'54
Ul73
7651
5322
Ul21
7710
!S304
4U2
!S331

1052
7700

5316

U53
8364

3'53
700
3172
5762'

DIAL.12'

v003

DEP,
:::EP111

F'STEP

6•APR•12

ENTE~

TAO
COMREG
SMA Cl.A
NORM
L.OAOA
OREG
Cl.RB
0£)(T
TAO
Tl
OCA
TAO
OMSW
SMA Cl.A
CMA
OCA
f."1.AG1
APBO
T1
TAO
SPA Cl.A
?NCOR
TAO
fl.AG1
SNA Cl.A
·, ...
'JMP
TAO
OMSW
SPA Cl.A
JMP
·, ·~
INCST
JMP
CKMEM
COM REG
TAO

SMA Cl.A
JMP

.... ;;z

TAO

PS TAT

TAO
OCA

(21H
PSTAT

ANO

CMA
OCA

JMP

( 757'

EXtTSW
DEPEND

PUE 35

13137

/TVPE ENTE~ DEPOSIT
/STEP ro STATEi1
/~ET COMMA~D RrG
1rtxED PNT N~S~7
!CHECK ANO NORMAL!!£
10 TO A
/HRO !O B

/SAVE 0 EXT F'OR POUNOING
/CHECK F'OR OVE~FLOW7
/NO • ~I.EAR rL.AG
/YES • SE'.T F'LAe
/STORE fl.AO
/GET EXT ~fG roR ROUNO!NG
/CMECI< CARAY !N
/INCRE1'1ENT 0 RfG
/CHECK FOR OVE"1LO~

/OVERf~OW?

/NO • BYPASS 0 CHEeK
/YES • CHECK OVERf~OW
/OVERVl.OW

/NO OV~RF'L."W
/BVPAS~

MAJOR STATE i2
/GET CCIMMA~D REG
' ' l XEO PT', NOS~ 7
/NO
/GtT S!ATUS WO"D

JSAVE OTMt,_ eus

/SET fRAC OVER,LOW
/SE:T E><tT swUeH

/ENO O~ OEllOSJT

;--

r~
.
.

F'PP F'l..OwS

::il•i.10

V0~3

4563
1"21
7111i:'J
3027
1022
711J1Z
3030
4544
2!027
2071

'.iE"12 I

F'STEP

2116
2117

2120
21?1
2122
2123
2124
2125
2126
2121
2130
21'.H
2132
213!

7H0

4526

5-ns
5761*

2135

4563
1022
3H7
4565
5761'

2137
21421
2141
2161
2162
216"3

2164
2165
2166
216·7

2110
2111
2112
2173
2174
2175
2116

2177

"'AO
:1,.1,,
OC4
T.A:l

6•APR•72

13137

OMSIN

/STEP TQ STATE 12
/12•1 ANO 12•2sS~IF'T
/0 TC B0

BL.SW

BRE:G

ls i!

PA~E

BMSW
OL.SW

1,.0400

SHREG

/B TO 0

/INC SHrT eNTR

NQFI

CKME:V. I

DEP131

/RESUL.!S TO ~E~OQV;

T0"1EM
JMP
lNCST
JMP

DEP14

/NO • lNCR!MENT MA~OR STA't
/BYPASS ~TATE l3

F'STEP
TAO

01.SW

/STEP !O STATE 13
/OLSW !O M!MORV

OCA

L.MEM

OE COP
JMP'

22011J
2415
11r2 QlllJ
7577

'1'7

71JH

51H
5070

'5114
"'63
511J76
51!'0
5126
2427
011!J7
220111

RAR

!:!AR
OCA

<4"552

2134
2136

PAGE

,•3

DEP14

/GO TO STATE 14

1 F'PF'

r:..ows

22'.'Z

4563

22?1

4526
'41"

22~2

2273

22:!4
222'5
2216
22~7

221Z
2211
2212
2213
2214
2215
2216
2217
2220
2221
2222
2223
2224
2225
2226
222'1
2230
2231
2232
2233
2234
22:55
2236
2237
224111
2241
2242
2243
2244
2245
2246

~'\
\

5211
1021
3206
4567
4565
5213
4547
21e21
1033

4527
4531
'1410
'1240
30'15
1H4
7650
524"
U135
4530
1f51
3317
13'16
7640
5235
4517
'1410
45'16
4546
11l!a21
111111

4530
10'15
'1650
5247
45?1
5250

'.:JA1.1~

V~H1!3

~E 0 l41

r-sTEP
"'0"1E1-1
SKP
JMP
TAO

OCA

6•iP!h72

,•6
OMSW
MMEM

MQt,;SW

JMP
TAO

OEP144
ACE:XP

TAO

Pl A
C'1H0
C•30H

•J

F'LAGJ
MOF'L.AG
TAD
SNA Cl.A

AND

TAO
SH Cl.A

F'A~E

/STEP TO STATE 14
tRESUL.fS TO MEMORY?
/YES

CMEMF'
DECOF'
JMP
l.OAOAC
OREG
TAO
ST ORB
SOEZ
SKP
STA
DCA

STORA

13137

JMP
,•3
AMBO
SKP
APBO
l.OAOB
OREG
SHREG
DEP144, '!'AO
STORA
TAO
F'L. AG 3
SNA Cl.A
ACNEi!
JMP
CL.RO
ACNEi!•1
JMP

/NO

/OMSill !O M!:MORY

/CHECK ME~ORY rRiC'l~N
/OEC OP AO~R
/BYPAS~ 0 'O f'AC
10 TO F'AC PRACTlON
/MQL,SW TO BL.SW
/SIGN EXTENO TO BMSW
10 • " ?
/NO
/YES • SET ZERO TQ
/F'AC J'F'
/GET MYL.T OR O!V r~A~
/MUl.T OR O!V7
/NO • ~o To SflTt !4·4
1r•c EXP To AL.SW
/SIGN ~XTtNO TO AM9W
/GET XNSTAUCTJON AtG
/EXTRACT oia coee::

/OIVIOE?

/NO
/VES • A H!NUS 8 TO O
/A PL.US e 'O 0
10 TO B

/SM;T CNTR TO AL.SW
/SIGN EXTEND TO 4HSW
/lERO !O r1c rr SE' '
/NO AOC A lNO 8
/YES • a TO O
/00 NO! AOO A P~OS 8

1 ;-pp

n.ows

2247
225121

HJ52

4576

2254

77121121
5255
3072
57751

2255
2256

4563
4526

2251
2252
2253

225?

7410

2260
2261
2262
2263
2264
2265
2266
226?
22.7el
2271

5265
Ul22

22?!5

,., 0llJ

22?6

57141
4576
1021
1700
5315
1l'IJ 5 3
0373
1372
3053
U52
., llJ0 4

23"6
231!'1
231"
2311
2312
2313

2314
2315
2316
23'2
2373
2374
2375
2376
2377

JMP

DCA
JMP

DEP151

OCA
CME ME
JMP

13137

COMREG

PLUS 9 TO 0
/GET COMMAND REG
trtXED PNT~ N05,?

OEP15

/NO

EXITSW
DE?END

,•5

CL.SW
EMEM

,•3

OMSW

JMP
APBO

OPOS

ro STATE 15

IRESUi.!S TO MEMORY'
/YES
/NO • BYPASS INBRK

IOI.SW ro M!'.M

/CMEC:K MEMORY ~XPONENT
IOI.SW !O nc EltP
/0 TO B
/ 421 llH!l T0 A

115 OL.! Ill

/NO
/YES • A P~US e TO 0

TAO

OMSW

JMP

END15

/NO • 01(

TAO

PShT

/GET STATUS WOAD

ANO

(773?
( 41!1

/SET UNOEFO'L.OW

SMA Cl.A

TAD

OCA
TAO

RAI.

PST AT
COMREG

CMA
DCA
CMA
OCA
JMP

ns o L.T a
/SAVE OTMER B 1'S

/GET COMMAND RfG}S'ER

/TRAP ON UNOe:RrL.oW 1
/NO • ~ET !GNORE UNOrRrLOW rr

SMA Cl.A

EN0151

3t!

/Ci.EAR EXIT SW!TCM
/END or OEllOSlT
/STEP

TAO

SMA Ci.A

PA~E

OL.SW
TAO
ACE:XP
OCA
L.OADB
OREG
Ci.A STL. RAR
AL.SW
DCA
DCA
AMSW

3112
7040

,,.,,,

F'STEF'
TOM EM
SKF
JMP
TAD

7700
711140

3072

6•APR•72

APBO

SMA CL.A

4546
02121
3024
Ul21

V011J3

.,. Ar:)

3035

2273
2274

231214
23n

ACNE~,

5267
1"22

133111
302'

2303

D1Al.{121

10'0!5
451"0

22'72

221?
23H
231'!!1
23U

IGNF'L

EXtTSW
DEPEND

/SET OR CL.,AR rx!T SWI'c~
/ENO Of. Otll'OSIT

'1040
7737
2400
2415

5000
701210
241210

F'AGE

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

F'PP F'l.OWS

'.)ZA;.U

24110
2401

OP~S 1

24QJ2

24"'3

2U4

24QJ5
2406
240l7
2410

2411

2412

2413
2414
241'
2416
2411
2420
2421

2422
2423
2424

4577

4531
76U
5207
1fll21

11Qlf6

5214
1053

03'17
13'16
3053
'1040

30'12
6556
n15
'1041
1H3
'1648
41741

1112

7640
242' 5227
2d6 "!1?31

V0QJ3

6wAPRw72

/A MIN~S B TO 0

AMBO

son

SKP Cl.A
.+4
JMP
TAD
OMSW
SMA CL.A
,...
JMP
PSTAT
TAO
(763'1
ANO
TAO
<1H
PShT
OCA
CMA
OCA
EXITSW
CEPENO, F'PRST
( 7'QI
ANO
CIA
TAD
PS TAT

SU Cf.A

JMS

TAO
SU Cl.A

JMP
JMP

PAt;E 39

13137

STERR
EXITSW

/ZS 0 1.EO QJ
/NO
/YES • srT OVERFLOW
/SAVE Al.L ~ITS E~C~PT UNOERF'L.OW
/SET OR 01.~AA EXi1 SWJ,CH
/REAO F'PP !TATUS WOR~
/EXTRAQT OVERfLOW BITS
/COMPA~E

W!TM PROGRAM STATUS

/STATU~ ERRO~

EXiT
F'ETCM

I
;I
~

\
)

.,.......,,

~
I

rpp F'LijWS

01Al.1Z

6•APR•12

V02!3

2427

4564

EXIT,

E:~TER

? 4:5121

4563

EXIT2'1

~STEP

?411
2412

1112

;:i4i3
2434

JMP

'.H12

:JC A

24'36
2437
2440

~036

2441

3037

2442

5254
300,
45'5
4563
301?!6
3007

2443
2444
2445
2446
2447
2450
24'1
t.'41J2
24'3
24,4
24,5
2456

4563
4565
4565
4525
2347

2467

45'75

2410
2411

4563

2412
2473

'1'372

?4?4
t'415
2416
'2417

'5277
1036

7640
4771'
4566
4575

, •5

0 CA

ACE:XP
ACMSW
ACl.SW

JMF'

vn:R

JMP

rETCJ.f

DCA
TAO

F'l.AG1
COM REG

ANO
JMP
HD
JMS
DE CAPT
CAPT

E)(lT11

( 20

·• ·:s

ACl.SW

EX COM

F'STEP
TAD
C0"1R£G
(20
ANO
S:A C:l.A
, +J
JMP
TAO
ACMSW
EXC:OM
JMS
DE CAPT

CAPT

/ANSWER STORED I~ ,Ae?
/NO • 11! TO i"IEM
/YES • 0 TO F'A~

OP AODRfS~
/STEP !O STATE 1

/INC~EMENT

/INCREMENT OP AOOR~SS
/STEP !O STATE 2
/DECREMENT THE o~ •ooRtSS
/OECREl"IENT THE OP AODR~SS
/TRACING PROGRAM?
/UNOER~~ow ERROR • GO To ,ETCH

OE COP
llECOP
TOF'E:CH1 TRACE

Si!A Cl.l

!RESET-UND~RF'LOW F'LAG

MM£M
l,.M!:M

F'STEP

EXSAV1

/GET lGNOR~ TRAP F'F'
/UNOERF'LOW IGNOR~D 7
/NO • SAVE APT

TOr:'EC:H

EM!:M

I NC:OF'

F'STEP
OCA
OCA
INC:OP

U52
0372
7640
5266
1037
47711
4566

11ll5 2

EXSAV
IGNF'I.

JMP

ncA

57731
30'73

Cl.A

'.)CA
OCA

PAt;E 41?!

/STEP ,.0 S'!' ATE J

IGNFI.

TO"IEt-t

4555

2457
2460
2461
2462
24U
2464
2465
2466

?5eii0

~NA

7650
5257
4526
5243
3035

24,5

"'AD

13137

/C~EAR

ERROR r~AC

/SAVE F'AC:l
/NO
/YES • COM~ARE LSW
/OEC, AORS
/COMPARE A'T AOORE~S

/STEP TO STA'E 1
/SAVE F'AC?
/NO
/YES
/COMPARE M~W
/DE'.C I AORS
/CHECK APT ADDRE~S

F'PP FLOWS

!:llAl.10

VU3

4563

EX?T2,

t'STEP

25U
25n

25"3
25"4
250!5
2506
25:i!7
25Ul
2511
2512
25U
251'4
251'

2516

2517
2521

~521

2522
25U

1052
53UJ

UJ35
47741
4;66
4575

EX!T31

Ul52
IH'10
'1640

.,,.,
4J66

EXIT41

COMREG
C2H

JHS
0£CAPT

£XC0'4

7641

18'5

5U2

JHP

2533

.,,,

OE CAPT
CAPT

JMS

F'STEP

253•

4563

2535
2536

11'2
fl:S'6

TAD
ANO

25~7

760

SH CL•

111166

TAO

2540
2541
2542
2543
2544
2545
~566

'5;'543

47'11'
4566

4575
57661

2567

26Qlfll
l'lfll4fll

?511!!

l:'l 2etfll

2511

JHP

JMS

OE CAPT
CAPT
JMP

~ •:S

P8iSt•i
EX COM

1uv£ Pt Aeoru
/NO

/VES • COHJARt Pi iDO~

/DEC, AORS

/CMECK APT ADDRESS

/STtP !O $UTE !5
COMREG

·, •S

XIUOR•i
EXCOM
£X!T6

/S4VE XI •eoR£9S;
/NO

/VU

/COMPARE xm ADeRtSS
IOtC, ADRS
/CMECK 4PT ADDRESS
/GO TO STHE 6

2627

2572

~2120

2513
'-514
?515

12l6
1325

i'576
?5'17

?-100

()

/SAVE OP A"DR?
/NO

/STEP !O STATE 4

2'26
25f'7

utn.

/YES • COMl'ARE EXPON~N'
/DEC ADR5
/COMPARE A~T AODRESS

F'STEP

TAO
COMR[G
( 40J
ANO
SU C:l.l

4'66

/SAVE FAC7
/NO

CAPT

1152
1!1367

4711'

/V£S • COM,ARE or lDOR
/DEC, ADRS
/CM£CK APT AOOfttSS

2'24
2525

25H
25U.
2532

!'ACE

/STEP !O $TATE 3

TAO
ANO

SZA Cl.A
JMP
t •3
TAO
OPAOR•1

!S:S21
1'45
4771'

4563

f'STEP

13!37

/STEP TO MAJOR STATE 2
COMREG
(20

AND
SH CLA
JMP
,•3
TAO
AC EXP
EX COM
JMS
OECAPT
CAPT

~372

7640

4563

6•APR•72

"1?40

7637
26(110

AQE

;--~,

~
1 rp? r1..01o1s
261-'11l

45~3

26:'1
?6?,2
26::'!3

1Z42
4227
4566
4575

2634
26~5

26Pl6
26n
'-610
2611
2612
2613
2614
2615

2616
2617
262111
2621
2622
2623
2624
2625
2626
2627
2630
2631
2632
2633
2634
2635
26~6

2637
2640
2641
2642
2643
2644
2645
2646
2647

4563
4177;
4227
6557

•STEP
TAD
JMS
!JECAPT
CAPT

HPC•l
EXCOM

rSTEP
JMS
JMS

A?TPAC
EX COM

/STE" !O SUTE 7
/PACK APT rtELO ~I'S
/COMPARE P!ELD B!'~

!-!ALT
( 7411J

/F'l.AG IS NOT S~T
/GET OVERVLOW STATOS

EX!T11

Cl4
TAO
?STAT
SU Cl.A

10'4'1

7640
4715'
1073
7650
5225
47141
2655

JMS
TAO

IZI

47131
5772'

111"

?'650
13247
7040
3073
'5627

STLRR
F'l.AG1

SNA Cl.A
·, •4
JMP
TYP
JMS
AP TERR

21Hl1J

JMS
JMP
EXCOMa

SEi'RET
START

OCA
EXWO
PA1'-'i'
TAO
Cl.I. IUI.
RT\.
TAO
CCOF'
OCA

cor
TAO t
ecr

/STEP TO STATE 6

F'PlST

ERROR
ANO

1"5'3

1047
711214
7011l6
1371
3236
6201
1450
6201
72141

Aae: 42

EX! HI

0376

e! 011l 11l

13137

Vl1J1'3

'4e12

311"

6•APR•72

'.J 1A1.,111J

,+i

PAPT•1
llJG!I

/COMPARE f'llC
/OEC I AO!(S
/C~ECK APT AODRESS

/C~ECK

F'L4~

/STATUS ERROR
/CMECK-ERROR f'LA~
/WAS APT OtTA STORED CORRECTLY ?
/YES
/NO • !YPE ERROR MESSA~E
/SET RtENT!R AOOR£SS
/GO TO CONTROi. PROCRAM
/SAVE COMPARE WORD
/GET A~T rttl.D B!T!
/CREATE F'PP CD'
/CMANGE TO F'PP r!e:~o
/GET APT INrrl
/PROGRAM '!ELD

Cl A

EXWO
TAO
SNA CL.A
JMFI

, •3

CMA
OCA
JMP t

F'l.AG1
EX COM

/SET ERROR rLA~
/RE:TURN

-·----- .

~~~-~=

i:-pl' F'L.OWS

4564

DPAJD1

4563
4 561

::JPA:JD~,

2655
2656
26,.,
2660
2661

2662
2663
2664
266'
2666

~027

!:lCA

4555
4550
2'036

JNC:OP
L.OAOA
ACM SW

4563
4561
3030
1051
213'10
'1650

OPAD!:l1 1 f"STEP
G(TOP
OCA
TAO

FA~E

hAPR11?2

1313'1

BMSw

/O~P, ADD AND sue
/STEP !O STATE 0
/OUTBRK USfNG OP ADOR
/MB TO BMSW

/INC or A01'R

!F'AC F'RAC TO A

Bl.SW
PU!

ANO
C2Utll
SNA Cl.!
,+3
JMP
AMBO

/STEP !O STATE 1
/OUTBRK USING OP AOD~
/MB TO Bl.SW
/SUBTRACTlONf
/NO • ~O TO ADO
/A MlNldS S TO 0

,,,,
,,.,,
U.il
.,,.,

TAO

ov;L.

IA Pl.U~ 9 TO 0
/0Vf;R11.,0W1

SU Cl.A
JHl'

/VES

5'167 I

JMP

OPOVF'L

26'14

52'5

2615
2-6J/6
26'7
21H
27131

1'153
0;$66

OPOV,L.1 TAO

PS'l'A T

2764

242'1

2667
26'11/J
2611
26'2
26'3

2765

5210

'1410

U6'
3i1'3
57641

75;7

2767
n10
21'1

211.152
2Hl/J
621?!1

2712

V'l230

~
)

Sl(P
AP~O

OEFt

.,,.,.,

AND

(

TAO

(2H

OCA

PS1' AT

JMP

/TO OEF'OS I'

EXIT

/SET ARtTM F'LOW

/TO EXIT

0200

2766

?7'3
2714
?.715
2716
2777

ENTER
F'STEP
GET OP

?652'

2654

V003

26~1

2652
2653

DIAL.Hi

7254
13U
7325
et740
6104
3000

PAGE

~
I

l='P!' F"i..'.'HIS
30"'0
ill

"1: '1

~09.l2
30~3

3i3U
3;3"5
30~6

302!7
3010

JI AL.iZ

V0'113

4564

P>AQJ,

E~TE~

4563
4561
4527
1030
3033
4555
U35

i:- A JD :'11

F"STEP

nc A

INC:OP

TAD

3011

4577

3012
3i113
3014
3015
3016
30i7

1021

TAD

77et11J

STA

3073
1022

TAO

3020

3071

OCA

3021

4546

3022

0021

31323

1101
4530

3 024

3025

4576

/S'l'EP

Bl.SW
~QLSW

ACEXP

OMSW
SHA C:LA
SHF'OP
JMP

5213
'7240

DCA

F'LAG1
01.SW
SHREG

LOADB
ORE:G
TAO

STORA
APeo

PAGE 44

!O STATE 0

/OUTBRK US!NG OP AbO~
/M8 TO aLSW Sl~N TO ~M5W

STOR9

TAO

13137

/AJD • SUB OF" F',P, Nos:

r.ETOP

STORA
AMBO

45~0

6·APRe72

027•1

/M3 TO MO 1.,SW
/INC OP AOt:lR
/GET F"AC: E~PONEN'
/F"AC EXP T~ ALSW S!GN TO AMSW
IA MIN~S B TO 0
/IS 0 LESS THAN ~
1~0 • SHirT OP£RANO PATH
/SHtF'T F'AC F'RAC:TiON PATH

/SET SHrT ,AC: Fr
10 TO ~HF'T CNTR
10 TO 8

1•27 TO AL.SW
/A PLU~ B TO 0

~~-=~ ~=~~-lZ"·'''··-------------------

e-pr:t F"L.CWS

OlAL.ifll

VIUJ

4563
4561

F'AOD11

F'STEP
GE TOP
JMS
C:MA
OCA
!NCOP

3~26

3'1'7
'.'~3tl

Ja:H

3032
3033
3034

:5Z35

47771

7040
3024

4555
1021

30l6

711.140

'3n1

3el'4

3041
. 3042
3943

4563
4561
47'71
5247
312'
52'5

:5040

3eJ'4

3845
31'6
3141
!tSI

4572

11'1

3125

31,1 1376
3192 !826
3813 UZI

31'4
38'5
31!6
31'7
3169
3861
3162
3163
3164
311165
3H6
3a67
3070
3971
3072

3176

1."A0021

F'STEP
CE TOP
JMS
JHP

1'1127

.•3

,.,

Al.SW

JMP

Ut>
OCA
APBO
L.OAOB

.JMP

51151

CK SUB

CMA
DCA
TAO
OCA

5267

31U
4544

AMSW

AL.SW

rACF'R

113'

CK SUB

/STEP TO STATE 1
/OUTBRK USINC OP AbO~
/SUBTRACTION?
/YES • COM'L.1MENT ~8
/MB TO A~SW
/INC OP AOOR

OCA

''"
4546
09!6
4531

13137

TAO
OMSW
SPA CL.A
CMA
f"L.AG2
OCA
CL.RB

77U

sou

TAD
OCA
L.OAOO
BR&:G
JHI'

/STEP !O STATE 2
/OUTBRK USf NC OP AOC•
/SUBTRACT JON?
/V£S • NOT MS TO ALSW
/NO • MB TO Al.SW

fHH

c4ffl

11 TO ACRY lN

AElCT

CARVIN

••••
ACEXP

MQLSW

F'AOEND

TAO
f'l.AG2
SU CL.A

51741

JMP

JHP

10 e TO OVfRSH'T rr
10 TO B

/COMPLIMENT Mi
/NOT MB TO ALSW
/COMPLIMENT I 'O A!XT

U'4
7640

,,,,,

PACE 45

6•APR•'2

F'AO£ND
f"AOD3

IA PL.U~ B TO 0 e•1 1' ADDtTlO~
/f"AC 'RAC 'O 9
10 • 11 t

/NO

/YES •Od

/F'AC tXP To MQLSW
IB TO ~
/GO ro DEl'eStT

/OVERS~l'T

rt ~ i 7

/V£5 • GO TO DEPOSf T
/NO • qo TO !T&Tt 3

I
I

()

rp;:i

•1.C~S

3J73
3Z'4
3015

U22
7040

32".'6

4546

32'7
31U

11211

31~1

3~71

2'021

4530

3U2
31e'3

20'71

31~4

7000

3125

4563
4561
3K'l27
4555
1021

3126
3111l7
3110
3111
3112
3113

3114
3115
3116
3117
lU"
3121

4~77

77U

1040
3014
4550
flil36

3122

45'4
0024
4531
5;527

3123

7040

31~4

3B75

3125
3U6
3U7
3131

3131
3132
31U
3134
31'3

4513
5334
1035
3033
10'4

7640
'5?75'

57731

::l l AL,i~

SJ.H"Qp I

V003

6•APFh'2

13137

TAO

OL.SW

/STATE 0 SHIF'T OPE~AND

SHREG

/0 COMPL.!M~NT TO SMF'T tNTR
10 TO B

CMA

OCA
L.0409
OREG
TAO

STORA
AMBO
IS i!
NOP

02'7+1
SHREG

r 400011 rSTEP
GET OP
OCA

BMSW

tNCOI'
TAO

OMSW

SPA CL.•
C:MA

oc•

l.OAOA
rACF'R
1..0AOO
AR£G
soe:z

JMP

CMA
OCA
Cl.RA
JHP
F'AOlll14 1 TAO
OCA
TAO

F'l..AG2

PA~E

1•27 TO AL.SW
/A H!N~S B TO Ill
/INC SM,T eouNTER
/STEP TO STATE 1 (!HF'T OF PATH'
/0UT6RK US!NG OP AOORESS
/MB TO BMSW
/INC OP AOOR
10 0 TO OV~RsHrT rt
1rAC rRAC TO A

IA TO 0
/Q

F' A00U

/NO

0 1

/YES

r!.AG3

/1 TO ADO IERO rr
/Z TO A

·• •6

AC EXP
MQl,;SW
F'l.AG2

SlA 01.A
JMP
F'AOEND
r ACOlll2
JMP

/F'AC EXP TO MQLSW
/OVERSHF'T l"F'm17
/YES • Gn TO O£POS!T
/NO • GO TO S'lTr 2

3200

31'4

3213

:°'!1 '5
31"6
31 "17

3252

74\?lrD
~541

~2:00

PAGE:

-------------~~--=

- --

-=-=-~-xas--

1 F'PP n.ows

32l1'0
32"1
32P.!2
32m3
3204
3205

321'16
32~7

3210
3211
3212
3213
3214
3215
3216
3217
3220
3221
3222
3223
3224
3225
3226
3227
3231
3231
32U
3233
3234
323,
32:56
3237
324111
3241
3242
324'3

3244
3245
32'6
3247
32!50
3251
32152
3253
32'54
3255
321J6

4563
4561
3030
1"75

o IAl.10

F'A0;)k!f2 1 F"STEP
GETOF'
OCA

4577
5252
f'A0031

!5230

JMP
AM90
JMP

UH
H7'6

OCA

'225
4'11

TAO

4576

4PBO
TAO

1691
!S2'2

SNA Cl..A

1111

JMP

uu
7111
11/J., 7

TAO

Cl..I. RAllt

TAO

oc•

32127

1022
7010
311130

~071

111751

/STEP TO STATE 2
US!NC OP A00R
/MB TO Bl.SW

'l.iG1

/400 i~RO 'f'ii1
/NO • ~0 TO STATE 3

/9 TO 0
/SUBTRACTION?
/VtS • A M!NUS B TO 0
/GO TO OEPOStT
/STEP !O STATE 3

/lf' SM~T CNTR NE l~Swt'T B

/SUBTRACTION?
/YES • CMECK SWF'T fAe rr
/NO • ADO 1 AN~ B
/SMF'T n" S!Tt

,+3

/NO • •1 TO CARRV !N
/YES • A M!NUS B TO O

CARVIN

/1 TO CARRVING
IA Pl.U! B f O 0

·,.,
t4181

ov;1.

rAOENO
OMSW
CAFIOU'I'

1rFIAC OV£R,L.0Wt

/NO • ~o To 0£,0!lf
I

/SET SIGN UT

10 TO B SHfrTtO AlCMT

TAC

oc•
TAO

OUT

/G£T EXT£N910N

( 7'tlle
BEXT

/KEEP IT 4 B!TS LONG

OCA

BRE'.G
I Si!

SHAE G

/INC S~F'T eNTR

SMRE:G
F'l.AG1
F'l.AG2
F"l.AG3
OE rt

/Cl.EAR 'I.ACS

IUR
ANO

Bl.SW

I.DADO

F'AOE:~D,

PACE 4'

BMSW
01.SW

AAR

1023

3073
3074
3075

81.SW

F'STEP
SMF'TE!
JMS
CK SUB
SKF' CL.A
JMP
,•!I

TAO
SU el.A

1073
1640

13137
/OUTBR~

F'l.AG:S
SNA Cl.A
f'A003
JMP
1.0AOO
9RtG
CK SUB
JMS
AMBO
JMP
F'ADENO

{'1027
4111 I

?1111111
"'376
311131
4544
0027
2071
1410

hiPRi972

TAO

7650
5213
4544

4563
4533
47171
7610
5227

VU3

SKP
DCA

oc•
OCA
OCA

JMP

/B TO 0

/GO TO OtPOStT

~
I

rpp f"l.OWS

OlAl.H'l

V01/JJ

3257
3260

4564

rMUl.'!'1

724~

ENTER
SH

3261

301!!4

DC4

3262
3263

4563
4561
3027
1027
1710
7040
3073
4555

3264

3265
3266
3267
3270
3Z'11
3:Z12
32'13
3214
3275
3276
3271
331!121
3301
3302
33n
33!4
331/J5
33~6

33QJ7
~JU

3JU

M\JLHJ,

/ENTER MUl.'l'IFl.V
MOrL4G

C:L~A

TAO

02;+1
SHREG
SHfL.AG

TAO

SHrcNt

TAO

OCA

3071
1067

SMA C:l.A
JMP
,•4

7?00

5303
1070
6567

i.SMf'T

30'1

OCA

SHREG
SHREG

OCA

SHREG

GE TOP
OCA

Bl.SW

TAO
C:MA

12111

MUI. H1

rsTt;P

TAO

F'LAG1

33U
3313
33i4
331'
3316
3317
3320
3321
3322
3323
3324

~325

PJfjJ36

SPA Cl.A
·, •!
JMP
APSO
Sl<P C:L.A
AMBO
1.0AOMQ
Ol:U:G
TAO
ACM SW
SPA CL.A
JMP
·• +4
L.OAOA
rACrR

~326

533?
U36

JMP

TAO

7040

C:MA

33n
3330

1710

15;$27

455ra

MUt.:T1A

ACM SW

31il24
UJ37

OCA
TAO

33~3
~334

C::MA
OCA

Al.SW

~3~6

7040
i025
1376
3026

OCA

AEXT

"1337
3340

4572
5774 I

~314

34011)

3J15

?.-l52

3376

74vH~

MYl.T~

otv~

r1.IG FOR MUl.TIPl.V

TAO

MUI. TiA I Cl.RB
JMI'

/MB0 TO OP StGN
/INC~EMENT OP AOOR
1111 TO A
123 TO SMl'T CNTR

/OPERATOR SEl.EeTrC SMl'T CNT7
/NO•USE NORMAi. SMt'T CNT
IYES•GET s•e:etAI. COU~T
/l.OAO ~p~ SHt'T Rte
/NtGAT~ SHtrT RE~
/'OR D~CREMENT Wf t~

IZSi 1.00P
/STEP TO STATE 1
/OUT9RK USfNG OP AeOP

/MB TO Bl.SW

/GET O~ SUN
/OP Sl~N•U
/YES
INO•A Pt.US B TO 0
IA MINI.JS B TO m
10 TO MQ
IGAC rRAC: ~T U
!YES

1rAC rRAC TO A
/COMPLtMEN' rAe rRlC TO A

AMSW

3331
3332
33~5

/S~T

/ENTER STA'l'E Ill
/OUTBRK USING OP A00P

F'STEP
GETOI'

BMSw
HO
BMSW
SP4 Cl.A
CM4
OCA
f"l.AG1
lNC:OP

!5316
4516
76ira
4517
4545
Q!i.121
1036

PAGE 4!

13137

r:lCA

4:57:3

7040
3fil71
4563
4561
3U0
UJ.,3

6•APR•12

ACi.SW

C74H

MUt.:T2

/COMPLIMENT ~ TO EXT
/0 TO B

/GO TO STATE 2

,...

...•
«>

.,w

....
,.,

.....

•

...

0::

0..

'°'

,.,
&

3.
0

...

Q..

......

"
I

~ I

~
I

i:-pp

F'i.OWS

DIAL.Hi

ve03

>STE?

341?'0

4563

.,.UI. T21

34~1

.,.AOJ,

341!4

Hl36
'71ill
1123
3076

34~5
34~6

34t'12
~4t'13

TAO

6•APlb72

SPA Cl.A
(400
TAO

CARY!N

211J71

I Si!

SHREG

7411/)

SKF'

3411

5227
1032

3412

7131/J

JMP
MULT21
MQMSW
TAD
STI. RAR
MQMSW
DCA
MQLSW
TAD

3412!7

3413

3414
341'
3416
3411
3421/J
3421
3422

3423
3424
3425
:.il4H

3427
3438

45'16

3032
1fl3
7&11/J
32133
7421/J
'5225

4546
H21
1823
3931
47171
52!11
4544

APBO

RAR

DCA
SNL
JMP
L.OAOB
OREG
TAO
DCA

JMS

JMP

·, •:S

21021
11123
321:51

OREG
TAO

7U4

ACMSW
TAO
Cl.I. RAL
Cl.A

4565
4546

DEOOP
DECIOP
L.OADS

3441/J

:5441
3•1'2
3443

34'4
34'45
3446

3447
34'1/J
34'!51
34'!52
34'!53

34'!54

4573
U:56

721!10
1073
7530
7410

5256
706el
7520

~4'!55

52'6
45,7

34'56

10152

34'7
34611J

171{1)

'5266

DCA
CLRA

l~S~R'

/ENABLE A ~LUS B TO ~
/OEC SHF'T eNTR -s~e.•llJ
/NO•CONT!NUE
/VES•GO TO STA'E 2~
/SMIF'T M

/NO
/YtS•S!ROBE 9
/SHlF'T B R!GMT

/CONTINUE ONTILL S~C~18
/8 TO Ill
/OOijB~E

PR!CIS!ONt

/YU

1or:c 01'.' ADtlR
10 TO B

OEXT

BEXT

TAD
F'LAG1
SPA Si!I.
Sl<P
·, ...
JMP
CMA CML.

/VES •1 TO CARPY

10 EXT TO I EXT

'236
456'

3435

/F' AC F'RAC: LT 07

OEXT
BEXT
RA•B

COMRtG

SPA CL.A

/MQCUhU

TAD

H27

1852
77U

"A~E

,.,

MADD

3431
34U
3433
34:54

3436
3437

MQLS\.I

Jf'tP

MULT211 L.OAOO
BREG

13137

/STE? TO S'ATE 2

F'ACF'R

oc•

3 411/J

SMA SNL
,•2
JMF'
AMBO
COMREG
TAO
SPA Cl.A
JMP
MULE NO

/0 EXT TO ! EXT
11/J TO A
I
I

JPROG NEC?

/NO•l'ROO 15 POS

/NO•PROO IS POS
/PROO IS N£G•A MUNOS B TO 0
/OOUB~t PR£CISI0~7

/YtS•GO TO DEPOSIT

J:'pP J:'L.OWS

3461

45~3

~462

4561
3033

3463
3464

'4\JL.T~1

rSTEP
CE TOP
iCA
?NCOP
tNCOP
JMP

4555
4555

~466

57161

~IJl.E~O I

3467
34121
3411

4564
7240
3H4

pro1v,

3472

45U
4561
3827
111J27

DlVB,

3414
3475
34;6
3477
35H
3501
3592
3593
3594

35115
3596
35"7

35U
3511

3512

3513
3514
3515
3516
3517
35H
3521
3522
3523
3524
3525
35~6

3527
:5530
3531
:5532
3533

35'.H

~
/

VIU3

3465

3473

'\_

01Ai.i0

1110

79411J
3173
45'5

ENTER
STA
OCA

6•APFh72

MOL.SW
DEP

MDF'L.AG

F'l..iG1

tNCOP
TAO
ACM SW
SPA C:l,.A
·,•4
JHP
1.0ADA
F'ACF'R
JMP
DlVU

119!6

.,,,

!JUI
eJl36

5323
1137
7141

TAO

AC~SW

H25
11136

OCA
TAO

Al.SW
ACMSW

7431

HI.
UC
OCA
OCA
1.0400
AREG

CIA
CMA

'"'
711!J1
3124
3126
45"4

eJU4
111J67
765rlJ

1J15
U70
6567
7041
3071
3033
3032
:50:54

0lVlh1

TAD

SNA Cl.A
TAO
TAO

i,.SMF'T
CIA
OCA

oc•

OCA
OCA

PUE 51!!

/STEP ro STATE 3
/OUTBRK USING OP ADD~
/MB TO MOl.!W
/INC OP ADOR
/GO TO DEPOSIT
/ENTER DtVfDE'.

rs TEP
GETOlll
BMSW
DCA
BMSW
TAO
SPA Cl.A
CMA
OCA

13137

/SET M~L.T 1

DtV~

J:'L.lG

/STEP !O STATE l1J
/OUTBRK US!NG OP A~DR
/M9 TO BMSW
/MBllJ TO OP SIGN
/INC OP ADeR
/GE:T 'AC MSW
/IS F'AC I. T 111?
/VES

/NO•F'A; TO A
/COMPl.IMENT rAe to A
/A•1 TO 0 AND 0 to A IS
/lQUAI. TO TME 25 COMPl.fMENT
/OF' TME F'AC TO A~
/TMlS ~OMP~ETES MINUS

AMSW

AEXT
SH,LAG

/Cl.EAR A En
/SYNC 0 REGlST~RS

C34
SHF'CNT

/OPERATOR SELECT£0 SMl'T COUNTt
/N0••3' TO SHl'T C~T•
/Y£S••SMrCNT•I rr NOT 0S£0
/l.OAO 'PP SHlF'T REC

SHA EC
MQLSW
MQMSW

/Cl.EAR M(l REc;

MQEXT

,_ )

()

rpp r1.01i1s

~lAl.10

V033

3535
3536

:i Iv 1,

rSTEP
GET OP

4563
4561

3Sn

~030

3540
3541
3542
3543

3011
4544

3544

7640
5360

3545
3546
3547
3550

35'!11
35'2
35!13
35'14
~5'15

3556
~557

3560
3561

~027

1021

1022
7640
153621
Hli3
~314

1313
3053
4525
2231
5772'
4544

12111124

'..'lCA
'iCA

LOiOO
BREG
TAO

6•APR•72

13137

"At;E 5!

/STEP TO ST ATE 1
UStNr, ~p AOD~
/MB TO 81.Slol
/Cl.EAR 3 EllT
/B TO 0
/OUTSR~

Bl.SW
BEXT
OMSW

/01!07

,+13

/NO

SH C:l..A

JMP
TAO

01.SW

/O•fll7

JMP
TAO
ANO

PSTAT
( 7377

,•i"

/NO
/VES••SET 01Vl0£ av ~ e1T
/SAVE OTlolE~ BITS

SH Cl.A

TAO

OCA
TRACE
DlVi!

JMP
LO ADO

( 4210
PSTAT

EXf T

/TRACING P~oaRlM;
/VES••CIVIOE av !£~0
/GO TO EX1'
IA TO 0

AREG

NP AGE
3562
3511
3512
35'73
35'74
3515
3516
3517

57'1
360fll
2427
0400
7377
""34
2052
4251
36011)

JMP t

c', •2H&7600

PACE

~~~-~~

..::::::-:-,~=---~

I F'PP F'L.OWS
~6""0

4563

362!1
36!"'2

1IZJ' 3

~61"3

5214

36"4
36eJ5
~6~6

3U7

3610
3611

1030
7041

3030
1027
'1040

1430
1001

3612
3613
3614
3615
3616
3617
36211J

10'11
'16521
53"3
'1H0
1025

3621
3622

3063

3623
3624

362'
3626
3627
363111
3631
3632
3633
3634
3635
3636
3637
3641/J
3641
3642
3643
3644
3645
3646
3647
36521
3651
3652

t·~
\

7710

3027

u:u

7430
7911
71H
1024
1127
311162

71!2

7"12
3U3
UJ34
7H4

1113
3&134

u:n

7H4
~133

1132
'llHll 4

31/J32

111113

7640
5253
4270
5255

6w4PR•'12

!:lUL.U

VU3

DIVZ,

F'STEP
TAO
r1.AG1
SPA Cl.A
JMP
DIVIDE
TAD
Bl.SW
CIA
OCA
Bl.SW
BMSW
TAO
CMA

13137

l'ACE 52

/STEP !O S'rATE 2
/G£T OP S l!:N
/OP s I gN•"7
/NO

/NEGATE 9 SO TMAt lN
/AOO W!L.L WOR~ I~ BOTH
/CASES SINCE TMIS eo~PUTER
/OOES NOT MAVE A SOBTRlCT
/ l NSTR\JrJT I ON

S~I.

!AC
BMSW
OCA
SHREG
OlVlOE1 TAO
SNA Cl.A
JMP'
ENDD!V
Cl.A Cl.I.
TAO
Al.SW
TAO
Bl.SW
OCA
Tl.SW
Ht.
UC
Cl.I.
AMSW
TAO
BMIW
TAO
TMSW
OCA
RTR
RTR

OCA

TAO

RAI.
TAO
OCA
TAO
RAI.
OCA
TAO

RAI.

OCA
TAO

T1
MQEXT
T1
MQE:XT
MQl.:SW

/CHEC~

SMJ,T RfG roR ifRO

/NO DIVlOE Ir SH Rl!'.G 1 I
/A MlNYS O~ !'LOS B
/TO TEMP Rl!'.G roR
/TRIAi. SU8'RAC'
/DID t.~W OVERr~OWJ
/YES••AOO ~SW ovrA,1.0W

/SAVE ~ARRV OUT
/IN Bl! 27
/SAVE ~ARA'f OU'
/MQCN) TO MQ<N•1,
/CARRY OUT TO MQt2f)

MQl.Slrl
MQMSW
MQMSW
T1

Si!A Cl.A
,+3
JMP
OL.EF'T
JMS
,+3
JMP

/ENO OF' SHtF'T MQ
/CARRY OUTii1?
/YE:S • L.OAO 0
/NO • ~HH'T 0
/ENO 0~ SMf F'T 0

(~"

•

'~
I

rpp f"L.O:.IS

:JIALU

V033

~6'33

4544

i,.0400

3654
3655
3656
3657

:'k!l62

53213

TREG
t Si!
SK?
JMP

3660

11~3

3661

7640
4270
4550

3662
3663
3664
3665
3666
3667

2071
'1410

0021
Ul23

3026
5214

6•APR•72

/l.OA!J 0

SHREG

ENODJV

1,.0ADA
OREG

DCA
JMP

~40E

/CARRY OUT = 0

TAO
T1
SH C:l.A
JMS
01.EF"T

TAO

13137

OElCT

AE>CT
DJVIOE

/JEC SHF'T C:NTR
/SHFT CNTR NnT = 0

rNO or D~VtDE
/CARRY OUT = 1 ?
/5~C,s0

/YES • SHI'T 0
10 TO A

10 EXT TO A EXT
/CONT~

O!V!DE UNTIL s~e:•0

F'PP F'L.,WS

OlAL.111l

VIZl03

urne

01.EF'T 1

367Z
3671
3612
3613
3674
3675
3676
3677
37P.IRI
3711J1
371112

111123
7134

37~3

4546

37,,4
37"5
37'16
371!17

~11132

371"
37h

U34
311131
4573
3076
4544

3712
3713

l'IS27
11/J!2

3714
3715
3716

77H
!S;J47

3717

11/J21
771!Jt/J

37UJ
37U
3722
3723

!SH1
4335
U53

3n4
3725
3726
31:!7
37 3IZI
3731
37!2
3713

4335
57741

3735
37!6

0eJl'l8
111l36

3737
3740
n41
~742

7104
72021
111173
7538

:!1743

'7 061/J

~744

~745
~746

()

RAI.
OCA
JMP l

ENOOiV1 LOA DB
MQREG
TAO
OCA
Cl.RA

DCA

LOAOO
BR£G

''~"

4577

r;n;

OEXT
01.SW
OHSW

OMSW

01.E:F'T

SHA Cl.A

JMP
JMS

TAO
AND
TAO

OCA

OIVC,

TRACE
OIVOV
JMP
l.OAOO
BREG
JMS
JMP

/GET MSW
/SMIF'T-LE'T ANO iNSE~T L.?N~
/RETURN
/Yts • MCI 'l'O B

MQUT
BElCT
CARVIN

TAD
COMREG
SMA Cl.A
JMP
F'l.OIV
TAO
OMSW

3Rl!53
4525
2241

3734

/GET 1.~W
/SMIF'T I.Er' ANO INSERT L.1NK

TAO

1113'7
1376

51751
4544
H27

01.SW

RAI.
ti CA

'567111

PUE 54

/GET EXT
/SMlF'T LEVT ANO iNSE~T iE~O

TAO

7f/Jl1l4
3822
U21
7RIQJ4
3021

13137

TAO
OEXT
RAl. Cl.I.

OCA

311l23
1022

hiPR•72

OlVC
QUO NEG

PStAT
c7!177
C2H

PShT

/l.OAO EXTENSION
/ltRO !O A
/Cl.EAR CAR~Y IN tr
/B TO 0
/GET COMMAND R!Gf SfE1rlX£O POINT MOO! t
/NO • ~O TO fLOAf lNG O!VlOE
10 I.ES~ THAN flt
/NO .. ~ONTINU!
IA • B l' muot!EN' IS NECATlVE
/GET IT ATUS Ate

/IAV£ OTHE~ 9lTS
/SET F~AC OV!R'LOW BtT

/TRACING ~~OGRlMt
/VES•DlVlO! r~P~ OYt~r~ow

EXiT

1ao ro £)(lf

QUO NEG
OVENO

/A • B zr QUOTIENT tS ~EGATJVE
/GO TO OEP"S U

QUONEG 1 0
TAO
ACMSW
Cl.l. RAL
Cl.A

/B TO 0 t' SIGNS A~E 1.IKE

/GET rAC MSW

/SAVE SlGN

F'(.AG1

/GET OP SUN
/OP Sl~N • rACt~>?

SPA Sil
AMBO
QUONEG
JMF' 1

/NO•A MINU~ B TO 0

TAD

SPA Sil.
C:MA CMI.

/RETURN

r---' \_

/ I

()

~
I

t"pCI

3747

F'i..O~S

37;~

456:>
4565

3751

1021

~7'32

ns;s

7"'"
5356

3754
3755
3756
3757

4 7731
2071
4544
3027

3H~
~761

Ul36

3762

7104
7200

376J

Hl?3

3765
3766
3767
37'0

3712
37'73
3714

37,5
37,6
3711

7530
7060

7530

4517
5172'

:J t Ai.i0
r." I..!'.) I

V0~3

TA'.)

SMA CL.A
JMP

JMS
IS~

l.OAOO
BRE:G
TAO

O"iSW

ACMSW

/GET f'AC M!W
/SAVE SIGN

F'l.AG1

/GET OP SUN

SHREG

/OP

CMA CML.

SPA Sil.

4251

4007
2427

PAGE

/0 l.T 21?

/NO
JVES • SHirT 8 R!GHT 1 PLACE
/INC Sl-lrT eNTR
/B TO 0 IF' SIGNS ARE l.lKE

SPA Sil.

AMBO
JMP

PAOE 55

RARB

,+3

Cl.l. RAI.
Cl.A
TAO

13137

IOEC OP ADORESS
/DEC OP AD..,R

~ECOP

:.'lECO?

4£100

02021
7517
4000

6•APR•?2

OlV3

Sl~N•F'lC<0,?

/NO•A MINUS e TO a
/GO TO SHTE 3

rpp F'L.OWS

01 Al.13

vZC!l 3

4563

'.) l v3'

S:-STEP

4"'"'"
40~1

3034

4555
4555

!NC:OP
! NC:OI'

3033

3032

4013
4014

411J15
4016
4 flJ1 '1
•020

411J21
4U2

:~~.

57171

4564
4563
4513
1£151
U16
3flJ25
4546

011165
4,76

4,43
H21

OVEN~,

JMI'

r1.ox,

ENTER
rSTEP

LOXl,,

t31J7

MQLSW
MQMSW
MQf;XT

/STEP !O STATE 3
/OUTBRK US!NG OP AOO~
/MB TO MOL.~W
/CL.EAR MO MSW
/Cl.EAR MO ~XT

OEP

IJNC OP AOOR
/GO TO OEPOS!T

GET OP

OCA
'.)CA
OCA

40~2

401!13
401.'14
4fl)l!l5
401!16
4f1Ja?

4flJU
4flJ11
411J12

4561

C:L.IU

TAO
ANO
OC:A
LOA OB
XflJAOR
APBO
l.OAOOP
ORtG

PA(';E 56

6•APRe12

PlR
(1
Al.SW

/ENTER I.OX
/STEP !O STATE 1
lllJ TO AMSW
/G[T INSTRUCTION
/XflJ AOQR Te B
/A Pl.U~ 9 TO 0
/0 TO OP A~OR

()

•

1 F"PP

n.o..is

4,2'3
4J24
42J25

4563

DIAl.1IZI

VIZl~3

L.DX2,

•STEP
i;ETPC
'.'lCA.

456121
312125

40:51

3024
4553
4544
::l024

40'32
4033
4034
4035

4563
1022
45:57
57751

l.0)(3,

4036
40:57
4ia40
4041
4042
4043
4044
4045
4046
4(1J47
4090
40'11
401J2
411J!S3

4564
4563
3024
U51
21376
311J25
4546
0065
4516
4543
111021
4572
UIJ2
7?i0
5257
U35
4527

F'ALN,
ALN1,

4563
1051
0376
7450

Al.N2,

d:'l'-6
4027
42J~0

401J4
4fll!55

401J6
4057
40621

4061
41362
4063
4064
4ia65
4066
4067
407121
4071
4072
4073
4WJ14

!'lCA
! NC:PC:

4 ,,77

4577

Hl22

41t'11
41 !'12

4546

~071

A.MSW

PlR

Al.SW

X"40R

APBO
L.OAOOP
OREG
Cl.RB
TAO
COMRtG
SPA. Cl.A
·.... :s
JMP
TAO

A.CEXP

F'STEP
TAO
ANO

PIA

STORB

SNA

JMP
TAO
OCA
TAO I
SKP
TAO
STORA
'TAO

,., 10

41Cllk'I

ENTER
F'STEP
TAD
AND
DCA
l.OAOB

SPA

JMP

eL.•

TAO

DCA
Al.N221

DCA
l.OADR

10 l.SW TO !NDEX REG
/GO TO F'ETOH
/ENTER Al.N
/STEP !O S'l'ATE 1
/C!l TO A.MSW
/GtT INSTRUCTION
1rlR 9•11 'O Al.SW
/XII' AOOR TO B
/A Pl.U~ B 1'0 0
10 TO OP A~DA
10 TO B
/GET COMMAND REG!S•tR
/O', P', HOD! '
/YES • 00 NOT !'OR! EX,ONENT

/'AC EXP TO e ~SW
/SIGN EXTEND TO BM9W
/STEP !O ShTE 2
/GET lNSTRQCTlON

.....,
<X21
T1
T1

027•1
COMREG
Al.N22
Al.SW
ACE'.XP

/X • ii 1
/YES • 21 'O A
/GET PROGR1M lNO~X REG
/lNSTEAO 0, OU,BRK
/CONTENTS Of' X
/GET OCTAL 27
/MB OR 27 "O A
/GET COMMANO R~GlS1'Eq
/0, P, MOO~
/l.E'.AVE EXP AL.ONE
/MB TO FAC EXPONEN'
IA M!N~S

AMBO
TAD

?AGE 5'

ISTE:P !O STATE 3
f"ETCI-!

OCA.

74U

3035

A.MSW

Ol.SW

i:iuTx
JMP

1101
4530
1052

4016

Al.SW

/STC:P TO STATE: 2
/OUT9R~ US!NG F'Pe
/MB TO Al.SW
/f~ TCl A.MSW
/INC F'F'C:
IA TO 0

F'STEP
TAO

1374
3:1,IZl3
1503

5217
1025

13137

l.OADO
AREG

'2'il

4015

6•APR•'12

CL.SW
SH REG

8 TO 0

10 TO SHtf'T CNTR
TO B

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

-- -~-~~==----

~-~co=-O."'-C-:::C ..

-- .

-----------

~~~~-----

I rpp
41~3

F'l.OWS

'IAi.10

VQJQJ3

21021
1021

41~5

771~

SPA Cl.A

41!'16
41"7
4110
4111
4112

7042

Cl14

4113

4114
4115
4116
•111
4120

1373
3025
3024
1073
764iJ
5320
4577
741.Ql
4576

13137

P4CE 5'1•1

OREG

411"4

3073

6wAPR•'2

TAO

'CA

TAO
OCA

OCA

TAO
SU Cl.A

JMP

AM90

OMSW
F'l.AG1
( 21
Al.SW
AMSW
F'l..AG1

/00 TO SHl'T 0 ft

,•3

/YES
/NO••A MINUS 8 TO 0

Sl(P

112 TO Al.SW
/SIGN EXT£~D TO AM!W

/SMF'T 0 i:"J"it17

/A PL.U~ B 1'0 0

APSO
NPAGt

4121
4172
4173
41'4
411,
4116
4177

5772
42H
H27

JMP !

C",•2H&761U

02H
1236
HB?

2152
4201

PUE

I ;

1-"
"-

"-._"/

~
I

F'PF'

F"L.~WS

42:i!o21

4563

42"1

1iil~1
77~~

42(!2
422'3
421'14

6•APR•72

:J!Ai.1~

VU3

Ai.'13,

rs'l'EP
'!'.\::I
S~A

421'15
421116
420!1
4211'1l
4211
4212
4213
4214

!lll'll36

rAC:F'R

4544
2'1'1l27
4531
52i5
3071

LO ADO
BREG
SO El
JMI'
OCA

4215
4216
4217
4220
4221
4222
4223
4224
4225
4226
4227

4563
1013
7H4
12H
1811
'42eJ
7eJ41
3171
11,3
7651'1l
!5232

4231

4532

4231
4232
4233
4234
4235
4236
4237
4240
4241
4242
4243
4244
4245
4246

5246
4533
U36

4247
42!1(/J

5210
4546

77U

4531
!5244
724el
3121
7241
31'1l22
!5246
4544
0127
4547
01'1l21
5717#

/STE? 'l'O SHTE 3

OMSW
/Oh17

CL.A

JMI'
:1,.AB
JMP

5216
'''2

, +3
I

l.OAOB

AL.N4 1

/~O

/YES • 2 TO B

/F'AC F'RAC 'l'O B
/B TO 0
IO•l'll?

AL.N4
SMlltEG

F'STEP
TAO
F'L.AG1
RAI.
CL.A
TAD
SHREG
SNI.
CIA
OCA
SHREG
TAO
F'L.AG1
SNA Cl.A
J!'IP

13137 . etAGE 5e

•:S

INO•GO TO STATE 4
TO !HF'' CN'R

/VES•l'll

/STEP !O S1'AT£ 4
/SAVE ~HF'T 0 f'V
/GET $HF'T CNTR
/ADJUS! SHIFT CNfR F'OR iSi
ISMF'T 0 rriiU
/Vts

/NO•SHlF'TO UNT1L. s~c~··

SM'TO
JMP
Al.NE ND
SHF'TB
UO
F'ACFR
SPA CL.A

/SMlF'T B UNT!L s:c~··
!GtT F'AC '"Aef!ON
10 • 0 ANO F'AC FR NEG t

JMP
STA
OCA

/NO • B TO 0
l't'tS • L.OG!CAL. 1 TO 0
/l.OGlCAL. 1 TO OM!W

son

AL.NEND•2
OMSW

STA

OCA
JMP
1.0AOO
BREG
AL.NEND1 LOAOAC
OREG
JMP

01.SW
·, •3

10 • Iii 1

/LOGICAL. 1 TO OL.SW
/CO NOT MOVE B TO 0
/B TO O
10 TO ~AC ,RACTION

F'ETCM

/GO TO F'ETeH

F'pp F'L,OWS

0 UL,10

V0~3

4251
4252
4253

RARa,

~
T ~'.)

42'54

4255
4256
4257
42621
4261
4262
4263
4264
4265
4266
4267
4210
4211
4212
4213
4214
42'5
4216
42,7
43HI
4301
4 Jlll2
43113
4Jm4
43fl5
431!16
4301
4310
4311

~;"

"'0Zlr.1
112!2?

7110
3027
1030
7010
3el30

IUR

111131
11111111
l"P6

HD
FUR

RAR

oc 4
ANO
DCA
JMP 1

1051

21315
31Z!25
4546
0065
4516
4!i43
0021
101192
1700
!SJU
4,46
0036
3~11

41'4'

57'3'
1035
4527

F'ATX,

ATX1,

PAOE 59

SMSW

~CA

5651

1313'1

CL.l.

TAO

3031
4564
4563
3024

6•APlh?2

t:NTER
F'STEP
!'lCA

TAO

ANO
OCA
L.OAOB

BMS!ol
Bl.Sw
BL.Sw
BEXT
c'400

/KEEP ?T 4 BtTS LONG

BEKT

FW'B

AMSW
PlR
(7
AL.SW

XUOlll

/ENTER ATX
/STEP !O STATE 1
/0 TO A MSW
/GET INSTRUCTION

trJR9•11 TO AL.SW
/XQJ AOOR To e

APBO
1.0AOOP

IA Pl.U~ B 'f'O 0
10 TO OP AeOFI

COMR£G
SMA Cl.•
·,
JMP
l.OAOB
, ACr Iii
SH REG
DCA
SETSTJ
JMS
ATX4
JMP
TAO
AC!'.XP
ST ORB

/G&:T COMMAND Rl'.G
1rl.OATINO llOtNT?

ORCG
TAO

/Yf:S

/NO•F'AC rRlC TO e
10 TO ~Ht''f' eNTR

/StT ~~OQ !TATr 3
/GO TO STUE 4
/'AC tXP TO B ~SW
/SIGN EXTtNO TO aMSW

F'PI' F'L.OWS

:ltAl.10

V~213

~n2,

F'STEP
,. A!:l
(27
STORA
AM90
TAO
OLSW
SMREG
!:ICA
LOA OB
OREG
OMSW
TAO
~PA CL.A

31173

OCA

4563
1372

4312
4313
4314
4315
4316
4317
4320
4 321
4322
4323
4324
4325

4517
102"2
3071
4546
3021
1021

4-3,2-6

13-72

4327
4330
43:'!1
4332
4333
4334
4335
4336

3025
31024
1013
761Jl1J
5336
4576
7410
4''7

4331
4341
43U
43'2
4343
43444345
4346
4347
4351
4351
4352
43!3
43544-3"5

4563
1121

43'2
4313
4314
4315
4376
431'7

45:!~

7040

11111

!~46

31127
3131

5351

4546
21136
4544
0127
4531
57131
3071
57731

~MA

TAO

OCA
OCA
TAO

611J

/STEP TO STATE 2
/27 TO AL.SW • Ill TO Ausw

IA MlNl!S B TO 0

/0 TO ~HIF'' C:NTR
/0 TO B
/GE:T S l GN Of' 0

AL.SW
AMSW
F'L.AG1

/27 TO AL.SW
/0 TO AMSW

/SHf"T O F'F'ii17
/NO

/YES•A PL.US B TO 0

AMBO

/A MlNYS 8 TO 0

rSTEP

/STEP !O 5'ATt 3

...

TAO
OMSW
SMA ~I.•
JMP
9M$W
DCA
DCA
BL.SW
JMP
·,•:I
L.OADB

rACF'R

son
JMP
DCA
JMP

141!!0

PAGE

f()h1t

/NO
/Yts•I TO 9
/rAC

rR•e 'O B

/8 TO 0

L.OAO('!
BRE:G

~"27

441210

PA~E

/Ori TO SMF'T 0 F'F

c2;

SKI'

ATX3,

13137

F'LAG1

SNA Cl.A
JMP
.•3
APBO

44el0
t-H4
00el7

1236

6•AP!h'2

ATX4

SMREG
ATX4

10•1?
/NO•GO TO STATt 4
/YES••0 TO SMF'T eN'R
/GO TO SU'E 4

rpp F'i.OwS
44~0

4563

44:!1
4402
4403
44L'.!4
4405
4406
44r/J7

1073
764e
5224
U'171
7041

4410

4411
4412
4413
4414
4415
4416
4417
442el
4421
4422
4423
441!!4
4425
4426

4427
400
4431
4432
4433

t"~

6•APRe'2

13137

ATX4,

STEP
HO

F'l.AG1

/STEP !O Sh TE 4
/GET 51-q F'T 0 H
/SMIF"T 0 F'r •1'
/YES

SH Ci.A

JMP
TAO

Cl A
OCA
SHF'TB

4533
1036

4531
5221
72411J
~if 21
7240

OCA
STA
OCA

3022

1022
4537
4510

57'7 I

ATX5•1

SHREG
SHREG
F"ACF"R

SPA Cl.A
SOE'.i!
ATXU
JMP

7710

456;s
UJ22
3H5

6!.

V003

~071

5225
4544
e!027
741QI
4532

PA~E

:;11.1.10

JMP

ATX4A1

l.OAOO
BREG
SKP

/l.OGlCAl. 1 TO OMSW

Cl.SW
ATX5

ll.CGlCAl. 1 TO Ol.SW
/GO TO STATE 5
/B TO 0 CS,ATE 4~1)
/SMIF'T 0 UNTtl. s:c~·~

rsTE:P
TAO
OCA
TAO

Cl.SW
EM£M
Ol.SW

JMP

F'EfCM

PUTX
CM£M!:

/SMIF'T B U~Ttl. s:c~-~
/GET F'AC V~ACT!ON
10 • l1J & 'AC rRAt NEG t
/0 • 0 '
/NO • B TO 0

CMSW

SHr:'TO

ATX5,

/NEGATE SMf F"T CNTR fOR iSi!

/STEP !O STATE 5
/SIMULATE !NBR~ US!NC
/PROGRAM Ml!MO~V

/PUT o~sw !N PROO !NOE~ REG

/COMPA"'E M!MORV
JGO TO rneM

...-...

~
I

F'PP f"L.OWS
4434

4435
4436
4437
44411
4441

4442
4443

4444
4445

4446

4447
44'1
44'1
44'2

44'3
44!54
44'5
44'6
44'7

44H
4461

4462
446:5
4464
4465
4466

4467
44'1
44'1
4472

4564
4563
3024

DJAL.i,0

V033

F'XTA,
XT41,

rs TEP
TAD
AND

~!16

DCA
L.OAOB

3025
4546
0065
4516
4543
0021
4563

1851
0316
U75

AND
TAD
DCA

1503
4'27
4544
0127

ST ORB
LOA DO
BRtG

TAO t

DCA
TAO

AL.SW

/FIR9•11 TO AL.SW
/Xlll AODR TO i:i

IA Pl.U~ El TO 0
10 TO OP AOOR
/STEP TO HATE 2
PIR
(7

/COMPU!E INDEX REG AOOR
/G£T PROG !NOEX RE5 !N~TEAO
/OF' OUTBRK
/MB TO-BLSW • SIGN E~TEND TO SM.SW
IS TO 0

SHREG

AC!XP
ACEXP

/27 TQ P'AC UI'

( X21

COM REG

SPA CL.A
· ;
JMP

1111J1

TAO

31/JH

DCA

TAO

120
3H4

STA

9714 I

IG~T JNST~OCTlON

T1
T1

'5270
1fll35

1121 TO AMSW

/GET lNSTROCT!ON

(

F'STEP

3U3

3B71
111152
771111

O!SW

L.OAOOP
OREG
TAO

PAt;E 62

PlR

X0AOR
APBO

XTA2,

13137

/ENTER XTA
/STEP !O SUTE 1

ENTE~

'1C4

112151

6•APR•72

02h1

DCA

MQlSW

OCA
JMP

MO;LAG
DE ft

TO SMl'' C00Nf£R
/GtT COMMAND R!Gf S,ER
ID', p·, MOOf t
/YES • LEAVE tXPON!NT IL.ON!

1rAC EXP Te HQ LSW
11 TO MULTIPLY • O!V!D! 'LAG
1roR U~E IN OEPOStf
/GO TO DEPOSl'

F'PI' F'l.OwS
4473
4474
4475
4476
4471
450!1'!
451!1
451112
4583
45"4
45U
45"6
45PJ7
45U
4511
4512
4513
4514

4564
4563

JX~,

ENTER

JXA.J1,

0373
711"
7iJ12
3025
3eJ24
4546
0£165
"'76
4543
H21
71UeJ
3"21

H22

4532

16!1

J>CN2,

76'41

5HI
4H7
3HI

3124

45'4
111124

4511
4531

~341/J

4553
5354

F'STEP

UD
"1 R
ANO
<18
Cl.I. RAR
RTR
AL.SW
-oc•
AMSW
OCA
LOA OB
APBO
1.0AOOP
OREG
CMA
CC:A
CHA
DCA
JMP

5315

4H1
4511

6eAPR•'2

XUOR

1J4iJ

4563
1n1
0312

()

V01!13

1"51

4515
4516
4517
4521
4521
4522
4,21
452'
4515
4526
4527
4531
4531
4533
4534
4535
4SH
4531

!:l?Al.10

JXN2i1

F'STEP
TAD

OMSW

/ENTER JXN
/STEP !O STATE 1
/GET INSTRUCTION
/EXTqACT B!TS 6•8
/J'lRhB TO AL.SW
/Xl/J

ADORES! TD B

/l.OGICAI. 1 TO 0

OLSW
JXN2

PIA

JMP
tNCPC
JMP

!'ACE 63

IA Pl.U~ B TO ii
10 TO OP AODR

AND
C1H
SU Cl.A
JXN2A
JMP
GETX
Al.SW
OCA
AMIW
DCA
1.0AOO
AR!G
JMP
~
lNCX
Gf;TX
SNA Cl.A
Cl.RO

son

13131

JXN3
JXNEND

/STEP TO STATE 2
/GET l~STROCT!ON
/t>CTRA~T 8Jf 5
1rJR 5•1t
/VU

/NO•OU!BRK USING o~ ioeR
/MB TO ALIW
/I TO AHSW
/A TO 0
/RtQUE~T

INC BAK C~•X•I>
/GET )( REG
/OVER,~OWl

/VtS • LOGICAi. I Te 0

/Sl<l' H' Od

10 NOT ECIUlL. II

/INC F'PC
/GO TO F'ETCM

·,_

()

~
I

rpi:
454~

4541
4542

F'L.OWS
4563
45oe
3025

rns1

4543
4544
4545
4546

03?6
3024
4544

4547

2'024

4550
4551
45152
4553

4543
Z021
4542
0044

4554

5717~

45?2
45?3

k'2'?0

45'4

45'15
45'16
4517

1'.llAL.10

V003

J)("J3'

~STE?

GETPC:
1'CA
TAD
ANO
OCA
L.O'ADO
ARE:G
1.0AOOP
ORE:G
LOAOPC
OP AOR

JXNENO 1 JM!'

0UJ0

22152

21200
0H7
1236
4U0

!'AGE

!"'.
64

6eAPfh12

1313?

AL.SW
PIR

/STEP !O STATE 3
/OUTBRK US!NG rP~
/MB TO AL.SW
/GET INSTRUCTION

!'A~E

AMSW

/r?R9•11 TO AMSW

/A TO 0

10 TO OP AOOR
/OP AOOR TO rPe

re:TcM

/GO TO HTeH

"'...."°
u
c

...,

..,

....

....It

...•
a::

0..

'°

..,
1151
&

&
lrl
_J

UI
:E
0
_J

r...

D.
CL

\. _./

rpp f"l,.OwS

~IAl..10

46:"Z
46'."l
4on
462!3
4'61'"4
46i!5

45~4

JSR 1

45!13

JSRl,

46~6

461!7
46121
4611
46·12
46'13'

4614
4615
4616
4617
462111
4621
4622
4U3
4624
462'
4U6
4627
4630
4631
4632
46!3
4634
4635
4636
4637
4640
<t641

4546

45·44

4543
Zl021

4555
JSR2,

03'77

4563
UJ41
0377

3H7

' 6!5

4567
4543
0021
4542
011J44
51151

rSTEP
GETPC

JSR3,

F'STEP
HO

ANO
TAO
OCA
lNCOP
JSR4,

F'STEP
TAO

OCA
OtCOP
CM£MF'
1..0AOOP
OREG
L.OAOPC
OP AOR

JHP

TO STATE 1

/P" ADDR Tl'! g
IB TO 0

10 TO OP AODR

/lNC Of' AOOR

Al.SW
PlR
(7

AMSW

/STEP TO STATE 2
/OUTBRK USTNG rPe
/MB TO Al.SW
/GET INSTRUCTION
1'1R9•11 TO AMSW
/lNC ,PC

IA TO 0

l.OAOO
AREG

32106
4555
4563

/STEP

JNCPC

1376

1142

/ENTER JSR

TAO
ANO
OCA

3024
4553
4544
002•

PA~E

~NTER

OCA

1~1

13137

!:'STEP
LOADB
1.0ADO
9REG
L.OADOP
OREG
INC:OP

~027

45'6'0
:Y3-Z5'.

6•APR•12

PBASE

~054

4563

V0Z3

PF'PC

/STe;P TO S1' ATE 3
/GtT FPC FfE~D &ft!

CU3Rl

/StE JMK STATE 3~1

f'IMEM

PF'PC•1
l.MEM

/S!MULAT!: !NBRI<
llNC OP A015R

/STEP !O S'UTE 4
/SIMULAT! fNBR~
/OEC OP AOOR roR C~MPA•t
/COMPARE Mf!HORV
10 TO OP Al!DR
/OP AOR TO F'PC

F'E,CM

/GO TO F'tTeM

rpP F'i.OWS

4642
4643
4644
4645
4646
4647
4650
46'51
46'32
461JJ
4654
4655

4564
4563
4560

Vk'l213

JSA,
JSA2,

ENTEi=!
rSTEP
GETPC
OCA
TAO
ANO
OCA
INCPC
L.OAOO
ARE:G
L.OAOOP
OREG

3025

1051

2'317
30?.4
4553
4544
21024
4543
1'12121

46!6
46!7
4660
4661
4662
46'3

4563
12141
213'!7
13'!6
311H'J6
4555

JSA3,

4664

4563
1042
31/J01

JSU,

4665

4666
4661
4670
4671
4672
46'3
46f4
46'15
4775
4716
4717

4565

4567
4555

45!55
4542
8144

,.,,,,

p~At..,

rSTEP
TAO

ANO
TAO

AMSW

IF'lR9•U TO

Al.SW

OEC:OP
CMEMF'
?NCO!'
!NC:OP
L.OAOPC

OPADR
JMP

PAGE

/lNC rPc
IA TO 0

AM~W

10 TO OP A"OR

Pr Pc
(1

( 1183"

PF'PC•1

oc•

PAOE 61

PlR

F'STEP
TAO

INCOP

13137

/ENTER JSA
/STE:F' TO STATE 2
/OUTBRK US!NG rpc
/MB TO Al.SW
/GET INSTRUCTION

MMEM

UJ30

211/J07

6•APRw72

oc•

1236

'"""

\~_

ulAl.10

/STEP TO STATE 3
/SEE JSS S'ATE 3;1
1rPc ,~e·.
1J•• 1m30 • JUMP ALWAYS
/$JMUL.AT£ fNBRK
P~OO MEMO~Y
/lNC OP ACOR

/STEP !O HATE 4
I.HEM

/GET rl'.'c

/S!MUl.AT!: INBRI<

/DEC OP AOeR VCR COM~AA£

/COMPARt MtMORY ;RlCTlON
/RUTO~£

0111 AOt)R

/INC Of'.' AOeR CSTi?r ~·f >

/OP AOOR To fl'Pe
F'ETC!ol

/GO TO ,neM

"""

~
I

F'PI' F'L.OWS

;,IAi.U

V2103

5ZJ"llD

JE ~'

SAE:

sn1

50'-12

4536

5245
~227

JGE,

6•APR•12

JMP

JF'AL.SE
JTRUE

SAl.i
JMP
JMP

JTRUE
JF'AL.SE

.J~P

13137

"AOE 6e

/J"AC=07
/NO
/VE:S

/F'AC G! ORwU

5003

4534

5(1Jl"'4
50!!!5

5227
5245

501116
5007

4535
5227
5245

Ji. E'

~AG:

JMP
JMP

JTRU£
JP'Al.SE

/rAC L,T OR111J?
/YES
/NO

J"'4£.

511J13

4536
5227
5245

SAEi
JMP
JMP

JTRUE
J;Al.SE

/F'AC•U
/NO
/YES

5014
5015
511i16

4534

JI.Ti

5245
5227

SAl.i
JMP
JHP

JF'Al.SE
JTRUE

SAGi
JMP
JHP

JF'Al.SE
JTlltU£

5010

5011
5U2

5017

50!S
!52121

4'35
5245
!5227

511122

731/J1/J

!5flU

1ra21

!5124
!1125
!5U6
5027
5Uf
!5031
sn2

50!3
!50:!14
!51/l'.!5
5(1J:!l6

50:!17
50•0
50'11
50'12
5121'13
5044

JGT,

71H
!5245
!5227

4564
4563
'1561/J

3'112'
1f!51

0317
3024
4544
011124
4543
01D21
4542
2044
5776'

JAL.'

CL.A Cl.I.

TAD
OHSW
SHA Cl.A
JHP
J'1L.SE
JMP
JT"UE

JTRUE1 ENTER
JTRUE1 1 F'$TEP
CETPC
DCA
TAD

AND
OCA
L.OAOO
AREG
L.OAOOP
OREG
L.OAOPC
OP AOR

JM!'

Al.SW
PIA
t7

AMSW

/VES

/NO

/F'AC L. T U
/NO
/YES

1r•c G! u
/NO

/YES
/G£T 0 S!GN

!JS 0 NEG
/NO
/YES

/ENTER JMP CONOITl~N T~UE
/STEP !O Sh1'£ 1
/OUTBRK US!NG Pre
/MB TO Al.SW
/GET lNSTROCTlON
/F'IRhU TO AHSW
IA TO 0
10 TO Op AOOR

/OP AODR TO F'PC
F'Ef CM

/GO TO F'E'TCH

l!'pf:I F'l.OWS

OlAl.iZ

v~~3

JF" AL.SE I

E'.ITE~

5~45

4564

5ti46

4553

5047
5050
5a51
5052
5053
5054
5055
5011J6
50!7

5776'

506rll

5061
511J6 2
51i163
5064

4564
4563
4546
P'l1J36
4544
011J27
4543

l ~C:PC:

JAC 1
JAC:l,

01Z121
4542
~044

'1761
4564

F'$TF''

5065

1052
21375

5066

3052

!11J6 7

!!.57761

511l70
511l11

U!l2

!!521;2
52173

111!14
71H

5QJ15

57161

5QJ'6
'3077
51H
'3Uf1
51'!2

4'64

P'N£G,

4563

NtG1,

5074

5UJ3
5UJ4
5l,215

5UJ6
51~7

5110

5111
5112
5113
5114
5115
5116
5117
512'21
51:11
51'-2
'5123
:124
5125
~\
I
\,

4!'64

F'$TO,

111l36
7041/J
311J24

U37
7QJ40
32125
4544
0024
4554
4547
21021
'51761

4563
4546
:-1036
4544
0027
1035
3033
~071

57741

ENTER
TAO

ANO
DCA
JMP

3152

4564

JMP
ENTER
rSTEP
LOAD0
r ACF"lll
1.0AOO
BREG
1.0ADOP
OREG
1.0ADl'C
OP ADR
JMI'

t3 I 3'

F"ETCM

/ENTER JMP CONOITION F'ALSE
/l NC rPc
/GO TO n:TeM
/ENTER JAC
/STEP !O STATE 1
1rAC f'RAC: TO 8
/B TO 0
10 TO Op AODlll

/OP ACOR TO rPe
F'ETCM

/GO TO F'E:TeH
/ENTER

COMREG
(3;77
COMREG
F'ETCM

ST,

/RESET O~P~ MOOE ,,
/GO TO F'ETeH

ENTER
TAO
COMREG
Cl.I. RAL
STI. RAR
COMREG
OCA
JMI'
F'ETCM

/ENTER STC

ENTER
F'STEP
TAO
CMA
OCA
TAO
CMA

/ENTtR NE:G
/STEP ro Sh n 1

OCA

1.0AOO
AR£G

ACM SW
AMSW
ACl.SW
Al.SW

F'ETCH

/GO TO ,neH

/COMPL[ME:NT F'Ae F'RlC
/TO A
IA TO 0

/GO TO F'ETeH
/ENTER rNOi.M

ENTE:R

/STEP TO S'l'ATE 1
/F'AC rR4C 'O 8

F'STEP
L040B

rACF'R
LOA DO
BfH:G

/SET C~P~ MOOE F',

1•1 TO 0
10 TO F'AC ,.RAC

?NCOR

1.0AOAC
OREG
JMP
F'NORM1
NORM11

PAGE 69

6•APR•72

/B TO 0

DCA

ACEXP
"1GlLSW

~CA

SHREt;

/0 TO SHtF"!' C:NTR

JMP

DEP

/GO TQ_ Of'.Pt'lSIT
; ,,

/F'AC EXP TO MQLSW

~
I

rpl'

5126
5121
513121
5131
5132

5133
'5134
'5135
5136
5137
514121
5141
51•2

F'L,OWS
4564
4563
4773 I

'.) l Ai.1Z

JMS

0800

11216

TAO

OCA

33,1.!13

7240
3106

OCA

111215

TAO

AND
DCA

~372

PAUSi1

31216
6555
71H0
5716'

!515121
5191
5t52
5193
51'4
51'5
!51'6

4564
3S36
312137
1052
11H
3035
!5776'

r".A,

5157
51H
5161
5162
5163
5164
5165
5166
5167

.,.4
4563

StTB,
S£TBi1

11213

4560

0377

3eJ54
4553
5776'

rSTEP
TAO
OCA
r:'PST
NOP
JMP

ENTER
OCA
OCA

STEPSW
T1

/SAVE ~l~G~E STEP 5W!TCM

STEPSW
CS'f'A TE
<377
CSf 4TE

/SET SlNGL.t STfP SW

TAO

T1
STE:PSW

ENTEll'
rSTEI'
GETPc
DCA
TAD
AND
OCA
!NCPC
JMP

~3'7
~12152

3777

1236

PAGE

/RESET P~OC MAJOR STATt
/WAIT F'OR OPERATOR
/RESTO~E S!NGL.E STEP SWITCM
/RESTART J"lllP

F'ETCfol

/GO TO FETOM

ACMSW
ACLSW
COMREG

1121 TO rAC

/ENTER CL.A

SMA Cl.A
OCA
ACEXfl'
JMP
F'ETCM

7313

2'11107
522'0

TYP

/ENTER PAU~E
/STEP '.O ST /ITE 1
/TVPE F'PP l'AUSE

P4l':E 7'1!

STA

310!5

3055
1051

13137

!:'STEP
TP4USE

2161

4,-63

6•APR•72

•P4i,1SE: 1 ENTER

P.AUSZ1

5143
5144
5145
5146
5147

'5172
5173
5174
'5175
5176
5177

V033

PBiShS.
PJR
C7

PBASE
F'E'tCH

/GET T~E COMMAND RtG!S,ER
I0'1 P, MODE 1
/NO • CL.EA~ TM! lC EXPONENT
/GO TO rETeM
/ENTER SET BAS!
/STEP !O STATE 1
/OUTBRK USf NG 'Pe
/HB TO P0 lOOR
/GET INSTRUCTION
IF'lR9•11 TO PeJ r:a~
II Ne F'PC
/GO TO F'ETOM

F'PP

52210

52211
5202
52:"3

5204
521'!5
52!'!6
52~7

5210
5211
5212
52U
5214
5215
5216
5217

!5220
5221
5222
5223
!5224
5225
5226
5227
52H
52!1
!52U
5233

5234

5235
5236
5237
!5240
5241
5242

5243
5244
5245
5246

ij/£~'
\

F'L.:ws
4564
4563

456ii'l

DIAL.HJ

V003

SETX,

ENTER
F'STEP
GETPC:
DCA
TAD
ANO
OCA
!NCPC
MO VEX
JMP

SETX1 1

'!~66

1051

2317
3065
4553
4541
5716'
4564
4563
3024
U51
0317
3125
4546

AOOX,
AOOXi1

A00X21

111157

F'STEI'
TAO
ANO
TAO

3103

OCA
TAO I

30H
3U7

OCA
OCA

AOOX!1

3025

3024
4553
4516
4563
1022

453?
5??61

X0AOR•1
PIR

/ENTER SET X
/STEP TO STA TE 1
/OUTBRK US!NG F'Pt
/MB TO X~ AODR
IGET INSTRUCTION

XUOR
F'ETCH

AMSW
PlR

(7
AL.SW

ADDX41

1r1R9•11 TO X0 r:s~
/?NC f'PC
/SET PROGRAM INDEX REGS
/GO TO n:TeH
/ENTER AOOX
/STEP re Shi'£ 1
/0 TO AMSW
/G£T INSTRUCTION
/f'lR9•11 TO AL.SW
/X0 AOOR TO B

IA PL.U~ B TO 0
/0 TO OP A!'iOR

APBO
L.OAOOP
OR£G

4576
4543
3021

4563
45H

13137

XUOR

H6'

4563
Ul!51
21377

E'.NTER
F'STEP
OCA
TAO
AND
OCA
L.OAOB

PAGE 7i

6•APF!w'72

/STEP !O STAT£ 2
PlR
(7
PXP

BL.SW
BMSW

/GET P~OGRAM lNDE'.X RE'.G JNSTEAO
/OF' OU!BRK USING o• AD~R
/MB TO BL.SW
/0 TO BMSW
/STEP !O Sh'f'E 3

F'STEP
GE:TPC:
OCA
OC4
!NCPC
APBO

AL.SW
AMSW

F'ST£P
TAO
PUTX
JMP

OL.SW

/OUTBR~ USfNC
/BM TO Al.SW
1e TO AMSW

,Pe

/INC P~C

IA PL.U~ B ,.0 0
/STEP ro $,.ATE 4
F'ETCM

10 L,SW TO l( RE~
/GO TO F'E'.MH

i~
1

rp=' ri.aws
5247
525iil
5251
5252

4564
4563

n1Al,.i0

V011l3

rST4,

ENTE:R

~TA0,

F'STEP

Hl 5 2

171'!1

6•A?lh72

13137

TAD
SPA !:I.A

COMREG

/TYPE ENTE!:i F'ST A
/STEP TO MAJOR STATE 0
/GET COMMAND RE:GIS'E~

JMP

STU
AC EXP
EMEM

~.253

s,a.60

5254
5255
5256
5257

103:)

TAD

3005
4570
4555

~CA

5260

4563
1036
3006
4555

STA1,

STA2,

5211

4563
1037
3007
4565
4567
4555

5272

57761

52'73

45'4
4563
U5.2

~261

5.2'62
•52:63
5264
5265
5266
5267
52''1J

52;4

52'5
52;6
52'7
53ll!rll

CMEME
INCOP

DCA
!NCOP

!NCOP
JMP

F'Ei'CH

ENTE:R
F'STEP

532!3
5JU
s3ms
532!6

4563
4561
32124
4555

LOA1,

532!7

4563

LDA2,

5310

4561

5311
5312
5313
5314
5315
5316

3025

5376

1236

53'7

C02'7

F'S'rEP
GE'rOI'
OCA

?NCOP

ACEXP

DCA

ID, P 1 MOD!:: ?
/YES • GO TO STATE 1

/INB~K U~lNG OP ADDR
/F'AC EXP TO MB
/COMPARE M~MORV rXPONENT
/lNC OP ADM

/STEP !O MAJOR STATE 1
/INBRK USlNG O~ ADOR
/F'AC MSW TO MB
/INC or AOrlR

/STEP TO MAJOR STA'E 2
/INB~K-USlNG OP AO~R
/FAC L.~W TO MB
/DEC OP AO~R roR COMPA~E
/COMPARE MfMOR\I
/RESTORE OP AOeR
IGO 'rO.F'ETeH

/GET COMMAND R!GfS'ER

10·, p I MOO!! t

/YES • GO TO STAfE 1
IOUTBRK US!NG OP AeO~
/MB ro F'AC DP
/STEP TO MlJOR S,A,t 1
/OUTBRK USING OP AeOR

AMSW
/S'rEP TO MAJOR StATt 2
/OUTBRK US!NG OP AeOR

f'STE:P
GETOF'

LO ADO
AREG
LOADAC
OREG
JMP

l'At::E: 72

/TVPE E:NTE~ I.DA
/STEP TO !TAT! ~

UD
COMRE'.G
SPA Cl.A
JMP
L.OU

GE TOP
OCA
tNCOF'

53el1
53m2

5411l0

LME:M

LOU,

4561
3Ql:55
4555

57761

ACLSW

DCA
OEl:OP

F'l.OA,

53213

11l024
4547
0021

F'STEP
TAD

ACM SW
MME:M

C:MEMr

771111

4544

F'STE:P
TAD

AL.SW

IA 'rO 0
10 'rO F'AO l"RAC

F'ETCH

PAGE

---·-~~ ~o. o.~~~=-"-.................._ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ __

rp:i F'L.OWS

-- -

54"Z
54:i'l
54C"2
54~3
54~4
54~5

~ra0ra

V033

6•APR•72

M!'-i! ClOJT!NES

CTR3)

DlAl.10

F'Cl.R,

6552

rF!CL

13'7

TAO
DCA

3010
3105

7450
56'-'0
3011

OCA
TAO t
Std
J"4P t
OCA

5412

32i?

TAO
OCA

54t"6
542!7
54UI
5411

14ira

rCl,.RA1

5413

3411

OCA !

5414
5415
'416

2217
5213

IS!

soe

0ue
17U

'4i.7

5421

'422
54U
54!4
5425
5426
5421

5205
llJH0

Hile

?US

Jl'IP
JMP
Cl.ACT,
Cl.RT,
tNC1,

2045

Cl.A Cl.I.

5445
5446
5447

~'
\

/AOOR or rPP R£GS

tNC2,

!NCJ,

/INCREMENT F'PC

Cl.A Cl.I,;
IS!

PF'lliC•1

/'PC ADOR

ISi

PYPC

lrf'C 'l.EL.0

!NC2

/RETURN

NOP
Jl'IP l

21'41

/INCREMENT OP •ooR

/RE:TUAN

'Hl 0

2047
7 01110
5641

/VES•G£T N~XT AOOR

lN01

SKP

20521

/NO

/OP r1.o

'14U

7410

Cl.ACT
,•2
F'Cl.RA

OP40R

1ue
2042

5443
5444

tS!

73011l

CL.RCT

/OP AOOR

5433

llJHIZJ

OPiOR•1

5432

5441
5442

F'CL.R

/GET ADORE!S
/ENO Of TAeL.El
/'\'ES•EX IT
/NO•SAVE A~DRE5S
/GE'.T COUNT
/SAVE ~OUNT
/Cl.EAR L.OCO f ON
/£NOl

NOP
JMP l

5632

llJ
llJ

2SH
1SH
5623

54'0

/Cl.EAR rPP ANO P~Or.RAM REGS
/CL.EAR F'PP
/GET AOCRESS or TAeL.E

·20

54H
5431

5437

CSTA TE

Rf;GS

SKP

5435
5436

PAC:E ?3

llJ

?4ie

5434

(CL.RT •1

1313?

/INCREMENT AORS

llJ

Cl. A Cl.I.
POT•1
lU
SKP
PAPT
lSl

NOP

JMP I

INC3

/APT ADDRESS
/APT rt E:L.0
/RETURN

-- ---- --

-- -

MIN!

ROUTI~ES

54521
5451
5452
5453
54'4
5455
5456

5457
5460

5461
5462

5463

5464

5465

1!02'~

.,.2;-,i21

Cl A

47161
~005

565'0

"""'"

5276
7Ul4
7640
5276
UJ22
7640
2265

73H

5665

5sru HH

TAO
TAO

SNl\ Cl.A

JMP l
TAO

JMS
ERROR
JMP l

!5417

PAPT+1
APTC
APTC
ERR
Hl2J5

APTC

SAVAPT, Ill

PACE

PAt;E 74

13i37

A~ORESS

/GET APT AOOR 'ROM rs:ip
/SAVE roR ~RROR REPO~T
/RESTORE Al:
/COMPARE WfTH PROGRAM AOOR
/APT ACOR OK?
/RETURN
/GET R;TURN ADDRESS
/TVPE ERROR DATA
/AOORS ERROR COO!
/RETURN TQ MAIN PROG~AM
/SPECIAL. OVERrLOW eo~otTJON

OMSW

5MA
NOfLOW
JMP
Cl.I. RAl.
SU Cl.A
JMP
NOF'LOW
TAO
CL.SW
UA Cl.A
SP!CF'L
Nori.ow, ts!
Cl.A Cl.~
SPECF'L
JMP I

7317

56H

SAVAPT
SAVAPT

5P£C,..L. 1 l2J
TAO

6•APR.,72

/COMPARE A~T

13i1l1
7041
U50
7650
5650
1250

VU3

Cl.A

RAPT
OCA

5470

5576
55'17

APTC 1

33~1

6565

1221
7511!0

5473
5474
54;5
5476
54'1
55H

01 Al.U

(T~3l

5466
5467
5471
,.,2

/IS 0 NEGA'l'lVE ?
/NO • ~ETURN • 1
/MOVE ~l(;N TO ~lNK
/ARE Al.I. O'HER Bf TS or HSW " ?
/NO • RETURN • 1

/VES • CHEeK L.SW

IOOES 0 • 4112JI 112JI~ t
/NO • RETUfltN + 1
/RETURN

---

----~-

,I
MINI ROUTJNES

560QI
5601
5602
5603
5604
56215
5611!6
5601
5611/J
5611
5612
5613
5614
5615
5616
5611

56H
5621
!5622
5623

5624

!1625
5616

!5627

5631/J

1631

!56!2
!SU:S
5634

5635
5636

5637
5641/J
5641
5642
'643
,644
5645
5646
5641
56'0
56'J1
561J2

5653

561J4
5655
5656

CJ
:-----

OJ ALU

CT'°'3>
l1'1/J00

STE'.P,

VH3

Ul31

6•APR•72

PUE 78

6031

KSf'

1410

SKP

47771

JMS

KEY CK

?240
12210

STA
TAD

STEP

/GET tXlT lOORESS

TAD

EXAOOR

5214

JMP

• •:S

5776'
1117
7641/J

JMP
TAO

SH Cl.A

lNiT
CKO

/COMPARE W!TM AEtURN ADOR£SS
/tXlT AT THIS AOORrSS t
/NO
/VES • CL.EAR 'PP AND R!G!STERS
/GO TO lNUTE:

47751

JMS

COMPO

IVES

'124e

STA

CKO
CKOP

/SET r~AC 'OR NEXt STA,£
/CHECK OP AODR rlA~

Cl A

12141
1113
7640

SU Cl.A
CL.£AFt

45?4

OCA

3117

TAO

1120
'1649
47,41
7241
3121

SU CL.•
CK OP AD
J-MS

/SET r~AC 'OR NEXf STA,£

AND

C4H

/GET SWITC~ :S
/IS SWITCH 3 SET J
/VES • GO 'O S!NCL.r STtP

"''
UH

SU Cl.l
TAD

SS TEP
STEPSW

JM"

SStEP

IYCS

TAD
CIA

STEP

/GET R~TURN AOeRrS9

TAO

ENTSTP

JMP

STtPGO

/COMPARE W!TH !Nt£• ST!P AODR
ltNTtR STE' MOOE J
/NO

12!1

JHP

7648
52'1
7241
UH
7141
1114
7640
52'1

SZA Cl.A
STA

S!A Cl.A
CHA
OCA
JMS
INSTEP

47'12'
2626
HllJf/J
4171'

561!0

2652
4712'

2652

0eJ210

47171

/SINGI.£ ST!P MODt

STl'.PSW
TYP

IVES • S!T S'tP SW!TCH

JMS

ASC

/CONVERT R!TURN ADeR TO ASCil

JMS

TYP

/TYPE RETURN AeOR~SS

KEV CK

/WAlT ~OR TTY !NPUT

SSTEI' I

IV ts

CKOP

L.AS

111"0
:5U6

/CMECK OP lDOR 7

STA
OCA

'1614

/C:MECI( 0 ,~AG
/CHECK 0 RtG 7

STEP
AODR
ACOR

l'J

JMS

(~',,

-o

l'4 Pd

ROUT t NES

(Ti)3)

:IAl.1121

c; 6 57

724~

STA

56!0
5661
5662
5663
5664
5665
5666
5667
567121
56'1
5672
5673

12Z'0
7041
1115
7640
5Z71
47721
2636

H::l

01il:iJ0

3106
1105
1373
3105

5"674

47'10 I

5675
5676

7610
5311l2
1231/l

5617
5?1!llll

5711!1
5702
5711l3
5711l4

f~'.

4767'

011l2l121

6,61

73H

56".!lll

V12103

STEF'

Ci A

EXSTP
SCA Cl.A
SH:PGO
JMP
TYP
JMS
OUTSTP

"'A':l

DCA
STEPco, TAD
TAO

ST£PSW
CShTE
(4!0

CST ATE
DCA
MST ATE
JMS
Sl<P Cl.A
JMP
TAO
STEP
ERR
JMS
ERROR
0 Ill H
F'MAlNT

....

CL.A CL.L

JMP l

6•AF'Re72

13131

l'A~E

/GET RETUR~ AC~RES5
/EXIT STEP ADORESS
/EXIT STEP MODE f
/NO

/EXIT ?TEP MOD!:
/VES • RES~T STEP !W!TtM
/lNC, CURRENT STATE ~E~
/CMECI< ST UES
/STATE ERReR
/STATE~ OK
/GET RETURN AOOR!:SS
/GO TO ERROR ROUTINE
/TIME ?TATE ERRO~ eoot
/STEP F'PP fO NEXT STATf

STEP

-·

---

M!N! RQUTtNES
5705

1766'

57!"6
57n

:?365

7450

SNA

57631

JMP
TAD
SNA

5727

1362
7450
5321
1361
7650
57601
57571
1330
3756'
1331
37551
U32
37541
57561

5 7 :JllJ
5731

2!11111

5732

?IH

5154
5795
57!6

4911
4016

5760
5761
5762
5763

7611!0

5726

,,,,
i

!5764

5765

5766
5767
57'0
57'1
5772
5773
5774
5775
5776
5777

...

'fREX t TI TAO

1364

'5725

0 l Al.121
AN!:l
TAD

s11e
5711
5712
5713
5714
5715
5716
5717
5720
5721
5722
5723
5724

CT~:.n

6H1

(7?
(•3
'7el0

TAO

Jt-!P

762111J

SNA Cl.A
Jt-IP

TAO

OCA
TAO
OCA
HO
OCA
J1'4P

<•1

<•14

OOtERR
ERi
40{5

ER2

40{6

13 I 3?

6•APR•72

/CNTRL. C 7
/YES • RETURN TO OTA MONITOR
/CNTRL. 0 7
/YES • SETUP TO ~EiC IN OJAI.
/CNTRL. P 1
/Y~S • RETURN TO PS·~ MONtTO~
/ZL.1.EGAI. INPUT
/MOVE DIAL. 1.0AOER 'O
/4015 ~OR TAPE REAO
/INTO PRnPfR LOClf!ON
/ANO A~TO !TART

ERJ

4Qli7
401'

/READ DIAL. TAP( ANO EX!CUft

IL.INC

21101
7300

ISL.CCI< NUM8ER

0432

7764

77'7
?7130

,,,,
H17
"345

7317
6U0

7346
7H3
OJ41?'0

6320

F' At:E:

l'At;E 77

/GET A~C!I CHAAA~TrR
/STRIP TO 6 9ITS

6141

491'

6120
1064
"1250
6000

ASC:Ci-1

..,

JMP

ER11
ER2 1
ER3 1

v121213

/RCG

MlNl RQl!T!NES

IT~J>

OlAl.10

/C~ECK

6J"Z

ZZ~0

60~1
~01.2
60~3

73~0

60~4

60~5

6562

601'.'7
6010
6111
6012
6013
62114
015

6016
6WJ17
60HJ

6121
6122
6t/l23
6024
6025
6026
~(IJ27

UU11

TOPC,

4261

0"''
HH

TOAC,

124111

60:.!4
6(11:.!5
6(11!6

0Hfll

JMS
PrPC•1

TOO,

PJ'AC
0

7241

STA

4261

JMS
OHSW•1

4920

7249
1235

4261

21023

TAD

TOA,

0
STA

TAD
JMS
AMSW•1

/COMPARE Hf TH PROGlllA~ STATE
/IS MA~OR STATf OKt
/VES•RE:TUR~+i

TO-C
LOAD

/GET RETURN 91

TOiC
LOiD

/GET RnURN•i

STA

P,H:E 7~

/OEl,,ETE BITS 10 & {1
/SAVE ~OR P!RROI'
/READ ~TATr ,ROM r~P
IOEl.ETE Bl'S 1e & 11
/SAVE ~OR !RROlll

/LOAD !ME: •Pc

STA

TAD
JMS

1223
4261

(7,74

MSfATE
MStATE

TAO

1216

( 7774

MT1

IS!

JMP t

72~•

CST ATE

MTi

56H

13\37

/G[T PRO~RAM STATE GENP!RATOR

TAO

SNA CL.A

6dPRe72

MAJOR STATE REGISTER

TAO

76521

2202

v:1JQJ 3

MT2
MT2

CIA

6932

6(11!7
6041
6041

ANO
DCA
RS TATE
AND
OCA

79~1

811135
BllJl!Jt

60!3

TAO

03'7
3U1

69!11

6ra:51

.. STATE, 9J
Cl.A Cl.I.

1125
~377
31!!~0

6(Ul6

("',

/AODRt~S

0' F'PC
/L.OAO !ME ,AC

/ADDR or 'IC
11.0AD !Mt ORtG
RtTURN•i

TOO

/CitT

I.OUT

/ADDR OF' 0
11.0AD !ME A REO

TOA
L.OiD

/GET RETURN•1

1.0lD

IADDR OF A

MIN! ROUTINES
60•2

~0"0

6~43

7240
1242
4261

5044
6045

6046
6!1147
6,3!50

6051
6052

6053
6054
6055
6056
6057

6U1
6062
6063
6064
6065

6066
6067

T09,

TOMQ,

0Hl'IJ

TOOP,

7240

3011

1661
0376

3012

6e'4
6015
6016
6017
61f.10
61QJ1
611112
61QJ3

3412

1411
6012 3412
6QJ13 Hh
1661
77Ul

14h
0315
3412
7300
54121

6•APR•72

13131

p;ACE

/l.OAO !HE A RE~
TOB
l.OAD

/GET RETURN•1
/AODR or a

:'
STA

TOMQ
HO
JMS
1.0AD
MQREC•1

/AOOR OF' MO

/l.OAO OP A~OR

STA

TOOP
JMS
1.0AO
OPAOR•i
TAO

1254
4261

1411'/J

.,.

UD
,)MS
9MSW•1

0001'/J
7240
1247
4261
('!031

0043
0001'/J
3"11'/J
7361'/J

VH3

STA

2!1'1J26

010
6011

::1 I Al.U

CT~3)

LOA:J,

OCA
10
STA STL.
TAO !
10
OCA
11
TAO t
1.0AO
( 3;71
ANO
OCA
12
TAD !
11
OCA t
12
TAO t
11

OCA 1
TAO t

1.0AO

SPA C:l.A
TAO t
11
(7400
ANO
OCA t
12
CL.A Cl.I.
JMP ? 10

/GET RE'.TURN•1

/AOOR or 011 AOOR
/SAVE RETU-N
/GE:T rROM ACOR
/SAVE ~ROM AOOR
/G!:T TO ACOR
/GET M~W

/STORE MSW
/GtT 1.~W
/STORE I.SW
/L.OAO EXT J
/YES • G£T THIRO WORO
/SAVE ~ BITS ONl.V
/CL.EAR OR LOAD EXT

~
I

MINI 11Jl.iT!~ES

0141.10

(TR3)
APTPAC 1

7'02'0

61~5

12144

TAD

612'6

712'4

RA\.

61~7

7006
U54

TAO

6115

RT I.
HO

7104
721216
1''41

RT\,,

6120
6121
6122
6123

000,21
1UJ21
6563
3 211!! 2

6124

6564

6125
6126
612'1
6130
6131
6U2

:3H3
1H2
1041

6133

6134
61!5

6136
613?
614i/J

6141
6142
6143

e;4~E

8t!

OPADR

/PlEl.D BtTS OF OP lD~R

P84SE:

1r1t1.o BtT5 or P~ iO~R

X0ADR

1r1t1.o B!T5 OF x~ iDOR

Pr Fie

1r1t1.o B!T5 or FPC
/RETURN

RAI. Cl.I.
TAO
JM!' t
COMP01

AF'TPAC

21
Cl.A

ROMSW
OCA
ROI.SW
OCA
TAO

Cl A

/REAO OMSW rROM rPI'
SAVOM
SAVOI.
SAVOM

OMSW
TAO
SiA Cl.A

Ul21
1640
530
121113
7041
1022
., 6 521
57H
11141
41131
0121
5120

13l37

IU\. Cl.1.

701216
1065

5704

6•4pR•72

('.:I.I.

RT\.

7U4

6116
6111

VIZl213

612'4

6110
6111
6112
611.3
6114

TAO

OR ERR
SAVOI.

TAO

OLSW

TAO
JMS
ERROR
JMP !

STEP
ERR

JMP

Cl A
ORERR1

SNA Cl.A
COMPO
JMP t

/COMPARE Wf TH PROG QMSW
/IS OM~W CORAteT;
/NO • 90 TO ERROR
/COMPARE Wf TM PAOG OLSW

/IS OL~W CORRECT;
/Rl:TURN

H21

COMPO

=~-

MtNt qOt.:TtNES
6144
61,45

61'6

6147
6151/l
6151
6152
61'3
61'4

61'5
6156
61'7
61H

6161
6162

6163
6164
6165
6166
6167

:'10~0

01/llll0

71H
''i0
7120
3030
1430
7240
31H7
3031
57!16

si!I.

6177

7114

PA!;E 8!

Al.SW

/CHECK S!G~
/SAVE ~lGN IN ~I~~
/STORE 1.sw
/WAS 1.~W MINUS 7
/YES • MSW • 7171

AMSW
AElCT
STRA

/CLEAR E)(T
/RtTURN

Bl.SW

/SAVE ~l~N IN klNK
/STORE L.SW
/WAS SIGN MINUS ?
/YES • MSW • 7777

BMSW
BEXT
STRB

/CL.C:AR EXT

STA

DCA
OCA
JMP

STRB,

13137

6•APR•72

Ill

C:l.L.
SPA
STL.
OCA
SiL
STA
OCA
OC:A

JMP t

/CHECK StGN

/RtTURN

7317
56210

3717
6211l0

'''·

DCA

3025

?'430
7240
3024
3026
5744

v0~3

Cl.I..
SP4
STI.

7510
7120

7400

STRA,

7100

61'3
6114
6115

6116

::lIAl.10

CTll3)

PAGE

·,

~lN!

ROLlT!~ES

64'.'!'l
62'"1
~2~2
62~3

621'4
6205
62'.'16
622'7
6210

62i1
6212
6213
6214
621'5
6216
6217

(TR3)
~000

'.)1 Al..1'!1

SET:JP I

72210

1377
3010

6211

14U
3105
1410

3233
14111!

eor

10
1QJ

TAO

/GET MAJOR STATE WORO

DCA

CSi'ATE

HO
OCA

1'!l

/GET TEXT AO!:lR

ENi'TXT
UJ

,•2

JMP
Cl A

BAONWS

6201

eor

7604

L.AS

!!!"
tNhP

TAO
SE:'i'UP
SH CL.A
SE'i'UPU
JMP

5204

6223

0376
'16•1

ANO
CUl1J
SU Cl.A

5232

JMP

7684

I.AS

6226

620

6230
6231
6232
6233

6234
6235
6236
62!7

( 21U
ANO
SNA Cl.A
SETUP
JMP t
TYP
JMS

"3'5

165QJ
560fa

41'4'
270
0H0

ENTYP1
ENTTlCT 1 CRl.F'

U7!i
76411J
41731
56Ql0

6242
6243

6201
7402

6244

5243

62•5

0(1100

15 WRON(';

/SOMET~l~G

/CHECK F'OR PROPER lOORess

/RESET PROORAM F'!E~O
/GET SW 5
/TRACING PROGRAM 1
/YES • TVPe £NTER
IGtT $W 4

/STOP ON ENTER ?
/NO • RETURN

/TYPE: ENTER

I.AS
( 2tlll1J
ANO
Si!A Cl.A

7604

624QJ
6241

/GET ADDRESS or TAe1..r

TA!)

JMP

5215

SETHB•1

PA(';E 62

OCA

TAO

5242
,041
1200
7640

13\37

6•APR•72

2'
Cl.A

7440

V003

6220
6221
6222
6224
622!5

BAONWS'

JMS
JMP

SETUP

cor

l!IQI

I-IL. T

JMP

ESTOP 1

l<EYCI<

·, •i

/GtT SW 4

/STOP ON ENTER ?
/YES • WAIT F'OR KEVBOARO tNPUT

/PROGRAM MOST 8E ~~ LOAOEO

---

~~-~~~-----

;o-

-~-~"~~~~-"~-- -~=-="--·--·-------------------------

"4%Nt ROUTINES

GAPT,

6246

0J00

~241

4262

6250
6251

5646

6252
6253
6254
6255

3030
4262
0041
5652

GPC,

6256

0000
4262
3044
5656

G0? 1

3H0

GET,

62'7

62U
6261
6262
6263
6264
6265
6266
6267
621111
6271
6212
62'3
62'4

62,,
6216

'12H

1662
3UJ

2262
1513

211113
3372
72,,06
111104

13'1
3JOJllJ

6271

3UJ3

6381

UOJ3
621111
5662

6JIU
6Je.i;J

JMS

?APT
JM? l

2!047

UH 6201

~IAL.10

CTR3)

V003

GET

JMP I

GPC

3
CL.A

TAO t

oc•

lS!
TAO I
ts!

GET

T1
GET
T1
T1

TAO
OCA
TAO l

,•S

TAO l
OD'

JMP t

/DATA AOORESS

/OUTBRK UStNG rPc
/GET OATA
/AODRE~S or OATA
/OUTBRK USf NG OP A50~ESS
/GET DATA
/CATA AOORP!SS
/GET DATA

cc•
cor

I GE'.T 0 ATA

GOFt

ANO

Cl.I. RTI..
FUI..

PACE 8:!

GVT

JMS
OPAOR
JMP 1

13i37

/OUTBRK US!NG AODRS
GEi'

JMS

PF'?C

6•APRe72

/GET ADDRESS RfG!S'E~
/SAVt

/INCRtMENT RETURN
/GU n El.0 Btts

/INC T~ RlCHT MAL, or REG!STtR
/J an' ON~V

/MOVt ~ BITS 1.EF'f

(6201

/CRtAT~

T1
Tl

/SAYE

T1
l'J0

GET

CO, !NST

/GET AISOLOTE lDORESS

/CHANGE TO CORREtT 'IE~D
/GtT CATA
/RESTORE OlTA rtEl.0
lfi'tTURN

/---

~
I

Mt~t

::i:..:"!~ES

Ol Al.U

CT=13)

v'1lel 3

6•APR•72

1313?

P,UE 84

ICMECK SR0'
"3"'4
6325
630
6307

6JU
6311
6312
6313
6314
6315

6316
63i7

2'0~0

76214
~3?'6

7650
5316

1704
3314
47141

TRSi<P1

I.AS

(120
ANO
SNA Cl.A
·, •6
JMP
TAO !
TRSKP'
OCA
,•a
TVP
JMS

ZZ00

~012!0

2~04

! Si!
JMP t

5711.14

/GtT SWtTCM 5

llS SWlT~H 5 SET 1

/NO • BVPA~S TYPEOOT
/G~T TtXT AOORfSS

TRSKP
TRSKP

/CMECK OP AOORESS
63221

6:521
6322
63U

6324
6329

6326
6321
6339
6331
6332
63J3
633'

1ame

6566
3121
1145
1!041
1121
76'1
!7U

...,,
.,
'-'"'
e;s
21111

!7U

CKOPA01 21

Cl.A
RCOP
OCA

TAO

CIA

SAVOI'
OPAOR+!

TAO
SAVOP
SNA Cl.A
JMll J
CKOPAD

TAO

STEP

ERROii!
JMP t

JMS

£Riii

Cl<OPAO

/GET OP ACOR r1110~ fpp
/SAVE FOR TVPEOU'
/GET P~OGRAM OP loeR
/COMPARE TM£ A00RE9SE$
/,PP OP AOOR CORRteT 1
/YU

/NO • GET ~C
/GO TO-ERROR ROU'l~E
/OP ACOR tlllROR coor
/RETURN

MlNt ROUTiNES

6335
6336
6337

1105

6340

IZ!U6

63•1
63•2
63•3
6344
6345
63'6
6347

63'3

Sf;TST5 1

TAD
ANO
TAO

OCA
JHP l

susn. 0

Cl.A

TACI

ANO

TAO

OCA
Jt1P I

6361

3185
57'3

DCA
JMP l

6363
6H4
6HI

14tl

6H7
6310

!Hf

6372
63'3
6314
6375

7311
02H

6361

6366

63'1

63'6

63'7

()

TAO

hAPRe72

13137

PAr;E 8,

/SET PROG ~TAT! '
CST ATE
C3t7
C2"H

CS UTE
SE'tST5

/SET P~OC STAT! 3

CShTE
C3t7
CUH

CST ATE

SETST3
/StT PROG !TATC 6

StTST6 1 0

Cl.A
TAO
ANO

6395

VH3

Cl.A

72H
1US
0166

6396
6397

U65
:511115

63!2
6394

I
--------·

2'000

'12H

5135
CIJIH
12H
118'
U66
1364
31H
5744

639111
6391

OIAl.111J

CTR3>

CstATE
nt1
CHH

CStATE

St1'ST6

nt1

nl1

62'1
0H7
111258
l'IJUt

U77

64111

PAGE

)

MINI R::)UT?NES

DlAi.10

( Tll!3 l

V003

/NOR~Al.ltE

642'0

l'lkl!30

64211

122'0

64~2

64U
64214
64tll5

641116

641!!'1
641121

6411

Si!A 01.A

1650
!!Ullll

6~U

n.~4

7530

6420

,. 4 U
5224

14!11l
14181

6421
6422

5244

6423

5244

6424

3021

642,
64H
6427
64H

U22
'711!14

6431
64!2
6433

6434
64!'
6436

1,l!llll

3122

JHI'

TAO

Sil\.
1$1

11U
3023
1430
2022

644111
6'141
6442

13,6
H'1

111J'1

5201

6444
6445

,. ii illl

6446

5U0

3021

01.SW

,•6

OMSW

OMSW
Ot>CT

TAO
C14H
ANO
RAl. CL.I.
OEXT
OCA
Si!I..
01.SW
in
SH REG
TAO

1123
Z3'7

TAO

><NENO,

DA~E

TME 0 R!:GIS!ER

Cl.I.. fUI.
Ci. I. IUI.
SNA Cl.A
JMP J
XNORM
TAO
01'1SW
XNC:t< I
Cl.I. IUI.
SPA HI.
SKP
NXSHF'T
JMP
SIL.
S!<P
XNENO
JMP
SMA
JMP
XNENO
NXSHrT, OCA
OMSW
01.SW
TAO
Cl.I.. RAI.
01.SW
OCA

700
21121

6431

64'3

Cl.A

1~40

5212
1021
1104
'1"'4

13131

6•APR•72

TAO

6414
6415

6417

X~OR~,

10~2

uu 1121
Uh

DCA
JMP
FUR

oc•

JMP l

C•i

SHREG
XNORM•i

/GET 0 REG i.SW
ll S IT i!E'.RO
/NO•NORHAl.ti!E !T
/GE:T 0 R!'.G MSW
/REMOVE RITS i ANO 1
1 l S 0 MSW

!ERO
/Y[S•RETURt-J
/G£T OMSW /SM l F'T i.EY,'
/ARE BITS m ANe i aoTH i!ERO
/NO
/YES•NOT NORMA~l!EO
/lS BI'! l!l•I
/YtS•CMEC:K BtT 1
/NO•NO lS NORMli.f i!fO
/lS Bl! 11{
/NO•NO lS NORMlL.!ifO
/YES•NOAMA~l!E NUM~ER

/GET 0 RE'.G L.SW

/SMP"T OUTt
/YES•INSER' iN'O MSW
/GtT tXl

/SAVE ' Bl'S ONL.V
/SMJrT L.E'."
/SM l F'T OUT 7
/YES • INSERT lN'O ~SW
/DECREMENT SHI'T RtG

/CHECK N0 1 AGA!N
/RE:STORE M~W

OMSW
XNORM

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

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

MtNl

~JL'TtNES

64'7
6'50

(Tq3)
210H

01 AL.U

XPUTX I

T2
PIR

3104
10!51

6453
64!54
64!55

10!57
33,1213
13.04

6456
64!57

3503

TAO
OCA
TAO
OCA !
JMP t

64U
6461
6462

1H0

646!5

'7aiiJ
'71i2

1::1. A CL.I.
TAO
PlR
( 721
ANO
RAR
RTR

6466

U73
!193

OCA

603
6464
6467

k"315

!5647

121H0

tNOEX1

10!1

H74

'""
HH
4261
6473 HH
,,,. , .,

.. .
,.,,
,,.
64'1
6472

JMP !

"''6 111111
426'
6511

6512

651114
6595

6516
651!1
651'

6511

6512
6513

65i•

1HI
!6'6

'"'
11'1
1381

'""

57m2

6520

1131

6521

71'/JU

6522

l'l3'7

5523
55H

:!11"31
2111'1

6525
6526

~
\

lN!tx

/GET INDEX REG
/'lNO ADOR OF' X
/CtT OATA fN X

5307

!Ii., 1112

/INCRE:~ENT

TAO I
-IMP I

SHl'fB' QI
CL.A CL.I.

XGr:TX

/Rt:TUAN

ISMI'T B UNT!L. SM'' CN••m

TAO

SHAEG

JMP 1

SHfF'TB

IGET SM!F'T REG
/$HF'T CNT•tl?
/V£S•OQ NOT SMf

BMSW

/NO•SMl,T !MSW

OCA
TAO
FUR

BMSW
Bl.SW

/Sl·!lrT B I.SW

OCA

Bl.SW
BEXT

/SMIF'T 8 EXTE'.NTlON

(7'00

/USE ONL.V 4 BlTS

SNA CL.A

STL.

651'

6516
6517

/RETURN

'712il

3127
1031'/J
7110
303111

/AOO TO ADORES! 0, xm
/U\IE X AOOA
/RETURN

XPLUS1

Cl.I.
TAO
SP4

11111il

1rtNO f NOt~ REC SP~Cf FfEO
/BV Bl!S 6•8 or fPP tNSTRUCTlON
/GET INSTRUCTION
/£XTRA~T X BIT!
/AlGMT JUS'l'lrY

JHfll 1

JMS

RAR

RAR
ANO
OCA
?S!

JMP
JMP J

/PUT DATA !N INorx R£G
/SAVE DATA
/GET INSTRUCTION
/EXTRACT B!TS ••11
/AOO )(0 AOOR
/SA\IE AOOR
/GET DATA
/STORE OA T4
/RETURN

tS! t

NOii'

1Ut
U21
751111

PA~E

13137

X
/GtT AODR OF X JN ,1
/INC lC

JMS

XGt:TX1

cxm

TS,
INOEX

6•A?R•'12

ZNOEX
T1

>CPL.USS. I GI

!6'1

PX!'
T1
T2
T1
XPUTlC

TAO

6470

OCA
TAO
ANO

6451
641J2

l -

V003

BEXT
SHAEG

SH!F'TB•5
SHf rTB

/SMIF'T CNhllJ?
/NO·S~U F'T lGA l N
/YE'.S•RETURN
/

MIN! ROUTINES

CTR3)

65~7

2~00

65312!

7340
112! 5 0
3050
14!1!1

6531

6532
6'33
6534
6535
6536
6537
6540

1040
1041
3047

6541
6'42
6543

HH
Utz

65H
6545

OlAL.1111
4PTOEC 1

HO
DCA
SNI.
CMA
TAO
OC:A

01<sue,

13!2
5741

65!2

6513

02H

0'4

219'0

6515

0H7

"
''
6517

71'1
HH
66210

PROCRAM
/APT P0%NT~R
/12 BIT AB!OLUTE ADDR·!

PAPT•1
PAPT•1

/OVERr1.01n
l"!'tS
/F'tEL.0 BtT!

P All' T

PAPT

/RETUi:tN
/SKtP

CKST

TAO

PI R

zr l~STRUCTION IS

/NOT A SUBTRACT
/GET INSTRUCTION
/SUSTRACT1

SNI.

/NO•tN~RrMtNT

Cl<SUB
tU
01.A Cl.I.
Cl<ST
TAO
CK!IUB
JMP l

CKST,

PACE ee

13137
/~ECREMENT

0
OCA

RTL

7H6

65'1

6•APR•72

01..A 01.1..
AP,OEC
JMP l

11!1
7420
2341
7300

V0213

STA OL.1..

7300
5127

6546
6541

65'RI

/RE:STORE Ae
/RETURN

PACE

--------

RETURN

MIN! ROUTINES

OlAL.10

( T~J)

/C~EC:K

6U0
66"1

1?000

66rll2

1317
3133

66m3
6604
66215
66U

661'1?
66S:eJ
6611
6612
6613
6614
66~5

324~

11"'3

7941
U75

37141
17141

3eJU
7eJ41

19'5

OCA

AND

'111114
'1H6

66'1
6632
6633

6614
6635
6636

6637

664eJ
66•1
6642
6643
6644

6645
6646

TAO
OL.L. IUI.
RTL.
TAO

n1a

usa

CMCM 1

14h
6211
71'1

OPiOR
(1

·,.,

ccer

CD'

CO'

uo l

OlA

1411
76911

!J2'5

41111
0H2

OCA

MC00£1

!J24?

TAO !
UJ
SNA CL.A
JMll
• •!J
uo
CMEM1
JMS
ERA
Hl2
ERRO"

JMP

tsi!
JMP
JMP t

2U3

,•3

T1
CME:H
CMEM1

66•1

5232
5611JeJ

665eJ
6651

7300

CL.A Cl.I.

12!J0
32 l!JeJ

OCA

CMEM2
CMEM1

1040
5202

JM!'

C:M!:M1+2

66!J2

66!1JJ
6654
6655

eME:M21

CMA

PAr;E 89

/GE:T COUNT

/SAVE COUN!

11 OR 2 WORO ERROR COO£
/MOVE COUNT TO BfT! 6•8
/MEMORY £RROR eoo£
/STORE roR ERROR
/GET WORO eouNT
l•OD COUNT TO BASE AOOR
/SAVE roR ~RROR REPORT

/GtT OP AQOFIUS
1i;u

nt1.o ens

/Otl.tTE: £X,FIA !IfS
/HOV£ 3 RlTS 1.!rf
eo, tNSt-ueT!ON

/CREAT~

IMOOO'Y PFleGRAM

/UStR '.ltl.O
/~tT r~P OU A

/l'ROCIUM 'fEl.D

/PROGRAM OITA
/IS 0Ai4 O~ t

/YES
/NO

/GO TO tRROR ROU,tNE
/MEMORY £RROA eooE
/RtTUAN
IYES••tNO or COMPARE?
/NO••COMPA~E NEXT WOAC
/FltTURN
/COMPARE MEMORV rRAOTION

TAO

13137

/COMPARE M~MORV ~XPO~ENT

311111

66U
6627

\
',

?~41

0376
'1106
'1804
1316

66H
6623
6U4
6625

• Ii

6•Af'Ra72

DATA TH£ rPP STORED JN ME~O~Y

C:l.A Cl.I.
(•i
TAO
OCA
T1
TAO
T1
c14
ANO
12
Cl.I. RTI.
RAI.
(2
TAO
MCODE'.
OCA
TACI
Tl.
Cl A
TAD
CE:M£M•2
SAVMEH
OCA
TAD
SAVHEM
OCA
u
CHA
OPlDh!
uo

?300

6616
66{?

6621
6622

C"1EM1 I

VH3

/GET RETURN

/S(T RETUR~ TN EXP COM~ARE
/AC:••1
/GO TO EXPONENT eoMPAR~

MINt

l:iOUT!NES

I""\
OlAL.Ul

(Tl:i3)

VQIQJ3

6-APRw72

13137

PA!;E 9~

/MOVE USER lNOCX REGS !O PROGR4M lNOEX RcGS
6656
6657
66H
6661
6662

6663
6664
6665
6666

6661

001110

PlND~X,

u.o

'7H6
13'72
3a14

724el
1f/J66
:Stlie
11"1

:Sti1
3183
62fl1

XUOR

eu. RAL
RTL.
TAD
CCOF'
PlNCF'
OCA
SU
TAO
XhDhi
UI
cc•

'7UJ4

"'' 1367
667·1
6672
66'3
6674

/SET PROGRAM

Cl.A CLL

73H
1J6S

PINC,,

TAO
DCA
TAO
DCA

uo !

/USE!' F'!E:L.r5

CD'

52,4

JMI'

PINCF'

671112

5696

6713

,,,.,.

'DCA
DCA

AMIW
ALIW

JHll l

CLUX

,,.,
6714

67'6
671!17

3H4
Hts
3126

JMP I Pl NOD
/CLEAR THE A REGISTER
CLRAXa

DCA

57'3

AEXT

/CL.EAR TME B REGISTER

67U
6711
6712

67i:S
6714

HH
3131
3127
:sn1

CLABX1

"'OCA
DCA
OCA

57U

JMP !

BL.SW
BMSW
BEXT
Cl.ABX

/CLEAR THE O REGISTER
671'

6716
6717

6720
6721

0H"
3el21
3022
3el23
5115

Cl,,ROX1

OCA
"'
OCA

OMSW
01.SW

DCA
J~P

/USER INDtM PO!N•t~
/COUNT

Utll
:S4h

DCA t
I Si!

/CREATE eo~ INST
/MOO lF'Y F'ROGRAM

C•U

CO'

/USER INDEX PO!N'E~ r1~1.o BITS

/ADOR or PAOG !NOE)( ~EftS

66'6
66,,
67H
6711

R£GS

CU•1

u
H
u.

6675

INO~X

OEXT
Cl.ROX

'"'OGRAM r !ELD

/"NISl'.IED?
/NO
/RETURN

•

MJNI RQUTiNES

CTR3)

OUL.U

VHJ

13137

hAPR•72

PAt;E 91:

/INCREMENT TME 0 REGlS!ER
6722
6723
6724
6725
6726

6727

eHQJ

'Jett
~111

JS!
,JMP J

2"22
5722
7HrlJ

6131

5722

6132

nee

U66
311!15
5732

OL.SW

/lNCOR•INC TME 0 RrG
/Cl.E:AR OVtRF'LOW

/INC L.~lil
/RETURN

OPL.US1
/INC OMSW
IS!
OMSW
NOP
/RE: TURN
,JMP l
OP~USS.
/INCREMENT TM£ PROGRAM STATE G~NERlTOR

211121

67!1/J

6733
6134
6735
6736
6731

OP1.US1, "
Cl.A CL.I.
OCA
ov;i.

STlNC1

/lNCST~lNCAEMENT TM£
/,AOGRAM Ml.IOR StAtt GfN~

Ill

Cl.A Cl.L
TAO

TAD

OCA

.IMP

CStATE
(411

CStATE

STfNC

/RtTURN

/DOES !NST~uettON STORE THE AN~WER IN MEMO•Y '
67•111
6741

HH
1HtlJ

6742
6743
6744
6145
6746
6147

1191

6791

2i149

7491

5U2

OH 7640

67'2

67'3

,,.,

1Ull

6 763
6764
676'
6766
6767
67?0
6771
6772
6773
6714
6715

:i!706
02103

6716
6717

1717

C-)

MEMINS, I
CL.A CL.I.

/SMlP I, ANSWER ts NOT to co TO "'"OAV

TAO

PU!

TAO

C•IHllJ

JMFt
TAD

C•UH

AND

SNA
SU Cl.A

C7iJH

•••

MEHINS
IS!
CL.A CL.L
,JMP t
MEHlNS

/(;ET I NSTROCTl "N
/EICTRA~T

0, eo&t

l'ADOMt

IYU•R~TURN

/'MUL.tO
/NO•INQAEMENT REtU•N
/RtTURN

6111110
JHI
7HQI
04H

7171
0177
7317

621111
111H7
001112

'""'"

PA\;(
/~,,

()

"""'

M1Nl ROUTINES

....-..

..-..
0141.Ul

(TRJ)

V11JG13

13i3?

6eAPrh72

PA~E:

/DECREMENT TME OP ADDRESS
701'!0
'10211
1~0J2

'101!!3
71211!!4
?llll!l5
7 0fl6
70f!7
7010
7U1

el0Q!Z
134i'l
:LS-45 .

3045

OPOC:e 1

"Cl.I.
ST4
TAO
OPAOR•1
OCA

742111
711140

SNI.

1044

TAO

3044
73e0

Cl.A CL.I,;

560111

CMA

OP ADnR~SS
/AC••1
/12 91! ABSOLUTE ADO~
/OECREME~T

OPACRH
OPACR
OPAOR

IF'I El.O BIT~

OCA

JMP 1

OPOEC

/RETURN

M!Nl RourtNES

01AL10

<TRJ)

y0"'3

&•APRe72

13i37

F'AOE 9S

/ADD A AND 8 REGISTERS A~O STORE TME
/ANSWER IN TME 0 REGISTER,
/TMIS ROUTtNE ANO "SUBAB" SIMULATE THE
/ARITMMETlC ruNCT10NS or THE ADDER
7Z12
1a13
'014

1a1s
7016
7017
702Z

1021

~ 012l 0

1026
1031
10,6

7034
U24

7H:S
7034
71J35
7U6
7H7
7940
7941
7942
7043
'U4
71)45
7'1146
1i147
11(15QI
11(151
1052
1053

1054
7055
71356

\.~"

TAO
OCA
RAI.
TAO
TAO

1025

7025

7832

TAO

3023
7024
1030
3822
3016

OCA
OCA
FUI.
TAO
TAO
OCA

U27

3021

RAR
OCA
JMS 1
JMP

7911
3111,7
4922

5254

TAO
RAl. Cl.I,,;
Cl.A

1124
7U4
?iH

1827

7531
71HZ
7130
5255
102'4
110'4
7200
1021
15H
70U
?730
7340
3111
5612

/AFBO•A Fl.UST 9 TO 0

Cl.A CL.I.
TAO
AEXT

7J00

7822
7023
7024

7026
7U?
7030
7Ql31

A00AB 1

SETF'L1

BE:n

C:AAY!N
OElCT

AL.SW
BL.SW
OL.SW
CARVIN
AMSW
EIHSW
OMSW
CAROUT
CSPEC'I.
S£'F'L
AMSW

BMSW
TAO
SPA UL
CMA CMI.
SPA HI. CL.A
JMP
SETF'L•!
TAO
AMSW
RAI. CL.L
C:I. A
OMSW
TAO
SPA UL
C:MA C:M~
SPA UL. C:LA
SU CL.I.
ov;L
DCA
AOOAB
JMI' t

/ADD EXTENSIONS
/AOO CARRY lNStRf
/lNSER! CA~RY OU' Of EXT
/ACO 1.§W

/RtSET CARRIN tN
/INSER! CA~RY OUT or SlW
/AOO M~W

/CARRV OUT TO SIGN B!T
/SAVt QARR¥ OUT
/CMECK ,OR 40zm meBlll IN 0
10 • 4Zl0 !1110111 SPtellL OVt~F'l.OW
/CMtCK OVt"F'LOW
/SIGN ~, A JN LlNK

/GET B S!GN

/ARE 8DTM SIGNS POI
/ND•COMPL.IMENT
/ARE 80TM llCNS NE$
1NO•NO ·ovt"ri.:ow
/GET SlGN er OF"E~ANC
/SAVt lN T~E L!NK

/GET SIGN OF' ANSWE~
/ARE 80TM SlGN9 ~OS?
ICDMF"L.IM£N1
/ARE SOTM Sl~NS NEOT
/NO•SE! OV~RrLOW
/STORE OVEAF'LOW
/Al'.TURN

~
I

M11\ ! l1~1.iT I ~ES

(T~3)

DlAl.1"

V003

fl•APR•72

13137

PA~E

/SUBTRACT B rROM A AND STORE THE
IN THE 0 REGISTER

/ANS~ER
1~51
1~.U

7111& 1
7iZJ~2

'ii'l6 3

7iZJ64
71365
7066

'"6'

'"'il
''12171
7iJ72
712173

10'4

712115
712176

7017

71U

11111
11112
7U3

11114

11n
71116
7117

11u

Z000

SIJBAS1

7300

C:l.A C:l.1.

1312

TAO

71214121
3312
112131
7040

CMA
DCA

1377

TAO
ANO

TAO
CMA

0376
3031
193121
7040
7430
111/l1
303121
1027
71214121

oc•

TAO
CMA
SZL
?AC Cl.I.

SUBSW

suesw
BEXT

( 4Qll1J
( 7 412121
BElCT
Bl.SW

oc•

Bl.SW
BMSW
TAO
CMA
UL
?AC: Cl.I..
BM!IW
OCA
suasw
TAO
SNA Cl.A
·,•3
JMP
APIO
JMP
SUBAB•1
Cl.A CLL
suue
JMP t

?4!121

7101
3127
1n2
'16!0
5Ue

45'6
52H

71H

/AMB0;A ~!~US B 'O ~
/NEGATE 9 AND ADD
/GET PASS ~w neH
/COMPI. H1ENT
/GET EXTENST!ON
/NEGATE: EXT
/4 BIT~ ON~Y
/KEEP IT 4 B!T!
/GET 1.~W
/COMPl.lMENT
/CARRY OUT or EXT1
/Y£S•AOO lN C:ARRV
/GET MSW
/COMPL.lMENT
/CARRY OUT or ~SW
/YE:S•AOC IN CARRY
/GET PASS SWITCH
trlRST PASS?
/NO•SUBTRACT COMPl.tTE
/AOO A ANO M!NUS B TO
/RUTO~E: B REG
/R£TURN

1111

56'7

'112

111H121

suesw,

7113
7114
7115
7116

11112121 i}

ou,

/SKIP IF' Oil121

Cl.A Cl.I..
TAO
OMSW
SU Cl.A
JMP 1
OE!
TAO
01.SW
SNA Cl.A
ts i!
OEi!
OF:i!
JMP !

/0 MSWl!Ql'/
/NO•DO NOT Sl<ll'
/VES•ClofECK I.SW
/OL.SW.rl!1
/YES• I lllC RETURN

7117

1120
1121
1122
1123
7124
1125
1126
7127
1130
7131
7132
7133

7134

73e!121
Ul21
7640
5713
1022
7650
2313
5713
I' 1210 Ill

73013

1'J3 6
7640
"i724

1037
7b50

2324
57:?4

AE!! I

('!

Cl.A Cl.I.
ACMSW
TAD
5:4 Cl.A
JMP l
AEi!
TAD
ACL SW
SNA Cl.A
Ae:t
ls i!
AEi!
JMP l

/SKIP tr F'AC•rll
/GEi rAc M~W
/MSW•0?
/NO•RE!URN
/GET fAC 1.~W
11.SW•l!l?

/VES• l NC Rn URN
/RETURN

--------~-·~--~

Ml~!

~~UT!NES

7l'35
'136
7137

;312l00
?JeJlil
Ul36

7140
'1•1
1142

77U
2335
5735

7143
7144
7145
7146
7147
11,ra
71!1

210210

4335
7410
5743
4324
2H3
5143

'1'2
71'3
71!4
71'5

7H0
1111
7650

71'6

!57'2

71'7
7161

7161
7162
7163

7164
716'
7166
'167
11,ra
71'1

0H0

1023
7114

38U
1122

?H4
3022
UJ21
70214

'172

3"21
2071
5357
5752

7176

700

7177

0400
'2QJ0

~-....

0141.10

CTR3)

AL. i! 1

VHJ

ACM SW
TAO
SP4 Cl.A
IS!
Al.!

AG!,

IS!
JMP 1

J1S F'AC: MINUS

/YtS•lNC RfTURN
/RETURN

Al. i!

/SKlP IF' r4c IS CR£ATE~ TMAN 0
/IS F'AC MlNUS
/NO•CHECI< lF' ra
/VES•OO NO,. SK!P

SKI'

JMP t
JMS

/GET FAC MSW

AL.!

JMS

AG!
AE!
AG!
AG!

/IS F'AC eJt

/NO•lNC R£1'URN
/RETURN
/SHlF'T 0 1.!F'T UNTl~
/SMlF'T CNTlh0

SHtF'1'0, 3
Cl.A Cf.~

TAO
SHREG
SNA Cl.A
SHf FTO
JMP 1

/SMl'T CNTd

/YES•NO SHfF'T

OtlCT
TAO
Cf.I. !UL.

/GET &;>ITE:N'I' I ON

TAO
RAI.

OEXT
01.SW

/GET 1.~W

OCA

01.SW
OMSW

/GtT

OCA

OMSW
SHREG

OCA

TAO
OL.

IS!

JMP
JM!l' t

PACE 95

/SKIP Ir F'AC IS NE~

Cl. A Cl.I.

JMI' t

13i37

6•APR•72

SHf F'T0•5
SHf F'TO

M~W

/SHlrT CNTlhU
/NO•SM IJl'T AGAl N
/YES RETURN

PAGE

•

MINI ROUTiNES

Dl 41.UI

(T~3)

VHJ

6wAPR•72

/F'PP•12 ARiTMMETIC
72:'!0
7201
7211'2

5273

INS0,

f:l,.'.)A

72~7

3467
3257
3000
5247
3257

PF'ADO
PF'AOO
Pf'OlV
F'MUl.T
PF'ADO
F'STA
r.:'MUl.T

72U

5273

F'l.DA

26,21
3467

PF'OlV

72~3

72214
72~5

72216
7211
1212
7213
7214
7215
7216
7217
12H
7221
7222
7223
72U
7225
7226
7227
72H
7231
7232
72U
7234
7235
7236
72!7
7248
7241
7242
7243
7244
7245
7246
7247
7250
72'51
7252
7253

t""

3l1HIJ 0

3000

DPADO
DPAOO

265il

3257
2650
5247
3257

5He

urn

5H6

51!7

511111
52114
511117
52122
52H
5197
4642
4618
16'3
1653
1653
1653
04H
nei2
0600
0506
OJ5U

7352
12'416
0436
r.'!456

0663
0542
!'1452

INS211

F'MUl.T
OP ADO
F'STA
f'"lUI. T
JEQ
JG!:
JL.E
JTlllUE
JNE
JL.T
JGT
JAi.

SETX

St TB
JU
JSR
sPtc21•3
SPE;CU•J
SPEC21•3
SPECU•3
CNTRl.Sa SA
RA
AS
RT
RF'
TV

CM
EX
1.00P
SH

Cl.
EA

13i31

PA!;E 96

INSTRUCTION~

/f'l.DA
1rjP, ADO AND sue
/F',P, ADD ANO su~
/F'OlV
/F'MUL.
/F',P, ADO lND sue
1rSTA
/F'MUL.M
IF'l.OA
/O~P. ADO ANO sue
/D~P. ADO lNO sue

lf'OlV

/F'MUL.M

/OeP1 ADO lNO su~

tF'STA
/F'MUL.M
/TABL.£ or !NS,~Uc1!0N
/ADDR£~S£S F'OR SPEelAI.
/F'ORMAI 2 OP COO! I
/JUMP Al.WA¥S CJA,

~IN!

~:'.J"!!llES

OIAl.10

CT~3)

v003

6.,ApR,,72

t3i37

PUE 91

/SET RETURN f"QR AUTQ RESTART

5654

SET'lt:T, e
Cl.A CL.I.
TAO
CSTF"PP•2
RETURN
DCA
SETRET
JMP I

/GET REENTER AODR or NORMAL. MOOE
!SET REENTER AOD~ESS
/RETURN

00~0

ASTER 1

IL.INK !O WORO 'ROM F"!ELO 1

'255
'256
725?

21000
7300
1377
3776'

12u

"254

7261
7262
7263
7264
7265
7266
'261

2465
00210

JMP I

5661
0"210

Tl Tl.[ I

1213
7274

7215
72f6
7277
7JH

74Ul

!5666

'Jlll2
7313
7;st4
7385

HH
47;41

7306

7312

5706

7313
7314
7315
7316

6212

1311

0H0
47731

6211
62i2

7320
13:?1
1322
7323
7324

JMP I
OCA
JMS
M0£C

~000

JMS
EC ONO
0

JMP I
WOROi.:1

5117
1U0

JMS
Ol'

JMP I

KEVl.11

TVP

c: l F'

JMP I

T'(P,

cl F'

JMP !
TYFll..

ERFI,

TVP

/MAlNDEC NOMBER

WORD
UJ

WOROI.
KEV CK

IL.INK !O K~YOK rROM rrr1.c 1

u
u

KEVL1

u
,•1

IL.INK !O TYP10 IN 'lll.0 1

/~lNK

COF'
CI F'

1121

JMP I
ERR10

ERFI

JMS I

/tCO R~VISfON NUMStR

TIT1,.E

IZl

JMS

cor

5716
012125
2' 1210121
6211
6212
4724

TlTl.E
C70H
Tl Tl.£•1

/TYPE !lTl.l ONCE Q~l.V
/CEL.ETEO A'T£R FIRST TYPEOUT
/TMIS INST USEO l'fER 'iRST £NTRY
/GtT A NOP
/DELETE SKf P INSTRUCTION

IZI

62i2
5702

7307
7JUJ
7311

ASTER

TAO

3267
4313
2612
Hel0
4U3
2712
HH

1;u1

TYP

SKP

5666
'2'"
7271 1375

1212

JMS
AST

4313

1121

,•2

!O E~R1121 IN r1r~~ 1

M1N!

Q~wT!~ES

'325
'326

'327

CTRJ>
"-'020

OlAL.10
STERR,

F"PRST

'!772'

OCA

1325

5725

7335
7336

0000
73210

'733?
'7.J•I

1335

JMS
ERROR
JMP l

4317
0004

TVPNCR, 3
Cl.A Cl.I.

TAO

OCA

'7345
7346
73'7
7351
7391

HU
6212
5751
1!1172

ASC,

1392
1353

6212

TY1

73!4

02H

7343

5'754

STSAVE

STERR
ERR
HPJ4

STtRR
TYPNCR
TYP

CO'

CO!"

"CIF'
JMP l

U
·, •i

JMP

l:'At:;E 9!!

/G£T STATUS F"ROM r~P•12
/SAVE POR ~RROR TYPtou•

/GET RETURN ADORESS
/GO TO ERROR ROUTINE
/STATUS £RROR COOE
/RE'. TURN

/TVPE WITH NO CARRil~E RETURN

STA

OCA I

13137

6•APR•72

/STATUS ERROR

CL.A Cl.L.

3JU
'7241
6211
371:1.
62ell.
5314

734<$

V003

731210
6556

'313
7J11
7332
7333
73!4

7341
'7H2

CRSW

TYP+1

/GtT RETURN ACORE:SS
/SET TVP ENTRY roR R~TORN

/SET THE AC • '711
/'I £1.0 1
/StT NO RE1URN SWI,CM
/RESTORE: 'f £1..D
/GO TO TYPE ROUTf Nt
II.INK

TO ASC11 IN 'lEl.e 1

ASCI.

Cl'
JMP I
TYU

,•i

/GO TO TY,! ROUT!Nt tN rtELO 1

MlNl ROUTINES

'3'1
'312
?313
1374

?315
13?6

(TQJ)

VHJ

1313?

6•APR•72

P4t£ 99

UD24
e'351
0250
0261
7000
~350

73?'7

UJ20

f122
2123

5465

2'124
h25
21126

llJ243
6H4
6740
61!16
6144

1127
•1:.!0
0131
f132
111133
2'1:!4
1!1135
1136
IU7
llJ1tll
•1•1
•1•2
1!1143
2'144

0141.10

2100

7113
7152

65212

71'5
7143
7124

6447
UH

66,6
61!6

6154
6131

1145

6847

1111•6
81'7

6142
6123

211,2
011J3

6732
5432

"1'
" 62135
1111'1 64,1
~1,4

6722

111155

5423

'156

5441

11J157

f161

6476
6252
6256

!J,62
t"163

6246
5600

t"164

6200

~165
~166

7"210
6527

'1'167
0110
'-"l "1
'1'172
t"'l 73
'-"174
t!'l '15
tl'1 '16

6650
6600
61U

~160

~
'

6710
6703
114Q10
111 450
'1012

.
\

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

(--,,

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

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

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

____

~)
,

•

(

.....
.,.•
°'

(

Cl
<Cl(

.....
,.,

,.,

.....

•

ID:
0..

...
•

'°

'_.
w

I'?
(<;)

ISi

l&.

&
•ri

_.
~

C"l

,,.. .-t
" ' ISi
&
&

..... l<'

,.. ,,.......
•••

(

~··

~lAL.10

F'lEi.' 1

6•APR•72

13137

P40E 99•2

1li1i11l
11111111

11111111
11111111

11111111
!1111111

11111111
11111111

11111111
11ilh11

11111111
11111111

i1111111
11111111

11111111
111lHH'111

hi1hi1
hi1i1i1

11111111
11i11111

11i11lil

11h11i1

11111111
11111111

11111111
i1112'02'0

11111111
0(111'1!01111

11111111
i111hil

11111111

11111111
iU.11110

11111111
0 0 "" 01!12!0

11111111
00000000

U.U1111

11111111
9U01HH'l0

11111111
00011111

!1iH111

00000000

hi1hi1

11!11111
11111111

11111111

11!11111
11111111

1111!111
11111111

11u1111

11111111
11111111

11111111
11Ul1111

hl1hi1
hi1hH

!1111111
hh1111

i.1111111

1.1111111

11111111

!ll011ll1J
011'0

111111!1

?:021020(!)0

11111111

12l2H
!ll31i!l0

i1111lil
11111111

11111111

lll~H

05eJZ

11111111
11111111

"6HI
e?eie

1Ht11

UH 11111111

uee

V003

lli111il

11i111h

hi1h11

1U111i1

!11U111
i1111111

11111111

i1i1hi1
HHl1i1

11111111
hi11111

hi1{111

11l111h
i1!1Hil0

11111111
8'11l!lH0 H

11111111
IHI GHUl fll 210

hi1lli1

HH11U

HHtltllh

11111111

13H

11111111

11111111
11i111i1

11'H

1'H

11111111
11111111

11ili1h

hi1h11

i6H

h1111i1

11h11h

11111111 11h11h 11111111 111111U

11i111h

11111.111

hii1111

2111J011JH!ll0

lllUllJHillJ

Hl'll1J001'll1J

HH11l1

hUhh h!i11i1
hUhh HH11U

S.'1H

11111111

111111!1

iUU.111
11111111

11hu.h

11h11h

Uhh11
hhh11

11111111
11hup
11hU 1 i1Hl2lUI

11111111
21HQJ0Hfll

11;111~~
eu.1 111

hHUU

22H
23HJ

!1111111
11111111

11111111
11i111111J

11111111
H0H000

11111111
00111000111

11111111
Hl'JH0H

11111111
0021210'1111!0

Ui1hi1

hH11U
Hh11U

2'4H
2'H

11111111
11111111

11111111
i111!111

1U.111h
11l111h

11111111
11111100

11111111
1'102100011121

00011J1!10h

U11h11

11H11U
11111111

2U21

11111111

11111111
'1111ll2f000H

Ui1i111
000011!000

11111111
C1! 0 rlHlllll 000

11111111
r/Hillll0001'JllJ

11111111
lllllJ000000

t1Uhi1

11111111

110000~0

HHhh 11!i11!.1

3HllJ
UlllZI

11111111
11111111

11111111
11i111h

11111111
11111111

11111111
11!110H

11111111
001'J011lQ!'1111l

11111111
00000000

h11h1l
l'J0001!JllJ('!0

11111111
'1101!!11111

32H
3300

11111111
11111111

11111111

1111!111
11111111

11111111
11111111

i11U111
102100000

111111U
1'!0000000

11111111

1'!00000~0

~0001111

34"2!

3500

11111111
11111111

11111111
11100000

11111111
1111111111

3600
J71ZJl1l

11111111
11111111

11111111
1li111il

11111111
11111111

11!.11111
11111111

11111111
11111111

!1111111
11111111

11111111
10111111

2., 211/l

~
\

"·

~fllHllHt/J

hH1111

~
F'IE;.i'l 1

DlAL.Hl

V0~3

6•APP•12

1313?

PA~E

9~·~

11111111
11111111

11111111
11i111i1

11111111
11211210<H~0

11111111
IZIH1212!01!10

111:1.1111
121011lHriH'l121

111.11111
12101!112101210121

11111111

411!l r.!I

11111111
t'11211l1111

4200
43111121

11111111
i11111i1

11111111
11111111

1lili111
11111111

11111111
11111111

11111111
11111100

!1111111
l"l000111121c-a

11111111

441.'Jf1J
451!1121

11111111
11111111

11!11111
1u.111i1

11111111
11111111

11111111
1111Ul2leJ

!111ili1
u0u121n

11111111
00h1111

11111111
1211210H121U

11111111
r1!0Hl011100

11111111
" 00 0210 0111

11111111
el111000001'J

h11U11

1111110121
1'10Cll00111

!111!1!1

412100

~121012H'l!0U

~121111111

i11111i1

11111111

47U

lllrll12102'0.el~

121.12121.0 0 H 121

5121U
51'6'

11111111

Uh11h

11111111

11111111
11111111

!12H
!13H

!1111111

i11111i1

11h11h
111111!0

11111111
0 00 "" 0 eJl1I

11!11111
00UHiJ0

!1111111
UU0H0

11111111
rlJHHfUl0

54110
!SIH

11111111
!Ul0G'l000

11i111h
0!110000i0

11111111 11111111

ilU.1111

11H11i1

UHHCh!

11111111
011110ra0ra0

h11hi1

H0IHIHlll

fJHlllHl!llll

00il01!11h

561111
!17H

U1111i1

11111111
11i111h

11111111
1111!111

11111111 i11H111

11111111

11!flJ00H

l!HIJ 8 HI I H

11111111
Hf1Jr/J1U.1

hi1hi1
hhhh

i1H11h
hh:11h

HHlUlliHIJ

~H01.'Jf1Jlll121

hhi1i1

!1111111
uH1111

hi1hi1

i1H1111

fJ01.'Jf1Ji01Hl

Ql " el " '1J0

hti11U

U1111i1

11111111
11h11h

UUU.11

11111111

1u11111
11111111

!1111111

UU11i1

UU!111

!UU.111

uuu.u

hi1hi1
hhhi1

2'1'11111

62H

11111111
11111111

11i111h
111111h

11111111
11111111

11h11i1

11111111
11111111

11U1111
11111111

hi1hi1

63H

{U1hh

11111111
11111111

6021

6'11111

11111111
U1111i1

11111111
11111111

11i111i1
11111111

11111111
11111111

11111111
11100flJIZlflJ

!1i1hi1
~ flJQ! 01!! " 0 0

i1H1111
00ih1111

668111
67H

11111111
11111111

11ili111

11i111i1
11!11111

11111111

11111/lflJillflJ

!111hi1

11111111

Hl01hi1

11111111
11111111

7flJH

7111!0

11111111
11111111

11111111
Ui1i111

11!.11111
11i1111.1

11111111
11111111

11111111
h11ili1

1110"'011

721!11:'l
731!1f1J

11111111
11111111

1111!111
11111111

11111111
11111111

11111111
11111000

11111111

11111111
?11111111

74Ql0
751110
76H
7700

11111111

210001'112!~12!

11111111

..,....

.....

•
....
•
Ir

.....
n

.....

DJAL.121

F'IEL.0 1
Z001(;

2'0l"21

0022
"1023
l!l11J!4

ll.le011J
H2111J
0000
eH/J011J
Ii') "'1J l1J

Vl1J~3

BEG JN

?243

•20

Qll1J211J

11J11J211J
ll.'11J21

/1'

T2,tll 1

l1J

T211J,

Ii')

ASCWOl1J1 "1
OCTWDl1J1 fl

CRSW,

6•APR•72

13!37

l'A~E

Ul11J

OJAI.HJ

F' IE'.L.0 1

VU3

hAPR•12

1313?

PUE 101

II.INK 'YP ?N rtEl.0 0 TO TVP10 ?N rtEl.O 1
10
10
(•6

TYPl.X
r TVPL0•1

/AC • •1
/SUBTRACT i F'ROM R~TURN AOORE:SS
/OATA '1EL1' 1
/SAVt RETURN AOOqE~S
/GET Te:XT eOUNT
/SET LOOP eouNTER
/TEXT !ASL! AOeR!S!

OCA t

11
11

/Cl.EAR TE'.X1 TABLE:

5035

JMP

·, ·2

0041
""'"
0042 621211

TAO

2'025
0 fll2 6

0027
2030
0031
0032
0033
0034

0035

0036

0037

?Z40

TYPI.,

1)?7

TAO 1
COf'

6Zh
311110

OCA
TAO
OCA

11,6
3051
1115

3011

TAO
CCA

22151

?$!

3411

11,5

OCA

3l1Jl1

0043
0044

c:or
TAO 1
c:or

1410
621.1
?450

SNA

0046
""''
0041 3411
5052

00!11

5042
HH

0eJ52

1174

005llJ

0e!la
Ill llJ94
0eJ!J5
0llJ!l6

0000

11106 J
£1.!llJU
121065

"llJ 121 (/J
0000
!!!H0
1212100

0066
121067
1210? IZI
2'0'?1

~
\.
'
'

121e00
6201

6202
5410

TY PLO,

CTVP

TVPl.X

(TYPL.0•1

/TEXT !ABL! AOOR!S!

lll0
10
10

/MOVE !EXT TAB~E
1rROM F'IELO 0 TO r!EL.O 1

•••
11

/'f[S

·• •6

/ENO O~ TEXT TlBLE ?

/NO • ~AVE TE:XT ADORES!
/GET NtXT 100R!SS

OCA

<TYPL.D
TYPUJ
C:RSW

/GET DATA lOOR!SS
/SET TYP R!TURN
/GET CAARA!GE ~ETU*N SWiTCM
/RETURN WANT!'.O 7

JMI'
OCA
JMP

TYPU+i
C:RSW
TYPUJ+!i

/YES

TAO
-SNA Cl..l

5712'

0061

JMP
OCA t
JMP
TAO

16-50

0HllJ

0"62

TYPLX 1

37731
111124
3024
5111'

0e!l'1

/RESET CARRA!G! RETURN SW!TCM
/BVBAS~ C:A•Rl?~E R[TURN

0
eJ
121

121
121
121

cor

O?F'
JMP I

00
10

/RETURN TO rt£LD 121

~
F'I~ ... ~

OlAL.U

VH3

6•4PR•72

13137

PAr;E U2

IL.lNI< ASC lN rtEL.0 3 TO ASC10 IN rlELO 1
ASCL.,

7243

l273

157fll

TAO

~~74

2'1175

381111

1"4UJ

0-CA
T40

U76
2317
flli
Z1f1
2112

3112
141111
3U6
Ui2
3112

OCA
TAO

ru3

r1u
•1'5
1116
2117
•1U
1111

f1i2

OCA

TAO I

OCA

•211

4767'
t:1i2
UH
6201
6212
5411

CDI"
A~CLia

ASCL.21

/AC • •1

STA

?a'2

JMS

CASC

UI
ASCOAT

ASi::L.2
ASCDA1'

ASCOAT

/RETURN AO~RES! ~1
AOORUS
/G!T rSRST WORO rRo 'IELD I
/SAVE
/GET SECONO WORD '"OM 'JELO 0
/UVE
/SET CATA 'lELO i
/CONVERT TO ASeJJ
/DATA

ASCUI

ASCDAT
21

CDP'

Cl'

JMP I
ASC01Ta I

H
H

II.INK TO WORD IN rftLD 1

11i4

1115

0111111

WOROiaa

62Gl1

ecr
c1P'

H
H

ld.6
1111

6212
4566
19f5

JMS !
TAO I
DCA

UCWDI

1121
1122

62h

cor

H*2
•u• 15'4
1!123

3124

TAO I

OCA
JMP

3023

5513

CWOROL
CASCWD
COCi'WD

OCTwOI

/DATA r1E1.e I

'ltLD I
/JHS TO wo•o ~ NR tN r!ELD I
/lNSTR~CTlON

1GET TMt ••cti woAB 'AbH 'IELD •
IUVt iN 'tE~D l
/GET THE oef lL woRe ,ROM ,1£1.D I
/DATA ;zE1.e i
/RETURN

WORDI

11.INI< 'O l<EVCK IN 'IEL.O 9
0125

IHH

0126
fl127

62"1
6202

01:5fll
21:51

5525

IZ'1:52

2133
~134

4563

l<EVC~L,

121

cor

cir
JMS
JMP

622'1
62212
5562

l<EYC1<2l1 COF'

021'.l!ZI

•212lfll

cl F'

JMP

H
H
<l<EVL1

/CMANG! TC rrE~D 1

lllfll
H

/GO TO KEYel<+4 IN 'IEL.0 Ill

l<EVCl<L.
<KEYCK•4

IJ~S

TO Kt¥CI< ~INK IN 'i£L.0 9
/R£TURN

•

OlAL.10

rtEL.0 1

6•APR•72

Vtll03

1313?

PA~E

103

/ROUTINE TO MANDL.E ,TY COMMAND
WOR00

J~S

/Al.L.OW TTY lNPUT

4113

1377
3010

TAD
DCA

13?6
3011
13?5

TAO

( ROUTwi

/TEXT 40,~~ss

OCA
TAD

11
( •25

/TtXT lS 2' WORDS LONG

12121212
e203
ll'l2~4

2'205
02"6
02!?J7

02UI
0211
0212
0213

CTWD•1
10

TAO

C42140

1rtt.I. !EXT BUFPE~ WITH SPACES

OCA %
t Si!
J"lP

11
TUI
·, •:S

/F'lN?SHEO t
/NO

OCA I

TAD 1
SNA
JMF'
Cl A

2020

5207

34!1

745(11
5330
1(1141

TYA,

TY ii.I.

0217
0222
0221
0222
0223
0224

1922
1650
5225
20U
5214

TAO
ASCWD0
SNA CLA
JMP
, •3
IS!
U
JMP
TYA

0225

1410

TAC

fJ226

3120

fl227

el23(1J
02:s1

0373

0232

7006
7040
3021

1371

2244

2466
2243

2244

12' 2'50

2244

l1'2"li
ll'l2'2

5242

~·

2021
~644

CMA
DCA
TAD

T20

AfllO
OCA
TAO

TYh
<ROUT

DCA

3244

0244
0245
11l246

U
TUJ
TU

RTL

03?2
3243

4266

AND
C1iH
"TL, CLL

1020

11ll1J21

12!253

OCA
TAC

7U~

0242
121243

0241

or ARCUMENT TABl.f

13?4
3411

1410

0240
2'241

/SAVE

DCA

0214

0234
0235
0236
0237

/ADORE~S

3020

l'l215
21216

0233

TY10,

:ii200

02u

TYB,
TYT1,
TYT2,

JMS

T1(1J

( 7t7

TYf2

GEi'RE:G

ORE'.G

ROUT
!Si!
I SI!

ts i!
IS i!
IS i!
JM?
OCA

TYh
TYT2
TYT2
TYT2
T20
TVB
TYT2

1i£RO ~AST WORO or TEX' eurr£R
/GET ARGUMfNT rROM TlB~E

/tNO or TA81.E '

/YtS • -CMteK RfQUEST roR ·~I.
/NO

/COMPARE WfTM !NPUf ARCUMtNT
/MATCM. t

/YES • TYP! RECI!f!R

/NO • ~KIP OVER AD~RESS
/GtT NEXT 4RGUME~f
/GtT R;GtS,ER AOOAESS
/SAVE
/EXTRACT WORO COON'
/MOVE WORD COUNT ,0
/BlTS !•11
/SAVE MINUS WORD COUNT
/GET REGISTER lOOArss
/EXTRACT AOORESS Bf TS
/SAVE AOOR!'.SS
/AOORE~S OP TEWT eorrER
/SAVE

/GET OATA rROM REG!STER
/REGlS!ER ADDRESS
/TEXT BUtP!R AODRESS
/lNCREMENT REG!STER ADDRESS
/INCREMENT TEXT ~urrER ADDRESS •3
/ENO or WORD COUNT
/NO • GET NEXT WOR~
/~ERO ~AST WORO or TEXT eurre:R

•

~
rt E1..., 1
:'254

::l lAL.Hl

::'255

137i2l
31671

l256

5766'

t2'17

e'2H

TYC,

v~~3

TAO
DCA
J~I'

2466

ROUT

~000

~261

4767#

2'262
2263
r2&4

2740

011JQl0
53Ql5

r2n

QlllJH

TV CONT,

GET REG, 21
TAO I

e2-66

PH7
l'211

1271
1272
1213

•214
12'5

1666

JMS
CRL,F'

6-APR•72

13137

(·,.3

TVl'U
TVPUH·5

/GET RETURN ADORES!
/TO BVPASS CARRA!G! ~E,URN
/TVPE DATA

TVPUI

/TVPE CARRlIGE RETORN

TNEXT

/GET NEXT qEGl!TER

JMP
QI

GETREG
TU

3020
62Ql1
1421

CO'

CDF'

OCA

DCA

TAD I

62!1

ts!

2266

/INC R~TURN ~oeRES!
/GET ADDRESS O' TE~T S'RINC

ASrJUJ

/CONVE~T

106

TAD I

1311

476''

JHS
TU
ROUT
!SI
JHP l

GEtREG
GEf RtG

TAD

TY CONT

1311
BH2
1313
1314

13115
UH
9317
9311/J

f3U
1312
1313
2'314
~315

Ol316

~311

:_it

321Zl

~321

0322
~323

et324
:_it325

e'326
'-"327

DCA

H211J

2466

2266
5666

1265
?640

'313

3265

5132
5281
14U

TNEXT1

SU Cl.A

JMP
OCA
JMP
JMP

TAD l

37671
57661
2516

SNA
JMP
OCA
TAD
DCA
JMP
POEQ

~000

1412
3022
2012
5201

JMP

745111

53U
U22

U64

TAO !
OCA
t Si!

/GET REGIS,ER DATA
/GET REG!S,ER AOORESS
/SAVE
/CATA lS lN rtELO B
/GET DATA
/RESTO~E DATA F'IEL~

TU
Gtf REG
Gtf REG

1216

12,7

"Ar.E Ul4

,•3

·,•4

TY CONT
l<EVCl<I

TY1111•1

u
·,

•••
c·, •3

•

TYPUJ
TYP11!1•!S
12
ASCW00
12
TYi0•1

/SAVE DATA

OlTA TO A!C!l
/AODRE!S 011' DATA
/ADORE~S 0' TEWT S'R!NG
/INC ~nuRN

/GET CONTINUE swtteH
/lS lT SET 1
/YES
/NO • ~ESET SW!TCM
/RETURN TO TTY MON!TOR
/TYPE NEXT A~GUM£Nt
/GET NCMT REGISTER
/f.:NO OF' TAl!LE t
/YES • EXl'
/NO • !YPt T!T~E
/BYPASS c•RRAIGE RETURN
/TYPE REGISTER NAME
/GET NEXT WORD rqOM ARGUMENT TABLE
/PAKE OUT 'Vi0 ROU,INE
/$Kii' OVER ADDRESS
/TVPE REGISTER DATA

!ll Al.1l

F'IEl.O 1
~330

0331
Z332
0333
r,334
0335
fJ3U
1!!337
2341/J

e;su

P.1342
9343
fJ44
23'5

llJ361

1022
1363
7640
IJ762'
7241/J
3265
13,7
3012
1361
3113

13137

TA'.)

ASCWOG'J

/GET INPUT ARGUM£N'
/COMPARE W!TM "AL"
/MATCH 'I

TAD
( •0114
SH Cl.A

JMFI

OCA

TAO
OCA
TAO
OCA

JMS

CALF'

5H5

JMP

TYDA'tA

/NO • !VFIE VAR!ABI.[ OA~A

CTW0•1

/VES
/SET TH£ CONTINUE SWtTeH
/GET ADDRESS O' ARGUMENT TABLE

CREGE:Q•1

/ADOAt~S

TVPU

/TVPE A CA~RllGE A!TUAN

TNEXT

/TVPE ~ONT!NTS Of lLL REGISTERS

STA

2141/J

TVCONi'

O' RE~ NAME TlBLE

un
l;J65

llJ6H

fJ364

6•APFl!w'2

41611

PJ4H
7664

1362

TY Al.Lt

DUE 1et5

VUJ

n22

0612
0665
11311 12'1
183,1 24'6
11'2
fJH6

Ue7

e:sn

13t4
1315
13'6

Ut1

,.,,,
71H
4141

201
"'"'

....
1496

PAGE

r--)
""-._

~
F'lEi.,I) 1
,. 4 :" Z1

74?.il

1~23
751~

2'411

5777 I
1376
772'11:1
;7171
1023
7104
70!1!6
1:575

0412

3226

e41:S
0414
0415
21416
l'J417
!ll4U
0421

4113

l4"'2
2'4~3

:'14!1!4

2'4!1!5
2'4"'6
214!1!7
0410

21422
0423
1!1424
'1l425
0426
0427
lll4H
0431
1!1432
al433
lll-434

0435
0436
21437
2141421
1'.'.1441
21442
1!!443

0444
214•5

21446
2!'447

C'l45rlJ
0451
rlJ '452
21453

PUE 1!1!6

6•APRw72

13137

'T'Y'.lAi'A 1 H::l
SPA

OCT;.JOllJ

JMI'

DOTER0
C•U

/CMECK roR r!EL.D BITS
/IS NUMBER MINUS 1
/YES • INPUT ERROR
/SUBTRACT e
/lS NUMB£R G:T~ 7 '
/YES • !NPOT ERRO~
/NO • gET r1~1.o ~ltS

::llAi..U

VZtl3

H!)

SMA C:l.A
JMI'
TA!)

RAL. C:L.L.
RTL,
TA!)

OCA
JMS

U23

3256
41U

1'!123
7041/l

3255

DOi'ER0

0Ci'W00

<COr
TOPl.C
WORD0

/MOVE !O 9!TS 6 ~ e
/CREAT~ CORRECT eor tNST.
/MODIF'Y PROGRAM
/GET ADDRESS
/OCTAL ADDRESS
/STORE ADDRESS IN POtNTER
/GE:T WORD eouNT

TAO
OCA
JMS
TAO
CMA
OCA

OCTW00

TYCNT

/STORE COUNT IN tOONTER

TVA DC
WORD0
OCTWOlll

2255
5226
5132
5774/

TYO,

151
JMP
JMP
JMP

TYCNT
TO;l.O
KEV CU
TVih1

/ENO O~ WORD COUNT 1
/NO GEi NEXT WORO

6201

TOf'L.01

/TVPtO~T

cor

0llJ

1656

TAO 1

TVlOO

6211

COJ'

1lll

47131

OCA
JMS
TYAOO
ROUT
JMS

0020

T10

3020
41'3'
0456

24!16

ROUT+3
OCA
JMS
ROUT
CRl.F'

2411

37'12,
•1111
240
2740
HJllHZI
2256

IS!
JMP
TAO
TAO
ANO
HO
DCA
JMP

'222

1226

1370
21367

!!14,4

1375
J226
5222

!!1455
?1456

::] 00121
e'000

TYCNT 1
TY ADD I

0
~

OlTA r1~1.e

/GtT DATA WORD

ASCUJ

/STORE OTU WO"D
/CONV£RT AeDRESS TO •se11

ASCUI

/CONVtRT QlTl TO ASC!l

ROUHS
TYPUI

/TtR~INATt

TYiOO
TYO
TOF'l.D
<U

/INCREMENT OAfA AO~Rrss
/RETU~N TO CHteK POR ENO
/OVERPl,.OW TO N£XT rt~l.O
/INCREMENT DATA rir~o e1Ts

C COF'
TOF'l.D
TYO

/STORE NEW CDF' INSTRUCTION
/RETURN TO CHECK rOR END

T£XT gTAING
/TYPt AOOR ANO DATA

(70

OIAi.irlJ

F'JE:i.O 1

/ 1

i457
el4U
~461

Z462
2463
21464
1465

2017

2021
21617
1U2

2111101
2024

TWO,

2H0

SAVOM

UIH

AREG

2H0

Q!617

21011

Hl2

2"27

21461

1'21

1521

1!14':S

l!IUJ:S

2135
2'H
1141
1122

., ..,. 1891
"""
fJ4'74

BREG

20H

MQREG

2Hlll

PF'AC

21181

2113

P'PC

UIH

PlR

Hil

Ull

1118

U22

1'121

esee

9477

1721
11•4

O'PAOR

9'11

1512
ltH

1114

1147

f'AftT

2114
H!li

/PO • PROGRAM 0 REC

2U7

OREG

0"212

2932

tt.•4

aau

.,.,.. HH
,,..
,
ttit

1185

••••
'''"
«hTt

llJ91J,.

~T2

''12
t5U Hit

APT

f!914

1623

. ts;.t 112111

12111

'5i4

7288

1!1516

1515

1517

Httll

1567

H1tll
HU

PUE 11!17

13137

6•APR•'2

TY COMMAND ARGUMENT TA~LE

~466

21470
1!14'11
'472

VSlll3

tlH

IHI

1623
1128
HU
Xtll

SM REG
l!I f/Jll 111

1ro • rpp 0 RE~IST~R
IA
18
/f14Q

/AC
/PC • PROGRAM r.Pc

/IR

/JJP • OP ADDR£~S

/AD • ADAS
/ST •
/~S

'TATUS

• ~ROGRAM ~TAT!S

/F'S • READ F'PP STAfES
/AP • APT

1Htll
'1Htll

IX • INDtX AEGISTE~S
/SM • ~Hl'T Rt!IST!R

1511
215'1
0572

el665

24'3

~5'3

0620

21574

k'l201
62fJ1

il.'5'75
~576
~5'77

'17'10

11U
0611J0

PAGE

'I
I

.,.-....

~
f'I£'.L.O 1

DIAL.10

v01!!3

6•APRe72

13137

PAGE

/REGiSTER NAME TABLE
~62'0

2516

262'1

2522
25:26
2532
2536

06!2
062'3
2'6214
tl'6215

061!16
216el7

el6Ul
0611

06.12
0'6'13
l!l614

0615
0616
0617

2542

2611
2622
2;46
2616

25'3
25'6e

261!12
2570
2''14
0021111

REGE01

POEQ
F'OEQ
A.EQ
BEG
r-tQtQ
ACtQ

PC£Q
P?qEQ
OPEQ

AOtQ

STATEQ
PSEQ
RSE:Q

APEQ

X£Q
l!l

~=--

-;.:-=-::.;c~r

OlAl.10

F'lfl.O 1

V00J

6•APR•72

13137

PAeE Ul9

/CONVERT OCTAL. wOR:l TO 6 B?T A5Cll

0620
3621
0622
rll623

0624
21625
rll626
rll627
21630
0631
0632
0633
21634
Ql635

11l000

1620
3262
2220

6211

7112
'1012

1ru2

eJ662

JHS

4244

fl644
1164,
160
1164'7

JMfl t

ASCS,

3263

1263

f662

m6&J
0664

~.I

02'7

126:5

"257

TAO

12U

OCA l
JMP l

3661

5644

HH
2H0
00H

"''''

OCA

RTI.
RAI.
AND
TAD
ANO

1H4

0?'tll7
6160

TAO

''"' '"''
06'7

ASCU

ASC3

TAD

0662

56U

tll6U
0661

ts!

ASC77
CMA
ASC4
ANO I
CL.L. RTR
RTR
RTR
ASCB
JHS
ASC3
!SI
TAO
ASC77
ASC4
ANO t

160

1693
tll6'4
065'
216,6

111'

1264
7040

2220

fJ64(/J

11691
P.16!2

cor
OCA

42'4

eu2

ASCU

ASC4
AS(;U
ASCU

3261

2261
1264

1641

2l
TAO t
:lCA

IS!
TAO 1

1620

0636

en1

ASC1"' I

4$C1,

uca.

0'1tll7
60611l
Ill

ASC:5,

0
0

4$03,
ASC4,

A$C7;,

•Sea
ASCUJ
ASC5
AS05
ASC1
ASC5
ASC1
ASC2
ASOJ
ASCB

/GET ADDRESS or ~ATA WORD
/SAVE
/INCREMENT RETURN
/GET TEXT lOOR£SS
/DATA ~IEl.O i
/SAVE !EXT ADDRESS
/INCREMENT RETURN
/GE:T MASK
/l.trT HAL'
/EXTRA~T 1.fFT MAl.r or OATA
/MOVE !O R!GMT MAL.r
/CONVERT 1.ffT MALF
/INCREMENT ttXT ADDRESS
/GET MASI<

RtGMf HAL., or OAfA WORO
/CONVERT RfGMf MAL.f
/U<l T

/EXTRA~T

/CONVt~T z oefAL O!GtTS
/SAVE OATA
/RESTORE: 01TA
/MOVt QATA i D1Gf T 1.ErT
/DEi.CT~

RlOMT Ol~lf
/GET C0RREeT Rf GM1 D!G!t
/SAVE ONLV 2 CORREeT OfGifS
/INSER! ASett MOOt,lER
/$TOAt CONVERT!D OITA
/RETURN

~
OlAl.10

f"lE'LD 1

V"23

6•APRw72

13137

PA~E 1121

/TYPE 6 BIT ASCII TEXT STRINGS

0665
0666
066?
06121
0611
el672
067;$
~614

0615
U76

1'677

~""
OJ7U

fl?U
OH
07114
"7H

ll?H

0H0

TYPU,

U35

JMS
TAO
J'1S

4;s24

1336
4324
1665

TAD

6211

CD'

1450

SNA
JMP
DCA

71i2

CLI. RTR

2265

5665

1723

Hll

fVPA,

nu
U48

SfllA

1141

0721

4:524

21722
0723

!5711
HH

0724
072'
l!l726
0721
07H
0731
"'732

Hl!JllJ
61146
H41

1'1733

0734
0735
"736
f11737
0740
P.1741
2:742

ANO

SNA

0717
IZ?H

JMP

TMtS,

'fTV,

1000

TYPA
THU
THES

TVPA
·•• 11
T7'

TViJ11+5

TAD

TM~I

TAD
TAO

TUI

JMS
JMP I

T2il

TTY

/GET CARRAfGE ~ETURN
/TYPE !T
/GET L. i NE rEED
ITVPE IT
/GET TEXT lDDRfSS
/DATA FU:l.1' i
/INCREMENT RETURN
/END OF TE•T 'ABLE 1
/VU .-RETORN
/NO • SAVE ADDRESS
/GU T~XT WORD
/MOVE ~E'T CHlRAe,rR TO RlCHT MAl.r

TVftA

JMP
TCF'

.•i

Cl.A
!<SF

JMP
JMP

TM40 1

215
212
•40

TU121,
T240,
T??,

100
240
77

T212,

/CONVt~T

/DO

lAD 'VP! RIGHT MAL.r

tT AGAIN

/EXTRACT Rf HGT HiL,

/'ND O~ TEit t
.
/VES • GET NEXT lD&RESS
/SUBTRACT U

IL.ISS !MAN '1fl t
IVll • 118 SERIES eHARICTER • ADO ISi
/ADD O~IGINAL ~I • 2tl
ITVPE 9HARlCTER

/RETURN

/OUTPUT CH4RACTE~ TO Tty
/WA lT ~OR 'I.AG

TL.S

T2151

AND TVPE ~trT CHARACTER
/GET TEXT WORD
1lNCRt~£NT tEX' 1oeRES9
ICONVt~T

TSll'

!5326

6042
?2H
6031
5724
5132
0215
!?1212
7740
(11100
1'1240
r/1"'77

TYPUJ

74'8

17t·. U3'1
52,2
11 '

TAD I

THES
THU

JMS
JMP

e1U 0142
17 5

TTY

TVPU
ti

TYP11/l

TAD t
IS!

1711

T2{2

RTR

1723

"''

TTV

l Si!

JMS

4;Jh

1710

T2S,5

RTR

1U2
7112

4111
5H"

11U

0
TAD

PAGE

TTY
l<EVCl<l/l

/Cl.EAR rLO

/INPUT rAOM KEYBOARD 1
/NO • RETURN
/YES • ANSWER KEYBOA~O REQUEST

F' !!".LO 1

12l 11121
Ult'l1
12'"2

10!!!3

2' "00
3311

7604
7004

1006

171"
5303
47771

um1
101111

1111
2335

121914

10tJJ5

1011
1M2

4'7161

1013

0315
1U4

111l15

U'4
:sn2

Ui4

1016
1"'17
UH
1121
Ul22
UJH

19!4

1125
1126

4iU.6

OlAl.U

Vl!l23

ERRU 1

lil

ERR ET
OCA
I.AS
RAL
SPA Cl.A
NOREP
JMP
ASCU
JMS
ERRET
EROUT•S
OATERR 1 JMS
COO£
(1
ANO
RAI. C~L
COATTX'r
TAO
ERRf1
OCA
JMS
G£fi'1
OCA

3276
2312
4U6
331111

!Sl
JHS
OCA
JHS
AND
RAL

47'6'

,~,,

7H4

DCA
JHS

Ui2
4U6
75U

SPA

UJU
11H

J2S6

DOA

U27

1131
1134
UH
1037
U41i1l
1041

1042
1043

111l44
11/14!5
1046

111147
U'l!l
1rll'1

~
\

JMS

4321

.. ,,2,

un 4711'
l!ll!lH

1727
41161

11l3711l
165111
5252
2236
1236
3251/J
47'1'

011101/J
1732

6•APR•12

OATC11

JMS
JMS

13137

PUE 1i1

/SAVE RETURN AOOR
/IS SW 1 SET 1
/VES • NO REPORT
/CONV RETURN AeOR fO ASCII

/G!:T E~ROR COO!
/TYPE Of' ERROR
/AOORt~S

or TEWT tlB~E

ETlCh

/GET ADDR fROH ,!tlD 1
/STORE lN TYPE ~ODA STRING

ETXTZ

/STO~E

ERRU
GEtTt

coot
(7

CO AUBL
ERR ti

Gtft1

IN~ IR

DA Ci
SPiCE
GE'tREG

/GET StCONO ADOR
IN TYPE AeOR STRING
/GET ERROR COD!

8Y 2
/GET ADDR or OAti '•!Lf

/MULTl~l.V

/GtT rl_RST WORD
/lNOlRCCT lDOR!SS
/SAYt DATA AODR£91
/PUT S~Acts IN tjxf
ICONVt~T TO uez

OTXT1
JMS
CODE
C71
ANO
SNA Cl.A
WOR02
JMP
OH'C1
IS!
TAO
DATC1
,•2
DC4
GETREG
JMS

/GET E~ROR COD!:
/WORD ~OUNT
1rtNIS~ED

'IRST WO~D
/lNCRtMENT DATA ioeR~S!
/CONVERT S!CONO OATA WORO

l'J

OTXT1•3

~
F'IEL."l 1

1052

OlAl.i0

1'154
!2155

2312
4316
7510
4321

-1096

32'6~

1057
10UI
1061

!2l0i?J0

10'53

1062
12163
U64
:11'5~

H6.S

10'67

1.-26111

GETT1

/GET SECt'.IN~ WORD

I NO IR
OATC2
GET REG

/lNDIRECT ADDRESS

COOE

/GET ERROR CODE
/WORO COUNT

ANO

1727
274111

1111

1736

1U2
UH
1114
1115

Hite
76U

TVP11!1

/TYPE DATA

L.AS
SM4 CL.~
t<EVCKL.
JMS

/SWiii SET 1

Cl'

/GO 8A~K TO rl!L6 ~

ERRTPa

JMS

nxn.

ER OUT
CRl.F'

ETXT2a
NOR£P1

OT>CT1

CRL.F'

OTXT2
0

11U

!i6H

1111
1112

01111!!0
090111

ERRUa

E:RRT! t

1113

6ZQJ1

OOTE._111, CD'

1114

62212

0U0
1712
5716

1117
1120

CD'

6202

1116

•2

/CONVERT I.SW

11'6

5766

/TVPE DATA

/GET AOOR Of' 1,.SW

OTXT2•3

7781

1115

/CONVERT I.SW

GET REG

4125
6201

11'17

0ATC2
OOC2

!Si

0H0

'r7671
2132
2748

( 7 el

SNA Cl.A
ERRTP
JMF

4771'

10'4
U'5

13137

TAO
DCA
JMS

1741

1111

ERRT1

OTlCT2

3212

1013

1076
1017

!Si!

JMS
SPA
JMS

JMS

41761

112

6•APR•12

JMS

OATC21

l'A~E

IJ~t'l3

o.c•

17:56

1065

12171
U12

WORD21

41111

3370
76'111
5274

U'QJ

JMP t

ERRU

cir

GETT1,

/EX 1T

IL.INK !O OOTERR !N F'!E~O Iii

l/JQI

JMP t

(DO TERR

2'
TAO I

ERRT1

GEtH

JMI'

/NO • WAtT ,OR K!V80ARe !NPUT

/GET CATA WORD

-------

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

r: n:1.., 1

OlAi.12!

V003

/IN~!RECT

INOIP.1

1755

1135

3355

OCA

1U6
1137
114f'
1141
1142

62h
1755
2355

TAO !

3145

ANO

3355

OCA
COF'

1755

TAO !
tS!
ANO

7U4
7106
1364
3336

RAL. Cl.I.
RTL.

2355
03'5

TAO
OCA
TAO !
C:OF'

t Si!
COF'
OCA l
TAO
OCA

62131
3763

uu UH

1145
110
1147

11'1

CO'
TAD l

62h

11'5

CCF'
OCA l
CCF'

621/J1
3762

62h

un
11n 5721
11'2

JHP l

£0AT11

"'111111

EOAT21

1162
1163
1164
1165
1166
1167
117111
11'1
1112
1113
1174
1175
1116
1117

0111J4
0U3
6201
0177

~~.

TAO

1U4
11'5

"'0

1!1432

066'
eiet111
0266

1200

1551
15~2

0 rll0.,.

1216
11!6UJ

120111

F'A(JE 1!3

Ql365
6201

13137

OATA • USED roR MEMORY ERROR

1121
1122
1123
1124
1125
1126
1127
1130
1131
1132
1133
1134

2lH0

6•iPR•'2

PAGE:

C717

EDAT2
HI

EDAT2
EDAT2
C7

/£XTRA~T R~G!STE~

iOORfSS
/SAVE ADORfSS
/GET REGISTER OAf A
/F'ROM F'lE:l.O l'J
/INCREMENT REG!S,ER AOOR£SS
/tXTRACT rtELD Bf fS
/MOVE !O BITS 6•8

EDiT2

/MAKE COF' fNSTRUC,!ON
/MOOH'Y F'ROGRAM
/GET NEXT REGISTER DATl

EOiT2

/CHANGE TO DATA MEMORY rIEl.D
/GET DATA
/INCREMENT ADDRESS

CCDF'

·,•3

E0Ai'2
1e
£Oit2
H
CT{

·,·!

·,•i

EOi i'2

CTi
INOIR

/SAVE

/OUA F'U:l.O l/J

/STORE DATl tN F'!ELD I
/GET COF' l~STRUCTf ON
/MOOJn' PROGRAM
/CMANGE TO OlTl ME"ORV flE~O
/GET SECONO DATA WORO
/STORE lN PlEL.0 i
/RESTORE OlTA 'ltl.e

/GET rltLD " DAti lDORtss
/AtTUAN

F'IELC 1

'.'.llAl.iZ
/F'l~L

12~0

:'!011l0

121'l1
12?2
1203
1204
12"5
1206
122'?
12U
12.11
1212
1?13
1214
1215

1377
38U

1216
1217
1220
1221
1222
1223
1224
1313
1314

SPA:E,

VZl!l3
TE~T

OCA

1~?6

TAO

301?

OCA

31iJ20

HO
OCA

OCA 1

!;6H

OCA t
tSl
JMP
JMP l

1374

TAO

1374
34i7
2:1'211
5207
0000

62211

17'3
30H

1421
6211
5616

coot,

13131

!'A~E

11.4

BUF'F'ER WITH SPACES

TAO

1375

6•APR•72

CDTxT1•1
16
C0TXT2•1

1.,
(•5

T1121

( 412140

17
TU
·,•!I
SPiCE

l!l

CO'

TAO 1

OCA

TAO t

CD'

JMP I

CUR

UI
CODE

/AODRE~S

/SAVE

or rtRST 3UtffR

/AOORE~S 0' SECONC BUf,ER
/SAVE
/WORD ~OUN'
/SU COUNT!R

/ASCll SPAets

/STORt lN 'IRST eu,rrR
/ASC!l SPAets
/SlORt JN !ECO~D BOF'F"ER
/INCR£H£NT COUNT!R
/STORE N£n WORO
/RtTURN

/GET ~~0£ 'ROM rit~O 0
/GtT AOORtlS O' !RMOR eoOE
/UVt
/GET ERROR coor

/RESTORE DlTA 'l!Le

?317
4141

u'' 11U
118'

1316
13,7

1126

14H

PAGE

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

~ l ALU

F'lEL!:l 1

6•AP~•t2

13137

14,i(/J

001(/J

SETT •BI l.'IKIU

/lNtATE

14~1

2004
1016

TtNIT
EN l N?T

7500

1510

/F'£TCM

14l!f2

l'UE 1!5

14213
14flJ4
14115

1237

Y£TCM•1

1496
14fl7
1418

l.'IH4
2116
16U

llJU4

/TRA~P~O

1411

52118

52H

/OEPOSlT

1412

2131

uu 2153

TOEP
DEPU

1414
141'
1416

708

7421

24!8

tXITll

7441
31134

TOPAi

1417

14H

2810

21U

TF'ETCH

7448

-D'PADOI

1422
1423
1424

7441
2147

Tr40D

106
1417

HU
3a61

1431
1431
102

7449

/,.EXIT

TEXIT

2611
Hl1

7441

/Di P, 4DD • SUBt~l'T
l'LOATINC PT~ lDD • SUBTRACT

FAODll

,.TMULT

/MULTlf'.'LV

F'KULT•l
7448

IDIVlO~

2871

TOIV
P'DIV•l
1114

/LOX

143'

Ht4
21174
411i1

1436

1433
1434

3411

TLDX

1.0lC1

Ql884

H84

1437
14421

2'76
4QJ37

Ut.N

1441
1442
1443

0004
2121111
4266

~
,,

INSTRUCTIONS

TTl:tAlll
TRAP1

1421

UH 7441

'.._,

vH3

/Al.N

ALN1

/ATX

TATX
ATX1

(
i

()

F'IE1.".:l 1
1444
1445
1446

!:llAl.10

V003

2~214

0024

21212

TXTA

6•APlh12

13137

PA~E

/XTA

4435

XTA1

144?
145!

a:?J04

2104

14'1

4414

TJXN
J)(N1

1452
1453
14,4

~H4

HQJ4

14,.,

21216
4601

TJSR
JSR1

1114U

145'7

lllU4
TJSA
JSA2

/JSA

2110
4643

Ulll4
TJAC
JAC1

IJ•C

!HU

/JMP T"U!:

1456

1461
1461
1462

111004

1463

0(1114
2114

2U.2

5191

/JXN

/JSR

1464
1469

!JHI

TT RUE
JTRUU

1466
1467

14tl

H114
2116
!Jl46

T'4Lst
Jr•LS01

14'1
14t2
14'3

Hl4
2148
51'1

TCLA

1474
1475
14'6

QJH4
2143

l!IH4
TSTF'
FSTf'•1

/STF

Hlll4
2147

QJU4

/STD

14'1

15tlll
15211

51164

51171

15t'l2

t"H4

15~3

~153

151!!4

5077

15~5

011J04
2156

15216
15:!'7
1510
1511
1512

5115

011104
2740
5127

01114

HIU

/..IMP ,Al.SE

/Cl.A

F'CLA•1

TSTO
·rSTD•1
12111104

/'NEG

TNEG
NEG1
eliHl4
TN ORM
NORH1

/NORM

0(l1214

/PAUSE

CRl.F'

F'PAUSE•1

li6

f." IEV'l

1513
1514
1515

OlAl.10
~011l4

22;,3

V011l3
2!k'il1l4
TSETB

6•APA•12

13 I 37

SETB1

1516
1517

11!011l4

/SETX

1520

5UJ1

001Z14
TSETX
SETX1

1521
1522
1523

0H4
2211

IZIH4

/AOOX

1524
1525
1526

7440

744Ql

2214
5250

TSTA

2206

5213

7440

2217
5274

TL.DA

1'32
1533
1534
U:!5

1610
1622
16'7
1667
1674
1704

U41
1542
1543

1544
1545
1546
1547
1550

11h

17U
1512
1682
U27
1637
27 4111
2141/J
2741/J

/STA

F'STh1

1441/J

15•H4

1!7

TAOOX
A00X1

1521
1530
1531

1536

PA~E

/SETS

516(6

15!1

/I.DA

l!'l.OA•1
OATTXTa F'SIS
PSIS
F'OlS
POIS

F'MlS
PMlS
F'OP lS
POPIS
F'ST lS
PSTlS
F'AP lS
PAP JS
CRl..F'
CRl.F'
CRl..F'

(-~)

~
F'IE'.Ln 1
1551
1552
1553
15"4
15'5

1556
155?
1563
1561
1562
1563
15U
1~

151ff
1567
1570
15,1

:ll ALU

V003

rl'0~1

:'.)ATA9L1 UT2

2!000

"IT1

11'£'!02

0021

SAVOt-4
OMSW
OPAOR

6•APR-12

0121

4H0
'""'
SAVOP

ft!J51
0e53

PST AT

49..44

47·05

Hl45

5501

"''
21••
2\f'41

2148
2741/J
2741/J

MFl.D

OPAOA•S.

ST SAVE

SAVAPT
PAPT•1
CRL.F'
CRl.F'
CRL.F'
CRL.F'
CRL.F'

13131

"A~E

/TJME STATf •

118
~O~E

0~0~

10 REGlSTE~ • eooE llJ~0!
/MEMORY • eooE "~'~
/OP ADDRESS •
/STATU~

CO~E 000~

• CODE 0004

/ACORS • ceoe: ~0~5

1572

1573
1514
1575
1576
1577
161i'J0

V003

6•APP•'12

4023
2401
2425
2340
5240
0620
2040

F'STIS1

TEXT

" ST nus • F'PP "

21000

l1l
PSTlS1

TEXT

" • PROG II

1601
16212
16t'J3
161'.!4

2217

16215

0'1421

161!16
1607
16U

021021
12101!10
2411
1'05
4U3

1613
1614

2491

1616
1617
162111

06U

1611
1612

161'

1621
1622
1623
16!4
1625

1626
1627
1630

1631
1632
1633
16H
1635
1636
1637
1640
16'41
1642
1643
1644
1645
1646
1647'
~6~HI

'651

13137

D1Al.1Z

F'IEL.O 1

411J52
4212e

0
0

F'Sl$,

TEXT

PSU1

n:n

TfHE sun: •

F'PP II

2405
4(452
4048
2111411J

eJllllUI

4152

411J2'/I
2217
1!1?411J
011JH
4H1
042'4
2223
4052
4006
211J211J
411JH
2111J0iZJ

4052
4020

" • PROG II

F'APU1

PAf'l51

TEXT

" AODRS • F'PP "

TEXT

" • PROG ''

2217

('17411J

"'l1J 210
t11620

2055
6162
4004
1U4

4016

STRTE'R 1 TEXT

"F'PP•12 010 NO! START"

PAt:E 1!9

~
OlAl.iZ

F"IEUl 1

1652
1653
1654
1655

1613

...
~•t2

""U
2U1

11!11JH
15elf

" • PROG "

121

P'MIS,

TEXT

"MEMORY •

F'PP "

HH
411!12
411H

PM!Sa

TEXT

" • ftFIOG "

2211

0740

1?UI
1711
1712
1?13

1?2f/J
4H1

1722

'!'EXT

4148

170!l7

17Z0

PO!S,

0740

2"4"

1721

F'PP "

48\10

17H
111!!1
17!2

1715
1?16
1117

rots.

4006
2020

2231
49'2

1714

5240

1615
1616
1611

11n
S.1tl 4
17H
17136

"0 REG o

l'f\(;E:

2224
01#0

16'4

TE><T

13137

411!23

1140
2211!5
11'740

1•• .,
16"3
1611
1612

6•APR•72

2401

105'6

V02l3

1724

1651
16621
1661
1662
1663
1664

1Ht

00"11

ro111s,

O!I

T£>CT

"Oft ADCIR •

F' PP

0404

220
5240
4Ql06

2020
4000
t'10i30
4052

POPIS1

TEXT

4020

1723
1724
1?2!:'

Cl740

1726
17?7
1730

7717
7777

17:51
1n2

7777

1733

7777

" • PROG "

2217
0

QliH'10

DTXTi 1

TEXT

"1? ??

???? "

4040

-~~

~~-~--..=----c,-

119~1

F'f£1.0 1

:.?H
17'!5
1736

1737
1740
1741
1742

------·- --

170

1744

TEXT

1717
'402!0
0000

rlJ

20rll0

PAGE

rll!'16

205
224(0

"????

?? ?? ,.

ENT,

TEXT

"ENTER

TlNI'f 1

TEXT

"lNUT£ "

40H

2H5
2H6

1101

2187

40rllf0

21!1Ul
2(011

0U5
2463

T'l:TCH1 TEXT

"F'ETCH"

""'

Tt>Clf 1 TEXT

"F'EX!1'"

U:U

2016

2011
20i0
2021

2022

2023
2H4
2025
22126
2027
20321

2495

200
2'422
012e

0456
4021il
5640

2037

01134
2'440

045

TEXT

"Of POSlT''

TOPAS1

TEXT

110: p~ AOD • SUBTRACT "

rll324

1:1.17
16321

24r/Jjjj

2043

TOl'.P I

U24

2225

211134
2035
2036

~~44

"TRAPPED lNSTRUCTlON"

0'440

2033

2241

TEXT

111.6

llJ4rlJ5
2017
2H1

2042

TTRAP1

20n

2~31
2~32

2040

13131

6•APR•12

7777
4041il
1117

2'l4 Hh

DTl<T21

Z000

1717

21!1
2H2
2H3

2111l2
21U

V003

40~0

20H

2H4

OlAl.10

5540
2325
0224
?2!.'11

0324

F!IAIJE 119,;.2

~
rtEL.~

2"46
2;:}47
2Z50
2 "'H

40/lfll
"!614
1731
2411
16a1

2i!H

4i1.2fJ
245'6

2~52

2054
2055
2056
2057
2060
2061
2H2

2HI
21••

2065

2H6
2067
22170
20'1
2872
2813
211J74

13137

DlAl.10

V0~3

6•APR1t72

HAOD1

TEXT

,, F' L. 0AT t NG p TI

TMUL.i'1

TEXT

"MUL.TlPL.V"

TOIV,

TEXT

''DIVIDE "

n.ox.

TEXT

"L.OX"

Ul,,N,

TE)(T

"ALN"

TATX 1

TEXT

"Ah"

1'lC 'l'A.

TUT

"Xh"

4001
3404
4055
4023
2502
4j!H

1-5:!:5

1424
1120
1431
4900

2611

2Ul1

2112
2113
21'4'

1231

TJXN,

TEXT

"JXN"

1223
22218

TJSR,

TEXT

"JSR"

TJSA,

TEXT

"JSA"

TJAC,

H;XT

"JiC"

TTRUE:1

TEXT

"JMP CONOlTtON TRUE "

TF"4L.SE 1 TEXT

"JMP CONOtTtON F'4L.SE"

2076
29;7
21H

3124
21111

hH 1601

21P6

2UJ7
2110
2111

1223
01H

2112
2113

12211

2114
2115

1215

2116

2117
2120
2121
2122
2123
2124
2125
2126
2127
2130
2131
2132

PUE 119,;.3

ADD • su8 ,,

04215
4188
1414
!He
0114
16H
0124
!HI

28'5

UH
21140
0317
1604
1124
1117
1640
?422
2505

4000
12i5
2040
0317
16k'l4
1124

---~---~---

F'IEL.0 1
2133
2134
2135
2136
2137
2140
2141
2142
2143
2144

1117
16421

2146
2147
21'0
2191
2152
21'3
21'4

06H

~145

2155
2156
2197

~500

Z603
1401
411l0!0

2324
0122
244e

T£l(T

"F'Cl.A "

TSTF',

TEXT

"51'ART F'"

TSTO,

TtXT

"ShRT D"

TNEG,

TEXT

"F'NEG "

"'''

TNOR"4a

TtXT

"F'NORH 11

4H0

0616

0628

2165

TCl..A,

2324
21122
244111
04H
06!6

2161

2166
2167

6•4PR•12

TPAUSEa TEXT

56'6

0114

h''
22n
2201

2202
221.'!3
22u
22"5
2206
221117
22121
2211
2212
2213
2214
2215
2216
2217
~220
\
. 221

PA~E

119.;.4

"F''P PAUS£~.,~~ALT MODE TO CONTI~U! 11

2849
2181
2'23
8'56
56'6

h'• 208

21'1
21'2
21'3
21"1
21'5
21,6

13137

(1!6~1

2161
21u
2164

VU3

1423

1722
1'H

2162

0%Ai.H'J

1517
0U5
4124
174111
0;s17

1624
1116
2,215
40H
2305

TSETB1

TtXT

2402
"000
2305
2430

''SETB ''

TSE:TXa

TEXT

"SET)( II

TAOOX1

TEXT

"ACOX 11

TSTA I

TEXT

"F'STA "

Tl.DA,

TEXT

''F'LOA "

4030

011114
Vl430
40210

IZ623
2401
4030
?614

rt4k'1

4000

(

II\

·•,..,.

°'
.....
w

(

t.?

•

[l_

.....
,.,

,.,

.....

"'.....•

...•

a..

-()

(

p
J
LJ

;:,1A1.HJ

F'lEl.!:l 1

2222
2223
2224
2225
2226
2227
2230
2231
2232
2233
2234
2235
2236
2237
2241.'J
2241
2242
2243
2244

-··-·

224'
220
2247
2291
22!1

2292

2293

2294

2295
22'6
22'7
22U
2261
2262
2263
2264
2265
2266
2267
22;0
2211
2272
2213
2214
2215
2276
2277
2330
23:'11
2302
23!ll3
2304
~3!'15

0516

V033

EN::lMUL. 1 TEXT

6•APR•72

' 13131

PA~E

"E:NO MUL.TIPL.V"

~440

1525
1424
1120
1431
401/l0
0411

DlVl,

TEXT

0!V1DE BY ZERO "

2611
1214215

4H2
3140
3215
2217
40H
el411

26h

01vov, TEXT

"Df VlDC rJXEO POINT OVERr~OW"

041115
4H6

use

8'14
4121

11U
16!4
4917

268'
2216

1'411
27H
Hi6

21440
el411
26h
0405
41!1H
el5i6
0441/J
1404
3QIQJ0

0516
0440
0114
1600

1Zl516
0440
0124
3000
0516
0440
3024

OlVOl<1

TtXT

"ENO D!VlCt "

L.OXOI(,

n:xT

"ENO L.0X"

Al.NOK1

TEXT

''ENO AL.N"

ATXOK 1 TEXT

"END ATX"

XTAOK1

TEXT

"END XTA"

JXNOK1

TEXT

"ENO JXN"

01~0

t11516

120

~
F"I EL'.) 1
23£'16

l'440

23217

1230

23U
2311
2312
2313

2314
2315
2316
23i7
23221
2321
2322
U!3
2324
2325
2326

6•lPR•72

JSR01<1

TE:XT

"END JSR"

JSAOK1

TEXT

"END JSA"

AOXOK 1

TEXT

"ENO AOX"

STAOK1

TEXT

"ENC ,STA "

E:ROUT1

TEXT

"E"ROR nu • "

OtflOi<1

TElCT

"ENO DtPOS lT"

2200

0516
1223
01.1110
0516
0440
flU4
lH0

2401
41111'1.I"
0522

H0.;.1

71'i1
11'1
41!52

41""1

2341

2342

1!14'41
1!1405

2344

22117
2311

2345
2346

2401

2341
2350
23!51
2352
2353

2516
0405
2206
1411
27130

vrtR,

TEXT

"UNDER, LOW"

2354
2355
2356
23'57

EOP1

TEXT

"ENO TRACE''

23621

11J5i6
111440
2422
11J103
0500

2361

(11516

OP4SOK 1 'l'E:XT

2363
2364
2365
2366

l'A~E

221?
2240

23481

23~2

13137

0440

2331

234:5

v003

0440
1223

2327

2332
2333
23!4
23!5
23!6
2331

DlAl.10

16~0

0516

0!516
0440
0623

P\440
C!l417
2502
1405

4020

"ENO DOUBLE PRECISION AOO•!UBT~AOT"

r1rt.n 1
2367

?2~5

2370
2371
2312

?!311
2311

2373
23'4
2J'5
2376
2377
24H

~z Al.10

VUJ

6•APA•72

PA~E 12111~2

13137

1716
4fa01

2!404
5523
2,02
2422
l!IUJ

24211

2406'

24'2
24H
2414
249'
24H
240,
24il
2411
2412

0456
2156
4H1
04114
5'23
2502
2422

ADO•SUBT~ACT

0VtRr1.ow "

DPF'l.0W1 Tt>CT

"D~P~

ENl)ri01 TUT

"tND ,~OATING PNT~ •OO•SUB,RAC' "

rsTAoKa

TEXT

"ENO F'STA "

LDAOl<1

TEXT

"ENO F'LDA "

2441

24U 1726
2414

9'22

24i6
2d?

1727

2421
2411
2412
203
2424
242'

HU
11448

24U 1614

2426

2421
243111
24U
2432

2433
2434
243'
2436
2431

4111

Hi4

11ru.

24h
1687
4121
1624
5641
Q!UJ4

045'
2325
0224
2201

0324

4fcUlflJ

2441
24142
2443

1'1516
!:."44111
C"623
24t'll

2444

411J~0

24'1!1

2445
2446
2447
245eJ
("')2451

t"516
C"44flJ

r.(114
~4'1!1

40H
(

'
\ __

---,
)
---------------------~-~----------------

---

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

~
F'IE'.L.D 1

24'2
2453
2454
2455
2'4,6
24'7

~516

13137

DUl.114

Vztll3

6•APR•12

INOI<,

TEXT

"ENO INlATE "

sro1<,

TElCT

"END F'ETCH"

24f'!)

40011

2'•9

5ia

AST,

TtlCT

"•"

2466
2461

1111
77'7
4141
11'11

~OUT,

TElCT

"HU

21U7
4175
4143
4H0

POEQ,

TEXT

"PO •

121617

F'OEQ 1

TEXT

"F'O •

AEQ,

TEXT

:IJ516
Ql44£1

1116135

2411

,,,.,

24t4

11'1
77'7

24'1
24'2
t4'3 4141

2512

2,t3
2514
2515

,.,,.,
••••

71;7
4141
7 .,,.,
4148

.,.,,.,

.,,,.,

!,.., .,.,,.,
2596

2'18

2511

2512
2513
2514
2515
2516
2517
2520

2521
2522
2523
25'-4

2525

2526
2527
2530

U0.;.3

1101

24913
UH

2511
2'81

PA~E

2'440
1116

2461
2461
2462
2463
2464

24t9
24"!6
2417

1711
41141

'17'7

480
.,.,,.,

1777
4H8

4075
4040
401110
1'13,0J

7540
4040

7777

??U

nu nn"

rn:1.o 1

11!240
?540
4040
4000

BEQ,

!EXT

2536
25H

1521
4175

MQ£Q,

TEXT

"'1Q •

2540

2541

404C'I
4H0

2542

AC£Q,

TEXT

"ric •

OPtQ,

TEXT

"OP ADOR •"

ST4TEQ, ·Tt)(T

"SUTUS • "

ruo

2545

""'

2546

11H

25'il
2591

25J2

25'4

4eJH
4101

214114
2240

,,l!llll
2H4
e!U4

2523
4&175
4181

""
,,,.,
"''
2922

25U

1781

!5U

241!11

2562

2564

"'AOG STATE IS

. Pl(Q,

TtlCT

APEQ,

T£)(T

XEQ,

TEXT

"INDEX REGS "

RSEQ,

TEXT

"F'PP

4&1U

2405

2565

4111

2566
256?'

4H0

2570

21120

2571
2572

2440
7540

2573

4H0

2514

1116

2515
2576
2517
2630
26:'11

0405
3040
2205

26n
26f'l3
261114

0620

26f'l5
~26~6
)

13137

2532
2533
2534
2535

2547

6•APFl•12

4000

2544

V0213

2531

2543

01 AL.10

U411J

...., . "

0723

4 000

STATE IS "

2040

2324
0124
11!540

"UE u0.;.4

~
F'!ELD 1
26~7

261121
2611

Z62121
0340
:7'$.4JJ
4040
41!1!ll0

26H
2615
2616
2617
2621

6•APA•72

pC!'.Q,

TEXT

"F'PC '

0U4

AOEQ,

TUT

"ADRS 11 "

PlREQ,

TEXT

"lA

2223

2..62,,1

4tlJ75
'4,lf.8

1Jfai

2625

4S40
,,4121
4.He

2623
2624

vn3

13137

Hi6
2415

"
STEP MOOE"

tNSTEP1 TUT

"E~TtR

oUTStP, TE•T

"EXiT STEP MODE "

ASAD OR, TEXT

"f+n

7'1'17
7717
412100

AODR,

11un II

2655
2656
265'1

!"522

AF'TERR 1 Te:XT

26U

23"1
2611
1607
4 0211

2626

2621
26H
2611

l'A"E 120.;.5

1123
401!1121

2612

26.:t~

01AL10

t24fl

2H•

2612 1521
2633

4'11'

26S.
263'

,,,,

2636
26$7

If31
12.24

1''1<4

26•.t

••u

2642
2643

2848
1517

2645

41'8

26'6

1717
., 117

2"641

!6'4

264.1

26'5.t
2651
2652
2653
2654

2661
2662

24Q

&415

480
4121H

:n17
2240

2663
2664

2024

266'

412111

TEXT

"ERROR SAVlNG APT IN EXIT"

F'IE'.L.O 1
2666
2667

2610
2611
2672
2613
26'4
2675
2676
2671
27H
27tl1
271.12

2714
27!5
2786
27111
2711

2711

27i2

27l3
2714

271'

2133

2734

2735
2736
2737
274k'l

~
\

13137

l'At'E U".;,6

IZI

MOEC,

TtXT

"••• TRACE •••

MAINDEC 12e00L.C"

TEXT

"A~L.

"17 "

2422

~111

1604
eJHJ
4861
6255

aoe

14"3
HIH

f11i4
1448

ECON01

ECO'S TM~OUGH #9 MUST B£ !NS?lL.l£0tt

0583

1148
4371

6•APR•72

21103
0540
5252
524S
401'

2712

2724
2725
2726
2727
273'
27:U
2732

i2'111H

5252
524Z

27i6
2717

Vel'!3

1640
2'530
1124

1747
2HI
2411
2217

27H
2721

o UL.i0

2511

491'

2'23
244"
02n

'"i1

1623
24"1
1414
2'5eJ4

"""" "

17;7
4000

QM1<1

TEXT

":.')"

CRL.F',

IZI

;,
311100

ti·, &7 0""1!+112Jlik'l

~
1rL.OAT!\~

~J!NT

~
~X£R~ISER

O!Ai.10

V003

6•APR•72

1r~OAT!NG POIN' EXEReISER
/P~P.8 CODE STARTING 1.0CATlON

13i3'1

l'At:E 121

20?.

1rL.OAT!NG POINT SVMBOI. TA8L.E
I
~r0ia

Ef'EX! hlll00Qll

;::0"2
Z000

EF'L.OUH00

e'003
('!004
60~0

HH'l0

5030
2000
~Ut

11G?1
1111
202'1

1131
11Z1
10el1
1031
1051
1061
1041
0H7

0120
0130
H40
41fH
7890
:5000

0110
0il05
0Q!lll6
61110111
64H

Ere1.u~002

EPNEGllH03
HNORM!ll00214
Ef'STU6"00
EF' ADD•UH

EF'ADDM!;5000

EF' SUB• !011121
E:l.OX•U011J
ESE:TX111i12!1
ESETB•1111
EJXN•2H1
EJSR•1131
EJSA•U21
EJEQ11UIU
EJAa Ul31
EJL. hU51
E:JGT•U61
E:JNE•U41
£JACdl!Jl1l7
EAL.N•lll,,10

EATXdl!l20
EXTAd•U
EFNOP•H40
E'MUL•4"90
rrMUL.M1'1lllH

trOIV•!elH

E:AOOX•fl1UI
ESTRTf'10U;
CSTRTDFZ1111!16
TABl.Eh600

'1H0

TABl.E2t640111
TABL.£3il7H0

7400

TABL.E4•740e

~·---

-.:-::::.=..=~~~;~~-

/FLOATING POJNT EXER:JSER

OlAl.UI

VH3

13137

6eAPRe72

PAGE 1~2

I/I/ill/

lfl.OAT!NC PO!NT COOE AREA
111/)/11
I

/THlS rIRST SEeTION or THE FPP ARlTHEMATtC
/T£ST OPERATE~ ON RANDOM NUMBER ARGUMENTS
!IN TABl.E1 lF Fl.OATING POINT HOOE
/QR TA91.E3 ir eoUBLE PRECISION MOOE
/TME OPERATIONS ARE or TME FORM A•A•A
/OR A•A/A WHERE THE RESUl.T EXPECTED lS
/THE RANDOM NUMBER ARGUMENT ITSELr
/TME RtSUl.TS ARE SfORED lN
tTABLE2 lF FLOATING POINT MODE
/OR TABl.E4 1r OOUBLE PRECISION MOO£
/TMESE TABLES ARE •ee OCTAL LOCATIONS
/IN LENGTH AND ARE 1.0ClTEO IN NUMERlCAL SE~UENCE
/START!NG AT LOCATION 6080 or LOWER 4K
I
I

/EXECUTE IN FLOATING POINT MOOE
/MOVE AANDOM ARG TiBl.El TO TABl.E2
I

(

(l
_/

~
IF'l.OAT!\G PJ!NT EXERClSEq

4tJiHl
4"~1

40;,0
1111

'.:' 1•1.10

'~t'4

,.01,

ESE TX

02106

E:STRTO

2'~31

EXTA l 1

4~17

4020
42121
4U2
ilU:S
42124
4025
40!6
42127
413111
4131

•n2
4133

0023
1031
5041
2'"2!4a!
!f)-4"

1:Ul
4476
1131
4734
1121
5037
1031
4t40
Hel5

"'i1
5715
6531

4035
•flJ36
4i:!7

/1.0AO X1

/RESET X3 roR REEN,RV

EATX!:S
EJA

1..INK•2
HNOP
EP.jQP

F'P'l,

EJSR
F'SET
EJSR
RANGEN
£JSA

/SETUF F'OR TST

I.INK
EJA

P'PP2
[STRTF

F'PP1R1

EPLDAl'11

/LOAD F'ROM TA8LE1

Ef'STAIB31

/STORE lN TABL~ 2

TABl.E1ii3
TA81.E2•3

1131
4536

F'CMPR

EJSR

/COMPARE TABLE~ WITH 'ABLEt

/COMPLUEC BL.OCK

EJXNIUI

4Qla4

f'PP1R

12U

£'Cl.A
EJ"AOO l 211!!

1''441
41i1U

F'PF1

•n• H·u

FACE 123

XIH:G1

6375

2101

13 l 31

6•APR,.72

BASE

5700

11~

401.'5
4H6
•0n
•010
4011
'1'12
'cZt!
4QJ14
4015
4016

\1003

•4;',Z'ESURT 1 ESET9

·~~u

4nJ

EJNE

/VU

/LOCK ONTO TST
/If' OF'F'StT 11!! IS NON•l~RO

---~--~----

1rL,OAT!N~

PQfNT EXERCISER

:llA(.10

Vi1103

6•APR•?'2

13t37

PAt;E 1~4

/EXEcuTE IN DOUBLE PRECISION MOOE
/~OVE

11:51
4643

'""" 1121

4111'1
•rH2
4043
•11144
•2'45
•046
411147

0fH6

EJSR
~PSE:T

/SETUP F'OR TST

rPP2R 1

EJSA
L.lNK
EJA
f'PP3
ESTRTO
EF'l.DAl511
TABL.E3•2
Ef"STAl531
TABLE4•2
EJSR
OPC:MPR
EJXNIU0

/l.OAO RANDOM ARG
/rROM !ABL.E3
/STORE SAME
II N TABLE:4
/JMl:t.SAVE RETURN
/TO C:OMPAR£ sua
/COMPL.;TED BLOCK

'"'" 6':51
4051
40!2
40!3
4054
4055

•U6

4057
•0u

•su

•062

ARG TABLE3 TO TABLE4

F'PP2 1

50:57
1131
4H3
111511

RA~DOM

6776

?iS,6
1131

4716

2U1

f"PP2R

4047

EF'Cl.A
£r ADO l2U'
EJNE
F'PP2

0H2

12U
111141
400

/YES

/l.OCK ONTO TST
/lf" OF'PSET 10 JS NON~lfRO

/EXEoUTE lN F'l.OATlNG POINT MODE
/AOO SUBTRACT TEST
I

4063
4064
4065
4166
4067
4070
4071
4072
4073
411J'f 4
4fa75
41!176
41!177
41'!'111
41(1!1
41212

1131

"'6
41ie

21U5
05!1

5775
1411
57'5
2411

5775
6531
6375
1131
4560

4111J4
411'5
41216
4107
41UJ
4111

211/l 1
40'2
li'll!l0 2

1210
1041
4063

EJSR
F'SET

1121
5n7
111131

41~3

~
I

F'PP3,

F'PP3R 1

EJSA
L. l NI<
EJA
F'PP4
EST RTF'
Erl.OAl'11
TABL.£1•3
Ef'AOOl•U
TABl.Eb3
EF'SUS I '11
TABl.!'.1•3
£f'STAl531
TABl.E2tl3
tJSR
F'CMPAS
tJXNtlH
F'PP3R
EF'Cl,.A
EF'4DOl!10
EJNE
f'PP3

/JMP•SAVE: RETU~N
/StTUP iUB

/l.040 RANOOM A~G
1rROM TABL.U
/AO
/A•A•A
/STORt IN TA8~~2
/JMP•SAVE RETURN
/COMPARE SUB

/COMP~ET~O

/Y!:S

BLOeK

/l.OCK ONTO TST
/lr OF'F'SET 10 ts NON·lER~

~
1rLOAftNG FOtNT EXER:t5ER

OlAl.U

VllJQJJ

6•APlh72

13131

F'ACE 1:!5

/EXECU'E IN OOUBLE F'REClSlON MOOE
/ADO·SUBTRACT TEST
I

4'1/U

U.llr

4113
4114
4115
4116
4117
412QJ
41'-21

111J31
4141

•S-2"2

1-1'16
f4''f1

4124
4125
4126

41.21
43,St

4"643'
1121

'"37

0H6
IJ'5t1-

6776

2411

67'16
6'31

1;s,,

4131 1n1
•1!2 4'1i64133 211!11

nu
41'5 llJf12

4134

'41H

4137

4141

F'PP4 1

Uil

1141
4"112

£JSR

OPS[T
EJSA
LINK
EJA

/JMP•SAVE RETURN
/SETUP SUB

f'PP5

F'PP4R 1

ESTRTO

EVl.DA I '11
U8LE3•2

ErAIJCll'1t
TABLU•z
EF'SUSI0.1
TAiL.Eh2

E'5Ul9:51
TULE•.iz
EJSR

/L.OAO RANCOM ARG
/rRQM !ABL.£3
/UA

/A•A•A
/STORE RESULT

EJXNIUI

/IN TABLE4
IJMP•SA\IE RETURN
/COMPARE SUB
/COHPL.tT!D BLOeK

E'ClLA
E'ADDllU
EJNt

IL.CCI< ONTO TEST
/If' orf'SET 111J is NON~l!RO

OPCMP,_

,.,. .. 4..

f'P1'4

/VU

/F'l.OATtNG ~O?NT EXERCISER

DIAL10

V01!!3

6•Af1R .. 72

/EXECUTE !~ 1'-'LOATlNG POINT
/~ULTlPl.V•DIVIOE TEST
I

4141
4142
4143
41'4
4145
4146
41'1
4150

1121
50:57

Ul31

4112

41!55

5715

"1'6
'4157
4Ufll
4161
4U2
4163
4164
4165
4166
4167

6212
:S2h
6531
63'5

411fll

41'1

I
I

1131

45,2
2U1
41!JS

3H2

1210
UJ41
4141

EJSR
F'SET
EJSA
I.INK
EJA

PAeE 1h

MOOE

/JMPwSAVE RETERN
ISrTUP SUB

F'Pl'6

3H5

41'4

41'2
4153

,.. pp'·

44'6

0511
57'5
0H4
6211
44h

•1'1

1131

13137

F'Pl'5R1

ESTRTf
EF'L.DA 1511
TABl.Eb3
Er NORM
EF'STA I U1

EF'MUl. I H1
TABL.£1•3
EF'STA I U2
Ef'OlVl2U
EfSTA I !J31
TABl.E2•3

EJSR
F'CMPMD

EJXN I UJfll
F'PP5~

Ef'CL.A
EF'AOO 1210

£JN£

F'Pfl5

/L.OAD RANOOM ARG
/F'ROl'l ~ABL.E1
/NORMAL.li!E
/STORE lN OfF'SET 1!
!A•A
/STORE IN OF'F'SET 1i
/AOAIA
/STORE RESUL.T
/ lN UBL.ta

/JMP•SAV!: RETURN
/COMPARE SUi
/COMPL.ETEO BLOCK
/VES
/l.OCK ONTO TST
/lF' or,stT 11 lS NON~i~RO

~
/F'LOATlNG POINT EXERCISER

OlAL.111!

VH3

6•APR•72

13137

~'
PA~E

/EXECUTE IN OOUBL.E PRECISlON MOOE
/MUL.Tll'l.V OIVlOE TEST
41,12
4113
4174
4175
4116
4117
42 H
421U
4'ar.t2,
4,al'~;.

421!'4
42CJJ5
42"6
421!!7
42111
4211
4212
421;5
42i4
42i5
42U
4217
42H

4211

1l3l;
46-43,
1121
5037

F'PP6 1

1031

4222
0006

05,11
6•1'6

4'4'11
67'6
6212
3411

6776
6S!1
73'6
11!1

4716
2111
4211

0H2
1211

1141
41'2

EJSR
OPSET
EJSA
LINK
EJA

/JMP•SAVE RETURN
/SETUP ROUTtNE

F'P1'7

F'PP6R1

ESTRTP
HL.OA 1511
TUt.£3•2
EF'MtJ.L.1411
TABL.£3ii2
HST AI 212
EF'OlVl411
TABL.E392
E'STA I 931
TABL.E4•2
EJSR
DPCMl'R
EJ>CNI ue

IL.CAD RANOOM ARG
/F'ROM !ABl.E3
/A*A

/STORE lN orrsET 1~
/A•A/A
/STORE RESULT
II N TABL.£4
/JMP•SAVE RE;TIJRN
/COMPARE SUB
/COMPL.tTEO BLOCK

F'PP6R

ErCl.A

ErAClO I 2U

EJNE

F'PP6

/YE:S

/l.OCI< ONTO TST
/IF OF'F'SET 1m IS NON•l£RO

1:!">'

1rL,04TfNG PQ!NT EXERelSE~

DlAL.1"

V0QJ3

6•f1PR•72

13137

/EXECUTED lN rLOATiNG PO?NT MODE
/NORMALicE•AL.IGN TEST

4222
4223
4224
4225
4226
4227
4230
4231
4232
4233
4234
4235
4236
4237
42421
4241
4242
42tf3
42tf4
4245
•2u
4241
4250
4291
42!12
4253
42!14
42'5
42'6
4251
•2u
4261
4262
4263

1131

F'PP?,

00el5
0411

F'PP7~,

4476
1121
5031
1031
4264
5716
001116

0022

"'"'
,.,.,,

nh
H04
Hi2
0004
U12
elfii!Ql4
01U2

0004
Hi2

0 fr!IQJ 4

H12
6531
6~15

1131
4536
2U1
4231
011H'12
12UI
U41
4222

EJSR
F'SET
E,JSA
L.1NK
EJA
rPP1QJ
EST RTF'
EVl,.DA I '11
TABL.Eh2
ESTRTD

EATXl2
E:STRTF'
E'l.OAl511
TABL.E1ii3
ErNORM
Ul.N12
£'NOFIM
CAl.Nl2
E'NORM
EAl.Nl2
EF'NORM
EAl.N12
£'NORM
EAl.N 12
£'STA 1131

TABl.f:2ii3

E:JSR

F'CMPR
EJXN11H

IJMP•SAVE RETURN
/SETUP SUB

/l.OAO RANOOM ARG
1rRoM TABl.E1
/STORE IN lR 2
/l.OAO RANDOM ARG
/F'ROM !Aetl.U
/NORMAl.IU
/Al.IGN ON ZR 2
/ETC

/STORE RESUI. T
/lN TABL.£2
/JMlhSAVE RE:TUFIN
/C:OMF'AFIE sue
/COMF'l.E:O B~OeK

F' P"1FI

EF'CL.A
E'4DCIU0
EJNE
rPP?

/VU

/l.OC!< ONTO TST
/lF' OF'F'S£T 10 lS NONlE~O

"At:E 128

~
1rLCATtNG POtNT EXER~ISE~

D1ALU

V003

6•APR•72

1313'

l'Al;E 1~9

/EXECUTE IN DOUBLE PRECISlON MOOE
/TESTS S~lFTtN~ OF THE FAC VIA ALN I~S!
/lNOEX REG 4 CONTAiNS NUM RIGH! SMifTS
/INDEX R[G 5 QONTAiNS NUM I.EFT SMlFTS
I

4264
4265
4266
4267
421eJ
42'1
AJ12

'1~37

4216
42'7
43021

Hl14
!!Iii 15
21014

4;5QJ1

illli5

1131

4654

1121
1e31

4~17

,i1216

'Z'J lll112
42"4 11lli4
4215 HU

Hi4
4H3 11l115
4314 0114
4305 G!ll15
4316 6731
4311J7 1131
43U 4726
4311 21"'1
4312 42'3
431:5 l!JH2
4314 uu
431' U41
4316 4264
4H2

r?PUJ,

EJSR
OP5EU.
EJSA
1..1 NI(
EJA
l"PP11
!STITO
rPP111JR 1 Efl.OAl112
EAl.N14
EAl.Nt!S
Ul.N14
EAi.Ni'
EAl.N14
EAl.Nt5
EAl.N14
£Al.NI'
EAl.Nl4
EAl.N 15
E'STAl131
EJSR
OPCPRl
EJXNl+H

/JMP11SAVE RETURN
/SE'.TUP SUB
/GO TO NEXT TE~T
/LOAD RAN ARG ~ROH TAB~E 3
/SMJF'T VlA lR ~
/SMtFT VtA IR 5
/E:TC

/STORt RESUl.T lN TABLE4
/JHP•SAVE R£TU~N
/COMPARE ROUTINE
/COMPl.~TED

BLOeK

,PPUJA

E:F'CLA

EJ'AOOll18
EJNE

/YES
11.0CK ONTO TST
11' orrstT 10 IS NON~iE:RO

F'PPUJ

-----~· ="·~

1rLOAT!NG ?QtNT EXEROISEq

O!Al.10

v01!13

6•APR•72

13131

"A~E

1:!0

/EXECUTED I~ r~OATf NG PO!NT MOOE
/ADD TO ~E~ORYeSU3TRACt TEST
/PRELIMINA~Y COMPARE or F'AODM ANO F'AOO RESULTS MA~~
/TMEV S~OUl.O Bf EQUAL

4317
4320
4321
4322
4323
4324
4325
4326
4327
4330
4331
4332
4333
4334
4335
43U
43:57
434il
4341
4342
4343
4344
4345
4346
4347
43,ril
·~'1

1131
4512!
1121
5037
1031
4352
111005

F'PF'111

EJSR
rSE:T1
EJSA

1734
6222
5634
0634
2222
1H1

Erl.OAIU4
EfSUBl!22
EJtQ

00H

E'txn

EF'l.OA I '13
Ef' ACOM 1634

GOU

4340

0613

66:54
1131
4536
2U1
4326
0H2
12U
1041
4317

/SETUP SUB

~INK

EJA
rPP12
ESTRTr
rPP1iR1 rr1.0AlY13
ErAOOl '34
e:rSTA 1222

0'713

/JMP•SAVE RETURN

GOU,

Efl.OA I UJ
EJ"SH 1634
EJSR
F'CMPR

EJXN11H

F'PP11R
EJ'CL.A
EJ'AOOl2Ul
E:JNE
rp1111

-11.0AO RAN ARG ~ROM TAB~Ei
/AU
/STORE lN orrsET 2!
11.0AO RAN ARG ~ROM TAB~Ei
/A+A TO MtMOR'I'
/l.OAO hA
/~UBTRACT orrstT 2!
/SMOUl.0 tQUAI. IERO
/VU
1rAOCM AND 'AOQ REIULtS Ol,F'ER
11.0AO ARG IN TABLEl
/STORE BACK lN TABC£2
IJMP•SAVt RtTURN
/COMPARE
/COMPl.JTED BLDeK
IYE:S
11.0CI< ONTO TST
ll' OFF'StT 1e fS NON~ifRO

~
1rl.OAT1NG PQtNT EXERCISER

OlAl.121

V01?!3

6•APR•72

13137

?A~E

131

/EXECUTED IN OOU91.E PRECIStON ~onE
l•D~ TO MEMORV•SUBTRACT TEST
/PRELI~INARV COMPARE or rAODM ANO rAOD RESUl.TS ARE MAO~
!T~Ev SHOULD BE EQUAL
I

43'2
4311J3
43,4
4355
4356
43'1

'3-U

1131
4671
1121

EJSR
OPSET2
EJSA

'"37

l.lNK

1031
4405
Hlet

F'PP13

4J61

"112

4362
4363

1731
6222
0612
5631
0631
2222

4364
436'
4366
4361
4319
4371
43'2
4313
4314
4375
4376
4317
4409
4401
441112
44m3
44"'4

rPP121

EJA

ESTRTO
rPP12R1 ErLOAl'12

ErA00173j,,
Er SH 1222
EF'l.OAl'12
Er AOOM 1631
E'LOAl631
U'SUB I 222
EJEQ

Ut"1

GOU

4;573

HH
t'l612

u:u
4716

1131

2U1
4361
0902
1219
111:141
4352

/JMP•SAVE RETURN
/SETUP SUB

G0121

H£X1T
UL.DA I t12
ErSTAIU1

EJSR
OP CM PA
EJ'XNUH
F'PflUR
tr CL.A

EJ"ADDI tU

EJNE

/I.CAO RAN ARG rROM TABLE3
/A.•A
/STORE lN orrsET 2!
/l.OA.0 RAN ARG rROM TAB~E3
IA•A TO MEMORY /I.CAO R£$Ul.T A•A
/SUBTRACT 0F~$ET 22
/SMOUl.0 EQUAi. lERO
/YES
/FA.DOM ANO FA.CO ~E!ULTS 61,J"ER
/l.OA.0 ARG IN T•e1.Es

/STORE BACI< IN TA.9~£4
/JMP•SA.VE RETURN
/COMPARE SUB
/COMPLETED BLOeK
/VU

/l.OCJ< ONTO TST
1ir orrstT 10 IS NeN~lfRO

F'PP12

-----~-=-~

1r1.0AT?NC ?QtNT EXERClSEq

0 I 41.1"

V003

6•APR•'12

13t37

~A~E

132

/EXECUTE~ ?N r1.o•riNG PO?NT MOOE
IMUl.TIPl.Y TO MEMORV DIVIDE TEST
/PRELlMI~ARY COMPARE or rMULM ANO rMUL. RESOLTS A~E HAO~
/TMEV SMOUl.D 8[ EQUAL

4405
44t'!6
4407
4412'
4411
4412
4413
4414
4415
4416
4417
4420

4421
4422
4423
4424

4425
4426
4427

443111
4431
4432

4433

4434

1131

1"31

EJ4

4442
0"05
0713
"""4
6211
4734

EF'NORM
EF'ST A1211
EF'MUl.1'34

EJ'STAl222
EF'l.OA 1211

ErMUl.Ml634
Erl.OAl634
EF'SUBl!22
EJEQ

2222
1H1

6634
1131

4536
21U

12121
U41

0002
44U

RETURN
-

i:'PP14

EST RTF'
F'PP13R, Ef'l.DA I '13

0634

443il
01'll!l0
0U3

/JMlhSAVE

/SETUP SUB

L.INK

6222
0211
1634

4437

)

F'SET1
EJSA

4414

~'
\

EJSR

4510
1121
5"37

405
4436
4442'
4441

rPP131

G013
EF'E: XtT

C013,

E'l,,OA I 613
ErSTAl634
EJSR
rcMPR
EJXN I U"
F'PPUR
EF'Cl,,A

ErAOOl2U
EJNE;
J'PP13

/l.OAO RAN ARG [ROM TAB~Ei
/NORMAL.JU
/STORE lN OF'F'S£T 1{
/AH

/STORE IN orrSET 22
/l.OAO Of'll'SET 11
/AU TO ME;MORV ..
_ /I.CAD R£SUI. T A•A

/SUBTRACT OF'F'SET 22
/SMOUl.0 EQUAi. itRO

IVES

IF'MUl.M ANO F'MU~ Rt!U~'S O!,F'ER
/GET ARG lN TABl.El
/STORt BAC~ lN TA9CE2
/JMP•SAVE RETURN

/COMP AA&;
IYE'.S

/COMPL.UE'.O BLOCK

/l.OCI< ONTO TST
II' OFFSET 1~ IS NON•lfR~

~
/tl.OATl\G ~ot~T

r"'.
~XERCISE~

D 1 ALU

VZ23

6•APR .. 72

13,37

~A~E

1'.'3

/EXEcUTE1 IN DOU81.E PR£c!SlON MODE
/MUl.TlPl.V TO MEMORV•DlVIOE TEST
/PRELIMI~ARY COMPARE or rMUl.M AND PMUI. RESULTS ARE MAD£
/T~EY SHOUl.D BE EQUAi.
4442
4443
4444
4445
4446
4447

...,,,
4'4:5'1

44'2
4453
44!54
44'5
44'56
445'1
44H
4461

1131
4611
1121
5"37
1031
42113

0:N,6
0'7'12

4n1
6222

F'PP14 1

EJSR
DPSET2
EJSA

/JMP•SAVE RETURN
/SETUP SUB

1.1 NI<

EJA
F"PP1
ESTRTO
F'PP14R1 e:rl.DAl'12
trMUl.1731

e:rsu 1222

Erl.CA 1612
Ef'MUl.Ml631
EF'l.OA 1631
HSUBI t22

~612

7631
~631

2222

EJE:Q

1H1

4463

G014
e:re:xn
Erl.DA I 612

/I.CAO RAN ARG ~ROM TABLE3
/A*A
/STORE IN OFF'SET 2~
/l.OAO RAN ARG ~ROM TABLE3
/AIA TO MEMORY
/I.CAO RESUl.T A•A
/SUBTRACT OFF'SET 2!
/S~OUl.0 EQUAi. itRO
/n'.S

4462
4463
4464
4465.
4466

0 ilMJ

4461

2101

EJXNUH

/F'MUl.M ANO rMUI. RESULT o!rrERS
/l.OAO ARG lN TABl.ES
/PUT BACK lN TABLE4
/J"IP•SAVE RETURN
/COMPARE SUB
/COMPl.ETEQ Bl.OCK

0H2

ErCl..4

/YES

12131
4fU3

EJA

44721
4411
4472
44734414

0612
6631
1131
4716

G014,

Ell"STA I e31
EJSR

OPCMPR

F'PP14R

4451

ErADttl !1"1

12U

/l.OCI< ONTO TST

F'PP1

/OUMMY POINTER
/ENO Of F'PP TtSTS WAS rPP;l,4

4415

et0'1J121

F'PP1!51

/tNTEREO ONL.Y !N F't.OAT!NG POINT "100£
/SET UP or F'PP INDEX REGISTERS/

4476
4477
45210
4501

32105

rsn,

ESTRTF'
1653

451?J2

1653
0101

/Cl.EAR TME F'AC
/l.OAO IR i
/W lfM •125

EL.DX!l.

II.CAO IR 1

l?J

/WtTM 0

45~4

Cl000
'.'11t'13

45('15

~0il0

EL.OX13
0

.JW ! TM 1Z1

4~ri!6

1031

45!'f3

451'!7

0032

Cl1""

57t'!l

ErOL.A

n.ox 10

EJA
BASE•;!.

/I.CAO IR 3

/J~P Al.WAYS
/O~F'SET ~ lN

BASr. REG TA81.~

1r1.0AT!NG ?Q!NT ~~EReIS[Q

D?ALU

V003

~·AP~•72

13i37

l'AeE 1:54

/ENTEREO 0~1.V tN rLOATlN~ POINT HOOE
/SETS UP ;pp INOEX REGISTERS
l~VPLICAT[S TABLE1 INTO TA81.E2
451rll
4511
4512
4513
4514
4515
4516

~\
I

EL.OX 11

~102

12! Ill 12!0

e:rc1.A

7653

'11000

4521

E:STRTf
£1,,0Xlrll

7653
Ql101

7653

4522
4523
4524
4525
4526
4527
4539
45:51
4532
4533
4534
4535

F"SET11

"10212
i2J100

4517

4520

I
2li2l2'5

0103

/Cl.EAR THE rAC
/l..OAO lR l1l
/W !TM •125
/l.OAO lR 1

('!

/WITH 0

EL.0X12
7653
El.OX!:S

/l..OAO IR 2
/WtTM •125
/l..OAO IR 3

/WITH 0

0104

E'.L,OXl4

12!H0

/WITH 111

E'.L.OXJ'

0105
0H0

0541
5715
6551
U75
2121
4526
1n1

57"1

MORE I

£F'l.OAl541
TABL.U93

EF'STAl!l51
TUL.£2.J

E.JXN11H
MORE
E,,JA

BASE•1

/l.OAO l R 4
/l.OAO IR 5
/Iii! TM 111

/l.OAO l'AN ARG
/IN TABL.£1
/STORE RAN ARG

/lN TABl.£2

/DONE U5 TIMES
/NOaOO IT AGAIN
/.JMP Al.WAYS
/OF'F'SET 0 IN BASE ~£~ TABL.E

t"i
/FLOAT!~G

PJINT EXERCISER

:JI AL.HJ

V033

6•APR•72

13i37

PA~E

135

/ENTER O~LY IN FLOATING POINT MODE
/COMPARE TA8LE1 WITH TABLE2
/THEV S~OULD 8£ EQUAL
/TEST OFFSET 16 IN BASE REG TABLE
11r ~O' !ERO
/OECREME~T INOrx R£GlSTERS AND
/EXE~UTE SAME ARGUMENT IN TA8LE1 AGAIN
/THE RET PORTION or THIS ROUTINE
11s USED av ALL OTHER COMPARE ROUTINES
/IN 90TH fLOA!!NG PO!NT ANO DOUBLE PRE~lSlON MOD~
I

4536

0411
5715
2431
6315

4537
4540
4541
4542
4543
4544
4545
4546
4541
45!1eJ
45'1
45!12
4553
4554

0216
1801

45115
4556

1'?17
1031

4557

5701

FCMPR1

Ul01
4545
l'JS411>
4556

01!s
7777
21111
7777

~113

ERtT,

EFLDAl411
TABL.!1•3
EFSUBl431
TABL.£2•3
EJEQ .
ERET
EPNOP
ErLOAl216
EJtQ
RETlNC
EAOCXlf
1717

EAOCXli
7777
EAOOXIS
1717
RETlNC1 £JA
BASE•1

/LOAO RAN 4RG
/IN TABLE1
/SUBTRACT RESULT
/JN TABL.t2

/JMP IF FAC•0
/RET ROUTINE TO RE!NTER MA!N FPP PROO
/LOAO OFFSET 1~ IN BAS! REG TABLE
/JMP ,, FAC•e••IE~ CONT ~oeK ONTO TEST S[Q
/RETURN TO MAIN FPP PROG
/AOC TO lR ~
1•1
/AOC TO JR 1
/•1
/AOO TO IR 3

1•1

/JMP ALWAVS

1orrstr or

11>

lN BASE R!G

1rLOATlNG POINT EXEKClSE~

~lAl.10

VHJ

6•APR•72

I
IE~TER 0~1.V IN rLOAT!NG POINT
1r~J~ A~ A~O?T!ON•SUBTRACTION
/CO~PARE TABLE1 Wl'H TABl.E2

13t37

PUE 136

"'OOE
!EST

1TMEV SHOULD BE EQUAL
I

45U
4561
4562
456;5
4564
4565
4566
4567

11l411

5775
2431

6375
111141
457eJ
111131
4545

rCMPAS 1 EJ'l.,OA I 411
TA91.U•3
EVSU91'31
TABLE2•3
EJNE
rASCI<
EJA
ERET

/LOAO RAN ARG
/lN TABl.E1
/SUBTRACT RESULT
/lN TABl.E2
/JMP ir rAC NO! ~
/AOO•SUBTRACT CATA ERROR
/Jl-lP Al.WAVS
/RET ROUTINE TO R£!NTER MAf N rPp PROG

1rLOAT!NG POINT ADO•SU8 'All.ED
45721

4511

u:u
4545

PASCK 1

EJA

/CATA ERROR EXIT

ERET
/tNTE.RED ONLV IN 'LOATING POIN! MODE
/YROM •OUTINE OOJNC A HULTlPLV•OlVlDE !EST
/TMl! •OUTINE COMPiRtS TA8LE1 WITH TA8LE2
/TM£¥ SHOULD 81 EQUAL

4572
4513

0411
'175

4515
45'16
4517
46(121

63'5
111141
4602

.,.,4

461111

2431

10:51
4545

rcMPMD1 E'LDAl•l1
TA9LU91
trSU8IU1

ua1.u•i

tJN£
rHOCI<
EJA

tRET

/LOAD ".'AN ARG
/IN UBLU

/SUBT~ACT R£SU~T

/IN TABl.£2

/JMP l' rAC NO! I '0 rlMO

/CMECK FOR I.EGA~ UNDER,1.0W

/JMP ALW~YS

/RET ROUTINE TO A£!NTEA MlfN F~P PROC

I
I

~ I

( ,,)

()/
\.,

~
1rLOATtNG POINT EXERCISER

DIAL.10

V003

6•APR•72

13l37

PAGE 1:57

I
/ENTERE~

ONLV IN rLOATING POINT MOOE
1rROM rcMPMO ROUTINE
/W~EN

RANDOM A~G otrrERS rROM RESUl.T

/BV Pl.US QR MINUS 1 DUE TO ROUNDING
/ROUTINE TESTS fOR T~IS OCCURANCE
46Q!3

0431
6315

46"4

HH'.11

46~2

46~6

4632
0006

461!17

1a14

4610

0-00:5

46~5

4611
4612
4613
4614
4615
4616
4617
4620
4621
4622
46?3
4624

4625

4626
462'1
46311
4631

rMOCK1

Ef'l.DAl431
TABl.E2•3
EJE:Q

ri!MD
ESTRTO
Ef'ADOl214
ESTRTF"
Ef'SH 1215
Erl.DA I !15
e::rsue 1•11

6215
"215
2411

UBl.E1•3

5?15
101211
4545

EJEQ
ERET
Ef'l..OAl431
TABl.t2•3

0431
6315
0006
1217
0005

E':STRTO

EF'AOOll1'1
ESTRTr

/STORE lN orrsET 1' Of' 8ASr RE~
/l.OAO OfF"SET 15 IN BAS[ Rt~
/SUBTRACT RAN ARG
/lN TABl.~1
/JMP lf F'AO•~
/RET ROUTINE TO RE!NT£R MAlN F'PP PROG
/l,.OAO WlTM RES~LT
/lN TABl.£2

/AOC 1 CONTAINED lN orrs~T 11 or BAS[ AEG

TABL.£h3

ERET

/R[T ROUTINE TO RE9£N,rR MAIN rpp PROG

HSTAl221

2411
57'5

E':VSUB l '11

£'1..0.ll221

EJA

4545

/SUBTRACT 1 CONTAlNEO IN orfS£' 14 or BASE REG

/STORE IN orrstT 2! BASE R[G
/LOAD orrS[T 2~ tN BASE REC
/SUBTRACT RAN ARC
/IN TABl.£1

6221
0221

U31

/l,.OAO RESUl.T
/fROM TABl.E2
/JMP tr rAC•~ TO
/ROUTINE TO TE~T roR l.EGAl. u~D~RF"LOW

/ENTERED ONl.V JN FLOATING POtN! ~OOE
/WM£N RESULT HAS ~£RO MANTISSA
/ROU,lNE TESTS roR A l.[GAI. UNOERrl,.OW
4632

4633

46~4

4635
4636
4637
4640
4641
4642

0411
5775
42i3
1001
4545
0002
6223
U~1

4545

Fi!M0 1

EJ"LDA l •U.
TA8L.E1•J
EF'MUI. 1213

E:JEQ

ERET

HC:LA
EJ"STAl223
EJA
ERE'.T

11.0AO RANDOM ARG
/F'ROM ! ABl.U /MUl.TlPLY BY CONSTlNT !N orrsET 13 or BASE REG
/JMP l r F' AC.rll
/RET ROUTINE TO MA!N F'PP PROC
/Cl.EAR F'AC
/fl.AG 8 UNOERrLOW NOT LECAL

1rl.OATtNG ~O?NT EXERCISER

DlAl..10

Vf/Jl!l3

6•AP~•72

13137

FtACE 138

/SET UP OF FPP INDEX REGISTERS
/FOR OPERATION IN 'oua1.e: PRECISION MOOE
4643
4644
4645
4646
4641
4650
46!11
4652
4653

012106

DPSET1

ESTRTO

~Ul0

n.ox10

7600
t"U1
000121
1111'!13
01iH!lf/J
HJJ1
57211

7600

El.DX11
m
E1.0Xl3

"'EJA
BASE•1

11.0.AD lR 0
/WlTM •200 /l.OAD lR 1
/W lTM Ill

11.0AO tR 3
/WtTH Ill

/JMP Al.WAVS
/OrF'SET el JN BASE REG TAel.E

/SET UP or rPP JNOEX REGISTERS ON PAGE 0
1roR OPERATION IN DOUBLE PRECISION MODE
/ENTe:Rro rROM rPP111l TEST
I

4654
'6'5

02106

0100

OPSET11 ESTRTD
EL.OXU

46,6
4651
46U

16""11
eJU1

'6""1J

4661
4662
4663

21U3

El.0X13

4664
4665
4666
4667
4670

G'J014

00f/Jfil

0211!!0
0104

212.U
7764
U31
57PJ1

EL.OX11
l1l

/l.OAO tR 0
/WITM •21110

/l.OAO lR 1
/WlTM I

/L.OAO tR 3

/W JTM Ill

!\ii lTM 14

EL.OX14

EL.0Xl5

7164

EJA
8ASE•1

/l.OAO lR 4
/l.OAD lR '

/WITH •281

/JMP Al.WAYS
/O,rSE! 0 IN BASE RE~ 'Ael.f

~
1rL.OATlNG POINT EXERCISER

LI l 4L.10

V003

6•APR•72

13137

PACE 1:39

/SET UP ~r rPP tNOEX REGtSTERS ON PAGE 0
/~UPL1CAT10N or TABLE3 t~TO TABL.E4

4671
46'2
4673
4674
4675
4616
4617
47H
47eJ1
470·2
4703
4704
4705

470
4707

47UJ
4711
4712
4713
4714
4715

~0!116

~PSET2 1

"!1210

761210

76!'10

ELOXl1

'71101

2'2'1210
33.02
?600

ELOX12
7600
ELDX!3

121103

l'!Hi2l

0104
ff0RJ
11!1215
11lH0
!!1541
6776
65'1
73'6
2121
4706
U.131
571111

ESTRTO
ELOX10

ELOX14
121

ELOXI'
121

MOR,

rrLOAl54i
T4BLE~•2

ErSTAl951
TABLE4•2
EJXN1lf0
MOR
EJA
BAS£•1

/LOAO lR 0

/WlTM •200
/LOAO IR 1
/WJTM 121
ILOAO lR 2
/WITH •200
/LOAD lR 3
/W?TM 121
/LOAD tR 4
/WITH 121
/LOAD lR 5
/WlTM 121
/LOAO RAN ARG
1rROM TABL£3
/STORE-IT
/IN TABLE4

/DONE 200 TJME~
/NO•OO IT AGAJN
/JMP ALWAYS
10,rstr 0 JN SASE REG TABLE

4716

121411

4117
47211J
4721
4722

6716
2431
7376
1H1
4545
1031
4545

4723

4724
4725

/COMPARES DOU8LE PRECISION NUMBERS
/TABLES WITH TABLt4
/USING DOUBLE ~ORO DIRECT REr£RtNC£ tNnRUeTtONS
I
/L,OAO RANDOM ARG
OPCMPR 1 £rLDAl•11
/F'ROM TABL.E3
TABLEh2
/SUBTRACT RESUL.T
EF'SUBl•31
TABLE••2

tJtQ
ERET

/'ROM !ABL.£4

11' THEY ARE E~UAL.
/JMP TO ~ET

EJA

ERE:T

/COMPARES DOUBLE PRECISION NUMBERS
/TABLE3 WITH TABLE4
/VSl~G SINGLE WORD INDIRECT REPERENCE

I
4726
47'?.7
4730

l?J631
2612

10211

47~1

4545

4n2
4nJ

U31

Ol'CPR1 1 ErLOAl631

n·sue l61.2

EJEQ

F.RET
EJA
ERET

4545
I

lNST~UC::T!ONS

/LOAO RESULT 'ROM TABL[4
/SUBTRACT RAN ARG rROM TABLE~
!lF THEY ARE EQUAL
/JMP TO RE:T

1r1.oATtNC PatNT £XERe1sER

f- '--'

47'34

1101

4715

5026

4736
473?
4 '""
4741
4742
4743

4744

4?45
4?46
4?47
475f1J
47"1
4752
4?53
4754
4755
47!56
4?57
47U
4761
4762
4?63
4?64
4?65
4766
4767

477f1J
47'1
47'2
4773

.,,,
0'74

4776
4777
5f1JH
5U1

1111
5032

OIAl.1111

VH3

0" 1210

0l,Ql0

EL.OX 11/J

?600
0006

ESTRTO

•2Zf1J

E'l.OAl2"2
EJI. TU

li'!20J2

1i151
4756
22~3

RCONST
EF'SUBl2H

1"51
4756

RCONST

EJl.T

EF'l.OA 12"2
E:F'SUBl!H
EF'STA I U2

t.'!202

22H

UH
0411
UH

RCONST, EF'l.OAl2f1J2
E'STA I 411

RGE'.NA1

TABl.U
E'l.OA I •U.

TABl.U

1201
6411

EJ'AOC IH1
£'STA I •11

1201
'"""

£,STAl'U.

6511
UH

211!11
4761
6202

1U1
5f1Ji6
1111
57H
1n1

5701

PA(;E 140

r1.ox:1

211!1~0

6202

13137

1UNGF:N 1 ESr:TX
XREG2
ESE:TB
RBASE

0101

0202
6411

6•APlh72

TABl.U

E'ADOIU1

TABL.£1

£J)(NI UflJ

RQENA
EF'STAIH2

!'.S£T)(

XREG1

E$ETB
BASE

EJAU
BASE+1

, I
I

~
'
/

~
I

•

~
\

t"i

1rLOATtNG PQ!NT tXERCISER

s0n

~Z0kl

5Z?!3
501'14
'5!0?!5

2657
1234
21000

50f 6

1'1005

30t'l7

1'1011
1'10210

s010
5011
5012
5013

5014

5015
5016
5017
5020
50U
'5022
!5023
!5024

511125
5026
!5027

R3AS:'.1

~0~0
~02!5

0011
r/'000
2220

:i!"""

Pl011J0

Ql0011l
1373
Z000

00Z0
13?3
0 flH'J ~

XREGi1

l'llCl00
1'1000
0000
0000
0000
0H0

011l011l
12lH0
0000

5030
5031
51ZJ32
5033
51ZJ34

0211!!0
0"'1'0
0000
0 0rll 0

5035

21000

H00

n:rn
2657
1234

2200

fl!H

~IAl.10

"'l'J
Q'J

""'
0
el

XRl:G21

rlJ

el
I'll
pt

""
Ill

V003

6•APR•?z

13137

.;A~E

141

/FLOATING PQ!NT EXE~CISE~
'5~~6

:':?J2'0

EE'J:J,
I
I

5037

'5040
5041
'512142
5~•3

'50U

'5045
5046
5047
52)!JQJ

5051
50'2

U31
4011
212'1
5045
1"31
5037
!ll006

l.11.JK,

DIAl.1rD

6•APR•7Z

13137

CIA(;E 142

..
EJA

r:'PF'1•Z
F'.JXNIU0

,•3

EJA
l.lNK

ESTRTD

E'L.OAl"1J1
l.lNK
E'.F AOO I "1J1

~401

5037
14!111
5053
!IJQ1217

TWO

E.IAC

0211'!10
"IH'l2

TWO,

50!4

0000
00el2

5095

XRtG,

5Ql!l3

VU3

/BAS[ A£GIST£R TAB~£
/CONtA!NS CONSTANTS•rLAGS•TEHPORARY STORAG!
/BASE•! ANO !ASE•2 CONTAIN RETURN .IMF' ~ROM SUBROUT!N~
I

I i
11
!

/' ',1

~
/F'~OATtNG

n1AL.121

5H0
00~0

o57ZC'l
:!
:!

'5 7212

1'!000

57"3

21000
"001

5n0
57'11
57"4
57!'!15

110~0

BASE,

011!!1
7316

t;7216

7376
21000

57111?

1'!001

11JU1

57U
5711
t;712

6'116

5716
5717

6776
1110£10
Z001
5715
etf·H
0H1
63'15
0000

5721

0"31/J
ZHl/J

'713

''H
"5715
57211

5722
'723
5724
!J?25

5126

5727
57H
5731

EXERCISER

PQ!~T

0H0

HH
218131
HH
P.!llH
fll8H

V003

13i37

6•/.F'R•72

/OF'FSE! OF' 0
/OHSE! or 1
/OF'FSE'!' OF' 2

"21001

/OF'F'SE'!' 011' 3

0
0H1
6J'15

/Ofl'FSE'!' OF' 4

Ill
21

/Oll'F'StT

5715

I!!

or !5

1orrscr o, 6

el
l?J

"
""
21
0

1orF'-str or 1
/Oll'F'SE'!' or u

PAGE 143

•
•

/F'LOAT!NG ?Q?NT EXtRelSER

5732
5733
57U
5735
5736
'5737
5740
'57'1

:?>11J;,0

OlAL:U

LOl<TST I tlJ

zz~z

fZI

ZllJ~llJ

fZI

"'fiJ011J

tlJ
l!l

t'lllJl'lllJ
ellJH

Vel03

6•APR•72

13137

/OF'F'SE! Of' 12

HIH

60H

/Of'F'SE! OF' 13

5743
5744
'5745
5746
5747

17'7

7111
HH

/OF'F'SE! or 14

7111

/OF'F'SE! OF' 15

''"'

fZl0H
0QIH

1'117
71'11
llJ
eJ
llJ

5751
5?!J2
57'3

1'117

eJllJH

!5714

'"'

121111

5756
!5797
!5761
5761

5762
!5763
5764
!5765
!5766

5767

!5718

57'1
57'2
5773

3177

37'17

HH
0H0
HH

HH
HH

LOt<SEG1

""''

/OF'F'SE! or 1&

tlJ
fJ
fJ

1oirrSE! OP' 1'1

"HU

/OF'J'SE! or 2GI

eJ
l!l
l!l
IJ
IJ

01H
t/JIH
t/JIH

flHI

tlJ

Hit

AESLt1

l!l

/OP'F'SE! OP' 21
/O,F'SE!

0, 22

l!JlllH

mlllH

eJHt

77'7

144

/OF'F'SE! OF' 11

6Hf/J

57'2

PA~E

urLo.

/O,F'SE! or z:s

7777

•

/-''!

~\
I

~
/fL,OAT!\~

~OI~T

·~

~
EXERCISEq

:l I AL,1Q!

Vfll03

6•APR•72

13i37

~A~E

145

I
I
I

POINT MOOE
/RAN,OM DAlA TABLE 1
/40~ OC:Hi.. L.OCU 1ONS LONG
/rLOAT!~G

I
~0Ji21

6a::rn

000121

•62100

HBL.E'.11 0
I
I

/fLOAT!NG POINT MOOE
/R£5UL.T1NG ARG TABLE 2
/USEO !N ASSOCJATtON WtTM TAB1E 1
/40~ OCTAL LOCATlONS LONG

64f!0

6400
Z030

•640IZI
T ABLE:2 1 0
I
I

/OOUBLE PRE:CJ~!ON MOOE
/RANOOM CATA TABLE 3
/400 oeTAL. LOCATIONS LONG

70~S-

7000
0'5:!10

•7t110m

TABL£3 1 0
I
I

/00U9L.E PR£CtS10N MOOE
/R£SUL.T1NG ARGUMENT TABLE 4
/USED IN ASSOCIATION WfTM TABLE 3
/400 OCTAL LOCAT!O~S LONG

7400

1400

00m0

TABL£41

•7400
fll

I
I

1/11/lill///ll//llil/lillllll/l///I/
1111/l)llENO 0, PROGRAM/////////////
ll/lilill//1/1111/illlillll///l//l/1

~,,,_--=..==

1r~OATING

PQtNT EXER:ISER

DI A~1fil

V011J3

6•APR•72

13i37

PACE 146

'!!l62

C254

C'J163

7326

l164
l'l165

C'J347
1')346

i.'!166
P'167
C"170
l'.!171

7302
t"620
7346
0672
0666
0665
011161

l'l1'2

21113
i.'J1"4

121115
V.176
0111

!1l"60

7172
7313

~i
I

''\

f"i
'

/T~OATtNG

0000

01H
.0 2H

ei3H
lll4HI

2!5H

PQtNT EXERCISER

'J l AL.10

V"~3

6•APR•72

13i3?

PA~E

146•1

UH!l llH~000
11111111

11111111
11111111

11111111

1111100~

00~000011!

1ll.111h
0000Cll11!11llll

11111111

11111111
11111111

11111111
i1111111J0

11111111
011lll.lllll1l011l11J

11111111

i111Hl.1
11111111

11111111
11111111

11111111
00"11lH011l

11111111
0'1J2'00000

11111111
Qllll 0 Ill 000 0

11111111

11111111
0i1Hll011lllll'Jlll

eJ0eJ0~000

011lHl1lG:H'llll

~10-111111

U1111i1

"' '"" liH'J Ill 01
i111h11

11111111
11111111
11111111

11111111
!1111111

11111111
11111111

111H111
i 11013-U 0

11111111
11111111

11!11111
11h11i1

11111111
1111U11

11111111
llllllUl'lUlll

11111111
Hllllll011lU

11111000
llllllllllll0Hllll

Ul!lf/J00011l
UHHl!llll

14H !1111111

1HI

11111111

111111!1
11111111

1111!111
11111111

Ui111h
Uh1111

16H

i11111i1
11111111

11111111
11111111

11h11i1
11111111

11111111
i11110H

11111111
fll0111/Jfll0rll0

h11hh

i'1H

Ul1l!UIZl~0

11111111
C1'1!1"000H

11111111

111111h

i1Hh11
11i1i111

11111111

Uh11h

!1111111

111111!1

i1111111

11:111111
11U1111

hi1hh
hi1h11

11h1U1
i1H1111

22H
2311/J

11111111
11111111

!1111111
11111111

11111111
11111111

!1111111

24H
25110

11111111
11111111

11111111
111111!1

11111111

11111111
11!11111

11111111
11111111

!111!111

11111111

26H

11111111
11111111

11h11i1
11!11111

11111111
illlH2102'0

11111111
HllJIZl2!0fll0

h11hi1
Ul1lUIUflJ

11111111

1!!6H
lll1H

UH 11111111

21fl0

11111111

000Hllll1llll

C'!0~01Hl00

11111111
11111100

11111111
elill11h11

11111111

IHHr/JH
0011J01!ll1ll1llll

l2ll!IU21011lr/J
l!J0eJiJ11l 11l Ill 0

ilJ0ellllllH,11llll

t"llJ~00000

ll'J Ill 11l 1l ill lllH

lll0h1111

11111111

i1UUU.

11111111

hilhh
h11hh

11111111

h11hi1
!111!111

11111111

11111111
11111111

~00000H

31/JH
3Ullll

32210
331!10
34flll1J

351110
361110
311/Hl

-~--~---~==---~.............- - - - - - - - - - - - - - - - -

1r~OATtNG

OI 41..Ul

VH3

6•APRto72

13131

P46E 146•2

11111111

4100

11111111
11111111

11111111
111111il

11i11111
11111111

11111111
11111111

11111111
U11i1f1

11111111

4212!
43fJllJ

11111111
11111111

11111111
11!11111

11111111
11111111

i111hi1

11111111

11111111
11111111

11111111

S.1111111
11111111

11111111
11111111

11111111 11111111
hi1hh

11111111

!111!1i1

i1H11u
11111111

l!J0HIJ0H

41iH'!0

PO!NT rXERetsER

441!10

''H

11111111

11h11i1

hi1l111

11111111

i.1111111

11111111
11111111

11111111

47H

11111111

11111111
11111111

51H

11111111
UH"Sl'J0

11111111
121H11'21 eJ H

11111111
11JHHHfll

11111111
HflllH2'11l

11111111
81UJH01211/J

1111111110
00IZlllJ02illl11J

211/J 211/J I H 0

et0iilel0H
l'JlfJIHH

H890;QIH

121111HHH

H11JHlllH

f!lllHHH

flHH8U

~dlHllil

11111111

11!11111

H0U0H
U1111U

HHfll!I

i.1111111

11111111

hi111h hhHH

6111

UIHIH
Hlll1JHI

11JU0HH
HHHH

HUHH

0ilf 1Ullll.illl
UHHillJ

HH210H
HHl011JllJ

HHHlll_QJ
l1JllJHHtll0

llHlllfJH0
UH!llJlllllJ

Hill-811

Hl!l0HH

10 01/J 1!10 0111
lllllJflltlll!l0H

et01!1iJUH
21 00 0 "" 1111

tll01!1HH0
12101!1 (/JllJ 1110 0

11JH0Hi"
lllilf!H0li0

UHl!llllH

lllllJl!lllJetH

11JHUH"
HH0IUllll

IJSllJllJHl/JI
Htll0111fJ0

H!llleJllJH
U2!0HH

100011!01!10

i0VJ0001!10

1!10000000

1!10011l00H

00000000

0H011J0el0

llJ01!1RJ00fll0
Hlll121011J01!l

l"IU011llll011l

~2l30l'.'1000

00001!1000
00l'!000il!l!l

Hlll0HC'l0

1!100000 ~0

~011J011l01'1fll

1'10~00U0

1"0000210
2'01210<'13:'!0

Cl~(l0001210

12!000121000

:'0V:ii3C'01!111J

~0000000

001'!0 0 IH 0
11! H 00 0 IZl0

111121000001!1
00000000

1110000000
01111!100000

l!l0011H?!llJ011J
i:IJ0001!101"10

("0000000
1"100fllr'000

11111111

hilhh

net

,. .,
'"'
,,
1611

H~0HH

62H

,,.,

''"'
6611

67H

I
,I

70H
1U0
7200

13H
741!1"
151!10

?60~

7100
~; .....

~
/F'L.OATt~G

POINT EXERCISER

AA 0 T

~1~7

AC3I'!'
Al"::''
.,._
ACEXP
ACl,.Slol
ACMSW
AC'lEi!

0541
2542
71035
20'37
0036
2247
7012
2652
5212
5213
5225
5235
'5243
2616
2321
2526
1'!026
7124
7143
411137
4057
4017
4200
4215
4246
2271

i\OOAE!

AOOR
AOCX
AJOX1
AOOX2
AODX3
AQOU
AO[Q
AQXQI(
A[Q
AEXT
A[l
AG!
AL. "11
Al.N2
AL,N22
Al.NJ
41.N4
AL.NENO
AJ.NQl(
-AL.SW
AL.l

u1eo

0el25

1135
4577

AMSW
APSO
APE'.Q
APT
A·PTC
APT DEC
APTEFIR
APTPAC
APTSAV
AREG
AR !TH
AS
ASADDR
ASC
ASC1
ASCUl
ASC2
ASC3
ASC4

121el24
45,6
25'10
"'21121
5450
6'27
2655
6104
111144
0124
2030
1?!600
2646
7346
1'11657

ASC7'1
ASC:a

Cl664

•scs

C'l620

i'l660
C'l661
(/1662
('.'1~63

:'1644

DIAL.10

V003

ASC:CM
ASl:DAI
ASCL.
ASCL.1
ASCL.2
ASC:WO
ASCW00
ASF'L.0
AS GET
ASl.OC
ASPNTR
AST
ASTER
ATX1
ATX2
ATX3
AT)(4
ATX4A
ATX5
ATXOI<
BAONWS
BASE
BEGIN
BEQ
BE:XT
BL.SW
RMSW
BIUNCM
BAtG
CAPT
CAROUT
C:AF!YlN
CKMEM
CKO
CKOP
CKOPAO
CKST
CK SUS
CL.
CL.EAR
CL.RA
Cl.RAX
Cl.RB
CL.RSX
Cl.RCT
ca.Ro
CL.ROX
Cl.RT
CM
CME:M
CME'.M1
CMEM2

12!345
0112
0072
t1!U5

l'l106
0346
"1022
"1633
0616
06t3
1?!662
2465
7261
4266
4312
4337
441!10
4421

4425
22;5
6242
57!0
0243
2532
H31
H30
011l27

111146

0el21
45,5
H,7
0e1;6
2131
0111
0120
63H
6552
6541
0542
45;4
45,3
6703
4512
6710
5417
45'1
6715
5420
04'6
6632
661210
66,0

6•APRw72

13137
CHEME
Ct1EMF'
C:NTRl,.S
CODE
COMPO
C:OMREG
C:Rl.F'
C:RSW
cSTA TE;
027
OATABI,.
OATC1
OATC2
OATERR
OATTXT
OE CAPT
OE COP
OEP
OEPU
OEPU
OEF'13
OEP14
OEP144
OtP15
OE PENO
DEPOI<
OlVel

osvu

OlV1
OlV2
OlV:S
OlVC
OlVlOt
DlVOK
OlVOV
OlVi
OOT
OOTCI<
OOTERrlJ
OOTERR
OOTtX
011100

OPAD011l
OPA001
DPASOK
OPCMPR
OPC:PR1
0Pr1.ow
OPOVF'I.
OPSET
OPSET1
OPSe:T2

45'0
45~7

7240
1216
612121

'11052
2740
~"24

11111115
111U0
1551
111136

10U

1'32
45'6
45U
2~52
~lll5:S

21{6
2U5
220JI
224111
22'5
24!5
2~H

302

35U
:SU5
36H
4Hlll
3n1
36£4
22'1
2241

uu
04!3
Ut4

121432
0245
26'0
26'1

265'1

2361

4716
4726
202

PAt'lE: 146•3
'.'.lHTt
f'l'l'H2
DVEN".l

1727

40n

rllH0
"10UI
21020
2712
1154

£'.ENO

1155
5036

e:rADO
H ACOM
HCL.A
ErOlV
ErEX lT
E'.11'1.0A
ErMUL.
ErMUl.M
£,NEG
HNOP
E:rNOFIM
0$TA

e:,sue

E'.JA
E'.JAC
EJEQ
EJl;T
EJl.T
tJNE
EJU
EJSA
EJXN
EL.OX
EMfM
EN01'
E'.NOOlV
ENOF'AO
ENOMUI.
E'.NlN?T
ENT
ENTEFI

E'.NTSTP
£ NTT llT

ENTVF'
EOP
E'.R1
ER2

26'5

E:R3

4643
46,4
46'1

ERE:T

E:ROUT
ERR

1736

EA
EAODX
EAl.N
EATX
ECONO
EOU1

[04T2

~452

11!1210

'u
0
0U2
3HeJ

0"""

2llll1H

?Hiil
"'8 C!l3

HIU

6H0
HU

1031
H07
1H1

U61

1111!1
iU1

Uh.

1131
2U1
eJUlll
0U5

37!1l:S
201

2222

1"16
21H0
45U
"1114
6233
6232
23!'J4
'7~0

5731
5732
4545
2332

73!7

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

/F'l.OATlNG PJ!NT EXERCISER

ERRU
ERR ET
ERR QR
£RRT1
ERPTP
ESE TB
ESE':TX
ESTAP.T
EST OP
£STRTO
EST RTF'
£TXT1
ETXT2
EX
EXAOOR
EXCOM
EXEC
EXIT
£X!Tlll
EXlTi
EXIT2
EXIT!
EXlT4
EX IT!5
EXIU
EXIT7
EX!T!W
EX!TWD
EXSAV
EXSTP
EXTA
EXWO
F' ACF'R
f' A001A
F'AODet
F'A0081
F' 4001112
'A0D1
rAD02
F'A003
F'40ENO
F'4LN
F' AP IS
F'ASCI<
F'4TX
F'CLA
F'CLR
F' Cl..R A
F'C~PAS
F'CMP~D

F'CMP!>
F'E:C:H("

U~i/l

1111
pi

em"

1112
1014
1111

1U1
40H
6245
0H6

Z01!15
1076
11H

1!1436
1!1113
2627

16'10
2427
2438
24721
2'81

2512
2523

2534
2611
26U

H1t2

111261
24'7
eJU9
2'111311

111110
0136
!127

3H1
3115
32H
3'26
3141
3213
3252
4836
1627
4570
4265
5150
5400

5411!5
4560
4572
4536
1250

DIAl.U

F'ECH1
F'ECH2
n:cH~4

F'ECH3
F'ECH34
F'ECH4
F'ECH41i?
F'ECH'
F'ECH6
F'ECH7
F'ECH72
F'ECH7J
f'END
rE;TCH
F'LAG1
F'LAG2
F'LAG3
F'LOA
F'l.DIY
f'l.OX
F'H4INT
F'KOCI<
rHIS
f'MULT
F'NeG
fl'NO~M

F'OtQ

VH3

4222
4231
U45
65'6

15U

F'PST

65'5

15!3

rsn1
rsu
rSTA
rSTAOI(

1532
1236

HU
f!Qlt4

Q1111;5

52'3
31'7

4110
6561

••p

16 4

32t7
5Ql'6

51[4

2't2
Ut7
F'OPlS
1111
rPAUlt 11 6
rPCOM
6'93

rPll11R

F'PP12
F'PPUR
F'PP13
F"PP13R
F'PP14
F'PP14R
F'PP1!J
F'PP1R
F'PP2
F'PP2R
F'PP3
l!"PP3R

13137
i:'PP4
F'PP4R
F'PP5
F'PP5R
F'PP6
F'PP6R
rPP7
F'PP7R
l"PPRUN
F'PRST

131!J0

1320
13'0
14HJ
14136
1415
1-424
14'6
1454
14h

F"OIS

rPMLT
P'PICL
rPlNT
F'PIST
rPP1
rPPU
F'PPUR
F'PllU

6•APR•72

6'94
6'92
6591
65!17

41l1U
4264
42'3
43r
43 6
4382
4361
44riJ5
44{4
4442
4411
44'5
42124

4U0
41114 7

4063
4111;2

l<EVCl<L

16U

520
2441
521'1
4563
51113
1''2
OU
46!2
6U6
62'2
45'2
4!5U
4,61

Gt!AftT

Gf;TOP
G£TPC
G£TREG

CETT1
Gt:TX

4H1
4Ut
4;JU
44SI
40:5
6U6
62'2
741112

cou
GOU

GOU

G0l4
GOP

GPC
MAl.T
tGNF'L
lNC1
lNC2
lNC3
tNCAPT
tNCOP
tNCOR
lNCPC
!NCST
tNCX
INDEX
INDlR
tNENO
tNlT
tNJT0
/-'

.,,,

406
45UJ

F'STEP
f'STF'
F'ST IS
F'XTA
F'IHO
GAPT
GET

!J4S2

42~1

F'STC>

nu
5423

'441
45'6

l<UCIC
l<E¥Ct<ll

45'33
'"'
451J2

KE:VL.1

45'1

600
1121
12~4

19'4
1111!5

146•4
1Nl T1
INlT2
!NlT3
lNlH
I NlT!J
HHT6
INOK
1NS0
lNS21
INSTEP
JAe
JAC1
JAL
JU
J'ALSE
JGe:
JCT
JLC
JLT
JNl
JU
JIU
JSU
JSA4
JUOI<
JSR
JSlll1
Jlllt2
JSllll
Jlllt4
JSlllOI(
JtRUE
J'ftUU
JXN
JlCN1-JXNZ
JXNU
J>CN3
JXNENO
JXNOI<

41{2

41!1
41•1
41!J0
41'2

F'SU

PA~E

LOU
LOA1
LDA2
LOAC
LDAOI<
LOOT
LOOP
LDX1

1U7
12~0

121!!5
1213
1220
12!5
24'2

72H
72H
2626
'111'111

!511151
!5U2
!1111111
511145
!UJU

510

!IH6

HU
Hh

'642

46'1
0!6
'664

....uu
4611

46h
4622
'631
Uh

..,,
HO
9931

ot1

4'U
45311

49!J4
'''"
UH
12!11
llUI

11112!5
'13PJ6
!1274
!SH3

!!!3137

065111

4HI

~456

'2111
~.

/Fl.OAT!NG l'C!NT EXERCISER

L,:))(QK

4023
41Cl32
2265

I. PJK
1.MEM

5037
<10:il7

1.QAD
l,OADA
L.OADAC
L.OAD9
1.0ADMQ
l.OAOO
1.0AOOP
1.0ADl'C
l.ODX

6061

I. J)( 2
l,.~)(3

1.0KSEG

1.0l<TST
LSMf'T
MAOO
MCNT
MCDOE:
MQEC
MOF'LAG
ME:MINS
MF'I. D

4550
4547
4546

4545
4544
4543
4542
2!466
5754
5732

6567

3401
0116
6643

2612
0004
6740
0105

MMEM
11l02!6
MOR
4106
MORE
4526
MOVEX -4541
MQEQ
2536
_0034
MQE'.XT
MQL.SW
01!133
MQMSW
Q!EIJ2
MQREG
0032
MST ATE 6000
MTi
0H0
MT2
11lH1
MUI.ENO 3466
3262
MUL. UJ
MUL T1
3306
MUl.T1A 3337
3400
MUl.T2
MUI. T21 3427
~461
MULT:s
NEG1
5017
NOF'i.OW '5476
NORE!'
11~3
NORM
4540
NQRM1
5115
NXS1·H"T 6424
~347
ocrwn
OCTWOQI "1023
1'1023
OEXT

DIAL.10

V003

: Ei!

7113

Ci.EFT
01.s 1>1
OMSl>I
CPAOR
OPOEC:
OPf Q
OPERND
OPl.USl.
OPOS
OR£'.G
ORE RR
OUTSTP
OVF'L
PAP IS
PAPT
PAUS0
PAUS1
PS ASE
PCEQ
PF'AC
Pr ADO
PJ'OlV
PJ'PC
PJNCF'
PlNOEX
PlR
PlAEQ
PMtS
P0£Q
F'Ots
POP JS
PROCES
PSEQ
PStS
PST AT
PST15
PUTX
PX21
PX1
PX2

"x :s

PX4
l'X5
PX6
PX'1
PXP
QMK
OUONEG
RA
RANGEN
RAPT

~670

0022
~021

0044

70QIH:l
2546
4100
6722
2 41210
0021
6140
2636
0111
1637
012147

5127
51'2
00,4
2611
ll!U5
:SHI!!
:5467
2!rlJ 41
6614
6656
H!J1
2622

1184

Uh
1667

1'122

16{3
2560

1622
l!IH3

1602
45:S7
12.1220
0221
0222

0223
~224

0225

"1226
"1227

6•APR•72

13i37
4251
5002
47,6
6566
P!265
t'l6"0

~~50

SPACE
SP!:C1
SPEC2
SPEC20
SPEC21
SPtC3
SJtf:CF'L.
SSTEF'
SU21

FH'

05!0

STA1

RF'A
RrB
RGENA
ROI.SW
ROMSW
ROUT
RSEQ
RSTA TE;

0020

5766
~4"4

45,6

(:1!5{1

l'J526

4761
6564
65'3
2466
'- 6ll! 2

65A2
051!!6

RUBOUT
RUTXT

l!!Olll
4U6
4535

SAU
SAGi!
SAL.i!
SAVA PT
SAVMEM
SAVOI.
SAVOM
SAVOP
se;Ta
SETB1
SETF'L.
stTRET
SETST3
StTST5

U!2

45U
5se1
011!!6
O!H3
l!Jl!lt!l2

son

SU2
SUCK
Sh RT
SUT£Q
S'!:P
STE:PGO
S'EP!W
S'!'£R\q

$,,PP

S'l'INC::
S'l'OR\
S'l'ORB
S'AA

suesw

45~2

'T'OlV

6511!2

SHlF'TO

7152

U44

6335

StTST6

6:553

StTTAB
SETUP
SETX
SE;TX1

1021

sroK

620lil

521!!0
521!!1

24621
121663

"'21'21
C'JU7

3735
~502

4 7 :54
65~5

32113

2000
!546!5
!16'1/l

5250
52 6Ql
!!1264
232!5

m2u

2553

5600
!J611

0UJ6
7325

Ul!6

6132
4531!1

027

1644
llJ391
721!57

SH l F'TB

'121J4
'""

1650

SUTER
SUAVE
SUBAl!I

SHrTO

5157
5160

12~0

162"
1637
1614

6144
6UJ6

45~3

"'
0011
4531

9'AB

TS.
TU
T1el0
T2
T21!l
TU2
T215
T240
T.,.,
TUL.£1
TABl.E:2
TABL.E:3
TA8Le'.4
TAOOX
TAL.N
TATX
TCL.A
TO!'.P
Tori..o

2736

S~REG

RAR6
RS ASE
RCONST
ROOP
REAO
REGEQ
REGS
RESL. T
RET
RETiNC
RETURN

SHF'CNT
SHF'L.AG
SHroP
SHF'TB

005'1

PAGE 146•5

TOl'AS
TEST

•

'1h

rnn

HU
0740

U21
"'136
217!5
0741
0742
6IZl l!ll/l

649!0
7Ql0QJ

'1411J0
2211
2076

u l1l2I
210

2030
C'J426
20121
~2134

421(1121

/Pl.OAT!NG POINT EXERCISER

: i

TEX IT
_ TF'AOO
TF' Ai.SE
TF'E'.TC:H
TI NIT
TITl.E
TJAC
TJSA
TJSR
TJXN
Tl.DA
T1.nx
Tl.SW
TM40
TMES
TMSw
TMUl.T
TNEG
TNEXT
TNORM
TOA
TOAC
TOB
TO'ECH
TOMEM
TQMQ
TOO
TOOP
TOPC
TPAUSE
TR ACt
TRAPi
TRAP~D

TREG
TREX!T
TRSKll
T$E'.TI!
TSETX
TSTA
TSTO
TSTF'
TTAAP
TTf'lUE

TTY
Two
TWO
T)(TA
TV
TV10

TVA
TVADl'l
TVAL.L
~

2fU3
211147
2126
2010
2004
7266
21u
211111
2:1.06

2104
2a11
2a74
0S63
llJ737
llJ723
IZlH2

2H3
2153

2156
603'

61114 2
204
4526

611147

OIAl.10

VH3

TVS
TVC:
TVC:NT
TYC:ONT
TYO
TYO AU
TYfl
TVPU
TYPA
TYPI.
TYPl.D
TYPl.X
TVl'NCR
TYT1
TYT2
UF'l.O
VF'ER
lolOAD
WOAOIZl
lolORD2
WOAOI.

0242
2254

)(QI

XUOA
X:I.
X2
X3

6Ql3il

61!4

X5
X6

611116
2161
025
1623
1622
011J62
57135

22n
22136

2214
2147
2143
21/JU

2114
2724
0457

1Zl422

lll4H
7313
0665
0711
H25

QJQl51
7335
0243
el244

!51'3
2347
el261

e!1i3

U52
1:se2
212H
Hl65
QJ2QJ1

e2e2
llJ21!13

llJ211J4

XGE:TX

64'6

XPl.UU

><PUT><
><REG
XRtG1
XREG2
XTA1
XTA2

XTAOI<

"At;E 146•6

2455

XNCK
XNENO
XNORM

13137

0!265

1112U
12116
'2!7

)(£Q

6•APR•72

2''4

64{2
6444
64H
64'1
64'7
5H5
511Ji6
511J26
44:55

4447
23U

51"53
2102

7352
0200
0214
P'456
";t

1'133ii'
!'

!'\

1rLOAT!NC -b!NT EXEReJ1ER
ERRORS OETEOTEDI

L!NKS GENERATE01 233
RUN•TJMEI

48 srcoN'S

0 C:ORE USED

,
\.._

OIALU

VI/JU

6•APR•72

13137

~
PA~E

146•1

•

'~~~·

.. ~{

_,._,,,___ ,,,.!" ,........

.,..t.., • ....,,,_ _ _ _ _ _
• • :iZ '. ...