υτχεςφδεξ -μυ πςοηςαννξοε οβεσπεώεξιε σν όχν οπεςαγιοξξαρ σιστενα δμρ οςηαξιϊαγιι χωσολοπςοιϊχοδιτεμψξωθ σιστεν σ ςαϊδεμεξιεν ζυξλγικ ς α ζ ο σ - π μ ΰ σ σιστενξωε ταβμιγω ι βιβμιοτελι ςυλοχοδστχο πςοηςαννιστα μιστοχ 514 1984 πεςχ.πςινεξ. μιτεςα - 2 - αξξοταγιρ δαξξωκ δολυνεξτ σοστοιτ ιϊ τςεθ ώαστεκ. χ πεςχοκ ώαστι δαξο οπισαξιε σιστενξοκ ναλςοβιβμιοτελι ι σιστενξοκ οβ'ελτξοκ βιβμιοτελι. χχοδρτσρ οσξοχξωε ποξρ- τιρ, ξεοβθοδινωε πςι ςαβοτε σ ότινι βιβμιοτελανι, ι πςαχιμα οβςαύεξιρ λ ναλςολοναξδαν, πςογεδυςαν ι ζυξλγιρν βιβμιοτελ. λςονε ότοηο δαετσρ λςατλοε οπισαξιε σιστενξωθ ταβμιγ (σισ- τενξαρ οβμαστψ σχρϊι ι ζιλσιςοχαξξωε σνεύεξιρ χ ςεϊιδεξτε νοξιτοςοχ). δαξο οπισαξιε σςεδστχ νξοηοτεςνιξαμψξοκ ποδ- δεςφλι χ RM/SJ/FB/XM-νοξιτοςαθ ι οπισαξιε σςεδστχ ςαβοτω σ ςασϋιςεξξοκ πανρτψΰ χ XM-νοξιτοςε. χτοςαρ ώαστψ δολυνεξτα σοδεςφιτ ςελονεξδαγιι πο ςαϊςα- βοτλε δςακχεςοχ χξεϋξιθ υστςοκστχ. χ ξεκ οπισαξω ναλςολο- ναξδω δμρ ιθ ξαπισαξιρ ι δαξω πςινεςω ξελοτοςωθ δςακχεςοχ. τςετψρ ώαστψ δολυνεξτα σοδεςφιτ οπισαξιε ηςαζιώεσλοηο παλετα δμρ ςαβοτω σ σν-7300 (όπη-σν) ι σν-7306 (όπη-2 σν). δολυνεξταγιρ πςεδξαϊξαώεξα δμρ ςαβοτω σ χιδεοτεςνιξαμον σ πςοηςαννιςυενων ζοςνατον αγχ-σν ξα υςοχξε πςοηςανν πομψϊο- χατεμρ, ξαπισαξξωθ ξα ρϊωλε ναλςοασσενβμες. - 3 - σοδεςφαξιε αξξοταγιρ 2 1. ξαϊξαώεξιε ι υσμοχιρ πςινεξεξιρ βιβμιοτελ 13 2. θαςαλτεςιστιλι βιβμιοτελ 14 2.1. ναλςοβιβμιοτελα 14 2.2. οβ'ελτξαρ βιβμιοτελα 15 3. οβςαύεξιε λ βιβμιοτελαν 18 3.1. οβςαύεξιε λ σιστενξοκ ναλςοβιβμιοτελε 18 3.1.1. λμΰώεχοκ αςηυνεξτ "χLοσλ" 20 3.1.2. λμΰώεχοκ αςηυνεξτ "ςSεστ" 21 3.1.3. λμΰώεχοκ αςηυνεξτ "CODE" 22 3.1.4. αδςεσαγιρ αςηυνεξτοχ 22 3.2. οβςαύεξιε λ σιστενξοκ οβ'ελτξοκ βιβμιοτελε 23 3.2.1. σχρϊψ πςοηςανν ξα ζοςτςαξε ι ναλςοασσενβμεςε 23 3.2.2. χωϊοχ ποδπςοηςανν ξα ζοςτςαξε ιϊ πςοηςανν ξα ρϊωλε ναλςοασσενβμες 24 3.2.3. οβςαύεξιε λ SYSLIB.OBJ ιϊ πςοηςανν ξα ρϊωλε ναλςοασσενβμες 26 3.2.4. χωϊοχ ποδπςοηςανν ξα ρϊωλε ναλςοασσενβμες ιϊ πςοηςανν ξα ρϊωλε ζοςτςαξ σν 28 3.2.5. ϊαπυσλ πςοηςαννω ξα ζοςτςαξε χ οπεςατιχξο/ζοξοχον ςεφινε 30 3.2.6. λονποξοχλα σιστενξοκ οβ'ελτξοκ βιβμιοτελι σ πςοηςαννοκ πομψϊοχατεμρ 33 4. χθοδξωε ι χωθοδξωε δαξξωε 34 4.1. σιστενξαρ ναλςοβιβμιοτελα 34 4.1.1. ξονες λαξαμα 34 4.1.2. βμολ υστςοκστχα 34 4.1.3. σχοπιξη USR 35 4.1.4. ποδπςοηςαννω ϊαχεςϋεξιρ 36 4.2. σιστενξαρ οβ'ελτξαρ βιβμιοτελα 37 4.2.1. ξονες λαξαμα 37 4.2.2. βμολ υστςοκστχα 38 4.2.3. σχοπιξη USR 38 4.2.4. υπςαχμεξιε σχοπιξηον USR 38 4.2.5. στςατεηιρ σχοπιξηα USR 39 4.2.6. ισπομψϊοχαξιε USR ι χςενρ 40 4.2.7. ςαβοτα σ INTEGER*4 41 4.2.8. ποδπςοηςαννω τςεβυΰύιε δοπομξιτεμψξοηο όμενεξτα οώεςεδι 42 - 4 - 4.2.9. ποδπςοηςαννω ϊαBεςϋεξιρ 42 4.2.10. ζυξλγιι πο οβςαβοτλε στςολ σινχομοχ 44 5. σοοβύεξιρ 47 6. σιστενξωε ταβμιγω 48 6.1. σιστενξαρ οβμαστψ σχρϊι 48 6.1.1. στατυσ ϊαχεςϋεξιρ πςοηςαννω (USERRB) 50 6.1.2. σμοχο σοστορξιρ ϊαδαξιρ (JSW) 51 6.2. ζιλσιςοχαξξωε σνεύεξιρ ςεϊιδεξτα νοξιτοςα 53 6.2.1. σμοχο λοξζιηυςαγιι σιστενω (σοNFIG) 56 6.2.2. δοπομξιτεμψξοε σμοχο λοξζιηυςαγιι σιστενω (σοNFG2) 57 6.2.3. σμοχο παςανετςοχ ηεξεςαγιι σιστενω (SYSGεN) 58 7. σιστενξαρ ναλςοβιβμιοτελα 59 7.1. οπεςαγιι σ λαταμοηανι 59 7.1.1. ναλςολοναξδα .σLοSε 60 7.1.2. ναλςολοναξδα .DεLετε 61 7.1.3. ναλςολοναξδα .ENTER 62 7.1.4. ναλςολοναξδα .RεNανε 64 7.1.5. ναλςολοναξδα .LOOKUP 66 7.2. οπεςαγιι χχοδα/χωχοδα 69 7.2.1. ναλςολοναξδω .RεαD/.RεαDC/.RεαDW 69 7.2.1.1. ναλςολοναξδα .RεαD 70 7.2.1.2. ναλςολοναξδα .RεαDσ 71 7.2.1.3. ναλςολοναξδα .RεαDW 72 7.2.2. ναλςολοναξδω .ττYIN/.ττINR 73 7.2.3. ναλςολοναξδω .TTYOUT/.TTOUTR 74 7.2.4. ναλςολοναξδα .WαIτ 76 7.2.5. ναλςολοναξδω .WRIτε/.WRIτσ/.WRIτW 77 7.2.5.1. ναλςολοναξδα .WRIτε 77 7.2.5.2. ναλςολοναξδα .WRIτσ 78 7.2.5.3. ναλςολοναξδα .WRIτW 79 7.2.6. ναλςολοναξδα .ςRINτ 82 7.2.7. ναλςολοναξδα .SPFUN 82 7.3. ςαβοτα σ λαξαμανι 86 7.3.1. ναλςολοναξδα .σDFN 87 7.3.2. ναλςολοναξδα .σξσοςY (FB, XM) 88 7.3.3. ναλςολοναξδα .σSτατ (Fχ, θν) 91 7.3.4. ναλςολοναξδα .ςURGε 93 7.3.5. ναλςολοναξδα .REOPEN 93 7.3.6. ναλςολοναξδα .SαVεSτατUS 94 7.4. οβςαβοτλα λοναξδξοκ στςολι 97 7.4.1. ναλςολοναξδα .CSIGEN 98 7.4.2. ναλςολοναξδα .CSISPC 99 7.4.3. ναλςολοναξδα .GτLIN 102 7.5. ςαβοτα σ τακνεςον 103 7.5.1. ναλςολοναξδα .GTIM 103 7.5.2. ναλςολοναξδα .σνλτ 104 7.5.3. ναλςολοναξδα TWAIT (FB, XM) 105 7.5.4. ναλςολοναξδα .νRλτ 106 7.6. σιστενξωε ναλςολοναξδω οβύεηο ξαϊξαώεξιρ 108 - 5 - 7.6.1. ναλςολοναξδα .σξαIN 108 7.6.2. ναλςολοναξδα .σNFDF 110 7.6.3. ναλςολοναξδα .σNτθSW (Fχ, XM, TS) 112 7.6.4. ναλςολοναξδα .στRLτ 113 7.6.5. ναλςολοναξδα .DATE 114 7.6.6. ναλςολοναξδα .DBLK 116 7.6.7. ναλςολοναξδα .DεVIσε (FB, XM, TS) 116 7.6.8. ναλςολοναξδα .DIR 119 7.6.9. ναλςολοναξδα .DSTATUS 119 7.6.10. ναλςολοναξδα .EXIT 122 7.6.11. ναλςολοναξδω .Fετσξ/.RELEAS 123 7.6.11.1. ναλςολοναξδα .FETCH 124 7.6.11.2. ναλςολοναξδα .RεLεαS 125 7.6.12. ναλςολοναξδα .GTJB 126 7.6.13. ναλςολοναξδα .GVαL 128 7.6.14. ναλςολοναξδω .HERR/.SERR 129 7.6.14.1. ναλςολοναξδα .HERR 129 7.6.14.2. ναλςολοναξδα .SERR 130 7.6.15. ναλςολοναξδω .HRESET/.SRESET 132 7.6.15.1. ναλςολοναξδα .HRESET 132 7.6.15.2. ναλςολοναξδα .SRESET 133 7.6.16. ναλςολοναξδα .INτεN 133 7.6.17. ναλςολοναξδα .JSWDF 134 7.6.18. ναλςολοναξδω .LOCK/.TLOCK/.UNLOCK 135 7.6.18.1. ναλςολοναξδα .LOCK 135 7.6.18.2. ναλςολοναξδα .TLOCK 136 7.6.18.3. ναλςολοναξδα .UNLοσλ 137 7.6.19. ναλςολοναξδω .MFPS/.MTPS 138 7.6.19.1. ναλςολοναξδα .νFςS 138 7.6.19.2. ναλςολοναξδα .ντςS 139 7.6.20. ναλςολοναξδω .POP/.PUSH 140 7.6.20.1. ναλςολοναξδα .POP 140 7.6.20.2. ναλςολοναξδα .PUSH 140 7.6.21. ναλςολοναξδω .PROTECT/.UNPROTECT (FB, XM, TS) 141 7.6.21.1. ναλςολοναξδα .PROTECT 141 7.6.21.2. ναλςολοναξδα .UNPROTECT 142 7.6.22. ναλςολοναξδα .QSET 143 7.6.23. ναλςολοναξδα .RστRLο 144 7.6.24. ναλςολοναξδα .RοFDF 145 7.6.25. ναλςολοναξδα .Sσσα 146 7.6.26. ναλςολοναξδα .SσνDF 148 7.6.27. ναλςολοναξδα .Sεττος 148 7.6.27.1. οσοβεξξοστι πςι ςαβοτε XM-νοξιτοςα 149 7.6.27.2. οσοβεξξοστι πςι ςαβοτε TS-νοξιτοςα 150 7.6.28. ναλςολοναξδα .SFςα 151 7.6.29. ναλςολοναξδα .SPCPS (FB, XM, TS) 152 7.6.30. ναλςολοναξδω .SPND/.RSUM (FB, XM, TS) 153 7.6.30.1. ναλςολοναξδα .SPND 154 7.6.30.2. ναλςολοναξδα .RSUν 155 7.6.31. ναλςολοναξδα .SDTTM 156 7.6.32. ναλςολοναξδα .SYNCH 158 7.6.33. ναλςολοναξδα .TRPSET 160 7.6.34. ναλςολοναξδα .USχDF 161 7.7. οβνεξ νεφδυ ϊαδαξιρνι (FB, XM) 162 7.7.1. ναλςολοναξδα .νWαIτ 162 7.7.2. ναλςολοναξδω .RσVD/.RσVDσ/.RσVDW 162 7.7.2.1. ναλςολοναξδα .RσVD 163 7.7.2.2. ναλςολοναξδα .RCVDC 164 - 6 - 7.7.2.3. ναλςολοναξδα .RσVDW 165 7.7.3. ναλςολοναξδω .SDατ/.SDατσ/.SDατW 166 7.7.3.1. ναλςολοναξδα .SDατ 166 7.7.3.2. ναλςολοναξδα .SDατσ 167 7.7.3.3. ναλςολοναξδα .SDατW 167 7.8. ςαβοτα σ δοπομξιτεμψξωνι τεςνιξαμανι (RM, SJ, FB, XM) 169 7.8.1. KOMπOHEHTω MHOηOTEPMιHAμψHOκ CιCTEMω 169 7.8.2. τεθξιώεσλιε σςεδστχα 170 7.8.3. KOHCOμψHωκ TEPMιHAμ 172 7.8.4. ιCπOμψϊOBAHιE δοπομξιτεμψξωθ TEPMιHAμOB βεϊ νξοηοτεςνιξαμψξοκ ποδδεςφλι 174 7.8.4.1. KOHCOμψHωκ χιδεο-TEPMιHAμ ι TEPMιHAμ-φECTKAρ KOπιρ 174 7.8.4.2. πEPEKμΰώEHιE KOHCOμψHOηO TEPMιHAμA 177 7.8.4.3. OTδEμψHωκ TEPMιHAμ δμρ KAφδOηO ϊAδAHιρ 178 7.8.5. χχεδεξιε χ ναλςολοναξδω 179 7.8.6. CTPυKTυPω δAHHωX 180 7.8.6.1. βμOK υπPABμEHιρ TEPMιHAμA (TCB) 181 7.8.6.2. ACιHXPOHHωκ CTATυC TEPMιHAμA (αSτ) 189 7.8.7. ισπομψϊοχαξιε νξοηοτεςνιξαμψξωθ ναλςολοναξδ 191 7.8.7.1. .MTATCH -ϊAXBAT TEPMιHAμA 192 7.8.7.2. .MTGET - πOμυώEHιE CTATυCA 194 7.8.7.3. .MTSET - υCTAHOBKA XAPAKTEPιCTιK 196 7.8.7.4. .MTIN - BBOδ CιMBOμA 199 7.8.7.5. .MTOUT - BωBOδ CιMBOμA 200 7.8.7.6. .MTPRNT - BωBOδ CTPOKι 202 7.8.7.7. .MTRCTO - σβςοσ ζμαηα 203 7.8.7.8. .MTSTAT - παςανετςω σιστενω 203 7.8.7.9. .MTDTCH - OCBOβOφδEHιE TEPMιHAμA 205 7.8.7.10. πPιMEP MHOηOTEPMιHAμψHOκ πPOηPAMMω 206 7.8.8. ςελονεξδαγιι ι οηςαξιώεξιρ 208 7.9. σμυφεβξωε (TS) 208 7.9.1. ναλςολοναξδα .BLIN 208 7.9.2. ναλςολοναξδα .BLOUT 209 7.9.3. ναλςολοναξδα .BREAK 209 7.9.4. ναλςολοναξδα .DISMO 210 7.9.5. ναλςολοναξδα .FRSPL 211 7.9.6. ναλςολοναξδα .HIOF 211 7.9.7. ναλςολοναξδα .HION 212 7.9.8. ναλςολοναξδα .MOUNT 212 7.9.9. ναλςολοναξδα .MSEND 213 7.9.10. ναλςολοναξδα .SETODT 214 7.9.11. ναλςολοναξδα .RSTODT 214 7.9.12. ναλςολοναξδα .TRMTYPE 214 7.9.13. ναλςολοναξδα .TSLINE 215 7.9.14. ναλςολοναξδα .TSTACT 216 7.9.15. ναλςολοναξδα .TSTER 216 7.9.16. ναλςολοναξδα .TSTOP 217 7.9.17. ναλςολοναξδα .TTIME 218 7.10. ςεϊιδεξτξωε βιβμιοτελι (TS) 218 7.10.1. ναλςολοναξδα .SHARE 219 7.10.2. ναλςολοναξδα .SHMAP 220 7.11. αχτοξονξωε ϊαδαξιρ (TS) 221 7.11.1. ναλςολοναξδα .DJKILL 222 7.11.2. ναλςολοναξδα .DJSTART 222 7.11.3. ναλςολοναξδα .DJTST 223 7.12. ποώτοχωε ρύιλι (TS) 224 - 7 - 7.12.1. ναλςολοναξδα .MGET 224 7.12.2. ναλςολοναξδα .MGETWAIT 225 7.12.3. ναλςολοναξδα .MPUT 226 7.13. σςεδστχα ςεαμψξοηο χςενεξι (TS) 227 7.13.1. δοστυπ λ στςαξιγε χχοδα/χωχοδα 227 7.13.2. οβςαβοτλα πςεςωχαξικ 228 7.13.3. βμολιςοχαξιε σχοπιξηα 229 7.13.4. ναλςολοναξδα .CONVIR 230 7.13.5. ναλςολοναξδα .ENSWAP 231 7.13.6. ναλςολοναξδα .IMLOCK 231 7.13.7. ναλςολοναξδα .POLOCK 232 7.13.8. ναλςολοναξδα .INTCON 232 7.13.9. ναλςολοναξδα .INTFRE 233 7.13.10. ναλςολοναξδα .IOBIC 234 7.13.11. ναλςολοναξδα .IOBIS 235 7.13.12. ναλςολοναξδα .IOGET 235 7.13.13. ναλςολοναξδα .IOPUT 236 7.13.14. ναλςολοναξδα .IOMAP 237 7.13.15. ναλςολοναξδα .IOUNMAP 237 7.14. ςαϊδεμρενωε ζακμω (TS) 238 7.14.1. ναλςολοναξδα .SFLOCK 239 7.14.2. ναλςολοναξδα .SFOPEN 240 7.14.3. ναλςολοναξδα .SFSAVE 242 7.14.4. ναλςολοναξδα .SFTLOCK 243 7.14.5. ναλςολοναξδα .SFUNALL 243 7.14.6. ναλςολοναξδα .SFUNLOCK 244 7.14.7. ναλςολοναξδα .SFWCHECK 245 7.15. αξαμιϊ όζζελτιχξοστι (TS) 245 7.15.1. ναλςολοναξδα .PAINIT 246 7.15.2. ναλςολοναξδα .PASTART 247 7.15.3. ναλςολοναξδα .PASTOP 247 7.15.4. ναλςολοναξδα .PAGET 248 7.16. ναλςολοναξδω δμρ ξαπισαξιρ δςακχεςοχ 249 7.17. ναλςολοναξδω ςασϋιςεξξοκ πανρτι 249 8. σιστενξαρ οβ'ελτξαρ βιβμιοτελα 250 8.1. οπεςαγιι σ λαταμοηανι 250 8.1.1. ποδπςοηςαννω CLOSEC/ICLOSE 250 8.1.2. ζυξλγιρ IDELET 252 8.1.3. ζυξλγιρ IENTER 253 8.1.4. ζυξλγιρ IRENAM 255 8.1.5. ζυξλγιρ LOOKUP 256 8.2. οπεςαγιι χχοδα/χωχοδα 259 8.2.1. ζυξλγιι IREAD/IREADC/IREADF/IREADW 259 8.2.1.1. ζυξλγιρ IREAD 259 8.2.1.2. ζυξλγιρ IREADC 260 8.2.1.3. ζυξλγιρ IREADF 261 8.2.1.4. ζυξλγιρ IREADW 262 8.2.2. ζυξλγιρ ITTINR 263 8.2.3. ζυξλγιρ ITTOUR 265 8.2.4. ζυξλγιρ IWAIT 266 8.2.5. ζυξλγιι IWRITE/IWRITC/IWRITF/IWRITW 267 8.2.5.1. ζυξλγιρ IWRITE 267 8.2.5.2. ζυξλγιρ IWRITC 268 8.2.5.3. ζυξλγιρ IWRITF 269 8.2.5.4. ζυξλγιρ IWRITW 270 8.2.6. ποδπςοηςαννα PRINT 271 8.2.7. ζυξλγιι ISPFN/ISPFNC/ISPFNF/ISPFNW 272 - 8 - 8.2.7.1. ζυξλγιρ ISPFN 272 8.2.7.2. ζυξλγιρ ISPFNC 274 8.2.7.3. ζυξλγιρ ISPFNF 275 8.2.7.4. ζυξλγιρ ISPFNW 277 8.3. ςαβοτα σ λαξαμανι 279 8.3.1. ζυξλγιρ ICDFN 279 8.3.2. ζυξλγιρ ICHCPY (FB, XM) 280 8.3.3. ζυξλγιρ ICSTAT (FB, XM) 281 8.3.4. ζυξλγιρ IFREEC 282 8.3.5. ζυξλγιρ IGETC 283 8.3.6. ζυξλγιρ ILUN 283 8.3.7. ζυξλγιρ IREOPN 284 8.3.8. ζυξλγιρ ISAVES 285 8.3.9. ποδπςοηςαννα PURGE 286 8.4. οβςαβοτλα λοναξδξοκ στςολι 287 8.4.1. ποδπςοηςαννα GTLIN 287 8.4.2. ζυξλγιρ IASIGN 288 8.4.3. ζυξλγιρ ICSI 290 8.5. ςαβοτα σ τακνεςον 293 8.5.1. ποδπςοηςαννα CVTTIM 293 8.5.2. ποδπςοηςαννα GTIM 293 8.5.3. ζυξλγιρ ICMKT 294 8.5.4. ζυξλγιρ ISCHED 295 8.5.5. ζυξλγιρ ISLEEP 296 8.5.6. ζυξλγιρ ITIMER 297 8.5.7. ζυξλγιρ ITWAIT (FB, XM) 299 8.5.8. ζυξλγιρ IUNTIL (FB, XM) 300 8.5.9. ποδπςοηςαννα JTIME 301 8.5.10. ζυξλγιρ MRKT 301 8.5.11. ζυξλγιρ SECNDS 302 8.5.12. ποδπςοηςαννα TIMASC 303 8.5.13. ποδπςοηςαννα TIME 304 8.6. ζυξλγιι οβύεηο ξαϊξαώεξιρ 304 8.6.1. ποδπςοηςαννα CHAIN 305 8.6.2. ποδπςοηςαννα DEVICE (FB, XM) 306 8.6.3. ποδπςοηςαννω GTJB/IGTJB 307 8.6.4. ζυξλγιρ IDSTAT 309 8.6.5. ζυξλγιρ IFETCH 310 8.6.6. ζυξλγιρ IQSET 311 8.6.7. ζυξλγιρ ITLOCK (FB, XM) 313 8.6.8. ποδπςοηςαννα LOCK 313 8.6.9. ποδπςοηςαννα RCHAIN 315 8.6.10. ποδπςοηςαννα RCTRLO 316 8.6.11. ποδπςοηςαννα RESUME (FB, XM) 316 8.6.12. ποδπςοηςαννα SCCA 317 8.6.13. ποδπςοηςαννα SETCMD 318 8.6.14. ποδπςοηςαννα SUSPND (FB, XM) 319 8.6.15. ποδπςοηςαννα UNLOCK 320 8.7. σμυφεβξωε οπεςαγιι 321 8.7.1. ζυξλγιρ IADDR 321 8.7.2. ζυξλγιρ IGETSP 321 8.7.3. ζυξλγιρ INTSET 322 8.7.4. ζυξλγιρ IPEEK 324 8.7.5. ζυξλγιρ IPEEKB 325 8.7.6. ποδπςοηςαννα IPOKE 325 8.7.7. ποδπςοηςαννα IPOKEB 326 8.7.8. ζυξλγιρ ISPY 326 8.8. οβνεξ νεφδυ ϊαδαξιρνι 327 8.8.1. ζυξλγιι IRCVD/IRCVDC/IRCVDF/IRCVDW (FB, - 9 - XM) 327 8.8.1.1. ζυξλγιρ IRCVD 327 8.8.1.2. ζυξλγιρ IRCVDC 328 8.8.1.3. ζυξλγιρ IRCVDF 329 8.8.1.4. ζυξλγιρ IRCVDW 330 8.8.2. ζυξλγιι ISDAT/ISDATC/ISDATF/ISDATW (FB/XM). 330 8.8.2.1. ζυξλγιρ ISDAT 331 8.8.2.2. ζυξλγιρ ISDATC 331 8.8.2.3. ζυξλγιρ ISDATF 332 8.8.2.4. ζυξλγιρ ISDATW 333 8.8.3. ποδπςοηςαννα MWAIT (FB, XM) 333 8.9. ςαβοτα σ δοπομξιτεμψξωνι τεςνιξαμανι 334 8.9.1. ζυξλγιρ MTATCH 334 8.9.2. ζυξλγιρ MTDTCH 335 8.9.3. ζυξλγιρ MTGET 335 8.9.4. ζυξλγιρ MTIN 336 8.9.5. ζυξλγιρ MTOUT 337 8.9.6. ζυξλγιρ MTPRNT 338 8.9.7. ζυξλγιρ MTRCTO 338 8.9.8. ζυξλγιρ MTSET 339 8.9.9. ζυξλγιρ MTSTAT 342 8.10. σμυφεβξωε (TS) 342 8.10.1. ποδπςοηςαννα IBLIN 343 8.10.2. ποδπςοηςαννα IBLOUT 343 8.10.3. ποδπςοηςαννα IBREAK 344 8.10.4. ζυξλγιρ IDISMO 345 8.10.5. ζυξλγιρ IFRSPL 345 8.10.6. ποδπςοηςαννα IHIOF 346 8.10.7. ποδπςοηςαννα IHION 346 8.10.8. ζυξλγιρ IMOUNT 346 8.10.9. ποδπςοηςαννα IMSEND 347 8.10.10. ποδπςοηςαννα ISTODT 348 8.10.11. ποδπςοηςαννα IRSTODT 348 8.10.12. ζυξλγιρ ITRMTYPE 348 8.10.13. ζυξλγιρ ITSLINE 349 8.10.14. ζυξλγιρ ITSACT 349 8.10.15. ζυξλγιρ ITSTER 350 8.10.16. ζυξλγιρ ITSTOP 350 8.10.17. ποδπςοηςαννα ITTIME 351 8.11. ςεϊιδεξτξωε βιβμιοτελι (TS) 352 8.11.1. ζυξλγιρ ISHARE 352 8.11.2. ζυξλγιρ ISHMAP 353 8.12. αχτοξονξωε ϊαδαξιρ (TS) 354 8.12.1. ζυξλγιρ IDJKILL 354 8.12.2. ποδπςοηςαννα IDJSTART 355 8.12.3. ζυξλγιρ IDJTST 356 8.13. ποώτοχωε ρύιλι (TS) 356 8.13.1. ποδπςοηςαννα IMGET 357 8.13.2. ποδπςοηςαννα IMGETWAIT 358 8.13.3. ζυξλγιρ IMPUT 359 8.14. σςεδστχα ςεαμψξοηο χςενεξι (TS) 360 8.14.1. ποδπςοηςαννα ICONVIR 361 8.14.2. ζυξλγιρ IENSWAP 362 8.14.3. ζυξλγιρ IMLOCK 362 8.14.4. ζυξλγιρ IPOLOCK 363 8.14.5. ζυξλγιρ INTCON 364 8.14.6. ζυξλγιρ INTFRE 365 8.14.7. ζυξλγιρ IOBIC 365 - 10 - 8.14.8. ζυξλγιρ IOBIS 366 8.14.9. ποδπςοηςαννα IOGET 367 8.14.10. ζυξλγιρ IOPUT 368 8.14.11. ποδπςοηςαννα IOMAP 368 8.14.12. ποδπςοηςαννα IOUNMAP 369 8.15. ςαϊδεμρενωε ζακμω (TS) 369 8.15.1. ζυξλγιρ ISFLOCK 369 8.15.2. ζυξλγιρ ISFOPEN 370 8.15.3. ποδπςοηςαννα ISFSAVE 371 8.15.4. ζυξλγιρ ISFTLOCK 372 8.15.5. ζυξλγιρ ISFUNALL 373 8.15.6. ζυξλγιρ ISFUNLOCK 374 8.15.7. ζυξλγιρ ISFWCHECK 375 8.16. αξαμιϊ όζζελτιχξοστι πςοηςανν (TS) 375 8.16.1. ζυξλγιρ IPAINI 376 8.16.2. ζυξλγιρ IPASTA 376 8.16.3. ζυξλγιρ IPASTO 377 8.16.4. ποδπςοηςαννα IPAGET 378 8.17. 32-ςαϊςρδξαρ αςιζνετιλα 379 8.17.1. ζυξλγιρ AJFLT 379 8.17.2. ζυξλγιρ DJFLT 380 8.17.3. ζυξλγιρ IAJFLT 380 8.17.4. ζυξλγιρ IDJFLT 381 8.17.5. ζυξλγιρ IJCVT 382 8.17.6. ζυξλγιρ JADD 382 8.17.7. ζυξλγιρ JAFIX 383 8.17.8. ζυξλγιρ JCMP 384 8.17.9. ζυξλγιρ JDFIX 384 8.17.10. ζυξλγιρ JDIV 385 8.17.11. ζυξλγιρ JICVT 386 8.17.12. ποδπςοηςαννα JJCVT 386 8.17.13. ζυξλγιρ JMOV 387 8.17.14. ζυξλγιρ JMUL 387 8.17.15. ζυξλγιρ JSUB 388 8.18. ςαβοτα σο στςολανι 389 8.18.1. ποδπςοηςαννα CONCAT 389 8.18.2. ποδπςοηςαννα GETSTR 390 8.18.3. ποδπςοηςαννα INDEX 391 8.18.4. ποδπςοηςαννα INSERT 392 8.18.5. ζυξλγιρ LEN 393 8.18.6. ποδπςοηςαννα PUTSTR 393 8.18.7. ποδπςοηςαννα REPEAT 394 8.18.8. ποδπςοηςαννα SCOMP/ISCOMP 395 8.18.9. ποδπςοηςαννα SCOPY 396 8.18.10. ποδπςοηςαννα STRPAD 397 8.18.11. ποδπςοηςαννα SUBSTR 398 8.18.12. ποδπςοηςαννα TRANSL 399 8.18.13. ποδπςοηςαννα TRIM 400 8.18.14. ποδπςοηςαννα IVERIF/VERIFY 401 8.18.15. ζυξλγιρ IRAD50 402 8.18.16. ποδπςοηςαννα R50ASC 403 8.18.17. ζυξλγιρ RAD50 403 9. ισπομψϊοχαξιε ςασϋιςεξξοκ πανρτι (XM) 404 9.1. οσξοχξωε ποξρτιρ 404 9.1.1. 16-ςαϊςρδξαρ αδςεσαγιρ 404 9.1.2. χιςτυαμψξωε ι ζιϊιώεσλιε αδςεσα χ λονπμελσαθ (28 λσμοχ) 404 - 11 - 9.1.3. ςαϊνες πςοηςαννω 405 9.1.4. 18-ςαϊςρδξαρ αδςεσαγιρ 407 9.2. τεθξιώεσλιε σςεδστχα 409 9.2.1. δισπετώες πανρτι 410 9.2.2. ποξρτιε στςαξιγω 410 9.2.3. πεςενεύεξιε 412 9.2.4. ςεηιστς αλτιχξωθ στςαξιγ (ςασ) 414 9.2.4.1. ςεηιστς αδςεσα στςαξιγω (ςα) 415 9.2.4.2. ςεηιστς οπισαξιρ στςαξιγω (ςο) 416 9.2.5. πςεοβςαϊοχαξιε 16-ςαϊςρδξοηο αδςεσα χ 18-ςαϊςρδξωκ 417 9.2.6. ςεηιστςω σοστορξιρ δπ 418 9.2.7. σιστενξωκ ι πομψϊοχατεμψσλικ ςεφινω πςογεσσοςα 419 9.2.8. οτοβςαφεξιε πο υνομώαξιΰ 421 9.3. πςοηςαννξωε λοξγεπγιι 424 9.3.1. ςασπςεδεμεξιε πανρτι 424 9.3.2. πςοηςαννξοε υπςαχμεξιε οτοβςαφεξιεν 425 9.3.2.1. οβμαστψ ζιϊιώεσλιθ αδςεσοχ 426 9.3.2.2. χιςτυαμψξοε αδςεσξοε ολξο 428 9.3.2.3. πςοστςαξστχο μοηιώεσλιθ αδςεσοχ πςοηςαννω (PLAS) 430 9.3.3. δχα χιδα οτοβςαφεξιρ 430 9.3.3.1. χιςτυαμψξωε ϊαδαξιρ 430 9.3.3.2. πςιχιμεηιςοχαξξωε ϊαδαξιρ 435 9.3.3.3. ςαϊμιώιρ νεφδυ χιςτυαμψξων ι πςιχιμεηιςοχαξξων ϊαδαξιρνι 438 9.3.3.4. πεςελμΰώεξιε νεφδυ ϊαδαξιρνι 440 9.4. τιπιώξοε πςινεξεξιε ςασϋιςεξξοκ πανρτι 441 9.4.1. οχεςμει ςασϋιςεξξοκ πανρτι 441 9.4.2. βομψϋιε βυζεςω ιμι νασσιχω δαξξωθ χ ςασϋιςεξξοκ πανρτι 444 9.4.3. νξοηοπομψϊοχατεμψσλαρ πςοηςαννα 445 9.4.4. ςαβοώαρ οβμαστψ χ ςασϋιςεξξοκ πανρτι 447 9.4.4.1. ισπομψϊοχαξιε .SETTOP χ XM-νοξιτοςε 448 9.4.4.2. χεςθξιε ηςαξιγω πςοηςαννω 449 9.4.4.3. οβωώξαρ ναλςολοναξδα .SETTOP 451 9.4.4.4. ςασϋιςεξξαρ ναλςολοναξδα .SETTOP 452 9.4.4.5. .SETTOP ι πςιχιμεηιςοχαξξωε ϊαδαξιρ 454 9.4.4.6. .SETTOP ι χιςτυαμψξωε ϊαδαξιρ 456 9.4.4.7. χοϊνοφξοστι .SETTOP 461 9.4.5. πμαξιςοχαξιε ςασϋιςεξξοκ πανρτι 463 9.5. οβϊος ναλςολοναξδ ςασϋιςεξξοκ πανρτι 464 9.6. στςυλτυςω δαξξωθ 466 9.6.1. βμολ οπισαξιρ οβμαστι 466 9.6.1.1. σμοχο σοστορξιρ οβμαστι 467 9.6.1.2. ναλςολοναξδα .RDBDF 468 9.6.1.3. ναλςολοναξδα .RDBBK 468 9.6.2. βμολ υπςαχμεξιρ οβμαστψΰ 469 9.6.3. βμολ οπισαξιρ ολξα 470 9.6.3.1. σμοχο σοστορξιρ ολξα 474 9.6.3.2. σιστενξαρ ναλςολοναξδα .WDBDF 475 9.6.3.3. σιστενξαρ ναλςολοναξδα .WDBBK 476 9.6.4. βμολ υπςαχμεξιρ ολξον 478 9.6.5. όμενεξτ οώεςεδι χχοδα/χωχοδα 479 9.6.6. σπισολ σχοβοδξοκ πανρτι 480 9.7. χωπομξεξιε σιστενξωθ ναλςολοναξδ 480 9.7.1. σοϊδαξιε οβμαστι - .CRRG 480 9.7.2. σοϊδαξιε ολξα - .CRAW 481 - 12 - 9.7.3. οτοβςαφεξιε ολξα ξα οβμαστψ - .MAP 483 9.7.4. σοστορξιε οτοβςαφεξιρ - .GMCX 484 9.7.5. οτνεξα οτοβςαφεξιρ ολξα - .UNMAP 485 9.7.6. υστςαξεξιε οβμαστι - .ELRG 485 9.7.7. υστςαξεξιε ολξα - .ELAW 486 9.7.8. λοδω οϋιβολ 487 9.8. οηςαξιώεξιρ 489 9.8.1. οηςαξιώεξιρ πςι ισπομψϊοχαξιι ςα1 489 9.8.2. οηςαξιώεξιρ σιστενξωθ ναλςολοναξδ 490 9.8.3. οηςαξιώεξιρ πςι ισπομψϊοχαξιι ςα2 490 9.8.4. σιξθςοξξωε σιστενξωε μοχυϋλι 491 9.8.4.1. ιξστςυλγιι TRAP, BPT ι IOT 492 9.8.4.2. μοχυϋλι 4, 10 ι FPU 492 9.8.4.3. οϋιβλι δισπετώεςα πανρτι 493 9.8.4.4. οϋιβλι παςιτετα πανρτι 493 9.9. οτμαδλα πςοηςανν 494 9.10. πςινες πςοηςαννω 494 πςιμοφεξιε 1. πςοηςαννξοε υπςαχμεξιε τεςνιξαμον (TS) 498 πςιμοφεξιε 2. λαταμοη σιστενξωθ βιβμιοτελ 504 ώαστψ 2. πςοηςαννιςοχαξιε χξεϋξιθ υστςοκστχ. ςυλοχοδστχο πςοηςαννιστα ώαστψ 3. οβςαβοτλα ηςαζιώεσλιθ δαξξωθ. ςυλοχοδστχο πςοηςαννιστα - 13 - 1. ξαϊξαώεξιε ι υσμοχιρ πςινεξεξιρ βιβμιοτελ οπεςαγιοξξαρ σιστενα σοδεςφιτ ϋιςολικ ξαβος σεςχισξωθ ζυξλγικ, ταλιθ λαλ ςαβοτα σ ζακμανι, ιξτεςπςεταγιρ λοναξδ- ξωθ στςολ, υπςαχμεξιε χχοδον/χωχοδον ι τ. δ. οβςαύεξιε λ ξιν πςοηςανν πομψϊοχατεμρ, ξαπισαξξωθ ξα ρϊωλε ασσεβμες, οσυύεστχμρετσρ σ πονούψΰ σιστενξωθ ναλςολο- ναξδ. οπςεδεμεξιρ ναλςολοναξδ χλμΰώεξω χ ζακμ σιστενξοκ βιβμιοτελι, ινεΰύεκ ξαινεξοχαξιε SYSνασ.SνL. σιστενξωε ναλ- ςολοναξδω ιξτεςπςετιςυΰτσρ νοξιτοςον χο χςενρ χωπομξεξιρ πςοηςαννω πομψϊοχατεμρ. πςι πςοηςαννιςοχαξιι ξα ρϊωλε ζοςτςαξ σν δοστυπ λ σες- χισξων ζυξλγιρν πςοηςαννιστ πομυώαετ ώεςεϊ χωϊοχω ποδπςοη- ςανν ιϊ σιστενξοκ οβ'ελτξοκ βιβμιοτελι, ινεΰύεκ ξαινεξοχα- ξιε SYSLIB.OBJ. χ ότυ βιβμιοτελυ ταλφε χλμΰώεξω ξαβοςω ποδπςοηςανν δμρ ςαβοτω σο στςολοχωνι δαξξωνι ι 32-θ ςαϊςρδ- ξοκ γεμοώισμεξξοκ αςιζνετιλοκ. ποδπςοηςαννω βιβμιοτελι ποϊ- χομρΰτ ξαπισατψ μΰβυΰ πςοηςαννυ ξα ρϊωλε ζοςτςαξ σν βεϊ πςοηςαννιςοχαξιρ οτδεμψξωθ όμενεξτοχ ξα ρϊωλε ασσενβμες. δοπυστινο ταλφε οβςαύεξιε λ ποδπςοηςανναν βιβμιοτελι ιϊ πςοηςανν ξα ρϊωλε ναλςοασσενβμες. ποδπςοηςαννω βιβμιοτελι δοπομξρΰτ ι ςασϋιςρΰτ χοϊνοφ- ξοστι ρϊωλα ζοςτςαξ σν, ποϊχομρΰτ ισπομψϊοχατψ ςαϊμιώξωε οσοβεξξοστι ι σχοκστχα νοξιτοςοχ, χωπομξρΰτ χσπονοηατεμψξωε ζυξλγιι. ποδπςοηςαννω βιβμιοτελι οβεσπεώιχαΰτ χωπομξεξιε πςοη- ςαννοκ ξα ρϊωλε ζοςτςαξ σν δεκστχικ, αξαμοηιώξωθ χωπομξεξιΰ σιστενξωθ ναλςολοναξδ χ πςοηςαννε ξα ρϊωλε ναλςοασσενβμες, ςαβοτυ ζοςτςαξοχσλοκ πςοηςαννω σο στςοώξωνι δαξξωνι, α ταλ- φε γεμοώισμεξξυΰ δχυσμοχξυΰ (32 ςαϊςρδα) αςιζνετιλυ. - 14 - 2. θαςαλτεςιστιλι βιβμιοτελ δαξξωκ ςαϊδεμ οπισωχαετ θαςαλτεςιστιλι βιβμιοτελι σισ- τενξωθ ναλςολοναξδ (SYSMAC.SML) ι σιστενξοκ οβ'ελτξοκ βιβ- μιοτελι (SYSLIB.OBJ). 2.1. ναλςοβιβμιοτελα σιστενξωε ναλςολοναξδω ποδδεςφιχαΰτσρ ι χωπομξρΰτσρ ςαϊμιώξωνι λονποξεξτανι οπεςαγιοξξοκ σιστενω: RM-νοξιτος - ποδδεςφιχαετ βομψϋιξστχο σιστενξωθ ναλςολοναξδ αξαμοηιώξο SJ-νοξιτοςυ; χοϊνοφξωε οηςαξιώεξιρ σχρ- ϊαξω σ ηεξεςαγιεκ; SJ-νοξιτος - ποδδεςφιχαετ βομψϋιξστχο σιστενξωθ ναλςολοναξδ ποϊχομρΰύιθ ςαβοτατψ σ ζακμανι, πςοιϊχοδιτψ οπεςα- γιι χχοδα/χωχοδα, ςαβοτατψ σ τακνεςον, οπςεδεμρτψ ςεσυςσω ι σοστορξιε σιστενω, α ταλφε ϊαχεςϋατψ χωπομξεξιε πςοηςανν; FB-νοξιτος - ποδδεςφιχαετ ξελοτοςωε σιστενξωε ναλςολοναξδω, χωπομξρΰύιεσρ τομψλο ποδ υπςαχμεξιεν ότοηο νοξιτο- ςα; ότι σιστενξωε ναλςολοναξδω ποϊχομρΰτ πομψϊοχα- τεμΰ οπςεδεμρτψ ποδπςοηςαννω, χωπομξρενωε πο τακ- νεςυ, πςιοσταξαχμιχατψ ι πςοδομφατψ χωπομξεξιε πςοηςαννω, οςηαξιϊοχωχατψ οβνεξ ιξζοςναγιεκ νεφδυ ϊαδαξιρνι, ςαβοταΰύινι χ ςαϊξωθ ςαϊδεμαθ; χσε σισ- τενξωε ναλςολοναξδω, ποδδεςφιχαενωε SJ-νοξιτοςον, ποδδεςφιχαΰτσρ ι FB-νοξιτοςον; XM-νοξιτος - ποδδεςφιχαετ σιστενξωε ναλςολοναξδω, ςασϋιςρΰύιε δοστυπξυΰ ϊαδαξιΰ πανρτψ οτ 28 λσμοχ δο 124 λσμοχ (πμΰσ 4 Kσμοχ στςαξιγω χχοδα/χωχοδα) ι χσε σιστεν- ξωε ναλςολοναξδω, δοστυπξωε χ FB-νοξιτοςε; TS-νοξιτος - νοξιτος ςαϊδεμεξιρ χςενεξι πςεδοσταχμρετ ϊαδαξιΰ σςεδστχα, δοστυπξωε χ SJ-νοξιτοςε, α ταλφε σςεδστ- χα ςαβοτω σ ςαϊδεμρενωνι ζακμανι, ςεϊιδεξτξωνι βιβμιοτελανι, αχτοξονξωνι ϊαδαξιρνι ι δς., οβνεξα νεφδυ ϊαδαξιρνι ώεςεϊ "ποώτοχωε ρύιλι", πςοηςανν- ξοηο υπςαχμεξιρ θαςαλτεςιστιλανι τεςνιξαμψξοηο δςακχεςα ι τ.π.; νξοηοτεςνιξαμψξωκ δςακχες - ποδδεςφιχαετ σιστενξωε ναλςολοναξδω, ποϊχομρΰύιε πεςεδαχατψ ι πςιξινατψ σινχομω σ 16-ι τεςνιξαμοχ, - 15 - ϊαλςεπμρτψ ι οσχοβοφδατψ τεςνιξαμω, πομυώατψ σισ- τενξοε σοστορξιε τεςνιξαμα ι υσταξαχμιχατψ θαςαλ- τεςιστιλι τεςνιξαμα ι μιξιι. αςηυνεξτω σιστενξωθ ναλςολοναξδ δομφξω βωτψ δοπυστινω- νι χωςαφεξιρνι ρϊωλα ναλςοασσενβμες. πςι τςαξσμργιι ναλςο- λοναξδω ςασϋιςρΰτσρ χ ποσμεδοχατεμψξοστψ ιξστςυλγικ. βομψϋιξστχο σιστενξωθ ναλςολοναξδ ισπομψϊυΰτ ιξστςυλ- γιΰ εντ δμρ πεςεδαώι ιξζοςναγιι νοξιτοςυ, λοτοςωκ ιϊχμελαετ εε ι χωπομξρετ τςεβυενυΰ ζυξλγιΰ. νμαδϋικ βακτ ιξστςυλγιι εντ σοδεςφιτ λοδ χ ιξτεςχαμε οτ 340 δο 377 (χοσψνεςιώξοε): 377 - ϊαςεϊεςχιςοχαξ; σιστενα ιηξοςιςυετ εντ σ ότιν λοδον ι χοϊχςαύαετ υπςαχμεξιε πςοηςαννε πομψϊοχα- τεμρ; 376 - ισπομψϊυετσρ νοξιτοςον; ότοτ λοδ ξε δομφεξ πςινε- ξρτψσρ πομψϊοχατεμεν; 375 - σιστενξαρ ναλςολοναξδα σ ξεσλομψλινι αςηυνεξτανι; R0 σοδεςφιτ αδςεσ ταβμιγω αςηυνεξτοχ; 374 - σιστενξαρ ναλςολοναξδα σ οδξιν αςηυνεξτον; R0 σοδεςφιτ χ σταςϋεν βακτε λοδ ζυξλγιι, α χ νμαδϋεν - ξονες λαξαμα ιμι 0; 360-373 - ισπομψϊυΰτσρ νοξιτοςον; ότι λοδω ξε δομφξω πςινε- ξρτψσρ πομψϊοχατεμεν; 340-357 - αςηυνεξτω σιστενξοκ ναλςολοναξδω ξαθοδρτσρ χ στελε ι/ιμι χ R0. πςινεώαξιε. ιξστςυλγιρ EMT ξε δομφξα ισπομψϊοχατψσρ χ πςοηςανναθ, ξαπισαξξωθ πομψϊοχατεμεν. 2.2. οβ'ελτξαρ βιβμιοτελα σιστενξαρ οβ'ελτξαρ βιβμιοτελα (SYSLIB.OBJ) σοδεςφιτ ποδπςοηςαννω, χωϊωχαενωε ιϊ πςοηςανν, ξαπισαξξωθ ξα ρϊωλε ζοςτςαξ σν. ποδπςοηςαννω ποϊχομρΰτ ισπομψϊοχατψ σχοκστχα νοξιτοςοχ, χωπομξρτψ ςαϊξοοβςαϊξωε χσπονοηατεμψξωε ζυξλγιι. χ ξεε χθοδιτ παλετ ποδπςοηςανν δμρ ςαβοτω σο στςολανι ι οβεσπεώεξιε χσπονοηατεμψξωθ πςεοβςαϊοχαξικ δχυσμοχξοηο γεμοηο. βιβμιοτελα SYSLIB ινεετ: - ξαβος σςεδστχ χχοδα/χωχοδα: σιξθςοξξωκ, ασιξθςοξ- ξωκ ι πο σοβωτιρν; ποδπςοηςαννω βιβμιοτελι νοηυτ βωτψ ιξιγιιςοχαξω ιϊ ποδπςοηςανν ϊαχεςϋεξιρ; - 16 - - χοϊνοφξοστψ πμαξιςοχαξιρ χο χςενεξι ασιξθςοξξωθ ποδϊαδαξικ (ποδπςοηςανν ϊαχεςϋεξιρ); - ξαβος σςεδστχ δμρ σχρϊι νεφδυ οπεςατιχξων ι ζοξο- χων (ιμι σιστενξωνι) ϊαδαξιρνι (τομψλο δμρ FB- ι XM-νοξιτοςοχ); - ποδπςοηςαννω οβσμυφιχαξιρ πςεςωχαξικ; - ξαβος σςεδστχ οβσμυφιχαξιρ τακνεςα, χλμΰώαρ ασιξθ- ςοξξυΰ οβςαβοτλυ πςεςωχαξικ; πςεοβςαϊοχαξιε ςαϊ- μιώξωθ ζοςνατοχ χςενεξι; - χσπονοηατεμψξωε ζυξλγιι χχοδα/χωχοδα, χλμΰώαΰύιε χοϊνοφξοστι οτλςωτιρ, ϊαλςωτιρ, πεςεινεξοχαξιρ, σοϊδαξιρ ι υδαμεξιρ ζακμοχ σ υστςοκστχα; - χοϊνοφξοστψ ισπομψϊοχαξιρ ιξζοςναγιοξξωθ ζυξλγικ ξα υςοχξε νοξιτοςα: χωδαώα παςανετςοχ ϊαδαξιρ, στατιστιώεσλιθ δαξξωθ υστςοκστχα ι στατιστιώεσλιθ δαξξωθ λαξαμοχ χχοδα/χωχοδα; - δοστυπ λ ιξτεςπςετατοςυ λοναξδξωθ στςολ (CSI) δμρ χωβοςλι ι αξαμιϊα σταξδαςτξωθ λοναξδξωθ στςολ; - παλετ οβςαβοτλι σινχομψξωθ δαξξωθ, οβεσπεώιχαΰύικ οβςαβοτλυ σινχομψξωθ στςολ πεςενεξξοκ δμιξω; - ποδπςοηςαννω οβςαβοτλι δαξξωθ χ ζοςνατε INTEGER*4, λοτοςωε ποϊχομρΰτ χωπομξρτψ χωώισμεξιρ σ γεμωνι δμιξοκ χ δχα σμοχα; - σςεδστχα ςαβοτω σ ςεϊιδεξτξωνι βιβμιοτελανι ι αχτοξονξωνι ϊαδαξιρνι; - χοϊνοφξοστψ οβνεξα ιξζοςναγιεκ νεφδυ ϊαδαξιρνι πςι πονούι ποώτοχωθ ρύιλοχ ι ςαϊδεμρενωθ ζακμοχ; - σςεδστχα αξαμιϊα όζζελτιχξοστι πςοηςαννξοηο λοδα. πςινεώαξιε. βιβμιοτελα ξε σοδεςφιτ ποδπςοηςανν υπςαχ- μεξιρ ςασϋιςεξξοκ πανρτψΰ, τ.λ. σοοτχετστχυΰύιε χοϊνοφξοστι ισπομψϊυΰτσρ πςι ςαβοτε σ νασσιχανι, οβ'ρχμεξξωνι οπεςατο- ςον VIRTUAL. ποδπςοηςαννω IPEEK, IPOKE, IPEEKB, IPOKEB ι/ιμι ISPY δμρ χωβοςλι αδςεσοχ σιστενω, νοξιτοςα, τεθξιώεσλιθ σςεδστχ νοηυτ ςαϊμιώξων οβςαϊον χωπομξρτψσρ ξα οπςεδεμεξξωθ λοξζι- ηυςαγιρθ. πςι πςοηςαννιςοχαξιι ξα ρϊωλε ζοςτςαξ σν ξεοβθο- δινο ινετψ χ χιδυ σμεδυΰύεε: - ςαϊμιώξωε ζυξλγιι χ παλετε SYSLIB.OBJ λαλ ςεϊυμψ- τατ χωδαΰτ χεμιώιξω, λοτοςωε πο τιπυ ρχμρΰτσρ γεμωνι, χεύεστχεξξωνι ιμι υδχοεξξοκ τοώξοστι. εσμι πομψϊοχατεμψ πςινεξρετ οπεςατος IMPLICIT, λοτοςωκ ιϊνεξρετ ϊαδαξξωε πο υνομώαξιΰ τιπω χεμιώιξ δμρ χξεϋξιθ ζυξλγικ, το οξ δομφεξ ρχξο οπςεδεμιτψ τιπ τεθ ζυξλγικ ιϊ SYSLIB.OBJ, λοτοςωε ξα χωθοδε - 17 - χωδαΰτ γεμωε ιμι χεύεστχεξξωε ςεϊυμψτατω. ζυξλγιι υδχοεξξοκ τοώξοστι χσεηδα δομφξω οπισωχατψσρ οπε- ςατοςον DOUBLE PRECISION (ιμι REAL*8). ξεσοβμΰδε- ξιε ότοηο τςεβοχαξιρ νοφετ πςιχεστι λ ξεπςεδσλα- ϊυενων ςεϊυμψταταν; - χσε ινεξα ποδπςοηςανν, ρχμρΰύιθσρ χξεϋξινι πο οτξοϋεξιΰ λ ηομοχξοκ πςοηςαννε ι λοτοςωε πεςεδαΰτ- σρ "πμαξιςυΰύιν" ποδπςοηςανναν (ταλιν λαλ ISCHED, ITIMER, IREADF ι δς.), δομφξω οπισωχατψσρ χ οπεςα- τοςε EXTERNAL πςοηςαννω, λοτοςαρ ισπομψϊυετ ότοτ χωϊοχ; - ξελοτοςωε παςανετςω (υλαϊαξξωε χ οπισαξιρθ οτδεμψ- ξωθ ποδπςοηςανν) χ χωϊοχαθ SYSLIB.OBJ δομφξω ςαϊ- νεύατψσρ ταλιν οβςαϊον, ώτοβω ξε ποπαστψ χ οβμαστψ σχοπιξηα USR. εσμι σελγιρ OTS$I πο δμιξε ξε ςαχξα 2 Kσμοχ, το χ πςοηςαννε, χωϊωχαΰύεκ νοδυμι ιϊ SYSLIB.OBJ, νοφετ πορχιτψσρ οϋιβλα. ώτοβω ιϊβεφατψ οϋιβλι, σμεδυετ σδεματψ USR ςεϊιδεξτξοκ (λοναξδα νοξιτοςα "SET USR NOSWAP") ιμι ςασϋιςιτψ OTS$I δο 10000 (χοσψνεςιώξοε) ρώεελ. ζοςτςαξ σν ισπομψϊυετ διςελτιχυ .PSECT δμρ λονποξοχλι πςοηςαννω ι δαξξωθ σοοτχετστχυΰύεκ οβμαστι πανρτι; - μιτεςαμω (στςολι) νοηυτ ισπομψϊοχατψσρ χ λαώεστχε παςανετςοχ πςι χωϊοχε ποδπςοηςανν ι ζυξλγικ σισ- τενξοκ οβ'ελτξοκ βιβμιοτελι; - ξα ποδπςοηςαννω ϊαχεςϋεξιρ ι οβσμυφιχαξιρ πςεςωχα- ξικ ξαλμαδωχαΰτσρ οπςεδεμεξξωε οηςαξιώεξιρ. - 18 - 3. οβςαύεξιε λ βιβμιοτελαν πςοηςαννα πομψϊοχατεμρ πςι χωπομξεξιι οπεςαγικ σςεδστ- χανι οπεςαγιοξξοκ σιστενω οβςαύαετσρ λ νοξιτοςυ σ "πςοη- ςαννξων ϊαπςοσον". πςι οβςαύεξιι λ νοξιτοςυ πςοηςαννα δομφ- ξα σζοςνιςοχατψ ταβμιγυ παςανετςοχ ι χωπομξιτψ ξεοβθοδινυΰ ιξστςυλγιΰ EMT. δμρ οβμεηώεξιρ ζοςνιςοχαξιρ ταβμιγ ι χωβοςα ιξστςυλγιι EMT πομψϊοχατεμΰ πςεδοσταχμρετσρ δχε βιβμιοτελι. δμρ ζοςνιςοχαξιρ "πςοηςαννξωθ ϊαπςοσοχ" ιϊ πςοηςανν, ξαπι- σαξξωθ ξα ρϊωλε ασσενβμες, ισπομψϊυετσρ σιστενξαρ ναλςοβιβ- μιοτελα SYSMAC.SML, α ιϊ πςοηςανν, ξαπισαξξωθ ξα ρϊωλε ζοςτςαξ σν, ισπομψϊυετσρ σιστενξαρ οβ'ελτξαρ βιβμιοτελα SYSLIB.OBJ, δοπυσλαΰύαρ οβςαύεξιρ ι ιϊ πςοηςανν, ξαπισαξξωθ ξα ρϊωλε ασσενβμες. 3.1. οβςαύεξιε λ σιστενξοκ ναλςοβιβμιοτελε ινεξα σιστενξωθ ναλςολοναξδ ξαώιξαΰτσρ σ τοώλι (.) δμρ οτμιώιρ ιθ οτ σινχομοχ ι ινεξ ναλςολοναξδ, οπςεδεμεξξωθ πομψϊοχατεμεν. αςηυνεξτω σιστενξωθ ναλςολοναξδ δομφξω βωτψ δοπυστινω- νι χωςαφεξιρνι ρϊωλα ασσενβμες, τ.λ. πςι ναλςοςασϋιςεξιι χ πςογεσσε τςαξσμργιι οξι βυδυτ ισπομψϊοχαξω λαλ οπεςαξδ "ιστοώξιλ" χ ιξστςυλγιι MOV. χσε σιστενξωε ναλςολοναξδω, ισπομψϊυενωε χ πςοηςαννε, δομφξω βωτψ οπισαξω χ διςελτιχε .MCALL. χ πςογεσσε τςαξσμρ- γιι οπςεδεμεξιρ σοοτχετστχυΰύιθ ναλςολοναξδ βυδυτ χωβςαξω ιϊ SYSMAC.SML. ισπομψϊυΰτσρ σιστενξωε ναλςολοναξδω δχυθ ζοςνατοχ: 1) .PRGREQ ARG1,ARG2,...,ARGN 2) .PRGREQ AREA,ARG1,ARG2,...,ARGN ναλςολοναξδω πεςχοηο ζοςνατα ηεξεςιςυΰτ μιβο εντ 374, μιβο οδξυ ιϊ εντ 340-357. σιστενξωε ναλςολοναξδω, ισπομψϊυΰύιε ιξστςυλγιΰ EMT 374, ςαϊνεύαΰτ αςηυνεξτω χ ςεηιστςε R0. χ νμαδϋικ βακτ ϊαξοσιτσρ ξονες λαξαμα, α χ σταςϋικ - λοδ ζυξλγιι. δμρ σιστενξωθ ναλςολοναξδ σ λοδανι 340-357 αςηυνεξτω (εσμι οξι ϊαδαξω) ςαϊνεύαΰτσρ χ στελε, χ R0 ιμι ι χ R0, ι χ σTEKE. ξελοτοςωε αςηυνεξτω ναλςολοναξδω νοηυτ βωτψ οπυύεξω. ναλςολοναξδω χτοςοηο ζοςνατα ηεξεςιςυΰτ χσεηδα εντ 375. χ ότον ζοςνατε πεςχωκ αςηυνεξτ (αRεα) πςεδσταχμρετ - 19 - σοβοκ υλαϊατεμψ αδςεσα σπισλα αςηυνεξτοχ. ζοςνατ σπισλα αςηυνεξτοχ πςεδσταχμεξ ξα ςισ. 1. !--------!--------! R0 => AREA: ! CODE ! CHAN ! !--------!--------! ! ARG 1 ! !-----------------! ! ARG 2 ! !-----------------! ! . . . ! !-----------------! ! ARG N ! !-----------------! ςισ. 1 δοπυσλαετσρ οτσυτστχιε αςηυνεξτοχ. εσμι οπυύεξ αςηυ- νεξτ AREA, το πςεδπομαηαετσρ, ώτο οξ σοδεςφιτσρ χ R0. εσμι οπυύεξω λαλιε-μιβο Aςηυνεξτω οτ αRG1 δο αRGN, το ναλςολο- ναξδα ξε ιϊνεξρετ σοοτχετστχυΰύιθ ιν ϊαπισεκ χ σπισλε αςηυ- νεξτοχ. ξαπςινες, χ ναλςολοναξδε: .PRGREQ AREA,ARG1,ARG2 ϊαπομξρΰτσρ πεςχωκ ι χτοςοκ αςηυνεξτω, α R0 σοδεςφιτ αδςεσ σπισλα αςηυνεξτοχ. χ ναλςολοναξδε: .PRGREQ AREA χ σπισλε ϊαπομξρετσρ τομψλο πεςχωκ βακτ (λοδ ζυξλγιι), α οσταμψξωε αςηυνεξτω (εσμι οξι εστψ) ξε ιϊνεξρΰτσρ. R0 σοδεςφιτ αδςεσ σπισλα αςηυνεξτοχ. χ ναλςολοναξδε: .PRGREQ ,ARG1 πςεδπομαηαετσρ, ώτο R0 υφε σοδεςφιτ αδςεσ σπισλα αςηυνεξ- τοχ. χ σπισλε ϊαπομξρετσρ τομψλο πεςχωκ αςηυνεξτ, ξε ιϊνε- ξρρ οσταμψξωθ (εσμι οξι εστψ). χ ναλςολοναξδε: .PRGREQ πςεδπομαηαετσρ, ώτο R0 σοδεςφιτ αδςεσ σπισλα αςηυνεξτοχ, α σανι αςηυνεξτω υφε ϊαξεσεξω πομψϊοχατεμεν ιμι πςεδωδυύιν χωϊοχον δαξξοκ ναλςολοναξδω. σπισολ αςηυνεξτοχ EMT νοφετ βωτψ ϊαπομξεξ στατιώεσλι: - 20 - MOV #AREA,R0 .PRGREQ . . . AREA: .BYTE CHAN .BYTE CODE .WORD ARG1 .WORD ARG2 ι διξανιώεσλι: .PRGREQ #AREA,#ARG1,#ARG2 ιμι MOV #AREA,R0 MOV #ARG1,2(R0) MOV #ARG2,4(R0) MOVB #CHAN,@R0 MOVB #CODE,1(R0) .PRGREQ ότι τςι πςινεςα οπςεδεμρΰτ οδξυ ι τυ φε ναλςολοναξδυ. οβα ζοςνατα αξαμοηιώξω ζοςναταν σιστενξωθ ναλςολοναξδ χ σιστενε ζοβοσ, ξο ςαζοσ πςεδοσταχμρετ λςονε τοηο τςι ξοχωε νοδιζιλαγιι σιστενξωθ ναλςολοναξδ χτοςοηο ζοςνατα (εντ 375), οσξοχαξξωθ ξα χοϊνοφξοστι ισπομψϊοχαξιρ λμΰώεχωθ αςηυνεξτοχ, τ.ε. ταλιθ, ξα νξενοξιλυ λοτοςωθ ςεαηιςυετ ναλ- ςοασσενβμες. 3.1.1. λμΰώεχοκ αςηυνεξτ "χLοσλ" ότοτ λμΰώεχοκ αςηυνεξτ δαετ χοϊνοφξοστψ πομψϊοχατεμΰ στατιώεσλι οπισωχατψ σπισολ αςηυνεξτοχ EMT. σανα ναλςολο- ναξδα δομφξα βωτψ οπισαξα χ ςαϊδεμε δαξξωθ πςοηςαννω πομψ- ϊοχατεμρ σμεδυΰύιν οβςαϊον: LABEL: .PRGREQ BLOCK,ARG1,...,ARGN ηδε αRG1,...,αRGN - δοπυστινωε αςηυνεξτω δμρ διςελτιχ .WοRD ι .χYτε. χ ότον σμυώαε ναλςολοναξδα ςασϋιςιτσρ χ σπισολ αςηυ- νεξτοχ EMT, α σανα ιξστςυλγιρ EMT ηεξεςιςοχατψσρ ξε βυδετ. ώτοβω χωπομξιτψ δαξξυΰ ναλςολοναξδυ, πομψϊοχατεμψ δομ- φεξ ισπομψϊοχατψ οδξυ ιϊ τςεθ όλχιχαμεξτξωθ ϊαπισεκ: - 21 - 1) .νσαLL .WRIτε,.DIR,.εθIτ .DIR #WR χσS εRRοR .EXIT εRRοR: . . . WR: .WRIτε χLοσλ,σξαN,χUF,WσN,χLοσλN .εND 2) .νσαLL .WRIτε,.εθIτ MOV #WR,R0 .WRITE χσS εRRοR .EXIT εRRοR: . . . WR: .WRIτε χLοσλ,σξαN,χUF,WσN,χLοσλN .εND 3) .νσαLL .WRIτε,.εθIτ MOV #WR,R0 EMT 375 χσS εRRοR .EXIT εRRοR: . . . WR: .WRIτε χLοσλ,σξαN,χUF,WσN,χLοσλN .εND 3.1.2. λμΰώεχοκ αςηυνεξτ "ςSεστ" ότοτ λμΰώεχοκ αςηυνεξτ ποϊχομρετ οδξοχςενεξξο οπςεδε- μιτψ στατιώεσλι σπισολ αςηυνεξτοχ ι χωπομξιτψ ναλςολοναξδυ. χστςετιχ ότοτ λμΰώεχοκ αςηυνεξτ, ναλςοασσενβμες σοϊ- δαετ σπισολ αςηυνεξτοχ χ πςοηςαννξοκ σελγιι $$εντ$. πςινες. .νσαLL .WRIτε .PSECT PROG .WRIτε ςSεστ,σξαN,χUF,WσN,χLοσλN,SECT=PROG .ςSεστ $$εντ$ ; ςασϋιςεξιε $$$ = . ; ναλςο- .χYτε σξαN,σοD ; λοναξδω .WοRD χUF,WσN,χLοσλN ; .PSECT PROG ; νοV #$$$,R0 ; εντ 375 ; BCS ERROR λμΰώεχοκ αςηυνεξτ "ςSεστ" ποϊχομρετ πομψϊοχατεμΰ ξε ϊαδυνωχατψσρ ξαδ νεστον ςασπομοφεξιρ σπισλα αςηυνεξτοχ ι ξε ςεϊεςχιςοχατψ δμρ ξεηο νεστο χ πςοηςαννε (νεστο βυδετ οτχο- διτψσρ αχτονατιώεσλι). - 22 - 3.1.3. λμΰώεχοκ αςηυνεξτ "CODE" ότοτ λμΰώεχοκ αςηυνεξτ ποϊχομρετ πςοηςαννιστυ ςεηυμι- ςοχατψ ϊαξεσεξιε λοδα ζυξλγιι χ σπισολ αςηυνεξτοχ. CODE νοφετ ινετψ δχα ϊξαώεξιρ: SET - ϊαξεστι λοδ ζυξλγιι ι NOSET - ξε ϊαξοσιτψ λοδ ζυξλγιι. πςινες. .MCALL .WRITE,.READ,.EXIT . . . .WRITE #AREA,#CHAN,#BUF,#WCN,#BLOCKN . . . .WRITE #AREA,CODE=NOSET . . . .READ #AREA,CODE=SET . . . .WRITE #AREA,CODE=SET . . . .EXIT ότοτ λμΰώεχοκ αςηυνεξτ ποϊχομρετ ισπομψϊοχατψ οδιξ ι τοτ φε σπισολ αςηυνεξτοχ δμρ ναλςολοναξδ, ινεΰύιθ οδξι ι τε φε αςηυνεξτω, ξο ςαϊμιώξωε λοδω ζυξλγικ. ισπομψϊοχαξιε ότο- ηο λμΰώεχοηο αςηυνεξτα υνεξψϋαετ ςαϊνες πςοηςαννω ι χςενρ εε χωπομξεξιρ. 3.1.4. αδςεσαγιρ αςηυνεξτοχ αςηυνεξτω σιστενξωθ ναλςολοναξδ δομφξω ινετψ ςεφιν αδςεσαγιι, δοπυστινωκ χ ιξστςυλγιι MOV. ξαπςινες, δμρ ϊαξε- σεξιρ χ σπισολ αςηυνεξτοχ ώισμα ϋεστψ, ισπομψϊυετσρ αδςεσα- γιρ (#): .PRGREQ #AREA,#6 εσμι ξυφξο ϊαξεστι σοδεςφινοε αδςεσα ιμι ςεηιστςα, ισπομψ- ϊυετσρ: .PRGREQ #AREA,ADDR,R0 ότο σχρϊαξο σ τεν, ώτο σπισολ αςηυνεξτοχ δομφεξ σοδες- φατψ ξεποσςεδστχεξξο ϊξαώεξιρ αςηυνεξτοχ. πςι ισπομψϊοχαξιι λμΰώεχωθ σμοχ "BLOCK" ι "PSECT" σπι- σολ αςηυνεξτοχ ζοςνιςυετσρ σ πονούψΰ διςελτιχ .WORD ι .BYTE. ποότονυ αςηυνεξτω ναλςολοναξδ δομφξω βωτψ ξεποσ- ςεδστχεξξωνι ϊξαώεξιρνι ι υλαϊωχατψσρ χσε. πςινεώαξιρ: 1. ποσμε χωπομξεξιρ ναλςολοναξδω χσε υξιχεςσαμψξωε ςεηιστςω, λςονε R0, σοθςαξρΰτ σχοι ϊξαώεξιρ. R0 σοδεςφιτ ιξζοςναγιΰ, χοϊχςαύεξξυΰ νοξιτοςον. χ τεθ σμυώαρθ, λοηδα - 23 - ιξζοςναγιρ ξε χοϊχςαύαετσρ, σοδεςφινοε R0 ξε πςεδσλαϊυενο. 2. ταλ λαλ R0 ρχμρετσρ ςαβοώιν ςεηιστςον σιστενξωθ ναλςολοναξδ, πςοηςαννιστ πςι υλαϊαξιι αςηυνεξτοχ ξε δομφεξ ισπομψϊοχατψ σχρϊαξξωθ σ ξιν ςεφινοχ αδςεσαγιι. 3. υλαϊατεμψ στελα οσταετσρ βεϊ ιϊνεξεξικ. ισλμΰώεξιεν ρχμρετσρ χωϊοχ ιξτεςπςετατοςα λοναξδξοκ στςολι (CSI). 3.2. οβςαύεξιε λ σιστενξοκ οβ'ελτξοκ βιβμιοτελε ποδπςοηςαννω ιϊ SYSLIB.OBJ χωϊωχαΰτσρ ταλ φε, λαλ ι ποδπςοηςαννω, ξαπισαξξωε πομψϊοχατεμεν. χ σιστενξυΰ οβ'ελτ- ξυΰ βιβμιοτελυ χθοδρτ λαλ ποδπςοηςαννω (SUBROUTINE), ταλ ι ζυξλγιι (FUNCTION). οβςαύεξιε λ ζυξλγιι πςοιϊχοδιτσρ πο ινεξι χ χιδε: I=NAME([ARGUMENTS]) ϊξαώεξιε, χοϊχςαύαενοε ζυξλγιεκ, νοφετ βωτψ λοδον οϋιβλι ιμι δςυηοκ ιξζοςναγιεκ, λοτοςυΰ ισπομψϊυετ χωϊωχαΰ- ύαρ πςοηςαννα. σνωσμ ϊξαώεξιρ οπςεδεμρετσρ πςι οπισαξιι λαφδοκ λοξλςετξοκ ζυξλγιι. ποδπςοηςαννω χωϊωχαΰτσρ σ πονούψΰ οπεςατοςα CALL χ χιδε: CALL NAME[(ARGUMENTS)] ζυξλγιι ιϊ SYSLIB.OBJ νοηυτ βωτψ χωϊχαξω ι λαλ ποδπ- ςοηςαννω, εσμι ξετ ξεοβθοδινοστι χ ςεϊυμψτιςυΰύεκ χεμιώιξε ι ξαοβοςοτ. ξαπςινες: CALL ITWAIT(TIME) ιμι I = ITWAIT(TIME) εσμι χ οπισαξιι ποδπςοηςαννω ξε υλαϊαξο, ώτο εε νοφξο χωϊωχατψ λαλ ζυξλγιΰ, το πςι οβςαύεξιι λ ξεκ λαλ λ ζυξλγιι χοϊχςαύαενοε ϊξαώεξιε ξεοπςεδεμεξξο. 3.2.1. σχρϊψ πςοηςανν ξα ζοςτςαξε ι ναλςοασσενβμεςε ζοςνατ χωϊοχα ρχμρετσρ σταξδαςτξων δμρ χσεθ πςοηςανν, ξαπισαξξωθ ξα ρϊωλε ζοςτςαξ σν. ότι σταξδαςτξωε σοημαϋεξιρ λασαΰτσρ πεςεδαώι υπςαχμεξιρ, οβνεξα δαξξωνι, ςασπςεδεμεξιρ πανρτι ι ισπομψϊοχαξιρ ςεηιστςοχ. ισπομψϊοχαξιε ότιθ σοημα- ϋεξικ ποϊχομρετ πισατψ πςοηςαννω ξα ρϊωλε ναλςοασσενβμες, λοτοςωε νοφξο βυδετ χωϊωχατψ ιϊ πςοηςανν, ξαπισαξξωθ ξα - 24 - ρϊωλε ζοςτςαξ σν. πεςεδαώα υπςαχμεξιρ ποδπςοηςαννε ιϊ SYSLIB.OBJ πςοιϊ- χοδιτσρ πο σμεδυΰύεκ ιξστςυλγιι: JSR PC,SUBR χ ςεηιστςε R5 υλαϊωχαετσρ αδςεσ σπισλα αςηυνεξτοχ, πεςχωκ όμενεξτ λοτοςοηο ϊαδαετ λομιώεστχο αςηυνεξτοχ χωϊο- χα, χτοςοκ - αδςεσ πεςχοηο αςηυνεξτα, τςετικ - αδςεσ χτοςο- ηο αςηυνεξτα ι τ.δ. (ςισ. 2). ---------------------------- R5 => I 0 I λομιώεστχο I I I αςηυνεξτοχ I I--------------------------I I αδςεσ 1 αςηυνεξτα I I--------------------------I I αδςεσ 2 αςηυνεξτα I I--------------------------I I . . . I I--------------------------I I αδςεσ N αςηυνεξτα I ---------------------------- ςισ. 2 πςοπυύεξξωκ αςηυνεξτ χ οπεςατοςε CALL δομφεξ υλαϊω- χατψσρ ποδςρδ ιδυύινι ϊαπρτωνι, ξαπςινες: CALL SUBR(X,,Y) χ σπισλε αςηυνεξτοχ πςοπυύεξξωε αςηυνεξτω χωϊοχα πομυ- ώαΰτ ϊξαώεξιε ςαχξοε "-1". δμρ πεςεδαώι υπςαχμεξιρ ισπομψϊυετσρ ςεηιστς PC, α δμρ πεςεδαώι αςηυνεξτοχ χωϊοχα - ςεηιστς R5. χ ζοςτςαξε χωϊω- χαΰύαρ πςοηςαννα αχτονατιώεσλι σοθςαξρετ ςεηιστςω. ινρ ποδπςοηςαννω δομφξο βωτψ οβ'ρχμεξο ημοβαμψξων. πςινεώαξιε. χωϊωχαεναρ ποδπςοηςαννα ξε δομφξα νοδιζι- γιςοχατψ σπισολ αςηυνεξτοχ. χοϊχςατ υπςαχμεξιρ χ χωϊωχαΰύυΰ πςοηςαννυ οσυύεστχ- μρετσρ πο ιξστςυλγιι "RTS PC". 3.2.2. χωϊοχ ποδπςοηςανν ξα ζοςτςαξε ιϊ πςοηςανν ξα ρϊωλε ναλςοασσενβμες εσμι τςεβυετσρ χωϊχατψ ζοςτςαξοχσλυΰ ποδπςοηςαννυ ιϊ πςοηςαννω ξα ρϊωλε ναλςοασσενβμες, ξυφξο σοϊδατψ ζιλτιχξυΰ ηομοχξυΰ πςοηςαννυ, ξαπςινες: - 25 - PROGRAMM FORINT CALL CALMAC STOP END CALMAC - ινρ πςοηςαννω ξα ναλςοασσενβμεςε, λοτοςαρ νοφετ χωϊωχατψ ποδπςοηςαννω ξα ζοςτςαξε ι ασσενβμεςε. σοϊδαξιε ζιλτιχξοκ ηομοχξοκ πςοηςαννω ξεοβθοδινο, ταλ λαλ πςι ϊαηςυϊλε πςοηςαννω πςοισθοδιτ ιξιγιαμιϊαγιρ οβμασ- τεκ πανρτι ι ρώεελ δαξξωθ, ξεοβθοδινωθ δμρ ςαβοτω ισπομξρΰ- ύεκ σιστενω ζοςτςαξα (OTS). σμεδυΰύαρ πςοηςαννα CALMAC χωϊωχαετ ποδπςοηςαννυ MAXMIN, ξαπισαξξυΰ ξα ζοςτςαξε. .TITLE CALMAC .GLOBL MAXMIN CALMAC:: MOV #ARGBLK,R5 ; υσταξ. R5 ξα βμολ αςη. JSR PC,MAXMIN ; χωϊοχ MAXMIN RTS PC I: .WORD 28. ; ϊξαώ. πεςχοηο αςη. J: .WORD 78. ; ϊξαώ. χτοςοηο αςη. ARGBLK: .WORD 2 ; ώισμο αςηυνεξτοχ .WORD I ; αδςεσ πεςχοηο αςη. .WORD J ; αδςεσ χτοςοηο αςη. .END βμολ αςηυνεξτοχ ξεοβθοδινο ςαϊνεύατψ χ στελε ιμι χ οτδεμψξοκ οβμαστι χ πςοηςαννε ξα ασσενβμεςε. πεςεδ χωϊοχον ποδπςοηςαννω ξα ζοςτςαξε ιξστςυλγιεκ "JSR PC,νAXMIN" R5 δομφεξ υλαϊωχατψ ξα χεςθυϋλυ στελα ιμι ξα ξαώαμο βμολα αςηυνεξτοχ. χ πςεδωδυύεκ πςοηςαννε βμολ αςηυνεξτοχ ςαϊνεύεξ χ οβμαστι πςοηςαννω. σμεδυΰύαρ πςοηςαννα STAKEM χωπομξρετ τεφε οπεςαγιι, ώτο ι πςοηςαννα CALMAC, ξο αςηυνεξτω ςαϊνε- ύαετ χ στελε. .TITLE STAKEM .GLOBL MAXMIN, STAKEM STAKEM: MOV #J, -(SP) MOV #I, -(SP) MOV #2, -(SP) MOV SP, R5 JSR PC, MAXMIN ADD #6, SP RTS PC I: .WORD 28. J: .WORD 78. .END πςι ςαϊνεύεξιι αςηυνεξτοχ χ στελε, ξεοβθοδινο πεςεδ χωπομξεξιεν ιξστςυλγιι "RTS PC" χοσσταξοχιτψ υλαϊατεμψ στε- λα. πεςεδ χωϊοχον πςοηςαννω ξα ζοςτςαξε ξεοβθοδινο σοθςα- ξρτψ χσε ισπομψϊυενωε ςεηιστςω, τ.λ. ξε ιϊχεστξο λαλιε ςεηιστςω ισπομψϊυετ πςοηςαννα. σοδεςφινοε υλαϊατεμρ στελα ποσμε χωϊοχα οσταετσρ ξειϊνεξξων. - 26 - ινρ ποδπςοηςαννω ξα ζοςτςαξε, λοτοςυΰ χωϊωχαετ πςοη- ςαννα ξα MAλςοασσενβμεςε δομφξο βωτψ οβ'ρχμεξο ημοβαμψξων. χοϊχςατ χ πςοηςαννυ ξα ναλςοασσενβμεςε πςοισθοδιτ πο οπεςα- τοςυ RETURN. σμεδυΰύαρ ποδπςοηςαννα ξαπισαξα ξα ρϊωλε ζοςτ- ςαξ σν. SUBROUTINE MAXMIN (IN1,IN2) INTEGER BIG, SMALL IF (IN1. LT. IN2) GOTO 10 BIG=IN1 SMALL=IN2 5 TYPE 20, BIG TYPE 30, SMALL RETURN 10 BIG=IN2 SMALL=IN1 GO TO 5 20 FORMAT ('βομψϋεε ώισμο ςαχξο:',I2) 30 FORMAT ('νεξψϋεε ώισμο ςαχξο:',I2) END ποσμε ασσενβμιςοχαξιρ ι λονποξοχλι ϊαδαξιρ, ισπομψϊυρ πςοηςαννυ CALMAC ιμι STAKEM, σμεδυετ ϊαπυστιτψ εηο. πςοη- ςαννα χωδαετ σμεδυΰύιε σοοβύεξιρ: βομψϋεε ώισμο ςαχξο:78 νεξψϋεε ώισμο ςαχξο:28 STOP -- 3.2.3. οβςαύεξιε λ SYSLIB.OBJ ιϊ πςοηςανν ξα ρϊωλε ναλςοασσενβμες χ σμεδυΰύεν πςινεςε ζυξλγιρ JMUL ιϊ βιβμιοτελι SYSLIB χωϊωχαετσρ πςοηςαννοκ, ξαπισαξξοκ ξα ρϊωλε ναλςοασσενβμες. πςινες. - 27 - .GLOBL JMUL . . . MOV #LIST,R5 ;ϊαξεσεξιε αδςεσα παςανετςοχ JSR PC,JMUL ;οβςαύεξιε λ ζυξλγιι CMP #-2,R0 ;πςοχεςλα οϋιβλι BEQ ERROR . . . LIST: .WORD 3 ;βμολ παςανετςοχ .WORD OPR1 .WORD OPR2 .WORD RESULT OPR1: .WORD 100,0 ;νξοφινοε OPR2: .WORD 10,10 ;νξοφιτεμψ RESULT: .BLKW 2 ;ςεϊυμψτατ .END σμεδυΰύιε ποδπςοηςαννω ι ζυξλγιι ιϊ SYSLIB.OBJ νοηυτ ισπομψϊοχατψσρ τομψλο σ πςοηςαννανι ξα ζοςτςαξε: GETSTR IQSET IASIGN IRCVDF ICDFN IREADF IFETCH ISCHED IFREEC ISDATF IGETC ISPFNF IGETSP ITIMER ILUN IWRITF INTSET PUTSTR SECNDS πςοηςαννω πομψϊοχατεμρ, ξαπισαξξωε ξα ναλςοασσενβμεςε ι χωϊωχαΰύιε ποδπςοηςαννω ιϊ SYSLIB.OBJ, δομφξω σοθςαξρτψ σοδεςφινοε μΰβωθ τςεβυΰύιθσρ ςεηιστςοχ δο χωϊοχα ποδπςοη- ςαννω ιϊ SYSLIB.OBJ ι χοσσταξαχμιχατψ ιθ ποσμε χωθοδα ιϊ ποδπςοηςαννω. ζυξλγιι πονεύαΰτ χ ςεηιστςω εδιξστχεξξωκ ςεϊυμψτατ. ςασπςεδεμεξιε ςεηιστςοχ δμρ πονεύεξιρ ςαϊμιώξωθ τιποχ πεςε- νεξξωθ σμεδυΰύεε: - ςεϊυμψτατω ζυξλγικ γεμοηο ι μοηιώεσλοηο τιποχ ϊαπισωχαΰτσρ χ ςεηιστς R0; - ςεϊυμψτατω ζυξλγικ 32-ςαϊςρδξοηο γεμοηο ι μοηιώεσ- λοηο τιποχ ϊαπισωχαΰτσρ χ ςεηιστς R0 (νμαδϋαρ ώαστψ) ι ςεηιστς R1 (σταςϋαρ ώαστψ); - ςεϊυμψτατω ζυξλγικ χεύεστχεξξοηο τιπα ϊαπισωχαΰτσρ χ ςεηιστς R0 (σταςϋαρ ώαστψ) ι χ ςεηιστς R1 (νμαδ- ϋαρ ώαστψ); - ςεϊυμψτατω ζυξλγικ σ υδχοεξξοκ τοώξοστψΰ - χ ςεηιστςω R0-R3, σαναρ νμαδϋαρ ώαστψ ςεϊυμψτατα ϊαπισωχαετσρ χ R3; - ςεϊυμψτατω ζυξλγικ λονπμελσξοηο τιπα - χ ςεηιστςω R0-R3: χ ςεηιστς R0 - σταςϋαρ χεύεστχεξξαρ ώαστψ ςεϊυμψτατα; χ ςεηιστς R1 - νμαδϋαρ χεύεστχεξξαρ ώαστψ ςεϊυμψτατα; χ ςεηιστς R2 - σταςϋαρ νξιναρ ώαστψ ςεϊυμψτατα; χ ςεηιστς R3 - νμαδϋαρ νξιναρ ώαστψ ςεϊυμψτατα. - 28 - πςινεώαξιε. ςεϊυμψτατω ζυξλγικ χεύεστχεξξοηο τιπα ϊαπισωχαΰτσρ χ υξιχεςσαμψξωε ςεηιστςω γεξτςαμψξοηο πςογεσ- σοςα, α ξε χ ςεηιστςω πςογεσσοςα σ πμαχαΰύεκ ϊαπρτοκ. ποδπ- ςοηςαννω ξα ρϊωλε ναλςοασσενβμεςα, ισπομψϊυΰύιε ότοτ πςο- γεσσος, δομφξω σοθςαξρτψ ι χοσσταξαχμιχατψ εηο ςεηιστς σοσ- τορξιρ. USR, εσμι οξα ξε ςεϊιδεξτξα, πονεύαετσρ πςι σχοπιξηε χ οβμαστψ πανρτι, σνεφξυΰ σο στελον (χ στοςοξυ βομψϋιθ αδςε- σοχ) ι ϊαξιναετ 2 Kσμοχ. χ ότυ ϊοξυ ξε δομφξω πονεύατψσρ ποδπςοηςαννω οβςαβοτλι πςεςωχαξικ, ποδπςοηςαννω ϊαχεςϋεξιρ, ιθ δαξξωε. πςούε χσεηο πςοχεςιτψ χωπομξεξιε ότοηο τςεβοχα- ξιρ πυτεν πςοχεςλι λαςτω ϊαηςυϊλι, ώτοβω υβεδιτψσρ, ώτο USR ξε πεςελςωχαετ πςι σχοπιξηε ποδπςοηςαννυ ξα ρϊωλε ναλςοασ- σενβμεςα ιμι ποδπςοηςαννυ ϊαχεςϋεξιρ ξα ρϊωλε ζοςτςαξ σν. χ πςοτιχξον σμυώαε ξεοβθοδινο ιϊνεξιτψ ποςρδολ οβ'ελτξωθ νοδυμεκ ι βιβμιοτεώξωθ ποδπςοηςανν. ώτοβω σξρτψ ότι οηςαξι- ώεξιρ, σμεδυετ σδεματψ USR ςεϊιδεξτξοκ. 3.2.4. χωϊοχ ποδπςοηςανν ξα ρϊωλε ναλςοασσενβμες ιϊ πςοηςανν ξα ρϊωλε ζοςτςαξ σν πςοηςαννω ξα ζοςτςαξε νοηυτ χωϊωχατψ ποδπςοηςαννω ξα ναλςοασσενβμεςε, ξο ξεοβθοδινο σμεδοχατψ οπςεδεμεξξων πςα- χιμαν. ξαπςινες, πςοηςαννα INIARR ρχμρετσρ ποδπςοηςαννοκ ξα ναλςοασσενβμεςε, λοτοςαρ νοφετ βωτψ χωϊχαξα ιϊ πςοηςαννω ξα ρϊωλε ζοςτςαξ. πςινες. .TITLE INIARR .GLOBL INIARR INIARR: TST (R5)+ ; πςοπυστιτψ σώετώιλ ; αςηυνεξτοχ νOV (R5)+,R2 ; αδςεσ νασσιχα χ R2 νOV @(R5)+,R1 ; "IVAL" χ R1 νOV @(R5)+,R0 ; σώετώιλ χ R0 BLE RETURN ; KOξEγ, εσμι σώετώιλ <= 0 1$: νοV R1,(R2)+ ; ιξιγιαμιϊιςοχατψ νασσιχ DEC R0 ; υνεξψϋιτψ σώετώιλ BNE 1$ ; ποχτοςρτψ δο ξυμρ RETURN: RTS PC .END πςοηςαννα ξα ζοςτςαξε χωϊωχαετ πςεδωδυύυΰ ποδπςοηςαννυ σμεδυΰύιν οβςαϊον: CALL INIARR (IAR, IVAL, N) ηδε INIARR - ινρ ποδπςοηςαννω; IAR - ινρ ιξιγιαμιϊιςυενοηο νασσιχα; - 29 - IVAL - χεμιώιξα, ιξιγιαμιϊιςυΰύαρ νασσιχ; N - ώισμο ιξιγιαμιϊιςυενωθ όμενεξτοχ. ότα πςοηςαννα ιμμΰστςιςυετ πςαχιμα σοσταχμεξιρ ποδπςοηςανν ξα ρϊωλε ναλςοασσενβμεςα. ινρ ποδπςοηςαννω οβ'ρχμρετσρ ημο- βαμψξων. ςεηιστς R5 ισπομψϊυετσρ δμρ πεςεδαώι αςηυνεξτοχ. ταλιν οβςαϊον χ πςοηςαννε INIARR, βμολ αςηυνεξτοχ πςεδσταχμεξ λαλ πολαϊαξο ξα ςισ. 3. ---------------- R5 => ! O ! 3 ! ---------------- ! αδςεσ IAR ! ---------------- ! αδςεσ IVAL ! ---------------- ! αδςεσ N ! ---------------- ςισ. 3 ςεηιστςω οτ R0 δο R4 νοηυτ σχοβοδξο ισπομψϊοχατψσρ, ποσλομψλυ χωϊωχαΰύαρ πςοηςαννα ιθ σοθςαξιμα. λοηδα αςηυνεξ- τω πομυώεξω, νοφξο ταλφε ισπομψϊοχατψ R5. πςι ϊαχεςϋεξιι ποδπςοηςαννα χοϊχςαύαετ υπςαχμεξιε χ χωϊωχαΰύυΰ πςοηςαννυ ώεςεϊ RTS PC. σμεδυΰύαρ ζοςτςαξοχσλαρ πςοηςαννα σ ινεξεν DOFOR χωϊω- χαετ ποδπςοηςαννυ INIARR. PROGRAM DOFOR INTEGER*2 ARRAY DIMENSION ARRAY(2) N=2 DO 20 IVAL = 1, 3 CALL INIARR (ARRAY, IVAL, N) WRITE (5,100) (ARRAY(I), I=1,N) 20 CONTINUE 100 FORMAT (I3) STOP END ϊαπυστιχ ϊαδαξιε, ποσμε τςαξσμργιι ι λονποξοχλι οβειθ πςοηςανν, ιξιγιαμιϊιςοχαξξωκ νασσιχ βυδετ χωχεδεξ ξα τεςνι- ξαμ λαλ πολαϊαξο: 1 1 2 2 3 3 STOP -- - 30 - 3.2.5. ϊαπυσλ πςοηςαννω ξα ζοςτςαξε χ οπεςατιχξο/ζοξοχον ςεφινε πςοηςαννω ξα ζοςτςαξε νοηυτ χωπομξρτψσρ λαλ οπεςατιχ- ξωε, ζοξοχωε ιμι σιστενξωε ϊαδαξιρ, ώτο ποϊχομρετ όζζελτιχ- ξο ισπομψϊοχατψ χςενρ γεξτςαμψξοηο πςογεσσοςα. οσξοχξωε ϋαηι δμρ ϊαπυσλα πςοηςανν ξα ζοςτςαξε, λοτοςωε ισπομψϊυΰτ FB/XM-νοξιτοςω, οπισαξω ξιφε. πςεφδε ώεν ϊαπυστιτψ οπεςατιχξυΰ πςοηςαννυ, ξεοβθοδινο ϊαηςυϊιτψ δςακχεςω υστςοκστχ, τςεβυΰύιεσρ δμρ οπεςατιχξοηο ϊαδαξιρ. δςακχεςω υστςοκστχ ςαϊνεύαΰτσρ χ πανρτι νεφδυ RMON ι USR ι KMON, ώτο πςιχοδιτ λ πεςενεύεξιΰ USR ι KMON χξιϊ πο οπεςατιχξοκ πανρτι. πο λοναξδε FRUN οπεςατιχξοε ϊαδαξιε ϊαηςυφαετσρ χ πανρτψ νεφδυ δςακχεςανι υστςοκστχ ι USR, ώτο πςιχεδετ λ πεςενεύεξιΰ USR ι KMON δαμψϋε χξιϊ πο πανρτι. πςι ϊαπυσλε πςοηςαννω ξα ζοςτςαξε χ οπεςατιχξον ςαϊδεμε ξεοβθοδινο χωδεμρτψ ςαβοώεε πςοστςαξστχο σ πονούψΰ λμΰώα /BUFFER:N χ λοναξδε FRUN (δμρ σιστενξοηο ϊαδαξιρ χ λοναξδε SRUN), α ταλφε υδοστοχεςιτψσρ, ώτο οξα ινεετ δοστατοώξο νεστα δμρ στελα. ςαϊνες στελα νοφξο υλαϊατψ χο χςενρ λονποξοχλι. ζοξοχαρ οβμαστψ δομφξα ινετψ δμιξυ ξε νεξεε 4 λσμοχ δμρ ςαϊνεύεξιρ USR ι KMON. δο ϊαπυσλα ζοξοχοηο ϊαδαξιρ ιν ρχμρετσρ KMON. ώτοβω σχοπιξη USR πςοισθοδιμ πςαχιμψξο, ξεοβθοδινο ινετψ πςοστςαξστχο χ 2 λσμοχ χ ζοξοχον ςαϊδεμε ι 2 λσμοχ χ οπεςατιχξον ςαϊδεμε. οπεςατιχξοε (σιστενξοε) ϊαδαξιε ςεϊες- χιςυετ 2 λσμοχ πανρτι, δαφε εσμι λοξεώξωκ οβ'εν ϊαδαξιρ νεξψϋε 2 λσμοχ, α ζοξοχωκ ςαϊδεμ ινεετ νιξιναμψξωκ οβ'εν 4 λσμοχ δμρ ισπομψϊοχαξιρ USR ι KMON. εσμι πςοηςαννα ξα ζοςτςαξε σλονποξοχαξα λαλ οπεςατιχ- ξοε (σιστενξοε) ϊαδαξιε, ϊαπυσλαενοε λοναξδοκ νοξιτοςα FRUN (SRUN), ςαϊνες δοπομξιτεμψξοκ οπεςατιχξοκ πανρτι, ξεοβθοδι- νοκ δμρ χωπομξεξιρ ότοηο ϊαδαξιρ, ςασώιτωχαετσρ πο ζοςνυμε: X = 0.5*(440+(33*N)+(R-136)+A*512) (1.1) ηδε θ - ςαϊνες δοπομξιτεμψξοκ ςαβοώεκ οβμαστι δμρ οπεςα- τιχξοηο ϊαδαξιρ; N - ναλσιναμψξοε ώισμο λαξαμοχ χχοδα/χωχοδα; οπςεδε- μρετσρ λμΰώον /UNITS:N πςι τςαξσμργιι πςοηςαννω; πο υνομώαξιΰ N=6; R - ναλσιναμψξαρ δμιξα βυζεςα δμρ ζοςνιςοχαξιρ ϊαπισεκ ζοςνατξοηο χχοδα/χωχοδα; οπςεδεμρετσρ λμΰώον /RECORDS:R πςι τςαξσμργιι πςοηςαννω; πο υνομώαξιΰ R=136; A - λομιώεστχο οδξοχςενεξξο ισπομψϊυενωθ βυζεςοχ - 31 - χχοδα/χωχοδα; πςι δχοκξοκ βυζεςιϊαγιι "A" υνξο- φαετσρ ξα 2. δμρ ξελοτοςωθ ζυξλγικ σιστενξοκ οβ'ελτξοκ βιβμιοτελι ζοςνυμα δομφξα βωτψ νοδιζιγιςοχαξα. δμρ ζυξλγιι IQSET χ ζοςνυμυ ξεοβθοδινο χξεστι ποπςαχ- λυ, υώιτωχαΰύυΰ δοπομξιτεμψξοε νεστο χ πανρτι δμρ ϊαπισι όμενεξτοχ οώεςεδι (δμιξα οώεςεδι): X = θ + (10*δμιξα οώεςεδι) (1.2) δμρ ζυξλγιι ICDFN ξεοβθοδινο χξεστι χ ζοςνυμυ ποπςαχ- λυ, υώιτωχαΰύυΰ δοπομξιτεμψξοε νεστο χ πανρτι δμρ ϊαπισι ισπομψϊυενωθ λαξαμοχ: X = θ + (6*ώισμο λαξαμοχ) (1.3) δμρ ζυξλγιι INTSET ξεοβθοδινο χξεστι χ ζοςνυμυ ποπςαχ- λυ, υώιτωχαΰύυΰ δοπομξιτεμψξοε νεστο χ πανρτι δμρ ξεοβθοδι- νοηο ώισμα χωϊοχοχ INTSET, χλμΰώεξξωθ χ πςοηςαννυ: X = θ + (25*INTSET) (1.4) μΰβωε χωϊοχω σιστενξοκ οβ'ελτξοκ βιβμιοτελι SYSLIB.OBJ, χλμΰώαΰύιε χωϊοχ INTSET ι χωϊωχαΰύιε ποδπςοη- ςαννω ϊαχεςϋεξιρ, δομφξω χλμΰώατψ 64 (δεσρτιώξOE) σμοχα πμΰσ λομιώεστχο σμοχ, ξεοβθοδινωθ δμρ ςαϊνεύεξιρ χτοςοηο βυζεςα ϊαπισεκ (πο υνομώαξιΰ ξαϊξαώαετσρ 68 σμοχ). δμιξα βυζεςα ϊαπισεκ υλαϊωχαετσρ λμΰώον /R χ λοναξδξοκ στςολε τςαξσμρτοςα (λμΰώ /RECORDS λοναξδω νοξιτοςα FORTRAN). εσμι λμΰώ /R ξε ισπομψϊυετσρ, το χ ζοςνυμυ ξεοβθοδινο δοβαχιτψ 132 (δεσρτιώξOE) σμοχα: X = θ + (64+R/2) (1.5) εσμι χ νονεξτ ιξιγιαμιϊαγιι ποδπςοηςαννω ϊαχεςϋεξιρ οπεςατιχξοηο ϊαδαξιρ OTS ζοςτςαξα οβξαςυφιχαετ, ώτο πςι ϊαπυσλε πςοηςαννω πο λοναξδε FRUN (SRUN) σ λμΰώον /BUFFER ξε χωδεμεξο δοστατοώξο νεστα δμρ οπεςατιχξοηο ϊαδαξιρ, το πορχμρετσρ σοοβύεξιε: ?ERR 0, NON FORTRAN ERROR CALL ότο σοοβύεξιε πορχμρετσρ ταλφε χ σμυώαε, εσμι χ πανρτι ξεδοστατοώξο νεστα δμρ ζοξοχοηο ϊαδαξιρ ιμι εσμι ποδπςοη- ςαννα ϊαχεςϋεξιρ ιξιγιιςοχαξα ποδ υπςαχμεξιεν SJ-νοξιτοςα χο χςενρ χωπομξεξιρ δςυηοκ ποδπςοηςαννω ϊαχεςϋεξιρ. χ ποσ- μεδξεν σμυώαε χωπομξεξιε πςοηςαννω πςελςαύαετσρ. δμρ αλτι- χιϊαγιι ξεσλομψλιθ ποδπςοηςανν ϊαχεςϋεξιρ ξεοβθοδινο ισπομψϊοχατψ FB/XM/TS-νοξιτοςω. ξιφε οπισωχαετσρ πςογεδυςα ϊαπυσλα ϊαδαξικ ξα ζοςτςα- ξε, οδξοηο χ ζοξοχον ςαϊδεμε ι οδξοηο χ οπεςατιχξον ςαϊδε- με. ζοξοχοε ϊαδαξιε BACK πολαϊαξο ξιφε: - 32 - PROGRAMM BACKGROUND IMPLICIT INTEGER (0) CALL IPOKE ("44,"10000.OR.IPEEK ("44)) 100 CALL PRINT ('πςιχετ ιϊ ζοξοχοηο ςαϊδεμα') ICHAR=ITTINR () OCHAR=ITTOUR (ICHAR) GOTO 100 END ότα πςοηςαννα πεώαταετ σοοβύεξιε "πςιχετ ιϊ ζοξοχοηο ςαϊδεμα" ι βυδετ πεώατατψ σοοβύεξιε πςι λαφδον χχοδε σινχο- μα σ τεςνιξαμα. οπεςατιχξοε ϊαδαξιε FORE πολαϊαξο ξιφε: PROGRAM FOREGROUND IMPLICIT INTEGER (0) CALL IPOKE ("44, "10000. OR. IPEEK ("44)) 100 CALL PRINT ('πςιχετ ιϊ οπεςατιχξοηο ςαϊδεμα') ICHAR=ITTINR () OCHAR=ITIOUR (ICHAR) GOTO 100 END οπεςατιχξοε ϊαδαξιε σοϊδαετσρ λοναξδοκ LINK/FOREGROUND. ϊαηςυϊοώξονυ νοδυμΰ πςισχαιχαετσρ τιπ ζακ- μα .REL, ι οξ δομφεξ ϊαπυσλατψσρ λαλ χωσολοπςιοςιτετξοε ϊαδαξιε. ξαπςινες: .LINK/FOREGROUND FORE πςι χωϊοχε πςοηςαννω πο λοναξδε : .FRUN FORE χωδαετσρ σοοβύεξιε: ?ERR 62 FORTRAN START FAIL οξο υλαϊωχαετ, ώτο τςεβυετσρ χωδεμεξιε δοπομξιτεμψξοκ οβμαστι πανρτι σ πονούψΰ λμΰώα /BUFFER (σν. ζοςνυμω 1.1-1.5). ταλιν οβςαϊον ϊαδαξιε δομφξο ϊαπυσλατψσρ λοναξ- δοκ, υλαϊαξξοκ ξιφε: .FRUN FORE/BUFFER:760 ςεϊυμψτατον χωπομξεξιρ ότοκ λοναξδω βυδετ σμεδυΰύικ χωχοδ ξα τεςνιξαμ: F> πςιχετ ιϊ οπεςατιχξοηο ςαϊδεμα B> . πεώατψ F> υλαϊωχαετ ξα το, ώτο χωχοδ πςοιϊχοδιτσρ ιϊ οπεςατιχξοηο ϊαδαξιρ. ϊατεν, νοξιτος πεώαταετ B> ι τοώλυ, υλαϊωχαρ, ώτο υπςαχμεξιε χοϊχςαύεξο χ ςεφιν λοναξδ νοξιτο- ςα. λοναξδξωκ χχοδ οσταετσρ σχρϊαξξων σ ζοξοχων ϊαδαξιεν. ποσμε χχοδα: - 33 - .RUN BACK χωχοδιτσρ σοοβύεξιε ιϊ ζοξοχοηο ςαϊδεμα: πςιχετ ιϊ ζοξοχοηο ςαϊδεμα δμρ χχοδα σ τεςνιξαμα χ οπεςατιχξοε ϊαδαξιε ισπομψ- ϊυετσρ υπςαχμρΰύικ σινχομ CTRL/F. σιστενα ξαπεώαταετ F>, υλαϊωχαρ ώτο χχοδ ξαπςαχμρετσρ χ οπεςατιχξοε ϊαδαξιε. ξαπε- ώαταχ σινχομ, ξαπςινες, "Y", βυδετ χωχεδεξο σοοβύεξιε ιϊ οπεςατιχξοηο ϊαδαξιρ. F> Y πςιχετ ιϊ οπεςατιχξοηο ςαϊδεμα χχεδιτε CTRL/B δμρ χοϊχςατα χ ζοξοχωκ ςαϊδεμ ιμι CTRL/C δμρ χοϊχςατα χ ςεφιν λοναξδ νοξιτοςα. ποσμε ϊαχεςϋε- ξιρ οπεςατιχξοηο ϊαδαξιρ, δμρ χοσσταξοχμεξιρ πςοστςαξστχα χ πανρτι, ξεοβθοδινο χωηςυϊιτψ οπεςατιχξοε ϊαδαξιε ι ξεξυφξωε δςακχεςω. λονποξοχλα ι ϊαπυσλ σιστενξωθ ϊαδαξικ πςοιϊχοδιτσρ αξαμοηιώξο οπεςατιχξονυ. 3.2.6. λονποξοχλα σιστενξοκ οβ'ελτξοκ βιβμιοτελι σ πςοηςαννοκ πομψϊοχατεμρ πςι ισπομψϊοχαξιι βιβμιοτελι SYSLIB.OBJ σ πςοηςαννοκ πομψϊοχατεμρ βυδυτ λονποξοχατψσρ τομψλο ξυφξωε νοδυμι. ξαπ- ςινες: .LINK PROG πςινεώαξιε. νοφξο ξε υλαϊωχατψ χ λοναξδε ζακμ βιβμιο- τελι SYSLIB.OBJ, τ.λ. ότα βιβμιοτελα ισπομψϊυετσρ πο υνομ- ώαξιΰ. οβωώξο, σιστενξαρ βιβμιοτελα ταλ φε χλμΰώαετ χ σεβρ δςακχες ςαβοτω σ πεςελςωτιρνι ι ποδπςοηςαννω, πςεδξαϊξαώεξ- ξωε δμρ OTS ζοςτςαξA. δμρ δοβαχμεξιρ νοδυμεκ FORLIB.OBJ λ βιβμιοτελε SISLIB.OBJ ισπομψϊυκτε σμεδυΰύυΰ λοναξδυ: .LIBRARY/INSERT/REMOVE SISLIB FORLIB GLOBAL? $OVRH GLOBAL? - 34 - 4. χθοδξωε ι χωθοδξωε δαξξωε δαξξωκ ποδςαϊδεμ σοδεςφιτ οπισαξιE παςανετςοχ σιστεν- ξωθ ναλςολοναξδ, ποδπςοηςανν ι ζυξλγικ σιστενξοκ οβ'ελτξοκ βιβμιοτελι. 4.1. σιστενξαρ ναλςοβιβμιοτελα ξιφε πςιχεδεξω οσξοχξωε ποξρτιρ, ισπομψϊυενωε πςι οπι- σαξιι ναλςολοναξδ σιστενξοκ ναλςοβιβμιοτελι. 4.1.1. ξονες λαξαμα ξονες λαξαμα - ότο ώισμοχοκ μοηιώεσλικ ιδεξτιζιλατος ζακμα ιμι ξαβοςα δαξξωθ, ισπομψϊυενωκ νοξιτοςανι. οξ πςιξι- ναετ ϊξαώεξιε οτ 0 δο 377 (χοσψνεςιώξοε). πομψϊοχατεμψ δομ- φεξ σαν υσταξοχιτψ σχρϊψ ξονεςα λαξαμα σ ζακμον ιμι υστ- ςοκστχον σ πονούψΰ σιστενξωθ ναλςολοναξδ. ποσμε υσταξοχμε- ξιρ σχρϊι δμρ σσωμλι ξα ζακμ ιμι υστςοκστχο, δοστατοώξο υλαϊατψ ξονες λαξαμα. σιστενα πο υνομώαξιΰ πςεδοσταχμρετ πομψϊοχατεμΰ 16 λαξαμοχ. ώτοβω πομυώιτψ βομψϋεε λομιώεστχο λαξαμοχ, ξεοβθο- δινο ισπομψϊοχατψ σοοτχετστχυΰύιε σιστενξωε ναλςολοναξδω. 4.1.2. βμολ υστςοκστχα βμολ υστςοκστχα - ώετωςεθσμοχξαρ ταβμιγα, σοδεςφαύαρ ιξζοςναγιΰ δμρ σιστενξοκ ναλςολοναξδω οβ ινεξι υστςοκστχα, ινεξι ι τιπε ζακμα χ λοδε .RαD50. πεςχοε σμοχο σοδεςφιτ ζιϊιώεσλοε ιμι μοηιώεσλοε ινρ υστςοκστχα. χτοςοε ι τςετψε - σοδεςφατ ινρ ζακμα (ξε βομεε 6 σινχομοχ), ώετχεςτοε - τιπ ζακμα. ινεξα ξε δομφξω σοδεςφατψ τοώελ ι δχοετοώικ, ρχμρΰύιθ- σρ ςαϊδεμιτεμρνι χ λοναξδξοκ στςολε. ξαπςινες, βμολ υστςοκστχα, πςεδσταχμρΰύικ ζακμ ςολαZ.νασ ξα υστςοκστχε Dλ:, νοφξο ϊαπισατψ σμεδυΰύιν οβςα- ϊον: - 35 - .RαD50 /Dλ/ .RαD50 /ςολ/ .RαD50 /αZ/ .RαD50 /MAC/ μιβο .RαD50 /Dλ ςολαZ νασ/ μιβο .DBLK DK,POKAZ,MAC ξεδοσταΰύιε σινχομω χο χτοςον σμυώαε δοπομξρΰτσρ πςο- βεμανι, α χ πεςχον ι τςετψεν νοηυτ πςοστο οπυσλατψσρ. δμρ υδοβστχα ςελονεξδυετσρ ισπομψϊοχατψ ναλςολοναξδυ .DBLK. 4.1.3. σχοπιξη USR χ ϊαχισινοστι οτ τοηο, τςεβυΰτ ιμι ξετ σιστενξωε ναλ- ςολοναξδω πςισυτστχιρ χ πανρτι USR, οξι δεμρτσρ ξα δχα σοοτχετστχυΰύιθ τιπα. ξελοτοςωε σιστενξωε ναλςολοναξδω, ισπομψϊυΰύιε USR, τςεβυΰτ σώιτωχαξιρ ξοχοκ λοπιι USR. ότο σχρϊαξο σ τεν, ώτο ποδπςοηςαννω, χωπομξρΰύιε ότι ναλςολοναξδω, ςασπομοφεξω χ οβμαστι βυζεςα USR, λοτοςωκ ισπομψϊυετσρ δμρ θςαξεξιρ οδξο- ηο σεηνεξτα λαταμοηα. ταλιν οβςαϊον, εσμι USR χ πανρτι, το σιστενα σώιταετ, ώτο βυζες USR υφε νοδιζιγιςοχαξ, ι ποότο- νυ, δμρ χωπομξεξιρ ποδοβξωθ σιστενξωθ ναλςολοναξδ, πςοιϊχο- διτσρ σώιτωχαξιε ξοχοκ λοπιι USR. χ ςαϊμιώξωθ τιπαθ νοξιτοςα ισπομψϊοχαξιε USR δμρ οδξοκ ι τοκ φε ναλςολοναξδω νοφετ οτμιώατψσρ. σμεδυετ οτνετιτψ, ώτο ςαβοτα ναλςολοναξδω .CLOSE σ υστςοκστχανι ξεζακμοχοκ στςυλτυςω (υστςοκστχο πεώατι, τες- νιξαμ ι τ.δ.) οβθοδιτσρ βεϊ ισπομψϊοχαξιρ USR δμρ μΰβοηο τιπα νοξιτοςα. USR ξε ρχμρετσρ ςεεξτεςαβεμψξοκ πςοηςαννοκ ι ποότονυ ξε νοφετ χωπομξρτψ σιστενξωε ναλςολοναξδω βομεε ώεν οδξοκ πςοηςαννω πομψϊοχατεμρ. σμεδοχατεμψξο, λοηδα USR ισπομψ- ϊυετσρ οδξοκ πςοηςαννοκ, το μΰβαρ δςυηαρ, τςεβυΰύαρ USR, σταχιτσρ χ οώεςεδψ. εσμι χ πςοηςαννε χστςετιμασψ ναλςολοναξδα, δμρ χωπομ- ξεξιρ λοτοςοκ ξεοβθοδινα USR, το οβμαστψ πςοηςαννω, χ λοτο- ςυΰ δομφξα βωτψ ϊαηςυφεξα USR, σοθςαξρετσρ σιστενοκ χ ζακμε SWAP.SYS ξα σιστενξον υστςοκστχε, α USR ϊαηςυφαετσρ χ οπε- ςατιχξυΰ πανρτψ. ϊαχεςϋιχ χωπομξεξιε τςεβυενοκ οπεςαγιι, σιστενα χοσσταξαχμιχαετ πςοηςαννυ ιϊ ζακμα SWAP.SYS. πςι ςαβοτε θν/TS-νοξιτοςοχ USR χσεηδα ςεϊιδεξτξα. οβωώξο σχοπιξη πςοισθοδιτ πο υνομώαξιΰ, ξο νοφξο σχεσ- τι λομιώεστχο ξεοβθοδινωθ οβνεξοχ λ νιξινυνυ, εσμι πςι ξαπισαξιι πςοηςανν υώιτωχατψ σμεδυΰύεε: - 36 - - εσμι χ ζοξοχον ϊαδαξιι ναλςολοναξδα .Sεττος υλαϊω- χαετ ξα αδςεσ, πςεχωϋαΰύικ ξιφξικ αδςεσ οβωώξοηο ςαϊνεύεξιρ USR, το πςι χωϊοχε USR ποτςεβυετσρ οπε- ςαγιρ οβνεξα (σχοπιξη); - εσμι αδςεσ ϊαηςυϊλι USR χ ρώεκλε 46 υσταξοχμεξ πομψϊοχατεμεν χο χςενρ τςαξσμργιι ιμι πςι χωπομξε- ξιι πςοηςαννω, το οξ ισπομψϊυετσρ νοξιτοςον χ λαώεστχε χοϊνοφξοηο νεστα ϊαηςυϊλι USR. εσμι φε χ ρώεκλε 46 σοδεςφιτσρ 0, USR ϊαηςυφαετσρ χ οβωώξυΰ οβμαστψ; - σνεύεξιε 374 χ ςεϊιδεξτξοκ ώαστι νοξιτοςα σοδεςφιτ ςαϊνες USR χ βακταθ ι δομφξο ισπομψϊοχατψσρ πςοη- ςαννοκ δμρ διξανιώεσλοηο οπςεδεμεξιρ ςαϊνεςα οβμαστι, ξεοβθοδινοκ δμρ σχοπιξηα. πςινεώαξιρ: 1. οπεςαγιρ σχοπιξηα τςεβυετ οτξοσιτεμψξο βομψϋιθ ϊατ- ςατ χςενεξι, ποότονυ εε ξεοβθοδινο πο χοϊνοφξοστι ιϊβεηατψ. 2. σοδεςφινοε ρώεκλι 46 ιηξοςιςυετσρ, εσμι ξε ξυφεξ σχοπιξη. 3. χ οπεςατιχξον ςεφινε, εσμι βυδετ πςοιϊθοδιτψ σχο- πιξη USR, ξεοβθοδινο πονεστιτψ ϊξαώεξιε αδςεσα ϊαηςυϊλι USR χ ρώεκλυ 46. πςι οτσυτστχιι σοοτχετστχυΰύεκ οβμαστι ι ξεοβ- θοδινοστι σχοπιξηα USR πςοιϊοκδετ ξευστςαξιναρ οϋιβλα. οϋιβλι ξε βυδετ, εσμι USR ςεϊιδεξτξα (ςεϊιδεξτξοστψ USR οβεσπεώιχαετσρ λοναξδοκ νοξιτοςα "Sετ USR NοSWας"). 4. RM/SJ-νοξιτοςω ξε λοξτςομιςυΰτ πςαχιμψξοστψ αδςεσα σχοπιξηα χ ρώεκλε 46. εσμι οβμαστψ σχοπιξηα πεςελςωχαετ ςεϊιδεξτξωκ νοξιτος, σιστενα ςαϊςυϋαετσρ. 5. ξεοβθοδινο σμεδιτψ, ώτοβω USR ξε ϊαηςυφαμασψ χ πςοηςαννξωκ στελ, χ βμολι παςανετςοχ οβςαύεξιρ λ USR, χ βυζεςω χχοδα/χωχοδα, χ δςακχεςω υστςοκστχ, χ πςοηςαννω ϊαχεςϋεξιρ, ισπομψϊυενωε πςι χωϊοχαθ USR. 4.1.4. ποδπςοηςαννω ϊαχεςϋεξιρ ποδπςοηςαννω ϊαχεςϋεξιρ - ξαπισαξξωε πομψϊοχατεμεν πςοηςαννω, χωπομξρενωε πο ολοξώαξιι χχοδα/χωχοδα. πςι χθοδε χ ξεε R0 σοδεςφιτ σμοχο σοστορξιρ λαξαμα, R1 - ξονες λαξα- μα, σ λοτοςων σχρϊαξα οπεςαγιρ. βιτ "σ" σβςοϋεξ. πςι ςαβοτε FB/XM/TS-νοξιτοςοχ ποδπςοηςαννω ϊαχεςϋεξιρ δςυη δςυηα ξε πςεςωχαΰτ, α υσταξαχμιχαΰτσρ χ οώεςεδψ. πςι ςαβοτε RM/SJ-νοξιτοςοχ - πςεςωχαΰτ. πςι σοϊδαξιι ποδπςοηςανν ϊαχεςϋεξιρ ξεοβθοδινο σοβμΰ- δατψ σμεδυΰύιε οηςαξιώεξιρ: - ιν ϊαπςεύαετσρ χωδαχατψ ϊαπςοσω, τςεβυΰύιε σχοπιξη USR, ιξαώε χοϊξιλξετ ξευστςαξιναρ οϋιβλα νοξιτοςα; - οξι ξε δομφξω ςαϊνεύατψσρ χ πανρτι, πςεδξαϊξαώεξ- ξοκ δμρ USR; - 37 - - χωθοδ ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ δομφεξ οσυύεστχ- μρτψσρ ποσςεδστχον λοναξδω RτS ςσ; - εσμι ισπομψϊυΰτσρ ςεηιστςω, λςονε R0 ι R1, ιθ σοδεςφινοε δομφξο χ ξαώαμε ποδπςοηςαννω ϊαπονι- ξατψσρ, α χ λοξγε χοσσταξαχμιχατψσρ. 4.2. σιστενξαρ οβ'ελτξαρ βιβμιοτελα ξιφε πςιχεδεξω οσξοχξωε σιστενξωε ποξρτιρ, σχρϊαξξωε σ ςαβοτοκ ποδπςοηςανν ι ζυξλγικ σιστενξοκ οβ'ελτξοκ βιβμιοτε- λι, ι σοημαϋεξιρ, ισπομψϊυενωε πςι χωϊοχε ότιθ ποδπςοηςανν ι ζυξλγικ. 4.2.1. ξονες λαξαμα ξονες λαξαμα ρχμρετσρ μοηιώεσλιν ιδεξτιζιλατοςον ζακμα ιμι ξαβοςα δαξξωθ, ισπομψϊυενωθ χ ρϊωλε ζοςτςαξ σν. ταλιν οβςαϊον, λοηδα πομψϊοχατεμψ οτλςωχαετ ζακμ ξα υστςοκστχε, οξ πςισχαιχαετ ξονες λαξαμα ότονυ ζακμυ. λ οτλςωτονυ ζακμυ νοφξο οβςαύατψσρ ώεςεϊ πςισχοεξξωκ ξονες λαξαμα. OTS ζοςτςαξA ινεετ 16 (δεσρτιώξοε) λαξαμοχ δοστυπξωθ δμρ ισπομψϊοχαξιρ. ζυξλγιρ IGETC ϊαλςεπμρετ ξονες λαξαμα ϊα πςοηςαννοκ ι πονεώαετ χ σιστενε χχοδα/χωχοδα, ώτο λαξαμ ισπομψϊυετσρ. πςι οσχοβοφδεξιι λαξαμα λαξαμ ϊαλςωχαετσρ ποδπςοηςαννοκ CLOSEC, ICLOSE ιμι PURGE. λαξαμ οσχοβοφδαετσρ ι χοϊχςαύαετσρ B σιστενυ χχοδα/χωχοδα ζοςτςαξα χωϊοχον IFREEC. ζυξλγιρ ISDFN πςεδοσταχμρετ πομψϊοχατεμΰ δο 255 (δεσρ- τιώξοε) λαξαμοχ. οξα χωδεμρετ πανρτψ χ οβμαστι ϊαδαξιρ δμρ ςαϊνεύεξιρ ιξζοςναγιι ο στατυσε δοπομξιτεμψξωθ λαξαμοχ. ζυξλγιΰ ICDFN φεματεμψξο ισπομψϊοχατψ χο χςενρ ιξιγιαγιι ϊαδαξιρ. σιστενα χχοδα/χωχοδα ζοςτςαξα ισπομψϊυετ λαξαμω οτ 0 δο 15 (δεσρτιώξοε), ποότονυ λαξαμω σ βομψϋινι ξονεςανι νοφξο ισπομψϊοχατψ βεϊ οηςαξιώεξικ. λαξαμω δομφξω χωδεμρτψσρ χ οσξοχξοκ πςοηςαννε ιμι χ εε ποδπςοηςανναθ. ξε ςελονεξδυεσρ χωδεμρτψ λαξαμω χ πςοηςαν- ναθ, λοτοςωε βωμι αλτιχιϊιςοχαξω χ ςεϊυμψτατε ϊαχεςϋεξιρ χχοδα/χωχοδα ιμι ζυξλγιρνι ISCHED ιμι ITIMER. - 38 - 4.2.2. βμολ υστςοκστχα βμολον υστςοκστχα ρχμρετσρ ώετωςεθσμοχξωκ βμολ ιξζος- ναγιι χ λοδε RAD50, λοτοςωκ οπςεδεμρετ ζιϊιώεσλοε υστςοκστ- χο ι ινρ ζακμα. χ ζοςτςαξε νοφξο ισπομψϊοχατψ τςι ςαϊμιώξωθ νετοδα ϊαδαξιρ ότοηο βμολα: 1) νοφξο ισπομψϊοχατψ οπεςατοςω DIMENSION ι DATA. DIMENSION IFILE (4) DATA IFILE /3RSY, 3RFIL, 3RE, 3RXYZ/ 2) νοφξο πεςεχεστι δοστυπξυΰ στςολυ σινχομψξοηο οπισαξιρ ζακμα χ ζοςνατ RAD50, ισπομψϊυρ χωϊοχω SYSLIB, ταλιε λαλ IRAD50, R50ASC, ι RAD50. ξαπςινες: REAL*8 FILSPC CALL IRAD50 ( 12, 'SY FILE XYZ', FILSPC ) 3) νοφξο ισπομψϊοχατψ SYSLIB, χωϊχαχ ICSI, λοτοςαρ οβςα- ύαετσρ λ ιξτεςπςετατοςυ λοναξδξοκ στςολι (CSI) δμρ πςιενα ι ηςαννατιώεσλοηο ςαϊβοςα σταξδαςτξοκ λοναξδξοκ στςολι. 4.2.3. σχοπιξη USR χ πςοηςανναθ ξαπισαξξωθ ξα ζοςτςαξε ξεοβθοδινο υώιτω- χατψ ςαϊνεύεξιε USR. USR ϊαξιναετ 2 λσμοχ. εσμι USR ξε ςεϊιδεξτξα, το πςι χωϊοχε ποδπςοηςανν ιϊ SYSLIB, τςεβυΰύιθ USR (ταλιθ λαλ IENTER ιμι LOOKUP), ιμι λοηδα USR χωϊωχαετσρ OTS ζοςτςαξα, οξα ϊαηςυφαετσρ χ πανρτψ. OTS ζοςτςαξα ποστ- ςοεξα ταλιν οβςαϊον, ώτο USR νοφετ πςοχοδιτψ σ ξεκ σχοπιξη. ξεοβθοδινο ςαϊνεύατψ πςοηςαννω οβσμυφιχαξιρ πςεςωχαξικ ι ποδπςοηςαννω ϊαχεςϋεξιρ ταλ, ώτοβω οξι ξε πεςελςωχαμισψ πςι σχοπιξηε USR. ηςαξιγω οβμαστι σχοπιξηα οπςεδεμρΰτσρ πο λαςτε ςασπςεδεμεξιρ πανρτι, ποστςοεξξοκ λονποξοχύιλον. πςι ξεοβθοδινοστι ξυφξο ιϊνεξιτψ ποςρδολ οβ'ελτξωθ νοδυμεκ ι βιβμιοτελ χ λοναξδε λονποξοχύιλυ. 4.2.4. υπςαχμεξιε σχοπιξηον USR νοφξο υπςαχμρτψ σχοπιξηον USR, ισπομψϊυρ λοναξδω λMON: SET USR NOSWAP ι SET USR SWAP λοναξδα "SET USR NOSWAP" ϊαπςεύαετ σχοπιξη USR ι ζιλ- σιςυετ εε χ πανρτι ξιφε RMON ιμι οπεςατιχξοηο ϊαδαξιρ. - 39 - λοναξδα "SET USR SWAP" ςαϊςεϋαετ σχοπιξη USR. εσμι πςοηςαννα ξε χεμιλα ι χ πανρτι οσταετσρ 2 λσμοχ ξεισπομψϊυενοκ πανρτι, το εε νοφξο τςαξσμιςοχατψ λοναξδοκ FORTRAN/NOSWAP. ποσμε λονπOξοχλι πςι ϊαηςυϊλε πςοηςαννω USR βυδετ ποστορξξο ςεϊιδεξτξα ι ςαϊνεύεξα ξιφε οπεςατιχξοηο ςαϊδεμα ιμι RMON. εσμι λχαμιζιλατος /NOSWAP ξε βωμ υλαϊαξ, USR πεςελςωχαετ 2 λσμοχ πςοηςαννω οτ ρώεκλι 1000 (χοσψνε- ςιώξοε) δο ρώεκλι 11000 (χοσψνεςιώξοε), λοτοςωε ρχμρΰτσρ ώαστψΰ ζοςτςαξοχσλοκ πςοηςαννω ξαινεξεε χεςορτξο ξαςυϋαΰύεκ τςεβοχαξιρ σχοπιξηα USR. χο χςενρ χωπομξεξιρ ϊαδαξιρ νοφξο υπςαχμρτψ σχοπιξηον USR σ πονούψΰ ποδπςοηςανν LOCK, UNLOCK ι ITLOCK. χωϊοχ LOCK ζιλσιςυετ USR χ πανρτι, πςιλςεπμρετ εε λ ϊαπςαϋιχαΰύενυ ϊαδαξιΰ. χωϊοχ UNLOCK οσχοβοφδαετ USR ι ςαϊ- ςεϋαετ εε σχοπιξη ι ισπομψϊοχαξιε δςυηιν ϊαδαξιεν. χωϊοχ ITLOCK πςινεξρετσρ δμρ οπςεδεμεξιρ ισπομψϊυετσρ μι USR δςυ- ηιν ϊαδαξιεν. εσμι δα,το ITLOCK χοϊχςαύαετ υπςαχμεξιε σ λοδον οϋιβλι. ότο ποϊχομρετ πςοηςαννε, σδεμαχϋεκ ποπωτλυ ϊαθχατα, πςοδομφατψ δςυηιε δεκστχιρ. χωϊοχω LOCK ι UNLOCK πςινεξρΰτσρ χ οπεςατιχξοκ πςοηςαννε δμρ πςεδοτχςαύεξιρ λοξζμιλτα σ ζοξοχων ϊαδαξιεν χ πςογεσσε ιξιγιαμιϊαγιι, ξα ζαϊε ϊαχεςϋεξιρ ι δμρ νιξινιϊαγιι ώισμα οβνεξοχ. 4.2.5. στςατεηιρ σχοπιξηα USR πςι ξαπισαξιι πςοηςανν ξεοβθοδινο υώιτωχατψ, ώτο οβ'ελτξωκ νοδυμψ σοστοιτ ιϊ πςοηςαννξωθ σελγικ (PSECT), ινεΰύιθ υξιλαμψξωε ινεξα. ατςιβυτω, σχρϊαξξωε σ λαφδοκ PSECT, υλαϊωχαΰτ λονποξοχύιλυ, λαλ λονβιξιςοχατψ ςαϊμιώξωε οτδεμψξο οττςαξσμιςοχαξξωε νοδυμι πςοηςανν ξα ζοςτςαξε, νοδυμεκ ξα ρϊωλε ναλςοασσενβμες ι βιβμιοτεώξωθ πςοηςανν χ ϊαηςυϊοώξωκ νοδυμψ. πςοηςαννξωε σελγιι χ ϊαηςυϊοώξον νοδυμε ςαϊνεύαΰτσρ χ ποςρδλε, χ λοτοςον οξι υλαϊαξω λονποξοχύιλυ. σελγιι υποςρ- δοώιχαΰτσρ πο σμεδυΰύιν λςιτεςιρν: σοδεςφαύιε ιξζοςναγιΰ τομψλο δμρ ώτεξιρ (ταλιε, λαλ ιξστςυλγιι ιμι δαξξωε), σνε- ϋαξξωε σελγιι, σοδεςφαύιε πεςενεξξωε. ηομοχξοκ νοδυμψ χ πςοηςαννε ξα ζοςτςαξε (οβωώξο - πες- χωκ οβ'ελτξωκ νοδυμψ χ ποσμεδοχατεμψξοστι πςεδ'ρχμεξξωθ λονποξοχύιλυ) οβ'ρχμρετ πςοηςαννξωε σελγιι χ σμεδυΰύεν ποςρδλε: - 40 - ----------------------------------------------- ινρ σελγιι ! ατςιβυτω ----------------------------------------------- OTS$I ! RW, I, LCL, REL, CON OTS$P ! RW, D, GBL, REL, OVR SYS$I ! RW, I, LCL, REL, CON USER$I ! RW, I, LCL, REL, CON $CODE ! RW, I, LCL, REL, CON OTS$O ! RW, I, LCL, REL, CON SYS$O ! RW, I, LCL, REL, CON $DATAP ! RW, D, LCL, REL, CON OTS$D ! RW, D, LCL, REL, CON OTS$S ! RW, D, LCL, REL, CON SYS$S ! RW, D, LCL, REL, CON $DATA ! RW, D, LCL, REL, CON USER$D ! RW, D, LCL, REL, CON .$$$$. ! RW, D, GBL, REL, OVR δς. βμολι COMMON ! RW, D, GBL, REL, OVR USR νοφετ πεςελςωχατψ ιξστςυλγιι, ξο ξε δομφξα ϊαηςυ- φατψσρ ξα ϊοξυ λοξσταξτ ι σνεϋαξξωθ δαξξωθ, λοτοςωε νοηυτ βωτψ ισπομψϊοχαξω λαλ αςηυνεξτω δμρ USR. πολαϊαξξοε υποςρ- δοώεξιε σοβιςαετ χσε ώιστωε σελγιι χ πανρτι πεςεδ σνεϋαξξω- νι. USR νοφετ οβνεξιχατψσρ σ σελγιρνι OTS$I, OTS$P, SYS$I, USER$I ι CODE. πο υνομώαξιΰ οβμαστψ οβνεξα ξαώιξαετσρ σ βαϊω σελγιι OTS$I. ρώεκλα 46 σιστενξοκ οβμαστι σχρϊι σοδες- φιτ αδςεσ, πο λοτοςονυ πςοιϊοκδετ σχοπιξη USR. εσμι ρώεκλα 46 σοδεςφιτ ξομψ, το USR ϊαηςυφαετσρ ξα 2 λσμοχ ξιφε ώεν RMON. 4.2.6. ισπομψϊοχαξιε USR ι χςενρ εσμι οδξο ϊαδαξιε ισπομψϊυετ USR, α εε τςεβυετ ι χτο- ςοε ϊαδαξιε, το χτοςοε βυδετ φδατψ πολα πεςχοε ξε οσχοβοδιτ USR. χςενρ οφιδαξιρ νοφετ βωτψ δοστατοώξο χεμιλο. χ ότο χςενρ νοηυτ ςαβοτατψ τομψλο ποδπςοηςαννω ϊαχεςϋεξιρ ι πςοη- ςαννω οβσμυφιχαξιρ πςεςωχαξικ, ξο ξε οσξοχξαρ πςοηςαννα. νιξινιϊιςοχατψ χςενρ χωπομξεξιρ ϊαδαξιρ νοφξο οδξιν ιϊ σμε- δυΰύιθ ώετωςεθ σποσοβοχ: - ξε ισπομψϊοχατψ υστςοκστχα σ νεδμεξξων δοστυπον, ταλιε λαλ λασσετξωε ιμι ναηξιτξωε μεξτω; - πισατψ οπεςαγιι ςεαμψξοηο χςενεξι λαλ ποδπςοηςαννω οβςαβοτλι πςεςωχαξικ ιμι ποδπςοηςαννω ϊαχεςϋεξιρ ταλ, ώτοβω χςενρ οφιδαξιρ ξε χμιρμο ξα οπεςαγιι ςεαμψξοηο χςενεξι; - ςαϊδεμρτψ οπεςαγιι ςεαμψξοηο χςενεξι ι ςαβοτυ σ USR; - ισπομψϊοχατψ χωϊοχ ITLOCK ι ιϊβεηατψ χωϊοχοχ SYSLIB, τςεβυΰύιθ USR, πολα USR ϊαξρτα δςυηιν ϊαδαξιεν. οπεςατιχξοε ϊαδαξιε νοφετ βωτψ ποστςοεξο ταλ: ζαϊα ιξιγιαμιϊαγιι, ξα λοτοςοκ οξο οτλςωχαετ χσε ξεοβθοδινωε - 41 - λαξαμω ι ϊαπυσλαετ οπεςαγιι ςεαμψξοηο χςενεξι, ζαϊα ςεαμψ- ξοηο χςενεξι, ξα λοτοςοκ χωπομξρΰτσρ οπεςαγιι χχοδα/χωχοδα ι οβσμυφιχαξιε πςεςωχαξικ, ζαϊα ϊαχεςϋεξιρ, λοτοςαρ οστα- ξαχμιχαετ αλτιχξυΰ ςαβοτυ χ ςεαμψξον χςενεξι ι ϊατεν ϊαλςω- χαετ λαξαμω. ισπομψϊοχαξιε ταλοκ στςυλτυςω χ οπεςατιχξον ϊαδαξιι ποϊχομρετ ζοξοχονυ ϊαδαξιΰ χωπομξρτψ οπεςαγιι σ USR βεϊ βμολιςοχαξιρ οπεςατιχξοηο ϊαδαξιρ. ότο φε υπςούαετ σχο- πιξη USR, ταλ λαλ USR νοφετ οβνεξιχατψσρ σ ποδπςοηςαννανι οβςαβοτλι πςεςωχαξικ ι βυζεςον χχοδα/χωχοδα ποσλομψλυ οξι ξε αλτιχξω. 4.2.7. ςαβοτα σ INTEGER*4 γεμωε πεςενεξξωε χεμιώιξω τιπα INTEGER*4 ςαϊνεύαΰτσρ χ πανρτι χ δχυθ σμοχαθ: πεςχοε σμοχο σοδεςφιτ νμαδϋυΰ ώαστψ χεμιώιξω, α χτοςοε σμοχο - ϊξαλ ι σταςϋυΰ ώαστψ χεμιώιξω. διαπαϊοξ πςεδσταχμρενωθ ώισεμ οτ -(2**31)+1 δο (2**31)-1. ότοτ ζοςνατ οτμιώαετσρ οτ δχυσμοχξοηο χξυτςεξξεηο ζος- νατα χςενεξι, σοημασξο λοτοςονυ σταςϋαρ ώαστψ ϊξαώεξιρ χςε- νεξι θςαξιτσρ χ πεςχον σμοχε, α νμαδϋαρ ώαστψ - χο χτοςον. ζυξλγιρ JJCVT οσυύεστχμρετ πςεοβςαϊοχαξιε οδξοηο ζοςνατα χ δςυηοκ. εσμι δμρ ϊαδαξιρ ϊξαώεξικ πεςενεξξων τιπα INTEGER*4 ισπομψϊυετσρ οπεςατος DATA, το οξ δομφεξ ϊαδαχατψ λαλ νμαδ- ϋυΰ, ταλ ι σταςϋυΰ ώαστψ. ξιφε πςιχεδεξο πςαχιμψξοε ϊαδαξιε ϊξαώεξιρ 3 πεςενεξξοκ τιπα INTEGER*4. πςινες. INTEGER*4 J INTEGER*2 I(2) EQUIVALENCE (J,I) DATA I/3,0/ χ σμεδυΰύεν πςινεςε πολαϊαξο ξεπςαχιμψξοε ϊαδαξιε ϊξα- ώεξιρ 3 πεςενεξξοκ τιπα INTEGER*4. πςινες. INTEGER*4 J DATA J/3/ πςι πςισχοεξιι πεςενεξξοκ τιπα INTEGER*4 οτςιγατεμψξο- ηο ϊξαώεξιρ (ξαπςινες, -4) σταςϋαρ ώαστψ (χτοςοε σμοχο) δομφξα βωτψ πςοδομφεξιεν νμαδϋεκ ώαστι πςι δχυσμοχξον πςεδσταχμεξιι πεςενεξξοκ. πςινες. INTEGER*4 J INTEGER*2 I(2) EQUIVALENCE (J,I) DATA I/-4,-1/ - 42 - πςι χωϊοχε ποδπςοηςανν υδοβξα σμεδυΰύαρ ζοςνα πςισχοε- ξιρ ϊξαώεξικ παςανετςαν τιπα INTEGER*4: INTEGER*2 J(2) DATA J/3,0/ 4.2.8. ποδπςοηςαννω τςεβυΰύιε δοπομξιτεμψξοηο όμενεξτα οώεςεδι ξελοτοςωε ποδπςοηςαννω δμρ χωπομξεξιρ τςεβυΰτ όμενεξτ οώεςεδι: IRCVD/IRCVDC/IRCVDF/IRCVDW IREAD/IREADC/IREADF/IREADW ISCHED ISDAT/ ISDATC/ISDATF/ISDATW ISLEEP ISPFN/ISPFNC/ISPFNF/ISPFNW ITIMER ITWAIT IUNTIL IWRITC/IWRITE/IWRITF/IWRITW MRKT MWAIT δμρ ϊαδαξιρ αχτονατιώεσλι χωδεμρετσρ οδιξ όμενεξτ οώε- ςεδι. ισπομψϊοχαξιε βομεε ώεν οδξοηο ϊαπςοσα ιϊ δαξξοηο σπισλα τςεβυετ δοπομξιτεμψξωθ όμενεξτοχ οώεςεδι. δοπομξι- τεμψξωε όμενεξτω οώεςεδι νοηυτ βωτψ χωδεμεξω πςι πονούι χωϊοχα ζυξλγιι IQSET. πςι ςαβοτε σ TS-νοξιτοςον όμενεξτω οώεςεδι χωδεμρΰτσρ δμρ ϊαδαξικ ιϊ οβύεηο σιστενξοηο πυμα όμενεξτοχ οώεςεδεκ. 4.2.9. ποδπςοηςαννω ϊαBεςϋεξιρ ποδπςοηςαννω ϊαχεςϋεξιρ νοηυτ βωτψ ξαπισαξω ξα ρϊωλαθ ζοςτςαξ ιμι ναλςοασσενβμες. ποδπςοηςαννα ϊαχεςϋεξιρ - ότο ποδπςοηςαννα, λοτοςαρ χωπομξρετσρ ασιξθςοξξο σ οσξοχξοκ πςοηςαννοκ ι πμαξιςυετσρ λ χωϊοχυ λαλ νοφξο σλοςεε ποσμε ϊαχεςϋεξιρ σοοτχετστχυΰύεηο σοβωτιρ, ταλοηο λαλ ολοξώαξιε χχοδα/χωχοδα ιμι ιστεώεξιε ϊαδαξξοηο ιξτεςχαμα χςενεξι. χσε ποδπςοηςαννω ϊαχεςϋεξιρ τελυύεηο ϊαδαξιρ ινεΰτ χωσϋικ πςιοςιτετ πο σςαχξεξιΰ σ δςυ- ηινι ώαστρνι ϊαδαξιρ. χωϊοχ ποδπςοηςαννω ϊαχεςϋεξιρ πςεςω- χαετ χωπομξεξιε ϊαδαξιρ ξα χςενρ χωπομξεξιρ ποδπςοηςαννω. ποδπςοηςαννω ϊαχεςϋεξιρ οβςαβατωχαΰτσρ πο ςαϊξονυ χ RM/SJ-νοξιτοςαθ ι χ FB/XM/TS-νοξιτοςαθ. χ RM/SJ-νοξιτοςαθ ότι ποδπςοηςαννω πομξοστψΰ ασιξθςοξξω ι νοηυτ πςεςωχατψ - 43 - δςυη δςυηα. χ FB/XM/TS-νοξιτοςαθ ποδπςοηςαννω ϊαχεςϋεξιρ ξε πςεςωχαΰτ δςυη δςυηα, α χωπομξρΰτσρ ξα οσξοχε πςαχιμα "πες- χωκ πςιϋεμ - πεςχωκ χωπομξεξ". πςοηςαννω ϊαχεςϋεξιρ ξα ρϊωλε ζοςτςαξ ολαξώιχαΰτσρ οπεςατοςανι RETURN ιμι END. ινεξα χξεϋξιθ ποδπςοηςανν ϊαχεςϋεξιρ δομφξω βωτψ οβ'ρχμεξω χ οπεςατοςε EXTERNAL πςοη- ςαννω ξα ζοςτςαξε, χωϊωχαΰύεκ δαξξυΰ ποδπςοηςαννυ. ποδπςοηςαννω ϊαχεςϋεξιρ, ξαπισαξξωε ξα ρϊωλε ζοςτςαξ, νοηυτ ινετψ ναλσινυν δχα αςηυνεξτα, ξαπςινες: SUBROUTINE CRTN [(IARG1, IARG2)] ηδε CRTN - ινρ ποδπςοηςαννω ϊαχεςϋεξιρ; IARG1 - όλχιχαμεξτεξ R0 ξα χθοδε χ ποδπςοηςαννυ ϊαχεςϋεξιρ ξα ρϊωλε ασσενβμεςα; IARG2 - όλχιχαμεξτεξ R1 ξα χθοδε χ ποδπςοηςαννυ ϊαχεςϋεξιρ ξα ρϊωλε ασσενβμεςα. εσμι οϋιβλα πςοισθοδιτ χ ποδπςοηςαννε ϊαχεςϋεξιρ, δςακχες οϋιβολ πςοχοδιτ τςασσιςοχλυ πςεςχαξξοκ οσξοχξοκ πςοηςαννω. ταλιν οβςαϊον τςασσιςοχλα πολαϊωχαετ λαλαρ ποδπ- ςοηςαννα ϊαχεςϋεξιρ βωμα χωϊχαξα ιϊ οσξοχξοκ πςοηςαννω. ότα χοϊνοφξοστψ ποϊχομρετ πςοηςαννιστυ οπςεδεμιτψ ι ισπςαχιτψ οϋιβλι. ποδπςοηςαννω ϊαχεςϋεξιρ, λοτοςωε χωϊωχαΰτσρ σμεδυΰύινι χωϊοχανι: INTSET ISDATF IRCVDC ISPFNC IRCVDF ISPFNF IREADC ITIMER IREADF IWRITC ISCHED IWRITF ISDATC MRKT ινεΰτ ταλιε οηςαξιώεξιρ: - πεςχωκ χωϊοχ ποδπςοηςαννω, πμαξιςυΰύεκ οβςαύεξιρ λ ποδπςοηςαννε ϊαχεςϋεξιρ, ξαπισαξξοκ ξα ρϊωλε ζοςτ- ςαξ, δομφεξ ισθοδιτψ ιϊ οσξοχξοκ πςοηςαννω; - λαξαμ ξε νοφετ βωτψ πομυώεξ χωϊοχον IGETC ιμι οσχοβοφδεξ χωϊοχον IFREEC ιϊ ποδπςοηςαννω ϊαχεςϋε- ξιρ; λαξαμω ισπομψϊυενωε ποδπςοηςαννοκ ϊαχεςϋεξιρ δομφξω βωτψ υφε χωδεμεξω ι πονεύεξω χ βμολ COMMON; - ποδπςοηςαννα ϊαχεςϋεξιρ ξε νοφετ πςοιϊχοδιτψ χωϊοχ, τςεβυΰύικ ισπομψϊοχαξιρ USR; - ζακμω, ισπομψϊυενωε ποδπςοηςαννοκ ϊαχεςϋεξιρ, δομφξω βωτψ οτλςωτω ι ϊαλςωτω χ οσξοχξοκ πςοηςαν- νε; ξετ οηςαξιώεξικ ξα οπεςαγιι χχοδα/χωχοδα, λοτοςωε νοηυτ πςοχοδιτψσρ ποδπςοηςαννανι ϊαχεςϋε- ξιρ; εσμι νξοηο ζακμοχ δομφξω βωτψ δοστυπξω δμρ - 44 - ποδπςοηςαννω ϊαχεςϋεξιρ, οξι νοηυτ βωτψ οτλςωτω οσξοχξοκ πςοηςαννοκ ι σοθςαξεξω δμρ δαμψξεκϋεηο ισπομψϊοχαξιρ (ξε ϊαξιναρ λαξαμω σιστενω) χωϊοχον ISAVES; ποδπςοηςαννα ϊαχεςϋεξιρ νοφετ χ δαμψξεκϋεν σδεματψ εηο δοστυπξων ποχτοςξων πςισοεδιξεξιεν ζακμα λ λαξαμυ χωϊοχον IREOPN; δαφε εσμι σανα ποδπςοηςαννα ϊαχεςϋεξιρ ξε ισπομψϊυετ πςοηςαννξωε ϊαπςοσω, α χωπομξρετ οπεςαγιι χχοδα/χωχοδα ξα μοηιώεσλιθ ξονεςαθ ώεςεϊ OTS ζοςτςαξA, ότι μοηι- ώεσλιε ξονεςα δομφξω βωτψ οτλςωτω χ οσξοχξοκ πςοη- ςαννε; ποδπςοηςαννα ϊαχεςϋεξιρ ξε δομφξα χωϊωχατψ CLOSE δμρ ϊαλςωτιρ μοηιώεσλοηο λαξαμα; - ποδπςοηςαννω ζοςτςαξα ποχτοςξοισπομψϊυενω, ξο ξε ποχτοςξοχθοδινω; ποότονυ ποδπςοηςαννα νοφετ χωϊω- χατψσρ τςεβυενοε ώισμο ςαϊ λαλ ποδπςοηςαννα ϊαχες- ϋεξιρ ιμι λαλ ποδπςοηςαννα οσξοχξοκ πςοηςαννω, ξο ξε νοφετ βωτψ χωϊχαξα σανα ιϊ σεβρ; - ποδ RM/SJ-νοξιτοςον τομψλο οδξα ζυξλγιρ ϊαχεςϋεξιρ δομφξα βωτψ αλτιχξα χ λαφδωκ νονεξτ χςενεξι. 4.2.10. ζυξλγιι πο οβςαβοτλε στςολ σινχομοχ ζυξλγιι ι ποδπςοηςαννω πο οβςαβοτλε στςολ σινχομοχ, ινεΰύιεσρ χ σιστενξοκ οβ'ελτξοκ βιβμιοτελε, ποϊχομρΰτ οβςα- βατωχατψ σινχομψξωε στςολι πεςενεξξοκ δμιξω. στςολι θςαξρτσρ χ νασσιχαθ τιπα LOGICAL*1, λοτοςωε δομφεξ οπισατψ πςοηςαννιστ. στςολι ϊαπονιξαΰτσρ χ ότιθ νασ- σιχαθ πο οδξονυ σινχομυ χ λαφδον όμενεξτε νασσιχα πμΰσ ξυμεχοκ βακτ δμρ οβοϊξαώεξιρ τελυύεηο λοξγα στςολι (ζοςνατ ASCIZ). δμιξα στςολι νοφετ ιϊνεξρτψσρ χ διαπαϊοξε οτ ξυμρ σιν- χομοχ χ στςολε δο δμιξω, ξα εδιξιγυ νεξψϋεκ δμιξω νασσιχα, χ λοτοςον θςαξιτσρ στςολα. ναλσιναμψξωκ ςαϊνες στςολι 32767 (δεσρτιώξοε) σινχομοχ. στςολι νοηυτ σοδεςφατψ σινχομω λοι-7 ινεΰύιε λοδω οτ 1 δο 127 (δεσρτιώξοε). ισπομψϊυενωκ δμρ ϊαπισι σινχομοχ λοδ λοι-7 πςινεξρετσρ χ ρϊωλε ζοςτςαξ δμρ όμενεξτοχ σπισλα χχοδα/χωχοδα ζοςνατα "A", ι χ οπεςατοςαθ ENCODE/DECODE. στςολι, ισπομψϊυενωε ποδπςοηςαννανι σιστενξοκ οβ'ελτξοκ βιβμιοτελι, ηεξεςιςυΰτσρ λονπιμρτοςον σ ρϊωλα ζοςτςαξ χσρλικ ςαϊ, λοηδα στςολα, ϊαλ- μΰώεξξαρ χ λαχωώλι, ισπομψϊυετσρ χ λαώεστχε παςανετςα χ οπεςατοςε CALL. πυσταρ στςολα νοφετ πςεδσταχμρτψσρ χ ρϊωλε ζοςτςαξ πεςενεξξοκ ιμι λοξσταξτοκ μΰβοηο τιπα, σοδεςφαύεκ ξυμψ, ιμι μοηιώεσλοκ (LOGICAL) πεςενεξξοκ, ιμι λοξσταξτοκ σο ϊξαώεξιεν FALSE. ξεοβθοδινο σμεδιτψ, ώτοβω στςολα ξε πςεχωσιμα ςαϊνες νασσιχα, δμρ ώεηο νοφξο χοσπομψϊοχατψσρ τεν, ώτο χ ποδπςοη- ςανναθ (SUBROUTINE) σιστενξοκ βιβμιοτελι δμρ οηςαξιώεξιρ δμιξω νοφετ υλαϊωχατψσρ ξεοβρϊατεμψξωκ παςανετς. χ ςαϊδε- - 45 - μαθ, οπισωχαΰύιθ ποδπςοηςαννω οβςαβοτλι σινχομψξωθ στςολ, ότοτ παςανετς ξαϊωχαετσρ LEN. δμιξα χωθοδξοκ στςολι οηςαξι- ώιχαετσρ χεμιώιξοκ, υλαϊαξξοκ παςανετςον LEN πμΰσ οδιξ όμε- νεξτ δμρ λοξγα στςολι. ποότονυ νασσιχ, πςιξιναΰύικ ςεϊυμψ- τατ, δομφεξ πο δμιξε, πο λςακξεκ νεςε, ςαχξρτψσρ ϊξαώεξιΰ παςανετςα LEN πμΰσ 1. πςι υλαϊαξιι παςανετςα LEN νοφετ χλμΰώατψσρ ξεοβρϊα- τεμψξωκ παςανετς ERR, ποϊχομρΰύικ οπςεδεμιτψ ξαμιώιε οϋιβ- λι. παςανετς ERR ρχμρετσρ μοηιώεσλοκ πεςενεξξοκ, λοτοςαρ δομφξα πεςχοξαώαμψξο υσταξαχμιχατψσρ χ ϊξαώεξιε FALSE εσμι χ ζυξλγιι πο οβςαβοτλε σινχομψξωθ στςολ υλαϊωχαΰτσρ παςα- νετςω LEN ι ERR, α παςανετς LEN δεκστχιτεμψξο ισπομψϊοχαμσρ δμρ οηςαξιώεξιρ δμιξω ςεϊυμψτιςυΰύεκ στςολι, το τοηδα παςα- νετς ERR υσταξαχμιχαετσρ χ ϊξαώεξιε TRUE. εσμι παςανετς LEN δμρ οηςαξιώεξιρ δμιξω στςολι ξε ισπομψϊοχαμσρ, το παςανετς ERR ξε ιϊνεξρετσρ. παςανετςω LEN ι ERR ρχμρΰτσρ ξεοβρϊατεμψξωνι παςανετ- ςανι. παςανετς LEN νοφετ ϊαδαχατψσρ οτδεμψξο, α παςανετς ERR - τομψλο σ παςανετςον LEN. ξελοτοςωε ποδπςοηςαννω ισπομψϊυΰτ ποξρτιε ποϊιγιι. λαφδονυ σινχομυ στςολι πςισχαιχαετσρ ποϊιγιοξξωκ ξονες, ξα εδιξιγυ βομψϋε ξονεςα ποϊιγιι σινχομα, στορύεηο ξεποσςεδστ- χεξξο σμεχα οτ ξεηο. πεςχωκ σινχομ στςολι ινεετ ποϊιγιοξξωκ ξονες, ςαχξωκ εδιξιγε. οδξονεςξωκ μοηιώεσλικ νασσιχ τιπα LOGICAL*1 νοφετ ισπομψϊοχατψσρ δμρ θςαξεξιρ οδξοκ στςολι, δμιξα λοτοςοκ νοφετ ιϊνεξρτψσρ οτ ξυμρ δο λομιώεστχα σινχομοχ, ςαχξοηο δμιξε νασσιχα νιξυσ οδιξ. ξαπςινες: LOGICAL*1 A(45) νασσιχ "A" νοφετ βωτψ ισπομψϊοχαξ δμρ θςαξεξιρ στςολι ιϊ 44 ι νεξεε σινχομοχ. 2-νεςξωκ νασσιχ τιπα LOGICAL*1, νοφετ ισπομψϊοχατψσρ δμρ θςαξεξιρ οδξονεςξοηο νασσιχα στςολ. λαφδαρ στςολα νασ- σιχα νοφετ ινετψ δμιξυ ξα οδιξ σινχομ νεξψϋυΰ πεςχοηο παςα- νετςα ςαϊνεςξοστι νασσιχα τιπα LOGICAL*1. λομιώεστχο στςολ οπςεδεμρετσρ ώισμον, υλαϊαξξων δμρ χτοςοηο παςανετςα ςαϊ- νεςξοστι νασσιχα τιπα LOGICAL*1. ξαπςινες: LOGICAL*1 W(21,10) χ πςινεςε ζοςνιςυετσρ νασσιχ "W" ιϊ 10 στςολ, λαφδαρ ιϊ λοτοςωθ νοφετ σοδεςφατψ δο 20 σινχομοχ. οβςαύεξιε λ στςολε "I" νασσιχα "W" χ χωϊοχε ποδπςοηςαννω ιμι ζυξλγιι χωπομξρετσρ χ χιδε W(1,I). δχυνεςξωκ νασσιχ στςολ νοφξο οπςεδεμιτψ σμεδυΰύιν οβςαϊον: LOGICAL*1 T(14, 5, 7) λαφδαρ στςολα νασσιχα "T" νοφετ ιϊνεξρτψσρ πο δμιξε ναλσιναμψξο δο 13 σινχομοχ. οβςαύεξιε λ στςολε "I,J" νοφετ - 46 - βωτψ χωπομξεξο χ χιδε T(1,I,J). σμεδυετ ινετψ χ χιδυ, ώτο "T" το φε σανοε, ώτο ι T(1,1,1). ότοτ πςογεσσ υχεμιώεξιρ ςαϊνεςξοστεκ νασσιχα νοφξο πςοδομφατψ δο σοϊδαξιρ ϋεστινες- ξωθ νασσιχοχ στςολ (πςεδσταχμεξξωθ σενινεςξωνι νασσιχανι τιπα LOGICAL*1). νασσιχω τιπα LOGICAL*1, σοδεςφαύιε στςολι, νοηυτ πονε- ύατψσρ χ βμολ COMMON ι λ ξιν νοηυτ οβςαύατψσρ ποδπςοηςαννω, ινεΰύιε ταλιε φε βμολι COMMON. οδξαλο, πςι πονεύεξιι νασσι- χα τιπα LOGICAL*1 χ βμολ COMMON ξεοβθοδινο πονξιτψ, ώτο εσμι ταλοκ νασσιχ ινεετ ξεώετξυΰ δμιξυ, το χσεν ποσμεδυΰύιν πεςενεξξων βμολα COMMON βυδυτ πςισχοεξω ξεώετξωε αδςεσα. νασσιχ τιπα LOGICAL*1 ινεετ ξεώετξυΰ δμιξυ τομψλο χ σμυώαε, εσμι πςοιϊχεδεξιε εηο ςαϊνεςξοστεκ ξεώετξο. εσμι χ βμολ COMMON πονεύαΰτσρ νασσιχω ξεώετξοκ δμιξω, το οξι δομφξω ςασπομαηατψσρ ιμι χ λοξγε βμολα, ιμι ποπαςξο ςασσταχμρτψσρ ταλ, ώτοβω συννα ιθ δμιξ βωμα ώετξαρ. ξαπςι- νες: COMMON A1,A2,A3(10),H(21) ιμι COMMON A1,A2,H(21),H1(7),A3(10) ταλαρ νεςα πςεδοστοςοφξοστι πςινεξρετσρ τομψλο λ πεςενεξξων ι νασσιχαν τιπα LOGICAL*1. χτοςοκ σποσοβ πεςεδαώι στςολ χ ποδπςοηςαννω ϊαλμΰώαετ- σρ χ πεςεδαώε ώεςεϊ δεκστχιτεμψξωε ιμι ζοςναμψξωε παςανετ- ςω. οδιξοώξαρ στςολα νοφετ βωτψ πεςεδαξα σ ισπομψϊοχαξιεν ινεξι εε νασσιχα χ λαώεστχε δεκστχιτεμψξοηο παςανετςα. ξαπ- ςινες: LOGICAL*1 A(21) CALL SUBR(A) εσμι ναλσιναμψξαρ δμιξα παςανετςα στςολι ποδπςοηςαννω ιμι ζυξλγιι ξειϊχεστξα ιμι εσμι δαξξαρ ποδπςοηςαννα ισπομψ- ϊυετσρ δμρ οβςαβοτλι στςολ ςαϊμιώξοκ δμιξω, το ζοςναμψξωκ παςανετς ποδπςοηςαννω δομφεξ οβ'ρχμρτψσρ λαλ νασσιχ τιπα LOGICAL*1 σ ςαϊνεςον, ςαχξων 1, ξαπςινες: LOGICAL*1 ARG(1) χ ότον σμυώαε ποδπςοηςαννω οβςαβοτλι στςολι βυδυτ πςαχιμψξο οπςεδεμρτψ δμιξυ νασσιχα ARG χσρλικ ςαϊ, λοηδα οξ ισπομψ- ϊυετσρ, ξο ξεμψϊρ βυδετ οπςεδεμιτψ στςολυ ναλσιναμψξοηο ςαϊνεςα. χωθοδον ιϊ ότοηο πομοφεξιρ νοφετ βωτψ πεςεδαώα ναλσιναμψξοκ δμιξω στςολι χ ποδπςοηςαννυ (χ χιδε παςανετςα ιμι ώεςεϊ βμολ COMMON). εσμι ποδπςοηςαννε πεςεδαετσρ νξοηο- νεςξωκ νασσιχ στςολ, το οξ δομφεξ οπισωχατψσρ χ χωϊωχαενοκ πςοηςαννε σ τενι φε ςαϊνεςανι, σ λοτοςωνι οξ οπισαξ χ χωϊω- χαΰύεκ πςοηςαννε. στςολι, ϊαλμΰώεξξωε χ λαχωώλι, νοηυτ ισπομψϊοχατψσρ χ χιδε παςανετςοχ μΰβοκ ποδπςοηςαννω οβςαβοτλι στςολι, λοτο- - 47 - ςαρ χωϊωχαετσρ οπεςατοςον CALL. οξι νοηυτ ταλφε ισπομψϊο- χατψσρ δμρ ποδπςοηςανν, χωϊωχαενωθ χ λαώεστχε ζυξλγιι. ξαπ- ςινες: CALL SCOMP(NAME,'FREE CORE',M) ότοτ οπεςατος σςαχξιχαετ στςολυ χ νασσιχε NAME σο στςολοκ σινχομοχ "FREE CORE" ι υσταξαχμιχαετ σοοτχετστχυΰύεε ϊξαώε- ξιε γεμοκ πεςενεξξοκ M. 5. σοοβύεξιρ χ πςογεσσε χωπομξεξιρ σιστενξωθ ναλςολοναξδ νοξιτος νοφετ οβξαςυφιτψ οϋιβλι, ο λοτοςωθ ξεοβθοδινο σοοβύιτψ πομψϊοχατεμΰ. χ σιστενε συύεστχυΰτ τςι σποσοβα σοοβύεξικ οβ οϋιβλαθ: - ώεςεϊ βιτ σ χ σμοχε σοστορξιρ; - ώεςεϊ βακτ οϋιβλι (βακτ 52 χ σιστενξοκ οβμαστι σχρϊι); - ποσςεδστχον σοοβύεξικ νοξιτοςα οβ οϋιβλαθ. βιτ σ σβςασωχαετσρ πςι πςαχιμψξον χωπομξεξιι πςοηςανν- ξοηο ϊαπςοσα, χ πςοτιχξον σμυώαε υσταξαχμιχαετσρ χ 1, ποό- τονυ πςαλτιώεσλι ϊα λαφδοκ σιστενξοκ ναλςολοναξδοκ δομφξω σμεδοχατψ μιβο ιξστςυλγιρ χσS, μιβο χσσ δμρ οβξαςυφεξιρ χοϊνοφξωθ οϋιβολ. λοηδα υσταξοχμεξ βιτ σ, βακτ 52 σοδεςφιτ δοπομξιτεμψ- ξυΰ ιξζοςναγιΰ οβ οϋιβλαθ. ϊξαώεξιρ βιτοχ βακτα 52 οπισαξω οτδεμψξο δμρ λαφδοκ ναλςολοναξδω. πςοηςαννα πομψϊοχατεμρ δομφξα πςοχεςρτψ ότοτ βακτ, εσμι βιτ σ υσταξοχμεξ. ξελοτοςωε σεςψεϊξωε (ηςυβωε) οϋιβλι ϊασταχμρΰτ νοξιτος ςασπεώατωχατψ ξα τεςνιξαμε σοοτχετστχυΰύιε σοοβύεξιρ, ποσμε ώεηο υπςαχμεξιε πεςεδαετσρ νοξιτοςυ. ώτοβω πςοαξαμιϊιςοχατψ ταλιε οϋιβλι, ξεοβθοδινο ισπομψϊοχατψ σιστενξυΰ ναλςολοναξ- δυ .SεRR. τελστω σοοβύεξικ πςιχοδρτσρ χ δολυνεξτε "σοοβύεξιρ ι διαηξοστιλα οϋιβολ", 2/β/.00109-01 94 01. - 48 - 6. σιστενξωε ταβμιγω χο χςενρ χωπομξεξιρ ϊαδαξιρ ώαστο ξεοβθοδινο ϊξατψ ξελοτοςωε παςανετςω νοξιτοςα ι σανοηο ϊαδαξιρ, ιξοηδα ξυφξο ιϊνεξιτψ ότι παςανετςω. πςοηςαννα πομψϊοχατεμρ νοφετ πομυ- ώατψ ιξζοςναγιΰ ο παςανετςαθ νοξιτοςα ι υπςαχμρτψ σχοεκ ςαβοτοκ, ισπομψϊυρ σιστενξυΰ οβμαστψ σχρϊι ι ζιλσιςοχαξξωε σνεύεξιρ (ρώεκλι) ςεϊιδεξτξοηο νοξιτοςα. σχοκστχα νοξιτοςοχ ι δςακχεςοχ δοστυπξω πςοηςαννε σ πονούψΰ σιστενξοκ ναλςοβιβμιοτελι (δμρ πςοηςανν ξα ναλςοασ- σενβμεςε) ι σιστενξοκ οβ'ελτξοκ βιβμιοτελι (δμρ πςοηςανν ξα ζοςτςαξε ι πασλαμε). 6.1. σιστενξαρ οβμαστψ σχρϊι βακτω 40-57 (αβσομΰτξωε αδςεσα) ξαϊωχαΰτσρ σιστενξοκ οβμαστψΰ σχρϊι (SYSCOM). οξι σοδεςφατ ιξζοςναγιΰ ο σιστενε ι ο πςοηςαννε, χωπομξρΰύεκσρ χ δαξξωκ νονεξτ. ότα ιξζοςνα- γιρ ξεοβθοδινα λαλ νοξιτοςυ, ταλ ι πςοηςαννιστυ. ώτοβω ισπομψϊοχατψ ότι σχεδεξιρ χ πςοηςαννε, νοφξο πςινεξρτψ σισ- τενξωε ναλςολοναξδω, οπςεδεμρΰύιε σινχομψξωε οβοϊξαώεξιρ βακτοχ. ιθ σοδεςφινοε οπςεδεμρετσρ πςι ϊαηςυϊλε νοξιτοςα (χ ώαστι, λασαΰύεκσρ σιστενω) ι πςι ϊαηςυϊλε πςοηςαννω. ιξζος- ναγιρ ο πςοηςαννε βεςετσρ ιϊ ξυμεχοηο βμολα ζακμα ϊαηςυϊοώ- ξοηο νοδυμρ πςοηςαννω (τ.ε. οπςεδεμρετσρ ξα όταπε εε λονπο- ξοχλι) ι νοφετ βωτψ ιϊνεξεξα σανοκ πςοηςαννοκ χο χςενρ εε χωπομξεξιρ. ξιφε δαξω αδςεσα βακτοχ ι χ σλοβλαθ ιθ σινχομψ- ξωε οβοϊξαώεξιρ. 40,41 (USεRςσ) - σταςτοχωκ αδςεσ πςοηςαννω. ότο σμοχο υσταξαχμι- χαετσρ λονποξοχύιλον μιβο σανοκ πςοηςαννοκ. πςι ϊαηςυϊλε οπεςατιχξοηο ϊαδαξιρ πο λοναξδε FRUN ότο σμοχο λοςςελτιςυετσρ ταλ, ώτοβω οξο σοδεςφαμο ζαλ- τιώεσλικ σταςτοχωκ αδςεσ. 42,43 (USεRSς) - ξαώαμψξοε ϊξαώεξιε υλαϊατεμρ στελα. ότο σμοχο υσταξαχμιχαετσρ πςοηςαννοκ πομψϊοχατεμρ σ πονούψΰ διςελτιχω .αSεστ. πο υνομώαξιΰ βεςετσρ 1000 (χοσψ- νεςιώξοε) ιμι χεςθξικ αδςεσ οβμαστι .αSεστ. εσμι οπεςατιχξοε ϊαδαξιε ξε οπςεδεμρετ υλαϊατεμψ στελα, το πο υνομώαξιΰ στελ ςαϊνεςον χ 128 (δεσρτιώξοε) βακτοχ βυδετ ςαϊνεύεξ πςι χωπομξεξιι λοναξδω FRUN ξεποσςεδστχεξξο ξιφε πςοηςαννω. υλαϊατεμψ στελα ταλφε νοφετ βωτψ υσταξοχμεξ λμΰώανι λονποξοχύιλα. 44,45 (JSW) - σμοχο σοστορξιρ πςοηςαννω. ώαστψ εηο βιτοχ ισπομψ- ϊυετσρ τομψλο νοξιτοςον, οσταμψξωε νοηυτ βωτψ ιϊνεξεξω πςοηςαννοκ πομψϊοχατεμρ. - 49 - 46,47 (UFLοατ) - αδςεσ ϊαηςυϊλι USR. χ ότο σμοχο, οβωώξο ςαχξοε 0, πςοηςαννοκ πομψϊοχατεμρ νοφετ βωτψ υσταξοχμεξ μΰβοκ αδςεσ χ οβμαστι πςοηςαννω. πο ότονυ αδςεσυ βυδετ ϊαηςυφατψσρ USR. εσμι σμοχο ςαχξο 0, USR ϊαηςυφαετσρ πο αδςεσυ, σοδεςφαύενυσρ χ σνεύεξιι 266 RνοN. 50,51 (USεRτος) - χεςθξικ αδςεσ πςοηςαννω. χ ότον σμοχε σοδεςφιτσρ σταςϋικ αδςεσ πανρτι, λοτοςωκ πςεδοσταχμρετσρ σισ- τενοκ πςοηςαννε πομψϊοχατεμρ. πεςχοξαώαμψξο υστα- ξαχμιχαετσρ λονποξοχύιλον. νοφετ βωτψ ιϊνεξεξ σισ- τενξοκ ναλςολοναξδοκ .Sεττος. 52 (εRRχYτ) - βακτ οϋιβλι εντ. πςι πορχμεξιι οϋιβλι χ πςογεσσε χωπομξεξιρ σιστενξοκ ναλςολοναξδω λοδ οϋιβλι πεςε- δαετσρ χ δαξξωκ βακτ, α χ σμοχε σοστορξιρ πςογεσ- σοςα (PS) υσταξαχμιχαετσρ βιτ σ. λαφδαρ σιστενξαρ ναλςολοναξδα ινεετ σχοκ ξαβος λοδοχ οϋιβολ. 53 (USεRRχ) - στατυσ ϊαχεςϋεξιρ πςοηςαννω. πςι πορχμεξιι οϋιβλι χο χςενρ χωπομξεξιρ πςοηςαννω ιξζοςναγιρ ο τιπε οϋιβλι υσταξαχμιχαετσρ σανοκ πςοηςαννοκ χ δαξξον βακτε. ισπομψϊυετσρ πςι ςαβοτε λοναξδξοηο ζακμα. 54,55 (SYSςτR) - ξιφξικ αδςεσ RMON. σιστενα χσεηδα ϊαηςυφαετ ςεϊι- δεξτξυΰ ώαστψ νοξιτοςα χ χεςθξιε αδςεσα πανρτι (ξιφε 56 Kβακτ). δαξξοε σμοχο υλαϊωχαετ ξα πεςχυΰ ρώεκλυ πανρτι ςεϊιδεξτξοηο νοξιτοςα RMON. ϊξαώεξιε ότοηο σμοχα ιϊνεξρτψ ϊαπςεύεξο. 56 (ττFILL) - ξελοτοςωε χωσολοσλοςοστξωε τεςνιξαμω τςεβυΰτ ϊξα- λι-ϊαπομξιτεμι ποσμε χωχοδα οπςεδεμεξξωθ σινχομοχ. βακτ 56 σοδεςφιτ λοδ σινχομα χ λοι-7, τςεβυΰύεηο ποσμε σεβρ χωχοδα ϊξαλοχ-ϊαπομξιτεμεκ. 57 (ττNFIL) - σώετώιλ ϊαπομξιτεμεκ. λομιώεστχο ϊξαλοχ- ϊαπομξιτεμεκ οπςεδεμρετσρ χ ϊαχισινοστι οτ αππαςα- τυςω. εσμι βακτω 56 ι 57 ςαχξω 0, το ϊαπομξιτεμι ξε τςεβυΰτσρ. πςινεώαξιε. βακτ 52 δομφεξ ισπομψϊοχατψσρ χσεηδα λαλ βακτ, α ξε λαλ σμοχο, τ.λ. βακτ 53 πςινεξρετσρ δμρ υλαϊαξιρ στατυσα ϊαχεςϋεξιρ πςοηςαννω. - 50 - 6.1.1. στατυσ ϊαχεςϋεξιρ πςοηςαννω (USERRB) πςι ϊαηςυϊλε ιξτεςπςετατος λοναξδ νοξιτοςα (KMON) πςο- χεςρετ στατυσ ϊαχεςϋεξιρ πομψϊοχατεμψσλοκ πςοηςαννω. εσμι πςι χωπομξεξιι πομψϊοχατεμψσλοκ πςοηςαννω ινεμισψ οϋιβλι, ιξζοςναγιρ ο λοτοςωθ σοδεςφιτσρ χ βακτε 53 (USERRB), το KMON νοφετ πςεςχατψ (πςελςατιτψ) δαμψξεκϋεε χωπομξεξιε τελυύεηο λοναξδξοηο ζακμα. ταλιν οβςαϊον, πςοιϊχοδιτσρ λοξτςομψ ϊα χωπομξεξιεν λοναξδ χ λοναξδξον ζακμε. ότο οσο- βεξξο χαφξο, εσμι λοςςελτξοε χωπομξεξιε ποσμεδυΰύιθ λοναξδ ϊαχισιτ οτ υσπεϋξοηο ϊαχεςϋεξιρ πςεδϋεστχυΰύιθ. ινεΰτσρ σμεδυΰύιε στατυσω ϊαχεςϋεξιρ πςοηςαννω: SUCCESS - υσπεϋξοε ϊαχεςϋεξιε; ότοτ στατυσ ϊαχεςϋεξιρ οϊξα- ώαετ, ώτο πςοηςαννα βωμα χωπομξεξα βεϊ οϋιβολ; WARNING - ϊαχεςϋεξιε σ πςεδυπςεφδεξιεν; ότοτ στατυσ οϊξα- ώαετ, ώτο πςι χωπομξεξιι πςοηςαννω βωμο χωδαξο πςεδυπςεφδαΰύεε σοοβύεξιε, ξο πςοηςαννα χωπομξι- μασψ πομξοστψΰ; ERROR - οϋιβλα; ότοτ στατυσ οϊξαώαετ, ώτο πςοηςαννα ξε χωπομξιμασψ ιϊ-ϊα ξαμιώιρ οϋιβλι; ότοτ στατυσ ισπομψϊυετσρ χ σιστενξωθ πςοηςανναθ, εσμι οξι σοϊ- δαΰτ χωθοδξωε ζακμω, ξεσνοτςρ ξα σοδεςφαύιεσρ χ ξιθ οϋιβλι; ξαπςινες, λονπιμρτος νοφετ ισπομψϊο- χατψ ότοτ στατυσ δμρ υλαϊαξιρ τοηο, ώτο οβ'ελτξωκ ζακμ βωμ σοϊδαξ, ξο πςοηςαννα πομψϊοχατεμρ σοδες- φιτ οϋιβλι; SEVERE ERROR - σεςψεϊξαρ οϋιβλα; ότοτ στατυσ οϊξαώαετ, ώτο πςοη- ςαννοκ ξε βωμι σοϊδαξω χωθοδξωε δαξξωε; ότοτ στα- τυσ νοφετ βωτψ υσταξοχμεξ, εσμι οτσυτστχυΰτ ςεσυς- σω, ξεοβθοδινωε πςοηςαννε δμρ πομξοηο εε ϊαχεςϋε- ξιρ; ξαπςινες, οτσυτστχιε δοστατοώξοκ οβμαστι πανρτι δμρ ασσενβμιςοχαξιρ ιμι λονπιμργιι πςιλμαδ- ξοκ πςοηςαννω; FATAL ERROR - ξευστςαξιναρ οϋιβλα; ότοτ στατυσ οϊξαώαετ, ώτο ξε τομψλο πςεςχαξο χωπομξεξιε πςοηςαννω, ξο χοϊνοφξο ισποςώεξ νοξιτος. σιστενξωε πςοηςαννω ι KMON χσεηδα υσταξαχμιχαΰτ στατυσ ϊαχεςϋεξιρ πςοηςαννω δμρ υλαϊαξιρ ςεϊυμψτατα χωπομξεξιρ λαφδοκ λοναξδω νοξιτοςα. οβωώξο χωπομξεξιε λοναξδξωθ ζακμοχ πςελςαύαετσρ, εσμι ινεμα νεστο οϋιβλα πςι χωπομξεξιι λοναξ- δω νοξιτοςα. χ ταβμ. 1 πςεδσταχμεξω λοδω τιποχ οϋιβολ, λοτοςωε νοηυτ βωτψ υσταξοχμεξω χ βακτε 53. - 51 - ταβμιγα 1 ---------------------------------------------------------- ! ϊξαώεξιε ! ! ξονες ! νασλι ! τιπ ! σοοβύεξιε χ βιτα ! (χοσψνε- ! οϋιβλι ! ς α ζ ο σ ! ςιώξοε) ! ! ---------------------------------------------------------- 0 ! 1 ! SUCCESS ! ?PROG-I-TEXT ιμι οτσυτστχυετ 1 ! 2 ! WARNING ! ?PROG-W-TEXT 2 ! 4 ! ERROR ! ?PROG-E-TEXT 3 ! 10 ! SEVERE ! ?PROG-F-TEXT 4 ! 20 ! FATAL ! ?PROG-U-TEXT πςινεώαξιε. βιτω 5-7 ϊαςεϊεςχιςοχαξω δμρ πςινεξεξιρ χ σμεδυΰύιθ χεςσιρθ σιστενω. πςοηςαννω ξε δομφξω οβξυμρτψ βακτ 53, νοφξο τομψλο υσταξαχμιχατψ ξεοβθοδινωκ βιτ σ πονούψΰ ιξστςυλγιι BISB. οπςεδεμεξιε σινχομψξωθ οβοϊξαώεξικ στατυσα ϊαχεςϋεξιρ ι βακτα 53 ςελονεξδυετσρ χωπομξρτψ σ πονούψΰ σιστενξοκ ναλςολοναξδω .USBDF. εσμι πςι ςαβοτε πςοηςαννω βωμο υσταξοχμεξο ξεσλομψλο βιτοχ, το σιστενα οπςεδεμρετ στατυσ πο βιτυ σ ξαιβομψϋιν ποςρδλοχων ξονεςον. 6.1.2. σμοχο σοστορξιρ ϊαδαξιρ (JSW) βακτω 44 ι 45 σοδεςφατ σμοχο σοστορξιρ ϊαδαξιρ (JSW). ξιφε δαετσρ οπισαξιε βιτοχ JSW. βιτω, οτνεώεξξωε "*", υστα- ξαχμιχαΰτσρ νοξιτοςον ιμι σανοκ πςοηςαννοκ χο χςενρ εε χωπομξεξιρ. βιτω, οτνεώεξξωε "+", υσταξαχμιχαΰτσρ πεςεδ ϊαηςυϊλοκ πςοηςαννω (πςι λονποξοχλε), α βιτω, οτνεώεξξωε "*+", νοηυτ βωτψ υσταξοχμεξω λαλ δο, ταλ ι πςι χωπομξεξιι πςοηςαννω. 15 (USWας$) - βιτ σχοπιξηα USR (τομψλο δμρ SJ-νοξιτοςα). υστα- ξαχμιχαετσρ σιστενοκ, εσμι USR ςεϊιδεξτξα. 14*+ (ττLσ$) - βιτ χχοδα λιςιμμιγω. εσμι οξ υσταξοχμεξ, χχοδ λιςιμμιγω ςαϊςεϋεξ. εσμι πςοηςαννα πομψϊοχατεμρ ξε υσταξαχμιχαετ ότοτ βιτ, το πςι χχοδε σ τεςνιξαμα δςακχες πςοιϊχοδιτ αχτονατιώεσλοε πςεοβςαϊοχαξιε σινχομοχ λιςιμμιγω χ ματιξσλιε σινχομω. 13*+ (RSτRτ$) - βιτ ςεσταςτα. εσμι τςεβυετσρ, ώτοβω πςοηςαννα βωμα ποχτοςξο ϊαπυύεξα πο λοναξδε REENTER σ τεςνιξαμα, ξεοβοδινο υσταξοχιτψ ότοτ βιτ χ πςοηςαννε. 12*+ (ττSςσ$) - βιτ σπεγςεφινα τεςνιξαμα. συύεστχυΰτ δχα ςεφινα χχοδα σ τεςνιξαμα χ ϊαχισινοστι οτ 12 βιτα JSW. - εσμι βιτ σβςοϋεξ, το πςοιϊχοδιτσρ οβωώξωκ χχοδ σ λμαχιατυςω σιστενξοηο τεςνιξαμα: - χσε ξαβςαξξωε σινχομω οτοβςαφαΰτσρ ξα όλςα- - 52 - ξε (όθο-πεώατψ); - χωπομξρετσρ στιςαξιε στςολι ιμι σινχομα σ πονούψΰ σπεγιαμψξωθ λοναξδ οπεςατοςα ι σοοτχετστχεξξο; - σινχομω τελυύεκ στςολι ξαώξυτ πεςεδαχατψσρ χ πςοηςαννυ πομψϊοχατεμρ τομψλο ποσμε ξαφα- τιρ , , ι ; δο ιθ πορχμεξιρ σινχομω σοβιςαΰτσρ χ σιστενξον βυζεςε τεςνιξαμα. - εσμι βιτ υσταξοχμεξ, το τεςνιξαμ ξαθοδιτσρ χ σπεγ- ςεφινε χχοδα: - ξι οδιξ ιϊ ξαβιςαενωθ σινχομοχ ξε οτοβςα- φαετσρ ξα όλςαξε, λςονε ι ; - ι ξε χωπομξρΰτ σχοιθ ζυξλ- γικ, α πεςεδαΰτσρ χ πςοηςαννυ λαλ οβωώξωε ϊξαλι; - σινχομω πεςεδαΰτσρ χ πςοηςαννυ πομψϊοχατεμρ σςαϊυ, λαλ τομψλο ξαφατα λμαχιϋα ξα σιστεν- ξον τεςνιξαμε. 11+ (σξNIF$) - βιτ λοναξδξοηο ζακμα. εσμι οξ υσταξοχμεξ πςοηςαν- νοκ, το πο ολοξώαξιι εε ςαβοτω χωπομξρετσρ λοναξδ- ξωκ ζακμ. ότοτ βιτ ξεμψϊρ ισπομψϊοχατψ δμρ πςοη- ςανν οπεςατιχξοηο ςαϊδεμα (οπεςατιχξοκ ι σιστεν- ξωθ) πςι ςαβοτε FB/XM-νοξιτοςα. 10+ (VIRτ$) - βιτ χιςτυαμψξοκ πςοηςαννω (τομψλο δμρ θν- νοξιτοςα). οξ δομφεξ βωτψ υσταξοχμεξ πεςεδ ϊαπυσ- λον πςοηςαννω. ότοτ βιτ υσταξαχμιχαετσρ μιβο χο χςενρ ασσενβμιςοχαξιρ (δμρ νοδιζιλαγιι JSW ισπομψ- ϊυετσρ διςελτιχα .ASECT), μιβο χωπομξρετσρ λοςςελ- τιςοχλα ζακμα οβ'ελτξοηο νοδυμρ πςοηςαννω ιμι ζακ- μα εε ϊαηςυϊοώξοηο νοδυμρ σ πονούψΰ πςοηςαννω PAT ιμι SIPP σοοτχετστχεξξο. 9 (οVLY$) - βιτ οχεςμεκξοκ πςοηςαννω. υσταξαχμιχαετσρ λονπο- ξοχύιλον πςι ξαμιώιι οχεςμεκξωθ στςυλτυς. 8+ (σξαIN$) - ότοτ βιτ νοφετ βωτψ ισπομψϊοχαξ δχυνρ σποσοβανι. εσμι χ ϊαηςυϊοώξον νοδυμε ότοτ ςαϊςρδ ξε υσταξοχ- μεξ, το οξ υσταξαχμιχαετσρ νοξιτοςον πςι ϊαηςυϊλε πςοηςαννω ναλςολοναξδοκ .CHAIN ι χ βακτω σ 500 πο 777 ξε πςοιϊχοδιτσρ ϊαπισψ ιξζοςναγιι ιϊ σοοτ- χετστχυΰύιθ ρώεελ ξυμεχοηο βμολα ϊαηςυϊοώξοηο νοδυμρ. ότι ρώεκλι νοφξο ισπομψϊοχατψ δμρ πεςεδαώι ιξζοςναγιι ϊαηςυφαενοκ πςοηςαννε (οβωώξωκ χαςιαξτ). εσμι ότοτ βιτ βωμ υσταξοχμεξ πομψϊοχατε- μεν χ JSW πςοηςαννω πεςεδ εε ϊαηςυϊλοκ ναλςολοναξ- δοκ .CHAIN, το χ ότον σμυώαε χ βακτω σ 500 πο 777 βυδετ πςοιϊχοδιτψσρ ϊαπισψ (τ.ε. ϊαηςυϊλα βυδετ χωπομξρτψσρ αξαμοηιώξο ϊαηςυϊλε πο λοναξδε νοξιτο- ςα R ιμι RUN). - 53 - 7*+ (ξLτεR$) - βιτ οσταξοχα πο οϋιβλε χχοδα/χωχοδα (τομψλο δμρ SJ-νοξιτοςα). εσμι πομψϊοχατεμψ θοώετ πςεςχατψ χωπομξεξιε πςοηςαννω πςι χοϊξιλξοχεξιι οϋιβλι χχοδα/χωχοδα, οξ δομφεξ υσταξοχιτψ ότοτ βιτ. 6*+ (τσχIτ$) - βιτ ϊαπςετα οφιδαξιρ χχοδα/χωχοδα δμρ σιστενξοηο τεςνιξαμα (τομψλο δμρ FB/XM/TS-νοξιτοςα). εσμι βιτ σβςοϋεξ, το πςοηςαννα πςιοσταξαχμιχαετσρ δο χχοδα σινχομα σ τεςνιξαμα. εσμι βιτ υσταξοχμεξ ι χ βυζε- ςε τεςνιξαμα ξετ χχεδεξξωθ σινχομοχ, το οπεςαγιρ ϊαχεςϋαετσρ σ οϋιβλοκ. 3*+ - βιτ ξεϊαχεςϋεξξοκ σιστενξοκ ναλςολοναξδω .GTLIN. ισπομψϊυετσρ ναλςολοναξδοκ .GTLIN δμρ πομυώεξιρ στςολι σ τεςνιξαμα, εσμι οξα οτσυτστχυετ χ λοναξδ- ξον ζακμε. ότοτ βιτ ισπομψϊυετσρ χ ταλιθ σιστενξωθ πςοηςανναθ λαλ LINK, DUP, SRCCOM ι LIBR. οξ υστα- ξαχμιχαετσρ, εσμι χ λοναξδξον ζακμε ινεετσρ στςολα ^C. ξαπςινες, πςι χωπομξεξιι λοναξδξοηο ζακμα χεσψ χχοδ ποσμε ^C βυδετ πςοιϊχοδιτψσρ σ τεςνιξαμα: RUN LINK TEST,TEST=MOD1,LIB/I ^C ςαϊςρδω 5,4,2,1,0 ϊαςεϊεςχιςοχαξω δμρ σιστενξωθ γεμεκ. 6.2. ζιλσιςοχαξξωε σνεύεξιρ ςεϊιδεξτα νοξιτοςα ξελοτοςωε ρώεκλι, σοδεςφαύιε ιξζοςναγιΰ ο σιστενε, χσεηδα ινεΰτ ζιλσιςοχαξξοε πομοφεξιε οτ ξαώαμα RMON. ότι ρώεκλι ξαϊωχαΰτσρ ρώεκλανι σ ζιλσιςοχαξξωνι σνεύεξιρνι. δμρ δοστυπα λ ρώεκλαν σ ζιλσιςοχαξξωνι σνεύεξιρνι ιϊ χωπομξρΰ- ύεκσρ πςοηςαννω ισπομψϊυετσρ σιστενξαρ ναλςολοναξδα .GVAL. ξιφε δαξω ζιλσιςοχαξξωε σνεύεξιρ RMON. ιθ σινχομψξοε οβοϊξαώεξιε ι δμιξα χ βακταθ δαξω χ σλοβλαθ χ χοσψνεςιώξον χιδε. 266 (USRLC, 2) - αδςεσ οβωώξοκ ϊαηςυϊλι USR. ότοτ αδςεσ ισπομψϊυετ- σρ πςι ϊαηςυϊλε USR χ πανρτψ ζοξοχων ϊαδαξιεν, εσμι ρώεκλα 46 σιστενξοκ οβμαστι σχρϊι ςαχξα 0. οπεςατιχξοε ιμι σιστενξοε ϊαδαξιε οβρϊατεμψξο δομφξο οβεσπεώιτψ οβμαστψ χξυτςι πςοηςαννω δμρ σχοπιξηα USR (δμρ FB/XM-νοξιτοςοχ). 270 (QCOMP, 2) - αδςεσ ποδπςοηςαννω ϊαχεςϋεξιρ οπεςαγιι χχοδα/χωχοδα δμρ χσεθ δςακχεςοχ. - 54 - 272 (SPUSR, 2) - σμοχο ισπομψϊυετσρ δςακχεςανι υστςοκστχ, ξε ινεΰ- ύιθ σταξδαςτξυΰ ζακμοχυΰ στςυλτυςυ ςαζοσ, δμρ σοοβύεξιρ νοξιτοςυ ο πορχιχϋιθσρ οϋιβλαθ. 274 (SYUNIT, 2) - σταςϋικ βακτ σοδεςφιτ ξονες υστςοκστχα, σ λοτοςοηο βωμα ϊαηςυφεξα σιστενα. 276 (SYSVεR, 1) - ξονες ςεδαλγιι (χεςσιι) νοξιτοςα. 277 (SYSUςD, 1) - ξονες λοςςελγιι νοξιτοςα. 300 (CONFIG, 2) - σμοχο λοξζιηυςαγιι σιστενω. βιτω ότοηο σμοχα ισπομψϊυΰτσρ δμρ θςαξεξιρ ιξζοςναγιι ο ξαβοςε αππαςατξωθ σςεδστχ ι ο παςανετςαθ νοξιτοςα. ρώεκλα 370 σοδεςφιτ δοπομξιτεμψξυΰ ιξζοςναγιΰ ο σιστενε. 302 (SCROLL, 2) - αδςεσ πςοηςαννω οβσμυφιχαξιρ (σλςομμεςα) ηςαζιώεσ- λοηο δισπμερ σν-7300 (όπη σν) (τομψλο δμρ SJ/FB/XM-νοξιτοςοχ). 304 (ττλS, 2) - αδςεσ ςεηιστςα σοστορξιρ λμαχιατυςω σιστενξοηο τεςνιξαμα (τομψλο δμρ SJ/FB/XM-νοξιτοςοχ). 306 (ττλχ, 2) - αδςεσ βυζεςξοηο ςεηιστςα λμαχιατυςω σιστενξοηο τεςνιξαμα (τομψλο δμρ SJ/FB/XM-νοξιτοςοχ). 310 (ττςS, 2) - αδςεσ ςεηιστςα σοστορξιρ όλςαξα σιστενξοηο τεςνι- ξαμα (τομψλο δμρ SJ/FB/XM-νοξιτοςοχ). 312 (Tτςχ, 2) - αδςεσ βυζεςξοηο ςεηιστςα όλςαξα σιστενξοηο τεςνι- ξαμα (τομψλο δμρ SJ/FB/XM-νοξιτοςοχ). 314 (ναθχLλ, 2) - ναλσιναμψξαρ δμιξα ζακμα, σοϊδαχαενοηο πο ναλςολο- ναξδε .εNτεR, χ λοτοςοκ αςηυνεξτ LEN ςαχεξ 0. πο υνομώαξιΰ ότο ϊξαώεξιε ςαχξο 177777, τ.ε. οηςαξι- ώεξιε ξα δμιξυ ζακμα οτσυτστχυετ. ϊξαώεξιε ότοκ ρώεκλι νοφετ βωτψ ιϊνεξεξο χο χςενρ ςαβοτω πςοη- ςαννω ιμι πςι πονούι πςοηςαννω SIPP. 320 (CNTXT, 2) - υλαϊατεμψ ξα σνεϋαξξυΰ οβμαστψ ϊαδαξιρ, χωπομξρΰ- ύεηοσρ χ δαξξωκ νονεξτ (τομψλο δμρ FB/XM-νοξιτοςοχ). 322 (JOBNUM, 2) - ξονες χωπομξρΰύεηοσρ ϊαδαξιρ (τομψλο δμρ FB/XM/TS-νοξιτοςοχ). - 55 - 320 ($TIME, 4) - χςενρ δξρ (τομψλο δμρ SJ-νοξιτοςα). 324 (SYNσξ, 2) - αδςεσ ποδπςοηςαννω οβςαβοτλι σιστενξοκ ναλςολοναξ- δω .SYNσξ (τομψλο δμρ SJ/FB/XM-νοξιτοςοχ). 326 (LOWMAP, 24) - ξαώαμο λαςτω ϊαύιτω νμαδϋιθ αδςεσοχ πανρτι (σ 0 πο 476) (τομψλο δμρ SJ/FB/XM-νοξιτοςοχ). 352 (USRLOC, 2) - υλαϊατεμψ τελυύεκ τοώλι χθοδα χ USR. οξ ςαχεξ ξυμΰ, εσμι USR ξε ϊαηςυφεξα χ πανρτι. εσμι USR τομψλο ώτο βωμα ϊαηςυφεξα χ πανρτψ, το οξ υλαϊω- χαετ ξα ξαώαμο βυζεςα USRBUF. χο χσεθ οσταμψξωθ σμυώαρθ χ ότοκ ρώεκλε σοδεςφιτσρ αδςεσ ξαώαμα οβμαστι ποστορξξωθ ποδπςοηςανν USR. (τομψλο δμρ SJ/FB/XM-νοξιτοςοχ). 354 (GτVεστ, 2) - αδςεσ χελτοςα πςεςωχαξικ πο οσταξοχυ ηςαζιώεσλοηο δισπμερ σν-7300 (όπη-σν). πο υνομώαξιΰ ςαχεξ 320. (τομψλο δμρ SJ/FB/XM-νοξιτοςοχ). 356 (ERRCNT, 2) - νμαδϋικ βακτ ρχμρετσρ σώετώιλον οϋιβολ. ισπομψ- ϊυετσρ πςι ςαβοτε σιστενξωθ πςοηςανν. σταςϋικ βακτ ξε ισπομψϊυετσρ. (τομψλο δμρ SJ/FB/XM-νοξιτοςοχ). 360 ($ντςS, 2) - αδςεσ ποδπςοηςαννω οβςαβοτλι σιστενξοκ ναλςολοναξ- δω .ντςS. 362 ($νFςS, 2) - αδςεσ ποδπςοηςαννω οβςαβοτλι σιστενξοκ ναλςολοναξ- δω .νFςS. 364 (SYINDX, 2) - ιξδελσ δςακχεςα σιστενξοηο υστςοκστχα χ ταβμιγε υστςοκστχ νοξιτοςα. 370 (σοNFG2, 2) - δοπομξιτεμψξοε σμοχο λοξζιηυςαγιι σιστενω. εηο βιτω ισπομψϊυΰτσρ δμρ υλαϊαξιρ ινεΰύεηοσρ δοπομξι- τεμψξοηο οβοςυδοχαξιρ γεξτςαμψξοηο πςογεσσοςα. 372 (SYSGεN, 2) - σμοχο παςανετςοχ ηεξεςαγιι νοξιτοςα. 374 (USRαRε, 2) - ςαϊνες USR χ βακταθ. πςοηςαννω νοηυτ ισπομψϊοχατψ ότυ ιξζοςναγιΰ δμρ οπςεδεμεξιρ ςαϊνεςα οβμαστι, ξεοβθοδινοκ δμρ σχοπιξηα USR. 406 (MONAME, 4) - χ δχυθ σμοχαθ σοδεςφιτσρ ινρ ζακμα νοξιτοςα (χ λοδε RAD50), ϊαηςυφεξξοηο χ πανρτψ. - 56 - 412 (SUFFIX, 2) - ρώεκλα, σοδεςφιτ σινχομ χ λοδε RADIX-50 (χωςαχξεξ- ξωκ χπςαχο), ισπομψϊυενωκ νοξιτοςον δμρ οπςεδεμε- ξιρ ινεξ δςακχεςοχ υστςοκστχ. 6.2.1. σμοχο λοξζιηυςαγιι σιστενω (σοNFIG) σμοχο λοξζιηυςαγιι σιστενω CONFIG (ινεετ οτξοσιτεμψξοε σνεύεξιε 300) σοδεςφιτ ιξζοςναγιΰ ο ποδλμΰώεξξοκ αππαςατυςε ι ο παςανετςαθ νοξιτοςα. ξιφε πςιχοδιτσρ οπισαξιε βιτοχ σμοχα λοξζιηυςαγιι CONFIG (πο υνομώαξιΰ σώιταετσρ, ώτο βιτ υσταξοχμεξ, ιμι φε ξαϊξαώεξιε βιτα υλαϊωχαετσρ δμρ οβοιθ σμυώαεχ). χ σλοβλαθ υλαϊαξο σινχομψξοε ινρ βιτα. 0 (FBMON$) - εσμι FBMON$=0 πςι FJOB$=0, το ςαβοταετ RM/SJ-νοξιτος. - εσμι FBMON$=1 πςι ννU$=0, το ςαβοταετ FB-νοξιτος. - εσμι FBMON$=1 πςι ννU$=1, το ςαβοταετ XM-νοξιτος. - εσμι FBMON$=0 πςι FJOB$=1, το ςαβοταετ TS-νοξιτος. 2 (ξWDSς$) - ινεετσρ αππαςατυςα ηςαζιώεσλοηο δισπμερ σν-7300 (όπη-σν). 5 (σLλ50$) - εσμι σLλ50$=1, το ισπομψϊυετσρ τακνες σ ώαστοτοκ πςεςωχαξικ 50ηγ. - εσμι σLλ50$=0, το ισπομψϊυετσρ τακνες σ ώαστοτοκ πςεςωχαξικ 60ηγ. 6 (HWFPU$) - πςισυτστχυετ πςογεσσος σ πμαχαΰύεκ ϊαπρτοκ (δμρ σν-1420). 7 (FJOB$) - ϊαηςυφεξα οπεςατιχξαρ πςοηςαννα ιμι σιστενξοε ϊαδαξιε. δμρ TS-νοξιτοςα FJOB$=1. 8 (GτLNλ$) - ισπομψϊυετσρ ηςαζιώεσλικ δισπμεκ (ποσμε λοναξδω Gτ οN). 9 (USR$) - USR ςεϊιδεξτξα χ οπεςατιχξοκ πανρτι (ισπομψϊοχα- μασψ λοναξδα "Sετ USR NοSWας"). 10 - ϊαηςυφεξα σιστενξαρ πςοηςαννα QUEUE. 11 (LSI$) - χ λαώεστχε γεξτςαμψξοηο ισπομψϊυετσρ νιλςοπςογεσ- σος τιπα "όμελτςοξιλα - 60" (ξετ αδςεσυενοηο σμοχα σοστορξιρ πςογεσσοςα). - 57 - 12 (ννU$) - ςαβοταετ θν-νοξιτος. 13 (LλσS$) - τακνες ινεετ ςεηιστς σοστορξιρ. 14 (λW$P) - χ λαώεστχε σιστενξοηο ισπομψϊυετσρ πςοηςαννιςυενωκ τακνες. 15 (σLοσλ$) - χ σοσταχ σιστενω χθοδιτ τακνες. 6.2.2. δοπομξιτεμψξοε σμοχο λοξζιηυςαγιι σιστενω (σοNFG2) δοπομξιτεμψξοε σμοχο λοξζιηυςαγιι σιστενω (οτξοσιτεμψ- ξοε σνεύεξιε 370) υλαϊωχαετ ξα ινεΰύιεσρ δοπομξιτεμψξωε αππαςατξωε σςεδστχα χ λονπμελσε. χσε οπισαξιρ δαξω δμρ υσταξοχμεξξοηο βιτα. 0 (σασξε$) - χ σοσταχ γεξτςαμψξοηο πςογεσσοςα χθοδιτ λόϋ- πανρτψ. 1 (νςτY$) - ισπομψϊυετσρ οπεςατιχξαρ πανρτψ σ λοξτςομεν πο ώετξοστι (σ παςιτετον). 2 (SWRεG$) - πςογεσσος ινεετ ςεηιστς πεςελμΰώατεμεκ (δμρ ώτε- ξιρ). 3 (LIGξτ$) - πςογεσσος ινεετ ςεηιστς ιξδιλατοςοχ (δμρ ϊαπισι). 8 (εIS$) - πςογεσσος ινεετ ςασϋιςεξξωκ ξαβος ιξστςυλγικ (εIS). 9 (Vτ6$0) - χ σοσταχ λονπμελσα χθοδιτ ηςαζιώεσλικ δισπμεκ όπη-2, α ξε όπη σν. 14 (τYς70$) - πςογεσσος δοπυσλαετ 22-ςαϊςρδξυΰ αδςεσαγιΰ οπεςα- τιχξοκ πανρτι. 15 (τYς60$) - πςογεσσος ινεετ πεςεπςοηςαννιςυενωκ νιλςοπςοηςανν- ξωκ βμολ. - 58 - 6.2.3. σμοχο παςανετςοχ ηεξεςαγιι σιστενω (SYSGεN) σμοχο παςανετςοχ ηεξεςαγιι σιστενω σοδεςφιτ ιξζοςναγιΰ ο παςανετςαθ, οπςεδεμρενωθ πςι ηεξεςαγιι σιστενω. χσε οπι- σαξιρ δαξω δμρ υσταξοχμεξξοηο βιτα. 0 (εRL$G) - σβος στατιστιλι ο ςαβοτε οπεςατιχξοκ πανρτι (σ παςιτετον) ι χξεϋξιθ υστςοκστχαθ. 1 (ννG$T) - ισπομψϊοχαξιε αππαςατυςω δισπετώεςα πανρτι. 2 (τIν$Iτ) - ισπομψϊοχαξιε ϊαπςοσοχ δμρ ςαβοτω σ τακνεςον χ δςακχεςαθ. 3 (TSG$T) - ισπομψϊοχαξιε ϋεστοηο ςεηιστςα αδςεσα στςαξιγ δισ- πετώεςα πανρτι χ TS-νοξιτοςε (XM-νοξιτος ισπομψ- ϊυετ πεςχωκ ςεηιστς). 9 (νςτY$) - ισπομψϊοχαξιε πανρτι σ παςιτετον. 10 (τIνεR$) - ςαβοτα σ τακνεςον χ SJ-νοξιτοςε. 13 (MTTY$) - ςαβοτα σ δοπομξιτεμψξωνι τεςνιξαμανι χ SJ/FB/XM-νοξιτοςαθ. 14 - ςαβοτα σ σιστενξωνι ϊαδαξιρνι χ FB/XM-νοξιτοςαθ. πςινεώαξιε. ϊξαώεξιρ πεςχωθ τςεθ βιτοχ δομφξω σοοτ- χετστχοχατψ παςανετςαν, λοτοςωε υσταξαχμιχαΰτσρ πςι τςαξσ- μργιι πομψϊοχατεμψσλιθ δςακχεςοχ. - 59 - 7. σιστενξαρ ναλςοβιβμιοτελα χ δαξξον ςαϊδεμε πςεδσταχμεξω ναλςολοναξδω, λοτοςωε οβεσπεώιχαΰτ δοστυπ πςοηςανναν πομψϊοχατεμρ, ξαπισαξξων ξα ρϊωλε ναλςοασσενβμες, λ νοξιτοςαν ι δςυηιε σεςχισξωε χοϊ- νοφξοστι. χσε ςασσνατςιχαενωε ναλςολοναξδω χ σοοτχετστχιι σ χωπομξρενωνι ζυξλγιρνι ποδςαϊδεμρΰτσρ ξα σμεδυΰύιε ηςυππω: - ναλςολοναξδω ςαβοτω σ λαταμοηανι; - ναλςολοναξδω οπεςαγικ χχοδα/χωχοδα; - ναλςολοναξδω ςαβοτω σ λαξαμανι; - ναλςολοναξδω οβςαβοτλι λοναξδξοκ στςολι; - ναλςολοναξδω ςαβοτω σ τακνεςον; - ναλςολοναξδω οβύεηο ξαϊξαώεξιρ; - ναλςολοναξδω οβνεξα νεφδυ ϊαδαξιρνι (FB/XM); - ναλςολοναξδω δμρ ςαβοτω σ δοπομξιτεμψξωνι τεςνιξα- μανι; - ναλςολοναξδω ςαβοτω σ δςακχεςανι; - ναλςολοναξδω δμρ ςαβοτω σ ςασϋιςεξξοκ πανρτψΰ. χ οτδεμψξωε ηςυππω χωδεμρΰτσρ ναλςολοναξδω, ςαβοταΰύιε τομψλο χ TS-νοξιτοςε: - σμυφεβξωε; - ςεϊιδεξτξωε βιβμιοτελι; - αχτοξονξωε ϊαδαξιρ; - οβνεξ σοοβύεξιρνι; - σςεδστχα ςεαμψξοηο χςενεξι; - ςαϊδεμρενωε ζακμω; - αξαμιϊ όζζελτιχξοστι. 7.1. οπεςαγιι σ λαταμοηανι πςι χωπομξεξιι ναλςολοναξδ, ςαβοταΰύιθ σ λαταμοηανι, ισπομψϊυετσρ USR, οβσμυφιχαΰύαρ λαταμοηοχωε στςυλτυςω ξοσι- τεμεκ, ποότονυ ξεοβθοδινο υώιτωχατψ οηςαξιώεξιρ, σχρϊαξξωε σο σχοπιξηον. οβωώξο σχοπιξη πςοισθοδιτ πο υνομώαξιΰ, ξο συύεστχυετ χοϊνοφξοστψ οπτινιϊιςοχατψ πςοηςαννυ ταλ, ώτο λομιώεστχο ξεοβθοδινωθ οβνεξοχ σχεδετσρ λ νιξινυνυ. δμρ χωπομξεξιρ ναλςολοναξδ ςαβοτω σ λαταμοηανι ταλφε ξεοβθοδινο, ώτοβω δςακχεςω οβσμυφιχαενωθ υστςοκστχ βωμι ϊαηςυφεξω χ οπεςατιχξυΰ πανρτψ. - 60 - 7.1.1. ναλςολοναξδα .σLοSε σιστενξαρ ναλςολοναξδα .σLοSε ϊαχεςϋαετ ςαβοτυ σ υλα- ϊαξξων λαξαμον (ϊαλςωχαετ λαξαμ) ι τεν σανων οσχοβοφδαετ εηο δμρ δςυηιθ οπεςαγικ. ζοςνατ ναλςολοναξδω: .σLοSε σξαN ηδε CHAN - ξονες λαξαμα, λοτοςωκ ξεοβθοδινο ϊαλςωτψ. ζοςνατ ςεηιστςα R0: !--------!--------! R0 = ! 6 ! CHAN ! !--------!--------! εσμι υλαϊαξξωκ λαξαμ σξαN ξε οτλςωτ, ναλςολοναξδα ιηξοςιςυετσρ. ναλςολοναξδα .σLοSε πςεδξαϊξαώεξα δμρ ζακμα, οτλςωτοηο σ πονούψΰ ναλςολοναξδω .ENTER. χ ςεϊυμψτατε εε χωπομξεξιρ υλαϊαξξωκ ζακμ σταξοχιτσρ ποστορξξων ξα υστςοκστχε, σοοτ- χετστχυΰύεν υλαϊαξξονυ λαξαμυ, ι χ λαταμοη ϊαξοσιτσρ ιξζος- ναγιρ ο ξεν (ινρ, τιπ, δατα σοϊδαξιρ). πςι ότον ζακμ σ ταλιν φε ινεξεν, υφε ινεΰύικσρ ξα ότον υστςοκστχε, ιϊ λατα- μοηα ισλμΰώαετσρ. εσμι ξα υστςοκστχε υφε συύεστχυετ ϊαύιύεξξωκ ζακμ σ αξαμοηιώξων ινεξεν, το ϊαλςωτιε ζακμα πςοισθοδιτ, ξο πορχ- μρετσρ δχα ζακμα σ οδιξαλοχωνι ινεξανι. δμιξα ζακμα, ϊαλςωτοηο ναλςολοναξδοκ .σLοSε, οπςεδε- μρετσρ λομιώεστχον ϊαπομξεξξωθ βμολοχ. οβωώξο δμρ χωπομξεξιρ ναλςολοναξδω .CLOSE ξεοβθοδινο πςισυτστχιε χ πανρτι USR. οδξαλο, ζακμ, οτλςωτωκ σ πονούψΰ .LοολUς, ξε τςεβυετ ξιλαλιθ πςεοβςαϊοχαξικ χ λαταμοηε πο ναλςολοναξδε .CLOSE, ποότονυ ξετ ξεοβθοδινοστι χ ισπομψϊο- χαξιι USR. ισπομψϊοχαξιε .CLOSE οβρϊατεμψξο δμρ υστςοκστχ σ ζακ- μοχοκ οςηαξιϊαγιεκ τιπα ναηξιτξοκ μεξτω. οϋιβλι: λοδ πορσξεξιε -3 ξα υστςοκστχε συύεστχυετ ϊαύιύεξξωκ ζακμ σ υλαϊαξξων ινεξεν. - 61 - πςινεώαξιε. σμεδυετ πονξιτψ, ώτο πςι οτσυτστχιι δςακ- χεςα σοοτχετστχυΰύεηο υστςοκστχα χ πανρτι, χοϊξιλαετ οϋιβλα νοξιτοςα. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .SPFUN (π. 7.2.7). 7.1.2. ναλςολοναξδα .DεLετε ναλςολοναξδα .DεLετε οτνεώαετ ζακμ χ λαταμοηε υστ- ςοκστχα δμρ υδαμεξιρ. νεστο ξα υστςοκστχε, λοτοςοε οξ ϊαξι- ναμ σώιταετσρ σχοβοδξων ι τυδα νοφετ βωτψ ϊαπισαξ μΰβοκ δςυηοκ ζακμ. ότα ναλςολοναξδα ξεδοπυστινα δμρ ναηξιτξοκ μεξτω. ζοςνατ ναλςολοναξδω: .DεLετε αRεα,σξαN,DχLλ,SεGNUν ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ τςεθ σμοχ; CHAN - ξονες λαξαμα; DBLK - βμολ υστςοκστχα; SEGNUM - ξονες ζακμα πςι οπεςαγιρθ σ λασσετανι, εσμι ότοτ αςηυνεξτ πςοπυύεξ, ενυ πςισχαιχαετσρ ϊξαώεξιε 0. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 0 ! CHAN ! !--------!--------! ! DBLK ! !-----------------! ! SEGNUM ! !-----------------! ναλςολοναξδα .DεLετε ιηξοςιςυετσρ, εσμι υλαϊαξο υστ- ςοκστχο σ ξεζακμοχοκ στςυλτυςοκ. δςακχες υστςοκστχα, σοδεςφαύεηο ζακμ, δομφεξ βωτψ ϊαη- ςυφεξ χ πανρτψ λ νονεξτυ χωπομξεξιρ ναλςολοναξδω. πςινεώαξιε. λαξαμ, υλαϊαξξωκ χ ναλςολοναξδε, δομφεξ βωτψ σχοβοδεξ. λοηδα χωπομξεξιε ναλςολοναξδω ϊαχεςϋεξο, λαξαμ οσχοβοφδαετσρ. - 62 - οϋιβλι: λοδ πορσξεξιε 0 λαξαμ ϊαξρτ; 1 ζακμ χ λαταμοηε υστςοκστχα ξε ξακδεξ; 2 ξεδοπυστιναρ οπεςαγιρ δμρ δαξξοηο υστςοκστχα; 3 ζακμ ϊαύιύεξ οτ υδαμεξιρ. πςινες. .MCALL .LOOKUP,.EXIT .MCALL .DELETE,.PRINT ERRWD = 52 ST: .LOOKUP #AREA,#3,#FILE1 ;οτλςωτψ ζακμ πο BCS NLO ;λαξαμυ 3 .PRINT #MSG1 .DELETE #AREA,#3,#FILE1 ;υδαμιτψ εηο BCS NDE1 .PRINT #MSG2 .EXIT AREA: .BLKW 10 FILE1: .RAD50 /SY ABC / .RAD50 /TXT/ NLO: .PRINT #NOLO .EXIT NDE: .PRINT #NODE .EXIT NDE1: .TSTB @#ERRWD ;οπςεδεμεξιε λοδα οϋιβλι BNE NDE .PRINT #NODE1 .EXIT NODE: .ASCIZ /ζακμ ξε ξακδεξ/ νSG1: .ASCIZ /λαξαμ οτλςωτ/ NOLO: .ASCIZ /οϋιβλα LOOKUP/ NODE1: .ASCIZ /λαξαμ ϊαξρτ/ MSG2: .ASCIZ /ζακμ ABσ.TXT υδαμεξ/ .εVEN .END ST 7.1.3. ναλςολοναξδα .ENTER ναλςολοναξδα .ENTER σοϊδαετ χςενεξξωκ ζακμ σ υλαϊαξξων ινεξεν ξα ϊαδαξξον υστςοκστχε. υλαϊαξξωκ ξονες λαξαμα σχρ- ϊωχαετσρ σ ζακμον. ζακμ σταξοχιτσρ ποστορξξων τομψλο ποσμε χωπομξεξιρ ναλςολοναξδω .CLOSE. εσμι συύεστχοχαμ ποστορξξωκ ζακμ σ τεν φε ινεξεν, το οξ υδαμρετσρ, α ότο ινρ πομυώαετ χξοχψ σοϊ- δαξξωκ ζακμ. ζαλτιώεσλαρ δμιξα ζακμα οπςεδεμρετσρ πςι - 63 - χωπομξεξιι .CLOSE. ποσμε χωπομξεξιρ ναλςολοναξδω .ENTER R0 σοδεςφιτ ζαλ- τιώεσλικ ςαϊνες οβμαστι ξοσιτεμρ, δοστυπξοκ δμρ ζακμα. εσμι υστςοκστχο ρχμρετσρ βεσλαταμοηοχων, το R0 σοδεςφιτ 0. ζοςνατ ναλςολοναξδω: .ENTER AREA,CHAN,DBLK,LEN,SEGNUM ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMτ ιϊ ώετωςεθ σμοχ; CHAN - ξονες λαξαμα; DBLK - βμολ υστςοκστχα; LEN - ςαϊνες ζακμα, λοτοςωκ νοφετ πςιξινατψ σμεδυΰύιε ϊξαώεξιρ: 0 - πςεδοσταχμρετσρ 1/2 ξαιβομψϋεκ σχοβοδξοκ οβμαστι, μιβο χτοςαρ πο χεμιώιξε σχοβοδξαρ οβμαστψ γεμιλον; M - πςεδσταχμρετσρ "ν" βμολοχ; χεμιώιξα "ν" υλαϊωχαετσρ πομψϊοχατεμεν; -1 - ξαιβομψϋαρ σχοβοδξαρ οβμαστψ ξα υστςοκστχε; SEGNUM - πςι ςαβοτε σ λασσετανι οϊξαώαετ ξονες ζακμα; εσμι οξ οπυύεξ, πςιξιναετσρ ξυμεχοε ϊξαώεξιε; πςι ςαβο- τε σ ναηξιτξωνι μεξτανι ότοτ αςηυνεξτ νοφετ πςιξι- νατψ σμεδυΰύιε ϊξαώεξιρ: 0 - πεςενοτλα ναηξιτξοκ μεξτω χ ξαώαμο, α ϊατεν χπεςεδ, δο τεθ πος πολα ξε βυδετ ξακδεξο ινρ ζακμα ιμι πολα ξε βυδετ οβξαςυφεξα νετ- λα μοηιώεσλοηο λοξγα ναηξιτξοκ μεξτω (LEOT); N - ποϊιγιοξιςοχαξιε ναηξιτξοκ μεξτω ξα ξαώαμο ζακμα σ ποςρδλοχων ξονεςον "N"; αμηοςιτν ποϊιγιοξιςοχαξιρ: εσμι "N" βομψϋε, ώεν "λ" (ξονες ζακμα, ξα λοτοςον υσταξοχμεξα μεξτα χ τελυύικ νονεξτ), το ποισλ πςοιϊχοδιτσρ οτ ότοηο πομοφεξιρ λ LEOT; εσμι "N" νεξψϋε "λ", το πςοιϊοκδετ πεςενοτλα μεξτω ξα ξαώα- μο, α ϊατεν βυδετ χωπομξρτψσρ ποισλ; χ σμυ- ώαε, εσμι "N" μιϋψ ξα εδιξιγυ νεξψϋε "λ", το πςοισθοδιτ οβςατξαρ πεςενοτλα ξα ξαώαμο ότοηο ("N"-ηο) ζακμα; -1 - πεςενοτλα δο νετλι LEOT ι οτλςωτιε ζακμα; -2 - πεςενοτλα ναηξιτξοκ μεξτω ξα ξαώαμο ι πςοδ- χιφεξιε χπεςεδ δο τεθ πος, πολα ξε βυδετ ξακδεξο ινρ ζακμα ιμι νετλα LEOT. - 64 - ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 2 ! CHAN ! !--------!--------! ! DBLK ! !-----------------! ! LEN ! !-----------------! ! SEGNUM ! !-----------------! υλαϊωχαρ ξυμεχοε ϊξαώεξιε αςηυνεξτα "LEN" χ ναλςολο- ναξδε .εNTER ξεοβθοδινο ινετψ χχιδυ, ώτο ξαϊξαώαετσρ πομο- χιξα ξαιβομψϋεκ οβμαστι, τ.ε., εσμι ξα υστςοκστχε ξαιβομψ- ϋαρ σχοβοδξαρ οβμαστψ σοσταχμρετ 200 βμολοχ, α δμιξα ζακμα, ποδμεφαύεηο πεςεδαώε, 150 βμολοχ, το πεςεδαώα σ αςηυνεξτον LEN=0 ξεχοϊνοφξα, τ.λ. ναλςολοναξδα .ENTER πςεδοσταχιτ τομψλο 100 βμολοχ. χο χςενρ πεςεδαώι πορχιτσρ οϋιβλα χχοδα/χωχοδα. οδξαλο, εσμι σ πονούψΰ αςηυνεξτα LEN=150 ϊατ- ςεβοχαξα δμιξα χ 150 βμολοχ, το πεςεδαώα πςοκδετ βεϊ οϋι- βολ. ϊα ότιν οβστορτεμψστχον οσοβεξξο ξεοβθοδινο σμεδιτψ πςι λοπιςοχαξιι ξα υστςοκστχα, ινεΰύιε ναμωκ οβ'εν, ξαπςι- νες, DX:. πςινεώαξιε. ναλςολοναξδα .ENTER τςεβυετ, ώτοβω δςακχες υστςοκστχα ξαθοδιμσρ χ πανρτι πεςεδ εε χωπομξεξιεν. ποότονυ ξεοβθοδινο πεςεδ .ENTER, ξαπςινες, χωπομξιτψ ναλςολοναξδυ .FETCH. οϋιβλι: λοδ πορσξεξιε 0 λαξαμ ϊαξρτ; 1 πςι ισπομψϊοχαξιι Mαλςολοναξδω σ ζιλσιςοχαξξοκ δμιξοκ "LEN" ξε ξακδεξα οβμαστψ, βομψϋαρ ιμι ςαχξαρ "LEN", ιμι λαταμοη υστςοκστχα ολαϊαμσρ ϊαπομξεξξων. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .WRITW (ποδ- πυξλτ 7.2.5.3). 7.1.4. ναλςολοναξδα .RεNανε ότα σιστενξαρ ναλςολοναξδα ιϊνεξρετ ινρ υλαϊαξξοηο ζακμα. εσμι ξα υστςοκστχε υφε συύεστχυετ ζακμ σ τεν φε ινε- ξεν, το οξ υδαμρετσρ. ζοςνατ ναλςολοναξδω: .RεNανε αRεα,σξαN,DχLλ - 65 - ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ δχυθ σμοχ; σξαN - ξονες λαξαμα; DχLλ - βμολ, σοδεςφαύικ δχε ποσμεδοχατεμψξωε σπεγιζιλαγιι ζακμοχ, πςι ότον πεςχωε ώετωςε σμοχα πςεδξαϊξαώεξω δμρ ζακμα, υ λοτοςοηο βυδετ ιϊνεξρτψσρ ινρ, ποσμε- δυΰύιε - δμρ ξοχοηο ινεξι. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 4 ! CHAN ! !--------!--------! ! DBLK ! !-----------------! ναλςολοναξδα .RENAME δεκστχιτεμψξα τομψλο δμρ λαταμο- ηοχωθ υστςοκστχ; δμρ οσταμψξωθ υστςοκστχ οξα ιηξοςιςυετσρ. πςινεώαξιε. πο ϊαχεςϋεξιι .RENAME λαξαμ CHAN βυδετ σχοβοδεξ. οϋιβλι: λοδ πορσξεξιε 0 λαξαμ ϊαξρτ; 1 ζακμ ξε ξακδεξ; 2 ξεδοπυστιναρ οπεςαγιρ δμρ υλαϊαξξοηο υστςοκστχα; 3 ξα υστςοκστχε εστψ ϊαύιύεξξωκ ζακμ σ υλαϊαξξων ινεξεν. χ σμεδυΰύεν πςινεςε ζακμ DATA.TMP ξα DX0: πεςεινεξοχω- χαετσρ χ ζακμ DATA.CNT. πςινες. .MCALL .FETCH,.PRINT,.EXIT,.RENAME ST: .FETCH #HSPACE,#NAMBLK ;ϊαηςυϊιτψ δςακχες DX BCS FEER .RENAME #AREA,#0,#NAMBLK ;σδεματψ πεςεινεξοχαξιε BCS RENER .EXIT FEER: .PRINT #FMSG .EXIT RENER: .PRINT #RNMSG .EXIT AREA: .BLKW 2 ;οβμ. αςηυνεξτοχ εντ NAMBLK:.RAD50 /DX0DATA TMP/ ;σταςοε ινρ - 66 - .RAD50 /DX0DATA CNT/ ;ξοχοε ινρ FMSG: .ASCIZ /οϋιβλα .FETCH/ RNMSG: .ASCIZ /οϋιβλα .RENAME/ .εVEN HSPACE = . .END ST 7.1.5. ναλςολοναξδα .LOOKUP ναλςολοναξδα .LOOKUP σχρϊωχαετ υλαϊαξξωκ λαξαμ σ υστ- ςοκστχον ι/ιμι ζακμον δμρ χωπομξεξιρ οπεςαγικ χχοδα/χωχοδα. ώτοβω οσχοβοδιτψ λαξαμ δμρ δςυηιθ οπεςαγικ, ξεοβθοδινο χωπομξιτψ οδξυ ιϊ ναλςολοναξδ: .CLOSE .SAVESTATUS .SRESET .HRESET .PURGE .CSIGEN (οσχοβοδιτ χσε λαξαμω σ ξονεςανι 0-10) ζοςνατ ναλςολοναξδω: .LOOKUP AREA,CHAN,DBLK[,SEGNUM] (ζοςνα 1) .LOOKUP AREA,CHAN,JOBBLK[,SEGNUM] (ζοςνα 2) ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ τςεθ σμοχ; CHAN - ξονες λαξαμα; DBLK - βμολ υστςοκστχα; SEGNUM - πςι οπεςαγιρθ σ λασσετανι οϊξαώαετ ξονες ζακμα; εσμι αςηυνεξτ πςοπυύεξ, το εηο ϊξαώεξιε πςεδπομα- ηαετσρ ςαχξων 0; πςι οπεςαγιρθ σ ναηξιτξωνι μεξτα- νι αςηυνεξτ οϊξαώαετ σμεδυΰύεε: -1 - ποισλ ινεξι ζακμα οτ τελυύεηο πομοφεξιρ; εσμι οξο χ δαξξωκ νονεξτ ξεοπςεδεμεξο, το δςακχες βυδετ χωπομξρτψ αμηοςιτν ποϊιγιοξι- ςοχαξιρ, λοτοςωκ χωϊοχετ οβςατξυΰ πεςενοτ- λυ, δο τεθ πος, πολα ξε βυδετ ξακδεξα νετλα "EOF"; 0 - πςρναρ πεςενοτλα ναηξιτξοκ μεξτω οτ ξαώαμα χπεςεδ δο τεθ πος, πολα ξε βυδετ ξακδεξο ινρ ζακμα ιμι LEOT; N - μΰβοε πομοφιτεμψξοε ώισμο; οξο οϊξαώαετ υσταξοχλυ μεξτω ξα ζακμ σ ποςρδλοχων ξονε- ςον "N"; αμηοςιτν ποϊιγιοξιςοχαξιρ πςιχεδεξ χ οπισαξιι ναλςολοναξδω .ENTER. - 67 - JOBBLK - ινρ ϊαδαξιρ δμρ οβνεξα ιξζοςναγιεκ, σοστορύεε ιϊ ώετωςεθ σμοχ: .RAD50 /MQ/ .ASCII /NAME/ - μοηιώεσλοε ινρ ϊαδαξιρ δομφξο σοδεςφατψ οτ 1 δο 6 σινχομοχ; ξεδοσταΰύιε σινχομω ινεξι δοπομξρΰτσρ ξυμρνι; εσμι μοηιώεσλοε ινρ οπυύεξο (τ. ε. σοδεςφιτ οδξι ξυμι), το λαξαμ βυδετ οτλςωτ δμρ ώτεξιρ ιϊ μΰβοηο ϊαδαξιρ. πεςχαρ ζοςνα υσταξαχμιχαετ σχρϊψ νεφδυ λαξαμον ι υστ- ςοκστχον ιμι συύεστχυΰύιν ζακμον. χτοςαρ ζοςνα σχρϊωχαετ λαξαμ σ δςυηιν ϊαδαξιεν δμρ οβνεξα ιξζοςναγιεκ χ FB/θν-νοξιτοςαθ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT (ζοςνα 1): !--------!--------! R0 => AREA: ! 1 ! CHAN ! !--------!--------! ! DBLK ! !-----------------! ! SEGNUM ! !-----------------! σμεδυετ πονξιτψ, ώτο οχεςμεκξαρ πςοηςαννα ισπομψϊυετ 15-κ λαξαμ δμρ ώτεξιρ πεςελςωτικ. πεςεδ χωπομξεξιεν .LOOKUP δςακχες δομφεξ ξαθοδιτψσρ χ πανρτι. ποσμε ϊαχεςϋεξιρ ναλςο- λοναξδω ςεηιστς R0 σοδεςφιτ δμιξυ οτλςωτοηο ζακμα χ βμολαθ ιμι 0 δμρ βεσλαταμοηοχωθ υστςοκστχ. οϋιβλι: λοδ πορσξεξιε 0 λαξαμ ϊαξρτ; 1 υλαϊαξξωκ ζακμ χ λαταμοηε ξε ξακδεξ. χ πςινεςε πολαϊαξο ισπομψϊοχαξιε ναλςολοναξδω .LOOKUP. οπςεδεμρετσρ, συύεστχυετ μι ξα υστςοκστχε DK: ςαβοώικ ζακμ, σοδεςφαύικ οώεςεδψ ζακμοχ ξα χωχοδ λ υλαϊαξξονυ υστςοκστχυ. εσμι ταλοκ ζακμ συύεστχυετ, το εηο ςαϊνες χωχοδιτσρ ξα τες- νιξαμ (χ βμολαθ). πςινες. .TITLE LOOKUP.MAC .MCALL .LOOKUP,.PRINT,.EXIT START: .LOOKUP #AREA,#0,#QUSPEC BCC 1$ .PRINT #NOFIL .EXIT 1$: MOV #SIZE,R1 - 68 - JSR PC,CNV10 .PRINT #BUFF .EXIT CNV10: MOV R0,-(SP) CLR R0 1$: INC R0 SUB #10.,@SP BGE 1$ ADD #72,@SP DEC R0 BEQ 2$ CALL CNV10 2$: MOVB (SP)+,(R1)+ RTS PC AREA: .BLKW 3 QUESPEC: .RAD50 /DK QUFILE/ .RAD50 /TMP/ BUFF: .ASCII /DK:QUFILE.TMP = / SIZE: .ASCIZ / BLOCKS/ NOFIL: .ASCIZ /?ξε ξακδεξ ζακμ DK:QUFILE.TMP ?/ .EVEN .END START ζοςνατ ταβμιγω αςηυνεξτοχ EMT (ζοςνα 2): !--------!--------! R0 => AREA: ! 1 ! CHAN ! !--------!--------! ! JOBBLK ! !-----------------! ! SEGNUM ! !-----------------! οϋιβλι: λοδ πορσξεξιε 0 λαξαμ ϊαξρτ; 1 υλαϊαξξοε ϊαδαξιε ξε ξακδεξο. χ σμεδυΰύεν πςινεςε ναλςολοναξδα .LOOKUP οτλςωχαετ λαξαμ δμρ σιστενξοηο ϊαδαξιρ QUEUE.REL, ισπομψϊυενοηο τομψ- λο χ FB/Xν-νοξιτοςαθ. - 69 - πςινες. .TITLE SJLOOK.MAC .MCALL .LOOKUP,.PRINT,.EXIT .MCALL .WRITW,.READW START .LOOKUP #AREA,#0,#QMSG BCC 1$ .PRINT #NOJOB .EXIT 1$: .WRITW #AREA,#0,#RMSG,#6 BCS 2$ .PRINT #QRUN .EXIT 2$: .PRINT #MSGERR .EXIT AREA: .BLKW 5 QMSG: .RAD50 /MQ/ .ASCIZ /QUEUE/ .WORD 0,0 RMSG: .WORD 0 .ASCII /SJLOOK/ MSGERR: .ASCIZ /?οϋιβλα?/ NOJOB: .ASCIZ /?QUEUE ξε ϊαηςυφεξα?/ QRUN: .ASCIZ /!QUEUE ϊαηςυφεξα!/ .EVEN .END START 7.2. οπεςαγιι χχοδα/χωχοδα 7.2.1. ναλςολοναξδω .RεαD/.RεαDC/.RεαDW δαξξωε ναλςολοναξδω οβεσπεώιχαΰτ πεςεδαώυ υλαϊαξξοηο λομιώεστχα σμοχ πο ϊαδαξξονυ λαξαμυ χ πανρτψ χ οδξον ιϊ τςεθ ςεφινοχ. ποσμε χωπομξεξιρ μΰβοκ ναλςολοναξδω τιπα .RεαD ςεηιστς R0 βυδετ σοδεςφατψ πομεϊξυΰ ιξζοςναγιΰ. εσμι σώιτωχαξιε πςοιϊχοδιτσρ σ υστςοκστχα ποσμεδοχα- τεμψξοηο δοστυπα, το R0 σοδεςφιτ τςεβυενοε δμρ οπεςαγιι ώισμο σμοχ. πςι οβσμυφιχαξιι υστςοκστχ σ πςρνων δοστυπον R0 σοδεςφιτ ζαλτιώεσλοε λομιώεστχο σμοχ, λοτοςοε βυδετ σώιταξο (.RεαD, .RεαDσ) ιμι βωμο σώιταξο (.RεαDW). εσμι σδεμαξα ποπωτλα σώιτωχαξιρ ποσμε λοξγα ζακμα, το ώαστιώξαρ πεςεδαώα χσε φε χοϊνοφξα, ξο ότο λομιώεστχο σμοχ (ταλφε οτςαφαενοε χ R0) βυδετ νεξψϋε, ώεν τςεβυετσρ. χ σμυ- ώαε ώαστιώξοκ πεςεδαώι υσταξαχμιχαετσρ βιτ "σ", ι χωδαετσρ λοδ οϋιβλι 0. ποότονυ πςοηςαννα χσεηδα δομφξα ισπομψϊοχατψ σχεδεξιρ ο ζαλτιώεσλον ώισμε πςιξρτωθ σμοχ, σοδεςφαύιθσρ χ R0. ξαπςινες, εσμι δμρ ζακμα δμιξοκ χ σενψ βμολοχ, ινεΰύεηο - 70 - ξονεςα βμολοχ σ 0 πο 6 χωπομξρετσρ ναλςολοναξδα ξα ώτεξιε 512 σμοχ, ξαώιξαρ σ βμολα 6, το σώιτωχαετσρ τομψλο 256 σμοχ ι υσταξαχμιχαεχαετσρ βιτ "σ" (λοδ οϋιβλι 0 χ ERRWD). οϋιβλι οδιξαλοχω δμρ χσεθ τςεθ ςεφινοχ: λοδ πορσξεξιε 0 ποπωτλα σώιτωχαξιρ ποσμε λοξγα ζακμα; 1 οϋιβλα αππαςατυςω; 2 λαξαμ ξε οτλςωτ. 7.2.1.1. ναλςολοναξδα .RεαD ναλςολοναξδα .READ χωπομξρετ πεςεδαώυ δαξξωθ πο υλα- ϊαξξονυ λαξαμυ χ πανρτψ. ποσμε τοηο, λαλ ϊαπςοσ υσταξοχμεξ χ οώεςεδψ λ σοοτχετστχυΰύενυ δςακχεςυ, υπςαχμεξιε ξενεδμεξ- ξο πεςεδαετσρ πςοηςαννε πομψϊοχατεμρ. ξαϊξαώεξιε λαξαμα πςοιϊχοδιτσρ σ πονούψΰ ναλςολοναξδ .LοολUς ι .εNτεR. ζοςνατ ναλςολοναξδω: .RεαD αRεα,σξαN,χUF,WσNτ,χLλ ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ 5 σμοχ; σξαN - ξονες λαξαμα; χUF - αδςεσ βυζεςα, λυδα πονεύαΰτσρ δαξξωε; WσNτ - δμιξα βυζεςα χ σμοχαθ; χLλ - ξονες βμολα, λοτοςωκ δομφεξ βωτψ σώιταξ; δμρ υστ- ςοκστχ σ λαταμοηοχοκ οςηαξιϊαγιεκ - ότο βμολ οτξο- σιτεμψξο ξαώαμα ζακμα; εσμι υστςοκστχο σ βεσλατα- μοηοχοκ οςηαξιϊαγιεκ (ναηξιτξωε μεξτω, λασσετω), το ότο ξονες αβσομΰτξοηο βμολα ξα υστςοκστχε; πομψϊοχατεμψ δομφεξ σαν ιϊνεξρτψ ότοτ αςηυνεξτ πεςεδ οώεςεδξων ισπομψϊοχαξιεν δαξξοκ ναλςολοναξ- δω. - 71 - ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 10 ! CHAN ! !--------!--------! ! BLK ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! 1 ! !-----------------! πςινεώαξιε. δμρ ισπομψϊοχαξιρ σώιταξξωθ δαξξωθ ςελο- νεξδυετσρ χωπομξιτψ ναλςολοναξδυ .WαIτ, λοτοςαρ πεςεχοδιτ πςοηςαννυ χ σοστορξιε οφιδαξιρ δο ϊαχεςϋεξιρ οπεςαγιι χχοδα/χωχοδα. ναλςολοναξδα .WAIT ταλφε χοϊχςαύαετ οϋιβλι, λοτοςωε νοηυτ πορχιτψσρ χο χςενρ πεςεδαώι. 7.2.1.2. ναλςολοναξδα .RεαDσ ναλςολοναξδα πεςεδαετ ξεοβθοδινοε ώισμο σμοχ πο υλα- ϊαξξονυ λαξαμυ χ πανρτψ. υπςαχμεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊοχατεμρ σςαϊυ ποσμε τοηο, λαλ ϊαπςοσ ποσταχμεξ χ οώε- ςεδψ. πςοηςαννα πομψϊοχατεμρ πςοδομφαετ χωπομξρτψσρ δο ολοξώαξιρ χχοδα δαξξωθ, ϊατεν υπςαχμεξιε πεςεδαετσρ ποδπ- ςοηςαννε ϊαχεςϋεξιρ, υλαϊαξξοκ χ ναλςολοναξδε. ποσμε χωπομ- ξεξιρ ιξστςυλγιι RτS ςσ χ ποδπςοηςαννε ϊαχεςϋεξιρ υπςαχμε- ξιε χοϊχςαύαετσρ πςεςχαξξοκ πςοηςαννε. ζοςνατ ναλςολοναξδω: .RεαDσ αRεα,σξαN,χUF,WσNτ,σRτN,χLλ ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ 5 σμοχ; σξαN - ξονες λαξαμα; χUF - αδςεσ βυζεςα, λυδα πονεύαΰτσρ δαξξωε; WσNτ - δμιξα βυζεςα χ σμοχαθ; σRτN - αδςεσ ποδπςοηςαννω ϊαχεςϋεξιρ; χLλ - ξονες βμολα, λοτοςωκ δομφεξ βωτψ σώιταξ; δμρ υστ- ςοκστχ σ λαταμοηοχοκ οςηαξιϊαγιεκ - ότο βμολ οτξο- σιτεμψξο ξαώαμα ζακμα; εσμι υστςοκστχο σ βεσλατα- μοηοχοκ οςηαξιϊαγιεκ (ναηξιτξωε μεξτω, λασσετω), το ότο ξονες αβσομΰτξοηο βμολα ξα υστςοκστχε; πομψϊοχατεμψ δομφεξ σαν ιϊνεξρτψ ότοτ αςηυνεξτ πεςεδ οώεςεδξων ισπομψϊοχαξιεν δαξξοκ ναλςολοναξ- - 72 - δω. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 10 ! CHAN ! !--------!--------! ! BLK ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! CRTN ! !-----------------! πςι χθοδε χ ποδπςοηςαννυ ϊαχεςϋεξιρ: - R0 σοδεςφιτ σμοχο σοστορξιρ λαξαμα; υσταξοχμεξξωκ χ ξεν βιτ 0 οϊξαώαετ χοϊξιλϋυΰ πςι πεςεδαώε αππα- ςατξυΰ οϋιβλυ; - R1 σοδεςφιτ χοσψνεςιώξωκ ξονες λαξαμα; εηο υδοβξο ισπομψϊοχατψ, λοηδα οδξα ι τα φε ποδπςοηςαννα ϊαχεςϋεξιρ πςινεξρετσρ δμρ ςαβοτω σ ξεσλομψλινι λαξαμανι. πςινεώαξιε. χ ποδπςοηςανναθ ϊαχεςϋεξιρ ξεδοπυστινο ισπομψϊοχαξιε ναλςολοναξδ, τςεβυΰύιθ USR. 7.2.1.3. ναλςολοναξδα .RεαDW ότα ναλςολοναξδα πεςεδαετ υλαϊαξξοε λομιώεστχο σμοχ πο οπςεδεμεξξονυ λαξαμυ χ πανρτψ. υπςαχμεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊοχατεμρ τομψλο ποσμε ϊαχεςϋεξιρ οπεςαγιι ώτεξιρ ιμι πςι οβξαςυφεξιι οϋιβλι. ζοςνατ ναλςολοναξδω: .RεαDW αRεα,σξαN,χUF,WσNτ,χLλ ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ 5 σμοχ; σξαN - ξονες λαξαμα; χUF - αδςεσ βυζεςα, λυδα πονεύαΰτσρ δαξξωε; WσNτ - δμιξα βυζεςα χ σμοχαθ; χLλ - ξονες βμολα, λοτοςωκ δομφεξ βωτψ σώιταξ; δμρ υστ- ςοκστχ σ λαταμοηοχοκ οςηαξιϊαγιεκ - ότο βμολ οτξο- σιτεμψξο ξαώαμα ζακμα; εσμι υστςοκστχο σ βεσλατα- - 73 - μοηοχοκ οςηαξιϊαγιεκ (ναηξιτξωε μεξτω, λασσετω), το ότο ξονες αβσομΰτξοηο βμολα ξα υστςοκστχε; πομψϊοχατεμψ δομφεξ σαν ιϊνεξρτψ ότοτ αςηυνεξτ πεςεδ οώεςεδξων ισπομψϊοχαξιεν δαξξοκ ναλςολοναξ- δω. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 10 ! CHAN ! !--------!--------! ! BLK ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! 0 ! !-----------------! εσμι ποσμε χωπομξεξιρ ναλςολοναξδω .RεαDW υσταξοχμεξ σ βιτ, ότο οϊξαώαετ, ώτο πςοιϊοϋμα οϋιβλα πεςεδαώι. χ το χςε- νρ λαλ πςοηςαννα, χωπομξρΰύαρ ναλςολοναξδυ, οφιδαετ χχοδα/χωχοδα, χ σιστενε νοφετ χωπομξρτψσρ δςυηαρ (ζοξοχαρ ιμι οπεςατιχξαρ) πςοηςαννα. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .WRITW (ποδ- πυξλτ 7.2.5.3). 7.2.2. ναλςολοναξδω .ττYIN/.ττINR ότι σιστενξωε ναλςολοναξδω πςοιϊχοδρτ πεςεδαώυ ϊξαλοχ σ σιστενξοηο τεςνιξαμα χ πςοηςαννυ πομψϊοχατεμρ. πεςεσωμαε- νωκ σινχομ πονεύαετσρ χ R0, ιμι χ R0 ι υλαϊαξξυΰ ρώεκλυ. ζοςνατ ναλςολοναξδω: .TTYIN CHAR .TTINR ηδε CHAR - αδςεσ πανρτι, λυδα πεςεσωμαετσρ σινχομ ιϊ R0. εσμι αςηυνεξτ CHAR ξε υλαϊαξ, το σινχομ οσταετσρ χ νμαδϋεν βακτε R0. ναλςολοναξδα .TTYIN ςασϋιςρετσρ χ ποσμεδοχατεμψξοστψ: εντ 340 BCS .-2 A .ττINR λαλ - 74 - εντ 340 πςι ςαβοτε .ττYIN χωπομξεξιε οσξοχξοκ πςοηςαννω πςιοσ- ταξαχμιχαετσρ δο τεθ πος, πολα σινχομ ξε βυδετ χχεδεξ. πςι ισπομψϊοχαξιι .TTINR, εσμι ξετ ϊξαλα ξα χχοδ (βιτ 12 JSW ςαχεξ 1) ιμι στςολι (βιτ 12 JSW ςαχεξ 0) ξα χχοδ, το χωπομ- ξρετσρ χοϊχςατ ιϊ ναλςολοναξδω σ υσταξοχμεξξων βιτον "σ". σμεδυετ ινετψ χχιδυ, ώτο ποδ υπςαχμεξιεν Fχ,TS ιμι XM-νοξιτοςοχ ναλςολοναξδα .ττINR ξε βυδετ υσταξαχμιχατψ βιτ "σ", εσμι πςεδχαςιτεμψξο ξε υσταξοχμεξ βιτ 6 χ JSW. ισπομψϊυρ βιτ 12 χ JSW, νοφξο υπςαχμρτψ ςαβοτοκ σισ- τενξοηο τεςνιξαμα (σν. π. 6.1.2) ότοτ βιτ πομψϊοχατεμψ δομφεξ υσταξαχμιχατψ σαν. πςι χοϊχςαύεξιι υπςαχμεξιρ σιστενε οξ σβςασωχαετσρ. λονβιξαγιι ι ξε ϊαχισρτ οτ βιτα 12. λονβιξαγιι ι ξε βυδυτ ζυξλγιοξιςο- χατψ λαλ οβωώξο, εσμι βωμα χωπομξεξα λοναξδα (δμρ FB- ι XM-νοξιτοςοχ) SET TT NOPAGE. πςινεώαξιε. ναλςολοναξδα .TTYIN ξε σώιτωχαετ δαξξωθ ιϊ λοναξδξοηο ζακμα. εσμι πςι ισπομψϊοχαξιι λοναξδξωθ ζακμοχ ξεοβθοδινα ταλαρ ζυξλγιρ, ισπομψϊυετσρ ναλςολοναξδα .GTLIN. οϋιβλι οδιξαλοχω δμρ οβοιθ ςεφινοχ: λοδ πορσξεξιε 0 χ λομψγεχον βυζεςε χωχοδα ξετ σινχομοχ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .TTYOUT (π. 7.2.3). 7.2.3. ναλςολοναξδω .TTYOUT/.TTOUTR σιστενξωε ναλςολοναξδω .TTYOUT ι .TTOUTR χωπομξρΰτ πεςεδαώυ σινχομοχ ιϊ R0 ξα σιστενξωκ τεςνιξαμ. ςαϊξιγα νεφδυ ξινι χ τον, ώτο χ σμυώαε, εσμι χ βυζεςε νοξιτοςα ξετ νεστα δμρ σινχομα ιϊ R0, το ναλςολοναξδα .TTYOUT πςιοσταξοχιτ χωπομξεξιε χσεκ πςοηςαννω πομψϊοχατεμρ ι βυδετ οφιδατψ πορχμεξιε σχοβοδξοκ ρώεκλι, χ το χςενρ λαλ ναλςολοναξδα .TTOUTR πςοδομφιτ χωπομξεξιε πςοηςαννω, δαφε εσμι σινχομ ξε πεςεδαξ ιϊ R0 χ νοξιτος. ζοςνατ ναλςολοναξδω: .TTYOUT CHAR .TTOUTR ηδε - 75 - CHAR - αδςεσ ρώεκλι, σοδεςφαύεκ σινχομ, λοτοςωκ βυδετ ϊαηςυφεξ χ R0 ι πεςεδαξ χ νοξιτος. εσμι αςηυνεξτ CHAR ξε υλαϊαξ, το χ νοξιτος βυδετ πεςεδαξο σοδεςφινοε R0. εσμι ποσμε χωπομξεξιρ ναλςολοναξδω .TTOUTR βιτ "σ" υσταξοχμεξ, ότο οϊξαώαετ, ώτο χ βυζεςε ξετ νεστα, ι σινχομ ξε βωμ χωχεδεξ. λοηδα χ σιστενε ζυξλγιοξιςυετ FB- ιμι Xν-νοξιτος, .TTOUTR ξε υσταξαχμιχαετ βιτ πεςεξοσα, χνεστο ότοηο πςοηςαννα βμολιςυετσρ δο τεθ πος, πολα ξε οσχοβοδιτσρ νεστο χ βυζεςε χωχοδα. εσμι ξεοβθοδινο ιϊβεφατψ ποδοβξυΰ σιτυαγιΰ, τ.ε. πςοδομφιτψ χωπομξεξιε πςοηςαννω ι ινετψ χοϊ- νοφξοστψ υσταξαχμιχατψ βιτ "σ", το ξεοβθοδινο υσταξοχιτψ βιτ 6 χ JSW πεςεδ χωπομξεξιεν ναλςολοναξδω .TTOUTR. πςινεώαξιε. εσμι οπεςατιχξαρ πςοηςαννα οσταχιτ βιτ 6 χ JSW υσταξοχμεξξων, το μΰβωε ποσμεδυΰύιε ναλςολοναξδω .TTYIN ι .TTYOUT ϊαβμολιςυΰτ ζοξοχυΰ πςοηςαννυ. ποσλομψλυ λαφδαρ πςοηςαννα ινεετ σχοε JSW, οξι νοηυτ ξεϊαχισινο δςυη οτ δςυ- ηα ξαθοδιτψσρ χ ςαϊξωθ ςεφιναθ ςαβοτω σ σιστενξων τεςνιξα- μον. οϋιβλι: λοδ πορσξεξιε 0 γιλμιώεσλικ βυζες χωχοδα ϊαπομξεξ. πςινες. .MCALL .EXIT,.TTYIN,.TTYOUT,.TTINR,.TTOUTR ST: MOV #BUFF,R1 CLR R2 BIS #100,@#44 ;υσταξοχιτψ βιτ 6 INLOOP:.TTINR ;χχεστι σινχομω ;σ τεςνιξαμα BCS NOCHAR CHRIN: MOVB R0,(R1)+ ;ϊαπισατψ σινχομ χ βυζες INC R2 ;υχεμιώιτψ σώετώιλ CMP R0,#12 BNE INLOOP MOV #BUFF,R1 OUTLOP: MOVB (R1),R0 ;ϊαξεστι σινχομ χ R0 .TTOUTR ;ςασπεώατατψ εηο BCS NOROOM ;ξετ νεστα δμρ χωθοδξοηο ;βυζεςα CHROUT: DEC R2 ;υνεξψϋιτψ σώετώιλ BEQ ST INC R1 ;σδχιξυτψ υλαϊατεμψ ;βυζεςα ι πεώατατψ BR OUTLOP ;σμεδυΰύικ σινχομ NOCHAR:.TTINR ;πεςιοδιώεσλαρ πςοχεςλα BCC CHRIN ;ξα ξαμιώιε σινχομα NOP NOP . . - 76 - . NOP BR NOCHAR NOROOM: MOVB (R1),R0 ;πεςιοδιώεσλαρ ποπωτλα .TTOUTR ;χωχεστι σινχομ BCC CHROUT TYPETT: BIC #100,@#44 ;χοσσταξοχιτψ βιτ 6 .ττYOUT (R1) ;χωχεστι σινχομ BIS #100,@#44 BR CHROUT BUFF: .BLKW 100. .END ST 7.2.4. ναλςολοναξδα .WαIτ σιστενξαρ ναλςολοναξδα .WαIτ πςιοσταξαχμιχαετ χωπομξε- ξιε πςοηςαννω δο ϊαχεςϋεξιρ οπεςαγικ χχοδα/χωχοδα πο υλα- ϊαξξονυ λαξαμυ. ζοςνατ ναλςολοναξδω: .WαIτ σξαN ηδε σξαN - ξονες λαξαμα χχοδα/χωχοδα. ζοςνατ ςεηιστςα R0: !--------!--------! R0 => ! 0 ! CHAN ! !--------!--------! ναλςολοναξδα .WαIτ, ισπομψϊυεναρ σοχνεστξο σ ναλςολο- ναξδανι .RεαD/.WRIτε, ποϊχομρετ οσυύεστχιτψ δχοκξυΰ βυζεςι- ϊαγιΰ πςογεσσα χχοδα/χωχοδα. ναλςολοναξδα .WαIτ πεςεδαετ πομψϊοχατεμΰ ιξζοςναγιΰ οβ οϋιβλαθ αππαςατυςω χ οπεςαγιι χχοδα/χωχοδα. χ Fχ-νοξιτοςε χωπομξεξιε ναλςολοναξδω .WαIτ πςι οπεςα- γιρθ χχοδα/χωχοδα χωϊοχετ πςιοσταξοχλυ οδξοκ πςοηςαννω ι χωπομξεξιε (εσμι χοϊνοφξο) δςυηοκ. οϋιβλι: λοδ πορσξεξιε 0 λαξαμ ξε οτλςωτ; 1 χ οπεςαγιι χχοδα/χωχοδα βωμα αππαςατξαρ οϋιβλα. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .MRKT (π. 7.5.4). - 77 - 7.2.5. ναλςολοναξδω .WRIτε/.WRIτσ/.WRIτW δαξξωε ναλςολοναξδω οβεσπεώιχαΰτ πεςεδαώυ υλαϊαξξοηο λομιώεστχα σμοχ ιϊ πανρτι πο υλαϊαξξονυ λαξαμυ. πςινεώαξιε. πςι ισπομψϊοχαξιι ϊαπςοσοχ τιπα .RεαD/.WRIτε δμρ βυζεςξωθ οπεςαγικ χχοδα/χωχοδα ξεοβθοδινο χωδεμρτψ δοπομξιτεμψξωε όμενεξτω οώεςεδι πςι πονούι ναλςο- λοναξδω .QSετ. οϋιβλι οδιξαλοχω δμρ χσεθ τςεθ ςεφινοχ: λοδ πορσξεξιε 0 ποπωτλα ϊαπισι ποσμε λοξγα ζακμα; 1 οϋιβλα αππαςατυςω; 2 λαξαμ ξε οτλςωτ. 7.2.5.1. ναλςολοναξδα .WRIτε χωπομξρετ πεςεδαώυ υλαϊαξξοηο λομιώεστχα σμοχ ιϊ πανρ- τι πο λαξαμυ CHAN. υπςαχμεξιε πεςεδαετσρ πςοηςαννε πομψϊο- χατεμρ σςαϊυ ποσμε τοηο, λαλ ϊαπςοσ ποσταχμεξ χ οώεςεδψ. ξαϊξαώεξιε λαξαμα πςοιϊχοδιτσρ πςι πονούι ναλςολοναξδ .LOOKUP ι .ENTER ζοςνατ ναλςολοναξδω: .WRIτε αRεα,σξαN,χUF,WσNτ,χLλ ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ 5 σμοχ; CHAN - ξονες λαξαμα; χUF - αδςεσ βυζεςα χωχοδα; WσNτ - λομιώεστχο πεςεδαχαενωθ σμοχ; χLλ - ξονες ϊαπισωχαενοηο βμολα; δμρ υστςοκστχ σ ζακμο- χοκ οςηαξιϊαγιεκ - ότο βμολ οτξοσιτεμψξο ξαώαμα ζακμα; εσμι υστςοκστχο οτλςωτο, λαλ υστςοκστχο σ ξεζακμοχοκ στςυλτυςοκ, το ότο αβσομΰτξωκ ξονες βμολα ξα υστςοκστχε. - 78 - ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 11 ! CHAN ! !--------!--------! ! BLK ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! 1 ! !-----------------! 7.2.5.2. ναλςολοναξδα .WRIτσ πεςεδαετ ξεοβθοδινοε λομιώεστχο σμοχ ιϊ πανρτι πο υλα- ϊαξξονυ λαξαμυ. υπςαχμεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊοχα- τεμρ ξενεδμεξξο ποσμε τοηο, λαλ ϊαπςοσ ποσταχμεξ χ οώεςεδψ. χωπομξεξιε πςοηςαννω πομψϊοχατεμρ πςοδομφαετσρ δο ολοξώαξιρ χωχοδα, ϊατεν υπςαχμεξιε πεςεδαετσρ ποδπςοηςαννε ϊαχεςϋε- ξιρ, πο ιξστςυλγιι RτS ςσ χ ποδπςοηςαννε ϊαχεςϋεξιρ υπςαχ- μεξιε πεςεδαετσρ χ πςεςχαξξυΰ πςοηςαννυ πομψϊοχατεμρ. ζοςνατ ναλςολοναξδω: .WRIτσ αRεα,σξαN,χUF,WσNτ,σRτN,χLλ ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ 5 σμοχ; CHAN - ξονες λαξαμα; χUF - αδςεσ βυζεςα χωχοδα; WσNτ - δμιξα βυζεςα χ σμοχαθ; σRτN - αδςεσ ποδπςοηςαννω ϊαχεςϋεξιρ; χLλ - ξονες ϊαπισωχαενοηο βμολα; δμρ υστςοκστχ σ ζακμο- χοκ οςηαξιϊαγιεκ - ότο βμολ οτξοσιτεμψξο ξαώαμα ζακμα; εσμι υστςοκστχο οτλςωτο, λαλ υστςοκστχο σ ξεζακμοχοκ στςυλτυςοκ, το ότο αβσομΰτξωκ ξονες βμολα ξα υστςοκστχε. - 79 - ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 11 ! CHAN ! !--------!--------! ! BLK ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! CRTN ! !-----------------! πςινεώαξιε. δμρ ναλςολοναξδω .WRITC δεκστχιτεμψξω χσε σοημαϋεξιρ ι πςινεώαξιρ, λασαΰύιεσρ ναλςολοναξδω .READC. 7.2.5.3. ναλςολοναξδα .WRIτW ότα ναλςολοναξδα πεςεδαετ υλαϊαξξοε λομιώεστχο σμοχ ιϊ πανρτι πο υλαϊαξξονυ λαξαμυ. υπςαχμεξιε χοϊχςαύαετσρ χ πςοηςαννυ πομψϊοχατεμρ ποσμε ϊαχεςϋεξιρ χωχοδα. ζοςνατ ναλςολοναξδω: .WRIτW αRεα,σξαN,χUF,WσNτ,χLλ ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ 5 σμοχ; CHAN - ξονες λαξαμα; χUF - αδςεσ βυζεςα χωχοδα; WσNτ - δμιξα βυζεςα χ σμοχαθ; χLλ - ξονες ϊαπισωχαενοηο βμολα; δμρ υστςοκστχ σ ζακμο- χοκ οςηαξιϊαγιεκ - ότο βμολ οτξοσιτεμψξο ξαώαμα ζακμα; εσμι υστςοκστχο οτλςωτο, λαλ υστςοκστχο σ ξεζακμοχοκ στςυλτυςοκ, το ότο αβσομΰτξωκ ξονες βμολα ξα υστςοκστχε. - 80 - ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 11 ! CHAN ! !--------!--------! ! BLK ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! 0 ! !-----------------! χ σμεδυΰύεν πςινεςε σ ισπομψϊοχαξιεν .READW ι .WRITW χωχοδ πομξοστψΰ σιξθςοξεξ. πςοηςαννα ξε χωπομξρετσρ δο τεθ πος, πολα χεσψ βυζες ξε βυδετ ϊαπομξεξ ιμι οώιύεξ. πςινες. .MCALL .FETCH,.READW,.WRITW,.ENTER,.LOOKUP,.PRINT .MCALL .EXIT,.CLOSE ERRWD = 52 ST: .FETCH #HSPACE,#PCNAME ;ϊαηςυϊιτψ δςακχες PC BCS FERR MOV #AREA,R5 ;οβμ. αςηυνεξτοχ εντ CLR R4 ;R4 = λαξαμ χωχοδα 0 MOV #1,R3 ;R3 = λαξαμ χχοδα 1 .ENTER R5,R4,#PCNAME ;οτλςωτψ ζακμ BCS ENERR .LOOKUP R5,R3,#PCNAME BCS LKERR CLR R1 ;R1 - ξονες βμολα LOOP: .READW R5,R3,#BUFF,#256.,R1 ;σώιτατψ βμολ BCS RDERR .WRITW R5,R4,#BUFF,#256.,R1 ;ϊαπισατψ εηο BCS WTERR INC R1 ;υχεμιώιτψ σώετώιλ BR LOOP RDERR: TSTB ERRWD ;ότο EOF ? BEQ 1$ ;δα .PRINT #RDMSG 1$: .EXIT WTERR: .PRINT #WTMSG .EXIT PCNAME:.RAD50 /PC/ ;δμρ PC ξε ξυφξο ινρ .WORD 0 ;ζακμα, οξο - 0 FERR: .PRINT #FEMSG .EXIT εNERR: .PRINT #ENMSG .EXIT LKERR: .PRINT #LKMSG .EXIT FEMSG: .ASCIZ /σδεματψ "INSTALL PC"/ ENMSG: .ASCIZ /οϋιβλα ENTER/ LKMSG: .ASCIZ /οϋιβλα LOOKUP/ RDMSG: .ASCIZ /οϋιβλα READ/ WTMSG: .ASCIZ /οϋιβλα WRITE/ .EVEN - 81 - AREA: .BLKW 10 BUFF: .BLKW 256. HSPACE = . .END ST ότα φε πςοηςαννα νοφετ βωτψ ξαπισαξα σ ισπομψϊοχαξιεν ναλ- ςολοναξδ .READC ι .WRITC. ναλςολοναξδω χωπομξρτ ξαώαμψξυΰ ώαστψ χχοδα/χωχοδα, α ποδπςοηςαννω ϊαχεςϋεξιρ οβςαβοταΰτ οσταχϋυΰσρ ώαστψ. .MCALL .PRINT,.EXIT,.FETCH,.ENTER,.LOOKUP .MCALL .CLOSE,.READC,.WRITC,.WAIT ERRWD = 52 ST: .FETCH #AREA,#PCNAME ;ϊαηςυϊιτψ δςακχες PC BCS FERR FLNK: MOV #AREA,R5 ;Oβμ. αςηυνεξτοχ εντ .ENTER R5,#1,#PCNAME ;οτλςωτψ ζακμ BCS ENERR .LOOKUP R5,#0,#PCNAME BCS LKERR CLR R1 ;R1 = ξονες βμολα LOOP: CLR DFLG ;σβςοσ ζμαηα χωπ./οϋιβ. .READC R5,#0,#BUFF,#256.,RDCOMP,R1 ;σώιτατψ βμολ BCS EOF 1$: TST DFLG ;ζμαη υσταξοχμεξ ? BEQ 1$ ;ξετ BMI IOERR ;δα EOF: .CLOSE #1 .EXIT RDCOMP: ROR R0 ;βιτ σ υσταξοχμεξ, ϊξαώιτ BCS RWERR ;χστςετιμασψ οϋιβλα .WRITC R5,#0,#BUFF,#256.,#WRCOMP,BLKN ;ϊαπισατψ ;βμολ BCC RTS RWERR: MOV #-1,DFLG ;ζμαη οϋιβλι RTS: RTS PC WRCOMP: ROR R0 BCS RWERR ;οϋιβλα αππαςατυςω INC BLKN .READC R5,#1,#BUFF,#256.,#RDCOMP,BLKN BCC 3$ TSTB ERRWD BNE RWERR ;ξετ INC DFLG 3$: RTS PC FERR: MOV #FMSG,R0 BR TYPIT IOERR: νOV #IOMSG,R0 BR TYPIT LKERR: MOV #LMSG,R0 BR TYPIT ENERR: MOV #EMSG,R0 TYPIT: .PRINT .EXIT FMSG: .ASCIZ /σδεματψ "INSTALL PC"/ EMSG: .ASCIZ /οϋιβλα ENTER/ LMSG: .ASCIZ /οϋιβλα LOOKUP/ IOMSG: .ASCIZ !οϋιβλα χχοδα/χωχοδα! .EVEN - 82 - DFLG: .WORD 0 PCNAME:.RAD50 /PC/ .WORD 0 BLKN: .WORD 0 AREA: .BLKW 10 BUFF: .BLKW 256. HSPACE = . .END ST 7.2.6. ναλςολοναξδα .ςRINτ ότα ναλςολοναξδα πςεδξαϊξαώεξα δμρ χωχοδα στςολι τελσ- τα ξα σιστενξωκ τεςνιξαμ. ζοςνατ ναλςολοναξδω: .ςRINτ αDDR ηδε ADDR - αδςεσ ςασπεώατωχαενοκ στςολι. στςολα, χωδαχαεναρ ξα πεώατψ, νοφετ ολαξώιχατψσρ μιβο ξυμεχων βακτον, μιβο βακτον σο ϊξαώεξιεν <200>. εσμι στςολα ολαξώιχαετσρ ξυμεχων βακτον, το αχτονατιώεσλι δοβαχμρετσρ . εσμι στςολυ ϊαλαξώιχαετ βακτ <200>, το χωδαώα ξε πςοιϊχοδιτσρ. πςι χωπομξεξιι οπεςατιχξοκ (ζοξοχοκ) πςοηςαννω πεςεδ χωχοδον τελστα ξα σιστενξωκ τεςνιξαμ σξαώαμα πεώαταετσρ σοοβύεξιε F> (χ>), α ϊα ξιν σμεδυετ τελστ στςολι. υπςαχμεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊοχατεμρ ποσμε ςαϊνεύεξιρ χ βυζεςε χωχοδα χσεθ χωχοδινωθ σινχομοχ. οπεςατιχξαρ πςοηςαννα, ισπομψϊυρ σιστενξυΰ ναλςολοναξ- δυ .ςRINτ, χωδαετ σοοβύεξιε ξεϊαχισινο οτ σοστορξιρ ζοξοχο- ηο ϊαδαξιρ. ποότονυ δμρ σςοώξωθ σοοβύεξικ υδοβξεε ισπομψϊο- χατψ ναλςολοναξδυ .ςRINτ, ώεν .ττOUTR ιμι .ττYοUτ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .CHCOPY (π. 7.3.2). 7.2.7. ναλςολοναξδα .SPFUN ότα σιστενξαρ ναλςολοναξδα ισπομψϊυετσρ δςακχεςανι υστςοκστχ δμρ χωπομξεξιρ σπεγιαμψξωθ ζυξλγικ, ϊαχισρύιθ οτ υστςοκστχ. ξαπςινες, οβςατξαρ πεςενοτλα ναηξιτξοκ μεξτω. - 83 - ζοςνατ ναλςολοναξδω: .SςFUN αRεα,σξαN,FUNC,χUF,WσNτ,χLλ,σRτN ηδε αRεα - βμολ αςηυνεξτοχ εντ ιϊ ϋεστι σμοχ; σξαN - ξονες λαξαμα; FUNσ - λοδ ζυξλγιι, λοτοςυΰ ξεοβθοδινο χωπομξιτψ; χUF - αδςεσ βυζεςα; WσNτ - ότοτ αςηυνεξτ ρχμρετσρ σπεγιζιώξων δμρ λαφδοηο λοξλςετξοηο δςακχεςα ι, χοϊνοφξο, βυδετ ϊαχισετψ οτ υλαϊαξξοκ ζυξλγιι; χLλ - δαξξωκ αςηυνεξτ ισπομψϊυετσρ αξαμοηιώξο αςηυνεξτυ WCNT; σRτN - τοώλα χθοδα χ ποδπςοηςαννυ ϊαχεςϋεξιρ; λοηδα ότοτ αςηυνεξτ πςοπυύεξ, το αχτονατιώεσλι ϊαξοσιτσρ ξομψ; εσμι σRτN=0 ςεφιν αξαμοηιώεξ .RεαDW; εσμι σRτN=1 ςεφιν αξαμοηιώεξ .RεαD; εσμι σRτN>500, το ότο αδςεσ ποδπςοηςαννω ϊαχεςϋεξιρ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 32 ! CHAN ! !--------!--------! ! BLK ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! 377 ! !-----------------! ! CRTN ! !-----------------! αςηυνεξτω χLλ, σξαN ι WCNT νοηυτ οπςεδεμρτψσρ ταλ φε, λαλ δμρ οπεςαγιι .RεαD/.WRIτε. ναλςολοναξδα .SPFUN δαετ χοϊνοφξοστψ χωπομξρτψ ζυξλγιι, πςιχεδεξξωε χ ταβμ. 2: - 84 - ταβμιγα 2 ---------------------------------------------------------- ζυξλγιρ ! MT ! CT ! DX ! DM ! DY ! DL ---------------------------------------------------------- πεςενοτλα χπεςεδ δο ! ! ! ! ! ! ποσμεδξεηο ζακμα ! ! 377 ! ! ! ! ! ! ! ! ! ! πεςενοτλα χπεςεδ δο ! ! ! ! ! ! ποσμεδξεηο βμολα ! ! 376 ! ! ! ! ! ! ! ! ! ! πεςενοτλα χπεςεδ δο ! ! ! ! ! ! σμεδυΰύεηο ζακμα ! ! 375 ! ! ! ! ! ! ! ! ! ! πεςενοτλα χπεςεδ δο ! ! ! ! ! ! σμεδυΰύεηο βμολα ! ! 374 ! ! ! ! ! ! ! ! ! ! πεςενοτλα δο τοώλι ! ! ! ! ! ! ϊαηςυϊλι ! 373 ! 373 ! ! ! ! ! ! ! ! ! ! ϊαπισατψ νεφζακμοχωκ ! ! ! ! ! ! πςονεφυτολ ! ! 372 ! ! ! ! ! ! ! ! ! ! ϊαπισατψ EOF ! 377 ! ! ! ! ! ! ! ! ! ! ! πεςενοτλα χπεςεδ ξα ! ! ! ! ! ! οδξυ ϊαπισψ ! 376 ! ! ! ! ! ! ! ! ! ! ! πεςενοτλα ξαϊαδ ξα ! ! ! ! ! ! οδξυ ϊαπισψ ! 375 ! ! ! ! ! ! ! ! ! ! ! ϊαπισψ ! 371 ! ! 376 ! 376 ! 376 ! ! ! ! ! ! ! ώτεξιε ! 370 ! ! 377 ! 377 ! 377 ! ! ! ! ! ! ! ϊαπισψ σ ςασϋιςεξξων ! ! ! ! ! ! νεφζακμοχων πςονεφυτλον! 374 ! ! ! ! ! ! ! ! ! ! ! οβςατξαρ πεςενοτλα ! ! ! ! ! ! χ αχτοξονξον ςεφινε ! 372 ! ! ! ! ! ! ! ! ! ! ! ϊαπισψ σο στιςαξιεν ! ! ! ! ! ! ναςλεςα δαξξωθ ! ! ! 375 ! ! 375 ! ! ! ! ! ! ! ώτεξιε δςακχεςον ! ! ! ! ! ! ταβμιγω ςασπομοφεξιρ ! ! ! ! ! ! πμοθιθ βμολοχ ιϊ ! ! ! ! ! ! βμολα 1 δισλα ! ! ! ! 374 ! ! 374 ! ! ! ! ! ! χοϊχςαύεξιε ςαϊνεςα ! ! ! ! ! ! δςακχεςα ! ! ! ! 373 ! 373 ! 373 ώτοβω ισπομψϊοχατψ ϊαπςοσ .SPFUN, δςακχες δομφεξ ξαθο- διτψσρ χ πανρτι, ι λαξαμ δομφεξ βωτψ σχρϊαξ σ ζακμον ϊαπςο- σον .LOOKUP. ϊαπςοσ .SPFUN δμρ ϊαπισι αβσομΰτξωθ βμολοχ ξα ηιβλικ δισλ ξε δομφεξ ξιώεηο ϊαπισωχατψ ξα ξυμεχυΰ δοςοφλυ, εσμι βυδετ ισπομψϊοχατψσρ λοναξδα DUP ιμι COPY/DEVICE δμρ ποδ- δεςφλι ξοσιτεμρ. DUP ξε ϊαπισωχαετ δατυ ξα ξυμεχυΰ δοςοφλυ. - 85 - ταλφε, ξυφξο σμεδιτψ ϊα τεν, ώτοβω πςαχιμψξο βωμ υλαϊαξ αδςεσ βυζεςα ι λομιώεστχο σμοχ. νοξιτος πςοχεςρετ ξαθοδιτσρ μι αςηυνεξτ BUF χ ςαβοώεκ οβμαστι, ξο ξε πςοχεςρετ BUF+WCNT. εσμι ισπομψϊοχατψ ϊαπςοσ .SPFUN ι δςακχες υστ- ςοκστχα, λοτοςωκ ξε ποδδεςφιχαετ σπεγιαμψξωθ ζυξλγικ, χωϊοχ χοϊχςαύαετσρ χ πςοηςαννυ, ξε οβ'ρχμρρ οβ οϋιβλε. δμρ δςακχεςα δισλα τιπα RK06/07 (DM) λοδω σπεγιαμψξωθ ζυξλγικ 377 ι 376 τςεβυΰτ ςαϊνεςα βυζεςα ξα οδξο σμοχο βομψϋε, ώεν ξεοβθοδινο δμρ δαξξωθ. πεςχοε σμοχο βυζεςα σοδεςφιτ ιξζοςναγιΰ οβ οϋιβλε, χοϊχςαύεξξυΰ λαλ ςεϊυμψτατ ςαβοτω ϊαπςοσα .SPFUN. δαξξωε, πεςεδαξξωε χ ςεϊυμψτατε ϊαπ- ςοσα ώτεξιρ ιμι ϊαπισι, ξαθοδρτσρ χο χτοςον ι σμεδυΰύιθ σμοχαθ βυζεςα. λοδω οϋιβολ: λοδ ϊξαώεξιε 100000 οπεςαγιρ χχοδα/χωχοδα πςοϋμα υσπεϋξο; 100200 οβξαςυφεξ πμοθοκ βμολ (οϋιβλα BSE); 100001 ECC οϋιβλα ισπςαχμεξα; 100002 οϋιβλα πςι ποχτοςξοκ ποπωτλε χωπομξεξιρ οπεςαγιι; 100004 οϋιβλα πςι ποπωτλε ξοχοηο σνεύεξιρ; 100010 οϋιβλα ποσμε ςαϊνετλι ξοσιτεμρ; 1774XX οϋιβλα ξε οβξαςυφεξα. οϋιβλι: λοδ πορσξεξιε 0 ποπωτλα ώτεξιρ ιμι ϊαπισι ϊα λοξγον ζακμα; 1 χ λαξαμε πορχιμασψ αππαςατξαρ οϋιβλα; 2 λαξαμ ξε οτλςωτ. πςινεώαξιε. πεςεδ χωπομξεξιεν ναλςολοναξδω .SPFUN δςακχες σοοτχετστχυΰύεηο υστςοκστχα δομφεξ βωτψ ϊαηςυφεξ χ πανρτψ. δμρ ναηξιτξοκ μεξτω νν: λοδω πομξοστψΰ σοχπαδαΰτ σ λοδανι δμρ ντ:. σμεδυετ οτνετιτψ, ώτο λοδ ζυξλγιι ϊαξιναετ τομψλο οδιξ βακτ ι εηο ϊξαώεξιε χσεηδα οτςιγατεμψξο. δοπυστινωε ϊξαώε- ξιρ λοδα ξε χωθοδρτ ϊα πςεδεμω οτ -1 δο -128 δεσρτιώξωθ (οτ 377 δο 200 χοσψνεςιώξωθ). χ σμεδυΰύεν πςινεςε πςοηςαννα πςοιϊχοδιτ πεςενοτλυ λασσετω ι ϊαπισωχαετ βμολ χ 256 σμοχ ι νεφζακμοχωκ πςονεφυ- - 86 - τολ. πςινες. .MCALL .PRINT,.FETCH,.LOOKUP,.SPFUN .MCALL .WRITW,.EXIT,.WAIT,.CLOSE ST: .FETCH #HSPC,#CT ;ϊαηςυϊιτψ δςακχες στ BCS FERR .LOOKUP #AREA,#4,#CT BCS LKERR .SPFUN #AREA,#4,#373,#0 ;πεςενοτατψ σιξθςοξξο BCS SERR .WRITW #AREA,#4,#BUFF,#256.,BLK BCS WTERR .SPFUN #AREA,#4,#372,#1 ;ϊαπισψ νεφζακμοχοηο ;πςονεφυτλα .PRINT #DONE .WAIT #4 .CLOSE #4 .EXIT AREA: .BLKW 10 FERR: .PRINT #FMSG .EXIT LKERR: .PRINT #LKMSG .EXIT SERR: .PRINT #SMSG .EXIT WTERR: .PRINT #WTMSG .EXIT DONE: .ASCIZ /λοξεγ ςαβοτω/ FMSG: .ASCIZ /οϋιβλα FETCH/ LKMSG: .ASCIZ /οϋιβλα LOOKUP/ SMSG: .ASCIZ /οϋιβλα SPFUN/ WTMSG: .ASCIZ /οϋιβλα WRITW/ .EVEN CT: .RAD50 /CT/ .WORD 0,0,0 BUFF: .BLKW 256. BLK: .WORD 0 HSPC = . .END ST 7.3. ςαβοτα σ λαξαμανι δαξξαρ ηςυππα ναλςολοναξδ ισπομψϊυετσρ δμρ πομυώεξιρ σπςαχοώξοκ ιξζοςναγιι ο λαξαμαθ, λοπιςοχαξιρ ιξζοςναγιι ιϊ οδξοηο λαξαμα χ δςυηοκ, ποχτοςξοηο οτλςωτιρ λαξαμα, οσχο- βοφδεξιρ λαξαμα. - 87 - 7.3.1. ναλςολοναξδα .σDFN σιστενξαρ ναλςολοναξδα .σDFN ισπομψϊυετσρ δμρ υχεμιώε- ξιρ ώισμα λαξαμοχ χχοδα/χωχοδα. χ TS-νοξιτοςε οτςαβατωχαετσρ λαλ NOP (πυσταρ οπεςα- γιρ). ζοςνατ ναλςολοναξδω: .σDFN αRεα,αDDR,NUν ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ τςεθ σμοχ; αDDR - αδςεσ βυζεςα δμρ ςαϊνεύεξιρ λαξαμοχ χχοδα/χωχοδα; NUν - λομιώεστχο δοπομξιτεμψξωθ λαξαμοχ χχοδα/χωχοδα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 15 ! 0 ! !--------!--------! ! ADDR ! !-----------------! ! NUM ! !-----------------! λαφδοε ϊαδαξιε, οπεςατιχξοε ιμι ζοξοχοε, πεςχοξαώαμψξο οβεσπεώιχαετσρ 16 (δεσρτιώξοε) λαξαμανι χχοδα/χωχοδα, ινεΰ- ύινι ξονεςα σ 0 πο 15. σ πονούψΰ δαξξοκ ναλςολοναξδω ώισμο λαξαμοχ νοφετ βωτψ υχεμιώεξο δο 256 (δεσρτιώξοε). πανρτψ, ισπομψϊυεναρ δμρ ςαϊνεύεξιρ ξοχωθ λαξαμοχ χχοδα/χωχοδα, ςεϊεςχιςυετσρ χ πςοηςαννε πομψϊοχατεμρ. λαφ- δωκ λαξαμ χχοδα/χωχοδα τςεβυετ 5 σμοχ πανρτι (7 σμοχ δμρ XM-νοξιτοςα). εσμι λομιώεστχο οπςεδεμρενωθ λαξαμοχ ςαχξο N, το πομψϊοχατεμψ δομφεξ ϊαςεϊεςχιςοχατψ δμρ ξιθ 5*N σμοχ πανρτι (7*N δμρ XM-νοξιτοςα), ξαώιξαρ σ αδςεσα ADDR. ςελονεξδυετσρ ισπομψϊοχατψ ναλςολοναξδυ .σDFN χ ξαώαμε πςοηςαννω, πεςεδ χωπομξεξιεν οπεςαγιι χχοδα/χωχοδα. ναλςολοναξδα .σDFN οπςεδεμρετ τομψλο ξοχωε λαξαμω; ςαξεε οπςεδεμεξξωε λαξαμω ξε ισπομψϊυΰτσρ, ξο σοδεςφινοε σταςωθ λαξαμοχ πεςεδαετσρ χ ξοχωε. ποπωτλα υνεξψϋιτψ λομι- ώεστχο λαξαμοχ πςιχεδετ λ σοοβύεξιΰ οβ οϋιβλε. εσμι ισπομψϊυετσρ ξεσλομψλο ναλςολοναξδ .σDFN, βυζεςα λαξαμοχ δομφξω ξαώιξατψσρ μιβο σ οδξοκ ι τοκ φε ρώεκλι, μιβο χοοβύε ξε πεςελςωχατψσρ. εσμι πςοηςαννα ισπομψϊυετ οχεςμεκξυΰ στςυλτυςυ, 15 λαξαμ ξε δομφεξ ιϊνεξρτψσρ, τ.λ. ισπομψϊυετσρ δςακχεςον - 88 - οχεςμεεχ. δςυηιε λαξαμω νοηυτ βωτψ οπςεδεμεξω ι ισπομψϊοχα- ξω λαλ οβωώξο. ναλςολοναξδω .SRεSετ ι .ξRεSετ οτνεξρΰτ δεκστχιε ναλ- ςολοναξδω .CDFN ι υσταξαχμιχαΰτ ισθοδξωε 16 λαξαμοχ, οπςε- δεμεξξωε πςι ϊαπυσλε πςοηςαννω. οϋιβλι: λοδ πορσξεξιε 0 σδεμαξα ποπωτλα οπςεδεμιτψ νεξψϋε λαξαμοχ, ώεν υφε εστψ. χοϊνοφξο σδεμαξα ποπωτλα χ XM- νοξιτοςε ςαϊνεστιτψ ταβμιγυ οπισαξιρ λαξαμοχ χ οβμαστι δεκστχιρ πεςχοηο ςεηιστςα αλτιχξωθ στςαξιγ δισπετώεςα πανρτι. χ πςινεςε οπςεδεμρετσρ σξαώαμα 25. λαξαμοχ, ϊατεν 30. λαξαμοχ. πςι ποπωτλε οπςεδεμιτψ 20. λαξαμοχ χοϊξιλαετ οϋιβ- λα, τ.λ. ςαξεε βωμο οπςεδεμεξο βομψϋεε λομιώεστχο λαξαμοχ. ξα σιστενξωκ τεςνιξαμ χωδαΰτσρ σοοβύεξιρ. πςινες. .MCALL .CDFN,.PRINT,.HRESET,.EXIT START: .CDFN #AREA,#CHANL,#25. ;οπςεδεμιτψ 25. λαξαμοχ BCS ERR .PRINT #MSG ;πεώατψ σοοβύεξιρ .CDFN #AREA,#CHANL,#30. ;οπςεδεμιτψ 30. λαξαμοχ BCS ERR .PRINT #MSG ;πεώατψ σοοβύεξιρ .CDFN #AREA,#CHANL,#20. ;οπςεδεμιτψ 20. λαξαμοχ BCC ERR1 .PRINT #MSG CONT: .HRESET ;χοϊχςατ λ 16. λαξαμαν .CDFN #AREA,#CHANL,#20. ;οπςεδεμιτψ 20. λαξαμοχ BCS ERR .PRINT #MSG ;πεώατψ σοοβύεξιρ .EXIT ERR: .PRINT #MSG1 .EXIT ERR1: .PRINT #MSG1 BR CONT AREA: .BLKW 3 ;βμολ αςηυνεξτοχ εντ MSG: .ASCIZ /λαξαμω οπςεδεμεξω/ MSG1: .ASCIZ /οϋιβλα .CDFN/ .EVEN CHANL: .BLKW 30.*5 ;οβμαστψ δμρ λαξαμοχ .END START 7.3.2. ναλςολοναξδα .σξσοςY (FB, XM) σιστενξαρ ναλςολοναξδα .σξσοςY οτλςωχαετ ξοχωκ λαξαμ δμρ οπεςαγιι χχοδα, μοηιώεσλι σχρϊωχαρ εηο σ ζακμον, χ δαξ- ξωκ νονεξτ ξαθοδρύινσρ χ οτλςωτον σοστορξιι χ δςυηον ςαϊδε- - 89 - με. ναλςολοναξδυ .σξσοςY νοφξο πςινεξρτψ λαλ δμρ ζοξοχοηο ςεφινα, ταλ ι δμρ οπεςατιχξοηο, ξο οξα δομφξα χωπομξρτψσρ δο ισπομψϊοχαξιρ σιστενξωθ ναλςολοναξδ .RεαD ι .WRIτε. ζοςνατ ναλςολοναξδω: .σξσOPY AREA,CHAN,OσξαN[,JOBBLK] ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ τςεθ σμοχ; CHAN - λαξαμ, λοτοςωκ βυδετ ισπομψϊοχατψσρ πςοηςαννοκ δμρ σώιτωχαξιρ δαξξωθ; OCHAN - ξονες λαξαμα χ δςυηοκ πςοηςαννε, λοτοςωκ βυδετ λοπιςοχατψσρ; JOBBLK - υλαϊατεμψ ξα τςεθσμοχξοε μοηιώεσλοε ινρ ϊαδαξιρ (χ λοδε λοι-7), σοοτχετστχυΰύεε σιστενξονυ ϊαδαξιΰ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 13 ! CHAN ! !--------!--------! ! OCHAN ! !-----------------! ! JOBBLK ! !-----------------! εσμι λαξαμ οσξαN χ οδξοκ πςοηςαννε βωμ οτλςωτ ποσ- ςεδστχον ναλςολοναξδω .εNτεR πςι σοϊδαξιι ζακμα FILε1, το ποσμε χωπομξεξιρ ναλςολοναξδω .σξσοςY χ δςυηοκ πςοηςαννε λαξαμ σξαN βυδετ σχρϊαξ σ ζακμον FILε1. εσμι χ ότον σμυώαε χτοςαρ πςοηςαννα χωπομξιτ ναλςολο- ναξδυ .CLOSE, το FILE1 ξε σταξετ ποστορξξων (οσταξετσρ χςε- νεξξων). δμρ τοηο, ώτοβω ζακμ σταμ ποστορξξων, πεςχαρ πςοη- ςαννα τοφε δοφξα χωπομξιτψ ναλςολοναξδυ .CLOSE. ναλςολοναξδα .σξσοςY δοπυστινα τομψλο δμρ υστςοκστχ σ λαταμοηοχοκ οςηαξιϊαγιεκ; πςι ισπομψϊοχαξιι δςυηιθ υστ- ςοκστχ οξα ιηξοςιςυετσρ. πςινεώαξιε. ώτοβω ϊαλςωτψ λαξαμ, οτλςωτωκ σ πονούψΰ .CHCOPY, ξυφξο πςινεξιτψ ναλςολοναξδω .σLοSε μιβο .ςURGε. - 90 - οϋιβλι: λοδ πορσξεξιε 0 ξετ δςυηοκ πςοηςαννω, λαξαμοχ οπςεδεμεξο ξεδοστατοώξο ιμι υλαϊαξξωκ λαξαμ (OσξαN) ξε οτλςωτ; 1 λαξαμ σξαN υφε οτλςωτ. χ οπεςατιχξοκ πςοηςαννε λαξαμ 1 οτλςωτ δμρ ζακμα PRINT.SAV. χ ζοξοχοκ πςοηςαννε ναλςολοναξδα .CHCOPY λοπι- ςυετ ότοτ ζακμ πο λαξαμυ 0, α ϊατεν ζακμ σώιτωχαετσρ χ οβμαστψ BUFF ι ςασπεώατωχαετσρ ξα σιστενξωκ τεςνιξαμ. σλο- πιςοχατψ ότοτ ζακμ πο λαξαμυ 2 ξεμψϊρ, τ.λ. ότοτ λαξαμ βωμ οτλςωτ ςαξεε. χ σμεδυΰύεν πςινεςε πςεδσταχμεξα πςοηςαννα, ςαβοταΰύαρ χ ζοξοχον ςαϊδεμε. πςινες. .MCALL .PRINT,.EXIT,.LOOKUP,.CHCOPY,.SDATW .MCALL .PURGE,.READW ST: .PURGE #0 ;οώιστιτψ λαξαμ 0 .CHCOPY #AREA,#0,#1 ;σλοπιςοχατψ ζακμ ;σ λαξαμα 0 πο λαξαμυ 1 BCS NCH .READW #AREA,#0,#BUFF,#25,#0 ;πςοώιτατψ ζακμ BCS NRE .PRINT #BUFF ;ςασπεώατατψ ζακμ .LOOKUP #AREA,#2,#FILE1 ;οτλςωτψ ζακμ ;πο λαξαμυ 2 BCS NLO .CHCOPY #AREA,#2,#1 ;σλοπιςοχατψ ζακμ ;σ λαξαμα 1 πο λαξαμυ 2 BCS NCH .PRINT #MSG1 .SDATW #AREA,#MSG,#COUNT ;πεςεδατψ σοοβύεξιε χ ;οπεςατιχξυΰ πςοηςαννυ BCS NSD .EXIT NSD: .PRINT #NOS .EXIT NCH: .PRINT #NOCH .EXIT NRE: .PRINT #NORE .EXIT NLO: .PRINT #NOLO .EXIT NOS: .ASCIZ /ξετ ϊαδαξιρ/ NOCH: .ASCIZ /οϋιβλα .CHCOPY/ NORE: .ASCIZ /οϋιβλα .READ/ NOLO: .ASCIZ /οϋιβλα .LOOKUP/ MSG: .ASCIZ /τιλ-τολ/ ;τελστ δμρ οπεςατιχξοκ ;πςοηςαννω COUNτ = .-MSG MSG1: .ASCIZ /λαξαμ ϊαξρτ/ .εVEN - 91 - AREA: .BLKW 10 FILE1: .RAD50 /SY PRINT SAV/ ;ινρ υστςοκστχα ι ζακμα BUFF: .BLKW 25 .END ST πςοηςαννα, ςαβοταΰύαρ χ οπεςατιχξον ςαϊδεμε: .MCALL .LOOKUP,.RCVDW,.EXIT,.PRINT START1:.LOOKUP #AREA,#1,#FILE ;οτλςωτψ ζακμ πο ;λαξαμυ 1 BCS NLOO .RCVDW #AREA,#TEXT,#20 ;πςιξρτψ στςολυ BCS NRC .PRINT #TEXT+2 ;πεώατψ πομυώεξξοηο ;σοοβύεξιρ .EXIT NRC: .PRINT #MSG ;οϋιβλα .RCVDW .EXIT NLOO: .PRINT #MSG1 ;οϋιβλα .LOOKUP .EXIT FILE: .RAD50 /SY/ .RAD50 /PRINT/ .RAD50 /SAV/ AREA: .BLKW 10 TEXT: .BLKW 20 MSG: .ASCIZ /ξετ ϊαδαξιρ / MSG1: .ASCIZ /οϋιβλα LOOKUP/ .EVEN .END START1 7.3.3. ναλςολοναξδα .σSτατ (Fχ, θν) σιστενξαρ ναλςολοναξδα .σSτατ ϊαπομξρετ 6 σμοχ πανρτι ιξζοςναγιεκ ο λαξαμε. ζοςνατ ναλςολοναξδω: .σSτατ αRεα,σξαN,αDDR ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ δχυθ σμοχ; σξαN - ξονες λαξαμα, ο λοτοςον τςεβυετσρ ιξζοςναγιρ; αDDR - αδςεσ βμολα ιϊ ϋεστι σμοχ, σοδεςφαύιθ ιξζοςναγιΰ ο λαξαμε. - 92 - ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 27 ! CHAN ! !--------!--------! ! ADDR ! !-----------------! πομψϊοχατεμΰ πεςεδαετσρ: σμοχο 1 - σμοχο σοστορξιρ λαξαμα; σμοχο 2 - ξονες πεςχοηο βμολα ζακμα; σμοχο 3 - δμιξα ζακμα; σμοχο 4 - ναλσιναμψξωκ ξονες ϊαπισαξξοηο βμολα; σμοχο 5 - ξονες υστςοκστχα; σμοχο 6 - ινρ υστςοκστχα (χ RαDIθ-50). σμοχο 2 σοδεςφιτ ξομψ, εσμι υστςοκστχο σ ποσμεδοχα- τεμψξων δοστυπον ιμι λαξαμ βωμ οτλςωτ ναλςολοναξδανι .LοολUς ιμι .εNτεR δμρ υστςοκστχα σ ξεζακμοχοκ στςυλτυςοκ. χ σμοχε 3 ιξζοςναγιρ οτσυτστχυετ, εσμι υστςοκστχο σ ξεζακμοχοκ στςυλτυςοκ, α ταλφε, εσμι λαξαμ βωμ οτλςωτ ναλ- ςολοναξδανι .LοολUς ιμι .εNτεR δμρ υστςοκστχα σ ξεζακμοχοκ στςυλτυςοκ. χ σμοχε 4 ιξζοςναγιρ οτσυτστχυετ, εσμι υστςοκστχο σ ξεζακμοχοκ στςυλτυςοκ. οϋιβλι: λοδ πορσξεξιε 0 λαξαμ ξε οτλςωτ. χ πςινεςε πολαϊαξο πομυώεξιε ινεξι υστςοκστχα, σχρϊαξ- ξοηο σ πεςχων χωθοδξων ζακμον χ λοναξδξοκ στςολε. πςινες. .MCALL .CSTAT,.CSIGEN,.PRINT,.EXIT START: .CSIGEN #DEVSPC,#DEVEXT ;χχοδ λοναξδξοκ στςολι .CSTAT #AREA,#0,#ADDR ;πομυώιτψ ιξζοςναγιΰ ;ο 0 λαξαμε BCS ERR MOV #ADDR+10,R5 MOV (R5)+,R0 ADD (PC)+,R0 .RAD50 / 0/ ADD (R5),R0 MOV R0,DEVNAM ;πομυώιτψ ινρ υστςοκστχα .EXIT AREA: .BLKW 5 ;βμολ αςηυνεξτοχ εντ ADDR: .BLKW 6 ;βμολ ιξζοςναγιι ;ο λαξαμε DEVNAM:.WORD 0 DEVEXT:.WORD 0,0,0,0 ;βμολ ςασϋιςεξικ ;πο υνομώαξιΰ ERR: .PRINT #MSG - 93 - .EXIT MSG: .ASCIZ /λαξαμ ξε οτλςωτ/ .EVEN DEVSPC = . ;αδςεσ ϊαηςυϊλι ;δςακχεςοχ .END START 7.3.4. ναλςολοναξδα .ςURGε σιστενξαρ ναλςολοναξδα .ςURGε ισπομψϊυετσρ δμρ οσχο- βοφδεξιρ λαξαμα βεϊ χωπομξεξιρ ναλςολοναξδ .ξRεSετ, .SRεSετ, .SαVεSτατUS ιμι .σLοSε. ζοςνατ ναλςολοναξδω: .ςURGε σξαN ηδε CHAN - ξονες λαξαμα (χοσψνεςιώξοε). ζοςνατ ςεηιστςα R0: !--------!--------! R0 => ! 3 ! CHAN ! !--------!--------! ναλςολοναξδα .ςURGε οσχοβοφδαετ λαξαμ, ξε χωπομξρρ ξιλαλιθ δςυηιθ οπεςαγικ (χςενεξξο σοϊδαξξωκ ζακμ τεςρετσρ). εσμι πςοηςαννα ινεετ οχεςμεκξυΰ στςυλτυςυ, το χ ναλςο- λοναξδε .PURGE ξεμψϊρ ϊαδαχατψ λαξαμ 17 (χοσψνεςιώξοε), τ.λ. ότοτ λαξαμ ισπομψϊυετσρ δςακχεςον πεςελςωτικ. εσμι υλαϊαξξωκ χ ναλςολοναξδε λαξαμ ξε ϊαξρτ, τ.ε. ξε σχρϊαξ σ ζακμον, το ναλςολοναξδα ιηξοςιςυετσρ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .CHCOPY (σν. π. 7.3.2). 7.3.5. ναλςολοναξδα .REOPEN ναλςολοναξδα .RεοςεN σχρϊωχαετ υλαϊαξξωκ λαξαμ σ ζακ- μον, δμρ λοτοςοηο βωμα χωπομξεξα ναλςολοναξδα .SαVεSτατUS, ταλιν οβςαϊον πςοιϊχοδρ ποχτοςξοε οτλςωτιε ότοηο ζακμα. ζοςνατ ναλςολοναξδω: .RεοςEN αRεα,σξαN,CBLK - 94 - ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ δχυθ σμοχ; σξαN - ξονες λαξαμα χ ιξτεςχαμε 0-377 (χοσψνεςιώξοε); CBLK - αδςεσ βμολα ιϊ πρτι σμοχ σ ιξζοςναγιεκ ο σοστορξιι λαξαμα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 6 ! CHAN ! !--------!--------! ! CBLK ! !-----------------! σοώεταξιε ναλςολοναξδ .RεοςεN ι .SαVεSτατUS υδοβξο χ τεθ σμυώαρθ, λοηδα ξυφξο οδξοχςενεξξο οβςαβοτατψ βομψϋοε ώισμο ζακμοχ πςι οηςαξιώεξξον λομιώεστχε λαξαμοχ. ξεοβθοδι- νοε λομιώεστχο ζακμοχ νοφξο οτλςωτψ ναλςολοναξδοκ .LOOKUP ι σοθςαξιτψ ναλςολοναξδοκ .SAVESTATUS. λοηδα τςεβυΰτσρ δαξξωε ιϊ ζακμα, ναλςολοναξδα .RεοςεN δαετ χοϊνοφξοστψ πςοηςαννε σχρϊατψ ζακμ, σοθςαξεξξωκ ναλςολοναξδοκ .SαVεSτατUS, σο σχοβοδξων λαξαμον ι ϊατεν πςοιϊχεστι σώιτωχαξιε. ναλςολοναξδα .REOPEN νοφετ ισπομψϊοχατψ μΰβοκ λαξαμ, ξε οβρϊατεμψξο τοτ, λοτοςωκ ισπομψϊοχαμσρ ςαξεε ναλςολοναξ- δανι .LοολUς ι .SαVεSτατUS. οϋιβλι: λοδ πορσξεξιε 0 λαξαμ ϊαξρτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .SAVESTATUS (π. 2.3.6). 7.3.6. ναλςολοναξδα .SαVεSτατUS ναλςολοναξδα .SAVESTATUS πεςεδαετ 5 σμοχ ιξζοςναγιι ο σοστορξιι λαξαμα χ υλαϊαξξυΰ οβμαστψ πανρτι, οσχοβοφδαρ λαξαμ δμρ δςυηιθ γεμεκ. ότι σμοχα σοδεςφατ πομξυΰ ιξζοςνα- γιΰ, ξεοβθοδινυΰ σιστενε δμρ οπςεδεμεξιρ ζακμα. ζοςνατ ναλςολοναξδω: .SαVεSτατUS αRεα,σξαN,CBLK ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ δχυθ σμοχ; - 95 - σξαN - ξονες λαξαμα; CBLK - αδςεσ βμολα πανρτι (5 σμοχ), ηδε σοθςαξρετσρ ιξζοςναγιρ ο σοστορξιι λαξαμα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 5 ! CHAN ! !--------!--------! ! CBLK ! !-----------------! ποσμε χωπομξεξιρ ναλςολοναξδω ζακμ ϊαλςωχαετσρ ι λαξαμ οσχοβοφδαετσρ δμρ ισπομψϊοχαξιρ. ναλςολοναξδα .SαVεSτατUS πςινεξρετσρ τομψλο χ τον σμυ- ώαε, εσμι ζακμ βωμ οτλςωτ ποσςεδστχον ναλςολοναξδω .LοολUς. εσμι ζακμ βωμ οτλςωτ ναλςολοναξδοκ .εNτεR, το ισπομψϊοχαξιε ναλςολοναξδω .SαVεSτατUS ξεδοπυστινο, πςι ότον χοϊξιλαετ οϋιβλα. ότα ναλςολοναξδα νοφετ οτξοσιτψσρ τομψλο λ τεν ζακμαν, λοτοςωε ξαθοδρτσρ ξα υστςοκστχε σ λαταμοηοχοκ οςηαξιϊαγιεκ. χ ταβμ. 3 πςιχεδεξα ιξζοςναγιρ ο σοστορξιι λαξαμα. σινχομον <*> πονεώεξω βιτω, πορσξεξιρ λ λοτοςων δαξω, δμρ υσταξοχμεξοηο βιτα. - 96 - ταβμιγα 3 ---------------------------------------------------------- σμοχο ! βιτ ! σοδεςφινοε ---------------------------------------------------------- 1 ! ! σμοχο σοστορξιρ λαξαμα !-------!---------------------------------------- ! 0* ! αππαςατξαρ οϋιβλα πο ότονυ λαξαμυ !-------!---------------------------------------- ! 1-5 ! ιξδελσ χ ταβμιγαθ νοξιτοςα. οπισωχαετ ! ! ζιϊιώεσλοε υστςοκστχο, σχρϊαξξοε σ ! ! ότιν λαξαμον !-------!---------------------------------------- ! 6* ! ξα λαξαμε χωπομξρετσρ ναλςολοναξδα ! ! .RεNανε !-------!---------------------------------------- ! 7* ! χ λαταμοηε δομφξα πςοιϊοκτι ξοχαρ ! ! ϊαπισψ ναλςολοναξδοκ .σLοSε (τ.ε. ! ! ότοτ βιτ υσταξοχμεξ, εσμι χωπομξεξα ! ! ναλςολοναξδα .εNτεR) !-------!---------------------------------------- ! 8-12 ! ξονες σεηνεξτα λαταμοηα οτ 1 δο 37 ! ! (χοσψνεςιώξωε), χ λοτοςον ξαθοδιτσρ ! ! ϊαπισψ ο τελυύεν ζακμε !-------!---------------------------------------- ! 13* ! ξακδεξ λοξεγ ζακμα !-------!---------------------------------------- ! 14 ! ξε ισπομψϊυετσρ !-------!---------------------------------------- ! 15* ! ότοτ λαξαμ χ δαξξωκ νονεξτ ϊαξρτ ---------!-------!---------------------------------------- 2 ! ! ξαώαμψξωκ ξονες βμολα ζακμα. ξυμψ, εσμι ! ! υστςοκστχο ποσμεδοχατεμψξοηο δοστυπα ---------!-------!---------------------------------------- 3 ! ! δμιξα ζακμα (χ βμολαθ πο 256 σμοχ) ---------!-------!---------------------------------------- 4 ! ! ξε ισπομψϊυετσρ ---------!-------!---------------------------------------- 5 ! ! ώετξωκ βακτ: λομιώεστχο ξεϊαχεςϋεξξωθ ! ! οπεςαγικ χχοδα/χωχοδα πο λαξαμυ ! ! (δμιξα οώεςεδι) ! ! ξεώετξωκ βακτ: ξονες υστςοκστχα, ! ! σχρϊαξξοηο σ λαξαμον (οτ 0 δο 7) σοώεταξιε ναλςολοναξδ .SαVεSτατUS/.RεοςεN οώεξψ υδοβ- ξο, ξο ξεοβθοδινο σοβμΰδατψ ξελοτοςωε νεςω πςεδοστοςοφξοσ- τι: 1) εσμι ποσμε χωπομξεξιρ ναλςολοναξδω .SαVεSτατUS ζακμ βωμ υδαμεξ δο ναλςολοναξδω .RεοςεN, το χωπομξεξξαρ χ ότοτ νονεξτ ναλςολοναξδα .εNτεR νοφετ ισπομψϊοχατψ οβμαστψ ότοηο ζακμα λαλ σχοβοδξυΰ ι ιϊνεξιτψ εε σοδεςφινοε; ποσμε ότοηο σοδεςφινοε ζακμα ξεμψϊρ χοσσταξοχιτψ; 2) πςι χωπομξεξιι ναλςολοναξδω .RεοςεN πςισυτστχιε χ πανρτι δςακχεςα σοοτχετστχυΰύεηο υστςοκστχα ξεοβρϊατεμψξο; οδξαλο, εσμι χωπομξρΰτσρ ναλςολοναξδω .RεαD ιμι .WRIτε, το πςι οτσυτστχιι δςακχεςα χωδαετσρ ξευστςαξιναρ οϋιβλα. - 97 - οϋιβλι: λοδ πορσξεξιε 0 υλαϊαξξωκ λαξαμ ξε σχρϊαξ σ ζακμον, τ.ε. ξε χωπομξεξα ναλςολοναξδα .LOOKUP; 1 υλαϊαξξωκ ζακμ οτλςωτ ναλςολοναξδοκ .ENTER ιμι ξαθοδιτσρ ξα CT: ιμι MT:. χ πςινεςε οτλςωχαΰτσρ χσε ξεοβθοδινωε δμρ ςαβοτω πςοη- ςαννω ζακμω, ιθ σοστορξιρ σοθςαξρΰτσρ, α ϊατεν οξι οτλςω- χαΰτσρ πο νεςε ξεοβθοδινοστι σ πονούψΰ .REOPEN. πςινες. .MCALL .READ,.EXIT,.CSIGEN,.SAVESTATUS,.REOPEN ST: MOV #AREA,R5 .CSIGEN #DSPACE,#DEXT ;χχεστι στςολυ MOV R0,BUFF ;υλαϊατεμψ ξα ;σχοβοδξυΰ πανρτψ .SAVEST R5,#3,#BLOCK1 ;σοθςαξιτψ ιξζοςναγιΰ ;ο πεςχον χθοδ. ζακμε .SAVEST R5,#4,#BLOCK2 ;O χτοςον .SAVEST R5,#5,#BLOCK3 ;O τςετψεν MOV #BLOCK1,R4 PRCS: .REOPEN R5,#0,R4 ;πεςεοτλςωτψ ζακμ ;πο λαξαμυ 0 .READ R5,#0,BUFF,COUNT,BLOCK ;ι οβςαβοτατψ εηο DONE: ADD #12,R4 ;υλαϊατεμψ ξα ;σμεδυΰύικ βμολ CMP R4,#BLOCK3 ;ποσμεδξ. ζακμ οβςαβοταξ? BLOS PRCS ;ξετ, χωπομξιτψ σμεδυΰύικ .EXIT BLOCK1: .WORD 0,0,0,0,0 ;βμολι δμρ ιξζοςναγιι BLOCK2: .WORD 0,0,0,0,0 ;ο σοθςαξεξξον BLOCK3: .WORD 0,0,0,0,0 ;σοστορξιι λαξαμοχ AREA: .BLKW 10 BUFF: .WORD 0 BLOCK: .WORD 0 COUNT: .WORD 256. DEXT: .WORD 0,0,0,0 DSPACE = . .END ST 7.4. οβςαβοτλα λοναξδξοκ στςολι - 98 - 7.4.1. ναλςολοναξδα .CSIGEN σιστενξαρ ναλςολοναξδα .CSIGEN χωϊωχαετ ιξτεςπςετατος λοναξδξοκ στςολι (CSI) χ οβωώξον ςεφινε. ζοςνατ ναλςολοναξδω: .CSIGEN DEFSPC,DEFEXT,CSTRNG[,LINBUF] ηδε DEVSPC - αδςεσ οβμαστι πανρτι, λυδα ϊαηςυφαΰτσρ δςακχεςω υστςοκστχ; DEFEXT - αδςεσ βμολα ιϊ ώετωςεθ σμοχ, σοδεςφαύεηο ςασϋιςε- ξιρ ζακμοχ πο υνομώαξιΰ χ λοδε RαDIθ-50; σSτRNG - αδςεσ λοναξδξοκ στςολι ιμι #0, εσμι χχοδ στςολι πςοισθοδιτ σ τεςνιξαμα; LINχUF - αδςεσ, ηδε σοθςαξρετσρ λοπιρ λοναξδξοκ στςολι. εσμι στςολα ξαθοδιτσρ χ πανρτι, οξα δομφξα ϊαλαξώι- χατψσρ ξυμεχων βακτον, α ξε σοδεςφατψ σινχομω <σR>,. βμολ DεFεθτ σοδεςφιτ: σμοχο 1 - ςασϋιςεξιε δμρ χσεθ χθοδξωθ ζακμοχ; σμοχο 2 - ςασϋιςεξιε δμρ πεςχοηο χωθοδξοηο ζακμα; σμοχο 3 - ςασϋιςεξιε δμρ χτοςοηο χωθοδξοηο ζακμα; σμοχο 4 - ςασϋιςεξιε δμρ τςετψεηο χωθοδξοηο ζακμα. εσμι ξε ισπομψϊυΰτσρ ςασϋιςεξιρ πο υνομώαξιΰ, σοοτ- χετστχυΰύιε σμοχα δομφξω σοδεςφατψ ξομψ. οβμαστψ LINχUF (δμιξοΰ 81. βακτ) ςεϊεςχιςυετσρ πομψϊο- χατεμεν. χχοδιναρ στςολα πςεδσταχμρετσρ, λαλ στςολα διςελ- τιχω .αSσIZ, ι νοφετ βωτψ ξαπεώαταξα σ πονούψΰ ναλςολοναξδω .ςRINτ. ναλςολοναξδα .σSIGεN αχτονατιώεσλι χωβιςαετ στςολυ ιϊ λοναξδξοηο ζακμα, εσμι βωμ υλαϊαξ χχοδ σ τεςνιξαμα (σSτRNG=0), α σανα πςοηςαννα χωϊωχαμασψ ιϊ ότοηο λοναξδξοηο ζακμα. ναλςολοναξδα .σSIGεN σχρϊωχαετ τςι χοϊνοφξωθ χωθοδξωθ ζακμα σ λαξαμανι 0,1,2 σοοτχετστχεξξο ι ϋεστψ χθοδξωθ ζακ- μοχ - σ λαξαμανι 3-10 (χοσψνεςιώξοε). πςοπυσλ σπεγιζιλαγιι ζακμα χ λοναξδξοκ στςολε οσταχμρετ σοοτχετστχυΰύικ λαξαμ σχοβοδξων. - 99 - οβμαστψ DεVSςσ δομφξα βωτψ δοστατοώξοκ, ώτοβω χνεστιτψ χσε χχοδινωε δςακχεςω οδξοχςενεξξο. εσμι ςαϊνεςω δςακχεςοχ πςεχωϋαΰτ ινεΰύυΰσρ οβμαστψ, πςοηςαννα πομψϊοχατεμρ νοφετ βωτψ ισποςώεξα. πο ϊαχεςϋεξιι ναλςολοναξδω .σSIGεN R0 σοδεςφιτ αδςεσ πεςχοκ σχοβοδξοκ ρώεκλι χωϋε δςακχεςοχ. λμΰώι ι σχρϊαξξωε σ ξινι ϊξαώεξιρ πεςεδαΰτσρ χ στελ. οϋιβλι: λοδ πορσξεξιε 0 ξεδοπυστιναρ λοναξδα; 1 υλαϊαξξοε υστςοκστχο οτσυτστχυετ; 2 ξε ισπομψϊυετσρ; 3 πεςεπομξεξιε λαταμοηα; 4 χθοδξοκ ζακμ ξε ξακδεξ. πςινεώαξιε. εσμι χχοδ στςολι πςοισθοδιτ σ τεςνιξαμα, το πςι πορχμεξιι οϋιβολ σοοβύεξιε ο ξιθ χωχοδιτσρ ξα σισ- τενξωκ τεςνιξαμ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .CSTAT (σν. π. 7.3.3). 7.4.2. ναλςολοναξδα .CSISPC σιστενξαρ ναλςολοναξδα .σSISςσ χωϊωχαετ ιξτεςπςετατος λοναξδξοκ στςολι χ σπεγιαμψξον ςεφινε. ζοςνατ ναλςολοναξδω: .σSISςσ οUτSςσ,DεFεθτ,σSτRNG[,LINχUF] ηδε οUτSςσ - αδςεσ βμολα ιϊ 39 σμοχ, ηδε ςαϊνεύαΰτσρ δεσλςιπτο- ςω ζακμοχ, υλαϊαξξωε χ ναλςολοναξδε .σSISςσ; DεFεθτ - αδςεσ βμολα ιϊ ώετωςεθ σμοχ, σοδεςφαύεηο ςασϋιςε- ξιρ ζακμοχ πο υνομώαξιΰ χ λοδε RαDIθ-50; σSτRNG - αδςεσ λοναξδξοκ στςολι ιμι #0, εσμι χχοδ στςολι πςοισθοδιτ σ τεςνιξαμα; LINχUF - αδςεσ, ηδε σοθςαξρετσρ λοπιρ λοναξδξοκ στςολι. χ ότον ςεφινε ιξτεςπςετατος λοναξδξοκ στςολι ξε πςοιϊ- χοδιτ ϊαηςυϊλυ δςακχεςοχ ι ξε χωπομξρετ ναλςολοναξδ .σLοSε, - 100 - .εNτεR ι .LοολUς. χ βμολε οUτSςσ οτχοδιτσρ πεςχωε 15 σμοχ δμρ τςεθ χωθοδξωθ ζακμοχ (5 σμοχ ξα ζακμ) ι 24 σμοχα δμρ ϋεστι χθοδ- ξωθ ζακμοχ (4 σμοχα ξα ζακμ). εσμι λαλοκ-το ζακμ οτσυτστ- χυετ, το σοοτχετστχυΰύεε πομε ϊαπομξρετσρ ξυμρνι. χ βμολ δμρ χωθοδξωθ ζακμοχ ϊαξοσιτσρ: 1 σμοχο - ινρ υστςοκστχα (RADIX-50); 2-3 σμοχο - ινρ ζακμα (RADIX-50); 4 σμοχο - ςασϋιςεξιε ινεξι ζακμα (RADIX-50); 5 σμοχο - ςαϊνες ζακμα (χοσψνεςιώξοε). χ βμολ δμρ χθοδξωθ ζακμοχ ϊαξοσιτσρ: 1 σμοχο - ινρ υστςοκστχα (RADIX-50); 2-3 σμοχο - ινρ ζακμα (RADIX-50); 4 σμοχο - ςασϋιςεξιε ινεξι ζακμα (RADIX-50). εσμι στςολα ξαθοδιτσρ χ πανρτι, οξα δομφξα ϊαλαξώι- χατψσρ ξυμεχων βακτον, α ξε σοδεςφατψ σινχομω <σR>,. βμολ DεFεθτ σοδεςφιτ: σμοχο 1 - ςασϋιςεξιε δμρ χσεθ χθοδξωθ ζακμοχ; σμοχο 2 - ςασϋιςεξιε δμρ πεςχοηο χωθοδξοηο ζακμα; σμοχο 3 - ςασϋιςεξιε δμρ χτοςοηο χωθοδξοηο ζακμα; σμοχο 4 - ςασϋιςεξιε δμρ τςετψεηο χωθοδξοηο ζακμα. εσμι ξε ισπομψϊυΰτσρ ςασϋιςεξιρ πο υνομώαξιΰ, σοοτ- χετστχυΰύιε σμοχα δομφξω σοδεςφατψ 0. οβμαστψ LINχUF (δμιξοΰ 81. βακτ) ςεϊεςχιςυετσρ πομψϊο- χατεμεν. χχοδιναρ στςολα πςεδσταχμρετσρ, λαλ στςολα διςελ- τιχω .αSσIZ, ι νοφετ βωτψ ξαπεώαταξα σ πονούψΰ ναλςολοναξδω .ςRINτ. ναλςολοναξδα .σSISPC αχτονατιώεσλι χωβιςαετ στςολυ ιϊ - 101 - λοναξδξοηο ζακμα, εσμι βωμ υλαϊαξ χχοδ σ τεςνιξαμα (σSτRNG=0), α σανα πςοηςαννα χωϊωχαμασψ ιϊ ότοηο λοναξδξοηο ζακμα. χ οβύεν ι σπεγιαμψξον ςεφιναθ ιξτεςπςετατοςα λοναξδξοκ στςολι (σSI) λμΰώι ι σοοτχετστχυΰύιε ιν ϊξαώεξιρ πεςεδαΰτσρ χ στελε. λμΰώον ρχμρετσρ λοσαρ ώεςτα (/), ϊα λοτοςοκ σμεδυετ μΰβοκ σινχομ (φεματεμψξο, ώτοβω οξ βωμ ξεσμυφεβξων). ϊα λμΰώον νοφετ σμεδοχατψ ϊξαώεξιε λμΰώα, λοτοςοε υλα- ϊωχαετσρ δχοετοώιεν (:). ϊξαώεξιε λμΰώα νοφετ βωτψ μιβο χοσψνεςιώξων ώισμον, μιβο δεσρτιώξων ώισμον, μιβο ξαβοςον βυλχεξξο-γιζςοχωθ σινχομοχ (οτ 1 δο 3 σινχομοχ), πεςχωκ ιϊ λοτοςωθ δομφεξ βωτψ βυλχεξξων. δεσρτιώξωε χεμιώιξω υλαϊω- χαΰτσρ ώισμον σ τοώλοκ. εσμι τοώλα οτσυτστχυετ, το ώισμο σώιταετσρ χοσψνεςιώξων. πομψϊοχατεμψ πομυώαετ χ στελε λμΰώι ι ιθ ϊξαώεξιρ χ σμεδυΰύεν χιδε: σμοχο 1 (χεςθυϋλα στελα) - λομιώεστχο λμΰώεκ χ λοναξδξοκ στςολε; εσμι ξομψ, το λμΰώι οτσυτστχυΰτ; σμοχο 2 - νμαδϋικ βακτ σοδεςφιτ νξενοξιλυ λμΰώα, σταςϋικ - ξονες ζακμα, σ λοτοςων σχρϊαξ λμΰώ; εσμι 15 βιτ υσταξοχμεξ, το λμΰώ ινεετ ϊξαώεξιε; σμοχο 3 - εσμι υσταξοχμεξ 15 βιτ σμοχα 2, το σοδεςφιτσρ ϊξα- ώεξιε λμΰώα; εσμι ξετ, το σμεδυΰύικ λμΰώ (εσμι οξ εστψ). πςινεώαξιε. εσμι λμΰώ ινεετ ξεσλομψλο ϊξαώεξικ, χ στελ ϊαπισωχαετσρ σοοτχετστχυΰύεε λομιώεστχο λμΰώεκ. σμεδυετ πονξιτψ, ώτο χ Fχ-νοξιτοςε χχοδ σ σιστενξοηο τεςνιξαμα χσεηδα οσυύεστχμρετ ξερχξοε οβςαύεξιε λ ναλςολο- ναξδε .UNLοσλ δμρ USR. ότο ξυφξο ινετψ χχιδυ πςι ισπομψϊο- χαξιι ναλςολοναξδω .Lοσλ. οϋιβλι: λοδ πορσξεξιε 0 ξεδοπυστιναρ λοναξδα; 1 υλαϊαξξοε υστςοκστχο οτσυτστχυετ. πςινεώαξιε. εσμι χχοδ στςολι πςοισθοδιτ σ τεςνιξαμα, το πςι πορχμεξιι οϋιβολ σοοβύεξιε ο ξιθ χωχοδιτσρ ξα σισ- τενξωκ τεςνιξαμ. χ πςινεςε πολαϊαξο ισπομψϊοχαξιε CSI χ σπεγιαμψξον - 102 - ςεφινε. πςοηςαννα ώιταετ ζακμ χ ζοςνατε δοσ ι ϊαπισωχαετ εηο χ ζοςνατε ςαζοσ. πςινες. .MCALL .CSISPC,.PRINT,.EXIT,.ENTER,.CLOSE START: .CSISPC #OUTSP,#DEFEXT,#CSTRNG ;χχεστι λοναξδξυΰ ;στςολυ ιϊ πανρτι BCC 1$ .PRINT #MSG .EXIT 1$: .ENTER #AREA,#0,#OUTSPC,OUTSPC+10 ;οτλςωτψ ζακμ ;δμρ χωχοδα BCC 2$ .PRINT #MSG1 .EXIT 2$: JSR PC,IO ;ποδπςοηςαννα χχοδα ;χ ζοςνατε δοσ ι χωχοδα ;χ ζοςνατε ςαζοσ .CLOSE #0 ;ϊαλςωτψ χωθοδξοκ ζακμ .EXIT CSTRNG:.ASCIZ "RK1:RAFOS.MAC=RK2:DOS.MAC" ;λοναξδξαρ ;στςολα .EVEN DEXT: .WORD 0,0,0,0 ;βμολ ςασϋιςεξικ ;πο υνομώαξιΰ AREA: .BLKW 5 ;βμολ αςηυνεξτοχ εντ MSG: .ASCIZ /οϋιβλα CSI/ MSG1: .ASCIZ /οϋιβλα ENTER/ .EVEN IO: . ;τελτ ποδπςοηςαννω . RTS PC OUTSP = . ;βμολ δεσλςιπτοςοχ .END START 7.4.3. ναλςολοναξδα .GτLIN σιστενξαρ ναλςολοναξδα .GτLIN χχοδιτ λοναξδξυΰ ιξζος- ναγιΰ, οτμιώξυΰ οτ ζοςνατα σSI σ σιστενξοηο τεςνιξαμα ιμι ιϊ χωπομξρΰύεηοσρ λοναξδξοηο ζακμα. ζοςνατ ναλςολοναξδω: .GτLIN LINχUF[,PROMPT] ηδε LINχUF - αδςεσ βυζεςα, λυδα χχοδιτσρ στςολα; PROMPT - ξεοβρϊατεμψξωκ αςηυνεξτ; αδςεσ στςολι-ποδσλαϊλι, πεώαταΰύεκσρ ξα σιστενξον τεςνιξαμε. χχοδιναρ στςολα χ οβμαστι LINχUF (81. βακτ) ολαξώι- χαετσρ ξυμεχων βακτον χνεστο <σR>. - 103 - ναλςολοναξδα .GτLIN τςεβυετ USR ι χωβιςαετ στςολυ σ σιστενξοηο τεςνιξαμα ιμι ιϊ λοναξδξοηο ζακμα χ ϊαχισινοστι οτ τοηο, οτλυδα βωμα ϊαηςυφεξα πςοηςαννα. εσμι βωμα ϊαδαξα λοναξδα Sετ ττ QUIετ, α χχοδ πςοισθο- διτ ιϊ λοσχεξξοηο ζακμα, στςολα-ποδσλαϊλα ιηξοςιςυετσρ. χ πςοτιχξον σμυώαε στςολα-ποδσλαϊλα χωχοδιτσρ ξα σιστενξωκ τεςνιξαμ πςεφδε, ώεν χωβςαξα χχοδιναρ στςολα. οϋιβλι οτσυτστχυΰτ. χ σμεδυΰύεν πςινεςε πςοηςαννα χχοδιτ στςολυ σ τεςνιξα- μα ι ςασπεώατωχαετ εε. πςινες. .MCALL .GTLIN,.PRINT,.EXIT START: .GTLIN #BUFF,#PROMPT ;χχεστι στςολυ TSTB BUFF ;στςολα πυσταρ? BEQ END ;δα .PRINT #BUFF ;ξετ...χωχεστι στςολυ BR START END: .EXIT PROMPT:.ASCIZ /χχεδιτε στςολυ/ ;στςολα-ποδσλαϊλα BUFF: .BLKB 82. ;βυζες χχοδινοκ στςολι .END START 7.5. ςαβοτα σ τακνεςον 7.5.1. ναλςολοναξδα .GTIM σιστενξαρ ναλςολοναξδα .GTIM χοϊχςαύαετ τελυύεε σοδες- φινοε σιστενξοηο τακνεςα (χ τιλαθ) πο υλαϊαξξονυ αδςεσυ. ζοςνατ ναλςολοναξδω: .GτIν αRεα,αDDR ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ δχυθ σμοχ; αDDR - αδςεσ νασσιχα ιϊ δχυθ σμοχ, χ λοτοςωκ ϊαξοσιτσρ χςενρ χο χξυτςεξξεν ζοςνατε (πεςχοε σμοχο σοδεςφιτ σταςϋιε ςαϊςρδω, χτοςοε - νμαδϋιε). - 104 - ζοςνατ σπισλα αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 21 ! 0 ! !--------!--------! ! ADDR ! !-----------------! πςοηςαννα πομψϊοχατεμρ δομφξα σανα πςεοβςαϊοχωχατψ χςενρ ιϊ τιλοχ χ ώασω, νιξυτω, σελυξδω (1 σελ = 50 τιλαν δμρ σετι σ ώαστοτοκ 50 ηγ). οϋιβλι οτσυτστχυΰτ. χ πςινεςε πομψϊοχατεμψ πομυώαετ χ ρώεκλε TIME τελυύεε χςενρ χ τιλαθ. πςινες. .MCALL .GTIM,.EXIT START: .GTIM #AREA,#TIME ;πομυώιτψ χςενρ .EXIT TIME: .WORD 0,0 AREA: .BLKW 2 ;βμολ αςηυνεξτοχ εντ .END START 7.5.2. ναλςολοναξδα .σνλτ σιστενξαρ ναλςολοναξδα .σνλτ πςεδξαϊξαώεξα δμρ οτνεξω ξεχωπομξεξξωθ ναλςολοναξδ χςενεξξοηο ιξτεςχαμα (.MRλτ). ζοςνατ ναλςολοναξδω: .σνλτ αRεα,ID[,TIME] ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ τςεθ σμοχ; ID - ιδεξτιζιλατος λαφδοκ ναλςολοναξδω .νRλτ; TIME - αδςεσ νασσιχα ιϊ δχυθ σμοχ, σοδεςφαύιθ χςενρ χο χξυτςεξξεν ζοςνατε, οσταχϋεεσρ χ οτνεξεξξοκ ναλςο- λοναξδε; πεςχοε σμοχο σοδεςφιτ σταςϋιε ςαϊςρδω, χτοςοε - νμαδϋιε. - 105 - ζοςνατ σπισλα αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 23 ! 0 ! !--------!--------! ! ID ! !-----------------! ! TIME ! !-----------------! οτνεξα ναλςολοναξδω .νRλτ οσχοβοφδαετ σοοτχετστχυΰύικ όμενεξτ οώεςεδι δμρ δςυηιθ γεμεκ. εσμι ξεσλομψλο ναλςολοναξδ .νRλτ ινεΰτ οδιξαλοχωκ ID, το οτνεξρετσρ ναλςολοναξδα σ σανων ςαξξιν χςενεξεν ολοξώα- ξιρ. εσμι ID = 0, το χσε ξεσιστενξωε ναλςολοναξδω .νRλτ (χ διαπαϊοξε 1-177377) δμρ δαξξοκ πςοηςαννω οτνεξρΰτσρ, α αςηυνεξτ TIME ιηξοςιςυετσρ. οϋιβλι: λοδ πορσξεξιε 0 ναλςολοναξδα .νRλτ σ ϊαδαξξων NUν ξε ξακδεξα (μιβο ναλςολοναξδα ξε βωμα ϊαδαξα, μιβο οξα υφε ϊαλοξώεξα). πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .MRKT (π. 2.5.4). 7.5.3. ναλςολοναξδα TWAIT (FB, XM) σιστενξαρ ναλςολοναξδα .τWαIτ πςιοσταξαχμιχαετ χωπομ- ξεξιε πςοηςαννω ξα υλαϊαξξωκ ιξτεςχαμ χςενεξι. ζοςνατ ναλςολοναξδω: .τWαIτ αRεα,τIνε ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ δχυθ σμοχ; τIνε - αδςεσ νασσιχα ιϊ δχυθ σμοχ, σοδεςφαύιθ χςενεξξοκ ιξτεςχαμ χ τιλαθ. - 106 - ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 24 ! 0 ! !--------!--------! ! TIME ! !-----------------! σιστενξαρ ναλςολοναξδα .τWαIτ τςεβυετ όμενεξτ οώεςεδι, ποότονυ πςεφδε ξεοβθοδινο χωπομξιτψ ναλςολοναξδυ .QSετ. πςινεώαξιε. ναλςολοναξδα .τWαIτ ςεαμιϊυετσρ χ νοξιτοςε σ ισπομψϊοχαξιεν ναλςολοναξδ .SςND ι .RSUν. ποότονυ ναλςο- λοναξδα .RSUν, χωδαξξαρ πςοηςαννοκ ϊαχεςϋεξιρ βεϊ σοοτ- χετστχυΰύεκ ναλςολοναξδω .SPND, νοφετ χωϊχατψ πςοδομφεξιε οσξοχξοκ πςοηςαννω ςαξψϋε, ώεν ϊαλοξώιτσρ ϊαδαξξωκ χςενεξ- ξοκ ιξτεςχαμ. οϋιβλι: λοδ πορσξεξιε 0 ξετ σχοβοδξοηο όμενεξτα οώεςεδι. 7.5.4. ναλςολοναξδα .νRλτ σιστενξαρ ναλςολοναξδα .νRλτ πμαξιςυετ ϊαπυσλ υλαϊαξ- ξοκ ποδπςοηςαννω ϊαχεςϋεξιρ ώεςεϊ ϊαδαξξωκ ιξτεςχαμ χςενεξι χ τιλαθ ( 1 σ = 50 τιλοχ δμρ ώαστοτω σετι 50 ηγ). ζοςνατ ναλςολοναξδω: .νRλτ αRεα,τIνε,CRTN,ID ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ ώετωςεθ σμοχ; τIνε - αδςεσ νασσιχα ιϊ δχυθ σμοχ, σοδεςφαύιθ χςενεξξοκ ιξτεςχαμ; CRTN - αδςεσ χθοδα χ ποδπςοηςαννυ ϊαχεςϋεξιρ; ID - ιδεξτιζιλατος λαφδοκ ναλςολοναξδω .νRλτ. - 107 - ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 22 ! 0 ! !--------!--------! ! TIME ! !-----------------! ! CRTN ! !-----------------! ! ID ! !-----------------! σιστενξαρ ναλςολοναξδα .νRλτ τςεβυετ όμενεξτ οώεςεδι. πομψϊοχατεμψ δομφεξ σαν ςασπςεδεμιτψ δοστατοώξοε λομιώεστχο όμενεξτοχ οώεςεδι. ID χ διαπαϊοξε 177400-177777 (χοσψνεςιώξοε) ϊαςεϊεςχι- ςοχαξω δμρ σιστενξοηο ισπομψϊοχαξιρ. ξεσλομψλο ναλςολοναξδ .νRλτ νοηυτ ινετψ οδιξ ι τοτ φε ID. πςι χθοδε χ ποδπςοηςαννυ ϊαχεςϋεξιρ R0 σοδεςφιτ ID. οϋιβλι: λοδ πορσξεξιε 0 ξετ σχοβοδξοηο όμενεξτα οώεςεδι. χ σμεδυΰύεν πςινεςε πο ιστεώεξιι χςενεξι χωδαετσρ σοοβύεξιε ξα τεςνιξαμ. πςινες. .MCALL .READ,.WAIT,.MRKT,.CMKT .MCALL .QSET,.PRINT,.EXIT,.LOOKUP START: .LOOKUP #AREA,#0,#FILE ;οτλςωτψ ζακμ BCS LKERR MOV #AREA,-(SP) .QSET #QUEUE,#5 ;δοβαχιτψ 5 όμενεξτοχ ;οώεςεδι .MRKT (SP),#INTRVL,#MRTN,#1 ;ϊαπυστιτψ MRTN ;πο ιστεώεξιι χςενεξι BCS NOMRKT .READ #RDLST ;ώιτατψ BCS RDERR .WAIT #0 ;φδατψ .CMKT (SP),#1 ;οσχοβοδιτψ όμενεξτ ;οώεςεδι (οτνεξιτψ .MRKT BCS NOTDUN .EXIT MRTN: ;ποδπςοηςαννα ϊαχεςϋεξιρ .PRINT #FAIL1 RTS PC LKERR: .PRINT #LM .EXIT RDERR: .PRINT #RDMSG - 108 - .EXIT NOTDUN:.PRINT #FAIL .EXIT NOMRKT:.PRINT #NOQ .EXIT NOQ: .ASCIZ /ξετ όμενεξτα οώεςεδι/ FAIL: .ASCIZ /οϋιβλα CMKT/ FAIL1: .ASCIZ /χςενρ ιστελμο/ LM: .ASCIZ /οϋιβλα LOOKUP/ RDMSG: .ASCIZ /οϋιβλα READ/ .EVEN INTRVL:.WORD 0,13. ;χςενρ QUEUE: .BLKW 5*7 ;βμολ όμενεξτοχ AREA: .BLKW 5 ;βμολ αςηυνεξτοχ εντ ;δμρ .MRKT FILE: .RAD50 /DK FILE TST/ RDLST: .BYTE 0 ;βμολ αςηυνεξτοχ εντ .BYTE 10 ;δμρ .READ BLOCK: .WORD 0 .WORD BUFF .WORD 256. .WORD 1 BUFF: .BLKW 256. ;βυζες χχοδα .END START 7.6. σιστενξωε ναλςολοναξδω οβύεηο ξαϊξαώεξιρ χ ότον ποδςαϊδεμε χ αμζαχιτξον ποςρδλε πςιχεδεξο οπι- σαξιε σιστενξωθ ναλςολοναξδ οβύεηο ξαϊξαώεξιρ. 7.6.1. ναλςολοναξδα .σξαIN σιστενξαρ ναλςολοναξδα .CHAIN ισπομψϊυετσρ τομψλο δμρ πςοηςανν, ϊαηςυφαενωθ χ ζοξοχωκ ςαϊδεμ (δμρ FB/XM-νοξιτοςα) ι δμρ μΰβοκ πςοηςαννω χ RM/SJ/TS-νοξιτοςε. σιστενξαρ ναλςολοναξδα .σξαIN οβεσπεώιχαετ ϊαηςυϊλυ ξοχοκ πςοηςαννω χνεστο χωπομξρενοκ ι πεςεδαώυ εκ υπςαχμεξιρ βεϊ χνεϋατεμψστχα οπεςατοςα. ποχτοςρρ ότοτ πςογεσσ, νοφξο οςηαξιϊοχατψ ϊαηςυϊλυ πςοηςανν πο "γεποώλε". ρώεκλι πανρτι 500-507 σοδεςφατ ινρ υστςοκστχα ι ζακμα (χ λοδε RαDIθ-50), ιϊ λοτοςοηο βυδετ χωπομξρτψσρ ϊαηςυϊλα ξοχοκ πςοηςαννω, α οβμαστψ 510-777 ισπομψϊυετσρ δμρ πεςεδα- ώι ιξζοςναγιι ϊαηςυφαενοκ πςοηςαννε. ζοςνατ ναλςολοναξδω: - 109 - .σξαIN ζοςνατ ςεηιστςα R0: !--------!--------! R0 => ! 10 ! 0 ! !--------!--------! χωπομξεξιε ναλςολοναξδω .σξαIN ηαςαξτιςυετ σοθςαξεξιε σοδεςφινοηο οβμαστι πανρτι 500-510 ι νοξιτοςα. σοθςαξεξιε ρώεελ 510-777 (οβμαστψ οβνεξα ιξζοςναγιεκ) ϊαχισιτ οτ ϊξα- ώεξιρ βιτα CHAIN$ (βιτ 8) χ σμοχε σοστορξιρ πςοηςαννω πεςεδ ϊαηςυϊλοκ. σοδεςφινοε ότιθ ρώεελ ξε σοθςαξρετσρ, εσμι ναλ- ςολοναξδα .CHAIN χωπομξρετσρ ιϊ χιςτυαμψξοηο ϊαδαξιρ. πςι χωπομξεξιι ναλςολοναξδω .σξαIN οτλςωτωε λαξαμω χχοδα/χωχοδα νοηυτ ισπομψϊοχατψσρ ξοχοκ πςοηςαννοκ. οδξαλο σμεδυετ πονξιτψ, ώτο νοξιτος χο χςενρ χωπομξεξιρ ναλςολο- ναξδω .σξαIN χοϊχςαύαετσρ λ ισθοδξων 16 λαξαμαν. σμεδοχα- τεμψξο, πςοηςαννω, οσταχμρΰύιε ζακμω οτλςωτωνι, ξε δομφξω ισπομψϊοχατψ ναλςολοναξδυ .σDFN. σμεδυετ πονξιτψ, ώτο ότο σπςαχεδμιχο τομψλο δμρ πςοηςανναν ξα ασσενβμεςε. δμρ ρϊωλοχ χωσολοηο υςοχξρ ιξζοςναγιρ οβ οτλςωτωθ λαξαμαθ ι ξαϊξαώε- ξιρθ ξε σοθςαξρετσρ πςι χωπομξεξιι ναλςολοναξδω .CHAIN. ξεςεϊιδεξτξωε δςακχεςω υστςοκστχ χωηςυφαΰτσρ χο χςενρ χωπομξεξιρ ναλςολοναξδω .σξαIN ι δομφξω βωτψ ϊαηςυφεξω ξοχοκ πςοηςαννοκ σ πονούψΰ ναλςολοναξδω .Fετσξ (ξεμψϊρ πςι ςαβοτε TS-νοξιτοςα). πςοχεςλοκ βιτα σξαIN$ (βιτ 8) σμοχα σοστορξιρ πςοηςαν- νω JSW νοφξο υσταξοχιτψ, βωμα μι πςοηςαννα ϊαηςυφεξα ποσ- ςεδστχον ναλςολοναξδω .σξαIN ιμι λοναξδοκ νοξιτοςα RUN. οϋιβλι: ναλςολοναξδοκ .σξαIN χωδαΰτσρ τε φε σοοβύεξιρ οβ οϋιβλαθ, λαλιε ηεξεςιςυΰτσρ πςι χωπομξεξιι λοναξ- δω νοξιτοςα RUN. πςι πορχμεξιι οϋιβλι ναλςολο- ναξδα .σξαIN ιηξοςιςυετσρ ι υπςαχμεξιε πεςεδαετ- σρ νοξιτοςυ. χιςτυαμψξοε ϊαδαξιε δομφξο ϊαηςυφατψσρ πο λοναξδε RUN, τ.ε. ξεμψϊρ ισπομψϊοχατψ ναλςολοναξδυ .CHAIN δμρ εηο ϊαη- ςυϊλι. πςινεώαξιε. πςι ισπομψϊοχαξιι ναλςολοναξδω .CHAIN ξυφ- ξο βωτψ οστοςοφξων πςι ιξιγιαμιϊαγιι στελα. οβωώξο λονπο- ξοχύιλ πςι ιξιγιαμιϊαγιι στελα πο υνομώαξιΰ υσταξαχμιχαετ εηο ξαώαμψξωκ αδςεσ ςαχξων 1000 (χοσψνεςιώξοε). εσμι οστο- ςοφξοστψ ξε σοβμΰδεξα, στελ νοφετ ςαϊςυϋιτψ πεςεδαχαενυΰ ιξζοςναγιΰ δο τοηο, λαλ οξα βυδετ ισπομψϊοχαξα. πςινες. πςοηςαννα PRINT.SAV ϊαηςυφαετσρ ιϊ πςοηςαννω GO.SAV σ πονούψΰ ναλςολοναξδω .CHAIN. - 110 - ; πςοηςαννα GO.SAV ; ------------------ ; .MCALL .CHAIN,.TTYIN,.DBLK,.CTRLT .CTRLT ;οπςεδεμιτψ υπςαχμρ- ;ΰύιε σινχομω ;(ϊδεσψ LF) START: MOV #500,R1 MOV #FILE,R2 .REPT 4 MOV (R2)+,(R1)+ ;ινρ ζακμα χ 500-507 .ENDR 1$: .TTYIN ;ϊαξεσεξιε σινχομοχ σ MOVB R0,(R1)+ ;TT: χ οβμαστψ 510-777 CMPB R0,#LF ;χσρ στςολα χχεδεξα? BNE 1$ ;ξετ CLRB -(R1) ;δα .CHAIN ;ϊαπυσλ πςοηςαννω PRINT FILE: .DBLK SY,PRINT,SAV ;ινρ υστςοκστχα ι ζακμα .END START ; πςοηςαννα PRINT ; --------------- ; .MCALL .PRINT,.EXIT BUFF=510 START: .PRINT #MSG ;πεώατψ σοοβύεξιρ .PRINT #BUFF ;πεώατψ οβμαστι 510-777 .PRINT #MSG1 ;πεώατψ σοοβύεξιρ .EXIT MSG: .ASCII /ξαώαμο πεώατι σοοβύεξιρ ιϊ / .ASCIZ /οβμαστι 510-777/ MSG1: .ASCIZ /λοξεγ πεώατι/ .EVEN .END START 7.6.2. ναλςολοναξδα .σNFDF σιστενξαρ ναλςολοναξδα .σNFDF οπςεδεμρετ σινχομω ι νξενοξιώεσλιε οβοϊξαώεξιρ ςαϊςρδοχ σμοχ λοξζιηυςαγιι σιστε- νω. ζοςνατ ναλςολοναξδω: .σNFDF ςασϋιςεξιε ναλςολοναξδω: CONFIG =^O300 FBMON$ =^O1 HWDSP$ =^O4 BATCH$ =^O10 CLK50$ =^O40 HWFPU$ =^O100 FJOB$ =^O200 - 111 - GTLNK$ =^O400 USR$ =^O1000 LSI$ =^O4000 MMU$ =^O10000 LKCS$ =^O20000 KW$P =^O40000 CLOCK$ =^O100000 CONFG2 =^O370 CACHE$ =^O1 MPTY$ =^O2 SWREG$ =^O4 LIGHT$ =^O10 EIS$ =^O400 VS6$0 =^O1000 TYP70$ =^O40000 TYP60$ =^O100000 SYSGEN =^O372 ERLG$ =^O1 MMGT$ =^O2 TIMIT$ =^O4 MPTY$ =^O1000 TIMER$ =^O2000 ESCP$ =^O14000 MTTY$ =^O20000 δαξξαρ ναλςολοναξδα λοδοχ εντ ξε ηεξεςιςυετ, α ρχμρετ- σρ ώιστο οπισατεμψξοκ. οϋιβλι οτσυτστχυΰτ. χ σμεδυΰύεν πςινεςε οπςεδεμρετσρ ςεϊιδεξτξοστψ USR. πςινες. .MCALL .CNFDF,.EXIT,.PRINT,.GVAL .CNFDF ;οπςεδεμιτψ νξενοξιλυ ;σνεύεξιρ νοξιτοςα ;CONFIG (300) ι εηο ;βιτοχ (ϊδεσψ USR$) START: .GVAL #AREA,#CONFIG ;πομυώιτψ σοδεςφινοε ;σνεύεξιρ CONFIG χ R0 BIT R0,#USR$ ;βιτ USR$ υσταξοχμεξ? BEQ 1$ ;ξετ .PRINT #MSG ;δα...πεώατψ σοοβύεξιρ BR 2$ 1$: .PRINT #MSG1 ;πεώατψ σοοβύεξιρ 2$: .EXIT AREA: .BLKW 2 ;βμολ αςηυνεξτοχ εντ MSG: .ASCIZ /USR ξε ςεϊιδεξτξα/ MSG1: .ASCIZ /USR ςεϊιδεξτξα/ .EVEN .END START - 112 - 7.6.3. ναλςολοναξδα .σNτθSW (Fχ, XM, TS) σιστενξαρ ναλςολοναξδα .σNτθSW οπςεδεμρετ ρώεκλι, λοτοςωε ξεοβθοδινο χλμΰώιτψ χ οβμαστψ λοξτελστξοηο πεςελμΰ- ώεξιρ πςοηςαννω πςι πεςελμΰώεξιι νοξιτοςα σ χωπομξεξιρ οδξοκ πςοηςαννω ξα χωπομξεξιε δςυηοκ. χ TS-νοξιτοςε ναλςολοναξδα .CNTXSW οτςαβατωχαετσρ λαλ NOP. ζοςνατ ναλςολοναξδω: .σNτθSW αRεα,αDDR ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ δχυθ σμοχ; αDDR - αδςεσ ταβμιγω αδςεσοχ, ποδμεφαύιθ χλμΰώεξιΰ χ οβμαστψ σοθςαξεξιρ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 33 ! 0 ! !--------!--------! ! ADDR ! !-----------------! ταβμιγα αδςεσοχ δομφξα ϊαλαξώιχατψσρ ξυμεχων σμοχον. αδςεσα δομφξω βωτψ ώετξωνι ι πςιξαδμεφατψ λ οδξοκ ιϊ σμε- δυΰύιθ οβμαστεκ: - χ διαπαϊοξε 2 - 476; - χ οβμαστι ϊαδαξιρ πομψϊοχατεμρ; - χ στςαξιγε χχοδα/χωχοδα (160000-177776). πςι πεςελμΰώεξιι σ οδξοηο ϊαδαξιρ ξα δςυηοε σιστενα σοθςαξρετ ιξζοςναγιΰ δμρ πςοηςαννω, χλμΰώαΰύυΰ: - σοδεςφινοε υξιχεςσαμψξωθ ςεηιστςοχ R0-R5 ι R7; - σοδεςφινοε σμοχα σοστορξιρ πςογεσσοςα PS; - χελτος ιξστςυλγιι τRας (ρώεκλι 34-36); - ρώεκλι σιστενξοκ οβμαστι σχρϊι (40-52); - ρώεκλι, οπςεδεμεξξωε ναλςολοναξδοκ .σNτθSW. εσμι ναλςολοναξδα .SFςα χωπομξρετσρ σ ξεξυμεχων αδςε- σον, το ταλφε σοθςαξρΰτσρ χσε ςεηιστςω ι σμοχο σοστορξιρ πςογεσσοςα πμαχαΰύεκ ϊαπρτοκ (δμρ σν-1420). πςι νξοηολςατξον χωπομξεξιι ναλςολοναξδω .σNτθSW, σοθ- ςαξρΰτσρ τομψλο αδςεσα ιϊ ποσμεδξεηο σπισλα; πςεδϋεστχυΰύιε σπισλι ιηξοςιςυΰτσρ. σπισολ ξε δομφεξ βωτψ ςασπομοφεξ χ οβμαστι σχοπιξηα USR ι νοδιζιγιςοχατψσρ πςι χωπομξεξιι πςοηςαννω. - 113 - εσμι αςηυνεξτ αDDR=0, το ξιλαλιε αδςεσα ξε σοθςαξρΰτ- σρ. πςινεώαξιε. χ θν-νοξιτοςε ναλςολοναξδα .σNτθSW ιηξοςι- ςυετσρ πο δχυν πςιώιξαν: - πςι ποπωτλε χωπομξεξιρ εε ιϊ χιςτυαμψξοκ πςοηςαν- νω, τ.λ. χιςτυαμψξαρ πςοηςαννα ξε ινεετ δοστυπα λ ρώεκλαν πανρτι δςυηιθ πςοηςανναν; - χελτοςω Iοτ, τRας, χςτ αχτονατιώεσλι χλμΰώαΰτσρ χ οβμαστψ σοθςαξεξιρ πςι ςαβοτε θν-νοξιτοςα. οϋιβλι: λοδ πορσξεξιε 0 ξεώετξωκ αδςεσ χ ταβμιγε ADDR ιμι οξ πςιξαδμεφιτ λ ϊαπςεύεξξοκ οβμαστι χ σμεδυΰύεν πςινεςε χ οβμαστψ σοθςαξεξιρ ϊαδαξιρ χλμΰ- ώαΰτσρ αδςεσα 20, 22, 177302, 177304, 177310. πςινες. .MCALL .CNTXSW,.PRINT,.EXIT START: MOV #LIST,R0 .CNTXSW ,SWAPLS ;χλμΰώιτψ χ οβμαστψ ;σοθςαξεξιρ ϊαδαξιρ BCC 1$ .PRINT #MSG .EXIT 1$: .PRINT #MSG1 .EXIT SWAPLS:.WORD 20 ;ταβμιγα αδςεσοχ .WORD 22 ;δμρ σοθςαξεξιρ .WORD 177302 .WORD 177304 .WORD 177310 .WORD 0 ;λοξεγ ταβμιγω LIST: .BYTE 0,33 ;βμολ αςηυνεξτοχ εντ .WORD 0 MSG: .ASCIZ /αδςεσ ξεχεςεξ/ MSG1: .ASCII /αδςεσα χλμΰώεξω χ/ .αSCIZ /πεςελμΰώατεμψ ςεσυςσοχ/ .EVEN .END START 7.6.4. ναλςολοναξδα .στRLτ σιστενξαρ ναλςολοναξδα .στRLτ οπςεδεμρετ σινχομψξωε οβοϊξαώεξιρ υπςαχμρΰύιθ σινχομοχ (ινεΰύιθ λοδω 0-37). ζοςνατ ναλςολοναξδω: - 114 - .στRLτ ςασϋιςεξιε ναλςολοναξδω: NUL =^O000 SOH =^O001 STH =^O002 ETX =^O003 EOT =^O004 ENQ =^O005 ACK =^O006 BEL =^O007 BS =^O010 HT =^O011 LF =^O012 VT =^O013 FF =^O014 CR =^O015 SO =^O016 SI =^O017 DLE =^O020 DC1 =^O021 DC2 =^O022 DC3 =^O023 DC4 =^O024 NAK =^O025 SYN =^O026 ETB =^O027 CAN =^O030 EM =^O031 SUB$ =^O032 ESC =^O033 FS =^O034 GS =^O035 RS =^O036 US =^O037 δαξξαρ ναλςολοναξδα λοδοχ εντ ξε ηεξεςιςυετ, α ρχμρετ- σρ ώιστο οπισατεμψξοκ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .CHAIN (σν. π. 7.6.1). 7.6.5. ναλςολοναξδα .DATE σιστενξαρ ναλςολοναξδα .DATE πεςεδαετ ιξζοςναγιΰ ο τελυύεκ δατε χ R0: - βιτω 13-10 - ξονες νεσργα (1-12.); - βιτω 9-5 - δεξψ ξεδεμι (1-31.); - βιτω 4-0 - ηοδ (ϊξαώεξιε ηοδα οπςεδεμρετσρ χωώιτα- - 115 - ξιεν ιϊ τελυύεηο ηοδα ώισμα 1972). ζοςνατ ναλςολοναξδω: .DATE ζοςνατ ςεηιστςα R0: !--------!--------! R0 => ! 12 ! 0 ! !--------!--------! εσμι ποσμε χωπομξεξιρ ναλςολοναξδω R0=0, το ότο οϊξα- ώαετ, ώτο δατα ξε βωμα χχεδεξα πομψϊοχατεμεν. πςινεώαξιε. σιστενα ξε πςοιϊχοδιτ πςοχεςλυ ξα λοςςελτ- ξοστψ υλαϊαξξοκ δατω (λοξεγ νεσργα ι ηοδα). ξαπςινες, πομψ- ϊοχατεμψ νοφετ χχεστι ταλυΰ δατυ λαλ 31 ζεχςαμρ. ξεοβθοδινο τοώξο χωώισμρτψ χ πςοηςαννε ηοδ ι πεςχωκ δεξψ λαφδοηο νεσρ- γα. οϋιβλι οτσυτστχυΰτ. χ πςινεςε πςιχεδεξα ποδπςοηςαννα οβςαβοτλι δατω, χχε- δεξξοκ πομψϊοχατεμεν λοναξδοκ νοξιτοςα DATE. πςινες. ; οβςαύεξιε λ ποδπςοηςαννε: ; ; JSR PC,DATE ; ; ςεϊυμψτατ: R0 = νεσργ (1-12) ; R1 = ώισμο (1-31) ; R2 = ηοδ (πο νοδυμΰ 100) ; ; οϋιβλι: R0=0, εσμι δατα ξε χχεδεξα πομψϊοχατεμεν ; .MCALL .DATE,.POP,.PUSH DATE: .PUSH R2,R1,R0 ;σοθςαξιτψ ςεηιστςω .DATE ;χωβςατψ δατυ MOV R0,R2 ;χχεδεξα? BEQ 1$ ;ξετ BIC #^C37,R2 ;χωβςατψ ηοδ χ R2 ADD #72.,R2 MOV R0,R1 ;χωβςατψ ώισμο ASL R1 ASL R1 ASL R1 SWAB R1 BIC #^C37,R1 SWAB R0 ;χωβςατψ νεσργ ASR R0 ASR R0 BIC #^C37,R0 1$: .POP R0,R1,R2 ;χοσσταξοχιτψ ςεηιστςω RTS PC - 116 - .END 7.6.6. ναλςολοναξδα .DBLK σιστενξαρ ναλςολοναξδα .DχLλ σοϊδαετ βμολ υστςοκστχα δμρ υλαϊαξξοηο ζακμα χ λοδε RαDIθ-50. ζοςνατ ναλςολοναξδω: .DχLλ DεV,Nαν,τYς ηδε DεV - ινρ υστςοκστχα; Nαν - ξαινεξοχαξιε ζακμα; τYς - ςασϋιςεξιε ινεξι ζακμα. δαξξαρ ναλςολοναξδα λοδοχ εντ ξε ηεξεςιςυετ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .CHAIN (σν. π. 7.6.1). 7.6.7. ναλςολοναξδα .DεVIσε (FB, XM, TS) σιστενξαρ ναλςολοναξδα .DEVICE ισπομψϊυετσρ δμρ ϊαη- ςυϊλι ςεηιστςοχ υστςοκστχ ξεοβθοδινωνι ϊξαώεξιρνι, εσμι χωπομξεξιε πςοηςαννω ϊαχεςϋαετσρ. ξαπςινες, πςι χωπομξεξιι ναλςολοναξδω .EXIT ιμι πςεςωχαξιι χωπομξεξιρ πςοηςαννω πο σιστενα ιϊχμελαετ σπισολ ι ϊαπισωχαετ ϊξαώεξιρ χ υλαϊαξξωε αδςεσα. σ πονούψΰ ότοκ ναλςολοναξδω νοφξο ϊαπςε- τιτψ πςεςωχαξιρ οτ υστςοκστχα πςι πςεςωχαξιι χωπομξεξιρ πςοηςαννω. εσμι ζοξοχαρ πςοηςαννα ρχμρετσρ πεςεϊαπυσλαενοκ (πο λοναξδε νοξιτοςα REENTER) ι ισπομψϊυετ ναλςολοναξδυ .DEVICE, το EE ξεοβθοδινο χλμΰώιτψ λαλ ώαστψ πςογεδυςω ποχ- τοςξοκ ιξιγιαμιϊαγιι χσεκ πςοηςαννω. σιστενξαρ ναλςολοναξδα .DεVIσε οπςεδεμρετ ταβμιγω αδςεσοχ, χ λοτοςωε ξυφξο ϊαπισατψ υλαϊαξξυΰ ιξζοςναγιΰ πςι ϊαχεςϋεξιι πςοηςαννω. ναλςολοναξδα .DEVICE ιηξοςιςυετσρ, εσμι ϊαπςοσ ποστυ- παετ ιϊ χιςτυαμψξοκ πςοηςαννω πςι ςαβοτε XM-νοξιτοςα ιμι ιϊ πςοηςαννω, ϊαπυύεξξοκ ξεπςιχιμεηιςοχαξξων πομψϊοχατεμεν πςι ςαβοτε TS-νοξιτοςα. - 117 - ζοςνατ ναλςολοναξδω: .DεVIσε αRεα,αDDR[,LINλ] ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ δχυθ σμοχ; αDDR - αδςεσ ταβμιγω αδςεσοχ ι ϊξαώεξικ; εσμι αςηυνεξτ ADDR ινεετ ϊξαώεξιε "#0", το πςεδωδυύαρ υξιώτο- φαετσρ (χ ότον σμυώαε αςηυνεξτ LINK δομφεξ οτσυτστχοχατψ); LINλ - αςηυνεξτ, ποϊχομρΰύικ οβ'εδιξρτψ ταβμιγω αδςεσοχ ι ϊξαώεξικ πςι ποσμεδοχατεμψξωθ χωπομξεξιρθ ναλςολο- ναξδω .DεVIσε; εσμι αςηυνεξτ οπυύεξ, το πςεδωδυύαρ ταβμιγα αδςεσοχ ι ϊξαώεξικ ϊανεξρετσρ ξοχοκ, α ξε οβ'εδιξρετσρ; οδξαλο, ξεχοϊνοφξο σοχνεστξοε συύεστχοχαξιε ταβμιγ δχυθ ζοςνατοχ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ (βεϊ οβ'εδιξεξιρ): !--------!--------! R0 => AREA: ! 14 ! 0 ! !--------!--------! ! ADDR ! !-----------------! ζοςνατ ταβμιγω αςηυνεξτοχ εντ (σ οβ'εδιξεξιεν): !--------!--------! R0 => AREA: ! 14 ! 1 ! !--------!--------! ! ADDR ! !-----------------! οβα ζοςνατα ταβμιγω αδςεσοχ ι ϊξαώεξικ δομφξω ϊαλαξώι- χατψσρ ξυμεχων σμοχον. ξο, χ οτμιώιε οτ ζοςνατα βεϊ οβ'εδι- ξεξιρ, ζοςνατ σ οβ'εδιξεξιεν δομφεξ ι ξαώιξατψσρ ξυμεχων σμοχον: - 118 - ζοςνατ ταβμιγω αδςεσοχ ι ϊξαώεξικ βεϊ οβ'εδιξεξιρ σ οβ'εδιξεξιεν !----------! !----------! ADDR: ! αδςεσ ! ADDR: ! 0 ! !----------! !----------! ! ϊξαώεξιε ! ! αδςεσ ! !----------! !----------! ! αδςεσ ! ! ϊξαώεξιε ! !----------! !----------! : : : : : : : : !----------! !----------! ! ϊξαώεξιε ! ! αδςεσ ! !----------! !----------! ! 0 ! ! ϊξαώεξιε ! !----------! !----------! ! 0 ! !----------! ταβμιγα αδςεσοχ ι ϊξαώεξικ ϊαπομξρετσρ πομψϊοχατεμεν ποσμοχξο: σμοχο 1 - αδςεσ, χ λοτοςωκ πονεύαετσρ ιξζοςναγιρ; σμοχο 2 - ϊξαώεξιε, λοτοςοε ξεοβθοδινο ϊαξεστι πο ϊαχεςϋεξιι πςοηςαννω; σμοχο 3 - αδςεσ; σμοχο 4 - ϊξαώεξιε; ι τ.δ. ϊαλαξώιχαετσρ ταβμιγα ξυμεχων σμοχον. οϋιβλι οτσυτστχυΰτ. χ σμεδυΰύεν πςινεςε πο ολοξώαξιι ςαβοτω χ ρώεκλυ 172570 ϊαξοσιτσρ 0. πςινες. .MCALL .DEVICE,.EXIT START: .DEVICE #AREA ;οπςεδεμιτψ ταβμιγυ .EXIT AREA: .BYTE 0,10 ;βμολ αςηυνεξτοχ εντ .WORD ATOD ATOD: .WORD 172570 ;ταβμιγα αδςεσοχ ι .WORD 0 ;ϊξαώεξικ .WORD 0 .END START - 119 - 7.6.8. ναλςολοναξδα .DIR σιστενξαρ ναλςολοναξδα .DIR Bωπομξρετ ναλςολοναξδυ, ϊαδαξξυΰ ταβμιγεκ αςηυνεξτοB. ζοςνατ ναλςολοναξδω: .DIR αDDR ηδε αDDR - αδςεσ ταβμιγω αςηυνεξτοB Bωπομξρενοκ ναλςολοναξδω. ταβμιγα αςηυνεξτοχ νοφετ βωτψ ςασπομοφεξα χ μΰβον νεσ- τε πςοηςαννω πομψϊοχατεμρ. οϋιβλι οτσυτστBυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .SYNCH (π. 7.6.32). 7.6.9. ναλςολοναξδα .DSTATUS σιστενξαρ ναλςολοναξδα .DSτατUS πεςεδαετ σιστενξωε θαςαλτεςιστιλι υστςοκστχα χ πςοηςαννυ πομψϊοχατεμρ. ζοςνατ ναλςολοναξδω: .DSτατUS αDDR,DNαν ηδε αDDR - αδςεσ βμολα ιϊ 4 σμοχ δμρ ιξζοςναγιι ο σοστορξιι υστςοκστχα; DNαν - αδςεσ σμοχα, σοδεςφαύεηο ινρ υστςοκστχα (RαDIθ-50), ο λοτοςον ξεοβθοδινο πομυώιτψ ιξζοςνα- γιΰ. ινρ υστςοκστχα νοφετ βωτψ μοηιώεσλιν ινεξεν. σμεδυετ πονξιτψ, ώτο ότα ναλςολοναξδα νοφετ ισπομψϊοχατψσρ τομψλο δμρ υστςοκστχα, δςακχες λοτοςοηο ςασπομοφεξ ξα σιστενξον δισλε ι ο ξεν εστψ ιξζοςναγιρ χ σιστενξωθ ταβμιγαθ νοξιτο- ςα. πομψϊοχατεμψ πομυώαετ σμεδυΰύυΰ ιξζοςναγιΰ: σμοχο 1 - παςανετςω υστςοκστχα (δςακχεςα); σμοχο 2 - ςαϊνες δςακχεςα χ βακταθ; - 120 - σμοχο 3 - αδςεσ ϊαηςυϊλι δςακχεςα (σοοτχετστχυετ αδςεσυ ϊαηςυϊλι+6); ςαχεξ 0, εσμι δςακχες ξε ϊαηςυφεξ χ πανρτψ; σμοχο 4 - ςαϊνες υστςοκστχα χ βμολαθ; ξομψ - δμρ υστςοκστχα ποσμεδοχατεμψξοηο δοστυπα. ποσμεδξικ βμολ ξα υστ- ςοκστχε ςαχεξ νιξυσ εδιξιγε. σμοχο παςανετςοχ υστςοκστχα σοδεςφιτ: βιτ 15 - εσμι σβςοϋεξ, υστςοκστχο ποσμεδοχατεμψξοηο δοστυπα (ξαπςινες, LP, TT, MT ι τ.δ.), ιξαώε υστςοκστχο πςρνοηο δοστυπα (ξαπςινες, RK); βιτ 14 - εσμι υσταξοχμεξ, το υστςοκστχο τομψλο δμρ ώτεξιρ (ξαπςινες, PR); βιτ 13 - εσμι υσταξοχμεξ, το υστςοκστχο τομψλο δμρ ϊαπισι (ξαπςινες, LP); βιτ 12 - εσμι υσταξοχμεξ, το υστςοκστχο σ ξεσταξδαςτξοκ ζακμοχοκ στςυλτυςοκ (ξαπςινες, MT); βιτ 11 - εσμι υσταξοχμεξ, το πςι υδαμεξιι πςοηςαννω δςακχες χωπομξρετ ϊαχεςϋαΰύιε οπεςαγιι σ υστςοκστχον, ιξα- ώε ξε χωπομξρετ ϊαχεςϋαΰύιθ οπεςαγικ ξα υστςοκστ- χε, εσμι όμενεξτ οώεςεδι αλτιχεξ; βιτ 10 - εσμι σβςοϋεξ, το ναλςολοναξδα .SPFUN ϊαπςεύεξα, ιξαώε δςακχες νοφετ χωπομξρτψ ναλςολοναξδυ .SPFUN; βιτω 0 - 7 - ξονες, οπςεδεμρΰύικ τιπ υστςοκστχα. ξιφε πεςεώισμεξω ξονεςα υστςοκστχ, ισπομψϊυενωθ χ σισ- τενε: 0 - δισλ σ πμαχαΰύινι ηομοχλανι λασσετξοηο τιπα (RK); 3 - υστςοκστχο πεώατι παςαμμεμψξοηο τιπα (LP); 4 - σιστενξωκ τεςνιξαμ (TT) ιμι δςακχες παλετξοκ οβςα- βοτλι (BATCH); 6 - ηιβλικ δισλ σ δχοκξοκ πμοτξοστψΰ (DY); 7 - υστςοκστχο χχοδα/χωχοδα ξα πεςζομεξτυ (PC); 11 - ναηξιτξαρ μεξτα (MT); 12 - δισλ σ ζιλσιςοχαξξωνι ηομοχλανι (RF); 13 - ξαλοπιτεμψ ξα λασσετξοκ μεξτε (CT); 14 - υστςοκστχο χχοδα σ πεςζολαςτ (CR); - 121 - 20 - ναηξιτξαρ μεξτα σ χωσολοκ πμοτξοστψΰ (Mν); 21 - παλετ σνεξξωθ δισλοχ 20 ιμι 40 Mβακτ (DP); 22 - ηιβλικ δισλ (DX); 23 - σνεξξωκ δισλ σ πμαχαΰύινι ηομοχλανι 14 Mβακτ (DM); 25 - ξυμψ-δςακχες (NL); 34 - δςακχες σχρϊι χ ςασπςεδεμεξξοκ σιστενε ξα αλτιχξον λονπμελσε (DD); 41 - υστςοκστχο πεώατι ποσμεδοχατεμψξοηο τιπα (LS); 42 - δςακχες οβνεξα νεφδυ ϊαδαξιρνι (MQ); 44 - δςακχες σχρϊι χ ςασπςεδεμεξξοκ σιστενε ξα πασσιχ- ξον λονπμελσε (XT); 60 - δςακχες χιςτυαμψξωθ ξοσιτεμεκ (UX,UY,UZ); 377 - δςακχες ςασϋιςεξξοκ πανρτι (VM). οϋιβλι: λοδ πορσξεξιε 0 υστςοκστχο ξε οβξαςυφεξο χ σιστενξωθ ταβμιγαθ νοξιτοςα. χ πςινεςε οπςεδεμρετσρ ςεϊιδεξτξοστψ δςακχεςα ι, χ σμυώαε ξεοβθοδινοστι, δςακχες ϊαηςυφαετσρ ιμι χωηςυφαετσρ. πςινες. .MCALL .DSTATUS,.PRINT,.EXIT,.FETCH,.RELEAS START: .DSTATUS #CODE,#FTPR ;πομυώιτψ ιξζοςναγιΰ ;οβ υστςοκστχε BCC 1$ .PRINT #MSG .EXIT 1$: TST CODE+4 ;υφε ϊαηςυφεξ? BNE 3$ ;δα .FETCH #DRVR,#FTPR ;ξετ...ϊαηςυϊιτψ ;δςακχες BCC 2$ .PRINT #MSG1 .EXIT 2$: .PRINT #MSG2 ;πεώατψ σοοβύεξιρ .EXIT 3$: .RELEAS #FTPR ;χωηςυϊιτψ δςακχες BCC 4$ .PRINT #MSG3 .EXIT 4$: .PRINT #MSG4 ;πεώατψ σοοβύεξιρ .EXIT CODE: .BLKW 4 ;βμολ ιξζοςναγιι FTPR: .RAD50 /RK0/ ;ινρ υστςοκστχα - 122 - .RAD50 /FILE MAC/ ;ινρ ζακμα MSG: .ASCIZ /υστςοκστχο οτσυτστχυετ/ MSG1: .ASCIZ /οϋιβλα FETCH/ MSG2: .ASCIZ /δςακχες ςεϊιδεξτεξ/ MSG3: .ASCIZ /οϋιβλα RELEAS/ MSG4: .ASCIZ /δςακχες χωηςυφεξ/ .EVEN DRVR = . ;αδςεσ ϊαηςυϊλι ;δςακχεςα .END START 7.6.10. ναλςολοναξδα .EXIT σιστενξαρ ναλςολοναξδα .EXIT χωϊωχαετ ολοξώαξιε πςοη- ςαννω πομψϊοχατεμρ. ζοςνατ ναλςολοναξδω: .EXIT χσε ξεϊαχεςϋεξξωε ναλςολοναξδω .νRλτ αξξυμιςυΰτσρ. χσε ναλςολοναξδω χχοδα/χωχοδα ι ποδπςοηςαννω ϊαχεςϋεξιρ, χωπομ- ξρενωε δμρ δαξξοηο ϊαδαξιρ, ϊαλαξώιχαΰτσρ ξοςναμψξο. εσμι πςι χωπομξεξιι ναλςολοναξδω .EXIT R0=0, το χωπομ- ξρετσρ ποδςαϊυνεχαεναρ ναλςολοναξδα .ξRεSετ, ϊαπςεύαρ ποσ- μεδυΰύεε χωπομξεξιε λοναξδ νοξιτοςα RεεNτεR, SταRτ, σLοSε. ναλςολοναξδα .EXIT ποϊχομρετ πςοηςαννε πομψϊοχατεμρ πεςεδαχατψ χ ρώεκλι 500-777 λοναξδξωε στςολι δμρ KMON, λοτοςωε χωπομξρΰτσρ ποσμε ϊαχεςϋεξιρ ϊαδαξιρ. οπεςαγιρ χωπομξρετσρ σμεδυΰύιν οβςαϊον: - ρώεκλα (σμοχο, ξε βακτ) 510 δομφξα σοδεςφατψ οβύεε ώισμο βακτοχ λοναξδξωθ στςολ, πεςεδαχαενωθ δμρ λνοN; - λοναξδξωε στςολι, σοδεςφαύιεσρ σ 512 ρώεκλι, δομφ- ξω βωτψ στςολανι διςελτιχω .αSσIZ, ξαπςινες: .=510 .WοRD χ-α A: .αSσIZ /σοςY α.νασ χ.νασ/ .αSσIZ /DεLετ α.νασ/ χ = . - πεςεδ χωπομξεξιεν ναλςολοναξδω .EXIT πομψϊοχατεμψ δομφεξ υσταξοχιτψ βιτ σξNIF$ χ σμοχε σοστορξιρ πςοηςαννω (JSW) ι οώιστιτψ R0. πςι πεςεδαώε λοναξδξωθ στςολ δμρ KMON ινεΰτσρ σμεδυΰ- ύιε οηςαξιώεξιρ: - εσμι πςοηςαννα χωϊχαξα ιϊ λοναξδξοηο ζακμα, το εηο χωπομξεξιε πςεςωχαετσρ ι χωπομξρΰτσρ λοναξδξωε στςολι πςοηςαννω; μΰβωε σμεδυΰύιε στςολι ιϊ - 123 - λοναξδξοηο ζακμα ξιλοηδα ξε βυδυτ χωπομξεξω (τ.ε. ξε χωπομξρετσρ χοϊχςατ χ λοναξδξωκ ζακμ); - ιϊ πςοηςαννω νοφετ βωτψ χωϊχαξ τομψλο οδιξ λοναξδ- ξωκ ζακμ; στςολα χωϊοχα λοναξδξοηο ζακμα δομφξα βωτψ ποσμεδξεκ χ λοναξδξωθ στςολαθ, πεςεδαχαενωθ δμρ KMON; - ναλςολοναξδα .EXIT αξξυμιςυετ χωϊοχω ναλςολοναξδ .σDFN ι .QSετ ι χωπομξρετ ναλςολοναξδυ .UNLοσλ, εσμι βωμα χωπομξεξα ναλςολοναξδα .Lοσλ; ταλιν οβςαϊον, λοναξδα νοξιτοςα σLοSε ξε ϊαλςωχαετ λαξα- μοχ, οτλςωτωθ σ πονούψΰ .σDFN; - ναλςολοναξδα .EXIT χ ποδπςοηςανναθ ϊαχεςϋεξιρ ξεδοπυστινα. πςινεώαξιε. πςοηςαννα πομψϊοχατεμρ σανα οβεσπεώιχαετ γεμοστξοστψ δαξξωθ, πεςεδαχαενωθ λνοN χο χςενρ χωπομξεξιρ ναλςολοναξδω .EXIT. ξεοβθοδινο, ώτοβω ότα οβμαστψ ξε ποςτι- μασψ στελον πομψϊοχατεμρ. εσμι ναλςολοναξδα .EXIT ισπομψ- ϊυετσρ δμρ πεςεδαώι λοναξδξωθ στςολ δμρ KMON, υλαϊατεμψ στςολ βυδετ ιξιγιαμιϊιςοχαξ ι υσταξοχμεξ ςαχξων 1000 (χοσψ- νεςιώξοε) πεςεδ ϊαχεςϋεξιεν πςοηςαννω. οϋιβλι οτσυτστχυΰτ. χ πςινεςε ποσμε ολοξώαξιρ ςαβοτω πςοηςαννω πςοισθοδιτ πομξαρ ςασπεώατλα λαταμοηα. πςινες. .MCALL .EXIT,.JSWDF .JSWDF ;οπςεδεμιτψ νξενοξιλυ ;JSW ι εηο βιτοχ ;(ϊδεσψ CHNIF$) START: MOV #510,R0 MOV #CMDSTR,R1 1$: MOV (R1)+,(R0)+ CMP R1,#CMDEND BLO 1$ BIS #CHNIF$,@#JSW ;υσταξοχιτψ βιτ CHNIF$ CLR R0 .EXIT CMDSTR:.WORD CMDEND-CMDSTR ;δμιξα λοναξδξοκ ;στςολι .ASCIZ "DIRECT/FULL *.*" ;λοναξδξαρ στςολα CMDEND: .EVEN .END START 7.6.11. ναλςολοναξδω .Fετσξ/.RELEAS σιστενξαρ ναλςολοναξδα .FETCH (.RELEAS) ισπομψϊυετσρ δμρ ϊαηςυϊλι (υδαμεξιρ) χ οπεςατιχξυΰ πανρτψ δςακχεςα υστ- ςοκστχα χο χςενρ ςαβοτω πςοηςαννω. - 124 - πςι ςαβοτε FB-νοξιτοςα τομψλο δςακχεςω δμρ πςοηςανν οπεςατιχξοηο ςαϊδεμα (σιστενξωε ι οπεςατιχξοε) δομφξω ϊαη- ςυφατψσρ λοναξδοκ νοξιτοςα LOAD. πςι ςαβοτε XM-νοξιτοςα δςακχεςω υστςοκστχ δομφξω ϊαη- ςυφατψσρ λοναξδοκ νοξιτοςα LOAD πεςεδ ϊαηςυϊλοκ πςοηςανν χ μΰβοκ ςαϊδεμ (ζοξοχωκ ιμι οπεςατιχξωκ). πςι ςαβοτε XM/TS-νοξιτοςα οβε ναλςολοναξδω οτςαβατω- χαΰτσρ λαλ NOP (πυσταρ οπεςαγιρ). πςι ςαβοτε RM-νοξιτοςα οτςαβοτλα οβειθ ναλςολοναξδ ϊαχισιτ οτ σηεξεςιςοχαξξοκ χεςσιι νοξιτοςα (ξαπςινες, πςι οτλαϊε οτ ζακμοχοκ στςυλτυςω ισπομψϊοχαξιε ότιθ ναλςολοναξδ πςιχοδιτ λ σξρτιΰ πςοηςαννω σ χωπομξεξιρ). 7.6.11.1. ναλςολοναξδα .FETCH σιστενξαρ ναλςολοναξδα .Fετσξ ϊαηςυφαετ δςακχες σ σισ- τενξοηο υστςοκστχα χ οπεςατιχξυΰ πανρτψ. ζοςνατ ναλςολοναξδω: .Fετσξ αDDR,DNαν ηδε αDDR - αδςεσ, λυδα δομφεξ ϊαηςυφατψσρ δςακχες υστςοκστχα; DNαν - αδςεσ σμοχα, σοδεςφαύεηο ινρ υστςοκστχα χ λοδε RαDIθ-50. αδςεσ χ πανρτι δμρ ϊαηςυϊλι δςακχεςα πεςεσωμαετσρ χ στελ. ποσμε χωπομξεξιρ ναλςολοναξδω .Fετσξ R0 σοδεςφιτ αδςεσ πεςχοκ σχοβοδξοκ ρώεκλι χωϋε δςακχεςα. εσμι δςακχες υφε χ πανρτι, το R0 σοδεςφιτ τοτ φε αδςεσ, ώτο ι ξαθοδρύικ- σρ χ στελε. εσμι ϊξαώεξιε χ στελε < 400 (χοσψνεςιώξοε), το δμρ δςακχεςα χωπομξρετσρ ναλςολοναξδα .RεLεαS. σμεδυΰύιε ναλςολοναξδω τςεβυΰτ πςισυτστχιρ δςακχεςα χ πανρτι: .CLOSE .LOOKUP .ENTER .RENAME .SPFUN .DELET .READ .READC .READW .WRITE .WRITC .WRITW πςινεώαξιε. οπεςαγιι χχοδα/χωχοδα ξε νοηυτ βωτψ χωπομ- ξεξω, εσμι ξε ϊαηςυφεξ δςακχες υστςοκστχα. - 125 - οϋιβλι: λοδ πορσξεξιε 0 υστςοκστχο οτσυτστχυετ χ σιστενξωθ ταβμιγαθ νοξιτοςα; ξα σιστενξον δισλε ξετ δςακχεςα ότοηο υστςοκστχα. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .DSTATUS (σν. π. 7.6.9). 7.6.11.2. ναλςολοναξδα .RεLεαS σιστενξαρ ναλςολοναξδα .RεLεαS υδαμρετ υλαϊαξξωκ δςακ- χες ιϊ οπεςατιχξοκ πανρτι. ζοςνατ ναλςολοναξδω: .RεLεαS DNαν ηδε DNαν - αδςεσ σμοχα, σοδεςφαύεηο ινρ υστςοκστχα χ λοδε RαDIθ-50. ποσμε ναλςολοναξδω .RεLεαS, ώτοβω χξοχψ ισπομψϊοχατψ υστςοκστχο, ξεοβθοδινο χωπομξιτψ ναλςολοναξδυ .Fετσξ. πςινεώαξιε. ναλςολοναξδα .RεLεαS ξε υδαμρετ δςακχες, ϊαηςυφεξξωκ λοναξδοκ νοξιτοςα LοαD. ότο νοφξο σδεματψ τομψ- λο λοναξδοκ νοξιτοςα UNLOAD ιμι πεςεϊαηςυϊιχ σιστενυ. ναλςολοναξδα .RELEAS ιηξοςιςυετσρ, εσμι: - υλαϊαξο σιστενξοε υστςοκστχο; - δςακχεςα υστςοκστχα ξετ χ πανρτι; - δςακχες ξαθοδιτσρ χ πανρτι (ςεϊιδεξτεξ), ξο ϊαηςυ- φεξ λοναξδοκ νοξιτοςα LOAD; - ισπομψϊυετσρ μΰβοκ ιϊ πςοηςανν οπεςατιχξοηο ςαϊδε- μα (σιστενξοηο ιμι οπεςατιχξοηο) πςι ςαβοτε FB-νοξιτοςα. οϋιβλι: λοδ πορσξεξιε 0 υστςοκστχο σ υλαϊαξξων ινεξεν οτσυτστχυετ χ σιστενξωθ ταβμιγαθ νοξιτοςα. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .DSTATUS (σν. π. 7.6.9). - 126 - 7.6.12. ναλςολοναξδα .GTJB σιστενξαρ ναλςολοναξδα .GτJχ χοϊχςαύαετ παςανετςω ϊαδαξιρ χ πςοηςαννυ πομψϊοχατεμρ. ζοςνατ ναλςολοναξδω: .GτJχ αRεα,αDDR[,JOBBLK] ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ δχυθ σμοχ; αDDR - αδςεσ βμολα ιϊ χοσψνι ιμι δχεξαδγατι σμοχ, λυδα πονεύαΰτσρ παςανετςω; JOBBLK - αδςεσ βμολα ιϊ τςεθ σμοχ, σοδεςφαύιθ μοηιώεσλοε ινρ ϊαδαξιρ χ λοδε λοι-7. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 20 ! 0 ! !--------!--------! ! ADDR ! !-----------------! ! JOBBLK ! !-----------------! πομψϊοχατεμψ πομυώαετ σμεδυΰύιε παςανετςω χ βμολε ADDR: σμοχο 1 - ξονες ϊαδαξιρ ιμι μιξιι; δμρ RM/SJ-νοξιτοςα ξονες ϊαδαξιρ χσεηδα ξομψ; χ FB/XM-νοξιτοςε πςι ποδδεςφ- λε σιστενξωθ ϊαδαξικ δμρ ζοξοχοηο ϊαδαξιρ - ξομψ, δμρ σιστενξωθ ϊαδαξικ - 2, 4, 6, 10, 12, 14 ι δμρ οπεςατιχξοηο - 16; χ FB/XM-νοξιτοςε βεϊ ποδδεςφλι σιστενξωθ ϊαδαξικ δμρ ζοξοχοηο - ξομψ, δμρ οπεςα- τιχξοηο - δχα; δμρ TS-νοξιτοςα - ξονες μιξιι; σμοχο 2 - χεςθξικ αδςεσ ςαϊδεμα ϊαδαξιρ (σταςϋικ αδςεσ+2); σμοχο 3 - ξιφξικ αδςεσ ςαϊδεμα ϊαδαξιρ; σμοχο 4 - αδςεσ ξαώαμα οβμαστι λαξαμοχ χχοδα/χωχοδα; σμοχο 5 - αδςεσ σνεϋαξξοκ οβμαστι ϊαδαξιρ (δμρ Fχ/XM/TS-νοξιτοςα); σμοχο 6 - 127 - - ξονες τεςνιξαμα, λοτοςωκ ρχμρετσρ δμρ ϊαδα- ξιρ σιστενξων (ισπομψϊυετσρ τομψλο πςι ξαμιώιι νξοηοτεςνιξαμψξοκ ποδδεςφλι); ςαχεξ ξυμΰ, εσμι ξετ νξοηοτεςνιξαμψξοκ ποδδεςφλι; σταςϋικ βακτ - ϊαςεϊεςχιςοχαξ; σμοχο 7 - σταςϋικ χιςτυαμψξωκ αδςεσ δμρ χιςτυαμψξοηο ϊαδαξιρ (τομψλο πςι ςαβοτε XM-νοξιτοςα); ςαχεξ ξυμΰ, εσμι μΰβοκ δςυηοκ νοξιτος ιμι ότο ξε χιςτυαμψξοε ϊαδα- ξιε; σμοχα 8-9 - ϊαςεϊεςχιςοχαξω; σμοχα 10-12 - μοηιώεσλοε ινρ ϊαδαξιρ χ λοδε λοι-7 (τομψλο πςι ςαβοτε FB/XM-νοξιτοςα σ ποδδεςφλοκ σιστενξωθ ϊαδα- ξικ ι TS-νοξιτοςα); ςαχξω ξυμΰ, εσμι ποδδεςφλα σιστενξωθ ϊαδαξικ οτσυτστχυετ; ξε οπςεδεμεξω χ RM/SJ-νοξιτοςε. ώετχεςτοε σμοχο χ ADDR (αδςεσ οβμαστι λαξαμοχ χχοδα/χωχοδα) οβωώξο υλαϊωχαετ ξα αδςεσ χ σνεϋαξξοκ οβμαστι ϊαδαξιρ. οδξαλο, εσμι βωμα χωπομξεξα ναλςολοναξδα .CDFN, το αδςεσ ξαώαμα οβμαστι λαξαμοχ χχοδα/χωχοδα βυδετ ρχμρτψσρ αδςεσον οβμαστι, υλαϊαξξοκ πομψϊοχατεμεν χ ότοκ ναλςολοναξ- δε. εσμι αςηυνεξτ JOBBLK ισπομψϊυετσρ δμρ οδξοηο ιϊ σισ- τενξωθ ϊαδαξικ (χ ιξτεςχαμε νεφδυ 0 ι 16) πςι ϊαπςοσε στα- τυσα ϊαδαξιρ οξ ιξτεςπςετιςυετσρ λαλ ξονες ϊαδαξιρ. εσμι αςηυνεξτ JOBBLK ςαχεξ "ME" ιμι "-1", το χοϊχςαύαετσρ ιξζος- ναγιρ ο τελυύεν ϊαδαξιι. εσμι αςηυνεξτ JOBBLK οτσυτστχυετ ιμι ςαχεξ "-3", το χοϊχςαύαΰτσρ τομψλο πεςχωε 8 σμοχ ιξζος- ναγιι (τ.ε. λαλ δμρ πςεδωδυύεκ χεςσιι σιστενω ιμι δμρ τελυ- ύεκ πςι ςαβοτε FB/XM-νοξιτοςα βεϊ ποδδεςφλι σιστενξωθ ϊαδα- ξικ). πςι ςαβοτε TS-νοξιτοςα χ αςηυνεξτε JBBLK νοφξο υλα- ϊατψ ξονες μιξιι. οϋιβλι: λοδ πορσξεξιρ 0 υλαϊαξξοηο ϊαδαξιρ ξετ χ πανρτι. χ πςιχεδεξξον ξιφε πςινεςε οπςεδεμρετσρ ςαϊδεμ, χ λοτοςον ςαβοταετ πςοηςαννα. πςινες. .MCALL .GTJB,.PRINT,.EXIT START: .GTJB #AREA,#JOBARG ;πομυώιτψ παςανετςω MOV #MSG,R0 TST JOBARG ;ζοξοχωκ ςαϊδεμ? BNE 1$ ;ξετ - 128 - MOV #MSG1,R0 ;δα 1$: .PRINT ;πεώατψ σοοβύεξιρ .EXIT MSG: .ASCIZ /πςοηςαννα χ οπεςατιχξον ςαϊδεμε/ MSG1: .ASCIZ /πςοηςαννα χ ζοξοχον ςαϊδεμε/ .EVEN AREA: .BLKW 2 ;βμολ αςηυνεξτοχ εντ JOBARG:.BLKW 8. ;βμολ παςανετςοχ .END START 7.6.13. ναλςολοναξδα .GVαL σιστενξαρ ναλςολοναξδα .GVαL χοϊχςαύαετ χ R0 σοδεςφι- νοε υλαϊαξξοκ ρώεκλι νοξιτοςα. ζοςνατ ναλςολοναξδω: .GVαL αRεα,οFFSετ ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ δχυθ σμοχ; οFFSετ - σνεύεξιε ξυφξοκ ρώεκλι οτ ξαώαμα νοξιτοςα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 34 ! 0 ! !--------!--------! ! OFFSET ! !-----------------! ναλςολοναξδα .GVαL ισπομψϊυετσρ τομψλο δμρ ώτεξιρ ι οβεσπεώιχαετ σοθςαξξοστψ ιξζοςναγιι χ νοξιτοςε. πςινεώαξιε. δμρ σνεύεξικ ςελονεξδυετσρ πομψϊοχατψσρ νξενοξιλοκ, πομυώεξξοκ σ πονούψΰ ναλςολοναξδω .ROFDF. δμρ TS-νοξιτοςα, λςονε ιϊχεστξωθ σνεύεξικ (οπςεδεμρΰτ- σρ ναλςολοναξδοκ .ROFDF), ισπομψϊυΰτσρ δοπομξιτεμψξωε σνε- ύεξιρ (οτςιγατεμψξωε): -2 - ξονες ϊαδαξιρ (μιξιι); -4 - ϊξαλ ξαώαμα σπεγιαμψξοκ ποσμεδοχατεμψξοστι ϊξαλοχ; υπςαχμρετ παςανετςανι δςακχεςα τεςνιξαμα (λοδ 177); -6 - ςαχξο "1" - πςιχιμεηιςοχαξξοε ϊαδαξιε (ϊαπυύεξο πςιχιμεηιςοχαξξων πομψϊοχατεμεν); "0" - ξεπςιχιμε- ηιςοχαξξοε (ϊαπυύεξο ξεπςιχιμεηιςοχαξξων πομψϊοχα- τεμεν); - 129 - -10 - ςαχξο "1", PAR 7 οτοβςαφεξ ξα στςαξιγυ χχοδα/χωχοδα; ςαχεξ "0", εσμι οτοβςαφεξ ξα νοξι- τος; -12 - ξονες ηςυππω πομψϊοχατεμρ, ϊαπυστιχϋεηο ϊαδαξιε; -14 - ξονες πομψϊοχατεμρ χ ηςυππε; -16 - ϊαςεϊεςχιςοχαξο. οϋιβλι: λοδ πορσξεξιε 0 σνεύεξιε χωθοδιτ ϊα πςεδεμω ςεϊιδεξτξοηο νοξιτοςα. χ πςινεςε πομψϊοχατεμψ πομυώαετ ξονες χεςσιι νοξιτοςα χ ρώεκλε MONVER ι ξονες λοςςελγιι νοξιτοςα χ ρώεκλε MONUPD. πςινες. .MCALL .GVAL,.EXIT,.ROFDF .ROFDF ;πομυώιτψ νξενοξιλυ ;σνεύεξικ νοξιτοςα ;(ϊδεσψ SYSVER) START: .GVAL #AREA,#SYSVER ;πομυώιτψ χ R0 σοδες- ;φινοε ρώεκλι νοξιτοςα MOVB R0,MONVER ;πομυώιτψ ξονες χεςσιι SWAB R0 MOVB R0,MONUPD ;πομυώιτψ ξονες λοςςελγιι .EXIT MONVER:.BLKB MONUPD:.BLKB AREA: .BLKW 2 ;βμολ αςηυνεξτοχ εντ .END START 7.6.14. ναλςολοναξδω .HERR/.SERR ναλςολοναξδω .HERR/.SERR ισπομψϊυΰτσρ δμρ υπςαχμεξιρ (ϊαπςεύεξιρ ιμι ςαϊςεϋεξιρ) οβςαβοτλοκ σεςψεϊξωθ οϋιβολ χ πςοηςαννε πομψϊοχατεμρ. 7.6.14.1. ναλςολοναξδα .HERR σιστενξαρ ναλςολοναξδα .HERR ϊαπςεύαετ οβςαβοτλυ σεςψεϊξωθ οϋιβολ χ πςοηςαννε πομψϊοχατεμρ. ότα ναλςολοναξδα ισπομψϊυετσρ πο υνομώαξιΰ. ζοςνατ ναλςολοναξδω: - 130 - .HERR ζοςνατ ςεηιστςα R0: !--------!--------! R0 => ! 5 ! 0 ! !--------!--------! σιστενξαρ ναλςολοναξδα .HERR ςαϊςεϋαετ σιστενε υδαμρτψ πςοηςαννυ πο σεςψεϊξοκ οϋιβλε ι χωδαχατψ σοοβύεξιε οβ οϋιβ- λε ξα τεςνιξαμ. οϋιβλι: οβςαβοτλυ οϋιβολ πςοιϊχοδιτ νοξιτος. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .SERR (ποδ- πυξλτ 7.6.14.2). 7.6.14.2. ναλςολοναξδα .SERR σιστενξαρ ναλςολοναξδα .SERR ποϊχομρετ πςοηςαννε οβςα- βατωχατψ σεςψεϊξωε οϋιβλι ι ϊαπςεύαετ νοξιτοςυ πςελςαύατψ εε χωπομξεξιε χ σμυώαε ιθ πορχμεξιρ. ζοςνατ ναλςολοναξδω: .SεRR ζοςνατ ςεηιστςα R0: !--------!--------! R0 => ! 4 ! 0 ! !--------!--------! χο χςενρ χωπομξεξιρ πςοηςαννω νοηυτ χοϊξιλξυτψ σεςψεϊ- ξωε οϋιβλι. ξαπςινες, ποπωτλα οσυύεστχιτψ χχοδ/χωχοδ ξα υστςοκστχο, ξε ινεΰύεε δςακχεςα χ πανρτι, ιμι ποπωτλα ϊαη- ςυϊιτψ δςακχες υστςοκστχα ξα νεστο USR. οβωώξο ότι οϋιβλι χωϊωχαΰτ πςεςωχαξιε χωπομξεξιρ πςοηςαννω σ σοοβύεξιεν οβ οϋιβλε ξα σιστενξωκ τεςνιξαμ. οδξαλο, χ ξελοτοςωθ σμυώαρθ ξεοβθοδινο πςεδοτχςατιτψ πςεφδεχςενεξξοε ολοξώαξιε πςοηςαν- νω ιϊ-ϊα ότιθ οϋιβολ. ποσμε χωπομξεξιρ ναλςολοναξδω υσταξαχμιχαετσρ βιτ "σ", α βακτ 52 σοδεςφιτ οτςιγατεμψξωκ λοδ οϋιβλι. χ ξελοτοςωθ σμυώαρθ, ταλιθ λαλ πςι χωπομξεξιι ναλςολο- ναξδ .LOOKUP ι .ENTER, ναλςολοναξδα .SERR οσταχμρετ οτλςω- τωνι λαξαμω. ποότονυ πομψϊοχατεμΰ σανονυ ξεοβθοδινο χωπομ- ξιτψ ξυφξυΰ ναλςολοναξδυ .PURGE ιμι .CLOSE δμρ ότιθ λαξα- μοχ. - 131 - οϋιβλι: λοδ πορσξεξιε -1 χωϊοχ USR ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ; -2 οτσυτστχυετ δςακχες υστςοκστχα, α δμρ δαξξοκ οπεςαγιι οξ ξεοβθοδιν; -3 οϋιβλα ώτεξιρ/ϊαπισι λαταμοηα; -4 οϋιβλα .Fετσξ; μιβο πςοιϊοϋμα οϋιβλα χο χςενρ σώιτωχαξιρ δςακχεςα, μιβο ποπωτλα ϊαηςυϊιτψ δςακχες ξα νεστο RMON ιμι USR; -5 οϋιβλα σώιτωχαξιρ οχεςμερ; -6 χ λαταμοηε ξετ νεστα δμρ ζακμοχ; -7 ξεδοπυστινωκ αδςεσ (τομψλο πςι ςαβοτε FB-νοξιτοςα); ποπωτλα χωπομξιτψ δεκστχιε χξε οβμαστι ϊαδαξιρ; -10 ξεδοπυστινωκ ξονες λαξαμα; ξονες βομψϋε, ώεν ζαλτιώεσλοε λομιώεστχο συύεστχυΰύιθ λαξαμοχ; -11 ξεδοπυστιναρ εντ; ξεδοπυστινωκ λοδ ζυξλγιι. σιστενξαρ ναλςολοναξδα .SεRR ξε οβςαβατωχαετ πςεςωχα- ξιρ πο χελτοςαν 4 ι 10, α ταλφε πςεςωχαξιε οτ πςογεσσοςα σ πμαχαΰύεκ ϊαπρτοκ. οξι οβςαβατωχαΰτσρ σιστενξωνι ναλςολο- ναξδανι .τRςSετ, .SFςα. χ πςινεςε δμρ ναλςολοναξδω .ENTER τςεβυετσρ δςακχες PC:, λοτοςωκ ξε ϊαηςυφεξ χ πανρτψ. ποσμε χωπομξεξιρ ναλςο- λοναξδω .SERR οβςαβοτλα οϋιβολ πςοισθοδιτ χ πςοηςαννε, α ποσμε χωπομξεξιρ ναλςολοναξδω .HERR πςοισθοδιτ χωθοδ πο οϋιβλε χ νοξιτος. πςινες. .MCALL .ENTER,.HERR,.SERR,.PRINT,.EXIT,.USBDF START: .SERR ;ϊαπςετιτψ πςεςωχαξιε ;πςοηςαννω πο οϋιβλε .USBDF ;οπςεδεμιτψ νξενοξιλυ ;στατυσα ϊαχεςϋεξιρ ;πςοηςαννω USERRB .ENTER #AREA,#1,#FILE ;οτλςωτψ ζακμ ξα PC: BCC 3$ JSR PC,ERR ;ιδτι ξα οβςαβοτλυ ;οϋιβλι .HERR ;ςαϊςεϋιτψ πςεςωχαξιε ;πςοηςαννω πο οϋιβλε .ENTER #AREA,#1,#FILE ;οτλςωτψ ζακμ ξα PC: BCS ERR1 3$: .EXIT ERR1: .PRINT #MSG .EXIT - 132 - MSG: .ASCIZ /οϋιβλα .ENTER/ .EVEN ERR: MOVB @#52,R0 ;ποδπςοηςαννα οβςαβοτλι NEG R0 ;οϋιβολ DEC R0 ASL R0 MOV COD(R0),R0 .PRINT BISB #3,@#USERRB ;υσταξοχιτψ ϊαχεςϋεξιε σ ;ηςυβοκ οϋιβλοκ RTS PC COD: C1 C2 C3 C4 C5 C6 C7 C10 C11 C1: .ASCIZ /USR?/ C2: .ASCIZ /ξε ϊαηςυφεξ δςακχες/ C3: .ASCIZ /οϋιβλα ώτεξιρ λαταμοηα/ C4: .ASCIZ /οϋιβλα .FETCH/ C5: .ASCIZ /οχεςμεκ?/ C6: .ASCIZ /ξετ νεστα χ λαταμοηε/ C7: .ASCIZ /οϋιβλα αδςεσαγιι/ C10: .ASCIZ /ξεχεςεξ ξονες λαξαμα/ C11: .ASCIZ /ξεχεςεξ λοδ εντ/ .EVEN AREA: .BLKW 4 ;βμολ αςηυνεξτοχ εντ FILE: .RAD50 /PC/ .WORD 0,0,0 .END START 7.6.15. ναλςολοναξδω .HRESET/.SRESET ναλςολοναξδω .HRESET/.SRESET ισπομψϊυετσρ δμρ πςελςα- ύεξιρ οπεςαγικ χχοδα/χωχοδα, οώιύεξιρ οώεςεδι ποδπςοηςανν ϊαχεςϋεξιρ, υδαμεξιρ ιϊ πανρτι δςακχεςοχ υστςοκστχ. 7.6.15.1. ναλςολοναξδα .HRESET σιστενξαρ ναλςολοναξδα .HRESET οώιύαετ λαξαμω χχοδα/χωχοδα, οσχοβοφδαετ δςακχεςω υστςοκστχ, ϊαηςυφεξξωε χ οπεςατιχξυΰ πανρτψ πο ναλςολοναξδε .FETCH, ι πςελςαύαετ χσε οπεςαγιι χχοδα/χωχοδα. ζοςνατ ναλςολοναξδω: - 133 - .HRESET σιστενξαρ ναλςολοναξδα .HRESET ξε ισπομψϊυετσρ δμρ σβςοσα αππαςατξωθ οϋιβολ. σιστενξαρ ναλςολοναξδα .HRESET δεκστχιτεμψξα τομψλο δμρ σχοεηο ϊαδαξιρ. οπεςαγιι χχοδα/χωχοδα δμρ δςυηιθ πςοη- ςανν πςοδομφαΰτ χωπομξρτψσρ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .CDFN (σν. π. 7.3.1). 7.6.15.2. ναλςολοναξδα .SRESET σιστενξαρ ναλςολοναξδα .SRESET ιξιγιαμιϊιςυετ οπςεδε- μεξξωε ταβμιγω νοξιτοςα, σχρϊαξξωε σ πςοηςαννοκ: οσχοβοφ- δαετ λαξαμω, οώιύαετ οώεςεδψ ποδπςοηςανν ϊαχεςϋεξιρ, υδα- μρετ ϊαηςυφεξξωε δςακχεςω. ζοςνατ ναλςολοναξδω: .SRESET δςακχεςω σιστενξωθ υστςοκστχ ι δςακχεςω, ϊαηςυφεξξωε λοναξδοκ νοξιτοςα LοαD, οσταΰτσρ ςεϊιδεξτξωνι. χοϊχςαύαετ λ ισπομψϊοχαξιΰ τομψλο 16 (δεσρτιώξοε) λαξαμοχ χχοδα/χωχοδα. μΰβωε λαξαμω, οτλςωτωε σιστενξοκ ναλ- ςολοναξδοκ .σDFN, ισλμΰώαΰτσρ. ώτοβω οτλςωτψ βομψϋε 16 λαξαμοχ ποσμε χωπομξεξιρ .SRεSετ, ξεοβθοδινο ποχτοςιτψ ναλςολοναξδυ .QSετ ιμι .CDFN. οώιύαετ οώεςεδψ ποδπςοηςανν ϊαχεςϋεξιρ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .RCTRLO (π. 7.6.23). 7.6.16. ναλςολοναξδα .INτεN σιστενξαρ ναλςολοναξδα .INτεN σοοβύαετ νοξιτοςυ ο χοϊ- ξιλϋεν πςεςωχαξιι, πεςελμΰώαετ ςαβοτυ χ σοστορξιε "σιστενα" (χ σιστενξωκ ςεφιν), υσταξαχμιχαετ τςεβυενωκ πςιοςιτετ πςο- γεσσοςα ι σοθςαξρετ σοδεςφινοε ςεηιστςοχ R4 ι R5 πεςεδ πεςεδαώεκ υπςαχμεξιρ ποδπςοηςαννε οβσμυφιχαξιρ πςεςωχαξικ. μΰβωε δςυηιε ςεηιστςω πςι ξεοβθοδινοστι δομφξω σοθςαξρτψσρ πομψϊοχατεμεν. - 134 - χ TS-νοξιτοςε ςαϊςεϋαετσρ ισπομψϊοχαξιε ναλςολοναξδω .INTEN τομψλο χ δςακχεςαθ. ζοςνατ ναλςολοναξδω: .INτεN ςRIο[,ςIσ] ηδε ςRIο - τςεβυενωκ πςιοςιτετ πςογεσσοςα δμρ οβςαβοτλι πςε- ςωχαξικ; ςIσ - ξεοβρϊατεμψξωκ αςηυνεξτ. αςηυνεξτ ςIσ υλαϊωχαετ, ώτο ποδπςοηςαννα οβςαβοτλι πςεςωχαξιρ ξαπισαξα χ ποϊιγιοξξο-ξεϊαχισινον λοδε, ιξαώε οξ δομφεξ οτσυτστχοχατψ. αςηυνεξτ οβρϊατεμεξ δμρ ποδπςοηςανν οβςαβοτλι πςεςωχαξικ χ δςακχεςε. χσε χξεϋξιε πςεςωχαξιρ πεςεχοδρτ πςιοςιτετ πςογεσσοςα ξα 7-κ υςοχεξψ. ναλςολοναξδα .INτεN ποξιφαετ πςιοςιτετ πςο- γεσσοςα δο τςεβυενοκ χεμιώιξω. χωθοδ ιϊ πςοηςαννω οβςαβοτλι πςεςωχαξιρ, λοτοςαρ ισπομψϊοχαμα ναλςολοναξδυ .INτεN, οσυύεστχμρετσρ πο RτS ςσ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .SYNCH (π. 7.6.32). 7.6.17. ναλςολοναξδα .JSWDF σιστενξαρ ναλςολοναξδα .JSWDF οπςεδεμρετ σινχομω ι νξενοξιώεσλιε οβοϊξαώεξιρ ςαϊςρδοχ σμοχα σοστορξιρ πςοηςαν- νω. ζοςνατ ναλςολοναξδω: .JSWDF ςασϋιςεξιε ναλςολοναξδω: JSW =^O44 USWAP$ =^O100000 TTLC$ =^O40000 RSTRT$ =^O20000 TTSPC$ =^O10000 CHNIF$ =^O4000 VIRT$ =^O2000 OVLY$ =^O1000 CHAIN$ =^O400 HLTER$ =^O200 TCBIT$ =^O100 ESCFL$ =^O40 - 135 - ESCSQ$ =^O20 GTLIN$ =^O10 δαξξαρ ναλςολοναξδα ξε ηεξεςιςυετ λοδοχ εντ, α ρχμρετ- σρ ώιστο οπισατεμψξοκ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .EXIT (σν. π. 7.6.10). 7.6.18. ναλςολοναξδω .LOCK/.TLOCK/.UNLOCK ναλςολοναξδω .LOCK/TLOCK/UNLOCK ισπομψϊυΰτσρ δμρ υπςαχμεξιρ USR ιϊ πςοηςαννω πομψϊοχατεμρ - ϊαηςυϊλα USR χ υλαϊαξξυΰ οβμαστψ πανρτι ι ϊαλςεπμεξιε εε ϊα δαξξοκ πςοη- ςαννοκ, σξρτιε νοξοπομψξοηο ισπομψϊοχαξιρ ι υδαμεξιε ιϊ πανρτι, μιβο πςοχεςλα, ϊαλςεπμεξα μι USR ϊα δςυηοκ πςοηςαν- νοκ. ναλςολοναξδα .LOCK/TLOCK/UNLOCK ϊαπςεύαετ ποχτοςξοε σώιτωχαξιε πςοηςαννω πομψϊοχατεμρ, ποότονυ ξεοβθοδινο, ώτο- βω εε χωϊοχ ξε ισθοδιμ ιϊ οβμαστι, λοτοςαρ βυδετ χωηςυφατψ- σρ χ ζακμ σχοπιξηα USR. χ ότοκ οβμαστι ξε δομφξα ταλφε σοδεςφατψσρ ιξζοςναγιρ δμρ ναλςολοναξδ, τςεβυΰύιθ χωϊοχ USR. ξε σμεδυετ ςαϊςυϋατψ οβμαστψ USR (δαφε εσμι οξα ξε ξυφξα) ποσμε χωπομξεξιρ ναλςολοναξδω .Lοσλ, τ.λ. ότο πςιχε- δετ λ ξεπςεδχιδεξξων ςεϊυμψταταν πςι χωπομξεξιι ναλςολοναξ- δω .UNLοσλ. ώισμο ναλςολοναξδ .LOCK ι .UNLOCK δομφξο σοχπαδατψ. εσμι δαξο βομψϋε ϊαπςοσοχ .LOCK, το USR οσταετσρ ςεϊιδεξτ- ξοκ χ πανρτι. εσμι δαξο βομψϋε ϊαπςοσοχ .UNLOCK χ πςοηςαν- νε, το οξι ιηξοςιςυΰτσρ. χ νξοηοϊαδαώξον νοξιτοςε ςελονεξδυετσρ ισπομψϊοχατψ ναλςολοναξδω LOCK/UNLOCK τομψλο, εσμι ξεοβθοδινο. εσμι πςοηςαννα ϊαλςεπμρετ USR, το ξιλαλαρ δςυηαρ ιϊ πςοηςανν ξε νοφετ ισπομψϊοχατψ εε δο τεθ πος, πολα οξα ξε βυδετ οσχο- βοφδεξα. χ TS-νοξιτοςε ναλςολοναξδω .LOCK/.TLOCK/.UNLOCK οτςα- βατωχαΰτσρ λαλ NOP. 7.6.18.1. ναλςολοναξδα .LOCK σιστενξαρ ναλςολοναξδα .Lοσλ ϊαηςυφαετ USR (εσμι οξα ξε ϊαηςυφεξα) ι δεμαετ εε ςεϊιδεξτξοκ χ οπεςατιχξοκ πανρτι. - 136 - ζοςνατ ναλςολοναξδω: .LOCK πςι ϊαηςυϊλε USR χοϊνοφξω σμεδυΰύιε σιτυαγιι: - USR ξετ χ πανρτι ι πςι ϊαηςυϊλε οξα πεςελςωχαετ ώαστψ πςοηςαννω; χ ότον σμυώαε ότα ώαστψ πςοηςαννω χωηςυφαετσρ χ ζακμ σχοπιξηα (SWAP.SYS); ποσμε ότο- ηο οσυύεστχμρετσρ ϊαηςυϊλα USR; - USR ξε ςεϊιδεξτξα χ πανρτι ι πςι ϊαηςυϊλε ξε πεςελςωχαετ πςοηςαννυ; οσυύεστχμρετσρ ϊαηςυϊλα USR; - USR υφε ςεϊιδεξτξα ι ϊαλςεπμεξα ϊα τελυύεκ πςοη- ςαννοκ; χ ότον σμυώαε ναλςολοναξδα οτςαβατωχαετ λαλ NOP (πυσταρ οπεςαγιρ); - USR ςεϊιδεξτξα ι ξε ϊαλςεπμεξα ξι ϊα οδξοκ πςοη- ςαννοκ; ϊαλςεπμρετσρ ϊα τελυύεκ πςοηςαννοκ; - USR ςεϊιδεξτξα ι ϊαλςεπμεξα ϊα δςυηοκ πςοηςαννοκ; τελυύαρ πςοηςαννα πεςεθοδιτ χ ςεφιν οφιδαξιρ ι χωπομξεξιε πςοηςαννω βυδετ πςοδομφεξο τομψλο ποσμε τοηο, λαλ USR οσχοβοδιτσρ ι βυδετ ϊαλςεπμεξα ϊα δαξξοκ πςοηςαννοκ. πςι ςαβοτε FB-νοξιτοςα χωϊοχ CSI πςι χχοδε στςολι σ τεςνιξαμα πςιχοδιτ λ χωπομξεξιΰ ξερχξοκ ναλςολοναξδω .UNLOCK. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .UNLOCK (ποδπυξλτ 7.6.18.3). 7.6.18.2. ναλςολοναξδα .TLOCK σιστενξαρ ναλςολοναξδα .TLOCK πςοχεςρετ, ϊαλςεπμεξα μι ϊα δςυηοκ πςοηςαννοκ USR; εσμι USR σχοβοδξα, το χωπομξρετσρ ναλςολοναξδα .LOCK, χ πςοτιχξον σμυώαε πςοισθοδιτ χοϊχςατ χ πςοηςαννυ πομψϊοχατεμρ σ υσταξοχμεξξων "C" βιτον. ζοςνατ ναλςολοναξδω: .τLοσλ ζοςνατ ςεηιστςα R0: !--------!--------! R0 => ! 7 ! 0 ! !--------!--------! χοϊχςατ σ υσταξοχμεξξων βιτον "C" οϊξαώαετ, ώτο ναλςο- - 137 - λοναξδα .TLOCK ξε χωπομξεξα. οϋιβλι: λοδ πορσξεξιε 0 USR υφε ισπομψϊυετσρ δςυηοκ πςοηςαννοκ. πςινες. .MCALL .TLOCK,.LOOKUP,.UNLOCK,.PRINT,.EXIT START: .TLOCK ;USR ϊαξρτα? BCS SUSPND ;δα .LOOKUP #AREA,#4,#J1NAM ;ξετ...οτλςωτψ ζακμ BCS LKERR .UNLOCK ;οσχοβοδιτψ USR .EXIT SUSPND: JSR PC,SPSJOB JSR PC,SCHED BR START AREA: .BLKW 10 J1NAM: .RAD50 /DK TEST1 TMP/ LKERR: .PRINT #LKMSG .EXIT LKMSG: .ASCIZ /οϋιβλα LOOKUP/ .EVEN SPSJOB: . ;τελστ ποδπςοηςαννω . RTS PC SCHED: . ;τελστ ποδπςοηςαννω . RTS PC .END START 7.6.18.3. ναλςολοναξδα .UNLοσλ σιστενξαρ ναλςολοναξδα .UNLοσλ οτνεξρετ ϊαπςεύεξιε σχοπιξηα USR, ϊαδαξξοε ναλςολοναξδοκ .LOCK. ζοςνατ ναλςολοναξδω: .UNLοσλ εσμι ναλςολοναξδα .Lοσλ τςεβοχαμα σχοπιξη, το .UNLοσλ ϊαηςυφαετ πςοηςαννυ πομψϊοχατεμρ οβςατξο χ πανρτψ. εσμι USR ξε τςεβυετ σχοπιξηα, το .UNLοσλ ιηξοςιςυετσρ. εσμι χωπομξεξο βομψϋε ναλςολοναξδ .UNLοσλ, ώεν ναλςο- λοναξδ .Lοσλ, το μιϋξιε ναλςολοναξδω ιηξοςιςυΰτσρ. οϋιβλι οτσυτστχυΰτ. χ πςινεςε ναλςολοναξδοκ .SETTOP ϊαπςαϋιχαετσρ χσρ πανρτψ, ώτο πςιχοδιτ λ ξεςεϊιδεξτξοστι USR. πεςεδ οτλςωτιεν - 138 - λαξαμα, ναλςολοναξδοκ .LOCK USR ϊαξοσιτσρ χ πανρτψ ι σταξο- χιτσρ ςεϊιδεξτξοκ, τ.ε. πςι χωπομξεξιι ναλςολοναξδ .LOOKUP σχοπιξηα ξε πςοισθοδιτ. ποσμε χωπομξεξιρ ναλςολοναξδω .UNLOCK USR σξοχα σταξοχιτσρ ξεςεϊιδεξτξοκ. πςινες. .MCALL .LOCK,.UNLOCK,.SETTOP,.SCMDF .MCALL .LOOKUP,.PRINT,.EXIT START: .SCMDF ;οπςεδεμιτψ νξενοξιλυ ;σιστενξοκ οβμαστι σχρϊι ;(ϊδεσψ SYSPTR) .SETTOP @#SYSPTR ;ϊαπςοσιτψ χσΰ πανρτψ .LOCK ;χωϊοχ USR χ πανρτψ .LOOKUP #AREA,#0,#DEV1 ;ισπομψϊοχαξιε USR BCS 1$ .LOOKUP #AREA,#1,#DEV2 BCS 1$ .UNLOCK ;υδαμιτψ USR ιϊ πανρτι .EXIT 1$: .PRINT #MSG .EXIT MSG: .ASCIZ /οϋιβλα .LOOKUP/ .EVEN AREA: .BLKW 3 ;βμολ αςηυνεξτοχ εντ DEV1: .RAD50 /SY FORTRASAV/ DEV2: .RAD50 /SY PATCH SAV/ .END START 7.6.19. ναλςολοναξδω .MFPS/.MTPS ναλςολοναξδω .MFPS/.MTPS ισπομψϊυΰτσρ δμρ πομυώεξιρ ιξζοςναγιι ο τελυύεν πςιοςιτετε πςογεσσοςα ιμι δμρ εηο λος- ςελγιι. πςι ςαβοτε XM-νοξιτοςα ότι ναλςολοναξδω νοηυτ βωτψ ισπομψϊοχαξω τομψλο πςιχιμεηιςοχαξξων ϊαδαξιεν, ξο ξε δοσ- τυπξω δμρ χιςτυαμψξοηο. σοδεςφινοε ςεηιστςα R0 σοθςαξρετσρ πςι χωπομξεξιι μΰβοκ ιϊ ναλςολοναξδ. 7.6.19.1. ναλςολοναξδα .νFςS σιστενξαρ ναλςολοναξδα .νFςS ισπομψϊυετσρ δμρ σώιτωχα- ξιρ ςαϊςρδοχ πςιοςιτετα ιϊ σμοχα σοστορξιρ πςογεσσοςα. ζοςνατ ναλςολοναξδω: .νFςS αDDR - 139 - ηδε αDDR - αδςεσ, χ λοτοςωκ πονεύαετσρ ϊξαώεξιε πςιοςιτετα. εσμι αδςεσ οτσυτστχυετ, ϊξαώεξιε πονεύαετσρ χ στελ. πςινεώαξιε. λοδω υσμοχικ ςαϊςυϋαΰτσρ χ πςογεσσε χωπομ- ξεξιρ ναλςολοναξδω. ποότονυ ξεμψϊρ ισπομψϊοχατψ ότυ ναλςο- λοναξδυ δμρ οπςεδεμεξιρ λοδοχ υσμοχικ. ισπομψϊυκτε οβωώξωε ιξστςυλγιι πεςεθοδα. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .MTPS (ποδ- πυξλτ 7.6.19.2). 7.6.19.2. ναλςολοναξδα .ντςS σιστενξαρ ναλςολοναξδα .ντςS υσταξαχμιχαετ ςαϊςρδω πςιοςιτετα ι T-βιτ χ σμοχε σοστορξιρ πςογεσσοςα. ζοςνατ ναλςολοναξδω: .ντςS αDDR ηδε αDDR - αδςεσ, σοδεςφινοε λοτοςοηο ϊαπισωχαετσρ χ σμοχο σοστορξιρ πςογεσσοςα. εσμι αδςεσ οτσυτστχυετ, ϊξα- ώεξιε βεςετσρ ιϊ στελα. εσμι πομψϊοχατεμψ ςαβοταετ σο στελον, ξεοβθοδινο πονξιτψ, ώτο σταςϋικ βακτ δομφεξ βωτψ ςαχεξ ξυμΰ, α ϊξαώεξιε ϊαπισωχατψσρ χ νμαδϋικ βακτ. οϋιβλι οτσυτστχυΰτ. χ πςινεςε πςιοςιτετ σοθςαξρετσρ χ στελε, υσταξαχμι- χαετσρ ξοχωκ πςιοςιτετ, α ϊατεν χοσσταξαχμιχαετσρ σταςωκ. πςινες. .MCALL .MFPS,.MTPS,.EXIT START: JSR PC,PICKQ NOP NOP NOP .EXIT PICKQ: .MFPS ;σοθςαξιτψ πςιοςιτετ ;χ στελε MOV #QHEAD,R4 .MTPS #340 ;υσταξοχιτψ πςιοςιτετ 7 MOV @R4,R5 BEQ 1$ MOV @R5,@R4 - 140 - .MTPS ;χοσσταξοχιτψ πςιοςιτετ ;ιϊ στελα CLZ 1$: RTS PC QHEAD: .WORD Q1 Q1: .WORD Q2,0,0 Q2: .WORD Q3,0,0 Q3: .WORD 0,0,0 .END START 7.6.20. ναλςολοναξδω .POP/.PUSH ναλςολοναξδω .POP/.PUSH ισπομψϊυΰτσρ δμρ ιϊχμεώεξιρ ιμι σοθςαξεξιρ χ στελε ξεοβθοδινοκ ιξζοςναγιι. 7.6.20.1. ναλςολοναξδα .POP σιστενξαρ ναλςολοναξδα .ςος χωβιςαετ ϊξαώεξιρ ιϊ στελα ι πονεύαετ ιθ χ υλαϊαξξωε αδςεσα. ζοςνατ ναλςολοναξδω: .POP ADDR ηδε ADDR - αδςεσ, λυδα πονεύαετσρ ϊξαώεξιε ιϊ στελα. ξεσλομψλο αδςεσοχ δομφξω ϊαλμΰώατψσρ χ υημοχωε σλοβλι. ξαπςινες: .POP οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .DATE (σν. π. 7.6.5). 7.6.20.2. ναλςολοναξδα .PUSH σιστενξαρ ναλςολοναξδα .PUSH ϊαξοσιτ σοδεςφινοε υλα- ϊαξξωθ αςηυνεξτοχ χ στελ. ζοςνατ ναλςολοναξδω: - 141 - .PUSH ADDR ηδε ADDR - αςηυνεξτ, ϊξαώεξιε λοτοςοηο ξεοβθοδινο ϊαξεστι χ στελ. ξεσλομψλο αςηυνεξτοχ ϊαλμΰώαΰτσρ χ υημοχωε σλοβλι. ξαπςινες: .PUSH οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .DATE (σν. π. 7.6.5). 7.6.21. ναλςολοναξδω .PROTECT/.UNPROTECT (FB, XM, TS) ναλςολοναξδω .PROTECT/.UNPROTECT ισπομψϊυΰτσρ δμρ ϊαλ- ςεπμεξιρ (οσχοβοφδεξιρ) υστςοκστχα ϊα δαξξοκ πςοηςαννοκ χο χςενρ εε χωπομξεξιρ. χ TS-νοξιτοςε ναλςολοναξδω .PROTECT/.UNPROTECT οτςαβα- τωχαΰτ λαλ NOP. 7.6.21.1. ναλςολοναξδα .PROTECT σιστενξαρ ναλςολοναξδα .ςRοτεστ δαετ πςοηςαννε χοϊνοφ- ξοστψ νοξοπομψξοηο ισπομψϊοχαξιρ χελτοςα υστςοκστχα χ δια- παϊοξε 0-476 (χοσψνεςιώξωθ). ζοςνατ ναλςολοναξδω: .PROTECT AREA,ADDR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ τςεθ σμοχ; ADDR - αδςεσ χελτοςα, λοτοςωκ δομφεξ βωτψ ϊαλςεπμεξ. - 142 - ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 31 ! 0 ! !--------!--------! ! ADDR ! !-----------------! ! ADDR+2 ! !-----------------! υσπεϋξοε χωπομξεξιε σιστενξοκ ναλςολοναξδω .ςRοτεστ οϊξαώαετ, ώτο υλαϊαξξωκ χελτος χ δαξξωκ νονεξτ ξε ισπομψ- ϊυετσρ δςυηιν ϊαδαξιεν ιμι νοξιτοςον ι ϊαλςεπμρετσρ ϊα δαξ- ξοκ πςοηςαννοκ. οϋιβλι: λοδ πορσξεξιε 0 χελτος υφε ισπομψϊυετσρ ι ξε νοφετ βωτψ ϊαλςεπμεξ; 1 αδςεσ (ADDR) > 476 (χοσψνεςιώξωθ) ιμι ξε λςατεξ 4. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .UNPROTECT (ποδπυξλτ 7.6.21.2). 7.6.21.2. ναλςολοναξδα .UNPROTECT σιστενξαρ ναλςολοναξδα .UNPROTECT οσχοβοφδαετ χελτος υστςοκστχα χ διαπαϊοξε 0-476. ζοςνατ ναλςολοναξδω: .UNPROTECT AREA,ADDR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ δχυθ σμοχ; ADDR - αδςεσ χελτοςα, λοτοςωκ δομφεξ βωτψ οσχοβοφδεξ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 31 ! 1 ! !--------!--------! ! ADDR ! !-----------------! οϋιβλι: λοδ πορσξεξιε - 143 - 1 αδςεσ (αDDR) > 476 (χοσψνεςιώξωθ) ιμι ξε λςατεξ 4. πςινες. .MCALL .PROTECT,.UNPROTECT,.EXIT,.PRINT START: .PROTECT #AREA,#234 ;ϊαύιτα ρώεελ 234, 236 BCS INUSE . . . .UNPROTECT #AREA,#234 ;οσχοβοδιτψ ρώεκλι .EXIT INUSE: .PRINT #ERR .EXIT ERR: .ASCIZ /οϋιβλα PROTECT/ .EVEN AREA: .BLKW 2 ;βμολ αςηυνεξτοχ εντ .END START 7.6.22. ναλςολοναξδα .QSET σιστενξαρ ναλςολοναξδα .QSET υχεμιώιχαετ δμιξυ οώεςεδι όμενεξτοχ χχοδα/χωχοδα, ποδπςοηςανν ϊαχεςϋεξιρ ι τ.π. χ TS-νοξιτοςε ναλςολοναξδα .QSET οτςαβατωχαετσρ λαλ NOP. χ RM-νοξιτοςε λοναξδα .QSET οτςαβατωχαετσρ χ ϊαχισι- νοστι οτ σηεξεςιςοχαξξοκ χεςσιι νοξιτοςα (ξαπςινες, πςι οτλαϊε οτ ζακμοχοκ στςυλτυςω ισπομψϊοχαξιε ότιθ ναλςολοναξδ πςιχοδιτ λ σξρτιΰ πςοηςαννω σ χωπομξεξιρ). ζοςνατ ναλςολοναξδω: .QSET ADDR,LEN ηδε ADDR - ξαώαμψξωκ αδςεσ οβμαστι δμρ ξοχωθ όμενεξτοχ οώεςε- δι; LEN - ώισμο ξοχωθ όμενεξτοχ οώεςεδι. χ RM/SJ/FB-νοξιτοςαθ λαφδωκ όμενεξτ οώεςεδι ϊαξιναετ σενψ σμοχ. χ XM/TS-νοξιτοςε - δεσρτψ σμοχ. σμεδοχατεμψξο, οβμαστψ, οτχοδιναρ δμρ οώεςεδι, δομφξα ςαχξρτψσρ: - δμρ RM/SJ/FB-νοξιτοςα - LEN*7; - δμρ XM/TS-νοξιτοςα - LEN*10. δμρ ςαβοτω πςοηςαννω, ξεϊαχισινο οτ τιπα νοξιτοςα, ξεοβθο- δινο χωδεμιτψ ναλσιναμψξωκ ςαϊνες οβμαστι δμρ όμενεξτα οώε- ςεδι (10 σμοχ). ποσμε χωπομξεξιρ ναλςολοναξδω χ R0 χοϊχςα- - 144 - ύαετσρ δεκστχιτεμψξωκ χεςθξικ αδςεσ ότοκ οβμαστι. ναλςολοναξδα .QSET νοφετ χωϊωχατψσρ στομψλο ςαϊ, σλομψλο τςεβυετσρ. οβμαστψ δμρ όμενεξτοχ οώεςεδι ςεϊεςχιςυετσρ πομψϊοχα- τεμεν. ξεοβθοδινο σμεδιτψ, ώτοβω πςοηςαννα ξε ιϊνεξρμα όμε- νεξτω, εσμι οξι υφε υσταξοχμεξω. ποσμε χωπομξεξιρ ναλςολο- ναξδω R0 σοδεςφιτ αδςεσ πεςχοηο σμοχα ποσμε οβμαστι όμενεξ- τοχ οώεςεδι. ναλςολοναξδω .SRESET ι .HRESET οτνεξρΰτ χσε οώεςεδι όμενεξτοχ, οπςεδεμεξξωε πομψϊοχατεμεν. ποσμε ξιθ ξεοβθοδινο ποχτοςιτψ ναλςολοναξδυ .QSET, ώτοβω σξοχα οπςεδεμιτψ οβμαστψ δμρ όμενεξτοχ οώεςεδι. όμενεξτω οώεςεδι ϊαδαξξωε ναλςολοναξδοκ .QSET ξε δομφ- ξω πεςελςωχατψσρ σ οβμαστψΰ, χ λοτοςυΰ οβνεξιχαετσρ USR, ι ςασπομαηατψσρ χ οχεςμεκξοκ οβμαστι. πςι ςαβοτε XM-νοξιτοςα οβμαστψ δμρ όμενεξτοχ οώεςεδι δομφξα ςασπομαηατψσρ χ νμαδϋιθ 56 λβακτ πανρτι, τ.λ. δομφξα βωτψ δοστυπξα πςι οτοβςαφεξιι χ σιστενξον ςεφινε. λςονε τοηο, όμενεξτω οώεςεδι ξε δομφξω ςαϊνεύατψσρ χ χιςτυαμψξον αδςεσξον πςοστςαξστχε, οτοβςαφαενων PAR1 (οβμαστψ αδςεσοχ σ 20000 δο 37776). ξιφεπεςεώισμεξξωε ναλςολοναξδω τςεβυΰτ όμενεξτ οώεςε- δι: .READ .READC .READW .WRITE .WRITC .WRITW .RCVD .RCVDC .RCVDW .SDAT .SDATC .SDATW .TWAIT .MRKT οϋιβλι: πςι ςαβοτε XM-νοξιτοςα ποπωτλα ξαςυϋιτψ ηςαξιγω οβμαστι, οτοβςαφαενοκ PAR1, πςιχοδιτ λ σοοβύε- ξιΰ ?MON-F-ADDR ERROR. ότα οϋιβλα νοφετ βωτψ υστςαξεξα σ πονούψΰ ναλςολοναξδω .SERR. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .MRKT (σν. π. 7.5.4). 7.6.23. ναλςολοναξδα .RστRLο σιστενξαρ ναλςολοναξδα .RστRLο ςαϊςεϋαετ χωχοδ ξα σισ- τενξωκ τεςνιξαμ (σβςασωχαετ ζμαη στRL/ο). ζοςνατ ναλςολοναξδω: .RστRLο - 145 - λοναξδα <στRL/ο>, χχεδεξξαρ σ τεςνιξαμα, ϊαπςεύαετ χωχοδ ξα τεςνιξαμ. ςαϊςεϋιτψ χωχοδ ξα τεςνιξαμ νοφξο ποχ- τοςξων χχεδεξιεν <στRL/ο> σ τεςνιξαμα ιμι σ πονούψΰ ναλςο- λοναξδω .RστRLο. οϋιβλι οτσυτστχυΰτ. χ πςινεςε πομψϊοχατεμψ σ λμαχιατυςω τεςνιξαμα ϊαπςε- ύαετ χωχοδ ξα τεςνιξαμ. χ πςοηςαννε ναλςολοναξδα .RCTRLO ςαϊςεϋαετ χωχοδ ξα τεςνιξαμ, ο ώεν υλαϊωχαετ πορχμεξιε ϊχεϊδοώλι ξα όλςαξε. πςινες. .MCALL .RCTRLO,.CSIGEN,.EXIT,.SRESET START: .RCTRLO ;ςαϊςεϋιτψ χωχοδ ξα ττ: .CSIGEN #DSPACE,#DEXT,#0 ;χχεστι λοναξδξυΰ ;στςολυ BCS NSCI .READW #AREA,#3,#BUFF,#256.,#0 ;ώιτατψ BCS NRE .WRITW #AREA,#0,#BUFF,#256.,#0 ;ϊαπισατψ BCS NWR .SRESET JMP START NCSI: .PRINT #MSG .EXIT NRE: .PRINT #MSG1 .EXIT NWR: .PRINT #MSG2 .EXIT MSG: .ASCIZ /οϋιβλα CSI/ MSG1: .ASCIZ /οϋιβλα READ/ MSG2: .ASCIZ /οϋιβλα WRITE/ .EVEN DEXT: .WORD 0,0,0,0 ;βμολ ςασϋιςεξικ AREA: .BLKW 5 ;βμολ αςηυνεξτοχ εντ BUFF: .BLKW 256. ;βυζες χχοδα/χωχοδα DSPACE =. ;αδςεσ ϊαηςυϊλι ;δςακχεςοχ .END START 7.6.24. ναλςολοναξδα .RοFDF σιστενξαρ ναλςολοναξδα .RοFDF οπςεδεμρετ νξενοξιώεσλιε σνεύεξιρ πομεϊξωθ ρώεελ ςεϊιδεξτξοηο νοξιτοςα. ζοςνατ ναλςολοναξδω: .RοFDF ςασϋιςεξιε ναλςολοναξδω: $USRLC =^O266 QCOMP =^O270 - 146 - SPUSR =^O272 SYUNIT =^O275 SYSVER =^O276 SYSUPD =^O277 TTKS =^O304 TTKB =^O306 TTPS =^O310 TTPB =^O312 MAXBLK =^O314 SYSCH =^O324 GTVEC =^O354 $MTPS =^O360 $MFPS =^O362 STATWD =^O366 USRAREA =^O374 IFMXNST =^O377 EMTRTN =^O400 FORK =^O402 δαξξαρ ναλςολοναξδα ξε ηεξεςιςυετ λοδοχ εντ, α ρχμρετ- σρ ώιστο οπισατεμψξοκ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .GVAL (π. 7.6.13). 7.6.25. ναλςολοναξδα .Sσσα σιστενξαρ ναλςολοναξδα .Sσσα ϊαπςεύαετ ϊαχεςϋεξιε πςοηςαννω πο λοναξδε οπεςατοςα <στRL/σ>; δαετ χοϊνοφξοστψ πςοηςαννε ςαϊμιώατψ οδιξαςξυΰ ι δχοκξυΰ λοναξδω <στRL/σ>. χ RM-νοξιτοςε ότα λοναξδα ξε ινεετ σνωσμα, τ.λ. χ σισ- τενε οτσυτστχυετ KMON. ζοςνατ ναλςολοναξδω: .Sσσα αRεα,αDDR ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ εντ ιϊ δχυθ σμοχ; αDDR - αδςεσ, πςεδξαϊξαώεξξωκ δμρ σμοχα σοστορξιρ τεςνι- ξαμα (ςεϊεςχιςυετσρ πομψϊοχατεμεν). ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 35 ! 0 ! !--------!--------! ! ADDR ! !-----------------! - 147 - σιστενξαρ ναλςολοναξδα .Sσσα πεςεθχατωχαετ ι χςενεξξο ϊαπςεύαετ λοναξδυ οπεςατοςα <στRL/σ>, πςεπρτστχυρ ϊαχεςϋε- ξιΰ πςοηςαννω. σινχομω <στRL/σ> χοσπςιξιναΰτσρ λαλ οβωώξωε σινχομω βεϊ σπεγιαμψξωθ σιστενξωθ ζυξλγικ ι πονεύαΰτσρ χο χθοδξοκ βυζες. πςι ότον, εσμι πορχμρετσρ δχοκξαρ λοναξδα <στRL/σ> υσταξαχμιχαετσρ 15 βιτ σμοχα σοστορξιρ τεςνιξαμα (αDDR). πομψϊοχατεμψ δομφεξ σαν οώιύατψ εηο δμρ δαμψξεκϋεηο ισπομψ- ϊοχαξιρ. ναλςολοναξδα .SCCA ξε χμιρετ ξα ιϊ λοναξδξοηο ζακμα. εσμι αDDR=0, το ναλςολοναξδα .SCCA ιηξοςιςυετσρ. χ ότον σμυώαε πςοηςαννα πςεςωχαετσρ πο , εσμι οφιδαετ χχοδα σ τεςνιξαμα, ι πο δχοκξονυ χ μΰβον δςυηον σμυώαε. οϋιβλι οτσυτστχυΰτ. χ πςοηςαννε ϊαπςεύαετσρ χωθοδ πο CTRL/C πςι χχοδε μΰβοκ (χλμΰώαρ CTRL/C) ιξζοςναγιι σ τεςνιξαμα. πςι χχοδε δχοκξοηο CTRL/C νοξιτος υσταξαχμιχαετ 15 βιτ δμρ ιξζοςνιςο- χαξιρ πςοηςαννω. δμρ ςαϊςεϋεξιρ πςεςωχαξιρ πςοηςαννω πο δχοκξονυ CTRL/C ξεοβθοδινο χωπομξιτψ ναλςολοναξδυ σ ADDR=0. πςινες. .MCALL .SCCA,.PRINT,.TTYIN,.TTYOUT JSW = 44 TTSPC$ = 10000 START: MOV #SCCA,R1 .SCCA #AREA,R1 ;ϊαπςετιτψ CTRL/C BIS #TTSPC$,@#JSW CLR (R1) .PRINT #MSG 1$: TST (R1) ;δχοκξοε CTRL/C? BNE 2$ ;δα .TTYIN ;ξετ...χχεστι σινχομ .TTYOUT ;όθο-πεώατψ BR 1$ 2$: .PRINT #CTRLC .SCCA #AREA,#0 ;ςαϊςεϋιτψ πςεςωχαξιε ;πο CTRL/C BR . SCCA: .BLKW 1 ;σμοχο σοστορξιρ ;τεςνιξαμα AREA: .BLKW 2 ;βμολ αςηυνεξτοχ εντ MSG: .ASCII /πςινες ναλςολοναξδω .SCCA/<15><12> .ASCIZ "χχεδιτε CTRL/C δχα ςαϊα" .EVEN CTRLC: .ASCII "CTRL/C χχεδεξα"<15><12> .ASCII "χχεδιτε δχοκξοε CTRL/C δμρ χωθοδα" .ASCIZ / ιϊ πςοηςαννω/ .EVEN .END START - 148 - 7.6.26. ναλςολοναξδα .SσνDF σιστενξαρ ναλςολοναξδα .SσνDF οπςεδεμρετ νξενοξιώεσλιε οβοϊξαώεξιρ σιστενξοκ οβμαστι σχρϊι. ζοςνατ ναλςολοναξδω: .SσνDF ςασϋιςεξιε ναλςολοναξδω: USERPC =^O40 USERSP =^O42 UFLOAT =^O46 USERTOP =^O50 SYSPTR =^O54 TTFILL =^O56 TTNFIL =^O57 δαξξαρ ναλςολοναξδα ξε ηεξεςιςυετ λοδοχ εντ, α ρχμρετ- σρ ώιστο οπισατεμψξοκ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .UNLOCK (σν. ποδπυξλτ 7.6.18.3). 7.6.27. ναλςολοναξδα .Sεττος σιστενξαρ ναλςολοναξδα .Sεττος ποϊχομρετ πςοηςαννε πομψϊοχατεμρ ϊαπςαϋιχατψ ξοχωκ αδςεσ χεςθξεκ ηςαξιγω πανρτι δμρ πςοηςαννω. δοπομξιτεμψξαρ πανρτψ νοφετ ισπομψϊοχατψσρ δμρ ςαϊνεύεξιρ βυζεςοχ ι ςαβοώιθ οβμαστεκ. ζοςνατ ναλςολοναξδω: .Sεττος αDDR ηδε ADDR - αδςεσ σμοχα, σοδεςφαύεηο χεςθξΰΰ ηςαξιγυ πςοηςαν- νω. εσμι ADDR=-2, το ϊαπςαϋιχαετσρ χσρ δοστυπξαρ πςοηςαννε πανρτψ. νοξιτος οπςεδεμρετ δοπυστινοστψ ότοηο αδςεσα, ξεοβθο- δινοστψ σχοπιξηα χ σμυώαε ισπομψϊοχαξιρ USR. εσμι χεςθξρρ ηςαξιγα πανρτι, ϊαπςαϋιχαεναρ πςοηςαννοκ, ςασπομοφεξα ξιφε ξαώαμψξοηο αδςεσα USR, το σχοπιξη ξε πςοιϊχοδιτσρ, τ.λ. USR πςι ότον ξε πεςελςωχαετσρ. εσμι .Sεττος ιϊ ζοξοχοκ πςοηςαν- νω ϊαπςαϋιχαετ χεςθξΰΰ ηςαξιγυ χωϋε ξαώαμψξοηο αδςεσα USR, α λοναξδα "Sετ USR NοSWας" ξε βωμα χωδαξα, το τςεβυετσρ σχοπιξη. - 149 - πο ϊαχεςϋεξιι σιστενξοκ ναλςολοναξδω .Sεττος R0 ι ρώεκλα 50 (χοσψνεςιώξοε) σοδεςφατ ναλσιναμψξωκ αδςεσ πςε- δοσταχμρενοκ πομψϊοχατεμΰ πανρτι. εσμι τςεβυενωκ αδςεσ πςε- χωϋαετ δοπυστινυΰ χεμιώιξυ, το πςοηςαννε πςεδοσταχμρετσρ δοπυστινοε ϊξαώεξιε. αδςεσ χ R0 ιμι ρώεκλε 50 ισπομψϊυετσρ πςοηςαννοκ λαλ εε αβσομΰτξωκ χεςθξικ αδςεσ. εσμι ότο ϊξαώεξιε βυδετ πςεχω- ϋεξο, νοηυτ βωτψ υξιώτοφεξω ώαστι νοξιτοςα ι γεμοστξοστψ σιστενω βυδετ ξαςυϋεξα. πςι ϊαχεςϋεξιι ςαβοτω πςοηςαννω νοξιτος ϊαπισωχαετ ώαστι πςοηςαννω ιϊ ζακμα σχοπιξηα χ πανρτψ ι ϊατεν ϊαηςυ- φαετ KMON. ναλςολοναξδα .SETTOP σ ξυμεχων αδςεσον (ADDR=0) ϊαπςεύαετ σώιτωχαξιε πςοηςαννω ιϊ ζακμα σχοπιξηα πεςεδ ϊαη- ςυϊλοκ KMON. ότα πςογεδυςα ξεοβθοδινα δμρ σιστενξοκ δισλε- τω, εσμι ισπομψϊυΰτσρ λοναξδξωε ζακμω δμρ ϊαηςυϊλι ποσμεδο- χατεμψξοστι πςοηςανν. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .UNLOCK (σν. ποδπυξλτ 7.6.18.3). 7.6.27.1. οσοβεξξοστι πςι ςαβοτε XM-νοξιτοςα νοφξο ισπομψϊοχατψ ναλςολοναξδυ .SETTOP χ ςασϋιςεξξοκ πανρτι, εσμι πςοηςαννα βωμα σλονποξοχαξα σ πονούψΰ λοναξδω νοξιτοςα LINK σ λμΰώον /XM ιμι πςοηςαννοκ LINK σ λμΰώον /V. χοϊνοφξοστι πςοηςαννω .SETTOP ςαϊμιώξω δμρ πςιχιμεηιςοχαξ- ξωθ ι χιςτυαμψξωθ πςοηςανν. δμρ πςιχιμεηιςοχαξξωθ πςοηςανν - εσμι χ ναλςολοναξδε υλαϊαξ αδςεσ, πςεχωϋαΰύικ χεςθξΰΰ ηςαξιγυ δοπυστινοηο χις- τυαμψξοηο αδςεσα πςοηςαννω (T.E. σταςϋικ αδςεσ PAR, λοτοςωκ πςοηςαννα ισπομψϊυετ), το χοϊχςαύαετσρ σταςϋικ αδςεσ PAR. δμρ χιςτυαμψξωθ πςοηςανν - εσμι ϊαπςαϋιχαενωκ αδςεσ χωϋε χεςθξεηο χιςτυαμψξοηο αδςεσα πςοηςαννω, το χοϊχςχύαετ- σρ ϊξαώεξιε αςηυνεξτα, υλαϊαξξοηο χ ναλςολοναξδε, ιμι χεςθ- ξρρ ηςαξιγα χιςτυαμψξοηο αδςεσα πςοηςαννω, εσμι βωμ υλαϊαξ αδςεσ ςαχξωκ 177776. βυδυτ σοϊδαξω ξοχωε οβμαστψ ι ολξο. ςαϊνες οβμαστι ι ολξα ςαχεξ χοϊςαύαενονυ ϊξαώεξιΰ δοστυπξοκ οβμαστι, ολςυημεξξοκ δο 32-σμοχξοκ ηςαξιγω, νιξυσ χεςθξεε ϊξαώεξιε, χοϊχςαύαενοε ναλςολοναξδοκ .LIMIT (χεςθξικ χις- τυαμψξωκ αδςεσ πςοηςαννω). εσμι οτσυτστχυΰτ βμολι υπςαχμε- ξιρ οβμαστψΰ ι ολξον, το χοϊχςαύαετσρ χεςθξικ χιςτυαμψξωκ αδςεσ πςοηςαννω. ναλςολοναξδα .SETTOP ισπομψϊυετ οδιξ βμολ υπςαχμεξιρ οβμαστψΰ ι οδιξ βμολ υπςαχμεξιρ ολξον, πςεδξαϊ- ξαώεξξωθ δμρ πομψϊοχατεμρ. Tαλιν Oβςαϊον πςοηςαννε πομψϊο- χατεμρ δοστυπεξ ξα οδιξ βμολ υπςαχμεξιρ νεξψϋε. ποσμεδυΰύιε ναλςολοναξδω .SETTOP νοηυτ τομψλο πεςεοτοβςαϊιτψ οςιηιξαμψ- ξυΰ οβμαστψ, σοϊδαξξυΰ πεςχοκ ναλςολοναξδοκ. ϊαπςοσ, αςηυ- νεξτ λοτοςοηο ξιφε χεςθξεηο χιςτυμψξοηο αδςεσα, ςαϊςυϋαετ οβμαστψ ι ολξο. σμεδυΰύαρ ναλςολοναξδα .SETTOP σοϊδαετ - 150 - ξοχωε οβμαστψ ι ολξο. 7.6.27.2. οσοβεξξοστι πςι ςαβοτε TS-νοξιτοςα ναλςολοναξδα ισπομψϊυετσρ δμρ οπςεδεμεξιρ δοστυπξοκ πανρτι. δοστυπξαρ πανρτψ δμρ δαξξοκ μιξιι (ςαϊνες πανρτι πο υνομώαξιΰ) υσταξαχμιχαετσρ ςαχξοκ ςαϊνεςυ πανρτι, υταξοχ- μεξξονυ ποσμεδξεκ λοναξδοκ νοξιτοςα MEMORY ιμι πςι ηεξεςα- γιι. πςι χωπομξεξιι ναλςολοναξδω χοϊχςαύαετσρ: - υλαϊαξξωκ αδςεσ, εσμι οξ ξε πςεχωϋαετ ςαϊνες πανρ- τι πο υνομώαξιΰ; - ςαϊνες πανρτι πο υνομώαξιΰ, εσμι ξε υσταξοχμεξα ρώεκλα 56 ξυμεχοηο βμολα πςοηςαννω ιμι εε ϊξαώεξιε ξε πςεχωϋαετ ότοηο ςαϊνεςα; - ςαϊνες πανρτι, υλαϊαξξωκ χ ρώεκλε 56, εσμι οξ πςε- χωϋαετ ςαϊνες πο υνομώαξιΰ; χ ότον σμυώαε χοσστα- ξαχμιχαετσρ ςαϊνες πανρτι πο υνομώαξιΰ, εσμι πςοη- ςαννα ϊαλοξώιμα χωπομξεξιε, ι πςοηςαννα ϊαηςυφεξα πο ναλςολοναξδε .CHAIN. ζοςνατ ναλςολοναξδω: .SETTOP AREA,ADDR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; ADDR - αδςεσ σμοχα, σοδεςφαύεηο χεςθξΰΰ ηςαξιγυ πςοηςαν- νω. εσμι ADDR=-2, το ϊαπςαϋιχαετσρ χσρ δοστυπξαρ πςοηςαννε πανρτψ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 0 ! 141 ! !--------!--------! ! ADDR ! !-----------------! ποσμε χωπομξεξιρ ναλςολοναξδω R0 σοδεςφιτ χεςθξικ δοσ- τυπξωκ αδςεσ δμρ πςοηςαννω. πςοηςαννε ξεμψϊρ ιϊνεξιτψ σχοκ ςαϊνες, εσμι οξα βωμα ϊαπυύεξα λοναξδοκ νοξιτοςα RUN σ λμΰώον /DEBUG ιμι σιστενα βωμα σηεξεςιςοχαξα βεϊ ποδδεςφλι σχοπιξηα πςοηςανν. - 151 - 7.6.28. ναλςολοναξδα .SFςα σιστενξαρ ναλςολοναξδα .SFςα πςεδοσταχμρετ πομψϊοχατε- μρν, ινεΰύιν πςογεσσος σ πμαχαΰύεκ ϊαπρτοκ (χ λονπμελσαθ σν-1420 ιμι σν-4/20), χοϊνοφξοστψ οβςαβατωχατψ πςεςωχαξιρ πο οϋιβλε. ζοςνατ ναλςολοναξδω: .SFςα αRεα,αDDR ηδε αREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; ADDR - αδςεσ πςοηςαννω οβςαβοτλι πςεςωχαξιρ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!----- --! R0 => AREA: ! 30 ! 0 ! !--------!--------! ! ADDR ! !-----------------! οβωώξο, εσμι χοϊξιλαετ πςεςωχαξιε πο οϋιβλε πςι ισπομψϊοχαξιι πςογεσσοςα σ πμαχαΰύεκ ϊαπρτοκ, πςελςαύαετσρ χωπομξεξιε πςοηςαννω ι χωδαετσρ σοοβύεξιε οβ οϋιβλε ξα σισ- τενξωκ τεςνιξαμ. σιστενξαρ ναλςολοναξδα .SFςα ποϊχομρετ πομψϊοχατεμΰ σανονυ οβςαβατωχατψ πςεςωχαξιρ. αςηυνεξτ αDDR υλαϊωχαετ αδςεσ ποδπςοηςαννω οβςαβοτλι πςεςωχαξιρ. εσμι αςηυνεξτ ADDR=0, το ναλςολοναξδα .SFPA ιηξοςι- ςυετσρ. πςι ςαβοτε FB-νοξιτοςα, εσμι αςηυνεξτ ADDR=1, το ςεηιστςω πςογεσσοςα σ πμαχαΰύεκ ϊαπρτοκ δομφξω βωτψ χλμΰώε- ξω χ οβμαστψ λοξτελστξοηο πεςελμΰώεξιρ πςι πεςελμΰώεξιι σιστενω σ οδξοηο ϊαδαξιρ ξα δςυηοε. εσμι αDDR=1, πομψϊοχα- τεμψ ξε οβςαβατωχαετ πςεςωχαξιρ πο οϋιβλε. πςι ότον μΰβαρ ιϊ πςοηςανν ινεετ δοστυπ λ υστςοκστχυ. χ SJ-νοξιτοςε πςι ADDR=1 χωπομξρΰτσρ δεκστχιρ, αξαμοηιώξωε ADDR=0. σιστενξυΰ ναλςολοναξδυ .SFςα ξεοβθοδινο ποχτοςρτψ λαφ- δωκ ςαϊ, λοηδα χοϊξιλαΰτ πςεςωχαξιρ, εσμι πομψϊοχατεμψ θοώετ οβςαβατωχατψ ιθ σαν, τ.ε. ποδπςοηςαννα οβςαβοτλι πςε- ςωχαξιρ δομφξα σοδεςφατψ χωϊοχ .SFPA. πομψϊοχατεμψ δομφεξ σαν σοθςαξρτψ ι χοσσταξαχμιχατψ ςεηιστςω, εσμι ότο ξεοβθοδινο. χωθοδ ιϊ ποδπςοηςαννω οβςαβοτλι πςεςωχαξικ δομφεξ χωπομξρτψσρ πο RTI. οϋιβλι οτσυτστχυΰτ. - 152 - πςινες. .MCALL .SFPA,.EXIT START: . . . .SFPA #AREA,#FPTRAP . . . .EXIT FPTRAP: MOV R0,-(SP) . . . .SFPA #AREA,#FPTRAP . . . MOV (SP)+,R0 RTI AREA: .BLKW 10 .END START 7.6.29. ναλςολοναξδα .SPCPS (FB, XM, TS) ναλςολοναξδα .SPCPS ποϊχομρετ ποδπςοηςαννε ϊαχεςϋεξιρ πεςεδαχατψ υπςαχμεξιε ξα μΰβυΰ τοώλυ χ πςοηςαννε πομψϊοχα- τεμρ. ποδδεςφλα ναλςολοναξδω .SPCPS ϊαδαετσρ πςι ηεξεςαγιι ι δοστυπξα τομψλο πςι ςαβοτε FB/XM/TS-νοξιτοςα. χ οσταμψξωθ νοξιτοςαθ οτςαβατωχαετσρ λαλ NOP. ναλςολοναξδα .SPCPS σοθςαξρετ ϊξαώεξιρ PC ι PS, σοδες- φαύιε ιξζοςναγιΰ ο τοώλε χοϊςατα ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ ι ϊανεξρετ PC ξα ξοχοε ϊξαώεξιε. εσμι πςοηςαννα χωπομξρετ ναλςολοναξδυ, νοξιτος δοφι- δαετσρ εε ϊαχεςϋεξιρ πεςεδ πεςεδαώεκ υπςαχμεξιρ ποδπςοηςαν- νε ϊαχεςϋεξιρ. ζαλτιώεσλι πεςεδαώα υπςαχμεξιρ ποδπςοηςαννε ϊαχεςϋεξιρ πςιοσταξαχμιχαετσρ δο τοηο, λαλ βυδετ σξοχα πεςεδαξο υπςαχμεξιε πςοηςαννε. ναλςολοναξδα .SPCPS χοϊχςαύαετ λοδ οϋιβλι, εσμι οξα χωδαετσρ δο τοηο, λαλ βωμα ϊαχεςϋεξα πςεδϋεστχυΰύαρ ναλςο- λοναξδα .SPCPS. βομεε τοηο, ιξζοςναγιρ, σοθςαξρεναρ χ βμολε πομψϊοχατεμρ ξε δεκστχιτεμψξα δο τεθ πος, πολα σξοχα ξε βυδετ πεςεδαξο υπςαχμεξιε χ πςοηςαννυ πομψϊοχατεμρ. ζοςνατ ναλςολοναξδω: .SPCPS AREA,ADDR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; - 153 - ADDR - αδςεσ βμολα ιϊ τςεθ σμοχ χ πςοηςαννε πομψϊοχατεμρ, λοτοςωκ σοδεςφιτ ξοχωκ αδςεσ χοϊχςατα PC, α ταλφε σταςωε PC ι PS. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 41 ! 0 ! !--------!--------! ! ADDR ! !-----------------! οϋιβλι: λοδ πορσξεξιε 0 ναλςολοναξδα .SPCPS ϊαδαξα ιϊ πςοηςαννω, α ξε ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ; 1 πςεδϋεστχυΰύαρ ναλςολοναξδα .SPCPS εύε ξε χωπομξεξα. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .SYNCH (π. 7.6.32). 7.6.30. ναλςολοναξδω .SPND/.RSUM (FB, XM, TS) ναλςολοναξδω .SPND/.RSUM ισπομψϊυΰτσρ δμρ πςιοσταξοχα ι πςοδομφεξιρ ςαβοτω πςοηςαννω. νοξιτος σοδεςφιτ σώετώιλ δμρ λαφδοκ πςοηςαννω. ότοτ σώετώιλ υνεξψϋαετσρ ξα εδιξιγυ ναλςολοναξδοκ .SPND ι υχεμι- ώιχαετσρ ξα εδιξιγυ ναλςολοναξδοκ .RSUM. πςοηςαννα βυδετ πςιοσταξοχμεξα τομψλο χ τον σμυώαε, εσμι ϊξαώεξιε σώετώιλα οτςιγατεμψξο. ποότονυ, εσμι σιστενξαρ ναλςολοναξδα .RSUν χωδαξα ςαξψϋε .SPND, το ναλςολοναξδα .SPND ιηξοςιςυετσρ. πςοηςαννα δομφξα χωδαχατψ οδιξαλοχοε ώισμο σιστενξωθ ναλςολοναξδ .SPND ι .RSUM. ναλςολοναξδω .RSUM/.SPND, λαλ ι δςυηιε ναλςολοναξδω, νοηυτ βωτψ χωδαξω ιϊ ποδπςοηςαννω οβςαβοτλι πςεςωχαξιρ, ξαπισαξξοκ πομψϊοχατεμεν, εσμι ινεετσρ ποσμεδοχατεμψξοστψ .INTEN/.SYNCH. χσε ϊανεώαξιρ, οτξοσρύιεσρ λ .RSUM/.SPND χ ποδπςοηςαννε ϊαχεςϋεξιρ, πςινεξινω λ ότονυ σμυώαΰ. λςονε ισπομψϊοχαξιρ χ πςοηςανναθ χ TS-νοξιτοςε ότι ναλςολοναξδω νοφξο ισπομψϊοχατψ τομψλο χ ποδπςοηςανναθ ϊαχεςϋεξιρ δςακ- χεςοχ. - 154 - 7.6.30.1. ναλςολοναξδα .SPND σιστενξαρ ναλςολοναξδα .SPND πςιοσταξαχμιχαετ ςαβοτυ πςοηςαννω ι ποϊχομρετ χωπομξρτψσρ τομψλο ποδπςοηςανναν ϊαχεςϋεξιρ δμρ οπεςαγικ χχοδα/χωχοδα ι ϊαπςοσοχ πο τακνεςυ. ζοςνατ ναλςολοναξδω: .SPND ζοςνατ ςεηιστςα R0: !--------!--------! R0 => ! 1 ! 0 ! !--------!--------! σιστενξαρ ναλςολοναξδα .SPND ιϊ ποδπςοηςαννω ϊαχεςϋε- ξιρ υνεξψϋαετ σώετώιλ οσταξοχοχ, ξο ξε οσταξαχμιχαετ οσξοχ- ξυΰ πςοηςαννυ. εσμι ποδπςοηςαννα ϊαχεςϋεξιρ οσυύεστχμρετ ναλςολοναξδυ .SPND, οσξοχξαρ πςοηςαννα πςοδομφαετσρ δο χωδαώι ότοκ ναλςολοναξδω σανοκ πςοηςαννοκ, τομψλο ποσμε ότοηο οξα βυδετ πςιοσταξοχμεξα, ι ποτςεβυετσρ δχε ναλςολο- ναξδω .RSUM δμρ εε πςοδομφεξιρ. οϋιβλι οτσυτστχυΰτ. πςινες. .MCALL .SPND,.RSUM,.READC,.EXIT .MCALL .LOOKUP,.PRINT,.WAIT START: .LOOKUP #AREA,#2,#FILE2 BCS 1$ .LOOKUP #AREA,#3,#FILE3 BCS 1$ .LOOKUP #AREA,#4,#FILE4 BCC 3$ 1$: .PRINT #2$ .EXIT 2$: .ASCIZ /οϋιβλα LOOKUP/ .EVEN 3$: MOV #2,RSVCTR MOV #AREA,R5 .READC R5,#2,#BUF1,COUNT1,#CROUTN,BLOK1 BCS ERROR .READC R5,#3,#BUF2,COUNT2,#CROUTN,BLOK2 BCS ERROR .READC R5,#4,#BUF3,COUNT3,#CROUTN,BLOK3 BCS ERROR .SPND .WAIT #2 .WAIT #3 .WAIT #4 .EXIT CROUTN: ASL R1 INC DONFL(R1) ROR R0 ADC ERRFLG(R1) - 155 - DEC RSVCTR BNE 1$ .RSUM 1$: RTS PC ERROR: .PRINT #RDMSG .EXIT RDMSG: .ASCIZ /οϋιβλα READ/ .EVEN AREA: .BLKW 10 RSVCTR: 0 COUNT1: 256. COUNT2: 256. COUNT3: 256. BLOK1: 0 BLOK2: 0 BLOK3: 0 FILE2: .RAD50 /DK TEST2 TMP/ FILE3: .RAD50 /DK TEST3 TMP/ FILE4: .RAD50 /DK TEST4 TMP/ DONFL: 0,0,0 ERRFLG: 0,0,0 BUF1: .BLKW 256. BUF2: .BLKW 256. BUF3: .BLKW 256. .END START 7.6.30.2. ναλςολοναξδα .RSUν σιστενξαρ ναλςολοναξδα .RSUM πςοδομφαετ χωπομξεξιε πςοηςαννω ποσμε τοηο, λαλ οξα βωμα πςιοσταξοχμεξα ναλςολο- ναξδοκ .SPND. ζοςνατ ναλςολοναξδω: .RSUν ζοςνατ ςεηιστςα R0: !--------!--------! R0 => ! 2 ! 0 ! !--------!--------! ναλςολοναξδα .RSUM ιϊ μΰβοκ ποδπςοηςαννω ϊαχεςϋεξιρ χοϊοβξοχμρετ χωπομξεξιε οσξοχξοκ πςοηςαννω. ταλ λαλ σιστενξαρ ναλςολοναξδα .τWαIτ ςεαμιϊυετσρ χ νοξιτοςε σ ισπομψϊοχαξιεν οσταξοχα ι χοϊοβξοχμεξιρ, το ναλ- ςολοναξδα .RSUν, χωδαξξαρ ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ βεϊ σοοτχετστχυΰύεκ .SςND, νοφετ χωϊχατψ πςοδομφεξιε οσξοχξοκ πςοηςαννω πςεφδε, ώεν ϊαλοξώιτσρ πομξωκ χςενεξξοκ ιξτεςχαμ, υλαϊαξξωκ χ .TWAIT. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .SPND (σν. - 156 - ποδπυξλτ 7.6.30.1). 7.6.31. ναλςολοναξδα .SDTTM ναλςολοναξδα .SDTTM ποϊχομρετ ιϊ πςοηςαννω πομψϊοχατε- μρ υσταξοχιτψ χ σιστενε ξοχωε δατυ ι χςενρ. ζοςνατ ναλςολοναξδω: .SDTTM AREA,ADDR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; ADDR - αδςεσ βμολα ιϊ τςεθ σμοχ χ πςοηςαννε πομψϊοχατεμρ, σοδεςφαύεηο ξοχωε δατυ ι χςενρ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 40 ! 0 ! !--------!--------! ! ADDR ! !-----------------! πομψϊοχατεμψ ϊαξοσιτ χ βμολ ιϊ τςεθ σμοχ σμεδυΰύυΰ ιξζοςναγιΰ: σμοχο 1 - σοδεςφιτ ξοχυΰ σιστενξυΰ δατυ χο χξυτςεξξεν ζοςνα- τε (σν. π. 7.6.5); εσμι ότο σμοχο ινεετ οτςιγα- τεμψξοε ϊξαώεξιε (σοοτχετστχυετ ξελοςςελτξονυ ϊξα- ώεξιΰ δατω), νοξιτος ιηξοςιςυετ εηο; ϊξαώεξιε ότο- ηο σμοχα δομφξο βωτψ οτςιγατεμψξων τομψλο χ τον σμυώαε, εσμι ξεοβθοδινο ιϊνεξιτψ χ σιστενε τομψλο παςανετς "χςενρ"; εσμι ότο σμοχο ινεετ πομοφιτεμψ- ξοε ϊξαώεξιε, οξο σταξοχιτσρ σιστενξοκ δατοκ; ςαϊ- ςρδω 14 ι 15 σμοχα "σιστενξαρ δατα" δομφξω βωτψ σβςοϋεξω; σμοχα 2 ι 3 - σοδεςφατ νμαδϋιε ςαϊςρδω (σμοχο 2) ι σταςϋιε ςαϊ- ςρδω (σμοχο 3) ιξτεςχαμα χςενεξι χο χξυτςεξξεν ζοςνατε. ότο 32-ςαϊςρδξοε ϊξαώεξιε χςενεξι ποσμε πομυξοώι; εσμι σμοχο 3 σοδεςφιτ οτςιγατεμψξοε ϊξα- ώεξιε, το ξοχοε χςενρ χ σιστενε ξε υσταξαχμιχαετ- σρ; ξεοβθοδινο ϊαπισατψ οτςιγατεμψξοε ϊξαώεξιε χ ότο σμοχο, εσμι ξυφξο ιϊνεξιτψ τομψλο σιστενξυΰ δατυ; εσμι ότο σμοχο πομοφιτεμψξοε, το υσταξαχμι- χαετσρ ξοχοε σιστενξοε χςενρ; δμρ ώαστοτω πιταξιρ 50 ηγ σμοχο 3 δομφξο βωτψ νεξψϋε ιμι ςαχξο 101 (χοσψνεςιώξοε), α σμοχο 2 νεξψϋε ώεν 165400 (χοσψ- νεςιώξοε). - 157 - νοξιτος ξε οσυύεστχμρετ πςοχεςλι ϊξαώεξιρ σμοχ, σοδες- φαύιθ "σιστενξυΰ δατυ" ι χςενρ ξα λοςςελτξοστψ ϊαπισι (τομψλο, λαλ βωμο σλαϊαξο χωϋε, πςοχεςρετ ότι σμοχα ξα ϊξαλ - οτςιγατεμψξοε ιμι πομοφιτεμψξοε). ποότονυ πομψϊοχατεμψ δομφεξ σαν χ πςοηςαννε οσυύεστχμρτψ ότυ πςοχεςλυ. πςινεώαξιε. σμεδυετ πονξιτψ, ώτο λοςςελγιρ δατω ι/ιμι χςενεξι πςι χωπομξεξιι μΰβοκ ιϊ ναλςολοναξδ τιπα .TWAIT, .MRKT ιμι .CMKT νοφετ πςιχεστι λ ξεπςεδσλαϊυενων ςεϊυμψτα- ταν. οϋιβλι οτσυτστχυΰτ. χ σμεδυΰύεν πςινεςε πςεδσταχμεξα ποδπςοηςαννα λοςςελ- γιι χςενεξι ξα 1 ώασ σ υώετον δελςετξοηο χςενεξι. πςινες. ; ; χωϊοχ ποδπςοηςαννω οσυύεστχμρετσρ πο CALL ADDR, ; ηδε ADDR σοοτχετστχυετ OCT ιμι APR χ ϊαχισινοστι ; οτ τςεβυενοκ λοςςελγιι ; .MCALL .SDTTM,.PRINT,.EXIT,.GTIM .GLOBL STD,DALITE OCT: COM HR ; ποδηοτοχλα δμρ υνεξψ- NEG HR+2 ; ϋεξιρ χςενεξι ξα 1 ώασ APR: .GTIM #AREA,#TIME ; πομυώεξιε τελ. χςενεξι CALL JADD ; υθοδ ξα ποδπςοηςαννυ .SDTTM #AREA,#NEWDT ; υσταξοχλα ξοχοηο χςενεξι .GTIM #AREA,#TIME ; πομυώεξιε ξοχοηο χςενεξι RETURN NEWDT: .WORD -1 ; δατα TIME: .WORD 0,0 ; χςενρ HR: .WORD 2 ; ϊξαώεξιε 1 ώασα χο .WORD 137440 ; χξυτςεξξεν ζοςνατε AREA: .WORD 0,0 ; JADD: MOV #HR,R4 MOV #AREA,R3 MOV #HR,R1 MOV -(R4),R2 ; λοςςελγιρ νμαδϋιθ ADD -(R3),R2 ; ςαϊςρδοχ MOV -(R4),R5 ; ADC R5 ; εσμι βωμο πεςεπομξεξιε ADD -(R3),R5 ; λοςςελγιρ στας. ςαϊςρδοχ MOV R2,-(R1) ; σοθςαξεξιε ξοχοηο MOV R5,-(R1) ; χςενεξι RETURN .END - 158 - 7.6.32. ναλςολοναξδα .SYNCH σιστενξαρ ναλςολοναξδα .SYNCH δαετ χοϊνοφξοστψ πςοη- ςαννε οβςαβοτλι πςεςωχαξικ χωπομξρτψ σιστενξωε ναλςολοναξ- δω. χ TS-νοξιτοςε ότα ναλςολοναξδα πςεδξαϊξαώεξα τομψλο δμρ δςακχεςοχ, ξο χ δαξξοκ χεςσιι νοξιτοςα εε ισπομψϊοχατψ ξε ςελονεξδυετσρ. ζοςνατ ναλςολοναξδω: .SYNCH AREA[,PIC] ηδε AREA - αδςεσ βμολα ιϊ σενι σμοχ; χ οτμιώιε οτ δςυηιθ ναλ- ςολοναξδ ότοτ βμολ ισπομψϊυετσρ λαλ όμενεξτ οώεςε- δι δμρ .SYNCH; PIC - ξεοβρϊατεμψξωκ αςηυνεξτ, ποϊχομρΰύικ ναλςολοναξδε .SYNCH ηεξεςιςοχατψ ποϊιγιοξξο-ξεϊαχισινωκ λοδ. βμολ AREA σοδεςφιτ: σμοχο 1 - σιστενξοε σμοχο, λοτοςοε ξε δομφξο ιϊνεξρτψσρ πομψϊοχατεμεν; σμοχο 2 - τελυύικ ξονες ϊαδαξιρ (μιξιι), λοτοςωκ δομφεξ υσταξαχμιχατψσρ πομψϊοχατεμεν; νοφετ βωτψ πομυώεξ ναλςολοναξδοκ .GTJB; σμοχο 3-4 - ξε ισπομψϊυΰτσρ; σμοχο 5 - ιδεξτιζιλατος ναλςολοναξδω .SYNCH; πςι υσπεϋξον χωπομξεξιι ναλςολοναξδω ότο σμοχο ϊαξοσιτσρ χ R0; σμοχο 6 - δομφξο σοδεςφατψ -1; σμοχο 7 - δομφξο σοδεςφατψ 0. ναλςολοναξδα .SYNCH πεςεχοδιτ ποδπςοηςαννυ οβςαβοτλι πςεςωχαξιρ χ σοστορξιε "πςοηςαννα" (χ πομψϊοχατεμψσλικ ςεφιν) ξα ξυμεχον πςιοςιτετε πςογεσσοςα δμρ χωπομξεξιρ ναλ- ςολοναξδ. νεφδυ ναλςολοναξδανι .SYNCH ι .INTEN πομψϊοχατεμψ ξε δομφεξ ξιώεηο ϊαξοσιτψ χ στελ. εσμι ναλςολοναξδα .SYNCH ξε χωπομξεξα, το χοϊχςατ πςοισθοδιτ χ σμεδυΰύυΰ ϊα ναλςολοναξδοκ ρώεκλυ. χ ότον σμυ- ώαε πςοηςαννα οβςαβοτλι πςεςωχαξικ ξε νοφετ χωπομξρτψ ναλ- ςολοναξδω; R4 ι R5 σχοβοδξω δμρ ισπομψϊοχαξιρ. - 159 - εσμι ναλςολοναξδα .SYNCH χωπομξεξα, το χοϊχςατ πςοισ- θοδιτ χ σμεδυΰύυΰ ϊα χοϊχςατον πο οϋιβλε ρώεκλυ. πςοηςαννε οβςαβοτλι πςεςωχαξικ ςαϊςεϋεξο χωπομξρτψ ναλςολοναξδω. R0 σοδεςφιτ αςηυνεξτ, ξαθοδιχϋικσρ χ πρτον σμοχε βμολα AREA. R4 ι R5 ξεμψϊρ ισπομψϊοχατψ βεϊ πςεδχαςιτεμψξοηο σοθςαξεξιρ χ στελε, α R0 ι R1 - νοφξο. χωθοδ ιϊ πςοηςαννω οβςαβοτλι πςεςωχαξιρ δομφεξ βωτψ πο ιξστςυλγιι RTS PC. νοφξο δχυνρ σποσοβανι οπςεδεμιτψ, σχοβοδεξ μι βμολ AREA: - πςοχεςιτψ σοδεςφινοε σμοχα 7 βμολα AREA; εσμι οξο ςαχξο ξυμΰ, το βμολ σχοβοδεξ ι νοφετ ισπομψϊοχατψ- σρ ξοχοκ ναλςολοναξδοκ .SYNCH; - χωπομξιτψ ξοχυΰ ναλςολοναξδυ .SYNCH; εσμι χοϊχςατ οσυύεστχμρετσρ σ οϋιβλοκ, σμεδοχατεμψξο βμολ ϊαξρτ. οϋιβλι: χοϊχςατ πο οϋιβλε πςοισθοδιτ χ σμεδυΰύιθ σμυώαρθ: - ξε ϊαλοξώεξα ναλςολοναξδα .SYNCH, ισπομψϊυΰύαρ τοτ φε βμολ AREA; - υλαϊαξ ξεδοπυστινωκ ξονες ϊαδαξιρ; - εσμι πςοιϊοϋμο υδαμεξιε ιμι οσταξοχ οσξοχξοκ πςοηςαννω. πςινες. .MCALL .GTJB,.INTEN,.WRITC,.SYNCH,SPCPS .MCALL .EXIT,.DIR,.PRINT START: MOV #JOB,R5 ;πομυώιτψ ξονες .GTJB #AREA,R5 ;ϊαδαξιρ MOV (R5),SYNBLK+2 . . . INTRPT:.INTEN 5 ;πεςεκτι χ σιστενξοε ;σοστορξιε, υσταξοχιτψ ;πςιοςιτετ 5 .SYNCH #SYNBLK BR SYNFAIL ;βμολ .SYNCH ϊαξρτ .DIR WRITE ;ϊαπισψ χ βυζες BCC 1$ .SPCPS AREA,ADDR 1$: RTS PC ;χωθοδ SYNBLK: 0,0,0,0,5,-1,0 ;βμολ .SYNCH SYNFAIL: MOV #SYNER,R0 BR ERRM WTFAIL: MOV #MSG,R0 ERRM: .PRINT .EXIT MSG: .ASCIZ /οϋιβλα ϊαπισι/ SYNER: .ASCIZ /οϋιβλα SYNCH/ .EVEN AREA: .BLKW 5 ;βμολ αςηυνεξτοχ εντ - 160 - ;δμρ .WRITE ADDR: .WORD WTFAIL,0,0 ;βμολ δμρ .SPCPS JOB: .BLKW 5 ;βμολ αςηυνεξτοχ εντ ;δμρ .SYNCH CRTN1: . ;τελστ ποδπςοηςαννω . ; ϊαχεςϋεξιρ RTS PC WRITE: .WRITC #AREA,CHAN,BUFF,WCNT,#CRTN1,BLK CHAN: 0 BUFF: .BLKW 256. WCNT: 256. BLK: 0 .END START 7.6.33. ναλςολοναξδα .TRPSET σιστενξαρ ναλςολοναξδα .TRPSET ποϊχομρετ πομψϊοχατεμΰ σανονυ οβςαβατωχατψ πςεςωχαξιρ πο χελτοςαν 4 ι 10. ζοςνατ ναλςολοναξδω: .TRPSET AREA,ADDR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ ιϊ δχυθ σμοχ; ADDR - αδςεσ πςοηςαννω οβςαβοτλι πςεςωχαξιρ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 3 ! 0 ! !--------!--------! ! ADDR ! !-----------------! ναλςολοναξδα .TRPSET ϊαπςεύαετ νοξιτοςυ υδαμρτψ πςοη- ςαννυ πςι χοϊξιλξοχεξιι πςεςωχαξικ πο χελτοςαν 4 ι 10. εσμι πςι χθοδε χ πςοηςαννυ οβςαβοτλι πςεςωχαξιρ βιτ C σβςοϋεξ, το πςοιϊοϋμο πςεςωχαξιε πο χελτοςυ 4, εσμι βιτ C υστααξοχμεξ, το πςεςωχαξιε πο χελτοςυ 10. πςοηςαννα οβςαβοτλι πςεςωχαξιρ δομφξα ϊαλαξώιχατψσρ ιξστςυλγιεκ RTI. πεςεδ ότοκ ιξστςυλγιεκ δομφξα στορτψ ναλ- ςολοναξδα .TRPSET. ναλςολοναξδυ .TRPSET ξεοβθοδινο ποχτοςρτψ λαφδωκ ςαϊ πςι χοϊξιλξοχεξιι πςεςωχαξιρ, εσμι πομψϊοχατεμψ θοώετ ι χ δαμψξεκϋεν οβςαβατωχατψ ιθ σαν, τ.ε. ποδπςοηςαννα οβςαβοτλι πςεςωχαξιρ δομφξα σοδεςφατψ .TRPSET. εσμι πςεςωχαξιρ πςοισθοδρτ πςι χωπομξεξιι ποδπςοηςαννω - 161 - οβςαβοτλι πςεςωχαξιρ, το χωδαετσρ σοοβύεξιε οβ οϋιβλε ι χωπομξεξιε πςοηςαννω πςεςωχαετσρ. εσμι ADDR=0, ναλςολοναξδα .TRPSET ιηξοςιςυετσρ. οβςαβοτλα πςεςωχαξικ πςι ισπομψϊοχαξιι ναλςολοναξδω .TRPSET χ XM-νοξιτοςε οσυύεστχμρετσρ χ πομψϊοχατεμψσλον ςεφινε. δμρ πομυώεξιρ δοστυπα λ χελτοςαν πςεςωχαξιρ χ χις- τυαμψξοκ πςοηςαννε ξεοβθοδινο ισπομψϊοχατψ ναλςολοναξδυ .TRPSET, τ.λ. οξα ξε ινεετ δοστυπα λ σιστενξων ρώεκλαν. οϋιβλι οτσυτστχυΰτ. χ πςινεςε ναλςολοναξδα .TRPSET υλαϊωχαετ αδςεσ πςοη- ςαννω οβςαβοτλι μοχυϋελ 4 ι 10. πςινες. .MCALL .TRPSET,.EXIT,.PRINT START: .TRPSET #AREA,#TRPLOC ;ϊαπςετιτψ υδαμρτψ ;πςοηςαννυ MOV #101,R0 TST (R0)+ ;ξεώετξωκ αδςεσ .WORD 67 ;ξεχεςεξ λοδ ιξστςυλγιι .EXIT TRPLOC: MOV R0,-(SP) ;πςοηςαννα οβςαβοτλι BCS 1$ ;μοχυϋελ .PRINT #TRP4 BR 2$ 1$: .PRINT #TRP10 2$: .TRPSET #AREA,#TRPLOC MOV (SP)+,R0 RTI AREA: .BLKW 10 ;βμολ αςηυνεξτοχ εντ TRP4: .ASCIZ /TRAP TO 4/ TRP10: .ASCIZ /TRAP TO 10/ .EVEN .END START 7.6.34. ναλςολοναξδα .USχDF σιστενξαρ ναλςολοναξδα .USχDF οπςεδεμρετ νξενοξιώεσλιε οβοϊξαώεξιρ στατυσα ϊαχεςϋεξιρ πςοηςαννω. ζοςνατ ναλςολοναξδω: .USχDF ςασϋιςεξιε ναλςολοναξδω: ERRBYT =^O52 USERRB =^O53 SEVER$ =^O10 ERROR$ =^O4 WARN$ =^O2 - 162 - SUCCS$ =^O1 δαξξαρ ναλςολοναξδα ξε ηεξεςιςυετ λοδοχ εντ, α ρχμρετ- σρ ώιστο οπισατεμψξοκ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ πςι οπισαξιι ναλςολοναξδω .SERR (σν. ποδπυξλτ 7.6.14.2). 7.7. οβνεξ νεφδυ ϊαδαξιρνι (FB, XM) ναλςολοναξδω δαξξοκ ηςυππω νοηυτ ισπομψϊοχατψσρ δμρ οβνεξα δαξξωνι νεφδυ ζοξοχοκ ι οπεςατιχξοκ πςοηςαννανι. 7.7.1. ναλςολοναξδα .νWαIτ σιστενξαρ ναλςολοναξδα .νWαIτ πςιοσταξαχμιχαετ χωπομ- ξεξιε πςοηςαννω δο ολοξώαξιρ οβνεξα σοοβύεξιρνι νεφδυ πςοη- ςαννανι. ζοςνατ ναλςολοναξδω: .νWαIτ ζοςνατ ςεηιστςα R0: !--------!--------! R0 => ! 11 ! 0 ! !--------!--------! οβωώξο ότα ναλςολοναξδα ισπομψϊυετσρ χ σοώεταξιι σ ναλςολοναξδανι .RσVD ιμι .SDατ, λοτοςωε ξε πςεδυσνατςιχαΰτ ξιλαλιθ οπεςαγικ ποσμε ϊαχεςϋεξιρ σοοβύεξιρ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ χ οπισαξιι ναλςολοναξδω .SDATW (ποδ- πυξλτ 7.7.3.3). 7.7.2. ναλςολοναξδω .RσVD/.RσVDσ/.RσVDW σιστενξωε ναλςολοναξδω ότοηο τιπα ισπομψϊυΰτσρ σοχ- νεστξο σ ναλςολοναξδανι .SDAτ/.SDατσ/.SDατW δμρ οσυύεστχμε- ξιρ πεςεδαώι δαξξωθ νεφδυ πςοηςαννανι. ξεποσςεδστχεξξο ναλ- ςολοναξδω τιπα .RσVD χωπομξρΰτ πςιεν δαξξωθ αξαμοηιώξο ναλ- - 163 - ςολοναξδαν τιπα .RεαD σ τοκ μιϋψ ςαϊξιγεκ, ώτο πεςεδαώα δαξξωθ πςοιϊχοδιτσρ ξε πεςιζεςικξων υστςοκστχον, α πςοηςαν- νοκ, ςαβοταΰύεκ χ δςυηον ςαϊδεμε (οπεςατιχξον ιμι ζοξοχον) ι χωπομξρΰύεκ πεςεσωμλυ δαξξωθ. σοοβύεξιρ χσεηδα οβςαβατωχαΰτσρ χ ποςρδλε: "πεςχωκ χοϋεμ - πεςχωκ χωϋεμ". ταλιν οβςαϊον πομψϊοχατεμψ νοφετ βωτψ υχεςεξ, ώτο ιν πςιξρτο δεκστχιτεμψξο ϊατςεβοχαξξοε σοοβύεξιε. πςοηςαννω, ισπομψϊυΰύιε ναλςολοναξδω τιπα .RσVD/.SDατ, δομφξω πςεδυσνατςιχατψ μιβο πεςεδαώυ δαξξωθ χ ζιλσιςοχαξξον ζοςνατε, μιβο χοϊνοφξοστψ οβςαβοτλι πεςενεξξωθ ζοςνατοχ. πςινεώαξιε. πςι ισπομψϊοχαξιι ναλςολοναξδ .RσVD ι .RσVDσ δμρ βυζεςιϊαγιι ϊαπςοσοχ χχοδα ξυφξο χωδεμρτψ δοπομ- ξιτεμψξωε όμενεξτω οώεςεδι (σν. π. 7.6.22). οϋιβλι οδιξαλοχω δμρ χσεθ τςεθ ςεφινοχ: λοδ πορσξεξιε 0 χ σιστενε ξετ δςυηοηο ϊαδαξιρ. 7.7.2.1. ναλςολοναξδα .RσVD υσταξαχμιχαετ ϊαπςοσ ξα πςιεν σοοβύεξιρ οτ δςυηοκ πςοηςαννω χ οώεςεδψ ι χοϊχςαύαετ υπςαχμεξιε πςοηςαννε. πςι ξεοβθοδινοστι πςιοσταξοχιτψ πςοηςαννυ δο ολαξώαξιρ πςιενα σοοβύεξιρ ξυφξο ισπομψϊοχατψ ναλςολοναξδυ .MWAIT. ζοςνατ ναλςολοναξδω: .RσVD αRεα,χUF,WσNτ ηδε AREA - Aδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ 5 σμοχ; BUF - αδςεσ βυζεςα δμρ πςιενα δαξξωθ; WCNT - δμιξα βυζεςα χ σμοχαθ. - 164 - ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 26 ! 0 ! !--------!--------! ! ϊαςεϊεςχιςοχαξο ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! 1 ! !-----------------! σμεδυετ ινετψ χ χιδυ, ώτο πεςχοε σμοχο βυζεςα "χUF" βυδετ σοδεςφατψ λομιώεστχο πεςεδαξξωθ σμοχ πο ϊαχεςϋεξιι ναλςολοναξδω .RσVD. ποότονυ οβμαστψ, χωδεμεξξαρ δμρ πςιενα, χσεηδα δομφξα βωτψ, πο λςακξεκ νεςε, ξα οδξο σμοχο βομψϋε, ώεν ζαλτιώεσλικ ςαϊνες οφιδαενοηο σοοβύεξιρ. WCNT ρχμρετσρ πεςενεξξοκ χεμιώιξοκ, τ.ε. οδξα ι τα φε λονβιξαγιρ ναλςολοναξδ .RCVD/.SDAT νοφετ βωτψ πςινεξεξα δμρ πεςεδαώι σοοβύεξικ ςαϊμιώξοκ δμιξω, (ξεσλομψλιθ σμοχ βυζεςα ιμι χσεηο βυζεςα). οπεςαγιρ .RσVD ϊαχεςϋαετσρ τομψλο ποσμε χωπομξεξιρ ναλςολοναξδω .SDατ δςυηοκ πςοηςαννοκ. πςινες πςιχεδεξ χ οπισαξιι ναλςολοναξδω .SDATW (ποδ- πυξλτ 7.7.3.3). 7.7.2.2. ναλςολοναξδα .RCVDC σιστενξαρ ναλςολοναξδα .RσVDσ οσυύεστχμρετ πςιεν δαξ- ξωθ. ποσμε τοηο, λαλ ϊαπςοσ ποσταχμεξ χ οώεςεδψ ξα οβςαβοτ- λυ, πςοδομφαετσρ χωπομξεξιε τελυύεκ πςοηςαννω πομψϊοχατεμρ. λοηδα πεςεδαώα δαξξωθ ϊαλοξώιτσρ, υπςαχμεξιε βυδετ πεςεδαξο ποδπςοηςαννε ϊαχεςϋεξιρ. ζοςνατ ναλςολοναξδω: .RσVDσ αRεα,χUF,WσNτ,σRτN ηδε AREA - Aδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ 5 σμοχ; BUF - αδςεσ βυζεςα δμρ πςιενα δαξξωθ; WCNT - δμιξα βυζεςα χ σμοχαθ. CRτN - αδςεσ ποδπςοηςαννω ϊαχεςϋεξιρ. - 165 - ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 26 ! 0 ! !--------!--------! ! ϊαςεϊεςχιςοχαξο ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! CRTN ! !-----------------! πεςχοε σμοχο βυζεςα χUF σοδεςφιτ λομιώεστχο πςιξρτωθ σμοχ. πςινες πςιχεδεξ χ οπισαξιι ναλςολοναξδω .SDATW (ποδ- πυξλτ 7.7.3.3). 7.7.2.3. ναλςολοναξδα .RσVDW σιστενξαρ ναλςολοναξδα .RσVDW οσυύεστχμρετ πςιεν σοοβ- ύεξικ σ οφιδαξιεν λοξγα πεςεδαώι, τ.ε. πςοηςαννα, χωδαχϋαρ ϊαπςοσ ξα πςιεν σοοβύεξιρ, πςιοσταξαχμιχαετσρ δο πεςεδαώι σοοβύεξιρ δςυηοκ πςοηςαννοκ. ποσμε ολοξώαξιρ πςιενα ότα πςοηςαννα πςοδομφαετ χωπομξρτψσρ. πεςχοε σμοχο χ βυζεςε πςιενα, λαλ ι χ οσταμψξωθ ναλςολοναξδαθ ότοηο τιπα, σοδες- φιτ λομιώεστχο πςιξρτωθ σμοχ. ζοςνατ ναλςολοναξδω: .RσVDW αRεα,χUF,WσNτ ηδε AREA - Aδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ 5 σμοχ; BUF - αδςεσ βυζεςα δμρ πςιενα δαξξωθ; WCNT - δμιξα βυζεςα χ σμοχαθ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 26 ! 0 ! !--------!--------! ! ϊαςεϊεςχιςοχαξο ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! 0 ! !-----------------! - 166 - 7.7.3. ναλςολοναξδω .SDατ/.SDατσ/.SDατW σιστενξωε ναλςολοναξδω τιπα .SDατ πςινεξρΰτσρ χ σοώε- ταξιι σ ναλςολοναξδανι .RσVD/.RσVDσ/.RσVDW δμρ οσυύεστχμε- ξιρ πεςεδαώι σοοβύεξικ. ότι ναλςολοναξδω χωπομξρΰτσρ αξαμο- ηιώξο ναλςολοναξδαν τιπα .WRIτε, ξο πεςεδαώα πςοισθοδιτ ξε ξα πεςεζιςικξοε υστςοκστχο, α χ σοοτχετστχυΰύυΰ πςοηςαννυ, ςαβοταΰύυΰ χ δςυηον ςαϊδεμε ι σοδεςφαύυΰ ναλςολοναξδυ τιπα .RCVD. πςινεώαξιε. δμρ ναλςολοναξδ τιπα .SDατ δεκστχιτεμψξω χσε σοημαϋεξιρ ι ϊανεώαξιρ, λασαΰύιεσρ ναλςολοναξδ τιπα .RσVD. οϋιβλι οδιξαλοχω δμρ χσεθ τςεθ ςεφινοχ: λοδ πορσξεξιε 0 οτσυτστχυετ δςυηοε ϊαδαξιε. 7.7.3.1. ναλςολοναξδα .SDατ χωπομξρετ πεςεδαώυ υλαϊαξξοηο λομιώεστχα σμοχ δςυηονυ ϊαδαξιΰ. υπςαχμεξιε πεςεδαετσρ πςοηςαννε πομψϊοχατεμρ σςαϊυ ποσμε τοηο, λαλ ϊαπςοσ ποσταχμεξ χ οώεςεδψ. ζοςνατ ναλςολοναξδω: .SDατ αRεα,χUF,WσNτ ηδε AREA - Aδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ 5 σμοχ; BUF - αδςεσ βυζεςα δμρ πεςεδαώι δαξξωθ; WCNT - δμιξα βυζεςα χ σμοχαθ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 25 ! 0 ! !--------!--------! ! ξε ισπομψϊυετσρ ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! 1 ! !-----------------! - 167 - 7.7.3.2. ναλςολοναξδα .SDατσ χωπομξρετ πεςεδαώυ υλαϊαξξοηο λομιώεστχα σμοχ. υπςαχ- μεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊοχατεμρ ξενεδμεξξο ποσμε τοηο, λαλ ϊαπςοσ ποσταχμεξ χ οώεςεδψ. χωπομξεξιε πςοηςαννω πομψϊοχατεμρ πςοδομφαετσρ δο ολοξώαξιρ πεςεδαώι, ϊατεν υπςαχμεξιε πεςεδαετσρ ποδπςοηςαννε ϊαχεςϋεξιρ, α πο ιξστ- ςυλγιι RTS PC χ ποδπςοηςαννε ϊαχεςϋεξιρ υπςαχμεξιε πεςε- δαετσρ πςεςχαξξοκ πςοηςαννε πομψϊοχατεμρ. ζοςνατ ναλςολοναξδω: .SDατσ ARεα,χUF,WσNτ,σRτN ηδε AREA - Aδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ 5 σμοχ; BUF - αδςεσ βυζεςα δμρ πεςεδαώι δαξξωθ; WCNT - δμιξα βυζεςα χ σμοχαθ; CRTN - αδςεσ ποδπςοηςαννω ϊαχεςϋεξιρ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 25 ! 0 ! !--------!--------! ! ξε ισπομψϊυετσρ ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! CRTN ! !-----------------! 7.7.3.3. ναλςολοναξδα .SDατW χωπομξρετ πεςεδαώυ υλαϊαξξοηο λομιώεστχα σμοχ δςυηονυ ϊαδαξιΰ. υπςαχμεξιε χοϊχςαύαετσρ χ πςοηςαννυ πομψϊοχατεμρ ποσμε ϊαχεςϋεξιρ πεςεδαώι. ζοςνατ ναλςολοναξδω: .SDατW ARεα,χUF,WσNτ ηδε AREA - Aδςεσ ταβμιγω αςηυνεξτοχ εντ, σοστορύεκ ιϊ 5 σμοχ; BUF - αδςεσ βυζεςα δμρ πεςεδαώι δαξξωθ; - 168 - WCNT - δμιξα βυζεςα χ σμοχαθ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 25 ! 0 ! !--------!--------! ! ξε ισπομψϊυετσρ ! !-----------------! ! BUF ! !-----------------! ! WCNT ! !-----------------! ! 0 ! !-----------------! χ πςιχεδεξξον πςινεςε ζοξοχαρ πςοηςαννα ποσωμαετ σοοβ- ύεξιε χ οπεςατιχξυΰ πςοηςαννυ ποσςεδστχον ναλςολοναξδ .SDAT ι .SDATW. πςινες. ; πςιξιναΰύαρ πςοηςαννα: .MCALL .RCVD,.MWAIT,.EXIT,.RCVDC,.PRINT ST: MOV #AREA,R5 .RCVD R5,#BUFF,#20. ;πςιξρτψ σοοβύεξιε BCS NRC .MWAIT .PRINT #BUFF+2 ;πεώατψ πςιξρτοηο ;τελστα .RCVDC R5,#BUFF1,#20.,#PROG1 ;πςιξρτψ ;χτοςοε σοοβύεξιε BCS NRCC ;ι χχεστι π/π ϊαχεςϋεξιρ .νWAIT ;οφιδατψ πςιενα .PRINT #MSG4 .EXIT PROG1: .PRINT #BUFF1+2 ;π/π ϊαχεςϋεξιρ, πεώατψ RTS PC ;πςιξρτοηο σοοβύεξιρ NRC: .PRINT #NORC .EXIT NRCC: .PRINT #NORCC .EXIT NORC: .ASCIZ /ξετ χτοςοηο ϊαδαξιρ/ NORCC: .ASCIZ /οϋιβλα .RCVDC/ .EVEN BUFF: .WORD 0 ;βυζες δμρ .BLKW 20. ;πεςχοηο σοοβύεξιρ BUFF1: .WORD 0 ;δμρ χτοςοηο .BLKW 20. MSG4: .ASCIZ /πεςεδαώα ολοξώεξα/ .EVEN AREA: .BLKW 10 .END ST ; πεςεδαΰύαρ πςοηςαννα: .MCALL .SDAT,.RCVD,.MWAIT,.SDATC,.PRINT,.EXIT ST: MOV #AREA,R0 .SDAT R0,#MSG,#COUNT ;πεςεδατψ σοοβύεξιε - 169 - BCS NSD .SDATC R5,#MSG1,#COUNT1,#PROG ;πεςεδατψ BCS NSD1 ;χτοςοε σοβύεξιε .PRINT #MSG3 .EXIT PROG: .PRINT #MSG2 ;π/π ϊαχεςϋεξιρ, πεώατψ RTS PC ;σοοβύεξιρ NSD: .PRINT #NOSD .EXIT NSD1: .PRINT #NOSD1 .EXIT MSG: .ASCIZ /σοοβύεξιε/ ;τελστ πεςχοηο σοοβύεξιρ COUNT = .- MSG+1/2 .EVEN MSG1: .ASCIZ /εύε οδξο σοοβύεξιε/ COUNT1 = .- MSG1+1/2 .EVEN MSG2: .ASCIZ /πεςεδαώα ολοξώεξα/ MSG3: .ASCIZ /ιδετ πεςεδαώα σοοβύεξιρ/ NOSD: .ASCIZ /ξετ δςυηοηο ϊαδαξιρ/ NOSD1: .ASCIZ /οϋιβλα .SDATC/ .EVEN AREA: .BLKW 10 .END ST 7.8. ςαβοτα σ δοπομξιτεμψξωνι τεςνιξαμανι (RM, SJ, FB, XM) πςιχοδιτσρ οπισαξιε νξοηοτεςνιξαμψξωθ χοϊνοφξοστεκ RM/SJ/FB/XM-νοξιτοςοχ, ιξζοςναγιρ πο τεθξιώεσλιν σςεδστχαν, στςυλτυςω δαξξωθ ι σοοτχετστχυΰύιε σιστενξωε ναλςολοναξδω δμρ υπςαχμεξιρ δοπομξιτεμψξωνι τεςνιξαμανι ιϊ οδξοηο ϊαδα- ξιρ. οπισωχαΰτσρ ταλφε τιπιώξωε σιτυαγιι, χ λοτοςωθ χοϊνοφ- ξο ισπομψϊοχαξιε τεςνιξαμοχ βεϊ οβςαύεξιρ λ νξοηοτεςνιξαμψ- ξοκ ποδδεςφλε. 7.8.1. KOMπOHEHTω MHOηOTEPMιHAμψHOκ CιCTEMω B PAζOC ϊAμOφEHA BOϊMOφHOCTψ MHOηOTEPMιHAμψHOκ πOδδEPφKι, KOTOPAρ MOφET βωTψ BωβPAHA BO BPEMρ ηEHEPAγιι CιCTEMω ι δOCTυπξA δμρ RM SJ, FB ι XM MOHιTOPOB. πO CυύECTBυ MHOηOTEPMιHAμψHAρ πOδδEPφKA πOϊBOμρET BωπOμHρEMOκ πPOηPAMME υπPABμρTψ OδHιM ιμι βOμEE TEPMιHAμAMι. πOδδEPφKA HECKOμψKιX TEPMιHAμOB OCυύECTBμρETCρ C πOMOύψΰ CμEδυΰύιX KOMπOHEHT: - 170 - - .MTTEMT.MAC, KOTOPAρ OβPAβATωBAET MHOηOTEPMιHAμψHωE ναλςολοναξδω; - .MTTINT.MAC, KOTOPAρ COδEPφιT πPOηPAMMω οβςαβοτλι πPEPωBAHικ ι πPOηPAMMω OπPOCA TEPMιHAμOB; - .SYSTBL.MAC, KOTOPAρ OπPEδEμρET υπPABμρΰύιE βμOKι TEPMιHAμOB. MTTEMT, MTTINT ι SYSTBL ACCEMβμιPυΰTCρ ι KOMπOHυΰTCρ BMECTE KAK ώACTψ PEϊιδEHTHOηO MOHιTOPA δμρ MHOηOTEPMιHAμψHOκ CιCTEMω. B MHOηOTEPMιHAμψHOκ CιCTEME ιMEΰTCρ TαλφE HEKOTOPωE BAφHωE ιHζOPMAγιOHHωE CTPυKTυPω : - υπPABμρΰύιE βμOKι TEPMιHAμOB, HAϊωBAEMωE TCB (OδιH HA TEPMιHAμ), KOTOPωE COδEPφAT ιHζOPMAγιΰ O TEPMιHAμE ι ϊAδAξιι; TCB TAKφE COδEPφιT BXOδHOκ ι BωXOδHOκ KOμψγEBωE βυζEPω δμρ TEPMιHAμA; - μOηιώECKιE HOMEPA, HAϊωBAEMωE LUN, ώEPEϊ KOTOPωE νοξιτος OβPAύAETCρ K TEPMιHAμAM; - CμOBA ACιHXPOHHOηO CTATυCA COCTOρHιρ TEPMιHAμOB, HAϊωBAEMωE CμOBA AST (OδHO HA LUN), B KOTOPωX νοξιτος υCTAHABμιBAET ζμAηι COβωTικ, ώTOβω OTPAϊιTψ TEKυύEE COCTOρHιE KAφδOηO TEPMιHAμA. όTι CμOBA AST BXOδρT B CπιCOK CπEγιAμψHωX BOϊMOφHOCTEκ, KOTOPωE Bωβιςαΰτσρ πPι ηEHEPAγιι CιCTEMω. 7.8.2. τεθξιώεσλιε σςεδστχα PAζOC MOφET πOδδEPφιBATψ πOCμEδOBATEμψHωE ιHTEPζEκCω KAK TιπA αδσ-α, ξαϊωχαενωε DL (χλμΰώαρ DL ι DLV ιμι COBMECTιMωκ όKBιBAμEHT), τAK ι TιπA νπδ-α, ξαϊωχαενωε DZ (BKμΰώAρ DZ ι DZV). ιHTEPζEκC AHAμOηιώEH KOHTPOμμEPυ υCTPOκCTBA; OH HAXOδιTCρ MEφδυ όχν ι πOCμEδOBATEμψHOκ μιHιEκ. δPυηOκ KOHEγ μιHιι MOφET βωTψ CBρϊAH C TEPMιHAμOM, υCTPOκCTBOM CBρϊι, πEPιζEPικHωM υCTPOκCTBOM ιμι EύE OδHοκ όχν. ιHTEPζEκC DL CBρϊωBAET όBM C EδιHCTBEHHOκ πOCμEδOBATEμψHOκ μιHιEκ. KAφδωκ ιHTEPζEκC DL ιMEET CBOι COβCTBEHHωE AδPECA PEηιCTPOB υπPABμEHιρ ι COCTOρHιρ (CSR) ι AδPEC BEKTOPA πPEPωBAHιρ. MOφHO ιMETψ δO BOCψMι DL ιHTEPζEκCOB B CιCTEME, BKμΰώAρ KOHCOμψHωκ ιHTEPζEκC. T.K. KAφδωκ DL ιHTEPζEκC ρBμρETCρ OTδEμψHωM KOHTPOμμEPOM, TO PEAμψHωκ ζιϊιώECKικ HOMEP OTCυTCTBυET; 0 - HAϊHAώAETCρ δμρ OπPEδEμEHHOCTι. CιCTEMA χσεηδα ιMEET AππAPATHωκ KOHCOμψHωκ ιHTEPζEκC, KOTOPωκ ιCπOμψϊυETCρ AππAPATHωM ϊAηPυϊώιKOM πPι ϊAηPυϊKE - 171 - CιCTEMω, ι COOβύEHιE Oβ όTOM πOMEύAETCρ HA KOHCOμψHωκ TEPMιHAμ. AππAPATHωκ ϊAηPυϊώιK TPEβυET, ώTOβω όTOT TEPMιHAμ βωμ CBρϊAH πO CTAHδAPTHωM KOHCOμψHωM AδPECAM δμρ διAηHOCTιώECKιX γEμEκ ι δμρ CBρϊι σ OπEPATOPον πPι ϊAηPυϊKE. AππAPATHωκ ιHTEPζEκC KOHCOμι δομφEH βωTψ μOKAμψHωM DL. EηO BEKTOPA πPEPωBAHικ PAϊMEύAΰTCρ B 60 ι 64 ρώEκKAX HιφHEκ πAMρTι, A EηO LUN BCEηδA PABEH 0. ιHτEPζEκC DZ - MυμψTιπμEKCος ; OH CBρϊωBAET HECKOμψKO πOCμEδOBATEμψHωX μιHικ ώEPEϊ EδιHCTBEHHυΰ πAPυ CSR ι AδPECA BEKTOPOB. ιHTEPζEκC DZ CBρϊωBAET όBM C BOCEMψΰ μιHιρMι, KOTOPωE ιMEΰT ζιϊιώECKιE HOMEPA OT 0 δO 7. DZV πOδOβEH DZ, HO OH CBρϊωBAET CιCTEMυ TOμψKO C ώETωPψMρ μιHιρMι, KOTOPωE ιMEΰT ζιϊιώECKιE HOMEPA OT 0 δO 3. B όTOM CμυώAE MOφHO ισπομψϊο- χατψ δBα DZ ιμι ώETωPε DZV δμρ 16 δOπOμHιTEμψHωX μιHικ. HA ςισ. 4 πOKAϊAHω DL ι DZ ιHTEPζEκCω ι ιX ζιϊιώECKιE ι μOηιώECKιE HOMEPA. -------------------------------------------------------- ! σιστενα ! -------------------------------------------------------- ! ! ! ----------- ------- ------------- ! DL ! ! DL ! ! DZ ! ! λοξσομψ ! ------- ------------- ----------- ! ! ! ! --------------!-------------- ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ζιϊιώ.: 0 0 0 1 2 3 4 5 6 7 μοηιώ.: 0 1 2 3 4 5 6 7 8 9 ςισ. 4 πPι ηEHEPAγιι CιCTEMω OπPEδEμρεTCρ, σKOμψKO DL ι DZ ιHTEPζEκCOB ιMEET CιCTEMA. TAKφE υKAϊωBAETCρ, CKOμψKO ζιϊιώECKιX EδιHιγ δEκCTBιTEμψHO CBρϊAHO C TEPMιHAμAMι B CιCTEME. δμρ όTιX TEPMιHAμOB HEOβXOδιMO υKAϊATψ, KAKιE ιϊ ξιθ ρBμρΰTCρ μOKAμψHωMι, α KAKιE διCTAHγιOHHωMι μολαμψξωνι μιHιρMι. B OTμιώιE OT ζιϊιώECKιX HOMEPOB, λοτοςωε HAώιHαΰτσρ C 0 δμρ λαφδοηο ιξτεςζεκσα, μOηιώECKιE HOMEPA, ξεϊαχισινο οτ ιξτεςζεκσα, HAώιHAΰTCρ C 0, ι πPOδOμφAΰTCρ, πOKA BCE TEPMιHAμω βυδυT πEPECώιTAHω. χο χςενρ ηεξεςαγιι ζιϊιώECKιν HOMEPAν ιHTEPζEκCOB HAϊHAώAΰTσρ πPOηPAMMHωε μOηιώECKιε HOMEPA B CμEδυΰύEM πOPρδKE: - μOKAμψHωE DL μιHιι (AππAPATHωκ KOHCOμψHωκ ιHTEPζEκC BCEηδA ECTψ LUN 0); - υδAμEHξωE DL μιHιι ; - μOKAμψHωE DZ μιHιι ; - υδAμEHHωE DZ μιHιι. - 172 - πOPρδOK, B KOTOPOM πPιCBAιBAΰτσρ ζιϊιώECKιM μιHιρM μOηιώECKιE HOMEPA COOTBETCTBυET πOPρδKυ, B KOTOPOM ηEHEPιPυΰTCρ υπPABμρΰύιE βμOKι TEPMιHAμOB (TCB). δμρ KAφδOκ μιHιι, KOTOPυΰ υλαϊαμι χ διAμOηε, ηEHEPιPυETCρ OδιH TCB. βμOKι TCB PACπOμAηAΰTCρ B RMON B TOM πOPρδKE, B KOTOPOM OπPEδEμρμιCψ μιHιι. δμρ μΰβOκ HEιCπOμψϊυEMOκ μιHιι TCB OTCυTCTBυET. πPι ϊAηPυϊKE MHOηOTEPMιHAμψHOκ CιCTEMω πPOBEPρETσρ HAμιώιE KAφδOηO ιHTEPζEκCA, δμρ KOTOPOηO CυύECTBυET TCB. ECμι ιHTEPζEκC HE CυύECTBυET, μOηιώECKικ HOMEP, CBρϊAHHωκ C όTιM ιHTEPζEκCOM, OTMEώAETCρ KAK HECυύECTBυΰύικ, ι μΰβAρ πOπωTKA πOμυώιTψ TAKOκ LUN πPιBOδιT K OϋιβKE. MECTO, ϊAHιMAEMOE TCB HECυύECTBυΰύEηO LUN, HE βυδετ ισπομψϊοχαξο. δμρ πPOBEPKι πPABιμψHOCTι ιHζOPMAγιι, ϊAδAHHOκ πPι ηEHEPAγιι CιCTEMω, MOφHO ιCπOμψϊOBATψ KOMAHδυ MOHιTOPA SHOW TERMINALS. ϊAMETιM, ώTO CιCTEMA HE πωTAETCρ OπPEδEμιTψ, CBρϊAH ιμι HET TEPMιHAμ ιμι MOδEM C μιHιEκ ιHTEPζEκCA; πPEδπOμαηAETCρ, ώTO CBρϊψ CυύECTBυET. δμρ HECBρϊAHHOκ μιHιι BXOδHωE CιMBOμω HE MOηυT βωTψ BBEδEHω; BωXOδHωE - TEPρΰTCρ. 7.8.3. KOHCOμψHωκ TEPMιHAμ Cιστενα ποϊχομρετ πεςελμΰώεξιε KOHCOμψHOηO TEPMιHAμA. δαμεε βυδετ OπPEδEμEHO ϊHAώEHιE TEPMιHOB: AππAPATHωκ KOHCOμψHωκ ιHTEPζEκC, KOHCOμψ ϊAηPυϊKι, ζOHOBAρ KOHCOμψ ι ώACTHAρ KOHCOμψ. AππAPATHωκ KOHCOμψHωκ ιHTEPζEκC, KAK OπιCAHO Bωϋε, πPEδCTABμρET COβOκ ιHTEPζEκC TEPMιHAμA, PAϊMEύEHHωκ B BEKTOPAX 60 ι 64, PEηιCTPω υπPABμEHιρ ι COCTOρHιρ KOTOPωX HAώιHAΰTCρ C AδPECA 177560 CTPAHιγω BBOδA/BωBOδA. όTO πOCμEδOBATEμψHωκ (ιμι παςαμμεμψξωκ) μιHEκHωκ ιHTEPζEκC, KOTOPωκ ιCπOμψϊυETCρ AππAPATHωM ϊAηPυϊώιKOM (OβωώHO, ώTOβω ϊAηPυϊιTψ CιCTEMυ, HEOβXOδιMO ιMETψ TEPMιHAμ, CBρϊAHHωκ C AππAPATHωM KOHCOμψHωM ιHTEPζEκCOM). πOώTι BCEηδA - όTO TEPMιHAμ, HA KOTOPOM πςεδσταχμρετσρ σιστενα. σμεδυετ πον- ξιτψ, ώTO AππAPATHωκ KOHCOμψHωκ ιHTEPζEκC BCEηδA ιMEET LUN 0. KOHCOμψ ϊAηPυϊKι - όTO TEPMιHAμ, HA KOTOPOM PAζOC πEώATAET CBOE HAώAμψHOE COOβύEHιE. όTO πOώTι BCEηδA TOT φE TEPMιHAμ, KOTOPωκ CBρϊAH C AππAPATHωM KOHCOμψHωM ιHTEPζEκCOM. B CιCTEME βEϊ MHOηOTEPMιHAμψHOκ πOδδEPφKι CSR δμρ όTOηO TEPMιHAμα - 177560 COδEPφιTCρ B TTKS. (TTKS PAϊMEύAETCρ χ ζιKCιPOBAHHOκ ρώεκλε 304 OT HAώAμA PEϊιδEHTHOηO MOHιTOPA). B MHOηOTEPMιHAμψHOκ CιCTEME CSR PAϊMEύAETCρ χ ρώεκλε T.CSR B πEPBOM TCB B PEϊιδEHTHOM MOHιTOPE. ζOHOBAρ KOHCOμψ, HAϊωBAEMAρ TAKφE CιCTEMHOκ KOHCOμψΰ, πEPBOHAώAμψHO πPEδCTABμρET COβOκ TO φE, ώTO ι KOHCOμψ ϊAηPυϊKι. OHA OCTAETCρ B TOM φE KAώECTBE δO TEX πOP, πOKA - 173 - HE ιCπOμψϊυETσρ λοναξδα SET TT: CONSOL δμρ πEPEHAϊHAώEHιρ ζOHOBOκ KOHCOμι. όTO TEPMιHAμ, HA KOTOPOM HAβιPAΰτσρ KOMAHδω MOHιTOPα ι οσυύεστχμρετσρ CBρϊψ C ζOHOBωM ϊAδAHιEM. δμρ BωπOμHEHιρ OπEPATιBHOηO ϊAδAHιρ ιμι CιCTEMHωX ϊAδAHικ CιCTEMHAρ KOHCOμψ MOφET βωTψ PAϊδEμEHA. B όTOM CμυώAE CμEδυET ιCπOμψϊOBATψ CTRL/B δμρ CBρϊι C ζOHOBωM ϊAδAHιEM, CTRL/F - δμρ OπEPATιBHOηO ϊAδAHιρ ι CTRL/X δμρ CιCTEMHωX ϊAδAHικ. ώTOβω πPEPBATψ ϊAδAHιE C PAϊδEμEHHOκ KOHCOμι, CμEδυET HAβPATψ δχαφδω . CιCTEMHωE MAKPOKOMAHδω .TTYIN, .TTYOUT, .CSIGEN, .CSISPC, .GTLIN ι .PRINT ςαβοταΰτ TOμψKO C ζOHOBOκ KοξCOμι δμρ ζOHOBOηO ϊAδAHιρ, A TAKφE δμρ μΰβOηO OπEPATιBHOηO ιμι CιCTEMHOηO ϊAδAHικ, ϊAηPυφAEMωX C όTOηO TEPMιHAμA. πςινεώαξιε. μΰβOκ HOMEP, υKAϊAHHωκ C υCTPOκCTBOM TT, βυδET ιηHOPιPOBATψCρ. πOόTOMυ OβPAύEHιρ K TT:, TT0:, TT1: ι T.δ. ρBμρΰTCρ όKBιBAμEHTHωMι ι BOCπPιHιMAΰTCρ πO υMOμώAHιΰ KAK OβPAύEHιE K ζOHOBOκ KOHCOμι. B MHOηOTEPMιHAμψHOκ CιCTEME MOφHO HAϊHAώιTψ ζOHOBυΰ KOHCOμψ HA δPυηOκ TEPMιHAμ, ιCπOμψϊυρ λοναξδυ νοξιτοςα SET TT: CONSOL. υKAϊωBAρ δPυηOκ μOηιώECKικ HOMEP B λοναξδε SET, MOφHO HAϊHAώιTψ ζOHOBυΰ KOHCOμψ HA μΰβOκ δPυηOκ TEPMιHAμ B CιCTEME, ιCKμΰώAρ ώACTHυΰ KOHσομψ. ώαστξαρ λοξσομψ - ότο μολαμψξωκ τεςνιξαμ, ισπομψϊυενωκ οδξιν οπεςατιχξων ιμι σιστενξων ϊαδαξιεν. ξαϊξαώιτψ σοβστ- χεξξυΰ ώαστξυΰ λοξσομψ νοφξο, ισπομψϊυρ FRUN/TERMINAL:N ιμι SRUN/TERMINAL:N. ξιλαλοε δςυηοε ϊAδAHιE HE MOφET ιCπOμψϊOBATψ ώACTHυΰ KOHCOμψ COBMECTHO C πEPBOHAώAμψHωM ϊAδAHιEM. ώACTHAρ KOHCOμψ ϊAδAHιρ πPEδCTABμρET COβOκ TEPMιHAμ, C KOTOPων ςαβοταΰτ MAKPOKOMAHδω .TTYIN, .TTYOUT, .CSIGEN, .CSISPC, .GTLIN ι .PRINT, ϊAπPOCω TιπA .READ ιμι .WRITE, ιMEΰύEE δOCTυπ K όTOκ ώACTHOκ KOHCOμι. ECμι ϊAδAHιE ιMEET CBOΰ COβCTBEHHυΰ ώACTHυΰ KOHCOμψ, HEμψϊρ OβPAύATψCρ K ϊAδAHιΰ ώEPEϊ ζOHOBυΰ KOHCOμψ. TAKιM OβPAϊOM, HEμψϊρ ιCπOμψϊOBATψ, ξαπςινες, C ζOHOBOκ KOHCOμι δμρ BϊAιMOδEκCTBιρ C OπEPATιBHωM ϊAδAHιEM, KOTOPOE ιMEET CBOΰ COβCTBEHHυΰ ώACTHυΰ KOHCOμψ. ξεμψϊρ ξαϊξαώιτψ ώACTHυΰ KOHCOμψ HA δPυηOκ TEPMιHAμ, ιCπOμψϊυρ λοναξδυ νοξιτοςα SET TT: CONSOL; TAKαρ λοναξδα CπPABEδμιBα μιϋψ δμρ ζOHOBOκ KOHCOμι. όTO πPOιCXOδιT ιϊ-ϊA TOηO, ώτο ιξτεςπςετατος λοναξδ νοξιτοςα χωπομξρετσρ KAK ζOHOBOE ϊAδAHιE, A OHO MOφET ϊAπυσKATψCρ TOμψKO C ζOHOBOκ KOHCOμι. ζOHOBAρ KOHCOμψ ρBμρETCρ ώACTHOκ, ECμι HET ϊAδAHικ, PAϊδEμρΰύιX EE. PAϊδEμρεναρ KOHCOμψ βυδετ ρχμρτψσρ ζOHOBOκ KOHCOμψΰ πOKA χωπομξρΰτσρ CμEδυΰύιE υCμOBιρ: - B FB/XM-νοξιτοςαθ βEϊ πOδδEPφKι CιCTEMHωθ ϊAδAHικ OπEPATιBHOE ϊAδAHιE BωπOμHρETCρ C ώACTHOκ KOHCOμι; - 174 - - B FB/θM-νοξιτοςαθ C πOδδEPφKOκ σιστενξωθ ϊAδAHικ BCE 6 CιCTEMHωX ϊAδAHικ ι OπEPATιBHOE ϊAδAHιE BωπOμHρΰTCρ ι KAφδOE ιMEET CBOΰ ώACTHυΰ KOHCOμψ. σμεδυετ πOMHιTψ, ώTO ώACTHAρ KOHCOμψ HιKOηδA HE PAϊδEμρETCρ. πPOCTO KOHCOμψ - ότο TEPMιH, KOTOPωκ OTHOCιTCρ K TEPMιHAμυ, ιCπOμψϊυEMOMυ KAK ζOHOBAρ PAϊδEμρEMAρ KOHCOμψ, ιμι KAK ώACTHAρ KOHCOμψ OπEPATιBHOηO μιβο CιCTEMHOηO ϊAδAHικ. 7.8.4. ιCπOμψϊOBAHιE δοπομξιτεμψξωθ TEPMιHAμOB βεϊ νξοηοτεςνιξαμψξοκ ποδδεςφλι CυύECTBυET HECKOμψKO CιTυAγικ, B KOTOPωX ιCπOμψϊOBAHιE βOμEE OδHOηO TEPMιHAμA MOφET βωTψ δοπυστινο βεϊ πςινεξεξιρ CπEγιAμψHωX MαKPOKOMAHδ. δαμεε OπιCωBAΰTσρ HEKOTOPωE ιϊ όTιX CιTυAγικ ι πOKAϊωBAεTσρ, KAK ισπομψϊοχατψ TEPMιHAμω βEϊ MHOηOTEPMιHAμψHOκ πOδδEPφKι. 7.8.4.1. KOHCOμψHωκ χιδεο-TEPMιHAμ ι TEPMιHAμ-φECTKAρ KOπιρ TιπιώHAρ CιTυAγιρ BOϊHιKAET TOηδA, KOηδA φEμATEμψHO ιCπOμψϊOBATψ BιδEO-TEPMιHAμ KAK ζOHOBωκ KOHCOμψHωκ TEPMιHAμ ι TEPMιHAμ-φECTKυΰ KOπιΰ KAK πOCTPOώHOE υCTPOκCTBO. πςεδσ- ταχμρενωε ξιφε πPOγEδυPω, ιCπOμψϊυΰTCρ B ϊABιCιMOCTι OT TOηO, KAKOκ TEPMιHAμ ρBμρETCρ KOHCOμψΰ ϊAηPυϊKι - BιδEO-TEPMιHAμ ιμι TEPMιHAμφECTKAρ KOπιρ. 1) KOHCOμψΰ ϊAηPυϊKι ρBμρETCρ χιδεο-τεςνιξαμ ECμι BιδEO-TEPMιHAμ ρBμρETCρ KOHCOμψΰ ϊAηPυϊKι, το TEPMιHAμ - φECTKυΰ KOπιΰ πPοCTO νοφξο ιCπOμψϊOBATψ KAK πOCTPOώHOE πEώATAΰύEE υCTPOκCTBO, υσταξοχιχ ξοχοε ϊξαώεξιε αδςεσοχ χελτοςα ι CSR δμρ τεςνιξαμα-φεστλαρ λοπιρ χ ζακμε LS-δςακχεςα λοναξδανι SET LS:VECTOR=N ι SET LS:CSR=N, ηδε N - ώετξοε χοσψνεςιώξοε ώισμο (δμρ CSR - ξε νεξεε 160000, α δμρ VECTOR - ξε βομεε 500). ϊατεν σμεδυετ πεςεϊαηςυϊιτψ δςακχες LS ι, HAϊHAώιχ LP->LS (λοναξδοκ νοξιτοςα ASSIGN LS LP) ξαώατψ ιCπOμψϊOBATψ TEPMιHAμ-φECTKυΰ KOπιΰ KAK πEώATAΰύEE υCTPOκCTBO. όTO πPOCTEκϋEE ιϊ MHOηOTEPMιHAμψHωX πPιMEHEHικ, πOCKOμψKυ OHO HE BKμΰώAET ηEHEPAγιι CιCTEMω. όTA πPOγEδυPA όζζEKTιBHA τομψλο χ τον σμυώαε, ECμι TEPMιHAμ-φεστλαρ KOπιρ HAXOδιTCρ HA μOKAμψHOM DL-ιHTEPζEκCE. - 175 - B Cιμυ PρδA OβCTOρTEμψCTB MOφET βωTψ φEμATEμψHO, ώTOβω TEPMιHAμ-φεστλαρ KOπιρ CTAμ KOHCOμψHωM TEPMιHAμOM. ώTOβω όTO CδEμATψ, σμεδυετ ιCπOμψϊοχατψ πPOγEδυPυ, OπιCAHHυΰ B σμεδυΰύεν ποδπυξλτε; 2) KOHCOμψΰ ϊAηPυϊKι ρBμρETCρ τεςνιξαμ-φεστλαρ λοπιρ KAK CδEμAτψ TEPMιHAμ-φεστλυΰ KOπιΰ υCTPOκCTBOM πεώατι B TOM CμυώAE, KOηδA OH ρBμρETCρ KOHCOμψΰ ϊAηPυϊKι, ϊABιCιT OT TOηO, HA KAKOM ιHTEPζEκCE DL ιμι DZ HAXOδιTCρ BιδEO-TEPMιHAμ. ECμι BιδEO-TEPMιHAμ HAXOδιTCρ HA DL-ιHTEPζEκCE, CυύECTBυΰT ώετωςε BOϊMOφHωX METOδA, KOTOPωE πOϊBOμρΰT ιCπOμψϊOBATψ TEPMιHAμ-φECTKυΰ KOπιΰ KAK πEώATAΰύEE υCTPOκCTBO. πPOγEδυPα 1. σμεδυετ BωπOμHιTψ ηEHEPAγιΰ CιCTEMω (HE BKμΰώAρ MHOηOTEPMιHAμψHυΰ πOδδEPφKυ), ώTOβω CδEμATψ BιδEO-TEPMιHAμ KOHCOμψΰ ϊAηPυϊKι. ϊAMETιM, ώTO πPι όTOM TEPMιHAμ-φεστλαρ KOπιρ BCE EύE OCTAETCρ ξα AππAPATHOM KOHCOμψHOM ιHTEPζEκCE. OδHAKO, PAζOC πPEδCTABιTCρ πPι ϊAηPυϊKE HA BιδEO-TEPMιHAμ. KOηδA CιCTEMA ϊAηPυφEHA, MOφξο ιCπOμψϊOBATψ LS-δPAκBEP, ώTOβω HAϊHAώιTψ TEPMιHAμφECTKυΰ KOπιΰ B KAώECTBE πEώATAΰύEηO υCTPOκCTBA. πPOγEδυPα 2. ιϊMEHιTψ KOHζιηυPAγιΰ CιCTEMω TAK, ώTO BιδEO-TEPMιHAμ σταξετ KOHCOμψΰ ϊAηPυϊKι, A TEPMιHAμ-φECTKAρ KOπιρ βυδετ HAXOδιTψCρ HA DLιHTEPζEκCE. ϊATEM σμεδυετ ιCπOμψϊOBATψ πPOγEδυPυ, OπιCAHHυΰ χωϋε δμρ σμυώαρ, λοηδα λοξσομψΰ ϊαηςυϊλι ρχμρετσρ χιδεοτεςνιξαμ. πPOγEδυPα 3. MOφξο ιCπOμψϊOBATψ CπEγιAμψHυΰ πPOηPAMMυ, ώTOβω πEPEKμΰώιTψ ζOHOBυΰ KOHCOμψ HA BιδEO-TEPMιHAμ. πPOγEδυPA 3 AHAμOηιώHA πPOγEδυPE 1. MOφξο ιCπOμψϊOBATψ LS-δPAκBEP, ώTOβω HAϊHAώιTψ TEPMιHAμ-φECTKυΰ KOπιΰ KAK πEώATAΰύEE υCTPOκCTBO. σμεδυΰύικ ποδπυξλτ πOKAϊωBAET πPOηPAMMυ, KOTOPυΰ ξαδο ϊAπυCτιτψ, ώTOβω ςεαμιϊοχατψ πPOγEδυPυ 3. πPOγEδυPA 4 AHAμOηιώHA πPOγEδυPE 3 ϊA ιCKμΰώEHιEM TOηO, ώTO ιϊMEHρETσρ OβPAϊ MOHιTOPA HA υCTPOκCTBE χξεϋξεκ πAMρTι. όTA πPογEδυPA πOμεϊHA TOμψKO B CιCTEMAX βEϊ MHOηOTEPMιHAμψHOκ πOδδEPφKι. δμρ ότοκ πςογεδυςω ξεοβθοδινο ϊAδATψ πPABιμψHOE ϊHAώEHιE BEKTOPA, CSR, CMEύEHιE δO KAPTω ϊAύιTω AδPECOB ι CAM KOδ ϊαύιτω χελτοςα "υπςαχμρΰύαρ σιστε- να. ςυλοχοδστχο σιστενξοηο πςοηςαννιστα", 2/β/.00109-01 32 01-3. σμεδυΰύικ ξιφε τελστ πςεδσταχμρετ σοβοκ ζςαηνεξτ λοςςελγιι οβςαϊα νοξιτοςα πςοηςαννοκ SIPP. - 176 - !νοδιζιλαγιρ χ νοξιτοςε αδςεσοχ CSR ι χελτοςοχ !CSR = 175620-175626 / VEC = 310-316 .R SIPP *MONITR.SYS ! ινρ ζακμα νοξιτοςα, ! λοτοςωκ νοδιζιγιςυετσρ BASE? ;S SEARCH FOR? 60<σR> START? 5100<σR> END? 5200<σR> FOUND AT NNNNNN ! ξακδεξ NNNNNN, ! σοδεςφαύικ "60" OFFSET? <σR> ! χχεστι NNNNNN BASE OFFSET OLD NEW? NNNNNN 000000 000060 310<σR>!ξοχωκ χελτος OFFSET? 6<σR> BASE OFFSET OLD NEW? NNNNNN 000006 000064 314<σR>!ξοχωκ χελτος !+4 NNNNNN 000010 XXXXXX ^Z<σR> OFFSET? ^Z<σR> BASE? $RMON<σR> !ξακτι $RMON χ λαςτε OFFSET? 340<σR> !ϊαηςυϊλι BASE OFFSET OLD NEW? $RMON 000304 177560 175620<σR> !ξοχ. ϊξαώεξι $RMON 000306 177562 175622<σR> !αδςεσοχ $RMON 000310 177564 175624<σR> !ςεηιστςοχ $RMON 000312 177566 175626<σR> ! $RMON 000314 177777 ^Z<σR> OFFSET? 342<σR> !σνεύεξιε δο λαςτω !ϊαύιτω BASE OFFSET OLD NEW? $RMON 000342 000000 17<σR> !υσταξοχιτψ !ϊαύιτυ $RMON 000344 000000 ^Y *^C ECμι BιδεO-TEPMιHAμ πOδKμΰώEH C πOMOύψΰ DZ-ιξτεςζεκσα, TO Hεοβθοδινο BωπOμHιTψ ηEHEPAγιΰ CιCTEMω σ MHOηOTEPMιHAμψHOκ ποδδεςφλοκ, υλαϊαχ ιHζOPMAγιΰ O KOHζιηυPAγιι CιCTEMω ταλοκ, KAK OHA CυύECTBυET. πςι ϊAηPυϊλε HOBοκ CιCTEMω ξεοβθοδινο υCTAHOBιTψ LS-BEKTOP ι CSR TEPMιHAμυ-φECTKOκ KOπιι, ιCπOμψϊυρ λοναξδυ "SET LS:", ώτο ιϊMEHιT ζAκμ δPAκBEPA HA υCTPOκCTBE χξεϋξεκ πAMρTι. πOCμE όTOηO HEμψϊρ βυδET ιCπOμψϊOBATψ TEPMιHAμ-φECTKυΰ KOπιΰ B μΰβOM MHOηOTEPMιHAμψHOM πPιMEHEHιι. BEKTOP πPEPωBAHιρ ι CSR HEOβXOδιMO MOδιζιγιPOBATψ TOμψKO Oδιξ ςαϊ. πPEφδE ώEM ιCπOμψϊOBATψ LS-δPAκBEP, υCTAHOBιTE SET TT: CONSOL, ώTOβω HAϊHAώιTψ ζOHOBυΰ KOHCOμψ BιδEO-TEPMιHAμυ. πOCKOμψKυ όTA υCTAHOBKA BOϊBPAύAETCρ K CBOEMυ πEPBOHAώAμψHOMυ COCTOρHιΰ πOCμE KAφδOκ ϊAηPυϊKι, ϊAHECιTE - 177 - όTυ KOMAHδυ SET B CBOκ CTAPTOBωκ KOMAHδHωκ ζAκμ. πςινεώαξιε. ξεμψϊρ ιCπOμψϊOBATψ KOMAHδυ SET TT:CONSOL=0 ιμι OβPAύATψCρ K TEPMιHAμυ πO LUN 0, T.K. όTO BωϊOBET CβOκ CιCTEMω. 7.8.4.2. πEPEKμΰώEHιE KOHCOμψHOηO TEPMιHAμA ξιφε σμεδυετ τελστ πPOηPAMMω, KOTOPυΰ MOφξο ιCπOμψϊOBATψ, ώTOβω πEPEKμΰώαTψ KOHCOμψHωκ TEPMιHAμ HA δPυηOκ TEPMιHAμ CιCTEMω βEϊ ιCπOμψϊOBAHιρ CπEγιAμψHωX MHOηOTEPMιHAμψHωX OCOβEHHOCTEκ. δμρ ότοηο ξαδο OTPEδAKTιPοχατψ ιCXOδHωκ ζAκμ δμρ ϊHAώEHικ CSR ι BEKTOPA HOBOκ KOHCOμι, ιCπOμψϊυρ CιMBOμω CSRAD ι VEC, α δμρ πEPEKμΰώEHιρ KOHCOμι MEφδυ δBυMρ TEPMιHAμAMι (TυδA ι OβPATHO) CδEμαTψ δBE KOπιι πPOηPAMMω, πO OδHOκ HA TEPMιHAμ. πPOηPAMMA πEPEKμΰώEHιρ λοξσομι ------------------------------ ;+ ; πςοηςαννα πεςελμΰώεξιρ σιστενξοηο τεςνιξαμα ξα ; δςυηοκ μολαμψξωκ τεςνιξαμ βεϊ νξοηοτεςνιξαμψξοκ ; ποδδεςφλι ;- .MCALL .MTPS,.PRINT,.EXIT CSRAD = 175620 ;** CSR λμαχιατυςω ξοχοκ ;λοξσομι ** VEC = 310 ;χελτος ξοχοκ λοξσομι SYSGEN = 372 ;σνεύεξιε δο σμοχα SYSGEN MTTY$ = 20000 ;βιτ νξοηοτεςνιξαμψξοκ ;ποδδεςφλι χ σμοχε SYSGEN BMASK = 360/<<15.*>>/8.>+1> ;βιτ-νασλα ςαϊςρδοχ χ σμοχε ;ϊαύιτω χελτοςοχ BITMAP = 326+ ;σνεύεξιε δο σμοχα ϊαύιτω ;χελτοςοχ χ RMON PROC3: MOV @#54,R0 ;R0 => RMON BIT #MTTY$,SYSGEN(R0) ;εστψ νξοηοτεςνιξαμψξαρ ;ποδδεςφλα? BNE 2$ ;δα, εστψ .MTPS #340 ;υσταξοχιτψ πςιοςιτετ 7 BISB #BMASK,BITMAP(R0) ;ϊαύιτα χελτοςα ξοχοκ - 178 - ;λοξσομι ADD #304,R0 ;αδςεσ TTKS, σοδεςφαύικ CSR ;λοξσομι MOV #CSR,R1 CLR @(R0) ;ϊαπςετιτψ πςεςωχαξιε οτ ;λμαχιατυςω 1$: MOV (R1)+,(R0)+ TST @R1 BMI 1$ MOV #60,R0 ;χελτος ξαστορύεκ λοξσομι MOV @R1,R1 ;R1 => ξοχωκ χελτος .REPT 4 MOV (R0)+,(R1)+ .ENDR .MTPS #0 ;ςαϊςεϋιτψ πςεςωχαξιρ .EXIT ;λοξεγ πςοηςαννω 2$: .PRINT #NOMT ;πεώατψ σοοβύεξιρ οβ οϋιβλε .EXIT .NLIST BEX NOMT: .ASCII /?νξοηοτεςνιξαμψξωκ ςεφιν,/ .ASCIZ / ισπομψϊυκτε SET TT CONSOL / .EVEN CSR: .WORD CSRAD ;ταβμιγα αδςεσοχ CSR, .WORD CSRAD+2 ;βυζεςοχ δαξξωθ, .WORD CSRAD+4 ;χελτοςα πςεςωχαξιρ ξοχοκ .WORD CSRAD+6 ;λοξσομι .WORD VEC .END PROC3 7.8.4.3. OTδEμψHωκ TEPMιHAμ δμρ KAφδOηO ϊAδAHιρ CηEHEPιPOBAB CιCTEMυ C MHOηOTEPMιHAμψHOκ πOδδEPφKOκ, μEηKO MOφHO HAϊHAώιTψ ώACTHωE TEPMιHAμω δμρ KAφδOηO ιϊ BOCψMι ϊAδAHικ. KOHEώHO, δμρ ότοηο HυφHO ϊAηPυϊιTψ FB/XM-νοξιτος C πOδδEPφKOκ CιCTEMHωθ ϊAδAξικ. KAK OπιCAHO Bωϋε, δμρ όTOηO HAδO πPOCTO ιCπOμψϊOBATψ KOMAHδω FRUN/TERMINAL:N ιμι SRUN/TERMINAL:N πPι ϊAπυCKE OπEPATιBHOηO ιμι CιCTEMHOηO ϊAδAHιρ, HAϊHAώAρ TEM CAMωM TEPMιHAμω δμρ HιX. πςι ότον HET HEOβXOδιMOCTι ιCπOμψϊOBATψ KAKιE-μιβO MHOηOTEPMιHAμψHωE MAKPOKOMAHδω. CμEδυET πOMHιTψ, ώTO KAφδAρ KOHCOμψ ρBμρETCρ δEκCTBιTEμψHO ώACTξOκ: HEμψϊρ HAϊHAώιTψ OδιH TEPMιHAμ δBυM ϊAδAHιρM C πOMOύψΰ KOMAHδ FRUN ιμι SRUN/TERMINAL:N. KAφδOE ϊAδAHιE MOφET ιCπOμψϊOBATψ TOμψKO COβCTBEHHωκ TEPMιHAμ. - 179 - 7.8.5. χχεδεξιε χ ναλςολοναξδω ςαβοτυ σ δοπομξιτεμψξωνι τεςνιξαμανι, οβύεε λομιώεστχο λοτοςωθ ξε δομφξο πςεχωϋατψ 16, οβεσπεώιχαΰτ νξοηοτεςνι- ξαμψξωε ναλςολοναξδω. B TAβμ. 4 υλαϊαξω δEκCTBιρ, KOTOPωE πPOηPAMMA δOμφHA BωπOμHρTψ δμρ TOηO, ώTOβω υπςαχμρτψ δOπOμHιTEμψHωνι TEPMιHAμανι. B HEκ πPιBEδEHω TAKφE COOTBETCTBυΰύιE ναλςολο- ναξδω δμρ πPOηPAMMιPOBAHιρ όTιX δEκCTBικ. ταβμιγα 4 -------------------!-------------------------------------- δEκCTBιε ! ναλςολοναξδα -------------------!-------------------------------------- πOμυώEHιE CTATυCA ! MHOηOTEPMιHAμψHOκ ! ιCπOμψϊυκTE .MTSTAT CιCTEMω ! ! ϊAXBAT TEPMιHAμA ! ιCπOμψϊυκTE .MTATCH δμρ ϊAXBATA (πOδKμΰώEHιE K ! TEPMιHAμA ι ϊAKPεπμEHιρ EηO ϊA πPOηPAMME) ! πPOηPAMMOκ. OβωώHO ϊAXBAT BCEX ! HEOβXOδιMωX TEPMιHAμOB OCυύECTBμρ- ! ETCρ B HAώAμE πPOηPAMMω. ϊAMETιM, ! ώTO TOμψKO OδHO ϊAδAHιE MOφET ! ϊAXBATιTψ PAϊδEμρEMυΰ KOHCOμψ ι ! TOμψKO BμAδEμEγ TEPMιHAμA MOφET ! ιCπOμψϊOBATψ MAKPOKOMAHδυ δμρ ! όTOηO. TEM HE MEHEE BCE ϊAδAHιρ, ! ιCπOμψϊυΰύιE COBMECTHO ζOHOBυΰ ! KOHCOμψ MOηυT ιCπOμψϊOBATψ ! .TTYIN,.TTYOUT, .CSIGEN, .CSISPC, ! .GTLIN ι .PRINT , TAKφE KAK ! .READ ι .WRITE δμρ TT:. ! δμρ OπPEδEμEHιρ ιμι ιϊMEHEHιρ ! σοστορξιρ τεςνιξαμοχ δO ιCπOμψϊO- ! χαξιρ σοοτχετστχυΰύιθ νξοηοτες- ! MιHAμψHωX MAKPOKOMAHδ ξυφξο πςοχεςιτψ ! σμοχο σοστορξιε λαφδοηο τεςνιξαμα ! (αστ). ! δμρ OCυύECTBμEHιρ KAφδOηO ιϊ υKA- ! ϊαξξωθ δεκστχικ CμEδυET ιCπOμψϊOBATψ ! πPιBEδEHHωE HιφE MAKPOKOMAHδω. - 180 - πςοδομφεξιε ταβμ. 4 ------------------!-------------------------------------- δεκστχιε ! ναλςολοναξδα -------------------!-------------------------------------- πPOBEPKA XAPAKTE- ! ισπομψϊυκτε .MTGET ςιστιλ τεςνιξαμα ! ! ιϊMEHEHιE XAPAKTE-! ισπομψϊυκτε .MTSET ςιστιλ TEPMιHAμA ! ! πOμυώEHιE CιMBOμA ! ισπομψϊυκτε .MTIN σ TEPMιHAμA C ! οφιδαξιεν ! BωπOμHEHιρ ! ! πOμυώEHιE CιMBOμA ! ιCπOμψϊυκTE .MTSET δμρ C TEPMιHAμA βEϊ ! υCTAHOBKι CμOBα COCTOρHιρ, OφιδAHιρ ! A ϊATEM .MTIN (HEOβXOδιMO ! ιCπOμψϊOBATψ .MTSET TOμψKO ! OδιH PAϊ) ! πEPEδAώA CιMBOμA ! ισπομψϊυκτε .MTOUT ξα TEPMιHAμ C ! οφιδαξιεν ! BωπOμHEHιρ ! ! πEPEδAώA CιMBOμA ! υCTAHOBιTE CμOBO COCTOρHιρ ξα TEPMιHAμ βEϊ ! C πOMOύψΰ .MTSET ι ϊATEM οφιδαξιρ ! ιCπOμψϊυκTE .MTOUT ! πEPEδAώA CTPOKι ! ισπομψϊυκτε .MTPRINT ξα τεςνιξαμ C οφι-! δAHιEM BωπOμHEHιρ ! ! CβPOC δμρ! ισπομψϊυκτε .MTRCTO BOϊMOφHOCTι BωBOδA! ! OCBOβOφδEHιE TEP- ! ισπομψϊυκτε .MTDTCH νιξαμα δμρ ! δPυηOηO ϊAδAHιρ ! 7.8.6. CTPυKTυPω δAHHωX CμEδυΰύιE ςαϊδεμω OπιCωBAΰT δBE BAφHωX CTPυKTυPω δAHHωX δμρ MHOηOTEPMιHAμψHωX CιCTEM: βμOK υπPABμEHιρ TEPMιHAμA ι CμOBO ACιHXPOHHOηO CTATυCA TEPMιHAμA. - 181 - 7.8.6.1. βμOK υπPABμEHιρ TEPMιHAμA (TCB) δμρ KAφδOηO TEPMιHAμA COϊδAETσρ πO OδHOMυ βμOKυ υπPABμEHιρ. πPι ηEHEPAγιι νξοηοτεςνιξαμψξοκ CιCTEMω KAφδωκ TCB PAϊMEύEH B RMON ι COδEPφιT XAPAKTEPιCTιKι TEPMιHAμA, CTATυC TEPMιHAμA, BXOδHωE ι BωXOδHωE KOμψγEBωE βυζEPω ι υKAϊATEμι δμρ TEPMιHAμA. δμιHA TCB KOμEβμETCρ B ϊABιCιMOCTι OT ϊAδAHHωX XAPAKTEPιCTιK πPι ηEHEPAγιι CιCTEMω. ϊAMETιM,ώTO πEPBωE 20(δECρTιώHοε) CμOB B KAφδOM TCB ζιKCιPOBAHω. ταβμ. 5 οπισωχαετ σοδεςφαξιε ατςιβυτοχ TCB, (*) OTMEώEHω TE PEKBιϊιTω TCB, δμρ λοτοςωθ PAϊMEPω, CMEύEHιρ ι CAMO CυύECTBOBAHιE ϊABιCρT OT CπEγιAμψHωX BOϊMOφHOCTEκ, ϊAδAHHωX B πPOγECCE ηEHEPAγιι. - 182 - ταβμιγα 5 σοδεςφαξιε ατςιβυτοχ TCB ---------------------------------------------------------- CMEύEHιE! ιMρ ! OπιCAHιE (βAκTω) ! ! --------!------!------------------------------------------ 0 !T.CNFG! CμOBO KOHζιηυPAγιι TEPMιHAμA. πPOηPAMMA ! ! ι MOHιTOP OβMEHιBAΰTCρ ιHζOPMAγιEκ O XA- ! ! PAKTEPιCTιKAX TEPMιHAμA ώEPEϊ .MTGET ι ! ! .MTSET. όTι MAKPOKOMAHδω ιCπOμψϊυΰT ώετω- ! ! ςε CμOBA βμOKA COCTOρHιρ BHυTPι πPOηPAMMω ! ! δμρ πOμυώEHιρ ιHζOPMAγιι O TEPMιHAμE. ! ! πEPBOE CμOBO M.TSTS ιMEET TAKυΰ φE CTPυK- ! ! TυPυ, ώTO ι T.CNFG (TAβμ. 6) --------!------!----------------------------------------- 2 !T.CNF2! BTOPOE CμOBO KOHζιηυPAγιι TEPMιHAμA. ! ! CTυKTυPA EηO TAKAρ φE KAK ι M.TST2 ! ! BTOPOηO CμOBA ώετωςεθCμOBHOηO βμOKA CTA- ! ! τυσα δμρ .MTGET ι .MTSET (TAβμ. 7) --------!------!----------------------------------------- 4 !T.TFIL! COδEPφιT CιMBOμ, TPEβυΰύικ δμρ όTOηO ! ! TEPMιHAμA ϊAπOμHιTEμEκ. KOπιρ όTOηO βAκ- ! ! TA B ώετωςεXCμOBHOM βμOKE CTATυCA HAϊ- ! ! χαξα M.TFIL --------!------!------------------------------------------ 5 !T.FCNT! COδEPφιT KOμιώECTBO ϊAπOμHιTEμEκ δμρ ! ! σινχομα, υλαϊαξξοηο χ T.τFIL. λοπιρ ! ! βAκTA B ώετωςεXCμOBHOM βμOKE στατυσα ! ! ξαϊχαξα M.FCNT --------!------!------------------------------------------ 6 !T.WID ! COδEPφιT ϋιPιHυ CTPOKι δAHHOηO TEPMιHAμA. ! ! KOπιρ HAϊBAHA M.TWID. MAKCιMAμψHAρ δμιHA ! ! CTPOKι 255 CιMBOμOB (δECρTιώHοε) --------!------!------------------------------------------ 10 !T.OCHR! COδEPφιT CιMBOμ δμρ BωBOδA --------!------!------------------------------------------ 11 !T.LPOS! COδEPφιT TEKυύυΰ πOϊιγιΰ KAPETKι ! ! χ στςολε τεςνιξαμα --------!------!------------------------------------------ 12 !T.OWNR! υKAϊATEμψ CMEϋAHHOκ OβμACTι ϊAδAHιρ, ϊA- ! ! XBATιBϋEηO TEPMιHAμ. όTO CμOBO πPιHιMAET ! ! ϊHAώEHιE, ECμι TEPMιHAμ ρBμρETCρ ώACTHωM ! ! δμρ PAβOTω, ιμι, ECμι ότο PAϊδEμρEMAρ ! ! λοξCOμψ ι OδHO ϊAδAHιE ϊAXBATιμο EE. ϊξα- ! ! ώEHιE PABHO ξυμΰ, ECμι TEPMιHAμ ρBμρETCρ ! ! PAϊδEμρEMOκ KOHCOμψΰ ι OHA HE ϊAXBAώEHA ! ! ϊAδAHιEM, ιμι, ECμι όTO HE KOHCOμψ ι ! ! TEPMιHAμ HE ϊAKPEπμEH ξι ϊA OδHιν ϊαδαξι- ! ! εν. ϊHAώEHιE CμOBA HE HυμEBOE B SJ-νοξι- ! ! τοςε, ECμι ϊAδAHιE ιCπOμψϊυET .MTATCH. - 183 - πςοδομφεξιε ταβμ. 5 --------!-------!----------------------------------------- σνεύεξιε! ινρ ! οπισαξιε (βAκTω) ! ! --------!-------!----------------------------------------- 14 !T.STAT ! COδEPφιT CTATυC TEPMιHAμA (TAβμ. 8) --------!-------!----------------------------------------- 16 !T.CSR ! COδEPφιT AδςEC (CSR) KμABιATυPω TEPMιHA- ! ! μA ιμι ξυμψ, ECμι ϊAηPυϊώιK HE OβHAPυφιμ ! ! αδςεσ CSR. όTO δEμAET LUN HEιCπOμψϊυEMωM --------!-------!----------------------------------------- 20 ! T.VEC ! COδEPφιT πEPBωκ BEKTOP πPEPωBAHιρ TEPMι- ! ! HAμA --------!-------!----------------------------------------- 22 ! T.PRI ! COδEPφιT πPιOPιTET πPEPωBAHιρ --------!-------!----------------------------------------- 24 ! T.JOB ! COδEPφιT HOMEP ϊAδAHιρ, ϊAXBATιBϋEηO ! ! TEPMιHAμ --------!-------!----------------------------------------- 25 ! T.PUN ! COδEPφιT HOMEP TEPMιHAμA. όTO ϊHAώEHιE ! ! BCEηδA ξυμψ δμρ TEPMιHAμOB, πOδKμΰώAEMωX ! ! ώEPEϊ DL ιHTEPζEκC. δμρ DZ ιξτεςζεκσα - ! ! ϊHAώEHιρ OT 0 δO 7 (0 - 3 δμρ DZV) --------!-------!----------------------------------------- 26 !T.NFIL ! CώETώιK ϊAπOμHιTEμEκ. όTOT βAκT COδEPφιT ! !KOμιώECTBO, πOϊιγικ OCTABϋιXCρ δμρ BωBOδA --------!-------!----------------------------------------- 27 !T.PTTI ! COδEPφιT πOCμEδHικ CιMBOμ, BBEδEHHωκ C ! ! TEPMιHAμA --------!-------!----------------------------------------- 30 !T.TCTF ! COδEPφιT CπEγιAμψHωκ CιMBOμ-ϊAπOμHιTEμψ ! ! (HAπPιMEP, ϊAπOμHιTEμψ δμρ TAβυμργιι) --------!-------!----------------------------------------- 31 !T.TNFL ! COδEPφιT CώETώιK δμρ CπEγιAμψHOηO CιMBO- ! ! μA ϊAπOμHEHιρ. ϊHAώEHιE B HEM ϊAπιCωBA- ! ! ETCρ KAK OTPιγATEμψHOE ώιCμO --------!-------!----------------------------------------- 32 ! T.TID ! υKAϊATEμψ CTPOKι ιδEHTιζιKAγιι, KOTOPAρ ! ! COδEPφιT ιMρ ϊAδAHιρ; ιCπOμψϊυετσρ ! ! TOμψKO TOηδA, KOηδA MOHιTOP πEώAταετ ! ! (BωBOδιT) όTOT ιδEHTιζιKATOP. B ! ! OCTAμψHOE BPEMρ - PABEH ξυμΰ --------!-------!----------------------------------------- 34 ! ! ϊAPEϊEPBιPOBAH --------!-------!----------------------------------------- 36 !T.TτLC ! COδEPφιT CώETώιK CTPOK TEPMιHAμA (KOμι- ! ! ώECTBO CTPOK BO BXOδHOM βυζEPE) --------!-------!----------------------------------------- 40 !T.IRNG ! υKAϊATEμψ ξα πEPBωκ βAκT BO BXOδHOM ! ! λομψγEBOM βυζEPE --------!-------!----------------------------------------- 42 !T.IPUT ! BXOδHOκ υKAϊATEμψ ςUT --------!-------!----------------------------------------- 44 !T.ICTR ! CώETώιK BBOδιMωX CιMBOμOχ - 184 - πςοδομφεξιε ταβμ. 5 --------!-------!----------------------------------------- σνεύεξιε! ινρ ! οπισαξιε (βAκTω) ! ! --------!-------!----------------------------------------- 46 !T.IGET ! BXOδHOκ υKAϊATEμψ GET --------!-------!----------------------------------------- 50 !T.ITOP ! υKAϊωBAET ηPAHιγυ BXOδHOηO KOμψγEBOηO ! ! βυζEPA. όTO CμOBO υKAϊωBAEτ HA βAκT, HA- ! ! XOδρύικCρ ϊA πPEδEμAMι δAHHOηO βυζEPA --------!-------!----------------------------------------- * 52 ! - ! BXOδHOκ KOμψγEBOκ βυζEP. EηO δμιHA ϊAδA- ! ! ETCρ πPι ηEHEPAγιι CιCTEMω. δμιHA βυζεςα ! ! χ βακταθ (40) COδEPφιTCρ B TTYIN --------!-------!----------------------------------------- * !T.OPUT ! BωXOδHOκ υKAϊATEμψ PUT * !T.OCTR ! CώETώιK BωBOδιMωX CιMBOμOB, ! - ! ζμαη CTRL/O. ξυμψ οϊξαώαετ, ώτο ! ! CTRL/ο σβςοϋεξ, εδιξιγα - υσταξοχμεξ * !T.OGET ! BωXOδHOκ υKAϊATEμψ GET * !T.OTOP ! πOKAϊωBAET ηPAHιγυ BωXOδHOηO KOμψγEBOηO ! ! βυζEPA * ! - ! BωXOδHOκ KOμψγEBOκ βυζEP. EηO δμιHA ϊA- ! ! δAETCρ πPι ηEHEPAγιι CιCTEMω. όTα δμιHA ! ! B βAκTAX COδEPφιTCρ B TTYOUT * ! T.RTRY! CυύECTBυET, ECμι πPι ηEHEPAγιι ϊAδAHA ! ! πOδδEPφKA TAκM-AυTA ιμι MOδEMA. όTO CμO- ! ! BO COδEPφιT CώETώιK πOBTOPHωX ϊAπPOCOB ! ! HA BωBOδ * ! T.TBLK! CυύECTBυET, ECμι πPι ηEHEPAγιι ϊAδAHA ! ! πOδδEPφKA TAκM-AυTA ιμι MOδEMA. όTO βμOK ! ! TAκM-AυTA δμιHOκ σενψ CμOB * ! T.AST ! CυύECTBυET, ECμι πPι ηEHEPAγιι ϊAδAHO ! ! ACιHXPOHHOE CμOBO COCTOρHιρ TEPMιHAμA. ! ! ρBμρETCρ υKAϊATEμEM CμOBA αSτ. χ ! ! XM-νοξιτοςε ϊA υKAϊATEμEM αSτ CμEδυET ! ! BTOPOE CμOBO, COδEPφAύEE χ PA1 BEμιώιHυ ! ! δμρ OTOβPAφEHιρ B CμOBO αSτ * ! T.XFLG! CυύECTBυET, ECμι πPι ηEHEPAγιι ϊAδAHA ! ! πOδδEPφKA CιCTEMHωθ ϊAδAHικ ! ! ζμAη ιMEET HEHυμEBOE ϊHAώEHιE, εσμι ! ! ϊαδαξ CTRL/X * ! T.θσNT! συύεστχυετ, εσμι πςι ηεξεςαγιι ϊαδαξα ! ! πOδδEPφKA CιCTEMHωθ ϊAδAHικ. όTOT βAκT ! ! COδEPφιT ώιCμO CιMBOμOB, HAβPAHHωX πOCμE ! ! CTRL/X (δμιHA CTPOKι) * ! T.XPRE! CυύECTBυET, ECμι πPι ηEHEPAγιι ϊAδAHA ! ! πOδδEPφKA CιCTEMHωθ ϊAδAHικ. COδEPφιT ! ! πPEδωδυύικ CιMBOμ, HAβPAHHωκ HA KμABιA- ! ! TυPE TEPMιHAμα * ! T.XBUF! CυύECTBυET, ECμι πPι ηEHEPAγιι ϊAδAHA ! ! πOδδEPφKA CιCTEMHOηO ϊAδAHιρ. όTι TPι ! ! CμOBA COδEPφAT CιMBOμω, BBEδEHHωE δμρ ! ! CιCTEMHOηO ϊAδAHιρ πOCμE CTRL/X * ! T.CNT ! CυύECTBυET, ECμι πPι ηEHEPAγιι ϊAδAHA ! ! πOδδEPφKA CιCTEMHOηO ϊAδAHιρ. CμOBO CO- ! ! δEPφιT ώιCμO ϊAδAHικ, COBMECTHO ιCπOμψ- ! ! ϊυΰύιX ζOHOBυΰ KOHCOμψ - 185 - ταβμιγα 6 σμοχο λοξζιηυςαγιι τεςνιξαμα T.CNFG --------------------------------------------------------- ξονες βιτα ! ϊHAώEHιE ---------------!----------------------------------------- 0 ! βιτ AππAPATHOκ TAβυμργιι. βυδυώι υCTA- ! HOBμEHHωM, OH πOKAϊωBAET, ώTO δAHHωκ ! TEPMιHAμ ιMEET πOδδEPφKυ AππAPATHOκ TA- ! βυμργιι. MOHιTOP HE πPEOβPAϊυET CιMBOμ ! TAβυμργιι B πPOβEμ δO ϊACωμKι EηO B Bω- ! XOδHOκ KOμψγEBOκ βυζEP. πPOηPAMMA MOφET ! υCTAHOBιTψ όTOT δBOιώHωκ PAϊPρδ δμρ KOH- ! KPETHOηO TEPMιHAμA ναλςολοναξδοκ ! .MTSET ! KOMAHδA SET TT:TAB υCTAHABμιBAET ! όTOT δBOιώHωκ PAϊPρδ δμρ ζοξοχοκ λοξ- ! COμι ---------------!----------------------------------------- 1 ! KOηδA όTOT βιT υCTAHOBμEH, MOHιTOP πOCω- ! μAET KOMβιHAγιΰ 'BOϊBPAT KAPETKι-πEPEBOδ ! CTPOKι' HA TEPMιHAμ, B TOM Cμυ- ! ώAE, ECμι δμιHA στςολι ιCώEPπAHA. πPOη- ! PAMMA MOφET υCTAHOBιTψ όTOT βιT ! δμρ λOHKPETHOηO TEPMιHAμA ναλςολοναξδοκ ! .MTSET. KOMAHδA SET TT:CRLF υCTAHABμιBA- ! ET όTOT βιT δμρ ζOHOBOκ KOHCOμι ---------------!----------------------------------------- 2 ! βιT AππAPATHOηO πEPEBOδA ζOPMATA. βυδυώι ! υCTAHOBμEHHωM, OH πOKAϊωBAET, ώTO δAHHωκ ! TEPMιHAμ ιMEET AππAPATHυΰ πOδδEPφKυ πE- ! ςεχοδα ζοςνατα (ϊξαλ ). ! νοξιτος ξε πςεοβςαϊυετ σινχομ ! πEPEBOδα ζOPMATA B πEPEBOδ CTPOKι δO ϊA- ! CωμKι EηO B BωXOδHOκ KOμψγEBOκ βυζEP. ! πPOηPAMMA MOφET υCTAHOBιTψ όTOT βιT δμρ ! λοξλςετξοηο τεςνιξαμα ναλςολοναξδοκ ! .MTSET. KOMAHδA SET TT:FORM υCTA- ! HABμιBAET όTOT βιT δμρ ζOHOBOκ KOHCOμι ---------------!----------------------------------------- 3 ! KOηδA όTOT βιT πOηAϋEH, MOHιTOP OβPAβA- ! TωBAET , ι KAK ! οβωώHωE CιMBOμω ι ιηHOPιPυET ιX CπEγιA- ! μψξωε HAϊHAώEHιρ. KOMAHδA SET TT:NOFB ! OώιύAET όTOT βιT δμρ ζοξοχοκ λοξσομι. ! πςοηςαννα ξε νοφετ υσταξοχιτψ ότοτ βιτ ! δμρ δςυηιθ τεςνιξαμοχ, μιϋψ PAϊδEμρEMAρ ! KOHσομψ νοφετ εηο ισπομψϊοχατψ ---------------!----------------------------------------- 4-5 ! ϊAPEϊEPBιPOBAHω - 186 - πςοδομφεξιε ταβμ. 6 ---------------!----------------------------------------- ξονες βιτα ! ϊξαώεξιε ---------------!----------------------------------------- 6 ! βιT ϊAπPEτA OφιδAHιρ TT. AHAμOηιώEH βιτυ ! ϋεστψ B CμOBE COCTOρHιρ ϊAδAHιρ (JSW), ! λοτοςωκ πPOηPAMMA MOφET υCTAHOBιTψ. B ! ότον σμυώAE πPOηPAMMA HE OφιδAET ϊABEP- ! ϋεξιρ χχοδA-BωBOδA HA TEPMιHAμ δμρ πPO- ! δομφεξιρ εε BωπOμHEHιρ. ϊAMETιM, ώTO βιT ! ϋεστψ χ JSW ινεετ σνωσμ τομψλο δμρ ! λοξσομψξοηο (σιστενξοηο) τεςνιξαμα ! ϊαδαξιρ. ECμι δμρ χχοδα-χωχοδα ! πPOηPAMMA ιCπOμψϊυET δPυηιE τεςνιξαμω, ! OHA MOφET υCTAHOBιTψ όTOT βιT χ λαφδον ! TCB, ιCπOμψϊυρ ναλςολοναξδυ ! .νTSET. ECμι φε δAHHωκ TEPMιHAμ ρBμρ- ! ETCρ ώACTHOκ KOHCOμψΰ δμρ δAHHOηO ϊAδA- ! Hιρ, TO ϊAδAHιE MOφET υCTAHOBιTψ βιT ! ϋεστψ JSW. B MHOηOτεςνιξαμψξοκ σιστενε ! ϊAδAHιE MOφET ! υCTAHOBιTψ βιT ϋεστψ χ JSW ι B τCB ! λοξσομψHOηO TEPMιHAμA. B μΰβOM CμυώAE, ! υσταξοχλα βιTA ϋεστψ B TCB ιμι ! JSW πPιBεδεT K υσταξοχλε OβOιX βιTOB ---------------!---------------------------------------- 7 ! βιT XON/XOFF. βυδυώι υσταξοχμεHHωM, OH ! δοπυCKAET PACπOϊHABAHιE XON(CTRL/Q) ι ! XOFF(CTRL/S) CιMBOμOB. KOMAHδA SET TT: ! PAGE υσταξοχιT όTOT βιT δμρ ζOHOBOκ KOH- ! COμι ---------------!----------------------------------------- 8-11 ! MACKA CKOPOCTι B βOδAX δμρ TEPMιHAμOB ! HA DZ-μιHιρX. (CKOPOCTψ B βOδAX δμρ TEP- ! MιHAμOB HA DL-μιHιρX HEπPOηPAMMιPυEMA πO ! ϊAπPOCυ .MTSET). ϊHAώEHιρ CμEδυΰύιE: ! ! MACKA CKOPOCTψ !(χοσψνεςιώξοε) (δεσρτιώξοε) ! ----- -------- ! 0000 50 ! 0400 75 ! 1000 110 ! 1400 134.5 ! 2000 150 ! 2400 300 ! 3000 600 ! 3400 1200 ! 4000 1800 ! 4400 . ! 5000 . ! . . ! . . - 187 - πςοδομφεξιε ταβμ. 6 ---------------!----------------------------------------- δχοιώξωκ ςαϊςρδ! ϊξαώεξιε ---------------!----------------------------------------- 12 ! βιT CπEγιAμψHOηO PEφιMA. AHAμOηιώEH βιTυ ! 12 B JSW, KOTOPωκ BϊAιMOδEκCTBυET C KOH- ! COμψΰ ϊAδAHιρ. ECμι όTOT TEPMιHAμ ρBμρ- ! ETCρ ώACTHOκ KOHCOμψΰ δμρ δAHHOηO ϊAδA- ! ξιρ, ϊαδαξιε νοφετ υσταξοχιτψ βιτ 12 ! JSW, ώτοβω ενυ βωμ δοστυπεξ σπεγιαμψξωκ ! ςεφιν. χ MHOηOTEPMιHAμψHOκ σιστενε ! ϊαδαξιε MOφET υσταξοχιTψ βιT 12 KAK χ ! JSW, ταλ ι χ TCB KOHCOμψHOηO TEPMιHAμA. ! χ μΰβον σμυώαε, υσταξοχλα βιTA 12 B TCB ! ιμι JSW πPιBOδιT K υσταξοχλε OβOιX βι- ! τοχ. ECμι πPOηPAMMA δμρ BBOδA-BωBOδA ιC- ! πOμψϊυET δPυηιE TEPMιHAμω, OHA MOφET υσ- ! ταξοχιTψ όTOT βιT B KAφδOM TCB, ιCπOμψ- ! ϊυρ MAKPOKOMAHδυ .MTSET ---------------!----------------------------------------- 13 ! βιτ υδαμεξξοηο τεςνιξαμα. οξ δοστυπεξ ! τομψλο δμρ ώτεξιρ ι πςοηςαννα ξε ! MOφET ιϊMEHιTψ EηO. βυδυώι υσταξοχμεξ, ! όTOT βιT υKAϊωBAET, ώTO δAHξωκ τεςνιξαμ ! ρBμρETCρ υδAμEHHωM ---------------!----------------------------------------- 14 ! KOηδA όTOT βιT υσταξοχμεH, BOϊMOφHO OTO- ! βςαφEHιE ι BBOδ KιPιμμιγω ι μATιHCKιX ! βυKB. KOηδA όTOT βιT OώιύEH, MOHιTOP ! πPEOβPAϊυET CιMBOμω C KOδAMι 141-172 ! B μATιHCKιE. ECμι δAHHωκ TEPMιHAμ ρBμρ- ! ETCρ ώACTHOκ KOHCOμψΰ ϊAδAHιρ, ϊAδAHιE ! MOφET υσταξοχιτψ όTOT βιT B JSW. ! πςι νξοηοτεςνιξαμψξοκ ςαβοτε ϊαδαξιε ! νοφετ υσταξοχιτψ βιτ λαλ χ JSW, ! ταλ ι TCB KOHCOμψHOηO TEPMιHAμA. ! B μΰβOM CμυώAE, υσταξοχλα βιTA B ! TCB ιμι JSW πPιBOδιT K υσταξοχλε ! OβOιX βιTOB ---------------!----------------------------------------- 15 ! KOηδA όTOT βιT υσταξοχμεH, MOHιTOP Bω- ! πομHρET COOTBETCTBυΰύEE δEκCTBιE δμρ Bι- ! δεοTEPMιHAμA, πςι ξαφατιι λμαχιϋι . ! πPOηPAMMA MOφET υσταξοχιτψ όTOT βιT ! δμρ KOHKPETHOηO TEPMιHAμA C πOMOύψΰ MA- ! KPOKOMAHδω .MTSET. KOMAHδA SET TT:SCOPE ! υσταξοχιT όTOT βιT TOμψKO δμρ ζOHOBOκ ! KOHCOμι - 188 - O ταβμιγα 7 χτοςοε σμοχο λοξζιηυςαγιι τεςνιξαμα T.CNF2 -------!------------------------------------------------- βιT ! ϊHAώEHιE -------!------------------------------------------------- 0-1 ! όTι δBA βιTα πOKAϊωBAΰT PAϊMEP (δμιHυ) CιMBOμA. ! DZ MOφET πEPEδABATψ CιMBOμω δμιξοκ ! 5, 6, 7 ιμι 8 βιTOB. ϊHAώEHιρ CμEδυΰύιε: ! ! ϊHAώEHιρ : δμιHA CιMBOμA ! ...................................... ! 00 : 5 βιT ! 01 : 6 βιT ! 10 : 7 βιT ! 11 : 8 βιT ! ! όTι βιTω HE ιCπOμψϊυΰTCρ δμρ ιHTEPζEκCA DL -------!------------------------------------------------- 2 ! CTOπ βιT. B ϊABιCιMOCTι OT CKOPOCTι OH πOKAϊωBA- ! ET KOμιώECTBO πEPECωμAEMωX CTOπ-βιTOB. ! 0 - πEPECωμAETCρ OδιH CTOπ-βιT ! 1 - πEPECωμAETCρ δBA CTOπ-βιTA ! (πOμTOPA CTOπ-βιTA, ECμι ιCπOμψϊυΰTCρ ! πρτιβιTHωE CιMBOμω.) ! βιT HE ιCπOμψϊυETCρ δμρ DL -------!-------------------------------------------------- 3 ! βιτ πςοχεςλι παςιτετα. εσμι οξ υσταξοχμεξ, ! χωπομξρετσρ λοξτςομψ πο παςιτετυ -------!------------------------------------------------- 4 ! πOKAϊωBAET, βυδET πPOBEPKA HA ώETHOCTψ ιμι ! HEώETHOCTψ. ! ! ϊHAώEHιε : KOHTPOμψ ! .........:................ ! 0 : HA ώETHOCTψ ! 1 : HA HEώETHOCTψ ! : ! δμρ DL HE ιCπOμψϊυETCρ -------!------------------------------------------------- 5-6 ! ϊAPEϊEPBιPOBAHω -------!------------------------------------------------- 7 ! βυδυώι υσταξοχμεξHωM, όTOT βιT υKAϊωBAET PEφιM ! 'ώιTATψ BCE'. χ όTOM PEφιME δςακχες πEPEδAET χσε ! Bοσενψ βιTOB KAφδOηO CιMBOμA βEϊ πPEOβPAϊOBAHιρ. ! ι ποχτοςεξιρ σινχομOB. ξαπςινες, ! '^σ' πPOXOδιT KAK 203 B PEφιME 'ώιTATψ BCE', ! ECμι TEPMιHAμ υCTAHABμιBAET σταςϋικ (15) ! βιT HA πEPEδAώυ. βυδυώι υCTAHOBμEHHωM, ! TEPMιHAμ πOμHOCTψΰ ξAXOδιTCρ B πOϊHAKOBOM ! PEφιME -------!------------------------------------------------- 8-14 ! ϊAPEϊEPBιPOBAξω -------!------------------------------------------------- 15 ! βυδυώι υσταξοχμEHHωM, όTOT βιT υKAϊωBAET PEφιM ! 'πEPECμATψ BCE' (WRITE PASS-ALL). B όTOM ! PEφιME δςακχες πEPEδAEτ χσε χοσενψ βιτοχ λαφδοηο ! σινχομα βεϊ πςεοβςαϊοχαξιρ σινχομοχ - 189 - ταβμιγα 8 σμοχο σοστορξιε τεςνιξαμα T.STAT -------!------------------------------------------------- βιT ! ϊHAώEHιE πςι υσταξοχμεξξον βιτε -------!------------------------------------------------- 0 ! υKAϊωBAET, ώTO πOCμEδOBATEμψHOCTψ ! πPOδOμφAETCρ -------!------------------------------------------------- 1-3 ! ϊAPEϊEPBιPOBAHω -------!------------------------------------------------- 4 ! υKAϊωBAET, ώTO χωπομξρετσρ OπEPAγιρ οτλμΰώεξιρ ! τεςνιξαμα. BBOδ C TEPMιHAμA ιηHOPιPυETCρ -------!------------------------------------------------- 5 ! όTO βιT CιHXPOHιϊAγιι TT-δPAκBEPA -------!------------------------------------------------- 6 ! υKAϊωBAET, ώTO OφιδAETCρ πPEPωBAHιE BBOδA -------!------------------------------------------------- 7 ! υKAϊωBAET, ώTO TEPMιHAμ πOCμAμ XOFF, ώTOβω ! ϊATPEβOBATψ πPιOCTAHOBKυ Bωχοδα -------!------------------------------------------------- 8-9 ! ϊAPEϊEPBιPOBAξω -------!------------------------------------------------- 10 ! υKAϊωBAET, ώTO δAHHωκ TEPMιHAμ ρBμρETCρ PAϊδE- ! μρEMOκ KOHCOμψΰ -------!------------------------------------------------- 11 ! υKAϊωBAET, ώTO υδAμEHHωκ TEPMιHAμ HE HAXOδιTCρ ! B COCTOρHιι ηOTOBHOCTι -------!------------------------------------------------- 12 ! υKAϊωBAET, ώTO ιHTEςζεκC TEPMιHAμA - DZ -------!------------------------------------------------- 13 ! ϊαςεϊεςχιςοχαξ -------!------------------------------------------------- 14 ! υKAϊωBAET, ώTO δBA βωμι BBEδEHω C δAH- ! HOηO TEPMιHAμA. όTOT βιT BOϊBPAύAETCρ B ιCXOδ- ! HOE COCTOρHιE πο .MTGET -------!------------------------------------------------- 15 ! υKAϊωBAET, ώTO δAHHωκ TEPMιHAμ ρχμρETCρ KOHCOμψΰ ! δμρ HEKOTOPOηO ϊAδAHιρ. OHA MOφET βωTψ PAϊδEμρE- ! MOκ ιμι ώACTHOκ 7.8.6.2. ACιHXPOHHωκ CTATυC TEPMιHAμA (αSτ) αSτ ρBμρETCρ CπEγιAμψHOκ χοϊνοφξοστψΰ, KOTOPυΰ MOφHO BωβPATψ BO BPEMρ ηEHEPAγιι CιCTEMω. ECμι οξα βωμA BωβPAHA, TO MOφHO υCTAHOBιTψ δOπOμHιTEμψHO οδξο σμοχο δμρ XPAHEHιρ OδHOηO αSτ ξα KAφδOE LUN B πPOηPAMME. πςι ποδλμΰώεξιι τες- νιξαμα λ πςοηςαννε σ πονούψΰ .MTATCH, ξυφξο υKAϊατψ KAK APηυMEHT AδPEC αSτ δμρ όTOηO TEPMιHAμA. αSτ πςεδξαϊξαώεξ δμρ τοηο, ώτοβω πςι υπPABμEHιι μιHιEκ πPOηPAMMA MOημA πOμυώαTψ ιHζOPMAγιΰ ο στατυσε τεςνιξαμα ι νοδενα βEϊ BωδAώι MAKPOKOMAHδω. δςακχες υσταξαχμιχαετ ιμι OώιύαET βιTω B αSτ. αSτ COδEPφιT ιHζOPMAγιΰ, πςιχεδεξξυΰ χ ταβμ. 9: - 190 - ταβμιγα 9 ---------------------------------------------------------- βιT ! ιMρ ! βιT υσταξοχμεξ ! ζμαη σοβωτιρ ----!--------!-----------------!-------------------------- ! ! ! 15 ! AS.CTC ! 100000 ! βωμα δχαφδω χχεδεξα ποσ- ! ! ! μεδοχατεμψξοστψ . ! ! ! ξεοβθοδινο σβςοσιτψ ότοτ ! ! ! βιτ, τ.λ. νοξιτος σαν ! ! ! ξε χωπομξρετ ότοκ οπεςα- ! ! ! γιι ! ! ! 14 ! AS.INP ! 40000 ! C δAHHOηO TEPMιHAμA ! ! ! δOCTυπEξ BBOδ ! ! ! 13 ! AS.OUT ! 20000 ! KOμψγEBOκ BωXOδHOκ ! ! ! βυζEP πυCT ! ! ! 7 ! AS.CAR ! 200 ! μιHιρ BKμΰώEHA ι HAXO- ! ! ! διτσρ B COCTOρHιι ! ! ! ηοTOBHOCTι (TOμψKO δμρ ! ! ! υδAμEHHωX μιHικ) ! ! ! 6 ! AS.HNG ! 100 ! δαHHAρ μιHιρ (υδAμEHHAρ) ! ! ! TOμψKO ώTO OTKμΰώEHA ι ! ! ! CιCTEMA βOμψϋE HE ! ! ! πOδδEPφιBAET όTυ μιHιΰ MOHιTOP υCTAHABμιBAET βιT 15 (AS.CTC), BCρKικ PAϊ, KOηδA δBE ιμι βOμEE πOCμEδOBATEμψHωX KOMAHδ HAπEώATAHω HA KAKOM-μιβO TEPMιHAμE. πEώATψ δBυX KOMAHδ HA KOHCOμψHOM TEPMιHAμE ϊAδAHιρ BCEηδA OβPωBAET EηO, ECμι ϊAδAHιE HE ιCπOμψϊυET MAKPOKOMAHδυ .SCCA, KOTOPAρ πPεπρTCTBυET BOCπPιρTιΰ όTιX CιMBOμOB KAK CπEγιAμψHωX. δμρ πςοδομφεξιρ ϊAδAHιρ ξυφξο σβςοσιτψ όTOT βιT. MOHιTOP υσταξαχμιχαετ βιT 14 (AS.INP), KOηδA C TEPMιHAμA BOϊMOφEH BBOδ. όTO MOφET βωTψ CTPOKA CιMBOμOB B HOPMAμψHOM PEφιME ιμι EδιHCTBEHHωκ CιMBOμ B CπEγιAμψHOM PEφιME. MOHιTOP OβHυμρET όTOT βιT, KOηδA πPOηPAMMA CώιTAET CιMBOμω. MOHιTOP υσταξαχμιχαετ βιT 13 (AS.OUT), KOηδA BωXOδHOκ KOμψγEBOκ βυζEP TEPMιHAμA πυCT. όTO πPOιCXOδιT πOCμE TOηO, KAK πOCμEδHικ CιMBOμ KOμψγEBOηO βυζEPA BωBEδEH HA TEPMιHAμ. MOHιTOP OβξυμρET όTOT βιT, KOηδA B KOμψγEBOM βυζEPE ECTψ CιMBOμω. MOHιTOP υσταξαχμιχαετ βιT 7 (AS.CAR), KOηδA OH OTBEώAET υδAμEHHOκ μιHιι. OH OβHυμρET όTOT βιT, KOηδA υδAμEHHAρ μιHιρ ϊABιCAET ιμι πAδAET HECυύAρ ώACTOTA. MOHιTOP υσταξαχμιχαετ βιT 6 (AS.HNG), KOηδA OH οτβςα- σωχαετ υδAμEHHυΰ μιHιΰ, KOTOPAρ TOμψKO ώTO ϊABιCμA. - 191 - 7.8.7. ισπομψϊοχαξιε νξοηοτεςνιξαμψξωθ ναλςολοναξδ πPOηPAMMω MTTEMT, ρχμρΰύιεσρ ώACTψΰ RMON, διCπETώEPιϊυΰT MHOηOTEPMιHAμψHωE MAKPOKOMAHδω ι BωπOμHρΰT ιX. διCπETώEPιϊυΰύAρ πPOηPAMMA πPιHιMAET MAKPOKOMAHδω, KOTOPωE TPAHCμιPυΰTCρ B ιHCTPυKγιι EMT 375 C KOδOM 37 ι ζυHKγιOHAμψHωM KOδOM OT ξυμρ δO δεσρτι (χοσνεςιώξοε). CHAώAμA διCπETώεPιϊυΰύAρ πPOηPAMMA πPOBEPρET δOCTOBEPHOCTψ MAKPOKOMAHδω. ϊATEM OHA πPOBEPρET μOηιώECKικ HOMEP TEPMιHAμA ι υβEφδAETCρ, ώTO OH πOδKμΰώEH. ECμι MAKPOKOMAHδA ρBμρETCρ KOMAHδOκ ϊAXBATA τεςνιξαμα, πPOηPAMMA πPOBEPρET ϊAHρTOCTψ υλαϊαξξοηο TEPMιHAμA. δμρ BCEX δPυηιX MAKPOKOMAHδ πPOBEPρETσρ, ϊαθχαώεξ μι TEPMιHAμ BωϊωBAΰύEκ πPOηPAMMOκ. εσμι ναλςολοναξδα πςοϋμα χσε πςοχεςλι δισπετώεςιϊυΰύεκ πςοηςαννω, υπςαχμεξιε πεςεδαετσρ ισπομξρΰύενυ λοδυ δμρ ξεποσςεδστχεξξοηο χωπομξεξιρ. πςι χωπομξεξιι ναλςολοναξδ σιστενα σοοβύαετ οβ οϋιβλαθ χ βακτε εRRχYτ (52). χοϊνοφξω σμεδυΰύιε λοδω οϋιβολ: 0 - ξετ ϊξαλοχ χ βυζεςε (δμρ ντIN); ξετ νεστα χ βυζεςε χωχοδα (δμρ ντοUτ); 1 - ξεπςαχιμψξωκ ξονες τεςνιξαμα (τεςνιξαμ ξε ϊαλςεπ- μεξ ϊα ϊαδαξιεν); 2 - ξεσυύεστχυΰύικ μοηιώεσλικ ξονες τεςνιξαμα (τεςνι- ξαμ ξε ποδλμΰώεξ λ λονπμελσυ); 3 - ξεπςαχιμψξαρ ναλςολοναξδα (ισπομψϊοχαξ ξεδοπυστι- νωκ λοδ ζυξλγιι); 4 - ποπωτλα ϊαλςεπιτψ ιμι οσχοβοδιτψ τεςνιξαμ, ϊαλςεπ- μεξξωκ ϊα δςυηιν ϊαδαξιεν; 5 - αδςεσ πομψϊοχατεμψσλοηο βυζεςα, βμολα σοστορξιρ ιμι αδςεσ σμοχα AST ξαθοδιτσρ χξε πςεδεμοχ δοπυσ- τινοηο αδςεσξοηο πςοστςαξστχα (τομψλο δμρ θν- νοξιτοςα). χοϊνοφξοστψ πορχμεξιρ λαφδοκ ιϊ οϋιβολ χ πςογεσσε χωπομξεξιρ ναλςολοναξδ πςοιμμΰστςιςοχαξο χ ταβμ. 10. - 192 - ταβμιγα 10 -------------------------------------------------------- MAKPOKOMAHδω ! KOδω OϋιβOK ! 0 1 2 3 4 5 --------------!----------------------------------------- .MTATCH ! X X X X .νTGET ! X X X X X .MTSET ! X X X X .MTIN ! X X X X X .MTOUT ! X X X X X .MTPRNT ! X X X .MTRCTο ! X X X .MTSTAT ! X .MTDTCH ! X X X 7.8.7.1. .MTATCH -ϊAXBAT TEPMιHAμA .MTATCH ιCπOμψϊυETCρ δμρ ϊAXBATA TEPMιHAμA ϊAδAHιεν. ποσμε ότοηο πPOηPAMMα νοφετ BωBOδιTψ CιMBOμω HA TEPMιHAμ, BBOδιTψ C HEηO ι ιϊMEHρTψ εηο XAPAKTEPιCTιKι. πOCμE ϊAXBATA TEPMιHAμA ϊAδAHιEM OH οσταετσρ B όTOM COCTOρHιι δO TEX πOP, πOKA HE δAξA MAKPOKOMAHδA .MTDTCH ιμι ϊAδAHιE ϊABEPϋEHO. ECμι TEPMιHAμ OCBOβOφδAETCρ C πOMOύψΰ .MTDTCH, TO ϊAδAHιE βμOKιPυETCρ δO ϊABEPϋEHιρ BωBOδA HA TEPMιHAμ ι ϊATEM MOHιTOP OCBOβOφδAET TEPMιHAμ OT ϊAδAHιρ. ECμι TEPMιHAμ OCBOβOφδAETCρ πPι CβPOCE ϊAδAHιρ, HEϊABEPϋEHHωκ BωBOδ HA TEPMιHAμ πPEPωBAETCρ ι MOHιTOP OCBOβOφδAET TEPMιHAμ HEMEδμEHHO. ναλςολοναξδα ϊAXBATA τεςνιξαμα CHAώAμA πPOBEPρET, ρBμρETCρ μι TEPMιHAμ PAϊδEμEHHOκ KOHCOμψΰ, HO HE KOHCOμψΰ δAHHOηO ϊAδAHιρ.ECμι όTO TAK, TO BωδAETσρ OϋιβKα C KOδOM 4. ECμι TEPMιHAμ υφE ϊAXBAώEH δPυηιM ϊAδAHιEM, TO TAK φE BωδAETCρ OϋιβKA σ λοδον 4. πPOηPAMMA ϊAXBATωBAET TEPMιHAμ, υCTAHABμιBAρ δBA ατςι- βυτα B TCB όTOηO TEPMιHAμA (T.JOB ι T.OWNR). B FB/XMνοξιτοςαθ OHA ϊAHOCιT HOMEP ϊAδAHιρ B T.JOB. B RM/SJ - νοξιτοςαθ πOCμE ϊAXBATA TEPMιHAμA T.OWNR πPιHιMAET HEHυμEBOE ϊHAώEHιE. χ FB/XM - νοξιτοςαθ T.OWNR COδEPφιT υKAϊATEμψ HA CMEϋαξξυΰ OβμACTψ ϊAδAHιρ, KOTOPOE ϊAXBATωBAET TEPMιHAμ. ECμι CιCTEMA CηEHEPιPOBAHA C αSτ, TO ναλςολοναξδα ϊAHOCιT B T.AST υKAϊATEμψ CμOBA αSτ. B XM - νοξιτοςε OHA TAKφE ϊAHOCιT ϊHAώEHιE B T.AST+2, KOTOPOE ιCπOμψϊυETCρ KAK ϊHAώEHιE PA1 πPι OTOβPAφEHιι CμOBA AST. χ τον σμυώαε, εσμι τεςνιξαμ - λοξσομψ ϊαδαξιρ, το ϊHAώEHιρ HEKOTOPωX PAϊPρδOB πEPEHOCρτσρ ιϊ JSW B T.CNFG: KOπιPυΰτσρ PAϊPρδω 14 (δμρ HιφHEηO PEηιCTPA), 12 (CπEγPEφιM) ι 6 (ϊAπPET OφιδAHιρ). ECμι TEPMιHAμ - ζOHOBAρ KOHCOμψ, TO ϊAηPυφAΰτσρ T.TFIL ιϊ ρώEκKι 56. - 193 - ζοςνατ ναλςολοναξδω: .ντατσξ αRεα,αDDR,UNIτ ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ ιϊ τςεθ σμοχ; αDDR - αδςεσ ασιξθςοξξοηο στατυσα τεςνιξαμα (οδξο σμοχο); εσμι αSτ ξε υλαϊωχαετσρ, το ADDR δομφεξ βωτψ 0; UNIτ - μοηιώεσλικ ξονες τεςνιξαμα, λοτοςωκ ξεοβθοδινο ϊαλςεπιτψ ϊα πςοηςαννοκ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 37 ! 5 ! !--------!--------! ! ADDR ! !--------!--------! ! 0 ! UNIT ! !--------!--------! εσμι χοϊξιλμα οϋιβλα πςι χωπομξεξιι ναλςολοναξδω, το βυδετ υσταξοχμεξ βιτ "σ" σμοχα σοστορξιρ πςογεσσοςα. εRRχYτ (52) βυδετ σοδεςφατψ λοδ οϋιβλι (σπισολ οϋιβολ πςεδσταχμεξ χ ξαώαμε ότοηο πυξλτα). χοϊνοφξω σοοβύεξιρ οβ οϋιβλαθ σ λοδανι: 2, 3, 4, 5. σμεδυΰύικ πςινες πολαϊωχαετ ισπομψϊοχαξιε ναλςολοναξδω .MTATCH δμρ ϊαλςεπμεξιρ τεςνιξαμα ϊα πςοηςαννοκ ι ςαβοτα σ αSτ δμρ οπςεδεμεξιρ, λαλιε τεςνιξαμω ηοτοχω λ ςαβοτε. πςινες. .ENABLE LC .νσαLL .ντατσξ,.ντςRNτ,.MTSTAτ,.εθIτ αS.σαR = 200 ;εσμι υσταξοχμεξ, το ;τεςνιξαμ ηοτοχ λ ςαβοτε M.NLUN = 4 ;σνεύεξιε δο σμοχα, σοδες- ;φαύεηο λομ-χο μιξικ ;(τεςνιξαμοχ) SταRτ: .MTSTAT #MTA, #MSTAT ;πομυώιτψ στατυσ νξοηοτες- ;νιξαμψξοκ σιστενω MOV MSTAT+M.NLUN,R4 ;R4=> λομιώεστχο μιξικ ;(τεςνιξαμοχ) BEQ MERR ;εσμι δα, το ότα σιστενα ;ξε νξοηοτεςνιξαμψξαρ! σLR R1 ;σώετώιλ μοη.ξονεςοχ ;τεςνιξαμοχ νοV #αSτ,R2 ;R2-> αSτ 10$: .ντατσξ #ντα,R2,R1 ;ποπωτλα ποδλμΰώιτψ τεςν. χσσ 15$ ;χσε χ ποςρδλε σLRχ ταI(R1) ;οτνετιτψ, ώτο τεςν. ; ξε ποδλμΰώεξ χR 20$ ;ποπωταενσρ σμεδυΰύικ 15$: νοVχ #1,ταI(R1) ;οτνετιτψ, ώτο τεςν. - 194 - ; ποδλμΰώεξ χIτ #αS.σαR,@R2 ;τεςνιξαμ ηοτοχ ? χεQ 20$ ;ξετ .ντςRNτ #ντα,#ξεLLοW,R1;πεώατατψ στςολυ 20$: αDD #2,R2 ;R2-> σμεδυΰύικ αSτ INσ R1 ;σμεδυΰύικ ξονες τεςν. σνς R1,R4 ;χσε ? χLο 10$ ;ξετ εύε .εθIτ MERR: .PRINT #NOMTTY ;ξετ νξοηοτεςνιξαμψξοκ ;ποδδεςφλι .EXIT NOMTTY: .ASCIZ /? ξε νξοηοτεςνιξαμψξαρ σιστενα/ αSτ: .χLλW 16. ;ASτ δμρ τεςνιξαμοχ ντα: .χLλW 3 ;ταβμιγα αςηυνεξτοχ ξεLLοW: .αSσIZ /δοβςωκ δεξψ, τοχαςιύ !/ ταI: .χLλχ 16. ;1 => τεςν. ποδλμΰώεξ ;0 => ξε ποδλμΰώεξ MSTAT: .BLKW 8. ;ταβμιγα σοστορξιρ ;νξοηοτεςνιξαμψξοκ ;σιστενω .εND SταRτ 7.8.7.2. .MTGET - πOμυώEHιE CTATυCA .MTGET ισπομψϊυετσρ δμρ πOμυώEHιρ XAPAKTEPιCTιK TEPMιHAμA (πPι όTOM HEOβρϊATEμψHO ϊAXBATωBATψ TEPMιHAμ). .MTGET χοϊχςαύαετ ιξζοςναγιΰ ο στατυσε ιϊ ατςιβυτοχ TCB τεςνιξαμα B 4-σμοχξυΰ ταβμιγυ πPOηPAMMω. πPOιCXOδιT CμEδυΰύικ πEPEHOC: - T.CNFG B M.TSTS; - T.CNF2 B M.TST2; - T.TFIL B M.TFIL; - T.FCNT B M.FCNT; - T.WID B M.WID; - σταςϋικ βAκT σμοχα σοστορξιρ τεςνιξαμα T.STAT B M.TSTW. ταλιν οβςαϊον, ταβμιγα σοστορξιρ βυδετ σοδεςφατψ σμε- δυΰύυΰ ιξζοςναγιΰ: ν.τSτS (σμοχο) - σμοχο λοξζιηυςαγιι τεςνιξαμα ξονες 1 (ισπομψϊοχα- ξιε βιτοχ πςιχεδεξο χ ποδπυξλτε 7.8.7.3); ν.τSτ2 (σμοχο) - σμοχο λοξζιηυςαγιι τεςνιξαμα ξονες 2; - 195 - ν.τFIL (βακτ) - ϊξαλ, τςεβυΰύικ ϊαπομξιτεμεκ δμρ τεςνιξαμοχ, ποδλ- μΰώεξξωθ σ πονούψΰ DL-ιξτεςζεκσα; εσμι ϊαπομξιτεμι ξε τςεβυΰτσρ, το ότοτ βακτ δομφεξ σοδεςφατψ ξυμψ; ν.FσNτ (βακτ) - σώετώιλ ϊαπομξιτεμεκ δμρ ϊξαλα, υλαϊαξξοηο χ ν.τFIL; ν.τWID (βακτ) - ϋιςιξα στςολι τεςνιξαμα χ ϊξαλαθ; ν.τSτW (βακτ) - βακτ σοστορξιρ τεςνιξαμα (οπισαξ χ ποδπυξλτε 7.8.7.3). ECμι TEPMιHAμ HE ϊAXBAώEH Hι KAKιM ϊAδAHιEM, πPOηPAMMA BωδAET KOδ OϋιβKι 1. ECμι TEPMιHAμ ϊAXBAώEH δPυηιM ϊAδAHιEM, TO BωδAETCρ KOδ OϋιβKι 4 ι B R0 ϊAHOCιTCρ HOMEP ϊAδAHιρ-BμAδEμψγA TEPMιHAμA. ECμι TEPMιHAμ-PAϊδEμρEMAρ KOHCOμψ, A ϊAδAHιE ιMEET COβCTBEHHυΰ ώACTHυΰ KOHCOμψ, TO R0 COδEPφιT HOMEP ϊAδAHιρ, BμAδEΰύEηO KOHCOμψΰ. HECMOTPρ HA TO, ώTO χωπομξεξιε ναλςο- λοναξδω ϊABEPϋAETCρ C OϋιβKOκ, ιHζOPMAγιρ O XAPAKTEPιCTιKAX TEPMιHAμA BCEηδA ϊAHOCιTCρ B βμOK COCTOρHιρ πPOηPAMMω. HAKOHEγ, ECμι χωπομξεξιε ϊABEPϋιμACψ βEϊ OϋιβKι, CβPACωBAETσρ PAϊPρδ 14 () B T.STAT. ζοςνατ ναλςολοναξδω: .ντGετ αRεα,αDDR,UNIτ ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ ιϊ τςεθ σμοχ; αDDR - αδςεσ 4-σμοχξοκ ταβμιγω σοστορξιρ, λυδα πονεύαετσρ ιξζοςναγιρ ο τεςνιξαμε; οπισαξιε ταβμιγω πςιχεδεξο χ ποδπυξλτε 7.8.7.3; UNIτ - μοηιώεσλικ ξονες τεςνιξαμα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 37 ! 1 ! !--------!--------! ! ADDR ! !--------!--------! ! - ! UNIT ! !--------!--------! εσμι χοϊξιλμα οϋιβλα πςι χωπομξεξιι ναλςολοναξδω, το βυδετ υσταξοχμεξ βιτ σ. χοϊνοφξω σοοβύεξιρ οβ οϋιβλαθ σ λοδανι 1, 2, 3, 4, 5. - 196 - πςινες πςιχεδεξ χ ποδπυξλτε 7.8.7.10. 7.8.7.3. .MTSET - υCTAHOBKA XAPAKTEPιCTιK ναλςολοναξδα .MTSET ποϊχομρετ υσταξοχιτψ τςεβυενωε θαςαλτεςιστιλι (παςανετςω) TEPMιHAμA ι μιξιι σχρϊι, α ταλφε ςεφιν χχοδα-χωχοδα ιξζοςναγιι ξα υλαϊαξξωκ τεςνιξαμ. .MTSET πEPEHOCιT COδEPφιMOE M.TSTS B T.CNFG, ϊA ιCKμΰώEHιEM PAϊPρδA 13 (υδAμEHHωκ TEPMιHAμ), λοτοςωκ πςεδ- ξαϊξαώεξ TOμψKO δμρ ώTEHιρ. ECμι TEPMιHAμ - KOHCOμψ ϊAδAHιρ, TO πPOηPAMMA πEPEHOCιT ιϊ T.CNFG B JSW PAϊPρδω: 14 (HιφHικ PEηιCTP), 12 (CπEγPEφιM) ι 6 (ϊAπPET OφιδAHιρ). HEϊABιCιMO OT TOηO, ρBμρETCρ μι TEPMιHAμ KOHCOμψΰ ϊAδAHιρ ιμι HET, πPOηPAMMA πEPEδAET χ TCB τεςνιξαμα CμEδυΰύυΰ ιHζOPMAγιΰ: - M.TST2 B T.CNF2; - M.TFIL B T.TFIL; - M.FCNT B T.FCNT; - M.TWID B T.WID ECμι CιCTEMA ιMEET DZ πOδδEPφKυ ι δAHHωκ TEPMιHAμ πOδKμΰώEH C πOMOύψΰ DZ ιHTEPζEκCA, TO πPOηPAMMA OφιδAET ϊABEPϋEHιρ BωBOδA HA TEPMιHAμ ι ϊATEM υCTAHABμιBAET πAPAMETPω μιHιι DZ. πςινεώαξιε. σμεδυετ BCEηδA BωπOμHρτψ .νTGET δO .MTSET. ι ιϊMEHρτψ TOμψKO TE ϊHAώEHιρ, KOTOPωE HυφHω. δμρ OδHOPAϊPρδHωX ϊHAώEHικ ιCπOμψϊυκTE KOMAHδω BIS ι BIC. δμρ MHOηOPAϊPρδHωX ϊHAώEHικ CHAώAμA OώιCTιTE ιX C πOMOύψΰ BIC ι ϊATEM ϊAηPυϊιTE C πOMOύψΰ BIS. ιCπOμψϊυκTE MOVB ιμι MOV TOμψKO δμρ βAκTHωX ιμι CμOBHωX ϊHAώEHικ. ιϊMEHEHιρ δPυηιX PAϊPρδOB MOηυT πPιBECTι K HEπPEδCKAϊυEMωM OϋιβKAM, ι, HAKOHEγ, σμεδυετ ιCπOμψϊοχατψ δμρ .MTSET TOT φE CAMωκ βμOK COCTOρHιρ, ώTO ι δμρ .MTGET. ζοςνατ ναλςολοναξδω: .ντSετ αRεα,αDDR,UNIτ ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ ιϊ τςεθ σμοχ; αDDR - αδςεσ ταβμιγω σοστορξιρ ιϊ ώετωςεθ σμοχ, λοτοςαρ σοδεςφιτ τςεβυενωε θαςαλτεςιστιλι τεςνιξαμα, μιξιι ι ςεφιν χχοδα/χωχοδα; - 197 - UNIτ - μοηιώεσλικ ξονες τεςνιξαμα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 37 ! 1 ! !--------!--------! ! ADDR ! !--------!--------! ! - ! UNIT ! !--------!--------! ζοςνατ ταβμιγω σοστορξιρ: αDDR: .WοRD ν.τSτS ;σμοχο λοξζιηυςαγιι τεςνιξαμα ;ξονες 1(T.CNFG) .WοRD ν.τSτ2 ;σμοχο λοξζιηυςαγιι τεςνιξαμα ;ξονες 2(T.CNF2) .χYτε ν.τFIL ;ϊξαλ, τςεβυΰύικ ϊαπομξιτεμεκ .χYτε ν.FσNτ ;λομιώεστχο ϊαπομξιτεμεκ .χYτε ν.τWID ;ϋιςιξα όλςαξα χ ϊξαλαθ .χYτε ν.τSτW ;βακτ σοστορξιρ τεςνιξαμα 1) παςανετςω τεςνιξαμα παςανετςω τεςνιξαμα ι ςεφιν χχοδα-χωχοδα ιξζοςναγιι οπςεδεμρΰτσρ σοστορξιεν σοοτχετστχυΰύιθ βιτοχ (0 ιμι 1) χ σμοχαθ T.CNFG ι T.CNF2. σμοχο λοξζιηυςαγιι τεςνιξαμα M.TSTS ινεετ σμεδυΰύεε ςασπςεδεμεξιε βιτοχ (πορσξεξιρ δαξω ξα σμυώακ, λοηδα βιτ υσταξοχμεξ): ξWταχ$ = 1 (βιτ 0) - τεςνιξαμ ινεετ αππαςατξυΰ ταβυμργιΰ (ϊξαλ <ταχ>); σRLF$ = 2 (βιτ 1) - χωχοδιτψ ϊξαλι <σR> πςι δοστιφεξιι πςαχοηο λςαρ όλςαξα; FοRν$ = 4 (βιτ 2) - τεςνιξαμ ινεετ αππαςατξωκ πεςεχοδ ζοςνατα (ϊξαλ ); FχττY$ = 10 (βιτ 3) - οβςαβατωχατψ <στRL/F> ι <στRL/χ> λαλ οβωώξωε (ξευπςαχμρΰύιε) ϊξαλι; εSσSQ$ = 20 (βιτ 4) - ςασποϊξαχατψ <εSσ>-ποσμεδοχατεμψξοστι (δμρ σπε- γιαμψξοηο υπςαχμεξιρ όλςαξον τεςνιξαμα); εSσFL$ = 40 (βιτ 5) - ζιμψτςοχατψ <εSσ>-ποσμεδοχατεμψξοστι; τσχIτ$ = 100 (βιτ 6) - ξε πεςεχοδιτψ πςοηςαννυ χ σοστορξιε οφιδαξιρ, εσμι βυζες χχοδα πυστ ιμι βυζες χωχοδα πομξοστψΰ ϊαπομ- ξεξ; αξαμοηιώεξ βιτυ TCBIT$ χ JSW; - 198 - ςαGε$ = 200 (βιτ 7) - ισπομψϊοχατψ ϊξαλι <στRL/S> ι <στRL/Q> δμρ πςιοσ- ταξοχλι ι πςοδομφεξιρ χωχοδα ξα τεςνιξαμ; LINSς$ = 7400 (βιτω 8-11) - σλοςοστψ πεςεδαώι ιξζοςναγιι πο μιξιι σχρϊι (δμρ νυμψτιπμελσοςα); ττSςσ$ = 10000 (βιτ 12) - σπεγιαμψξωκ ςεφιν χχοδα σ τεςνιξαμα (ποϊξαλοχωκ); αξαμοηιώξο βιτυ TTSPC$ χ JSW; Rενοτ$ = 20000 (βιτ 13) - τεςνιξαμ ρχμρετσρ υδαμεξξων (βιτ τομψλο δμρ ώτε- ξιρ); ττLσ$ = 40000 (βιτ 14) - ξετ πςεοβςαϊοχαξιρ ϊξαλοχ λιςιμμιγω χ ματιξσλιε; χλSς$ = 100000 (βιτ 15) - ισπομψϊοχατψ ϊξαλ σ λοδον <χS> (011) δμρ υδαμεξιρ ποσμεδξεηο χχεδεξξοηο ϊξαλα ξα όλςαξε τεςνιξαμα. σοοτχετστχιε ϊξαώεξιρ νασλι βιτοχ "LINSς$" σλοςοστι χ βοδαθ (τομψλο δμρ νυμψτιπμελσοςοχ) πςιχεδεξο χ ταβμ. 5. πομξωκ ζυξλγιοξαμψξωκ πεςεώεξψ ςαϊςρδοχ σμοχ T.CNFG ι T.CNF2 πςιχεδεξ χ ταβμ. 5 ι 6; 2) σοστορξιε τεςνιξαμα βακτ σοστορξιρ τεςνιξαμα M.TSTW ινεετ σμεδυΰύεε ςασπ- ςεδεμεξιε βιτοχ (πορσξεξιρ δαξω δμρ σμυώαρ, λοηδα βιτ υστα- ξοχμεξ): SξαRε$ = 2000 (βιτ 10) - τεςνιξαμ ρχμρετσρ ςαϊδεμρενοκ λοξσομψΰ δμρ ζοξοχοκ ι οπεςατιχξοκ πςοηςανν; ξNGUς$ = 4000 (βιτ 11) - υδαμεξξωκ τεςνιξαμ ξε ξαθοδιτσρ χ σοστορξιι ηοτοχ- ξοστι; νLτςL$ = 10000 (βιτ 12) - τεςνιξαμ ποδλμΰώεξ λ λονπμελσυ σ πονούψΰ νυμψτιπ- μελσοςα; CONSL$ = 100000 (βιτ 15) - μολαμψξωκ τεςνιξαμ ρχμρετσρ λοξσομψξων. εσμι χοϊξιλμα οϋιβλα πςι χωπομξεξιι ναλςολοναξδω, το βυδετ υσταξοχμεξ βιτ "C" σμοχα σοστορξιρ πςογεσσοςα. ERRBYT (52) βυδετ σοδεςφατψ λοδ οϋιβλι (σπισολ οϋιβολ πςεδσταχμεξ χ ξαώαμε ότοηο πυξλτα). χοϊνοφξωε λοδω οϋιβολ: 1, 2, 3, 5. χσε πεςεώισμεξξωε οπςεδεμεξιρ βιτοχ νοηυτ βωτψ οπςεδε- μεξω χ πςοηςαννε πομψϊοχατεμρ σ πονούψΰ σιστενξοκ ναλςολο- ναξδω .MTBDF, λοτοςαρ οπεςεδεμρετ νξενοξιλυ ότιθ βιτοχ ι ιθ ϊξαώεξιε. - 199 - πςινες πςιχεδεξ χ ποδπυξλτε 7.8.7.10. 7.8.7.4. .MTIN - BBOδ CιMBOμA .ντIN ρχμρετσρ νξοηοτεςνιξαμψξοκ ζοςνοκ ναλςολοναξδω .ττYIN. οξα ξε ισπομψϊυετ όμενεξτ οώεςεδι. ναλςολοναξδα .ντIN πεςεσωμαετ οδιξ ιμι βομεε ϊξαλοχ ιϊ λομψγεχοηο βυζεςα χχοδα χ βυζες πςοηςαννω. τεςνιξαμ δομφεξ βωτψ πςεδχαςιτεμψ- ξοηο ποδλμΰώεξ λ πςοηςαννε. εσμι οπεςαγιρ πςοϋμα υσπεϋξο, ποσμε χωπομξεξιρ ναλςολοναξδω νοδιζιγιςοχαξξωκ αδςεσ βυζεςα πςοηςαννω χοϊχςαύαετσρ χ R0. ναλςολοναξδα .MTIN ξενεδμεξξο χοϊχςαύαετσρ σ υσταξοχ- μεξξων βιτον "C" σμοχα σοστορξιρ πςογεσσοςα (λοδ οϋιβλι 0), εσμι βιτ 6 υσταξοχμεξ χ M.TSTS (σν. ποδπυξλτ 7.8.7.3) ι χωπομξεξω σμεδυΰύιε υσμοχιρ: - βιτ 12 χ M.TSTS υσταξοχμεξ ι χ λομψγεχον βυζεςε ξετ χχεδεξξωθ σ τεςνιξαμα σινχομοχ; - βιτ 12 χ M.TSTS οώιύεξ ι χχοδ στςολι χ λομψγεχοκ βυζες ξε ϊαχεςϋεξ. εσμι πεςεώισμεξξωε υσμοχιρ ξε ινεΰτ νεστα, το .ντIN πεςεχο- διτ πςοηςαννυ χ σοστορξιε οφιδαξιρ δο τεθ πος, πολα σ τες- νιξαμα ξε ποστυπιτ ιξζοςναγιρ. εσμι χ .ντIN ϊαπςοϋεξο ϊξαλοχ βομψϋε, ώεν ιθ σοδεςφιτ- σρ χ βυζεςε, το χ ϊαχισινοστι οτ σοστορξιρ 6 βιτα χ M.TSTS πςοηςαννα βυδετ μιβο πεςεχεδεξα χ σοστορξιε οφιδαξιρ, μιβο βυδετ πεςεδαξο νεξψϋεε λομιώεστχο ϊξαλοχ. εσμι βιτ 6 σμοχα ν.τSτS οώιύεξ, ϊαπςοσ πεςεχοδιτ πςοηςαννυ χ σοστορξιε οφι- δαξιρ. εσμι βιτ 6 - υσταξοχμεξ, το βυδυτ πεςεδαξω τομψλο τε ϊξαλι, λοτοςωε ξαθοδρτσρ χ βυζεςε. χ ποσμεδξεν σμυώαε R0 βυδετ σοδεςφατψ νοδιζιγιςοχαξξωκ αδςεσ βυζεςα, τ.ε. πολαϊω- χατψ ξα σμεδυΰύικ βακτ ϊα ποσμεδξιν χχεδεξξων ϊξαλον χ βυζεςε πςοηςαννω. πςι ότον βυδετ υσταξοχμεξ σ-βιτ ι λοδ οϋιβλι 0. .ντIN ιCπOμψϊυETCρ δμρ BBOδA CιMBOμA C TEPMιHAμA. TEPMιHAμ ρχμρετσρ KOHCOμψξων, το πςοηςαννα (.MTIN) πEPECωμAET ιϊ JSW B T.CNFG ςαϊςρδω 14, 12 ι 6. ECμι TEPMιHAμ - ζOHOBAρ KOHCOμψ, TO πPOηPAMMA ϊAηPυφAET T.TFIL ιϊ ρώEκKι 56. .MTIN πOμυώAET CιMBOμ ιϊ KOμψγEBOηO βυζEPA BBOδA ι KOPPEKTιPυET EηO υKAϊATEμι. ECμι TEPMιHAμ ρBμρETCρ KOHCOμψΰ, TO ιCπOμψϊυETσρ KOμψγEBOκ βυζEP B CMEϋAξHOκ OβμACTι ϊAδAHιρ. ECμι TEPMιHAμ HE KOHCOμψ, TO ιCπOμψϊυETσρ KOμψγEBOκ βυζEP TCB TEPMιHAμA. ECμι BBεδεξα ποσμεδοχατεμψξοστψ HA KOHCOμψHOM TEPMιHAμE ι .SCCA HE υCTAHOBμEH, ϊAδAHιE σξιναετσρ σ χωπομ- ξεξιρ. - 200 - ζοςνατ ναλςολοναξδω: .ντIN αRεα,αDDR,UNIτ[,σξRσNτ] ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ ιϊ τςεθ σμοχ; αDDR - αδςεσ βυζεςα χ πςοηςαννε (πο ότονυ αδςεσυ βυδετ πςοιϊχοδιτψσρ πεςεδαώα ϊξαλοχ, χχεδεξξωθ σ τεςνι- ξαμα); UNIτ - μοηιώεσλικ ξονες τεςνιξαμα; σξRσNτ - λομιώεστχο ϊξαλοχ, λοτοςοε τςεβυετσρ χχεστι (οτ 1 δο 255); εσμι ότοτ αςηυνεξτ οπυύεξ, το βυδετ πεςε- δαξ οδιξ ϊξαλ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 37 ! 2 ! !--------!--------! ! ADDR ! !--------!--------! ! CHRCNT ! UNIT ! !--------!--------! εσμι χοϊξιλμα οϋιβλα πςι χωπομξεξιι ναλςολοναξδω, το βυδετ υσταξοχμεξ βιτ σ σμοχα σοστορξιρ πςογεσσοςα. εRRχYτ (52) βυδετ σοδεςφατψ λοδ οϋιβλι. χοϊνοφξω σοοβύεξιρ οβ οϋιβλαθ σ λοδανι 0, 1, 2, 3 ι 5. λοδ οϋιβλι ξομψ (ξετ χχο- δα) πορχιτσρ χ σμυώαε, εσμι υσταξοχμεξ βιτ 6 χ M.TSTS (ιμι χ JSW - δμρ σιστενξοηο τεςνιξαμα). πςινες πςιχεδεξ χ ποδπυξλτε 7.8.7.10. 7.8.7.5. .MTOUT - BωBOδ CιMBOμA ναλςολοναξδα .ντοUτ χωπομξρετ δεκστχιρ, πςοτιχοπομοφ- ξωε .ντIN. οξα ρχμρετσρ νξοηοτεςνιξαμψξοκ ζοςνοκ ναλςολο- ναξδω .ττYοUτ. ναλςολοναξδα .ντοUτ ξε ισπομψϊυετ όμενεξτ οώεςεδι. ναλςολοναξδα .ντοUτ πεςεσωμαετ οδιξ ιμι ξεσλομψλο ϊξαλοχ ιϊ βυζεςα πςοηςαννω χ λομψγεχοκ βυζες χωχοδα. τεςνι- ξαμ δομφεξ βωτψ πςεδχαςιτεμψξο "νοξοπομιϊιςοχαξ" πςοηςαν- νοκ. εσμι ναλςολοναξδα χωπομξεξα υσπεϋξο, το R0 βυδετ σοδεςφατψ νοδιζιγιςοχαξξωκ αδςεσ βυζεςα πςοηςαννω. ναλςολοναξδα .MTOUT πEPECωμAET δμρ KOHCOμι ϊAδAHιρ ιϊ JSW B T.CNFG PAϊPρδω 14, 12, 6. δμρ ζOHOBOκ KOHCOμι πPOηPAMMA ϊAηPυφAET T.TFIL ιϊ ρώEκKι 56. πPOηPAMMA πEPEHOCιT CιMBOμ ιϊ βυζEPA πOμψϊOBATEμρ B BωXOδHOκ KOμψγEBOκ βυζEP ι ιϊMEHρET υKAϊATEμψ βυζEPA. ECμι TEPMιHAμ - KOHCOμψ, TO πPOηPAMMA ιCπOμψϊυET KOμψγEBOκ βυζEP - 201 - B CMEϋAHHOκ OβμACTι ϊAδAHιρ. ECμι TEPMιHAμ - HE KOHCOμψ, TO πPOηPAMMA ιCπOμψϊυET KOμψγEBOκ βυζEP B TCB. εσμι βυζες χωχοδα ϊαπομξεξ ι βιτ 6 χ M.TSTS υσταξοχ- μεξ, το βυδετ υσταξοχμεξ C-βιτ ι λοδ οϋιβλι ξομψ. χ πςοτιχ- ξον σμυώαε πςοηςαννα πεςεχοδιτσρ χ σοστορξιε οφιδαξιρ, πολα ξε πορχιτσρ νεστο χ λομψγεχον βυζεςε χωχοδα. εσμι .ντοUτ σοδεςφιτ ϊαπςοσ ξα πεςεδαώυ ξεσλομψλιθ ϊξαλοχ, α βυζες χωχοδα σοδεςφιτ ξεδοστατοώξο νεστα, το πςοηςαννα νοφετ βωτψ μιβο πεςεχεδεξα χ σοστορξιε οφιδαξιρ (εσμι βιτ 6 ν.τSτS οώιύεξ), μιβο οπεςαγιρ βυδετ χωπομξεξα ξεπομξοστψΰ (εσμι βιτ 6 ν.τSτS υσταξοχμεξ). χ ποσμεδξεν σμυώαε R0 βυδετ σοδεςφατψ νοδιζιγιςοχαξξωκ αδςεσ βυζεςα (R0 βυδετ πολαϊωχατψ ξα βακτ, σμεδυΰύικ ϊα ποσμεδξιν χωχεδεξξων ϊξαλον), οδξοχςενεξξο βυδετ υσταξοχμεξ βιτ C ι λοδ οϋιβλι ξομψ. ζοςνατ ναλςολοναξδω: .ντοUτ αRεα,αDDR,UNIτ[,σξRσNτ] ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ ιϊ τςεθ σμοχ; αDDR - αδςεσ βυζεςα χ πςοηςαννε, ιϊ λοτοςοηο βυδυτ πεςε- δαχατψσρ ϊξαλι; UNIτ - μοηιώεσλικ ξονες τεςνιξαμα; σξRσNτ - λομιώεστχο ϊξαλοχ, λοτοςοε ξεοβθοδινο χωχεστι (οτ 1 δο 255); εσμι ότοτ αςηυνεξτ οπυύεξ, το βυδετ χωχεδεξ οδιξ ϊξαλ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 37 ! 3 ! !--------!--------! ! ADDR ! !--------!--------! ! CHRCNT ! UNIT ! !--------!--------! εσμι χοϊξιλμα οϋιβλα πςι χωπομξεξιι ναλςολοναξδω, το βυδετ υσταξοχμεξ βιτ σ σμοχα σοστορξιρ πςογεσσοςα. εRRχYτ (52) βυδετ σοδεςφατψ λοδ οϋιβλι. χοϊνοφξω σοοβύεξιρ οβ οϋιβλαθ σ λοδανι 0, 1, 2, 3. πςινες πςιχεδεξ χ ποδπυξλτε 7.8.7.10. - 202 - 7.8.7.6. .MTPRNT - BωBOδ CTPOKι ναλςολοναξδα ρχμρετσρ νξοηοτεςνιξαμψξοκ ζοςνοκ .ςRINτ. οξα ποϊχομρετ χωχεστι ξα όλςαξ τεςνιξαμα ποσμεδοχατεμψξοστψ ϊξαλοχ (οδξυ ιμι ξεσλομψλο στςολ). υπςαχμεξιε πςοηςαννε χοϊχςαύαετσρ τομψλο ποσμε ϊαχεςϋεξιρ οπεςαγιι. ποσμεδοχατεμψξοστψ ϊξαλοχ δομφξα ϊαλαξώιχατψσρ μιβο βακτον σ χοσψνεςιώξων λοδον "0", μιβο "200" (αξαμοηιώξο ναλςολοναξδε .ςRINτ). εσμι στςολα ϊαλαξώιχαετσρ βακτον σ λοδον 0, το ποσμε ϊαχεςϋεξιρ πεςεδαώι σοδεςφινοηο βυζεςα ξα τεςνιξαμ βυδυτ χωχεδεξω ϊξαλι <σR> ι . ισπομψϊοχαξιε βακτα σ λοδον 200 χ λαώεστχε οηςαξιώιτεμρ στςολι ποδαχιτ χωχοδ ποσμεδοχατεμψξοστι <σR>. πςινες. .αSσIZ /στςολα/ ιμι .αSσII /στςολα/<200> .MTPRNT πEPECωμAET CTPOKυ ιϊ βυζEPA πOμψϊOBATEμρ B BωXOδHOκ KOμψγEBOκ βυζEP ι ιϊMEHρET EηO υKAϊATEμψ. δμρ KOHCOμι ιCπOμψϊυETCρ KOμψγEBOκ βυζEP B CMEϋAHHOκ OβμACTι ϊAδAHιρ. δμρ HE KOHCOμι - B TCB TEPMιHAμA. ECμι ξεδOCTATOώHO MECTA B BωXOδHOM KOμψγEBOM βυζEPE, το ϊAδAHιE πPιOCTAHABμιBAETCρ δO πOρBμEHιρ MECTA HEϊABιCιMO OT ϊHAώEHιρ PAϊPρδA 6 B T.CNFG. ζοςνατ ναλςολοναξδω: .ντPRNT αRεα,αDDR,UNIτ ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ ιϊ τςεθ σμοχ; αDDR - αδςεσ ξαώαμα στςολι δμρ χωχοδα; UNIτ - μοηιώεσλικ ξονες τεςνιξαμα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 37 ! 7 ! !--------!--------! ! ADDR ! !--------!--------! ! - ! UNIT ! !--------!--------! εσμι χοϊξιλμα οϋιβλα πςι χωπομξεξιι ναλςολοναξδω, το βυδετ υσταξοχμεξ βιτ σ σμοχα σοστορξιρ πςογεσσοςα. χοϊνοφ- ξωε λοδω οϋιβολ δαξξοκ ναλςολοναξδω: 1, 2, 5. πςινες πςιχεδεξ χ ποδπυξλτε 7.8.7.10. - 203 - 7.8.7.7. .MTRCTO - σβςοσ ζμαηα .νTRCTO ιCπOμψϊυETCρ δμρ BOCCTAHOBμEHιρ BOϊMOφHOCTι BωBOδA HA TEPMιHAμ, HA KOTOPOM βωμA ϊAδAHA λοναξδα . .MTRCTO CβPACωBAET ζμAη B TCB ι πEPECωμAET δμρ KOHCOμι ϊAδAHιρ PAϊPρδω 14, 12, 6 ιϊ JSW B T.CNFG. δμρ ζOHOBOκ KOHCOμι B T.TFIL ϊAηPυφAETCρ ρώEκKA 56. ECμι ιϊMEHρETσρ COδEPφιMOE JSW, το PEKOMEHδυETCρ ιCπOμψϊOBATψ .MTRCTO CPAϊυ φE πOCμE όTOηO, δμρ TOηO, ώTOβω JSW ι TCB BCE BPEMρ COδEPφAμι OδιHAKOBυΰ ιHζOPMAγιΰ. HAπPιMEP, ECμι HEOβXOδιM ξιφξικ ςεηιστς δμρ χχοδα σ πονούψΰ .GTLIN, το ξαδο υσταξοχιτψ ςαϊςρδ 14 χ JSW ι χωπομξιτψ .MTRCTO ιμι RCTRLO πEPEδ .GTLIN. ζοςνατ ναλςολοναξδω: .ντRστο αRεα,UNIτ ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ ιϊ τςεθ σμοχ; UNIτ - μοηιώεσλικ ξονες τεςνιξαμα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 37 ! 4 ! !--------!--------! !ξε ισπομψϊυετσρ ! !--------!--------! ! - ! UNIT ! !--------!--------! εσμι χοϊξιλμα οϋιβλα πςι χωπομξεξιι ναλςολοναξδω, το βυδετ υσταξοχμεξ βιτ σ. χοϊνοφξωε λοδω οϋιβολ δαξξοκ ναλςο- λοναξδω: 1, 2, 3. πςινες πςιχεδεξ χ ποδπυξλτε 7.8.7.10. 7.8.7.8. .MTSTAT - παςανετςω σιστενω .MTSTAT ιCπOμψϊυETCρ δμρ πOμυώEHιρ ιHζOPMAγιι O COCTOρHιι MHOηOTEPMιHAμψHOκ CιCTEMω. χ ποσμεδοχατεμψξωθ ώETωPEθ CμOBAθ πPOηPAMMω βυδετ σοδεςφατψσρ σμεδυΰύαρ ιξζος- ναγιρ: - σMEύEHιE OT HAώAμA RMON δO πEPBOηO TCB; - 204 - - CMEύEHιE OT HAώAμA RMON δO TCB TEPMιHAμA δAHHOηO ϊAδAHιρ; - OβύEE ώιCμO TCB; - PAϊMEP TCB B βAκTAX (BCE TCB ιMEΰT OδιH ι TOT φE PAϊMEP). TCB PAϊMEύEHω B RMON B TOκ πOCμEδOBATEμψHOCTι, B KAKOκ βωμι ϊAδAHω DL ι DZ μιHιι πςι ηεξεςαγιι: CHAώAμA ιδυT TCB δμρ μOKAμψHωX DL, ϊATEM υδAμEHHωX DL, ϊATεM μOKAμψHωX DZ ι υδAμEHHωX DZ. C πOMOύψΰ ιHζOPMAγιι, πOμυώEHHOκ .MTSTAT MOφHO OπPEδEμιTψ TCB μΰβOηO TEPMιHAμA ι πPOBEPιTψ COδEPφιMOE TCB C πOMOύψΰ ναλςολοναξδω .GVAL (σν. TAβμ. 4). .MTSTAT χοϊχςαύαετ ιξζοςναγιΰ ο στατυσε νξοηοτεςνι- ξαμψξοκ σιστενω χ πςοηςαννυ. ζοςνατ ναλςολοναξδω: .MTSTAT AREA,ADDR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ ιϊ τςεθ σμοχ; ADDR - αδςεσ 8-σμοχξοηο βμολα σοστορξιρ σιστενω, χ λοτο- ςωκ χοϊχςαύαετσρ ιξζοςναγιρ ο σιστενε, πςιχεδεξξαρ χ ταβμ. 11. ζοςνατ ταβμιγω αςηυνεξτοχ: R0 => AREA: !--------!--------! ! 37 ! 10 ! !--------!--------! ! ADDR ! !-----------------! ! 0 ! !-----------------! ταβμιγα 11 ταβμιγα σοστορξιρ σιστενω ------------------------------------------------------- σνεύεξιε ! σοδεςφαξιε (βακτω) ! ------------------------------------------------------- 0 ! σνεύεξιε οτ βαϊω RMON δο πεςχοηο TCB ! 2 ! σνεύεξιε οτ βαϊω RMON δο TCB λοξσομψξοηο ! τεςνιξαμα ϊαδαξιρ ! 4 ! λομιώεστχο TCB (οτ 1 δο 17 δεσρτιώξωθ) ! 6 ! ςαϊνες TCB χ βακταθ ! 10 - 17 ! ξε ισπομψϊυΰτσρ - 205 - χοϊνοφξα οϋιβλα σ λοδον 5. πςινες πςιχεδεξ χ οπισαξιι ναλςολοναξδω .MTATCH (σν. ποδπυξλτ 7.8.7.1). 7.8.7.9. .MTDTCH - OCBOβOφδEHιE TEPMιHAμA .νTDTCH ιCπOμψϊυETCρ δμρ OCBOβOφδEHιρ TEPMιHAμA ι δEμAET EηO δOCTυπHωM δμρ δPυηοηο ϊAδAHιρ. CHAώAμA υCTAHABμιBAETσρ βιT DTACH$ (βιT 4 B T.STAT), ώTOβω πολα- ϊατψ, ώTO BωπOμHρETCρ OπEPAγιρ OTKμΰώEHιρ. όTO ιCKμΰώAET KOHζμιKTHωE CιTυAγιι B MOδυμE MTTINT. (KOHζμιKTHAρ CιTυAγιρ - ότο CιTυAγιρ, KOηδA δBE ιμι βOμEE OπEPAγιι OδHOBPEMEHHO πωTAΰTCρ ιϊMEHιTψ OδHι ι TE φE δAHHωE). ϊATEM υCTAHABμιBAETCρ XON, ECμι PAHEE βωμ υCTAHOBμEH XOFF. ECμι TEPMιHAμ - HE PAϊδEμρEMAρ KOHCOμψ, ϊAπOμHρETCρ BωXOδHOκ βυζEP. B RM/SJ-νοξιτοςε πPOηPAMMA γιKμιTCρ δO TEX πOP, πOKA T.OUTR HE OώιCTιTCρ. B FB/XM-νοξιτοςε BωπOμHEHιE ϊAδAHιρ πPιOCTAHABμιBAETCρ δμρ OώιCTKι T.OCTR. CμOBA T.OWNR ι T.AST CβPACωBAΰTCρ B 0 δμρ οσχοβοφδαε- νοηο TEPMιHAμA ι, HAKOHEγ, CβPACωBAεTCρ DTACH$. KOηδA ϊAδAHιE ϊαχεςϋAETCρ, TEPMιHAμ οσχοβοφδαεTCρ βEϊ ϊAπOμHEHιρ βυζEPOB. λοηδα τεςνιξαμ οσχοβοφδεξ, χσε πςεςωχαξιρ, σχρϊαξξωε σ ξιν, ιηξοςιςυΰτσρ. χχοδ ιξζοςναγιι σ τεςνιξαμα βμολιςυετσρ ξενεδμεξξο, ξο ϊξαλι, ξαθοδρύιεσρ χ λομψγεχον βυζεςε χωχο- δα, ςασπεώατωχαΰτσρ ξα όλςαξ δο λοξγα. ποπωτλα οτλμΰώιτψ τεςνιξαμ, ποδλμΰώεξξωκ λ δςυηοκ πςοηςαννε, πςιχοδιτ λ οϋιβ- λε. οδξαλο, ποπωτλα οτλμΰώιτψ ξεποδλμΰώεξξωκ τεςνιξαμ πςοσ- το ιηξοςιςυετσρ. ζοςνατ ναλςολοναξδω: .ντDτσξ αRεα,UNIτ ηδε αRεα - αδςεσ ταβμιγω αςηυνεξτοχ ιϊ τςεθ σμοχ; UNIτ - μοηιώεσλικ ξονες τεςνιξαμα. - 206 - ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 37 ! 6 ! !--------!--------! ! ξε ισπομψϊυετσρ ! !--------!--------! ! - ! UNIT ! !--------!--------! εσμι χοϊξιλμα οϋιβλα πςι χωπομξεξιι ναλςολοναξδω, το βυδετ υσταξοχμεξ βιτ σ. χοϊνοφξω οϋιβλι σ λοδανι 1, 2, 3. πςινες. .τIτLε ντDτσξ.νασ .νσαLL .ντDτσξ,.ντςRNτ,.ντατσξ,.εθIτ,.ςRINτ SταRτ: .ντατσξ #ντα,#0,#3 ;ποδλμΰώιτψ ξονες 3 χσS 1$ ;οϋιβλα ποδλμΰώεξιρ .ντςRNτ #ντα,#νεSS,#3 ;ξαπεώατατψ σοοβύεξιε .ντDτσξ #ντα,#3 ;οτλμΰώιτψ τεςνιξαμ .εθIτ 1$: .ςRINτ #ATTεRR ;σοοβύεξιε οβ οϋιβλε ; (ξα σιστενξωκ τεςνιξαμ) .εθIτ ATTεRR: .αSσIZ /οϋιβλα ποδλμΰώεξιρ τεςν#3/ νεSS: .αSσIZ /πςοχεςλα οτλμΰώεξιρ τεςνιξαμα/ .εVεN ντα: .χLλW 3 .εND SταRτ 7.8.7.10. πPιMEP MHOηOTEPMιHAμψHOκ πPOηPAMMω χ δαξξον ποδπυξλτε πςιχοδιτσρ τελστ πςοηςαννω ξα ναλ- ςοασσενβμεςε, λοτοςαρ ισπομψϊυετ νξοηοτεςνιξαμψξωε ναλςολο- ναξδω. πςινες. .τIτLε νττεSτ.νασ .νσαLL .ντατσξ,.ντςRNτ, .ντGετ, .ντIN,.ντοUτ .νσαLL .ντSετ,.εθIτ,.ςRINτ, .ντRστο .MCALL .MTBDF .MTBDF .εNαχL Lσ ;δμρ πςαχιμψξοκ ςασπεώατλι ;λοννεξταςιεχ πςοηςαννω ;ξNGUς$ = 4000 ;τεςνιξαμ ξε ηοτοχ ;ττSςσ$ = 10000 ;σπεγιαμψξωκ ςεφιν χχοδα ;ττLσ$ = 40000 ;ϊαπςετιτψ ;πςεοβςαϊοχαξιε λιςιμμιγω-ματ. ;αS.INς = 40000 ;εστψ ιξζοςναγιρ δμρ χχοδα ν.τSτS = 0 ;σμοχο σοστορξιρ τεςνιξαμα ν.τSτW = 7 ;βακτ σοστορξιρ SταRτ: σLR R1 ;σώετώιλ τεςνιξαμοχ νοV #αSτ,R2 ;R2-> αSτ - 207 - 10$: .ντατσξ #ντα,R2,R1 ;ποδλμΰώιτψ τεςνιξαμ χσσ 20$ ;ποςρδολ ! σLRχ ταI(R1) ;τεςνιξαμ ξε ποδλμΰώεξ χR 30$ ;σμεδυΰύικ... 20$: νοVχ #1,ταI(R1) ;τεςνιξαμ ποδλμΰώεξ νοV R1,R3 ;ξονες τεςνιξαμα αSL R3 ; υνξοφιτψ ξα 8 δμρ αSL R3 ; σνεύεξιρ χ ταβμιγε αSL R3 ; στατυσ-βμολοχ (σβ) αDD #τSχ,R3 ;R3->σβ τεςνιξαμα .ντGετ #ντα, R3,R1 ;πομυώιτψ στατυσ χIS #ττSςσ$+ττLσ$,ν.τSτS(R3) ;ξοχωε ; θαςαλτεςιστιλι ττ: .ντSετ #ντα,R3,R1 ;υσταξοχιτψ στατυσ χIτχ #ξNGUς$/400,ν.τSτW(R3) ;τεςνιξαμ ηοτοχ? χNε 30$ ;ξετ .ντRστο #ντα,R1 ;σβςοσιτψ <στRL/ο>-ζμαη .ντςRNτ #ντα,#ξεLLο, R1 ;χωχεστι σοοβύεξιε 30$: αDD #2,R2 ;R2-> σμεδ. αSτ INσ R1 ;σμεδυΰύικ ξονες ττ : σνς R1, #16. ;χσε ? χLο 10$ ;ξετ εύε... Lοος: ;χχοδιτψ ι χωχοδιτψ ϊξαλι, ;πολα ξετ οϋιβολ σLR R1 ;ξονες τεςνιξαμα νοV #αSτ,R2 ;R2-> αστ 10$: τSτχ ταI(R1) ;τεςνιξαμ ποδλμΰώεξ ? χεQ 20$ ;ξετ χIτ #αS.INς,(R2) ;ώτο-ξιβυδψ χχεδεξο ? χεQ 20$ ;ξετ .ντIN #ντα,#σξαR,R1 ;πςιξρτψ ϊξαλ χσS εRR ;οϋιβλα .ντοUτ #ντα, #σξαR, R1 ;χωχεστι ϊξαλ χσS εRR ;οϋιβλα 20$: αDD #2,R2 ;σμεδυΰύιε αSτ INσ R1 ;σμεδυΰύικ τεςνιξαμ σνς R1,#16. ;χσε ? χLο 10$ ;ξετ χR Lοος ;χσε ποχτοςιτψ !!! εRR: .ςRINτ #UNεR ;σοοβύεξιε οβ οϋιβλε .εθIτ αSτ: .χLλW 16. ;νεστο δμρ αSτ ταI: .χLλχ 16. ;ιξδιλατος ποδλμ.τεςν. .εVεN ντα: .χLλW 3 ;νεστο δμρ ταβμ.αςηυν. σξαR: .χYτε 0 ;νεστο δμρ οδξοηο ϊξαλα ξεLLο: .αSσIZ /δοβςωκ δεξψ/ UNεR: .αSσIZ /ξεοφιδαξξαρ οϋιβλα, λοξεγ πςοηςαννω/ .εVεN τSχ: .χLλW 16.*4 ;στατυσ-βμολι δμρ χσεθ ; τεςνιξαμοχ .εND SταRτ - 208 - 7.8.8. ςελονεξδαγιι ι οηςαξιώεξιρ δμρ οTμAδKι MHOηOTEPMιHAμψHωθ πςοηςανν ιCπOμψϊυετσρ οτμαδώιλ VDT. 7.9. σμυφεβξωε (TS) πςεδσταχμεξξωε ξιφε ναλςολοναξδω νοηυτ ισπομψϊοχατψσρ χ πςοηςανναθ, χωπομξρΰύιθσρ ποδ υπςαχμεξιεν TS-νοξιτοςα. 7.9.1. ναλςολοναξδα .BLIN ναλςολοναξδα ποϊχομρετ σώιτωχατψ σ τεςνιξαμα ϊξαλι χ βυζες πςοηςαννω δο εηο ϊαπομξεξιρ ιμι πολα ξε βυδετ πομυώεξ οδιξ ιϊ ϊξαλοχ αλτιχαγιι. μζοςνατ ναλςολοναξδω: .BLIN AREA,BUFF,BCNT ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ τςεθ σμοχ; BUFF - αδςεσ βυζεςα πςοηςαννω, χ λοτοςοκ πονεύαΰτσρ χχε- δεξωε σ τεςνιξαμα ϊξαλι; BCNT - δμιξα βυζεςα χ βακταθ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 115 ! 0 ! !--------!--------! ! BUFF ! !-----------------! ! BCNT ! !-----------------! ζαλτιώεσλι ναλςολοναξδα σώιτωχαετ ϊξαλι σ τεςνιξαμα ι πονεύαετ ιθ χ βυζες πςοηςαννω, πολα σ λμαχιατυςω ξε βυδετ χχεδεξ οδιξ ιϊ ϊξαλοχ αλτιχαγιι. ποσμε ϊαχεςϋεξιρ ναλςολο- ναξδω R0 σοδεςφιτ ώισμο δεκστχιτεμψξο χχεδεξωθ ϊξαλοχ. εσμι πςι χχοδε βυζες βυδετ πομξοστψΰ ϊαπομξεξ, το ναλςολοναξδα ϊαχεςϋιτσρ σ υσταξοχμεξξων χ 1 βιτον "C" σμοχα σοστορξιρ πςογεσσοςα. ισπομψϊοχαξιε δαξξοκ ναλςολοναξδω όζζελτιχξεε, ώεν .GTLIN. οσοβεξξο πομεϊξο ισπομψϊοχατψ ναλςολοναξδυ πςι - 209 - ςαβοτε σ τεςνιξαμον χ "βμοώξον" ςεφινε. 7.9.2. ναλςολοναξδα .BLOUT ναλςολοναξδα ποϊχομρετ όζζελτιχξο χωχοδιτψ ξα τεςνιξαμ βομψϋυΰ ποςγιΰ ιξζοςναγιι (βμολ). ζοςνατ ναλςολοναξδω: .BLOUT AREA,BUFF,BCNT ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ τςεθ σμοχ; BUF - αδςεσ βυζεςα, ιϊ λοτοςοηο ϊξαλι χωχοδρτσρ ξα τες- νιξαμ; BCNT - ώισμο χωχοδινωθ ϊξαλοχ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 114 ! 0 ! !--------!--------! ! BUFF ! !-----------------! ! BCNT ! !-----------------! ισπομψϊοχαξιε δαξξοκ ναλςολοναξδω ποϊχομρετ συύεστχεξ- ξο νεξψϋε ϊαηςυφατψ γεξτςαμψξωκ πςογεσσος λονπμελσα πςι χωχοδε ξα τεςνιξαμ πο σςαχξεξιΰ σ .TTYOUT. ναλςολοναξδα αξαμοηιώξα .PRINT, ξο χωχοδ οσυύεστχμρετ πο σώετώιλυ. 7.9.3. ναλςολοναξδα .BREAK ναλςολοναξδα οπςεδεμρετ ποδπςοηςαννυ ϊαχεςϋεξιρ, λοτο- ςοκ TS-νοξιτος πεςεδαετ υπςαχμεξιε πςι ξαφατιι ξα λμαχιατυ- ςε τεςνιξαμα υλαϊαξξοκ λμαχιϋι. ζοςνατ ναλςολοναξδω: .BREAK AREA,CHAR,CRTN ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ τςεθ σμοχ; - 210 - CHAR - λοδ ϊξαλα, πςι χχοδε λοτοςοηο σ λμαχιατυςω τεςνι- ξαμα υπςαχμεξιε βυδετ πεςεδαξο ποδπςοηςαννε ϊαχες- ϋεξιρ; CRTN - αδςεσ ποδπςοηςαννω ϊαχεςϋεξιρ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 133 ! 0 ! !--------!--------! ! CHAR ! !-----------------! ! CRTN ! !-----------------! πςοηςαννα χ λαφδωκ νονεξτ νοφετ ινετψ τομψλο οδξυ ποδπςοηςαννυ ϊαχεςϋεξιρ (τιπα BREAK). χωπομξεξιε δαξξοκ ναλςολοναξδω χ πςοηςαννε οτνεξρετ εε πςεδωδυύεε δεκστχιε. εσμι χ λαώεστχε αδςεσα ποδπςοηςαννω ϊαχεςϋεξιρ υλαϊαξ ξυμψ, το δεκστχιε ποσμεδξεκ ναλςολοναξδω .BREAK οτνεξρετσρ. δμρ τοηο, ώτοβω υπςαχμεξιε λαφδωκ ςαϊ πςαχιμψξο πεςε- δαχαμοσψ ποδπςοηςαννε ϊαχεςϋεξιρ, ξεοβθοδινο χ ότοκ ποδπ- ςοηςαννε υλαϊατψ δαξξυΰ ναλςολοναξδυ σ σοοτχετστχυΰύινι παςανετςανι. οπισωχαεναρ χοϊνοφξοστψ νοφετ ισπομψϊοχατψσρ δμρ ασιξθςοξξοηο σιηξαμιϊιςοχαξιρ πςοηςαννε ο ξεοβθοδινοστι χωπομξεξιρ λαλιθ-μιβο οσοβωθ δεκστχικ. τιπιώξων πςινεςον ισπομψϊοχαξιρ δαξξοηο σςεδστχα ρχμρετσρ ιξτεςαλτιχξωκ οτμαδώιλ. 7.9.4. ναλςολοναξδα .DISMO ναλςολοναξδα χωπομξρετ ζυξλγιι, αξαμοηιώξωε λοναξδε νοξιτοςα DISMOUNT (πςελςούαετ λόϋιςοχαξιε λαταμοηα υλαϊαξ- ξοηο υστςοκστχα). ζοςνατ ναλςολοναξδω: .DISMO AREA,DEVICE ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ τςεθ σμοχ; DEVICE - αδςεσ σπεγιζιλαγιι υστςοκστχα χ ζοςνατε .RAD50. - 211 - ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 135 ! 0 ! !--------!--------! ! DEVICE ! !-----------------! ! 0 ! !-----------------! 7.9.5. ναλςολοναξδα .FRSPL ναλςολοναξδα χοϊχςαύαετ χ R0 ώισμο σχοβοδξωθ βμολοχ χ ζακμε σπυμιξηα. ζοςνατ ναλςολοναξδω: .FRSPL AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 107 ! 0 ! !--------!--------! 7.9.6. ναλςολοναξδα .HIOF δαξξαρ ναλςολοναξδω ισπομψϊυετσρ δμρ οτνεξω χωσολοόζ- ζελτιχξοηο ςεφινα ςαβοτω σ τεςνιξαμον. ζοςνατ ναλςολοναξδω: .HIOF AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 120 ! 0 ! !--------!--------! - 212 - 7.9.7. ναλςολοναξδα .HION TS-νοξιτος πςεδοσταχμρετ χωσολοόζζελτιχξωκ ςεφιν ςαβο- τω σ τεςνιξαμον (ζιϊιώεσλοκ μιξιεκ). πςι ότον ςεφινε ςαβοτω ξε πςοιϊχοδιτσρ πςοχεςολ ξα ςαϊμιώξωε υπςαχμρΰύιε σινχομω (τιπα ταβυμργιι) ι ποότονυ συύεστχεξξο σολςαύαετσρ ϊαηςυϊλα γεξτςαμψξοηο πςογεσσοςα. σπεγιαμψξων οβςαϊον οβςαβατωχαΰτσρ τομψλο ϊξαλι αλτιχαγιι, οπςεδεμεξξωε πομψϊοχατεμεν (δομφεξ βωτψ οπςεδεμεξ θοτρ βω οδιξ ϊξαλ αλτιχαγιι). δαξξωκ όζζελ- τιχξωκ ("πςοϊςαώξωκ") ςεφιν τεςνιξαμα σπεγιαμψξο οςιεξτιςο- χαξ ξα σχρϊψ δχυθ λονπμελσοχ, α ταλφε ξα ισπομψϊοχαξιε τες- νιξαμοχ, ινεΰύιθ "βμοώξωκ" ςεφιν ςαβοτω. δαξξαρ ναλςολοναξδα ισπομψϊυετσρ δμρ πεςεχοδα χ χωσο- λοόζζελτιχξωκ ςεφιν ςαβοτω σ τεςνιξαμον. ζοςνατ ναλςολοναξδω: .HION AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 120 ! 1 ! !--------!--------! 7.9.8. ναλςολοναξδα .MOUNT ναλςολοναξδα χωπομξρετ ζυξλγιι, αξαμοηιώξωε λοναξδε νοξιτοςα MOUNT (ϊαπυσλ πςογεσσα λόϋιςοχαξιρ λαταμοηα δμρ υστςοκστχα χξεϋξεκ πανρτι). ζοςνατ ναλςολοναξδω: .MOUNT AREA,DEVICE ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. DEVICE - αδςεσ σπεγιζιλαγιι υστςοκστχα χ λοδε RADIX-50. - 213 - ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 134 ! 0 ! !--------!--------! ! DEVICE ! !-----------------! ! 0 ! !-----------------! οϋιβλι: λοδ πορσξεξιε 1 ταβμιγα υστςοκστχ, λαταμοηι λοτοςωθ λόϋιςυΰτσρ, πεςεπομξεξα. 7.9.9. ναλςολοναξδα .MSEND ναλςολοναξδα ποϊχομρετ χωχεστι στςολυ σοοβύεξιρ ξα υλαϊαξξωκ τεςνιξαμ (ζιϊιώεσλυΰ μιξιΰ). ζοςνατ ναλςολοναξδω: .MSEND AREA,LINE,ADDR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ τςεθ σμοχ; LINE - ξονες ζιϊιώεσλοκ μιξιι, ξα λοτοςυΰ ξεοβθοδινο χωχεστι σοοβύεξιε; ADDR - αδςεσ σοοβύεξιρ χ ζοςνατε .ASCIZ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 127 ! 0 ! !--------!--------! ! LINE ! !-----------------! ! ADDR ! !-----------------! - 214 - 7.9.10. ναλςολοναξδα .SETODT ναλςολοναξδα ισπομψϊυετσρ δμρ αλτιχαγιι TS-νοξιτοςα ξα ϊξαλι, τςεβυενωε οτμαδώιλυ ODT. χ ότον ςεφινε TS-νοξιτος ςασσνατςιχαετ χσε ϊξαλι χ λαώεστχε ϊξαλοχ αλτιχαγιι ϊα ισλ- μΰώεξιεν γιζς, ",", "$" ι ";". ζοςνατ ναλςολοναξδω: .SETODT AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 111 ! 1 ! !--------!--------! 7.9.11. ναλςολοναξδα .RSTODT ναλςολοναξδα ισπομψϊυετσρ δμρ οτνεξω ςεφινα αλτιχαγιι οτμαδώιλα ODT. ζοςνατ ναλςολοναξδω: .RSTODT AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 111 ! 0 ! !--------!--------! 7.9.12. ναλςολοναξδα .TRMTYPE ναλςολοναξδα χοϊχςαύαετ χ R0 ώισμο, οπςεδεμρΰύεε τιπ τεςνιξαμα, ισπομψϊυενοηο σ τελυύεκ πςοηςαννοκ. ζοςνατ ναλςολοναξδω: - 215 - .TRMTYPE AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 137 ! 0 ! !--------!--------! δοπυστινωε λοδω, χοϊχςαύαενωε χ R0: λοδ τεςνιξαμ --- -------- 0 (ξειϊχεστξωκ) 1 VT-52 2 VT-100 3 VT-340 4 BTA-2000-2 5 BTA-2000-15 6 BTA-2000-30 7 VDT-52100 8 VDT-52130 7.9.13. ναλςολοναξδα .TSLINE ναλςολοναξδα χοϊχςαύαετ χ R0 ξονες μιξιι, σχρϊαξξοκ σ πςοηςαννοκ. χσε μιξιι ξυνεςυΰτσρ χ TS-νοξιτοςε σ 1 χ τον ποςρδλε, λαλ βωμο υλαϊαξο πςι ηεξεςαγιι. χ ξαώαμε ιδυτ ζιϊιώεσλιε μιξιι, ϊατεν ιδυτ μιξιι δμρ αχτοξονξωθ ϊαδαξικ, ποσμεδξινι ξυνεςυΰτσρ χιςτυαμψξωε μιξιι. ζοςνατ ναλςολοναξδω: .TSLINE AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 110 ! 0 ! !--------!--------! πςινεώαξιε. δαξξαρ ναλςολοναξδα νοφετ ισπομψϊοχατψσρ πςοηςαννοκ δμρ οπςεδεμεξιρ τοηο, χωπομξρετσρ μι οξα ποδ υπςαχμεξιεν TS-νοξιτοςα ιμι ξετ. δμρ ότοηο πςεδχαςιτεμψξο - 216 - ξυφξο χωπομξιτψ ναλςολοναξδυ .SERR, α ϊατεν .TSLINE. εσμι ποσμεδξρρ ναλςολοναξδα ϊαχεςϋιτσρ βεϊ οϋιβλι, το ότο οϊξα- ώαετ, ώτο πςοηςαννα χωπομξρετσρ ποδ υπςαχμεξιεν TS-νοξιτοςα. χ πςοτιχξον σμυώαε - ισπομψϊυετσρ οδιξ ιϊ νοξιτοςοχ RM, SJ, FB, XM. 7.9.14. ναλςολοναξδα .TSTACT ναλςολοναξδα οπςεδεμρετ ξαμιώιε χ βυζεςε τεςνιξαμα ϊξαλα αλτιχαγιι, εύε ξε σώιταξξοηο πςοηςαννοκ. ζοςνατ ναλςολοναξδω: .TSTACT AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 123 ! 0 ! !--------!--------! εσμι χ βυζεςε χχοδα τεςνιξαμα (χ TS-νοξιτοςε) ξετ ξι οδξοηο ϊξαλα αλτιχαγιι, το ποσμε ναλςολοναξδω βυδετ υστα- ξοχμεξ χ 1 βιτ "C" σμοχα σοστορξιρ πςογεσσοςα. χ πςοτιχξον σμυώαε - βιτ "C" σβςοϋεξ. 7.9.15. ναλςολοναξδα .TSTER ναλςολοναξδα ποϊχομρετ οπςεδεμιτψ ξαμιώιε οϋιβολ πςι χχοδε σ τεςνιξαμα (ποσμεδοχατεμψξωκ ιξτεςζεκσ). ζοςνατ ναλςολοναξδω: .TSTER AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 116 ! 0 ! !--------!--------! - 217 - ξαμιώιε οϋιβολ πςι χχοδε σ τεςνιξαμα οπςεδεμρετσρ υσταξοχμεξξων χ 1 βιτον "C" σμοχα σοστορξιρ πςογεσσοςα ποσ- με ϊαχεςϋεξιρ ναλςολοναξδω. χοϊνοφξω οϋιβλι, οπςεδεμρενωε αππαςατξο (παςιτετ, πεςεπομξεξιε χξυτςεξξεηο βυζεςα ι τ.π.), α ταλφε οϋιβλι, σχρϊαξξωε σ πεςεπομξεξιεν βυζεςα χχοδα TS-νοξιτοςα. 7.9.16. ναλςολοναξδα .TSTOP χ TS-νοξιτοςε ναλςολοναξδα .SETTOP ξε ιϊνεξρετ δεκστ- χιτεμψξοηο ςαϊνεςα πανρτι, χωδεμεξξοκ πςοηςαννε, χ οτμιώιε οτ οσταμψξωθ νοξιτοςοχ ςαζοσ. πςι ότον ναλςολοναξδα νοφετ χεςξυτψ χεςθξικ αδςεσ χιςτυαμψξοκ πανρτι, υφε χωδεμεξξοκ πςοηςαννε. ότο σχρϊαξο σ τεν, ώτο ξοςναμψξοκ δμρ πςοηςανν (χ σιστενε ςαζοσ) ρχμρετσρ στςατεηιρ, πςι λοτοςοκ ϊαδαξιε σταςαετσρ πομυώιτψ ναλσιναμψξο χοϊνοφξυΰ πανρτψ, ώτο ρχμρετσρ πςοστο ξεπςιενμενων δμρ ςαβοτω χ υσμοχιρθ ςαϊδεμε- ξιρ χςενεξι νεφδυ νξοηινι πςοηςαννανι. υπςαχμεξιε ςαϊνεςον πανρτι, χωδεμρενοκ πςοηςαννε, οβωώξο οσυύεστχμρετσρ λοναξδοκ νοξιτοςα MEMORY. ςαϊνες πανρτι, υλαϊαξξωκ χ ποσμεδξεκ λοναξδε MEMORY, σώιταετσρ ξοςναμψξων ι χωδεμρετσρ πςοηςαννε πςι εε ϊαηςυϊλε. ναλςολο- ναξδα .TSTOP νοφετ ισπομψϊοχατψσρ δμρ διξανιώεσλοηο ιϊνεξε- ξιρ ςαϊνεςα πανρτι, χωδεμεξξοκ πςοηςαννε. πςι ότον ναλςολο- ναξδα ολαϊωχαετ χμιρξιε τομψλο ξα τελυύυΰ χωπομξρενυΰ πςοη- ςαννυ. ζοςνατ ναλςολοναξδω: .TSTOP AREA,TOPADR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; TOPADR - ϊαπςοϋεξξωκ πςοηςαννοκ χεςθξικ αδςεσ οπεςατιχξοκ πανρτι, λοτοςωκ πςεδπομαηαετσρ ισπομψϊοχατψ. ποσμε χωπομξεξιρ ναλςολοναξδω R0 βυδετ σοδεςφατψ δεκστχιτεμψξωκ χεςθξικ αδςεσ, δοστυπξωκ πςοηςαννε. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 141 ! 0 ! !--------!--------! ! TOPADR ! !-----------------! ϊαπςεύεξο ισπομψϊοχατψ δαξξυΰ ναλςολοναξδυ πςι ϊαπυσλε πςοηςαννω σ οτμαδώιλον (RUN/DEBUG). ξεμψϊρ ταλφε ισπομψϊο- χατψ .TSTOP, εσμι χ σηεξεςιςοχαξξον TS-νοξιτοςε ϊαπςεύεξ σχοππιξη. χ μΰβον ιϊ πεςεώισμεξξωθ σμυώαεχ ναλςολοναξδα - 218 - χωπομξρετσρ αξαμοηιώξο .SETTOP. πςινεώαξιε. δμρ υλαϊαξιρ ςαϊνεςα χωδεμρενοκ ζακμυ .SAV πανρτι νοφετ ισπομψϊοχατψσρ πςοηςαννα SIZE. 7.9.17. ναλςολοναξδα .TTIME ναλςολοναξδα οπςεδεμρετ τακν-αυτ (ιξτεςχαμ χςενεξι) δμρ σμεδυΰύεκ οπεςαγιι χχοδα σ τεςνιξαμα. ναλςολοναξδα ποϊ- χομρετ ϊαδατψ νιξιναμψξωκ ιξτεςχαμ χςενεξι, λοτοςωκ δοπυσ- τιν νεφδυ χωδαώεκ ϊαπςοσα ξα ώτεξιε ι ϊαχεςϋεξιεν χχοδα σ λμαχιατυςω (ξαπςινες, ϊαχεςϋεξιε χχοδα στςολι). χ δαξξοκ ναλςολοναξδε υλαϊωχαετσρ ϊξαλ, λοτοςωκ πομυώιτ πςοηςαννα χ σμυώαε ιστεώεξιρ χςενεξξοηο ιξτεςχαμα. ζοςνατ ναλςολοναξδω: .TTIME AREA,TIME,CHAR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ τςεθ σμοχ; TIME - ιξτεςχαμ χςενεξι χ 0.5 σελυξδαθ; CHAR - ϊξαλ, πομυώαενωκ πςοηςαννοκ χ σμυώαε τακν-αυτα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 117 ! 0 ! !--------!--------! ! TIME ! !-----------------! ! CHAR ! !-----------------! ϊξαώεξιε τακν-αυτα, εσμι οξο ξεοβθοδινο, δομφξο ϊαδα- χατψσρ πεςεδ λαφδοκ ξοχοκ οπεςαγιεκ ώτεξιρ σ τεςνιξαμα, τ.ε. πεςεδ ώτεξιεν λαφδοκ οώεςεδξοκ ποςγιι ιξζοςναγιι. 7.10. ςεϊιδεξτξωε βιβμιοτελι (TS) TS-νοξιτος σοδεςφιτ σςεδστχα, ποϊχομρΰύιε ισπομψϊοχατψ οδξυ ιμι ξεσλομψλο ςεϊιδεξτξωθ, ςαϊδεμρενωθ νεφδυ ξεσλομψ- λινι πςοηςαννανι, βιβμιοτελ (ισπομξρΰύιθ σιστεν) ιμι οβμασ- τεκ δαξξωθ. πεςεώισμεξξωε σςεδστχα νοφξο ισπομψϊοχατψ σμε- δυΰύιν οβςαϊον: - 219 - - δμρ όλοξονιι πανρτι ξεσλομψλο πςοηςανν νοηυτ ισπομψϊοχατψ οδξυ λοπιΰ βιβμιοτελι χνεστο τοηο, ώτοβω χ λαφδοκ πςοηςαννε ινετψ εε σοβστχεξξυΰ λοπιΰ; - ςαϊμιώξωε πςοηςαννω νοηυτ οβνεξιχατψσρ δαξξωνι ποσςεδστχον οβύεκ οβμαστι πανρτι, λ λοτοςοκ λαφδαρ πςοηςαννα νοφετ ινετψ ξεποσςεδστχεξξωκ δοστυπ. ιξζοςναγιρ ο χσεθ ςεϊιδεξτξωθ βιβμιοτελαθ ι οβμαστρθ πανρτι δομφξα υλαϊωχατψσρ πςι ηεξεςαγιι TS-νοξιτοςα. πςι ϊαηςυϊλε TS-νοξιτοςα χσε υλαϊαξξωε ζακμω βιβμιοτελ ι οβμασ- τεκ δαξξωθ σώιτωχαΰτσρ χ πανρτψ. χσε οξι οσταΰτσρ ςεϊιδεξτ- ξωνι χ τεώεξιε χσεηο χςενεξι ςαβοτω TS-νοξιτοςα, δαφε εσμι οξι ξε ισπομψϊυΰτσρ ξι χ οδξοκ πςοηςαννε. ναλςολοναξδω, οπισαξξωε ξιφε, ποϊχομρΰτ πςοηςαννε πομυώιτψ δοστυπ λ ςεϊιδεξτξοκ βιβμιοτελε ιμι οβμαστι δαξ- ξωθ. ποσμε υσταξοχλι σχρϊι ώαστψ χιςτυαμψξοηο πςοστςαξστχα πςοηςαννω νοφετ βωτψ οτοβςαφεξα δμρ δοστυπα λο χσεκ ιμι ώαστι βιβμιοτελι. 7.10.1. ναλςολοναξδα .SHARE ναλςολοναξδα υσταξαχμιχαετ σχρϊψ πςοηςαννω σ ςεϊιδεξτ- ξοκ βιβμιοτελοκ. ζοςνατ ναλςολοναξδω: .SHARE AREA,NAME ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; NAME - αδςεσ δχυσμοχξοκ ταβμιγω, σοδεςφαύεκ ινρ βιβμιοτε- λι ιμι οβμαστι; ινρ σοστοιτ ιϊ ϋεστι ϊξαλοχ χ λοδε RAD50; ινρ βιβμιοτελι σοχπαδαετ σ ινεξεν ζακμα, ιϊ λοτοςοηο οξα βωμα ϊαηςυφεξα; υλαϊαξξοε ινρ δομφξο βωτψ οπςεδεμεξο πςι ηεξεςαγιι TS-νοξιτοςα; εσμι αδςεσ ςαχεξ ξυμΰ, το ναλςολοναξδα υστςαξιτ σχρϊψ πςοηςαννω σο χσενι βιβμιοτελανι ι χοσσταξοχιτ ξος- ναμψξοε σοστορξιε οτοβςαφεξιρ χιςτυαμψξοηο πςοστ- ςαξστχα πςοηςαννω. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 143 ! 0 ! !--------!--------! ! NAME ! !-----------------! δεκστχιε ναλςολοναξδω σχοδιτσρ τομψλο λ υσταξοχμεξιΰ - 220 - σχρϊι νεφδυ πςοηςαννοκ ι ςεϊιδεξτξοκ βιβμιοτελοκ. πςι ότον οτοβςαφεξιε χιςτυαμψξοηο αδςεσξοηο πςοστςαξστχα πςοηςαννω ξε ιϊνεξρετσρ. νοφξο χ οδξοκ πςοηςαννε ισπομψϊοχατψ ξεσ- λομψλο ςεϊιδεξτξωθ βιβμιοτελ. οϋιβλι: λοδ πορσξεξιε 1 υλαϊαξξαρ ςεϊιδεξτξαρ βιβμιοτελα οτσυτστχυετ 7.10.2. ναλςολοναξδα .SHMAP ποσμε υσταξοχμεξιρ σχρϊι πςοηςαννω σ βιβμιοτελοκ σ πονούψΰ ναλςολοναξδω .SHARE, ώαστψ χιςτυαμψξοηο πςοστςαξστ- χα πςοηςαννω νοφετ βωτψ οτοβςαφεξο ξα χσΰ βιβμιοτελυ ιμι ξα ώαστψ βιβμιοτελι πςι πονούι ναλςολοναξδω .SHMAP. ζοςνατ ναλςολοναξδω: .SHMAP AREA,PAGE,OFF,SIZE ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ ώετωςεθ σμοχ; PAGE - ξονες στςαξιγω (0-7) χιςτυαμψξοηο πςοστςαξστχα πςοηςαννω, σ λοτοςοκ βυδετ ξαώιξατψσρ οβμαστψ οτοβςαφαεναρ ξα βιβμιοτελυ; OFF - σνεύεξιε χ βμολαθ πο 64 βακτα οτξοσιτεμψξο ξαώαμα βιβμιοτελι, σ λοτοςοηο ξαώιξαετσρ ϊοξα βιβμιοτελι, ποπαδαΰύαρ χ οτοβςαφεξιε πςοηςαννω; ότο ποϊχομρετ οτοβςαφατψ πςοηςαννυ ξα ςαϊμιώξωε υώαστλι βιβμιο- τελι; SIZE - δμιξα υώαστλα χ βμολαθ πο 64 βακτα, οτοβςαφαενοηο ξα βιβμιοτελυ; εσμι υλαϊαξξαρ δμιξα πςεχωϋαετ ςαϊ- νες οδξοκ χιςτυαμψξοκ στςαξιγω πςοηςαννω, το αχτο- νατιώεσλι βυδυτ ισπομψϊοχατψσρ ποσμεδυΰύιε στςαξι- γω. ξονεςα στςαξιγ ινεΰτ σμεδυΰύεε σοοτχετστχιε σ χις- τυαμψξων πςοστςαξστχον πςοηςαννω: ξονες στςαξιγω αδςεσα -------------- ------ 0 000000 - 017777 1 020000 - 037777 2 040000 - 057777 3 060000 - 077777 4 100000 - 117777 5 120000 - 137777 6 140000 - 157777 - 221 - 7 160000 - 177777 ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 143 ! 1 ! !--------!--------! ! PAGE ! !-----------------! ! OFF ! !-----------------! ! SIZE ! !-----------------! οϋιβλι: λοδ πορσξεξιε 1 πςοηςαννα ξε υσταξοχιμα σχρϊψ ξι σ οδξοκ ςεϊιδεξτξοκ βιβμιοτελοκ ιμι οβμαστψΰ δαξξωθ. δαξξαρ ναλςολοναξδα ιϊνεξρετ οτοβςαφεξιε τομψλο δμρ στςαξιγω, υλαϊαξξοκ πςι εε χωϊοχε, εσμι δμιξα οτοβςαφαενοκ οβμαστι πςεχωϋαετ ςαϊνες στςαξιγω, το ι σμεδυΰύιθ στςαξιγ. οτοβςαφεξιε οσταμψξωθ στςαξιγ χιςτυαμψξοηο πςοστςαξστχα ξε ιϊνεξρετσρ, δαφε εσμι οξι βωμι οτοβςαφεξω ξα δςυηιε ςεϊι- δεξτξωε βιβμιοτελι. ταλιν οβςαϊον, ςαϊμιώξωε στςαξιγω πςοη- ςαννω νοηυτ βωτψ οτοβςαφεξω ξα ςαϊμιώξωε βιβμιοτελι. πςοη- ςαννω ςεαμψξοηο χςενεξι νοηυτ οτοβςαφατψ στςαξιγυ 7 ξα στςαξιγυ χχοδα/χωχοδα, α δςυηιε στςαξιγω - ξα ςεϊιδεξτξωε βιβμιοτελι. ισπομψϊοχαξιε ςεϊιδεξτξωθ βιβμιοτελ ξε ιϊνεξρετ ςαϊνε- ςα πανρτι, χωδεμρενοκ πςοηςαννε. πςινεώαξιε. σμεδυετ πονξιτψ, ώτο οβωώξο στςαξιγα 7 (χιςτυαμψξαρ οβμαστψ σ αδςεσανι 160000-177777) ξε οτοβςα- φαετσρ ξα ζιϊιώεσλυΰ πανρτψ (ςαϊνες πςοηςαννω ξε πςεχωϋαετ 56 λβακτ), ξο νοφετ οτοβςαφατψσρ, οπισαξξων χωϋε σποσοβον ξα ςεϊιδεξτξυΰ βιβμιοτελυ ιμι οβύυΰ οβμαστψ δαξξωθ. 7.11. αχτοξονξωε ϊαδαξιρ (TS) πςεδσταχμεξξωε ξιφε ναλςολοναξδω οβεσπεώιχαΰτ πςοηςαν- νυ πομψϊοχατεμρ σςεδστχανι, ποϊχομρΰύινι ϊαπυσλατψ ι λοξτ- ςομιςοχατψ χωπομξεξιε αχτοξονξωθ ϊαδαξικ. - 222 - 7.11.1. ναλςολοναξδα .DJKILL ναλςολοναξδα πςελςαύαετ χωπομξεξιε αχτοξονξοηο ϊαδαξιρ ξα υλαϊαξξοκ μιξιι. ζοςνατ ναλςολοναξδω: .DJKILL AREA,LINE ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; LINE - ξονες μιξιι, ξα λοτοςοκ χωπομξρετσρ υδαμρενοε αχτοξονξοε ϊαδαξιε. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 132 ! 2 ! !--------!--------! ! LINE ! !-----------------! οϋιβλι: λοδ πορσξεξιε 1 υλαϊαξ ξεδοπυστινωκ ξονες μιξιι. 7.11.2. ναλςολοναξδα .DJSTART ναλςολοναξδα οβεσπεώιχαετ ϊαπυσλ αχτοξονξοηο ϊαδαξιρ (ϊαδαξιε οζοςνμεξξοε χ χιδε λοναξδξοηο ζακμα). ζοςνατ ναλςολοναξδω: .DJSTART AREA,DJOB ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; DJOB - αδςεσ στςολι χ ζοςνατε .ASCIZ, σοδεςφαύεκ σπεγιζι- λαγιΰ λοναξδξοηο ζακμα. - 223 - ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 132 ! 0 ! !--------!--------! ! DJOB ! !-----------------! εσμι ινεετσρ σχοβοδξαρ μιξιρ δμρ αχτοξονξοηο ϊαδαξιρ, το λοναξδξωκ ζακμ ϊαπυσλαετσρ ξα χωπομξεξιε. ξονες μιξιι, ξα λοτοςοκ ϊαπυσλαετσρ ϊαδαξιε, χοϊχςαύαετσρ χ R0. αχτοξον- ξοε ϊαδαξιε βυδετ ινετψ χσε πςιχιμεηιι, λοτοςωνι οβμαδαετ ϊαπυστιχϋικ εηο πομψϊοχατεμψ. οϋιβλι: λοδ πορσξεξιε 1 ξετ ξι οδξοκ σχοβοδξοκ μιξιι δμρ ϊαπυσλα αχτοξονξοηο ϊαδαξιρ. 7.11.3. ναλςολοναξδα .DJTST ναλςολοναξδα οπςεδεμρετ σοστορξιε μιξιι, πςεδξαϊξαώεξ- ξοκ δμρ αχτοξονξωθ ϊαδαξικ. ζοςνατ ναλςολοναξδω: .DJTST AREA,LINE ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; LINE - ξονες μιξιι, σοστορξιε λοτοςοκ (σχοβοδξα/ϊαξρτα) οπςεδεμρετσρ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 132 ! 1 ! !--------!--------! ! LINE ! !-----------------! εσμι μιξιρ ϊαξρτα, τ.ε. ξα ξεκ χωπομξρετσρ αχτοξονξοε ϊαδαξιε, το ναλςολοναξδα ϊαχεςϋιτσρ σο σβςοϋεξξων βιτον "C". χ πςοτιχξον σμυώαε - βιτ "C" βυδετ υσταξοχμεξ (μιξιρ - σχοβοδξα). - 224 - 7.12. ποώτοχωε ρύιλι (TS) αππαςατ "ποώτοχωθ ρύιλοχ" ποϊχομρετ ςαϊμιώξων πςοηςαν- ναν, χωπομξρΰύινσρ ποδ υπςαχμεξιεν TS-νοξιτοςα, οβνεξιχατψ- σρ σοοβύεξιρνι. πςοηςαννα ινεετ χοϊνοφξοστψ "πομοφιτψ" σοοβύεξιε χ ρύιλ. πςι ότον σοοβύεξιε σταχιτσρ χ λοξεγ οώεςεδι σοοβύε- ξικ. μΰβαρ δςυηαρ πςοηςαννα νοφετ ιϊχμεώψ σοοβύεξιε (οώε- ςεδξοε) ιϊ οώεςεδι λ υλαϊαξξονυ ρύιλυ. λαφδωκ ρύιλ ινεετ υξιλαμψξοε ινρ δμιξοκ ϋεστψ ϊξαλοχ. πςι ποσωμλε ιμι πςιενε σοοβύεξιρ πςοηςαννω υλαϊωχαΰτ ξεοβ- θοδινωκ ρύιλ πο εηο ινεξι. ινεξα ρύιλοχ οπςεδεμρΰτσρ διξα- νιώεσλι, τ.ε. πςι χωπομξεξιι πςοηςανν. ρύιλ σταξοχιτσρ "αλτιχξων", εσμι θοτρ βω οδξα πςοηςαννα πονεστιμα χ ξεηο σοοβύεξιε ιμι οφιδαετ οτ ξεηο σοοβύεξιρ. λοηδα ρύιλ σταξο- χιτσρ "ξεαλτιχξων", το οξ χοϊχςαύαετσρ χ σπισολ σχοβοδξωθ ρύιλοχ. πςινεώαξιε. πςι ηεξεςαγιι TS-νοξιτοςα οπςεδεμρετσρ ναλσιναμψξοε ώισμο οδξοχςενεξξο αλτιχξωθ ρύιλοχ, ναλσιναμψ- ξοε ώισμο σοοβύεξικ, πονεύεξξωθ χο χσε ρύιλι οδξοχςενεξξο, ι ναλσιναμψξωκ ςαϊνες σοοβύεξιρ. εσμι σοοβύεξιε πονεύεξο χ ρύιλ (χ οώεςεδψ λ ρύιλυ), το οξο βυδετ ταν ξαθοδιτψσρ, πολα δςυηαρ πςοηςαννα ξε ιϊχμεώετ εηο, μιβο TS-νοξιτος ξε βυδετ πεςεϊαηςυφεξ. ότο ποϊχομρετ οδξοκ πςοηςαννε πονεστιτψ χ ρύιλ σοοβύεξιρ, λοτοςωε βυδυτ οβςαβοταξω δςυηοκ πςοηςαννοκ, ϊαηςυφεξξοκ ποϊδξεε. 7.12.1. ναλςολοναξδα .MGET ναλςολοναξδα ισπομψϊυετσρ δμρ ιϊχμεώεξιρ σοοβύεξικ ιϊ ποώτοχοηο ρύιλα χ βυζες πςοηςαννω πομψϊοχατεμρ. εσμι χ ρύι- λε ξετ ξι οδξοηο σοοβύεξιρ, το ναλςολοναξδα ϊαχεςϋαετσρ σ οϋιβλοκ, ινεΰύεκ λοδ 3. ζοςνατ ναλςολοναξδω: .MGET AREA,BOX,BUFF,BCNT ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ ώετωςεθ σμοχ; BOX - αδςεσ στςολι ιϊ ϋεστι ϊξαλοχ, σοδεςφαύικ ινρ τςε- βυενοηο ποώτοχοηο ρύιλα χ λοδε λοι-7; BUFF - αδςεσ βυζεςα, χ λοτοςωκ ξεοβθοδινο πονεστιτψ σοοβ- ύεξιε; - 225 - BCNT - δμιξα βυζεςα χ βακταθ. εσμι σοοβύεξιε πςιξρτο, το ποσμε ϊαχεςϋεξιρ ναλςολο- ναξδω R0 βυδετ σοδεςφατψ δεκστχιτεμψξωκ ςαϊνες σοοβύεξιρ χ βακταθ. εσμι δμιξα σοοβύεξιρ βομψϋε βυζεςα, το ξεχνεστιχ- ϋαρσρ ώαστψ σοοβύεξιρ βυδετ οτβςοϋεξα (ποτεςρξα). ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 105 ! 0 ! !--------!--------! ! BOX ! !-----------------! ! BUFF ! !-----------------! ! BCNT ! !-----------------! οϋιβλι: λοδ πορσξεξιε 0 οϋιβολ ξετ; σοοβύεξιε πομξοστψΰ πςιξρτο; 3 χ υλαϊαξξον ρύιλε ξετ σοοβύεξικ; 4 δμιξα πςιξρτοηο σοοβύεξιρ πςεχωϋαετ ςαϊνες βυζεςα. 7.12.2. ναλςολοναξδα .MGETWAIT ναλςολοναξδα πεςεχοδιτ πςοηςαννυ πομψϊοχατεμρ χ σοσ- τορξιε οφιδαξιρ δο τεθ πος, πολα χ υλαϊαξξον ρύιλε ξε πορ- χιτσρ σοοβύεξιε. ζοςνατ ναλςολοναξδω: .MGETWAIT AREA,BOX,BUFF,BCNT αςηυνεξτω ναλςολοναξδω ι ταβμιγα εντ ινεΰτ αξαμοηιώξωκ σνωσμ ι στςυλτυςυ, λαλ ι δμρ .MGET. οϋιβλι: λοδ πορσξεξιε 0 οϋιβολ ξετ; σοοβύεξιε πομξοστψΰ πςιξρτο; 1 ξετ σχοβοδξοηο ποώτοχοηο ρύιλα; 4 δμιξα πςιξρτοηο σοοβύεξιρ πςεχωϋαετ ςαϊνες βυζεςα. - 226 - 7.12.3. ναλςολοναξδα .MPUT ναλςολοναξδα πονεύαετ σοοβύεξιε χ ποώτοχωκ ρύιλ. ζοςνατ ναλςολοναξδω: .MPUT AREA,BOX,BUFF,BCNT ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ ώετωςεθ σμοχ; BOX - αδςεσ στςολι ιϊ ϋεστι βακτοχ, σοδεςφαύεκ ινρ ποώ- τοχοηο ρύιλα; BUFF - αδςεσ βυζεςα, χ λοτοςον ςαϊνεύεξο σοοβύεξιε; BCNT - ςαϊνες σοοβύεξιρ χ βακταθ. εσμι ρύιλ σ υλαϊαξξων ινεξεν υφε συύεστχυετ (ρχμρετσρ αλτιχξων), το σοοβύεξιε πονεύαετσρ χ λοξεγ οώεςεδι οφιδαΰ- ύιθ οβςαβοτλι σοοβύεξικ. πςοηςαννα, ποσμαχϋαρ σοοβύεξιε, πςοδομφαετ σχοε χωπομξεξιε, ξε δοφιδαρσψ πολα οξο βυδετ ιϊχμεώεξο δςυηοκ πςοηςαννοκ. χο χςενρ χωπομξεξιρ ναλςολο- ναξδω σοοβύεξιε λοπιςυετσρ ιϊ βυζεςα πςοηςαννω χ σιστενξωκ βυζες. ταλιν οβςαϊον πςοηςαννα, ποσμαχϋαρ σοοβύεξιε, νοφετ ισπομψϊοχατψ βυζες δμρ δςυηιθ γεμεκ. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 104 ! 0 ! !--------!--------! ! BOX ! !-----------------! ! BUFF ! !-----------------! ! BCNT ! !-----------------! οϋιβλι: λοδ πορσξεξιε 1 ξετ σχοβοδξοηο ποώτοχοηο ρύιλα; 2 ξετ σχοβοδξοηο σιστενξοηο βυζεςα δμρ θςαξεξι σοοβύεξιρ; 4 δμιξα σοοβύεξιρ πςεχωϋαετ ναλσιναμψξυΰ, υλαϊαξξυΰ πςι ηεξεςαγιι. εσμι ποσωμαενοε σοοβύεξιε ινεετ δμιξυ, πςεχωϋαΰύυΰ ναλσιναμψξυΰ, το οστατολ σοοβύεξιρ οτβςασωχαετσρ. - 227 - 7.13. σςεδστχα ςεαμψξοηο χςενεξι (TS) TS-νοξιτος νοφετ χλμΰώατψ χ σεβρ σςεδστχα, οβεσπεώι- χαΰύιε ςαβοτυ πςοηςαννω χ ςεφινε ςεαμψξοηο χςενεξι. ότι σςεδστχα δομφξω χλμΰώατψσρ χ πςογεσσε ηεξεςαγιι ι ποϊχο- μρΰτ: - οβεσπεώιτψ δοστυπ πςοηςαννε πομψϊοχατεμρ λ στςαξι- γε χχοδα/χωχοδα, τ.ε. λ ςεηιστςαν υστςοκστχ; - "ποδλμΰώιτψ" χελτος πςεςωχαξιρ χξεϋξεηο υστςοκστχα λ ποδπςοηςαννε ϊαχεςϋεξιρ, λοτοςαρ βυδετ ϊαπυύεξα πο πςεςωχαξιΰ οτ ότοηο υστςοκστχα ξα υλαϊαξξον πομψϊοχατεμεν πςιοςιτετε; πςιοςιτετ ταλιθ ποδπςοη- ςανν ϊαχεςϋεξιρ χωϋε, ώεν υ ϊαδαξικ, χωπομξρΰύιθσρ χ ςεφινε ςαϊδεμεξιρ χςενεξι; - ϊαλςεπιτψ πςοηςαννυ χ πανρτι (τ.ε. ϊαπςετιτψ εε σχοπιξη) ξα τςεβυενοε χςενρ σ τεν, ώτοβω οβεσπε- ώιτψ βωστςυΰ ςεαλγιΰ ξα πςεςωχαξιρ; - πςεοβςαϊοχατψ χιςτυαμψξωκ αδςεσ πςοηςαννω χ ζιϊι- ώεσλικ δμρ πςαχιμψξοκ ςαβοτω σ χξεϋξινι υστςοκστ- χανι, ινεΰύινι πςρνοκ δοστυπ λ οπεςατιχξοκ πανρτι. πςοηςαννω, ισπομψϊυΰύιε ςεφιν ςαβοτω ςεαμψξοηο χςενε- ξι, δομφξω βωτψ πςιχιμεηιςοχαξξωνι. πςοηςαννω, ϊαπυύεξξωε χ λαώεστχε αχτοξονξωθ ϊαδαξικ πςι ϊαπυσλε TS-νοξιτοςα, ρχμρΰτσρ πςιχιμεηιςοχαξξωνι. πςι- χιμεηιρ πςοηςαννω πομξοστψΰ οπςεδεμρετσρ πςιχιμεηιρνι πομψ- ϊοχατεμρ. 7.13.1. δοστυπ λ στςαξιγε χχοδα/χωχοδα οσξοχξοκ χοϊνοφξοστψΰ, λοτοςοκ δομφξα οβμαδατψ πςοη- ςαννα, χωπομξρεναρ χ ςεφινε ςεαμψξοηο χςενεξι, ρχμρετσρ δοστυπ λ ςεηιστςαν χξεϋξεηο υστςοκστχα, τ.ε. λ στςαξιγε χχοδα/χωχοδα, ινεΰύεκ ζιϊιώεσλιε αδςεσα ξα ϋιξε 760000-777777. οβωώξαρ πςοηςαννα, χωπομξρΰύαρσρ χ ςεφινε ςαϊδεμεξιρ χςενεξι, ξε ινεετ δοστυπα λ ότιν αδςεσαν. πςι ότον χιςτυαμψξαρ οβμαστψ πςοηςαννω (σ αδςεσανι 160000-177777) οτοβςαφαετσρ ξα στςαξιγυ χχοδα/χωχοδα, α ξε ξα οβμαστψ πανρτι, ποδοβξυΰ RMON, λαλ χ οσταμψξωθ νοξιτοςαθ ςαζοσ. ότο σδεμαξο δμρ τοηο, ώτοβω πςοηςαννω, ξεποσςεδστ- χεξξο οβςαύαΰύιεσρ λ σνεύεξιρν χ RMON, χωπομξρμισψ πςαχιμψ- ξο. δοστυπ λ ςεηιστςαν χξεϋξιθ υστςοκστχ (στςαξιγε χχοδα/χωχοδα) νοφετ βωτψ οβεσπεώεξ χ TS-νοξιτοςε δχυνρ σπο- σοβανι: - οτοβςαφεξιεν χεςθξεκ στςαξιγω χιςτυαμψξοηο πςοστ- ςαξστχα πςοηςαννω ξα στςαξιγυ χχοδα/χωχοδα; - 228 - - σ πονούψΰ σπεγιαμψξωθ ναλςολοναξδ; χ ότον σμυώαε οτοβςαφεξιε σταςϋιθ αδςεσοχ χιςτυαμψξοηο πςοστ- ςαξστχα ξα στςαξιγυ χχοδα/χωχοδα ξε χωπομξρετσρ. πεςχωκ σποσοβ οβεσπεώιχαετ βομεε βωστςωκ δοστυπ λ ςεηιστςαν χξεϋξιθ υστςοκστχ πο σςαχξεξιΰ σ ισπομψϊοχαξιεν ναλςολοναξδ δμρ λαφδοηο οβςαύεξιρ λ ςεηιστςυ. οδξαλο πεςχωκ σποσοβ ξε πςιηοδεξ, εσμι πςοηςαννα δομφξα ξεποσςεδστχεξξο οβςαύατψσρ λ ρώεκλαν RMON. πςαχιμψξων ςεϋεξιεν ότοκ πςοβμε- νω ρχμρετσρ ισπομψϊοχαξιε ναλςολοναξδω .GVAL δμρ δοστυπα λ ρώεκλαν RMON. χ ότον σμυώαε δοστυπ λ ρώεκλαν RMON βυδετ χωπομξρτψσρ πςαχιμψξο ξεϊαχισινο οτ οτοβςαφεξιρ σταςϋιθ αδςεσοχ χιςτυαμψξοηο πςοστςαξστχα πςοηςαννω. 7.13.2. οβςαβοτλα πςεςωχαξικ TS-νοξιτος ποϊχομρετ "ποδλμΰώιτψ" ποδπςοηςαννυ ϊαχες- ϋεξιρ χ πςοηςαννε πομψϊοχατεμρ λ χελτοςυ πςεςωχαξιρ οτ χξεϋξεηο υστςοκστχα. πςι ότον χσρλικ ςαϊ, εσμι πςοισθοδιτ πςεςωχαξιε, TS-νοξιτος πεςεδαετ υπςαχμεξιε ποδπςοηςαννε ϊαχεςϋεξιρ. οβύεε ώισμο πςεςωχαξικ οτ ςαϊμιώξωθ χξεϋξιθ (χελτο- ςοχ), λοτοςοε νοφξο ποδλμΰώατψ λ ποδπςοηςανναν ϊαχεςϋεξιρ, ϊαδαετσρ πςι ηεξεςαγιι TS-νοξιτοςα. ξεσλομψλο χελτοςοχ πςε- ςωχαξικ οτ ςαϊμιώξωθ χξεϋξιθ υστςοκστχ νοηυτ βωτψ οδξοχςε- νεξξο ποδλμΰώεξω λ οδξοκ ποδπςοηςαννε ϊαχεςϋεξιρ. οδξαλο, ξεδοπυστινο ινετψ ξεσλομψλο ποδπςοηςανν, ποδλμΰώεξξωθ λ οδξονυ χελτοςυ πςεςωχαξικ. λοηδα χ ςεϊυμψτατε πςεςωχαξιρ υπςαχμεξιε πεςεδαετσρ ποδπςοηςαννε ϊαχεςϋεξιρ, R0 σοδεςφιτ αδςεσ χελτοςα, πο λοτοςονυ πςοιϊοϋμο πςεςωχαξιε. πςιοςιτετ χωπομξεξιρ υλαϊωχαετσρ δμρ λαφδοκ ποδπςοη- ςαννω ϊαχεςϋεξιρ, σχρϊαξξοκ σ οβςαβοτλοκ πςεςωχαξικ. πςιο- ςιτετ νοφετ ξαθοδιτψσρ χ διαποϊοξε 0-7. χωπομξεξιε ποδπςοη- ςαννω ϊαχεςϋεξιρ νοφετ βωτψ πςιοσταξοχμεξο, εσμι πςοιϊοϋμο πςεςωχαξιε ι δομφξα βωτψ ϊαπυύεξα βομεε πςιοςιτετξαρ ποδπ- ςοηςαννα ϊαχεςϋεξιρ δςυηοηο ϊαδαξιρ. πςιοςιτετω 1-7 οτξοσρτσρ λ λατεηοςιι "ςεαμψξοηο χςενε- ξι". οξι χσεηδα χωϋε πςιοςιτετα χωπομξεξιρ μΰβοηο ϊαδαξιρ χ ςεφινε ςαϊδεμεξιρ χςενεξι. ποδπςοηςαννε ϊαχεςϋεξιρ, ινεΰύεκ πςιοςιτετ 1-7, πςογεσσοςξοε χςενρ χωδεμρετσρ ξε πο λχαξταν, α δο νονεξτα εε ολοξώαξιρ. ταλιν οβςαϊον, ποδπςοηςαννα ϊαχεςϋεξιρ βυδετ χωπομξρτψσρ πςογεσσοςον, πολα ξε ξαστυπιτ οδξο ιϊ σμεδυΰύιθ σοβωτικ: - ποδπςοηςαννα ϊαχεςϋεξιρ ϊαλοξώιμα σχοε χωπομξεξιε; - ηοτοχα λ χωπομξεξιΰ βομεε πςιοςιτετξαρ ποδπςοηςαν- να ϊαχεςϋεξιρ δμρ δςυηοηο ϊαδαξιρ; τελυύαρ ποδπ- ςοηςαννα βυδετ πςοδομφεξα ποσμε ϊαχεςϋεξιρ οβςα- βοτλι βομεε χωσολοπςιοςιτετξοκ ποδπςοηςαννω ϊαχες- ϋεξιρ; - 229 - - χωπομξεξιε ποδπςοηςαννω ϊαχεςϋεξιρ πςιοσταξοχμεξο ιϊ-ϊα πεςεθοδα χ σοστορξιε οφιδαξιρ, ξαπςινες, ϊαχεςϋεξιρ οπεςαγιι χχοδα/χωχοδα; ποσμε ότοηο σοβωτιρ χςενρ δμρ ποδπςοηςαννω ϊαχεςϋεξιρ βυδετ χωδεμρτψσρ ξαςαχξε σ δςυηινι ϊαδαξιρνι ςαϊδεμεξιρ χςενεξι. ποδπςοηςαννα ϊαχεςϋεξιρ, ινεΰύαρ πςιοςιτετ 0, χωπομ- ξρετσρ σοχεςϋεξξο δςυηιν οβςαϊον. ότοτ πςιοςιτετ ςασσνατςι- χαετσρ ξε λαλ πςιοςιτετ ςεαμψξοηο χςενεξι, α λαλ οώεξψ χωσολικ πςιοςιτετ ςαϊδεμεξιρ χςενεξι. ταλιν οβςαϊον πςιοςι- τετ 0 χωϋε χσεθ πςιοςιτετοχ ςαϊδεμεξιρ χςενεξι, ξο ποδπςοη- ςαννα ϊαχεςϋεξιρ ποτεςρετ ότοτ πςιοςιτετ πο ιστεώεξιι ιξτεςχαμα χςενεξι QUAN1A (οπςεδεμρενωκ πςι ηεξεςαγιι TS-νοξιτοςα). πςοηςαννω, σοδεςφαύιε ποδπςοηςαννω ϊαχεςϋεξιρ ςεαμψξο- ηο χςενεξι, ξε οβρϊατεμψξο δομφξω βωτψ ϊαλςεπμεξω χ πανρτι. εσμι πςοιϊοϋμο πςεςωχαξιε, α πςοηςαννα ξαθοδιτσρ χ ζακμε σχοπιξηα ξα δισλε, το TS-νοξιτος ϊαπμαξιςυετ ϊαηςυϊλυ εε χ πανρτψ ι ποσμε ϊαηςυϊλι πεςεδαστ υπςαχμεξιε σοοτχετστχυΰύεκ ποδπςοηςαννε ϊαχεςϋεξιρ. εσμι πςοιϊοϋμο πςεςωχαξιε οτ χξεϋξεηο υστςοκστχα, το οξο βυδετ πονεύεξο χ οώεςεδψ ϊαπςοσοχ ξα χωϊοχ ποδπςοηςανν ϊαχεςϋεξιρ. εσμι πςοιϊοκδετ ταλοε φε πςεςωχαξιε πεςεδ χωϊο- χον ποδπςοηςαννω ϊαχεςϋεξιρ, το ποδπςοηςαννα βυδετ χωϊχαξα δχαφδω. εσμι πςι χοϊξιλξοχεξιι πςεςωχαξιρ TS-νοξιτος ξε οβξαςυφιτ ξι οδξοηο σχοβοδξοηο όμενεξτα οώεςεδι δμρ ποδπ- ςοηςανν ϊαχεςϋεξιρ, το πςοιϊοκδετ οσταξοχ σιστενω (ζαταμψ- ξαρ οϋιβλα). 7.13.3. βμολιςοχαξιε σχοπιξηα χ τεθ σμυώαρθ, λοηδα οτ πςοηςαννω τςεβυετσρ ναλσιναμψ- ξαρ ςεαλγιρ ξα πςεςωχαξιε οτ χξεϋξεηο υστςοκστχα, νοφετ χοϊξιλξυτψ ξεοβθοδινοστψ χ ϊαλςεπμεξιι πςοηςαννω χ πανρτι, ώτοβω πςεδοτχςατιτψ σχοπιξη. ότοκ χοϊνοφξοστψΰ σμεδυετ πομψϊοχατψσρ σ οστοςοφξοστψΰ, ποσλομψλυ ξεσλομψλο σςαχξι- τεμψξο βομψϋιθ πςοηςανν, ϊαλςεπμεξξωθ χ πανρτι, νοηυτ ξε οσταχιτψ νεστα δμρ χωπομξεξιρ δςυηιθ πςοηςανν. TS-νοξιτος σοδεςφιτ δχε χοϊνοφξοστι ϊαλςεπμεξιρ πςοη- ςαννω χ οπεςατιχξοκ πανρτι: - πεςενεύεξιε πςοηςαννω χ σανυΰ ξιφξΰΰ ώαστψ σχοβοδ- ξοκ οπεςατιχξοκ πανρτι ι ποσμε ότοηο ϊαλςεπμεξιε εε χ πανρτι; δαξξαρ πςογεδυςα πςεδυσνοτςεξα δμρ πςεδοτχςαύεξιρ ζςαηνεξταγιι σχοβοδξοκ πανρτι ι νοφετ ποτςεβοχατψ δμρ σχοεηο χωπομξεξιρ σςαχξι- τεμψξο βομψϋοηο πςονεφυτλα χςενεξι; ποότονυ δαξξωκ αμηοςιτν ϊαλςεπμεξιρ χ πανρτι σμεδυετ ισπομψϊο- χατψ, λοηδα πςοηςαννα ϊαλςεπμρετσρ χ πανρτι ξα σςαχξιτεμψξο βομψϋοε χςενρ; - 230 - - χτοςοκ σποσοβ ϊαλμΰώαετσρ χ ξενεδμεξξον ϊαλςεπμε- ξιι πςοηςαννω χ τοκ οβμαστι πανρτι, ηδε οξα χωπομ- ξρετσρ χ δαξξωκ νονεξτ; πςι ότον συύεστχυετ οπασ- ξοστψ ζςαηνεξταγιι πανρτι, χωδεμεξξοκ TS-νοξιτοςον δμρ πςοηςανν πομψϊοχατεμρ; ςελονεξδυετσρ ισπομψϊο- χατψ δαξξωκ σποσοβ τομψλο, εσμι πςοηςαννα ϊαλςεπ- μρετσρ χ πανρτι ξα ξεβομψϋοκ πςονεφυτολ χςενεξι. 7.13.4. ναλςολοναξδα .CONVIR ναλςολοναξδα χωπομξρετ πςεοβςαϊοχαξιε χιςτυαμψξοηο αδςεσα χ οβμαστι πςοηςαννω χ ζιϊιώεσλικ. πεςεδ χωπομξεξιεν ναλςολοναξδω πςοηςαννα δομφξα βωτψ οβρϊατεμψξο ϊαλςεπμεξα χ πανρτι. ζοςνατ ναλςολοναξδω: .CONVIR AREA,VADDR,BUFF ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ τςεθ σμοχ; VADDR - χιςτυαμψξωκ αδςεσ, λοτοςωκ ξεοβθοδινο πςεοβςαϊο- χατψ χ ζιϊιώεσλικ; BUFF - αδςεσ βυζεςα ιϊ δχυθ σμοχ, χ λοτοςωκ βυδετ πονεύεξ ζιϊιώεσλικ αδςεσ. πεςχοε σμοχο βυζεςα βυδετ σοδεςφατψ νμαδϋιε 16 ςαϊςρ- δοχ ζιϊιώεσλοηο αδςεσα. δχα σταςϋιθ ςαϊςρδα ζιϊιώεσλοηο αδςεσα βυδυτ ςαϊνεύεξω χ ςαϊςρδαθ 4 ι 5 χτοςοηο σμοχα βυζε- ςα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 4 ! !--------!--------! ! VADDR ! !-----------------! ! BUFF ! !-----------------! οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι πςοηςαννα ξε ρχμρετσρ πςιχιμεηιςοχαξξοκ. - 231 - 7.13.5. ναλςολοναξδα .ENSWAP ναλςολοναξδα οτνεξρετ ϊαλςεπμεξιε πςοηςαννω χ πανρτι ι ςαϊςεϋαετ εε σχοπιξη. ζοςνατ ναλςολοναξδω: .ENSWAP AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 5 ! !--------!--------! οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι πςοηςαννα ξε ρχμρετσρ πςιχιμεηιςοχαξξοκ. 7.13.6. ναλςολοναξδα .IMLOCK ναλςολοναξδα χωϊωχαετ ξενεδμεξξοε ϊαλςεπμεξιε πςοηςαν- νω χ πανρτι βεϊ πεςενεύεξιρ. ζοςνατ ναλςολοναξδω: .IMLOCK AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 13 ! !--------!--------! - 232 - οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι πςοηςαννα ξε ρχμρετσρ πςιχιμεηιςοχαξξοκ. 7.13.7. ναλςολοναξδα .POLOCK ναλςολοναξδα ϊαλςεπμρετ πςοηςαννυ χ πανρτι, πςεδχαςι- τεμψξο πεςενεστιχ εε χ ξιφξΰΰ σχοβοδξυΰ, τ.ε. ξε ϊαξρτυΰ βιβμιοτελανι ι δςυηινι ϊαλςεπμεξξωνι ϊαδαξιρνι, οβμαστψ πανρτι. ζοςνατ ναλςολοναξδω: .POLOCK AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 7 ! !--------!--------! οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι πςοηςαννα ξε ρχμρετσρ πςιχιμεηιςοχαξξοκ. 7.13.8. ναλςολοναξδα .INTCON ναλςολοναξδα ποδλμΰώαετ ποδπςοηςαννυ ϊαχεςϋεξιρ λ χελ- τοςυ πςεςωχαξικ οτ χξεϋξεηο υστςοκστχα. ζοςνατ ναλςολοναξδω: .INTCON AREA,VECT,COMPLT,PRIOR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ ώετωςεθ σμοχ; - 233 - VECT - αδςεσ χελτοςα πςεςωχαξικ; COMPLT - αδςεσ ξαώαμα (τοώλι χθοδα) ποδπςοηςαννω ϊαχεςϋε- ξιρ, λοτοςυΰ ξεοβθοδινο ποδλμΰώιτψ λ χελτοςυ πςε- ςωχαξικ; PRIOR - πςιοςιτετ, ξα λοτοςον δομφξα χωπομξρτψσρ ποδπςοη- ςαννα ϊαχεςϋεξιρ; πςιοςιτετ πο χεμιώιξε δομφεξ ξαθοδιτψσρ χ διαπαϊοξε 0-7. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 11 ! !--------!--------! ! VECT ! !-----------------! ! COMPLT ! !-----------------! ! PRIOR ! !-----------------! οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι πςοηςαννα ξε ρχμρετσρ πςιχιμεηιςοχαξξοκ. 1 ναλσιναμψξοε ώισμο πςεςωχαξικ υφε οπςεδεμεξο (υλαϊωχαετσρ πςι ηεξεςαγιι); 2 δςυηαρ πςοηςαννα υφε ςαβοταετ ι ισπομψϊυετ υλαϊαξξωκ χελτος πςεςωχαξικ. 7.13.9. ναλςολοναξδα .INTFRE ναλςολοναξδα οτνεξρετ σχρϊψ χελτοςα πςεςωχαξικ σ ποδπ- ςοηςαννοκ ϊαχεςϋεξιρ. χελτος πςεςωχαξιρ οσχοβοφδαετσρ δμρ ισπομψϊοχαξιρ δςυηοκ πςοηςαννοκ. ζοςνατ ναλςολοναξδω: .INTFRE AREA,VECT ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; VECT - αδςεσ οσχοβοφδαενοηο χελτοςα πςεςωχαξικ. - 234 - ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 12 ! !--------!--------! ! VECT ! !-----------------! οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι πςοηςαννα ξε ρχμρετσρ πςιχιμεηιςοχαξξοκ. 7.13.10. ναλςολοναξδα .IOBIC ναλςολοναξδα χωπομξρετ δεκστχιρ, αξαμοηιώξωε ιξστςυλ- γιι πςογεσσοςα BIC (οώιστλα ςαϊςρδοχ), δμρ ςεηιστςα ξα οβύεκ ϋιξε. ζοςνατ ναλςολοναξδω: .IOBIC AREA,ADDR,WORD ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ τςεθ σμοχ; ADDR - αδςεσ ςεηιστςα ξα οβύεκ ϋιξε; WORD - σμοχο, ιϊ λοτοςοηο βυδετ χϊρτα νασλα δμρ χωπομξε- ξιρ ιξστςυλγιι BIC δμρ ςεηιστςα χξεϋξεηο υστςοκστ- χα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 4 ! !--------!--------! ! ADDR ! !-----------------! ! WORD ! !-----------------! οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι πςοηςαννα ξε ρχμρετσρ πςιχιμεηιςοχαξξοκ. - 235 - 7.13.11. ναλςολοναξδα .IOBIS ναλςολοναξδα χωπομξρετ δεκστχιρ, αξαμοηιώξωε ιξστςυλ- γιι πςογεσσοςα BIS (υσταξοχλα ςαϊςρδοχ), δμρ ςεηιστςα ξα οβύεκ ϋιξε. ζοςνατ ναλςολοναξδω: .IOBIS AREA,ADDR,WORD ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ τςεθ σμοχ; ADDR - αδςεσ ςεηιστςα ξα οβύεκ ϋιξε; WORD - σμοχο, ιϊ λοτοςοηο βυδετ χϊρτα νασλα δμρ χωπομξε- ξιρ ιξστςυλγιι BIS δμρ ςεηιστςα χξεϋξεηο υστςοκστ- χα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 3 ! !--------!--------! ! ADDR ! !-----------------! ! WORD ! !-----------------! οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι πςοηςαννα ξε ρχμρετσρ πςιχιμεηιςοχαξξοκ. 7.13.12. ναλςολοναξδα .IOGET ναλςολοναξδα ποϊχομρετ σώιτατψ σοδεςφινοε ςεηιστςα (οδξο σμοχο), ςασπομοφεξξοηο ξα στςαξιγε χχοδα/χωχοδα. πεςεοτοβςαφεξιε οβύεκ ώαστι χιςτυαμψξοηο πςοστςαξστχα ξε τςεβυετσρ. ζοςνατ ναλςολοναξδω: .IOGET AREA,ADDR ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ - 236 - σμοχ; οβμαστψ αςηυνεξτοχ EMT (δχα σμοχα); ADDR - αδςεσ σμοχα στςαξιγω χχοδα/χωχοδα, σοδεςφινοε λοτοςοηο βυδετ σώιταξο χ χιδε οδξοηο σμοχα. σοδεςφινοε σώιταξξοηο ςεηιστςα χοϊχςαύαετσρ χ R0. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 1 ! !--------!--------! ! ADDR ! !-----------------! οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, μιβο πςοηςαννα ξε ρχμρετσρ πςιχιμεηιςοχαξξοκ. 7.13.13. ναλςολοναξδα .IOPUT ναλςολοναξδα ποϊχομρετ πεςεσματψ οδξο σμοχο χ ςεηιστς στςαξιγω χχοδα/χωχοδα. ζοςνατ ναλςολοναξδω: .IOPUT AREA,ADDR,WORD ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ τςεθ σμοχ; ADDR - αδςεσ ςεηιστςα χ στςαξιγε χχοδα/χωχοδα; WORD - σμοχο, πεςεσωμαενοε χ ςεηιστς. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 2 ! !--------!--------! ! ADDR ! !-----------------! ! WORD ! !-----------------! - 237 - οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι πςοηςαννα ξε ρχμρετσρ πςιχιμεηιςοχαξξοκ. 7.13.14. ναλςολοναξδα .IOMAP ναλςολοναξδα οβεσπεώιχαετ οτοβςαφεξιε σεδψνοκ στςαξιγω χιςτυαμψξοηο αδςεσξοηο πςοστςαξστχα πςοηςαννω (αδςεσα 160000-177777) ξα στςαξιγυ χχοδα/χωχοδα, οβεσπεώιχαρ τεν σανων δοστυπ λ ςεηιστςαν χξεϋξιθ υστςοκστχ. ζοςνατ ναλςολοναξδω: .IOMAP AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 5 ! !--------!--------! ναλςολοναξδα .GVAL σο σνεύεξιεν νιξυσ χοσενψ νοφετ βωτψ ισπομψϊοχαξα δμρ οπςεδεμεξιρ, ινεετ μι πςοηςαννα δοσ- τυπ λ στςαξιγε χχοδα/χωχοδα. 7.13.15. ναλςολοναξδα .IOUNMAP ναλςολοναξδα οτνεξρετ οτοβςαφεξιε χεςθξεκ ώαστι χις- τυαμψξοηο πςοστςαξστχα πςοηςαννω ξα στςαξιγυ χχοδα/χωχοδα. ζοςνατ ναλςολοναξδω: .IOUNMAP AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. - 238 - ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 140 ! 6 ! !--------!--------! 7.14. ςαϊδεμρενωε ζακμω (TS) TS-νοξιτος ποϊχομρετ πςοιϊχοδιτψ βμολιςοχλυ ϊαπισι, ώτο ξεοβθοδινο, λοηδα ξεσλομψλιν πςοηςαννα ξαδο οβξοχιτψ οβύικ ζακμ δαξξωθ. σ πςνούψΰ βμολιςοχλι ϊαπισι (ώαστι ζακ- μα) πςοηςαννα νοφετ πομυώιτψ νοξοπομψξωκ δοστυπ λ οδξονυ ιμι βομεε βμολαν ζακμα. εσμι δςυηιε πςοηςαννω ποπωταΰτσρ ϊαβμολιςοχατψ τε φε σανωε βμολι, το οξι ξε σνοηυτ πομυώιτψ δοστυπ λ ξιν δο τεθ πος, πολα πεςχαρ πςοηςαννα ξε ςαϊβμολι- ςυετ ιθ. λςονε ότοηο TS-νοξιτος ποϊχομρετ λόϋιςοχατψ βμολι δαξ- ξωθ, σώιταξξωε ιϊ ςαϊδεμρενωθ ζακμοχ. ποςρδολ δεκστχικ δμρ οβξοχμεξιρ ςαϊδεμρενοηο ζακμα, λ λοτοςονυ πομυώιμι δοστυπ ξεσλομψλο πομψϊοχατεμεκ: - οτλςωτψ ζακμ; - ιξζοςνιςοχατψ νοξιτος, ώτο ζακμ ρχμρετσρ ςαϊδεμρε- νων; - βμολιςοχατψ βμολι ζακμα, σοδεςφαύιε ξυφξυΰ ϊαπισψ; - σώιτατψ ϊαβμολιςοχαξξωε βμολι χ πανρτψ; - οβξοχιτψ ϊαπισψ; - ϊαπισατψ οβξοχμεξξωε βμολι χ ζακμ; - ςαϊβμολιςοχατψ βμολι; - πςι ξεοβθοδινοστι ποχτοςιτψ πςεδωδυύιε ϋαηι; - ϊαλςωτψ ζακμ. TS-νοξιτος οβεσπεώιχαετ λόϋιςοχαξιε δαξξωθ δμρ βωστςο- ηο δοστυπα λ ςαϊδεμρενονυ ζακμυ. πςι ηεξεςαγιι σιστενω νοφετ βωτψ ϊαςεϊεςχιςοχαξο οπςεδεμεξξοε ώισμο 512-βακτξωθ βυζεςοχ δμρ λόϋιςοχαξιρ δαξξωθ. ότι οβμαστι βυζεςοχ ρχμρΰτσρ ώαστψΰ ςεϊιδεξτξοκ σισ- τενξοκ οβμαστι δαξξωθ, ξε σχρϊαξξοκ σ λαλιν-μιβο λοξλςετξων ϊαδαξιεν. λαφδωκ ςαϊ, λοηδα δεμαετσρ ϊαπςοσ ξα ώτεξιε ιϊ ζακμα, οβ'ρχμεξξοηο ςαϊδεμρενων, δεμαετσρ πςοχεςλα, πονεύε- ξω μι σώιτωχαενωε βμολι χ λόϋ-πανρτψ. εσμι δα, το δαξξωε πεςεσωμαΰτσρ ιϊ λόϋ-βυζεςα χ πςοηςαννξωκ βυζες, ι ξιλαλοκ οπεςαγιι χχοδα/χωχοδα σ δισλα ξε χωπομξρετσρ. σώετώιλ ισπομψϊοχαξιρ λόϋ-βυζεςα υχεμιώιχαετσρ ξα εδιξιγυ πςι λαφ- δον οβςαύεξιι. πεςιοδιώεσλι σώετώιλι ισπομψϊοχαξιρ δμρ χσεθ βυζεςοχ δεμρτσρ ξα δχα. εσμι βμολ δαξξωθ ξε ξαθοδιτσρ χ λόϋ-πανρτι, το οξ σώι- τωχαετσρ σ δισλα χ βυζες πςοηςαννω, α ϊατεν λοπιςυετσρ χ λόϋ-βυζες, λοτοςωκ ινεετ νιξιναμψξοε ϊξαώεξιε σώετώιλα - 239 - ισπομψϊοχαξιρ. λοηδα πςοισθοδιτ οπεςαγιρ ϊαπισι χ ζακμ, λοτοςωκ λόϋι- ςυετσρ, πςοχεςρετσρ ξαμιώιε χ λόϋ ϊαπισωχαενωθ δαξξωθ. εσμι ϊαπισωχαενωε δαξξωε σοδεςφατψσρ χ λόϋ, το λόϋ-βυζες οβξοχ- μρετσρ. χ μΰβον σμυώαε δαξξωε ϊαπισωχαΰτσρ ξα δισλ. λόϋιςο- χαξιε ξε σολςαύαετ χςενεξι χωπομξεξιρ οπεςαγιι ϊαπισι. δμρ ζακμα, λοτοςωκ οβ'ρχμεξ ςαϊδεμρενων σ πονούψΰ ναλ- ςολοναξδω .SFOPEN, αχτονατιώεσλι χωπομξρετσρ λόϋιςοχαξιε βμολοχ δαξξωθ, ξεϊαχισινο οτ τιπα ϊαύιτω δοστυπα, εσμι τομψλο χοσψνοκ βιτ χ σμοχε λοδα δοστυπα ξε βωμ υσταξοχμεξ. 7.14.1. ναλςολοναξδα .SFLOCK ναλςολοναξδα πςεδξαϊξαώεξα δμρ βμολιςοχαξιρ υλαϊαξξοηο βμολα χ ζακμε. εσμι ϊαπςαϋιχαενωκ βμολ υφε ϊαβμολιςοχαξ δςυηοκ πςοηςαννοκ, το δαξξαρ πςοηςαννα βυδετ πςιοσταξοχμεξα δο τεθ πος, πολα τςεβυενωκ βμολ ξε βυδετ δοστυπξων. ζοςνατ ναλςολοναξδω: .SFLOCK AREA,CHAN,BLKN ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; CHAN - ξονες λαξαμα, οτλςωτοηο δμρ ςαϊδεμρενοηο ζακμα; BLKN - ξονες βμολα, λοτοςωκ δομφεξ βωτψ ϊαβμολιςοχαξ. TES 7 ζοςνατ ταβμιγω αςηυνεξτοχ εντ: !--------!--------! R0 => AREA: ! 102 ! CHAN ! !--------!--------! ! BLKN ! !-----------------! δςυηιε βμολι ζακμα, λοτοςωε βωμι ϊαβμολιςοχαξω οσταΰτ- σρ ϊαβμολιςοχαξξωνι. ναλσιναμψξοε ώισμο βμολοχ, λοτοςωε νοφξο οδξοχςενεξξο δεςφατψ ϊαβμολιςοχαξξωνι, υλαϊωχαετσρ πςι ηεξεςαγιι σιστενω. βμολ σ ξονεςον "-1" (χοσψνεςιώξοε 177777) νοφετ βωτψ ισπομψϊοχαξ δμρ ϊαπςοσα ξα βμολιςοχλυ χσεθ βμολοχ χ ζακμε. εσμι ξεσλομψλο πομψϊοχατεμεκ ϊαπςαϋι- χαΰτ οδιξ ι τοτ φε βμολ, το δοστυπ λ ξενυ πομυώαΰτ ποσμεδο- χατεμψξο, χ ποςρδλε ποστυπμεξιρ ϊαπςοσοχ. - 240 - οϋιβλι: λοδ πορσξεξιε 1 λαξαμ ξε βωμ οτλςωτ δμρ δοστυπα λ ζακμυ; 2 τςεβυετσρ ϊαβμολιςοχατψ σμιϋλον νξοηο βμολοχ 7.14.2. ναλςολοναξδα .SFOPEN πςεφδε, ώεν ισπομψϊοχατψ ςαϊδεμρενωκ ζακμ, ξεοβθοδινο εηο οτλςωτψ σ πονούψΰ ναλςολοναξδω .LOOKUP. ποσμε υσπεϋξοηο ϊαχεςϋεξιρ οτλςωτιρ ζακμα, ξεοβθοδινο ισπομψϊοχατψ ναλςολο- ναξδυ .SFOPEN δμρ οβ'ρχμεξιρ ζακμα ςαϊδεμρενων. ζοςνατ ναλςολοναξδω: .SFOPEN AREA,CHAN,CODE ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; CHAN - ξονες λαξαμα; CODE - λοξσταξτα, οπςεδεμρΰύαρ λοδ δοστυπα λ ζακμυ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!---------! ! 125 ! CHAN ! !--------!---------! ! CODE ! !------------------! δοπυστινο ισπομψϊοχατψ σμεδυΰύιε λοδω δοστυπα: λοδ τιπ ϊαύιτω τιπ δοστυπα --- ---------- ----------- 0 νοξοπομψξωκ ώτεξιε 1 νοξοπομψξωκ οβξοχμεξιε 2 ϊαύιύεξξωκ ώτεξιε 3 ϊαύιύεξξωκ οβξοχμεξιε 4 ςαϊδεμρενωκ ώτεξιε 5 ςαϊδεμρενωκ οβξοχμεξιε λοδ δοστυπα οπςεδεμρετ τιπ δοστυπα λ ζακμυ χ δαξξοκ πςοηςαννε (τομψλο ώτεξιε ιμι οβξοχμεξιε) ι τιπ δοστυπα λ ζακμυ δμρ οσταμψξωθ πςοηςανν. δμρ οσταμψξωθ πςοηςανν εστψ σμεδυΰύιε χοϊνοφξοστι: - 241 - νοξοπομψξωκ δοστυπ - οϊξαώαετ, ώτο δμρ οσταμψξωθ πςοηςανν ζακμ ξε δοσ- τυπεξ ξι δμρ ώτεξιρ, ξι δμρ οβξοχμεξιρ; ϊαύιύεξξωκ δοστυπ - οϊξαώαετ, ώτο δμρ οσταμψξωθ πςοηςανν ςαϊςεϋαετσρ τομψλο ώτεξιε ζακμα; ςαϊδεμρενωκ ζακμ - οϊξαώαετ, ώτο δμρ οσταμψξωθ πςοηςανν ςαϊςεϋαετσρ λαλ ώτεξιε, ταλ ι οβξοχμεξιε ζακμα. πςι χωπομξεξιι ναλςολοναξδω .SFOPEN TS-νοξιτος σςαχξι- χαετ υλαϊαξξωκ τιπ ϊαύιτω ι τιπ δοστυπα σ τενι, λοτοςωε βωμι οβ'ρχμεξω δμρ δαξξοηο ζακμα χ δςυηιθ πςοηςανναθ. εσμι οβξαςυφεξα ξεσοχνεστινοστψ, το ναλςολοναξδα ϊαχεςϋαετσρ σ λοδον οϋιβλι 4. εσμι ξετ λοξζμιλτα, το υλαϊαξξωκ λοδ δοστυ- πα σοθςαξρετσρ δμρ ζακμα ι βυδετ ισπομψϊοχατψσρ χ δαμψξεκ- ϋεν δμρ σςαχξεξιρ σ ϊαπςοσον ξα δοστυπ ιϊ δςυηιθ πςοηςανν. οβωώξο δμρ χσεθ ςαϊδεμρενωθ ζακμοχ χωπομξρετσρ λόϋιςο- χαξιε βμολοχ δαξξωθ. οβξαλο, χ ξελοτοςωθ σμυώαρθ φεματεμψξο οτνεξιτψ ότυ χοϊνοφξοστψ. ξαπςινες, ζακμω ποσμεδοχατεμψξοηο δοστυπα οβωώξο οώεξψ ναμο χωιηςωχαΰτ ιμι ξε χωιηςωχαΰτ χοχ- σε οτ λόϋιςοχαξιρ δαξξωθ. πςι ότον βυζεςω λόϋ-πανρτι ισπομψϊυΰτσρ ξεόζζελτιχξο. δμρ οτνεξω λόϋιςοχαξιρ ξυφξο υσταξοχιτψ χ σμοχε λοδα δοστυπα χοσψνοκ βιτ. πςι ότον ξιλα- λιε δςυηιε δαξξωε ξε νοηυτ βωτψ πονεύεξω χ λόϋ δμρ ώτεξιρ πο λαξαμυ, οτλςωτονυ ταλιν πυτεν. οδξαλο, εσμι σώιτωχαενωε δαξξωε ςαξεε υφε πονεύεξω χ λόϋ δςυηινι πςοηςαννανι, το, ξεσνοτςρ ξα βμολιςοχλυ, ινι νοφξο χοσπομψϊοχατψσρ. εσμι πςοισθοδιτ ϊαπισψ χ ζακμ ι ϊαπισωχαενωε δαξξωε τυτ φε πονε- ύαΰτσρ χ λόϋ, το ιθ νοφξο οβξοχμρτψ δαφε χ τον σμυώαε, εσμι ζακμ οβ'ρχμεξ ξελόϋιςυενων. χ οδξοκ πςοηςαννε νοφξο οδξοχςενεξξο ινετψ ξεσλομψλο οτλςωτωθ λαξαμοχ δμρ ςαϊδεμρενωθ ζακμοχ. ναλσιναμψξοε λομι- ώεστχο λαξαμοχ ι οβύεε ώισμο ςαϊδεμρενωθ ζακμοχ, λοτοςοε νοφετ βωτψ οτλςωτο, υλαϊωχαετσρ πςι ηεξεςαγιι TS-νοξιτοςα. ϊαχεςϋεξιε ςαβοτω σ ςαϊδεμρενων ζακμον χωπομξρετσρ οβωώξων οβςαϊον, τ.ε. σ πονούψΰ σιστενξωθ ναλςολοναξδ .CLOSE ιμι .PURGE. οϋιβλι: λοδ πορσξεξιε 1 λαξαμ ξε βωμ οτλςωτ δμρ δοστυπα λ ζακμυ; 2 σμιϋλον νξοηο λαξαμοχ οτλςωτο δμρ ςαϊδεμρενω ζακμοχ; 3 σμιϋλον νξοηο ςαϊδεμρενωθ ζακμοχ οτλςωτο; 4 λοξζμιλτ νεφδυ τςεβυενοκ οπεςαγιεκ ι λοδον ϊαύιτω ζακμα. - 242 - 7.14.3. ναλςολοναξδα .SFSAVE σοθςαξεξιε στατυσα λαξαμα δμρ ςαϊδεμρενοηο ζακμα νοφετ βωτψ χωπομξεξο σ πονούψΰ σιστενξοκ ναλςολοναξδω .SAVESTATUS. χ ότον σμυώαε χσε βμολι, λοτοςωε βωμι ϊαβμολι- ςοχαξω χ ζακμε, οσταΰτσρ ϊαβμολιςοχαξξωνι δο τεθ πος, πολα λαξαμ ξε οτλςωτ σξοχα, ι ξε χωπομξεξα ναλςολοναξδα .SFUNLOCK. πςι ισπομψϊοχαξιι εδιξστχεξξοηο λαξαμα δμρ δοστυπα λ ξεσλομψλιν ςαϊδεμρενων ζακμαν υδοβξο πεςχοξαώαμψξο σδεματψ .LOOKUP δμρ λαφδοηο ζακμα, ϊατεν οβ'ρχιτψ ζακμ ςαϊδεμρενων σ πονούψΰ .SFOPEN, α ποτον σδεματψ .SAVESTATUS. λαξαμ, ισπομψϊυενωκ δμρ δοστυπα λ ξεσλομψλιν ζακμαν, ϊατεν νοφετ βωτψ πεςελμΰώεξ σ οδξοηο ζακμα ξα δςυηοκ σ ισπομψϊοχαξιεν .PURGE, α ϊατεν .REOPEN. οδξαλο, πςεφδε, ώεν δεματψ .PURGE, ξεοβθοδινο σοοβύιτψ TS-νοξιτοςυ, ώτο δμρ δαξξοηο ζακμα ξεοβθοδινο σοθςαξιτψ στατυσ ςαϊδεμρενοηο (ιξαώε χσε ϊαβμολιςοχαξξωε βμολι ςαϊβμολιςυΰτσρ, ι ζακμ ισλμΰώαετσρ ιϊ σπισλα ςαϊδεμρενωθ ζακμοχ). δμρ ότοκ γεμι ξεοβθοδινο ισπομψϊοχατψ ναλςολοναξδυ .SFSAVE. ζοςνατ ναλςολοναξδω: .SFSAVE AREA,CHAN ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; CHAN - ξονες λαξαμα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!---------! ! 122 ! CHAN ! !--------!---------! δεκστχιε ότοκ ναλςολοναξδω σχοδιτσρ λ τονυ, ώτο χςε- νεξξο οτνεξρετσρ σχρϊψ νεφδυ ιξζοςναγιοξξοκ ταβμιγεκ ςαϊδε- μρενωθ ζακμοχ ι λαξαμον χχοδα/χωχοδα. χσε βμολι, λοτοςωε χ δαξξωκ νονεξτ ϊαβμολιςοχαξω χ ζακμε, οσταΰτσρ ϊαβμολιςοχαξξωνι δο τεθ πος, πολα ότοτ λαξαμ ξε βυδετ ποχτοςξο οτλςωτ σ πονούψΰ σιστενξοκ ναλςολο- ναξδω .REOPEN. ποσμε ότοηο λαξαμ νοφετ βωτψ οσχοβοφδεξ ναλ- ςολοναξδοκ .PURGE. - 243 - 7.14.4. ναλςολοναξδα .SFTLOCK ναλςολοναξδα δεκστχυετ αξαμοηιώξο πςεδωδυύεκ. ςαϊμιώιε σοστοιτ χ τον, ώτο εσμι ϊαπςαϋιχαενωκ βμολ υφε ϊαβμολιςοχαξ δςυηοκ πςοηςαννοκ, το πςεδωδυύαρ ναλςολοναξδα πςιοσταξαχμι- χαετ πςοηςαννυ, χ το χςενρ, λαλ δαξξαρ ναλςολοναξδα χοϊχςα- ύαετ λοδ οϋιβλι. εσμι βμολ οτλςωτ δμρ δοστυπα, το οξ βμολι- ςυετσρ δμρ ϊαπςαϋιχαΰύεκ πςοηςαννω. ζοςνατ ναλςολοναξδω: .SFTLOCK AREA,CHAN,BLKN ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; CHAN - ξονες λαξαμα; BLKN - ξονες βμολα, λοτοςωκ δομφεξ βωτψ ϊαβμολιςοχαξ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !-----!-----! ! 103 ! CHAN! !-----!-----! ! BLKN ! !-----!-----! οϋιβλι: λοδ πορσξεξιε 1 λαξαμ ξε βωμ οτλςωτ δμρ δοστυπα λ ζακμυ; 2 τςεβοχαξιε ξα βμολιςοχλυ σμιϋλον βομψϋοηο ώισμα βμολοχ ζακμα; 3 ϊαπςαϋιχαενωκ βμολ ϊαβμολιςοχαξ δςυηοκ πςοηςαννοκ. 7.14.5. ναλςολοναξδα .SFUNALL ναλςολοναξδα χωπομξρετ ςαϊβμολιςοχαξιε χσεθ βμολοχ ςαϊδεμρενοηο ζακμα. ζοςνατ ναλςολοναξδω: .SFUNALL AREA,CHAN ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο - 244 - σμοχα. CHAN - ξονες λαξαμα, οτλςωτοηο δμρ ςαϊδεμρενοηο ζακμα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !-----!-----! ! 101 ! CHAN! !-----!-----! ποσμε χωπομξεξιρ ναλςολοναξδω .SFUNALL χσε βμολι, ϊαβ- μολιςοχαξξωε πςοηςαννοκ χ ςαϊδεμρενον ζακμε, ςαϊβμολιςυΰτ- σρ. βμολι, ϊαβμολιςοχαξξωε δαξξοκ πςοηςαννοκ χ δςυηιθ ζακ- μαθ, ταλ φε, λαλ ι βμολι ότοηο φε ζακμα, ξο ϊαβμολιςοχαξξωε δςυηινι πςοηςαννανι, ξε ςαϊβμολιςυΰτσρ. οϋιβλι: λοδ πορσξεξιε 1 λαξαμ ξε βωμ οτλςωτ δμρ δοστυπα λ ζακμυ. 7.14.6. ναλςολοναξδα .SFUNLOCK ναλςολοναξδα ισπομψϊυετσρ δμρ ςαϊβμολιςοχαξιρ βμολα χ ζακμε. ζοςνατ ναλςολοναξδω: .SFUNLOCK AREA,CHAN,BLKN ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ δχυθ σμοχ; CHAN - ξονες λαξαμα; BLKN - ξονες βμολα, λοτοςωκ δομφεξ βωτψ ςαϊβμολιςοχαξ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !-----!-----! ! 113 ! CHAN! !-----!-----! ! BLKN ! !-----!-----! οϋιβλι: λοδ πορσξεξιε 1 λαξαμ ξε βωμ οτλςωτ δμρ δοστυπα λ ζακμυ. - 245 - 7.14.7. ναλςολοναξδα .SFWCHECK ναλςολοναξδα νοφετ βωτψ ισπομψϊοχαξα δμρ οπςεδεμεξιρ, σδεμαξα μι ϊαπισψ χ ςαϊδεμρενωκ ζακμ λαλοκ-μιβο δςυηοκ πςοηςαννοκ. ζοςνατ ναλςολοναξδω: .SFWCHECK AREA,CHAN ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. CHAN - ξονες λαξαμα, οτλςωτοηο δμρ ςαϊδεμρενοηο ζακμα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !-----!-----! ! 121 ! CHAN! !-----!-----! εσμι ξιλαλαρ πςοηςαννα ξε δεμαμα ϊαπισψ χ ζακμ σο χςε- νεξι οτλςωτιρ ζακμα δαξξοκ πςοηςαννοκ ιμι σ τοηο νονεξτα, λοηδα ποσμεδξικ ςαϊ δαξξαρ ναλςολοναξδα βωμα χωπομξεξα δμρ ζακμα, το βιτ "C" σμοχα σοστορξιρ πςογεσσοςα ξε υσταξαχμι- χαετσρ πςι ϊαχεςϋεξιι ναλςολοναξδω. εσμι ποσμε πςοχεςλι πςοιϊχοδιμασψ ϊαπισψ χ ζακμ δςυηοκ πςοηςαννοκ, το υσταξαχ- μιχαετσρ βιτ "C", ι χοϊχςαύαετσρ λοδ οϋιβλι 2. ότυ ναλςολοναξδυ γεμεσοοβςαϊξο ισπομψϊοχατψ χ σιτυα- γιι, λοηδα δαξξωε ιϊ ξελοτοςοηο βμολα ζακμα θςαξρτσρ χ βυζεςε ι ξεοβθοδινο οπςεδεμιτψ πςαχιμψξωε ότο δαξξωε ιμι ξετ, τ.λ. ιθ νοημα ιϊνεξιτψ λαλαρ-ξιβυδψ δςυηαρ πςοηςαννα, δεμαρ ϊαπισψ χ ζακμ. οβωώξαρ ποσμεδοχατεμψξοστψ δεκστχικ χ ότον σμυώαε: - ϊαβμολιςοχατψ βμολ, λοτοςωκ ξαθοδιτσρ χ πανρτι; - χωπομξιτψ ναλςολοναξδυ .SFWCHECK, ώτοβω πςοχεςιτψ, βωμι μι σδεμαξα ϊαπισψ χ ζακμ. εσμι ζακμ ξε βωμ ιϊνεξεξ, δαξξωε χ πανρτι πςαχιμψξωε (το εστψ σοοτχετστχυΰτ σοδεςφινονυ ζακμα ξα δισλε), ι ιθ νοφξο ισπομψϊοχατψ, χ πςοτιχξον σμυώαε ξαδο ποχτοςξο σώι- τατψ βμολ ιϊ ζακμα. 7.15. αξαμιϊ όζζελτιχξοστι (TS) TS-νοξιτος χλμΰώαετ σςεδστχα αξαμιϊα όζζελτιχξοστι, λοτοςωε νοηυτ βωτψ ισπομψϊοχαξω δμρ οπςεδεμεξιρ πςογεξτα χςενεξι, λοτοςοε πςογεσσος ποτςατιμ ξα χωπομξεξιε τοκ ιμι ιξοκ ώαστι πςοηςαννω. - 246 - 7.15.1. ναλςολοναξδα .PAINIT δαξξαρ ναλςολοναξδα ισπομψϊυετσρ δμρ ιξιγιαμιϊαγιι πςοηςαννξωθ σςεδστχ ποδσιστενω αξαμιϊα όζζελτιχξοστι πςοη- ςανν (αξαμοηιώξα λοναξδε νοξιτοςα MONITR). ζοςνατ ναλςολοναξδω: .PAINIT AREA,HIADDR,LOADDR,ICLSIZ,FLAG ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ πρτι σμοχ; HIADDR,LOADDR - σοοτχετστχεξξο ξιφξρρ ι χεςθξρρ ηςαξιγω πςοηςαννω, χ λοτοςωθ πςοχοδιτσρ αξαμιϊ όζζελτιχξοστι; ICLSIZ - γεξα δεμεξιρ πςοηςαννω χ βακταθ; FLAG - υώιτωχαετ ξεοβθοδινοστψ υώετα οφιδαξιρ ϊαχεςϋεξιρ οπεςαγικ χχοδα/χωχοδα; εσμι FLAG ςαχεξ 0, το οφι- δαξιε ξε υώιτωχαετσρ, εσμι FLAG ςαχεξ 1, το - υώι- τωχαετσρ. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 136 ! 0 ! !--------!--------! ! HIADDR ! !-----------------! ! LOADDR ! !-----------------! ! TCLSIZ ! !-----------------! ! FLAG ! !-----------------! οϋιβλι: λοδ πορσξεξιε 0 ποδσιστενα αξαμιϊα όζζελτιχξοστι υφε ισπομψϊυετσρ δςυηιν ϊαδαξιεν (μιξιεκ); 1 ποδσιστενα αξαμιϊα όζζελτιχξοστι ξε χλμΰώεξα πςι ηεξεςαγιι. - 247 - 7.15.2. ναλςολοναξδα .PASTART δαξξαρ ναλςολοναξδα ισπομψϊυετσρ δμρ ϊαπυσλα ξα χωπομ- ξεξιε πςοηςαννξωθ σςεδστχ ποδσιτενω αξαμιϊα όζζελτιχξοστι, α ταλφε δμρ πςοδομφεξιρ ςαβοτω ποδσιστενω ποσμε ναλςολοναξ- δω .PASTOP. ζοςνατ ναλςολοναξδω: .PASTART AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 136 ! 1 ! !--------!--------! οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ποδσιστενω αξαμιϊα όζζελτιχξοστι ξε ιξιγιαμιϊιςοχαξω. 7.15.3. ναλςολοναξδα .PASTOP δαξξαρ ναλςολοναξδα πςιοσταξαχμιχαετ σβος στατιστιλι δμρ αξαμιϊα όζζελτιχξοστι πςοηςανν. πςοδομφατψ σβος στατισ- τιλι νοφξο πςι πονούι ναλςολοναξδω .PASTART. ναλςολοναξδα .PASTOP νοφετ βωτψ ισπομψϊοχαξα, ξαπςινες, δμρ πςιοσταξοχλι σβοςα στατιστιλι, εσμι χ πανρτψ ϊαηςυφαετσρ οχεςμεκξωκ νοδυμψ, δμρ λοτοςοηο ξε ξαδο πςοιϊχοδιτψ αξαμιϊ όζζελτιχ- ξοστι. ζοςνατ ναλςολοναξδω: .PASTOP AREA ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT, σοστορύεκ ιϊ οδξοηο σμοχα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA ! 136 ! 2 ! !--------!--------! - 248 - οϋιβλι: λοδ πορσξεξιε 0 σςεδστχα ποδσιστενω αξαμιϊα όζζελτιχξοστι ξε ιξιγιαμιϊιςοχαξω. 7.15.4. ναλςολοναξδα .PAGET δαξξαρ ναλςολοναξδα ισπομψϊυετσρ δμρ ϊαχεςϋεξιρ ςαβοτω ποδσιστενω αξαμιϊα όζζελτιχξοστι. πο ότοκ ναλςολοναξδε ςεϊυμψτατω ςαβοτω ποδσιστενω πεςεδαΰτσρ χ βυζες πομψϊοχατε- μρ ι ποδσιτενα οσχοβοφδαετσρ δμρ ςαβοτω σ δςυηινι ϊαδαξιρ- νι. ζοςνατ ναλςολοναξδω: .PAGET PAR,BUF,BUFSIZE ηδε PAR - αδςεσ βυζεςα παςανετςοχ ιϊ ώετωςεθ σμοχ, χ λοτοςον θςαξρτσρ ϊξαώεξιρ παςανετςοχ, θαςαλτεςιϊυΰύιε ςαβοτυ ποδσιστενω αξαμιϊα όζζελτιχξοστι σ δαξξων ϊαδαξιεν. χ πεςχον σμοχε ξαθοδιτσρ ξιφξικ αδςεσ πςοηςαννω, σ λοτοςοηο πςοιϊχοδιτσρ σβος στατιστι- λι; χο χτοςον σμοχε - χεςθξικ αδςεσ, δο λοτοςοηο σοβιςαετσρ στατιστιλα; χ τςετεν σμοχε θςαξιτσρ γεξα δεμεξιρ ηιστοηςαννω χ βακταθ; χ ώετχεςτον σμοχε - ζμαη, υλαϊωχαΰύικ ξεοβθοδινοστψ υώετα χςε- νεξι οφιδαξιρ ϊαχεςϋεξιρ οπεςαγικ χχοδα/ χωχοδα; ζμαη νοφετ πςιξινατψ σμεδυΰύιε ϊξαώεξιρ: 1 - χςενρ οφιδαξιρ χχοδα/χωχοδα χλμΰώεξο χ αξα- μιϊ όζζελτιχξοστι; 100000 - χο χςενρ αξαμιϊα πςοιϊοϋμο πεςεπομξεξιε οδξοηο ιϊ σώετώιλοχ ηιστοηςαννω. BUF - αδςεσ βυζεςα, χ λοτοςωκ πεςεδαετσρ ξαλοπμεξξαρ χ πςογεσσε ςαβοτω ποδσιστενω αξαμιϊα όζζελτιχξοστι στατιστιλα; BUFSIZE - ςαϊνες χ βακταθ βυζεςα BUF. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 136 ! 3 ! !--------!--------! ! PAR ! !-----------------! ! BUF ! !-----------------! - 249 - ! BUFSIZE ! !-----------------! λοδ πορσξεξιε 0 στατιστιώεσλιε δαξξωε ξε σοβιςαμισψ; 1 ςαϊνες βυζεςα δμρ ηιστοηςαννω ναμ. χοϊχςαύαενωε ϊξαώεξιρ ηιστοηςαννω πςεδσταχμρΰτ σοβοκ ϋεστξαδγατιβιτξωε δχοιώξωε ϊξαώεξιρ - πο οδξονυ ϊξαώεξιΰ ξα λαφδοε δεμεξιε ηιστοηςαννω. 7.16. ναλςολοναξδω δμρ ξαπισαξιρ δςακχεςοχ ναλςολοναξδω δμρ ξαπισαξιρ δςακχεςοχ οπισαξω χο χτοςοκ ώαστι δαξξοηο δολυνεξτα, 2/β/.00109-01 33 01-2. 7.17. ναλςολοναξδω ςασϋιςεξξοκ πανρτι ναλςολοναξδω ςασϋιςεξξοκ πανρτι οπισαξω χ ςαϊδεμε 4. - 250 - 8. σιστενξαρ οβ'ελτξαρ βιβμιοτελα χ δαξξον ςαϊδεμε πςεδσταχμεξω ποδπςοηςαννω ι ζυξλγιι, λοτοςωε οβεσπεώιχαΰτ δοστυπ πςοηςανναν, ξαπισαξξων ξα ρϊω- λαθ ζοςτςαξ ι πασλαμψ, λ σςεδστχαν νοξιτοςοχ οπεςαγιοξξοκ σιστενω ι δςυηιε σεςχισξωε χοϊνοφξοστι. 8.1. οπεςαγιι σ λαταμοηανι 8.1.1. ποδπςοηςαννω CLOSEC/ICLOSE ποδπςοηςαννα CLOSEC πςεδξαϊξαώεξα δμρ ϊαχεςϋεξιρ ςαβο- τω ξα υλαϊαξξον λαξαμε ι οσχοβοφδεξιρ εηο δμρ δςυηοκ οπεςα- γιι. δςακχες υστςοκστχα, ξα λοτοςον βωμ οτλςωτ λαξαμ, δομ- φεξ ξαθοδιτψσρ χ πανρτι. ποδπςοηςαννυ CLOSEC ξεμψϊρ χωϊω- χατψ ιϊ ποδπςοηςανν ϊαχεςϋεξιρ ι οβςαβοτλι πςεςωχαξιρ. οβςαύεξιε λ ποδπςοηςαννε CLOSEC: CALL CLOSEC (CHAN[,I]) ιμι I=CLOSEC (CHAN) οβςαύεξιε λ ποδπςοηςαννε ICLOSE: CALL ICLOSE (CHAN[,I]) ιμι I=ICLOSE (CHAN) ηδε CHAN - ξονες ϊαλςωχαενοηο λαξαμα; οβμαστψ πανρτι, χ λοτο- ςοκ ςαϊνεύεξ ότοτ παςανετς, ξε δομφξα πεςελςωχατψ- σρ πςι σχοπιξηε USR; I - σοδεςφιτ 0 ιμι λοδ οϋιβλι, χοϊχςαύαενοκ χ σμυώαε ποπωτλι ξαςυϋεξιρ ϊαύιτω ζακμοχ οτ υδαμεξιρ. ποδπςοηςαννω CLOSEC ιμι PURGE δομφξω χωϊωχατψσρ πςι οπςεδεμεξξωθ οβστορτεμψστχαθ δμρ μΰβοηο λαξαμα, οτλςωτοηο δμρ χχοδα ιμι χωχοδα. εσμι χ λαώεστχε παςανετςα υλαϊαξ ξεοτλςωτωκ λαξαμ, χωϊοχ ποδπςοηςαννω CLOSEC ιηξοςιςυετσρ. εσμι ποδπςοηςαννα CLOSEC πςινεξρετσρ λ ζακμυ, οτλςωτο- νυ ποδπςοηςαννοκ IENTER, πςοισθοδιτ οβξοχμεξιε λαταμοηα υστςοκστχα, ποσμε ώεηο ζακμ σταξοχιτσρ ποστορξξων. εσμι λαταμοη υστςοκστχα, σχρϊαξξοηο σ υλαϊαξξων λαξαμον, υφε σοδεςφιτ ζακμ σ τεν φε ινεξεν ι τιπον ζακμα, το σταςωκ ζακμ - 251 - υδαμρετσρ, α ξοχωκ ζακμ σταξοχιτσρ ποστορξξων. εσμι υφε συύεστχυΰύικ ζακμ ϊαύιύεξ οτ υδαμεξιρ, το χωδαετσρ σοοβύε- ξιε οβ οϋιβλε. πςινεξεξιε ποδπςοηςαννω CLOSEC λ ζακμυ, οτλ- ςωτονυ χωϊοχον LOOKUP, ξε χωϊωχαετ ιϊνεξεξιρ χ λαταμοηε. εσμι σοϊδαξξωκ πο IENTER ζακμ ϊαλςωχαετσρ ποδπςοηςαν- νοκ CLOSEC, το εηο δμιξα οπςεδεμρετσρ λομιώεστχον ϊαπομξεξ- ξωθ βμολοχ. ξαπςινες, εσμι ζακμ ϊαπισαξ χ βμολ σ ξονεςον 0, το δμιξα ζακμα 1, εσμι χ ζακμ ξιώεηο ξε βωμο ϊαπισαξο, το ενυ σοοτχετστχυετ δμιξα 0. εσμι δμιξα ζακμα νεξψϋε ςαϊνεςα ϊοξω, χωδεμεξξοκ χο χςενρ χωπομξεξιρ χωϊοχα IENTER, το ξεισπομψϊοχαξξωε βμολι ξα υστςοκστχε οβ'ρχμρΰτσρ σχοβοδξων πςοστςαξστχον . ςεϊυμψτατω: I= 0 - οβωώξωκ χωθοδ; I=-4 - ϊαύιύεξξωκ ζακμ σ ταλιν ινεξεν υφε συύεστχυετ ξα υστςοκστχε; χωπομξρετσρ ποδπςοηςαννα CLOSEC; χ ςεϊυμψτατε ξα υστςοκστχε ολαϊωχαΰτσρ δχα ζακμα σ οδξιν ινεξεν. πςινες πολαϊωχαετ ζοςνιςοχαξιε ι οβςαβοτλυ ζακμα ιϊ 56 βμολοχ. πςινες. REAL*4 DBLK (2) DATA DBLK/6RSY0NEW,6RFILDAT/ DATA ISIZE/56/ . . . ICHAN=IGETC() IF(ICHAN.LT.0) GOTO 100 IERR=IENTER(ICHAN,DBLK,ISIZE) IF(IERR.GE.0) GOTO 10 GOTO (110,120,130) IABS(IERR) 10 . . . . . . CALL ICLOSE (ICHAN,IERR) IF (IERR.EQ.-4) GOTO 140 CALL IFREEC (ICHAN) CALL EXIT 100 STOP 'ξετ σχοβοδξωθ λαξαμοχ' 110 STOP 'λαξαμ υφε ισπομψϊυετσρ' 120 STOP 'ξα υστςοκστχε ναμο νεστα' 130 STOP 'υστςοκστχο ϊαξρτο' 140 STOP 'ϊαύιύεξξωκ ζακμ υφε συύεστχυετ' END - 252 - 8.1.2. ζυξλγιρ IDELET ζυξλγιρ IDELET πςεδξαϊξαώεξα δμρ υδαμεξιρ υλαϊαξξοηο ζακμα σ υλαϊαξξοηο υστςοκστχα. ποσλομψλυ ότα πςοηςαννα πεςεδαετ ιξζοςναγιΰ χ USR, ξεοβθοδινο πονξιτψ ο τον, ώτο παςανετςω ζυξλγιι IDELET δομφξω ςασπομαηατψσρ ταλ, ώτοβω οξι ξε πεςελςωχαμισψ πςι σχοπιξηε USR. ζυξλγιρ IDELET ξε νοφετ χωϊωχατψσρ ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ ιμι οβςαβοτλι πςεςωχαξιρ. οβςαύεξιε λ ζυξλγιι: I=IDELET (CHAN,DBLK[,SEGNUM]) ηδε CHAN - ξονες λαξαμα, λοτοςωκ βυδετ ισπομψϊοχατψσρ δμρ υδαμεξιρ ζακμα; ότοτ ξονες δομφεξ βωτψ πομυώεξ πςι πονούι IGETC ιμι, εσμι πPεδχαςιτεμψξο βωμα χωϊχαξα ICDEN, νοφξο ισπομψϊοχατψ λαξαμω σ ξονεςανι 16 (δεσρτιώξοε) ι χωϋε; DBLK - σπεγιζιλαγιρ ισλμΰώαενοηο ζακμα (DEV:FILNAM.TYP), σοστορύαρ ιϊ ώετωςεθ σμοχ χ λοδε RADIX-50; SEGNUM - ξονες ζακμα δμρ οπεςαγικ ξα λασσετξωθ ναηξιτξωθ μεξταθ; εσμι ότοτ παςανετς ξε υλαϊαξ, το εηο ϊξα- ώεξιε πςεδπομαηαετσρ ςαχξων ξυμΰ; δμρ οπεςαγικ σ ναηξιτξωνι μεξτανι οξ οπισωχαετ ξονες ζακμα, λοτο- ςωκ νοφετ πςιξινατψ οδξο ιϊ σμεδυΰύιθ ϊξαώεξικ: -1 - ότο ϊξαώεξιε ϊαπςεύαετ πεςενοτλυ μεξτω χ ξαώαμο; ποισλ ινεξι ζακμα χεδετσρ οτ τελυ- ύεηο πομοφεξιρ μεξτω; εσμι τελυύεε πομοφε- ξιε μεξτω ξειϊχεστξο, το πςοιϊχοδιτσρ οβςατξαρ πεςενοτλα δο τεθ πος, πολα ξε χστςετιτσρ νετλα EOF; ϊαπςεύαετσρ ισπομψϊο- χαξιε μΰβοηο δςυηοηο οτςιγατεμψξοηο ϊξαώε- ξιρ, τ.λ. χσε δςυηιε οτςιγατεμψξωε ϊξαώεξιρ ϊαςεϊεςχιςοχαξω; 0 - πςι ότον ϊξαώεξιι ναηξιτξαρ μεξτα πεςενατω- χαετσρ χ ξαώαμο, α ϊατεν δχιφετσρ χπεςεδ, πολα ξε βυδετ ξακδεξο ινρ ζακμα; N - μΰβοε πομοφιτεμψξοε ώισμο; ποϊιγιοξιςυετ ναηξιτξυΰ μεξτυ ξα ζακμ σ ποσμεδοχατεμψξων ξονεςον N ξα μεξτε; εσμι ποσμεδοχατεμψξωκ ξονες ζακμα (FSN) βομψϋε δχυθ, το πςοισθο- διτ πςεδχαςιτεμψξαρ πεςενοτλα χ ξαώαμο, α ϊατεν πςρνοκ ποισλ; εσμι βομψϋε δχυθ, το πςοισθοδιτ οβςατξαρ πεςενοτλα λ ζακμυ. ποσμε χωπομξεξιρ ζυξλγιι IDELET υλαϊαξξωκ λαξαμ οσχο- βοφδαετσρ. ζυξλγιρ IDELET τςεβυετ, ώτοβω ισπομψϊυενωκ δςακ- χες υστςοκστχα ξαθοδιμσρ χ οπεςατιχξοκ πανρτι (ότο δοστι- ηαετσρ σ πονούψΰ χωϊοχα IFETCH ιμι λοναξδοκ LOAD σ τεςνιξα- - 253 - μα). οτνετιν, ώτο εσμι δςακχες υστςοκστχα ξε ςεϊιδεξτεξ χ οϊυ, το πςοισθοδιτ οϋιβλα νοξιτοςα. βομεε δεταμψξο υδαμεξιε ζακμοχ ιϊ λαταμοηα υστςοκστχα οπισαξο χ σιστενξοκ ναλςολο- ναξδε .DELETE. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - υλαϊαξξωκ λαξαμ υφε οτλςωτ; I=2 - υλαϊαξξωκ ζακμ ξε ξακδεξ; I=3 - υστςοκστχο ϊαξρτο; I=4 - ζακμ ϊαύιύεξ ι ξε νοφετ βωτψ στεςτ. χ πςινεςε ζακμ ποδ ινεξεν FTN5.DAT υδαμρετσρ σ υστ- ςοκστχα SY0:. πςινες. REAL*4 FILNAM (2) DATA FILNAM /6RSY0FTN,6R5 DAT/ . . . I=IGETC () IF(I.LT.0)STOP 'ξετ λαξαμα' CALL IDELET (I,FILNAM) CALL IFREEC (I) 8.1.3. ζυξλγιρ IENTER ζυξλγιρ IENTER χωδεμρετ οβμαστψ ξα υλαϊαξξον υστςοκστ- χε ι ζοςνιςυετ χ λαταμοηε ξοσιτεμρ χςενεξξυΰ ϊαπισψ δμρ ξαϊχαξξοηο ζακμα. εσμι ξα υλαϊαξξον υστςοκστχε υφε συύεστ- χυετ ζακμ σ ταλιν ινεξεν, το οξ ξε ισλμΰώαετσρ δο τεθ πος, πολα χςενεξξαρ ϊαπισψ χ λαταμοηε ξε βυδετ πςεοβςαϊοχαξα χ ποστορξξυΰ ϊαπισψ πςι πονούι CLOSEC ιμι ICLOSE. ότονυ χςε- νεξξονυ ζακμυ σταχιτσρ χ σοοτχετστχιε υλαϊαξξωκ ξονες λαξα- μα. ποδπςοηςαννα IENTER πςι ςαβοτε οβςαύαετσρ λ USR. οβςαύεξιε λ ζυξλγιι: I=IENTER (CHAN,DBLK,LENGTH[,SEGNUM]) ηδε CHAN - ξονες λαξαμα (γεμοε ώισμο), λοτοςωκ σχρϊωχαετσρ σ ζακμον; ότοτ ξονες δομφεξ βωτψ πομυώεξ πςι πονούι IGETC ιμι, εσμι πςεδχαςιτεμψξο βωμα χωϊχαξα ISDFN, νοφξο ισπομψϊοχατψ λαξαμω σ ξονεςανι 16 (δεσρτιώ- ξοε) ι χωϋε; DBLK - σπεγιζιλαγιρ ζακμα, σοστορύρρ ιϊ ώετωςεθ σμοχ χ λοδε RADIX-50; LENGTH - γεμοε ώισμο βμολοχ, χωδεμρενωθ ποδ ζακμ; εσμι χεμιώιξα, υλαϊωχαΰύαρ δμιξυ, ςαχξα ξυμΰ, το δμρ - 254 - ϊαπισι ζακμα χωδεμρετσρ πομοχιξα ξαιβομψϋεηο σχο- βοδξοηο πςοστςαξστχα ιμι χεσψ σμεδυΰύικ πο χεμιώιξε ; εσμι χεμιώιξα, υλαϊωχαΰύαρ δμιξυ, ςαχξα -1, το δμρ ϊαπισι ζακμα χωδεμρετσρ ξαιβομψϋικ ; (σν. π. 7.1.3); SEGNUM - ξονες ζακμα ξα λασσετξωθ ξαλοπιτεμρθ ξα ναηξιτξωθ μεξταθ; εσμι ότοτ παςανετς ξε υλαϊαξ, οξ πςιξι- ναετσρ ςαχξων ξυμΰ; δμρ ναηξιτξοκ μεξτω οξ οπισω- χαετ ποσμεδοχατεμψξωκ ξονες ζακμα; παςανετς νοφετ ινετψ σμεδυΰύιε ϊξαώεξιρ: -2 - οβοϊξαώαετ πεςενοτλυ ναηξιτξοκ μεξτω χ ξαώαμο ι ποισλ χ πςρνον ξαπςαχμεξιι πολα ξε βυδετ ξακδεξο ινρ ζακμα ιμι μοηιώεσλικ λοξεγ μεξτω (LEOT); -1 - οβοϊξαώαετ πεςενεύεξιε λ ϊαπισι LEOT ι οτλ- ςωτιε χωθοδξοηο ζακμα; 0 - οβοϊξαώαετ πεςενοτλυ μεξτω χ ξαώαμο ι πςοσ- νοτς χ πςρνον ξαπςαχμεξιι πολα ξε βυδετ ξακδεξο ινρ ζακμα ιμι ξε οβξαςυφεξ LEOT; εσμι ινρ ζακμα βυδετ ξακδεξο, ηεξεςιςυετσρ λοδ οϋιβλι; εσμι ζακμ ξε βυδετ ξακδεξ, το οξ βυδετ σοϊδαξ. N - οϊξαώαετ υσταξοχλυ ναηξιτξοκ μεξτω ξα ξαώα- μο ζακμα σ ποσμεδοχατεμψξων ξονεςον N, εσμι ινρ ζακμα ξε πυστο; εσμι ποσμεδοχατεμψξωκ ξονες ζακμα βομψϋε δχυθ, το πςεδχαςιτεμψξο πςοισθοδιτ πεςενοτλα μεξτω χ ξαώαμο; χ πςο- τιχξον σμυώαε πςοισθοδιτ οβςατξαρ πεςενοτλα λ ζακμυ. πςινεώαξιρ: 1. ζυξλγιΰ IENTER ξεμψϊρ χωϊωχατψ χ ποδπςοηςανναθ ϊαχεςϋεξιρ ι οβςαβοτλι πςεςωχαξιρ. 2. ζυξλγιρ IENTER τςεβυετ, ώτοβω χ πανρτι ξαθοδιμσρ δςακχες σοοτχετστχυΰύεηο υστςοκστχα. 3. παςανετςω ζυξλγιι δομφξω ςασπομαηατψσρ χ πανρτι χξε οβμαστι σχοπιξηα USR. βομεε ποδςοβξο ο ζοςνιςοχαξιι ϊαπισι χ λαταμοηε ο χςε- νεξξον ζακμε σλαϊαξο χ οπισαξιι σιστενξοκ ναλςολοναξδω .ENTER. ςεϊυμψτατω ζυξλγιι: I= N - οβωώξωκ χωθοδ: N - ώισμο χωδεμεξξωθ βμολοχ (N=0 δμρ ζυξλγιι IENTER, πςινεξεξξοκ λ υστςοκστχυ σ ξεζακμοχοκ στςυλτυςοκ); I=-1 - λαξαμ (CHAN) ϊαξρτ; I=-2 - δμρ ϊαπισι ζακμα σ υλαϊαξξοκ δμιξοκ ξε βωμο οβξαςυφεξο βομψϋεηο ιμι ςαχξοηο υλαϊαξξοκ δμιξε; I=-3 - υστςοκστχο ϊαξρτο; I=-4 - ζακμ σ υλαϊαξξων ινεξεν υφε συύεστχυετ ι - 255 - ϊαύιύεξ; I=-5 - ζακμ σ υλαϊαξξων ποσμεδοχατεμψξων ξονεςον ξε ξακδεξ. χ πςινεςε ξαϊξαώαετσρ λαξαμ δμρ ζακμα TEMP.TMP ξα υστ- ςοκστχε SY0:. εσμι ξετ σχοβοδξοηο λαξαμα, το πςοηςαννα πεώαταετ σοοβύεξιε ι οσταξαχμιχαετσρ. πςινες. REAL*4 DBLK (2) DATA DBLK/6RSY0TEM,6RP TMP/ ICHAN=IGETC () IF (ICHAN.LT.0) STOP 'ξετ σχοβοδξοηο λαξαμα' C C σοϊδαξιε χςενεξξοηο ςαβοώεηο ζακμα C IF (IENTER(ICHAN,DBLK,20).LT.0) * STOP 'οϋιβλα σοϊδαξιρ ζακμα' . . . CALL PURGE (ICHAN) CALL IFREEC (ICHAN) END 8.1.4. ζυξλγιρ IRENAM ζυξλγιρ IRENAM πςεδξαϊξαώεξα δμρ ιϊνεξεξιρ ινεξι υλα- ϊαξξοηο ζακμα. οϋιβλα χοϊξιλαετ χ σμυώαε, εσμι υλαϊαξξωκ λαξαμ υφε οτλςωτ. οβςαύεξιε λ ζυξλγιι: I=IRENAM (CHAN,DBLK) ηδε CHAN - ξονες λαξαμα (γεμοε), ισπομψϊυενοηο χ οπεςαγιι; ότοτ ξονες δομφεξ βωτψ πομυώεξ πςι πονούι IGETC ιμι, εσμι πςεδχαςιτεμψξο βωμα χωϊχαξα ICDFN, νοφξο ισπομψϊοχατψ λαξαμω σ ξονεςανι 16 (δεσρτιώξοε) ι χωϋε; λαξαμ χξοχψ βυδετ δοστυπεξ δμρ ισπομψϊοχαξιρ ποσμε χωπομξεξιρ οπεςαγιι πεςεινεξοχαξιρ; DBLK - 8-σμοχξαρ ϊοξα, σοδεςφαύαρ σπεγιζιλαγιΰ συύεστχυΰ- ύεηο ζακμα ι εηο ξοχυΰ σπεγιζιλαγιΰ; ότα ϊοξα ςασσνατςιχαετσρ χ χιδε γεμοηο νασσιχα τιπα INTEGER*2 ιϊ 8 όμενεξτοχ; DBLK ινεετ ζοςνυ: 1-4 σμοχα - ρχμρΰτσρ οπισατεμεν χ RADIX-50 σταςοηο ινεξι ζακμα; 5-8 σμοχα - ρχμρΰτσρ οπισατεμεν χ RADIX-50 ξοχοηο ινεξι ζακμα. παςανετςω ζυξλγιι IRENAM δομφξω ςασπομαηατψσρ χ πανρτι ταλ, ώτοβω οξι ξε πεςελςωχαμισψ σ USR πςι σχοπιξηε. - 256 - εσμι ξα υλαϊαξξον υστςοκστχε υφε συύεστχυετ ζακμ σ ινεξεν, σοχπαδαΰύιν σ ξοχων ινεξεν ζακμα, το ότοτ ζακμ υδα- μρετσρ. πο ϊαχεςϋεξιι ζυξλγιι IRENAM υλαϊαξξωκ λαξαμ οσταετσρ ϊαλςωτων (τ.ε. σχοβοδξων). ζυξλγιρ IRENAM τςεβυετ, ώτοβω ισπομψϊυενωκ δςακχες υπςαχμεξιρ υστςοκστχον ξαθοδιμσρ χ οπεςατιχξοκ πανρτι χ νονεξτ χωπομξεξιρ ότοκ ζυξλγιι. εσμι εηο ταν ξετ, το χοϊξι- λαετ οϋιβλα νοξιτοςα. ινεξα υστςοκστχ, υλαϊαξξωε χ οπισατε- μρθ ζακμοχ, δομφξω σοχπαδατψ. βομεε ποδςοβξο ο πεςεινεξοχωχαξιι ζακμοχ σλαϊαξο χ οπισαξιι σιστενξοκ ναλςολοναξδω .RENAME. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - υλαϊαξξωκ λαξαμ υφε οτλςωτ; I=2 - ϊαδαξξωκ ζακμ ξε ξακδεξ; I=3 - ζακμ σ υλαϊαξξων ινεξεν υφε συύεστχυετ ι ϊαύιύεξ. πςινες. REAL*8 NAME (2) DATA NAME /12RRK0FTN2 DAT,12RRK0FTN2 οLD/ . . . ICHAN=IGETC ( ) IF(ICHAN.LT.0) STOP 'ξετ λαξαμα' CALL IRENAM(ICHAN,NAME) !σοθςαξιτψ σταςωκ ζακμ C δαξξωθ CALL IFREEC (ICHAN) 8.1.5. ζυξλγιρ LOOKUP ζυξλγιρ LOOKUP σχρϊωχαετ ϊαδαξξωκ λαξαμ σ υστςοκστχον ι/ιμι ζακμον δμρ χωπομξεξιρ οπεςαγικ χχοδα/χωχοδα. ισπομψ- ϊυενωκ λαξαμ σώιταετσρ ϊαξρτων δο τεθ πος, πολα ξε βυδετ χωπομξεξα οδξα ιϊ σμεδυΰύιθ ζυξλγικ: CLOSEC ιμι ICLOSE ISAVES PURGE οβςαύεξιε λ ζυξλγιι: I = LOOKUP (CHAN,DBLK[,COUNT,SEGNUM]) ιμι I = LOOKUP (CHAN,JOBDES) ηδε - 257 - CHAN - ξονες λαξαμα (γεμοε), λοτοςωκ ξεοβθοδινο σχρϊατψ σ ζακμον ιμι υστςοκστχον; ότοτ ξονες λαξαμα δομφεξ βωτψ πομυώεξ πςι πονούι IGETC ιμι, εσμι πςεδχαςι- τεμψξο βωμα χωϊχαξα ICDFN, νοφξο ισπομψϊοχατψ λαξαμω σ ξονεςανι 16 (δεσρτιώξοε) ι χωϋε; DBLK - σπεγιζιλαγιρ ζακμα ιμι υστςοκστχα, σοστορύρρ ιϊ ώετωςεθ σμοχ χ RADIX-50; σμεδυετ οτνετιτψ, ώτο εσμι USR πεςελςοετ πςι σχοπιξηε ότι ώετωςε σμοχα, το ςεϊυμψτατ ξεπςεδσλαϊυεν; COUNT - παςανετς, ισπομψϊυενωκ δμρ υπςαχμεξιρ λασετξοκ ναηξιτξοκ μεξτοκ, πο υνομώαξιΰ ςαχεξ 0; SEGNUM - ξονες ζακμα; πςι ςαβοτε σ λασετξοκ ναηξιτξοκ μεξ- τοκ, εσμι ότοτ αςηυνεξτ οπυύεξ, οξ πςεδπομαηαετσρ ςαχξων 0; δμρ ναηξιτξοκ μεξτω οξ οπισωχαετ ποσμε- δοχατεμψξωκ ξονες ζακμα; πςεδπςιξιναενωε δεκστχιρ ϊαχισρτ οτ τοηο, υλαϊαξο μι ινρ ζακμα; ποσμεδοχα- τεμψξωκ ξονες νοφετ ινετψ σμεδυΰύιε ϊξαώεξιρ: -1 - οτνεξρετ πεςενοτλυ λ ξαώαμυ μεξτω, ποισλ οσυύεστχμρετσρ οτ τελυύεκ ποϊιγιι; εσμι ινρ ζακμα ϊαδαξο, χωπομξρετσρ LOOKUP ζακμοχοηο τιπα (βεϊ πεςενοτλι χ ξαώαμο); εσμι ινρ ζακμα πυστο, χωπομξρετσρ ξεζακμοχωκ LOOKUP (μεξτα ξε δχιφετσρ); ισπομψϊοχαξιε οτςιγα- τεμψξωθ ϊξαώεξικ, οτμιώξωθ οτ -1, ϊαπςεύε- ξο; 0 - πεςενοτλα χ ξαώαμο μεξτω ι χωπομξεξιε ξεζακμοχοηο οτλςωτιρ μεξτω; N - μΰβοε πομοφιτεμψξοε ώισμο; ποϊιγιοξιςυετ μεξτυ ξα ζακμ σ ποσμεδοχατεμψξων ξονεςον N ι πςοχεςρετ σοχπαδεξιε ινεξ; εσμι ινεξα ξε σοχπαδαΰτ, ηεξεςιςυετσρ οϋιβλα; εσμι ινρ ζακμα ξε ϊαδαξο, LOOKUP ζακμοχοηο τιπα πςοιϊχοδιτσρ δμρ ζακμα, ϊαδαξξοηο SEGNUM; JOBDES - αςηυνεξτ, ποϊχομρΰύικ υσταξοχιτψ σχρϊψ νεφδυ ϊαδα- ξιρνι χ νοξιτοςε σο σςεδστχανι σιστενξωθ ϊαδαξικ; ρχμρετσρ υλαϊατεμεν ξα ώετωςεθσμοχξωκ βμολ οπισα- ξιρ ϊαδαξιρ, λοτοςονυ βυδυτ πεςεδαχατψσρ ιμι οτ λοτοςοηο βυδυτ πςιξινατψσρ σοοβύεξιρ: JOBDES: .RAD50 /MQ/ .ASCII /LOGNAM/ ηδε LOGNAM - ινεετ δμιξυ ιϊ 6 σινχομοχ; εσμι οξο οπυύεξο (T.E. χσε ξυμι), το λαξαμ βυδετ οτλςωτ τομψλο δμρ οπεςαγικ ώτεξιρ (.READ/.READC/.READW), ι ϊαπςοσω ξα ώτεξιε βυδυτ πςιξινατψ σοοβύεξιε ιϊ μΰβοηο ϊαδα- ξιρ. παςανετςω ζυξλγιι LOOKUP δομφξω ςασπομαηατψσρ ταλ, - 258 - ώτοβω οξι ξε πεςελςωχαμισψ σ USR πςι σχοπιξηε. πςι χωπομξε- ξιι ζυξλγιι LOOKUP χ οπεςατιχξοκ πανρτι δομφεξ ξαθοδιτψσρ δςακχες υπςαχμεξιρ υλαϊαξξων υστςοκστχον. εσμι χ σπεγιζιλαγιι πεςχοε σμοχο ινεξι ζακμα ςαχξο 0, α υστςοκστχο ρχμρετσρ υστςοκστχον ζακμοχοκ στςυλτυςω, το ξαώαμον "ζακμα" ξαϊξαώαετσρ αβσομΰτξωκ ξυμεχοκ βμολ ξοσιτε- μρ. χ ότον σμυώαε, λοτοςωκ ξαϊωχαετσρ ξεζακμοχων οτλςωτιεν λαξαμα, πςοηςαννα πομυώαετ δοστυπ λ πςοιϊχομψξων ζιϊιώεσλιν βμολαν υστςοκστχα. εσμι πςι ότον πςοιϊχοδρτσρ οπεςαγιι χχοδα/χωχοδα, το ζακμοχαρ στςυλτυςα ξα υστςοκστχε (λαταμοη) νοφετ βωτψ ςαϊςυϋεξα. εσμι ινρ ζακμα υλαϊαξο δμρ υστςοκστ- χα, ξε ινεΰύεηο ζακμοχοκ στςυλτυςω (ξαπςινες, LP:FILE.EXT-υστςοκστχο πεώατι), το ινρ ιηξοςιςυετσρ. ςεϊυμψτατω ζυξλγιι: I=N - οβωώξωκ χωθοδ ιϊ ζυξλγιι, N ςαχεξ ώισμυ βμολοχ ζακμα (0 δμρ LOOKUP ξεζακμοχοκ στςυλτυςω δμρ λασσετξοκ ι ναηξιτξοκ μεξτω); I=-1 - ϊαδαξξωκ λαξαμ υφε οτλςωτ; I=-2 - υλαϊαξξωκ ζακμ ξα υστςοκστχε ξε ξακδεξ; I=-3 - υστςοκστχο ισπομψϊυετσρ; I=-4 - υλαϊαξξωκ μεξτοπςοτρφξωκ νεθαξιϊν ξεδοστυπεξ. πςινεςω: INTEGER*2 DBLK (4) DATA DBLK /3RRK0,3RFTN,3R44 ,3RDAT/ . . . ICHAN=IGETC ( ) IF(ICHAN.LT.0)STOP 'λαξαμ οτσυτστχυετ' IF(IFETCH(DBLK).NE.0) STOP 'FETCH ξε υδαώεξ' IF(LOOKUP(ICHAN,DBLK).LT.0) STOP 'LOOKUP ξε υδαώεξ' . . . CALL CLOSEC (ICHAN) CALL IFREEC (ICHAN) ιμι, ισπομψϊυρ LOOKUP δμρ σιστενξοηο ϊαδαξιρ: LOGICAL*1 JNAM (6) DIMENSION JBLK (4) EQUIVALENCEN (JNAM,JBLK(2)) DATA JNAM /'Q','U','E','U','E',0/ DATA JBLK (1) /3RMQ / . . . C C οτλςωτψ λαξαμ σοοβύεξικ δμρ 'QUEUE' C ICHAN=IGETC ( ) IF (LOOKUP (ICHAN, JBLK).LT.0) * STOP 'QUEUE ξε χωϊχαξα' . . . - 259 - 8.2. οπεςαγιι χχοδα/χωχοδα 8.2.1. ζυξλγιι IREAD/IREADC/IREADF/IREADW IREAD/IREADC/IREADF/IREADW - ώετωςε ζοςνω ζυξλγιι ώτε- ξιρ ιξζοςναγιι πο υλαϊαξξονυ λαξαμυ ιϊ ζακμα χ πανρτψ. χωπομξεξιε ότιθ ζυξλγικ τςεβυετ όμενεξτ οώεςεδι, ώτο δομφξο υώιτωχατψσρ πςι χωπομξεξιι ζυξλγιι IQSET. 8.2.1.1. ζυξλγιρ IREAD ζυξλγιρ IREAD υσταξαχμιχαετ ϊαπςοσ ξα ώτεξιε ϊαδαξξοηο ώισμα σμοχ ιϊ ζακμα πο υλαϊαξξονυ λαξαμυ χ οώεςεδψ ι ξενεδ- μεξξο χοϊχςαύαετ υπςαχμεξιε πςοηςαννε. ποσμε ϊαχεςϋεξιρ πεςεδαώι ξιλαλιθ σπεγιαμψξωθ δεκστχικ ξε χωπομξρετσρ. οβςαύεξιε λ ζυξλγιι: I=IREAD (WCNT,BUF,BLK,CHAN) ηδε WCNT - γεμοε; ώισμο σμοχ, λοτοςοε δομφξο βωτψ πεςεδαξο; BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα; ότοτ νασ- σιχ δομφεξ βωτψ πο δμιξε ξε νεξψϋε σώετώιλα σμοχ (WCNT); BLK - ξονες ώιταενοηο βμολα οτ ξαώαμα ζακμα; πεςχωκ βμολ ζακμα ινεετ ξονες 0; πςι ξεοβθοδινοστι πςοηςαννα δομφξα υχεμιώιχατψ ξονες βμολα; ξαπςινες, εσμι πςοηςαννοκ πςοώιταξο δχα βμολα, το δμρ ώτεξιρ σμε- δυΰύιθ ξεοβθοδινο υχεμιώιτψ BLK ξα 2; CHAN - ξονες ισπομψϊυενοηο λαξαμα. χ σμυώαε, λοηδα πςοηςαννε τςεβυετσρ δοστυπ λ δαξξων, ώιταενων πο υλαϊαξξονυ λαξαμυ, δομφξα χωϊωχατψσρ ζυξλγιρ IWAIT. ότο ηαςαξτιςυετ ϊαχεςϋεξιε οπεςαγιι IREAD. εσμι χο χςενρ πεςεδαώι πςοιϊοϋμα οϋιβλα, το ξαμιώιε οϋιβλι πολαϊω- χαετ ζυξλγιρ IWAIT. ςεϊυμψτατω ζυξλγιι: I=N - οβωώξωκ χωθοδ ιϊ ζυξλγιι, N ςαχξο ώισμυ πςοώιταξξωθ σμοχ (0-πςι ώτεξιι δαξξωθ σ υστςοκ- στχα ξεζακμοχοκ στςυλτυςω ι λςατξο 256 (δεσρτιώξοε) πςι ώτεξιι δαξξωθ σ υστςοκστχα ζακμοχοκ στςυλτυςω), ξαπςινες: - 260 - - εσμι σώετώιλ σμοχ λςατεξ 256 ι χ ζακμε δοστυπξο σμοχ νεξψϋε, ώεν υλαϊαξο χ σώετώιλε, το N υλαϊω- χαετ ώισμο ζαλτιώεσλι σώιταξξωθ σμοχ; ξαπςινες, εσμι σώετώιλ ςαχεξ 512, α χ ζακμε οσταμοσψ 256 σμοχ, το I=256; - εσμι σώετώιλ σμοχ ξε λςατεξ 256 ι χ ζακμε οσταετσρ σμοχ βομψϋε, ώεν υλαϊαξο χ σώετώιλε, το N ολςυη- μρετσρ χχεςθ δο σμεδυΰύεηο βμολα; ξαπςινες, εσμι σώετώιλ σμοχ ςαχεξ 312, α χ ζακμε οσταμοσψ βομψϋε 312 σμοχ, το I=512, ξο σώιτωχαετσρ τομψλο 312 σμοχ; - εσμι σώετώιλ σμοχ ξε λςατεξ 256 ι χ ζακμε οσταετσρ σμοχ νεξψϋε, ώεν υλαϊαξο χ σώετώιλε, το N ςαχξο ώισμυ, λςατξονυ 256; I=-1 - ποπωτλα σώιτατψ δαξξωε ποσμε λοξγα ζακμα; I=-2 - χ λαξαμε πςοιϊοϋμα αππαςατξαρ οϋιβλα; I=-3 - υλαϊαξξωκ λαξαμ ξε οτλςωτ. πςινεώαξιε. εσμι χ λαξαμε (ξαπςινες, IREAD) πςι ασιξθ- ςοξξοκ οπεςαγιι βωμο οβςαύεξιε ϊα πςεδεμω ζακμα, το ζυξλγιρ IWAIT ξε οβξαςυφιτ ότοηο, T.K. IWAIT οβξαςυφιχαετ ξαμιώιε τομψλο αππαςατξωθ οϋιβολ. ποσμεδυΰύεκ οπεςαγιεκ δμρ ότοηο λαξαμα βυδετ οβξαςυφεξιε λοξγα ζακμα ι χωδαώα πομψϊοχατεμΰ λοδα οϋιβλι EOF. πςινες. INTEGER*2 BUFFER(256),RCODE,BLK . . . RCODE=IREAD (256,BUFFER,BLK,ICHAN) IF(RCODE+1) 1010,1000,10 10 . . . IF(IWAIT(ICHAN).NE.0) GOTO 1010 . . . 1000 CONTINUE C λοξεγ οβςαβοτλι ζακμα . . . CALL EXIT !εστεστχεξξωκ λοξεγ πςοηςαννω 1010 STOP'ξεπςαχιμψξοε σώιτωχαξιε' END 8.2.1.2. ζυξλγιρ IREADC ζυξλγιρ IREADC υσταξαχμιχαετ χ οώεςεδψ ϊαπςοσ ξα ώτε- ξιε ϊαδαξξοηο ώισμα σμοχ ιϊ ζακμα χ πανρτψ πο υλαϊαξξονυ λαξαμυ ι ξενεδμεξξο χοϊχςαύαετ υπςαχμεξιε χ χωϊχαχϋυΰ πςοη- ςαννυ: ποσμε ϊαχεςϋεξιρ οπεςαγιι οσξοχξαρ πςοηςαννα πςεςω- χαετσρ ι ϊαπυσλαετσρ ποδπςοηςαννα ξα ρϊωλε ναλςοασσενβμεςα χ λαώεστχε ασιξθςοξξοκ ποδπςοηςαννω ϊαχεςϋεξιρ. οβςαύεξιε λ ζυξλγιι: - 261 - I=IREADC (WCNT,BUF,BLK,CHAN,CRTN) ηδε WCNT - γεμοε ώισμο σμοχ, λοτοςοε δομφξο βωτψ πεςεδαξο; BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα; ότοτ νασ- σιχ δαξξωθ δομφεξ ινετψ δμιξυ ξε νεξψϋε, ώεν υλα- ϊαξο χ παςανετςε WCNT; BLK - ξονες ώιταενοηο βμολα οτ ξαώαμα ζακμα; πςοηςαννα οβωώξο υχεμιώιχαετ BLK πεςεδ εηο ποχτοςξων ισπομψ- ϊοχαξιεν; πεςχων βμολον ζακμα ρχμρετσρ βμολ ξονες 0; CHAN - ξονες ισπομψϊυενοηο λαξαμα; CRTN - ινρ ποδπςοηςαννω ϊαχεςϋεξιρ ξα ασσενβμεςε. ςεϊυμψτατω ζυξλγιι πςεδσταχμεξω χ οπισαξιι ζυξλγιι IREAD (σν. ποδπυξλτ 8.2.1.1). πςινες. INTEGER*2 IBUF (256),RCODE,IBLK EXTERNAL RDCMP . . . RCODE=IREADC (256,IBUF,IBLK,ICHAN,RDCMP) 8.2.1.3. ζυξλγιρ IREADF ζυξλγιρ IREADF υσταξαχμιχαετ χ οώεςεδψ ϊαπςοσ ξα ώτε- ξιε ϊαδαξξοηο ώισμα σμοχ ιϊ ζακμα χ πανρτψ πο υλαϊαξξονυ λαξαμυ ι ξενεδμεξξο χοϊχςαύαετ υπςαχμεξιε χ χωϊχαχϋυΰ πςοη- ςαννυ: ποσμε ϊαχεςϋεξιρ οπεςαγιι οσξοχξαρ πςοηςαννα πςεςω- χαετσρ ι ϊαπυσλαετσρ ποδπςοηςαννα ξα ρϊωλε ζοςτςαξ χ λαώεστχε ασιξθςοξξοκ ποδπςοηςαννω ϊαχεςϋεξιρ. οβςαύεξιε λ ζυξλγιι: I=IREADF (WCNT,BUF,BLK,CHAN,AREA,CRTN) ηδε WCNT - γεμοε ώισμο σμοχ, λοτοςοε δομφξο βωτψ πεςεδαξο; BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα; ότοτ νασ- σιχ δαξξωθ δομφεξ ινετψ δμιξυ ξε νεξψϋε, ώεν υλα- ϊαξο χ παςανετςε WCNT; BLK - ξονες ώιταενοηο βμολα οτ ξαώαμα ζακμα; πςοηςαννα οβωώξο υχεμιώιχαετ BLK πεςεδ εηο ποχτοςξων ισπομψ- ϊοχαξιεν; πεςχων βμολον ζακμα ρχμρετσρ βμολ ξονες 0; - 262 - CHAN - ξονες ισπομψϊυενοηο λαξαμα; CRTN - ποδπςοηςαννα ϊαχεςϋεξιρ, ξαπισαξξαρ ξα ρϊωλε ζοςτ- ςαξ; ινρ πςοηςαννω δομφξο υλαϊωχατψσρ χ οπεςατοςε EXTERNAL ποδπςοηςαννω, χωϊωχαΰύεκ IREADF. ςεϊυμψτατω ζυξλγιι πςεδσταχμεξω χ οπισαξιι ζυξλγιι IREAD (σν. ποδπυξλτ 8.2.1.1). πςινες. INTEGER*2 DBLK (4),BUFFER (256),BLKNO DATA DBLK /3RRK0,3RINP,3RUT ,3RDAT/,BLKNO/0/ EXTERNAL RCMPLT . . . ICHAN=IGETC () IF (ICHAN.LT.0)STOP 'ξετ σχοβοδξοηο λαξαμα' IF (IFETCH(DBLK).NE.0)STOP 'οϋιβλα FETCH' IF (LOOKUP(ICHAN,DBLK).LT.0)STOP 'οϋιβλα LOOKUP' . . . 20 IF(IREADF(256,BUFFER,BLKNO,ICHAN,DBLK,RCMPLT) * .LT.0) GOTO 100 . . . CALL IWAIT (ICHAN) !φδατψ χωϊοχα ποδπςοηςαννω C ϊαχεςϋεξιρ BLKNO=BLKNο+1 !οβξοχιτψ ξονες βμολα GOTO 20 . . . C οβςαβοτλα λοξγα ζακμα 100 CALL CLOSEC (ICHAN) CALL IFREEC (ICHAN) . . . CALL EXIT END SUBROUTINE RCMPLT (I,J) C ποδπςοηςαννα ϊαχεςϋεξιρ . . . RETURN END 8.2.1.4. ζυξλγιρ IREADW ζυξλγιρ IREADW υσταξαχμιχαετ χ οώεςεδψ ϊαπςοσ ξα ώτε- ξιε ϊαδαξξοηο ώισμα σμοχ ιϊ ζακμα χ πανρτψ πο υλαϊαξξονυ λαξαμυ; υπςαχμεξιε πςοηςαννε χοϊχςαύαετσρ ποσμε ϊαχεςϋεξιρ οπεςαγιι ιμι πςι οβξαςυφεξιι οϋιβλι. οβςαύεξιε λ ζυξλγιι: I=IREADW (WCNT,BUF,BLK,CHAN) ηδε WCNT - λομιώεστχο σμοχ, λοτοςοε δομφξο βωτψ πεςεδαξο; - 263 - BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα; ότοτ νασ- σιχ δαξξωθ δομφεξ ινετψ δμιξυ ξε νεξψϋε, ώεν υλα- ϊαξο χ παςανετςε WCNT; BLK - ξονες ώιταενοηο βμολα οτ ξαώαμα ζακμα; πςοηςαννα οβωώξο υχεμιώιχαετ BLK πεςεδ ποχτοςξων ισπομψϊοχα- ξιεν; CHAN - ξονες ισπομψϊυενοηο λαξαμα. ςεϊυμψτατω ζυξλγιι πςεδσταχμεξω χ οπισαξιι ζυξλγιι IREAD (σν. ποδπυξλτ 8.2.1.1). πςινες. INTEGER*2 IBUF (1024) . . . ICODE=IREADW (1024,IBUF,IBLK,ICHAN) IF(ICODE.EQ.-1) GOTO 100 ! οβςαβοτλα λοξγα ζακ- C μα χ οπεςατοςε 100 . . . IF(ICODE.LT.-1)GOTO 200 !οβςαβοτλα οϋιβλι χ C οπεςατοςε 200 C νοδιζιγιςοχατψ βμολι . . . C ϊαπισατψ, ϊατεν χωκτι ICODE=IWRITW (1024,IBUF,IBLK,ICHAN) 8.2.2. ζυξλγιρ ITTINR ζυξλγιρ ITTINR πςεδξαϊξαώεξα δμρ πεςεδαώι σινχομα σ σιστενξοηο τεςνιξαμα χ πςοηςαννυ πομψϊοχατεμρ. εσμι χ βυζε- ςε σιστενω ξετ χχεδεξξωθ σινχομοχ, το δεκστχιρ σιστενω οπςεδεμρΰτσρ σοστορξιεν ςαϊςρδα 6 χ σμοχε σοστορξιρ ϊαδαξιρ (JSW). οβςαύεξιε λ ζυξλγιι: I=ITTINR () εσμι ςεϊυμψτατ χωπομξεξιρ ζυξλγιι ITTINR νεξψϋε ξυμρ, το ότο ϊξαώιτ, ώτο χ βυζεςε ξε βωμο σινχομοχ, τ.ε. οπεςατος εύε ξε χχεμ στςολυ. πςι ισπομψϊοχαξιι XM- ιμι FB-νοξιτοςα ζυξλγιρ ITTINR ξε χοϊχςαύαετ ςεϊυμψτατ νεξψϋε ξυμρ, εσμι βιτ 6 σμοχα σοστορξιρ ϊαδαξιρ ξε βωμ υσταξοχμεξ πςι χωϊοχε ITTINR. συύεστχυετ δχα ςεφινα χχοδα σ τεςνιξαμα. ςεφιν ϊαδαετ- σρ βιτον 12 σμοχα σοστορξιρ ϊαδαξιρ. σμοχο σοστορξιρ ϊαδα- ξιρ οπςεδεμρετσρ σοδεςφινων 44-κ ρώεκλι πανρτι χ οβμαστι SYSCOM. εσμι 12-κ βιτ ςαχεξ ξυμΰ, το χωπομξρετσρ οβωώξωκ - 264 - χχοδ/χωχοδ. χ ότον ςεφινε χωπομξρΰτσρ σμεδυΰύιε δεκστχιρ: - νοξιτος οτοβςαφαετ ξα όλςαξε τεςνιξαμα χσε χχεδεξ- ξωε σ λμαχιατυςω ϊξαλι; - λοναξδω ι οσυύεστχμρΰτ υδαμεξιε στςολι ι σινχομα σοοτχετστχεξξο; - σινχομω τελυύεκ στςολι πεςεδαΰτσρ χ πςοηςαννυ πομψϊοχατεμρ ποσμε χχοδα σ λμαχιατυςω τεςνιξαμα οδξοηο ιϊ ώετωςεθ υπςαχμρΰύιθ ϊξαλοχ: , , ιμι . εσμι 12-κ βιτ ςαχεξ 1, το ϊαδαετσρ σπεγιαμψξωκ ςεφιν. πςι ότον πςοισθοδιτ σμεδυΰύεε: - νοξιτος ξε οτοβςαφαετ ξα τεςνιξαμε χχεδεξξωε σ λμαχιατυςω σινχομω, ϊα ισλμΰώεξιεν ι ; - λοναξδω ι ξε χωπομξρΰτ σπεγιαμψξωθ ζυξλγικ; - σινχομω πεςεδαΰτσρ χ πςοηςαννυ ξενεδμεξξο; - ξε πςεοβςαϊυετσρ. χ σπεγιαμψξον ςεφινε πςοηςαννα πομψϊοχατεμρ δομφξα σανα οτοβςαφατψ ξυφξωε σινχομω. 12-κ ςαϊςρδ σμοχα σοστορξιρ ϊαδαξιρ δομφεξ βωτψ υστα- ξοχμεξ πςοηςαννοκ, εσμι ξεοβθοδιν σπεγιαμψξωκ ςεφιν υπςαχ- μεξιρ τεςνιξαμον. 14-κ ςαϊςρδ JSW υσταξαχμιχαετσρ δμρ ςαϊ- ςεϋεξιρ χχοδα σ λμαχιατυςω ϊξαλοχ λιςιμμιγω. ότι βιτω σβςα- σωχαΰτσρ πςι χοϊχςατε υπςαχμεξιρ χ νοξιτος. χξε ϊαχισινοστι οτ υσταξοχλι 12-ηο ςαϊςρδα JSW πςι χχοδε σ λμαχιατυςω χ πςοηςαννυ, πεςεδαετσρ δχα σινχο- μα: ι . εσμι ςαϊςρδ 12 ςαχεξ ξυμΰ, το ότι σινχομω οτοβςαφαΰτσρ ι ξα τεςνιξαμε. πςεοβςαϊοχαξιε λιςιμμιγω οπςεδεμρετσρ υσταξοχλοκ ςαϊ- ςρδα 14. εσμι ότοτ ςαϊςρδ ςαχεξ ξυμΰ, το ϊξαλι λιςιμμιγω πςεοβςαϊυΰτσρ χ σοοτχετστχυΰύιε ματιξσλιε ϊξαλι πεςεδ όθο- πεώατψΰ (εσμι ςαϊςρδ 12 πςι ότον ςαχεξ ξυμΰ) ι πεςεδαώεκ χ πςοηςαννυ. εσμι ςαϊςρδ 14 υσταξοχμεξ χ 1, το χχεδεξξωε σιν- χομω οτοβςαφαΰτσρ (εσμι ςαϊςρδ 12 πςι ότον ςαχεξ ξυμΰ) ι πεςεσωμαΰτσρ ταλ, λαλ οξι βωμι χχεδεξω. δμρ υσταξοχλι ι/ιμι σβςοσα βιτοχ σμοχα σοστορξιρ ϊαδα- ξιρ ισπομψϊυΰτ ζυξλγιΰ IPEEK, α ϊατεν IPOKE. χ σπεγιαμψξον ςεφινε (βιτ 12 σμοχα σοστορξιρ ϊαδαξιρ υσταξοχμεξ) οβωώξωκ ζοςτςαξοχσλικ ζοςνατξωκ χχοδ σ λμαχιατυςω τεςνιξαμα ξε οπςεδεμεξ. χ XM- ι FB-νοξιτοςε λοναξδω ι (ι χ νοξιτοςαθ σο σςεδστχανι σιστενξωθ ϊαδαξικ) ξε υπςαχμρΰτσρ υλαϊαξιεν βιτα 12. νοξιτος ςεαηιςυετ ξα ότι σινχομω λαλ ξα σπεγιαμψξωε λοναξδω, εσμι βωμ α δαξα λοναξδα - 265 - νοξιτοςα "SET TT FB". πςι ςαβοτε ποδ υπςαχμεξιεν XM- ιμι FB-νοξιτοςα χ σμυ- ώαε, εσμι σδεμαξ ϊαπςοσ ξα χχοδ σ τεςνιξαμα, α σινχομω σ τεςνιξαμα ξε ποστυπιμι πο λαλοκ-μιβο πςιώιξε, χωπομξεξιε πςοηςαννω πςιοσταξαχμιχαετσρ δο τεθ πος, πολα σινχομω ξε βυδυτ χχεδεξω. εσμι ξεοβθοδινο πςοδομφατψ χωπομξεξιε πςοη- ςαννω, τ.ε. ξεοβθοδινο, ώτοβω ζυξλγιρ ITTINR δαχαμα διαη- ξοστιλυ οϋιβλι (I<0), το ξεοβθοδινο υσταξοχιτψ ςαϊςρδ 6 σμοχα σοστορξιρ ϊαδαξιρ πεςεδ χωπομξεξιεν ζυξλγιι ITTINR. βιτ 6 σβςασωχαετσρ ποσμε ολοξώαξιρ χωπομξεξιρ πςοηςαννω. ςεϊυμψτατ ITTINR δομφεξ ςαϊνεύατψσρ χ πεςενεξξοκ τιπα INTEGER, εσμι πςεδμαηαετσρ λοξτςομψ οϋιβολ. εσμι ιϊχεστξο, ώτο χοϊχςατα πο οϋιβλε ξιλοηδα ξε βυδετ, το ςεϊυμψτατ νοφξο πεςεσματψ χ πεςενεξξυΰ τιπα LOGICAL*1. ξεποσςεδστχεξξοε ςαϊνεύεξιε πομυώαενωθ δαξξωθ χ πεςενεξξοκ τιπα LOGICAL*1 πςιχεδετ λ ξεχεςξων ςεϊυμψταταν, τ.λ. 15-κ ςαϊςρδ (ζμαη οτςιγατεμψξοηο ώισμα) τεςρετσρ πςι πςεοβςαϊοχαξιι χ πεςε- νεξξυΰ τιπα LOGICAL*1. ςεϊυμψτατω ζυξλγιι: I>0 - οβωώξωκ χωθοδ; σινχομ πςοώιταξ; I<0 - χωθοδ σ οϋιβλοκ, χ βυζεςε ξετ χχεδεξωθ σινχομοχ. πςινες. ICHAR=ITTINR() !σώιτατψ σινχομ σ TT IF(ICHAR.LT.0)GOTO 100 !ξετ σινχομοχ 8.2.3. ζυξλγιρ ITTOUR ζυξλγιρ ITTOUR πςεδξαϊξαώεξα δμρ πεςεδαώι σινχομα ιϊ πςοηςαννω πομψϊοχατεμρ ξα τεςνιξαμ, εσμι χ βυζεςε νοξιτοςα εστψ δμρ ξεηο νεστο. εσμι χ δαξξωκ νονεξτ ξεμψϊρ χχεστι σινχομ, το χωςαβατωχαετσρ πςιϊξαλ οϋιβλι. οβςαύεξιε λ ζυξλγιι: I=ITTOUR (CHAR) ηδε CHAR - λοδ χωχοδινοηο σινχομα; χωςαχξεξξοε χπςαχο γεμοε (πςι φεμαξιι νοφετ βωτψ τιπα LOGICAL*1), λοτοςοε ξεοβθοδινο χωχεστι. εσμι (I) - ςεϊυμψτατ χωπομξεξιρ ζυξλγιι ITTOUR - ςαχεξ 1, ότο οϊξαώαετ, ώτο χ βυζεςε ξετ σχοβοδξοηο νεστα ι ξε χωχεδεξ ξι οδιξ σινχομ. ποδ υπςαχμεξιεν XM- ι FB-νοξιτοςα ζυξλγιρ ITTOUR ξε πςιξιναετ ϊξαώεξιε, ςαχξοε 1. πςοηςαννα πςιοσταξαχμιχαετσρ δο τεθ πος, πολα χ βυζεςε χωχοδα ξε οσχοβοδιτσρ νεστο. εσμι ϊαδαξιε τςεβυετ πςοδομφεξιρ χωπομ- - 266 - ξεξιρ πςοηςαννω, τ.ε. διαηξοστιλυ οϋιβλι (I=1), το ξεοβθο- δινο πςεδχαςιτεμψξο υσταξοχιτψ 6-κ ςαϊςρδ σμοχα σοστορξιρ ϊαδαξιρ (ρώεκλα 44). εσμι οπεςατιχξοε ϊαδαξιε πεςεδαμο σινχομω χ λομψγεχοκ βυζες χωχοδα νοξιτοςα, ότι σινχομω νοηυτ ξε χωχοδιτσρ ξα τεςνιξαμ πο δχυν πςιώιξαν: - εσμι ζοξοχοε ϊαδαξιε χωχοδιμο ξα τεςνιξαμ, το οπε- ςατιχξοε ξε νοφετ ότοηο σδεματψ, πολα ζοξοχοε ξε πςοιϊχεδετ χωχοδ ϊξαλα . ότο νοφετ ποςοδιτψ συύεστχεξξυΰ ϊαδεςφλυ, εσμι τεςνιξαμον ρχμρετσρ ηςαζιώεσλικ δισπμεκ, α ζοξοχοε ϊαδαξιε πςοιϊχοδιτ ηςαζιώεσλικ χωχοδ, ξε σοδεςφαύικ ϊξαλοχ ; - εσμι ζοξοχοηο ϊαδαξιρ ξετ (τ.ε. χ ζοξοχον ςαϊδεμε χωπομξρετσρ KMON), οπεςατιχξοε ϊαδαξιε ξε νοφετ χωχεστι σχοε σοοβύεξιε, πολα οπεςατος ξε χχεδετ ιμι . χ ότον σμυώαε KMON πομυώαετ λοξτ- ςομψ ξαδ χωχοδον ι βμολιςυετ χωχοδ οπεςατιχξοηο ϊαδαξιρ, σςαϊυ λαλ τομψλο βυζες οπεςατιχξοηο ϊαδα- ξιρ οπυστεετ. πςινεώαξιε. σμεδυετ οτνετιτψ, ώτο ισπομψϊοχαξιε ποδπ- ςοηςαννω PRINT υστςαξρετ πεςεώισμεξξωε πςοβμενω. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ;σινχομ χωχεδεξ; I=1 - χωθοδ σ οϋιβλοκ, λομψγεχοκ βυζες πομοξ. πςινες. DO 10 I =1,5 10 IF(ITTOUR("007).NE.0) GO TO 10 !πεςεδατψ σινχομ C 5 ςαϊ 8.2.4. ζυξλγιρ IWAIT ζυξλγιρ IWAIT πςιοσταξαχμιχαετ χωπομξεξιε οσξοχξοκ πςοηςαννω δο τεθ πος, πολα ξε ϊαλοξώιτσρ χωπομξεξιε χσεθ οπεςαγικ χχοδα/χωχοδα ξα υλαϊαξξον λαξαμε. ότα ζυξλγιρ ισπομψϊυετσρ σ χωϊοχανι IREAD, IWRITE ι ISPFN. ποδπςοηςαννω ϊαχεςϋεξιρ πςοδομφαΰτ χωπομξρτψσρ. οβςαύεξιε λ ζυξλγιι: I=IWAIT (CHAN) ηδε - 267 - CHAN - ξονες (γεμοε) ισπομψϊυενοηο λαξαμα. ποδςοβξεε ο πςιοσταξοχλε χωπομξεξιρ οσξοχξοκ πςοηςαννω σλαϊαξο χ οπισαξιι σιστενξοκ ναλςολοναξδω .WAIT. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - υλαϊαξξωκ λαξαμ ξε οτλςωτ; I=2 - χο χςενρ πςεδωδυύεκ οπεςαγιι χχοδα/χωχοδα πο ότονυ λαξαμυ πςοιϊοϋμα αππαςατξαρ οϋιβλα. πςινες. IF(IWAIT(ICHAN).NE.0) CALL IOERR(4) 8.2.5. ζυξλγιι IWRITE/IWRITC/IWRITF/IWRITW IWRITE/IWRITC/IWRITF/IWRITW - ώετωςε ζοςνω ζυξλγιι ϊαπισι ϊαδαξξοηο ώισμα σμοχ ιϊ πανρτι χ ζακμ πο υλαϊαξξονυ λαξαμυ. ότι ζυξλγιι τςεβυΰτ όμενεξτ οώεςεδι, ώτο δομφξο υώιτωχατψσρ πςι χωπομξεξιι ζυξλγιι IQSET. 8.2.5.1. ζυξλγιρ IWRITE ζυξλγιρ IWRITE πςεδξαϊξαώεξα δμρ πεςεδαώι ϊαδαξξοηο ώισμα σμοχ ιϊ οπεςατιχξοκ πανρτι πο υλαϊαξξονυ λαξαμυ. υπςαχμεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊοχατεμρ ξενεδμεξξο ποσμε τοηο, λαλ ϊαπςοσ βωμ ποσταχμεξ χ οώεςεδψ. ποσμε χωπομξεξιρ οπεςαγιι ξιλαλιε δεκστχιρ ξε πςεδπςιξιναΰτσρ. οβςαύεξιε ζυξλγιι: I=IWRITE (WCNT,BUF,BLK,CHAN) ηδε WCNT - λομιώεστχο (γεμοε) πεςεδαχαενωθ σμοχ; BUF - νασσιχ, ισπομψϊυενωκ δμρ βυζεςα χωχοδα; BLK - ξονες (γεμοε) βμολα ζακμα, χ λοτοςωκ πςοισθοδιτ ϊαπισψ. πεςεδ ποχτοςξων ισπομψϊοχαξιεν πςοηςαννα πομψϊοχατεμρ οβξοχμρετ παςανετς BLK; CHAN - ξονες (γεμοε) ισπομψϊυενοηο λαξαμα; ξονες λαξαμα δομφεξ βωτψ πομυώεξ πςι πονούι χωϊοχα IGETC, ιμι, εσμι πςεδχαςιτεμψξο οσυύεστχμρμσρ χωϊοχ ICDFN, νοηυτ βωτψ ισπομψϊοχαξω λαξαμω σ ξονεςανι 16 (δεσρτιώξοε) ι βομψϋε. - 268 - ςεϊυμψτατω ζυξλγιι: I= N - οβωώξωκ χωθοδ ιϊ ποδπςοηςαννω; N ςαχξο ώισμυ ϊαπισαξξωθ σμοχ, ολςυημεξξωθ δο ώισμα λςατξοηο 256 (0 δμρ υστςοκστχα, οτλςωτοηο λαλ ξεζακμοχοε); I=-1 - ποπωτλα ϊαπισατψ ποσμε λοξγα ζακμα; I=-2 - πςοιϊοϋμα αππαςατξαρ οϋιβλα; I=-3 - υλαϊαξξωκ λαξαμ ξε οτλςωτ. πςινεώαξιε. εσμι χοϊχςαύαενωκ σώετώιλ σμοχ (WCNT) νεξψϋε τςεβυενοηο, το ότο οϊξαώαετ, ώτο χστςετιμσρ ξερχξωκ λοξεγ ζακμα. πςινες. INTEGER*2 IBUF (256) EXTERNAL CRτN . . . ICODE=IWRITE (256,IBUF,IBLK,ICHAN,CRTN) 8.2.5.2. ζυξλγιρ IWRITC ζυξλγιρ IWRITC πςεδξαϊξαώεξα δμρ πεςεδαώι ϊαδαξξοηο ώισμα σμοχ ιϊ οπεςατιχξοκ πανρτι πο ϊαδαξξονυ λαξαμυ. ϊαπ- ςοσ σταχιτσρ χ οώεςεδψ ι υπςαχμεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊοχατεμρ. ποσμε ολοξώαξιρ πεςεδαώι οσξοχξαρ πςοηςαννα πςεςωχαετσρ ι χωϊωχαετσρ υλαϊαξξαρ ποδπςοηςαννα ξα ρϊωλε ναλςοασσενβμες χ λαώεστχε ασιξθςοξξοκ ποδπςοηςαννω ϊαχεςϋε- ξιρ. οβςαύεξιε λ ζυξλγιι: I=IWRITC (WCNT,BUF,BLK,CHAN,CRTN) ηδε WCNT - λομιώεστχο (γεμοε) πεςεδαχαενωθ σμοχ; BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα χωχοδα; BLK - γεμοε; οτξοσιτεμψξωκ ξονες βμολα ζακμα, χ λοτοςωκ πςοισθοδιτ ϊαπισψ; πεςεδ ποχτοςξων ισπομψϊοχαξιεν πςοηςαννα πομψϊοχατεμρ οβωώξο οβξοχμρετ παςανετς BLK (ξαπςινες, εσμι πςοηςαννα χωχεμα δχα βμολα, το ϊξαώεξιε BLK ξυφξο υχεμιώιτψ ξα 2); CHAN - ξονες ισπομψϊυενοηο λαξαμα; ξονες λαξαμα δομφεξ βωτψ πομυώεξ πςι πονούι IGETC, ιμι, εσμι πςεδχαςι- τεμψξο βωμα χωϊχαξα ICDFN, νοφξο ισπομψϊοχατψ λαξαμω σ ξονεςανι 16 (δεσρτιώξοε) ι χωϋε. CRTN - ποδπςοηςαννα, ξαπισαξξαρ ξα ναλςοασσενβμεςε, λοτο- - 269 - ςαρ αλτιχιϊιςυετσρ πο ϊαχεςϋεξιι πεςεδαώι; ότο ινρ δομφξο υλαϊωχατψσρ χ οπεςατοςε EXTERNAL πςοηςαννω ξα ρϊωλε ζοςτςαξ, χωϊωχαΰύεκ IWRITC. ςεϊυμψτατω ζυξλγιι πςιχεδεξω χ οπισαξιι ζυξλγιι IWRITE. (σM. ποδπυξλτ 8.2.5.1). πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι IREAD. (σM. ποδ- πυξλτ 8.2.1.1). 8.2.5.3. ζυξλγιρ IWRITF ζυξλγιρ IWRITF πεςεδαετ ϊαδαξξοε ώισμο σμοχ ιϊ οπεςα- τιχξοκ πανρτι πο υλαϊαξξονυ λαξαμυ. ϊαπςοσ ξα πεςεδαώυ στα- χιτσρ χ οώεςεδψ ι υπςαχμεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊο- χατεμρ. ποσμε ολοξώαξιρ οπεςαγιι οσξοχξαρ πςοηςαννα πςεςω- χαετσρ ι χωϊωχαετσρ υλαϊαξξαρ ποδπςοηςαννα ξα ρϊωλε ζοςτςαξ χ λαώεστχε ασιξθςοξξοκ ποδπςοηςαννω ϊαχεςϋεξιρ. οβςαύεξιε λ ζυξλγιι: I=IWRITF (WCNT,BUF,BLK,CHAN,AREA,CRTN) ηδε WCNT - λομιώεστχο (γεμοε) πεςεδαχαενωθ σμοχ; BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα χωχοδα; BLK - οτξοσιτεμψξωκ ξονες (γεμοε) βμολα ζακμα, σ λοτοςο- ηο ξαώιξαετσρ ϊαπισψ; πεςεδ ποχτοςξων ισπομψϊοχα- ξιεν πςοηςαννα οβωώξο οβξοχμρετ BLK. CHAN - ξονες (γεμοε) ισπομψϊυενοηο λαξαμα; ξονες λαξαμα δομφεξ βωτψ πομυώεξ χωϊοχον IGETC, ιμι, εσμι χωϊω- χαμασψ ICDFN, νοφετ βωτψ ισπομψϊοχαξ λαξαμ σ ξονε- ςον 16 (δεσρτιώξοε) ι βομψϋε; AREA - νασσιχ ιϊ 4 σμοχ, ςεϊεςχιςυενωκ δμρ ιξζοςναγιι σχρϊι; εηο όμενεξτω ξε δομφξω νοδιζιγιςοχατψσρ πςοηςαννοκ; νασσιχ δομφεξ βωτψ ςαϊνεύεξ χξε οβμασ- τι σχοπιξηα USR; δαξξωκ νασσιχ νοφετ ισπομψϊοχατψ- σρ δςυηινι ποδπςοηςαννανι ϊαχεςϋεξιρ ξα ρϊωλε ζοςτςαξ ποσμε τοηο, λαλ βωμα αλτιχιϊιςοχαξα ποδπ- ςοηςαννα, υλαϊαξξαρ χ δαξξον ϊαπςοσε; CRTN - ινρ ποδπςοηςαννω ξα ρϊωλε ζοςτςαξ, λοτοςαρ αλτιχι- ϊιςυετσρ ποσμε ολοξώαξιρ πεςεδαώι; ότο ινρ δομφξο υλαϊωχατψσρ χ οπεςατοςε EXTERNAL ζοςτςαξ- ποδπςοηςαννω, χωϊωχαΰύεκ IWRITE. ποδπςοηςαννα ϊαχεςϋεξιρ ινεετ δχα παςανετςα: SUBROUTINE CRTN (IARG1,IARG2) - 270 - ηδε CRTN - ιδεξτιζιλατος ποδπςοηςαννω ϊαχεςϋεξιρ; IARG1 - σμοχο σοστορξιρ λαξαμα δμρ τομψλο ώτο ϊαλοξώεξξοκ οπεςαγιι; εσμι ξυμεχοκ βιτ υσταξοχμεξ, το ότο ϊξα- ώιτ, ώτο χο χςενρ πεςεδαώι πςοιϊοϋμα αππαςατξαρ οϋιβλα; IARG2 - ξονες λαξαμα, ισπομψϊοχαξξοηο δμρ τομψλο ώτο ϊαλοξώεξξοκ οπεςαγιι. ςεϊυμψτατω ζυξλγιι πςιχεδεξω χ οπισαξιι ζυξλγιι IWRITE (σν. ποδπυξλτ 8.2.5.1). πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι IREADF (σν. ποδ- πυξλτ 8.2.1.3). 8.2.5.4. ζυξλγιρ IWRITW ζυξλγιρ IWRITW πςεδξαϊξαώεξα δμρ πεςεδαώι ϊαδαξξοηο ώισμα σμοχ ιϊ οπεςατιχξοκ πανρτι πο υλαϊαξξονυ λαξαμυ. υπςαχμεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊοχατεμρ ποσμε ολοξ- ώαξιρ πεςεδαώι. οβςαύεξιε λ ζυξλγιι: I=IWRITW (WCNT,BUF,BLK,CHAN) ηδε WCNT - λομιώεστχο (γεμοε) πεςεδαχαενωθ σμοχ; BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα χωχοδα; BLK - ξονες (γεμοε) βμολα ζακμα, σ λοτοςοηο ξαώξετσρ ϊαπισψ; πςοηςαννα πομψϊοχατεμρ πεςεδ ποχτοςξων ισπομψϊοχαξιεν παςανετςα BLK οβξοχμρετ εηο; CHAN - ξονες (γεμοε) ισπομψϊυενοηο λαξαμα; ξονες δομφεξ βωτψ πομυώεξ χωϊοχον IGETC, ιμι, εσμι υφε χωϊωχα- μασψ ICDFN, νοφετ βωτψ ισπομψϊοχαξ λαξαμ σ ξονεςον 16 (δεσρτιώξοε) ιμι χωϋε. ςεϊυμψτατω ζυξλγιι πςιχεδεξω χ οπισαξιι ζυξλγιι IWRITE (σν. ποδπυξλτ 8.2.5.1). πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι IREADW (σν. ποδ- πυξλτ 8.2.1.4). - 271 - 8.2.6. ποδπςοηςαννα PRINT ποδπςοηςαννα PRINT οσυύεστχμρετ χωχοδ στςολι ξα σισ- τενξωκ τεςνιξαμ. ότα ποδπςοηςαννα νοφετ ισπομψϊοχατψσρ δμρ πεώατι σοοβύεξικ χ ποδπςοηςανναθ ϊαχεςϋεξιρ βεϊ ισπομψϊοχα- ξιρ πςι ότον ζοςνατξοηο ζοςτςαξοχσλοηο χχοδα/χωχοδα. υπςαχ- μεξιε πεςεδαετσρ πςοηςαννε πομψϊοχατεμρ ποσμε πονεύεξιρ χ σιστενξωκ λομψγεχοκ βυζες χωχοδα χσεθ χωχοδινωθ σινχομοχ. χωχοδιναρ στςολα δομφξα ϊαλαξώιχατψσρ βακτον 0 ιμι βακτον 200 (χοσψνεςιώξοε). εσμι ισπομψϊυετσρ 0 (ζοςνατ ASCIZ), χωχοδ αχτονατιώεσλι ϊαχεςϋαετσρ ϊξαλανι (15 ι 12 (χοσψνεςιώξοε)). εσμι ισπομψϊυετσρ οηςαξιώιτεμψ 200, το ότι ϊξαλι ξε ηεξεςιςυΰτσρ. χ FB-νοξιτοςε ιϊνεξεξιε ϊαδαξιρ, λοξτςομιςυΰύεηο τες- νιξαμψξωκ χωχοδ, υλαϊωχαΰτσρ πςι πονούι πεώατι ποσμεδοχα- τεμψξοστι ϊξαλοχ B> ι F> (ιμι NAME>, ηδε NAME-μοηιώεσλοε ινρ ϊαδαξιρ). δο τεθ πος πολα ξε βυδετ χωχεδεξ πςοτιχοπο- μοφξωκ υλαϊατεμψ, χεσψ χωχοδ ξα τεςνιξαμ οσυύεστχμρετσρ ϊαδαξιεν, οβ'ρχμεξξων ποσμεδξιν χωχεδεξξων υλαϊατεμεν. λοη- δα PRINT ισπομψϊυετσρ οπεςατιχξων ϊαδαξιεν, σοοβύεξιε χωχο- διτσρ ξενεδμεξξο, χξε ϊαχισινοστι οτ σοστορξιρ ζοξοχοηο ϊαδαξιρ. τ.ε. δμρ σςοώξωθ σοοβύεξικ PRINT πςεδποώτιτεμψξεκ ITTOUR. οβςαύεξιε λ ποδπςοηςαννε: CALL PRINT (STRING) ηδε STRING - χωχοδιναρ στςολα. πςινεώαξιε. χσε μιτεςω, ισπομψϊυενωε χ ποδπςοηςανναθ σιστενξοκ βιβμιοτελι, α ταλφε χσε στςολι, χωςαβατωχαενωε ζυξλγιρνι οβςαβοτλι στςολ σινχομοχ, ινεΰτ ζοςνατ ASCIZ. (ποδπςοηςαννα CONCAT νοφετ βωτψ ισπομψϊοχαξα δμρ δοβαχμεξιρ βακτα 200 χ στςολυ ASCIZ)> οϋιβλι οτσυτστχυΰτ. πςινες. CALL PRINT(' χωχοδ στςολι ') ιμι BYTE QUEST(80) C δοβαχιτψ βακτ 200 ι χωχεστι βεϊ C CALL CONCAT('χαϋε ινρ?', "200, QUEST) CALL PRINT(QUEST) - 272 - 8.2.7. ζυξλγιι ISPFN/ISPFNC/ISPFNF/ISPFNW ότι ζυξλγιι ισπομψϊυΰτσρ δμρ δοστυπα λ σπεγιαμψξων σςεδστχαν ςαϊμιώξωθ δςακχεςοχ (ναηξιτξωθ μεξτ, ηιβλιθ δισ- λοχ, λασσετξωθ ναηξιτξωθ μεξτ). οξι οβεσπεώιχαΰτ χοϊνοφ- ξοστψ χωπομξεξιρ οπεςαγικ, σχοκστχεξξωθ οπςεδεμεξξων υστ- ςοκστχαν, ταλιθ λαλ πεςενοτλα ι ςεχεςσ, πςινεξιτεμψξο λ υστςοκστχαν ναηξιτξοκ μεξτω. εσμι χωϊοχω ISPFN χωπομξρΰτσρ δμρ δςυηιθ υστςοκστχ, το οξι ιηξοςιςυΰτσρ. δμρ ισπομψϊοχαξιρ ότιθ ζυξλγικ ξεοβθοδινο χ οπεςατιχ- ξυΰ πανρτψ πονεστιτψ δςακχες υστςοκστχα ι σχρϊατψ λαξαμ σ υστςοκστχον ποσςεδστχον LOOKUP ξεζακμοχοκ στςυλτυςω. χωπομ- ξεξιε ότιθ ζυξλγικ τςεβυετ όμενεξτα οώεςεδι, ώτο σμεδυετ υώιτωχατψ πςι χωπομξεξιι IQSET. 8.2.7.1. ζυξλγιρ ISPFN ζυξλγιρ ISPFN σταχιτ χ οώεςεδψ ϊαπςοσ ξα υλαϊαξξυΰ οπεςαγιΰ ι ξενεδμεξξο χοϊχςαύαετ υπςαχμεξιε πςοηςαννε. ώτο- βω ϊαζιλσιςοχατψ ϊαχεςϋεξιε οπεςαγιι, νοφξο ισπομψϊοχατψ ζυξλγιΰ IWAIT. οβςαύεξιε λ ζυξλγιι: I=ISPFN (CODE,CHAN[,WCNT,BUF,BLK]) ηδε CODE - ώισμοχοκ λοδ (γεμοε) χωπομξρενοκ ζυξλγιι; CHAN - ξονες (γεμοε) λαξαμα, ισπομψϊυενοηο δμρ οπεςαγιι; ότοτ ξονες δομφεξ βωτψ πομυώεξ πςι πονούι IGETC, ιμι, εσμι πεςεδ ότιν χωϊωχαμασψ ICDFN, νοφξο ισπομψϊοχατψ λαξαμω σ ξονεςον 16 (δεσρτιώξοε) ι βομψϋε; WCNT - λομιώεστχο (γεμοε) ώισμο σμοχ, υώαστχυΰύιθ χ οπε- ςαγιι; πο υνομώαξιΰ ςαχξο ξυμΰ; ότοτ παςανετς ξε ρχμρετσρ οβρϊατεμψξων πςι χωϊοχαθ ISPFN (χ ϊαχισι- νοστι οτ χωϊωχαενωθ ζυξλγικ); χ οπεςαγιρθ σ ναη- ξιτξοκ μεξτοκ οξ υλαϊωχαετ λομιώεστχο ϊαπισεκ, πςοπυσλαενωθ χπεςεδ ιμι ξαϊαδ; πςι πεςενοτλε ξαϊαδ σο σώετώιλον, ςαχξων ξυμΰ, μεξτα πεςενατωχαετσρ δο ναςλεςα ιμι δο ξαώαμα μεξτω; αξαμοηιώξο, πςι πεςε- νοτλε χπεςεδ σο σώετώιλον, ςαχξων ξυμΰ, πεςενοτλα χεδετσρ δο ναςλεςα ιμι δο λοξγα μεξτω; BUF - νασσιχ, ισπομψϊυενωκ δμρ θςαξεξιρ ιξζοςναγιι; ότοτ παςανετς ξε ρχμρετσρ οβρϊατεμψξων πςι χωϊοχε ISPFN (χ ϊαχισινοστι οτ χωϊωχαενωθ ζυξλγικ); ϊξαώεξιε πο υνομώαξιΰ - ξυμψ; - 273 - BLK - ξονες (γεμοε) βμολα ζακμα, ξαδ λοτοςων χωπομξρετσρ οπεςαγιρ; πο υνομώαξιΰ πςιξιναετσρ ϊξαώεξιε, ςαχ- ξοε ξυμΰ; ότοτ παςανετς ξε ρχμρετσρ οβρϊατεμψξων πςι χωϊοχε ISPFN (χ ϊαχισινοστι οτ χωϊωχαενωθ ζυξλγικ). εσμι παςανετς BLK πςινεξρετσρ λ ναηξιτξοκ μεξτε, οξ ρχμρετσρ αδςεσον 4-σμοχξοηο βμολα οϋιβολ ι σοστορξιρ ι ισπομψϊυετσρ δμρ ϊαπισι σοοτχετστχυΰύεκ ιξζοςναγιι. ότι ώετωςε σμοχα δομφξω βωτψ υσταξοχμεξω χ ξυμψ πεςεδ οβςαύε- ξιεν λ ISPFN. πςι ςαβοτε σ XM-νοξιτοςον βμολ οϋιβολ ι σοστορξιρ δομ- φεξ βωτψ οτοβςαφεξ (δο ϊαχεςϋεξιρ οπεςαγιι) ι ςασπομοφεξ χ πανρτι χξε οβμαστι σχοπιξηα USR. ώτοβω πομυώιτψ αδςεσ βμολα οϋιβολ, ξεοβθοδινο χωπομξιτψ σμεδυΰύιε ιξστςυλγιι: INTEGER*2 ERRADR,ERRBLK(4) DATA ERRBLK/0,0,0,0/ . . . ERRADR=IADDR(ERRBLK) !πομυώιτψ αδςεσ C 4-σμοχξοηο βμολα οϋιβολ. ICODE=ISPFN(CODE,ICHAN,WDCT,BUF,ERRADR) τςι ποσμεδξιθ (ξεοβρϊατεμψξωθ) αςηυνεξτα (WCNT,BUFF,BLK) ξε ρχμρΰτσρ ξεοβρϊατεμψξωνι πο οτδεμψξοστι: οξι δομφξω βωτψ υλαϊαξω μιβο χσε, μιβο ξε δομφξο βωτψ ξι οδξοηο. δαμεε πςιχεδεξω χοσψνεςιώξωε λοδω σπεγιαμψξωθ ζυξλγικ δμρ ςαϊμιώξωθ υστςοκστχ: ζυξλγιρ MT CT DX DM DY ------- -- -- -- -- -- ώτεξιε αβσομΰτξοε 377 377 377 ϊαπισψ αβσομΰτξαρ 376 376 376 ϊαπισψ αβσομΰτξαρ σ υδαμεξιεν δαξξωθ 375 375 πςοδχιφεξιε χπεςεδ λ ποσμεδξενυ ζακμυ 377 πςοδχιφεξιε χπεςεδ λ ποσμεδξενυ βμολυ 376 πςοδχιφεξιε χπεςεδ λ σμεδυΰύενυ ζακμυ 375 πςοδχιφεξιε χπεςεδ λ σμεδυΰύενυ βμολυ 374 πεςενοτλα ξαϊαδ λ τοώλε ϊαηςυϊλε 373 373 ϊαπισψ πςονεφυτλα νεφδυ ζακμανι 372 ϊαπισψ νετλι λοξγα ζακμα (EOF) 377 πςοδχιφεξιε χπεςεδ ξα οδξυ ϊαπισψ 376 πεςενοτλα ξαϊαδ ξα οδξυ ϊαπισψ 375 ϊαπισψ δεζελτξοηο βμολα χ ταβμιγυ ϊανεύεξιρ 374 ϊαπισψ σ ςασϋιςεξξων - 274 - πςονεφυτλον 374 αχτοξονξωκ ςεφιν ςαβοτω 372 πομυώεξιε ςαϊνεςα ξοσιτεμρ 373 373 ϊαπισψ βμολοχ πεςενεξξοκ δμιξω 371 ώτεξιε βμολοχ πεςενεξξοκ δμιξω 370 πςινεώαξιε. λοδω σπεγιαμψξωθ ζυξλγικ δμρ υστςοκστχ MT ι MM σοχπαδαΰτ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ποπωτλα πισατψ ιμι ώιτατψ ποσμε λοξγα ζακμα; I=2 - χ λαξαμε πςοιϊοϋμα αππαςατξαρ οϋιβλα; I=3 - υλαϊαξξωκ λαξαμ ξε οτλςωτ. πςινες. CALL ISPFN ("373,ICHAN) !πεςενοτλα χ ξαώαμο 8.2.7.2. ζυξλγιρ ISPFNC ζυξλγιρ ISPFNC σταχιτ χ οώεςεδψ ϊαπςοσ ξα υλαϊαξξυΰ οπεςαγιΰ ι ξενεδμεξξο χοϊχςαύαετ υπςαχμεξιε πςοηςαννε. πο ϊαχεςϋεξιι οπεςαγιι χωπομξεξιε οσξοχξοκ πςοηςαννω πςεςω- χαετσρ ι χωϊωχαετσρ ϊαδαξξαρ πςοηςαννα ξα ρϊωλε ασσενβμες (παςανετς CRTN) χ λαώεστχε ασιξθςοξξοκ ποδπςοηςαννω ϊαχες- ϋεξιρ. οβςαύεξιε λ ζυξλγιι: I=ISPFNC (CODE,CHAN,WCNT,BUF,BLK,CRTN) ηδε CODE - ώισμοχοκ λοδ (γεμοε) χωπομξρενοκ ζυξλγιι (σν. ποδ- πυξλτ 8.2.7.1); CHAN - ξονες λαξαμα, ισπομψϊυενοηο δμρ οπεςαγιι; ξονες δομφεξ βωτψ πομυώεξ πο χωϊοχυ IGETC, ιμι, εσμι ισπομψϊοχαμσρ χωϊοχ ICDFN, νοφξο ισπομψϊοχατψ λαξαμ σ ξονεςον 16 (δεσρτιώξοε) ιμι χωϋε; WCNT - λομιώεστχο (γεμοε) σμοχ, υώαστχυΰύιθ χ οπεςαγιι; πο υνομώαξιΰ ςαχξο ξυμΰ; χ οπεςαγιρθ σ ναηξιτξοκ μεξτοκ οξ υλαϊωχαετ λομιώεστχο ϊαπισεκ, πςοπυσλαε- νωθ χπεςεδ ιμι ξαϊαδ; πςι πεςενοτλε ξαϊαδ σο σώετ- ώιλον ςαχξων ξυμΰ, μεξτα πεςενατωχαετσρ δο ναςλεςα ιμι δο ξαώαμα μεξτω; αξαμοηιώξο, πςι πεςενοτλε χπεςεδ, σο σώετώιλον ςαχξων ξυμΰ, πεςενοτλα χεδετ- - 275 - σρ δο ναςλεςα ιμι δο λοξγα μεξτω; BUF - νασσιχ, ισπομψϊυενωκ δμρ θςαξεξιρ ιξζοςναγιι; πο υνομώαξιΰ ϊξαώεξιε ότοηο αςηυνεξτα ςαχξο ξυμΰ; BLK - ξονες βμολα ζακμα, ξαδ λοτοςων χωπομξρετσρ οπεςα- γιρ; πο υνομώαξιΰ πςιξιναετσρ ϊξαώεξιε ςαχξοε ξυμΰ; CRTN - ινρ ποδπςοηςαννω ξα ναλςοασσενβμεςε, λοτοςαρ χωϊω- χαετσρ πο ϊαχεςϋεξιι οπεςαγιι; ότο ινρ δομφξο υλα- ϊωχατψσρ χ οπεςατοςε EXTERNAL πςοηςαννω ξα ρϊωλε ζοςτςαξ, χωϊωχαΰύεκ ISPFNC. εσμι παςανετς BLK πςινεξρετσρ δμρ ναηξιτξοκ μεξτω, οξ ρχμρετσρ αδςεσον 4-σμοχξοηο βμολα οϋιβολ ι σοστορξιρ ισπομψϊυετσρ δμρ πςιενα σοοτχετστχυΰύεκ ιξζοςναγιι. χ ότι ώετωςε σμοχα δομφξω βωτψ πεςχοξαώαμψξο ϊαξεσεξω ξυμι. πςι ςαβοτε σ XM-νοξιτοςον βμολ οϋιβολ ι σοστορξιρ ξε δομφξεξ ιϊνεξρτψ σχοεηο οτοβςαφεξιρ δο ϊαχεςϋεξιρ οπεςαγιι ι δομφεξ βωτψ ςασπομοφεξ χ πανρτι χξε οβμαστι σχοπιξηα USR. ώτοβω πομυώιτψ αδςεσ βμολα οϋιβολ, ξεοβθοδινο χωπομξιτψ σμεδυΰύιε ιξστςυλγιι: INTEGER*2 ERRADR,ERRBLK(4) EXTERNAL CROU DATA ERRBLK/0,0,0,0/ . . . ERRADR=IADDR(ERRBLK) !πομυώιτψ αδςεσ 4-σμοχξοηο C βμολα οϋιβολ ICODE=ISPFNC(CODE,ICHAN,WDCT,BUF,ERRADR,CROU) ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ποπωτλα ώτεξιρ/ϊαπισι ποσμε λοξγα ζακμα; I=2 - χ λαξαμε πςοιϊοϋμα αππαςατξαρ οϋιβλα; I=3 - υλαϊαξξωκ λαξαμ ξε οτλςωτ. 8.2.7.3. ζυξλγιρ ISPFNF ζυξλγιρ ISPFNF σταχιτ χ οώεςεδψ ϊαπςοσ ξα υλαϊαξξυΰ οπεςαγιΰ ι ξενεδμεξξο χοϊχςαύαετ υπςαχμεξιε πςοηςαννε. πο ϊαχεςϋεξιι οπεςαγιι χωπομξεξιε οσξοχξοκ πςοηςαννω πςεςω- χαετσρ ι υλαϊαξξαρ ποδπςοηςαννα (παςανετς CRTN) ξα ρϊωλε ζοςτςαξ χωϊωχαετσρ χ λαώεστχε ασιξθςοξξοκ ποδπςοηςαννω ϊαχεςϋεξιρ. οβςαύεξιε λ ζυξλγιι: I=ISPFNF (CODE,CHAN,WCNT,BUF,BLK,AREA,CRTN) ηδε - 276 - CODE - ώισμοχοκ λοδ (γεμοε) χωπομξρενοκ ζυξλγιι (σν. ποδ- πυξλτ 8.2.7.1); CHAN - ξονες λαξαμα, ισπομψϊυενοηο δμρ οπεςαγιι; λαξαμ δομφεξ βωτψ πομυώεξ πςι πονούι IGETC, ιμι, εσμι υφε χωϊωχαμασψ ICDFN, νοφξο ισπομψϊοχατψ λαξαμ σ ξονεςον 16 (δεσρτιώξοε) ι βομψϋε; WCNT - λομιώεστχο (γεμοε) σμοχ, υώαστχυΰύιθ χ οπεςαγιι; πο υνομώαξιΰ ςαχξο ξυμΰ; χ οπεςαγιρθ σ ναηξιτξοκ μεξτοκ οξ υλαϊωχαετ λομιώεστχο ϊαπισεκ, πςοπυσλαε- νωθ χπεςεδ ιμι ξαϊαδ; πςι πεςενοτλε ξαϊαδ, σο σώετώιλον ςαχξων ξυμΰ, μεξτα πεςενατωχαετσρ δο ναςλεςα ιμι δο ξαώαμα μεξτω; αξαμοηιώξο, πςι πεςε- νοτλε χπεςεδ, σο σώετώιλον ςαχξων ξυμΰ, πεςενοτλα χεδετσρ δο ναςλεςα ιμι δο λοξγα μεξτω; BUF - νασσιχ, ισπομψϊυενωκ δμρ θςαξεξιρ ιξζοςναγιι; πο υνομώαξιΰ ϊξαώεξιε ότοηο αςηυνεξτα ςαχξο ξυμΰ; BLK - ξονες (γεμοε) βμολα ζακμα, ξαδ λοτοςων χωπομξρετσρ οπεςαγιρ; πο υνομώαξιΰ πςιξιναετσρ ϊξαώεξιε ςαχξοε ξυμΰ; AREA - 4-σμοχξωκ νασσιχ, λοτοςωκ ισπομψϊυετσρ δμρ θςαξε- ξιρ ιξζοςναγιι σχρϊι; εηο όμενεξτω ξε δομφξω νοδι- ζιγιςοχατψσρ πςοηςαννοκ; νασσιχ δομφεξ βωτψ ςαϊνε- ύεξ χξε οβμαστι σχοπιξηα USR; νασσιχ νοφετ ισπομψ- ϊοχατψσρ δςυηινι ζυξλγιρνι ϊαχεςϋεξιρ ξα ζοςτςαξε ποσμε χωϊοχα ϊαδαξξοκ ποδπςοηςαννω ϊαχεςϋεξιρ; CRTN - ινρ ποδπςοηςαννω ξα ρϊωλε ζοςτςαξ, KOτοςαρ χωϊω- χαετσρ πο ϊαχεςϋεξιι οπεςαγιι; ότο ινρ δομφξο υλα- ϊωχατψσρ χ οπεςατοςε EXTERNAL πςοηςαννω ξα ρϊωλε ζοςτςαξ, χωϊωχαΰύεκ ISPFNF. λοηδα παςανετς BLK πςινεξρετσρ δμρ ναηξιτξοκ μεξτω, οξ ρχμρετσρ αδςεσον 4-σμοχξοηο βμολα οϋιβολ ι σοστορξιρ ι ισπομψϊυετσρ δμρ ϊαπισι σοοτχετστχυΰύεκ ιξζοςναγιι. πεςεδ χωϊοχον ISPFNF χ ότι ώετωςε σμοχα δομφξω βωτψ ϊαξεσεξω ξυμι. πςι ςαβοτε σ XM-νοξιτοςον βμολ οϋιβολ ι σοστορξιρ ξε δομφεξ ιϊνεξρτψ σχοεηο οτοβςαφεξιρ δο ϊαχεςϋεξιρ οπεςαγιι ι δομφεξ βωτψ ςασπομοφεξ χ πανρτι χξε οβμαστι σχοπιξηα USR. ώτοβω πομυώιτψ αδςεσ βμολα οϋιβολ, ξεοβθοδινο χωπομξιτψ σμεδυΰύιε ιξστςυλγιι: INTEGER*2 ERRADR, ERRBLK(4), LINK(4) EXTERNAL CROU DATA ERRBLK/0,0,0,0/ . . . ERRADR=IADDR(ERRBLK) !πομυώιτψ αδςεσ 4-σμοχξοηο C βμολα οϋιβολ ICODE=ISPFNF(CODE,ICHAN,WDCT,BUF,ERRADR,LINK,CROU) ποδπςοηςαννα ϊαχεςϋεξιρ ινεετ δχα παςανετςα: - 277 - SUBROUTINE CRTN (IARG1,IARG2) ηδε CRTN - ινρ ποδπςοηςαννω ϊαχεςϋεξιρ; IARG1 - σμοχο σοστορξιρ λαξαμα, ισπομψϊοχαξξοηο δμρ οπεςα- γιι; εσμι ξυμεχοκ ςαϊςρδ υσταξοχμεξ, το χο χςενρ πεςεδαώι πςοιϊοϋμα αππαςατξαρ οϋιβλα; IARG2 - ξονες λαξαμα, ισπομψϊοχαξξοηο δμρ οπεςαγιι. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ποπωτλα ώτεξιρ/ϊαπισι ποσμε λοξγα ζακμα; I=2 - χ λαξαμε πςοιϊοϋμα αππαςατξαρ οϋιβλα; I=3 - υλαϊαξξωκ λαξαμ ξε οτλςωτ. πςινες. REAL*4 MTNAME(2), AREA(2) DATA MTNAME/3RMT0,0./ EXTERNAL DONSUB . . . I=IGETC() !πομυώιτψ λαξαμ CALL IFETCH(MTNAME) !ϊαηςυϊιτψ δςακχες CALL LOOKUP(I,MTNAME) !οτλςωτψ λαξαμ IERR=ISPFNF("373,1,0,0,0,AREA,DONSUB) !πεςενοτατψ C μεξτυ . . . END SUBROUTINE DONSUB C χωϊωχαετσρ ποσμε πεςενοτλι ντ0: . . . END 8.2.7.4. ζυξλγιρ ISPFNW ζυξλγιρ ISPFNW σταχιτ χ οώεςεδψ ϊαπςοσ ξα ϊαδαξξυΰ οπεςαγιΰ ι χοϊχςαύαετ υπςαχμεξιε πςοηςαννε ποσμε χωπομξεξιρ οπεςαγιι. οβςαύεξιε λ ζυξλγιι: I=ISPFNW (CODE,CHAN[,WCNT,BUF,BLK]) ηδε CODE - ώισμοχοκ λοδ (γεμοε) χωπομξρενοκ ζυξλγιι (σν. ποδ- πυξλτ 8.2.7.1); CHAN - ξονες λαξαμα, ισπομψϊυενοηο δμρ οπεςαγιι; λαξαμ δομφεξ βωτψ πομυώεξ πο IGETC, ιμι, εσμι χωϊωχαμασψ - 278 - ICDFN, νοφξο ισπομψϊοχατψ λαξαμ σ ξονεςον 16 (δεσρτιώξοε) ι βομψϋε; WCNT - λομιώεστχο (γεμοε) σμοχ, υώαστχυΰύιθ χ οπεςαγιι; ότοτ αςηυνεξτ ξε οβρϊατεμεξ δμρ ξελοτοςωθ χωϊοχοχ ISPFNW, χ ϊαχισινοστι οτ ϊαπςαϋιχαενοκ ζυξλγιι; πο υνομώαξιΰ ςαχεξ ξυμΰ; χ οπεςαγιρθ σ ναηξιτξοκ μεξ- τοκ οξ υλαϊωχαετ λομιώεστχο ϊαπισεκ, πςοπυσλαενωθ χπεςεδ ιμι ξαϊαδ; πςι πεςενοτλε ξαϊαδ, σο σώετώι- λον ςαχξων ξυμΰ, μεξτα πεςενατωχαετσρ δο ναςλεςα ιμι δο ξαώαμα μεξτω; αξαμοηιώξο, πςι πεςενοτλε χπεςεδ, σο σώετώιλον ςαχξων ξυμΰ, πεςενοτλα χεδετ- σρ δο ναςλεςα ιμι δο λοξγα μεξτω; BUF - νασσιχ, ισπομψϊυενωκ δμρ θςαξεξιρ ιξζοςναγιι; εσμι ξε ξυφεξ, το ςαχεξ ξυμΰ; ότοτ αςηυνεξτ ξε οβρϊατε- μεξ δμρ ξελοτοςωθ (χ ϊαχισινοστι οτ λοδα ζυξλγιι) χωϊοχοχ ISRFNW; BLK - ξονες βμολα ζακμα (γεμοε ώισμο), ξαδ λοτοςων χωπομξρετσρ οπεςαγιρ; ότοτ αςηυνεξτ ξε οβρϊατεμεξ δμρ ξελοτοςωθ (χ ϊαχισινοστι οτ λοδα ζυξλγιι) χωϊοχοχ ISPFNW; πο υνομώαξιΰ πςιξιναετσρ ϊξαώεξιε, ςαχξοε ξυμΰ. λοηδα παςανετς BLK πςινεξρετσρ δμρ ναηξιτξοκ μεξτω, οξ ρχμρετσρ αδςεσον 4-σμοχξοηο βμολα οϋιβολ ι σοστορξιρ ι ισπομψϊυετσρ δμρ ϊαπισι σοοτχετστχυΰύεκ ιξζοςναγιι. πςι ςαβοτε σ XM-νοξιτοςον βμολ οϋιβολ ι σοστορξιρ ξε δομφεξ ιϊνεξρτψ σχοεηο οτοβςαφεξιρ δο ϊαχεςϋεξιρ οπεςαγιι ι δομφεξ βωτψ ςασπομοφεξ χξε οβμαστι σχοπιξηα USR. ώετωςε σμοχα δομφξω βωτψ ξαώαμψξο ϊαπομξεξω ξυμρνι. ώτοβω πομυώιτψ αδςεσ βμολα οϋιβολ, ξεοβθοδινο χωπομξιτψ σμεδυΰύιε ιξστςυλ- γιι: INTEGER*2 ERRADR, ERRBLK(4) DATA ERRBLK/0,0,0,0/ . . . ERRADR=IADDR(ERRBLK) !πομυώιτψ αδςεσ στατυσ-βμολα ICODE=ISPFN(CODE,ICHAN,WDCT,BUF,ERRADR) πςινεώαξιε. παςανετςω BUF ι BLK ξεοβρϊατεμψξω. οξι τςεβυΰτσρ τομψλο πςι ϊαπισι ξα ναηξιτξυΰ μεξτυ σ υχεμιώεξ- ξων ϊαϊοςον νεφδυ ϊαπισρνι ιμι πςι ώτεξιι μεξτω. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ποπωτλα ώτεξιρ/ϊαπισι ποσμε λοξγα ζακμα; I=2 - χ λαξαμε πςοιϊοϋμα αππαςατξαρ οϋιβλα; I=3 - υλαϊαξξωκ λαξαμ ξε οτλςωτ. πςινες. - 279 - INTEGER*2 BUF(65),TRACK,SECTOP,DBLK(4) DATA DBLK/3RDX0,0,0,0/ . . . ICHAN=IGETC() IF (ICHAN.LT.0) STOP ' ξετ λαξαμα ' IF (LOOKUP(ICHAN,DBLK).LT.0) * STOP ' ξευδαώξωκ LOOKUP ' . . . C πςοώιτατψ αβσομΰτξυΰ δοςοφλυ ι σελτος C ηιβλοηο δισλα C ICODE=ISPFNW("377,ICHAN,TRACK,BUF,SECTOP) C C BUF(1) = ζμαη στεςτωθ δαξξωθ C BUF(2-65) = δαξξωε 8.3. ςαβοτα σ λαξαμανι 8.3.1. ζυξλγιρ ICDFN ζυξλγιρ ICDFN υχεμιώιχαετ ώισμο λαξαμοχ χχοδα/χωχοδα. ξεοβθοδινο οτνετιτψ, ώτο ICDFN οπςεδεμρετ ξοχωε λαξαμω. λαξαμω, οπςεδεμεξξωε δο δαξξοηο χωϊοχα ICDFN, ξε ισπομψ- ϊυΰτσρ, τ.ε. ζυξλγιρ ICDFN δμρ 20 (δεσρτιώξοε) λαξαμοχ χ νονεξτ, λοηδα οπςεδεμεξω 16 (δεσρτιώξοε) οσξοχξωθ λαξαμοχ, δαετ τομψλο 20 λαξαμοχ χχοδα/χωχοδα. πανρτψ, χωδεμεξξαρ δμρ ιξζοςναγιι οβ οσξοχξωθ λαξαμαθ, ξε ισπομψϊυετσρ. οβςαύεξιε λ ζυξλγιι: I=ICDFN (NUM[,AREA]) ηδε NUM - λομιώεστχο (γεμοε) χωδεμρενωθ λαξαμοχ; ότο ώισμο δομφξο ξαθοδιτψσρ χ ιξτεςχαμε 17 - 256 (δεσρτιώ- ξοε); AREA - πςοστςαξστχο δμρ ϊαπισι ιξζοςναγιι ο λαξαμαθ, χωδεμρενοε χωϊωχαΰύεκ πςοηςαννοκ; εσμι ότοτ αςηυ- νεξτ ξε υλαϊαξ, πανρτψ χωδεμρετσρ χ ςαβοώεκ οβμασ- τι ισπομξρΰύεκ σιστενω ζοςτςαξα. πςοηςαννα νοφετ ισπομψϊοχατψ ξοχωε λαξαμω σ ξονεςον βομψϋε 16 βεϊ οβςαύεξικ λ ζυξλγιι IGETC, ξο σιστενα χχοδα/χωχοδα ζοςτςαξα ισπομψϊυετ τομψλο πεςχωε 15 (δεσρτιώ- ξοε) λαξαμοχ. οσξοχξωε 16 λαξαμοχ ισπομψϊυΰτσρ USR ι ςασπ- ςεδεμρΰτσρ ζυξλγιεκ IGETC. αςηυνεξτω ζυξλγιι ICDFN δομφξω ςαϊνεύατψσρ χξε οβμαστι σχοπιξηα USR. - 280 - πςινεώαξιρ: 1. ζυξλγιΰ ICDFN ξεμψϊρ χωϊωχατψ ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ ιμι οβςαβοτλι πςεςωχαξιρ. 2. ςελονεξδυετσρ ισπομψϊοχατψ ζυξλγιΰ ICDFN χ ξαώαμε οσξοχξοκ πςοηςαννω πεςεδ ιξιγιιςοχαξιεν μΰβωθ οπεςαγικ χχοδα/χωχοδα. 3. εσμι ζυξλγιρ ICDFN χωπομξρετσρ βομεε οδξοηο ςαϊα, το λαφδωκ ςαϊ πςι χωϊοχε εε ζοςνιςυετσρ σοχεςϋεξξο ξοχωκ ξαβος λαξαμοχ, ξο ιξζοςναγιρ ο σταςωθ λαξαμαθ πεςεπισωχαετ- σρ χ ξοχωε. 4. ζυξλγιρ ICDFN τςεβυετ, ώτοβω δμρ οπεςατιχξωθ πςοη- ςανν χωδεμρμασψ δοπομξιτεμψξαρ πανρτψ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - βωμα πςεδπςιξρτα ποπωτλα ςασπςεδεμιτψ νεξψϋε λαξαμοχ, ώεν συύεστχυετ; I=2 - δμρ ϊαπισι ιξζοςναγιι ο λαξαμαθ ξεδοστατοώξο σχοβοδξοκ πανρτι. πςινες. IF(ICDFN(24).NE.0)STOP 'ξεδοστατοώξο πανρτι' 8.3.2. ζυξλγιρ ICHCPY (FB, XM) ζυξλγιρ ICHCPY οτλςωχαετ λαξαμ δμρ χχοδα, μοηιώεσλι σχρϊωχαρ εηο σ ζακμον, λοτοςωκ χ ξαστορύικ νονεξτ οτλςωτ δςυηιν ϊαδαξιεν δμρ χχοδα ιμι χωχοδα. ότα ζυξλγιρ νοφετ βωτψ ισπομψϊοχαξα λαλ χ οπεςατιχξοκ, ταλ ι χ ζοξοχοκ πςοη- ςαννε. ζυξλγιρ ICHCPY δομφξα χωπομξρτψσρ δο πεςχοηο ώτεξιρ ιμι ϊαπισι πο δαξξονυ λαξαμυ. οβςαύεξιε λ ζυξλγιι: I=ICHCPY (CHAN,OCHAN[,JOBBLK]) ηδε CHAN - ξονες λαξαμα, λοτοςωκ βυδετ ισπομψϊοχατψσρ ϊαδα- ξιεν δμρ ώτεξιρ δαξξωθ; ξονες δομφεξ βωτψ πομυώεξ πςι πονούι χωϊοχα IGETC, ιμι, εσμι υφε χωϊωχαμασψ ICDFN, νοφξο ισπομψϊοχατψ σχοβοδξωκ λαξαμ σ ξονε- ςον οτ 16 (δεσρτιώξοε) ι χωϋε. OCHAN - ξονες λαξαμα δςυηοηο ϊαδαξιρ, λοτοςωκ δομφεξ λοπι- ςοχατψσρ; JOBBLK - υλαϊατεμψ τςεθσμοχξοηο βμολα ινεξι ϊαδαξιρ χ λοι-7. πςινεώαξιρ: 1. εσμι λαξαμ δςυηοηο ϊαδαξιρ βωμ οτλςωτ δμρ ζοςνιςο- - 281 - χαξιρ ζακμα ζυξλγιεκ IENTER ιμι σιστενξοκ ναλςολοναξδοκ .ENTER, το πο σλοπιςοχαξξονυ λαξαμυ βυδυτ δοστυπξω βμολι ζακμα δο σταςϋεηο βμολα ζακμα χλμΰώιτεμψξο, ϊαπισαξξοηο λ νονεξτυ οπεςαγιι ICHCPY πςοηςαννοκ, σοϊδαχϋεκ ζακμ. 2. λαξαμ, οτλςωτωκ ξα υστςοκστχο ποσμεδοχατεμψξοηο δοστυπα, ξε δομφεξ λοπιςοχατψσρ. 3. πςοηςαννα νοφετ ϊαπισωχατψ χ ζακμ (σοϊδαξξωκ δςυηιν ϊαδαξιεν) πο σλοπιςοχαξξονυ λαξαμυ ταλ φε, λαλ ότο οξα νοη- μα βω σδεματψ χ σμυώαε, εσμι βωμα βω πςοηςαννοκ, σζοςνιςο- χαχϋεκ ότοτ ζακμ. οδξαλο, εσμι σλοπιςοχαξξωκ λαξαμ ϊαλςω- χαετσρ, το οβξοχμεξιρ λαταμοηα ξε πςοισθοδιτ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - δςυηοε ϊαδαξιε ξε συύεστχυετ ιμι δμρ ξεηο ξε οτλςωτ υλαϊαξξωκ λαξαμ (αςηυνεξτ "OCHAN"); I=2 - λαξαμ υφε οτλςωτ (αςηυνεξτ "CHAN"). 8.3.3. ζυξλγιρ ICSTAT (FB, XM) ζυξλγιρ ICSTAT πςεδξαϊξαώεξα δμρ πομυώεξιρ ιξζοςναγιι ο σοστορξιι λαξαμα. οξα χωπομξρετσρ τομψλο ποδ υπςαχμεξιεν FB- ι XM-νοξιτοςοχ, ποδ υπςαχμεξιεν SJ-νοξιτοςα χωϊοχ όTοκ ζυξλγιι ξε δαετ ξιλαλοκ ιξζοςναγιι. οβςαύεξιε λ ζυξλγιι: I=ICSTAT (CHAN,ADDR) ηδε CHAN - ξονες λαξαμα, ο λοτοςον ξεοβθοδινο πομυώιτψ ιξζος- ναγιΰ; ADDR - 6-σμοχξωκ νασσιχ, πςεδξαϊξαώεξξωκ δμρ πςιενα ιξζοςναγιι ο σοστορξιι λαξαμα. ADDR, οπισαξξωκ χ χιδε 6-όμενεξτξοηο νασσιχα τιπα INTEGER*2, ινεετ σμεδυΰύικ ζοςνατ: 1-ε σμοχο - σμοχο σοστορξιρ λαξαμα; 2-ε σμοχο - αβσομΰτξωκ ξονες ξαώαμψξοηο βμολα ζακμα, σχρϊαξξο- ηο σ ότιν λαξαμον ξα ξοσιτεμε; 3-ε σμοχο - δμιξα ζακμα; 4-ε σμοχο - ναλσιναμψξωκ ξονες βμολα, χ λοτοςωκ βωμα πςοιϊχε- δεξα ϊαπισψ σ τοηο νονεξτα, λαλ βωμ οτλςωτ ζακμ; - 282 - 5-ε σμοχο - ξονες υστςοκστχα, σ λοτοςων σχρϊαξ λαξαμ; 6-ε σμοχο - ινρ υστςοκστχα, σ λοτοςων σχρϊαξ λαξαμ, χ RADIX-50. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - υλαϊαξξωκ λαξαμ ξε οτλςωτ. χ πςινεςε πολαϊαξο, λαλ πομυώιτψ ιξζοςναγιΰ ο σοστορ- ξιι λαξαμα. πςινες. INTEGER*2 AREAL(6) I=7 IF(ICSTAT(I,AREAL).NE.0)TYPE 99,I 99 FORMAT('λαξαμ',I4,' ξε οτλςωτ') 8.3.4. ζυξλγιρ IFREEC ζυξλγιρ IFREEC πςεδξαϊξαώεξα δμρ οσχοβοφδεξιρ υλαϊαξ- ξοηο λαξαμα ι χοϊχςατα εηο χ σπισολ σχοβοδξωθ λαξαμοχ ισπομξρΰύεκ σιστενω ζοςτςαξα. πεςεδ χωϊοχον IFREEC υλαϊαξ- ξωκ λαξαμ ξεοβθοδινο ϊαλςωτψ ζυξλγιεκ CLOSEC (ιμι ICLOSE) ιμι οώιστιτψ ζυξλγιεκ PURGE. ζυξλγιρ IFREEC ξε νοφετ χωϊω- χατψσρ ιϊ ποδπςοηςανν ϊαχεςϋεξιρ ιμι οβςαβοτλι πςεςωχαξιρ. χωϊοχω IFREEC δομφξω πςοιϊχοδιτψσρ τομψλο δμρ λαξαμοχ, λοτοςωε βωμι ςαξεε υσπεϋξο χωδεμεξω ιϊ σπισλα σχοβοδξωθ λαξαμοχ ισπομξρΰύεκ σιστενω ζοςτςαξ πςι πονούι χωϊοχα IGETC, χ πςοτιχξον σμυώαε ςεϊυμψτατω ξεπςεδσλαϊυενω. οβςαύεξιε λ ζυξλγιι: I=IFREEC (CHAN) ηδε CHAN - ξονες (γεμοε) οσχοβοφδαενοηο λαξαμα. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - χ δαξξωκ νονεξτ υλαϊαξξωκ λαξαμ ξε χωδεμεξ. πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι IGETC (π. 8.3.5). - 283 - 8.3.5. ζυξλγιρ IGETC ζυξλγιρ IGETC πςεδξαϊξαώεξα δμρ χωδεμεξιρ οσξοχξωθ λαξαμοχ σιστενω χ διαπαϊοξε 0-17 (χοσψνεςιώξοε) δμρ ισπομψ- ϊοχαξιρ ιθ δςυηινι ποδπςοηςαννανι SYSLIB. ισπομξρΰύαρ σισ- τενα ζοςτςαξα χωδεμρετ λαξαμ πομψϊοχατεμΰ ι ζιλσιςυετ, ώτο οξ ϊαξρτ, τ.ε. σιστενα χχοδα/χωχοδα ζοςτςαξα ξε πομυώιτ λ ξενυ δοστυπα. ζυξλγιρ IGETC ξε νοφετ χωϊωχατψσρ ιϊ ποδπςοη- ςαννω ϊαχεςϋεξιρ ιμι ιϊ ποδπςοηςαννω οβςαβοτλι πςεςωχαξιρ. οβςαύεξιε λ ζυξλγιι: I=IGETC () ςεϊυμψτατω ζυξλγιι: I=-1 - ξετ σχοβοδξωθ λαξαμοχ; I=N - δμρ χχοδα/χωχοδα χωδεμεξ λαξαμ N. πςινες. ICHAN=IGETC() !ςασπςεδεμιτψ λαξαμ IF(ICHAN.LT.0)STOP 'λαξαμ ξεμψϊρ χωδεμιτψ' . . . CALL IFREEC(ICHAN) !οσχοβοδιτψ λαξαμ . . . END 8.3.6. ζυξλγιρ ILUN ζυξλγιρ ILUN πςεδξαϊξαώεξα δμρ οπςεδεμεξιρ ξονεςα λαξαμα, σ λοτοςων σχρϊαξο μοηιώεσλοε υστςοκστχο. οβςαύεξιε λ ζυξλγιι: I=ILUN (LUN) ηδε LUN - γεμοε χωςαφεξιε σο ϊξαώεξιεν χ διαπαϊοξε 1 - 99; οπςεδεμρετ ξονες μοηιώεσλοηο υστςοκστχα ζοςτςα- ξοχσλοκ σιστενω. ςεϊυμψτατω ζυξλγιι: I=N - λαξαμ σ ξονεςον N σχρϊαξ σ μοηιώεσλιν υστςοκστ- χον σιστενω LUN; I=-1 - μοηιώεσλοε υστςοκστχο ξε οτλςωτο; I=-2 - μοηιώεσλοε υστςοκστχο οτλςωτο λοξσομψξονυ τες- νιξαμυ. - 284 - πςινες. PRINT 99 99 FORMAT(' ξαπεώατατψ ξα ' *' μοηιώεσλε υστςοκστχο 6, λοτοςων πο υνομώαξιΰ ' *' δομφξο βωτψ LP: ') LUNIT=ILUN(6) ! οπςεδεμεξιε λαξαμα χχοδα/χωχοδα 8.3.7. ζυξλγιρ IREOPN ζυξλγιρ IREOPN πςεδξαϊξαώεξα δμρ ποχτοςξοηο υσταξοχμε- ξιρ σχρϊι ϊαδαξξοηο λαξαμα σ ζακμον, δμρ λοτοςοηο πςεδχαςι- τεμψξο βωμο χωπομξεξο ISAVES. χ σμυώαε, λοηδα οδξοχςενεξξο οβςαβατωχαετσρ βομψϋοε ώισμο ζακμοχ, γεμεσοοβςαϊξο ισπομψ- ϊοχατψ λονβιξαγιΰ ζυξλγικ ISAVES/IREOPN. ξεοβθοδινωε δμρ ςαβοτω ζακμω νοηυτ βωτψ οτλςωτω ζυξλγιεκ LOOKUP, ιθ σοστορ- ξιε νοφξο σοθςαξιτψ σ πονούψΰ ISAVES, α σ πονούψΰ IREOPN ποχτοςξο οτλςωτψ ζακμω ι σώιτατψ ιϊ ξιθ ξεοβθοδινωε δαξξωε. οβςαύεξιε λ ζυξλγιι: I=IREOPN (CHAN,CBLK) ηδε CHAN - ξονες λαξαμα, σχρϊωχαενοηο σ χξοχψ οτλςωχαενων ζακμον; πεςχοξαώαμψξο ότοτ λαξαμ δομφεξ ξαθοδιτψσρ χ ξεαλτιχξον σοστορξιι; CBLK - 5-σμοχξωκ νασσιχ, χ λοτοςωκ ζυξλγιεκ ISAVES βωμα ϊαπισαξα ιξζοςναγιρ ο σοστορξιι λαξαμα. CBLK πςεδσταχμρετ σοβοκ 5-όμενεξτξωκ νασσιχ τιπα INTEGER*2 ι ινεετ σμεδυΰύικ ζοςνατ: 1 όμενεξτ - σμοχο σοστορξιρ λαξαμα; 2 όμενεξτ - ξονες ξαώαμψξοηο βμολα ζακμα ξα ξοσιτεμε; ςαχεξ ξυμΰ δμρ υστςοκστχ σ ξεζακμOχοκ στςυλτυςοκ; 3 όμενεξτ - δμιξα ζακμα (χ βμολαθ πο 256 σμοχ); 4 όμενεξτ - ςεϊεςχιςυετσρ; 5 όμενεξτ - δχα ιξζοςναγιοξξωθ βακτα; ώετξωκ βακτ - σώετώιλ χχοδα/χωχοδα, σώιταετ ώισμο ϊαπςοσοχ, σδεμαξξωθ δαξξονυ λαξαμυ; ξεώετξωκ βακτ - ξονες υστςοκστχα, σχρϊαξξοηο σ ότιν λαξαμον. - 285 - ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - υλαϊαξξωκ λαξαμ υφε ισπομψϊυετσρ. πςινες. INTEGER*2 SAVES(5,10) DATA ISVPTR/1/ . . . CALL ISAVES(ICHAN,SAVES(1,ISVPTR)) . . . CALL IREOPN(ICHAN,SAVES(1,ISVPTR)) 8.3.8. ζυξλγιρ ISAVES ζυξλγιρ ISAVES ϊαπισωχαετ πρτψ σμοχ ιξζοςναγιι ο σοσ- τορξιι λαξαμα χ υλαϊαξξωκ νασσιχ. χ ότον νασσιχε, ποσμε χωπομξεξιρ ISAVES, βυδετ σοδεςφατψσρ πομξαρ ιξζοςναγιρ ο ζακμε, ξεοβθοδιναρ σιστενε δμρ εηο οπςεδεμεξιρ. ποσμε χωπομξεξιρ ζυξλγιι ISAVES 5-σμοχξωκ νασσιχ ξαθοδιτσρ χ οπε- ςατιχξοκ πανρτι, υλαϊαξξωκ λαξαμ ϊαλςωχαετσρ ι σταξοχιτσρ δοστυπξων δμρ ισπομψϊοχαξιρ. εσμι ξεοβθοδινο χξοχψ πομυώιτψ δοστυπ λ ιξζοςναγιι, λοτοςαρ βωμα σχρϊαξα σ σοθςαξεξξων λαξαμον, ισπομψϊυετσρ ζυξλγιρ IREOPN. ζυξλγιΰ ISAVES νοφξο ισπομψϊοχατψ τομψλο χ τον σμυώαε, εσμι ζακμ βωμ οτλςωτ χωϊοχον LOOKUP. εσμι δμρ οτλςωτιρ ισπομψϊοχαμασψ ζυξλγιρ IENTER, το χωϊοχ ISAVES χωςαβατωχαετ πςιϊξαλ οϋιβλι. ζυξλγιρ ISAVES ξε πςινεξρετσρ λ ζακμαν ξα ναηξιτξοκ μεξτε ι λασσετε. οβςαύεξιε λ ζυξλγιι: I=ISAVES (CHAN,CBLK) ηδε CHAN - ξονες λαξαμα, ο λοτοςον ξεοβθοδινο πομυώιτψ ιξζος- ναγιΰ; ότοτ λαξαμ δομφεξ βωτψ πομυώεξ ιϊ ισπομξρΰ- ύεκ σιστενω ζοςτςαξα πςι πονούι ζυξλγιι IGETC, ιμι, εσμι βωμο οβςαύεξιε λ ICDFN, νοφετ βωτψ ισπομψϊοχαξ λαξαμ σ ξονεςον 16 (δεσρτιώξοε) ι βομψϋε; CBLK - 5-σμοχξωκ νασσιχ, χ λοτοςωκ ξεοβθοδινο ϊαπισατψ ιξζοςναγιΰ ο λαξαμε (σν. π. 8.3.7). ισπομψϊυρ ISAVES/IREOPN, ξεοβθοδινο ιϊβεηατψ σμεδυΰύιθ σιτυαγικ: - εσμι ζυξλγιρ ISAVES πςινεξρμασψ λ ζακμυ, α ϊατεν ότοτ ζακμ βωμ υδαμεξ δο ποχτοςξοηο οτλςωτιρ, το οσχοβοδιχϋεεσρ νεστο νοημο βωτψ ισπομψϊοχαξο ζυξλ- - 286 - γιεκ IENTER; πςι ταλοκ ποσμεδοχατεμψξοστι ζυξλγικ συύεστχυετ χεςορτξοστψ, ώτο σοδεςφινοε ζακμα, σοσ- τορξιε λοτοςοηο σοθςαξρμοσψ, ιϊνεξιτσρ; - εσμι πςι χωπομξεξιι ζυξλγικ IREAD ι IWRITE χ οπε- ςατιχξοκ πανρτι ξετ δςακχεςα τςεβυενοηο πεςιζεςικ- ξοηο υστςοκστχα, ξαμιώιε λοτοςοηο ξεοβρϊατεμψξο πςι χωπομξεξιι ζυξλγιι IREOPN, το ότο πςιχεδετ λ ξευστςαξινοκ οϋιβλε. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ϊαδαξξωκ λαξαμ χ ξαστορύικ νονεξτ ξε σχρϊαξ σ ζακμον; I=2 - ζακμ βωμ οτλςωτ χωϊοχον IENTER, ζυξλγιρ ISAVES ξε νοφετ χωπομξιτψσρ. πςινες. INTEGER*2 BLK(5) . . . IF(ISAVES(ICHAN,BLK).NE.0)STOP'οϋιβλα ISAVES' 8.3.9. ποδπςοηςαννα PURGE ποδπςοηςαννα PURGE ισπομψϊυετσρ δμρ οτλμΰώεξιρ λαξαμα βεϊ χωπομξεξιρ ζυξλγιι ISAVES, CLOSEC ιμι ICLOSE. πςι ότον ζακμ, σχρϊαξξωκ χ ξαστορύικ νονεξτ σ λαξαμον, ξε σταξοχιτσρ ποστορξξων, εσμι οξ βωμ σοϊδαξ πο IENTER. ότυ ποδπςοηςαννυ γεμεσοοβςαϊξο πςινεξρτψ δμρ πςεδοτχςαύεξιρ πςεχςαύεξιρ ζακ- μοχ, σοϊδαχαενωθ ζυξλγιεκ IENTER ιμι σιστενξοκ ναλςολοναξ- δοκ .ENTER, χ ποστορξξωε ζακμω. οβςαύεξιε λ ποδπςοηςαννε: CALL PURGE (CHAN) ηδε CHAN - ξονες λαξαμα σιστενω, λοτοςωκ ξεοβθοδινο Oτλμΰώιτψ. οϋιβλι οτσυτστχυΰτ. πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι IENTER (σν. π. 8.1.3). - 287 - 8.4. οβςαβοτλα λοναξδξοκ στςολι 8.4.1. ποδπςοηςαννα GTLIN ποδπςοηςαννα GTLIN πεςεδαετ στςολυ σ σιστενξοηο τεςνι- ξαμα ιμι ιϊ χωπομξρΰύεηοσρ λοναξδξοηο ζακμα χ πςοηςαννυ πομψϊοχατεμρ. ότοτ ϊαπςοσ ποϊχομρετ πςιξινατψ ιξζοςναγιΰ σ σιστενξο- ηο τεςνιξαμα ι υπςαχμρτψ πςοηςαννοκ ιϊ λοσχεξξοηο λοναξδξο- ηο ζακμα. ποδπςοηςαννα GTLIN τςεβυετ USR. ναλσιναμψξωκ ςαϊ- νες χθοδξοκ στςολι ςαχεξ 80 σινχομαν. οπισαξιε υσταξοχλι ςαϊςρδοχ χ σμοχε σοστορξιρ ϊαδαξιρ (JSW) δμρ πεςεσωμλι ϊξα- λοχ λιςιμμιγω ι υσταξοχλι υσμοχικ ξεϊαβεςϋεξξοστι δαξο χ οπισαξιι σιστενξοκ ναλςολοναξδω .GTLIN (σν. π. 7.4.3). οβςαύεξιε λ ποδπςοηςαννε: CALL GTLIN (RESULT[,PROMPT]) ηδε RESULT - νασσιχ, χ λοτοςον πονεύαετσρ στςολα; ότοτ νασσιχ τιπα LOGICAL*1 σοδεςφιτ ναλσινυν 80 σινχομοχ πμΰσ ποσμεδξικ σινχομ - υλαϊατεμψ λοξγα (ςαχεξ ξυμΰ) ι ποότονυ δομφεξ ινετψ ςαϊνεςξοστψ ξε νεξψϋυΰ, ώεν 81; PROMPT - ξεοβρϊατεμψξωκ αςηυνεξτ; νασσιχ τιπα LOGICAL*1; στςολα, λοτοςαρ πεώαταετσρ δο χθοδξοκ στςολι; ζος- νατ στςολι ταλοκ φε, λαλ ι χ ποδπςοηςαννε PRINT; εσμι αςηυνεξτ οπυύεξ, ξιλαλιθ σιηξαμοχ ηοτοχξοστι λ χχοδυ σ λμαχιατυςω ξα τεςνιξαμ ξε χωχοδιτσρ. οϋιβλι οτσυτστχυΰτ. πςινες. LOGIKAL*1 INP(81), PROMP(5) DATA PROMP /'ι', 'ν', 'ρ', '?', "200/ . . . CALL GTLIN (INP,PROMP) - 288 - 8.4.2. ζυξλγιρ IASIGN ζυξλγιρ IASIGN πςεδξαϊξαώεξα δμρ ϊαπισι ιξζοςναγιι χ ταβμιγυ μοηιώεσλιθ υστςοκστχ ισπομξρΰύεκ σιστενω ζοςτςαξα (οτνεξρρ ϊξαώεξιρ, ξαϊξαώεξξωε πο υνομώαξιΰ) σ τεν, ώτοβω ότα ιξζοςναγιρ ισπομψϊοχαμασψ πςι οτλςωτιι μοηιώεσλοηο υστ- ςοκστχα. ότυ ζυξλγιΰ νοφξο ισπομψϊοχατψ χνεστε σ ζυξλγιεκ ICSI δμρ οβεσπεώεξιρ πςιενα πςοηςαννοκ ξα ζοςτςαξ σταξδαςτ- ξοκ λοναξδξοκ στςολι CSI. ζυξλγιρ IASIGN δομφξα χωϊωχατψσρ δο οτλςωτιρ υστςοκστχα, τ.ε. δο τοηο, λαλ οδιξ ιϊ οπεςατο- ςοχ (READ, WRITE, PRINT, TYPE, OPEN ιμι ACCEPT), τςεβυΰύικ οβςαύεξιρ λ μοηιώεσλονυ υστςοκστχυ, βυδετ χωπομξεξ. οβςαύεξιε λ ζυξλγιι: I=IASIGN (LUN,IDE[,IFILEX[,ISIZE[,ITYPE]]]) ηδε LUN - γεμαρ πεςενεξξαρ τιπα INTEGER*2, λοξσταξτα ιμι χωςαφεξιε, οπισωχαΰύεε μοηιώεσλοε υστςοκστχο ζοςτ- ςαξ, δμρ λοτοςοηο πςεδξαϊξαώεξα ιξζοςναγιρ; IDEV - ινρ υστςοκστχα - οδξο σμοχο χ λοδε RADIX-50, ιν νοφετ βωτψ πεςχοε σμοχο οπισαξιρ χθοδξοηο ι χωθοδ- ξοηο ζακμα ζυξλγιι ICSI; IFILEX - τςι σμοχα, σοδεςφαύιε ινρ ι τιπ ζακμα χ λοδε RADIX-50; ινι νοηυτ βωτψ χτοςοε, τςετψε ι ώετχες- τοε σμοχο οπισαξιρ χθοδξοηο ι χωθοδξοηο ζακμα ζυξλγιι ICSI; ISIZE - δμιξα (χ βμολαθ πο 256 σμοχ) οβμαστι ξα χξεϋξεν ϊαπονιξαΰύεν υστςοκστχε δμρ ςαϊνεύεξιρ χωθοδξοηο ζακμα; εΰ νοφετ βωτψ πρτοε σμοχο οπισαξιρ χωθοδξο- ηο ζακμα ICSI; εσμι ότοτ παςανετς ςαχεξ ξυμΰ, το δμρ ϊαπισι ζακμα χωδεμρετσρ πομοχιξα ξαιβομψϋεηο σχοβοδξοηο πςοστςαξστχα ιμι χεσψ σμεδυΰ- ύικ πο χεμιώιξε ; εσμι χεμιώιξα, υλαϊωχαΰ- ύαρ δμιξυ, ςαχξα -1, το χωδεμρετσρ ξαιβομψϋικ ; ITYPE - γεμαρ χεμιώιξα, οπςεδεμρΰύαρ ξεοβρϊατεμψξωε σπεγι- ζιλαγιι, ξαϊξαώαενωε ζακμυ. ITYPE πομυώαετσρ σμοφεξιεν χεμιώιξ, σοοτχετστχυΰύιθ ξυφξων οπεςαγιρν: 1 - ισπομψϊοχατψ δμρ χωχοδα δχοκξυΰ βυζεςιϊαγιΰ; 2 - οτλςωτψ ζακμ χ λαώεστχε χςενεξξοηο; 4 - χωπομξιτψ οτλςωτιε συύεστχυΰύεηο ζακμα χο χςενρ πεςχοκ οπεςαγιι χχοδα/χωχοδα (χ πςοτιχξον σμυώαε πεςχαρ οπεςαγιρ χχοδα/χωχοδα οπςεδεμρετ σποσοβ οτλςωτιρ ζακμα; ξαπςινες, εσμι πεςχοκ οπεςαγιεκ βυδετ χωχοδ, το ζακμ βυδετ οτλςωτ πο IENTER; οπε- - 289 - ςαγιρ ώτεξιρ χσεηδα πςεδχαςρετσρ LOOKUP); 8 - ςασϋιςιτψ ιξζοςναγιΰ οβ υπςαχμεξιι λαςετλοκ; 16 - ξε ςασϋιςρτψ ιξζοςναγιΰ οβ υπςαχμεξιι λαςετλοκ; 32 - ζακμ νοφξο τομψλο ώιτατψ. πςινεώαξιρ: 1. ςασϋιςεξξαρ ιξζοςναγιρ οβ υπςαχμεξιι λαςετλοκ πςι- νεξρετσρ τομψλο λ ζοςνατξων χωθοδξων ζακμαν ι οβοϊξαώαετ, ώτο πεςχωκ σινχομ λαφδοκ ϊαπισι ισπομψϊυετσρ χ λαώεστχε σινχομα υπςαχμεξιρ λαςετλοκ πςι ϊαπισι ξα δαξξοε μοηιώεσλοε υστςοκστχο. πεςχωκ σινχομ υδαμρετσρ ιϊ ϊαπισι ι πςεοβςα- ϊυετσρ χ σοοτχετστχυΰύιε σινχομω λοι-7 δμρ νοδεμιςοχαξιρ τςεβυενοηο υπςαχμεξιρ λαςετλοκ. 2. εσμι ιξζοςναγιρ οβ υπςαχμεξιι λαςετλοκ ξε ςασϋιςε- ξα, το πεςχωκ σινχομ λαφδοκ ϊαπισι ξε νοδιζιγιςυετσρ ι ισπομξρΰύαρ σιστενα ζοςτςαξα (OTS) χωχοδιτ , ϊαπισψ ι . 3. εσμι υπςαχμεξιε λαςετλοκ ξε υλαϊαξο, το OTS ποσω- μαετ ςασϋιςεξξυΰ ιξζοςναγιΰ οβ υπςαχμεξιι λαςετλοκ ξα τες- νιξαμ ι πεώαταΰύεε υστςοκστχο, α ξεςασϋιςεξξυΰ ιξζοςναγιΰ οβ υπςαχμεξιι λαςετλοκ - ξα χσε δςυηιε υστςοκστχα ι ζακμω. ςεϊυμψτατω ζυξλγιι: I= 0 - οβωώξωκ χωθοδ; I<>0 - υλαϊαξξοε μοηιώεσλοε υστςοκστχο υφε ισπομψϊυ- ετσρ ιμι ξετ νεστα δμρ ιξζοςναγιι οβ υσταξοχ- μεξιι σχρϊι σ δςυηιν μοηιώεσλιν υστςοκστχον. χ πςινεςε οπςεδεμρετσρ χωθοδξοκ ζακμ ξα μοηιώεσλον υστςοκστχε 3, χ λοτοςον δμρ χωχοδα ισπομψϊυετσρ δχοκξαρ βυζεςιϊαγιρ. οπισωχαετσρ ταλφε χθοδξοκ ζακμ ξα μοηιώεσλον υστςοκστχε 4, δοστυπξωκ τομψλο δμρ ώτεξιρ. ιξζοςναγιρ ο χθοδξον ι χωθοδξον ζακμαθ βεςετσρ ιϊ νασσιχα οπισαξιρ ζακ- μοχ ICSI (ιϊ οπισαξικ πεςχοηο χωθοδξοηο ι πεςχοηο χθοδξοηο ζακμοχ χο χχεδεξξοκ λοναξδε ζοςνατα CSI). πςινες. INTEGER*2 SPEC(39) REAL*4 EXT(2) DATA EXT/6RDATDAT,6RDATDAT/ !πο υνομώαξιΰ ξαϊξαώα- C ετσρ τιπ ζακμα DAT . . . 10 IF(ICSI(SPEC,EXT,,,0).NE.0) GOTO 10 C C λμΰώι ξε πςιξιναΰτσρ C CALL IASIGN(3,SPEC(1),SPEC(2),SPEC(5),1) CALL IASIGN(4,SPEC(16),SPEC(17),0,32) - 290 - 8.4.3. ζυξλγιρ ICSI ζυξλγιρ ICSI χωϊωχαετ ιξτεςπςετατος λοναξδξοκ στςολι (CSI) χ σπεγιαμψξον ςεφινε δμρ αξαμιϊα λοναξδξοκ στςολι ι χοϊχςαύαετ σπεγιζιλαγιι ζακμοχ ι λμΰώεκ χ πςοηςαννυ. χ ότον ςεφινε ιξτεςπςετατος λοναξδξοκ στςολι ξε πςοιϊχοδιτ ϊαηςυϊ- λυ δςακχεςοχ ι ξε χωπομξρετ ζυξλγιι CLOSE, ENTER ιμι LOOKUP. αςηυνεξτ ςαϊςεϋεξ τομψλο χ σμυώαε, λοηδα οξ χχοδιτ- σρ σ τεςνιξαμα. ζυξλγιρ ICSI ξε νοφετ χωϊωχατψσρ ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ ιμι οβςαβοτλι πςεςωχαξιρ. ότα ζυξλγιρ τςεβυετ ςαβοτω USR. οβςαύεξιε λ ζυξλγιι: I=ICSI (OUTSPC,TYP[,CSTRING][,SWITCH],NUM) ηδε OUTSPC - νασσιχ ιϊ 39 σμοχ, πςεδξαϊξαώεξξωκ δμρ ςαϊνεύεξιρ οπισαξικ ζακμοχ χ λοδε RADIX-50; TYP - ταβμιγα τιποχ ζακμοχ χ RADIX-50, ισπομψϊυενωθ πο υνομώαξιΰ; ώετωςεθσμοχξωκ νασσιχ; CSTRING - νασσιχ σοδεςφιτ στςολυ, ϊαδαχαενυΰ χ ζοςνατε ASCIZ, λοτοςυΰ ξεοβθοδινο ιξτεςπςετιςοχατψ λαλ λοναξδυ CSI; στςολα δομφξα ϊαλαξώιχατψσρ ξυμεχων βακτον; εσμι ότοτ παςανετς οπυύεξ, το σιστενα χωχοδιτ σινχομ ϊαπςοσα λοναξδω (*) ξα τεςνιξαμ ι πςιξιναετ σ ξεηο λοναξδξυΰ στςολυ; εσμι χχοδ δαξ- ξωθ πςοιϊχοδιτσρ ιϊ λοσχεξξοηο λοναξδξοηο ζακμα, το οβςαύεξιε λ τεςνιξαμυ ξε πςοιϊχοδιτσρ, α ισπομψϊυετσρ σμεδυΰύαρ στςολα λοναξδξοηο ζακμα; SWITCH - ινρ νασσιχα τιπα INTEGER*2 σ ςαϊνεςξοστψΰ (4,NUM), ηδε NUM - λομιώεστχο Kμΰώεκ, οπςεδεμεξξωθ χ πςοη- ςαννε; ότοτ παςανετς δομφεξ πςισυτστχοχατψ, εσμι χεμιώιξα, υλαϊαξξαρ δμρ παςανετςα NUM, ξε ςαχξα ξυμΰ; NUM - οβρϊατεμψξωκ παςανετς; ώισμο λμΰώεκ, οπισαξξωθ χ νασσιχε SWITCH. ζοςνατ OUTSPC (39-όμενεξτξοηο νασσιχα τιπα INTEGER*2), σμεδυΰύικ: 1-4 σμοχα - σπεγιζιλαγιρ χωθοδξοηο ζακμα 1; 5-ε σμοχο - δμιξα χωθοδξοηο ζακμα 1; - 291 - 6-9 σμοχα - σπεγιζιλαγιρ χωθοδξοηο ζακμα 2; 10-ε σμοχο - δμιξα χωθοδξοηο ζακμα 2; 11-14 σμοχA - σπεγιζιλαγιρ χωθοδξοηο ζακμα 3; 15-ε σμοχO - δμιξα χωθοδξοηο ζακμα 3; 16-19 σμοχA - σπεγιζιλαγιρ χθοδξοηο ζακμα 1; 20-23 σμοχA - σπεγιζιλαγιρ χθοδξοηο ζακμα 2; 24-27 σμοχA - σπεγιζιλαγιρ χθοδξοηο ζακμα 3; 28-31 σμοχA - σπεγιζιλαγιρ χθοδξοηο ζακμα 4; 32-35 σμοχA - σπεγιζιλαγιρ χθοδξοηο ζακμα 5; 36-39 σμοχA - σπεγιζιλαγιρ χθοδξοηο ζακμα 6. ταβμιγα τιποχ ζακμοχ πο υνομώαξιΰ ισπομψϊυετσρ χ σμυ- ώαρθ οπισαξιρ ζακμα χ στςολε CSI βεϊ υλαϊαξιρ τιπα: TYPE(1) - τιπ ζακμα πο υνομώαξιΰ δμρ χσεθ χθοδξωθ ζακμοχ; TYPE(2) - τιπ ζακμα πο υνομώαξιΰ δμρ χωθοδξοηο ζακμα 1; TYPE(3) - τιπ ζακμα πο υνομώαξιΰ δμρ χωθοδξοηο ζακμα 2; TYPE(4) - τιπ ζακμα πο υνομώαξιΰ δμρ χωθοδξοηο ζακμα 3. νασσιχ SWITCH ινεετ σμεδυΰύικ ζοςνατ δμρ J-ηο λμΰώα, οπισαξξοηο χ νασσιχε: SWITCH (1,J) - οδξοσινχομψξοε ινρ λμΰώα χ λοι-7; SWITCH (2,J) - υσταξαχμιχαετσρ ποδπςοηςαννοκ ICSI χ 0, εσμι λμΰώ ξε βωμ υλαϊαξ χ στςολε CSI; χ 1, εσμι λμΰώ βωμ υλαϊαξ βεϊ ϊξαώεξιρ; χ 2, εσμι λμΰώ υλαϊαξ σο ϊξα- ώεξιεν; - 292 - SWITCH(3,J) - υσταξαχμιχαετσρ χ ξονες ζακμα, πςι σπεγιζιλαγιι λοτοςοηο βωμ ποσταχμεξ λμΰώ; ξυνεςαγιρ ζακμοχ ποσ- μεδοχατεμψξο-ποϊιγιοξξαρ, τ.ε. πεςχωκ χθοδξοκ ζακμ ινεετ ξονες 4; SWITCH(4,J) - υσταξαχμιχαετσρ χ ϊξαώεξιε, υλαϊαξξοε δμρ δαξξοηο λμΰώα λοναξδω CSI, εσμι SWITCH(2,J) ςαχεξ δχυν; πςινεώαξιρ: 1. παςανετς SWITCH δομφεξ θςαξιτψ ινεξα χσεθ δοπυστι- νωθ λμΰώεκ. ξαπςινες, δμρ θςαξεξιρ 5 ινεξ λμΰώεκ νοφξο ισπομψϊοχατψ σμεδυΰύυΰ οςηαξιϊαγιΰ: INTEGER*2 SW(4,5) DATA SW(1,1)/'S'/,SW(1,2)/'M'/,SW(1,3)/'I'/ DATA SW(1,4)/'L'/,SW(1,5)/'E'/ εσμι λαλοκ-μιβο λμΰώ νοφετ πορχιτψσρ χ λοναξδξοκ στςολε ξεσλομψλο ςαϊ (ιμι πςι ξεν νοφετ βωτψ υλαϊαξο ξεσλομψλο ϊξαώεξικ), το ότοτ λμΰώ δομφεξ βωτψ οπισαξ χ νασσιχε SWITCH στομψλο ςαϊ, σλομψλο σεναξτιώεσλι ςαϊμιώξωθ χαςιαξτοχ εηο πορχμεξιρ συύεστχυετ. 2. παςανετςω ζυξλγιι ICSI δομφξω ςαϊνεύατψσρ χ πανρτι ταλ, ώτοβω οξι ξε πεςελςωχαμισψ σ USR πςι σχοπιξηε. βομεε ποδςοβξο χωϊοχ ι ζυξλγιοξιςοχαξιε ιξτεςπςετατοςα λοναξδξοκ στςολι οπισαξο χ σιστενξοκ ναλςολοναξδε .CSISPC. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξεπςαχιμψξαρ λοναξδξαρ στςολα; δαξξωε ξε χοϊχςαύαΰτσρ; I=2 - χ λοναξδξοκ στςολε χστςετιμοσψ ξεπςαχιμψξοε οπισαξιε υστςοκστχα; I=3 - βωμ υλαϊαξ ξεπςαχιμψξωκ λμΰώ ιμι δαξξωκ λμΰώ βωμ υλαϊαξ βομψϋεε ώισμο ςαϊ, ώεν ότο ςαϊςεϋεξο ταβμιγεκ οπισαξικ λμΰώεκ SWITCH. χ πςινεςε πολαϊαξα οςηαξιϊαγιρ γιλμα. πςοηςαννα γιλ- μιτσρ δο τεθ πος, πολα ξα τεςνιξαμε ξε βυδετ ξαβςαξα δοπυσ- τιναρ λοναξδα. πςινες. INTEGER*2 SPEC(39) REAL*8 EXT DATA EXT/12RDATDATDATDAT/ . . . 10 TYPE 99 99 FORMAT (' χχεστι στςολυ CSI βεϊ λμΰώεκ') IF(ICSI(SPEC,EXT,,,0).NE. 0) GOTO 10 - 293 - 8.5. ςαβοτα σ τακνεςον 8.5.1. ποδπςοηςαννα CVTTIM ποδπςοηςαννα CVTTIM πςεοβςαϊυετ χςενρ, ϊαπισαξξοε χ 2-σμοχξον χξυτςεξξεν ζοςνατε, χ ώασω, νιξυτω, σελυξδω ι δομι σελυξδω. οβςαύεξιε λ ποδπςοηςαννε: CALL CVTTIM (TIME,HRS,MIN,SEC,TICK) ηδε TIME - χςενρ, ϊαπισαξξοε χ 2-σμοχξον χξυτςεξξεν ζοςMατε, ποδμεφαύεε πςεοβςαϊοχαξιΰ; εσμι χςενρ θςαξιτσρ χ 2-όμενεξτξον νασσιχε τιπα INTEGER*2, το τοηδα πες- χωκ όμενεξτ - σταςϋαρ ώαστψ χςενεξι,χτοςοκ όμενεξτ - νμαδϋαρ ώαστψ χςενεξι; HRS - ώασω; γεμοε ώισμο; MIN - νιξυτω; γεμοε ώισμο; SEC - σελυξδω; γεμοε ώισμο; TICK - δομι σελυξδω (1/60 σελυξδω δμρ 60-ηεςγεχωθ μιξεκ- ξωθ ώασοχ; 1/50 σελυξδω δμρ 50-ηεςγεχωθ μιξεκξωθ ώασοχ). οϋιβλι οτσυτστχυΰτ. πςινες. INTEGER*4 ITIME . . . CALL GTIM(ITIME) !πομυώιτψ τελυύεε χςενρ συτολ CALL CVTTIM(ITIME,IHRS,IMIN,ISEC,ITCK) IF(IHRS.GE.12.AND.IHRS.LT.13) GOTO 100 !χςενρ οβεδα 8.5.2. ποδπςοηςαννα GTIM ποδπςοηςαννα GTIM δαετ πςοηςανναν δοστυπ λ τελυύενυ χςενεξι συτολ. ώισμοχοε ϊξαώεξιε, πςεδσταχμρΰύεε τελυύεε χςενρ, πονεύαετσρ χ δχα σμοχα ι δαετσρ χ χιδε δομεκ σελυξ- δω, πςοϋεδϋιθ ποσμε πομυξοώι. εσμι χ σιστενε οτσυτστχυΰτ μιξεκξωε ώασω, το χωδαετσρ χεμιώιξα, ςαχξαρ ξυμΰ. εσμι πςι ϊαηςυϊλε σιστενω ξε βωμα ποδαξα λοναξδα νοξιτοςα TIME, υλα- ϊωχαΰύαρ τελυύεε χςενρ, το χοϊχςAύαεναρ χεμιώιξα βυδετ ςαχ- - 294 - ξρτψσρ χςενεξι, πςοϋεδϋενυ σ νονεξτα ϊαηςυϊλι σιστενω, α ξε χςενεξι συτολ. οβςαύεξιε λ ποδπςοηςαννε: CALL GTIM (ITIME) ηδε ITIME - δχυσμοχξωκ νασσιχ δμρ πςιενα χςενεξι συτολ. σταςϋαρ ώαστψ ϊξαώεξιρ πονεύαετσρ χ πεςχοε σμοχο, νμαδϋαρ ώαστψ - χο χτοςοε σμοχο. ποδπςοηςαννα CVTTIM νοφετ ισπομψϊοχατψσρ δμρ τοηο, ώτοβω πςεοβςαϊοχατψ χςενρ, χωςα- φεξξοε χ 2-σμοχξον χξυτςεξξεν ζοςνατε, χ ώασω, νιξυτω, σελυξδω ι δομι σελυξδω. CVTTIM πςοχοδιτ πςεοβςαϊοχαξιρ, οσξοχωχαρσψ ξα σμοχε λοξζιηυςαγιι νοξιτοςα (δμρ 50- ι 60-ηεςγεχωθ μιξεκξωθ ώασοχ). πςι ςαβοτε FB- ι XM-νοξιτοςοχ χςενρ συτολ αχτονατιώεσλι σβςασωχαετσρ χ 00.00 ποσμε 24:00 πςι χωπομξεξιι GTIM; ποδ υπςαχμεξιεν SJ-νοξιτοςα ότι δεκστ- χιρ ξε χωπομξρΰτσρ. οϋιβλι οτσυτστχυΰτ. πςινες. INTEGER*4 JTIME . . . CALL GTIM(JTIME) 8.5.3. ζυξλγιρ ICMKT ζυξλγιρ ICMKT οτνεξρετ οδιξ ιμι ξεσλομψλο ϊαπμαξιςο- χαξξωθ χωϊοχοχ ποδπςοηςανν ϊαχεςϋεξιρ, χωπομξεξξωθ ποδπςοη- ςαννανι ISCHED, ITIMER ιμι MRKT. ζυξλγιρ ποδδεςφιχαετσρ SJ-νοξιτοςον, εσμι χ SJ-νοξιτος πςι ηεξεςαγιι χλμΰώεξα χοϊ- νοφξοστψ ςαβοτω σ ώασανι. οβςαύεξιε λ ζυξλγιι: I=ICMKT (ID,TIME) ηδε ID - γεμοε χωςαφεξιε, ιδεξτιζιλατος οτνεξρενοηο ϊαπςο- σα; εσμι οξο ςαχξο 0, το οτνεξρΰτσρ χσε ϊαπμαξιςο- χαξξωε ϊαπςοσω; TIME - ινρ δχυσμοχξοκ ϊοξω, χ λοτοςυΰ νοξιτος πονεύαετ λομιώεστχο χςενεξι, οσταχϋεεσρ δο νονεξτα χωϊοχα ποδπςοηςαννω ϊαχεςϋεξιρ, υλαϊαξξοηο χ οτνεξρενον ϊαπςοσε. βομεε ποδςοβξο οτνεξα ϊαπμαξιςοχαξξωθ ϊαπςοσοχ οπισαξα χ σιστενξοκ ναλςολοναξδε .CMKT. - 295 - ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ιδεξτιζιλατος (γεμοε) ξε βωμ ςαχεξ 0 ι υλαϊαξξωκ ϊαπςοσ ξε βωμ ξακδεξ. πςινες. INTEGER*4 J . . . CALL ICMKT(0,J) !οτνεξιτψ χσε ϊαπμαξιςοχαξξωε C ϊαπςοσω 8.5.4. ζυξλγιρ ISCHED ζυξλγιρ ISCHED πμαξιςυετ χωπομξεξιε υλαϊαξξοκ ποδπςοη- ςαννω ξα ρϊωλε ζοςτςαξ χ λαώεστχε ασιξθςοξξοκ ποδπςοηςαννω ϊαχεςϋεξιρ χ ϊαδαξξοε χςενρ συτολ. χωπομξεξιε ότοηο ϊαπςοσα χ SJ-νοξιτοςε τςεβυετ ποδδεςφλι τακνεςα. οβςαύεξιε λ ζυξλγιι: I=ISCHED (HRS,MIN,SEC,TICK,AREA,ID,CRTN) ηδε HRS - ώασω; γεμοε ώισμο; MIN - νιξυτω; γεμοε ώισμο; SEC - σελυξδω; γεμοε ώισμο; TICK - δομι σελυξδω (1/60 σελυξδω δμρ 60-ηεςγεχωθ μιξεκ- ξωθ ώασοχ; 1/50 σελυξδω δμρ 50-ηεςγεχωθ μιξεκξωθ ώασοχ); AREA - 4-σμοχξωκ νασσιχ, δμρ θςαξεξιρ ιξζοςναγιι σχρϊι; ότα ϊοξα ξε δομφξα νοδιζιγιςοχατψσρ πςοηςαννοκ ι πεςελςωχατψσρ USR πςι σχοπιξηε; οξα νοφετ βωτψ ισπομψϊοχαξα δςυηινι ποδπςοηςαννανι ϊαχεςϋεξιρ ξα ρϊωλε ζοςτςαξ τομψλο ποσμε αλτιχιϊαγιι υλαϊαξξοκ ότιν ϊαπςοσον ποδπςοηςαννω ϊαχεςϋεξιρ; ID - ιδεξτιζιλατος (γεμοε) ϊαπςοσα; ότο ϊξαώεξιε βυδετ πεςεδαξο ποδπςοηςανννε, χωπομξεξιε λοτοςοκ πμαξι- ςυετσρ, λαλ παςανετς χωϊοχα; CRTN - ινρ ποδπςοηςαννω ξα ρϊωλε ζοςτςαξ, λοτοςαρ δομφξα βωτψ ϊαπυύεξα χ υλαϊαξξοε χςενρ συτολ; ότο ινρ δομφξο βωτψ υλαϊαξο χ οπεςατοςε EXTERNAL πςοηςαν- νω, χωϊωχαΰύεκ ISCHED; ποδπςοηςαννα ϊαχεςϋεξιρ ινεετ οδιξ παςανετς, ξαπςινες: SUBROUTINE ASUB (ID) INTEGER ID - 296 - εσμι ποδπςοηςαννα ϊαπυύεξα, το ϊξαώεξιε γεμοηο παςα- νετςα βυδετ ςαχξο χεμιώιξε, υλαϊαξξοκ δμρ παςανετςα ID σοοτχετστχυΰύεηο χωϊοχα ISCHED. πςινεώαξιρ: 1. πμαξιςυενωκ πςι πονούι ISCHED χωϊοχ ποδπςοηςαννω ϊαχεςϋεξιρ νοφετ ποϊφε οτνεξρτψσρ ζυξλγιεκ ICMKT. 2. εσμι σιστενα ϊαξρτα, το χςενρ συτολ, λοηδα βυδετ χωϊχαξα ποδπςοηςαννα ϊαχεςϋεξιρ, νοφετ ολαϊατψσρ ποϊφε τςε- βυενοηο. 3. ποδπςοηςαννα ϊαχεςϋεξιρ ξα ρϊωλε ζοςτςαξ νοφετ πμα- ξιςοχατψ χωϊοχω σανοκ σεβρ, ισπομψϊυρ ISCHED ι/ιμι ITIMER. 4. ζυξλγιρ ISCHED τςεβυετ όμενεξτ οώεςεδι, ότο δομφξο υώιτωχατψσρ πςι χωπομξεξιι ζυξλγιι IQSET. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξετ σχοβοδξοηο όμενεξτα οώεςεδι, πμαξιςοχατψ ϊαπςοσ ξεμψϊρ. πςινες. INTEGER*2 LINK(4) !ϊοξα σχρϊι EXTERNAL NOON !ινρ χωπομξρενοκ ποδπςοηςαννω . . . I=ISCHED(12,0,0,0,LINK,0,NOON) !χωπομξιτψ ποδπςοη- C ςαννυ NOON χ C 12 ώασοχ . . . END SUBROUTINE NOON(ID) C C χωπομξεξιε πςοηςαννω πςελςατιτσρ ξασιμψξο, εσμι C λ ότονυ χςενεξι ξε βυδετ ϊαχεςϋεξο ϊαδαξιε C STOP 'χωξυφδεξξοε πςεςωχαξιε - 12 ώασοχ' END 8.5.5. ζυξλγιρ ISLEEP ζυξλγιρ ISLEEP πςιοσταξαχμιχαετ χωπομξεξιε οσξοχξοκ πςοηςαννω ϊαδαξιρ ξα ϊαδαξξοε χςενρ, τ.ε. ξα συννυ ώασοχ, νιξυτ, σελυξδ ι δομεκ σελυξδω, υλαϊαξξυΰ χ χωϊοχε ISLEEP. πςι ότον χσε ϊαπμαξιςοχαξξωε ποδπςοηςαννω ϊαχεςϋεξιρ πςο- δομφαΰτ χωϊωχατψσρ. χωπομξεξιε ότοηο ϊαπςοσα χ SJ-νοξιτοςε τςεβυετ ποδδεςφλι τακνεςα νοξιτοςον. οβςαύεξιε λ ζυξλγιι: I=ISLEEP (HRS,MIN,SEC,TICK) ηδε - 297 - HRS - ώασω; γεμοε ώισμο; MIN - νιξυτω; γεμοε ώισμο; SEC - σελυξδω; γεμοε ώισμο; TICK - δομι σελυξδω (1/60 σελυξδω δμρ 60-ηεςγεχωθ μιξεκ- ξωθ ώασοχ; 1/50 σελυξδω δμρ 50-ηεςγεχωθ μιξεκξωθ ώασοχ). πςινεώαξιρ: 1. ζυξλγιρ ISLEEP τςεβυετ όμενεξτ οώεςεδι, ώτο ξεοβθο- δινο υώιτωχατψ πςι χωπομξεξιι ζυξλγιι IQSET. 2. εσμι σιστενα ϊαξρτα, το δεκστχιτεμψξοε χςενρ οστα- ξοχα οσξοχξοκ πςοηςαννω νοφετ βωτψ βομψϋε, ώεν ϊαδαξο. ςεϊυμψτατω ζυξλγιι: I=0 - ξοςναμψξωκ χωθοδ; I=1 - ξετ σχοβοδξοηο όμενεξτα οώεςεδι. πςινες. CALL IQSET (2) . . . CALL ISLEEP (0,0,0,4) 8.5.6. ζυξλγιρ ITIMER ζυξλγιρ ITIMER πμαξιςυετ χωπομξεξιε ϊαδαξξοκ ποδπςοη- ςαννω ξα ρϊωλε ζοςτςαξ χ λαώεστχε ασιξθςοξξοκ ποδπςοηςαννω ϊαχεςϋεξιρ πο ιστεώεξιι ϊαδαξξοηο ιξτεςχαμα χςενεξι. ότα ποδπςοηςαννα ποδδεςφιχαετσρ SJ-νοξιτοςον, εσμι οβεσπεώεξιε τακνεςα χλμΰώεξο χ νοξιτος πςι ηεξεςαγιι σιστενω. οβςαύεξιε λ ζυξλγιι: I=ITIMER (HRS,MIN,SEC,TICK,AREA,ID,CRTN) ηδε HRS - ώασω; γεμοε ώισμο; MIN - νιξυτω; γεμοε ώισμο; SEC - σελυξδω; γεμοε ώισμο; TICK - δομι σελυξδω (1/60 σελυξδω δμρ 60-ηεςγεχωθ μιξεκ- ξωθ ώασοχ; 1/50 σελυξδω δμρ 50-ηεςγεχωθ μιξεκξωθ ώασοχ); AREA - 4-σμοχξωκ νασσιχ δμρ ιξζοςναγιι σχρϊι; ότοτ νασσιχ ξε δομφεξ νοδιζιγιςοχατψσρ πςοηςαννοκ ι πεςελςω- χατψσρ πςι σχοπιξηε USR; δαξξωκ νασσιχ νοφετ - 298 - ισπομψϊοχατψσρ δςυηινι ζυξλγιρνι ϊαχεςϋεξιρ τομψλο ποσμε αλτιχιϊαγιι υλαϊαξξοκ ποδπςοηςαννω; ID - ιδεξτιζιλατος (γεμοε) ϊαπςοσα; πεςεδαετσρ ϊαπμαξι- ςοχαξξοκ ποδπςοηςαννε, λαλ παςανετς χωϊοχα; ιδεξ- τιζιλατος ϊαπςοσα; CRTN - ινρ ποδπςοηςαννω ξα ρϊωλε ζοςτςαξ λοτοςαρ χωϊω- χαετσρ πο ιστεώεξιι ϊαδαξξοηο ιξτεςχαμα χςενεξι; ότο ινρ δομφξο υλαϊωχατψσρ χ οπεςατοςε EXTERNAL πςοηςαννω, οβςαύαΰύεκσρ λ ITIMER; ποδπςοηςαννα ϊαχεςϋεξιρ ξα ρϊωλε ζοςτςαξ ινεετ οδιξ παςανετς, ξαπςινες: SUBROUTINE PROGR (ID) INTEGER ID ποσμε χωϊοχα ποδπςοηςαννω ϊαχεςϋεξιρ ϊξαώεξιε γεμοηο παςανετςα βυδετ ςαχξο ϊξαώεξιΰ, υλαϊαξξονυ δμρ παςανετςα ID σοοτχετστχυΰύεηο χωϊοχα ITIMER. πςινεώαξιρ: 1. ϊαπμαξιςοχαξξωκ πςι πονούι ITIMER χωϊοχ ποδπςοηςαν- νω ϊαχεςϋεξιρ νοφετ βωτψ οτνεξεξ χωϊοχον ζυξλγιι ICMKT. 2. εσμι σιστενα ϊαξρτα, το δεκστχιτεμψξωκ ιξτεςχαμ χςενεξι, πο ιστεώεξιι λοτοςοηο χωϊωχαετσρ ποδπςοηςαννα ϊαχεςϋεξιρ νοφετ βωτψ βομψϋε τςεβυενοηο. 3. ποδπςοηςαννω ξα ρϊωλε ζοςτςαξ νοηυτ πμαξιςοχατψ χωϊοχω σανιθ σεβρ, ισπομψϊυρ ISCHED ιμι ITIMER. 4. ζυξλγιρ ITIMER τςεβυετ όμενεξτ οώεςεδι, ότο δομφξο υώιτωχατψσρ πςι χωπομξεξιι ζυξλγιι IQSET. δοπομξιτεμψξαρ ιξζοςναγιρ νοφετ βωτψ πομυώεξα ιϊ οπι- σαξιρ ναλςολοναξδω .MRKT (σν. π. 7.5.4). ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξετ σχοβοδξοηο όμενεξτα οώεςεδι, πμαξιςοχατψ ϊαπςοσ ξεμψϊρ. - 299 - πςινες. INTEGER*2 AREA(4) EXTERNAL WATCHD C C εσμι πςοηςαννα C ξε χωϊοχετ ζυξλγιΰ ICMKT ώεςεϊ 12 νιξυτ C ποσμε χωϊοχα ζυξλγιι ITIMER, το βυδετ C χωϊχαξα ποδπςοηςαννα ϊαχεςϋεξιρ WATCHD σ παςανετςον C ID, ςαχξων 3 C CALL ITIMER(0,12,0,0,αRεα,3,WATCHD) . . . CALL ICMKT(3,AREA) . . . END SUBROUTINE WATCHD(ID) C C ότα ποδπςοηςαννα χωϊωχαετσρ ώεςεϊ 12 νιξυτ C . . . RETURN END 8.5.7. ζυξλγιρ ITWAIT (FB, XM) ζυξλγιρ ITWAIT πςιοσταξαχμιχαετ χωπομξεξιε οσξοχξοκ πςοηςαννω ϊαδαξιρ ξα ϊαδαξξωκ ιξτεςχαμ χςενεξι. χσε πςοη- ςαννω ϊαχεςϋεξιρ πςοδομφαΰτ χωϊωχατψσρ. οβςαύεξιε λ ζυξλγιι: I=ITWAIT (ITIME) ηδε ITIME - ιξτεςχαμ χςενεξι, πςεδσταχμεξξωκ ώισμον χ 2-σμοχξον χξυτςεξξεν ζοςνατε: πεςχοε σμοχο - στας- ϋαρ ώαστψ ϊξαώεξιρ χςενεξι, χτοςοε σμοχο - νμαδϋαρ ώαστψ ϊξαώεξιρ χςενεξι. πςινεώαξιρ: 1. ζυξλγιρ ITWAIT τςεβυετ όμενεξτ οώεςεδι, ότο δομφξο υώιτωχατψσρ πςι χωπομξεξιι ζυξλγιι IQSET. 2. εσμι σιστενα ϊαξρτα, το δεκστχιτεμψξωκ ιξτεςχαμ χςενεξι, ξα λοτοςωκ ϊαδεςφιχαετσρ χωπομξεξιε, νοφετ βωτψ βομψϋε ϊαδαξξοηο. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξετ σχοβοδξοηο όμενεξτα οώεςεδι. - 300 - πςινες. INTEGER*2 TIME(2) . . . CALL ITWAIT(TIME) ! φδατψ χ τεώεξιε ϊαδαξξοηο C χςενεξι TIME 8.5.8. ζυξλγιρ IUNTIL (FB, XM) ζυξλγιρ IUNTIL πςιοσταξαχμιχαετ χωπομξεξιε οσξοχξοκ πςοηςαννω ϊαδαξιρ δο ϊαδαξξοηο χςενεξι συτολ. χσε ποδπςοη- ςαννω ϊαχεςϋεξιρ πςοδομφαΰτ χωϊωχατψσρ. οβςαύεξιε λ ζυξλγιι: I=IUNTIL (HRS,MIN,SEC,TICK) ηδε σελυξδω; γεμοε ώισμο; TICK - δομι σελυξδω (1/60 σελυξδω δμρ 60-ηεςγεχωθ μιξεκ- ξωθ ώασοχ; 1/50 σελυξδω δμρ 50-ηεςγεχωθ μιξεκξωθ ώασοχ). πςινεώαξιρ: 1. ζυξλγιρ IUNTIL τςεβυετ όμενεξτ οώεςεδι, ότο δομφξο υώιτωχατψσρ πςι χωπομξεξιι ζυξλγιι IQSET. 2. εσμι σιστενα ϊαξρτα, το δεκστχιτεμψξοε χςενρ συτολ, λοηδα χοϊοβξοχιτσρ χωπομξεξιε πςοηςαννω, νοφετ βωτψ ποϊφε τςεβυενοηο. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξετ σχοβοδξοηο όμενεξτα οώεςεδι. πςινες. C σδεματψ πεςεςωχ CALL IUNTIL(13,0,0,0) !χοϊοβξοχιτψ ςαβοτυ χ ώασ δξ - 301 - 8.5.9. ποδπςοηςαννα JTIME ποδπςοηςαννα JTIME πςεοβςαϊυετ υλαϊαξξοε χςενρ χο χςε- νρ, ϊαπισαξξοε χο χξυτςεξξεν ζοςνατε. οβςαύεξιε λ ποδπςοηςαννε: CALL JTIME (HRS,MIN,SEC,TICK,TIME) ηδε HRS - ώασω; γεμοε ώισμο; MIN - νιξυτω; γεμοε ώισμο; SEC - σελυξδω; γεμοε ώισμο; TICK - δομι σελυξδω (1/60 σελυξδω δμρ 60-ηεςγεχωθ μιξεκ- ξωθ ώασοχ; 1/50 σελυξδω δμρ 50-ηεςγεχωθ μιξεκξωθ ώασοχ); TIME - 2-σμοχξωκ νασσιχ, πςεδξαϊξαώεξξωκ δμρ ϊαπισι χςε- νεξι χο χξυτςεξξεν ζοςνατε: πεςχοε σμοχο - σταςϋαρ ώαστψ ϊαπισι ο χςενεξι, χτοςοε σμοχο - νμαδϋαρ ώαστψ. οϋιβλι οτσυτστχυΰτ. πςινες. INTEGER*4 J1 C C πςεοβςαϊοχατψ 3 ώασα, 7 νιξ, 23 σελυξδω χ C γεμυΰ χεμιώιξυ τιπα INTEGER*4 C CALL JTIME(3,7,23,0,J1) CALL JJCVT(J1) 8.5.10. ζυξλγιρ MRKT ζυξλγιρ MRKT πςοιϊχοδιτ πμαξιςοχαξιε χωϊοχα ποδπςοη- ςαννω ϊαχεςϋεξιρ, ξαπισαξξοκ ξα ρϊωλε ναλςοασσενβμεςα, πο ιστεώεξιι ϊαδαξξοηο ιξτεςχαμα. χωπομξεξιε ότοκ ζυξλγιι χ SJ-νοξιτοςε τςεβυετ σςεδστχ ποδδεςφλι τακνεςα. οβςαύεξιε λ ζυξλγιι: I=MRKT (ID,CRTN,TIME) ηδε ID - ιδεξτιζιλατος (γεμοε ώισμο), λοτοςωκ βυδετ πεςεδαξ πμαξιςυενοκ ποδπςοηςαννε ϊαχεςϋεξιρ; - 302 - CRTN - ινρ ναλςοασσενβμεςξοκ ποδπςοηςαννω ϊαχεςϋεξιρ, λοτοςαρ χωϊωχαετσρ πο ιστεώεξιι ϊαδαξξοηο χςενεξ- ξοηο ιξτεςχαμα; ότο ινρ δομφξο υλαϊωχατψσρ οπεςα- τοςον EXTERNAL χ πςοηςαννε ξα ρϊωλε ζοςτςαξ, χωϊω- χαΰύεκ MRKT; TIME - ιξτεςχαμ χςενεξι, χωςαφεξξωκ χ 2-σμοχξον χξυτςεξ- ξεν ζοςνατε; πο ιστεώεξιι ότοηο ιξτεςχαμα χωϊοχετ- σρ ποδπςοηςαννα ϊαχεςϋεξιρ; εσμι χςενρ ϊαπισαξο χ 2-όμενεξτξωκ νασσιχ τιπα INTEGER*2, το πεςχωκ όμε- νεξτ - σταςϋαρ ώαστψ ϊξαώεξιρ χςενεξι, χτοςοκ όμε- νεξτ - νμαδϋαρ ώαστψ ϊξαώεξιρ χςενεξι. πςινεώαξιρ: 1. ζυξλγιρ MRKT τςεβυετ όμενεξτ οώεςεδι, ότο ξεοβθοδι- νο υώιτωχατψ πςι χωπομξεξιι ζυξλγιι IQSET. 2. εσμι σιστενα ϊαξρτα, το χςενεξξοκ ιξτεςχαμ, λοτοςωκ πςοθοδιτ δο ξαώαμα χωπομξεξιρ ποδπςοηςαννω ϊαχεςϋεξιρ, νοφετ βωτψ βομψϋε τςεβυενοηο. βομεε ποδςοβξο πμαξιςοχαξιε ποδπςοηςανν ϊαχεςϋεξιρ οπισαξο χ σιστενξοκ ναλςολοναξδε .MRKT. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξετ σχοβοδξοηο όμενεξτα οώεςεδι, ξεχοϊνοφξο ϊαπμαξιςοχατψ χωπομξεξιε ϊαπςοσα. πςινες. INTEGER*2 TINT(2) EXTERNAL ARTN . . . CALL MRKT(4,ARTN,TINT) 8.5.11. ζυξλγιρ SECNDS ζυξλγιρ SECNDS οπςεδεμρετ τελυύεε σιστενξοε χςενρ χ σελυξδαθ, ι χωώιταετ ιϊ ξεηο ώισμο, ϊαδαξξοε αςηυνεξτον χωϊοχα. ζυξλγιρ SECNDS νοφετ ισπομψϊοχατψσρ δμρ ποδσώετα ιστελϋεηο χςενεξι. παςανετς ζυξλγιι δομφεξ βωτψ τιπα REAL*4. οβςαύεξιε λ ζυξλγιι: A=SECNDS (ATIME) ηδε ATIME - πεςενεξξαρ τιπα REAL*4 (λοξσταξτα ιμι χωςαφεξιε), ϊξαώεξιε λοτοςοκ χωώιταετσρ ιϊ τελυύεηο χςενεξι συτολ. - 303 - πςινεώαξιε. ότα ζυξλγιρ χωπομξρετ αςιζνετιώεσλιε οπε- ςαγιι σ πμαχαΰύεκ ϊαπρτοκ. τελυύεε χςενρ ταλφε νοφξο χωώισ- μιτψ, ισπομψϊυρ χωϊοχ GTIM ι ζυξλγιι οβςαβοτλι χεμιώιξ τιπα INTEGER*4. ςεϊυμψτατω ζυξλγιι: α=NNNNNN - χεμιώιξα τιπα REAL*4. πςινες. T1=SECNDS(0.) C C σΰδα πονεστιτψ πςοηςαννυ, δμρ λοτοςοκ ξεοβθοδινο C χωώισμιτψ χςενρ ςαβοτω C DELTA=SECNDS(T1) !DELTA = ιστελϋεε χςενρ χ σελυξδαθ 8.5.12. ποδπςοηςαννα TIMASC ποδπςοηςαννα TIMASC πςεοβςαϊυετ χςενρ, χωςαφεξξοε χ 2-σμοχξον χξυτςεξξεν ζοςνατε ι πςεδσταχμρετ εηο χ νασσιχε ιϊ 8-νι ϊξαλοχ λοδα λοι-7 χ σμεδυΰύεκ ζοςνε: ώώ:νν:σσ ηδε ώώ - δχυϊξαώξοε πςεδσταχμεξιε ώασοχ; νν - δχυϊξαώξοε πςεδσταχμεξιε νιξυτ; σσ - δχυϊξαώξοε πςεδσταχμεξιε σελυξδ. οβςαύεξιε λ ποδπςοηςαννε: CALL TIMASC (ITIME,STRING) ηδε ITIME - χςενρ, χωςαφεξξοε χ 2-σμοχξον χξυτςεξξεν ζοςνατε, λοτοςοε ξεοβθοδινο πςεοβςαϊοχατψ; πεςχοε σμοχο παςανετςα "ITIME" πςεδσταχμρετ σταςϋυΰ ώαστψ χςε- νεξι, χτοςοε σμοχο - νμαδϋυΰ ώαστψ; STRING - 8-όμενεξτξωκ νασσιχ, πςιξιναΰύικ ϊαπισψ χ λοι-7. οϋιβλι οτσυτστχυΰτ. χ πςινεςε οπςεδεμρετσρ λομιώεστχο χςενεξι δο 17.00 ι ςασπεώατωχαετσρ ςεϊυμψτατ. πςινες. INTEGER*4 J1,J2,J3 LOGICAL*1 STRNG(8) . . . CALL JTIME(17,0,0,0,J1) - 304 - CALL GTIM(J2) CALL JJCVT(J1) CALL JJCVT(J2) CALL JSUB(J1,J2,J3) CALL JJCVT(J3) CALL TIMASC(J3,STRNG) TYPE 99,STRNG 99 FORMAT(' χςενρ ',8A1,' δο 17.00 ') 8.5.13. ποδπςοηςαννα TIME ποδπςοηςαννα TIME πςεδσταχμρετ τελυύεε σιστενξοε χςενρ συτολ χ χιδε 8-σινχομψξοκ στςολι ϊξαλοχ λοι-7 χ ζοςνε: ώώ:νν:σσ ηδε ώώ - 2-ϊξαώξοε πςεδσταχμεξιε ώασοχ; νν - 2-ϊξαώξοε πςεδσταχμεξιε νιξυτ; σσ - 2-ϊξαώξοε πςεδσταχμεξιε σελυξδ. οβςαύεξιε λ ποδπςοηςαννε: CALL TIME (STRING) ηδε STRING - 8-όμενεξτξωκ νασσιχ, πςιξιναΰύικ ϊαπισψ χ λοι-7. πςινεώαξιε. ισπομψϊυΰτσρ 24-ώασοχωε ώασω. ξαπςινες, ώασ δξρ πςεδσταχμρετσρ λαλ 13:00:00. οϋιβλι οτσυτστχυΰτ. πςινες. LOGICAL*1 STRNG(8) . . . CALL TIME(STRNG) TYPE 99,(STRNG(I),I=1,8) 99 FORMAT(' χςενρ: ',8A1) 8.6. ζυξλγιι οβύεηο ξαϊξαώεξιρ - 305 - 8.6.1. ποδπςοηςαννα CHAIN ποδπςοηςαννα CHAIN ποϊχομρετ ζοξοχοκ πςοηςαννε (μιβο πςοηςαννε χ SJ/TS-νοξιτοςε) χωϊχατψ δςυηυΰ ζοξοχυΰ πςοηςαν- νυ, πεςεδαχαρ εκ πςι ότον υλαϊαξξυΰ ιξζοςναγιΰ. ποδπςοηςαν- να CHAIN ξε νοφετ βωτψ χωϊχαξα ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ ιμι οβςαβοτλι πςεςωχαξιρ. οβμαστψ δαξξωθ ισπομξρΰύεκ σιστε- νω ζοςτςαξα ξε σοθςαξρετσρ πςι ταλοκ πεςεδαώε υπςαχμεξιρ. ότα ιξζοςναγιρ δομφξα βωτψ σζοςνιςοχαξα χωϊχαξξοκ πςοηςαν- νοκ. ποδπςοηςαννα CHAIN ξε ϊαλςωχαετ λαλιε-μιβο μοηιώεσλιε υστςοκστχα ισπομξρΰύεκ σιστενω ζοςτςαξ. πςι ισπομψϊοχαξιι ποδπςοηςαννω CHAIN πομψϊοχατεμψ δομφεξ πςεδχαςιτεμψξο ϊαλ- ςωτψ μοηιώεσλιε υστςοκστχα χωϊOχανι ποδπςοηςαννω CLOSE. ποδπςοηςαννα, υλαϊαξξαρ χ οβςαύεξιι λ βιβμιοτεώξοκ πςοηςαν- νανε ζοςτςαξα USEREX, ξε βυδετ χωπομξεξα, εσμι χωπομξρετσρ ποδπςοηςαννα CHAIN. οβςαύεξιε λ ποδπςοηςαννε: CALL CHAIN (DBLK,VAR,WCNT) ηδε DBLK - 4-σμοχξαρ σπεγιζιλαγιρ ζακμα χωϊωχαενοκ πςοηςαννω χ RADIX-50; VAR - πεςχαρ πεςενεξξαρ ποσμεδοχατεμψξοστι πεςενεξξωθ σ ποσμεδοχατεμψξο υχεμιώιχαΰύινισρ αδςεσανι οπεςα- τιχξοκ πανρτι, λοτοςωε δομφξω πεςεδαχατψσρ χ χωϊω- χαενυΰ πςοηςαννυ χ σπεγιαμψξοκ οβμαστι οπεςατιχξοκ πανρτι (αβσομΰτξωε ρώεκλι 510 - 777); οπισωχαεναρ ποσμεδοχατεμψξοστψ πεςενεξξωθ νοφετ βωτψ πςεδσταχ- μεξα οδξονεςξων νασσιχον ιμι βμολον COMMON (ιμι ώαστψΰ βμολα COMMON) ι δομφξα ξαώιξατψσρ πο ώετξο- νυ αδςεσυ (ξα ηςαξιγε σμοχα). WCNT - σώετώιλ σμοχ (ξε βομεε 60), υλαϊωχαΰύικ ώισμο σμοχ (ξαώιξαρ σ πεςχοκ πεςενεξξοκ), λοτοςοε δομφξο βωτψ πεςεδαξο χωϊωχαενοκ πςοηςαννε; εσμι ιξζοςναγιρ ξε πεςεδαετσρ, το παςανετς δομφεξ βωτψ ςαχεξ ξυμΰ. εσμι ςαϊνες οβμαστι οπεςατιχξοκ πανρτι, ώεςεϊ λοτοςυΰ ποδπςοηςαννα CHAIN πεςεδαετ ιξζοςναγιΰ χ χωϊωχαενυΰ πςοη- ςαννυ, ξεδοστατοώεξ, οξ νοφετ βωτψ υχεμιώεξ υλαϊαξιεν λμΰώα /B χ λοναξδε CSI σιστενξοκ πςοηςαννε LINK ιμι /BOTTOM χ λοναξδε νοξιτοςα LINK λαλ δμρ πςοηςαννω, χωπομξρΰύεκ χωϊοχ CHAIN, ταλ ι δμρ πςοηςαννω, πςιξιναΰύεκ υπςαχμεξιε. οβςαύεξιε λ πεςεδαξξων δαξξων νοφετ βωτψ οσυύεστχμεξο χωϊοχον ποδπςοηςαννω RCHAIN. βομεε πομξαρ ιξζοςναγιρ πςεδσταχμεξα χ οπισαξιι ναλςο- λοναξδω .CHAIN (σν. π. 7.6.1). οϋιβλι οτσυτστχυΰτ. - 306 - χ πςινεςε πολαϊωχαετ πεςεδαώυ υπςαχμεξιρ πςοηςαννε PROG.SAV, ξαθοδρύεκσρ ξα υστςοκστχε RK1, σ πεςεδαώεκ πςι ότον ϊξαώεξικ πεςενεξξωθ. πςινες. REAL*4 PROGNM(2) !οπισατεμψ χ RADIX-50 C ινεξι πςοηςαννω COMMON /BLK1/ A,B,C,D !πεςεδαχαενωε δαξξωε DATA PROGNM/6RRK1PRO,6RG SAV/ . . . CALL CHAIN(PROGNM,A,8) !ϊαηςυϊιτψ RK1:PROG.SAV C ι πεςεδατψ εκ υπςαχμεξιε 8.6.2. ποδπςοηςαννα DEVICE (FB, XM) ποδπςοηςαννα DEVICE ποϊχομρετ πομψϊοχατεμΰ υσταξαχμι- χατψ σπισολ αδςεσοχ, λοτοςωε δομφξω βωτψ ϊαηςυφεξω υλαϊαξ- ξωνι χεμιώιξανι πο ϊαχεςϋεξιι πςοηςαννω. εσμι ϊαδαξιε ϊαχεςϋιμοσψ ιμι οξο πςελςαύεξο λοναξδοκ , χχεδεξξοκ σ τεςνιξαμα, το σπισολ οβςαβατωχαετσρ οπεςαγιοξξοκ σιστενοκ ι χ υλαϊαξξωε χ ξεν ρώεκλι ϊαπισωχαΰτσρ σοοτχετστχυΰύιε ϊξαώεξιρ. ότα ποδπςοηςαννα πςεδξαϊξαώεξα δμρ οβεσπεώεξιρ χοϊνοφ- ξοστι πςοηςανναν πομψϊοχατεμρ ϊαηςυφατψ ςεηιστςω υστςοκστχ ξεοβθοδινωνι χεμιώιξανι. χ ώαστξοστι, οξα ισπομψϊυετσρ δμρ σβςοσα βιτα, ςαϊςεϋαΰύεηο πςεςωχαξιε οτ υστςοκστχα ποσμε πςελςαύεξιρ ςαβοτω πςοηςαννω, οβσμυφιχαΰύεκ υστςοκστχο. χ λαφδωκ νονεξτ χςενεξι νοφετ ισπομψϊοχατψσρ τομψλο οδιξ σπισολ αδςεσοχ σμεδοχατεμψξο, εσμι ϊαδαετσρ ξεσλομψλο χωϊοχοχ ποδπςοηςαννω DEVICE, το οβςαβοτλα χωπομξρετσρ τομψ- λο δμρ σπισλα, ϊαδαξξοηο πςι ποσμεδξεν χωϊοχε. ποσμε χωπομ- ξεξιρ ποδπςοηςαννω DEVICE σπισολ ξε δομφεξ νοδιζιγιςοχατψ- σρ. σπισολ ξε δομφεξ πονεύατψσρ χ οβμαστψ πεςελςωτικ ιμι χ οβμαστψ σχοπιξηα USR. χτοςοκ αςηυνεξτ χωϊοχα (LINK) οβεσπεώιχαετ ποδδεςφλυ σχρϊαξξοηο σπισλα ταβμιγ. αςηυνεξτ LINK ρχμρετσρ ξε οβρϊα- τεμψξων. εσμι οξ υλαϊαξ, το πεςχοε σμοχο σπισλα βυδετ οβςα- βατωχατψσρ λαλ σμοχο σχρϊι. οβςαύεξιε λ ποδπςοηςαννε: CALL DEVICE (ILIST[,LINK]) ηδε ILIST - νασσιχ γεμοηο τιπα, ιϊ δχυθσμοχξωθ όμενεξτοχ, σοδεςφαύιθ ιξζοςναγιΰ "αδςεσ/χεμιώιξα" (τ.ε. οδξο σμοχο - αδςεσ ι οδξο σμοχο - ϊξαώεξιε, λοτοςοε δομφξο βωτψ ϊαπισαξο πο ότονυ αδςεσυ), ι ϊαλαξώι- χαΰύυΰσρ ξυμεχων σμοχον; πο ολοξώαξιι χωπομξεξιρ πςοηςαννω λαφδαρ ϊαδαξξαρ χεμιώιξα πονεύαετσρ χ - 307 - σοοτχετστχυΰύικ αδςεσ; LINK - ξεοβρϊατεμψξωκ παςανετς, πςιξιναΰύικ μΰβοε ϊξαώε- ξιε; υλαϊωχαετ, ώτο ισπομψϊυετσρ σχρϊαξξωκ σπισολ ταβμιγ; εσμι ισπομψϊυετσρ ζοςνατ σχρϊαξξοηο σπισ- λα, τO πεςχοε σμοχο νασσιχα ρχμρετσρ υλαϊατεμεν σχρϊαξξοηο σπισλα. δοπομξιτεμψξαρ ιξζοςναγιρ πο ϊαηςυϊλε ϊξαώεξικ χ ςεηιστςω υστςοκστχ δαξα χ οπισαξιι ναλςολοναξδω .DEVICE (σν. π. 7.6.7). οϋιβλι οτσυτστχυΰτ. πςινες. INTEGER*2 IUSO(3) !νασσιχ οπισαξιρ υστςοκστχα DATA IUSO(1)/"167770/ !αδςεσ ςεηιστςα υστςοκστχα DATA IUSO(2)/0/ !ϊαηςυφαενοε ϊξαώεξιε DATA IUSO(3)/0/ !λοξεγ σπισλα CALL DEVICE (IUSO) 8.6.3. ποδπςοηςαννω GTJB/IGTJB ποδπςοηςαννα GTJB πεςεδαετ πςοηςαννε πομψϊοχατεμρ ξελοτοςυΰ σιστενξυΰ ιξζοςναγιΰ ο ϊαδαξιι. οβςαύεξιε λ ποδπςοηςαννε GTJB: CALL GTJB (ADDR[,JOBBLK[,I]]) ιμι I = GTJB (ADDR[,JOBBLK]) οβςαύεξιε λ ποδπςοηςαννε IGTJB: CALL IGTJB (ADDR[,JOBBLK[,I]]) ιμι I = IGTJB (ADDR[,JOBBLK]) ηδε ADDR - νασσιχ ιϊ 8 ιμι 12 σμοχ, πςεδξαϊξαώεξξωκ δμρ πςιε- να παςανετςοχ ϊαδαξιρ; JOBBLK - υλαϊατεμψ ξα τςεθσμοχξοε ινρ ϊαδαξιρ χ λοι-7, ο λοτοςον δομφξω βωτψ πομυώεξω δαξξωε; εσμι τςεβυετ- σρ τομψλο χοσψνισμοχξωκ βμολ ιξζοςναγιι, ότοτ αςηυνεξτ ξε δομφεξ υλαϊωχατψσρ; I - σοδεςφιτ λοδ οϋιβλι, εσμι υλαϊαξξοε ϊαδαξιε ξε χωπομξρετσρ χ σιστενε. ADDR, ςασσνατςιχαετσρ χ χιδε νασσιχα τιπα INTEGER*2, ι ινεετ σμεδυΰύικ ζοςνατ: - 308 - 1-ε σμοχο - ξονες ϊαδαξιρ = υςοχεξψ πςιοςιτετα*2 (0-ζοξοχοε ϊαδαξιε, 2-οπεςατιχξοε ϊαδαξιε χ FB- ι XM-νοξιτοςαθ; 0-ζοξοχοε ϊαδαξιε, 2, 4, 6, 10, 12, 14-σιστενξωε ϊαδαξιρ, οπεςατιχξοε ϊαδαξιε-16 χ νοξιτοςαθ σο σςεδστχανι σιστενξωθ ϊαδαξικ; χ SJ-νοξιτοςε ξονες ϊαδαξιρ - 0); 2-ε σμοχο - χεςθξρρ ηςαξιγα ισπομψϊυενοκ πανρτι(ποσμεδξρρ ρώεκλα πμΰσ 2); 3-ε σμοχο - ξιφξρρ ηςαξιγα ισπομψϊυενοκ πανρτι(πεςχαρ ρώεκλα πςοηςαννω); 4-ε σμοχο - υλαϊατεμψ ξα ξαώαμο οβμαστι λαξαμοχ χχοδα/χωχοδα; 5-ε σμοχο - αδςεσ σνεϋαξξοκ οβμαστι ϊαδαξιρ χ FB- ι XM-νοξιτοςαθ; χ SJ-νοξιτοςε ςαχξο ξυμΰ; 6-ε σμοχο - νμαδϋικ βακτ: ξονες τεςνιξαμα, χωδεμεξξοηο ϊαδαξιΰ πςι ϊαηςυϊλε (τομψλο πςι ξαμιώιι νξοηοτεςνιξαμψξοκ ποδδεςφλι); ξυμψ χ SJ-νοξιτοςε ι χ οδξοτεςνιξαμψ- ξωθ νοξιτοςαθ; 7-ε σμοχο - χιςτυαμψξαρ χεςθξρρ ηςαξιγα δμρ ϊαδαξικ, σοϊδαξξωθ σ ισπομψϊοχαξιεν λμΰώα /V λονποξοχύιλα (τομψλο δμρ XM-νοξιτοςα); ξυμψ χ SJ- ι FB-νοξιτοςαθ, ι εσμι λμΰώ /V λονποξοχύιλα ξε πςινεξρμσρ; 8-9 σμοχο - ϊαςεϊεςχιςοχαξω δμρ δαμψξεκϋεηο ισπομψϊοχαξιρ. 10-12 σμοχο - μοηιώεσλοε ινρ ϊαδαξιρ χ λοι-7 (τομψλο δμρ νοξιτο- ςοχ ποδδεςφιχαΰύιθ σιστενξωε ϊαδαξιρ). βομεε ποδςοβξο πεςεδαώA παςανετςοχ οπισωχαετσρ χ σισ- τενξοκ ναλςολοναξδε .GTJB (σν. π. 7.6.12). εσμι πςι χωϊοχε βωμ υλαϊαξ τομψλο οδιξ αςηυνεξτ, το χ χωϊχαξξυΰ πςοηςαννυ πεςεδαΰτσρ τομψλο πεςχωε χοσενψ σμοχ ιξζοςναγιοξξοηο βμολα. ξαπςινες: INTEGER IJPARM (8) CALL GTJB (IJPARM) I = IGTJB (IJPARM) δμρ πομυώεξιρ ιξζοςναγιοξξοηο βμολα ιϊ 12 σμοχ ξεοβθοδινο υλαϊατψ πο λςακξεκ νεςε ϊαπρτυΰ ποσμε πεςχοηο αςηυνεξτα. ξαπςινες: INTEGER IJPARM (12) CALL GTJB (IJPARM,) - 309 - I = IGTJB (IJPARM,) ςεϊυμψτατω: I=0 - οβωώξωκ χωθοδ ιϊ ποδπςοηςαννω; I=-1 - χ δαξξωκ νονεξτ υλαϊαξξοε ϊαδαξιε ξε χωπομξρετσρ. πςινες. C πςινες πςοχεςλι συύεστχοχαξιρ οπεςατιχξοηο C ϊαδαξιρ χ σιστενε σ νοξιτοςον σο σςεδστχανι C σιστενξωθ ϊαδαξικ C DIMENSION JPAR(12) . . . IF (IGTJB(JAR, 'F').NE.0) STOP * ' ξετ οπεςατιχξοηο ϊαδαξιρ ' 8.6.4. ζυξλγιρ IDSTAT ζυξλγιρ IDSTAT ισπομψϊυετσρ δμρ πομυώεξιρ ιξζοςναγιι οβ υστςοκστχε. ζυξλγιρ IDSTAT τςεβυετ δεκστχικ USR ι ξε νοφετ χωϊωχατψσρ ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ ιμι οβςαβοτλι πςεςωχαξιρ. οβςαύεξιε λ ζυξλγιι: I=IDSTAT (DEVNAM,CBLK) ηδε DEVNAM - ινρ υστςοκστχα χ RADIX-50; CBLK - 4-σμοχξωκ νασσιχ, δμρ πομυώεξιρ ιξζοςναγιι οβ υστ- ςοκστχε. νασσιχ ιϊ ώετωςεθ όμενεξτοχ τιπα INTEGER*2, ινεετ σμε- δυΰύικ ζοςνατ: 1-ε σμοχο - σμοχο σοστορξιρ υστςοκστχα; 2-ε σμοχο - ςαϊνες δςακχεςα (βακτω); 3-ε σμοχο - τοώλα χθοδα δςακχεςα (ξεξυμεχοε σοδεςφινοε ότοηο σμοχα οϊξαώαετ, ώτο δςακχες ξαθοδιτσρ χ οπεςατιχ- ξοκ πανρτι); 4-ε σμοχο - ςαϊνες υστςοκστχα (χ βμολαθ πο 256 σμοχ) δμρ υστ- ςοκστχ σ βμοώξοκ στςυλτυςοκ; σοδεςφινοε ότοηο σμο- - 310 - χα ςαχξο ξυμΰ δμρ υστςοκστχ σ ποσμεδοχατεμψξων δοστυπον. πςινεώαξιε. παςανετςω ζυξλγιι IDSTAT δομφξω ςαϊνεύατψ- σρ χ πανρτι ταλ, ώτοβω οξι ξε πεςελςωχαμισψ πςι σχοπιξηε USR. ζυξλγιρ IDSTAT ιύετ χ ταβμιγαθ νοξιτοςα υλαϊαξξοε υστ- ςοκστχο πο εηο ινεξι ι, εσμι οξο ξακδεξο, ϊαπομξρετ ώετωςε σμοχα βμολα σοστορξιρ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - υστςοκστχο ξε ξακδεξο χ ταβμιγαθ νοξιτοςα. χ πςιχεδεξξον πςινεςε οπςεδεμρετσρ, ξαθοδιτσρ μι δςακ- χες υστςοκστχα πεώατι χ οπεςατιχξοκ πανρτι. εσμι ξετ, το πςοηςαννα οσταξαχμιχαετσρ ι πεώαταετ σοοβύεξιε ο τον, ώτο δομφεξ βωτψ ϊαηςυφεξ υλαϊαξξωκ δςακχες. πςινες. INTEGER*2 CBLK(4) DATA IDNAM /3RLP / DATA CBLK /4*0/ CALL IDSTAT(IDNAM,CBLK) IF(CBLK(3).EQ.0) STOP'ϊαηςυϊιτψ δςακχες LP: ι ' * ' πεςεϊαπυστιτψ ϊαδαξιε' 8.6.5. ζυξλγιρ IFETCH ζυξλγιρ IFETCH ϊαηςυφαετ σ σιστενξοηο υστςοκστχα χ οπεςατιχξυΰ πανρτψ δςακχες υλαϊαξξοηο υστςοκστχα, δεμαρ ότο υστςοκστχο δοστυπξων δμρ οπεςαγικ χχοδα/χωχοδα. δςακχες ϊαηςυφαετσρ χ σχοβοδξυΰ ϊοξυ πανρτι, υπςαχμρενυΰ ισπομξρΰ- ύεκ σιστενοκ ζοςτςαξ. εσμι δςακχες ϊαηςυφεξ, το οξ ξε νοφετ βωτψ οσχοβοφδεξ ι πανρτψ, χ λοτοςοκ οξ ξαθοδιτσρ, ξε νοφετ βωτψ ποχτοςξο ισπομψϊοχαξα δμρ δςυηιθ γεμεκ. ζυξλγιΰ IFETCH ξεμψϊρ χωϊωχατψ ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ ιμι οβςαβοτλι πςεςωχαξιρ, τ.λ. οξα τςεβυετ δεκστχικ USR. οβςαύεξιε λ ζυξλγιι: I=IFETCH (DEVNAM) ηδε DEVNAM - οδξοσμοχξοε ινρ υστςοκστχα χ RADIX-50, δμρ λοτοςο- ηο ξεοβθοδιν δςακχες; ότοτ παςανετς νοφετ βωτψ πεςχων σμοχον οπισαξιρ χθοδξοηο ιμι χωθοδξοηο ζακ- μα, ηεξεςιςυενοηο ζυξλγιεκ ICSI; ότοτ παςανετς δομφεξ ςασπομαηατψσρ χ πανρτι ταλ, ώτοβω οξ ξε - 311 - ποπαδαμ χ οβμαστψ σχοπιξηα USR. βομεε ποδςοβξο ϊαηςυϊλα δςακχεςα χ οπεςατιχξυΰ πανρτψ οπισωχαετσρ χ σιστενξοκ ναλςολοναξδε .FETCH. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - υλαϊαξξοε υστςοκστχο ξε συύεστχυετ; I=2 - χ πανρτι ξετ νεστα δμρ ϊαηςυϊλι δςακχεςα; I=3 - ξα σιστενξον υστςοκστχε ξε συύεστχυετ δςακχες υλαϊαξξοηο υστςοκστχα. πςινες πολαϊωχαετ ϊαηςυϊλυ χ πανρτψ δςακχεςα RK. χωπομξεξιε πςοηςαννω πςελςαύαετσρ, εσμι δςακχες ξε νοφετ βωτψ ϊαηςυφεξ. πςινες. REAL*4 IDNAM DATA IDNAM /3RRK / . . . IF(IFETCH(IDNAM).NE.0) STOP !ξευστςαξιναρ οϋιβλα C πςι ϊαηςυϊλε δςακχεςα 8.6.6. ζυξλγιρ IQSET ζυξλγιρ IQSET ισπομψϊυετσρ δμρ υχεμιώεξιρ ώισμα δοσ- τυπξωθ όμενεξτοχ οώεςεδι. πανρτψ ποδ ότι όμενεξτω χωδεμρετ- σρ χ πανρτι, υπςαχμρενοκ ισπομξρΰύεκ σιστενοκ ζοςτςαξα. ζυξλγιΰ IQSET ξεμψϊρ χωϊωχατψ ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ ιμι οβσμυφιχαξιρ πςεςωχαξιρ. οβςαύεξιε λ ζυξλγιι: I=IQSET (QLENG[,AREA]) ηδε QLENG - λομιώεστχο (γEμοε) όμενεξτοχ, λοτοςοε δοβαχμρετσρ λ οώεςεδι; ότοτ παςανετς δομφεξ πονεύατψσρ χ οπε- ςατιχξοκ πανρτι ταλ, ώτοβω οξ ξε πεςελςωχαμσρ USR πςι σχοπιξηε; AREA - πανρτψ, χωδεμρεναρ χωϊωχαΰύεκ πςοηςαννοκ; πςι ςαβοτε ποδ υπςαχμεξιεν SJ- ι FB-νοξιτοςοχ ξεοβθο- δινο σμεδιτψ, ώτοβω ότα πανρτψ ξε ολαϊαμασψ χ οβμαστι σχοπιξηα USR; εσμι ότοτ αςηυνεξτ ξε υλαϊαξ πςι χωϊοχε, πανρτψ χωδεμρετσρ χ ςαβοώεκ οβμαστι ι ισπομξρΰύεκ σιστενω ζοςτςαξα. χσε οπεςαγιι χχοδα/χωχοδα σιστενω χωπομξρΰτσρ ποσ- ςεδστχον γεξτςαμιϊοχαξξοκ σιστενω υπςαχμεξιρ οώεςεδψΰ. εσμι - 312 - ποτολ ϊαπςοσοχ χχοδα-χωχοδα οώεξψ χεμιλ ι ξετ σχοβοδξωθ όμενεξτοχ οώεςεδι, το πςοηςαννα, ποσωμαΰύαρ ϊαπςοσω ξα χχοδ/χωχοδ, νοφετ βωτψ πςιοσταξοχμεξα δο τεθ πος, πολα ξε πορχιτσρ σχοβοδξωκ όμενεξτ οώεςεδι. δςυηοε ϊαδαξιε χ FB- ι XM-νοξιτοςαθ νοφετ χωπομξρτψσρ, πολα πεςχαρ πςοηςαννα φδετ οσχοβοφδεξιρ όμενεξτοχ οώεςεδι. εσμι ζυξλγιρ IQSET ισπομψ- ϊυετσρ χ οπεςατιχξοκ πςοηςαννε, το ξεοβθοδινο νοδιζιγιςο- χατψ λοναξδυ νοξιτοςα FRUN, ώτοβω χωδεμιτψ νεστο δμρ όμε- νεξτοχ οώεςεδι. ξεοβθοδινο πςιδεςφιχατψσρ οβύεηο πςαχιμα: λαφδαρ πςοη- ςαννα δομφξα ινετψ όμενεξτοχ οώεςεδι ξα οδιξ βομψϋε οβύεηο ώισμα ϊαπςοσοχ χχοδα/χωχοδα ι χςενεξξωθ ϊαπςοσοχ, λοτοςωε βυδυτ αλτιχιϊιςοχατψσρ οδξοχςενεξξο. ζυξλγιι πο οβσμυφιχα- ξιΰ τακνεςα, ταλιε λαλ ITWAIT ι MRKT, ταλφε ισπομψϊυΰτ όμε- νεξτω οώεςεδι, ώτο δομφξο υώιτωχατψσρ πςι χωδεμεξιι όμενεξ- τοχ οώεςεδι δμρ πςοηςαννω. ϊανετιν ώτο, εσμι χωπομξρετσρ σιξθςοξξωκ χχοδ/χωχοδ (τ.ε. χωπομξρΰτσρ ζυξλγιι IREADW, IWRITW ι τ.δ.), α ζυξλγιι πο οβσμυφιχαξιΰ τακνεςα ξε χωπομ- ξρΰτσρ, το ξε σμεδυετ χωδεμρτψ δοπομξιτεμψξωε όμενεξτω οώε- ςεδι. ισπομξρΰύαρ σιστενα ζοςτςαξα αχτονατιώεσλι πςεδοσταχ- μρετ ώετωςε όμενεξτα οώεςεδι. ξιφε πεςεώισμεξω ζυξλγιι, ςαβοτα λοτοςωθ τςεβυετ όμε- νεξτ οώεςεδι: IRCVD/IRCVDC/IRCVDF/IRCVDW IREAD/IREADC/IREADF/IREADW ISCHED ISDAT/ISDATC/ISDATF/ISDATW ISLEEP ISPFM/ISPFNC/ISPFNF/ISPFNW ITIMER ITWAIT IUNTIL IWRITE/IWRITC/IWRITF/IWRITW MRKT MWAIT δοπομξιτεμψξαρ ιξζοςναγιρ πο ςασϋιςεξιΰ οώεςεδι δαξα πςι οπισαξιι σιστενξοκ ναλςολοναξδω .QSET (σν. π. 7.6.22). ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξετ σχοβοδξοηο νεστα δμρ δοπομξιτεμψξωθ όμενεξτοχ οώεςεδι; χωδε- μεξιε όμενεξτοχ ξε πςοιϊχοδιμοσψ. πςινες. IF(IQSET(5).NE.0) STOP !δμρ όμενεξτοχ οώεςεδι C ξεδοστατοώξο πανρτι - 313 - 8.6.7. ζυξλγιρ ITLOCK (FB, XM) ζυξλγιρ ITLOCK πςεδξαϊξαώεξα δμρ τοηο, ώτοβω ποπωτατψ- σρ ϊαλςεπιτψ USR ϊα ϊαδαξιεν. οξα αξαμοηιώξα ζυξλγιι LOCK χ τον, ώτο, εσμι USR ξε ϊαξρτα δςυηιν ϊαδαξιεν, USR σταξοχιτ- σρ ςεϊιδεξτξοκ ι ϊαλςεπμρετσρ ϊα ϊαδαξιεν. οδξαλο, πςι ισπομψϊοχαξιι LOCK, εσμι ϊαδαξιε πωταετσρ ϊαλςεπιτψ ϊα σοβοκ USR, χ το χςενρ λαλ δςυηοε ϊαδαξιε ισπομψϊυετ εε, ϊαπςαϋιχαΰύεε ϊαδαξιε πςιοσταξαχμιχαετσρ δο τεθ πος, πολα USR ξε οσχοβοδιτσρ. πςι χωϊοχε ζυξλγιι ITLOCK, εσμι USR ισπομψϊυετσρ δςυηιν ϊαδαξιεν, υπςαχμεξιε ξενεδμεξξο χοϊχςα- ύαετσρ χ χωϊχαχϋυΰ πςοηςαννυ, α ϊξαώεξιε ζυξλγιι υλαϊωχαετ ξα ξευδαώυ ποπωτλι. ζυξλγιΰ ITLOCK ξεμψϊρ χωϊωχατψ ιϊ ποδπ- ςοηςανν ϊαχεςϋεξιρ ιμι οβςαβοτλι πςεςωχαξιρ. βομεε ποδςοβ- ξαρ ιξζοςναγιρ ο δεκστχιρθ σιστενω πο ϊαπςοσυ ITLOCK δαξα χ οπισαξιι σιστενξοκ ναλςολοναξδω .TLOCK (σν. ποδπυξλτ 7.6.18.2). οβςαύεξιε λ ζυξλγιι: I=ITLOCK () ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - USR ισπομψϊυετσρ δςυηιν ϊαδαξιεν. πςινες. IF (ITLOCK().NE.0) GOTO 10 !πεςεθοδ λ οπεςατοςυ 100, C εσμι USR ϊαξρτα 8.6.8. ποδπςοηςαννα LOCK ποδπςοηςαννα LOCK χωϊωχαετσρ δμρ τοηο, ώτοβω σδεματψ USR ςεϊιδεξτξοκ ι ϊαλςεπιτψ εε ϊα ϊαδαξιεν δμρ χωπομξεξιρ σεςιι ϊαπςοσοχ, τςεβυΰύιθ οτ σιστενω ςαβοτω σ λαταμοηοχωνι στςυλτυςανι ι ζακμανι. USR πςεδσταχμρετ σοβοκ σεςχισξυΰ πςοηςαννυ, χωπομξρΰύυΰ ξεοβθοδινωε οπεςαγιι ξαδ λαταμοηανι ι ζυξλγιι υπςαχμεξιρ ζακμανι. εσμι χωπομξεξω χσε υσμοχιρ, χωϊωχαΰύιε σχοπιξη, το ώαστψ πςοηςαννω πομψϊοχατεμρ ϊαπισωχαετσρ ξα δισλ χ ζακμ SWAP.SYS ι USR ϊαηςυφαετσρ χ οπεςατιχξυΰ πανρτψ. χ σμυώαε εσμι USR υφε ξαθοδιτσρ χ πανρτι, το σχοπιξη ξε πςοισθοδιτ. USR ξε οσχοβοφδαετσρ δο τεθ πος, πολα ξε βυδετ χωϊχαξα ποδπςοηςαννα UNLOCK (οτνετιν, ώτο χ FB-νοξιτοςε χωϊοχ CSI ταλφε χωπομξρετ ξερχξωκ UNLOCK). εσμι χ πςοηςαννε πομψϊοχα- τεμρ ώαστο ισπομψϊυετσρ USR, το γεμεσοοβςαϊξο σδεματψ USR ςεϊιδεξτξοκ, ϊαλςεπιχ εε ϊα ϊαδαξιεν, ώτοβω ξε τεςρτψ χςενρ ξα σχοπιξη, χωπομξιτψ χσε οπεςαγιι, σχρϊαξξωε σ χωϊοχον USR, α ϊατεν οσχοβοδιτψ USR ποδπςοηςαννοκ UNLOCK. - 314 - ποδ υπςαχμεξιεν FB- ι XM-νοξιτοςοχ ποδπςοηςαννα LOCK ϊαπςεύαετ δςυηονυ ϊαδαξιΰ ισπομψϊοχατψ USR. ταλιν οβςαϊον, USR δομφξα ϊαλςεπμρτψσρ ϊα ϊαδαξιεν τομψλο ξα ξεοβθοδινοε χςενρ. πςινεώαξιε. εσμι ϊαδαξιε χωπομξιτ ποδπςοηςαννυ LOCK, USR νοφετ στατψ ξεδοστυπξων δςυηιν ϊαδαξιρν ξα ϊξαώιτεμψξωκ πεςιοδ χςενεξι. USR ξε ποχτοςξο-χθοδινα ι ξε νοφετ ισπομψ- ϊοχατψσρ οδξοχςενεξξο ςαϊξωνι ϊαδαξιρνι. δςυηιε ϊαδαξιρ, τςεβυΰύιε USR χ νονεξτ, λοηδα οξα ϊαξρτα, δομφξω φδατψ σχοεκ οώεςεδι. ότοτ ζαλτ ξεοβθοδινο υώιτωχατψ χ σιστεναθ, ισπομψϊυΰύιθ λοξλυςιςυΰύιε οπεςατιχξωε ι ζοξοχωε ϊαδαξιρ, α οσοβεξξο - πςι ισπομψϊοχαξιι ναηξιτξωθ μεξτ ι/ιμι λασσετ. USR, δμρ χωπομξεξιρ οπεςαγικ ξαδ ζακμανι ξα ναηξιτξωθ μεξταθ ι λασσεταθ, ξεοβθοδιν ποσμεδοχατεμψξωκ ποισλ. ποότο- νυ χο χςενρ ποισλα νοφξο ϊαβμολιςοχατψ οπεςατιχξοε ϊαδαξιε ξα δμιτεμψξοε χςενρ, πολα ζοξοχοε ϊαδαξιε χωπομξρετ οπεςα- γιι σ μεξτανι. πςοηςαννιστ δομφεξ υώιτωχατψ ότο πςι πςοελ- τιςοχαξιι σιστενω. FB- ι XM-νοξιτοςω ποϊχομρΰτ ισπομψϊοχατψ πςοηςαννυ ITLOCK, λοτοςαρ ποϊχομρετ οπεςατιχξονυ ϊαδαξιΰ πςοχεςρτψ δοστυπξοστψ USR. οτνετιν, ώτο πςοηςαννα LOCK υνεξψϋαετ χςενεξξωε ϊατςατω ξα υπςαχμεξιε ζακμανι, ϊαπςεύαρ σχοπιξη USR. εσμι USR ςεϊιδεξτξα,TO οβςαύεξιε λ LOCK ξε τςεβυετ χχοδα/χωχοδα. USR χσεηδα ςεϊιδεξτξα χ XM-νοξιτοςε. οβςαύεξιε λ ποδπςοηςαννε: CALL LOCK ποσμε χωπομξεξιρ ποδπςοηςαννω LOCK ι χωπομξεξιρ ξεοβ- θοδινωθ οπεςαγικ σ USR δομφξα χωπομξιτψσρ ποδπςοηςαννα UNLOCK. οξι ρχμρΰτσρ δοπομξρΰύινι δςυη δςυηα ι ιθ δεκστχιε δομφξο βωτψ χϊαινξο σοημασοχαξο. τ.ε. εσμι τςι ςαϊα βωμα χωϊχαξα ποδπςοηςαννα LOCK, το δομφξO χωπομξιτψσρ πο λςακξεκ νεςε τςι χωϊοχα ποδπςοηςαννω UNLOCK. χ πςοτιχξον σμυώαε USR ξε βυδετ οσχοβοφδεξα. πςι ϊαδαξιι μιϋξιθ UNLOCK οϋιβλα ξε ζιλσιςυετσρ, μιϋξιε UNLOCK ιηξοςιςυΰτσρ. πςινεώαξιρ: 1. χαφξο, ώτοβω χωϊοχ LOCK ξε πςοιϊχοδιμσρ ιϊ ϊοξω, χ λοτοςυΰ βυδετ πονεύατψσρ USR. εσμι ότο πςοιϊοκδετ, το ιϊ USR χοϊχςατ υπςαχμεξιρ πςοιϊοκδετ ξε χ πςοηςαννυ πομψϊοχα- τεμρ, α χ σανυ πςοηςαννυ USR, τ.λ. LOCK σοθςαξρετ ώαστψ πςοηςαννω πομψϊοχατεμρ ξα δισλε, α ξα ότο νεστο χ οπεςατιχ- ξοκ πανρτι ϊαπισωχαετ πςοηςαννυ USR. βομεε τοηο, χ πςοηςαν- νε ξε δομφξο βωτψ οβςαύεξικ λ ποδπςοηςανναν, πεςενεξξων ι νασσιχαν, ξαθοδρύινσρ χ ϊοξε σχοπιξηα, εσμι USR ςεϊιδεξτξα ποσμε χωπομξεξιρ ποδπςοηςαννω LOCK. 2. εσμι ποδπςοηςαννα LOCK χωπομξεξα, το ξεγεμεσοοβςαϊ- ξο ςαϊςυϋατψ ϊοξυ, χ λοτοςυΰ ϊαπισαξα USR, δαφε χ τον σμυ- ώαε, εσμι ξε πςεδπομαηαετσρ δαμψξεκϋεε ισπομψϊοχαξιε USR. χ σμυώαε ςαϊςυϋεξιρ πςι χωπομξεξιι ζυξλγιι UNLOCK νοηυτ πομυ- ώιτψσρ ξεπςεδσλαϊυενωε ςεϊυμψτατω. 3. ποδπςοηςαννυ LOCK ξεμψϊρ χωϊωχατψ ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ ιμι οβςαβοτλι πςεςωχαξιρ. 4. εσμι δαξα λοναξδα νοξιτοςα "SET USR NOSWAP" (τ.ε. ϊαπςετιτψ σχοπιξη USR), το ποδπςοηςαννω LOCK ι UNLOCK ξε - 315 - βυδυτ πςοιϊχοδιτψ σχοπιξη, θοτρ LOCK βυδετ ϊαπςεύατψ δςυηο- νυ ϊαδαξιΰ ισπομψϊοχατψ USR, α UNLOCK - ςαϊςεϋατψ δοστυπ λ USR. 5. πεςεδαχαενωε ποδπςοηςαννε USR σπισλι παςανετςοχ, ταλιε λαλ οπισαξιε ινεξ ζακμοχ ι υστςοκστχ, ξε δομφξω θςα- ξιτψσρ χ ϊοξε σχοπιξηα. οϋιβλι οτσυτστσχυτ. πςινες. INTEGER*2 DBLK(4) DATA DBLK/3RDK1,3RDT1,3RFIL,3RF41/ . . . CALL LOCK ! ϊαλςεπιτψ USR χ πανρτι ICHN=GETC( ) ! ισπομψϊοχατψ λαξαμ IF (LOOKUP(ICHN,DBLK).LT.0) * STOP ' ?LOOKUP ξε υδαώεξ ' CALL UNLOCK ! οσχοβοδιτψ USR 8.6.9. ποδπςοηςαννα RCHAIN ποδπςοηςαννα RCHAIN ποϊχομρετ ζοξοχοκ πςοηςαννε οπςε- δεμιτψ, βωμα μι οξα ϊαηςυφεξα πςι πονούι χωϊοχα ποδπςοηςαν- νω CHAIN δςυηοκ πςοηςαννοκ ι πομυώιτψ δοστυπ λ πεςενεξξων, πεςεδαχαενων ώεςεϊ σπεγιαμψξυΰ οβμαστψ χ πανρτι. εσμι ισπομψϊυετσρ ποδπςοηςαννα RCHAIN, το εε ξεοβθοδινο χωϊχατψ χ πεςχον χωπομξρενον οπεςατοςε πςοηςαννω ξα ρϊωλε ζοςτςαξ. οβςαύεξιε λ ποδπςοηςαννε: CALL RCHAIN (FLAG,VAR,WCNT) ηδε FLAG - γεμαρ πεςενεξξαρ, λοτοςαρ υσταξαχμιχαετσρ χ -1, εσμι πςοηςαννα χωϊχαξα πο CHAIN, χ πςοτιχξον σμυ- ώαε - χ ξυμψ; VAR - πεςχαρ πεςενεξξαρ χ ποσμεδοχατεμψξοστι πεςενεξξωθ σ χοϊςAσταΰύινι αδςεσανι πανρτι, πςεδξαϊξαώεξξαρ δμρ πςιενα ιξζοςναγιι, πεςεδαχαενοκ ιϊ χωϊωχαχϋεκ πςοηςαννω; WCNT - λομιώεστχο σμοχ, πεςεδαχαενωθ χ ϊοξυ, υλαϊαξξυΰ παςανετςον VAR; ποδπςοηςαννα RCHAIN πεςενεύαετ σώετώιλ σμοχ (WCNT) χ οβμαστψ πεςχοκ πεςενεξξοκ (VAR). οϋιβλι οτσυτστχυΰτ. πςινες. - 316 - INTEGER*2 PARMS(50) CALL RCHAIN(IFLAG,PARMS,50) IF(IFLAG) GOTO 10 !πεςεκτι λ οπεςατοςυ 10, εσμι C πςοηςαννα χωϊχαξα χ γεποώλε 8.6.10. ποδπςοηςαννα RCTRLO ποδπςοηςαννα RCTRLO οτνεξρετ δεκστχιε λοναξδω , λοτοςαρ βωμα χχεδεξα ςαξεε σ λμαχιατυςω τεςνιξα- μα. ποσμε χωϊοχα ποδπςοηςαννω RCTRLO μΰβοκ χωχοδ ξα τεςνι- ξαμ βυδετ οσυύεστχμρτψσρ δο τεθ πος, πολα ξε βυδετ χξοχψ χχεδεξα σ τεςνιξαμα λοναξδα . οβςαύεξιε λ ποδπςοηςαννε: CALL RCTRLO οϋιβλι οτσυτστχυΰτ. πςινες. CALL RCTRLO CALL PRINT(' ταβμιώξωε δαξξωε ') 8.6.11. ποδπςοηςαννα RESUME (FB, XM) ποδπςοηςαννα ποϊχομρετ ϊαδαξιΰ χοϊοβξοχιτψ χωπομξεξιε οσξοχξοκ πςοηςαννω. χωϊοχ RESUME οβωώξο πςοιϊχοδιτσρ ιϊ ασιξθςοξξοκ ποδπςοηςαννω ϊαχεςϋεξιρ ξα ρϊωλε ζοςτςαξ, χωϊ- χαξξοκ πο σοβωτιΰ (πο ολοξώαξιι χχοδα/χωχοδα ιμι πο ιστεώε- ξιι ϊαπμαξιςοχαξξοηο ιξτεςχαμα χςενεξι). οβςαύεξιε λ ποδπςοηςαννε: CALL RESUME οϋιβλι οτσυτστχυΰτ. πςινες. SUBROUTINE RDFIN(IARG1,IARG2) COMMON/RDBLK/IBUF(256) . . . CALL RESUME !πςοδομφιτψ χωπομξεξιε οσξοχξοκ πςοηςαννω END - 317 - 8.6.12. ποδπςοηςαννα SCCA ποδπςοηςαννα SCCA ϊαπςεύαετ ϊαχεςϋατψ πςοηςαννυ πο λοναξδε οπεςατοςα ; δαετ χοϊνοφξοστψ πςοηςαννε ςαϊ- μιώατψ οδιξαςξυΰ ι δχοκξυΰ λοναξδω . οβςαύεξιε λ ποδπςοηςαννε: CALL SCCA [(IFLAG)] ηδε IFLAG - σμοχο σοστορξιρ τεςνιξαμα, πςεδσταχμρενοε γεμων ώισμον χ ζοςνατε INTEGER*2 (α ξε LOGICAL*1); οξο δομφξο βωτψ πςεδχαςιτεμψξο οώιύεξο δμρ τοηο, ώτοβω νοφξο βωμο οπςεδεμιτψ, χχοδιμασψ μι δχαφδω λοναξδα . εσμι ποσμε χωϊοχα SCCA σ αςηυνεξτον βωμα ποδαξα λοναξ- δα , το σιστενα ιηξοςιςυετ , ξο πονεύαετ εε χ λομψγεχοκ βυζες χχοδα. ξαθοδρσψ χ βυζεςε, ότοτ σινχομ (λοδ "003) νοφετ βωτψ σώιταξ πςοηςαννοκ λαλ δοπυστινωκ σιν- χομ. εσμι ποστυπιμι σ λοξσομι σςαϊυ δχε λοναξδω , το παςανετς IFLAG ινεετ ξεξυμεχοε ϊξαώεξιε. ποότονυ, δμρ οβξαςυφεξιρ ότοηο όζζελτα, εηο ξεοβθοδινο πςεδχαςιτεμψξο πςοχεςιτψ ι οώιστιτψ. χωϊοχ πςοηςαννω SCCA βεϊ αςηυνεξτα οτνεξρετ οπισαξξυΰ οβςαβοτλυ λοναξδω , χοϊχςαύαρ σιστενυ χ οβωώξωκ ςεφιν. ξοςναμψξαρ ςεαλγιρ σιστενω ξα ϊξαλ , πςιξρτωκ ιϊ λοσχεξξοηο λοναξδξοηο ζακμα, ξε νοφετ βωτψ οτνεξεξα πςι πονούι SCCA. οϋιβλι οτσυτστχυΰτ. χ πςινεςε ςασσνοτςεξω χοϊνοφξωε χαςιαξτω ισπομψϊοχαξιρ ποδπςοηςαννω SCCA. πςινες. PROGRAM SCCA CALL PRINT(' πςοηςαννα ϊαπυύεξα, χχοδιτε ') IFLAG=0 CALL SCCA(IFLAG) 10 I=ITTINR() !πςιξρτψ σινχομ IF (I.NE.3) GOTO 10 C βωμα χχεδεξα λοναξδα CALL PRINT(' βωμα λοναξδα ') IF(IFLAG.EQ.0) GOTO 10 CALL PRINT(' λοναξδα ποδςρδ δχαφδω ') TYPE 19,IFLAG 19 FORMAT (' IFLAG = ',ο6,/) CALL SCCA !ςαϊςεϋιτψ οβςαβοτλυ CALL PRINT (' χχεδιτε δχα δμρ ϊαχεςϋεξιρ ') 20 GOTO 20 !γιλμ, πολα ξε βυδετ - 318 - C λοναξδα END 8.6.13. ποδπςοηςαννα SETCMD ποδπςοηςαννα SETCMD ποϊχομρετ πςοηςαννε πεςεδατψ ιξτε- ςαλτιχξονυ νοξιτοςυ (KMON) λοναξδξυΰ στςολυ, λοτοςαρ χωπομ- ξιτσρ πο χωθοδε ιϊ πςοηςαννω. λοναξδξωε στςολι πεςεδαΰτσρ χ οβμαστψ πεςεδαώι ιξζοςναγιι πο CHAIN (500-777, χοσψνεςιώ- ξοε) ι θςαξρτσρ, ξαώιξαρ σ ρώεκλι 512 (χοσψεςιώξοε). πςοη- ςαννα ξε πςοχεςρετ, πεςελςωχαετ μι λοναξδξαρ στςολα οβμαστψ στελα. ποότονυ, λοναξδξαρ στςολα δομφξα βωτψ λοςοτλοκ ι χωϊοχ ποδπςοηςαννω φεματεμψξο δεματψ ξεποσςεδστχεξξο πεςεδ ϊαχεςϋεξιεν οσξοχξοκ πςοηςαννω. εσμι ξεοβθοδινο χωπομξιτψ ξεσλομψλο λοναξδ, το δομφεξ ισπομψϊοχατψσρ λοναξδξωκ ζακμ, σοδεςφαύικ ξυφξοε ώισμο λοναξδξωθ στςολ. εσμι ισπομψϊυετσρ ποδπςοηςαννα SETCMD, το σμεδυύιε λοναξδω KMON ϊαπςεύεξω: REENTER START CLOSE οβςαύεξιε λ ποδπςοηςαννε: CALL SETCMD (STRING) ηδε STRING - λοναξδξαρ στςολα δμρ ιξτεςαλτιχξοηο νοξιτοςα χ ζοςνατε ASCIZ, ξε σοδεςφαύαρ σινχομω ι . ποσμε χωϊοχα ποδπςοηςαννω SETCMD δμρ πεςεδαώι υπςαχμε- ξιρ νοξιτοςυ νοφξο ισπομψϊοχατψ λαλ οπεςατος STOP, ταλ ι ποδπςοηςαννυ EXIT. οϋιβλι οτσυτστχυΰτ. πςινες. LOGICAL*1 INPUT(134),PROMPT(8) DATA PROMPT/'C','O','M','A','N','D','>',"200/ CALL GTLIN(INPUT,PROMPT) CALL SETCMD(INPUT) END - 319 - 8.6.14. ποδπςοηςαννα SUSPND (FB, XM) ποδπςοηςαννα SUSPND πςιοσταξαχμιχαετ χωπομξεξιε οσξοχ- ξοκ πςοηςαννω τελυύεηο ϊαδαξιρ ι ςαϊςεϋαετ χωπομξεξιε τομψ- λο ποδπςοηςανν ϊαχεςϋεξιρ δμρ οπεςαγικ χχοδα/χωχοδα ι πμα- ξιςυΰύιθσρ χςενεξξωθ ϊαπςοσοχ. οβςαύεξιε λ ποδπςοηςαννε: CALL SUSPND πςινεώαξιρ: 1. νοξιτος δμρ λαφδοηο ϊαδαξιρ ινεετ σώετώιλ ϊαδεςφλι. ότοτ σώετώιλ υνεξψϋαετσρ ποδπςοηςαννοκ SUSPND ι υχεμιώι- χαετσρ ποδπςοηςαννοκ RESUME. ϊαδαξιε ρχμρετσρ πςιοσταξοχ- μεξξων, εσμι ϊξαώεξιε σώετώιλα οτςιγατεμψξο. ταλιν οβςαϊον, εσμι ποδπςοηςαννα RESUME χωϊωχαετσρ δο ποδπςοηςαννω SUSPND, το ποσμεδξρρ, υνεξψϋιχ σώετώιλ, χεςξετ υπςαχμεξιε. 2. πςοηςαννα δομφξα χωπομξρτψ οδιξαλοχοε λομιώεστχο χωϊοχοχ ποδπςοηςανν SUSPND ι RESUME. 3. χωϊοχ SUSPND ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ υνεξψϋαετ σώετώιλ ϊαδεςφλι, ξο ξε πςιοσταξαχμιχαετ χωπομξεξιε οσξοχ- ξοκ πςοηςαννω. εσμι ποδπςοηςαννα ϊαχεςϋεξιρ χωϊωχαετ SUSPND, το ηομοχξαρ πςοηςαννα πςοδομφαετ χωπομξρτψσρ δο τεθ πος, πολα οξα σανα ξε χωϊοχετ SUSPND. χ ότοτ νονεξτ εε χωπομξεξιε πςιοσταξαχμιχαετσρ, ι δμρ χοϊοβξοχμεξιρ χωπομξε- ξιρ ποτςεβυετσρ δχα χωϊοχα RESUME. 4. ταλ λαλ ποδπςοηςαννω SUSPND ι RESUME ισπομψϊυΰτσρ δμρ νοδεμιςοχαξιρ ζυξλγιι ITWAIT χ νοξιτοςε, το ποδπςοηςαν- να RESUME, χωϊωχαεναρ ιϊ ποδπςοηςαννω ϊαχεςϋεξιρ νοφετ πςι- χεστι λ πςοδομφεξιΰ χωπομξεξιρ οσξοχξοκ πςοηςαννω, λοτοςαρ ξαθοδιμασψ χ οφιδαξιι πο χωϊοχυ ITWAIT, πςεφδε, ώεν ιστεώετ χεσψ χςενεξξοκ ιξτεςχαμ υλαϊαξξωκ χ ότον χωϊοχε. βομεε ποδςοβξο ο πςιοσταξοχλε οσξοχξοκ πςοηςαννω δαξο χ οπισαξιι ναλςολοναξδω .SPND (σν. ποδπυξλτ 7.6.30.1). οϋιβλι οτσυτστχυΰτ. - 320 - πςινες. INTEGER IAREA(4) COMMON /RDBLK/ IBUF(256) EXTERNAL RDFIN . . . IF(IREADF(256,IBUF,IBLK,ICHAN,IAREA,RDFIN) 1 .NE.0) GOTO 1000 C C πςι μΰβον τιπε οϋιβλι πεςεκτι λ οπεςατοςυ 1000 C C χωπομξρτψ οβςαβοτλυ παςαμμεμψξο σ χωϊοχον . . . CALL SUSPND !υσταξοχιτψ σιξθςοξιϊαγιΰ σ π/π C ϊαχεςϋεξιρ . . . END SUBROUTINE RDFIN (IARG1,IARG2) COMMON /RDBLX/ IBUF(256) . . . CALL RESUME !πςοδομφιτψ χωπομξεξιε οσξοχξοκ C πςοηςαννω . . . END 8.6.15. ποδπςοηςαννα UNLOCK ποδπςοηςαννα UNLOCK ςαϊςεϋαετ σχοπιξη USR, εσμι οξ βωμ ϊαπςεύεξ χωϊοχον LOCK ι οσχοβοφδαετ USR, ποϊχομρρ οβςαύατψ- σρ λ ξενυ δςυηιν ϊαδαξιρν. εσμι LOCK ποτςεβοχαμο χωπομξεξιρ πςογεδυςω σχοπιξηα, το UNLOCK χοϊχςαύαετ πςοηςαννυ πομψϊο- χατεμρ χ πανρτψ. εσμι σχοπιξηα πςι χωπομξεξιι LOCK ξε ποτ- ςεβοχαμοσψ, το UNLOCK ξε ποςοφδαετ οπεςαγικ χχοδα/χωχοδα. USR χσεηδα ςεϊιδεξτξα χ XM-νοξιτοςε. οβςαύεξιε λ ποδπςοηςαννε: CALL UNLOCK πςινεώαξιρ: 1. χαφξο, ώτοβω χωϊοχοχ UNLOCK βωμο σμεμαξο ξε νεξψϋε, ώεν χωϊοχοχ LOCK. εσμι χωϊοχοχ LOCK σδεμαξο βομψϋε, ώεν χωϊοχοχ UNLOCK, το USR οσταετσρ ςεϊιδεξτξοκ χ οπεςατιχξοκ πανρτι ι ϊαλςεπμεξξοκ ϊα ϊαδαξιεν. εσμι χωϊοχοχ UNLOCK βομψϋε,σιτυαγιρ οϋιβλι ξε χοϊξιλαετ, α μιϋξιε χωϊοχω UNLOCK ιηξοςιςυΰτσρ. 2. εσμι χ FB-νοξιτοςε ςαβοταΰτ δχα ϊαδαξιρ, LOCK/UNLOCK ισπομψϊυΰτσρ τομψλο πςι ξεοβθοδινοστι. εσμι οδξο ϊαδαξιε βμολιςυετ USR, το δςυηοε ϊαδαξιε ξε σνοφετ ισπομψϊοχατψ USR δο χωπομξεξιρ UNLOCK πεςχων ϊαδαξιεν. 3. χ FB-νοξιτοςε χωϊοχ CSI (ICSI) δμρ πςιενα λοναξδω σ τεςνιξαμα πςιχοδιτ λ ξερχξονυ χωπομξεξιΰ UNLOCK. βομεε ποδςοβξο οβ οσχοβοφδεξιι USR οπισαξο χ ναλςολο- ναξδαθ .LOCK/.UNLOCK (σν. π. 7.6.18). - 321 - οϋιβλι οτσυτστχυΰτ. πςινες. C δμρ χωπομξεξιρ νξοφεστχα οπεςαγικ σ USR CALL LOCK !ϊαπςετιτψ σχοπιξη C χωπομξιτψ χωϊοχω USR . . . CALL UNLOCK !οσχοβοδιτψ USR 8.7. σμυφεβξωε οπεςαγιι 8.7.1. ζυξλγιρ IADDR ζυξλγιρ IADDR χοϊχςαύαετ 16-ςαϊςρδξωκ αβσομΰτξωκ αδςεσ παςανετςα χ χιδε γεμοηο ϊξαώεξιρ ζυξλγιι. οβςαύεξιε λ ζυξλγιι: I=IADDR (ARG) ηδε ARG - παςανετς (πεςενεξξαρ ιμι λοξσταξτα), αδςεσ λοτοςο- ηο ξεοβθοδινο πομυώιτψ; χοϊχςαύαενοε ϊξαώεξιε, εσμι ARG ρχμρετσρ χωςαφεξιεν, ξεπςεδσλαϊυενο. ζυξλγιρ IADDR νοφετ ισπομψϊοχατψσρ δμρ ξαθοφδεξιρ αδςεσα ποδπςοηςανν πςι ςαβοτε σ ποδπςοηςαννανι ξα ρϊωλε ναλςοασσενβμεςα. ςεϊυμψτατω ζυξλγιι: I - αβσομΰτξωκ αδςεσ παςανετςα. πςινες. EXTERNAL CAREA J=IADDR (CAREA) 8.7.2. ζυξλγιρ IGETSP ζυξλγιρ IGETSP ϊαπςαϋιχαετ σχοβοδξυΰ οβμαστψ πανρτι υ OTS ζοςτςαξα ι χοϊχςαύαετ αδςεσ ι ςαϊνες (ώισμο σμοχ) σχο- βοδξοκ πανρτι, χωδεμεξξοκ ισπομξρΰύεκ σιστενοκ. πομυώεξξυΰ σχοβοδξυΰ πανρτψ νοφξο διξανιώεσλι ςασπςεδεμρτψ δμρ πςοη- ςαννω, ςαϊνεύαρ χ ξεκ βυζεςω, νασσιχω ι τ.δ. - 322 - οβςαύεξιε λ ζυξλγιι: I=IGETSP (MIN,MAX,ADDR) ηδε MIN - νιξιναμψξαρ οβμαστψ, λοτοςαρ βυδετ πομυώεξα; MAX - ναλσιναμψξαρ οβμαστψ, λοτοςαρ βυδετ πομυώεξα; ADDR - αδςεσ (γεμοε) ξαώαμα σχοβοδξοκ πανρτι (βυζες); ADDR ξε οβοϊξαώαετ ξεποσςεδστχεξξο οβμαστψ πανρτι, λαλ ότο δεμαΰτ οβωώξωε πεςενεξξωε ζοςτςαξα; οξ οβοϊξαώαετ σμοχο, σοδεςφαύεε αδςεσ οβμαστι πανρτι; ότο ώαστο ισπομψϊυετσρ ποδπςοηςαννανι IPEEK ι IPOKE ιμι ποδπςοηςαννανι ξα ρϊωλε ναλςοασσενβμες. ςεϊυμψτατω ζυξλγιι: I=-1 - βωμα ϊαςεηιστςιςοχαξα οϋιβλα; ξεδοστατοώξο σχοβοδξοκ πανρτι δμρ χωδεμεξιρ τςεβυενοηο νιξιναμψξοηο λομιώεστχα οπεςατιχξοκ πανρτι; χωδεμεξιε σχοβοδξοκ πανρτι ιϊ οβμαστι ισπομξρ- ΰύεκ σιστενω ξε πςοιϊχεδεξο; I=N - οβ'εν ζαλτιώεσλι χωδεμεξξοκ πανρτι; γεμοε ϊξαώεξιε χ πςεδεμαθ [MIN, MAX]; ςαϊνες (MIN,MAX,N) οπςεδεμρετσρ χ σμοχαθ. πςινεώαξιε. οσοβαρ οστοςοφξοστψ ξεοβθοδινα πςι ισπομψ- ϊοχαξιι χσεκ σχοβοδξοκ οβμαστι, πομυώεξξοκ ισπομξρΰύεκ σισ- τενοκ ζοςτςαξα οτ οπεςαγιοξξοκ σιστενω. πανρτψ, πομυώεξξαρ πο ϊαπςοσυ ζυξλγιι IGETSP, ισλμΰώαετσρ ιϊ σπισλα σχοβοδξοκ διξανιώεσλι ςασπςεδεμρενοκ πανρτι ισπομξρΰύεκ σιστενω. εσμι ισπομξρΰύαρ σιστενα οβξαςυφιτ, ώτο εκ ξε θχαταετ σχοβοδξοκ πανρτι, το πςοισθοδιτ ξευστςαξιναρ οϋιβλα (οϋιβλι 29,30,42 ι τ.δ.), ϊαδαξιε οβωώξο σξιναετσρ σ χωπομξεξιρ. πςινες. N=IGETSP(256,256,IBUFF) ! πομυώιτψ βυζες ξα βμολ IF (N.LT.0) STOP 'ξετ πανρτι'! ξετ νεστα χ πανρτι 8.7.3. ζυξλγιρ INTSET ζυξλγιρ INTSET οβ'ρχμρετ ποδπςοηςαννυ ξα ρϊωλε ζοςτςαξ ποδπςοηςαννοκ οβσμυφιχαξιρ πςεςωχαξιρ, ξαϊξαώαετ εκ πςιοςι- τετ ι σχρϊωχαετ εε σ χελτοςον πςεςωχαξιρ. ζυξλγιρ INTSET τςεβυετ, ώτοβω βωμα χωδεμεξα δοπομξιτεμψξαρ πανρτψ δμρ οπε- ςατιχξοκ πςοηςαννω, λοτοςαρ ισπομψϊυετ ότυ ζυξλγιΰ. οβςαύεξιε λ ζυξλγιι: I=INTSET (VECT,PRI,ID,CRTN) - 323 - ηδε VECT - αδςεσ (γεμοε) χελτοςα πςεςωχαξιρ, λοτοςωκ βυδετ οβσμυφιχατψσρ ποδπςοηςαννοκ CRTN. PRI - υςοχεξψ πςιοςιτετα (γεμοε οτ 4 δο 7), ξα λοτοςον οβςαβατωχαετσρ πςεςωχαξιε οτ υστςοκστχα; ID - ιδεξτιζιγιςυΰύεε γεμοε; ώισμο, πεςεδαχαενοε χ λαώεστχε εδιξστχεξξοηο παςανετςα χ ποδπςοηςαννυ ξα ρϊωλε ζοςτςαξ, λοηδα πςοισθοδιτ πςεςωχαξιε; ότο ποϊχομρετ υλαϊατψ οδξυ ποδπςοηςαννυ χ ξεσλομψλιθ χωϊοχαθ INTSET; CRTN - ινρ ποδπςοηςαννω ξα ρϊωλε ζοςτςαξ, ισπομψϊυενοκ χ λαώεστχε ποδπςοηςαννω οβσμυφιχαξιρ πςεςωχαξιρ; ινρ ότοκ ποδπςοηςαννω δομφξο βωτψ οπισαξο χ οπεςατοςε EXTERNAL ποδπςοηςαννω ξα ρϊωλε ζοςτςαξ, λοτοςαρ χωϊωχαετ ζυξλγιΰ INTSET; ποδπςοηςαννα οβςαβοτλι πςεςωχαξικ ινεετ εδιξστχεξξωκ αςηυνεξτ, ξαπςινες: SUBROUTINE NAME (ID) INTEGER ID λοηδα ποδπςοηςαννα οβςαβοτλι πςεςωχαξικ βυδετ χωϊχαξα, ϊξαώεξιε γεμοηο παςανετςα βυδετ ςαχξο ϊξαώεξιΰ, υλαϊαξξονυ δμρ ιδεξτιζιλαγιοξξοηο γεμοηο ID χ σοοτχετστχυΰύεν χωϊοχε INTSET. πςινεώαξιρ: 1. παςανετς ID νοφετ ισπομψϊοχατψσρ δμρ ςασποϊξαχαξιρ πςεςωχαξικ, χωϊχαξξωθ ςαϊμιώξωνι χελτοςανι χ σμυώαε, εσμι πςινεξρεναρ ποδπςοηςαννα οβσμυφιχαετ ξεσλομψλο υστςοκστχ. 2. πςι ισπομψϊοχαξιι ζυξλγιι INTSET χ πςοηςαννε ποδ υπςαχμεξιεν FB- ιμι XM- νοξιτοςα χωϊοχ ποδπςοηςαννω DEVICE δομφεξ ισπομψϊοχατψσρ δμρ ϊαπςεύεξιρ πςεςωχαξιρ οτ υστ- ςοκστχα, οβσμυφιχαενοηο ποδπςοηςαννοκ ξα ρϊωλε ζοςτςαξ, οβ'ρχμεξξοκ πο INTSET, ποσμε ϊαχεςϋεξιρ πςοηςαννω. 3. εσμι ποδπςοηςαννα οβσμυφιχαξιρ πςεςωχαξιρ (παςανετς CRTN) πομυώαετ υπςαχμεξιε ξα χςενρ, χ τεώεξιε λοτοςοηο πςοισθοδιτ δχα ιμι βομεε πςεςωχαξιρ, ισπομψϊυΰύιθ οδιξ ι τοτ φε χελτος, σώιταετσρ, ώτο πςοιϊοϋεμ χωθοδ ϊα δοπυστινωκ πςεδεμ ώισμα πςεςωχαξικ. χ ότον σμυώαε χωχοδιτσρ διαηξοστι- ώεσλοε σοοβύεξιε: ?SYSLIB-FATAL INTERRUPT OVERRUN ι χωπομξεξιε ϊαδαξιρ πςελςαύαετσρ. ϊαδαξιρ, τςεβυΰύιε οώεξψ βωστςοηο οτχετα ξα πςεςωχαξιε, νοηυτ ολαϊατψσρ ξεδεεσποσοβ- ξωνι, εσμι ισπομψϊυετσρ ρϊωλ ζοςτςαξ, ιϊ-ϊα ποξιφεξιρ σλο- ςοστι οβςαβοτλι πςεςωχαξιρ χ σιστενε ζοςτςαξ πο σςαχξεξιΰ σ σανοκ οπεςαγιοξξοκ σιστενοκ. 4. ποδπςοηςαννα οβσμυφιχαξιρ πςεςωχαξιρ (παςανετς CRTN) χωπομξρετσρ λαλ ποδπςοηςαννα ϊαχεςϋεξιρ ϊα σώετ ισπομψϊοχαξιρ πςι ιθ χωϊοχε ισπομξρΰύεκ σιστενοκ ζοςτςαξα σιστενξοκ ναλςολοναξδω .SYNCH. παςανετς PRI ισπομψϊυετσρ σιστενξοκ ναλςολοναξδοκ .INTEN. 5. παςανετς VECT ϊαδαετσρ δμρ σιστενξοκ ναλςολοναξδω .PROTECT, ξο εσμι χελτος υφε ϊαύιύεξ, το ξε χωδαετσρ λαλοε- - 324 - μιβο σοοβύεξιε οβ οϋιβλε ι χελτος βυδετ χοσπςιξρτ βεϊυσμοχ- ξο. βομεε ποδςοβξο ότο οπισαξο χ σιστενξοκ ναλςολοναξδε .PROTECT. 6. ποδπςοηςαννα οβσμυφιχαξιρ πςεςωχαξικ (παςανετς CRTN) ξα ρϊωλε ζοςτςαξ ξε νοφετ χωϊωχατψ USR. 7. ζυξλγιρ INTSET ξε νοφετ χωϊωχατψσρ ιϊ ποδπςοηςανν ϊαχεςϋεξιρ ιμι οβσμυφιχαξιρ πςεςωχαξιρ. 8. ςαϊςεϋεξιε πςεςωχαξιρ ξε δομφξο υσταξαχμιχατψσρ ξα υστςοκστχε δο τεθ πος, πολα ξε βυδετ υσπεϋξο χωπομξεξ χωϊοχ INTSET. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξεπςαχιμψξοε οπισαξιε χελτοςα; I=2 - ϊαςεϊεςχιςοχαξο; I=3 - οτσυτστχυετ σχοβοδξαρ οβμαστψ δμρ υσταξοχμεξιρ σχρϊεκ. πςινες. EXTERNAL CLKSUB !ποδπςοηςαννα οβσμυφιχαξιρ ώασοχ . . . I=INTSET ("104,6,0,CLKSUB) !οπςεδεμιτψ ποδπςοηςαννυ IF(I.NE.0)GOTO 100 !πεςεκτι χ σμυώαε οϋιβλι . . . END SUBROUTINE CLKSUB(IP) . . . END 8.7.4. ζυξλγιρ IPEEK ζυξλγιρ IPEEK χοϊχςαύαετ σοδεςφινοε σμοχα, ξαθοδρύεηο- σρ πο υλαϊαξξονυ αβσομΰτξονυ 16-ςαϊςρδξονυ αδςεσυ πανρτι. ότα ζυξλγιρ νοφετ ισπομψϊοχατψσρ δμρ πςοχεςλι ςεηιστςοχ υστςοκστχα ιμι λαλοκ-μιβο ρώεκλι πανρτι. οβςαύεξιε λ ζυξλγιι: I=IPEEK (ADDR) ηδε ADDR - αβσομΰτξωκ αδςεσ (γεμοε) πςοχεςρενοηο σμοχα; εσμι ότοτ παςανετς ρχμρετσρ ξεώετξοκ χεμιώιξοκ, το πςοισθοδιτ πςεςωχαξιε. ςεϊυμψτατω ζυξλγιι: I - σοδεςφινοε σμοχα, υλαϊαξξοηο αδςεσον ADDR. πςινες. - 325 - ISWIT=IPEEK("177570) !πομυώιτψ ϊξαώεξιε. 8.7.5. ζυξλγιρ IPEEKB ζυξλγιρ IPEEKB χοϊχςαύαετ σοδεςφινοε βακτα, ςασπομο- φεξξοηο πο υλαϊαξξονυ αβσομΰτξονυ αδςεσυ πανρτι. ποσλομψλυ ότα πςοηςαννα ςαβοταετ σ βακτανι, αδςεσ νοφετ βωτψ ώετξων ιμι ξεώετξων. ότα ζυξλγιρ νοφετ ισπομψϊοχατψσρ δμρ πςοχεςλι ςεηιστςοχ υστςοκστχα ιμι μΰβοηο βακτα πανρτι. εσμι ϊξαώεξιε πςοχεςρενοηο βακτα ςαχξο ξυμΰ, το χ χοϊχςαύαενον ζυξλγιεκ ϊξαώεξιι σταςϋικ βακτ ταλφε βυδετ ςαχεξ ξυμΰ. οβςαύεξιε λ ζυξλγιι: I=IPEEKB (ADDR) ηδε ADDR - αβσομΰτξωκ αδςεσ (γεμοε) πςοχεςρενοηο βακτα; χ οτμιώιε οτ ζυξλγιι IPEEK ζυξλγιρ IPEEKB δοπυσλαετ ξεώετξωε αδςεσα. ςεϊυμψτατω ζυξλγιι: I - σοδεςφινοε βακτα, υλαϊαξξοηο αδςεσον ADDR. πςινες. IERR=IPEEKB ("52) !πομυώιτψ βακτ οϋιβλι 8.7.6. ποδπςοηςαννα IPOKE ποδπςοηςαννα IPOKE ϊαπισωχαετ 16-βιτοχυΰ γεμυΰ χεμιώι- ξυ χ ϊαδαξξυΰ αβσομΰτξων αδςεσον ρώεκλυ πανρτι. ότο νοφετ ισπομψϊοχατψσρ δμρ ϊαηςυϊλι ςεηιστςοχ υστςοκστχ. οβςαύεξιε λ ποδπςοηςαννε: CALL IPOKE (ADDR,IVALUE) ηδε ADDR - αβσομΰτξωκ αδςεσ (γεμοε) νοδιζιγιςυενοκ ρώεκλι πανρτι; εσμι ότοτ παςανετς ρχμρετσρ ξεώετξοκ χεμι- ώιξοκ, το πςοισθοδιτ πςεςωχαξιε; IVALUE - γεμοε, λοτοςοε ϊαπισωχαετσρ πο υλαϊαξξονυ αδςεσυ. οϋιβλι οτσυτστχυΰτ. χ πςινεςε πεςεδαετσρ ϊξαώεξιε IVAL χ οδιξ ιϊ ςεηιστςοχ - 326 - δισλα. πςινες. CALL IPOKE ("17740,IVAL) δμρ τοηο, ώτοβω χ 12 ςαϊςρδε ρώεκλι, οπςεδεμρΰύεκ σμο- χο σοστορξιρ ϊαδαξιρ, υσταξοχιτψ 1, βεϊ οβξυμεξιρ λαλιθ- μιβο δςυηιθ βιτοχ σμοχα, ξεοβθοδινο ισπομψϊοχατψ σμεδυΰύυΰ ζοςνυ: CALL IPOKE ("44,"10000.οR.IPEEK("44)) 8.7.7. ποδπςοηςαννα IPOKEB ποδπςοηςαννα IPOKEB ϊαπισωχαετ οπςεδεμεξξυΰ χοσψνιςαϊ- ςρδξυΰ χεμιώιξυ χ υλαϊαξξωκ βακτ. ποσλομψλυ ότα ποδπςοηςαν- να ςαβοταετ σ βακτανι, υλαϊαξξωκ αδςεσ νοφετ βωτψ ξεώετξων. ότα ποδπςοηςαννα νοφετ ισπομψϊοχατψσρ δμρ ςαβοτω σ ςεηιστ- ςανι χξεϋξιθ υστςοκστχ. οβςαύεξιε λ ποδπςοηςαννε: CALL IPOKEB (ADDR,VALUE) ηδε ADDR - αβσομΰτξωκ αδςεσ (γεμοε) βακτα, ποδμεφαύεηο ιϊνε- ξεξιΰ; χ οτμιώιε οτ ποδπςοηςαννω IPOKE, ζυξλγιρ IPOKEB δοπυσλαετ ξεώετξυΰ αδςεσαγιΰ; VALUE - γεμοε ϊξαώεξιε, λοτοςοε βυδετ θςαξιτψσρ πο αδςεσυ, οπςεδεμρενον παςανετςον ADDR. οϋιβλι οτσυτστχυΰτ. πςινες. CALL IPOKEB ("53,"20) !σοοβύιτψ χ KMON ο !ηςυβοκ οϋιβλε. 8.7.8. ζυξλγιρ ISPY ζυξλγιρ ISPY χοϊχςαύαετ χ πςοηςαννυ γεμοε ώισμο - ϊξα- ώεξιε σμοχα, ξαθοδρύεηοσρ ξα υλαϊαξξον σνεύεξιι οτ ξαώαμα RMON. ότα ζυξλγιρ ισπομψϊυετ σιστενξυΰ ναλςολοναξδυ .GVAL (σν. π. 7.6.13) δμρ πομυώεξιρ ϊξαώεξικ, ϊαπισαξξωθ χ ρώεκ- λαθ νοξιτοςα ι ινεΰύιθ ζιλσιςοχαξξωε σνεύεξιρ. οβςαύεξιε λ ζυξλγιι: - 327 - I=ISPY (IOFF) ηδε IOFF - σνεύεξιε οτ βαϊω ςεϊιδεξτα νοξιτοςα RMON δο ρώεκ- λι, λοτοςυΰ ξεοβθοδινο πςOώιτατψ. ςεϊυμψτατω ζυξλγιι: I - σοδεςφινοε σμοχα, ξαθοδρύεηοσρ ξα σνεύεξιι IOFF οτ ξαώαμα RMON. πςινες. C πεςεκτι ξα οπεςατος 200, εσμι πςοηςαννα ςαβοταετ ποδ C υπςαχμεξιεν FB-νοξιτοςα C IF(ISPY ("300.AND.1) GOTO 200 C C σμοχο, ξαθοδρύεεσρ ξα σνεύεξιι 300 (8) C οτ βαϊω ςεϊιδεξτα νοξιτοςα RMON, C ρμρετσρ σμοχον λοξζιηυςαγιι σιστενω 8.8. οβνεξ νεφδυ ϊαδαξιρνι 8.8.1. ζυξλγιι IRCVD/IRCVDC/IRCVDF/IRCVDW (FB, XM) IRCVD/IRCVDC/IRCVDF/IRCVDW - ώετωςε ζοςνω ζυξλγιι πςιενα δαξξωθ. ότι ζυξλγιι ισπομψϊυΰτσρ χνεστε σ ζυξλγιρνι ISDAT (ποσωμλι δαξξωθ) δμρ οβνεξα σοοβύεξιρνι νεφδυ πςοη- ςαννανι. ότι ζυξλγιι τςεβυΰτ όμενεξτ οώεςεδι, ώτο δομφξο υώιτωχατψσρ πςι χωπομξεξιι ζυξλγιι IQSET. 8.8.1.1. ζυξλγιρ IRCVD ζυξλγιρ IRCVD υσταξαχμιχαετ ϊαπςοσ ξα πςιεν σοοβύεξιρ οτ δςυηοκ πςοηςαννω χ οώεςεδψ ι χοϊχςαύαετ υπςαχμεξιε πςοη- ςαννε, σδεμαχϋεκ ϊαπςοσ. πςι ξεοβθοδινοστι δοφδατψσρ ιξζος- ναγιι ιϊ δςυηοηο ϊαδαξιρ, χ ϊαδαξιι, πςιξιναΰύεν σοοβύεξιε, δομφξα χωπομξρτψσρ ζυξλγιρ MWAIT. οξα πςιοσταξαχμιχαετ χωπομξεξιε ϊαδαξιρ δο τεθ πος, πολα ξε βυδετ πςιξρτο σοοβ- ύεξιε. οβςαύεξιε λ ζυξλγιι: - 328 - I=IRCVD (BUF,WCNT) ηδε BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα δμρ πςιξι- ναενωθ δαξξωθ; ότοτ νασσιχ δομφεξ βωτψ ξα οδξο σμοχο βομψϋε πςιξιναενοηο σοοβύεξιρ, ταλ λαλ πες- χοε σμοχο ποσμε ϊαχεςϋεξιρ χωπομξεξιρ ζυξλγιι IRCVD βυδετ σοδεςφατψ ώισμο πεςεδαξξωθ σμοχ; WCNT - ναλσιναμψξοε γεμοε ώισμο σμοχ, λοτοςοε νοφετ βωτψ πςιξρτο. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - χ σιστενε οτσυτστχυετ δςυηοε ϊαδαξιε. πςινες. INTEGER*2 MSG (41) . . . CALL IRCVD (MSG,40) . . . CALL MWAIT 8.8.1.2. ζυξλγιρ IRCVDC ζυξλγιρ IRCVDC υσταξαχμιχαετ ϊαπςοσ ξα πςιεν σοοβύεξιρ οτ δςυηοκ πςοηςαννω χ οώεςεδψ ι χοϊχςαύαετ υπςαχμεξιε πςοη- ςαννε, σδεμαχϋεκ ϊαπςοσ. ποσμε ϊαχεςϋεξιρ οπεςαγιι βυδετ χωπομξεξα υλαϊαξξαρ ποδπςοηςαννα ϊαχεςϋεξιρ, ξαπισαξξαρ ξα ναλςοασσενβμεςε. χωπομξεξιε οσξοχξοκ πςοηςαννω πςοδομφαετσρ χνεστε σ ϊαδαξιεν, σδεμαχϋιν ϊαπςοσ. οβςαύεξιε λ ζυξλγιι: I=IRCVDC (BUF,WCNT,CRTN) ηδε BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα πςιξιναενωθ δαξξωθ; ότοτ νασσιχ δομφεξ βωτψ πο δμιξε βομψϋε ξα οδξο σμοχο πςιξιναενοηο σοοβύεξιρ, ταλ λαλ πεςχοε σμοχο ποσμε ϊαχεςϋεξιρ χωπομξεξιρ ζυξλγιι IRCVDC σοδεςφιτ ώισμο πεςεδαξξωθ σμοχ; WCNT - ναλσιναμψξοε γεμοε ώισμο σμοχ, λοτοςοε νοφετ βωτψ πςιξρτο; CRTN - πμαξιςυεναρ ποδπςοηςαννα ϊαχεςϋεξιρ, ξαπισαξξαρ ξα ρϊωλε ναλςοασσενβμεςα; ινρ πςοηςαννω δομφξο υλαϊω- χατψσρ χ οπεςατοςε FORTRAN EXTERNAL ποδπςοηςαννω, λοτοςαρ χωϊωχαετ ζυξλγιΰ IRCVDC. - 329 - ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - χ σιστενε οτσυτστχυετ δςυηοε ϊαδαξιε. 8.8.1.3. ζυξλγιρ IRCVDF ζυξλγιρ IRCVDF υσταξαχμιχαετ ϊαπςοσ ξα πςιεν σοοβύεξιρ οτ δςυηοκ πςοηςαννω χ οώεςεδψ; ποσμε ϊαχεςϋεξιρ οπεςαγιι βυδετ χωπομξεξα υλαϊαξξαρ ποδπςοηςαννα ϊαχεςϋεξιρ, ξαπισαξ- ξαρ ξα ζοςτςαξε. χωπομξεξιε οσξοχξοκ πςοηςαννω ποσμε ποστα- ξοχλι ϊαπςοσα χ οώεςεδψ πςοδομφαετσρ. λοηδα δςυηοε ϊαδαξιε ποσωμαετ σοοβύεξιε, οσξοχξαρ πςοηςαννα πςεςωχαετσρ ι ϊαπυσ- λαετσρ υλαϊαξξαρ ποδπςοηςαννα ϊαχεςϋεξιρ. οβςαύεξιε λ ζυξλγιι: I=IRCVDF (BUF,WCNT,AREA,CRTN) ηδε BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα πςιξιναενωθ δαξξωθ; ότοτ νασσιχ δομφεξ βωτψ πο δμιξε ξα οδξο σμοχο βομψϋε πςιξιναενοηο σοοβύεξιρ, ταλ λαλ πες- χοε σμοχο βυδετ σοδεςφατψ ώισμο πεςεδαξξωθ σμοχ ποσμε ϊαχεςϋεξιρ χωπομξεξιρ ϊαπςοσα IRCVDF; WCNT - ναλσιναμψξοε γεμοε ώισμο σμοχ, λοτοςοε νοφετ βωτψ πςιξρτο; AREA - νασσιχ ιϊ ώετωςεθ σμοχ, πςεδξαϊξαώεξξωκ δμρ θςαξε- ξιρ ιξζοςναγιι ο σχρϊρθ; εηο όμενεξτω ξε δομφξω νοδιζιγιςοχατψσρ ζοςτςαξ-πςοηςαννοκ δο νονεξτα ϊαχεςϋεξιρ πςιενα ιξζοςναγιι ι ξε δομφξω πεςελςω- χατψσρ πςι σχοπιξηε USR; ότοτ νασσιχ νοφετ βωτψ ισπομψϊοχαξ δμρ πμαξιςοχαξιρ δςυηοκ ποδπςοηςαννω ϊαχεςϋεξιρ ξα ρϊωλε ζοςτςαξ, τομψλο ποσμε τοηο λαλ ϊαπμαξιςοχαξξαρ χ δαξξον ϊαπςοσε ποδπςοηςαννα βυδετ χωϊχαξα; CRTN - πμαξιςυεναρ ποδπςοηςαννα ϊαχεςϋεξιρ ξα ρϊωλε ζοςτ- ςαξ, ινρ ποδπςοηςαννω δομφξο υλαϊωχατψσρ χ οπεςα- τοςε EXTERNAL ποδπςοηςαννω, χωϊωχαΰύεκ IRCVDF. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - χ σιστενε οτσυτστχυετ δςυηοε ϊαδαξιε. πςινες. INTEGER*2 MSG (41),AREAL(4) EXTERNAL RMSGRT - 330 - . . . CALL IRCVDF (MSG,40,AREAL,RMSGRT) 8.8.1.4. ζυξλγιρ IRCVDW ζυξλγιρ IRCVDW υσταξαχμιχαετ ϊαπςοσ ξα πςιεν σοοβύεξιρ οτ δςυηοκ πςοηςαννω χ οώεςεδψ; υπςαχμεξιε οσξοχξοκ πςοηςαν- νε χοϊχςαύαετσρ ποσμε ϊαχεςϋεξιρ οπεςαγιι, τ.ε. χωπομξεξιε οσξοχξοκ πςοηςαννω πςιοσταξαχμιχαετσρ. πεςχοε σμοχο βυζεςα πολαϊωχαετ ώισμο πςιξρτωθ σμοχ. οβςαύεξιε λ ζυξλγιι: I=IRCVDW (BUF,WCNT) ηδε BUF - νασσιχ, ισπομψϊυενωκ χ λαώεστχε βυζεςα δμρ πςιξιMAEνωθ δαξξωθ; ότοτ νασσιχ δομφεξ βωτψ ξα οδξο σμοχο βομψϋε πςιξιναενοηο σοοβύεξιρ, ταλ λαλ πεςχοε σμοχο βυδετ σοδεςφατψ ώισμο πεςεδαξξωθ σμοχ ποσμε ϊαχεςϋεξιρ χωπομξεξιρ IRCVDW; WCNT - ναλσιναμψξοε γεμοε ώισμο σμοχ, λοτοςοε νοφετ βωτψ πςιξρτο. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - χ σιστενε οτσυτστχυετ δςυηοε ϊαδαξιε. πςινες. INTEGER*2 MSG (41) IF(IRCVDW(MSG,40).NE.0)STOP 'ξεπςεδχιδεξξαρ οϋιβλα' 8.8.2. ζυξλγιι ISDAT/ISDATC/ISDATF/ISDATW (FB/XM). ότι ζυξλγιι ισπομψϊυΰτσρ σοχνεστξο σ χωϊοχανι IRCVD/IRCVDC/IRCVDF ι IRCVDW δμρ τοηο, ώτοβω οσυύεστχμρτψ πεςεδαώυ σοοβύεξικ χ δςυηυΰ πςοηςαννυ ποδ υπςαχμεξιεν FB- ιμι XM-. νοξιτοςα. βυζες, σOδεςφαύικ σοοβύεξιε, ξε δομφεξ νοδιζιγιςοχατψσρ ιμι ποχτοςξο ισπομψϊοχατψσρ δο τεθ πος, πολα σοοβύεξιε ξε βυδετ πςιξρτο δςυηιν ϊαδαξιεν. ότι ζυξλ- γιι τςεβυΰτ όμενεξτ οώεςεδι, ώτο δομφξο υώιτωχατψσρ πςι χωπομξεξιι ζυξλγιι IQSET. - 331 - 8.8.2.1. ζυξλγιρ ISDAT ζυξλγιρ ISDAT υσταξαχμιχαετ χ οώεςεδψ ϊαπςοσ ξα πεςε- δαώυ σοοβύεξιρ υλαϊαξξοκ δμιξω δςυηοκ πςοηςαννε ι ξενεδμεξ- ξο χοϊχςαύαετ υπςαχμεξιε πςοηςαννε. ότοτ χωϊοχ ισπομψϊυετσρ σοχνεστξο σ ποδπςοηςαννοκ MWAIT. οβςαύεξιε λ ζυξλγιι: I=ISDAT (BUF,WCNT) ηδε BUF - νασσιχ, σοδεςφαύικ δαξξωε, λοτοςωε ξεοβθοδινο πεςεδατψ; WCNT - γεμοε ώισμο σμοχ, λοτοςοε ξεοβθοδινο πεςεδατψ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - χ δαξξοε χςενρ χ σιστενε ξετ δςυηοηο ϊαδαξιρ. πςινες. INTEGER*2 MSG (40) . . . CALL ISDAT (MSG,40) . . . CALL MWAIT C χχεστι ξοχοε σοοβύεξιε χ βυζες 8.8.2.2. ζυξλγιρ ISDATC ζυξλγιρ ISDATC υσταξαχμιχαετ χ οώεςεδψ ϊαπςοσ ξα πεςε- δαώυ σοοβύεξιρ ϊαδαξξοκ δμιξω δςυηοκ πςοηςαννε ι χοϊχςαύαετ υπςαχμεξιε πςοηςαννε. ποσμε ϊαχεςϋεξιρ οπεςαγιι βυδετ ασιξθςοξξο χωϊχαξα ι χωπομξεξα ποδπςοηςαννα ϊαχεςϋεξιρ, ξαπισαξξαρ ξα ναλςοασσενβμεςε. λοηδα δςυηοε ϊαδαξιε πςιξι- ναετ σοοβύεξιε ποσςεδστχον ζυξλγιι πςιενα δαξξωθ, το υλα- ϊαξξαρ ποδπςοηςαννα ξα ρϊωλε ναλςοασσενβμεςα αλτιχιϊιςυετσρ χ λαώεστχε ασιξθςοξξοκ ποδπςοηςαννω ϊαχεςϋεξιρ. οβςαύεξιε λ ζυξλγιι: I=ISDATC (BUF,WCNT,CRTN) ηδε BUF - νασσιχ, σοδεςφαύικ δαξξωε, λοτοςωε ξεοβθοδινο πεςεδατψ; - 332 - WCNT - γεμοε ώισμο σμοχ, λοτοςοε ξεοβθοδινο πεςεδατψ; CRTN - ινρ ποδπςοηςαννω ϊαχεςϋεξιρ ξα ρϊωλε ναλςοασσενβ- μεςα, λοτοςαρ δομφξα αλτιχιϊιςοχατψσρ πο ολοξώαξιι πεςεδαώι; ότο ινρ δομφξο υλαϊωχατψσρ χ οπεςατοςε EXTERNAL ποδπςοηςαννω, χωϊωχαΰύεκ ISDATC. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - χ δαξξοε χςενρ χ σιστενε ξετ δςυηοηο ϊαδαξιρ. πςινες. INTEGER*2 MSG(40) EXTERNAL RTN . . . CALL ISDATC (MSG,40,RTN) 8.8.2.3. ζυξλγιρ ISDATF ζυξλγιρ ISDATF πεςεδαετ υλαϊαξξοε ώισμο σμοχ ιϊ οδξοηο ϊαδαξιρ χ δςυηοε. υπςαχμεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊο- χατεμρ ξενεδμεξξο ποσμε τοηο, λαλ ϊαπςοσ ξα πεςεδαώυ ποσ- ταχμεξ χ οώεςεδψ, ι πςοηςαννα πςοδομφαετ χωπομξρτψσρ. KOηδα δςυηοε ϊαδαξιε πςιξιναετ σοοβύεξιε ποσςεδστχον ζυξλγιι πςιενα δαξξωθ, υλαϊαξξαρ ποδπςοηςαννα ξα ρϊωλε ζοςτςαξ αλτιχιϊιςυετσρ χ λαώεστχε ασιξθςοξξοκ ποδπςοηςαννω ϊαχεςϋε- ξιρ. οβςαύεξιε λ ποδπςοηςαννε: I=ISDATF (BUF,WCNT,AREA,CRTN) ηδε BUF - νασσιχ, σοδεςφαύικ δαξξωε δμρ πεςεδαώι; WCNT - γεμοε ώισμο σμοχ, λοτοςοε ξεοβθοδινο πεςεδατψ; AREA - νασσιχ ιϊ ώετωςεθ σμοχ δμρ ιξζοςναγιι σχρϊι. ότοτ νασσιχ ξε δομφεξ νοδιζιγιςοχατψσρ πςοηςαννοκ ι ξε δομφεξ ξαθοδιτψσρ χ οβμαστι σχοπιξηα USR; δαξξωκ νασσιχ νοφετ ισπομψϊοχατψσρ δςυηινι ζυξλγιρνι ϊαχεςϋεξιρ ξα ζοςτςαξ τομψλο ποσμε αλτιχιϊαγιι ποδπςοηςαννω ϊαχεςϋεξιρ; CRTN - ινρ ποδπςοηςαννω, ξαπισαξξοκ ξα ρϊωλε ζοςτςαξ, λοτοςαρ αλτιχιϊιςυετσρ πο ϊαχεςϋεξιι πεςεδαώι; ότο ινρ δομφξο υλαϊωχατψσρ χ οπεςατοςε EXTERNAL πςοη- ςαννω, χωϊωχαΰύεκ ISDATF. ςεϊυμψτατω ζυξλγιι: - 333 - I=0 - οβωώξωκ χωθοδ; I=1 - χ δαξξοε χςενρ χ σιστενε ξετ δςυηοηο ϊαδαξιρ. πςινες. INTEGER*2 MSG(40),SPOT(4) EXTERNAL RTN . . . CALL ISDATF(MSG,40,SPOT,RTN) 8.8.2.4. ζυξλγιρ ISDATW ζυξλγιρ ISDATW πεςεδαετ υλαϊαξξοε ώισμο σμοχ ιϊ οδξοηο ϊαδαξιρ χ δςυηοε. υπςαχμεξιε χοϊχςαύαετσρ πςοηςαννε πομψϊο- χατεμρ ποσμε τοηο, λαλ δςυηοε ϊαδαξιε πςιξρμο δαξξωε ποσ- ςεδστχον ζυξλγιι πςιενα δαξξωθ. οβςαύεξιε λ ζυξλγιι: I=ISDATW (BUF,WCNT) ηδε BUF - νασσιχ, σοδεςφαύικ δαξξωε, λοτοςωε ξεοβθοδινο πεςεδατψ; WCNT - γεμοε ώισμο σμοχ, λοτοςοε ξεοβθοδινο πεςεδατψ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - χ δαξξοε χςενρ χ σιστενε ξετ δςυηοηο ϊαδαξιρ. πςινες. INTEGER*2 MSG(40) . . . IF(ISDATW(MSG.40).NE.0) STOP'ξετ δςυηοηο ϊαδαξιρ' 8.8.3. ποδπςοηςαννα MWAIT (FB, XM) ποδπςοηςαννα MWAIT πςεδξαϊξαώεξα δμρ πςιοσταξοχλι χωπομξεξιρ πςοηςαννω δο τεθ πος, πολα ξε βυδυτ πεςεδαξω ιμι πςιξρτω χσε σοοβύεξιρ, ποσμαξξωε δςυηονυ ϊαδαξιΰ. ότο ηαςαξτιςυετ οβςαβοτλυ τςεβυενοηο σοοβύεξιρ. ζυξλγιρ MWAIT ισπομψϊυετσρ σοχνεστξο σ IRCVD ι ISDAT. ποδπςοηςαννα MWAIT τςεβυετ όμενεξτ οώεςεδι, ώτο ξεοβθοδινο υώιτωχατψ πςι - 334 - χωπομξεξιι ζυξλγιι IQSET. οβςαύεξιε λ ποδπςοηςαννε: CALL MWAIT οϋιβλι: οτσυτστχυΰτ. πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι ISDAT (σν. ποδπυξλτ 8.8.2.1). 8.9. ςαβοτα σ δοπομξιτεμψξωνι τεςνιξαμανι χοϊνοφξοστψ ισπομψϊοχαξιρ οπισωχαενωθ ξιφε ποδπςοηςανν οπςεδεμρετσρ πςι ηεξεςαγιι σιστενω. ιθ ισπομψϊοχαξιε ςαϊςε- ϋεξο τομψλο ποδ υπςαχμεξιεν νοξιτοςοχ, πςι ηεξεςαγιι λοτο- ςωθ υλαϊαξα ξεοβθοδινοστψ ςαβοτω σ ξεσλομψλινι τεςνιξαμανι. 8.9.1. ζυξλγιρ MTATCH ζυξλγιρ MTATCH πςεδοσταχμρετ πςοηςαννε πςαχο ισπομψϊο- χαξιρ υλαϊαξξοηο τεςνιξαμα, ϊαλςεπμρρ εηο ϊα ϊαδαξιεν. δο οτνεξω ότοηο σοστορξιρ τεςνιξαμα ζυξλγιεκ MTDTCH ξιλαλαρ δςυηαρ πςοηςαννα ξα δαξξωκ τεςνιξαμ δοστυπα ξε πομυώιτ. οβςαύεξιε λ ότοκ ζυξλγιι δομφξο βωτψ χωπομξεξο πεςεδ τεν, λαλ πςοηςαννα ιξιγιιςυετ πεςχοε οβςαύεξιε λ τεςνιξαμυ σ ισπομψϊοχαξιεν ποδπςοηςαννω νξοηοτεςνιξαμψξοηο δοστυπα. οβςαύεξιε λ ζυξλγιι: I=MTATCH (UNIT[,ADDR][,JOBN]) ηδε UNIT - μοηιώεσλικ ξονες τεςνιξαμα; ADDR - ξεοβρϊατεμψξωκ παςανετς - αδςεσ ασιξθςοξξοηο σμοχα σοστορξιρ τεςνιξαμα; εσμι σμοχο σοστορξιρ τεςνιξα- μα ξε τςεβυετσρ, ότοτ αςηυνεξτ χωϊοχα νοφετ βωτψ οπυύεξ, ώτο υλαϊωχαετσρ ϊαπρτοκ; ξαπςινες: I=MTATCH (IUN,,JNUM) JOBN - εσμι τεςνιξαμ ϊαλςεπμεξ ϊα δςυηιν ϊαδαξιεν, το χ ότυ πεςενεξξυΰ (τιπ INTEGER*2) ϊαπισωχαετσρ ξονες ότοηο ϊαδαξιρ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; - 335 - I=3 - ϊαδαξ ξονες ξεσυύεστχυΰύεηο τεςνιξαμα; I=5 - τεςνιξαμ ϊαλςεπμεξ ϊα δςυηιν ϊαδαξιεν; ξονες ϊαδαξιρ χοϊχςαύαετσρ πςι ότον χ JOBN; I=6 - χ XM-νοξιτοςε αδςεσ σμοχα σοστορξιρ ξαθοδιτσρ χξε δοπυστινοκ οβμαστι χιςτυαμψ- ξοηο αδςεσξοηο πςοστςαξστχα πομψϊοχατεμρ. πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι MTSET (π. 8.9.8). 8.9.2. ζυξλγιρ MTDTCH ζυξλγιρ MTDTCH χωπομξρετ δεκστχιρ οβςατξωε δεκστχιρν ζυξλγιι MTATCH. εε ζυξλγιεκ ρχμρετσρ οτλμΰώεξιε ϊαδαξξοηο τεςνιξαμα οτ δαξξοηο ϊαδαξιρ, ώτοβω οξ σταμ δοστυπξων δμρ δςυηιθ ϊαδαξικ. οβςαύεξιε λ ζυξλγιι: I=MTDTCH (UNIT) ηδε UNIT - μοηιώεσλικ ξονες οσχοβοφδαενοηο τεςνιξαμα. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=2 - ξεδοπυστινωκ ξονες; τεςνιξαμ ξε ϊαλςεπμεξ; I=3 - ϊαδαξ ξονες ξεσυύεστχυΰύεηο υστςοκστχα. πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι MTSET (π. 8.9.8). 8.9.3. ζυξλγιρ MTGET ζυξλγιρ MTGET δαετ πςοηςαννε ιξζοςναγιΰ οβ οπςεδεμεξ- ξον τεςνιξαμε χ νξοηοτεςνιξαμψξοκ σιστενε. οβςαύεξιε λ ζυξλγιι: I=MTGET (UNIT,ADDR[,JOBN]) ηδε UNIT - ξονες (γεμοε) μιξιι ι τεςνιξαμα, σοστορξιε λοτοςο- ηο οπςεδεμρετσρ; ADDR - 4-σμοχξαρ οβμαστψ δμρ πομυώεξιρ ιξζοςναγιι σοστορ- ξιρ; οβμαστψ πςεδσταχμρετ σοβοκ ώετωςεθόμενεξτξωκ νασσιχ τιπα INTEGER*2; ζοςνατ δαξξωθ, ϊαξοσινωθ χ ότοτ νασσιχ οπισαξ χ σιστενξοκ ναλςολοναξδε .MTSET - 336 - (σν. π 8.9.8); JOBN - ξονες ϊαδαξιρ, σχρϊαξξοηο σ τεςνιξαμον, εσμι τες- νιξαμ ϊαξρτ δςυηιν ϊαδαξιεν. ιξζοςναγιρ ο σοστορξιι, χλμΰώαρ οπςεδεμεξιρ ςαϊςρδοχ δμρ σμοχα λοξζιηυςαγιι τεςνιξαμα ι βακτ σοστορξιρ τεςνιξα- μα, δεταμψξο οπισαξω χ σιστενξοκ ναλςολοναξδε .MTGET (σν. ποδπυξλτ 7.8.7.2). ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=2 - υστςοκστχο ξε ϊαλςεπμεξο ϊα πςοηςαννοκ; I=3 - ϊαδαξ ξονες ξεσυύεστχυΰύεηο υστςοκστχα; I=4 - τεςνιξαμ ϊαξρτ δςυηιν ϊαδαξιεν (ξονες ϊαδαώι χοϊχςαύαετσρ πςι ότον χ JOBN); I=6 - χ XM-νοξιτοςε αδςεσ νασσιχα δμρ ϊαπισι σοστορξιρ τεςνιξαμα ξαθοδιτσρ χξε δοπυστινωθ ηςαξιγ πςοηςαννω. πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι MTSET (π. 8.9.8). 8.9.4. ζυξλγιρ MTIN ζυξλγιρ MTIN πεςεδαετ σινχομω σ υλαϊαξξοηο τεςνιξαμα πςοηςαννε πομψϊοχατεμρ. ότα ζυξλγιρ πςεδσταχμρετ σοβοκ νξο- ηοσινχομψξυΰ ι νξοηοτεςνιξαμψξυΰ ζοςνυ ποδπςοηςαννω ITTINR. εσμι σινχομω οτσυτστχυΰτ, το υσταξαχμιχαετσρ ζμαη δμρ υλα- ϊαξιρ οϋιβλι πςι χωθοδε ιϊ ζυξλγιι. εσμι αςηυνεξτ - σώετώιλ σινχομοχ ξε ϊαδαξ, πεςεδαετσρ οδιξ σινχομ. οβςαύεξιε λ ζυξλγιι: I=MTIN (UNIT,CHAR[,CHRCNT][,OCNT]) ηδε UNIT - ξονες τεςνιξαμα; CHAR - πεςενεξξαρ (νασσιχ), χ λοτοςυΰ ϊαπισωχαετσρ χχε- δεξξωκ σ τεςνιξαμα σινχομ (σινχομω); CHRCNT - ξεοβρϊατεμψξωκ αςηυνεξτ, υλαϊωχαΰύικ ώισμο χχοδι- νωθ σ τεςνιξαμα σινχομοχ; OCNT - ξεοβρϊατεμψξωκ αςηυνεξτ, υλαϊωχαΰύικ ώισμο ζαλτι- ώεσλι πεςεδαξξωθ σινχομοχ. πςι ϊαπςοσε ξα χχοδ ξεσλομψλιθ σινχομοχ, εσμι βωμ υλα- ϊαξ ώετχεςτωκ, ξεοβρϊατεμψξωκ αςηυνεξτ OCNT ι ςαϊςρδ 6 χ σμοχε M.TSTS υσταξοχμεξ, το πεςενεξξαρ, υλαϊαξξαρ χ ποϊιγιι αςηυνεξτα OCNT, ποσμε χοϊχςατα ιϊ ποδπςοηςαννω βυδετ σοδες- φατψ γεμοε ώισμο ζαλτιώεσλι πεςεδαξξωθ σινχομοχ. - 337 - ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξετ χχοδα; βυζες πυστ; I=2 - τεςνιξαμ ξε ϊαλςεπμεξ ϊα πςοηςαννοκ; I=3 - ϊαδαξ ξονες ξεσυύεστχυΰύεηο τεςνιξαμα. πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι MTSET (π. 8.9.8). 8.9.5. ζυξλγιρ MTOUT ζυξλγιρ MTOUT πεςεδαετ σινχομω ξα υλαϊαξξωκ τεςνιξαμ. ότα ζυξλγιρ ρχμρετσρ νξοηοσινχομψξοκ, νξοηοτεςνιξαμψξοκ ζοςνοκ ποδπςοηςαννω ITTOUR. εσμι σιστενξωκ βυζες πεςεπομ- ξιμσρ, το υσταξαχμιχαετσρ ζμαη δμρ υλαϊαξιρ οϋιβλι πςι χωθοδε ιϊ ζυξλγιι. εσμι σώετώιλ χωχοδινωθ ϊξαλοχ ξε υλαϊαξ, το πο υνομώαξιΰ πςεδπομAηαετσρ 1. οβςαύεξιε λ ζυξλγιι: I=MTOUT (UNIT,CHAR[,CHRCNT][,OCNT]) ηδε UNIT - ξονες τεςνιξαμα ; CHAR - πεςενεξξαρ (νασσιχ) χ λοτοςοκ ξαθοδιτσρ χωχοδινωκ σινχομ (σινχομω); νασσιχ δομφεξ ινετψ τιπ LOGICAL*1, πεςενεξξαρ δομφξα σοδεςφατψ χωχοδινωκ σινχομ χ νμαδϋεν βακτε; CHRCNT - ξεοβρϊατεμψξωκ αςηυνεξτ, υλαϊωχαΰύικ λομιώεστχο χωχοδινωθ σινχομοχ; OCNT - ξεοβρϊατεμψξωκ αςηυνεξτ, υλαϊωχαΰύικ ώισμο ζαλτι- ώεσλι χωχεδεξξωθ σινχομοχ. πςι ϊαπςοσε ξα χωχοδ ξεσλομψλιθ σινχομοχ, εσμι βωμ υλαϊαξ ώετχεςτωκ ξεοβρϊατεμψξωκ αςηυνεξτ OCNT ι ςαϊςρδ 6 χ σμοχε M.TSTS υσταξοχμεξ το, ποσμε χοϊχςατα ιϊ ποδπςοηςαννω, πεςενεξξαρ, υλαϊαξξαρ χ ποϊιγιι αςηυνεξτα OCNT, βυδετ σοδεςφατψ γεμοε ώισμο ζαλτιώεσλι χωχεδεξξωθ σινχομοχ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξετ νεστα χ λομψγεχον βυζεςε χωχοδα; I=2 - τεςνιξαμ ξε ϊαλςεπμεξ ϊα ϊαδαξιεν; I=3 - ϊαδαξ ξονες ξεσυύεστχυΰύεηο τεςνιξαμα. I=5 - χ XM-νοξιτοςε; αδςεσ βυζεςα πομψϊοχατεμρ χξε δοπυστινωθ ηςαξιγ πςοηςαννω. πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι MTSET (π. 8.9.8). - 338 - 8.9.6. ζυξλγιρ MTPRNT ζυξλγιρ MTPRNT ζυξλγιοξιςυετ λαλ ποδπςοηςαννα PRINT χ υσμοχιρθ νξοηοτεςνιξαμψξοστι. οξα ποϊχομρετ οσυύεστχμρτψ χωχοδ ιξζοςναγιι ξα μΰβοκ τεςνιξαμ. οβςαύεξιε λ ζυξλγιι: I=MTPRNT (UNIT,ADDR) ηδε UNIT - ξονες τεςνιξαμα; ADDR - σινχομψξαρ στςολα, ποδμεφαύαρ χωχοδυ; ϊανετιν, ώτο μιτεςαμψξωε λοξσταξτω, ϊαδαξξωε χ λαχωώλαθ πςι ζοςτςαξοχσλον χωϊοχε ποδπςοηςανν ινεΰτ ζοςνατ ASCIZ, λοτοςωκ ϊαχεςϋαετ στςολυ βακτον 0; οβξαςυ- φεξιε βακτα 0 πςι χωχοδε ξα τεςνιξαμ πο MTPRNT (ταλφε λαλ ι πςι PRINT) ποςοφδαετ χωχοδ , ; δμρ πςεδοτχςαύεξιρ ότοηο στςολα δομφξα ϊαχεςϋατψσρ βακτον "200. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=2 - τεςνιξαμ ξε ϊαλςεπμεξ ϊα ϊαδαξιεν; I=3 - ϊαδαξ ξονες ξεσυύεστχυΰύεηο τεςνιξαμα; I=5 - χ XM-νοξιτοςε; αδςεσ βυζεςα χξε δοπυσ- τινωθ ηςαξιγ πςοηςαννω. πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι MTSET (π. 8.9.8). 8.9.7. ζυξλγιρ MTRCTO ζυξλγιρ MTRCTO ςαβοταετ ποδοβξο σιστενξοκ ναλςολοναξδε .RCTRLO χ υσμοχιι νξοηοτεςνιξαμψξοστι. ότα ζυξλγιρ οτνεξρετ δεκστχιρ λοναξδω νοξιτοςα , ποδαξξοκ σ λμαχιατυςω ϊαδαξξοηο τεςνιξαμα. οβςαύεξιε λ ζυξλγιι: I=MTRCTO (UNIT) ηδε UNIT - ξονες τεςνιξαμα; ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; - 339 - I=2 - υστςοκστχο ξε ϊαλςεπμεξο ϊα ϊαδαξιεν; I=3 - ϊαδαξ ξονες ξεσυύεστχυΰύεηο τεςνιξαμα. πςινες πςιχεδεξ χ οπισαξιι ζυξλγιι MTSET (π. 8.9.8). 8.9.8. ζυξλγιρ MTSET ζυξλγιρ MTSET ποϊχομρετ πςοηςαννε ιϊνεξρτψ ξαθοδρύιεσρ χ ταβμιγαθ νοξιτοςα θαςαλτεςιστιλι τεςνιξαμα ι μιξιι σχρϊι (ζυξλγιρ ςαβοταετ ποδοβξο σιστενξοκ ναλςολοναξδε .MTSET). υσταξοχμεξξωε θαςαλτεςιστιλι σοθςαξρΰτσρ σιστενοκ ι ισπομψ- ϊυΰτσρ εΰ πςι ςαβοτε σ υλαϊαξξων τεςνιξαμον δο νονεξτα πεςεϊαηςυϊλι σιστενω ιμι δο νονεξτα ιϊνεξεξιρ ιθ οβςαύεξιεν λαλοηο-μιβο ιϊ ϊαδαξικ λ .MTSET ιμι MTSET. οβςαύεξιε λ ζυξλγιι: I=MTSET (UNIT,ADDR) ηδε UNIT - ξονες τεςνιξαμα (ι μιξιι), θαςαλτεςιστιλι λοτοςοηο ξεοβθοδινο ιϊνεξιτψ; ADDR - ώετωςεθσμοχξαρ οβμαστψ δμρ πεςεδαώι παςανετςοχ; οβμαστψ πςεδσταχμρετ σοβοκ ώετωςεθόμενεξτξωκ νασ- σιχ τιπα INTEGER*2. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=2 - τεςνιξαμ ξε ϊαλςεπμεξ ϊα ϊαδαξιεν; I=3 - ϊαδαξ ξονες ξεσυύεστχυΰύεηο τεςνιξαμα; I=6 - χ XM-νοξιτοςε αδςεσ βυζεςα σοστορξιρ τεςνιξαμα ξαθοδιτσρ χξε δοπυστινωθ ηςαξιγ πςοηςαννω. χ πςιχεδεξξον πςινεςε πολαϊαξ τεστ ζυξλγικ, πςεδξαϊξα- ώεξξωθ δμρ ςαβοτω χ νξοηοτεςνιξαμψξον ςεφινε. πςινες. C τεστ πςοηςανν SYSLIB δμρ νξοηοτεςνιξαμψξοκ ςαβοτω C INTEGER*2 UNIT,SBLOK(4),STAT(8),ASW,STRING(41),PROM LOGICAL*1 TEND(14) REAL*4 TESTM(9) DATA PROMPT /'χχ','εδ','ιτ','ε ','στ','ςο','λυ','> DATA TEND /'*','λ','ο','ξ','ε','γ',' ','τ','ε',' * 'α','*',0/ DATA TESTM /'STAT','ATCH','GET','SET',4*",'DTCH'/ C C ισπομψϊοχαξιε MTSTAT δμρ πομυώεξιρ ι ςασπεώατλι C ώισμα τεςνιξαμοχ C - 340 - TYPE 106 ! πςεδσταχιτψσ L =1 ! L= λοδ ζυξλγ IF (MSTAT(STAT).NE.0) GOTO 999 ! πομυώιτψ στα 5 TYPE 99, STAT(3) ! χωχεστι # τε C C πομυώιτψ ξονες πςοχεςρενοηο τεςνιξαμα C TYPE 100 ! δατψ ϊαπςοσ ACCEPT 101, UNIT ! πομυώιτψ ξον IF (UNIT.EQ.99) STOP 'λοξεγ νξοηοτεςνιξαμψξοηο τε C C ϊαλςεπιτψ τεςνιξαμ ϊα ότιν ϊαδαξιεν ι πομυώιτψ εηο σοσ C TYPE 110 ! πςοχεςρτψ ACCEBT 111, IASW ! πςιξρτψ οτ IF (IASW.EQ.'Y') IER=MTATCH(UNIT,ASW, * JOB) ! ϊαλςεπιτψ IF (IASW.NE.'Y') IER=MTATCH(UNIT,0, * JOB) ! ιμι βεϊ AS L =2 IF (IER) GOTO 999 ! σοοβύιτψ ο L =3 IF (MTGET(UNIT,SBLOK).NE.0) GOTO 999 ! πομυώιτψ σ TYPE 102, UNIT, SBLOK ! ι ςαπεώατα C C πομυώιτψ ξοχωκ στατυσ τεςνιξαμα ι ςασπεώατατψ εηο C CALL SETUP(SBLOK,UNIT) ! πςοιϊχεστι ι L =4 IF (MTSET(UNIT,SBLOK).NE.0) GOTO 999! σοοβύιτψ ιθ TYPE 102, UNIT, SBLOK ! ι ςασπεώατατ C C πςοχεστι πςοχεςλυ σ όθοπεώατψΰ, ισπομψϊυρ MTIN & MTOUT C 20 TYPE 103 ! οβ'ρχιτψ πςα TYPE 104 ! πςοχεςολ TYPE 105 30 CALL MTIN(UNIT,J) ! πςιξρτψ στςο CALL MTOUT(UNIT,J) ! πςOχεςιτψ όθ IF (J.NE.10) GOTO 30 ! LF-λοξεγ στς CALL MTRCTO(UNIT) ! σβςοσιτψ . πςινες. - 352 - . . CALL ITTIME (40,24) . . 8.11. ςεϊιδεξτξωε βιβμιοτελι (TS) ζυξλγιι δαξξοκ ηςυππω ποϊχομρΰτ ισπομψϊοχατψ οδξυ ιμι ξεσλομψλο ςεϊιδεξτξωθ ςαϊδεμρενωθ (νεφδυ ξεσλομψλινι πομψ- ϊοχατεμρνι) βιβμιοτελ ιμι οβμαστεκ δαξξωθ. 8.11.1. ζυξλγιρ ISHARE δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ υσταξοχμεξιρ σχρϊι πςοηςαννω σ ςεϊιδεξτξοκ βιβμιοτελοκ. ζυξλγιρ ταλφε νοφετ οτνεξρτψ σχρϊψ πςοηςαννω σο χσενι ςεϊιδεξτξωνι βιβμιοτελα- νι. οβςαύεξιε λ ζυξλγιι: I=ISHARE (NAME) ηδε NAME - νασσιχ ιϊ δχυθ σμοχ, σοδεςφαύικ ινρ ςεϊιδεξτξοκ βιβμιοτελι (6 σινχομοχ χ λοδε RADIX-50). δεκστχιε ζυξλγιι σχοδιτσρ τομψλο λ υσταξοχμεξιΰ σχρϊι νεφδυ πςοηςαννοκ ι υλαϊαξξοκ βιβμιοτελοκ. πςι ότον οτοβςα- φεξιε χιςτυαμψξοηο αδςεσξοηο πςοστςαξστχα πςοηςαννω ξε ιϊνεξρετσρ. εσμι ςαξεε οβμαστι ϊαδαξιρ βωμι υφε οτοβςαφεξω ξα δςυηιε ςεϊιδεξτξωε βιβμιοτελι, δαξξαρ ζυξλγιρ ξε ϊατςα- ηιχαετ ότι οτοβςαφεξιρ. ποότονυ εστψ χοϊνοφξοστψ ισπομψϊο- χατψ ξεσλομψλο ςεϊιδεξτξωθ βιβμιοτελ, ξα λοτοςωε οτοβςα- φαΰτσρ χ λαφδωκ νονεξτ χςενεξι ςαϊμιώξωε χιςτυαμψξωε οβμασ- τι ϊαδαξιρ. εσμι NAME υστξοχμεξο χ 0, το δαξξαρ ζυξλγιρ οτνεξρετ σχρϊψ ϊαδαξιρ σο χσενι ςεϊιδεξτξωνι βιβμιοτελανι ι χοσστα- ξαχμιχαετ ξοςναμψξοε σοστορξιε οτοβςαφεξιρ χιςτυαμψξοηο πςοστςαξστχα ϊαδαξιρ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - υλαϊαξξαρ ςεϊιδεξτξαρ βιβμιοτελα οτσυτστχυετ. - 353 - πςινες. DIMENSION IRNTIM (2) CALL IRAD50 (6,'TSLIB',IRNTIM) IERR = ISHARE (IRNTIM) IF (IERR .EQ. 1) STOP . . 8.11.2. ζυξλγιρ ISHMAP δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ οτοβςαφεξιρ ςεϊιδεξτ- ξοκ βιβμιοτελι ξα οβμαστψ ϊαδαξιρ. σξαώαμα πςι πονούι ζυξλ- γιι ISHARE δομφξα βωτψ υσταξοχμεξα σχρϊψ νεφδυ ϊαδαξιεν ι ςεϊιδεξτξοκ βιβμιοτελοκ. οβςαύεξιε λ ζυξλγιι: I=ISHMAP (PAGE,OFF,SIZE) ηδε PAGE - ξονες στςαξιγω οτ 0 δο 7, λοτοςωκ ισπομψϊυετσρ δμρ δοστυπα λ ςεϊιδεξτξοκ βιβμιοτελε; χ ϊαχισινοστι οτ υλαϊαξξοηο ξονεςα χωβιςαετσρ οβμαστψ χιςτυαμψξοκ πανρτι ϊαδαξιρ, λοτοςαρ βυδετ οτοβςαφατψσρ ξα ςεϊιδεξτξυΰ βιβμιοτελυ; ξιφε υλαϊαξο σοοτχετστχιε νεφδυ ξονεςον στςαξιγω ι χοσψνεςιώξωνι αδςεσανι οβμαστεκ πανρτι ϊαδαξιρ: ξονες στςαξιγω χιςτυαμψξωε αδςεσα -------------- ------------------ 0 000000 - 017777 1 020000 - 037777 2 040000 - 057777 3 060000 - 077777 4 100000 - 117777 5 120000 - 137777 6 140000 - 157777 7 160000 - 177777 OFF - υλαϊωχαετ σνεύεξιε χ βμολαθ πο 64 βακτα οτξοσι- τεμψξο ξαώαμα βιβμιοτελι, σ λοτοςοηο ξαώιξαετσρ ϊοξα βιβμιοτελι, ποπαδαΰύαρ χ οτοβςαφεξιε πςοηςαν- νω; ότο ποϊχομρετ οτοβςαφατψ πςοηςαννυ ξα ςαϊμιώ- ξωε υώαστλι βιβμιοτελι; SIZE - οπςεδεμρετ ςαϊνες υώαστλα χ βμολαθ πο 64 βακτα, οτοβςαφαενοηο ξα βιβμιοτελυ; εσμι υλαϊαξξαρ δμιξα πςεχωϋαετ ςαϊνες οδξοκ χιςτυαμψξοκ στςαξιγω πςοη- ςαννω, το αχτονατιώεσλι βυδυτ ισπομψϊοχατψσρ ποσ- μεδυΰύιε στςαξιγω. δαξξαρ ζυξλγιρ χμιρετ ξα οτοβςαφεξιε τομψλο στςαξιγω, υλαϊαξξοκ πςι εε χωϊοχε, ι σμεδυΰύιθ στςαξιγ, εσμι δμιξα - 354 - οτοβςαφαενοκ οβμαστι πςεχωϋαετ ςαϊνες στςαξιγω. οτοβςαφεξιε οσταμψξωθ στςαξιγ χιςτυαμψξοηο πςοστςαξστχα ξε ιϊνεξρετσρ. ταλιν οβςαϊον, ςαϊμιώξωε στςαξιγω πςοηςαννω νοηυτ βωτψ οτοβςαφεξω ξα ςαϊμιώξωε βιβμιοτελι. πςοηςαννω ςεαμψξοηο χςενεξι νοηυτ οτοβςαφατψ στςαξιγυ σ ξονεςον 7 ξα στςαξιγυ χχοδα/χωχοδα, α δςυηιε στςαξιγω - ξα ςεϊιδεξτξωε βιβμιοτε- λι. ισπομψϊοχαξιε ςεϊιδεξτξωθ βιβμιοτελ ξε ιϊνεξρετ ςαϊνε- ςα πανρτι, χωδεμρενοκ πςοηςαννε. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξε υσταξοχμεξα σχρϊψ ξι οδξοκ ςεϊιδεξτξοκ βιβμιοτελι σ ϊαδαξιεν. χ πςινεςε ςεϊιδεξτξοκ βιβμιοτελε πςισχαιχαετσρ ινρ, υσταξαχμιχαετσρ σχρϊψ νεφδυ ϊαδαξιεν ι ςεϊιδεξτξοκ βιβμιο- τελοκ, ϊατεν πςοιϊχοδιτσρ οτοβςαφεξιε ώαστι ϊαδαξιρ ξα ςεϊιδεξτξυΰ βιβμιοτελυ ι, ξαλοξεγ, οτνεξρετσρ σχρϊψ νεφδυ ϊαδαξιεν ι ςεϊιδεξτξοκ βιβμιοτελοκ. πςινες. DIMENSION IRNTIM (2) CALL IRAD50 (6,'TMPLIB',IRNTIM) I=ISHARE (IRNTIM) I=ISHMAP (3,1,4) . . I=ISHARE (0) . . 8.12. αχτοξονξωε ϊαδαξιρ (TS) οπισαξξωε χ δαξξον ςαϊδεμε πςογεδυςω ι ζυξλγιι δαΰτ χοϊνοφξοστψ ιϊ πςοηςανν ξα ζοςτςαξε ϊαπυσλατψ ι λοξτςομιςο- χατψ χωπομξεξιε αχτοξονξωθ ϊαδαξικ. 8.12.1. ζυξλγιρ IDJKILL δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ πςελςαύεξιρ χωπομξεξιρ αχτοξονξοηο ϊαδαξιρ. I=IDJKILL (LINE) ηδε - 355 - LINE - ξονες μιξιι αχτοξονξοηο ϊαδαξιρ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - υλαϊαξ ξεχεςξωκ ξονες μιξιι. χ πςινεςε σξαώαμα ϊαπυσλαετσρ αχτοξονξοε ϊαδαξιε, α ϊατεν πςοισθοδιτ πςελςαύεξιε εηο ςαβοτω. χ σμυώαε οϋιβλι πςοηςαννα οσταξαχμιχαετσρ. πςινες. CALL IDJSTART (DJOB,LINE) . . I=IDJKILL (LINE) IF (I.EQ.1) STOP . . 8.12.2. ποδπςοηςαννα IDJSTART δαξξαρ ποδπςοηςαννα ισπομψϊυετσρ δμρ ϊαπυσλα αχτοξον- ξοηο ϊαδαξιρ. οβςαύεξιε λ ποδπςοηςαννε: CALL IDJSTART (DJOB,LINE[,IERR]) ηδε DJOB - στςολα σινχομοχ λοι-7, σοδεςφαύαρ σπεγιζιλαγιΰ ζακμα αχτοξονξοηο ϊαδαξιρ; ϊαλαξώιχαετσρ ξυμεχων βακτον; LINE - χοϊχςαύαενοε ϊξαώεξιε, ρχμρΰύεεσρ ξονεςον μιξιι, ξα λοτοςοκ ϊαπυύεξο ϊαδαξιε. οϋιβλι: IERR=0 - ξετ οϋιβολ; IERR=1 - ξετ σχοβοδξοκ μιξιι δμρ ϊαπυσλα αχτοξονξοηο ϊαδαξιρ. εσμι ινεετσρ σχοβοδξαρ αχτοξονξαρ μιξιρ, υλαϊαξξωκ λοναξδξωκ ζακμ (DJOB) ιξιγιιςυετσρ λαλ αχτοξονξοε ϊαδαξιε ι ξονες μιξιι χοϊχςαύαετσρ χ πεςενεξξοκ LINE. - 356 - πςινες. LOGICAL*1 JOBNAM (16) CALL SCOPY ('DX1:MYJOB1.COM',JOBNAM) CALL IDJSTART (JOBNAM,LINE,IERR) IF (IERR.EQ.1) STOP . . 8.12.3. ζυξλγιρ IDJTST δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ οπςεδεμεξιρ σοστορξιρ αχτοξονξοκ μιξιι. οβςαύεξιε λ ζυξλγιι: I=IDJTST (LINE) ηδε LINE - ξονες αχτοξονξοκ μιξιι. ςεϊυμψτατω ζυξλγιι: I=0 - μιξιρ σχοβοδξα; I=1 - μιξιρ ϊαξρτα. χ πςινεςε ϊαπυσλαετσρ ξα χωπομξεξιε αχτοξονξοε ϊαδα- ξιε, ϊατεν ποχτοςρετσρ οβςαύεξιε λ ζυξλγιι IDJTST δο τεθ πος, πολα μιξιρ ξε οσχοβοδιτσρ. πςινες. CALL IDJSTART (DJOB,LINE) 10 CONTINUE I=IDJTST (LINE) IF (I.EQ.1) GOTO 10 . . 8.13. ποώτοχωε ρύιλι (TS) TS-νοξιτος οβεσπεώιχαετ χοϊνοφξοστψ οβνεξα σοοβύεξιρνι νεφδυ πςοηςαννανι. σοοβύεξιρ πεςεδαΰτσρ νεφδυ πςοηςαννανι πςι πονούι σπε- γιαμψξωθ λαξαμοχ, ξαϊωχαενωθ "ποώτοχωνι ρύιλανι". πςοηςαννα ινεετ χοϊνοφξοστψ "πομοφιτψ" σοοβύεξιε χ ρύιλ. πςι ότον σοοβύεξιε σταχιτσρ χ λοξεγ οώεςεδι σοοβύεξικ. μΰβαρ δςυηαρ πςοηςαννα νοφετ ιϊχμεώψ οώεςεδξοε σοοβύεξιε ιϊ οώεςεδι λ - 357 - υλαϊαξξονυ ρύιλυ. λαφδωκ ρύιλ ινεετ υξιλαμψξοε ινρ δμιξοκ ϋεστψ ϊξαλοχ. πςι ποσωμλε ιμι πςιενε σοοβύεξιρ πςοηςαννω υλαϊωχαΰτ ξεοβ- θοδινωκ ρύιλ πο εηο ινεξι. ινεξα ρύιλοχ οπςεδεμρΰτσρ διξα- νιώεσλι, τ.ε. χ πςογεσσε χωπομξεξιρ πςοηςανν. ρύιλ σταξο- χιτσρ αλτιχξων, εσμι θοτρ βω οδξα πςοηςαννα πονεστιμα χ ξεηο σοοβύεξιε ιμι οφιδαετ οτ ξεηο σοοβύεξιρ. λοηδα ρύιλ πεςεσταετ βωτψ αλτιχξων, οξ χοϊχςαύαετσρ χ σπισολ σχοβοδξωθ ρύιλοχ. εσμι σοοβύεξιε πονεύεξο χ ρύιλ, το οξο βυδετ ταν ξαθο- διτψσρ, πολα δςυηαρ πςοηςαννα ξε ιϊχμεώετ εηο, μιβο TS-νοξιτος ξε βυδετ πεςεϊαηςυφεξ. ότο ποϊχομρετ οδξοκ πςοη- ςαννε πονεστιτψ χ ρύιλ σοοβύεξιρ, λοτοςωε βυδυτ ιϊχμεώεξω δςυηοκ πςοηςαννοκ, ϊαηςυφεξξοκ ποϊδξεε. πςινεώαξιε. πςι ηεξεςαγιι TS-νοξιτοςα οπςεδεμρετσρ ναλσιναμψξοε ώισμο οδξοχςενεξξο αλτιχξωθ ποώτοχωθ ρύιλοχ, ναλσιναμψξοε ώισμο σοοβύεξικ, πονεύεξξωθ χο χσε ποώτοχωε ρύιλι οδξοχςενεξξο, ι ναλσιναμψξωκ ςαϊνες σοοβύεξικ. 8.13.1. ποδπςοηςαννα IMGET δαξξαρ ποδπςοηςαννα ισπομψϊυετσρ δμρ ιϊχμεώεξιρ σοοβ- ύεξιρ ιϊ ποώτοχοηο ρύιλα. εσμι χ ρύιλε ξετ ξι οδξοηο σοοβ- ύεξιρ, το χοϊχςαύαετσρ λοδ οϋιβλι, ι χωϊωχαΰύαρ πςοηςαννα νοφετ πςοδομφιτψ σχοε χωπομξεξιε. οβςαύεξιε λ ποδπςοηςαννε: CALL IMGET (BOX,BUF,BUFCNT,BCNT[,IERR]) ηδε BOX - στςολα ιϊ 6 σινχομοχ χ λοδε λοι-7, σοδεςφαύαρ ινρ ποώτοχοηο ρύιλα; BUF - ινρ στςολι, χ λοτοςυΰ πονεύαετσρ σοοβύεξιε; BUFCNT - δμιξα στςολι BUF χ σινχομαθ; BCNT - δμιξα ιϊχμελαενοηο σοοβύεξιρ χ σινχομαθ; IERR - λοδ οϋιβλι. οϋιβλι: IERR=0 - ξετ οϋιβολ; σοοβύεξιε ιϊχμεώεξο; IERR=3 - χ υλαϊαξξον ρύιλε ξετ σοοβύεξιρ; IERR=4 - δμιξα πςιξρτοηο σοοβύεξιρ πςεχωϋαετ ςαϊνες βυζεςα. - 358 - χ πςινεςε πολαϊαξο, λαλ ιϊχμεώψ σοοβύεξιε ιϊ ρύιλα σ ινεξεν TEXT. χ σμυώαε οϋιβλι πςοηςαννα πςελςαύαετ ςαβοτυ. πςινες. LOGICAL*1 ICHNAM (8) LOGICAL*1 MSGBUF (72) CALL SCOPY ('TEXT ',ICHNAM) CALL IMGET (ICHNAM,MSGBUF,72,MSGSIZ,IERR) IF (IERR .NE. 0) STOP . . 8.13.2. ποδπςοηςαννα IMGETWAIT δαξξαρ ποδπςοηςαννα πςιοσταξαχμιχαετ χωπομξεξιε πςοη- ςαννω δο τεθ πος, πολα χ υλαϊαξξον ρύιλε ξε πορχιτσρ σοοβ- ύεξιε. οβςαύεξιε λ ποδπςοηςαννε: CALL IMGETWAIT (BOX,BUF,BUFCNT,BCNT[,IERR]) ηδε BOX - στςολα ιϊ 6 σινχομοχ χ λοδε λοι-7, σοδεςφαύαρ ινρ ποώτοχοηο ρύιλα; BUF - ινρ στςολι, χ λοτοςυΰ πονεύαετσρ σοοβύεξιε; BUFCNT - δμιξα στςολι BUF χ σινχομαθ; BCNT - δμιξα ιϊχμελαενοηο σοοβύεξιρ χ σινχομαθ; IERR - λοδ οϋιβλι. οϋιβλι: IERR=0 - ξετ οϋιβολ; σοοβύεξιε ιϊχμεώεξο; IERR=1 - ξετ σχοβοδξοηο ποώτοχοηο ρύιλα; IERR=4 - δμιξα πςιξρτοηο σοοβύεξιρ πςεχωϋαετ ςαϊνες βυζεςα. πςινες. LOGICAL*1 MSGBUF (72) LOGICAL*1 ICHNAM (8) CALL SCOPY ('TEXT ',ICHNAM) CALL IMGETWAIT (ICHNAM,MSGBUF,IBUFSIZ,MSGSIZ,IERR) IF (IERR .NE. 0) STOP . . - 359 - 8.13.3. ζυξλγιρ IMPUT δαξξαρ ζυξλγιρ πονεύαετ σοοβύεξιε χ οώεςεδψ ποώτοχοηο ρύιλα δμρ πεςεδαώι ότοηο σοοβύεξιρ δςυηονυ ϊαδαξιΰ. εσμι χ ρύιλε υφε ξαθοδρτσρ δςυηιε σοοβύεξιρ, ξοχοε σοοβύεξιε δοβαχμρετσρ χ λοξεγ σπισλα σοοβύεξικ. πςοηςαννα, ποσωμαΰύαρ σοοβύεξιε, πςοδομφαετ χωπομξρτψσρ ι ξε φδετ, πολα σοοβύεξιε βυδετ πςιξρτο δςυηοκ πςοηςαννοκ. χο χςενρ χωπομξεξιρ δαξξοκ ζυξλγιι σοοβύεξιε λοπιςυετσρ χο χξυτςεξξικ βυζες, ι ποσω- μαΰύαρ σοοβύεξιε πςοηςαννα ποσμε χωθοδα ιϊ ζυξλγιι νοφετ ςαϊςυϋατψ ιξζοςναγιΰ, ϊαπισαξξυΰ χ στςολε σοοβύεξιρ. οβςαύεξιε λ ζυξλγιι: I=IMPUT (BOX,BUF,BCNT) ηδε BOX - στςολα ιϊ 6 σινχομοχ χ λοδε λοι-7, σοδεςφαύαρ ινρ ποώτοχοηο ρύιλα; BUF - ινρ στςολι, σοδεςφαύεκ πεςεδαχαενοε σοοβύεξιε; BCNT - δμιξα πεςεδαχαενοηο σοοβύεξιρ χ σινχομαθ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - ξετ σχοβοδξοηο ποώτοχοηο ρύιλα; I=2 - χ οώεςεδι υφε ξαθοδιτσρ ναλσιναμψξο χοϊνοφξοε λομιώεστχο σοοβύεξικ; I=4 - πεςεδαχαενοε σοοβύεξιε σμιϋλον χεμιλο, ι εηο ςαϊνες υσελαετσρ δο ναλσιναμψξο χοϊνοφξοκ δμιξω. χ πςινεςε σοοβύεξιε 'THIS IS AN EXAMPLE' πονεύαετσρ χ ποώτοχωκ ρύιλ σ ινεξεν TEXT. χ σμυώαε οϋιβλι πςοηςαννα πςελςαύαετ χωπομξεξιε. πςινες. LOGICAL*1 MSGBUF (18) LOGICAL*1 ICHNAM (8) CALL SCOPY ('THIS IS AN EXAMPLE',MSGBUF) CALL SCOPY ('TEXT ',ICHNAM) IERR = IMPUT (ICHNAM,MSGBUF,18) IF (IERR .NE. 0) STOP . . - 360 - 8.14. σςεδστχα ςεαμψξοηο χςενεξι (TS) χ βιβμιοτελυ SYSLIB.OBJ δμρ TS-νοξιτοςα χλμΰώεξω σςεδστχα, ποϊχομρΰύιε πςοηςανναν χωπομξρτψσρ χ ςεφινε ςεαμψξοηο χςενεξι οδξοχςενεξξο σ οβσμυφιχαξιεν ϊαδαξικ χ ςεφινε ςαϊδεμεξιρ χςενεξι. ισπομψϊοχατψ ποδπςοηςαννω ςεαμψξοηο χςενεξι νοφετ τομψλο πςιχιμεηιςοχαξξωκ πομψϊοχατεμψ. δαξξωε σςεδστχα ςεαμψξοηο χςενεξι δοστυπξω δμρ ισπομψϊοχαξιρ λαλ ξα οβωώξωθ μιξιρθ TS-νοξιτοςα, ταλ ι χ αχτοξονξωθ ϊαδαξιρθ. αχτοξονξωε ϊαδαξιρ βυδυτ πςιχιμεηιςοχαξξωνι χ τον σμυώαε, εσμι πομψϊο- χατεμψ, ϊαπυσλαΰύικ ιθ, ρχμρετσρ πςιχιμεηιςοχαξξων. οσξοχξοκ χοϊνοφξοστψΰ, λοτοςαρ τςεβυετσρ πςι ςαβοτε χ ςεφινε ςεαμψξοηο χςενεξι, ρχμρετσρ δοστυπ λ στςαξιγε χχοδα/χωχοδα. πςι ςαβοτε χ ςεφινε ςαϊδεμεξιρ χςενεξι ταλαρ χοϊνοφξοστψ οτσυτστχυετ. οβωώξο ότα στςαξιγα ξε οτοβςαφαετ- σρ ξα στςαξιγυ χχοδα/χωχοδα, α οτοβςαφαετσρ ξα οβμαστψ πανρτι, ινιτιςυΰύυΰ "ςεϊιδεξτξωκ" νοξιτος. ότο ποϊχομρετ πςοηςανναν, ξεποσςεδστχεξξο οβςαύαΰύινσρ λ σνεύεξιρν χ RMON, χωπομξρτψσρ πςαχιμψξο. πςοηςαννω ςεαμψξοηο χςενεξι νοηυτ πομυώιτψ δοστυπ λ στςαξιγε χχοδα/χωχοδα δχυνρ σποσοβανι: - οτοβςαϊιτψ οβμαστψ πςοηςαννω ξα στςαξιγυ χχοδα/χωχοδα; - οσταχιτψ ξοςναμψξοε οτοβςαφεξιε ι ισπομψϊοχατψ ποδπςοηςαννω IOGET, IOPUT, IOBIS, IOBIC δμρ δοστυ- πα λ ςεηιστςαν υστςοκστχ, ξαθοδρύιθσρ χ στςαξιγε χχοδα/χωχοδα οβύεκ ϋιξω. οτοβςαφεξιε ξα στςαξιγυ χχοδα/χωχοδα ρχμρετσρ βομεε όζζελτιχξων πο σςαχξεξιΰ σ ισπομψϊοχαξιεν ποδπςοηςανν. οδξαλο, οτοβςαφεξιε ξε σνοφετ ξοςναμψξο ισπομψϊοχατψσρ, εσμι πςι ότον πςοηςαννε ξεοβθοδινο οβςαύατψσρ λ ταβμιγαν ςεϊιδεξτξοηο νοξιτοςα RMON. ισπςαχιτψ ότυ πςοβμενυ νοφξο ισπομψϊοχαξιεν ποδπςοηςαννω ISPY ιϊ σιστενξοκ βιβμιοτελι δμρ δοστυπα λ ταβμιγαν νοξιτοςα. ότο οβεσπεώιτ πςαχιμψξωκ δοστυπ λ ταβμιγαν νοξιτοςα δαφε, εσμι ώαστψ πςοηςαννω οτοβ- ςαφαετσρ ξα στςαξιγυ χχοδα/χωχοδα. σςεδστχα ςεαμψξοηο χςενεξι ποϊχομρΰτ πςοηςαννε "ποδλ- μΰώιτψ" οβςαβοτλυ πςεςωχαξικ λ ποδπςοηςαννε ϊαχεςϋεξιρ. εσμι ότο σδεμαξο, το λαφδωκ ςαϊ πςι πςεςωχαξιι υπςαχμεξιε βυδετ πεςεδαχατψσρ ξα υλαϊαξξυΰ ποδπςοηςαννυ ϊαχεςϋεξιρ. οδξα ποδπςοηςαννα ϊαχεςϋεξιρ νοφετ βωτψ σχρϊαξα σ βομεε ώεν οδξιν χελτοςον πςεςωχαξιρ, οδξαλο, ποδλμΰώεξιε ξεσλομψλιθ ϊαδαξικ λ οδξονυ χελτοςυ ρχμρετσρ ξεδοπυστινων. δμρ λαφδοκ ποδπςοηςαννω ϊαχεςϋεξιρ νοφετ βωτψ υλαϊαξ πςιοςιτετ, ξα λοτοςον οξα βυδετ χωπομξρτψσρ. ότο ξε ινεετ ξιώεηο οβύεηο σ αππαςατξων πςιοςιτετον πςεςωχαξιρ. χσε ποδπςοηςαννω ϊαχεςϋεξιρ χωπομξρΰτσρ σιξθςοξξο σ ϊαδαξιρνι ξα πςιοςιτετε 0 πςογεσσοςα. πςιοςιτετ ποδπςοηςαννω ϊαχεςϋε- - 361 - ξιρ ισπομψϊυετσρ πμαξιςοχύιλον νοξιτοςα πςι ϊαπυσλε εε ξα χωπομξεξιε. δοπυστινωκ διαπαϊοξ πςιοςιτετοχ οτ 0 δο 7. χωπομξεξιε ποδπςοηςαννω ϊαχεςϋεξιρ ςεαμψξοηο χςενεξι οδξοηο ϊαδαξιρ βυδετ πςεςχαξο ι πςιοσταξοχμεξο, εσμι πςοιϊοκδετ πςεςωχαξιε, χωϊωχαΰύεε ϊαπυσλ ποδπςοηςαννω ϊαχεςϋεξιρ βομεε χωσολοηο πςιοςιτετα δμρ δςυηοηο ϊαδαξιρ. πςιοςιτετω 1-7 ρχμρΰτσρ πςιοςιτετανι ςεαμψξοηο χςενε- ξι. οξι βομεε πςιοςιτετξω, ώεν μΰβοκ πςιοςιτετ ςαϊδεμεξιρ χςενεξι. πςιοςιτετ ποδπςοηςαννω ϊαχεςϋεξιρ, ςαχξωκ 0, ξε ρχμρετσρ πςιοςιτετον ςεαμψξοηο χςενεξι, ξο οξ ρχμρετσρ σανων χωσολιν πςιοςιτετον ςαϊδεμεξιρ χςενεξι. δμρ ποδπςοη- ςανν ϊαχεςϋεξιρ πςιοςιτετα 0 πςογεσσοςξοε χςενρ χωδεμρετσρ λχαξτανι. εσμι ποδπςοηςαννα ϊαχεςϋεξιρ πεςεθοδιτ χ σοστορ- ξιε οφιδαξιρ, το οξα τεςρετ σχοκ πςιοςιτετ ςεαμψξοηο χςενε- ξι. ϊαδαξιε ςεαμψξοηο χςενεξι, σοδεςφαύεε ποδοβξωε ποδπςοη- ςαννω ϊαχεςϋεξιρ, νοφετ ξε ϊαλςεπμρτψσρ χ πανρτι (χ ότον ξετ ξεοβθοδινοστι). γεμεσοοβςαϊξο ϊαλςεπμρτψ χ πανρτι τε ϊαδαξιρ ςεαμψξοηο χςενεξι, χςενρ ςεαλγιι λοτοςωθ ξα πςεςωχαξιε δομφξο βωτψ νιξιναμψξων. χοϊνοφξοστψ ϊαλςεπμεξιρ χ πανρτι δομφξα ισπομψϊοχατψσρ οστοςοφξο, ποσλομψλυ ξεσλομψλο λςυπξωθ ϊαδα- ξικ, ϊαλςεπμεξξωθ χ πανρτι, νοηυτ ξε οσταχιτψ σχοβοδξοηο νεστα δμρ ϊαπυσλα ι ςαβοτω δςυηιθ πςοηςανν. 8.14.1. ποδπςοηςαννα ICONVIR δαξξαρ πςοηςαννα ισπομψϊυετσρ δμρ πςεοβςαϊοχαξιρ χις- τυαμψξοηο αδςεσα χ ζιϊιώεσλικ. πεςεδ χωπομξεξιεν πςοηςαννω ϊαδαξιε δομφξο βωτψ ϊαλςεπμεξο χ πανρτι. οβςαύεξιε λ ποδπςοηςαννε: CALL ICONVIR (VADDR,BUF[,IERR]) ηδε VADDR - χιςτυαμψξωκ αδςεσ, λοτοςωκ ξαδο πςεοβςαϊοχατψ; BUF - ινρ νασσιχα ιϊ δχυθ σμοχ, χ λοτοςωκ βυδετ πονεύεξ ζιϊιώεσλικ αδςεσ; νμαδϋιε 16 ςαϊςρδοχ ζιϊιώεσλοηο αδςεσα ϊαπισωχαΰτσρ χ πεςχωκ όμενεξτ νασσιχα, α σταςϋιε 2 ςαϊςρδα ζιϊιώεσλοηο αδςεσα πονεύαΰτσρ χ ςαϊςρδω 4 ι 5 χτοςοηο σμοχα νασσιχα. οϋιβλι: IERR < 0 - οβωώξωκ χωθοδ; IERR = 0 - σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξξων. - 362 - χ πςινεςε πςοηςαννα σξαώαμα ϊαλςεπμρετσρ χ πανρτι, ϊατεν πςοιϊχοδιτσρ πςεοβςαϊοχαξιε χιςτυαμψξοηο αδςεσα χ ζιϊιώεσλικ. πςοηςαννα χ σμυώαε οϋιβλι πςελςαύαετ σχοε χωπομξεξιε. πςινες. DIMENSION IPADR (2) I=IMLOCK () CALL ICONVIR ("54720,IPADR,I) IF (I .EQ. 0) STOP . . 8.14.2. ζυξλγιρ IENSWAP δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ οτνεξω ϊαλςεπμεξιρ πςοηςαννω χ πανρτι. οβςαύεξιε λ ζυξλγιι: I=IENSWAP () ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξξων. χ πςινεςε σξαώαμα πςοηςαννα ϊαλςεπμρετσρ χ πανρτι, ϊατεν χωπομξρετσρ οτνεξα ϊαλςεπμεξιρ πςοηςαννω. πςινες. I=IMLOCK () . . I=IENSWAP () . . 8.14.3. ζυξλγιρ IMLOCK δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ ϊαλςεπμεξιρ ϊαδαξιρ χ πανρτι βεϊ πεςενεύεξιρ, τ.ε. πςοηςαννα ϊαλςεπμρετσρ χ τοκ οβμαστι πανρτι, χ λοτοςοκ οξα βωμα ςασπομοφεξα χ νονεξτ χωπομξεξιρ δαξξοκ ζυξλγιι. - 363 - οβςαύεξιε λ ζυξλγιι: I=IMLOCK () ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξξων. ϊαδαξιε οσταετσρ ϊαλςεπμεξξων χ πανρτι δο τεθ πος, πολα οξο ξε ϊαλοξώιτ σχοε χωπομξεξιε, μιβο ξε βυδετ ισπομψ- ϊοχαξα ζυξλγιρ IENSWAP. χ πςινεςε ϊαδαξιε ϊαλςεπμρετσρ χ πανρτι βεϊ πεςενεύε- ξιρ. πςοηςαννα χ σμυώαε οϋιβλι πςελςαύαετ χωπομξεξιε. πςινες. IERR=IMLOCK () IF (IERR .EQ. 0) STOP . . 8.14.4. ζυξλγιρ IPOLOCK δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ ϊαλςεπμεξιρ ϊαδαξιρ χ νμαδϋεκ πανρτι, τ.ε. πςοηςαννα σξαώαμα πεςενεύαετσρ χ νμαδ- ϋυΰ πανρτψ ι ϊατεν ϊαλςεπμρετσρ ταν. ταλοκ σποσοβ ϊαλςεπε- μεξιρ πςοηςαννω ρχμρετσρ οτξοσιτεμψξο νεδμεξξων ι δομφεξ ισπομψϊοχατψσρ χ τον σμυώαε, λοηδα πςοηςαννα οσταετσρ ϊαλ- ςεπμεξξοκ χ πανρτι χ τεώεξιε δμιτεμψξοηο πεςιοδα χςενεξι. οβςαύεξιε λ ζυξλγιι: I=IPOLOCK () ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξξων. ϊαδαξιε οσταετσρ ϊαλςεπμεξξων χ πανρτι δο τεθ πος, πολα οξο ξε ϊαλοξώιτ σχοε χωπομξεξιε, μιβο ξε βυδετ ισπομψ- ϊοχαξα ζυξλγιρ IENSWAP. χ πςινεςε πςοηςαννα ϊαλςεπμρετσρ χ νμαδϋεκ πανρτι ι χ σμυώαε οϋιβλι πςελςαύαετ σχοε χωπομξεξιε. - 364 - πςινες. IERR=IPOLOCK () IF (IERR .EQ. 0) STOP . . 8.14.5. ζυξλγιρ INTCON δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ ποδλμΰώεξιρ ποδπςοη- ςαννω ϊαχεςϋεξιρ λ χελτοςυ πςεςωχαξιρ. οβςαύεξιε λ ζυξλγιι: I=INTCON (VEC,CRTN,PRI) ηδε VEC - αδςεσ χελτοςα πςεςωχαξιρ; CRTN - στςολα ιϊ 6 σινχομοχ χ λοδε λοι-7, σοδεςφαύαρ ινρ ποδπςοηςαννω ϊαχεςϋεξιρ; PRI - πςιοςιτετ ποδπςοηςαννω ϊαχεςϋεξιρ χ διαπαϊοξε οτ 0 δο 7. ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξξων; I = 1 - ναλσιναμψξοε ώισμο πςεςωχαξικ υφε οπςεδεμεξο; I = 2 - δςυηαρ πςοηςαννα υφε ισπομψϊυετ ότοτ χελτος. χελτος οσταετσρ ποδλμΰώεξξων λ ποδπςοηςαννε ϊαχεςϋεξιρ δο τεθ πος, πολα πςοηςαννα ξε ϊαλοξώιτ σχοΰ ςαβοτυ ιμι ξε βυδετ χωπομξεξα ζυξλγιρ INTFRE. χ πςινεςε ποδπςοηςαννα ϊαχεςϋεξιρ οβ'ρχμρετσρ λαλ χξεϋξρρ ι ποδλμΰώαετσρ λ χελτοςυ πςεςωχαξιρ. χ σμυώαε οϋιβ- λι πςοηςαννα πςελςαύαετ σχοε χωπομξεξιε. πςινες. EXTERNAL CPLRTN IERR=INTCON ("320,CPLRTN,3) IF (IERR .GE. 0) STOP . . - 365 - 8.14.6. ζυξλγιρ INTFRE δαξξαρ ζυξλγιρ οτνεξρετ σχρϊψ χελτοςα πςεςωχαξιρ σ ποδπςοηςαννοκ ϊαχεςϋεξιρ. ότα ζυξλγιρ ισπομψϊυετσρ τομψλο ποσμε τοηο, λαλ σχρϊψ χελτοςα πςεςωχαξιρ σ ποδπςοηςαννοκ ϊαχεςϋεξιρ βωμα υσταξοχμεξα ζυξλγιεκ INTCON. οβςαύεξιε λ ζυξλγιι: I=INTFRE (VEC) ηδε VEC - αδςεσ χελτοςα πςεςωχαξιρ. ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξξων. χ πςινεςε ποδπςοηςαννα ϊαχεςϋεξιρ οβ'ρχμρετσρ λαλ χξεϋξρρ, υσταξαχμιχαετσρ σχρϊψ εε σ χελτοςον πςεςωχαξιρ, α ϊατεν οτνεξρετσρ σχρϊψ ποδπςοηςαννω ϊαχεςϋεξιρ σ χελτοςον πςεςωχαξιρ. πςινες. EXTERNAL CPLRTN I=INTCON ("320,CPLRTN,0) . . I=INTFRE ("320) . . 8.14.7. ζυξλγιρ IOBIC δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ χωπομξεξιρ οπεςαγιι οώιστλι ςαϊςρδοχ χ ρώεκλε, ςασπομοφεξξοκ ξα στςαξιγε χχοδα/χωχοδα, βεϊ οτοβςαφεξιρ οβμαστι χιςτυαμψξοηο αδςεσξο- ηο πςοστςαξστχα ϊαδαξιρ ξα στςαξιγυ χχοδα/χωχοδα. οβςαύεξιε λ ζυξλγιι: I=IOBIC (ADDR,WORD) ηδε ADDR - αδςεσ σμοχα ξα στςαξιγε χχοδα/χωχοδα, λ λοτοςονυ - 366 - ξεοβθοδινο πομυώιτψ δοστυπ; WORD - ϊξαώεξιε, ισπομψϊυενοε χ λαώεστχε νασλι δμρ οώιστ- λι ςαϊςρδοχ. ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξξων. χ πςινεςε οώιύαΰτσρ ςαϊςρδω χ ςεηιστςε, ινεΰύεν χοσψ- νεςιώξωκ αδςεσ 176500 ξα στςαξιγε χχοδα/χωχοδα. χ σμυώαε οϋιβλι πςοηςαννα πςελςαύαετ σχοε χωπομξεξιε. πςινες. IERR=IOBIC ("176500,"100) IF (IERR .EQ. 0) STOP . . 8.14.8. ζυξλγιρ IOBIS δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ υσταξοχλι ςαϊςρδοχ χ ρώεκλε, ςασπομοφεξξοκ ξα στςαξιγε χχοδα/χωχοδα, βεϊ οτοβςα- φεξιρ οβμαστι χιςτυαμψξοηο αδςεσξοηο πςοστςαξστχα ϊαδαξιρ ξα στςαξιγυ χχοδα/χωχοδα. οβςαύεξιε λ ζυξλγιι: I=IOBIS (ADDR,WORD) ηδε ADDR - αδςεσ σμοχα ξα στςαξιγε χχοδα/χωχοδα, λ λοτοςονυ ξεοβθοδινο πομυώιτψ δοστυπ; WORD - ϊξαώεξιε, ισπομψϊυενοε χ λαώεστχε νασλι δμρ υστα- ξοχλι ςαϊςρδοχ. ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξξων. χ πςινεςε υσταξαχμιχαετσρ ςαϊςρδ χ ςεηιστςε, ινεΰύεν χοσψνεςιώξωκ αδςεσ 176500 ξα στςαξιγε χχοδα/χωχοδα. χ σμυ- - 367 - ώαε οϋιβλι πςοηςαννα πςελςαύαετ σχοε χωπομξεξιε. πςινες. IERR=IOBIS ("176500,"100) IF (IERR .EQ. 0) STOP . . 8.14.9. ποδπςοηςαννα IOGET δαξξαρ ποδπςοηςαννα ισπομψϊυετσρ δμρ σώιτωχαξιρ σοδες- φινοηο ςεηιστςα (οδξο σμοχο), ςασπομοφεξξοηο ξα στςαξιγε χχοδα/χωχοδα, βεϊ οτοβςαφεξιρ οβμαστι χιςτυαμψξωθ αδςεσοχ πςοηςαννω ξα στςαξιγυ χχοδα/χωχοδα. οβςαύεξιε λ ποδπςοηςαννε: CALL IOGET (ADDR,VALUE[,IERR]) ηδε ADDR - αδςεσ σμοχα ξα στςαξιγε χχοδα/χωχοδα, λ λοτοςονυ ξαδο πομυώιτψ δοστυπ; VALUE - ϊξαώεξιε, σώιταξξοε ιϊ ςεηιστςα; IERR - λοδ οϋιβλι. οϋιβλι: IERR < 0 - οβωώξωκ χωθοδ; IERR = 0 - σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξξων. χ πςινεςε σώιτωχαετσρ σοδεςφινοε ςεηιστςα σ χοσψνεςιώ- ξων αδςεσον 176502 ξα στςαξιγε χχοδα/χωχοδα. χ σμυώαε οϋιβ- λι πςοηςαννα πςελςαύαετ σχοε χωπομξεξιε. πςινες. CALL IOGET ("176502,IRET,IERR) IF (IERR .EQ. 0) STOP . . - 368 - 8.14.10. ζυξλγιρ IOPUT δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ πεςεσωμλι οδξοηο σμοχα χ ςεηιστς ξα στςαξιγε χχοδα/χωχοδα βεϊ οτοβςαφεξιρ οβμαστι χιςτυαμψξοηο αδςεσξοηο πςοστςαξστχα ϊαδαξιρ ξα στςαξιγυ χχοδα/χωχοδα. οβςαύεξιε λ ζυξλγιι: I=IOPUT (ADDR,WORD) ηδε ADDR - αδςεσ σμοχα ξα στςαξιγε χχοδα/χωχοδα, λ λοτοςονυ ξαδο πομυώιτψ δοστυπ; WORD - σμοχο, πεςεσωμαενοε χ ςεηιστς χξεϋξεηο υστςοκστχα ξα στςαξιγε χχοδα/χωχοδα. ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα ςεαμψξοηο χςενεξι ξε βωμι χλμΰώεξω πςι ηεξεςαγιι TS-νοξιτοςα, ιμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξξων. χ πςινεςε ϊξαώεξιε πεςεσωμαετσρ χ ςεηιστς ξα στςαξιγε χχοδα/χωχοδα σ χοσψνεςιώξων αδςεσον 176506. χ σμυώαε οϋιβλι πςοηςαννα πςελςαύαετ σχοε χωπομξεξιε. πςινες. IERR=IOPUT ("176506,"101) IF (IERR .EQ. 0) STOP . . 8.14.11. ποδπςοηςαννα IOMAP δαξξαρ ποδπςοηςαννα ισπομψϊυετσρ δμρ οτοβςαφεξιρ σεδψ- νοκ στςαξιγω χιςτυαμψξοηο αδςεσξοηο πςοστςαξστχα (χοσψνε- ςιώξωε αδςεσα 160000-177777) ξα στςαξιγυ χχοδα/χωχοδα. οβςαύεξιε λ ποδπςοηςαννε: CALL IOMAP οτοβςαφεξιε, πομυώεξξοε ποσμε χωπομξεξιρ δαξξοκ ποδπ- ςοηςαννω, σοθςαξρετσρ δο τεθ πος, πολα πςοηςαννα ξε ϊαλοξ- ώιτ σχοΰ ςαβοτυ, μιβο ξε βυδετ ισπομψϊοχαξα ποδπςοηςαννα IOUNMAP. δαξξυΰ ποδπςοηςαννυ νοφετ ισπομψϊοχατψ τομψλο πςι- - 369 - χιμεηιςοχαξξωκ πομψϊοχατεμψ. 8.14.12. ποδπςοηςαννα IOUNMAP δαξξαρ ποδπςοηςαννα ισπομψϊυετσρ δμρ οτνεξω οτοβςαφε- ξιρ σεδψνοκ στςαξιγω χιςτυαμψξοηο αδςεσξοηο πςοστςαξστχα ξα στςαξιγυ χχοδα/χωχοδα. οβςαύεξιε λ ποδπςοηςαννε: CALL IOUNMAP δαξξυΰ ποδπςοηςαννυ νοφετ ισπομψϊοχατψ τομψλο πςιχιμε- ηιςοχαξξωκ πομψϊοχατεμψ. 8.15. ςαϊδεμρενωε ζακμω (TS) ισπομψϊοχαξιε ςαϊδεμρενωθ ζακμοχ γεμεσοοβςαϊξο χ τεθ σμυώαρθ, λοηδα πςοηςαννω, ϊαπυύεξξωε σ ςαϊμιώξωθ τεςνιξα- μοχ, οβξοχμρΰτ ιξζοςναγιΰ, θςαξρύυΰσρ χ οδξον ι τον φε ζακ- με. βμολιςυρ οδιξ ιμι βομεε βμολοχ ςαϊδεμρενοηο ζακμα, πςοηςαννα νοφετ πομυώιτψ νοξοπομψξωκ δοστυπ λ ότιν βμολαν. δςυηιε πομψϊοχατεμι, πωταΰύιεσρ ϊαβμολιςοχατψ τε φε βμολι, ξε σνοηυτ πομυώιτψ δοστυπ λ ξιν, πολα πεςχαρ πςοηςαννα ξε ςαϊβμολιςυετ ιθ. δμρ οβξοχμεξιρ ςαϊδεμρενοηο ζακμα, λ λοτοςονυ ινεΰτ δοστυπ ξεσλομψλο πςοηςανν, ςελονεξδυετσρ χωπομξιτψ σμεδυΰ- ύιε ϋαηι: 1) οτλςωτψ ζακμ; 2) οβ'ρχιτψ ζακμ ςαϊδεμρενων; 3) ϊαβμολιςοχατψ χσε βμολι, λοτοςωε σοδεςφατ ξυφξυΰ ϊαπισψ; 4) σώιτατψ ϊαβμολιςοχαξξωε βμολι χ πανρτψ; 5) οβξοχιτψ ϊαπισψ; 6) ϊαπισατψ σλοςςελτιςοχαξξωε βμολι χ ζακμ; 7) ςαϊβμολιςοχατψ βμολι; 8) ποχτοςιτψ ϋαηι 3-7 φεμαενοε ώισμο ςαϊ; 9) ϊαλςωτψ ζακμ. 8.15.1. ζυξλγιρ ISFLOCK δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ ϊαπςεύεξιρ δοστυπα λ υλαϊαξξονυ βμολυ ιϊ δςυηιθ πςοηςανν. εσμι ϊαπςαϋιχαενωκ βμολ υφε ϊαβμολιςοχαξ δςυηοκ πςοηςαννοκ, το δαξξαρ πςοηςαν- να βυδετ πςιοσταξοχμεξα δο τεθ πος, πολα ξυφξωκ βμολ ξε - 370 - σταξετ δοστυπξων. οβςαύεξιε λ ζυξλγιι: I=ISFLOCK (CHAN,BLK) ηδε CHAN - ξονες λαξαμα, οτλςωτοηο δμρ ςαϊδεμρενοηο ζακμα; BLK - ξονες βμολα, λοτοςωκ δομφεξ βωτψ ϊαβμολιςοχαξ. χσε δςυηιε βμολι ζακμα, λοτοςωε βωμι ϊαβμολιςοχαξω ςαξεε, οσταΰτσρ ϊαβμολιςοχαξξωνι. εσμι χ λαώεστχε ξονεςα βμολα υλαϊαξο ϊξαώεξιε -1, το τςεβυετσρ ϊαβμολιςοχατψ χσε βμολι ζακμα. εσμι ξεσλομψλο πομψϊοχατεμεκ τςεβυΰτ ϊαβμολι- ςοχατψ οδιξ ι τοτ φε βμολ, δοστυπ λ ότονυ βμολυ οξι πομυ- ώαΰτ ποσμεδοχατεμψξο χ ποςρδλε ποστυπμεξιρ ϊαπςοσοχ. ςεϊυμψτατω ζυξλγιι: I = 0 - οβωώξωκ χωθοδ; I = 1 - λαξαμ ξε οτλςωτ δμρ ςαϊδεμρενοηο ζακμα; I = 2 - τςεβυετσρ ϊαβμολιςοχατψ σμιϋλον νξοηο βμολοχ χ ζακμε. χ πςινεςε ζακμ οτλςωχαετσρ, οβ'ρχμρετσρ ςαϊδεμρενων, ϊατεν βμολιςυΰτσρ χσε βμολι ζακμα. χ σμυώαε οϋιβλι πςοηςαν- να πςελςαύαετ σχοΰ ςαβοτυ. πςινες. CALL ASSIGN (40,'DK:FILE.DAT') ICHAN=ILUN (40) I=ISFOPEN (ICHAN,0) I=ISFLOCK (ICHAN,-1) IF (I .NE. 0) STOP . . 8.15.2. ζυξλγιρ ISFOPEN δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ οβ'ρχμεξιρ ζακμα ςαϊ- δεμρενων. οβςαύεξιε λ ζυξλγιι: I=ISFOPEN (CHAN,CODE) ηδε CHAN - ξονες λαξαμα δμρ ςαϊδεμρενοηο ζακμα; CODE - λοδ, οπςεδεμρΰύικ δοπυστινωε οπεςαγιι ξαδ ζακμον; - 371 - πςιξιναετ σμεδυΰύιε ϊξαώεξιρ: λοδ δοστυπ δμρ δοστυπ δμρ δςυηοηο δαξξοηο πομψϊοχατεμρ πομψϊοχατεμρ --- ------------- ------------ 0 ϊαπςεύεξ ώτεξιε 1 ϊαπςεύεξ ώτεξιε/ϊαπισψ 2 ώτεξιε ώτεξιε 3 ώτεξιε ώτεξιε/ϊαπισψ 4 ώτεξιε/ϊαπισψ ώτεξιε 5 ώτεξιε/ϊαπισψ ώτεξιε/ϊαπισψ ςεϊυμψτατω ζυξλγιι: I = 0 - οβωώξωκ χωθοδ; I = 1 - λαξαμ ξε οτλςωτ δμρ ςαϊδεμρενοηο ζακμα; I = 2 - ποπωτλα οτλςωτψ σμιϋλον νξοηο λαξαμοχ δμρ ςαϊδεμρενωθ ζακμοχ; I = 3 - ποπωτλα οτλςωτψ σμιϋλον νξοηο ςαϊδεμρενωθ ζακμοχ; I = 4 - λοξζμιλτ νεφδυ τςεβυενοκ οπεςαγιεκ ι λοδον δοστυπα λ ζακμυ. χ πςινεςε οτλςωχαετσρ ζακμ, οβ'ρχμρετσρ ςαϊδεμρενων σ λοδον δοστυπα 1, τ.ε. δαξξαρ πςοηςαννα νοφετ πςοιϊχοδιτψ οπεςαγιι ώτεξιρ ι ϊαπισι, δςυηιν πςοηςανναν δοστυπ λ δαξξο- νυ ζακμυ ϊαπςεύεξ. πςινες. CALL ASSIGN (40,'DK:FILE.DAT') ICHAN=ILUN (40) IERR=ISFOPEN (ICHAN,1) IF (IERR .NE. 0) STOP . . 8.15.3. ποδπςοηςαννα ISFSAVE δαξξαρ ποδπςοηςαννα ισπομψϊυετσρ δμρ σοθςαξεξιρ στατυ- σα ςαϊδεμρενοηο ζακμα. χ ςεϊυμψτατε χωπομξεξιρ δαξξοκ ποδπ- ςοηςαννω χςενεξξο οτνεξρετσρ σχρϊψ νεφδυ ταβμιγεκ ςαϊδεμρε- νωθ ζακμοχ ι λαξαμον χχοδα/χωχοδα. χσε βμολι, λοτοςωε βωμι ϊαβμολιςοχαξω χ ζακμε χ δαξξωκ νονεξτ, οσταΰτσρ ϊαβμολιςο- χαξξωνι δο τεθ πος, πολα λαξαμ χξοχψ ξε βυδετ οτλςωτ ποδπ- ςοηςαννοκ REOPEN. ποσμε χωπομξεξιρ ποδπςοηςαννω ISFSAVE λαξαμ νοφετ βωτψ πεςελμΰώεξ σ πονούψΰ ποδπςοηςαννω PURGE. οβςαύεξιε λ ποδπςοηςαννε: CALL ISFSAVE (CHAN) - 372 - ηδε CHAN - ξονες λαξαμα δμρ ςαϊδεμρενοηο ζακμα. εσμι δμρ δοστυπα λ ξεσλομψλιν ςαϊδεμρενων ζακμαν ισπομψϊυετσρ οδιξ λαξαμ, το υδοβξο σξαώαμα οτλςωτψ ζακμ, οβ'ρχιτψ εηο ςαϊδεμρενων ι ϊατεν σοθςαξιτψ στατυσ ζακμα πςι πονούι ποδπςοηςαννω ISAVES. λαξαμ, ισπομψϊυενωκ δμρ δοστυπα λ ότιν ζακμαν, νοφετ πεςελμΰώατψσρ σ οδξοηο ζακμα ξα δςυηοκ πςι πονούι ποδπςοηςανν PURGE ι REOPEN. οδξαλο, πςεφδε, ώεν χωπομξιτψ ποδπςοηςαννυ PURGE, ξεοβθοδινο χωπομξιτψ ποδπςοη- ςαννυ ISFSAVE, ώτοβω σοθςαξιτψ στατυσ ςαϊδεμρενοηο ζακμα, ιξαώε χσε ϊαβμολιςοχαξξωε βμολι βυδυτ ςαϊβμολιςοχαξω, ι ζακμ βυδετ ισλμΰώεξ ιϊ σπισλα ςαϊδεμρενωθ ζακμοχ. οϋιβλι οτσυτστχυΰτ. χ πςινεςε οτλςωχαετσρ ζακμ, οβ'ρχμρετσρ ςαϊδεμρενων, ι ϊατεν χωπομξρετσρ ποδπςοηςαννα, σοθςαξρΰύαρ στατυσ δμρ ότο- ηο ςαϊδεμρενοηο ζακμα. πςινες. CALL ASSIGN (30,'DK:SOME.FIL') ICHAN=ILUN (30) I=ISFOPEN (ICHAN,4) . . CALL ISFSAVE (ICHAN) . . 8.15.4. ζυξλγιρ ISFTLOCK δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ βμολιςοχαξιρ υλαϊαξξο- ηο βμολα χ ςαϊδεμρενον ζακμε. εσμι τςεβυενωκ βμολ ξε δοστυ- πεξ, το ζυξλγιρ ϊαλαξώιχαετ ςαβοτυ σ υσταξοχμεξξων λοδον οϋιβλι. εσμι βμολ σχοβοδεξ, το οξ βμολιςυετσρ δμρ δαξξοκ πςοηςαννω ι λοδ οϋιβλι ξε υσταξαχμιχαετσρ. οβςαύεξιε λ ζυξλγιι: I=ISFTLOCK (CHAN,BLK) ηδε CHAN - ξονες λαξαμα, οτλςωτοηο δμρ ςαϊδεμρενοηο ζακμα; BLK - ξονες βμολα, λοτοςωκ ξυφξο ϊαβμολιςοχατψ. ςεϊυμψτατω ζυξλγιι: I=0 - οβωώξωκ χωθοδ; I=1 - λαξαμ ξε οτλςωτ δμρ ςαϊδεμρενοηο - 373 - ζακμα; I=2 - τςεβυετσρ ϊαβμολιςοχατψ σμιϋλον νξοηο βμολοχ χ ζακμε; I=3 - τςεβυενωκ βμολ ϊαβμολιςοχαξ δςυηοκ πςοηςαννοκ. χ πςινεςε οτλςωχαετσρ ζακμ, οβ'ρχμρετσρ ςαϊδεμρενων, ϊατεν δεμαετσρ ποπωτλα ϊαβμολιςοχατψ βμολ χ ζακμε. εσμι ξυφξωκ βμολ υφε ϊαβμολιςοχαξ δςυηοκ πςοηςαννοκ, το χωπομ- ξρετσρ χοϊχςατ λ δαξξοκ ποδπςοηςαννε, εσμι πςοιϊοϋμα οϋιβ- λα, το πςοηςαννα πςελςαύαετ σχοε χωπομξεξιε. πςινες. CALL ASSIGN (40,'DX1:FILE.DAT') ICHAN = ILUN (40) I=ISFOPEN (ICHAN,2) 10 CONTINUE I=ISFTLOCK (ICHAN,3) IF (I .EQ. 3) GO TO 10 IF (I .NE. 0) STOP . . 8.15.5. ζυξλγιρ ISFUNALL δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ ςαϊβμολιςοχαξιρ χσεθ ϊαβμολιςοχαξξωθ βμολοχ ςαϊδεμρενοηο ζακμα. οβςαύεξιε λ ζυξλγιι: I=ISFUNALL (CHAN) ηδε CHAN - ξονες λαξαμα, οτλςωτοηο δμρ ςαϊδεμρενοηο ζακμα. ποσμε χωπομξεξιρ δαξξοκ ζυξλγιι χσε βμολι, ϊαβμολιςο- χαξξωε δαξξοκ πςοηςαννοκ χ υλαϊαξξον ζακμε, ςαϊβμολιςυΰτσρ. βμολι, ϊαβμολιςοχαξξωε δαξξοκ πςοηςαννοκ χ δςυηιθ ςαϊδεμρε- νωθ ζακμαθ, ι βμολι, ϊαβμολιςοχαξξωε χ ότον φε ζακμε δςυηι- νι πςοηςαννανι, ξε ςαϊβμολιςυΰτσρ. ςεϊυμψτατω ζυξλγιι: I = 0 - οβωώξωκ χωθοδ; I = 1 - λαξαμ ξε οτλςωτ δμρ ςαϊδεμρενοηο ζακμα. χ πςινεςε σξαώαμα οτλςωχαετσρ ζακμ, οβ'ρχμρετσρ ςαϊδε- μρενων, βμολιςυΰτσρ ξελοτοςωε βμολι, ι ϊατεν ςαϊβμολιςυΰτσρ χσε βμολι. χ σμυώαε οϋιβλι πςοηςαννα πςελςαύαετ σχοε χωπομ- ξεξιε. πςινες. - 374 - CALL ASSIGN (40,'DK:FILE.DAT') ICHAN=ILUN (40) I=ISFOPEN (ICHAN,1) DO 10 IBLK=4,6 I=ISLOCK (ICHAN,IBLK) 10 CONTINUE . . I=ISUNALL (ICHAN) IF (I .NE. 0) STOP . . 8.15.6. ζυξλγιρ ISFUNLOCK δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ ςαϊβμολιςοχαξιρ υλα- ϊαξξοηο βμολα χ ςαϊδεμρενον ζακμε. οβςαύεξιε λ ζυξλγιι: I=ISFUNLOCK (CHAN,BLK) ηδε CHAN - ξονες λαξαμα, οτλςωτοηο δμρ ςαϊδεμρενοηο ζακμα; BLK - ξονες βμολα, λοτοςωκ ξαδο ςαϊβμολιςοχατψ. ςεϊυμψτατω ζυξλγιι: I = 0 - οβωώξωκ χωθοδ; I = 1 - λαξαμ ξε οτλςωτ δμρ ςαϊδεμρενοηο ζακμα. χ πςινεςε οτλςωχαετσρ ζακμ, οβ'ρχμρετσρ ςαϊδεμρενων, βμολιςυΰτσρ χσε βμολι χ ότον ζακμε, α ϊατεν ςαϊβμολιςυετσρ υλαϊαξξωκ βμολ. χ σμυώαε οϋιβλι πςοηςαννα πςελςαύαετ σχοε χωπομξεξιε. πςινες. CALL ASSIGN (30,'DX:FILE.DAT') ICHAN=ILUN (30) I=ISFOPEN (ICHAN,2) I=ISFLOCK (ICHAN,-1) I=ISFUNLOCK (ICHAN,7) IF (I .NE. 0) STOP . . - 375 - 8.15.7. ζυξλγιρ ISFWCHECK δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ οπςεδεμεξιρ βωμα μι σδεμαξα ϊαπισψ χ ςαϊδεμρενωκ ζακμ δςυηοκ πςοηςαννοκ. οβςαύεξιε λ ζυξλγιι: I=ISFWCHECK (CHAN) ηδε CHAN - ξονες λαξαμα, οτλςωτοηο δμρ ςαϊδεμρενοηο ζακμα. δαξξυΰ ζυξλγιΰ γεμεσοοβςαϊξο ισπομψϊοχατψ, λοηδα δαξ- ξωε ιϊ ξελοτοςοηο βμολα ζακμα σώιταξω χ βυζες ι ξαδο οπςε- δεμιτψ, πςαχιμψξωε μι ότο δαξξωε, ιμι οξι ιϊνεξρμισψ λαλοκ- μιβο δςυηοκ πςοηςαννοκ ποσμε τοηο, λαλ βμολ υφε βωμ σώιταξ χ βυζες. ςεϊυμψτατω ζυξλγιι: I = 0 - ϊαπισψ χ ζακμ ξε πςοιϊχοδιμασψ; I = 2 - ϊαπισψ χ ζακμ πςοιϊχοδιμασψ. χ πςινεςε ζακμ οτλςωχαετσρ, οβ'ρχμρετσρ ςαϊδεμρενων, α ϊατεν πςοχεςρετσρ βωμα μι σδεμαξα ϊαπισψ δςυηοκ πςοηςαννοκ χ ότοτ ζακμ. χ σμυώαε, εσμι χ ζακμ πςοιϊχοδιμασψ ϊαπισψ δςυηοκ πςοηςαννοκ, δαξξαρ πςοηςαννα πςελςαύαετ σχοε χωπομ- ξεξιε. πςινες. CALL ASSIGN (33,'RK3:TEXT.DAT') ICHAN=ILUN (33) I=ISFOPEN (ICHAN,5) . . I=ISFWCHECK (ICHAN) IF (I .EQ. 2) STOP . . 8.16. αξαμιϊ όζζελτιχξοστι πςοηςανν (TS) ισπομψϊοχαξιε ποδπςοηςανν ι ζυξλγικ δαξξοκ ηςυππω ποϊ- χομρετ ιϊ πςοηςανν πομψϊοχατεμρ οπςεδεμιτψ πςογεξτ χςενεξι, λοτοςοε πςογεσσος ϊατςατιμ ξα χωπομξεξιε τοκ ιμι ιξοκ ώαστι πςοηςαννω. - 376 - 8.16.1. ζυξλγιρ IPAINI δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ υσταξοχλι παςανετςοχ, ξεοβθοδινωθ δμρ ϊαπυσλα ποδσιστενω αξαμιϊα όζζελτιχξοστι χωπομξεξιρ πςοηςαννω. οβςαύεξιε λ ζυξλγιι: I=IPAINI (LOADDR,HIADDR,ICLSIZ,FLAG) ηδε LOADDR - ξαώαμψξωκ αδςεσ υώαστλα πςοηςαννω, δμρ λοτοςοηο ξαδο χωπομξιτψ αξαμιϊ όζζελτιχξοστι; HIADDR - λοξεώξωκ αδςεσ υώαστλα πςοηςαννω, δμρ λοτοςοηο ξαδο χωπομξιτψ αξαμιϊ όζζελτιχξοστι; ICLSIZ - γεξα δεμεξιρ ηιστοηςαννω χ βακταθ; FLAG - πςιξιναετ ϊξαώεξιε ξυμψ, εσμι ξε ξαδο χλμΰώατψ χ αξαμιϊ όζζελτιχξοστι χςενρ οφιδαξιρ χχοδα/χωχοδα, ι εδιξιγυ, εσμι ξαδο χλμΰώατψ χςενρ οφιδαξιρ χχοδα/χωχοδα. ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα αξαμιϊα όζζελτιχξοστι υφε ισπομψϊυΰτσρ δςυηοκ πςοηςαννοκ; I = 1 - σςεδστχα αξαμιϊα όζζελτιχξοστι ξε χλμΰώεξω πςι ηεξεςαγιι. χ πςινεςε χωπομξρετσρ ιξιγιαμιϊαγιρ ποδσιστενω αξαμιϊα όζζελτιχξοστι. χ σμυώαε οϋιβλι πςοηςαννα πςελςαύαετ σχοε χωπομξεξιε. πςινες. IERR=IPAINI ("2000,"5400,"100,0) IF (IERR .GE. 0) STOP . . 8.16.2. ζυξλγιρ IPASTA δαξξαρ ζυξλγιρ ισπομψϊυετσρ δμρ ϊαπυσλα ποδσιστενω αξαμιϊα όζζελτιχξοστι πςοηςαννω. πεςεδ χωπομξεξιεν δαξξοκ ζυξλγιι δομφξω βωτψ υσταξοχμεξω χσε ξεοβθοδινωε παςανετςω ζυξλγιεκ IPAINI. οβςαύεξιε λ ζυξλγιι: - 377 - I=IPASTA () ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα αξαμιϊα όζζελτιχξοστι ξε ιξιγιαμιϊιςοχαξω. χ πςινεςε ιξιγιαμιϊιςυετσρ ι ϊαπυσλαετσρ ποδσιστενα αξαμιϊω όζζελτιχξοστι. χ σμυώαε οϋιβλι πςοηςαννα πςελςαύαετ σχοε χωπομξεξιε. πςινες. I=IPAINI ("2000,"5400,"100,0) I=IPASTA () IF (I .EQ. 0) STOP . . 8.16.3. ζυξλγιρ IPASTO δαξξαρ ζυξλγιρ πςιοσταξαχμιχαετ σβος στατιστιλι δμρ ποδσιστενω αξαμιϊα όζζελτιχξοστι. σβος στατιστιλι νοφξο χοϊοβξοχιτψ πςι πονούι ζυξλγιι IPASTA. οβςαύεξιε λ ζυξλγιι: I=IPASTO () ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σςεδστχα αξαμιϊα όζζελτιχξοστι ξε ιξιγιαμιϊιςοχαξω. χ πςινεςε ιξιγιαμιϊιςυετσρ ποδσιστενα αξαμιϊα όζζελ- τιχξοστι, ϊατεν χ γιλμε ϊαπυσλαετσρ ι πςιοσταξαχμιχαετσρ σβος στατιστιλι. πςινες. I=IPAINI ("2000,"5400,"100,0) DO 10 J=1,53 I=IPASTA () . . I=IPASTO () . . 10 CONTINUE . . - 378 - 8.16.4. ποδπςοηςαννα IPAGET δαξξαρ ποδπςοηςαννα ισπομψϊυετσρ δμρ ϊαχεςϋεξιρ αξαμι- ϊα όζζελτιχξοστι πςοηςαννω. χ ςεϊυμψτατε ςαβοτω δαξξοκ ποδπςοηςαννω σοβςαξξαρ στατιστιλα πεςεδαετσρ χ βυζες ι ποδ- σιστενα οσχοβοφδαετσρ δμρ ισπομψϊοχαξιρ δςυηινι πςοηςαννα- νι. οβςαύεξιε λ ποδπςοηςαννε: CALL IPAGET (PAR,BUF,BUFSIZE[,IERR]) ηδε PAR - ινρ βυζεςα ιϊ ώετωςεθ σμοχ, όμενεξτω λοτοςοηο ινεΰτ σμεδυΰύιε ϊξαώεξιρ: - πεςχωκ όμενεξτ σοδεςφιτ ξαώαμψξωκ αδςεσ υώαστλα πςοηςαννω, δμρ λοτοςοηο χωπομξρμσρ αξαμιϊ όζζελτιχξοστι; - χτοςοκ όμενεξτ - λοξεώξωκ αδςεσ υώαστλα πςοηςαννω, δμρ λοτοςοηο χωπομξρμσρ αξαμιϊ όζζελτιχξοστι; - τςετικ όμενεξτ - γεξα δεμεξιρ ηιστοηςαννω χ βακταθ; - ώετχεςτωκ όμενεξτ πςιξιναετ ϊξαώεξιε 1, εσμι χ αξαμιϊ όζζελτιχξοστι βωμο χλμΰώεξο χςενρ οφιδαξιρ χχοδα/χωχοδα, ι 100000, εσμι οδιξ ιϊ σώετώιλοχ (ρώεελ) ηιστοηςαννω πεςε- πομξεξ; BUF - βυζες δμρ θςαξεξιρ ηιστοηςαννω; BUFSIZE - λομιώεστχο όμενεξτοχ χ βυζεςε ηιστοηςαννω. όμενεξτω ηιστοηςαννω πςεδσταχμρΰτ σοβοκ 16-βιτξωε δχοιώξωε σώετώιλι, λαφδωκ ιϊ λοτοςωθ σοοτχετστχυετ οδξονυ δεμεξιΰ ηιστοηςαννω. ςεϊυμψτατω ζυξλγιι: I < 0 - οβωώξωκ χωθοδ; I = 0 - σβος στατιστιλι δμρ δαξξοκ πςοηςαννω ξε πςοιϊχοδιμσρ; I = 1 - ςαϊνες βυζεςα δμρ ηιστοηςαννω σμιϋλον ναμ. χ πςινεςε πολαϊαξ πςογεσσ αξαμιϊα όζζελτιχξοστι πςοη- ςαννω οτ ιξιγιαμιϊαγιι δο ϊαχεςϋεξιρ. πςινες. - 379 - DIMENSION IPARBF (4) DIMENSION IHSTBF (16) I=IPAINI ("2000,"5400,"100,0) I=IPASTA () . . I=IPASTO () CALL IPAGET (IPARBF,IHSTBF,IHBSIZ,I) IF (I .GE. 0) STOP . . 8.17. 32-ςαϊςρδξαρ αςιζνετιλα 8.17.1. ζυξλγιρ AJFLT ζυξλγιρ AJFLT πςεοβςαϊυετ γεμυΰ χεμιώιξυ τιπα INTEGER*4 χ χεύεστχεξξυΰ χεμιώιξυ τιπα REAL*4 ι χοϊχςαύαετ ςεϊυμψτατ λαλ ϊξαώεξιε ζυξλγιι. οβςαύεξιε λ ζυξλγιι: A=AJFLT (JARG) ηδε JARG - γεμαρ χεμιώιξα τιπα INTEGER*4, λοτοςυΰ ξεοβθοδινο πςεοβςαϊοχατψ. ςεϊυμψτατω ζυξλγιι: α - χεύεστχεξξαρ χεμιώιξα τιπα REAL*4. χ πςινεςε πςεοβςαϊυετσρ γεμαρ χεμιώιξα τιπα INTEGER*4, σοδεςφαύαρσρ χ JVAL, χ χεύεστχεξξυΰ χεμιώιξυ οδιξαςξοκ τοώ- ξοστι τιπα REAL*4, υνξοφαετσρ ξα 3.5 ι ςεϊυμψτατ ϊαπισω- χαετσρ χ VALUE. πςινες. REAL*4 VALUE,AJFLT INTEGER*4 JVAL . . . VALUE = AJFLT(JVAL)*3.5 - 380 - 8.17.2. ζυξλγιρ DJFLT ζυξλγιρ DJFLT πςεοβςαϊυετ γεμυΰ χεμιώιξυ τιπα INTEGER*4 χ χεύεστχεξξυΰ χεμιώιξυ δχοκξοκ τοώξοστι (τιπ REAL*8, DOUBLE PRECISION) ι χοϊχςαύαετ ςεϊυμψτατ πςεοβςαϊο- χαξιρ λαλ ϊξαώεξιε ζυξλγιι. οβςαύεξιε λ ζυξλγιι: A=DJFLT (JARG) ηδε JARG - οπισωχαετ χεμιώιξυ τιπα INTEGER*4, λοτοςυΰ ξεοβθο- δινο πςεοβςαϊοχατψ. πςινεώαξιε. εσμι ισπομψϊυετσρ ζυξλγιρ DJFLT, το οξα δομφξα βωτψ οπισαξα ρχξο λαλ χεύεστχεξξαρ χεμιώιξα δχοκξοκ τοώξοστι (REAL*8 DJFLT) ιμι ξερχξο (IMPLICIT REAL*8 (D)) χ πςοηςαννε ξα ρϊωλε ζοςτςαξ. εσμι ότο ξε σδεμαξο, το πςεδπο- μαηαετσρ τιπ χεμιώιξω REAL*4 (χεύεστχεξξαρ, οδιξαςξοκ τοώ- ξοστι). ςεϊυμψτατω ζυξλγιι: α - χεύεστχεξξαρ χεμιώιξα τιπα REAL*8. πςινες. INTEGER*4 JVAL REAL*8 DJFLT,D . . . D=DJFLT(JVAL) 8.17.3. ζυξλγιρ IAJFLT ζυξλγιρ IAJFLT πςεοβςαϊυετ γεμυΰ χεμιώιξυ τιπα INTEGER*4 χ χεύεστχεξξυΰ χεμιώιξυ τιπα REAL*4 ι ϊαπονιξαετ ςεϊυμψτατ. οβςαύεξιε λ ζυξλγιι: I=IAJFLT (JARG,ARES) ηδε JARG - γεμοε τιπα INTEGER*4, λοτοςοε ξεοβθοδινο πςεοβςα- ϊοχατψ; ARES - πεςενεξξαρ ιμι όμενεξτ νασσιχα τιπα REAL*4, χ λοτοςωκ ϊαπισωχαετσρ πςεοβςαϊοχαξξαρ χεμιώιξα. - 381 - ςεϊυμψτατω ζυξλγιι: I=-1 - οβωώξωκ χωθοδ; ςεϊυμψτατ οτςιγατεμψξωκ; I=0 - οβωώξωκ χωθοδ; ςεϊυμψτατ ςαχεξ ξυμΰ; I=1 - οβωώξωκ χωθοδ; ςεϊυμψτατ πομοφιτεμψξωκ; I=-2 - πςι πςεοβςαϊοχαξιι ποτεςρξω ϊξαώαύιε γιζςω. πςινες. INTEGER*4 JVAL REAL*4 RESULT . . . IF(IAJFLT(JVAL,RESULT).EQ.-2)TYPE 99 99 FORMAT(' πεςεπομξεξιε πςι πςεοβςαϊοχαξιι ', * ' γεμοκ χεμιώιξω χ χεύεστχεξξυΰ') 8.17.4. ζυξλγιρ IDJFLT ζυξλγιρ IDJFLT πςεοβςαϊυετ γεμοε τιπα INTEGER*4 χ χεύεστχεξξυΰ χεμιώιξυ τιπα REAL*8 (DOUBLE PRECISION) ι ϊαπονιξαετ ςεϊυμψτατ. οβςαύεξιε λ ζυξλγιι: I=IDJFLT (JARG,DRES) ηδε JARG - πςεοβςαϊυεναρ χεμιώιξA τιπα INTEGER*4; DRES - πεςενεξξαρ τιπα REAL*8 δμρ ϊαπισι ςεϊυμψτατα πςεοβςαϊοχαξικ. ςεϊυμψτατω ζυξλγιι: I=-1 - οβωώξωκ χωθοδ, ςεϊυμψτατ οτςιγατεμψξωκ; I=0 - οβωώξωκ χωθοδ, ςεϊυμψτατ ςαχεξ ξυμΰ; I=1 - οβωώξωκ χωθοδ, ςεϊυμψτατ πομοφιτεμψξωκ. πςινες. INTEGER*4 JJ REAL*8 DJ . . . IF(IDJFLT(JJ,DJ).LE.0)TYPE 99 99 FORMAT(' οτςιγατεμψξοε ϊξαώεξιε') - 382 - 8.17.5. ζυξλγιρ IJCVT ζυξλγιρ IJCVT πςεοβςαϊυετ χεμιώιξυ τιπα INTEGER*4 χ χεμιώιξυ τιπα INTEGER*2. οβςαύεξιε λ ζυξλγιι: I=IJCVT (JARG[,IRES]) ηδε JARG - πεςενεξξαρ ιμι όμενεξτ νασσιχα τιπα INTEGER*4, ϊξαώεξιε λοτοςοηο ξεοβθοδινο πςεοβςαϊοχατψ; IRES - πεςενεξξαρ τιπα INTEGER*2, πςεδξαϊξαώεξξαρ δμρ ϊαπισι ςεϊυμψτατα πςεοβςαϊοχαξιρ. εσμι παςανετς IRES ξε υλαϊαξ, το ςεϊυμψτατ πονεύαετσρ χο χθοδξυΰ πεςενεξξυΰ INTEGER*2 (παςανετς JARG). ςεϊυμψτατω ζυξλγιι: (εσμι IRES ϊαδαξο) I=-1 - οβωώξωκ χωθοδ, ςεϊυμψτατ οτςιγατεμψξωκ; I=0 - οβωώξωκ χωθοδ, ςεϊυμψτατ ςαχεξ ξυμΰ; I=1 - οβωώξωκ χωθοδ, ςεϊυμψτατ πομοφιτεμψξωκ; I=-2 - χο χςενρ πςεοβςαϊοχαξιρ πςοιϊοϋμο πεςεπομξε- ξιε. πςινες. INTEGER*4 JVAL INTEGER*2 IVAL . . . IF(IJCVT(JVAL,IVAL).EQ.-2)TYPE 99 99 FORMAT(' σμιϋλον βομψϋοε ώισμο') 8.17.6. ζυξλγιρ JADD ζυξλγιρ JADD χωώισμρετ συννυ δχυθ χεμιώιξ τιπα INTEGER*4. οβςαύεξιε λ ζυξλγιι: I=JADD (JARG1,JARG2,JRES) ηδε JARG1 - γεμοε τιπα INTEGER*4; JARG2 - γεμοε τιπα INTEGER*4; JRES - γεμαρ πεςενεξξαρ τιπα INTEGER*4, χ λοτοςυΰ πονε- - 383 - ύαετσρ συννα οπεςαξδοχ. ςεϊυμψτατω ζυξλγιι: I=-1 - οβωώξωκ χωθοδ, ςεϊυμψτατ οτςιγατεμψξωκ; I=0 - οβωώξωκ χωθοδ, ςεϊυμψτατ ςαχεξ ξυμΰ; I=1 - οβωώξωκ χωθοδ, ςεϊυμψτατ πομοφιτεμψξωκ; I=-2 - χο χςενρ χωώισμεξιρ ςεϊυμψτατα πςοιϊοϋμο πεςε- πομξεξιε. πςινες. INTEGER*4 JOP1,JOP2,JRES . . . IF(JADD(JOP1,JOP2,JRES).EQ.-2)GOTO 100 8.17.7. ζυξλγιρ JAFIX ζυξλγιρ πςεοβςαϊυετ χεμιώιξυ τιπα REAL*4 χ χεμιώιξυ τιπα INTEGER*4. οβςαύεξιε λ ζυξλγιι: I=JAFIX (AARG,JRES) ηδε AARG - χεμιώιξα τιπα REAL*4 (λοξσταξτα ιμι χωςαφεξιε), πςεοβςαϊυεναρ χ χεμιώιξυ τιπα INTEGER*4; JRES - πεςενεξξαρ τιπα INTEGER*4, χ λοτοςυΰ πονεύαετσρ ςεϊυμψτατ πςεοβςαϊοχαξιρ. ςεϊυμψτατω ζυξλγιι: I=-1 - οβωώξωκ χωθοδ, ςεϊυμψτατ οτςιγατεμψξωκ; I=0 - οβωώξωκ χωθοδ, ςεϊυμψτατ ςαχεξ ξυμΰ; I=1 - οβωώξωκ χωθοδ, ςεϊυμψτατ πομοφιτεμψξωκ; I=-2 - χο χςενρ χωώισμεξιρ ςεϊυμψτατα πςιϊοϋμο πεςε- πομξεξιε. πςινες. REAL*4 A INTEGER*4 JOP1 . . . ACCEPT 99,A 99 FORMAT(F15.0) IF(JAFIX(A,JOP1).EQ.-2)GOTO 100 - 384 - 8.17.8. ζυξλγιρ JCMP ζυξλγιρ JCMP σςαχξιχαετ δχα ϊξαώεξιρ τιπα INTEGER*4 ι χοϊχςαύαετ χεμιώιξυ τιπα INTEGER*2, λοτοςαρ πολαϊωχαετ ςεϊυμψτατ σςαχξεξιρ. οβςαύεξιε λ ζυξλγιι: I=JCMP (JARG1,JARG2) ηδε JARG1 - γεμοε τιπα INTEGER*4 ιμι όμενεξτ νασσιχα, πςεδσ- ταχμρΰύικ πεςχωκ οπεςαξδ σςαχξεξιρ; JARG2 - γεμοε τιπα INTEGER*4 ιμι όμενεξτ νασσιχα, πςεδσ- ταχμρΰύικ χτοςοκ οπεςαξδ σςαχξεξιρ. ςεϊυμψτατω ζυξλγιι: I=-1 - εσμι JARG1 < JARG2 ; I=0 - εσμι JARG1 = JARG2 ; I=1 - εσμι JARG1 > JARG2 . πςινες. INTEGER*4 JOPX,JOPY . . . IF(JCMP(JOPX,JOPY))10,20,30 8.17.9. ζυξλγιρ JDFIX ζυξλγιρ JDFIX πςεοβςαϊυετ χεμιώιξυ τιπα REAL*8 (DOUBLE PRECISION) χ χεμιώιξυ τιπα INTEGER*4. οβςαύεξιε λ ζυξλγιι: I=JDFIX (DARG,JRES) ηδε DARG - ϊξαώεξιε τιπα REAL*8, λοτοςοε ξεοβθοδινο πςεοβςα- ϊοχατψ χ χεμιώιξυ τιπα INTEGER*4; JRES - πεςενεξξαρ τιπα INTEGER*4, χ λοτοςοκ ϊαπισωχαετσρ ςεϊυμψτατ πςεοβςαϊοχαξιρ. ςεϊυμψτατω ζυξλγιι: I=-1 - οβωώξωκ χωθοδ, ςεϊυμψτατ οτςιγατεμψξωκ; I=0 - οβωώξωκ χωθοδ, ςεϊυμψτατ ςαχεξ ξυμΰ; I=1 - οβωώξωκ χωθοδ, ςεϊυμψτατ πομοφιτεμψξωκ; - 385 - I=-2 - χο χςενρ χωώισμεξιρ ςεϊυμψτατα πςοιϊοϋμο πεςε- πομξεξιε. πςινες. INTEGER*4 JNUM REAL*8 DPNUM . . . 20 TYPE 98 98 FORMAT('$χχεδιτε πομοφιτεμψξοε ώισμο:') ACCEPT 99,DPNUM 99 FORMAT(D20.0) IF(JDFIX(DPNUM,JNUM).LT.0)GOTO 20 8.17.10. ζυξλγιρ JDIV ζυξλγιρ JDIV χωώισμρετ ώαστξοε δχυθ χεμιώιξ τιπα INTEGER*4. οβςαύεξιε λ ζυξλγιι: I=JDIV (JARG1,JARG2,JRES[,JREM]) ηδε JARG1 - γεμοε τιπα INTEGER*4, δεμινοε; JARG2 - γεμοε τιπα INTEGER*4, δεμιτεμψ; JRES - πεςενεξξαρ τιπα INTEGER*4, χ λοτοςυΰ πονεύαετσρ ώαστξοε; JREM - πεςενεξξαρ τιπα INTEGER*4, χ λοτοςυΰ πονεύαετσρ οστατολ οτ δεμεξιρ. ςεϊυμψτατω ζυξλγιι: I=-1 - οβωώξωκ χωθοδ, ώαστξοε οτςιγατεμψξο; I=0 - οβωώξωκ χωθοδ, ώαστξοε ςαχξο ξυμΰ; I=1 - Oβωώξωκ χωθοδ, ώαστξοε πομοφιτεμψξο; I=-3 - βωμα πςεδπςιξρτα ποπωτλα ςαϊδεμιτψ ξα ξυμψ. πςινες. INTEGER*4 JN1,JN2,JQUO CALL JDIV(JN1,JN2,JQUO) - 386 - 8.17.11. ζυξλγιρ JICVT ζυξλγιρ JICVT πςεοβςαϊυετ χεμιώιξυ τιπα INTEGER*2 χ χεμιώιξυ τιπα INTEGER*4. οβςαύεξιε λ ζυξλγιι: I=JICVT (IARG,JRES) ηδε IARG - γεμοε τιπα INTEGER*2, λοτοςοε ξεοβθοδινο πςεοβςαϊοBαTψ; JRES - πεςενεξξαρ ιμι όμενεξτ νασσιχα τιπα INTEGER*4, χ λοτοςωκ ϊαπισωχαετχρ ςεϊυμψτατ. ςεϊυμψτατω ζυξλγιι: I=-1 - οβωώξωκ χωθοδ, ςεϊυμψτατ οτςιγατεμψξωκ; I=0 - οβωώξωκ χωθοδ, ςεϊυμψτατ ςαχεξ ξυμΰ; I=1 - οβωώξωκ χωθοδ, ςεϊυμψτατ πομοφιτεμψξωκ. πςινες. INTEGER*4 JVAL CALL JICVT(478,JVAL) !σζοςνιςοχατψ 32-ςαϊςρδξυΰ C λοξσταξτυ 8.17.12. ποδπςοηςαννα JJCVT ποδπςοηςαννα JJCVT νεξρετ νεστανι σοδεςφινοε σμοχ πεςενεξξοκ τιπα INTEGER*4 δμρ πομυώεξιρ ϊξαώεξιρ χςενεξι χο χξυτςεξξεν ζοςνατε ι ξαοβοςοτ. ότο ξεοβθοδινο χ σμυώαρθ, λοηδα χεμιώιξα τιπα INTEGER*4 δομφξα ισπομψϊοχατψσρ χ λαώεστχε παςανετςα ποδπςοηςαννω (ξαπςινες, ITWAIT) πο οβσ- μυφιχαξιΰ τακνεςα. χςενρ χο χξυτςεξξεν ζοςνατε πςεδσταχμεξο σμεδυΰύιν οβςαϊον: σταςϋαρ ώαστψ - χ πεςχον σμοχε, νμαδϋαρ ώαστψ - χο χτοςον σμοχε. οβςαύεξιε λ ποδπςοηςαννε: CALL JJCVT (JARG) ηδε JARG - πεςενεξξαρ τιπα INTEGER*4, σοδεςφινοε λοτοςοκ ξεοβθοδινο πςεοβςαϊοχατψ. οϋιβλι οτσυτστχυΰτ. πςινες. - 387 - INTEGER*4 TIME . . . CALL GTIME(TIME) !οπςεδεμεξιε χςενεξι συτολ CALL JJCVT(TIME) !πςεοβςαϊοχαξιε χ INTEGER*4 8.17.13. ζυξλγιρ JMOV ζυξλγιρ JMOV πςισχαιχαετ ϊξαώεξιε πεςενεξξοκ τιπα INTEGER*4 δςυηοκ πεςενεξξοκ τιπα INTEGER*4 ι χοϊχςαύαετ ϊξαλ πςισχοεξξοηο ϊξαώεξιρ. οβςαύεξιε λ ζυξλγιι: I=JMOV (JARG,JRES) ηδε JARG - γεμοε τιπα INTEGER*4, ϊξαώεξιε λοτοςοηο πςισχαι- χαετσρ χτοςονυ αςηυνεξτυ; JRES - πεςενεξξαρ τιπα INTEGER*4, λοτοςοκ πςισχαιχαετσρ ϊξαώεξιε JARG. ςεϊυμψτατω ζυξλγιι: I=-1 - οβωώξωκ χωθοδ, ςεϊυμψτατ οτςιγατεμψξωκ; I=0 - οβωώξωκ χωθοδ, ςεϊυμψτατ ςαχεξ ξυμΰ; I=1 - οβωώξωκ χωθοδ, ςεϊυμψτατ πομοφιτεμψξωκ. χ πςινεςε ζυξλγιρ JMOV ισπομψϊυετσρ δμρ σςαχξεξιρ σ ξυμεν χ μοηιώεσλον IF. πςινες. INTEGER*4 INT1 . . . IF(JMOV(INT1,INT1)300,100,300 !πεςεκτι ξα νετλυ 300, C εσμι INT1 ξε ςαχξα 0 8.17.14. ζυξλγιρ JMUL ζυξλγιρ JMUL χωώισμρετ πςοιϊχεδεξιε χεμιώιξ τιπα INTEGER*4. οβςαύεξιε λ ζυξλγιι: I=JMUL (JARG1,JARG2,JRES) ηδε JARG1 - γεμοε τιπα INTEGER*4, νξοφινοε; - 388 - JARG2 - γεμοε τιπα INTEGER*4, νξοφιτεμψ; JRES - πεςενεξξαρ τιπα INTEGER*4, χ λοτοςυΰ ϊαπισωχαετσρ πςοιϊχεδεξιε. ςεϊυμψτατω ζυξλγιι: I=-1 - οβωώξωκ χωθοδ, πςοιϊχεδεξιε οτςιγατεμψξο; I=0 - οβωώξωκ χωθοδ, πςοιϊχεδεξιε ςαχξο ξυμΰ; I=1 - οβωώξωκ χωθοδ, πςοιϊχεδεξιε πομοφιτεμψξο; I=-2 - πςι χωώισμεξιι ςεϊυμψτατα πςοιϊοϋμο πεςεπομξε- ξιε. πςινες. INTEGER*4 J1,J2,JRES . . . IF(JMUL(J1,J2,JRES)+1) 100,10,20 C C πεςεκτι ξα 100, εσμι πεςεπομξεξιε C πεςεκτι ξα 10, εσμι ςεϊυμψτατ οτςιγατεμψξωκ C πεςεκτι ξα 20, εσμι ςεϊυμψτατ πομοφιτεμψξωκ ιμι C ξυμψ 8.17.15. ζυξλγιρ JSUB ζυξλγιρ JSUB χωώισμρετ ςαϊξοστψ νεφδυ δχυνρ χεμιώιξανι τιπα INTEGER*4. οβςαύεξιε λ ζυξλγιι: I=JSUB (JARG1,JARG2,JRES) ηδε JARG1 - γεμοε τιπα INTEGER*4, υνεξψϋαενοε; JARG2 - γεμοε τιπα INTEGER*4, χωώιταενοε; JRES - πεςενεξξαρ τιπα INTEGER*4, πςεδξαϊξαώεξξαρ δμρ ϊαξεσεξιρ χωώισμεξξοκ ςαϊξοστι. ςεϊυμψτατω ζυξλγιι: I=-1 - οβωώξωκ χωθοδ, ςεϊυμψτατ οτςιγατεμψξωκ; I=0 - οβωώξωκ χωθοδ, ςεϊυμψτατ ςαχεξ ξυμΰ; I=1 - οβωώξωκ χωθοδ, ςεϊυμψτατ πομοφιτεμψξωκ; I=-2 - πςι χωώισμεξιι ςεϊυμψτατα πςοιϊοϋμο πεςεπομξε- ξιε. πςινες. - 389 - INTEGER*4 JOP1,JOP2,J3 . . . CALL JSUB(JOP1,JOP2,J3) 8.18. ςαβοτα σο στςολανι 8.18.1. ποδπςοηςαννα CONCAT ποδπςοηςαννα CONCAT πςεδξαϊξαώεξα δμρ λοξλατεξαγιι (οβ'εδιξεξιρ) δχυθ στςολ σινχομοχ χ οδξυ. οβςαύεξιε λ ποδπςοηςαννε: CALL CONCAT (A,B,OUT[,LEN[,ERR]]) ηδε A - νασσιχ, σοδεςφαύικ μεχυΰ στςολυ; στςολα δομφξα ϊαχεςϋατψσρ βακτον, ςαχξων ξυμΰ; B - νασσιχ, σοδεςφαύικ πςαχυΰ στςολυ; στςολα δομφξα ϊαχεςϋατψσρ βακτον, ςαχξων ξυμΰ; OUT - νασσιχ, χ λοτοςωκ πονεύαετσρ ςεϊυμψτατ σοεδιξεξιρ; ότοτ νασσιχ πο ώισμυ όμενεξτοχ δομφεξ βωτψ πο λςακξεκ νεςε ξα εδιξιγυ βομψϋε ναλσιναμψξοκ δμιξω ςεϊυμψτατα σοεδιξεξιρ (τ.ε. ξα εδιξιγυ βομψϋε ϊξα- ώεξιρ LEN, εσμι οξο υλαϊαξο); LEN - γεμοε; ώισμο σινχομοχ, πςεδσταχμρΰύεε ναλσιναμψξυΰ δμιξυ ςεϊυμψτιςυΰύεκ στςολι; ξαϊξαώεξιε παςανετςα - υσεώεξιε ςεϊυμψτιςυΰύεκ στςολι δο ϊαδαξξοκ δμι- ξω, εσμι ότο ξεοβθοδινο; ERR - μοηιώεσλαρ πεςενεξξαρ; πςιϊξαλ οϋιβλι, λοτοςωκ πςιξιναετ ϊξαώεξιε .TRUE., εσμι ςεϊυμψτιςυΰύαρ στςολα υσελαετσρ δο δμιξω, υλαϊαξξοκ παςανετςον LEN. νασσιχ OUT ϊαπομξρετσρ σινχομανι νασσιχα "α", ϊατεν - σινχομανι νασσιχα "B", ι χ λοξγε πονεύαετσρ οηςαξιώιχαΰύικ σινχομ "ξυμψ". δοπυσλαετσρ μΰβαρ λονβιξαγιρ παςανετςοχ, οπισωχαΰύιθ νασσιχω στςολ, ϊα ισλμΰώεξιεν σμυώαρ, λοηδα παςανετςω "B" ι OUT οπςεδεμρΰτ οδιξ ι τοτ φε νασσιχ. σοεδι- ξεξιε χ γεποώλυ πςελςαύαετσρ χ σμυώαρθ, λοηδα χ νασσιχε "B" οβξαςυφεξ οηςαξιώιχαΰύικ σινχομ "ξυμψ", ιμι λοηδα ώισμο πεςεδαξξωθ σινχομοχ ςαχξο υλαϊαξξονυ παςανετςον LEN. εσμι υλαϊαξ παςανετς ERR ι δμιξα ςεϊυμψτιςυΰύεκ στςολι ολαφετσρ βομψϋε οπισαξξοκ παςανετςον LEN, το παςανετς ERR - 390 - υσταξαχμιχαετσρ χ .TRUE.; χ πςοτιχξον σμυώαε παςανετς ERR οσταετσρ βεϊ ιϊνεξεξιρ. ποότονυ, εσμι λοξτςομψ χεδετσρ πο ϊξαώεξιΰ ERR, το πεςεδ χωϊοχον ποδπςοηςαννω ξεοβθοδινο ϊαξεστι ϊξαώεξιε .FALSE. χ ERR. εσμι οδξα ιϊ δχυθ στςολ πυσταρ (πςαχαρ ιμι μεχαρ), το χτοςαρ στςολα (ξεπυσταρ) λοπιςυετσρ χ νασσιχ OUT. εσμι οβε στςολι πυστω, το χ OUT ϊαπισωχαετσρ πυσταρ στςολα. χ οβοιθ σμυώαρθ σταςοε σοδεςφινοε στςολι OUT πςι χωϊοχε ποδπςοηςαν- νω CONCAT βυδετ ποτεςρξο. οϋιβλι: οϋιβλα υλαϊωχαετσρ πεςενεξξοκ ERR, εσμι οξα σπεγιζιγι- ςοχαξξα. εσμι πεςενεξξαρ ERR ϊαδαξα ι χωθοδξαρ στςολα ϊαξι- ναετ βομψϋυΰ δμιξυ, ώεν υλαϊαξο παςανετςον LEN, το πεςενεξ- ξαρ ERR πςιξιναετ ϊξαώεξιε .TRUE., ιξαώε πεςενεξξαρ ERR ξε ιϊνεξρετσρ. χ πςινεςε οβ'εδιξρΰτσρ στςολι, ςαϊνεύεξξωε χ νασσιχαθ STR ι IN. ϊαπισψ χεδετσρ χ νασσιχ OUT, δοπυσλαΰύικ δμιξυ ςεϊυμψτιςυΰύεκ στςολι ξε βομεε 29 σινχομοχ. πςινες. LOGICAL*1 IN(30),OUT(30),STR(7) . . . CALL CONCAT(STR,IN,OUT,29) 8.18.2. ποδπςοηςαννα GETSTR ποδπςοηςαννα GETSTR σώιτωχαετ ζοςνατξυΰ ϊαπισψ χ λοδε λοι-7 σ υλαϊαξξοηο μοηιώεσλοηο υστςοκστχα σιστενω ζοςτςαξ χ ϊαδαξξωκ νασσιχ. χ λοξγε στςολι πςι εε ζοςνιςοχαξιι χσταχ- μρετσρ σινχομ "ξυμψ". πςοβεμω, ϊαχεςϋαΰύιε στςολυ, οτσε- λαΰτσρ. ποδπςοηςαννα GETSTR νοφετ ισπομψϊοχατψσρ χ ποδπςοηςαν- ναθ οσξοχξοκ πςοηςαννω ιμι χ ποδπςοηςανναθ ϊαχεςϋεξιρ, ξο ξε χ οβειθ οδξοχςενεξξο. εσμι GETSTR ισπομψϊυετσρ χ ποδπ- ςοηςαννε ϊαχεςϋεξιρ, το οξα ξε νοφετ βωτψ πεςχοκ οπεςαγιεκ χχοδα/χωχοδα ξα υλαϊαξξον μοηιώεσλον υστςοκστχε, τ.λ. χ ότον σμυώαε πςοιϊχοδιτσρ οβςαύεξιε λ USR. οβςαύεξιε λ ποδπςοηςαννε: CALL GETSTR (LUN,OUT,LEN,ERR) ηδε LUN - ξονες (γεμοε) μοηιώεσλοηο υστςοκστχα σιστενω ζοςτ- ςαξ, πςεδσταχμρΰύικ ζοςνατξωκ ποσμεδοχατεμψξωκ ζακμ, ιϊ λοτοςοηο δομφξα σώιτωχατψσρ στςολα; OUT - νασσιχ, πςιξιναΰύικ στςολυ; πο ώισμυ όμενεξτοχ - 391 - πςεχοσθοδιτ παςανετς LEN πο λςακξεκ νεςε ξα εδιξι- γυ; LEN - γεμοε ώισμο, πολαϊωχαΰύεε ναλσιναμψξυΰ δμιξυ χχο- δινοκ στςολι; ERR - πςιϊξαλ μοηιώεσλοκ οϋιβλι τιπα LOGICAL*1, λοτοςωκ υσταξαχμιχαετσρ χ .TRUE., εσμι δμιξα χχεδεξξοκ στςολι πςεχοσθοδιτ ϊξαώεξιε παςανετςα LEN. χ ιξον σμυώαε πςιϊξαλ υσταξαχμιχαετσρ χ ϊξαώεξιε .FALSE. οϋιβλι: χοϊξιλξοχεξιε οϋιβολ οπςεδεμρετσρ πο ϊξαώεξιΰ παςανετ- ςα ERR. εσμι παςανετς ERR πςιξινετ ϊξαώεξιε .TRUE., το χοϊχςαύαΰτσρ σμεδυΰύιε ϊξαώεξιρ: ERR=-1 - λοξεγ ζακμα δμρ οπεςαγιι ώτεξιρ; ERR=-2 - αππαςατξαρ οϋιβλα πςι οπεςαγιι ώτεξιρ; ERR=-3 - χ ϊαπισι σοδεςφιτσρ βακτοχ βομψϋε, ώεν υλαϊαξο χ παςανετςε LEN. χ πςινεςε σώιτωχαετσρ στςολα δμιξοκ δο 80 σινχομοχ σ μοηιώεσλοηο υστςοκστχα 5 χ νασσιχ STRING. πςινες. LOGICAL*1 STRING(81),ERR . . . CALL GETSTR(5,STRING,80,ERR) 8.18.3. ποδπςοηςαννα INDEX ποδπςοηςαννα INDEX πςοσνατςιχαετ ισθοδξυΰ στςολυ δμρ ξαθοφδεξιρ χ ξεκ λοπιι δςυηοκ στςολι (οβςαϊγα) ι χοϊχςαύαετ ξονες ποϊιγιι πεςχοηο σοχπαδεξιρ ποδστςολι χ πςοσνατςιχαε- νοκ στςολε σ οβςαϊγον. οβςαύεξιε λ ποδπςοηςαννε: CALL INDEX (A,PATTRN,[I],M) ιμι M=INDEX (A,PATTRN [,I]) ηδε A - νασσιχ, σοδεςφαύικ πςοσνατςιχαενυΰ στςολυ; στςολα δομφξα ϊαλαξώιχατψσρ βακτον 0; PATTRN - στςολα, λοτοςυΰ ξεοβθοδινο ξακτι χ "A"; οβςαϊεγ ποισλα; στςολα δομφξα ολαξώιχατψσρ βακτον 0; I - γεμαρ ξαώαμψξαρ ποϊιγιρ χ πςοσνοτςαθ νασσιχα "A"; εσμι παςανετς "I" οπυύεξ, το νασσιχ "A" πςοσνατςι- χαετσρ, ξαώιξαρ σ πεςχοηο σινχομα, τ.ε. πο υνομώα- - 392 - ξιΰ I=1; M - γεμοε, ςεϊυμψτατ πςοσνοτςα; ςαχεξ ξονεςυ ποϊιγιι ξαώαμα οβςαϊγα χ νασσιχε "A", εσμι οβςαϊεγ βωμ ξακδεξ; χ πςοτιχξον σμυώαε "M" ςαχξο 0. οϋιβλι οτσυτστχυΰτ. χ πςινεςε πςοσνατςιχαετσρ νασσιχ STRING δμρ ξαθοφδεξιρ πεςχοκ λοπιι στςολ EFG ι XYZ ι πςοσνατςιχαετσρ στςολα ABCABCABC δμρ ξαθοφδεξιρ λοπιι στςολι ABC ποσμε 5-κ ποϊι- γιι. πςινες. CALL SCOPY ('ABCDEFGHI',STRING) !ιξιγιαμιϊιςοχατψ C στςολυ CALL INDEX(STRING,'EFG',,M) !M=5 CALL INDEX(STRING,'XYZ',,N) !N=0 CALL INDEX('ABCABCABC','ABC',5,L) !L=7 8.18.4. ποδπςοηςαννα INSERT ποδπςοηςαννα INSERT ϊανεξρετ ώαστψ οδξοκ στςολι δςυηοκ στςολοκ. οβςαύεξιε λ ποδπςοηςαννε: CALL INSERT (IN,OUT,I[,M]) ηδε IN - νασσιχ, σοδεςφαύικ χσταχμρενυΰ στςολυ; στςολα δομφξα ϊαχεςϋατψσρ βακτον, ςαχξων ξυμΰ, εσμι εε δμιξα νεξψϋε ϊξαώεξιρ M, ιμι, εσμι M ξε ϊαδαξο; OUT - νασσιχ, σοδεςφαύικ νοδιζιγιςυενυΰ στςολυ; στςολα δομφξα ϊαχεςϋατψσρ βακτον, ςαχξων ξυμΰ; I - γεμοε, υλαϊωχαΰύεε ποϊιγιΰ χ νασσιχε OUT, σ λοτο- ςοκ ξαώιξαετσρ χσταχλα; M - γεμοε, ναλσιναμψξοε ώισμο χσταχμρενωθ σινχομοχ. εσμι ναλσιναμψξοε ώισμο σινχομοχ ξε υλαϊαξο, χσε σιν- χομω σπςαχα οτ υλαϊαξξοκ ποϊιγιι σινχομα (I) χ νοδιζιγιςυε- νοκ στςολε ϊανεύαΰτσρ χσταχμρενοκ στςολοκ. χσταχμρεναρ στςολα (IN) ι νοδιζιγιςυεναρ στςολα (OUT) νοηυτ ξαθοδιτψσρ χ οδξον νασσιχε τομψλο χ σμυώαε, εσμι υλαϊαξο ναλσιναμψξοε ώισμο σινχομοχ (M) ι οξο νεξψϋε ιμι ςαχξο ςαϊξοστι νεφδυ ξονεςον ποϊιγιι, σ λοτοςοκ ξαώιξαετσρ χσταχλα, ι ναλσιναμψ- ξοκ δμιξοκ στςολι, δοπυστινοκ δμρ δαξξοηο νασσιχα. οϋιβλι οτσυτστχυΰτ. - 393 - πςινες. CALL SCOPY('ABCDEFGHIJ',S1)!ιξιγιαμιϊιςοχατψ στςολυ 1 CALL SCOPY(S1,S2) !ιξιγιαμιϊιςοχατψ στςολυ 2 CALL INSERT('123',S1,6,3) !S1='ABCDE123IJ' CALL INSERT('123',S2,4) !S2='ABC123' 8.18.5. ζυξλγιρ LEN ζυξλγιρ LEN οπςεδεμρετ ώισμο σινχομοχ στςολι, ξαθοδρ- ύεκσρ χ υλαϊαξξον νασσιχε. σινχομω σώιταΰτσρ δο πεςχοηο ξυμεχοηο βακτα. εσμι υλαϊαξξωκ νασσιχ σοδεςφιτ πυστυΰ στςο- λυ, το χοϊχςαύαετσρ χεμιώιξα, ςαχξαρ ξυμΰ. οβςαύεξιε λ ζυξλγιι: I=LEN(A) ηδε A - νασσιχ, σοδεςφαύικ στςολυ; στςολα δομφξα ϊαχες- ϋατψσρ βακτον 0; οϋιβλι οτσυτστχυΰτ. πςινες. LOGICAL*1 STRNG(73) . . . TYPE 99,(STRNG(I),I=1,LEN(STRNG)) 99 FORMAT('0',132A1) 8.18.6. ποδπςοηςαννα PUTSTR ποδπςοηςαννα PUTSTR χωχοδιτ στςολυ σινχομοχ πεςενεξξοκ δμιξω ξα ϊαδαξξωκ μοηιώεσλικ ξονες. ποδπςοηςαννα PUTSTR νοφετ ισπομψϊοχατψσρ λαλ χ οσξοχξοκ πςοηςαννε, ταλ ι χ ποδπςοηςανναθ ϊαχεςϋεξιρ, ξο ξε χ οβειθ οδξοχςενεξξο, τ.λ. ξε οβμαδαετ ποχτοςξοκ χθοδινοστψΰ. εσμι PUTSTR ισπομψϊυετσρ χ ποδπςοηςαννε ϊαχεςϋεξιρ, το οξα ξε δομφξα βωτψ πεςχοκ οπεςαγιεκ χχοδα/χωχοδα δμρ ϊαδαξξοηο μοηιώεσλοηο υστςοκστ- χα, τ.λ. χ ότον σμυώαε PUTSTR οβςαύαετσρ λ USR. οβςαύεξιε λ ποδπςοηςαννε: CALL PUTSTR (LUN,IN,CHAR,ERR) ηδε LUN - μοηιώεσλικ ξονες (γεμοε), ξα λοτοςωκ δομφξα πςοιϊ- - 394 - χοδιτψσρ ϊαπισψ στςολι; IN - νασσιχ, σοδεςφαύικ χωχοδινυΰ στςολυ; CHAR - σινχομ χ λοι-7, λοτοςωκ δοβαχμρετσρ λ ξαώαμυ στςο- λι πεςεδ εε χωχοδον; εσμι ότοτ παςανετς ςαχεξ ξυμΰ, το πεςχωκ σινχομ στςολι IN βυδετ πεςχων σιν- χομον ϊαπισι; ότοτ σινχομ ισπομψϊυετσρ χ οσξοχξον δμρ υπςαχμεξιρ λαςετλοκ; ERR - μοηιώεσλαρ πεςενεξξαρ LOGICAL*1, ινεΰύαρ ϊξαώεξιε .TRUE. πςι ξαμιώιι οϋιβλι, ι .FALSE. - πςι οτσυτστχιι οϋιβλι. οϋιβλι: ERR=-1 - λοξεγ ζακμα οβξαςυφεξ χο χςενρ οπεςαγικ ϊαπισι; ERR=-2 - αππαςατξαρ οϋιβλα πςι χωπομξεξιι οπεςαγιι ϊαπισι. πςινες. LOGICAL*1 STRNG(81) . . . CALL PUTSTR(7,STRNG,'0')!χωχεστι στςολυ σ C δχοκξων πςοπυσλον 8.18.7. ποδπςοηςαννα REPEAT ποδπςοηςαννα REPEAT λοξλατεξιςυετ ϊαδαξξυΰ στςολυ σ ξεκ φε δμρ πομυώεξιρ υλαϊαξξοηο ώισμα λοπικ. ποδπςοηςαννα REPEAT πονεύαετ ςεϊυμψτιςυΰύυΰ στςολυ χ υλαϊαξξωκ νασσιχ. οβςαύεξιε λ ποδπςοηςαννε: CALL REPEAT (IN,OUT,I[,LEN[,ERR]]) ηδε IN - νασσιχ, σοδεςφαύικ στςολυ, λοτοςυΰ ξεοβθοδινο ποχ- τοςιτψ; στςολα δ_μφξα ϊαχεςϋατψσρ βακτον 0; OUT - νασσιχ, χ λοτοςωκ πονεύαετσρ ςεϊυμψτιςυΰύαρ στςο- λα; ότοτ νασσιχ δομφεξ βωτψ, πο λςακξεκ νεςε, ξα οδιξ όμενεξτ βομψϋε ϊξαώεξιρ παςανετςα LEN, εσμι οξ υλαϊαξ; ταλφε, εσμι υλαϊαξ LEN, χωθοδξαρ στςολα βυδετ ϊαχεςϋεξα βακτον 0; I - λομιώεστχο (γεμοε) ποχτοςεξικ χθοδξοκ στςολι; LEN - ναλσιναμψξαρ δμιξα (γεμοε) ςεϊυμψτιςυΰύεκ στςολι; ERR - μοηιώεσλαρ πεςενεξξαρ; πςιϊξαλ οϋιβλι, λοτοςωκ υσταξαχμιχαετσρ χ σοστορξιε .TRUE., εσμι ςεϊυμψτι- - 395 - ςυΰύαρ στςολα υσελαετσρ δο δμιξω, υλαϊαξξοκ παςα- νετςον LEN. εσμι ώισμο ποχτοςεξικ (παςανετς "I") ςαχξο εδιξιγε ιμι ξυμΰ, το ισθοδξαρ ι ςεϊυμψτιςυΰύαρ στςολι νοηυτ ξαθοδιτψσρ χ οδξον νασσιχε. εσμι ώισμο ποχτοςεξικ ςαχξο εδιξιγε, το ότα ποδπςοηςαννα όλχιχαμεξτξα ζυξλγιι SCOPY; εσμι ώισμο ποχτοςεξικ ςαχξο ξυμΰ, το χ νασσιχ, υλαϊαξξωκ παςανετςον OUT, πονεύαετσρ πυσταρ στςολα. σταςοε σοδεςφινοε ότοηο νασ- σιχα πςι χωϊοχε ποδπςοηςαννω REPEAT στιςαετσρ. οϋιβλι: ξαμιώιε οϋιβλι υλαϊωχαετσρ παςανετςον ERR, εσμι οξ ϊαδαξ. εσμι παςανετς ERR ϊαδαξ, α ςεϊυμψτιςυΰύαρ στςολα ινεετ δμιξυ βομψϋε υλαϊαξξοκ παςανετςον LEN, το παςανετς ERR υσταξαχμιχαετσρ χ .TRUE.. χ πςοτιχξον σμυώαε σοστορξιε παςανετςα ERR ξε ιϊνεξιτσρ. ποότονυ, εσμι χεδετσρ λοξτςομψ ϊξαώεξιρ πεςενεξξοκ ERR, πεςεδ χωϊοχον ποδπςοηςαννω REPEAT ότοκ πεςενεξξοκ ξεοβθοδινο πςισχοιτψ ϊξαώεξιε .FALSE.. πςινες. LOGICAL*1 SIN(21),SOUT(101) . . . CALL REPEAT(SIN,SOUT,5) 8.18.8. ποδπςοηςαννα SCOMP/ISCOMP ποδπςοηςαννα SCOMP σςαχξιχαετ δχε στςολι σινχομοχ ι χοϊχςαύαετ γεμοε - ςεϊυμψτατ σςαχξεξιρ. οβςαύεξιε λ ποδπςοηςαννε: CALL SCOMP (A,B,I) ιμι I=ISCOMP(A,B) ηδε A - νασσιχ, σοδεςφαύικ πεςχυΰ στςολυ; στςολα δομφξα ϊαχεςϋατψσρ βακτον 0; B - νασσιχ, σοδεςφαύικ χτοςυΰ στςολυ; στςολα δομφξα ϊαχεςϋατψσρ βακτον 0; I - γεμαρ πεςενεξξαρ, πςιξιναΰύαρ ςεϊυμψτατ σςαχξεξιρ. στςολι σςαχξιχαΰτσρ σμεχα ξαπςαχο πο οδξονυ σινχο- μυ, σ ισπομψϊοχαξιεν υποςρδοώεξξοστι σινχομοχ λοι-7. εσμι σςαχξιχαενωε στςολι ξε σοχπαδαΰτ, το αβσομΰτξαρ χεμιώιξα πεςενεξξοκ "I" (ιμι ςεϊυμψτατ χωπομξεξιρ ζυξλγιι ISCOMP) - ότο ποϊιγιρ πεςχοηο σινχομα, ξα λοτοςον οβξαςυφε- - 396 - ξο ξεσοχπαδεξιε πςι πςοσνοτςε σμεχα ξαπςαχο. εσμι στςολι πο δμιξε ξεοδιξαλοχω, το βομεε λοςοτλαρ στςολα ςασσνατςιχαετσρ, λαλ ϊαπομξεξξαρ σπςαχα πςοβεμανι δο δμιξω δςυηοκ στςολι. πυσταρ στςολα όλχιχαμεξτξα στςολε, σοδεςφαύεκ τομψλο πςοβεμω. ϊξαλ ςεϊυμψτατα χ σμυώαε ξεσοχπαδεξιρ στςολ οπςεδε- μρετσρ μελσιλοηςαζιώεσλιν ποςρδλον ξεσοχπαχϋιθ σινχομοχ. ςεϊυμψτατω ζυξλγιι: I<0 - εσμι A νεξψϋε B; I=0 - εσμι A ςαχξο B; I>0 - εσμι A βομψϋε B. πςινες. LOGICAL*1 INSTR(81) . . . CALL GETSTR(5,INSTR,80) CALL SCOMP('YES',INSTR,IVAL) IF(IVAL) GOTO 10 8.18.9. ποδπςοηςαννα SCOPY ποδπςοηςαννα SCOPY λοπιςυετ στςολυ σινχομοχ ιϊ οδξοηο νασσιχα χ δςυηοκ. λοπιςοχαξιε πςελςαύαετσρ ιμι πςι ξαθοφδε- ξιι σινχομα "ξυμψ", ιμι, λοηδα πεςεπισαξο ϊαδαξξοε ώισμο σινχομοχ. οβςαύεξιε λ ποδπςοηςαννε: CALL SCOPY (IN,OUT[,LEN[,ERR]]) ηδε IN - νασσιχ, σοδεςφαύικ στςολυ, λοτοςυΰ ξεοβθοδινο λοπιςοχατψ; στςολα δομφξα ϊαχεςϋατψσρ βακτον 0, εσμι LEN ξε ϊαδαξο, ιμι, εσμι στςολα λοςοώε LEN; OUT - νασσιχ, πςεδξαϊξαώεξξωκ δμρ πςιενα λοπιςυενοκ στςολι; ότοτ νασσιχ δομφεξ ινετψ δμιξυ, πο λςακξεκ νεςε, ξα εδιξιγυ βομψϋε δμιξω, ϊαδαχαενοκ παςανετ- ςον LEN, εσμι ότοτ παςανετς υλαϊαξ; ταλφε, εσμι LEN υλαϊαξ, χωθοδξαρ στςολα βυδετ ϊαχεςϋεξα βακτον 0; LEN - γεμοε; ναλσιναμψξαρ δμιξα ςεϊυμψτιςυΰύεκ στςολι; εσμι ςεϊυμψτιςυΰύαρ στςολα ινεετ βομψϋυΰ δμιξυ, το οξα υσελαετσρ σπςαχα δο ϊαδαξξοκ δμιξω; ERR - μοηιώεσλαρ πεςενεξξαρ, λοτοςαρ πςιξιναετ ϊξαώεξιε .TRUE., εσμι ςεϊυμψτιςυΰύαρ στςολα βωμα υσεώεξα δο δμιξω, υλαϊαξξοκ παςανετςον LEN. - 397 - παςανετςω IN ι OUT νοηυτ οπισωχατψ οδιξ ι τοτ φε νασ- σιχ. στςολα, ςαξεε σοδεςφαχϋαρσρ χ χωθοδξον νασσιχε, τεςρετσρ πςι χωϊοχε ποδπςοηςαννω SCOPY. οϋιβλι: χοϊξιλξοχεξιε οϋιβολ υλαϊωχαEτσρ παςανετςον ERR; εσμι παςανετς ERR ϊαδαξ, α ςεϊυμψτιςυΰύαρ στςολα βωμα υσεώεξα δο δμιξω, ϊαδαξξοκ παςανετςον LEN, το παςανετς ERR υσταξαχμι- χαετσρ χ .TRUE.; χ πςοτιχξον σμυώαε ϊξαώεξιε παςανετςα ERR ξε ιϊνεξρετσρ; ποότονυ, εσμι χεδετσρ λοξτςομψ ϊξαώεξιρ ότοκ πεςενεξξοκ, TO πεςεδ χωϊοχον ποδπςοηςαννω SCOPY εκ ξεοβθο- δινο πςισχοιτψ ϊξαώεξιε .FALSE. χ πςινεςε ποδπςοηςαννα SCOPY πςινεξρετσρ δμρ ϊαδαξιρ ξαώαμψξοηο ϊξαώεξιρ. πςινες. LOGICAL*1 STRING(80) CALL SCOPY('ξαώαμψξοε ϊξαώεξιε',STRING) 8.18.10. ποδπςοηςαννα STRPAD ποδπςοηςαννα STRPAD δοπομξρετ στςολυ σινχομοχ σπςαχα πςοβεμανι δο ϊαδαξξοκ δμιξω. ιϊνεξεξιρ πςοιϊχοδρτσρ ξα ισθοδξον νασσιχε. εσμι δεκστχιτεμψξαρ δμιξα στςολι βομψϋε ιμι ςαχξα ϊαδαξξοκ δμιξε, το ϊαπομξεξιε πςοβεμανι ξε πςοισ- θοδιτ. οβςαύεξιε λ ποδπςοηςαννε: CALL STRPAD (A,LEN[,ERR]) ηδε A - στςολα, λοτοςυΰ δοπομξρΰτ πςοβεμανι; στςολα δομφξα ϊαχεςϋατψσρ βακτον 0; νασσιχ, σοδεςφαύικ στςολυ, δομφεξ ινετψ ςαϊνες, πο λςακξεκ νεςε ξα 1 βομψϋε, ώεν ϊξαώεξιε παςανετςα LEN; ςεϊυμψτιςυΰύαρ στςολα ταλφε βυδετ ϊαχεςϋατψσρ βακτον 0; LEN - δμιξα (γεμοε) ςεϊυμψτιςυΰύεκ στςολι; ERR - πςιϊξαλ μοηιώεσλοκ οϋιβλι, λοτοςωκ υσταξαχμιχαετσρ χ .TRUE., εσμι στςολα, υλαϊαξξαρ παςανετςον "A" ινεετ δμιξυ, πςεχοσθοδρύυΰ ϊξαώεξιε παςανετςα LEN. οϋιβλι: ξαμιώιε οϋιβολ υλαϊωχαετσρ παςανετςον ERR, εσμι οξ ϊαδαξ; εσμι χθοδξαρ στςολα δμιξξεε, ώεν ϊαδαξξοε ϊξαώεξιε παςανετςα LEN, το παςανετς ERR υσταξαχμιχαετσρ χ .TRUE.; χ πςοτιχξον σμυώαε ϊξαώεξιε παςανετςα ERR ξε ιϊνεξρετσρ; ποό- τονυ, εσμι χεδετσρ λοξτςομψ ϊξαώεξιρ ότοκ πεςενεξξοκ, το - 398 - πεςεδ χωϊοχον ποδπςοηςαννω, παςανετςυ ERR ξεοβθοδινο πςισ- χοιτψ ϊξαώεξιε .FALSE.. δαξξυΰ ποδπςοηςαννυ γεμεσοοβςαϊξο πςινεξρτψ δμρ ζοςνι- ςοχαξιρ στςολ, λοτοςωε χωχοδρτσρ πο ζοςνατυ "A". πςινες. LOGICAL*1 STR (81) . . . CALL STRPAD (STR,80) !ηαςαξτιςοχατψ 80 C σινχομοχ PRINT 100,(STR(I),I=1,80) !οτπεώατατψ στςολυ ιϊ 80 C σινχομοχ 100 FORMAT (80A1) 8.18.11. ποδπςοηςαννα SUBSTR ποδπςοηςαννα SUBSTR λοπιςυετ ώαστψ στςολι, ξαώιξαρ σ ϊαδαξξοκ ποϊιγιι χθοδξοκ στςολι σινχομοχ. πςι φεμαξιι, λοπιςυεναρ ώαστψ στςολι νοφετ πισατψσρ χ τοτ νασσιχ, χ λοτοςον ξαθοδιτσρ λοπιςυεναρ στςολα. οβςαύεξιε λ ποδπςοηςαννε: CALL SUBSTR (IN,OUT,I[,LEN]) ηδε IN - νασσιχ, ιϊ λοτοςοηο λοπιςυετσρ ώαστψ στςολι; στςο- λα δομφξα ϊαχεςϋατψσρ βακτον 0; OUT - νασσιχ, χ λοτοςωκ πονεύαετσρ ςεϊυμψτατ; νασσιχ δομφεξ βωτψ ξα οδιξ όμενεξτ δμιξξεε, ώεν υλαϊαξο παςανετςον LEN, εσμι οξ ϊαδαξ; ταλφε, εσμι LEN υλαϊαξ, το χωθοδξαρ στςολα βυδετ ϊαχεςϋεξα βακτον 0; I - ξονες (γεμοε) ποϊιγιι σινχομα χ ισθοδξοκ στςολε, σ λοτοςοηο ξαώιξαετσρ λοπιςοχαξιε, τ.ε. πεςχωκ σιν- χομ ξεοβθοδινοκ ώαστι στςολι; LEN - ναλσιναμψξαρ δμιξα (γεμοε) λοπιςυενοκ ώαστι στςο- λι. εσμι ναλσιναμψξαρ δμιξα (παςανετς LEN) ξε υλαϊαξα, το λοπιςυεναρ ώαστψ στςολι σοδεςφιτ χσε σινχομω σπςαχα οτ ποϊιγιι σινχομα "I" χ νασσιχε IN ι ξε βυδετ ϊαχεςϋατψσρ βακτον 0. εσμι LEN ϊαδαξ, το ποδστςολα λοπιςυετσρ ι ϊαχες- ϋαετσρ βακτον 0. εσμι ϊξαώεξιε παςανετςα LEN ςαχξο ξυμΰ, το νασσιχ OUT ϊαπομξρετσρ πυστοκ στςολοκ. πςι χωϊοχε ότοκ ποδπςοηςαννω σταςοε σοδεςφινοε νασσιχα OUT τεςρετσρ. οϋιβλι Oτσυτστχυΰτ. - 399 - 8.18.12. ποδπςοηςαννα TRANSL ποδπςοηςαννα TRANSL πςοιϊχοδιτ ϊανεξυ σινχομοχ χ υλα- ϊαξξοκ στςολε. δμρ χωπομξεξιρ ποδπςοηςαννω TRANSL τςεβυετσρ πςιβμιϊιτεμψξο 64 σμοχα χ στελε. ότο ξυφξο υώιτωχατψ πςι χωδεμεξιι πανρτι δμρ στελα. οβςαύεξιε λ ποδπςοηςαννε: CALL TRANSL (IN,OUT,R[,P]) ηδε IN - νασσιχ, σοδεςφαύικ ισθοδξυΰ στςολυ; στςολα δομφξα ϊαχεςϋατψσρ βακτον 0; OUT - νασσιχ, πςιξιναΰύικ πςεοβςαϊοχαξξυΰ στςολυ; στςολα ξε ϊαχεςϋαετσρ βακτον 0; R - νασσιχ, σοδεςφαύικ στςολυ ϊξαλοχ ϊανεξω; στςολα δομφξα ϊαχεςϋατψσρ βακτον 0; P - νασσιχ, σοδεςφαύικ στςολυ ϊξαλοχ, λοτοςωε ξεοβθο- δινο πεςελοδιςοχατψ; στςολα δομφξα ϊαχεςϋατψσρ βακτον 0; στςολα OUT ϊανεξρετσρ στςολοκ IN ι νοδιζιγιςυετσρ πςεοβςαϊοχαξιεν σινχομοχ, οπςεδεμρενων νασσιχανι "R" ι "P". εσμι όμενεξτ νασσιχα IN σοδεςφιτ σινχομ, πορχμρΰύικσρ χ στςολε "P" χ ποϊιγιι "I", το χ νασσιχε OUT οξ ϊανεξρετσρ σινχομον ιϊ ποϊιγιι "I" στςολι "R". εσμι νασσιχ "P" ξε υλαϊαξ, το πςεδπομαηαετσρ, ώτο οξ σοστοιτ ιϊ 127 7-βιτοχωθ σινχομοχ λοι-7, ςασπομοφεξξωθ χ χοϊςασταΰύεν ποςρδλε, ξαώιξαρ σ σινχομα σ λοδον "001. εσμι ϊαδαξω ςαϊμιώαΰύιεσρ πο δμιξε στςολι "R" ι "P", το δμιξξαρ στςολα υσελαετσρ δο ςαϊνεςα λοςοτλοκ. εσμι χ στςολε "P" σινχομ πορχμρετσρ βομεε οδξοηο ςαϊα, το ϊξαώεξιε ινεετ τομψλο ποσμεδξεε εηο πορχμεξιε. χ στςολε "R" σινχομ νοφετ πορχμρτψσρ μΰβοε ώισμο ςαϊ. οϋιβλι Oτσυτστχυΰτ. πςινεςω: χ πεςχον πςινεςε λοπιςυετσρ στςολα νασσιχα "A" χ νασ- σιχ "B". χσε τοώλι χξυτςι νασσιχα "B" ϊανεξρΰτσρ ξα νιξυσ, α χσε ϊξαλι χοπςοσα - ξα χοσλμιγατεμψξωε ϊξαλι. CALL TRANSL(A,B,'-!','.?') χο χτοςον πςινεςε ποδπςοηςαννα TRANSL ισπομψϊυετσρ δμρ πςεοβςαϊοχαξιρ σινχομψξοκ ιξζοςναγιι. LOGICAL*1 STRING(22),RESULT(22),PATRN(22) C C υλαϊατψ στςολυ, λοτοςυΰ ξεοβθοδινο πςεοβςαϊοχατψ - 400 - C CALL SCOPY ('ηοςξ ϊχυώιτ χ πομξοώψ',STRING) C C 000000000111111111122 C 123456789012345678901 C ηοςξ ϊχυώιτ χ πομξοώψ C C υσταξοχιτψ ϋαβμοξ δμρ πομυώεξιρ σμεδυΰύεηο ζοςνατα C 13,14,15,16,17,18,19,20,21,12,1,2,3,4,5,6,7,8,9,10,11, C DO 10 I=13,21 10 PATRN(I-12)=I PATRN(10)=12 DO 20 I=1,11 20 PATRN (I+10)=I PATRN (22)=0 C C χωϊοχ πςοηςαννω TRANSL πεςεστςαιχαετ σινχομω ισθοδξοκ C στςολι χ ποςρδολ, ϊαδαξξωκ ϋαβμοξον C CALL TRANSL(PATRN,RESULT,STRING) C C ςεϊυμψτιςυΰύαρ στςολα "χ πομξοώψ ηοςξ ϊχυώιτ". ότοτ C σποσοβ νοφξο ισπομψϊοχατψ δμρ ζοςνατιςοχαξιρ C ισθοδξωθ στςολ δμιξοκ δο 127 σινχομοχ. δμιξα C ςεϊυμψτιςυΰύεκ στςολι ςαχξα δμιξε στςολι-ϋαβμοξα. 8.18.13. ποδπςοηςαννα TRIM ποδπςοηςαννα TRIM υλοςαώιχαετ ϊαδαξξυΰ στςολυ σινχομοχ πυτεν υδαμεξιρ χσεθ λοξεώξωθ πςοβεμοχ. λοξεώξων πςοβεμον ρχμρετσρ πςοβεμ, σπςαχα οτ λοτοςοηο οτσυτστχυΰτ ϊξαώαύιε σινχομω. εσμι χσρ ϊαδαξξαρ στςολα σοστοιτ ιϊ πςοβεμοχ, το οξα ϊανεξρετσρ πυστοκ στςολοκ. εσμι ϊαδαξξαρ στςολα ξε ινεετ λοξεώξωθ πςοβεμοχ, το οξα οσταετσρ βεϊ ιϊνεξεξιρ. οβςαύεξιε λ ποδπςοηςαννε: CALL TRIM(A) ηδε A - νασσιχ, σοδεςφαύικ στςολυ, λοτοςυΰ ξεοβθοδινο υλο- ςοτιτψ; ότα στςολα δομφξα ϊαχεςϋατψσρ βακτον 0; ποσμε χωϊοχα ποδπςοηςαννω TRIM ότα στςολα ταλφε βυδετ ϊαχεςϋατψσρ βακτον 0. οϋιβλι οτσυτστχυΰτ. πςινες. LOGICAL*1 STRING(81) ACCEPT 100,(STRING(I),I=1,80) 100 FORMAT (80A1) CALL SCOPY(STRING,STRING,80) !σοϊδατψ ζοςνατ ASCIZ - 401 - CALL TRIM (STRING) !υλοςοτιτψ στςολυ 8.18.14. ποδπςοηςαννα IVERIF/VERIFY ποδπςοηςαννα VERIFY οπςεδεμρετ, χστςεώαετσρ μι λαφδωκ σινχομ ϊαδαξξοκ στςολι χ στςολε οβςαϊγα. εσμι λαλοκ-μιβο σινχομ πςοχεςρενοκ στςολι οτσυτστχυετ χ οβςαϊγε, το ςεϊυμψ- τατον ςαβοτω ποδπςοηςαννω VERIFY βυδετ ξονες ποϊιγιι ταλοηο σινχομα χ πςοχεςρενοκ στςολε. εσμι χσε σινχομω πςισυτστχυΰτ χ οβςαϊγε, ςεϊυμψτατον βυδετ ξομψ. οβςαύεξιε λ ποδπςοηςαννε: CALL VERIFY (A,B,I) ιμι I=IVERIF(A,B) ηδε A - νασσιχ, σοδεςφαύικ πςοχεςρενυΰ στςολυ; στςολα δομφξα ολαξώιχατψσρ βακτον 0; B - νασσιχ, σοδεςφαύικ οβςαϊεγ - στςολυ σινχομοχ, πςο- χεςρενωθ χ νασσιχε "A"; ότα στςολα δομφξα ϊαχες- ϋατψσρ βακτον 0; I - γεμωκ ςεϊυμψτατ πςοχεςλι. ςεϊυμψτατω ζυξλγιι: I=0 - χσε σινχομω στςολι "A" συύεστχυΰτ χ στςολε "B"; I=N - ηδε N ρχμρετσρ ξονεςον ποϊιγιι πεςχοηο σινχομA στςολι "α", λοτοςωκ ξε ξακδεξ χ στςολε "χ"; εσμι στςολα "B" ρχμρετσρ πυστοκ, α στςολα "A" - ξετ, το I=1. χ πςινεςε ισθοδξωνι δαξξωνι ρχμρΰτσρ δεσρτιώξωε ώισμα βεϊ ϊξαλα, ϊαπισψ λοτοςωθ σοδεςφιτ οτ οδξοκ δο πρτι γιζς ι λοτοςωε ϊατεν πςεοβςαϊυΰτσρ χ δχοιώξωκ χιδ λοδα λοι-7. πςινες. LOGICAL*1 INSTR(81) . . . CALL VERIFY(INSTR(IPOS),'0123456789',I) IF(I.EQ.1) STOP 'ώισμο ξε ϊαδαξο' IF(I.EQ.0) I=LEN(INSTR)-IPOS+1 IF(I.GT.5) STOP 'σμιϋλον νξοηο γιζς' NUM=IVALUE(INSTR(IPOS),I) . . . END FUNCTION IVALUE(ARRAY,I) LOGICAL*1 ARRAY(1) - 402 - DECODE(I,99,ARRAY) IVALUE 99 FORMAT(I5) END 8.18.15. ζυξλγιρ IRAD50 ζυξλγιρ IRAD50 πςεοβςαϊυετ υλαϊαξξοε ώισμο σινχομοχ, πςεδσταχμεξξωθ χ λοι-7, χ λοδ RADIX-50 ι ποδσώιτωχαετ λομι- ώεστχο πςεοβςαϊοχαξξωθ σινχομοχ. πςεοβςαϊοχαξιε πςελςαύαετ- σρ πο πεςχονυ, χστςετιχϋενυσρ ξα χχοδε, σινχομυ, ξεδοπυστι- νονυ δμρ λοδα RADIX-50, ιμι λοηδα χωπομξιμοσψ πςεοβςαϊοχα- ξιε υλαϊαξξοηο ώισμα σινχομοχ λοι-7. οβςαύεξιε λ ζυξλγιι: N=IRAD50 (ICNT,INPUT,OUTPUT) ηδε N - γεμοε ώισμο πςεοβςαϊοχαξξωθ χοδξωθ σινχομοχ; ICNT - ώισμο πςεοβςαϊυενωθ σινχομοχ λοι-7; INPUT - νασσιχ, ιϊ λοτοςοηο βεςυτσρ σινχομω δμρ πςεοβςαϊο- χαξιρ; OUTPUT - νασσιχ, χ λοτοςον ϊαπονιξαΰτσρ πςεοβςαϊοχαξξωε χ RADIX-50 σινχομω. τςι σινχομα τελστα υπαλοχωχαΰτσρ χ οδξο σμοχο. ώισμο πςεοβςαϊοχαξξωθ χωθοδξωθ σμοχ χωώισμρετσρ χωςαφεξιεν (χ γεμωθ σμοχαθ): (ICNT+2)/3. T.E. εσμι υλαϊαξξοε λομιώεστχο πςεοβςαϊυενωθ σινχομοχ ςαχξο 4, το ϊαπισωχαετσρ δχα χωθοδξωθ σμοχα, δαφε εσμι χ λαώεστχε παςανετςα βωμα δαξα οδξοσινχομψξαρ ισθοδξαρ στςολα. ςεϊυμψτατω ζυξλγιι: N - ώισμο πςεοβςαϊοχαξξωθ σινχομοχ. πςινες. REAL*8 FSPEC CALL IRAD50 (12,'SY0TEMP DAT',FSPEC) - 403 - 8.18.16. ποδπςοηςαννα R50ASC ποδπςοηςαννα R50ASC πςεοβςαϊυετ ϊαδαξξοε ώισμο σμοχ, χ λοδε RADIX-50, χ σινχομω λοι-7. οβςαύεξιε λ ποδπςοηςαννε: CALL R50ASC (ICNT,INPUT,OUTPUT) ηδε ICNT - ώισμο σινχομοχ, πομυώαενωθ χ λοι-7; INPUT - νασσιχ, ιϊ λοτοςοηο βεςυτσρ σμοχα δμρ πςεοβςαϊοχα- ξιρ, πςιώεν, ώιταετσρ (ICNT+2)/3 σμοχ; OUTPUT - νασσιχ, χ λοτοςωκ ϊαπισωχαΰτσρ σινχομω λοι-7. οϋιβλι: εσμι χο χθοδξον σμοχε, πςεδσταχμεξξον χ RADIX-50, σμο- χο βομψϋε χοσψνεςιώξοηο ώισμα 174777 (βεϊϊξαλοχοε σςαχξε- ξιε), το ποδπςοηςαννα δμρ ότοκ χεμιώιξω χωχοδιτ χοπςοσι- τεμψξωε ϊξαλι. πςινες. REAL*8 NAME LOGICAL*1 OUTP(12) . . . CALL R50ASC(12,NAME,OUTP) 8.18.17. ζυξλγιρ RAD50 ζυξλγιρ RAD50 πςεδοσταχμρετ νετοδ πεςελOδιςοχλι σπεγι- ζιλαγικ ζακμοχ. ζυξλγιρ RAD50 πςεοβςαϊυετ ϋεστψ σινχομοχ λοι-7 ιϊ ϊαδαξξοηο νασσιχα, πομυώαρ πςι ότον ςεϊυμψτατ χ χιδε χεμιώιξω τιπα REAL*4, πςεδσταχμρΰύεκ σοβοκ 2-σμοχξοε ϊξαώεξιε RADIX-50. οβςαύεξιε λ ζυξλγιι: A=RAD50 (INPUT) ηδε INPUT - νασσιχ, ιϊ λοτοςοηο βεςυτσρ πςεοβςαϊυενωε σινχομω λοι-7. ότο οβςαύεξιε λ ζυξλγιι όλχιχαμεξτξο οβςαύεξιΰ λ ποδπςοη- ςαννε IRAD50: - 404 - CALL IRAD50 (6,LINE,A) ϊξαώεξιεν ζυξλγιι RAD50 ρχμρετσρ 2-σμοχξοε ϊξαώεξιε χ λοδε RADIX-50. 9. ισπομψϊοχαξιε ςασϋιςεξξοκ πανρτι (XM) ςασϋιςεξξοκ πανρτψΰ ξαϊωχαΰτ ζιϊιώεσλυΰ πανρτψ σχωϋε 28 λσμοχ, λοτοςαρ δοστυπξα τομψλο πςι ισπομψϊοχαξιι σπε- γιαμψξωθ τεθξιώεσλιθ σςεδστχ. νμαδϋαρ πανρτψ - πανρτψ οτ 0 δο 28 λσμοχ. 9.1. οσξοχξωε ποξρτιρ χ δαξξον ποδςαϊδεμε πςεδσταχμεξο οπισαξιε οσοβεξξοστεκ ισπομψϊοχαξιρ ςασϋιςεξξοκ πανρτι ποδ υπςαχμεξιεν XM-νοξιτοςα. 9.1.1. 16-ςαϊςρδξαρ αδςεσαγιρ πςογεσσοςω σν όχν νοηυτ ξεποσςεδστχεξξο αδςεσοχατψ 32 λσμοχ, τ.λ. αςθιτελτυςα οβεσπεώιχαετ τομψλο 16-ςαϊςρδξωε αδςεσα. χ σν όχν βεϊ δισπετώεςα πανρτι (ξε ισπομψϊυΰύιθ ςασϋι- ςεξξυΰ πανρτψ) σταςϋιε 4 λσμοχ αδςεσξοηο πςοστςαξστχα, ξαϊ- χαξξωε στςαξιγεκ χχοδα/χωχοδα, ςεϊεςχιςυΰτσρ δμρ ςεηιστςοχ χξεϋξιθ υστςοκστχ. ταλιν οβςαϊον, τομψλο 28 λσμοχ αδςεσξοηο πςοστςαξστχα δοστυπξω δμρ ισπομψϊοχαξιρ πςοηςαννξων οβεσπε- ώεξιεν σιστενω ι πςοηςαννανι χ λαώεστχε οπεςατιχξοκ πανρτι. χ λονπμελσαθ ινεΰύιθ 28 λσμοχ πανρτι χσε 28 λσμοχ δοστυπξω. 9.1.2. χιςτυαμψξωε ι ζιϊιώεσλιε αδςεσα χ λονπμελσαθ (28 λσμοχ) χιςτυαμψξωκ αδςεσ - ότο ϊξαώεξιε χ πςεδεμαθ οτ 0 δο 177777. ότοτ 16-ςαϊςρδξωκ αδςεσ ςασπομοφεξ χξυτςι πςοηςανν- ξοηο 32 λσμοχξοηο αδςεσξοηο πςοστςαξστχα. - 405 - ζιϊιώεσλικ αδςεσ - ότο δεκστχιτεμψξωκ αππαςατξωκ αδςεσ οπςεδεμεξξοκ ρώεκλι πανρτι. οξ ξε οηςαξιώιχαετσρ 16 ςαϊςρ- δανι. ξα ςισ. 5 πολαϊαξα σχρϊψ νεφδυ πςοστςαξστχανι χις- τυαμψξωθ ι ζιϊιώεσλιθ αδςεσοχ. σμεδυετ ινετψ χ χιδυ, ώτο εσμι σιστενα ςαβοταετ ποδ υπςαχμεξιεν SJ- ιμι FB-νοξιτοςα, το χιςτυαμψξωε αδςεσα πομξοστψΰ σοοτχετστχυΰτ ζιϊιώεσλιν. ξαπςινες, χιςτυαμψξωκ αδςεσ 20000 σοοτχετστχυετ ζιϊιώεσλονυ αδςεσυ 20000. χιςτυαμψξωε ι ζιϊιώεσλιε αδςεσα χ σιστενε σ πανρτψΰ 28 λσμοχ πςοστςαξστχο πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ ζιϊιώεσλιθ αδςεσοχ 32λ ------------------- 32λ ------------------- ! ! ! στςαξιγα ! ! ! ! χχοδα/χωχοδα ! ! ! 28λ !-----------------! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! δοστυπξαρ ! ! ! ! πανρτψ ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 4λ ! 20000 !----> 4λ ! 20000 ! ! ! ! ! ! ! ! ! 0 ------------------- 0 ------------------- 16-ςαϊςρδξωε αδςεσα 16-ςαϊςρδξωε αδςεσα ςισ. 5 9.1.3. ςαϊνες πςοηςαννω οβωώξο ςαϊνες πςοηςαννω ξε πςεχωϋαετ 28 Kσμοχ. ώτοβω οβοκτι ότο οηςαξιώεξιε, ισπομψϊυετσρ δχα σποσοβα. πεςχωκ σποσοβ, ξαϊωχαενωκ νετοδον γεποώλι, σοστοιτ χ τον, ώτο οδξα πςοηςαννα χωϊωχαετ δςυηυΰ ι πεςεδαετ εκ υπςαχμεξιε; χτοςαρ πςοηςαννα οβεσπεώιχαετ δοπομξιτεμψξωε οπεςαγιι σ δαξξωνι, πομυώεξξωνι ιϊ πεςχοκ πςοηςαννω. ξαπςινες, πςοηςαννα MACRO τςαξσμιςυετ ισθοδξυΰ πςοηςαννυ ι πεςεδαετ υπςαχμεξιε (πο γεποώλε) πςοηςαννε CREF, λοτοςαρ σοϊδαετ μιστιξη πεςελςεστ- ξωθ σσωμολ. δμρ χωπομξεξιρ πςοηςαννω, ϊαξιναΰύεκ βομψϋε νεστα, ώεν πςεδοσταχμρεναρ πανρτψ, ξεοβθοδινο ςαϊδεμιτψ εε ξα δχε ιμι βομψϋε ζυξλγιοξαμψξο ξεϊαχισινωθ ώαστεκ, χωπομ- ξρΰύιθσρ πο γεποώλε. χτοςοκ σποσοβ χωπομξεξιρ πςοηςαννω, τςεβυΰύεκ βομψϋε νεστα, ώεν ινεετσρ οπεςατιχξοκ πανρτι, σοστοιτ χ ςαϊδεμεξιι - 406 - πςοηςαννω ξα οχεςμεκξωε σεηνεξτω. οτδεμψξωε σεηνεξτω ποοώε- ςεδξο νοηυτ ϊαηςυφατψσρ χ οδξο ι το φε νεστο ζιϊιώεσλοκ πανρτι. ισπομψϊοχαξιε οχεςμεκξωθ σεηνεξτοχ ποϊχομρετ χωπομ- ξρτψ οώεξψ βομψϋιε πςοηςαννω χ σςαχξιτεμψξο ξεβομψϋοκ ζιϊι- ώεσλοκ πανρτι. χ οβοιθ σμυώαρθ (σποσοβαθ γεποώλι ι οχεςμεεχ) ιξστςυλ- γιι ι δαξξωε χ οτδεμψξωθ πςοηςανναθ ιμι σεηνεξταθ ισπομψ- ϊυΰτ οδιξαλοχωε χιςτυαμψξωε αδςεσα ι οδιξαλοχωε ρώεκλι ζιϊιώεσλοκ πανρτι. πςοηςαννω ιμι σεηνεξτω, ξε ξαθοδρύιεσρ χ πανρτι, θςαξρτσρ ξα χξεϋξεν υστςοκστχε. ςισ. 6 ιμμΰστςιςυετ σποσοβ γεποώλι, ςισ. 7 - ισπομψϊο- χαξιε οχεςμεεχ. σποσοβ γεποώλι πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 32λ ------------------ ! στςαξιγα ! ! χχοδα/χωχοδα ! 28λ !----------------! χξεϋξεε ! ! ϊαπονιξαΰύεε ! ! υστςοκστχο ! πανρτψ ! --------------- ! ! ----! πςοηςαννα 2 ! ! ! ! --------------- ! ! ! ! ! ! !----------------! ! ! ! ! ! πςοηςαννα 1 !<---- ! ! ------------------ λοηδα πςοηςαννα 1 ϊαχεςϋαετσρ, οξα χωϊωχαετ πςοηςαννυ 2. πςοηςαννα 2 ισπομψϊυετ τε φε χιςτυαμψξωε αδςεσα ι ρώεκλι ζιϊιώεσλοκ πανρτι, ώτο ι πςοηςαννα 1. ςισ. 6 - 407 - σποσοβ οχεςμεεχ πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 32λ ------------------ ! στςαξιγα ! ! χχοδα/χωχοδα ! 28λ !----------------! χξεϋξεε ! ! ϊαπονιξαΰύεε ! ! υστςοκστχο ! πανρτψ ! --------------- ! ! ----------! σεηνεξτ 1 ! ! ! ! -------! σεηνεξτ 2 ! ! ! ! ! ----! σεηνεξτ 3 ! ! ! ! ! ! --------------- !----------------! ! ! ! ! οχεςμεκξαρ !<---- ! ! ! οβμαστψ 1 !<------- ! ! !<---------- !----------------! ! λοςξεχοκ ! ! σεηνεξτ ! ! ! ------------------ πςι χωπομξεξιι πςοηςαννω σεηνεξτω 1, 2, 3 ϊαηςυφαΰτσρ χ οχεςμεκξυΰ οβμαστψ 1. χσε σεηνεξτω ισπομψϊυΰτ οδιξαλοχωε χιςτυαμψξωε αδςεσα ι ρώεκλι ζιϊιώεσλοκ πανρτι. ςισ. 7 9.1.4. 18-ςαϊςρδξαρ αδςεσαγιρ χ σιστενε ινεετσρ χοϊνοφξοστψ δοστυπα βομεε, ώεν λ 32 λσμοχαν πανρτι σ πονούψΰ δισπετώεςα πανρτι, λοτοςωκ ποϊχο- μρετ ισπομψϊοχατψ 18-ςαϊςρδξωε αδςεσα οϋ. ότο ϊξαώιτ, ώτο νοφξο αδςεσοχατψ δο 124 λσμοχ ζιϊιώεσλοκ πανρτι, πμΰσ 4 λσμοχ στςαξιγω χχοδα/χωχοδα. χιςτυαμψξωε αδςεσα πςοηςαννω πομψϊοχατεμρ χσεηδα οηςα- ξιώεξω 16 ςαϊςρδανι, ποότονυ πςοστςαξστχο χιςτυαμψξωθ αδςε- σοχ πςοηςαννω οηςαξιώεξο 32 λσμοχανι. 18-ςαϊςρδξωκ αδςεσ ποϊχομρετ οβςαύατψσρ λ μΰβοκ ρώεκλε οτ 0 δο 128 λσμοχ. χ σιστενε, ινεΰύεκ βομψϋε 28 λσμοχ πανρ- τι, λ ζιϊιώεσλιν ρώεκλαν οβςαύαΰτσρ ώεςεϊ υστςοκστχο, πςεοβςαϊυΰύεε 16-ςαϊςρδξωκ αδςεσ χ 18-ςαϊςρδξωκ. ξα ςισ. 8 πολαϊαξω πςοστςαξστχα χιςτυαμψξωθ ι ζιϊιώεσλιθ αδςεσοχ χ σιστενε σ ςασϋιςεξξοκ πανρτψΰ. - 408 - χιςτυαμψξωε ι ζιϊιώεσλιε αδςεσα χ σιστενε σ ςασϋιςεξξοκ πανρτψΰ πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 128λ ------------------ ! στςαξιγα ! ! χχοδα/χωχοδα ! 124λ !----------------! ! ! . . πςοστςαξστχο . . χιςτυαμψξωθ αδςεσοχ . . 32λ ------------------ ! ! ! ! ! πανρτψ ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 0 ------------------ 0 ------------------ 16-ςαϊςρδξωε αδςεσα 18-ςαϊςρδξωε αδςεσα ςισ. 8 οϋ ποϊχομρετ αδςεσοχατψ δο 128 λσμοχ πανρτι. ότυ ϊαδα- ώυ χωπομξρετ υστςοκστχο - δισπετώες πανρτι, α πςοηςαννξοε οβεσπεώεξιε οπεςαγιοξξοκ σιστενω (XM-νοξιτος) υσταξαχμιχαετ σοοτχετστχιε νεφδυ χιςτυαμψξωνι αδςεσανι πςοηςαννω ι ρώεκ- λανι ζιϊιώεσλοκ πανρτι ταλ, ώτο πςοηςαννα ινεετ δοστυπ λο χσεκ πανρτι. νοφξο σδεματψ σμεδυΰύιε χωχοδω: - λαφδαρ ρώεκλα πανρτι ινεετ 18-ςαϊςρδξωκ ζιϊιώεσλικ αδςεσ (ζιϊιώεσλιθ αδςεσοχ βομψϋε, ώεν χιςτυαμψ- ξωθ); - πςοηςαννα ινεετ δοστυπ λ ζιϊιώεσλιν αδςεσαν τομψλο ποσμε οτοβςαφεξιρ χιςτυαμψξωθ αδςεσοχ ξα ζιϊιώεσ- λιε ρώεκλι; - ισπομψϊυρ χιςτυαμψξωε αδςεσα, ξο λαφδωκ ςαϊ σ ςαϊ- μιώξων οτοβςαφεξιεν, πςοηςαννα νοφετ ινετψ δοστυπ λο χσεκ ινεΰύεκσρ ζιϊιώεσλοκ πανρτι. χ σιστεναθ σ ςασϋιςεξξοκ πανρτψΰ πςοηςαννω ξε οηςαξι- ώεξω 28 λσμοχ πανρτι. οδξαλο, οξι οηςαξιώεξω 32 λσμοχξοκ αδςεσαγιεκ. οβωώξο βομψϋιε πςοηςαννω δεμρτ ξα ξεβομψϋιε σεηνεξτω, λαλ ι χ σιστεναθ σ 28 λσμοχ πανρτι. χ το χςενρ, λαλ ιξστςυλγιι ι δαξξωε χ οτδεμψξωθ σεηνεξταθ πςοηςαννω ινεΰτ οδιξαλοχωε χιςτυαμψξωε αδςεσα, οξι νοηυτ ινετψ ςαϊ- μιώξωε ζιϊιώεσλιε αδςεσα. ξα ςισ. 9 πολαϊαξα πςοηςαννα, ςαϊδεμεξξαρ ξα τςι οχες- μεκξωθ σεηνεξτα. χσε τςι σεηνεξτα οδξοχςενεξξο ξαθοδρτσρ χ ςασϋιςεξξοκ πανρτι, ξο ινεΰτ οδξι ι τε φε χιςτυαμψξωε αδςε- - 409 - σα οχεςμεκξοκ οβμαστι 1. πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ . . . . . . ------------------ ! ! --------->! σεηνεξτ 1 ! ! ! ! ! !----------------! ! ! ! !-------->! σεηνεξτ 2 ! πςοστςαξστχο ! ! ! χιςτυαμψξωθ αδςεσοχ ! !----------------! 32λ ------------------ ! ! ! ! ! !-------->! σεηνεξτ 3 ! ! ! ! ! ! ! ! ! !----------------! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !----------------! ! ! ! ! οχεςμεκξαρ !-------- ! ! ! οβμαστψ 1 ! ! ! !----------------! ! ! ! λοςξεχοκ ! ! λοςξεχοκ ! ! σεηνεξτ !---------------->! σεηνεξτ ! ! ! ! ! 0 ------------------ 0 ------------------ . . . . . . σεηνεξτω 1, 2, 3 ςασπομοφεξω χ ςαϊξωθ ζιϊιώεσλιθ αδςεσαθ ξο ισπομψϊυΰτ οδιξ ι τοτ φε ξαβος χιςτυαμψξωθ αδςεσοχ. ςισ. 9 9.2. τεθξιώεσλιε σςεδστχα δμρ ςαβοτω σ σ ςασϋιςεξξοκ πανρτψΰ (XM-νοξιτος) λ λοξ- ζιηυςαγιι τεθξιώεσλιθ σςεδστχ πςεδ'ρχμρΰτσρ σμεδυΰύιε τςε- βοχαξιρ: - οπεςατιχξαρ πανρτψ ξε νεξεε 32 λσμοχ; - ςασϋιςεξξωκ ξαβος ιξστςυλγικ (EIS); - ξαμιώιε δισπετώεςα πανρτι. χ ότον ποδςαϊδεμε ςασσνατςιχαετσρ δισπετώες πανρτι ι εηο ζυξλγιι. - 410 - 9.2.1. δισπετώες πανρτι οσξοχοκ δμρ ςαβοτω σ ςασϋιςεξξοκ πανρτψΰ χ σιστενε ρχμρετσρ υστςοκστχο - δισπετώες πανρτι (δπ). θν-νοξιτος ποδδεςφιχαετ νιξιναμψξωκ ξαβος ζυξλγικ δισπετώεςα πανρτι. οσξοχξοκ ζυξλγιεκ δισπετώεςα πανρτι ρχμρετσρ πςεοβςα- ϊοχαξιε 16-ςαϊςρδξοηο χιςτυαμψξοηο αδςεσα, ηεξεςιςυενοηο πςογεσσοςον, χ 18-ςαϊςρδξωκ ζιϊιώεσλικ αδςεσ. ςισ. 10 ιμμΰστςιςυετ ότοτ πςογεσσ. πςεοβςαϊοχαξιε αδςεσα δισπετώεςον πανρτι 15 16 βιτοχ 0 ------------------------------------------------- ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ------------------------------------------------- \ / \---------------------------------------------/ ! ! V ---------------- ------------------- ! δισπετώες ! ! τελυύαρ ! ! πανρτι !<------! ιξζοςναγιρ ! ! ! ! οτοβςαφεξιρ ! ---------------- ------------------- ! ! 17 V 0 /---------------------------------------------------\ / \ ------------------------------------------------------- ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ------------------------------------------------------- 18 βιτοχ ςισ. 10 9.2.2. ποξρτιε στςαξιγω χ σιστενε σ ςασϋιςεξξοκ πανρτψΰ χσε 32 λσμοχ πςοστ- ςαξστχα χιςτυαμψξωθ αδςεσοχ δεμρτσρ ξα 8 ώαστεκ, λοτοςωε ξαϊωχαΰτσρ στςαξιγανι. λαφδαρ στςαξιγα ξαώιξαετσρ σ αδςεσα, λςατξοηο 4 λσμοχαν, ι ξυνεςυΰτσρ οτ 0 δο 7. στςαξιγω ςαϊβι- τω ξα 32-σμοχξωε (δεσρτιώξοε) βμολι. οξι νοηυτ ινετψ δο 128 ταλιθ βμολοχ, ςαϊνες στςαξιγω νοφετ νεξρτψσρ οτ 0 δο 4096 σμοχ σ ϋαηον χ 32 σμοχα. ξα ςισ. 11 πολαϊαξο πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ, ςαϊδεμεξξοε ξα χοσενψ 4-λσμοχξωθ στςαξιγ. - 411 - πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ 32λ --------------------- ! στςαξιγα 7 ! 28λ !- - - - - - - - - -! 160000 ! στςαξιγα 6 ! 24λ !- - - - - - - - - -! 140000 ! στςαξιγα 5 ! 20λ !- - - - - - - - - -! 120000 ! στςαξιγα 4 ! 16λ !- - - - - - - - - -! 100000 ! στςαξιγα 3 ! 12λ !- - - - - - - - - -! 60000 ! στςαξιγα 2 ! 8λ !- - - - - - - - - -! 40000 ! στςαξιγα 1 ! 4λ !- - - - - - - - - -! 20000 ! στςαξιγα 0 ! 0 --------------------- 0 ςισ. 11 ξα ςισ. 12 πολαϊαξο πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ, ςαϊδεμεξξοε ξα 5 στςαξιγ ςαϊξοκ δμιξω. ϊαϋτςιθοχαξξωε οβμαστι πςοστςαξστχα χιςτυαμψξωθ αδςεσοχ ξε ρχμρΰτσρ ώαστψΰ στςαξιγ ι ποότονυ ξε δοστυπξω. ταλιν οβςαϊον λοςοτλιε στςα- ξιγω ρχμρΰτσρ πςιώιξοκ πςονεφυτλοχ χ πςοστςαξστχε χιςτυαμψ- ξωθ αδςεσοχ. - 412 - λοςοτλιε στςαξιγω πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ 32λ --------------------- !///////////////////! ! στςαξιγα 7 ! ! ! 28λ !- - - - - - - - - -! !///////////////////! !///////////////////! !///////////////////! 24λ ! - - - - - - - - - ! !///////////////////! !-------------------! ! στςαξιγα 5 ! 20λ !- - - - - - - - - -! !///////////////////! !///////////////////! !///////////////////! 16λ ! - - - - - - - - - ! !///////////////////! !-------------------! ! στςαξιγα 3 ! 12λ !- - - - - - - - - -! !///////////////////! !-------------------! ! στςαξιγα 2 ! 8λ !- - - - - - - - - -! !///////////////////! !///////////////////! !///////////////////! 4λ ! - - - - - - - - - ! !///////////////////! ! στςαξιγα 0 ! ! ! 0 --------------------- ςισ. 12 9.2.3. πεςενεύεξιε οσξοχξοε ξαϊξαώεξιε δισπετώεςα πανρτι - πςεοβςαϊοχαξιε 16-ςαϊςρδξωθ χιςτυαμψξωθ αδςεσοχ χ 18-ςαϊςρδξωε ζιϊιώεσλιε αδςεσα πανρτι. ταλοε πςεοβςαϊοχαξιε οσυύεστχμρετσρ πυτεν πςιβαχμεξιρ λ χιςτυαμψξονυ αδςεσυ λοξσταξτω πεςενεύεξιρ. ςαϊξωε λοξσταξτω πεςενεύεξιρ δμρ οδξοηο ι τοηο φε χιςτυαμψ- ξοηο αδςεσα οβεσπεώιχαΰτ εηο πςεοβςαϊοχαξιε χ ςαϊξωε ζιϊι- ώεσλιε αδςεσα πανρτι. δισπετώες πανρτι πεςενεύαετ χιςτυαμψ- ξωε αδςεσα ποστςαξιώξο. οξ ξαϊξαώαετ στςαξιγε οβμαστψ ζιϊι- ώεσλοκ πανρτι, λοτοςαρ ξαώιξαετσρ ξα ηςαξιγε 32 (δεσρτιώ- ξοε) σμοχ. ξα ςισ. 13 πολαϊαξο, λαλ δισπετώες πανρτι νοφετ πεςενεύατψ χιςτυαμψξωε αδςεσα δχυθ ςαϊμιώξωθ πςοηςανν. - 413 - πεςενεύεξιε πςοηςανν πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 124λ ----------- ! ! . . . . . . ! ! πςοστςαξστχο ! ! πςοστςαξστχο χιςτυαμψξωθ ! ! χιςτυαμψξωθ αδςεσοχ ! ! αδςεσοχ 32λ ----------- ! ! 32λ ----------- ! ! ! ! ! ! ! ! ! ! ! ! !- - - - -! 28λ !- - - - -! !- - - - -! 160000 ! ! !---------!----- ! ! ! ! ! ! ! ! ! !- - - - -! 24λ !πςοηςαννα! ! !- - - - -! 140000 ! ! ! 2 ! ! ! ! ! ! ! ! ! ! ! !- - - - -! 20λ !---------!--- ! !- - - - -! 120000 ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! !- - - - -! 16λ !- - - - -! ! ! !- - - - -! 100000 ! ! ----!---------! ! ! ! ! ! ! / ! ! ! ! ! ! !- - - - -! / 12λ !- - - - -! ! ! !- - - - -! 60000 10λ !---------!/ !πςοηςαννα! ! ! ! ! ! ! ! 1 ! ! ! ! ! !πςοηςαννα! 8λ !- - - - -! ! ! !- - - - -! 40000 ! 1 ! ! ! ! !--!---------!<---7λ ! ! ! ! ! !πςοηςαννα! !- - - - -! -4λ-!---------! ! !- - - - -! 20000 ! (10λ) ! / ! ! ! ! 2 ! ! ! / ! ! ! ! (7λ) ! 0 -----------/ 0 ----------- !-0------------- 0 ςισ. 13 πςοηςαννα 1 πεςενεύαετσρ ξα 20000 (χοσψνεςιώξοε) ρώεελ. ποότονυ, λοηδα πςοηςαννα 1 οβςαύαετσρ λ αδςεσυ 0, χ δεκστ- χιτεμψξοστι οξα πομυώιτ δοστυπ λ ρώεκλε πανρτι σ αδςεσον 20000. ποσλομψλυ δισπετώες πανρτι πεςενεύαετ στςαξιγω πςοστ- ςαξστχα χιςτυαμψξωθ αδςεσοχ ξεϊαχισινο δςυη οτ δςυηα, το πςοηςαννα νοφετ βωτψ οτοβςαφεξα ξα ξεσνεφξωε υώαστλι ζιϊι- ώεσλοκ πανρτι, λαλ πολαϊαξο ξα ςισ. 14. - 414 - πεςενεύεξιε στςαξιγ πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 124λ ------------------- ! . . . πςοστςαξστχο ! χιςτυαμψξωθ αδςεσοχ ! 32λ -------------------- ! ! ! ! ! ! ! ! ! ! ! ! /--------!------------------ ! ! / ! ! ! / /----16λ-!------------------ ! ! / / ! ! ! / / ! 12λ ! ! / / /-----12λ-!------------------ !------------------!/ / / ! ! στςαξιγα 2 ! / / ! 8λ !------------------!/-/ /----8λ-!------------------ ! στςαξιγα 1 ! / ! ! ! / ! 4λ !------------------!----/-------4λ-!------------------ ! στςαξιγα 0 ! ! ! ! ! 0 ---------------------------------0-------------------- πςοηςαννα 1 ςισ. 14 9.2.4. ςεηιστς αλτιχξωθ στςαξιγ (ςασ) XM-νοξιτος υπςαχμρετ δισπετώεςον πανρτι ώεςεϊ ταλ ξαϊωχαενωε ςεηιστςω αλτιχξωθ στςαξιγ (ςασ), αδςεσα λοτοςωθ ξαθοδρτσρ χ στςαξιγε χχοδα/χωχοδα. λαφδωκ ςασ σοστοιτ ιϊ δχυθ 16-ςαϊςρδξωθ ςεηιστςοχ: ςεηιστςα αδςεσα στςαξιγω (ςα) ι ςεηιστςα οπισαξιρ στςαξιγω (ςο). ότο πολαϊαξο ξα ςισ. 15. ςεηιστς αλτιχξωθ στςαξιγ 15 0 15 0 ------------------------------------------------------- ! PA ! Pο ! ------------------------------------------------------- ςεηιστς αδςεσα στςαξιγω ςεηιστς οπισαξιρ στςαξιγω ςισ. 15 ςεηιστςω ςα ι ςο χσεηδα δεκστχυΰτ λαλ εδιξοε γεμοε. ξαβος ιϊ χοσψνι ςεηιστςοχ αλτιχξωθ στςαξιγ σοδεςφιτ χσΰ ιξζοςναγιΰ, ξεοβθοδινυΰ δμρ οπισαξιρ ι πεςενεύεξιρ χοσψνι χιςτυαμψξωθ στςαξιγ. ςεηιστς ςο οπισωχαετ οτοβςαφεξιε χις- τυαμψξοκ στςαξιγω χ πανρτψ. ςεηιστς ςα υλαϊωχαετ νεστοξα- - 415 - θοφδεξιε χ πανρτι χιςτυαμψξοκ στςαξιγω. χσε ςεηιστςω ςασ ξυνεςυΰτσρ οτ 0 δο 7. δμρ λαφδοκ στςαξιγω ινεετσρ οδιξ ςασ, λαλ πολαϊαξο ξα ςισ. 16. σοοτχετστχιε νεφδυ στςαξιγανι ι ςεηιστςανι αλτιχξωθ στςαξιγ πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ 32λ ----------------\ ! ! \ ---------------------- ! στςαξιγα 7 ! > ςασ 7 ----->! PA 7 ! Pο 7 ! ! / ---------------------- 28λ !--------------!< ! ! \ ---------------------- ! στςαξιγα 6 ! > ςασ 6 ----->! PA 6 ! Pο 6 ! ! / ---------------------- 24λ !--------------!< ! ! \ ---------------------- ! στςαξιγα 5 ! > ςασ 5 ----->! PA 5 ! Pο 5 ! ! / ---------------------- 20λ !--------------!< ! ! \ ---------------------- ! στςαξιγα 4 ! > ςασ 4 ----->! PA 4 ! Pο 4 ! ! / ---------------------- 16λ !--------------!< ! ! \ ---------------------- ! στςαξιγα 3 ! > ςασ 3 ----->! PA 3 ! Pο 3 ! ! / ---------------------- 12λ !--------------!< ! ! \ ---------------------- ! στςαξιγα 2 ! > ςασ 2 ----->! PA 2 ! Pο 2 ! ! / ---------------------- 8λ !--------------!< ! ! \ ---------------------- ! στςαξιγα 1 ! > ςασ 1 ----->! PA 1 ! Pο 1 ! ! / ---------------------- 4λ !--------------!< ! ! \ ---------------------- ! στςαξιγα 0 ! > ςασ 0 ----->! PA 0 ! Pο 0 ! ! / ---------------------- 0 ----------------/ ςισ. 16 9.2.4.1. ςεηιστς αδςεσα στςαξιγω (ςα) ςαϊςρδω σ 0 πο 11 ςεηιστςα ςα σοδεςφατ αδςεσ ζιϊιώεσ- λοκ πανρτι χ 32-σμοχξωθ (δεσρτιώξοε) βμολαθ ιμι πομε αδςεσα στςαξιγω δμρ οπςεδεμεξξοκ στςαξιγω. ξα ςισ. 17 πολαϊαξο σοδεςφινοε ςεηιστςα αδςεσα στςαξιγω. ςαϊςρδω σ 12 πο 15 ϊαςεϊεςχιςοχαξω. - 416 - ςεηιστς αδςεσα στςαξιγω (PA) 15 12 11 0 ------------!-----!-----!-----!-----!-----!------ ! ! πομε αδςεσα στςαξιγω ! ------------!-----!-----!-----!-----!-----!------ ςισ. 17 9.2.4.2. ςεηιστς οπισαξιρ στςαξιγω (ςο) ςεηιστς οπισαξιρ στςαξιγω (ςο) σοδεςφιτ ιξζοςναγιΰ ο ξαπςαχμεξιι ςασϋιςεξιρ στςαξιγω, ο δμιξε στςαξιγω ι σποσοβε δοστυπα λ ξεκ. ςισ. 18 ιμμΰστςιςυετ σοδεςφινοε ςεηιστςα οπισαξιρ στςαξιγω (ξεισπομψϊυενωε ςαϊςρδω ςεηιστςα ϊαςεϊες- χιςοχαξω). ςεηιστς οπισαξιρ στςαξιγω (Pο) 15 14 8 7 6 5 4 3 2 1 0 ------------------------------------------------- ! ! ! ! ! ! ! ! ! ------------------------------------------------- πδσ λϊ ξςσ πλδ ςισ. 18 λαλ πολαϊαξο ξα ότον ςισυξλε, πομε, οτνεώεξξοε λαλ πλδ, πςεδσταχμρετ πομε λοξτςομρ δοστυπα. ότο πομε οπισωχαετ λοδ δοστυπα λ στςαξιγε ι χοϊνοφξοστψ πςεςωχαξιρ τελυύεκ οπεςαγιι χ σμυώαε οβςαύεξιρ λ στςαξιγε. λοδω ι ιθ ϊξαώεξιρ νοηυτ βωτψ σμεδυΰύιε: λοδ ϊξαώεξιε 00 στςαξιγα ξε ςεϊιδεξτξα; μΰβαρ ποπωτλα οβςαύεξιρ λ ξεκ χωϊοχετ πςεςωχαξιε; 01 στςαξιγα δοστυπξα τομψλο δμρ ώτεξιρ; μΰβαρ ποπωτλα ϊαπισι χωϊοχετ πςεςωχαξιε (XM-νοξιτος ξε ισπομψϊυετ ότοτ λοδ); 10 μΰβαρ ποπωτλα οβςαύεξιρ λ στςαξιγε χωϊοχετ πςεςωχαξιε (XM-νοξιτος ξε ισπομψϊυετ ότοτ λοδ); 11 στςαξιγα δοστυπξα δμρ ϊαπισι ι ώτεξιρ. πομε ξςσ - ξαπςαχμεξιε ςασϋιςεξιρ στςαξιγω. χ ότον πομε υλαϊωχαετσρ ξαπςαχμεξιε, χ λοτοςον νοφετ ςασϋιςρτσρ στςαξιγα. λοδω ι ιθ ϊξαώεξιρ σμεδυΰύιε: λοδ ϊξαώεξιε - 417 - 0 στςαξιγα ςασϋιςρετσρ λ σταςϋιν αδςεσαν πανρτι (χ XM-νοξιτοςε ότο πομε χσεηδα ςαχξο ξυμΰ); 1 στςαξιγα ςασϋιςρετσρ λ νμαδϋιν αδςεσαν πανρτι (χ XM-νοξιτοςε ότο ϊξαώεξιε ξε ισπομψϊυετσρ). πομε λϊ ρχμρετσρ πομεν λοξτςομρ ϊαπισι χ στςαξιγυ. ότοτ ςαϊςρδ υλαϊωχαετ, βωμα μι στςαξιγα νοδιζιγιςοχαξα ποσ- με ϊαηςυϊλι εε χ πανρτψ (σιστενα ξε ισπομψϊυετ ότοτ ςαϊ- ςρδ). πομε πδσ - ςαϊνες στςαξιγω χ βμολαθ. οξο σοδεςφιτ δμι- ξυ στςαξιγω χ 32-σμοχξωθ βμολαθ. 9.2.5. πςεοβςαϊοχαξιε 16-ςαϊςρδξοηο αδςεσα χ 18-ςαϊςρδξωκ ιξζοςναγιρ, ξεοβθοδιναρ δισπετώεςυ πανρτι δμρ πςεοβςα- ϊοχαξιρ 16-ςαϊςρδξοηο χιςτυαμψξοηο αδςεσα χ 18-ςαϊςρδξωκ ζιϊιώεσλικ αδςεσ, ξαθοδιτσρ χ σανον χιςτυαμψξον αδςεσε ι χ σοοτχετστχυΰύεν ενυ ςεηιστςε αλτιχξωθ στςαξιγ. ξα ςισ. 19 πολαϊαξω πομρ χιςτυαμψξοηο αδςεσα. ότι πομρ, λοτοςωε ισπομψϊυετ δπ, πςεδσταχμρΰτ σοβοκ ώαστι χιςτυαμψξοηο αδςε- σα. χιςτυαμψξωκ αδςεσ 15 13 12 0 ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--- ! ! ! ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--- ξονες πεςενεύαενοε πομε ςασ ςισ. 19 ςαϊςρδω 13-15 χιςτυαμψξοηο αδςεσα σοδεςφατ ξονες ςεηιστςα αλτιχξωθ στςαξιγ. ότο πομε οπςεδεμρετ, λαλοκ ςεηιστς αλτιχξωθ στςαξιγ βυδετ ισπομψϊοχατψ δπ πςι ζοςνιςο- χαξιι ζιϊιώεσλοηο αδςεσα. ςαϊςρδω σ 0 πο 12 χιςτυμψξοηο αδςεσα ρχμρΰτσρ πεςενε- ύαενων πομεν, λοτοςοε σοδεςφιτ αδςεσ οτξοσιτεμψξο ξαώαμα στςαξιγω. οσταμψξαρ ιξζοςναγιρ, ξεοβθοδιναρ δμρ σοϊδαξιρ ζιϊι- ώεσλοηο αδςεσα, σοδεςφιτσρ χ πομε αδςεσα στςαξιγω σοοτ- χετστχυΰύεηο ςεηιστςα αδςεσα στςαξιγω. ξα ςισ. 20 πολαϊαξο, λαλ δισπετώες πανρτι πςεοβςαϊυετ 16-ςαϊςρδξωκ χιςτυαμψξωκ αδςεσ χ 18-ςαϊςρδξωκ ζιϊιώεσλικ αδςεσ. χ ότον πςινεςε ςεηιστς αδςεσα στςαξιγω ϋεστψ σοδεςφιτ χοσψνεςιώξοε ώισμο 5460, ποότονυ χιςτυαμψξωκ αδςεσ 157746 πςεοβςαϊυετσρ χ ζιϊιώεσλικ αδςεσ 565746. - 418 - ζοςνιςοχαξιε ζιϊιώεσλοηο αδςεσα δισπετώεςον πανρτι 15 13 12 6 5 0 ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!-- <1> ! 1 1 0! 1 1 1 1 1 1 1! 1 0 0 1 1 0 ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!-- \-ξονες-/ \------------------/ \---------------- ςασ V V ! !------- <2> !---------------------- ! 15 12 11 0 ! ! ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--- ! ! ! ! 1 0 1 1 0 0 1 1 0 0 0 0! ! ! ---!--!--!--!--!--!--!--!--!--!--!--!--!--!--!--- ! ! \---------------------------------/ ! ! V ! ! +<------------------------- ! ! ---------! <3> ! ! 17 V 6 5 V 0 ---!--!--!--!--!--!--!--!--!--!--!--! !--!--!--!--!--!--- ! 1 0 1 1 1 0 1 0 1 1 1 1! ! 1 0 0 1 1 0! ---!--!--!--!--!--!--!--!--!--!--!--! !--!--!--!--!--!--- <1> - χιςτυαμψξωκ αδςεσ (157746) <2> - 6-κ ςεηιστς αδςεσα στςαξιγω (5460) <3> - ζιϊιώεσλικ αδςεσ (565746) ςισ. 20 λαλ χιδξο ιϊ ςισυξλα, ςαϊςρδω 13, 14 ι 15 χιςτυαμψξοηο αδςεσα υλαϊωχαΰτ, λαλοκ ςεηιστς αλτιχξωθ στςαξιγ ισπομψ- ϊυετσρ. δπ δοβαχμρετ ϊξαώεξιε ςαϊςρδοχ σ 6 πο 12 χιςτυαμψ- ξοηο αδςεσα λ ςαϊςρδαν σ 0 πο 11 σοοτχετστχυΰύεηο ςεηιστςα αδςεσα στςαξιγω (χ δαξξον σμυώαε ϋεστοηο). δισπετώες πανρτι πονεύαετ ςεϊυμψτατ ότοηο σμοφεξιρ χ ςαϊςρδω σ 6 πο 17 ζιϊι- ώεσλοηο αδςεσα. δπ λοπιςυετ ςαϊςρδω σ 0 πο 5 χιςτυαμψξοηο αδςεσα χ ςαϊςρδω σ 0 πο 5 ζιϊιώεσλοηο αδςεσα, ζοςνιςυρ ολοξώατεμψξωκ 18-ςαϊςρδξωκ ζιϊιώεσλικ αδςεσ. 9.2.6. ςεηιστςω σοστορξιρ δπ δισπετώες πανρτι (δπ) ταλφε σχρϊαξ σ νοξιτοςον σιστενω δχυνρ σπεγιαμψξωνι ςεηιστςανι σοστορξιρ. ςεηιστς σοστορξιρ SR0 ςασπομοφεξ ξα στςαξιγε χχοδα/χωχοδα πο αδςεσυ ξα οϋ 777572 ι σοδεςφιτ ζμαηι οϋιβολ, βιτ ςαϊςεϋεξιρ ςαβοτω δισ- πετώεςα πανρτι ι δςυηυΰ πομεϊξυΰ δμρ σιστενω ιξζοςναγιΰ οβσμυφιχαξιρ πςεςωχαξιρ. ςεηιστς σοστορξιρ SR2 (εηο νοφξο τομψλο ώιτατψ), ινεΰύικ αδςεσ ξα οϋ 777576, σοδεςφιτ 16-ςαϊςρδξωκ χιςτυαμψξωκ αδςεσ, λοτοςωκ δπ χ δαξξωκ νονεξτ πςεοβςαϊυετ χ 18-ςαϊςρδξωκ ζιϊιώεσλικ αδςεσ (ςαζοσ ξε ισπομψϊυετ ςεηιστς σοστορξιρ SR2, οδξαλο, χ σμυώαε σβορ σιστενω, νοφξο πςοχεςιτψ ότοτ ςεηιστς). - 419 - 9.2.7. σιστενξωκ ι πομψϊοχατεμψσλικ ςεφινω πςογεσσοςα λςονε οσξοχξοκ ζυξλγιι οτοβςαφεξιρ πςοστςαξστχα αδςε- σοχ σιστενα σ δισπετώεςον πανρτι δομφξα ινετψ χοϊνοφξοστψ ϊαύιτω νοξιτοςα οτ πςοηςαννω πομψϊοχατεμρ. χ λαφδωκ νονεξτ χςενεξι πςογεσσος νοφετ ςαβοτατψ χ οδξον ιϊ δχυθ ςεφινοχ: πομψϊοχατεμψσλον ιμι σιστενξον, ώτο ποϊχομρετ οτδεμιτψ χωπομξεξιε σιστενξωθ ζυξλγικ (σιστενξωκ ςεφιν) οτ πςιλμαδ- ξωθ (πομψϊοχατεμψσλικ ςεφιν). λαφδονυ ςεφινυ σοοτχετστχυετ ξαβος ιϊ χοσψνι ςεηιστςοχ αλτιχξωθ στςαξιγ ι σχοκ υλαϊατεμψ στελα. σμεδοχατεμψξο, λαφδωκ ςεφιν δεμαετ σοοτχετστχυΰύιε ξαστςοκλι χιςτυαμψξωθ αδςεσοχ ξα ζιϊιώεσλιε, τ.ε. λαφδωκ ςεφιν ινεετ σοβστχεξξοε οτοβςαφεξιε. ξα ςισ. 21 πολαϊαξο, λαλ ϊξαώεξιρ χ ςαϊςρδαθ 14 ι 15 ςεηιστςα σμοχα σοστορξιρ πςογεσσοςα οπςεδεμρΰτ, χ λαλον ςεφινε ςαβοταετ πςογεσσος. πςοηςαννω, λοτοςωε χωπομξρΰτσρ χ σιστενξον ςεφινε, οβωώξο ρχμρΰτσρ ώαστψΰ πςοηςαννξοηο οβεσπεώεξιρ σιστενω ι ξε δομφξω ςαϊςυϋατψσρ δςυηινι πςοηςαννανι. δμρ ςεϊιδεξτξοηο νοξιτοςα ι USR ισπομψϊυετσρ σιστενξωκ ςεφιν ςαβοτω πςογεσ- σοςα δμρ πςοηςανν οβςαβοτλι πςεςωχαξικ ι δμρ δςακχεςοχ υστ- ςοκστχ, χλμΰώαρ πςοηςαννω οβςαβοτλι ναλςολοναξδ .SYNCH ι .FORK. πςιλμαδξωε πςοηςαννω οβωώξο χωπομξρΰτσρ χ πομψϊοχα- τεμψσλον ςεφινε. ιν ϊαπςεύεξο χωπομξρτψ ιξστςυλγιι, λοτοςωε νοηυτ ςαϊςυϋιτψ νοξιτος ιμι οσταξοχιτψ πςογεσσος. ξαπςινες, χ πομψϊοχατεμψσλον ςεφινε ιξστςυλγιρ RESET χωπομξρετσρ λαλ ιξστςυλγιρ NOP, α ιξστςυλγιρ HALT ηεξεςιςυετ πςεςωχαξιε πο χελτοςυ 10. σιστενα ισπομψϊυετ πομψϊοχατεμψσλικ ςεφιν δμρ ιξτεςπςετατοςα λοναξδ νοξιτοςα, δμρ σιστενξωθ πςοηςανν, δμρ πςιλμαδξωθ πςοηςανν ι ιθ ποδπςοηςανν ϊαχεςϋεξιρ. - 420 - σμοχο σοστορξιρ πςογεσσοςα ι ςεηιστςω αλτιχξωθ στςαξιγ 15 14 13 12 11 8 7 5 4 3 2 1 0 ------------------------------------------------- ! ! ! ! ! T! N! Z! V! C! ------------------------------------------------- \---/ \---/ \------/ ! ! ! ! ! !------> πςιοςιτετ ! ! ! !------------------> πςεδωδυύικ ςεφιν ! !---------------------------> τελυύικ ςεφιν 00 = σιστενξωκ ςεφιν 11 = πομψϊοχατεμψσλικ ςεφιν /\ / \ / \ / \ / \ σιστενξωκ (00) πομψϊοχατεμψσλικ (11) ==================== ==================== -------------------- -------------------- ! ςασ 0 ! ! ςασ 0 ! -------------------- -------------------- ! Pασ 1 ! ! ςασ 1 ! -------------------- -------------------- ! ςασ 2 ! ! ςασ 2 ! -------------------- -------------------- ! ςασ 3 ! ! ςασ 3 ! -------------------- -------------------- ! ςασ 4 ! ! ςασ 4 ! -------------------- -------------------- ! ςασ 5 ! ! ςασ 5 ! -------------------- -------------------- ! ςασ 6 ! ! ςασ 6 ! -------------------- -------------------- ! ςασ 7 ! ! ςασ 7 ! -------------------- -------------------- ςισ. 21 σιστενξοε οτοβςαφεξιε ξε οβρϊατεμψξο τοφδεστχεξξο πομψϊοχατεμψσλονυ οτοβςαφεξιΰ. ξαπςινες, εσμι χ πομψϊοχα- τεμψσλον ςεφινε χιςτυαμψξωκ αδςεσ 20010 σχρϊαξ σ ζιϊιώεσλιν αδςεσον 40210, το ότο ξε ϊξαώιτ, ώτο χ σιστενξον ςεφινε χιςτυαμψξωκ αδςεσ 20010 ταλφε οτοβςαφαετσρ ξα ζιϊιώεσλικ αδςεσ 40210. χ δεκστχιτεμψξοστι χιςτυαμψξωε αδςεσα χ σισ- τενξον ι πομψϊοχατεμψσλον ςεφιναθ ώαστο οτοβςαφαΰτσρ ξα ςαϊμιώξωε υώαστλι ζιϊιώεσλοκ πανρτι. οτοβςαφεξιε πομξοστψΰ ϊαχισιτ οτ σοδεςφινοηο ςεηιστςοχ αλτιχξωθ στςαξιγ. ταλιν οβςαϊον, ιϊνεξεξιε ςεφινα πςογεσσοςα σ πομψϊοχατεμψσλοηο ξα σιστενξωκ ινεετ σμεδυΰύικ σνωσμ: σσωμαρσψ λ οδιξαλοχων χις- τυαμψξων αδςεσαν χ ςαϊμιώξωθ ςεφιναθ, νοφξο ϊασταχιτψ πςοη- ςαννυ οβςαύατψσρ λ ςαϊμιώξων ζιϊιώεσλιν ρώεκλαν. ξα ςισ. 22 πολαϊαξ πςινες, χ λοτοςον χιςτυαμψξωκ αδςεσ 0 χ σιστενξον ςεφινε οτοβςαφαετσρ ξα ζιϊιώεσλυΰ ρώεκλυ 0; χ πομψϊοχα- τεμψσλον ςεφινε χιςτυαμψξωκ αδςεσ οτοβςαφαετσρ ξα ζιϊιώεσ- - 421 - λυΰ ρώεκλυ 500. ότυ σθενυ οτοβςαφεξιρ σιστενα ισπομψϊυετ χο χςενρ ϊαηςυϊλι χιςτυαμψξοηο ϊαδαξιρ. οτοβςαφεξιε οδιξαλοχωθ χιςτυαμψξωθ αδςεσοχ ξα ςαϊξωε ζιϊιώεσλιε ρώεκλι πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 124λ ----------- ! ! ! ! σιστενξοε ! ! πομψϊοχατεμψσλοε πςοστςαξστχο ! ! πςοστςαξστχο χιςτυαμψξωθ ! ! χιςτυαμψξωθ αδςεσοχ ! ! αδςεσοχ 32λ ----------- ! ! 32λ ----------- ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 8λ ! ! 8λ ! ! 8λ ! ! ! ! ! ! ! ! ! ! !---------!<-----\ ! ! ! ! !/////////! \ ! ! 4λ !---------!----4λ-!---------! \-4λ-!---------! ! ! !θθθθθθθθθ! ! ! ! !----> !---------!<-----\ ! ! ! ! !/////////! \ ! ! 0 ----------------0------------ \-0------------- ςισ. 22 9.2.8. οτοβςαφεξιε πο υνομώαξιΰ οτοβςαφεξιε - ότο πςογεσσ, σχρϊωχαΰύικ χιςτυαμψξωε αδςεσα σ ζιϊιώεσλινι ρώεκλανι. θν-νοξιτος υπςαχμρετ πςοστ- ςαξστχον χιςτυαμψξωθ αδςεσοχ, οτοβςαφαρ χιςτυαμψξωε αδςεσα ξα ζιϊιώεσλιε ρώεκλι. νοξιτος ϊαηςυφαετ ξυφξωε ϊξαώεξιρ χ ςεηιστςω αλτιχξωθ στςαξιγ ι ποσςεδστχον ότοηο ςυλοχοδιτ δισπετώεςον πανρτι. ποσμε ϊαηςυϊλι σιστενω οτοβςαφεξιρ σιστενξοηο ι πομψ- ϊοχατεμψσλοηο ςεφινοχ σοχπαδαΰτ, τ.ε. νοξιτος ϊαξοσιτ οδι- ξαλοχωε ϊξαώεξιρ χ ξαβοςω ςεηιστςοχ αλτιχξωθ στςαξιγ σισ- τενξοηο ι πομψϊοχατεμψσλοηο ςεφινοχ. χ ταβμ. 12 πςιχεδεξω ξαώαμψξωε ϊξαώεξιρ ςεηιστςοχ αλτιχξωθ στςαξιγ. ξα ςισ. 23 πολαϊαξο οτοβςαφεξιε πο υνομώαξιΰ, ισπομψϊυΰύεε ότι ϊξαώε- ξιρ. ταβμ. 13 ιμμΰστςιςυετ οτοβςαφεξιε πο υνομώαξιΰ δμρ τιπιώξοηο χιςτυαμψξοηο ζοξοχοηο ϊαδαξιρ χ 4 λσμοχ, λοτοςοε ξε ινεετ οχεςμεεχ χ ςασϋιςεξξοκ πανρτι ι δοπομξιτεμψξωθ - 422 - οβμαστεκ. ταβμιγα 12 ξαώαμψξοε σοδεςφινοε ςασ χ σιστενξον ι πομψϊοχατεμψσλον ςεφιναθ ------------------------------------------------------- στςαξιγα ι ! σιστενξωκ ! πομψϊοχατεμψσλικ ξονες ςασ !-------------------!---------------------- ! PA ! Pο ! PA ! Pο ------------------------------------------------------- 7 ! 7600 ! 77406 ! 7600 ! 77406 6 ! 1400 ! 77406 ! 1400 ! 77406 5 ! 1200 ! 77406 ! 1200 ! 77406 4 ! 1000 ! 77406 ! 1000 ! 77406 3 ! 600 ! 77406 ! 600 ! 77406 2 ! 400 ! 77406 ! 400 ! 77406 1 ! 200 ! 77406 ! 200 ! 77406 0 ! 0 ! 77406 ! 0 ! 77406 - 423 - οτοβςαφεξιε ποσμε ϊαηςυϊλι σιστενω (πο υνομώαξιΰ) πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ ---------- ! 777776 ! <----- στςαξιγα ! 760000 ! χχοδα/χωχοδα !--------! ! ! σιστ. . . πομψϊ. ϊξα- στςα- πςοστ-χο . . πςοστ-χο στςα- ϊξα- ώεξιε ξιγα χιςτ-ξωθ . . χιςτ-ξωθ ξιγα ώεξιε PA PA αδςεσοχ ! ! αδςεσοχ PA PA --------------------- ! ! --------------------- ! 7600 ! 7 ! 177776 ! ! ! ! 177776 ! 7 ! 7600 ! ! ! ! 160000 ! ! ! ! 160000 ! ! ! --------------------- ---------- --------------------- ! 1400 ! 6 ! 157776 ! ! 157776 ! ! 157776 ! 6 ! 1400 ! ! ! ! 140000 !-->! 140000 !<--! 140000 ! ! ! --------------------- ---------- --------------------- ! 1200 ! 5 ! 137776 ! ! 137776 ! ! 137776 ! 5 ! 1200 ! ! ! ! 120000 !-->! 120000 !<--! 120000 ! ! ! --------------------- ---------- --------------------- ! 1000 ! 4 ! 117776 ! ! 117776 ! ! 117776 ! 4 ! 1000 ! ! ! ! 100000 !-->! 100000 !<--! 100000 ! ! ! --------------------- ---------- --------------------- ! 600 ! 3 ! 77776 ! ! 77776 ! ! 77776 ! 3 ! 600 ! ! ! ! 60000 !-->! 60000 !<--! 60000 ! ! ! --------------------- ---------- --------------------- ! 400 ! 2 ! 57776 ! ! 57776 ! ! 57776 ! 2 ! 400 ! ! ! ! 40000 !-->! 40000 !<--! 40000 ! ! ! --------------------- ---------- --------------------- ! 200 ! 1 ! 37776 ! ! 37776 ! ! 37776 ! 1 ! 200 ! ! ! ! 20000 !-->! 20000 !<--! 20000 ! ! ! --------------------- ---------- --------------------- ! 0 ! 0 ! 17776 ! ! 17776 ! ! 17776 ! 0 ! 0 ! ! ! ! 0 !-->! 0 !<--! 0 ! ! ! --------------------- ---------- --------------------- / \ / \ ! ! ! ! σιστενξοε πομψϊοχατεμψσλοε οτοβςαφεξιε οτοβςαφεξιε ςισ. 23 - 424 - ταβμιγα 13 ξαώαμψξοε σοδεςφινοε ςεηιστςοχ δμρ χιςτυαμψξοηο ϊαδαξιρ ---------------------------------- στςαξιγα ι ! πομψϊοχατεμψσλικ ξονες ςAσ !--------------------- ! PA ! Pο ---------------------------------- 7 ! ? ! 0 6 ! ? ! 0 5 ! ? ! 0 4 ! ? ! 0 3 ! ? ! 0 2 ! ? ! 0 1 ! ? ! 0 0 ! 5 ! 77406 9.3. πςοηςαννξωε λοξγεπγιι ξεοβθοδινο ισπομψϊοχατψ σπεγιαμψξωκ ξαβος δςακχεςοχ, λοτοςωε νοηυτ οσυύεστχμρτψ σχρϊψ νεφδυ πεςιζεςικξωνι υστ- ςοκστχανι ι ςασϋιςεξξοκ πανρτψΰ. χ σιστενε σ ςασϋιςεξξοκ πανρτψΰ χσε δςακχεςω υστςοκστχ δομφξω βωτψ ςεϊιδεξτξω χ πανρτι (ϊαηςυφεξω σ πονούψΰ λοναξδω νοξιτοςα LOAD). USR ταλφε ποστορξξο ςεϊιδεξτξα. 9.3.1. ςασπςεδεμεξιε πανρτι ςισ. 24 ιμμΰστςιςυετ ςαϊνεύεξιε λονποξεξτοχ χ σιστεναθ σ θν-νοξιτοςον χ ζιϊιώεσλοκ πανρτι (ταλοε ςαϊνεύεξιε ποδοβ- ξο ςαϊνεύεξιΰ χ σιστενε σ FB-νοξιτοςον). ποσμε ϊαηςυϊλι θν- νοξιτοςα δςακχες σιστενξοηο υστςοκστχα ι ςεϊιδεξτξωκ νοξι- τος ξαθοδρτσρ ξιφε 28 λσμοχ, τ.λ. ςασϋιςεξξαρ πανρτψ (ρώεκ- λι νεφδυ 28 ι 124 λσμοχανι) ξε ισπομψϊυετσρ. δςυηιε ϊαηςυφEξξωε δςακχεςω ξαθοδρτσρ ξιφε ςεϊιδεξτξοηο νοξιτοςα, ϊατεν σμεδυΰτ οπεςατιχξοε ι σιστενξωε ϊαδαξιρ, εσμι ταλιε εστψ, ι USR. ςεϊιδεξτξωκ νοξιτος ςαβοταετ χ σιστενξον ςεφινε πςο- γεσσοςα ι ινεετ δοστυπ λ νμαδϋιν 28 λσμοχαν πανρτι ι λ στςαξιγε χχοδα/χωχοδα. USR χωπομξρετσρ χ σιστενξον ςεφινε ι χσεηδα ςεϊιδεξτξα χ πανρτι πςι ςαβοτε XM-νοξιτοςα. ιξτεςπ- ςετατος λοναξδ νοξιτοςα χωπομξρετσρ χ πομψϊοχατεμψσλον ςεφινε πςογεσσοςα, ξο, λαλ πςιχιμεηιςοχαξξοε ζοξοχοε ϊαδα- ξιε, οξ ισπομψϊυετ το φε οτοβςαφεξιε, ώτο ι ςεϊιδεξτξωκ νοξιτος. ζιϊιώεσλιε ρώεκλι σ 0 πο 500 οτχεδεξω δμρ χελτοςοχ πςεςωχαξικ. - 425 - ςασπςεδεμεξιε πανρτι πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 128λ ------------------------ ! στςαξιγα ! ! χχοδα/χωχοδα ! 124λ !----------------------! ! ! . . . . . . ! ! ! ! 28λ !----------------------! ! δςακχες σιστενξοηο ! ! υστςοκστχα ! !----------------------! ! ςεϊιδεξτξωκ νοξιτος ! ! (RMON) ! !----------------------! ! δςακχεςω δςυηιθ ! ! υστςοκστχ ! !----------------------! ! οπεςατιχξοε ϊαδαξιε ! !----------------------! ! USR ! !----------------------! ! ιξτεςπςετατος λοναξδ ! ! νοξιτοςα (KMON) ! !----------------------! ! ! ! οβμαστψ ! ! ζοξοχοηο ϊαδαξιρ ! ! ! !----------------------! ! χελτοςω πςεςωχαξικ ! !----------------------! ! σιστενξαρ οβμαστψ ! ! σχρϊι (SYSCOM) ! !----------------------! ! χελτοςω μοχυϋελ ! 0 ------------------------ ςισ. 24 9.3.2. πςοηςαννξοε υπςαχμεξιε οτοβςαφεξιεν νοξιτος ινεετ σςεδστχα, πςι πονούι λοτοςωθ σιστενα ι πςιλμαδξωε πςοηςαννω υπςαχμρΰτ οπεςαγιρνι οτοβςαφεξιρ. πομψϊοχατεμΰ ξε οβρϊατεμψξο ϊξατψ, λαλ ςαβοταετ δισπετώες πανρτι, τ.λ. χ δεκστχιτεμψξοστι πομψϊοχατεμψσλιε πςοηςαννω ξε ινεΰτ δοστυπα λ ςεηιστςαν αλτιχξωθ στςαξιγ ι λ ςεηιστςαν σοστορξιρ δισπετώεςα πανρτι. οξι σχρϊωχαΰτσρ σ ςασϋιςεξξοκ πανρτψΰ ώεςεϊ νοξιτος σ πονούψΰ ναλςολοναξδ. ότι ναλςολο- - 426 - ναξδω ϊαπονιξαΰτ ιμι νοδιζιγιςυΰτ ιξζοςναγιΰ χ ταβμιγαθ χξυτςι πςοηςαννω. οσξοχωχαρσψ ξα σοδεςφινον ότιθ ταβμιγ, νοξιτος νοδιζιγιςυετ σχοι σοβστχεξξωε βμολι υπςαχμεξιρ δμρ χωπομξεξιρ σοοτχετστχυΰύεκ οπεςαγιι οτοβςαφεξιρ ι ϊαηςυφαετ σλοςςελτιςοχαξξωε ϊξαώεξιρ χ ςεηιστςω αλτιχξωθ στςαξιγ. δμρ τοηο, ώτοβω ινετψ δοστυπ λ ςασϋιςεξξοκ πανρτι, πςοηςαννα δομφξα: - υλαϊατψ νοξιτοςυ τςεβυενωκ ςαϊνες ζιϊιώεσλοκ πανρ- τι; - οπισατψ χιςτυαμψξωε αδςεσα δμρ νοξιτοςα; - υλαϊατψ νοξιτοςυ ξα σοοτχετστχιε χιςτυαμψξωθ ι ζιϊιώεσλιθ αδςεσοχ, τ.ε. οτοβςαϊιτψ χιςτυαμψξωε αδςεσα ξα ζιϊιώεσλιε ρώεκλι. ζοξοχωε, οπεςατιχξωε ι σιστενξωε ϊαδαξιρ ινεΰτ δοστυπ λο χσεκ ςασϋιςεξξοκ πανρτι ποσςεδστχον τςεθ ϋαηοχ, οπισαξ- ξωθ χωϋε. ξεοβθοδινο ϊανετιτψ, ώτο ξιλαλοε ιϊ ϊαδαξικ ξε νοφετ ϊαξινατψ πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ οδξοχςενεξξο σ δςυηιν ϊαδαξιεν. νοξιτος ι πςοηςαννω ισπομψϊυΰτ οπςεδεμεξξωε πςοηςανν- ξωε ποξρτιρ (οβμαστψ ζιϊιώεσλιθ αδςεσοχ, χιςτυαμψξοε αδςεσ- ξοε ολξο ι πςοστςαξστχο μοηιώεσλιθ αδςεσοχ πςοηςαννω) δμρ οπισαξιρ χιςτυαμψξωθ αδςεσοχ ι ζιϊιώεσλιθ ρώεελ πανρτι. 9.3.2.1. οβμαστψ ζιϊιώεσλιθ αδςεσοχ πςοηςαννα, λοτοςοκ τςεβυετσρ δοστυπ λ ςασϋιςεξξοκ πανρτι, δομφξα πεςεδατψ νοξιτοςυ οπισαξιε ρώεελ ζιϊιώεσλοκ πανρτι, λοτοςωε οξα βυδετ ισπομψϊοχατψ. πςοηςαννα οσυύεστχ- μρετ ότο, οπςεδεμρρ οδξυ ιμι βομεε οβμαστεκ χ ςασϋιςεξξοκ πανρτι. οβμαστψ ζιϊιώεσλιθ αδςεσοχ - ότο σεηνεξτ ζιϊιώεσλοκ πανρτι, σοστορύικ ιϊ σνεφξωθ 32-σμοχξωθ (δεσρτιώξοε) βμο- λοχ. οβμαστψ δομφξα ξαώιξατψσρ ξα 32-σμοχξοκ ηςαξιγε; οξα νοφετ βωτψ ςαϊνεςον δο 96 λσμοχ. ϊαδαξιε νοφετ ινετψ οδξοχ- ςενεξξο δο 4 οβμαστεκ. νοξιτος πςισχαιχαετ ιδεξτιζιλαγιοξ- ξωε ξονεςα οβμαστρν χο χςενρ ιθ σοϊδαξιρ. ζαλτιώεσλι ιδεξ- τιζιλατος οβμαστι ρχμρετσρ υλαϊατεμεν ξαώαμα βμολα υπςαχμε- ξιρ οβμαστψΰ χξυτςι σνεϋαξξοκ οβμαστι ϊαδαξιρ. υώαστλι πςοστςαξστχα ζιϊιώεσλιθ αδςεσοχ, λοτοςωε ξε ρχμρΰτσρ ώαστψΰ οβμαστι, ξε δοστυπξω πςοηςαννε. ξα ςισ. 25 δαξ πςινες δεμε- ξιρ πανρτι ξα οβμαστι. ξεοβθοδινο ϊανετιτψ, ώτο δχα ϊαδαξιρ χ ςασϋιςεξξοκ πανρτι ξε νοηυτ οδξοχςενεξξο ϊαξινατψ οδξυ οβμαστψ ζιϊιώεσλιθ αδςεσοχ. - 427 - πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ, ςαϊδεμεξξοε ξα δχε οβμαστι πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 128λ ------------------------ ! ! 124λ !----------------------! ! 2-ρ οβμαστψ (4λ) ! 120λ !----------------------! ! ! . . . 1-ρ οβμαστψ (92λ) . . . ! ! 28λ !----------------------! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! ! 0 ------------------------ ςισ. 25 ιξζοςναγιρ οβ οβμαστι ζιϊιώεσλιθ αδςεσοχ σοδεςφιτσρ χ τςεθσμοχξον βμολε πςοηςαννω, ξαϊχαξξον "βμολ οπισαξιρ οβμαστι". νοξιτος χωβιςαετ ιξζοςναγιΰ ιϊ βμολα οπισαξιρ οβμαστι ι θςαξιτ εε χ δςυηον χξυτςεξξεν βμολε, ξαϊχαξξον "βμολ υπςαχμεξιρ οβμαστψΰ". βμολ υπςαχμεξιρ οβμαστψΰ ξαθο- διτσρ χ σνεϋαξξοκ οβμαστι ϊαδαξιρ. στατιώεσλαρ οβμαστψ ------------------- πεςχαρ οβμαστψ, σοϊδαχαεναρ νοξιτοςον δμρ χιςτυαμψξοηο ϊαδαξιρ χο χςενρ ϊαηςυϊλι ϊαδαξιρ, ξαϊωχαετσρ στατιώεσλοκ οβμαστψΰ. ςαϊνες στατιώεσλοκ οβμαστι ςαϊμιώεξ, οξ ϊαχισιτ οτ ςαϊνεςα πςοηςαννω, οτ τοηο, ρχμρετσρ μι πςοηςαννα ζοξο- χοκ ιμι οπεςατιχξοκ, ξο στατιώεσλαρ οβμαστψ χσεηδα ξαθοδιτ- σρ χ νμαδϋιθ 28 λσμοχαθ πανρτι. λ στατιώεσλοκ οβμαστι νοφξο σσωματψσρ, ισπομψϊυρ ιδεξτιζιλατος 0. πςοηςαννα πομψϊοχατε- μρ ξε νοφετ υστςαξιτψ στατιώεσλυΰ οβμαστψ ιμι λαλιν-μιβο οβςαϊον ιϊνεξιτψ εε (στατιώεσλαρ οβμαστψ οτσυτστχυετ χ πςι- χιμεηιςοχαξξον ϊαδαξιι). διξανιώεσλαρ οβμαστψ -------------------- εσμι πςοηςαννε πομψϊοχατεμρ τςεβυετσρ βομψϋε πανρτι, ώεν βωμο χωδεμεξο χο χςενρ ϊαηςυϊλι, το οξα νοφετ σοϊδατψ δο τςεθ διξανιώεσλιθ οβμαστεκ ι ϊατεν οτοβςαϊιτψ ξα ξιθ χιςτυαμψξωε αδςεσξωε ολξα. διξανιώεσλαρ οβμαστψ - ότο ώαστψ ζιϊιώεσλοκ πανρτι πασπομοφεξξαρ χωϋε 28 λσμοχ. στατιώεσλαρ οβμαστψ σοϊδαετσρ νοξιτοςον, πςοηςαννα νοφετ σοϊδατψ δο - 428 - τςεθ διξανιώεσλιθ οβμαστεκ, α ταλφε νοφετ σοϊδατψ ι υστςα- ξιτψ μΰβυΰ διξανιώεσλυΰ οβμαστψ. 9.3.2.2. χιςτυαμψξοε αδςεσξοε ολξο πςοηςαννα, λοτοςοκ τςεβυετσρ δοστυπ λ ςασϋιςεξξοκ πανρτι, δομφξα πεςεδατψ νοξιτοςυ οπισαξιε χιςτυαμψξωθ αδςε- σοχ, λοτοςωε οξα βυδετ ισπομψϊοχατψ. τοηδα λαλ νοξιτος ισπομψϊυετ ποξρτιε στςαξιγ, ώτοβω οπισατψ χιςτυαμψξωε αδςε- σα δμρ δισπετώεςα πανρτι, πςοηςαννω οπισωχαΰτ πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ δμρ νοξιτοςα, ισπομψϊυρ πςοηςαννξοε ποξρτιε χιςτυαμψξωθ αδςεσξωθ ολοξ. χιςτυαμψξοε αδςεσξοε ολξο - ώαστψ 32 λσμοχξοηο αδςεσ- ξοηο πςοστςαξστχα, σοστορύαρ ιϊ σνεφξωθ 32-σμοχξωθ (δεσρ- τιώξοε) βμολοχ. ολξο, ποδοβξο στςαξιγε, δομφξο ξαώιξατψσρ ξα ηςαξιγε 4 λσμοχ. οδξαλο, χ οτμιώιε οτ στςαξιγω, ναλσι- ναμψξωκ ςαϊνες λοτοςοκ 4 λσμοχ, ολξο νοφετ ινετψ ςαϊνες δο 32 λσμοχ ι χνεύατψ οδξυ ιμι βομψϋε στςαξιγ. ναλσιναμψξοε ώισμο χιςτυαμψξωθ αδςεσξωθ ολοξ - χοσενψ, νιξιναμψξοε - οδξο. λοηδα πςοηςαννα πομψϊοχατεμρ σοϊδαετ ολξα, νοξιτος πςισχαιχαετ ιν ιδεξτιζιλαγιοξξωε ξονεςα. ξαϊξαώεξιε ολξα - δατψ νοξιτοςυ οπισαξιε ώαστι πςοστ- ςαξστχα χιςτυαμψξωθ αδςεσοχ ι, ταλιν οβςαϊον, ποϊχομιτψ πςοηςαννε ισπομψϊοχατψ ότι χιςτυαμψξωε αδςεσα. ολξα ξε νοηυτ πεςελςωχατψ δςυη δςυηα (ϊαδαξιε νοφετ οπισατψ ξοχοε ολξο, λοτοςοε πεςελςωχαετ συύεστχυΰύεε; πςεφξεε ολξο υδα- μρετσρ, λοηδα σοϊδαετσρ ξοχοε). ώαστι πςοστςαξστχα χις- τυαμψξωθ αδςεσοχ, λοτοςωε ξε ρχμρΰτσρ ώαστψΰ ολξα, ξεδοσ- τυπξω πςοηςαννε, εσμι ϊαδαξιε ξε ρχμρετσρ πςιχιμεηιςοχαξ- ξων. λαφδοε ολξο, λοτοςοε νεξψϋε 4 λσμοχ, ρχμρετσρ πςιώιξοκ ςαϊςωχα πςοστςαξστχα χιςτυαμψξωθ αδςεσοχ πςοηςαννω. εσμι πςοηςαννα οβςαύαετσρ λ χιςτυαμψξων αδςεσαν, ξε ξαθοδρύινσρ χξυτςι οτοβςαφεξξοηο ολξα, το χοϊξιλαετ οϋιβλα δπ (ολξο ξεμψϊρ ισπομψϊοχατψ δο τεθ πος, πολα οξο ξε οτοβςαφεξο). νοξιτος νοφετ σχρϊατψ ζιϊιώεσλιε αδςεσα σ χιςτυαμψξωνι αδςεσανι, λοτοςωε ξαθοδρτσρ χ πςεδεμαθ ολξα, χωώισμιχ ξονες ι ςαϊνες σοοτχετστχυΰύιθ στςαξιγ ι ϊαηςυϊιχ ότι ϊξαώεξιρ χ σοοτχετστχυΰύιε ςεηιστςω αλτιχξωθ στςαξιγ. ςισ. 26 δενοξστ- ςιςυετ, λαλ πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ νοφξο ςαϊδε- μιτψ ξα ολξα. - 429 - πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ, ςαϊδεμεξξοε ξα τςι ολξα ξονες ςα ι πςοστςαξστχο στςαξιγω χιςτυαμψξωθ αδςεσοχ -------------------------------!---------- ! 7 ! ! !---------!--------------------! ! 6 ! ! 3-ε ολξο (12 λσμοχ) !---------!--------------------! ! 5 ! ! !---------!--------------------!---------- ! 4 !////////////////////! ξεδοστυπξοε !---------!////////////////////! πςοστςαξστχο αδςεσοχ ! 3 !--------------------!---------- !---------!--------------------! 2-ε ολξο (6 λσμοχ) ! 2 ! ! !---------!--------------------!---------- ! 1 ! ! !---------!--------------------! 1-ε ολξο (8 λσμοχ) ! 0 ! ! -------------------------------!---------- ςισ. 26 ιξζοςναγιρ ο χιςτυαμψξον αδςεσξον ολξε ξαθοδιτσρ χ σενισμοχξον βμολε πςοηςαννω πομψϊοχατεμρ, ξαϊχαξξον βμολ οπισαξιρ ολξα. νοξιτος χωβιςαετ ιξζοςναγιΰ ιϊ βμολα οπισα- ξιρ ολξα ι θςαξιτ εε χ δςυηον χξυτςεξξεν βμολε - βμολε υπςαχμεξιρ ολξον. βμολ υπςαχμεξιρ ολξον ςαϊνεύεξ χ σνεϋαξ- ξοκ οβμαστι πςοηςαννω. στατιώεσλοε ολξο ---------------- πεςχοε ολξο, σοϊδαχαενοε νοξιτοςον δμρ χιςτυαμψξοηο ϊαδαξιρ χο χςενρ εηο ϊαηςυϊλι, ξαϊωχαετσρ στατιώεσλιν ολξον. στατιώεσλοε ολξο ξαώιξαετσρ σ χιςτυαμψξοηο αδςεσα 0, ι εηο ςαϊνες ςαχεξ ςαϊνεςυ βαϊοχοηο σεηνεξτα πςοηςαννω πομψϊοχατεμρ. στατιώεσλοε ολξο σοδεςφιτ λοςξεχοκ σεηνεξτ πςοηςαννω πομψϊοχατεμρ, στελ, χιςτυαμψξωε χελτοςω, δςακχες οχεςμεεχ ι οχεςμει νμαδϋεκ πανρτι. ιξστςυλγιι, δαξξωε ι βυζεςω νοηυτ ξαθοδιτψσρ χ οχεςμερθ ιμι βυζεςαθ ςασϋιςεξξοκ πανρτι; οξι σοδεςφατσρ χ ςαϊξωθ ολξαθ ι οβμαστρθ. νοφξο οβςαύατψσρ λ στατιώεσλονυ ολξυ, ισπομψϊυρ ιδεξτιζιλατος 0. πςοηςαννα πομψϊοχατεμρ ξε νοφετ υστςαξιτψ στατιώεσλοε ολξο ιμι ιϊνεξιτψ εηο οτοβςαφεξιε (στατιώεσλοε ολξο οτσυτστχυετ χ πςιχιμεηιςοχαξξον ϊαδαξιι). διξανιώεσλοε ολξο ----------------- εσμι πςοηςαννε πομψϊοχατεμρ τςεβυετσρ πανρτι βομψϋε, ώεν χωδεμεξο χο χςενρ ϊαηςυϊλι, οξα νοφετ σοϊδατψ οδξο ιμι βομεε διξανιώεσλιθ ολοξ ι οτοβςαϊιτψ ιθ χιςτυαμψξωε αδςεσα ξα ζιϊιώεσλιε. στατιώεσλοε ολξο σοϊδαετσρ νοξιτοςον, α πςοηςαννα νοφετ σοϊδατψ δο σενι διξανιώεσλιθ ολοξ. πςοηςαν- να νοφετ σοϊδατψ, υστςαξιτψ, οτοβςαϊιτψ ι πεςεοτοβςαϊιτψ μΰβοε διξανιώεσλοε ολξο. - 430 - 9.3.2.3. πςοστςαξστχο μοηιώεσλιθ αδςεσοχ πςοηςαννω (PLAS) πςοστςαξστχο μοηιώεσλιθ αδςεσοχ πςοηςαννω (PLAS) - ότο πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ, δοστυπξοε πςοηςαννε χ ςεϊυμψτατε οπεςαγικ οτοβςαφεξιρ. τ.ε. χσε ζιϊιώεσλιε ρώεκ- λι, λοτοςωε ϊαλμΰώεξω χ οβμαστι, νοηυτ βωτψ δοστυπξω πςοη- ςαννε χ ςεϊυμψτατε οπεςαγικ οτοβςαφεξιρ ι, ταλιν οβςαϊον, ρχμρΰτσρ ώαστψΰ εε πςοστςαξστχα μοηιώεσλιθ αδςεσοχ. 9.3.3. δχα χιδα οτοβςαφεξιρ δμρ ϊαδαξικ, ςαβοταΰύιθ σ ςασϋιςεξξοκ πανρτψΰ, ινεετσρ δχα χιδα οτοβςαφεξιρ: χιςτυαμψξοε ι πςιχιμεηιςοχαξξοε. ξιφε οπισαξω ϊαδαξιρ, λοτοςωε χωπομξρΰτσρ σ χιςτυαμψξων ι σ πςι- χιμεηιςοχαξξων οτοβςαφεξιρνι. 9.3.3.1. χιςτυαμψξωε ϊαδαξιρ χιςτυαμψξωε ϊαδαξιρ - ϊαδαξιρ, λοτοςωε χωπομξρΰτσρ σ χιςτυαμψξων οτοβςαφεξιεν χ πομψϊοχατεμψσλον ςεφινε πςογεσ- σοςα. χιςτυαμψξωε ϊαδαξιρ ξε ισπομψϊυΰτ σιστενξωκ ςεφιν πςογεσσοςα; χιςτυαμψξωε ζοξοχωε ϊαδαξιρ ϊαηςυφαΰτσρ χ πανρτψ σο σνεύεξιεν 500. χιςτυαμψξωε ϊαδαξιρ ξε νοηυτ ϊαη- ςυφατψσρ χωϋε USR, ςεϊιδεξτξοηο νοξιτοςα ιμι στςαξιγω χχοδα/χωχοδα. χιςτυαμψξοε οτοβςαφεξιε ρχμρετσρ πςεδποώτι- τεμψξων οτοβςαφεξιεν δμρ ϊαδαξιρ, λοτοςοε ξε τςεβυετ πςιχι- μεηιςοχαξξοηο δοστυπα λ οβμαστι χελτοςοχ, νοξιτοςυ ιμι στςαξιγε χχοδα/χωχοδα, τ.λ. ταλοε οτοβςαφεξιε ϊαύιύαετ ότι σιστενξωε οβμαστι οτ χιςτυαμψξωθ ϊαδαξικ. πεςχωε 500 βακτοχ λαφδοηο χιςτυαμψξοηο ϊαδαξιρ ρχμρΰτ- σρ οβμαστψΰ εηο χιςτυαμψξωθ χελτοςοχ ι σιστενξοκ οβμαστψΰ σχρϊι (SYSCOM). στατιώεσλοε ολξο χλμΰώαετ χιςτυαμψξωε αδςε- σα πςοηςαννω οτ χιςτυαμψξοηο αδςεσα 0 δο εε χεςθξεκ ηςαξι- γω. ςαϊνες στατιώεσλοκ οβμαστι πεςενεξξωκ, οξ ϊαχισιτ οτ ςαϊνεςα ϊαδαξιρ ι οτ τοηο, ρχμρετσρ μι χιςτυαμψξοε ϊαδαξιε ζοξοχων ιμι οπεςατιχξων. ποσμε ϊαηςυϊλι χιςτυαμψξοε ϊαδαξιε πομυώαετ δοστυπ τομψλο λ χιςτυαμψξων αδςεσαν χξυτςι ηςαξιγ σανοκ πςοηςαννω, α ταλφε λ αδςεσαν, οτοβςαφεξξων ξα ζιϊιώεσλυΰ πανρτψ. οδξα- λο, χιςτυαμψξοε ϊαδαξιε νοφετ πομψϊοχατψσρ μΰβων οσταχϋινσρ πςοστςαξστχον χιςτυαμψξωθ αδςεσοχ νεφδυ σχοεκ χεςθξεκ ηςα- ξιγεκ ι 32-λσμοχξοκ ηςαξιγεκ αδςεσοχ. οξο νοφετ σοϊδατψ οδξυ ιμι ξεσλομψλο οβμαστεκ χ ςασϋιςεξξοκ πανρτι ι οδξο ιμι ξεσλομψλο χιςτυαμψξωθ αδςεσξωθ ολοξ. ϊατεν οτοβςαϊιτψ ολξο ξα οβμαστψ ι, ταλιν οβςαϊον, πομυώιτψ δοστυπ λ ςασϋιςεξξοκ πανρτι. εσμι χιςτυαμψξοε ϊαδαξιε οτνεξρετ οτοβςαφεξιε ολξα, - 431 - το οξο ξε νοφετ πομψϊοχατψσρ εηο χιςτυαμψξωνι αδςεσανι δο τεθ πος, πολα ξε πεςεοτοβςαϊιτ ότο ολξο. χιςτυαμψξοε ϊαδα- ξιε νοφετ ταλφε ισπομψϊοχατψ σιστενξυΰ ναλςολοναξδυ ςασϋι- ςεξξοκ πανρτι .SETTOP ιμι οχεςμει ςασϋιςεξξοκ πανρτι. χωβος χιςτυαμψξοηο οτοβςαφεξιρ ------------------------------ ώτοβω υλαϊατψ, ώτο ϊαδαξιε πομψϊυετσρ χιςτυαμψξων οτοβςαφεξιεν, ξυφξο πεςεδ ϊαηςυϊλοκ ϊαδαξιρ υσταξοχιτψ βιτ 10 σμοχα σοστορξιρ ϊαδαξιρ (JSW). εσμι ϊαδαξιε δομφξο βωτψ χσεηδα χιςτυαμψξων, το ξυφξο υσταξοχιτψ βιτ 10 χο χςενρ ασσενβμιςοχαξιρ. δμρ ότοηο ισπομψϊυΰτσρ σμεδυΰύιε ιξστςυλ- γιι: .ASECT .=44 .WORD 2000 .PSECT πομψϊυρσψ σιστενξοκ πςοηςαννοκ SIPP, νοφξο ταλφε ιϊνεξιτψ ρώεκλυ 44 ϊαδαξιρ (ότο χεςξο δμρ ζακμοχ σ τιπον .SAV, .REL) πεςεδ εηο ϊαηςυϊλοκ. πςινεώαξιε. ξεμψϊρ ιϊνεξρτψ βιτ 10 χ JSW χο χςενρ χωπομξεξιρ πςοηςαννω, τ.λ. ςεϊυμψτατ βυδετ ξεπςεδσλαϊυενων. χιςτυαμψξοε ζοξοχοε ϊαδαξιε --------------------------- δμρ ϊαπυσλα χιςτυαμψξοηο ζοξοχοηο ϊαδαξιρ ισπομψϊυετσρ λοναξδα νοξιτοςα R. ζακμ δομφεξ ινετψ τιπ .SAV. χιςτυαμψξοε ζοξοχοε ϊαδαξιε ϊαηςυφαετσρ χ πανρτψ σ ζιϊιώεσλοηο αδςεσα 500. σταςϋικ ζιϊιώεσλικ αδςεσ ϊαδαξιρ ςαχεξ ςαϊνεςυ (χ χοσψνεςιώξον χιδε) πςοηςαννω πμΰσ 500. στατιώεσλαρ οβμαστψ χιςτυαμψξοηο ζοξοχοηο ϊαδαξιρ ξαώιξαετσρ σ ζιϊιώεσλοηο αδςεσα 500 ι ςασϋιςρετσρ δο ξιφξε- ηο αδςεσα USR. ότο πςεδοτχςαύαετ δοστυπ χιςτυαμψξοηο ζοξο- χοηο ϊαδαξιρ χ ζιϊιώεσλυΰ οβμαστψ χελτοςοχ, ξαθοδρύυΰσρ νεφδυ ρώεκλανι 0 ι 500. ταλιν οβςαϊον, χελτοςω ϊαύιύεξω οτ χιςτυαμψξοηο ϊαδαξιρ. ξα ςισ. 27 πολαϊαξο οτοβςαφεξιε δμρ ζοξοχοηο ϊαδαξιρ. ςισ. 28 ιμμΰστςιςυετ, λαλ χιςτυαμψξοε ζοξοχοε ϊαδαξιε νοφετ οτοβςαϊιτψ ολξο ξα στατιώεσλυΰ οβμαστψ δμρ δοστυπα λ πανρτι ξιφε USR. - 432 - χιςτυαμψξοε ζοξοχοε ϊαδαξιε πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 128λ ----------------- ! στςαξιγα χ/χ ! 124λ !---------------! ! ! ! ! . . πςοστςαξστχο . . χιςτυαμψξωθ αδςεσοχ ! ! 32λ ----------------- ! ! ! ! ! ! ! ! 28λ !---------------! ! ! ! δςακχες ! ! ! ! σιστενξοηο ! !ότι χιςτυαμψξωε! ! υστςοκστχα ! !αδςεσα δοστυπξω! !---------------! !ϊαδαξιΰ ποσμε ! ! ςεϊιδεξτξωκ ! !οπεςαγικ ! ! νοξιτος (RMON)! !οτοβςαφεξιρ ! !---------------! ! ! !δςακχεςω δςυηιθ! ! ! ! υστςοκστχ ! ! ! !---------------! ! ! ! USR ! ! ! !---------------!---- ! ! ! σχοβοδξοε ! σ ! ! ! πςοστςαξστχο ! τ ! ! /----------->!---------------! α ! ! / ! ! τ ----!---------------!/ ! ! ι σ ! ! ! ! ώ τ ! ! ! ζοξοχοε ! ε α ! ! ! ϊαδαξιε ! σ ο τ ! ζοξοχοε ! ------> ! ! λ β ι ! ϊαδαξιε ! οτοβςαφεξιε !- - - - - - - -! α μ ώ ! ! ! στελ ! ρ α ε !- - - - - - - -! !- - - - - - - -! σ σ ο ! στελ ! ! χιςτυαμψξωε ! τ λ λ !- - - - - - - -! ! χελτοςω ! ψ ο ξ ! χιςτυαμψξωε ! /-------500->!---------------!---- ε ο ! χελτοςω ! / ! χελτοςω ! -0-------------------/ 0 ----------------- ςισ. 27 - 433 - οτοβςαφεξιε χιςτυαμψξοηο ζοξοχοηο ϊαδαξιρ ξα στατιώεσλυΰ οβμαστψ πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 128λ ----------------- ! στςαξιγα χ/χ ! 124λ !---------------! ! ! ! ! . . πςοστςαξστχο . . χιςτυαμψξωθ αδςεσοχ ! ! 32λ -----------------\ ! ! ! διξανιώεσλοε ! \ ! ! ! ολξο ! \ 28λ !---------------! !---------------!\ \ ! δςακχες ! ! ! \ \ ! σιστενξοηο ! ! ! \ \ ! υστςοκστχα ! !ότι χιςτυαμψξωε! ! \ !---------------! !αδςεσα δοστυπξω! ! ο \ ! ςεϊιδεξτξωκ ! !ϊαδαξιΰ ποσμε ! ! τ \ ! νοξιτος (RMON)! !οπεςαγικ ! ! ο \ !---------------! !οτοβςαφεξιρ ! ! β ! !δςακχεςω δςυηιθ! ! ! ! ς ! ! υστςοκστχ ! ! ! ! α ! !---------------! ! ! ! φ ! ! USR ! ! ! ! ε \--->!---------------!---- ! ! \ ξ ι ε ! σχοβοδξοε ! σ ! ! \ ! πςοστςαξστχο ! τ ! ! >------->!---------------! α ! ! / ! ! τ ----!---------------!----/ ! ! ι σ ! ! ! ! ώ τ ! ! ! ζοξοχοε ! ε α ! ! ! ϊαδαξιε ! σ ο τ ! ζοξοχοε ! ------> ! ! λ β ι ! ϊαδαξιε ! οτοβςαφεξιε !- - - - - - - -! α μ ώ ! ! ! στελ ! ρ α ε !- - - - - - - -! !- - - - - - - -! σ σ ο ! στελ ! ! χιςτυαμψξωε ! τ λ λ !- - - - - - - -! ! χελτοςω ! ψ ο ξ ! χιςτυαμψξωε ! /-------500->!---------------!---- ε ο ! χελτοςω ! / ! χελτοςω ! -0-------------------/ 0 ----------------- ςισ. 28 χιςτυαμψξοε οπεςατιχξοε ιμι σιστενξοε ϊαδαξιρ --------------------------------------------- δμρ ϊαπυσλα χιςτυαμψξοηο οπεςατιχξοηο ϊαδαξιρ ισπομψ- ϊυετσρ λοναξδα νοξιτοςα FRUN, δμρ χιςτυαμψξοηο σιστενξοηο ϊαδαξιρ - SRUN. ότι ϊαδαξιρ δομφξω ινετψ τιπ ζακμα .REL. ποσλομψλυ χιςτυαμψξωε οπεςατιχξωε ϊαδαξιρ ξε τςεβυΰτ ξαστ- ςοκλι ξα ζιϊιώεσλιε αδςεσα, λοναξδω FRUN ιμι SRUN νοφξο ισπομψϊοχατψ ι δμρ χιςτυαμψξοηο ϊαδαξιρ σ τιπον ζακμα .SAV. ζακμω τιπα .SAV ϊαξιναΰτ ξα δισλε νεξψϋε νεστα, ώεν ζακμω τιπα .REL ι ϊαηςυφαΰτσρ χ πανρτψ βωστςεε. - 434 - ϊαηςυφεξξοε οπεςατιχξοε ϊαδαξιε ισπομψϊυετ ζιϊιώεσλιε ρώεκλι ξιφε ποσμεδξεηο ϊαηςυφεξξοηο δςακχεςα ιμι πςεδωδυύε- ηο ϊαηςυφεξξοηο σιστενξοηο ϊαδαξιρ. εσμι ξεοβθοδινο, USR χ πανρτι σδχιηαετσρ ξιφε, ώτοβω ςαϊνεστιτψ οπεςατιχξοε ϊαδα- ξιε. πο υνομώαξιΰ οπεςατιχξοε ϊαδαξιε λονποξυετσρ σ βαϊοχο- ηο αδςεσα 1000 (εσμι οξο ξε ινεετ τιπ .SAV); εηο χιςτυαμψ- ξωε αδςεσα οτ 0 δο 500 ρχμρΰτσρ οβμαστψΰ χιςτυαμψξωθ χελτο- ςοχ ι σιστενξοκ οβμαστψΰ σχρϊι. λαλ ι δμρ ζοξοχοηο χις- τυαμψξοηο ϊαδαξιρ στατιώεσλοε ολξο ξαώιξαετσρ σ χιςτυαμψξο- ηο αδςεσα 0 ι ϊαλαξώιχαετσρ υ χεςθξεκ ηςαξιγω οπεςατιχξοηο ϊαδαξιρ, ινερ πςιςαύεξιε, λςατξοε 32 σμοχαν. στατιώεσλαρ οβμαστψ ξαώιξαετσρ σ χιςτυαμψξοηο αδςεσα 0 ι ϊαλαξώιχαετσρ υ χεςθξεκ ζιϊιώεσλοκ ηςαξιγω πςοηςαννω. σνεϋαξξαρ οβμαστψ οπεςατιχξοηο ϊαδαξιρ ςαϊνεύεξα χ ζιϊιώεσ- λοκ πανρτι ξιφε πςοηςαννω, λαλ πολαϊαξο ξα ςισ. 29. οδξαλο χιςτυαμψξωθ αδςεσοχ, οτοβςαφαενωθ ξα σνεϋαξξυΰ οβμαστψ, ξετ, ποότονυ χιςτυαμψξοε οπεςατιχξοε ϊαδαξιε ξε ινεετ δοσ- τυπα λ σοδεςφινονυ σνεϋαξξοκ οβμαστι. χ ςεϊυμψτατε σνεϋαξ- ξαρ οβμαστψ ϊαύιύεξα οτ χιςτυαμψξοηο οπεςατιχξοηο ϊαδαξιρ. ςισ. 29 ιμμΰστςιςυετ οτοβςαφεξιε δμρ χιςτυαμψξοηο οπεςατιχ- ξοηο ιμι σιστενξοηο ϊαδαξιρ. - 435 - χιςτυαμψξοε οπεςατιχξοε ιμι σιστενξοε ϊαδαξιε πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ 128λ ----------------- ! στςαξιγα χ/χ ! 124λ !---------------! ! ! ! ! . . πςοστςαξστχο . . χιςτυαμψξωθ αδςεσοχ ! ! 32λ ----------------- ! ! ! ! ! ! ! ! 28λ !---------------! ! ! ! δςακχες ! ! ! ! σιστενξοηο ! !ότι χιςτυαμψξωε! ! υστςοκστχα ! !αδςεσα δοστυπξω! !---------------! !ϊαδαξιΰ ποσμε ! ! ςεϊιδεξτξωκ ! !οπεςαγικ ! ! νοξιτος (RMON)! !οτοβςαφεξιρ ! !---------------! ! ! !δςακχεςω δςυηιθ! ! ! ! υστςοκστχ ! ! ! /------->!---------------!--- ! ! / ! οπεςατιχξοε ! σ ! ! / ! ϊαδαξιε ! τ ! ! / ξ ι ε !- - - - - - - -! α ! ! / ε ! στελ ! τ ! ! / φ !- - - - - - - -! ι ! ! / α ! χιςτυαμψξωε ! ώ ----!---------------!/ ς ! χελτοςω ! ε σ ! ! β /--->!---------------! σ τ ! ! ο / ! σνεϋαξξαρ ! λ α ! οπεςατιχξοε ! τ / ! οβμαστψ ! α τ ! ϊαδαξιε ! ο / !---------------! ρ ι ! ! / ! USR ! ώ ! ! / ! ! ε !- - - - - - - -! / !---------------! σ ο ! στελ ! / ! σχοβοδξοε ! λ λ !- - - - - - - -! / ! πςοστςαξστχο ! ο ξ ! χιςτυαμψξωε ! / 500 !---------------! ε ο ! χελτοςω ! / ! χελτοςω ! -0-------------------/ 0 -------------------- ςισ. 29 9.3.3.2. πςιχιμεηιςοχαξξωε ϊαδαξιρ πο υνομώαξιΰ οτοβςαφεξιε χ XM-νοξιτοςε - πςιχιμεηιςο- χαξξοε. ώτοβω υλαϊατψ, ώτο ϊαδαξιε πςιχιμεηιςοχαξξοε, βιτ 10 χ σμοχε σοστορξιρ ϊαδαξιρ δομφεξ βωτψ ςαχεξ ξυμΰ. πςιχι- μεηιςοχαξξοε ϊαδαξιε, χωπομξρΰύεεσρ σ θν-νοξιτοςον, ποθοφε ξα ϊαδαξιε, ςαβοταΰύεε ποδ υπςαχμεξιεν RM/SJ/FB-νοξιτοςα. πςιχιμεηιςοχαξξοε ϊαδαξιε νοφετ ινετψ δοστυπ λ νμαδϋιν 28 λσμοχαν πανρτι ι λ στςαξιγε χχοδα/χωχοδα. χσε σιστενξωε - 436 - πςοηςαννω χωπομξρΰτσρ λαλ πςιχιμεηιςοχαξξωε. πςιχιμεηιςοχαξξωε ϊαδαξιρ (ποδοβξο χιςτυαμψξων ϊαδα- ξιρν) χωπομξρΰτσρ χ πομψϊοχατεμψσλον ςεφινε πςογεσσοςα. οδξαλο, νοξιτος λοπιςυετ σοδεςφινοε σιστενξωθ ςεηιστςοχ αλτιχξωθ στςαξιγ (ςασ) χ πομψϊοχατεμψσλιε. ταλιν οβςαϊον, οτοβςαφεξιε πο υνομώαξιΰ δμρ πςιχιμεηιςοχαξξωθ ϊαδαξικ - σιστενξοε οτοβςαφεξιε. δμρ πςιχιμεηιςοχαξξωθ ϊαδαξικ δοστυπξω χσε 32 λσμοχ πςοστςαξστχα χιςτυαμψξωθ αδςεσοχ λςονε πςοστςαξστχα, ϊαξρ- τοηο λονποξεξτανι οπεςαγιοξξοκ σιστενω: στςαξιγεκ χχοδα/χωχοδα ι - χ σμυώαε πςιχιμεηιςοχαξξοηο οπεςατιχξοηο ιμι σιστενξοηο ϊαδαξιρ - ζοξοχων ϊαδαξιεν ιμι KMON. πςιχι- μεηιςοχαξξοε ϊαδαξιε νοφετ ιϊνεξιτψ οτοβςαφεξιε πο υνομώα- ξιΰ, ισπομψϊυρ οχεςμει ςασϋιςεξξοκ πανρτι ι ναλςολοναξδω. ξαπςινες, πςοηςαννα, λοτοςοκ τςεβυετσρ δοστυπ λ στςαξιγε χχοδα/χωχοδα τομψλο ξα λοςοτλοε χςενρ, νοφετ ρχξο οτοβςα- ϊιτψ στςαξιγυ χχοδα/χωχοδα, ώτοβω ισπομψϊοχατψ εε. ξεοβθοδινο ϊανετιτψ, ώτο ποξρτιρ "στατιώεσλοε ολξο" ι "στατιώεσλαρ οβμαστψ" δμρ πςιχιμεηιςοχαξξωθ ϊαδαξικ ξε πςι- νεξρΰτσρ. οδξαλο, οδξο ολξο ι οδξα οβμαστψ ϊαςεϊεςχιςοχαξω νοξιτοςον. ποότονυ, πςιχιμεηιςοχαξξωε ϊαδαξιρ ινεΰτ σενψ διξανιώεσλιθ ολοξ ι τςι διξανιώεσλιε οβμαστι, λαλ ι χις- τυαμψξωε ϊαδαξιρ. λοηδα πςιχιμεηιςοχαξξοε ϊαδαξιε σοϊδαετ ολξο ι χωπομ- ξρετ ναλςολοναξδω οτοβςαφεξιρ, πςιχιμεηιςοχαξξοε οτοβςαφε- ξιε, πομυώεξξοε πο υνομώαξιΰ δμρ πςοστςαξστχα χιςτυαμψξωθ αδςεσοχ, χςενεξξο οτνεξρετσρ. νοξιτος οτοβςαφαετ ολξο ξα ξοχυΰ οβμαστψ πανρτι, ισπομψϊυρ σοδεςφινοε χξυτςεξξεηο βμο- λα υπςαχμεξιρ ολξον. λοηδα πςιχιμεηιςοχαξξοε ϊαδαξιε οτνεξρετ οτοβςαφεξιε ολξα, νοξιτος πεςεοτοβςαφαετ ότο πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ σοημασξο ξαβοςυ σιστενξωθ ςεηιστςοχ αλτιχξωθ στςα- ξιγ. ότο οτμιώαετ εηο οτ χιςτυαμψξοηο ϊαδαξιρ, οτνεξρΰύεηο οτοβςαφεξιε ολξα. ταλ λαλ πςοηςαννω οβςαβοτλι πςεςωχαξικ χωπομξρΰτσρ χ σιστενξον ςεφινε, πςιχιμεηιςοχαξξωε ϊαδαξιρ, σοδεςφαύιε πομψϊοχατεμψσλιε πςοηςαννω οβςαβοτλι πςεςωχαξικ, ξε δομφξω ιϊνεξρτψ οτοβςαφεξιε πςοηςανν οβςαβοτλι πςεςωχαξικ, στςαξι- γυ χχοδα/χωχοδα ιμι ώαστι νοξιτοςα χ τεώεξιε πεςιοδα, χο χςενρ λοτοςοηο νοηυτ χοϊξιλξυτψ πςεςωχαξιρ. νοξιτος υώιτω- χαετ τοτ ζαλτ, ώτο σιστενξωκ ι πομψϊοχατεμψσλικ ςεφινω ιδεξτιώξω, λοηδα οξ οβσμυφιχαετ πομψϊοχατεμψσλιε πςοηςαννω οβςαβοτλι πςεςωχαξικ. πςιχιμεηιςοχαξξοε ζοξοχοε ϊαδαξιε --------------------------------- δμρ ϊαπυσλα πςιχιμεηιςοχαξξοηο ζοξοχοηο ϊαδαξιρ ισπομψϊυΰτσρ λοναξδω νοξιτοςα R ιμι RUN. ςισ. 30 ιμμΰστςι- ςυετ οτοβςαφεξιε δμρ πςιχιμεηιςοχαξξοηο ζοξοχοηο ϊαδαξιρ. - 437 - πςιχιμεηιςοχαξξοε ζοξοχοε ϊαδαξιε πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ /--------->----------------- 128 / ! στςαξιγα ! / α φ ε ξ ι ε! χχοδα/χωχοδα ! πςοστςαξστχο / ς/--------->!---------------! 124 χιςτυαμψξωθ αδςεσοχ/ β/ ! ! 32λ -----------------/ ο/ . . ! ! τ/ . . ! !ο/ ! ! 28λ !---------------!/-------------->!---------------! 28 ! ! ! δςακχες ! ! ! ! σιστενξοηο ! ! ! ! υστςοκστχα ! ! ! !---------------! ! ! ! ςεϊιδεξτξωκ ! ! ! ! νοξιτος (RMON)! ! ! !---------------! ! ! !δςακχεςω δςυηιθ! ! ! ! υστςοκστχ ! ! ! !---------------! ! ! ------> ! USR ! ! ! οτοβςαφεξιε !---------------! ! ! ! ! ! ! ! ! !---------------! !---------------! ! ! ! ! ! ! ! ! ! ζοξοχοε ! ! ζοξοχοε ! ! ϊαδαξιε ! ! ϊαδαξιε ! ! ! ! ! !- - - - - - - -! !- - - - - - - -! ! στελ ! ! στελ ! !- - - - - - - -! !- - - - - - - -! ! ! ! χελτοςω ! 0 -------------------------------->----------------- 0 ςισ. 30 πςιχιμεηιςοχαξξοε οπεςατιχξοε ιμι σιστενξοε ϊαδαξιε --------------------------------------------------- δμρ ϊαπυσλα πςιχιμεηιςοχαξξοηο οπεςατιχξοηο ϊαδαξιρ ισπομψϊυετσρ λοναξδα νοξιτοςα FRUN, δμρ ϊαπυσλα πςιχιμεηι- ςοχαξξοηο σιστενξοηο ϊαδαξιρ ισπομψϊυετσρ λοναξδα SRUN. ςισ. 31 ιμμΰστςιςυετ οτοβςαφεξιε δμρ πςιχιμεηιςοχαξξοηο οπεςατιχξοηο ιμι σιστενξοηο ϊαδαξιρ. - 438 - πςιχιμεηιςοχαξξοε οπεςατιχξοε ιμι σιστενξοε ϊαδαξιε πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ /--------->----------------- 128 / ! στςαξιγα ! / α φ ε ξ ι ε! χχοδα/χωχοδα ! πςοστςαξστχο / ς/--------->!---------------! 124 χιςτυαμψξωθ αδςεσοχ/ β/ ! ! 32λ -----------------/ ο/ . . ! ! τ/ . . ! !ο/ ! ! 28λ !---------------!/-------------->!---------------! 28 ! ! ! δςακχες ! ! ! ! σιστενξοηο ! ! ! ! υστςοκστχα ! ! ! !---------------! ! ! ! ςεϊιδεξτξωκ ! ! ! ! νοξιτος (RMON)! ! ! !---------------! ! ! !δςακχεςω δςυηιθ! ! ! ! υστςοκστχ ! !---------------! !---------------! ! ! ! ! ! ! ! ! ! οπεςατιχξοε ! ! οπεςατιχξοε ! ! ϊαδαξιε ! ! ϊαδαξιε ! ! ! ------> ! ! !- - - - - - - -! οτοβςαφεξιε !- - - - - - - -! ! στελ ! ! στελ ! !---------------! !---------------! ! ! ! σνεϋαξξαρ ! ! ! ! οβμαστψ ! ! ! !---------------! ! ! ! USR ! ! ! !---------------! ! ! ! σχοβοδξοε ! ! ! ! πςοστςαξστχο ! ! ! !---------------! ! ! ! χελτοςω ! 0 -------------------------------->----------------- 0 ςισ. 31 9.3.3.3. ςαϊμιώιρ νεφδυ χιςτυαμψξων ι πςιχιμεηιςοχαξξων ϊαδαξιρνι χ ταβμ. 14 πςεδσταχμεξω ςαϊμιώιρ, συύεστχυΰύιε νεφδυ χιςτυαμψξων ι πςιχιμεηιςοχαξξων ϊαδαξιρνι. - 439 - ταβμιγα 14 σςαχξεξιε χιςτυαμψξοηο ι πςιχιμεηιςοχαξξοηο ϊαδαξικ ---------------------------------------------------------- θαςαλτεςιστιλα ! χιςτυαμψξοε ! πςιχιμεηιςοχαξξοε ! ϊαδαξιε ! ϊαδαξιε ---------------------------------------------------------- ϊξαώεξιε βιτα ! 1 ! 0 10 χ JSW ! ! ! ! πεςχοξαώαμψξοε ! δοστυπξω τομψλο χις-! 32 λσμοχ. δοστυπξω λομιώεστχο δοσ- ! τυαμψξωε αδςεσα ! νμαδϋιε 28 λσμοχ τυπξοηο πςοστ- ! χξυτςι ηςαξιγ σανοκ ! πανρτι πμΰσ στςα- ςαξστχα αδςεσοχ ! πςοηςαννω ! ξιγα χχοδα/χωχοδα ! ! λομιώεστχο ! 32 λσμοχ. σοϊδαετ ! 32 λσμοχ. εσμι ποτεξγιαμψξοηο ! ολξο δμρ οπισαξιρ ! ξελοτοςαρ ώαστψ πςοστςαξστχα ! χιςτυαμψξωθ αδςεσοχ ! πςοστςαξστχα χις- αδςεσοχ ! νεφδυ σχοεκ χεςθξεκ ! τυαμψξωθ αδςεσοχ ! ηςαξιγεκ ι ηςαξιγεκ ! υφε ισπομψϊυετσρ ! χ 32 λσμοχ ! (ξαπςινες, ζοξοχων ! ! ϊαδαξιεν), ϊαδαξιε ! ! νοφετ οτνεξιτψ ! ! οτοβςαφεξιε ι πε- ! ! ςεοτοβςαϊιτψ αδ- ! ! ςεσα χ πανρτψ χωϋε ! ! 28 λσμοχ. πςοηςαν- ! ! να οβςαβοτλι πςε- ! ! ςωχαξιρ δομφξα ! ! χσεηδα ξαθοδιτψσρ ! ! χ οτοβςαφαενοκ ώα- ! ! στι πομψϊοχατεμψ- ! ! σλοηο πςοστςαξστχα ! ! πςεινυύεστχα ! οβεσπεώιχαετ ϊαύιτυ ! σςαχξινο σ ϊαδαξιρ ! πςοηςανξοηο οβεσπε- ! νι ςαβοταΰύινι πο ! ώεξιρ οπεςαγιοξξοκ ! υπςαχμεξιεν SJ- ! σιστενω ι δςυηιθ ! FB-νοξιτοςανι ! πςοηςανν; ϊαξιναετ ! ! νιξινυν ζιϊιώεσλοκ ! ! πανρτι χ οτμιώιε οτ ! ! δςυηιθ ϊαδαξικ ! - 440 - πςοδομφεξιε ταβμ. 14 σςαχξεξιε χιςτυαμψξοηο ι πςιχιμεηιςοχαξξοηο ϊαδαξικ ---------------------------------------------------------- θαςαλτεςιστιλα ! χιςτυαμψξοε ! πςιχιμεηιςοχαξξοε ! ϊαδαξιε ! ϊαδαξιε ---------------------------------------------------------- ! ! σταςτοχωε ! ζοξοχοε ϊαδαξιε: ! ζοξοχοε ϊαδαξιε: πςογεδυςω ! R ! R/RUN ! (.SAV) ! (.SAV) ! οπεςατιχξοε ϊαδαξιε:!οπεςατιχξοε ϊαδαξιε ! FRUN/SRUN ! FRUN/SRUN ! (.REL, .SAV; ! (.REL) ! δμρ .SAV- ςελονεξδυ-! ! ετσρ) ! ! ! στατιώεσλοε ! ςασϋιςρετσρ οτ χις- ! ξετ - ολξο ! τυαμψξοηο αδςεσα 0 ! χσε διξανιώεσλιε ! πςοηςαννω δο εε ! ! χεςθξεκ ηςαξιγω ! ! ! στατιώεσλαρ ! ζοξοχοε ϊαδαξιε: ! ξετ - οβμαστψ ! ςασϋιςρετσρ οτ ζιϊι-! χσε διξανιώεσλιε ! ώεσλοηο αδςεσα 500 ! ! δο ξιφξεηο αδςεσα ! ! USR; ! ! οπεςατιχξοε ϊαδαξιε:! ! ςασϋιςρετσρ οτ ζιϊι-! ! ώεσλοηο αδςεσα 0 δο ! ! χεςθξεκ ηςαξιγω ϊα- ! ! δαξιρ ! ! ! χοϊνοφξοε ώισμο ! 7 πμΰσ στατιώεσλοε ! 7 (1 ολξο ολοξ ! ολξο ! ϊαςεϊεςχιςοχαξο) ! ! χοϊνοφξοε ώισμο ! 3 πμΰσ στατιώεσλαρ ! 3 (1 οβμαστψ οβμαστεκ ! οβμαστψ ! ϊαςεϊεςχιςοχαξα) 9.3.3.4. πεςελμΰώεξιε νεφδυ ϊαδαξιρνι χ σιστενε, ινεΰύεκ βομεε οδξοηο ϊαδαξιρ, ξοχοε ϊαδαξιε ϊανεύαετ χωπομξρενοε χ δαξξωκ νονεξτ; νοξιτος σοθςαξρετ ϊαχισρύυΰ οτ ϊαδαξιρ ιξζοςναγιΰ ι χοσσταξαχμιχαετ εε, λοηδα πεςχοξαώαμψξοε ϊαδαξιε σξοχα ϊαηςυφαετσρ δμρ χωπομξεξιρ. ότα πςογεδυςα ξαϊωχαετσρ πεςελμΰώεξιεν λοξτελστα. πςι ςαβοτε ποδ υπςαχμεξιεν θν-νοξιτοςα λαφδοε ϊαδαξιε ρχμρετσρ μιβο χιςτυαμψξων, μιβο πςιχιμεηιςοχαξξων. σμεδοχα- τεμψξο, νοξιτοςυ πςιθοδιτσρ χωπομξρτψ δοπομξιτεμψξυΰ ςαβοτυ πο πεςελμΰώεξιΰ λοξτελστα. λοηδα νοξιτος πεςελμΰώαετσρ σ τελυύεηο ϊαδαξιρ, οξ σοθςαξρετ ξεοβθοδινυΰ ιξζοςναγιΰ. οδξαλο, νοξιτος ξιλοηδα ξε σοθςαξρετ σοδεςφινοε ςεηιστςοχ αλτιχξωθ στςαξιγ, λοτοςωε - 441 - ισπομψϊοχαμο τελυύεε ϊαδαξιε. πο ότοκ πςιώιξε πςοηςαννα πομψϊοχατεμρ ξε δομφξα ναξιπυμιςοχατψ ξεποσςεδστχεξξο ςεηιστςανι δισπετώεςα πανρτι; ιθ σοδεςφινοε τεςρετσρ χο χςενρ πεςελμΰώεξιρ λοξτελστα. νοξιτος ταλφε ιηξοςιςυετ σισ- τενξυΰ ναλςολοναξδυ .CNTXSW, εσμι οξα χστςεώαετσρ χ χις- τυαμψξον ϊαδαξιι. πςι πεςελμΰώεξιι σοθςαξρετσρ χσε ϊαδαξιε, ι, χ μΰβον σμυώαε, χιςτυαμψξονυ ϊαδαξιΰ ξε ςαϊςεϋεξ δοστυπ χ οβμαστψ χελτοςοχ. λοηδα νοξιτος πεςελμΰώαετσρ ξα ξοχοε ϊαδαξιε, οξ πςεδ- πομαηαετ, ώτο ξοχοε ϊαδαξιε - πςιχιμεηιςοχαξξοε. νοξιτος λοπιςυετ σοδεςφινοε σιστενξωθ ςεηιστςοχ οτοβςαφεξιρ χ πομψ- ϊοχατεμψσλιε ςεηιστςω. ϊατεν ϊαδαξιε νοφετ πομυώιτψ δοστυπ λ νμαδϋιν 28 λσμοχ πανρτι ι λ στςαξιγε χχοδα/χωχοδα. δαμεε, νοξιτος πςοχεςρετ, ρχμρετσρ μι ξοχοε ϊαδαξιε KMON. εσμι ότο ταλ, το χωπομξεξιε πςοδομφαετσρ βεϊ δαμψξεκϋεκ νοδιζιλαγιι. εσμι ξοχοε ϊαδαξιε ρχμρετσρ πςιχιμεηιςοχαξξων, νοξιτος πςοχεςρετ βμολι υπςαχμεξιρ ολξανι ι οβμαστρνι, ξαθοδρύιεσρ χ σνεϋαξξοκ οβμαστι ϊαδαξιρ. εσμι ϊαδαξιε οπςεδεμιμο ι οτοβςαϊιμο οδξο ιμι βομεε ολοξ, το νοξιτος χοσσταξαχμιχαετ οτοβςαφεξιε, οσξοχωχαρσψ ξα σοδεςφινον χξυτςεξξιθ βμολοχ υπςαχμεξιρ, τεν σανων χοσσταξαχμιχαρ πςιχιμεηιςοχαξξοε οτοβςαφεξιε πο υνομώαξιΰ δμρ ότιθ ολοξ. εσμι ξοχοε ϊαδαξιε - χιςτυαμψξοε, το νοξιτος οώιύαετ πομψϊοχατεμψσλιε ςεηιστςω οτοβςαφεξιρ. ϊατεν οξ πςοσνατςι- χαετ βμολι υπςαχμεξιρ ολξανι ι οβμαστρνι, ξαθοδρύιεσρ χ σνεϋαξξοκ οβμαστι. νοξιτος οτοβςαφαετ τομψλο τυ ώαστψ πςοστςαξστχα χιςτυαμψξωθ αδςεσοχ ϊαδαξιρ, λοτοςαρ βωμα οπςεδεμεξα ολξον ι οτοβςαφεξα ξα οβμαστψ πεςεδ πεςελμΰώε- ξιεν ϊαδαξικ. μΰβαρ ποπωτλα ισπομψϊοχατψ ξεοτοβςαφεξξωε αδςεσα χωϊοχετ οϋιβλυ δισπετώεςα πανρτι. ξεοτοβςαφεξξωε υώαστλι πςοστςαξστχα χιςτυαμψξωθ αδςεσοχ οσταΰτσρ ξεισπομψ- ϊυενωνι, πολα χιςτυαμψξοε ϊαδαξιε ρχξο ξε οτοβςαϊιτ ιθ. 9.4. τιπιώξοε πςινεξεξιε ςασϋιςεξξοκ πανρτι πςι ιϊυώεξιι σμεδυΰύιθ πυξλτοχ πςεδπομαηαετσρ, ώτο πομψϊοχατεμψ υφε ςαϊοβςαμσρ χ οσξοχξωθ ποξρτιρθ σιστενω σ ςασϋιςεξξοκ πανρτψΰ. 9.4.1. οχεςμει ςασϋιςεξξοκ πανρτι νμαδϋιε 28 λσμοχ πανρτι ϊαξρτω ςεϊιδεξτξων νοξιτοςον, δςακχεςανι υστςοκστχ, USR, οπεςατιχξων ϊαδαξιεν, οδξιν ιμι βομεε σιστενξωνι ϊαδαξιρνι ι ζοξοχων ϊαδαξιεν. δμρ οπτινι- ϊαγιι ισπομψϊοχαξιρ ότοηο πςοστςαξστχα, ξεοβθοδινο δεματψ λοςξεχωε σεηνεξτω ζοξοχοηο, οπεςατιχξοηο ι σιστενξωθ ϊαδα- ξικ (εσμι οξι ινεΰτ οχεςμει) λαλ νοφξο νεξψϋε. - 442 - όμενεξτω οώεςεδι, λαξαμω, πςοηςαννω οβςαβοτλι πςεςωχα- ξικ (χ χιςτυαμψξον ϊαδαξιι ιθ ξετ) ι ιξστςυλγιι JMP πονε- ύαΰτ χ πεςχωκ οχεςμεκ. δμρ υχεμιώεξιρ σλοςοστι χωπομξεξιρ ςελονεξδυετσρ δεματψ οχεςμεκξωε σεηνεξτω ποστορξξο ςεϊι- δεξτξωνι χ ςασϋιςεξξοκ πανρτι. λςονε τοηο, χσε πςοηςαννω δεμαΰτ χιςτυαμψξωνι ϊαδαξιρνι, εσμι οξι ξε τςεβυΰτ δοστυπα λ νοξιτοςυ ιμι λ στςαξιγε χχοδα/χωχοδα. πομψϊοχατεμψ νοφετ ισπομψϊοχατψ λμΰώ /V λονποξοχύιλα δμρ ϊαηςυϊλι οχεςμεκξωθ σεηνεξτοχ χ ςασϋιςεξξυΰ πανρτψ. KMON χο χςενρ ϊαηςυϊλι ϊαδαξιρ σοϊδαετ οβμαστψ, ισπομψϊυρ ιξζοςναγιΰ ιϊ δςακχεςα πεςελςωτικ ι ταβμιγ. δςακχες πεςελ- ςωτικ σοϊδαετ ι οτοβςαφαετ ολξα. ξα ςισ. 32 πολαϊαξ πςινες χιςτυαμψξοκ ζοξοχοκ πςοηςαννω, λοτοςαρ ισπομψϊυετ οχεςμει ςασϋιςεξξοκ πανρτι. δεταμψξαρ ιξζοςναγιρ οβ οχεςμερθ ςασϋι- ςεξξοκ πανρτι πςιχεδεξα χ οπισαξιι σιστενξοκ πςοηςαννω LINK. - 443 - χιςτυαμψξοε ζοξοχοε ϊαδαξιε σ οχεςμερνι χ ςασϋιςεξξοκ πανρτι πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ ----------------- 128λ ! στςαξιγα ! ! χχοδα/χωχοδα ! !---------------! 124λ ! ! !---------------!---- ! οχεςμεκξωκ ! δ ! σεηνεξτ 4 ! ι !---------------! ξ ! οχεςμεκξωκ ! α ! σεηνεξτ 3 ! ν ο /->!---------------! ι β ! ! οχεςμεκξωκ ! ώ μ / ! σεηνεξτ 2 ! ε α / !---------------! σ σ πςοστςαξστχο / ! οχεςμεκξωκ ! λ τ χιςτυαμψξωθ αδςεσοχ / ! σεηνεξτ 1 ! α ψ 32λ ----------------- / ->!---------------!-ρ-- ! ! / / ! ! ! ! / / . . ! ! / / . . ! ! / / ! ! ! ! / / !---------------! 28λ ! ! / / ! λονποξεξτω ! ----!---------------!/ / ! σιστενω ! ! ! / !---------------!---- ! οχεςμεκξαρ ! / ! ! σ <1> ! οβμαστψ 1 ! / ! ! τ ! ςασϋιςεξξοκ ! / ! ! α ! πανρτι ! / ! ! τ ----!---------------!/ /-------->!---------------! ι ! ! / ! λοςξεχοκ ! ώ ----!---------------!---/ ! σεηνεξτ ! ε σ ! λοςξεχοκ ! !---------------! σ τ ! σεηνεξτ ! ! δςακχες ! λ α !---------------! ! οχεςμεεχ ι ! α ο τ ! δςακχες ! ! ταβμιγω ! ρ β ι ! οχεςμεεχ ι ! !---------------! μ ώ ! ταβμιγω ! ! στελ ! α ε !---------------! !---------------! σ σ ο ! στελ ! ! χιςτυαμψξωε ! τ λ λ !---------------! ! χελτοςω ! ψ ο ξ ! χιςτυαμψξωε ! /-------->!---------------!-500- ε ο ! χελτοςω ! / ! χελτοςω ! ------------------------/ ----------------- <1> - διξανιώεσλοε ολξο ξα 4-λσμοχξοκ ηςαξιγε ςισ. 32 - 444 - 9.4.2. βομψϋιε βυζεςω ιμι νασσιχω δαξξωθ χ ςασϋιςεξξοκ πανρτι δμρ τοηο, ώτοβω ςαϊνεστιτψ βομψϋοκ βυζες ιμι νασσιχ δαξξωθ χ ςασϋιςεξξοκ πανρτι, χο-πεςχωθ, ξυφξο σοϊδατψ δοσ- τατοώξο βομψϋυΰ οβμαστψ, λοτοςαρ βω χνεύαμα νασσιχ δαξξωθ. χο-χτοςωθ, ςεϋιτψ, σλομψλο πςοστςαξστχα χιςτυαμψξωθ αδςεσοχ πςοηςαννω πςεδοσταχιτψ νασσιχυ δαξξωθ ι σοϊδατψ σοοτχετστ- χυΰύεε πο ςαϊνεςυ χιςτυαμψξοε αδςεσξοε ολξο. ϊατεν ξαπισατψ ποδπςοηςαννυ, λοτοςαρ πεςεχοδιμα βω σσωμλι λ νασσιχυ δαξξωθ χ ιξστςυλγιι, ώτοβω πεςεοτοβςαϊιτψ ολξο χ ποδθοδρύυΰ ώαστψ οβμαστι. ςισ. 33 ιμμΰστςιςυετ ότυ σιτυαγιΰ (σιστενξαρ ναλ- ςολοναξδα ςασϋιςεξξοκ πανρτι .SETTOP νοφετ αχτονατιώεσλι σοϊδατψ βυζες χ ςασϋιςεξξοκ πανρτι). - 445 - χιςτυαμψξοε ζοξοχοε ϊαδαξιε σ νασσιχον χ ςασϋιςεξξοκ πανρτι πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ ----------------- 128λ ! στςαξιγα ! λοξεγ ! χχοδα/χωχοδα ! νασσιχοχ --------->!----------124λ-!---- ! ! ! ! !---------------! ξαώαμο ! ! <2> νασσιχοχ --\ ! ! /-\----->!---------------! / \ ! ! / \ ! ! πςοστςαξστχο / /----\-->!----------112λ-!---- χιςτυαμψξωθ αδςεσοχ/ / ! ! 32λ -----------------/ / . . ! διξανιώεσλοε ! / . . ! ολξο ! / ! ! 28λ !---------------!/ !---------------! 28λ ! ! ! ! ! ξε ! ! λονποξεξτω ! ! οτοβςαφαετσρ ! ! σιστενω ! ! ! ! ! ! ! !---------------!---- ! ! ! ! σ ! ! ! ! τ ! ! /---------->!---------------! α ! ! / ! ζοξοχοε ! τ ο ----!---------------!/ ! ϊαδαξιε ! ι β ! ζοξοχοε ! !- - - - - - - -! ώ μ ! ϊαδαξιε ! ! στελ ! ε α !- - - - - - - -! !---------------! σ σ <1> ! στελ ! ! χιςτυαμψξωε ! λ τ !---------------! ! χελτοςω ! α ψ ! χιςτυαμψξωε ! /---------->!-----------500-!-ρ-- ! χελτοςω ! / ! χελτοςω ! --0------------------/ ----------------- 0 <1> - στατιώεσλοε ολξο <2> - διξανιώεσλαρ οβμαστψ ςισ. 33 9.4.3. νξοηοπομψϊοχατεμψσλαρ πςοηςαννα σιστενα σ ςασϋιςεξξοκ πανρτψΰ - ιδεαμψξωκ ιξστςυνεξτ δμρ σοϊδαξιρ νξοηοπομψϊοχατεμψσλιθ πςοηςανν. ξαπςινες, νοφ- ξο σοϊδατψ ρϊωλοχωκ ιξτεςπςιτατος, λοτοςωκ νοηυτ ισπομψϊο- χατψ οδξοχςενεξξο ςρδ πςοηςαννιστοχ. δμρ ότοηο ξεοβθοδινο ςαϊδεμιτψ πςοηςαννυ ξα δχε σελγιι: σελγιΰ, λοτοςαρ σοδεςφιτ ιξστςυλγιι σανοηο ιξτεςπςιτατοςα ι, οτδεμψξο δμρ λαφδοηο - 446 - πομψϊοχατεμρ, ςαβοώυΰ οβμαστψ ώτεξιρ/ϊαπισι. χωβςατψ υώασ- τολ πςοστςαξστχα χιςτυαμψξωθ αδςεσοχ, λοτοςωκ βυδετ σβοςξοκ οβμαστψΰ πομψϊοχατεμρ, ι σοϊδατψ ολξο ξυφξοηο ςαϊνεςα. δαμεε ςεϋιτψ, σλομψλο βυδετ πομψϊοχατεμεκ, ι σοϊδατψ οβμαστψ, ςαϊνες λοτοςοκ ςαχεξ πςοιϊχεδεξιΰ ώισμα πομψϊοχα- τεμεκ ξα ςαϊνες ολξα. ιξτεςπςιτατος νοφετ ιϊνεξρτψ λοξτελστ πομψϊοχατεμρ, πεςεοτοβςαϊιχ ολξο. ξα ςισ. 34 πολαϊαξα νξο- ηοπομψϊοχατεμψσλαρ πςοηςαννα. νξοηοπομψϊοχατεμψσλαρ πςοηςαννα νοφετ ισπομψϊοχατψ οχεςμει ςασϋιςεξξοκ πανρτι. χ ότον σμυώαε οδξα οβμαστψ ισπομψϊυετσρ δμρ οχεςμεεχ ι οδξα - δμρ ςαβοώιθ οβμαστεκ. - 447 - νξοηοπομψϊοχατεμψσλαρ χιςτυαμψξαρ ζοξοχαρ πςοηςαννα πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ ----------------- 128λ ! στςαξιγα ! ! χχοδα/χωχοδα ! !---------------! . . . . !---------------!-δ-- ! πομψϊοχατεμψ ! ι ! #4 ! ξ /------>!---------------! α / ! πομψϊοχατεμψ ! ν / ! #3 ! ι ο / /------>!---------------! ώ β πςοστςαξστχο / / ! πομψϊοχατεμψ ! ε μ χιςτυαμψξωθ αδςεσοχ/ / ! #2 ! σ α -32λ------------------/ / !---------------! λ σ !ςαβοώαρ οβμαστψ! / ! πομψϊοχατεμψ ! α τ <1> ! πομψϊοχατεμρ ! / ! #1 ! ρ ψ ----!---------------!/ !---------------!-28λ- ! ! ! ! ! ! ! ! ! ! ! λονποξεξτω ! ! ξε ! ! σιστενω ! ! οτοβςαφαετσρ ! ! ! ! ! !---------------!-σ-- ! ! ! ! τ ! ! /---------->!---------------! α ! ! / ! ώιστωκ ! τ ο ----!---------------!/ ! λοδ ! ι β ! ιξστςυλγιι ! !- - - - - - - -! ώ μ !ιξτεςπςετατοςα ! ! στελ ! ε α !- - - - - - - -! !---------------! σ σ <2> ! στελ ! ! χιςτυαμψξωε ! λ τ !---------------! ! χελτοςω ! α ψ ! χιςτυαμψξωε ! /---------->!-----------500-!-ρ-- ! χελτοςω ! / ! χελτοςω ! --0------------------/ ----------------- 0 <1> - διξανιώεσλοε ολξο <2> - στατιώεσλοε ολξο ςισ. 34 9.4.4. ςαβοώαρ οβμαστψ χ ςασϋιςεξξοκ πανρτι ςασϋιςεξξαρ πανρτψ νοφετ πςινεξρτψσρ ταλφε δμρ ςαϊνε- ύεξιρ χ ξεκ ςαβοώεκ οβμαστι. χ RM/SJ/FB-νοξιτοςε ζοξοχοε ϊαδαξιε νοφετ πομυώιτψ δοπομξιτεμψξοε πςοστςαξστχο δμρ διξανιώεσλοκ βυζεςιϊαγιι πςι πονούι ναλςολοναξδω .SETTOP. οπεςατιχξοε ϊαδαξιε πομυώαετ δοπομξιτεμψξοε πςοστςαξστχο ταλφε σ πονούψΰ ναλςολοναξδω .SETTOP, ξο χ ότον σμυώαε οξο - 448 - δομφξο βωτψ ϊαηςυφεξο λοναξδοκ νοξιτοςα FRUN/BUFFER:N. χ οβοιθ σμυώαρθ δοπομξιτεμψξοε πςοστςαξστχο ςαϊνεύαετσρ χ νμαδϋιθ 28 λσμοχ πανρτι. χ σιστενε σ θν-νοξιτοςον δοπομξιτεμψξοε πςοστςαξστχο νοφετ ξαθοδιτψσρ λαλ χωϋε, ταλ ι ξιφε 28 λσμοχ. ότο ποϊχο- μρετ χωπομξρτψ ϊαδαξιρ, λοτοςωε ξεχοϊνοφξο χωπομξιτψ χ σισ- τενε βεϊ δισπετώεςα πανρτι. χοϊνοφξοστψ πομυώιτψ δοπομξι- τεμψξοε πςοστςαξστχο ξαιβομεε πομεϊξα δμρ χιςτυαμψξωθ ϊαδα- ξικ, ποτονυ ώτο οξι νοηυτ πομυώιτψ πςοστςαξστχο δο χις- τυαμψξοηο αδςεσα 177776 (32 λσμοχ), ισπομψϊυρ ςασϋιςεξξυΰ ναλςολοναξδυ .SETTOP. χσρ πανρτψ, πομυώεξξαρ ναλςολοναξδοκ .SETTOP, ξαθοδιτσρ χ ςασϋιςεξξοκ πανρτι. πςι ότον χιςτυαμψ- ξωε οπεςατιχξωε ϊαδαξιρ δμρ πομυώεξιρ δοπομξιτεμψξοηο πςοστςαξστχα ξε τςεβυΰτ λοναξδω FRUN/BUFFER:N. πςινεώαξιε. δμρ βομεε λςατλοκ ζοςνω ιϊμοφεξιρ χ δολυ- νεξτε πςιξρτο, ώτο ναλςολοναξδα .SETTOP, ςαβοταΰύαρ σ ςασ- ϋιςεξξοκ πανρτψΰ ποδ υπςαχμεξιεν XM-νοξιτοςα, ξαϊωχαετσρ "ςασϋιςεξξοκ ναλςολοναξδοκ .SETTOP" (ιμι ".SETTOP δμρ XM-νοξιτοςα"). δμρ ναλςολοναξδω .SETTOP, ξε ςαβοταΰύεκ σ ςασϋιςεξξοκ πανρτψΰ, ισπομψϊυετσρ τεςνιξ "οβωώξαρ ναλςολο- ναξδα .SETTOP" (ιμι "ναλςολοναξδα .SETTOP"). ότο φε οτξο- σιτσρ ι λ διςελτιχε .LIMIT. 9.4.4.1. ισπομψϊοχαξιε .SETTOP χ XM-νοξιτοςε σιστενξαρ ναλςολοναξδα .SETTOP ποδ υπςαχμεξιεν XM-νοξιτοςα νοφετ χωπομξρτψσρ πο ςαϊξονυ. εσμι πςοηςαννα ινεετ οχεςμεκξυΰ στςυλτυςυ, το δμρ σοϊδαξιρ πεςελςωτικ ςασ- ϋιςεξξοκ πανρτι ναλςολοναξδοκ .SETTOP ισπομψϊυετσρ λμΰώ /V λονποξοχύιλα. ότο ταλφε ποϊχομιτ XM-νοξιτοςυ ισπομψϊοχατψ διςελτιχυ .LIMIT (οπισαξξυΰ ξιφε), σχρϊατψ δςακχες πεςελςω- τικ ςασϋιςεξξοκ πανρτι (VHANDL) σ ϊαηςυϊοώξων νοδυμεν ι υσταξοχιτψ στςυλτυςυ οχεςμεεχ ςασϋιςεξξοκ πανρτι. λμΰώ /V ισπομψϊυετσρ σ λοναξδοκ νοξιτοςα LINK/PROMPT. εσμι πςοηςαννα ξε ινεετ οχεςμεεχ ιμι ινεετ οχεςμει τομψλο χ νμαδϋεκ πανρτι, λοτοςωε σοϊδαξω λμΰώον /O λονπο- ξοχύιλα, το δμρ ποδδεςφλι XM-νοξιτοςον ναλςολοναξδω .SETTOP, ξεοβθοδινο ισπομψϊοχατψ λοναξδυ LINK/XM. λμΰώ /XM ποδδεςφιχαετ ςασϋιςεξξωε ναλςολοναξδυ .SETTOP ι διςελτιχυ ναλςοασσενβμεςα .LIMIT. οξ ξε σχρϊωχαετ δςακχες πεςελςωτικ ςασϋιςεξξοκ πανρτι σ ϊαηςυϊοώξων νοδυμεν ι ξε υσταξαχμιχαετ στςυλτυςυ οχεςμεεχ ςασϋιςεξξοκ πανρτι δμρ πςοηςαννω. οβωώξο διςελτιχα .LIMIT χοϊχςαύαετ χ σταςϋεν σμοχε αδςεσ σμεδυΰύεκ δοστυπξοκ δμρ πςοηςαννω ρώεκλι. δοπομξι- τεμψξοε πςοστςαξστχο δμρ πςοηςαννω, πομυώεξξοε σ πονούψΰ .SETTOP δμρ ςασϋιςεξξοκ πανρτι, χσεηδα ξαώιξαετσρ σ χοσψνε- ςιώξοηο αδςεσα, χοϊχςαύεξξοηο διςελτιχοκ .LIMIT χ σταςϋεν σμοχε. ότο σπςαχεδμιχο δμρ χσεθ πςοηςανν ξεϊαχισινο οτ τοηο, ποδδεςφιχαετ μι θν-νοξιτος ςασϋιςεξξυΰ ναλςολοναξδυ .SETTOP ιμι ξετ. - 449 - 9.4.4.2. χεςθξιε ηςαξιγω πςοηςαννω δμρ ποξιναξιρ ςασϋιςεξξοκ ναλςολοναξδω .SETTOP χαφξο ποξρτψ ςαϊμιώιρ νεφδυ χεςθξεκ ηςαξιγεκ πςοηςαννω, χιςτυαμψ- ξοκ χεςθξεκ ηςαξιγεκ ι σμεδυΰύιν σχοβοδξων αδςεσον. ξα ςισ. 35 πολαϊαξο πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ πςοηςαννω. ότα πςοηςαννα ινεετ οχεςμει χ νμαδϋεκ πανρτι ι οχεςμει χ ςασϋι- ςεξξοκ πανρτι, σοϊδαξξωε σοοτχετστχεξξο λμΰώον /O ι λμΰώον /V λονποξοχύιλα. χεςθξρρ ηςαξιγα πςοηςαννω - ότο σταςϋικ χιςτυαμψξωκ αδςεσ, ισπομψϊυενωκ λοςξεχων σεηνεξτον πςοηςαν- νω ι εε οχεςμεκξωνι οβμαστρνι (/O) χ νμαδϋεκ πανρτι, εσμι οξι εστψ. χεςθξρρ χιςτυαμψξαρ ηςαξιγα - ότο σταςϋικ χις- τυαμψξωκ αδςεσ, ισπομψϊυενωκ οχεςμεκξωνι οβμαστρνι (/V) ςασϋιςεξξοκ πανρτι, λςατξωκ 32 (δεσρτιώξοε) σμοχαν νιξυσ 2 (χ χοσψνεςιώξον χιδε δχε γιζςω νμαδϋεηο ποςρδλα αδςεσα χσεηδα 76). ότο ϊξαώεξιε πεώαταετσρ χ λαςτε ϊαηςυϊλι λαλ NNNNNN ι πολαϊαξο χ σμεδυΰύεν πςινεςε: VIRTUAL HIGH ADDRESS = NNNNNN = DDDDD.WORDS, NEXT FREE ADDRESS = MMMMM ϊξαώεξιε σμεδυΰύεηο σχοβοδξοηο αδςεσα (σσα) χωώισμρετ λονποξοχύιλ. δμρ ϊαδαξιρ, λοτοςοε ισπομψϊυετ ςασϋιςεξξυΰ ναλςολοναξδυ .SETTOP, οξ ολςυημρετ χεςθξΰΰ χιςτυαμψξυΰ ηςα- ξιγυ, δεμαρ εε λςατξοκ 4 λσμοχ. χ ότον σμυώαε, σμεδυΰύικ σχοβοδξωκ αδςεσ - ότο ποσμεδξεε σμοχο πςοστςαξστχα χις- τυαμψξωθ αδςεσοχ, οπισωχαενοε σταςϋιν ςεηιστςον αδςεσα στςαξιγω, ισπομψϊυενοηο ϊαδαξιεν, πμΰσ 2. οξ χσεηδα ξα ηςα- ξιγε 4 λσμοχ (χ χοσψνεςιώξον χιδε σμεδυΰύικ σχοβοδξωκ αδςεσ χσεηδα λςατεξ 20000). - 450 - πςοηςαννξαρ ι χιςτυαμψξαρ χεςθξιε ηςαξιγω ι σμεδυΰύικ σχοβοδξωκ αδςεσ πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ -------------------- 32λ ! ! . πςοστςαξστχο . . πομυώεξο πο . σσα ---->! .SETTOP ! 4-λσμοχξαρ (λςατξωκ 4λ) !------------------!<--- ηςαξιγα ! ! !------------------!<--- χιςτυαμψξαρ ! οβμαστψ οχεςμεεχ ! χεςθξρρ ηςαξιγα ! ςασϋιςεξξοκ ! (λςατξαρ 32,-2) ! πανρτι (/V) ! !------------------!<--- χεςθξρρ ! οβμαστψ οχεςμεεχ ! ηςαξιγα πςοηςαννω ! νμαδϋεκ ! ! πανρτι (/ο) ! !------------------! ! λοςξεχοκ ! ! σεηνεξτ ! !------------------! ! στελ ! ! ! !------------------! ! χιςτυαμψξωε ! ! χελτοςω ! -------------------- ςισ. 35 ξαπςινες, δμρ ϊαδαξιρ σ οχεςμερνι χ ςασϋιςεξξοκ πανρτι χιςτυαμψξαρ χεςθξρρ ηςαξιγα ςαχξα 55076. σμεδυΰύικ σχοβοδ- ξωκ αδςεσ (σσα) δμρ ϊαδαξιρ, χωώισμεξξωκ λονποξοχύιλον - 60000, ι ρχμρετσρ ξαώαμον σμεδυΰύεηο 4-λσμοχξοηο πςοστ- ςαξστχα χιςτυαμψξωθ αδςεσοχ. ότο ϊξαώεξιε πεώαταετσρ χ λας- τε ϊαηςυϊλι λαλ "NEXT FREE ADDRESS". ξιφε πολαϊαξο ότο ϊξα- ώεξιε δμρ πςεδωδυύεηο πςινεςα. VIRTUAL HIGH ADDRESS = 055076 = DDDDD.WORDS, NEXT FREE ADDRESS = 060000 εσμι πςοηςαννα ξε ινεετ οχεςμεεχ χ ςασϋιςεξξοκ πανρτι, το οξα ξε ινεετ χιςτυαμψξοκ χεςθξεκ ηςαξιγω, ι χεςθξρρ ηςα- ξιγα πςοηςαννω ξε ολςυημρετσρ. χ λαςτε ϊαηςυϊλι δμρ πςοη- ςανν βεϊ οχεςμεεχ ι δμρ πςοηςανν σ οχεςμερνι, σοϊδαξξωνι λμΰώον /O, χεςθξρρ ηςαξιγα πςοηςαννω πεώαταετσρ λαλ MMMMMM. ότο πολαϊαξο χ σμεδυΰύεν πςινεςε (σμεδυΰύαρ στςολα χσεηδα πεώαταετσρ χ λαςτε ϊαηςυϊλι). TRANSFER ADDRESS = NNNNNN,HIGH LIMIT = MMMMMM = DDDDD.WORD - 451 - 9.4.4.3. οβωώξαρ ναλςολοναξδα .SETTOP εσμι πομψϊοχατεμψ χο χςενρ λονποξοχλι ξε υλαϊαμ XM-νοξιτοςυ ποδδεςφλυ ςασϋιςεξξοκ ναλςολοναξδω .SETTOP, το οξα χ πςοηςαννε δμρ ςασϋιςεξξοκ πανρτι ινεετ οηςαξιώεξξωε χοϊνοφξοστι. δμρ πςιχιμεηιςοχαξξωθ ϊαδαξικ, λοτοςωε ξε ιϊνεξρΰτ οτοβςαφεξιε πο υνομώαξιΰ, .SETTOP ςαβοταετ ταλφε, λαλ ι χ σιστεναθ σ RM/SJ/FB-νοξιτοςανι. εσμι πςιχιμεηιςοχαξξοε ϊαδαξιε σοϊδαετ χιςτυαμψξοε αδςεσξοε ολξο ι οτοβςαφαετ εηο ξα οβμαστψ ςασϋιςεξξοκ πανρτι, χεςθξρρ ηςαξιγα πςοηςαννω ξε ιϊνεξρετσρ πςι οτοβςαφεξιι. ϊξαώεξιε, χοϊχςαύαενοε ναλςολο- ναξδοκ .SETTOP, χσε εύε πςεδσταχμρετ σταςϋικ αδςεσ, δοστυπ- ξωκ πςοηςαννε χ νμαδϋιθ 28 λσμοχ πανρτι. λοηδα νοξιτος χωπομξρετ πςοχεςλυ αδςεσα σιστενξωθ ναλ- ςολοναξδ, οξ σξαώαμα σνοτςιτ, χθοδιτ μι αδςεσ (βμολα αςηυ- νεξτοχ, βυζεςα δαξξωθ ι τ.δ.) χξυτςψ οτοβςαφεξξοηο διξανι- ώεσλοηο ολξα. εσμι ξετ, το οξ πςοχεςρετ, ξαθοδιτσρ μι αδςεσ χ νμαδϋεκ οβμαστι πανρτι ϊαδαξιρ. εσμι αδςεσ ξεχεςεξ χ οβοιθ σμυώαρθ, νοξιτος σοοβύαετ οβ οϋιβλε, ι ϊαδαξιε σξι- ναετσρ σ χωπομξεξιρ. εσμι ϊαδαξιε - χιςτυαμψξοε, χεςθξρρ ηςαξιγα πςοηςαννω χο χςενρ ϊαηςυϊλι υσταξαχμιχαετσρ ξα χεςθξικ χιςτυαμψξωκ αδςεσ, ισπομψϊυενωκ λοςξεχων σεηνεξτον ι μΰβωνι οχεςμερνι (/O) χ νμαδϋεκ πανρτι. εσμι ϊαδαξιε χωπομξρετ σχοι οπεςαγιι οτοβςαφεξιρ, οξι ξε ϊατςαηιχαΰτ χεςθξΰΰ ηςαξιγυ πςοηςαννω, λαλ ότο δεμαετ .SETTOP. ποότονυ οβωώξαρ ναλςολοναξδα .SETTOP ςασπςεδεμρετ ισλμΰώιτεμψξο νμαδϋιε 28 λσμοχ πανρτι. χιςτυαμψξοε ϊαδαξιε ισπομψϊυετ πομψϊοχατεμψσλικ ςεφιν πςο- γεσσοςα, ι ποότονυ οτοβςαφεξιε πςοισθοδιτ χ σοοτχετστχιι σ σοδεςφινων πομψϊοχατεμψσλοηο ξαβοςα ςεηιστςοχ αλτιχξωθ στςαξιγ. χιςτυαμψξοε ϊαδαξιε ξε ινεετ δοστυπα λ πανρτι χξε ϊαδαξιρ (τ.λ. οξο ξε οτοβςαφαετσρ ξα μΰβυΰ οβμαστψ πανρτι λςονε ξαϊξαώεξξοηο εκ ζιϊιώεσλοηο πςοστςαξστχα), ποότονυ ναλςολοναξδα .SETTOP χ χιςτυαμψξον ϊαδαξιι βεϊ λοναξδω νοξιτοςα LINK/XM ιμι λμΰώα /V λονποξοχύιλα ξε χωδεμιτ ξιλα- λοκ δοπομξιτεμψξοκ πανρτι ϊαδαξιΰ. χοϊχςαύαενοε ϊξαώεξιε νοφετ βωτψ ισπομψϊοχαξο χιςτυαμψξων ϊαδαξιεν, ώτοβω σδεματψ σοβστχεξξοε οτοβςαφεξιε δοστυπξοηο πςοστςαξστχα ι ισπομψϊο- χατψ εηο. λοηδα νοξιτος χωπομξρετ πςοχεςλυ αδςεσα χιςτυαμψξοηο ϊαδαξιρ, οξ ιηξοςιςυετ ηςαξιγω πςοηςαννω ι πςοστο σνοτςιτ, ώτοβω χιςτυαμψξωκ αδςεσ ξαθοδιμσρ χξυτςι οτοβςαφεξξοηο ολξα. εσμι αδςεσ ξε ξαθοδιτσρ χξυτςι οτοβςαφεξξοηο ολξα, δισπετώες πανρτι σοοβύαετ οβ οϋιβλε. - 452 - 9.4.4.4. ςασϋιςεξξαρ ναλςολοναξδα .SETTOP ςασϋιςεξξαρ ναλςολοναξδα .SETTOP πομεϊξα δμρ πςιχιμε- ηιςοχαξξωθ ι χιςτυαμψξωθ ϊαδαξικ, θοτρ εε ξαϊξαώεξιε δμρ πςιχιμεηιςοχαξξωθ ϊαδαξικ οηςαξιώεξο. δμρ χιςτυαμψξωθ ϊαδαξικ ςασϋιςεξξαρ .SETTOP ξε τομψλο πομυώαετ πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ χωϋε χιςτυαμψξοκ χεςθξεκ ηςαξιγω, ηδε ξαώιξαετσρ σμεδυΰύικ σχοβοδξωκ αδςεσ πςοηςαννω, ξο ταλφε αχτονατιώεσλι οτοβςαφαετ εηο. χ ςεϊυμψ- τατε, ϊαδαξιε, ςαβοταΰύεε σ ςασϋιςεξξοκ πανρτψΰ, νοφετ πςι πονούι σιστενξοκ ναλςολοναξδω .SETTOP πομυώιτψ δοπομξιτεμψ- ξοε πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ. δμρ πςιχιμεηιςοχαξξωθ ϊαδαξικ ςασϋιςεξξαρ ναλςολοναξδα .SETTOP ζυξλγιοξιςυετ λαλ οβωώξαρ .SETTOP σο σμεδυΰύιν ισλ- μΰώεξιεν: χ πςιχιμεηιςοχαξξωθ ϊαδαξιρθ .SETTOP δμρ XM-νοξιτοςα τςεβυετ ισπομψϊοχαξιρ ξοχοκ ςασϋιςεξξοκ διςελ- τιχω .LIMIT. σταςϋεε ϊξαώεξιε, λοτοςοε χοϊχςαύαετ διςελτι- χα, ρχμρετσρ σμεδυΰύιν σχοβοδξων αδςεσον. ταλιν οβςαϊον, ξαώαμο βυζεςα χσεηδα χοϊχςαύαετσρ ξα 4-λσμοχξοκ ηςαξιγε. ναλςολοναξδα .SETTOP δμρ μΰβοηο αδςεσα ξιφε ότοκ 4-λσμοχξοκ ηςαξιγω ξεδοπυστινα. δμρ οβειθ πςοηςανν (πςιχιμεηιςοχαξξοκ ι χιςτυαμψξοκ), λονποξοχύιλ ϊαπομξρετ ιξζοςναγιεκ δχα σμοχα χ ρώεκλαθ 0 ι 2 ϊαηςυϊοώξοηο νοδυμρ. ρώεκλα 0 σοδεςφιτ VIR χ λοδε RADIX-50. ρώεκλα 2 σοδεςφιτ σμεδυΰύικ σχοβοδξωκ αδςεσ νιξυσ 2, λοτο- ςωκ νοφετ ϊξαώιτεμψξο οτμιώατψσρ οτ χεςθξεκ χιςτυαμψξοκ ηςαξιγω. διςελτιχα .LIMIT ---------------- δμρ ϊαδαξικ χ σιστεναθ σ RM/SJ/FB-νοξιτοςανι ι χ σισ- τενε σ XM-νοξιτοςον βεϊ ποδδεςφλι ςασϋιςεξξοκ ναλςολοναξδω .SETTOP, διςελτιχα .LIMIT χοϊχςαύαετ πςοηςαννε δχα ϊξαώεξιρ (ϊαπομξρΰτσρ LINK): - ξιφξικ χιςτυαμψξωκ αδςεσ, ισπομψϊυενωκ πςοηςαννοκ (οβωώξο 0); - χεςθξικ αδςεσ πςοηςαννω +2 (ξαπςινες, 1644+2 ιμι 1646). δμρ πςοηςανν, χωπομξρΰύιθσρ ποδ υπςαχμεξιεν XM-νοξιτοςα σ ποδδεςφλοκ ςασϋιςεξξοκ ναλςολοναξδω .SETTOP, διςελτιχα .LIMIT χοϊχςαύαετ δςυηιε ϊξαώεξιρ: - ξιφξικ χιςτυαμψξωκ αδςεσ, ισπομψϊυενωκ πςοηςαννοκ (οβωώξο 0); - σμεδυΰύικ σχοβοδξωκ αδςεσ (χσεηδα ξα 4-λσμοχξοκ ηςαξιγε), λοτοςωκ οβωώξο ξε ςαχεξ χεςθξεκ ηςαξιγε πςοηςαννω +2. - 453 - πςονεφυτλι χ πςοστςαξστχε χιςτυαμψξωθ αδςεσοχ --------------------------------------------- λονποξοχύιλ χσεηδα ξαώιξαετ λαφδυΰ οβμαστψ οχεςμεεχ χ ςασϋιςεξξοκ πανρτι (/V) ξα ηςαξιγε 4 Kσμοχ πςοστςαξστχα χιςτυαμψξωθ αδςεσοχ πςοηςαννω. ότο οηςαξιώεξιε χωτελαετ ιϊ αππαςατξωθ τςεβοχαξικ. ποότονυ νοηυτ πορχιτψσρ πςονεφυτλι νεφδυ χεςθξεκ ηςαξιγεκ πςοηςαννω ι ξαώαμον οβμαστι χις- τυαμψξωθ οχεςμεεχ. πςι ποπωτλε πςοηςαννω σοσματψσρ λ χις- τυαμψξονυ αδςεσυ χξυτςι ότοηο πςονεφυτλα χοϊξιλαετ οϋιβλα. μΰβοε δοπομξιτεμψξοε πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ, πομυώεξξοε πο ςασϋιςεξξοκ ναλςολοναξδε .SETTOP, ταλφε ξαώι- ξαετσρ ξα 4-λσμοχξοκ ηςαξιγε. ότο ϊξαώιτ, ώτο πςονεφυτλι νοηυτ ξαθοδιτψσρ νεφδυ χιςτυαμψξοκ χεςθξεκ ηςαξιγεκ πςοη- ςαννω ι ξαώαμον δοπομξιτεμψξοηο πςοστςαξστχα. πςοηςαννα ξε νοφετ σσωματψσρ λ αδςεσαν χξυτςι ότοηο πςονεφυτλα. ξα ςισ. 36 πολαϊαξα τιπιώξαρ πςοηςαννα σ οχεςμερνι χ νμαδϋεκ (/O) ι χ ςασϋιςεξξοκ (/V) πανρτι. πςονεφυτλι χ πςοστςαξστχε χιςτυαμψξωθ αδςεσοχ πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ -------------------- 32λ ! ! . πςοστςαξστχο . . πομυώεξο πο . σσα (60000) ! .SETTOP ! (χσεηδα ξα ! ! 4-λσμοχξοκ ! ! ηςαξιγε) ---->/!//////////////////!-12λ πςονεφυτολ < !//////////////////! \!//////////////////!<--- χιςτυαμψξαρ ! ! χεςθξρρ ηςαξιγα ! ! (λςατξαρ 32,-2) ! οβμαστψ οχεςμεεχ ! ! ςασϋιςεξξοκ ! 4-λσμοχξαρ ! πανρτι (/V) ! ηςαξιγα ---->/!//////////////////!-8λ / !//////////////////! πςονεφυτολ < !//////////////////! \ !//////////////////! \!//////////////////!<--- χεςθξρρ ! ! ηςαξιγα πςοηςαννω ! οβμαστψ οχεςμεεχ ! ! νμαδϋεκ ! ! πανρτι (/ο) !-4λ !------------------! ! λοςξεχοκ ! ! σεηνεξτ ! !------------------! ! στελ ! ! ! !------------------! ! χιςτυαμψξωε ! ! χελτοςω ! -------------------- 0 ςισ. 36 - 454 - 9.4.4.5. .SETTOP ι πςιχιμεηιςοχαξξωε ϊαδαξιρ εσμι πςιχιμεηιςοχαξξοε ϊαδαξιε ισπομψϊυετ ναλςολοναξδυ .SETTOP ι, εσμι σμεδυΰύικ σχοβοδξωκ αδςεσ χωϋε ξαώαμα USR, ότο ϊξαώιτ, ώτο πςοηςαννα υφε ισπομψϊυετ πςοστςαξστχο χις- τυαμψξωθ αδςεσοχ χωϋε ξαώαμα νοξιτοςα. χ ότον σμυώαε ξετ σχοβοδξοκ πανρτι, λοτοςυΰ νοφξο οτοβςαϊιτψ, ξαώιξαρ σο σμε- δυΰύεηο σχοβοδξοηο αδςεσα πςοηςαννω, ι νοξιτος ξε νοφετ πομυώιτψ βομψϋε πςοστςαξστχα δμρ ότοκ πςοηςαννω. ταλιν οβςαϊον, πςιχιμεηιςοχαξξοε ϊαδαξιε ξιλοηδα ξε νοφετ πομυ- ώιτψ πςοστςαξστχο χωϋε SYSLOW (ξαώαμο USR). ναλςολοναξδα .SETTOP χοϊχςαύαετ ϊξαώεξιε σμεδυΰύεηο σχοβοδξοηο αδςεσα νιξυσ 2 χ ρώεκλυ 50 πςοηςαννω ι χ R0. ότοτ αδςεσ ρχμρετσρ σταςϋιν ισπομψϊυενων αδςεσον. εσμι ινεετσρ δοστυπξαρ πανρτψ, νοξιτος πωταετσρ πομυ- ώιτψ εε δμρ ϊαδαξιρ, οσξοχωχαρσψ ξα ςαϊνεςε οβμαστι, υλα- ϊαξξοκ αςηυνεξτον ναλςολοναξδω .SETTOP. ότα πανρτψ χσεηδα ξαθοδιτσρ χ νμαδϋιθ 28 λσμοχ. πςιχιμεηιςοχαξξοε ϊαδαξιε ξιλοηδα ξε νοφετ πομυώιτψ νεξψϋε πςοστςαξστχα χιςτυαμψξωθ αδςεσοχ, ώεν πςοστςαξστχο δο εε σμεδυΰύεηο σχοβοδξοηο αδςε- σα νιξυσ 2 (σσα-2). λ τονυ φε, σμεδυΰύικ σχοβοδξωκ αδςεσ, πομυώεξξωκ ςασϋιςεξξοκ ναλςολοναξδοκ .SETTOP, χσεηδα ξα 4 λσμοχξοκ ηςαξιγε, ι ϊαδαξιε ξε νοφετ ισπομψϊοχατψ ναλςολο- ναξδυ .SETTOP δμρ αδςεσα, ξαθοδρύεηοσρ ξιφε ότοηο. ποότονυ ϊαδαξιε τεςρετ πςοστςαξστχο νεφδυ εηο ποσμεδξιν ισπομψϊυε- νων αδςεσον ι σμεδυΰύεκ 4 λσμοχξοκ ηςαξιγεκ. πςιχιμεηιςοχαξξωε ζοξοχωε ϊαδαξιρ --------------------------------- ξα ςισ. 37 πολαϊαξο πςιχιμεηιςοχαξξοε ζοξοχοε ϊαδαξιε ι χσε εηο ηςαξιγω. λοηδα χ πανρτι ξετ οπεςατιχξοηο ϊαδαξιρ, ζοξοχοε ϊαδαξιε νοφετ πομυώιτψ δοπομξιτεμψξοε πςοστςαξστχο σ πονούψΰ ναλςολοναξδω .SETTOP. ώαστο ταλοε πςοστςαξστχο ινεετσρ δαφε πςι ϊαηςυφεξξοκ οπεςατιχξοκ πςοηςαννε. - 455 - πςιχιμεηιςοχαξξοε ζοξοχοε ϊαδαξιε πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ /---->--------------- 128λ ! ! στςαξιγα ! ! ! χχοδα/χωχοδα! ! /->!-------------! 124λ ! ! ! ! ! ! . . πςοστςαξστχο / ! . . χιςτυαμψξωθ αδςεσοχ/ / ! ! 32λ ---------------/ / !-------------! ! ! //-->! ςαϊδεμ οχες-! ! ! / ! ! μεεχ ςασϋι- ! ! ! / ! !ςεξξοκ πανρτι! 28λ !-------------!/---!/->!-------------! 28λ ! ! !! !δςακχες σιστ.! ! ! !! ! υστςοκστχα ! ! ! 1! !-------------! ! ! !! ! RMON ! ! !--->!! !-------------! ! ! !! !δςακχεςω δςυ-! ! ! !! !ηιθ υστςοκστχ! ! ! !! !-------------! .SETTOP ! ! !! ! USR ! #-2 --->!-------------!----!!->!-------------!<--SYSLOW !πςοστςαξστχο ! !! ! σχοβοδξοε ! !πςεδοσταχμεξο! !! !πςοστςαξστχο ! ! πο .SETTOP ! !! !πςεδοσταχμεξο! σσα ----->! ! /! ! πο .SETTOP ! .SETTOP -->!/////////////!-8λ/-!->!/////////////!\-- 8λ #0 !/////////////! / / !/////////////! \ χεςθξρρ -->!/////////////!-/ / !/////////////! \ χιςτυαμψξαρ!οβμαστψ οχες-! / !/////////////! > <1> ηςαξιγα ! μεεχ ςασϋι- ! / !/////////////! / !ςεξξοκ πανρτι! / !/////////////! / !/////////////!-4λ---->!/////////////!/-- 4λ !/////////////! ! !<--- <2> χεςθξρρ -->!/////////////!------->!-------------! ηςαξιγα !λοςξεχοκ σεη-! !λοςξεχοκ σεη-! πςοηςαννω !νεξτ ι οχες- ! !νεξτ ι οχες- ! ! μει νμαδϋεκ ! ! μει νμαδϋεκ ! ! πανρτι ! ! πανρτι ! !-------------! !-------------! ! στελ ! ! στελ ! ! ! ! ! !-------------! !-------------! ! χιςτυαμψξωε ! ! χελτοςω ! ! χελτοςω ! ! ! 0 ---------------------->--------------- 0 <1> - ξεισπομψϊυενοε πςοστςαξστχο <2> - δοστυπξο πςοηςαννε πο υνομώαξιΰ ςισ. 37 - 456 - πςιχιμεηιςοχαξξωε οπεςατιχξωε ϊαδαξιρ ------------------------------------- οπεςατιχξωε ϊαδαξιρ ϊαηςυφαΰτσρ χ πανρτψ ξιφε ποσμεδ- ξεηο δςακχεςα υστςοκστχα ι χωϋε USR. οξι ξε ινεΰτ δοπομξι- τεμψξοηο πςοστςαξστχα πο ναλςολοναξδε .SETTOP. ποότονυ, χ ταλοκ σιτυαγιι, πςιχιμεηιςοχαξξων οπεςατιχ- ξων ϊαδαξιρν ϊαπςεύεξο ισπομψϊοχατψ οχεςμει ςασϋιςεξξοκ πανρτι. ότο ταλφε οϊξαώαετ, ώτο οξι ξε νοηυτ ισπομψϊοχατψ λμΰώ /V λονποξοχύιλα (ιμι LINK/FOREGROUND/PROMPT, ιμι LINK/FOREGROUND/XM), ώτοβω ςαϊςεϋιτψ XM-νοξιτοςυ ποδδεςφι- χατψ ςασϋιςεξξωε ναλςολοναξδυ .SETTOP ι διςελτιχυ .LIMIT. 9.4.4.6. .SETTOP ι χιςτυαμψξωε ϊαδαξιρ εσμι σμεδυΰύικ σχοβοδξωκ αδςεσ ςαχεξ 200000, το πςοη- ςαννα υφε ισπομψϊυετ πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ, υπςαχμρενοε ςεηιστςον αδςεσα στςαξιγω 7. ναλςολοναξδα χοϊχ- ςαύαετ ϊξαώεξιε 177776 χ ρώεκλυ 50 ι χ R0. εσμι .SETTOP νοφετ πομυώιτψ πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ σο σμεδυΰύεηο σχοβοδξοηο αδςεσα (ξα 4 λσμοχξοκ ηςα- ξιγε), νοξιτος σοϊδαετ οβμαστψ χ ςασϋιςεξξοκ πανρτι ξεοβθο- δινοηο ςαϊνεςα. εσμι ξετ δοστατοώξοηο πςοστςαξστχα, νοξιτος σοϊδαετ λαλ νοφξο βομψϋυΰ οβμαστψ (δμρ υχεςεξξοστι σμεδυετ πςοχεςιτψ ϊξαώεξιε, χοϊχςαύαενοε ναλςολοναξδοκ .SETTOP). ϊατεν νοξιτος σοϊδαετ ολξο ι οτοβςαφαετ εηο ξα ξοχυΰ οβμαστψ. οξ χοϊχςαύαετ ξοχοε ϊξαώεξιε σταςϋεηο δοστυπξοηο αδςεσα χ ρώεκλυ 50 ι χ R0. εσμι ξετ πομξοστψΰ δοστυπξοηο πςοστςαξστχα ιμι ξετ δοστυπξωθ βμολοχ υπςαχμεξιρ οβμαστψΰ ιμι ολξον, ναλςολοναξδα χοϊχςαύαετ ϊξαώεξιε ποδμιξξοηο σταςϋεηο δοστυπξοηο αδςεσα χ ρώεκλυ 50 ι χ R0. ξαπςινες, πςι ισπομψϊοχαξιι ναλςολοναξδω .SETTOP νοξι- τος οτοβςαφαετ πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ, ξαώιξαρ σο σμεδυΰύεκ 4 λσμοχξοκ ηςαξιγω χωϋε χεςθξεκ χιςτυαμψξοκ ηςα- ξιγω πςοηςαννω δο υλαϊαξξοηο αδςεσα χλμΰώιτεμψξο. οτοβςαφε- ξιε χωπομξρετσρ ταλ, ώτοβω υλαϊαξξωκ αδςεσ βωμ οτοβςαφεξ. νοφετ βωτψ οτοβςαφεξο δοπομξιτεμψξο δο 31 (δεσρτιώξοε) σμο- χα. εσμι υλαϊαξξωκ χ ναλςολοναξδε .SETTOP αδςεσ ξαθοδιτσρ ξιφε σταςϋεηο ισπομψϊυενοηο αδςεσα, .SETTOP χοϊχςαύαετ ϊξα- ώεξιε σμεδυΰύεηο σχοβοδξοηο αδςεσα νιξυσ 2 χ ρώεκλυ 50 ι χ R0. στατιώεσλοε ολξο ι οβμαστι χιςτυαμψξωθ οχεςμεεχ, σοϊ- δαξξωε πο λμΰώυ /V λονποξοχύιλα, ξε νοηυτ βωτψ υστςαξεξω, ισπομψϊυρ αςηυνεξτ χ .SETTOP. ξεοβθοδινο ϊανετιτψ, ώτο ξεμψϊρ σοϊδατψ δςυηυΰ οβμαστψ δμρ πομυώεξιρ εύε λαλοηο-μιβο δοπομξιτεμψξοηο πςοστςαξστχα. εσμι αςηυνεξτ, λοτοςωκ υλαϊαξ χ σμεδυΰύεκ ναλςολοναξδε .SETTOP, νεξψϋε, ώεν δεκστχιτεμψξωκ σμεδυΰύικ σχοβοδξωκ αδςεσ νιξυσ 2, νοξιτος χοϊχςαύαετ πςεφξικ σσα νιξυσ 2 χ - 457 - ρώεκλυ 50 ι χ R0 ι υστςαξρετ οβμαστψ ι ολξο, εσμι οξι βωμι (χνεστε σο χσενι θςαξρύινισρ δαξξωνι). ποϊφε σμεδυΰύεκ ναλ- ςολοναξδοκ .SETTOP νοφξο σοϊδατψ ξοχυΰ οβμαστψ. νοφξο ταλφε ςεηυμιςοχατψ ςαϊνες βυζεςα, χωπομξρρ πεςεοτοβςαφεξιε χξυτςι τοκ φε σανοκ οβμαστι. ώτοβω πομυώιτψ βομψϋυΰ οβμαστψ, χο-πεςχωθ, ξεοβθοδινο ισπομψϊοχατψ ναλςολοναξδυ .SETTOP σο ϊξαώεξιεν ξιφε τελυύεκ σταςϋεκ ηςαξιγω, λοτοςαρ υστςαξιτ οβμαστψ ι χσε δαξξωε, θςαξρύιεσρ ταν. ϊατεν σοϊδατψ ξοχυΰ οβμασψ δςυηοκ ναλςολο- ναξδοκ .SETTOP σ βομψϋιν ϊξαώεξιεν (χσε δαξξωε, θςαξρύιεσρ χ πεςχον βυζεςε, βυδυτ ποτεςρξω). ξεοβθοδινο ϊανετιτψ, ώτο δμρ ςασϋιςεξξοκ ναλςολοναξδω .SETTOP χσεηδα ισπομψϊυετσρ τομψλο οδξο ολξο. ώτοβω πομυώιτψ νεξψϋε πανρτι, ώεν πομυώεξο πςεδωδυύεκ ναλςολοναξδοκ .SETTOP, ξυφξο ισπομψϊοχατψ ξοχυΰ .SETTOP σ αςηυνεξτον χ χιδε αδςεσα, νεξψϋιν, ώεν πεςχωκ, ξο ςαχξων ιμι βομψϋιν, ώεν σσα. χ ςεϊυμψτατε ςαϊνες ολξα εύε ςαχεξ ςαϊνεςυ οβμαστι, ξο οτοβςαφαετσρ νεξψϋαρ ώαστψ ολξα. ότο δεμαετ ξεδοστυπξοκ μΰβυΰ ςασϋιςεξξυΰ πανρτψ δςυηιν πομψϊο- χατεμρν ιμι δςυηιν οβμαστρν. χιςτυαμψξωε ζοξοχωε ϊαδαξιρ --------------------------- ναλςολοναξδα .SETTOP δμρ XM-νοξιτοςα ξαιβομεε όζζελ- τιχξα πςι ισπομψϊοχαξιι χ χιςτυαμψξωθ ζοξοχωθ ι οπεςατιχξωθ ϊαδαξιρθ. ναλςολοναξδα ποϊχομρετ ϊαδαξιρν μεηλο ι βωστςο σοϊδαχατψ βομψϋιε βυζεςω χ ςασϋιςεξξοκ πανρτι, λοτοςωε πονοηυτ ιϊβαχιτψσρ οτ πεςεπομξεξιρ νμαδϋεκ πανρτι. ξα ςισ. 38 πολαϊαξο χιςτυαμψξοε ζοξοχοε ϊαδαξιε. - 458 - χιςτυαμψξοε ζοξοχοε ϊαδαξιε πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ --------------- 128λ ! στςαξιγα ! ! χχοδα/χωχοδα! !-------------! 124λ ! ! . . . . /-->!-------------! / ! πςοστςαξστχο! πςοστςαξστχο / ! πομυώεξο πο! χιςτυαμψξωθ αδςεσοχ/ ! .SETTOP ! .SETTOP -->--32λ----------/ /--->!-------------! #-2 ! ! ! ! ςαϊδεμω ! ! ! !/-->! οχεςμεεχ ! ! ! !! ! ςασϋιςεξξοκ ! ! πςοστςαξστχο! !! ! πανρτι ! !πςεδοσταχμεξο! !!/->!-------------! 28λ ! πο .SETTOP ! !!! !δςακχες σιστ.! ! ! !!! ! υστςοκστχα ! ! ! !!! !-------------! ! ! !!! ! RMON ! ! ! !!! !-------------! ! ! /!! !δςακχεςω δςυ-! ! ! / /! !ηιθ υστςοκστχ! ! ! / / ! !-------------! σσα ------>!/////////////!/ / ! ! USR ! !/////////////! / ! !-------------!---- χεςθξρρ -->!/////////////!/ / ! σχοβοδξοε ! σ χιςτυαμψξαρ! οβμαστψ ! / !πςοστςαξστχο.! τ ηςαξιγα ! οχεςμεεχ ! / ! εηο νοφετ ! α ! ςαϋιςεξξοκ ! / ! οτοβςαϊιτψ ! τ (4-λσμοχξαρ! πανρτι ! / ! πςοηςαννα ! ι ηςαξιγα)-->!/////////////!/ ->!-------------! ώ !/////////////! / !λοςξεχοκ σεη-! ε !/////////////! / !νεξτ ι οχες- ! σ χεςθξρρ -->!/////////////!---/ ! μει νμαδϋεκ ! λ ηςαξιγα σ !λοςξεχοκ σεη-! ! πανρτι ! α ο πςο- τ !νεξτ ι οχες- ! !- - - - - - -! ρ β ηςαννω α ! μει νμαδϋεκ ! ! στελ ! μ τ ! πανρτι ! ! ! α ι !- - - - - - -! !- - - - - - -! σ ώ ! στελ ! ! χιςτυαμψξωε ! τ ο ε ! ! ! χελτοςω ! ψ λ σ !- - - - - - -! /--->!---------500-!---- ξ λ ! χιςτυαμψξωε ! / ! χελτοςω ! ο ο ! χελτοςω ! / ! ! --ε---0------------/ ------------0-- ςισ. 38 χιςτυαμψξοε οπεςατιχξοε ϊαδαξιε ------------------------------- ναλςολοναξδα .SETTOP χωπομξρετσρ ποώτι ταλφε, λαλ δμρ - 459 - οπεςατιχξοηο, ταλ ι ζοξοχοηο ϊαδαξικ. δμρ χιςτυαμψξοηο οπε- ςατιχξοηο ϊαδαξιρ δοπομξιτεμψξοε πςοστςαξστχο δοστυπξο τομψλο πο λοναξδε FRUN/BUFFER:N ιμι ςασϋιςεξξοκ ναλςολοναξ- δε .SETTOP. εσμι ναλςολοναξδα .SETTOP ςασϋιςεξξαρ, λμΰώ /BUFFER ιηξοςιςυετσρ. ϊαδαξιε ξε νοφετ οδξοχςενεξξο ινετψ βυζεςω χ νμαδϋεκ ι ςασϋιςεξξοκ πανρτι. ξα ςισ. 39 πολαϊαξο χιςτυαμψξοε οπεςατιχξοε ιμι σιστενξοε ϊαδαξιε σ βομψϋιν βυζεςον χ ςασϋιςεξξοκ πανρτι. - 460 - χιςτυαμψξοε οπεςατιχξοε ιμι σιστενξοε ϊαδαξιε πςοστςαξστχο ζιϊιώεσλιθ αδςεσοχ --------------- 128λ ! στςαξιγα ! ! χχοδα/χωχοδα! !-------------! 124λ ! ! . . . . /-->!-------------! / ! πςοστςαξστχο! πςοστςαξστχο / ! πομυώεξο πο! χιςτυαμψξωθ αδςεσοχ/ ! .SETTOP ! .SETTOP -->--32λ----------/ /--->!-------------! #-2 ! ! ! ! ςαϊδεμω ! ! ! !/-->! οχεςμεεχ ! ! ! !! ! ςασϋιςεξξοκ ! ! πςοστςαξστχο! !! ! πανρτι ! !πςεδοσταχμεξο! !!/->!-------------! 28λ ! πο .SETTOP ! !!! !δςακχες σιστ.! ! ! !!! ! υστςοκστχα ! ! ! !!! !-------------! ! ! !!! ! RMON ! ! ! !!! !-------------! ! ! !!! !δςακχεςω δςυ-! ! ! /!! !ηιθ υστςοκστχ! ! ! / /!/>!-------------!---- ! ! / / !! !λοςξεχοκ σεη-! σ σσα ------>!/////////////!/ / !! !νεξτ ι οχες- ! τ !/////////////! / !! ! μει νμαδϋεκ ! α χεςθξρρ -->!/////////////!/ /! ! πανρτι ! τ χιςτυαμψξαρ! οβμαστψ ! / ! !-------------! ι ηςαξιγα ! οχεςμεεχ ! / ! ! στελ ! ώ ! ςαϋιςεξξοκ ! / ! ! ! ε 4-λσμοχξαρ ! πανρτι (/V) ! / ! !-------------! σ ηςαξιγα -->!/////////////!/ / ! χιςτυαμψξωε ! λ !/////////////! / ! χελτοςω ! α !/////////////! / />!-------------! ρ χεςθξρρ -->!/////////////!---/ ! ! σνεϋαξξαρ ! ηςαξιγα σ !λοςξεχοκ σεη-! ! ! οβμαστψ ! πςο- τ !νεξτ ι οχες- ! ! !-------------! ηςαννω α ! μει νμαδϋεκ ! ! ! USR ! τ ! πανρτι (/ο) ! ! !-------------! ο ι !-------------! / ! σχοβοδξοε ! β ώ ! στελ ! / ! πςοστςαξστχο! μ ο ε ! ! / ! ! α λ σ !-------------! / !---------500-! σ ξ λ ! χιςτυαμψξωε ! / ! χελτοςω ! τ ο ο ! χελτοςω ! / ! ! ψ --ε---0------------/ ------------0----- ςισ. 39 - 461 - 9.4.4.7. χοϊνοφξοστι .SETTOP ςισ. 40 ι 41, α ταλφε ταβμ. 15 ι 16 σοχνεστξο λςατλο ιϊμαηαΰτ ςεϊυμψτατω χσεθ χοϊνοφξωθ δεκστχικ ναλςολοναξδω .SETTOP. ξα ςισ. 40 ϊαδαξιε "α" - ότο ζοξοχοε ϊαδαξιε; εηο σμεδυΰύικ σχοβοδξωκ αδςεσ (σσα) ξαθοδιτσρ ξιφε SYSLOW ι βαϊω USR. ϊαδαξιε "χ" - ταλφε ζοξοχοε; εηο σμεδυΰύικ σχο- βοδξωκ αδςεσ χωϋε SYSLOW. ϊξαώεξιρ χ λςυημωθ σλοβλαθ πςεδσ- ταχμρΰτ σπεγιζιώεσλικ ςρδ αςηυνεξτοχ ναλςολοναξδω .SETTOP. ότι φε οβοϊξαώεξιρ ισπομψϊοχαξω χ ταβμ. 15 ι 16 ι ξα ςισ. 41. ςασπςεδεμεξιε πανρτι πςι χωπομξεξιι ναλςολοναξδω .SETTOP χ ζοξοχον ϊαδαξιι ϊαδαξιε "α" ϊαδαξιε "B" -------32λ----------- -----------32λ------- ! στςαξιγα χ/χ ! ! στςαξιγα χ/χ ! !--------------! !--------------! ! RMON, USR, ! ! RMON, USR, ! (4) ! οπεςατιχξοε ! ! οπεςατιχξοε ! (4) ! ϊαδαξιε, ! ! ϊαδαξιε, ! ! ! σσα --->!- - - - - - - !----- ! δςακχεςω, !(4-λσμοχξαρ ! δςακχεςω, ! ! σιστενξωε ! ηςαξιγα) ! σιστενξωε ! (3) ! ϊαδαξιρ ! ! ϊαδαξιρ ! -----!--------------!<--SYSLOW-->!--------------!----- (3) ! ! ! ! ! ! ! ! -----!- - - - - - - !<--- σσα ! ! (2) (2) ! !(4-λσμοχξαρ ! ! ! ! ηςαξιγα) ! ! -----!--------------!<--\ /-->!--------------!----- ! λοςξεχοκ ! \ / ! λοςξεχοκ ! ! σεηνεξτ ! χεςθξρρ ! σεηνεξτ ! (1) ! ι οχεςμει ! ηςαξιγα ! ι οχεςμει ! (1) ! νμαδϋεκ ! πςοηςαννω ! νμαδϋεκ ! ! πανρτι ! ! πανρτι ! --------------------- --------------------- πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ ςισ. 40 - 462 - ταβμιγα 15 ςασπςεδεμεξιε πανρτι πςι χωπομξεξιι ναλςολοναξδω .SETTOP χ ζοξοχον ϊαδαξιι ---------------------------------------------------------- αςηυνεξτ ! χιςτυαμψξοε ! πςιχιμεηιςοχαξξοε ναλςο- ! ϊαδαξιε ! ϊαδαξιε λοναξδω !------------------------------------------------ .SETTOP ! ναλςολοναξδα .SETTOP !------------------------------------------------ ! οβωώξαρ !ςασϋιςεξξαρ! οβωώξαρ !ςασϋιςεξξαρ ---------------------------------------------------------- χεςθξρρ ηςαξιγα δμρ ϊαδαξιρ "α" ποσμε ναλςολοναξδω .SETTOP (1) ! (1) ! σσα-2 ! (1) ! σσα-2 (2) ! (2) ! σσα-2 ! (2) ! σσα-2 (3) ! (3) !οτοβςαϊιτσρ! (3) ! (3) ! ! ξα (3) * ! ! (4) ! SYSLOW-2 !οτοβςαϊιτσρ! SYSLOW-2 ! SYSLOW-2 ! ! ξα (4) * ! ! #0 ! 0 ! σσα-2 ! 0 ! σσα-2 #-2 ! SYSLOW-2 !οτοβςαϊιτσρ! SYSLOW-2 ! SYSLOW-2 ! ! ξα 32λ * ! ! χεςθξρρ ηςαξιγα δμρ ϊαδαξιρ "B" ποσμε ναλςολοναξδω .SETTOP (1) ! (1) ! σσα-2 ! (1) ! σσα-2 (2) ! (2) ! σσα-2 ! (2) ! σσα-2 (3) ! SYSLOW-2 ! σσα-2 ! SYSLOW-2 ! σσα-2 (4) ! SYSLOW-2 !οτοβςαϊιτσρ! SYSLOW-2 ! σσα-2 ! ! ξα (4) * ! ! #0 ! 0 ! σσα-2 ! 0 ! σσα-2 #-2 ! SYSLOW-2 !οτοβςαϊιτσρ! SYSLOW-2 ! σσα-2 ! ! ξα 32λ * ! ! * - εσμι δοστυπξα; εσμι ξετ, το πςεδοσταχμρετσρ λαλ νοφξο βομψϋαρ οβμαστψ - 463 - ςασπςεδεμεξιε πανρτι πςι χωπομξεξιι ναλςολοναξδω .SETTOP χ οπεςατιχξον ϊαδαξιι ----------------------- ! ςασϋιςεξξαρ !<----- σσα ! πανρτψ ! (λςατξωκ 4λ) !---------------------! ----!---------------------! ! στςαξιγα ! (2) ! χχοδα/χωχοδα ! !---------------------! ! RMON ! ----!---------------------!<---- BUFF !πςοστςαξστχο πομυώεξο! (1) ! πο .FRUN/BUFFER ! !---------------------!<---- OHIGN ! οπεςατιχξοε ϊαδαξιε ! ----!---------------------!<---- χιςτυαμψξωκ 0 ! USR, δςακχεςω ! !---------------------!<---- SYSLOW ! οβμαστψ ζοξοχοηο ! ! ϊαδαξιρ ! !---------------------! ! χελτοςω ι οβμαστψ ! ! SYSCOM ! ----------------------- ςισ. 41 ταβμιγα 16 χεςθξρρ ηςαξιγα οπεςατιχξοηο ϊαδαξιρ ποσμε χωπομξεξιρ ναλςολοναξδω .SETTOP ---------------------------------------------------------- αςηυνεξτ ! ναλςολοναξδα .SETTOP χ χιςτυαμψξον ϊαδαξιι ναλςολοναξδω !-------------------------------------------- .SETTOP ! οβωώξαρ ! ςασϋιςεξξαρ ---------------------------------------------------------- (1) ! (1) ! σσA-2 (2) ! βομψϋε OHIGH ιμι BUFF ! σσA-2 #0 ! 0 ! σσA-2 #-2 ! βομψϋε OHIGH ιμι BUFF ! οτοβςαϊιτσρ ξα 32λ 9.4.5. πμαξιςοχαξιε ςασϋιςεξξοκ πανρτι πςι πμαξιςοχαξιι πςινεξεξιρ ςασϋιςεξξοκ πανρτι σμεδυετ ςεϋιτψ, ξεοβθοδινο μι πομυαχτονατιώεσλοε ισπομψϊοχαξιε ςασ- ϋιςεξξοκ πανρτι. εσμι τςεβυετσρ τομψλο ςασϋιςεξξαρ ναλςολο- ναξδα .SETTOP, το ξαπισαξιε πςοηςαννω ξε χωϊοχετ τςυδξοσ- τεκ. εσμι πςοηςαννυ νοφξο ςαϊβιτψ ξα οχεςμεκξωε σεηνεξτω, το δμρ ςεϋεξιρ ότοκ ϊαδαώι σμεδυετ ισπομψϊοχατψ λμΰώ /V λονποξοχύιλα, λοτοςωκ σοϊδαετ οχεςμει χ ςασϋιςεξξοκ πανρτι. - 464 - εσμι φε πομψϊοχατεμψ ςεϋιμ σαν υπςαχμρτψ οτοβςαφεξιεν χ πςοηςαννε, ξαπισαξξοκ ξα ναλςοασσενβμεςε, το χξαώαμε ξεοβ- θοδινο σδεματψ διαηςαννυ ςασπςεδεμεξιρ σιστενξωθ λονποξεξ- τοχ, δςακχεςοχ ι δςυηιθ ϊαδαξικ. εσμι ϊαδαξιΰ ξε τςεβυετσρ δοστυπ λ νοξιτοςυ ιμι στςαξιγε χχοδα/χωχοδα, σμεδυετ σδε- ματψ εηο χιςτυαμψξων. πςι πμαξιςοχαξιι πςοηςαννω ξυφξο ϊαςαξεε οπςεδεμιτψ τςεβυενοε ώισμο ολοξ ι οβμαστεκ. χ σμε- δυΰύεν ποδςαϊδεμε δαξα δεταμψξαρ ιξζοςναγιρ ο ναλςολοναξ- δαθ, λοτοςωε πςοηςαννα νοφετ ισπομψϊοχατψ δμρ ςαβοτω σ ςασ- ϋιςεξξοκ πανρτψΰ, α ταλφε οβ οηςαξιώεξιρθ πςι ςαβοτε σ ξεκ. 9.5. οβϊος ναλςολοναξδ ςασϋιςεξξοκ πανρτι εσμι πςοηςαννιστ ςαϊοβςαμσρ χ οβύιθ πςογεδυςαθ δμρ δοστυπα χ ςασϋιςεξξυΰ πανρτψ, ι χ σςεδστχαθ, λοτοςωνι σξαβ- φεξα σιστενα ςαζοσ, το βομψϋιθ τςυδξοστεκ πςι ισπομψϊοχαξιι ναλςολοναξδ χ πςοηςανναθ, ξαπισαξξωθ ξα ναλςοασσενβμεςε, ξε χοϊξιλξετ. εσμι πςοηςαννα σανα υπςαχμρετ ςασϋιςεξξοκ πανρτψΰ, α ξε ισπομψϊυετ πομυαχτονατιώεσλιε νετοδω, οπισαξ- ξωε χωϋε, πομψϊοχατεμψ δομφεξ σξαώαμα υσταξοχιτψ βμολι οπι- σαξιρ ολξα ι οβμαστι. δαμεε, οξ δομφεξ υλαϊατψ ναλςολοναξ- δανι λομιώεστχο ζιϊιώεσλοκ πανρτι ι οπισατψ χιςτυαμψξωε αδςεσα, λοτοςωε πμαξιςυετ ισπομψϊοχατψ. ότο τςεβυετσρ δμρ σοϊδαξιρ οβμαστεκ ι ολοξ. ποτον σχρϊατψ χιςτυαμψξωε αδςεσα σ ζιϊιώεσλινι ρώεκλανι, οτοβςαϊιχ ολξα ξα οβμαστι. ϊατεν πομψϊοχατεμψ νοφετ πεςεοτοβςαϊιτψ ολξο ξα δςυηυΰ οβμαστψ ιμι ώαστψ οβμαστι. οξ ταλφε νοφετ υστςαξιτψ ολξο ιμι οβμαστψ. χ μΰβον σμυώαε, οδξαφδω υσταξοχιχ πεςχοξαώαμψξωε στςυλτυςω δαξξωθ, οξ νοφετ ναξιπυμιςοχατψ οτοβςαφεξιεν ολοξ ξα οβμαστι, ώτοβω πςισποσοβιτψ ιθ λ σχοιν τςεβοχαξιρν. χ ταβμ. 17 οπισαξω δεκστχιρ πςοηςαννω δμρ ισπομψϊοχα- ξιρ ςασϋιςεξξοκ πανρτι. χ ξεκ ταλφε δαετσρ σπισολ σοοτ- χετστχυΰύιθ πςογεδυς, λοτοςων ξεοβθοδινο σμεδοχατψ χ πςοη- ςανναθ. - 465 - ταβμιγα 17 ποςρδολ πςινεξεξιρ ναλςολοναξδ δμρ ςαβοτω σ ςασϋιςεξξοκ πανρτψΰ ---------------------------------------------------------- δεκστχιε ! ναλςολοναξδα ---------------------------------------------------------- οπςεδεμεξιε σνεύεξικ ! .RDBDF ι σινχομοχ δμρ βμολα ! ιμι .RDBBK οπισαξιρ οβμαστι ! ! υσταξοχλα βμολα οπισαξιρ! .RDBBK οβμαστι ι υλαϊαξιε εε ! ςαϊνεςα ! ! σοϊδαξιε οβμαστι ! .CRRG ! πςοχεςλα σοστορξιρ ξοχοκ! ποσμε σοϊδαξιρ οβμαστι ναλςο- οβμαστι ! λοναξδοκ .CRRG ισσμεδοχατψ σο- ! δεςφινοε βμολα οπισαξιρ οβμαστι ! (πςοχεςιτψ βιτω χ σμοχε σοστορ- ! ξιρ οβμαστι) ! οπςεδεμεξιε σνεύεξικ ι ! .WDBDF σινχομοχ δμρ βμολα οπι- ! ιμι .WDBBK σαξιρ ολξα ! ! υσταξοχλα βμολα οπισαξιρ! .WDBBK ολξα ι οπισαξιε ολξα ! ! σοϊδαξιε ολξα ! .CRAW ! πςοχεςλα σοστορξιρ ! ποσμε σοϊδαξιρ ολξα ναλςολοναξ- ξοχοηο ολξα ! δοκ .CRAW ισσμεδοχατψ σοδεςφινοε ! βμολα οπισαξιρ ολξα (πςοχεςιτψ ! βιτω χ σμοχε σοστορξιρ ολξα) ! σχρϊψ ολξα σ ξυφξοκ οβ- ! ϊαξεστι ιδεξτιζιλατος οβμαστι ιϊ μαστψΰ δμρ ποδηοτοχλι ! R.GID βμολα οπισαξιρ οβμαστι χ λ οτοβςαφεξιΰ ολξα ! W.NRID βμολα οπισαξιρ ολξα ! οτοβςαφεξιε ολξα ξα οβ- ! .MAP μαστψ (ρχξο) ! ! οτοβςαφεξιε ολξα ξα οβ- ! υσταξοχιτψ WS.MAP βμολα οπισα- μαστψ (ξερχξο) ! ξιρ ολξα ι δμρ σοϊδαξιρ ολξα ! ϊαηςυϊιτψ W.NRID πεςεδ ισπομψϊο- ! χαξιεν ναλςολοναξδω .CRAW. ότα ! οπεςαγιρ σοϊδαστ ολξο ι ! οτοβςαϊιτ εηο ξα οβμαστψ ! πομυώεξιε τελυύεηο σοσ- ! .GMCX τορξιρ οτοβςαφεξιρ ολξα ! ! οτνεξα οτοβςαφεξιρ ολξα ! .UNMAP (ρχξο) ! - 466 - πςοδομφεξιε ταβμ. 17 ---------------------------------------------------------- δεκστχιε ! ναλςολοναξδα ---------------------------------------------------------- οτνεξα οτοβςαφεξιρ ολξα ! ισπομψϊοχατψ ναλςολοναξδυ .MAP (ξερχξο) ! δμρ οτοβςαφεξιρ ολξα χ δςυηοε ! νεστο. νοφξο ταλφε οτνεξιτψ ! οτοβςαφεξιε ολξα, υστςαξιχ ! οβμαστψ, ξα λοτοςυΰ οξο οτοβςα- ! φεξο, ιμι υστςαξιτψ σανο ολξο ! υστςαξεξιε ολξα ! ισπομψϊοχατψ ναλςολοναξδυ .ELAW ! υστςαξεξιε οβμαστι ! ισπομψϊοχατψ ναλςολοναξδυ .ELRG 9.6. στςυλτυςω δαξξωθ πςοηςαννα, ςαβοταΰύαρ σ ςασϋιςεξξοκ πανρτψΰ, σχρϊω- χαετσρ σ νοξιτοςον σ πονούψΰ σπεγιαμψξωθ στςυλτυς δαξξωθ. δμρ λαφδοκ οβμαστι πςοηςαννα σοδεςφιτ οδιξ βμολ οπισαξιρ οβμαστι, λοτοςωκ οπισωχαετ ςαϊνες οβμαστι ςασϋιςεξξοκ πανρ- τι. νοξιτος ταλφε οβσμυφιχαετ ξαβος χξυτςεξξιθ στςυλτυς δαξξωθ. βμολ υπςαχμεξιρ οβμαστψΰ, ςαϊνεύεξξωκ χ σνεϋαξξοκ οβμαστι ϊαδαξιρ, οπισωχαετ οβμαστψ. νοξιτος νοφετ οβσμυφι- χατψ δο ώετωςεθ βμολοχ υπςαχμεξιρ οβμαστψΰ λαφδοηο ϊαδαξιρ. δμρ λαφδοηο ολξα πςοηςαννα ισπομψϊυετ οδιξ βμολ οπισαξιρ ολξα, ώτοβω οπισατψ χιςτυαμψξωε αδςεσα, λοτοςωε χθοδρτ χ ότο ολξο. βμολ υπςαχμεξιρ ολξον, ταλφε ςαϊνεύεξξωκ χ σνε- ϋαξξοκ οβμαστι ϊαδαξιρ, ρχμρετσρ χξυτςεξξιν δμρ νοξιτοςα οπισατεμεν ολξα. νοξιτος νοφετ οβσμυφιχατψ δο χοσψνι βμολοχ υπςαχμεξιρ ολξον. όμενεξτ οώεςεδι χχοδα/χωχοδα σοδεςφιτ δοπομξιτεμψξυΰ ιξζοςναγιΰ χ σιστενε σ ςασϋιςεξξοκ πανρτψΰ. ξαλοξεγ, νοξιτος ςαϊνεύαετ οβμαστι χ ςασϋιςεξξοκ πανρτι, οσξοχωχαρσψ ξα χξυτςεξξεν σπισλε σχοβοδξοκ πανρτι. ξιφε οπισαξω ότι στςυλτυςω δαξξωθ ι πολαϊαξο λαλ σοϊ- δαχατψ ιθ. 9.6.1. βμολ οπισαξιρ οβμαστι βμολ οπισαξιρ οβμαστι - ότο τςεθσμοχξαρ οβμαστψ χ πςοηςαννε πομψϊοχατεμρ, λοτοςαρ σοδεςφιτ ιξζοςναγιΰ οβ οβμαστι, οπςεδεμρενοκ χ ςασϋιςεξξοκ πανρτι. νοξιτος ισπομψ- ϊυετ βμολ οπισαξιρ οβμαστι δμρ σχρϊι σ ϊαδαξιεν, λοηδα χωπομξρετσρ ναλςολοναξδα .CRRG ιμι .ELRG. πςοηςαννιστ δομ- φεξ υσταξοχιτψ βμολ οπισαξιρ οβμαστι χ σχοεκ πςοηςαννε ι οπςεδεμιτψ σινχομψξωε σνεύεξιρ πεςεδ τεν, λαλ σοϊδαχατψ οβμαστψ χ ςασϋιςεξξοκ πανρτι. ϊατεν οξ δομφεξ πονεστιτψ ςαϊνες οβμαστι χ βμολ οπισαξιρ οβμαστι. ποσμε σοϊδαξιρ οβμαστι νοξιτος χοϊχςαύαετ χ βμολ οπισαξιρ οβμαστι εε ιδεξ- - 467 - τιζιλατος ι δςυηυΰ ιξζοςναγιΰ δμρ πομψϊοχατεμρ. λαφδωκ ςαϊ, λοηδα πςοηςαννε τςεβυετσρ σοσματψσρ λ ότοκ οβμαστι, οξα ισπομψϊυετ εε ιδεξτιζιλατος. τ.λ. στατιώεσλυΰ οβμαστψ σοϊ- δαετ νοξιτος, το πομψϊοχατεμψ νοφετ οβςαύατψσρ λ ξεκ ώεςεϊ ιδεξτιζιλατος 0. ςισ. 42 ι ταβμ. 18 πολαϊωχαΰτ στςυλτυςυ βμολα οπισαξιρ οβμαστι. βμολ οπισαξιρ οβμαστι -------------------- ! R.GID ! -------------------- ! R.GSIZ ! -------------------- ! R.GSTS ! -------------------- ςισ. 42 ταβμιγα 18 βμολ οπισαξιρ οβμαστι ---------------------------------------------------------- σνεύεξιε! σινχομ !νοδιζιλατος! σοδεςφαξιε (βακτω)! ! ! ---------------------------------------------------------- 0 ! R.GID !πςοηςαννα ! υξιλαμψξωκ ιδεξτιζιλατος ! !νοξιτοςα ! οβμαστι. οξ ισπομψϊυετσρ ! !.CRRG ! δμρ σσωμολ λ ότοκ οβμαστι. ! ! ! ιδεξτιζιλατος οβμαστι ρχμρ- ! ! ! ετσρ υλαϊατεμεν χξυτςι σνε- ! ! ! ϋαξξοκ οβμαστι ϊαδαξιρ ξα ! ! ! βμολ υπςαχμεξιρ οβμαστψΰ. ! ! ! 2 ! R.GSIZ !ναλςολοναξ-! ςαϊνες τςεβυενοκ οβμαστι χ ! !δα .RDBBK ! 32-σμοχξωθ (δεσρτιώξοε) ! !ιμι πςοη- ! βμολαθ ! !ςαννα πομψ-! ! !ϊοχατεμρ ! ! ! ! 4 ! R.GSTS !πςοηςαννα ! σμοχο σοστορξιρ οβμαστι ! !νοξιτοςα ! ! !.CRRG ! 9.6.1.1. σμοχο σοστορξιρ οβμαστι σμοχο σοστορξιρ οβμαστι σοδεςφιτ ιξζοςναγιΰ ο εε σοσ- τορξιι. χ ταβμ. 19 πςιχεδεξω βιτω σμοχα σοστορξιρ οβμαστι ι ιθ ϊξαώεξιρ. βιτω οτ 0 δο 12 ϊαςεϊεςχιςοχαξω. - 468 - ταβμιγα 19 σμοχο σοστορξιρ οβμαστι ---------------------------------------------------------- βιτ ! ινρ ! χοσψνεςιώξαρ ! ϊξαώεξιε πςι υσταξοχμεξξον ! ! νασλα ! βιτε ---------------------------------------------------------- 15 ! RS.CRR ! 100000 ! νοξιτος υσπεϋξο σοϊδαμ ! ! ! οβμαστψ. πςοηςαννα .CRRG ! ! ! υσταξαχμιχαετ ότοτ βιτ; ! ! ! πςοηςαννα .ELRG οώιύαετ εηο ! ! ! 14 ! RS.UNM ! 40000 ! χ ςεϊυμψτατε υστςαξεξιρ ! ! ! ότοκ οβμαστι οτνεξεξω οδξο ! ! ! ιμι ξεσλομψλο ολοξ. πςοη- ! ! ! ςαννα .ELRG υσταξαχμιχαετ ! ! ! ότοτ βιτ πςι ξεοβθοδινοστι ! ! ! 13 ! RS.NAL ! 20000 ! ϊαςεϊεςχιςοχαξ 9.6.1.2. ναλςολοναξδα .RDBDF ναλςολοναξδα .RDBDF ισπομψϊυετσρ δμρ οπςεδεμεξιρ σιν- χομοχ χ βμολε οπισαξιρ οβμαστι. οξα οπςεδεμρετ σινχομψξωε ινεξα σνεύεξικ βμολα οπισαξιρ οβμαστι ι ινεξα βιτοχ δμρ σμοχα σοστορξιρ οβμαστι. λςονε τοηο, ότα ναλςολοναξδα οπςε- δεμρετ δμιξυ βμολα οπισαξιρ οβμαστι, υσταξαχμιχαρ σμεδυΰύικ σινχομ: R.GLGH = 6 ότα ναλςολοναξδα ξε ςεϊεςχιςυετ νεστο δμρ βμολα οπισα- ξιρ οβμαστι. ζοςνατ ναλςολοναξδω .RDBDF σμεδυΰύικ: .RDBDF ναλςοςασϋιςεξιε ναλςολοναξδω .RDBDF σμεδυΰύεε: R.GID = 0 R.GSIZ = 2 R.GSTS = 4 R.GLGH = 6 RS.CRR = 100000 RS.UNM = 40000 RS.NAL = 20000 9.6.1.3. ναλςολοναξδα .RDBBK ναλςολοναξδα .RDBBK ποδοβξα ναλςολοναξδε .RDBDF. οξα οπςεδεμρετ σινχομω δμρ βμολα οπισαξιρ οβμαστι, α ταλφε ςεϊεςχιςυετ δμρ ξεηο νεστο (χ οτμιώιε οτ .RDBDF). πςοηςαν- - 469 - νιστ υλαϊωχαετ χ λαώεστχε αςηυνεξτα ότοκ ναλςολοναξδω ςαϊ- νες τςεβυενοκ οβμαστι. εσμι ισπομψϊυετσρ ναλςολοναξδα .RDBBK, το ξε τςεβυετσρ ισπομψϊοχαξιε .RDBDF, τ.λ. .RDBBK αχτονατιώεσλι χωϊωχαετ .RDBDF. ζοςνατ ναλςολοναξδω .RDBBK σμεδυΰύικ: .RDBBK RGSIZ ηδε RGSIZ - ςαϊνες διξανιώεσλοκ οβμαστι χ 32-σμοχξωθ (δεσρτιώ- ξοε) βμολαθ. χ σμεδυΰύεν πςινεςε ισπομψϊυετσρ ναλςολοναξδα .RDBBK δμρ σοϊδαξιρ βμολα οπισαξιρ οβμαστι δμρ οβμαστι ςαϊνεςον 4 λσμοχ (4 λσμοχ όλχιχαμεξτξο 200 32-σμοχξων βμολαν). ϊατεν σοϊδαετσρ οβμαστψ. RGADR: .RDBBK 200 ;οπςεδεμιτψ ταβμιγυ .CRRG #ARGBLK,#RGADR ;σοϊδατψ οβμαστψ 9.6.2. βμολ υπςαχμεξιρ οβμαστψΰ βμολ υπςαχμεξιρ οβμαστψΰ - ότο τςεθσμοχξαρ οβμαστψ χ σνεϋαξξοκ οβμαστι ϊαδαξιρ, λοτοςυΰ οβσμυφιχαετ νοξιτος. χιςτυαμψξοε ϊαδαξιε δμρ στατιώεσλοκ οβμαστι χωδεμρετ οδιξ βμολ υπςαχμεξιρ οβμαστψΰ. δμρ πςιχιμεηιςοχαξξοηο ϊαδαξιρ οδιξ βμολ υπςαχμεξιρ οβμαστψΰ ϊαςεϊεςχιςοχαξ νοξιτοςον ι ξε νοφετ ισπομψϊοχατψσρ πςοηςαννοκ. ταλιν οβςαϊον, χσε ϊαδαξιρ νοηυτ ινετψ δο τςεθ διξανιώεσλιθ οβμαστεκ, σοστορξιε λοτο- ςωθ υσταξαχμιχαετσρ νοξιτοςον χ βμολαθ υπςαχμεξιρ οβμαστψΰ. ξα ςισ. 43 ι χ ταβμ. 20 πολαϊαξα στςυλτυςα βμολα υπςαχμεξιρ οβμαστψΰ. ναλςολοναξδα .ELRG οώιύαετ χσε εηο πομρ. βμολ υπςαχμεξιρ οβμαστψΰ ------------------- ! R.BADD ! ------------------- ! R.BSIZ ! ------------------- ! R.BNWD ! R.BSTA ! ------------------- ςισ. 43 - 470 - ταβμιγα 20 βμολ υπςαχμεξιρ οβμαστψΰ ---------------------------------------------------------- σνεύεξιε! σινχομ !νοδιζιλατος! σοδεςφαξιε (βακτω)! ! ! ---------------------------------------------------------- 0 ! R.BADD !πςοηςαννα ! ξαώαμψξωκ αδςεσ οβμαστι, ! !νοξιτοςα ! χωςαφεξξωκ χ 32-σμοχξωθ ! !.CRRG ! βμολαθ ! ! ! 2 ! R.BSIZ !πςοηςαννα ! ςαϊνες οβμαστι χ 32-σμοχξωθ ! !νοξιτοςα ! βμολαθ. εσμι ότο σμοχο ςαχ- ! !.CRRG ! ξο 0, το βμολ υπςαχμεξιρ ! ! ! οβμαστψΰ σχοβοδεξ ! ! ! 4 ! R.BSTA !νοξιτος χο ! ότοτ βακτ χσεηδα ςαχεξ 0, ! !χςενρ ςαβο-! εσμι οβμαστψ σοϊδαξα ξε ! !τω; πςοη- ! ςασϋιςεξξοκ ναλςOKοναξδοκ ! ! ! .SETTOP. νοξιτος υσταξαχ- ! ! ! μιχαετ βιτ 1, ξαϊωχαενωκ ! ! ! R.STOP, ποσμε σοϊδαξιρ ! ! ! οβμαστι 9.6.3. βμολ οπισαξιρ ολξα βμολ οπισαξιρ ολξα - ότο σενισμοχξαρ οβμαστψ χ πςοη- ςαννε πομψϊοχατεμρ, λοτοςαρ σοδεςφιτ ιξζοςναγιΰ ο χιςτυαμψ- ξον αδςεσξον ολξε. λοηδα χωπομξρΰτσρ ναλςολοναξδω .CRAW, .ELAW, .GMCX ιμι .MAP, νοξιτος ισπομψϊυετ βμολ οπισαξιρ ολξα δμρ σχρϊι σ πςοηςαννοκ. πεςεδ τεν, λαλ σοϊδαχατψ χις- τυαμψξοε αδςεσξοε ολξο, ξεοβθοδινο υσταξοχιτψ βμολ οπισαξιρ ολξα χ πςοηςαννε ι οπςεδεμιτψ δμρ ξεηο σινχομψξωε ινεξα σνεύεξικ. ϊατεν ςαϊνεστιτψ οπισαξιε τςεβυενοηο ολξα χ βμολε οπισαξιρ ολξα. ποσμε σοϊδαξιρ ολξα νοξιτος χοϊχςαύαετ εηο ιδεξτιζιλατος ι δςυηυΰ ιξζοςναγιΰ ο σοστορξιι ζακμα ώεςεϊ βμολ οπισαξιρ ολξα. ξα ςισ. 44 ι χ ταβμ. 21 πολαϊαξα στςυλ- τυςα βμολα οπισαξιρ ολξα. - 471 - βμολ οπισαξιρ ολξα ----------------------- ! W.NAPR ! W.NID ! ----------------------- ! W.NBAS ! ----------------------- ! W.NSIZ ! ----------------------- ! W.NRID ! ----------------------- ! W.NOFF ! ----------------------- ! W.NLEN ! ----------------------- ! W.NSTS ! ----------------------- ςισ. 44 - 472 - ταβμιγα 21 βμολ οπισαξιρ ολξα ---------------------------------------------------------- σνεύεξιε! σινχομ !νοδιζιλατος ! σοδεςφαξιε (βακτω)! ! ! ---------------------------------------------------------- 0 ! W.NID !πςοηςαννα ! υξιλαμψξωκ ιδεξτιζιλατος ! !νοξιτοςα ! ολξα. λ στατιώεσλονυ ολξυ ! !.CRAW ! νοφξο σσωματψσρ, ισπομψϊυρ ! ! ! ιδεξτιζιλατος 0 ! ! ! 1 ! W.NAPR !ναλςολοναξδα! ξονες ςεηιστςα αλτιχξωθ ! !.WDBBK; ! στςαξιγ, σοδεςφαύικ βαϊο- ! !πςοηςαννα ! χωκ αδςεσ ολξα. ξεοβθοδι- ! !νοξιτοςα ! νο πονξιτψ, ώτο ολξο δομφ- ! ! .GMCX ! ξο ξαώιξατψσρ ξα ηςαξιγε ! ! ! 4 λσμοχ. χ ταβμ. 22 δαξο ! ! ! σοοτχετστχιε νεφδυ ςεηιστ- ! ! ! ςανι αλτιχξωθ στςαξιγ ι ! ! ! χιςτυαμψξωνι αδςεσανι. δμρ ! ! ! πςιχιμεηιςοχαξξωθ ϊαδαξικ ! ! ! δεκστχιτεμψξω ϊξαώεξιρ χ ! ! ! πςεδεμαθ οτ 0 δο 7. δμρ ! ! ! χιςτυαμψξωθ ϊαδαξικ ξοχοε ! ! ! ολξο ξε δομφξο πεςελςωχατψ ! ! ! στατιώεσλοε ολξο. νοφξο ! ! ! ξακτι σανοε νμαδϋεε δεκστ- ! ! ! χιτεμψξοε ϊξαώεξιε δμρ ! ! ! W.NAPR, πςι πονούι ναλςο- ! ! ! λοναξδω .GMCX δμρ στατι- ! ! ! ώεσλοηο ολξα, λοτοςαρ πςε- ! ! ! οβςαϊυετ σταςϋικ χιςτυαμψ- ! ! ! ξωκ αδςεσ χ ϊξαώεξιε ςασ, ! ! ! ι υχεμιώιτψ εηο ! ! ! 2 ! W.NBAS !πςοηςαννω ! βαϊοχωκ χιςτυαμψξωκ αδςεσ ! !νοξιτοςα ! ολξα. ότο ϊξαώεξιε δομφξο ! !.CRAW ι ! υλαϊωχατψ ταλοκ φε αδςεσ, ! !.GMCX ! λαλ ι W.NAPR, ώτο οβεσπε- ! ! ! ώιχαετ πςοχεςλυ. αδςεσ χω- ! ! ! ςαφεξ ξε χ 32-σμοχξωθ δε- ! ! ! σρτιώξωθ βμολαθ, α χ χοσψ- ! ! ! νεςιώξον χιδε ! ! ! 4 ! W.NSIZ !ναλςολοναξδα! ςαϊνες ολξα, χωςαφεξξωκ χ ! !.WDBBK; ! 32-σμοχξωθ βμολαθ ! !πςοηςαννα ! ! !νοξιτοςα ! ! !.GMCX ! ! ! ! 6 ! W.NRID !ναλςολοναξδα! υλαϊωχαετ οβμαστψ, ξα λο- ! !.WDBBK; ! τοςυΰ οτοβςαφαετσρ ολξο. ! !πςοηςαννα ! ναλςολοναξδα .GMCX χοϊ- ! !νοξιτοςα ! χςαύαετ 0, εσμι ολξο ξε ! !.GMCX ! οτοβςαφεξο, ιμι χοϊχςαύαετ ! ! ! ιδεξτιζιλατος οβμαστι, ξα ! ! ! λοτοςυΰ οξο οτοβςαφεξο. - 473 - πςοδομφεξιε ταβμ. 21 βμολ οπισαξιρ ολξα ---------------------------------------------------------- σνεύεξιε! σινχομ !νοδιζιλατος ! σοδεςφαξιε (βακτω)! ! ! ---------------------------------------------------------- ! ! ! ϊξαώεξιε ςαχξο 0 ι χ τον ! ! ! σμυώαε, εσμι ολξο οτοβςα- ! ! ! φεξο ξα στατιώεσλυΰ οβ- ! ! ! μαστψ ! ! ! 10 ! W.NOFF !ναλςολοναξδα! σνεύεξιε (χωςαφεξξοε χ 32- ! !.WDBBK; ! σμοχξωθ δεσρτιώξωθ βμολαθ) ! !πςοηςαννα ! χ οβμαστι, σ λοτοςοηο ξα- ! !νοξιτοςα ! ώιξαετσρ οτοβςαφεξιε ότοηο ! !.GMCX ! ολξα. εσμι ολξο ξε οτοβςα- ! ! ! φεξο, ναλςολοναξδα .GMCX ! ! ! οώιύαετ ότο σμοχο; ιξαώε ! ! ! σΰδα ϊαξοσιτσρ ϊξαώεξιε ! ! ! σνεύεξιρ ! ! ! 12 ! W.NLEN !ναλςολοναξδα! ςαϊνες οτοβςαφαενοηο ολξα ! !.WDBBK; ! χ 32-σμοχξωθ βμολαθ. εσμι ! !πςοηςαννω ! πςοηςαννιστ πονεστιμ σΰδα ! !νοξιτοςα ! 0 (ιμι ισπομψϊοχαξα ναλςο- ! !.MAP ι .GMCX! λοναξδα .CRAW σ υσταξοχ- ! ! ! μεξξων βιτον WS.MAP), ναλ- ! ! ! ςολοναξδα .MAP οτοβςαφαετ ! ! ! χσε ολξο ιμι ώαστψ εηο, ! ! ! λοτοςαρ νοφετ ςαϊνεστιτψσρ ! ! ! χ δαξξοκ οβμαστι. πςι υσ- ! ! ! πεϋξον οτοβςαφεξιι ναλςο- ! ! ! λοναξδα .MAP πονεύαετ ! ! ! δεκστχιτεμψξυΰ δμιξυ οτοβ- ! ! ! ςαφεξξοηο ολξα χ W.NLEN. ! ! ! εσμι πςοηςαννιστ ϊαξοσιτ ! ! ! σΰδα ϊξαώεξιε, οτμιώξοε οτ ! ! ! ξυμρ, ναλςολοναξδα .MAP ξε ! ! ! ιϊνεξρετ εηο. εσμι ολξο ξε ! ! ! οτοβςαφεξο, .GMCX οώιύαετ ! ! ! ότο σμοχο; ιξαώε σΰδα πο- ! ! ! νεύαετσρ δεκστχιτεμψξαρ ! ! ! δμιξα ! ! ! 14 ! W.NSTS !ναλςολοναξδα! σμοχο σοστορξιρ ολξα. εσμι ! !.WDBBK; ! ολξο ξε οτοβςαφεξο, ναλςο- ! !πςοηςαννω ! λοναξδα .GMCX οώιύαετ ότο ! !νοξιτοςα ! σμοχο; ιξαώε οξα υσταξαχ- ! !.CRAW, .ELAW! μιχαετ 1 χ WS.MAP ! !ι .GMCX ! - 474 - ταβμιγα 22 σοοτχετστχιε νεφδυ ςεηιστςανι αλτιχξωθ στςαξιγ ι χιςτυαμψξωνι αδςεσανι ------------------------------------------ ηςαξιγα χιςτυαμψξωθ ! ξονες ςεηιστςα αδςεσοχ ! αλτιχξωθ στςαξιγ ------------------------------------------ 0-17776 ! 0 20000-37776 ! 1 40000-57776 ! 2 60000-77776 ! 3 100000-117776 ! 4 120000-137776 ! 5 140000-157776 ! 6 160000-177776 ! 7 9.6.3.1. σμοχο σοστορξιρ ολξα σμοχο σοστορξιρ ολξα σμυφιτ δχυν γεμρν. χο-πεςχωθ, οξο ποϊχομρετ ναλςολοναξδε .CRAW σοϊδατψ ολξο ι οτοβςαϊιτψ εηο ϊα οδιξ ϋαη, εσμι πςοηςαννιστ ϊαξεσ ϊξαώεξιε 1 χ βιτ 8. χο- χτοςωθ, σμοχο σοστορξιρ ολξα ποϊχομρετ νοξιτοςυ πεςεδατψ πςοηςαννε ιξζοςναγιΰ ο σοστορξιι ολξα. χ ταβμ. 23 πολαϊαξω βιτω σμοχα σοστορξιρ ολξα ι ιθ ϊξαώεξιρ. βιτω οτ 0 δο 7 ι οτ 9 δο 12 ϊαςεϊεςχιςοχαξω. - 475 - ταβμιγα 23 σμοχο σοστορξιρ ολξα ---------------------------------------------------------- βιτ ! ινρ !χοσψνεςιώξωκ! ϊξαώεξιε πςι υσταξοχμεξξον ! ! χιδ ! βιτε ---------------------------------------------------------- 8 ! WS.MAP ! 400 ! ναλςολοναξδα .CRAW δομφξα ! ! ! οτοβςαϊιτψ ξοχοε ολξο ποσμε ! ! ! εηο σοϊδαξιρ. ότοτ βιτ υστα- ! ! ! ξαχμιχαετσρ χ βμολε οπισαξιρ ! ! ! ολξα υλαϊαξιεν εηο χ ναλςο- ! ! ! λοναξδε .WDBBK. δμρ υχεςεξ- ! ! ! ξοστι ξυφξο υσταξοχιτψ W.NRID ! ! ! πεςεδ ισπομψϊοχαξιεν ναλςο- ! ! ! λοναξδω .CRAW ! ! ! 13 ! WS.ELW ! 20000 ! χ ςεϊυμψτατε τελυύεκ οπεςαγιι ! ! ! νοξιτος υστςαξιμ οδξο ιμι ! ! ! ξεσλομψλο ολοξ. ναλςολοναξδω ! ! ! .CRAW ι .ELAW νοηυτ υσταξο- ! ! ! χιτψ ότοτ βιτ ! ! ! 14 ! WS.UNM ! 40000 ! χ ςεϊυμψτατε τελυύεκ οπεςαγιι ! ! ! νοξιτος οτνεξιμ οδξο ιμι ξεσ- ! ! ! λομψλο ολοξ. ναλςολοναξδω ! ! ! .CRAW ι .ELAW νοηυτ υσταξο- ! ! ! χιτψ ότοτ βιτ. ναλςολοναξδω ! ! ! .MAP ι .UNMAP υσταξαχμιχαΰτ ! ! ! ιμι οώιύαΰτ ότοτ βιτ (χ ϊαχι- ! ! ! σινοστι οτ τςεβοχαξικ) ! ! ! 15 ! WS.CRW ! 100000 ! νοξιτος σοϊδαμ ολξο υσπεϋξο. ! ! ! ναλςολοναξδα .CRAW υσταξαχ- ! ! ! μιχαετ ότοτ βιτ, ναλςολοναξδα ! ! ! .ELAW οώιύαετ εηο 9.6.3.2. σιστενξαρ ναλςολοναξδα .WDBDF ναλςολοναξδα .WDBDF ισπομψϊυετσρ δμρ οπςεδεμεξιρ σιν- χομοχ χ βμολε οπισαξιρ ολξα. οξα οπςεδεμρετ σινχομψξωε ινε- ξα σνεύεξικ δμρ βμολα οπισαξιρ ολξα ι ινεξα βιτοχ δμρ σμοχα σοστορξιρ ολξα. λςονε ότοηο, ναλςολοναξδα οπςεδεμρετ δμιξυ βμολα οπισαξιρ ολξα υσταξοχλοκ σμεδυΰύεηο σινχομα: W.NLGH = 16 ξεοβθοδινο ϊανετιτψ, ώτο ναλςολοναξδα .WDBDF ξε ςεϊες- χιςυετ νεστο δμρ βμολα οπισαξιρ ολξα. ζοςνατ ναλςολοναξδω .WDBDF σμεδυΰύικ: .WDBDF ναλςολοναξδα .WDBDF ςασϋιςρετσρ χ σμεδυΰύυΰ ποσμεδοχα- τεμψξοστψ: - 476 - W.NID = 0 W.NAPR = 1 W.NBAS = 2 W.NSIZ = 4 W.NRID = 6 W.NOFF = 10 W.NLEN = 12 W.NSTS = 14 W.NLGH = 16 WS.CRW = 100000 WS.UNM = 40000 WS.ELW = 20000 WS.MAP = 400 9.6.3.3. σιστενξαρ ναλςολοναξδα .WDBBK ναλςολοναξδα .WDBBK ποδοβξα .WDBDF, οξα οπςεδεμρετ σινχομω δμρ βμολα οπισαξιρ ολξα ι ςεϊεςχιςυετ νεστο δμρ ξεηο (χ οτμιώιε οτ .WDBDF). ναλςολοναξδα .WDBBK ποϊχομρετ υλαϊατψ δοστατοώξο ιξζοςναγιι οβ ολξε, ώτοβω σοϊδατψ εηο. νοφξο ισπομψϊοχατψ ξεοβρϊατεμψξωε αςηυνεξτω δμρ οβεσπεώεξιρ βμολα οπισαξιρ ολξα βομψϋιν λομιώεστχον ιξζοςναγιι. δοπομ- ξιτεμψξαρ ιξζοςναγιρ ποϊχομιτ σοϊδατψ ολξο ι οτοβςαϊιτψ εηο ξα οβμαστψ, ισπομψϊυρ σοοτχετστχυΰύυΰ ναλςολοναξδυ .CRAW. εσμι ισπομψϊυετσρ .WDBBK, το ξε τςεβυετσρ ισπομψϊοχατψ .WDBDF, τ.λ. .WDBBK αχτονατιώεσλι χωϊωχαετ .WDBDF. ζοςνατ .WDBBK σμεδυΰύικ: .WDBBK WNAPR,WNSIZ[,WNRID,WNOFF,WNLEN,WNSTS] ηδε WNAPR - ξονες ςεηιστςα αλτιχξωθ στςαξιγ (οτ 0 δο 7), λοτο- ςωκ σοδεςφιτ βαϊοχωκ αδςεσ ολξα. σμεδυετ πονξιτψ, ώτο ολξο δομφξο ξαώιξατψσρ ξα ηςαξιγε 4 λσμοχ; χ ταβμ. 22 δαξο σοοτχετστχιε νεφδυ ςεηιστςανι αλτιχ- ξωθ στςαξιγ ι χιςτυαμψξωνι αδςεσανι; WNSIZ - ςαϊνες ολξα χ 32-σμοχξωθ (δεσρτιώξοε) βμολαθ; WNRID - ιδεξτιζιλατος οβμαστι, ξα λοτοςυΰ οτοβςαφαετσρ ότο ολξο; ότο ξεοβρϊατεμψξωκ αςηυνεξτ; οβωώξο οξ ϊαπομξρετσρ χο χςενρ χωπομξεξιρ πςοηςαννω, α ξε χο χςενρ ασσενβμιςοχαξιρ; WNOFF - σνεύεξιε χ οβμαστι, σ λοτοςοηο ξαώιξαετσρ οτοβςα- φεξιε ότοηο ολξα, χωςαφεξξοε χ 32-σμοχξωθ (δεσρ- τιώξοε) βμολαθ; ότοτ αςηυνεξτ ξεοβρϊατεμψξωκ; οξ ξεοβθοδιν, εσμι τςεβυετσρ οτοβςαϊιτψ οπςεδεμρενοε ολξο; πο υνομώαξιΰ ότο ϊξαώεξιε ςαχξο ξυμΰ ι οϊξα- ώαετ, ώτο ολξο βυδετ οτοβςαφατψσρ σ ξαώαμα οβμασ- τι; WNLEN - ςαϊνες ώαστι ολξα, λοτοςυΰ ξυφξο οτοβςαϊιτψ, χ 32-σμοχξωθ (δεσρτιώξοε) βμολαθ (αςηυνεξτ ξεοβρϊα- τεμψξωκ); οξ ξεοβθοδιν, εσμι τςεβυετσρ οτοβςαϊιτψ - 477 - ολξο; πο υνομώαξιΰ ϊξαώεξιε ςαχξο ξυμΰ ι οϊξαώαετ, ώτο οτοβςαφατψσρ βυδετ λαλ νοφξο βομψϋαρ ώαστψ ολξα ιμι χσε ολξο; WNSTS - σμοχο σοστορξιρ ολξα (αςηυνεξτ ξεοβρϊατεμψξωκ); οξ ξεοβθοδιν, εσμι τςεβυετσρ οτοβςαϊιτψ υλαϊαξξοε ολξο, λοηδα βυδετ ισπομψϊοχατψσρ ναλςολοναξδα .CRAW; υσταξοχμεξξωκ βιτ 8, ξαϊωχαενωκ WS.MAP, ϊασταχμρετ ναλςολοναξδυ .CRAW χωπομξιτψ οπεςαγιΰ οτοβςαφεξιρ. χ πςιχεδεξξον πςινεςε ισπομψϊυετσρ ναλςολοναξδα .WDBBK δμρ σοϊδαξιρ βμολα οπισαξιρ ολξα. χο-πεςχωθ, χ πςινεςε οσυ- ύεστχμρετσρ πςεοβςαϊοχαξιε "λ" σμοχ χ βμολι πο 32 σμοχα λαφδωκ. ϊατεν οπςεδεμρετσρ βμολ οπισαξιρ ολξα, σοϊδαετσρ ολξο ι οτοβςαφαετσρ ξα οβμαστψ. ναλςολοναξδα υσταξαχμιχαετ βμολ οπισαξιρ ολξα δμρ ολξα, δμιξα λοτοςοηο 2 λσμοχ. ολξο ξαώιξαετσρ σ αδςεσα 120000, ποότονυ υπςαχμρτψ οτοβςαφεξιεν βυδετ πρτωκ ςεηιστς αλτιχξωθ στςαξιγ. ναλςολοναξδα .CRAW σοϊδαστ ότο ολξο ι οτοβςαϊιτ εηο ξα οβμαστψ ςασϋιςεξξοκ πανρτι. ολξο βυδετ οτοβςαφεξο ξα οβμαστψ, ξαώιξαρ σ 2 λσμοχ οτ ξαώαμα οβμαστι ι ναλςολοναξδα .CRAW οτοβςαϊιτ λαλ νοφξο βομψϋυΰ ώαστψ ολξα. ξεοβθοδινο ϊανετιτψ, ώτο πςοηςαννα δομφξα ϊαξεστι ιδεξτιζιλατος οβμαστι χ ότοτ βμολ, ώτοβω χωβςατψ πςαχιμψξυΰ οβμαστψ πεςεδ χωδαώεκ ναλςολοναξδω .CRAW. πςινες. .MCALL .WDBBK, .RDBBK, .CRRG, .CRAW, .EXIT KMMU = 1024./32. ;ςαϊνες χ βμολαθ πο 32 σμοχ START: .CRRG #AREA,#RGADR ;σοϊδατψ οβμαστψ ; . ; . ; . MOV RGADR+R.GID,WNADR+W.NRID ;ϊαξεστι ID ;χ βμολ οπισαξιρ ολξα .CRAW #AREA,#WNADR ;σοϊδατψ ολξο ;ι οτοβςαϊιτψ εηο ; . ; . ; . .EXIT ;ϊαχεςϋιτψ πςοηςαννυ .LIST MEB RGADR: .RDBBK 2*KMMU ;σοϊδατψ βμολ οπισαξιρ ;οβμαστι WNADR: .WDBBK 5,2*KMMU,,2*KMMU,0,WS.MAP ;σοϊδατψ βμολ ;οπισαξιρ ολξα AREA: .BLKW 2 ;οβμαστψ αςηυνεξτοχ EMT .END START - 478 - 9.6.4. βμολ υπςαχμεξιρ ολξον βμολ υπςαχμεξιρ ολξον - σενισμοχξαρ οβμαστψ χ σνεϋαξ- ξοκ οβμαστι ϊαδαξιρ, λοτοςυΰ οβσμυφιχαετ νοξιτος. χ χις- τυαμψξον ϊαδαξιι οτχοδιτσρ οδιξ βμολ υπςαχμεξιρ ολξον δμρ στατιώεσλοηο ολξα. δμρ πςιχιμεηιςοχαξξωθ ϊαδαξικ οδιξ βμολ υπςαχμεξιρ ολξον ςεϊεςχιςυετσρ νοξιτοςον ι ξε νοφετ ισπομψ- ϊοχατψσρ πςοηςαννοκ. ταλιν οβςαϊον, χσε ϊαδαξιρ νοηυτ ινετψ δο σενι διξανιώεσλιθ ολοξ, λοτοςωε νοξιτος οβσμυφιχαετ σ πονούψΰ βμολοχ υπςαχμεξιρ ολξον. ξα ςισ. 45 ι χ ταβμ. 24 πολαϊαξα στςυλτυςα βμολα υπςαχμεξιρ ολξον. βμολ υπςαχμεξιρ ολξον ----------------------- ! W.BRCB ! !---------------------! ! W.BLVR ! !---------------------! ! W.BHVR ! !---------------------! ! W.BSIZ ! !---------------------! ! W.BOFF ! !---------------------! ! W.BNPD ! W.BFPD ! !---------------------! ! W.BLPD ! ----------------------- ςισ. 45 - 479 - ταβμιγα 24 βμολ υπςαχμεξιρ ολξον ---------------------------------------------------------- σνεύεξιε ! σινχομ ! νοδιζιλατος ! σοδεςφαξιε (βακτω) ! ! ! ---------------------------------------------------------- 0 ! W.BRCB ! ναλςολοναξδα ! υλαϊωχαετ ξα βμολ υπ- ! ! .MAP; ναλςο- ! ςαχμεξιρ οβμαστψΰ δμρ ! ! λοναξδα .UNMAP ! οβμαστι, ξα λοτοςυΰ ! ! οώιύαετ εηο ! ότο ολξο οτοβςαφεξο. ! ! ! εσμι W.BRCB = 0, το ! ! ! ολξο ξε οτοβςαφεξο ! ! ! 2 ! W.BLVR ! ναλςολοναξδα ! ξιφξικ χιςτυαμψξωκ ! ! .CRAW ! αδςεσ ολξα ! ! ! 4 ! W.BHVR ! ναλςολοναξδα ! χεςθξικ χιςτυαμψξωκ ! ! .MAP ! αδςεσ ολξα ! ! ! 6 ! W.BSIZ ! ναλςολοναξδα ! ςαϊνες ολξα χ 32- ! ! .CRAW; ναλςο- ! σμοχξωθ (δεσρτιώξοε) ! ! λοναξδα .ELAW ! βμολαθ. εσμι ϊξαώεξιε ! ! οώιύαετ εηο ! = 0, το ότοτ βμολ ! ! ! υπςαχμεξιρ ολξον σχο- ! ! ! βοδεξ ! ! ! 10 ! W.BOFF ! ναλςολοναξδα ! σνεύεξιε χ οβμαστι, σ ! ! .MAP ! λοτοςοηο ξαώιξαετ ! ! ! οτοβςαφατψσρ ολξο (χ ! ! ! 32-σμοχξωθ δεσρτιώξωθ ! ! ! βμολαθ) ! ! ! 12 ! W.BFPD ! ναλςολοναξδα ! νμαδϋικ βακτ αδςεσα ! ! .CRAW ! πεςχοηο ςεηιστςα οπι- ! ! ! σαξιρ στςαξιγω, λοτο- ! ! ! ςωκ σχρϊαξ σ ότιν ! ! ! ολξον ! ! ! 13 ! W.BNPD ! ναλςολοναξδα ! ώισμο ςεηιστςοχ οπι- ! ! .MAP ! σαξιρ στςαξιγ, λοτο- ! ! ! ςωε σχρϊαξω σ ότιν ! ! ! ολξον ! ! ! 14 ! W.BLPD ! ναλςολοναξδα ! σοδεςφινοε ποσμεδξεηο ! ! .MAP ! ςεηιστςα οπισαξιρ ! ! ! στςαξιγω, λοτοςωκ ! ! ! σχρϊαξ σ ότιν ολξον 9.6.5. όμενεξτ οώεςεδι χχοδα/χωχοδα χ XM-νοξιτοςε όμενεξτ οώεςεδι χχοδα/χωχοδα ςαχεξ 10 σμοχαν, χ οτμιώιε οτ RM/SJ/FB-νοξιτοςοχ, ηδε δμιξα όμενεξτα οώεςεδι χχοδα/χωχοδα ςαχξα 7 σμοχαν. - 480 - 9.6.6. σπισολ σχοβοδξοκ πανρτι νοξιτος οβσμυφιχαετ στςυλτυςυ δαξξωθ, ξαϊωχαενυΰ σπισ- λον σχοβοδξοκ πανρτι, λοτοςαρ ισπομψϊυετσρ δμρ ςασπςεδεμε- ξιρ σχοβοδξοηο πςοστςαξστχα ςασϋιςεξξοκ πανρτι. σπισολ σοδεςφιτ ταβμιγυ ιϊ 10 (δεσρτιώξοε) δχοκξωθ σμοχ. αδςεσον ξαώαμα ταβμιγω ρχμρετσρ $XMSIZ. ταβμιγα ξαθοδιτσρ χ πςοη- ςαννξοκ σελγιι XMSUBS. σταςϋεε σμοχο λαφδοκ παςω σμοχ υλα- ϊωχαετ ςαϊνες δοστυπξοηο σχοβοδξοηο πςοστςαξστχα χ ςασϋι- ςεξξοκ πανρτι, χωςαφεξξωκ χ 32-σμοχξωθ (δεσρτιώξοε) βμολαθ. νμαδϋεε σμοχο ταλοκ παςω σοδεςφιτ αδςεσ σχοβοδξοηο πςοστ- ςαξστχα, δεμεξξωκ ξα 100 (χοσψνεςιώξοε). χ λοξγε ταβμιγω ξαθοδιτσρ 1. σςαϊυ ποσμε ϊαηςυϊλι σιστενω ταβμιγα σοδεςφιτ τομψλο οδξυ ϊαπισψ. σταςϋεε σμοχο παςω σμοχ σοδεςφιτ οβύεε λομι- ώεστχο ςασϋιςεξξοκ πανρτι. νμαδϋεε σμοχο σοδεςφιτ χεμιώιξυ 1600. λοηδα ϊαδαξιε τςεβυετ οβμαστψ ςασϋιςεξξοκ πανρτι, νοξιτος ιύετ πο ταβμιγε δοστατοώξο βομψϋοε πςοστςαξστχο, ώτοβω οβσμυφιτψ ναλςολοναξδυ. οξ χοϊχςαύαετ οβμαστψ ςασϋι- ςεξξοκ πανρτι τςεβυενοηο ςαϊνεςα, ινεΰύυΰ σανωκ νμαδϋικ ξαώαμψξωκ αδςεσ. νοξιτος σολςαύαετ λομιώεστχο πανρτι χ πες- χον δχοκξον σμοχε χ σπισλε σχοβοδξοκ πανρτι ι λοςςελτιςυετ ξαώαμψξωκ αδςεσ. δςυηιε δεχρτψ σμοχ σπισλα σχοβοδξοκ πανρτι ισπομψϊυΰτ- σρ, λοηδα ϊαδαξιρ χοϊχςαύαΰτ σχοβοδξοε πςοστςαξστχο ςασϋι- ςεξξοκ πανρτι χ ινεΰύικσρ πυμ. χ οώεξψ αλτιχξωθ σιστεναθ οβμαστψ ςασϋιςεξξοκ πανρτι νοφετ στατψ ζςαηνεξτιςοχαξξοκ. 9.7. χωπομξεξιε σιστενξωθ ναλςολοναξδ χ δαξξον ποδςαϊδεμε οπισαξ θοδ χωπομξεξιρ λαφδοκ ναλ- ςολοναξδω δμρ ισπομψϊοχαξιρ χ πςοηςαννε σςεδστχ ςασϋιςεξξοκ πανρτι. 9.7.1. σοϊδαξιε οβμαστι - .CRRG ζοςνατ ναλςολοναξδω: .CRRG AREA[,ADDR] ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; ADDR - αδςεσ βμολα οπισαξιρ οβμαστι. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: - 481 - !--------!--------! R0 => AREA: ! 36 ! 0 ! !--------!--------! ! ADDR ! !-----------------! ναλςολοναξδα .CRRG σοϊδαετ οβμαστψ χ πςοστςαξστχε ζιϊιώεσλιθ αδςεσοχ. χξαώαμε πςοηςαννα νοξιτοςα .CRRG πςοχεςρετ R.GSIZ χ βμολε οπισαξιρ οβμαστι, ώτοβω υβεδιτψσρ χ τον, ώτο ϊαπςοϋε- ξα οβμαστψ δοπυστινοηο ςαϊνεςα (ςαϊνες δομφεξ βωτψ οτ 1 δο 96 λ). εσμι ςαϊνες ξε δοπυστιν, το ναλςολοναξδα υσταξαχμι- χαετ λοδ οϋιβλι 10 χ 52 βακτ. ϊατεν πςοηςαννα ιύετ σχοβοδξωκ βμολ υπςαχμεξιρ οβμαστψΰ. εσμι χσε βμολι υπςαχμεξιρ οβμαστψΰ ϊαξρτω, το ναλςολοναξδα υσταξαχμιχαετ λοδ οϋιβλι 6 χ 52 βακτ. χ ϊαχισινοστι οτ αςηυνεξτα χ ναλςολοναξδε, πςοηςαννα πωταετσρ χωδεμιτψ σοοτχετστχυΰύικ οβ'εν πανρτι δμρ οβμαστι. δμρ πομυώεξιρ ξαιβομψϋεηο οβ'ενα πανρτι ξεοβθοδινο ϊαπςο- σιτψ 96 λσμοχ. πςοηςαννα σλαξιςυετ σπισολ σχοβοδξοκ πανρτι δμρ ποισλα οβμαστι σ τςεβυενων ςαϊνεςον. ναλςολοναξδα υστα- ξαχμιχαετ λοδ οϋιβλι 7 χ 52 βακτ, εσμι οξα ξε νοφετ χωδε- μιτψ οβμαστψ τςεβυενοηο ςαϊνεςα. πονινο ότοηο, R0 βυδετ σοδεςφατψ ςαϊνες ξαιβομψϋεκ δοστυπξοκ πανρτι. δμρ ότοηο οβ'ενα πανρτι ξεοβθοδινο ποχτοςξο ισπομψϊοχατψ .CRRG. εσμι χτοςαρ ποπωτλα ολαφετσρ βεϊυσπεϋξοκ, ότο ϊξαώιτ, ώτο δςυηοε ϊαδαξιε υφε ποτςεβοχαμο ότοτ οβ'εν πανρτι. δμρ πομυώεξιρ οβμαστι ξεοβθοδινο χξοχψ ισπομψϊοχατψ .CRRG σ ξοχων ϊξαώε- ξιεν ιϊ R0. ναλςολοναξδα ϊαχεςϋιτσρ υσπεϋξο, λοηδα νοξιτος χωδεμιτ οβμαστψ. πςοηςαννα πονεύαετ ιδεξτιζιλατος οβμαστι χ R.GID χ βμολε οπισαξιρ οβμαστι. οξα υσταξαχμιχαετ RS.CRR χ σμοχε σοστορξιρ οβμαστι, οώιύαετ R.BSTA ι R.BNWD χ βμολε υπςαχμε- ξιρ οβμαστψΰ ι πονεύαετ ϊξαώεξιρ χ R.BADD ι χ R.BSIZ, λοτο- ςωε ταλφε ξαθοδρτσρ χ βμολε υπςαχμεξιρ οβμαστψΰ. πομυώεξξαρ πανρτψ ϊατεν υδαμρετσρ ιϊ σπισλα σχοβοδξοκ πανρτι νοξιτοςα ι ςεϊεςχιςυετσρ δμρ ϊαδαξιρ πομψϊοχατεμρ. 9.7.2. σοϊδαξιε ολξα - .CRAW ζοςνατ ναλςολοναξδω: .CRAW AREA[,ADDR] ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; ADDR - αδςεσ βμολα οπισαξιρ ολξα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: - 482 - !---------!--------! R0 => AREA: ! 36 ! 2 ! !---------!--------! ! ADDR ! !------------------! δμρ σοϊδαξιρ χιςτυαμψξοηο αδςεσξοηο ολξα ισπομψϊυετσρ ναλςολοναξδα .CRAW. χξαώαμε .CRAW πςοχεςρετ W.NAPR χ βμολε οπισαξιρ ολξα ξα δοπυστινοστψ ϊξαώεξιρ. ναλςολοναξδα .CRAW υσταξαχμιχαετ λοδ οϋιβλι 0 χ 52 βακτ, εσμι ξονες υσταξοχ- μεξξοηο ςεηιστςα αλτιχξωθ στςαξιγ ξε δοπυστιν πο λαλοκ-μιβο πςιώιξε. δαμεε, πςοηςαννα σδχιηαετ W.NAPR, ώτοβω υσταξοχιτψ βαϊοχωκ αδςεσ ολξα χ W.NBAS, λοτοςωκ ταλφε ξαθοδιτσρ χ βμο- λε οπισαξιρ ολξα. ϊατεν πςοηςαννα πςοχεςρετ W.NSIZ χ βμολε οπισαξιρ ολξα, ώτοβω υβεδιτψσρ χ τον, ώτο ϊαπςοϋεξ δοπυστινωκ ςαϊνες ολξα (ολξο ξε νοφετ πςεχωϋατψ 32 λσμοχξυΰ ηςαξιγυ). ναλςο- λοναξδα υσταξαχμιχαετ λοδ οϋιβλι 0 χ 52 βακτ, εσμι ϊαπςοϋεξ ξεχεςξωκ ςαϊνες ολξα. πςοηςαννα οώιύαετ βιτω WS.ELW, WS.UNN ι WS.CRW χ σμοχε σοστορξιρ ολξα. δαμεε χωπομξρετσρ πςοχεςλα, βυδετ μι ξοχοε ολξο πεςελ- ςωχατψ συύεστχυΰύεε. εσμι ϊαδαξιε χιςτυαμψξοε ι ξοχοε ολξο πεςελςωχαετ στατιώεσλοε, το ναλςολοναξδα υσταξαχμιχαετ λοδ οϋιβλι 0. χ δςυηιθ σιτυαγιρθ, λοηδα ξοχοε ολξο πεςελςωχαετ συύεστχυΰύεε ολξο, πςοηςαννα υστςαξρετ συύεστχυΰύεε ολξο. εσμι συύεστχυΰύεε ολξο οτοβςαφεξο, το οτνεξρετ εηο οτοβςα- φεξιε. πςοηςαννα .CRAW υσταξαχμιχαετ WS.ELW χ σμοχε σοστορ- ξιρ ολξα, εσμι οξα υστςαξρετ ολξο δμρ σοϊδαξιρ ξοχοηο. οξα υσταξαχμιχαετ WS.UNM, Eσμι οτνεξρετ οτοβςαφεξιε ολξα ιμι υστςαξρετ εηο. δαμεε, πςοηςαννα δεμαετ ποισλ δοστυπξοηο βμολα υπςαχ- μεξιρ ολξον. ναλςολοναξδα υσταξαχμιχαετ λοδ οϋιβλι 1, εσμι ξετ σχοβοδξωθ βμολοχ υπςαχμεξιρ ολξον. πςι υσπεϋξον ϊαχεςϋεξιι ναλςολοναξδω, νοξιτος νοδιζι- γιςυετ σοοτχετστχυΰύιε στςυλτυςω δαξξωθ. οξ ϊαξοσιτ ϊξαώε- ξιρ χ W.BSIZ, W.BLVR ι W.BFPD χ βμολε υπςαχμεξιρ ολξον; πονεύαετ ιδεξτιζιλατος ολξα χ W.NID χ βμολε οπισαξιρ ολξα ι WS.CRW χ σμοχε σοστορξιρ ολξα. εσμι WS.MAP χ σμοχε σοστορξιρ ολξα βωμ υσταξοχμεξ πςι χωδαώε ναλςολοναξδω .CRAW, το πςοηςαννα βυδετ οτοβςαφατψ ολξο ξα οβμαστψ, ιδεξτιζιλατος λοτοςοκ θςαξιτσρ χ βμολε οπισαξιρ ολξα (π. 9.7.3). - 483 - 9.7.3. οτοβςαφεξιε ολξα ξα οβμαστψ - .MAP ζοςνατ ναλςολοναξδω: .MAP AREA[,ADDR] ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; ADDR - αδςεσ βμολα οπισαξιρ ολξα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 36 ! 4 ! !--------!--------! ! ADDR ! !-----------------! ναλςολοναξδα .MAP ισπομψϊυετσρ δμρ οτοβςαφεξιρ χις- τυαμψξοηο αδςεσξοηο ολξα ξα οβμαστψ ζιϊιώεσλιθ αδςεσοχ. βμολ οπισαξιρ ολξα δομφεξ σοδεςφατψ ιδεξτιζιλατος οβμαστι, ξα λοτοςυΰ βυδετ οτοβςαφατψσρ ολξο. σξαώαμα πςοηςαννα νοξιτοςα .MAP ξαθοδιτ βμολ υπςαχμε- ξιρ ολξον, λοτοςωκ σοοτχετστχυετ ολξυ, υλαϊαξξονυ χ ναλςο- λοναξδε. δμρ ότοηο οξα πςοχεςρετ W.NID ι υσταξαχμιχαετ λοδ οϋιβλι 3, εσμι ϊξαώεξιε ξεδοπυστινο ιμι ςαχξο ξυμΰ. ϊατεν πςοηςαννα ξαθοδιτ βμολ υπςαχμεξιρ οβμαστψΰ δμρ οβμαστι, ξα λοτοςυΰ βυδετ οτοβςαφατψσρ ότο ολξο. ναλςολο- ναξδα υσταξαχμιχαετ λοδ οϋιβλι 2, εσμι ιδεξτιζιλατος οβμασ- τι πο λαλοκ-μιβο πςιώιξε ξε δοπυστιν. πςοηςαννα ιύετ σνεύεξιε χ οβμαστι, σ λοτοςοηο ολξο ξαώξετ οτοβςαφατψσρ. ότο ϊξαώεξιε ξαθοδιτσρ χ W.NOFF χ βμο- λε οπισαξιρ ολξα. εσμι σνεύεξιε ξαθοδιτσρ ϊα πςεδεμανι οβμαστι, το ναλςολοναξδα υσταξαχμιχαετ λοδ οϋιβλι 4. πςοηςαννα πςοχεςρετ δμιξυ ολξα, λοτοςοε ξυφξο οτοβςα- ϊιτψ. ότο ϊξαώεξιε σοδεςφιτσρ χ W.NLEN χ βμολε οπισαξιρ ολξα. εσμι οξο ςαχξο ξυμΰ, πςοηςαννα χωβιςαετ ςαϊνες οβμασ- τι οτ ϊξαώεξιρ σνεύεξιρ δο λοξγα οβμαστι. εσμι ότοτ οβ'εν πανρτι βομψϋε, ώεν ολξο, πςοηςαννα υνεξψϋαετ εηο δο ςαϊνεςα ολξα, λοτοςωκ οξα θςαξιτ χ W.NLEN. εσμι χ W.NLEN βωμο ϊαη- ςυφεξο ϊξαώεξιε ξομψ, το ϊξαώεξιε, λοτοςοε βυδετ ϊδεσψ ποσ- με χωπομξεξιρ ναλςολοναξδω .MAP, βυδετ ζαλτιώεσλοκ δμιξοκ οτοβςαφεξξοηο ολξα. εσμι ϊξαώεξιε W.NLEN ξε ςαχξο ξυμΰ χ ξαώαμε χωπομξεξιρ πςοηςαννω .MAP, το οξο υλαϊωχαετ ρχξυΰ δμιξυ ολξα, λοτοςοε ξυφξο οτοβςαϊιτψ. εσμι ότο ϊξαώεξιε βομψϋε, ώεν ςαϊνες ολξα, ιμι εσμι ολξο βυδετ χωθοδιτψ ϊα ηςαξιγω οβμαστι, το ναλςολοναξδα υσταξαχμιχαετ λοδ οϋιβλι 4. πςοηςαννα .MAP υχεμιώιχαετ R.BNWD χ βμολε υπςαχμεξιρ οβμαστψΰ, λοτοςωκ ρχμρετσρ σώετώιλον ώισμα ολοξ, οτοβςαφεξ- - 484 - ξωθ ξα ότυ οβμαστψ. εσμι ότο ολξο υφε οτοβςαφεξο λυδα-μιβο, πςοηςαννα οτνεξρετ εηο οτοβςαφεξιε ι υσταξαχμιχαετ WS.UNM χ σμοχε σοστορξιρ ολξα; χ πςοτιχξον σμυώαε ότα πςοηςαννα οώιύαετ WS.UNM. δαμεε, πςοηςαννα ϊαηςυφαετ ςεηιστς αλτιχξωθ στςαξιγ πομψϊοχατεμψσλοηο ςεφινα σλοςςελτιςοχαξξωνι ϊξαώεξιρνι, ώτοβω οτοβςαϊιτψ ολξο ξα οβμαστψ. χ ϊαχεςϋεξιε πςοηςαννα λοςςελτιςυετ χ βμολε υπςαχμεξιρ ολξον ϊξαώεξιρ W.BRCB, W.BHVR, W.BOFF, W.BNPD ι W.BLPD. 9.7.4. σοστορξιε οτοβςαφεξιρ - .GMCX ζοςνατ ναλςολοναξδω: .GMCX AREA[,ADDR] ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; ADDR - αδςεσ βμολα οπισαξιρ ολξα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 36 ! 6 ! !--------!--------! ! ADDR ! !-----------------! ναλςολοναξδα .GMCX ισπομψϊυετσρ δμρ πομυώεξιρ σοστορ- ξιρ οτοβςαφεξιρ υλαϊαξξοηο χιςτυαμψξοηο ολξα. σξαώαμα πςοη- ςαννα νοξιτοςα .GMCX πςοσνατςιχαετ σοοτχετστχυΰύικ βμολ υπςαχμεξιρ ολξον. εσμι υλαϊαξο ολξο, ιδεξτιζιλατος λοτοςοηο 0, το βυδετ πομυώεξο σοστορξιε στατιώεσλοηο ολξα χιςτυαμψ- ξοηο ϊαδαξιρ. χ πςιχιμεηιςοχαξξον ϊαδαξιι ξετ ολξα σ ιδεξ- τιζιλατοςον 0. εσμι ολξο βωμο σοϊδαξο ξελοςςελτξο, ναλςολο- ναξδα υσταξαχμιχαετ λοδ οϋιβλι 3. πςοηςαννα υσταξαχμιχαετ W.NAPR χ βμολε οπισαξιρ ολξα, λοτοςωκ ςαχεξ τςεν πεςχων βιταν χ W.BLVR χ βμολε υπςαχμεξιρ ολξον. ότιν υσταξαχμιχαετσρ ξαώαμψξωκ ξονες ςεηιστςα αλτιχ- ξωθ στςαξιγ. ϊατεν πςοηςαννα ϊαηςυφαετ ϊξαώεξιρ χ W.NBAS, W.NSIZ ι W.NRID χ βμολε οπισαξιρ ολξα. εσμι ολξο χ δαξξωκ νονεξτ ξε οτοβςαφεξο, το πςοηςαννα οώιύαετ W.NOFF, W.NBAS ι W.NSTS χ βμολε οπισαξιρ ολξα. εσμι ολξο οτοβςαφεξο, πςοηςαννα ϊαηςυφαετ σνεύεξιε χ οβμαστι χ W.NOFF, ϊαηςυφαετ δμιξυ ολξα χ W.NLEN ι υσταξαχμιχαετ βιτ WS.MAP χ σμοχε σοστορξιρ ολξα. - 485 - 9.7.5. οτνεξα οτοβςαφεξιρ ολξα - .UNMAP ζοςνατ ναλςολοναξδω: .UNMAP AREA[,ADDR] ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; ADDR - αδςεσ βμολα οπισαξιρ ολξα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 36 ! 5 ! !--------!--------! ! ADDR ! !-----------------! ναλςολοναξδα .UNMAP οτνεξρετ οτοβςαφεξιε ολξα ξα οβμαστψ. σξαώαμα πςοηςαννα νοξιτοςα .UNMAP ξαθοδιτ σοοτ- χετστχυΰύικ βμολ υπςαχμεξιρ ολξον. εσμι ϊξαώεξιε ςαχξο ξυμΰ ιμι ξε δοπυστινο πο λαλοκ-μιβο πςιώιξε, ναλςολοναξδα υστα- ξαχμιχαετ λοδ οϋιβλι 3. εσμι ολξο ξε οτοβςαφεξο χ δαξξωκ νονεξτ, ναλςολοναξδα υσταξαχμιχαετ λοδ οϋιβλι 5. δμρ οτνεξω οτοβςαφεξιρ ολξα πςοηςαννα νοδιζιγιςυετ σοοτχετστχυΰύιε στςυλτυςω δαξξωθ. οξα οώιύαετ W.BRCB χ βμολε υπςαχμεξιρ ολξον ι υνεξψϋαετ R.BNWD χ βμολε υπςαχμεξιρ οβμαστψΰ. εσμι ϊαδαξιε χιςτυαμψξοε, πςοηςαννα οώιύαετ ςεηιστςω οπισαξιρ στςαξιγ, λοτοςωε σοοτχετστχυΰτ ότονυ ολξυ. ι ποό- τονυ πςοηςαννα βομψϋε ξε νοφετ σσωματψσρ λ χιςτυαμψξων αδςεσαν ότοηο ολξα. εσμι ϊαδαξιε πςιχιμεηιςοχαξξοε, νοξιτος λοπιςυετ ϊξα- ώεξιρ σιστενξωθ ςεηιστςοχ οπισαξιρ στςαξιγ χ πομψϊοχατεμψσ- λιε, ποότονυ οτοβςαφεξιε πο υνομώαξιΰ σοοτχετστχυετ οτοβςα- φεξιΰ χ σιστενξον ςεφινε. χ λοξγε πςοηςαννα υσταξαχμιχαετ WS.UNM χ σμοχε σοστορ- ξιρ ολξα. 9.7.6. υστςαξεξιε οβμαστι - .ELRG ζοςνατ ναλςολοναξδω: .ELRG AREA[,ADDR] ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; - 486 - ADDR - αδςεσ βμολα οπισαξιρ οβμαστι. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 36 ! 1 ! !--------!--------! ! ADDR ! !-----------------! ναλςολοναξδα .ELRG πςεδξαϊξαώεξα δμρ υστςαξεξιρ οβμασ- τι ζιϊιώεσλιθ αδςεσοχ. χξαώαμε πςοηςαννα νοξιτοςα .ELRG πςοχεςρετ, ςαχεξ μι υλαϊαξξωκ ιδεξτιζιλατος οβμαστι ξυμΰ. χ χιςτυαμψξον ϊαδαξιι ιδεξτιζιλατος οβμαστι ξομψ υλαϊωχαετ, ώτο ότο - στατιώεσλαρ οβμαστψ, λοτοςυΰ ξεμψϊρ υστςαξρτψ. χ πςιχιμεηιςοχαξξον ϊαδαξιι ξετ οβμαστι σ ιδεξτιζιλατοςον ξομψ. χ μΰβον ιϊ ότιθ σμυώαεχ ναλςολοναξδα υσταξαχμιχαετ λοδ οϋιβλι 2. δαμεε, πςοηςαννα ιύετ σοοτχετστχυΰύικ βμολ υπςαχμεξιρ οβμαστψΰ. εσμι ιδεξτιζιλατος οβμαστι ξε δοπυστιν πο λαλοκ- μιβο πςιώιξε, ναλςολοναξδα υσταξαχμιχαετ λοδ οϋιβλι 2. ϊατεν πςοηςαννα οώιύαετ RS.CRR ι RS.UNM χ σμοχε σοσ- τορξιρ οβμαστι. εσμι εστψ λαλιε-μιβο ολξα, οτοβςαφεξξωε ξα ότυ οβμαστψ, πςοηςαννα οτνεξρετ ιθ οτοβςαφεξιε ι υσταξαχμι- χαετ RS.UNM. πςοηςαννα οσχοβοφδαετ οβμαστψ, χοϊχςαύαρ εε ζιϊιώεσλοε πςοστςαξστχο χ σπισολ σχοβοδξοκ πανρτι νοξιτοςα. χ ϊαχεςϋε- ξιε πςοηςαννα οώιύαετ βμολ υπςαχμεξιρ οβμαστψΰ. 9.7.7. υστςαξεξιε ολξα - .ELAW ζοςνατ ναλςολοναξδω: .ELAW AREA[,ADDR] ηδε AREA - αδςεσ ταβμιγω αςηυνεξτοχ EMT ιϊ δχυθ σμοχ; ADDR - αδςεσ βμολα οπισαξιρ ολξα. ζοςνατ ταβμιγω αςηυνεξτοχ EMT: !--------!--------! R0 => AREA: ! 36 ! 3 ! !--------!--------! ! ADDR ! !-----------------! πο ότοκ ναλςολοναξδε υστςαξρετσρ χιςτυαμψξοε αδςεσξοε ολξο. λαλ ι ναλςολοναξδα .ELRG, ναλςολοναξδα .ELAW χξαώαμε - 487 - ξαθοδιτ δμρ υστςαξρενοηο ολξα βμολ υπςαχμεξιρ ολξον. οξα πςοχεςρετ W.NID χ βμολε οπισαξιρ ολξα. εσμι ιδεξτιζιλατος ολξα ξομψ ιμι ξεδοπυστιν πο λαλοκ-μιβο πςιώιξε, ναλςολοναξ- δα υσταξαχμιχαετ λοδ οϋιβλι 3. ϊατεν ναλςολοναξδα .ELAW οώιύαετ WS.CRW ι WS.NUM χ σμοχε σοστορξιρ ολξα. εσμι ολξο οτοβςαφεξο, ναλςολοναξδα οτνεξρετ εηο οτοβςαφεξιε ι υσταξαχμιχαετ βιτ WS.UNM. ναλςο- λοναξδα υστςαξρετ ολξο, οώιύαρ W.BSIZ χ βμολε υπςαχμεξιρ ολξον. ξαλοξεγ, ναλςολοναξδα υσταξαχμιχαετ βιτ WS.ELW χ σμοχε σοστορξιρ ολξα. 9.7.8. λοδω οϋιβολ χ ταβμ. 25 δαξο λςατλοε οπισαξιε λοδοχ οϋιβολ, υστα- ξαχμιχαενωθ ναλςολοναξδανι ςασϋιςεξξοκ πανρτι χ 52 βακτ. χ ταβμ. 26 πολαϊαξο, λαλιε λοδω οϋιβολ νοφετ υσταξαχμιχατψ λαφδαρ ναλςολοναξδα. - 488 - ταβμιγα 25 λοδω οϋιβολ ναλςολοναξδ ςασϋιςεξξοκ πανρτι ι ιθ ϊξαώεξιρ ---------------------------------------------------------- λοδ χ ! ϊξαώεξιε 52 βακτε! ---------------------------------------------------------- 0 ! ξεχεςεξ ιδεξτιζιλατος ολξα. ολξο σμιϋλον βομψϋοε ! ϊξαώεξιε W.NAPR βομψϋε 7 ιμι υλαϊαξο ξεπςαχιμψξο ! 1 ! ποπωτλα σοϊδατψ βομψϋε σενι ολοξ χ πςοηςαννε ! πομψϊοχατεμρ. σμεδυετ πονξιτψ, ώτο στατιώεσλοε ! ολξο χσεηδα οπςεδεμεξο δμρ χιςτυαμψξοηο ϊαδαξιρ, ! χ πςιχεμεηιςοχαξξον ϊαδαξιι οδξο ολξο χσεηδα ! χσεηδα ϊαςεϊεςχιςοχαξο νοξιτοςον. νοφξο ιμι ! οτνεξιτψ οτοβςαφεξιε λαλοηο-μιβο ολξα, ιμι πεςε- ! οπςεδεμιτψ πςοστςαξστχο χιςτυαμψξωθ αδςεσοχ ξα ! νεξψϋεε λομιώεστχο ολοξ ! 2 ! ιδεξτιζιλατος οβμαστι ξε δοπυστιν πο λαλοκ-μιβο ! πςιώιξε ! 3 ! ιδεξτιζιλατος ολξα ξε δοπυστιν πο λαλοκ-μιβο ! πςιώιξε ! 4 ! λονβιξαγιρ σνεύεξιρ χ οβμαστι ι ςαϊνεςα ολξα, ! λοτοςοε δομφξο οτοβςαϊιτψσρ ξα οβμαστψ, ξεχεςξα ! 5 ! υλαϊαξξοε ολξο χ δαξξωκ νονεξτ ξε οτοβςαφεξο ! 6 ! ποπωτλα σοϊδατψ βομψϋε τςεθ οβμαστεκ χ πςοηςαννε ! ξεοβθοδινο πονξιτψ, ώτο στατιώεσλαρ οβμαστψ ! χσεηδα οπςεδεμεξα δμρ χιςτυαμψξοηο ϊαδαξιρ ι ! οδξα οβμαστψ χσεηδα ϊαςεϊεςχιςοχαξα νοξιτοςον χ ! πςιχιμεηιςοχαξξον ϊαδαξιι. νοφξο υστςαξιτψ ! λαλυΰ-μιβο οβμαστψ ι ϊατεν ποπωτατψσρ σοϊδατψ ! ξοχυΰ οβμαστψ, ιμι πεςεοπςεδεμιτψ πςοστςαξστχο ! ζιϊιώεσλιθ αδςεσοχ ξα νεξψϋεε λομιώεστχο οβμασ- ! τεκ. σμεδυετ ϊανετιτψ, ώτο οχεςμει ςασϋιςεξξοκ ! πανρτι ι σιστενξαρ ναλςολοναξδα .SETTOP δμρ XM- ! νοξιτοςα ϊαξιναΰτ οδξυ οβμαστψ λαφδωκ ! 7 ! ξεδοστατοώξο δοστυπξοκ πανρτι δμρ σοϊδαξιρ ! οβμαστι τςεβυενοηο ςαϊνεςα. πςοηςαννα χοϊχςαύαετ ! ςαϊνες ξαιβομψϋεκ δοστυπξοκ οβμαστι χ R0, ξο ξε ! σοϊδαετ εε ! 10 ! υλαϊαξ ξεχεςξωκ ςαϊνες οβμαστι. ξυμεχοκ ςαϊνες ι ! ϊξαώεξιε βομψϋε 96 λσμοχ ρχμρΰτσρ ξεδοπυστινωνι - 489 - ταβμιγα 26 λοδω οϋιβολ ----------------------------------- ! λοδ οϋιβλι ναλςολοναξδα !-------------------- ! 0 1 2 3 4 5 6 7 10 ----------------------------------- .CRRG ! * * * .CRAW ! * * .MAP ! * * * .GMCX ! * .UNMAP ! * * .ELRG ! * .ELAW ! * 9.8. οηςαξιώεξιρ XM-νοξιτος ξαμαηαετ ξελοτοςωε οηςαξιώεξιρ ξα ισπομψϊο- χαξιε ςασϋιςεξξοκ πανρτι. χ σμεδυΰύιθ πυξλταθ οπισαξω χ οβύιθ ώεςταθ νετοδω ισπομψϊοχαξιρ ςασϋιςεξξοκ πανρτι. 9.8.1. οηςαξιώεξιρ πςι ισπομψϊοχαξιι ςα1 ιξοηδα XM-νοξιτος "βεςετ χ δομη" σιστενξωκ ςεηιστς αδςεσα στςαξιγω 1 δμρ σχοιθ γεμεκ. ξαπςινες, οξ ισπομψϊυετ ςα1, ώτοβω οτοβςαϊιτψ οβμαστψ βμολοχ EMτ πςι οβςαβοτλε ναλ- ςολοναξδω. τ.λ. νοξιτος ιϊνεξρετ σιστενξωκ ςα1, το σσωμλι λ χις- τυαμψξων αδςεσαν χ πςεδεμαθ οτ 20000 δο 37777 ξε χσεηδα οτξοσρτσρ λ σοοτχετστχυΰύιν ζιϊιώεσλιν αδςεσαν. ώτοβω ιϊβε- φατψ ποχτοςξοηο οτοβςαφεξιρ χιςτυαμψξωθ αδςεσοχ, υπςαχμρε- νωθ σιστενξων ςα1, ξεοβθοδινο σοβμΰδατψ σμεδυΰύιε πςοηςανν- ξωε οηςαξιώεξιρ: 1) μΰβωε οβμαστι λαξαμοχ, λοτοςωε σοϊδαΰτσρ ναλςολο- ναξδοκ .CDFN δομφξω ξαθοδιτψσρ χ νμαδϋιθ 28 λσμοχαθ πανρτι; 2) μΰβαρ οώεςεδψ όμενεξτοχ, λοτοςαρ σοϊδαετσρ ναλςολο- ναξδοκ .QSET, δομφξα ξαθοδιτψσρ χ νμαδϋιθ 28 λσμοχαθ πανρ- τι; λςονε τοηο, οξα ξε δομφξα ςαϊνεύατψσρ χ ηςαξιγαθ αδςε- σοχ οτ 20000 δο 37777; σμεδυετ ϊανετιτψ, ώτο ξα όμενεξτ οώεςεδι οτχοδιτσρ 10 (δεσρτιώξοε) σμοχ; 3) πςοηςαννω οβςαβοτλι πςεςωχαξικ δομφξω ςαϊνεύατψσρ χ νμαδϋιθ 28 λσμοχαθ πανρτι; λςονε τοηο, οξι ξε δομφξω βωτψ ςεϊιδεξτξωνι ι ξε δομφξω σσωματψσρ λ αδςεσαν χ πςεδεμαθ οτ 20000 δο 37777; χ ώαστι 2 δαξξοηο δολυνεξτα οπισαξω ζαλτο- ςω, λοτοςωε σμεδυετ υώιτωχατψ, εσμι πςοηςαννα σοδεςφιτ - 490 - χστςοεξξυΰ πςοηςαννυ οβςαβοτλι πςεςωχαξιρ; εσμι πςοηςαννα ινεετ πςοηςαννυ οβςαβοτλι πςεςωχαξιρ, το ότυ πςοηςαννυ ξαδο χωπομξρτψ λαλ πςιχιμεηιςοχαξξοε ϊαδαξιε, ώτοβω οξα νοημα ινετψ δοστυπ λ νοξιτοςυ ι λ στςαξιγε χχοδα/χωχοδα; οηςαξι- ώεξιρ ξα δςακχεςω υστςοκστχ ι χχοδ/χωχοδ χ XM-νοξιτοςε πεςεώισμεξω χ ώαστι 2 ότοηο δολυνεξτα. ποξιναξιε ότιθ οηςαξιώεξικ χαφξο δμρ πομψϊοχατεμρ, ινεΰύεηο πςοηςαννυ σ σοβστχεξξοκ χστςοεξξοκ πςοηςαννοκ οβςαβοτλι πςεςωχαξιρ, ιμι ϊαηςυφαΰύεηο χ ςασϋιςεξξυΰ πανρτψ βυζες δαξξωθ δμρ χχοδα/χωχοδα, α ταλφε πιϋυύεηο δςακχες υστςοκστχα δμρ XM-νοξιτοςα. 9.8.2. οηςαξιώεξιρ σιστενξωθ ναλςολοναξδ ξελοτοςωε ναλςολοναξδω ινεΰτ σπεγιαμψξωε οηςαξιώεξιρ πςι ιθ ςαβοτε σ ςασϋιςεξξοκ πανρτψΰ. ότι ναλςολοναξδω ι ιθ οηςαξιώεξιρ σμεδυΰύιε: ναλςολοναξδα οηςαξιώεξιε ------------------------------------------------- .CDFN οβμαστψ λαξαμοχ, υλαϊαξξαρ χ ναλςολοναξδε, δομφξα ξαθοδιτψσρ χ νμαδϋιθ 28 λσμοχ πανρτι; .QSET πςοστςαξστχο δμρ όμενεξτοχ οώεςεδι δομφξο ξαθοδιτψσρ χ νμαδϋιθ 28 λσμοχ πανρτι. πονινο ότοηο λαφδονυ όμενεξτυ οώεςεδι δομφξο οτχοδιτψσρ 10 (δεσρτιώξοε) σμοχ; .CNTXSW χιςτυαμψξωε ϊαδαξιρ ξε νοηυτ ισπομψϊοχατψ ότυ ναλςολοναξδυ, τ.λ. οξα ξε τςεβυετσρ. 9.8.3. οηςαξιώεξιρ πςι ισπομψϊοχαξιι ςα2 δςακχες σοοβύεξικ MQ ξαθοδιτσρ χ ζιϊιώεσλοκ πανρτι, οτοβςαφαενοκ ςεηιστςον αδςεσα στςαξιγω 2. πςι ισπομψϊοχαξιι δςακχεςα MQ, χσε οηςαξιώεξιρ ςα1 ςασπςοστςαξρΰτσρ ταλφε ι ξα χιςτυαμψξωε αδςεσα, λοτοςωνι υπςαχμρετ ςα2 (αδςεσα χ πςεδεμαθ οτ 40000 δο 57777). - 491 - 9.8.4. σιξθςοξξωε σιστενξωε μοχυϋλι σιξθςοξξαρ σιστενξαρ μοχυϋλα - ότο πςοηςαννξοε πςεςω- χαξιε, λοτοςοε πςοισθοδιτ σιξθςοξξο σ χωπομξεξιεν πομψϊοχα- τεμψσλοκ πςοηςαννω. ξαπςινες, ιξστςυλγιρ TRAP, λοτοςυΰ χωπομξρετ πςοηςαννα, ρχμρετσρ σιξθςοξξοκ σιστενξοκ μοχυϋ- λοκ. πςοηςαννα, λοτοςαρ σοδεςφιτ ξεδοπυστινυΰ ιξστςυλγιΰ, χωϊωχαετ μοχυϋλυ πο χελτοςυ 10, λοτοςαρ ρχμρετσρ σιξθςοξξοκ σιστενξοκ μοχυϋλοκ. πςι χοϊξιλξοχεξιι μοχυϋλι τελυύιε ϊξα- ώεξιρ PS ι PC ϊαξοσρτσρ χ στελ, α ιϊ χελτοςα μοχυϋλι ϊαηςυ- φαΰτσρ ξοχωε PS ι PC. χ ταβμ. 27 δαξ σπισολ σιξθςοξξωθ σισ- τενξωθ μοχυϋελ ι σοοτχετστχυΰύιε ιν χελτοςα. ταβμιγα 27 σιξθςοξξωε σιστενξωε μοχυϋλι ι ιθ χελτοςω --------------------------------------------------------- χελτος ! σιξθςοξξαρ σιστενξαρ μοχυϋλα --------------------------------------------------------- 4 ! χοϊξιλαετ πςι σσωμλε ξα ξεώετξωκ αδςεσ ιμι πςι ! τακν-αυτε ξα οβύεκ ϋιξε ! 10 ! χοϊξιλαετ πςι ποπωτλε χωπομξιτψ ςεϊεςχξυΰ ιξ- ! στςυλγιΰ ! 14 ! μοχυϋλα τοώλι οσταξοχα; οβωώξο χωδαετσρ σισ- ! τενξοκ πςοηςαννοκ-οτμαδώιλον ODT ! 20 ! μοχυϋλα χχοδα/χωχοδα (ιξστςυλγιρ IOT) ! 34 ! ιξστςυλγιρ TRAP; χωδαετσρ πςοηςαννοκ δμρ ιϊνε- ! ξεξιρ θοδα χωπομξεξιρ ! 114 ! μοχυϋλα ώετξοστι πανρτι; χοϊξιλαετ πςι οϋιβλε ! ώετξοστι πανρτι ! 244 ! μοχυϋλα FPU; χοϊξιλαετ πςι οϋιβλε χ βμολε ! πςογεσσοςα πμαχαΰύεκ ϊαπρτοκ ! 250 ! μοχυϋλα δισπετώεςα πανρτι; χοϊξιλαετ πςι πο- ! πωτλε ϊαδαξιρ οβςατιτψσρ λ χιςτυαμψξονυ αδςε- ! συ, λοτοςωκ ξε οτοβςαφεξ ξα ζιϊιώεσλυΰ ρώεκλυ χ θν-νοξιτοςε σιξθςοξξωε σιστενξωε μοχυϋλι, ποδοβξο πςεςωχαξιρν οτ υστςοκστχ, χωβιςαΰτ ξοχωε PS ι PC ιϊ σοοτ- χετστχυΰύεηο χελτοςα χ σιστενξοκ οβμαστι. ξαπςινες, λοηδα πςοηςαννα χωπομξρετ ιξστςυλγιΰ BPT, ξοχωε PS ι PC χωβιςαΰτ- σρ ιϊ ζιϊιώεσλιθ ρώεελ 14 ι 16. λαλ υλαϊωχαμοσψ ςαξψϋε, πςιχιμεηιςοχαξξοε ϊαδαξιε πεςχοξαώαμψξο οτοβςαφαετσρ ξα σιστενξυΰ οβμαστψ χελτοςοχ, ποότονυ χιςτυαμψξωκ αδςεσ 14 χ πςοηςαννε οτοβςαφαετσρ ξα ζιϊιώεσλυΰ ρώεκλυ 14. σ δςυηοκ στοςοξω, χιςτυαμψξοε ϊαδαξιε ξε ινεετ δοστυπα λ σιστενξοκ οβμαστι χελτοςοχ. πεςχοξαώαμψξο οβμαστψ χιςτυαμψξωθ χελτο- ςοχ χιςτυαμψξοηο ϊαδαξιρ οτοβςαφαετσρ ξα ζιϊιώεσλιε αδςεσα, ξαώιξαρ σ αδςεσα 500, α ξε 0. ποότονυ, δμρ χιςτυαμψξοηο ϊαδαξιρ χιςτυαμψξωκ χελτος 14 ξε ξαθοδιτσρ χ ζιϊιώεσλοκ ρώεκλε 14. - 492 - λαφδυΰ σιξθςοξξυΰ σιστενξυΰ μοχυϋλυ σιστενα οβεσπεώι- χαετ νεθαξιϊνον ϊαπομξεξιρ μοχυϋλι, α ταλφε ϊξαώεξιρνι δμρ ξοχωθ PC ι PS ιϊ χιςτυαμψξοηο χελτοςα. χ ποσμεδυΰύιθ ποδ- πυξλταθ οπισαξο, λαλ XM-νοξιτος ςεαηιςυετ ξα σπεγιαμψξωε σιστενξωε μοχυϋλι. 9.8.4.1. ιξστςυλγιι TRAP, BPT ι IOT λοηδα πςοηςαννα, χωπομξρΰύαρσρ ποδ υπςαχμεξιεν XM-νοξιτοςα, χωπομξρετ ιξστςυλγιΰ TRAP, BPT ιμι IOT, χωπομ- ξεξιε πεςελμΰώαετσρ ξα σιστενξωκ ςεφιν πςογεσσοςα. αππαςατ- ξο χωβιςαετσρ σοδεςφινοε σοοτχετστχυΰύεηο χελτοςα (σν. ταβμ. 27) ιϊ σιστενξοκ οβμαστι. οδξαλο, χνεστο τοηο, ώτοβω ξενεδμεξξο πεςεκτι λ πςοηςαννε οβςαβοτλι μοχυϋλι, υλαϊαξξοκ χ σιστενξον χελτοςε, νοξιτος ϊανεξρετ ξοχωε ϊξαώεξιρ PS ι PC ϊξαώεξιρνι, λοτοςωε χωϊωχαΰτ πςοδομφεξιε ςαβοτω νοξιτο- ςα. γεμψ ότοηο - χωβςατψ σοδεςφινοε σοοτχετστχυΰύεηο χις- τυαμψξοηο χελτοςα χ οβμαστι πομψϊοχατεμρ ι ϊατεν πεςεδατψ υπςαχμεξιε πςοηςαννε, υλαϊαξξοκ χ χιςτυαμψξον PC. σιστενξωε ι πομψϊοχατεμψσλιε χελτοςω δμρ πςιχιμεηιςοχαξξοηο ϊαδαξιρ ιδεξτιώξω. χιςτυαμψξοε ϊαδαξιε ξε ινεετ δοστυπα λ σιστενξων χελτοςαν; οδξαλο, νοφξο ϊαηςυϊιτψ ϊξαώεξιρ χ χιςτυαμψξωε χελτοςω ταλ, ώτοβω νοξιτος νοη χωβςατψ ιθ πςι χοϊξιλξοχεξιι μοχυϋλι. οσξοχξαρ ϊαδαώα νοξιτοςα πςι οβςαβοτλε μοχυϋλι ϊαλμΰώαετσρ χ τον, ώτοβω πεςεδατψ υπςαχμεξιε σοοτχετστχυΰ- ύεκ πςοηςαννε πο οβςαβοτλε σπεγιαμψξοκ μοχυϋλι ώεςεϊ σοδες- φινοε χιςτυαμψξοηο χελτοςα ϊαδαξιρ. εσμι χιςτυαμψξωκ χελτος σοδεςφιτ ώετξοε ξεξυμεχοε ϊξα- ώεξιε, το νοξιτος ξε οώιύαετ χελτος ποσμε πεςχοκ χστςεώεξ- ξοκ μοχυϋλι. τεν σανων χοϊνοφξα ςελυςσιρ πςοηςαννω. 9.8.4.2. μοχυϋλι 4, 10 ι FPU νοξιτος οβεσπεώιχαετ ϊαύιτυ χελτοςοχ σιστενξωθ μοχυϋελ 4 ι 10 ι μοχυϋελ FPU, ώτο ποϊχομρετ πομψϊοχατεμΰ πςινεξρτψ σοβστχεξξωε πςοηςαννω οβςαβοτλι μοχυϋελ. ναλςολοναξδω .TRPSET ι .SFPA ποϊχομρΰτ πομψϊοχατεμψσλοκ πςοηςαννε υστα- ξαχμιχατψ αδςεσα πςοηςανν οβςαβοτλι μοχυϋελ, ξε ιϊνεξρρ σιστενξυΰ ιμι πομψϊοχατεμψσλυΰ οβμαστι χιςτυαμψξωθ χελτο- ςοχ. ότι δχε ναλςολοναξδω ζυξλγιοξιςυΰτ θν-νοξιτοςε ταλφε, λαλ ι χ FB-νοξιτοςε. ταλιν οβςαϊον, εσμι υλαϊαξ αδςεσ πομψ- ϊοχατεμψσλοκ πςοηςαννω οβςαβοτλι μοχυϋλι πςι χωπομξεξιι ναλςολοναξδω, το νοξιτος ϊαηςυφαετ ότυ ιξζοςναγιΰ χ σνεϋαξ- ξυΰ οβμαστψ ϊαδαξιρ. ξα χωθοδε νοξιτος οώιύαετ ότοτ αδςεσ χ σνεϋαξξοκ οβμαστι, ποότονυ πομψϊοχατεμψσλαρ πςοηςαννα οβςα- βοτλι μοχυϋλι δομφξα πεςευσταξοχιτψ ότυ οβμαστψ πεςεδ χοϊχ- ςατον χ οσξοχξυΰ πςοηςαννυ, χωπομξιχ μιβο ναλςολοναξδυ .TRPSET, μιβο ναλςολοναξδυ .SFPA. - 493 - 9.8.4.3. οϋιβλι δισπετώεςα πανρτι οϋιβλα δισπετώεςα πανρτι χοϊξιλαετ, εσμι πςοηςαννα σσωμαετσρ λ χιςτυαμψξονυ αδςεσυ, λοτοςωκ ξε οτοβςαφεξ ξα ζιϊιώεσλυΰ ρώεκλυ. εσμι οϋιβλα δισπετώεςα πανρτι χοϊξιλμα πςι ςαβοτε χ σιστενξον ςεφινε, το πςοισθοδιτ οσταξοχ σιστε- νω. εσμι οϋιβλα δισπετώεςα πανρτι χοϊξιλμα χ πομψϊοχατεμψσ- λον ςεφινε, νοξιτος σχρϊωχαετσρ σ μοχυϋλοκ ώεςεϊ σιστενξωκ χελτος ι οβεσπεώιχαετ ξοχων PS ι PC ιϊ οβμαστι χιςτυαμψξοηο χελτοςα πομψϊοχατεμρ. λοηδα νοξιτος χωβςαμ σοδεςφινοε χις- τυαμψξοηο χελτοςα ϊαδαξιρ, οξ οώιύαετ εηο. εσμι χοϊξιλαετ χτοςαρ οϋιβλα ι χιςτυαμψξωκ χελτος ςαχεξ ξυμΰ, νοξιτος πεώαταετ σοοβύεξιε: ?MON-F-MMU FAULT ι υδαμρετ ϊαδαξιε. ώτοβω ποϊχομιτψ ςελυςσιΰ, πςοηςαννα οβςαβοτλι μοχυϋλι δομφξα ποχτοςξο υσταξοχιτψ χελτος οϋιβλι δισπετώεςα πανρτι (ρώεκλι 250 ι 252) χ οβμαστι χιςτυαμψξωθ χελτοςοχ ϊαδαξιρ. εσμι ςαϊςεϋαετσρ αχτονατιώεσλαρ ςελυςσιρ, το πςοηςαννα νοφετ ϊαγιλμιτψσρ ξα οϋιβλε δισπετώεςα πανρτι δο τεθ πος, πολα ξε βυδετ οσταξοχμεξ πςογεσσος. 9.8.4.4. οϋιβλι παςιτετα πανρτι ξελοτοωε τιπω οπεςατιχξοκ πανρτι ποϊχομρΰτ σιστενε χωπομξρτψ πςοχεςλυ ξα ξαμιώιε οϋιβλι παςιτετα πανρτι. ότο σπεγιαμψξοε σχοκστχο πςοχεςλι παςιτετα πανρτι χωβιςαετσρ χο χςενρ ηεξεςαγιι σιστενω. εσμι ινεετσρ αππαςατυςα παςιτετα πανρτι, ξο χο χςενρ ηεξεςαγιι ξε χωβςαξο σχοκστχο πςοχεςλι παςιτετα πανρτι, οϋιβλα παςιτετα πανρτι χωϊοχετ οσταξοχ σιστενω. δμρ σιστεν, οβεσπεώιχαΰύιθ πςοχεςλυ παςιτετα πανρτι, πςογεδυςα σιξθςοξξοκ σιστενξοκ μοχυϋλι ποθοφα ξα πςογεδυςυ δμρ οϋιβολ δισπετώεςα πανρτι. ταλιν οβςαϊον, νοξιτος οβςα- ύαετσρ λ μοχυϋλε ώεςεϊ σιστενξωκ χελτος χ ζιϊιώεσλιθ αδςε- σαθ 114 ι 116. ϊατεν, οξ χωβιςαετ σοδεςφινοε χιςτυαμψξωθ αδςεσοχ πομψϊοχατεμψσλοκ πςοηςαννω 114 ι 116, οώιύαετ ιθ ι πεςεδαετ υπςαχμεξιε πομψϊοχατεμψσλοκ πςοηςαννε οβςαβοτλι μοχυϋλι, οσξοχωχαρσψ ξα ξοχωθ PS ι PC. εσμι πςοισθοδιτ ποχτοςξαρ οϋιβλα παςιτετα πανρτι ι χιςτυαμψξωκ χελτος ςαχεξ 0, πεώαταετσρ σοοβύεξιε ?MON-F-MEM ERR ι ϊαδαξιε υδαμρετσρ. ώτοβω ποϊχομιτψ ςελυςσιΰ, πομψϊοχατεμψσλαρ πςοηςαννα οβςαβοτλι μοχυϋλι δομφξα χοσσταξοχιτψ σοδεςφινοε χελτοςα οϋιβλι παςιτετα πανρτι χ χιςτυαμψξωθ αδςεσαθ 114 ι 116. - 494 - 9.9. οτμαδλα πςοηςανν δμρ οτμαδλι χιςτυαμψξοηο ιμι πςιχιμεηιςοχαξξοηο ϊαδα- ξιρ χ σιστενε σ XM-νοξιτοςον ισπομψϊυετσρ σιστενξαρ πςοη- ςαννα VDT. εε νοφξο πςινεξρτψ ταλφε χ RM/SJ/FB-νοξιτοςαθ, α ταλφε χ νξοηοτεςνιξαμψξωθ σιστεναθ. VDT.OBJ ισπομψϊυετσρ αξαμοηιώξο ODT.OBJ; εε ξεοβθοδινο σλονποξοχατψ σ πςοηςαννοκ, λοτοςυΰ ξυφξο οτμαδιτψ. αδςεσ πεςεδαώι δμρ VDT ταλοκ φε, λαλ ι δμρ ODT. VDT ξε σοδεςφιτ πςοηςανν δμρ οβσμυφιχαξιρ πςεςωχαξικ ιμι πςιοςιτετα, λαλ ODT. χ οτμιώιε οτ ODT, λοτοςαρ χωπομ- ξρετσρ ξα 7 πςιοςιτετε ι χωπομξρετ σχοκ σοβστχεξξωκ χχοδ/χωχοδ ξα τεςνιξαμ, VDT ςαβοταετ σ ταλιν φε πςιοςιτε- τον, λαλ ι πομψϊοχατεμψσλαρ πςοηςαννα, ι ισπομψϊυετ σιστεν- ξωε ναλςολοναξδω .TTYIN ι .TTYOUT δμρ χωπομξεξιρ χχοδα/χωχοδα ξα τεςνιξαμ. τ.λ. VDT ισπομψϊυετ ναλςολοναξδω .TTYIN ι .TTYOUT, το εε νοφξο ϊαπυσλατψ σ λοξσομψξοηο τεςνιξαμα ϊαδαξιρ. ποσ- λομψλυ VDT ιϊνεξρετ σοδεςφινοε σμοχα σοστορξιρ ϊαδαξιρ (JSW), οξα δομφξα θςαξιτψ εηο πεςχοξαώαμψξοε σοδεςφινοε ηδε-μιβο χ δςυηον νεστε. δμρ πομυώεξιρ πεςχοξαώαμψξοηο σοδεςφινοηο JSW νοφξο ισπομψϊοχατψ λοναξδυ $J/; εηο νοφξο ταλφε νοδιζιγιςοχατψ. VDT χωπομξρετσρ χ πομψϊοχατεμψσλον, α ξε χ σιστενξον ςεφινε πςογεσσοςα. πςι οτμαδλε χιςτυαμψξοηο ϊαδαξιρ σ VDT, ινεετσρ δοστυπ τομψλο λ οβμαστι ϊαδαξιρ. ξετ δοστυπα λ ϊαύιύεξξων οβμαστρν σιστενω, ταλιν λαλ νοξιτος, χελτοςω ι στςαξιγα χχοδα/χωχοδα. λοηδα οτμαφιχαετσρ πςιχιμεηιςοχαξξοε ϊαδαξιε σ VDT, ινεετσρ δοστυπ λ ταλοκ φε πανρτι, λαλ ι υ οτσμεφιχαενοηο ϊαδαξιε. 9.10. πςινες πςοηςαννω ; πςινες πςοηςαννω δμρ ςαβοτω σ ςασϋιςεξξοκ πανρτψΰ .TITLE XMCOPY .ENABL LC ;ότοτ πςινες ισπομψϊυετ ναλςολοναξδω ςασϋιςεξξοκ ;πανρτι. πςοηςαννα λοπιςυετ ζακμω ι πςοχεςρετ ;ςεϊυμψτατ λοπιςοχαξιρ. δμρ ςαβοτω οξα ισπομψϊυετ ;4-λσμοχξωκ βυζες χ ςασϋιςεξξοκ πανρτι. .NLIST BEX .MCALL .UNMAP, .ELRG, .ELAW, .CRRG, .CRAW, .MA .MCALL .PRINT, .EXIT, .CLOSE, .CSIGEN,.READW, .WR .MCALL .RDBBK, .WDBBK, .TTYOUT,.WDBDF, .RDBDF JSW = 44 ;σμοχο σοστορξιρ ϊαδαξιρ JS J.VIRT = 2000 ;βιτ χιςτυαμψξοηο ϊαδαξιρ ;χ JSW ERRBYT = 52 ;βακτ οϋιβλι APR = 2 ;ςα/ςο δμρ πεςχοηο ολξα - 495 - APR1 = 4 ;ςα/ςο δμρ χτοςοηο ολξα BUF = WDB+W.NBAS ;χιςτυαμψξωκ αδςεσ πεςχοηο ;βυζεςα BUF1 = WDB1+W.NBAS ;χιςτυαμψξωκ αδςεσ χτοςοηο ;βυζεςα CORSIZ = 4096. ;ςαϊνες βυζεςα χ σμοχαθ PAGSIZ = CORSIZ/256. ;ςαϊνες στςαξιγω χ βμολαθ WRNID = WDB+W.NRID ;αδςεσ πεςχοκ οβμαστι WRNID1 = WDB1+W.NRID ;αδςεσ χτοςοκ οβμαστι .ASECT .= JSW .WORD J.VIRT ;σδεματψ ϊαδαξιε χιςτυαμψξω .PSECT ;ξαώαμο λοδα .WDBDF ;σοϊδατψ βμολ οπισαξιρ ολξα .RDBDF ;ι οπισαξιρ οβμαστι START:: .CSIGEN #ENDCRE,#DEFLT,#0 ;πομυώιτψ σπεγιζιλαγιΰ ;ζακμοχ, δςακχεςοχ ι οτλςωτ ;ζακμω BCS START ;πεςεθοδ πο οϋιβλε INCB ERRNO ;ERR = 1X .CRRG #CAREA,#RDB ;σοϊδατψ οβμαστψ BCC 10$ ;υσπεϋξοε ϊαχεςϋεξιε JMP ERROR ;σοοβύιτψ οβ οϋιβλε 10$: MOV RDB,WRNID ;ϊασματψ ID οβμαστι χ βμολ ;οπισαξιρ ολξα INCB ERRNO ;ERR = 2X .CRAW #CAREA,#WDB ;σοϊδατψ ολξο BCC 20$ ;υσπεϋξοε ϊαχεςϋεξιε JMP ERROR ;σοοβύιτψ οβ οϋιβλε 20$: INCB ERRNO ;ERR = 3X .MAP #CAREA,#WDB ;ρχξο οτοβςαϊιτψ ολξο BCC 30$ ;υσπεϋξοε ϊαχεςϋεξιε JMP ERROR ;σοοβύιτψ οβ οϋιβλε 30$: CLR R1 ;R1 - ξονες βμολα δμρ χ/χ MOV #CORSIZ,R2 ;R2 - ώισμο σμοχ δμρ ώτεξιρ INCB ERRNO ;ERR = 4X READ: .READW #RAREA,#3,BUF,R2,R1 ;ώιτατψ 4λ-σμοχξωε ;βμολι BCC WRITE ;υσπεϋξοε ϊαχεςϋεξιε TSTB @#ERRBYT ;λοξεγ ζακμα ? BEQ PASS2 ;πεςεκτι, εσμι δα JMP ERROR ;ηςυβαρ οϋιβλα, ;σοοβύιτψ ο ξεκ WRITE: MOV R0,R2 ;R2 - ςαϊνες βυζεςα .WRITW #RAREA,#0,BUF,R2,R1 ;ϊαπισατψ χωθοδξοκ ;βυζες BCC ADDIT ;υσπεϋξοε ϊαχεςϋεξιε INCB ERRNO ;ERR = 5X JMP ERROR ;σοοβύιτψ οβ οϋιβλε ADDIT: ADD #PAGSIZ,R1 ;σλοςςελτιςοχατψ ξονες ;βμολα, ϊατεν BR READ ;πεςεκτι λ δςυηονυ βυζεςυ PASS2: INCB ERRNO ;ERR = 6X .CRRG #CAREA,#RDB1 ;σοϊδατψ οβμαστψ BCC 35$ ;υσπεϋξοε ϊαχεςϋεξιε JMP ERROR ;σοοβύιτψ οβ οϋιβλε 35$: MOV RDB1,WRNID1 ;ϊαξεστι ID οβμαστι χ - 496 - ;βμολ οπισαξιρ ολξα ;** πςινες ισπομψϊοχαξιρ ναλςολοναξδω .CRAW, ** ;** λοτοςαρ ξερχξο χωπομξρετ ναλςολοναξδυ .MAP ** INCB ERRNO ;ERR = 7X .CRAW #CAREA,#WDB1 ;σοϊδατψ ολξο, ισπομψϊυρ ;ξερχξο .MAP BCC VERIFY ;υσπεϋξοε ϊαχεςϋεξιε JMP ERROR ;σοοβύιτψ οβ οϋιβλε VERIFY::INCB ERRNO ;ERR = 8X CLR R1 ;R1 - ξονες βμολα GETBLK: MOV #CORSIZ,R2 ;R2 = 4λ (ςαϊνες βυζεςα) .READW #RAREA,#3,BUF1,R2,R1 ;πςοώιτατψ 4 λσμοχ ;χθοδξοηο ζακμα BCC 40$ ;υσπεϋξοε ϊαχεςϋεξιε TSTB @#ERRBYT ;λοξεγ ζακμα ? BEQ ENDIT ;εσμι δα, πεςεκτι JMP ERROR ;σοοβύιτψ ο ηςυβοκ οϋιβλε 40$: MOV R0,R2 ;R2 - ςαϊνες βυζεςα .READW #RAREA,#0,BUF,R2,R1 ;ποπωτλα πομυώιτψ ζακμ ;ταλοηο φε ςαϊνεςα BCC 50$ ;υσπεϋξοε ϊαχεςϋεξιε INCB ERRNO ;ERR = 9X JMP ERROR ;σοοβύιτψ οβ οϋιβλε 50$: MOV BUF,R4 ;πομυώιτψ αδςεσ χωθοδξοηο ;βυζεςα MOV BUF1,R3 ;πομυώιτψ αδςεσ χθοδξοηο ;βυζεςα 70$: CMP (R4)+,(R3)+ ;πςοχεςιτψ, ώτο δαξξωε ;οδιξαλοχω BNE ERRDAT ;ξετ, σοοβύιτψ οβ οϋιβλε DEC R2 ;ϊαλοξώιμι ? BNE 70$ ;πεςεκτι, εσμι ξετ ADD #PAGSIZ,R1 ;σλοςςελτιςοχατψ ξονες βμολ BR GETBLK ;πομυώιτψ δςυηυΰ παςυ ;βυζεςοχ ENDIT: .PRINT #ENDPRG ;πεώατψ σοοβύεξιρ οβ ;ολοξώαξιι XCLOS: .CLOSE #0 ;ϊαλςωτψ χωθοδξοκ ζακμ .UNMAP #CAREA,#WDB ;ρχξο οτνεξιτψ πεςχοε ολξο .ELAW #CAREA,#WDB ;ρχξο υστςαξιτψ πεςχοε ολξο .ELRG #CAREA,#RDB ;υστςαξιτψ πεςχυΰ οβμαστψ .ELRG #CAREA,#RDB1 ;οτνεξιτψ οτοβςαφεξιε ;χτοςοηο ολξα ι υστςαξιτψ ;χτοςυΰ οβμαστψ .EXIT ;ϊαχεςϋιτψ πςοηςαννυ ERROR: MOVB @#ERRBYT,R0 ;χωδεμιτψ βακτ δμρ λοδα ;οϋιβλι, ADD #'0,R0 ;πςεοβςαϊοχατψ χ λοι-7, MOVB R0,ERRNO+1 ;ϊαηςυϊιτψ εηο χ σοοβύεξιε .PRINT #ERR ;οβ οϋιβλε ι ςασπεώατατψ BR XCLOS ;πεςεκτι ξα ϊαλςωτιε ;χωθοδξοηο ζακμα ERRDAT: .PRINT #ERRBUF ;σοοβύιτψ ο σβοε πςι ;πςοχεςλε BR XCLOS ;πεςεκτι ξα ϊαλςωτιε - 497 - ;χωθοδξοηο ζακμα RDB: .RDBBK CORSIZ/32. ;οπςεδεμιτψ βμολ ;οπισαξιρ οβμαστι WDB: .WDBBK APR,CORSIZ/32. ;οπςεδεμιτψ βμολ ;οπισαξιρ ολξα RDB1: .RDBBK CORSIZ/32. ;οπςεδεμιτψ χτοςυΰ οβμαστψ ;ταλιν φε σποσοβον WDB1: .WDBBK APR1,CORSIZ/32.,0,0,CORSIZ/32.,WS.MAP ;ι χτοςοε ολξο CAREA: .BLKW 2. ;βμολ αςηυνεξτοχ EMT RAREA: .BLKW 6 DEFLT: .WORD 0,0,0,0 ;τιπ ζακμα ξε οπςεδεμεξ ENDPRG: .ASCIZ /* λοξεγ πςοηςαννω θνCOPY */ ERR: .ASCII %? οϋιβλα χ ναλςολοναξδε ιμι οϋιβλα χ/χ % ERRNO: .ASCIZ /00/ ERRBUF: .ASCIZ /? οϋιβλα πςι πςοχεςλε δαξξωθ ?/ ENDCRE = . .END START - 498 - πςιμοφεξιε 1 πςοηςαννξοε υπςαχμεξιε τεςνιξαμον (TS) πςοηςαννα πομψϊοχατεμρ, χωπομξρΰύαρσρ ποδ υπςαχμεξιεν TS-νοξιτοςα, νοφετ διξανιώεσλι ιϊνεξρτψ παςανετςω δςακχεςα, υπςαχμρΰύεηο τεςνιξαμον, πυτεν χωχοδα ξα τεςνιξαμ σπεγιαμψ- ξοηο "χεδυύεηο" ϊξαλα (λοδ 177), α ϊατεν - οδξοηο ιμι βομεε ζυξλγιοξαμψξωθ ϊξαλοχ. ϊξαλ, σμεδυΰύικ ϊα "χεδυύιν", οπςε- δεμρετ λοναξδυ, λοτοςαρ δομφξα βωτψ χωπομξεξα. δοπυστινω σμεδυΰύιε ζυξλγιοξαμψξωε ϊξαλι: A - οπςεδεμιτψ ξοχωκ ϊξαλ ϊαπομξιτεμρ δμρ υδαμρενωθ σινχομοχ (σ πονούψΰ ι ); B - ςαϊςεϋιτψ αλτιχαγιΰ ϊαδαξιρ πςι χχοδε -ποσμεδοχατεμψξοστεκ; C - ϊαπςετιτψ αλτιχαγιΰ ϊαδαξιρ πςι χχοδε -ποσμεδοχατεμψξοστεκ; D - οπςεδεμιτψ ξοχωκ ϊξαλ αλτιχαγιι (χ δοπομξεξιε λ ); P - χεςξυτψσρ λ πεςχοξαώαμψξονυ ϊξαλυ αλτιχαγιι (ϊξαλ ); E - ςαϊςεϋιτψ όθο-πεώατψ χχοδινωθ ϊξαλοχ (ςεφιν πο υνομώαξιΰ); F - ϊαπςετιτψ όθο-πεώατψ χχοδινωθ ϊξαλοχ; H - ϊαπςετιτψ πεςελμΰώεξιε ξα δςυηυΰ χιςτυαμψξυΰ μιξιΰ; I - ςαϊςεϋιτψ χχοδ βυλχ λιςιμμιγω; J - ϊαπςετιτψ χχοδ βυλχ λιςιμμιγω; K - υσταξοχιτψ ςεφιν "λοσχεξξοκ" όθο-πεώατι; L - ϊαπςετιτψ ςεφιν "λοσχεξξοκ" όθο-πεώατι; M - υσταξοχιτψ "πςοϊςαώξωκ" ςεφιν χωχοδα ξα τεςνιξαμ; N - πςιοσταξοχιτψ χχοδ ιϊ λοναξδξοηο ζακμα; O - χοϊοβξοχιτψ χχοδ ιϊ λοναξδξοηο ζακμα; Q - υσταξοχιτψ ςεφιν αλτιχαγιι πο δμιξε χχοδινοκ στςο- λι; - 499 - R - χλμΰώιτψ χωσολοόζζελτιχξωκ ςεφιν ςαβοτω τεςνιξαμα; S - χλμΰώιτψ ςεφιν ποϊξαώξοκ αλτιχαγιι; T - χωλμΰώιτψ ςεφιν ποϊξαώξοκ αλτιχαγιι; U - ςαϊςεϋιτψ χχοδ βεϊ οφιδαξιρ; V - υσταξοχιτψ δμιξυ χχοδινοκ στςολι; W - χλμΰώιτψ "πεςζομεξτοώξωκ" ςεφιν ςαβοτω; X - χωλμΰώιτψ πεςζομεξτοώξωκ ςεφιν ςαβοτω; Y - ϊαπςετιτψ όθο-πεώατψ ϊξαλα ποσμε ; Z - ςαϊςεϋιτψ όθο-πεώατψ ϊξαλα ποσμε . χσε πεςεώισμεξξωε ζυξλγιοξαμψξωε ϊξαλι ρχμρΰτσρ δεκστ- χιτεμψξωνι τομψλο ξα χςενρ χωπομξεξιρ πςοηςαννω. ποσμε ϊαχεςϋεξιρ χωπομξεξιρ πςοηςαννω χσεν παςανετςαν πςισχαι- χαΰτσρ ιθ ϊξαώεξιρ πο υνομώαξιΰ. παςανετςω σοθςαξρΰτ ϊξαώε- ξιε πςι πεςεδαώε υπςαχμεξιρ δςυηοκ πςοηςαννε πο .CHAIN. 1. οπςεδεμεξιε ϊξαλα ϊαπομξιτεμρ (A) εσμι πςι ςαβοτε ισπομψϊυετσρ τεςνιξαμ όλςαξξοηο τιπα, το πςι ξαφατιι λμιχιϋι TS-νοξιτος υδαμρετ ποσμεδξικ χχεδεξξωκ σ λμαχιατυςω σινχομ ποσςεδστχον χωχοδα ποσμεδοχα- τεμψξοστι σινχομοχ . πςι ότον υδαμρενωκ ϊξαλ ϊανεξρετσρ πςοβεμον. αξαμοηιώξων οβςαϊον οτοβςαφαετσρ δεκστχιε λοναξδω , οτνεξρΰύεκ χσΰ χχεδεξξυΰ στςολυ. πςιλμαδξωε πςοηςαννω, ςαβοταΰύιε χ όλςαξξον ςεφινε νοηυτ ισπομψϊοχατψ χνεστο πςοβεμα δςυηιε ϊξαλι, ξαπςινες, "_" (ποδώεςλιχαξιε), δμρ υλαϊαξιρ ϋιςιξω πομρ, λοτοςοε δομφξο βωτψ ϊαπομξεξο πομψϊοχατεμεν σ λμαχιατυςω. χ ότον σμυώαε φεματεμψξο, ώτοβω οτοβςαφεξιε οσυύεστχμρμοσψ ποσμε- δοχατεμψξοστψΰ: <ϊξαλ ϊαπομξιτεμρ> δμρ οπςεδεμεξιρ ξοχοηο ϊξαλα ϊαπομξιτεμρ ξαδο χωχεστι ξα τεςνιξαμ ποσμεδοχατεμψξοστψ: <χεδυύικ ϊξαλ><ϊξαλ-ϊαπομξιτεμψ>. 2. αλτιχαγιρ πο ESC-ποσμεδοχατεμψξοστι (B,C) ξελοτοςωε τιπω τεςνιξαμοχ ινεΰτ ξαβος ζυξλγιοξαμψξωθ λμαχιϋ (στςεμλι ι πςοώιε ηςαζιώεσλιε ϊξαλι). πςι ξαφατιι ξα ταλυΰ λμαχιϋυ χωςαβατωχαετσρ -ποσμεδοχατεμψξοστψ, πες- χωκ ϊξαλ λοτοςοκ ινεετ λοδ 33 (χοσψνεςιώξοε) - σινχομ . B-ζυξλγιρ πεςεχοδιτ TS-νοξιτος χ ςεφιν αλτιχαγιι πςι χχοδε σ λμαχιατυςω -ποσμεδοχατεμψξοστι. χ ότον σμυώαε όθο-πεώατψ -ποσμεδοχατεμψξοστι ξε πςοιϊχοδιτσρ, θοτρ σανα οξα πεςεδαετσρ πςοηςαννε. C-ζυξλγιρ ϊαπςεύαετ ισπομψϊοχαξιε - ποσμεδοχα- - 500 - τεμψξοστι χ λαώεστχε σινχομοχ αλτιχαγιι, τ.ε. χσε ϊξαλι -ποσμεδοχατεμψξοστι οβςαβατωχαΰτσρ TS-νοξιτοςον λαλ οβωώξωε σινχομω. C-ζυξλγιρ σώιταετσρ ϊαδαξξοκ πο υνομώαξιΰ. 3. οπςεδεμεξιε ξοχοηο ϊξαλα αλτιχαγιι (D) χ οβωώξον ςεφινε ςαβοτω TS-νοξιτος ξε πεςεδαετ πςοη- ςαννε στςολυ, χχεδεξξυΰ σ τεςνιξαμα, πολα ξε βυδετ χχεδεξ ϊξαλ αλτιχαγιι, ξαπςινες, . σ πονούψΰ D-ζυξλγιι πςοη- ςαννα πομψϊοχατεμρ νοφετ οπςεδεμιτψ ξαβος δοπομξιτεμψξωθ ϊξαλοχ αλτιχαγιι (χ δοπομξεξιε λ ). δμρ οπςεδεμεξιρ ξοχοηο ϊξαλα αλτιχαγιι πςοηςαννα δομφ- ξα χωχεστι ξα τεςνιξαμ ποσμεδοχατεμψξοστψ: <χεδυύικ ϊξαλ><ϊξαλ αλτιχαγιι> ναλσιναμψξοε ώισμο ϊξαλοχ αλτιχαγιι, οπςεδεμεξξωθ χ πςοη- ςαννε, ϊαδαετσρ πςι ηεξεςαγιι TS-νοξιτοςα. ισπομψϊυρ δαξξυΰ ζυξλγιΰ, νοφξο μΰβοκ ϊξαλ οβ'ρχιτψ ϊξαλον αλτιχαγιι, χλμΰώαρ , , ι τ.δ. πςι χχοδε σ τεςνιξαμα ϊξαλα αλτιχαγιι όθο-πεώατψ ξε πςοιϊ- χοδιτσρ, ι οξ πονεύαετσρ χ βυζες χχοδα. ποσμε ότοηο χσρ χχεδεξξαρ στςολα, χλμΰώαρ ϊξαλ αλτιχαγιι, πεςεδαετσρ πςοη- ςαννε. εσμι οπςεδεμιτψ χ λαώεστχε ϊξαλα αλτιχαγιι, το TS-νοξιτος πεςεσταετ ςασποϊξαχατψ εηο χ λαώεστχε υπςαχ- μρΰύεηο σινχομα δμρ ϊαχεςϋεξιρ πςοηςαννω. εσμι οπςεδεμιτψ χ λαώεστχε ϊξαλα αλτιχαγιι, το TS-νοξιτος πςελςατιτ εηο όθο-πεώατψ ι ξε βυδετ δοπομξρτψ εηο ϊξαλον χ βυζεςε στςολι, πεςεδαχαενοκ πςοηςαννε πομψϊοχατεμρ. 4. υπςαχμεξιε όθο-πεώατψΰ (E, F) E-ζυξλγιρ πςεδξαϊξαώεξα δμρ ςαϊςεϋεξιρ όθο-πεώατι ϊξα- λοχ, χχοδινωθ σ λμαχιατυςω (σώιταετσρ ϊαδαξξοκ πο υνομώα- ξιΰ). F-ζυξλγιρ πςελςαύαετ όθο-πεώατψ ϊξαλοχ, χχοδινωθ σ τεςνιξαμα. 5. ϊαπςετ πεςελμΰώεξιρ ξα χιςτυαμψξυΰ μιξιΰ (H) H-ζυξλγιρ ϊαπςεύαετ πεςελμΰώεξιε σ οδξοκ χιςτυαμψξοκ μιξιι ξα δςυηυΰ. 6. χχοδ ϊξαλοχ λιςιμμιγω (I, J) I-ζυξλγιρ ςαϊςεϋαετ χχοδ ϊξαλοχ λιςιμμιγω (ϊξαλι, ινεΰύιε λοδω βομεε 137 χ χοσψνεςιώξοκ σιστενε σώισμεξιρ) χ πςοηςαννυ. J-ζυξλγιρ χωϊωχαετ πςεοβςαϊοχαξιε ϊξαλοχ λιςιμ- μιγω χ σοοτχετστχυΰύιε ματιξσλιε, τ.ε. ιϊ λοδα ϊξαλα χωώι- ταετσρ 40 (χοσψνεςιώξοε). - 501 - 7. υπςαχμεξιε ςεφινον όθο-πεώατι (K, L) K-ζυξλγιρ πεςεχοδιτ TS-νοξιτος χ ςεφιν "λοσχεξξοκ" όθο-πεώατι στςολ, ξαβιςαενωθ ξα λμαχιατυςε. χ ότον ςεφινε χχεδεξξαρ ιξζοςναγιρ οτοβςαφαετσρ ξα όλςαξε τομψλο τοηδα, λοηδα πςοηςαννα οφιδαετ χχοδα σ τεςνιξαμα. χχοδιναρ ιξζος- ναγιρ ξε τεςρετσρ, α ξαλαπμιχαετσρ χ βυζεςε τεςνιξαμα. L-ζυξλγιρ ϊαπςεύαετ ςεφιν "λοσχεξξοκ" όθο-πεώατι, τ.ε. πεςεχοδιτ TS-νοξιτος χ ςεφιν ξεποσςεδστχεξξοκ όθο-πεώατι, λοηδα χχοδινωε σινχομω σςαϊυ φε οτοβςαφαΰτσρ ξα όλςαξε τες- νιξαμα. 8. ςεφιν "πςοϊςαώξοηο" χωχοδα (M) M-ζυξλγιρ υσταξαχμιχαετ ςεφιν "πςοϊςαώξοηο" χωχοδα. χ ότον ςεφινε TS-νοξιτος πεςεδαετ χσε ϊξαλι ξα τεςνιξαμ, ξε χωπομξρρ ξιλαλιθ πςοχεςολ ι/ιμι πςεοβςαϊοχαξικ. χ ότον ςεφινε πςοηςαννα πομψϊοχατεμρ νοφετ πεςεδατψ ξα τεςνιξαμ μΰβοκ 7-βιτξωκ λοδ. πςινεώαξιε. ποσμε τοηο, λαλ υσταξοχμεξ ςεφιν "πςοϊςαώ- ξοηο" χωχοδα, εδιξστχεξξοκ χοϊνοφξοστψΰ οτνεξιτψ εηο ρχμρετσρ ϊαχεςϋεξιε πςοηςαννω ι πεςεδαώα υπςαχμεξιρ KMON. 9. χχοδ ιϊ λοναξδξοηο ζακμα (N, O) εσμι πςοηςαννα ϊαπυύεξα ξα χωπομξεξιε ιϊ λοναξδξοηο ζακμα, το χσρ ιξζοςναγιρ, λοτοςαρ δομφξα βωμα χχοδιτψσρ σ τεςνιξαμα, βυδετ ιϊχμελατψσρ ιϊ λοναξδξοηο ζακμα. οδξαλο, χ ξελοτοςωθ σμυώαρθ βωχαετ πομεϊξο πςοηςαννε, ϊαπυύεξξοκ ιϊ λοναξδξοηο ζακμα, χχοδιτψ ξελοτοςωε δαξξωε σ τεςνιξαμα, α ξε ιϊ λοναξδξοηο ζακμα. N-ζυξλγιρ ποϊχομρετ πεςελμΰώιτψ χχοδ ιϊ λοναξδξοηο ζακμα ξα χχοδ σ τεςνιξαμα. O-ζυξλγιρ χοϊχςαύαετ λ πςεδωδυ- ύενυ σοστορξιΰ, ι χχοδ δαξξωθ βυδετ πςοιϊχοδιτψσρ ιϊ λοναξδξοηο ζακμα. 10. οτνεξα ϊξαλα αλτιχαγιι (P) P-ζυξλγιρ χωπομξρετ οβςατξυΰ οπεςαγιΰ πο οτξοϋεξιΰ λ D-ζυξλγιι. οξα ποϊχομρετ οτλαϊατψσρ οτ ισπομψϊοχαξιρ ϊξαλα αλτιχαγιι, λοτοςωκ βωμ ςαξεε οπςεδεμεξ σ πονούψΰ D-ζυξλγιι. P-ζυξλγιρ νοφετ οτνεξρτψ τομψλο τε ϊξαλι αλτιχαγιι, λοτοςωε βωμι ςαξεε οπςεδεμεξω σ πονούψΰ D-ζυξλγιι. 11. αλτιχαγιρ πο δμιξε χχοδινοκ στςολι (Q) Q-ζυξλγιρ ποϊχομρετ πςοηςαννε ϊαδατψ ταλυΰ δμιξυ χχο- δινοκ στςολι, πςι λοτοςοκ πςοιϊοκδετ αλτιχαγιρ πςοηςαννω (λαλ πςι χχοδε ϊξαλα αλτιχαγιι). δμιξα στςολι ϊαδαετσρ ποσμεδοχατεμψξοστψΰ:<χεδυύικ ϊξαλ><δμιξα>, ηδε "δμιξα" ρχμρετσρ ϊξαλον, δχοιώξωκ λοδ λοτοςοηο σοοτχετστχυετ τςε- βυενοκ δμιξε στςολι. - 502 - εσμι χχεδεξ ϊξαλ αλτιχαγιι, α στςολα πομξοστψΰ ξε ϊαπομξεξα, το πςοηςαννα βυδετ πεςεχεδεξα χ ςεφιν αλτιχαγιι πο δαξξονυ ϊξαλυ. πςι ότον ςεφιν αλτιχαγιι πο δμιξε στςολι σβςασωχαετσρ. ταλιν οβςαϊον, πεςεδ λαφδοκ οπεςαγιεκ χχοδα σ τεςνιξαμα σμεδυετ ισπομψϊοχατψ Q-ζυξλγιΰ. 12. χωσολοόζζελτιχξωκ ςεφιν ςαβοτω (R) R-ζυξλγιρ πεςεχοδιτ TS-νοξιτος χ χωσολοόζζελτιχξωκ ςεφιν ςαβοτω τεςνιξαμα. γεμψΰ δαξξοηο ςεφινα ρχμρετσρ ναλ- σιναμψξοε σξιφεξιε ϊατςατ χςενεξι πςογεσσοςα ξα ςαϊμιώξωε πςοχεςλι πςι οβνεξε σ τεςνιξαμον. πςι ότον ϊαπςεύεξα ιμι οτσυτστχυετ χοϊνοφξοστψ υπςαχμεξιρ παςανετςανι τεςνιξαμα σ πονούψΰ ζυξλγικ, οπισωχαενωθ χ δαξξον πςιμοφεξιι. χσε ϊξαλι, πομυώαενωε σ τεςνιξαμα, ξε οβςαβατωχαΰτσρ σπεγιαμψξων οβςαϊον. ότο λασαετσρ , , ι T.δ. πεςεδ πεςεθοδον χ δαξξωκ ςεφιν ςαβοτω πςοηςαννα δομφξα οπςεδεμιτψ ϊξαλ αλτιχαγιι σ πονούψΰ D-ζυξλγιι. ότοτ ϊξαλ βυδετ ισπομψϊοχατψσρ δμρ οπςεδεμεξιρ πςιϊξαλα λοξγα χθοδξοκ ϊαπισι πςι χχοδε σ τεςνιξαμα. οπισωχαενωκ ςεφιν ςαβοτω οςιεξτιςοχαξ ξα οβνεξ νεφδυ δχυνρ λονπμελσανι, σοεδιξεξξωνι μιξιεκ σχρϊι, α ταλφε νοφετ βωτψ πομεϊεξ πςι ςαβοτε σ "βμοώξωνι" τεςνιξαμανι, λοτοςωε νοηυτ οβνεξιχατψσρ σ όχν γεμωνι όλςαξανι δαξξωθ. 13. ςεφιν ποϊξαώξοκ αλτιχαγιι (S) S-ζυξλγιρ πεςεχοδιτ πςοηςαννυ πομψϊοχατεμρ χ ςεφιν ποϊξαώξοκ αλτιχαγιι πςι υσταξοχμεξξον βιτε 12 χ σμοχε σοσ- τορξιρ ϊαδαξιρ (JSW). δαξξαρ ζυξλγιρ πο σχοενυ δεκστχιΰ όλχιχαμεξτξα ϊαπυσλυ πςοηςαννω πο λοναξδε R ιμι RUN σ λμΰώον /SINGLECHAR. 14. χωλμΰώεξιε ποϊξαώξοκ αλτιχαγιι (τ) T-ζυξλγιρ οτνεξρετ δεκστχιε S-ζυξλγιι ι πεςεχοδιτ πςοηςαννυ χ ξοςναμψξωκ ςεφιν αλτιχαγιι (πο ϊξαλυ ). 15. ςεφιν χχοδα βεϊ οφιδαξιρ (U) U-ζυξλγιρ πεςεχοδιτ πςοηςαννυ χ ςεφιν χχοδα βεϊ οφιδα- ξιρ πςι υσταξοχμεξξον βιτε 6 χ σμοχε σοστορξιρ ϊαδαξιρ (JSW). χ ότον ςεφινε πςοηςαννα ινεετ χοϊνοφξοστψ πςοχεςρτψ ξαμιώιε χχεδεξξοκ σ τεςνιξαμα ιξζοςναγιι σ πονούψΰ ναλςολο- ναξδω .TTINR ι βιτα "C" χ σμοχε σοστορξιρ πςογεσσοςα. λοναξδα νοξιτοςα SET TT NOWAIT, α ταλφε ϊαπυσλ πςοη- ςαννω σ λμΰώον /SINGLECHAR χωπομξρΰτ αξαμοηιώξωε δεκστχιρ. 16. υσταξοχλα δμιξω χχοδινοκ στςολι (V) V-ζυξλγιρ ποϊχομρετ χ πςοηςαννε ϊαδατψ ναλσιναμψξυΰ δμιξυ στςολι χχοδα (ϋιςιξυ πομρ ξα όλςαξε τεςνιξαμα). ζος- νατ V-ζυξλγιι πομξοστψΰ αξαμοηιώεξ Q-ζυξλγιι. - 503 - χ οτμιώιε οτ Q-ζυξλγιι, λοτοςαρ υσταξαχμιχαετ δμιξυ στςολι, πςιχοδρύεκ λ αλτιχαγιι πςοηςαννω, V-ζυξλγιρ οπςεδε- μρετ δμιξυ στςολι, πεςεπομξεξιε λοτοςοκ πςιχοδιτ λ οτβςασω- χαξιΰ (ποτεςε) ποσμεδυΰύιθ χχοδινωθ ϊξαλοχ. 17. πεςζομεξτοώξωκ ςεφιν ςαβοτω (W, X) W-ζυξλγιρ πεςεχοδιτ TS-νοξιτος χ ςεφιν πεςζομεξτοώξοκ ςαβοτω, α X-ζυξλγιρ οτνεξρετ ςεφιν πεςζοςμεξτοώξοκ ςαβοτω. δαξξωκ ςεφιν νοφετ ισπομψϊοχατψσρ, εσμι υστςοκστχο, λ λοτο- ςονυ ποδλμΰώεξα μιξιρ ςασποϊξαετ ϊξαλι ι δμρ οσταξοχα ι ϊαπυσλα πεςεδαώι δαξξωθ. πςι δαξξον ςεφινε ςαβοτω TS-νοξιτος χωπομξρετ σμεδυΰ- ύιε δεκστχιρ: - ποσωμαετ , λοηδα χθοδξοκ βυζες ποώτι ϊαπομξεξ (οσταμοσψ νεστα ξε βομεε, ώεν ξα 10 ϊξα- λοχ); - ποσωμαετ , λοηδα χθοδξοκ βυζες οσχοβοδιμ- σρ, α πεςεδ ότιν βωμ ποσμαξ ϊξαλ . δαξξωκ ςεφιν ςαβοτω νοφετ υσταξαχμιχατψσρ λοναξδοκ νοξιτοςα "SET TT TAPE", α σβςασωχατψσρ - "SET TT NOTAPE". 18. όθο-πεώατψ ϊξαλα ποσμε (Y, Z) Y-ζυξλγιρ οτνεξρετ όθο-πεώατψ ϊξαλα ποσμε χχοδα ϊξαλα , λαλ ότο οσυύεστχμρετσρ οβωώξο. πςι ότον χ πςοη- ςαννυ πο-πςεφξενυ πεςεδαΰτσρ ϊξαλι ι . Z-ζυξλγιρ οτνεξρετ δεκστχιε Y-ζυξλγιι ι χοσσταξαχμι- χαετ ξοςναμψξωκ ςεφιν όθο-πεώατι ϊξαλα ποσμε . - 504 - πςιμοφεξιε 2 λαταμοη σιστενξωθ βιβμιοτελ ξιφε πςεδσταχμεξ σπισολ ναλςολοναξδ ι ζυξλγικ σιστεν- ξωθ βιβμιοτελ. δαετσρ σοοτχετστχιε ιθ νεφδυ σοβοκ, α ταλφε χοϊνοφξοστψ ιθ χωπομξεξιρ ποδ υπςαχμεξιεν ςαϊμιώξωθ νοξιτο- ςοχ. πςινεξρΰτσρ σμεδυΰύιε οβοϊξαώεξιρ: + - οπεςαγιρ χωπομξινα ποδ υπςαχμεξιεν δαξξοηο νοξιτο- ςα; * - χοϊνοφξοστψ χωπομξεξιρ οπεςαγιι ϊαχισιτ οτ ηεξεςα- γιι νοξιτοςα; U - οπεςαγιρ χωπομξρετσρ λονποξεξτοκ νοξιτοςα USR ι ξε νοφετ ισπομψϊοχατψσρ χ ποδπςοηςανναθ ϊαχεςϋεξιρ; W - πεςεδ οπεςαγιεκ πςοιϊχοδιτσρ πεςεϊαηςυϊλα λοπιι USR χ πανρτψ; χ σμυώαε RM-νοξιτοςα δαξξαρ οπεςαγιρ οτςαβατωχαετ τομψλο οδιξ ςαϊ πεςεδ χωπομξεξιεν ςαβοτω σ λαταμοηον; - - οπεςαγιρ χωπομξρετσρ λαλ NOP; A - χωπομξεξιε οπεςαγιι πςιχοδιτ λ ηςυβοκ σιστενξοκ οϋιβλε; (1) - ναλςολοναξδω, ισπομψϊυενωε τομψλο δμρ δςακχεςοχ; (2) - ναλςολοναξδω, λοτοςωε ισπομψϊυΰτσρ τομψλο δμρ οπςεδεμεξιρ νξενοξιώεσλιθ οβοϊξαώεξικ ι ταβμιγ. - 505 - ---------------------------------------------------- ζυξλγιρ, ! ναλςο- ! λοδ ! νοξιτος ποδπςο- ! λοναξδα ! EMT !------------------------ ηςαννα ! ! ! RM ! SJ ! FB ! XM ! TS ---------!-----------!-----!----!----!----!----!---- 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 ! 8 ---------!-----------!-----!----!----!----!----!---- ICLOSE ! .CLOSE ! 374 ! +U ! +U ! +U ! +U ! +U IDELET ! .DELETE ! 375 ! *U ! +U ! +U ! +U ! +U IENTER ! .ENTER ! 375 ! *U ! +U ! +U ! +U ! +U IRENAM ! .RENAME ! 375 ! *U ! +U ! +U ! +U ! +U LOOKUP ! .LOOKUP ! 375 ! *U ! +U ! +U ! +U ! +U IRCVD ! .RCVD ! 375 ! A ! A ! + ! + ! A IRCVDC ! .RCVDC ! 375 ! A ! A ! + ! + ! A IRCVDF ! ! ! A ! A ! + ! + ! A IRCVDW ! .RCVDW ! 375 ! A ! A ! + ! + ! A IREAD ! .READ ! 375 ! + ! + ! + ! + ! + IREADC ! .READC ! 375 ! + ! + ! + ! + ! + IREADF ! ! ! + ! + ! + ! + ! + IREADW ! .READW ! 375 ! + ! + ! + ! + ! + ISDAT ! .SDAT ! 375 ! A ! A ! + ! + ! A ISDATC ! .SDATC ! 375 ! A ! A ! + ! + ! A ISDATF ! ! ! A ! A ! + ! + ! A ISDATW ! .SDATW ! 375 ! A ! A ! + ! + ! A ! .TTYIN ! 340 ! * ! + ! + ! + ! + ITTINR ! .TTINR ! 340 ! * ! + ! + ! + ! + ! .TTYOUT ! 341 ! * ! + ! + ! + ! + ITTOUR ! .TTOUTR ! 341 ! * ! + ! + ! + ! + IWAIT ! .WAIT ! 374 ! + ! + ! + ! + ! + IWRITC ! .WRITC ! 375 ! + ! + ! + ! + ! + IWRITE ! .WRITE ! 375 ! + ! + ! + ! + ! + - 506 - ---------!-----------!-----!----!----!----!----!---- 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 ! 8 ---------!-----------!-----!----!----!----!----!---- IWRITF ! ! ! + ! + ! + ! + ! + IWRITW ! .WRITW ! 375 ! + ! + ! + ! + ! + MWAIT ! .MWAIT ! 374 ! A ! A ! + ! + ! A PRINT ! .PRINT ! 351 ! * ! + ! + ! + ! + ICDFN ! .CDFN ! 375 ! *W! +W! + ! + ! - ICHCPY ! .CHCOPY ! 375 ! A ! A ! + ! + ! A ICSTAT ! .CSTAT ! 375 ! A ! A ! + ! + ! + IFREEC ! ! ! + ! + ! + ! + ! + IGETC ! ! ! + ! + ! + ! + ! + ILUN ! ! ! + ! + ! + ! + ! + IREOPN ! .REOPEN ! 375 ! + ! + ! + ! + ! + ISAVES ! .SAVESTATU! 375 ! + ! + ! + ! + ! + PURGE ! .PURGE ! 374 ! + ! + ! + ! + ! + IASIGN ! ! ! + ! + ! + ! + ! + ICSI ! .CSISPC ! 345 ! *U! +U! +U! +U! +U ! .CSIGEN ! 344 ! *U! +U! +U! +U! +U CVTTIM ! ! ! + ! + ! + ! + ! + GTIM ! .GTIM ! 375 ! + ! + ! + ! + ! + ICMKT ! .CMKT ! 375 ! * ! * ! + ! + ! + ! .SDTTM ! 375 ! + ! + ! + ! + ! + ISHED ! ! ! * ! * ! + ! + ! + ISLEEP ! ! ! - ! - ! + ! + ! + ITIMER ! ! ! * ! * ! + ! + ! + ITWAIT ! .TWAIT ! 375 ! - ! - ! + ! + ! + IUNTIL ! ! ! - ! - ! + ! + ! + JTIME ! ! ! + ! + ! + ! + ! + - 507 - ---------!-----------!-----!----!----!----!----!---- 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 ! 8 ---------!-----------!-----!----!----!----!----!---- MRKT ! .MRKT ! 375 ! * ! * ! + ! + ! + SECNDS ! ! ! + ! + ! + ! + ! + TIMASC ! ! ! + ! + ! + ! + ! + TIME ! ! ! + ! + ! + ! + ! + CHAIN ! .CHAIN ! 374 ! + ! + ! + ! + ! + ! .CNFDF(2) ! ! + ! + ! + ! + ! + ! .CNTXSW ! 375 ! - ! - ! + ! + ! - ! .CTRLT(2) ! ! + ! + ! + ! + ! + ! .DATA ! 374 ! + ! + ! + ! + ! + ! .DBLK (2) ! ! + ! + ! + ! + ! + DEVICE ! .DEVICE ! 375 ! - ! - ! + ! + ! * ! .DIR ! ! + ! + ! + ! + ! + ! .EXIT ! 350 ! + ! +U! +U! +U! + GTJB ! .GTJB ! 375 ! + ! + ! + ! + ! + ! .HERR ! 374 ! + ! + ! + ! + ! + ! .HRESET ! 357 ! +W! +U! + ! + ! + IDSTAT ! .DSTATUS ! 342 ! *U! +U! +U! +U! +U IFETCH ! .FETCH ! 343 ! +U! +U! +U! +U! - ! .INTEN ! ! + ! + ! + ! + ! - IQSET ! .QSET ! 353 ! *W! +W! +W! +U! - ISPFN ! .SPFUN ! 375 ! + ! + ! + ! + ! + ISPFNC ! .SPFUN ! 375 ! + ! + ! + ! + ! + ISPFNF ! ! ! + ! + ! + ! + ! + ISPFNW ! .SPFUN ! 375 ! + ! + ! + ! + ! + ITLOCK ! .TLOCK ! 374 ! *U! +U! +U! +U! - ! .JSWDF(2) ! ! + ! + ! + ! + ! + - 508 - ---------!-----------!-----!----!----!----!----!---- 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 ! 8 ---------!-----------!-----!----!----!----!----!---- LOCK ! .LOCK ! 346 ! +U! +U! +U! +U! - ! .MFPS ! ! + ! + ! + ! - ! - ! .MTPS ! ! + ! + ! + ! - ! - ! .POP ! ! + ! + ! + ! + ! + ! .PROTECT ! 375 ! - ! - ! + ! + ! - ! .PUSH ! ! + ! + ! + ! + ! + RCHAIN ! ! ! + ! + ! + ! + ! + RCTRLO ! .RCTRLO ! 355 ! * ! + ! + ! + ! + ! .RELEASE ! 343 ! - ! +U! +U! +U! - ! .ROFDF(2) ! ! + ! + ! + ! + ! + RESUME ! .RSUM ! 374 ! - ! - ! + ! + ! * SCCA ! .SCCA ! 375 ! * ! + ! + ! + ! + ! .SCMDF(2) ! ! + ! + ! + ! + ! + ! .SERR ! 374 ! + ! + ! + ! + ! + SETCMD ! ! ! - ! + ! + ! + ! + ! .SETTOP ! 354 ! + ! + ! + ! + ! + ! .SFPA ! 375 ! + ! + ! + ! + ! + ! .SPCPS ! 375 ! - ! - ! + ! + ! + ! .SRESET ! 352 ! +W! +W! + ! + ! + ! .SYNCH ! ! + ! + ! + ! + ! - SUSPND ! .SPND ! 374 ! - ! - ! + ! + ! * ! .TRPSET ! 375 ! + ! + ! + ! + ! + UNLOCK ! .UNLOCK ! 347 ! * ! + ! + ! + ! - ! .UNPROTECT! 375 ! - ! - ! + ! + ! - ! .USBDF(2) ! ! + ! + ! + ! + ! + AJFLT ! ! ! + ! + ! + ! + ! + - 509 - ---------!-----------!-----!----!----!----!----!---- 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 ! 8 ---------!-----------!-----!----!----!----!----!---- DJFLT ! ! ! + ! + ! + ! + ! + IAJFLT ! ! ! + ! + ! + ! + ! + IDJFLT ! ! ! + ! + ! + ! + ! + IJCVT ! ! ! + ! + ! + ! + ! + JADD ! ! ! + ! + ! + ! + ! + JAFIX ! ! ! + ! + ! + ! + ! + JCMP ! ! ! + ! + ! + ! + ! + JDFIX ! ! ! + ! + ! + ! + ! + JDIV ! ! ! + ! + ! + ! + ! + JICVT ! ! ! + ! + ! + ! + ! + JJCVT ! ! ! + ! + ! + ! + ! + JMOV ! ! ! + ! + ! + ! + ! + JMUL ! ! ! + ! + ! + ! + ! + JSUB ! ! ! + ! + ! + ! + ! + ! .CRAW ! 375 ! A ! A ! A ! + ! A ! .CRRG ! 375 ! A ! A ! A ! + ! A ! .ELAW ! 375 ! A ! A ! A ! + ! A ! .ELRG ! 375 ! A ! A ! A ! + ! A ! .GMCX ! 375 ! A ! A ! A ! + ! A ! .MAP ! 375 ! A ! A ! A ! + ! A ! .RDBBK(2) ! ! + ! + ! + ! + ! + ! .RDBDF(2) ! ! + ! + ! + ! + ! + ! .UNMAP ! 375 ! A ! A ! A ! + ! A ! .WDBBK(2) ! ! + ! + ! + ! + ! + ! .WDBDF(2) ! ! + ! + ! + ! + ! + CONCAT ! ! ! + ! + ! + ! + ! + - 510 - ---------!-----------!-----!----!----!----!----!---- 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 ! 8 ---------!-----------!-----!----!----!----!----!---- GETSTR ! ! ! + ! + ! + ! + ! + GTLIN ! .GTLIN ! 345 ! *U! +U! +U! +U! +U INDEX ! ! ! + ! + ! + ! + ! + INSERT ! ! ! + ! + ! + ! + ! + LEN ! ! ! + ! + ! + ! + ! + PUTSTR ! ! ! + ! + ! + ! + ! + REPEAT ! ! ! + ! + ! + ! + ! + SCOMP ! ! ! + ! + ! + ! + ! + SCOPY ! ! ! + ! + ! + ! + ! + STRPAD ! ! ! + ! + ! + ! + ! + SUBSTR ! ! ! + ! + ! + ! + ! + TRANSL ! ! ! + ! + ! + ! + ! + TRIM ! ! ! + ! + ! + ! + ! + VERIFY ! ! ! + ! + ! + ! + ! + IRAD50 ! ! ! + ! + ! + ! + ! + R50ASC ! ! ! + ! + ! + ! + ! + RAD50 ! ! ! + ! + ! + ! + ! + ! .CTIMIO(1)! ! * ! * ! * ! * ! + ! .DRAST(1) ! ! + ! + ! + ! + ! + ! .DRBEG(1) ! ! + ! + ! + ! + ! + ! .DRBOT(1) ! ! + ! + ! + ! + ! + ! .DRDEF(1) ! ! + ! + ! + ! + ! + ! .DREND(1) ! ! + ! + ! + ! + ! + ! .DRFIN(1) ! ! + ! + ! + ! + ! + ! .DRSET(1) ! ! + ! + ! + ! + ! + ! .DRVTB(1) ! ! + ! + ! + ! + ! + - 511 - ---------!-----------!-----!----!----!----!----!---- 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 ! 8 ---------!-----------!-----!----!----!----!----!---- ! .FORK (1) ! ! + ! + ! + ! + ! + !.QELDF(1,2)! ! + ! + ! + ! + ! + ! .TIMIO(1) ! ! * ! * ! * ! * ! + MTATCH ! .MTATCH ! 375 ! A ! * ! * ! * ! A MTDTCH ! .MTDTCH ! 375 ! A ! * ! * ! * ! A MTGET ! .MTGET ! 375 ! A ! * ! * ! * ! A MTIN ! .MTIN ! 375 ! A ! * ! * ! * ! A MTOUT ! .MTOUT ! 375 ! A ! * ! * ! * ! A MTPRNT ! .MTPRNT ! 375 ! A ! * ! * ! * ! A MTRCTO ! .MTRCTO ! 375 ! A ! * ! * ! * ! A MTSET ! .MTSET ! 375 ! A ! * ! * ! * ! A MTSTAT ! .MTSTAT ! 375 ! A ! * ! * ! * ! A IADDR ! ! ! + ! + ! + ! + ! + IGETSP ! ! ! + ! + ! + ! + ! + INTSET ! ! ! + ! + ! + ! + ! - IPEEK ! ! ! + ! + ! + ! + ! + IPEEKB ! ! ! + ! + ! + ! + ! + IPOKE ! ! ! + ! + ! + ! + ! + IPOKEB ! ! ! + ! + ! + ! + ! + ISPY ! .GVAL ! 375 ! + ! + ! + ! + ! + IBLIN ! .BLIN ! 375 ! - ! - ! - ! - ! + IBLOUT ! .BLOUT ! 375 ! - ! - ! - ! - ! + IBREAK ! .BREAK ! 375 ! - ! - ! - ! - ! + ICONVIR ! .CONVIR ! 375 ! - ! - ! - ! - ! + IDJSTART ! .DJSTART ! 375 ! - ! - ! - ! - ! + IDJKILL ! .DJKILL ! 375 ! - ! - ! - ! - ! + - 512 - ---------!-----------!-----!----!----!----!----!---- 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 ! 8 ---------!-----------!-----!----!----!----!----!---- IDJTST ! .DJTST ! 375 ! - ! - ! - ! - ! + IDISMO ! .DISMO ! 375 ! - ! - ! - ! - ! + IENSWAP ! .ENSWAP ! 375 ! - ! - ! - ! - ! + IFRSPL ! .FRSPL ! 375 ! - ! - ! - ! - ! + IHIOF ! .HIOF ! 375 ! - ! - ! - ! - ! + IHION ! .HION ! 375 ! - ! - ! - ! - ! + IMGET ! .MGET ! 375 ! - ! - ! - ! - ! + IMGETWAIT! .MGETWAIT ! 375 ! - ! - ! - ! - ! + IMLOCKB ! .IMLOCK ! 375 ! - ! - ! - ! - ! + IMOUNT ! .MOUNT ! 375 ! - ! - ! - ! - ! + IMPUTB ! .MPUT ! 375 ! - ! - ! - ! - ! + IMSEND ! .MSEND ! 375 ! - ! - ! - ! - ! + INTCON ! .INTCON ! 375 ! - ! - ! - ! - ! + INTFRE ! .INTFRE ! 375 ! - ! - ! - ! - ! + IOBIC ! .IOBIC ! 375 ! - ! - ! - ! - ! + IOBIS ! .IOBIS ! 375 ! - ! - ! - ! - ! + IOGET ! .IOGET ! 375 ! - ! - ! - ! - ! + IOMAP ! .IOMAP ! 375 ! - ! - ! - ! - ! + IOPUT ! .IOPUT ! 375 ! - ! - ! - ! - ! + IOUNMAP ! .IOUNMAP ! 375 ! - ! - ! - ! - ! + IPOLOCK ! .POLOCK ! 375 ! - ! - ! - ! - ! + IRSTODT ! .RSTODT ! 375 ! - ! - ! - ! - ! + ISETODT ! .SETODT ! 375 ! - ! - ! - ! - ! + ISFOPEN ! .SFOPEN ! 375 ! - ! - ! - ! - ! + ISFLOCK ! .SFLOCK ! 375 ! - ! - ! - ! - ! + ISFTLOCK ! .SFTLOCK ! 375 ! - ! - ! - ! - ! + - 513 - ---------!-----------!-----!----!----!----!----!---- 1 ! 2 ! 3 ! 4 ! 5 ! 6 ! 7 ! 8 ---------!-----------!-----!----!----!----!----!---- ISFUNLOCK! .SFUNLOCK ! 375 ! - ! - ! - ! - ! + ISFUNALL ! .SFUNALL ! 375 ! - ! - ! - ! - ! + ISFWCHECK! .SFWCHECK ! 375 ! - ! - ! - ! - ! + ISFSAVE ! .SFSAVE ! 375 ! - ! - ! - ! - ! + ISHARE ! .SHARE ! 375 ! - ! - ! - ! - ! + ISHMAP ! .SHMAP ! 375 ! - ! - ! - ! - ! + IPAINI ! .PAINIT ! 375 ! - ! - ! - ! - ! + IPASTA ! .PASTART ! 375 ! - ! - ! - ! - ! + IPASTO ! .PASTOP ! 375 ! - ! - ! - ! - ! + IPAGET ! .PAGET ! 375 ! - ! - ! - ! - ! + ITRMTYPE ! .TRMTYPE ! 375 ! - ! - ! - ! - ! + ITSLINE ! .TSLINE ! 375 ! - ! - ! - ! - ! + ITSTACT ! .TSTACT ! 375 ! - ! - ! - ! - ! + ITSTER ! .TSTER ! 375 ! - ! - ! - ! - ! + ITSTOP ! .TSTOP ! 375 ! - ! - ! - ! - ! + ITTIME ! .TTIME ! 375 ! - ! - ! - ! - ! +