2003-02-13 21:29:12 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 2003-02-13
|
|
|
|
|
;
|
|
|
|
|
; void fast (void);
|
|
|
|
|
; /* Switch the CPU into 2MHz mode. Note: This will disable video when in
|
|
|
|
|
; * 40 column mode.
|
|
|
|
|
; */
|
|
|
|
|
;
|
|
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
.export _fast
|
2003-02-13 21:29:12 +00:00
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
.include "c128.inc"
|
2003-02-13 21:29:12 +00:00
|
|
|
|
|
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
.proc _fast
|
2003-02-13 21:29:12 +00:00
|
|
|
|
2013-05-09 13:56:54 +02:00
|
|
|
lda #$01
|
|
|
|
|
sta VIC_CLK_128
|
|
|
|
|
rts
|
2003-02-13 21:29:12 +00:00
|
|
|
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
