Télécharger la plaquette Cast3M


fr en

Télécharger oooyig.eso

Retour à la liste

Numérotation des lignes : 

oooyig

  1. C OOOYIG    SOURCE    PV090527  26/04/24    08:23:36     12524          
  2.       SUBROUTINE OOOYIG (LRET,IRET,PSEG,LSEG)
  3. C--------------------------------------------------------------------
  4. C
  5. C                       SEGXXX /ERR=100/ PSEG
  6. C
  7. C   ->LRET  1  PLUS DE PLACE MEMOIRE ET : IRET = 1
  8. C           2  OK
  9. C
  10. C     IRET     ACTION SI PLUS DE PLACE MEMOIRE
  11. C           0  STOP 16
  12. C           1  RETURN AVEC LRET = 1
  13. C
  14. C     PSEG     POINTEUR DESIGNANT LE SEGMENT
  15. C     LSEG     LONGUEUR DES DONNEES DU SEGMENT EN MOTS
  16. C
  17. C PROGRAMMEUR : MOUGIN
  18. C       MODIF : 25/01/89    MODIFIE POUR LA VERSION OOOW..
  19. C       MODIF : 02/05/89    SEPARER D'AVEC L'ENTRY  OOOYAD
  20. C
  21. C--------------------------------------------------------------------
  22. C
  23. C%INC IOOADR
  24. C%INC IOOADZ
  25. C%INC IOODES
  26. C%INC IOOSGM
  27. C%INC IOOWCOM
  28. C
  29. C      POINTEUR      PSEG.PSEG
  30. C      POINTEUR      PSG1.PSEG , QSEG.PSEG
  31. C
  32. C
  33. C      KASINS = INSTRUCTION_SEGINI
  34. C      LDIA   = 0
  35. C      CALL OOOVPN (PSEG)
  36. C      PSEG=0
  37. C      CALL OOOINI (LRET,PSEG,LSEG)
  38. C      IF   (LRET.EQ.1)                                  THEN
  39. C        IF (IRET.EQ.0)                                  GO TO 901
  40. C        PSEG = 0
  41. C      ENDIF
  42. C                                                        RETURN
  43. C
  44. C      ENTRY      OOOYAC (LRET,IRET,PSEG)
  45. C
  46. C      KASINS = INSTRUCTION_SEGACT
  47. C      LDIA   = 0
  48. C      CALL OOOVPN (PSEG)
  49. C      CALL OOOACT (LRET,PSEG,0)
  50. C      IF   (LRET.EQ.1)                                  THEN
  51. C        IF (IRET.EQ.0)                                  GO TO 901
  52. C      ENDIF
  53. C                                                        RETURN
  54. C
  55. C      ENTRY      OOOYDE (LRET,IRET,PSEG,KOD)
  56. C
  57. C      KASINS = INSTRUCTION_SEGDES
  58. C      LDIA   = 0
  59. C      CALL OOOVPN (PSEG)
  60. C      CALL OOODES (LRET,PSEG,KOD)
  61. C      IF   (LRET.EQ.1)                                  THEN
  62. C        IF (IRET.EQ.0)                                  GO TO 901
  63. C      ENDIF
  64. C                                                        RETURN
  65. C
  66. C      ENTRY      OOOYSU (LRET,IRET,PSEG)
  67. C
  68. C      IF (PSEG.EQ.0)                                    RETURN
  69. C      KASINS = INSTRUCTION_SEGSUP
  70. C      LDIA   = 0
  71. C      CALL OOOVPN (PSEG)
  72. C      CALL OOOSUP (LRET,PSEG,0)
  73. C      IF   (LRET.EQ.1)                                  THEN
  74. C        IF (IRET.EQ.0)                                  GO TO 901
  75. C      ELSE
  76. C        PSEG = 0
  77. C      ENDIF
  78. C                                                        RETURN
  79. C
  80. C      ENTRY      OOOYI1 (LRET,IRET,PSEG)
  81. C
  82. C      KASINS = INSTRUCTION_SEGINI_EGAL
  83. C      LDIA   = 0
  84. C      QSEG   = PSEG
  85. C      CALL OOOVPN (QSEG)
  86. C      PSEG=0
  87. C      CALL OOOIN1 (LRET,PSEG,QSEG)
  88. C      IF   (LRET.EQ.1)                                  THEN
  89. C        IF (IRET.EQ.0)                                  GO TO 901
  90. C        PSEG = 0
  91. C      ENDIF
  92. C                                                        RETURN
  93. C
  94. C      ENTRY      OOOYA1 (LRET,IRET,PSEG,PSG1)
  95. C      Ne doit plus fonctionner maintenant (ENTRY dans ooowa1 maintenant)
  96. C      avec les THREADS, les LOCK et les queues de desactivation
  97. C
  98. C      KASINS = INSTRUCTION_SEGACT_EGAL
  99. C      LDIA   = 0
  100. C      CALL OOOVPN (PSEG)
  101. C      CALL OOOVPN (PSG1)
  102. C      CALL OOOAC1 (LRET,PSEG,PSG1)
  103. C      IF   (LRET.EQ.1)                                  THEN
  104. C        IF (IRET.EQ.0)                                  GO TO 901
  105. C      ENDIF
  106. C                                                        RETURN
  107. C
  108. C      ENTRY      OOOYTN (LRET,IRET,PSEG,LSEG)
  109. C      Ne doit plus fonctionner maintenant (ENTRY dans ooowa1 maintenant)
  110. C      avec les THREADS, les LOCK et les queues de desactivation
  111. C
  112. C      KASINS = INSTRUCTION_SEGMENT_EXTENSION
  113. C      LDIA   = 0
  114. C      CALL OOOVPN (PSEG)
  115. C      CALL OOOEXT (LRET,PSEG,LSEG)
  116. C      IF   (LRET.EQ.1)                                  THEN
  117. C        IF (IRET.EQ.0)                                  GO TO 901
  118. C      ENDIF
  119. C                                                        RETURN
  120. C-----------------------------------------------------------------------
  121. C
  122. C                        MESSAGES D'ERREUR
  123. C
  124. C
  125. C 901  CALL OOOERR (0,0,'PAS ASSEZ DE PLACE EN MEMOIRE')
  126. C                                                        STOP 16
  127.       END
  128.  
  129.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales