home *** CD-ROM | disk | FTP | other *** search
-
- ;---------------------------------------
- ;Laderoutine fuer die BITCHAOS.
- ;Mit 'jmp load' aufrufen.
- ;(Erst IRQ zurueckstellen!)
- ;Bei Fragen: (036922)20901 (Sven)
- ;---------------------------------------
-
- load jsr $ff5b
- lda #0
- sta $d020
- sta $d021
- sta $0286
- jsr $e544
-
- ldx #$23
- loop lda copy,x
- sta $0400,x
- dex
- bne loop
- jmp $0401
-
- copy nop
- ldx #$08
- ldy #$00
- jsr $ffba
- ldx #<name
- ldy #>name
- lda #$02
- jsr $ffbd
- ldx #$01
- ldy #$08
- lda #$00
- jsr $ffd5
- jmp $081a
- name .text "a*"
-
-