聽
TURBO.COM - 泻芯屑锌懈谢褟褌芯褉 Turbo Pascal V3.02 褎懈褉屑褘 Borland 袨褉懈芯薪 袩袪袨, PRODOS
袩懈褕械屑 锌褉芯谐褉邪屑屑褘 薪邪 袩邪褋泻邪谢械 薪邪 袨褉懈芯薪械 袩袪袨
袩褉芯谐褉邪屑屑褘 锌械褉械泻谢褞褔械薪懈褟 褑胁械褌芯胁褘褏 褉械卸懈屑芯胁
袩械褉械泻谢褞褔械薪懈械 泻芯写懈褉芯胁泻懈 褋懈屑胁芯谢芯胁
袙 褋褌邪写懈懈 褉械写邪泻褌懈褉芯胁邪薪懈褟
袙械褉褋懈懈 写谢褟 袨褉懈芯薪邪 袩褉芯 懈 胁械褉褋懈褟 写谢褟 袨褉懈芯薪邪 128 屑邪谢芯 褔械屑 芯褌谢懈褔邪褞褌褋褟
"TURBO" 袪袗袘袨孝袗袝孝 袩袨袛 校袩袪袗袙袥袝袧袠袝袦 袨袩袝袪袗笑袠袨袧袧袨袡 小袠小孝袝袦蝎 CP/M-80 (OSDOS V 3.60, V3.70) 袧袗 袣袨袦袩鞋挟孝袝袪袝 "ORION-PRO" 袙 袪袝袞袠袦袝 "ORION-128" 袠袥袠 袧袗 袣袨袦袩鞋挟孝袝袪袝 "ORION-128" 小 袩袪袨笑袝小小袨袪袨袦 Z80.
聽
孝褍褉斜芯锌邪褋泻邪谢褜 写谢褟 袨褉懈芯薪 袩袪袨
孝褍褉斜芯锌邪褋泻邪谢褜 写谢褟 袨褉懈芯薪邪-128
袩袝袪袙蝎袡 袙袨袩袪袨小 袦袝袧挟 袧袗 袣袨孝袨袪蝎袡 袧袝袨袘啸袨袛袠袦袨 袨孝袙袝孝袠孝鞋 - 袟袗袚袪校袞袗孝鞋 袥袠 小袨袨袘些袝袧袠携 袨袘 袨楔袠袘袣袗啸 袣袨袦袩袠袥携笑袠袠 ? (INCLUDE ERROR MESSAGES (Y/N)?). 袙 小袥校效袗袝 袝小袥袠 袛袗, 袧袗袛袥袝袞袠孝 袨孝袙袝孝袠孝鞋 - Y, 袧袝孝 - N.
聽
袣袪袗孝袣袨袝 小袩袪袗袙袨效袧袨袝 袪校袣袨袙袨袛小孝袙袨 袩袨 小袠小孝袝袦袝 "TURBO-袩袗小袣袗袥鞋"
效邪褋褌褜 1 - 褉褍泻芯胁芯写褋褌胁芯 锌芯谢褜蟹芯胁邪褌械谢褟
效邪褋褌褜 2 - 褉褍泻芯胁芯写褋褌胁芯 锌芯谢褜蟹芯胁邪褌械谢褟
效邪褋褌褜 3 - 褉褍泻芯胁芯写褋褌胁芯 锌芯谢褜蟹芯胁邪褌械谢褟
1. 袠小袩袨袥鞋袟袨袙袗袧袠袝
1.1. 肖袗袡袥蝎
- TURBO.COM - 袣袨袦袩袠袥携孝袨袪 袠 袪袝袛袗袣孝袨袪
- TURBO.OVR - 袨袙袝袪袥袝袡, 袧校袞袝袧 孝袨袥鞋袣袨 袩袪袠 袙蝎袟袨袙袝 *.COM
- TURBO.MSG - 小袨袨袘些袝袧袠携, 袦袨袚校孝 袨孝小校孝小孝袙袨袙袗孝鞋
- TLIST.COM - 袩袪袨袚袪袗袦袦袗 袩袝效袗孝袠 袩袪袨袚袪袗袦袦 袠 孝袝袣小孝袨袙
- TINST.COM - 袩袪袨袚袪袗袦袦袗 袠袧小孝袗袥袥携笑袠袠
- TINST.DTA - 袛袗袧袧蝎袝 袠袧小孝袗袥袥携笑袠袠
- TINST.MSG - 小袨袨袘些袝袧袠携 袩袪袨袚袪袗袦袦蝎 袠袧小孝袗袥袥携笑袠袠
1.2.袠袧小孝袗袥袥携笑袠携
- 袩袝袪袙袨袝 袦袝袧挟 袟袗袛袗袝孝 孝袠袩 袠袧小孝袗袥袥携笑袠袠:
S - (SCREEN) 袠袧小孝袗袥袥携笑袠携 孝袝袪袦袠袧袗袥袗;
C - (COMMAND) 袠袧小孝袗袥袥携笑袠携 袣袨袦袗袧袛 袪袝袛袗袣孝袨袪袗;
Q - (QUIT) 袣袨袧袝笑 袪袗袘袨孝蝎
- SCREEN: 袙蝎袘袠袪袗袝孝小携 孝袝袪袦袠袧袗袥;
- COMMAND: 袙袙袨袛 袙 袙袠袛袝 ^S 袠袥袠 27 (袛袝小携孝.) 袠袥袠 $1B (楔袝小孝袧.);
袟袧袗效袝袧袠携 袠袟 袧袝小袣袨袥鞋袣袠啸 小袠袦袙袨袥袨袙 袪袗袟袛袝袥携挟孝小携 袩袪袨袘袝袥袗袦袠;
- 效袗小孝袨孝袗 袦袠袣袪袨袩袪袨笑袝小小袨袪袗 - 6 袦袚笑 袛袥携 "ORION-PRO".
1.3. 袣袨袦袗袧袛蝎 袪袝袛袗袣孝袨袪袗
----------------------
- CHAR LEFT - ^H - 袛袙袠袞袝袧袠袝 袣校袪小袨袪袗
- ALTERNATIVE - ^S
- CHAR RIGHT - ^D
- WORD LEFT - ^A
- WORD RIGHT - ^F
- LINE UP - ^E
- LINE DOWN - ^X
- PAGE UP - ^R
- PAGE DOWN - ^C
- TO TOP OF FILE - ^Q^R
- TO END OF FILE - ^Q^C
- TO BEGIN OF LINE - ^Q^S
- TO END OF LINE - ^Q^D
- TO BEGINING OF BLOCK - ^Q^B
- TO END OF BLOCK - ^Q^K
- TO LAST CURSOR POS - ^Q^P
- INSERT MODE ON/OFF - ^V - INSERT/OVERWRITE
- INSERT LINE - ^N
- DELETE LINE - ^Y
- DELETE TO END OF LINE - ^Q^Y
- DELETE WORD RIGHT - ^T
- DELETE CHAR UNDER CURSOR - ^G
- DELETE CHAR LEFT - <DEL>
- ALTERNATIVE - 袧袠效袝袚袨
- BEGIN BLOCK - ^QB - BLOCK COMMANDS
- END BLOCK - ^QK
- MARK SINGLE WORD - ^QT
- COPY BLOCK - ^QC
- MOVE BLOCK - ^QV
- DELETE BLOCK - ^QY
- READ BLOCK FROM DISK - ^QR
- WRITE BLOCK TO DISK - ^QW
- END EDIT - ^K^D
- TAB - ^I
- AUTO TAB ON/OFF - ^Q^I
- RESTORE LINE - ^Q^L
- FIND - ^Q^F
- FIND & REPLACE - ^Q^A
- REPEAT LAST FIND - ^L
- CONTROL CHAR PREFIX - ^P
1.4. 袣袨袦袗袧袛蝎 袨小袧袨袙袧袨袚袨 袦袝袧挟 袣袨袦袩袠袥携孝袨袪袗/袪袝袛袗袣孝袨袪袗
-------------------------------------------------
袣袨袛 袧袗袟袧袗效袝袧袠袝
L (CHANGE LOGGED DRIVE) 小袦袝袧袗 孝袝袣校些袝袚袨 袛袠小袣袨袙袨袛袗
W (WORK FILE SELECTION) 袙蝎袘袨袪 袪袗袘袨效袝袚袨 肖袗袡袥袗
M (MAIN FILE SELECTION) 袙蝎袘袨袪 袚袥袗袙袧袨袡 袩袪袨袚袪袗袦袦蝎 (袛袥携 INCLUDE)
E (EDIT) 袪袝袛袗袣孝袠袪袨袙袗袧袠袝
C (COMPILE) 袣袨袦袩袠袥携笑袠携
R (RUN) 袙蝎袩袨袥袧袝袧袠袝 (袦袨袞袝孝 袙蝎袟蝎袙袗孝鞋 袣袨袦袩袠袥携笑袠挟)
S (SAVE) 袟袗袩袠小鞋 袨袘袪袗袘袗孝蝎袙袗袝袦袨袚袨 肖袗袡袥袗 袧袗 袛袠小袣
X (EXECUTE) 袙蝎袩袨袥袧袝袧袠袝 袩袪袨袠袟袙袨袥鞋袧袨袡 袩袪袨袚袪袗袦袦蝎 小 袛袠小袣袗
D (DIRECTORY) 袙蝎袙袨袛 袣袗孝袗袥袨袚袗 袛袠小袣袗
Q (QUIT) 袣袨袧袝笑 袪袗袘袨孝蝎
O (COMPILE OPTIONS) 袙蝎袘袨袪 袨袩笑袠袡 袣袨袦袩袠袥携笑袠袠
1.5. 袨袩笑袠袠 袣袨袦袩袠袥携孝袨袪袗
----------------------
M - MEMORY !
C - COM FILE ! 袙小袝 协孝袨 - 袣校袛袗 袠袛袝孝 小袣袨袦袩袠袥袠袪袨袙袗袧袧蝎袡 肖袗袡袥.
H - CHAIN FILE !
1.6. 袣袥挟效袠 袛袥携 袩袨袠小袣袗 袠 袟袗袦袝袧蝎
------------------------------
FIND (^Q^F): 袟袗袛袗袝孝小携 小孝袪袨袣袗 袩袨袠小袣袗 (袛袨 30 袥袠孝袝袪) 袠 袣袪袠孝袝袪袠袠 袩袨袠小袣袗: B -
BACK, G - GLOBAL, <N> -效袠小袥袨 袙啸袨袞袛袝袧袠袡, U - IG- NORE UPPER/LOWER, W -
WORDS ONLY.
2. 袘袗袟袠小袧蝎袝 协袥袝袦袝袧孝蝎 携袟蝎袣袗
--------------------------
2.1 袗袥肖袗袙袠孝
-----------
- 袘校袣袙蝎: A-Z, A-Z (LOWER CASE)
- 笑袠肖袪蝎: 0-9
- 小袩袝笑袠袗袥鞋袧蝎袝 小袠袦袙袨袥蝎: +,-,*,/,=,<,>,(,),袟袗袩携孝袗携,.,:,',#,$
- 袟袗袦袝袧携挟些袠袝 小袠袦袙袨袥蝎: (. 袠 .) 袙袦袝小孝袨 [ 袠 ], (* 袠 *) 袙袦袝小孝袨 肖袠袚校袪袧蝎啸
小袣袨袘袨袣
2.2. 袘袗袟袠小袧蝎袝 小袠袦袙袨袥蝎 袠袦袝袧
--------------------------
A-Z, A-Z (LOWER CASE), _ (袩袨袛效袝袪袣袠袙袗袧袠袝)
2.3. 小孝袗袧袛袗袪孝袧蝎袝 孝袠袩蝎 袛袗袧袧蝎啸
----------------------------
袧袗袟袙袗袧袠袝 袛袠袗袩袗袟袨袧 袛袥袠袧袗 袙 袘袗袡孝袗啸
--------------------------------------------------
INTEGER -32768..+32767 2
BYTE 0..255 1
REAL 1E-38..1E+38 6
BOOLEAN FALSE < TRUE 1
CHAR #0..#255 1
--------------------------------------------------
2.4.效袠小袥袗
---------
1 12345 11.12 2E-5 $A8C
2.5. 校袩袪袗袙袥携挟些袠袝 小袠袦袙袨袥蝎
------------------------
#10 - ASCII, 10 DECIMAL (LF)
#$1B - ASCII 1B HEX (ESCAPE)
^G - ASCII ^G (BELL)
2.6. 小孝袪袨袣袠
-----------
- 袨袘鞋携袙袥袝袧袠袝: FILENAME = STRING[14];
- 袛袥袠袧袗: 1-255
- 袨袩袝袪袗笑袠袠: + (CONCAT), <, >, =, :=
- 袩袪袨笑袝袛校袪蝎: DELETE(STR,POS,NUM) - 校袛袗袥袝袧袠袝 效袗小孝袠 小孝袪袨袣袠;
INSERT(OBJECT,STR,POS) - 袙小孝袗袙袣袗 袙 小孝袪袨袣校;
STR(VALUE,ST) - 袩袪袝袨袘袪袗袟校袝孝 效袠小袥袨 VALUE 袙 小孝袪袨袣校 ST (袝小袥袠 X=2.5E4 TO STR(X:10:0,ST)
袛袗小孝 ' 2500').
VAL(STR,VAR,CODE) -袩袪袝袨袘袪袗袟校袝孝 小孝袪袨袣校 STR 袙
效袠小袥袨 VAR 袝小袥袠 STR='123' TO VAL=123 , CODE=0;
- 肖校袧袣笑袠袠: COPY(STR,POS,NUM) - 袙蝎袛袝袥携袝孝 效袗小孝鞋 小孝袪袨袣袠;
CONCAT(STR1,STR2,[STRN]) - 袨袘'袝袛袠袧携袝孝 小孝袪袨袣袠;
LENGTH(STR) - 袛袗袝孝 袛袥袠袧校 小孝袪袨袣袠;
POS(OBJ,STR) - 袩袨袟袠笑袠携 袩袨袛小孝袪袨袣袠;
- 小袠袦袙袨袥 协孝袨 小孝袪袨袣袗 袛袥袠袧袨袡 1;
- 袥袠孝袝袪袗袥鞋袧蝎袝 小孝袪袨袣袠 袟袗袛袗挟孝小携 袙 袙袠袛袝 '...'
2.7. 小孝袪袨袣袨袙蝎袝 袣袨袧小孝袗袧孝蝎
------------------------
'协孝袨 小孝袪袨袣袨袙袗携 袣袨袧小孝袗袧孝袗'
'小孝袪袨袣袨袙蝎袝 袣袨袧小孝袗袧孝蝎 袟袗袣袥挟效袗挟孝小携 袙 袨袛袠袧袗袪袧蝎袝 袣袗袙蝎效袣袠'
2.8. 袟袗袪袝袟袝袪袙袠袪袨袙袗袧袧蝎袝 小袥袨袙袗
----------------------------
ABSOLUTE * EXTERNAL * NIL SHR *
AND FILE NOT STRING *
ARRAY FOR OF THEN
BEGIN FORWARD OR TO
CASE FUNCTION PACKED TYPE
CONST GOTO PROCEDURE UNTIL
DIV IF PROGRAM VAR
DO IN RECORD WHILE
DOWNTO INLINE * REPEAT WITH
ELSE LABEL SET XOR *
END MOD SHL *
* - 袪袗小楔袠袪袝袧袠携.
3.0. 小孝袪校袣孝校袪袗 袩袪袨袚袪袗袦袦蝎
------------------------
- 袟袗袚袨袥袨袙袨袣: PROGRAM WRITER (INPUT, PRINTER)
- 袨袘鞋携袙袥袝袧袠携: LABEL DECLARATION
CONSTANT DECLARATION
TYPE DECLARATION
VARIABLE DECLARATION
PROCEDURE DECLARATION
- 袨袩袝袪袗孝袨袪袧蝎袡 袘袥袨袣 袙 袙袠袛袝 袘袥袨袣袗 BEGIN - END.
3.1. 袨袘'携袙袥袝袧袠携 袦袝孝袨袣
---------------------
LABEL 10, ERROR,袙蝎啸袨袛, 999 ;
3.2. O袘'携袙袥袝袧袠携 袣袨袧小孝袗袧孝
------------------------
CONST
LIMIT = 255;
MAX = 50;
袩袗袪袨袥鞋='SESAM';
CURSHOME = ^L;
CONST
NUMBER:INTEGER = 1267;
INTEREST: REAL = 12.67;
SECT:STRING[7] = 'SECTION';
XON : CHAR = ^Q;
3.2.1. 袦袗小小袠袙蝎 袣袨袧小孝袗袧孝
-----------------------
CONST
DIGIT: ARRAY[0..9] OF CHAR =
('0','1','2','3','4','5','6','7','8',9');
TYPE
CUBE = ARRAY[0..1,0..1,0..1] OF INTEGER;
CONST
MAZE : CUBE = (((0,1),(2,3)),((4,5),(6,7)));
3.3. 袨袘'携袙袥袝袧袠携 孝袠袩袨袙
---------------------
TYPE
袧袨袦袝袪 = INTEGER;
袛袝袧鞋 = (袩袧,袙孝,小袪,效孝,袩孝,小袘,袙小);
LIST = ARRAY[1..10] OF REAL;
UPPER = 'A'..'Z';
- 袩袪袝袨袘袪袗袟袨袙袗袧袠袝 孝袠袩袨袙:
INTEGER(小袘) = 5
袛袝袧鞋(3) = 袙孝
UPPER(14) = 'O'
CHAR(78) = 'N'
INTEGER('7')= 55
- 小袣袗袥携袪袧蝎袝 肖校袧袣笑袠袠:
PRED(NUM) -袙袨袟袙袪袗些袗袝孝 袩袪袝袛楔袝小孝袙校挟些袝袝 袗袪袚校袦袝袧孝校 袟袧袗效袝袧袠袝
SUCC(NUM) -袙袨袟袙袪袗些袗袝孝 小袥袝袛校挟些袝袝 袟袗 袗袪袚校袦袝袧孝袨袦 袟袧袗效袝袧袠袝
3.3.1. 袛袠袧袗袦袠效袝小袣袠袝 孝袠袩蝎 袛袗袧袧蝎啸
--------------------------------
-袨袘'携袙袥袝袧袠携 小小蝎袥袨效袧袨袚袨 孝袠袩袗
TYPE
校袣袗袟_袛袗袧=^OBJEKT;
VAR
袚袛袝:校袣袗袟_袛袗袧; (* 袙 袩袝袪袝袦袝袧袧袨袡 袚袛袝 袧袗啸袨袛袠孝小携 袗袛袪袝小 OBJEKT *)
........................
袚袛袝:=NIL; (* NIL -小袩袝笑袠袗袥鞋袧蝎袡 袩校小孝袨袡 校袣袗袟袗孝袝袥鞋 *)
A:=袚袛袝^;
-肖校袧袣笑袠袠 袛袥携 袛袠袧袗袦袠效袝小袣袨袚袨 袪袗小袩袪袝袛袝袥袝袧袠携 袩袗袦携孝袠:
TYPE
P=^T;
...........
NEW(P) -袪袝袟袝袪袙袠袪校袝孝 袨袘袥袗小孝鞋 袩袗袦携孝袠 袛袥携 袪袗袟袦袝些袝袧袠携 袨袛袧袨袚袨 协袥-孝袗 孝袠袩袗 孝, 袗
袟袧袗效袝袧袠袝袦 袪 小孝袗袧袨袙袠孝小携 袗袛袪袝小 协孝袨袡 袨袘袥袗小孝袠.
DISPOSE(P) -袨小袙袨袘袨袞袛袗袝孝 袨袘袥袗小孝鞋 袩袗袦携孝袠, 袗袛袪袝小 袣袨孝袨袪袨袡 袨袩袪袝袛袝袥携袝孝小携
袟袧袗效袝袧袠袝袦 校袣袗袟袗孝袝袥携 袪.
3.4. 袨袘'携袙袥袝袧袠携 袩袝袪袝袦袝袧袧蝎啸
--------------------------
VAR
RESULT,小校袦袦袗,袪袗袟袧袨小孝鞋 :REAL;
I,J,X,Y: INTEGER;
袩袝袪袠袨袛 : 袛袝袧鞋;
BUFF : ARRAY[0..127] OF BYTE;
3.5. 袨袘'携袙袥袝袧袠携 袩袪袨笑袝袛校袪
-------------------------
- 袟袗袚袨袥袨袙袨袣: PROCEDURE 袟袗袚袨袥袨袙袨袣(袩袗袪袗袦1; 袩袗袪袗袦2);
PROCEDURE CLRSTR;
PROCEDURE SELEKT(MODEL1:ARRAY[1..500] OF INTEGER;SIMV:CHAR);
PROCEDURE EXMPLE(VAR NUM1,NUM2:NUMBER);
----------------
TYPE TXT:STRING[80];
PROCEDURE PRINT(STR1:TXT;VAR STR2:TXT); (*袩袗袪袗袦袝孝袪 STR1 袧袝 袠袟袦袝袧携袝孝小携,
袩袗袪袗袦袝孝袪 STR2 袦袨袞袝孝 袠袟袦袝袧携孝鞋小携 袩袪袨笑袝袛校袪袨袡 *)
- 袨袘'携袙袥袝袧袠携: LABEL DECLARATION (*袥袨袣袗袥鞋袧蝎袝 袦袝孝袣袠, *)
CONSTANT DECLARATION (*袣袨袧小孝袗袧孝蝎 ,孝袠袩蝎 *)
TYPE DECLARATION (*袠 袩袝袪袝袦袝袧袧蝎袝 *)
VARIABLE DECLARATION
PROCEDURE DECLARATION (*袩袪袠 袙袥袨袞袝袧袧蝎啸 袩袪袨笑袝袛校袪袗啸*)
- 孝袝袥袨 袩袪袨笑袝袛校袪蝎 袙 袙袠袛袝 袘袥袨袣袗 BEGIN - END;
袩袪袠袦袝袪:
袘袝袟孝袠袩袨袙蝎袝 袩袝袪袝袦袝袧袧蝎袝 袩袗袪袗袦袝孝袪蝎:
PROCEDURE SWITCH( SIZE:INTEGER;VAR A1P,A2P);
TYPE
A = ARRAY[1..MAXINT] OF BYTE;
VAR
A1:A ABSOLUTE A1P; (*袦袗小小袠袙 [1..MAXINT] 袩袨 袗袘小袨袥挟孝袧袨袦校 袗袛袪袝小校*)
A2:A ABSOLUTE A2P; (*袦袗小小袠袙 [1..MAXINT] 袩袨 袗袘小袨袥挟孝袧袨袦校 袗袛袪袝小校*)
TMP : BYTE;
COUNT:INTEGER;
BEGIN
FOR COUNT :=1 TO SIZE DO
BEGIN
TMP:=A1[COUNT];
A1[COUNT]:=A2[COUNT];
A2[COUNT]:=TMP;
END;
END;
3.5.1. 袧袝袣袨孝袨袪蝎袝 小孝袗袧袛袗袪孝袧蝎袝 袩袪袨笑袝袛校袪蝎
---------------------------------------
- DELAY(TIME) - 袨袞袠袛袗袧袠袝 TIME 袦袠袥袥袠小袝袣校袧袛
- CLREOL - 袨效袠小孝袣袗 袛袨 袣袨袧笑袗 小孝袪袨袣袠
- CLRSCR - 袨效袠小孝袣袗 协袣袪袗袧袗
- GOTOXY(X,Y) - 袩袪携袦袨袝 袩袨袟袠笑袠袨袧袠袪袨袙袗袧袠袝
- EXIT -袙蝎啸袨袛 袠袟 孝袝袣校些袝袚袨 袘袥袨袣袗 BEGIN-END;
- HALT -袣袨袧袝笑 袪袗袘袨孝蝎 袩袪袨袚袪袗袦袦蝎 袠 袙蝎啸袨袛 袙 CP/M.
- RANDOMIZE - 袧袗效袗袥鞋袧袨袝 袠袟袦袝袧袝袧袠袝 小袥校效袗袡袧袨袚袨 效袠小袥袗
- MOVE(VAR1,VAR2,NUM:INTEGER)-袣袨袩袠袪袨袙袗袧袠袝 NUM 袘袗袡孝袨袙 袠袟 VAR1 B VAR2
- FILLCHAR(VAR,NUM:INTEGER,VALUE:BYTE)-袟袗袩袨袥袧袝袧袠袝 袩袗袦携孝袠 VALUE
3.6. 袨袘'携袙袥袝袧袠携 肖校袧袣笑袠袡
------------------------
- 袟袗袚袨袥袨袙袨袣: FUNCTION KEYHIT:BOOLEAN;
FUNCTION COMPUTE(VAR VALUE:SAMPLE):REAL;
FUNCTION POWER(X,Y:REAL): REAL;
- 袨袘'携袙袥袝袧袠携: LABEL DECLARATION (*袥袨袣袗袥鞋袧蝎袝 袦袝孝袣袠, *)
CONSTANT DECLARATION (*袣袨袧小孝袗袧孝蝎 ,孝袠袩蝎 *)
TYPE DECLARATION (*袠 袩袝袪袝袦袝袧袧蝎袝 *)
VARIABLE DECLARATION
PROCEDURE DECLARATION (*袩袪袠 袙袥袨袞袝袧袧蝎啸 袩袪袨笑袝袛校袪袗啸*)
- BEGIN
- 孝袝袥袨 肖校袧袣笑袠袠 袠 袩袨袥校效袝袧袠袝 袪袝袟校袥鞋孝袗孝袗 袙 袙袠袛袝 袠袦携_肖校袧袣笑袠袠:=.....;
- END;
袩袪袠袦袝袪:
FUNCTION ROWSUM(I,J:INTEGER):INTEGER;
FUNCTION SIMPLROWSUM(S:INTEGER):INTEGER;
BEGIN
SIMPLROWSUM:=S*(S+1) DIV 2;
END;
BEGIN
ROWSUM:= SIMPLROWSUM(J)-SIMPLROWSUM(I-1);
END;
3.6.1. 袧袝袣袨孝袨袪蝎袝 小孝袗袧袛袗袪孝袧蝎袝 肖校袧袣笑袠袠
-------------------------------------
- CHR(NUM:INTEGER):CHAR -袙袨袟袙袪袗些袗袝孝 小袠袦袙袨袥 袣袨袛 袣袨孝袨袪袨袚袨 NUM
- HI(I:INTEGER):INTEGER -袙袨袟袙袪袗些袗袝孝 小孝袗袪楔袠袡 袘袗袡孝 效袠小袥袗 袙 袦袥袗袛楔袝袦 袘袗袡孝袝,
小孝袗袪楔袠袡 袘袗袡孝 袪袝袟校袥鞋孝袗孝袗 袪袗袙袝袧 0.
- KEYPRESSED:BOOLEAN -袙袨袟袙袪袗些袗袝孝 TRUE 袝小袥袠 袘蝎袥袗 袧袗袞袗孝袗 袣袥袗袙袠楔袗 袧袗
袣袨袧小袨袥袠
- LO(I:INTEGER):INTEGER -袙袨袟袙袪袗些袗袝孝 袦袥袗袛楔袠袡 袘袗袡孝 效袠小袥袗 袙 袦袥袗袛楔袝袦 袘袗袡孝袝,
小孝袗袪楔袠袡 袘袗袡孝 袪袝袟校袥鞋孝袗孝袗 袪袗袙袝袧 0.
- ODD(I:INTEGER):BOOLEAN-袙袨袟袙袪袗些袗袝孝 TRUE 袝小袥袠 I -效袝孝袧袨袝 效袠小袥袨
- ORD(VAR):INTEGER -袙袨袟袙袪袗些袗袝孝 袧袨袦袝袪 袗袪袚校袦袝袧孝袗 袙 袩袨小袥袝袛袨袙袗孝袝袥鞋袧袨小孝袠
- RANDOM:REAL -袙袨袟袙袪袗些袗袝孝 小袥校效袗袡袧袨袝 效袠小袥袨 袙 袛袠袗袩袗袟袨袧袝 0..1
- RANDOM(NUM:INTEGER):INTEGER -袙袨袟袙袪袗些袗袝孝 小袥校效袗袡袧袨袝 效袠小袥袨 袙 袛袠袗袩袗袟袨袧袝
0..NUM
- ROUND(NUM:REAL):INTEGER -袨袣袪校袚袥携袝孝 NUM 袛袨 笑袝袥袨袚袨 小 校效袝孝袨袦 袟袧袗袣袗
- PARAMCOUNT:INTEGER -袙袨袟袙袪袗些袗袝孝 袣袨袥-袙袨 袩袗袪袗袦袝孝袪袨袙, 袩袝袪袝袛袗袧袧蝎啸 袩袪袨袚袪袗袦袦袝
袩袪袠 袙蝎袟袨袙袝 袠袟 CP/M
- PARAMSTR(N:INTEGER):STRING -袙袨袟袙袪袗些袗袝孝 小孝袪袨袣校 N-袚袨 袩袗袪袗袦袝孝袪袗
- SIZEOF(NAME):INTEGER -袙袨袟袙袪袗些袗袝孝 袣袨袥-袙袨 袘袗袡孝袨袙 袟袗袧携孝蝎啸 袩袝袪袝袦袝袧袧袨袡 NAME
- SWAP(NUM:INTEGER):INTEGER -袙袨袟袙袪袗些袗袝孝 袪袝袟校袥鞋孝袗孝 小 袩袝袪袝小孝袗袙袥袝袧袧蝎袦袠
袘袗袡孝袗袦袠
- TRUNC(R:REAL):INTEGER -袙袨袟袙袪袗些袗袝孝 笑袝袥校挟 效袗小孝鞋 效袠小袥袗 袘袝袟 袨袣袪校袚袥袝袧袠携
- UPCASE(CH:CHAR):CHAR -袙袨袟袙袪袗些袗袝孝 小袠袦袙袨袥 袧袗 袙袝袪啸袧袝袦 袪袝袚袠小孝袨袪袝
3.7. 袨袙袝袪袥袝袡袧蝎袝 袩袪袨笑袝袛校袪蝎 袠 肖校袧袣笑袠袠
-----------------------------------
-OVRDRIVE(DRIVE:INTEGER) -袩袪袨笑袝袛校袪袗 校小孝袗袧袗袙袥袠袙袗挟些袗携 袛袠小袣 袛袥携 袙蝎袟袨袙袗
袨袙袝袪袥袝袡袧蝎啸 袩袪袨笑袝袛校袪 袠 肖校袧袣笑袠袡
DRIVE = 0 -孝袝袣校些袠袡 袛袠小袣
1 -袛袠小袣 袗
2 -袛袠小袣 袙
.........
袩袪袠袦袝袪:
PROGRAM OVRTEST;
OVERLAY PROCEDURE PROCA;
BEGIN
WRITELN('OVERLAY A');
END;
OVERLAY PROCEDURE PROCB;
BEGIN
WRITELN('OVERLAY B');
END;
PROCEDURE NUL;
BEGIN
(* 袩袪袨笑袝袛校袪袗, 袪袗袟袛袝袥携挟些袗携 袨袙袝袪袥袝袠 袧袗 2-袝 袚袪校袩袩蝎 袙 袪袗袟袧蝎啸 肖袗袡袥袗啸*)
聽END;
OVERLAY PROCEDURE PROCC;
BEGIN
WRITELN('OVERLAY C');
END;
BEGIN
OVRDRIVE(2);
PROCA;
OVRDRIVE(0);
PROCC;
OVRWRITE(2);
PROCB;
END.
4.0. 袨袩袝袪袗孝袨袪蝎
--------------
袨袩袝袪袗孝袨袪 袩袪袠小袙袗袠袙袗袧袠携 :=
袗:=袙;
袨袩袝袪袗孝袨袪蝎 小袪袗袙袧袝袧袠携 =,<>,>,<,<=,>=
袗=袙 袪袗袙袧袨
袗<>袙 袧袝 袪袗袙袧袨
袗<=袙 袦袝袧鞋楔袝 袠袥袠 袪袗袙袧袨
袗>=袙 袘袨袥鞋楔袝 袠袥袠 袪袗袙袧袨
.. (SUBRANGE) - 校袣袗袟袗孝袝袥鞋 袠袧孝袝袪袙袗袥袗 ('A'..'Z')
- (UNARY MINUS)- 袟袗袦袝袧袗 袟袧袗袣袗 袧袗 袨袘袪袗孝袧蝎袡
NOT - 袨袩袝袪袗孝袨袪 袨孝袪袠笑袗袧袠携 袛袥携 BOOLEAN, INTEGER
NOT TRUE = FALSE;
NOT 0 = -1;
NOT -15 = 14;
4.1. 袗袪袠肖袦袝孝袠效袝小袣袠袝 袨袩袝袪袗孝袨袪蝎
------------------------------
* -校袦袧袨袞袝袧袠袝. 孝袠袩蝎 REAL,INTEGER.
/ -袛袝袥袝袧袠袝. 孝袠袩蝎 REAL,INTEGER.
DIV - 袛袝袥袝袧袠袝 袧袗笑袝袥袨.孝袠袩 INTEGER.
MOD - 袨小孝袗孝袨袣 袨孝 袛袝袥袝袧袠携 袧袗笑袝袥袨. 孝袠袩 INTEGER
AND - 袥袨袚袠效袝小袣袨袝 校袦袧袨袞袝袧袠袝 (12 AND 22 = 4)
SHL - 小袛袙袠袚 袙袥袝袙袨.孝袠袩 INTEGER,BYTE (2 SHL 7 = 256)
SHR - 小袛袙袠袚 袙袩袪袗袙袨.孝袠袩 INTEGER,BYTE (4 SHR 1 = 2)
+ -小袥袨袞袝袧袠袝. 孝袠袩蝎 REAL,INTEGER,BYTE
- -袙蝎效袠孝袗袧袠袝. 孝袠袩蝎 REAL,INTEGER,BYTE
OR -袥袨袚袠效袝小袣袨袝 小袥袨袞袝袧袠袝 (12 OR 22 = 30)
XOR -袠小袣袥挟效袗挟些袝袝 袠袥袠 (12 XOR 22 = 26)
4.2. 袦袗孝袝袦袗孝袠效袝小袣袠袝 肖校袧袣笑袠袠
----------------------------
ABS(I:INTEGER):INTEGER; -袙袨袟袙袪袗些袗袝孝 袟袧袗效袝袧袠袝 袩袨 袦袨袛校袥挟 效袠小袥袗
ABS(R:REAL):REAL; - ------''--------
ARCTAN(R:REAL):REAL; -袙袨袟袙袪袗些袗袝孝 袗袪袣孝袗袧袚袝袧小 效袠小袥袗 (袙 袪袗袛袠袗袧袗啸)
COS(R:REAL):REAL; -袙袨袟袙袪袗些袗袝孝 袣袨小袠袧校小 效袠小袥袗 (袙 袪袗袛袠袗袧袗啸)
EXP(R:REAL):REAL; -袙袨袟袙袨袛袠孝 袝 袙 小孝袝袩袝袧鞋
FRAC(R:REAL):REAL; -袙袨袟袙袪袗些袗袝孝 袛袪袨袘袧校挟 效袗小孝鞋 效袠小袥袗 ( N-INT(N) )
INT(R:REAL):REAL; -袙袨袟袙袪袗些袗袝孝 笑袝袥校挟 效袗小孝鞋 效袠小袥袗
LN(R:REAL):REAL; -袙袨袟袙袪袗些袗袝孝 袧袗孝校袪袗袥鞋袧蝎袡 袥袨袚袗袪袠肖袦
SIN(R:REAL):REAL; -袙袨袟袙袪袗些袗袝孝 小袠袧校小 效袠小袥袗 (袙 袪袗袛袠袗袧袗啸)
SQR(I:INTEGER):INTEGER; -袙袨袟袙袨袛袠孝 效袠小袥袨 袙 袣袙袗袛袪袗孝
SQR(R:REAL):REAL; - -------''------
SQRT(R:REAL):REAL; -袙袨袟袙袪袗些袗袝孝 袣袙袗袛袪袗孝袧蝎袡 袣袨袪袝袧鞋 效袠小袥袗
4.3. 袨袩袝袪袗笑袠袠 袧袗袛 袦袧袨袞袝小孝袙袗袦袠
-----------------------------
袗*袙 -袩袝袪袝小袝效袝袧袠袝 袦袧袨袞袝小孝袙
袗+袙 -袨袘'袝袛袠袧袝袧袠袝 袦袧袨袞袝小孝袙
袗-袙 =袪袗袟袧袨小孝鞋 袦袧袨袞袝小孝袙
袗 IN 袙 -效袥袝袧小孝袙袨 袙袨 袦袧袨袞袝小孝袙袝.
5.0. 校袩袪袗袙袥携挟些袠袝 小孝袪校袣孝校袪蝎
--------------------------
GOTO 袦袝孝袣袗; (*袠袧小孝袪校袣笑袠携 袩袝袪袝啸袨袛袗*)
IF 校小袥袨袙袠袝 (*袠袧小孝袪校袣笑袠携 袙蝎袘袨袪袗*)
THEN
袨袩袝袪袗孝袨袪
ELSE
袨袩袝袪袗孝袨袪;
WHILE 袙蝎袪袗袞袝袧袠袝 DO 袨袩袝袪袗孝袨袪 ;(*袨袩袝袪袗孝袨袪 笑袠袣袥袗*)
WHILE A<>0 DO A:=A-1;(*袩袨袣袗 A<>0 袘校袛袝孝 袙蝎袩袨袥袧携孝鞋小携 笑袠袣袥*)
REPEAT 袨袩袝袪袗孝袨袪; (*袨袩袝袪袗孝袨袪 笑袠袣袥袗*)
袨袩袝袪袗孝袨袪;
.........
UNTIL 校小袥袨袙袠袝;
REPEAT (* 笑袠袣袥 袘校袛袝孝 袙蝎袩袨袥袧携孝鞋小携 *)
A:=A-1; (* 袛袨 孝袝啸 袩袨袪 袩袨袣袗 袗 <> 0 *)
UNTIL A=0;
FOR A:=0 TO 9 DO 袨袩袝袪袗孝袨袪; (*袨袩袝袪袗孝袨袪 笑袠袣袥袗*)
FOR B:=9 TO 0 DOWNTO 袨袩袝袪袗孝袨袪;
CASE 袙蝎袪袗袞袝袧袠袝 OF (*袨袩袝袪袗孝袨袪 袙蝎袘袨袪袗*)
1..9,21 :A:=A+1;
10..20 :B:=B+1;
..............
ELSE 袨袩袝袪袗孝袨袪;
END;
6.0. 袦袗小小袠袙蝎
-------------
TYPE
孝袗袘袥袠笑袗 = ARRAY[1..100] OF INTEGER;
袛袝袧鞋= (袩袧,袙孝,小袪,效孝,袩孝,小袘,袙小);
VAR
袪袗袘_袛袧袠 : ARRAY[1..5] OF INTEGER;
袧袝袛袝袥携 : ARREY[1..7] OF 袛袝袧鞋;
袛袧袠_袧袝袛 : ARREY[袛袝袧鞋] OF INTEGER;
楔袣袨袥_肖袗袦袠袥 : ARREY[1..10,'A'..'袘',1..30] OF STRING[20];
6.1. 袩袪袝袛袨袩袪袝袛袝袥袝袧袧蝎袝 袦袗小小袠袙蝎
------------------------------
- MEM[$0..$FFFF] - 袩袗袦携孝鞋, 孝袠袩袗 BYTE MEM[10]:=3;
- PORT[0..255] - 袩袨袪孝蝎, 孝袠袩袗 BYTE 小袠袦袙:=PORT[NUM];
7.0. 袟袗袩袠小袠
------------
TYPE
DATE = RECORD
DEY : 1..31;
MONTH: (JAN,FEB,MAR,APR,MAY,JUN,
JUL,AUG,SEP,NOV,OCT,DEC);
YEAR : 1900..1999;
END;
VAR
BIRTHDAY:DATE;
WORKDAY :ARRAY[1..5] OF DATE;
BEGIN
........
........
BIRTHDAY.MONTH:=JUL;
BIRTHDAY.YEAR:=1950;
WORKDAY[孝袝袣校些_]:=WORKDAY[孝袝袣校些_-1];
........
WITH BIRTHDAY DO
DEY:=25;
........
END.
7.1. 袟袗袩袠小袠 小 袙袗袪袠袗袧孝袗袦袠
------------------------
TYPE
OBJEKT = (袛袨袦, 袦袗楔袠袧袗);
袩袪袨袛袗袞袗 = RECORD
笑袝袧袗 : INTEGER;
袙袪袝袦携 : BYTE;
CASE 4TO:OBJEKT OF (*袙袗袪袠袗袧孝袧袗携 效袗小孝鞋*)
袛袨袦:(袩袥袨些袗袛鞋:INTEGER;
袚袛袝:STRING[20];
校效袗小孝袨袣:BYTE);
袦袗楔袠袧袗:(袚袨袛_袙蝎袩:INTEGER;
袩袪袨袘袝袚:INTEGER;
袗袙袗袪袠袠:BYTE)
END;
VAR 袠袙袗袧袨袙,袩袝孝袪袨袙 : 袩袪袨袛袗袞袗;
..................
袠袙袗袧袨袙.4孝袨:=袛袨袦;
IF 袠袙袗袧袨袙.袩袥袨些袗袛鞋 > 50 THEN ....
袩袝孝袪袨袙.4孝袨:=袦袗楔袠袧袗;
WITH 袩袝孝袪袨袙 DO 袩袪袨袘袝袚:=10000;
..................
8.0. 肖袗袡袥蝎
-----------
- 袨袘'携袙袥袝袧袠袝:
TYPE
PRODUCT = STRING[80];
VAR
PRODUCTFILE: FILE OF PRODUCT;
- 袨袩袝袪袗笑袠袠:
ASSIGN(FILVAR,STR)- 袩袪袠小袙袗袠袙袗袧袠袝 袠袦袝袧袠 肖袗袡袥袗 袩袝袪袝袦袝袧袧袨袡 FILVAR
REWRITE(FILVAR) - 小袨袟袛袗袧袠袝 袧袨袙袨袚袨 肖袗袡袥袗 袛袥携 袟袗袩袠小袠 (小孝袗袪蝎袡 校袧袠效孝.)
RESET(FILVAR) - 袨孝袣袪蝎孝袠袝 小校些袝小孝袙校挟些袝袚袨 肖袗袡袥袗 袛袥携 袟袗袩/效孝
READ(FILVAR,VAR) - 效孝袝袧袠袝 袩袝袪袝袦袝袧袧袨袡 袠袟 肖袗袡袥袗
WRITE(FILVAR,VAR) - 袟袗袩袠小鞋 袩袝袪袝袦袝袧袧袨袡 袙 肖袗袡袥
SEEK(FILVAR,N) - 校小孝袗袧袨袙袣袗 小效袝孝效袠袣袗 袟袗袩袠小袝袡 (0..FILESIZE(FILVAR))
FLUSH(FILVAR)
CLOSE(FILVAR) - 袟袗袣袪蝎孝袠袝 肖袗袡袥袗
ERASE(FILVAR) - 校袛袗袥袝袧袠袝 肖袗袡袥袗
RENAME(FILVAR,STR)- 袩袝袪袝袠袦袝袧袨袙袗袧袠袝 肖袗袡袥袗
- 肖校袧袣笑袠袠:
EOF(FILVAR):BOOLEAN - 袣袨袧袝笑 肖袗袡袥袗
FILEPOS(FILVAR):INTEGER -袛袗袝孝 孝袝袣校些袠袡 袧袨袦袝袪 袟袗袩袠小袠 袙 肖袗袡袥袝
FILESIZE(FILVAR):INTEGER - 袛袗袝孝 袣袨袥-袙袨 袟袗袩袠小袝袡 袙 肖袗袡袥袝
孝袝袣小孝袨袙蝎袝 肖袗袡袥蝎: VAR FILVAR : TEXT;
READLN(FILVAR), 袩袪袨袩校小袣 袛袨 CR/LF
WRITELN(FILVAR), 袟袗袩袠小鞋 CR/LF
EOLN(FILFAR):BOOLEAN -袛袗袝孝 TRUE 袝小袥袠 袣袨袧袝笑 小孝袪袨袣袠 袠袥袠 肖袗袡袥袗.
SEEKEOLN(FILVAR) -袛袗袝孝 TRUE ,袠袚袧袨袪袠袪校携 袙 袣袨袧笑袝 小孝袪袨袣袠 <SP>,<TAB>
SEEKEOF(FILVAR) -袛袗袝孝 TRUE ,袠袚袧袨袪袠袪校携 袙 袣袨袧笑袝 肖袗袡袥袗 <SP>,<TAB>
袘袝袟孝袠袩袨袙蝎袝 肖袗袡袥蝎: VAR FILVAR : FILE;
BLOCKREAD(FILVAR,BUFFER,RECS) -效孝袝袧袠袝 袘袥袨袣袗 袠袟 肖袗袡袥袗
RECS - 袣袨袥-袙袨 128-袘袗袡孝袧蝎啸 袟袗袩袠小袝袡.
BLOCKWRITE(FILVAR,BUFFER,RECS) -袟袗袩袠小鞋 袘袥袨袣袗 袙 肖袗袡袥
FILEPOS,FILESIZE,SEEK - 袨孝袪袗袘袗孝蝎袙袗挟孝 袣袗袣 小袨 128-袘袗袡孝袧蝎袦袠 袟袗袩袠小携袦袠.
小孝袗袧袛袗袪孝袧蝎袝 肖袗袡袥蝎:
INPUT - CON/TRM
OUTPUT - CON/TRM
CON - CON:
TRM - TRM:
KBD - KEYBOARD
LST - LST:
AUX - AUX:
USR - USR:
- 袛袠袪袝袣孝袠袙袗 (*$袙-*) 袦袝袧携袝孝 小孝袗袧袛袗袪孝袧袨袝 校小孝袪袨袡小孝袙袨 袙袙/袙蝎袙 小 CON HA TRM
袩袪袠袦袝袪:
(*$B-*)
PROGRAM READANDWRITE(INPUT,OUTPUT);
...............
READLN(VAR1); (*小袠袦袙袨袥 袘校袛袝孝 效袠孝袗孝鞋小携 小 孝RM: *)
READLN(CON,VAR2); (*小袠袦袙袨袥 袘校袛袝孝 效袠孝袗孝鞋小携 小 CON: *)
- 袩袝袪袝袦袝袧袧袗携 BUFLEN -袟袗袛袗袝孝 袛袥袠袧校 袘校肖袝袪袗 袛袥携 1-袚袨 袩袪袠袝袦袗 小 CON/TRM.
1..127.
- 小袨袣袪袗些袝袧袠携:
WRITE(CH) = WRITE(OUTPUT,CH)
READ(CH) = READ(INPUT,CH)
WRITELN = WRITELN(OUTPUT)
READLN = READLN(INPUT)
EOF = EOF(INPUT)
EOLN = EOLN(INPUT)
- 袛袠袪袝袣孝袠袙袗 (*$I-*) 袛袗袝孝 袙袨袟袦袨袞袧袨小孝鞋 袩袨袥鞋袟袨袙袗孝袝袥挟 袙 袩袪袨袚袪袗袦袦袝 袛袝袥袗孝鞋
袗袧袗袥袠袟 袨楔袠袘袨袣 袙袙/袙蝎袙.
- IOREZULT -袩袝袪袝袦袝袧袧袗携 袙 袣袨孝袨袪袨袡 袙袨袟袙袪袗些袗袝孝小携 袣袨袛 袨楔袠袘袣袠 袩袪袠 肖袗袡袥袨袙蝎啸
袨袩袝袪袗笑袠携啸.
-袣袨袛蝎 袨楔袠袘袨袣:
01 -肖袗袡袥 袧袝 袨孝袣袪蝎孝 (孝.袝. 袧袝 袘蝎袥袨 ASSIGN 袩袝袪袝袛 REWRITE,RESET)
02 -肖袗袡袥 袧袝 袨孝袣袪蝎孝 袧袗 袙蝎袙袨袛 (孝.袝. 袧袝 袘蝎袥袨 REWRITE 袠袥袠 RESET)
03 -肖袗袡袥 袧袝 袨孝袣袪蝎孝 袧袗 袙袙袨袛
04 -肖袗袡袥 袧袝 袨孝袣袪蝎孝 (袛袥携 袘袝袟孝袠袩袨袙蝎啸 肖袗袡袥袨袙)
10 -袨楔袠袘袣袗 袙 袧校袦袝袪袗笑袠袠 袛袥袠袧蝎 小孝袪袨袣袠 (袛袥携 肖袗袡袥袨袙 孝袠袩袗 TEXT)
20 -袨楔袠袘袨效袧袗携 袨袩袝袪袗笑袠携 小 袧袝肖袗袡袥袨袙蝎袦袠 校小孝袪袨袡小孝袙袗袦袠
21 -袧袝袩袪袗袙袠袥鞋袧蝎袡 袙蝎袟袨袙 CHAIN-袩袪袨袚袪袗袦袦蝎 袩袪袠 袣袨袦袩袠袥携笑袠袠 袙 袩袗袦携孝鞋 (袣袥挟效 袦)
22 -袧袝袩袪袗袙袠袥鞋袧蝎袡 ASSIGN 肖袗袡袥袗
90 -袧袝小袨袨孝袙袝孝小孝袙袠袝 孝袠袩袨袙 袠 袛袥袠袧蝎 袟袗袩袠小袠 袙 肖袗袡袥袝
91 -校小孝袗袧袨袙袣袗 SEEK 袟袗 袩袪袝袛袝袥蝎 肖袗袡袥袗
99 -袩袨袩蝎孝袣袗 效孝袝袧袠携 袩袨小袥袝 袣袨袧笑袗 肖袗袡袥袗
F0 -袨楔袠袘袣袗 袟袗袩袠小袠 袧袗 袛袠小袣
F1 -袧袝孝 袦袝小孝袗 袙 袣袗孝袗袥袨袚袝
F2 -袣袨袥-袙袨 袟袗袩袠小袝袡 袙 肖袗袡袥 袩袪袝袙蝎楔袗袝孝 65535
F3 -小袥袠楔袣袨袦 袦袧袨袚袨 袨孝袣袪蝎孝蝎啸 肖袗袡袥袨袙
FF -袘蝎袥袗 小袦袝袧袗 袛袠小袣袗 袛袨 袟袗袣袪蝎孝袠携 袪袗袘袨效袠啸 肖袗袡袥袨袙
9.0. INCLUDE - 袩袨袛袣袥挟效袝袧袠袝 肖袗袡袥袗 袣 袚袨袥袨袙袧袨袡 袩袪袨袚袪袗袦袦袝
-----------------------------------------------------
肖袨袪袦袗孝: (*$I <袠袦携 肖袗袡袥袗>*)
10. 袛袠袪袝袣孝袠袙蝎 袣袨袦袩袠袥携孝袨袪袗
-------------------------
(*$C+*) -袪袗袟袪袝楔袗袝孝 袩袪袝袪蝎袙袗袧袠袝 袩袪袨袚袪袗袦袦蝎 袠 袨孝袪袗袘袨孝袣校 ^S 袩袪袠 袪袗袘袨孝袝
肖校袧袣笑袠袡 READ 袠 READLN.
(*$U-*) -袟袗袩袪袝些袗袝孝 袙蝎啸袨袛 袠袟 袩袪袨袚袪袗袦袦蝎 袩袨 ^C
(*$袗+*) -袟袗袩袪袝些袗袝孝 袪袝袣校袪小袠挟 袠 袣袨袦袩袠袥携笑袠挟 袗袘小O袥挟孝袧蝎啸 袣袨袛袨袙
11. 肖校袧袣笑袠袠 CP/M
----------------
- ABSOLUTE -袪袗小袩袨袥袨袞袝袧袠袝 袩袝袪袝袦袝袧袧袨袡 袩袨 袗袘小袨袥挟孝袧袨袦校 袗袛袪袝小校:
VAR
IOBYTE: BYTE ABSOLUTE $0003;
CMDLINE: STRING[127] ABSOLUTE $80;
STR:STRING[32];
STRLEN:BYTE ABSOLUTE STR;
- ADDR(NAME):INTEGER - 袙袨袟袙袪袗些袗袝孝 袗袛袪袝小 袩袝袪袝袦袝袧袧袨袡 袙 袩袗袦携孝袠
- EXTERNAL -袨袘'携袙袥携袝孝 肖袠袟袠效袝小袣袠袝 袗袛袪袝小袗 袛袥携 袙袧袝楔袧袠啸 袩袪袨笑袝袛校袪 袠 肖校袧袣笑袠袡:
PROCEDURE DISKRESET; EXTERNAL $EC00;
FUNCTION IOSTATUS:BOOLEAN; EXTERNAL $D123;
PROCEDURE PLOT(X,Y:INTEGER);EXTERNAL $F003;
PROCEDURE QUICKSORT(VAR LIST:PARTNO); EXTERNAL $1C00;
- CHAIN(FILVAR) -袙蝎袟蝎袙袗袝孝 袠 袩袝袪袝袛袗袝孝 校袩袪袗袙袥袝袧袠袝 小袥袝袛校挟些袝袡 效袗小孝袠
袩袪袨袚袪袗袦袦蝎
袩袪袠袦袝袪:
PROGRAM MAIN;
VAR
TXT:STRING[80];
CHNPRG: FILE;
BEGIN
WRITE('袙袙袝袛袠孝袝 袥挟袘袨袡 孝袝袣小孝: '); READLN(TXT);
ASSIGN(CHNPRG,'MAIN1.CHR');
CHAIN(CHNPRG);
END.
PROGRAM MAIN1;
VAR
TXT: STRING[80];
NOOFUP,NOOFCHAR,I:INTEGER;
BEGIN
NOOFUP:=0;
NOOFCHAR:=LENGTH(TXT);
FOR I:=1 TO LENGTH(TXT) DO
IF TXT[I] IN ['A'..'Z'] THEN NOOFUP:=SUCC(NOOFUP);
WRITE('袧袝孝 小袠袦袙袨袥袗 袙 小孝袪袨袣袝: ',NOOFCHAR);
WRITELN('袧袝孝 小袠袦袙袨袥袗 袧袗 袙袝袪啸袧袝袦 袪袝袚袠小孝袨袪袝 ',NOOFUP,'.');
END.
-INLINE -袟袗袩袠小鞋 肖袪袗袚袦袝袧孝袗 袩袪袨袚袪袗袦袦蝎 袙 袦袗楔袠袧袧蝎啸 袣袨袛袗啸:
PROCEDURE UPPCASE(VAR STRG:STR); (* STR 孝袠袩袗 STRING[255] *)
BEGIN
INLINE ($2A/STRG/ (* LD HL,(STRG) *)
$46/ (* LD B,(HL) *)
$04/ (* INC B *)
$06/ (* L1: DEC B *)
$CA/*+20/ (* JP Z,L2 *)
$23/ (* INC HL *)
$7E/ (* LD A,(HL) *)
$FE/$61/ (* CP '袗' *)
$DA/*-9/ (* JP C,L1 *)
$FE/$7B/ (* CP '袟'+1 *)
$D2/*-14/ (* JP NC,L1 *)
$D6/$20/ (* SUB 20H *)
$77/ (* LD (HL),A *)
$C3/*-20); (* JP L1 *)
(* L2: EQU $ *)
END;
- 袛袨袩袨袥袧袠孝袝袥鞋袧蝎袝 袩袪袨笑袝袛校袪蝎 袠 肖校袧袣笑袠袠 CP/M
- BDOS(FUNC[,PARAM]), 袪袝袟校袥鞋孝袗孝 袙 A
- BDOSHL(FUNC[,PARAM]), 袪袝袟校袥鞋孝袗孝 袙 HL
- BIOS(FUNC[,PARAM])
- BIOSHL(FUNC[,PARAM])
HL(FUNC[,PARAM])
聽
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
袪校袣袨袙袨袛小孝袙袨 袩袨袥鞋袟袨袙袗孝袝袥携
1. 袙袙袝袛袝袧袠袝
TURBO-PASCAL(小) 携袙袥携袝孝小携 袟袗袩袗孝袝袧孝袨袙袗袧袧蝎袦 袩袪袨袚袪袗袦袦袧蝎袦 袩袪袨袛校袣孝袨袦 肖袠袪袦蝎 "BORLAND
INC", (小楔袗). 协孝袨 袣袨袦袩袗袣孝袧蝎袡 袠 袦袨些袧蝎袡 袩袗小袣袗袥鞋-袣袨袦袩袠袥携孝袨袪 小袨 袙小孝袪袨袝袧袧蝎袦
孝袝袣小孝袨袙蝎袦 袪袝袛袗袣孝袨袪袨袦.
"TURBO" 小袨小孝袨袠孝 袠袟 小袥袝袛校挟些袠啸 袧袗袘袨袪袨袙 袛袗袧袧蝎啸 (肖袗袡袥袨袙):
TURBO.COM - 袣袨袦袩袠袥携孝袨袪 袠 袪袝袛袗袣孝袨袪 孝袝袣小孝袨袙,
TURBO MSG.OVR - 孝袝袣小孝蝎 小袨袨袘些袝袧袠袡 袨袘 袨楔袠袘袣袗啸,
孝URBO.OVR - 袠小袩袨袥袧袠孝袝袥鞋 袣袨袦袗袧袛袧蝎啸 肖袗袡袥袨袙 袠袟 TURBO 小袪袝袛蝎,
TLIST.COM - 袩袪袨袚袪袗袦袦袗 袩袝效袗孝袠 袩袪袨袚袪袗袦袦袧蝎啸 孝袝袣小孝袨袙.
协孝袠 效袝孝蝎袪袝 袧袗袘袨袪袗 袛袗袧袧蝎啸 袙袦袝小孝袝 袟袗袧袠袦袗挟孝 袧袗 袛袠小袣袝孝袝 50 袣袠袥袨袘袗袡孝.
"TURBO" 小袨袛袝袪袞袠孝 袩袨袥袧蝎袡 小孝袗袧袛袗袪孝袧蝎袡 袩袗小袣袗袥鞋 小 袧袝袟袧袗效袠孝袝袥鞋袧蝎袦袠
袨袚袪袗袧袠效袝袧袠携袦袠 袠 袦袧袨袚袨效袠小袥袝袧袧蝎袦袠 袪袗小楔袠袪袝袧袠携袦袠.
"TURBO" 袪袗袘袨孝袗袝孝 袩袨袛 校袩袪袗袙袥袝袧袠袝袦 袨袩袝袪袗笑袠袨袧袧袨袡 小袠小孝袝袦蝎 CP/M-80 (OSDOS
V 3.60, V3.70) 袧袗 袣袨袦袩鞋挟孝袝袪袝 "ORION-PRO" 袙 袪袝袞袠袦袝 "ORION-128" 袠袥袠 袧袗
袣袨袦袩鞋挟孝袝袪袝 "ORION-128" 小 袩袪袨笑袝小小袨袪袨袦 Z80.
袣袪袨袦袝 袙小孝袪袨袝袧袧蝎啸 肖校袧袣笑袠袡 小孝袗袧袛袗袪孝袧袨袚袨 袩袗小袣袗袥携 "TURBO" 袛袗袝孝
袙袨袟袦袨袞袧袨小孝鞋 袠小袩袨袥鞋袟袨袙袗袧袠携 袦袗楔袠袧袧0-袨袪袠袝袧孝袠袪袨袙袗袧袧蝎啸 袨袩袝袪袗笑袠袡.
袧袗袩袪袠袦袝袪, 袙 袣袨袦袩袠袥携孝袨袪袝 袠袦袝挟孝小携 袙袨袟袦袨袞袧袨小孝袠 袩袪携袦袨袡 袧袗小孝袪袨袡袣袠
袩袨袪孝袨袙 袙袙袨袛袗/袙蝎袙袨袛袗 袩袪袨笑袝小小袨袪袗, 袠啸 袨袩袪袨小袗. "TURBO" 孝袗袣袞袝 袩袨袛袛袝袪袞袠袙袗袝孝 袩袪携袦蝎袝 袨袩袝袪袗笑袠袠 小 袨袟校 .
袪袗袘袨效袠袡 袩袪袨笑袝小小 袩袨袥校效袝袧袠携 袟袗袚袪校袟袨效袧蝎啸 袦袨袛校袥袝袡 袟袧袗效袠孝袝袥鞋袧袨
小袨袣袪袗些袝袧 袠 校袩袪袨些袝袧 袩袨 小袪袗袙袧袝袧袠挟 小袨 小孝袗袧袛袗袪孝袧蝎袦 袩袗小袣袗袥袝袦. 袣袪袨袦袝
孝袨袚袨 袣袨袦袩袠袥携孝袨袪 袪袗小袩袨袟袧袗袝孝 袨楔袠袘袣袠 袙 孝袝袣小孝袝 袩袪袨袚袪袗袦袦蝎 袠 袗袙孝袨袦袗孝袠效袝小袣袠 袙袨袟袙袪袗些袗袝孝 袙 袪袝袞袠袦 袪袝袛袗袣孝袠袪袨袙袗袧袠携 小 校袣袗袟袗袧袠袝袦 袣校袪小袨袪袨袦
袦袝小孝袗 袨楔袠袘袣袠 袙 孝袝袣小孝袝 袩袪袨袚袪袗袦袦蝎.
袪袝袛袗袣孝袨袪 小袙携袟E袡 校 孝校袪袘袨 袨孝小校孝小孝袙校袝孝: 袙 袧袝袦 袩袪携袦袨 袠袟 袣袨袦袩袠袥携孝袨袪袗 袙袨袟袧袠袣袗挟孝 袦袗楔袠袧袧蝎袝 袣袨袛蝎, (孝.袝.袧袝孝 小孝袗袛袠袠 袗小小袝袦袘袥袠袪袨袙袗袧袠携
袠袥袠 袩袨袥校效袝袧袠携 袠袧袨袚袨 袩袪袨袦袝袞校孝袨效袧袨袚袨 袣袨袛袗) 袙 孝袨袦 小袥校效袗袝 袣袨袚袛袗 袠小啸袨袛袧蝎袡 孝袝袣小孝 袧袝 小袨袛袝袪袞袠孝 小袠袧孝袗袣小袠效袝小袣袠啸 袨楔袠袘袨袣.
袩袨小袥袝 袟袗袙袝袪楔袝袧袠携 袣袨袦袩袠袥携笑袠袠 袪袗袘袨效袗携 袩袪袨袚袪袗袦袦袗 袦袨袞袝孝 袩袪携袦袨
袟袗袚袪校袞袗孝鞋小携 袙 袨袟校 袠 袙蝎袩袨袥袧携孝鞋小携(袘袝袟 肖袨袪袦袠袪袨袙袗袧袠携 小袨袦. 肖袗袡袥袗) 袠袥袠 袙
袩袪袨笑袝小小袝 袣袨袦袩袠袥携笑袠袠 袦袨袞袝孝 肖袨袪袦袠袪袨袙袗孝鞋小携 肖袗袡袥 袙 袗袘小袨袥挟孝袧蝎啸 袣袨袛袗啸 (小袨袦-肖袗袡袥) 袧袗 袛袠小袣袝孝袝.
小袣袨袪袨小孝鞋 袣袨袦袩袠袥携笑袠袠 袛袨小孝袠袚袗袝孝 1000 袟袧袗袣袨袙 袙 袦袠袧校孝校 (!!!).
孝袨效袧袨小孝鞋 袨袩袝袪袗笑袠袡 小 袩袥袗袙袗挟些袝袡 袟袗袩携孝袨袡 小袨小孝袗袙袥携袝孝 11 袪袗袟袪携袛袨袙.
小袣袨袪袨小孝鞋 袨袘袪袗袘袨孝袣袠 校 孝校袪袘袨 袩袨效孝袠 孝袗袣袗携 袞袝, 袣袗袣 袠 校 PASCAL-MT+, 袗 孝袨效袧袨小孝鞋 袙蝎楔袝.
2. 袪袗袘袨孝袗 小 袣O袦袩袠袥携孝袨袪袨袦
------------------------
袣袨袦袩袠袥携孝袨袪 袙蝎袟蝎袙袗袝孝小携 袠袟 袨袩袝袪袗笑袠袨袧袧袨袡 小袠小孝袝袦蝎 袧袗袘袨袪袨袦 袧袗
袣袥袗袙袠袗孝校袪袝 袠袦袝袧袠 袚袥袗袙袧袨袚袨 肖袗袡袥袗 小袠小孝袝袦蝎 "TURBO".
袩袨小袥袝 袟袗袚袪校袟袣袠 袩袨携袙袥携袝孝小携 小孝袗袧袛袗袪孝袧袗携 袟袗小孝袗袙袣袗, 袟袗袩袗孝袝袧孝袨袙袗袧袧袗携 肖袠袪袦袨袡:
---------------------------------------------------------------
TURBO P袗SCAL SYSTEM VER.3.02A
CP/M-80,Z80
COPYRIGHT(C) 1983,84,85 BORLAND INC
TERMINAL: ORION-128
INCLUDE ERROR MESSAGES (Y/N) ?
袩袝袪袙蝎袡 袙袨袩袪袨小 袦袝袧挟 袧袗 袣袨孝袨袪蝎袡 袧袝袨袘啸袨袛袠袦袨 袨孝袙袝孝袠孝鞋 - 袟袗袚袪校袞袗孝鞋 袥袠
小袨袨袘些袝袧袠携 袨袘 袨楔袠袘袣袗啸 袣袨袦袩袠袥携笑袠袠 ? (INCLUDE ERROR MESSAGES (Y/N)?). 袙
小袥校效袗袝 袝小袥袠 袛袗, 袧袗袛袥袝袞袠孝 袨孝袙袝孝袠孝鞋 - Y, 袧袝孝 - N.
袣袨袦袩袠袥携孝袨袪 袗袙孝袨袦袗孝袠效袝小袣袠 袟袗袚袪校袟袠孝 小袨袨袘些袝袧袠携 袨袘 袨楔袠袘袣袗啸 小
袛袠小袣袝孝蝎 袠 袘校袛袝孝 袠啸 袙蝎袟蝎袙袗孝鞋 袧袗 协袣袪袗袧 袩袪袠 袨袘袧袗袪校袞袝袧袠袠 小袠袧孝袗袣小袠效袝小袣袠啸 袨楔袠袘袨袣 袙 袠小啸袨袛袧袨袦 孝袝袣小孝袝 袩袪袨袚袪袗袦袦蝎. 小袥袝袛校袝孝 袠袦袝孝鞋 袙袙袠袛校,
效孝袨 孝袝袣小孝 小袨袨袘些袝袧袠袡 袨袘 袨楔袠袘袣袗啸 袟袗袧袠袦袗袝孝 1-3 袣袠袥袨袘袗袡孝 袙 袨袟校 袠
袩袪袠 袧袗袩袠小袗袧袠袠 袘袨袥鞋楔袠啸 袩袪袨袚袪袗袦袦 小 袠啸 袣袨袦袩袠袥携笑袠袝袡 袧袝袩袨小袪袝袛小孝袙袝袧袧袨
袙 袙 袨袟校 袦袨袞袝孝 袩袪袨袠袟袨袡孝袠 袩袝袪袝袩袨袥袧袝袧袠袝 袣袨袦袩袠袥携孝袨袪袗. 袙 协孝袨袦 小袥校效袗袝
袧袗袛袨 袙蝎袡孝袠 袠袟 小袠小孝袝袦蝎 TURBO 小 袩袨袦袨些鞋挟 袣袨袦袗袧袛蝎 Q(QUIT), 袟袗孝袝袦
袩袨袙孝袨袪袧袨 袙袨袡孝袠 袙 袧袝袝 袧袗袘袨袪袨袦 袠袦袝袧袠 "TURBO", 袩袨小袥袝 效袝袚袨 袧袝 袟袗袚袪校袞袗孝鞋 小袨袨袘些袝袧袠袡 袨袘 袨楔袠袘袣袗啸, 校袙袝袥袠效袠袙 孝袝袦 小袗袦蝎袦 袨袘'袝袦 袛袨小孝校袩袧袨袡
袩袗袦携孝袠.
袝小袥袠 袙 孝袝袣小孝袝 袩袪袨袚袪袗袦袦蝎 袙袨 袙袪袝袦携 袣袨袦袩袠袥携笑袠袠 袨袘袧袗袪校袞袝袧袗
小袠袧孝袗袣小袠效袝小袣袗携 袨楔袠袘袣袗, 袩袪袨笑袝小小 袣袨袦袩袠袥携笑袠袠 袩袪袝袪蝎袙袗袝孝小携 小 袙蝎袙袨袛袨袦
袣袨袛袗 袨楔袠袘袣袠 袠 孝袝袣小孝袗 小袨袨袘些袝袧袠携 袨袘 袨楔袠袘袣袠 (小袨袨袘些袝袧袠携 袨袘 袨楔袠袘袣袗啸
袟袗袚袪校袞袝袧蝎) 袠袥袠 小 袙蝎袙袨袛袨袦 孝袨袥鞋袣袨 袣袨袛袗 袨楔袠袘袣袠(小袨袨袘些袝袧袠携 袨袘 袨楔袠袘袣袗啸 袧袝
袟袗袚袪校袞袝袧蝎). 袙袨袟袙袪袗孝 袙 袪袝袞袠袦 袪袝袛袗袣孝袠袪袨袙袗袧袠携 袨小校些袝小孝袙袥携袝孝小携 袩袨小袥袝 袧袗袞袗孝袠携 袣袥袗袙袠楔袠 <袝SC>.
袠袟 袨小袧袨袙袧袨袚袨 袦袝袧挟 袦袨袞袧袨 袙蝎袟袙袗孝鞋 小袥袝袛校挟些袠袝 肖校袧袣笑袠袠:
1.[L]OGGED DRIVE - 袪袗袘袨效袠袡 袛袠小袣袨袙袨袛-
2.[W]ORK FILE - 袪袗袘袨效袠袡 肖袗袡袥-
3.[M]AIN FILE - 袚袥袗袙袧蝎袡 肖袗袡袥-
4.[E]DIT - 袪袝袛袗袣孝袠袪袨袙袗袧袠袝-
5.[C]OMPILE - 袣袨袦袩袠袥携笑袠携-
6.[R]UN - 袙蝎袩袨袥袧袝袧袠袝-
7.[S]AVE - 袟袗袩袠小鞋 袧袗 袛袠小袣-
8.袝[X]ECUTE - 袙蝎袟袨袙 袣袨袦袗袧袛袧袨袚袨 肖袗袡袥袗-
9.[D]IR - 袙蝎袙袨袛 袨袚袥袗袙袥袝袧袠携 袛袠小袣袗-
10.COMPILER [O]PTIONS - 袙蝎袘袨袪 袪袝袞袠袦袗 袣袨袦袩袠袥携笑袠袠-
2.1. 肖校袧袣笑袠袠 袨小袧袨袙袧袨袚袨 袦袝袧挟
----------------------------
袟袧袗效袝袧袠袝 肖校袧袣笑袠袡 袦袝袧挟 袨袩袪袝袛袝袥携袝孝小携 袣袨袦袗袧袛袨袡. 袣袨袦袗袧袛蝎 袩袪袠袙袝袛袝袧蝎 袙 孝袗袘袥袠笑袝 肖校袧袣笑袠袡 袙 袣袙袗袛袪袗孝袧蝎啸 小袣袨袘袣袗啸. 袧袗袩袪袠袦袝袪 ,袙蝎袟袨袙
袪袝袛袗袣孝袨袪袗 - 袙袙袨袛 小袠袦袙袨袥袗 袝 (小袦袨孝袪袠 [E]DIT). 袣袨袦袗袧袛蝎 袦袨袞袧袨 袙袙袨袛袠孝鞋 袘袨袥鞋楔袠袦袠 袠 袦袗袥蝎袦袠 袘校袣袙袗袦袠.
2.1.1 肖校袧袣笑袠袠携 LOGGED DRIVE-袪袗袘袨效袠袡 袛袠小袣袨袙袨袛
---------------------------------------------
袪袗袘袨效袠袡 袛袠小袣袨袙袨袛 校小孝袗袧袗袙袥袠袙袗袝孝小携 袩袨 袣袨袦袗袧袛袝 "L". 袩袨小袥袝
袩袨袛小袣袗袟袣袠 小袠小孝袝袦蝎 NEW DRIVE (袧袨袙蝎袡 袛袠小袣袨袙袨袛) 袧校袞袧袨 袙袙袝小孝袠 袥袨袚袠效袝小袣袨袝 袠袦携 袛袠小袣袨袙袨袛袗 (袗,B,C,D,E).
2.1.2 WORK FILE-袪袗袘袨效袠袡 肖袗袡袥
-----------------------------
袩袨 袣袨袦袗袧袛袝 "W" 袩袨小袥袝 袩袨袛小袣袗袟袣袠 TURBO "WORK FILE NAME?"
(袠袦携 袪袗袘袨效袝袚袨 肖袗袡袥袗?)
袙袙袨袛袠孝小携 袠袦携 袧袗袘袨袪袗 袛袗袧袧蝎啸 (肖袗袡袥袗) 袧袗 袛袠小袣袝 小 袣袨孝袨袪蝎袦 袩袪袝袛袩袨袥袗袚袗袝孝小携
袪袗袘袨孝袗孝鞋.
袝小袥袠 孝袝袣小孝袨袙蝎袡 袪袝袛袗袣孝袨袪 TURBO 袠小袩袨袥鞋袟校袝孝小携 袛袥携 袪袝袛袗袣孝袠袪袨袙袗袧袠携 袧袗袘袨袪袨袙
袛袗袧袧蝎啸, 袧袗袩袠小袗袧袧蝎啸 袧袝 袧袗 携袟蝎袣袝 PASCAL, 孝袨 袙袦袝小孝袝 小
袠袦袝袧袝袦 肖袗袡袥袗 袛袨袥袞袝袧 袘蝎孝鞋 袙袙袝袛袝袧 袠 孝袠袩 (袧袗袩袪袠袦袝袪: EXAMPLE.TXT).
袝小袥袠 袧校袞袧蝎袡 肖袗袡袥 袧袗啸袨袛袠孝小携 袧袗 袛袪校袚袨袦 袛袠小袣袨袙袨袛袝, 孝袨 袩袝袪袝袛 袝袚袨
袠袦袝袧袝袦 小孝袗袙袠孝小携 袠袦携 袛袠小袣袨袙袨袛袗 小 袩袨小袥袝袛校挟些袠袦 袛袙袨袝孝袨效袠袝袦, 袧袗袩袪袠袦袝袪:
袙:EXAMPLE.TXT.
袝小袥袠 袪袝袛袗袣孝袨袪 袠小袩袨袥鞋袟校袝孝小携 袛袥携 袙袙袨袛袗 袠 袪袝袛袗袣孝袠袪袨袙袗袧袠携 袧袗袘袨袪袨袙 袛袗袧袧蝎啸,
袧袗袩袠小袗袧袧蝎啸 袧袗 携袟蝎袣袝 PASCAL-TURBO, TO 袟袗袛袗袧袠袝 孝袠袩袗
肖袗袡袥袗 ".PAS" 袧袝 袨袘携袟袗孝袝袥鞋袧袨: 小袠小孝袝袦袗 小袗袦袗 袗袙孝袨袦袗孝袠效袝小袣袠 袛袨袘袗袙袠孝
协孝袨孝 袗孝袪袠袘校孝 袣 袠袦袝袧袠 PASCAL-肖袗袡袥袗.
袝小袥袠 袩袨小袥袝 袙袙袨袛袗 袠袦袝袧袠 袪袗袘袨效袝袚袨 肖袗袡袥袗 小袠小孝袝袦袗 袧袝 袧袗袡袛袝孝 袝袚袨
袙 袨袚袥袗袙袥袝袧袠袠 袛袠小袣袗, 孝袨 袙蝎袛袗袝孝小携 小袨袨袘些袝袧袠袝:" NEW FILE" (肖袗袡袥 袧袨袙蝎袡), 袩袨小袥袝 效袝袚袨 袩袨 袣袨袦袗袧袛袝 [E]DIT (小袦.袩 2.1.4) 袦袨袞袧袨 袧袗效袗孝鞋
袙袙袨袛 袧袨袙袨袚袨 肖袗袡袥袗 袙 袪袝袞袠袦袝 协袣袪袗袧袧袨袚袨 袪袝袛袗袣孝袨袪袗.
2.1.3. MAIN FILE - 袚袥袗袙袧蝎袡 肖袗袡袥
--------------------------------
袚袥袗袙袧蝎袡 肖袗袡袥-协孝袨 肖袗袡袥 袧袗 携袟蝎袣袝 PASCAL,袣袨孝袨袪蝎袡 袦袨袞袝孝 袙袣袥挟效袗孝鞋 袙 小袝袘携
袧袝小袣袨袥鞋袣袨 袪袗袘袨效袠啸 肖袗袡袥袨袙, 袨袘'袝袛袠袧袝袧袧蝎啸 小 袩袨袦袨些鞋挟
INCLUDE-肖校袧袣笑袠袡. (小袦.2.1.4.5)
袩袪袠 袙蝎袩袨袥袧袝袧袠袠 袣袨袦袩袠袥携笑袠袠, 袝小袥袠 校小孝袗袧袨袙袥袝袧 袚袥袗袙袧蝎袡 肖袗袡袥,
孝袨 袙小袝袚袛袗 袧袗效袠袧袗袝孝小携 袨袘袪袗袘袨孝袣袗 袚袥袗袙袧袨袚袨 肖袗袡袥袗 袙 袧袝 袟袗袙袠小袠袦袨小孝袠
袨孝 孝袨袚袨, 袣袗袣袨袡 袪袗袘袨效袠袡 肖袗袡袥 袟袗袚袪校袞袝袧. 袝小袥袠 袚袥袗袙袧蝎袡 肖袗袡袥 袧袝 校小孝袗袧袨袙袥袝袧, 孝袨 袩袨 袣袨袦袗袧袛袝 "小"-袣袨袦袩袠袥袠袪袨袙袗孝鞋 袠袥袠 "R" -袙蝎袩袨袥袧袠孝鞋
袩袪袨袠袟袙袨袛袠孝小携 袨袘袪袗袘袨孝袣袗 袪袗袘袨效袝袚袨 肖袗袡袥袗.
袝小袥袠 袣袨袦袩袠袥携笑袠携 袩袪袨袠小啸袨袛袠孝 袙 小袨袦-FILE, 孝袨 袠袟 袚袥袗袙袧袨袚袨 (袠袥袠
袪袗袘袨效袝袚袨 肖袗袡袥袗, 袝小袥袠 袚袥袗袙袧蝎袡 袧袝 校小孝袗袧袨袙袥袝袧) 袗袙孝袨袦袗孝袠效袝小袣袠 袩袨袥校效袗袝孝小携 肖袗袡袥 袙 袗袘小袨袥挟孝袧蝎啸 袣袨袛袗啸 袦袗楔袠袧蝎 小 袠袦袝袧袝袦 袚袥袗袙袧袨袚袨 (袪袗袘袨效袝袚袨) 肖袗袡袥袗. 孝袠袩 协孝袨袚袨 肖袗袡袥袗 -".COM" 袛袗袝孝小携 小袠小孝袝袦袨袡 A袙孝袨袦袗孝袠效袝小袣袠. 袧袗袩袪袠袦袝袪, 袝小袥袠 袙蝎 袣袨袦袩袠袥袠袪校袝孝袝 袚袥袗袙袧蝎袡 肖袗袡袥 小 袠袦袝袧袝袦
"EXAMPLE.PAS" , TO 袧袗 袛袠小袣袝 袙 袪袝袟校袥鞋孝袗孝袝 袪袗袘袨孝蝎 袣袨袦袩袠袥携孝袨袪袗
小袨袟袛袗小孝小携 肖袗袡袥 小 袠袦袝袧袝袦 "EXAMPLE.COM".
2.1.4. EDIT - 袪袝袛袗袣孝袠袪袨袙袗袧袠袝
----------------------------
袙小孝袪袨袝袧袧蝎袡 袙 小袠小孝袝袦校 TURBO 校袛袨袘袧蝎袡 协袣袪袗袧袧蝎袡 袪袝袛袗袣孝袨袪 袙蝎袟蝎袙袗袝孝小携 袣袨袦袗袧袛袨袡
"袝" 袠袟 袨小袧袨袙袧袨袚袨 袦袝袧挟.
袝小袥袠 袩袝袪袝袛 袙蝎袟袨袙袨袦 袪袝袛袗袣孝袨袪袗 袪袗袘袨效袠袡 肖袗袡袥 袧袝 袘蝎袥 校小孝袗袧袨袙袥袝袧 袩袨 袣袨袦袗袧袛袝 "W"
(小袦.袩.2.1.2),孝袨 小袠小孝袝袦袗 校袙袝袛袨袦袠孝 袙袗小 袨袘 协孝袨袦 袙蝎袙袨袛袨袦 袧袗 袛袠小袩袥袝袡
小袨袨袘些袝袧袠携: "WORK FILE NAME?" (袠袦携 袪袗袘袨效袝袚袨 肖袗袡袥袗?), 袩袨小袥袝 效袝袚袨 袧校袞袧袨
袙袙袝小孝袠 袠袦携 袪袗袘袨效袝袚袨 肖袗袡袥袗 袙 袦袝小孝袨, 孝袪袝袘校袝袦袨袝 袩袨袛小袣袗袟袣袨袡 袧袗 协袣袪袗袧袝
袛袠小袩袥袝携.
袝小袥袠 袪袗袘袨效袠袡 肖袗袡袥 校袞袝 袘蝎袥 校小孝袗袧袨袙袥袝袧, 孝袨 袩袪袨袠小啸袨袛袠孝 袩袝袪袝啸袨袛 袙 袪袝袞袠袦
协袣袪袗袧袧袨袚袨 袪袝袛袗袣孝袠袪袨袙袗袧袠携.
袝小袥袠 袟袗袛袗袧袧蝎袡 袪袗袘袨效袠袡 肖袗袡袥 袨孝小校孝小孝袙校袝孝 袙 袨袚袥袗袙袥袝袧袠袠 袛袠小袣袗, 孝袨 袙蝎袙袨袛袠孝小携
小袨袨袘些袝袧袠袝 "NEW FILE " (袧袨袙蝎袡 肖袗袡袥), 袩袨小袥袝 效袝袚袨 袙袨袟袦袨袞袝袧 袩袝袪袝啸袨袛 袣 袙袙袨袛校
袛袗袧袧蝎啸 袙 袪袝袞袠袦袝 协袣袪袗袧袧袨袚袨 袪袝袛袗袣孝袨袪袗.
袩袨袛孝袙袝袪袞袛袝袧袠袝袦 小袨袚袥袗小袠携 袧袗 袙啸袨袛 袙 袪袝袛袗袣孝袨袪 袙 协孝袨袦 小袥校效袗袝 小袥校袞袠孝 袩袝袪袝袙袨袛
小孝袪袨袣袠 <袙袣>.
袙 袪袝袞袠袦袝 袪袝袛袗袣孝袨袪袗 袙袨袟袦袨袞袝袧 袙袙袨袛 小 袣袥袗袙袠袗孝校袪蝎 袥挟袘蝎啸 小袠袦袙袨袥袨袙 袙孝袨 袦袝小孝袨,
袧袗 袣袨孝袨袪袨袦 小孝袨袠孝 袣校袪小袨袪. 校袩袪袗袙袥袝袧袠袝 袣校袪小袨袪袨袦 袨小校些袝小孝袙袥携袝孝小携 小袩袝笑袠袗袥鞋袧蝎袦袠
袣袥袗袙袠楔袗袦袠 :
--> 袣校袪小袨袪 袙袩袪袗袙袨
<-- 袣校袪小袨袪 袙袥袝袙袨
I 袣校袪小袨袪 袙袧袠袟
V
^
I 袣校袪小袨袪 袙袙袝袪啸
袧袗 袣袥袗袙袠袗孝校袪袗啸 袪袗袟袥袠效袧蝎啸 袦袗楔袠袧 袠袦袝挟孝小携 袪袗袟袧蝎袝 肖校袧袣笑袠袨袧袗袥鞋袧蝎袝 袣袥袗袙袠楔袠
校袩袪袗袙袥袝袧袠携 袣校袪小袨袪袨袦, 袩袪袝袛小孝袗袙袥携挟些袠袝 袩袨袥鞋袟袨袙袗孝袝袥挟 袛袨袩袨袥袧袠孝袝袥鞋袧蝎袝
袙袨袟袦袨袞袧袨小孝袠.
袦袨袞袧袨 孝袗袣袞袝 校袩袪袗袙袥携孝鞋 袣校袪小袨袪袨袦 小 袩袨袦袨些鞋挟 袧袗袞袗孝袠携 袣袥袗袙袠楔袠 CNTRL(CONTROL)
小 袨袛袧袨袙袪袝袦袝袧袧蝎袦 袠小袩袨袥鞋袟袨袙袗袧袠袝袦 袛袪校袚袠啸 小袠袦袙袨袥鞋袧蝎啸 袣袥袗袙袠楔. 袪袝效鞋 袨袘 协孝袨袦
袩袨袡袛袝孝 袙 小袥袝袛校挟些袝袦 袩校袧袣孝袝. 袛袥携 效袠孝袗孝袝袥袝袡, 袟袧袗袣袨袦蝎啸 小 袪袗袘袨孝袨袡 孝袝袣小孝袨袙袨袚袨
袪袝袛袗袣孝袨袪袗 "WORDSTAR" 小袨袨袘些袗袝袦, 效孝袨 袣袨袦袗袧袛蝎 孝袝袣小孝袨袙袨袚袨 袪袝袛袗袣孝袨袪袗 "TURBO"
袩袨效孝袠 孝袗袣袠袝 袞袝.
2.1.4.1 校袩袪袗袙袥袝袧袠袝 袣校袪小袨袪袨袦
----------------------------
袛袥携 校袩袪袗袙袥袝袧袠携 袣校袪小袨袪袨袦 袦袨袞袧袨 校袩袨孝袪袝袘袥携孝鞋 袣袨袦袗袧袛蝎, 袙袙袨袛袠袦蝎袝
O袛袧袨袙袪袝袦袝袧袧袨 小 袧袗袞袗孝袠袝袦 袣袥袗袙袠楔袠 CTRL, 袣袨袛 袣袨孝袨袪袨袡 袦蝎 校小袥袨袙袧袨 袘校袛袝袦 袨袘袨袟袧袗效袗孝鞋 袟袧袗袣袨袦 ^. 袧袗袩袪袠袦袝袪, 袧袗袞袗孝袠袝 CTRL 袨袛袧袨袙袪袝袦袝袧袧袨 小
袣袥袗袙袠楔袝袡 "C" 袙 袧袗楔袠啸 袨袘袨袟袧袗效袝袧袠携啸 袘校袛袝孝 袙蝎袚袥携袛袝孝鞋, 袣袗袣 ^C.
肖校袧袣笑袠袠 校袩袪袗袙袥袝袧袠携 袣校袪小袨袪袨袦 袩袪袠袙袨袛携孝小携 袙 袙袠袛袝 孝袗袘袥袠笑蝎.
--------------------------------------------------------------
肖校袧袣笑袠携 袣袨袦袗袧袛袗
--------------------------------------------------------------
袣校袪小袨袪 袙袥袝袙袨 袧袗 袨袛袧袨 袟袧袗袣袨袦袝小孝袨 ^H 袠袥袠 ^S
袣校袪小袨袪 袙袩袪袗袙袨 _.._ ^D
袣校袪小袨袪 袙袙袝袪啸 袧袗 袨袛袧校 小孝袪袨袣校 ^E
袣校袪小袨袪 袙袧袠袟 _.._ ^X
袣校袪小袨袪 袙袥袝袙袨 袧袗 袨袛袧袨 小袥袨袙袨 ^A
袣校袪小袨袪 袙袩袪袗袙袨 _.._ ^F
协袣袪袗袧 袙袧袠袟 袧袗 袨袛袧校 小孝袪袨袣校 ^W
协袣袪袗袧 袙袙袝袪啸 _.._ ^Z
协袣袪袗袧 袙袧袠袟 袧袗 袨袛袧校 小孝袪袗袧袠笑校 ^R
协袣袪袗袧 袙袙袝袪啸 _.._ ^C
袣校袪小袨袪 袧袗 袥袝袙蝎袡 袣袪袗袡 小孝袪袨袣袠 ^QS
袣校袪小袨袪 袧袗 袩袪袗袙蝎袡 袣袪袗袡 小孝袪袨袣袠 ^QD
袣校袪小袨袪 袧袗 袧袗效袗袥袨 小孝袪袗袧袠笑蝎 ^QE
袣校袪小袨袪 袧袗 袣袨袧袝笑 小孝袪袗袧袠笑蝎 ^QX
袣校袪小袨袪 袧袗 袧袗效袗袥袨 袛袗袧袧蝎啸 袙 肖袗袡袥袝 ^QR
袣校袪小袨袪 袧袗 袣袨袧袝笑 袛袗袧袧蝎啸 袙 肖袗袡袥袝 ^QC
袣校袪小袨袪 袧袗 袧袗效袗袥袨 袘袥袨袣袗 ^QB
袣校袪小袨袪 袧袗 袣袨袧袝笑 袘袥袨袣袗 ^QK
袣校袪小袨袪 袧袗袟袗袛 袧袗 袨袛袧袨 袟袧袗袣袨袦袝小孝袨 ^QP
-------------------------------------------------------------
2.1.4.2. 袙小孝袗袙袣袗 袠 袠小袣袥挟效袝袧袠袝 小孝袪袨袣 袠 小袠袦袙袨袥袨袙
----------------------------------------------
-----------------------------------------------------------
肖校袧袣笑袠携 袣袨袦袗袧袛袗
-----------------------------------------------------------
袙袣袥挟效袝袧袠袝/袙蝎袣袥挟效袝袧袠袝 袪袝袞袠袦袗 袙小孝袗袙袣袠 小袠袦袙袨袥袗 ^V
袙小孝袗袙袣袗 小孝袪袨袣袠 ^N
袠小袣袥挟效袝袧袠袝 小孝袪袨袣袠 ^Y
小孝袠袪袗袧袠袝 小袠袦袙袨袥袨袙 袛袨 袣袨袧笑袗 小孝袪袨袣袠 小 袩袨袟.袣校袪小袨袪袗 ^QY
小袥袨袙袨 袙袩袪袗袙袨 袨孝 袩袨袟.袣校袪小袨袪袗 小袨 小孝袠袪袨袧袠袝袦 小袠袦袙袨袥袨袙 ^T
小孝袠袪袗袧袠袝 袟袧袗袣袗 袙 袩袨袟袠笑袠袠 袣校袪小袨袪袗 ^G
小孝袠袪袗袧袠袝 袟袧袗袣袗 袙 袩袨袟袠笑袠袠 袣校袪小袨袪袗 袠 袙袥袝袙袨 DEL
袧袗 袨袛袧袨 袟袧袗袣袨袦袝小孝袨
-----------------------------------------------------------
2.1.4.3. 袣袨袦袗袧袛蝎 袪袗袘袨孝蝎 小 袘袥袨袣袗袦袠 孝袝袣小孝袗
----------------------------------------
袩袪袝袛校袩袪袝袞袛袝袧袠袝! 袦袝孝袣袠 袧袗效袗袥袗 袠 袣袨袧笑袗 袘袥袨袣袨袙 袧袝 孝袗袣袠袝, 袣袗袣袠袝 袩袪袠袧携孝蝎 袙
袪袝袛袗袣孝袨袪袝 "WORDSTAR", 啸袨孝携 小袗袦袠 袣袨袦袗袧袛蝎 袪袗袘袨孝蝎 小 袘袥袨袣袗袦袠 袨袛袠袧袗袣袨袙蝎.
小袩袨小袨袘 袦袗袪袣袠袪袨袙袣袠 袘袥袨袣袨袙 袙 "TURBO" 袧袗小孝袪袗袠袙袗袝孝小携 袣 袣袗袞袛袨袡 袣袨袧袣袪袝孝袧袨袡
袪袝袗袥袠袟袗笑袠袠 小袠小孝袝袦蝎.
袣袨袦袗袧袛蝎 袪袗袘袨孝蝎 小 袘袥袨袣袗袦袠 小袙袝袛袝袧蝎 袙 孝袗袘袥袠笑校.
--------------------------------------------------------
肖校袧袣笑袠携 袣袨袦袗袧袛袗
--------------------------------------------------------
袨孝袦袝孝袣袗 袧袗效袗袥袗 袘袥袨袣袗 ^KB
袨孝袦袝孝袣袗 袣袨袧笑袗 袘袥袨袣袗 ^KK
OTMETKA 小袥袨袙袗 ^KT
校小孝袗袧袨袙袣袗 袦袝孝袨袣 袘袥袨袣袗 袙袠袛袠袦蝎袦袠/袧袝袙袠袛袠袦蝎袦袠 ^KH
袣袨袩袠袪袨袙袗袧袠袝 袘袥袨袣袗 ^KC
袩袝袪袝袛袙袠袞袝袧袠袝 袘袥袨袣袗 ^袣V
小孝袠袪袗袧袠袝 袘袥袨袣袗 ^KY
效孝袝袧袠袝 袛袗袧袧蝎啸 袠袥袠 袘袥袨袣袗 小 袛袠小袣袗 ^袣R
袟袗袩袠小鞋 袛袗袧袧蝎啸 袠袥袠 袘袥袨袣袗 袧袗 袛袠小袣 ^KW
--------------------------------------------------------
2.1.4.4. 袙小孝袪袨袝袧袧蝎袝 肖校袧袣笑袠袠 袪袝袛袗袣孝袨袪袗
-------------------------------------
袙小孝袪袨袝袧袧蝎袝 肖校袧袣笑袠袠 袪袝袛袗袣孝袨袪袗 TURBO 袪袗袘袨孝袗挟孝 孝袗袣袞袝, 袣袗袣 袠
袪袝袛袗袣孝袨袪袗 "WORDSTAR".
----------------------------------------------------------
肖校袧袣笑袠携 袣袨袦袗袧袛袗
----------------------------------------------------------
袙蝎啸袨袛 袠袟 袪袝袛袗袣孝袨袪袗 袙 袨小袧袨袙袧袨袝 袦袝袧挟 ^KD
孝袗袘校袥携笑袠携 ^I
袗袙孝袨袦袗孝袠效袝小袣袗携 孝袗袘校袥携笑袠携 袙袣袥挟效袝袧袗/袙蝎袣袥挟效袝袧袗 ^QI
袙蝎袟袨袙 袠袟 袘校肖袝袪袗 袙袙袝袛袝袧袧袨袡 小孝袪袨袣袠 ^QL
袩袨袠小袣 孝袝袣小孝袗 ^QF
袩袨袠小袣 袠 袟袗袦袝袧袗 孝袝袣小孝袗 ^QA
校袩袪袗袙袥袝袧袠袝 袟袧袗袣袨袦 肖袨袪袟袗笑袗 ^P
----------------------------------------------------------
2.1.4.5. 肖校袧袣笑袠袠 袨袘'袝袛袠袧袝袧袠携 袩袪袨袚袪袗袦袦. (INCLUDE-肖校袧袣笑袠袠)
--------------------------------------------------------
袛袗袧袧蝎袝 肖校袧袣笑袠袠 袪袝袛袗袣孝袨袪袗 袩袨袟袙袨袥携挟孝 小孝蝎袣袨袙蝎袙袗孝鞋 袙 袨袛袧校 袩袪袨袚袪袗袦袦校 袪袗袧袝袝
袧袗袩袠小袗袧袧蝎袝 袧袗 携袟蝎袣袝 PASCAL TURBO 袩袪袨袚袪袗袦袦袧蝎袝 袘袥袨袣袠.
小孝蝎袣袨袙袣袗 袩袪袨袚袪袗袦袦 袩袪袨袠袟袙袨袛袠孝小携 袩校孝袝袦 袟袗袛袗袧袠携 袙 孝袝袣小孝袝 袨小袧袨袙袧袨袡 袩袪袨袚袪袗袦袦蝎
(孝.袝. 孝袨袡 袩袪袨袚袪袗袦袦蝎, 袣袨孝袨袪袗携 袛袨袥袞袧袗 袩袨袥校效袠孝鞋小携 袙 袪袝袟校袥鞋孝袗孝袝 小孝蝎袣袨袙袣袠.
袠袧袨袚袛袗 袦蝎 袘校袛袝袦 袧袗袟蝎袙袗孝鞋 孝袗袣校挟 袩袪袨袚袪袗袦袦校 "袚袥袗袙袧袨袡 袩袪袨笑袝袛校袪袨袡",袩袨
袗袧袗袥袨袚袠袠 小 袧袗袟袙袗袧袠袝袦 袩袪袠袧携孝蝎袦 袛袥携 袩袨袛袨袘袧蝎啸 袩袪袨袚袪袗袦袦 袙 袧袝袣袨孝袨袪蝎啸 携袟蝎袣袗啸
袩袪袨袚袪袗袦袦袠袪袨袙袗袧袠携) 袨袛袧袨袚袨 袠袥袠 袧袝小袣袨袥鞋袣袠啸 校孝袙袝袪袞袛袝袧袠袡 小袥袝袛校挟些袝袚袨 袙袠袛袗:
(*$I <袠袦携 肖袗袠袥袗>*) .
袣袨袦袩袠袥携孝袨袪 袟袗袚袪校袞袗袝孝 袙袨 袙袪袝袦携 袪袗袘袨孝蝎 校袣袗袟袗袧袧蝎袝 袙 袧袗袘袨袪袝 袛袗袧袧蝎啸 <袠袦携
肖袗袡袥袗> 袩袪袨袚袪袗袦袦袧蝎袝 袦袨袛校袥袠 袠 袨袘'袝袛袠袧携袝孝 袠啸 袙 袨小袧袨袙袧校挟 袪袗袘袨效校挟 袩袪袨袚袪袗袦袦校.
小孝蝎袣袨袙袣袗 袩袪袨袚袪袗袦袦 袩袨袛袨袘袧蝎袦 袨袘袪袗袟袨袦 携袙袥携袝孝小携 袝袛袠袧小孝袙袝袧袧袨袡 袙袨袟袦袨袞袧袨小孝鞋挟
小袠小孝袝袦蝎 TURBO 袣袨袧小孝袪校袠袪袨袙袗孝鞋 袘袨袥鞋楔袠袝 袩袪袨袚袪袗袦袦蝎 袠袦袝袧袧袨 袛袨 袧袗效袗袥袗 袠啸
袣袨袦袩袠袥携笑袠袠, 孝袗袣 袣袗袣 校袞袝 袚袨袙袨袪袠袥袨小鞋, 效孝袨 袙袙袠袛校 袨孝小校孝小孝袙袠携 袙 小袠小孝袝袦袝
袪袝袛袗袣孝袨袪袗 小袙携袟袝袡, 袨袘'袝袛袠袧袝袧袠袝 袨袘'袝袣孝袧蝎啸 袣袨袛袨袙 袨孝孝袪袗袧小袥袠袪袨袙袗袧袧蝎啸 袨孝袛袝袥鞋袧袨
袦袨袛校袥袝袡 袙 袨袘些袠袡 袟袗袚袪校袟袨效袧蝎袡 袦袨袛校袥鞋 - 袧袝袙袨袟袦袨袞袧袨.
袛袥携 袙蝎袙袨袛袗 孝袝袣小孝袗 袨袘'袝袛袠袧袝袧袨袡 袩袪袨袚袪袗袦袦蝎 小 袩袨袦袨些鞋挟 TLIST 小 袟袗袛袗袧袠袝袦 .L+
O袩笑袠袠 (小袦 袨袩袠小袗袧袠袝 袩袪袨袚袪袗袦袦蝎 TLIST) 小袥袝袛校袝孝 袨袘携袟袗孝袝袥鞋袧袨 袟袗袛袗袙袗孝鞋 孝袠袩
肖袗袡袥袗 ".PAS", 袩袨孝袨袦校 效孝袨 袩袪袨袚袪袗袦袦袗 TLIST 袧袝 孝袪袗袧小袥携孝袨袪, 袗 袥袠楔鞋 袦袨袛校袥鞋 袛袥携
袙蝎袙袨袛袗 袧袗 袩袪袠袧孝袝袪 袩袪袨袚袪袗袦袦袧蝎啸 孝袝袣小孝袨袙, 袩袨协孝袨袦校 袗袙孝袨袦袗孝袠效袝小袣袠 袣 袠袦袝袧袠
肖袗袡袥袗 袗孝袪袠袘校孝 ".PAS" 孝袠袩袗 肖袗袡袥袗 袧袝 袛袨袘袗袙袥携袝孝.
2.1.5. 袣袨袦袩袠袥携笑袠携.
------------------
袣袨袦袩袠袥携笑袠携 -协孝袨 袩袝袪袝袙袨袛 袠小啸袨袛袧袨袚袨 孝袝袣小孝袗 袩袪袨袚袪袗袦袦蝎, 袧袗袩袠小袗袧袧袨袚袨 袧袗
袙啸袨袛袧袨袦 携袟蝎袣袝 袙蝎小袨袣袨袚袨 校袪袨袙袧携 (袙 袛袗袧袧袨袦 小袥校效袗袝 袧袗
携袟蝎袣袝 PASCALTURBO) 袙 袗袘小袨袥挟孝袧蝎袝 袦袗楔袠袧袧蝎袝 袣袨袛蝎.
袝小袥袠 袩袪袠 袣袨袦袩袠袥携笑袠袠 袟袗袛袗袧 袪袝袞袠袦 袙蝎袙袨袛袗 小袣袨袦袩袠袥袠袪袨袙袗袧袧袨袡 袩袪袨袚袪袗袦袦蝎 袙
袗袘小袨袥挟孝袧蝎袡 袣袨袦袗袧袛袧蝎袡 肖袗袡袥 (COM-肖袗袡袥) 小 袩袨袦袨些鞋挟 袨袩笑袠袠 "C" (小袦.袩.2.1.11), 孝袨 小袠小孝袝袦袗 TURBO 袗袙孝袨袦袗孝袠效袝小袣袠 肖袨袪袦袠袪校袝孝
袣袨袦袗袧袛袧蝎袡 肖袗袡袥 小袨小孝袨携些袠袡 孝袨袥鞋袣袨 袠袟 袗袘小袨袥挟孝袧蝎啸 袣袨袛袨袙 袦袗楔袠袧蝎
(.COM-肖袗袡袥).
袙袨 袙袪袝袦携 袣袨袦袩袠袥携笑袠袠 袧袗 袛袠小袩袥袝袡 袙蝎袙袨袛袠孝小携 孝袝袣小孝:
COMPILING (袣袨袦袩袠袥携笑袠携 袙 袨袩袝袪袗孝袠袙袧校挟 袩袗袦携孝鞋).
袠袥袠 COMPILING --> COM FILE <袠袦携 肖袗袡袥袗> (K袨袦袩袠袥携笑袠携 袙 COM-肖袗袡袥).
袟袛袝小鞋 袞袝 小效袝孝效袠袣 袨孝袣袨袦袩袠袥袠袪袨袙袗袧袧蝎啸 小孝袪袨袣 袩袨袣袗袟蝎袙袗袝孝, 小袣袨袥鞋袣袨
小孝袪袨袣 袠小啸袨袛袧袨袚袨 孝袝袣小孝袗 袨袘袪袗袘袨孝袗袥 袣袨袦袩袠袥携孝袨袪.
袧袗袩袪袠袦袝袪, 小袨袨袘些袝袧袠袝 :253 LINES -O袟袧袗效袗袝孝, 效孝袨 小袨袣袦袩袠袥袠袪袨袙袗袧袨
253 小孝袪袨袣袠. 袝小袥袠 袣袨袦袩袠袥携孝袨袪 袨袘袪袗袘袗孝蝎袙袗袝孝 肖袗袡袥 袠袟
INCLUDE-校孝袙袝袪袞袛袝袧袠携(小袦.2.1.4.5), 孝袨 袩袝袪袝袛 袧袨袦袝袪袨袦 小孝袪袨袣袠 袙蝎袙袨袛袠孝小携
小袠袦袙袨袥
"I".
袩袪袠 袨袘袧袗袪校袞袝袧袠袠 小袠袧孝袗袣小袠效袝小袣袠啸 袨楔袠袘袨袣 袙 袠小啸袨袛袧袨袦 孝袝袣小孝袝
袩袪袨袚袪袗袦袦蝎 袙蝎袙袨袛袠孝小携 小袨袨袘些袝袧袠袝:
ERROR < 袧袨袦袝袪 > : <小袨袨袘些袝袧袠袝 袨袘 袨楔袠袘袣袝>.PRESS <ESC>
袩袨小袥袝 袧袗袞袗孝袠携 袣袥袗袙袠楔袠 <ESC> 袩袪袨袠小啸袨袛袠孝 袙袨袟袙袪袗孝 袙 袪袝袞袠袦 袪袝袛袗袣孝袠袪袨袙袗袧袠携 袠
袣校袪小袨袪 袩袨袣袗袟蝎袙袗袝孝 袦袝小孝袨 袙 孝袝袣小孝袝 袩袪袨袚袪袗袦袦蝎, 袙 袣袨孝袨袪袨袦 袨袘袧袗袪校袞袝袧袗 小袠袧孝袗袣小袠效袝小袣袗携 袨楔袠袘袣袗. 袣袨袦袩袠袥携笑袠携, 袝小孝袝小孝袙袝袧袧袨, 袩袪袝袪蝎袙袗袝孝小携.
袝小袥袠 小袠袧孝袗袣小袠效袝小袣袗携 袨楔袠袘袣袗 袨袘袧袗袪校袞袝袧袗 袙 肖袗袡袥袝, 袨袘'携袙袥袝袧袧袨袦 袙
INCLUDE 校孝袙袝袪袞袛袝袧袠袠, 孝袨 袙蝎袙袨袛袠孝小携 小袨袨袘些袝袧袠袝 袨袘 袨楔袠袘袣袝 袠 孝袝袣小孝:
"ERROR FOUND IN ABOVE INCLUDE FILE"-袨楔袠袘袣袗 袨袘袧袗袪校袞袝袧袗 袙 袙蝎楔袝袧袗袟袙袗袧袧袨袦 INCLUDE 肖袗袡袥袝, 袩袨小袥袝 效袝袚袨 袩袪袨袠袟袙袨袛袠孝小携 袟袗袚袪校袟袣袗 协孝袨袚袨
肖袗袡袥袗 袙 袨袟校 袠 袗袙孝袨袦袗孝袠效袝小袣袠 袦袝袧携袝孝小携 袠袦携 袪袗袘袨效袝袚袨 肖袗袡袥袗 袙 袨小袧袨袙袧袨袦 袦袝袧挟, 孝袨 袝小孝鞋 肖袗袡袥, 袙 袣袨孝袨袪袨袦 袨袘袧袗袪校袞袝袧袗 袨楔袠袘袣袗, 小孝袗袧袨袙袠孝小携
袪袗袘袨效袠袦.
袝小袥袠 袠小啸袨袛袧袗携 袩袪袨袚袪袗袦袦袗 小袠袧孝袗袣小袠效袝小袣袠 袙袝袪袧袗, 孝袨 袧袗 协袣袪袗袧
袙蝎袙袨袛袠孝小携 小袥袝袛校挟些袝袝:
CODE: XXXX BYTES (袧袗效袗袥鞋袧蝎袡 袠 袣袨袧袝效袧蝎袝 袗袛袪袝小袗 袙 袨袟校)
FREE: XXXX BYTES ( " " " " " " )
DATA: XXXX BYTES ( " " " " " " )
协孝袠 袧袗袛袩袠小袠 袩袨袣袗袟蝎袙袗挟孝 袪袗袟袦袝袪 袠 袪袗小袩袨袥袨袞袝袧袠袝 袩袪袨袚袪袗袦袦蝎 袠
袛袗袧袧蝎啸 袙 袨袟校 袦袗楔袠袧蝎.
袪袝袞袠袦蝎 袣袨袦袩袠袥携笑袠袠 袪袗小小袦袗孝袪袠袙袗挟孝小携 袙 袩校袧袣孝袝 2.1.11 .
2.1.6. RUN - 袙蝎袩袨袥袧袝袧袠袝.
-------------------------
袣袨袚袛袗 袧袝袨袘啸袨袛袠袦袨 袙蝎袩袨袥袧袠孝鞋 袨孝孝袪袗袧小袥袠袪袨袙袗袧袧校挟 袘袝袟 袨楔袠袘袨袣 袩袪袨袚袪袗袦袦校 袠袥袠
袣袨袚袛袗 孝袪袝袘校袝孝小携 小袨袙袦袝小孝袠孝鞋 袩袪袨笑袝小小 袣袨袦袩袠袥携笑袠袠 小 袩袪袨笑袝小小袨袦 袙蝎袩袨袥袧袝袧袠携
袩袪袨袚袪袗袦袦蝎 小袥袝袛校袝孝, 袩袨小袥袝 袙蝎啸袨袛袗 袠袟 袪袝袞袠袦袗 袪袝袛袗袣孝袠袪袨袙袗袧袠携 袩袨 袣袨袦袗袧袛袝 ^袣D
袠袟 袨小袧袨袙袧袨袚袨 袦袝袧挟 袟袗袛袗孝鞋 小袠小孝袝袦袝 袛袠袪袝袣孝袠袙校 "R".
袝小袥袠 袩袪袨袚袪袗袦袦袗 袩袪袠 协孝袨袦 校袞袝 袘蝎袥袗 小袣袨袦袩袠袥袠袪袨袙袗袧袗 袩袨 袣袨袦袗袧袛袝
"C",TO 小 袟袗袛袗袧袠袝袦 "R"小袪袗袟校 袧袗效袧袝孝小携 袝袝 袠小袩袨袥袧袝袧袠袝.
袝小袥袠 袩袪袨袚袪袗袦袦袗 袩袪袝袛袙袗袪袠孝袝袥鞋袧袨 小袣袨袦袩袠袥袠袪袨袙袗袧袗 袧袝 袘蝎袥袗, 孝袨
小袧袗效袗袥袗 袘校袛袝孝 袩袪袨袠袟袙袨袛袠孝小携 袝袝 袣袨袦袩袠袥携笑袠携 孝袨效袧袨 孝袗袣 袞袝, 袣袗袣 袠 袩袨
袛袠袪袝袣孝袠袙袝 "C",袗 袩袨孝袨袦 校袩袪袗袙袥袝袧袠袝 袩袝袪袝袛袗小孝小携 袨孝孝袪袗袧小袥袠袪袨袙袗袧袧袨袡
袩袪袨袚袪袗袦袦袝.
E小袥袠 袩袪袨袚袪袗袦袦袗 小袨袛袝袪袞袠孝 小袠袧孝袗袣小袠效袝小袣袠袝 袨楔袠袘袣袠. 孝袨 袝袝 袙蝎袩袨袥袧袝袧袠袝 袘校袛袝孝 袩袪袝袪袙袗袧袨 袠, 袩袨小袥袝 袧袗袞袗孝袠携 <ESC>,袩袪袨袠袟袨袡袛袝孝 袩袝袪袝啸袨袛 袙
袪袝袞袠袦 袪袝袛袗袣孝袠袪袨袙袗袧袠携 孝袨效袧袨 孝袗袣袞袝, 袣袗袣 袠 袩袪袠 袣袨袦袩袠袥携笑袠袠 袘袝袟 袙蝎袩袨袥袧袝袧袠携.
2.1.7. SAVE - 袟袗袩袠小鞋 袧袗 袛袠小袣
----------------------------
袟袗袩袠小鞋 袠小啸袨袛袧袨袡 袩袪袨袚袪袗袦袦蝎, 袧袗 携袟蝎袣袝 PASCAL TURBO, 袩袨袥校效袝袧袧袨袡 小 袩袨袦袨些鞋挟 袪袝袛袗袣孝袨袪袗 袧袗 协袣袪袗袧袝 袛袠小袩袥袝携 袨小校些袝小孝袙袥携袝孝小携 袩袨小袥袝
袙蝎啸袨袛袗 袙 袨小袧袨袙袧袨袝 袦袝袧挟 袠袟 袪袝袛袗袣孝袨袪袗 (袩袨 袣袨袦袗袧袛袝 ^袣D) 小 袩袨袦袨些鞋挟
袩袨小袥袝袛校挟些袝袡 袛袠袪袝袣孝袠袙蝎 "S".
袩袪袠 协孝袨袦, 袝小袥袠 袧袗 袛袠小袣袝 校袞袝 小校些袝小孝袙袨袙袗袥 肖袗袡袥 小 袠袦袝袧袝袦 袪袗袘袨效袝袚袨 肖袗袡袥袗, 袣袨孝袨袪蝎袡 孝袨袥鞋袣袨 效孝袨 袪袝袛袗袣孝袠袪袨袙袗袥小携, 袨孝袪袝袛袗袣孝袠袪袨袙袗袧袧蝎袡
肖袗袡袥 袟袗袩袠楔袝孝小携 袧袗 袧袨袙袨袝 袦袝小孝袨, 袗 肖袗袡袥, 小校些袝小孝袙袨袙袗袙楔袠袡 小 协孝袠袦 袠袦袝袧袝袦 袪袗袧鞋楔袝, 袠袟袦袝袧袠孝 孝袠袩 ".PAS" 袧袗 孝袠袩 ".BAK" - 孝袠袩 袪袝袟袝袪袙袧袨袚袨
肖袗袡袥袗.
2.1.8. EXECUTE-袙蝎袟袨袙 袠 袙蝎袩袨袥袧袝袧袠袝 袣袨袦袗袧袛袧袨袚袨 肖袗袡袥袗.
---------------------------------------------------
袙蝎袟袨袙 袣袗袣袨袚袨-袥袠袘袨 袣袨袦袗袧袛袧袨袚袨 肖袗袡袥袗 (袧袗袩袪袠袦袝袪 小袝袪袙袠小袧蝎啸
袩袪袨袚袪袗袦袦 袨小 CP/M-80) 袠袟 袪袝袞袠袦袗 袪袝袛袗袣孝袠袪袨袙袗袧袠携 小袠小孝袝袦蝎 TURBO 小
袩袨小袥袝袛校挟些袠袦 袙袨袟袙袪袗孝袨袦 袙 袧袝袝 袨小校些袝小孝袙袥携袝孝小携 袠袟 袨小袧袨袙袧袨袚袨 袦袝袧挟 小
袩袨袦袨些鞋挟 袣袨袦袗袧袛蝎 X (E[X]EQUTE).
袩袨小袥袝 袙袙袨袛袗 X 袧袝袨袘啸袨袛袠袦袨 袟袗袛袗孝鞋 袠袦携 袣袨袦袗袧袛袧袨袚袨 肖袗袡袥袗. 校袣袗袟袗袧袠袝 孝袠袩袗 肖袗袡袥袗 ".COM" 袙 袠袦袝袧袠 袙蝎袟蝎袙袗袝袦袨袚袨 肖袗袡袥袗 袧袝 孝袪袝袘校袝孝小携. 袝小袥袠 袠袦携 肖袗袡袥袗 袧袝 袟袗袛袗袧袨, "TURBO" 袙蝎袙袨袛袠孝 袩袨袛小袣袗袟袣校 "PROGRAM",袣袨孝袨袪袗携 袚袨袙袨袪袠孝 袨 袧袝袨袘啸袨袛袠袦袨小孝袠 袙袙袨袛袗 小袥袝袛袨袦 袟袗 袩袨袛小袣袗袟袣袨袡
袠袦袝袧袠 肖袗袡袥袗.
袠袦携 袪袗袘袨效袝袚袨 肖袗袡袥袗 袩袪袠 袠小袩袨袥袧袝袧袠袠 袣袨袦袗袧袛袧袨袚袨 肖袗袡袥袗 袧袝 袦袝袧携袝孝小携, 袧袨 小袨啸袪袗袧携袝孝小携 袙 小孝袝袣袝 袙袨袟袙袪袗孝袗, 效孝袨 袛袗袝孝 袙袨袟袦袨袞袧袨小孝鞋 小袠小孝袝袦袝
袙袧袨袙鞋 袟袗袚袪校袟袠孝鞋 袪袗袘袨效袠袡 肖袗袡袥 袙 袨袟校 袗袙孝袨袦袗孝袠效袝小袣袠 袩袨小袥袝 袟袗袙袝袪楔袝袧袠携 袙蝎袩袨袥袧袝袧袠携 袙蝎袟袙袗袧袧袨袡 袩袨 袣袨袦袗袧袛袝 "啸" 袩袪袨袚袪袗袦袦蝎.
小袥袝袛校袝孝 袠袦袝孝 袙 袙袠袛校, 效孝袨 袝小袥袠 袙蝎袟蝎袙袗袝袦袗携 袩袪袨袚袪袗袦袦袗 袙袝袥袠袣袗 袩袨
袨袘'袝袦校, 孝袨 袦袨袞袝孝 袙袨袟袧袠袣袧校孝鞋 袩袝袪袝袩袨袥袧袝袧袠袝 袩袗袦携孝袠, 孝袗袣 袣袗袣 袣袪袨袦袝袙蝎袟蝎袙袗袝袦袨袡 袩袪袨袚袪袗袦袦蝎 袙 袨袟校 袨小孝袗袝孝小携 袝些袝 袠 袧袝袣袨孝袨袪袗携 小袥校袞袝袘袧袗携
袠袧肖袨袪袦袗笑袠携 袣袨袦袩袠袥携孝袨袪袗.
2.1.9 DIR -袙蝎袙袨袛 袨袚袥袗袙袥袝袧袠携 袛袠小袣袗.
-----------------------------------
袛袥携 袙蝎袙袨袛袗 袨袚袥袗袙袥袝袧袠携 袪袗袘袨效袝袚袨 袛袠小袣袗 袠袟 袨小袧袨袙袧袨袚袨 袦袝袧挟
小袥校袞袠孝 袣袨袦袗袧袛袗 "D" (DIRECTORY).
袩袨小袥袝 袙袙袨袛袗 协孝袨袡 袣袨袦袗袧袛蝎 袧袗 袛袠小袩袥袝袝 袩袨携袙袥携袝孝小携 袩袨袛小袣袗袟袣袗
小袠小孝袝袦蝎 DIR MASK (袦袗小袣袗 袨袚袥袗袙袥袝袧袠携).
袦袗小袣袗 袨袚袥袗袙袥袝袧袠携 袟袗袛袗袝孝小携 袙 袨袘些袝袩袪袠袧携孝袨袦 袛袥携 CP/M 袙袠袛袝, 袗
袠袦袝袧袧袨:
- * (袟袙袝袟袛袨效袣袗) 袙袦袝小孝袨 袠袦袝袧袠 袠袥袠 孝袠袩袗 肖袗袡袥袗 袨袟袧袗效袗袝孝 袙蝎袙袨袛
小袩袠小袣袗 小 袥挟袘蝎袦 袠袦袝袧袝袦 袠袥袠 孝袠袩袨袦. 袧袗袩袪袠袦袝袪 袦袗小袣袗 "*.PAS"
袟袗袩袪袗楔袠袙袗袝孝 袙蝎袙袨袛 袙小袝啸 PASCAL-肖袗袡袥袨袙, 袗 M袦袗小袣袗 "*.*'-袟袗袩袪袗楔袠袙袗袝孝 袙蝎袙袨袛 袙小袝袚袨 袨袚袥袗袙袥袝袧袠携. 袛袥携 袙蝎袙袨袛袗 袙小袝袚袨 袨袚袥袗袙袥袝袧袠携
袦袨袞袧袨 袙袨袨袘些袝 袧袝 袟袗袛袗袙袗孝鞋 袧袠袣袗袣袨袡 袦袗小袣袠: 袛袨小孝袗孝袨效袧袨 袩袪袨小孝袨
袧袗袞袗孝鞋 <袝孝>.
- ? (袙袨袩袪袨小袠孝袝袥鞋袧蝎袡 袟袧袗袣) 袙 袠袦袝袧袠 肖袗袡袥袗,袨袟袧袗效袗袝孝,效孝袨 袙蝎袙袨袛携孝小携
袨袚袥袗袙袥袝袧袠袝 肖袗袡袥袨袙 校 袣袨孝袨袪蝎啸 袧袗 袦袝小孝袝 袙袨袩袪袨小袠孝袝袥鞋袧袨袚袨 袟袧袗袣袗
袛袨袩校小袣袗袝孝小携 袥挟袘袨袡 小袠袦袙袨袥. 孝袗袣 袦袗小袣袗 "????????.???" 袪袗袙袧袨袟袧袗效袧袗 袦袗小袣袝 *.* 袠 袨袟袧袗效袗袝孝 袟袗袩袪袨小 袧袗 袙蝎袙袨袛 袙小袝袚袨 袨袚袥袗袙袥袝袧袠携 袛袠小袣袗.
袩袨小袥袝 袙蝎袙袨袛袗 袨袚袥袗袙袥袝袧袠携 袛袠小袣袗 袙 小袨袨孝袙袝孝小孝袙袠袠 小 袟袗袛袗袧袧袨袡
袦袗小袣袨袡, TURBO 袙蝎袙袨袛袠孝 袧袗 协袣袪袗袧 袣袨袥袠效袝小孝袙袨 小袙袨袘袨袛袧袨袡 袩袗袦携孝袠 袧袗
袛袠小袣袝. 小袨袨袘些袝袧袠袝 袨 小袙袨袘袨袛袧袨袡 袩袗袦携孝袠 袠袦袝袝孝 袙袠袛:
BYTES REMAINING ON <袠袦携 袛袠小袣袨袙袨袛袗>:"啸啸啸".
袟袛袝小鞋
- <袠袦携 袛袠小袣袨袙袨袛袗> - 袗,袙,小 袠袥袠 D . (袛袥携 袧袝袣袨孝袨袪蝎啸 协袙袦, 袪袗袘袨孝袗挟些袠啸 小 CP/M-80 袛袨袩校小袣袗袝孝小携 袩袨袛袣袥挟效袝袧袠袝 袛袨 16 袛袠小袣袨袙袨袛袨袙. 袙
协孝袨袦 小袥校效袗袝 袠啸 袥袨袚袠效袝小袣袠袝 袠袦袝袧袗 袨袘袨袟袧袗效袗挟孝小携 袥袗孝袠袧小袣袠袦袠
袘校袣袙袗袦袠 袨孝 袗 袛袨 袪);
- "啸啸啸" 袣袨袥袠效袝小孝袙袨 小袙袨袘袨袛袧袗袡 袩袗袦携孝袠 袧袗 袛袠小袣袝 袙 袣袠袥袨袘袗袡孝袗啸.
2.1.10 QUIT - 袙蝎啸袨袛 袠袟 "TURBO" 袙 袨小 CP/M-80
-------------------------------------------
袣袨袦袗袧袛袗 "Q" 袟袗袣袗袧效袠袙袗袝孝 袪袗袘袨孝校 袣袨袦袩袠袥携孝袨袪袗 "TURBO PASCAL".
袝小袥袠 袟袗袛袗袧袗 协孝袗 袣袨袦袗袧袛袗, 袧袨 袪袗袘袨效袠袡 肖袗袡袥 小 袩袨小袥袝袛袧袠袦袠 袠袟袦袝袧袝袧袠携袦袠, 袙袧袝小袝袧袧蝎袦袠 袩袪袠 袪袝袛袗袣孝袠袪袨袙袗袧袠袠 袧袝 袘蝎袥 袩袪袝袛袙袗袪袠孝袝袥鞋袧袨 小袨啸袪袗袧袝袧, 孝袨 袩袪袝袞袛袝 效袝袦 袩袝袪袝袛袗孝鞋 校袩袪袗袙袥袝袧袠袝 袦袗楔袠袧袨袡 袣袨袦袗袧袛袧袨袦校 袩袪袨笑袝小小袨袪校 OC CP/M-80, "TURBO" 校袙袝袛袨袦袠孝 袩袨袥鞋袟袨袙袗孝袝袥携 袩袨袛小袣袗袟袣袨袡:
"WORK FILE <袠袦携 肖袗袡袥袗> NOT SAVED.SAVE? (Y/N)"
(袪袗袘袨效袠袡 肖袗袡袥 <袠袦携 肖袗袡袥袗> 袧袝 小袨啸袪袗袧袝袧.小袨啸袪袗袧袠孝鞋? (袛/袧)).
袙蝎啸袨袛 袙 袨小 CP/M-80 袘校袛袝孝 袩袪袨袠袟袙袝袛袝袧 孝袨袥鞋袣袨 袩袨小袥袝 袙袙袨袛袗 "N"
(袧袝孝),袝小袥袠 袩袨袥鞋袟袨袙袗孝袝袥鞋 袧袝 啸袨效袝孝 袟袗袩袠小蝎袙袗孝鞋 袧袗 袛袠小袣 袩袨小袥袝袛袧挟挟
袙袝袪小袠挟 袪袗袘袨效袝袚袨 肖袗袡袥袗, 袠袥袠 袩袨小袥袝 袟袗袩袠小袠 协孝袨袡 袩袨小袥袝袛袧袝袡 袙袝袪小袠袠
袧袗 袛袠小袣 袩袨小袥袝 袩袨袛孝袙袝袪袞袛袝袧袠携 "Y"(袛袗) 小袨袚袥袗小袠携 袧袗 袟袗袩袠小鞋.
2.1.11 COMPILER OPTIONS - 袙蝎袘袨袪 袪袝袞袠袦袗 袣袨袦袩袠袥携笑袠袠.
--------------------------------------------------
袙蝎袘袨袪 袪袝袞袠袦袗 袣袨袦袩袠袥携笑袠袠 袩袪袨袠袟袙袨袛袠孝小携 袣袨袦袗袧袛袨袡 "袨", 袩袨小袥袝
袙袙袨袛袗 袣袨孝袨袪袨袡 袧袗 袛袠小袩袥袝袝 袩袨携袙袥携袝孝小携 小袥袝袛校挟些袝袝 袦袝袧挟:
COMPILE -> MEMORY
COM-FILE
CHN-FILE
FIND RUN TIME ERROR QUIT
袙 协孝袨袦 袦袝袧挟 小袥袝袛校袝孝 袟袗袛袗孝鞋 袨袛袧校 袠袟 袩袝袪袝效袠小袥袝袧袧蝎啸 袙 袧袝袦 袨袩笑袠袡:
2.1.11.1 袨袩笑袠携 "M"(袦EMORY) -袣袨袦袩袠袥携笑袠携 袙 袨袟校.
---------------------------------------------
协孝袨 袪袝袞袠袦 啸袗袪袗袣孝袝袪袝袧 孝袝袦, 效孝袨 袣袨袦袩袠袥携孝袨袪, 袨袘袪袗袘袗孝蝎袙袗携 袠小啸袨袛袧蝎袡 孝袝袣小孝 袩袪袨袚袪袗袦袦蝎 袧袗 袩袗小袣袗袥袝, 袪袗小袩袨袥袗袚袗袝孝 袗袘小袨袥挟孝袧蝎袝 袣袨袛蝎 袨孝孝袪袗袧小袥袠袪袨袙袗袧袧袨袡 袩袪袨袚袪袗袦袦蝎 袙 袨袟校 袦袗楔袠袧蝎. 孝袝袦 小袗袦蝎袦 袦袗楔袠袧袗 袩袨袛袚袨孝袗袙袥袠袙袗袝孝小携 袣 袙蝎袩袨袥袧袝袧袠挟 袩袪袨袚袪袗袦袦蝎 袩袨 袣袨袦袗袧袛袝 [R]UN,小袪袗袟校 袞袝
袩袨小袥袝 校小袩袝楔袧袨袚袨 袟袗袙袝袪楔袝袧袠携 袣袨袦袩袠袥携笑袠袠.
袩袪袨袚袪袗袦袦袠小孝 袛袨袥袞袝袧 袩袪袠 袙蝎袘袨袪袝 袪袝袞袠袦袗 袣袨袦袩袠袥携笑袠袠 校效孝蝎袙袗孝鞋, 效孝袨 袙 小袥校效袗袝, 袝小袥袠 袙 袣袨袦袩袠袥携孝袨袪 袟袗袚袪校袞袝袧蝎 小袨袨袘些袝袧袠携 袨袘
袨楔袠袘袣袗啸 (小袦 袩 2.),孝袨 小袙袨袘袨袛袧蝎袡 袨袘'袝袦 袩袗袦携孝袠 袣袨袦袩袠袥携孝袨袪袗 袩袪袠 袨袘些袝袦 袨袘'袝袦袝 袨袟校 袙 64 袣 小袨小孝袗袙袥携袝孝 袙小袝袚袨 袨袣袨袥袨 15 袣. 袙 协孝袨袦 袨袘'袝袦袝
袣袨袦袩袠袥携孝袨袪 袪袗袟袦袝些袗袝孝 袠小啸袨袛袧蝎袡 孝袝袣小孝, 袗袘小袨袥挟孝袧蝎袝 袣袨袛蝎 袨孝孝袪袗袧小袥袠袪袨袙袗袧袧袨袡 袩袪袨袚袪袗袦袦蝎 袠 袛袗袧袧蝎袝. 袠袟 小袣袗袟袗袧袧袨袚袨 小袥袝袛校袝孝, 效孝袨 孝袨袥鞋袣袨
袨孝袧袨小袠孝袝袥鞋袧袨 袧袝袘袨袥鞋楔袠袝 袩袪袨袚袪袗袦袦蝎 (袛袨,袩袪袠袦袝袪袧袨,200 小孝袪袨袣 袠小啸袨袛袧袨袚袨 孝袝袣小孝袗) 袦袨袚校孝 袨袘袪袗袘袗孝蝎袙袗孝鞋小携 袙 协孝袨袦 袪袝袞袠袦袝.
袨孝袣袗袟 袨孝 袟袗袚袪校袟袣袠 小袨袨袘些袝袧袠袡 袨袘 袨楔袠袘袣袗啸 孝袗袣 袞袝 袧袝 袛袗袝孝 小校些袝小孝袙袝袧袧袨袚袨 袙蝎袠袚袪蝎楔袗, 袩袨小袣袨袥鞋袣校, 袣袗袣 校袞袝 袚袨袙袨袪袠袥袨小鞋, 小袨袨袘些袝袧袠携 袨袘
袨楔袠袘袣袗啸 袟袗袧袠袦袗挟孝 1-3 袣袠袥袨袘袗袡孝, 袗 小 袪袨小孝袨袦 袨袘'袝袦袗 袠小啸袨袛袧袨袚袨
孝袝袣小孝袗 袪袗小孝袝孝 袠 袨袘'袝袦 袗袘小袨袥挟孝袧袨袚袨 袣袨袛袗, 效孝袨 袩袪袠袙袨袛袠孝 袣 袘蝎小孝袪袨袦校
袩袝袪袝袩袨袥袧袝袧袠挟 袣袨袦袩袠袥携孝袨袪袗.
袩袪袠 袟袗袛袗袧袠袠 袨袩笑袠袠 "袦" 袦袝袧挟 袙蝎袘袨袪袗 袪袝袞袠袦袗 袣袨袦袩袠袥携笑袠袠 袠袦袝袝孝
袙 孝袨效袧袨小孝袠 孝袗袣袨袡 袙袠袛, 袣袗袣袨袡 袩袪袠袙袝袛袝袧 袙 袩 2.1.11.:小孝袪袝袥袣袗 袩袨袣袗袟蝎袙袗袝孝 袧袗 "MEMORY".
协孝袗 袨袩笑袠携 校小孝袗袧袗袙袥袠袙袗袝孝小携 袩袨 校袦袨袥效袗袧袠挟 袩袪袠 袣袗袞袛袨袦 袧袨袙袨袦
袙蝎袟袨袙袝 小袠小孝袝袦蝎 "TURBO".
2.1.11.2. 袨袩笑袠携 "C" (COM-FILE) - 袣袨袦袩袠袥携笑袠携 袧袗 袛袠小袣
----------------------------------------------------
小 小袨袟袛袗袧袠袝袦 COM-肖袗袡袥袗.
----------------------
袪袝袞袠袦 袣袨袦袩袠袥携笑袠袠 袧袗 袛袠小袣 小 小袨袟袛袗袧袠袝袦 肖袗袡袥袗 袗袘小袨袥挟孝袧蝎啸 袣袨袛袨袙 (COM-肖袗袡袥袗) 袩袪袠袦袝袧携袝孝小携 袩袪袠 袣袨袦袩袠袥携笑袠袠 袘袨袥鞋楔袠啸 袠小啸袨袛袧蝎啸
袩袪袨袚袪袗袦袦. 袙 协孝袨袦 小袥校效袗袝 袛袥携 袗袘小袨袥挟孝袧蝎啸 袣袨袛袨袙 袣袨袦袩袠袥携孝校袪校 孝袪袝袘校袝孝小携 袥袠楔鞋 袧袝袘袨袥鞋楔袨袡 袪袗袘袨效袠袡 袘校肖袝袪, 袛袗袧袧蝎袝 袠袟 袣袨孝袨袪袨袚袨 袩袝袪袝袧袨小携孝小携
袧袗 袛袠小袣 袩袨 袦袝袪袝 袟袗袩袨袥袧袝袧袠携 协孝袨袚袨 袘校肖袝袪袗. 孝袗袣袠袦 袨袘袪袗袟袨袦 袛袥携 袠小啸袨袛袧袨袚袨 孝袝袣小孝袗 袨小孝袗挟孝小携 小袙袨袘袨袛袧蝎袦袠 袩袨效孝袠 袙小袝 15 (袠袥袠 18 袙 小袥校效袗袝
袧袝袟袗袚袪校袞袝袧袧蝎啸 小袨袨袘些袝袧袠袡 袨袘 袨楔袠袘袣袗啸) 袣袠袥袨袘袗袡孝 袩袗袦携孝袠, 袠袦袝挟些袝袡小携 袙 袪袗小袩袨袪携袞袝袧袠袠 袣袨袦袩袠袥携孝袨袪袗.
协孝袠袦袠 笑袠肖袪袗袦袠 袠 袨袩袪袝袛袝袥携袝孝小携 袩袪袝袛袝袥鞋袧蝎袡 袪袗袟袦袝袪 袚袥袗袙袧袨袚袨
肖袗袡袥袗. 袙 小袥校效袗袝, 袝小袥袠 孝袪袝袘校袝孝小携 小袣袨袦袩袠袥袠袪袨袙袗孝鞋 袩袪袨袚袪袗袦袦校 袘袨袥鞋楔袠啸
袪袗袟袦袝袪袨袙, 袝袝 袧袝袨袘啸袨袛袠袦袨 袪袗袟袘袠孝鞋 袧袗 小袝袚袦袝袧孝蝎 袙 袙袠袛袝 袨孝袛袝袥鞋袧蝎啸 袪袗袘袨效袠啸 肖袗袡袥袨袙, 袗 袟袗孝袝袦 袨袘'袝袛袠袧袠孝鞋 协孝袠 肖袗袡袥蝎 小 袩袨袦袨些鞋挟 INCLUD-校孝袙袝袪袞袛袝袧袠袡 (小袦.袩
2.1.4.5).袩袪袝袛袝袥鞋袧蝎袡 袪袗袟袦袝袪 袩袨袥校效袗袝袦袨袚袨 小 袩袨袦袨些鞋挟 协孝袨袚袨 袩袪袠袝袦袗 袣袨袦袗袧袛袧袨袚袨 肖袗袡袥袗 袨袚袪袗袧袠效袠袙袗袝孝小携 袥袠楔鞋 袩袨袥鞋袟袨袙袗孝袝袥鞋小袣袨袡 袟袨袧袨袡 袨袟校 袦袗楔袠袧蝎, 袣袨孝袨袪袗携 袛袥携 CP/M-80 小袨孝袗袙袥携袝孝 48 袣.
袝小孝袝小孝袙袝袧袧袨, 袣袨袦袩袠袥携笑袠携 袙 "COM-肖袗袡袥" 袩袪袨袠小啸袨袛袠孝 袦袝袛袥袝袧袧袝袝, 孝袗袣 袣袗袣 协孝袨 小袙携袟袗袧袨 小 袨袩袝袪袗笑袠携袦袠 小 袛袠小袣袨袦, 袧袨 袙小袝-孝袗袣袠 小袣袨袪袨小孝鞋 袣袨袦袩袠袥携笑袠袠 袩袪袠 协孝袨袦 袨小孝袗袝孝小携 袛袨小孝袗孝袨效袧袨 袙蝎小袨袣袨袡: 袨袣袨袥袨
500 小孝袪袨袣 袙 袦袠袧校孝校.
袩袪袠 袟袗袛袗袧袠袠 袨袩笑袠袠 "小" 小孝袪袝袥袣袗 袦袝袧挟 袙蝎袘袨袪袗 袪袝袞袠袦袨袙 校袣袗袟蝎袙袗袝孝 袧袗 ->COM-FILE, K袪袨袦袝 孝袨袚袨 袙 袦袝袧挟 袩袨携袙袥携袝孝小携 袛袨袩袨袥袧袠孝袝袥鞋袧袗携
袠袧肖袨袪袦袗笑袠携:
START ADDRESS XXXX(MIN XXXX) (袧袗效袗袥鞋袧蝎袡 袗袛袪袝小)
END ADDRESS XXXX(MAX XXXX) (袣袨袧袝效袧蝎袡 袗袛袪袝小)
袟袛袝小鞋 袩袨袛 啸啸啸啸 袩袨袧袠袦袗挟孝小携 楔袝小孝袧袗袛笑袗孝袝袪袠效袧蝎袝 袗袛袪袝小袗 袨袟校, 小袣袨孝袨袪蝎啸 袣袨袦袗袧袛袧蝎袡 肖袗袡袥 袘校袛袝孝 袟袗袚袪校袞袗孝鞋小携 袙 袩袨袥鞋袟袨袙袗孝袝袥鞋小袣校挟 袟袨袧校 袨袟校 袩袪袠 袙蝎袟袨袙袝.
袗袛袪袝小 袙 小袣袨袘袣袗啸 袩袝袪袝袛 MIN 袩袨袣袗袟蝎袙袗袝孝 袗袛袪袝小 袘袠袘袥袠袨孝袝袣袠 袣袨袦袩袠袥携孝袨袪袗+1. -袧袗袠袦袝袧鞋楔袠袡 袙袨袟袦袨袞袧蝎袡 小孝袗袪孝袨袙蝎袡 袗袛袪袝小;
袗袛袪袝小 袙 小袣袨袘袣袗啸 袩袝袪袝袛 MAX 袩袨袣袗袟蝎袙袗袝孝 袗袛袪袝小 袧袗效袗袥袗 CP/M-80
(袪袗袟袛袝袥袗 BDOS) -1 - 袧袗袠袘袨袥鞋楔袠袡 袙袨袟袦袨袞袧蝎袡 袛袥携 袩袨袥鞋袟袨袙袗孝袝袥携 袣袨袧袝效袧蝎袡 袗袛袪袝小.
袦袗袧袠袩校袥袠袪袨袙袗袧袠袝 袧袗效袗袥鞋袧蝎袦 袠 袣袨袧袝效袧蝎袦袠 袗袛袪袝小袗袦袠 袙袨袟袦袨袞袧袨
袟袗袛袗袧袠袝袦 "袪校效袧蝎袦" 袟袗袛袗袧袠袝袦 协孝袠啸 袗袛袪袝小袨袙 袩袨小袥袝 袙袙袨袛袗 袩袨袛袣袨袦袗袧袛
"S" 袠袥袠 "E".
袙 袩袝袪袙袨袦 小袥校效袗袝 小袠小孝袝袦袗 袙蝎袙袨袛袠孝 袩袨袛小袣袗袟袣校 "START ADDRESS",袙袨 袙孝袨袪袨袦 "END ADDRESS", 袩袨小袥袝 袣袨孝袨袪蝎啸 小袥袝袛校袝孝 袙袙袝小孝袠 孝袪袝袘校袝袦蝎袝 袧袗效袗袥鞋袧蝎袡 袠/袠袥袠 袣袨袧袝效袧蝎袝 袗袛袪袝小袗 效袝孝蝎袪鞋袦携 楔袝小孝袧袗袛笑袗孝袠袪袠效袧蝎袦袠 笑袠肖袪袗袦袠. 袩袨小袥袝 "袪校效袧袨袚袨" 袟袗袛袗袧袠携 协孝袠啸 袗袛袪袝小袨袙 效袠小袥袗, 袩袨袣袗袟蝎袙袗挟些袠袝
协孝袠 袗袛袪袝小袗 袙 袦袝袧挟 袙蝎袘袨袪袗 袪袝袞袠袦袗 袣袨袦袩袠袥携笑袠袠 小袨袨孝袙袝孝小孝袙校挟些袠袦 袨袘袪袗袟袨袦 袦袝袧携挟孝小携, 袗袛袪袝小袗 袞袝 袙 小袣袨袘袣袗啸 袨小孝袗挟孝小携 袧袝袠袟袦袝袧袧蝎袦袠.
小袥袝袛校袝孝 袠袦袝孝鞋 袙 袙袠袛校, 效孝袨 袩袪袠 袟袗袚袪校袟袣袝 袣袨袦袗袧袛袧袨袚袨 肖袗袡袥袗 袛袥携
袙蝎袩袨袥袧袝袧袠携 效袝袪袝袟 袙小孝袪袨袝袧袧蝎袡 袟袗袚袪校袟效袠袣 小袠小孝袝袦蝎 "TURBO" KO袧袝效袧蝎袡
袗袛袪袝小 袧袝 袛袨袥袞袝袧 袟袗袛袗袙袗孝鞋小携 袙蝎楔袝, 效袝袦 袣袨袧袝效袧蝎袡 袗袛袪袝小, 校袣袗袟袗袧袧蝎袡 袙
小袣袨袘袣袗啸 袦袠袧校小 1000,孝袗袣 袣袗袣 袠袦袝袧袧袨 协孝校 袨袘袥袗小孝鞋 袟袗袧袠袦袗袝孝 小袠小孝袝袦袧蝎袡 袟袗袚袪校袟效袠袣. 袝小袥袠 袞袝 袣袨袦袗袧袛袧蝎袡 肖袗袡袥 袩袪袝袛袩袨袥袗袚袗袝孝小携 袙蝎袟蝎袙袗孝鞋
孝袨袥鞋袣袨 效袝袪袝袟 袣袨袦袗袧袛袧蝎袡 袩袪袨笑袝小小袨袪 袨小 CP/M-80, 孝袨 袙袝袪啸袧袠袡 袙袨袟袦袨袞袧蝎袡 袗袛袪袝小 袨袩袪袝袛袝袥携袝孝小携 袨袘'袝袦袨袦 袩袨袥鞋袟袨袙袗孝袝袥鞋小袣袨袡 袟袨袧蝎, 袣袨孝袨袪袗携
袟袗袙袠小袠孝 袨孝 袣袨袧肖袠袚校袪袗笑袠袠 袣袨袦袩鞋挟孝袝袪袗, A 袠袦袝袧袧袨 袨孝 袨袘'袝袦袗 袨袟校, 袪袝袗袥袠袟袨袙袗袧袧袨袚袨 袙 袧袝袦. 袝小袥袠 袧袝 校效袠孝蝎袙袗孝鞋 协孝袠 肖袗袣孝袨袪蝎, 孝袨
袦袨袚校孝 袙袨袟袧袠袣袧校孝鞋 袣袨袥袥袠袟袠袠 袙 袩袗袦携孝袠 袦袗楔袠袧蝎, 袙蝎袟袙袗袧袧蝎袝 袧袗袥袨袞袝袧袠袝袦 小袣袨袦袩袠袥袠袪袨袙袗袧袧袨袡 袩袪袨袚袪袗袦袦蝎 袧袗 袨袘袥袗小孝鞋 袪袗小袩袨袥袨袞袝袧袠携 袨袩袝袪袗笑袠袨袧袧袨袡 小袠小孝袝袦蝎.
效孝袨袘蝎 袠袟袘袝袞袗孝鞋 袙袨袟袦袨袞袧蝎啸 袧袝袩袪袠携孝袧袨小孝袝袡 袙 袪袗小袩袪袝袛袝袥袝袧袠袠 袩袗袦携孝袠 袧袝 袪袝袣袨袦袝袧袛校袝孝小携 袟袗袛袗袙袗孝鞋 小孝袗袪孝袨袙蝎袡 袗袛袪袝小 袦袝袧鞋楔袠袡, 袗 袣袨袧袝效袧蝎袡 袗袛袪袝小 袘袨袥鞋楔袠袡, 效袝袦 袗袛袪袝小袗, 校袣袗袟袗袧袧蝎袝 袙 小袣袨袘袣袗啸 袦袝袧挟 袙蝎袘袨袪袗
袪袝袞袠袦袨袙 袣袨袦袩袠袥携笑袠袠 袠, 袙袨袨袘些袝, 袩袨 袙袨袟袦袨袞袧袨小孝袠 袠袟袘袝袚袗孝鞋 "袪校效袧袨袡"
校小孝袗袧袨袙袣袠 袗袛袪袝小袨袙, 袩袪袝袛袨小孝袗袙袥携携 协孝校 袪袗袘袨孝校 小袠小孝袝袦袝 "TURBO".
袘袨袥袝袝 袩袛袘袪袨袘袧袨 袨 袪袗小袩袪袝袛袝袥袝袧袠袠 袩袗袦携孝袠 袣袨袦袩袠袥携孝袨袪袗 袠 袨袩袝袪袗笑袠袨袧袧袨袡 小袠小孝袝袦蝎 袦袨袞袧袨 袩袪袨效袠孝袗孝鞋 袙 效袗小孝袠 3 袧袗小孝袨携些袝袚袨 袪校袣袨袙袨袛小孝袙袗.
2.11.1.3. 袨袩笑袠携 "H" (CHAIN-FILE) -笑袝袩袨效袧蝎袡 肖袗袡袥.
------------------------------------------------
袪袝袞袠袦 袣袨袦袩袠袥携笑袠袠 袙 笑袝袩袨效袧蝎袡 肖袗袡袥 (CHAIN-FILE) 校小孝袗袧袗袙袥袠袙袗袝孝小携 袙袙袨袛袨袦 袨袩笑袠袠 "袧",袩袪袠 协孝袨袦 小孝袪袝袥袣袗 袙 袦袝袧挟 袙蝎袘袨袪袗 袪袝袞袠袦袨袙
袣袨袦袩袠袥携笑袠袠 校小孝袗袧袗袙袥袠袙袗袝孝小携 ->CHAIN-FILE.
袙 协孝袨袦 袪袝袞袠袦袝 孝袗袣 袞袝 袩袨携袙袥携挟孝小携 小袨袨袘些袝袧袠携 袨 袧袗效袗袥鞋袧蝎啸 袠
袣袨袧袝效袧蝎啸 袗袛袪袝小袗啸 袠 孝袗袣 袞袝 袙袨袟袦袨袞袧袨 袠啸 袟袗袛袗袧袠袝 小 袩袨袦袨些鞋挟 袩袨袛袣袨袦袗袧袛 "S" 袠 "E" 袠 TE 袞袝 小袗袦蝎袝 袩袨袥袨袞袝袧袠携, 效孝袨 袠 袩袪袠 袣袨袦袩袠袥携笑袠袠 袙
COM-FILE 袛袨袥袞袧蝎 袘蝎孝鞋 袩袪袠袧携孝蝎 袙袨 袙袧袠袦袗袧袠袝 袩袪袨袚袪袗袦袦袠小孝袨袦.
CHAIN-FILE -袩袪袝袛小孝袗袙袥携袝孝 袠袟 小袝袘携 孝袗袣 袞袝 肖袗袡袥 袗袘小袨袥挟孝袧蝎啸
袣袨袛袨袙, 袧袨 袨袧 袧袝 袠袦袝袝孝 小孝袗孝校小袗 袚袥袗袙袧袨袡 袩袪袨笑袝袛校袪蝎 袠 袩袨协孝袨袦校 袧袝 袦袨袞袝孝 袘蝎孝鞋 袙蝎袟袙袗袧 袛袥携 袠小袩袨袥袧袝袧袠携 小袗袦袨小孝袨携孝袝袥鞋袧袨: 袨袛袠袧 袠袥袠 袧袝小袣袨袥鞋袣袨 袩袨袛袨袘袧蝎啸 肖袗袡袥袨袙 袦袨袚校孝 袘蝎孝鞋 袙袣袥挟效袝袧蝎 袙 袚袥袗袙袧校挟 袩袪袨笑袝袛校袪校, 袨袘袪袗袟袨袙袗袧袧校挟 COM-肖袗袡袥袨袦, 袠袟 袣袨孝袨袪袨袚袨 袨袧袠 袙蝎袟蝎袙袗挟孝小携 小 袩袨袦袨些鞋挟 小袩袝笑袠袗袥鞋袧蝎啸 CHAIN-肖校袧袣笑袠袡. 袩袨袛袪袨袘袧袝袝 袨袘 协孝袠啸 肖校袧袣笑袠携啸 袚袨袙袨袪袠孝小携 袙
效袗小孝袠 II 袧袗小孝袨携些袝袚袨 袪校袣袨袙袨袛小孝袙袗, 袗 袩袨袣袗, 袙袣袪袗孝笑袝, 袦袨袞袧袨 袨孝袦袝孝袠孝鞋, 效孝袨 小 袩袨袦袨些鞋挟 袧袠啸 袙袨袟袦袨袞袧袗 袨袪袚袗袧袠袟袗笑袠袡 袩袪袨袚袪袗袦袦 小 袨袙袝袪袥袝袡-
袧袨袡 小孝袪校袣孝校袪袨袡.
2.11.1.4. 袨袩笑袠携 "F" (FIND RUN TIME ERROR)-袩袨袠小袣 袨楔袠袘袣袠
------------------------------------------------------
袙袪袝袦袝袧袠 袠小袩袨袥袧袝袧袠携
------------------
袙 协孝袨袦 袪袝袞袠袦袝 袩袪袨袠袟袙袨袛袠孝小携 袩袨袠小袣 袦袝小孝袗 袙 袠小啸袨袛袧袨袦 孝袝袣小孝袝
袩袪袨袚袪袗袦袦蝎 袚袛袝 袩袪袨袠袟袨楔袥袨 袩袪袝袪蝎袙袗袧袠袝 袙袨 袙袪袝袦携 袝袝 袠小袩袨袥袧袝袧袠携.
袣袨袚袛袗 校小孝袗袧袨袙袥袝袧袗 袨袩笑袠携 "袦"-袣袨袦袩袠袥携笑袠携 袙 袩袗袦携孝鞋, 孝袨 袩袨袠小袣
袦袝小孝袗 袩袪袝袪蝎袙袗袝袠携 TURBO 袛袝袥袗袝孝 袗袙孝袨袦袗孝袠效袝小袣袠, 袙蝎袙袨袛携 小袨袨袘些袝袧袠袝
"RUN TIME ERROR POSITION FOUND.PRESS <ESC>".袙 协孝袨袦 小袥校效袗袝 袩袨小袥袝
袧袗袞袗孝袠携 袣袥袗袙袠楔袠 <ESC> 袣校袪小袨袪 校袣袗袞袝孝 袧袗 袦袝小孝袨 袙 袠小啸袨袛袧袨袦 孝袝袣小孝袝
袩袪袨袚袪袗袦袦蝎, 袙 袣袨孝袨袪袨袦 袩袪袨袠袟袨楔袥袨 袩袪袝袪蝎袙袗袧袠袝.
袣袨袚袛袗 校小孝袗袧袨袙袥袝袧蝎 袪袝袞袠袦蝎 "C" 袠袥袠 "H",TO 袙 小袥校效袗袝 袩袪袝袪蝎袙袗袧袠携
TURBO 袙蝎袙袨袛袠孝 袧袗 协袣袪袗袧 小袨袨袘些袝袧袠袝:"RUN TIME ERROR.PC XXXX". 袟袛袝小鞋
PC XXXX 校袣袗袟袗袧袠袝 袧袗 袟袧袗效袝袧袠袝 袩袪袨袚袪袗袦袦袧袨袚袨 小效袝孝效袠袣袗(PROGRAM COUNTER), 袙蝎袪袗袞袝袧袧袨袝 楔袝小孝袧袗袛笑袗孝袝袪袠效袧蝎袦 效袠小袥袨袦 XXXX.
袛袥携 袩袨袠小袣袗 袦袝小孝袗 袩袪袝袪蝎袙袗袝袠携 袩袨 袟袧袗效袝袧袠挟 袩袪袨袚袪袗袦袦袧袨袚袨 小效袝孝效袠袣袗 小袥袝袛校袝孝 校小孝袗袧袨袙袠孝鞋 袨袩笑袠挟 "F", 袟袗孝袝袦 袙 袨孝袙袝孝 袧袗 袩袨袛小袣袗袟袣校
小袠小孝袝袦蝎 "ENTER PC" 袙袙袝小孝袠 袟袧袗效袝袧袠袝 袩袪袨袚袪袗袦袦袧袨袚袨 小效袝孝效袠袣袗, 袙蝎袛袗袧袧袨袚袨 小袨袨袘些袝袧袠袝袦 袨 袩袪袝袪蝎袙袗袧袠袠. TURBO 袧袗效袧袝孝 袩袨袠小袣 袦袝小孝袗 袩袪袝袪蝎袙袗袧袠携 袙 袠小啸袨袛袧袨袦 孝袝袣小孝袝, 袗 袧袗袡袛携 协孝袨 袦袝小孝袨 袙蝎袙袝袛袝孝 小袨袨袘些袝袧袠袝 "POSITION FOUND.PRESS <ESC>",袩袨小袥袝 效袝袚袨 袧袗袛袥袝袞袠孝 袩袨小孝校袩袠孝鞋 孝袗袣
袞袝, 袣袗袣 袠 袙 袩袪袝袛蝎袛校些袝袦 小袥校效袗袝.
2.11.1.5. 袨袩笑袠携 "Q" (QUIT) - 袙蝎啸袨袛 袠袟 袪袝袞袠袦袗 校小孝袗袧袨袙袥袝袧袠携
---------------------------------------------------------
袨袩笑袠袡 袣袨袦袩袠袥携孝袨袪袗.
------------------
袙袨袟袙袪袗孝 袙 袨小袧袨袙袧袨袝 袦袝袧挟 袠袟 袦袝袧挟 校小孝袗袧袨袙袥袝袧袠携 袪袝袞袠袦袨袙 袣袨袦袩袠袥携笑袠袠 袨小校些袝小孝袙袥携袝孝小携 袩袨 袣袨袦袗袧袛袝 "Q".袩袪袠 协孝袨袦 校小孝袗袧袨袙袥袝袧袧蝎袡
袪袝袞袠袦 袛袝袡小孝袙校袝孝 袛袨 袟袗袛袗袧袠携 袧袨袙袨袡 袨袩笑袠袠 袠袥袠 袛袨 袩袝袪袝袟袗袚袪校袟袣袠 小袠小孝袝袦蝎, 袩袨小袥袝 袣袨孝袨袪袨袡 袗袙孝袨袦袗孝袠效袝小袣袠 校小孝袗袧袗袙袥袠袙袗袝孝小携 袪袝袞袠袦 "COMPILE
->MEMORY".
2.2. 校袣袗袟袗袧袠携 袣袨袦袩袠袥携孝袨袪校.
--------------------------
校袣袗袟袗袧袠携 袣袨袦袩袠袥携孝袨袪校 袩袝袪袝袛袗挟孝小携 袩校孝袝袦 袙袣袥挟效袝袧袠携 袙 袠小啸袨袛袧蝎袡 孝袝袣小孝 袩袪袨袚袪袗袦袦蝎 袧袗 袩袗小袣袗袥袝 袧袝袣袨孝袨袪蝎啸 校孝袙袝袪袞袛袝袧袠袡 小袩袝笑袠袗袥鞋袧袨袚袨 袙袠袛袗: (*$<校袣袗袟袗袧袠袝><小袠袦袙袨袥1>,<小袠袦袙袨袥2>...<小袠袦袙袨袥N>*).
袩袪袠袦袠孝袝 袙袨 袙袧袠袦袗袧袠袝, 效孝袨 袛袨 袠 袩袨小袥袝 袟袧袗袣袗 "$" 袙 肖袨袪袦袗孝袝
校袣袗袟袗袧袠携 袣袨袦袩袠袥携孝袨袪校 袧袝 袛袨袞袧袨 袘蝎孝鞋 袩袪袨袘袝袥袨袙!
小袠袦袙袨袥袗袦袠 <小袠M袙袨袥1>...<小袠袦袙袨袥N> 袦袨袚校孝 袘蝎孝鞋 小袠袦袙袨袥蝎 袠袟
小袥袝袛校挟些袝袚袨 袦袧袨袞袝小孝袙袗:
-袟袗袚袥袗袙袧蝎袝 袥袗孝袠袧小袣袠袝 袘校袣袙蝎 袗 B C I R V U W X 小 袩袨小袥袝袛校挟些袠袦
袟袧袗袣袨袦 + 袠袥袠 -;
-袟袗袚袥袗袙袧袗携 袥袗孝袠袧小袣袗携 袘校袣袙袗 袨 袘袝袟 袩袨小袥袝袛校挟些袠啸 袟袧袗袣袨袙 (袟袗袛袗袧袠袝 袨袙袝袪袥袝袡袧袨袡 小孝袪校袣孝校袪蝎 袩袪袨袚袪袗袦袦蝎);
校袣袗袟袗袧袠携 袣袨袦袩袠袥携孝袨袪校 袠袦袝挟孝 小袥袝袛校挟些袠袝 袟袧袗效袝袧袠携:
袗 袪袝袣校袪小袠携 袩袨 校袦袨袥效袗袧袠挟: 袗+
(*$袗+*) --> 袨袟袧袗效袗袝孝, 效孝袨 袗袘小袨袥挟孝袧蝎袡 袣袨袛 袧袝 袦袨袞袝孝 袙蝎袟蝎袙袗孝鞋小携 袪袝袣校袪小袠袙袧袨;
(*$袗-*) --> 袪袝袣校袪小袠携 袪袗袟袪袝楔袝袧袗. 袙 协孝袨袦 小袥校效袗袝 袩袪袨袚袪袗袦袦袗 袟袗袧袠袦袗袝孝 袘袨袥鞋楔袝 袦袝小孝袗 袙 袨袟校 袠 袙蝎袩袨袥袧携袝孝小携 袦袝袛袥袝袧袧袝袝;
袙 袧袗袟袧袗效袝袧袠袝 小孝袗袧袛袗袪孝袧蝎啸 校小孝袪袨袡小孝袙 袩袨 校袦袨袥效袗袧袠挟: 袙+
袙袙袨袛袗/袙蝎袙袨袛袗
(*$B+*) -->袨袟袧袗效袗袝孝,效孝袨 小孝袗袧袛袗袪孝袧蝎袦 肖袗袡袥袨袦 袙袙袨袛袗/袙蝎袙袨袛袗
袧袗袟袧袗效袝袧袗 袣袨袧小袨袥鞋 (CON);
(*$B-*) -->小孝袗袧袛袗袪孝袧蝎袦 肖袗袡袥袨 袙袙袨袛袗/袙蝎袙袨袛袗 袧袗袟袧袗效袝袧 孝袝袪袦袠袧袗袥 (TERM); 袛袝袡小孝袙袠袝 袛袗袧袧袨袚袨 校袣袗袟袗袧袠携 袪袗小袩袪袨小孝袪袗袧携袝孝小携
袧袗 袙小挟 袩袪袨袚袪袗袦袦校 袠 袩袝袪袝袨袩袪袝袛袝袥袠孝鞋 袝袚袨 袙 袩袪袨袚袪袗袦袦袝
袘袨袥鞋楔袝 袧袝袥鞋袟携;
小 ^S 袠 ^C 袩袨 校袦袨袥效袗袧袠挟: 小+
袨袩袪袝袛袝袥携袝孝, 袘校袛校孝 袥袠 效袠孝袗孝鞋小携 校袩袪袗袙袥携挟些袠袝 小袠袦袙袨袥蝎 ^C 袠
^S 小 袣袥袗袙袠袗孝校袪蝎 袠 袠袧孝袝袪袩袪袝孝袠袪袨袙袗孝鞋小携 小袥袝袛校挟些袠袦 袨袘袪袗袟袨袦:
^S -袩袪袠袨小孝袗袧袨袙袣袗 笑袠袣袥袨袙 袠袥袠 袙蝎袙袨袛袗 袠袧肖袨袪袦袗笑袠袠 袧袗 袛袠小袩袥袝袡,
^C - 袩袪袝袪蝎袙袗袧袠袝 袩袪袨袚袪袗袦袦蝎 袩袨 袠袧袠笑袠袗孝袠袙 袩袨袥鞋袟袨袙袗孝袝袥携.
(*$小+*) -> 袣袨袧孝袪袨袥鞋袧蝎袝 小袠袦袙袨袥蝎 效袠孝袗挟孝小携 袠 袙蝎袩袨袥袧携挟孝小携;
(*$小-*) -> -..- 效袠孝袗挟孝小携, 袧袨 袧袝 袙蝎袩袨袥袧携挟孝小携. 袨袘袪袗袘袨孝袣袗 袩袪袝袪蝎袙袗袧袠袡
袩袨小袥袝 袙袙袨袛袗 协孝袠啸 袟袧袗袣袨袙 袥袝袞袠孝 袧袗 袙蝎袩袨袥袧携袝袦袨袡 袩袪袨袚袪袗袦袦袝;
I 袨袘袪袗袘袨孝袣袗 袨楔袠袘袨袣 袙袙袨袛袗/袙蝎袙袨袛袗. 袩袨 校袦袨袥效袗袧袠挟 : I+
(*$I+*) -> 袨楔袠袘袣袠 袙袙袨袛袗/袙蝎袙袨袛袗 袨袘袪袗袘袗孝蝎袙袗挟孝小携 袨袩袝袪袗笑袠袨袧袧袨袡
小袠小孝袝袦袨袡;
(*$I-*) -> 袨袘袪袗袘袨孝袣袗 协孝袠啸 袨楔袠袘袨袣 袥袝袞袠孝 袧袗 袙蝎袩袨袥袧携袝袦袨袡
袩袪袨袚袪袗袦袦袝;
(袧袗袩袪袠袦袝袪 袩袨小袪袝袛小孝袙袨袦 肖校袧袣笑袠袠 IORESULT 袩袗小袣袗袥携).
R 袧袗袘袥挟袛袝袧袠袝 袟袗 孝袠袩袗袦袠 袠 袚袪袗袧袠笑袗袦袠 袠袧袛袝袣小袨袙 校袦袨袥效袗袧袠袝: R-袨袩袪袝袛袝袥携袝孝 袩袨袪携袛袨袣 袣袨袧孝袪袨袥携 小袨袘袥挟袛袝袧袠携 袚袪袗袧袠笑 袠袧袛袝袣小袨袙
袦袗小小袠袙袨袙 袠 袩袪袝袨袘袪袗袟袨袙袗袧袠袝 孝袠袩袨袙 袩袝袪袝袦袝袧袧蝎啸 袙袨 袙袪袝袦携
袙蝎袩袨袥袧袝袧袠携 袩袪袨袚袪袗袦袦蝎;
(*$R+*) -> 袣袨袧孝袪袨袥鞋 袙袣袥挟效袝袧;
(*$R-*) -> 袣袨袧孝袪袨袥鞋 袙蝎袣袥挟效袝袧;
U 袩袨袥鞋袟袨袙袗孝袝袥鞋小袣袨袝 袩袪袝袪蝎袙袗袧袠袝 . 袩袨 校袦袨袥效袗袧袠挟: U-(*$U+*) -> 袩袪袝袪蝎袙袗袧袠袝 袩袨 ^C 袙袨 袙袪袝袦携 袙蝎袩袨袥袧袝袧袠携 袩袪袨袚袪袗袦袦蝎
袙袨袟袦袨袞袧袨; 袟袗袛袗袧袠袝 U+ 校袙袝袥袠效袠袙袗袝孝 袙袪袝袦携 袪袗袘袨孝蝎
袩袪袨袚袪袗袦袦蝎;
(*$U-*) -> 袩袪袝袪蝎袙袗袧袠袝 袩袨 ^小 袧袝 袙袨袟袦袨袞袧袨;
V 袣袨袧孝袪袨袥鞋 小袨袚袥袗小袨袙袗袧袠携 袛袥袠袧 肖袨袪袦袗袥鞋袧蝎啸 校袦袨袥效袗袧袠袝: V+
袠 肖袗袣孝袠效袝小袣袠啸 袩袗袪袗袦袝孝袪袨袙 孝袠袩袗 STRING;
(*$V+*) -> 袣袨袧孝袪袨袥鞋 袠 小袨袚袥袗小袨袙袗袧袠袝 袛袥袠袧 袙袣袥挟效袝袧蝎;
(*$V-*) -> 袙蝎袣袥挟效袝袧蝎;
W 袩袪袠袦袝袧携袝孝小携 小 笑袠肖袪袨袙蝎袦 袩袗袪袗袦袝孝袪袨袦 校袦袨袥效袗袧袠袝: W2
袛袗袧袧袨袝 校袣袗袟袗袧袠袝 袟袗袛袗袝孝 小袣袨袥鞋袣袨 袟袗袩袠小袝袡 袙 袨袛袧袨袦 袘袥袨袣袝
袛袨袥袞袧袨 袘蝎孝鞋 袨孝袣袪蝎孝袨. 袩袗袪袗袦袝孝袪 - 笑袠肖袪袗 袨孝 0 袛袨 9;
啸 袨袩孝袠袦袠袟袗笑袠携 袦袗小小袠袙袨袙. 校袦袨袥效袗袧袠袝: 啸+
(*$啸+*) -> 袩袨袥携 袨袩孝袠袦袠袟袠袪校挟孝小携, 袩袪袨袚袪袗袦袦袗 袪袗袘袨孝袗袝孝 袘蝎小孝袪袝袝,
袧袨 袟袗袧袠袦袗袝孝 袘袨袥鞋楔袝 袩袗袦携孝袠;
(*$啸-*) -> 袩袨袥携 袧袝 袨袩孝袠袦袠袟袠袪校挟孝小携;
袨 <袠袦携 袛袠小袣袨袙袨袛袗> 袟袗袛袗袧袠袝 袨袙袝袪袥袝袡袧袨袡 小孝袪校袣孝校袪蝎 袧袗 袩袨袠袦袝袧袨袙袗袧袧袨袦
袛袠小袣袨袙袨袛袝.
3. 袧袗袟袧袗效袝袧袠袝 袩袪袨袚袪袗袦袦蝎 袙蝎袙袨袛袗 袧袗 袩袝效袗孝鞋 "TLIST".
-------------------------------------------------
袩袝效袗孝鞋 袠小啸袨袛袧袨袚袨 孝袝袣小孝袗 袩袪袨袚袪袗袦袦蝎 袧袗 袩袗小袣袗袥袝 袙蝎袩袨袥袧携袝孝小携
小 袩袨袦袨些鞋挟 袩袪袨袚袪袗袦袦蝎 "TLIST".
袙蝎袙袨袛 袧袗 袩袝效袗孝鞋 袠小啸袨袛袧袨袚袨 孝袝袣小孝袗 袙袨 袙袪袝袦携 袣袨袦袩袠袥携笑袠袠
"TURBO" 袧袝 袩袪袨袠袟袙袨袛袠孝, 袩袨协孝袨袦校, 袩袪袠 袧袝袨袘啸袨袛袠袦袨小孝袠 袙蝎袙袝小孝袠 袥袠小孝袠袧袚
袠小啸袨袛袧袨袡 袩袪袨袚袪袗袦袦蝎 小袥袝袛校袝孝 袙袨小袩袨袥鞋袟袨袙袗孝鞋小携 袩袪袨袚袪袗袦袦袨袡 "TLIST"
袠袥袠 袙蝎袡孝袠 袙 袨小 CP/M-80 袠 袟袗袛袗孝鞋 袙蝎袙袨袛 袥袠小孝袠袧袚袗 袪袝袟袠袛袝袧孝袧袨袡 袣袨袦袗袧袛袨袡 TYPE<袠袦携 肖袗袡袥袗> 袩袪袝袛袙袗袪袠孝袝袥鞋袧袨 袙袣袥挟效袠袙 袩袪袠袧孝袝袪 袩袨 ^P.
袝小袥袠 袥袠小孝袠袧袚 袩袪袨袠袟袙袨袛袠孝小携 小 袩袨袦袨些鞋挟 袩袪袨袚袪袗袦袦蝎 "TLIST", TO
小 袩袨袦袨些鞋挟 袣袨袦袗袧袛蝎 X (袝XECUTE, 小袦 袩 2.1.8.) 袩袪袨袠袟袙袨袛袠孝小携 袙蝎袟袨袙
效袝袪袝袟 袙小孝袪袨袝袧袧蝎袡 袟袗袚袪校袟效袠袣 小袠小孝袝袦蝎"TURBO" 袩袪袨袚袪袗袦袦蝎 "TLIST" 小
校袣袗袟袗袧袠袝袦 袠袦袝袧袠 肖袗袡袥袗, 袣袨孝袨袪蝎袡 袧袗袛袥袝袞袠孝 袪袗小袩袝效袗孝袗孝鞋 袧袗 袩袪袠袧孝袝袪袝. 小袥袝袛校袝孝 袠袦袝孝鞋 袙 袙袠袛校, 效孝袨 "TLIST"- 袗袙孝袨袧袨袦袧袗携 袩袪袨袚袪袗袦袦袗, 袩袨协孝袨袦校 袙 袠袦袝袧袠 袪袗小袩袝效袗孝蝎袙袗袝袦袨袚袨 肖袗袡袥袗 袛袨袥袞袝袧 袘蝎孝鞋 袨袘携袟袗孝袝袥鞋袧袨
校袣袗袟袗袧 袝袚袨 孝袠袩!(袧袗袩袪袠袦袝袪, 袣袨袦袗袧袛袧袗携 小孝袪袨袣袗 袛袥携 袪袗小袩袝效袗孝袣袠 肖袗袡袥袗
EXAMPLE.PAS 袠袟 "孝URBO" 袦袨袞袝孝 袠袦袝孝鞋 袙袠袛: X TLIST 袝XAMPLE.PAS ).
袩袪袨袚袪袗袦袦袝 "TLIST" 袦袨袞袧袨 袟袗袛袗孝鞋 小袥袝袛校挟些袠袝 袨袩笑袠袠:
L - 小孝袪袨效袣袠 袩袪袨袚袪袗袦袦袧袨袚袨 孝袝袣小孝袗 袘校袛校孝 袩袨小袥袝袛袨袙袗孝袝袥鞋袧袨 袧校袦袦袝袪袨袙袗孝鞋小携; 袝小袥袠 袙 孝袝袣小孝袝 袙小孝袪袝效袗袝孝小携 INCLUD-校孝袙袝袪袞袛袝袧袠袝 (小袦 袩
2.1.4.5),孝袨 INCLUDE-肖袗袡袥蝎 袧校袦袝袪校挟孝小携 小 校袣袗袟袗袧袠袝袦 小袠袦袙袨袥袗
"I" 袩袝袪袝袛 袧袨袦袝袪袨袦 小孝袪袨袣袠;
M - 袟袗袪袝袟袝袪袙袠袪袨袙袗袧袧蝎袝 小袥袨袙袗 袩袗小袣袗袥携 袩袨袛效袝袪袣袠袙袗挟孝小携 袙 孝袝袣小孝袝
袩袪袨袚袪袗袦袦蝎 袠 袙 袣袨袦袦袝袧孝袗袪袠携啸; 袨袘袝 袨袩笑袠袠 袦袨袚校孝 袘蝎孝鞋 袟袗袛袗袧蝎
袨袛袧袨袙袪袝袦袝袧袧袨.
3.1. 袣袨袦袗袧袛蝎 校袩袪袗袙袥袝袧袠携 袩袝效袗孝鞋挟.
--------------------------------
孝袝袣小孝 袠小啸袨袛袧袨袡 袩袪袨袚袪袗袦袦蝎 袦袨袞袝孝 小袨袛袝袪袞袗孝鞋 校袠袙袝袪袞袛袝袧袠携 校袩袪袗袙袥袝袧袠携 袩袝效袗孝鞋挟. 协孝袠 校孝袙袝袪袞袛袝袧袠携 袟袗袩袠小蝎袙袗挟孝小携, 袣袗袣 袣袨袦袦袝袧孝袗袪袠袠, 袦袝袞袛校 肖袠袚校袪袧蝎袦袠 小袣袨袘袣袗袦袠 (* *).
袠袦袝袡孝袝 袙 袙袠袛校, 效孝袨 袩袪袠 袟袗袛袗袧袠袠 校孝袙袝袪袞袛袝袧袠袡 校袩袪袗袙袥袝袧袠携 袩袝效袗孝鞋挟 小袠袦袙袨袥 袣袨袦袦袝袧孝袗袪袠袝袙 袛袨袥袞袝袧 小孝袗袙袠孝鞋小携 袙 袩袝袪袙袨袡 袩袨袟袠笑袠袠
小孝袪袨袣袠!
校孝袙袝袪袞袛袝袧袠携 校袩袪袗袙袥袝袧袠携 袩袝效袗孝鞋挟 袠 袠啸 肖校袧袣笑袠袠 袩袪袠袙袝袛袝袧蝎 袙聽
袧袠袞袝小袥袝袛校挟些袝袡 孝袗袘袥袠笑袝.
---------------------------------------------------------------
肖校袧袣笑袠携 校孝袙袝袪袞袛袝袧袠携 校袩袪袗袙袥袝袧袠携 袩袝效袗孝鞋挟 校孝袙袝袪袞袛袝袧袠袝
---------------------------------------------------------------
袛袥袠袧袗 小孝袪袗袧袠笑蝎 袩袝效袗孝袠 .PL<袣-袙袨 小孝袪袨袣>
袩袝袪袝袙袨袛 小孝袪袗袧袠笑蝎. PA袧袨袙蝎袡 袪袗袟袦袝袪 小孝袪袗袧袠笑蝎, 袝小袥袠 袛袥携 <袣-袙袗 小孝袪袨袣>, .CP<K-袙袨 小孝袪袨袣>
袟袗携袙袥袝袧袧袨袚袨 袩袨 .PL 袧袝袛袨小袗孝袨效袧袨 袦袝小孝袗.
<效袠小袥袨 袟袧袗袣袨袙 袙 小孝袪袨袣袝>-袙蝎袪袗袙袧袠袙袗袧袠袝 小孝袪袨袣袠 袩袨 .PO<效袠小袥袨 袟袧袗袣袨袙>
袥袝袙袨袦校 袣袪袗挟
袧袗袛袟袗袚袨袥袨袙袨袣 - 小孝袗袙袠孝小携 袙 袧袗效袗袥袝 袣袗袞袛袨袡 小孝袪袗袧袠笑蝎. HE<孝袝袣小孝 袧袗袛袟袗袚.>
袩袨袛袟袗袚袨袥袨袙袨袣-小孝袗袙袠孝小携 袙 袣袨袧笑袝 小孝袪袗袧袠笑蝎 .FO<孝袝袣小孝 袩袨袛袟袗袚.>
袟袗袛袗袧袠袝/袙蝎袣袥挟效袝袧袠袝 袩袨袛效袝袪袣袠袙袗袧袠携 .L-/.L+
袟袗袛袗袧袠袝 小袠袦袙袨袥袗"I" 袙 袧袨袦袝袪袝 小孝袪袨袣袠 袩袪袠 袩袝效袗孝袠
INCLUDE-肖袗袡袥袨袙 .I+/.I-
---------------------------------------------------------------
袩袪袠 袟袗袛袗袧袠袠 校孝袙袝袪袞袛袝袧袠袡 校袩袪袗袙袥袝袧袠携 袩袝效袗孝鞋挟 袩袪袨袠小啸袨袛袠孝 袩袝效袗孝鞋 小 袧校袦袝袪袗笑袠袝袡 小孝袪袨袣. 袝小袥袠 袧校袦袝袪袗笑袠携 小孝袪袨袣 袩袪袠 袙蝎袙袨袛袝 袧袝
孝袪袝袘校袝孝小携, 小袥袝袛校袝孝 袟袗袛袗孝鞋 袨袩笑袠挟 "TLIST" "L-".
袝小袥袠 袧校袦袝袪袗笑袠携 小孝袪袨袣 袩袪袠 袙蝎袙袨袛袝 袧袝
孝袪袝袘校袝孝小携, 小袥袝袛校袝孝 袟袗袛袗孝鞋 袨袩笑袠挟 "TLIST" "L-".
*************************************************
袪校袣袨袙袨袛小孝袙袨 袩袨袥鞋袟袨袙袗孝袝袥携
袪袗小楔袠袪袝袧袠携 袠 袨袚袪袗袧袠效袝袧袠携 "TURBO" 袩袨 小袪袗袙袧袝袧袠挟 小袨 小孝袗袧袛袗袪孝袧蝎袦 袩袗小袣袗袥袝袦
1.携袟蝎袣袨袙蝎袝 袪袗小楔袠袪袝袧袠携.
----------------------
袩袪袝袞袛袝 效袝袦 袨袩袠小蝎袙袗孝鞋 袪袗小楔袠袪袝袧袠携 携袟蝎袣袗, 小袥袝袛校袝孝 小袛袝袥袗孝鞋 袧袝袣袨孝袨袪蝎袝 袙袗袞袧蝎袝 袛袥携 袩袨袥鞋袟袨袙袗孝袝袥携 袟袗袦袝效袗袧袠携:
-孝袗袣 袣袗袣 小袠小孝袝袦袗 "TURBO" 袧袝 袠袦袝袝孝 袪袝袛袗袣孝袨袪袗 小袙携袟袝袡 (袣袨袦袩袗袧袨袙些袠袣袗),孝袨 袙袣袥挟效袝袧袠袝 肖袪袗袚袦袝袧孝袨袙 小袣袨袦袩袠袥袠袪袨袙袗袧袧蝎啸 小 TURBO-袩袗小袣袗袥携
袩袪袨袚袪袗袦袦 袙 袩袪袨袚袪袗袦袦蝎 袧袗袩袠小袗袧袧蝎袝 袧袗 袛袪校袚袠啸 携袟蝎袣袗啸 袩袪袨袚袪袗袦袦袠袪袨袙袗袧袠携- 袩袪袠袧笑袠袩袠袗袥鞋袧袨 袧袝袙袨袟袦袨袞袧袨!!
-孝袗袣 袞袝,袨袘蝎效袧蝎袦 袨袘袪袗袟袨袦, 袧袝袙袨袟袦袨袞袧袨 袙袣袥挟效袝袧袠袝 袙 袠小啸袨袛袧蝎袡 孝袝袣小孝
袧袗 TURBO 袩袗小袣袗袥袝 肖袪袗袚袦袝袧孝袨袙 袩袪袨袚袪袗袦袦, 袧袗袩袠小袗袧袧蝎啸 袧袗 袛袪校袚袠啸 携袟蝎袣袗啸 袩袪袨袚袪袗袦袦袠袪袨袙袗袧袠携 (袧袗袩袪袠袦袝袪 袧袗 袗小小袝袦袘袥袝袪袝).
-袙小袝 袨袩袠小蝎袙袗袝袦蝎袝 袧袠袞袝 袪袗小楔袠袪袝袧袠携 - 小袩袝笑袠肖袠效袧蝎 孝袨袥鞋袣袨 袛袥携 TURBO
袠 袩袪袠袦袝袧袝袧袠袝 袠啸 袣 袛袪校袚袠袦 袩袗小袣袗袥鞋-小袠小孝袝袦袗袦,袙 袨袘些袝袦 小袥校效袗袝, 袩袪袨袘袥袝袦袗孝袠效袧袨. (小袥袝袛校袝孝 袟袗袦袝孝袠孝鞋 袙 小袣袨袘袣袗啸,效孝袨 袨袣袨袧效袗孝袝袥鞋袧袨袚袨
小孝袗袧袛袗袪孝袗 袩袗小袣袗袥携 袩袨袣袗 袝些袝 袧袝 小校些袝小孝袙校袝孝).
-肖袠袪袦袗 - 袪袗袟袪袗袘袨孝效袠袣 袙袝袛袝孝 袪袗袘袨孝蝎 袩袨 小袨袙袝袪楔袝袧小孝袙袨袙袗袧袠挟 袩袪袨袚袪袗袦袧袧袨袚袨 袨袘袝小袩袝效袝袧袠携, 袩袨协孝袨袦校 小袨袙袦袝小孝袠袦袨小孝鞋 袪袗小楔袠袪袝袧袠袡 袘袨袥袝袝
袩袨袟袛袧袠啸 袙袝袪小袠袡 小袥袝袛校袝孝 孝些袗孝袝袥鞋袧袨 袩袝袪袝袩袪袨袙袝袪携孝鞋. 袨小袨袘袝袧袧袨 协孝袨
袣袗小袗袝孝小携 袩袪袠袦袝袧袝袧袠携 袩袪携袦蝎啸 袙蝎袟袨袙袨袙 肖校袧袣笑袠袡 袨袩袝袪袗笑袠袨袧袧袨袡 小袠小孝袝袦蝎, 孝袗袣袠啸, 袣袗袣 BDOS 袠 BIOS 袠 袦袗楔袠袧袧袨袨袪袠袝袧孝袠袪袨袙袗袧袧蝎啸 肖校袧袣笑袠袡
(PORT, STACKPTR, MEM : 袨袩袠小袗袧袠袝 协孝袠啸 肖校袧袣笑袠袡 袩袪袠袙袨袛携孝小携 袧袠袞袝). 协孝袠
肖校袧袣笑袠袠 袙 TURBO 袧袝 袨袘'携袙袥携挟孝小携 袙 校孝袙袝袪袞袛袝袧袠携啸 袛袝袣袥袗袪袗笑袠袡 T袠袩袗
"VAR","CONST", "LABEL","ARRAY",TYPE 袠 孝.袛. 孝袗袣 袞袝 袙 TURBO
袛袨袩校小袣袗挟孝小携 袧袝效袠小袥袨袙蝎袝 袦袝孝袣袠, 袙 袨孝袥袠效袠袠 袨孝 袛袪校袚袠啸 袩袗小袣袗袥鞋-孝袪袗袧小袥携孝袨袪袨袙, 袙 袣袨孝袨袪蝎啸 袙袨袟袦袨袞袧蝎 孝袨袥鞋袣袨 效袠小袥袨袙蝎袝 .
1.1. 袨袩袝袪袗孝袨袪蝎, 校袩袪袗袙袥携挟些袠袝 袪袗袟袦袝些袝袧袠袝袦 袠袧肖袨袪袦袗笑袠袠 袧袗 协袣袪袗袧袝.
-------------------------------------------------------------
袛袥携 校袩袪袗袙袥袝袧袠携 袪袗袟袦袝些袝袧袠携 袠袧肖袨袪袦袗笑袠袝袡 袧袗 协袣袪袗袧袝 袛袠小袩袥袝携 袙
TURBO 小校些袝小孝袙校挟孝 小袥袝袛校挟些袠袝 袩袪袨笑袝袛校袪蝎:
CLRSCR - CLEARSCREEN-袨效袠小孝袣袗 协袣袪袗袧袗. 袙 小孝袗袧袛袗袪孝袧袨袦 袩袗小袣袗袥袝
袛袥携 协孝袨袡 笑袝袥袠 小校些袝小孝袙校袝孝 袩袪袨笑袝袛校袪袗 "PAGE".袨效袠孝小袣校 协袣袪袗袧袗 袙 CP/M
小袠小孝袝袦袗啸 袦袨袞袧袨 袩袪袨袠袟袙袨袛袠孝鞋 袠袟 袩袗小袣袗袥携 小 袩袨袦袨些鞋挟 袩袪袨笑袝袛校袪蝎 WRITE
/WRITELN, 袟袗袛袗袙 袝袡 袩袗袪袗袦袝孝袪 "#12, 孝袨 袝小孝鞋 小 袩袨袦袨些鞋挟 WRITE(#12)
袠袥袠 WRITE(CHR(12)). 袩袨小袥袝 袙蝎袩袨袥袧袝袧袠携 袨效袠小孝袣袠 协袣袪袗袧袗 袣校袪小袨袪 袟袗袧袠袦袗袝孝 袩袨袟袠笑袠挟 袙 袥袝袙袨袦 袙袝袪啸袧袝袦 校袚袥校 (袣袨袨袪袛袠袧袗孝蝎 X,Y - [1,1] ).
CLREOL - CLEAR UPTO END OF LINE -袨效袠小孝袣袗 袛袨 袣袨袧笑袗 小孝袪袨袣袠 .
GOTOXY(X,Y) - 袩袨袟袠笑袠袨袧袠袪袨袙袗袧袠袝 袣校袪小袨袪袗 袙 袩袨袟袠笑袠袠 X 小孝袪袨袣袠
Y.袧袗效袗袥袨 袣袨袨袪袛袠袧袗孝 袧袗啸袨袛袠孝小携 袙 袥袝袙袨袦 袙袝袪啸袧袝袦 校袚袥校 协袣袪袗袧袗.
DELAY(T)- 袟袗袛袝袪袞袣袗 袙蝎袩袨袥袧袝袧袠携 袩袪袨袚袪袗袦袦蝎 袧袗 孝 袦袠袥袠小袝袣校袧袛.
袩袪袨笑袝袛校袪蝎 DELLINE, INSLINE 小袥校袞袗些袠袝 袛袥携 校袛袗袥袝袧袠携 袠袥袠 袙小孝袗袙袣袠 小孝袪袨袣 袙 袩袨袟袠笑袠袠 袣校袪小袨袪袗 袙 袣袗袞袛袨袦 袣袨袧袣袪袝孝袧袨袦 校小孝袪袨袡小孝袙袝 袛袨袥袞袧蝎 袘蝎孝鞋 袧袗小孝袪袨袝袧蝎. 袙 袨袩袠小蝎袙袗袝袦袨袦 袙袗袪袠袗袧孝袝 袨袧袠 袧袝 袧袗小孝袪袨袝袧蝎. 袨袛袧袗袣袨, 袛袥携
袙蝎袩袨袥袧袝袧袠携 袩袨袛袨袘袧蝎啸 袨袩袝袪袗笑袠袡 袦袨袞袧袨 袙袨小袩袨袥鞋袟袨袙袗孝鞋小携 小孝袗袧袛袗袪孝袧蝎袦袠 袣袨袧孝袪袨袥鞋袧蝎袦袠 肖校袧笑袠携袦袠 CP/M-小袠小孝袝袦, 袣袨孝袨袪蝎袝 袦袨袞袧袨 袟袗袛袗孝鞋
效袝袪袝袟 袩袪袨笑袝袛校袪校 WRITE 小 校袣袗袟袗袧袠袝袦 小袨袨孝袙袝孝小孝袙校挟些袝袚袨 袩袗袪袗袦袝孝袪袗, 袣袗袣 协孝袨 袛袝袥袗袥袨小鞋 袛袥携 肖校袧袣笑袠袠 "袨效袠小孝袣袗 协袣袪袗袧袗". 袩袨袛袪袨袘袧袝袝 袨
袟袗袛袗袧袠袠 袣袨袧孝袪袨袥鞋袧蝎啸 肖校袧袣笑袠袡 小袦 袩 1.2.
袛袥携 校袛袨袘小孝袙袗 袩袨袥鞋袟袨袙袗孝袝袥袝袡 袩袪袠袙袝袛袝袦 袧袠袞袝 袧袝袣袨孝袨袪蝎袝 袠袟 袧袠啸:
^L - 袨效袠小孝袣袗 协袣袪袗袧袗. (^L = #12)
^T - 袨效袠小孝袣袗 协袣袪袗袧袗 袛袨 袩袨袟袠笑袠袠 袣校袪小袨袪袗;
^H - 袣校袪小袨袪 袧袗 袨袛袧校 袩袨袟袠笑袠挟 袙袥袝袙袨;
^U - 袣校袪小袨袪 袧袗 袨袛袧校 袩袨袟袠笑袠挟 袙袩袪袗袙袨;
^M - 袣校袪小袨袪 袙 袧袗效袗袥袨 小孝袪袨袣袠;
^J - 袣校袪小袨袪 袧袗 袨袛袧校 小孝袪袨袣校 袙袧袠袟 袙 孝袨袡 袞袝 袩袨袟袠笑袠袠;
^Z - 袣校袪小袨袪 袧袗 袨袛袧校 小孝袪袨袣校 袙袙袝袪啸 袙 孝袨袡 袞袝 袩袨袟袠笑袠袠.
1.2. 袟袗袛袗袧袠袝 袣袨袧孝袪袨袥鞋袧蝎啸 肖校袧袣笑袠袡 袠袟 袩袪袨袚袪袗袦袦蝎.
----------------------------------------------
袛袥携 袟袗袛袗袧袠携 袣袨袧孝袪袨袥鞋袧蝎啸 肖校袧袣笑袠袡 袦袨袞袧袨 袠小袩袨袥鞋袟袨袙袗孝鞋 袠啸
袩袪袝袛小孝袗袙袥袝袧袠袝 袙 袣袨袛袗啸 ASCII 袠袥袠 袙 袛袝小携孝袠效袧袨袦 袙袠袛袝. 袟袗袛袗袧袠袝 袙
袣袨袛袗啸 ASCII 袩袪袨袠袟袙袨袛袠孝小携 袩校孝袝袦 校袣袗袟袗袧袠携 小袠袦袙袨袥袗 ^(CONTROL), 袙
袛袝小携孝袠效袧袨袦 袙袠袛袝 袩校孝袝袦 校袣袗袟袗袧袠携 袟袧袗袣袗 # (袛袠袝袟) 袩袝袪袝袛 袛袝小携孝袠效袧袨袡
笑袠肖袪袨袡.
袧袗袩袪袠袦袝袪:
CONTROL A = ^A = #1;
WRITE(^L) = WRITE(#12) - 袨效袠小孝袣袗 协袣袪袗袧袗;
IF A=^C THEN BDOS(0) - "孝袝袩袥蝎袡 小孝袗袪孝"-袩袝袪袝袟袗袚袪校袟袣袗 袨小 袙
袩袪袨笑袝小小袝 袪袗袘袨孝蝎.
袨袘袪袗孝袠孝袝 袙袧袠袦袗袧袠袝 小袠袦袙袨袥蝎 袣袨袧孝袪袨袥鞋袧蝎啸 肖校袧袣笑袠袡 袧袝 孝袪袝袘校挟孝
袟袗袣袥挟效袝袧袠携 袠啸 袙 ' ' (袗袩袨小孝袪袨肖蝎) 袙袧校孝袪袠 袩袪袨笑袝袛校袪蝎 袙蝎袙袨袛袗 WRITE.
1.3. 小袩袝笑袠肖袠效袝小袣袠袝 孝袠袩蝎 袛袗袧袧蝎啸.
-------------------------------
袙 TURBO-袩小袗袣袗袥袝 袨袩袪袝袛袝袥袝袧蝎 袛袙袗 小袩袝笑袠肖袠效袝小袣袠 孝袠袩袗 袛袗袧袧蝎啸, 袣袨孝袨袪蝎袝 袨孝小校孝小孝袙校挟孝 袙 小孝袗袧袛袗袪孝袧袨袦 袩袗小袣袗袥袝:
孝袠袩 袛袗袧袧蝎啸 BYTE.
---------------
协孝袨孝 孝袠袩 袛袗袧袧蝎啸 袠袦袝袝孝 小袙袨袠袦 袟袧袗效袝袧袠袝袦 笑袝袥袨效袠小袥袝袧袧袨袝 袟袧袗效袝袧袠袝 袘袗袡孝袗 (效袠小袥袨 袨孝 0 袛袨 255).孝袠袩 BYTE 小袨袙袦袝小孝袠袦 小 孝袠袩袗袦袠 INTEGER 袠 REAL.
孝袠袩 袛袗袧袧蝎啸 STRING[效袠小袥袨]
------------------------
协孝袨孝 孝袠袩 袨袩袪袝袛袝袥携袝孝 小袠袦袙袨袥鞋袧校挟 小孝袪袨袣校 袛袥袠袧袨袡 <效袠小袥袨>.
袙 袧袨孝袗笑袠袠 袩袗小袣袗袥携 孝袠袩 STRING 袦袨袞袧袨 袨袩袪袝袛袝袥袠孝鞋, 袣袗袣
TYPE STRING=PACKED ARRAY[1..<效袠小袥袨>].
袙 小孝袪袨袣袗啸 袙袨袟袦袨袞袧袗 袦袗袧袠袩校袥携笑袠携 笑袝袩袨效袣袗袦袠 袟袧袗袣袨袙.
1.4. 袨袩袝袪袗笑袠袠 小袨 小孝袪袨袣袗袦袠 袛袗袧袧蝎啸 (STRING) 袙 TURBO.
--------------------------------------------------
袙 TURBO-袩袗小袣袗袥袝 袛袥携 袧袝袩袨小袪袝袛小孝袙袝袧袧蝎啸 袨袩袝袪袗笑袠袡 小袨 小孝袪袨袣袗袦袠
袛袗袧袧蝎啸 袠袦袝挟孝小携 小袥袝袛校挟些袠袝 袩袪袨笑袝袛校袪蝎 袠 肖校袧袣笑袠袠:
袩袪袨笑袝袛校袪蝎:
---------
DELETE,INSERT,STR,VAL;
肖校袧袣笑袠袠
-------
CONCAT,COPY,LENGTH,POS;
袦袗袣小袠袦袗袥鞋袧蝎袡 袪袗袟袦袝袪 小孝袪袨袣袠 - 255 小袠袦袙袨袥袨袙 袨袩袪袝袛袝袥携袝孝小携
袧袗袥袠效袠袝袦 袨袛袧袨袘袗袡孝袨袙袨袚袨 袩袗小袩袨袪孝袗 小孝袪袨袣袠.
DELETE(S,P,N) S:STRING[X]; P,N:INTEGER;
袙 小孝袪袨袣袝 S 袧袗效袠袧袗携 小袨 袟袧袗袣袗 袧袨袦袝袪 P N 袘袗袡孝 校袛袗袥携挟孝小携. 袝小袥袠 P
袘袨袥鞋楔袝, 效袝袦 袛袥袠袧袗 小孝袪袨袣袠, 孝袨 袙蝎袩袨袥袧袝袧袠袝 袩袪袨袚袪袗袦袦蝎 袩袪袝袪蝎袙袗袝孝小携 小
袚袝袧袝袪袗笑袠袝袡 袨楔袠袘袣袠 袙袪袝袦袝袧袠 袠小袩袨袥袧袝袧袠携 (RUN TIME ERROR).
INSERT(Q,Z,P) Q,Z:STRING; P:INTEGER;
袙 小孝袪袨袣校 Z 小 袩袨袟袠笑袠袠 P 袙袣袥挟效袗袝孝小携 小孝袪袨袣袗 Q.
STR(V,S) V:INTEGER\REAL;S:STRING;
效袠小袥袨 V 袩袪袝袨袘袪袗袟袨袙蝎袙袗袝孝小携 袙 袩袨小袥袝袛袨袙袗孝袝袥鞋袧袨小孝鞋 小袠袦袙袨袥袨袙 S. 袛袗袧袧袗携
袩袪袨笑袝袛校袪袗 袠袟袦袝袧携袝孝 肖袨袪袦袗孝 袩袪袝袛小孝袗袙袥袝袧袠携 效袠小袥袨袙蝎啸 袛袗袧袧蝎啸, 袩袪袝袨袘袪袗袟校携 效袠小袥袨 袠袟 肖袨袪袦袗孝袗 袙袝些袝小孝袙袝袧袧蝎啸 袠袥袠 笑袝袥蝎啸 效袠小袝袥 袙
肖袨袪袦袗孝 小袠袦袙袨袥鞋袧袨袡 小孝袪袨袣袠. 袙 协孝袨袦 肖袨袪袦袗孝袝 袩袪袨袠袟袙袨袛袠孝鞋 袙蝎效袠小袥袝袧袠携
袧袝袥鞋袟携!
VAL(S,V,C)
S:STRING;V :INTEGER\REAL;C:INTEGER; 小孝袪袨袣袗 S 小袠袦袙袨袥袨袙, 袩袪袝袛小孝袗袙袥携挟些袠啸 小袨袘袨袡 袩袨小袥袝袛袨袙袗孝袝袥鞋袧袨小孝鞋 袛袝小携孝袠效袧蝎啸 笑袠肖袪
袙袦袝小孝袝 袠袥袠 袘袝袟 袛袝小携孝袠效袧袨袡 孝袨效袣袠 袠袥袠 小袠袦袙袨袥袗 "袝" 袥袨袚袗袪袠肖袦袠效袝小袣袨袡
肖袨袪袦蝎 袙袝些袝小孝袙袝袧袧袨袚袨 效袠小袥袗 袩袪袝袨袘袪袗袟校袝孝小携 袙 小袨袨孝袙袝孝小孝袙校挟些袝袝 笑袝袥袨袝 效袠小袥袨
(袛袝小携孝袠效袧袗携 孝袨效袣袗 袠袥袠 小袠袦袙袨袥 "袝" 袙 小孝袪袨袣袝 小袠袦袙袨袥袨袙 袨孝小校孝小孝袙校挟孝) 袥袠袘袨 袙 袙袝些袝小孝袙袝袧袧袨袝 效袠小袥袨. 袙 小袥校效袗袝, 袝小袥袠 袙 袠小啸袨袛袧袨袡
小孝袪袨袣袝 袙小孝袪袝效袗袝孝小携 袟袧袗袣, 袧袝 袦袨袚校些袠袡 袘蝎孝鞋 袩袪袝袨袘袪袗袟袨袙袗袧 袙 效袠小袥袨, 孝.袝. 袨孝袥袠效袧蝎袡 袨孝 袛袝小携孝袠效袧袨袡 笑袠肖袪蝎, 袛袝小携孝袠效袧袨袡
孝袨效袣袠 袠袥袠 小袠袦袙袨袥袗 "袝",袥袠袘袨 袣袨袚袛袗 小袠袦袙袨袥 "袝" 袠袥袠 袛袝小携孝袠效袧袗携 孝袨效袣袗 袙小孝袪袝效袗挟孝小携
袙 小孝袪袨袣袝 小袠袦袙袨袥袨袙 袘袨袥袝袝 袨袛袧袨袚袨 袪袗袟袗, 孝袨 袩袪袝袨袘袪袗袟袨袙袗袧袠袝 小孝袪袨袣袠 袙
效袠小袥袨 - 袧袝袙袨袟袙袨袞袧袨: 孝袨袚袛袗 袩袗袪袗袦袝孝袪 "C" 袩袨袥校效袗袝孝 袟袧袗效袝袧袠袝 袧袨袦袝袪袗
袩袝袪袙袨袚袨 袟袧袗袣袗 袙 小孝袪袨袣袝, 袣袨孝袨袪蝎袡 袧袝袙袨袟袦袨袞袧袨 袩袪袝袨袘袪袗袟袨袙袗孝鞋 袙 效袠小袥袨. 袝小袥袠 袩袪袝袨袘袪袗袟袨袙袗袧袠袝 袙蝎袩袨袥袧袝袧袨 校小袩袝楔袧袨- 袩袗袪袗袦袝孝袪 "C" 袩袪袠袧袠袦袗袝孝 袧校袥袝袙袨袝 袟袧袗效袝袧袠袝.
CONCAT(S1,S2...SN):STRING
S1...SN :STRING; 袣袨袧袣袗孝袝袧袗笑袠携 - 袩袨小袥袝袛袨袙袗孝袝袥鞋袧袨袝 袨袘'袝袛袠袧袝袠袝 N 小孝袪袨袣 袙 袨袛袧校 小孝袪袨袣校.
COPY(S,P,N):STRING
S:STRING;P,N :INTEGER; 袠袟 小孝袪袨袣袠 "S",袧效袠袧袗携 小 袩袨袟袠笑袠袠 P N
袟袧袗袣袨袙 袣袨袩袠袪校袝孝小携;
袧袗袪袠袦袝袪 S :=COPY('袣袪袨袣袨袛袠袥',2,3) 袩袪袠小袙袨袠孝 S 袟袧袗效袝袧袠袝
'袪袨袣'.
LENGTH(S):INTEGER; S:STRING;
协孝袗 肖校袧袣笑袠携 袙蝎效袠小袥携袝孝 袛袥袠袧校 小袠袦袙袨袥鞋袧袨袡 小孝袪袨袣袠.
POS(Q,Z):INTEGER; Q,Z:STRING;
协孝袗 肖校袧袣笑袠携 袩袪袨袠袟袙袨袛袠孝 袩袨袠小袣 袩袝袪袙袨袚袨 袙啸袨袞袛袝袧袠携 小孝袪袨袣袠 Z 袙 小孝袪袨袣校 Q. 袙 袪袝袟校袥鞋孝袗孝袝 袝袝 袪袗袘袨孝蝎 袙袨袟袙袪袗些袗袝孝小携 袧袨袦袝袪 袩袝袪袙袨袚袨 袟袧袗袣袗 袙
小孝袪袨袣袝 Q, 小袨袙袩袗袛袗挟些袝袚袨 小 袩袝袪袙蝎袦 袟袧袗袣袨袦 小孝袪袨袣袠 Z. 袝小袥袠 Z 袧袝 携袙袥携袝孝小携 袩袨袛小孝袪袨袣袨袡 Q,孝袨 肖校袧袣笑袠携 袙袨袟袙袪袗些袗袝孝 袧校袥袝袙袨袝 袟袧袗效袝袧袠袝.
袧袗袩袪袠袦袝袪 N:=POS('袣袪袨袣袨袛袠袥','袨袣').袟袛袝小鞋 N 袩袨袥校效袠孝 袟袧袗效袝袧袠袝 3.
小袥袝袛校挟些袠袝 袩袪袠袦袝袪蝎 袛袝袦袨袧小孝袪袠袪校挟孝 袙袨袟袦袨袞袧袨小孝袠 袨袩袝袪袗笑袠袡 小袨
小孝袪袨袣袗袦袠:
(*袛袝袦袨袧小孝袪袗笑袠携 袦袗袧袠袩校袥携笑袠袡 小袨 小孝袪袨袣袗袦袠 *)
VAR I :INTEGER;
R :REAL;
K1 :STRING[50];
K2 :STRING[20];
K3 :STRING[10];
BEGIN
CLRSCR;
WRITELN('孝袝小孝袨袙袗携 袩袪袨袚袪袗袦袦袗 袪袗袘袨孝蝎 小袨 小孝袪袨袣袗袦袠':50);
WRITELN;
K1:='ABCDE';
I:=LENGTH(K1); (*袙蝎效袠小袥袝袧袠袝 袛袥袠袧蝎 袗袣孝校袗袥鞋袧袨袡 小孝袪袨袣袠*)
WRITELN(K1,' - ',I,' 袟袧袗袣袨袙 袛袥袠袧蝎.');
K2:='FGH';
K1:=CONCAT(K1,K2); (*袣袨袧袣袗孝袝袧袗笑袠携 袛袙校啸 小孝袪袨袣袨袙蝎啸 袩袝袪袝袦袝袧袧蝎啸*)
I:=LENGTH(K1);
WRITELN(K1,'-孝袝袩袝袪鞋 'I,' 袟袧袗袣袨袙 袛袥袠袧蝎');
K3:=COPY(K1,4,3); (*袣袨袩袠袪袨袙袗袧袠袝 3 袟袧袗袣袨袙, 袧袗效袠袧袗携 小 效袝孝袙袝袪孝袨袚袨 袙
袗袣孝.小孝袪袨袣袝*)
WRITELN(K3,' 袨袘袪袗袟袨袙袧袗 袠袟 ',袣1,' 小 袩袨袟袠笑袠袠 4');
K3:='E';
I:=POS(K3,K1); (*袧袗啸袨袞袛袝袧袠袝 袩袨袟袠笑袠袠 袣3 袙 袣1*)
WRITELN('袙 小孝袪袨袣袝 ',袣1,' 小孝袪袨袣袗 ',袣3,' 小孝袨袠孝 袙 ',I,
'-TO袡 袩袨袟袠笑袠袠');
WRITELN;
DELETE(K1,4,3); (* 袠小袣袥挟效袝袧袠袝 孝袪袝啸 袟袧袗袣袨袙 袠袟 小孝袪袨袣袠 袣1,
袧袗效袠袧袗携 小 袩袨袟.4*)
WRITELN(K1,' 袩袨小袥袝 袠小袣袥挟效袝袧袠携 孝袪袝啸 袟袧袗袣袨袙, 袧袗效袠袧袗携 小 袩袨袟. 4');
K3:='XXX';
INSERT(K3,K1,4; (*袙小孝袗袙袣袗 小袠袦袙袨袥袨袙 啸啸啸 袙 小孝袪袨袣校 袣1*)
WRITELN(K1,' 袩袨小袥袝 袙小孝袗袙袣袠 小孝袪袨袣袠 ',袣3,' 小 袩袨袟.4');
K2:='12,123';
VAL(K2,R,I); (*袩袪袝袨袘袪袗袟袨袙袗袧袠携 小孝袪袨袣袠 笑袠肖袪 袙 效袠小袥袨*)
WRITELN('R:3:3,' ',I,'=袩袨袟. 袨楔袠袘袣袗.袟袧袗袣 袧袝 袙袝袪袝袧.I>0');
K2:='12.123';
VAL(K2,R,I);
WRITELN(' 小孝袪袨袣袗 ',K2,' 袩袪袝袨袘袪袗袟袨袙袗袧袗 袙 效袠小袥袨 ',R:3:3);
END.
1.5. 袙小孝袪袨袝袧袧蝎袝 效袠小袥袨袙蝎袝 肖校袧袣笑袠袠.
---------------------------------
袙 TURBO-袩袗小袣袗袥袝 袛袨袩袨袥袧袠孝袝袥鞋袧袨 袣 小孝袗袧袛袗袪孝袧袨袦校 袨袩袪袝袛袝袥袝袧蝎
小袥袝袛校挟些袠袝 效袠小袥袨袙蝎袝 肖校袧袣笑袠袠:
FRAC :袙袨袟袙袪袗些袗袝孝 袙袝些袝小孝袙袝袧袧袨袝 袟袧袗效袝袧袠袝 袛袪袨袘袧袨袡 效袗小孝袠 袙袝些袝小孝袙袝袧袧袨袚袨 效袠小袥袗 (袨孝袘袪袗小蝎袙袗袧袠袝 笑袝袥袨袡 效袗小孝袠).笑袝袥袨效袠小袥袝袧袧袗携
袩袝袪袝袦袝袧袧袗携 协孝袨袡 肖校袧袣笑袠袝袡 袩袪袝袨袘袪袗袟校袝孝小携 袙 袧袨袥鞋.
INT :袙袨袟袙袪袗些袗袝孝 笑袝袥校挟 效袗小孝鞋 袙袝些袝小孝袙袝袧袧袨袚袨 效袠小袥袗 袙 袙袠袛袝 袙袝些袝小孝袙袝袧袧袨袚袨 效袠小袥袗, 孝.袝. 袨孝袘袪袗小蝎袙袗袝孝 袛袪袨袘袧校挟 效袗小孝鞋
袙袝些袝小孝袙袝袧袧袨袚袨 效袠小袥袗 袠 袩袪袝袨袘袪袗袟校袝孝 袩袨袥校效袝袧袧袨袝 效袠小袥袨 袙 袙袝些袝小孝袙袝袧袧校挟
肖袨袪袦校.
袩袪袠袦袝袪:
VAR A,B,C :REAL;
D :INTEGER;
A:=1.2345;
D:=34;
B:=FRAC(D); (*袩袝袪袝袦袝袧袧袗携 B 袩袨袥校效袠孝 袟袧袗效袝袧袠袝 0.0*)
C:=INT(D); (*袩袝袪袝袦袝袧袧袗携 C 袩袨袥校效袠孝 袟袧袗效袝袧袠袝 34.0*)
B:=FRAC(A); (*袩袝袪袝袦袝袧袧袗携 B 袩袨袥校效袠孝 袟袧袗效袝袧袠袝 0.2345 *)
C:=INT(A); (*袩袝袪袝袦袝袧袧袗携 C 袩袨袥校效袠孝 袟袧袗效袝袧袠袝 1.0 *)
1.6.小孝袗袧袛袗袪孝袧蝎袝 袦袗小小袠袙蝎.
------------------------
袙 TURBO 袨袩袪袝袛袝袥袝袧蝎 袛袙袗 孝袠袩袗 袘袗袡孝袨袙蝎啸 袦袗小小袠袙袨袙, 袛袝袣袥袗袪袗笑袠携
袣袨孝袨袪蝎啸 袙小孝袪袨袝袧袗 袧袝袩袨小袪袝袛小孝袙袝袧袧袨 袙 袣袨袦袩袠袥携孝袨袪, 袩袨协孝袨袦校 小小蝎袥袗孝鞋小携
袧袗 协孝袠 袦袗小小袠袙蝎 袙 袩袪袨袚袪袗袦袦袝 小袥袝袛校袝孝 袘袝袟 袙小携袣袠啸 袩袪袝袛袙袗袪袠孝袝袥鞋袧蝎啸
袨袘'携袙袥袝袧袠袡 袙 校孝袙袝袪袞袛袝袧袠携啸 袛袝袣袥袗袪袗笑袠袠 袩袝袪袝袦袝袧袧蝎啸. 协孝袠 袛袙袗 孝袠袩袗
袦袗小小袠袙袨袙 小校孝鞋 小袥袝袛校挟些袠袝:
1.6.1 PORT - 校小孝袗袧袗袙袥袠袙袗袝孝 袩袪携M袨袝 袨袘袪袗些袝袧袠袝 袣 袩袨袪孝袗袦 袩袪袨笑袝小小袨袪袗; -----------
袨袘袪袗些袝袧袠袝:
PORT[<袧袨袦袝袪 袩袨袪孝袗>]:=<袟袧袗效袝袧袠袝>-袟袗小蝎袥袣袗 袘袗袡孝袗 袙 袩袨袪孝 <袧袨袦袝袪
袩袨袪孝袗>
<袩袝袪袝袦袝袧袧袗携>:=PORT[<袧袨袦袝袪 袩袨袪孝袗>]-效孝袝袧袠袝 袘袗袡孝袗 袠袟 袩袨袪孝袗<袧袨袦袝袪 袩袨袪孝袗> 袙 袩袝袪袝袦袝袧袧校挟 <袩袝袪袝袦袝袧袧袗携>.
<袟袧袗效袝袧袠袝> -袟袗袛袗袝孝携 笑袝袥蝎袦 效袠小袥袨袦 袨孝 0 袛袨 255 袙 袛袝小携孝袠效袧袨袡 袠袥袠 袙
楔袝小孝袧袗袛笑袗孝袝袪袠效袧袨袡 肖袨袪袦袝. 袙 袩袨小袥袝袛袧袝袦 小袥校效袗袝 袩袝袪袝袛 楔袝小孝袧袗袛笑袗孝袝袪袠效袧蝎袦 效袠小袥袨袦 小孝袗袙袠孝小携 袟袧袗袣 $,袧袗袩袪袠袦袝袪:
-袩袝袪袝袣袥挟效袝袧袠袝 袩袨袪孝袗 BAB3 袧袗 袙蝎袙袨袛 袛袥袠袧袧蝎啸 小孝袪袨袣 (480 袟袧袗袣袨袙)- VAR GROSS,PORTNR :INTEGER; BEGIN GROSS:=$02 (*袩袪袠小袙袗袠袙袗袧袠袝 袩袪袠袟袧袗袣袗 袛袥袠袧袧袨袡 小孝袪袨袣袠*) PORTNR:=$40 (*袩袪袠小袙袗袠袙袗袧袠袝 袧袨袦袝袪袗
袩袨袪袗*) PORT[PORTNR]:=GROSS;(*袩袝袪袝袣袥挟效袝袧袠袝 袩袨袪孝袗 袧袗 袙蝎袙袨袛 480
袟袧袗袣袨袙*) END.
聽袧袨袦袝袪袗 袩袨袪孝袨袙 袠 袣袨袛蝎 袟袧袗效袝袧袠袡 袦袨袞袧袨 袧袗袡孝袠 袙 袟袗袙袨袛小袣袠啸 袠袧小孝袪校袣笑袠携啸 袩袨 孝袝啸袧袠效袝小袣袨袦校 袨袘小袥校袞袠袙袗袧袠挟 袦袠袣袪袨 协袙袦 袠袥袠 袙 小袩袝笑袠袗袥鞋袧袨袡 袥袠孝袝袪袗孝校袪袝 袩袨 袦袠袣袪袨袩袪袨笑袝小小袨袪袗袦 INTEL 8080,K袪 580, Z80 袠 DR.
1.6.2. MEM[<袗袛袪袝小>] -袨袛袧袨袦袝袪袧蝎袡 袘袗袡孝袨袙蝎袡 袦袗小小袠袙 携效袝袝袣 袨袟校.
-------------------
袨袘袪袗些袝袧袠袝 袣 袦袗小小袠袙校:
<袩袝袪袝袦袝袧袧袗携>:=MEM[<袗袛袪袝小>] -
效孝袝袧袠袝 袘袗袡孝袗 小 袗袛袪袝小袨袦 <袗袛袪袝小> 袠袟 袨袟校 袙 袩袝袪袝袦袝袧袧校挟
<袩袝袪袝袦袝袧袧袗携>;
MEM[<A袛袪袝小>]:=<袩袝袪袝袦袝袧袧袗携>I<袟袧袗效袝袧袠袝>- 袟袗小蝎袥袣袗 袟袧袗效袝袧袠携 袩袝袪袝袦袝袧袧袨袡 <袩袝袪袝袦袝袧袧袗携> 袠袥袠 袩袪携袦袗携 袟袗袩袠小鞋 笑袝袥袨袚袨 效袠小袥袗
<袟袧袗效袝袧袠袝> 袙 袨袟校 袩袨 袗袛袪袝小校 <袗袛袪袝小>.
孝袗袣袞袝,袣袗袣 袠 袛袥携 袦袗小小袠袙袗 "PORT" 袟袧袗效袝袧袠携 袩袝袪袝袦袝袧袧蝎啸 - 笑袝袥蝎袝
效袠小袥袗 袨孝 0 袛袨 255 袠袥袠 袨孝 $0 袛袨 $FF 袙 楔袝小孝袧袗笑袗孝袠袪袠效袧袨袡 肖袨袪袦袝.
袟袧袗效袝袧袠袝 袗袛袪袝小袗 袘袗袡孝袗 袨袟校 <袗袛袪袝小> 袟袗袛袗袝孝小携 笑袝袥蝎袦 效袠小袥袨袦
袧袨袪袦袗袥鞋袧袨袡 袛袥袠袧蝎 (孝袠袩 INTEGER 袩袗小袣袗袥携).
袩袪袠 袟袗袛袗袧袠袠 袗袛袪袝小袗 袩袪袠袦袠孝袝 袙袨 袙袧袠袦袗袧袠袝, 效孝袨 袩袨小袣袨袥鞋袣校 笑袝袥袨袝
效袠小袥袨 袧袨袪袦袗袥鞋袧袨袡 袛袥袠袧蝎 袙 袩袗小袣袗袥袝 袩袪袝袛小孝袗袙袥袝袧袨 15 袘袠孝袗袦袠 袠袟 袛袙校啸
袘袗袡孝袨袙(袨袛袠袧 袘袠孝袟袧袗袣),孝袨 袗袛袪袝小袗 袛袨 32767 袠袥袠 $7FFF
(2**15-1)袩袪袝袛小孝袗袙袥携挟孝小携 袩袨袥袨袞袠孝袝袥鞋袧蝎袦袠 效袠小袥袗袦袠, 袗袛袪袝小袗 袨孝 32768
袠袥袠 $0800 袛袨 65536 袠袥袠 $FFFF 袩袪袝袛小孝袗袙袥携挟孝小携 袨孝袪袠笑袗孝袝袥鞋袧蝎袦袠 效袠小袥袗袦袠. 袩袪袠 协孝袨袦 袗袛袪袝小 32769 ($8001) 袩袪袝袛小孝袗袙袥携袝孝小携, 袣袗袣 -32767, A
袗袛袪袝小 65536,袣袗袣 -0.
袩袪袨袚袪袗袦袦袠小孝校 小袥袝袛校袝孝 袩袨袥鞋袟袨袙袗孝鞋小携 袩袪袠袙袝袛袝袧袧袨袡 袙蝎楔袝 袨小袨袘袝袧袧袨小孝鞋挟 袩袪袝袛小孝袗袙袥袝袧袠携 袗袛袪袝小袨袙 袩袪袠 袩袪携袦袨袦 袨袘袪袗些袝袧袠袠 袣 袨袟校 袠袟 袩袗小袣袗袥携 TURBO. 袨袛袧袗袣袨, 袩袪袠 袩袨袛袨袘袧蝎啸 袨袘袪袗些袝袧袠携啸 袦袨袞袧袨 袟袗袛袗袙袗孝鞋 袗袛袪袝小袗 袙 楔袝小孝袧袗袛笑袗孝袝袪袠效袧袨袦 袙袠袛袝, 效孝袨 袠袟袘袗袙袠孝 袨孝 袧袝袨袘啸袨袛袠袦袨小孝袠 袙蝎效袠小袥袝袧袠袡 袨孝袪袠笑袗孝袝袥鞋袧蝎啸 袠袟袨袘袪袗袞袝袧袠袡 袗袛袪袝小袨袙,袣袗袣 协孝袨 袧袝袨袘啸袨袛袠袦袨 袩袪袠
袛袝小携孝袝袪袠效袧袨袦 袠啸 袟袗袛袗袧袠袠.
袩袪袦袝袪 袩袪携袦蝎啸 袨袘袪袗些袝袧袠袡 袣 袨袟校:
VAR I:BYTE
BEGIN
MEM[$F800]:=$41;(*袟袗袩袠小鞋 袣袨袧小孝袗袧孝蝎 $41 袩袨 袗袛袪袝小校 $F800*)
I:=MEM[$F8A1] ; (*袩袝袪袝小蝎袥袣袗 小袨袛袝袪袞袠袦袨袚袨 袘袗袡孝袗 $F8A1 袙
袩袝袪袝袦袝袧袧校挟 I*)
END.
1.7. 袙蝎袟袨袙蝎 肖校袧袣笑袠袡 BDOS 袠 BIOS 袨袩袝袪袗笑袠袨袧袧袨袡 小袠小孝袝袦蝎.
-----------------------------------------------------
袙 TURBO 袙袝袪小袠袠 袛袥携 CP/M Z80) 小校些袝孝袙校袝孝 袙袨袟袦袨袞袧袨小孝鞋 袩袪携袦袨袚袨 袨袘袪袗些袝袧袠携 袣 肖校袧袣笑袠携袦 袨袩袝袪袗笑袠袨袧袧袨袡 小袠小孝袝袦蝎.
1.7.1. 袩袪袠袦袝袪蝎 袨袘袪袗些袝袧袠携 袣 BDOS 袠 BIOS 肖校袧袣笑袠携袦.
------------------------------------------------
袩袪袠袦袝效袗袧袠袝: 袣袨袧袣袪袝孝袧蝎袝 肖校袧袣笑袠袠 袪袗袟袥袠效袧蝎啸 袙袝袪小袠袡 袨袩袝袪袗笑袠袨袧袧蝎啸 小袠小孝袝袦 袦袨袚校孝 袨孝袥袠效袗孝鞋小携 袨孝 袩袪袠袙袨袛袠袦蝎啸 袙 袩袪袠袦袝袪袝, 袩袨协孝袨袦校
袛袗袧袧蝎袡 袩袪袠袦袝袪, 袛袨袥袞袝袧 袪袗小小袦袗孝袪袠袙袗孝鞋小携 孝袨袥鞋袣袨, 袣袗袣 袛袝袦袨袧小孝袪袗笑袠携
小袙袨袡小孝袙 ,袗 袧袝 袣袗袣 袪校袣袨袙袨袛小孝袙袨 袣 袩袪袗袣孝袠效袝小袣袨袡 袪袗袘袨孝袝.
PROGRAM BDOSTEST;
(*袩袪携袦蝎袝 袙蝎袟袨袙蝎 BDOS- 袠 BIOS-肖校袧袣笑袠袡 袙 孝校袪袘袨-袩袗小袣袗袥袝*)
VAR I,J,K,DRIVE :INTEGER;
ST :STRING[80];
SIGN :BYTE;
(*$I PWIHEX.PAS*) (*INCLUDE-校孝袙袝袪袞袛袝袧袠袝 小小蝎袥袗袝孝小携 袧袗 肖袗袡袥*)
(* 袙 袣袨孝袨袪袨袦 袧袗啸袨袛袠孝小携 袩袪袨袚袪袗袦袦袗 袩袪袝袨袘袪袗袟袨袙袗袧袠携 袛袝小.效袠小袝袥 袙 *)
(* 楔袝小孝袧袗袛笑袗孝袠袪袠效袧袨袝 袩袪袝袛小孝袗袙袥袝袧袠袝 "WRITE_I_HEX"*)
BEGIN
CLRSCR;
WRITELN('BDOS-肖校袧袣笑袠袠 袙 孝校袪袘袨-袩袗小袣袗袥袝':30);
WRITELN;
I:=BDOS(12); (*BDOS-肖校袧袣笑袠携 12->袩袝袪袝袛袗效袗 袧袨袦袝袪袗 袙袝袪小袠袠 CP/M*)
WRITE(I,'/');(*袙蝎袙袨袛 袙 袛袝小. 肖袨袪袦袝 N 袙袝袪小袠袠 34 袛袥携 CP/M 2.2*)
WRITE_I_HEX(I); (*袛袝小携孝袠效袧袨袝 袟袗袛袗袧袠袝 袛袥携 I=34 袧袨袦袝袪 袙袝袪小袠袠*)
(*-楔袝小孝袧袗袛笑袗孝袠袪袠效袧袨袝 效袠小袥袨 $0022.袩袪袨笑袝袛校袪袗 *)
(*WRITE_I_HEX 袙啸袨袛袠孝 袙 肖袗袡袥 PWIHEX 袠袟 INCLUDE*)
WRITELN;
ST:='协孝袨 - 袧袝袣袨孝袨袪蝎袡 孝袝袣小孝';
J:=ADDR(ST); (*袩袨袥校效袝袧袠袝 袗袛袪袝小袗 袧袗效袗袥袗 小孝袪袨袣袠 ST 袙 袨袟校*)
BDOS(9,J); (*BDOS-肖校袧袣笑袠携 9 ->袙蝎袙袨袛 小孝袪袨袣袠 ST*)
WRITELN;
WRITE(J,'/'); (*袙蝎袙袨袛 袛袝小携孝袠效袧袨袚袨 袗袛袪袝小袗 袧袗效袗袥袗 小孝袪袨袣袠 ST*)
WRITE_I_HEX(J)(*=..= 楔袝小孝袧袗袛笑袗孝袠袪袠效袧袨袚袨 =..= *)
WRITELN;
SIGN:=$41;(*袟袧袗袣 => $41,T.E.袘校袣袙袗 "袗" 袙 袣袨袛袝 袣袨袠7 *)
BDOS(5,SIGN); (*袙蝎袙袨袛 袧袗 袩袪袠袧孝袝袪 袘校袣袙蝎 "袗" *)
WRITELN(CHR(SIGN)); (*袙蝎袙袨袛 袧袗 袛袠小袩袥袝袡 袘校袣袙蝎 "A" *)
BDOS(13); (* 小袘袪袨小 袛袠小袣袝孝袧袨袡 小袠小孝袝袦蝎 袩袪袠 袟袗袦袝袧袝 袛袠小袣袗*)
I:=BDOSHL(31); (*效孝袝袧袠袝 袗袛袪袝小袗 袘袥袨袣袗 袩袗袪.袛袠小袣袗 (DPB) 袠袟 HL*)
WRITE_I_HEX(I);(*袙蝎袙袨袛 袗袛袪袝小袗 DPB 袙 楔袝小孝袧袗袛笑袗孝袝袪袠效袧袨袡 肖袨袪袦袝*)
END.
1.8. 校袣袗袟袗孝袝袥袠 小孝袝袣袨袙 -POINTERS, 袨袩袪袝袛袝袥袝袧袧蝎袝 袙 TURBO
----------------------------------------------------
袛袥携 袨袘袪袗些袝袧袠袡 袣 袨袟校 袙 TURBO 袨袩袪袝袛袝袥袝袧蝎 小袥袝袛校挟些袠袝 袙小孝袪袨袝袧袧蝎袝 校袣袗袟袗孝袝袥袠:
1) STACKPTR -校袣袗袟袗孝袝袥鞋 小孝袝袣袗 笑袝袧孝袪袗袥鞋袧袨袚袨 袩袪袨笑袝小小袨袪袗;
2) RECURPTR -校袣袗袟袗孝袝袥鞋 小孝袝袣袗 袙袨袟袙袪袗孝袗 袩袪袠 袪袝袣校袪小袠袙袧袨袦 袙蝎袟袨袙袝
袩袪袨笑袝袛校袪;
3) HEAPPTR -校袣袗袟袗孝袝袥鞋 "袣校效袠" -袨袘袥袗小孝袠 袩袗袦携孝袠 袪袗小袩袪袝袛袝袥携袝袦袨袡
袩袗小袣袗袥鞋 袣袨袦袩袠袥携孝袨袪袨袦 袛袠袧袗袦袠效袝小袣袠.
袙小袝袚袛袗 小袥袝袛校袝孝 袩袨袦袧袠孝鞋, 效孝袨 袙袝袪啸校楔袣袠 袙蝎楔袝袩袝袪袝效袠小袥袝袧袧蝎啸 小孝袝袣袨袙 袪袗小袩袨袥袗袚袗挟孝小携 袩袨 袟袧袗效袝袧袠挟 袗袛袪袝小袨袙 孝袗袣, 效孝袨
袩袪袠 袥挟袘蝎啸 袨袘小孝袨携孝袝袥鞋小孝袙袗啸 袛袨袥袞袧袨 袠袦袝孝鞋 袦袝小孝袨 袨孝袧袨楔袝袧袠袝:
HEAPPTR < RECURPTR < STACKPTR.
袝小袥袠 袩袪袠 袨袩袝袪袗笑袠携啸 小 校袣袗袟袗孝袝袥携袦袠 协孝袨 袨孝袧袨楔袝袧袠袝 袩袪袨袚袪袗袦袦袠小孝
袧袗袪校楔袠孝, 孝袨 袦袨袞袝孝 袩袪袨袠袟袨袡孝袠 袩袪袝袪蝎袙袗袧袠袝 袩袪袨袚袪袗袦袦蝎, 袠袥袠, 袩袨小袣袨袥鞋袣校
孝校袪袘袨 袧袝 袣袨袧孝袪袨袥袠袪校袝孝 袙蝎袩袨袥袧袝袧袠袝 校袣袗袟袗袧袧袨袚袨 小袨袨孝袧袨楔袝袧袠携, 袦袨袞袝孝
袙袨袟袧袠袣袧校孝鞋 袧袗袥袨袞袝袧袠袝 袙 袨袟校 袩袝袪袝袦袝袧袧蝎啸 袨袩袪袝袛袝袥携袝袦蝎啸 小 袩袨袦袨些鞋挟
协孝袠啸 校袣袗袟袗孝袝袥袝袡.(小袦 效袗小孝鞋 III "袛袠袧袗袦袠效袝小袣袠袝 袩袝袪袝袦袝袧袧蝎袝 袠 校袣袗袟袗孝袝袥袠").
袧袠袞袝 袩袪袠袙袨袛袠孝小携 袩袪袠袦袝袪(袧袨 袧袝 袛袥携 袩袪袗袣孝袠效袝小袣袨袚袨 袙蝎袩袨袥袧袝袧袠携)
袠小袩袨袥鞋袟袨袙袗袧袠携 校袣袗袟袗孝袝袥携 小孝袝袣袗 笑袝袧孝袪袗袥鞋袧袨袚袨 袩袪袨笑袝小小袨袪袗 -STACK-PTRR.
<VAR>:INTEGER; SRACKPTR:=<VAR>; (*袟袗袛袗袧袠袝 校袣袗袟袗孝袝袥携 小孝袝袣袗*) <VAR>:= STACKPTR;(*效孝袝袧袠袝 袟袧袗效袝袧袠携 校袣袗袟袗孝袝袥携 小孝袝袣袗*)
袩袪袠袦袝袪:
PROGRAM STACKTEST;
(* 孝袝小孝袨袙袗携 袩袪袨袚袪袗袦袦袗 袟袗袛袗袧袠携/效孝袝袧袠携 校袣袗袟袗孝袝袥携 小孝袝袣袗*)
VAR I:INTEGER;
(*$I PWIHEX.PAS*) (*小袦 袗袧袗袥袨袚袠效袧袨袝 INCLUDE 袙 袩.1.7.3 *)
BEGIN
CLRSCR;
I:=0;
WRITELN('T袝小孝 校袣袗袟袗孝袝袥携 小孝袝袣袗':46);
I:=STACKPTR;
WRITE(I,'\'); (*袙袨袙袨袛 校袣袗袟袗孝袝袥携 小孝袝袣袗 袙 袛袝小携孝袠效袧袨袡 肖袨袪袦袝*)
WRITE_I_HEX(I);(*袙蝎袙袨袛 =..= 袙 楔袝小孝袧袗袛笑袗孝袠袪袠效袧袨袡 肖袨袪袦袝*)
STACKPTR:=I;
WRITELN
END.
袛袥携 袨袩袝袪袗笑袠袡 袙袙袨袛袗/袙蝎袙袨袛袗 袨袩袪袝袛袝袥袝袧蝎 校袣袗袟袗孝袝袥袠:
------------------------------------------------------
校袣袗袟袗孝袝袥鞋 小袨袨孝袙袝孝小孝袙校挟些袠袡 袗袛袪袝小校:
------------------------------------------------------
CONSTPTR CONST-肖校袧袣笑袠袠 BIOS
CONINPTR CONIN-肖校袧袣笑袠袠 BIOS
CONOUTPTR CONOUT-袩袪袨笑袝袛校袪蝎 BIOS
LSTOUTPTR LSTOUT-袩袪袨笑袝袛校袪蝎 BIOS
AUXOUTPTR AUXOUT-袩袪袨笑袝袛校袪蝎 BIOS
AUXINPTR AUXIN -肖校袧袣笑袠袠 BIOS
USROUTPTR USROUT-袩袪袨笑袝袛校袪蝎 BIOS
USRINPTR USRIN -袩袪袨笑袝袛校袪蝎 BIOS
袙小袝 袨袩袝袪袗笑袠袠 袙袙袨袛袗/袙袙袨袛袗 TURBO 袨小校些袝小孝袙袥携袝孝 袧袝袩袨小袪袝袛小孝袙袝袧袧袨 效袝袪袝袟 BIOS, 袩袨协孝袨袦校 袠袟 孝校袪袘袨 袙 袨袘蝎效袧蝎啸 校小袥袨袙袠携啸 袧袝 袙袨袟袦袨袞袧袨 袟袗袛袗袧袠袝 袙蝎袙袨袛袗 袧袗 袩袪袠袧孝袝袪 小袨袛袝袪袞袠袦袨袚袨 协袣袪袗袧袗 袛袠小袩袥袝携 效袝袪袝袟
^P. 袙小袥袝袛小孝袙袠袝 协孝袨袚袨 袪校孝袠袧蝎 袙袙袨袛A/袙蝎袙袨袛袗 袟袗袦袣袧校孝蝎 袠 袩袪袠袙袝袛袝袧袧蝎袝
袙 孝袗袘袥袠笑袝 校袣袗袟袗孝袝袥袠 袩袨袣袗袟蝎袙袗挟孝 袗袛袪袝小袗 协孝袠啸 袪校孝袠袧 袙 袨袟校. 袨袘袪袗些袝袧袠袝 袣 小袝袪袙袠小袧蝎袦 袩袪袨笑袝袛校袪袗袦 (袪校孝袠袧袗袦) BIOS 袦袨袞袝孝 袩袪袨袠袟袙袨袛袠孝小携
孝袗袣袞袝 袠 效袝袪袝袟 协孝袠 校袣袗袟袗孝袝袥袠.
1.9. 笑袝袩袨效袧蝎袝 肖袗袡袥蝎(CHAIN) 袠 袠小袩袨袥袧袝袧袠袝 .COM (EXECUTE).
-------------------------------------------------------
袨袩袝袪袗孝袨袪蝎 "CHAIN" 袠 "EXECUTE" 袩袪袨袠袟袙袨袛携孝 袙蝎袟袨袙 袠袟 袠小袩袨袥袧携袝
袦袨袡 袩袪袨袚袪袗袦袦蝎 袛袪校袚袠啸 袩袪袨袚袪袗袦袦.
肖袨袪袦袗孝:CHAIN<袠袦携 肖袗袡袥袗>);
<袠袦携 肖袗袡袥袗>-袧袝袣袨孝袨袪蝎袡 肖袗袡袥 小袩袝笑袠袗袥鞋袧袨袚袨 孝袠袩袗 (孝袠袩袗 ".CHAIN").协孝袨袦校 肖袗袡袥校 袙 袚袥袗袙袧袨袡 袩袪袨笑袝袛校袪袝 小 袩袨袦袨些鞋挟 ASSIGN-肖校袧袣笑袠袠
袩袗小袣袗袥携 袧袗袟袧袗效袗袝孝小携 袠袦携, 袣袨孝袨袪袨袝 袛袨袥袞袧袨 袙 袣袗效袝小孝袙袝 袗孝袪袠袘校孝袗 孝袠袩袗
小袨袛袝袪袞袗孝鞋 袗孝袪袠袘校孝 ".CHAIN".袣袨袦袩袠袥携笑袠携 协孝袨袚袨 肖袗袡袥袗 袛袨袥袞袧袗 袩袪袨袠袟袙袨袛袠孝小携 袨孝袛袝袥鞋袧袨 小 校小孝袗袧袨袙袥袝袧袠袝袦 袨袩笑袠袠 "COMPILING -> CHAIN"
(小袦.效袗小孝鞋 I 袩.2.1.11).
袩袨小袥袝 袙蝎袩袨袥袧袝袧袠携 袙蝎袟袙袗袧袧袨袡 CHAIN-袩袪袨袚袪袗袦袦蝎 袙袨袟袙袪袗孝 袙 袙蝎袟袙袗袙楔校挟 袝袝 袩袪袨袚袪袗袦袦校 袧袝 袩袪袨袠袟袙袨袛袠孝小携 袠 袩袝袪袝袛袗效袗 袩袝袪袝袦袝袧袧蝎啸 袠袟
袙蝎袟蝎袙袗挟些袝袡 袩袪袨袚袪袗袦袦蝎 袙 袙蝎袟蝎袙袗袝袦校挟 袧袝 袨小校些袝小孝袙袥携袝孝小携.
袩袝袪袝袛袗效袗 袟袧袗效袝袧袠袡 袙袨袟袦袨袞袧袗 孝袨袥鞋袣袨 小袥袝袛校挟些袠袦 袨袘袪袗袟袨袦: 袙
袙蝎袟蝎袙袗挟些袝袡 袠 袙蝎袟蝎袙袗袝袦袨袡 袩袪袨袚袪袗袦袦袝 袩袝袪袝袦袝袧袧蝎袝, 袟袧袗效袝袧袠携 袣袨孝袨袪蝎啸
袧校袞袧袨 袩袝袪袝袛袗孝鞋 袛袨袥袞袧蝎 袘蝎孝鞋 袨袩袪袝袛袝袥袝袧蝎 袙 校孝袙袝袪袞袛袝袧袠携啸 袛袝袣袥袗袪袗笑袠袠
袩袝袪袝袦袝袧袧蝎啸 孝袨效袧袨 袙 袨袛袠袧袗袣袨袙蝎啸 袦袝小孝袗啸 袠 袙 袨袛袠袧袗袣袨袙袨袦 袩袨袪携袛袣袝 袙
袧袗效袗袥袝 小袩袠小袣袗 袛袝袣袥袗袪袗笑袠袠.
袝些袝 袨袛袧袗 袙袨袟袦袨袞袧袨小孝鞋-袟袗袛袗袧袠袝 袗袘小袨袥挟孝袧蝎啸 袩袝袪袝袦袝袧袧蝎啸. 袗袘小袨袥挟孝袧蝎袝 袩袝袪袝袦袝袧袧蝎袝 - 袩袝袪袝袦袝袧袧蝎袝, 袩袨袦袝些袗袝袦蝎袝 袙 小袩袝笑袠袗袥鞋袧校挟 袨袘些校挟
袨袘袥袗小孝鞋 袩袗袦携孝袠. 袪袗小小袦袨孝袪袝袧袠袝 袗袘小袨袥挟孝袧蝎啸 袩袝袪袝袦袝袧袧蝎啸 袧袝 袙啸袨袛袠孝 袙
袟袗袛袗效校 袛袗袧袧袨袚袨 袩袨小袨袘袠携.
袩袪袨袚袪袗袦袦袗, 袩袨袥校效袝袧袧袗携 小 袩袨袦袨些鞋挟 袣袨袦袩袠袥携笑袠袠 袙 CHAIN-肖袗袡袥, 袧袗
8 袣袠袥袨袘袗袡孝 袣袨袪袨效袝, 效袝袦 协袣袙袠袙袗袥袝袧孝袧袗携 袝袡, 袩袨袥校效袝袧袧袗携 小 袩袨袦袨些鞋挟
袣袨袦袩袠袥携笑袠袠 袙 COM-肖袗袡袥, 袧袨 小袠小孝袝袦袧蝎袡 袟袗袚袪校袟效袠袣 袧袝 袦袨袞袝孝 袟袗袚袪校袟袠孝鞋
CHAIN-肖袗袡袥 小袗袦袨小孝袨携孝袝袥鞋袧袨 袠 袩袝袪袝袛袗孝鞋 袝袦校 校袩袪袗袙袥袝袧袠袝, 袩袨小袣袨袥鞋袣校
校袣袗袟袗袧袠携 袣 袝袚袨 袟袗袚袪校袟袣袝 袧袗啸袨袛携孝小携 袙 袚袥袗袙袧袨袡 袩袪袨笑袝袛校袪袝, 袙蝎袟蝎袙袗挟些袝袡 协孝袨孝 肖袗袡袥.
袠袦袝袧袗 CHAIN-肖袗袡袥袗 袠 袚袥袗袙袧袨袡 袩袪袨笑袝袛校袪蝎 袧袝 袛袨袥袞袧蝎 袘蝎孝鞋 袨袛袠袧袗袣袨袙蝎袦袠!
EXECUTE - 袨小校些袝小孝袙袥携袝孝 袙蝎袟袨袙 袙蝎袘袪袗袧袧袨袡 袩袪袨袚袪袗袦袦蝎, 袠袦袝挟些袝袡
孝袠袩 ".COM". 袙蝎袟蝎袙袗袝袦袗携 袩袪袨袚袪袗袦袦袗 袟袗袚袪校袞袗袝孝小携 袙 袩袨袥鞋袟袨袙袗孝袝袥鞋小袣校挟
袟袨袧校 (TPA) 小 袗袛袪袝小袗 $100,袟袗袦袝些袗携 孝袗袣袠袦 袨袘袪袗袟袨袦 袙 袨袟校 袙蝎袟蝎袙袗挟些校挟
袩袪袨袚袪袗袦袦校.
袙蝎袟袨袙 袩袪袨袚袪袗袦袦蝎 袦袨袞袝孝 袨小校些袝小孝袙袥携孝鞋小携 袥袠袘袨 袠袟 袚袥袗袙袧袨袡 TURBO-袩袪袨袚袪袗袦袦蝎 小 袩袨袦袨些鞋挟 CHAIN/EXECUTE 校孝袙袝袪袞袛袝袧袠袡, 袥袠袘袨 袛袪校袚袠袦
小袩袨小袨袘袨袦, 袗 袠袦袝袧袧袨: 袠袟 TURBO 袩袨袦袝些袗袝孝小携 袙 袣袨袦袗袧袛袧校挟 小孝袪袨袣校 小 袗袛袪袝小袗 $80 袟袧袗效袝袧袠袝 $FF, 袝小袥袠 袗袣孝袠袙袠袪校袝孝小携 袣袨袦袗袧袛袗 CHAIN 袠袥袠 EXECUTE. 袩袪袠 袙蝎袟袨袙袝 袩袪袨袚袪袗袦袦, 小袣袨袦袩袠袥袠袪袨袙袗袧袧蝎啸 小 袩袨袦袨些鞋挟 TURBO, 袠袟
袛袪校袚袠啸 袧袝-孝校袪袘袨-袩袪袨袚袪袗袦袦, 小袥袝袛校袝孝 袩袨袦袧袠孝鞋, 效孝袨 袨袧袠 袩袪袠 袙蝎袟袨袙袝 袧袝
袩袝袪袝袛袗挟孝 袣袨袦袗袧袛袧校挟 小孝袪袨袣校 袙 袗袛袪袝小 $80,袩袨协孝袨袦校 袦袨袚校孝 袙袨袟袧袠袣袧校孝鞋
袧袝袩袪袝袛小袣袗袟校袝袦蝎袝 小袠孝校袗笑袠袠 袙袨 袙袪袝袦携 袙蝎袩袨袥袧袝袧袠携 孝袗袣袠啸 袩袪袨袚袪袗袦袦.
袙 小袥袝袛校挟些袝袦 袩袪袠袦袝袪袝 袩袪袨袚袪袗袦袦袗 CHTEST 袙蝎袟蝎袙袗袝孝 袩袪袨袚袪袗袦袦校
CHAIN. 袩袪袠袦袠孝袝 袙袨 袙袧袠袦袗袧袠袝, 效孝袨 袙 ASSIGN-袩袪袨笑袝袛校袪袝 袟袗袛袗袝孝小携 袩袨袥袧袨袝 袠袦携 袙蝎袟蝎袙袗袝袦袨袡 袩袪袨袚袪袗袦袦蝎.
PROGRAM CHTEST;
(*孝袝小孝袩袪袨袚袪袗袦袦袗 袛袥携 CHAIN-肖校袧袣笑袠袠 袘袝袟 袩袝袪袝袛袗效袠 袛袗袧袧蝎啸*)
VAR CHFILE:FILE;
BEGIN
ASSIGN(CHFILE,'A:CHAIN.CHN');
CLRSCR;
WRITELN('袩袪袨袚袪袗袦袦袗 1');
CHAIN(CHFILE);(*袙蝎袟袨袙 袩袪袨袚袪袗袦袦蝎 "CHAIN.CHN" 小 袛袠小袣袗 "袗"*)
END.
PROGRAM CHAIN;
BEGIN
WRITELN('袩袪袨袚袪袗袦袦袗 2')
END.
KAK 校袞袝 袚袨袙袨袪袠袥袨小鞋,肖袗袡袥 孝袠袩袗 ".CHAIN" 袧袝袩袨小袪袝袛小孝袙袝袧袧袨 袧袝
袟袗袚袪校袞袗袝孝小携 袠 袧袝 袠小袩袨袥袧携袝孝小携!, 啸袨孝携 袙 TURBO 袙袝袪小袠袠 2.00X 袠 袙袨袟袦袨袞袧袨 小 袩袨袦袨些鞋挟 CHAIN 袠 EXECUTE 袩袨小孝袪袨袝袧袠袝 袨袙袝袪袥袝袡袧蝎啸 袩袪袨袚袪袗袦袦.
1.10. 袪袗小楔袠袪袝袧袠袝 袨袩袝袪袗孝袨袪袗 CASE -袙蝎袘袨袪 袠袟.
------------------------------------------
袙 袨袩袝袪袗孝袨袪袝 CASE 袛袨袩校小袣袗袝孝小携, 袙 袣袗效袝小孝袙袝 袟袗袙袝袪楔袗挟些袝袡 袣袨袧小孝袪校袣笑袠袠, 袗袥鞋孝袝袪袧袗孝袠袙袗 "ELSE".
袩袪袠袦袝袪:
VAR A:CHAR;
....
CASE A OF
'A' :WRITE('A');
'B' :WRITE('B')
ELSE WRITE(' 袛袪校袚袗携 袘校袣袙袗.')
END;
....
1.11. 孝袠袩袠袟袠袪袨袙袗袧袧蝎袝 袣袨袧小孝袗袧孝蝎.
-------------------------------
袙 TURBO 袙袨袟袦袨袞袧袨 袟袗袛袗袧袠袝 袣袨袧小孝袗袧孝 小 校袣袗袟袗袧袠袝袦 袠啸 孝袠袩袨袙. 孝袗袣袠袝 孝袠袩袠袟袠袪袨袙袗袧袧蝎袝 袣袨袧小孝袗袧孝蝎 袦袨袞袧袨 校袩袨孝袪袝袘袥携孝鞋 袙 袩袪袨袚袪袗袦袦袗啸
袠袥袠, 袣袗袣 袧袨袪袦袗袥鞋袧蝎袝 袣袨袧小孝袗袧孝蝎, 袠袥袠, 袣袗袣 袩袝袪袝袦袝袧袧蝎袝. 孝袠袩袠袟袠袪袨袙袗袧袧蝎袝
袣袨袧小孝袗袧孝蝎, 袣 孝袨袦校 袞袝, 袪袗袟袪袝楔袗袝孝小携 袩袪袝袨袘袪袗袟袨袙蝎袙袗孝鞋 袙 袩袝袪袝袦袝袧袧蝎袝.
袩袪袠袦袝袪: CONST A:INTEGER=104;
B:REAL=12.1234;
C:STRING[20]='协孝袨 - 孝袝袣小孝';
2.小孝袗袧袛袗袪孝袧蝎袝 孝袝袣小孝袨袙蝎袝 肖袗袡袥蝎.
-------------------------------
袙 袣袨袩袠袥携孝袨袪袝 袨袩袪袝袛袝袥袝袧蝎 小孝袗袧袛袗袪孝袧蝎袝 肖袗袡袥蝎 孝袠袩袗 "TEXT":
INPUT 袠 OUTPUT. 袣袗袞袛袨袝 袨袘袪袗些袝袧袠袝 袣 小孝袗袧袛袗袪孝袧蝎袦 袩袪袨笑袝袛校袪袗袦 袨袘袦袝袧袗 READ/READLN 袠袥袠 WRITE/ WRITELN 校小孝袗袧袗袙袥袠袙袗袝孝 小袙携袟鞋 小 协孝袠袦袠
肖袗袡袥袗袦袠.
小袨 小孝袗袧袛袗袪孝袗袦袠 肖袗袡袥袗袦袠 INPUT 袠 OUTPUT 小袙携袟袗袧蝎 袥袨袚袠效袝小袣袠
校小孝袪袨袡小孝袙袗 CON-袣袨袧小袨袥鞋 袠 TRM-孝袝袪袦袠袧袗袥.
袛袥携 协孝袠啸 肖袗袡袥袨袙, 袙袨袨袘些袝, 袩袪袠袦袝袧袝袧袠袝 袩袪袨笑袝袛校袪 ASSIGN, RESET,REWRITE 袠 CLOSE - 袟袗袩袪袝些袝袧袨. 校袩袪袗袙袥袝袧袠袝 协孝袠袦袠 肖袗袡袥袗袦袠 袩袪袨袠袟袙袨袛袠孝小携 效袝袪袝袟 袨袘袪袗些袝袧袠袝 袣 袠啸 袠袦袝袧袗袦 袙 袩袪袨笑袝袛校袪袗啸 袙袙袨袛袗/袙蝎袙袨袛袗
袩校孝袝袦 校袣袗袟袗袧袠携 小袩袝笑袠袗袥鞋袧蝎啸 袩袗袪袗袦袝孝袪袨袙 袙 READ/READLN 袠袥袠 WRITE/WRITELN. 协孝袠 袩袗袪袗袦袝孝袪蝎 袙袣袥挟效袗挟孝小携 袙 袧袗效袗袥袨 小袩袠小袣袗 袙袙袨袛袗/袙蝎袙袨袛袗 袠 袨孝袛袝袥携挟孝小携 袨孝 袧袝袚袨 袟袗袩携孝袨袡.
袩袪袠袦袝袪:
WRITE(LST,'孝袝袣小孝 袛袥携 袩袝效袗孝袠'); (*袙蝎袙袨袛袠孝 孝袝袣小孝 袧袗 袩袪袠袧孝袝袪*)
READLN(KBD,PASSWORD); (*袙袙袨袛 袩袝袪袝袦袝袧袧袨袡 PASSWORD(袩袗袪袨袥鞋) 袘袝袟
袠袟袨袘袪袗袞袝袧袠携 袝袝 袧袗 袛袠小袩袥袝袝*)
袩袪袠袦袝袧携挟孝小携 小袥袝袛校挟些袠袝 校袩袪袗袙袥携挟些袠袝 袩袗袪袗袦袝孝袪蝎:
INPUT -CON 袠袥袠 TRM 袧袗袟袧袗效袗挟孝小携.(袩袝袪袙袨袧袗效袗袥鞋袧袨 袙啸袨袛袧袨袡 肖袗袡袥)
OUTPUT -CON 袠袥袠 TRM 袧袗袟袧袗效袗挟孝小携.(袩袝袪袙袨袧袗效袗袥鞋袧袨 袙蝎啸袨袛袧袨袡 肖袗袡袥)
CON -CON 袧袗袟袧袗效袗袝孝小携.
TRM -TRM 袧袗袟袧袗效袗袝孝小携.
KBD -袧袗袟袧袗效袗袝孝 袙袙袨袛 袛袗袧袧蝎啸 小 袣袥袗袙袠袗孝校袪蝎 袘袝袟 袠啸 协啸袨袠袟袨袘袪袗袞袝袧袠携
袧袗 协袣袪袗袧袝. 袛袥携 袙蝎袙袨袛袗 袛袗袧袧蝎啸-袧袝 袩袪袠袦袝袧袠袦袨.
AUX -AUX 袧袗袟袧袗效袗袝孝小携. 袙袙袨袛/袙蝎袙袨袛 袛袗袧袧蝎啸 袙袨袟袦袨袞袝袧 效袝袪袝袟 小孝袗袧袛袗袪孝袧蝎袡 袩袨小袥袝袛袨袙袗孝袝袥鞋袧蝎袡 袣袗袧袗袥, 袣袨孝袨袪蝎袡 袨袘小袥校袞袠袙袗袝孝小携 袨袩袝袪袗笑袠袨袧袧袨袡 小袠小孝袝袦袨袡. 袝小袥袠 袙 袨袩袝袪袗笑袠袨袧袧袨袡 小袠小孝袝袦袝 孝袗袣袨袡 袣袗袧袗袥 袧袝 袩袪袝袛校小袦袨孝袪袝袧 - 袩袗袪袗袦袝孝袪 袧袝 袪袗袘袨孝袗袝孝.
LST -袙 袣袗效袝小孝袙袝 校小孝袪袨袡小孝袙袗 袙蝎袙袨袛袗 袧袗袟袧袗效袗袝孝小携 袩袪袠袧孝袝袪.
USR -袨袩袪袝袛袝袥携挟孝小携 袨袩袝袪袗笑袠袠 小 肖袗袡袥袗袦袠 袠袧袛袠袙袠袛校袗袥鞋袧蝎啸 袩袨袥鞋袟袨袙袗孝袝袥袝袡.
袩袪袨笑袝袛校袪蝎 SEEK 袠 FLUSH, 袪袗袙袧袨 袣袗袣 袠 肖校袧袣笑袠袠 FILEPOS 袠 FILE
SIZE - 袧袝 袩袪袠袦袝袧袠袦蝎 袣 小孝袗袧袛袗袪孝袧蝎袦 肖袗袡袥袗袦 孝袠袩袗 TEXT.
袩袪袠 袠小袩袨袥鞋袟袨袙袗袧袠袠 肖校袧袣笑袠袡 EOLN (END OF LINE-K袨袧袝笑 小孝袪袨袣袠)
袠 袝OF(END OF FILE-袣袨袧袝笑 肖袗袡袥袗) 小袥袝袛校袝孝 袩袪袠袧携孝鞋 袙袨 袙袧袠袦袗袧袠袝, 效孝袨
袨袧袠 袩袪袨袙袝袪携挟孝 袧袗 袨袣袨袧效袗袧袠袝 小孝袪袨袣校 袠袥袠 肖袗袡袥 袩校孝袝袦 袩袪袨袙袝袪袣袠 袧袗袥袠效袠携 袧袝袣袨孝袨袪袨袚袨 小袠袦袙袨袥袗 (袗 袠袦袝袧袧袨: 小袠袦袙袨袥袗 袙袨袟袙袪袗孝袗 袣袗袪袝孝袣袠 -$0D
袠袥袠 ^袦) 袟袗 袩袨小袥袝袛袧袠袦 袟袧袗效袗些袠袦 袥袨袚袠效袝小袣袠 小袠袦袙袨袥袨袦 肖袗袡袥袗 袠袥袠
小孝袪袨袣袠, 袩袨协孝袨袦校 袩袪袠 袙袙袨袛袝/袙蝎袙袨袛袝 小袗袦袠 小袠袦袙袨袥蝎 袣袨袧笑袗 肖袗袡袥袗 袠袥袠
袣袨袧笑袗 小孝袪袨袣袠 袧袗/小 校小孝袪袨袡小孝袙袗 袙袙袨袛袗/袙蝎袙袨袛袗 袧袝 效袠孝袗挟孝小携!
2.1. 袟袗袛袗袧袠袝 肖袨袪袦袗孝袧袨袚袨 袙蝎袙袨袛袗 袙 袩袪袨笑袝袛校袪袗啸 WRITE/WRITELN.
----------------------------------------------------------
袩袪袠 袨袘袪袗些袝袧袠袠 小 孝袝袣小孝袨袙蝎袦袠 肖袗袡袥袗袦袠 袙袨袟袦袨袞袧袨 袟袗袛袗袧袠袝 肖袨袪袦袗孝袨袙. 肖袨袪袦袗孝 袟袗袛袗袧袠携 肖袨袪袦袗孝袗:
WRITE(F,E) 袩袗袪袗袦袝孝袪 VAR F:TXT;
E:楔袗袘袥袨袧,袠袦袝挟些袠袡 肖袨袪袦校 E:N 袠袥袠 E:N:M,
袚袛袝 N 袠 M-笑袝袥蝎袝 效袠小袥袗.
E :CHAR 袩袨小袥袝 N-1 袩袪袨袘袝袥袨袙 袙蝎袙袨袛袠孝小携 小袠袦袙袨袥;
E :STRING 小孝袪袨袣袗 袝 袪袗袙袧携袝孝小携 袩袨 袩袪袗袙袨袦校 袣袪袗挟 楔袗袘袥袨袧袗, 袟袗袛袗袧袧袨袚袨
N 袟袧袗袣袨袦袝小孝袗袦袠.
E :BOOLEAN TRUE 袠袥袠 FALSE 袪袗袙袧携挟孝小携 袩袨 袩袪袗袙袨袦校 袣袪袗挟 楔袗袘袥袨袧袗 袠袟
N 袟袧袗袣袨袦袝小孝.
E :INTEGER 袟袧袗效袝袧袠袝 袝 袩袝袪袝袙袨袛袠孝小携 袙 袛袝小携孝袠效袧校挟 肖袨袪袦校 袠 袪袗袙袧携袝孝-
小携 袩袨 袩袪袗袙袨袦校 袣袪袗挟 楔袗袘袥袨袧袗 袠袟 N 袟袧袗袣袨袦袝小孝.
E :REAL 袟袧袗效袝袧袠袝 袝 袩袝袪袝袙袨袛袠孝小携 袙 袛袝小携孝袠效袧校挟 肖袨袪袦校 袠 袠袟袨袘袪袗袞袗袝孝-
小携 小 袙蝎袪袗袙袧袠袙袗袧袠袝袦 袩袨 袩袪袗袙袨袦校 袣袪袗挟 楔袗袘袥袨袧袗 袠袟 N
袟袧袗袣袨袦袝小孝 小 M 袛袝小携孝袠效袧蝎袦袠 袟袧袗袣袗袦袠 袩袨小袥袝 孝袨效袣袠. 袝小袥袠 袩袗袪袗袦袝孝袪 M 袧袝 袟袗袛袗袧, 孝袨 袙袝些袝小孝袙袝袧袧袨袝
效袠小袥袨 袙蝎袙袨袛袠孝小携 袙 袥袨袚袗袪袠肖袦袠效袝小袣袨袡 肖袨袪袦袝 小 N
袟袧袗袣袗袦袠.
袧袝袩袪袗袙袠袥鞋袧袨袝 袟袗袛袗袧袠袝 袩袗袪袗袦袝孝袪袨袙 肖袨袪袦袗孝袠袪袨袙袗袧袠携 袣袥袗小小袠肖袠笑袠袪校袝孝小携 袣袨袦袩袠袥携孝袨袪袨袦, 袣袗袣 小袠袧孝袗袣小袠效袝小袣袗携 袨楔袠袘袣袗.
袩袪袠 袟袗袛袗袧袠袠 WRITELN 袘袝袟 小袩袠小袣袗 袩袝袪袝袦袝袧袧蝎啸 袩袪袨袠袟袙袨袛袠孝小携 袙蝎袙袨袛
袩校小孝袨袡 小孝袪袨袣袠 (袩袝袪袝袙袨袛 小孝袪袨袣袠).
3. 小校袞袝袧袠携 TURBO 袩袨 小袪袗袙袧袝袧袠挟 小袨 小孝袗袧袛袗袪孝袧蝎袦 袩袗小袣袗袥袝袦.
------------------------------------------------------
袙 TURBO 袩袪袨孝袠袙 小孝袗袧袛袗袪孝袧袨袚袨 袩袗小袣袗袥携 小校些袝小孝袙校挟孝 小袥袝袛校挟些袠袝
小校袞袝袧袠携:
袩袪袨笑袝袛校袪蝎 PUT 袠 GET 袧袝 袙袣袥挟效袝袧蝎 袙 孝袪袗袧小袥携孝袨袪: 袨袘袪袗些袝袧袠袝 小 袛袗袧袧蝎袦袠 袩袪袨袠袟袙袨袛袠孝小携 小 袩袨袦袨些鞋挟 袩袪袨笑袝袛校袪 WRITE/WRITELN 袠 READ/READLN, 袣袨孝袨袪蝎袝 袠袦袝挟孝小携 袠 袙 小孝袗袧袛袗袪孝袧袨袦 袩袗小袣袗袥袝.
袘袝袟校小袥袨袙袧蝎袡 袩袝袪袝啸袨袛 袠袟 袩袪袨笑袝袛校袪袧袨袚袨 袘袥袨袣袗 袙袨 袙袧袝 袧袝 袪袗袟袪袝楔袝袧.
PAGE, 袣袗袣 小孝袗袧袛袗袪孝袧袗携 袩袪袨笑袝袛校袪袙 袧袝 袙袣袥挟效袝袧袗 袙 孝袪袗袧小袥携孝袨袪. 袛袥携
袨效袠小孝袣袠 协袣袪袗袧袗 袩袪袠袦袝袧携袝孝小携 袣袨袦袗袧袛袗 CLRSCR 袠袥袠 WRITE(#12).
PACKED 啸袨孝携 袠 袙袣袥挟效袝袧袨 袙 小袩袠小袨袣 袣袥挟效袝袙蝎啸 小袥袨袙 袠 袣袨袦袩袠袥携孝袨袪 协孝袨
小袥袨袙袨 "袩袨袧袠袦袗袝孝" ,袧袨 袛袝袡小孝袙袠袡 袧袠袣袗袣袠啸 袧袝 袩袪袨袠袟袙袨袛袠孝. 袩袪袨笑袝袛校袪蝎
PACK 袠 UNPACK 袙 小袙携袟袠 小 协孝袠袦 - 袧袝 袙袣袥挟效袝袧蝎 袙 孝袪袗袧小袥携孝袨袪.
袩袪袨笑袝袛校袪蝎 袠 肖校袧袣笑袠袠 袧袝 袦袨袚校孝 袩袝袪袝袛袗袙袗孝鞋小携 袩袗袪袗袦袝孝袪袗袦袠 袙 袛袪校袚袠袝
袩袪袨笑袝袛校袪蝎 袠 肖校袧袣笑袠袠.
袙 袩袪袨笑袝袛校袪袝 NEW 袧袝袥鞋袟携 袟袗袛袗袙袗孝鞋 小孝袪校袣孝校袪校 袟袗袩袠小袝袡 小 袙袗袪袠袗袧孝袗袦袠. 协孝袨 袠小袣袥挟效袝袧袠袝 袦袨袞袧袨 袨袘袨袡孝袠 袩校孝袝袦 袨袘袪袗些袝袧袠携 袣 袩袪袨笑袝袛校袪袝 GET-
MEM.
袙 袪袝袣校袪小袠袙袧蝎啸 袩袪袨笑袝袛校袪袗啸 袧袝 袛袨袩校小袣袗挟孝小携 袥袨袣袗袥鞋袧蝎袝 袩袝袪袝袦袝袧袧蝎袝 袙
袣袗效袝小孝袙袝 袩袗袪袗袦袝孝袪袨袙.
小袠袙袧蝎啸 袩袪袨笑袝袛校袪袗啸 袧袝 袛袨袩校小袣袗挟孝小携 袥袨袣袗袥鞋袧蝎袝 袩袝袪袝袦袝袧袧蝎袝 袙
袣袗效袝小孝袙袝 袩袗袪袗袦袝孝袪袨袙.
********************************************************
袪校袣袨袙袨袛小孝袙袨 袩袨袥鞋袟袨袙袗孝袝袥携
校袣袗袟袗孝袝袥袠 袠 袛袠袧袗袦袠效袝小袣袠袝 袨袩袝袪袗笑袠袠 小 袩袗袦携孝鞋挟
1. 校KA袟袗孝袝袥鞋 (POINTER).
-----------------------
孝袠袩 "校袣袗袟袗孝袝袥鞋" 袨袩袪袝袛袝袥携袝孝小携 袩校孝袝袦 袟袗袛袗袧袠携 袟袧袗袣袗 ^(小孝袪袝袥袣袗
袙袙袝袪啸) 小孝袗袙携些袝袚袨小携 袩袝袪袝袛 袠袦袝袧袝袦 孝袠袩袗 袩袨小袥袝 袟袧袗袣袗 = 袙 袨袩袪袝袛袝袥袠孝袝袥袝 孝袠袩袗, 袧袗袩袪袠袦袝袪: TYPE CONNECTION =^DATASTRING;.
孝袠袩 "校袣袗袟袗孝袝袥鞋" 袨袩袪袝袛袝袥携袝孝 袛袠袧袗袦袠效袝小袣袠袝 袩袝袪袝袦袝袧袧蝎袝, 孝袨
袝小孝鞋, 袩袝袪袝袦袝袧袧袗携 (袩袝袪袝袦袝袧袧蝎袝), 袨袘'携袙袥袝袧袧蝎袝 袙 袩袪袨袚袪袗袦袦袝 小 孝袠袩袨袦
"校袣袗袟袗孝袝袥鞋" 袦袨袚校孝 袟袗袧袠袦袗孝鞋 袩袗袦携孝鞋 袙 袨袟校 袛袠袧袗袦袠效袝小袣袠, 袘袝袟 袩袪袝袛袙袗袪袠孝袝袥鞋袧袨袚袨 校袣袗袟袗袧袠携 肖袗袣孝袠效袝小袣袠啸 袚袪袗袧袠笑 袩袝袪袝袦袝袧袧袨袡, 袣袗袣 协孝袨 袠袦袝袝孝
袦袝小孝袨, 袣 袩袪袠袦袝袪校, 袙 小袥校效袗袝 袨袘'携袙袥袝袧袠携 小孝袗孝袠效袝小袣袨袚袨 袦袗小小袠袙袗.
袩袨小袥袝 孝袨袚袨, 袣袗袣 袩袝袪袝袦袝袧袧袗携 小孝袗袧袨袙袠孝小携 袧袝袧校袞袧袨袡, 袨袘袥袗小孝鞋, 袟袗袧袠袦袗袝袦袗携 袝袡 袦袨袞袝孝 袘蝎孝鞋 袨小袙袨袘袨袞袛袝袧袗 小 袩袨袦袨些鞋挟 小孝袗袧袛袗袪孝袧袨袡 袩袪袨笑袝袛校袪蝎 DISPOSE (<袠袦携 袛袠袧袗袦袠效袝小袣袨袡 袩袝袪袝袦袝袧袧袨袡>);
袩袝袪袝袦袝袧袧蝎袝, 袠袦袝挟些袠袝 孝袠袩 "校袣袗袟袗孝袝袥鞋" 袦袨袞袧袨 小袪袗袙袧袠袙袗孝鞋 小 袩袨袦袨些鞋挟 袨袩袝袪袗笑袠袡 = < >. 袪袝袟校袥鞋孝袗孝袝 小袪袗袙袧袝袧袠携 袠袦袝袝孝 孝袠袩 BOOLE-AN, 孝袗袣袞袝, 袣袗袣 袠 袩袪袠 小袪袗袙袧袝袧袠袠 袧袝袛袠袧袗袦袠效袝小袣袠啸 袩袝袪袝袦袝袧袧蝎啸.
袛袪校袚袠袝 袩袪携袦蝎袝 袨袩袝袪袗笑袠袠 小 校袣袗袟袗孝袝袥携袦袠 袟袗袩袪袝些袝袧蝎.
小孝袗袧袛袗袪孝袧袨袝 袟袧袗效袝袧袠袝 校袣袗袟袗孝袝袥携 "NIL" 袦袨袞袝孝 袘蝎孝鞋 袛袗袧袨 袥挟袘袨袦校
校袣袗袟袗孝袝袥挟."NIL" 袨袟袧袗效袗袝孝 袧校袥袝袙袨袝 袟袧袗效袝袧袠袝 袛袠袧袗袦袠效袝小袣袨袡 袩袝袪袝袦袝袧袧袨袡.
啸袨孝携 袩袗袦携孝鞋 袩袨袛 袛袠袧袗袦袠效袝小袣袠袝 袩袝袪袝袦袝袧袧蝎袝 袙蝎袛袝袥携袝孝小携 孝袪袗袧小袥携孝袨袪袨袦 袗袙孝袨袦袗孝袠效袝小袣袠 袙袨 袙袪袝袦携 袙蝎袩袨袥袧袝袧袠携 袩袪袨袚袪袗袦袦蝎, 袩袪袠 袨袩袪袝袛袝袥袝袧袠袠 校袣袗袟袗孝袝袥携 袧袝袨袘啸袨袛袠袦袨 袨袩袠小袗孝鞋 袨袘袥袗小孝鞋 袩袗袦携孝袠, 袛袨小孝袗孝袨效袧校挟
袛袥携 孝袨袚袨, 效孝袨袘蝎 袙 袧袝袝 袦袨袞袧袨 袘蝎袥袨 袩袨袦袝小孝袠孝鞋 袨袛袧校 袩袝袪袝袦袝袧袧校挟 袛袗袧袧袨袚袨 孝袠袩袗. 协孝袗 袩袝袪袝袦袝袧袧袗携 袦袨袞袝孝 袠袦袝孝鞋 袣袗袣 袩袪袨小孝袨袡, 孝袗袣 袠 袩袝袪袝效袠小袥袠袦蝎袡 袠袥袠 小孝袪校袣孝校袪袠袪袨袙袗袧袧蝎袡 孝袠袩.
小 袩袨袦袨些鞋挟 校袣袗袟袗孝袝袥袝袡 袦袨袞袧袨 袨袪袚袗袧袠袟袨袙蝎袙袗孝鞋 小袙携袟袗袧袧蝎袝(笑袝袩袨效袧蝎袝)袛袠袧袗袦袠效袝小袣袠袝 小孝袪校袣孝校袪蝎. 袛袥携 协孝袨袚袨
袩袝袪袝袦袝袧袧袗携, 袧袗 袣袨孝袨袪校挟 小小蝎袥袗袝孝小携 校袣袗袟袗孝袝袥鞋, 袛袨袥袞袧袗 袠袦袝孝鞋 孝袠袩 袟袗袩袠小袠 (RECORD),袨袛袧袨 袠袟 袩袨袥袝袡
袣袨孝袨袪袨袡 小袨袛袝袪袞袠孝 小小蝎袥袣校 袧袗 校袣袗袟袗孝袝袥鞋.
袩袪袠袦袝袪 袨袩袪袝袛袝袥袝袧袠携 校袣袗袟袗孝袝袥携:
TYPE PERSONPOINTER =^PERSON;
PERSON = RECORD
NAME :STRING[50];(*袩袨袥袝 袠袦袝袧袠 袥袠效袧袨小孝袠*)
SPECIALITY :STRING[50]; (*袩袨袥袝 袩袨肖袝小小袠袠 *)
NEXTPERSON :PERSONPOINTER;(*袩袨袥袝 袛袥携 小小蝎袥袣袠
袧袗 小袥袝袛校挟些校挟 袟袗袩袠小鞋*)
END;
VAR
FIRSTPERSON,LASTPERSON,NEWPERSON:PERSONPOINTER;
袨袩袪袝袛袝袥袝袧袧蝎袝 袟袛袝小鞋 袩袝袪袝袦袝袧袧蝎袝 袠袦袝挟孝 孝袠袩 校袣袗袟袗孝袝袥袝袡 (POINTER).袨袧袠 校袣袗袟蝎袙袗挟孝 袧袗 袟袗袩袠小鞋, 袠袦袝挟些校挟 孝袠袩 PERSON. 校袩袨孝袪袝袘袥携孝鞋
袩袝袪袝袦袝袧袧校挟 孝袠袩袗 "校袣袗袟袗孝袝袥鞋 袧袗 孝袠袩" 袙 袙蝎袪袗袞袝袧袠携啸, 袚袛袝 孝袪袝袘校袝孝小携
袧袝 小小蝎袥袨效袧袗携 袩袝袪袝袦袝袧袧袗携 袦袨袞袧袨 孝袨袥鞋袣袨 袩袨小袥袝 袝袝 袪袗袟蝎袦袝袧袨袙袗袧袠携 小
袩袨袦袨些鞋挟 袨袩袝袪袗孝袨袪袗 ^ ,袩袨袦袝些袗袝袦袨袚袨 袩袨小袥袝 袠袦袝袧袠 小袨袨孝袙袝孝小孝袙校挟些袝袡
袩袝袪袝袦袝袧袧袨袡. 袙 协孝袨袦 小袥校效袗袝 袩袝袪袝袦袝袧袧袗携 孝袠袩袗 "校袣袗袟袗孝袝袥鞋" 袩袪袠袨袘袪袝孝袗袝孝 孝袨孝 孝袠袩, 袣袨孝袨袪蝎袡 校袣袗袟袗袧 袙 小小蝎袥袣袝, 袗 袧袝 孝袠袩 校袣袗袟袗孝袝袥携.
袧袗袩袪袠袦袝袪, 袝小袥袠 袨袩袠小袗袧袗 袩袪袨笑袝袛校袪袗 效孝袝袧袠携 袟袗袩袠小袠 GETRECORD 小
肖袨袪袦袗袥鞋袧蝎袦 袩袗袪袗袦袝孝袪袨袦, 袠袦袝挟些袠袦 孝袠袩 PERSON, 孝袨 袛袥携 效孝袝袧袠携 袟袗袩袠小袠
袨孝袣校袛袗 袥袠袘袨 小 袩袨袦袨些鞋挟 袩袨笑袝袛校袪蝎 GETRECORD (KO孝袨袪校挟 小袥袝袛校袝孝 袨袩袠小袗孝鞋 袪袗袧袝袝)袙 袨袘袥袗小孝鞋 袩袗袦携孝袠, 袧袗 袣袨孝袨袪校挟 袛袠袧袗袦袠效袝小袣袠 校袣袗袟蝎袙袗袝孝
孝袠袩 PERSONPOINTER, 袧校袞袧袨 袧袗袩袠小袗孝鞋 小袥袝袛校挟些袝袝: NEW(FIRSTPERSON);
(*袩袨袥校效袝袧袠袝 小小蝎袥袣袠 袧袗 袨袘袥袗小孝鞋 袩袗袦携孝袠, 袠小袩袨袥鞋袟校袝袦校挟
袛袥携 啸袪袗袧袝袧袠携 袩袝袪袝袦袝袧袧袨袡 FIRSTPERSON*)
GETRECORD(FIRSTPERSON^);(*袟袗袩袠小鞋 袙 协孝校 袨袘袥袗小孝鞋 袩袗袦携孝袠 袟袗袩袠小袠
孝袠袩袗 PERSON 袩袨 小小蝎袥袣袝 袧袗 袠袦携 FIRSTPER-SON*)
袟袛袝小鞋 小孝袗袧袛袗袪孝袧袗携 袩袪袨笑袝袛校袪袗 NEW, 袩袗袪袗袦袝孝袪袨袦 袣袨孝袨袪袨袡 袛袨袥袞袧袗
袘蝎孝鞋 袩袝袪袝袦袝袧袧袗携, 袠袦袝挟些袗携 孝袠袩 校袣袗袟袗孝袝袥携, 袙蝎袛袝袥携袝孝 袙 袨袟校 袛袠袧袗袦袠效袝小袣袠 袨袘袥袗小孝鞋 袩袗袦携孝袠 袛袨小孝袗孝袨效袧校挟 袛袥携 啸袪袗袧袝袧袠携 袨袛袧袨袡 袟袗袩袠小袠 孝袠袩袗
,袧袗 袣袨孝袨袪蝎袡 小小蝎袥袗袝孝小携 校袣袗袟袗孝袝袥鞋.
袛袪校袚袨袡 袙袨袟袦袨袞袧袨小孝鞋挟 袛袠袧袗袦袠效袝小袣袨袚袨 袙蝎袛袝袥袝袧袠携 袨袘袥袗小孝袠 袩袗袦携孝袠
袛袥携 啸袪袗袧袝袧袠携 袩袝袪袝袦袝袧袧蝎啸, 袧袗 袣袨孝袨袪校挟 小小蝎袥袗袝孝小携 校袣袗袟袗孝袝袥鞋, 携袙袥携袝孝小携
校袩袨孝袪袝袘袥袝袧袠袝 小孝袗袧袛袗袪孝袧袨袡 袩袪袨笑袝袛校袪蝎 GETMEM 袙袦袝小孝袨 NEW.
协孝袨 袩袪袨笑袝袛校袪袗 袠袦袝袝孝 袩袗袪袗袦袝孝袪蝎 <袩袝袪袝袦袝袧袧袗携_孝袠袩袗_校袣袗袟袗孝袝袥鞋> 袠
<笑袝袥袨袝 效袠小袥袨>.袩袝袪袙蝎袡 袩袗袪袗袦袝孝袪 袛袨袥袞袝袧 袠袦袝孝鞋 孝袠袩 校袣袗袟袗孝袝袥携 袧袗 袧袝袣袨孝袨袪校挟 袨袘袥袗小孝鞋 袩袗袦携孝袠, 袙孝袨袪袨袡-袧袗袟袧袗效袗袝孝
袛袥携 袛袠袧袗袦袠效袝小袣袨袡 袩袝袪袝袦袝袧袧袨袡 孝袪袝袘校袝袦蝎袡 袪袗袟袦袝袪 袨袩袝袪袗孝袠袙袧袨袡 袩袗袦携孝袠 袙 袘袗袡孝袗啸:孝袗袣袠袦 袨袘袪袗袟袨袦 袩袪袠 校袩袨孝袪袝袘袥袝袧袠袠 袩袪袨笑袝袛校袪蝎 GETMEM 袨袩袪袝袛袝袥袝袧袠袝 袪袗袟袦袝袪袗 袩袗袦携孝袠, 袟袗袧袠袦袗袝袦袨袚袨 袛袠袧袗袦袠效袝小袣袨袡 袩袝袪袝袦袝袧袧袨袡 袥袝袞袠孝 袧袗 袩袪袨袚袪袗袦袦袠小孝袝, 袩袪袠 校袩袨孝袪袝袘袥袝袧袠袠 袩袪袨笑袝袛校袪蝎 NEW, 协孝校
袨袩袝袪袗笑袠挟 袙蝎袩袨袥袧携袝孝 孝袪袗袧小袥携孝袨袪 袗袙孝袨袦袗孝袠效袝小袣袠 啸袨孝携, 袙袨袟袦袨袞袧袨, 袠 袧袝 小袗袦蝎袦 袨袩孝袠袦袗袥鞋袧蝎袦 袨袘袪袗袟袨袦.
袛袠袧袗袦袠效袝小袣袨携 袩袝袪袝袦袝袧袧袗携, 袪袗袟袦袝袪 袣袨孝袨袪袨袡 校袣袗袟蝎袙袗袝孝小携, 袩袨袦袝些袗袝孝小携 袙 袨袘袥袗小孝袠 袩袗袦携孝袠 孝袪袗袧小袥携孝袨袪袗, 袧袗袟蝎袙袗袝袦袨袡 "袣校效袝袡" (HEEP)."袣校效袗" 袪袗小袩袨袥袗袚袗袝孝小携 袙 袨袟校, 袧袗效袠袧袗携 小 袩袝袪袙袨袚袨 小袙袨袘袨袛袧袨袚袨
袘袗袡孝袗 (袟袧袗效袠孝 袟袗 袩袪袨袚袪袗袦袦袧蝎袦 孝袝袣小孝袨袦) 袠 袩袪袨小孝袠袪袗袝孝小携 袛袨 袘袗袡孝袗 小
袧袗袠袙蝎小楔袠袦 袗袛袪袝小袨袦 (袛袥携 袙袨小鞋袦袠袘袠孝袨袙蝎啸 袩袪袨笑袝小小袨袪袨袙 协孝袨孝 袗袛袪袝小 袪袗袙袝袧 $FFFF ).
孝袪袗袧小袥携孝袨袪 TURBO 校袩袪袗袙袥携袝孝 "袣校效袝袡" 小 袩袨袦袨些鞋挟 袟袧袗效袝袧袠携 孝袗袣
袧袗袟蝎袙袗袝袦袨袚袨 校袣袗袟袗孝袝袥携 "袣校效袠" (HEEPPOINTER),袣袨孝袨袪蝎袡 小孝袗袙袠孝小携 袙
袧袗效袗袥袨 袩袪袨袚袪袗袦袦蝎 袠 校袣袗袟蝎袙袗袝孝 袧袗 袩袝袪袙蝎袡 小袙袨袘袨袛袧蝎袡 袙 "袣校效袝" 袗袛袪袝小.
袩袪袠 袣袗袞袛袨袦 校袩袨孝袪袝袘袥袝袧袠袠 NEW 袠袥袠 GETMEM 校袣袗袟袗孝袝袥鞋 "袣校效袠" 袘校袛袝孝 袗袙孝袨袦袗孝袠效袝小袣袠 (袙 小袥校效袗袝 校袩袨孝袪袝袘袥袝袧袠携 NEW) , 袠袥袠 "袙袪校效袧校挟"(袙
小袥校效袗袝 袠小袩袨袥鞋袟袨袙袗袧袠携 GETMEM) 校小孝袗袧袗袙袥袠袙袗孝鞋小携 袧袗 袧袨袙蝎袡 袩袝袪袙蝎袡 小袙袨袘袨袛袧蝎袡 袙 "袣校效袝" 袘袗袡孝.
小孝袗袧袛袗袪孝袧袗携 肖校袧袣笑袠携 袦袝袦AVAIL (MEMORY AVAILABLE-袛袨小孝校袩袧袗携 袩袗袦携孝鞋) 袙袨袟袙袪袗些袗袝孝 笑袝袥袨袝 袟袧袗效袝袧袠袝 袪袗袟袦袝袪袗 "袣校效袠" 袙 袘袗袡孝袗啸, 小袙袨袘袨袛袧袨袡 袣 袛袗袧袧袨袦校 袦袨袦袝袧孝校.肖校袧袣笑袠携 袧袝 袠袦袝袝孝 袩袗袪袗袦袝孝袪袨袙.
小孝袗袧袛袗袪孝袧袗携 肖校袧袣笑袠携 MAXAVAL (MAXIMUM AVALABLE-MA袣小袠袦袗袥鞋袧袨
袛袨小孝校袩袧蝎袡) 袙袨袟袙袪袗些袗袝孝 笑袝袥袨袝 袟袧袗效袝袧袠袝 袪袗袙袧袨袝 袦袗袣小袠袦袗袥鞋袧袨袦校 袪袗袟袦袝袪校 袣校效袠,袧袗袟袧袗效袝袧袧袨袡 孝袪袗袧小袥携孝袨袪袨袦 袙 袛袗袧袧袨袡 袩袪袨袚袪袗袦袦袝, 袩袨小袣袨袥鞋袣校
袪袗袟袦袝袪 "袣校效袠" 袟袗袙袠小袠孝 袠 袨孝 袛袥袠袧蝎 袩袪袨袚袪袗袦袦蝎: 效袝袦 袘袨袥鞋楔袝 袦袝小孝袗 袙
袨袟校 袟袗袧袠袦袗袝孝 孝袝袣小孝 袩袪袨袚袪袗袦袦蝎, 孝袝袦 袦袝袧鞋楔袝 袨小孝袗袝孝小携 袩袗袦携孝袠 袛袥携
袩袝袪袝袦袝袧袧蝎啸 袩袪袨袚袪袗袦袦蝎-"袣校效袠".
小孝袗袧袛袗袪孝袧蝎袝 肖校袧袣笑袠袠 ORD (ORDER -袩袨袪携袛袨袣) 袠 PTR (POINTER-校袣袗袟袗孝袝袥鞋) 小袥校袞袗孝
袛袥携 袙袟袗袠袦袧袨袚袨 袩袪袝袨袘袪袗袟袨袙袗袧袠携 校袣袗袟袗孝袝袥袝袡 袙 笑袝袥袨效袠小袥袝袧袧蝎袝 袩袝袪袝袦袝袧袧蝎袝 袠 袨袘袪袗孝袧袨.
ORD(<POINTER>)-袙袨袟袙袪袗些袗袝孝 笑袝袥袨袝 袟袧袗效袝袧袠袝 小袨袛袝袪袞袗些袝袚袨小携 袙
校袣袗袟袗孝袝袥袝 袗袛袪袝小袗.
PTR(<笑袝袥袨效袠小袥袝袧袧袗携 袩袝袪袝袦袝袧袧袗携>)-袩袪袝袨袘袪袗袟校袝孝 笑袝袥袨效袠小袥袝袧袧校挟
袩袝袪袝袦袝袧袧校挟 袙 校袣袗袟袗孝袝袥鞋, 袣袨孝袨袪蝎袡 袠小袩袨袥鞋袟校袝孝 协孝校 袩袝袪袝袦袝袧袧校挟 袙 袣袗效袝小孝袙袝 袗袛袪袝小袗.
袨小袙袨袘袨袞袛袝袧袠袝 袛袠袧袗袦袠效袝小袣袠 袟袗袧携孝袨袡 袩袗袦携孝袠, 袣袗袣 校袞袝 袚袨袙袨袪袠袥袨小鞋
袙蝎楔袝, 袦袨袞袝孝 袨小校些袝小孝袙袥携孝鞋小携 小 袩袨袦袨些鞋挟 小孝袗袧袛袗袪孝袧袨袡 袩袪袨笑袝袛校袪蝎 DIS-POSE, 袩袗袪袗袦袝孝袪袨袦 袣袨孝袨袪袨袡 携袙袥携袝孝小携 袩袝袪袝袦袝袧袧袗携 ,小袨袟袛袗袧袧袗携 袩袪袨笑袝袛校袪O袡 NEW. 袣袪袨袦袝 协孝袨袡 袩袪袨笑袝袛校袪蝎 袠袦袝袝孝小携 袝些袝 袠 袛袪校袚袗携 袙袨袟袦袨袞袧袨小孝鞋
袨小袙袨袘袨袞袛袝袧袠携 袛袠袧袗袦袠效袝小袣袠 袟袗袧携孝袨袡 袩袗袦携孝袠 : 袩袪袨笑袝袛校袪蝎 MARK/RELEA-SE. 袝小袥袠 袩袗袦携孝鞋 袟袗袧携孝袗 袛袠袧袗袦袠效袝小袣袠 小 袩袨袦袨些鞋挟 袩袪袨笑袝袛校袪蝎 GETMEM, 孝袨
袨小袙袨袘袨袞袛袗孝鞋 袝袝 袧袗袛袨 小 袩袨袦袨些鞋挟 袩袪袨笑袝袛校袪蝎 FREEMEM. 袙 协孝袨袦 小袥校效袗袝
袧校袞袧袨 校袣袗袟袗孝鞋 袙 袩袪袨笑袝袛校袪袝 FREEMEM 袙 孝袨效袧袨小孝袠 孝校 袨袘袥袗小孝鞋 袩袗袦携孝袠, 袣袨孝袨袪袗携 袘蝎袥袗 袟袗袛袗袧袗 袙 小袨袨孝袙袝孝小孝袙校挟些袝袡 袩袪袨笑袝袛校袪袝 GETMEM
袨袘袨袠袦袠 袩袗袪袗袦袝孝袪袗袦袠 .
袨小袙袨袘袨袞袛袝袧袠袝 袛袠袧袗袦袠效袝小袣袨袡 袩袝袪袝袦袝袧袧袨袡 袙 袨袟校 袨小校些袝小孝袙袥携袝孝小携
袩袪袠 袨袛袧袨袦 袨袘袪袗些袝袧袠袠 袣 袨小袙袨袘袨袞袛袗挟些袠袦 袩袪袨笑袝袛校袪袗袦 孝袨袥鞋袣袨 袨袛袧袨袡, 袗 袠袦袝袧袧袨 袩袨小袥袝袛袧袝袡, 袪袗小袩袨袥袨袞袝袧袧袨袡 袙 袩袗袦携孝袠 袩袝袪袝袦袝袧袧袨袡: 袨小袙袨袘袨袞袛袝袧袠袝 袩袝袪袝袦袝袧袧袨袡 袙 小袝袪袝袛袠袧袝 "袣校效袠" 袧袝袙袨袟袦袨袞袧袨. 协孝袨
袩袪袨袠小啸袨袛袠孝 袩袨孝袨袦校, 效孝袨 袛袠袧袗袦袠效袝小袣袠袝 袩袝袪袝袦袝袧袧蝎袝 袟袗袚袪校袞袗挟孝小携 袙 袩袗袦携孝鞋 袩袨 孝袠袩校
小孝袝袣袗 :袩袝袪袙蝎袡 袙袨楔袝袥-袙蝎楔袝袥 袩袨小袥袝袛袧袠袡.
袛袠袧袗袦袠效袝小袣袠 袟袗袧携孝袗携 袩袗袦携孝鞋 袨小袙袨袘袨袞袛袗袝孝小携 袛袙校袦携 小袩袨小袨袘袗袦袠:
小 袩袨袦袨些鞋挟 袩袪袨笑袝袛校袪蝎 DISPOSE(<袩袝袪袝袦袝袧袧袗携 孝袠袩袗 校袣袗袟袗孝袝袥鞋>) 袙小袝
袩袝袪袝袦袝袧袧蝎袝 POINTER-孝袠袩袗 袨小袙袨袘袨袞袛袗挟孝小携 袠 袛袨小孝校袩 袣 袧袠袦 袘袨袥袝袝 袧袝袙袨袟袦袨袞袝袧.
小 袩袨袦袨些鞋挟 袩袪袨笑袝袛校袪蝎 MARK(<袩袝袪袝袦袝袧袧袗携 孝袠袩袗 校袣袗袟袗孝袝袥鞋>) POINTER-袩袝袪袝袦袝袧袧袗携 袩袨袦袝效袗袝孝小携, 袗 袟袗孝袝袦 袨袧袗 袦袨袞袝孝 袘蝎孝鞋 校袛袗袥袝袧袗 袠袟
"袣校效袠" 袩袪袨笑袝袛校袪袨袡 RELEASE(<袩袝袪袝袦袝袧袧袗携 孝袠袩袗 校袣袗袟袗孝袝袥鞋>).孝袗袣袠袦
袨袘袪袗袟袨袦, 袛袨 校袛袗袥袝袧袠携 小 袩袨袦袨些鞋挟 协孝袨袡 袩袪袨笑袝袛校袪蝎 袛袠袧袗袦袠效袝小袣袗携 袩袝袪袝袦袝袧袧袗携 袩袪袨袛袨袥袞袗袝孝 袘蝎孝鞋 袛袨小孝校袩袧袨袡.
袛袥携 袙蝎效袠小袥袝袧袠携 袗袘小袨袥挟孝袧袨袚袨 袗袛袪袝小袗 袣袗袣袨袡-袥袠袘袨 袩袝袪袝袦袝袧袧袨袡
袩袪袨袚袪袗袦袦蝎 小校些袝小孝袙校袝孝 小孝袗袧袛袗袪孝袧袗携 肖校袧袣笑袠携 ADR(<袠袦携 袩袝袪袝袦袝袧袧袨袡>):协孝袗 肖校袧袣笑袠携 袙袨袟袙袪袗些袗袝孝 笑袝袥袨袝 袛袝小携孝袠效袧袨袝 袟袧袗效袝袧袠袝 袗袛袪袝小袗
袩袝袪袝袦袝袧袧袨袡. 袝小袥袠 袩袝袪袝袦袝袧袧袗携 袠袦袝袝孝 小孝袪校袣孝校袪袧蝎袡 孝袠袩, 孝袨 袙袨袟袙袪袗些袗袝孝小携 袗袛袪袝小 袩袝袪袙袨袚袨 袘袗袡孝袗 协孝袨袡 袩袝袪袝袦袝袧袧袨袡.
袙袨袟袦袨袞袧袨 孝袗袣袞袝 袙袨袟袙袪袗些袝袧袠袝 袗袛袪袝小袨袙 效袗小孝袝袡 小孝袪校袣孝校袪: 协袥袝袦袝袧孝袨袙 袦袗小小袠袙袨袙, 袩袨袥袝袡 袙 袟袗袩袠小携X 袠 孝.袛.
2. 袨袘袥袗小孝鞋 袩袗袦携孝袠 "袣校效袗" 袠 小孝袝袣袠.
---------------------------------
校袣袗袟袗孝袝袥鞋 小孝袝袣袗 (STACKPOINTER) 袨袩袪袝袛袝袥携袝孝 小袙袨袘袨袛袧袨袝 袦袝小孝袨 袙
"袣校效袝" 小 袧袗袠袙蝎小楔袠袦 袗袛袪袝小袨袦.
校袣袗袟袗孝袝袥鞋 袪袝袣校袪小袠袠 (RECURPTR) 袩袨袣袗袟蝎袙袝孝 袗袛袪袝小 袧袗 1 袣袠袥袨袘袗袡孝
袦袝袧鞋楔袝 (400 HEX),效袝袦 STACKPOINTER.
小袠小孝袝袦袗 袩袪袨袙袝袪携袝孝 袩袪袠 袣袗袞袛袨袦 袨袘袪袗些袝袧袠袠 袣 袩袪袨笑袝袛校袪袗袦 NEW/GETMEM 袠袥袠 袣 袪袝袣校袪小袠袙袧蝎袦 袩袪袨笑袝袛校袪袗袦 袙蝎袩袨袥袧携袝孝小携 袥袠 小袨袨孝袧袨楔袝袧袠袝: HE
APPTR<RECURPTR. 袙 小袥校效袗袝 ,袝小袥袠 协孝袨 小袨袨孝袧袨楔袝袧袠袝 袧袝 袙蝎袩袨袥袧携袝孝小携-袚袝袧袝袪袠袪校袝孝小携 小袨袨袘些袝袧袠袝 袨袘 袨楔袠袘袣袝 袙袪袝袦袝袧袠 袠小袩袨袥袧袝袧袠携 (RUN TIME ERROR).
袩袪袨袙袝袪袣袗 校小袥袨袙袠携 :袧袗啸袨袛袠孝小携 袥袠 校袣袗袟袗孝袝袥鞋 小孝袝袣袗 (STACKPTR)
袛袗袥鞋楔袝, 效袝袦 校袣袗袟袗孝袝袥鞋 袪袝袣校袪小袠袠 (RECURPTR) 袧袝 袩袪袨袠袟袙袨袛袠孝小携. 孝袗袣袗携
袩袪袨袙袝袪袣袗 袦袨袞袝孝 袨袣袗袟袗孝鞋小携 袧袝袨袘啸袨袛袠袦袨袡, 袣袨袚袛袗 袪袝袣校袪小袠袙袧袗携 袩袪袨笑袝袛校袪袗
小袝袘携 袙蝎袟蝎袙袗袝孝 袘袨袥袝袝 效袝袦 300-400 袪袗袟. 袙 协孝袨袦 小袥校效袗袝 校袣袗袟袗孝袝袥鞋 小孝袝袣袗 袛袨袥袞袝袧 袘蝎孝鞋 袩袝袪袝袛袙袠袧校孝 袙 小孝袨袪袨袧校 校袙袝袥袠效袝袧袠携. 袛袥携 协孝袨袚袨 袧校袞袧袨
袙蝎袩袨袥袧袠孝鞋 小袥袝袛校挟些校挟 袨袩袝袪袗笑袠挟 袩袪袠小袙袗袠袙袗袧袠携 袧袨袙袨袚袨 袟袧袗效袝袧袠携 校袣袗袟袗孝袝袥挟 袪袝袣校袪小袠袠:
RECURPTR:=STACKPTR-2*MAXDEPTH-512,
袚袛袝: MAXDEPTH-袨袞袠袛袗袝袦袗携 袦袗袣小袠袦袗袥鞋袧袗携 袚袥校袘袠袧袗 袪袝袣校袪小袠袠 袙
袩袪袨袚袪袗袦袦袝,
512 -校袙袝袥袠效袝袧袠袝 袩袗袦携孝袠 (袙 袘袗袡孝袗啸),袩袪袝袛袧袗袟袧袗效袝袧袧袨袡 袛袥携
啸袪袗袧袝袧袠携 袩袗袪袗袦袝孝袪袨袙 袠 袙袧袝楔袧袠啸 小小蝎袥袨袣.
3 . 袪袗小袩袪袝袛袝袥袝袧袠袝 袩袗袦携孝袠.
-------------------------
3.1.袪袗小袩袪袝袛袝袥袝袧袠袝 袨袟校 袩袪袠 袣袨袦袩袠袥携笑袠袠 袙 袩袗袦携孝鞋
(袨袩笑袠携 袣袨袦袩袠袥携孝袨袪袗 "COMPILE -->MEMORY)
+-------------------------------+ 袗袛袪袝小 袨袟校 0000 HEX
I I <- CP/M(袟袨袧袗 小袙携袟袠)
+-------------------------------+
I I <- 袘袠袘袥袠袨孝袝袣袗 袩袗小袣袗袥携
+-------------------------------+
I I <- 袠袧孝袝袪肖袝袡小 TURBO,
I I 袣O袦袩袠袥携孝袨袪
+-------------------------------+
I I <- 小袨袨袘些袝袧袠携 袨袘 袨楔袠袘袣袗啸,
I I 袝小袥袠 袨袧袠 袟袗袚袪校袞袝袧蝎
+-------------------------------+
I I <- 孝袝袣小孝 袩袪袨袚袪袗袦袦蝎
I I
+-------------------------------+
I I
I I <- 袨袘'袝袣孝袧蝎袝 袣袨袛蝎. 袪袗小袩袨袥.
I I " 小袧袠袟校-袙袙袝袪啸" 袟袗 袧袗袠-
I I 袧袠袟楔.袗袛袪袝小袨袦 孝袗袘袥. 袠袦袝袧
+-------------------------------+
I I <- 孝袗袘袥袠笑蝎 袠袦袝袧 袪袗小袩袨袥.
I I "小袙袝袪啸校-袙袧袠袟", 袧袗效袠袧袗携 小
I I 袧袗袠袙蝎小楔袝袚袨 袗袛袪袝小袗,袟袗袧携-
+-------------------------------+ 孝袨袚袨 袨袘'袝袣孝. 袣袨袛袗袦袠
I I 小孝袝袣 笑袩
+-------------------------------+
I I CP/袦(BIOS,BDOS 袠
I I 袛袪.袩袪袨袚袪袗袦袦蝎)
I I
+-------------------------------+ 袧袗袠袙蝎小楔袠袡 袗袛袪袝小 袨袟校 (FFFFH)
3.2. 袪袗小袩袪袝袛袝袥袝袧袠袝 袩袗袦携孝袠 袩袪袠 袣袨袦袩袠袥携笑袠袠 袧袗 袛袠小袣袝孝校
(袨袩笑袠携 袣袨袦袩袠袥携孝袨袪袗 COMPILE-->COMFILE)
袪袗小袩袪袝袛袝袥袝袧袠袝 袩袗袦携孝袠 袙 协孝袨袦 小袥校效袗袝 袠袛袝孝袠效袧袨 袩校袧袣孝校 3.1 袛袨
袗袛袪袝小袗, 袚袛袝 袟袗袣袗袧效袠袙袗袝孝小携 袠小啸袨袛袧蝎袡 孝袝袣小孝 袩袪袨袚袪袗袦袦蝎 袧袗 袩袗小袣袗袥袝. 袪袗小袩袨袥袨袞袝袧袠袝 袨袘'袝袣孝袧蝎啸 袣袨袛袨袙 袨孝袧袨小袠孝袝袥鞋袧袨 袧袝袘袨袥鞋楔袨袚袨 袘校肖袝袪袗
袙蝎袙袨袛袗, 袙 袣袨孝袨袪蝎袡 袩袨袦袝些袗挟孝小携 袟袗袩袠小袠 孝袪袗袧小袥袠袪校袝袦袨袡 袩袪袨袚袪袗袦袦蝎, 袧袗啸袨袛袠孝小携 袙 袨袟校 袧袗 孝袨袦 袦袝小孝袝, 袚袛袝 袙 袪袝袞袠袦袝 袣袨袦袩袠袥携笑袠袠 3.1. 袪袗小袩袨袥袗袚袗袥袠小鞋 袘蝎 袨袘'袝袣孝袧蝎袝 袣袨袛蝎 袙小袝袡 袨孝孝袪袗袧小袥袠袪袨袙袗袧袧袨袡 袩袪袨袚袪袗袦袦蝎. 袩袨小袣袨袥鞋袣校, 袣袗袣 校袞袝 袚袨袙袨袪袠袥袨小鞋, 袙蝎啸袨袛袧袨袡 袘校肖袝袪 袩袨效孝袠 袙小袝袚袛袗
袦袝袧鞋楔袝, 效袝袦 袙小携 袩袪袨袚袪袗袦袦袗, 袦袝小孝袗 袙 袨袟校 袨袧 袟袗袧袠袦袗袝孝 袦袝袧鞋楔袝. 袠小袣袥挟效袝袧袠袝 小袨小孝袗袙袥携袝孝 孝袨孝 小袥校效袗袡, 袣袨袚袛袗
袠小啸袨袛袧袗携 袩袪袨袚袪袗袦袦袗 袦袗袥袗 袧袗小孝袨袥鞋袣袨, 效孝袨 袨袘'袝袣孝袧袗携 (袨孝孝袪袗袧小袥袠袪袨袙袗袧袧袗携) 袩袪袨袚袪袗袦袦袗 袟袗袡袦袝孝 袦袝小孝袗
袦袝袧鞋楔袝, 效袝袦 袙袝袥袠效袠袧袗 袙蝎啸袨袛袧袨袚袨 袘校肖袝袪袗.
3.3.袪袗小袩袪袝袛袝袥袝袧袠袝 袩袗袦携孝袠 袙 袟袗袚袪校袞袝袧袧袨袡
袨袘'袝袣孝袧袨袡 袩袪袨袚袪袗袦袦袝.
袛袨 袣袨袧笑袗 袠小啸袨袛袧袨袚袨 孝袝袣小孝袗 袧袗 袩袗小袣袗袥袝 袪袗小袩袪袝袛袝袥袝袧袠袝 袩袗袦携孝袠 袙 袨袟校 袗袧袗袥袨袚袠效袧袨 袩校袧袣孝袗袦 3.1 袠 3.2.
袠小啸袨袛袧蝎袡 孝袝袣小孝 袧袗 袩袗小袣袗袥袝 袨小孝袗袝孝小携 袙 袨袟校 袩袪袠 袙蝎袩袨袥袧袝袧袠袠
袩袪袨袚袪袗袦袦蝎, 袨孝孝袪袗袧小袥袠袪袨袙袗袧袧袨袡 袧袝袩袨小袪袝袛小孝袙袝袧袧袨 袙 袩袗袦携孝鞋. 袟袗 袠小啸袨袛袧蝎袦 孝袝袣小孝袨袦 袠袦袝袝孝 袦袝小孝袨 小袥袝袛校挟些袝袝 袪袗小袩袪袝袛袝袥袝袧袠袝 袩袗袦携孝袠:
I I <- 袠小啸袨袛袧蝎袡 孝袝袣小孝 袧袗 袩袗小袣袗袥袝
+------------------------------+
I I <- 袨袘'袝袣孝袧蝎袝 袣袨袛蝎 袩袪袨袚袪袗袦袦蝎
I I
I I
+------------------------------+ <- 袧袗效袗袥袨 "袣校效袠":袙袝袪楔袠袧袗 袝袝
I I 袪袗小袩袨袥袗袚袗袝孝小携 袙 袧袗袠袙蝎小楔袝袦
I I 小袙袨袘袨袛袧袨袦 袗袛袪袝小袝.
I I^RECURPTR
+------------------------------+<- 袙袝袪楔袠袧袗 校袣袗袟袗孝袝袥携 袪袝袣校袪小袠袠
I I
I I ^ STACKPTR
+------------------------------+<- 袙袝袪楔袠袧袗 校袣袗袟袗孝袝袥携 小孝袝袣袗
I I<- 袚袥袗袙袧袗携 孝袗袘袥袠笑袗 袠袦袝袧:袧袗效.
I I 小 袧袠袟楔袝袚袨 袗袛袪袝小袗.
+------------------------------+
I I <-袨袩袝袪袗笑袠袨袧袧袗携 小袠小孝袝袦袗 CP/袦
+------------------------------+
3.4. 袪袗小袩袪袝袛袝袥袝袧袠袝 袩袗袦携孝袠 袩袪袠 袙蝎袩袨袥袧袝袧袠袠
袣袨袦袗袧袛袧蝎啸 肖袗袡袥袨袙 (COM-FILES)
+-------------------------+
I I 袨小 CP/袦 (袟袨袧袗 小袙携袟袠)
+-------------------------+ <- 100 HEX
I I <-袘袠袘袥袠袨孝袝袣袗 袩袗小袣袗袥携-8袣 袠,袙袨袟袦袨-
I I 袞袧袨,袗袘小袨袥挟孝袧蝎袝 袩袝袪袝袦袝袧袧蝎袝.
+-------------------------+ <- 小孝袗袪孝袨袙蝎袡 袗袛袪袝小 袩袪袨袚袪袗袦袦蝎
I I <-袨袘'袝袣孝袧蝎袝 袣袨袛蝎
I I
+-------------------------+ <-袙袝袪楔袠袧袗 校袣袗袟袗孝袝袥携 "袣校效袠"
I I 袪袗袘袨效袗携 袨袘袥袗小孝鞋 "袣校效袠"
I I
+-------------------------+ <-校袣袗袟袗孝袝袥鞋 袙袝袪楔袠袧蝎 小孝袝袣袗 袪袝袣校-
I I 袪小袠袠
I I 袨袘袥袗小孝鞋 小孝袝袣袗 袪袝袣校袪小袠袠
+-------------------------+ <-校袣袗袟袗孝袝袥鞋 袙袝袪楔袠袧蝎 小孝袝袣袗 袩袪笑袝小-
I I 小袨袪袗.小孝袝袣 袩袪袨笑袝小小袨袪袗.
+-------------------------+<- 袚袥袗袙袧袗携 孝袗袘袥袠笑袗 袠袦袝袧
I I <-袙小孝袪袨袝袧袧蝎袡 袟袗袚袪校袟效袠袣 TURBO
+------------------------ +
I I 袨小 CP/M
+-------------------------+
----------- +
I I 袨小 CP/M
+-------------------------+
聽
聽*** ORIONSOFT ***
聽
聽
袧邪 锌褉械写褘写褍褖褍褞 褋褌褉邪薪懈褑褍聽 袧邪 谐谢邪胁薪褍褞 褋褌褉邪薪懈褑褍 聽袧邪 褋谢械写褍褞褖褍褞 褋褌褉邪薪懈褑褍
聽