Autore Topic: Generatore Di Labirinti Casuali  (Letto 1761 volte)

iAN CooG

  • Utente
  • **
  • Post: 1774
    • http://iancoog.altervista.org
  • Gioco Preferito: Turbo Assembler, ActionReplay Monitor, DiskDemon
Generatore Di Labirinti Casuali
« il: 25 Agosto 2006, 00:56:10 »
 La noia e' grande amica
Codice: [Seleziona]
    *= $0801
    word eop
    word 7102
    byte $9e
    byte "2059"
eop
    byte 0
;--------------
    ldy #0
   ;set maiuscole/semigrafiche
    lda #$14
    sta $d018
   ;preparazione osc3 per rand
    ldx #$81
    stx $d412
    stx $d40f
   ;inibire C=+Shift
    dex
    stx $0291
lp1
    lda #$04
    tax
    sta p+2
lp2
    lda $d41b
    and #$01   ; 0/1
    sta $02
    lda #$4d   ; shift M/N
   ;clc
    adc $02
p   sta $0400,y
    iny
    bne lp2
    inc p+2
    dex
    bne lp2
k   jsr key
    beq k
k2  jsr key
    bne k2
    beq lp1
;--------------
key
    lda $dc01
    and $dc00
    and #$10
    rts
« Ultima modifica: 21 Gennaio 2015, 22:30:06 da eregil »
-=[]=--- iAN CooG/HVSC^C64Intros ---=[]=-
- http://hvsc.c64.org - http://intros.c64.org -