< S I S C M S 5 2
PAGE
CALL #SISP CMS5 CHECK#
PAGE
<
<
< R E L E A S E S E M A P H O R E :
<
<
< FONCTION :
< CE SOUS-PROGRAMME EFFECTUE
< L'OPERATION 'RLSE' D'UN SEMA-
< PHORE, ET CE DE DEUX FACONS
< DIFFERENTES SUIVANT :
<
< 1 - SI LES INTERRUPTIONS SONT
< DEMASQUEES (IOM=IPM=0), ALORS
< ON EXECUTE L'INSTRUCTION 'RLSE'
< DE LA MICRO-MACHINE.
<
< 2 - SI LES INTERRUPTIONS SONT
< MASQUEES, ALORS ON EST OBLIGE
< D'EMULER L'INSTRUCTION 'RLSE',
< CAR EN EFFET, SINON, EXECUTEE
< TELLE QUELLE, ELLE DEMASQUERAIT
< LES INTERRUPTIONS...
<
<
< ARGUMENTS:
< (A)=ADRESSE DU SEMAPHORE.
<
<
< RESULTATS:
< EQUIVAUT DANS TOUS LES CAS
< A L'EXECUTION DE L'INSTRUC-
< TION 'RLSE' A CECI PRES :
< LORSQUE LES INTERRUPTIONS
< SONT MASQUEES, L'OCTET 0 DU
< COMPTEUR RESTE INCHANGE.
<
<
< A T T E N T I O N :
< CE SOUS-PROGRAMME DETRUIT 'A' !!!
<
<
RLSE: EQU $
USE W,SEMBET
PSR B,X,Y,W < SAUVEGARDES...
LR A,W < (W)=ADRESSE SEMAPHORE...
<
< TEST DES INTERRUPTIONS :
<
BSR ASMIT < ETAT DE MASQUAGE DES INTERRUPTIONS :
< RENVOIE DANS 'A' : 'IOM' ET 'IPM'.
< NOTA : SI IOM#IMP, 'SMIT' FAIT
< UNE SYSER...
JANE RLSE2 < IOM=IPM=1 : INTERRUPTIONS MASQUEES...
<
< CAS DES INTERRUPTIONS
< NON MASQUEES :
<
RLSE SEMBET < PUISQUE IOM=IPM=K, UTILISONS
< L'INSTRUCTION, TOUT BETEMENT...
JMP RLSE9 < ET C'EST TOUT...
<
< CAS DES INTERRUPTIONS
< MASQUEES :
<
RLSE2: EQU $ < IPM=IOM=1, FAIRE LE RLSE
< "A LA MAIN" POUR NE PAS DEMAS-
< QUER LES INTERRUPTIONS...
LA SEMBET < CHARGEMENT DU SEMAPHORE :
SCLD XMBETA < B (BITS8-15)=OCTET0(SEM),
SARS XMBETA < (A)=OCTET1(SEM), SIGNE ETENDU.
CPI MAXBET < VALIDATION DU COMPTEUR :
JL RLSE3 < OK...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< LE MIEUX PARAIT DE FAIRE 'JMP RLSE9'...
<
RLSE3: EQU $
ADRI I,A < PROGRESSION DU COMPTEUR,
LR A,Y < (Y)=COMPTEUR(SEM),
SLLS XMBETA
SCRD XMBETA < (A)=NOUVELLE VALEUR DU SEMAPHORE,
STA SEMBET < ET MISE A JOUR DE CELUI-CI...
CPZR Y < COMPTEUR(SEM) > 0 ???
JG RLSE9 < OUI, COMPTEUR(SEM) > 0,
< NE RIEN FAIRE DE PLUS CAR
< AUCUNE TACHE N'EST EN ATTENTE...
<
< CAS OU AU MOINS UNE
< TACHE EST EN ATTENTE :
<
RLSE8: EQU $ < ICI, IL FAUT METTRE A 0 LE
< 1ER BIT A 1 DANS FILE(SEM)
< ET METTRE A 1 LE BIT CORRES-
< PONDANT DE ESTF :
LAD SEMWQ < (A)=ADRESSE DE LA LISTE DES TACHES,
LXI NTS0 < (X)=RANG DU PREMIER BIT A TESTER,
LYI LSEM*NBITMO < (Y)=RANG DU PREMIER BIT A NE PLUS
< TESTER.
DRBM
JNC RLSE1 < ON A TROUVE UN BIT A 1 DANS
< LA FILE(SEM), OK...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< COMPRENDRE COMMENT LA FILE PEUT
< ETRE VIDE, ALORS QUE LE COMPTEUR
< N'EST PAS POSITIF !!!
<
JMP RLSE9
RLSE1: EQU $ < ICI, (X)=RANG DU BIT A METTRE
< A 1 DANS 'ESTF',
LAI ESTF-ZERO < (A)=ADRESSE DE LA FILE 'ESTF',
SBTM NTS0,X < SET BIT DE RANG (X) DE 'ESTF'...
<
< ET SORTIE :
<
RLSE9: EQU $
PLR B,X,Y,W < RESTAURATIONS
RSR
PAGE
<
<
< A D R E S S E D ' U N ' I C ' :
<
<
< FONCTION :
< CE SOUS-PROGRAMME PERMET
< DE CONNAITRE L'ADRESSE (B)
< DE L''IC' ASSOCIE A LA TACHE
< HARDWARE DONT LE NUMERO EST
< DONNE DANS 'A'.
<
< ARGUMENT:
< (A)=NIVEAU DE LA TACHE HARDWARE.
<
< RESULTAT:
< (B)=ADRESSE DE L''IC' DE LA TACHE HARDWARE.
<
<
SMIC: EQU $
PSR A,X < SAUVEGARDES...
MP LIC < (A)=NIVEAU HARD*LONGUEUR 'IC',
LR B,X < (X)=INDEX IC(I),
LB &AXIC < (B)=ADRESSE 'IC',
< NOTA : ON PEUT LE FAIRE, CAR (AXIC)
< =AXIC OU AUTREMENT DIT, LE 1ER MOT
< D'UN 'IC' POINTE SUR L''IC' LUI-MEME...
PLR A,X < RESTAURATIONS...
RSR
PAGE
<
<
< T E S T D E S I N T E R R U P T I O N S :
<
<
< FONCTION :
< CE SOUS-PROGRAMME PERMET DE
< SAVOIR SI LES INTERRUPTIONS
< (D'ENTREES-SORTIES, DE DEFAUT
< SECTEUR ET INTER-PROCESSEURS)
< SONT MASQUEES.
<
<
< RESULTAT :
< (A)=K : LES INTERRUPTIONS NE SONT PAS MASQUEES,
< #0 : ELLES SONT MASQUEES ('A' CONTIENT EN
< FAIT ALORS LES BITS 'IPM' ET 'IOM').
<
<
SMIT: EQU $
PSR B
CALL #SISP CMS5 RST#
LRM B
WORD MIPM?MIOM < MASQUE DE TEST DES BITS DE MASQUAGE
< DES INTERRUPTIONS ('IPM' ET 'IOM').
ANDR B,A < AFIN DE NE CONSERVER QUE LES BITS
< DE MASQUES DES INTERRUPTIONS A
< L'INTERIEUR DU REGISTRE 'ST'.
JAE SMIT1 < (A)=K : LES INTERRUPTIONS NE
< SONT PAS MASQUEES.
CPR A,B < ELLES SONT MASQUEES, MAIS LE SONT-ELLES
< TOUTES ('IPM' ET 'IOM') ???
JE SMIT1 < OUI, (A)#0...
<
< S Y S E R : ON A 'IPM'#'IOM' !!!
<
< (A)=BITS 'IPM' ET 'IOM' DU REGISTRE 'ST'.
<
SMIT2: EQU $
BSR ATDEFS < ON NE PEUT FAIRE APPEL A 'SYSER',
< CAR LUI-MEME FAIT APPEL A 'SMIT'...
YSYSER: EQU $ < ADRESSE DE BOUCLAGE DE CETTE FAUSSE
< E R R E U R S Y S T E M E ...
JMP SMIT2 < ET ON SE BLOQUE...
<
< RETOUR FACILE :
<
SMIT1: EQU $
PLR B
RSR
PAGE
<
<
< M A S Q U A G E / D E M A S Q U A G E
< G E N E R A L
< D E S I N T E R R U P T I O N S :
<
<
< FONCTION :
< LE SYSTEME DISPOSE DE 2 S/P
< LUI PERMETTANT DES DEMANDES
< IMBRIQUEES DE MASQUAGE/DEMASQUAGE
< SUIVANT LES 2 SCHEMAS INDIQUEES
< CI-DESSOUS :
<
< (MASK DEMASK)
< (MASK DEMASK)
< (MASK...DEMASK)
<
< OU PAR EXEMPLE :
<
< (MASK ACQ)
< (MASK )
< (MASK...DEMASK)
< (L'INSTRUCTION 'ACQ' DEMASQUANT TOUTES
< LES INTERRUPTIONS...)
<
<
< INTERRUPTIBILITE :
< EVIDEMMENT, TANT QUE LE MASQUAGE DU
< PROCESSEUR N'EST PAS EFFECTIF (ALORS
< QUE L'ETAT COURANT EST TEL QUE IPM=IOM=K)
< UNE OU PLUSIEURS INTERRUPTIONS PEUVENT
< VENIR INTERROMPRE LA SEQUENCE DE
< MASQUAGE; EN FAIT IL N'Y A PAS D'ALEA
< 'SMASK' ETANT TRANSFERE DANS LE REGISTRE
< 'Y', ET DONC PARTICIPANT AINSI AUX
< CHANGEMENTS DE CONTEXTES. LE SEUL RISQUE
< APPARAIT LORSQUE IPM#IOM; SI UNE INTER-
< RUPTION APPARAIT ENTRE CE TEST ET LA
< SYSER ON RISQUE :
< - SOIT DE FAIRE 2 SYSERS DE MEME CAUSE
< LORSQUE L'INTERRUPTION FAIT ELLE-MEME
< UN APPEL MASQUAGE,
< - SOIT DE FAIRE LA SYSER AVEC IPM=IOM=K,
< PARCE QUE L'INTERRUPTION PAR UN 'ACQ'
< AURA FAIT IPM=IOM=K...
<
<
< NOTA :
< CETTE SEQUENCE AYANT ETE EMPRUNTEE A 'CMS4-MP',
< IL NE FAUT PAS S'ETONNER QUE L'ON Y PARLE DE
< "PROCESSEUR COURANT" ALORS QUE CMS5 EST MONO-
< PROCESSEUR...
<
<
< M A S Q U A G E G E N E R A L :
<
<
SMMK: EQU $
PSR A,Y
LY SMASK < ACCES A L'ETAT DE MASQUAGE
< SUPPOSE COURANT DU PROCESSEUR
< (A CAUSE DES DEMASQUAGES IMPLI-
< CITES REALISES PAR LES INSTRUCTIONS
< PASSANT DANS LE MICRO-SCHEDULER :
< ACQ, WAIT, ACT, ACTD,...)
<
< TEST DE L'ETAT COURANT DU PROCESSEUR :
<
CALL #SISP CMS5 SST#
TBT IPM < INTERRUPTIONS INTER-PROCESSEURS
< MASQUEES ???
JC SMMK1 < ON SUPPOSE QUE LE PROCESSEUR
< COURANT EST DEJA MASQUE...
TBT IOM < INTERRUPTIONS D'ENTREES-SORTIES
< ET DE DEFAUT SECTEUR MASQUEES ???
JC SMMK2 < S Y S E R : IPM=K ET IOM=1 !!!
LYI SMASK0 < LE PROCESSEUR COURANT N'ETAIT PAS
< MASQUE : ON VA REINITIALISER SON
< ETAT DE MASQUAGE...
JMP SMMK3 < VERS LE MASQUAGE EFFECTIF.
SMMK1: EQU $
TBT IOM < INTERRUPTIONS D'ENTREES-SORTIES
< ET DE DEFAUT SECTEUR MASQUEES ???
JNC SMMK2 < S Y S E R : IPM=1 ET IOM=K !!!
SMMK3: EQU $
ADRI I,Y < MISE A JOUR DE L'ETAT DE MASQUAGE
< PAR COMPTAGE DES IMBRICATIONS.
JCV SMMK2 < S Y S E R : ETAT DE MASQUAGE
< IMPOSSIBLE !!!
<
< MASQUAGE EFFECTIF DU PROCESSEUR :
< (CE MASQUAGE EFFECTIF EST FAIT
< MEME SI IPM ET IOM SONT DEJA A 1)
<
LRM A
WORD MIPM?MIOM
SST < MASQUAGE DES INTERRUPTIONS INTER-
< PROCESSEURS (IPM) ET D'ENTREES-
< SORTIES/DEFAUT SECTEUR (IOM).
STY SMASK < MEMORISATION DE L'ETAT DE MASQUAGE
< DU PROCESSEUR.
PLR A,Y
RSR
<
< S Y S E R : LORS DU DEMASQUAGE D'UN PROCESSEUR :
<
< 1- IPM#IOM : VOIR LE CONTENU DE 'A',
< 2- DEBORDEMENT OU REPORT SUR 'SMASK' : ON
< TROUVERA DANS LE REGISTRE 'A' : IPM=IOM.
<
SMMK2: EQU $
BSR ASYSER < E R R E U R S Y S T E M E ...
JMP SMMK3 < ET ON RESSORT PAR LE MASQUAGE
< GENERAL DU PROCESSEUR.
<
<
< D E M A S Q U A G E G E N E R A L :
<
<
SMDK: EQU $
PSR A
<
< TEST DE L'ETAT COURANT DU PROCESSEUR :
<
CALL #SISP CMS5 RST#
TBT IPM
JNC SMDK2 < S Y S E R : LES INTERRUPTIONS
< INTER-PROCESSEURS NE SONT PAS
< MASQUEES !!!
TBT IOM
JNC SMDK2 < S Y S E R : LES INTERRUPTIONS
< D'ENTREES-SORTIES/DEFAUT SECTEUR
< NE SONT PAS MASQUEES !!!
DC SMASK < DECOMPTAGE DES IMBRICATIONS DE
< MASQUAGE.
< (NOTA : CE 'DC' EST FAISABLE
< DIRECTEMENT SUR 'SMASK', CAR
< EN EFFET LES INTERRUPTIONS
< SONT MASQUEES : IPM=IOM=1,
< IL N'Y A DONC PAS DE PROBLEMES
< D'INTERRUPTIBILITE...)
JG SMDK1 < SMASK>0 : LE PROCESSEUR N'EST PAS
< ENCORE SORTI DE LA PHASE MASQUEE
< COURANTE, IL Y RESTE DONC...
JL SMDK2 < S Y S E R : SMASK<0; ON A ALORS
< LE 'CARY' A 1.
<
< DEMASQUAGE REEL DU PROCESSEUR :
<
SMDK3: EQU $
PSR A,B,X
IC KTDEFS < INHIBITION DES TESTS DE 'TDEFS'
< (CETTE INHIBITION DES DEFAUTS SECTEUR
< EN ATTENTE EST PLACEE ICI CAR 'SMASK'
< VIENT DE PASSER A 0, MAIS LES INTER-
< RUPTIONS NE SONT PAS EFFECTIVEMENT
< DEMASQUEES ; ON RISQUE DONC UNE SYSER
< AU 'RESTART'...)
BSR ASMWHO < QUI EST LA ???
DC KTDEFS < AUTORISATION DES TESTS DE 'TDEFS'
CPI TYPTH < EST-CE UN TACHE HARD?
JNE SMDK4 < OK, CE N'EST PAS UNE TACHE 'HARDWARE'...
<
< S Y S E R : UNE TACHE 'HARDWARE' VEUT DEMASQUER SES
< INTERRUPTIONS !!!
<
< (A)='TYPTH',
< (B)=NUMERO DE LA TACHE 'HARDWARE'.
<
BSR ASYSER < E R R E U R S Y S T E M E ...
PLR A,B,X
JMP SMDK1 < PUIS, ON IGNORE LE DEMASQUAGE...
SMDK4: EQU $
PLR A,B,X
LRM A
WORD MIPM?MIOM
RST < DEMASQUAGE DES INTERRUPTIONS
< INTER-PROCESSEURS (IPM) ET D'ENTREES-
< SORTIES/DEFAUT SECTEUR (IOM).
EIT < ET OUI, IL FAUT QUAND MEME EXECUTER
< L'INSTRUCTION 'EIT' DE DEMASQUAGE
< DU BIT 'IOM' CAR L'INSTRUCTION 'EIT'
< PERMET DE TESTER LES INTERRUPTIONS
< EN ATTENTE DEPUIS LE MASQUAGE,...
< BRAVO LA 'SEMS' !!!
ACQ < A T T E N T I O N : UNE TACHE 'HARD-
< WARE' NE DEMASQUE JAMAIS SES INTER-
< RUPTIONS EXPLICITEMENT ; EN CONSEQUENCES
< UNE TACHE 'HARDWARE' NE FERA JAMAIS CET
< 'ACQ' ; A QUOI SERT-IL ??? LORSQUE LES
< INTERRUPTIONS SONT MASQUEES, ON NE PEUT
< TOUCHER AUX DONNEES DU 'MICRO-SCHEDULER'
< QUE PAR PROGRAMME, ET NON EN UTILISANT
< LES INSTRUCTIONS DE SON OPTION ; LORSQUE
< LES INTERRUPTIONS SE DEMASQUENT, IL FAUT
< FAIRE PRENDRE EN COMPTE CES MODIFICATIONS
< EN FORCANT UN PASSAGE DANS LE 'MICRO-
< SCHEDULER' PAR CET 'ACQ'...
SMDK1: EQU $
PLR A
RSR
<
< S Y S E R : LORS DU DEMASQUAGE GENERAL :
<
< 1- IPM#IOM : LE 'CARY' VAUT ALORS 0,
< 2- SMASK<0 : LE 'CARY' VAUT ALORS 1.
<
SMDK2: EQU $
BSR ASYSER < E R R E U R S Y S T E M E ...
JMP SMDK3 < ET ON RESSORT PAR UN DEMASQUAGE
< GENERAL.
PAGE
<
<
< A D R E S S E D ' U N E ' P S T H ' :
<
<
< FONCTION :
< CE SOUS-PROGRAMME RENVOIE
< L'ADRESSE DE LA 'PSTH' D'UNE
< TACHE HARDWARE DONT LE NIVEAU
< EST DONNE.
<
< ARGUMENT:
< (A)=NIVEAU DE LA TACHE HARDWARE.
<
< RESULTAT
< (B)=ADRESSE DE LA 'PSTH' ASSOCIEE.
<
<
SMTH: EQU $
PSR X < SAUVEGADE...
LR A,B < (A)=(B)=NIVEAU HARDWARE,
SLLS LPSTH=K < (A)=NIVEAU HARD*LPSTH,
LR A,X < (X)=INDEX PSTH(I),
LAD &AXPSTH < (A)=ADRESSE PSTH(I),
XR A,B < (A)=NIVEAU HARDWARE,
< (B)=ADRESSE PSTH(I).
PLR X < RESTAURATION...
RSR
PAGE
<
<
< I D E N T I F I C A T I O N D U
< D E M A N D E U R :
<
<
< FONCTION :
< CE SOUS-PROGRAMME PERMET DE
< CONNAITRE LE DEMANDEUR ET
< DE DISCRIMINER LES 'TACHES
< SOFTWARES' DES 'TACHES
< HARDWARES'...
< ON NOTERA A CE PROPOS QUE 'CMS5'
< ASSIMILE LE DEFAUT SECTEUR A UNE
< 'TACHE HARDWARE'...
<
<
< A T T E N T I O N :
< POUR DONNER UN RESULTAT CORRECT (DANS
< LA TACHE DEFAUT SECTEUR S'IL Y EST APPELE),
< CE SOUS-PROGRAMME DOIT ETRE UTILISE APRES
< LA MISE A JOUR DE 'ICSAV' INDIQUANT QUE
< LA SAUVEGARDE DES REGISTRES DE LA TACHE
< INTERROMPUE A ETE FAITE !!!
<
<
< RESULTAT :
< (A)=TYPE DISCRIMINANT UNE 'TACHE
< SOFTWARE' ('TYPTS') D'UNE
< 'TACHE HARDWARE' ('TYPTH'),
< (B)=NUMERO DE 'TACHE HARDWARE' SI
< 'TYPTH', OU 'NSP' SI 'TYPTS'.
<
<
SMWHO: EQU $
PSR X < SAUVEGARDE DE 'X'...
CALL #SISP CMS5 RST#
TBT WARNG < Y-A-T'IL UN DEFAUT SECTEUR ???
JNC SMWHO2 < NON...
<
< CAS OU IL Y A UN DEFAUT SECTEUR,
< MAIS IL FAUT D'ABORD SAVOIR S'IL
< EST ACTIF OU EN ATTENTE :
<
PSR W < SAUVEGARDE DE 'W'...
LAI NUMDEF < (A)=NUMERO DE LA TACHE 'DEFSEC',
BSR ASMIC < RENVOIE (B)=ADRESSE 'IC' DE LA
< TACHE 'HARD' DONT LE NUMERO
< EST DANS 'A'...
LR B,W
USE W,PSTH < POUR BASER L''IC' DU 'DEFSEC'...
CPZ ICSAV < INDICATEUR DE SAUVEGARDE DE
< LA TACHE 'DEFSEC' ELLE-MEME...
PLR W < RESTAURATION DE 'W'...
JE SMWHO2 < ET BIEN, ON N'EST PAS DANS LA
< TACHE DEFAUT SECTEUR, BIEN QUE
< CE DERNIER SOIT EN ATTENTE ; CELA
< SIGNIFIE QUE LES INTERRUPTIONS
< SONT MASQUEES !!!
<
< C A S D U ' D E F A U T S E C T E U R ' :
<
LAI TYPTH < (A)='TYPTH' MALGRE TOUT...
LBI NUMDEF < (B)=NUMERO DE LA 'TACHE DEFAUT
< SECTEUR'.
JMP SMWHO1 < ET C'EST TOUT...
<
< ' T H ' O U ' T S ' :
<
SMWHO2: EQU $
RDHV < POUR DISCRIMINER LES 'TH' DES 'TS',
< IL SUFFIT DE LIRE LE REGISTRE 'HV'
< DONNANT LES 'TACHES HARDWARES'
< EN COURS.
LBI K < CLEAR DU REGISTRE 'B', AFIN QUE
< L'INSTRUCTION 'DBT' FONCTIONNE BIEN...
DBT < RECHERCHE D'UNE 'TACHE HARDWARE' ACTIVE
< (LA PLUS PRIORITAIRE).
JC SMWHO3 < 'CARY'=1 : IL N'Y A PAS DE 'TACHES
< HARDWARES' ACTIVES...
<
< C A S D ' U N E ' T A C H E H A R D W A R E ' :
<
LAI TYPTH < (A)='TYPTH'.
LR X,B < LE 'DBT' A MIS LE NUMERO DE CETTE
< 'TACHE HARDWARE' DANS 'X', ON LE
< REMET DANS 'B'.
JMP SMWHO1 < ET C'EST TOUT...
<
< C A S D ' U N E ' T A C H E S O F T W A R E ' :
<
SMWHO3: EQU $
LB &ANS < (B)='NIVEAU SOFTWARE' DE CETTE 'TACHE
< SOFTWARE' DONNE PAR LE MOT 'NS'
< DE LA MEMOIRE DEBANALISEE.
ADRI -NSNSP0,B < TRANSLATION DU 'NS' POUR OBTENIR
< LE 'NSP'
LAI TYPTS < PUIS (A)=TYPTS...
<
< R E T O U R A U D E M A N D E U R :
<
SMWHO1: EQU $
PLR X < RESTAURATION DE 'X'...
RSR
PAGE
<
<
< L E C T U R E E T A F F I C H A G E P U P I T R E
<
<
SIOPUI: WORD ACPUP?FPHIN < OPERANDE 'SIO' ENTREE INFORMATION,
SIOPUE: WORD ACPUP?FPHETA < OPERANDE 'SIO' ENTREE ETAT,
SIOPUO: WORD ACPUP?FPHOUT < OPERANDE 'SIO' SORTIE INFORMATION,
SIOPUC: WORD ACPUP?FPHCME < OPERANDE SIO SORTIE VOYANTS SELECTION.
<
<
< FONCTION :
< CE S/P LIT DANS 'A' LE MOT ENTRE AU PUPITRE
< ET PLACE DANS 'B' LE MOT D'ETAT DU PUPITRE. LE
< PROGRAMME APPELANT DEVRA TESTER LE CONTENU DE
< 'B' POUR SAVOIR S'IL DOIT OU NON PRENDRE EN
< COMPTE LE CONTENU DE 'A', ENFIN, IL
< POSITIONNE LE CARRY 'C' PAR UN 'TBT'
< SUR LE BIT INFORMATION VALIDE, SOIT
< LE BIT 'ETAPIV' DE 'B'...
<
<
SMPUI: EQU $
BSR ATDEFS < AU CAS OU L'APPELANT FERAIT UN BOUCLAGE
< SUR CE SOUS-PROGRAMME, EN ATTENDANT
< DES INFORMATIONS VALIDES...
PSR L < SAUVEGARDE...
LRM L
WORD SIOPUI < (L)=ADRESSE DE L'OPERANDE D'ENTREE
< D'INFORMATION.
SIO SIOPUI-SIOPUI,L < LECTURE DANS 'A' DU PUPITRE,
LR A,B
SIO SIOPUE-SIOPUI,L < LECTURE DANS 'A' DU MOT D'ETAT,
XR A,B < (A)=MOT LU,
< (B)=MOT D'ETAT PUPITRE.
PLR L < RESTAURATION...
TBT NBITMO+PUPLOC < LE PUPITRE EST-IL LOCKE ???
JC SMPUI1 < NON, OK...
RBT NBITMO+ETAPIV < OUI, ON FAIT COMME S'IL N'Y AVAIT PAS
< D'INFORMATION VALIDE...
SMPUI1: EQU $
TBT NBITMO+PUSTEP < Y-A-T'IL EU ACTION SUR 'STEP' ???
JC SMPUI2 < OUI, OK...
RBT NBITMO+ETAPIV < NON, ON FAIT COMME S'IL N'Y AVAIT
< PAS D'INFORMATION VALIDE...
SMPUI2: EQU $
TBT NBITMO+ETAPIV < POUR PERMETTRE UN TEST AU RETOUR
< SUR "INFORMATION VALIDE"...
RSR
<
<
< V I S U A L I A T I O N P U P I T R E :
<
<
< FONCTION :
< CE S/P VISUALISE AU PUPITRE LE CONTENU
< DU REGISTRE 'A', SANS ATTENDRE LA FIN DE TRANSFERT
< DU REGISTRE 'DATA OUT' AU VOYANTS DU PUPITRE...
<
<
SMPUO: EQU $
PSR L
LRM L
WORD SIOPUO < (L)=ADRESSE DE L'OPERANDE DE SORTIE.
SIO SIOPUO-SIOPUO,L < ET AFFICHAGE DE L'INFORMATION (A)...
PLR L
RSR
PAGE
<
<
< S Y S E R - T R A I T E M E N T D E S E R R E U R S :
<
<
< FONCTION:
< CE S/P EST APPELE LORSQU'EST RENCONTREE
< UNE ERREUR SYSTEME. IL REGARDE SI L'ON EST EN
< PHASE MASQUEE OU NON, ET AGIT COMME SUIT :
< - SI L'ON EST EN PHASE MASQUEE,
< IL BOUCLE SUR UN APPEL A TDEFS OU
< BIEN A SMPUI SUIVANT LA VALEUR 0/1
< DE 'RECON' DANS 'ETASYS'.
< - SI L'ON N'EST PAS EN PHASE MASQUEE,
< IL FAIT 'ACTD'...
<
<
SYSER: EQU $
XKREG: VAL K < INITIALISATION DU CUMUL DES REGISTRES.
#@PSR A,B,L < #SISP CMS5 KREG#
XWOR%1: VAL -XKREG < NOMBRE DE REGISTRES EMPILES.
LR K,L < 'L' BASE LA PILE 'K'...
LA -XWOR%1,L < (A)=VALEUR DU REGISTRE 'P' DE 'SYSER'.
LRM L
WORD SIOPUC < (L)=BASE DES ARGUMENTS DU PUPITRE.
SIO SIOPUC-SIOPUC,L < VISUALISATION DU REGISTRE 'P' DE
< 'SYSER' SUR LES VOYANTS 'SELECTION'.
BSR ASMIT < TEST MASQUAGE DES INTERRUPTIONS :
JANE SYSER1 < PHASE MASQUEE...
<
< P H A S E N O N M A S Q U E E :
<
ACTD
JMP SYSER2
SYSER1: EQU $
<
< P H A S E M A S Q U E E :
<
LA ETASYS
TBT RECON < QUEL EST LE TYPE DE BLOCAGE DE 'TH0' ???
JNC SYSER3 < BLOCAGE AVEC DEBLOCAGE MANUEL...
SYSER4: EQU $ < BLOCAGE AVEC DEBLOCAGE 'CLEAR'+'MEM'...
BSR ASMPUI < ET BIEN LISONS LE PUPITRE...
JNC SYSER4 < RIEN DE BIEN INTERESSANT...
JMP SYSER2 < ET OUI, C'EST FINI...
SYSER3: EQU $ < BLOCAGE AVEC DEBLOCAGE MANUEL...
BSR ATDEFS
ZSYSER: EQU $ < ADRESSE DE BOUCLAGE SUR SYSER
< AVEC INTERRUPTIONS MASQUEES.
JMP SYSER3
<
< ET RETOUR :
<
SYSER2: EQU $
LAI K
SIO SIOPUC-SIOPUC,L < NETTOYONS LES VOYANTS 'SELECTION'...
PLR A,B,L
RSR
PAGE
<
<
< D E T E C T I O N D E S D E F A U T S
< S E C T E U R E N A T T E N T E :
<
<
< FONCTION :
< LE DEFAUT SECTEUR EST MALHEUREU-
< SEMENT MASQUE PAR LE BIT 'IOM' ;
< EN CONSEQUENCE, PUISQUE LE SYSTEME
< CONTIENT DE TRES NOMBREUSES PHASES
< MASQUEES DE DUREE INDETERMINEE, IL
< FAUT POUVOIR AU COURS DE CES MASQUAGES
< DETECTER LES DEFAUTS SECTEURS EN
< ATTENTE, ET FAIRE QUELQUE CHOSE,
< CAR SI RIEN N'EST FAIT :
< 1 - LE DEFAUT SECTEUR NE SERA PAS
< TRAITE, ET LE 'RESTART' NE POURRA SE
< FAIRE,
< 2 - LA MACHINE N'ETANT PAS MISE
< EN 'HALT' AU MOMENT DE LA DISPARITION
< EFFECTIVE DU COURANT, LA MEMOIRE EXECUTERA
< DES CYCLES COMPLETEMENT FARFELUS
< LA RENDANT NON INTEGRE !!!
<
< AUSSI, CE PETIT SOUS-PROGRAMME
< MIRACLE SERA APPELE PARTOUT OU DES
< PHASES MASQUEES LONGUES SONT A
< PREVOIR (PAR EXEMPLE TEST DE VER-
< ROUILLAGES...). S'IL DETECTE UN DEFAUT SECTEUR
< EN ATTENTE, IL IDENTIFIERA L'APPELANT :
< 1 - S'IL S'AGIT DE LA TACHE 'DEFAUT
< SECTEUR ELLE-MEME, IL N'Y A RIEN A
< FAIRE,
< 2 - S'IL S'AGIT D'UNE 'TACHE SOFTWARE',
< ON DEMASQUE LE DEFAUT SECTEUR, QUI VA
< DONC PASSER ; VU QU'IL S'AGIT D'UN CHAN-
< GEMENT DE CONTEXTE ENTRE UNE 'TACHE
< SOFTWARE' ET UNE 'TACHE HARDWARE' (LE
< 'DEFAUT SECTEUR'), LA REPRISE ('RESTART')
< SE FERA BIEN : LA 'PSTS' SERA REGENEREE.
< 3 - S'IL S'AGIT D'UNE 'TACHE HARDWARE',
< LE PROBLEME EST PLUS CORSE ; IL FAUT
< D'ABORD SAUVEGARDER LES REGISTRES
< 'A', 'B', 'X', 'Y', 'L', 'W', 'SLO'
< ET 'SLE' DANS LA PILE, ET LES REGISTRES
< 'C', 'K', 'P' ET 'S' DANS UNE FAUSSE
< 'PSTH' ; IL FAUT ENSUITE RESTAURER
< LES REGISTRES DE LA TACHE INTERROMPUE
< PAR CETTE 'TACHE HARDWARE' PUIS
< FAIRE COMME SI ELLE S'ETAIT TERMINEE
< NORMALEMENT ('ACQ') ; C'EST A CE MOMENT
< LA QUE PASSERA LE DEFAUT SECTEUR, ET ON
< SERA AINSI RAMENE A L'INTERRUPTION
< D'UNE 'TACHE HARDWARE' ALORS QU'ELLE
< N'A ENCORE RIEN FAIT (JUSTE A SON
< POINT D'ENTREE) ; UNE TELLE 'TACHE
< HARDWARE' PEUT ENSUITE VOIR SA 'PSTH'
< REINITIALISEE BRUTALEMENT SANS
< PROBLEME... LORS DU 'RESTART' SI ON
< DETECTE UNE 'TACHE HARDWARE' INTERROMPUE
< PAR CE SOUS-PROGRAMME, ET BIEN ON
< REINITIALISE SA 'PSTH' AVEC LA
< FAUSSE 'PSTH' GENEREE AU MOMENT DU
< DEFAUT SECTEUR...
<
<
< ETAT DES INTERRUPTIONS :
< ON NOTERA AVEC PROFIT QUE SI
< 'TDEFS' ENTREPREND QUELQUE CHOSE
< LORSQU'IL A DETECTE UN DEFAUT SECTEUR,
< C'EST QUE LES INTERRUPTIONS ETAIENT
< MASQUEES, CAR SINON, ET BIEN LE PAUVRE,
< IL N'AURAIT RIEN VU...
< DANS CES CONDITIONS, IL N'Y A PAS POUR
< 'TDEFS' DE PROBLEMES DE REENTRANCE
< LORSQU'IL TRAVAILLE, MAIS UNIQUEMENT
< DES PROBLEMES DE RECURSIVITE (EN
< PARTICULIER S'IL EST APPELE PAR
< LE RECEPTEUR DES 'SVC' MAITRES, CAR
< LUI MEME FAIT DES 'SVC') ; CE PROBLEME
< EST RESOLU A L'AIDE D'UN COMPTEUR
< QUI N'A DONC PAS BESOIN D'ETRE "REEN-
< TRANT" ET QUI PERMET DE COMPTER LES
< IMBRICATIONS D'APPEL...
<
<
< NOTA :
< CE PROGRAMME EST EMPRUNTE A 'CMS4-MP'
< ET CERTAINS COMMENTAIRES PEUVENT PARAITRE
< DE CE FAIT ERRONES (ADRESSE DE 'IC' TRANSLATEE
< DE 'DEPLH'... PAR EXEMPLE).
<
TDEFS: EQU $
PSR A
CALL #SISP CMS5 RST#
TBT WARNG < Y-A-T'IL UN DEFAUT SECTEUR
< EN ATTENTE ???
JNC TDEFS1 < NON, DONC RIEN A FAIRE...
<
< APPAREMMENT, ON A TROUVE LE BIT 'WARNG'
< A '1' DANS LE REGISTRE 'A' MAIS CELA NE
< PROUVE PAS QU'IL SOIT TOUJOURS A '1' DANS
< LE REGISTRE 'ST' ; EN EFFET, SI LES INTER-
< RUPTIONS NE SONT PAS MASQUEES, UN DEFAUT
< SECTEUR A PU PASSER ENTRE LA LECTURE
< DE 'ST', ET LE TEST DE 'WARNG' ; EN
< CONSEQUENCES, 'TDEFS' NE DOIT ETRE
< FAIT QUE SI LES INTERRUPTIONS SONT
< MASQUEES ; SI ELLES NE SONT PAS, LE
< DEFAUT SECTEUR PASSERA TOUT SEUL...
<
< LES INTERRUPTIONS SONT-ELLES MASQUEES ???
< (ON NE PEUT UTILISER 'NSMIT', CAR LES
< 'SVC' MAITRES REFERENCENT 'TDEFS', ET ON
< N'A PAS ENCORE ELIMINER LES APPELS
< RECURSIFS...)
<
PSR B
XMASK: VAL MIPM?MIOM < GENERATION D'UN MASQUE DE TEST DES
< BITS 'IPM' ET 'IOM'.
LRM B
WORD XMASK < (B)='XMASK'.
ANDR B,A < (A)=K SI LES INTERRUPTIONS NE SONT
< PAS MASQUEES...
PLR B < RESTAURATION DES CONDITIONS DE RETOUR.
JAE TDEFS1 < LES INTERRUPTIONS N'ETANT PAS MASQUEES,
< IL EST INUTILE DE FAIRE 'TDEFS'...
<
< LORSQUE LES INTERRUPTIONS SONT MASQUEES :
<
<
< ELIMINATION DES APPELS RECURSIFS :
<
IC KTDEFS < INHIBITION DES TESTS DE 'TDEFS' PAR
< COMPTAGE DES ENTREES EMBOITEES DANS
< 'TDEFS' ET TRAITANT UN DEFAUT SECTEUR ;
< RAPPELONS QU'IL N'Y A PAS DE PROBLEMES
< DE REENTRANCE CAR ON EST SUR QUE LES
< INTERRUPTIONS SONT MASQUEES...
JG TDEFS7 < ELIMINATION DE TOUS LES APPELS,
< SAUF LE PREMIER ('KTDEFS'=K) BIEN
< ENTENDU !!!
<
< CAS OU UN DEFAUT SECTEUR EST DETECTE :
< EST-IL ACTIF OU BIEN EN ATTENTE ???
<
PSR B,X
BSR ASMWHO < QUI EST LA ??? QUI A APPELE
< CE SOUS-PROGRAMME.
< ON TROUVE DANS :
< 'A' : LE TYPE 'TYPTH'/'TYPTS',
< 'B' : L'IDENTIFICATEUR ('NSP' OU
< NUMERO DE 'TACHE HARDWARE').
JAE TDEFS2 < CAS DES TACHES SOFTWARES...
<
< C A S D E S ' T A C H E S H A R D W A R E S ' :
<
XR A,B < POUR TESTER L'IDENTIFICATEUR.
CPI NUMDEF
JE TDEFS3 < ET OUI, C'EST LE DEFAUT SECTEUR,
< IL FAUT LE LAISSER SE DEROULER
< NORMALEMENT...
<
< CAS DES 'TACHES HARDWARES' DE 'TH0' A 'TH0+NMTH-1' :
<
XR A,B
STA TYPDEF < SAUVEGARDE DU TYPE 'TYPTH',
STB IDEDEF < ET DE L'IDENTIFICATEUR...
LA SMASK < SAUVEGARDE DE L'ETAT D'IMBRI-
STA MKDEF < CATION DES INTERRUPTIONS.
< A T T E N T I O N :
< (A)='SMASK' !!!
< AINSI ON EMPILE LE 'SMASK' ACTIF
< AU MOMENT DU DEFAUT SECTEUR...
PSR A,B,X,Y < SAUVEGARDE DES REGISTRES N'APPARTE-
PSR C,L,W < AUX CONTEXTES PARTIELS AINSI QUE 'C'.
CALL #SISP CMS5 PSRSLO#
< LECTURE DES REGISTRES (SLO,SLE),
< ET EMPILEMENT DE SAUVEGARDE...
LRM W
WORD FPSTH < 'W' VA BASER UNE FAUSSE 'PSTH'
< DESTINEE A UNE SAUVEGARDE DU
< CONTEXTE PARTIEL DE LA TACHE.
USE W,PSTH
<
< A T T E N T I O N :
< LA BASE 'C' A ETE EMPILEE, ET CE QUE
< L'ON VA METTRE DANS LE MOT 'HC' DE LA
< 'PSTH' EST EN FAIT LE REGISTRE 'L' QUI
< CONTIENT L'ADRESSE DE 'IC'
<
< (ET CECI POUR EVITER DES ALEAS DUS
< AU DEFAUT SECTEUR...)
<
LR K,A
STA HK < SAUVEGARDE DU REGISTRE 'K'.
LRM A
WORD TDEFS5
STA HP < SAUVEGARDE DU REGISTRE 'P' A
< UTILISER LORS DE LA REAPPARITION
< DU SECTEUR.
LAI K < CLEAR DU REGISTRE A AFIN DE LIRE
RST < LE REGISTRE ST DANS A PAR RST
STA HS < SAUVEGARDE DU REGISTRE 'S' COMPLET...
<
< SAUVEGARDE DU CHAMP 'MALARM' DES 'PSTH' :
<
LA IDEDEF < (A)=NUMERO DE LA 'TACHE HARDWARE'.
SLLS LPSTH=K < (A)=NUMERO TH * LPSTH.
ADRI HS-PSTH,A < (A)=INDEX D'ACCES AU MOT HS DE
< LA "BONNE" PSTH
LR A,X < QU'ON PLACE DANS 'X'...
LA &AXPSTH < (A)=MOT 'HS' DE LA 'PSTH',
ANDI MALARM < RECUPERATION DU CHAMP 'MALARM'
STA ALADEF < QUE L'ON SAUVEGARDE, CE QUI EST
< BIEN UTILE SI L'ON EST DANS LA
< 'TACHE HARDWARE' 0...
<
< SIMULONS UNE FAUSSE FIN DE 'TACHE HARDWARE' :
<
LA IDEDEF < (A)=NUMERO DE LA 'TACHE HARDWARE' EN
< COURS.
BSR ASMIC < RENVOIE : (B)=ADRESSE DU 'IC' DE
< CETTE TACHE.
STB HC < LE MOT 'HC' VA MEMORISER LA
< BASE 'L', SOIT L'ADRESSE DE 'IC'
< TRANSLATEE DE 'DEPLH' (OU 'DEPCH').
LR B,L < (L)=ADRESSE DU 'IC' DE LA TACHE QUE
< L'ON DESIRE INTERROMPRE.
USE W,DEM0
USE L,PSTH < PUISQUE 'IC' ET 'PSTH' UTILISENT
< LA MEME 'DSEC'...
LA HK < (A)=VALEUR INITIALE DU REGISTRE 'K'
< DE LA 'TACHE HARDWARE' A INTER-
< ROMPRE.
WORD AREGTH < AFIN DE METTRE 'K' A LA VALEUR QU'IL
< AVAIT APRES LA SAUVEGARDE COMPLEMENTAIRE
< DES REGISTRES DE LA TACHE INTERROMPUE.
LR A,K < 'K' PREND LA VALEUR QU'IL DOIT
< AVOIR A L'ENTREE DE 'SISP CMS5 THDEB'.
<
< ET MAINTENANT NOUS POUVONS ENTREPRENDRE EN TOUTE
< TRANQUILLITE D'ESPRIT UN FAUX EPILOGUE DE VRAIE
< TACHE HARD, NON-PARAMETRE (ATTENTION AUX MODIFS !!)
< TERMINE PAR UN ACQ TRES ATTENDU PAR TOUT LE
< MONDE LIBRE, SURTOUT PAR DEFSEC QUI TREPIGNE D'IMPATIENCE...
<
XKREG: VAL K < INITIALISATION DU CUMUL DES REGISTRES.
#@PLR L < #SISP CMS5 KREG# ADRESSE 'IC'...
#@PLR A,B < #SISP CMS5 KREG#
THDSL1:: VAL -XKREG < POUR CALCULER 'THDSLO' PLUS LOIN...
WOE < MISE EN PLACE DE (SLO,SLE) DE LA TACHE
< INTERROMPUE...
STZ ICSAV < INDICATEUR DE SAUVEGARDE...
LR L,C < EN PREVISION DE L'ACQ...
#@PLR L,W < #SISP CMS5 KREG#
#@PLR A,B,X,Y < #SISP CMS5 KREG#
LREGTH:: VAL -XKREG < NOMBRE DE REGISTRES DEPILES.
<*******************************************************************************
BREGTH: ADRI LREGTH,A < GENERATION D'UNE INSTRUCTION "EN AVANT".
XWOR%1: VAL '0000000@@@@ < RECUPERATION DU CODE GENERE.
<*******************************************************************************
AREGTH: EQU ZERO+XWOR%1 < CODE GENERE DEFINI "EN AVANT"...
$EQU BREGTH < ANNULATION DU CODE GENERE.
ACQ < DESARMEMENT,
< LE DEFAUT SECTEUR PASSE DONC ICI !!!
<
< POINT DE RETOUR DE LA 'TACHE HARDWARE'
< INTERROMPUE : ON SUPPOSE EVIDEMMENT QUE
< 'C', 'K', 'P' ET 'S' ONT LA VALEUR
< QU'ILS AVAIENT DANS LA FAUSSE 'PSTH' :
<
TDEFS5: EQU $
CALL #SISP CMS5 FTHDEB# < COMME SON NOM L'INDIQUE,
< C'EST UN FAUX PROLOGUE DE
< TACHE HARD (ON NE GENERE PAS
< EN EFFET LE FAMEUX THXX: EQU $
< QUI DEROUTERAIT QUELQUE PEU
< L'ASSEMBLEUR...
<
< UTILISATION DES BASES :
< (C)=COM+DEPCS
< (L)=ICXX
<
<
< RESTAURATION DU CHAMP 'MALARM' DES 'PSTH' :
<
LA ICNUM < (A)=NUMERO DE LA 'TACHE HARDWARE'.
SLLS LPSTH=K < (A)=INDEX DE LA "BONNE" PSTH
ADRI HS-PSTH,A < POUR ACCES AU MOT 'HS',
LR A,X
LB &AXPSTH < CHARGEMENT DU MOT 'HS'.
LAI K < RECUPERATION DE LA VALEUR DU CHAMP
XM ALADEF < 'MALARM' ET REINITIALISATION ;
< ON NOTERA, QUE SI JE NE ME SUIS
< PAS TROMPE, LES INTERRUPTIONS SONT
< MASQUEES DEPUIS LE DEBUT DU 'RESTART',
< ET QU'IL N'Y A DONC PAS DE PROBLEMES
< QUAND A LA VALEUR DE 'ALADEF' PUISQUE
< LE DEFAUT SECTEUR EST MASQUE...
ANDI MALARM < PAR PURE PRUDENCE...
ORR B,A < POUR AVOIR LE 'ST' COMPLET
STA &AXPSTH < RESTAURATION DU CHAMP 'MALARM'
< DE LA 'PSTH' COURANTE.
<
< DEPLACEMENT DES REGISTRES DE LA 'TACHE
< SOFTWARE' INTERROMPUE PAR CETTE 'TACHE
< HARDWARE' AFIN D'EFFECTUER ULTERIEURE-
< MENT UNE SORTIE NORMALE DE CETTE 'TACHE
< HARDWARE' ; N'OUBLIONS PAS QUE L'ON EST
< ICI DANS 'TDEFS'...
<
LR K,A < 'A' CONTIENT L'ADRESSE DU MOT CON-
< TENANT LE DERNIER REGISTRE EMPILE.
ADRI -LREGTH+Z,A
< (A)=ADRESSE EMETTEUR=ADRESSE DU MOT
< CONTENANT LE PREMIER REGISTRE
< EMPILE PAR 'SI CMS5 THDEB'
USE L,PSTH < BASE 'IC'
LB HK < (B)=VALEUR INITIALE DU REGISTRE 'K'
< 'K' DE LA TACHE 'HARDWARE'
ADRI DEPILE,B < (B)=ADRESSE RECEPTEUR=ADRESSE DU
< MOT CONTENANT NORMALEMENT LE
< PREMIER MOT EMPILE PAR
< 'SI CMS5 THDEB'.
LXI LREGTH < (X)=NOMBRE DE REGISTRES EMPILES.
MOVE < REGENERATION DU DEBUT DE LA
< PILE DE LA 'TACHE HARDWARE' AFIN
< QUE SA SORTIE NORMALE SE FASSE
< BIEN...
ADRI -LREGTH,K < ANNULATION DES EMPILEMENTS FAITS.
<
< RESTAURATION DE LA 'TACHE HARDWARE' TELLE
< QU'ELLE ETAIT AU MOMENT DU DEFAUT SECTEUR :
<
< DEPILEMENT DE RESTAURATION ET
CALL #SISP CMS5 PLRSLO#
< REECRITURE DES REGISTRES (SLO,SLE)...
PLR C,L,W < PUIS ON RESTAURE LA VALEUR DES REGISTRES
PLR A,B,X,Y < N'APPARTENANT PAS AU CONTEXTE PARTIEL.
< AINSI QUE LA BASE 'C'...
< A T T E N T I O N :
< (A)='SMASK' : ON DEPILE AINSI LE
< 'SMASK' ACTIF AU MOMENT DU DEFAUT
< SECTEUR.
STA SMASK < ON TRICHE UN PEU, N'EST-IL PAS ?!?!!??
JMP TDEFS4 < ET C'EST PRESQUE FINI...
<
< C A S D E S ' T A C H E S S O F T W A R E S ' :
<
TDEFS2: EQU $
STA TYPDEF < SAUVEGARDE DU TYPE 'TYPTS', AINSI
STB IDEDEF < QUE L'IDENTIFICATEUR DE LA TACHE ('TN').
LA SMASK < SAUVEGARDE DE L'ETAT DES IMBRICATIONS
STA MKDEF < DE MASQUAGE DES INTERRUPTIONS.
LAI K
SBT IOM
RST < DEMASQUAGE DES INTERRUPTIONS D'ENTREES-
< SORTIES ET DEFAUT SECTEUR ; AINSI, LE
< DEFAUT SECTEUR VA PASSER ICI, ET LUI
< SEUL PUISQU'IL EST LE PLUS PRIORITAIRE.
<
< POINT DE RETOUR COMMUN AUX
< 'TACHES' 'HARDWARES' ET 'SOFTWARES' :
<
TDEFS4: EQU $
BSR ASMIT < LES INTERRUPTIONS SONT-ELLE MASQUEES ?
< RAPPELONS QUE C'EST LE 'RESTART' QUI
< DECIDE DE LAISSER LES INTERRUPTIONS
< MASQUEES, OU BIEN DE LES DEMASQUER...
JANE TDEFS3 < OK, ELLES SONT MASQUEES...
<
< S Y S E R : LES INTERRUPTIONS NE SONT PAS MASQUEES,
< ALORS QU'ETANT INTERROMPU DANS 'TDEFS',
< C'EST QUE LES INTERRUPTIONS ETAIENT MASQUEES !!!
<
< NS=NIVEAU DE LA TACHE 'SOFTWARE' SI ON
< EST BIEN DANS UNE TACHE 'SOFTWARE'...
< LE REGISTRE 'HV' DISCRIMINE LES TACHES
< 'HARDWARES' DES TACHES 'SOFTWARES'.
<
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< LE MIEUX PARAIT DE FAIRE UN MASQUAGE
< DE 'IOM' ET 'IPM'...
<
TDEFS3: EQU $
PLR B,X
TDEFS7: EQU $
DC KTDEFS < AUTORISATION DES TESTS DE TDEFS
< DECOMPTAGE DES APPELS EMBOITES...
TDEFS1: EQU $
PLR A
RSR < OUF...
<
<
< F A U S S E ' P S T H ' :
<
<
CALL #SISP CMS5 CHECK#
FPSTH: EQU $
DZS LPSTH
CALL #SISP CMS5 CHECK#
PAGE
<
<
< T A C H E D E F A U T S E C T E U R :
<
<
< FONCTION :
< LA TACHE 'DEFAUT SECTEUR' EST DESTINEE
< A TRAITER L'APPARITION DES DEFAUTS D'ALI-
< MENTATION SECTEUR.
< CE TRAITEMENT EST RENDU FORT COMPLEXE
< PAR LA NOTION DE 'CONTEXTE PARTIEL' ; EN
< EFFET, SI LES CHANGEMENTS DE CONTEXTES
< RELATIFS AUX INTERRUPTIONS SE FAISAIENT
< COMME LES CHANGEMENTS DE CONTEXTE DES
< 'TACHES SOFTWARES' LES 'PSTS' ET LES
< 'PSTH' AURAIENT UN CONTENU INTEGRE ;
< MALHEUREUSEMENT CE N'EST PAS LE CAS.
< DONC, LORSQUE LE DEFAUT SECTEUR APPA-
< RAIT, IL S'AGIT DE :
< RECONSTITUER LA 'PSTS' DE LA 'TACHE
< SOFTWARE' DONT LE 'NIVEAU' EST CONTENU
< DANS 'NS' (ET DIEU SAIT QUE CELA N'EST
< PAS FACILE),
<
< CETTE TACHE EST EMPRUNTEE A 'CMS4-MP', EN
< MOINS ELEGANT... MOINS ELEGANT...
< PAR CONSEQUENT, CERTAINS COMMENTAIRES
< POURRONT IRRITER LE PROFANE...
<
<
CCBDEF: WORD COSBT?CCBDF=FMASK(K=FCINST
< CCB SPECIAL DE TRANSMISSION D'UN
< DEFAUT SECTEUR A UN IOP...
XWKNIV: VAL NUMDEF < PARAMETRE POUR 'SI CMS5 THDEB'
CALL #SISP CMS5 THDEB# < PROLOGUE TACHE HARD
<
<
< I N I T I A L I S A T I O N S :
<
<
LA DEFOK < ACCES AU 'DEFOK' COURANT,
JAE DEFS13 < OK, IL EST NUL...
JAL DEFS11 < ET BIEN NON, IL Y A DEJA DES ANOMALIES,
NGR A,A < ON INVERSE 'DEFOK' AFIN DE LE RENDRE
< NEGATIF, INDIQUANT AINSI UNE ANOMALIE...
DEFS11: EQU $
ADRI -I,A < ON COMPTE EN NEGATIF LES ANOMALIES,
STA DEFOK < DANS 'DEFOK'...
LXI K < (X)=INFINI DES 'HALT',
DEFS12: EQU $
HALT < ET ON BLOQUE L'UNITE CENTRALE,
JMP DEFS12 < CE 'JMP' NE SERVIRA JAMAIS ??!??!?!
DEFS13: EQU $
IC DEFOK < 'DEFOK'=I, MEMORISE AINSI QU'UN DEFAUT
< SECTEUR COMMENCE A ETRE TRAITE, POUR
< AVERTIR L'EVENTUEL PROCESSEUR ESCLAVE.
LR L,Y < SAUVEGARDE DANS Y DE L'ADRESSE DE
< 'IC' DU DEFAUT SECTEUR
<
< ARRET D'UN IOP EVENTUEL :
<
CALL #SISP CMS5 W ZERO#
< A PRIORI, 'W'='ZERO'...
IF BOXIPI-ZERO,XEIF%,,XEIF%
IF ATTENTION : CA VA MERDER !!!
XEIF%: VAL ENDIF
LXI PROIOP
LA &SYSPRO < (A)=NUMERO D'IOP, SI EXISTE...
JAL ZZ001 < ET BIEN NON, PAS D'IOP...
LXI PROMST
CP &SYSPRO < LE MAITRE SERAIT-IL L'IOP ???
JE ZZ001 < OUI, RIEN A FAIRE, LE MAITRE ETANT
< AUSSI L'IOP, IL CONNAIT LE DEFAUT
< SECTEUR...
LXI PROESC
CP &SYSPRO < L'ESCLAVE SERAIT-IL L'IOP ???
JE ZZ001 < OUI, RIEN A FAIRE, IL GERE LUI-MEME
< SES DEFAUTS SECTEURS...
LRM B,W
WORD CCBDEF < (B)=ADRESSE DU CCB DE DEFAUT SECTEUR.
WORD BOXIPI < (W)=ADRESSE DES BOITES AUX LETTRES.
ADR A,W < (W)=ADRESSE BOITE AUX LETTRES IOP.
LA O,W < (A)=SAUVEGARDE DE LA BOITE AUX LETTRES
< DE L'IOP AVANT..., EN NOTANT QUE
< (W) N'EST PLUS NUL...
STB O,W < MISE EN PLACE DU CCB DE DEFAUT SECTEUR,
IPI < ET AVERTISSEMENT IOP...
ZZ001: EQU $
PSR A,W < SI UN IOP A ETE ARRETE DANS SON ELAN,
< ON EMPILE L'ADRESSE DE SA BOITE AUX
< LETTRES ET SON CONTENU ; CETTE ADRESSE
< 'W' EST NULLE DANS LE CAS CONTRAIRE...
<
<
< I D E N T I F I C A T I O N D E L A ' T A C H E
< S O F T W A R E ' L A P L U S P R I O R I T A I R E :
<
<
LX &ANS < (X)=NIVEAU SOFTWARE DE LA TACHE ACTIVE
< OU DU MOINS INTEROMPUE SOIT PAR
< UNE 'TACHE HARDWARE', SOIT PAR LA
< TACHE 'DEFAUT SECTEUR' ELLE-MEME...
ADRI -NSNSP0,X < (X)=NSP TACHE SOFT DESIGNEE PAR 'NS'
LA &ADCTSY < ON RECUPERE L'ADRESSE DCT DE
< CETTE TACHE
LR A,W < (W)=ADRESSE DE LA 'PSTS' DE LA
< 'TACHE SOFTWARE' QUE L'ON VA
< RECONSTRUIRE
<
<
< E T A T D E S I N T E R R U P T I O N S :
<
<
RDHV < MISE DANS LE REGISTRE 'A' DE LA LISTE
< DES INTERRUPTIONS EN COURS DE TRAITE-
< MENT, C'EST-A-DIRE, LA LISTE DES 'TACHES
< HARDWARES' COMMENCEES ET NON ENCORE
< ACHEVEES.
STA SAVHV < SAUVEGARDE EN MEMOIRE DU REGISTRE 'HV'
< AFIN D'ASSURER ULTERIEUREMENT UN BON
< REDEMARRAGE DU SYSTEME.
IF TH0-K,,XEIF%,
IF A T T E N T I O N : 'TH0', POUR ETRE CONFORME
IF AUX CONVENTIONS DE LA MICRO-MACHINE DOIT ETRE NUL !!!
XEIF%: VAL ENDIF
LXI NUMDEF < ON SUPPOSE AINSI A PRIORI QU'IL N'Y
< A PAS DE 'TACHES HARDWARES' INTERROM-
< PUES PAR LE 'DEFAUT SECTEUR'.
LBI K < ON CLEAR LE REGISTRE 'B', AFIN QUE
< L'INSTRUCTION 'DBT' DONNE BIEN LES
< NUMEROS DE 'TACHES HARDWARES' QUI
< EXISTENT !!!
DEFS02: EQU $
DBT < RECHERCHE DE LA 'TACHE HARDWARE'
< COURANTE LA PLUS PRIORITAIRE (A
< L'EXCEPTION DU 'DEFAUT SECTEUR').
JC DEFS01 < ON NE L'A PAS TROUVE, ON A DONC DANS
< LE REGISTRE 'X' LE NUMERO DE LA 'TACHE
< HARDWARE' LA MOINS PRIORITAIRE, QUI
< PEUT ETRE 'NUMDEF' DANS LE CAS OU LE
< REGISTRE 'HV' EST NUL...
RBT TH0,X < DANS LE CAS OU CETTE 'TACHE HARDWARE'
< EXISTE, ON LA SUPPRIME DE LA LISTE
< AFIN DE PASSER A UNE 'TACHE HARDWARE'
< MOINS PRIORITAIRE, AFIN DE TROUVER
< LA TACHE LA MOINS PRIORITAIRE...
JMP DEFS02
DEFS01: EQU $
LR X,A < ON TROUVE DANS 'X' (ET DANS 'A')
< LE NUMERO DE LA 'TACHE HARDWARE'
< LA MOINS PRIORITAIRE (ELLE PEUT
< ETRE 'DEFSEC' ELLE-MEME...)
BSR ASMTH < RENVOIE DANS LE REGISTRE 'B'
< L'ADRESSE DE LA 'PSTH' DONT (A)
< EST LE NUMERO.
LR B,L < LA BASE 'L' VA ETRE UTILISEE
< POUR BASER LA 'PSTH' ACTIVE
< LA MOINS PRIORITAIRE.
USE W,PSTS < 'W' BASE LA 'PSTS' INTERROMPUE
< QUE L'ON CHERCHE A RECONSTITUER.
USE L,PSTH < 'L' BASE LA 'PSTH' LA MOINS
< PRIORITAIRE; CETTE 'PSTH' CON-
< TIENT LES REGISTRES 'C', 'K'
< ET 'P' (ET PEUT ETRE 'S') DE LA
< 'PSTS' BASEE PAR 'W'.
<
<
< R E S T A U R A T I O N D E S R E G I S T R E S
< ' C ' , ' K ' E T ' P ' :
<
<
LA HC
STA SC < RESTAURATION DU REGISTRE 'C'
< DE LA 'PSTS'.
LA HK
STA SK < RESTAURATION DU REGISTRE 'K'
< DE LA 'PSTS'.
LA HP
STA SP < RESTAURATION DU REGISTRE 'P'
< DE LA 'PSTS'.
<
<
< R E C H E R C H E D U R E G I S T R E ' S ' :
<
<
LAI K < CLEAR DU REGISTRE A AFIN DE LIRE
RST < LE REGISTRE ST DANS A PAR RST
TBT SCHED < TEST DU BIT 'SCHED'...
JC DEFS03 < 'SCHED'=1 : LA 'TACHE SOFTWARE'
< DONT ON A L'ADRESSE DE 'PSTS' DANS
< 'W' A ETE INTERROMPUE DANS LE
< MICRO-SCHEDULER...
<
< LA 'TACHE SOFTWARE' A ETE INTERROMPUE "NORMALEMENT" :
<
LA HS
STA SS < RESTAURATION DU REGISTRE 'S'
< DE LA 'PSTS'.
JMP DEFS04 < VERS LA RECHERCHE DES REGISTRES
<'SLO' ET 'SLE'...
<
< LA 'TACHE SOFTWARE' A ETE INTERROMPUE DANS
< LE MICRO-SCHEDULER :
<
DEFS03: EQU $
LA HS < ACCES AU REGISTRE 'S' DE LA 'TACHE
< HARDWARE' LA MOINS PRIORITAIRE,
TBT SAUV < TEST DU BIT 'SAUV'...
JNC DEFS05 < 'SAUV'=K : IL Y A EU UN CHANGEMENT
< DE CONTEXTE POUR LA 'TACHE SOFTWARE'
< QUE L'ON A TROUVE DANS 'NS'; SA
< 'PSTS' EST DONC BONNE...
LA &ASCHED < 'SAUV'=1 : LE REGISTRE 'S' DE LA
< 'TACHE SOFTWARE' EST DANS LA
< MEMOIRE DE TRAVAIL 'WSCHED' DU
< MICRO-SCHEDULER EN MEMOIRE DEBANA-
< LISEE.
STA SS < RESTAURATION DU REGISTRE 'S'
< DE LA 'PSTS'.
<
<
< R E S T A U R A T I O N D E S R E G I S T R E S
< ' S L O ' E T ' S L E ' :
<
<
DEFS04: EQU $
LR Y,L < (L)=ADRESSE DE 'IC' DU 'DEFAUT SECTEUR'
< EN EFFET, ETANT DONNE QUE
< LA SAUVEGARDE DES REGISTRES
< 'SLO' ET 'SLE' DANS LES 'TACHES
< HARDWARES' SUIT LE MASQUAGE DU
< PROCESSEUR, ON EST SUR QUE LA
< TACHE 'DEFAUT SECTEUR' A SAUVEGARDE
< DANS SA PILE LES REGISTRES 'SLO'
< ET 'SLE' DE LA 'TACHE SOFTWARE'
< INTERROMPUE...
LA HK < (A)=VALEUR INITIALE DU REGISTRE 'K'
< DE LA TACHE 'DEFAUT SECTEUR'.
THDSLO:: VAL LREGTH-THDSL1+DEPILE
< AFIN D'ALLER CHERCHER LES
< REGISTRES 'SLO' ET 'SLE' DANS LA
< PILE DU 'DEFAUT SECTEUR' (NOTONS
< D'AILLEURS QU'UNE "PILE" EST BIEN UTILE
< LORSQUE LE COURANT DISPARAIT,...
< OUAF..OUAF ?!!?!!!?!?).
LR A,L < LE REGISTRE 'L' BASE LA PILE (-DEPILE)
< DU DEFAUT SECTEUR.
LA SSLO-SSLO+THDSLO,L
STA SSLO < RESTAURATION DU REGISTRE 'SLO'
< DE LA 'PSTS'.
LA SSLE-SSLO+THDSLO,L
STA SSLE < RESTAURATION DU REGISTRE 'SLE'
< DE LA 'PSTS'.
<
<
< R E S T A U R A T I O N D E S R E G I S T R E S
< ' A ' , ' B ' , ' X ' , ' Y ' , ' L ' E T ' W ' :
<
<
LAI NUMDEF-Z < (A)=NUMERO DE LA DERNIERE 'TACHE
< HARDWARE' D'INTERRUPTION; CE QUI
< FAIT QUE LA SUITE DES OPERATIONS
< EST FAITE A PRIORITE CROISSANTE
< DES NIVEAUX D'INTERRUPTION...
DEFS06: EQU $
LX SAVHV
XR A,X < (A)=ETAT DU REGISTRE DES 'TACHES
< HARDWARES' ACTIVES AU MOMENT DU
< DEFAUT SECTEUR, ET
< (X)=NUMERO DE LA 'TACHE HARDWARE'
< COURANTE.
TBT TH0,X < LA TACHE COURANTE ETAIT-ELLE ACTIVE ???
XR A,X < RESTAURATION DES REGISTRES.
JNC DEFS10 < NON, DONC INUTILE D'ALLER VOIR SI
< ELLE A PU SAUVEGARDER LES REGISTRES
< QUE L'ON RECHERCHE...
BSR ASMIC < RENVOIE :
< (B)=ADRESSE DE L''IC' DE LA 'TACHE
< HARDWARE DONT LE NUMERO EST DANS 'A'.
LR B,L < (L)=ADRESSE DU 'IC' COURANT.
USE L,PSTH < PUISQUE 'IC' ET 'PSTH' UTILISENT
< LA MEME 'DSEC' (QUE D'ABREVIATIONS!)
LR A,B < SAVE LE NUMERO DE 'TACHE HARDWARE'
< COURANT DANS LE REGISTRE 'B'.
<
< RECHERCHE DE LA 'TACHE HARDWARE' LA MOINS PRIORITAIRE
< DONT 'ICSAV' SOIT DIFFERENT DE 'CICSAV' ; CELA
< SIGNIFIERA ALORS QU'ELLE A DANS SA PILE LES 6
< REGISTRES RECHERCHES :
<
LA ICSAV
JANE DEFS07 < OK,ON A TROUVE LA TACHE HARDWARE
< DONT LA PILE CONTIENT LES REGISTRES
< CHERCHES...
LR B,A < ET NON, RESTAURE (A)=NUMERO DE 'TACHE
< HARDWARE' COURANT,
DEFS10: EQU $
ADRI -P,A < ET PASSAGE A LA PRECEDENTE...
JAGE DEFS06 < VERS LE TEST DE LA TACHE HARDWARE
< DE PRIORITE IMMEDIATEMENT SUPERIEURE.
<
< LORSQU'ON N'A PU TROUVER AUCUNE 'TACHE HARDWARE'
< AYANT PU SAUVEGARDER LES REGISTRES CHERCHES,
< ON SAIT ALORS QUE CES DERNIERS SONT DANS LA
< PILE DU DEFAUT SECTEUR :
<
LR Y,L < ON MET DANS 'L' L'ADRESSE DE 'IC'
< DU DEFAUT SECTEUR...
<
< RECUPERATION DES REGISTRES 'A', 'B', 'X', 'Y',
< 'L' ET 'W' DANS LA PILE REFERENCEE PAR LE 'IC'
< DONT L'ADRESSE EST DANS LE REGISTRE 'L' :
<
DEFS07: EQU $
LA HK < (A)=VALEUR INITIALE DU REGISTRE 'K'
< DE LA 'TACHE HARDWARE' DONT LA
< PILE CONTIENT LES REGISTRES...
LR A,L < 'L' VA BASER CETTE PILE (-DEPILE).
J: VAL K < INITIALISATION...
LA DEPILE+J,L
J: VAL J+I
STA SA < RESTAURATION DU REGISTRE 'A'
< DE LA 'PSTS'.
LA DEPILE+J,L
J: VAL J+I
STA SB < RESTAURATION DU REGISTRE 'B'
< DE LA 'PSTS'.
LA DEPILE+J,L
J: VAL J+I
STA SX < RESTAURATION DU REGISTRE 'X'
< DE LA 'PSTS'.
LA DEPILE+J,L
J: VAL J+I
STA SY < RESTAURATION DU REGISTRE 'Y'
< DE LA 'PSTS'.
LA DEPILE+J,L
J: VAL J+I
STA SL < RESTAURATION DU REGISTRE 'L'
< DE LA 'PSTS'.
LA DEPILE+J,L
J: VAL J+I
STA SW < RESTAURATION DU REGISTRE 'W'
< DE LA 'PSTS'.
DEFS05: EQU $
<
<
< F I N D U D E F A U T S E C T E U R
< E T A T T E N T E :
<
<
PLR A,W
CPZR W < UN 'IOP' AT'IL ETE ARRETE ???
JE DEFS08 < NON...
STA O,W < OUI, ON RESTAURE LE CONTENU DE SA BOITE
< AUX LETTRES EN ESPERANT QU'IL A EU LE
< TEMPS DE PRENDRE EN COMPTE LE 'CCB'
< SPECIAL DEFAUT SECTEUR...
DEFS08: EQU $
IC DEFOK < 'DEFOK'=I+I,
< INDIQUE QUE TOUT A ETE FAIT !!!
DEFS09: EQU $
LXI K < CHARGEMENT DU REGISTRE 'X' AVEC
< L'"INFINI" DE LA MACHINE ; AINSI
< LE 'HALT' VA METTRE LA MACHINE
< EN ATTENTE POUR 65536*2 MICRO-
< SECONDES, ET AINSI ON EST SUR QUE
< LE SECTEUR DISPARAITRA PENDANT SON
< EXECUTION...
HALT < ET ON ATTEND QUE TOUT DISPARAISSE...
JMP DEFS09 < AU CAS OU ON ATTENDRAIT LONGTEMPS...
< MAIS A T T E N T I O N CE 'JMP' PEUT
< CREER S'IL ETAIT EXECUTE DES CYCLES
< MEMOIRE PARASITE, MAIS ON EST SUR
< D'APRES LA DUREE DU 'HALT' QU'IL NE
< SERA JAMAIS EXECUTE...
PAGE
<
<
< R E D E M A R R A G E D U S Y S T E M E :
<
<
< FONCTION :
< CE MODULE 'RESTAR' EST UTILISE
< A L'INITIALISATION ('INI') DU
< SYSTEME, AINSI QU'A LA REAPPARI-
< TION DU SECTEUR ELECTRIQUE APRES
< UN DEFAUT SECTEUR ('DEFSEC').
< ON NOTERA QUE L'ON A ICI :
< IOM=1 (DANS 'ST'),
< IPM=1 (DANS 'ST'),
< LCM=1 (DANS 'ST'), ET ENFIN
< LE REGISTRE 'IM' EST REMIS A 0 (TOUS LES
< NIVEAUX D'INTERRUPTIONS SONT DEMASQUES).
< LA PREMIERE CHSOE IMPORTANTE QUE
< FASSE 'RESTAR' EST DE REGENERER
< LES 'PSTH' AU CAS OU IL S'AGIRAIT
< D'UNE REAPPARITION DU SECTEUR
< ELECTRIQUE.
<
<
< SENSIBILITE AU DEFAUT SECTEUR :
< LE 'RESTART' A LIEU AVEC 'IOM'='IPM'=1,
< AINSI QUE LES A POSITIONNE LA MICRO-MACHINE.
< EN CONSEQUENCES TOUTES LES OPERATIONS SEN-
< SIBLES AU DEFAUT SECTEUR (REINITIALISATION
< DES 'PSTH',...) DOIVENT ETRE FAITES AVANT
< DE DEMASQUER LES INTERRUPTIONS...
<
<
< NOTA :
< CE PROGRAMME EST EMPRUNTE A 'CMS4-MP'
< TOUS LE COMMENTAIRES N'ONT PAS ETE ADAPTES
<
<
< Q U E F A I R E S I L E D E F A U T S E C T E U R
< N ' A P A S E T E P R I S E N C O M P T E
< S U I T E A U N E P A N N E H A R D W A R E :
<
<
< REALISER LES ACTIONS SUIVANTES :
<
< 1 - RELANCER 'PROMST' ; CELUI-CI
< SE PLANTERA A LA PREMIERE ENTREE-
< SORTIE UTILISANT LES CANAUX, LE
< PLANTAGE A LIEU SUR LA 'SYSER' DE
< TEST DE 'TIME-OUT' (BOUCLE D'ADRES-
< SE 'ZIPI4').
<
< 2 - BLOQUER 'PROMST' EN REMPLACANT
< L'INSTRUCTION 'BLOCK3' QUI SUIT LA 'SYSER'
< PAR UN 'JMP $', PUIS EN FAISANT 'STEP-
< STEP' AU PUPITRE.
<
< 3 - RECONSTITUER LA PILE 'PILPS1'
< DE 'PROESC' TELLE QU'ELLE EST A
< L'INITIALISATION DU SYSTEME (EN
< PARTICULIER 'PRESC2', ET 'COM'
< ONT DISPARUS...).
<
< 4 - BLOQUER 'PROMST' EN REMPLACANT
< L'INSTRUCTION 'BLOCK1' D'ANNULATION DU
< MODE 'DEBUG' QUI SUIT 'PQDEF8' PAR
< UN 'JMP $', PUIS EN METTANT 'PROMST'
< EN 'RUN'.
<
< 5 - VERIFIER QUE TOUT PARAIT CORRECT...
<
< 6 - DEBLOQUER 'PROMST' ET 'PROESC'
< EN ANNULANT LES 'JMP $' DE BLOQUAGE
< SITUES EN 'BLOCK3' ET 'BLOCK1'...
<
< 7 - LE SYSTEME DOIT ETRE REPARTI,
< MAIS LES VISUS DEMEURENT INACCES-
< SIBLES CAR LEURS COUPLEURS SONT
< DEPROGRAMMES...
<
< 8 - BLOQUER 'PROMST' EN 'BLOCK2'
< EN METTANT UN 'JMP $' ; NE PAS OUBLIER
< DE NOTER PRECISEMMENT L'ENSEMBLE DES
< REGISTRES DE L''IDLE'...
<
< 9 - APRES AVOIR MASQUEES TOUTES LES INTER-
< RUPTIONS DANS 'ST', FAIRE POUR CHAQUE
< VISU DU SYSTEME :
< P <-- 'INICV',
< L <-- 'DCTVIS' COURANTE,
< ET EXECUTER EN PAS A PAS LES DEUX
< INSTRUCTIONS DE 'INICV' QUI REINI-
< TIALISE CHAQUE VOIE.
<
< 10 - ENFIN, RESTAURER LES REGISTRES
< DE 'PROMST' TELS QU'ILS ONT ETE NOTES
< AU POINT "8", PUIS ANNULER LE BLOQUAGE
< 'BLOCK2', ET C'EST REPARTI...
<
< 11 - ON CONSEILLE ALORS D'ARRETER
< TOUS LES UTILISATEURS PROPREMENT
< PAR "!F", ET DE RECHARGER ENSUITE
< CALMEMENT LE SYSTEME...
<
<
< F A U S S E P S T H 0 D E M I S E S U R
< L E N I V E A U 0 D E L ' E S C L A V E :
<
<
PRTH0: EQU $
WORD COM+DEPCH < REGISTRE 'C'.
WORD PILRES < REGISTRE 'K'.
WORD RESPR1 < REGISTRE 'P'.
WORD SMST < REGISTRE 'S'.
<
<
< I N I T I A L I S A T I O N S :
<
<
RESTAR: EQU $
LAI MMOT
XIMR A < ON MASQUE TOUS LES NIVEAUX DANS 'IM' ;
< EN EFFET, 'IM' NE PARTICIPE PAS AUX
< CHANGEMENTS DE CONTEXTE, ET DE PLUS,
< S'IL N'Y A PAS DE PROCESSEUR ESCLAVE,
< ET MEME S'IL Y EN A UN, ON VA MODIFIER
< LE RELAI DES 'PSTH' NE PERMETTANT AUCUNE
< INTERRUPTIONS PARASITES (QUI PEUVENT
< PASSER, PAR EXEMPLE SI L'ESCLAVE N'EXISTE
< PAS AU RETOUR DE L'ACTD DE NETTOYAGE
< DE LA MEMOIRE)...
LRM A,C,W,K
WORD PSTH00 < A : POUR REINITIALISER LE RELAI
< DES 'PSTH'.
WORD COM+DEPCH < VALEUR INITIALE DE LA BASE 'C'.
WORD ZERO < 'W' BASE LA MEMOIRE DEBANALISEE.
WORD PILRES < VALEUR INITIALE DU REGISTRE 'K'.
STA ALPSTH-ZERO,W < REINITIALISATION A PRIORI DU RELAI
< DES 'PSTH'...
RDSI < LECTURE DE L'IDENTIFICATION...
ANDI MNUBUS?MNUPRO < (A)=NUMERO DU PROCESSEUR COURANT.
LXI PROESC
CP &SYSPRO < EST-ON SUR UN ESCLAVE ???
JNE RESTMA < NON...
<
<
< R E S T A R T D ' U N E S C L A V E :
<
<
RESTES: EQU $ < ENTRY DU MAITRE LORSQUE L'ESCLAVE
< N'EXISTE PAS, ET QU'IL FAUT QUAND
< MEME ALLER NETTOYER LA MEMOIRE
< HAUTE...
LA DEFOK < COMMENT CELA S'EST-IL PASSE ???
CPI DEFOK0 < 'DEFOK' DOIT VALOIR I+I...
JNE RESTES < ET BIEN NON, ON BOUCLE; LES RAISONS EN
< SONT PEUT-ETRE, UN 'INI' AU PUPITRE,
< DES DEFAUTS SECTEURS DANS LE 'RESTART',
< OU AUTRE CHOSE...
LRM A,B,X,Y,L
WORD COM+DEPCH < A : POUR INITIALISER C(PRTH0),
WORD PILRES < K : POUR INITIALISER K(PRTH0),
WORD RESPR1 < X : POUR INITIALISER P(PRTH0),
WORD SMST < Y : POUR INITIALISER S(PRTH0),
WORD PRTH0 < 'L' VA BASER LA FAUSSE 'PSTH0'...
USE L,PSTH
STA HC < INITIALISATION
STB HK < DE LA FAUSSE
STX HP < 'PSTH0' POUR PLACER
STY HS < L'ESCLAVE SUR LE NIVEAU 0...
LRM A,L
WORD PRTH0 < (A)=ADRESSE DE LA FAUSSE 'PSTH0'.
WORD DCTPP1 < (L)=ADRESSE DE LA DCT DE DIALOGUE
< MAITRE --> ESCLAVE.
< A NOTER QUE POUR DES RAISONS D'ASSEM-
< BLAGE, ET D'EDITION DE LIENS, ON
< N'UTILISE PAR 'DCTPR1', MAIS UN SYM-
< BOLE QUI LUI EST EQUIVALENT...
STA ALPSTH-ZERO,W < MISE EN PLACE DE LA FAUSSE 'PSTH0'...
<
<
< A T T E N T I O N :
< LA PILE 'PILRES' ETANT UTILISEE ICI,
< ET AU DEBUT DE LA FAUSSE 'TH0' NE PEUT
< ETRE UTILISEE POUR SAUVEGARDER DES
< REGISTRES !!!
<
<
ACTD < ET AINSI, LE PROCESSEUR ESCLAVE SE
< RETROUVE SUR LE NIVEAU 'TH0', ET
< DEVIENT ININTERRUPTIBLE...
XWOR%1: VAL COSBT?LCM=FMASK(K?MIPM?MIOM=FCINST
LRM A
WORD XWOR%1
SST < REMASQUONS TOUTES LES INTERRUPTIONS ;
< NOTONS QUE L'ON NE RISQUE RIEN, CAR
< EN EFFET 'IM' MASQUE TOUS LES NIVEAUX
< D'INTERRUPTION...
LRM A < RETOUR MAITRE, LORSQUE L'ESCLAVE
WORD PSTH00 < N'EXISTE PAS...
STA ALPSTH-ZERO,W < RESTAURATION DU RELAI DES 'PSTH',
JMP RESTMB < ET VERS LA SUITE DE LA RESTAURATION...
<
<
< R E S T A R T D U M A I T R E :
<
<
RESTMA: EQU $
LXI PROMST
CP &SYSPRO < MAIS, EST-ON BIEN SUR LE MAITRE ???
JE RESTMD < OUI...
<
< NON, MAIS OU EST-ON ALORS ???
< (PEUT-ETRE SUR LE PROCESSEUR
< ESCLAVE QUI AURA ETE DECLARE
< INEXISTANT...)
<
LAI K
SBT STOP
SST < ON L'ARRETE...
RESTME: EQU $
HALT
JMP RESTME < ON ATTEND L'ARRET EFFECTIF...
<
< CAS DU VRAI MAITRE :
<
RESTMD: EQU $
<
< ELECTION DE LA TACHE 'SOFTWARE' QUI
< VA ETRE RELANCEE : ON PEUT SE DEMANDER
< POURQUOI NE PAS UTILISER 'NS' : LA
< RAISON EST TOUTE BETE (COMME TOUT CE
< QUE FAIT LA 'SEMS'...) : LES INSTRUCTIONS
< DU MICRO-SCHEDULER SONT INTERRUPTIBLES
< PAR LES INTERRUPTIONS 'IPI' ET D'ENTREES-
< SORTIES, QUI PAR CE BIAIS PEUVENT
< DEROULER DU MICRO-CODE TESTANT LE
< DEFAUT SECTEUR QUI PEUT ALORS PASSER,
< L'INSTRUCTION 'MICRO-SCHEDULER' N'ETANT
< PAS ACHEVEE, ET PAR EXEMPLE, LE MOT 'NS'
< N'EST PAS ENCORE MIS A JOUR ; AINSI UN
< 'WAIT' METTANT UNE TACHE EN ATTENTE
< ('ESTF'(J)=K) PEUT ETRE TOUJOURS
< MEMORISEE DANS 'NS' AU MOMENT DU
< RESTART, ET DONC SE VOIR RELANCER !!!
<
LA &ANS
CPI NSPESC+NSNSP0 < LE 'NS' EST-IL UN FAUX 'NS' CORRES-
< PONDANT AU CAS OU 'TH0' FAIT UN
< 'DOWN' POUR DESCENDRE (???) UN ESCLAVE
< EN MEMOIRE BASSE ???
JGE REST13 < OUI, ON DOIT DONC LE CONSERVER !!!
LXI NMTS/NBITMO < (X)=LONGUEUR DES TROIS FILES DE
< BITS 'ASTF', 'ESTF' ET 'RSTF'.
LBI K < AFIN D'ASSURER UN FONCTIONNEMENT
< CORRECT DE L'INSTRUCTION 'DBT'.
REST10: EQU $
LA ASTF-ZERO,W < ACCES AU MOT COURANT DE 'ASTF',
AND ESTF-ZERO,W < AUQUEL ON AJOUTE 'ESTF',
AND RSTF-ZERO,W < ET 'RSTF'...
LR X,Y < SAUVEGARDE DU DECOMPTE COURANT
< DANS LE REGISTRE 'Y'.
DBT < RECHERCHE DE LA PREMIERE TACHE
< PRETE :
< 'C'=K : LE BIT DE RANG 'X' A ETE
< TROUVE A '1'...
JNC REST11 < CA Y EST, ON A TROUVE UNE TACHE...
ADRI P,W < ET NON, TANT PIS ON PASSE A LA
< SUITE DES TROIS LISTES DE BITS...
LR Y,X < RESTAURATION DU DECOMPTE.
JDX REST10 < AUX TROIS MOTS SUIVANTS...
<
< S Y S E R : AUCUNE TACHE N'EST ELIGIBLE !!!
<
BSR ASYSER
LA &ANS < ON FAIT COMME SI CE NUMERO ETAIT
< DEJA DANS 'NS', ET ETAIT BON...
JMP REST13 < VERS LA RELANCE...
REST11: EQU $
LR W,A < (A)=DEPLACEMENT EN MOTS DANS 'ASTF',
SBR A,W < ET RESTAURE : (W)='ZERO'...
SLLS NBITMO=K < (A)=DEPLACEMENT EN BITS DANS 'ASTF'.
ADR X,A < (A)=NUMERO DE LA TACHE 'SOFTWARE' ELUE,
STA &ANS < QUE L'ON MET DANS 'NS'...
REST13: EQU $
<
< BON, MAINTENANT QU'ON CONNAIT
< LE 'NS' SUR LE MAITRE, Y-A-T'IL
< UN ESCLAVE OU PAS ???
<
LXI PROESC
CPZ &SYSPRO < L'ESCLAVE EXISTE-T'IL ???
JGE RESTMC < OUI, DONC ON RESTE DANS LA SEQUENCE
< NORMALE DU MAITRE...
LAI NSPDKS < NON,
STA ANSPS < DONC, IL EST IMPOSSIBLE DE FAIRE LE
< SWAPPING SUR 'PR1', ON PREND LE DISQUE
< FIXE...
JMP RESTES < MAIS IL FAUT MALGRE TOUT ALLER
< NETTOYER LA MEMOIRE HAUTE...
RESTMC: EQU $
HALT < ON MINIMISE LES ACCES MEMOIRE DU MAITRE ;
< NOTONS QUE LA PREMIERE FOIS QUE CE 'HALT'
< EST FAIT, 'X' EST INDETERMINE...
CPZ DEFOK < OUI, ALORS ATTENDONS QU'IL AIT
< FINI SON PETIT CINEMA (VOIR LA 'PSTH0').
JNE RESTMC < TANT QUE DEFOK#0, ON BOUCLE...
RESTMB: EQU $
RDSI < ON EST OBLIGE DE RELIRE L'IDENTIFICA-
< TEUR DU SYSTEME A CAUSE DU PASSAGE
< DANS LA FAUSSE 'TH0' QU'ON A FAIT SI
< LE PROCESSEUR ESCLAVE N'EXISTE PAS...
ANDI MNUBUS?MNUPRO < (A)=NUMERO DU PROCESSEUR...
LXI PROMST
CP &SYSPRO < EST-ON BIEN SUR LE MAITRE ???
JNE $ < NON, BIZARRE...
< (A NOTER QU'ON NE FAIT PAS DE SYSER
< AFIN D'EVITER DES CHANGEMENTS DE
< CONTEXTES QUE SEUL LE MAITRE PEUT
< EXECUTER !!!)
<
< INHIBITION DU SOUS-PROGRAMME 'TDEFS' :
<
IC KTDEFS < INHIBITION DES TESTS DE TDEFS
< EN EFFET, TANT QUE LE 'RESTART' N'EST
< PAS TRAITE, IL NE FAUT PAS PRENDRE EN
< COMPTE DE NOUVEAUX DEFAUTS SECTEURS ;
< ON FAIT DONC COMME S'IL Y AVAIT DEJA
< UN APPEL EN COURS (RECURSIF...),
< D'AILLEURS C'EST PEUT-ETRE LE CAS SI
< C'EST 'TDEFS' QUI A DETECTE CELUI
< QUE L'ON TRAITE...
<
< NOTA :
< 'COMPTH' N'EST PAS REINITIALISE ; EN
< EFFET, OU BIEN ELLE VAUT DEJA 0, OU BIEN
< ELLE NE PEUT VALOIR QUE 1 : ALORS CELA
< SIGNIFIE QU'UNE TACHE HARDWARE A MASQUE
< LES INTERRUPTIONS, PUIS FAIT PASSER A
< 1 LA VARIABLE 'COMPTH', PUIS A DETECTE
< UN DEFAUT SECTEUR EN ATTENTE ; DANS CES
< CONDITIONS, CETTE TACHE HARDWARE VA ETRE
< RELANCEE, ET DONC RAZER ELLE-MEME 'COMPTH'
< DANS 'RRSTF'...
<
<
< MASQUAGE DU PUPITRE (SEUL LE SYSTEME
< Y AURA ACCES) :
<
BITPUP:: VAL L < NIVEAU DU PUPITRE DANS 'IM'.
LXI NSPPR1
BSR ACADCT < (L)=ADRESSE DU FUTUR REGISTRE 'IM' DU
< PROCESSEUR MAITRE...
WORD LAIMST < (A)=REGISTRE 'IM' DU PROCESSEUR MAITRE ;
< DANS CELUI-CI LE PUPITRE EST INHIBE,
< MAIS QUELQUE FOIS, LE NIVEAU DU
< 'CBJ' L'EST AUSSI (LORSQU'IL EST
< ABSENT EN PARTICULIER, OU EN DEFAUT).
XIMR A < MASQUAGE DU NIVEAU DU PUPITRE.
<
<
< R E I N I T I A L I S A T I O N D E S ' P S T H ' :
<
<
LAI NUMDEF < (A)=NUMERO DE LA PREMIERE 'PSTH'
< A REINITIALISER (ICI ON NE JOUE
< PLUS AVEC LEUR PRIORITE...).
<
< REINITIALISATION DE LA 'PSTH' COURANTE
< DONT LE NUMERO EST DANS LE REGISTRE 'A' :
<
REST01: EQU $
BSR ASMIC < RENVOIE :
< (B)=ADRESSE DE L''IC' DE LA 'TACHE HARD-
< WARE' DONT LE NUMERO EST DANS 'A'.
LR B,L < 'L' BASE LE 'IC' COURANT...
USE L,PSTH < ON SAIT QUE 'IC' ET 'PSTH'
< UTILISENT LA MEME DSEC...
BSR ASMTH < RENVOIE (B)=ADRESSE DE LA 'PSTH'
< DONT LE NUMERO EST DANS 'A'
PSR A < SAUVEGARDE DU NUMERO DE 'TACHE
< HARDWARE' COURANT.
LAD HC < (A)=ADRESSE ZONE DE 'IC' CONTENANT
< LES VALEURS DE REINITIALISATION
< DE 'PSTH'
LXI LPSTH < (X)=NOMBRE DE MOTS A REINITIALISER.
MOVE < REINITIALISATION DE LA 'PSTH' COURANTE.
<
< REINITIALISATION DE 'IC' :
<
STZ ICSAV < REINITIALISATION DE L'ETAT DE
< SAUVEGARDE DES REGISTRES
< INTERROMPUS...
<
< ACCES A LA 'TACHE HARDWARE' PRECEDENTE :
<
PLR A < RESTAURE LE NUMERO DE 'TACHE HARDWARE'
< COURANT DANS LE REGISTRE 'A'.
ADRI -P,A < PASSAGE A LA 'TACHE HARDWARE'
< PRECEDENTE...
JAGE REST01 < VERS LA TACHE HARDWARE PRECEDENTE
<
<
< I N I T I A L I S A T I O N :
<
<
LA TYPDEF < S'AGIT-IL D'UNE REAPPARITION
CPI TYPTH < DU SECTEUR SUITE A DEFSEC?
JNE REST02 < NON...
<
< "REPOSITIONNEMENT" D'UNE 'TACHE HARDWARE' INTERROMPUE
< PAR UN MECHANT 'DEFAUT SECTEUR' :
<
LA IDEDEF < (A)=NUMERO DE LA 'TACHE HARDWARE',
BSR ASMTH < RENVOIE :
< (B)=ADRESSE DE LA 'PSTH' DE CETTE TACHE.
LRM A < (A)=ADRESSE DE LA FAUSSE 'PSTH' DE
WORD FPSTH < REPRISE DE LA TACHE INTERROMPUE.
LXI LPSTH < (X)=NOMBRE DE MOTS D'UNE 'PSTH'.
MOVE < "REPOSITIONNEMENT" DE LA 'TACHE
< HARDWARE' INTERROMPUE.
REST02: EQU $
<
<
< R E L A N C E D E S T A C H E S B L O Q U E E S :
<
<
PSR L
USE L,DCT0
LXI NSPPER < (X)=NSP DE LA DERNIERE TACHE A TESTER.
E881: EQU $
LA &ADCTSY < (A)=ADRESSE DE LA DCT COURANTE.
JAE E882 < CAS DU 'SGF'...
LR A,L < (L)=ADRESSE DE LA DCT COURANTE.
LR X,A < (A)=NSP DE LA TACHE COURANTE.
CPI NSPVI0 < EST-CE UNE VISU ???
JL E882X < NON...
CPI NSPVIN < EST-CE UNE VISU ???
JG E882X < NON...
BSR AINICV < OUI, ON INITIALISE SON COUPLEUR !!!
E882X: EQU $
CPI NSPHOR < EST-CE L'HORLOGE ???
JE E881X < OUI, ON RELANCE A PRIORI...
LA SIT < NON,
TBT XMBETA < ALORS EST-ELLE EN ATTENTE SUR 'SIT' ???
JNC E882 < NON, RIEN A FAIRE...
LA BITSEM < OUI,
TBT B0SIT < ALORS FAUT-IL LA RELANCER APRES
< UN DEFAUT SECTEUR ???
JNC E882 < NON, RIEN A FAIRE...
SBT B1SIT < OUI, ALORS ON MEMORISE CETTE
< FAUSSE INTERRUPTION APRES UN
< 'INI' (DEFAUT SECTEUR,...).
STA BITSEM
E881X: EQU $
BSR ARVHDL < ET ON SIMULE UNE INTERRUPTION...
E882: EQU $
JDX E881 < A UNE AUTRE TACHE...
PLR L
USE L
<
<
< I N I T I A L I S A T I O N D E L A
< T E L E V I S I O N N U M E R I Q U E :
<
<
LRM A,B
WORD GOCOL < ADRESSE DU MODULE D'INITIALISATION,
WORD RETCOL < ET ADRESSE DE RETOUR DE CE MODULE...
PSR A
RSR < CE 'RSR' EST DONC UN 'GOTO' VERS LE
< MODULE 'GOCOL' D'INITIALISATION...
RETCOL: EQU $ < ET VOICI SON ADRESSE DE RETOUR...
<
<
< F O R C A G E D E L A R E I N I T I A L I S A T I O N
< D E L A D A T E E T D E L ' H E U R E :
<
<
LAI XXRINI
STA RINI < POUR LE 'RECOVERY'...
<
<
< C O H E R E N C E D E S ' D C T E S C ' :
<
<
USE W,PSTS
LXI NESCLA < (X)=NOMBRE D'UTILISATEURS RECONNUS.
REST20: EQU $
ADRI -P,X < A L'UTILISATEUR PRECEDENT...
CPZR X < EXISTE-T'IL ???
JL REST21 < NON, ON A PARCOURU TOUTE 'TBU'...
LA &ATBU < OUI, (A)=ADRESSE DE SA 'DCTESC',
JAE REST20 < RIEN A FAIRE : CET 'ID'=(X) EST
< INOCCUPE...
LR A,W < (W)=ADRESSE 'DCTESC' COURANT.
LA SSLO < (A)=SLO(DCTESC),
JAG REST24 < OK, A PREMIERE VUE IL EST BON...
BSR ASYSER < E R R E U R S Y S T E M E :
< (LE REGISTRE 'SLO' A UN CONTENU
< NEGATIF OU NUL)
REST24: EQU $
CP SSLE < A-T'ON BIEN (SLO)<(SLE) ???
JNE REST23 < ON A DEJA : (SLO)#(SLE)...
BSR ASYSER < E R R E U R S Y S T E M E :
< (SLO)=(SLE) ?!??!???!
JMP REST20 < ALLONS A L'UTILISATEUR SUIVANT...
REST23: EQU $
JL REST20 < OK, (SLO)<(SLE)...
<
< CAS OU (SLO)>(SLE) DANS UNE 'DCTESC' :
< IL S'AGIT D'UN CAS RARE ; EN EFFET
< LORS DE LA FONCTION '1EC5 DE 'TH0',
< CETTE MEME 'TH0' CONVERTIT LE CONTENU
< DE 'SLO' EN UNE ADRESSE MOT AFIN
< QUE LE SOUS-PROGRAMME MAITRE QUE L'ON
< VA EXECUTER PUISSE L'UTILISER, COMME
< IL LE FAISAIT DANS 'CMS4' ; MAIS SI
< PAR MALHEUR ARRIVE UN DEFAUT SECTEUR
< NON PREVU, OU BIEN UN 'INI' SUITE
< PAR EXEMPLE A UNE ALARME AU PUPITRE,
< ALORS LA LE 'SLO' DE CET UTILISATEUR
< RESTE EN ADRESSE MOT, CE QUI IMPLIQUE
< UNE TRAPPE, MAIS QUI NE PEUT ETRE
< TRAITEE CORRECTEMENT, CAR L'ADRESSE
< DE L'ESPACE MEMOIRE EST MAUVAIS...
<
SLRS -DADR < CONVERSION EN UNE BONNE
< ADRESSE...
STA SSLO < ET MISE A JOUR DE 'SLO'...
JMP REST20 < VERS L'UTILISATEUR PRECEDENT...
REST21: EQU $
<
<
< R E S T A U R A T I O N " M A N U E L L E "
< D U C O N T E X T E D E L A T A C H E
< ' S O F T W A R E ' I N T E R R O M P U E :
<
<
< FONCTION :
< CETTE RESTAURATION DU CONTEXTE DE LA
< TACHE 'SOFTWARE' INTERROMPUE (PAR UN
< DEFAUT SECTEUR PAR EXEMPLE...) EST PRO-
< GRAMME, ET NON PAS MICRO-PROGRAMME POUR
< DEUX RAISONS FONDAMENTALES :
< 1 - IL SERAIT BETE DE GACHER UN NIVEAU
< 'SOFTWARE' POUR FAIRE LE 'RESTART',
< 2 - LES INTERRUPTIONS SONT MASQUEES
< ET IL N'EST PAS IMPOSSIBLE QU'IL FAILLE
< PASSER LA MAIN A LA TACHE 'SOFTWARE'
< INTERROMPUE SANS LES DEMASQUER ; OR
< CECI EST IMPOSSIBLE EN UTILISANT LE
< 'MICRO-SCHEDULER' !!!
<
<
LX &ANS < 'X' RECOIT LE 'NS'
ADRI -NSNSP0,X < 'X' RECOIT LE 'NSP' DE LA 'TS'
LB &ADCTSY < 'B' RECOIT L'ADRESSE DE LA 'PSTS'
< DE CETTE TACHE
LR B,W < LA BASE 'W' VA BASER LA 'PSTS' DE
< LA TACHE INTERROMPUE.
USE W,PSTS
<
< VALIDATION EVENTUELLE DE LA PILE DE LA
< TACHE DONT ON VEUT RESTAURER LE CONTEXTE ;
< EN EFFET, DANS LE CAS D'UNE TACHE EN MODE
< ESCLAVE, SA PILE 'K' SERA UTILISEE VIA
< LES REGISTRES 'SLO' ET 'SLE' A L'AIDE
< DE L'INDICATEUR 'SVCS' ; SI L'ESPACE LIBRE
< DE LA PILE N'EST PAS SUFFISANT, A CHAQUE
< OPERATION D'EMPILEMENT, IL Y AURA VIOLA-
< TION MEMOIRE, LE 'RESTART' SE RETROUVERA
< EN MODE ESCLAVE, ET LE PASSAGE EN 'TACHE
< HARDWARE 0' DEMASQUERA LES INTERRUPTIONS.
<
LA SS
TBT MS < LA TACHE EST-ELLE EN MODE ESCLAVE ?
JC REST06 < NON, ON NE VALIDE PAS 'K'...
LA SK < OUI, ACCES AU REGISTRE 'K',
ADRI FADR,A < PRENONS EN COMPTE UNE MARGE DE
< SECURITE CORRESPONDANT A L'UNITE
< DANS LAQUELLE SONT EXPRIMES LES
< REGISTRES 'SLO' ET 'SLE' (BLOCS
< DE FADR-MOTS).
SLRS -DADR < LA VALEUR DE 'K' EST EXPRIMEE DANS
< LA MEME UNITE QUE 'SLO' ET 'SLE'.
AD SSLO < ('K'+FADR)/FADR+'SLO'.
SB SSLE < ('K'+FADR)/FADR+'SLO'-'SLE'.
JALE REST06 < OK, IL Y AURA SUFFISAMMENT DE PLACE
< DANS LA PILE DE LA TACHE ESCLAVE.
<
< S Y S E R : IL N'Y A PAS ASSEZ DE PLACE DANS LA
< PILE ESCLAVE POUR TRAVAILLER EN TOUTE
< SECURITE : ('K'+FADR)/FADR>'SLE'-'SLO' !!!
<
< (W)=ADRESSE DE LA 'PSTS' DE LA TACHE ESCLAVE.
<
BSR ASYSER
REST06: EQU $
<
< RESTAURATION DES REGISTRES 'SLO' ET
< 'SLE' : DANS LA MESURE OU LA SUITE
< DU 'RESTART' NE LES UTILISE PAS :
< (SAUF DANS LES INSTRUCTIONS UTILISANT
< LA PILE 'K' LORSQUE L'INDICATEUR
< 'SVCS' EST A '1')
<
LA SSLO
LB SSLE
WOE < RESTAURATION DES REGISTRES
< 'SLO' ET 'SLE'.
<
< RESTAURATION DU REGISTRE 'B',
< AINSI QUE DE LA BASE 'L' ;
< CELA IMPLIQUE QUE LE 'RESTART' NE
< LES UTILISE PAS...
<
LA SL
LR A,L < RESTAURATION DE LA BASE 'L'.
LB SB < RESTAURATION DU REGISTRE 'B'.
<
< RESTAURATION DE LA PILE 'K' ;
< LE 'RESTART' VA DONC SE POURSUIVRE
< SUR LA PILE DE LA TACHE INTERROMPUE,
< CE QUI FAIT L'HYPOTHESE QUE CETTE PILE
< A ENCORE DE L'ESPACE LIBRE (ET PAR LA
< MEME OCCASION QU'IL NE VA PAS SE PRODUIRE
< TROP DE DEFAUTS SECTEURS IMBRIQUES !!!)
<
LA SK
LR A,K < RESTAURATION DU REGISTRE 'K'.
LRM A < A <-- MSVCS
WORD MSVCS
AND SS < ON CONSTRUIT AINSI UN MASQUE QUI
< EST SOIT VIDE ('SVCS'=K) OU NE
< CONTENANT QUE 'SVCS'.
SST < POSITIONNEMENT EVENTUEL DE 'SVCS'
< A '1' AFIN D'ASSURER UN FONCTION-
< NEMENT CORRECT DES INSTRUCTIONS SUR
< LES PILES...
LA SS
TBT MS < LA TACHE INTERROMPUE ETAIT-ELLE
< EN MODE ESCLAVE ???
JC REST05 < NON, LE REGISTRE 'ST' EST BON...
LRM A
WORD MSVCS < 'A' <-- 'MSVCS'...
SST < ON POSITIONNE LE BIT 'SVCS' AFIN QUE
< LES INSTRUCTIONS SUR LA PILE 'K'
< UTILISENT LES REGISTRES 'SLO'
< ET 'SLE'.
REST05: EQU $
<
< PREPARATION DES RESTAURATIONS DES
< REGISTRES 'P', 'W' ET 'A' QUI SEULS
< SONT ABSOLUMENT NECESSAIRES (AVEC LA
< BASE 'C') A UNE BONNE POURSUITE
< DU 'RESTART' :
<
XKREG: VAL K < INITIALISATION DU CUMUL DES REGISTRES
< EMPILES DANS LA PILE DE LA TACHE
< INTERROMPUE...
LA SP
#@PSR A < #SISP CMS5 KREG#
< EMPILEMENT DU COMPTEUR ORDINAL 'P'.
LA SW
#@PSR A < #SISP CMS5 KREG#
< EMPILEMENT DE LA BASE 'W'.
LA SA
LX SX
LY SY
#@PSR A,X,Y < #SISP CMS5 KREG#
< EMPILEMENT DES REGISTRES 'A', 'X', 'Y'.
<
< REAUTORISATION DU SOUS-PROGRAMME 'TDEFS' :
<
CALL #SISP CMS5 DMKDEF#
< A T T E N T I O N : MIS A PART
< 'NSYSER', ON SUPPOSE, QU'IL N'Y
< AURA PLUS JUSQU'A L'EVENTUEL DEMAS-
< QUAGE DES INTERRUPTIONS DE 'SVC',
< NI D'APPEL A 'TDEFS' AFIN DE PAS
< TESTER UN DEFAUT SECTEUR EN ATTENTE
< AVANT QUE LE 'RESTART' NE SOIT TERMINE.
<
< DISCRIMINATION DES MODES MAITRES ET ESCLAVES :
< (ET CECI A CAUSE DE LA RESTAURATION DU
< REGISTRE 'P' ET DU BIT DE MODE 'MS')
<
LA SS
TBT MS < QUEL ETAIT LE MODE DE LA TACHE
< INTERROMPUE ???
JC REST03 < ELLE ETAIT EN MODE MAITRE...
<
< CAS OU LA TACHE INTERROMPUE ETAIT ESCLAVE :
<
TBT SVCS < VALIDATION DE 'SVCS'...
JNC REST04 < OK, 'SVCS'=K.
<
< S Y S E R : 'SVCS' D'UNE TACHE 'SOFTWARE' EN MODE
< ESCLAVE EST A '1' !!!
<
< NS=NUMERO DE CETTE TACHE,
< (W)=ADRESSE DE SA 'PSTS'.
<
BSR ASYSER
REST04: EQU $
CALL #SISP CMS5 IREST#
XXPILI:: VAL -XKREG < NOMBRE DE MOTS SUPPLEMENTAIRES A RESER-
< DANS CHAQUE PILE EN PREVISION D'UN
< DEFAUT SECTEUR !!!
IF XXPILI-XXPILJ,,XEIF%,
IF ATTENTION : LA VALEUR PRESUMEE POUR 'XXPILI' DANS
IF LA DEFINITION DE 'DCTSGF' EST MAUVAISE !!!
XEIF%: VAL ENDIF
RSV < RESTAURATION DU REGISTRE 'P', ET
< PASSAGE EN MODE ESCLAVE.
<
< CAS OU LA TACHE INTERROMPUE ETAIT MAITRE :
<
REST03: EQU $
CALL #SISP CMS5 JREST#
RSR < RESTAURATION DU REGISTRE 'P', EN
< RESTANT EN MODE MAITRE.
PAGE
<
<
< P R E V E N T I O N D E S D E F S E C :
< L O R S D E S E N T R E E S - S O R T I E S
<
<
< FONCTION :
< CE SOUS-PROGRAMME MEMORISE
< DANS LA 'DCT' D'UNE TACHE QU'UN
< DEFAUT SECTEUR EST A CRAINDRE
< POUR ELLE CAR UNE ENTREE-SORTIE
< A ETE LANCEE...
< EN FAIT, LES INDICATEURS
< CONCERNES FONCTIONNENT EN
< BASCULE (AVANT,APRES) L'OPE-
< RATION SENSIBLE AU DEFAUT
< SECTEUR.
<
<
< ARGUMENT :
< (L)=ADRESSE DE LA DCT DU HANDLER APPELANT.
<
<
USE L,DCT0
PREDS: EQU $
PSR A
BSR ASMMK <<<< MASK IT...
LA BITSEM
IBT B0SIT < INVERSION DE L'INDICATEUR QUI FONCTIONNE
< DONC EN BASCULE ; CETTE INVERSION EST
< FAITE AVANT LE DEBUT ET APRES LA FIN DE
< L'ENTREE-SORTIE...
STA BITSEM
BSR ASMDK <<<< DEMASK IT...
PLR A
RSR
PAGE
<
<
< A V E R T I S S E M E N T D E C E R T A I N S
< H A N D L E R S L O R S D E D E F S E C :
<
<
< FONCTION :
< LORSQU'UN HANDLER A : BIT0(SIT)=1 LE
< RECOVERY LE REVEILLE LORS DES DEFSEC
< EN SIMULANT UNE IT. DE PLUS LE
< RECOVERY FAIT : BIT1(SIT)=1.
< CETTE ROUTINE PEUT ETRE APPELEE
< PAR UN HANDLER APRE LES 'RQST SIT'
< POUR SAVOIR SI L'IT EST REELLE OU
< SIMULEE POUR DEFSEC.
<
< ON ECRIRA :
<
< RQST SIT
< BSR ATHDS
< JC ,
< JNC .
<
<
< ARGUMENT :
< (L)=ADRESSE DU HANDLER.
<
<
USE L,DCT0
THDS: EQU $
PSR A,B
LBI K
BSR ASMMK < MASQUAGE IT CAR ON VA
< MODIFIER SIT !!!
LA BITSEM
TBT B1SIT < TEST DU BIT QUE POSITIONNE LE
< RECOVERY LORS DES DEFSEC.
ADCR B < B <-- CARRY.
TBT B1SIT < RETEST DU "BIT1(SIT)" :
JNC E923 < IL N'Y A PAS EU DE DEFSEC.
RBT B1SIT < IL Y A EU UN DEFSEC: RAZ DU
< "BIT1(SIT)",
STA BITSEM < ET MISE A JOUR DE 'BITSEM' APRES DEFSEC.
BSR ABETA2 < RENVOIE (A)=BETA(SIT).
JALE E923 < OK : BETA(SIT)<=K.
DC SIT < CAS BETA(SIT)>0 : LE DEFSEC EST
< PROBABLEMENT APPARU DANS LA
< TACHE HARD RELATIVE A L'IT
< ATTENDUE PAR CE SIT : L'IT EST
< DONC COMPTEE 2 FOIS DANS SIT :
< UNE FIS PAR LA TACHE HARD, ET
< UNE FOIS PAR SIMULATION DANS
< LE RECOVERY.
< (CAS DES DISQUES EN PARTICULIER)
E923: EQU $
BSR ASMDK < DEMASQUAGE IT CAR ON A FINI
< DE TOUCHER AU SIT !!!
TBT NBITAB-B
PLR A,B
RSR
PAGE
<
<
< C O P I E S Y N C H R O N E D U S Y S T E M E :
<
<
< FONCTION :
< L'HORLOGE REALISE UNE COPIE ASYNCHRONE
< DU SYSTEME VIS A VIS DES EVENEMENTS IMPOR-
< TANTS ; ON INTRODUIT ICI UN 'SVC' MAITRE
< QUI PEUT ETRE APPELE PAR N'IMPORTE QUI
< ET QUI PROVOQUE UNE COPIE SYNCHRONE...
<
<
CALL #SISP CMS5 CHECK#
COPSYN: EQU $
<
< DEMANDE DE COPIE SYNCHRONE :
<
DCOPSY: BYTE NSPDKF;XDSYM?XTYPAD
WORD FGW < ECRITURE
WORD TCOPY < DU BUFFER DE COPIE
WORD MCOPY2 < GENERE PAR 'PR1' (EN GENERAL)
WORD SCOPY0 < SUR LA ZONE 'SCOPY1' DE 'DKF'...
DZS LDEM0+DCOPSY-$
<
< PROTECTION DE LA DEMANDE :
<
SCOPSY: WORD SPHEX0 < SEMAPHORE D'EXCLUSION DE PHASE CRITIQUE
DZS LSEM < PROTEGEANT 'DCOPSY'...
CALL #SISP CMS5 CHECK#
<
< ROUTINE DE GENERATION DU BUFFER
<
AACOPY: WORD MOPY < AFIN QUE SI 'PR1' EST ABSENT, LE BUFFER
< DE COPIE SOIT QUAND MEME GENERE...
PAGE
<
<
< V I D A G E D U B U F F E R D ' A N T I C I P A T I O N :
<
<
< FONCTION :
< CE MODULE (FAIT DE REFERENCES
< EN AVANT PARCE QUE LE HANDLER
< VISUS N'EST PAS ENCORE ASSEMBLE...)
< VIDE LE BUFFER D'ANTICIPATION DES
< VISUS PAR REINITIALISATION DE SES
< 3 DESCRIPTEURS.
<
<
< ARGUMENT :
< (L)=ADRESSE DE LA 'DCTVIS'.
<
<
SVCVBI: EQU $
BSR ASMMK < M A S Q U A G E I N T E R R U P T I O N
WORD STZKCW < ON SUPPRIME TOUS LES CARACTERES EN
< ATTENTE PAR ANNULATION DE 'KCWIO'...
WORD LAIVIN
WORD STAWIN < ON REINITIALISE LES INDEX D'ENTREE
< ('ICWIN' <-- 'XXVIN')
WORD LAIVOU
WORD STAWOU < ET DE SORTIE...
< ('ICWOUT' <-- 'XXVOUT')
BSR ASMDK < D E M A S Q U A G E ...
JMP ASVCMF < VERS LA SORTIE...
PAGE
<
<
< S Y N C H R O N I S A T I O N S U R L E S
< V A L E U R S P O S I T I V E S D U
< M O T ' C D A G 0 ' :
<
<
< FONCTION :
< CE NOUVEAU 'SVC' MAITRE UTILISE
< PAR L'IDLE ET LE SOUS-PROGRAMME
< 'ARIT' DE L'HORLOGE DETECTE LES
< VALEURS POSITIVES DU MOT 'CDAG0'
< (PREMIER MOT DE LA 'CDAG'), ET ALORS
< DEBLOQUE LES TACHES BLOQUEES SUR
< LE SEMAPHORE 'SEMCDA'.
<
<
SVCDAG: EQU $
<
< SAUVEGARDES :
<
PSR A,B,Y
CALL #SISP CMS5 PSRSLO#
<
< POSITIONNEMENT SUR LA 'CDAG' :
<
LRM A,B
WORD AOCDA5 < (A)=FUTUR 'SLO',
WORD AECDA5 < (B)=FUTUR 'SLE'.
WOE < ET ON POINTE SUR LA 'CDAG'...
LYI CDAG0 < (Y)=ADRESSE RELATIVE DANS LA 'CDAG' DU
< MOT QUE L'ON VA TESTER ET QUI SERT DE
< SYNCHRONISATION.
LAR < (A)=MOT 'CDAG0' DE LA 'CDAG' :
IF XCDAG0-K,,XEIF%,XEIF%
IF ATTENTION : LE TEST SUIVANT EST IDIOT (NEGATIF,
IF NUL OU POSITIF) !!!
XEIF%: VAL ENDIF
JALE IDLEC3 < ET BIEN LE MOT 'CDAG0' N'A PAS LA
< VALEUR ATTENDUE (C'EST-A-DIRE UNE VA-
< LEUR POSITIVE), DONC ON NE REVEILLE
< PERSONNE ; ON NOTERA QUE LE TIME-OUT
< EST GERE DIRECTEMENT PAR 'HDLHOR' A
< CHAQUE CHANGEMENT DE MINUTE...
<
< CAS D'UN ETAT IMPLIQUANT
< LA SYNCHRONISATION :
<
BSR ASMMK < M A S Q U A G E I N T E R R U P T I O N
< ET CECI A CAUSE DE 'HDLHOR' QUI
< GERE LES TIME-OUT SUR 'SEMCDA'...
<
< TEST DU SEMAPHORE DE DEMANDE
< DE SYNCHRONISATION SUR 'CDAG0' :
<
IDLEC1: EQU $
LA &ASEMCD < (A)=MOT0 DU SEMAPHORE 'SEMCDA',
BSR ABETA < (A)=BETA(SEMCDA),
IF XXSEM0-K,,XEIF%,
IF ATTENTION : LE TEST SUIVANT EST IDIOT !!!
XEIF%: VAL ENDIF
JAGE IDLEC2 < (BETA(SEMCDA))>=0 : PAS D'ATTENTE SUR LE
< SEMAPHORE DE SYNCHRONISATION SUR 'CDAG0'.
<
< (BETA(SEMCDA))<0 : AU MOINS UN UTILI-
< SATEUR (VIA UN 'HDLSER') ATTEND, TESTONS
< DONC LE CONTENU DU MOT 'CDAG0' DONT
< L'ADRESSE RELATIVE A 'CDAG' EST DANS 'Y'.
<
LAD &ASEMCD < (A)=ADRESSE DU SEMAPHORE,
BSR ARLSE < ET ON FAIT UN RELEASE...
JMP IDLEC1 < AU CAS OU UN AUTRE UTILISATEUR ATTENDRAIT
< DESSUS...
<
< RESTAURATIONS ET SORTIE :
<
IDLEC2: EQU $
BSR ASMDK < D E M A S Q U A G E ...
IDLEC3: EQU $
CALL #SISP CMS5 PLRSLO#
PLR A,B,Y
ASVCMF: JMP SVCMTF < VERS LA SORTIE...
< (ET RELAI...)
PAGE
<
<
< ' S V C ' M A I T R E D E
< E X E C U T I O N D E S C O N N E X I O N S
< M A T R I C I E L L E S E V E N T U E L L E S :
<
<
< FONCTION :
< UN ESCLAVE PEUT ETRE ESPIONNE PAR
< AUTRE (CF. MAITRE-ELEVE), COMME UN
< ESCLAVE PEUT MONTRER A PLUSIEURS AUTRES
< QUELQUE-CHOSE. C'EST A QUOI VA SERVIR CE
< SYSTEME : IL VA DUPLIQUER LA DEMANDE
< COURANTE (W) SUR LE PERIPHERIQUES
< CONNECTES MATRICIELLEMENT AU PERI-
< PHERIQUE COURANT.
< UN NSP (NSP1) DE 0 A 31 PEUT ETRE
< CONNECTE MATRICIELLEMENT A UN NBRE
< QUELCONQUE DE NSP COMPRIS ENTRE 0 ET 31.
< (SOIT NSPX).
<
<
< ARGUMENTS :
< (A)=FONCTION COURANTE ('OPDEM'),
< (ON LA TRANSMET CAR ELLE PEUT AVOIR
< CHANGEE AU COURS DU SERVICE PRECEDENT)
< (W)=ADRESSE DE LA DEMANDE COURANTE.
<
<
UMATCO:: VAL D+D < LA MATRICE DES CONNEXIONS EST UNE
< MATRICE DE DOUBLE-MOTS...
XXNLOC:: VAL K < PAS D'ATTENTE EN CAS DE LOCATION...
XYNLOC:: VAL XXNLOC)BIT < ATTENTE EN CAS DE LOCATION ANTERIEURE...
<
< POINT D'ENTREE :
<
USE W,DEM0
SVCMAT: EQU $
PSR A,Y
LR A,Y < (Y)=FONCTION COURANTE...
LBY NSPTYP
XWOR%1: VAL MSKNSP=K
IF XWOR%1-NBITOC,,XEIF%,
IF ATTENTION : LE 'LBY' VA MERDER !!!
XEIF%: VAL ENDIF
XWOR%1: VAL -XWOR%1
ANDI MSKNSP>XWOR%1 < (A)='NSP' DE LA DEMANDE COURANTE, ET
CPI NBITMO*UMATCO < LE NSP(=NSP1) DEMANDE PAR
< L'ESCLAVE A-T'IL DROIT AUX
< CONNEXIONS MATRICIELLEES ???
JGE SVCMAC < NON, LE SERVICE EST DONC TERMINE.
<
< CAS OU NSP1 A DROIT AUX CONNEXIONS MATRICIELLES :
<
LR Y,X < (X)='OPDEM' COURANT, TEL QU'IL ETAIT
< AVANT LA DEMANDE PRECEDENTE.
XR A,X < (A)=OPDEM ; (X)=NSP1.
SWBR A,Y
ORR X,Y < OCTET0(Y)=OPDEM AVANT SERVICE,
< OCTET1(Y)=NSP1.
PSR B
ADR X,X < (X)=2*NSP1, EN EFFET, MATX EST
< UNE TABLE DOUBLE-MOTS.
LA &AMATX < (A)=MOT0(MATX(NSP1)).
ADRI I,X
LB &AMATX < (B)=MOT1(MATX(NSP1)).
<
< TEST SUR L'EXISTENCE DE CONNEXIONS
< MATRICIELLES SUR NSP1 :
<
JANE E940 < IL Y A AU MOINS UNE CONNEXION.
CPZR B
JE E941 < IL N' Y A AUCUNE CONNEXION SUR
< NSP1, INUTILE DE NOUS ATTARDER.
<
< CAS OU ON A TROUVE AU MOINS UNE CONNEXION
< MATRICIELLE SUR NSP1 :
<
E940: EQU $
LX ARGDEM+OPDEM < (X)=FONCTION ARGUMENT.
PSR A < SAVE (A)=MOT0(MATX(NSP1)).
LBY &AFONX < (A)=FONCTION TRANSCODEE DE LA
< FONCTION ARGUMENT.
STA ARGDEM+OPDEM < QUE L'ON MET IMMEDIATEMENT EN
< OPDEM DE LA DEMANDE.
FIMATC:: VAL MOCD < CODE D'UNE FONCTION NE POUVANT
< UTILISER LES CONNEXIONS MATRICIELLES.
CPI FIMATC < EST-CE UNE FONCTION AUTORISEE
< LORS D'1NE CONNEXION MATRICIELLE?
PLR A < RESTAURE (A)=MOT0(MATX(NSP1)).
JE E927 < NON, LA FONCTION ARGUMENT N'EST
< PAS UTILISABLE LORS D'1NE
< CONNEXION MATRICIELLE, ON VA
< DONC RESTAURER LA DEMANDE.
< ON A ICI :
< (A)=MOT0(MATX(NSP1)),
< (B)=MOT1(MATX(NSP1)).
E928: EQU $
DBT < RECHERCHE D'UNE CONNEXION.
< NSP1-->NSPX.
JC E927 < IL N'Y A PAS OU PLUS DE
< CONNEXION MATRICIELLE SUR NSP1.
<
< CAS OU ON A TROUVE UNE CONNEXION MATRICIELLE :
<
RBT L,X < RAZ DE LA CONNEXION DANS A,B.
PSR B < SAUVEGARDE DU MOT1(MATX(NSP1)).
LBI XXNLOC < ARGUMENT D'UN DEMANDE DE LOCATION SANS
< ATTENTE...
BSR ALODCT < LOCATION DE LA DCT(NSP=(X)) SANS ATTENTE
< SI ELLE EST DEJA LOUEE...
CPZR B < ALORS, ON PEUT ???
PLR B < RESTAURE (B)=MOT1(MATX(NSP1)).
IF XXNLOC-K,,XEIF%,
IF ATTENTION : SI UNE 'DCT' TESTEE N'EST PAS
IF LOUABLE, 'B' REVIENT INCHANGE, ET VAUT DONC
IF 'XXNLOC', ET LE TEST EST DONC MAUVAIS !!!
XEIF%: VAL ENDIF
JNE E928XX < NON, ALORS ON NE FAIT RIEN...
XR A,X < (X)=MOT0(MATX(NSP1)), ET
< (A)=NSPX AUQUEL EST CONNECTE
< NSP1 PAR L'INTERMEDIAIRE DE MATX.
STBY NSPTYP < MAJ DE LA DEMANDE ESCLAVE, ELLE
< PORTE MAINTENANT SUR UN DES
< NSPX CONNECTES A NSP1.
< CECI POUR UNE ECRITURE...
BSR ACHAND < ENVOI DE LA DEMANDE D'ECRITURE
< SUR LE NSPX CONNECTE.
XR X,A < RESTAURE (A)=MOT0(MATX(NSP1)),
< ET (X)=NSP COURANT...
WAIT WEIO < ATTENTE DE LA FIN D'ECRITURE.
BSR ADLDCT < DELOCATION DE LA DCT(NSP=(X))...
E928XX: EQU $
STZ ARGDEM+ETADEM < LES CONDITIONS DE RETOURS DES
< NSP CONNECTES MATRICIELLEMENT
< SONT IGNOREES ; ON RESTAURE
< DONC ETADEM A 0, PUISQUE SI
< ON EST ICI, C'EST QUE LE
< SERVICE DEMANDE PAR L'ESCLAVE
< S'EST BIEN TERMINE...
JMP E928 < ALLONS CHERCHER LA CONNEXION
< MATRICIELLE SUIVANTE (SI
< ELLE EXISTE...).
<
< RESTAURATION DE LA DEMANDE ESCLAVE :
<
E927: EQU $
LR Y,A
STBY NSPTYP < RESTAURE NSP1 DANS LA DEMANDE.
SLRS MSPTYP=K
STA ARGDEM+OPDEM < RESTAURE L'OPDEM DE LA DEMANDE
< ET CECI SURTOUT A CAUSE DE
< L''OMOV' DES BUFFERS ET DU
< SWAPPING.
E941: EQU $
PLR B
<
< FIN DU 'SVC' DE CONNEXION MATRICIELLE :
<
SVCMAC: EQU $
PLR A,Y
JMP SVCMTF < VERS LA SORTIE...
USE W,PSTS < POUR REMETTRE COMME C'ETAIT AVANT
< L'INTRODUCTION DE 'SVCMAT'...
PAGE
<
<
< E N T R E E S V C M A I T R E :
<
<
< FONCTION :
< LE 'SVC' MAITRE JUSQU'ALORS INUTILISE DANS
< CMS4 EST INTRODUIT ICI POUR PERMETTRE
< A DES SOUS-PROGRAMMES MAITRES D'ACCEDER
< A CERTAINS SOUS-PROGRAMMES DU SYSTEME
< SANS EN CONNAITRE LE DEPLACEMENT DANS
< LE COMMON...
< MALHEUREUSEMENT LE DEROUTEMENT DES
< INSTRUCTIONS "EXTENSIONS" (PAR EXEMPLE,
< LES INSTRUCTIONS FLOTTANTES LORSQUE LE
< BLOC FLOTTANT EST ABSENT OU EN PANNE) EST
< TELLEMENT MERDIQUE QU'IL SUBSISTE UN ALEAS
< LORSQU'ON RENTRE DANS CETTE SEQUENCE DE
< CODE ; ON NE PEUT JAMAIS ETRE SUR QU'IL
< S'AGIT VRAIMENT D'UN 'SVC' !!!
<
<
< ARGUMENTS :
< (X)=CODE DU 'SVC' ; NE PEUT DONC
< PAS TRANSMETTRE UN AUTRE ARGU-
< MENT QUE LE "NOM" DU SOUS-PRO-
< GRAMME A APPELER.
< LES AUTRES ARGUMENTS SONT SPECIFI-
< QUES DU SOUS-PROGRAMME APPELE.
<
<
< 'SVC' MAITRES RECONNUS :
< SVCM1 : 'RLSE' D'UN SEMAPHORE
< D'ADRESSE DONNEE PAR (A).
< SVCM2 : 'SNAP' LE CONTENU DE 'A'.
< SVCM3 : SIMULATION DU SYSTEME DE VISUALISATION
< VIDEO ACCEDANT A TOUTE LA MEMOIRE DU
< SYSTEME; SES ARGUMENTS SONT LES MOTS
< DU TYPE 'TVXXX' DE LA MEMOIRE DEBANA-
< LISEE ; IL EST APPELE ENTRE AUTRE PAR
< L'IDLE...
< SVCM4 : ALLOCATION D'UN CONTEXTE 'HDC',
< SVCM5 : DESALLOCATION D'UN CONTEXTE 'HDC',
< SVCM6 : EXTENSION DES ADRESSE AU-DELA DE
< 64K DANS LES 'CCB'.
< SVCM7 : DEMANDE DE COPY DU SYSTEME SUR
< LA PREMIERE ZONE ('SCOPY1').
< SVCM8 : DUPLICATION DES DEMANDES RELATIVES
< A UN PERIPHERQUE A L'AIDE DE LA
< MATRICE DES CONNEXIONS.
< SVCM9 : SYNCHRONISATION SUR LES VALEURS
< POSITIVES DU MOT 'CDAG0'.
< SVCM10 : VIDAGE DU BUFFER D'ANTICIPATION
< D'UNE VISU.
<
<
SVCMTR: EQU $
XKREG: VAL K < INITIALISATION DU CUMUL DES REGISTRES
< EMPILES, CAR ON VA LES COMPTER...
#@PSR C < #SISP CMS5 KREG#
CALL #SISP CMS5 BASE C#
< ON N'EST JAMAIS ASSEZ PRUDENT...
#@PSR A,B,Y < #SISP CMS5 KREG#
#@PSR L,W < #SISP CMS5 KREG#
<*******************************************************************************
XSVCMP:: MOT O < POSITION DU REGISTRE 'P' DANS LA PILE
< 'K' APRES UN 'SVC',
XSVCMX:: MOT '0@@@@-D < DE MEME POUR 'X' LORSQU'IL S'AGIT D'UN
< 'SVC' SIMULE PAR UNE EXTENSION...
<*******************************************************************************
LR K,L < (L)=BASE DE LA PILE 'K',
LY XKREG+XSVCMP,L < (Y)=REGISTRE 'P' DE RETOUR,
LR Y,W < (W)=BASE DU PROGRAMME APPELANT.
LRM B
XWOR%1: VAL $-ZERO
SVC K < (B)=CODE DU 'SVC',
XWOR%1: VAL $-ZERO-XWOR%1 < ET SA LONGUEUR...
LA -XWOR%1,W < (A)=MOT PRECEDENT CELUI QUI EST POINTE
< PAR LE 'P' DE RETOUR (SOIT (W)).
ANDI MOCG < ON ENLEVE LA ZONE ARGUMENT EVENTUELLE,
CPR A,B < EST-CE UN CODE DE 'SVC' ???
JNE Z71Y3 < NON, IL S'AGIT DONC D'UNE EXTENSION...
LA -XWOR%1,W < PEUT-ETRE (EN EFFET, LE DEUXIEME MOT
< D'UNE INSTRUCTION D'EXTENSION PEUT TRES
< BIEN AVOIR L'ALLURE D'UN 'SVC' !!!).
ANDI MOCD < (A)=ZONE ARGUMENT DU 'SVC' PRESUME...
CPR A,X < EST-ELLE EGALE AU CONTENU DE 'X' ???
JE Z71Y1 < OUI, ON ADMET QU'IL S'AGIT D'UN 'SVC',
< BIEN QU'ENCORE UNE FOIS, IL PUISSE
< S'AGIR D'UNE EXTENSION...
<
< CAS D'UNE INSTRUCTION EXTENSION :
<
Z71Y3: EQU $
LX XKREG+XSVCMX,L < (X)=VALEUR DU REGISTRE 'X' AVANT
< LE DEROUTEMENT...
STY XKREG+XSVCMX,L < QUI EST ECRASE DANS LA PILE 'K'
< PAR LE REGISTRE 'P' DE RETOUR...
PLR L,W < ON RESTAURE
PLR A,B,Y < CE QUE L'ON A DETRUIT...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< VOIR D'OU PROVIENT LA CAUSE DE CE
< DEROUTEMENT : PAR EXEMPLE BLOC FLOTTANT
< EN PANNE, ET UTILISE PAR 'DKU' ; ON NOTERA
< QUE 'X' EST BON !!!
<
PLR C
ADRI XSVCMX-XSVCMP,K < ON ANNULE L'EMPILEMENT DE 'X' QUI
< A ETE FAIT PAR LA SIMULATION
< DU 'SVC'.
LRM A,B
FLOAT 0.
JMP SVCDAG < VERS LA SYNCHRONISATION...
SVCM10:: VAL $-SVCMTL < VIDAGE DU BUFFER D'ANTICIPATION-VISU.
JMP SVCVBI < VERS LE VIDAGE...
<
< FIN DE LISTE DES CODES RECONNUS :
<
SVCMCP: EQU $
<*******************************************************************************
CPI $-SVCMTL+D < GENERATION DE LA VALIDATION
XWOR%1: VAL '0000000@@@@ < DU CODE AVEC LE MAXIMUM.
<*******************************************************************************
SVCMTC: EQU ZERO+XWOR%1 < C'EST UNE REFERENCE EN AVANT.
$EQU SVCMCP < ON ECRASE LE 'CPI'...
IF $-SVCMTL-NMSVCM,XEIF%,XEIF%,
IF ATTENTION : IL Y A TROP DE 'SVC' MAITRES !!!
XEIF%: VAL ENDIF
PAGE
<
<
< R E L E A S E D ' U N S E M A P H O R E :
<
<
< ARGUMENT :
< (A)=ADRESSE DU SEMAPHORE.
<
<
SVCMT1: EQU $
BSR ARLSE < (A)=ADRESSE DU SEMAPHORE.
JMP SVCMTF < ET C'EST TOUT...
PAGE
<
<
< S N A P ( A ) :
<
<
< ARGUMENT :
< (A)=VALEUR A EDITER.
<
<
XXSNAP:: VAL L < BIT INDICATEUR DE 'SNAP'.
SVCMT2: EQU $
PSR A
SBT XXSNAP < ON FORCE LE BIT0 A 1,
BSR ASNAP < ET ON SNAP...
PLR A
JMP SVCMTF < ET C'EST TOUT...
PAGE
<
<
< C O D E S N O N R E C O N N U S :
<
<
SVCMTS: EQU $
BSR ASYSER < E R R E U R S Y S T E M E ...
<
<
< R E T O U R D E S ' S V C ' M A I T R E S :
<
<
SVCMTF: EQU $
PLR C
LXI K < RETOUR AVEC (X)=K...
Z71Y2: EQU $ < RETOUR DES 'SVCM' ET DES EXTENSIONS'...
RSR < ET C'EST TOUT...
PAGE
<
<
< C O P Y S Y N C H R O N E S U R ' S C O P Y 1 ' :
<
<
< FONCTION :
< CE NOUVEAU 'SVC' MAITRE PERMET
< A UNE TACHE QUELCONQUE ('GET' ET
< 'REL' ESPACE DISQUE PAR EXEMPLE)
< DE FORCER UNE COPIE DU SYSTEME
< SUR 'SCOPY1' QUI DEVIENT AINSI
< LA PLUS A JOUR...
<
<
SVCCOP: EQU $
PSR A,B,W < SAUVEGARDE DE 'A', 'B' ET 'W'...
BSR ASMWHO < QUI EST LA ???
IF TYPTS-K,,XEIF%,
IF ATTENTION : LE TEST SUIVANT EST IDIOT !!!
XEIF%: VAL ENDIF
JAE SVCCOS < OK, C'EST UNE TACHE 'SOFTWARE'...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< LA COPIE NE PEUT PAS ETRE FAIT
< SOUS LES INTERRUPTIONS, CAR EN
< EFFET CELA PENALISERAIT TROP LE
< TEMPS DE REPONSE DU SYSTEME !!!
<
JMP SVCCOR < ET ON SORT...
SVCCOS: EQU $
LR B,A < (A)='NSP' DE LA TACHE 'SOFTWARE'...
CPI NSPINI < EST-CE LA TACHE D'INITIALISATION ???
JE SVCCOR < OUI, ON NE FAIT PAS DE COPIE (PAR
< EXEMPLE, 'INI' ESSAYE DE RECUPERER LES
< Q-SECTEURS HORS-SERVICE...) ; EN EFFET
< DANS 'INI', TANT QUE L'ETAT DU SYSTEME
< N'A PAS ETE REINITIALISE, ON NE PEUT
< FAIRE DE COPIE...
LA ETASYS
TBT OTOCOP < LA COPIE EST-ELLE ON ???
JC SVCCOR < NON (VACHEMENT DANGEREUX...)...
LRM W < OUI...
WORD COPSYN < (W)=ADRESSE DU "CONTEXTE" DE COPIE...
<
< DEBUT DE PHASE CRITIQUE :
<
RQST SCOPSY-COPSYN,W
<
< GENERATION ET ENVOI DE LA COPY :
<
BSR AACOPY-COPSYN,W < IL FAUT GENERER LA COPY SUR LE PRO-
< CESSEUR MAITRE, CAR SINON, LE BUFFER
< QU'ON ENVERRAIT SUR 'SCOPY1' N'AURAIT
< PAS LA BONNE VALEUR... DE PLUS ON NE
< PEUT ATTENDRE QUE 'PR1' AIT FAIT CETTE
< MISE A JOUR, CAR SEULE UNE ATTENTE ACTIVE
< SERAIT REALISABLE, ET ALORS AUTANT FAIRE
< LA COPIE ICI...
IF COPSYN-DCOPSY,,XEIF%,
ADRI DCOPSY-COPSYN,W < (W)=ADRESSE DE LA DEMANDE DE COPIE,
XEIF%: VAL ENDIF
BSR ACHAND < QUE L'ON ENVOIE,
BSR ACHANW < ET ON ATTEND LA FIN DE L'OPERATION...
IF COPSYN-DCOPSY,,XEIF%,
ADRI COPSYN-DCOPSY,W < ET ON RESTAURE 'W'.
XEIF%: VAL ENDIF
<
< FIN DE PHASE CRITIQUE :
<
LAD SCOPSY-COPSYN,W < (A)=ADRESSE DU SEMAPHORE
BSR ARLSE < D'EXCLUSION QUE L'ON LIBERE...
<
< RETOUR :
<
SVCCOR: EQU $
PLR A,B,W
JMP SVCMTF < ET C'EST TOUT...
PAGE
<
<
< S I M U L A T I O N D ' U N S Y S T E M E D E
< T E L E V I S I O N N U M E R I Q U E A C C E D A N T
< A T O U T E L A M E M O I R E :
<
<
SVCMT3: EQU $
PSR A,B,Y,W < SAUVEGARDE DES REGISTRES DETRUITS,
LA ETASYS < ACCES AUX INDICATEURS DU SYSTEME :
TBT TVEXIS < LA TELEVISION NUMERIQUE EST-ELLE LA ???
JNC Z71XD < NON, ON NE FAIT DONC RIEN...
CALL #SISP CMS5 PSRSLO#
< DE MEME POUR (SLO,SLE)...
LRM B,X,Y,W
WORD XX64K>DADR*LK < (B)=LIMITE INFERIEURE DE LA VALEUR
< DE 'TVMEM1' EXPRIMEE EN 16-MOTS,
WORD TVLIMA*LK < (X)=LONGUEUR EN MOTS D'UNE TRAME, OU
< D'UNE COMPOSANTE.
WORD TVLIMA*LK>DADR < (Y)=LONGUEUR EN 16-MOTS D'UNE TRAME...
WORD ZERO < (W)=BASE DE LA MEMOIRE DEBANALISEE.
LA TVCTRL-ZERO,W < ACCES AUX INDICATEURS DE CONTROLE
< DU SYSTEME DE TELEVISION.
XWOR%1: VAL TVSIMU=K
XWOR%1: VAL -XWOR%1 < POUR UN DECALAGE A DROITE,
IF XWOR%1,,XEIF%,
SLRS -XWOR%1 < CADRAGE DE 'TVSIMU' A DROITE.
XEIF%: VAL ENDIF
ANDI TVSIMU>XWOR%1 < ACCES A 'TVSIMU'.
JAE Z71XX < CE N'EST PAS LE MODE 'SIMULATION',
< ON NE FAIT RIEN...
PSR W
ADR A,W < ACCES A 'TVMEM1', 'TVMEM2' OU
< 'TVMEM3' SUIVANT 'TVSIMU'.
LA TVMEM-ZERO,W < (A)=ADRESSE 16-MOTS DU RECEPTEUR.
PLR W
CPR B,A < VALIDATION CAPITALE DE CETTE ADRESSE
< DE RECEPTEUR...
JGE Z71XY < OK, L'ADRESSE DU RECEPTEUR EST SUPE-
< RIEURE OU EGALE A LA LIMITE...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< RIEN, ON FAIT COMME SI LE SYSTEME ETAIT OFF...
<
JMP Z71XX < COMME SI LE SYSTEME ETAIT OFF !!!
<
< DEPLACEMENT DE LA ZONE MEMOIRE POINTEE
< PAR 'TVMEME' VERS CELLE POINTEE PAR
< 'TVMEM1' QUI EST LA ZONE VISUALISEE
< PAR LE SYSTEME DE TELEVISION, AFIN
< DE FAIRE CROIRE QUE LA ZONE POINTEE
< PAR 'TVMEME' EST VISUALISEE EN
< DYNAMIQUE !!!
<
Z71XY: EQU $
LR A,B < (A)=FUTUR REGISTRE 'SLO', ADRESSE DU
< RECEPTEUR,
ADR Y,B < (B)=FUTUR REGISTRE 'SLE', ADRESSE DE
< FIN DU RECEPTEUR,
BSR ATWOE < MISE EN PLACE DE LA PROTECTION (SLO,SLE).
LR X,B < (X)=B=LONGUEUR-MOTS D'UNE TRAME,
LAI K < CLEAR POUR FAIRE LA DIVISION :
DV TVNITE-ZERO,W < (A)=NOMBRE DE MOTS ECHANGES LORS
< DE CHAQUE ITERATION.
CPZR B < LE NOMBRE D'ITERATIONS DIVISE-T'IL
< EXACTEMENT LA LONGUEUR D'UNE TRAME ???
JE Z71XZ < OUI, OK...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< RIEN DE SIMPLE, EN EFFET, EN AUGMENTANT LE NOMBRE
< D'ITERATIONS DE 1, ON RISQUERAIT DES ALARMES DE
< MEMOIRE INEXISTANTE !!!
<
JMP Z71XX < ET ON FAIT COMME SI LE SYSTEME
< ETAIT OFF...
Z71XZ: EQU $
LR A,Y < (Y)=NOMBRE DE MOTS POUR CHAQUE ITERATION,
LX TVNITE-ZERO,W < (X)=NOMBRE D'ITERATIONS.
LA TVMEME-ZERO,W < (A)=ADRESSE MOT DE L'EMETTEUR (ZONE A
< VISUALISER EN PSEUDO-DYNAMIQUE),
LBI TVAR0 < (B)=ADRESSE MOT DU RECEPTEUR RELATIVE
< A 'SLO' (ZONE DE VISUALISATION).
Z71XA: EQU $
PSR X < SAUVEGARDE DU DECOMPTE DES ITERATIONS.
LR Y,X < (Y)=X=NOMBRE DE MOTS DEPLACES.
PSR A
LA TVCTRL-ZERO,W < ACCES AUX INDICATEURS DE CONTROLE
< DE LA TELEVISION NUMERIQUE.
XWOR%1: VAL TVIN=K < BIT DE DISCRIMINATION IN/OUT...
TBT NBITMO-B-XWOR%1 < EST-CE UNE ENTREE OU UNE SORTIE ???
PLR A
JNC Z71XB < TVIN=K : OUT...
XR A,B < TVIN=1 : IN, ON PERMUTE LES REGISTRES
< D'ADRESSES 'A' ET 'B'.
JMP Z71XB3 < VERS LE 'MVTM' FONCTION DU SELECTEUR DE
< BOOTSTRAP ET DE 'MAINT'...
Z71XB4: EQU $ < POINT DE RETOUR...
XR A,B < RESTAURATION DES REGISTRES 'A' ET 'B'.
JMP Z71XC < VERS LE BLOC SUIVANT...
Z71XB: EQU $
MVTS < SIMULATION DE LA SORTIE (VISUALISATION).
Z71XC: EQU $
ADR Y,A < PROGRESSION DE L'ADRESSE EMETTRICE,
ADR Y,B < AINSI QUE CELLE RECEPTRICE.
PLR X < RESTAURATION DU DECOMPTE DES ITERATIONS,
JDX Z71XA < ET ON ITERE...
Z71XX: EQU $
< RESTAURATION DE (SLO,SLE) :
CALL #SISP CMS5 PLRSLO#
Z71XD: EQU $ < PAS DE TELEVISION...
PLR A,B,Y,W < ET DES REGISTRES DETRUITS...
SVCMTG: JMP SVCMTF < ET VOILA LE TRAVAIL...
< (ET RELAI)
PAGE
<
<
< A L L O C A T I O N D ' U N C O N T E X T E ' H D C ' :
<
<
< FONCTION :
< CE 'SVC' MAITRE GERE L'ALLOCATION
< D'UN CONTEXTE 'HDC' APPARTENANT AU
< PROCESSEUR 'PROIOP'.
<
<
< ARGUMENT :
< (A)=ADRESSE D'UN 'CCB' (QUI ETRE DE TYPE 'HDC').
<
<
< RESULTAT :
< CCN(CCB) <-- NUMERO DU CONTEXTE ALLOUE.
<
<
SVCGC: EQU $
PSR A,B,Y,W
PSR L
<
< INITIALISATION DES BASES (ON NE
< PEUT PAS FAIRE AUTREMENT QUE
< D'UTILISER TOUTES LES BASES) :
<
LR A,W < (W)=ADRESSE DU 'CCB',
LRM Y,L
WORD PILDKX < (Y)=ADRESSE DU POOL DES CONTEXTES,
WORD SEMDKY < (L)=ADRESSE DU SEMAPHORE DE PROTECTION
< DE CETTE RESSOURCE.
<
< ALLOCATION D'UN JEU DE REGISTRES
< AVEC ATTENTE EVENTUELLE :
<
LA CCBMO1,W
ANDI MTRHDC < NETTOYAGE DU MOT1 DU 'CCB',
LR A,B < ET SAUVEGARDE DANS LE REGISTRE 'B'.
RQST O,L < ALLOCATION D'UN CONTEXTE AVEC ATTENTE
< EVENTUELLE...
PULL < LORSQUE L'ALLOCATION EST POSSIBLE, ON
< OBTIENT DANS 'A', UN NUMERO DE JEU DE
< REGISTRES.
PLR L
JNV SVCGC1 < OK...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< EXAMINER LE POOL DES REGISTRES 'HDC' !!!
< ET IL CONVIENT D'ETRE PRUDENT AU REDEMARRAGE !!!
<
SVCGC1: EQU $
ORR B,A < INSERTION DU NUMERO DE CONTEXTE ALLOUE,
STA CCBMO1,W < ET MISE-A-JOUR DU 'CCB'.
PLR A,B,Y,W
JMP SVCMTG < ET C'EST TOUT, ON SORT...
PAGE
<
<
< D E S A L L O C A T I O N D ' U N J E U D E
< R E G I S T R E S ' H D C ' :
<
<
< FONCTION :
< CE 'SVC' MAITRE PERMET DE RENDRE
< AU POOL UN JEU DE REGISTRES 'HDC'.
<
<
< ARGUMENT :
< (A)=ADRESSE DU 'CCB'.
<
<
SVCRC: EQU $
PSR A,Y,L,W
<
< INITIALISATION DES BASES :
<
LR A,W < (W)=ADRESSE DU 'CCB'.
LRM Y,L
WORD PILDKX < (Y)=ADRESSE DU POOL DE CONTEXTES,
WORD SEMDKZ < (L)=ADRESSE DU SEMAPHORE DE PROTECTION
< DE LA RESSOURCE 'HDC'.
<
< RELEASE DU CONTEXTE POSSEDE
< PAR LE 'CCB' ARGUMENT :
<
LA CCBMO1,W
ANDI CCBCCN < (A)=NUMERO DU JEU DE REGISTRES POSSEDES,
PUSH < QUE L'ON REMET DANS LE POOL...
JNV SVCRC1 < OK...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< ALLER EXAMINER LE POOL DE REGISTRES !!!
<
SVCRC1: EQU $
LAD O,L < (A)=ADRESSE DU SEMAPHORE DE PROTECTION
< DU POOL DES CONTEXTES 'HDC',
BSR ARLSE < RELEASE DE LA RESSOURCE...
PLR A,Y,L,W
JMP SVCMTG < ET ON SORT...
PAGE
<
<
< E X T E N S I O N D ' A D R E S S E ' C C B ' :
<
<
< FONCTION :
< CETTE ROUTINE RECOIT EN ARGUMENT
< UN 'CCB' ET LE REGISTRE 'SLO' ; A
< PARTIR DE CE REGISTRE 'SLO', ELLE
< DETERMINE L'EXTENSION D'ADRESSE AU
< DELA DE 32K, SACHANT QUE L'ADRESSE
< DEJA PRESENTE DANS LE 'CCB' EST
< ABSOLUE DANS UNE PAGE DE 32K...
< DE PLUS, 'SVCM6' INITIALISE 'CCBMO0'
< ET 'CCBMO2' A L'AIDE DE 'CCBMR0' ET
< 'CCBMR2', CE QUI A L'AVANTAGE DE PER-
< METTRE LE BOUCLAGE SUR UN ECHANGE
< LORS D'UN DEFAUT...
<
<
< NOTA IMPORTANT :
< LORSQU'INITIALEMENT, LE CHAMP 'MAE'
< CONTIENT DEJA QUELQUE CHOSE (C'EST
< PAR EXEMPLE LE CAS, LORS DES TRANSFERTS
< RAPIDES ENTRES 'DKU' ET 'MEMTV'), LE
< 'SVCM6' EST INEFFECTIF...
< IL CONVIENDRA DONC D'INITIALISER
< CORRECTEMENT LE MOT0 D'UN 'CCB' AVANT
< TOUT APPEL DE 'SVCM6' !!!
<
<
< ARGUMENTS :
< (A)=ADRESSE DU 'CCB',
< (SLO)=REGISTRE 'SLO' PERMETTANT LA DETERMINATION
< DE LA PAGE DE 32K A LAQUELLE APPARTIENT
< L'ADRESSE CONTENU DANS LE 'CCB'.
<
<
SVCMAE: EQU $
PSR A,B,X,W
LR A,W < (W)=ADRESSE DU 'CCB'.
<
< INITIALISATION DU 'CCB' :
<
LA CCBMR0,W
STA CCBMO0,W < INDICATEURS ET EXTENSION D'ADRESSE,
LA CCBMR2,W
STA CCBMO2,W < ET PARTIE BASSE DE L'ADRESSE...
<
< VALIDATION RELATIVE A L'INTERDICTION
< D'ECHANGES A CHEVAL SUR DES FRONTIERES
< DE 64K-MOTS :
<
LA CCBMO3,W < (A)=LONGUEUR EN MOTS/OCTETS...
XWOR%1: VAL NOCMO-E?D < ??!??!?!
IF NOCMO-E-D,,XEIF%,
IF ATTENTION : IL FAUT TRAITER SEPAREMENT LES
IF COMPTES DE MOTS ET LES COMPTES D'OCTETS POUR
IF CONNAITRE L'ADRESSE-MOT DU DERNIER MOT CONCERNE
IF PAR L'ECHANGE !!!
XEIF%: VAL ENDIF
ADRI -XWOR%1,A < POUR CALCULER L'ADRESSE DU DERNIER MOT...
LB CCBMO0,W < (B)=MOT0 (INDICATEURS) :
TBT NBITMO+BCCBBM < EST-CE UN CANAL MOTS OU OCTETS ???
JNC SVCMAJ < DE MOTS...
SLRS NOCMO=K < D'OCTETS, CONVERSION EN UN NOMBRE
< DE MOTS...
SVCMAJ: EQU $
AD CCBMO2,W < (A)=ADRESSE DU DERNIER MOT CONCERNE PAR
< L'ECHANGE...
JNC SVCMAK < OK, IL N'EST PAS A CHEVAL SUR UNE
< FRONTIERE DE 64K...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< MODIFIER LE SYSTEME AFIN DE FAIRE
< DISPARAITRE CET ECHANGE QUI VA ETRE
< EXECUTE "MODULO" 64K ; POUR REDEMARRER,
< IL SERAIT PEUT-ETRE PRUDENT DE REDUIRE
< ARTIFICIELLEMENT LA LONGUEUR DE L'ECHANGE
< ('CCBMO3'), AFIN DE RESTER DANS UNE PAGE
< DE 64K !!!
<
SVCMAK: EQU $
<
< GENERATION DE L'EXTENSION D'ADRESSE
< ('CCBMAE') SI ELLE N'EST DEJA PRESENTE :
<
LA CCBMO0,W
ANDI CCBMAE < (A)=CHAMP 'MAE' DU MOT0 DU 'CCB' :
JANE SVCMAI < IL CONTIENT DEJA UNE EXTENSION, ON
< NE FAIT RIEN...
RDOE < (A)='SLO' COURANT,
LBI K < ET ON SE MOQUE DE 'SLE'...
XWOR%1: VAL XX64K/XPESC=K < PERMET DE PASSER D'UN NUMERO DE PAGE
< DE 64K A UN NUMERO DE PAGE DE 32K...
SCRD NBITMO+XSLO32+XWOR%1
< (B)=NUMERO DE PAGE DE 64K, ET
< BIT0(A)=NUMERO (0/1) DE PAGE DE 32K DANS
< LA PAGE DE 64K (B)...
JNC SVCMAF < BIT0(A)=0 : ON EST DANS LA PAGE 0 DE 32K,
< DE LA PAGE DE 64K COURANTE,
< L'ADRESSE MEMOIRE CONTENUE
< DANS LE 'CCB' EST BONNE...
XWOR%1: VAL XPESC*LK=K < POUR RECUPERER LE NUMERO DE PAGE DE 32K
< A L'INTERIEUR DE LA PAGE DE 64K...
SLRS XWOR%1 < CLEAR PARTIEL
SLLS XWOR%1 < DU REGISTRE 'A'...
LR A,X < (X)=COMPLEMENT DE L'ADRESSE DEJA CONTENUE
< DANS LE 'CCB',
AND CCBMO2,W < VALIDATION DE L'ADRESSE MEMOIRE :
JAE SVCMAG < OK, LE COMPLEMENT ETAIT DEJA NUL...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< COMPRENDRE POURQUOI LE BIT0
< DE L'ADRESSE CONTENUE DANS LE
< MOT2 DU 'CCB' EST DEJA A 1 ;
< VOIR SI LA DEMANDE D'ENTREE-SORTIE
< CORRESPONDANTE EST EN ADRESSE-MOTS
< OU OCTETS, OU S'IL NE S'AGIRAIT PAS
< D'UNE OPERATION 'CDA' !!!
<
SVCMAG: EQU $
LA CCBMO2,W
ORR X,A < ON RAJOUTE LE NUMERO (0/1) DE PAGE DE
< 32K (DANS LA PAGE DE 64K COURANTE),
STA CCBMO2,W < ET ON MET A JOUR L'ADRESSE MEMOIRE
< DANS LE 'CCB'...
SVCMAF: EQU $
LX CCBMO0,W < (X)=MOT0 DU 'CCB', POUR LEQUEL LE
< LE CHAMP 'MAE' EST FORCEMENT NUL...
XWOR%1: VAL CCBMAE=K
SLLD NBITMO+XWOR%1 < (A)=NUMERO DE PAGE DE 64K,
EORR X,A < QUE L'ON INSERE DANS LE CHAMP 'CCBMAE',
< (PAR 'EORR' POUR UNE VALIDATION UN
< PETIT PLUS LOIN...)
STA CCBMO0,W < ET ON MET A JOUR LE 'CCB'...
ANDR X,A < ON TENTE DE RECALCULER LE MOT0 DU 'CCB',
< SANS LE CHAMP 'CCBMAE',
CPR A,X < EST-ON RETOMBE SUR NOS PIEDS ???
JE SVCMAH < OUI, OK...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< COMPRENDRE COMMENT-IL SE FAIT
< QU'IL Y A DEBORDEMENT DU CHAMP 'CCBMAE' !!!
<
SVCMAH: EQU $
SVCMAI: EQU $ < CAS, OU 'MAE' CONTIENT DEJA UNE
< EXTENSION D'ADRESSE...
PLR A,B,X,W
JMP SVCMTG < ET C'EST TOUT...
<
<
< E X T E N S I O N S D ' A D R E S S E S
< C L A S S I Q U E S :
<
<
XWOR%1: VAL -NBITMO < POUR CONNAITRE LES POIDS FORTS DE
< L'ADRESSE DE BASE DU SYSTEME...
XWOR%2: VAL O>XWOR%1 < POIDS FORTS DE DEBUT.
XWOR%4: VAL CCBMAE=K
XEXA0:: VAL XWOR%2>XWOR%4 < EXTENSION D'ADRESSE PAGE 0...
IF XEXA0-K,,XEIF%,
IF ATTENTION : LES 'STZ' D'INITIALISATION DES
IF MOTS 0 DES 'CCB' SONT IDIOTS !!!
XEIF%: VAL ENDIF
XWOR%1: VAL -NBITMO-DADR < POUR CONNAITRE LES POIDS FORTS DE
< L'ADRESSE DE 'MEMTV'...
XWOR%2: VAL MEMTV0>XWOR%1 < POIDS FORTS DE DEBUT,
XWOR%3: VAL MEMTVE>XWOR%1 < POIDS FORTS DE FIN...
IF XWOR%2-XWOR%3,,XEIF%,
IF ATTENTION : LES ADRESSES DE 'MEMTV' SONT INCOHERENTES !!!
XEIF%: VAL ENDIF
XWOR%4: VAL CCBMAE=K
XEXATV:: VAL XWOR%2>XWOR%4 < EXTENSION D'ADRESSE 'MEMTV'...
PAGE
<
<
< S U I T E D E L A T E L E V I S I O N N U M E R I Q U E :
<
<
< NOTA :
< CE MODULE EST ICI ENCORE
< ET TOUJOURS A CAUSE DES SAUTS
< SUPERIEURS A 128 MOTS !!!
<
<
Z71XB3: EQU $
HORROM:: VAL XXBPTR < POSITION DU SELECTEUR DE BOOTSTRAP
< UTILISEE POUR FORCER OU RAZER LE
< BIT 'MAINT'...
IF HORROM-XXBROM,XEIF%,,XEIF%
IF ATTENTION : LORSQUE LE PUPITRE EST A L'ETAT "LOCK",
IF L'INSTRUCTION "RDSI" DONNE COMME POSITION DU
IF SELECTEUR DE BOOTSTRAP "XXBROM", DONC PB !!!
XEIF%: VAL ENDIF
PSR Y < SAUVEGARDE DU NOMBRE DE MOTS DEPLACES
< PAR LE 'MTVM'...
PSR A < SAUVEGARDE DE L'ADRESSE RELATIVE A 'SLO'.
RDSI < LECTURE DE L'IDENTIFICATION DU PROCESSEUR
ANDI MSBOOT < DONT ON NE GARDE QUE LE SELECTEUR
< DE BOOTSTRAP,
XWOR%1: VAL MSBOOT=K
SLRS XWOR%1 < QUE L'ON CADRE A DROITE...
LR A,Y < ET QUE L'ON SAUVEGARDE DANS 'Y'...
CPI HORROM < EST-CE UNE DEMANDE DE 'MAINT' ???
JNE Z71XB1 < NON, PAS DE 'MAINT'...
BSR ASMMK < OUI, ON DEMANDE UNE INHIBITION DU TEST
< DES PARITES MEMOIRE, ET POUR CE FAIRE
< M A S Q U A G E I N T E R R U P T I O N
< AFIN QUE SEUL LE 'MVTM' SOIT EXECUTE AVEC
< LE BIT 'MAINT' POSITIONNE...
LAI COSBT?MAINT=FMASK(K=FCINST
SST < ET ON FORCE 'MAINT' QUI INHIBE LES TESTS
< SUR LES PARITES MEMOIRE !!!
Z71XB1: EQU $
PLR A < RESTAURE :
< (A)=ADRESSE RELATIVE A 'SLO'...
MVTM < ET ON SIMULE L'ENTREE...
PSR A < RE-SAUVEGARDE DE L'ADRESSE RELATIVE A
< 'SLO'...
LR Y,A < (A)="SELECTEUR DE BOOTSTRAP"...
CPI HORROM < A-T'ON DEMANDE 'MAINT' ???
JNE Z71XB2 < NON, RIEN A FAIRE...
LA MEMV < OUI,
TBT MEMXXX < ETAIT'IL DEJA POSITIONNE ???
JC Z71XB5 < OUI (VOIR L'HORLOGE), ON LE LAISSE...
LAI COSBT?MAINT=FMASK(K=FCINST
RST < NON, IL FAUT EFFACER 'MAINT', ET
Z71XB5: EQU $
BSR ASMDK < D E M A S Q U A G E ...
Z71XB2: EQU $
PLR A < RESTAURE :
< (A)=ADRESSE RELATIVE A 'SLO',
PLR Y < (Y)=NOMBRE DE MOTS DEPLACES PAR 'MVTM'.
JMP Z71XB4 < VERS LE TRONC COMMUN 'MVTM'/'MVTS'...
PAGE
<
<
< E X T E N S I O N D E S ' C D A ' :
<
<
< FONCTION :
< CE SOUS-PROGRAMME EST DESTINE
< A REMPLACER LES ANCIENS 'WOE'
< QUI PERMETTAIENT DE SE POSITIONNER
< SUR 'MEMTV' (C'EST-A-DIRE LA 'CDAI') ;
< DORENAVANT, TOUTES CES OPERATIONS
< PEUVENT ATTEINDRE L'ENSEMBLE DES
< 'CDA' DU SYSTEME ; 'HDLDKU' RECOIT
< A CET EFFET, DANS LE CAS DE CES
< FONCTIONS, NON PAS (SLO,SLE) DE
< L'UTILISATEUR DANS LES REGISTRES
< (SLO,SLE), MAIS (CDESCO,CDESCE) QUI
< DEFINISSENT LA 'CDA' COURANTE...
<
<
< ARGUMENTS :
< (A,B)=REGISTRES 'SLO' ET 'SLE'
< DEMANDES SUR L'ANCIENNE 'CDAI'...
<
<
TWOE: EQU $
PSR X,Y
PSR A,B < SAUVEGARDE INDEPENDANTE DES REGISTRES
< (SLO,SLE) DEMANDES.
<
< EXAMEM DE (SLE)-(SLO) :
<
LR B,Y < (Y)=(SLE),
SBR A,Y < (Y)=(SLE)-(SLO), SOIT TAILLE DE LA ZONE
< DE LA 'CDAI' DEMANDEE...
SLLS NBITMO-XSLO32
SLRS NBITMO-XSLO32 < ON ELIMINE LE NUMERO DE PAGE DE 32K,
LR A,X < D'OU :
< (X)=TRANSLATION DANS LA 'CDA'...
<
< ACCES A (SLO,SLE) COURANTS :
<
RDOE < (A,B)=(SLO,SLE) COURANTS,
ADR X,A < QUE L'ON TRANSLATE...
< (A)=(SLO) COURANT TRANSLATE,
ADR B,X < (X)=(SLE) COURANT TRANSLATE,
LR A,B < AFIN DE RECALCULER LE 'SLE' COURANT :
ADR Y,B < (B)=(SLE)=(SLO COURANT)+(SLE ARGUMENT)
< -(SLO ARGUMENT),
CPR X,B < ET COMPARAISON ENTRE LE 'SLE' COURANT
< DANS 'X' ET LE 'SLE' DEMANDE APRES
< TRANSLATION DANS 'B'...
JLE TWOE1 < OK, (B)<=(X), CE QUI SIGNIFIE QUE LA
< TAILLE DEMANDEE N'EST PAS SUPERIEURE
< A LA TAILLE COURANTE...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< IL NE S'AGIT PAS REELLEMENT D'UNE
< ERREUR SYSTEME : IL SUFFIT PAR EXEMPLE
< QUE LA 'CDA' COURANTE SOIT UNE 'CDAP',
< MAIS, JE LA METS AFIN D'EN ETRE AVERTI...
<
TWOE3: EQU $
PLR A,B < ON RESTAURE (SLO,SLE) ARGUMENTS,
PSR A,B < QUE L'ON RE-SAUVEGARDE IMMEDIATEMENT...
<
< MODIFICATION DE (SLO,SLE) COURANTS :
<
TWOE1: EQU $
PSR A < SAUVEGARDE DE 'SLO',
LR B,A < ON FAIT : (SLO) <-- (SLE),
WOE < ET L'ON SE PLACE AINSI EN HAUT DE LA
< 'CDA' DONT L'AMPLITUDE A ETE TROUVEE
< CORRECTE...
LAI COSBT?DEBUG=FMASK(K=FCINST
BSR ASMMK < MASQUAGE DES INTERRUPTIONS CAR ON VA
< PASSER EN MODE 'DEBUG' :
SST < ET VOILA, ON PASSE EN MODE 'DEBUG',
< AFIN DE VOIR SI LA 'CDA' CHOISIE EST
< VALIDE (EXISTE PHYSIQUEMENT...).
LYI O < (Y)=ADRESSE DU PREMIER MOT A TESTER
< DANS (SLO,SLE),
DBP < ALORS, RECHERCHE DES MEMOIRES INEXIS-
< TANTES EN QUEUE DE LA 'CDA' :
PLR A < RESTAURE :
< (A)='SLO' REEL DE LA 'CDA'...
JV TWOE2 < ET BIEN, LA 'CDA' CHOISIE N'EXISTE PAS...
WOE < LES DERNIERS MOTS TESTES ONT L'AIR
< D'ETRE LA ; POSITIONNEMENT DE (SLO,SLE)
< DE LA 'CDA' :
< - COURANTE, LORSQUE L'AMPLITUDE EST
< CORRECTE (ET PEUT-ETRE UNE REDUCTION DE
< LONGUEUR : C'EST LA LONGUEUR ARGUMENT
< QUI L'EMPORTE),
< - ARGUMENT, SI L'AMPLITUDE DE LA 'CDA'
< COURANTE DANS (SLO,SLE) EST INSUFFISANTE,
< OU BIEN, SI LA 'CDA' QU'ON A MIS EN PLACE
< N'EXISTE PAS PHYSIQUEMENT.
DBP < RECHERCHE DES MEMOIRES EXISTANTES EN
< TETE DE LA 'CDA' :
JV TWOE2 < ET BIEN LA 'CDA' CHOISIE A UNE QUEUE
< QUI EXISTE, ET UNE TETE QUI N'EXISTE
< PAS !!!
IF LSPACE/XLSTAC-2,,XEIF%,
IF ATTENTION : LES 2 TESTS 'DBP' DE RECHERCHE DES
IF MEMOIRES INEXISTANTES SONT TROP NOMBREUX SI
IF LES STACKS MEMOIRE SONT PLUS GRANDS, OU PAS
IF ASSEZ NOMBREUX S'ILS SONT PLUS PETITS !!!
XEIF%: VAL ENDIF
LAI COSBT?DEBUG=FMASK(K=FCINST
RST < OUFFF, LA 'CDA' QU'ON A CHOISI EXISTE,
< ET (SLO,SLE) SONT POSITIONNES, ON PEUT
< DONC ANNULER LE MODE 'DEBUG'...
BSR ASMDK < PUIS DEMASQUER LES INTERRUPTIONS...
<
< SORTIE ET RESTAURATIONS :
<
PLR A,B < RESTAURATION DES ARGUMENTS...
PLR X,Y
RSR
<
< TRAITEMENT DES MEMOIRES
< INEXISTANTES DANS UNE 'CDA' :
<
TWOE2: EQU $
LAI COSBT?DEBUG=FMASK(K=FCINST
RST < ON COMMENCE PAR ANNULER LE MODE 'DEBUG',
BSR ASMDK < PUIS ON DEMASQUE LES INTERRUPTIONS, ET
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< EN FAIT CE N'EST PAS REELLEMENT
< UNE ERREUR SYSTEME : LA 'CDA' ADRESSEE
< PEUT PHYSIQUEMENT N'EST PAS SUFFISANTE.
< DANS CE CAS, EN GENERAL, C'EST LA 'CDA'
< ARGUMENT (A,B) QUI SERA POSITIONNEE EN
< 'TWOE3', OU BIEN... EN TOUT CAS, ON EXAMI-
< NERA ATTENTIVEMENT (SLO,SLE) !!!
<
JMP TWOE3 < ON VA FAIRE : (SLO,SLE) <-- (A,B)...
< MAIS ATTENTION, ON PEUT AINSI RENTRER
< DANS UNE BOUCLE SANS FIN, SI LA 'CDA'
< ARGUMENT (A,B) N'EXISTE PAS ('CBM' DIS-
< JOINTS,...) !!!
PAGE
CALL #SISP CMS5 DOL1# < A CAUSE DE LA REFERENCE EN
< AVANT SUR 'DCTSVC'
<
<
< E N T R E E S V C E S C L A V E :
<
<
< PHILOSOPHIE :
< LE PROBLEME EST DELICAT, EN EFFET IL
< FAUT EVITER DE FAIRE TRAVAILLER LE
< MONITEUR DANS LA PILE DE L'ESCLAVE.
< LA SEULE SOLUTION POUR SAUVEGARDER
< LES REGISTRES DE L'ESCLAVE (...),
< EST DE PASSER PAR L'INTERMEDIAIRE
< D'UNE TACHE SOFT INTERMEDIAIRE
< D'OU LA CREATION DE 'RUNSVC'...
<
<
< ARGUMENT :
< (A)=ADRESSE TRANSLATABLE DES ARGUMENTS.
< 'X' EST DESTRUCTIBLE (LA VALEUR
< FOURNIE PAR LE FIRMWARE EST
< IGNOREE).
<
<
< RESULTATS :
< A INCHANGE !!!
< (X)=0 SI EXECUTION DU SERVICE OK,
< =CODE-ERREUR SINON...
< CODES-CONDITIONS POSITIONNES TEL QUE :
< L'ESCLAVE PUISSE ECRIRE LE PROGRAMME SUIVANT :
<
< LAD XXXX
< SVC 0
< JE ,
< JNE .
<
<
SSVC: WORD DCTSVC+LSIT < @ DU SEMAPHORE DE SYNCHRONISATION
< DE SVCESC ET DE RUNESC.
SVCESC: EQU $
LR C,X < SAUVEGARDE REENTRANTE DU REGISTRE
< C DE L'ESCLAVE DANS X (INUTILISE).
DOLLAR: LRP C < MAJ DE C POUR ACCES A SSVC.
RLSE &SSVC-DOLLAR,C < SYNCHRONISATION SVCESC ET RUNSVC
< NOTA : ON N'UTILISE PAS LE S/P 'ARLSE'
< PARCE QUE:
< A NE DOIT PAS ETRE ECRASE
< C NE BASE PAS LE COMMON DU SYSTEME
< ET, ON EST SUR QUE LES IT NE SONT
< PAS MASQUEES
LR X,C < RESTAURE LE REGISTRE C DE
< L'ESCLAVE.
LXI K < AINSI, LORS DES APPELS DU !DEBUG QUI
< POURRAIENT SUIVRE, ON AURA UN CONTENU
< DU REGISTRE 'X' QUI SERA PROPRE...
<
< D E S A C T I V A T I O N D E L ' E S C L A V E :
<
QUIT < DESARMEMENT DU NIVEAU ESCLAVE.
RETSVC: EQU $ < VALEUR DU REGISTRE P(ESCLAVE) LORSQU'IL
< A EXECUTE L'INSTRUCTION 'SVC' ; CETTE
< VALEUR EST UTILISE PAR LE MODULE 'MASTER'
< DU 'CCI'...
<
< NOTA :
< LE QUIT, POUR FAIRE UN CHANGEMENT DE
< CONTEXTE CORRECT, DOIT PASSER AVANT
< LE RAZ DE DCTSY(NSPACT) DE 'RUNSVC',
< EN CONSEQUENCE, LE NIVEAU ESCLAVE DOIT
< ETRE PLUS PRIORITAIRE QUE LE NIVEAU
< DE TRAITEMENT DES SVC :
< NSPACT'32 : FREQUENCE DONNEE A L'HOR-
< LOGE PAR IDLE,
< = SI <='32 : NBRE DE DEMANDES EN
< ATTENTE SUR LE DKS OU
< SUR LE SCHEDULER.
< MOT1='FFFF (-1).
< 5- APPEL POUR DUMP :
< BIT0(MOT0)=1,
< MOT1=K.
< 6- APPEL POUR CHANGEMENT DE CONTEXTE :CF.
< ENTRY/RETURN-HANDLER AVEC BIT11(NSPTYP)=
< BIT15(NSPTYP)=1.
<
<
< ARGUMENTS :
< (A)=MOT0,
< (W)=MOT1.
<
<
STRACE: EQU $
IF XTROFF-K,XEIF%,,
IF ATTENTION : LES TESTS SUIVANTS VONT MERDER !!!
XEIF%: VAL ENDIF
IF XBTROF-BITSIG,,XEIF%,
IF ATTENTION : LES TEST D'INHIBITION VONT MERDER...
XEIF%: VAL ENDIF
CPZ SAVEX < LA TRACE EST-ELLE INHIBEE ????
JL Z710 < OUI, RIEN A FAIRE.
PSR X
XR A,L
BSR ASMPUO < AFFICHAGE DE LA BASE L DE
< L'APPELANT AU PUPITRE A CHAQUE
< APPEL DE 'TRACE' AFIN DE RENDRE
< LE T1600 SEMBLABLE AUX VRAIS
< ORDINATEURS...
XR A,L
<
< CAS DE LA TRACE NON INHIBEE :
<
BSR ASMMK < MASQUAGE GENERAL DES IT
< EN EFFET LA MISE A JOUR DE LA
< TRACE EST STRICTEMENT IN-
< INTERRUPTIBLE, ET LA SEULE
< FACON DE LA PROTEGER DES PHASES
< CRITIQUES EST LE MASCAGE DES IT...
LX TRACEX < RECUPERATION DE L'INDEX DE TRACE.
STA &TRACE < MISE EN TRACE DE 'A'.
XR A,W
ADRI I,X < MOT SUIVANT DU DOUBLE-MOT COURANT.
STA &TRACE < MISE EN TRACE DE 'W' (DANS 'A'...).
XR A,W < RESTAURE 'A' ET 'W'.
ADRI I,X < L'INDEX DE TRACE A PROGRESSE DE 2.
IF UTRACE-2,,XEIF%,
IF ATTENTION : CE QUI PRECEDE EST FAUX !!!
XEIF%: VAL ENDIF
XR A,X
ANDI UTRACE*LTRACE-N < PROGRESSION MODULO, LA TRACE
< ETANT CIRCULAIRE.
XWOR%1: VAL UTRACE*LTRACE
XWOR%2: VAL XWOR%1=K
IF BIT>XWOR%2-XWOR%1,,XEIF%,
IF ATTENTION : LA LONGUEUR EN MOTS DE LA TRACE
IF DOIT ETRE UNE PUISSANCE DE 2 SI L'ON VEUT
IF CALCULER LE MODULO AVEC UN .AND. !!!
XEIF%: VAL ENDIF
XR A,X < RESTAURE 'A'.
STX TRACEX < SAVE INDEX DE TRACE.
BSR ASMDK < DEMASQUAGE GENERAL DES IT
PLR X
Z710: EQU $ < SORTIE 'TRACE INHIBEE'.
RSR
<
<
< S N A P T E M P S R E E L :
<
<
< ARGUMENT :
< (A)=CONTENU A SNAPER, SON BIT 0 EST A 0
< OU A 1 SUIVANT QUE L'ON SNAPE UN PSEUDO
< NIVEAU D'IT (CF. VISU1 A VISU6) OU PAS...
<
<
SNAP: EQU $
PSR W
CALL #SISP CMS5 W TRACE# < RAZ DE 'W' POUR FAIRE
< ASSIMILER CET APPEL A UN APPEL
< D'INTERRUPTION POUR LA TRACE.
BSR ATRACE < TRACE DE (A).
PLR W
RSR
PAGE
<
<
< T R A C E U R D E T O U S L E S
< C H A N G E M E N T S D E C O N T E X T E S :
<
<
< FONCTION :
< CETTE TACHE OCCUPE LE NIVEAU 0, POUR
< L'ACTIVER, IL SUFFIT D'APPELER LE DEBUG,
< QUI RAZERA RSTF. AINSI DES QU'UNE TACHE
< ACTIVABLE DE MSP SERA ACTIVABLE, ET SI
< SON BIT DE RSTF=K, ON APPELERA
< 'CHECK' QUI TRACERA CETTE ELECTION.
< LA TRACE CONTIENT L'ELECTION SOUS LA
< FORME 'ENTRY IN HDL' AVEC L'OCTET1
< DU MOT0='EF ; LE MOT1 CONTENANAT LE P
< LORS DE L'ELECTION.
<
<
CALL #SISP CMS5 CHECK#
<
< ' D C T ' S I M P L I F I E E :
<
CALL #SISP CMS5 DOL1#
DCTCHK: EQU $
WORD K;K;K;K;COM+DEPCS;NIL;NIL;PILCHK;CHECK;SMST;SO;SE
CALL #SISP CMS5 DOL2#
PILCHK: EQU $-DEPILE
XWPILE: VAL 12
CALL #SISP CMS5 GENPIL2#
CALL #SISP CMS5 CHECK#
<
< C H E C K A N D T R A C E :
<
CHECK: EQU $
BSR ASMMK <<<< MASQUAGE GENERAL DES IT...
LXI LOFDMS
E961: EQU $
STZ &ARSTF < RAZ DE RSTF A CHAQUE APPEL
< DE CHECK, AFIN D'EVITER DES
< DE PERDRE DES CHANGEMENTS
< DE CONTEXTE.
JDX E961
LX XXNL-ZERO,W < (X)=(nl), SOIT LE NIVEAU DE LA
< TACHE ELUE.
ADRI -NSNSP0,X < (X)=NSP DE LA TACHE ELUE.
BSR ACADCT < (L)=@DCT TACHE ELUE.
LY RP+XXPSTD,L < (Y)=REGISTRE P DE LA TACHE ELUE.
SWBR X,A
ORI MOCD < ON GENERE DANS A LA CONFIGURATION
< SUIVANTE :
< OCTET0=NSP TACHE ELUE,
< OCTET1='FF (BIT11=BIT15=1).
XR Y,W < (Y)=K, (W)=P(TACHE ELUE).
BSR ATRACE < TRACE DE L'ELECTION.
LR Y,W < RESTAURE (W)=K.
ADRI NSNSP0,X < RESTAURE (X)=NUMERO DE LA
< TACHE ELUE.
LYI FONSB1 < FONCTION SET BIT A 1.
LAD ARSTF < (A)=@ DU RELAI D'ACCES A RSTF.
BSR ATMOBT < MISE A 1 DU BIT DE LA TACHE
< ELUE DANS RSTF.
LXI NTS0
BSR ATMOBT < ET OUI, SUR LE SOLAR, CONTRAIREMENT
< AU T1600, IL FAUT PENSER A LA TACHE
< DE 'CHECK AND TRACE'...
BSR ASMDK <<<< DEMASQUAGE GENERAL DES IT...
QUIT < ACTIVATION DE LA TACHE ELUE.
JMP CHECK
PAGE
IF OACTIV-EXIST,XEIF%8,,XEIF%8
<
<
< V I S U A L I S A T E U R D E T R A F F I C :
<
<
< FONCTION :
< LORSQUE SON ADRESSE EST IMPAIRE
< (CONTROLEE PAR LE BIT 'XACTIV'),
< CE SOUS-PROGRAMME PERMET DE VISUA-
< LISER SUR L'IMAGEUR MOYENNE DEFINI-
< TION LE TRAFFIC INTER-TACHES, NOTEES
< ALORS :
<
< EMETTEUR --> RECEPTEUR.
<
< LES ABSCISSES REPERENT LES EMETTEURS,
< ET LES ORDONNEES LES RECEPTEURS.
<
<
< ARGUMENTS :
< (X)=(RECEPTEUR/EMETTEUR),
< (Y)=NIVEAU DE GRIS A ATTRIBUER AU POINT.
XNGIN:: VAL XXN255 < NIVEAU DE VISUALISATION DE L'ETABLISSE-
< MENT DE LA CONNEXION EMETTEUR -->
< RECEPTEUR DANS 'CHAND'.
XNGOUT:: VAL XXNOIR+I+I+I+I < NIVEAU DE VISUALISATION DE LA DECONNEXION
< LORS DU 'REVDEM' FACULTATIF DE 'HANDLR'.
< EN PRENANT UN NIVEAU DIFFERENT DU
< NOIR, ON PEUT AINSI MEMORISER SUR
< L'ECRAN TOUTES LES CONNEXIONS QUI ONT
< EU LIEU...
<
<
< NOTA IMPORTANT :
< POUR NE PAS MANGER TROP
< D'ESPACE DE PILE, LES REGIS-
< TRES 'A', 'X' ET 'Y' SONT
< DETRUITS, ET DOIVENT DONC
< ETRE SAUVEGARDES PAR L'APPELANT !!!
<
<
<*******************************************************************************
XWOR%1: VAL $-ZERO
XWOR%2: VAL -BIT
XWOR%3: VAL XWOR%1>XWOR%2>BIT
IF XWOR%1-XWOR%3,,XEIF%,
NOP < SI LE "$" COURANT EST IMPAIR, ON
< SE PLACE A L'ADRESSE PAIRE IMMEDIATEMENT
< SUIVANTE...
XEIF%: VAL ENDIF
ACTIV: EQU $
<*******************************************************************************
<
< POINT D'ENTREE INACTIF :
<
JMP ACTIV1 < ON SORT IMMEDIATEMENT...
<
< POINT D'ENTREE ACTIF :
<
BSR ASMMK < ET MASQUAGE DES INTERRUPTIONS, LE POSI-
< TIONNEMENT DES DIFFERENTS REGISTRES NE
< POUVANT ETRE INTERROMPU...
< NOTA IMPORTANT : POUR REDUIRE AU MAXIMUM
< LA PHASE MASQUEE, IL SERAIT PREFERABLE
< D'EMPILER D'ABORD LES REGISTRES, PUIS DE
< MASQUER LES INTERRUPTIONS... MALHEUREU-
< SEMENT, LA PILE DES 'HLLSGF' EST IMPLAN-
< TEE DANS UN BUFFER, ET SA TAILLE NE
< PEUT CROITRE A LOISIR ; OR LE SOUS-
< PROGRAMME 'SMMK' MANGE BEAUCOUP DE PILE
< (IL APPELLE LUI-MEME 'SMWHO'...) ; D'OU
< SON APPEL AVANT LES 'PSR' !!!
PSR B < SAUVEGARDES...
CALL #SISP CMS5 PSRSLO#
<
< DEFINITION DES FACTEURS D'ECHELLES :
<
NTRN
XWOR%1: VAL XC512/LSEMR/NBITMO
TRN
XWOR%2: VAL CODBT=FMASK(K?XWOR%1=FCINST)XWOR%1
XACTIE:: VAL COSBT?XWOR%2=FMASK(K=FCINST
< POUR PASSER DU NUMERO D'EMETTEUR A UNE
< ABSCISSE.
NTRN
XWOR%1: VAL XL512/LSEMR/NBITMO
TRN
XWOR%2: VAL CODBT=FMASK(K?XWOR%1=FCINST)XWOR%1
XACTIR: VAL COSBT?XWOR%2=FMASK(K=FCINST
< POUR PASSER DU NUMERO DE RECEPTEUR A
< UNE ORDONNEE.
<
< POSITIONNEMENT SUR LES
< REGISTRES DE COMMANDE :
<
LRM A,B
XWOR%1: VAL LK>DADR*TMCDAJ=K
XWOR%2: VAL BIT>XWOR%1*PAGE68
WORD MCDAJO+XWOR%2 < FUTUR 'SLO',
WORD MCDAJE+XWOR%2 < FUTUR 'SLE'.
WOE < ET POSITIONNEMENT SUR LA PAGE DE LA
< 'CDAJ' CONTENANT LES REGISTRES...
<
< ENVOI DU NIVEAU DE GRIS :
<
LR Y,A < (A)=NIVEAU DE GRIS DEMANDE,
LRM Y
WORD XRNIVO < (Y)=ADRESSE DU REGISTRE DE NIVEAU DE
< GRIS DANS LA PAGE 'PAGE68',
STAR < ET ENVOI DU NIVEAU DE GRIS...
<
< RECUPERATION DU COUPLE
< (EMETTEUR/RECEPTEUR) :
<
LR X,A < (A)=(RECEPTEUR/EMETTEUR),
IF TEMP68-K,XEIF%,XEIF%,
LXI -TEMP68
BSR ADODO < ET ON ATTEND UN PETIT PEU...
LR A,X < ET RESTAURE 'X'...
XEIF%: VAL ENDIF
SLRS MOCG=K < DECONCATENATION,
SLLS XACTIR=K < ET CONVERSION EN UNE ORDONNEE...
LR A,B < (B)=COORDONNEE 'Y' DU RECEPTEUR.
LR X,A
ANDI MOCD < DECONCATENATION,
SLLS XACTIE=K < ET CONVERSION EN UNE ABSCISSE...
LR A,X < (X)=COORDONNEE 'X' DE L'EMETTEUR.
<
< ENVOI DE L'EMETTEUR :
<
SLRS MOCG=K < RECUPERATION DE LA PARTIE HAUTE,
EORI XLINV < INVERSION DE LA LOGIQUE,
LRM Y
WORD XRXH
STAR < ENVOI DE LA PARTIE HAUTE DE 'X',
LR X,A
ANDI MOCD < RECUPERATION DE LA PARTIE BASSE,
EORI XLINV < INVERSION DE LA LOGIQUE,
ADRI XRXL-XRXH,Y
IF TEMP68-K,XEIF%,XEIF%,
LXI -TEMP68
BSR ADODO < ET ON ATTEND UN PETIT PEU...
XEIF%: VAL ENDIF
STAR < ENVOI DE LA PARTIE BASSE DE 'X'.
IF TEMP68-K,XEIF%,XEIF%,
LXI -TEMP68
BSR ADODO < ET ON ATTEND UN PETIT PEU...
XEIF%: VAL ENDIF
<
< ENVOI DU RECEPTEUR :
<
LR B,A
SLRS MOCG=K < RECUPERATION DE LA PARTIE HAUTE,
EORI XLINV < INVERSION DE LA LOGIQUE,
LRM Y
WORD XRYH
STAR < ENVOI DE LA PARTIE HAUTE DE 'Y',
IF TEMP68-K,XEIF%,XEIF%,
LXI -TEMP68
BSR ADODO < ET ON ATTEND UN PETIT PEU...
XEIF%: VAL ENDIF
LR B,A
ANDI MOCD < RECUPERATION DE LA PARTIE BASSE,
EORI XLINV < INVERSION DE LA LOGIQUE,
ADRI XRYL-XRYH,Y
STAR < ENVOI DE LA PARTIE BASSE DE 'Y'.
IF TEMP68-K,XEIF%,XEIF%,
LXI -TEMP68
BSR ADODO < ET ON ATTEND UN PETIT PEU...
XEIF%: VAL ENDIF
<
< TRACE DU "POINT DE TRAFFIC" :
<
LAI XRASTR < (A)=FONCTION DE MISE EN 'RASTER'...
LRM Y
WORD XRCMD < (Y)=ADRESSE DU REGISTRE DE COMMANDE,
STAR < TRACE DU POINT DE COORDONNEES (X,B).
<
< RESTAURATIONS DIVERSES :
<
CALL #SISP CMS5 PLRSLO#
PLR B
BSR ASMDK < DEMASQUAGE DES INTERRUPTIONS (VOIR LE
< NOTA IMPORTANT RELATIF A 'SMMK' !!!)...
<
< ET SORTIE :
<
ACTIV1: EQU $ < (CAS DU MODE INACTIF...)
RSR
XEIF%8: VAL ENDIF
PAGE
<
<
< D E C O N C A T E N A T I O N D ' U N
< N U M E R O D E B I T :
<
<
< ARGUMENT :
< - (A)=NUMERO DU BIT.
< RESULTATS :
< - (A)=NUMERO DU MOT AUQUEL APPARTIENT LE BIT / A 0,
< - (B)=NUMERO DU BIT DANS LE MOT / A 0.
<
<
SEPAR: EQU $
LBI K < PAR PRUDENCE...
SCRS NBITMO=K
SCLD NBITMO=K < (B)=RANG DU BIT DANS L'ENTREE.
SLRS NBITMO=K < (A)=NUMERO DE L'ENTREE,
< (B)=NUMERO DU BIT DANS L'ENTREE.
RSR
PAGE
<
<
< O P E R A T I O N S S U R B I T D A N S
< U N E T A B L E :
<
<
< ARGUMENTS :
< - (A)=ADRESSE RELAI INDIRECT-INDEXE (/IJIJDX) VERS TABLE.
< - (X)=RANG DU BIT DANS LA TABLE / A 0.
< - (Y)=FONCTION DEMANDEE :
< FONTB - (Y)=K : TEST BIT,
< FONSB1 - (Y)=1 : SET BIT A 1,
< FONRB0 - (Y)=2 : RESET BIT A 0,
< FONIB - (Y)=3 : INVERSE BIT.
< FONRB - (Y)=4 : RESET BIT A 0, SANS VERIF,
< FONSB - (Y)=5 : SET BIT A 1, SANS VERIF.
<
<
< RESULTAT :
< DANS LE CAS DE 'FONTB', LES INDI-
< CATEURS SONT POSITIONNES COMME
< APRES UN 'TBT'.
<
<
TMOBT: EQU $ < TEST AND MODIFY BIT IN TABLE.
PSR A,B,X < A CAUSE DU MICRO-CANAL.
PSR Y,W < A CAUSE DU MICRO-CANAL.
LR A,W < W POINTE SUR LE RELAI DE LA TABLE.
LR X,A < (A)=RANG DU BIT DANS LA TABLE.
BSR ASEPAR < DECONCATENATION DU NUMERO DE BIT.
< ON A ICI
< - (A)=NUMERO DE L'ENTREE,
< - (B)=NUMERO DU BIT DANS L'ENTREE
< CES 2 NUMEROS SONT / A 0.
ADRI IJIJDX,A < (A)=NUMERO DE L'ENTREE / A 1.
LR A,X < (X)=NUMERO DE L'ENTREE DANS LA TABLE
< PAR RAPPORT A 1...
LA &O,W < ACCES A L'ENTREE DANS LA TABLE.
XR Y,X < (X)=FONCTION ; (Y)=NUMERO DE L'ENTREE.
< ON A DONC ICI :
< - (B)=RANG DU BIT / A 0 DANS L'ENTREE,
< - (X)=FONCTION DEMANDEE,
< - (Y)=NUMERO DE L'ENTREE / A 1 DANS LA TABLE.
BR &ATMOB < REALISATION DE LA FONCTION.
CALL #SISP CMS5 DOL1#
IF FONTB-K,,XEIF%,
IF ATTENTION : LES FONCTIONS SONT MAUVAISES !!!
XEIF%: VAL ENDIF
TTMOB: WORD TMOBT0;TMOBT1;TMOBT2;TMOBT3;TMOBT4;TMOBT5
CALL #SISP CMS5 DOL2#
<
< TEST D'UN BIT :
<
TMOBT0: EQU $
LR B,X < (X)=RANG DU BIT.
TBT L,X
E164: EQU $
PLR Y,W < A CAUSE DU MICRO-CANAL.
PLR A,B,X < A CAUSE DU MICRO-CANAL.
RSR < CARY POSITIONNE SI 'TBT'.
<
< SET A 1 D'UN BIT :
<
TMOBT1: EQU $
LR B,X < (X)=RANG DU BIT.
TBT L,X < TEST DU BIT A METTRE A 1.
JNC SYSR01 < OK, IL EST A 0.
BSR ASYSER < E R R E U R S Y S T E M E ...
SYSR01: EQU $
SBT L,X < MISE A 1 DU BIT.
E165: EQU $
LR Y,X < (X)=NUMERO DE L'ENTREE DANS LA TABLE.
STA &O,W < MISE A JOUR DE LA TABLE.
JMP E164
<
< RESET A 0 D'1N BIT :
<
TMOBT2: EQU $
LR B,X < (X)=RANG DU BIT.
TBT L,X < TEST DU BIT A METTRE A 0.
JC SYSR02 < OK, IL A 1.
BSR ASYSER < E R R E U R S Y S T E M E ...
SYSR02: EQU $
RBT L,X
JMP E165
<
< INVERSION D'UN BIT :
<
TMOBT3: EQU $
LR B,X < (X)=RANG DU BIT.
IBT L,X
JMP E165
<
< RESET A 0 SANS VERIF :
<
TMOBT4: EQU $
LR B,X < (X)=RANG DU BIT.
RBT L,X < RESET.
JMP E165
<
< SET A 1 SANS VERIF :
<
TMOBT5: EQU $
LR B,X < (X)=RANG DU BIT.
SBT L,X
JMP E165
PAGE
<
<
< R E C H E R C H E D ' U N B I T
< A 1 D A N S U N E T A B L E :
< ( E T S O N R A Z.. )
<
<
< FORMAT DES TABLES UTILISEES :
< 1 - LA TABLE DOIT ETRE RELAYEE PAR
< UN RELAI INDIRECT INDEXE PAR RAPPORT
< A 'IJIJDX' ;
< 2 - LE MOT LA PRECEDANT (DONC D'INDEX
< EGAL A '0) DOIT CONTENIR LE NOMBRE
< DE BITS (SOIT N) UTILES DE LA TABLE ;
< LE RESULTAT DOIT DONC ETRE CONTENU
< ENTRE 0 ET N-1 :
< 0<= (A) <= N-1.
<
<
< ARGUMENTS :
< - (A)=ADRESSE RELAI INDIRECT-INDEX (/IJIJDX) VERS TABLE.
< - (X)=NUMERO DE LA 1ERE ENTREE (MOT) A TESTER DANS LA
< TABLE (ON TESTERA LES ENTREES DE (X) A 1, CE QUI PERM
< PERMET D'OPTIMISER EVENTUELLEMENT LE PARCOURS
< DE LA TABLE).
<
<
< RESULTATS :
< - SI (X)#0 : (A)=NUMERO DU 1ER BIT A 1 DANS LA TABLE
< (NUMERO PAR RAPPORT A 0),
< - SI (X)#0 : (X)=NUMERO / A 1 DE L'ENTREE DANS LAQUELLE
< ON A TROUVE UN BIT A 1. ON PEUT L'UTILISER AU
< RETOUR DANS LE CADRE D'UNE OPTIMISATION DU
< PARCOURS DE LA TABLE.
< - SI (X)#0 : RAZ DU 1ER BIT A 1 ,
<
< - SI (X)=K : AUCUN BIT N'EST A 1 DANS CETTE TABLE.
<
<
< A T T E N T I O N :
< DETRUIT 'A' ET 'X' !!!
<
<
SOBT: EQU $ < SURCH ONE BIT IN TABLE.
PSR W < SAVE BAS W.
LR A,W < L'ACCES A LA TABLE SE FAIT
< D'UNE MANIERE REENTRANTE EN
< TRAVAILLNAT SUR LE RELAI DE
< L'APPELANT.
< (W)=ADRESSE DU RELAI DE LA TABLE.
E160: EQU $
LA &O,W < ACCES A UNE ENTREE DE LA TABLE.
JANE E161 < CA Y EST, ON A TROUVE AU MOINS
< 1 BIT A 1.
JDX E160 < ET NON, PASSONS A L'ENTREE
< SUIVANTE.
<
< CAS OU TOUS LES BITS SONT A 0,
< ON S'EN VA AVEC (X)=0 :
<
E162: EQU $
PLR W < RESTAURE W.
CPZR X < POUR TEST EN RETOUR...
RSR
<
< CAS OU ON A TROUVE AU MOINS UN BIT A 1 :
<
E161: EQU $
PSR B
LR X,B < (B)=NUMERO DE L'ENTREE PAR RAPPORT A 1.
DBT < (X)=RANG DU 1ER BIT A 1 DANS L'ENTREE.
RBT L,X < RAZ DE CE BIT.
XR B,X < (B)=RANG DU BIT DANS L'ENTREE.
STA &O,W < MAJ DE LA TABLE APRES LE RAZ DU
< 1ER BIT A 1.
LR X,A < (A)=NUMERO DE L'ENTREE PAR RAPPORT A 1.
ADRI -IJIJDX,A < (A)=NUMERO DE L'ENTREE PAR RAPPORT A 0.
SLLS NBITMO=K < CONVERSION EN UN NUMERO
< DE BIT PAR RAPPORT A 0.
ADR B,A < (A)=NUMERO DU 1ER BIT QUI ETAIT
< A 1 PAR RAPPORT A 0.
PLR B
JAGE E162XX < OK, LE NUMERO EST POSITIF OU NUL...
BSR ASYSER < E R R E U R S Y S T E M E ...
E162XX: EQU $
PSR X
LXI IJIJDX-P < (X)=INDEX DU MOT PRECEDANT LA TABLE.
CP &O,W < LE BIT TROUVE APPARTIENT-IL BIEN
< A LA TABLE ARGUMENT ???
JL E162X < OUI, C'EST BON...
BSR ASYSER < E R R E U R S Y S T E M E ...
E162X: EQU $
PLR X
JMP E162 < RAPPEL : DANS X ON A UN NUMERO
< PAR RAPPORT A 1, DONC POSITIF.
PAGE
<
<
< A C C E S A U N O C T E T :
<
<
< FONCTION :
< CE SOUS-PROGRAMME TRES INTER-
< RESSANT PERMET D'ATTEINDRE UN OCTET
< QUELCONQUE DE 0 A 64K...
<
<
< ARGUMENTS :
< (W)=ADRESSE-MOT DE LA TABLE A LAQUELLE APPARTIENT
< L'OCTET,
< (X)=INDEX-OCTET DE L'OCTET.
< (ATTENTION : CET INDEX EST CONSIDERE COMME
< POSITIF SUR 16 BITS : CF LE SLRS...)
<
<
< RESULTAT :
< (A)=L'OCTET BIEN CADRE...
<
<
GETOC: EQU $
PSR X,W
LR X,A < (A)=INDEX DE L'OCTET.
SLRS NOCMO=K < (A)=INDEX MOT DE L'OCTET, ET
< CARY=1 S'IL S'AGIT DE L'OCTET
< DROIT DU MOT.
LXI MOCD=K < OCTET DROIT A PRIORI...
JC GETOC1 < ET OUI...
LXI MOCG=K < ET NON, OCTET GAUCHE...
GETOC1: EQU $
ADR A,W < (W)=ADRESSE-MOT DE L'OCTET,
LA O,W < QUE L'ON ACCEDE,
SLRS L,X < PUIS QUE L'ON CADRE,
ANDI MOCD < ET QUE L'ON ISOLE...
PLR X,W
RSR < ET C'EST TOUT...
PAGE
<
<
< S O U S - P R O G R A M M E D E S I M U L A T I O N
< D E S I N S T R U C T I O N S D E L O A D / S T O R E
< D E M O T S O U D ' O C T E T S P O U R
< E X E C U T I O N A U - D E L A D E 3 2 K :
<
<
< FONCTION :
< IL EXISTE DANS LE SYSTEME CMS5
< EN DE NOMBREUX ENDROITS DES LOADS
< ET DES STORES INDIRECTS (SOUVENT INDEXES)
< ACCEDANT A L'ESPACE UTILISATEUR LORS
< DES ENTREES-SORTIES ('SGN', 'VIS',...).
< L'UTILISATION DE CES INSTRUCTIONS IMPLI-
< QUE LA PRESENCE DES ZONES UTILISATEURS
< DANS LES 32 PREMIERS K-MOTS DE LA
< MEMOIRE.
< ON IMPLEMENTE DONC DES APPELS A CE
< SOUS-PROGRAMME DEVANT CHACUNE DES
< INSTRUCTIONS EN CAUSE ; SI LA ZONE
< UTILISATEUR EST DANS LA PAGE 0 DE 32K
< CES INSTRUCTIONS S'EXECUTENT TELLES
< QUELLES (VIA LA MICRO-PROGRAMMATION) ;
< PAR CONTRE AU-DELA DE LA PAGE 0, LEUR
< EXECUTION EST SIMULEE PAR CE SOUS-
< PROGRAMME, CE QUI N'EST PAS UNE MINCE
< AFFAIRE (EN PARTICULIER, SI ON REGARDE
< LA FACON DONT LES 'LA', 'LB',... SONT
< CODES, ON A DES SURPRISES...).
<
<
< ARGUMENTS :
< (SLO,SLE)=DONNE LA PAGE DE 32K QUE
< REFERENCE L'INSTRUCTION A
< SIMULER.
< (A), (B), (X), (Y)=REGISTRE A CHARGER
< OU A RANGER.
< ((P)+DEPILE)=INSTRUCTION A EXECUTER.
<
<
SIMUL: EQU $
XKREG: VAL K < INITIALISATION DU CUMUL DES REGISTRES
< EMPILES.
#@PSR A,B < #SISP CMS5 KREG#
RDOE < ACCES A LA PAGE DE 32K COURANTE :
IF SO-K,,XEIF%,
IF ATTENTION : LE TEST SUR LA PAGE 0 EST MAUVAIS !!!
XEIF%: VAL ENDIF
JAE SIMULU < ON EST DANS LA PAGE 0, L'INSTRUCTION
< ARGUMENT PEUT DONC S'EXECUTER TELLE
< QUELLE...
CALL #SISP CMS5 RST# < LECTURE DE 'ST' (ET DONC DE 'V' ET 'C')
#@PSR A,X,Y < #SISP CMS5 KREG#
#@PSR L,W < #SISP CMS5 KREG#
XKREG: VAL -XKREG < NOMBRE DE REGISTRES EMPILES A L'ENTREE,
< NON COMPRIS LE REGISTRE 'P' DE RETOUR.
<
< CAS DES PAGES DIFFERENTES DE LA PAGE 0 :
<
LR K,W < 'W' BASE LA PILE :
LA -XKREG-D+DEPILE,W
< (A)=REGISTRE 'P' DE RETOUR,
DO D
IC -XKREG-D+DEPILE,W
< AFIN DE SAUTER L'INSTRUCTION ARGUMENT
< AU RETOUR DU 'BSR'...
LR A,W < 'W' BASE L'INSTRUCTION ARGUMENT,
LB O,W < QUE L'ON MET DANS 'B' :
< (B)=INSTRUCTION ARGUMENT A EXECUTER.
<
< FORMAT DE LA PILE :
<
<*******************************************************************************
SIMULP:: VAL XKREG+D-DEPILE < REGISTRE 'P' DE RETOUR,
<*******************************************************************************
SIMULA:: VAL SIMULP-D < REGISTRE 'A' D'APPEL,
SIMULB:: VAL SIMULA-D < REGISTRE 'B' D'APPEL,
SIMUST:: VAL SIMULB-D < REGISTRE 'ST' D'APPEL (POUR 'V' ET 'C').
SIMULX:: VAL SIMUST-D < REGISTRE 'X' D'APPEL,
SIMULY:: VAL SIMULX-D < REGISTRE 'Y' D'APPEL,
SIMULL:: VAL SIMULY-D < BASE 'L' D'APPEL,
SIMULW:: VAL SIMULL-D < BASE 'W' D'APPEL.
XWOR%1: VAL '0@@@@
IF XWOR%1-K,,XEIF%,
IF ATTENTION : LE FORMAT DE LA PILE EST MAUVAIS !!!
XEIF%: VAL ENDIF
LR K,W < ET 'W' BASE LA PILE DE NOUVEAU...
<
< FORMAT D'UNE INSTRUCTION
< A REFERENCE MEMOIRE :
<
FIBASE:: VAL 'C000 < BASE D'ADRESSAGE 'C', 'L' OU 'W' :
FIBASC:: VAL 1 < 'C',
FIBASL:: VAL FIBASC+RL-RC < 'L',
FIBASW:: VAL FIBASL+RW-RL < 'W'.
FIIND:: VAL '2000 < INDICATEUR D'INDIRECTION.
FICODE:: VAL '1F00 < CODE OPERATION (VOIR LA LISTE 'XOYYY').
FIDEPL:: VAL '00FF < DEPLACEMENT PAR RAPPORT A LA BASE.
XWOR%1: VAL FIBASE?FIIND?FICODE?FIDEPL
XWOR%2: VAL FIBASE)FIIND)FICODE)FIDEPL
IF XWOR%1-XWOR%2,,XEIF%,
IF ATTENTION : IL Y A DES RECOUVREMENTS MALHEUREUX !!!
XEIF%: VAL ENDIF
<
< LISTE DES CODES OPERATIONS RECONNUS :
<
XWOR%1: VAL FICODE=K
XWOR%1: VAL -XWOR%1
SIMUL5: EQU $
<*******************************************************************************
LBY &O,C < CODE DU 'LBY'.
XOLBY:: VAL '0000000@@@@(FICODE>XWOR%1
<*******************************************************************************
<*******************************************************************************
STBY &O,C < CODE DU 'STBY'.
XOSTBY:: VAL '0000000@@@@(FICODE>XWOR%1
<*******************************************************************************
<*******************************************************************************
STY &O,C < CODE DU 'STY'.
XOSTY:: VAL '0000000@@@@(FICODE>XWOR%1
<*******************************************************************************
<*******************************************************************************
STX &O,C < CODE DU 'STX'.
XOSTX:: VAL '0000000@@@@(FICODE>XWOR%1
<*******************************************************************************
<*******************************************************************************
STB &O,C < CODE DU 'STB'.
XOSTB:: VAL '0000000@@@@(FICODE>XWOR%1
<*******************************************************************************
<*******************************************************************************
STA &O,C < CODE DU 'STA'.
XOSTA:: VAL '0000000@@@@(FICODE>XWOR%1
<*******************************************************************************
<*******************************************************************************
LA &O,C < CODE DU 'LA'.
XOLA:: VAL '0000000@@@@(FICODE>XWOR%1
<*******************************************************************************
<*******************************************************************************
LX &O,C < CODE DU 'LX'.
XOLX:: VAL '0000000@@@@(FICODE>XWOR%1
<*******************************************************************************
<*******************************************************************************
LY &O,C < CODE DU 'LY'.
XOLY:: VAL '0000000@@@@(FICODE>XWOR%1
<*******************************************************************************
<*******************************************************************************
LB &O,C < CODE DU 'LB'.
XOLB:: VAL '0000000@@@@(FICODE>XWOR%1
<*******************************************************************************
$EQU SIMUL5 < ANNULATION DU CODE GENERE...
<
< RECUPERATION DE LA BASE D'ADRESSAGE :
<
XWOR%1: VAL FIIND=K
XWOR%2: VAL NBITMO-B-XWOR%1
IF BIT>XWOR%1-FIIND,,XEIF%,
IF ATTENTION : 'FIIND' DOIT ETRE UN BIT !!!
XEIF%: VAL ENDIF
TBT NBITMO+XWOR%2 < Y-A-T'IL BIEN INDIRECTION ???
JC SIMUL2 < OK, IL Y A INDIRECTION...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< RAJOUTER DANS LE SIMULATEUR LES
< INSTRUCTIONS SANS INDIRECTION !!!
< MAIS ATTENTION A LA SORTIE, CAR
< L'INSTRUCTION ARGUMENT VA ETRE
< EXECUTEE TELLE QUELLE...
<
JMP SIMULZ < ATTENTION A LA SORTIE...
SIMUL2: EQU $
XWOR%1: VAL FIBASE=K
XWOR%1: VAL -XWOR%1
LR B,A < (A)=INSTRUCTION ARGUMENT,
SLRS -XWOR%1 < CADRAGE A DROITE DE LA BASE,
ANDI FIBASE>XWOR%1 < (A)=BASE D'ADRESSAGE :
LR C,X < (X)=BASE 'C' A PRIORI...
CPI FIBASC < EST-CE LA BASE 'C' ???
JE SIMUL3 < OUI...
LX -SIMULL,W < NON, (X)=BASE 'L' A PRIORI...
CPI FIBASL < EST-CE LA BASE 'L' ???
JE SIMUL3 < OUI...
LX -SIMULW,W < NON, (X)=BASE 'W' A PRIORI...
CPI FIBASW < ES-CE LA BASE 'W' ???
JE SIMUL3 < OUI, OK ON A UNE DES 3 BASES...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< VOIR QUELLE EST CETTE INSTRUCTION
< SANS BASE, ET EVENTUELLEMENT LA
< RAJOUTER DANS LA SIMULATION !!!
< MAIS ATTENTION A LA SORTIE, CAR
< L'INSTRUCTION ARGUMENT VA ETRE
< EXECUTEE TELLE QUELLE...
<
JMP SIMULZ < VERS LA SORTIE...
SIMUL3: EQU $
LR X,L < (L)=VALEUR DE LA BASE D'ADRESSAGE DE
< L'INSTRUCTION ARGUMENT LORS DE
< L'APPEL...
LAI FIDEPL
ANDR B,A
XWOR%1: VAL FIDEPL=K
IF XWOR%1-K,,XEIF%,
SLRS XWOR%1 < (A)=DEPLACEMENT SUR UN OCTET,
XEIF%: VAL ENDIF
XWOR%1: VAL -XWOR%1
XWOR%2: VAL FIDEPL>XWOR%1)MMOT=K-XWOR%1
XWOR%2: VAL NBITMO-XWOR%2
SLLS XWOR%2
SARS XWOR%2 < (A)=DEPLACEMENT PAR RAPPORT A LA BASE
< 'L' ETENDU SUR 16 BITS...
ADR A,L < (L)=ADRESSE DU RELAI UTILISE PAR
< L'INSTRUCTION ARGUMENT...
LA O,L < (A)=RELAI...
TBT BITX < CE RELAI EST-IL BIEN INDEXE ???
RBT BITX < NON, A PRIORI,
LXI K < (X)=INDEX NUL...
JNC SIMUL4 < EFFECTIVEMENT, IL N'Y A PAS INDEXATION...
LX -SIMULX,W < IL Y A INDEXATION :
< (X)=REGISTRE 'X' D'APPEL...
SIMUL4: EQU $
LR A,Y < (Y)=ADRESSE DU BUFFER (OU AUTRE ZONE
< MEMOIRE) POINTE PAR LE RELAI LUI-
< MEME POINTE PAR 'L'...
<
< RECUPERATION DU CODE OPERATION :
<
XWOR%1: VAL FICODE=K
XWOR%1: VAL -XWOR%1
LR B,A < (A)=INSTRUCTION ARGUMENT,
SLRS -XWOR%1 < CADRAGE A DROITE DU CODE OPERATION,
ANDI FICODE>XWOR%1 < (A)=CODE OPERATION JUSTIFIE A DROITE,
< SANS SA BASE, NI INDIRECTION...
LBI K < CLEAR DE 'B' A CAUSE DE DECALAGES
< DOUBLES QUI VONT SUIVRE.
<
< CAS DES INSTRUCTIONS SUR OCTETS A PRIORI :
<
IF XOLBY-K,XEIF%,,XEIF%
JAE SIMULE < CAS DU 'LBY'.
XEIF%: VAL ENDIF
IF XOLBY-K,,XEIF%,
CPI XOLBY
JE SIMUL < CAS DU 'LBY'.
XEIF%: VAL ENDIF
CPI XOSTBY
JE SIMULF < CAS DU 'STBY'.
<
< CAS DES INSTRUCTIONS SUR MOTS A PRIORI :
<
ADR X,Y < A PRIORI, IL S'AGIT D'INSTRUCTIONS SUR
< MOT ; ON AJOUTE L'INDEX (X) A L'ADRESSE
< DU BUFFER :
< (Y)=ADRESSE DU MOT CHARGE OU RANGE PAR
< L'INSTRUCTION ARGUMENT.
CPI XOLA
JE SIMULG < CAS DU 'LA'.
CPI XOSTA
JE SIMULH < CAS DU 'STA'.
CPI XOLB
JE SIMULI < CAS DU 'LB'.
CPI XOSTB
JE SIMULJ < CAS DU 'STB'.
CPI XOLX
JE SIMULK < CAS DU 'LX'.
CPI XOSTX
JE SIMULM < CAS DU 'STX'.
CPI XOLY
JE SIMULN < CAS DU 'LY'.
CPI XOSTY
JE SIMULO < CAS DU 'STY'.
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< RAJOUTER L'INSTRUCTION MANQUANTE !!!
< MAIS ATTENTION, ON SORT IMMEDIATEMENT,
< ET L'INSTRUCTION ARGUMENT EST DONC
< EXECUTEE TELLE QUELLE...
<
JMP SIMULZ < VERS LA SORTIE...
<
< SIMULATION DU 'LA' :
<
SIMULG: EQU $
LAR < (A)=MOT POINTE PAR (Y)+(SLO),
STA -SIMULA,W < QUE L'ON MET DANS LA PILE...
JMP SIMULV < VERS LA SORTIE...
<
< SIMULATION DU 'LB' :
<
SIMULI: EQU $
LAR < (A)=MOT POINTE PAR (Y)+(SLO),
STA -SIMULB,W < QUE L'ON MET DANS LA PILE...
JMP SIMULV < VERS LA SORTIE...
<
< SIMULATION DU 'LX' :
<
SIMULK: EQU $
LAR < (A)=MOT POINTE PAR (Y)+(SLO),
STA -SIMULX,W < QUE L'ON MET DANS LA PILE...
JMP SIMULV < VERS LA SORTIE...
<
< SIMULATION DU 'LY' :
<
SIMULN: EQU $
LAR < (A)=MOT POINTE PAR (Y)+(SLO),
STA -SIMULY,W < QUE L'ON MET DANS LA PILE...
JMP SIMULV < VERS LA SORTIE...
<
< SIMULATION DU 'STA' :
<
SIMULH: EQU $
LA -SIMULA,W < (A)=REGISTRE 'A' D'APPEL,
JMP SIMULQ < VERS LE RANGEMENT...
<
< SIMULATION DU 'STB' :
<
SIMULJ: EQU $
LA -SIMULB,W < (A)=REGISTRE 'B' D'APPEL,
JMP SIMULQ < VERS LE RANGEMENT...
<
< SIMULATION DU 'STX' :
<
SIMULM: EQU $
LA -SIMULX,W < (A)=REGISTRE 'X' D'APPEL,
JMP SIMULQ < VERS LE RANGEMENT...
<
< SIMULATION DU 'STY' :
<
SIMULO: EQU $
LA -SIMULY,W < (A)=REGISTRE 'Y' D'APPEL,
<
< EXECUTION DES 'STORE' EN MEMOIRE :
<
SIMULQ: EQU $
STAR < RANGEMENT DE (A) EN (Y)+(SLO).
<
< FIN DES INSTRUCTIONS SUR MOTS ET DE 'LBY' :
<
SIMULV: EQU $
<
< SORTIE DE LA SIMULATION :
<
SIMUL1: EQU $
PLR L,W
PLR A,X,Y
LRM B
XWOR%1: VAL COSBT?V=FMASK(K=FCINST
XWOR%1: VAL COSBT?C=FMASK(K?XWOR%1=FCINST
WORD XWOR%1 < (B)=MASQUE DES INDICATEURS 'V' ET 'C'.
XR A,B < (A)=MASQUE DE 'V' ET 'C', ET
< (B)=VALEUR D'APPEL DU REGISTRE 'ST',
ANDR A,B < (B)=VALEUR DE 'V' ET 'C' LORS DE
< L'APPEL DE 'SIMUL'.
RST < CLEAR DE 'V' ET 'C',
LR B,A < ON NE GARDE DANS 'A' QUE 'V' ET 'C'
< DU REGISTRE 'ST' AVEC LEUR VALEUR LORS
< DE L'APPEL DE 'SIMUL'...
SST < RESTAURATION DE 'V' ET 'C'...
SIMULU: EQU $ < SORTIE RELATIVE AUX INSTRUCTIONS REFE-
< RENCANT LA PAGE 0...
PLR A,B
RSR < RETOUR A L'INSTRUCTION SUIVANTE LORS-
< QU'ON EST EN PAGE 0, OU A CELLE D'APRES
< DANS LES AUTRES CAS...
<
< SORTIE POUR 'SYSER' :
<
SIMULZ: EQU $
DO D
DC -XKREG-D+DEPILE,W
< AFIN D'EXECUTER NORMALEMENT L'INSTRUC-
< TION ARGUMENT...
JMP SIMUL1 < VERS LA SORTIE...
<
< SIMULATION DU 'LBY' :
<
SIMULE: EQU $
LR X,A < (A)=INDEX OCTET :
SLRD NOCMO=K < (A)=INDEX MOT, ET
< BIT DE SIGNE(B)=NUMERO DE L'OCTET...
ADR A,Y < (Y)=ADRESSE DU MOT CONTENANT L'OCTET
< CHERCHE...
LAR < (A)=MOT CONTENANT L'OCTET CHERCHE.
IF NOCMO=K-B-BITSIG,,XEIF%,
IF ATTENTION : LE TEST QUI SUIT EST IDIOT !!!
XEIF%: VAL ENDIF
CPZR B < ALORS, OCTET DROIT OU GAUCHE ???
JL SIMULR < DROIT : IL EST BIEN POSITIONNE...
SLRS MOCG=K < GAUCHE, ON LE CADRE A DROITE...
SIMULR: EQU $
ANDI MOCD < (A)=OCTET DESIRE,
STA -SIMULA,W < QUE L'ON RANGE DANS LA PILE...
JMP SIMULV < ET C'EST TOUT...
<
< SIMULATION DU 'STBY' :
<
SIMULF: EQU $
LR X,A < (A)=INDEX OCTET,
SLRD NOCMO=K < (A)=INDEX MOT, ET
< BIT DE SIGNE DE (B)=NUMERO DE L'OCTET
< DESIRE.
ADR A,Y < (Y)=ADRESSE DU MOT CONTENANT L'OCTET
< A METTRE A JOUR.
XWOR%1: VAL MOCD
LA -SIMULA,W < RECUPERATION DE 'A' ARGUMENT :
ANDI XWOR%1 < (A)=OCTET A RANGER EN MEMOIRE,
ORR A,B < QUE L'ON SAUVEGARDE DANS 'B' A COTE DU
< NUMERO DE L'OCTET (0/1).
LAR < (A)=MOT POINTE PAR (Y)+(SLO),
CPZR B < ALORS, OCTET DROIT OU GAUCHE ???
JL SIMULS < DROIT...
SWBR A,A < GAUCHE, ON LE MET A DROITE...
SIMULS: EQU $
ANDI XWOR%1)MMOT < ON NETTOIE L'OCTET DROIT,
RBT NOCMO=K+NBITMO-B
< ET ON SUPPRIME LE NUMERO DE L'OCTET...
ORR B,A < ET ON INJECTE L'OCTET ARGUMENT DANS
< L'OCTET DROIT (POUR LE MOMENT...),
JL SIMULT < ET BIEN C'EST BON, C'EST LE DROIT...
SWBR A,A < POUR LE GAUCHE, ON REPERMUTE...
SIMULT: EQU $
JMP SIMULQ < VERS LA MISE A JOUR DU MOT MEMOIRE
< D'ADRESSE ((Y)+(SLO) AVEC (A).
PAGE
<
<
< C O N V E R S I O N H E X A D E C I M A L
< A S C I E N B I N A I R E :
<
<
< FONCTION :
< CETTE ROUTINE CONVERTIT UNE CHAINE
< DE CARACTERES NON SIGNES ET PRESUMES
< HEXADECIMAUX. LA CONVERSION EN BINAIRE
< S'ARRETE SUR LE 1ER CARACTERE NON
< HEXADECIMAL RENCONTRE. DE PLUS ELLE
< ELIMINE LES BITS DE PARITES ET LES
< CARACTERES 'NULLS' (CF. 'CARAC'), ET
< ENFIN S'ARRETE SI L'INDEX (X) DEPASSE
< OU EGALE 'LCCI'...
<
<
< ARGUMENT :
< (A)=ADRESSE RELAI VERS LA CHAINE HEXA-DECIMALE.
< (X)=INDEX DU 1ER CARACTERE HEXA.
<
<
< RESULTAT :
< (A)=VALEUR BINAIRE,
< (X)=INDEX DU 1ER CARACTERE NON RECONNU COMME
< ETANT HEXADECIMAL.
<
<
HEXIN: EQU $
PSR B,Y,W
LR A,W < (W)=@DU RELAI VERS LE TEXTE.
LYI NBITMO/NBITCX < ON DECODE 4 CARACTERES AU MAXIMUM.
LBI K < INITIALISATION DE B A 0.
<
< BOUCLE DE DECODAGE :
<
Z321: EQU $
LR X,A < (A)=INDEX COURANT,
CPI LCCI < Y-A-T'IL DEBORDEMENT (ET CECI A CAUSE
< DU 'CCI' QUI NE VALIDE PAS SES DEMAN-
< DES A 'HEXIN'...) ???
JGE Z322 < ON FAIT COMME SI C'ETAIT LA FIN DU
< NOMBRE HEXA-DECIMAL COURANT...
LBY &O,W < SI NON, ACCES A UN CARACTERE DE LA
< CHAINE.
RBT BITPAR < ON IGNORE AINSI SA PROVENANCE.
JAE Z323X1 < ON ELIMINE LES 'NULLS' PAR COMPATIBILITE
< AVEC LA ROUTINE 'CARAC' DU 'CCI'...
ADRI -HZERO,A < TRANSLATION PAR RAPPORT AUX
< CODE DES CHIFFRES.
JAL Z322 < ON ARRETE AU 1ER CARACTERE NON
< RECONNU.
CPI BASE10-Z < EST-CE UN CHIFFRE ?????
JLE Z323 < C'EST UN CHIFFRE (K A 9).
ADRI -HA+HNEUF+Z,A < TRANSLATION PAR RAPPORT AU
< CODE DES LETTRES.
CPI BASE10
JL Z322 < ON ARRETE AU 1ER CARACTERE
< NON RECONNU.
CPI BASE16-Z
JG Z322 < CARACTERE DE CODE SUPERIEUR
< A LA LETTRE 'F'.
<
< CAS OU ON A RECONNU UN BON CARACTERE
< HEXADECIMAL (K A 9 OU 'A A 'F) :
<
Z323: EQU $
SCRS NBITCX < LA VALEUR BINAIRE SUR 4 BITS
< DU CARACTERE EST MISE EN TETE
< DE A.
SCLD NBITCX < PUIS CES 4 BITS SONT CONCATENES
< AVEC LE CONTENU PRECEDENT DE B.
ADRI -I,Y < DECOMPTE DES CARACTERES
< A DECODER.
Z323X1: EQU $ < CAS DES 'NULLS', ON NE DECOMPTE PAS (Y)
< LES CARACTERES DECODES ; SEUL L'INDEX
< DU BUFFER (X) PROGRESSE...
ADRI I,X < PROGRESSION DE L'INDEX
< DE LA CHAINE HEXADECIMALE.
CPZR Y
JG Z321 < ON N'A PAS ENCORE ATTEINT
< LA MAXIMUM DE 4 CARACTERES.
<
< FIN DU DECODAGE (UN CARACTERE NON
< HEXADECIMAL A ETE RECONNU
< OU ON A ATTEINT UN COMPTE DE 4 CARACTERES) :
<
Z322: EQU $
LR B,A < RENVOI DU RESULTAT DANS A.
PLR B,Y,W
RSR
PAGE
<
<
< C O N V E R S I O N B I N A I R E
< E N H E X A D E C I M A L A S C I :
<
<
< FONCTION :
< CETTE ROUTINE CONVERTIT UN MOT DE
< 16 BITS EN UNE CHAINE DE 4 CARACTERES
< HEXADECIMAUX ASCI.
<
<
< ARGUMENT :
< (B)=NBRE A CONVERTIR,
< (A)=ADRESSE DU RELAI VERS LE TEXTE DESTINATAIRE.
< (X)=RANG DU 1ER CARACTERE.
<
<
< RESULTAT :
< (X)=RANG DU 1ER CARACTERE LIBRE DERRIERE
< LA CHAINE HEXA. (=X-ARGUMENT+4).
<
<
HEXEX: EQU $
PSR A,B,Y,W
LR A,W < (W)=@RELAI VERS LE TEXTE.
LYI NBITMO/NBITCX < (Y)=NOMBRE DE CONVERSIONS A FAIRE.
<
< BOUCLE DE DECODAGE :
<
Z324: EQU $
LAI K < INITIALISATION DE A.
SLLD NBITCX < RECUPERATION D'UN NBRE DE
< 4 BITS DANS B.
CPI BASE10-Z < LA CONVERSION EST-ELLE EN CHIFFRE ?
JLE Z325 < OUI, C'EST UN CHIFFRE.
ADRI HA-HNEUF-Z,A < CAS D'UNE LETTRE.
Z325: EQU $
ADRI HZERO,A < CONVERSION EN ASCI.
STBY &O,W < ET RANGEMENT DANS LE TEXTE.
ADRI I,X < PROGRESSION DE L'INDEX
< DU TEXTE.
ADRI -I,Y < DECOMPTE DES CONVERSIONS.
CPZR Y
JG Z324 < C'EST PAS FINI...
PLR A,B,Y,W
RSR
PAGE
<
<
< T E S T A N D S T O R E @ R O U T I N E
< D E F I N D E S E R V I C E :
<
<
< FONCTION :
< CETTE ROUTINE SERT A POSITIONNER
< L'ADRESSE 'FSERV' DE FIN DE SERVICE
< DANS 'DCTESC' ; MAIS 2 CAS SE REN-
< CONTRENT :
< 1 - LE DEMANDEUR EST UNE VISU : ALORS
< 'FSERV' EST POSITIONNE (QUITTE A PRO-
< VOQUER UN ECRASEMENT), SAUF S'IL Y A
< UNE TRAPPE EN COURS DE TRAITEMENT (CELA
< PEUT SE PRODUIRE, PUISQUE LA GESTION DES
< ALT-MODES PEUT ETRE PARALLELE AU DEROU-
< LEMENT DU PROGRAMME). ENFIN, ON TESTE
< SI CET APPEL EST DU A UN DOUBLE ALT-
< MODE LORS D'UNE ECRITURE (ALPHA-NUMERIQUE
< OU GRAPHIQUE), AUQUEL CAS, ON LE
< MEMORISE DANS 'RST' DE L'UTILISATEUR
< A L'AIDE DU BIT 'BALT2', AFIN DE
< PERMETTRE UN FONCTIONNEMENT CORRECT
< DE LA COMMANDE "G" SOUS 'DEBUG'...
< 2 - LE DEMANDEUR N'EST PAS UNE VISU : ALORS,
< ON REGARDE SI 'FSERV' N'EST PAS DEJA
< POSITIONNE ; SI TEL EST LE CAS, ON
< VERIFIE QU'IL S'AGIT DE 'ABORT'...
< DANS LES 2 CAS, LE BIT 'XBABOR'
< DE LA DEMANDE 'DEMESC' COURANTE
< EST POSITIONNE (CECI EST UTILE
< EN PARTICULIER POUR LES FONCTIONS
< LONGUES DE 'HDLMT1').
<
<
< ARGUMENT :
< (A)=ADRESSE ROUTINE DE FIN DE SERVICE.
< SI BIT0(A)=1 : RETOUR IMMEDIAT AU CAS
< OU FSERV SERAIT DEJA POSITIONNE.
< (PAS DE RECOVERY).
< (Y)=ADRESSE 'DCTVIS' SI VISU,
< (L)=ADRESSE DE 'DCTESC' SI VISU, OU
< (W)=ADRESSE DE 'DCTESC' SINON...
<
<
< RESULTAT :
< BIT0(A)=K : FSERV A ETE POSITIONNE,
< BIT0(A)=1 : FSERV N'A PAS ETE POSITIONNE.
<
<
XFSERV:: VAL BITSIG < NUMERO DU BIT "RESULTAT".
<
<
SFSERV: EQU $
BSR ASMMK <<<< MASQUAGE GENERAL DES IT...
<
< DISCRIMINATION DU DEMANDEUR :
<
PSR A,B < SAUVEGARDE DE L'ADRESSE DE FIN DE
< SERVICE A POSITIONNER DANS 'A'...
< (ET DE 'B'...)
BSR ASMWHO < IDENTIFICATION DU DEMANDEUR :
< (A)=TYPE HARD/SOFT,
< (B)='NSP' SI SOFT, ET NIVEAU SI HARD...
IF TYPTS-K,,XEIF%,
IF ATTENTION : LE TEST SUIVANT EST MAUVAIS !!!
XEIF%: VAL ENDIF
JANE Z265X1 < IL S'AGIT D'UNE TACHE 'HARD', CE N'EST
< DONC PAS L'UNE DES VISUS...
LR B,A < (A)='NSP' D'UNE TACHE SOFT DEMANDEUSE,
CPI NSPVI0 < EST-CE UNE VISU ???
JL Z265X1 < NON...
CPI NSPVIN < EST-CE UNE VISU ???
JG Z265X1 < NON...
<
< CAS D'UNE VISU DEMANDEUSE :
<
LA DEMESC-DCTESC+XXNSP,L
SBT XBABOR < ET ON FORCE LE BIT INDICATEUR DE ROUTINE
< DE FIN DE SERVICE EN ATTENTE...
STA DEMESC-DCTESC+XXNSP,L
LAD DEMESC-DCTESC,L < (A)=ADRESSE DE LA DEMANDE 'DEMESC',
XR Y,L < AFIN D'ATTEINDRE 'DCTVIS',
CP TETE < LA DEMANDE COURANTE SUR CETTE VISU
< EST-ELLE PRECISEMENT 'DEMESC' ???
XR Y,L < RESTAURATIONS...
JNE Z265X3 < NON...
LA DEMESC-DCTESC+T+OPDEM,L
< OUI, ALORS ACCEDONS A LA FONCTION :
ANDI MASSFF < AFIN DE BIEN DISCRIMINER LES VRAIES
< ENTREES-SORTIES DES FAUSSES...
CPI FAVW < EST-CE UNE ECRITURE ???
IF FAVWG(MASSFF-FAVW,,XEIF%,
IF ATTENTION : LE TEST CI-DESSUS NE TESTE PAS
IF SIMULTANEMENT LES ECRITURES ALPHA-NUMERIQUES
IF ET GRAPHIQUES !!!
XEIF%: VAL ENDIF
JNE Z265X3 < CE N'EST PAS UNE ECRITURE...
XKREG: VAL K < INITIALISATION DU CUMUL DES REGISTRES.
#@PLR A,B < #SISP CMS5 KREG#
XWOR%1: VAL -XKREG < NOMBRE DE REGISTRES DEPILES.
< RESTAURE :
< (A)=ADRESSE DU MODULE DE FIN DE SERVICE,
RBT XFSERV < ON ENLEVE LE BIT 'XFSERV' A PRIORI...
SB AABORT < EST-CE SUITE A UN DOUBLE ALT-MODE ???
< (ON TESTE PAR 'SB' ET NON PAR 'CP', CAR
< LE 'ADRI' QUI SUIT MODIFIERAIT LES
< INDICATEURS AVANT LE SAUT CONDITIONNEL)
ADRI XWOR%1,K < ET RESTAURE LA PILE, ET CECI SANS RE-
< EMPILER, CAR ON A MODIFIE (PEUT-ETRE)
< L'ADRESSE DE LA ROUTINE DE FIN DE
< SERVICE PAR 'XFSERV'...
JANE Z265X3 < NON, PAS DE DOUBLE ALT-MODE...
LA IDDESC-DCTESC,L < OUI, ALORS
TBT IDESCX < Y-A-T'IL UNE TRAPPE EN COURS DE TRAITE-
< MENT ???
JNC Z265X4 < NON, C'EST BON...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< COMPRENDRE COMMENT 'DEMESC'
< PEUT ETRE EN TETE DE LA FILE
< D'ATTENTE DE LA VISU, ALORS QU'UNE
< TRAPPE EST EN COURS, ALORS QUE
< LES TRAPPES UTILISENT LA DEMANDE
< 'DEMCCI' !!!
<
JMP Z265X3 < ET ON NE TOUCHE PAS A 'ST'...
Z265X4: EQU $
LA PSTESC-DCTESC+RS,L
SBT BALT2 < DANS LE CAS DU DOUBLE ALT-MODE
< LORS D'UNE ECRITURE, ON MEMORISE CE
< FAIT PAR LE BIT 'BALT2' DE 'S', QUI VA
< DEVENIR PAR 'SAVREG' LE REGISTRE 'ST' ;
< IL FAUT ESPERER QUE 'ST' N'EST JAMAIS
< REMIS COMME REGISTRE 'S', SI CE N'EST
< PAR LA COMMANDE "G" DU 'DEBUG' (IL
< SEMBLE QUE CELA SOIT VERIFIE, CAR PENDANT
< UN CERTAIN TEMPS, LA VALEUR DE 'BALT2'
< FUT LE BIT 'STOP', ET LA MACHINE NE
< S'EST JAMAIS ARRETE ; MALHEUREUSEMENT
< CETTE VALEUR N'A PU ETRE CONSERVEE A
< CAUSE DE SES INTERFERENCES AVEC LE CHAMP
< 'MALARM' POSITIONNE PAR 'TH0'...).
STA PSTESC-DCTESC+RS,L
Z265X3: EQU $
<
< TEST D'UNE TRAPPE EN COURS :
< (ON FAIT APPEL A 'SFSERV'
< POUR LES VISUS, CAR IL Y
< AVAIT UN PATCH A FAIRE
< POUR LE TEST DES TRAPPES
< EN COURS, ET QU'A CAUSE DES
< SAUTS SUPERIEURS A 128 MOTS,
< JE NE POUVAIS L'IMPLEMENTER...)
<
LA IDDESC-DCTESC,L < (A)=LISTE DES INDICATEURS DE L'UTI-
< LISATEUR :
TBT IDESCX < Y-A-T'IL UNE TRAPPE EN COURS DE TRAITE-
< MENT N'AYANT PAS ATTEINT L'INTERROGATION
< 'CCI' DE L'UTILISATEUR ???
PLR A,B < (A)=ADRESSE DE FIN DE SERVICE...
JC Z265X2 < OUI, IL Y A UNE TRAPPE EN COURS, ELLE
< MODIFIE LES REGISTRES DE L'UTILISATEUR,
< DONC PAS DE FIN DE SERVICE, QUI CERTAI-
< NEMENT ANNULERAIT LES EFFETS DE LA TRAP-
< SAUF LA SORTIE DU MESSAGE...
< N'OUBLIONS PAS AUSSI CE CAS VICIEUX :
< 1 - UN ALT-MODE EST EN COURS (ON ATTEND
< L'ARRIVEE D'UN EVENTUEL SUIVANT) ;
< 2 - PENDANT CE TEMPS LE PROGRAMME COR-
< RESPONDANT TOURNE TOUJOURS, ET FAIT UNE
< TRAPPE (VRAIE OU FAUSSE : CF. LE CHANGE-
< MENT DU CARACTERE D'ABORT) ;
< 3 - LA VRAIE TRAPPE POSITIONNE LE PRO-
< GRAMME MINIMUM EN BAS DE MEMOIRE, ET
< FAIT TOUT POUR QU'IL SOIT EXECUTE ;
< 4 - MAIS, ENFIN, LE ALT-MODE EST TRAITE,
< ET CAUSE PAR EXEMPLE UN'GOBPE' QUI FAIT
< PERDRE (EN QUELQUE SORTE) LE PROGRAMME
< MINIMUM DE LA TRAPPE !!!
STA FSERV-DCTESC,L < PAS DE TRAPPE EN COURS, DONC MISE EN
< PLACE DU TRAITEMENT DU ALT-MODE SIMPLE
< OU DOUBLE...
Z265X2: EQU $
JMP Z266 < VERS LA SORTIE...
<
< CAS DES AUTRES DEMANDEURS :
<
Z265X1: EQU $
LA DEMESC-DCTESC+XXNSP,W
SBT XBABOR < ET ON FORCE LE BIT INDICATEUR DE ROUTINE
< DE FIN DE SERVICE EN ATTENTE...
STA DEMESC-DCTESC+XXNSP,W
LA IDDESC-DCTESC,W < (A)=LISTE DES INDICATEURS UTILISATEUR :
TBT IDESCX < Y-A-T'IL UNE TRAPPE EN COURS ???
PLR A,B < (A)=ADRESSE DE FIN DE SERVICE...
JC Z266 < OUI, IL Y A UNE TRAPPE EN COURS, ON
< IGNORE DONC CETTE FIN DE SERVICE...
CPZ FSERV-DCTESC,W < FSERV EST-IL DEJA POSITIONNE ???
JE Z265 < NON, C'EST BON ALLONS LE
< METTRE A JOUR AVEC (A).
<
< CAS OU FSERV EST DEJA POSITIONNE :
<
IF XFSERV-BITSIG,,XEIF%,
IF ATTENTION : CE QUI SUIT EST IDIOT !!!
XEIF%: VAL ENDIF
JAL Z266 < BIT0(A)=1 : RETOUR IMMEDIAT
< SANS RECOVERY. L'APPELANT
< AURA CONNAISSANCE DE CE RETOUR
< IMMEDIAT PAR BIT0(A)=1 (INCHANGE)
CP FSERV-DCTESC,W < LA ROUTINE QUE L'ON VEUT METTRE
< EN FSERV Y-EST'ELLE DEJA ???
JE Z266 < OUI, ON A DU PRENDRE LE
< SYSTEME DE VITESSE (PAR EXEMPLE
< LORS D'UN SERVICE LONG DU TYPE
< DE L'ERASE DES VISUS)
PSR A < SAVE @ROUTINE DE FIN DE SERVICE
< AVEC BIT0(A)=K.
LA FSERV-DCTESC,W < (A)=@ROUTINE DE FIN DE SERVICE
< SE TROUVANT DEJA DANS DCTESC.
CP AABORT < ET COMPARAISON A @ABORT.
PLR A < RESTAURE (A)=@ROUTINE DE FIN DE
< SERVICE DEMANDEE.
JE Z360 < DANS LE CAS OU FSERV EST DEJA
< POSITIONNEE AVEC ABORT, ON
< CONSIDERE QU'IL NE S'AGIT PAS
< D'UNE ERREUR, ET ON PEUT
< REPOSITIONNER FSERV (CF. LE CAS
< DU DEBUG OU UN ALT-MODE EST
< FRAPPE DANS LA COMMANDE AU
< DEBUG !!!).
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< MISE A JOUR DE FSERV :
<
Z265: EQU $
RBT XFSERV < BIT0(A)=K A PRIORI ; DANS LE
< CAS OU IL VALAIT 1, L'APPELANT
< AURA CONNAISSANCE DE CETTE MISE
< A JOUR PAR BIT0(A)=K.
Z360: EQU $
STA FSERV-DCTESC,W
<
< RETOUR :
<
Z266: EQU $
BSR ASMDK <<<< DEMASQUAGE GENERAL DES IT...
RSR < GO BACK.
PAGE
<
<
< C A L C U L D U B E T A
< D ' U N S E M A P H O R E :
<
<
< FONCTION :
< CE SOUS-PROGRAMME REMET
< SUR 16 BITS LE COMPTEUR
< D'UN SEMAPHORE DONNE SUR
< 8 BITS.
<
<
< ARGUMENT :
< (L)=ADRESSE DCT.
<
<
< RESULTAT :
< (A)=BETA DU SEMAPHORE.
<
<
USE L,DCT0
<
<
< B E T A D E S D O D O :
<
<
BETA3: EQU $
LA &ASDODO
JMP E753
<
<
< B E T A D E S I T :
<
<
BETA2: EQU $
LA SIT
JMP E753
<
<
< B E T A D E S C H V I D :
<
<
BETA1: EQU $
LA SCHVID
<
<
< B E T A D E ( A ) :
<
<
< ARGUMENT :
< (A)=BETA SUR 8 BITS D'UN SEMAPHORE.
<
<
E753: EQU $
SLLS NBITMO-XMBETA < CADRAGE A GAUCHE, POUR TEST BIT
< DE SIGNE ET EXTENSION...
< ET RAZ DE L'OCTET0 DU BETA...
SARS NBITMO-XMBETA < EXTENSION DU BIT8 DU BETA
< DU SEMAPHORE (BIT DE SIGNE).
RSR
PAGE
<
<
< T E S T D E P O S I T I O N D E
< B E T A ( S C H V I D ) P A R
< R A P P O R T A S O N S E U I L :
<
<
< UTILISATION DU SEUIL :
< LE TEST DE LA POSITION DE BETA PAR RAPPORT
< AU SEUIL PERMET D'ENTREPRENDRE UNE
< CERTAINE ACTION EVENTUELLEMENT.
< UNE APPLICATION EST DE POUVOIR
< INDIQUER AU SWAPPEUR S'IL DOIT
< SWAPPER UN ESCLAVE INTERROMPU PAR
< L'HORLOGE...
<
<
< RESULTAT :
< CE SOUS-PROGRAMME EST
< STRICTEMENT EQUIVALENT AU
< CODE SUIVANT :
<
< LA BETA(SCHVID)
< CP SEUIL(SCHVID)
<
<
< DETRUIT A & X.
< (A)=BETA(SCHVID),
< (X)=SEUIL(SCHVID),
<
<
< ARGUMENT :
< (L)=ADRESSE DCT.
<
<
USE L,DCT0
PBS: EQU $
LA BITSEM < OCTET1(BITSEM)=SEUIL DE SCHVID
ANDI BSEUIL < ACCES AU SEUIL DE SCHVID
ADRI XXCHV0+I,A < EN EFFET UN SCHVID NE PEUT
< ETRE INFERIEUR A -1 ('FF), ET
< DE PLUS IL TIENT SUR 8 BITS,
< EN CONSEQUENCES ON TRANSLATE LE
< BETA ET LE SEUIL DE 1 UNITE,
< DE FACON A NE COMPARER QUE DES
< NBRES POSITIFS OU NULS...
ANDI BSEUIL < RESTONS SUR 8 BITS.
LR A,X < (X)=SEUIL.
LA SCHVID < ACCES AU BETA.
ADRI I,A
ANDI MBETA < (A)=BETA.
CPR X,A < POUR TEST EN RETOUR.
IF MBETA-BSEUIL,,XEIF%,
IF ATTENTION : CES 2 MASQUES DOIVENT ETRE IDENTIQUES !!!
XEIF%: VAL ENDIF
RSR
PAGE
<
<
< R O U T I N E D E T E S T D ' E C H A N G E E N C O U R S :
<
<
< FONCTION :
< CETTE ROUTINE INDIQUE SI POUR LE PERIPHERIQUE
< DONT ON LUI A DONNE L'@DCT, IL Y A UN ECHANGE
< EN COURS.
< A NOTER, QUE C'EST LA TACHE APPELANTE DE 'TEC' DE
< DE SE PREMUNIR CONTRE LES PHASES CRITIQUES, SOIT PAR
< PAR DES RQST/RLSE, SOIT PAR DES MASK/UNMASK IT...
< ET CECI, PARCEQUE LE BSR ATEC NE PEUT ETRE INSERER DANS
< INSERE DANS CETTE PHASE CRITIQUE...
<
<
< ARGUMENTS :
< (L)=ADRESSE DE LA 'DCT',
< (W)=ADRESSE DE LA DEMANDE.
<
<
< RESULTATS :
< CETTE ROUTINE POSITIONNE LES INDICATEURS QUE
< L'ON PEUT TESTER AU RETOUR PAR :
< - 'JE' : JUMP SI PAS D'ECHANGE..,
< - 'JNE' : JUMP SI ECHANGE EN COURS...
<
<
USE L,DCT0
USE W,DEM0
TEC: EQU $
PSR A
LA TETE < ACCES A LA TETE DE LA FILE
< D'ATTENTE SUR CE PERIPHERIQUE.
CPI NEXIST < ON FAIT CE CPI, POUR POUVOIR
< TESTER AU RETOUR PAR JE/JNE...
PLR A
RSR
PAGE
<
<
< N O T I O N D E F I L T R A G E
< D E S D E M A N D E S :
<
<
< PHILOSOPHIE DU FILTRAGE : DANS CERTAINS CAS CERTAINES DEMANDES
< APPARAISSANT SUR UN HANDLER PEUVENT ETRE MALVENUES.
< (CF. DE DEMANDES DE LECTURES SUR UN FICHIER
< SEQUENTIEL, ALORS QUE LA CHAINE DES SECTEURS DE
< CELUI-CI EST VIDE ; IL EST EVIDENT QUE DANS CE CAS
< SEULES LES DEMANDES D'ECRITURE PEUVENT PASSER,
< MAIS QUE CELLES DE LECTURES DOIVENT ETRE DIFFEREES
< JUSQU'A CE QUE LA CHAINE NE SOIT PLUS VIDE...).
< ON VA DONC AVOIR LA POSIBILITE DE DIFFERER LES
< DEMANDES A L'AIDE D'UN SYSTEME DIT DE FILTRAGE.
< DANS CHAQUE DCT, ON TROUVERA :
< - FILTRE : IL S'AGIT D'UNE ROUTINE
< SPECIFIQUE DU HANDLER APPELEE
< PAR HANDLR AU MOMENT OU IL ACCEDE
< A UNE DEMANDE DANS LA FILE D'ATTENTE
< POUR SAVOIR S'IL FAUT LA DIFFERER
< OU BIEN SI ON PEUT LA TRAITER
< IMMEDIATEMENT.
< - SFLITR : IL S'AGIT D'UNE ROUTINE SPECIFIQ
< SPECIFIQUE A CHAQUE HANDLER ET
< QUI INDIQUE A HANDLR APRES CHAQUE
< DEMANDE TRAITEE CE QU'IL DOIT FAIRE
< AU SUJET DU FILTRE ET DES EVENTUELLES
< DEMANDES DIFFEREES QUI SONT EN ATT-
< ENTE.
<
< DEBLOCAGE DES DEMANDES DIFFEREES : LE DEBLOCAGE
< PEUT SURVENIR APRES L'APPEL DE SFLITR DANS LE CAS
< D'UNE REPONSE POSITIVE DE CELUI-CI. IL FAUT
< REMARQUER QUE LES DEMANDES DIFFEREES NE SONT PAS
< OBLIGATOIREMENT LIBEREES EN BLOC , EN EFFET
< ENTRE CHAQUE TRAITEMENT PAR 'ES' D'UNE DEMANDE
< DIFFEREE, ON RAPPELLE COMME POUR TOUTE AUTRE
< DEMANDE LA ROUTINE SFLITR, QUI PEUT REPOSITIONNER
< LE FILTRE.
<
<
< REPONSES DES ROUTINES FILTRE & SFILTR :
< CELLES-CI REVIENNENT DANS A, EN RESPECTANT LES
< CONVENTIONS SUIVANTES :
< - (A)=K : TRAITER LA DEMANDE, OU
< SUPPRIMER LE FILTRE,
< - (A)#0 : DIFFERE LA DEMANDE, OU
< MAINTENIR LE FILTRE.
<
<
< EN RESUME :
< - FILTRE : TEST LA DEMANDE ET LE CONTEXTE DU HANDLER,
< - SFILTR : NE TESTE QUE LE CONTEXTE DU HANDLER.
<
<
< R O U T I N E D E F I L T R A G E L A I S S A N T
< P A S S E R T O U T E S L E S D E M A N D E S :
<
<
NFILTR: EQU $
LAI NEXIST < TOUT PASSERA AINSI...
RSR < ET C'EST TOUT...
<
<
< R O U T I N E D E S - F I L T R A G E :
<
<
FILTRS: EQU $
LAI EXIST < ON MAINTIENT AINSI LE FILTRE.
RSR
<
<
< A T T E N T I O N :
< COMME S-FILTRE, ON UTILISERA DE PREFERENCE
< FILTRS A NFILTR, EN EFFET AVEC NFILTR,
< ON SAUTE UN GRAND NBRE DE RQST SCHVID, SI
< LA FILE D'ATTENTE DU HANDLER EST TOUJOURS
< PLEINE (CF. DK, SCHEDULER,...), ET
< AINSI LE BETA DE SCHVID, EN PASSANT PAR
< SON '+INFINI' REDEVIENT NEGATIF...
PAGE
<
<
< M I S E E N F I L E D ' A T T E N T E
< S U R U N H A N D L E R :
<
<
< PHILOSOPHIE :
< L'ACCES AUX TACHES DU SYSTEME
< SE FAIT PAR DES FILES D'ATTENTE ;
< CES FILES D'ATTENTE SONT EN GENE-
< RAL 'FIFO', C'EST-A-DIRE QUE 'CHAND'
< DEPOSE LES DEMANDES EN QUEUE DE
< FILE D'ATTENTE DESIREE, ET QUE
< 'HANDLR' TRAITE CELLE DE TETE.
< MALGRE TOUT, IL EXISTE UNE OPTION
< DITE "PRIORITAIRE", QUI PERMET
< DE FAIRE DU 'LIFO', AVEC LAQUELLE,
< 'CHAND' DEPOSE LA DEMANDE ARGUMENT
< LE PLUS PRES POSSIBLE DE LA TETE
< (EN TETE, SI LA FILE D'ATTENTE EST
< VIDE, OU JUSTE DERRIERE CELLE DE
< TETE SINON...).
< ON N'OUBLIERA PAS DE PLUS LA
< NOTION DE 'FILTRAGE'.
<
<
< I M P O R T A N T :
< ON RETIENDRA QUE LA DEMANDE
< DE TETE EST TOUJOURS LA DEMAN-
< DE LA PLUS PRIORITAIRE (C'EST-
< A-DIRE CELLE QUE L'ON VA TRAI-
< TER), QUELQUE SOIT LE MODE D'IN-
< SERTION D'AUTRES DEMANDES !!!
<
<
< NOTATIONS :
< LA FIN D'UNE CHAINE DANS UNE
< FILE D'ATTENTE EST INDIQUEE PAR
< UN CHAINAGE 'NIL', ET UNE FILE
< D'ATTENTE VIDE PAR (TETE,QUEUE)=(NIL,NIL).
<
<
< ARGUMENTS :
< (W)=ADRESSE DE LA DEMANDE.
<
<
< A T T E N T I O N :
< 'CHAND' NE SE CHARGE PAS DE
< LA MISE EN ATTENTE DE FIN DE
< SERVICE SUR 'WEIO' !!!
<
<
USE W,DEM0
USE L,DCT0
CHAND: EQU $
PSR A,B,X < A CAUSE DU MICRO-CANAL.
PSR Y,L < A CAUSE DU MICRO-CANAL.
<
< TRANSMISSION DE LA PAGE DE 32K
< A LA QUELLE APPARTIENT LE 'SLO'
< DE LA TACHE DEMANDEUSE :
<
LA &NS
ADRI -NSNSP0,A < (A)='NSP' DU DEMANDEUR ; A NOTER QUE
< L'ON NE PEUT UTILISER 'CANSP', CAR
< EN EFFET CETTE ROUTINE ASSIMILE TOUS
< LES 'NSPSER' A 'NSPACT'...
LR A,X
BSR ACADCT < (A)=(L)=ADRESSE DE LA 'DCT' DU DEMANDEUR
< DONT LE 'NSP' EST (X)...
LA BITSEM
TBT BISOSE < FAUT-IL VRAIMENT TRANSMETTRE (SLO,SLE)
< A LA TACHE DEMANDEE ???
LAI SO < NON, A PRIORI ON DONNE A 'A' UNE VALEUR
< PERMETTANT DE TRANSMETTRE LA PAGE 0...
JC CHAND2 < NON, EFFECTIVEMENT, ON NE TRANSMET
< PAS (SLO,SLE)...
RDOE < ET SI, ON RECUPERE (SLO,SLE) COURANT :
CHAND2: EQU $
SLRD XSLO32+NBITMO < (B)=NUMERO DE LA PAGE DE 32K,
LAI XNDSLO < (A)=NUMERO MAX AUTORISE,
CPR A,B < LE NUMERO DE PAGE (B) EST-IL VALIDE ???
JLE CHAND3 < OUI, (B)<='XNDSLO'...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< VOIR D'OU ARRIVE CE NUMERO
< DE PAGE TROP GRAND : NE SERAIT-
< CE PAS UNE EXTENSION 'CDA' DE
< 'DKU' VERS 'CDAJ' ???
<
LBI XNDSLO < POURQUOI PAS...
CHAND3: EQU $
SLLD XDDSLO < ET CADRAGE SUIVANT 'XMDSLO'...
LRM A
WORD XMDSLO)MMOT
AND ARGDEM+OPDEM < CLEAR DE 'XMDSLO' DANS L'OPDEM COURANT,
CP ARGDEM+OPDEM < Y-AVAIT'IL QUELQUE CHOSE DANS LE
< CHAMP 'XMDSLO' ???
JE CHAND1 < NON, OK...
BSR ASYSER < E R R E U R S Y S T E M E ...
<
< QUE FAIRE ???
< VOIR CE QUE CONTIENT LE CHAMP 'XMDSLO' !!!
<
CHAND1: EQU $
ORR B,A < INSERTION DE 'XMDSLO',
STA ARGDEM+OPDEM < ET MISE-A-JOUR DE 'OPDEM'...
<
< ACCES A LA TACHE DEMANDEE :
<
LA ETALOC < ACCES A L'ETAT DE LOCATION
< DU DEMANDEUR DE SERVICE,
STA ARGDEM+ETADEM < ET SAUVEGARDE REENTRANTE DE
< CET ETAT DE LOCATION DANS LA
< DEMANDE DE SERVICE ARGUMENT.
LBY NSPTYP < ACCES AU 1ER OCTET DE LA
< DEMANDE.
XWOR%1: VAL MSKNSP=K
XWOR%1: VAL -XWOR%1 < POUR UN DECALAGE A DROITE.
XWOR%1: VAL MSKNSP>XWOR%1
ANDI XWOR%1 < (A)='NSP' DU SERVICE DEMANDE,
< (X)='NSP' DU SERVICE DEMANDEUR.
IF OACTIV-EXIST,XEIF%8,,XEIF%8
<
< VISUALISATION DU TRAFFIC :
<
PSR A
SWBR A,A < PREPARATION DU RECEPTEUR,
ORR A,X < (X)=(RECEPTEUR/EMETTEUR),
LYI XNGIN < (Y)=NIVEAU DE VISUALISATION DE LA
< CONNEXION PAR 'CHAND'.
BSR AACTIV < ET VISUALISATION (SI LE BIT 'XACTIV'
< EST POSITIONNE...
PLR A
XEIF%8: VAL ENDIF
<
< ACCES AU SERVICE DEMANDE :
<
LR A,X < LE NSP EST MIS DANS X.
BSR ACADCT < MISE DANS L DE @DCT.
<
< ON A DONC ARRIVE ICI :
< - (W)=ADRESSE DE LA DEMANDE,
< - (L)=ADRESSE DE LA 'DCT',
< - (X)='NSP' DE LA TACHE DEMANDEE.
<
LR W,Y < @DEMANDE EST MISE DANS Y (EN PLUS
< DE W)
<
< SAUVEGARDE DU NSP DU DEMANDEUR DANS ETADEM :
< (UTILISE PAR LE SGF).
<
BSR ACANSP < RENVOIE (A)=NSP DEMANDEUR OU NSPACT.
LR A,B < (B)=NSP DU DEMANDEUR DE SERVICE.
E137: EQU $
RQST SPHEX <<<0 : LA DCT N'EST PAS LOUABLE, ET EST
< CONSIDEREE COMME TOUJOURS PARTAGEABLE.
< 2- DANS LES AUTRES CAS (ETALOC=K INITIALLEMENT),
< LA DCT PEUT ETRE LOUEE :
< BIT0=K : LA DCT N'EST PAS LOUEE,
< BIT0=1 : LA DCT EST LOUEE, ET ON A :
< BIT8-15=NSP LOCATAIRE.
PAGE
<
<
< L O C A T I O N D ' U N E D C T :
<
<
< ARGUMENT :
< - (X)=NSP DE LA DCT DEMANDEE.
< - (B)#0 : ATTENDRE LA DELOCATION DANS LE CAS
< OU LA DCT SERAIT DEJA LOUEE.
< =0 : NE PAS ATTENDRE DANS LE CAS OU
< LA DCT SERAIT DEJA LOUEE.
<
<
< RESULTAT :
< DANS LE CAS OU (B ARGUMENT)=0,
< ON RENVOIE :
< - (B)=K : OK, DCT ALLOUEE AU DEMANDEUR,
< #0 (=ETALOC) : LOCATION IMPOSSIBLE DANS
< DANS L'IMMEDIAT.
<
<
< ATTENTION :
< 'LODCT' MODIFIE EVENTUELLEMENT LA
< TABLE DES ASSIGNATIONS IMPLICITES
< 'TIMPAS' SI LE 'NSP' DEMANDE EST
< CONTENU DANS 'TIMPAS' ; AUQUEL CAS
< IL EST RETIRE JUSQU'A LA DELOCATION...
<
<
USE L,DCT0
LOCDCT: EQU $
PSR A,Y,L,W
BSR ACADCT < MISE DANS L DE L'@DCT DEMANDEE.
E132: EQU $
RQST SPHEX <<<XWOR%2
TRN
LST
Copyright (c) Jean-François Colonna, 2011-2013.
Copyright (c) CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2011-2013.