What ancient school code are you still wearing?

Question

Due to boredom, I’ve been working sick for the past few days, I decided to try to dig out some old code. I could find some binary versions of some ancient Atari ST materials that I wrote, but I could not find any source. I managed to redo the old ModeX library that I wrote in ASM many years ago from the archive of the legendary old x2ftp site:

http://ftp.lanet.lv/ftp/mirror/x2ftp/msdos

An explosion from the past :-)

; Actually Sticks Us Into ModeX - With 240 Scanlines Per Page ; Set The Variable LSCAN To The Virtual Scanline Length You Want ; Trashes AX, CX, DX, DS, SI ; Shouldn't Matter Though As This Should Be The First Thing You Call! Set_X_240 PROC Call Set_Graph ; Set Mode 13h mov dx, Seq_Port mov ax, 00604h ; Index 4 (Memory Mode Reg.) In AL ; Bit 3 = Chain 4 out dx, ax ; Kill Chain 4 Mode mov ax, 00100h ; Index 0 (Reset Reg.) In AL out dx, ax ; Reset Syncronous (At End Of Cycle) dec dx ; Change Port dec dx ; To Misc. S--t Port :) mov al, 11100011b out dx, al ; Sets 480 Line Mode, 25Mhz Dot Clock inc dx ; Change Port inc dx ; Back To Sequencer Port mov ax, 00300h out dx, ax ; Restart Controller mov dx, Crtc_Port mov al, 011h out dx, al ; Select Index 11h (Vert.Retrace End) inc dx ; Data Port in al, dx ; Read In Current Bit Mask and al, 07Fh ; 01111111 - Clear Top Bit (Write Protect) out dx, al ; Un-Write Protect Index 0-7 Of CRTC Reg. dec dx ; Restore Port To Index mov ax, seg CRTC_Data_240 ; Address Of Our CRTC Data mov ds, ax mov si, offset CRTC_Data_240 mov cx, LCRTC_Data_240 ; Length Of Data repz outsw ; Chuck It At The Port mov ax, lscan shr ax, 3 ; Number Of Words Per Scan Line mov ah, al ; Into AH mov al, 013h ; Port Index 013h - Logical Screen Width out dx, ax mov NScan, 240 Call Set_Pages ret Set_X_240 ENDP 

Does anyone else want to make themselves look old and publish the old school code? :-) I am ashamed that I do not have my 68000 ASM material yet, although I probably would not even recognize it now!

Ahh .. memories :-)

Answer 1

I have a MUD that I wrote and supported in college back in 1990-1993. All C. It was the conclusion of Diku MUD called SillyMUD, and at that time it was my pride and joy.

You can still find the code in Intertubes, here and there.

Answer 2

I have a boat of the old Atari 8-bit BASIC and Atari ST from the way back (I still have ST, but it is not connected to the network, so I almost never use it).

I somehow typed "BASIC Computer Games: Microcomputer Edition" in most of the games from David Ahl, porting them to both 8-bit and ST BASIC.

I am puzzled at porting these old games to "Handling / Arduino" for high school kicks.

Answer 3

Some absolutely terrible Perl code that I wrote in 1998 is still used on a certain site ...

Awful, I mean no use strict; , no my somewhere in it ...

Answer 4

Most of the code I received from Atari ST was in GFA-Basic, I would not want to touch these dusty diskettes.

Answer 5

We have a test harness that was written in the original version for Windows 3.1. Although the veneer has been updated a lot, the guts are still the same. There is still a long / long pointer terminology in the kernel.

Answer 6

from the old EISPACK Fortran procedure:

  C THIS SUBROUTINE IS A TRANSLATION OF THE ALGOL PROCEDURE ELMHES,
 C NUM.  MATH.  12, 349-368 (1968) BY MARTIN AND WILKINSON.
 C HANDBOOK FOR AUTO.  COMP., VOL.II-LINEAR ALGEBRA, 339-358 (1971).
 C
 C GIVEN A REAL GENERAL MATRIX, THIS SUBROUTINE
 C REDUCES A SUBMATRIX SITUATED IN ROWS AND COLUMNS
 C LOW THROUGH HIGH TO UPPER HESSENBERG FORM BY
 C STABILIZED ELEMENTARY SIMILARITY TRANSFORMATIONS.
 ...
 C QUESTIONS AND COMMENTS SHOULD BE DIRECTED TO BURTON S. GARBOW,
 C MATHEMATICS AND COMPUTER SCIENCE DIV, ARGONNE NATIONAL LABORATORY
 C
 C THIS VERSION DATED AUGUST 1983.

Answer 7

Copying and pasting as a basic development strategy is very sad.