# HG changeset patch
# User Paul Boddie <paul@boddie.org.uk>
# Date 1439822217 -7200
# Node ID fe59bae96242e8dfd18b167ee3e425b976023f90
# Parent  1cbf83f55fcc5ff39fbc16c798fcced15912ad08
Changed the first task to use VDU code output, shortening the delay in the third
task to preserve a reasonable duration for the first task.

diff -r 1cbf83f55fcc -r fe59bae96242 switcher.oph
--- a/switcher.oph	Mon Aug 17 14:55:26 2015 +0200
+++ b/switcher.oph	Mon Aug 17 16:36:57 2015 +0200
@@ -385,18 +385,43 @@
     .word first_task_start ; saved PC
 first_task_start:
     lda #1
-    sta $7000
+    sta first_task_counter
     lda #0
-    sta $7001
+    sta first_task_counter+1
 first_task_continue:
+    lda #31
+    jsr $ffee
+    lda #30
+    jsr $ffee
+    lda #1
+    jsr $ffee
+    clc
+    lda first_task_counter+1
+    adc #48 ; ASCII "0"
+    jsr $ffee
+    clc
+    lda first_task_counter
+    adc #48 ; ASCII "0"
+    jsr $ffee
     clc
-    lda $7000
+    lda first_task_counter
     adc #1
-    sta $7000
-    lda $7001
-    adc #0
-    sta $7001
+    sta first_task_counter
+    cmp #10
+    bne first_task_continue
+    lda #0
+    sta first_task_counter
+    clc
+    lda first_task_counter+1
+    adc #1
+    sta first_task_counter+1
+    cmp #10
+    bne first_task_continue
+    lda #0
+    sta first_task_counter+1
     jmp first_task_continue
+first_task_counter:
+    .word 0
 
 
 
@@ -457,7 +482,7 @@
     lda $7021 ; next MSB
     adc #1
     sta $7021
-    cmp #$ff
+    cmp #$0f
     beq +
     jmp ---
 *   .invoke return