PAGE 1 02/20/75 // JOB 0001 0002 0001 0002 LCG DRIVE CART SPEC CART AVAIL PHY DRIVE 0000 0001 0001 0000 0001 0002 0002 0001 V2 M09 ACTUAL 16K CONF16 16K *EQUAT(PAPTX, PAPTY) // ASM *MACLIB INTAS *XREF 00001 ABS 00002 CLEAR 158D 00003 S1 EQU /158D 154F 00004 S2 EQU /154F 1512 00005 S3 EQU /1512 00006 *PROGRAMME COMME CELUI DU 30 JANVIER 1974 EPM2 00007 ************************ 00008 * RUM = 0 ************** 00009 ************************ 00010 *** INITIALISATION 1000 0 8000 00011 DC NOP 1001 0 802E 00012 DC FIM + /E MOTEUR SUR PREMIER PAS 1002 0 00CO 00013 DC /CO SORTIE RAM 3 UTILISEE 1003 0 802F 00014 DC SRC + /E 1004 0 8009 00015 DC LDM + 9 1005 0 80E1 00016 DC WMP RAM3 1006 0 8050 00017 DC JMS CHARGEMENT MEMOIRE 1007 0 1142 00018 DC INRAM 1008 0 802A 00019 DC FIM + /A REGISTRE POSITION HACHINE A ZERO 1009 0 0030 00020 DC / 30 100A 0 8050 00021 DC JMS 100B 0 1260 00022 DC CLEER 100C 0 8050 00023 DC JMS MACHINE SUR 0000 100D 0 1174 00024 DC HOME 100E 0 8004 00025 WW DC LDM + 4 CHARGEMENT REGISTRE DESCENDANT PAGE 2 02/20/75 1010F 0 80FA 00026 DC STC 1010 0 8026 00027 DC FIM+6 1011 0 1224 00028 DC DESC 1012 0 8050 00029 DC JMS 1013 0 1204 00030 DC FCTN 1014 0 802C 00031 DC FIM+/C ECRITURE DATE MEMENTO DANS 1015 0 008D 00032 DC /8D MOT D'AFFICHAGE 1016 0 802D 00033 DC SRC+/C 1017 0 80D1 00034 DC LDM+1 1018 0 80EO 00035 DC WRM 1019 0 8050 00036 DC JMSK 101A 0 1479 00037 DC CHCK 101B 0 8050 00038 DC JMSMP 101C 0 110A 00039 DC lDLMP 00040 *SOUS-PROGRAMME D'ANALYSE 00041 *REGISTRES OX, 6X, 8X, AX, SONT UTILISES MOMENT 00040 *MOT "COMPATGE" REGISTRE 2 DISPONIBLE 00043 *MOT "RANGEE" REGISTRE 4 DISPONIBLE 00044 *MOT "COLONNE" REGISTRE 5 DISPONIBLE 101D 0 802E 00045 ANAL.DC FIM+/E POSITIONNEMENT COMPTEUR POUR CONTROLE EFFACEMENT 101E 0 0089 00046 DC /89 101F 0 802A 00047 DC FIM+/A SELECTION POSITION SORTIE S R 1020 0 0000 00048 DC /00 1021 0 8028 00049 DC FIM+8 POSITION AFFICHAGE BORNE SORTIE 1022 0 0049 00050 DC /49 R9 NOMBRE DE CHIFFRES AFFICHES 1023 0 802F 00051 CONT 3 DC SRC+/E SOUS-PROGRAMME DE DETERMINATION EFFACEMENT 1024 0 80E9 00052 DC ROM 1025 0 8014 00053 DC JCN+A2 CONTROLE CHIFFRE NON ZERO 1026 0 1029 00054 DC CONT4 1027 0 80AF 00055 DC LD+/F 1028 0 80B9 00056 DC XCH+9 CORRECTION CHIFFRES REGISTRE COMPTAGE 1029 0 807F 00057 CONT 4 DC ISZ+/F 102A 0 1023 00058 DC CONT3 00059 *BORNE S/R RAM 0, AFFICHAGE BORNE RAM 1 00060 *PREMIERE PARTE DU PROGRAMME DETERMINE EFFACEMENT 00061 * 102B 0 802E 00062 DC FIM+/E POSITION INTIALE TAMPON AFFICHAGE 102C 0 0086 00063 DC /86 PAGE 3 02/20/75 102D 0 8003 00064 DC LDM+3 PASSAGE A MPX DEMARRE 102E 0 8050 00065 DC JMS 102F 0 1474 00066 DC CP 1030 0 802F 00067 STRT DC SRC+/3 SELECTION POSITION TAMPON D'AFFICHAGE 1031 0 80E9 00068 DC RDM LECTURE CARACTERE D'AFFICHAGE 1032 0 8029 00069 DC SRC+8 1033 0 80E1 00070 DC WMP RM1 1034 0 80F1 00071 DC CLC 1035 0 80A9 00072 DC LD+9 INDICATION CHIFFRES A AFFICHER 1036 0 809F 00073 DC SUB+/F CONTROLE SI NOMBRE A AFFICHER 1037 0 80D0 00074 DC LDM+0 1038 0 80F6 00075 DC RAR 1039 0 802B 00076 DC SRC+/A RAMO 8 BITS 103A 0 80E1 00077 DC WMP RAMO 0 EFFACES, 1 NON EFFACES 00078 *PASSAGE AU CIRCUIT D'ATTAQUE ET DECODEUR 103B 0 80F1 00079 DC 103C 0 80D7 00080 DC 103D 0 80BF 00081 DC 103E 0 801A 00082 DC 103F 0 106F 00083 DC 00084 *SAUT DES PREMIERS GROUPES DE TOUCHES 1040 0 8010 00085 DC JCN+AN 1041 0 104F 00086 DC X 1042 0 80EA 00087 DC ROR 1043 0 80F5 00088 DC RAL 1044 0 80F5 00089 DC RAL 1045 0 801A 00090 DC JCN+CZ 1046 0 104D 00091 DC X1 1047 0 80EC 00092 DC RDO 1048 0 80FA 00093 DC STC 1049 0 80F5 00094 DC RAL 104A 0 80E4 00095 DC WRO 104B 0 8040 00096 DC JUN 104C 0 104F 00097 DC X 104D 0 80CO 00098 X1 DC LDM+O 104E 0 80E4 00109 DC WRO 104F 0 80EA 00100 X DC ROR ROMO LECTURE MOT RANGEE 1050 0 8014 00101 DC JCN+AZ ESSAI D'ENTRES PAGE 4 02/20/75 1051 0 1068 00102 DC T1 1052 0 80FC 00103 DC KBP CLAVIER 1-4 SI TOUCHE MANOEUVREE 1053 0 8083 00104 DC XCH+3 MEMORISATION 1054 0 80AF 00105 DC LD+/F 1055 0 8085 00106 DC XCH+5 CORRECTION MOT "COLONNE" 1056 0 80F1 00107 DC CLC 1057 0 8095 00108 DC SUB+5 COMPARAISON AVEC PRECDENT MOT "COLONNE" 1058 0 801C 00109 DC JCN+AN MOT NON EGAL, SAUT A MOT "COMPTAGE" = 0 1059 0 106D 00110 DC T2 105A 0 8063 00111 DC INC+3 CONTINUE SI MEME R3 = 2-5 105B 0 80A3 00112 DC LD+3 CONTROLE SI PLUS D'UNE TOUCHE 105C 0 8014 00113 DC JCN+AZ SAUT SI PLUS D'UNE TOUCHE 105D 0 1060 00114 DC T2 MOT "COMPTAGE" = 0 105E 0 8084 00115 DC XCH+4 COMPARAISON AVEC MOT "RANGEE" PRECEDENT 105F 0 80F1 00116 DC CLC 1060 0 8094 00117 DC SUB+4 COMPARAISON 1061 0 801C 00118 DC JCN+AN DIFFERENT, SAUT, "COMPTAGE" = 0 1062 0 106D 00119 DC T2 1063 0 802A 00120 DC LD+2 INCREMENTATION AU "COMPTAGE" SI IDENTIQUE 1064 0 80FA 00121 DC STC 1065 0 80F5 00122 DC RAL 1066 0 8040 00123 DC JUN 1067 0 1063 00124 DC T3 1068 0 80AF 00125 T1 DC LD+/F COMPARAISON MOT "COLONNE" 1069 0 80F1 00126 DC CLC F DIFFERENT 5, MOT "COMPTAGE" IDENTIQUE 106A 0 8095 00127 DC SUB+5 F = 5 MOT "COMPTAGE" PLACE A ZERO 106B 0 801C 00128 DC JCN+AN 106C 0 106F 00129 DC T4 106D 0 80DO 00130 T2 DC LDM+0 MOT "COMPTAGE" A ZERO 106E 0 80E2 00131 T3 DC XCH+2 CORRECTION MOT "COMPTAGE" 106F 0 802C 00132 T4 DC FIM+/C INITIALISATION REGISTRE 1070 0 00FO 00133 DC /FO 1071 0 8070 00134 CIRO DC ISZ+/D BOUCLE RETARD 1072 0 1071 00135 DC CIRC 1073 0 8011 00136 DC JCN+TZ ESSAI D'ARRET 1074 0 10E7 00137 DC DWN3 1075 0 807C 00138 DC ISZ+/C 1076 0 0171 00139 DC CIRC PAGE 5 02/20/75 1077 0 8002 00140 DC LDM+2 PRODUCTION CP POUR AVANCE ANALYSE 1078 0 8050 00141 DC JMS AU CHIFFRE SUIVANT 1079 0 1474 00142 DC CP 107A 0 807F 00143 DC ISZ+/F RECHERCHE FIN D'ANALYSE 107B 0 1030 00144 DC STRT 107O 0 80F1 00145 DC CLC 107D 0 802A 00146 DC FIM+/A 107E 0 0000 00147 DC /00 107F 0 802B 00148 DC SRC+/A 1080 0 8009 00149 DC LDM+9 1081 0 80BF 00150 DC XCH+/F 1082 0 80EC 00151 DC RDO 1083 0 80BF 00152 DC ADD+/F 1084 0 801C 00153 DC JCN+AN 1085 0 108F 00154 DC X2 1086 0 802A 00155 DC FIM+/A 1087 0 00BB 00156 DC /BB 1088 0 8050 00157 DC JMS 1089 0 1260 00158 DC CLEER 108A 0 707A 00159 DC STC 108B 0 8050 00160 DC JMS 108C 0 129A 00161 DC POST 108D 0 8040 00162 DC JUN 108E 0 80AB 00163 DC X3 108F 0 80FA 00164 X2 DC CLC 1090 0 80D7 00165 DC LDM+7 TOUCHE TRAITEMENT MOT "COMPTAGE" = 0111 1091 0 8092 00166 DC SUB+2 1092 0 101C 00167 DC JCN+AN CONTROLE SI MOT "COMPTAGE" CORRECT 1093 0 80BB 00168 DC T5 SI PAS 0111, RETOUR A ANALYSE 1094 0 80FA 00169 DC CLC 1095 0 80DA 00170 DC LON+/A PLACE TABLE 1096 0 8084 00171 DC ADD+4 MISE EN PLACE FIN 00172 *ADDITION CONTENUS R4 (2-5) 1097 0 80B0 00173 DC XCH+O 1098 0 80A5 00174 DC LD+5 6-F 1099 0 80B1 00175 DC XCH+1 POSITIONNEMENT OX SUR ADRESSE 00176 * 109A 0 8036 00177 DC FIN+6 PAGE 6 02/20/75 109B 0 802A 00178 DC FIM+/A ADRESSE CONTENANT INDICATEURS 109C 0 0083 00179 DC /BE DE LOT 109D 0 802B 00180 DC SRC+/A 109E 0 80E9 00181 DC RDM 109F 0 80F1 00182 DC CLC ISOLEMENT INDICATEURS DE LOT 10A0 0 80F6 00183 DC RAR 10A1 0 80F1 00184 DC CLC 10A2 0 80F6 00185 DC RAR 00186 *LECTURE POUR DETERMINER SI LOT AFFICHE 00187 * 10A3 0 80E4 00188 DC WRO (8) MEMOIRE 10A4 0 802A 00189 DC FIM+/A CLLMP EFFACEMENT ZONE AFFICHAGE LAMPE 10A5 0 008B 00190 DC /88 10A6 0 8050 00191 DC JMS 10A7 0 1260 00192 DC CLEER 10A8 0 80FA 00193 DC STC SOUS-PROGRAMMES CHANGEMENT TEMPORAIRE DE CARTE 10A9 0 8050 00194 DC JMS SAUT A FONCTION REPRESENTEE PAR TOUCHE 10AA 0 1204 00195 DC FCTN 10AB 0 802A 00196 X3 DC FIM+/A SELECTION CARACTERE D'ETAT 10AC 0 00BO 00197 DC /BO 10AD 0 802B 00198 DC SRC+/A 10AE 0 80E4 00199 DC WRO (B) CONTENUS ACCUMULATEUR SUR RETOUR 00200 * A PARTIR FCTN MEMORISE ICI 10AF 0 8050 00201 DC JMS COMPARAISON REGISTRE POSITION. MACHINE AVEC 10B0 0 1450 00202 DC CMPAR REGISTRE DESCENDANT 10B1 0 802A 00203 DC FIM+/A SELECTION MOT SORTIE 10B2 0 008C 00204 DC /BC AFFRANCHISSEMENT REDUIT, PAS D'AFFRANCHISSEMENT 10B3 0 802B 00205 DC SRC+/A 10B4 0 80F1 00206 DC CLC+/A 10B5 0 80EB 00207 DC ADM ECROTIRE AFFRAMCHISSEMENT REDUIT, PAS D'AFFRANCH.