rg: porting.pas annotate

annotate porting.pas @ 0:62966dd383ed default tip

initial

author	Radomir Dopieralski <sheep-devel@sheep.art.pl>
date	Sun, 08 Dec 2013 19:39:15 +0100
parents
children

rev	line source
0 62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	1 { All system-dependant procedures should be here. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	2
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	3 UNIT Porting;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	4
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	5 INTERFACE
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	6
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	7 CONST pal_changed:BOOLEAN=FALSE; { Is palette changed? }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	8
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	9 KEYCHR_DIR1=#131; { Key codes for special keys. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	10 KEYCHR_DIR2=#132;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	11 KEYCHR_DIR3=#133;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	12 KEYCHR_DIR4=#134;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	13 KEYCHR_DIR5=#135;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	14 KEYCHR_DIR6=#136;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	15 KEYCHR_DIR7=#137;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	16 KEYCHR_DIR8=#138;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	17 KEYCHR_DIR9=#139;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	18 KEYCHR_CR=#13;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	19 KEYCHR_BS=#8;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	20 KEYCHR_TAB=#9;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	21
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	22 TYPE PalAry=ARRAY[0..15] OF RECORD r,g,b:BYTE END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	23
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	24 PROCEDURE PutChar(x,y:BYTE;chr:CHAR;atr:BYTE); { Displays specified character on the screen. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	25 PROCEDURE GotoXY(x,y:BYTE); { Moves cursor. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	26 FUNCTION GetChr: CHAR; { Reads a key from standard input. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	27 PROCEDURE ChPal(Pal:PalAry); { Changes color palette, remembers the old one. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	28 PROCEDURE ResetPal; { Changes palette to the old one. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	29 PROCEDURE ScrollWin(x1,y1,x2,y2:BYTE); { Scrolls part of screen. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	30
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	31 IMPLEMENTATION
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	32
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	33 TYPE ScrChr=RECORD
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	34 chr: CHAR;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	35 atr: BYTE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	36 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	37
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	38 VAR Screen: ARRAY[0..24,0..79] OF ScrChr ABSOLUTE $B800:0000; { Video memory. }
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	39 OldPal: ARRAY[0..15] OF BYTE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	40 OldRGB: ARRAY[0..15] OF RECORD r,g,b: BYTE END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	41
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	42 PROCEDURE SetPal(i:WORD;p:BYTE);ASSEMBLER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	43 ASM
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	44 MOV AH, 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	45 MOV AL, 00h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	46 MOV BX, i
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	47 MOV BH, p
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	48 INT 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	49 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	50
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	51 FUNCTION GetPal(i:BYTE):BYTE;ASSEMBLER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	52 ASM
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	53 MOV AH, 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	54 MOV AL, 07h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	55 MOV BL, i
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	56 INT 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	57 MOV AL,BH
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	58 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	59
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	60 PROCEDURE GetRGB(i:WORD; VAR r,g,b: BYTE);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	61 VAR sr,sg,sb: BYTE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	62 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	63 ASM
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	64 MOV AH, 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	65 MOV AL, 15h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	66 MOV BX, i
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	67 INT 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	68 MOV sr, DH
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	69 MOV sg, CH
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	70 MOV sb, CL
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	71 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	72 r:=sr;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	73 g:=sg;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	74 b:=sb;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	75 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	76
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	77 PROCEDURE SetRGB(i:WORD;r,g,b:BYTE);ASSEMBLER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	78 ASM
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	79 MOV AH, 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	80 MOV AL, 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	81 MOV BX, i
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	82 MOV DH, r
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	83 MOV CH, g
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	84 MOV CL, b
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	85 INT 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	86 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	87
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	88 FUNCTION GetChr: CHAR;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	89 VAR l:CHAR;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	90 h:BYTE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	91 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	92 ASM
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	93 MOV AH,00h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	94 INT 16h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	95 MOV l,AL
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	96 MOV h,AH
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	97 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	98 IF l=#0 THEN CASE h OF
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	99 71: l:=KEYCHR_DIR7;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	100 72: l:=KEYCHR_DIR8;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	101 73: l:=KEYCHR_DIR9;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	102
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	103 75: l:=KEYCHR_DIR4;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	104 76: l:=KEYCHR_DIR5;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	105 77: l:=KEYCHR_DIR6;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	106
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	107 79: l:=KEYCHR_DIR1;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	108 80: l:=KEYCHR_DIR2;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	109 81: l:=KEYCHR_DIR3;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	110 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	111 GetChr:=l;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	112 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	113
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	114 PROCEDURE PutChar(x,y:BYTE;chr:CHAR;atr:BYTE);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	115 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	116 IF (x>79) OR (y>24) THEN Exit;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	117 Screen[y,x].chr:=chr;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	118 Screen[y,x].atr:=atr;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	119 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	120
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	121 PROCEDURE GotoXY(x,y:BYTE);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	122 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	123 IF (x>79) OR (y>24) THEN Exit;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	124 ASM
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	125 MOV AH,02h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	126 MOV BH,00h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	127 MOV DL,x
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	128 MOV DH,y
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	129 INT 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	130 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	131 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	132
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	133 PROCEDURE ChPal(Pal:PalAry);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	134 VAR i: BYTE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	135 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	136 pal_changed:=TRUE;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	137 FOR i:=0 TO 15 DO BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	138 OldPal[i]:=GetPal(i);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	139 SetPal(i,i);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	140 GetRGB(i,OldRGB[i].r,OldRGB[i].g,OldRGB[i].b);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	141 SetRGB(i,Pal[i].r,Pal[i].g,Pal[i].b);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	142 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	143 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	144
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	145 PROCEDURE ResetPal;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	146 VAR i:INTEGER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	147 BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	148 IF NOT pal_changed THEN Exit;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	149 FOR i:=0 TO 15 DO BEGIN
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	150 SetPal(i,OldPal[i]);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	151 SetRGB(i,OldRGB[i].r,OldRGB[i].g,OldRGB[i].b);
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	152 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	153 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	154
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	155 PROCEDURE ScrollWin(x1,y1,x2,y2:BYTE); ASSEMBLER;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	156 ASM
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	157 MOV AH,06h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	158 MOV AL,01h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	159 MOV BH,$07;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	160 MOV CL,x1
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	161 MOV CH,y1
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	162 MOV DL,x2
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	163 MOV DH,y2
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	164 INT 10h
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	165 END;
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	166
62966dd383ed initial Radomir Dopieralski <sheep-devel@sheep.art.pl> parents: diff changeset	167 END.

Mercurial > rg

annotate porting.pas @ 0:62966dd383ed default tip