Skip to content

Instantly share code, notes, and snippets.

View ssg's full-sized avatar
💾
restoring

Sedat Kapanoğlu ssg

💾
restoring
2.3k followers · 106 following
View GitHub Profile
@ssg
ssg / qtext.pas
Created August 25, 2011 20:12
QText Fast VGA text mode routines
{
Quick Text routines 2.01d
(c) 1995 SSG
updates:
--------
18th Feb 95 - 02:02 - Success...this was my first attempt to write a text
mode engine...
18th Feb 95 - 12:38 - Workin' w/o any bugs..
18th Feb 95 - 13:12 - Boosted code & fixed some bugs...
@ssg
ssg / capscr.pas
Created February 13, 2021 06:47
Text mode screen capture tool I wrote back in 1994
{$M $800,0,0}
uses Dos;
var
screen:array[1..4000] of byte absolute $b800:0;
temp:array[1..2000] of byte;
procedure MyInt5;interrupt;
var
f:file;
begin
@ssg
ssg / intro1.pas
Created June 17, 2021 22:01
Street Fighter II Cracktro - 1993 - This is probably the first intro I coded on PC as my coding looks really messy and basic.
{$M $4000,0,200000}
uses crt {Screen handler}
,dos {Memory handler}
,ssgstr {String handler}
,ssgbios {Keyboard & Screen handler}
,ssgcel {CEL handler}
,ssgpal; {Palette handler}
const game='Street Fighter II';
cracker='SSG';
@ssg
ssg / stepper.txt
Created October 3, 2021 23:57
Stepper data from the comments at https://vimeo.com/111417458
Sub78820
Writes a value (param1 | param0) to field 10
Writes a constant (0x910200) to field 0
Spins until (field_4 & 3) == 2
Sub78848
Writes parameter 0 to field 10
Writes parameter 1 to feild 14
Writes a constant (0xA10200) to field 0
Spins until (field_4 & 3) == 2
@ssg
ssg / scf.pas
Created September 20, 2021 19:33
My attempt at a concurrent floppy disk formatter. I don't think this works though. I'm not even sure if it's possible with NEC's FDD protocol.
{ SSG's Concurrent Formatter 0.1 beta }
{$M $800,0,0}
uses
Dos,XStr,Disk,XIO;
type
@ssg
ssg / ssgkey.pas
Created September 20, 2021 19:31
Some keyboard handler I wrote. I don't remember why I started writing this.
{ SSG's Keyboard Handler - (c) 1995 SSG }
{$M $400,0,0}
uses Dos;
begin
asm
jmp @Init
@InstallText:
db 'SSG''s Keyboard Handler Version 1.00a - INSTALLED',13,10,'$'
@Old9:
@ssg
ssg / dv.pas
Created August 17, 2018 18:50
Initial draft of my first attempt at developing a object-oriented GUI library, DreamView, back in 93.
{
Name:DreamView
Date:11th May 93
Update Info:
12th May 93 - Added Insert and Delete methods to DView
12th May 93 - Added REMs
12th May 93 - Recovered some bugs...
12th May 93 - Added DInputLine object
12th May 93 - Added IconButton (file based) object
@ssg
ssg / dumpvoc.pas
Created February 13, 2021 06:52
Tool that displays VOC (Creative Labs) voice file information I wrote in 1994
uses Dos,Objects,XVoc,XIO;
var
f:FNameStr;
H:TVOCHeader;
Block:byte;
s:string[20];
T:TDosStream;
procedure DumpBlock(b:byte);
var
@ssg
ssg / bmpdump.pas
Created February 13, 2021 06:45
DOS tool I wrote back in 1994 to retrieve BMP header information
{ BMP Header Dumper }
uses Objects,XIO,XTypes;
(*
type
TBitmapFileHeader = record
bfType: Word;
bfSize: Longint;
bfReserved1: Word;
bfReserved2: Word;
@ssg
ssg / mi.pas
Created February 13, 2021 06:37
A memory information tool for DOS that I wrote back in 1994
uses Strings,XBuf,Debris,Objects,Dos,XIO;
const
EnvId : array[1..8] of char = 'COMSPEC=';
type
PMCB = ^TMCB;
TMCB = record