-

   rss_rss_hh_new

 - e-mail

 

 -

 LiveInternet.ru:
: 17.03.2011
:
:
: 51

:


[] 1988

, 07 2017 . 10:00 +


80-, , . Phillips P2000T Apple Macintosh. Commodore 64, , Commodore 128. ( , C128, . .)

C128 C64. 128 , C64 . , Space Taxi, Super Cycle, Velocipede, Last Ninja II, Electrix . .

World Wide Web , . , . : , , GEOS -, - - . - , . , . . . , ( , ).

Commodore Dossier, Commodore, 1984 1988 . , , . Blindganger, , blind ().

image
Commodore Dossier

, - . , , .

, , . , . . , , .

1988 , , . , , . . , - . , , . .

image


- , . Commodore Dossier, , .

, , . , 1988 , , Commodore Dossier. , - ?

Google CHECKSUM DOSSIER. ! , Blindganger: 240 RETURN, 7E. , . FOUT IN REGEL, Ż. !

image
?

. , . , . , . , . , , 1988 . !

, , . , . BASIC 0 3.

1780 MAAL, . 3 1550 .

1780 MAAL=MAAL-1:IFMAAL=0THENGOTO1810

1810-1840 , MAAL . 1840 . BASIC, , , 16540 ($409C).

1810 POKECROSS+4096,1           :REM MARK EXIT ON THE MAP
1820 SYS16540                   :REM COPY MAP TO SCREEN
1830 POKESID+11,0:POKE53248+21,0:REM STOP SOUND AND DISABLE SPRITES
1840 GOTO1840                   :REM ENDLESS LOOP

. 1000 , $6000, ($0400-$07E7). (40 25 = 1000 ) .

, . , , , "@" , A , B J , K , L . . 0 12. .

1000 , $7000, ($D800-$DBE7). .

L40CB:  LDA     #$FF    ; >--  --
        STA     $FB     ;                      |
        LDA     #$6F    ;                      |
        STA     $FC     ;                      |
        LDA     #$F4    ;                      |
        STA     $FD     ;                      |
        LDA     #$D7    ;                      |
        STA     $FE     ; <--------------------
        LDX     #$04    ; >--   -----------------
L40DD:  LDY     #$FA    ; >-- .  I ---             |
L40DF:  LDA     ($FB),Y ; ( ) |            |
        STA     ($FD),Y ;                      |            |
        DEY             ;                      |            |
        BNE     L40DF   ; <-------------------              |
        LDY     #$FA    ; >-- .  II -----------    |
L40E8:  INC     $FB     ; (  ) |  |
        BNE     L40EE   ;                                |  |
        INC     $FC     ;                                |  |
L40EE:  INC     $FD     ;                                |  |
        BNE     L40F4   ;                                |  |
        INC     $FE     ;                                |  |
L40F4:  DEY             ;                                |  |
        BNE     L40E8   ; <----------------------------     |
        DEX             ;                                   |
        BNE     L40DD   ; <-------------------------------

250 . X 4 0.

        LDX     #$04   
        ;
        ;  
        ;
        DEX            
        BNE     L40DD

Y #$FA (250) 0.

L40DD:  LDY     #$FA   
L40DF:  LDA     ($FB),Y
        STA     ($FD),Y
        DEY            
        BNE     L40DF  

. Y , 16- , .

, LDA ($FB),Y :

  • 16- , $FB $FC . , ($FB). $FB #$FF, $FC #$6F, 16- $6FFF.
  • Y. Y #$FA. $6FFF, $70F9.
  • ( A) .

Y 250 0. , Y, , 1. ( DEY Y , BNE .)

$7000. Y 1, $7000 1 = $6FFF. , $D800, $D800 1 = $D7FF. $D7F4!

#$F4 #$FF . 244 255. , 4 5 255! , , 11 . , , .

3670 BASIC:

3670 DATA 252,169,244,133,253

(255), . 29- !

, 2017 , , :

  • , .
  • .
  • , ( ).
  • . ( H .)

Blindganger 2017 BASIC, . 80-, Commodore Dossier (. ), !

( ) , (. ).


!


Original source: habrahabr.ru (comments, light).

https://habrahabr.ru/post/332586/

:  

: [1] []
 

:
: 

: ( )

:

  URL