C64 Acme Source Snippets
Suche
Index
FAQ
Kontakt
Zurück
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.
logo




!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
  Rubrik:  C64
Rubriken-Übersicht
 94 Besucher online 

Valid XHTML 1.0 Transitional Valid CSS!