Hallo, guten tag.
Ich habe hier einen ASM-Code der als Basic startet. der auch funktioniert.
Bevor das ASM-Programm startet muss dieses eingegeben werden:
poke 44,34:poke 34*256,0:new
Nach dem Poke startet ich das ASM-programm. Springt aber sofort wieder raus.
Danke.
Gruss
Code
- !to "vbgrafik.p", cbm
- ; VC20
- BGCOLOR = $9400
- BASIC = $1201
- SCREENRAM = $1000
- ;==========================================================
- ; BASIC header
- ;==========================================================
- * = BASIC
- !byte $0b, $08
- !byte $E3 ; BASIC line number: $E2=2018 $E3=2019 etc
- !byte $07, $9E
- !byte '0' + entry % 10000 / 1000
- !byte '0' + entry % 1000 / 100
- !byte '0' + entry % 100 / 10
- !byte '0' + entry % 10
- !byte $00, $00, $00 ; end of basic
- ;==========================================================
- ; CODE
- ;==========================================================
- entry
- ldx #$00
- loop0
- lda #$00
- sta 4352,x
- inx
- bne loop0
- ldx #$00
- loop1
- lda #$00
- sta 4352+255,x
- inx
- bne loop1
- ldx #$00
- loop2
- lda #$00
- sta 4352+510,x
- inx
- bne loop2
- ldx #$00
- loop3
- lda #$00
- sta 4352+765,x
- inx
- bne loop3
- ende
- jmp ende
- rts