什么古，旧学校代码，你仍然有踢左右？

StackOverflow https://stackoverflow.com/questions/496807

  •  20-08-2019
  •  | 
  •  

题

已经被闷出我的大脑的最后几天下班生病了，我决定尝试发掘一些旧的代码。我能找到的一些古代的Atari ST的东西，我写了一些二进制版本，但我找不到任何来源。我还是设法疏通了一个老ModeX库很久以前我在ASM写从传说中的老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的东西还在，虽然我可能不会甚至现在认识到它！

稀释..回忆： - ）

有帮助吗？

解决方案

我有一个MUD我写和1990 - 1993年在大学期间保持，后退。所有C.它被称为SillyMUD底裤MUD的推导，这是我的骄傲和喜悦的时候。

您还可以找到Intertubes代码，在这里和那里。

其他提示

有从回来的路上老Atari的8位基本和雅达利ST东西勿庸置疑（我仍然有ST，但它没有联网，所以我很少使用它）。

我曾经键入大多数从大卫阿尔的游戏的“BASIC电脑游戏：微电脑版”，将其移植到两个8位和ST BASIC

。

我是半个诱惑，口那些老游戏处理/ Arduino的，老学校踢。

一些非常糟糕的Perl代码我在1998年写的仍然是在使用上有一定的网站...

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

大部分的代码，我从雅达利ST过的是GFA-基础，我不想碰那些尘封的软盘。

我们有被orginally写在Windows 3.1上运行一个测试工具。虽然木皮已经更新了很多，胆量仍然是相同的。它仍然具有在芯一些远/长指针术语。

从旧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.

复制和粘贴为核心的发展战略，让我非常，非常难过。

许可以下： CC-BY-SA 和 归因
不隶属于 StackOverflow
scroll top