10B7 0 8050 00209 DC JMS 10B8 0 1479 00210 DC CHCK 10B9 0 8050 00211 DC JMS 10BA 0 110A 00212 DC LDLMP 10BB 0 8040 00213 T5 DC JU RETOUR A ANALYSE 10BC 0 101D 00214 DC SCAN 00215 *SOUS-PROGRAMME D'EXTRACTION 8 JUIN 1973 PAGE 7 02/20/75 00216 *REGISTRES OX, BX,AX, CX, EX SONT UTILISES 00217 *SOUS-PROGRAMME INITIALISE REGISTRES 8X, AX, CX, EX, 00218 *BX INITIALIS. ADRESSE DE REGISTRE "NOMBRE POSITIONNEMENT MACHINE" 00219 *AX INITIALIS. ADRESSE DIFFERENTS REGISTRES 00220 *CX ADRESSE DE MOT POUR CHARGEMENT LAMPE 00221 *MOT E POUR CHARG. LAMPE, COMPT. F POUR BOUCLE DANS SOUS-PROGR.ADDITION 10BD 0 80B1 00222 FETCH DC XCH+1 ACCUMULATEUR CONTIENT ADRESSE (0-6) 10BE 0 80DD 00223 DC LDM+/D 10BF 0 80BO 00224 DC XCH+O OX A DX 1000 0 803A 00225 DC FIN+/A AX INITIALISE 1001 0 8060 00226 DC INC+O OXA EX 1002 0 8030 00227 DC FIN+/C OX INITIALISE 1003 0 8060 00228 DC INC+O OX A FX 1004 0 803E 00229 DC FIN+/E EX INITIALISE 1005 0 8028 00230 DC FIM+B 8X INITIALISE 1006 0 8030 00231 DC /3C 1007 0 8000 00232 DC BBL+O 00233 *SOUS-PROGRAMME CONSULTATION TABLE 8 JUIN 1973 1008 0 00234 DRG /LOC9 1009 0 1276 00235 DC TT1 T1 ADP C9 100A 0 1223 00236 DC COUNT COMPTAGE ENVOIS CA 100B 0 1201 00237 DC ONE NOMBRE 1 CB 100C 0 1202 00238 DC TWO NOMBRE 2 CC 100D 0 1203 00239 DC THREE NOMBRE 3 CD 100E 0 1226 00240 DC CNTRL SOMME DE CONTROLE CE 100F 0 0000 00241 DC /00 CF 00242 * 10D0 0 0000 00243 DC /00 D0 10D1 0 002A 00244 DC /2A COMPTAGE LOTS D1 10D2 0 001A 00245 DC /1A SOMME DE LOTS D2 10D3 0 0010 00246 DC /10 COMPTAGES D'ENVOIS D3 10D4 0 0000 00247 DC /00 REGISTRE DESCENDANT D4 10D5 0 0006 00248 DC /06 REGISTRE ASCENDANT D5 10D6 0 0020 00249 DC /20 SOMME DE CONTROLE D6 00250 *ADRESSES INITIALES DES REGISTRES AX 00251 * 10D7 0 0000 00252 DC /00 D7 10D8 0 0000 00253 DC /00 D8 PAGE 8 02/20/75 10D9 0 1273 00254 DC TT2 T2 SUBP D9 10DA 0 1222 00255 DC BSUM SOMME DE LOTS DA 10DB 0 1204 00256 DC FOUR NOMBRE 4 DB 10DC 0 1205 00257 DC FIVE NOMBRE 5 DC 10DD 0 1206 00258 DC SIX NOMBRE 6 DD 10DE 0 1225 00259 DC ASC REGISTRE ASCENDANT DE 10DF 0 0000 00260 DC /00 DF 00261 * 10E0 0 0000 00262 DC /00 E0 10E1 0 008E 00263 DC /8E COMPTAGE LOTS E1 10E2 0 008E 00264 DC /8E SOMME DE LOTS E2 10E3 0 008F 00265 DC /8F COMPTAGE ENVOIS E3 10E4 0 008F 00266 DC /8F REGISTRE DESCENDANT E4 10E5 0 008F 00267 DC /8F REGISTRE ASCENDANT E5 10E6 0 008E 00268 DC /8E SOMME DE CONTROLE E6 00269 *SELECTION MOT POUR CHARG. ZONE DE LAMPE CX 00270 * 10E7 0 8040 00271 CWN3 DC JUN E7 10E8 0 115A 00272 DC DOWN E8 10E9 0 1279 00273 DC KEY3 E9 10EA 0 1221 00274 DC BCNT COMPTAGE LOTS EA 10EB 0 1207 00275 DC SEVEN NOMBRE 7 EB 10EC 0 1208 00276 DC EIGHT NOMBRE 8 EC 10ED 0 1209 00277 DC NINE NOMBRE 9 ED 10EE 0 1224 00278 DC DESC REGISTRE DESCHNDANT EE 10EF 0 0000 00279 DC /00 EF 00280 * 10F0 0 0000 00281 DC /00 F0 10F1 0 0040 00282 DC /4C COMPTAGE DE LOTS F1 10F2 0 008A 00283 DC /8A SOMME DE LOTS F2 10F3 0 0029 00284 DC /29 COMPTAGE D'ENVOIS F3 10F4 0 004A 00285 DC /4A REGISTRE DESCENDANT F4 10F5 0 00B6 00286 DC /86 REGISTRE ASCENDANT F5 10F6 0 0026 00287 DC /26 SOMME DE CONTROLE F6 00288 *MOT POUR CHARG.LAMPE, COMPTEUR E, F 00289 * 10F7 0 0000 00290 DC /00 F7 10F8 0 0000 00291 DC /00 PAGE 9 02/20/75 10F9 0 127B 00292 DC TT4 S3 FA 10FA 0 123D 00293 DC CLEAR EFFACEMENT FB 10FB 0 1266 00294 DC UNLCK DEVERROUILLAGE FC 10FC 0 1200 00295 DC ZERO NOMBRE 0 FD 10FD 0 0000 00296 DC /00 FE 10FE 0 127E 00297 DC PLUS += FF 10FF 0 12C8 00298 DC SET SET 1100 00299 ORG /1100 00300 *********************** 00301 * ROM = 1 ************* 00302 *********************** 00303 *SOUS-PROGRAMME AUTORISATION MACHINE 8 JUIN 1973 00304 *REGISTRES AX UTILISES 1100 0 8050 00305 ENBLE DC JMS COMPARAISON AVEC CONTENUS REGISTRE 1101 0 1450 00306 DC CMPAR MISE EN PLACE MACHINE SUIVANT REG. DESC.