P r o ~ r o,...""'"'M.. a... L...l:. ~ b v \"\, g f'f\..e..-1:.. b w Q....(l.. voor b ~ d .e..M.. v o., V\... V .Q....\'"
J.
bwL~ ~ e.,.. \1'\.. •
Ä ~ b o.c;..,~ b~
e: c:... 13>
3 A. N u...A. Rr
k
e....Q...r
, ~ 1 'l.
11 JOB ASSEMBLY"ECB,AMEACBTSBEER MICPROG
EXTERNAL SYMBOL DICTIONARY SUlBOL fiiCPROG CARD PRINT NEWPAGE PBPCH
TYPE ID SD ER ER ER ER
ADDR
LENGTH LD ID
01 000000 001EFE 02 03 04 05
PAGE
1
ASSEftBLER VOOR t1ICROCOMPUTER LOC 000000 000000 000002 000002 000006 OOOOOA
OBJECT CODE
ADDR1 AtDR2
05BO
ooooc
oooooc
58CO BOOA 47FO BOOE 0000 00001002
000010 000014 000016 00001! 00001E 000022 000026 00002A 00002E 0000 32
41DO 1 B44 4240 4144 8B40 4160 5060 4160 5060 1 B77
BE96
OOE98
BD08 0003 0008 C646 BFEE C89E BFF2
OODOA 00003 00008 01648 OOFFO 018AO OOFF4
000048 1 B22 00004A 4820 BE90 00004E 4B20 BE8E
OOE92 OOE90
000052 000056 00005! 00005E 000062 000066 00006A 00006E 000072
955C 4770 4920 4720 4590 4820 4122 4020 D202
BEF4 00EF6 oooac B08A CEF2 01EF4 B064 00066 BC9E OOCAO BE8E OOE90 0001 00001 BE8E OOE90 BEED BCEE OOEEF OOCFO
000088 47FO B034 00008C 000090 000094 000098 00009C OOOOAO 0000!6 OOOOAA OOOOAE OOOOB2 OOOOB6 OOOOB8 0 0 () 0 BC OOOOBE OOOOC2
00010
00036
9561 BEF4 OOEF6 4770 BOC4 OOOC6 4130 BE61 OOE63 95FF 0003 00003 4780 B59A 0059C D506 BEF6 3000 OOEF8 00000 4780 BOBO OOOB2 4133 0009 00009 47FO B096 00098 4180 BE7D OOE7F 1 B55 4353 0008 00008 1 AB 5 92FF 8000 00000 00036 47FO B034
PAGE SOORCE STATEMENT
STMT
FDOS CL3-3 12/01/72
2 3 t1ICPBOG 4 BEGIN 5 6 LOAD 7
PRINT NOG EN CSECT 11,0 BALR USING LOAD,11,12 12,ADCON L E OUT
8 ADCON
DC
10 11
*
OUT
32 33 34 35 36 37 38 39 40 41 42 49
*
A (LOAD+4096)
1
INITIALISERING VAN DE EERSTE 'STAP' VAN HET VERTAALPROGRAMMA LA 13,SAVEAREA SR 4,4 STC 4,FT FOUTWOORD FASE1 =0 LA 4,3 {4) SLA 4,8 LA 6,T3 POINTER LABEL TABEL T3 ST 6,W3 IN W3 LA 6,T4 POINTER PROG TABEL T4 ST 6,W4 IN W4 SR 7,7 SOURCE STt1T TELLER=O CALL CARD, (CARDAREA,PRTAB34) SR 2,2 LH 2,ELZT BLZ• TELLER IN R2 SH 2,RT AANTAL REGELS DAT OVER IS IN R2
2
VERWERKING VAN COftMENTAAR KAARTEN CLI CARDAREA,C'*' ENE STUUR CH 2,=H'0' EH •+8 9,KOP1 BAL 2, BT LH 2, 1 (2) LA 2, RT STH t1VC AREA+15 {3) ,LEEG CALL PRINT, (AREA) B BEAD
12 13 14 15 16 17 18 19 20 21 BEAD 28 29 30
51 * 3 52 STUUR 53 54 55 STUU 56 57 58 59 60 61 STU 62 63 64 65 66
1
COMMENTAAR KAART? ZO NIET NAAR STUUR NIEUWE BLADZIJDE? ZO NIET GADOOR ZO JA PRINT KOP HOOG REGEL TELLER OP MAAK AREA LEEG PRINT COMMENTAAR KAART NAAR READ VOOR VOLGENDE
VERWERKING VAN STUURKAARTEN CLI CARDAREA,C'/' STUURKAART? ENE ZO NIET NAAR INSTRK INSTRK LA 3,LIST POINTER STUURKAARTTABEL IN R3 CLI 3,X'FF' EINDE ST•KAART TABEL? FA9 BE ZO JA NAAR FA9 CLC CARDAREA+2(7),0(3) STUURKAART TYPE GEVONDEN? BE STU ZO JA NAAR STU LA 3,9{3) HOOG POINTER OP B STUU EN ZOEK VERDER LA 8,CONTRW POINTER CONTR•WOORD IN RB SR 5,5 5, 8 (3) IC PLAATS CONTR•WOORD IN R2 AR 8,5 HOOG POINTER CONTR•WOORD OP t1V I 0(8),X'FF 1 'FF' NAAR CONTR•WOORD B READ NAAR READ VOOR VOLGENDE KAART
PAGE
ASSEMBLER VOOR MICROCOMPUTER LOC
OBJECT CODE
ADDR 1 ADDR2
68 OOOOC6 OOOOCA OOOOCE OOOOD2
4920 4720 4920 4780
CEF4 BOEE CEF2 BOEA
01EF6 OOOFO 01EF4 OOOEC
OOOOE4 OOOOE8 OOOOEC OOOOFO OOOOF2 OOOOF6 OOOOFA OOOOFE 000102 000106 00010C
4120 4020 4590 1 B22 4820 4122 4020 4177 4E70 F321 D300
BEBE BE8E BC9E
OOE90 OOE90 OOCAO
BE8E 0001 BE8E 0001 BCE6 BEED BCEC OOEEF BEEF BEED OOEF1
OOE90 00001 OOE90 00001 OOCE8 OOCEE OOEEF
000120 000124 000128 00012A 000 12C 000130 000136 00013C 000140 000144 000148 000141 00014E 000150 000154 000151 000 15E 000162 000166 000168 000 16C 000170 000174 000178
4180 4130 0630 1 B66 4166 D200 D215 4590 47FO 5850 1BAA 4590 1B5A 41AO D507 4780 41AA 47FO 155A 4770 4155 4045 4155 5050
COFA BEF4
010FC OOEF6
0008 00008 BCD4 BCD5 00CD6 00CD7 BDDC BDOA OODDE OODOC B39C 0039E B17A 0017C BFEE OOFFO BJFO
003F2
01648 C646 AOOO 5000 00000 00000 B164 00166 OOOA OOOOA 00154 B152 B502 0008 0000 0002 BFEE
00504 00008 00000 00002 OOFFO
SOURCE STATEMENT
STMT
70 71 72 73 74 81 82 83 84 85 86 87 88 89 90 91 92 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122
*
4
INSTRK
INST
VGL 1
B
CONT R
FDOS CLJ-3 12/01/72
ONDERZOEK NAAR DE AANWEZIGHEID VAN EEN LABEL CH BH CH BE CALL AH STH BAL SR LH LA STH LA CVD UNPK MVZ CALL LA LA BCTR SR LA MVC MVC BAL B L SR BAL SR LA CLC BE LA CLR ENE LA STH LA ST
2
NIEUWE BLADZIJDE? 2,=H'3' INSTt4 BLADZIJDE VOL? 2,=H'0' INST NBWPAGE, (NUL) NIEUWE BLADZIJDE 2, RT HOOG TELLER OP 2,RT 9,KOP1 PRINT KOP 2,2 2, RT 2, 1 (2) HOOG REGEL TELLER OP 2,RT 7, 1 (7) HOOG INSTRUCTIE TELLEB OP 7, DOUBLE AREA+15 {3) ,DOUBLE+6 (2) STMT NUMMER NAAR AREA AREA+17(1),AREA+15 PRINT, (AREA) PRINT STMT NUMMER+KAART POINTER T2 IN RO 8,T2 3,CABDAREA POINTER CARDAREA IN R3 VERLAAG POINTER CARDAREA MET EEN 3, 0 6,6 MAXL=8 IN R6 6, 8 (6) DELIM,BLANK GEZOCHTE DELIMITER NAAR DELIM PLAATS, LAB FOUT PLAATS IS LABEL 9,VERT ZOEK LABEL ZBL INDIEN AFWEZIG NAAR ZBL 5,W3 POINTER T3 IN R5 10, 10 9,BERGOP BERG LABEL OP IN T3 5, 10 VERLAAG POINTER T3 10,T3 HULPPOINTER T3 IN R10 LABELS GELYK? 0 {8, 10) ,0 (5} ZO JA CONTR OF HET tE LAATSTE WAS CON TB ZO NIET HOOG POINTER OP 10,10(10) VGL 1 EN ZOEK VERDER 5, 10 LAATSTE LABEL? FA6 ZO NIET NAAR FA6 HOOG POINTER LABEL TABEL OP 5, 8 {5) BERG LABEL ADRES OP IN T3 4, 0 (5) HOOG POINTER LABEL TABEL OP 5, 2 {5) 5,W3 BERG POINTER T3 OP IN W3
PAGE
ASSEMBLER VOOR MICROCOMPUTER LOC
OBJECT CODE
ADDB 1 ADDR2
STMT 124
00017C 000182 000186 00018A OOJ18E 0 00192 000196 OOD19A 00019E 0001 A2 0001A6 0001AC 0001BO 000 1 B4 0001B8 0001BE 0001CO 0001 C4 0001C8 0001 CA
D215 4590 8A60 4590 47FO 4150 4590 4188 95FF 4780 D503 4770 5850 4155 D200 1 BAA 43A 8 8BAO 1A4A 4155
BDDC BD20 OODDE OOD22 B3D8 003DA 00001 0001 B39C 0039E B4DE 004EO BFE6 OOFE8 B3PO 003F2 0006 00006 8000 00000 B4E8 004EA 8000 BFE6 00000 OOFE8 B198 0019A BFF2 OOFF4 0001 00001 5000 8004 00000 00004 0005 0001
00005 00001
0001
00001
0001CE 0001D4 0001 D6 0001DA 000 1 DE 0001E2 0001 E6 0001 EA 0001EE 0001F2 0001 F6 0001FA 000 200 000204 000 208 00020C 000 210 000214 000218 00021C 000220 000224 000228 00022E 000232 000236 000 23A 00023E
D215 1BAA 95F2 4780 4590 9500 47DO 9518 4740 951 F 4740 D200 9520 4740 953A 4740 9540 4740 9560 4740 95F7 4 720 D200 95F1 4780 95EF 4720 47FO
BDDC BD36 OOt DE OOD38 8004 00004 B37E 00380 B3D8 003DA 8004 00004 B4F2 004F4 8004 00004 B2BA 002BC 8004 00004 B272 00274 BCD4 BCD6 OOCD6 00CD8 8004 00004 8240 00242 8004 00004 B24C 0024E 8004 00004 B2EC 002EE 8004 00004 B2BA 002BC 00004 8004 B4F2 004F4 BCD4 BCD5 OOCD6 OOCD7 8004 00004 B2DO 002D2 8004 00004 B2DE 002EO 004F4 B4F2
5
126 ZBL 127 128 129 130 131 132 133 VGL2 134 135 136 137 138 139 140 141 142 143 144 145 147 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176
FDOS CL3-3 12/01/72
SOURCE STATEMENT
*
*
VERTALING VAN DE OPERATIE CODE MVC BAL SRA BAL B LA BAL LA CLI BE CLC BNE L LA MVC SR IC SLA AR LA
6
PLAATS,OPC 9,BLANKS 6,1 9,VERT FA3 5,i1 9,BERGOP 8,6 (8) 0 {8) , X' FF 1 FA4 0(4,8),W1 VGL2 5,W4 5, 1 (5) 0{1,5),4(8) 10,10 10,5(8) 10,1 4, 10 5, 1 (5)
FOUT PLAATS IS OP• CODE• ZOEK BLANKS MAXL =4 IN R6 ZOEK OP• CODE NAAR FA3 INDIEN AFWEZIG ADRES MNEMONIC IN R5 BERG MNEMONIC OP HOOG POINTER T2 OP EINDE T2 ? NAAR FA4 INDIEN MNEMONIC ONBEKEND CODE GEVONDEN? ZO NIET ZOEK VERDER• POINTER T4 IN R5 HOOG POINTER T4 OP BERG BINAIRE CODE OP IN T4 AANTAL MACHINE CCDE'S IN R10 AANTAL BYTE'S IN R10 TEL DIT OP BIJ ADRES TELLER HOOG POINTER T4 OP
F01'1AT ONDERZOEK MVC SR CLI BE BAL CLI BNH CLI BL CLI BL MVC CLI DL CLI BL CLI BL CLI BL CL! BH l"'VC CLI BE CLI BH B
3
PLAATS,OPR 10, 10 4 (8) ,X'F2' GEENOP 9,BLANKS 4(8),X'00 1 FA5 4{8),X'18'
s
4(8),X 1 1F 1 SL DELIM,KOMMA 4 {8) ,X 1 20'
sss
4(8),X'3A 1
ss
4(8),X 1 40 1 ASSEM 4(8),X 1 60'
s
4(8),X 1 F7' FA5 DELHI, BLANK 4(8),X'F1 1 II 4 {8) ,X 1 EF' I FA5
FOUT PLAATS IS OPERAND INSTRL=O IN R10 'END' INSTRUCTIE? ZO JA NAAR GEENOP ZOEK DLANKS NAAR FA5 INDIEN CODE < OF=O NAAR S INDIEN FORMAT S• FORMAT SL OF SSL? ZO JA NAAR SL GEZOCHTE DELIMITER NAAR DELIM FORMAT SSS? ZO JA NAAR SSS• FORMAT SS OF SI? ZO JA NAAR SS NAAR ASSEM VOOR DS, DC EN CCW INSTRUCTIE 1 LADR' OF M• CODE MET INDIRECTE ADRES ZO JA NAAR S NAAR FAS INDIEN CODE ONBEKEND GEZOCHTE DELIMITER NAAR DELIM 'CLI' INSTRUCTIE? ZO JA NAAR II EXTRA MACHINE INSTRUCTIE? ZO JA NAAR I CODE ONBEKEND NAAR FA5
PAGE
ASSEMBLER VOOR MICROCOMPUTER LOC
000242 000 246 00024A 00024E 000252 000256 000251 000260 000264 000268 00026C 000270 000274 000 27A 00027E 000282 000286 00028C OOJ28E 000292 000296 000298 00029C 000210 0002A6 0002AA 0002 AE 0002B4 0002B8 0002BC 0002C2 0002C6 0002CA 0002CE 0002D2 0002D4 0002D8 0002DC 0002EO 0002E2 0002E6 0002EA
OBJECT CODE
4590 47FO 4590 4590 47FO 4590 D200 9530 4740 9534 4740 47FO D200 4590 47FO LJ590 D200 1B66 4166 4580 1 B66 951C 47BO D200 4590 47FO D200 4590 4166 D200 4590 47FO 4590 LJ7FO 1 B66 4166 4580 47FO 1 B66 4166 4580 47FO
ADDR 1 ADDR2
B39C 0039E B4DE 004EO B3FO 003F2 B39C 0039E B4DE 004EO B3FO 003F2 BCD4 BCD5 00CD6 00CD7 8004 00004 B2BA 002BC 00004 8004 B2DE 002EO B2DO 002D2 BCD4 BCD7 00CD6 00CD9 B39C 0039E B4DE OOfiEO B3FO 003F2 BCD4 BCD8 00CD6 OOCDA 0003 B4AE
00003 004BO
8004 00004 B2AC 002AE BCD4 BCD5 00CD6 00CD7 B3AA OOJAC B38C 0038E BCD4 BCD6 OOCD6 00CD8 B3AA 003AC 00008 0008 BCD4 BCD5 OOCD6 00CD7 B39C 0039E BilDE 004EO B3FO 003F2 B38C 0038E 0001 B46ll B38C
00001 00466 0038E
0002 B4AE B38C
00002 004BO 0038E
STMT
*
180 181 182 183 184 185 186 187 188 189 190 191 192 193 19fl 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221
sss
223 0002EE 0002F2 0002F6 0002FC 000300
953C 4780 D200 9531 4770
8004 00004 B33C 0033E BCD4 BCD5 OOCD6 OOCD7 8004 00004 B310 00312
FDOS CL3-3 12/01/72
SOOR:E STATEMENT
178
7
CONTROLE VAN DE OPERAND BAL B BAL BAL B BAL MVC CLI BL CLI BL B MVC BAL B BAL MVC SR LA BAL SR CLI BNL r!VC BAL
ss
SL
B
SSL
MVC BAL LA !!VC BAL B BAL
s
B
SR LA BAL B SR LA BAL B
II
I
*
8
225 ASSEM 226 227 228 229
9 1 VERT FA3 9,BERGOP 9,VERT FAJ 9, BERGOP DELIM,BLANK 4 {8), x• 30 •
s
4(8),1'34' I II DELIM,OPHA 9,VERT FAJ 9, BERGOP DELIM,SLHA 6,6 6 # 3 (6) 8,DEC 6,6 4(8),X'1C' SSL DELIM,BLANK 9,VERTB AF DELIM,KOMMA 9, VERTB 6,8 (6) DELIM,BLANK 9,VERT FAJ 9,BERGOP AF 6,6 6, 1 (6) 8,DEFCON AF 6,6 6, 2 (6) 8,DEC AF
ZOEK OPERAND NAAR FA3 INDIEN AFWEZIG BERG OPERAND OP IN T4 ZOEK OPERAND NAAR FAJ INDIEN AFWEZIG BERG OPERAND OP IN T4 GEZOCHTE DELIMITER NAAR DELIM FORMAT SS OF SSS? ZO JA NAAR S FOMAT SI TYPE F•P•? ZO JA NAAR I NAAR II VOOR FORMAT SI TYPE L•O• GEZOCHTE DELIMITER NAAR DELIM ZOEK OPERAND NAAR FAJ INDIEN AFWEZIG BERG OPERAND OP IN T4 GEZOCHTE DELIMITER NAAR DELIM HAXL IN R6 VERWERK DATA EN BERG OP MAXL=O IN R6 NAAR SSL, INDIEN FORHAT SSL• GEZOCHTE DELIMITER NAAR DELIM WAS VORIGE OPERAND DE LAATSTE? ZO JA NAAR AF GEZOCHTE DELIMITEB NAAR DELIH FORMAT JUIST? MAXL=8 IN R6 GEZOCHTE DELIMITER NAAR DELIH ZOEK OPERAND NAAR FA3 INDIEN AFWEZIG BERG OPERAND OP IN T4 NAAR AF MAXL:2 IN R6 VERWERK DATA NAAR AF VOOR VOLGENDE MAXL IN R6 VERWERK DATA NAAR AF VOOR VOLGENDE
ONDERZOEK NAAR HET TYPE VAN DE ASSEMBLER INSTRUCTIE CLI BE !!VC CLI BNE
4
4 (8)
ccw
,x• Jc•
DELIM,BLANK 4 (8) ,X 1 3A 1 DS
CCW INSTRUCTIE? ZO JA NAAR CCW GEZOCHTE DELIMITER NAAR DELIM DC INSTRUCTIE? ZO NIET NAAR DS
PAGE
ASSEMBLER V OOR l'IICROCOI!POTER LOC
OBJECT CODE
ADDR1 ADDR2
231 000304 000306 00030A 00030E
1B66 4166 0002 4580 B464 47!'0 B38C
00002 00466 0038E
000312 000314 000316 00031A 00031E 000320 000326 000321. 00032E 000330 000332 000336 00033A
00033E 000344 000346 000348 00034C 000350 000352 000 356 00035A 00035E 000362 000 364 000368 00036C 000372 000374 000378 00037C
1 BAA 1866 4166 4580 1B5A F277 4FAO 8BAO 1 A4 A 1BAA 4111 4155 47FO
D200 1BAA 1 B66 4166 4580 1B66 4166 4590 47FO 4590 1 B66 4166 4580 D200 1 B66 4166 4580 47FO
0005 B4AE
00005 00480
BCE6 5000 OOCE8 00000 BCE6 OOCE8 0001 00001 0008 0008 B38C
00008 00008 0038E
BCD4 BCD6 00CD6 00CD8 0002 B4AE
00002 00480
0008 B39C B4DE B3FO
00008 0039E OOIJEO 003F2
0003 00003 B4AE 004BO BCD4 BCD5 00CD6 00CD7 0003 B4AE B38C
00003 004BO 0038E
*
9
233 234 235 236 238
*
10
240 DS 241 242 243 244 245 246 247 248 249 250 251 252 254
*
256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273
ccw
275
*
11
00038E 000392 000396 00039A
281 13 282 AF 283 284 285
OOFF4 00000 OOFF4 00036
*
1
MAXL:2 IN R6 VERWERK 1 DC' STATEMENT NAAR AF
DS 1 INSTRUCTIE
10,10 6,6 6,5 (6} 8, DEC 5,10 DOUBLE, 0 (8, 5) lOrDOUBLE 10, 1 4,10 10, 10 10,8(10) 5, 8 (5) AF
MAXL IN R6 VERWERK DATA POINTER T4 MIN 8 ZET GETAL OM IN BINAIRE CODE AANTAL BYTE'S IN R10 HOOG ADRES TELLER OP INSTRL• =8 IN R10 HOOG POINTER T4 OP MET 8 NAAR AF
VERWERKING VAN DE 'CCW' INSTRUCTIE MVC SR SR LA BAL SR LA BAL B BAL SR LA BAL MVC SR LA BAL B
12
6,6 6, 2 {6) 8,DEFCON AF
VEIHfERKING VAN DE SR SR LA BAL SR PACK CVB SLA AR SR LA LA B
277 GEEN OP 278 279
BFF2 0000 BFF2 B034
VERWERKING VAN DE 'DC 1 INSTRUCTIE SR LA BAL B
000380 D207 5000 BCEE 00000 OOCFO 00()386 IJ1AA 0008 00008 00038A 4155 0008 00008 5860 42A6 5050 47FO
FDOS CL]-3 12;01;72
SOURCE ST AT EM.ENT
STHT
DELil1,KOMMA 101 10 6,6 6, 2 {6) 8,DEC 616 618 (6)
9, VEBT FA3 9, BERGOP 6,6 613 (6) 8 1 DEC DELIM,BLANK
GEZOCHTE DELIMITER NAAR DELHI INSTRL=O MAXL=2 IN R6 VERWERK DATA MAXL=8 IN R6 ZOEK OPERAND 2 NAAR FA3 INDIEN AFWEZIG BERG OPERAND OP MAXL-=3 IN B6 VERWERK DATA GEZOCHTE DELIMITER NAAR DELI M
616
6, 3 (6) 8,DEC AF
l'IAXL=3 IN R6 VERWERK DATA NAAR AF
VERWERKING VAN DE 'END' INST.ROCTIE MVC LA LA
5
0 (8, 5) I LEEG 1018(10) 5, 8 (5)
OPERAND BLANKS I NSTRL=8 IN R10 HOOG POINTER T4 OP
AFSLUITING VAN DE VERWERKING VAN DE INGELEZEN KAART 6,W4 BEGIN ADRES INSTRUCTIE IN B6 L STC I NSTRL NAAR T4 1010(6) 5,W4 BERG POINTER T4 OP IN W4 ST B READ VOLGENDE KAART
ASSEMBLER VOOR MICROCOMPUTER LOC
OBJECT CODE
ADDR1 ADDR2
PAGE STMT 287
00039E 0003A2 0003A6 0003AA 0003AC 0003BO 0003B2 0003B4 0003BA 0003BE 0003C4 000 3C8 0003CA 0003CE 0003DO 0003D4 0003D8
4133 95FO 47BO 0630 4133 1B11 1B22 DD4F 4220 D500 4770 1 B13 4780 1516 4720 4199 07F9
0001 3000 B516
00001 00000 00518
0001
00001
3000 BFFA 00000 OOFFC BCD9 OOCDB BCD4 BCD9 00CD6 OOCDB B4CE 004DO B3D6
003D8
B4C4 0004
004C6 00004
4133 95FF 4780 9540 4780 0630 07F9
0001 3000 B4DE 3000 B3D8
00001 00000 004EO 00000 003DA
41AA 0610 4210 D200 4111 1A51 1B61 4780 0660 4260 D200 4166 1 A56 1B66 4166 1A31 07F9
0008
00008
B3FB 003FD 5000 3000 00000 00000 0001 00001 BIJ20
00422
B413 00415 5000 BCEE 00000 OOCFO 0001 00001 0008
00008
14
*
15
LA CLI BHL BCTR LA SR SR TRT STC CLC BNE SR BZ CLR BH LA BR BLANKS: LA CLI
*
BERGOP:
16
319 BERGOP 320 321 322 323 324 325 326 327 328 329 330 331 332 333 A 334 335
FDOS CL3-3 12/01/72
VERT(B): ROUTINE VOOR HET ZOEKEN VAN DELIMITERS
309 BLANKS 310 311 312 313 314 315 317
0003F2 0003F6 0003F8 0003FC 000402 000406 000408 00040A 00040E 0001110 0001t14 00041A 00041 E 000420 000422 000426 000428
*
289 VERT 290 291 292 293 VERTB 294 295 296 297 298 299 300 301 302 303 304 305 KLAAR 307
0003DA 0003DE 0003E2 0003!6 0003EA 0003EE 0003FO
SOURCE STATEMENT
BE
CLI BE BCTR BR
LA BCTR STC !VC LA AR SR BZ BCTR STC MVC LA AR SR LA AR BR
6
3.,1 (3) 0 (3) , X' FO'
FA8 3,0 3, 1 (3) 1,1 2, 2 0(80,3),T1 2,LSTKN DE LI M, L ST K N FA2 1,3 KLAAR 1, 6
FA1 9, 4 (9) 9
HOOG POINTER CARDAREA OP 1-STE CHARACTER EEN CYFER? ZO JA NAAR FA8 VERLAAG POINTER CIRCAREA HOOG POINTER CARDAREA OP ZOEK DELIMITER GEVONDEN DELIMITER NAAR LSTKN JUISTE DELIMITER GEVONDEN ZO NEE NAAR FA2 LENGTE DATA IN R1 NAAR KLAAR ALS L=O• LENGTE>8 DAN NAAR FA1 HOOG TERUGKEER ADRES OP• TERUG NAAR ADRES IN R9
ROUTINE VOOR HET ZOEKEN VAN SPATIES 3, 1 (3)
0(3),X'FF' FA3 0(3),C' ' BLANKS 3,0 9
HOOG POINTRR CARDAREA OP• EINDE KAART DAN NAAR FA3 BLANK GEVONDEN? ZO JA ZOEK VERDER• VERLAAG POINTER CARDAREA• TERUG NAAR ADRES IN R9
ROUTINE VOOR HET OPBERGEN VAN NAMEN 10,8(10) 1, 0 1,.+5 0(,5),0(3) 1,1 (1) 5, 1
6,1 A
6,0 6, •+5
0 {,5} ,LEEG 6, 1 {6)
5,6 6,6 6" 8 {6) 3, 1 9
HOOG INSTRL OP MET 8 LENGTE MIN EEN BERG DATA OP IN TABE[. LENGTE PLUS EEN HOOG POINTER OP MAXL-L IN R6 NAAR A ALS L=B VUL DATA AAN MET BLANKS• HOOG POINTER OP• MAXL=8 lN R6 HOOG POINTER CARDAREA OP TERUG NAAR ADRES IN R9
ASSEMBLER VOOR MICROCOliPUTER LOC
OBJECT CODE
ADDRl ADDR2
PAGE ST riT 337
00042A 00042C 000430 000'+32 000436 OOOLJ38 00043C 000442 000444 000448 000441 00044E 000454 OOOLJ56 00045A 00045E 000462 000464
1B66 '+166 1B61 4780 0660 4260 D200 1 A56 4155 0610 4210 D200 1 A51 4155 41AA 4111 1 A31 07F9
0008
00008
B446
00448
B43B 0043D 5000 BCFE 00000 OODOO 0001
00001
B44D 0044F 5000 3000 00000 00000 0001 0008 0001
00001 00008 00001
D200 4133 4155 41AA 95C2 4780 8B60 95E7 4780 4166 95D7 4780 47FO 1 B66 4166 4590 47FO 4590 07F8
5000 3001 00000 00001 0001 00001 0001 00001 0001 00001 3000 00000 BLJ9A 0049C 0001 00001 3000 00000 B4AO 004A2 0001 00001 3000 00000 BLJAO 004A2 B50C 0050E 0008 B3AA B4DE B428
00008 003AC 004EO 0042A
*
17
339 BERG ET 340 341 342 343 344 345 346 347 348 B 349 350 351 352 353 354 355 356 358 359
000466 00046C 000 4 70 000474 000 4 78 00047C 000480 000484 000488 00048C 000490 000494 000 498 OOOLJ9C 00049E 0004 A2 0004A6 0004AA 0004AE
SOURCE STATEMENT
* *
18
361 DEFCON 362 363 364 365 366 367 368 369 370 371 372 373 374 DEFCO 375 376 377 378 379
BERG ET: SR LA SR BZ BCTR STC MVC AR LA BCTR STC MVC AR LA LA LA AR BR DEFCON: f!IVC LA LA LA CLI BE SLA CLI BE LA CLI BE B SR LA BAL B BAL BR
7
FDOS CL3-3 12/01/72
ROUTINE VOOR HET OPBERGEN VAN 3ETALLEN 6,6 6, 8 (6) 6, 1 B 6,0 6,*+5 0{,5),ZN 5,6 5, 1 (5) 1,0 1, •+5 0(,5),0(3} 5, 1 5. 1 (5) 10.,8(10) 1,1 (1) 3, 1 9
f!IAX OPERAND LENGTE IN R6 l!AXL-L IN R6 NAAR B INDIEN GETAL 8 BYTE VUL GETAL AAN MET ZONE'S 'F0 1 AAN DE 'VOORKANT' HOOG POINTER T4 OP HOOG POINTER OP LENGTE NAAR PIVC STMT GETAL NAAR T4 HOOG POINTER T4 OP INSTRL +8 IN R10 HOOG LENGTE OP MET 1 HOOG POINTER CARDAREA OP TERUG NAAR ADRES IN R9
ROUTINE VOOR HET VERWERKEN VAN CONSTANTES MET TYPE AANDUIDING 0(1,5),1(3) 3,1 (3) 5, 1 (5) 10,1 {10) 0(3),C 1 B 1 DEFCO 6, 1 0(3},C'X' DEFC0+6 6 # 1 (6) 0(3),C'P' DEFC0+6 FA7 6,b 6, 8 (6) 9,VERTB FA3 9,BERGET 8
TYPE NAAR T4 HOOG POINTER CARDAREA OP HOOG POINTER T4 OP HOOG INSTRL OP MET 1 BINAIR GETAL? ZO JA NAAR DEFCO MAXL IN R6 HEXADECIMAAL GETAL ? ZO JA NAAR DEFC0+6 I'IAXL IN R6 DECIMAAL GETAL? ZO JA NAAR DEFC0+6 ZO NIET NAAR FA7 MAXL=8 IN R6 ZOEK DATA NAAR FA3 INDIEN AFWEZIG BERG DATA OP TERUG NAAR ADRES IN R8
ASSE~BLER
LOC
VOOR MICROCOMPUTER
OBJECT CODE
ADDR1 ADDR2
PAGE STMT 381
0004BO 4590 000~84 47FO 0004B8 95FO 0004BC 4740 0004CO 4590 0004C4 07F8
B3AA B4DE 3000 8516 8428
003AC 004EO 00000 00518 0042A
0004C6 0004CC 0004DO 0004D2 0004D6 0004DC 0004EO 0004E6 0004EA 0004FO 0004F4 0004FA 000500 000504 00050A 00050E 000514 000518 00051E 000522 000524 000528 00052C 000530
D20F 47FO 1B13 4780 D20F 47FO D20F 47FO D20F 47FO D20F D215 47FO D20F 47FO D20F 47FO D20F 92FF 1822 4820 4122 4020 D202
8DCC BD4C OODCE OOD4E 851C 0051E
000544 000548 00054E 000554
9240 D24E D215 D20F
BEF4 OOEF6 BEF5 BEF4 OOEF7 OOEF6 BEF9 BDDC OOEFB OvDDE BFOF BDCC OOF11 OODCE
000578 00057C 00057E 000582 000586 00058A 000590 000594 000598
5850 1BAA 42A5 41AA 42!5 D207 4155 5050 47FO
BFF2
84DE 8DCC B51C 8DCC 851C 8DCC B51C 8DCC 8DDC B51C 8DCC B51C BDCC B51C BDCC BD08
BD5C OODCE BDBC OODCE BD7C OODCE BDBC OODCE BD20 OODDE 8D6C OODCE BD9C OODCE BDAC OODCE OODOA
BE8E 0003 BE8E BEED BCEE OOEEF
004EO 00D5E 0051E OOD8E 0051E OOD7E 0051E OODBE OOD22 0051E OOD6E 0051E OOD9E 0051E OODAE OOE90 00003 OOE90 OOCFO
OOFF4
0001 00001 0008 00008 0000 00000 5002 BCEE 00002 OOCFO OOOA OOOOA BFF2 OOFF4 B034 00036
SOURCE STATEMENT
*
19
383 DEC 384 385 386 387 388 390 391
* *
393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 424 425 426 427 428 435 442 443 444 445 446 447 448 449 450
FA1
DEC: BAL B
CLI BL BAL BR 20
FA: MVC B
FA2
SR BZ ~vc
B
FA3
~vc
FA4
~vc
PAS
MVC
B
B ~vc
B
FA6
~vc
B
FA7
MVC B
FAB FA
~vc
MVI SR LH LA STH MVC CALL MVI MVC MVC MVC CALL CALL L
SR STC LA STC MVC .LA
ST B
8
FDOS CL3-3 12;01;72
ROUTINE VOOR HET VERWERKEN VAN DECIMALE GETALLEN 9,VERTB FA3 0 (3) ,X'FO' FA8 9,BERGET 8
ZOEK GETAL NAAR FA3 INDIEN AFWEZIG 1-STE GEEN CYFER DAN NAAR FA8 BERG GETAL OP TERUG NAAR ADRES IN BB
ROUTINE VOOR HET DIPRINTEN VAN FOUTEN IN DE EERSTE 'STAP' SOORT,LEN FOUTSOORT :LENGTE FA 1,3 LENGTE IN R1 FA3 INDIEN NUL NAAR FA3 SOORT,DEL FOUTSOORT:DELIMITER FA SOORT,AFW FOUTSOORT;AFWEZIG FA SOORT 1 0NB FOUTSOORT: ONBEKEND FA SOOTIT,BINC FOUTSOORT: BINAIRE CODE PLAATS,OPC FOUTPLAATS: OPERAND FA SOORT, K AV FOUTSOORT; KOMT AL VOOR FA SOORT,GET FOUTSOORT: GETAL SOORT FA SOORT,ONG FOUT SOORT: ONGELDIG FT, x• FF' FF NAAR FOUTWOORD FASE1 2,2 2,RT 2, 3 (2) HOOG REGEL TELLER OP 2,RT AREA+15(3),LEEG MAAK AREA LEEG PRINT, (IETS) PRINT LEGE REGEL MAAK CARDAREA CARDAREA, C' ' CARDA REA+ 1 (79) 1 C ARDAREA LEEG CARDAREA+5(22),PLAATS FOUTPLAATS NAAR CARDAREA CARDAREA+27(16) ,SOORT FOUTSOORT NAAR CARDAREA PRINT, (AREA) PRINT FOUT PRINT, (IETS) PRINT LEGE REGEL 5, W4 POINTER T4 IN R4 10,10 CODE=O IN R10 10, 1 (5) CODE NAAR T4 10,8 (10) INSTRL=8 IN R10 INSTRL NAAR T4 10,0(5) 2 {8 ,5) I LEEG BLANKS ALS OPERAND NAAR T4 5,10(5) HOOG POINTER T4 OP 5,W4 BERG POINTER T4 OP IN W4 READ NAAR READ VOOR VOLGENDE KAART
PAGE
ASSEMBLER VOOR MICROCOMPUTER LOC
OBJECT CODE
ADDR1 ADDR2
00059C 9240 BEF4 OOEF6 0005AO D24E BEF5 BEF4 OOEF7 OOEF6 0005 A6 D21A BEF4 BE46 OOEF6 OOE48 0005CC 47FO BCD2
00CD4
STMT
FDOS CL3-3 12j01j72
SOURCE STATEMENr
452 FA9 453 454 455 462 469
MVI l!VC MVC CALL CALL B
9
CARDAREA,C 1 1 CARDAREA+1{79),CARDAREA CARDAREA(27) ,STKONB PRINT, (IETS) PRINT I (AREA) STOP
MAAK CARDAREA LEEG FOUT MELDING NAAR CARDAREA PRINT LEGE REGEL PRINT CARtAREA NAAR STOP
ASSEMBLER VOOR MICROCOMPUTER LOC
OBJECT CODE
ADDR1 ADDB2
PAGE STMT 411 * 472 *
0005DO 0005D4 0005D8 0005DC OOOSDE
5040 9500 4180 1B22 4020
OOOSFO 0005F2 0005F6 0005FA 0005FE 000602 000606 00060A 00060E 000 612 000616 00061A 00061E 000624 000628 00062C 000632 000634 000638 00063C 0006 42 000648 00064E 000652 000656 00065A 00065C 000660 000664 000668 00066A 00066E 000674 000678 00067E 000684 00068A 00068E 000690 000694 00069A
1B77 5830 92FF 5830 92FF IJ130 4140 4970 4770 IJ590 IJ 177 9240 D24E 95FF 4780 D207 1B66 4863 4060 F342 DC03 D202 4133 95FF 4780 1 B55 4364 4354 4144 0650 4250 D200 4060 F342 DC03 D201 4144 1 A45 4E70 F321 0300
BFF6 BE7F B6B2 BE90
OOFF8 OOE81 006B4 OOE92
BFEE OOFFO 3000 00000 BFF2 OOFF4 00000 3000 C646 01648 C89E 018AO BE90 OOE92 B614 00616 BC5E OOC60 0001 00001 BEF4 OOEF6 BEF5 BEF4 OOEF7 OOEF6 3000 00000 B650 00652 BEF4 3000 OOEF6 00000 0008 00008 BFCE OOFDO BFD1 BFCE OOFD3 OOFDO DFD1 BEE6 OOFD3 OOEE8 BEFE BFD2 OOFOO OOFD4 OOOA OOOOA 4000 00000 B6B2 006B4 0001 0000 0002
00001 00000 00002
B66D BF12 BFCE BFD1 BFD1 BF08 0001
0066F 4000 OOF14 00000 OOFDO BFCE OOFD3 OOFDO BEE6 OOFD3 OOEE8 BFD3 OOFOA OOFD5 00001
BCE6 00CE8 BF02 BCEC OOF04 OOCEE BF04 BF02 OOP06 OOF04
0006BO 47FO B608
0060A
SO URCE STATEMENT 21
474 PRTAB34 475 476 477 478 479 486 487 488 489 490 491 492 493 VUL IJ94 495 496 497 498 499 500 501 502 503 504 SOS 506 507 508 509 PRT 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 534
FDOS CL3-3 12;01;12
PBTAB34: ROUTINE VOOR HET DIPRINTEN VAN DE RESULTATEN VAN DE EERSTE 1 STAP' ST CLI BE SR STH CALL SR L MVI L MVI LA LA CH BNE BAL LA MVI MVC CL! BE MVC S.R LH STH UNPK TR
MVC LA CL! BE SR IC IC LA BCTR STC MVC STH UNPK TR MVC LA AR CVD UNPK MVZ CALL B
10
4,W5
c0 .N TR w+ 2 x • 0 0 I I
BEWAAR ADRESTELLER T3 EN T4 UITPRINTEN ? ZO NIET NAAR VERTAAL
VERTAAL 2,2 2,BLZT BLADZIJDE TELLER IS NUL NE WPAGE, (NUL) 7,7 STMT TELLER =0 IN R7 3,W3 0(3),X'FF' SLUIT LABEL TABEL AF 3, w4 0(3),X'FF' SLUIT PROG• TABEL AF 3,T3 POINTER T3 IN R3 4,T4 POINTER T4 IN R4 7,BLZT NIEUWE BLADZIJDE? ZO NIET GADOOR *+8 9,KOP3 ZO JA PRINT KOP 711 (7) HOOG STMT TELLER OP CARDAREA, C1 1 MAAK CARDAREA CARDAREA+1(79),CARDAREA LEEG EINDE LABEL TABEL? 0(3),X'FF' PRT ZO JA NAAR PRT CARDAREA (8) I 0 (3) LABEL NAAR CARDAREA 6,6 6,8(3) ADRES IN R6 6, HEX ZET LABEL ADRES OM AREA2 (5) ,HEX (3) IN HEXADECIMALE CODE AREA2 ( 4} I T6- 240 CARDAREA+10(3),AREA2+1 ZET ADRES IN CARtAREA 3, 10 (3) HOOG POINTER T3 OP 0 (4) ,X'FF' EINDE PROG• TABEL? VERTAAL ZO JA NAAR VERTAAL 5,5 LENGTE INST.R• CODE IN R6 6,1[4) 5, 0 (4) IN RS 4, 2 (4) HOOG POINTER T4 OP 5,0 INSTRUCTIE NAAR 5,*+5 CARDAREA+30,0 (4} CARDAREA 6, HEX ZET CODE OM AREA2 (5} ,HEX {3) IN HEXADECIMAAL AREA2 (4), T6- 240 EN ZET DIE IN CARDAREAt20(2),AREA2+2 CARDAREA 4, 1 (4) HOOG POINTER T4 OP 4,5 POINTER T4 +INSTRL 7, DOUBLE ZET STMT NUMMER OM CARDAREA+14(3),DOUBLE+6(2) IN DECIMAAL GETAL CARDAREA+16(1),CARDAREA+14 EN ZET DIT IN CARDAREA PRINT, (AREA) PRINT TABELLEN VUL NAAR VUL VOOR VOLGENDE
PAGE
ASSEMBLER V OOR MICROCOMPUTER
r.oc
OBJECT CODE
ADDR1 ADDR2
536 000684 0006B8 0006BC 0006CO 0006C6 0006CC 0006DO 0006D4 0006 DB 0006DC 0006 EO
95FF 4780 9240 D24E D202 5830 5840 92FF 92FF 95FF 4780
BE7E OOE80 BCD2 OOCD4 BEF4 OOEF6 BEF5 BEF4 OOEF7 OOEF6 BEED BCEE OOEEF OOCFO BFEE OOFFO OOFF4 BFF2 00000 3000 4000 00000 BOOS OODOA BCD2 00CD4
0006F4 0006F8 0006 FC 0006FE 00()702 000706 000708 00070C 000710 000714 000718 00071C
9200 4180 1BAA 43AO 40!8 1BAA 41AA 8BAO 40A8 4188 4140 1B77
BD06 C3EE
00008 013FO
CEF8 0000
01EFA 00000
0003 0008 0002 0004 C89E
00003 00008 00002 00004 018AO
SOU HCE ST AT EMENT
STMT
*
22
538 VERTAAL 539 540 541 542 543 544 545 546 547 548 549 556 557 558 559 560 561 562 563 564 565 566 567
FDOS CL3-3 12}01;72
INITIALI SElU NG VAN DE TWEEDE 'STAP' VAN HET VERTAALPROGRAMMA CL! BE MVI MVC MVC L 1..
MVI MVI CL! BE CALL MVI LA SR IC STH SR LA SLA STH LA LA SR
11
ALLEEN LISTING GEVRAAGD? CONTRW+1,X 1 FF' ZO JA NAAR STOP STOP MAAK CARDAREA CABtAREA,C' t CARDAREA•1{79),CARDAREA LEEG AREA+15 (3) ,LEEG MAAK AREA LEEG 3., w3 4,W4 SLUIT LABEL EN 0 {3) ,X' FF' PROGRAMMA TABEL AF 0 (4) , X' FF' NAAR STOP INDIEN FT,X 1 FF' STOP FOUT IN FASE1 NEWPAGE, {NUL) NIEUWE PAGINA FOUTWOORD FASE2 IS NUL FTNAAM,X'00' 8,INSTR ADRES INSTR TABEL IN RB 10,10 10,=X' FF' START TEKEN NAAR INSTR TABEL 10.,0(8) 10, 10 10,3{10) 10,8 BEGIN ADRES PROGRAMMA NAAR INSTR TAB 10,2(8) HOOG POINTER INSTR TABEL OP 8,4{8) 4,T4 POINTER 'f4 IN R4 TELLER IS NUL 7,7
ASS El'! DL ER V OOR MICROCOMPUTER LOC
OBJECT CODE
ADDR 1 ADDR2
PAGE STMT 569
00071E 000720 000722 000724 000728 00072C 000730 000734 000738 00073C 000740 000744 000748 00074C 000750 000754 000758 00075C 000760 000764 000768 00076C 000770 000774 000778 00077C 000780 000784
1E55 1 E66 1B22 5040 4177 4354 4144 4364 9510 4740 9514 4740 9518 4740 9530 4 740 9534 4740 953A 4740 9540 4740 9550 4740 9560 4 740 95FO 4740
BFEA 0001 0000 0001 0000 4000 E888 4000 E8FE 4000 E7EE 4000 EBFE 4000 B83E 4000 BAF2 4000 EBFE 4000 EBDE 4000 B89C 4000 B8FE
OOFEC 00001 00000 00001 00000 00000 0088A 00000 00900 00000 007FO 00000 00900 00000 00840 00000 OOAF4 00000 00900 00000 OOBEO 00000 0089E 00000 00900
SOUR:E STATEMENT
*
23
FDOS CL3-3 12/01/72
FORMAT ONDERZOEK
571 VOLGENDE SB 572 SR 573 SB 574 ST 575 LA 576 IC 577 LA 578 IC 579 CLI 580 BL 581 CLI 582 BL 583 CLI 584 BL CLI 585 586 BL 587 CLI 588 BL 589 CLI BL 590 591 CLI EL 592 593 CLI 594 EL 595 CLI 596 EL 597 CLI 598 EL
12
5. 5 6.6 2. 2 4,W2 7, 1 (7) 5, 0 (4) 4. 1 (4) 6. 0 (4} 0(4),X 1 10' MC 0{4) 6 X1 14' ZE TOM 0 (4) ,X' 18' BRAN 0(4),X 1 30 1 ZE TOM 0 (4) ,X' 34' SCHUIF 0(4),X'3A' FB2 0(4),X'40' ZET OM 0(4),X'50' IRDMC 0(4),X'60' LADRES 0 ( 4), X' FO' ZE TOl'!
BEWAAR BEGIN ADRES INSTRUCTIE HOOG TELLER OP INSTR LENGTE IN R5 HOOG POINTER T4 OP BINAIRE CODE IN R6 NAAR MC INDIEN 4 BIT MACHINE CODE I I/0. INSTRUCTIE? ZO JA NAAR ZETOM SPRONG INSTRUCTIE? ZO JA NAAR BRAN FORMAT SS? ZO JA NAAR ZETOM SCHUIF OPDRACHT? ZO JA NAAR SCHUIF FORMAT SI TYPE L•O•? ZO JA NAAR FB2 (CODE ONBEKEND) MACRO? ZO JA NAAR ZETOl'l M• CODE MET INDIRECTE ADRESSERING ? ZO JA NAAR INDMC 'LADR' INSTRUCTIE? ZO JA NAAR LADRES VOOR OVERIGE NAAR ZETOM
ASSEMBLER VOOR MICROCOMPUTER LOC
OBJECT CODE
ADDR1 ADDR2
PAGE STMT 600
000788 00078C 000790 000794 000798 00079C 0007A2 0007A6 0007A8 0007AC 0007BO
8B60 95F1 4780 95F2 4780 F277 4FAO 1A6A 4068 4144 4 7FO
0008 00008 4000 00000 B7DC 007DE 4000 00000 B7B2 007B4 BCE6 IJ001 OOCEB 00001 BCE6 OOCEB 0000 0001 BA 06
00000 00001 OOAOB
0007B4 0007B8 0007BC 0007CO 0007C4 0007C8 0001CA 0007CE 0007D2 0007D6 0007DA
41AO 5AAO 406A 92FF 92FF 1B66 4166 8B60 5A60 4068 47FO
COF2 BFF6 0000 A002 A003
010F4 OOFF8 00000
0008 OOOC BFF6 0000 BB3E
OOFFB 00000 OOB40
000 7DE 0007E2 0007E6 0007E8 0007EC
4530 4820 1A62 4068 47FO
BA 54 BEBA
OOA56 OOEBC
0000 BA 10
00000 OOA12
00002 00003 00008
ooooc
1B22 4320 8B20 1 B6 6 4166 8B60 9514 4780 4122 9515 4780 4122 9517
CEF9 0008
4122 4028 4188 4144 4590 47FO 47FO
24
0008 OOOC 4000 B826 0001 4000 B826 0001 4000 0001 0000 0002 0001 BA20 BAEB DAOA
00008
ooooc
00000 00828 00001 00000 00828 00001 00000 00828 00001 00000 00002 00001 OOA22 OOAEA OOAOC
VERTALING VAN 8 BITS MACHINE-INSTRUCTIES SLA CLI
6,8 0(4),X'F1'
BE
I !'I
CLI
0 (4) ,X'F2' NOP DOUBLE,1 (8,4) 10, DOUBLE 6,10
B
GA DOOR
ZET CODE OP Z'N PLAATS 1 CLI 1 INSTRUCTIE? ZO JA NAAR IM 'END' INSTRUCTIE? ZO JA NAAR NOP ZET DATA OM VAN EBCDIC NAAR BINAIR MAAK INSTRUCTIE BERG INSTRUCTIE OP HOOG POINTER T4 OP NAAR GADOOR VOOR VOLGENDE INSTRUCTIE
614 NOP 615 616 617 618 619 620 621 622 623 624
LA
10,INSTR-764 10, W5 6,0 (10) 2(10),X'FF' 3 (1 0) ,X'FF I
DATA ADRES IN R10 BERG DATA OP IN INSTR TABEL SLUIT INSTR TABEL AF MET 'FFFF 1
BE PACK CVB AR STH LA
A
STH !'lVI MVI SR LA SLA
626 IM 627 628 629 630
*
25
634 BRAN 635 636
637
0 0 () 8 2 0 4 7 8 0 BB 2 6
000824 000828 00082C 000830 000834 000838 00083C
01EFB 00008
*
FDOS CL3-3 12/01/72
602 603 604 605 606 607 608 609 610 611 612
632 0007FO 0007F2 0007F6 0 0 () 7 FA 0007FC 000800 000804 000808 OOOBOC 000810 000814 000818 00081C
SOUR::E STATEMENr
638 639
61JO 641 642 643 644 645 646 647 648 649 MAAK 650 651 652 653
654
6, 0 (8) 4 1 1 (4)
6,6 6 1 8 (6) 6, 12
A
6,W5
STH
6, 0 (8)
B
PRTINSTR
BAL LH AR STH
3,CONST 2 ,INSW 6, 2
B
GADOOR+10
6, 0 [8)
CODE 'BR' INSTRUCTIE IN R6 CODE OP Z'N PLAATS INSTRUCTIE R6 BERG INSTRUCTIE OP IN INSTR TABEL VERWERK DATA VERTAALDE CONSTANTE IN R2 MAAK INSTRUCTIE BERG INSTRUCTIE OP NAAR GADOOR VOOR VOLGENDE INSTRUCTIE
VERTALING VAN SPRONG OPDRACHTEN SR IC SLA SR LA SLA CLI BE LA CLI BE LA CLI BE LA STH LA LA BAL B B
13
2, 2 2,=X'F0' 2, 8 6,6 6, 8 (6)
6,12 0(4),X'14' MAAK 2, 1 (2)
0(4),X'15' MAAK 2 , 1 (2)
0{4),X'17' MAAK 2. 1 {2)
2,0 (8) 8. 2 (8) 41 1 (4)
9,VORM FB1 GADOOR+4
CODE
1
BROC' INSTRUCTIE IN R2
CODE 'BRAM' INSTRUCTIE IN R6 CODE 'BBAN' INSTRUCTIE OP Z'N PLAATS 'BL' OF 'BM' ? CONDITIE CODE=O ZO JA NAAR .MAAK CONDITIE CODE=1 'BH' OF 'BP' ? ZO JA NAAR MAAK CONDITIE CODE=2 BNL? ZO JA NAAR MAAK CONDITIE CODE=3 BERG MACH INSTRUCTIE OP IN INSTR TAB HOOG POINTER INSTR TABEL OP HOOG POINTER T4 OP VORM INSTRUCTIE NAAR FB1 INDIEN NAAM ONBEKEND NAAR GADOOR VOOR VOLGENDE INSTRUCTIE
ASSEMBLER VOOR MICROCOMPUTER LOC
OBJECT CODE
ADDR1 ADDR2
PAGE STMT 656
000840 000842 000846 000848 00084C 000850 000856 00085A ooo85c 000860 000862 000866 00086A 00086E 000872 000876 000878 00087C 000880 000882 000886
1B22 4320 1A62 8B60 4144 F277 4FAO 1 A6 A 4068 1 B66 4166 8B60 4590 47FO 4188 1 B66 4166 8B60 1 A62 4068 47FO
CEFA
01EFC
0008 00008 0001 00001 BCE6 4008 OOCE8 00008 BCE6 OOCE8 0002
00002
0001 OOOC BA20 BAE8 0002
00001 ooooc OOA22 OOAEA 00002
0002 OOOC
00002 ooooc
0000 BA06
00000 OOA08
4144 8B60 4590 47FO 47FO
0001 OOOC BA20 BAE8 BAOA
00001 ooooc OOA22 OOAEA OOAOC
1 B6 6 4144 4590 47FO 41AO 5AAO 406A 58AO 1 B66 4166 1 B86 0660 8B60 4166 1A6A 4068 41AA 50!0 47FO
0001 BA20 BAE8 COF2 BFF6 0000 BFF6
00001 OOA22 OOAEA 010F4 OOFF8 00000 OOFF8
0002
00002
OOOC 0001
ooooc 00001
0000 0002 BFF6 BA06
00000 00002 OOFF8 OOA08
26
*
27
682 MC 683 684 685 686 688
0 0 0 8 9 .E 0008AO 0008!4 0008A8 0008AC 0008BO 0008B4 0008B8 0008BC 0008BE 0008C2 0008C4 0008C6 0008CA 0008CE 0008DO 0008D4 0008D8 0008DC
*
658 SCHUIF 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 680
00088A 00088E 000892 000896 00089A
SOURCE STATEMENT
*
B
LA SR LA SLA AR STH B
B B
690 LADRES 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708
2, 2
2,=X'C4' 6,2 6,8 4, 1 (4)
DOUBLE,8(8,4) 10, DOUBLE 6,10 6, 2 {8} 6,6 6,1{6} 6.~12
9,VORM FB1 8,2(8) 6,6 6, 2 (6)
6,12 6,2 6, 0 (8)
GA DOOR
BEPAAL DE JUISTE MACHINE CODE CODE OP Z'N PLAATS HOOG POINTER T4 OP ZET DATA 01."1 IN BINAIR GETAL VORI."' SCHUIF OPDRACHT BERG INSTRUCTIE OP CODE CODE MAAK NAAR HOOG
'LOAD 1 INSTRUCTIE IN R6 OP Z'N PLAATS INSTRUCTIE FB1 INDIEN NAAM ONEEKEND POINTER INSTR TABEL OP
CODE CODE HAAK BERG NAAR
•sTORE' INSTRUCTIE IN R6 OP Z'N PLAATS INSTRUCTIE INSTRUCTIE OP GADOOR VOOR VOLGENDE INSTRUCTIE
VERTALING VAN 4 BITS MACHINE-INSTRUCTIES LA SLA BAL
28
FDOS CL3-3 12j01j72
VERTALING VAN SCHUIF OPDRACHTEN SR IC AR SLA LA PACK CVB AR STH SR LA SLA BAL
4, 1 (4) 6, 12 9,VORM FB1 GADOOR+4
HOOG POINTER T4 OP ZET MACHINE CODE OP Z'N PLAATS VORM INSTRUCTIE NAAR FB1 INDIEN NAAM ONBEKEND NAAR GADOOR VOOR VOLGENDE INSTRUCTIE
VERTALING VAN DE 'LADR' INSTRUCTIE SR LA BAL B
LA A
STH L
SR LA SR BCTR SLA LA AR STH LA ST B
14
6,6 4,1(4) 9,VORM FB1 10, INSTR-764 10, W5 6,0 (10) 10, W5 6,6
HOOG POINTER T4 OP ZOEK ADRES DATA NAAR FB1 INDIEN NAAM ONEEREND INSTRUCTIE ADRES IN R10 BERG DATA ADRES OP INDIRECTE ADRES IN R10
6, 2 (6) 8.~6
6,0 6, 12 6, 1 (6) 6, 10
6,0(8) 10,2 (10) 10,W5 GADOOR
VERLAAG POINTER INSTR TABEL CODE LOAD INSTRUCTIE IN R6 CODE 'LOAD IN R6 INDIRECTE ADRESSERING MAAK INSTRUCTIE BERG INSTRUCTIE OP HOOG EIND ADRES PROG• OP EN BEWAAR DIT NAAR GADOOR VOOR VOLGENtE INSTRUCTIE
ASSEMBLER VOOR MICROCOMPUTER LOC
OBJECT CODE
ADDR1 ADDR2
PAGE SO URCE STATEMENT
STHT 710 •
0008EO OOOBE4 OOOBE6 0008EA 0008EC 0008FO 0008F4 0008F8 0008FC
000900 000904 000908 00090C 000910 000914 000918 00091C 000920 000924 00:>92A 00092E 000932 00:>9 36 000938 00093C 000940 000944 000948 00094C 000950 000954 000958 00095A 00095E 000962 000966 00096A 00096C 000970 000974 000978 00097A 00097E 000982
4144 1 B22 4320 1B62 8B60 4166 4590 47FO 47FO
953A 4780 953B 4780 953C 4780 41AO 95FF 4780 D500 4780 41AA 47FO 1 B6 6 4144 41AA 436A BB60 4590 47FO 4020 4144 1B66 436A 8B60 4590 47FO 1 B66 436A 4820 8B60 1 A62 4068 4144 47FO
0001
00001
CEFB
OlEFD
OOOC 0001 BA20 BAE8 BAOA
ooooc
4000 B984 4000 B992 4000 B9B6 C28D AOOO BAF2 AOOO 4000 B934 0004 B91A 0001 0001 0000 OOOC BA20 BAE8 BE8C 0008 0001 OOOC BA20 DAE8
00001 OOA22 OOAEA OOAOC
00000 00986 00000 00994 00000 009B8 0128F 00000 OOAF4 00000 00000 00936 00004 0091C 00001 00001 00000
ooooc
OOA22 OOAEA OOE8E 00008 00001
ooooc OOA22 OOAEA
0002 BE8C OOOC
ooooc
0000 0008 BA10
00000 00008 00A12
00002 OOE8E
000986 4530 BA54 OOA56 000981 D201 8000 BE8A 00000 OOE8C 000990 47FO BA10 OOA12
29
712 INDMC 713 714 715 716 717 718 719 720 722
*
724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758
ZETOM
760
*
30
B B
CLI BE CLI CLI BE LA CLI BE CLC BE LA B
VI
SR LA LA IC SLA BAL B
STH LA SR IC SLA BAL B
SR IC LH SLA AR STH LA B
31
762 IN5B 763 764
4, 1 (4)
2,2 2,=X'40' 6, 2 6,12 6, 1 (6)
9,VORH FB1 GADOOR+4
HOOG POINTER T4 OP BEPAAL DE JUISTE r'!ACHINE CODE CODE OP Z'N PLAATS PLUS 1 VCOR INDIRECTE ADRESSERING HAAK INSTRUCTIE NAAR FB1 INDIEN NAAM ONBEKEND NAAR GADOOR VOOR VOLGENDE INSTRUCTIE
VERTALING VAN DE OVERIGE INSTRUCTIES
BE VIND VIN
FDOS CL3-3 12/01/72
VERTALING VAN INSTRUCTIES VOOR INDIRECTE ADRESSERING LA SR IC SR SLA LA BAL
0(4),X'3A 1 IN58 0{4),X 1 3B 1 IN59 0(4),X'3C 1 IN60 10,T5 0(10),X 1 FF' FB2 0 ( 1 , 1 0) , 0 (4)
VI 10,4 (10) VIN 6,6 4,1{4) 10,1 (10) 6,0 {10) 6,12 9,VORM FB1 2,AD 4, 8 (4)
6,6 6,1{10) 6, 12 9,VORM FB1 6,6 6,2(10) 2,AD 6, 12 6,2 6, 0 {8) 4, 8 (4)
GADOOR+10
DC INSTRUCTIE? ZO JA NAAR IN58 DS INSTRUCTIE? ZO JA NAAR IN 59 CCW INSTRUCTIE? ZO JA NAAR IN60 POINTER T5 IN R10 EINDE T5? ZO JA DAN CODE ONBEKEND EN NAAR FE2 ZOEK CODE NAAR VI INDIEN GEVONDEN HOOG POINTER T5 OP ZOEK VERDER HOOG POINTER T4 OP HOOG POINTER T5 OP CODE VAN 1 LOAD' IN R6 ZET MACHINE CODE OP Z'N PLAATS VORM INSTRUCTIE NAAR FB1 INDIEN NAAM ONBEKEND BEWAAR ADRES IN AD HOOG POINTER T4 OP MACH CODE IN R6 ZET MACHINE CODE OP Z'N PLAATS VORM INSTRUCTIE NAAR FB1 INDIEN NAAM ONBEKEND CODE VAN 'STOR' IN R6 NAAl'l IN B2 ZET CODE OP Z'N PLAATS VOEG ADRES TOE BERG INSTRUCTIE OP HOOG POINTER T4 OP NAAR GADOOR VOOR VOLGENDE INSTRUCTIE
VERTALING VAN DE 'DC' INSTRUCTIE BAL MVC B
15
3,CONST 0 {2 ,8) ,INSW GADOOR+10
VERWERK CONSTANTE VERTAALDE CONSTANTE NAAR INSTR TABEL NAAR GADOOR VOOR VOLGENDE INSTRUCTIE
ASSEMBLER VOOR MICROCOKPUTER LOC
OBJECT CODE
ADDR1 ADDR2
000994 000998 00099E 0009A2 0009A8 0009AC 0009BO 000984
4144 F277 4FAO D20 1 4188 46AO 4144 47FO
0001 00001 BCE6 4000 OOCE8 00000 BCE6 OOCE8 8000 BFFA 00000 OOFFC 0002 00002 B9AO 009A2 0008 00008 8A14 OOA16
000988 0009 8C 0009C2 0009C6 0009CA 0009CE 0009D2 0009D6 0009DA 0009EO 0009E4 0009E8 0009EC 0009F2 0009F6 0009FA OOOAOO OOOA04
4144 F277 4F60 4144 8B60 4590 47FO 4144 F277 4FAO 42AO 4144 F277
00001 0001 8CE6 4000 OOCE8 00000 BCE6 OOCE8 0008 00008
OOOA08 OOOAOC OOilADE 000A12 000A16 OOOA1A 000 A1 E
4188 1A45 47FO 4188 95FF 4770 47FO
OOOA22 OOOA26 OOOA2A OOOA2E OOOA34 OOOA38 0001 JC OOOA40 OOOA42 OOOA46 OOOA48 OOJA4C OOJASO OOJA54
4FAO
42AO D20 1 4144 47FO
4130 95FF 4780 D507 4780 4133 47FO 1822 4823 1 A62 4068 4188 4199 07F9
oooc
ooooc
BA20 OOA22 BAE8 OOAEA 00008 0008 BCE6 4000 OOCE8 00000 BCE6 00CE8 BE8A OOE8C 0008 00008 BCE6 4000 00CE8 00000 BCE6 00CE8 BE8B OOE8D 8000 BE8A 00000 OOE8C 0008 00008 BA10 OOA12 0002
00002
BA14 0002 4000 B71C BB26
OOA16 00002 00000 0071E OOB28
01648 C646 3000 00000 OOA54 BA52 3000 4000 00000 00000 BA40 OOA42 OOOOA OOOA BA24 OOA26 0008
00008
0000 0002 0004
00000 00002 00004
PAGE STMT
SOURCE STATEMENr
FDOS CL3-3 12;01;72
766 32 IN59 767 * 768 769 770 ZERO 771 772 773 774
VERTALING VAN DE 'DS' INSTRUCTIE LA 4, 1 (4) HOOG POINTER T4 OP PACK DOUBLE,O (8,4) ZET AANTAL TE RESERVEREN WOORDEN CVB 10,DOUBLE OM IN BINAIRE CODE MVC ZET AANTAL GEVRAAGDE 0 (2,8) ,T1 LA 8,2 (8) HOOG POINTER INSTR TABEL OP 10,ZERO BCT HET GEHEUGEN LA 4, 8 (4) HOOG POINTER T4 OP B GADOOR+14 NAAR GADOOR VOOR VOLGENDE INSTRUCTIE
33 776 777 I* N60 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794
VERTALING VAN DE 'CCW' INSTRUCTIE LA 4, 1 (4) HOOG POINTER T4 OP PACK DOUBLE,0(8,4) ZET I/0 ADRES OM IN CVB 6,DOUBLE BINAIRE CODE LA 4,8(4) ZET I/0 ADRES OP Z'N PLAATS 6,12 ZET MACHINE CODE OP Z'N PLAATS SLA BAL 9,VORM VORM 1-STE WOORD B FB1 NAAR FB1 INDIEN NAAM ONBEKEND 4, 8 (4) HOOG POINTER T4 OP LA PACK DOUBLE, 0 (8, 4) ZET LENGTE DATA CVB 10,DOUBLE OM IN BINAIRE CODE 10, INSW STC LENGTE DATA NAAR INSW LA 4, 8 (4) HOOG POINTER T4 OP PACK DOUBLE, 0 {8, 4) ZET COM~ANDO OM IN 10,DOUBLE CVB BINAIRE CODE 10, INSW + 1 STC COMMANDO NAAR INSW 2-DE WOORD NAAR INSTR TABEL MVC 0 (2 ,8) ,INSW HOOG POINTER T4 OP LA 4, 8 {4) B GADOOR+10 NAAR GADOOR VOOR VOLGENDE INSTRUCTIE
34 AFSLUITING VAN DE VERTALING VAN DE BEHANDELDE INSTRUCTIE 796 797 * GADOOR LA 8, 2 (8} HOOG POINTER INSTR TABEL OP 4, 5 AR HOOG POINTER T4 OP 798 B 799 •+8 LA 8, 2 (8) HOOG POINTER INSTR TAB OP 800 801 EINDE T4? CLI 0(4),X'FF' VOLGENDE ENE ZO NEE NAAR VOLGENDE 802 B FD3 803 805 806 807 808 809 810 811 812 813 814 815 816 817 818 919 820
* 35 *VORM VOR
va
V
VORM: LA CLI BE CLC BE LA 8 SR LH AR STH LA Lh BR
16
ROUTINE VOOR HET MAKEN EN OPBERGEN VAN MACHINE-INSTRUCTIES 3,T3 POINTER LABEL TABEL IN R3 EINDE TABEL? 0{3),X'FF 1 V ZO JA NAAR V {NAAM ONBEKEND) NAAM GEVONDEN? 0(8,3),0(4) vo ZO JA NAAR VO 3,10(3) ZO NEE HOOG POINTER T 3 OP EN VOR ZOEK VERDER 2,2 2,8 (3) LABELADRES IN R2 VORM INSTRUCTIE 6,2 BERG INSTRUCTIE OP 6,0(8) HOOG POINTER INSTR TABEL OP 8,2(8) 9,4(9) HJJG TERU~KE8R ADRES OP 9 TERUG NAAR ADRES IN R9
ASSEMBLER V'OOR MICROCOMPUTER LOC
OBJECT CODE
A.DtR1 ADDR2
PAGE STMT
SOURCE STATEMENT 36
CONST:
CONST
SR SR SR CLI BE CLI BE PACK CVB B MVC PIVZ LA LA IC LA IC SLA AR LA BCT B MVC TR PlVZ LA LA IC LA IC SLA AR LA BCT STH LA BB
822 • 823 • 000156 OOOA58 OOOA5A 000 A5C OOOA60 000164 OOOA68 OOOA6C OOOA72 000 A76 OOOA 7A OOOA80 OOOA 86 OOOA8A OOOA8E OOOA92 OOOA96 OOOA9 A OOOA9E OOOAAO 000114 OOOAA8 OOOAAC OOOAB2 OOOAB8 OOOABE OOOAC2 OOOAC6 OOOACA OO()ACE OOOAD2 OOOAD6 OOOAD8 OOOADC OOOAEO OOOAE4 OOOAE8
1BAA 1 B99 1B22 95C2 4780 95E7 4780 F277 4FAO 4 7FO D207 D307 4122 4150 43A5 4155 4395 8BAO 1 AA 9 4155 4620 47FO D203 DC03 D303 4122 4150 43A5 4155 4395 8BAO 1AA9 4155 4620 40AO 4144 07F3
4001 00001 BA 78 OOA7A 4001 00001 BAAA OOAAC BCE6 4002 00CE8 00002 OOCE8 BCE6 BADE OOAEO BCF6 4002 OOCF8 00002 BCF6 BFFA 00CF8 OOFFC 0007 00007 BCF6 00CF8 00000 0000 0001 00001 0000 00000 0001 00001 0001 00001 BA94 OOA96 BADE OOAEO BFD1 4006 OOFD3 00006 BFD1 C1E5 OOFD3 011E7 BFD1 BFFA OOFD3 OOFFC 0003 00003 BFD1 OOFD3 0000 00000 0001 00001 0000 00000 0004 00004 0001 BACC BE8A OOOA
00001 OOACE OOE8C OOOOA
825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861
BI
BIN
HXDEC
HXDE
CON
17
FDOS CL3-3 12/01 ;7 2
ROUTINE VOOR HET VERTALEN VÄN CONSTANTES MET TYPE AANDUIDING 10, 10 9,9 2, 2 1 (4) ,C'B' BINAIRE CONSTANTE? BI ZO JA NAAR BI HEXADECIMALE CONSTANTE? 1(4),C'X' HXDEC ZO JA NAAR HXDEC DOUBLE,2(8,4) ZET GETAL OM 10, DOUBLE IN BINAIRE CODE CON BERG DATA OP IN GETAL GETAL {8), 2 (4) GETAL (8) , T1 MAAK ZONE'S NUL 2, 7 {2) MAXL-1 IN R2 5,GETAL DATA ADRES IN R5 1-STE BYTE IN R10 10,0(5) 5, 1 (5) HOOG POINTER GETAL OP 9, 0 (5) VOLGENDE BYTE IN R9 10,1 BINAIRE GETAL EEN NAAR LINKS 10,9 TEL VOLGENDE BYTE OP HOOG POINTER GETAL OP 5. 1 (5) 2, BIN R2=0? ZO NIET TEL VOLGENDE BYTE OP CON AREA2 (4), 6 (4) GETAL NAAR AREA2 AREA2(4) ,T7-193 AREA2(4),T1 HAAL ZONE'S WEG 2, 3 (2) MAXL-1 IN R2 5,AREA2 POINTER AREA2 IN R5 10,0(5) 1-STE BYTE IN R10 HOOG POINTER AREA2 OP 5, 1 (5) 9, 0 (5} VOLGENDE BYTE IN R9 10,4 ZET BYTE OP Z'N PLAATS 10,9 VORM GETAL 5, 1 (5) HOOG POINTER AREA2 OP 2, HXDE R2=0 ZO NIET NAAR HXDE 10, INSW BERG BIAIRE GETAL OP IN INSW 4,10(4) HOOG POINTER T4 OP TERUG NAAR ADRES IN R3 3
ASSEMBLER V OOR MICROCOMPUTER LOC
OBJECT CODE
ADDR 1 ADDR2
OOOAEA OOOAFO OOOAF4 OOOAFA OOOAFE OOOB04
D21B 47FO D21B 4 E70 F321 D300
BEP4 BAFB BEF4 BCE6 BF12 BF14
000818 OOOB1C 00()B20 OOOB24 OOOB28
92FF 5840 4144 47FO D21B
BD06 OOD08 BFEA OOFEC 0002 00002 BA06 00A08 BEF4 BE2A 00 EF6 OOE2C
OOOB3C 47FO BCD2
BDF2 00EF6 OODF4 OOAFA BEOE OOEF6 OOE10 OOCE8 BCEC OOF14 OOCEE BF12 OOF16 OOF14
00CD4
PAGE SOURCE STATEMENT
ST .MT 863 864
* *
866 867 868 869 870 871 872 879 880 881 882 883 884 891
FB1 FB2 FB
FB3
37
FB: MVC B MVC CVD UNPK MVZ CALL MVI L LA B MVC CALL B
18
FDOS CL3-3 12;01;72
ROUTINE VOOR HET UITPRINTEN VAN FOUTEN IN DE TWEEDE 'STAP' CARDAREA(28),NAAM FOUTMELDING NAAR CARDAREA FB CARDAREA(28),CODE FOUTMELDING NAAR CARDAREA 7 ,DOUBLE ZET STMT NUMMER OM CABDAREA+30(3),DOUBLE+6(2) IN BINAIRE CODE CARDAREA+32{1) ,CARDAREA+30 ZET ST~T NUK• NA MELDING PRINT I (AREA} PRINT FOUT MELDING FTNAAM,X'FF' FOUTWOORD FASE2 IS 1 FF' 4,W2 BEGIN ADRES INSTRUCTIE IN R4 4,2(4) HOOG POINTER T4 OP MET 2 GA DOOR NAAR GADOOR VOOR VOLGENLE INSTRUCTIE CABDAREA(28),EIO FOUTMELDING NAAR CARDAREA PRINT, (AREA} PRINT FOUT MELDING STOP
PAGE
ASSEMBLER VOOR MICROCOMPUTER LOC
OBJECT CODE
ADDR1 ADDR2
STMT 893
OOOB40 OOOB44 OOOB48 OOOB4C OOOB4E OOOB52 OOOB54 OOOB58 OOOB5C OOOB60 000864 000868 OOOB6C OOOB70 000 B74 OOOB78 OOOB7E 000B84 OOOB88 OOOB8E 000 B90 OOOB94 OODB96 00089A OOOB9E 0008AO 0008A2 0008A6 OOOBA8 OOOBAC OOOB80 OOOBB2 000 BB6 OOOBB8 OOOB8E OOOBC2 OOOBC8 OOOBCE OOOBD4 OOOBDA
4180 95FF 4780 1B22 4020 1B77 4130 4133 95FF 4780 4970 4770 4590 4177 4 E70 F321 0300 9240 D24E 18A 7 8 BAO 1B55 4155 8B50 1AA5 1B22 4122 1 8A2 49A3 4770 1 B66 4166 1 B36 D207 4133 D201 F342 DC03 D203 4188
C3EE BD06 BCD2 BE90
0 13FO 00008 00CD4 OOE92
C646 01648 0008 00008 8000 00000 BBEE OOBFO BE90 OOE92 BB6E OOB70 BC86 00C88 0001 00001 00CE8 BCE6 BEED BCEC OOEEF OOCEE BEEF BEED OOEF1 OOEEF BEF4 OOEF6 BE.F5 BEF4 OOEF7 OOEF6 0001
00001
0003 0008
00003 00008
0006
00006
0000 BBCO
00000 OOBC2
0008
00008
BEF4 0012 BFCE BFD1 BFD1 BE.FE 0002
3000 OOEF6 00000 00012 8000 OOFDO 00000 B.FCE OOFD3 OOFDO BEE6 OOFD3 OOEE8 BFD1 OOFOO OO.FD3 00002
OOOBEC 47FO BB5A
OOB5C
SOURCE STATEMENT
*
38
FDOS CL 3-3 12;0 1;7 2
PRTINSTR: ROUTINE VOOR HET UITPRINTEN VAN HET OBJECT
895 PRTINSTR LA CLI 896 BE 897 SR 898 STH 899 SR 900 901 LA LA 902 903 PRTINST CLI 904 BE CH 905 BNE 906 907 BAL LA 908 CVD 909 910 ONPK MVZ 911 912 MVI 913 MVC 914 LR 915 SLA 916 SR 917 LA 918 SLA AR 919 SR 920 921 LA 922 SR 923 CH 924 BNE 925 SR LA 926 927 SR MVC 928 92q LA flVC 930 PBTINS 931 UNPK 932 TR 933 MVC LA 934 935 CALL 942 B
19
PRO~RAMMA
8,INSTR POINTER INSTR TABEL IN RB FOUT IN FASE2 ? FTNAAl'l, X' FF' STOP ZO JA NAAR STOP 2, 2 2,BLZT MAAK BLZ• TELLER NUL 7,7 STMT TELLER=O IN R7 3,T3 POINTER LABEL TABEL IN T3 HOOG POINTER T3 OP 3. 8 ( 3) EINDE INSTR TABEL? 0(8),X'FF' PAPER ZO JA NAAR PAPER 7,BLZT NIEUWE BLADZIJDE? ZO NIET GA DOOR •+8 9,KOP2 ZO JA NAAR KOP2 7. 1 (7) HOOG STflT TELLER OP ?,DOUBLE ZET STMT NUMMER OM ABEA+15(3),DOUBLE+6(2) IN BINAIRE CODE EN ZET AREA+17(1) ,AREA+15 DIE IN CARtAREA CARDAREA, C' t MAAK CARDAREA CARDAREA+1 (79) ,CARDAREA LEEG 10,7 INSTRUCTIE NUMMER IN R10 10,1 LABEL ADRES IN R10 5, 5 5. 3 (5} 5,8 BEGIN ADRES PROGRAMMA IN R5 10,5 HOOG TELLER OP MET EEGIN ADRES 2, 2 2, 6 (2) 10,2 INSTR ADRES IN R10 10,0(3) VGL• INSTRUCTIE ADRES MET LABEL ADRES PRT INS INDIENONGELIJK NAAR PRTINS 6,6 INDIEN GELIJK VERLAAG 6, 8 (6) POINTER T3 MET 8 3,6 EN ZET GEVONDEN LABEL CARDAREA(8),0(3) IN CARDAREA 3,18(3} HOOG POINTER T3 OP HEX (2) ,0 (8) ZET INHOUD INSTRUCTIE AR.EA2 (5), HEX (3) TABEL OM IN HEXADEC CODE AREA2 ( 4) , T6- 240 EN BERG DIT CARDAREA+10(4),AREA2 OP IN CARtAREA 8, 2 (8) HOOG POINTER INSTR TAB OP PRINT, (AREA) PRINT INSTRUCTIE PRTINST NAAR PRTINSTR VOOR VOLGENDE INSTR•
PAGE
ASSEMBLER V OOR MICROCOMPUTER LOC
OBJECT CODE
ADDR1 ADDR2
95FF 4780 5870 4B70 ooocoo 4177 000C04 5070
BE7D BCD2 BFF6 CEF6 0008 C3EA
OOE7F 00CD4 00FF8 01EF8 00008 013EC
OOOC44 D203 C3E6 CEEE 013E8 01EFO OOOC5C 47FO BCD2
00CD4
PAPER:
946 PAPER 947 948 949 950 951 952 959 966 973 974 981
CLI BE L SH LA ST CALL CALL CALL MVC CALL B
983 OOOC60 000C66 OOOC6A OOOC70
0202 9240 D24E D224
BEED BCEE OOEEF OOCFO BEF4 OOEF6 BEF5 BEF4 OOEF7 OOEF6 BEF4 BFA9 OOEF6 OOFAB
00CB6 OOOC84 47FO BCB4 OOOC88 D21B BF55 BF71 OOF57 OOF73 OOCB6 OOOC9C 47FO BCB4 OOOCAO D21B BF55 BF8D OOF57 OOF8F OOOCC4 OOOCC6 OOOCCA OOOCCE OOOCD2
1B66 4166 0037 4A60 BE90 4060 BE90 07F9
00037 OOE92 OOE92
*
39
944 OOOBFO OOOBF4 OOOBF8 OOOBFC
SOORCE STATEMENr
STMT
985 986 987 988 989 996 997 998 1005 1006 1007 1014 1021 1022 1023 1024 1025 1026
*
40
KOP3
KOP2 KOP1 KOP
KOP: MVC MVI MVC MVC CALL B MVC CALL B MVC CALL CALL SR LA AH STH
ER STOP
EOJ
20
FDOS CL3-3 12;01;72
ROUTINE VOOR HET VERVAARDIGEN VAN DE PONSBAND CONTRW, X' FF• PONSBAND GEVRAAGD? STOP ZO NIET NAAR STOP 7,W5 EIND ADRES PROG IN R7 LENGTE PROGRAMMA IN R7 7,=H'768' 7,8 {7) LENGTE + CONTR BYTE'S IN R7 7,AANTAL1 NAAR AANTAL1 PBPCH, {STROOK,AANTAL2) PONS AANLOOP STROOK PBPCH, (INSTR,AANTAL1) PONS INSTR TABEL PBPCH, {STROOK,AANTAL2) PONS UITLOOP STROOK AANTAL2,=F'0' SLUIT DAT A AF PBPCH,(STROOK,AANTAL2) STOP ROUTINE VOOR HET UITPRINTEN VAN PAGINA TITELS AREA+15(3) ,LEEG CARDAREA,C' ' CARDAREA+1(79),CARDAREA CARDAREA(37) ,NASCO PRINT, (AREA) KOP AREA1(28),SLOC PRINT, (TITEL) KOP AREA 1 (28) ,SOURCE PRINT, {TITEL) PRINT, (IETS) 6,6 6,55 (6) 6,BLZT 6,BLZT 9
MAAK CARDAREA LEEG TITEL NAAR CARDAREA PRINT TITEL TITEL NAAR AREA1 TITEL NAAR AREA1 LEGE REGEL HOOG BLZ• TELLER OP EN BERG OP TERUG NAAR ADRES IN R9
PAGE
ASSEMBLER VOOR MICROCOMPUTER LOC OOOCD6 000CD7 OOOCDB 000CD9 OOOCDA OOOCDB OOOCDC OOOCEO OOOCEB OOOCFO OOOCFB 000000 000008 OOODOA OOODOC 000022 OOOD38 OOOD4E OOODSE OOOD6E OOOD7E OOODBE OOOD9E OOODAE OOODBE OOODCE OOODDE OOODF4 OOOE10 OOOE2e OOOE48 OOOE63 OOOE75 OOOE7E OOOE7F OOOE84 OOOE86 OOOE87 OOOEBB OOOEBA OOOEBC OOOE8E OOOE90 OOOE92 OOOE98 OOOEEO OOOEE2 OOOEF6 OOOF46 OOOF47 OOOF48 OOOF4A OOOF57 OOOF73 OOOFBF
OBJECT CODE
ADDR1 ADDR2
40 6B 40 5D 40
4040404040404040 FOFOPOFOPOFOFOFO 5C5C5C40C6D6E4E3 5e5e5C40C6D6E4E3 5C5C5C40C5D6E4E3 D3C5D5e7E3:56ED4 C4C5D3C9D4C9E3C5 D2D6D4E340C1D340 D6D5C2C5D2C5o5e4 e1C6E6C5E9:9C740 C7C5E3C1D340E2D6 D6D5C7C5D3C4C9C7 C2C9D5C1e9D9C540 D6D5C2C5D2:5D5C4 D6D5C2C5D2C5D5C4 e5o5e440E2E3C1E3 5e5C5C40E2E3E4E4 D5D6D7C1D7C5D940 E3C1C2C6e1E2C5F1 FF 0000000000 0001 !JO
0001 40 0000 0000 0064 40404040404040110 FF 00 0029 4040404040404040 E2E3D4E3404040D5 E2E3D4E3404040E2
STMT
SOURCE STATEMENT
FDOS CL3-3 12/01/72
c• ' c• ' c• , ' c. ( 1 c') '
1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078
DELIM BLANK KOMMA OPHA SLRA LSrKN AANTAL BEWAAR DOUBLE LEEG GETAL
oe DC INSW DS AD OS RT DC BLZT DC SAVEAREA OS AREA DC DC CARDAREA DS DC
H '1 ' X1 40'
1079 1080 1081 1082 1083
TITEL
H' 4 1'
ZN
FTNAAM FT LAB OPC OPR LEB DEL KAV ONB AFW GET ONG BINC SOORT PLAATS NAAM CODE EIO STKONB LIST CONTRW NUL TYPE IETS
AREA 1 SLOC SOURCE
DS oe DC DC DC DC DS
os os oe DS oe DS DS DC DC oe DC DC oe oe oe oe DC DC DS DS oe oe oe oe oe oe oe oe DC DC
os
De De DS DC DC
21
C'
'
F p D
se• •
2F ex • FO' 2X 2X C'*** FOUT IN LABEL: ' C'*** FOUT IN OP• CODE: 1 1 C'*** FOUT IN OPERAND: C'LENGTE>MAXL ***' C 1 DELIMITER ***' C'KOMT AL VOOR ***' C 1 0NBEKEND ***' C'AFWEZIG ***' C'GETAL SOORT ***' C1 0NGELDIG ***' C 1 BINAIRE CODE ***' CL16 CL22 C'ONBEKENDE NAAM IN STATEMENT:' C'ONBEKENDE CODE IN STATEMENT!' C'END STATEMENT ONTBREEKT C'*** STUURKAART ONBEKEND ***' X1 DSD6D7C1D7C5D94000D3C9E2E3C9D5C74001' X'E3C1C2C6C1E2C5F102' X' FF'
x•oooooooooo• H' 1 1
X1 40 1
x n H
u•o• H'O' 90 H'100' 20C' 1
aox
X'FF' 13e' ' 28X C'STMT C1 STMT
NAA~ OBJECT CODE' SOURCE STATEMENT
ASSEMBLER VOOR MICROCOMPUTER LOC OOOFAB OOOFDO OOOFD2 OOOFD3 OOOFD8 000 FES OOOFEC OOOFFO OOOFF4 OOOFF8 OOOFFC 00103C 001030 001049 00104A 001059 00105A 001067 001068 0010FC 001102 00111A 001132 00114A 001156 00116E 001186 00119E 0011B6 0011CE 0011DA 0011EC 0011FE 001204 00121C 001234 00124C 001264 00127C 00128E 00128F 0012A7 0012A8 0012AE 001207 0012E1 0012E7 0013E7 0013E8 0013EC 0013FO 001648 0018 AO 001EEO 001EEO
OBJECT CODE
ADDR1 ADDR2
D5C1C1D440404040 12 FOF1F2F3F4F5F6F7
0000000000000000 40 0000000000000000 4D 0000000000000000 5D 0000000000000000 6B 0000000000000000 404040404040 D34040400101E2E3 C1C4C4400501E2E4 C2D9D3400901D4D3 E2E3C9D60D01E2D9 D3C140404101E2EJ C1C4C4C14501E2E4 D4D3E3C14A01C9D5 C2D9D6C3F001C3D3 E2C8D340F401E2C8 E3C9D6401001E3C3 C2D440401402C2D7 C2D340401402C2C8 D3C1C4D95101 D4E540401:04E3D9 C1D340402102E240 C3D340402802D540 C2C1D3402C04C2C3 D5C940403404C9C3 C4C340403A01C4E2 FF 2001050222010602 FF FAFBFCFDFEFF 0000000000000000 POF1F2F3F4F5F6F7 000000000000 0000000000000000 00 00000100 00000000
00000000
PAGE STMT 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137
SOURCE STATEMENT NASCO HEX AREA2 T6 W1 W2 W3 W4 W5 Tl
T2
T5 T7
STROOK AANTAL2 AANTAL1 INSTR T3 T4
DC DS DC DS DC DS DS DS DS DS DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DC DS DS DS LTORG
22
FDOS CL3-3 12;01;72 C'NAAM
ADRES STMT
CODE
OPERAND'
H
X1 12' 5X C'0123456789ABCDEF' CL4 F F F
F 64X'00 1 X'40' 12X 1 00' X1 4D' 15X 1 00 1 x•5o• 13x•oo• X1 6B 1 148X 1 00' 6C' ' X'D34040400101E2E340400201C1D5C4400301C5E740400401' X'C1C4C4400501E2E4C2400601C3D4D7400701C2D940400801 1 X1 C2D9D3400901D4DJE3400A01C9D5C3400B01E2E3C3400C01 1 X1 E2E3C9D60D01E2D9C3400E01' X'D3C140404101E2E3C1404201C1D5C4C14301C5E7C1404401 1 X'C1C4C4C14501E2E4C2C14601C3D4D7C14701C2D9C1404801' X'D4D3E3C14A01C9D5C3C14E01E2E3C3C14C01E2D9C3C14E01 1 X'C2D9D6C3F001C3D3C940P101C5D5C440F201E6C1C9D6F301 1 X'E2C8D340F401E2C8D940F501E2C5D4C1F601C8C1C9D6F701' X 1 E3C9D6401001E3C3C8401101 1 X'C2D440401402C2D740401502C2E940401602' X'C2D340401402C2C840401502C2C540401602' X'D3C1C4D95101' X'D4E540401C04E3D940401D04E3D9E3401E03C14040402003 1 X1 C1D340402102E24040402203C34040402303D44040402403' X'C3D340402802D54040402903E74040402A03C5C440402B01 1 X'C2C1D3402C04C2C3E3402D02E2D340403003E2D940403103 1 X'D5C940403404C9C340403504E3D440403603C44040401F05 1 X'C4C340403A01C4E240403BOOC3C3E6403C02' X'FF 1 X'20010502220106022301070224010A02290103022A010402 1 X1 FF' X'FAFBFCFDFEFF' 41X 1 00' C'0123456789 1 6X'00' 256X 1 00 1
F'256' F'O' 150F 150F 400F =V{CARD)
PAGE
ASSEMBLER VOOR MICROCOMPUTER LOC 001EE4 001EE8 001EEC 001EFO 001EF4 001EF6 001EF8 001EFA 001EFB 001EFC 001EFD 000000
OBJECT CODE 00000000 00000000 00000000 00000000 0000 0003 0300 FF FO C4 40
At DR 1 ADDR2
STMT 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149
SOURCE STATEMENT
END
=V (PRINT) =V (NE WPAGE) =V (PBPCH) =F' 0' =H'O' =H'3' =H'768' =X'FF' =X' FO' =X'C4' =X'40' BEGIN
23
FDOS CL3-3 12/01;72
RELOeATION DieTIONARY P~S•ID
REL•ID
FLAGS
ADDRESS
01 01 01 01 01 01 01
01 01 01 01 01 01 01 01 01 01 01 01 01 01 )1 )1 :>1 01 01 01 01 01 01 01 01 01 01 01 01 02 03
oe oe oe oe oe oe oe
oooooc 000040 000044 000084 OOOOEO 00011e
)1
01 )1
)1 )1 )1
01 )1
)1 )1 ll
01 :>1 J1 01 )1 01 )1 01 )1 )1
01 01 01 )1 01
04
05
o: o:: o:: o: o:: o: o: o: oe o:
o: oe oe
o::
o:
o: o: o: o: o: o: o: 1:: 1: 1: 1:
0005~0
000564 00057~
000588 0005:8 0005EC 0006Ae 0005FO 000814 OOOB39 0008E8 000e14 OOOe18 OOOC28 000:2:: 000:3: OOCie~O
000:54 OOOe58 000::30 000C98 OOOC80 ooo:::o 001EEO 001EE~
001EEB 001EEe
PAGE
1
12;01;72
:1JSS-RI!!FeRI!!tCE SI!BOL
LES
l AA.jrAC. AltHALl AAlllAC.2
00004 00004 )0004 00004 )0002 000:>4 00004 00)15 00002
lD
1\o:Js AF AFi AR~A
V~LUE
DEFN
0))422 Oll:o: J)13BC 0)13E8 OlJE3E OJJOJ: OJJ38E 0))03B OOOEEO
00333 01036 01132 01131 01071 00008 00282 01051 01075
00001 00001 00004 JOOJ2 00002 00002 BEIIG~P 00004 BEilAAR 00004 BI 00006 Bil 00004 )0)15 Bil: 00001 ar.' ~B: Bt.!IKS 00004 BLZr 00002 BRUl 00002 CARDAREA 00001
OOJF57 OJJFD3 0JJ2BE 0))448 000000 00l42A Ol03F2 OOOCEO OJJA7A 0001\96 OlJDBE 0)):::07 OJJ3Dil 0)JE92 0007FO OJJ EF6
01081 01087 00225 00348 OOOO!.l 00339 00 319 01037 00835 008!.l1 01054 01031 00309 01073 00634 01077
CCW CODE CON CON ST CONTR CONTRi DEC DEFCO OEFCON DEL DELIM DOUBLE
00006 00028 00004 00002 00002 00005 00004 00002 00006 00016 00001 00008
00033E 000 E10 OOOAEO OOOA56 000166 OOOE7F 000 4BO 00049C 000466 DOODSE 000 CD6 000CE8
00256 01058 00859 00825 00117 01064 00383 00374 00361 01048 01030 01038
os
00002 00028 00004 00006 00002 00006 00006 00006 00006 00006 00006 00004 00004 00006
000 312 OOOE2C 00051E 0004C6 000400 0004EO 0004EA 0004F4 000504 00050E 000518 00059C 000 AFA OOOAEA
00 21+0 01059 00411 00393 00395 00399 00401 00403 00406 00408 00410 00452 00869 00866
A!Bl1 AR:!l2 ASSE!t B BE3IN BER:;Er
EIO FA FA1 FA2 FA3 FA4 FA5 FA6 Fll7 FAB FA9 FB FB1
PAGE
REFERENCES
12/01;72
0326 0951 0958 0744 0006 0205 0399 OO!.l1 0911 0997 0505 0165 0342 1149 0378 0110 0829 0845 O!J :>3 0104 0127 0029 0584 0027 0498 0871 0226 0868 0834 0626 0114 0061 0199 0366 0216 0397 0104 0089 0786 0229 0883 0394 0303 0299 0130 0135 0155 0118 0373 0291 0056 0867 0653
0965 )972 0753
H73
)93)
J213
)217
)221
)235
)252
0273
0:>48
())~)
00~1
))91
0098
0416
0434
0468
0533
0542
0878
039)
09~1
0995
)995
1006 )505
)))7
)5H
)52)
0521
0847
0848
08!.l9
0851
0931
0932
0333
)397 0132
0182
0185
0195
0212
0265
0171 J153 0478
0186 ) 313 0493
0203
0209
0227
0269
0899
0905
1023
1024
0033 0498 0871
0052 0501 0883
0057 0507 0912
0100 0517 0913
0424 0521 0913
0425 0525 0928
0425 0526 0933
0426 0526 0986
0427 0540 0987
0452 0541 0987
0453 0541 0988
0475 0220 0369 0235
0538 0243 0372
0946 0260
0268
0272
0160 0090 0789
0171 0245 0790
0186 0246 0832
0192 0524 0833
0196 0525 0869
0203 0607 0870
0206 0608 0909
0209 0663 0910
0227 0664
0256 0768
0269 0769
0398
0400
0402
0405
0407
0409
0181
0184
0194
0211
0264
0311
0377
0384
0396
0170
0176
0693
0719
0743
0750
0783
:>91)
) 3 11
0453 0866
0454 0868
0497 0870
0298 0778
0779
0785
0846 0762
0386 0671
1
0685
PAGe
CRDSS-HEFERENCE SHIBOL
LEN
FB2 FB3 FT FTNAAM GA DOOR GEEN OP GET GETAL HEX fUDE HXDEC I IETS II IM IND!!C r N5 r I!f5TR [ N5 r RK [N5il IN58
00006 00006 00001 00001 00004 00006 00016 00004 00002 00004 00006 00002 00002 00002 00004 00004 00004 00004 00004 )00:>2 00004 :>00:>4 00004 )0)15 000)2 00001 00004 JOOJ5 00006 00006 00022 :>0002 00001 )0)15 00018 000()4 00001 00004 00004 00001 00028 00037 00004 :>0002 00016 00015 )0022 00001 00022 00004 00004 00022 00004 00004 00006
[N)~
I!f5J !i: A~ H.Hdl
KOMMA { )?
KDP1 ~Jt»2
KOP3 ~AB
LADRES
:.Ee:; LE:!l Lr 5 r :.JP.D tsrKN ~AA {
M: '!I:PRJ:; JA\! NA.5:0 !fJ?
NOL JNB ~~;
)J?: ::>PlA )Pl
our PAPER PLAATS PRT PRTAB34 PRTINS
VALUE
DEFN
OOOAF4 OOOB28 OOODOA 000 008 OOOA08 000380 OOOD9E OOOCF8 000 FDO OOOACE OJJAAC 0002EO OJOE88 000202 OJJ7DE 0008EO O:>:>JEC Ol13FO OJJ:>:6 0)) EB C 0))986 0))994 0))9B8 0)) D5 E 0))308 OJJCD8 o:>:>:B6 O))CAO 0:>:>:88 0J)C60
00868 00883 01043 01042 00797 00277 01052 01040 01085 00854 00847 00218 01068 00214 00626 00712 00083 01133 00070 01070 00762 00767 00777 0101J9 00305 01032 01017 01006 00997 00985 01044 00690 01039 01047 01061 00006 01035 00649 00682 00003 01057 01084 00614 01065 01050 01053 01045 01033 01046 00011 00946 01056 00509 00474 00930
o:>ooo:
0))99E
OJJ:FO 0))04E 0J)E63 OJJOJ2 OJJCDB 00 J 82 8 0))8BA 000000 OJ:>DF4 O))FAB OOJ7B4 0)) EB 4 OOOD7E OJ:>DAE 0))022 OO:>CD9
OJJD3B 0)))10 OJOBFO DOODDE 000652 000500 000 BC2
12;01;72
REPERENCES 0590 0803 0013 0556 0612 0152 0408 0835 0504 0858 0831 0175 0423 0173 0604 0594 0071 0557 0)53 0627 07 25 0727 0729 0406 0301 0150 0995 0037 0907 0495 0105 0596 OJ!.J1 0393 0)54 0005 0297 0541 0580 0955 0988 0505 OOBJ 0401 0410 0125 0192 0149 0007 0904 0105 0500 0027 0924
0732 0411 0879 0630
0547 0896 0654
0678
0686
0708
0836 0505
0838 0518
0519
0930
0931
0190 0441 0191
0461
1020
0073 0614
0694
0895
0965
0763
0787
0791
0792
0859
02)5 1))5 0083
)255
)277
)3 2~
:>415
)447
)542
0008 0298 0544
)i
)435
)555
0404
0426
47
0404
0126
2
0149
0720
:>985
0758
0764
0774
0794
0882
PAGE
CROSS-REFERE~JCE
SY.MBOL PRTINST PRTINSTR READ RT s SAVEAREA SCHUIF SL SLHA sr.oc SOORT SOURCE ss SSL sss STK:>NB STOP STROOK STO STUD STUUR TI rEL rYPE r1 r2
LEN
00004 00004 00004 00002 00006 00008 00002 00006 00001 00028 00016 00028 00004 00006 00004 00027 00002 00001 00004 00004 00004 00002 00001 )0031 00001 )0034 rJ r!.J OOOOIJ r5 00024 rs 00:>15 r7 00006 'I 00002 )0004 VE~r V lB rAAi:. JOOJ!.J narB 00004 VGr.1 00006 V:iL2 00004 VI 00002 VIN 00004 VIND 00004 vo 00004 VOLGENDE 00002 VOR 00004 00004 VORM VUL 00004 W1 00004 00004 W2 00004 W3 W4 00004 W5 00004 ZBL 00006 00006 ZERO ZETO.M 00004 ZN 00001
VALUE
DEFN
OOOB5C OOOB40 000036 OOOE90 0002BC OOOE98 000840 000274 OOOCDA OOOF73 OOODCE OOOF8F 00024E 0002AE 000242 OOOE48 OOOCD4 0:> 1 2E7 OOOOB2 000098 oooo8c OOOF48 OJJE87 0))FI!': OJ10F: ))1548
00903 00895 00024 01072 00209 01074 00658 00192 01034 01082 01055 01083 00183 00206 00180 01060 01028 01 130 00061 00055 00052 01079 01067 01094 01103 01134 01135 011211 01088 01126 00820 00289 00538 00293 00113 00133 00737 00731 00730 00815 00571 00808 00807 00493 01089 01090 01091 01092 01093 00126 00770 00724 01041
0)18~0
0J128F 0))FD8 0)12A8 O:>JA54 0)J39E 0))564 OJJ3AC 0):>154 OJJ19A 00:>936 00091C 000918 000 A42 00071E OOOA26 OOOA22 00060A OOOFE8 OOOFEC 000 FFO OOOFF4 OOOFF8 000 17C 0009A2 000900 OOODOO
HEFERENCES 0942 0624 0049 0030 0157 0011 0588 0159 0196 0997 0393 1006 0164 0202 0162 0454 0469 0958 0058 0060 0034 1004 0296 0:>99 0016 0018 0730 0506 0349 0809 0106 0476 0201J 0115 0137 0734 0736 0811 0802 0813 0652 0534 0131 0574 0017 0019 0474 0107 0772 0582 0345
12/01/72
0066 0038 0168
0285 0040 0188
0450 0081
0082
0085
0087
0413
0415
0397
0399
0401
0403
0406
0408
0410
0427
0539 0972
0548 0980
0891
0897
0947
0981
0770
0836
0849
0112 0492
04 91 0566
0807
:> 9 01
0520
0932
0129 0510 )207
0180
0183
0193
0210
0263
:>375
)393
0670
0684
0692
0718
0742
0749
0782
0136 0880 0108 0138 0615
0122 0282 0622
0487 0284 0695
0543 0442 0697
0449 0707
0489 0948
0544
0586
0592
0598
1013
NO STATEMENTS FLAGGED IN THIS ASSEMBLY
3
JOB
ASSEMELI
ACl" ION TAKEN
LIST LIST LIST LIST LIST LIST
12/01/72
MAP INCLUDE DSLPRCRD INCLUDE DSLPlUNT INCLUDE DSLPROGG INCLUDE DSLPDIIO AUT OLIHK PBPCH ENT RI
DISK LINKAGE EDITOR DIAGNOSTIC OF INPUT
12/01/12
PHASE
XFR-AD
LOCORE
HICORE
DSK-AD
ESD TYPE
LABE.L
LOADED
REL-FR
PH ASE***
003840
002800
005CCF
6E 04 2
CSECT ENTRY
DSLPRCRD CARD
002800 002800
002800
CSECT
DSLPROGG
003318
003318
CSECT
DSLPDIIO
003558
003558
CSE CT ENrRY EN TRY ENTRY ENTRY * ENrRY
DSLPRINT LINE NBWPAGE PRINT PRINTHEX PRINrER
002068 0031AO 002F80 002068 002EA8 003098
002068
C5E:r
tHCPRO:;
003640
003840
CSE CT
PBPCH
005740
005740
*
Voorb~Lcl
'1..
12 J! N '72 PA:;E 1 STHr
SJURCE STATEMENT
J01 002 l03
resrPROG L ST LA 81 AND EX LAB2 ADD SUB LAB3 CMP BR LAB4 BRL HLT L!.BS INC sr: NUH1 S'l'IO SRC NJM2 BL Bl'i BH BP BE NJ M3 BZ A NUM4 s
OO!J
005 J05 J07 008 J03 010 011 012 013 J14 J15 016 J17 018 )13 020 )21 022 J23 024 J25 026 027 029 J 23 030 031 J32 J33 034 J35 036 037 038 039 J4) 041 J42 043 044 045 046 047 J43 049 J5J 051 052
c
RUI"'5 NUM6 PC.1 PC.2 PL3
M N
x
SL SR DC DC
o:
DS CCil LA STA ANDA EXA ADDA SUBA Cl'! PA BRA MLrA INCA STCA SRCA LADR BROC BROC BRDC RIDC CLI CLI
PC.l PL2 NUM1 NUM2 NU M3 NUM4 NUMS LAB1 LAB2 NUM6 BYTEl BYTE2 PL3 DEL LAB3 LAB2 LII.B4 LAB1 LABS LAB3 NUM1,NU~2
NIJM1,NJ!!3 NUl'!1, tHJ,4 NHI1, NJ!'I5 NUM1,NU~6
N!JPl2, NJ!I3 NUM2,4 NIJM2,5 P124 B1J11 X12AB 4 3,PL3,5,2 PL1 PC.2 NU Ml NUM2 NUM3 NO M4 NUMS LAB1 NUM6 BYTE1 BYTE2 DEL PL1 0
1 2 3 P3 B 1111
12 JA-N '72 PACiE 2 STIH
S:l UR::E STATEMENr
)53 0 514 )55 056
DEL
J57
arrE2
058
BY rE1
ilAI:l SHL SHR SEMA HAIJ END
3 ij
5 5 3
DEL
12 NAAI'! TESTPROG LAD1 L~B2
LAB3 LA B4 LABS NUM1 NUM2 NUM3 NUM4 NUMS NUM6 PL 1 PL2 PL3 DEL BYTE1 BYTE2
ADRES STMT 300 304 3JB 30C: 310 314 3 18 31C 32C 33A 346 352 364 366 353 39C 3AO 3A4
001 002 033 004 005 006 007 008 009 010 011 012 013 014 015 015 017 J13 019 020 021 022 )23 024 )25 026 )27 028 02) 030 031 032 033 034 035 036 037 )39 039 04) 041 )42 043 )44 045 )!J5 047 J43 049 ()5)
051 )52 053 )5!J 055
CODE
OPE!RäND
01 02 J3 04 05 06 07 08 09 OA OB
PL1 PL2 NO M1
oe
OD OE 1 [J 1 [J 15 15 16 16 20 22 23 24 29 2A 3) 31 3A 3A 3A 3D 3C: 41 !J2 43 44 ~5
46 47 48 ~A
4D 4C 4E 51 FO FO FO FO F1 F1 F3 F4 FS
NU~2
NlH13 NUM4 NUtv.!S LAB1 LAB2 NUM6 BYTE1 BYrE2 PL3 DEL LAB3 LAB2 LAB4 LAB1 LABS LAB3 NiH11 ~H12 NU!!1 NUM3 NH11 NJ1'!4 NUM1 NUM5 NtJM1 ~JM6 NUM2 NUMJ NiJM2 000000)4 NUM2 00000005 P0)0)J124 80)))1)11 X000012\B )))J)O)~
00000003PL3 PL1 PL2 gu1'!1 NJM2 NJM3 NUI'l4 NJI'l5 LAB1 lf[JI'l5 BYTE:1 BYrE2 DE:L PL1 00000000 )())))0)1 00000002 OJJJJOJ3 POOOOOOOB 8))))1111 00000003 0))J)J)4 00000005
OJOOJ005JOJOOJJ2
J\~
'72 PA:;E 3
12 J\N NAAM
ADRES
sr,r J55 057
os a
:oot:
JI?E:R\ND
F5
JJJOJOJ5
F7 F2
00000003
1
72 PAGE 4
12
s r l!r 001 )()2 ()()3 0 0 !J 005 006 ()()7 008 009 :>1:> 011 012 :>13 01!J 015 ()16 017 018 :>13 020 J21 022 )23 :>24 025 026 )27 028 )29 030 031 ()32 033 034 035 )35 037 J 39 039 )4) 041 )42 043 )44 045 J!J5 047 J!J3 049 )5) 051 J52 053 ()5!J 055
NAAM
rESrPROG LAB1 LAB2 Lä.B3 LA B4 LABS NUM1 NOM2
NOM3
NJM4
NJM5
NJM6
PL1 PL2 PL3
JBJECr :JOE O:>FF 0300 13511 2366 3319 !J31: 532C 633A 7345 8304 9303 A352 B3AO :3A!J D363 E39C FOOO 830C FOOO 8308 F001 8310 F001 8304 F003 8314 F003 830: 1318 531C 2318 1318 632C 2318 1318 733A 2313 1318 A3!J5 2318 1 31 8 3352 2318 131: 1132: 231C 131C F404 231:: 131C F5()5 231: 0:>7: OOOB 12AB
J~N
1
72 PA:;E 5
12
s r!!r
NAAM
J55 057
0000 OOOJ 0000 0000 3368 0502 1365 2367 3319
J53
059 J5J 061 J62 063 J54 065 )65 067
~310
J53
069 J7) 071 072 073 071& 075 075 077
:na
079
JBJ 081
DEL
JB2
083
BYTEl
()84
085 lB5 087 JBil
OBJECr CODE
BITF.:2
532D 633B 7347 8305 A353 B3A 1 C3A5 E39D 13A9 FOOJ F001 F002 FOOJ F103 FlOP F303 F404 F505 F606 F703 83AA 035~
F200
J !~
1
72 PAGE 5
EJJ
ASSE~BI.ï
V0
Ot
b4...Q....LcL
2.
12 JAN '72 PAGE 1 STMr
001 002 003 004 005 006 007 008 009 010 011 012 013 014 015 016 017 018 019 020 021 022 023 024 025 026 027 028
SOURCE STATEMENT
* * * *
TEST PROGRAMMA 1 EEPAALD WORDT DE SOM VAN N GETALLEN, DIE OP OPEEN VOLGENDE PLAATSEN IN HET GEHEUGEN STAAN• HET EERSTE GETAL GEEFT AAN HOE GROOT N IS• TEST1 lADE tATA AtRES tATA IN ACC• ST INtEX BE~AAR DATA ADRES CF INtEX LA INtEX HOEVEELHElt OP TE TELLE~ ST AANTAL GETALlEN NAAR AANTAL A !AfiTAL,EEN HCOG AANTAL OP MET EEN HCCGCF A TELLER,EEN HOOG TELLER OP~ET EEN A INtEX,TWEE HCCG POINTER DATA OP L SOM SOM IN ACC• ADDA INDEX TEL GETAL OP ST SOM BERG SOM CF C TEILER,AANTAL EINDE tATA? EL HOOGOP ZO NIET NAAR HCCGCF STIC fBTSOM PRINT SOM ER KLAAR SOM DC PO TELLER DC PO AANTAL DS 1 INDEX DS 1 EEN DC P1 TWEE tC P2 PRTSCM CCW O,SOM,1,17 tATA te PS DC P1 DC P2 DC P3 DC P4 DC PS KLAAR END
12 JAN NAAM TEST1 HOOGOP SOf! TELLEB AA lii'IAL INtEX EEN TWEE PRTSOM tATA RL AAB
A:tRES STMT JOO 001 JOE 002 J2E 003 330 004 J32 005 334 006 J36 007 3J8 008 3JA 009 33E 010 34A 011 012 013 014 015 016 017 018 019 020 021 022 023 024 025 026 027 028
CODE
OPERAND
51 02 41 02 20 2C 20 01 45 02 23 14 O:t
DATA INDEX INDEX AANTAL AANTAL .EEN TELLER EEN TWEE INDEX SOM INDEX SOM TELLER AANTAL HOOG OP PBTSOM KLAAR POOOOOOOO POOOOOOOO 00000001 00000001 POOOOOOO 1 P00000002 OOOOOOOOSOM P00000005 POOOOOOO 1 P00000002 P00000003 P00000004 P00000005
oe
JA JA JB JB 3A 3A 3C 3A JA JA 3A 3A 3A F2
0000000100000017
t
72 PAGE 2
12 JAN '72 PAGE 3 STaf 001 002 003 004 005 006 007 008 009 010 0 11 012 013 014 015 016 017 018 019 020 021 022 023 024 025 026 027 028 029 030 031 032 033 034 035 036 037 038 039 040 041 042
NAAM
TEST1
HOOG OP
SOM TELLER AANTAL INDEX EEN TWEE PRTSOM DATA
KLAAR
OBJECT CODE OOFF 0300 134D 2334 1335 2332 1332 5336 2332 1330 5336 2330 1334 5338 2334 132E 5335 232E 1330 7332 2330 FOOO 830E D33A 834A 0000 0000 0000 0000 0001 0002 032E 0111 0005 0001 0002 0003 0004 0005 834E 033E F200
DJ ASSEMBLY
408
10•51•42,DURATION 00•04•25
