update

Author: tebe6502

lib/aplib.pas

@@ -2,7 +2,7 @@
 (*
 * @type: unit
 * @author: John Brandwood, Krzysztof 'XXL' Dudek, Tomasz 'Tebe' Biela
-* @name: APL
+* @name: APL decompression unit
 *
 * @version: 1.0
 *

lib/atari.pas

@@ -3,9 +3,7 @@
  @type: unit
  @author: Tomasz Biela (Tebe)
  @name: Common used memory registers (Atari XE/XL)
- @version: 1.0
-
- changes: 03.11.2016
+ @version: 1.3
 
  @description:
  <https://www.atariarchives.org/mapping/memorymap.php>

lib/blowfish.pas

@@ -1,13 +1,14 @@
 unit blowfish;
 (*
  @type: unit
- @author: Free Pascal development team, Tomasz Biela
- @name: Blowfish
+ @author: Free Pascal development team, Tomasz Biela (Tebe)
+ @name: Blowfish cipher unit
  @version: 1.1
 
  @description:
- Unit implementing simple blowfish algorithm
+ Unit implementing simple blowfish algorithm.
 
+ <https://en.wikipedia.org/wiki/Blowfish_(cipher)>
 *)
 
 {
@@ -50,7 +51,7 @@ function EncryptString(aString: string): string;
 @description:
 
 *)
-	
+
 
 implementation
 

lib/cio.pas

@@ -6,7 +6,7 @@
  @version: 1.0
 
  @description:
-
+ CIO - Central Input/Output
 *)
 
 

lib/crt.pas

@@ -1,7 +1,7 @@
 unit crt;
 (*
 @type: unit
-@name: Mad Pascal screen and keyboard handling units
+@name: screen and keyboard handling unit
 @author: Tomasz Biela (Tebe)
 
 @description:

lib/deflate.pas

@@ -2,7 +2,7 @@
 (*
 * @type: unit
 * @author: Piotr Fusik
-* @name: Deflate
+* @name: Deflate decompression unit
 *
 * @version: 1.0
 *

lib/e80.pas

@@ -5,15 +5,15 @@
  @name: 80: device
  @version: 1.3
 
-   Version 1.3:
-	- CALCXY optimization, fast *320 multiplication
-	- GETCHR optimization
+ @description:
+ 80: device by SIMON TREW, 1989
 
-   Version 1.2:
+ Version 1.2:
 	- information about CIO, XIO command
 
- @description:
- 80: device by SIMON TREW, 1989
+ Version 1.3:
+	- CALCXY optimization, fast *320 multiplication
+	- GETCHR optimization
 *)
 
 (*

lib/fastmath.pas

@@ -7,8 +7,9 @@
 
  @description:
 
- https://codebase64.org/doku.php?id=base:6502_6510_maths
- https://dwheeler.com/6502/oneelkruns/asm1step.html
+ <https://codebase64.org/doku.php?id=base:6502_6510_maths>
+
+ <https://dwheeler.com/6502/oneelkruns/asm1step.html>
 *)
 
 
@@ -29,8 +30,8 @@ interface
 	function fastdiv(divisor, divider: word): word; external 'fdiv\fdiv';
 	function fastdivS(divisor, divider: smallint): smallint; external 'fdiv\fdiv';
 {$endif}
-	
-	
+
+
 implementation
 
 

lib/gr0pp.pas

@@ -6,6 +6,7 @@
 * @version: 1.0
 * @description:
 * Set of procedures to initialize, run, and use special graphics mode 0++.
+*
 * Resolution 40x60 chars, 2 colors
 *
 *)

lib/gr10pp.pas

@@ -6,6 +6,7 @@
 * @version: 0.5.4
 * @description:
 * Set of procedures to initialize, run, and use special graphics mode 10++.
+*
 * Resolution 80x48, 9 colors, square pixel (for lineHeight = 4)
 *
 * This library is nota a part of 'blibs' - set of custom Mad-Pascal libraries.
@@ -21,23 +22,23 @@ procedure Gr10Init(DListAddress: word; VRamAddress: word; lines: byte; pixelHeig
 * Turns on 10++ mode.
 *
 * @param: DListAddress - memory address of Display list
-* 
+*
 * @param: VRamAddress - video memory address
-* 
+*
 * @param: lines - number of horizontal lines (vertical resolution)
 *
 * @param: pixelHeight - height of a pixel in scanlines (between 2 and 16)
 *
 * @param: blanks - number of blanklines (8 x scanline) at top of the screen
-* 
+*
 *)
 procedure SetPixelHeight(lines: byte);
 (*
 * @description:
 * Sets height of a pixel in a scan lines.
-* 
+*
 * @param: lines -  height of a pixel in scanlines (between 2 and 16)
-* 
+*
 *)
 
 
@@ -52,24 +53,24 @@ procedure SetPixelHeight(lines: byte);
 
 implementation
 
-uses graph; 
+uses graph;
 
 
 var dList : array [0..0] of byte;
-    dlPtr: word;   
+    dlPtr: word;
 
 
 procedure G10Dli;interrupt; assembler;
 asm
-dli 
-    pha 
-    sta WSYNC  ;($d40a) 
-    lda #13 
+dli
+    pha
+    sta WSYNC  ;($d40a)
+    lda #13
 .def :VS_Upper = *-1
-    sta VSCROL ;($d405) 
+    sta VSCROL ;($d405)
     lda #3
 .def :VS_Lower = *-1
-    sta VSCROL ;($d405) 
+    sta VSCROL ;($d405)
     pla
 end;
 
@@ -138,7 +139,7 @@ procedure BuildDisplayList(DListAddress: word; VRamAddress: word; lines: byte; b
 procedure Gr10Init(DListAddress: word; VRamAddress: word; lines: byte; pixelHeight:byte; blanks: byte);
 begin
     InitGraph(10+16);
-    
+
     BuildDisplayList(DListAddress, VRamAddress, lines, blanks);
     SetPixelHeight(pixelHeight);
     SDLSTL := DListAddress;