Hallo, guten Tag.
Wer kann mir bitte diese + und - mal mit Worten zuordnen?
Danke.
Gruss
Code
- !to"funcrom.bin",plain
- *=$8000
- jmp init
- jmp start
- !by $0c,$43,$42,$4d ; module-nr., "CBM"
- !scr "SYS1525: MYTOOL " ; replace module-name
- !by $00,$20,$20,$20
- !scr " MYTOOL ON KEY F"; replace module-name
- !by $00,$20
- copybytes:
- ldx #$05
- lda #$80 ; cart_start hi
- sta $05F1
- lda #$03 ; cart_start lo ; $8003
- sta $05F0
- sta $05F4
- lda $FB
- jmp $FCFA ; ->$fc89 longjump
- init: ldy #$00
- sty $D9
- lda $FB
- sta $7FFF
- and #$03
- tax
- sta $FDD0,X ; banking
- cmp #$01
- beq +
- iny
- lda $055F
- sta $D9
- + sty $D8
- tya
- beq +
- ldy #$35
- + ldx #$00
- - lda copybytes,X
- sta $05F5,Y
- iny
- inx
- cpx #$14
- bcc -
- L_8072:ldx $D8
- lda #$12
- cmp $055F,X
- beq L_80A1
- bcc L_8090
- ldy #$7E
- - lda $0567,Y
- sta $0568,Y
- dey
- cpy $D9
- bpl -
- inc $055F,X
- jmp L_8072
- L_8090:ldy $D9
- - lda $0568,Y
- sta $0567,Y
- iny
- bpl -
- dec $055F,X
- jmp L_8072
- L_80A1:ldx $D9
- ldy #$00
- - lda $800A,Y ; get "SYS1525: mytool "
- sta $0567,X
- inx
- iny
- cpy #$12
- bcc -
- ldx $D8
- beq +
- ldy $D9
- lda #$37
- sta $056C,Y
- lda #$38
- sta $056D,Y
- lda $FB
- sta $062B
- + ldx #$00
- - lda $801D,X ; get " mytool ON KEY F "
- beq +
- jsr $FFD2
- inx
- bne -
- + lda $D8
- clc
- adc #$31
- jsr $FFD2 ; print F-key number
- lda #$0D
- jmp $FFD2 ; cr
- start:
- sei
- ldx #$FF
- txs
- cli
- nop
- nop
- nop
- nop
- nop
- nop
- nop
- ; lda $FF06 ; switch blank: 2 Mhz
- ; and #$EF
- ; sta $FF06 ; useful for speedy copy
- ; place for your code
- ;
- - inc $ff19 ; frame color-rotation
- ;
- ;
- ; lda $FF06 ; screen on
- ; ora #$10
- ; sta $FF06
- jmp -
- ;endmarker
- *=$bfff
- !by $00
