代码之家 › 专栏 › 技术社区 › Steven Robbins

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

68000 legacy-code assembly

Steven Robbins · 技术社区 · 17 年前

在病假的最后几天里,我的大脑已经厌倦了,我决定试着挖掘一些旧代码。我可以找到我写的一些古老的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

啊。.记忆:-)

7 回复 | 直到 14 年前

Scott Prive 14 年前

有一大堆旧的Atari 8位BASIC和Atari ST的东西(我仍然有ST,但它没有联网,所以我几乎从不使用它)。

我有点想把那些老游戏移植到Processing/Arduino上,以获得老派的乐趣。

johnbr 17 年前

早在1990年至1993年,我就在大学期间编写并维护了一个MUD。C.这是Diku MUD的衍生产品,叫做SillyMUD,这是我当时的骄傲和快乐。

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

Powerlord 17 年前

我在1998年写的一些非常糟糕的Perl代码仍然在某个网站上使用。..

use strict; ,没有 my

Osama Al-Maadeed 17 年前

我从Atari ST得到的大部分代码都是GFA Basic,我不想碰那些尘土飞扬的软盘。

SumoRunner 17 年前

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.

Steve Rowe 17 年前

我们有一个测试工具,最初是为在Windows 3.1上运行而编写的。虽然外表更新了很多,但勇气还是一样的。它的核心仍然有一些长/远指针术语。

-2

User 17 年前

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