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

Question

最近几天因为生病而感到无聊，我决定尝试挖掘一些旧代码。我可以找到一些我写的古代 Atari ST 东西的二进制版本，但我找不到任何来源。我确实设法从传奇的旧 x2ftp 站点的存档中挖掘出我在许多个月前用 ASM 编写的旧 ModeX 库：

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 东西仍然没有，尽管我现在可能都认不出来了！

啊..回忆:-)

score 4 · Accepted Answer

从很久以前就有一大堆旧的 Atari 8 位 BASIC 和 Atari ST 的东西（我仍然有 ST，但它没有联网，所以我几乎从不使用它）。

我曾经输入过 David Ahl 的“BASIC Computer Games: Microcomputer Edition”中的大部分游戏，将它们移植到 8 位和 ST BASIC。

我很想将那些旧游戏移植到 Processing/Arduino 上，以进行老式的踢球。

score 3 · Accepted Answer

我有一个 MUD，我在 1990-1993 年大学期间编写并维护。All C. 是 Diku MUD 的衍生版本，叫做 SillyMUD，是我当时的骄傲和喜悦。

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

score 2 · Accepted Answer

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

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

score 1 · Accepted Answer

我从 Atari ST 获得的大部分代码都在 GFA-Basic 中，我不想碰那些满是灰尘的软盘。

score 1 · Accepted Answer

来自旧的 EISPACK Fortran 例程：

C 这个子程序是 ALGOL PROCEDURE ELMHES 的翻译，
C NUM. 数学。12, 349-368(1968) 由马丁和威尔金森撰写。
C 自动手册。比较，第二卷线性代数，339-358（1971）。
C
C 给定一个真正的通用矩阵，这个子程序
C 减少位于行和列中的子矩阵
C LOW 到 HIGH 到 UP HESSENBERG FORM BY
C 稳定的基本相似变换。
...
C 问题和评论应直接发送至 BURTON S. GARBOW，
C 数学和计算机科学部，阿贡国家实验室
C
C 此版本日期为 1983 年 8 月。

score 1 · Accepted Answer

我们有一个最初编写为在 Windows 3.1 上运行的测试工具。虽然单板已经更新了很多，但胆量仍然是一样的。它的核心仍然有一些远/长指针术语。

score -2 · Accepted Answer

-2

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

于 2009-02-17T21:53:53.243 回答

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

7 回答 7

Related

Reference