Question

在最后几天下班后，我厌倦了无聊，我决定尝试挖掘一些旧代码。我可以找到一些我写过的古代Atari ST的二进制版本，但我找不到任何来源。我确实设法挖掘了一个旧的ModeX库，这个库是我在很久以前从传奇旧x2ftp站点的存档中编写的：

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

从过去的爆炸： - ）

; 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

还有其他人想让自己看起来老了并张贴一些旧的学校代码吗？ :-)很遗憾我没有任何68000 ASM的东西，尽管我现在甚至都不认识它！

啊，回忆： - ）

Answer 1

有一大堆旧的Atari 8位BASIC和Atari ST的东西从后面回来（我还有ST，但它没有联网，所以我几乎没用过它。）

我曾经在David Ahl的“BASIC电脑游戏：微电脑版”的大部分游戏中输入，将它们移植到8位和ST BASIC。

我很想把那些旧游戏移植到Processing / Arduino，用于老式踢球。

Answer 2

我有一个我在大学期间编写和维护过的MUD，早在1990 - 1993年。所有C.这是Diku MUD的衍生物，名为SillyMUD，当时是我的骄傲和快乐。

您仍然可以在此处和那里找到Intertubes上的代码。

Answer 3

我在1998年写的一些绝对可怕的Perl代码仍在某个网站上使用......

可怕的是，我的意思是use strict;，没有my在任何地方......

Answer 4

我从Atari ST获得的大部分代码都是在GFA-Basic中，我不想触摸那些尘土飞扬的软盘。

Answer 5

我们有一个测试工具，可以在Windows 3.1上运行。虽然贴面已经更新了很多，但内心仍然是相同的。它在核心中仍然有一些远/长指针术语。

Answer 6

来自旧的EISPACK Fortran例程：

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

复制和粘贴作为核心发展策略让我非常非常伤心。

你还有什么古老的学校代码？

7 个答案: