1102 0 801A 00307 DC JCN+C2 1103 0 1109 00308 DC Z11 SAUT SI TROP GRAND C = 0 1104 0 8004 00309 DC LDM+4 1105 0 802A 00310 DC FIM + /A SI OUI, CHARG. BIT POUR AUTORISER MACHINE 1106 0 008D 00311 DC /8D POSITION DANS MOT SORTIE 1107 0 802B 00312 DC SRC + /A 1108 0 80EO 00313 DC WRM 1109 0 80CO 00314 Z11 DC BBL + 0 00315 *SOUS-PROGRAMME CHARG.LAMPES 8 JUIN 1973 00316 *REGIST RES AX, CX, F UTILISES 110A 0 802C 00317 LDLMP DC FIM + /C PREMIERE ADRESSE DANS MEMOIRE LAMPE 110B 0 008B 00318 DC /8B POSITION 110C 0 802D 00319 RIN DC SRC + /C MISE EN PLACE ADRESSE INITIALE 110D 0 80E9 00320 DC RDM LECTURE MOT 110E 0 80BF 00321 DC XCH + /F MEMORISATION MOMENTANEE 110F 0 8050 00322 DC JMS 1110 0 1114 00323 DC DUTPT 1111 0 807D 00324 DC ISZ + /D 1112 0 110C 00325 DC RTN 1113 0 80CO 00326 DC BBL + 0 1114 0 802A 00327 CUTPT DC FIM + /A MISE EN PLACE BOUCLE COMPTAGE 1115 0 000C 00328 DC /OC 1116 0 80BF 00329 GUT DC XCH + /F RAPPEL MOT PAGE 10 02/20/75 1117 0 80F6 00330 DC RAR BIT DE DROITE DANS RETENU 1118 0 80BF 00331 DC XCH + /F MEMORISATION RESTE DU MOT 1119 0 80D2 00332 DC LDM + 2 ECRITURE DANS CP 111A 0 80F5 00333 DC RAL 111B 0 8050 00334 DC JMS SAUT SUR IMPULSION D'HOR 111C 0 1474 00335 DC CP 111D 0 807B 00336 DC ISZ + /B 111E 0 1116 00337 DC OUT 111F 0 80CO 00338 DC BBL + 0 00339 *SOUS-PROGRAMME ADITION 00340 *REGISTRES 8X, AX, F UTILISES 1120 0 8029 00341 ADD1 DC SRC + 8 ADRESSE INITIALE REGISTRE 1121 0 80E9 00342 DC RDM 1122 0 806F 00343 ADD1 X DC INC + /F INCREMENT COMPTEUR 1123 0 802B 00344 ADD2 DC SRC + /A SELECTION ADRESSE REGISTRE 1124 0 80EB 00345 DC ADM ADDITION 1125 0 80FB 00346 DC DAA 1126 0 80EO 00347 DC WRM ECRITURE 1127 0 806B 00348 DC INC + /B INCREMENT ADRESSE REGISTRE 1128 0 80C0 00349 DC BBL + 0 1129 0 80F1 00350 ADDD DC CLC 112A 0 8050 00351 ADDY DC JMS 112B 0 1120 00352 DC ADD1 112C 0 8079 00353 DC ISZ + 9 INCREMENT ADRESSE REGISTRE MACHINE 112D 0 112A 00354 DC ADDY INTERRUPTION BOUCLE QUAND TERMINE 112E 0 8050 00355 ADDX' DC JMS 112F 0 1123 00356 DC ADD2 1130 0 807F 00357 DC ISZ + /F INCRENENT COMPTEUR INTERRUP. BOUCLE QUAND TERMINE 1131 0 112E 00358 DC ADDX 1132 0 80CO 00359 DC BBL + 0 00360 *SOUS-PROGRAMME ERREUR 8 JUIN 1973 00361 *REGIST RES AX UTILISES 1133 0 802A 00362 DC FIM + /A SELECTION POSITION DANS TAMPON AFFICHAGE 1134 0 00BF 00363 DC /BF 1135 0 802B 00364 DC SRC + /A 1136 0 80EO 00365 DC WRM ECRITURE DANS MESSAGE ERREUR 1137 0 80CO 00366 DC BBL + 0 00368 *SOUS-PROGRAMME CONTR. (UTILISE DANS POSITION.) 8 JUIN 1973 PAGE 11 02/20/75 00368 *REGISTRES AX, C UTILISES 00369 *CONTROLE SI CERTAINES POSITIONS SONT NON-ZERO.SI 00370 *NON-ZERO, RETENUE A UN 00371 *REGISTRES MIS EN PLACE AVANT APPEL SOUS-PROGRAMME 1138 0 80F1 00372 CHECK DC CLC 1139 0 802B 00373 CK1 DC SRC + /A 113A 0 80E9 00374 DC ROM 113B 0 8014 00375 DC JCN + AZ 113C 0 113E 00376 DC CK2 113D 0 80FA 00377 DC STC 113E 0 806B 00378 CK2 DC INC + /B 113F 0 807C 00379 DC ISZ + /C 1140 0 1139 00380 DC CK1 1141 0 80CO 00381 DC BBL + 0 00382 *SOUS-PROGRAMME INITIALISATION 8 JUIN 1973 00383 *REGIS TRES 0X, 2X, 4X, 6X UTILISES 1142 0 8020 00384 INRAM DC FIM + 0 SELECTION BORNE RAM1 1143 0 0040 00385 DC /40 SORTIE SCD 1144 0 8022 00386 DC FIM + 2 SELECTION BORNE RAM2 1145 0 0080 00387 DC /80 CP 1146 0 8024 00388 DC FIM + 4 1147 0 0000 00389 DC /00 ADRESSAGE 1148 0 8026 00390 DC FIM + 6 SELECTION BORNE ROM2 1149 0 0020 00391 DC /20 ENTREN BCD 114A 0 8027 00392 LD1 DC SRC + 6 114B 0 80EA 00393 DC RDR ROM2 SORTIE REGISTRE DECALAGE 114C 0 8025 00394 DC SRC + 4 MEMOIRE 114D 0 80EO 00395 DC WRM MISE EN MEMOIRE 114E 0 8021 00396 DC SRC + 0 114F 0 80E1 00397 DC WMP RAM1 ECRITURE DANS S/R 1150 0 8023 00398 DC SRC + 2 1151 0 80D8 00399 DC LDM + B BMISSION IMPULSION HORIOGE 1152 0 80E1 00340 DC WMP RAM2 1153 0 80D0 00341 DC LDM + 0 1154 0 80E1 00342 DC WMP RAM2 1155 0 8075 00343 DC ISZ + 5 INCREMENT ADRESSE RAM 1156 0 114A 00344 DC LD1 1157 0 807A 00345 DC ISZ + 4 INCREMENT ADRESSE RAM PAGE 12 02/20/75 1158 0 114A 00406 DC LDI 1159 0 80CO 00407 DC BBL + 0 00408 *SOUS-PROGRAMME ARRET 8 JUIN 1973 00409 *REGIST RES 0X, 2X, 4X UTILISES 115A 0 8020 00410 DOWN DC FIN + 0 SELECTION ENTREE S/R 115B 0 0040 00411 DC /40 ENTREE BCD 115C 0 8022 00412 DC FIM + 2 SELECTION BORNE 115D 0 0088 00413 DC /88 CP 115E 0 8024 00414 DC FIM + 4 115F 0 0000 00415 DC /00 ADRESSAGE RAM 1160 0 8025 00416 DWN1 DC SRC + 4 1161 0 80E9 00417 DC RDM LECTURE RAM 1162 0 8021 00418 DC SRC + 0 1163 0 80E1 00419 DC WMP RAM1 ECRITURE TC S/R 1164 0 8023 00420 DC SRC + 2 1165 0 80D8 00421 DC LDM + 8 EMISSION IMPULSION HORLOGE 1166 0 80E1 00422 DC WMP RAM2 1167 0 80D0 00423 DC LDM + 0 1168 0 80E1 00424 DC WMP RAM2 1169 0 8075 00425 DC ISZ + 5 INCREMENT ADRESSE RAM 116A 0 1160 00426 DC DWN1 116B 0 8064 00427 DC INC + 4 116C 0 8073 00428 DC ISZ + 3 116D 0 1160 00429 DC DWN1 116E 0 80D4 00430 DWN2 DC LDM + 4 INTERRUPTION MEMOIRE 116F 0 80E1 00431 DC WMP RAM 2 1170 0 80D0 00432 DC LDM + 0 1171 0 80E1 00433 DC WMP RAM2 1172 0 8040 00434 DC JUN RESTE DANS BOUCLE JUSQU'A MISE A ZERO 1173 0 116E 00435 DC DWN2 00436 *SOUS-PROGRAMME MISE AU REPOS 8 JUIN 1973 00437 *REGISTRES OX, CX, EX, UTILISES 1174 0 802C 00438 HOME DC FIM + /C MISE EN PLACE ADRESSE OLD 1175 0 0030 00439 DC /30 NOMBRE POSITION ADRESSE RAM 1176 0 80DC 00440 DC LDM + /C COMPTAGE 4 1177 0 8080 00441 DC XCH + 0 1178 0 8050 00442 DC JMS EFFACEMENT CELLULE S/R 1179 0 1189 00443 DC CLR PREMIER GROUPE CELLULES AUTORISE PAGE 13 02/20/75 117A 0 802D 00444 BLANK DC SRC + /C ECRITURE ZEROS DANS TOUTES 117B 0 80EO 00445 DC WRM ANCIENNES POSITIONS 117C 0 806D 00446 DC INC + /D 117D 0 8070 00447 DC ISZ + 0 POSITKIONS 30-33 117E 0 117A 00448 DC BLANK 117F 0 802E 00449 DC FIM + /E ECRITURE ZEROS DANS TOUS 1180 0 00CO 00450 DC /CO CARACTERES D'ETAT UTILISES 1181 0 802F 00451 DC SRC + /E 1182 0 80E4 00452 DC WRO (C) 1183 0 80E5 00453 DC WR1 (C) 1184 0 8020 00454 DC FIM + O 1185 0 0030 00455 DC / 3D 1186 0 8021 00456 DC SRC + O 1187 0 80E4 00457 DC WR0 (3) 1188 0 80E5 00458 DC WR1 (3) 1189 0 80E6 00459 DC WR2 (3) 118A 0 80E7 00460 DC WR3 (3) 118B 0 80EA 00461 DC RDR ROM3 CONTROLE CHAQUE CELLULE 118C 0 80F5 00462 DC RAL UTILISATION BIT RETENUE 118D 0 8012 00463 DC JCN + CN SI RETENUE UN, CONTINUE 118E 0 1198 00464 DC HOME1 AVEC PROGRAMME 118F 0 80DF 00465 DC LDM + /F SI RETENUE ZERO, INSTRUCTION 1190 0 80E4 00466 DC WRO (3) UW DEMI-PAS 1191 0 8050 00467 DC JMS DU MOTEUR 1192 0 1107 00468 DC STEP 1193 0 8014 00469 DC JCN + AZ SI PAS D'ERREUR INDIQUEE 1194 0 1198 00470 DC HOME1 SUITE AVEC PROGRAMME 1195 0 8050 00471 ERR1 DC JMS SI ERREUR INDIQUEE, SAUT A 1196 0 1133 00472 DC ERROR AFFICHAGE 1197 0 80CO 00473 DC BBL + 0 GROUPE INDICATEUR DANS REGISTRE D 1198 0 80DC 00474 HOME1 DC LDM + /C 1199 0 80BD 00475 DC XCH + /D 119A 0 8050 00476 HOME4 DC JMS SAUT A SOUS-PROGRAMME MIS EN PLACE 119B 0 1300 00477 DC STPB ROUE DES TYPES CORRECTE 119C 0 8014 00478 DC JCN + AZ SI PAS D'ERREUR INDIQUEE, 119D 0 11AO 00479 DC HOME3 SUITE AVEC PROGRAMME 119E 0 8040 00480 DC JUN SI PAS D'ERREUR INDIQUEE, SAUT A 119F 0 1195 00481 DC ERR1 AFFICHAGE PAGE 14 02/20/75 11A0 0 8050 00482 HOME3 DC JMS CONTROLE ROUE DES TYPES A ZERO 11A1 0 1353 00483 DC ZEROB 11A2 0 8050 00484 DC JMS EFFACEMENT CELLULE S/R 11A3 0 1189 00485 DC CLR 11A4 0 8012 00486 DC JCN + CN SI ROUE TYPES A ZERO, SUITE 11A5 0 11AC 00487 DC HOME2 AVEC PROGRAMME 11A6 0 8050 00488 DC JMS SI ROUE TYPES PAS ZERO, PASSAGE 11A7 0 11C7 00489 DC STEP A ZERO 11A8 0 8014 00490 DC JCN + AZ SI PAS D'ERREUR INDIQUEE, SUITE 11A9 0 11AO 00491 DC HOME3 AVEC PROGRAMME 11AA 0 1195 00492 DC JUN SI ERREUR INDIQUEE, SAUT A 11AB 0 8021 00493 DC ERR1 SON AFFICHAGE 11AC 0 80E5 00494 HCME2 DC SRC + 0 EFFACEMENT CARACTERES D'ETAT 11AD 0 80E6 00495 DC WR1 (3) 11AE 0 80E7 00496 DC WR2 (3) 11AF 0 807D 00497 DC WR3 (3) 11B0 0 119A 00498 DC ISZ + /D CONTROLE QUATRE ROUES DES TYPES 11B1 0 80EA 00499 DC HOME4 A ZERO 11B2 0 80F5 00500 DC ROR ROM3 CONTROLE CELLULE 11B3 0 80F5 00501 DC RAL CINQUIEME POSITION 11B4 0 80F5 00502 DC RAL 11B5 0 80DE 00503 DC LDM + /E 11B6 0 801A 00504 DC JCN + CZ SI RETENUE EST ZERO, INDICATEUR 11B7 0 1195 00505 DC ERR1 ERREUR 11B8 0 80CO 00506 DC BBL + 0 BRANCHEMENT EN RETOUR SI PAS D'ERREUR 00507 *SOUS-PROGRAMME EFFACEMENT S/R 8 JUIN 1973 00508 *REGIST RES 6X UTILISES 00509 *SORTIE RAM2 S/R 11B9 0 8026 00510 CLR DC FIM + 6 HORLOGE DANS DIX ZEROS 11BA 0 0086 00511 DC /86 CELLULE S/R POUR 11BB 0 8027 00512 DC SRC + 6 EFFACER TOUTES SORTIES 11BC 0 80D1 00513 CL1 DC LDM + 1 PRODUCTION IMPULSION D'HORLOGE 11BD 0 80E1 00514 DC KMP RAM2 11BE 0 80DO 00515 DC LDM + 0 11BF 0 80E1 00516 DC WMP RAM2 11C0 0 8077 00517 DC ISZ + 7 11C1 0 11BC 00518 DC CL1 11C2 0 80D3 00519 DC LDM + 3 HORLOGE UN A PREMIERE SORTIE PAGE 15 02/20/75 11C3 0 80E1 00520 DC WMP RAM2 CELLULE S/R 11C4 0 80DO 00521 DC LDM + 0 11C5 0 80E1 00522 DC WMP RAM2 11C6 0 80CO 00523 DC BBL + O 00524 *SOUS-PROGRAMME MIS EN PLACE 8 JUIN 1973 00525 *REGISTRES OX, 8X, EX UTILISES 11C7 0 8020 00526 STEP DC FIM + O MISE EN PLACE ADRESSE POUR 11C8 0 00FC 00527 DC /FC SEQUENCE PROGRESSION 11C9 0 802F 00528 DC SRC + /E SELECTION BORNE SORTIE MOTEUR 11CA 0 803B 00529 STEP6 DC FIN + 8 11CB 0 80EC 00530 DC RDO (C) CONTROLE SENS 11CC 0 801C 00531 DC JCN + AN CHARGEMENT PROFIL APPROPRIE 11CD 0 11D1 00532 DC STEP5 POUR SENS 11CE 0 80AB 00533 DC LD + 8 11CF 0 8040 00534 DC JUN 11D0 0 11D2 00535 DC STEP2 11D1 0 80A9 00536 STEP5 DC LD + 9 11D2 0 80E1 00537 STEP2 DC WMP RAM3 ECRITURE PROFIL POUR MOTEUR 11D3 0 8028 00538 DC FIM + 8 ATTENTE REPONSE MOTEUR 11D4 0 0008 00539 DC /08 11D5 0 8078 00540 STEP3 DC ISZ + 8 11D6 0 1105 00541 DC STEP3 00542 *INTRODUIRE ESSAI D'ARRET ICI 11D7 0 8079 00543 DC ISZ + 9 11D8 0 11D5 00544 DC STEP3 11D9 0 8071 00545 DC ISZ + 1 VERIFICATION PAS QUATRE FOIS 11DA 0 11CA 00546 DC STEP6 11DB 0 8020 00547 DC FIM + 0 11DC 0 0030 00548 DC / 30 RAM 0 11DD 0 8021 00549 DC SRC + 0 11DE 0 80EA 00550 DC ROR ROM3 LECTURE CHAQUE CELLULE PAS 11DF 0 80F5 00551 DC RAL 11E0 0 80EC 00552 DC RDO (3) CONTROLE DEMI-PAS OU 11E1 0 80F4 00553 DC CMA PAS ENTIER 11E2 0 80E4 00554 DC WRO (3) 11E3 0 8014 00555 DC JCN + AZ 11E4 0 11EB 00556 DC STEP4 11E5 0 801A 00557 DC JCN + CZ PAGE 16 02/20/75 11E6 0 11C7 00558 DC STEP DEMI-PAS 11E7 0 80CC 00559 ERR4 DC BBL + /C SI MOTEUR PROGRESSE PAS 11E8 0 801A 00560 STEP4 DC JCN + CZ INDICATEUR D'ERREUR 11E9 0 11E7 00561 DC ERR4 11EA 0 80CO 00562 DC BBL + 0 00563 *** TABLE *********** 11EB 00564 CRG /11FC 11FC 0 00C3 00565 DC /C3 11FD 0 0066 00566 DC /66 PROFILS BINAIRES POUR PAS MOTEUR 11FE 0 003C 00567 DC /3C 11FF 0 0099 00568 DC /99 00569 *SOUS-PROGRAMME 8 JUIN 1973 1200 00570 ORG /1200 00571 ********************** 00572 * ROM =2 ************* 00573 ********************** 00574 *** SOUS-PROGRAMMES POUR REMPLIR FONCTIONS CLAVIER 00575 * SOUS-PROGRAMME TOUCHES NUMERIQUES 8 JUIN 1973 00576 * REGISTRES 7,AX, C UTILISES 00577 *SOUS-PROGRAMME DOIT ETRE CORRECTEMENT PLACE 00578 *ADRESSE INITIALE DE FORME XO 1200 0 8000 00579 ZERO DC NOP 1 1201 0 8000 00580 ONE DC NOP 2 1202 0 8000 00581 TWO DC NOP 3 1203 0 8000 00582 THREE DC NOP 4 1204 0 8000 00583 FOUR DC NOP 5 1205 0 8000 00584 FIVE DC NOP 6 1206 0 8000 00585 SIX DC NOP 7 1207 0 8000 00586 SEVEN DC NOP 8 1208 0 8000 00587 FIGHT DC NOP 9 POSITION MEMOIRE POUR NOUVEAU CHIFFRE 1209 0 802A 00588 NINE DC FIM + /A 120A 0 00B6 00589 DC /B6 120B 0 802B 00590 DC SRC + /A 120C 0 80A7 00591 DC LD + 7 120D 0 80EO 00592 DC WRM ECRITURE VALEUR NUMERIQUE 120E 0 80EC 00593 DC RDO (B) 120F 0 80F6 00594 DC RAR CONTROLE SI NOMBRE 1210 0 8012 00595 DC JCN + CN BEJA INTRODUIT PAGE 17 02/20/75 1211 0 1214 00596 DC 216 1212 0 8050 00597 DC JNS 1213 0 125E 00598 DC CLCSP 1214 0 802A 00599 216 DC FIM + /A SOUS-PROGRAMME AVANT 1215 0 00B6 00600 DC /B6 PASSAGE AFFICHAGE CHIFFRES 1216 0 802B 00601 AD1 DC SRC + /A 1217 0 80E9 00602 DC RDM 1218 0 80BC 00603 DC XCH + /C 1219 0 80EO 00604 DC WRM 121A 0 807B 00605 DC ISZ + /B 121B 0 1216 00606 DC AD1 121C 0 80FO 00607 DC CLB DEVERROUILLAGE A ZERO 121D 0 80E6 00608 DC WR2 (B) 121E 0 80C1 00609 DC BBL + 1 00610 *SOUS-PROGRAMME 8 JUIN 1973 00611 ***RETOUR POUR ADDITION 121F 0 80C2 00612 PLS DC BBL + 2 00613 *SOUS-PROGRAMME REGISTRE AFFICHAGE 8 JUIN 1973 00614 *REGISTRES 7, AX, CX, E) UTILISES 00615 *SOUS-PROGRAMME DOIT ETRE CORRECTEMENT PLACE 00616 *ADRESSE INITIALE DOIT ETRE DE FORME XO 1220 0 8000 00617 DC NOP 1221 0 8000 00618 BCNT DC NOP COMPTAGE LOTS 1222 0 8000 00619 BSUM DC NOP SOMME DE LOTS 1223 0 8000 00620 CDUNT DC NOP COMPTAGE D'ENVOIS 1224 0 8000 00621 DESC DC NOP REGISTRE DESCENDANT 1225 0 8000 00622 ASC DC NOP REGISTRE ASCENDANT 1226 0 8050 00623 CNTRL DC JMS SOMME DE CONTROLE 1227 0 125E 00624 ZZZ DC CLDSP EFFACEMENT AFFICHAGE 1228 0 802A 00625 DC FIM + /A CLERRR 1229 0 0077 00626 DC /77 EFFACEMENT BEGISTRE ADDITION 122A 0 8050 00627 DC JMS 122B 0 1260 00628 DC CLEER 122C 0 80A7 00629 DC LD + 7 122D 0 8050 00630 DC JMS INITIALISATION REGISTRES 122E 0 10BD 00631 DC FEICH 122F 0 802D 00632 DC SRC + /C SELECTION MOT POUR LDLMP 1230 0 80AE 00633 DC LD + /E PAGE 18 02/20/75 1231 0 80EO 00634 DC WRM 00635 *CHARGEMENT ZONE AFFICHAGE 1232 0 802C 00636 TRANS DC FIM + /1 INITIALISATION ADRESSE AFFICHAGE 1233 0 00B7 00637 DC /87 1234 0 8028 00638 TRANZ DC SRC + /1 SELECTION MEMOIRE RAM 1235 0 80E9 00639 DC RDM LECTURE 1236 0 802D 00640 DC SRC + /1 AFFICHAGE 1237 0 80EO 00641 DC WRM ECRITURE 1238 0 806B 00642 DC INC + /1 1239 0 806D 00643 DC INC + /1 123A 0 807F 00644 DC ISZ + /1 123B 0 1234 00645 DC TRANZ 123C 0 80CO 00646 DC BBL + 0 00647 *SOUS-PROGRAMME MISE AU REPOS 00648 *REGISTRES AX,EX, US1 UTILISES 8 JUIN 1973 123D 0 8050 00649 CLEAR DC JMS 123E 0 125E 00650 DC CLOSP 123F 0 80E6 00651 DC WR2 (B) DEVERROUILLAGE A ZERO 1240 0 80EC 00652 DC RDO (B) COMTROLE MISE AU REPOS PRECDENTE 1241 0 80F5 00653 DC RAL MISE AU REPOS EST BIT 8 1242 0 801A 00654 DC JCN + C 1243 0 1248 00655 DC Z23 1244 0 802A 00656 ZZC1 DC FIM + /1 CLRRR 1245 0 0077 00657 DC /77 MISE AU REPOS REGISTRE ADDITION 1246 0 8050 00658 DC JMS 1247 0 1260 00659 DC CLEER 1248 0 802A 00660 Z23 DC FIM + /A PAPPEL CONTENUS REGISTRE ADDITION 1249 0 0077 00661 DC /77 124A 0 802E 00662 DC FIM + /1 124B 0 0007 00663 DC /07 124C 0 8050 00664 DC JMS 124D 0 1232 00665 DC TRANS 124E 0 802A 00666 DC FIM + /1 CLLMP 124F 0 008B 00667 DC /8B MISE AU REPOS ZONE LAMPE 1250 0 8050 00668 DC JMS 1251 0 1260 00669 DC CLEER 1252 0 80EC 00670 DC RDO (8) LECTURE INDICATEUR DE LOTS 1253 0 8014 00671 DC JCN + A PAGE 19 02/20/75 1254 0 125D 00672 DC ZZC2 1255 0 802A 00673 DC FIM + /A MISE AU REPOS LOT 1256 0 001A 00674 DC /1A 1257 0 8050 00675 DC JMS 1258 0 1260 00676 DC CLEER 1259 0 802A 00677 DC FIM + /A MISE AU REPOS LOT 125A 0 002A 00678 DC /2A 125B 0 8050 00679 DC JMS 125O 0 1260 00680 DC CLEER 125D 0 800B 00681 ZZC2 DC BBL + B 125E 0 802A 00682 CLDSP DC FIM + /A EFFACEMENT AFFICHAGE 125F 0 00B7 00683 DC /87 1260 0 80DO 00684 CLEER DC LDM + 0 1261 0 802B 00685 Y DC SRC + /A 1262 0 80EO 00686 DC WRM 1263 0 807B 00687 DC ISZ + /B 1264 0 1261 00688 DC Y 1265 0 8000 00689 DC EBL + 0 00690 *SOUS-PROGRAMME DEVERROUILLAGE 8 JUIN 1973 00691 *REGIS TRES AX UTILISES 1266 0 802A 00692 UNLCK DC FIM + /A DEVERROUILLAGE 1267 0 0000 00693 DC /80 1268 0 802B 00694 DC SRC + /A 1269 0 80EC 00695 DC BDO (B) CONTROLE SI NOMBRE INTRODUIT 126A 0 80F1 00696 DC OLC 126B 0 80F5 00697 DC RAL 126O 0 80F1 00698 DC CLC 126D 0 80F5 00699 DC RAL 126E 0 8014 00700 DC JON + AZ BIT 4 126F 0 1299 00701 DC ZZB1 SI NON, SORTIE AVEC ZERO DANS ACCUMULATEUR 1270 0 80DF 00702 DC LDM + /F SINON MISE EN PLACE DEVERROUILLAGE 1271 0 80E6 00703 DC WR2 (B) SORTIE AVEC 1 DANS ACCUMULATEUR 1272 0 8001 00704 DC BBL + 1 00705 *SOUS-PROGRAMME NON ENCORE REALISE 8 JUIN 1973 1273 0 8040 00706 T12 DC JUN 1274 0 154E 00707 DC SZ 1275 0 8000 00708 KEY1 DC NOP 1276 0 8000 00709 TT1 DC NOP PAGE 20 02/20/75 1277 0 8040 00710 DC JUN 1278 0 1580 00711 DC S1 1279 0 8040 00712 KEY3 DC JUN 127A 0 1100 00713 DC ENBLE 127B 0 8000 00714 TT4 DC NOP 127C 0 8040 00715 DC JUN 127D 0 1512 00716 DC S3 00717 *SOUS-PROGRAMME ADDITION ET RAPPEL 8 JUIN 1973 00718 *REGISTRES AX, CX UTILISES 127E 0 802A 00719 PLUS DC FIM + /A ADRESSE AFFICHAGE 127F 0 0087 00720 DC /87 1280 0 8020 00721 DC FIM + /C ADRESSE REGISTRE ADDITION 1281 0 0077 00722 DC /77 1282 0 802B 00723 DC SRO + /A 1283 0 80F1 00724 DC CLO 1284 0 80EC 00725 DC RDO (B) EXAMEN CARACTERE D'ETAT 1285 0 80F6 00726 DC RAR 1286 0 801A 00727 DC JON + CZ PASSAGE A RAPPEL SI BIT 1 EST 0 1287 0 1299 00728 DC ZZB1 1288 0 8081 00729 DC CLO 1289 0 8028 00730 Z200 DC SRC + /A AFFICHAGE ADDITION ET REGISTRE 128A 0 80E9 00731 DC RDH ET ECRITURE DANS LES DEUX 128B 0 802D 00732 DC SRC + /C 128C 0 80EB 00733 DC ADM 128D 0 80FB 00734 DC DAA 128E 0 80ED 00735 DC WRM 128F 0 802B 00736 DC SRC + /A 1290 0 80EO 00737 DC WRM 1291 0 806B 00738 DC INC + /B 1292 0 807D 00739 DC ISZ + /D 1293 0 1289 00740 DC Z200 1294 0 801A 00741 DC JCN + CZ CONTROLE DEPASSEMENT 1295 0 121F 00742 DC PLS DEPASSEMENT SORTIE AVEC 2 1296 0 800E 00743 DC LDM + /E 1297 0 8050 00744 DC JMS 1298 0 1133 00745 DC ERROR 1299 0 8000 00746 ZZB1 DC BBL + 0 00747 *SOUS-PROGRAMME CORRECTION REGISTRES MACHINE 8 JUIN 1973 PACE 21 02/20/75 00748 *REGISTERS 8X,F UTILISES 129A 0 8005 00749 PCST DC LDM+5 CORRECTION REGISTRE ASCENDANT 129B 0 8050 00750 DC JMS 129C 0 1080 00751 DC FETCH 129D 0 8050 00752 DC JMS 129E 0 1129 00753 DC ACDC 129F 0 8002 00754 DC LDM+2 SONME DE LOTS 12A0 0 8050 00755 DC JMS 12A1 0 1080 00756 DC FETCH 12A2 0 8050 00757 DC JMS 12A3 0 1129 00758 DC ADDD 12A4 0 80D3 00759 DC LDM + 3 COMPTEUR D'ENVOIS 12A5 0 8050 00760 DC JMS 12A6 0 1080 00761 DC FETCH 12A7 0 80FA 00762 DC STC 12A8 0 8050 00763 DC JMS 12A9 0 112E 00764 DC ADDX 12AA 0 8001 00765 DC LDM+1 OMPTEUR DE LOTS 12AB 0 8050 00766 DC JMS 12AC 0 1080 00767 DC FETCH 12AD 0 80FA 00768 DC STC 12AE 0 8050 00769 DC JMS 12AF 0 112E 00770 DC ADOX 12B0 0 80D4 00771 DC LDM+4 REGISTRE DESCENDANT 12B1 0 8050 00772 DC JMS 12B2 0 10BC 00773 DC FETCH 12B3 0 80FA 00774 DC STC 12B4 0 80F9 00775 RTNOO DC TCS 12B5 0 8029 00776 DC SRC+8 12B6 0 80E8 00777 DC SBM 12B7 0 80F1 00778 DC CLC 12B8 0 8050 00779 DC JMS 12B9 0 1122 00780 DC ADDIX 12BA 0 8079 00781 DC ISZ+9 12BB 0 1284 00782 DC RINCO 12BC 0 80F9 00783 RTNOI DC TCS 12BD 0 8050 00784 DC JMS 12@@ 0 1123 00785 DC ADD2 PAGE 22 02/20/75 12BF 0 807F 00786 DC ISZ+/F 12C0 0 1280 00787 DC RINOI 12C1 0 8050 00788 DC JMS 12C2 0 1100 00789 DC NBLE 12C3 0 8000 00790 DC BBL+0 00791 *SOUS-PROGRAMM TRAITEMENT ENTREES CLAVIER 00792 *REGISTRES 6X UTILISES 12C4 0 801A 00793 FCTN DC JIN+CZ 12C5 0 1207 00794 DC FCINI 12C6 0 8037 00795 DC JIN+6 12C7 0 8000 00796 DC BBL+0 00797 *SOUS-PROGRAMME MISE EN PLACE 00798 *REGISTRES AX,CX,EX UTILISES 12C8 0 802A 00799 SET DC FIM+/A MISE EN PLACE MACHINE 12C9 0 0089 00800 DC /B9 ADRESSE INITIALE DANS AFFICHAGE POUR 12CA 0 80DE 00801 DC LDM+/E CONTROLE DE DEVERROUILLAGE, ETC.