|
Source Codes
Hier findest Du einige kleine Listings für den ACME Cross Compiler. Die einzelnen Listings sind bei meinen Experimenten mit dem Compiler entstanden. Alle Files sind auf dem C64 ausführbar. Ich schreibe gelegentlich kleine Routinen für eigene Zwecke. Die funktionstüchtigen Ergebnisse kann hier jeder zu Testzwecken oder zum Weiterverwenden runterladen. Viel Spaß damit. |
|
!to "test.bin",cbm
!cpu 6502
*=$1000
; set screencolor and border to black (0)
start
lda#$00
sta$d020
sta$d021
rts
;-----------------------------------------------------------------------
!to "init.bin",cbm
!cpu 6502
*=$1000
; open 15,8,15,"i" in Assembler
;
; sys 4099 to test
;
; also possible to validate (v). You only need to change string.
;
string !byte 73
init
lda#$0f ; #15
ldx#$08 ; #8
ldy#$0f ;#15
jsr $ffba
lda #$01
ldx#<(string)
ldy#>(string)
jsr$ffbd
jsr$ffc0
lda#$0f ;#15
jsr$ffc3 ;close
rts ;
;-----------------------------------------------------------------------
!to "joy.bin",cbm
!cpu 6502
*=$1000
; Joysticktest
; raw workfile
cia1base = $dc00
cia1portb =$dc01
bsout = $ffd2
rahmen = $d020
storage =$1100
start lda #$93
jsr$ffd2
ldx #$0a
ldy #$0e
jsr $fff0
ldx #$00
lda $1101,x
jsr bsout
mainloop jsr mainmask
lda cia1base
ror
bcc oben
ror
bcc unten
ror
bcc links
ror
bcc rechts
ror
bcc fire
taste lda cia1portb
cmp#$ff
beq mainloop
jmp ende
center ldx #$0a
ldy #$0e
jsr $fff0
ldx #$00
lda $1100,x
jsr bsout
jsr verzoegerung
jmp mainloop
main2 ldy #$ff
jsr $eeb3
jmp mainloop
oben ldx #$08
ldy #$0e
jsr move
jmp center
unten ldx #$0c
ldy #$0e
jsr move
jmp center
links ldx #$0a
ldy #$0c
jsr move
jmp center
rechts ldx #$0a
ldy #$10
jsr move
jmp center
fire inc rahmen
jmp main2
move jsr $fff0
ldx #$00
lda $1100,x
jsr bsout
jsr verzoegerung
lda #$93
jsr$ffd2
rts
verzoegerung ldx #$ff
.loop2 ldy #$ff
.loop1 dey
bne .loop1
dex
bne .loop2
rts
mainmask rts
ende rts
|
Letzte Änderung: 2019-01-03 11:40:57
