Digital PDFs

DEC-08-A2D2-LA

October 1969

173 pages

Original

5.5MB

Document:	Listing of 8K SABR Assembler 196910
Order Number:	DEC-08-A2D2-LA
Revision:
Pages:	173
Original Filename:	http://bitsavers.org/pdf/dec/pdp8/fortran/DEC-08-A2D2-LA_Listing_of_8K_SABR_Assembler_196910.pdf

OCR Text

IDENTIFICATION
Product Code:

DEC-08-A2D2-LA

Product Name:

Listing of BK SABR Assembler

Date Created:

October 30, 1969

ISABR,815

PAL.b'

V135

11128

/SARR,81.5
/SARR,V16

/O(C.,.~8-A2D2"16

/COPVRJGHT 1969,

OI~ITAL

EQUIPMENT CORP,.

/MAV~~AR01

/NOTEI WHENEVER A90VE VERSION NUMBER IS CMANGED
/BE SURE TO ALSO CHANGE VERSION ~UMBER FOR TYPECUT1
/T~JS tS AT VERSN•13 (ABOUT P 1 83)

a
9

1fll

~·ASS,

/SA8:;;, 1<1 ':
11
12
L3
14

1.5
1.6

17
1. 8

1.9
?rt

21
?2

?.3
24

?5
26
27
28

29
30

.32
~3

-34
~5

S6
.~ 7

,"l8

4?
41

42
43
44

45
46

48
49
'.JV-l
~1

52
:;3
~4

55
~6

57
58
?9
60

t:1
!'>2
o3
64

fAL1'•1

11128

PAGE: 2

/TMERE AQE TWO BASIC P~AS£S or OPERATION WITMIN
/SABRICA> COLLECTIO~ A~O CB> ASSfMBLYt l~ PASS 1
/SABR COLLECTS A rULL PAGE OF DATA ASO THEN
/ASSEMBLES THE FULL PAGE, IN PASS2 COLLECTIO~
/A~O ASSEMBLY ARE CARRIED OUT ON A LINE•
/BY•LINE BASIS RATHER THA~ PAGE•BV•
/PAGE, FOLLOWING IS A DESCRIPTIV( rLOW C~ART 0,
/T~E PRINCIPAL METHODS or OPERATION USED IN
/THE PROGRAM DURING PA5S11
/(1) BEGINNI~G AT START TMERE ARE TWO ROUTINES NECESSARY
/TO INTIALt~E THE E~TlRE PROGRAM, IOINIT CARRIES
/OUT THE DIALOG wtTM TME USER TO DETERMINE WHICH
/I/O DEVICES WILL BE USED, l~ITA INTIALl!ES ALL
/THE FLAGS AND TABLES ~MICH ARE USED CONTINOUSLV
/THROUGHOUT TH£ PROGRAM,
/(2) THE DRIVER roR THE fULL PAGE;BV•PAGE •SSE~BLER
/IS CONTAINED IN THE LOOP THAT RUNS FROM RSTRT
/TO ~STRT6•1t TMIS LOOP OPERATES AS rOLLOWS,
/rtRST lT CALLS INlLPT WHICH lNITtALl~ES ALL
/THOSE FLAGS ANO TABLES WHICH MUST 8£
/RErRESHtO QR REBUILT roR EACH PAGE or COOE.
/TMEN lT CALLS TME MAIN LINE•BY•LINE
/COLLECTION LOOP (~MICH IS DESCRIBED 1~ ITEM 3),
/WHEN A FULL PAGE or CODE MAS BEEN COLLECTED
/T~E DRIVER THEN CALLS L55 TO ASSEMBLE THE
/PAGE (SEE ITEM 8>1
/(3) THE COLLECTION LOOP RUNS FROM RSTRT1 THROUGH
/T~E CODE AT RSTRT6, THIS LOOP FIRST CALLS
/l~CPT WHICH PREPARES fLAGS ANO INCREMENTS
/TABLE POINTERS rOR EACH LINE or CODf1 IT
/THEN CALLS THE LINE DECODER DCIL (SEE
/ITEM 4) FOLLOWED BY SETCT1 THE ROUTINE WHICH
/I~CRE~ENTS THE PAGE COUNTERS AS REOUIREO
/FOR THE GIVEN LINE <SEE ITEM 6), THEN
/T~E COLLECTIONS LOOP PROCEEDS TC INTERPRET
/THE DATA LErT av OCIL ANO STORE IT, PROPERLY
/COOED, ON THE PAGE TA6LE1 tr THERE WAS
/A TAG <"LFS" FOR "LOCATION FIELD SYMBOL") tT
/IS NECESSARY TO CALL RECT FOR A PAGE RECOUNT,
/(SfE IT(M 7), THEN THE SllE or THE PAGE so
/FAR COLLECTED IS TALLYEO UP BY CPGr.S, IF
/IT IS STILL 1LE1 20~, EVERVTMl~G IS Fl~E AND WE
/RU~ TMROUG~ THE LOOP AGAIN, Ir ~OT WE
/FIRST SAVE CUSt~G PUSHIN)
/ALL T~E KEV INrORMATtCN A80UT T~E LINE WH!Ch
/CA USED TI-IE OVERFLO" A~:o THn· E. )(IT F'R OM THE
/COLLECTIO~ LOOP TO ASSEMBLE THE PAGE,
/(4) CERTAIN NOTES ABOUT DC!L MAV BE HELPFUL, THIS
/ROUTINE CONTROLS !~PUT OF THE SOURCE, INOEV
/(SET BV IOINIT> POINTS to THE PROPER INPUT
/ROUTI~E, HSR OR ASR, THESE ROUTI~ES
/READ O~E C~ARACT£R AT A
/Tl~E FROM THE t~PUT DEVICE, THE ROUTINE CALLEO
/R DRAWS CHARACTERS ONE AT A TIME FROM THE
/I'liPUT 8UHER (DATA), ~HEN THIS BUF'HR IS

/SAB'.< • 815
66
67
68
69

11128

PAGE 2•1

/EMPTY R REflLLS IT USING •tNOEV. ,tTCM
/USES R TO EXT'RACT ONE C1'10ACTER AT A TIME F'ROM

/TME INPUT BUFFER A~O Dots sn~E PRELIMJNAAV
/SCREEN l ~G~· R\,.N USES F'ET'C~ TO READ A

/FULL LINE Of COO( INTO TKE LINE eurrER,

PAGE

71
12

RE A1 S (1i~ E C>a RA CT t R AT A
I Tri E . L !\If ~w H Q • GT
~·
E AiJ
IITf~·8Y•[TEM, IF T~f !TrM I~

IL. 6 5

s v ..

TI : '. [

F~ 0M

s THE L I '; E

76
77

A SYMRGL, GTSYM
TO LOO~ J~ T~[ JTE~ IN T~[
/~At~ SVM8~L TA8LE n~ l~TER IT IF IT 15 NOT
IALREAnY THERE(SEE ITE~ 5!,

'18
79

I • o I :-1 P 0 RT A~, T tt •
I wioi E ;.; A S YMB UL H AS r3 F Et.

bel

ITA8Lf

'14

82
t33
84

85
86
87
~8

89
90

92
93
94

95
96
97

98
99
1Ul

1"11

1"!2
1t'!3

104
105

U6
1"17

11"
111
112

113
114
115
116
117
118
119
120

/CALLS

s~sv~

P L ACF 0 0 i\i T •ff SV M8 0 l.

ADDRESS ar TMf rthST ~ORO Of TME
/ENT~Y IS ~ETURNEO AT "SY~HOL1" TMIS AOORESS
/lS UNIQUE FOR EACH SYk80L A~D I~ THf
/RANGl 2~~0~7575, THIS NUMBER IS USED
/THROUGHOUT THE PROGRA~ AS T~E IOfNTlflER FOR
/T~IS SYMBOL, ** DCIL CnNSlOERS EACH ITE~
/OF THE LINE ANO ACTS APPROP~lATELY, FOR
/STA~DARD I~STRUCTIO~S A STRING or KfY DATA ABOUT
IT~[ LINE rs LEFT, IF T~E L.I~E IS A PSUEDO;op
/OCIL WlLL IMMEDIATELY CALL THE APPROPRIATE PSUEDO•OP
/HA~DLER TO TAKE ALL NECESSARY ACTIO~, MOST
/OF THE PSUEDO~oP HA~DLERS RETUR~ TO THE
/BEGIN~il~G OF DCIL '~ftERE Tl-lE NEXT LP E CAN BE
/PROCESSED AS lF NOTHING UNUSUAL MAPPENED, TME
/EXCEPTl~NS TO THIS ARE TMOS[ PSUEOO~OPS WHIC~
/CAUSE A PREMATURE PAGE ASSD'BLY,
/THE ROUTINE SKIPL IS ACTUALLY A SMALL. PART or
IOCJL, IT HAS TWO PU~POSES1 ONE, tT ~ATCHES
/FOR LlNES W~lCH SHOULD BE IGNORfO BECAUSE TME
/FORTR PSUEDO~OP IS IN EFFECT, SECONDLY IT
/MUST WATCH FOR SEMleCvLONS SO THAT
/IF ONE JS ENCOUNTE~ED<OUTSIDE A COMHENT>
/TH[ REMAINDER OF THE LINE CAN BE SAVED FOQ
/PROCESSING AS THE "NEXT" LI~E~
/(5)0NLY TWO MAIN ROUTINES S~SYM AND
/OBSYM~ TOGETHER WITH THEIR SUBSJO?ARYS RUSVL AND susv~
/MAY O!RECTL.Y CONTACT THE MAIN SYMBOL TABLE,
/THESE ROUTINES COMMUNICATE WITH THE REST or
/THE PROGRAM THROUGH rOUR IMPORTANT
/CELLS IN PAGE 01
/USE CONTAINS THE CODE WORD FOR THE SYMBOL E~TRY,
/VAL CO~TAINS THE VALUE Of THE SYMBOL1
/SYMBOL CONTAINS THE ADDRESS or THE FlRST woqo OF THE
/ENTRYCNAMEL.Y THE COOE ~ORO>.
/VALPTR CONTAINS THE ADDRESS Of THE VALUE WORD
/OF" THE ENTRY,
/SRSYM, AFTER LOCATI~G A GIVEN SYMBOL IN THE TA8L.E
/(OR ENTERJNG IT IF ~ECESSARY)
/CALLS SUSVL TO FILL THE FOUR CELLS ~ITH THE
/PROPER INFORMATION ABOUT THE SYM80L1
r~E

ISABR,815
121
122
123
124
125
126
127
128
129
130

131

132
133
134
135
136
137
138
1.39
140

1t41

H3
144
145
146
147
148

149
150
151

152
153
154

2;55
156

151
158

159
160

161

162
163
164
165

166
167
1f!6
169

11128

PAGE 4

A SY t1B0 L ir:· ENT 1F' I ER T0 GET
/THE F'OUR ESSENTIAL ~ITS OF INVO~MATIO~,
/CALLING SUSVL TO DO ThE WORK, HOWEVER

I 0 8 S VM USES

AGAI~

/13EFORE EIHIER SRSY'~ OR cssv~ DO A"-iYTMING
/TMEV 8-0TM MAKE USE OF RUSVL. RUSVL IS A
/VERV J~PORTANT ROUTINE, MERE IS MOW tT WORKS,
/LET US SUPPOSE THAT THE PROGRAM 1-!AS OBTAlf'-~ED
/USEt VALt SVMSOL A~O VALPTR F'OR A GtVEN
/$VM80LlUSING SRSYM OR OBSVM>t FURTHER, LET

/US SUPPOS£ THAT TME PROGRAM WISHES TO
/MOO!F'V BOTM OR EITHER OF TME CODE A~~ VALUE
/WORDS F'OR TMJS SYMBOL. IN THE SYMBOL TABLE.
/THE PROGRAM DOES NOT DIRECTLY ACCESS THESE
/WOROS PJ THE SY"'!BOI,. HBLE1 I.NSTEAO THE
/PROGRAM MERELY MAKES T~£ DESIRED MOOlflCATlO~S
/TO USE ANO VAL, NO~ SYMBOL AND VALPTR
/ARE THE POINTERS FOR STORING THlS NEW INF'OR~A~fON
/BACK IN THE TABLE1 IT IS VE~Y IMPORTANT T~AT
/NO PART O'F' THE. PROGRA~ EXCEPT SRSYM ANO OBSYM
/EVER MODIFY SYMBOL OR VALPTR, ANO BEF'ORE
/EITHER OF' THESE MOOIF'Y THEM THEY 4L~AVS CALL
/RUSVL~ ~USVL TAKES USE ANO VAL
/lNCLUOt~G ANY MODIFICATIONS TMAT MAVE BEEN
/~ADE TO THEM AND STORE THESE WORDS BACK
/I~ THE TABLE UStNG TH[ STILL UNCHA~GEO POINTERS
/SYMBOL AND VALPTR~ IN THIS WAY MOOtFICATIO~S
/TO THE SrMBOL TABLE A~E ~ADE IN TWO SlAGES,
/T~E F'IRST STAGE CONSISTS Of. A SIMPLE REFEREt-.:CE
/TO ONE Of' TWO PAGE 0 L.O:CATJONS1 ANO THE
/SECOND STAGE ls TAKEN CARE or AUTOMA-TfCALLY
/OUR I NG F'URTHER OP(FU HON Of TME PROGRAM,
/(6)SETCT ANO C:PGES DtA-L. WITH f'IVE SEPARATE PAGE
/COUNTE'RS, T'HE SUM OF' T·HtSE t S THE NlJt-1BER

tor WORDS OF CORE NECESSARY TO ASSEMBLE THE CURRENT
/COLLECTED DATA, PTSH CPAGE TABLE SUE> ts TH[
/NUMBE~ or tTEMS ~ CONSTANTS,AOORESS PARAMETERS
/AND INSTRUCTIONS e WHICM MAYE BEEN SQ FAR

/COLLECTED; LTSH lS THE NUMBER or DISH"lCT LITERALS
/WHEN AR[ ~EQUlREQ O~ THE CURRENT PAGt~ PGEESC

/WlLL SE EfTHER 2 OR •~ fT IS

/2 If THE LAST COLLECTED lNSlRUCTION WAS NOT A
/SK IP i!'llSTRUClI ON, 4 OTHERlll I SE, TM ESE ARE THE'
/NUMBER OF' WORDS REQLI IRED f'OR THE PAGE
/ESCAPE, .'tH IS 1T·EM IS I GNOREO WHEN T!1E A·UTO•
/MATIC PAGING Swi'!'CH r·s NON~aERO, OP"SCTR
l[S T+4E NUMBER OF PQINTER·S TO OFF',.PAGE SYMBOLS
/WHICH ARE RE~UIRED ON THE CURRENT PAGE,

/SABR,815

V135

1112e

PAGE 5

17~

171
172
173

174
175
176

177
178

179
lf';!J

181
1n
1A3
1€14
185
1~6

187
188
1Ci9

190

191

1Q2

193
194

195
196

197
196
199
202'

UJ1

2n
n3
21'4
2(~5

206
2?7

218
229

210

211
212

213
214

215
216

217
218
219

22171
221
222

/THIS ITfM IS DETERMINED BY usr or THE
/PAGE SYMBOL TABLE. TWO TYPES or SYMBOLS
/ARE STORED ON THIS TAaLEf TAGSCLrS•S),ON THE
/CURRENT PAGE ANO SYMBOLS WHICH ARE RErERENCEO
/BV MEMORY REFERENCE INSTRUCTIONSCArStS) ON THE
/CURRENT PAGE, IN T~IS TABLE SABR KEEPS TRACK or
/WHETHER TME SYMBOL. IS ON•PAGEC I .r.· 1r IT O,CCURS AS
/A TAG O~ THE PAGE> AND WHETHER IT MAS BEEN
/RErERENCEO EITHER SIMPLY OR WITM A NUMBER SIGN
/(MEANING <SYM>•1), Ir TME SYMBOL is orr~PAGE
/ANO HAS BEEN RErERENCEO ON THE PAGE1 ONE POINTER
/IS REQUIRED ON THE ASSEMBLED PAGE roR
/EACM ~VP[ or RErERENCE USED (SIMPLE OR #)~
/IN ADDITION CERTAIN tNrORMATJON REGARDING OBACTR
/IS KEPT IN THE P,S,T, OBACTR KEEPS COUNT or
/THE NUMBER or EXTRA JNSTRUCTJONS WMJCM MUST
/BE GENERATED ON TME CURRENT PAGE; THESE
/INCLUDE cor•s TO CURRENT BANK (COOEe5 6201•S>a
/COr 0015 roR RErERENCE TO COMMON,
/JMS COF'SK/SKP PAIRS roR COF' CUR'S FOLLOWING
/SKIP INSTRUCTlONS1 AND JMS COlSK/SKP PAIRS F'OR
/CDr 001s FOLL.OWING SKIP INSTRUCTIONS~ SUCM
/COF'•S ARE NEEDED F'OR OF'F•PAGE RErE'.RENCES WHENEVER
/THE BANK RErERENCEO is NOT TM[ SAME AS PREVIOUSLY
/(0 INSTEAD or CURRENT•1 OR VICE•VCRSA) OR WMEN
/TME BANK IS UNKNOWN (F•1) AS AFTER A TAGt
/AT THE START or A PAGE, OR F'OR ALL JMS•s,
/OBACTR ALSO KEEPS COUNT or EXTRA INSTRUCTIONS
/NEEDED TO GENERATE OFF~PAGE INDIRECT REFERENCES,
/~OR TMESE EITHER 2 OR 4 EXTRA INSTRUCTIONS
/ARE NEEDED DEPENDING ON WHETHER OR NOT THE
/PREVIOUS INSTRUCTION WAS A SKIP INSTRUCtlON,
/IN THE PST AN UP•TO•OATE RECORD rs KEPT OF' T~E
/NUMBER or INCREMENTS TO OBACTR SPECIFICALLY
/CUE TO EACH OF'F'•P~GE SYMBOL, tN VIEW
1or TME RECOUNT PROCEDURE DESCRIBEO IN ITE~ 1
/IT WOULD SEEM THAT THIS INFORMATION IS REOU~DANT
/AND UNNECESSARy, MO~EVERe DURING THE OEBUGGl~G
/STAGE or THE PROGRAM WITH PASS 2 iNCLUDED
/I ENCOU~TEREO SEVERAL S!TUATIONS1 WHICH I rINO
/VERY DIFr1cULT TO DESCRIBE. WHERE MORE IMMEDIATE
/INF'ORMATION ABOUT 08ACTR WAS NEEOEO, l
/AM NOT EVEN COMPLETELY SURE I U~OERSTANO ~HY,
/OBACTR ~UST BE WATCMEO CLOSELY, AT 6652 IN T~E
/PROGRA~ THERE IS SOME CODE TO ASSIST IN
/DEBUGGING THE PROCRA~ IF PROBLEMS ARISE WITM
/THE PAGE COUNT~
/WHENEVER A NE~ TAG IS ENCOU~TERED ON A
/PAGE1 SETCT USES CPLFS TO REDUCE
/BOTH OPSCTR AND OBACTR APPROPRIATELY
/SINCE WHAT PREVIOUSLY WtRE OfF~PAGE REFERENCES
/MAY NOW MAVE BECOME ON~PAGE REFERENCES,

/SABR,815

223
224
225
226
227
228
229
230

231
232
233

234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
252
251
252
253
254
255

256
257
258
259

260
261
2ti2

263
264
265
266
267

268
269

270
271

V135

11128

PAGE' 6

WME'-!EVER A TAG 1$ ENC:O,UNTEREO 0' A, GIVE~J
/PkGE ~ECT IS CALLEO TO GO TKROUGH TNE
/ENTIRE CURRENT ~AGE TABLE ANO RECOUNT
/THE P~GE, IT ODES THtS 8¥ CALLIN' SETCT
/AGAIN1 ONCE roR EACH ITEM ON THE PAGE TABLE.
/TME ONLY THING REALLY ACCOMPLISHED MERE
IJ S THAT OBACT"R 1S RESET• OPS CTR t S
/UNCMANG£0 AS WELL AS TH£ OTHER PAGE cou~TERS,
/THE NEED TO R~COUNT OBACTR JS SMOWN
/BY THE rOLLOWING EXAMPLEt
I
A, tAO
B
I
TAO
C
/(1)

e, 0

I
I

C1 0

/NOW BECAUSE BANK ts U~KNOWN ArTER "A•"
/ANO B IS UNDEFINED AS YET1 "TAO B"
/REQUIRES A COf CUR, HENCE INCREMENT OBACTR,
/"HD C" 1S OH PAGE TOO, BUT REQU lRES NO
/CDr SfNCE IT rs IN THE SAME BANK.
/HOWEVER WHEN B tS OE,lNED ON PAGE1 THE
/CDr IT CAUSEO ts NO LONGER NECESSARY~
/BUT NOW TME "TAO C11 REQUIRES A cor~
/(8) THE ROUTINE L55 CAUSES EACH PAGE TO BE ASSEMB~ED,
/DURING PASS 1 THERE ARE TWO SUB~PHASES TO THE ASSEMBLY,
/FOR THE MOST PART BOT~ PHASES RUN THROUGH THE
/ENTIRE PAGE or COLLECTED CODE USING TME
/SAME ASSEMBLY ROUTINES, TME O!FrERE~CE IS
/THAT OURING PHASE 1 (ACTR•0)
!ACTUAL ou•PuT lS SUPPRESSED. THE KEY
/PURPOSE or PHASE 1 !S TO OErlNE ALL THE
/TAGS THAT OCCUR ON THE PAGE, CLEARLY THE
/TAGS COULD NOT 8£ DErlNED DURING COLLECTION
/BECAUSE AT THAT POINT WE WERE NOT SURE
/WHAT SYMBOLS EVEN ~ERE ON PAG[, ANO THUS
/NOT SURE HOW KANY EXTRA lNSTRUCTtONS
/WOULD BE: NECESSARY, TloiUS SU91!!1PHAS£ 1 or THE
/ASSEMBLY rs REOUIRED so fMAT IN TME
/SECOND PHASE or THE ASSEMBLY ON•PAGE
/FORwARO REFERENCES CA~ BE RESOLVED~ HENCE
lL55 CALLS THE ASSE'-1PLY ROUTINE ASMBL
/T~lCE FOR EACH PAGE OF CODE,
/(9>ArTER tNITlALllING TME VARIOUS PAGE TABLE POI~TERS
/ASMBL GOES INTO A LOOP WMERE!N TM.E
ILI~EPBY-LINE ASSEMBLY ROUTINE ASM~2 15
/CALLEn ~NCE FOR EAC~ ITEM o~ TH[ PAGE TABLE.
/AS~32 IS A HUGE ROUTl~E OCCUPYING ABOUT
ITMREE FULL PAGES OF CODE. ASM02 FIRST

/SABR,615
272
273
274
275
276

27?
278
279
280

291
282
283
284
285
286
287
288

289
290
291
292
293
294
295
296
297
298
299
300
312!1
302

303

304
305

306

31ZJ7

308
309

311
h2
:.H3
314
31!5

316
317

318

V135

11128

PAGf 7

T·~E CcnEU DATA P(RTAP.JING TO Tr-IE G!VE'c
THE PAGE TAgLE TO OETERMINE WHAT
/TYPE OF INSTRWCTIO~ IS TO 8E ASSEMBLED AND
I w..<AT TI.IE CURR f NT 8 A' K A~: 0 S1< l f' SETT t NC1 S
I A~ E ,
THErv 0 EPU,; 0 l ' 1G 0 :~ TH I S At~ AL Y S l S T HE R0 UT l NE
/TRA~FERS TO THE PROPER SUBSECTlCN OF ITSELF
/FOR MA~DLING TMIS TYPE OF !~STRUCTICN~ THERf
/ARE A OOtf~ OR MORE CASES ~HlCH MUST
/SE DEALT WITH, THEN T~E ROUTINE MOVES
/TO O~E OF ITS VARIOUS-EXIT STRINGS
/TO COMPLETE THE ACTION ANO SET THE ~ANK AND
/SKIP CO~DITtONS FOR THE NEXT LINE, AFTER ALL
/ITEMS ON THE PAGE TABLE HAVE BEEN ASSEMBLED
II~ THIS WAY ASM8L THEN CALLS THE ROUTINE
IA2~ A2 PRODUCES <IN PHASE 2) TME PAGE ESCAPE A~O
/THEN OUTPUTS THE ENTIRE LITERAL T•SLE wlTH
/ALL THE OFFMPAGE POINTERS INTERMINGLED,
/(10> SPECIAL CONSIDERATIO~ SHOULD BE GIVEN TO OFF~
/PAGE PORWARD RErERENCES SINCE THEY WILL REMAIN
/UNRESOLVED WHEN THE CURRENT PAGE MAS BEEN
/ASSEMBLED. DURING ASSEMBLY WHEN
/A REFERENCE TO AN OFFPPAGE, OR AN AS YET
/UNDEFIN~D SVMROL JS E~COUNTEREO TM£ SYMBOL'S
/IDENTIFIER JS STORED ON THE LITERAL/OFF~PAGE POINTER
/TABLE~ THEN WHEN A2 tS OUTPUTTINC TME
/LITERAL TABLE ANY STILL UNDEFINED SYMBOLS ARE
/DEALT WITH AS FOLLOWS, THE SYMBOL'S lNDENTIFJER
/TOGETHER WITH THE LOCATION RESERVED JN THE CURRENT
/PAGE FOR ITS VALUE ARE STORED ON T~E OCCURRENCE
/TABLE~ THE LOCATION WHERE THE POINTER MUST BE
/STORED tN THE CURRENT PAGE IS MERELY LEFT
/BLANK AT THIS TIME, THEN LATER ON ~HEN THIS sv~BO~ IS
/ENCOUNTERED AS A TAG THE ROUTINE ~FSCK
/W~!CH PROCESSES TAGS DURING ASSEMBLY WILL
/REMOV[ THE JTEM FROM THE OCCURRENCE TABLE AND
/OUTPUT IT PRECEEOlNG THE POINTER BY AN ORIGIN
/TO THE CORRECT LOCATION,
/(11> CURING PASS2 (THE LISTING PASS> MOST or
/THE SAME CODE rs USED TO PRODUCE THE
/ASSEMBLY LISTING• HOWEVER TME TIMING JS
/OlFPERENT~ NOW THE COLLECTION•ASSEMBLY
/ALTERATION IS CARRIED OUT ON A LlNE;BY•LlNE
/BASIS RATMER THAN O~ A PAGE~BY•PAGE BASIS;
/(HOWEVER ALL THE PAGE TABLES ANO COUNTERS ~UST
/STtLL BE MA.INTAJNEO JUST AS IN PASS1 1 ) THE
/PASS2 OPERATION DIFFERS FROM PASS1 IN THE

/(XAi<INES

/!TE~

/SABR,815
319
320
3?.1

322
323
324
325
326
327
328
329
33~

331
332

333
334

335
336
337
338
339
340
341

342
343
344
345
346
341
348
349
350
3$1
352
353
354
35,
356

357

358
359

360
361
362
363
364
365
366
367
368
369

PAL10

V135

11128

PAGE 8

/FOLLOWING RESPECTS, EACH TJ~E A Ll~E HAS
/BEEN cnLLECTED AND ITS DATA E~TEREQ INTO TH[
/PAGE TABLE IN TME NORMAL rtRST PASS WAY,
/A CALL !S ISSUEn To THE LI~E~ev~LtNE
/ASSEMBLY ROUTINE ASM02, Sl~CE ALL SYMBOLS
/ARf NOW OEFINEO T~ERE WILL BE NO UNRESOLVED
/FORwARD REFERENCES ON OR OFF~PAGE, ASM02 ACTS
/DURING PASS2 EXACTLY AS IT DOCS DURING PASS1
/WITH ONE BIG EXCEPTIO~I T4E Bt~ARV OUTPUT ROUTINE
/OUTBN IN SUPPRESSED A~O IN ITS PLACE IS
/SUBSTITUTED THE LlSTlNG ROUTINE WR!TE,
/WHEN TME PAGE COUNTERS IN01CATE TMAT THE PAGE
/IS FULL T~E ORJV£R ROUTINE WILL CALL L55 AS
/USUAL~ HOWEVER IN PASS~ TME TWO CALLS
/TO ASMBL 4RE BY•PASSED AND INSTEAD A SI~GLE
/CALL TO A2 IS ISSUED SO AS TO GtT T~E
/LISTING TO THE PAGE ESCAPE, TME LITERALS ANO
/THE orF~PAGE POINTERS,
/(12> 'HE REASON FOR HAVING SEPARATE LITERAL TABLES roR THE
/COLLECTION ANO THE ASSEMBLY PHASES OF
/THE PROGRAM IS THAT DURING PASS2 BOTH
/P~ASES or THE PROGRAM A~E OPERATING SIMUTANEOUSLY
/ANO BOTH ARE BUILDING LITERAL TABLES IN A
/DtrFERE~T WAY 1
/(13> THE PAGE ESCAPE TABLE1 PEBSE, IS NECESSARY
/lS THAT DURING PASS2 LOCATIONS
/CANNOT BE ASSIGNED roR LITERALS ANO OF~·PAGE
/POINTERS UNLESS THE PINAL PAGE ESCAPE
/FOR THE PAGE 15 KNOWNa HENCE THESE NUMBERS
/ARE SAVtO DURING PAssi.
/(14> THE PAGE OP TABLE IS ACTUALLY A PART or
/THE PAGE TABLE,
/(15> EXTERNAL SYMBOLS ARISE IN TWO WAVSI
/FROM ENTRY STATEMENTS ANO FROM CALL STATEMENTS,
/THEY AR£ ENTERED IN TME E,S,T~ IN ORDER OF
/APP£ARANCE tN TH£ PROGRAM ANO NUMBERED
/ACCOROINGLYa THESE ARE THE ~U~BERS WHICH THE
/LOADER RErERS TO AS "LOCAL EXTERNAL NUMBERS,"
/C16> EQUIVALENCING Or TAGS
/JS TREATED AS A PSEUOO•OP ANO IS
/MANDLEO BY THE ROUTINE PBSS2a ClNCiOENTALLY
/SOME or THE 000 NA~ES IN THE SOURCr WERE
/PASSEO ON TO ME FRO~ THE ORIGINAL JCS
/PROGRAM. I DIO NOT CHANGE TMEM MERELY BECAUSE
/T~EY MADE NO SENSE,> T~E OPERATION tS T~ISI
/ALL EXTRA TAGS TO 8E DEFINED AT A GIVEN LOCAT!O~ ARE
/ENTERED AS A GROUP IN THE EOUtVALENCE TABLE,
/AND A CODE BIT IS SET ON THE PAGE TABLE TO.
II~DICATE THAT SUCH A GROUP rs TO BE DEFINED
/WHEN THE LOCATION HAS BEEN DETERMINED DURING

PAL10

370
311

372
373
374

375

V135

3 '18
379
3?0

I
I
I
I
I
I

381

3P2
3~3

I
I

3E<4

31<5

I
I
I

376

377

3~6

387
3Fl8

23;,SEPe69

11128

PAGE 9

/ASSEMBLY, ANUMCK OOES THE WORK OF DEFINITION,/(•)
/V~3
CHANCE NOTlCEI
I
AS OF V03 THE SA8R SYSTEM MAS
I
8EE~ CHANGED SUCH THAT COMMON
I
WILL RESIDE IN FlELO 1 INSTEAD

OF FIELD 01

THE ONLY CHANGES REQUIRED TO SABR
ITSELF ARE AS FOLLOWS
<1> HICOM~177 INSTEAD OF 7771
<2> PARG & ASM6L MUST NOW OUTPUT 6211'S
INSTEAD or 6201•S roR COF•S TO COMMON,

~JOTE I

THE COMMENTS HAVE NOT BEEN CMANGED TO
REFLECT THIS C~ANGE,
ALS01 BANK • 0 JS STILL THE CONDITION
FOR RErtRENCES TO COMMON, CBANK•1
STILL MEANS BANK KNOWN TO BE CURRENT
ANO BANK • a1 STILL MEANS BA~K UNKNOWN~)

/SA8~1815

PAL.1~

V135

2:s;.sEPw69

11r2e

PAGE

389

39rll
391
392
393
394
395
396
397
398
399
41-10
4?1
4"'2
49'3
4l4
4?5
4l6
47?

408

409
4Ul
411
412
413
414
415
416
417
418
419
42£1
421
422
423
424
425
426

I
ero00

F'IELD 0
I
I
I
I

t·HiJU

0fc'i45
0051
1?067
?~33

Zv.155

0iil62

e k:l40

U01

DEF'lNE LOCATIONS OF' MONITOR SUBROUTINES

DISPL•U
cors1<•35• ots PL.

COlSl<•U•OlSPL.

DUMSa'7•0 lSPI.
LINK•23•0ISPL.
OB1S•45•0ISPL
OPlS'-52•01SPL.
RTN•31hDISPI.
•1

<71001
0002

~000

USE,

02100

0
Ill

liH/l03
0004

001210
77?1

VAL.

0005

02,50
7577

AS0,

0007

2430

OTP,
STT,

00~6

0010

0011

0000
0000

0012

Nd00

x0,
x1,

~013

e,000

0014

elil02

21015

0k:'l04

e0t6

0~03

"1017

0130

0020

e030

SYM90L, 0
.1
M11

X2t
X31

CORE1•1
STTP
0
0
0
0

K2t
K41

K31

3
130

K130 1
K30 1

4
3Ql

/PTR TO CURRENT US[ WORD IN MST
/OCC. TAB,· PTR CNEXT FREE WORD BEL.OW,
/PTR TO 1ST FR£E WQRD OF' SYM, TAB,
/C~EEP STT AF'T!R OTP FOR !NITA>
/LINE eurHR INDEX
/TEMP AUTOS

/lolSR BUF'f'ER INDEX

/SASc:, e1-;

~ Al.l •!

\113':>

4'27

23•S£P,..69

11128

i'AGF.: 11

INDIRRE.CT Rf.FEk'E ''CES

428
429

M 1?.1

4,~~

.~2122

ICPLrS, ::PU"S

4.H

lel23

5312
221:>
1'323

4.~2

02124

C~u:· I

L61
L73

/CHARACTER

41?.6
~~ 7 .~ fJ
4 7 i15
:i 6/.()

';1_J'1"1V 1
(;(Tr:HR 1

L'UM
I. 65

IDU~'MY ROUTINE
/ROL1T I Nf TO RE.U'J NEXT CHAR
/ROUT IN£ TO I ~Pl.JT ANO OE CODE l\IF'"XT SYMB'.'.lL

4.~3

l:1?)')5

434

0Ql')6

4.~5

'"027

436
437
438
439
440
441
442
443

444
445
446
44?
448
449
450
451
452
453
454
455
456
457
458

C~GESl,

CTVPE1

C>E T<; V"' 1 GTSYM

~03~

1zc0

P'-'11

0031
00.32

3ic100
451.17

LF"SCHK 1 LF"SCK
oesvr-1, OBNSYM

0QJJ3

2~01

r.1034

4764
3664

0035
0036

li'J037
0040
0041
~042

NULL

OTVPE,

L.62

ROIL1

0046

2200

0047
i!l050

2400
2226
3713

0055
0056

~DL1

~;ULLP,

2000

0443
V400

11!~~1

(\Cll11

OUTBIN~ OUTBN
OUTSKP1 OUT SK
fl0PEXP 1 POPEX
PRSVMP 1 PRSYM
PUNCl-l1
L63

0043
0044
0045

0052
0053
0054

I NIL.PT

6261
6443
4000
3:1,64

340K'J

5000

134?
4772
1060
2532

RECT I 1
L55J,
51( IPL I

SLl TAB 1
SPSTAB,
SREST1
STCE,
TEST,
TYPE a
WLNP,
WR ITEP I

/CHECK

F'"OR

ANG PROClSS~COLLECTI~N

LF"S

CPGES

OCIL
RECT
L55

L?2

SL.TAB
SPSTB
L66

SETCT
TSCHR
L64
WLN
WRITE

TVPEi'.'UT ROUTINE

/CHECK F"OR A LF"S
/OBTAIN SYMBOL F'R0~1 MST

/OCTAL TYPE OUT ROUTINE
/ROUT I ~.1E TO OUTPIJT COMP WORD ANO REL R?TS
/ROUT l '~E: TO OUTPUT A SKIP INSTRUCTION
/81 NARV PUNCH ROUT I i\iE
/READ ANO

OE CODE ONE lNPUT Ll"1E

/SKIPS UNTIL A RETURN OR SEMICOLON
/SE.ARCl-f LITERAL TABLE
/SEARCH PAGE SYMBOL TABL.E
/ROUT I "IE TO SEARCH EXTERNAL SYMROL 'T'ABL.E
/ROUT JN£ TO TEST Cl-IARACTERS F'O.R EQUAL l TY
/TTV TVPE ROUTINE

/SABR,815

PAL.10

V135

459

460

461

462
463
464
465
466
467
468
469

410
471
412
473

04
475

476
41'
4?8
479
48111
481

482
483

484
4~5

486
487
488
489

0057
0060

0'.~00

0061

e000
ZflH!lfd

0062

~~00

C~63

0000

0064
0065
0066
012167

~000

li:'l070
0071
0072
0073
0074

'11015

e000
r000
0000

0000
0000

e000
0000
0000
0000

0076
0077
010CJJ

U77

01211

0000
e000
0001

0U2
0103
0104
011{J5

0U!6

r.2~0
~000

fl001

ACTR,

11128

IMPORTANT VARIABLES
0

/ASSEMBLY COU~TER
/BSS ~ IN PROCESS SwITCM
Cl-!R,
l
/LOC TO HOLD CURRENT CHARACTER
CSU"11
0
/BINARY CHECK SUM
EQVOPR, EQUTB
/EQUIVALENCE TABLE OUTPUT PCI~TER
EQVJPR, EQUTB
/EQ, TB, INPUT PTR 1
1L.C,
0
/CUR~ENT LOCATION
LF'Sl=ITR 1 0
/POINTER TO L.~S TABLE E~TRV
LI NE,
0
/NO OF' LINES SINCE LAST L.F'S
LITSlE; 0
/Sl~E OF' LIT TAB (ASM PMASE>
L.TS~E1
0
/SAME VOR COLL1 PMASE
L.STSKP; 0
/LAST t~STRUCTION SKIP INDICATOR
LSTB~Kj 0
/LAST I~STRUCTIO~ BANK INDICATOR
08ACTR 1 0
/Or, BANK INSTRUCTION ADOJTION COUNTER
/Orr PAGE SYMBOL COUNTER
OPSCTR 1 "
I••••• KEEP ITEMS SO I~CLOSED tN TME GIVEN ORDER roR INITA
kICOM1 0177
PAG,
0200
/CURRENT PAGE BITS
ESTSil, 0
/MOLOS Sl!E OP EXTERNAL SYMBOL TABLE

ssssw,

'l:

£QV8 IT I

APMSw 1
TEM1,

0
1
1

CPSW1

0000
0kH'l0

osw,

0107

0000

SCOLON, 2

01111J

1Hi1

PASS1
el
PGEESC, 0

0114
0115
0116

00el0
0000
0000
0000
0000
0000
0000

111117

01i!100

0120

493

494
05
496
491
498
09
500
5f.111
52:'2

503
504
5Ql5

'"6

0112
0113

PSTSM~

0000
0000

TEM1,

T£M21

VI
0·

0126

0000

TEM31
TE:M41

0127

~000

TEM5,

0122

PTS I l=PTSiE

0070

LITStl~LITSH

508
509
510

0130

511

0131

/PHASE SW ITCH

/PAGE SYMSOL TABLE CODE POINTER
/PAGE SYMBOL TABLE SYMBOL POINT~R
/SUE or PST
/PAGE TABLE CODE POINTER
/PAGE TABLE OP COOE POINTER
/PAGE TABLE SYMBOL POINTER
/SliE or PT

121123
0124
0125

v000

/MOLDS Sl~E or PAGE ESCAPE REOUTRED roR CUR PAGE

PMAS£1 0
PST CPR~ 0
PSTSPR, 0

0H0
0H0
0000

5~1

512
513

PUPGE1

0122

1roRTR PSUEOO•OP rLAG
IPOS NON•0 MEANS IGNORE DATA

I•••••

PTCPR1
PTO PR 1
PTSPR 1
PTSlE1

11J121

/AUTOMATIC PAGING MOOE SWITCH
/SPECIAL. VARIABLE USEO BY AS~E5

F'ORF'LG1 0

490

492

PAGr:.:: 12

0
0

0
0
/KEYPU~CHING ERROR
/KEYPUNCHING ERROR

/LISTING VARIABLES
0132
0133

0000
0000
0000

'11000

LF'LG1

;:,

EHG1
VF'LG1

0
0

AF'L.G1

NULL LI NE
/ERROR rLAG. 6BIT CHAR, IN LErT MALr
/0 tr NO VALUE TO OUTPUT
/DITTO roR ADDRESS
/0 IF"

/SABR,815
51'1
515
516

11128

PAL.10
~1.34

Q'lf,/leJ0

0135
0136

e01110
e000

CODE,
ADORES,

f!'
0

VALUE I

PAGE 12•1

/RELOCATION CODE
11 NSTff.· ADDRESS
/INSTR·,· VALUE

/SABi~, 615

F ALl.0

V135

e000

/LINE:
L.F'S I

23..;,SEP1t69

5H
518
519
5.20

fi'l137
0140

521

0141

e~00

IB1

171

522
523
524
525
5?.6
52?
528
529
530
531

~142

0000

AF'S,

0143
0144
0145
0146

0k100

UMIC1

NS~N,

0
e!

0000

SI(,

el,46
1?02'kl
l?kl00

CURSKP•SK

532

533
534
535
536
53?
538

539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560

0147
0150

0151
0152
H53

0"00

2000
~:fcHH'l

0000
0000
2000

op,

EXP.

BAN.Ki

i NF'O
0

S1t
s2.

0
0
0

I
I

F'RECIUENTL.Y USED CONSTANTS
5

0005
0iiH!!7

K51

K71

0007

0156

0010

KU,

0U0

0157
0160
0161

0020

K20,

0020

0040
'00'17

0071

0162
0163

e.100

K40,
K77,
1<100,

21177

0164

v.200

1<177,
1<200,

024~

1<20,

0165

~045

e027
r031
1030
~166

0167
01721
0171
01·12

01i:l41
7600
;."166
7524
1645
7776
7775
0ii143

ek152
0164

~040

0200

240
K400•L551
K60011GETSYM
K3000•LF'SCHK
1<1000•tNI
K4000•PRSYMP
K76.00 I 7600
M2ill0•K16011J
H254,
e254
LlNAXt LlNBUf'•1
.. 2
M21
M31

1!'3

K2000•ROtl.
M3000•STCE
M760?!•K200

/KEEP THIS LIST ORDERED AS GIVEN
/TO ~GREE WITH TLF'S LIST

0
0

21154
0155

0177

PAGE'.

fl!

sei,

53,

11128

PAL.lit

/UBR,815

561
_562
!>63
564
565
566
567
568

569
57!ll
571
512
'73

1164
Z162
:~kl43

'"2
583

23.:.5(p .. 6q

Vkl27

0173
'1174

L IT8SEi=L55 I

6776

PST8SE1

PTBSE1

ii"030

LT8SE•K1l0~

7176

PT8:7116
PSTB•6776

5575

IERROR"JMP l
ERRI
CERRORl!SJMP I
ERRC
SERROR•JMP I
ERRS

27Ul

5576

0176

2711
5577

0177

2702

L.AVOUT

11128

PAGE 14

POl~TERS

/PAGE OP CO~[ TABLE 1 I~ BANK 1.
/BASE OF EXTERNAL SYMBOL TABLE TN BAhK l
/BASE MAIN SYM 1 TAB IN 8ANK1
/BASE OF LOCATION FIELD SYMBOL. TA9LE IN BANK 1
/BASE OF ASSE~BLV PHASE LlTE~AL TABLE I~ BANK 1
/BAS£ nF PAGE SYMBOL TA3LE IN BANK ~
/BASE nr PAGE TABLE JN 8ANK 0
/BASE OF COLL1 P~ASE LIT, TABLE IN BANK 1

PSTB
PTB

7176
~176

0175

I
CO~E
I
PTOPTR!:!K2011
i-iSEEST•KtlZl!o
MST:K20M
LF"S8Sf•K6ill?J

?;045

574

575
576
577
518
579
580
581

V13?
I

•
•

/ERROR MESSAGES

/SABR,815

P.Al.10

V135

5€14

i2i0

•02~0

ses

I
I
I

586
5~7

588
589
590

"'200

72"'0

591
592
593
594

02(~4

4777
3110
372b
4725

ei205

4430

0206

'1410

595

022!'1

596
591
598

0210
0211
0212
0213
0214
0215
0216
0217

4727
4443
4733

599

600
601
602
603
604
U5

~2111

21202
02:13

3060
4452

1140
6211
35UJ

~220

6201
1146

0221

7640

606

0222

116~

607

0223

608

ei224

609
6U

0225
0226
0227
0230
0231
0232
"233
0234
0235

1517
3123
U41
7640
Ul45
1123
3123
1145
7640
5242
1143
7650
5245
1015
5270

611

612
613
614
615
616
611

618
619
62QJ

621
622
623
624
625
626
62'1
628
629

630
631
632
633
634
635

636
631

0236

0237
0240
0241

0241
0250

0251
0252
0253
fil2'54
0255
0256
0257

1156

1142

7440
5256
1157
U23
3123
1150
5264

"'01
16·U

PAGf. j,5

MAIN CONTROL t.CGtC

Cl.A
JMS
IJCA
QCA
J"1S
RSTRT1
Jr.,S
SKP
RSTRT1, JMS
JMS
JMS
OCA
JMS

tMlHO
PASS

ICAL..SW
IN I TAP

INl

/INITIAl.12E PAGE TABLE POINTERS

INCPT!

TAD

/lNC~EM£NT PAGE TABl.E POINTERS
/INPUT ANO DECODE ONE LINE
/CK F"OR MISSl~G ARG
/ALSO Cl.R BSS !S PROGRESS SW
/S£T ~OUNTERS fOR CURRENT LINE
/OP CODE

/TO PT OP CODE WORD

ROIL.

CKCSWP
BSSSW
STCE

cor 10
OCA l

PTO PR

CDF" 00
TAD

SH Cl.A
T4D

/Sl(tP

TAO

PTCPR

OCA

TEM1
18

/lN CUE LF'S BIT

TEM1
TEM1

TAO
OCA
TAO

RSTRT5

UM!C

JMP

RSTRT4
K4
COMP

JMP

RSTRT4~

/OR IN INDIRECT BIT
/YES

/YES

JMP

TAO

IN AL.READY

/F'OR N£W PT CODE WORO
/00 WE HAVE A PAR?

TAO

SNA Cl.A

INST

EXP

Si!A Cl.A

RSTRT5~

/OR IN SKIP BIT

K40

TAO
Si!A Cl.A
K400
TAD

1123

3123
1111

11128

STAQT,

I
I
I

0242
0243
0244
0245
0246

2J,,SEP"'69

/A MICRO INST?

/NO AN MRl
/OR lN CP£RATE BIT
/EXIT TO COMPUTE PAGE SIU

PAR F'OR AN OP CODE
TAD
TAD

DCA
TAD
lAD
Si!A

JMP
TAD

K10
TEM1
TEM1
M2

/PLACE PA·R BIT ON PAGE TABLE

AF'S

/IS AFS A CONSTANT

.•6

/NO
/VES ~~. CONSTA~T BIT
/•PT COD£ WORD
/FOR NEW PT CODE WORD
/ACTUAL BINARV CONSTANT
/£XIT TO COMPUTE PAGE SiiE

t<20

RSTRT21 TAD TEM1

DCA

TEM1

TAD

JMP
!AC

COHPGO

Si!A

C~A

/IS Ars A LtTERAL

PAl..10

/SAB;.;,81~'>

639
64it.
641
642
643
644
645
646
647
646
649
65ri!
651
652
653
654
655
656
657
656
659
660
661
662
663
664
665
666
667
668
669
67'l

671
672
673
674
675
676
677
678

"'260

0261
111262

TAD

1<2
RSTRT2
AF'S
PTSPR
NSGN

1142

TAD

3521

COMPGO, DCA

el21'>5
(.1?1<.6

1&267
0270
0271

1144
76421
1k143
1123
3511

COMP,
I
I
I

0272
fll273
fi.1274
~275

0276
0277
03011l
03eJ1
0302

03el3
03~4
03~5

eJ06

1137
76411l
4444
4422
1166
7150
5316
4731
1112
3111
7240
1122
3122

TAO
Si!A Cl.A
t<212lr11121
TAO
TEM1
TAO
PT CPR
OCA

11128

PAGE: 15•1

INO
/YES ~ •• LITERAL BIT
/SAVE AS CONSTANT F'ROM THIS POINT
/PLACE AF'S ON PST

/CK F'OR #

~EF'

IV.ES

/GET ALL TME BITS
/TO THE COOE WORD

NOW COMPUTE THE CURRENT PAGE sue
TAO

1,.f'S

SH CL.A
RECTI
JMS I
CPGESI
JMS l
TAO

M2U

SPA SNA CL.A
RSTRT6
JMP
PSMINI
JMS
PUP
GE
TAO
DCA
PGEESC
CLA CHA
PTS!E
TAO
DCA
PTS~E

/iS TMERE AN u·s
/YES ~;, EXIT TO ~ECOUNT PAGE
/COMPUTE ACTUAL PAG£ Slit
/SUBTRACT PMVSICAL. PAGE $UC
/IS Si!E ~GT, PMYllCAL Slit
/NO ....,, GET NUT
/YES ~~. PUSH CURRENT INPUT LiN~
/RESTORE LAST PAGE ESCAPE
/OECR[MENT PACE TABLE Stil

ASSEMBLE TME CURRENT PAGE
03Z7
0310
0311
1"312
0313
0314
el315

JMS
JMS
JMS
JMS
JMS
DCA
JMP

4445

4176
4732
4730
4430
3444
5211

L55t

UOPG

/ASSEMBL.E CURRENT PAGE

F' IX I

POPINl
INI
RECTl
RSTRH•2

IF' IX lLC I' PASS 2
/POP LAST INPUT LINE
IINITIALl!E PT POINTERS
/CLR RECOUNT rLAG ,OR CPLrs
/EXIT TO PROCESS POPPED LINE

PGEESC
PUP GE

/SAVE CURRENT PAGE ESCAPE
/IN CASE NEXT LINE OVERF'LOWS PAc;E

rt-321

7640

682!

~322

683,

rt323

5207

~324

5651

0325
li:l3?6
0327
0330
03.31
03."32
21333

4327
1!>63
3551
4217

../

,•3

0264

619

6ti5
686
6f\7
6A6
689

JMP

0263

11Ul

61:14

23wSEP•69

JMP

~252

~316
~31. '.7
~3t>0

6F\2
6a3

V135

5263
H'l14

1111
3112

4724

42!/l(ll

5561
i. 762

RSTRT6, TAO
OCA
TAO

PASS

SU Cl.A
LASMP
JMS I
RSTRT1
JMP
LASMP, ASM02
1N1TAP, I NITA
I CAL SW, CALL SW
lNCPTl 1 lNCPT
POPJNl1 POPlN
PSMINl1 PUSHlN
F'I XI,
F'IXILC
CKCSi.iP, CKCSW

PAL1~

/UB'i' .• 815
690
691
692

I
I

~334

4446
724i1

698

0331;
0336
0337
034121
0341
0342

699

0343

7?10

0344

693

694
695
696
697

745"
5343
3122
4445
4176
5370

7~2
7~3

7M6
7rt1
1218
7".9
7UI

711

112
113
714
115
116
717
718

0345
0346
0347
"350
ei351
0352
0353
0354

4427

74511)

5575
3374
7240
1122
7450

PRORG,

121
722
723
724
725

0366
0367

13'14
3017

726

0370
rd371

4732
1375

0372

3~33

0373

5434

727

0374

011H'l0

728

13375

~:205

729

'1376
03?7

6456

3172

•3

PTSlE
L55l

UOPG
RORGX

JMS
NOP

GETSVM

SKP

TAO

RQRGX1

/DtCRCMENT

PAGE TUL.£ SUE

/WA'rCM F'OR i£RO
lrOR NEW PAGE TABLE Sl2E
/ASSEMBLE CURRENT PAGE

/iNITlAL.l!E AND INPUT ANOTMER L.tNE

REORG PSEUDO OPERATOIN

Sl<P Cl.A
I ERROR
Sl<IPL
JMS I

5366

3122
4445

730

I
I
I

0166

0355

JMS l
SKlPL
Cl.A CMA
TAD
PTSlE

JMP
DCA
JMS
JMS
JMP

5575
4446
1150

ld356
0357
036121
0361
0362
0363
0364

PAG£ PSEUDO OPERATION

SNA

?"0121
?4Ul
76UJ

03~5

719
720

PPAGE,

1122

701
704
7rll5

V135

1<7600
ANO
SNA
tERROR
RORG1
DCA
CL.A CMA
PTUE
TAD
SNA
,•3
JMP
PTSi!E
DCA
JMS
1.5!5I
RORG1
TAO
PAG
OCA
JMS

TAO

DCA
JMP

RQRG11 0
RSTRTX 1 RSTRT
UOPG,
UOPAGE
IN!T!01 IOiNIT

f"IXl

RSTRTX

oc lL.1

~UL.L.P

/GET NEXT INPUT ITEM
/NO'rMING THERE
/SYMBOL
/CONSTANT
IL.I TEA AL

/NEW REL.OCATABL.E ORIGIN
/MASI< or, PAGE DllPL.ACEMENT BITS
/ARE WE TRVJNG TO REORIGIN BEL.OW 210
/YES ~ •• NOt ALL.OWED
/SAVE N[W ORIGIN
/DECREMENT PAGE TABl.E SI!£
/JS TMiS TM£ BEGINNING or A PAGr
IVES
/NEw ORIGIN
/TO PROPER L.OCATION
/RETURN AT RSTRT INSTEAD or ROl.1
/RE•INJTlAl.IZE ANO GO

/SABR,81~

~·AGE

731

n2
nJ

I
I

7J4
735
736
737

/FU\CTlO~l(PASS1>

I
I

711\1
742
743

I
I
I
I
I
I
I
I
I
I

744

745
746
1'1

748
749

75111
751
752
753
754
755
156
757
758
759
160
761

I
I
I
I

I
I
I
I
I
I

762

763
764
765
'766

I
I
I
I

?67
768
769
770

717
178
179
780
781
782
'183

ASSEMB~ED
1

738

716

TO CAUSE CURR[~T PA~f TO BE

IT>-IIS RouTt\E ACTS AS Ti-IE DRIVER F'Q~ THE. ASSE "1E!LY
/PROCESS, HOST OF' Th( ACTUAL ASSE~PLY WORK
/IS nONE BY ASM8L1A1,A2 1 & ASH02,

139
740

771
772
773
774
775

QQUTI~E

'11400
04U
0402

04213
0404
04;1!!5

0fi:'J00

L55,

7640
5236
5634
4633

CALL ASMBL TWICE, ThE F'JRST TI~E
CACTR!0) PROHIBIT OUTPUT BY co~VERTI~G
"JMS 0UT8%N" TO "JMS DUHPV". eur
ALSO CONVERT "JMS DUMMY" TO "JMS DUTBN"
SO THAT OUTPUTTING OF' OCCURA~CES
WILL OCCUR I~ rJRST CALL TO ASMBL,
tN GENERAL1 IN TME F'IRST RU~ THRU ASMBL
NOTMlNG HAPPENS EXCEPT THAT TAGS ARE
D£F'JNEO <BY LF'SCK), AS THE .TAGS ARE
0£FJNEO LF'SCK ALSO CAUSES TM~
OCC,TAB, TO 8£ SEARCHED FOR PREVIOUSLY
UNRESOLVED F'ORWARD REF"ERf.NCES TO Tlo!IS
TAG, lF' rouN01 RELOCATABLE POINTERS TO
THE TAG ARE OUTPUT AT ALL R£QUlRE0
ADDRESSES DU~l~G P~ASE1 or ASMBL.
AF'TER THE 1ST ASMBL, 0UT81N & OUMMV ARE
SWITCHED BACK TO NORMAL & ASM6L
IS CAL~ED AGAl~, DURlNG 2NO ASM9L
TM£ TAG OEr~. SECTION OF LrscK IS
BV~PASSEO & ALL CODE EXCEPT CCCURANCES
tS OUTPUT,
CPASS2>
OURlNG TµE LISTING PASS MOST or THE
ASSEMBLY IS DONE ON A LlNE•8Y•~INE
BASIS BV ASMV,2 SO L55 MAS LITTLE
TO DO, IT JUST CALLS A2 TO
OUTPUT TME LITERAL POOL & T~EN
Al TO lNIT. ASSEMBLY or THE NEXT

PAGE,

TAD

PASS

JMP
JMP
JMS

L551.

TAD

L56

DCA
TAO
OCA

SiA CL.A

L55c,

L558
L55A

0412

1230
3025
1231
32136
3057

0413
111414

3235

DCA

DUMMY
L56+1
OUT81N
ACTR
EQVOPR
TEM55

3067
4632

OCA
JMS
TAO
DCA

ASSMBL.
L.56
OUT8 IN

0406

0407
P.1410
0411

111415

784

0416
0417

785

042111

1'!163

1.230
3036

DCA

TAD

L1NE

/CLR DEF BIT IN PST FOR OV£RFLOW EOV TAG
/CHECK COMMON PUNCHED
/SET DUMMY ROUTINE TO OUTPUT
/SET OUTPUT ROUTINE TO OUMMV
/CLEAR ASSEMBLV COUNTER
/SAVE roR 2ND ASS£MBL
/CLEAR IN CASE WE GET AN M£RROR
l•SSEMBLE PAGt rlRST TIME
/RESTOR~ OUTPUT ROUTINE

1$,.81(,815

PAL.li:'

V135

23 .. SEP.,6~

786
787
188
789

f?421
i/1422
24;;3
::"424

1231

TA,)

L56•1

3~25

DCA

~iur-i~v

I Si!

ACT4
TEt15s

-790

7,4;>'5

TAiJ
DCA
JMS
J~P

2<l!:i7

1235

79~

~1426

.3i6J
4632

792

~-4;>7

~6~0

793
794

'.H.~0

34v~i

L56,

>'i4U

795

0~3;2

37f!J6
5A012l

ASS~l1L.a

AS~BL.

796

111433

197
798

L55A,
L559,

..tC8PS

1('14.~4
0,4,~5

3537
6725

EQVF'IX

f'000

TEM55,

L55L,

JMS
JMS
JMP
A2
A1

11I2B

PAGE 17.wl

/RESTORE

'JU~MV

FOUTI\IE

/S£f ASSEMBLV COUNTUl
/RESTORE AS 8EF'ORE 1ST ASSPH1L

EQVQPR

ASS:1f".lL

/ASSEM8LE

L55

/RETUFhJ

A'-10

OUTPUT THIS

:JUTB~

'.JU11

799
8~~
8~1

e~_2

ili436
0437

4641

803
8e!A

04!10

5600

805

0441

8~6

0442

5424
5526

807
8?18

464.2

A2P,
A1P-,

A2P

A1P
L.5f)

/INITIAL.ItE

~~E IC T

PAGE

Tt~E

V135

PAGE 18

11128

B,~9

810
811
812
813

/COLLECTION PHASE ROUTINE
/RECOUNT TME CURRENT PAGE BECAUSE or AN LrS
/CALL WJTM AC~0, LEAVES AC•0
/fUNCT!ONIWHEN A NEW TAG IS OErtN£0 ON PAGE
I
OPSCTR & OBACTR MAY ~EEO TO BE
I
REDUCED, C?LrS TAKES CARE or OPSCTR
I
BUT OBACTR REQUIRES REVIEWl~G TME
I
ENTIRE PAGE,
IOPERAT!ONI
C1) CALL CLNPST TO CLEAR BITS 1•9
I
or ALL PST CODE WOROS•WIPES OUT
I
SHARE or OBACTR DUE TO EACH SVM,
I
(2) RE•lNIT PAGE & CLR OBACTR
I
(J) rETCM ITEM rROM PAGE TABLE
I
C4> SET ALL tNSTR;TvPE F'LAGS ACCOROtNGLV
I
(5) CALL SETC
I
(6) INC PAGE TABLE PTRS TO NEXT IT£M
I
& LOOP BACK TO (3)
I
CONTINUE TMRU ENTIRf TABLE;

814

815
816

817
818
819
820

821
822

823
824

825
826
827
828
829
830
1331
832
833
834
835
836
837
838
8J9
840
841
842
843

RECT1

0443
0444

1116

~445

?440

T"AD
SH

0446

5731

0447
041)0

4730
3kl74

3451

1122

~4?2

'1041
32011!

l'l453

7ft00

PSTS~E

/ANVTMING ON PST?

JMF'

CLE ~JUP

/V[S, CLEAN PST CODES

R£CRET ~ JMS
DCA

OBA CTR

TAO

PTS~E

/00 !NITS,
/lERO oF'r BANK ADDITION COUNTER
/SllE or PT

DCA

RECT1

/TO INDEX LOCATION

JNISS

3454

844

ft.l!455

~45

0456

846
847
848
849
850

~4'57
~46'1l

0461

J462

6.211
1520
tUl
3140

RECT21

THIS IS THE RECOUNT LOOP
COF' 10
TAD t

DCA

1517

TAD

e16"

ANO
OCA

3146
1517
V:i.)43

PTOPR

TAD
AND

OP
PTCPR
SK
PTCPR

851
852
853

~465

3144

CCA

"-!SG:J

0466

1:>11

TAO

854

~467

~'.015

855
856
857
858
859
860

0470

3143

ANO
OCA

~471

1517
7156

PT CPR
K4
UMIC
PTCPR

81"'1
8b2

~476

863

2l4 73

2'474
~475

'J477
05?0

3145
1517

'1'045
3141
1517

V157

TAD

ANO
DCA
TAD
AND

DCA
TAO
ANO

/CK rOR SKIP

!~ST

K40

J463
tl464

a412

/OP CODE rROM PT

CDF' 00

/CK F'OR # REF'

K2~:ti{:

EXP
PT CPR
K4'10

PT CPR
K2"1

/PT CODE WORD
/IS IT AN OPERATE

I~STqUCTIO~

/CK F'OR PAR EXP
/PAGE TABLE CODE ~CRO
/MASK OF'F' !~DIRECT BIT
/PLACE IT IN PRCPfR LOCATtO~
/PT COO£ \.:ORD
llS AF'S A CONSTANT

/SA8R,815

PALH

864

?.521

863
866
867
868
869

7112
744;3

J5?.3
t5v'4
05i5

1517
lw:l14

~5e:6

71U

87~

05:?.7

7450

871
872
873

0510
0511

1521

874

~ 5 it.2

;()5:12
0513

0514
0515
0516

,•3
JMP
?TCPr.<
TAD
K2
AND
CLL RAR
SNA'
PTSPR
uo
AF'S
OCA
PTSPR
uo
50
OCA

1521
3150

PTC.:Pw

'1531

6424

'.'!532

12211

K2k'l11

883

<11521

3147

884
885
886

·1'522

4452
22e0

i524

7410

8~7

~5:?5

15643

0526

4733

5254
;?42!0

,:1530
ll533

1041

6 7•11

201

I S~PT1, ISlPT

rtELD SYMBOL

I ACTUAL I. ITERAL
/TO LITERAL LOCAT!O~

TAO

;.1517

3527

/ADC~ESS

RECT31

~520

8~9

/PT CODE wORO
/IS A,.S A LITERAL

1517

882

888

IVES

AREA WMJCM CAL.LS COUl'.T ROUTH'E

K2'1l1
ANO
SNA Cl.A
,•3
JMP
CLA CMA
OCA
BA"'t<
STCE
JMS
RECT1
lSl
Sl<P
RECT
JMP
ISi!PH
J"1S
RECT2
J"1P
FlECT1•L55
INISSt IN I SUB
CLE\iUP, Cl.t-.iPST

0523

PAGE 18•1

11128

I
I
I

881

890
891
892
893
894

3l.42

"332
765121
5322
724121

88~

23~SEP•69

CLL RTR

531'6

875
876
877
878
879

V1.35

/PT CODE WORO

OR A~ ECU!VALE"'C£D TA Gt

I IS TMtRE A TAG

1"0
/YES

...

SET

BA'~I<

UNKNOWN

/CALL COUNT ROUTINE
/OVER YET
/NO

/EXIT
/GO GET NEXT LPJE

PAL1'11

/SA3'<,':'15

V135

?3 .. SEP .. 6Q

11121;

895

tiQ6

E\I') PSEu00 '.JP ER A T I 0 \:

PE~<l 1

TAJ

'3n
;;c;s
999

1,534

11~6

~5~5

9:'\"l

,(~5 ~

9 '1

6
I~ 5 ,~ 7

7750
5J42
7~40

JMP
CMA

9?2

;154~

JlU)

9·~3

0541
ll542

54~~3

CCA

724i

CLA

916
9?]
9l8
9/9

~543
~544

1122

TAD

PTStt:

7450

0545
:3546

~351

SNA
J'1P

,+4

3122

!')CA

91~

0550

911
912

21551

9 ·~ 4
915

913

914
915
916
917
918
9,9
920
921
922
923
924
925
926
927
928
929
930
931
932
933

~547

0552
0553
rll554

0555

1110
7640

0565
~566

0567
0570

0571

""2
0573
121574
0575

5564
~205

4327
4714

I tr FLAG ON, TUR1. .

CLA
,+4

/GO TO R')L1
/TUR'

OH &

Of:'F' i::or<TR p.,.Qp

r:CILl

C~A

PTSH
AP,...S:..
L55

/DECRE"1ENT PT srH
/AR£ wE AT T~E ~EGil\·NlNG OF' A PAGE
/VES
NEW l=IAGE TABLE SUE
hO
/LEAVE AUTO PAGING t-'ODE F'OR LAST PAGE
/ASSEMBLE CURRE.~1T PAGE

...

csu·~

DCA

TEM1

JMS I

C'UT8I ~

/OUTPUT CK SUM

TE"l1

TAD

PASS

Si A CL.A
JMP
ENDEND

~370

4775
4441
2110
4774
4642
7402
5773
4455
76rtl2

FORFLG

F'..'lr<r:-u;

lSc
JMS
HD

42k'0
1062
3123
4436
2123
it010

~556

S\.A

J"lP I

0557
0560
.,561
0562
2563
0564

SPA

FAGE 19

JMS
JMS
I Sc
JMS

JMS

LEAU
PRSV~P

/OUTPUT TRAIL.ER CODE
/TYPE OUT SYMBOL TABL.E

PASS
I "J l TA I

A1P

1-iL T
E~OENO,

JMP l
REE
IOl,;~P
JMS I
HLT Cl.A
K200
JMP I

REE,
FISTRT
PHTAl1 IN!TA
LEADER
l..EAD1

/LIST THE "El\JD" STATMT
/RESTART AT 200

/SABR,81:>

PAL10

934
935
936
937
938

'.1

6Mo

!NP~T

lTE~

IGNORES SFACES & UBS TO 15-T CldR or ITEM
/ASSUMES ·AC•0
/CALLING S£QI JMS I GETSYM
I
NULL RETURN ClF" ~O ITEM F"OUND BEFORE CR I I *
I
SY"''10L RET, ( WJT1o4 SYM P'·ACl(EO IN S1•S3
I
ANO S0•SYMBOL LENGTH>
I
CONST , ~ET , ( lrl ITH VALUE TN Se,)
I
LfTERAL RET, c wTTM VALLIE Tt-i S0 >
/SVNTAXt ~TlERAL~I c00e
NUM€RIC Ltl.
I
(900P
N[G,
I
<K000
OCTAL
I
(0000
O£CJMAL
I
<"A
ASCII Lll,
I
C•"A
~EGATlV£ ASCII
I
CONSTANTSI 00~1~000,"A,OR •"A
I
~OTEI AF'fER A VALID QUOTE ANY ASCII CMAR MAY APPEAR
I
AND wIL.L BE STO·REO AS THE CONST OR LIT VAl.UE'."
I
THIS INCLUDES CR J I * SO THESE DO NOT
I
TER~INATE A LINE A,TER A QUOT~.
/ALL EJITS LEAVE AC•0
/NOTES Tn PROVlDE A CHECK OF' TME PUNCTUATION
/CHAR, F'OLLOWING PREVIOUSLY R£AO SYMBOL• GTSYM
/DECRE~ENTS THE LlNE ~TR B£F'ORE STARTING
/THE READ~ IF THIS IS NOT WANTjD
/CALL TO GTSYM MUST BE PRECEDED

941
942
943
944
945
94tl
947
948
949

950
951
952

953
91)4
955
956
957

958
959
96121

/BY ''lSl X0"

961
9b2
963

06[:~ 0

~~000

964
965

i216H
ill6•;2

966

967

06?:3
11169'4

Hl40
1010
3'1h'

968

Vl6V5

969

0606
06e>7
0610
1'1611
0612
0613
e'614

976
977

PAGE 20

9,~9

972
973
974
975

11128

•62~

/READ

940

970
971

V135

~615

2'616

GTSY"'11

CMA
ND Xrll

1105
3126
7040

3355

ITM4,

4754
5264

fTM2 t

DCA X0
TAD OSlri
OCA TEM4
CMA
OCA
SIG\
JMS I . RC
JMP lTM5
JMP lTM3
JMS t TEST

5217
4453

C-751

/SAVE NUMERIC MOD[
li1G~l•1 FOR POSITIVE
/SICN~i TO FORCE NEGATION

/READ 1ST C"4AR
/OIGITI en. f\_UME·~nc CONST
/AL.PMAI GET SYMBOL
/SORT LEADING PUNCT,

SL2~.1

.8J..2~SL2

2011
5576

C£RROR

!ILLEGAL CHAR

97A

979

/READ IN A SYMBOL
/ASSUMES 1ST CHAR ALREADY READ IN & SAVED IN CMR
/LEA~ES SYMBOL PACKED IN 66IT CHAR PAIRS IN S1eS3
I
S0sNUMBER OF C~AR PAIRS ACTUALLY USE~

9~;0

9?1
9P2

9"'3
9R4

"617

2355

tSl SIG\

/C.t< FOR •SYMROL

9i!5

~620

5!j76

CERROR

::s15e
3123
3125

/YES.

9~6

iJ6)1

987

:.l622

9><8

06?3

DCA 50
OCA TEM1
DCA TEM3

/CLR FOR SYM LE~GTM COU~T
/CLR roq CµA~ COv~T
/SET PTR F'OR LEFT EYf£

/SAB~ I 815

989
991r!l

991
992

993
994
995
996
991
998

999

1002

1HJ
111104

PAL.10
ia624
0625

0626
06,.,
121630

0631
06J2
0633
rll6H
"635
111636
0637
"6411J
121641
1116'42
19643

1005
3012
2123

1061

TAO CHR

1U4

3412

7106
7006

UJ18

0651

3125
215111

1016

0656
0657

UJ11

0660

1119

0661
0662
8663

5350

Ul15

s.118

1'29
UJU

475a

1124

1825
111129

UIU

1832
1833
U34

1036

1664
166,
U66
0661
2'6;0

0611
06'12

0673

1037

0674

1138

rll675

uue

1141

110
1143

tSl TEM3
JM? RSMJ
TAO TEM2
OCA I X2
J"1P RSM1
RTL CL.L.
RTL
RTL
OCA TEM2
CMA
OCA TEM3
IS! Siil
JMS I RC
JMP RSM2
JMP RSM2
ISl TEM3
JMP ,•3
TAO TEM2
OCA I X2
TAO I
tF'CTP
SMA CL.A
JMS I SRS
JMP 1TM14

F'AGE 2;\ .. 1
STORAGE PJ s1 .. s3

/COLP'T CHAR

/AR[ MORE Tl-IAN 6 CMA~S tr...:?
/YES, !Gf,ORE
GET ASCII
/MASI< TO 6BtT
11\10,

/w~tCM

8YT£7

/1..EF"T

/AOO ON LErT l-IALF
/STORE CHAR PAIR lN S1wS3
/MOVE 6BIT TO L.ErT BYTE

/SAVE WHILE wAITlNG ON RT BY'rE

/SET PTR F'OR RT BYTE

/COUNT 1 SYMBOL wORD
/REAO 1'iEXT CHO

/DIGIT
/ALPMA

/NOT~ING

/PUNChENO OF' SV~I C1-1£CI< BVH PTR
IN TEM2
/SAVE THE ODD CHAR
/SKJF

SYM TA8 IF" tf!9COUNT ~OT UP

/LOOK IT UP IN SYM TAB, & £NTE~ IF' NEC·,·
/[)(IT

/READ OJGIT STRING
/ASSUMES 1ST DIGIT ALREADY REAO ANO ASCII SAVED IN CHR
I
SGN1•1 If NUM, IS TO BE NEGATED
I
OSWa0 FOR OCTAL CONVERSION, 1 POR DECIMAL
/LEAVES AC•OCTAL VAL.UC O' DIGIT STRING CNEG tr SGNl•1)
I
CHR•ASCtl F'OR TERMINAL PUNCJUATION

1031

RSM1,

1822

1826
1827
1"28

RSMJ,

'1i40

4754
5226
5226
2125
5260
1124
3412
1756

0655

AND K77

2125
5242

5251

CL.A

JMP RSM1

0161

1H9

0653
121654

/AUTO~INDEX

St-IA

11l106

0652

11128

HD AS0
DCA )(2
ISZ TEM1
un TEH1

7700
5251

3124

1011
111!11;!
U13
1014

23,;.SEPe69

TAD M7

1~H14

0644

100a

RS"12,

1123

064'
111646
0647
065111

tlllll6
u101

V135

1676

1611
1700
11701

3123
1'61

13,2
3124

1105

1640
5302
1124
1004
1140
55'6

7U6
5305

ITM5e
ROS1e

OCA TEM1
TAO CHR
TAO M260A
OCA TEM2
TAO osw
SU CL.A

/CL.EA~ F"OR ACCUMULATION
/REOUCC CHR TO OCTAL VALUE

/OCTAL. OR DECl~AL CONVERSION?
/OCTAL1 CK F'OR 8 OR 9
/OECtMAL1 8 OR 9 IS OK
/VALUE • 8 OR 9?

JMP MUl..1
TAD TEM2
TAD M7
/NO, GO ON
SMA SU CLA
CERROR
/YES
/MUL.T, PREY, VAL, BY CONV, F'ACTOR
TAD TEM1
/ARG •4
CLL RTL
JMP HUL.1•3

ISAB~,615

PALl·~·

V135

nr<2

1123

"":JL1,

?;7 "'.3

71l:6

1044
1~•5
1~46

1123

1k'49

07 ·.4
;n,'5
N:r.6
07?7

105:0

171/l

1047
1i4e
10~1

1052
12153
10-5A

1055
1'!!~6

1057
1058
1'.'159
1060
1'1161

12162
1063

?711
n12
0713
011'4

0715
0716
0717
0720
0721

0722
0723
0724
~725

1064'

0726

U65
U.66
1067

0727

10,6.8

1069

1070
U71
101.2
1073
1074

1075
1076
11117 7
1078
1079
10R0

1081
1082
1083
1084

0730
0731
0732

"1733
0.'734
0735
0736

0737
0740
0141

0742
0743
0744
0H5
0746
047
0750
0751
n52

3123
4754
5265

RAL
TAD
OCA
JMS
JMP

5576

CERROR

1123

T.AD TEM1

235!)
7041
3150
1126

JTM6,

JTM71

745'1;

5575
3123
4426
7200
1123
5J14•
4757
4754
5264

ITM8,
1TM9,

5576
3355
5333

ITM101

1001
3105

ITMU1
ITM121

5333

ITM131
ITM141
1TM151

0755

012"110

1vi~s

0756

6371
6746

Ci<lF'P,

1089

0754
'~757

/PLUS ARG.aARG•5

/ADD

!lj[W

01 GtT

/SAVE· ACCU~IJLATEG

/REArJ NEX'T CHAR,

/DIGIT

/IS

OCA osw
JMP ITM13
JMS l
GETCHR
SNA
I ERROR
OCA TEM1
JMS I GETCHR

VALUE

/ALPHA
/P!J\JCT,, J

ISi! SlGl\i

JMP ITM6
JMS l Cl( IF'P
JMS I RC
JMP ITM5
nap

1087

0753

• 4

GET TOTAL

~~EGATE

Sw 1 SE.T?

/YES
/STORE CONS-T l/ALUE
/RESTORE NUMERIC MODE
/EX IT

/READ ALP MA CONST,
/NOTH I NG

T~ERE

/READ NEXT CHAR FOR 8£1\J[F' tT "IF' SKJPL.

TAD TEM1

e737
0033

5600
1520
4400
4546

T£M2
TEM1
I RC
RDS1

CL.A

7000
4453

4757
4757'

2~· .. 2

1•2

CIA
()CA 50
TAD TEM4

340~

5347
4426

/ARG

RTL,.

uo TE~1

7i:"04
1124

PAGE

11128

TAD TE Ml

CLL

M263A,
SRS,
RC,
SIG".i,
IF'CTP,

HlJ85
1086

2J,,,5[p,,.69

JMS I TEST
SL.3 .. 1
8L.3"'SL3
CERROR
OCA

s IGi\i

JMP ITM9
IAC
DCA osw
JMP ITM9
JMS l CKH"P
JMS I CKJ:F"P
JMP I GTSYM
!'!260
SRSYM

RCH
~

IF'CTR
CKIF'

/MOVE PTR TO L.IHRAL EX IT
/READ 1ST CHAR Of L.IT I
/DlGlTI NUt-iE~IC LIT•
/ALPHA I MUST BE: !{ CR D
/LOOI< fOR I<. 0' ". l!I

/IL.LEGAL CHAR
/SET F'LAG F'OR NEG.a UT ..
/F'ORCE OEClMAL. LIT,
/F'ORCE OCTAL I.IT•
ICO!\JST, E:X tT
/SVM80L EXIT
/"IULL EXIT

/SABR,815
1090

1091

1092
1093
1094
1095
1096
1097
3098
1099
111'10
1101
11Z2

1U3

el760

0761

PAl,.10

V13'

576Z

AEMOR•JMP I

2712
1563

CALLSP~

23;SEP•69

11128

PAG£ 21

£RR4
CALLSW

/CHECK 'OR TOO ,£W ARGS
/AERROR IF CAL.I.SW MINUS
I

0762
0763
0164

0765
0766
n67
0770

0000

Ct<Csw,

1761
'7700
5'162

2761
7000
5760

TAO t
CAL.I.SP
SMA Ct.A
JMP I
Cl<CSW
CALI.SP
!Si I
NOP
AERROR

/CK
101(

/COUNT MISSING ARG
1'1.AG

1104
1105

/CMECK F'OR TOO.MANY ARGS
/ACRROR IF' CALI.SW POSITIVE

11<1!6
11?.7

11~8

0771

0000

1Ul9

0772

1110

0773

1761
11H

1111
1112
1113
1114

k'l774
0775

57U
2761

0776

70eJ0
5771

0777

Cl<CLS1

uo 1

CALI.SP

100 ~£ WANT TMiS ARG7

!S! l

CAL.LSP

/NO, AAG COUNT OV£A,L.OW
IVES1 ·COUNt THIS ARG

JMP I

Cl<CL.S

SMA Ct.A
AERROR
NOP

1115
1116
1117
1118
1119
1120
1121
1122
1123
1124
1125

1126
1127
1128
1129
1130
11.31
1132
1133
1134
1135
1136
1U7
1138
1139
114i?l

1141
1142
1143

1144
1145
1146
1147
1148
1149
1150
1151
1152
1153
1154
1155
11':;6
11. 57

PAL10

V135

11100

•100;~

I
I
I
1l~0

i'~H,>,e

10oi'1

7201

HW2

3122
.3116

1"'v.13
UV4
10'.!5

3075
.5113
4241

7240

112! 12

3636

1013

7201

1ii;'!14

~~63?

1CH5
1016
HH7
10?.0

11211

1021
1en2

3~63

1025
1026
1027
1030
1031
1032

OCA
DCA

OCA I
DCA l
CDF' 10

OCA l
COf" 00

3520

6201
1"127

TAO

311l66

DCA
DCA

3074

1235
3033
,600

H'!35

20iH
';774

Hl40

OPS CTR

3064

HB4

1037

LITSU

5222

1033

1e1:~6

OCA
DCA

CLA l AC
OCA l
LSTSKI<
EQV9 IT
TAO
SH
EQSAV
JMP

3517
3521
6211

5715
7567

TAD

DCA
JMP

/SET 'AGE TABLE Sti!E
llERO PAG~ sv~aOL. TABL.E SliE
/iERO LITERAL TABLE Sli!E CCOLL1 PMASE>
I« ASM8LY PHASE LIT TABL
/i!ERO orr PAGE SYMBOL COUNTER
/SET 'MASE SWITCH TO COLLECTION

/A~V

EQUIV. LErT rRo~ LAST P4GE1

/YES1 SKIP TABLE REIN!T & SAVE BiT

/NO,

R£~lNtT

EQ, TAB, PTRS

EQV1PR
F.:QVOPR
PT CPR
PTSPR

/!N!TIALli!E PAGE TABLE CODE WORO
/lNITIALllE PAGE TABLE SYMBOL WORD

PTOPR

/INITIALli!E PT OP CODE wORO

Lf'SBSE
1,.F'SPTR
OIUCTR
ROL.1X
OCIL1

/!NITlALllE LF'S TABLE POINTER

tNlLPT

/i!ERO OF'F' BANK ADDITION COUNT~R
/RESTORE IN CASE or R[ORG OR PAGE PSUEOO
/RETURN

ROL1X 1

R0L1
FlNKSAV
LSTSKK, SKPSAV
BNl<SV1

M2111

"'211

11~12'

1241

;~ J ~12)

1161
1162
111'3
1164
1165

1~42

1174

1043

3117

OCA

Hl44
17!4 5
1?.46
11147
1£F;21
H':il
H1"'2

1174
'"01
1164

TAD
JAC
!JCA
TAD

~12~

DCA

11t8
1H9

or • PAGE

/GENERAL PAGE TABLE IN1TAL12ATIO~
/DOES PARTS or INITAL?l, COMMON TO SEVERAL
/ROUTINES

1159

11q

COLLECTIO~

1158

1166

T~t

PHASE
OCA
JMS
lNlSUB
CLA Ct'IA
BNl<SV
OCA l

7440

PAGF.' i2

ROUT!NE TO INtTfALilt POtNf£Q$ roR
CLA I AC
PTSi!E
OCA
DCA
PST SH
OCA
L. TU£

3071
3070

10V6
10 ;.~ 7
1VlU
1'1111

1'2'23
12124

IN!LPT,

11128

3121
724"1
3'173

lNlSUB,

CLA CMA

llCA

PT8SE
PTCPR
PTl:lSE

IINITIALliE PAGE TABLE CODE POI~TER
/l~IT!ALltE

PAGE TABLE SYMBOL

PTSPf<

PTOPTB
PTOPR

/IN!TlALllE PT OP CODE ?OlXTER

PnI~T~R

/SAS", i:p;

1170
11.71
11'72
1173
1174

PAl..1<'

Vt35

11128

10?3
rn?4
1il55
10•;6

72il1

':LA lAC

,i~l2
724~

'CA

::'.L 4 CMA

U47

i1CA

!lAt~;<

1{)';,7

?641

J.'10

I \i I S•,:B

/SET LAST lNSTRUCTlON
LSTS-<P

S~lP

I~DlC4TO~

f-ALl''

1175
1176
1171
1178
1179

11128

TO WRITE A LINE
/MAV BE USED O~LV DURI\G PASS 2 (L[STING>
1ru~CT!O~ITVP£S (QR PU~CMESl EACM LINE OF SOURCE
I
WIT~ PROPER ASSE~BLY ADD~. & CODES
I
AT BEGI~~ING or LINE (QR SPiCES IF
I
T~ESE ARE O~ITTED>~

11 4 1
UA2

11•:3

IL I \IE f'ORMAT I

11'24
1185

/ADDR VALU RC
CO~TE~TS OF LINE BUfFER
/ERROR FLAGS TYPED 8ET~EEN ADOR & VALU
/COLUMNS, RC•RELOCATtCN CODE, TME LINE
/BUFFER IS IN f IELD 1 AT "LI~BUF',"

11?6
11€'?
11!19

1060
1.11161
1062

k.>1000

1130

1194

Ul63
1064

5353
1133

TAD
LFl.G
SNA CLA
WL.~~3
JMP

1195
1196

1"66

119?

106?

1198
1199

121l0
122'1

1071

7640
5272
4423
4423
5274

1072

1135

TAD

1073

JMS

12712

1014
1075

4435
1131
4423

AODRES

1076

1132

TAD

SH CL.A

JMP
JMS
JMS
JMP
JMS

OTVPE

11.65

1(2410

JMS

TYPE

1214

1110

4454
1134

TAO

1213

1071
1100
11:"1
1102
Uv.JJ
112!4
1125
1U:'l6
1101

7640
5304
4423
4423
5306
1136
4435

OTYPE
EFl..G
CTVPE
VF'LG

1215
1216
1217
1218
1219
1220
1221
1222

1111
1112

4423
6211

1191
1192
1193

121'13
1U'4
1205

1206
1207
1208

12219
1210
1211
1212

1223
1224

1225
1226
1227

1228
1229

PAGf. 23

/SU8~,

111'.3

1189
1190

V135

10fi5
1070

1113
1114
1115
1116
111?
1120
1121

1122
1123
1124
1125
1126
1127

7650

1764
62ei1
7650

5353
4423
1165

4454

/NULL LP.:£?
/V£.S

TAO
AFl.G
SiA CL.A

JMP
JMS
JM$
JMP
TAD

JMS

TAO

TAD

JMS I
COF' 10
TAO !

,+4

CTYPE

CT'l'PE

,•3

/OTMERwISE TYPE 4 OIGITS
/TYPE ERR, rLAG & SPACE
/SAME TREATMENT FOR VALUE
/AS FOR ADORES

,•4

CTVPE
CTYPE

,•3

VAl.UE

/SPACE

CODE

/2 DIGITS OR 2 SPACES

LINES

/JS THERE ANY LI~£ TO TYPE?

CTYPE

COF' 00

SNA CLA
JMP
Wf.N3
CTYPE
JMS
K240
TAO
JMS
TVPE:

/NO, EXIT
/2 SPACES

/3RO SPACE:

1170
3011

TAD

LIN AX
X1

/INDEX LINE BUFFER

3127
6211

OCA
CDF" 10

CMARCT

1CL.R

cout-~re:R

TAD I

/GET

C~AR

1411

6201

DCA

CDF' 00

/SA8r.,a15
123~

1231
1232
1233
1234
1235
1236
1237
1238
1239
1240
1241
1242
1243
1244
1245
1246
1247
1248
1249
1250
1251
1252
1253
1254
1255
1256
1257
1258
12!>9
1260
1261

PAl.1~'.

1130
11.51
1132

7450
5353
312161

1133

1~61

1134
1135
1136
1137
1140
1141
1142
1143
1144
1145

1240
?650

1146

1147
1150

1151
1152
1153
1154
1155

1156
115?
1160
1161
1162
1163
1164

2127
1061
4454
5325
1165
2127
4454
1127
rll,55
7640
5343
5325
4424
3132
3131
3133
3134
6211
3764
6201
5660
1646
e.121

lriLN3,

TAD
TAO

M211

SNA CL.A
JMP
W1.N2
CHAR CT
ISi'!
CHR
TAO
TVPE
JMS
JMP
wL.N1
K24eJ
TAO
CHAR CT
lSl
TYPE
JMS
CHARCT
TAD
1(7
AND
SU CL.A
JMP
W1.N2
JMP
WL.N1
CRL.F'
JMS
DCA
VF'L.G
OCA
EF'L.G
AF'L.G
DCA
DCA
CODE
COF' 1'!l
DCA I
LI NEB
COF' 00
WL.N
JMP I

PAGE 23 .. 1

/END OF' LI tJf~
/Cl< F'OR TAB

/YU

/COUNT 1 CMAR
/OUTPUT IT
lstMUl.ATE TAB

/CO~TI NUE

UNEB1 LINBUf'
CMARChTEM5
/PATCH F'OR SETCT
/NOT USED BY ANY OTHER PART OF' PROGRAM
/(ADDEO AT V15>

12~4

1275
1276
1277
1278
1279
1280

WLN21

WL~3

CHR
CHR

11128

1263

1274

?.3;.SEP•69
SNA
JMP
OCA

5J43

1262

1265
1266
1267
1268
1269
1270
1271
1272
1273

V135

IF'UNCTIO'<I SET BANl<•1 AF'TER A "CALI."
/(MUST BE DONE F'OA BENEF' IT OF' RECT ROUTINE>
I

1165
1166
1167
1170
1111
1172
1173
1174
1175
1176

fll00
1517
?162
76512!
w~

SETCAI. I

PT CPR
TAD
K100
AND
SNA Cl.A

/Ct<

5374

JMP

7001
3147
1145

!AC
DCA
TAO

/NO
/VES1 8A'JI( TO CURREi\JT

1143
5765

TAO

JMP

,•3

BANK

EXP
UMlC
SET CAL

F'OR CALL CONST,

/DO 2 INSTRUCTIONS T~AT
/wERE KNOCKED OUT OF' StTCT

/SABQ, 815

PAl..10

V135

23;S£P-69

1281
1252
1283
1284
1285
1286
1287
1288
1289

1200

•1200
I
I

ASSEMBLY PMAS[ PAR

13~4

13~5

1306
1307
13;1!6
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
132'1J
1321
1322
1323
1324
1325
1326
1327

12~0

3234

12t31

1517

I
I

PPAR11

PPARY
PT CPR
1<2

OCA

TAD

ei014

AND

12~3

76tH

1204
1205

5241
1517
U57

SU Cl.A
JMP
PARt.lT
PT CPR
TAO
AND
KU
SNA CLA
PPAR3
JMP
TAO
PTSPR
OCA
TEM1
PTCPR
TAO
1(100
ANO
SNA Cl.A
,•5
JMP
JAC
DCA
BANK

12l2

12~6

12{17
1210
1211
1212
1213
1214
1215
1216
1217
1220
1221
1222
1223
1224
1225
1226
1227
1230
1231
1232

1329
1330
1331

1233
1234
1235
1236

1332

1237

1333
1334
1335

124~

1241

13?.8

/PPAR1 IS ACTUALLY A PART
THE BASIC ASSEMBLY
/ROUTINE ASM02,
/tT ASS£M8LES ALL PARA~ETERS
/TYPES ARE I
RCU0
ABSOLUTE CONSTANT
I
RCU1
RELOCATABLE ADDRESS
I
RCU5
cor TO ~URRENT rrELD
I
RCl06
CALL CONSTANT C#ARGS•EXT1SVH,#)
I
ALSO LITERALS USED jN ARG STAT[MENTS
I
SUCH LJTSt ARC PUT IN I.IT, POOL
I
ANO RC,01 AODR£SS ~r LIT~ PUT WHERE
I
THC ARG STATEMt OCCURS~
/ADDRESS PARAMETERS ARE ACUALLV TAKEN
/CAR 0, BY SUBR, PPAR3S,

129lr!I

1291
1292
1293
1294
1295
1296
1297
1296
1299
1300
1301
1302
1303

PAGE: 24

11128

7650
5236
1521
3123
1517
0162
7650
5223
?2101

3147

1001

fAC

5227
1517
0rll3rzJ
7650

ANO
SNA

5231

JMP

1154
3234
4456
4436
0123
@00111

7410
425J

JMP ,•5
TAD t

CLA

TAD
OCA

PPARYt
P?AR31

JMS
J.MS I
TEM1

PTCPR

K1f2121~

/VU
/PT coot WORD
/IS IT PAR CONSTANT
/NO

/YES ~~. ACTUAL CONSlANT
/TO O!RECTLV AOORESSABLE LOC
/!S TMIS A SPECIAL CONSTANT USED av CALL

/YES• SET BA~K TO CURRENT (N[W l'N V15J

I& F'ORCE COOEl!l06
/IS THIS A cor lNSTRUCTIOf\ TO T1.1 IS BA~K

,•3

PPARY
WR ITEP
OUTB!N

/OUTf'UT lT
I I\ 0 REL 0 CAT I 0";

71
SKP

J44.S

JMS
JMP I
SER ALI, SRALT

P?AR3S
PPAR5•1

1521

PM~LJl,

PTSPl1

5715

ICL.R OUTPUT CODE
/CK roR LITERAL ARG OR PARA1•1'.'

TAD l

/DO ALL

WORt<

/PUT I.IT Oi\i TAB.

/SAB 0 , ~~15
1336

13-37
1338
1339
1340
1341
1342
134.3

1344
1345

1244

PAL.1C
.5_151
7001
3151ll

1245

4640

1242
1.243

1246
1247
125e!
1251
12'52

3123
I
I

1366

1367

1253
1254
1255
1256
1257
1260
1261
1262

1263
1264

1265

1369

1266

1371

U72
U13
U74

1315
1376

1317

1267

1270
1271
1272

1273
1214
1275
1276

1378
1379
1380
1381

1301
1302

1382
1383

1303
1304

1364
1385
1386
1387
1388
13!9

1398

S0
SER ALI

K177

TAO
'.JCA

PAG

I Si
JMP

PPA~V

TE Ml
PPUh•.,3

1•/GElPAGEPAGE8 ITSADDRESS
/CODE fOR RE'.LOCAT ABLE AOIJFf;

svaROUTtNE TO ASSEMBLE PAR SYMBOL

I
I

1::568

1379

PAGE 24•1

/ASSEMBLE_ ADDRESS PARAM~TER
/SV"1BOL MAY· BE ARSOl.UTE OR RELOCATABLE
/NORMAL OR # REF',
/IF' SYMBOL. IS YET UNDEFINED, AN ENTRY IS
/MADE F'OR IT & T~E CURRENT ADDRESS tN TME:
/OCCURANOE TABLE,

1353

1365

11128

1351
1352

1359
1360
1361
1362
1363
1364

JMS
ANQ

2234
5231

1350

1358

tAC
QCA

f'163

1348
1349

~3;SEP.,69

DCA

10'17

1346
1347

1354
1355
1356
1357

V135

1277
1300

e.Hr/l
3302

7650
1521
3142

4432
0U2

TAO
ANO

.,.,.
10'1
,,
010

SNA CL.A

'~14

JMP

TAO

0u1
2H2

4122

1002

PPAR61

03.23
e:00r/l

5653
U42

3716

13~6

1065

1301
13121
1311
1312

3717

4722

71"6
3721
4120

/CLR OUTPUT COOE
/WHCM TIME ARE WE ASSEMBLING THiS PAGE'
/NOTE_I ACTR REMAINS 1 DURING PASS 2
/F'IRST TIME JUST •tTURN
/SYMBOL
/TO OtRRECTLY ADDRESSABLE LOC4Ti01'1
/GET IT f'ROM MST

AF'S

irau

4456
4436

PPARX
ACTR

SNA Cl.A
JtolP 1
PPAR3S
TAD 1
PTSF'R
DCA
AF'S
OBSVM
JMS

5653

3123

CICA
TAO

t05?

13el5

1313

PPAR3S,

PPARX1
PPAR4,

1(00

USE

/MST USE wORO
/IS IT otrINED YET

PPAR4
Ust

/NO ;~. OCCURANCE
/MST USE WORO
/IS SVMBOL ABSOLUTE

AND
1<3000
SH Cl.A
PP ARX
IU
J"1S
NSCHKI
TAO
VAi.
TEM1
OCA
JMS
WRlTEP
JMS l
OUT BIN
TEM1

/OUTPUT RELOCATABLE
/INCREMENT Ir # REP,

JMP
OCA

TAO

PPAR3S
•rs
PPAR5

TAD

IL._C

OCA I
PPAR5•1
JMS I
NSC ... Kl
CLL RTL.
OCA l
PPAR5•3
JMS l
PPAR5•2

/RETURN
/SYMBOL
/TO SUBROUTINE LOCATION
/CUR lOC
/TO SUBROUTINE LOC
/SET AlEM2 F'OR NORMAL. OR # RrF"£RENCE
/CREATE AN OCCURANCE

/SABR,815
1391
1392

1393
1394

1395
1396

1 :.'597

PAL.h'

V135

?276

1314
1315

5146

1316
1317
1320
13?.1
1322

3360
3321
3356
6333

3357

23 ... SEP,.69
JMP
ASM01

PPAR5,

ATEM3
ATE1'14
L539

A'l'f:M2
NSCHK I,

NSCHK

PPA'16

11128

PAGE 24·2

/OUTPUT ZERO WORD P'OR LOAiER

r-AL.U

/SA8~,H15

1398
1399
1471Zl
14i;1
14n
1403
14214
147-5
142'6
14l7
14:?8
14~9

1411Zl

1411
1412
1413

1414
1415
1416
1417
1418
1419

1420
1421
1422
1423
1424
1425
1426

V135

23•SEP"'69

11128

PAGE 25

/TWO CMARACTER TYPEOUT
/F'ROM PACKED ASCJJ PAIR
/CALL WITH 6•BIT PAIR tN AC
/1.61A ACTS AS SUBR roR 1.61
I

1323
1324
1325
1326
1327
1330
1:531
1332
1333
1334
1335
1336
13;s7
1340
1341
1342
1343
1344
1345
1346

0000

3123
U23
7012
7012
7012
4335
1123
4335
5123
0~00

ll161
7450

L.611

TAO

JMS
JMP
L61A1

5344

5746
4454
5735
1165
5342
3367

OCA
TAO
RTR
RTR
RTR
JMS

L.6101
L.6181
L.61CP1

ANO
"SNA

TEM1
TEM1

/SAV[ CHARACTERS

1.6U
TEM1
l.61A
L.61

/MASK AND TVPE '1RST CHARACTU

K11

JMP
JMP
JMS
JMP

1.ue

TAO

1<240
L.610

JMP
L61C

1..UCP
TVPE
L.6U

/SMl,T MIGM 6 91TS TO I.OW

/MASI< AND TYPE SECOND CHARACTER
/RETURN
/MASI< CHAR TO 6 BITS
/!ERO MEANS SPACE
/MAVE DO SOME OF' THlS WORK ON ANOTMER liAGE
ITVPE CHAR
/RETURN
/SPACE

V135

/SAB 8 .f11)
1427
14?8
1429
1430
1431
14.52
1433
1434
1435

I
I
I

1
I
I
I
I
I

~OUTlNE

TO TEST CHARACTERS

A~O

TAK£ SELECTIVE EXITS

c•u lS

JMS I
TEST
SORT L.!ST :ADO~ •1
!:HUNCH LIST AOOR • SORt Ll'ST ·A'OOR
RtTURN If ·ALL. T£STS UNSUCCESSF'UL
ASSUMES A'tnl & CMA'R n .l,OO·K F'Off IS IN CMR

14:~6

/SORT [NOS UNSUCC'tSSF'ULLY AT
/NEGATt VE NUMBER 'F'OL.L0~1 I NG S0~1 Ll'ST
/IF SORT IS SUCCESSFULl A BRANCH rs
/TAKEN VtA aR• LIST ITEM CO~RESPO~OlNG
/TO M~TCMlNG SORT LIST lfE~.

1437
1438
1439
1440

1441
1442

1443
1444

134?

1445

1351
1352
1353
1354
1355
1356
135?
1360
1361
13fl2
1363

1446
1447
1448
1449

14'>1'1
1451
1452
145J
1454
14'55

1456
14"57
14?8
14?9
146~

135~

?"'0121
7200
1747
3i:'l11

2347
6211
1411

62"1

7510
53?5

TSCMR1

CLA

TAO I

DCA
tS!

TSCMR2 1 COF' 1f/J
TAO t
COF 00
SPA

/GET so~T LIST ITEM

TSCHR3

/NEG ~ IND or SORT LIST
/COMPARE tlE~ WITH CMR

712141

112161
76.40

CMR
TAO
SU CLA

1364
13fi5

'5354
1.~11

J"1P
TAD

1366
13~7

1747
3347

DCA

1370

TSC•1R2
X1
TSCdR
TSC;.;R

TAO

6211

1747

COF'

1371

14'."2

1372
1373
1374
1375
1376
1377

62~1

TAO I
COF' 01i:'l

14t4
14'-3
141)()
14" 1
14 .. 8
14 .. 9

TSCHR

/G[T SORT L1ST AOOR •1
/AUTO•INOEX SORT LIST
/MOVE ARG PT~

TSCl.fR

JMP
CIA

1461
14t,J

3347

DCA

5747

JMP

2347

TSCHR3 1 tSl

7200
5747

/0 • MATCH rou~~o
/NO MATCMa T~Y NEXT tTEM
/GET AOOR, OF' MATCM

/•BR, LIST ADOR
SORT LIST AODR
PTR TO BR, LIST ITE~
@

I•

TSC!-IR

/GET BR, LIST ITEM

TSC~R

I•

TSCHR
TSCHR

BRANCM PTR F'OR THE MATCH
/TAK£ SUCCESSfUL EXIT
/NO MATCM O~ LlST

Cl..A
JMP

RETUR~

UNSUCC£SSF'UL

ISA8R,f!1~

Pl\L1•.::'

1472
1471
1472
1473
1474
1475
1476

t 41110

1477
1478

1479
1480
1481
14€!2
1483
14A4
1485
1486
148?
1468
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
15U
1502
1503
1504
1'05

1'U
1507
1508
1509
15U
1511
1512
1513
1514
1515
1516
1517
1518

1519

152'1J
1521
1522
1523
1524

f::AGE 27

11128

•14 ;\ '
I
I
I

4427

PCALL1

14?0
14 :1
14?2
14:13

7~00

'JOP

74H'J
HUI

$1(P

1404

5220

14?,5
1406

1061

14~'7

1410

7640
5220

1411

1150

1412
1413
141..4

141.5
1416
1417
1420
1421

1422
1423
1424
1425
1426
1427
1430
1431

116?

3362
20UJ
4427
74U
5221
7000

5575
4446
4451
3370

1137
3441

1362
7041
3363
1362

/GET ~rxT J\PUT
/l\OT!-il'\IG T>iER£

JMS

SKP
J"IP

CLA

TAO

"1254

JMP
TAO
DCA
t Si!
JMS
SKP

CAL.ERR
S0
ARGCT

JM?

,+3

SH CL.A

NOP
CAI.ERR, I ERROR
JMS l
JMS l

DCA

uo
uo

OCA

CJA

OCA
TAD

1432

7U4

RAL CL.L

1433
1434
1435
1436
1437
1440
1441
1442
1443
1444
1445

1362

TAD
TAD

1446

1014

14764
74Ul
44U

3137

1517

TAO

1020

TAD

3517
1366

OCA

3521

DCA

1452

3517

1453
1454
1455
1456

7001
3073

1461
1462

TAD

OCA
JMS

4352
1017

1457
1460

JMS
SKP
JMS

4421

1447
1450
1451

7001

3147
1362

CALE~R

CHR

x;,

GETSYM

SKlPL
SREST
PCALL1

CAL.LF"S
ARGCT
CALL.SW
ARGCT
ARGCT
K2
PARG2

lNI
CALL.F"S

TAD

K132l

PTCPR

TAD

1106

CLL RTL

71Z106
7006

RTL

COUNT

/PROHIBIT PLAGGING THE COMMA
/GET SUSROUTJN£ NAME

/SYMBOL

/C01>;ST A11.:T
/LITERAL

/SEARCH EXTERNAL SYMBOL TABLE AND OUTPUT TV ocr
/SAVE EXTERNAL SYMBOL NUMBER
/SET ARG COUNT IN OYNA~IC LOCATION

/SET CALL • ARG IN PROCESS SWITCH & COUNTER
/COUNT Of ARGS
1•2
·/•3 IN CASE USING LITERAL ARGS
/•2

/CAN THE CURRENT 'AGE HOLD IT
/YES
/NO ,,, INITIALI~E PT PTRS

HAO TO ASSEMBLE PAG

Lf"S

DCA
tAC

DCA

/SAVE 'ARG

LF'S

J~S

DCA
IAC

/IS BREAK CHARACTER A COMMA
lr-.JO I I . ERROR

/NOi\!£ n1ER£

ICPL.F"S
PT CPR
K30
PT CPR
PARG6
PTSPR
PARG!;

TAD

ITE~

/Sn'BOL
/COl\;STA"'·T
/LITERAL
/BRfAK CHARACTER

LSTB~~K

/PROCESS COLLECTION LPS
/PT CODE WORD
IAOO CONSTANT BIT & PAR BIT
/TO PT CODE WORD
/PL.ACE JMS LINK INSTRUCTION
IAS CONSTANT
/INC PT PTRS & ASSMBL IF PASS 2
/CORRECT BIT PATTERN roR CALL
ITO PT CODE WORD
IA CALL rORCES BANK TO CURRENT
/CN£Y IN V15)

BANK
ARGCT

/COUNT or ARGS
ITO HIGH ORDER AC

1Sf1'.l.;,n15
l <;;.'5

15?6
1?£7

PAL.1/i

14f>3
1464
1465

V135

23 .. SEP.,69

1370
3521

TAtl
DCA

S327

JMP

PAGE 21 .. 1

11128

~ XTE:crnAL

PCALL1

/OR

PTSPR
ARGPPe!

/PLACE IN PT

I'~

/COM~~ori

svµ,po1., ,,LJ'-4\}ER

SY!-18QL WORJ

EX JT

PAL.10

/SAtN, 815

1528
1529
1530
15:31
1532
1533
1534
1535
1536
1537
1536
1539
1540
1541
1542
1543
1544
1545
1546
154?
1548
1549
1550
15~1

1552
1553
1554
1555
1556
1557
1558
1559
15~!21

1561
1562
1563
1564
l565
1566
1567
1568
1569

1466
1467
1470
1471
1472
14?3
1474
1475
H76
1417
1500
15il1

15~2

1503
15•~4

152'5
1506
15Zi7
1510
1511
1512
1513
1514
1515
1516
1517
1520
1521
1522
1523
1524
15?.5
1526
1527

4427
5575
52?6
5214
4447
7040
1':'l14
7410
1003
3142
4446
4765

1fll2flJ
3517
4421
1351

PARG,

2J;SEP,.69

TAO
OCA
JMS
JMS

GETSYM
,•6

,•3

SI. I'!' AB
K2

SYMBOi.

/PAR AODRUS

SKIPL
CKCLSP

/Cl< F'OR TOO MANY

o·s

TAO

1(30

DCA

PTCPR
?CPL.F'S

OCA
TAO

1(6201
PTSPR
M2

/PT CODE WORD
/TO PT
/PROCESS ANY LF'S
/COF'
/TO PT SYMBOL. WORD

TAD

Af"S

/IS O'S A CONST ANT

SNA
JMP

ARGPP4

/YES

TAO

35~1

SNA Cl.A

1001
it160

uc;s

/IS AF'S A LITERAL

IAC

~142

/GET NEXT INPUT ITEM
/NOTMING TM£RE
/SYMBOL
. /CONSTANT CODE IS 2
/PUT I.IT ON TABLE
/LIT CODE tS 1

ROUTINE TO PUT A CDF' IN TMt PACE TABLE

JMS

1171
1142
?450
5335
?001
7650
5331
4432

PAGE'. 28

ARG PSEUDO OPERATION
JMS 1
tERROR
JMP
JMP
JMS
CMA
TAD
Sl<P

I
I
I

11128

JMP
ARGPP5
OBSYM
JMS
A;S
USE
TAO
KO
ANO
SNA C~A
JMS
COF'CHG
ARGPP2
JMS
AF'S
TAD
PTSPR
OCA
PARG5
JMS
POPEXP
JMP

/YES
/NO

·.I.· SYMBOi. ••• GET ITS POINTERS TO MST

/Ars ~ST USE WORD
/IS IT A COMMON SVMBO~

1530

7650
4370
4344
1142
3521
4352
5440

1531

4370

ARGPP5, JMS

CDF'CHG

4:544

J~S

1ic'H4
5.$37

TAD
JMP

ARGPP2
K2

PTRS ANO PUT OUT A PAR
/SET LITERAL BIT
/SAVE AS CO~STANT ,ROM ~ERE

QCA

ARGPP2
K20
PTCPR
PTCPR

1150

TAO

3521

OCA
JMP

PTSPR
4RGPP0

/INCREMENT PTRS AND PUT OUT A PAR
/SET co~STANT BIT
/PT CODE ;.iQRD
/F'OR PROPER WORD
/PLACE CONSTA~T IN PR 0 PER L0 CATt 0 ~~

1sn

1571
1572
1573
1574
1575
1576
1577
1578
1579
1580
1581
1562

V135
I
I
I

ARGPP0 1

/NO
/INCREMENT PT PTRS ANO PUT OUT A PAR
/P~ACE

SYMBOL IN PT SYM90~ WORD
/INC PT PTRS &ASSMBI. lr PASS 2
/EXIT TO GET NEXT LINE

1532
1533
1534

,•3

/lNCRE~ENT

1535
1536
1537
1540
1541
1542
154..S

4344

1157
1517

3517
5327

ARGPP4 1 JMS
TAD
TAD

r ALH

/SABP,815
1583
1564

15~5

1586
15S7
1568

151'9
1590
1591
1593

15~7

1598

1599
1670
16J'1
H>t2
16!'3
1604
1605
16i"6
169:7

1544
1545
1546
1547
15r:>0
15'51

1552
1553
1554
1555
15r;6
1557

11128

PAGE: 28•1

ROUTINE TO INCREMENT POt~TERS AND SET UP f'OR A PAR

~: kH:!0

ARGPP2~

II!

JM-S
fAO

4.S52

1156
3517
5744
6211

K62U1

1~?0

ASMlF'1, ?:

OCA I

JMP l

cor u

7640

4 760
4761
5752
5651

ASM02S~

3551

I "JC,

1562

~~00

7770

ARGCT1 0
CALLF'S•PRSVMP
CALLSW, 0
PARG21 tr:rsue
Ct<CLSP, CKCLS
PARG5•ASM l r:1
PARr,6, JMS
MU,
•10

l'·iil0tl

corc1-1G, er

Zl41

1563
1564
1565
1566
1567

7~00

2646
e771
1552
4e33

PARG'5

PT CPR
ARGPP2

/ASSt-'BL. NOW IP Ll STING PASS

LINK

cor IZJ0 TO CDF' •

TAO

PTCPR

TAO

1<100\?i

3517
1521
1367

OCA

PT CPR
PTSPR

3~21

OCA

'5770

JMP I

157w::l

/RETURN

/TEMP

10Jl2J

1517

PTqs & ASSMBL. IF' PASS 2

ASM-02
lNCPT

/ROUTINE TO CMANGE

157;'1
1571
1572
1573
1574
1575
1576
1577

/INC PT

1<10

PA,SS
UD
Si!A Cl.A
ASM02S
JMS I
Jl+S I
INC
JMP l
ASM1f"1

1110

1560
1561

16A8

16?9
16H-,
1611
1612
161.J
1614
1615
1616
1617
1618
1619
1620
1621

2! .. SEP!069

1592
1594
1595
1596

V135
I

TAD
TAD

PCALL.1•CDF'CHG

f.110

PTSPR

/S[T CDF' • BIT IN P,T,
/CMANG[ 6211
/TO 6201

COfCHG
/TEMP

TM£ PAGE TABU,

IS•B><,R15

f'All .'

V13'5

?3-Sf P-6Q

PAGr: 29

11128

16?2

1623
1624
1625
1626
1627
1628
1629
1630
1631
H,~2

1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
1646
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
1661
1662 1663
1664
1665
1666
1667
1668
1669
16?0
1671
1672
1673
1674
1675
1676

16/0

•16·· :
I
I
I

16>"0

4427

16/1

71i:H~0

16,?2
16'.l3
16l4
1605
1606
16~7

16U
1611
1612
1613
1614
1615
1616
1617
1620

1621
1622
1623

1624
1625
1626
1627
1630

1631
1632
1633
1634
1635
16:56
163?
1640

PCOM~I~ .•

SKP CL.A

!ERROR
JMS I

4446

1137
7650
5245
4432
ei13?
1001
0016
1256

T'AD

1150
3123

1~76

DCA

USE

TAD

JMP

COMM:-..i1

TAO
TAD

TAD
ANO

HI COM
TE:M1
TEM1
K76;,?

M7600
SNA CL.A
SERR OR
TAD
Ml COM
lAC
DCA
VAL.
TAD
TEM1
OCA
HJ COM

/GET AOIJRtSS F'lELD SV"180L
/l\JOTio! t \JC: THtRE
/SVM80L TMERE
/COt\.STANT
IL I TE~AL
/IS TMERE AN LF'S
/NO I I I JUST 1"'iCREMENT COUNTERS
/GET

POINTERS TO LF'S

/~1ST

USE \..ORO

/SAVE SYMBOL LENGTH
/ADD CORRECT BITS
/F'Or:I NEw MST USE WORD
/NO OF' CO~MON LnCATIO~S
/ARE THERE HRO
/VE:S .•.•. EQUIVALENCE OUTPUT
/NO
HIGHEST CO~t>1QN LO CAT I ON USED
/•St~E OF' THIS BLOCK
/F'OR TENTATIVE NEW 1-!lGH.EST
/ACTUAL AOORESS
/ARE we: OVERF'L0 1..J I ~JG ONTO THE LA!:JT PAGE

...

TAD

COMMM0, 1 TAD
J"1P

/•1

/GIVES NEW ADDRESS
/NEl>i MtGHEST COMMON LOCATION
/TO PROPER LOC

VAi..
~UL.LP

MICOM

IAC

o·CA
JMP

COM"IN2~

...

/YES
ERRO~
/LAST COMMO!IJ ASSIGNMENT

/GO Gt:T NEXT Ll\:E

EQUIVAl..ENCE GEt'liER4TED COM"10N OUTPUT

COMMN11 TAO

3002
5237

1150

TAO

1(44~

DCA

I
I
I

1645
1646
164?
1650
1651
1652

u·s

SNA Cl.A

1~76

7it>fc:'l1

SK IPL

SNA CL.A
COM"l~.!2
JMP
OBSY'I
JMS
LF'S
TAO
USE
ANO
K3

3001
1150
7650
5241

1076

G(TSYM

SKP

I
I
I

1641
1642
1643
1644

J~S

\iOP

7410
7610
5575

1123
U66
1164
'1650
5577
1076
1001
3002
1123
3076
1002
5434

COM>lf\ P<.;[!JOO 0PE~AT I t.m

·~QN

TAD
TAD

3076
1076

OCA

0.l.66

AND

1164

TAO

TAD

VAL
COM"1N0

/PLACE LAST COMMON ASSIGNMEtliT
1•1
/lN MST AS AON~ESS
/EXIT

LOCATIO\ F'IELO SYMBOL. COMMON ASSIGNMENT
~ICOM

50
HlCOM

/LAST MlGl-iEST
/•CUR ASSIGNME~T
/F'OR NEW HIGHEST

1-11co~

/NEW

K7600
M76M1

~IGMEST

/ARE WE' OVERF'LOWING ONTO THE LAST PAGE

PAL.1?

/SABr<, 615

16'7

161e
1679
16flei

V135

23 .. SlP"'69

16 3
16 4

765il

SNA CL,A

')'577

SER~OR

16 5
16 6

?2.37
?44e

JMP
K44?1

0440

PAGf. 29 .. 1

11128

/YES
CO~M\•0

lt-.-0

......

tRROR

EXIT

IS ABP , !i 1';

PAL.1~

16f:1
:t.6 3 2

j6e3
16R4
16fl5
16~6
16~?

1688

1689
1690
1691
1692

1693
1694
1695
j 696

j6Q?

1698
1699
1 7 ?"li

1657
1660
1661
1662
1663
1664
1665
1666
1667
1670
16?1
1672
1673
1674
1675
1676
1677

1700
1771

1P3

17'~2

11;~4

1723
17..'4
1725
1726
17/17
171.0
1711
1712
1713
1714
1715
1716
1717
1720

17"7
17~8

17i'9
171'.~

1711
1712
1113
1714
1715
1716
1717
1718
1719
1720
17?1

1721

1729

1722
1723
1724
1725
1726
1727
1730
1731
17 .32
1733
1734

173~

1735

1722

1723
1724
1725
1726
1727
3.728

1731
1732
1733
1734
17:~5

23"'SEP.,69

11128

PAGE 3k'

/TEXT PSUEOO•OP

17:'1
17Z2
17!5
17Z6

V135

1736
1737
1740
1741
1742

1106
7740
5433
4426
4453
0756
1006

PTEXT1

TAn

roRF'LG

SMA SH

CLA
OCIL1
GETCHR
TEST

JMP l
JMS I
JMS I
TAD

7fc!l41

CIA
OCA
OCA
TAO
OCA
JMS
SNA
JERROR

3311

3151
1010

n:x1,
TEXERR 1

TAO

TEX21

720121

4446
4765
1151
7001

7110
477fcl

7610
4430
4766
4421
1151
7IC?41
3151
1152
31H0
3371
4426
0161
N71
7410
5342
7106

OCA
TAD

DCA
DCA
TEX51

BL1-SL1
CHR
OEL.IN
TEXCTR
Xiii

TEXPTR
GETCMR
DELIN

SNA CL.A
JMP
TEX2
TEXCTR
ISl
TEX1
JMP
GETC~R
JMS
CLA
JMS
SKIPL
PUSH
JMS
TEX CTR
TAO
?AC
CLL RAR
lF'F'S
JMS I
SKP CLA
JMS l
lNl
POP
JMS J
J~S l
lCPLfS
TEXCTR
HO
CIA

J"1S
ANO

ISl

TEX CTR
TEXPTR
X0
BYTE

/SAVE OPENING OELINEATOR
/CLR CMAR CTR
/SAVE AUTO;lNDCX TO START OF' STR
/LOOK FOR END or STRING
/TOO SOON ENO OF' LINE
/TME ENO or TMf LINE
/KEEP.STRING TALLY
/MOVE: L.IN£ PTR TO CHAR, ArTER 0£LlNEATOR
/SAVE INF'O F'OR

A ~!NUT[

/DIV BY 2

/SEE IF' STR WILL rn ON PAGE
/HAD TO ASSMSLI RE•INIT PT
/POP l.INE INF'O
/PROCESS LF'S

/RE .. JNIT

STRING INDEX

/SET F'OR LE'.F'T BYTE

GETCHR

K71
BYTE

/EXTRACT 6 BIT

TEX4

/RlGf.iT BYTE

Si<P
J~P

CLL RTL
RTL
RTL

7~06

7006
3153

r:lCA

7040

3371
74U
4351

roR STRING START

SU el

1ill61

3152
4426
?450
55?5
1.371
7650
5304
2151
52?4
4426

/LOOK

TEX4,

C'1A
OCA
SKP
JMS

/MOl/E LEF'T
TXSV
BYTE
TEXSUB

/SET PTR TO

BYTE

ISA8:.,f!1?
17~6

1737
1na
1739
1740
1741
1742
1743

1744
1745
1746
1747
1748
1749
1750

1751
1752
1753

1754
1755
1756
1757
1758
1759
17"i0
1761
1762
1763

µAl.le'

1743
1744
1745
1746
1747
1750

2151
5.526
2.571
7410
4351
5440

1751
1752
1753
1754
1755
1756
1757
176121
1761
1762
1763
17,,,4

v:lil2!0

1765
1766
1767
1770
1771

17~4

V1J5

IYCS

POPEXP
TXSV
PTSPR
1(30

/PAR CONST BITS

PTC:PR
X0

TAO

J14P

TEXSUB

OCA

!COMBINE LEF'T & RT BVTES

PT'CPR

TXSV
ASIF'
TXSV

J"1S

5751

INO

'21

OCA

4167

U51
2152
2153
1771

TEX SUB

uo
uo
DCA
uo

1153
3k?U

0000

SKP
J"1S

TAD

3153

1552
2646

/NOT DONE
/CK F'OR 000 CrUR L£F'T OVER

OCA

3511

42'110

BVTE

JMP

1010

PAGE 30·1

J"1P

rsz

TE:XSUB,

U128

TEXCTR
TEX5

ISZ

t15J
3521
1020
1517

4217

23.;,SEP!r69

/SAVE INDEX

/INC PTRS & ASSMBL IF' PASS 2
IRES TOR INDEX

)(l/J

PUSM,
PUSMIN
POP,
POPIN
ASIF' I
ASMIF"l
!F'F'SUB
If F'S'
OELlN1 21
TEXCTR111S1
TEXPTR~S2

TXSV•S3
BYTE:aO[L l N

1765
17'-6

1767
17 (113
1769
117rt
1771
1772
1773
1774
1775
1776

/WRITE LINE IF' IN PASS 2
1772
1773
1774
1775
1776

00e0

11112l
7640
4455
?772

~Lf'J I F'1,

TAD

SH Cl.A
Jf'llS I
JMP l

PASS

/WMiCM PASS?

WLNP

/Lt ST H•G

Wl.tliIF1

1.>A(..1,.1

/SAB• I fl1:;

1777

V135

23-SEP,.69

1112~

~AGE

.'.31

1778

2i.~0

•2:' .~.

1779
17"?,

':ECOOE 1 LI ~E
/IG\iOR>S "'HJLL LT"f:S & COl"'~ENT LI ~,ES
LXP:NQN .. i?, Ir :~r. OPOU TI or: o~i L.ltliE <CC'NST, L. IT 1
I
I
"JR ADDRESS o•·L '!' >
I
SK:"JON.,.z 1r SKIP l t\STR,
I
t_'t-1 I C=N0:..1.,,l< IF" GP CODE IS 6 tF< 7
I
I8=NONl!"e 1r ! 1'15TR lS Il\OIRECT
\SGN=NO .,,.0 rr AFS IS # SYMBOL
I
(!P:OP CODE
I
I
LF'S=PTR TO LF"S p,: 5YM 1 TAB,, 1F' ANV
AF'S•2 If CONSTANT PARAMETER OR CO:\IST • u·s•••
'***·
AFS:1 1F 1. l TERAL PARAMETER QR LIT I AF'S•••
I•••
I
AfS•SYM, TAB, ~TR, TO ADDRESS PARAMETER OR AF'S
/RE Ar~ 8

17c;1
17'<2
17ii3

17i'4
17B5
1786
1787
1788
17B9

1790
1791
1792
1793
1794
1795
1796
1797
1798
1799
1800
18'~1

18V!2
1803
18~4

1805
18!2'6
1ern
18"1!8
1809
18UJ
1811
1812

1813
18H
1815
1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831

2ei00
2001
2e02
20~3

2et?i4
2025
20(.!J6
2027
22110
2011
2ei12

eeiu
4764
32,37
3145
3140
3146

DCIL1

~OL1a

RLtliP
JMS I
DCA l..F'S
OCA EXP
DCA OP
DCA SK
OCA IB
DCA
NSG'1
!'.lCA UMIC
DCA I
RECTI

3l,41

3144
3143
3444
n67

2~t3

2fil10

.2P.lt4
2015
2016
2017
2020
2021
2022
2023
2024
2025
2026
2027
2030
2031
2032
2033
2"'34
2f'!35
2!.'lJ6
2037
21l!40
2041
2042
2043
2044
2045

4427
5372
5227
5222
4447
700
1014
2145
3142
4446
5600
1061
ll.67
7640
5246

ISl

Ll~E

4770

IS~
X0
JMS
GET Sn
JMP
ROL.U
JMP ROl..1
JMP
JMS
SL.lTAB
CMA
K2
TAO
ISl EXP
OCA AF'S
JMS I Sl<IPL.
JMP I OCIL.
CHR
TAO
M254
TAO
SH CL.A
ROL.9
JMP
wHATPP
J~S

7410

St<P

5575
1tJ03
3137
2010

4427
5765
5246
5222
~220

RDL31
RDl..21
RDl..51
RDl..71

.•3

I ERROR
TAD SYMBOL
OCA Lf"S
Xl'
YSl
JMS l GETSYM
JMP t P80
JMP ROl.9
JMP
ROL2
..JMP ROL.3

/READ IN A LINE
/CLR STORAGE F'OR LINE: INFO

/CLR RECOUNT F'LAG F'OR CPLF'S
/INC I.IN£ COUNT
/00 NOT BACK UP X0
/R!'.AD 1ST lT£"'1
/NVLL LINE OR COMME:\JT
/SVMBOL • POSSIBLE LF"S
/SET ArSa2 F'OR CONSTANT
/PUT I. IT ON TAB
1Ars•1 F'OR LI TCRAL

ISE:T PARAMETER EXPRESS!Ol>i F'LAG
/SKIP TO ENO OF' LINE
/RETURN
/CK F'OR COMMA
/NO, SHOULD 8[ SPACE1TAB1CR1rlR J
/OP SYMBOL AS TAG
/NO, ENTER PTR TO I.F'S
/PROH 1BIT

F'LAGGING COMMA

/G£:T ITEM AFTER

1..rs

/NULL AF'TER LF'S IS BSS'11
/SYMPOL•OP OR PARAMETER
/CONSTANT
/LI HRAL

/$AfH~ 1 f'l5

rAL.F

V135

23•SEP ... 69

4 770

RDL9,

kHATPP
JMS I
JMP RDL.4

lR32

2?46

1~33

2f'47

?32~

1834

2l'''Vi

1836

2v?2

1u1
?1612J
7640

1837

2~; '; 3

~J74

1638

2;:J<,4

1839
1640

2?55

18.~5

1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1668
1869
1870
1871
1872
1873
1874
1875
1876

2F'i1

2057

j001
0i45
7650
5325

2~60

10u

2061
2062
2063
21'164
2065

0157
3146

2056

2~66

2067
2070
2071
2072
2r?'73

2074
2075
2k"76
2077
21"0
217!1
21;.,2
2hl3
2U4
21C15
2H~6

21?7
2110
2111
2112
2113

2114
21i5
2116
2117
2120
2121

1877

2122

1878
1879
1880

2123
2124
2125
2126
2127
2130
2131

1881

1882
1883
1884

1805
181<6

2U2

2133

UD USE
A"ID

TAD

VAL.

DCA

ROL12t

7450
5343
3123
1143
7450

/NO

/VES
I Is sv~1BOL

A~.J

MRI?

/No;nPR OR I/O t:'>iSTR,

/MRJ"'PUT OP SKIP SIT

II lllTO SK IP F'L.AG

!Sl IB
JMS I GETSYM
I ERROR
JMP RDL12
IAC
IAC
J"1P ROL5

SET !ND!RE'.CT f"LAG

IR!:AD SYMBOL M'TER MRI

/NOTHING THERE
/SYMBOL
IAF'S•2 F'OR CONST, AF'S
IArS=1 F'OR LIT 1 AF'S
/Sl<IP TO END or Lli'iE

TAO sn·soL

/Cl( F"OR !

CIA

TAO IBTI
SNA Cl.A
J"1P ROI.HJ
WHATPP
JMS I
JMP
,•3
I ERROR
ROL41

IS~

EXP
CMR

TAO
M243
TAO
SlA Cl.A
JMP

5315

~367

P,t\lHt-IE:TE:R

Sl<P

ROL.101

7650

2144
4426
71?00
1003
5224
4770
5575
Hl01
l366
7640
5575
l .:'l01

/NO .. "'UST BE A')ORESS

K40

CLA
JMP RDL18 .
USl
uo
ANO
K416'~
SNA CLA
JMP ROL14
UD USE
AND
K20
DCA SK
Si!A

3140
7410
2:1.41
4427
5575
5275
1001
1001
5224

5266
4170
5306
5575
2145
12161
1371
7640

PAGE 31 .. l

/IS SVMBOLE A PSLJEDQ.,.JP

lfillil2

1ril03
7041
1.363

1112E

ROl.131

RDL14e

•••

IS!

NSGN

JMS
CL.A

GETCHR

/SYM, ADO Re I AOOR
/NOT I
/IT 15 1

/APS NOT USER SYMBOL
/ENTER HERE ON ADDRESS PAR 1
/CK F'OR #

/YES

/PREVENT l'-"LAGG!NG

TAD SYMBOL
JMP ROl.5
WHATPP
JMS I

I ERROR

/SET PTR TO

o·s

TAO USE
K4440
At-JD

IE'.LIM USER SYM
/CK F'OR OPR OR 1/0 J\ST,
/ELIM, MRI, PSUEDO

Si!4 CL.A

/OK

I ERROR
TAD USE
ANO K300
SNA

It LLEGAL SYMBOL
/COMPARE NEW M!CROeGRP
/WITH OLD1 IF' ANY

JMP ROl.16
TEM1

DCA

TAD MGRP
SNA

/GRP0 OK W!TM
/NEW

rs NOT 0

ANYT~I~G

/CK OL.O MGP, IF' ANV

/TMERE IS O\IE

PALV

/SAB:;, !<1'5
18~7

181'8

1889

1890
1A91
18Q2

1893

1894
1895
1896
1897
1898
1899
197121
19?1
1902
19?3
191;4
19;•5
1906
19e7
19'~8

19'9
191.iiJ

1911
1912
1913
1914
1915
1916
1917
1918
1919
1920

1921
1922
1923
1924
19?5
1926
1927
1928

1929

2134
2135
2136
2137
2140
2141
2142
2143
2144
2145
2146
2147
2150
2151
2152
2153
2154
2155
2156
2157
2160
2161
2162
2H3
2164
2165
2166
2167
2170
2171

S341
7041
1123
7640
55?5
1123
3143
1~02

V135

23;.S£Pe69

11128

/0 OK wlTM ANV NEW
/COMPARE OL.D
/WITH NEW
/SAME.,OK
/ILLEGAL COMBINATION

ROL151

JMP RDl.15
CIA
TAO TEM1
SU Cl.A
I ERROR
TAD TEM1
OCA MGRP
TAD VAL
C!MA
ANO OP
TAD VAL

ROl.161

7040

0140
1002
3140

DCA OP

0157
7640
2146
4427

K20
ANO
SU CL.A
lSi! SK

5317

JMS I GETSVH
JMP
ROL.17
JMP ROl.13

72l00

~IOP

5361

55'15
2143
5224
2425
e.143
4600
2435
0440
~30IZI

6737
7535

RDL171

/MICRO•GRP•NEiol

/OR NEW VALUE lNTO OLD OP
/NOT A
/ANO B
JU

TAD USE

1Ml1

!ERROR
UMIC
JMP ROl.5
IS~

PAGE 31•2

OR B

/GET NEW SKiP BIT
/NON•Sl<lP

/SET SKIP 'LAG

/GET NEXT INSTR
STRING
/NONE THERE • ENO o; SATING
/SVMBOI. CAS EXPECTED>
/CONST, !Ll.ECAL
/LIT ILLEGAL
/SET MtCRO tNST F'l.AG
/SKIP TO [NO 01" LINE

lBTt,
lI
MGRPl!UMIC
RLNP1
Rl.N
PB~,
PBSS2
1<44401 440
K300,
300
wMATPPa WHATYP
M2431
e243
/NULL Lll\iE OR COMMENT

2172
2173

4446
5434

ROL11a

JMS
JMP

Sl<lPL
MULLP

/PSUEDO•OP
2174
2175
2176

1~~2

3123
5523

RDl..181

TAD VAL
OCA T£M1
JMP l TEM1

/GET PSUEDo.;.op ADDRESS
/STORE PTR
/TO PROPER PSUEDO•OP HANOI.ER

/SAB;;,815

PAt,.1/

1932)

2200

or LI\:[ PRCCESS·~R roQ Cf'.lLLECT I~
/LOOKS r~R SEMI·CDL1~ ~EfORE A SLAS~

1932
1933
19:t 4

/STA~

1936
1937

/START

19.~8
19~9

/F"J~JCT!O'i

1945

195~

1952
1953
195•
1955
1956
1957
1958
1959
1960
1961
1962

1963
1964
1965
1966
1967
1968
1969
1970
1971
1972

1973
1974
1975

CCR)

~EA~S NOR~AL

ALSO r1AS

Ti-!E

!MPOQU\1T

OF" WAiCHLC'. THE F"ORTR PSUEJOsDP

/F"LAG, tF FLAG IS ~\ L72 CAUSES L!Nf
/TO BE TREATED AS Na~~EXISTE~T~ L72 M~ST
/BE CALLED FOR EVER INSTR, LIN£ CR PSUED080P
/Lt~E CEXCEPT [ND, PAUSE, FORTR> BEFORE
/ACTUAL PROCESSING OF T~AT LINE 8EGr~s.

1941
1942
1943
1944

1951

~J~

or "NEXT" Lt~E.

/THtS R!'.J~JTtNf

1940

1948

OR SLASM

PH ASF

1 E~: 1 nr LI ~: E •
s EM J .. coLa~, ~1 EA Ns ~ E ,v, us r
/SAVE C\!~RfNT A:JORESS I'v Ll\JE tl!JffER F"Ol1

1935

1949

•22~'(

·1
1£ »;')

1931

1946
194?

V13'5

22:'0
22?1
2V2
2203

22?4
22'5
22Z6
22:·7
2210
2211
2212
2213

2214

0000

L72,

?410
4426

SKP
JMS
JMS

4453

e754
1iH3
55?5
1010
3107
H06
7140
5433
56"0

GETCrd~

TEST
Sl,.6 ... 1

8L7-SL6

I ERROR

L72S1

X0
SCOLON
FORFLG
TAO
SMA SU CLA

IJCA

JMP I

fJCl L.1

JMP I

L 72

/IF FLG=1 WE ARE SKIPPING
/1ST HALF OF F"ORTRAN OUTPUT

/COMPUTE CURRE~T PAGE Sl~E
/ENTER WtTM AC•~
/EXIT WlTM PAGE SllE IN AC
I

2215
221.6

NH'J0
1102

221?

7650

SNA CL.A

1111
1122

TAO

PGEESC
PTSH

2222

1011

TAIJ

2223
2224
2225

112174

TAD
TAO
TAD

L TS~E
OPSCTR
IJBACTR

JMP

CPGES

2220
2221

U 75

5615

CPGES I

0
TAD

APMS!.;

/OMIT PGEESC 1r ~oN .. AUTO PAGYNG
/•SilE OF ESCAPE REQUIRED
/SI~E OF PAGE TABLE
/•SiiE OF LITERAL TABLE

/•OFF PAGE sv~BOL CDU~TER

/•OFF SANK AOOlT[ON COU\TER
/IS DESIRED RESULT

PAL10

/SABR • f\15

1976
1977
1978
1979

l. 9 '.32
1983
19a4
1995

1991
1992
1993

1994
1995
1996
1997
1998

2231
2232

2233
2234
2235
2236
2237
2240

20~4

2V105

2251

27126

2252
2253
2254
2255
2256
2257
2260
2261
2262

2000
213ei1

2002
2003

22~1

221?8

20Z9
2010
2~11

2012

2013
2 llli 4

2015
2016
n11

2e.1e

0000

1116
7440
5267
1116

2%121
2022

/StlE OF' PST
/IS if EMPTY

L.31
PST SU
PST MAX

/NO

TAD
TAD
TAO

PSTSlE

IS UE OF' PST•2

PSTBSE
PSTSPR
PS TSU
SYMBOL
PSTSPR
PSTSPR

/•BASE
/GIVES POINTER TO SYMBOL.
I I~CREMENT COUNTER
/PHYS!CAl.L.Y MOVE SYMBOL.

JMP
SMA Cl.A
SERROR
RAL Cl.L.
TAO

OCA

IS!

2116

U(J3
3515

TAO

1115

TAO
!AC
DCA
TAD

DCA

7iil01
3114

1110
4432
0003

1002
~166

PST CPR
PASS

7041
1077

J"IP

L.32A

TAD

1.32A1

/ADO 1
/FOR CODE WORD PO!~TER
/ASSEMBLYI JUST i!ERO CODE WORD
/LISTING
/CK tr SVM IS ON PAGE roRWARO REF'.
/EXTRACT PAGE BITS

PAG

TAD

Si!A Cl.A

7640
5265

I tS PST F'ULL 7
/YU

SNA CL.A
L.32A
JMP
OBSYH
JMS I
SYMBOL.
TAO
VAi.
K1600
ANO

7650
5265

5626

ISl
DCA

JMP

/NOT O~ PAGE
/ON PAGEi SET orrtNEO BIT
I& SET F'OR "F'OUND" RETURN

1<4000
SPSTB
PST CPR
SPST9

/NOT rou"'IO

TEM1
PST9SE
TEM2
TEM2

/PLACE • COUNT OF' TABLE
/JN INDEX LOC
/PLACE TAGLE 9ASE
/lN ADDRESS LOC
/•SVMBOL

SYMBOL

I• REQU[STEQ SYMBOL

2267
2270
2271

21'.124

2274

21:'126

2275

2030

L32,

1173
31'.5

2266

2025

2027
2028
2029

PSTSi!E

TAD

1116
7404

2265

2272
2273

2023

SlA

5577

1041
2226
3514

2263

2264

SPSTB1

1314
7700

2~H9

2720

PAGE 33

2226
2227
2230

2241
2242
2243
2244
2245
2246
2247
2250

1999

11128

/COLLECTION PHASE ROUTINE
/SEARCM PAGE SYMBOL TABLE 'OR SYMBOL
/CALLING SEQUENCES
(ASSUMES SYM.to.rs IN "SYMBOL">
I
JMS
SPSTB
I
RETURN IF' NOT rOUNO CHAD TO E~TER IT>
I
RETURN IF' 'OUNO
/THE SEARCH lS AT 1.311 ENTERING OO~E BV L32a

19t'0

1987
1988
1999
1990

23;.SEP•69

19f1

l. 9~ 6

V135

2276

7'141

1.31,

3123
1173
3124

1524
7041
10i3
76512J

L31B,

CIA
DCA

TAD
DCA
TAD
CIA
TAO
S~A

CL.A

~3~5

J'4P

23?,0

L314

2124

23?1

2124

ISl

TEM2
TEM2

2277

lSl

/F'OUNO
/NOT

F'nuNe: • , • r ~~CREMENT ADD~ESS

f· ALl~'

/SHP,81':·

Vi35

23,.,SEP .. 69

?. .~:: 1

2;~ "2

212..S

I Sil

TE:,M1

£032
2Vl33
2034
2035

23?3
23?4
?.3;'5
2376

~273

JHP
JMP

L32

TAD

SPST9
TEM2

2~36

~l15

OCA

1115

TAO

PSTSPR
PSTSPR

2~38

23/7
2310
2311

7001

<.>0H

2312

~~114

2~4QJ

2313

5626

IAC
DCA
JMP

2?.37

5232

?226
1124

2'.~41

2'142
2~43

L31A1

!St

L315

PST CPR
SPSTB

PAGE J3 .. 1

11128

/OVER
/NO
• T~Y AGAIN
/YES t
PLACE QN TA81..E
/F'OU~~O
INDEX F"OR EXIT
/PO I NTE'.R TO SVM'30L
/TO F!IROPER LOC

....

/SY~BOL

...
I

POINTER

/•1

/GIVES CODE PO P~T£R
/EXIT

2314

7700

PSTMAX1

.. 1ei0

/MUST BE (PSTB•PTBl/2

FAL11-:1

/SAB~,815

V135

23 ... StP.,69

1112~

PAGE: 34

2Z44
22145

22146

22147

/OUTPUT 6 CHARACT[R ASCII ~JAr-<E
/TO tiPJA~Y TAPE
/FOR EXTERNAL SVM80L DEF~,
/USE:O BV L.F'SCK (F"OR ~C=03) & 666 era~ RC;17>
/OUTPUT GOES VIA TYPE PTR, 8t)T PTR [ S
/CHA~GED TO L66E SO CHAR CAN BE PUNCMED
I& ADDED rn CK~SUM l~STEAD OF TYFEO,
/668 IS USED ONLY PJ ?AS1"'
/ASSEMBL. Y PHASE!

2048
2049
2?-5fZJ
2~51

2~52

2053
2~54

2055
212156
2215'7
22158
22159
206£1
2061
2062
2K'63
2064
2065
2066

2067
2068
2069

2070
2071
2012
2073
212114
20'5
2016
2071
22118

2079
2080
U81
2082
2083
2"84
22185

208(>
2"87
20B8

20139
2090
212191
2£192
212l93
2094
2'1195

2096
209'7
21Zl98

2315
23t6
2317

2320
2321
2322
2323
2324
2325
2326
2327
2330
2331
2n2
2333
2334
2335
2336
233'7
2340
2341
2342
2343
2344
2345
2346
2347
2350
2351
2352
2353
2354
2355
2356

00QJQI

PASS
TAO
SH CL.A

1110
7640
5715
1361
3054
3151
:U.52
3153

J"1P I
TAD

DCA
OCA
DCA
OCA
TAO
OCA
TAn
DCA
TAO
AND

1005

3011
1lcHl3

3012
112lr1l1

0016
11341

l.68
l.668
TYPE

/EXIT IF LISTING
/FOOL OUTPUT ROUTINE
/SO IT THINKS PUNCH IS TTY

52
53
ASrll

)(1

SYMRr)L.
X2
USE
K3

/MST SYMBOL ADDRESS "' 1
/TO AUTO X2
/MST USE WORO
/SYMBOL L.ENGTH

3126

DCA

TEM4

62U
1412
6201
:.HU

COF' 10
TAO I

/•WOROS TO LOC

/OBTAIN SYMBOL

CDF" 00

OCA l
ISl
JMP

2126

X1
TEM4

3012
1112
3126

OCA

1412

TAD

,.5
AS0
X2
M3
T£M4
X2

JMS

CTYPE

5336

10G!l5

TAO

OCA
TAD

4423
2126
5350

JMP

1n0

TAD

3054

OCA
JMP

5115

2226
2357
2360
2361
2362

I
L.68.

3226
1226
1062

I
I
I

TEM4
, .. 3
l.660

/PU~CH IT EXPANDED
/MORE
/YES
/RESTORE TYPE ROUTINE

TYPE

L.68

DUMMY TYPE ROUTINE POR EST TV DEFINITION

T8•SPSTB
0
L.66E1
OCA
TAD

TAO

/SCRATCH L.OC

T8
TS
CSUM

/SAVE CHAR
/ADD CHAR TO Bl NARY CHECK SUM

/SAB~.1'15

2099
21zi
21?1
21?2
21;~3

21fl4
211~5

PAL.1f'

2363
2364
2365
2366
2367

2370

4442
S757
2357
4772

21;36
2P7
2108

2129
2110
2111
2112

2113
2114
2115
2116

V135

J062
1226

23.;,sEPe69
:"'lCA
TA::l
J"IS

L66R,

L66D1

JMP I
L66E
L64

11128

PAGE 3!4-rt

csu~

T8
PUNCH

/OUTPUT CMAR ON BP: 4RV TAPE

L66f.

/RETUR~

2371
2372
2373
2374
2375
2376
2377

0000
3776
3777

3067
5771
4545
5366

/INITIALtHTlON THAT WONT f tT iN "I~JlTA"
I

1NI TMR, 0

OCA

OCA
OCA
JMP I
VALPTP, VALPTR
LLf'SPe LL.F'S

VAL.PTP
Ll..PSP

1.INE

IN!TMR

/SABR • b15

PAl.10

V135

2117
2118

2400

•2400

23;srP"69

11128

PAGE 35

2119
2120

2121
2122
2123
2124·
2125
2126
2127
2128
2129
2130
2131
2132
2133
2134
2135
2136
2137
2138
21:59
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149'
2150
2151
2152
2153
2154
2155

/COLLECTION PHASE ROUTINE,
/SEARCH LITERAL. USL.E F'OR VALUE IN S0,
/PLACES LITERAL. ON TABLE IS NOT TM£RE1
/OTMERWISE DOES NOTHING,
I

240tll
24ill1
2402

"'1011
""'"

24~3

7440

2404
24?15
24'16
2401
2410
2411
2412
2413
2414
2415
2416
2417
2420
2421
2422
2423
2424
2425
2426
2427
2430
2431
2432
2433
2434

SL. TAB,

5216

1030
1011

3123
1150
6211
3523
2011
6201
561110
?041

3123
1040

6201
7041

1150
1650
5600

2123
5223
521115

SL.IT81

LTBSE
l. TSi!E
TEM1

/SIU OF TABLE
/IS TABLE EMPTY
/NO ~~~ SEARCH IT·
/BASE COL.Le PHASE L. IT I TABLE,
l•OISPLACEMENT
/GIVES ADDRESS POINTER
IPHYSICAL.L.Y MOVE LITERAL

tsl

L. TSi!£

llNCRtMENT COUNT

SL. TAB

/RETURN
IPLACC • COUNT

COf' H
JMP l
SLITB11 CIA
OCA
CMA
TAO

SL ITB2,

LTSU

TAO

COF' UJ
OCA l

11Zl30
3011

6211
1411

(IJ

CL.A
TAO
SU
JMP
TAO
TAO
OCA

7200

DCA

cor UI
TAO l

TE:M1

TEM1
LTBSE

IL TBSC•1
ITO AUTO X1

l•TABl.E

COF' u
CIA
50
TAO
SNA CL.A
JMP I
SL. TAB
TEM1
ts~
JMP
SL. lTB2
JMP
SL.TAB•5

/•REQUESTED LI TE'RAL
/SAME
/YES, RETURN
/MORE SYMBOLS TO TEST
/YES
INO

/SAB~.~15

2156
2157
2158
2159
2160
2161
2162
2163.
21t\4
2165
2166
2167
2168
2169

2170
2111
2172
2173
2174
2175
2176
2117
2178
2179

2180
211!1
2182
2183
21~4

2185
2156
2187
2188
21'39
219~

2191

2192
2193

2194
2195

PAL.10

11128

V13!5

PAGE 36

ICOLL£CTt0N PHASE EQUIVALENCE PROCESSOR
/(PORMfRLY CAL.L.ED 8SS0 PROCESSOR)
/ENTERS SYMBOL. 10 1 IN EQ, fAB
I

2435 4446
2436. 1137
2437 1650
2440 5434
2441 6211
2442 1'~6"
2443 7640
2444 5251
2445 Ul64
2446 3273
2447 3673
2450 2064
2451 1137
2452 3464
2453 2673
2454 6201
2455 4421
2456 7240
2457 1iil66
2460 3066
2461 2060
2462 7~41Z!
2463 1517
2464 0275
2465 1164
2466 3517
2467 1114
247121 311?,1
2471 2064
2472 5434
2473 1i00
2474 3~17
2475 7577

PBSS21

JMS
SKlPL
L.F'S
TAO
SN4 CL.A
JMP l
NUl.1.P

cor ie

ILOCATiON FIELD SYMBOL

Its TMERE ANY

INO

TAO
SU CL.A

asssw

/ARE WE PROCESSING ~ BSS 0 SEQUrNCE

TAO

EQVIPR
CTPTR
CTPTR
EQVIPR
L.F'S
EQVIPR
CTPTR

··'

/YES ~~. SKIP lNITIALJlING
INO ~~~ INIT14L.1Zt
/SET JNPUT POINTER TO COUNT LOCATION
llERO COUNT
/INCREMENT lNPUT POINTER
/LOCATION FIELD SYMBOL
/PLACE Lrs ON EQUIVALENCE TABLE
/INCREMENT COUNT

JMP

CCA

OCA
JS!
TAD

OCA I
!Sl I
COF' 00

JMS I
!CPL.F'S
CL.A CMA
L.F'SPTR
TAD
LF'SPTR
DCA
esssw
I Si
CMA
?TCPR
TAD
K7577X
ANO
1<20~
TAD
PT CPR
OCA
PST CPR
TAD
EQVB?T
DCA
EQVIPR
rs~
JMP l
'1Ul.LP
CTPTR1 E:QUTB
LPSBSI1 LrSBSS
K7577X1 7577

/PROCESS !T roR COLL.ECTION
/REMOVE LrS rROM LfS TABLE

/SET ess v IN PROGRSS SWf TCM
/REMOVE EXTRA L.FS B1T
/REMOVE EXTRA BSS0 BIT
/PLACE BSS0 BIT ON PT
/SAVE PST ADDRESS
/INCRE~ENT POINTER
/EXIT FOR NEXT LINE

CASE

~E~T

L.I~E

"VE~rLOWS

/SAAi:l,815

V135

2196
2191
2198

/ASSE~BLY PHASE EQUIVALENCE PROCESSOR
/EXTRACTS E~TIRE GRnuP or TAGS EQU!VAL[NCED
/TO SA~E ADDRESS rRQM TABLE & DEFINES
/T~EM ev USING LrSCK FROM LFSBSS o~.

2200
22n
2272

22·~4
22~5

2476
2471
25i0

22eJ6

25;.,1

2201

25,~2

22!1l8
22Z9
2210
2211
22.12
2213
2214
2215
2216
2217
2218
2219
2220
2221
2222
2223

25~3

2224
2225
2226
2227
2228

2229

PAGE 37

2199

2203

11128

e.ii:l01il

1517
0164

TAD

7650
5676
7"4111

SNA CL.A
JMP I
ANUMCK

25:.14
25QJ5
2506
250'1
2510
2511
2512
2513
2514
2515

3147
1323

2516

4722
2332
5312
5616
557111
2514

251'1
252121
2521
2522

2523

2524
2525

2231

2526

2231
2232
2233

2527
2530
2531

K20VJ

CMA
OCA

BANK

TAO
DCA
JMS

3431
4324
7041
3332
4324

5674
44_50

PT CPR

ANO

UNl)?'i1

L.PSCHK
GNEQ

Cl A

ANUM?,

?He!

PSTO,
AANU1'17 1
I
I

GNEQ,

OCA
JMS
JMP
JMS
NOP
JMS
lSl
JHP
JMP l
PST DEF
ANUM7

OP I CTR
GNEQ
1,.F'SBSI
SPSTAB

/PT CODE WORD
/MASK OUT SSS 0 ~IT
/lS lT A ass 0 SYMBOi..

/NO , , , EXIT

/BAt\11< UNKNOWN
/CHEAT RETURN ADDRESS
/SO lT L.00KS LlKE A JMS F'ROM SOME~MERE ELSE
/GET COUNT
/NEGATE

/SAVE 1~ INDEX LDC
/GET SYMBOL
/PROCESS SYMBOL
/SET DEFINED BIT ON PST lN CAS£

OP I CTR
ANUM7•2

/TMIS WAS CARR!EO OVER
ITME L.AST PAGE
IANV MORE ?
/YES

ANUf'lCK

/EXIT

PSTD

ROUTINE TO GET N£XT ITEM orr EQUIVALENCE TABLE
0
co~

TAD I
!Sf
COF' 00

JMP l

EQVOPR
EQVOPR

GNEQ

ISAB~.815

V135

11128

PAGf JB

2234

2235

1 sue. R • To LI s T A L L: E IF' I :~ PA s s 2

22~6

2237
?236

/CALLING SEQUENCE!

?239

I
I
I
I (CALL TO

2240
2241
2242
2243

2244
2245
2246
2247
2248
2249
2250

2251

2252
2253
2254
225'
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268
2269
2270

2271
2272
2273
2274
2275
2276
2217
2?78

2219
2280
2281

2282
2283
22A4
2285

2286

JMS

JMS I
I

1-!RITEP

OUTBIN

LOCATION or

~ORD

CONSTA~T:RELCC,

TO OUTPUT
COD~

RETUR~4

~UST AL~AYS rOLLOW CALL
/TO WRITE.>
/ASSUMES CURRENT PC JS IN "ILC"
/SETS PLAGS FOR PROPER LISTING
I& CALLS WLN TO DO THE DRUDGE w0RK 1
OUTB~<

2532

0000

2533
2534
2535
2536
2537

11U
7650
5732
2332
1732
3136
1536

2540

2541
2542
2543
2544
2545
2546
2547
2550
2551
2552
2553
2554
2555
2556
2557
2560
2561
2562
2563
2564
2565
2566
2567
2570
2571
2572
2573
2574
2575
2576
2577

WR lTE I

3136

2132
2332
1732
3134
1134
7450
5367

PASS
TAD
SNA CL.A
WRITE
JMP I

/PASS 1

IS!
TAO

WRITE
WRITE

VALUE
VALUE
VALUE

/ADDRESS or VALUE

0.CA
TAD
OCA

lSl
lSl

WRITE

TAD
OCA

7012
70U
0155
1376

TAO

SNA
JMP

wR 1TE2

TAO

K6~

TO 6SIT

CLL RTL

13.34

0155

TAD
AND

1376

TAD

1135

TAD
DCA

3134

WRf TE2 1 TAO
DOA
l Si!

4455
2332
5732
2532
4051

/GET RtLOC. COOE

/CO~VERT

RAR
AND

RTL
RTL
DCA

012160

WRITE

CODE
CODE

7006
7006
3135

3135
2133
2130

vn. G

FUR

7U6

1065

/GET VALUE

K6~

CODE
ILC

ADORES

.JMS

CDlSKP, JMS

/CURRENT ADDRESS

AF'l.G
l~l,.r..iP

OP l CTFhlilR I TE

SAVE

ADORES

LFL:i

rsi!

/TE~

rse

.JM?

K60,

AODRES
CODE

WRITE
WR I TE

/UST

/SABR,815

PAL.10

V135

2287
2288

2600

•2600

2289

2290
2291
2292
2293
2294.
2295
2296
2297
2298
2299
2300
23l1
23e2
23?.3
2304
23?.5
23"6
2307
23'1!8
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318

26/Jli?J
2601
2602
2603
2604
26?5
2606
26e7
2610
2611
2612
2613
2614
2615
2616
2617
2620
2621
2622
2623
2624
262,
2626
2627
2630
2631
2632

4427
5631i?J
7410
76UJ

I
I
I

PBSS1

4446

4667

PBSS51

76U

44311J
4670
3060
4421

U50
7041
3231
1020

1517
3511
4672
2231
5221
544Z
2435
0000
6710

GETSVM
JMS I
JMP l
PBSS2 I
Sl<P
Sl<P CL.A

Sl<IPL
JMS l
IPSHIN
JMS I
PBSS41
JMP I
JMS
IFF'SUB
Sl<P Cl.A
JMS I
lNI
IPOPlN
JMS l
BSSSlol
OCA
tCPt.rs
JMS
Siil
TAO

PBSS11

11128

PAGE 39

Bl.CCI< PSEUDO OPERATOR

I ERROR

5515

5632
14246

23;SEP•69

OCA
TAO
TAO
OCA
JMS

!Sl

JMP
JMI' I
PBSS2la PBSS2
TCM121
PBSS41, PBSS4

TEM12
KJ0

PT CPR
PT CPR
ASMlr
TE:M12
PBSS1
POP EXP

/GET NE~T INPUT ITEM
INOTMING TMER[ CBIS I)
/SYMBOL
/CONSTANT
/LITERAL
/SAVE ALL CURRENT IN,0
/CMECI< BLOCK SllE
/CAN TMIS ,IT IN CORE
/YES
/NO ~~~ INITIAi.iil PT POINTERS
/POP CURRENT lN'O-MATION
/CLEAR BSSI sw1tc~
/PROCESS CURRENT 1.rs
/;BLOCK CONSTANT
/TO !NOEM LOCATION
/PAR CONSTANT PT BIT STRUCTURE
IOONT LOS[ 1.rs AND BSS l1J IN,ORMATION
100 TMEM INDIVIDUALLY IF PASS 2
/MORE
/YES
/EXIT TO GET NEXT I. INF.:
/RESRV STORAGE CTR

ISAB~,815

2319
2320
2321
2322
2323

2324
2325
2326

2327'
2328
2329
23:50
2331

2332
2333
2334
2335
2336
2337
2338
2339

V135

2633
2634

4427

263,

7410

7000

2361

2362
2363
2364
2365
2366
2367

PI F'F' •

GETSYM
JMS
NOP
Sl<P
SKP Cl.A
!ERROR
Sl<IPL
JMS I
lill.NIF'
JMS I
TAO

JMS
JMP
JMP
I
I

I
I
I

IF'F'SUB
OClL1
RSTRTI

!F'F' SUBROUTllllE
CALL IS

/GET NEXT INPUT
/NO~·E THERE

JTE~

/SY~BOL

/COl\iSTANT

/LITERAL

/LIST IF' PASS 2
/BINARY CO!IJSUNT
/USE GLOSAL IrF' SUBROUTINE
/OIONT HAVE TO ASSEMBLE PAGE
/GO INITIALllE
TAO PAGE INCREMENT

JMS rrrsue
OK RETURN
HAD TO ASSEMBLE PAGE RETURN

/F'UNCTlO~I
TO SEE IF' GIVEN l\iO~ 0, WORDS
/WlLL ,IT ON CUR, PAGEi tr SO a RETUR~.
/AT OK R£T,J OTMERWISE ASSEMBLE PAGE WE
/HAVE NOW & INlT A NEW PAGE & RET~ AT
/SECOND R[T~ 1.oc.
/IF'F'SUB rs USED ev CPACE,BLOCI< &
/SEVERAL OTHER PeOPS

I
I

IF'F'SUB,

2646

11000

2647
2650
2651
2652

3423
4422
1123
1275
7150
5646

OCA
JMS

?2"40

CL.A CMA

1122
7450

SNA

2653

2654
2655
2656
2657
2660
2661
2662
2663
2664
2665
2666

2667
2670

2370
23'!1

2611
2672
2673
2674

2372
2373

2675

2368

2369

PAGE 40

CPAGE PSEUDO QFERATION

7610
2637 5575
26421. 4446
2641 4671
2642 1150
2643 4246
2644 5433
2645 5673

234~

236~

11128

I
I

2636

2341
23•2
2343

2H4
2345
2346
2347
2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2359

23;,SEP•69

TAD
TAD

TAD

JMP
OCA
JMS
JMS
JMS
IPSH!l\i~

ISl
JMP I
PUSHlN
POPIN
WLNIF'1
AS:-!IF"1

0022

IPOPIN 1
i..LN!F'1
ASMJF'a
RSTRT I 1 t1STIH
UPOATE 1 UOPAGE
ICPG£S•CPGESI

7':J77

''2~1.

~2~5

3172

TEM1
ICPGES
TEM1
M2"11

SPA SNA CLA
!F'F'SUB
JMP I

5264
3422
4445
4674
4676
2246
5646
4200
4217
1772
1552

..201

PTSI~

/SAVE iNCREMEl\lT
/COMPUTE PAGE SllE
/AOD INCREMENT
ltS TOTAi. ,GT~ PAGE SllE (1 E~T~A 9£CAU~E
/PTSlE l!IJCREMENTEO BEF'ORE PSLJE~O~OP
/NO ••• RETURN
/YES ••• DECREMENT PAGE TA8LE SI~E
FOR AN E~PTY PAGE
/LEAVE THINGS ALO~E IF" PAGE EvPTV

/~ATCM

,+4

PTSir
L55I

/ASSEMBLE TME PAGE

UPDATE
F"lX IL
IF"F'SUB
I FF"S1i8

/l~C~E~ENT

/RETURN

rOR EXIT

23;SEP.,69

/SABR,815
2314

2676

1-"I XI LC

11128

PAl.l.iti

/SAB~,815

V135

23"SEPe69

I
I

E:RROR ROUThE

11128

PAGE 41

2375
2376

2377
2378

2379

2617

6212!0

K62t~;,;,

620~

23~0

27N'I

e~ei0

2381
2382

F'ATAL1

27?1

1277

ERREe

23~3

21n

232:0

2384
2385
2386
2387
2388
2389

ERRS,

27,~3

2705

U27
5307
1137

?St
TAD
JMP

272'6
271J7

3770
1045

27UJ

1027

2711
2712
2713
2114
2715
2716
2717
2120
2721

1164

2390

2391
2392
2393
2394
2395
2396
2397
2398
2399
24021
24ti1
2402
203
2 41!14
2405

2406
207

2408
2409
24UJ
24U
2412
2413
241'4

2415
2416
2417
2418
2419
2420
2421
2422
2423
2424
2425
2426
242'7
2428
2429

2704

2722

2723
2724
272,
2726
2727
2730
2731
2732
2733
2734
2?35
2736
2?37
2740

2741
2742
2743
2744
2745
2746

2747
2750
2751
2752
2753
2754
2755
2756
2757

1462
33.31

ERRM1
ERRI1
ERRC1
ERRA 1

K62t':0
F'ATAL

K600

,•3
1..rs

TAO

DCA

Ll.f'S I
K4'110

TAO
TAO

K600
K200

1150e
11100
/0300

1<103

10101"

TAO
Si!A

7640
5356
4424
1131
4423
1371
4423
4423
1770
3151
62U
155l,

JMP
JMS

ErL.G
PASS

CL.A

ERR EX
CRLF'

UL.G

TAO

CTYPE
AT
CTYPE

JMS
TAO

JMS
JMS
TAD

CTVPE

DCA

L.L.F'S I
JNOEX

TAO I

INDEX

cor 10

2153,

ANO

1<3

7040

CMA
OCA
TAD

COUNT

32.52
1112
315:5
2152
7410

Sl<P

5373

JMP

MSC TR
COUNT

!'lCA
1 Si!

COF'
TAD J
COF' 00

I Si!

MSC TR

JMP

TAO

SPPL.US

JMS

TYPE
L. l NE:
OTYPE
CRL.F"
F'ATAL

JMS
JMS
TAD
S~A

/TYPE E#

/TYPE 2

SPACES

Cl..A

/SET 6 CHAR PRINT CTR
/NOT DONE YET ~ITH SYMBOL
/DONE l SEE xr SPACES NEEDED

INDEX
CTYPE

TAO

ERREX,

ERR1

INDEX

t.Sl

JMS
ERR11,

/LISTING PASS
/TYPE CRl.f'

INDEX

IS2

0016

6211
1551
6201
2151
4423
2153
5337
13'2
4454
1067
4435
4424
1300
7650

/SET F'ATAL. ERROR Sill I TCl-1
/230~~

TAD

OCA

1110

10500

/TYPE THE LETTERS OR SPACES

s11
/TYPE SPACE •
/TYPE LI NS F'ROM

/F'AUL. ERROR?

LAST LF'S

i:>AL.10

/SAB~,f'l15

2430
2431

276a

2433
2434

2761
2762
2763
2764

24~5

2765

2436
24.37
2436
2439
2440
2441
2442
2443
2444
2445
2446
2447
2448
2449

2766
2767

2432

245~

2770

2772

2773
2774

23•SEP•69
JMP
MLT
JMI'

7402

5564
1113
7640
5767
5434

TAO

5366

LLF'SI1 LLF'S
INOEX•S1

V1152
0153
0124
e253

MSCTR•S3
0124
AT1
SPPUJS, 253

4423

ERR11

2775

2776

5351

K200

PHASE

11128

PAGE H•1
/NO
/Ir YES GO TO START AFTER MAI T
/WHAT P~ASE ARE WE IN

SH CL.A

ERR2,

n53
5373

,•3

ERR2
JMP I
JMP I
NULLP
ASM02•1

5650

0151

2771

V135

5363

IASSE:t'1BLY
/COLLE:CTlON

COUNT-52

JMS

CTVPE

ISl

MSC TR

JMI'
JMP

,.2

ERR11

trill OUT T~E REST wITM SPACES

11t28

/SARR,815
2451
2452
2453
2454
2455
2456
2457
24582459
2460
2461
2462
2463
2464
2465
2466
2467
2468
2469
2470
2471
2472
2473
2474
2475
2476

2477
2478
2479

2480
2481
2482
2483
2484

/ASSEMBi.Y PHASE ROUTINE TO CHECK F"OR A
/LOC, TAG (LfS> & PROCESS IF" FOUNO~
/fUNCT!ON1 CASMBLV PHAS£ 1 ~ ACTR•e>
I
C1> DEF"l~E TAC
I
(2) OUTPUT VALUE AT PAST OCCURANCES OF
I
ro~WARO Rtr~ TO THIS TAG
I
( 3) CONDENSE CCC, TAB IF' POSSIBLE,
I
I
I

(ASMBLV PHASE 2 ~ AGT~l1
CTMIS INCLUDES 4LL or P4SS 2 AS
ACTR $TAVSW1 IN PASS 2)
Cl> OUTPUT EXT, SYM; OE,N, ON REL•TAPE

I
I
I
3012!0
30Ql1

0000

312leJ2
3012!4

7010
7620
5600

30~5

7040

SNL CL.A
L.f'SCK
JHP I
CHA

3147

DC4

3003

3006
301117

3010
3011

1517

L.F'SCK,

"'TAO

TAO

7041
1066

TAD

3012
3013

3~66

OCA

6211

CDF' 10

3014

1466

TAD l

3015
3016
312!17

621211
2066
3137
4432

COF' 00

3020

PTCPR

IS!
LF"SBSS~

OCA

JMS
LF"S
TAO
SU CL.A

3'1'25
3026
3027
3Ql30
3031
3032
3033

TAO

L67
USE

ANO

K<400

2493
2494

2495
2496
2497
2498
2499
25?0

5242
1(;k!l1

L67,

r164

3034

7650

3Ql35

5242

ACTR

/WHICH TIME ARE WE ASSEMBLING TMIS QAGE
/ACTR REMAINS 1 DURING PASS2
/SECOND TIMEI NO TEST
/CK F"OR MULTI DEF'~

SU CL.A

7640

'5763

rr I~ L.ISTl~G PASS

/OBTAIN LF"S F'ROM MST

1z01

JMP

/BANK UNKNOWN
/MOVE BACK PTR

LF'SPTR
LF'S
OBSYM

3023

0..,45

RE TUR~

I ACTUA.L LF'S

249(2!

2491
2492

~I.

LF'SPTR

2488
2489

3024

/NO

LF'SPTR
LF'SPTR

7640
5232

11:'l57

I IS THERE A L'S

BANK
PASS

£.:137

2486
2487

/PT CODE WORD

RAR

3021
3022

2485

PAGE: 42

MERROR
JMP

LF'SCK1

/YES

TAO

USE

K200
ANO
SNA CL.A
JMP
LF"SCK1

/MST USE wORD
/(L67 HAS NO EFFECT IN PASS 2)
I I S IT AN E~·! TR Y
/i~O

I
I
I

2571

25l2

3'1!36

2se3
25'l4

3e'37

2505

3e!41

3;:140

4436
V465
?e:2'3
4760

EXTERNAL SV~80L
JMS

OUT8 IN

/OUTPUT Bl~ARY nEfI~ITION

L6bI

/Pu~·c~

ILC
3

JMS

DEfl~lTION

SYMBOL

TAPE

FAl.1?

V135

1065

LF'SCKl, TAD

ILC

3002
1001

r)CA

VAL

/J61

ANO

K7377

3746

1~45

TAO

>\40;~

,sz41

3,0~1

DCA

USE

/SA'H,81t;

25;'.·6

25n

2578
25?9
?,10
2511
2512
2513
2514
2515
2516
2517
:?518
2519
2520
2521
2522
2523

2524
2525
2526
2521
2526
2529
2530

2531
2532
2533
2534
2535
2536
2537
2536
2539
2540
2541
2542
2543
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
256tz:

3V:142
3?43

3044
~~;i"l 4 5

23..,SEPtoM

\iO~;

CA\J
3~50

12106

TAO

3051

7;;,40
1362
7450
5600
7041
:.U23
1iiH!J6
3124
6211
3372
2124
704121
1524

CMA

3~52

3053
3054
3055
312156
3057
3060
3061
3062
3063
3064
312!6 5
3066
3067
32''21

3071
3072

3073
3074

3075
3(('176
3071
31~121

3101
31:.12
3 UJJ
3104
3105

TAD

L51,

OTP

1003

1.51E1

3115
3116
3117
3120

3121

t~Oi-i

DEF" I NEO IN MST
~£

JMP

LFSCi<

/RETURN IF' EMPTY

CIA
DCA

'f'EM1

TAD
DCA

OTP
TEl-12

/PLACE !!I S Ii~E I ~~ INDEX LOC
/PLACE TABLE BASE IN Te:112
/TEM2•PTR TO SYMBOL.

COF' U!

DCA

L.51F'LG

/Cl.R # SWITC~1

T£)12

TAD I
TEM2
SH CL,.A
,•4
JMP
IS?!
L51F"LG
TEM2
?Si!
TEM1
!Si!
TAD
TEM2
CIA
TAO
SYMBOL
SNA CL.A
,•7
JMP
TEM2
!Sl
TEM1
t Si!
TEM1
IS!
L51
JMP
COF' 00
JMP !
LF'SCK
AN OCCURANCE F'OUNO

3113
311. 4

/SIH OF' OCCURAr•CE TAALE.

/CK 1ST WORD F'OR # F'LAG

C~A

764(ll

2124
1524
6201
3126
4425
0126
0004
1002
13?2
3126
4425
0126

/sv~·BOL

TOPCOR

IS~

I
I

3106
3107
3110
3111
3112

/CUfi !LC
/PLACE ON MSi AS DEF'l '•JI TI ON
/S'!'l'BOL TASLE USE I.CHM
/MASK OUT OEF' t NE'O SIT
/A Dr I\I OEF" I NED 8 IT

LETS Sf A~Ch OCCuRA~;CE TAhL.E TO SEE IF'
CLEA~ OH A F"E\.

SNA

5273
2372
2124
2123
1524
7041
765ill
5306
2124
2123
2123
5262
6201
560ill

us£

TAD

PAGF" 42,.;i

111?£-

!Si!
TAD I
COF' 00

DCA
JMS I
TEM4

TEM2
TEM2

/NO

SET S~ I TCl-i
/MOVE PTR & CTR
/PAST EXTRA WORD
1;,, OCC:URRtf\iG SYMBOL
/YES,

/•SYM90L JUST DEF'! NED
/ARE Tl-IEY EQUAL.

n•o

...

T~ERE

MOR£

/(2 i.:ORDS PER OCCURRANCE>

/YES
/NO

... ARE
...

....

... ,

RE:TURN

OUTPUT lT

/ACTUAL ADDRESS

TEM4

OUM MY

/OUTPUT ADDRESS AS ORIGIN

TAD

VAL.

TAD
DCA
JMS I

L.51F'LG
TEM4
DUMMY

TEM4

/ADO 1 If # REF'
/OUTPUT SYMBOL VALUE AS RELOCATABLE DEF

/SAB~,815

2561
2562

PAl..10
3122
312J

25fl3

2564
2565
25!16
2567
2568
2569

3124
31?5
3126
31:27
3t.3iil

3131
3132
3133
3134
3135
3136
3137
3140

2578
2579

2580
2581

2582
2583
2584
2585
2586
2587
2588
2589
259fZJ
2591
2592
2593
2594
2596
2599

2600

PAGE 42•2

CDF' 10

3141

3142
3143
3144
3145
3146
3147
3150
3151
3152
3153
3154
3155
3156
3151

10~6

3126
1124
3006
1372
1014
7041
1124
7041
1126
7450
5301
3125
1'.25
7041
1126
3126
1526
3406
., 040
1126
3126
7040
1"'06
3fZlfZl6
2125
5345
5301

~.;ow

MOVE occuRA,.-JCE TABLE UP 2

L51G,

TAO
wCA
TAD
DCA
HD
TAD

'.)TP
TE;M4

TEM2

OTP

316el
3161
3162

TAD
CIA

TAD

TEM2

TEM4

SNA

JMP
DCA
TAO

CIA
L51J,

TALI
OCA
TAO
DCA
CMA

TAO
DCA
CMA
TAO

DCA
IS~

JM?
JMP

2315

1..68?,

L68

K7377 1

?377

7600

3163

2705

/RESET

CIA

"!377

5763

/SAVE

L51F'LG
K2

L5H

TEM3
TEM3

TOPCOR; CORE1
MERRORWJHP I I

/NOTHIP..G TO

TEM4
TEM

OTP
OTP
TEM3
1..siJ
L51E

ERRM

~OVE

/CTR F'OR MOVE UP

TEM4
TEM4
T[M4
OTP

2595
2597
2598

11128

2570

25?7

23•SEP .. 69
1

2571

25?2
25?3
2574
25?5
2576

V135

0001
6211

ITO PTR

~Al.1V'

/SA(~i,F1?

;?6:1
26!2
26'3
26:•4
26?5
26.'6

3164
3165

26 7 7

3166

26:8
26 ··9

3167
31H'
3171

2610
2611
2612
2613

Y."0<'~

V135

23.:;SEP•69

I
I
I

PUtJCH ROUT l f\'E

L63,

6026

/SELECT IT

Pl..S
?SF'

6021
5366

PAG[ 43

1112~

JMP

7200

Cl.A

?764

JMP

/WA tT roR

F'U~CH

, .. 1

/EXIT WI TH CLEA~

L63

2614

2615

/UPDATE "PAGE" TO NEXT CORE: PAGE
/ l 1 E., PAGE •PAGE•U0

261.6

2617
2618
2619
2620

26;?1
?6?2
2623

2624
26?5
2626

3172
3173
3174
3175
3176
3177

''Mel

UOPAGE,

7~00
1~77

CL.A
TAD

PAG

1164
3077

TAD

K20~

DCA

PAC>

5772

JMP

UOPAc;E

3172

L51F'LG~UOPAGE

/OLD PAGE SETTING
/•SilE OF' ONt PAGE
/F'OR NEW PAGE SETT l NG
/EXIT

/SABR,815

PAL.1V'

V135

2627
2626
2629

3212!0

•3200

2630

2631
2632
2633
2634·
2635
2636
2637
2638
2639
2640
2641
2642
2643
2644
2645
2646
2647
2648
2649
2650
2651
2652
2653
2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
266?
2668
2669
2671?.J
2671

2672
2673
2674
2675
2676
2677
2678

2679
2681?.J
26~1

32~0

Villlil0

3201

1057

32~2

7650
5600

32'13
32~4

4761

3205
3206
32i7
3210
3211
3212
3213
3214
3215
3216
321'7
322121
3221
3222
3223
3224
3225
3226
3227
3230
3231
3232
3233
3234
3235
3236

1010

23·SEP11t69

PAGE 44

11t28

I
I
I
I

SUBROUTINE TO OUTPUT ASSEMBLY PHASE L ITEFiAL
TABL.E AND REMEMBER OCCURANCES

OAPLT1

7450
5600
7041
3355
1240
1045
3012
1102
7640
5222
1111
7110
112170
7041
3362
1362
1'317
1164
3Kl65
1070
7104
1045
3362
7k12l1
?410

ACTR
TAO
SNA CL.A
JMP I
OAPLT
JMS I
SAVI.NI
TAO
L.ITSU
SNA
JMP
OAPL.T
CIA
ATEM1
OCA
Cl.A CHA
l.IT9SE
TAO
DCA
X2
APMSW
TAO
Si!!A Cl.A

JMP

TAO

RAR Cl.I.
TAO

CIA
DCA
TAD

,•3

PGEESC
LJTSU
l. IT?TR
I.I TPTR

TAD

PAG

TAO

K21t10

OCA

11.c
LI TSU

TAO

/SKIP IT TME 1ST TIME
/PREVENT ANY 1.INE TYP£0UT
/SJlE OF' UBL.E
/RETURN IF' NONE
/PL.ACE • SIU IN L.OC
/BASE ~ 1

/TO AUTO l2
/ARE WE IN AUTO PAGING MODE
/NO ....,··,· OK

/YES ~~~ SUBRTACT SJiC OF PACit r5CAPE
IOIV!0£0 BY 2
I& SUBTR •· L ns !l
/T[M

/INITIALIZE PAGE ADOR(SS
ltNIT I.IT TBL PTR

CL.L RAL.
TAD

DCA
!AC
SKP

SAVE

IC MUL T BY 2>
L. ITBSE
LI TPTR

3237
3240
3241
3242
3243
3244
3245
3246
3247
32')0
3251
3252
3253
3254
3255
3256
32?7
32el?.J

2~65

1172
1362
3362
6211
1762
3356
2.562

1762
3357
62i1
7240
l356
7640
5271

L52,

ISl
TAO
TAD

DCA
COF' 10
TAD I
DCA

IL.C
M3
L.ITPTR
LITPTR

II NC PAGE LOC
/DECREMENT LIT TBl. PTR

LI TPTR
ATEM2

/CODE

I Sil

LITPT~

TAD

L lTPTR
ATE'-13

/.SYMBOL OR LITER AL

A TE ~12

11s coor 1 .. • LITERAL

OCA

cor 00

CLA CMA
TAD

4436

SH CLA
JMP
L53
our:~ IN
JMS

7065

ILC

y"t\?,4

lr.:o

•••

SYMBOL

IVES ••• OUTPUT PAGE

~D1RESS

AS C~!Gll\J

PAL.1 1;1

/SA8~,t;15

3262
3263

3.557

A TE~3

;~~64

v~!ZeJ

?6113
26'14

?6"5
?.6ii6
26A 7
26q8

j?,r,S

?J':i5

.3;;> ~6

?237
2l65

26'19

3267
32721

?6~:\k'J

3271

4432

2692
2593
2694
2695
2696
2697
2698
2699

2?00
2701
27?.2

27'.113
2n4
2725

27l>6
277'7
21;•a
2n9
2710

2711
2712

2713
2714
2715
2716
271?
2718
2?19
21211!

2721
2'122
2123
2724
2725
2726
2'727
2728
2729
2730
2731
2732
2?33
2734
2735
2736

~3'!"S£P.,69

J"1" I
J14S I

3261

2690
2691

v j,.35

4456
4436

26"2

3272

J357

3213

1001

3274
3275
3276
327?
33Z0
33Z1
3302
33?3
33£.4
3305
33?6

e~45

33:?J7

3310
3311

3312
33t3
3314
3315
3316
3317
3320

L 'i? A,

L 5.~,

AH '1

/i"QRF:

L5Ci:

/YES

JMP I
JMS I

'!APLT

1-.0

•• i

R[ TUR'!

'.~2sv~·

/~9TA I~;

SVMPOL

ILC

!AC

UH
10k16
:5006
1006
3011

6211
1357
3411

1360
3411

3342

1356

3343
3344

~015

7650

r,i~

/SET

.\Q

RLLC!C~TT'l'

ESCAPE
F"t<O~

MST

/MST USF.: t~ClRO
/!S SV'180L DEF' t ~ 1 ED
/tJQ

/VES

.'.' ..

OCCURA\lt':E
OUTPUT OR I Gl'\I

/IT~

:~R l TEP

OUT8P,t

/OUTPUT VALUE

JMP

L52A

/PELOCATABLE
/TRY MORE

TAO

I L.C

ATE>-'4
L53B
L52A

DCA

L53B,

J"!S l
ATEM3
1

L53A,

/ACTUAL VALUE:
/TO D!RRECTLY ADDRESSABLE LOC

JMS

JMP

5577

NJTGTN

VAL.
ATf:;'13

DCA

5265

Hl07
763121

TAD

Jfl1S

7001

IL.,C

~ lTl-l

ATE'12
TAO
i(4
ANO
SH CLA

4321

e000
1006
'141

L. ITE~ AL

/OUT~UT

I
I
I

3321
3322
3323
3324
3325
3326
3327
3330
3331
3332
3333
3334
3335
3336
3337
33421
3341

PAGE 44.,.1

TSt

J~S

~065

11128

.J"1P
I Si

ATP1J
TAO
USE
1(40.~
AND
SNA CLA
JMP
L53A

7650
53t5
4436

V'.004
1356
0015
7640
7001
1YJ02
3357
4456
4436
3357
;;i001
5265
1065
3360

;.,RIH:P
('lL)T'l ! "I!

/PLACE ON
/TRY MORE

OCCUR~NCE

TALHE

SU8ROUTtNE TO CREATE At·i OCCURANCE IN OCCURA'\lCE TABLE
0

OTP
UD
CIA CL.L.
!AC
TAO
STT
Sll CL.A

SERROR
TAO

TAO
DC.A
TAD

IJCA
CDF" 10

/ALLOW F'OR
/•TOP OF" r-:sT

' OUT or CORE

/OT SIH • 2
/GIVES ADDRESS ON OCCUR TABLE

TAD

ATE'13

/SY~BOL

OCA

/TO OCCUR TABLE

ATEt14
Xl

TAD

DCA
TAD

ATE~2

ANO

SNA

CL.A

F'LAG

/QV(RF'L('.!W?

/VES
M2
OTP
OTP
OTP
X1

/PAGE A00RESS
/TO OCCUR TABLE
/Cl< F'OR #

/SABP,e1~

2137
2738
2739
2740
2741

2742
2143
274 ..:
2745
2146

2747
2748
2749
2750
2751
2752
27S3
2754
2755
2756
2757

PAL.1 ~1

2'169

21'r0

23!fSEP,,.69

3345
3346
3347
3350

5..S53

JMP

Hk'l1

IAC

3351
33'>2

33·:>3
33'i4

,•6

3406

JCA

7~4~

CMA

1 ~C/!6

TAO

OTP

3i006

')CA

62e1
5721

OTP

JMP

COF'

OTP

11128

PAGE 44•2
/NO
/SET F'l.AG
/~OVE

wORO

DO wt~ PTR

/PAST EXTRA

wORD

~~0

L5J;;

ITRV MOPE

3355
3356

1?0'110

AT["-111

?-000

ATE.~12,

3351
3360
3351
3362

0000
0000
4143
0000

ATEM31

ATE~4,

SAVLNI, SAVLIN
l.ITPTR, 0

3363
3364
3365

210 6

PF'ORT1

3366

7000
4446
5434

2158
2159

2760
2761
2762
2763
2764
2765
2166
2767
2768

V135

tSi!

F'ORrLG

NOP
JMS
J"IP

SKIP!.
NUl.LP

/SET TO 1 F'OP 1ST PASS Tt1RU F'ORTRA\ CODE
/END PSUEOO SETS IT TO •1 TO NtJLLIF'Y
/SO BACK TO 0 F'OR 2ND PASS

/00 SOME WORK FOR l.61A
3367
3370
3371
3372
3373
3374
3375
3376
3377

3124
1124
0160
7650
1162

I
l.61C1

TEM2
TEM2
K40

TAD

K1~'2

TAO

K200
TEM2

/SAVE" 6.,RIT CODE

SNA CL.A

1164

1124
5777
1342

DCA
TAD
Al\ID

TAD

l.610Pt

JMP 1
L610

l.610P

/ADD CORRECT LEAD I r>.iG BITS
/ADD CHAR BITS

/<;HP,~tr)

PALH

V135

?.771

.,54210

•34 IJ;·I
I

Z772

I
I
I
I
I
I

2773

2774
'?775
2776
?777

2718
2779

27iiZ
27~1

27A2
27A3
2784
2785
2786
2 ]Fl. 7
2788
27P9
2790
2791
:?792
27113

2794
2H5
27'J6
?.]Q 7

2798
2799
2ae-ei

2811
28?2

2R'3
?814
28?5
?87,6

28/.7
28?8
?.87'9
281.,

2811

34/2!
34;·1
34.'2
34t3
34 '.4
34~5
34~6
34~7

34t0
3411
3412
3413
3414
3415
3416
3417
3420
3421
3422
3423
34:>4
34?.5
3426
3427
3430
3431
3432
3433
3434
3435
3436
3437
3440

2912
2~13

2814

2815
2816

3441
3442

:•t00

OUT8N1

7.5210
16it30
3141
2200
1600
7006
7006
3127
7640
S23fll
1::>41
7ill06

!='AG£ 45

~ELOCATIO'I

BITS Ofl: TAPE

WM~

OUT8N
OUT1

/ADDRESS OF'

OUT8N

/RELOCATION BITS
/SHIF'T LEF"T 4

OUT2
PASS

/SAVE

OUT8~J

OUTEX
OUT1

/ACTUAL WORD
/ROTA TE HIGH 4 fi!ITS TO l.Olil

~AL

AND

TAO

JMS
JMS
TAD
AND

OUTEX1

56l0
V~00

11128

ROUTINE" TO Plil\:CH WORD ANO
CALL IS
OUTt3\/
JMS
ADORE.SS OF' i.JORD
RITS

CLA CLL
TAD 1
!JCA
tSl
TAD
RTL
RTL
DCA
TAD
SlA CL.A
JMP
TAD
RTL
RTL

11UI

7e,06
7004
7242
1127
4232
4442
1541
?241
4232
4442
22t?J0

23•SEP•69

SU'-1,

3144
1'l62
1144

JMS
JMS
tSl
JMP

K17
OUT2
SUM
PUNCH
OUT1
KJ77
SUl'I
PUNCH
OUTBl\i
OUTBN

OCA

TSUM

TAD
TAD
IJCA

CSUM

3c:'l62
1144
5632
v'144
V141

OUT1=IR

r•121
V377

OUT2=TEM5
K377,
377

'.~.:l17

K17 1

TSU~

CSU"1

TAD

TSU"I

JMP

SUM

TSU,_.i:~JSG\

/MASK
. /ADD REL BITS
/ADD TO CHECK SU"1
/PUl'>JCl-I IT
/REMAINDER OF' WORD
/MASK TC 6 BITS
IAOO TO CHECK SUM
/PUt\!CM IT
/INDEX F"OR EXIT
/RETUi:!~J

/SABQ.815

PAl.10

21H7
2818
2819

I
I
I
I
I
I

2820
2~21

2822
2823

2824
2825 .

2826

2827
2828
2829
2830
2831
2832
2833
2834
2835
2836
2831
2838
2839
2840
2841
2842
2843
2844
2845
2846
2847
2848
2849
2850
2851
2852
2853
2&54
2855
2856
2857
2858
2859
2860

V135

3443
3444
3445
3446
3441
34!Ul
3451
3452

3453
3454
3455
3456
3457
3460
3461
3462
3463
3464

~Jil~0

SRALT1

3520
35~1
35;~2
35~3

TO SEARCM ASSEMBLY PMASE L.ITERAL TA,BLE
2 l-:ORD ENTRY IN s0.s1
PLACES ON TABL.E Ill" NOT THEl'E
~OUTINE

~ETURNS

1440

Si.t.

1~10

L.39,

3123
2070
1150
3523
2123
1151
3523
U70

l.40A,

1110

7640
5332
1111
7110
3l.24
1u2
7650
1124
1123
7041
0241
6201
5643

JMP

TEM2

/lERO StARCM COUNTER

l.!TSI!

/NO OF ENTRYS

L.4fi1
LITSU

/lllON fERO ••• SURCM
/NO or ENTRYS • 1

RAL CLL
UD
L.ITBSE
TEM1
OCA
LI TSU
!Si!
TAD
sra
TEM1
OCA
TEM1
!Si!
TAO
51
TEM1
OCA
TAO
L.ITSU

7104
10'45

3123

PAGE ADDRESS l~ AC

3124
6211
1070
5304

/MULTIPLY BY 2

/ADO &ASE 0' tABL.E
/GIVES ADDRESS or NEW EN TAY
lir.JCAEMENT COUNT
IF'IRST wOFID
ITO TABLE
/INCREMENT ADDRESS
/SECOND WORD
/TO TABLE.

/ENTRY NO

COMPUTE PAGE ADDRESS rROM DISPL.ACEMENT IN TABLE
ANO STATUS OF AUTOMATIC PAGING MOOE SW ITCH ANO SIU nF' PAGE'.
ESCAPE REQUIRED
TEM1
PASS

DCA
TAO

Si!A CL.A
JMP
l.40C
PGEESC
TAD
R4R CLL.
TEM2
OCA

/SAVE LOCATION l N TABLE
/LISTING

/TAKE PAGE ESCAPE SI i!£
/DIVIDE BY 2

APMSv;

/ARE we: IN AUTOMATIC

TAO

TEM2
TEM1

CIA
AND

K377

/YES COUNT ESC, WORD
/NO,;, COMPUTE PAGE ADDRESS
/BY STRAIGNT COMPL.EHENTAT!ON "°ETMOJ
/MASK

JMP I

SRALT

/EXIT

TAD

S~A

Cl.A

TAD
l.4~D,

PA:.GE 46

11128

F' OJ~:

Cl.A
DCA
COF' UJ
TAO

7200

I
I
I
I

3465
3466
3467
347Z
3471
3472
3473
3474
3475
3476
3477

23,;SEP•69

cor 00

PAG!~G

/F'OR A'JTO PAGING MODE

28~1

2862

2863
2864
2865
2866
2867

2868
2869
2870
2871

3514
352'5
35?.6
35?l7
351'11
3511
3512
3513
351.4

7041
3123
7240
1045

7041

CIA
TEM1
DCA
Cl. A CMA
TAD
LIT8SE
DCA
X1
TEl-12
I ST.
TAO
X1
CIA

115i2J

TAD

L4~.

3~11

2124
1411

L41,

sei

I•

!\1Q

OF' ENTRYS TO 1..oc

/BASE OF' TABLE .. 1
/TO AUTO 10
/INCREMENT SEARC~ COU~TER
la F'IRST wO~O F'ROH TABLE
/+FIRST COMP

~ORD

Moor

/SABR,815

IAl,.1.

28?2

3515

2El73

3516

2874
2875

:S'.)1 7

?~76

2'077

2678
2879
2880

2ee1

2882
2883
2884
2885
2886
2887
2888
2869
2890

-35?7
35;>1

35?.2
3523
35?4
35?5

35?6
3527
3530

3531
3532
3533

"'135

i'3 .. StP~o9
._;"1P

7i41

CIA

TA:'

l 1'H

TA2

76411:
5327
1124
S:265
2i011

L 4 .' ~i I

2123
5252
6201
1736

3534.

7110

3535

5217

3536

5524

L. 4'

·, 1

TAG

Tl~·~

JI.IP

L41'.\

/\ ')

46 .. l

i~A Tt".rl

l•SECO'ir' TAkLE

N•AT C~I o I t
/r;(TU%
I I NtRE'1E NT

IS!

X1
TEM1
L4l

11\0

L39

/YES

cor 00

TAI) I
Cl.L RAR

~f.OJCP

JMP

L400

RErJiJCP 1 REDUCE

~.;!JR[\

/\'j 1-1ATCµ

!Si
J"1P
J"1P

L4JC,

l='AGE

'.'1

SlA CLA
JMP
,+4

5311

11I2f;

i A C~A

7 6 4 i:':
':"'.526
· 1411

......

r,TR

T'.)

roQ

~·

0 Sf CO','•

COMPA~tSrN

/OVf.~

TfiV "ORE:

PLACE:

r~"

TA8l.E

/GET PAGE ESC COMPUTED BY Al

/SABR,815

V135

2891
2892
2893
2694
2895
289'6
2897
2898

SU8ROUT1~E

MAS AL.REAOV !3EP PU.-,CME01 EXIT
PUNCH IT 8 SET F'L.AG
/T~IS ROUTINE IS CALLEC ONLY O~CE PER PROGRA~
/~UT IT COULD BE CAL.LED r~o~ A~Y or SEVEQAL PLAClS
/IF'· IT

/tr

35.37
3540

2901
29Z2
2905
2906
291217

PAGE 41

MAS COM~ON BEE~ PU~CHEU YET

2899
29210
29~3
29~4

11128

~e00

~OT1

I
hCBPS 1

1104

TAD

3541
3542
3543
354•
3545
3546
3547

7650
5737

SNA CL.A
JMP I
iiCBPS
CPS:.i
DCA
JMS 1
OUTBIN
MJCOM

3550

4067

3104

4436
0076
00,,2
5737

CPS:..

12
JMP

HCBPS

JMS

OUMS

/CO~MON PUNCHED SWITCM
/HAS tT BEEN PUNC~ED
/YES
RETURN
/NO~ •• CLEAR S~ITC~
/ANO PUNCH HIGHEST COMMON ASSJG~[O

.·.I

/EXIT

2908

29"'9

DU~SUB~

2910

2911
2912
2913
29H
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925

2926
2927
2928
2929
2931/J

29U
2932
2933
2934
2935
2936
2937
2938
2939
2940
2941

PAGE TABL.E PT~S
/TO PREPARE F'OR NEXT INSTRUCTION COR PARAMETER)
/l~CREMENT

3551
3552
3553
3554
3555
3556

ezn

3'57

62U
3520

3561/J
3561
3562
3563
3564
3565
3566
3567

2122
4767
3101

tNCPT1

PTSi'!!E
ISlPT2

/lNCREHENT PAGE TABLE Sli[

OCA l

PT CPR
PTSPR

COF' U
OCA l

/INITIALliE PAGE TABLE COOE WORO
IINIT!ALliE PAGE TABLE SYMBOL. ~CRO

PTOPR

liNITiAL.liE PT OP coot POINTER

CURSl<P
L.STSKP
BANK
LSTBNI<
INCPT

/MOVE CURRENT SKIP INSTRUCTION tNO!CATOR
/TO LAST INSTRUCTION SKIP lNOlCATOR
/MOVE CURRENT BANK
/TO LAST BANK
/RETURN

ISl

JMS
OCA

35H

OCA I

3521

co, llJ0

6201

1146

TAO

31iJ72

OCA

1147
3"'7 3

DCA

5751
6701

JMP l
ISlPT2; lUPT

EQVB! T

3570
3571

4437

3573
35?4

1065
0163
1317
3123

3575

5716

3576
3577

6fll16
5204

3572

/CL.R

//F'OLLOWING CODE MOVED HERE TO MAKE ROOM F'OR V03 IN ASME3
AS"IEXT1 JMS l
OUTSKP
/YES, OUTPUT SKP
TAO
?LC
/GET PG,LOC,PTR,
ANO
K1'17
K5204
TAO
/OUTPUT JMP ,••
DCA
TEM1
JMP l

REEASM

1<5204' 52214

..,.

/SAAi:?,815
2942
2943
2944
2945
29•6
2947
2948
2949
2950
2951
2952
2953
2954
2955
2956
29'1
2958
2959
2960
2961
2962
2963
2964
2965
2966
296?
2968
2969
29'70
2971
29?2
2973
2974
2975
2916
2971
2978
2979
298(1
2981
2982
29~3

2984
2985
2996
2937
2988
2989
2990
2991

PAl..1~

\/135

3600

•3601.!1
I
I

36~0

36?1
36?12
3603

Ul 4 5
4242
7200
5226

ABSYM PSEUDO

PABSYM 1 TAO
J"15
CLA
JMP

11126

PAGE 48

OPERATO~

K4013

OE,SUB

0£'1

/Sl<PDF' & OPOEF' PSUEC'Hl•OPS
36e<4
36~5

3606
362!7
3610
3611
3612
3613
3614
3615
3616
3617
3622'
3621
3622
3623
3624
36:?5
3626
362'7
3630
3631
3632
3633
3634
3635
3636
363'7
3640
3641

1157
1241
42'2
'111110
0247

1ru:s

Sl<POEX, TAD
OPDEX1 TAO
JMS
CLL
ANO

K2111
1(301"!
DE' SUB

/PUT IN SKIP BIT
/STANDARD OP BITS

K10011J

/CK TYPE O' INST

TAO

1<2000

'765111
5226
7420
5236
1150
~240

'110

76'0
~234

'7430
1162
U64
1127
3"211
1151?1

OE'1•

SNA Cl.A
JMP
0['1
SNL
0['3
J"1P
TAO
Siil
1(401
ANO
CL.L RAR
SNA CL.A
JMP
OEF'2
HL
KS,00
TAO
K200
TAO
TAD
TEM5
DCA
USE
TAO

3iD02

OCA

1002
5434
1162
5226
1045
5226

TAD

0Ef'21

JMP

VAL.
VAL.
"IUL.L.P

TAO

K100

JMP

OEF'1
1(400
IJEF'1

OU'3,

TAD

~·401

K4011

41Zf1

3010

K32!1~,

3010

J~P

/IOT
/MRI
/OPR1 BUT WMICH GRP?

/GRP1
/GRP3
/GRP2

/UTILITY F'OR PASSY~ & OPDEX
/CALL WITM MST CODE WORD EXCEPT BITS 10•11
/IN AC~ EXITS WIT~ SYMBOL VALUE
/AS DEr. BY SOURCE TAP[ IN se & I~ AC,

2H2

2993
2994
2995
2996

23~SEP•69

3642
3643
3644
3645

(1''1'1l0

3127
442?
5260

DEF'SUB1

OCA
JMS
JMP

T[M5

GE:TSYM
DE:F"E~R

/GET THE SYMBOL. NAME
/NULL

/SABP.,81'5
2997
2998

2999

3il'00

3211!"1
J{i:'l22
30~3
3~04.
3~~5

3i?.i"6
3itl~7

PAl,.1")

3646
3647
3650
3651

3652
3653
3654

3655

3656
3657

30\?!9

3660
3661
3662

3~10

3663

3"1il8

V135

23~SEP,..69

K7000,

JMP
NOP

5251
7000

5260
1150
1127
3127
4427

·uo
OCA
JMS

10e0
7410

7410
5575
4446

1150
5642

JMP
TAO

1<74101
DEF'ERR 1

P-iGE 48•1

,•3

/SYMBOL

DEF' ERR

ICOl'llST ,· OR Ll T•
/ADO lfll SVM LENGTH

S1!

T£"M5

TEM5
GETSYM

NOP
SKP
Sl<P
t£RROR

JMS l

11128

Si<IPL

TAO

JMP 1

DEF' SUB

/GET VALUC
/NUl.L
/SYMBOL
/CONST
11.n.

/VA!.UE

PAL.1V:

/SA8~,81~

3~11
3~12

V135

2J .. SEP•69

11128

f.' AGr.

(OCTAL#)
L62

.3~13

/OCTAL TYPE OUT
/CALLING SEQU(\Cll

3~14

:P15

JMS

I
I
I

3~16

3:017

RET.

AC•J

.3Vl16

3l19
321221

3ll21

3022
3e'23
3024
3025
3026
311'127
3028
3029
3030
3031
3032
3033
30H
3035
3036
3037
3038
3039

3664
3665
3666
3667
3670
3671
3672
3673
36H
367,
3676
3677
371210
37!l1
37212
37.,3
37?J4
372,

;:200
7104
3123
1.304
3124
1123
'1006
7004
3123
1123
0155
1305

'1774

e.260

TEMl,.

TA~

~14

M41
K26~1

/PUS;.; HtRU LINK

DCA

TEM2

TAD

TEM1

RTL
RAL
DCA

TEM1

Ai\10
TAD
JMS
ISLJ
JMP
JMP
"'4
0260

/SET CTR

TEM1
K7
K26tl
T'(P E
TEM2
L62A
L62

/OUMMV OUTPUT ROUTJ~E
/REPLACES OUTBN DURI~G ASMBLY PHASE 1
/CALLING SEQUENCEI
JMS
DUMMY
I
AOOR, OF" A~G
I
RELOC, CONST,

311144

3049
300
3051

CLL RAL
DCA

TAD

4454

311142
3043

3048

L62A1

2124
5211
5664

HU
3041

3U'
30'6
311141

L62,

RETURN

/NOTEI SAME CAL.LING SEQ, AS OUTBN

:5706
3707
37U
3711
3712

'1l000

'1300
231116
2306
5706

OUM,

Cl.A CL.I.

!S2

OUM

l Si!

OUM

JMP

OUM

ltNOCX F'OR PROPER EXIT
/INDEX F"OR PROPER e:x P'

PAl.10

/UBR,815

V135

3052

3053

I
I

305'
3055

I
I

3e'56
3057
3058

3713

3059

3714

:5060
3061
3062
3063
3064

3715
3716

3720
3'121

7440

3725

307'

U76
3017
30'78
3079
UHi

3981

3092
3083
3184
3885
31186
3'!181

U89
3'91
H91
3092

3194
3195
3096
3097
3098
3099

3726
3721
3730
3731
3732
3733
3734
37:35
3'736
3737
3740
3741

3742

3743
3744

;574,
3746
3741
37!5111

3751

3752

37'3

3754

3155

3756
3757
3760
3761
3762

3763

53•1
720
U11J0
U62

1100
3123
1003
6211
3523
1001
0016
1043

TAO

3H1

L66U1

1162
311JU
2125

62U

L66A21

7041
1003
7650
5362

31216

3770

K2000

USE
L66.4
TEM2

/MST CODE WORD
ISAVC LENGTH
/ADO EXTERNAL BITS
/GO TO PUNCH TV Dr:f'
/PLACE ;.SI!E IN INDEX 1.0C
IURO COUNT
/BASE: OF £ST .;. 1
/TO AUTO X1
liNC~£MENT COUNT 1.0C
/•TABLE SYMBOL

SYMBOL

I• CUR SYMBOL

....

Jr-IP

L66A2
L6643
TEMJ
L66

JMP

/YES
IS Ii!E Of EST
/!S TABLE EMPTY
INO ~~~ SEARC~ IT
/YES .~~ PL.ACE SYMBOL ON IT
/INCREMENT TABI.£ SI~E
/BASE
/•SIU
/GIVES A00R£SS or NEW £1\JTRY
/PHYSICALLY PLACE ON TABLE

TEM2

5'713

USE
K3

!Si!

JMP

5323
1125

0017

cor u

/IS TABLE F'ULL?

TEM1

OCA
T[M3
OCA
CLA CMA
TA!:>
BSEEST
OCA
X1
TEM3
JU

2124

4436
3776

SNA CL.A
JfltP

5;$47

4764

ANO
TAO
OCA
JMP

TAO I
CDF' H
CIA

1411
6201

3537

ESTSU
M100
UD
SMA Cl.A
SERROR
UD
ESTSll
SlA
JMP
L66A1
CL.A CMA
IS!
ESTSU
uo
BSEEST
TAO
ESTSil
OCA
TEM1
TAD
SYMBOL
OCA l
COf' 0eJ

6201

5365
1041
3124
3125
7240

j'I

COF' 10

312' 5

31~4

L66A3,

3764
376!5
3'766
3767

3103

PAGE 5~

ROUTINE TO SEA~CM EXTERNAL SYMBOL TAl3LE
roR CUR SVMqOL • RETURNS EXTERNAL SYMBOL
~U~BER I~ AC • PLACES SYMBOL ON TA8LE
AND OUTPUTS 51~ CODE roR TV 1r NOT o~ TABLE
TAD

3101

3U2

L66,

1315

3717

3068
3'!169

311171
!171
3072
U1J
3074

NJ00
1100

7700
5'77

3722
3123
3724

3061

11128

3066

U65

23"SEP .. 69

/COMPARE

/SAVE

/NOT SAME ·, ,..,. ANY MORE
IVES·,··,·, KEEP TRYiNG
/NO ;,; PL.ACE O~ TABLE
/Pl.ACE COUNT IN AC
/RETURN

OUTPUT BINA~V EXTERNAL SYMBOL

L66A,

MC BPS
JMS I

... 1

JMS 1
K1

OUTBJN

ICHECI< TO SEE IF' COMMON HAS BEE~ PU~CHEO
ITV OEf F'OR 1 SYMBOL

IS 6. ~ ·:, r 15

t'Al.h·

V135

?3,;.SEP•69

1112e

PAGE 50-1

4774

JMS

L62A1

:s1;·a
3119
31H!

3771
3772

11~0

TAO

ESTS Il

3773

5713
2315

JMP

IPUNC:._. ASC: 11 Cl-IARS
/EST NO TO AC

t.66

IRETU~~

_3'111

3775

3112
3113

3176

31/7

3774

L62A11

7100

t-'11111171,

L68
.. 1~0

G'~l?.1

1<11

IS.A.Sr< 1.8.15

PAL10

1/135"

3114

4!DH

•4000

2 3~SEP.w6'.9;

1:1:J 2,8·

P.j&;;E.

51:

3.115
3·U6

31.17
I

3118·

3125

/SYM80l T'A·BL~ LJS.TING ROU.UNt.
ITYPts: T-AB:l,-_£. FRQ-M "·S:T'f P.-tt U.P'
/WI T-H NAil4E.!tVALUE.•f'LAG
/POS$lBU F'.t...AG_S AR-£·1 EltT1, COM·, ut1tor,. A8:$, OPA
/ll'·L.AGS; TYPt;;O, SY "S~Tf.T"
IT lB-L.t. I. I UE:D AVMA8£ Tl CAl..L Y· W.J·T·M. N-UMER.·I C
/CMARACT·E.R:t. ,GT, AVHASE.HC

3126

3119
3120
3121
3122 .
3123

3~124

3127
3128
31.29
3130
3131
3132
3133
3134
3135
3136

31.37
3138
3139
3140
3141
3142
3143
3144

3145
3146
3147
3148

3149
315~

3151
31.52
3153
3154
3155
3156
3151
3158

3159
3160
3161
3162
3163
3164
3165

4-000
4U!1
4002
4003
40~4

4009

4006
4007
4-010
4011

4012
4013
4014
4015

0000

Pr LG

/CL.A PRS:YH-;p·:ASS: F"L_AG

7650
52ei7
1042
3054
4424
1375
3127
1172
3150

SNA- CLA
JMP
• •:3
PUNCH
TAO
DCA
TYPE
JMS
CRLF'

/LIU ON H·, S, PUN CM

11·11·

4021

1127

4030
4031
41:'132
4033
4034
035
4036
4037
404fl'I
4041
4042

?650
5337
H32
e121

4~43

3166
3167

3168

4{1~0

TAO I

PRS11.

11301

TAO

DCA

1~05

4017
4020
4021
4022
4023
4024
4025
4026

4044
4045
4t'.!46
4047

DCA

3011
11i:l40
3411
2150
5216
1016
3150
3126
1[1'107
104'1

4016

PRSVM,

312·'

TAO
OCA

P:ST

SPTR
M3
At.EN
APTR

lSl

AL.El~

TAO

K3
ALEN

OCA

/J·NJ T SPTR

A·T TOP OF" PERM, s·:T·,·

lll'ILL S11S2:1S3 WITH 17'11•5 PitAX)

)(1

CMA
DC.A
JMP

PRS21

t.SfOEP

,.3

OCA

F'OU\JO

TAO

STT

/ANO 1.ENGTM•3

/CLA EXIT F'LAG
/MAS suqcH HIT ENO OF' TABLE!

CIA
TAD

SPTR

SNA CLA
PRS7
JMP
OBSYM
JMS
SPTq
BCODE
TAD
1(3
ANO

e016
3137

DCA

EIL.E\I

THE A•SYM WE HAVE
GET NEXT MST ENTRY

/YES1 USE
1~0.

/E:lCTRACT 1.ENGTM

1~03

TAD

BPn

/INDEX NEW Et\!TRY

3012
1137
?041
3140
1150
7041

DCA

X2
BL.E ~

ISET Et\TRV

CIA
OCA
TAO
CIA

BCT~
ALE~

/SET AeSVM CTR

~141

OCA

AACT~

10e5
3J11

TAD

TAD
DCA

APT~

CTR

I I NOEX A,.Sy"I

~·AL

/SA8'-,"1"'
3169
31 ' "
3t'71

3172

_( 17 3

3174
3175
3176

112S

TA:)

764ii

4;'-:3
411 54
4i"J5

~;:57

PRS-~

l / '/ l

S2A CLA
J"1P
TAJ

'.S76

A'rn

4?56
4057

:~ .~

"iC A
TAJ

1t(~1

771.J

4061

3178
3179
3180
3161
3182
31@3
3184
3185
3186

4~62

1411
7141

32~5
:52~6
32~7

4063
064
4065
4066
4067
4'1170
40?2
42!?3
40?4
4075
4076
4077
4H'.0
4U1

5301
5332
2141
?4U
5332
2140
5262
2126

4H2
41'.~3

1003
3012

4H4

1;605

41el5

3011

4106
411.'?
4110
4111
4112

3411
3411

CDF' 10
TAO l

PRS5 1

!Si!

F"OU'\iD

TAO
DCA
TAO
DCA

BPTR
X2

DCA

OCA
DCA
DCA

X1
X1
APTR
X1

TAD

Bl.EN

4125

DCA

1w:l02

TAD

3142
1003
3143
1003

DCA
TAO
OCA

1014
3127
5225

P:TRY

SIT
CL~
hAS·~EE~-~RI~TrD

/YE~,

/(THE

F'LAG)

/YES, 1 G~JO~E IT
/\JO' CO~RA~E A•SYM w·'RD

JMP

TAD

CIA
OCA

PRS61

TAD
TAO
TAD

DCA
JMP

TABLE?

PR5t:i

PR56
BCTR
PRS4

IS~

3411

1137

/'JO

T~E

r...;:~u

/HAS hi! s S Y~'l:lOL BfE·, F'Rl\JTE"' ALREADY?

SKP

JMP

4126
4127
4131
41.32
4133
4134
4135
4136

/IS THIS Tl-iE F'IRST TIME

1'COOI'.

JMP
,•4
SNL CL.A
JMP
PRS5
PRS~
JMP
AACT~
ISl

4130

rAGr 51·1

e.. svt-t w'.JRD

/"1 l TH

SNA

3150

4121
4122
4123
4124

K3777
BC:Ofl[

COF' l1l0

1137

4120

TAO I
Xl
CIA CL.L

COF' Ul
TAO l
CDF' 01Z
DCA l
tSl
JMP

32~9

3221
3222
3223

J"1P

pq54,

1005
3011
113?
?041
3150
62U
1412
6201
3411
2150
5316

411.3

~cc

SPA CLA

6211

762~

3212!8

:5220

F~c:;3,

1412
62Z1
7450
5214

4071

4114
4115
4116
4117

32U
3211
3212
3213
3214
3215
3216
3217
3218
3219

111213

4?51

1)332

3189
3190
3191
3192
3193
3194
3195
3196
319?
3198
3199
3 20111
32U
3202
32cit3
3U4

4?~2

4?.!!)0

3B8

?.3..,SEP•69

PF'L,•';

3117

:5187

\;135

APT~

/MA TCf-1

SO F'A~

/A•SYM ~ORO IS BIGGEQ-.., USE
/VlCE•VERSA
/IS A,.SV"1 DChE?
/NO
/YES1 STICK "'I TH A•SYM
/ts s.. svM co• e:
/NO, TRV NEXT lo!OPO
/VES1 9.,5y,.. IS l\•Ew hSVM
/SET CONTlNUf: F'LAG
/INDEX e.sv~
/CL~

STORAGE F'OR NEW h5V"1

/RESET hSV/11

lNOtx

/CTR f'OR TR A~·SrER

ALEN
x2

/MOVE B•SYM TO

A•SV~

X1
AL.E'J

,.5

8LE ,~
AL.E'i
BVAl.
AVAi.
BPTR
ASAV
9PTR

/NEw

L.ENGTto!

/~~EW

VALUE

/NE'.w PTR
/MOVE SPTR TO \!EXT MST

81.E'IJ

K2
SPTR
PRS2

/CO\l'f I ~:LJE SEARCH

E'\iTRV

.. sv ...

/SABq1815
321?4

3225
32<6

3227
32?8
3229
J23il!

3231
3232
32:53

3234
32~5

32'.'6
3231
3238
3239
32•0
3241
3242
3243
3244
324!5
3246
3247
3248
32-49
3250
3251
3252
3253
3254

!255
!256

41-H
4142'
4141
4142
4143
4144
4145
4146
4147
4150
4151
4152
4153
4154
4155
4156
4151
416"
4161
4162
4163
4164
4165
4166
4167
4170
4171
4172
H73
4174

3257

3258
3259

3260
3261
3262
3263
;su,4
::5265
3266
3267
3268
3269
3270
3271
3272
3273
3274

F'AL.1~l

V135

23.;.SEP .. 69

1126
765JZ

PRS7,

TAI)

/NO, EX IT

IJ8SV••

/V£S

TAD

OCA

1172
3150
1411
4423
2150
5355
4423
1142
44::55

TAD

OCA
TAD
JlitS

ISl

JMP
JMS

1006
4774
5210

PRSS,

5600

X1
M3

Al.E:\I
X1
CTVPE
AL,Et.i

JMS
JMS
JMP

CRl.r:"
PRSVM

STi;'T t t ST;T
ASAV•UMIC
PF'l.G•T£M3
PST,
STTP
Al.,EN•S0
AF'TRaAU
BPTR•SYM60L
BVAL~VAL

BCOOE•USE
roU"ID"TE.'.M-4
SPTR•TEM5
8LE"'•LF'S
ecTq•oP
AACTR•JB
AVAL•AF'S
K37771 3771
LSTOEP, LSTOEV

/SET MAS.,BEE~'"PR 1NTED BIT
/SET PASS F'LAG
/POS I rt O~J PR I NT
Ir Non SYMBOL
/SET CTR

/PR PT SYMBOL

,.:s

STF'TI
PRS1

0001
0126
U27
n31

3777
6531

PfL:;
CRL.F'
APTR

0002

0141

~ 4 ~~ ~~?

use:

RTL
IHL
JMS
JMP

JMS

7~~6

Ci142

SEE~ rou~o1

USE

CTYPE
AVAL.
OTVPE
USE

TAD

1"H'1

014~

4176
4177

PRSd

J"1S

10~5
3~U

2430
0150
0005
0003

/MAS Al\OTJ.ff R sv~BOL.

j!>IP

!JC ti
!St

2125
4424

11!125

417!5

51·2

Jt.!S l
ASAV
TAD
HQ

3~1711

6121
0143

PA~E

St\JA CLA

5371
4432
('143
11ill1
1l41

4424
4424

F'OU<~

11128

/?Rt~T 2 SPACES
/PR!/\T VALUE

/"10VE TYPE 8 l TS TO LOW AC
/4 DEF', 81T TO LINK

/TYPE F'LAGS IF' A~Y
/LOOK F'OR ANOTMER SY~BOL TC l:.'Rt"lT

CRL.F"

/TOP OF'

PERMANE~T

SYMBOL TABLE

/SA:~;,

f,15

V135

11128

.~?75

3?76
32"17
~ ?.7 8

3;;i::5

/ROUTINE To PUS~ oo~~ CUR1Ll~E FOR N[XT PAGE.
E~TIRE LIST Jr VITAL INrO
/fLFS, OP, 18,,~,,BA~K• S~) IN T[MP,LOCS
/(TLFS, TO?, TIS,,,,, TS~)
/BOT~ LISTS MUST SE KEPT IN SPCC!F'JED
/ORnER,
11r TMERE rs AN LrS n~ LINE ~UST MARK IT
/~0-LONG~R·OEF'lNEO•O~~PAGE I~ PST,

J2 ·\6

/SAVES

~279
·~?. ·i 1.1

32 .. 1
32"2
32<3
32-i 4

32;; 7
32;;a

32;'9
JnC!!

32:; 1
3272
3293
3294

3295
32S.6

. ~297
.

3298
3299
33?2J
33:'1
33 ·2
33 -3
3 ~< 4
3 3. 5
33.· 6
33;· 7

33"8
33'9

33H'!
3311
33J2

3313
3314
J315
3316
33~7

3318
3319

337J
33!'1
33?2

42 0
42 1
42 2
42 3
42 ,•4
42-'5
4?1:6

4217
4212'
4211
4212
4213
4214
4215
4216

;-i~~

SPSTAB

/GET ITS PO INTERS TO

J"lP
JMS
LF'S
JMS

ni~0

~OP

1514
~· 256

TAO

PST CPR

ANO

1(3177A

~514

DCA

PST CPR

4237

J"IS

PUS~ER

~ 136
4224

JMP

?6l0

4221
4222
42?3

4237
4224
•: 1J6
5617

42~6

INO

4432
'137
4450

7200

423el
42·31
4 2 ~~2
4233
4234
4235

PS~I "J2
oesv~.

?213

n~0

4?.;>7

/IS TlolERE A'Ii LF'S

SNA Cl,.A

42?~

4 2::? 4

LF'S

765~

4217

4225
42;;>6

•'TAD

1137

eie

JMP
;~

Tit3,

r·0~0

Hrs,

'11000

'TUMIC1

,. (.'}j't

Ti\JSGN 1

;•V.'00

T[XP 1
TS'<,

ii'

.:iN0

/RETURN

lQ?,

; {, ;~0
UV'0

LF'S•1
TLF'S•1
PUSiojJN

POPI\i1

I /.(121
"'i?i()

/SET PAGE SYMBOL TABLE CODE WORn orr PAGE

QOUTINE TO POP UP

lLF'S,

A PUSMED DCwN

INSTRUCTIO!\J

PUSHER

n.rs.1

LF'S•1

POPI~
/RETUQN
/KEEP TMIS LIST OROERE6 AS GIVE~

TBAt~K 1

TS?,,

.33:>3

33;.>4

3325
3326

/TQA~SF'ER

;n='7

/CALL

3328
3329

I
I

ANV LIST

JF'

le (12 OCTAL) ITEMS

IF"< 0 H 0 ·~ E LI S T T 0 A', GTH f R
SE~ 1 1

JMS
ADD~·1
ADD~~1

PAGE SVM80L TABLE

/l<ILL THE OErlNEO en

I
I
I

CLA
JMS

T~E

PUS~ER
F'RC~~LIST

or Ta-LIST

/SAB;.,815
333i1i
3331
3332
3.333
3334
3335
3336
.3337
3~38

3339
33421
3341
3342
3343
3344

3345
3346
3347
3348

PAl,.UJ

V135

23.;SEP•69

I
I
42~7

0000

424111
4241
4242
4243
4244
4245
4246
4247
4250
4251
4252
4253
4254
4255
4256

1255
3123
1637

PUSMERt

11128

PAGE 52•1

RET,

"TAO

OCA
TAO

3~11

OCA

2237
1637
3012

lSl

OCA

1411

TAO

3412
2123
5247
2237
5637
7766
3777

OCA

TAO

M12A
TEM1

/CTR

PUS'1ER
X1

liNDEX F'ROM LIST

PUS~ER

PUSHER
X2
X1
X2

tsl

TEM1
,.J

lSZ

PUSi-lER
PUSHER

JMP

JMP
•12

M12At
K3711At 3177

II NO[)( TO LIST

ISA8;;,o1~

fAL1

'vl :S5

;;3 .. SE.P .. b9

5°34 9

Ir.ET'<~,

33~7

4::?S 7

33"'2

42~~~

7 41 ;~

3353

42 '\l
4 2f. 2
42i-3
421.,4

:- .264
7.'.'.00

J'1P

5~75

4;:><,5

33'J4

3J':i5
33'56
J 3" 7

~'!-\ T

j ·~ :~

421.!6

4451
3313

I E"'qOR
I
I
i)C A

~3';9

42~7

42;~0

J~S

33~21

4270
4271
4272
4273

1ii"14
4714

TAD

7bU

SKI'

33'.iS

3H1
3362
3363

3364
3365

3366
3367
3368
3369

337.(1
3371
33?2
3373
3374
3375
33?6
3377

3378
3379
3380
3391
3H2
3383
33A4
3385
33~6

4274

4275
4276
4277
43;,0
43!1
43~2

4313
4304
43115
43~6

4;,p7
4310
4311
4312
43'13
4314
431.5

H~2€

351?
131.2
3521
4715

,J'1S
J'1<;

SK I 1'i_
Sl.iE.; T
p;; T J;

PJS:ll\i
r<.2

TAO

I( 3~~

r.C4

PTC;:>q
'JOTRT1\!
i:>TS:>:<
PRT'J3
K13,,
PTC::>q
?RT ~.0
PTSP'l

TAD

'JCA
JMS
TA'.J
f)CA

1017

/ .. QTl-I t \';
IS Y"-8C!.:.
ICO~·ST A" T

ILITEi:;iAL
/PLACE :. Y;18 '.JL a~· EXTER\'AL SY'l8("l1 ui:n.r
/SA\/[ SYM"OL ID
/PUSl-I u·s I liF'O I.~ CASE :Jf PAGE l\SSE~~lY
/SET AC TO 2
/ARr T~Un 2 LOCATIO'-JS c !~ p.q~ PAGE
/YES
/fJO
HAO TO ASSEMBLE PAGE
It
l\lfTIALIH PT
/POP LF'S PIF"O F"RC)f.4 PAGE PUSl-I LI~T
/PRCCESS MJV LF"S
/PT COD£ WCRO . . n ... F-'OSS I 81.E 1.rs BIT
/AOC SP[CIAL qELOCAT Io~-: BIT
/Pl.ACE PROPER CMf i.\C"RD ON PT
/PLACE JMS , RTlli I ~STRlJCTI ON I'! CIT SVMl30L lrJORO
/INCRE:'1E~T PT PC INTERS
/PROPER BIT PATTER~J
/TO PT COOE' W~~D
/PLACE F:XTERNAL SYMBOL ,·,UM8ER QI\: PT
/AS SV"150L WORO
I I NCRE:>1ENT PT PO I NTfRS
/EXIT HR N()(T LINE

000k'J

PRTN~ 1

2646
1552

PRhi1,

PRT'-13,

IF'F'SU8
ASMIF"l

I
I
I

GIPALJSE@ PSEvDO OPE RAT I ON

4726

3394
3n5
3396

4325

5433

3397

4326

1772

'"40

3106

33~3

TAJ

PRT~3

POP EXP
~TN

PPAUSE1 JMS I
WLt-- IF'1
CLA HLT
RF'C
P:l TRP
J~S
JMS
SKIPL
CMA
F'OFH'LG
ClCA
1

J~P

\..Lt• IF' I,

1-v~1n

OCILl

...

OCA
JMS
J"lP
(;QTRTN, JMS

?602

5 ~~

''[ x T !.'!P:;T IH'

/GE. 'T

3517
1313
3521
4115
5440
4f/J40

6014
4172
4446

3398

I .. '~

P~T ':t
JMS l
CLA
JMS I
Pil
P(')P I'·
J~S
J~S
ICPLrs
PTC 0 ;,
'TAD

4430
4217
4421
1517

4316
431?
4320
4321
4322
4323
4324

3387
3368
33A9
3390
3391
3392

:;[T .,.,. .,,

~KP

•(IP

.: 446

r AG~·

i-lSJ[JC•OP

3V'1

1427

1112'-

/LIST l F' PASS 2
/loA?T F'OR

OPE~ATOR

/SELECT REAOER

ACTION

/WE t<EACl-I THIS 0\ILY IF' fORF'LG, LE,
/Sl-IUT OH F''.'lRTR IN CASE GUV
/l-IAS STARTED HIS TAF'E !"-!
/T~E M IDOLE
/RETUR'; F'C"R NEXT LI\E

l2l

/SABR,1::11~

PALF

3399
34?0

34 '4
34l5
34 ·'6

/OVER AL ASSEMBLV
V0~0

34~~8

4333
4334

34?!9

43,~5

3410

4336
4337
4340
4341
4342
4343
4344
4345
4346
4347
4350
4351
4352
4353
4354
4355
4356
4357

3412
3413
3414
3415
3416
3417
3418
~H19

3420
3421
3422
3423

3424
3425
3426
3427
3428
3429
~431

436111
4361
4362

3432

4363

3433
3434
3435
3436
3431

4364
4365
4366
4367
4370
4371

3430

3438

3439
3440
3441
3442
3443
3444
3445

4372
4373
4374
4375
4376
4371

I I\ IT A,

6201
3173
4424
4424
1376

3411

11128

PAGE 54

l~ITIALIHTIOf\J

4327
43.30
4331
43.S2

34.'7

23,;,SEP,..69

34'1
.3.4Z2
34,~3

V135

"'car ei0
'JCA I

F'AT4LP
CRLF'
CR Lr

3774
4237
4357
ei075
4772

JMS l
Jt-1S l
TAO

PE:B

DCA
JMS

P£PTRP
PUS ... ER

1640
5727
3003

SlA Cl.A
JMP I
IN !TA
DCA
SYMBOL.

4717

J!4S
rlCA

JMS

TAD

3062
1156

TAO

4237

JMS

4355
4775

7517

2430
0117

02u

011100
0000
0011J 0
0001
0H1
0000
fi1!011J0
0000

4574

27"0
5522
4714
e700

2311

ESTSI~,

E~VBIT

HICOM•1
lNITFlP
PASS
/PROTECT F'RO~ RUSVL.

l NITMP

CSU'-1
K1Z
PU5'1ER
OTPR•1

/SET PUSl'I C:TR~•2
& STP

/INIT OTP

OTP .. 1

e005

5721

l!NIT MICO"I, PAGE,

1<717•1

LEAD I
JMP l
lNlTA
CORE1•1
/KEEP STTR f MMED IA TEL Y AF"TER OTPR
STTP
KEEP ITEMS SQ I~CLOSEO IN GIVEN OROER
JMS l

.....

OTPR 1
STTR 1

K7771

17'1
200
P!

Ill
l1l

1
1
l2l

,INJTRP,
.•................
INITR
111

rATALP1 F'ATAL

PEPTRP, P&:PTR
LEAD It LEADER
PEB,
PE:BSE
l"IITMP, IlllJTMR

& AP~SW ETC

v1Js

11128

PAGF'. 55

•44?'1

3446
3447
3448
3449
34'3'11
3451
34"'2

I
I
I
I
I
I
I

,34~3

34'-i 4
34'55
34';6
3457
34=-8

ROUTINE TO SEARCH SYMBOL T4BLE fOR SYMBOL IN S0•S3
PLACES SYMB~L ON TABLE Ir ~nT THERE
CALL. JS
JMS SRSYM
rJ 0 T

r 0 UN D E X IT

F'OUJ>JO EXIT

/RETURNS WITH SYMBOL CODE BITS IN "USE"
/SY~BOL VALUE (0 If ~OT oErJNED>
/IN "VAL"
/4 PTR Tn SYM,TAB, E~TRY IN "SYMBOL."
/THE LATTER ADDRESS IS REPERREO TO MERE IN
/AS THE SYMBOL "10"
/SRSVM CALL RUSVL TO STORE USE & V4L
/Of LAST REfERE~CEO SYMBOL lN MST
/I~ CASE THEY MAVE BEEN CMANGEO
/JN TM~ MEANwHlL£ 1

34~9
~4~0

3461
3462
34~3
34~4

3465
34f 6
3467

3473

44/0
44 i'1
44'.'.'2
44l3
44 -~4
4475
44::':6

'3474

44~7

3475
.~4 76
3477

44U

~4!'18

34t'9
34H'

3471
3472

3478
3479
34~0

34:21
34F-2
3 4 ,;:J
34~4

'~ 4;; 5

,14"i6

3 4 .. 7

4411
4412
4413
4414
441.5
4416
441. 7
44;;>1!1
44?1
44?2
4423
44:24

V('('!0

JMS

1043
3ftft3
HHl7
7ii'41

TAD

TAO
SNA

1124
7iil41

3123
1 l.23
1150
764~

5244

44;:>5

1~05

3ill11

34;3
34''4

4431
4432

3495
34''6

4433
4434
4435

~4G7

44~6

349~

4437
4440
4441

3499
35··0

3l03
3t'112
6211
1412
7Z41
62l1
1411
764Z
?244
2123
~231

SRS3,

RUSVL
HST
SVMB".lL
STT

OCA
TAO
Cl A

lk.'03

4426
4427

34n

SRS11

765e
5250
6211
1403
621/11
(>(]16
3124

3 4 ·~9

44.~0

4335

34'18
3492
3491

SRSYM1

Cl.A

/START AT SY~, TAB, BASE
/SET PTR, TO ~EXT E~TRY
/CO~PARE PTR, WITM SYM, TAB, TOP

SYMBOL

JMP
COF' 10
TAD I
COF' 00

SRS2

/C0'4Tl NUE SEARCH
/NAME NOT I~ TABLE

SYMBOL.

/GET ENTRY CODE

4~D

/EXTRACT SYM80L LENGTM

JCA
TAD

TEM2
TEM2

CJA
DCA

T(M1

TAD
TAD

St'

/~£GATE

E~TER

~ORO

F'OR COMPARE & CTP,

TE Ml

SH CLA
JMP
SRS5
AS0
TAD
DCA
X1
TAO
SYMf30L
X2
DCA
cor 10
X2
TAD l
CIA

/SA~E LENGTMJ COMPARE LETTER~
/NOT SAMEJ G~ TO NEXT ENTRY
/AUTO•JNDE~ LOOP•U~ SYMBOL
/AUTC•I~DEX

TABLE

E~TRV

/GET TABLE [\TRV

C~AR,

/CO~PARE

SVM~OL

PAI~

CDF' 00

TAO I
X1
SH CLA

JMP

SRS5

IS~

TEM1

JMP

SRS3

L.OOK•UP

/SA "!E
/1110 ~ ATC11
/CK SYM, LE"•
/~OT

C~AR~

CT~.

DONE, TRY \EXT CMAq, PAtR

PAIR

/SA3.,,815

PAl.10

V135

23;.SEP•69

35~1

432121

SRS4,

JMS
JM!t

35.?2
~5?>3

35?4
35?5
35l6
35l7

4442
4443
4444
444,

4446
4441

56Ql0
101213

SRS5,

111l 14
1124
52rZ!3

35~8

TAD

SYMBOi.
K2

TAO

/GU USE

SUSVL

l'TR TO LAST ENTRY
1•2 FOR USE & VAL WOROI
/•ENTRY SYMBOL LENGTM.
l1PTR TO NEXT ENTRY

TEM2
SAS1

35'!9

/CURRENT SYMBOL !llOT ON TAIL.£

3510
3511
3512
3513
3514
3515
3516
351'
3518
3519
3520
3521
3522
3523
3524
3525
3526
3521

3528

3529
3530
3531
3532

3533
3534
3535
3536
353?
3538
3539
3540
3541
3542
3543

4450

4451
4452
4453
4454
4455
4456
4457
4460
4461
4462
4463
4464
446,
4466
4467
44?1!1
44?1
4472
4473
4474
4475
4476
4477
4500
45i!1
452'2
45~3

45~·4

451?5
45ll6

111106
'141

SRS21

1~03

115111
76;'50
5577

OTP

TAD

SYMBOL

TAO

/WILL NEW ENTRY FIT BELOW
/OCCURANCE TABLE?
II LINIOYES

/NO, SYMBOL TABLE OVER,LOW
1tNTRY coor wo~o ' SYMe LEN,

K100el

TAD

STT

/PUT CODE IN llT WORD
/AUTO•INOEX ENTRY

TAO
OCA
TAO

AS0

/AUTO•INOEX SYMBOL TO BE STORED

OCA

CIA
OCA

ERS11

PL.ACE tT TlofERE

TAO

CDF' 10
OCA I

1005

t ·~,

SZL Cl.A
S£RROR
se
TAD

1150
1030
6211
3407
1007
3012

3Z11
1150
7041
3123
6201
1411
6211
3412

TAD

CIA CLL

& VAL liilOROS

SRSY1'1

TAO
JMP

PUE "•1

11128

cor H
TAO l
cor 10
DCA l

STT
)(2

X1
S0

/•REI. BIT

0, NEW El\ITAY

/SET SVM~ LEN, CTR,

T£M1
X1
X2

/MOVE SYMBOL CMAR, PAIR TO TABLE

5271
3412

J"'P

ERS1

1001

TAO

STT

/Cl{, CTR,
/NOT DONE
ICLR VALUE WORO
/SAVE' PTR TO NEW ENTRY

/RESET PTR~ TO SVM, TAB, TOP

2l.23

lSi

OCA

TEM1
X2

3003
1012

OCA

SYMBOL

TAD

DC.A

62~1

COF 0el
JMP

STT

'Jil!llC'?
"2!1

5242

!AC

SRS4

v 1-~5

/SA~~.615

'!544

~545

I CB TA I 'J

.i546
3547
J543
3549

/CALL

35?2

3569

357"
3571
3512
3573
35?4
35?5
3576
35?7
35'78
3579

45?7
4510
45t1
4512
4513
4514
4515
4516
451?

?i:HH'l

I
OB"-lSVf"l,

4335
17i?
:H23
1523
3003
2307
4320
I
I
I

4520
45:>1
4522
4523
4524
4525
4526
4527
4530
4531
4532
4533
4534

Mi00
6211

~
J~S

5707

SUSVL1

1423
3001
1001
~016

7001
1003
3345
1145

>llJSVL

TAO

osr.svM

DCA

TEM1

TAO
OCA

SYMdCL

tSl
JMS

081\iSVM
SUSVL

J~P

08NSY"1

ROUTI~E

TO SET UP USE

?'
CDF' U

sv~~"L

DCA
TAD
ANO

i.JSE.

un
TAD

OCA

cor 00

5720

4535

riDl!i'l

JMP I

4536

3585
3586
35e?
35es

4544

e211
Hl01
3403
1002
3745
6201
5735

35?9
3590

4545

vilill0

35~4

RUSVL1

SV"180L

/INDEX roR EXIT

/SET UP USE ANO VALUE wJROS
/RETURN
A~O

W~E~

rou~D

VALUE WORDS

OCA

6201

or SVM~OL

/OF'F TO BH!K 1
/~ST US[ ~ORO FROM bA~K 1
/TO BAN~ z JSE LOCATIO~

TAO l

USE

/ADDRESS
/ACTUAL

TE~1

3002

453?
4540
4541
4542
4543

35~3

I ', F' ~· F'f~ r. :-1 " ST

rs~sv~

SYMBOL VAL~E I~ VAL~
CALLS QUSV~ ;EfORE At1IO\
/F'OR SA"1r ~EASO~ AS SR~VM DOES,

J5S21

3581
35e2

J I TAL

I
/08VSVM

3565
3566

3567
3568

J~S

FAGr:: 56

I
AD09f.SS nr; SVM80L !1
I
~IT,
I (l f.i ,, s v!-A LE Av Es s v "12 DL I ] I '. "s 'Y MFl c: L" '
I
sv~HOL C:JOE. .,QRi) 1~- l ..'SE,

3551
3552
3553

3554
3555
3556
3557
3558
3559
3560
3561
3562
3563
3564

r; I Vf \ 5 V " 8 0 L 1 ~

Sl~I

1112"

SYMBOL
VAL? TR
VALPTR
/MST VALUE vJORO F"ROt1 tlA <K 1
VAL
/TO BA~~ 0 VALUE LOCATION
/RESTORE DATA rtELO
SUSVL
/RETU~N

CDF 1~
TAD

USE

DC/\

SVi-ldOL
VAL

TAO

OCA

cor:- ee
JMP

VALPTR 1 0

VALOTR

RUSVL

/PTR TC CURRENT VAL

~ORO

~ST

/SAB=<,815

V135

3591
35Q2

3593
3594

/~EAD

35~5

3597
35Q8
3599
36?0
36,'11

36:l!5
3 6 e-6
362'7
3608
36?9

3610
3611
3612
3613
3614
3615

3616
3611
3618

3619
3620
3621
3622
3623
3624
3625
3626
3621
3628
3629

PAGE 57

A CMARACTER
IG~ORES Lr1 FF, RO, LEAOER
ALSO C~ECKS CMAR AS TO TYPE

/CALLING SEQI
J~S ~CM
I
RETURN IF C~AR IS A OIGlT
I
RETURN IF CHAR IS ALPHABtTf C
I
~ETURN FnR ALL nTHER CPU~CT,ETC)
/LEAVES AC:="
I
CMR~ASCIJ V-LUE or I~PUT C~A~ACTER
/CALLS SRT

3596

3602
3603
367'4

1112f-i

4546
454?

4550
4551
4552

4553
4554

4555
4556
4557
4562'
4561
4562
4563

eW:'.100

RC~,

4426
7450
5365
1371
7510
5365
1372
7510
5367
1004

JMS 1 GETCHR
SNA

/GET 1 CkAR

RCH3

JMP

lrll,ENO OF' Ll1'1E:

TAD M260
SPA

JMP RCM3
TAO M12

SPA
JMP RCH4

/TAKE DIGIT EXIT

TAD M7

75U

SPA

5365
1~H3

JMP RCH3
TAO M37A

4564

750121

SMA

4565
4566

2346
2346

RCM3 •

IS~ RCM
ISl RCH

/PUNCT, EXIT (337w376)

4567
45721

'2el121

RCM4 1

CLA

/DIGIT EXIT

5746
7520

M260,

4571
4572
4573

1766

7742

3630

C26~•271>

M12,
M37A 1

JMP l

/ALPMA EXIT

C3~1.336)

RCio!

"'260

•12

e36

lrORCE BUFF'ER rILL ON F'IRST READ

3631

3632
3633
3634
3635

3636
3 6 .37

4574

4575
4576
4577

0000
U?0

3013
5774

e1n

JNITR1

I"
TAD

OCA
JMP

M8E

)(J
I NITR

/•LAST WORD Or DAT4 8UfF'ER

/SA8Q,~15

~AL.10

V135

3638

4600

•460?.

23;SEPtt69

11128

PAGE 58

3639
36.C~

ISUBR TO READ 1 Ll~E F·TO LI~•E BUF"F'E:R

3641
3642
3643

467Z
46J.1

3644

46~2

3645,
36416
3647
3648
3649

3667

46;JJ
'46''4
46?.5
4606
46V:i7
4610
4611
4612
4613
4614
46t5
4616
4617
46?0
4621
4622
46?3
46?4
46;?5
46:?6
46:?7
4630
46 .~1

~668

46~2

365~

3651
36"i2
3653
3654
3655

36"i6
36?7
3658
J6<;9
3662'
J661
3662
3663
J664
3665
~666

~~ it:l 00

RL.N,

313i
11"7
7440

n.J0
4637
1012
1240
760
52ll7
7(140
1U2

RLN21

RL.N3,

31312

5 2 f(J7
3f.161
4637
3133
3131

RL.1\1151

3132

3669

4633

313'4
1170

~670

46~4

3ft10

3671
3672
3673
3674
3675
36?6

4635
4636
46~~1

516'4

46421

~i23

LF'L.G
SCOLON

SlA

5234

1170
3U2
4241
4453
1756
6766

OCA
TAO
JMP
TAO
OCA
JMS
JMS
ISl
JMS

RLN4
L.I ti.AX
X2
F'ETCM
TEST
Sl.7•1
8L6•Sl.7
LF'LG
STOREP

TAD

TAO
LINEt.iO
SU CL.A
Rl.N2
JMP
CMA
X2
TAD
OCA
X2
JMP
RL.~2
Cl1R
OCA
STOREP
JMS
OCA
AF'L.G
DCA
EF'l.G
DC4
VF'l.G
DCA
CODE
TAD

L.JNO

OCA

)(0

3107

DCA

~6~0

JMP

SCOLON
RLN

Rl.N41

J6-:i9

4641
4642
4643
4644
4645
4646
4647
46512'
4651

J6~q

36'1~

46S2

J6Ql

4653

.36Q2

46<;4

il00

4256
1' 163
1164
3tC61
1~61

1166
7440
1255
?65l
5242
5641

/GET A CHARACTER
/IS IT A CR1TA81SP1F'~1LF1
/I' SO GO TO RL.N15131J1212

/OTl-IERwlSE A lllON•NUl.L LINE
/OTl-!ERWISE PUT IT IN TlofE eur;u
/IS BUrF'ER F'ULL.7
/NO
/IF' SO MOVE BACK PTR
/TERMINATE LIN£ WITH I

/INIT 1.INE

l~OEX

/CL.R

STOREP 1 STORE
•L.lNBUF' .. 107
/SUBROUTINE TO READ 1 CHARACTER
/JG~.10RES 200'$ & 377 's

36 'l~

3691
36-12
.36 -'3
:36"4
36-'5
36:.':6
36"7

/INIT STORAGE AUTO•INDEX

I. J"'IE'\101

3671

3678
3679

ICLR NON•NULL L.1114[ F'L.AG
Ll~E [NOEO WITM
/NO NEED TO READ ANOTM£R

It' LAST

F'ETCM 1

vtA INPUT DEVICE

0
R
JMS
ANO 1<177

TAO

K200

OCA CHR
TAD CMR
TAO

"12•~J

SH
TAD M177
51\14 Cl.4
JMP F'ETC•H1
J1'1P l F'ETCH

/F'QqCE

F'ULL BBIT ASCII

1SA8~1815

3693
3694
3695
3696
3697
3698
3699
3770.

37/1
37:'2

37?3
37?.4
37:'5
37<16
3717
3'n8
;3179

3710
3711
3712
3713
3714
3715
3116
3717
3718

4655

F'AL10

V135

23;SEP•69

7601

1-1111,

w117

4656
4657
4660
4661
4662
4663
4664
4665
4666
4667
4670
4671
4672
4673
4674
4675
4676
4677
4700
47"1

0000

6211
1<'13

COF'

1;se4

TAO

7650
5267
1413
6201

TAO

R11

5656

1303
3013
4702
3413
1 lil13

RG,
RG1,

1304

RG3,

3.:'113

cor 0lll
JMP I
TAO
OCA

JMS
OCA
TAO

4n2

6610

47:~3

11cl17

eur,

47J4

6133

BUF'ENO, 1•Ll NBUF'

Jna

lNDEV1

/Cl< F'OR ENO O' BUFF'ER

BUF'
)(J

2£10~

L65,

X3
BUF'ENO

X3
R1

~SR

OAU•1

(/!

6211
1410

cor u
TAD I

6201

CMR

L65

4 71.2

31361
1 r2l61

4713

CDF' 00
OCA
TAD

57l5

JMP

/GET NEXT CHAR

liNOtX THE BUF,ER

INOEV
X3

/GET 1 CMAR rROM L.lNE BUF'F'ER
4705
4776
47'/J?
47H!
4711

/RfF'ILL.

SU Cl..A
RG1
J"1P
BUF'
T'AO

DCA
JMP

5264

X3
BUF'ENO

SNA CLA
RG
JMP
X3
TAO !

TAO

7640
5271
1303

3720
3721
3722
3723
3724
3125
3126
3727
313;:'!
3731
3732
3733

PAGE 58e1

/SUBR TO GET NEXT Ci"IAR F'ROM MSR BUPHR
/REF'lLL BUF'F'ER W11EN X3 REACHES ENO or BUF'F'ER

3719

37?9

11128

CHR

/CK FOR FULL.
/NOT F'ULL
/RESET PTR

/!HB~,!-1~

PAL1/

3734
3n5

37•~6
~7'!,7

47~4

H.38

47t5

~n9

4716

3740

4717
4722

~741

3742
n•3

.3744

V13~

2J .. S£P•69

F= AGF:

~OUT I 1\il

TO P;_:r,c»i LEAC[F< TRA I 1..E>< CODE

; z;.·ei
1166
~~ 123

LF. A ·;ER,

TAO
QCA

rt7 ...
H 1
<2 .1
P:J <C·•

47?1

1164
4442
2123
~J17

I St
JMP

n::,1

4722
4723

5714

J"IP

L(A;JE.R

3745
3746

TA~

JMS

I
I
I

3747
3748
4724

315e
3151
3752
3753
3754
3755

4725

7215
?212

0~6

~~000

47'27

7200
1324

CLA

4454
1.325
4454

JMS

413~

4731
4732
4733
4734

t ...

ROUTJ!\E TO TV Pf

3749

3756
3757

11128

RETU~N .. LI~~E

F'EED

1!'!215

L73,

1"212

TAD

5?26

3758

L1l"'2
TYPE

TAD

L73.1

JMS
JMP

L73

TVPE

!759

/OECIM & OCTAL. PSUEJO.,CPS

3760
3761
~762

4735

3763

4736
4737
4740
4741
4742

3764
3765
3766
3767
3768
3769

4446

n:u

74U
4446
3105
5434

POEC,

JMS

SKJPL

JAC

/SET ARJTl-ll.4E:TJC

co~.;ve:Rs

SKP
PQCT 1

r or-.: Tl') DEC I "1AI

JMS

SK IPL

OCA

os~

/SET

JMP

NUL.LP

/GO GET' N[XT 1".lPUT 1.INE

4RITH~ETIC

co~: VERSION

TO OCTAL

/SAB~ 1615

PAL.10

V135

23;,SEP"'69

11t28

PAGE 6t

371~

3711

3772

/ROjTl~E

TO STOP NEXT LINE FROM 8El~G LISTED
/TMO IT IS ALREADY r~ THE eurR,
IE,G,, STOP LISTING OF PUSHED DO~~ LINE
/~MILE ASSE~8LJNG LIT, POOL

31'13
..57?4
3175
377·6

3777
3718
3719

4743
4744
4745
4746

1763

3181
3782
3783

4747

4750

3784

4751

3780

3785
:5786
3787
3788
3789
3790

4752

47~3

@'10~

6211

TAO I

LI NE82

5352

S"IA
JMP

,•3

/SAVE 1ST C~AR or
/IP ANY
/Tl-IERE I SNT ANV

3362
3763
6201

OCA
OCA l

SAVEIT
LI NE:B2

/CLR

570

JMP I

SAVLIN

cor 00

LP~E

TO PREVENT TYPE: OUT

I
/REE~ABL£

/PREVENTED

LISTING OF LINE WHICH SAVL!N

3'193

3890
38211
38e!2

COF'

7450

3791
3792
3794
3795
3796
3797
3798
3799

sAvur-.;,

4754
4755

4756
4757
4760

4161
4762
063

6211
1362
3763
62U
5754
0000

1646

3803

REL I !\JE 1

cor UJ
OCA I

SAVE: IT
LINE82

J"1P I

RELINE

TAO

COF' 00

/QESTORE 1ST CMAR or LINE

SAVEtT1 0
L.INEB21 LlNBUF'

3804

3805

/ROUTINE TO LIST NULL1 COMMENT OR PSUEOO•OP LINE

3806

38el7

064

3808

065

3136
1U6

'766

3U2

4767

4771

477il
4711

5433

!U9
38U
3811

3812
3813
3814
3815
3816

1172

NUL.La

liiLJr,
I
I
I

3817
3818

4772

47?3

6046

3!119
3820

4774

3821

4775
47'6

6041
5374
72U

3822

4771

5712

0000

DCA
TAO

L6<11,

OCA
JMS
JMP I
io1LN?r1

VALUE
VALUE
VF'LG

/IF' ANY GIVEN
/SET TVPEOUT rLAG JF' NO Nd

WLIF"

/LIST IF' PASS 2

DCIL1

/GO SACK TO ROL.1 F'OR NEXT LI ~JE

TYPE ROUTP•E

e
TLS
TS!='
J"IP
CLA
J"IP

/SELECT IT
/WAIT F'OR TTY
•• 1

L64

/EXIT WITH CLEAR AC

3823
38~4

3825

3826
3927
3~26

3829

38.521
3831
3832

3833
38H
3835
3836
3831
3838
38.~9

3840

3841
3842
3~43

3844
3A45
3846

3847
3848
3849
3850
3851

38:>2
38".>3
3854
3~55

3856
3857
3858
3859
38()~

3861
3862,
38~3

3fl64

3865
3866
3867
3868
38~9

3870

3871
3812
3873
3874

VP5
3876
3877

PAL10

1/135

51"00

•5000
I
I
I

11128

PAGE 62

ROUTINE TO SET THE CORRECT COUNTERS F'OR TM[ CURRENT
OP CODE ANO ADDRESS F'JELD SYMBOL

/TMIS ts A MAJOR ROUTINE, IT IS CALLEO ONCE
/F'OR EVERY NORMAL (MRJ10PR1IOT> INSTR, COLLECTED,
/IT IS ALSO CALLEO DURING PAGE
/RECOUNTING, ONCE F'OR EVERY ITEM ON THE
/PAGE TABl.£1
/CALLl~G SEQf
ACf0,JMS,RET WITM AC•0
/F'U~CTIONI DETERMINE TME TYPE OF' LtNE BEING
/READ ANO SET TME VARIOUS PAGE COUNTERS
/ANO ;LAGS ACCOROINGLY1
/A F'LOW CMART or TYPES & 'LAG SETTINGS IS GIVEN BELOW,
/CONSIDERABLE OVERLAPPING IS USED TO ACHIEVE
/TME MJN, CORE USAGE, TMIS rs SOMETIMES AT TME
/£~PENSE or LOGICAL CLARITY,
/ALL POSSIBLE CONDITIONS EXIT VIA SETC00
/SETC001C1> IF' LAST INSTR, WAS A SKIP & LAST BANK
I
JS NOT• CUR,BA~I(, BANl<l•1,
I
(2) JF' CUR1 INSTR, rs A Sl<IP1 PGEESC!l4
I
OTHERWISE PG£ESC•2 1
I
C3> LASTSl<IP CONDITION~ CUR; SKIP CONDITION
I
C4> LAST BANK• CUR 1 BANI<
I

/F'LOW OF' INSTR, TYPES
/SETCTI IF' (PARAMETER OR MJCR09INSTR,) SETC~0
I
IF' <LITERAL ArS> SETC02
I
trCCONSTANT ArS> SETC01
I
CALL OBNSVMCArS>
I
tr <INSTR, rs INDIRECT> S£T0~7
I
tr CAF'S IS IN COMMON> SETC04
I
ir (ABSOLUTE •rs> SETC05
/SEARCM PST roR AF'S
I
CALI. SPSTB CArS>
I
CALI. SETSUB
I
tF' (AF'S NOT etrORE ON PST> SETC06
I
rr CAF'S WAS IN PST BUT NOT oEr, ON PAG£>SETC12
I
IF' COP COOE•JMS> BANK•1
I
GO TO SCTC03
/ON PAGE MR1
/SETC0111F' CCONST,AF'S ON PG,0)J2
I
tF' ClNSTR 1 IS JNO.lRECT> ERROR
I
CALL SLTABCCONST, AF'S)
/PUT CO~ST, IN LIT~TAB~
/J11
IF' (BANK NOT•1> SETC13
I
GO TO SETC~3
/PG,.-, INDIRECT
I
J2• lF'C INSTR,JNOIR,> J1
I
GO TO SETC0~
/PG,~ DIRECT
/INC OBACTR
ISETC041tF'C8ANK NOT e) CALL !NCOBA
I
CALL NUMSGN
I
S0~RESULT•COMMON AOOR 1
ISETC021CALL SLTAB(S~)
/LIT.OR, CO~MN, ADDR~ TO LfT, tAB,
I
GO TO SETC00
I
IF' (AF'S NOT PR£V, ON PST) 5fTC11
I
IF' (AF'S WAS ON PST BUT NCT DEF', ON PAGE> SETC11
I
GO TO .J3

PALU

/SAB~,815

IF'ORCE BANl<•1
/SET CU I AC•1
lrOFfCE BANK10
ISETCH 1 ACIAC•1
dORCE BANIChl
/SET CH 1 ACll AC•2
I INC OBACU
I
CALL INCOBA
/(BANK orrSET BY •1>
I
AC18ANK
/(TAKEN CAA[ or AT $[TC13>
I
GO TO SETC13
/StTC1Zarr (NEW PST CODE BITS 11~11•0LO SAM[ (IN TEM 3)) J3
10,F' PAGE SYMBOL
/S[TC0AllNC OPSCTR
/J31
I' (8ANK•1> SETcee
I
INC AC
I
CALL INCOBA
IJ•I
I' (THERE MAS NOT BEEN A PST SEAACM> SETCll
I
ADD CHANGE IN OBACTR COBACTA•OLOOBA> TO PST CODE BiT~ 3•9
I
GO TO SETC0a

JB8!J

38A6
3Hfl7
381'8

3889
3890
3891

3892
38Q3
3894

/NOT[f CONDITION AT J4 IS TESTED av S[TSUB HEADER
/WORD (09rLG> 1 THlS IS ALWAYS CLURED
/WHEN SETCT STARTS ANO WILL NOT CMANGE
/UNLESS THERE IS A CALL TO SPS'B BECAUSE
/A CALL TO SETSUB ALWAYS rOLLOWS CALL TO
/SPSTB IN SETCT,

3895
3896
3897

3898
3899
39~0

39e6
39?7

39l8
39219
3910
3911
3912
3913
3914
3915
3916
3917

3918
3919
3920
3921
3922
3923
3924

PAGE 62•1

3880
3881
.3882
3883
3884

3975

11128

/SETC101CALL NUMSGN
rr (ABS,ArS ON PAGE 0) J3

3678
3879

3901
39?2
39e'J
39?4

V135

5000

~0'110

5"'£l1
5l-0!2

4421
3334

5003

4733

5004

'160

5005

5715

5006

7240

50"17
5010

ll.42
7450
5716
1332
'1650

5011
5CH2

5013
5014
5'-1!15

52'16
5017

i;214

4432
V142

3925

5eJ;>1

1141
7640
5250

3926
.3927
39?8

5022

1i()01

5023

i:'.160

52!24

'6 4!il

39~9

5i'25

5717

.393~

5~26

.3931
3932

50:>7
5~30

502~

SETCT1

JMS
I CPLF'S
/CHECK F'OR ANO PROCESS ANY LF'S
OCA
OBF'LG
/CLR
/NEXT 2 LINES MOVED TO
/S£TCAL CAS or V1,, TO MAI([ ROOM roR F'OLLOWING INSTR, & PTR
I
TAO
EXP
/IS IT PAR OR A MICRO INST?
I

TAO

UMlC

TAO

JMS I
SETCAP
SU CL.A
J'1P I
SET~0 I
CLA CMA

/YES
/IS Ars A LITERAL.

SNA

JMP
SETJ2I
MM1
TAO
SNA CLA
JMP
JMS

/YES

/IS AF'S A CONSTANT

/YES

/NO~ ••

GET PO!NT[~S TO AF'S

AF"S

TAD

SH CLA

JMP
TAD
AND

IB
SETC"7

USE
1(4~

/INDIRE:CT BIT
/IS IT SET
/YES
/NO ••• AF'S MST USE WORD

SH CLA
JMP I
SET 1141

/IS •rs orr

1'101

TAO

lJSE

/Ars MST USE

71631

AND

t<Jk";~l

7650

SNA CL.A

8A~K

/YES
~O~D

(CO~MO\)

PAl.10

/SA8R,g1!>

3933
3934

5031
5Vl.J2
5033

V13'3

23;SEP,.69

~; 720

,J'1P

S[T"5 I

J"1S

SPSTAa

CMA

J"iP I

5~~4

4450
7040
4334

;~937

5~35

~723

3938
3939
394171

~l:56

1514

TAO

5e:H
504111

77li0
5730

SMA
J"lP

51"'41

1140

TAf)

5~~42.

1~41

5ET12I
OP
K4VJ~;~

5043
517144
"5045
5046
5047

?64[ill
5715
?201

TAO

39~~5

3936

3941
3942
:3943
3944
3945
3946
3947
3948
3949
395rll
3951
3952
3953
3954
3955
3956
395?
3958
3959
3960
3961
3962
3963
;:s964
396'
3966
396?
3968
3969
397"
39?1
3972
3973
39?4
3915
3976
391?

3978
39?9
3980
39~1

3982
39AJ
3984
3985
3986
~98?

5?15

I
I

5rll50
5051
5052

5053
5054
5055

5056
505?
5060

5061
5062
5063
5064

5065
5066
506?
507"
5071
511172
5073

101Z11
U57
1640
5724

S[P6!

PSTCPR

SlA CL.A
JMP I
SETl01
CLA IAC
BAfliK
OCA
JMP
SET"'~ l

12'031

765eJ
5726
4450
7040
4334
572?
1514
1700

5?:z?
5?31
I
I

...

/'.~a I I I MUST 1;£ orr PAGE
/YES
PST CODE WORD
/IS Af"S ON PAGE

/\iO

/YES
IJ\iO

/YES

...
......

IS OP CODE A J'1S
JUST CONTINUE
SET BArvl( TO CURRENT

/Ars "1ST USE WORD

K20

11 S AF'S OUM MY

JMP l
SEUSJ
USE
TAD
1(0)
ANO
Si!A Cl.A
JMP l
SEU91
USE
TAD
K3~:.rn
AND
SNA Cl.A
JMP I
SET1Z I
JMS I
SPSTAB
CMA
JMS
SET SUB
JMP l
SET11 I
PST CPR
TAD I
SMA CL.A
JMP I
SETU l
JMP I
SET6P1

7640
5725
1;/)01

PST

USE

SH CL.A

e16~

O~.

I ND I RECT ME'10RV REF'ERANCE l\JSTRUCTtOlll

SETC07, TAD
ANn

1~01

62-2

FOU~.1D

SETSU8

C::l.,A
[

I= AG!!.

/YES
/[ S AF'S
n~OT

JMS

310

111213

/YES
MST USE

IA~S

~ORD

11 S AF'S OH BANK

C COMMO''J)

/YES
IAF'S MST vSE WORD
/IS AF'S ABSOL.UTE
/YES
/IS Ars ON PST
/NOT F'OUNO
/NO
..
/YES I t I PST CODE WORD
I IS Af'S O~ PAGE
/NO
/VES

CONSTAtllT F'OR Af'.i AOORESS F'!ELD SYMBOL.

5074

5075
5076
5rll77
5U0

51;il1
5102
5103
5104

51CIJ5
5U 6

5107
5110

1150
U.66
7650
5311

1141

SETC01, TAO
S0
K?6~0
AND
SNA CL.A
JMP
SET JU
TA'D

444?

'1240
1147
7650

5715

5?21

SU CL.A
I ERROR
JMS I
SL.lUB

7640
5575
SET(llB 1

CL.A CMA
BANI(
TAD
SNA Cl.A
JMP I
SET0"-'I
J"IP l
SET"""J

/ACTUAL BINARY CONSTANT
/IS CONSTANT ON PAGE i!ERO
/YES
/NO

...

IS IT INDIRECT

/YES
ERROR
/IS CONSTANT ON L. I TERAL TABLE
/IF' NOT SUBROUTINE PUTS IT Tl-li;:Rr
/BANK SETT I NG
/IS IT SET TO THE CURRENT BA~I<
/YES
NO PROE1LE~S
/EXIT TOI C0"4MON AREA

...

/SABQ,815

PAL.1rl

3988
5111
5tt2

1141

39g2

511.3
5114

53'1'4

3993

5115

39r19

:3990
39'H

3994
3995
3996
3997
3998
3999
4Z00
40~1

40.,i,2
4003
4004
4005
4006

4007

V135

23;SEP•69

PAGE 62•3

11128

5116

5117
5120

5121
5122
5123
51::>4

5125
5126
5127
5130
5131
5132
5133

SET'1J1A1

">71!';
5251
5306
5J0iil
520~

5236
5600

5231
5217
5221
5212
5220
5224
5232

1117

U.65

TAD

SH CL.A

7640

JMP

JMP I

SET0ll,
SET02 l 1
SEU41 1
SE:TC-151,
SE T!lli2!J,

115 I'IDfRECT BIT SE:T

SET :~1s
SET.Ji'!

/YES
/~O

SETC00
SETCt12

SETCf'4
SETC05
SETC13
SET00B 1 JMP 1
SET CT
SET06J; SETC06
S£T08J, SETC08
SET091 1 SETC09
SET1011 SETC10
SETU I, SETC11
SET12 I, SETC12
SET6P1 1 SETC06*1
MM11
111
S£TCAP; SETCAI..

IOF'F' PAGE RETUs:!N

/SABQ,815

PALU

V135

11128

PAGE 63

4212'8

4~09

/SETSUB IS A UTILITY USED BY SETCT ONLY,
/USED ONLY JMMEOlATELY ArT£R A PST SEARCM,
/CALLING SEQUENCEI
JMS
SPSTB
I
CMA
/SPSTB MAY SKI'
I
JMS
S[TSUB
I
RETURN IF SPSTB SKIPPED OVER CHA
I
RETURN I' SPSTB 010 NOT SKIP
/MAS SEVERAL ruNCTIONSI
/(1) SAVE COPY or OLO VALU[ 0' OBACTR BErORE
/CHANGING STARTS• SO IT MAY 8E USED AT SETC131
1(2) Jr INSTR ls INOlRECT, TMAT•S lT• EXIT
1(3) OTHERWISE SAVE OLD VALUE or PST CODE BITS 10•11
lrOR LATER USE AT SETC12~ WARNINGI TMIS
/IS SAVEO IN TEM3, SO TEM3 IS NOT
/TEMPORARY roR A rEw MINUTES,
/(4) SET PST COOE BIT l0 1r THIS IS A #R[r~
/OR BIT 11 IJ IT IS A NORMAL Rtr,
/ALGORITHM IS A,OR1B~C,NOT1A1ANO,B>•A

4i.!10
4?.11

4;,12
4l13
4r1114
4~15.

4"16
4017
4218
019
4i20

42121
4022
4V'23

4r?l24
4025
4;.i!26
4~27

4?-?8

4Z29

5134

e~00

4(13"

5135
5136
5137

3123
1074
3763
1141
7640
5360
1514

DCA
TAD
DCA

rtii'l16

4Z31
4a32

40~8

5140
5141
5142
5143
5144
5145

411.139

5146

4'1!4l

514'1
5150
5151
5152
5153
5154
5155

4~33

4034

4:1!35
4?36

4i2137

4el41
4J42
'"43
4044

42145
4;,46
4'114 7
4~48
4~49

4'115i
4'l51
4IG'lr;2
4i53
4~54
4~55

5156

5157

5160
5161
5B2
':>163

SETSUB,

TE"41
OBA CTR
OLOOBP

TAD

TAO

PSTCPR
K:S

3125
1144

ANO
DCA
TAD

NSGt.ii

7640

SH CLA

7001
3124
1124

lAC

SU CLA
SETSX
JMP

TAD

CMA
AND
TAO

7~40

V-514
1124
3514
2123
2334
5734
5276
5134

SETSX1

DCA

!Sl

rs!

JMP

/OMIT CHANGING PST BITS !P l~O!RECT

/SAVE OLO CODE

TEM3

OCA

1e,rOUN01 •1•NOT
/SAVE 'OR SETC11112161l3

1•
T[M2

TEM2
PST CPR
TEM2
PS TCP~
TEM1
SETSUB
SETSUB

/OR INTO CODE

1'0UN07
/YES

OLDOBP, OLDOBA
OBF'LG•SETSUB

4056

4'1157
4r1158
4059
4Vl~V'l

41-bl

4Jib2

/SUBR TO STORE C~ARACTER IN Ll~E eurrER
/ASSUMES X1 SET
/C~AR MAY BE lN AC QR lN CMR

/SliBQ,615

PAL.U

4l'l63
406 ..

5165
5166

4065

5167
5170
5171

4~66

4061
4~68

42'69
4a7el

5172

V135

23~SEP•69

7450
1061

SNA

6211
3412
6201
5764

CD' UJ

TAO

CHR

DCA I

JMP I

STORE

eo, 00

11128

4~71

4072
4n3

/ROUTINE TO CHEC~ NSGN roR SETCT
/USED ONLY BY SETCT ROUTtNE,

/CALLING SEQUENCEI
JMS

4~74

4~75

I
I
I
I

40?6
4017
4078
4079
4080
4081

4(JA7

ACll

NUMSGN

RETURN WITH AC1I i,
~SGNt01AC11

N0h0,

rr NSCN

/NOTEINSGN MAY BE NON•0 AND NOT•1·,·
/IS THf REASON roR NUMSGN.

4~82

4'1!A3
4084
401l5
40!'16

PAGE 63•1

5173

t:'000

5174
5175
5176

1144
7640

5177

7~01

"5773

NUMSGN, 0

NSGN
TAD
SU CL.A
UC
JMP

NUMSGN

THJS

/SABR I 815

PAL10

V135

4Vl88

5Ufl!

•52U

4"'89
4,119~

4.(lQ1

I
I
I

11128

AF'S

ABSOLUTE

40Q2

5?.;~~

4764

4k'l93

52l1
52:2
52?3

1~12!2
~166

TAO

7650

SN4 Cl,.A

'lQ4
4095
4il-96

5t'','4

52.'5

4764

42'98

52;',6

1ill02

412199

52e"7
5210

3:1.50

5211

5232

J~S

ANO

5251

097
0~0

SETC,,,5 1

JMP
JMS
TA'.)

4447

4111!3

4U4
41 rl'5
41216
4U7
41Z8
4U9
411(11

4111
4112

I
I
I

5212
5213
5214
5215
5216

4764
Hl02

0166
7650

5232

4114

4115
4116
4117
4118

5217

1171

JMP

SETCe6•1

/NO~ •• ABSOLUTE SYMBOL VALUE·
/TO LITERAL TABLE SEARCH L.OCATl~~
/SEARCH L.tTERAL TABLE roR VAL.LIE
/Ir ~OT T~ERE ROUTINE PLACES IT THEqE
/EXIT

521

ABSOLUTE

INDIRECT OUMMY ADDRESS FtELD SYMBOL
M2

SETc~a.

/SET

BA~K

UNKNOWN

err PAGE INDIRECT

SETC11 1 IAC

5220

I
I
err BANK
I
SETC09;

412111

4121
4122
4124
412'

NUMSGP

VAL

4119

4123

SETC;~0

SL. IT AB

!~DIRECT

/ABSOLUTE SYMf!OL VALUE
/MASI< Q!JT PAGE 6 t ,.S
/IS ABSOLUTE SYMBOL O~ PAGE i[R~
/YES •, • EXIT

K76,.J0

SETCU! 1 JMS
""UMSGP
UD
VAL.
/ACTUAL AFS VALUE
1(76~0
ANO
CL.A
/IS
ADDRESS
r1ELD SYMBOL ON PAGE l[Rn
S"A
JMP
SE,.Ce6•1
/YES
I
I
I

4113

•UMSC.P
VAL

OCA
JMS

41U

41(112

PAGE 64

JMS

5221
5222
5223

TAO
JMP

/SET BANK TO

CURRE~T

INDIRECT • SET BANK TO 0
/SET BANK & t~CR, OBACTR

JNCOBA
BAfllK
SETC13•1

/EXIT TO COMMO~ AREA

4126

4127
4128
4129

4130
4131
4132
4133
413'4
4135

4136
4137
4138
H39
414el

4141
4142

I
I

5224
5225
5226
5227
5230
5231
5232
5233
5234
5235

5236
5237

AOORESS FIELD SYMBOL NOT ON PAGE SYMBOL TABLE,

1514

SETC12, TAD

0016

·At\l!'J

'"41
1125
7640
2075
724121

1147
7650
5251

7001
4367

PSTCPR

/MAS NE~ TYPE REF BEEN AD0[07

CIA
TAD
TEM3
SlA Cl.A
SETC06, ISl
OPSCTR
Cl.A CMA
TAO
BANK
SNA CL.A
JMP
SETC0~
SETC13 I IAC
J~S
lt\ICOBA

/YES

/INCREMENT arr PAGE SYMB~L C~U~T£R
/IS BANK SET TO CURRENT
/YES ••• EXIT TO COMMON AREA
/SET BANK TO CUR, & INC OBACTR

/SABR, 815

PAl.1tl

Vl.35

23;,SEP"69

4143

5240

1617

TAO

4144
4145
4146
4147
4148
4149
4150
4151
4152
4153
4154
4155
4156
4151
4158
4159

5241
5242
5243
5;i44
5245

7650
5251
1276
'"'41

SNA

5246

71~6

5247
525"'

1514
3514

CLL RTL.

4160

4161
4162
4163
4164
4165
4166
4167
4168
4U69

4110
41?1
4112
4173
4174
417'
4176
4111
4178
4179

5251
5252
5253
5254
5255
5256
5257
526'8

5261
5262
5263
5264
5265
5266
5267
5271ll
5271

5272
52.?3
5274
52?5

1012

1146
'1641()

S£T00A 1

1014
3111

1146
3072
1147
3013

5615
5122
0000

5134

4181
4182

530111

1147

4183
418'4

5301
5302

76 41()

4367
4764
1002

3150

53e6

4447
5251

/NO

OLOOBA

/YES GET CHANGE IN OBACTR

OBA CTR

PSTCPR
PST CPR

/IN 8ITS 1-9
/ADD TO PST CODE

COMMON AREA
TAD
SNA

Cl.A

LSTSKP

/IS L4ST INSTRUCTION A SKIP f MSTRUCTION

SEhi0A
LSTBNK

/NO

BANI<
uo
SNA CL.A
,+3
JHP
CLA CMA
BANK
DCA
CURS KP
uo
SU CL.A
TAO
K2
K2
uo
DCA
PGEESC
CURS
KP
TAO
OCA
LSTSKP
BANK
TAO
OCA
t.STBNK
JMP I

SET008

,•1

/YES

...

LAST BANK

l•CUR BANK
I ARE: Tl-IEY THE SAME
/YES
INO •• SET BANK UNKNOW;\i
I

/IS CUR~ENT INSTRUCTION A SKI~ YNSTRUCTION
/YES ,,, PAGE ESCAPE ' 4
INO ;~; PAGE ESCAPE ' 2
/RESET LAST SKIP INDICATOR
/POR NEXT INPUT LINE
/RESET LAST BANK INDICATOR
/RETURN

Ol.DOB.4 1 0
OBF'LGP1 OBF'LG

I
I
I

DIRECT OF'P BANK RE,EFUNCE

BANI(
SETC04, TAO
SlA CL.A
JMS
INCOBA
NUMSGP
JMS
TAO
VAL
DCA
50

I
I

53?7

SETCvr2!

TAO I
DCA I

TAO
CIA

1014

/WAS THERE A PST SEARCl.I?

TAD

JMP

~147

5217

53~3

SETC~0,

7650
5263
1"'73
7041
1147
?650
5263
7240

5276

5312!4
5305

CIA

I
I
I

PAG£ 64w1

CL.A

TAD

1"174

4180

4185
4186
4187
4188
4189
4190
4191
4192

JMP

· 1112a

OBF"LGP

/BAM<

t NO I CAT OR

/IS BANK SET TO OF'F'
/NO, SET BANK TO COMMN & I~C OBA CTR
/YES ;;. ACTU~L BANK 0 ADDRESS
/TO CONSTANT • LITERAL LOCATION

LITERAL F'OR AN AF'S

SETC02, JMS
JMP

SLl TAB
SETC00

/Pl.AC£ LITERAL ON LIT£RAL TABLE
/EXIT TO COMMON AREA

PAl.1ei

1SAB~,B15

4193
4194
4195
4196
4197
4198

I
I
I

427.2

42:'3
42?:4

42?5
4206
4277
42?8
42v·9

rROM ANVWMERE, ALSO SAVE
TAG lN L1.rs & RtSET LINE COUNT
JN CASE WE GET A MULTeDEr~ ERROR
lN PASS1 WE MUST Al.SO DO THE
I
F'OLLOWlNG IF' T~E SYMBOL JS ALREADY
I
tN THE PST WHEN W[ GO ~OOK roR
I
tTI <1> REDUCE TME Of'r•PAGE SYM,
I
CTR, BECAUSE OFr•,AGE POINTER C,OR
I
EITHER NORMAL OR # R£rERENCES) ARE
I
NO LONGER NEEDED, (2) REDUCE
I
OBACTR av TME NO~ OF' EXTRA WORDS
I
OF' coot OUE TO TMIS SYMBOL;
/SUBRS~ CALLEOI OBNSVMCl.FS),SPSTB,PSTOEF
I
I
I

4212
4213
4214
4215
4216
4217
4218
4219
4220
5310

ft'000

5311

5314

1444
7640
5710
1137

5315

7451Zl

5316
5317
5320

5710
6211
3466
2066

4223
4224
4225
4226
4227
4228
4229

5312
5313

423k'l

53111

4231
4232

5322
53::>3

4233

5324

4234

5325
53;>6
5327
5330
5331
5332
5333
5334
5335

4246

4247

AC,0

42Hl
4211

4236
4237
4238
4239
42412l
4241
4242
4243
4244
4245

COLLECTION ROUTINE TO CHECK F'OR ANO PROCESS AN I.F'S

/CALLING SEQUENCEI

42111

42~5

PAGE 65

I
JMS
CPL.F'S
I
RETURN WJTM AC10
/F'U~CT!ONI
USED OURI~G COLLECTiON PHASE
I
EXCEPT WMEN RECOUNTt~G ~ PAG£1
I
tr TAG OCCURS ON CURRENT LIN£1 CPI.F'S
I
LOCATES COR ENTERS) IT IN ,ACE SVM~TAB;
I
ANO SETS THE OE,lNEO•ON•PAGE BIT IN
I
TME PST CODE WORD,
I
Al.SO SETS BANK CONDITION TO UNKNOWN
I
SINCE USER CODE CAN JUMP TO TAG

4199
4 2 llf1'l

4221
4222

11128

V13'

5336
533?
534121
5341

5342

62fll1

2517
4432
~:137

4451Zl
5354

3123
1110
7650
1514
1ZU6

71U
7430
2l.23
76<40
2123
1123

I
CPI.F'S,

/ARE WE RECOUNTING?

TAO J
RECTJ
SU CL.A
JMP l
CPI.F'S
TAO
1.rs
SNA
JMP 1
CPI.F'S
CDF' 10

DCA 1
!Sl

COF' 00

tu r

JMS l
LF'S
JMS
JMP
DCA
TAO

SNA Cl.A

/NONE THERE

PT CPR
OBSYM

/SET I.F'S BIT ON PAGE TABl.E

SPSTAB
CPLF'S3
TEM1
PASS

/!S lT ON THE PAG£ SYMBOL TABLE
/NO ,,, SKIP DECREMENTING

TE:M1

SH Cl.A
IS!!
TEM1
TAD

RETURN

/PLACE ON I.F'S TABLE
/INCREMENT LFS TABLE POINTER

PST CPR
AND
K3
CLL RAR
tSl

I f I

Lf'SPTR
U"SPTR

TAO l

Sll

/YES

TEM1

/CLR

/SKIP DECREMENTING IF' PASS 2

/Cl< USE

/NORMAL
/#

/SUBTRACT

/SAB~,815

4248
4249
4250
4251
4252
4253
4~c;4

4255
4256
4257
4258
4259
4260
4261
4262
4263
4264
4265
4266
4267

PAL.10

V135

23;,SEPw69

5343

1~41

5344

1075

5345
5346
5347
5350
53151
5352
5353

3015

UD
OCA

5354

5355
5356
5357
5360
5361

5362
5363
5364
5365
5366

1514

TAD

AND
CLL RTR

0363

7112

?fi'J 41

1lll74
3074
4765
7340

3441
1137

3.566
3067
5710
3714

5173
5570
~00121

Ol'SCTR
OPS CTR
PST CPR
C3174

OBA CTR
TAO
OBACT~
DCA
PSTOEP
CPL.F'S3~ JMS I
CL.A CMA CL.L.
BANK
OCA
L.F'S
TAO
DCA
LL.F'S
LINE
OCA
JMP I
CPL.F'S
C3'17'41 3774
NUMSGP~ NUMSGN
PSTOEP 1 PSTOEF'
0
LL,51

11128

PAGE 6'•1

/EXTRACT SMARE or OBACTR CUE
/TO THIS SVM80L
/MOVE TO LOW OAOER
/SUB, 'ROM OBACTR

/SET BANK UNKNOWN

CT~[

CLL. IS USED EL.SEWH[A[)

/UVE tN CASE OF' ERROR
/iERO LIN£ COUNT rROM LAST L'S

42~8

4269
42711J
4271
4272
4213
4274
4275
4?76
4277
4278

/UTILITY F'OR SETC041SETCllJ81SETC13
/NOT USED £L.SEWMERE
/CALLING SEQUENCEI
DESIRED BANK SETTING IN AC
I
JMS
lNCOBA
RETURN WITH ACweJ
I
/F'UNCTiONIC1) SET BANK AS SP£Cirtco
C2> INCREMENT Orf'•9ANK ADDITION CTR
I
BY 1 OR 21 2 IF PREVIOUS INSTR,
I
I
WAS A SKIP•TVPE1 1 OTMERWISE~

4279
42~0

4281
4282

536?

4283

5371

42A4
42~5

4286
42A7

537~

5372
5373
5374
5375

~'. 000

3147
1012
7640
22174
2~14

576?

lNCOBA, 0
OCA

BANK
LSTSKP
TAD
SU CL.A

IS!
ISZ

JMP

OBA CTR
OBA CTR
JNCOBA

/LAST INSTRUCTION SKI~ INOICATO~
/WAS LAST INSTRUCTION A SKIP tNSTQUCTtO~
I• OLD VALUE or Orf BA~K ADDITION cou~T£R
lrOR ~[W VALUE O' orr BANK ADOl~Io~ C~U~TE~

/SABR,815

PAL.1?

V135

4288

;40.0

•?4.111"

42Fl9

I
I

4290

4291
4292
4293
4294
4295
4296
4n7

I Tl~ f S

ROUT I r...E

11128

ASS[~?LE

lS TME MAI~ PASS1

/(NOT USED 8Y PASS2)

PAGE 66

THE PAGE MELQ IN

T~E

CURRE~T

SET O~ T~BLES

ASSEMBLY ROUT! NE

GOES THRU E~TIRE ~AGt TABLE
( 1) CALL A1 TO I ~JI TI PAGE ASSEMBLY
I
( 2) GET ITEM OFF' P,T,
( 3) CAL.L ASMv:2 TO ASSEMBLE JTEM
I
( 4) LOOP BACK TO (2) TIL DO~JE WITM PAGE
I
(5) CALL A2 TO ASM, LIT'EF< ALS
I
/AS~8L IS CALL.ED T~lCE BY L.55 roR
/EACH PAGE nF' COOE1
/AS~BL

/FLOWI

4298
4299
43Vl0
43Jl1
432!2
4:Sl1l3
43Y.14
4305
4306
43217
4308
4309
4310
4311
4312
4313
4314
4315
4316
4317
4318
•:SU
432"
4321
4322
023

23rSEP .. 69

54Z0

~1000

5•:1J1

.1326
4436
E065

54~2

5403
504

4716
1122
7fcl41
3315

541.1

1027

5412
5413
5414
5415
5416

5417
542111

5421
5422
5423

TAD

CIA
DCA
TAD

3066
7240
3113
4714
4623
2315

5215
4224
5600
671211

JMS
JMS
IL.C
4
J"1S

0004

5406
540?
541."1

541.5

ASM8L,

ISSI,

A1
OUTBIN
INlS
PTSi!E

/OUTPUT PAGE ORIGIN
/DO I NITS,
/PL.AC( • Sll£ o; PAGE TABL.E

INDX1

/IN A"l INDEX LOCATION
/SET UP L.rs TA8LE POINTER

LF'SBSE

DCA
LF'SPTR
Cl.A CHA
OCA
PHASE
JMS
ASM02I
JMS
ISSI
ISl
INOX1
,9'3
JMP
JMS
A2
JMP l
ASM8L
ISlPT

/SET PHASE

SWITC~

TO ASSEMBLY

/SKIP INCREMENTING POINTERS TM£ F'tRST TIME

/INCRCM£NT PAGE TABLE POINTE~S
/OVER YE'.T

/SABR, 815

4324
4325
4326
4327
4328
4329
4330
4331
4332
4333
4334
4335
4336
•33?
4338

4339

11128
I

/ASSEMBLY ROUTINE To rINtSM orr • PAGE
/(1) PUTS OUT PAGE ESCAPE
/(2) LlT£RAL POOL CRY CALLING OAPLT>
/(3) GET READY FOR NEXT PAGE
5424
54?5
5426

e000

5427
543121

764121
5311

5431
5432

5433
5434

4720
U~2

uu
7012

76Jrll
5260

4 3U

4341
4342
4343
4344
4345
4346
434?
4348·
4349
4350
4351
•352
4353
4354
4'35'
43'6
4'351
43'8
4359
4361
4361
4362
4363

PACE 67

I
A21

JMS
TAD

JMP
A2NONA
TAO
PGEESC
RTR
SlL CL.A
JMP
ASM01A

4456

54~6

4436

JMS I
JMS l

5437

63U

5440

11!00121

1<5376
e;

5441
5442

2065

lSi
JMS I
JMS I

5443
5444

4456
4436
6312

1<!5371

5445

0000

fl'

5441

545121
5451
5452
5453
54!54
5455
5456

545?
5461!1

54U
5462
5463
5464

4364
436'
4366
4367
4369
4369
437121
43?1
4372
4373
4374
4375

54711.1
5471
5472

'"'
!5466
546?

4?17
1323
1ra11

TAO

:sr/.165
4436

OCA
JMS

012165
012104
H37
443?

5217
4456
4436

JMS
TAD

I
ASM"1A ~ JMS l

JMS I

01211!10
4?17

JMS
TAO

TAO

OCA
JMS
?LC

503
5414

0004
4456
4436

5475
5476

3647
001210

4316

547?

43?7
43?8

4721

550121

ASM018, J"1S

105?

TAD

5501

7640

OUTBIN

12 INSTRUCTIO~ PAGE ESCAPE
14 INSTRUCTION PACE ESCAPE

/JMP N£XT TO LAST LOC ON THIS PAGE

!L.C

WR I TEP

OUT BIN
OUAPLT
!<176
PAG
lL.C

/JMP LAST LOC ON THIS PAGE
/OUTPUT LITERAL TABLE
/SET ILC IN CASE NO LlTERALS

OUTBIN

/OUTPUT ORIGIN

OUTSl<P
OUTSKP
ASM01B

/OUTPUT 2 SKIP

JMS
JMS
JMP

1<5317

0065

INR ITEP

/NO ••• OONT SEND PAGE ESCAPE
/SilE or PAGE ESCAPE REQUlREO
/2 BIT TO LINK

11..C

6312
1163
U77
3065
4436

/STOP NEXT LIN[ LISTING
/ARE w[ 1N AUTOMATIC PAGING Moor

SU CL.A

543!5

5446

SAVLNP
APMSW

INST~UCTIONS

IRE TURN

WRJTEP

OUTBlN
OUAPLT

/OUTPUT JMP TO LAST INSTRUCTION O~ THIS PAGE
/LIT, TAB,

K177

PAG
IL.C

OUTS IN

/OUTPUT IT AS AN ORJGIN

JMS
JMS l

K?0rlJ0

WIUTEP

OUTBIN

IPL.ACE A NOP IN THE LAST L.OCATinN

SH CL.A

REL.NP

ACTR

/RESTORE NEXT LINE roR LISTING
1 DURING PASS 2

/R~MAlNS

/SAEii:(, !:115

FAL.10

4379
43110
43111
4382

55r:'2
5503
55?4
55v.5

43;~3

55'.~6
55·~1

43,~4

43;;5
43A6431'7
4388
43R9
439((.l
4391
4392
4393
4394
4395
4316
43?7
439R
4399
44Vel
44/1
44'.r 2
44·;> 3
4474

5510
5511
5512
5513
5514
5515
5516
5517
5520
55~1

55L>2
5523
55;>4
5525

5624
1U2
62U
3722
6201
2322
5624
4717
3112
5277

5651
17'000
1041
320t'l

4743
4754
V7ill0
0176
0fbl1l0

4045

23;,SEP•69
TAD

A2
PUP GE

CDF' Ul
DCA I

PEP TR

COF' 00
ISi'!
JMP

PEP TR
A2

JMP

A2NONA, JMS
OCA
JMP

OUAPLT
PUP GE
ASM01B

ASM1112l e ASM02
INOX11 ill
IN I SUB
PJISe
OUAPLT1 OAPLT
SAl/LNP, SAVL.lN
REL.NP, f.lELI NE
PEPTR1 PEBSE
1(176,
176
REDUCE, 0
CDF'SKP, JMS

COF'SK

11128

PAGE 67•1

/EXIT !F LISTING OR 2NO ASSEMB~Y
/SAVE ESCAPE ON PUS~ DOWN Li IT

/fi40VE STACI< PTA
IRETURl\I
/CLq

IINITIALilE A PAGE ASSEMBLY
I

44/5

44('6
4 47.,
4478
44?9
4 4 l(ll
4411
4412
4413
4414
4415
4416
4417
4418
4419
4420

V135

55?.6
55;17
5530
5531

10'17
3065

55~2

:51il7t'l

5533
5534
5535
5536

1110
165111

(>~01!

A11

PAG
DCA
ILC
OCA
SME1X
DCA
LITS I Z
PASS
TAD
SNA CL.A
JMP I
Al
TAD

3744

5726
6211

5537

1722

cor 10

5540
5541
5'342
5543
5544

62tl1

CDF' 00
ISl

?322
3324
5726
5745

TAO I

SME1><•

OCA
JMP I
ASME1X

/MOVE PAGE TO !LC
·1cL.q
/lERO LITERAL TABLE SUE
/EXIT IF PASS 1

PEP TR

/GET NEXT PAGE ESC F'ROM STACI(

PEP TR
REDUCE
Al

/MOl/E PTR

F'AL.U

/SAS~• 815

4421
4422
4423
4424
4425

4426
44'2?
4428
4429.
44JeJ
4431
4432
4433
4434
44:55
4436
41431
4438
4439
44'40
44'1
4442
4443
4444
4445
4446
4447
4448
4449
4450
4451
4452
4453
4454
4455
4456
4457
4458

5545
5546

4421

5541
55'5"
5551

'5352

5557

700"
5515
4446
1001
0360
U57
3001
5434

5561ll

~40J

5552
55'3

'5554
5555
5556

V135

u;stP•69

I
I
I

OUM MY PSEUDO OP

POUMMY; JMS
SJ<P

JMP

NOP
IER .. OR
JMS I
TAD
AND
TAD
OCA
JMP I

1<34r/J3'

GCTSVM

,•3
SK IPL.
US£
1(:5403

l<U
US£
NULL.P

11128

PAGE 68

/GET NEXT INPUT JTEH
/NOTMiNG THERE
/SYMTOL
/CONSTANT
ILITUAL
/MST USE WORD
llAV[ SYMBOL LENGTH, TYPE ans. AND oir BiT
/ADO COR~ECT MST IJT 'OR DUMMY
1;0R CORRECT CODE WORD
lfXJT TO Ctt NEXT LINE

3403

ll<L.UDCa: TO RESET ILC BECAUSE Al COMES BE,ORE UOPACE IN PASI I
5561
5562
5!563
'564

5565
5566
5567

e0u
111121
7650
5761
1017
3065
5761

F'llCIL.C; QI
TAO

PASS
SNA CL.A
JMP I
'JlCILC
PAG
TAO
OCA
JL.C
JMP
rllCILC

/ROUTINE TO SET DEF' INEO BIT ON PST
/USED BY CPL'S & ANUMCI<
5570
5571
5572
5573
55'H
5575
5576

0000
1514
Z3'6
1041
3514
5770

PSTDEF'; 0

3177

C3777,

TAC

ANO

TAD
OCA

JMP I
3777

PST CPR

/PROTECT CODES

1<.i1l00

/SCT DEF'INED BIT ON PST

C3777

PST CPR
PSTOE:f'

23~SEP .. 69

11128

PAGE 69

I
I

CO'iSTANT roq A'

ADD~ESS

FIELD SYMBOL

1.5~,,5'

TAO

PTSP:~

ANl"J
S2A

-<76.'/

/SA0J:: I 61~

F'ALH

V135

4459
4460
4461
4462
44!>3
4464
44f.5
4466
4467
4468
4469
44711!
4471
4472
4473

560fll

•56i.'~

H74

4475
4476
4477
4478
4479
400
44A1
4482
4483
41484
4485
4486
4487
•-488

4489
4490
'491

4492
'493

56~0

56i'1
56?2
56.'3
561:4
56?'5
56V6
56?7
5610
5611
5612
5613

5614
5615

5616
56t7
5620
5621
5622
5623
5624
5625
5626
5621
5630

5631
5632
5633
56~4

4496
4497

5636
5637
5640
5641
5642
5643
5644
5645
5646
5647

409
4500
45~1

45n

45~3

4504
4505

CL.A
J"1P I
ASM5Cl
TAD

r:JCA

j 517

0045
7650

5730
1145
5614
63011l

6231

5635

4647
1002

3151
7201
3150
4646
1045
3145
1147
7650

5730
3640
1242

TE:MP6
PTC;;iR
<400

OF'F' BAlllK

AS~~S,

JMS
1JSC<IKP
TAO
VAL.
OCA
51
CL.A IAC
Sfll
OCA
JMS
SER ALP
TAD

K400

DCA
TAO
SNA Cl.A
JMP I
OCA I

TE'.MP6
BANK

TAD
OCA
TAD

3643
3103

DCA
DCA
JMP l
ASMX5I1 ASMX5
ASMX4l1 ASMX4

KCDF"U I KCOF'U

ASMX6!1 ASMX6
ASME7!1 ASME7
CO~SKI1 COlSKP
SER ALP, SRALT
NSCl-IKPe NSCHI<

/ACTUAL BINARY CONSTA~T
/IS IT ON PAGE iJERO
/NO
/ADO

/YES

...

PAGE 2ERO ADDRESS

IS l T INDIRECT

/EXIT TO COMMON AREA

oiru:cr CCOMl'ION DIRECT>

I
I

3U1
12'5
5644
611l71
6070
5660
6076
6063
2577
3443
6333

Dl'S"'q

ANO
SNA CL.A
JMP I
AS"42C/' l
TEMP6
HD
ASM5Al
JMP l
ASM5AI, ASM12E
ASM5C11 A$M05C
I

4494
4495
4498

1521
:·166
7640
:)615
1521
3145

ASM00I
ASMX5I
KCDF'U
ASMX41
CO!SKJ
ASMX61
TEM7
ASME7I

/ACTUAL ADDRESS IN BANK i!ERO
/TO 2 wORD LITERAL TABLE SEARCH L.OCAT I o~i
/ABSOLUTE SEARC~
/GET A PAGE ADDRESS
/ADO INDIRECT BIT
/BANK INDICATOR
/IS IT SET

PAL.10

/SABQ, IU 5

45?6
45V'7
4516
45Z9
4510
4511
4512
4513
4514
4515
4516
4517
4516
4519

4520
4521
4522
4523
452"4
4525
4526
4527
4528
4529
4530
4531
45~2

4533
4534
4535
4536
4537

4538
4539
450
4541
"4542
4543
4544

"4545
4546
4547
4548
4549
4551!1
4551
45'2
4553
45'4
4555
4556
4551
4558
4559
4560

V135

23;.SEP•69

PAGt 7t:

11128

I
/AS!.102

IS THE MEAQT or ASSEMSLV
/IT IS CALLEO O~CE F'OR EACH tTEM o~~
/T'"'E PAGE TA8L.E,
/IT CONSISTS OF" MA~V PARTS, ONE roR
/EACH BASIC TVPE OF' tNSTR, TO BE
/ASSE~BL£0 PLUS VARIOUS COMMON EXITS

56se
5651

5651

561j2

3137
1111/l
16.UJ

5653
5654
5655
5656

5657
5660
5661
5662
5663

0000

4773

4431
4737
6211
1520
621211
31412l

AS"102,

JMP
i

OCA
TAO

JMS r
JMS l
KCDF"10; cor 10
TAD I
KCDF"00 1 cor 00
OCA

1517

5665
5666
5667
5670

~;l,60

TAD
ANO

3146

OCA

5671

5672

5673

5674
5675
5676
5677
'701
5701

57r,,2
5703
5704
5705

57(!6
'707

5711!1

5711
5712
5713
5714
5715

5716
5717
5120
5721
5122
5123
572"4

57:53

1,17
0157
7640
52H

1511
0014

7640
5734
1,21
3142
4432
U42

1517

0045
7640
5731
1001
0160
7640
52U
1001

LF'S
PASS

/OF'F' PAGE

PTOPR
OP
PTCPQ
KOl

TAD
AND

K1~

SU CL.A
JMP I
ASM~Jl
PT CPR
TAD I

1(4

SU CL.A
JMP I
ASM04!
PT CPR
TAO I
ANO

K20

SU CL.A

ASM05
J"IP
PT CPR
TAO
ANO
K2
SU CL.A
J"1P I
ASM061
PTSPR
TAD I
OCA
AF'S
JMS
OBSVM
U'S
PTCPR
uo
K400
ANO
SH Cl.A
JMP I
ASM2Al
TAO

AND

USE
1<40

SlA Ci.A

JMP
TAD
AND

/RESTORE BANK & l.STSl<P IF' PASS2
/PROCESS LF'S IF' AlllV
/PROCESS BSS 0 IF" ANY

LrSCMI(
ANC HK

CURSi<P
PTCPQ

ANO

~ETURN

/lERO LF"S lNO!CATOR

SU CL.A
JMS I
GE TB AP

5664

1517
ri56
7640
5732
1517
0015
7640

,•1

AS~.38

USE
1(3000

/IS iT A. SKIP JNSTRUCTJON
/VES I ... I SET SKIP IlllOICATOR
/IS IT A PSEUDO OP (PAR)
/VES

I ••

EXIT

/IS IT A MEMORY REF'ERANCE

INSTRUCTl~N

/NO

/PT CODE WORD

/IS U'S A CONSTANT

/YES
/PT CODE WORD
/IS •rs A LIT£RAL
/VES
/Ars ID WORD F'OP SYMBOL TABLE
/TO OtR£CTLV AOOR!SSABLE L.OCAT 1ON
/GET ITS POINTERS TO MST
/PT CODE WORD
/IS OP INDIRECT
/YES
/ArS MST USE WORD
/IS AF'S orr BAN~ (COMMON)
/VES
/Ars MST USE WORD

PAL.10

/SAR1,F15
4561
4562
4563
4564
4565
4566
45~7

45~8

45r,9
4 5 7i2!
4511

5725
5 ?;:> 6
5n7
573i
5731
5732

7650
5736
5735
6114

5733
57 .~4

57'0

5735
57J6
57 .37

V135

6241

AS"102' I,
ASM2Alt
ASM03I,
ASM04I,
ASM""6 I,
ASM01 1
ASM09! 1

2476

ANC_.K 1

6~36

1200
6252
6200

23•SEP•69

SNA CL.A
ASMl9I
JMP I
4$M~7 J
JMP I
AS"1E8
ASMllJ2A
PPAR1
ASME1
ASM06
ASMllJ7
AS~09

ANUMCK

PAGE

11128

'~·1

/! S AF'S ABSOL.UTE
/YES
/t-.iO

/SABQ,815
45'12
4573
45'14
4575
4576
4517
4578
4579
4580
4581
4582
4583
4584
4565
4586
4587
45A8
4589
459rtl
4591
4592
4593
4594
4595
4596
459?
4598
4599
4Ul0
46l1
46~2

4603
46~4

4605
4606
46:'!7

PAL,10

5740
5741
5742
5143
57H
5'145·
5146
5'147

1140
3123
4456
4436
0123

eu0
1'3!'12
'1650

5750

~JU

5751

1"'13
'1041
114'1
1650

5752
5753
5754
5755
5756
575?
5760
5761
5762
5763
5764
5165

5766

5.360

7240
3147

1146
3072
1141

3073
1141
3374
1012

5767

3315
2065

5771

5172
5650
66e0

5770
5772

,,.,, rue
5773

5?7'
5'176
5777

4062
4055

PAGE 11

V135

2!•SEP•69

I
I
I

ENO OF' LINE NE CE SS IT I ES

ASME11
ASM[2,

ASMUX~

ASM01,

TAO

OCA
JMS
JMS I
TE"'1

TEMl,
WR I TEP
OUTB!N

TAO

LSTSl<P

SNA

JMP
TAO

CL.A

,•10

LSTBNI<

BANI(
TAO
SNA CL.A
JMP
,•3
CL.A CMA
BANI(
CCA
CURSKP
TAO
LSTSl<P
OCA
BANI(
TAO
DCA
LSTBNK
BANK
TAD
BNl<SAV
OCA
L.STSKP
TAO
SKPSAV
OCA
!H
JL.C
ASM2IX
JMP I
ASM2IX~ ASHl2•1
GETBAP, GET BAS
BNKSAV, 21
Sl(PSAV1 a
OPISUBt JMS
OPlS
0815
OBISUB1 JMS

11128

/IS LAST 'J NSTAUCT I ON A SKIP INSTRuc;10N
/NO
IY£S

·,··.I I.AST BANI<

/•CURRENT BANK
/AR[ tHEV T~E SAM[
/VES
/NO ~~~ SCT BANK UNKNOWN
/PLAC[ CUR SKIP INDICATOR
/AS LAST SKIP INDICATOR
/PLACE CURRENT BANK
/IN LAST BANK I~OICATOR
/SAVE F'OR PROTECTION DURING L ISTiNC

/INCREMENT ILC
/NO , , , SET UP F'OR CURRENT INSTRUCTION

/SA9:(,?15
46 :'?.
46 . 9
4612
4611
4612
4613
4614
4615
4616
4617
4618
4619

462ill
4621
4622
4623
4624
4625
4626
4621
4628
4629
4630

4631
4632
4633
4634
4635
4636
4631
4638
4639
4640
4641
4642
4643
4644
4645
4646
460
4648
4649
4650
4651
4652
4653
4654
4655
4656
4657
4658
4659
4660
4661
4662

P:-:

Al.1··

f.: ~k'll

v135

I
I
I
I

62','0

355~

~ . . ·1
6;'. 2

3145

16:?.~

6?/3

724~

61/4

52U

23,;.c;E p .. ,_9

1112 '~

~;AGE

~ :·~ ~ ~·'

J ".;"I RECT OU ·~· v ARGU"["'T
'.:U~SlJB

A5"'11? 1

HQ I I •1
T(lolP6
)CA
CLA CMA
JMP
ASl1E3

/SET 8A'K U~K~OW~
/EXIT F'CR SKIP Ci'-IECi<

OF'F' BA'.'.K PJD I RECT ( f l'l.D I RE.CT COMMON)

6025
60?6
6ei~1

601rlJ

6t'l11
6?-12
6013

5777

ASM11t

0145
3147
1012

TP'P6•EXP

5615

6016
6011
61112"
6021
61'1122
6023
61'1124
6025
6026

4456
4436

60;>7

6032

6033
62!34
6035
6"36
6037
611141'1.1
6041

6042
6043

AS"'1E:31

7650

5223

6k'!14
6015

6030
6i31

OBI SUB
TAO I 1 "'1
OCA TEMP6

1605
3145

357~

~123

0000
2065
4456
4436
2145

DCA
TAO
SNA

/SET C<AC) I\; BANK
/WAS L.AST A SKIP?

8A.~i(

LSTSKP
Cl.A

ASME:4
/NO
//F'OLLO~l~G 6 l.t~ES ~A.VE BEEr-..:
//MQVEO TO 66ft.10 TO MAJ<E ROO~ F"OR \103
Jt-lP I
,•1
ASME:XT
II
J"!S I
OUTS1<P
/YE:S1 OUTPUT SKP
II
TAD
/GET PGrLOC,PTR,
IL.C
i(4
II
HO
/•4
II
At.JO
K177
II
K5U0A
TAO
/OUTPUT JMP ,•4
!)CA
II
TEM1
REEA.SM 1 JMS
itlR l TEP
OUTBIN
JMS I
T£M1
JMP

ASHE41

IS~

I 1.C

JMS I
JMS I
TE,..P6

w~ITEP

OUTBIN

Cll

2065
4653
2065
1140
1256
5635
5741
1001
0.57
1640
5201
Ul01
0160

IS2
JMS
I·Sl

4SMHB

TAD

K41C7
ASME2P
LISE

i<20
AND
SlA CL.A

AND

/PPAR3S

tLC

AS'"1E2P, AS~E2
ASM02A 1 TAO

TAD

/OUTPUT JMS TO
oR OUMSUB

ILC

TAD

JMP

PG,LOC,PTq,

/O~ISUB,OPISuB,

~·0~0

J~P

/INC~EME~T

ASM10
USE
K40

/AF'S MST

USE WORD

/IS

A DUM,..V ARGUME\iT

Al"~

/YES
I AF'S "4ST USE: wORO

/IS AF'S OF'F' BA\11< ( CCMMO~•)

/SAR~.~15

PAL.H

4664

IH'!44
6'345

46~3

621'30

7640
52e.6
1i01
rtic'J31
7650

6~t;1

5654

6l~2

6e'53

5655
1253

6~54

6212

6Vl55
6"'56
6057

6313
e407
72·HI
1147
76,0

4665

6~46

4666
4667
46t-A
4569

6047

467"

4671
4612
4673
4674
4675
4676
4617

4678
4679
4680
4681
·082
4683
46R4
46a5
4686
4687
46ee
4689
4690
4691
4692
4693
4694
46t5
4696
4697
4698
4699

472'0
4721
4102
47~3

47214
4175

6~60

6061
6062
6063
6rl!64
6065
6066

6067
6070
6071
6072
6073
6074

6075
6076
6077
61i(J0
6111' 1
6U2
6103

6U 4
6U'
6U6
61~7

6110
6111
6112
6113
6114
6115

47Z6

6116
6117

4' l'.7

612121

47,8

V135

SH CL.A
AS:-111
JMP
TAD

CLA
ASM12I
JMP I

r~05

J~P

AS~13I

AS~r,1.08,

PPAR3S

AS'1121e
ASM131e

.AS~12

K4l?,

~14~7

ASME51

CLA Cll-1A
TAD
BA'-iK
SNA CL.A
JMP
ASME6•2
TAO
L.STSKP
SH CL.A
,•7
JMP
wRITEP
JMS
JMS I
OUT ti IN

ASME?1

ASMX41
ASMX5t

2065
5302
4456
4436
5525

ASMX61

AS~13

l<COF'00
5

lSl
JMP
JMS
JMS I
COFSl<P

I L.C
ASME6
wRlTEP

OUTBIN

U00
2065

lSl

4~'37

!L.C

JMS

OUTSKP

1103

ASME6,

3l47
U54

'l'AO

OCA

TAO
OCA

3271
1320
32'10
1316
32'16
'2lil 1
3U3
1145
5717
5525
5740
5662

PAGE 12·1

11121'

/YES
/AF'S

TAO

OCA

OCA
UC

OU
ASME8t

TAO

JMP l
COF'SK l 1 COF'SKP
ASME1l1 ASME1
KCOF' A,
i<C.DF'00

TEM7
BANK
K5
ASMX5
KCOf A
ASMX4
COf'SKI
ASMX6
TEM7
TEMP6
ASMEll

~ST

USE

wO~D

/IS ArS ABSOLUTE

SN.\

7U0
5274

4456
4436
5662

USE
K 3 ~: ~ .~

AND

5304

1012

~3eSEP,..69

/VES
1~;0

FAl.1"1

/SAR:.?,815
47~9

47121
4 711
4712
4713
4714
4715
4716
4 71, 7
4718
4719
4 7?.0
4721

474~

475~

4751
4752
4753
4754
47'55
4756
4757
4758
4759
476~

47b1
4762
4H3

TAO

11128

PAGE: 73

use

/G£T TYPE BITS

STrT

6121

V~00

61~2

l"16

6123

1450
!:i347
1172
1450
5345
7 zfll1
7450
5312
7630
s;s.1
1367
4423
1310
4423
7200
5721
2560

61~4

4741
4742
4743
4744
4745
4746
4747
4748
4749

SE~el

RTl.
I
RTl.
I
JMS
I
RETURN
/USED ONLY BY PRSYM

61:?5

4732
4n3
4734
4135
4736
4737
4738
4739

SYMBOL. TABl.E TYPCOUT F'LAC TYPEOUT ROUT!t-.£

/CALL

4722

4731

23~SEP•69

4723
4724
47?5
4726
4771
4728
4729
473~

V135
I
I

6126

6127
61JI?!
61J1
6132
6133
6134
61:55
6U6
6137
614tl
6141
6142
6143
6144

STf'T,

STF'T0,
STru,
1<256~.

172~

1<17201

6145
6146
6147
6150
6151
6152
6153
61154
61'.>5
6156
6151
6160
6161
6162

1344
5340
Ulll1
fl1611J
7640
5357
1363
4423
1365

STF'T21

6163
6164
6165
6166
6167
6170
6171

;, 10 2
?317

53413
1364

STF'T31

ST,T4,

K3
ANO
SNA
STF'T3
JMP
M3
TAO
SNA
JMP
STF'T2
IAC
SNA
JMP
ST'T5
SZL CL.A
JMP
STF'T1
1'2516
TAO
CTYPE
JMS
Kfc'406
TAO
CTVPE
JMS
CLA
STrT
JMP I
2560
17211l

TAD
JMP

TAD

srn:ii

TAO

K231i!l~

JMP

STF'Te
K0317
CTVPE
1<1S:n

TAD

JMS

534~

JMP

TAD

?300

K2l1021
Ke3171
K230;ll,

317
2300

1500
2516

K15PJ~,

1500

1<25161

2516

'74~6
~·530

Ket42!6,

406
5371

?047

K240it'l::sSL IT AB

102

/ABSOL.UTE SYH,
/Cl( F'OR ~Ew OPDEF'
/YES
/EXTERNAL
IDEF'INEO
l"Ur..i''.

l"DF'''
/TYPE F'LAG
/WE MUST HAVE A CLEAR AC
/RETURN

/TYPE "OP"

USE

1(40
A'llD
SU CL.A
JMP
sTrT4
K0U2
TAO
CTVPE
JMS

4423
1366

K053~,

1(1720

/MASI( QUT TYPE BITS

STfT~

/COMl-10~
/ 11

AB 11

S "

l"CO"
/"M "

F AL.U'

V135

23•S£P•6.9

STF'T5t

6173

13'71
4423

6174

1047

6'175

5340

TAD
JMS
TAO
JMP

1SAfrn,e1s
4764
4765
4'766
4767

6172

K053P.
CTYPE
K240~

STF'T0

11128

PAGE 73•1
/ 11 [X"

/SABQ,615

V135

4768

o62J/

4769
4172
4771

I
I

4712

62 0

445~

4713

62 1

5220

4774

PAGE ?4

111211

62 2

A5'1,l7 1

J'1S

JMP

1514

TAO I

SFSTA8

I 1S

4$ 1~ ,;7 A

, ,, RCUTI~E PLACES IT
/PST ccrE 1.inRn
/IS sv~qOL o~ PAGE

4 775

62 3

710~

4 '76
4777
4718
4179

62 4
62,5

'5220

5'1A
J'1P

1140

TAD

'JP

/OP CODE

TAD

~24J2A

If S IT

4790
4781
4782
47R3
4784

6210
6211
6212

5213
7201
3147

J"1P
CLA IAC
DCA

6213

4333

4785
4786
4181

JMS

6214

Ul02
e.U3

TAD

4188

6217

4789

6220
6221
62?.2

4'90
4H1
4792
4193
4794
4795

4196
4191
4?98
4199
48U
4801
4802
48QJ3

4804
4805
481Z'6
48:it7
4808
4809
48U
4811
4812

4813
4814
4815
4816
481'

4818
4819
482111
4821
4822

62~6

62"'7

6215
6216

62:?3
6224

6225
6226
6227
6230

1271
7640

1164

5660
1521
3151
4333
71it6
1014
5234
4333
101112
7410

1521

6232
6233

3151

6234

3l'"

623,
6236
6237
6240

7201
46711J

U45
3145

ASM;:14

A J1'1S

8A~~

/YEs,,; SET

To CURRENT

~JSCHK

VAL.
K177

TA"l

1<2llla

/Ars "1ST VALUE
/SAVE PAGE ADDRESS
/ADO PAGE BIT

JMP

AS~1 i I 4

TAr:l

?TSPR

OCA

JMS

/ACTUAL SYMBOL
/TO 2 ~CRO LITERAL TABLE SEARCM LOCATJO\

'JSC>iK

TAD

JMP
ASM098, JMS
TAO

K:2

ASMZ5C•J

/RELOCATABLE SEARCM

'-JSCHK

VAL

/0 I RECT

~O~i•PAGE

f2l

48SOLUT£

Sl(P

NON PAGE lERO CONSTANT AOORESS

ASM35C 1 TAO
PTSPR
OCA
51
CL.A 1AC
OCA
50
JMS
SERALT

5651

TAO

1<400

OCA

TEMP6

JMP

AS001I

/ACTUAL BINARY CONSTANT
/TO 2 wuRO LtTEqAL TABLE SEARCM LOCATIO\
/ABSOLUTE SEARCM
/GET A PAGE ADDRESS
/ADO INDIRECT BIT
/EXIT

F~R

SKIP CHECK

I
I
I

6241
6242

6243
6244
6245
6246

6241
625111
6251

4333

AS~09,

Hlill2
~166

7640
5226
4333
1002

5660
6057

TME~E

h.O

/'10,, 1 EXrT

AND

CLL RTI..

I
I
I
I

6231

CLA

SH Cl.A

H" <; 0 ·~ PS T

/\~

PSTr,pq

A$00ll 1
I

DIRECT ABSOLUTE OR
JM,S
TAD

EXTER~AL

'ISC!"lt<

VAi.

AND

K760~

SlA CL.A
JMP
JMS

/ABSOLUTE SYMBOL VALUE
/IS SYMeOL ON PAGE lERO

ASM~9B
r~SCHK

/1'10

TAD

VAL.

JMP 1
ASME5

AS0014

/ADD
I

PAGE lERO ADDRESS

/SAB~,615

PALU"

48?3
4824
4825

4826

V135
I
I

6252

1s21

6253

3151
7201

'4827

62~4

4828
4829
4830

6255

3150

6256

4670

TAD

OCA
S1
CL.A IAC
DCA
s~
JMS
SERALT
JMP l
AS0~I'4
ASME1

6257
6260

5660
57•0

l&S00I4~

4832

6261

~000

OUTSK1

4833
4834
4836
031

4838
4839

4840
4841
4842
>4843
4844
484!5
4846
4847

•848
4:849
48,0
4851
4852
4853
•B'54

485,

4'856

6262
6263
6264
6265
6266
6267
6270
62'1

4456

K1410
0

2065

ts~ ll,.C
JMP l
OUTSK

5661
3443
4000

Ul02

2166
7640
5304

63ia2

4333
1raei2
1045

4858

4863
4864
4865
4866

6312

486-0

4861
4862

4861
-4868
4869

4870
4871
4812
4873
48'''4

481'
4876
4877

ASM121

5776
1103
3145
U47
5710
60U
5316
5377

6313

4450

6314
6315
6316
6311

5327
1514

6320

6321
6322

77~0

5327
4.:533
1002
0163

INDIRECT ABSOL.LJTE

TAD
ANO

VAL.
1(1'600

/AFS HST USE wo~o
/IS IT ON PAGE'. lERO

JMP

ASM12F"

/NO

SH CL.A
I
I
I
ASM12E~

INDIRECT PAGE i!ERO ABSOLUTE SYMBOL
JMS
TAD
TAO

OCA
JMP t
I
I
I

6303
6304
632!5
6306
6307
631(,IJ
6311

0'9

/ABSOLUTE SEARCi-1
/GET A PAGE ADDRESS
ltxrT roR SK IP CHECK

SERALT, SRAL.T
"124et2A 1 ·000

3145
56'1

49:57

/ACTUAL LlTE:RAL
/TO 2 waRO LITERAL TABLE SEARCH LOCA Tl O~;

WR I TE'P
OUTBIN

011l00

6273

6276
6277
6302l
6301

PTSpq

3657

6212

6275

"'JMS t
JMS I

4436

I
I
I

6274

1112&
PAGE 74•1
LITERAL. roR AN AO ORE SS F'I ELO SYMBOL

ASM11J61

46~1

4S35

23sSEP•69

TAD

K53761
K53771
I
I
I

ASM131

1(40~

TE:MP6
AS00 It

/SAV£ PAGE ~ERO AOORESS
/ADD INDIRECT BIT

INDIRECT NON PAG£ iERO ABSOLUTE SYMBOL

OP I SUB
ASM12F', TAO l
DCA
AS00I3~

NSC'1K
l/A1.

JMP I
ASME3
5376

1 e1
TEMP6
BANK

AS00!3

/£XIT F'OR SKIP CHtCK

5377

LOCAl INDIRECT REF'ERANC£
JMS
SPSTAB
JMP
ASM14
TAD I
PST CPR
SMA Cl.A
ASM14
JMP
l\i$CHI<
JMS
TAD
VAL.
AND

K177

...

/IS A~S ON PST
/NO
MUST BE O'F PAGE
/VE:S I • • -PST CODE WORD
/IS AF'S ON PAG.£
/NO
/AF'S VALUE F'ROM "1ST
/SAVE: PAGE'. ntSPLACE:MEr..!T

PAl.10

/SA8~,b15

46?8
4879

4880
48A1
4882
4883
4!384
4885

4886
48A7
48A8
4889

4890
4891
4R92
4893
4894
4895
4896

632.3
6324
6325

V135

23~SEP,.69

11128

PAGE: 14•2

1kl27

TAO

K6~0

3145
5651

OCA

TEMP6

/ADO PAGE ANO I r~O l R£CT
/SAVt

JMP

A$01iJ l l

/GO OUTPUT

INSTRUCTlO~

I
I

6326
63;>?
633'1l
6331
6332
6333
6334
6335
6336

5776
1726
3145
1201

ASM141

5710
~eera

NSCMK1

OH PAGE JMDIRECT
OP I SUB
TAD I

,.1

TEMP6
OCA
CLA IAC
AS00J3
JMP I

1517
:Z043

TAD
"'ANO

7640

SU CLA
UC
JMP
NSCMK

6337

11211Z11

6340

5733

/SET BAr-.K TO CURRENT
/EX IT ;oR SKIP ClofECK

PT CPR
K2000

/ITS A ##

/SABR,815

PAl.1!0

4898
-4899

4 9 0121
4901
49~2

4903
492!4
4905
4906
490"1

49:'18
4909
4910
4911
4912
4913
4914
4915
4916
4917
4918
4919
4920
4921
4922
4923
4924
4925
4926
4927
4928
4929
4930

4931
4932

4933
4934
4935

V135

23;,SEP•69

1u2e

PAG£ 75

l"lF'" • CONOlTlONAL. ASSEMBi Y PSUEDO•OP

4897

6341
6342
6343
6344
6345
6346
6347
635rll

6351
6352
6353
. 6354
6355
6356
6357
636eJ
6361
6362
6363
6364
6365
6366
6367
6370
6371

442?
5357
5346
7000
5357
111161
U.67
760J
5575

P IF''

4427
701110
7'410
74U
5575

TAD

"42'4

rsz

JMS
NOP

Pf''ERR

/NOTHING TMtRE

PtrERR

/LIT

,•3

GETSYM

S~P

Pt F'E.'.RR,

U01

U:RROR

7041

3371
5434

I,.CTR1

COMMA

/P"IEV£NT

F'L.AGG l NG COMMA

IYU1 SET CTR lO SKIP N LINU

USE

/lS SYKBOL OEF'tNED'

SQJ

/YES1 CONTiNUE NORMAL ASSMBL 'tf

1(40;3

OCA
JMS

SKlPL

CIA
DCA
JMP

IF'CTR
NULLP

1150

/CIC 'F'O'A

II WANT A NUMBER

UD
ANO

SU CL.A

ISYM
ICON

/NOT A COMMA

SKP

0045
7640
3150
4446

0000

CHR

SlA CL.A
!ERROR

2010

GETSY'M

JMS
JMP
JMP
NOP
JMP
TAO

/GtT TME NUM,

/LAP & EAP PSUEDO•OPS
6372
6373
6374
6375
6376
6377

4446
7001

PLAP1

JMS

SKI PL

PEAP1

UC
Sl(P
JMS
OCA
JMP

SKIPL
APMSW
NUL.1.P

7410

4446
3102

5434

/LEAVE AUTO•PAGJNG MODE
/ENTER AUTO•PAG!NG MOOE

PAl..11''

v1.s ~_,

23 .. SEPe69

6400
6401
64"'2
64?3

1411

l JST')~J,

1411
'324

d'/0

l7•1lil'

64'.~4

1716

64'5
64fl6
64 '.\7
64H'J
6411
6412
6413
6414
6415

(,'.0lll!l:

1716

/SABR I 815

4936
49J7
49~8
49~9

4940
4941
4942
4943
4944
4945
4946
4947
4948
4949
49511!
4951
4952
4953
4954
4955

6416

6417
6420

2324
1116

1~11

1116
.;Jl,0

Ht SP,

1'1111

17Hl

?71~

?~23

?el23
2ill05
75k'H

20fll5
('504

Nl2fll

r~0221

2516

2516
G,11310

V310
'1700
e022

ROER,

7700
i022

e5u

64~1

r501
v.405

6422

22?1

2217

6423

~·ICHHl

00[{)0

Gll405

111 ?.~

FAG~~

/SABq,s1s

PAL.U

4956
4957
4958
4959
4960
4961

6424
6425
6426

063

64'-1
6430

4962
4964

4965

4966
4961
4968

4969
491QI

4971

4972
4913

49H
4975
49'76
4917
d78

6431
6432

6433
6434
643,
6436
6437
6440
6441
6442

6-.45

4981
082

6446
6447
645111
6451
6452
6453
6'454
6455

4988

7041
3256
1113

CL\IPSTa CIA
DCA

!OINIT

TAO PSTBSE
IAC

701211

OCA PSTCPR
UD l PSTCPR

3114

1514
0242
3514
2U4

ANO

K40~31<

OCA I PS'f CPR

IS! PSTCPR
tH PST CPR
tSi! I OJ NU
JMP
JMP l
REeRET
K4003K, 4003

2U4

2256
5231

·•6 .•1

5641
00?

4003

/SET COUNTER
/CGOE POINTER
/LOOP
/Kl LL OBAC oue: TO THIS svr''•
/MOVE PTR
/NOT DONE

ICOM"10N £XlT roR OATA·CENERATlNG PSUE:OO•OPS

4980

085
086
4981

PAGE 17
11128
PART OF' MA l N PROGl'UM
RECOUNT ROUTINE
IF'OL.L.OWING COOE CLCA1'1S UP PST CODES BErORE RE"COU~iT f PliG

I
I

4979

4984

23.;.SEP .. 69
I
I

6443
6444

4983

V135

U37
7650
5433
7040

1122
3122
4444

2122
46'5
!5433

67fll1

POP EX,

1.rs

TAD

PTS!E
PTSlE

SNA C~A
J"1P I
OClL.1
CMA
OCA

JMS

ISi

JMS
JMP I
IS!PTX • IHPT

RECTl
PTS!E
JSlPTX
DC I l.1

/Cl< F'OR TAG
/NO TAG
/DECREMENT PTSlE
/YE:S RECOUNT TME PAGE
/RESTORE PTSlE
/RESTORE PT PTRS
/RETURN F'OR NEXT LINE

PAL1vl

/SAfH<,P15

V135

23,;,SEP•69

1112e

PAGE 78

4989
4990

4991
4992

/ROUTINE Tl1J INITIAl.lU 110 DEVICES

4993
4423

C2•JMS l CTVPE

6456

~:011Jic'J

101'-JIT; l2l

6457

6201

1370
3054
5774
4424
1311

5~13

641'10
6461
6462
6463
6464
6465
64166
6467
64170
6471
6472
6473
6474
6475
6476
6477

5~l14

65~0

5'115
5"116
5017

65~2

4994

4995
4996
49q7
4998

4999
5M0
5°1!?1

5ZIJ2
50~3
5~!7-4

5M5

51'!l6
5'1'"7
5tlZ8
52~9

5~10

5'1'11

5012

65?.1

1375
4331
6416
1373
3011
1J75
4331
6476
4347
1364
1365
3766
4424
1371
3011
1376
41331
65U
4347
5315
1054
3042
5327
1367
3042
4424
1372

5~27

5:-1;?8

6516

5029
5030
5031
5032
5/JH
5i!l35
5036
5Yl37

6517
65211J
6521
6522
6523
65;>4
6525
6526
6527

3331

5'1138

65.~0

5656

5041
5042

6531

~000

5043

65.~2

3125

5019
5~20
5~21

se22
5Z23
5ill?4
5025
5026

5~.u

Jl.64

TAD

VN1
101,

3011

65.-'3
657'4
652l5
65Z6
657'7
6510
6511
6512
6513
6514
6515

5018

cor H

DCA
J"IP
JMS

TVPE

TAD

VERSt
CRL.r
JM l SP

OCA
TAD
JMS

M5
QUE RV

~c;o

JROER

TAD

OCA

M5
QUERY
RGO
KSR
JMSR
JASR
JNDEVP

TAD

JMS

RGO,

J~S

TAO
TAO

OCA
JMS

CRL.F'

TAD

JMISP
X1
M11
QUERY

DCA

TAO

JMS

,•1

....

JMS
JMP

KSR

TAO
DCA

TVPE
PU~CM

JMP

lox
JL.63
PUNCl-f
CRL.F'
JLIST
X1
M17

TAO

OCA
JMS

TAO

OCA

3011
1377

TAO

4331
6525
4347
7001

JMS

IOX,

QUE~Y

,•S.

JMS
IAC

i<SR
OCA

JMP I

50~9

/1 •
LSTDEV
IOI 'JIT

51" 41i'l

QUERY,

=·~

DCA

JCO'J:.'T

F'UNC~,

t:'

TYPE

PAL.10

/SABR, 815

H44

5045
5046
5047
5048
5049
50SllJ

50!51
!5052
5053
5054
505!5
5056

5057
5058

5059
52160

5061
5062

5063
5064
5065
!!1066
5067
5068
5069
5070
5071
5072

'1117 :s

5014

"'"
5076
5077
5078

5079

5080
5081

5082
5083

6533
6!534

653,
6536
6537
6!5d
6!!1111
6!542
6543
6544

654,
6!!146
6547
6550
6551
6552
6553
6554
6555
6556
6557
6560
6561
6562

6'6:S
6564
6565
6566
6567
6570

6571
6572
6573
6574
6575
6576
6577

VU5

Sl(P

JM,_,

1123

1363
?640

2347
5747
6531
7447
7751
6637
4702
3164
4172
U25
6405
6377

6416
?~00

7773
7161

7161

PAGE: 78•1

t<SR,

··'

lSl

JCOUNT

!Sl
JMP
TAO
DCA
JMP
0

auuv

JM•

5731
1?31
3331
5731
6031
5350
6036
3123
1123
4454

11128

i<Sr

2331

0IOH

23~SEP•69

TAD
C2

1411
44U
6"31
74U
5344
2125
5333

,•6

QUERY

QU[qy

QUERY

1<Sr

JMP

•• 1

KRB

TEM1
DCA
T£H1
TAO
TYPE
JMS
TEM1
TAO
M3J1
TAD
UA CL.A
!Si

JMP I
LSTO£V!IOU[RY
M:S3i1
•u1
JHSR,
MSRwASR
JUR,
ASR
1NDEVP, INOEV
Jl.63,
L63
JL.64,
L64
JCOUNTITEM:S
JMISP1 MISh1
JLIST1 L ISTON•1
JROER1 RO£ Rel
VERSI1 VERNUM
M51
MU.,
•11
M17,
•17

KSR
KSR

/llll"VES"
INOT·"V£S"

/St.8"<,915

~·AL.1V

5i/J!<4

,,60~

5i!~5

5l' ~6
!)~::7

~~~9

5~912l

5~93

5094

23 ... SEP.,69

1112A

pgr.

•66 ·"·•'
II
//D4.IH .,I=' ~AIN ~~OGRAM ~OVED FOR V~3
II
/~0· IT I 1'<E To RESrnRE i:'A'.K A'\Q LSTSKP
PASS2
/.oilL.L ~.aT F"IT HJT~ 4.SMi 2 :N~EH IT BELOt.;GS

roR

5;1>aA

5091
se92

V135

6670
66'1
66Jl2
66/3

,· 0~2!
~ 6 ~~ 6

GE. H1AS 1

.S147
1,607

5Z95

66~4

3~72

512l96
5097
5098
512199

661J5

5600

66?6
66•7

5774
~715

"l')CA
TAI:'
TAD

OCA
JMP

r,·~KSAP

84!\i(

SKPSAP
LSTS1<P
GET8AS

R'JKSAP, SNl<SAV
St<PSAP, St<PSAV

5Urll

5101
5U2
5H:S
512!4
51?5
51'~6

5U7
51~8

5119
5110
5111
5112
5113
5114

5115
5116
5117
5118

5119
5121/J
5121
5122
5123
5124
5125
5126
5127
5128
5129
5130
5131
5132
5133
5134
5135
5136
5137
5138

/INPUT ROIJT I lliES
6611i'J
6611
6612
6613
6614
6615
6616
6617
66::>21
6621
6622
66:>3
6624
6625
6626
6627
6630
6631
6632
6633
6634
6635
6636
6637
6640
6641
6642
6643
6644
6645
6646
6647
6650
6651
6652

?,0012l

HSR,

3255
6014
612111

5217
6012
5610
3237
2255
5213
1"13
1257
7640
5231
6201
5630
271/J1

HSR11

HSR21
REX IT 1

ASR,

3256

5247

IS~

TEM1~

JMP

1otSR1
X3
BU' BEG

TAD

0
TAD

DCA
OCA
ASR1 1

6~36

5637
2255
5243
2256
!>242

TEM1V'

TAD

1013
1261
7640
5231
5660

3255
6031

nCA
RF'C
RSF'
JMP
RRB
JMP
DCA

HSR
ASR

ASR2,

M5e
TEMU
TEM1~

KSF'

JMP
KRB
JMP
!Sl

JMP

tsl

JMP

/CL.R TP1ER

HSR2

Si'!A Cl.A
JMP
,•4
COF' 0(()
JMP l
,•1
E:RRE
OCA t
X3
XJ
TAD
TAO
BUF'Ef\J
SH Cl.A
JMP
•••
JMP
~G3P

J4U

t-000
1254

ASR2
ASR
TEM10
ASR1
TEM11
ASR1•1

/WASTE SOME TIME
/Ct< TIMER

/KEEP TRYING
/CK F'OR EMPTY BUF'F'£R
/NOe WE HAVE A PARTIAL. 8UF'F'E:R

/YES TAPE l-IAS ENDED

~l™ NO r.NO SUT~T

/rill ENO OF' BUF'F'ER WlTlol 0•S

/NOW RET, F'OR PROCESSING

PAL,1;1

/SAB~ 1 A15

5139
5140
5141
5142
5143

5144

5145
5146
5147

\1135

23•SEP•69

66':i3

5222

66'54
6655
6656
6657
6660
666t

173()

t'5J,

w512l

20~0
0~00

Tf:M101

TE"1111

6701
4677
6133

~UF"F3£G 1

1•0ATA
RGJ
1•LI NB Ur

JMf:I

RG3P 1

BLJF"EtJ 1

REX IT

11128

PAGE'. 79 .. 1

/SARR,815
5148
5149
5152!

5151

511')2

:>153
5154

5155
5156
51'57

6662
66"13
6664
6665
6666

6667
6670

4427

23•SEP•69

I
I
I

ENTRY PSEUDO OFERATIO~

PENTRY~

741tl
5267
ne0

5!)75
4446
4451
7200

JMS
SKP
JMP

/CO~ST At, T

!ERROR
JMS I
JMS I
CL.A

/LITERAL
SKIPL
SREST

TAO

USE

V300

5161
5162
5163

6674

1277

TAO

K222~

6675
6676

3~01

OCA
JMP J

USE

5164

6671
67:~0

'5168

51 ?2
5173
5174
5175
5176
5177
5178
5179
5180

67'.'1
6n2
67,'3
67?4
67.~5

67i'6
6771

403

V,kle'0

2117
2117
a21
"121
2120
1

ISi!PT1

2'
ISl
I Si!

!Sl
tsl
ISl

JMP

PTCP~

PT CPR
PTSPR
PTSPR
PTOPR
JSi!PT

/INCREMENT PAGE TABL.E CODE POiNTER BV 2
/INCREMENT PAGE TABL.E SYMBOL POiNTER ev 2
/INCREME~T

PT OP CODE POINTER

/CK CONSTANT roR BLOCK PSEUOO•OP
I

5185

6714

5186
51!'7

6715

51~8

2220

/INCREMENT PAGE TABLE POINTERS

51~4

5183

r-~ULLP

/4;5 MST USE WORD
/SAVE SYMBOL LENGfM C& 0£,, BIT FOR PASS 2)
/AOO IN PROPER BITS
/VOR NEw MST USE WORD
/£XIT ;oR NEXT LINE

67112l
6711
6712
6713

51A1
5182

K40J

/PLACE SYMBOL ON EXTERN4l. SYMBOL UBL[

I
I
I

5167

5169
5170
5171

AND

ITE~

/SYMBOL

6673

,165
5166

l~PUT

TMERE

11.JOP

5160

1<22221
K403 1

/GET NfXT
/,._OT~I ~r.

6671
6672

1~01

11128

GETSYM

5158
5159

5434
222121
,'4ill3

PAGE Bl

V135

6716
6717

51?9

67221

5192
5191
5192
5193

6721
6722
6723

67:.'4

5194

11'/l 2
7650

PBSS41

1014

TAD
TAD

1166

1150
7740
~575

115:2!
7450

5723
S724
2435
261il

TAO
APMS~
SNA Cl.A
TAO
K2
M20:iJ
S0

SMA SH CL.A
I ERROR
TAD
S21
SNA
JMP J
P8SS2J
JMP I
P3SS5I
P8SS2J, P8SS2
PBSS5l, PBSS5

5195

51Q6

/PATCH TO DEL.ETE DEF'JNlD BIT
/EQUIVALENCED TO A LINE TMAT

51Q7
51 'lR

/AUTOMATIC PAGl~G?
/YES, 176 IS MAXIMUM
/NO, 2~0 IS MAX
/CMECK CONSTA~T

/TOO BIG
/IS CO~JSUNT U
/YES1 EQUIVALENCE TAG
/NO. CREATE BLOCK or THIS

I~ PST rOR
OVERF'LD~ED

SI~E

A TAG
T~E PAGE

5199

6725

11Z1

5270

6726

765ill

52 7 1
52/2

6727
6730

5736
15~1

EQVF' IX 1 TAD

EQV8 l T
Cl.A
JMP [
L55CP
TAD I
EQVBIT

/WAS THEGE SliClol A TAG?

SNA

/~0

/VES, GET PST COO.E F'OR

T~IS

TAG

PAL.H

ISAB~,815

52i3
52;J4
5275
52/i6
5207
5278

5U9
521!1'
5211
5212
521:5
5214
5215
5216
5211
5218
5219

5221/l
5221
5222
5223
5224
5225
5226
5227
5228
5229
5230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240

52H
5242
5243
5244

5245
5246
5247
5248
5249
5250
5251
5252
5253

5254

6731
6 7:32

6733
6734
6735
6736

1'1'41
3501
1164
3U1
5736
e405

V13!5

23•S£Ps69
TAO
OCA
TAO
DC.A

L55CP1

JMP l
L55C

K4'10V!

EQVS tT
1<200

EQVB IT
L55CP

11128

PAGE: 8"91
/CANCEL DEF'INED BIT
/SET EQUIVALE~CE BIT F'OR NUT LINE
/WMEN NEXT PAGE GETS GOING
/RETURN TO ASS!MBLE TM£ PACE WI MAVE

/CK F'OR TYPE OF' SYHBOL
JMS WMATVP
/CALL SEQI
R[T, rr USER SYMBOL
I
RET, rr OP SYMBOL
I
I

6737

''000

6140

U01

6741
6742
6743
6744
6745

ei031

Wlo!ATYP1

USE
TAO
K3000
ANO
M3000
TAO
SNA CL.A
Wlo!ATYP
IS!
WHATYP
JMP

1~52

7650
2.S37

?7J7
I

/EXECUTE ISl GTSVM CMOVE R£TURN POINTER> ONLY IF' l'CTR ,GE~ m
/OTHERWISE MOVE LINE PTR TO NEXT SLASH, SEMI•COLON OR CAR,RETa
I& ISl rrCTR & TREAT AS A NULL LINE,·
I

6746
6747
6750
6751
6752
6753
6754
6755
6156

6757
6760
6161
6762
6763
6764
6765
6766
6761
677121
6771
6772
6773
6774
6775

e~ei0

1775

Cl< IF' I

CK IF' 31

TAO I
I'CT
SPA Cl.A
,•3
JMP
GETSYM
tU
JMP
CK IF'
H"CT
t Si!
NOP
CMR
TAO
SNA
JHP
CKIF'3
M257
TAD
SNA
JMP
CK I F'3
M14
TAO
SNA CL.A
Cl<lF'3
JMP
JMS
GETCHR
CK I F'2
JMP
JMP
,•1

M2571
M14 1
IF'CT,

.,257
•14
IF'CTR

nu
~354

2427
5746
2775
7itl00
1kl61
7450
5371
1373
?450

CKIF'21

~371

1.574
7650
?.571
4426
?357
':-772
~·751

7521
7764
6.371

?fM15

I IS CONO IT I ONAL NON•ASM IN

E;,tc;7

/YESI 00 NOT ASMBL LINE
INO, MOVE RETRN PTR & CONT~ AS USUAL
/COU~T

IGNORED LINE

/MOVE LINE PTR TO ENO OF' LIN!'.
/ll'OUNO A CR

/SLASH
/SEMI•COLON
/TRY NEXT

1112!<
'i 2 ~; 5

52'>6
~2:"t

/PA~F

52~2

53Z0
53U
53Z2

kQRDS)
c~

/TYPICAL

w01mSVM8CL t~
wD2:COC£ BITS
/SYMBOL IO:ADDR~SS 0F SV~BOL ENTRY t~ MAIN SYM, TAB
/CO~EI 3tT~=1 Ir sv~. CEF. o~ cu~. PAGE
I
YIT11=1 tr SYM RErERENCED ~ORMALLV ev A ~R1 1N T~E PG,
I
BtT1~:1 IF SVM 1 REf•n, WIT~ A #
I
AtTS 1•9 USED FOR COUNTING A~ou~T or OBACTR
I
w~tC~ IS DUE TO THIS SYMBOL
/SYM80LS ARE E~TEREJ Qt PST tN O~DE~ Of APPEARENCE
/IN SOURCE
/NO MORE THAN 64 <DEC) SYMBOLS ~AV BE Rtr•o,
/O•J ANY PAGE,
/~OTEI T~E SllE OF TMIS TABLE S~CULD NOT BE
/INCREASEO U~LESS LfS TABLE IS ALSO INCREASEn,
E~TRY•t

5274

5298

(2~··

Ir. I v E~ PAGE" I S t ,.• T£ q ED

5263
5264
5265
5266
526?
5268
5269
52?0
5211
52?2
5273

5299

TA~LE

/~E~JlLT f1~ EAC~ c0~E PAGE er C0DE
/lV[~Y SY~~OL DEfI~~~ OR RErrR[~CEO

526~

5261

52?!5
5216
52??
52?8
52?9
5290
5281
5282
5283
5284
5285
5286
5287
5288
5289
5290
5291
5292
5293
5294
5295
5296
529?

~v~~JL

r ·'.; ; ; LE ,, Q ~ J E. \ Tf.i I £ <;

5258
;2;;;9

?176

/PAGE TABLE (4~2 WORDS)
/DOUBLE wORO ENTRIES
/O~E E~T~Y roR EACM INSTRUCTION TO 8E ASSEMBLED
/ROOM ro~ 1 EXTRA E~TRV TO COVER PAGE CVERrLOW
/A NEW TABLE roR EACH PAGE OF CODE
/TYPICAL ENTRYI W01•CODE BITS
I
W02=SY~80L WCRO
/COOEI BlT1•1 Ir # REF
I
BlT2'1 IF cor TO CUR BANK
I
81T3'1 IF INDIRECT
I
BIT4!1 If BLOCK 0 <rcR EOUtVALENCEO TAGS>
I
BIT5~1 IF SPECIAL CALL CONST
I
BIT6'1 tr SKIP INST,
I
81T'1•1 1r •rs IS CONST
I
BIT8~1 1r PARAMETER
I
BIT9~1 IF CPR CR IOT l~ST~
I
BIT10'1 IF AFS IS LITERAL
I
BtT11'1 rr LFS OCCURS
I
BIT0 U~USED
/T~E SYMBOL WORD•~ tr CODE 8IT9•1
I
•T~E ACTUAL CO~ST OR LITERAL IF 8ITS21517 OR 10•1
I
•T~E SYMBOL IO (MST ENTRY AD~R,> FOR AN AOOR, PARAMETEq
I
OR roR THE AFS or AN MRI

/SABR,815

PAL.1~

5U3
53~4

532!5
531l6
53~7

53l8
532!9
53U

5311
5312

5314
531'
5316
5311
5318

5319
5321
5321
5322
5323
5324
5325
5326
5321
5328
5329
5:S:SQJ

5331

7151
7152
1153
71!54
7155

1156
1157
7160
7161
1162
7163
7164

1165
7166
1161

7170
7171
7172

7173
7174
7175

7151
1122

V135

•7151

1071
72.06
1006

7006
2375

:5775

1014
2375
:5775

1075
2375
H75
2375
6 212'1
5'174

2220

11128

PAGE: 82

/TMtS ROUTINE IS INCLUCEO r:'OR OESUGGING PURPf'.JS£S ONLY
/IMPLEMENT wlTM
/CPGES•1t JMP l ,•1
I
7151
/ANn S£T "DUMP" ABOVE MlGH£ST LOC O~ SVM TAB EXPECTED TO BC USEO
/CDU~P AREA MUST STAY ~ETWEE~ MSl AREA ANO OCC, TAB)
I TMIS ROUTl~E F'ITS INTO TOP or PST <USUAL.LY OKJ

6211
3775

4'll0 0

23;SEP•69

DUMP,

TAO
PTSi!E
COF' UI
DUMP
OCA l
TAO
t..TSlE
CL.L RTL.
RTL
RTL
DUMP
!Sl
TAD
PGEESC
!')UMP
OCA
OB AC TR
TAO
DUMP
ISl
DUMP
OCA
OPS CTR
TAD
DUMP
ISl
DUMP
OCA
DUMP
!Sl
COF' 00
,•1
JHP I
CPGES•3
40210

/SA8~,P15

PALU"

5332
5333
5334
5335
5336
5337

5350

5351
5352
5353
5354
5355
53~6

5357
5358
5359
5360
5361
5362
5363
5364
5365
5366
5367
5368

23;.SEP•69

11128

PAGF: 83

/TYPE VERSION NUMBER
/(TMIS IS ONCE ONL.V CODE)
/(OVERWRITTEN BV P1S1T1)

5338

5339
5340
5341
5342
5343
5344
5345
5346
5347
5348
5349

V135

7000

4424
1212
32111
1214
4613
6476
7~n5
70~6
1216
70?7 3615
7'?'10 5611
7011, 6463
7~H2
712116
7013 6531
7014 7163
7:.H5 6462
7016 7000
101? 2004
2055
70'-~
7l'l 21 71'140
7022 2301
712'23 ?.222
7024 401114
70:?5 v-503
!:>560
7~26
70'-7 7055
i162
7~30
7031 ?-462
7032 5561
7ri'J33 6640
7000
70U
70Z2
7073
7024

•10eHll

VERNUM 1 JMS

CRL.r

JVERS
OCA
><1
M26
TAD
MTYPE
JMS
RGn
1<1000X
TAD
VNOP
DCA
JMP
,•1
IO I
VERSN•l
TAO

JVtRS1
MTVPE1
M26,
VNOP1
1<7000)( I
VERSN1

QUERY

•U
VN

NOP
2004
2055

/POP•8 SABR DEC•08•A2C2•V#

7040

231111
'11222
401114

0503
5560

7055

au2

0462
5561
6640

I• VERSION t C1ST OlGIT>
12ND DIGIT

ISABR, 815

,369
537QJ
5371
5372
5373
5374
5375

PAL.U

VU5

ISABR BANK 1 SECTIO~
IT ABLES

Ut28

PAGE 8'

1112~

~AGE

84~1

11111111 11111111 11111111 11111111 11111111 11111111 11111111
' "' ?1111111
11111111 11111111 11111111 11111111 11111111 11111111 11111111 11111111

;: 10:11

11111111
11311111

11111111
11111111

11111111
11111H'0

11111111
11111111

11111111
11111110

11111111
11111111

1500

11111111
11111111

1600
1700

11111111
11111111

11111111
11111110

20"0

'U0

11111111
11111111

11111111
11111110

2Ul1l
2300

11111111
11111111

11111111

11111111
11111111

1111ili1

241110

11111111
11111111

2600
2100

11111111
11111111

11111111

3U0
3100

11111111
11111111

32iU0

33H

11111111
11111111

111.11111
11111111

11111111
11111111

30ri'
3500

11111111
11111111

3600

1111,1111
11111111

11111111
11111111

111H111
11111111

11111111
11111111

11111111
11111110

; ?~~
L30~
z4~e

:'500
;':600

e100
1000

11011J
1200
13~0

1400

3700

11111111

uuuu

/SAB~,815

PAL,h

V135

23wSEP•69

11128

PAGE: 64eo2

11111111
11111111

4300

11111111
11111111

4400
4500

11111111
11111111

111UU1
11;11111

11111111
1U11111

11111111
11111111

4600
4700

11111111
11111111

11111111
1U1U11

11111111
11111111

5li!IH

1111.1111
1111.1111

11111111
11111111

11111111
1U11111

11111111
11111111

1111.1111
11111111

11111111
11111111

11111111
11111100

11111111
1111.1111

11111111
11111111

111;1111
11111111

11111111
11111111

11111111.
11111111

11111111
11111111

11111111

5100

11111111
11111111

6000
6100

1111.1111
11111111

11111.111
11111111

11111111
11111111

11111111

11111111
11111100

620li!I
6300

11111111
11111111

6400
6500

1111.1111
11111111

11111111

11111111
11111111

6600
67"0

11111111

1U.111U
11111111

11111111
11111.111

11111111
11111111

11111111

11111111
11111111

11111111
1111110"1

•Hl~0
41~0

4200

5100

5200
5300
5400
550!11
56"0

111~1111

1111111~

UH HUHH HHHH HHHH HUHH HHHH HUHH HHHH HUHH
7200
7300
7400
7500
7600
7?0'1!

5376
5.577

5.578
5.579
5380
5381
5.582

t.:ldfclil
Zft'l<:J0

U~•00

EQUTB,

/EQUIVALENCE TABLE
/100 WORDS
/TABLE 15 REINJTlAL.liEO eErORE EACM PAGE BEGINS
/COLLECTJON, IF NO EQUJV, IS ~~rT ,ROM P~EVIOUS PAwE
/MULTIPLE WORD ENTRIES
/ONE ENTRY IS MADE roR
/EACH LOC, TAG WHICH HAS
/EQUIVAL.ENTS
11ST WORD or EACH ENTRY
/CONTAINS NO, or OTHER WORDS
11 N THE ENTRY
/OTHER WORDS ARE SYMBOL ID'S
/(MST ADDRESSES> or SYMBO~S
/EQUIVALENT TO THE PARTICU~AR
11.0CAT I ON TAG

53:l3
5.S•'4
5335
':>386
53H7
5.S:i8
5389
539~

5391

5H2
5.593

SJ94
5.B5

53>J6
5397
5398
5.S99

54/.0
54!1
541'2

/BSEEST I ill

/SINGLE WORD ENTRIES
/CONSISTING or THE SYMBOL. ID (MST ADDRESS>
/EACM EXT 1 SYM, IS
ENTREO IN
/THE !ABLE WHEN IT rlRST
/OCCURS. IN THE SOURCE ANO
/ASSIGNED A L.OCAL EXT 1 NUMSER
/ACCORDING TO ITS PLACE JN THE
/TABLE I

54,~3

541.4
541.5
54~6

54?7

54?8
54.:'9

5410
5411
5412
5413
5414
5415

5416
5417
5418
5419
54?.~

541'1
!:.>4?2

5423
5424

5425

/EXTERNAi,. SYMBOL TABLE
1100 WORDS

/PTOPTB,

l1J

/PAGE OP CODE TABLE
/2illl1J WORDS
/SINGLE wORD E~TRIES
/ON£ roR EACH ENTRY IN PAGE TABLE
/ENTRY•ACTUAL OP CODE roR
/A~L MRI, QPR OR lOT'S
/OR l rOR ALL PARAMETERS
/NEW TABLE roR EAC~ PAGE or COOE
/~OTEI T~lS TABLE MAY OVERFl,.JW BY 1 ~ORO OURlNG CO~LECTlO~
/OVERrLOW CAUSlD BY PUTTING INFO o~ TABLE 8EFORE CK roR OVERrLI
/~O ~ARM If ASSE~, P~ASE LIT, TAB rOLLOWS

/SAB~,815

5426
5427
5'428
5429
5430
5431
5432
5433
5434
5435
5436
5437
5438
5439
54<4eJ
5441
5442
5443
5444
5445
5446
5447
5448
5449
5450
5451
5452
5453
5454
5455
5456
5457
5458
5459
546'11
5461
5462
5463
5'464
5465
5466
5467

5468
5469
5470
5471
5472
5473
5474
5475
5476

PAl,.10

V135

t:~0il

•00

PAGE 85

2J.SEP•69

11128

/ASSEMSl.Y PHASE LITERAL TAal.E
1211 WORDS
/DOUBLE WORD ENTRIES
/MUST BE SEPARATE 'ROH COi.Li
IPMAS' LITe TAB, BECAUSE BOTH
/GOJNG AT ONCE IN PASS it
/THIS TABLE CONTAINS NOT
/ONLY LITERALS BUT ALSO
IO'F PAGE POINTERS
/lST WORD 0, 'NTRY • l OR 2 OR 6

11. ITBSE,

ll MUNS

1.IT~RAL &

12ND WORD CONTAINS ACTUAL VALU~
12 HE~NS
PACE SYMBOL PTA
I& 2ND WORD CONTAINS SYMBOL ID1
16 MEANS
PAGE SYH, PTA
/WHERE SYMBOL RErERENCEO BY A !J
12ND WORD AS 'OR 2
/TABLE BUILT ANEW roR [ACH
/PAGE OF' COOEe

0''
0,,

0~klil

•6!00
/1,.f'SBSE, 0

07ii10

l7k'0

•7U

~ ic:l0;2l

PEBS£1

ILOC '1£1.0 SYMBOi. TABLE
/UIS WORDS
/SINGLE WORD ENTRIES
IEACHISYMBOL ID CHST ADDRESS>
1or THt GIVEN I.F'S
11.rs•s ARE E~TEREO IN ORDER
1or TMEJR APPEARENCE IN SOURCE
/TABLE REBUILT F'OR EACH PAGE OF COOE
INOTEI TMIS TABLE MUST SE AT L£AST AS LONG
/AS THE PST TO PREVENT L'S OVtRr1.ow

/PAGE ESCAPE PUSH DOWN 1.IST
/40 WORDS
ISINGl.E WORD ENTRIES
/EACH ENTRV IS 0,2, OR 4
/BEING THE VALUE or THE
/PAGE ESCAPE C01210R 4 ~OROS>
/OP EACM PAGE ASSEMB~EO
/THESE NOS, ARE SAVED DURING
/PASS 1 & USED DURING
/PASS 2

/$Ad':, t'-1;

PAl.,lk'

\1J5

5477

. 74iJ

•74 :.•

5476

5479
54~it

,4(<1
5482
54~3

541:\4
5485
5486
5487
5488
5489
5490
5491
5492
5493
5494
5495
5496
5497

; c4C:

•'7 4~
.)741
.·7 42
0743
~· 744

fll745

4625

~746

46fll7

'1!141
~15e

fll751
rl752

2J~St::P•6-1

/SO~T

USTS

/Su~T

L. IS T FOH I\ l TI AL

SL,S I

PACiE 1:!6

l.1128

Ci-;A~ 1

LIT ER AL.

/Ml\IJS

/..Sl4

242
25')
3;14

i'.'.513
7777

313

.. 1

/SORT L. I ST "lUST

.~,5

BE FOL.L,O~·E.U tiY A NEGATIVE

/BRANCH L.lSTS
8l.6,

40(1)7

4~14

4~14
f2~5

I J;J'.)Tl

RL.Nl5
RL,N2
RI,. Ni
RL,N..S
RL,N.S

/SORT L.IST f"OR BEG 1'l"-i I f\,G OF' INPUT l TEM
Sl..2,
255
/MINUS
25l
/L.EF'T PAFqN

54'18
5499
55210

i0753
IZ754

k'.i!:>lll

i155

5!:>'11

fll756

SL.6 1

55~2

'1!75 7

55il3

~760

55~4

lll761
0762

(;273
1-:c57
/240
"°'11

7]77

.. 1
/SORT L.lST Mu ST BE f"OL.1,.0W(Ll gy A NEGATIVE
/BRANCH L.lST F'OR BEGINtl.11\iG OF' INPUT ITEM

55e5
5506
55i!7

55U
!H>09

5510
5511
,512
5513
5514
5!>15
5516
5517
5518
5519
5520

0763
11l764
076~

~242

SL.1 1

242
273
257
240

/QUOT£
/SEMl•COL.ON
/Sl,.ASH

/SPACE

211

/TAB

"""'J

/CR

e722

1TM4
ITM8
1TM7

~7!)1

I TM1!)

/NEGAT 1VE.
/L. ITERAL.
/A~PHA CONSTANT
/NUL.L. lTEH
INVL.1.. ITEM
II GNORE SPACE
/IGNORE UB
/NUL.1. ITEM

~·IC Id 0

e6fll7

e732

0766
0767
0770
0771
0772

e751

0773
0774
0775
0776

022

0610
062,0

e·751
0742
e744
k'.:745

BL.2 1

ITM1~

ITM2
ITM2
1TM15
/"RANCM l.lST tOR I iii l Tl Al. CHAR 1 OF' ~ITERL.
BL.3,
lTM7
/GET ASCII VAL.UE f"OR L. l H.RAL.
1TM10
/SET NEG, Sw 1
I TM11
/SET MOOE To DECIMAL.
tTM12
/SET ~ooe: TO OCTAL.

/SABR,B1:i

PAL.11C

11126

P4GE 81

5521
5522
5523
5524
5525
5)26
5527

5528
5529
5530
5531

5532
5~33

5534

5535
5536
'531

ll. TBSE 1 I

/CO~l.ECTIO~

PHASE ~ITERAl.

/U0 WORDS
/SING~E wORD ENTRIES
/CONTAINING ACTUAL VALUES
/TABLE CONTAINS NOT ONLY
/LlTERA~S BUT ALSO
/POINTtRS TO CONSTANT
/ANO ABSOLUTE ADDRESSES,
/TABl.E BUt~T ANEw roR
/EACM PAGE Of CODE,

TA~~E

/SAH;:;,81?

11128

V135

PAGE 86

5538

/INPUT DATA BUFrER
/546 (OCTA~) WORDS
/ALL DATA CHARACTEHS READ DIRECTLY INTO THIS SUFFEH
/1 CMAR, PER WORD
/TME ACTUAL SliE or TME eurrER JS ARBITRARY,

55~9

5)4id

5'41
5542

5543
5544
5545
5';46
5547
5.,48
5549

11ft0

1U0

•110~

~'.~!Diil

DA TA,

5~50

5551
5552
5,53
5554
5555
5556

/LINE BUFFER (73 WORDS)
/CO~TAINS ASCII CHA~ACTERS1 1 PER WORD
/NULLS & RUBOUTS OO~T ~AKE IT
/END or ~JNE MARKED BY A 0000
/CR 1 Lf1FF OON!T GO INTO THE BUFFER

5~~7

/BUFFER IS ~AJD OUT AS FOLLOWSI

5.,56
5559
5:>6ti

5.,61
5"62
55~3

5!:H>4

1046
1646

e~~lil

1756

•1646
1.JNBUF'e 0

/11~<0CTAL>

WORDS roR LINE CHARACTERS

11 E~TRA WORD TO PREVENT OVER,LOW
/CGETS TME 0 WHEN LINE JS !00 LONG)

/SABR ,815
5565
5566
5567
5568
5569
55711:1
5,?1
55?2
5~?3
5~74

55?5
5576
5577

5578
5579
5580
5581
5582

PAL.Ul

V135

23wSEP•69

1~>7

•1757
SL,7,

1757
1760
1761
1762

it215

176~

0~U

1764
1?65
1766
1767
1770

777?

•1
PTEXT
PT EXT
TEXERR
L.72S
L.72X
1.72•2

1711

1772
1773
1774

e2i4

240

e240

BL,1,

1657
1676
2'~7

2211
2202
2202
2211

PAGE 89

214
212

~212

1§!H

11128

81.,7,

L.72•2

L.72X

/SORT ~lST MUST BE FOL.~OwtD BY A NEGATIVE
/SPACE
/TAB
/Hl0

/SABi.;,o1~

1112'i

f AG( 11,·

5~~3

55!-4
5~:;5

55'46
5517

55ea

IE .Ti11U

55;;.9

I
I
I

559~

55'>11

A~E

co· PJ~

rtRST A 1 ~
T~E~ THf SY
Ft~ALLY

T~E

5592

5593
5594

5595
5596
5597
5598

5599

500
56~1
56~2

56.;J
56{4
56?5
56l6
5627
5H'8
56?9

5610
5611
5612
5613
5614
5615
5616

er THE rJLL0~1~G1
0 HEA'.;[~ CODE
OL ITS[Lf IN PAr~ED 6~1T ASCII <1•3
~ORD HlNARY VALUE Of THE SY~dOL

~oRDS>

/THE HEADER COUE l~ LAlO OUT AS fOLLOwSI
/(Al fO~ OP CODE SY~bOLSI
I
81T0•1 AFTER T~E SYMBOL HAS 8EEN PRI~TEO av PRSYM
I
BITSl&~.~
(THESE ARE THE sv~~OL TYPE BITS>
I
BITJ•l fOR ~EMORY REFERENCE l~ST~UCTIONS
I
BlTS4&~=T~l ~IC~O•GROUP fOR QPR INSTRUCTIONS (~ fOR
I
<~OTEI MICRO•GROUP IS SET TO ~ fUR CLA)
I
81T6=1 If T~E SYMBOL IS A PSUEOO•OP
I
BtT7•1 If T~E l~ST 1 lS A SKIP TYPE I~ST,
I
I
I

~Rl

A~D

IOT lNSTS,)

~lTl:S=l

IHTll•~

BITS1~&11•T~E

~UMBER

Of PACKEC ASCII SYMbOL

~OROS

/(8) fQR OTHER SYM60L TvPESI
I
8lT0 AS ABOVE
I
81TS1~~=o FOR •SSO~UTE A~O CCMHON SVMSQ~S
I
. •1 rOR RELOCATAB~E SYM~OLS
I
=2 tOR EXTER~A~ SYMBO~S
I
BlT3•1 AtTER THE SY~BOL MAS 8EE~ DEfl~ED
I
BIT4~1 roR ENTRY SYMBO~S
I
~lT~•1 lf T~E SYMBO~ lS EV~R RErERENCEO BY A #
I
8lT6~1 lf T~E SYMBO~ IS lN COMMON
I
3lT7=1 IF T~E SYMBOL lS A DUMMY SYMBOL
I
BlTS8•11 AS ABOVE

THE

E~TRY

/U8R,Ei15

PALU

5617
5618

5.6l,9
562ia
56·21

5622
5623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640

e.S31

2.531

1Stlil

1501il

20Vi4

36-il!i3

PABSYM

20k'.'5

3i."52

20~6

d.22

3052
U22

20(?7
2010
2011
2012
2013
2(/Jl 4

2015
2016
2017

2"44

5658

5659

566S
5661
5662
5663
5664

11128

/ABSVM

3~53

20~J

5654
5657

3053
i'l11J2

22!l1
201?.2

5642
5643
5644
5645
,646
5647
560
56'9
5651/J
5651
56'52
'5653
5655
5656

23•SEP•69

/~ST•,

2~00

2020
2021
2022
2023
2024
2025
2026
2027
2030
2031
2032
2033
2034
2035
2036
2037
2040
2U 1
2U2
2043

5641

V135

eurz:
1~66

3412
rc;h~

0400

0000
3053

e214
17IOJ

H.,.,
2~00

30'2
EiS01
1414
1400
3~!:)~
~J17

1515
1600
1600
3112
~311

eu0
1041
3012
0314

l1!.12

;117~0

PARG
3412

I At'iO

0116
04~0
A~D

3053
0214
1703
1300
PBSS
3052
0301
1414
PCALI.
3053

181.0CK

ICAl,,L.

/COMMN

i:l317

1515
1600
PCOMMN
3112
Ql311

/CIA

011210

ICLA

0u0

CIA
3"12
0314
0100

7200
3112
0J14

CL.A
3112
0314

ICLL.

2045
2046
2047
205S
2051
2052

100

1400

7100

CL.L
!112
0315

0100

~10121

?f/JO

CMA

2053

3U2
0315

3.112

1400

2054
2055
2056

IARG

3112

0315

7020

0315

CML

ICMA

/CML

PAGE 91

PAl.10

/SA8~ 1 b15

5665
5666
5667
5668
5669
5670
5671
56?2
5673
5674
5675
5676
5677
5678
5679
5680

2~57

3~53

3053

?.405

04'1J5

22'65

2066
2~67

2"170
211171
2'1!72
2i73
211174
22175
2076

56~1

2~77

21?0

57'1
57?2
57~· 3
57/4
571'5
57.'6
57?7
57;•8
57?9
571"
5711
5712
5713

5114

5715
5716

23;.SEP•60

211l61Zl
20!>1
2!2l62
2063
2"164

56?2
56e3
5684
5685
5686
56e1
56A8
56&9
5690
!5691
5692
5693
56"4
5695
5696
5697
5698
5699
51n

V135

21~·1

21i.'.2
21 ~<5
2174
21>'5
2F6
2127
2110
2111
2112
2113
2114
2115
2116
2117
21221
2121
2122
2123
2124
2125
21::?6

?311

1su

['403

Q!OJ

;'UJ0

0100

;51t00

DCA 0
311l52
0501
2 0 rl!0

2000
6375
3052
v516
e4""

POEC

PEl\JO

31ZJ53
e-516
2422
3U!0
6662
3il:53

3053
0516
2422
3100

~617

3~51

1106
6341
3053
'13221

3212
1014
200
Ml.T
3051
111Z6

/F'ORTR

/~LT

/lF'

PIF'

3053
2·320
211~7
?.5:it~

2633

PIF'F'

3432
1123
32Z121

1123
32121121

3432

1116

!Sl 0
3412
1116

2~ze

IS?. l

:'30~

/E~TRY

Pf'ORT

?~00

?~l21

/E:\10

li"617

(',101

3412

IEAP

2224
2200

2131
2134
2135
2136
2U7
214'.ll
2141
2142

IDCA

PE'HRY

311153

2127
213ll
2U2
21.33

/DUMMY

PUP

311152
!2l!516
00!11l

?534

2224
22e:21
3363
3212
Hl14
24e0
7402

/0£CIM

P!3U

311153
li:'425
1515
31Nl
POUMMY
3412

~501

PAGE 92

15011l

4735
3fcl53
(7425
:t.515
3 li210
5545
3412

3~52

11128

~31?'1!

/CPAGE:

IISl
/INC ( ~, 0 "" • s l<f p ISZ>

PAl.U

/SAB~.615

5717
5718

5719
572rll
5721
5722
5723
5724
5725

5726
5727
!5128

!5729
5730
5731
5'132
!5733
!5'134
'735

5736
57J7
5'138
5739
5740
5141
5142

5743
5744
5745

5746
!5147

!5748

2143
2144
214!5
2146
2147
2150
2151
2152
2153
2154
215!5
2156
215'1
2160
2161
2162
2163
2164
216!5
2166
2167
2170
2171
2172
2173
2174
2175
2176
2177
22Zl:'l

22i2l1
22ill2

3112

1101
0300

7H1
311J12
1117
0600
61'02
:s0i2

V135

23~SEP•69

U12

11128

IIAC

UC
H12

1117

IIOF'

06"'8

10,.

1117

HU
1111
UH

/ION

34U

3412

/JMP

1600
60U

ION

1215
2000

1215

51:'!00

JMP 0
3412
121!5

IJMS

JMS llJ
H12
1322

/1(~8

3412
1215
2300
4000

3012
1322
v200
6a36
3032
1323
0600
6031
32152
1•ei
2~00

6372

KRB

31U2

1323

/KS'

UH
KSr

3052
1401
211.100

Pl.AP

IL.AP

PAGE 93

/SAB<,~1~

5749

F Ai,..1 i

V135

23-S[P .. ~~

22.-:5
22 ,4

::n12
1617

22. 5

;,:.a~

2Vl

22"6

7i20

'OP

22:7

3(:53

5754

2210

'57i;i5

2211
22'l2
2213
2214

3?.53
171'3
24/1

5756
5757
5758

17?3
24;;1
1420

5759

2215

575Z
57'51
5752
5753

5760

5761
5162
5163
5764
57~5

5766
5761
5768

5769
5770

5771
~'172

5773
5774
5775

3112
1617

POCT

3.t53

112e

3053
11?0

?.·600

:'600

2220

36~5

()PD(X

2221
2222
2223
2224
2225
2226
2227
22321
22:51
2232
2233

3212
1723

;t.405

22~'11

741Z4
3052

('SR

2!0~1

2001

3052

~:334

!'PAGE.

3053

2523

?5e0

2235

4316

/:JSR

/PAGE.

;~7:~5

3©53
2iei1

2234

/OP.JEF'

~405

2200

v7e5

/·1CTAL.

14,;'~

474~

2216
2217

1112~.

I .r's:l

20~1
·.'i5~i

?PA 1.JSE

/PAUSE

f:.'AGE 94

/$AB~ I 1315

5776
5777

5778
5779
5730

5781
5782
57B3
5784
5785
5'766

5181
5788
5789
5790
5191
5192

,1n
,794

~195

5196
5797
5798
5799
5800
58~1

sen

5803
5804
5805
5806
5807
58U
5809
58U
5811
5812
5813

PAL.1~

2236
2237
2240
2241
2242
2243
2244
2245
2246
2247
2250
2251
2252
2253
2254
2255
2256
2257
226"
2261
2262
2263
22ti4
2265
2266
2267
2270
2271
22'12
2273
2274
2275
2276
2277
2300
2331
2302
2303

3it12
21314
2300

V135

23;.SEP•69
3"12
211114

6;()26

23eie
PL.S

3ft32
2023

3032

;•600
6021

3053

2205
1122
0700
0345

3053
2205
2422
1600

4257
U12
2201
1400
7H4
3112

2201
22e0
70U
3012
2206
0300
6fll14
3Z12
2222
02 00

11128
/PLS

/PSP'

2023
l'l6~~

!'SF'

3053
22l5

/REORG

1722

0'PRORG
QHIJ

3053
2205
2422
16H

IRETRN

PRTN

3112
2201
14210
!UL
3112
2211!1
2200

/IUL,

/RAR

!UR

3"12
2206

IRJ'C

121300
RF'C

3012
2222

/RRB

r1!2fll0

RRB

6012
3032
2223
060rtl

3032
2223
UH

60U

qsF'

IRSF'

PAGE: 95

/SA8~,81')

5814
5815
5816
5817

5818
5819
5820
5821
5622
5823
5824
5825
5826
58~7

5828
5829
583el

5831
5832
5833
5834
5835
5836

5837
5838
58:59
584fe
5841
5842
5843
5844
5845

5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
58~8

5859
5860

5861
5862

PAl.10
23'14
23eJ5
2306
23'1'7
2310
2311
2312
2313

2314
2315
2316
2317
232'11
2321
2322
2323
2324
2325
2326
2327
2330
23.31
2332
2333
2334
2335
2356
2337
2340
2341
2342
2343
2344
234,
2346
2347
2350
2351
2352
2353
2354
2355
2356
2357
2360
23b1
2362
2363
2364

3U2
2224
1400
7006
3112
2224
2200
7ilJ12
3232
2313
21Zl00
7410
3053
2313
2004
21600
36214
3232
2315
U00
7500
3232
2316
0100

7450
3232
2316
1400
7420
3232
2320

V135

23•SEP•69
3112
2224
10J0

RTL
3112
2224
2200

30,3

e100

/SKPDF'

2313

2004
0600

Sl<POEX
3232
2315

/SMA

111100
SMA

3232
2316

ISNA

0U!0

SNA
3232
2316

ISNL

SNL

3232
2320
01'1'~

7440
3232
2332

ISKP

~000

SPA
3112
2324
"100

7240
3112
2324
l400
7120
3232
?332

/RTR

Sl<P

7510
f/100

/RTL.

~TR

3232
2313

e.100

3112
2324

11128

/SPA

/STA

STA

3112
2324
1400

/STl.

STL
3232
2332

ISH

3232
2332

/SlL.

0100
Si'!!A

l4~0

140~

7430

Si'!!L

PAGE: 96

PAL.10

/SABl:i, 815

5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874

2365
2366
2367
2370
2371
2372
2373
2374
2375
2376
2377
200

5815

24~1

5876
5877

24"2
2403
2404
205
206
24117
2410

5818

5819
5880
5881
5882
5883
5884

2416

24t7
242:21
2421
2422
2423
2424
2425
2426
2421

UH
SPA CL.A

3412
2401
111400
TAO 0
3092
205
3024
PTtXT

3052

ITLS

TLS

!132

ITSF'

2'23
0601

2423
0 60121

TSr

6041
ACM•20
ACM•21
ACL.'22

v 452
eUJ
1000
0020
?452
;:UJ

/ACM

0452
0103
1000
ACM
eJ"2
llJ1"3

IAC"I

1'00

1500
12l021

ACM

~452

0452

r 103

0U3
1400
ACL

1400
7~22

II'

?4~0

2430

/T[XT

3012

2 301ll

k'451

IUD

2414

6046
3fll32

1100

11128

'11451

1100
lll41U

STTP"'

PAG£ 97

ISPCISPA•CLA (USED BY COMP IL.ER>

2320

205
3024
1657
3'°12
2414

1"'022
2411
2412
24t3
2414
2415

n;sEP•69

3232

201
0400
1000

Z0U
0021

5865

5886
5881
5888
5889
5890
5891
5892
5893
5894
5895
5896
5697
5898
5899
5900
5911
59:-12
597-3
59V"4
59Jl5
59?6

V135

3232
2320
v300
771fll
3412

IACL

/SASQ,~15

::"AL.1/

59/7

7')77

23•SEP ... 69

11128

PAGE 96

!:i9 .~8

59J9

5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
592t
5922
5923
5924
5925
5926
5927
5928
5929
59:50
5931
5932
5933
5934
5935
5936
5931
5938
5939
5940
5941
5942
5943

/TME OCCURHE~CE TA8LF EXTE~DS DO~NWARO FROM HERE
/TOwARn T~E ~Al~ SYM40L TA~LE
I & SH AR l ~· G THE SAME SP ACE ~!! TH t T ,
/TMIS TARL.E IS VARlA~L~t 8[I~G COLLA~SEO
/AS MUC~ AS P0St8L.l DURI~G JSE~ THE ONL.Y
/TMJNG LEfT O~ IT AT T~E E\O ARE U~O[FlNED
/SVM30L.S.
/T~E occ. TAB, CO~T•t~S 4N ENTRY roR EVERY
/REF, TO AN AS YET UNOF, SY~80L, EACM
/TIME A SYM80~ IS DEFI~ED THE
TABL~ IS SEARCMEO
/TO SEE tr FORwARO REFERENCES TO IT EXIST,
/IP SO THEY ARE OUTPUT & THE TABLE
/CONOENS£0.
/ENTRIES CONSIST or 2 OR 3 WDROS
/STRUCTURED AS BEL.OWi
/HIGH WORDI
LOCATION or RErERENCE
/LOW WORDI
SYMBOL J,O,
/OPTIONAL wOROI # FLAG
/THE LOC, WORD CONTAINS THE PROG, ADOR 1 WHERE
/TME VALUE or THE SVM, MUST BE ASSEMBLED
/THE # fLAG•1 If IT EXISTS, IT WILL
/EXIST O~LY FOR THOSE ENTRIES WMERE TME
/SYM, WAS R(f!D, av A #,
/THE TA9LE IS ALWAYS SEARCHED IN REVERSE
/fROM LOW CORE UPWARD
/THE O~T. PTR (OTP) AL~AVS PTS~ TO tME NEXT FREE
/LOCATION BELOW TME TABLE
/THE TABLE HAS NO IMPORTANCE CURING PASS 2,
7600

CORE111176011l

/THE TOP PAGE Of UPPER
/~EMORY IS NOT USED

ISABR,b1~

/"'l"'

1'100

PAL.1"1

V135

23;.SEP"69

11128

PAGE 98"'1

1~~0ei00

00210~0[.10

e01il0V'l0?i0

001.10fll000

riHHl000['.';fD

~HH1000l'I~

~0000000

"'~0000~0

<"0~it.(1)00fi'.l

~li'!~V'J~Q'J~el

0ill0000 ..rn

00,'0t':002!

e.00001H'0

ill0000.00~

i(l\0000000

P.!0H!00~0

'72\i.l0
:l'300
(;~400

1~5i!lk'l

N100

1(10000000

000k'l0000

00000"'ei0

00?-00000

0rcHH!IVl000

!l!00000el0

10000000

000002'00

001iH'l0000

k'!0ft000"1l0
0111e0 00000

00001Zl01?0

~700

11111111

11111110

1000

00000000
urn00000

00000000
0000000121

21vH'l000ll0
00000000

!2lQJNll0012!0
0210002100

00000000
000000C0

00"0"0"e

ei?J000000

lt'00000fill0

~00011'0012'

CHrn000011l

000el00{1!0

00000000
IHH.'1000l!0

~'0J02l00121

011lP.H:Hle!~0

?.0~00000

00000010

0Ziti0ek'lll!Q!

000021000

11i0

00000u0

liH!l0'10002l

000000e.0

00000~e0

00000001

11111111

l'l000002'0
1111101'!0

2000
2100

11111111
11111111

11111111

2200

11111111
11111111

11111111

11111111
11111111

11111111

2300

11111111

11111111
11111111

2400

11111111

P.10000000

00000000

000e0011Hll

1!!00H0~11l

2,00

l!!0 Q! 00 01210

00000£100

00000000

09~00000

01/J0000l'l0
00000001/J

CIJ00000Q'0

00~~00000

000001112!0

1100
1212l0

1300
1400
150QI
1600

2600
2700
3et0k'J

3102!
3200
3300
3400
350QJ

3600
3'700

11111111

11111111
11111111
11111111

11111111

23;,SEP•69

4e~0

4100
4200
4300
4400
45/lli('

46012'
47i;!l
5P.'M~
51~0
52?!~

5370
540~

5521i"
:; 62?.
'.::?~?.

642121

65A0
6600
67:117.
70110

7100
72'11/l
7300
74J?,

7500
76llel

77M

11128

PAGE 98•2

/SAB~,815

~ AL.1'1

V135

A1
A1P
A2

5526
e'H2

AANU~7

5424
5511
12J441
Q'141
2523

ACM

002111

A2i~ONA

A2P
AA CTR

ACL.

~12122

ACM

~021

ACTR
ADORES
AERROR
AF'L.G
4F'S
AL.EN
ANCHI<
ANUM?

0057
013!5
5760
0133
0142
0150
5737
2514
2476
0102

Ai~UMCI(

APMSw
APTR
ARGCT
.ARGPPlill
ARGPP2
ARGPP4
ARGPP5
ASr1l
AS00 I 3
AS~0l4

AS~0Il

ASAV
ASIF'
ASMi2JIO I
ASM01
ASMIHA
ASM018
ASM02
A51'102A
ASM021
ASM02S
ASM03 I
ASM04l
ASM05
ASM05C
ASl"106
ASM06l
A5M0?
t.Sl"107A

012105
1562

U27
1'44
15!5

1531
012105

6310
6260
6251
0143
1767
5':50
5746
5460
5477

5651
6036
5514

ASM09

1560
5732
5733
5600
6231
62.52
5734
6200
6220
5735
5616
6241

ASl1098

6226

~SM07l

ASM08

23;SEP•69

11128

ASM091
ASMUJ
ASMUB
ASM11
ASM12

62'12

ASM12E

6308

ASM12F'
ASMUI
ASMU
ASMUI
ASM14
ASM2AI
ASM2IX
ASM5AI
ASM5CJ
ASMBL.
ASME1
ASME1!
ASME1X
ASM£2
ASM£2P
ASME:S
ASME4
ASHES
ASM£6
ASME7
ASME11
ASME8
ASMEXT
ASMJF'
ASM1'1
ASM)(4
ASMX41
ASMX5
ASMXS!
ASMX6
ASMX61
ASR
ASR1
ASR2
ASSMBL.
AT

5136
6"1U

6H3
6H6

6H4
6H4

nu
6855
6327
'131
5172

5614

5615
541111
510
6111
510
5141
612135
UUJ
6023
6H7
6Ul2
6063
!56•4
6U4

3'10

2612
15'2
6010

5641

6071

560

6076
56'3
6631

6643

6647
04:52
2711

ATE"12
ATEM3
ATE"14
AVAL.
BANI'(

3355
3356
3357
3360
0142
U47

8CO~E

0'3'Z1

8CT~

t'140

RL1
8L2

1765
11.763

ATE~1

PAC£ 98-3

SL.3
BL.6
BL.1
&LEN

BNKUP
8NKSAV
BNKSV

B,TR

B-SEEST

esssw
BU,.

BU, BEG
8UrEN

CPU'S

,,,.
6616

CRLF'

Ul36
0183
0l62
HH
4113
66'7

CTPTR
CTYPt
CURSICP

0111

BYTE

6661
47U
Ul2
1111

cnH

5363

BU, END
BVAL

C3111
CAL.EAR
CALL.F'S
CALL.SP
CALL.SW
CDrCHG
CDF'SK
CD,SKI
CD,SKP
CDlSI<
CDHKI
COUKP
CERROR
CHARCT
CMR
CKCLS
Cl<CL.SP
CKCSW
Cl<CSWP
CKIF'
Cl< I F'2
CKtF'l
Cl<IF'P
Cl.ENUP
CLNPST

C:OOE
C.0"1MN0
C0MMN1
C0MMN2
COMP
COMPGO
COR£1
COU"JT
CPGES

HZ2

e1n
0745
1110

5576
1428
0141
"161

1963

uu
uo

61'.6
5525
H'1
560
25'1
55'6
0127
0161

07'1

1565
0162

0!:53
6746
6757
67'1
0757

05!1
6424
0134
1637
1641
1645
k'.270
~264

7600
1"152
2215

CPGESI
CPLF'U

'394

CPIW

1114

CIUM

DUA
DCIL
OCtL1
DE'1

D£'2 ·

0£'3

DE'ERR

oirsue
DEL.IN
DISPL

DOTRTN

osw

DUH
DUMMY
DUl-f P

DU"4S

OUM SUB
r:rLG

ENDE ND
tQSAV
£QUTB

[QVB!T
£QVF'IX
E:QVIPR
£QVOPR
ERQ1
£RR11
ERR2
ERRA
E:RAC

ERR£

ERR EX
e:RRI
!:RRM
£RRS
£RS1
ESTSU
EXP
rATAL
rAfALP
F'ETCl-I
rpq
r:"J XIL

''"
HH
UH

HU
3626

3634

3636

3661

1642
1111
HU

...,
OU

11119
3716

71'9

8161

11131
1571

1122
Hiii

Ult
6725
012164

02163
2713

2751
2167

2712
2711
27i:l1
2756
27U
2705
2702
<4471
0100
0145
2700
4373
4641
0332
2676

/SAB:~ I 31~=

F AL.1 c

V135

F"lXILC

5561
•. 1(!'6

FORF'LG

23 .. SEP,.69
I POP IN
IPS·H!\I
ISSI

11128

?67?.
2667
5423
67l1

K24it>'

K2:'>6:·1

ld:l-47
6167
6143

K260

.:57"5

~1 533

K3
K3'.·l
K3l'0

i016

FOUND

\~126

r;ETBAP

577 ;~

GETBA.S

66ill(~

C.ETCHR

ISlPT
tSU3 T1

~'.026

tSiPT2

GETSVl'I

7027

(;.\j(Q

2524

ISi!PTX
l T..,1 <'

''.6\h~

1 TM11

?744

tTM12

v145
v747

GTSy ...1

HCBPS
"'lCOM

HlSP

HSR

HSR1
HSR2
18

I8TI
I CAL.SW
ICPGES
ICPL.F"S
I ERROR
t F'CT

3537 .

l076
6406
6610
6613
6617
e!41
2163
0326
il022
k_'.021

5575
6775

JF'CTP
lF'CTR
t F"F' s

0756
6371
1110
2646
2425

INC

1561

lf'f'SUB
11
11.C

rlJ~65

l'!'M13

ITM14
1TM15
I Tt-12
ITM3
ITM4
ITM5
1TM6
ITM?
ITMB
1TM9
JA.SR
JCOlJ!\T
JHlSP
Jl-ISR
JL63
JL.64
JL.1ST
JR DER
JVERS
K0l.02
K0317
K0406
K053eJ
K1
K1fl'

PAGE'. 9B .. 4

3567
6455
;t,742

v75~

r751
~61'21

el617
06fl7

K251.6

K377
K3777
K37?H
K4

t~160

0045

~664

K40~ii'

0714

K4i03K
K01
K4;.J3
K4r.17
K44"1
K4440
t<5
t<521:14
K53?6
i<53?7
1<60

0041
6442
364Z
671210
6056
1656
2166
ltl154
351?
b311
6312
2576
it027
2677
1551

'1'122
£7~2

C733

6'565
0125
6571
6564
6567
6570
6572
6573
7012
6163
6164
6170
6171
3716
0156

K60~

INDX1

INl
?NIL.PT

e030

K1fMl

0162

1000

K10el0

0030

!NlS
li''llSS

5516
0530

0017

K17

1q,50ia

K777

IN I SUB
Pd TA
INlTAl
1N1 TAP
INlTIO

1041

6166
3442

4327
ll•574

0325

K11
K1'12V.1
t<1?6
K117
K2
K2V:l

IOI

t'.3?7
437?
2371
4574
4372
6463

I01N1T

6456

K2300

6527

K24:1

tNtH~P

INlTMR
1Jll1 TR
INlTRP

!OX

K2Vl~

K2000
K2~1

K222e

~r"15

K400

K7000X
K7317
K7410
K7577X
K760r

K13a

~\031

3641
556?·
3441
4176
4256

K4'~

5367
3551
0:527
4702
6566
0151
5515

tNCOBA
INCPT
1NCPT1
INOEV
I NOE VP
INOEX

ii02itl

216?

6144

5523
0163
0iH4

0157

U64
0043
0532
66?7
6165
U65

1<62e0
K62i31
K7
!<7000

KCDft:'.10

KCDF'U
KCOF'1A
KCDF'A
KSR
L31
L3t.A
L31B
L32
L32A
L39
L4k.'·

0155

3647
7016
3161
3657

2475
0166
'1161

4360
5662
5660

5642
6120

6547
2267
2305

2273
2232
2265
3452
35k14

L40A
L408
L41!1C
L4eo
L41
L51
L51E
L5H'LG
L51G
L51J
L52
L52A
L53
L53A
L538
L55
L55A
L558
L55C
L55CP
L551
L5'5L
L56
L61
L61A
L61B
L61C
L61CF
L610
L610P
L62

L62A
L62U
L63
L64
L65
L66
L66A
L66U
L66A2
L66A3
L668
L660
L66E:
L67
L68
L68I
L72
L72S
L72X
L73
LASMP

3465
3526
3532
3477
3511
3062
3U1
31.?2
3124
3145
323?
3265
3271
3315
3321
0400
0433
0434
0405
6736
0045
e436
iz.4 31!!
1323
1335
1344
3367
1346
1342
3377
3664
3611
3114
3164
4712
4705
3713
3765
3741
3747
3123
236'7
2370
2357
3032
2315
3160
220el
2201
2211
4726
0324

/SABR.815

PAL.12
LEAD
LEADER
LEAOl
LF'L.G
LfS
Lf SBSE
LF'SBSl
LF'SBSS
LF'"SCi-IK
LfSCK
Lf SCK1
L.F'SPTR
LlNAX
L.lNBUF'
LlNE
LlNEB
Ll N£1o;I~
LlNENO
LINK
LISTON
LlTBSE
Ll TPTR
LlTSU
LlTSl£
U.F'S
LI.F'S 1
Ll.F'SP
LST8NK
LSTOEP
L.STOEV
LSTSKK
L.STSKP
L.TBSE
I.TSU
MU
M100

M11

MUA
Ml.4

Ml.1
Ml.17

M2
1"1200

!"1201
t-1211

M2402A
M243
M254

M257
M26

M260

V13'

23•SEP•69

11128

~575

M26'1A

~752

4714
4371)

r-13
M3000

U12

11130

M331

0137
0027

2474
3017
k:l031

M3°1A

M4
M5
t-A50

3000

H160~

3042

M8£
l.1£RROR
MGRP

eU6
01'10
1646
0067
1164
4763
4640
0033
6400
2:045
3362
00712'

0Ql70
5366
2170
2377
0073
4171
6531
1037

0072
0"30
0071

1567

3775
6576
4572
4255
6774
6571
405
0111
i166

2675
1ft'J40
6271
2171
0167

6.,., 3

7014

4511

MM1

MS CTR
MST
MTV PE
MUL.1
NSCHK
NSCHKI
NSCHKP
NSGl\I

"llUL.L.
PJUL.L.P
NUMSGN
NUMSGP
O.APL.T
OBA CTR
OB'L.G
oBrL.GP
OBIS
OBISUB
OSNSVM
OBSYM
OL.DOBA
OLDOBP
OP

OP DEX

OPlCTA
OP!S
OP lSUB
OPS CTR
OTP
OTPR
QTVPE
OUAPL.T
OUT1
OUT2
OUTBtN
OUTBN
OUTEX
OUT SK

0052

6563
4'73

3704
6575
6654
0004
0164
0170

5763
0143
5132
01'3
0043

7013
0702
6333
1:522
5647

47t4
0034
5173
5364
3200
0074
5U4

5277

H55

5717
4507
0U2
5276

5163

010
3605
2532

H62
5776
H15
0H6

4356
01ll35

5'17

01•1
2!127
0036
3t100
3430

6261

PAGE 99 .. 5
OU'l'SKP
PAf!SYM

PAG
PARG
PARG2
PARG5
PARG6
PARL.IT
PASS
PB€
PBSS
PBSS1
PBSS2
PBSS2l
Pl3SS2J
PBSS4
PBSS41
PBSS5
PBSS51
PC ALL
PCAL.L1
PCOMMN
POEC
POUMMY
PEAP
PEB
PEBSE
PEND
PENTRY
PEP TR
PEPTRP
PF'LG
PF'ORT
PGEESC
PHASE
P IF'
PlrERR
P In"
PL.AP
POCT
POP
POPEX
POPEXP
POP I ~J
POP I~· I
PP AGE
PPAR1
PPAR3
PPAR3S
PPAR4
PPAR5
PPAR6

0037
3600
0017

1466
1564
1552
1566
1241
0110
2165
2600

2621
2435
2630
6723
6710
2632
26U
6724
1400
1570
1600

4735

5545
6375
4376
0100
~~534

6662
5522
4374
0125

3363
0111

rtU3
6341
6357
2633
6372
474iil
1166
6443
004'0

4217
i33"'
0334

1302
PPAR>C
PP ARY
1234
PP AUSE: 4316
0345
PRORG
4010
PRS1
4025
PRS2
40'7
PRS3
41U2
PRS4
4101
PRSS
PRS6
4132
4137
PRS7
4111
PRS8
4000
PRS't't-1
0041
PRSY~P
4251
PRTN
PRTN0

4~U3

PRTN1
PRTN3

4314
4315
4213
0331
4115
6776
1"113

PSHIN~
PSHI~'l

l'ST
PSTB
PSTBSE
PST CPR
PSTO
PSTOEf"
PSTOEP
PS TM A)(
PSTSPR
PSTS~E

PTB
PTBSE
PT CPR
PTEXT
PTOPR
PT OP TB
PTSI!
PTSPR
PTSi!E

PUN CM
PUP GE
PUSH
PUSHER
PUSHlN
C!UE'.RY
R

1200

1236
1253
1304
1316
1216

RC
RCH
RCH3
RCH4
ROER

0114

2522

5570

5365
2314
'11115
rll1U
1116

0174

0111
U'7
0120

0164
llJU2
ra121
0122
011142
ei112

1765
4237
4200
6!531
4656
4664
0154

4546
4565

.. ,61

6417

ISAB~,815

FAL.11.~

V135

><OIL
RDl.1
F<!Jl.1:11

02143
2001
2066

rHJL.11

2172

RDl.12
rWL.13
J.iUL.14
RCJL.15
RDL.16
RDL.17
ROl.18
R0L1X
PUL.2
r<tlLJ
RDL4
RDl.5
POL?
P0L9
i•OS1

2075

1<ECRET

RECT
RECTl.
4ECT2
f.'ECT3
1-ECT I
REDUCE
hEOUCP
hEE
t<EEASM
PELl\E
'<£1.NP

REX IT
RG
RG1
i=<G3
RG3P
;:..Go

RL."

PL.11J15
r<Lfll2
RL.l\iJ
'1LN4
Rl."'P

P0RG1
~ORGX

l"lS'11
;~s:-12

"ISrl.3

STRT
PSTRT1
rSTRT2
1.:STRT4

i:;

2117

2125
2141
2143
2161
2174
1035
2:;,22
2022'
2105
2024
2027
2046
0665
0447
13443
V.400
0454
1£'1514
111044
5524
3536
k''73

6016
4754
5521
6622
4667
4671
4617
6660
64'6
4600
4625
4607
4614
4634
2164
0314
0370
ft651

0626
0642
0205
e201
0252
(Z245

23;SEP•69
RSTRT5
RSTRT6
RSTIHI
RSTRTX
RTN
RUSVL
S0

S1
S2
s::s
SAVE IT
SAVL.IN
SAVL~'I

SAVLNP
SCOLD~

11128
Z242
i1ll16
2613
Q!315
004".I

4535
01521
0151
Q!!152
~153

4762
4743
3361
5520

urn

1240
5646
6270
5517
5263
SET0~8
5U2
SET~0J
!5115
SETVli!'J 5121
SETlcl1 A 5111
SET018 51U
SET1£12 J 5116
SEU4J 5117
SET05J 5120
SET06J 5123
SETVJBJ 5124
SET09J 5125
SET1"!1 5126
SET11 I 5127
SET12 I 5130
SET6P1 5131
S£TC00 5251
SETCet1 5014
SETCl12 5306
SETC04 5300
SETC05 5200
SETCOl6 5231
SETC07 5050
SETC1t8 5217
SETC2!9 5221
SETC10 5212
SETC11 5220
SETC12 5224
SETC13 5236
SET CAL. 1165
SETCAP 5133
50<''11
SETCT
SETSUB 5134

SER ALI
SER ALP
SERALT
SERROR
SEH0A

PAGE 98·6
SETSX
SIGN
SK
SKIPL
SKPOEX
SKPSAP
SJ<PSAV
Sl.1
Sl.2
Sl.3
SL.6
SL7
Sl.tTAB
SL tT1!31
SLITB2
SL TAB
SHUX

SPPLUS
SPSTAB
SPSTB
SPTR
SRALT
SREST
SRS
SRS1
SRS2
SRS3
SRS4
SRS5
SRSYM
START
STCE
STF'T
STF'Trt
STrT1
STF'T2
STF'T:S
STF'H
STF'T5
STrTI
STORE
STOREP
STT
STTP
STTR
SUM

SUSVL
svr-is~L

TB
TAF"S
TBAN'<
TEM1

5160

TE~1~

6655

~755

TE~11

66'6

TE'"12

2631
0124
0125
eu6
0127

i146
~046

TE~2

36'"

TEM3
T£M4

6607
5175
L'757
-'152

eHe

e155
1757
U47

2•16
2423
24U
5544
2772
011150

22Z6
0127
:54'3

U51
0153

4403
4450
4431
4442
4444
4400
0200
~052

6121
6140
6141
6145
6147
61'1

61'2
4174
5164
4631

li'l007

2430

4JIJ1
3432
4520
:?10iD3
2226
4230
4235
t.123

T£M5
T[M55

T£1-17
T[MP6
TEST

TD1
TEX2
TEX4
TEX5
T[)(CTR
TE XE RR
TDP
T£XPTR
T[)(SU8

TIB
Tl.F'S
TNSG~!

TOP

TOPCOA
TS0
TSC:MR
TSCMR2
TSC:HR3
TSI<
TSUH
TU"' JC:
TXSV
TYPE

UOPAG[
UOPG
UHIC
UPDATE

use

VAL
VALPTP
VAL PTA
VAL.Ur
VERt-ll'M
VERSl

04135

0103
U•5
0853

1614
1111J4
17'2

1726
01'1

1616

4233
li!IS.52
S.1'1

4221
4225
4232
4226
3162
4136

U54
1375
•234
f144

42h

1!1153

08'•
3172
03'6
0143
261•

0001
flflJQJ2

2376
450

0136
100e
6574

VERS~·

1011

VF'LG
VN
V"'OP
411'41.TPP
i.;l'fATVP

Ul2

~:LIF'

6462

7015
2110
6737
4171

/SABR ,815

PAI.lei

\1135

wl.N

UIU

\.<l.,N1

U25
11•3
11'3

~;l.N2

... L,N3

IOll.N l F'
Wl.NlF'1
lt\l.NIF'l
wL.NP
t.RITE

i..R 1TE2
;.;R !TEP
)10

•326
02155

2532

2561
011156
0fl!U

011111
02112
011J13

x2
x3

E~RORS

2671

1172

DETECTEOI

Ill

LINKS GENERATEOI 21
RUN•Tl~EI

61 SECONDS

6i< CORE USED

23;SEP•69

A1P
•2
A2'\'0' A
UP
UC:T1'

UNU'-·7
ACl-I
ACL
AC'"

8'~ 6

43.14

44i'J6

8:·5

8~6
432~

923
4331

a 'J

43~5

8 \2
3166

31~8

221~

72.:'.4

51H5

5oY2
?9k«J
5696
779

58'~ 1
51:!~6

ADORES

462
515

AUR OR

1~90

ACTR

AF'LG
H'S
ALEN
ANC~K

ANUM7
ANUMCK
APMSw
APTR
ARGCT
ARGPl'0
ARGPP2
UGPP4
ARGPP5
AU
AS0i1113
AS0014
ASl!!0 II
ASAV

u1r

ASM00 l

ASMIH
ASM0U
ASM1211B
A$M02
ASMlll2A
ASMl!l21
ASMll2S
A9M031
ASM04t
ASMlilS

ASM05C
ASM06
ASM061
ASM07
UM07A
ASM071
ASM0S
ASM09
UM09B

4387
6>:'5

513
5:>.2

3922
3139
45?3
2217
220.3
492
3140
1484
1527
1564
1554
1557
411
4863
4788
48l>9
3218
1751
4472
1392
4339
43'59
6tl2
4565
'4316
1596
4534
4538
4463
4476
4568
4'546
4569
4773
4563
4480
457'1l
4795

12"~

1163
1194
629
4548
3144
4571
2221
2207
909
3167
1496
1567
1572
1576
1571
989
4864
4820
4821
3228
1758
"490
4581
4361
4376
Ur/Ji!I
4657
4391
:L611le
4566
4567
4542
4794
4825
4568
4772
4176
4569
4558
4813
4817

4413

4419

4319

4-~~5

13,9
2275

2486
2278

2279
972
3164

3269

788
2271
1111
1252
642
4550
3147
2224
2222
1966
3197
1499
1582
1576
2066
4888
4830
4855
3257

4571
2645

2633

4377

3665
1364

1366

13"3

154;,l

l~b2

1559

32;;6

3211

3214

3237

3240

3260

4933

'.:i181

2653

32~2

3?.34

15e1

4333
3261

1521

16~3

1586

1"90

2080

3261

3488

4517

46~1

4831
4880

4564
4389
2437

4802

4789

4391

3524

1565

1814

3270

3915

AS'!e 'I
AS'11 .
AS"-1;q

45~2

457c
46l>r.l
46 7•;
46t.>'i
4844
48?3

.tSM11
t.SM12

4614
4651
4622
4671

AS"112E

4415

tS1"12r

484?

'o~.:

ASM121

466~

4671
4b 1:1
46"2
4874
4565
46~ 1
447!:>
4476

AS~1~

4672

ASM1.3 I

46~9

AS..,14
AS"12t. !
ASt-'2 [ )(
ASM5A!
AS'15CI
ASMBl.
ASME1
ASME11
AS"lElX
ASME2
AS"1E2P
ASME3
ASME4
ASME5
ASME6
ASME7
ASME71
ASME!'I
AS"1[XT
ASM!f:'
ASMIF'1
ASMX4
ASMX41
ASMX5
ASMX51
ASMX6
ASMX6!

4871

4554
46<i2l

scoor

4474
44'>6
7r,;5
4567
4714
4420
4576
4655
4617
4630
4674
4677
45/2
4497
4564
2933
2311
1593
4499
4493
4498
4491
45Z1
4495
5070
5131
5132
783
2399
2641
1396
1393
1394
3216
528
4164
4862
3156

~CTR

3163

4172
5093
3172
3191

BL1

1690

5572

AS~

ASR1
ASR2

ASSMBI.
AT
ATEM1
ATEM2
ATEM;5
ATE:M4

AVAi.
BANK

43,'3

4575
47,:,6
45t.?
4656
4656
4·627
4646
4821
4686
4·678
45?.2
47-13
4634
2369
1596
46~..5

4499
4684
4498
4689
4501
5071
5136
5135
791
2443
2686
267fll
2673
2711
3243
883

4885

4321
4706

4831

4864
4693

1608
4698

1758

2369

5127

5134

2699
2691
2749

2734
27'1'4

2747
2707

2730

2746

1275
4259

1311
4282

1520
4488

22~9

4586

2474
4590

31?5

3264

3381

4696
4700
5110
5138
795
2746

2676
2684
2732
3270
1173
4182
3174
3268

292?
4593

3946
4595

3984
4627

•124
4675

4138
4694

4160
4782

f:L2
8L3
tlL~

i:<L7
;;LEN
l:l:-.JKSAP
;:l'JKSAV
rmKS\/
[1PTR
PSEEST
BSSSw

eur

~UrflEG

RUFT,

FUF'E '0

8VAI.

evrE

C2
C3774
C3777
C'ALE;;R
CALLF'S
CALL~P

CALI.SW

corc""c;

COF'SK
CDF"SKI
C'DF"SKP
C'Oi1SK
COilSKl
C'Oi!SKP

CE RR OR
CMARCT
CMR
CKCl.S
Cl<CLSP
CKC51"

c1<cs.,p

Cl<IF"
C'<IF'2
Cl<If'3
Cl(If'P
CLE'liUP

976
1'1174
3652
1951
31.'58
5092
115il

1129

597
10e9
~240

C:O~P

rOt-tPGO

3204

3213

4603

5098

3217
3:1J64
2168
3720

3219

3262

2183

23~3

1733

1738

1764

1490
16'14
11':'11
1498
1613

1109
1605
1620

1112

1039
1244
1232

U52
1260
1233
5239

3220

3267

1151tl

J066

2410

COMM~1
C'OMM~:2

4:>96

51'5
463
37?7
5114
5122
3711
3215
1722
4994
4252
4454
1478
1495
Hl92
6fi4
1563
39'1
4699
4400
398
4494
2286
579
12?.6
464
3730
11il8
1542
689

CO~E1

COM~•:lll

5575
3161
!:>ZS-8

3195

C'OUNT

CODE

5490

3159

5241
1068
833
892
514
1659
1645
1636
621
636
412

ru.'PST

551-7
5516

59f;

3715
5145
5147
3712
32b3
1725
5045
4264
4458
14b2
15"'6
1:ll98
1092
1571

Herc

47215

4689
2286
45i.1J
45i:J3
977
1237
996
3731
1114
16n
U97
689
5231
5249
5244
1001

3722

1621

"'"'5
985
1242
1030

4064
161717

49~4

UJ'15
1238

1454

1479

2272

22?6

3668

1100

5236
5247
1'1182

5250
1089

1253
1679

2260

2261

3426
2441

5907

5939

892

4959
1214

1667
1664
1671
647
643
2598
2413

1691

1817

1865

U63

3685

3686

447
439

1965
655
4221
425?
2900
1249
911
2173
1197
3242
2925
5145
1794
725

29~0

2962

2969
29'i4
2996
2948
1693
3'16
3369
4?.5
433
4,33
5313
399
29/9
511
918
1134
466
4111
797
467
466
2415
2423
2435
1e!91

2979
2981
2999
2957
17etil
397
3378
967
794
776
531,6

CRLF"
CSUM
rTPn

430
430
429
4236
4&4
432
465
2172

('TVl't

4,31

t"IJio<S!(P

3239
527

UATA

3720

t"PGES
C'PGESl

CPLF"S
CPLfS3
t"PSW

r,c IL.
CCIL1
!'lff1
riEF2
GEF' 3

nHERR
OEF'SUB

:'E:L I"!
'.'I Sf>L

cOiRTN

rs·,;

ru·~

l".U.,.MY
,~1_1 ... p
"u~;;

'.' u~ S~-' B
rrLr,

f"IJ'.)E';D

rQSAv
r~1_1rg

rnvAtT
fOVF' IX

tOVIPR
fQVOPR
P~Rl

ERR11
FRR2

rnra

E'R>iC

580

ERRE

23P2

ERRfX

2395
578
2386
5b2
35?9

rRRI
fRR'1
fCHiS

rRS1
rSTSli!
F.")(P

F"ATAL
F"ATAL?
F'ETC"
F'I )( t

4~0

5:;:i5
23!!0

34i5
3649
670

1973
2312
4224

5330
4227

4263

29~3

2396
2~98

2427
2099
2193
12itl3
4734

3135

3233
28?9

3251
341.9

3252

3426

:54?7

'0e1

5016

511129

53<111

2ee1

1278
4751
<1159

1215
4H5

1221
4994

2085

2398

2•4"0

2401

242111

2<1146

3811

<11980

4987

217?
1198
4732
4165
5547
1816
9£113
2973

4110

121:111
4741
4530

1146
2980

1686
2982

1951

2331

3395

3007
2993
1760
398

3010
1764
399

4?.0

4C1

4P3

1033
3047
787
5320

1058
3049
2553
5322

1079
3050
2559
5323

3766
5325

5326

5327

1251

2392

2397

3666

2193
2190

5361
2919

5199

52e2

5204

5206

2171
790

1136

2176
2230

2191
2231

3i/J63
858
2428

3067
1276
3441

3069
1797

3108
1813

1864

4626

3691

3692

3~51

29~9

461J
1242
926
1137
467
1132
5199
1135
780
2446
2449
2437
2391
239v;
5119
2428
2389

2174

2600

2Jl.:l3
3534
3059
614
2383
3441
3681
688

723

5331

IOI
t O1N t T
J ox

iPOP!N
tPSHl~

JSSl

JUPT

501'11
7321
5026
23~2

2297
4317

894

535~

4960
5037
2367
2366
432:2

4969

4996

5338

293~

4322

4988

5171

'5tl

5511

55U

1588
1313

3421
2391
3519

368:$

1303

4366
2.502

1307
9i8

15'7

851

888
2918

293~

tS!PTX

086

•986

tT~U
IT~11

U16
1:078
UJ79

5517
5518
H19

iSlPT1

tSlPT2

tT1<1U

JT14U

!TM14

10'9

u2e

iTMU

UIU

!T"42

971

!TM:S

iT1'14
i TW5
iTM6
tTM1
tTM8
iTM9

JUR
JCOUNT
JMtSP
Ji-ISR

JU:S

973

970
912
1054

UJ60
1068
1869
5914

uia1

1082
5251
5"12

U29
U61

107il

5509

5516

5508

U71

sen.

H4:S

,i149

5002
5013
52127

5i70

~017

503fl
5007

5078

1<8182
t<U17

l(.Ql4PJ6
l<t53e

1(1
l<U

1<100
t<UH

K130
KUH

1<17
l<1720

1<176
1<117

1<2
1(2Qj

1<204'
KUH

4'U

OU
3105
'.539
543

551
424

4152

nn
4738
431.1

,,,

421

540
545
3741
558

UH
5075

5076

5173

098

53•2
470

5513

9U
5507

JL!ST
JROER
JV!RS

Jt,64

5177

tl94

H77

535-1

4755

•756

.,,.
476t

:S112

625
565

'57.1
1,15
4758

8'1
s.271

3372

1615

4532

n&s

2971

2979

086

1537

'81'1
1573

1812

2571

3360

3505

4167

4168

2187

1843
2211!5

1900
239'

2955
2432

3952
2496

'432

4540
2655

4658
2766

2972

368•

2961/J

3077

•891

HU
'4140
4398
U4-il

6481
'19~

632

'60
4787
566

293'
868
5183
863
564
'21/J5
646

2622

it2fll1
K2221'J
ll2311!0
1<'20
1<2400
1<2516
t<256Q!
K260
1<3
K30

879
5161
4748
546
4'762
4731
4737
3030
423
425
18A1
549
2956
4431

1<3210
1<3000
1<3121121

1<341113
K371

28~0

K37'77
K3777A
K4
K4i'
K400

3173
3297
422
541
547
4807
551
4965
2966
516111
4654
1641
1877
537
2936
4343
4348
2267
548
2379
1549
538
2959
5347
2509
3006
2186
552
542
3411
4526
4500
4492
4697
5012
1989
2028
22124

1<411'011!

1<4011131<
1<401
K403
1(407
K440
K444t'!
K5
K!521114
K5376
1<5377
1<60
K600
K62U
K6201
K7
1<701110
1<70210X
1<7371
1<7410

K7571X
K760flJ
K17
t<?71

KCOrH
1<coru
l(CDF'111J
KCDF'A

KS!:!

L:U
L.314

L31B

893
51U
4757
1212
4766
4759
3036
1640
1510
1915
1372
2984
4<!135
2815
3271
3348
620
606
611
4853
2015
4973
2983
5165
4673
1680
1914
1324
2941c'J
4865
4363
2214
567
2382
1591
1245
2998
5355
2597
4835
2195
553
997
3429
4683
4524
4500
4707
5022
2020
2034

1222

1241

1423

20'71
1546

2407
1746

3076
2308

3146
3367

31!17

3931

396'

456Z

4666

,219

27H
1562.
1368

2735
1835
U39

4536
2763
2388

3942

4455

5203

2389

4878

2266
4314

2273

3029

711
1417

1724

1650

U75

211JU

5056

5066

5067

3572

4037

4132

42·1'1

4720

3927
2491

3956
251IZI

4529

269i

'5'6
2947

4662
2981

47U
4471

4486

3738

3975

4094

4464

481'

4845

2858
854
848
860
4915
3230

.tH2

4695
4866
2284
2384

'707

5035

2032

-·-·--·---~----------------··------··--

3479

----~-------·--------····--

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

-----------------~-- ---·---------------~----------- -------~-~--------~·--------------·---------

------

L32
L32A
L39

l 4i2'
LOA
LOB
L 40C

L ·42'0
l 41

L51
L51E
L5H"LG

L51G
L51J
L52
L52A

L.53
L53A
L.538
L.55
L55A
L558
L55C
L55CI'
L551
L55L
L56
L61
L.61A
l.619
L61C
L61CP
L610
l 610P
L62
L62A
L62A1
L63
L64
L.65
L66
L664
L6U1
L66A2
L66A3
L66B

L660

L66E
L.67
L.68
L68I
L.72
L 72S

199flJ
211J1216
2830
2829
2846
2813
2849
2856
286.8
2526
25-H
2526
2566
2583
2664
2686
261i
2695
1395
449

11•

173

774
521?1
449
772

715
•31

1411
1419
U25
14211!
1421
2768
441

312124
3U7
446
456

434
453
32179
312165
3086
3066
2061
2088
2095
2489
2057
25~5

450
1953

2033
2014

2884
286;5
28811J
2881
2885
2888
2883
254;5
2571
2532

2017

2593

2557

257fl

2626

27'4
804

Oil

91fl

568

668

6'98

72fl

786

2592
2687
21fll9

2713

269il

2710
2712
769
7"96
191
5Ut
521a7

547

802
777

14~5

H13
1-423

2717

792

521i!18

1414

1422

2761

1425
1424
2769
3019
3033

:uu

2605
2104
3726
3058
31~3

2769
3034
26U
3817
3732
lr!l98

511J73
3822

3109

3180

3095
3096
2U'l~

2104
2102
249,
2060
2596
1946
5575

2103
2090

2596

;:Hu

1958

5577

5578

2362.

L 12X

L13
l ASM:>
l. EA')
I EADf"i:(
l. &: Arl I

L'LG
U'S
LrSB~E

LFSBSI
Lrss:;s
LF'SC~K

LF'SCt<
LrSCt<1
LF'SPTR
LfNAX

LINBur

1955
4.S2
6'i2l
9j9
9)1

3424
5121
519
3289
561
2194
2194
431
437
2494
469
555'
555

5576
37?1
682
931
3443
3443
1191
6!:2
3293

1142
2216
2483
549
2468
2498
1143
1224
12!>9

LINE

470

782

LINES

1217
3779
3656

12U

Ll~E82

LINEt-:0
LINIC
LISTON
L ITBSE
LITPTR
LlTSU
L tTSlE
LLF'S
LLrSt
LLF'SP
LSTBNK
LSTOEP
LSTDEV
LSTSKK
LSTSKP
L'fBSE
LTUE

MUl0
MU

MU
M12A

Ml•
M11

M117
~2

"'200
M201
"'211

~2402A

1"243
- -'"-2-5.-4

3784
:5676

400

U219

4936
568
2652
5::11
411
2116
2387
2112
414
3130
3272
1131
473
571
412

5077

2643
2653

2637
507
2439
2402
2116
1169
:S272
5037
1151
1171

5579
3753

3755

3737

3744

22Re
1494

3643
15?7

33<'i~

331<'.'

4312
2211
24?2
2506
2181
3637
3676
1804
1259
3797

37~7

3653

1634
4225

1638

4234

1796
4?.~~

4229

4230

4313

2751
44U

4628

4678

2417
3669
3802
2425

2478

241;:,Z

5147
4262

5560

2483

2485

3267

2866
2667
2827

2669
2830

2671
2834

2672
2840

4584

4594

4592

3Bi112

2659
2661/J
2650
1124
4261
209

2832
2666
2657

1518

2928

4158

4173

4267

5QJ68
4263

4561

2129

2133

2138

5314

1551
:S687

2724
5184

4114

____ 5-5_L____ J._i___8JL ------~-HS_

4905

161i0

2482

2545

2182
36'11
3722
2113

41'11

3060
5019
361111
3334
5245

2386

4522

4155

1123
1618
3111
5081

2164
4978

2175

4518

252:U

2926
2144
1970

2132

1625

4597

5095

:S626
:SH?

5253

!511132

!Siii 82

3689
556
553
2353
1152
4778
1866

3693
628
656
2373
1234
4840
1911

- -

~-·---

--~---

--~--- ----·-------··-~---

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

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

l"-257
1"26
111'260
"'260A
1"3
~300?

5242
5344
367'7

5252

1"'31

U84

557

1"!331
1"3'14

5'59
5064
3616

!"'4

3022

,..,

MIERRJR

5014
5128
410
560
3633
2493

l"GRP

1&85

M50

M1
M760rl
MS[

"4M1
MSCTR

~lSCMK l

3918
2412
566
5345
1035
s.397
137!S

~SCH!(P

448S

MST

fllTVPE
lilUl.1
lllSCMI<
NSGN

NULL.
NULl.P
NUMSGN
NUMSGP
OAPL.T
OIUCTR

OTPR
OTVP£
OUAPLT
OUT1
cut2
OUTB!N

3138

3236

4723

4791

095

4813

4818

!'1380

12'37

1676

3613

1637

2599
1893
4:006

1911

2421
3469
S:S52
1043

2442

4511l5

2447

1044
084

4875

4889

4894

2'756

2978

3761

4434

4255

4256

4285

4286

5321

2484

2690

3154

3221

3292

1846

1896

1898

3268

3941

4249
2569

4250
2584

5324
2589

2590

1379

2502

2679

4851

644

3807
726

852

440
440

1u1

1869

2812

4039

4084

16U
4265
4106
2639

1922

2166

2192

2436

4185
2689
1972

4265
•394
42131

4148

1558

3561
1637

3563
2007

1798

4136

4606

Oi'I'

2665

524

oe rsue

C9NSVM
CBSYM
OL.OOBA
CL.OOBP
OP
Ol'OEX
Ol'tCTR
Cl'IS
CPiSUB
Cl'SCTi.

3;6;:c7
3035
501{9'
5l,42
993
1651

2411
.

1397

08'LGP

oeis

2062
5220
506~

na1

083
4092
2632
475
3906
4U3

OBF'LG

53~3

3625

421

438

438
4"'3
4'32
52111

2956
2214
402
46el5

476

412
2742

3422
441
4351!
2782
2787
442

4505

4'087

4097

2635

836
4054
4178
4606
4621
3555
U65
4146
4053
600

4118

3557
4177

5762

2220
4605
4859
lU5
2516
~423

3426

436,
2791
2796
778

4922

493'

3921

4233

4549

4527

4515

4653

4777

2718

2?25

2726

2127

2739

2'141

2U3

2696

2706

29fl4

JUJ4

4305

5163

228'5
4884

un.

2523
3512

2566

1211
4387
2799
2814
185

2426
4394
2813

3244

913

1327

OUTS~

t'IUTEX
OUTSK
rlUTSKP
?ABSYM
?AG
PARG
PARG2
PARG5
FARG6
PARLIT
?ASS
?821
P8SS
PBSS1
PBSS2
P8SS21
P9SS2J
PBSS4
PBSS41
PBSS5
PBSS51
PCAl.L
PCAl.L1
PCOMMN
POEC
POUMMY
PUP
PEB
PEBSE
PENO
PENT RY
PEP TR
PEPTRP
PrLG
PF'ORT

PCEESC
PM ASE

p If"

PIF'ERR
PlF'F'
PLAP
POCT
PO?
POPEX
POPEXP
POPlfl!
POPlNl
PP AGE
PPAR1

4342
442
2790
443
443
2947
479
1531
15""3
1514
1512
1305
490
2847
1828
2291
23Z8
1913
2292
5190
2317
2298
2299
5191
1474
1493
1628
3762
4424
4932
3408
3444
898
5151
3442
3409
3129
2753
491
493
4899
49011J
2322
4929
376'5
1715
444
444
686
671
692
13fli

4373
2784

4578
2Brl3

4642
281i'J4

4647

4682

4688

2621

2623

2654

4352

4367

44rz.7

4'444

916
'441

921
4519

1594

1772

21i'J"4

21lJ58

U49

"415

•41'

4169

4336

5319

4347
793
2803
4832
2933
5622

4354
2779

4362
2781

4369
2783

4838
4357

4358

4692

722

1341

22'12

1587

1611l8

678
4238

44U

2315

5192

5626
161.16
1567
1609
1335
5916
3414
1913
5635
2313
2163
2315
5192
5181
2317
5193
5193
5639
1525
5644
5669
5674
5682
3444
4397
5686
5691
4382
3442
3169
5696
661
1126
5703
4903
57k',8
5748
5757
1757
4978
1568
1757
686
5770
4566

_________ J::>1'.A~-~----------J.__3_~_2_ - _____ _ll~i- -- --

770

034

2393

2475

2788

1621

5467
4384

4397

3232

3258

676
2433

1968
4315

2648

2850

2314

3317
3311

3364

4913

1741
2367

3306

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

------------------~-·-~---·----------·--~----·-----~----

PPAR3S
PPAR4
PPAR5
PPAR6
PPAR)(
PP ARV
?PAUSE
PRORG
PRS1
PRS2
PRS3
PRS4

PRS5
PRS6
PRS1
PRS8
PRSYM
PRSV~P

PRTN
PFlTN0
PRTN1
PRTNJ
PSHIN2
PSHINI
PST
PSTB
PSTBSE
PST CPR
PSTO
PSTOEF
PST0£P
PST"IAX
PSTSPR
PSTSlE
PTB
PTBSE
PT CPR

PTEXT
PTOPR
PT OP TB
PTSll
PTSPR
PTSlE
PU"JCl-I
PUP GE
PUSH
PUSHER

1331
1379
1332
1317

1358
1301
3396
7Vl4
3136
31.49
3171
3178
3186

3117
3153
3226
445
445
3351
3358
3361
3311
3291
659
3136
569

569
494
4151
2219
2223
4257
1991
495
496
570
570
497
132J2
1748
4531
1684
498
564
506
499
1617
500
4309
446
492
1708
3299

1357
1383
1384
1391
1374
1325

1362

1382

4679

1366

1389

1381
1329

1343

1344

3190

32l.9

3253
921

16114

1393

5775

5786
3249
3223
3175
3192
3193
3187
3224
3251
312&
'51.

5793
3314

3:379

3JU

3376
3299
587
3259
5'3
1996

2103
4240
2223
4266
4266
2042
1991
831
512
1161
607
1306
2165
4535
5512
602
1166
2357
643
1619
506

4982
2101
66kl
1756
3308

3381

2022
2017
4251

4961
2039
.U53

4452

4457

201110

2001
1987

1122
1163
648
1312
2188

4539
5573
844
2360

841
1320
2204
4543
5874
1140

4158

U62
1616
4469

1747
4528

1550
4825

1566
5174
1969

1581
5175
2917

036

4848

4964

4966

4967

4968

8,9
1547
29211
5173

862

867

878

1-578

1'19

1589

4898

856
1516
2469
5172

1167

2923

4525

5176

1138

1165
3375

1310
4463
716

1335

1363
4541

691

831

15U
4789
90,

1526
002
908

· U21

3141

5025

512128

3339

3345

3346

3410

3421

3296
4714

3298
4872

20!6
f.999

203'1
2;994

1998

8"11

853
1511
2310

1'09
i:S!ll9

4551

617

873
2921
664
4985
2802
438(/J

3370
694
5311
3133
4388

3333

3336

3338

871

1745
663
4983
2798

4U1

396'1

48'6

4963

2189
'456

3938

4461
719

3366

:S368

:S373

1137
4232

1270

RORGX
RS'11
RSM2
RS"ll
RSTRT
RSTRT1
RSTRT2
RSTRT4
PSTRT5
RSTRT6
PSTRTI
l"<STRTX
l<T':

PUSVL

S0
S1

52
S3
SAllE !T
SAVL.UI
UVL.NI
UVl.NP
~CCI.ON

SERALl
SERALP
SERALT

SERROR

SEUU

SET00B
SET00l
SET00J

SET0H
SEThB

snrn1
sniur

1ft'lel
995
991
999
593
595
633
619
616
658
2332
724
403
3468
411
2135
3526
530
531
532
3783
2750
2636
4332
48&
1333
4485
4806
581
4157
3998
3913
3987
3977
3983
3917
3929

SE:f051
HT061

393!

HTl8l

3954

snur
sctu1

3962
3966
3948
311711
3993
l92f

snnt
S£f12l
UT6P1

SETC0121
SETC01
SUC1112
HTCl4
SE'i'Ce!9

3937
3~58

3994

723

10U

10U
1012

7C8

929

UH:'12
~003

674
641
628
625
676

2371ll

681

237J
728

33?8
3556
529
215i6
3974
1336
1762
1763
3796
3777

2750
4395
1954
1339

3581
635
23k'J5
4099
1761
2064
2065
3801
3186

3568
7UJ
2329
4187
2063
2441
2442

3644

3671

986
2871
4805
2838

4828

4917

2876

4'4fl2

3517

10~~9

2965

4395

45~4

4829
1653
4165
4175
3•944
3997
3989
3991
3994
3995
3996
3999

4839

1678

1993

2723

311l62

3947

3986

3992

3993

•10

41''

4155

4192

•102

4110'

4Ul6

4el00
401?1

4002
3969

401213

4004

1005
4'096

3914

4191

S!TC07

stTC06

3995
39.9(J
3999
3925

399'1

!lETC08

4000

4114

4182

4092
4005

1es6

674
2835
4484
24421

2975

1338
3.i:>:0
4919
4?90

1483
302'9

5185
4803

158fe
3260

5188
4826

1643
3485

164?
3515

1672
3518

SETC~9

"ETC10
SETCU
!;£TC12

4001
4002
4fi'03

HTCAL
S£TCAP
SE.TCT
SET SUB

4004
3997
1269
3911
454
3936

SETSX

4~~5

~ETC13

SIGN
"K
SKJPL
SKPDEX
SKPSAP
SKPSAV
SLl
SL2
SL3
SL6
SL?
!!\LI TAB
SLI T~1
SLI TR2
SL TAB
SMf1X
SPPLUS
sPSTAB
SPST9
SPTR
SRALT
SREST
SRS

SRS1
5RS2
SRS3
SRS4
SRS5
SRSYI"

SURT
STCE
STfT
!'TF'T0
!;Tf"T1

s TF'T2
STF'T3
SHT4

!i'iTF'T5
STF' TI
STORE
STOREP
STT
---··-------------------·---

970
526
450
3356
2955
5094
1151
1689
9?5
10?3
1950
3651
451
2131
2146
451
44i"9
2423
452
452
3137
1333
453
1llJ19
3470
3475
3492
35?1
3487
111!85
588
454
3256
4734
4730
4725
4722
4745
4728
3248
36?5
3654
413

4122
41'~6

4116
4131
4125
1278
4007
3904
3965

4049
984
527
692
339~

5830
5099
4598
169111
976
1"174
1951
3652
1535
2141
?.154
2127
4420
2444
2217
1986
3151
2823
1492
1085
351il7
3512

4141
4007
3998
4029

4050

4~51

054

1054
604
709
3762

UJ76
849
3,491
3765

1087
1799
1541
4429

1844
1633
4918

19"-2
17"7

4604
5502
5497
5481
5500
5566
1810

5099

3981

4H"ef

4191

4162

2140

2152

2155

3294
2'1116
3155
2860
3357

3934
2018
3222
4504
5157

3963
22134
3266
4839

4235
21214121

4772
2094

4872

3522

3536

3540

49{>9

1815
4932

1921
5156

2163

!296

232'1

21''

Hiii

352!~

3542
3498
3467
559
4719
4741
4735
474td
4742
4751.1
4764
3256
4062
3664
2721

J5k')4
3502

884

599
4736
4749

4753

4767

068
3675
3149

3471

3521

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

-------------------··~--~-

- --

-· ----

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

S'l'T?
STTR
SUt.1

~~-',

SUSVL
SYMBOL
T8

urs

TBANK
TE'.1"1

413
3427

2191
35i'.'1
4~9

3470
2094
3315
332"1
501
1029
1401

2142
2864
3528
4643
TEM121

512~

2307
502
2529
2868
503
5075
5Vl4
2582

TEM2

TE:~3

Tn14
TEt-15
T£1'55

5r~s

T[MP6
TEST
TtX1
TEX2

781
483
4468
455
1697
11;12

TEX4

1127

TE'.~7

T[X5
T[XCTR
TEXERR
T(XP
TEXPTR
i'E:XSUB
TIB

TLF'S
TNSG\I

TO?
TOPCOR
TS~

i'SC~ll

-<---- TSCHR2
TSCHR3
TSK
TSUt-1

TUM IC

TXSV

51~4

T£~11

T£M12

3259

3427

5906

2801
3562
1539
3473
2096

28fil5
3567
1824
3417
2097

2811
3579
1856
3490
2100

608
1041

1412
2153
2882
3533
5060

5111
5137
2312
1001i1

3558
!5061
5130
2316
1006

2535
3023

988

998

968

1057

2S8J
1260

4413

2586
2814
198
4693
4487

974

189

613

626

1046
16"9
2352
3021
35S9

100
U51
2522
311124
3739

5"63
5135

5H3

1999
3514

627
1053

2534
3eJ2'
3742

211Je8

2026

3537

3560

633

6:!4
1"66
1892
2!142
397el
4049

1889
2541
3028

0'30

1015
25~~

3032
1008

2013
2581

2913

1032
2549
3081
1013

3094

641
1311

2537
3514

9$2

311171

91'
1342

2018

2083

:sa6s

4231

424•

$03
420

2024

U3111

2139

uu
uu

2837

211123

45'6

992

10•

eu1

HU
4519

2155

3886

3097

3251

HH
CUI

25!54

25'8

256'

'"'

2581

4879

4886

at6s.

2994

30U

30~2

3266

4623

<4703

481218

4854

4861

1463

1464

1465

1467

1709

1717

1719

1136

1761

1740

1762
1143

1754

3309

3312

1458

1459

1461

11es

2598
1443
1456
14b5

liU

asu

2952

2'19

4648

1720

2931

••d ,,.... '"'

2066

2518

3650

5574

,.:S•u.. u,.

3343
4246

2833

:5073

3481
2991

2'73

026

1699

U1
1311

2767

2568

3481

1949

1735
1737
1703

3262

1928

SU1

3417

311191

358•

2Uf
2162

UJ48

10'72

1704

3569

3506
3082

U36
255'1

41e2
.. 615
1688

406

5144

2533
2819

1723
1694
3318
169&
1735
3314'
332'1
3311
3313
2518
3321
455
144'8
1452
3319
2806
3316
1731

612

UJ44
).648
23!50
2937

1812

3,04

1445

1447

2808

2a10

2812

1744

1750

1752

1763

2121

2521

'134

TVPE

4?6
5~24

UOl-AGE
l'OP~
U~lC

l 1PDA'TE

USE

VAL

VA1.PTP

VALPTR
VALlJE
VERNUM
".,VERS I
·Vi~s~-i

VF'LG
VIII
VNOP
ltlMATPP
t.il.UTVP

iliLIF'

loll. I~
lool.N1
wl.!\2
J..l.!\03
!i.'l. ~i l F'
l'l.~dF'1

Wl.N IF' I
Wl.tJP
"'RI TE
wRITE2
111RITEP
l(l/J

)11

)12
)13

729
669
523
231'2
4;7
2495
3926
5159
4/8
2977
4!\52
2111
2115
516
5079
5~l0

5351
512
50;i0

5348
1821
1916
3810
45?
1227
1236
1193
2328
1771
3386
457
458
2263
458
4833
416
•1?
2869
3210
5343
418
3342
419

1213
5062

1223

1239

1?.43

2371
699

2619

;?624

l.626

617
2371
1367
25c'8 ·
3930
5162
1376

~55

1277

1371
2511

3263

4876
2115
3575
1210
5341
5079
5356
1204
.5354
5354
1832
5217
3812
1190

1240
1241
1220
2368
1775
3397

14?1

2062

2lli39

1 ·.l/'2

19?8

1911

3257

156~

1639

1642

2692
3955

1834

1638

~974

-~275

,VJJ78

3'.159

44.H''

4433

45'55

1845

1897

4?.9R

1894
41?7

38v8

24?4

3031

3134

3754

375f

4999
-~

729

3951
5218
1656

1659

3571

3585

1066
4 ~j<J 3

3576

2254

3586
2255

3590
2256

38~7

1250

2257

3667

38~9

1861
5222

1874
5223

1916

1257
1248
120
1231

1249

4661

1899
3570
4665

20a
. 3571
4742

2.it90
3583
·4914

25e'7
4796

2556
4814

2703
4819

2916
4844

1842
3231
4539

1876
3245
4657

3264

41 '36

1926
4.431

20'1!9
47f.15

2285

~2?9

1681!1

2368

3397

31312

1774
2251

2281
2252

2253

2258

2259

2282

2283

1378

2682

2705

4341

4346

4361

4372

457?

4641

4646

4681

4687

965
1225
2874
3235

966
1228
2861
3238

1485
1446
3085
3337

1695
1449
3iii88
3341

1721
1457
3141
3489

1749
2067
3143
3496

1753

1805

1826

2077

3168
3525

2145
3178
3531/J

3198
50Q!3

1953
2728
3199

3670
2731
3200
5018

3128
2733.
3201
5031

4908
2867
3203
5044

990
3491
3634

111101
3493

1016
3523
3704

21'69
3532
3708

2075
3535

2061
3538
37U

2084
3648
3716

2644
3655

3196
4066

3208

3340

926

2248
2271
1326

3711JB

3710

5113

2147

3160

3660
5120

50ei8

3181
3661
5121

.. ~)t,,