@Arda: Basic'e kimin ihtiyacı var?

!to "nobasicneeded.prg",cbm
SCREEN = $0400
SCRPTR = $f0
* = $0900
sei
; Clear Screen
ldx #$00
lda #$20
- sta SCREEN,x
sta SCREEN+208,x
sta SCREEN+208*2,x
sta SCREEN+208*3,x
sta SCREEN+208*4,x
cpx #208
inx
bne -
; Init Screen Pointer
lda #<SCREEN
sta SCRPTR
lda #>SCREEN
sta SCRPTR+1
; Main Loop
.main
ldy #$00
- lda TEXT_START,y
sta (SCRPTR),y
iny
cpy #TEXT_END-TEXT_START
bne -
lda SCRPTR
clc
adc #TEXT_END-TEXT_START
sta SCRPTR
bcc +
inc SCRPTR+1
+
lda SCRPTR+1
cmp #(>SCREEN)+$03
bcc +
lda SCRPTR
cmp #$e8
bcc +
; Shift Screen Up
jsr shiftScreenUp
+
lda #$f0
- cmp $d012
bne -
jmp .main
shiftScreenUp
ldx #$00
-
!for i,25 {
lda SCREEN+40*i,x
sta SCREEN+40*(i-1),x
}
inx
cpx #40
beq +
jmp -
+
lda SCRPTR
sec
sbc #40
sta SCRPTR
bcs +
dec SCRPTR+1
+
ldy #$00
lda #$20
- sta (SCRPTR),y
iny
cpy #40
bne -
rts
TEXT_START = *
!scr "en buyuk arda "
TEXT_END = *
isteyenler için download linki
http://www.akaydin.com/c64/codes/skate/nobasicneeded.zipDiyelim ki Basic ROM'u yok. Açın Vice'ı, girin monitöre. Diyelim ki compile edilmiş prg dosyamızı C drive'ının rootuna kopyaladık;
l "c:\nobasicneeded.prg" 0
g 0900
yazarak çalıştırabilirsiniz programı.
NO BASIC NEEDED!
