; MASM x86 DOS6.22 1997

STAPEL  SEGMENT STACK
        DW 64 DUP (?)
STAPEL  ENDS


HAUPT   SEGMENT
        ASSUME  CS:HAUPT;SS:STAPEL

        mov     ax,0006h        ;Video mode 640*200 graphics black\white
        int     10h
       
        mov     ax,0b800h       ;set segments
        mov     ds,ax
        mov     es,ax
        mov     ds:[0],ax       ;"seed" for random generator
        cld                     ;direction for stosw, not to get confused with 6502 CLD.

RAUSCH: xor     di,di           ;set pointers
        mov     cx,2000h
       
RAU1:   mov     ax,ds:[di]
        adc     bx,ax           ;"randomly" change pixels
        adc     ax,bx
        stosw
        loop    RAU1            ;screen completed ?

        mov     ah,2            ;read keyboard status
        int     16h
        and     al,0fh          ;CTRL,SHIFT or ALT pressed ?
        jz      RAUSCH          ;exit, if yes.

        mov     ax,0003h        ;Video mode 80*25 text
        int     10h
        mov     ah,4ch
        int     21h             ;end program.
;
HAUPT   ENDS
        END

;Quick & dirty C64 implementation
;only 192*96 pixels used

INIT
        LDA     #$00   ; background color
        STA     $D020
        STA     $D021

        LDA     $3B   ; 320*200 HiRes mode
        STA     $D011
        LDA     $18
        STA     $D018
;
        LDX     #$04   ; init color RAM
        LDA     #$00
        JSR     CLR

        LDX     #$20   ; init graphics RAM
        LDA     #$10
        JSR     CLR
;
NOISE
        LDA     #$7F   ; init pointer
        STA     $22
        LDA     #$26
        STA     $23
        LDX     #$0C
NO1
        LDY     #$C0
NO2
        ROR     A   ; the inner loop
        ADC     ($22),
        ROL     A
        STA     ($22),Y

        DEY
        BNE     NO2

        PHP
        PHA

        CLC
        LDA     $22
        ADC     #$40
        STA     $22
        LDA     $23
        ADC     #$01
        STA     $23

        PLA
        PLP

        DEX
        BPL     NO1

        LDY     $91     ;Run Stop ?
        BMI     NOISE
        JMP     ($FF81)   ;reset VIC2 and exit, if yes.


;----------------------------

CLR
        LDY     #$00
        STY     $22
        STX     $23
CLR1
        STA     ($22),Y
        INY
        BNE     CLR1

        INC     $23
        DEX
        BNE     CLR1
        RTS

;=============================
                 
.1000 A9 00 8D 20 D0 8D 21 D0
.1008 A9 3B 8D 11 D0 A9 18 8D
.1010 18 D0 A2 04 A9 10 20 50
.1018 10 A2 20 A9 00 20 50 10
.1020 A9 7F 85 22 A9 26 85 23
.1028 A2 0C A0 C0 6A 71 22 2A
.1030 91 22 88 D0 F7 08 48 18
.1038 A5 22 69 40 85 22 A5 23
.1040 69 01 85 23 68 28 CA 10
.1048 E1 A4 91 30 D3 6C 81 FF
.1050 A0 00 84 22 86 23 91 22
.1058 C8 D0 FB E6 23 CA D0 F6
.1060 60