무엇을 고래 코드에 당신은 여전히 발로니까?

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

  •  20-08-2019
  •  | 
  •  

문제

는 데 도움이 된다 내 두뇌는 마지막 몇 일 동안 일을 병자,나를 시도하기로 결정했을 발굴 몇 가지 오래 된 코드입니다.내가 찾을 수있는 몇 가지 바이너리 버전의 몇 가지 고대 아타리 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

다른 사람을 만들고 싶어 자신이 오래된 보고 몇 가지 오래된 학교입니까?:-)그것은 부끄러운 나지 않는 나의 68000ASM 물건이 여전히 있지만 아마도 하지 않았을 인정한다.

Ahh..추억:-)

도움이 되었습니까?

해결책

나는 1990-1993 년에 대학에서 쓴 진흙을 가지고 있습니다. 모든 C. 그것은 Sillymud라고 불리는 Diku Mud의 파생이었고, 당시의 자존심과 기쁨이었습니다.

Intertubes에서 여기저기서 코드를 찾을 수 있습니다.

다른 팁

오래된 Atari 8 비트 기본 및 Atari ST 물건의 보트로드를 뒤로 옮길 수 있습니다 (여전히 ST가 있지만 네트워크가 없어서 거의 사용하지 않습니다).

한때 David Ahl의 "Basic Computer Games : Microcomputer Edition"의 대부분의 게임에 입력하여 8 비트 및 ST Basic에 모두 포팅했습니다.

나는 구식 킥을 위해 그 오래된 게임을 가공/Arduino에 포팅하는 데 중복되어 있습니다.

내가 1998 년에 쓴 절대적으로 끔찍한 Perl 코드는 여전히 특정 웹 사이트에서 사용 중입니다 ...

끔찍하다는 것은 아니요 use strict;, 아니요 my어디서나 ...

내가 Atari St에서 가지고 있었던 대부분의 코드는 GFA-Basic에 있었고, 나는 그 먼지가 많은 플로피를 만지고 싶지 않습니다.

우리가 테스트 도구는 원래 기록에서 실행 Windows3.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