Sayfa 13

*=$c000

lda #<yeni ldx #>yeni sta $0308 stx $0309 rts yeni lda $7a ldx $7b sta $fb stx $fc lda #<comset ldx #>comset sta $fd stx $fe ldx #$00 ldy #$00 loop0 jsr $0073 sta $02 loop1 lda ($fd),y cmp $02 bne nextcom iny tya cmp comlen,x bne loop0 exec txa asl tax lda comexe+1,x pha lda comexe,x pha rts nextcom lda comlen,x clc adc $fd sta $fd bcc next0 inc $fc next0 inx cpx commax bne loop1 lda $fb ldx $fc sta $7a stx $7b jmp $a7e4 ;---------------------------------------------------------------------------------------; commax .byte 6 comlen .byte 5,3,3,5,6,5 comset .text "mirr" ; MIRR .byte $b0 ; OR .text "inv" ; INV .byte $46,$91,$54 ; F "ON" T .text "speed" ; SPEED .text "screen" ; SCREEN .text "delay" ; DELAY comexe .word mirror-1 .word inv-1 .word font-1 .word speed-1 .word screen-1 .word delay-1