1.1 --- a/switcher.oph Mon Aug 17 14:55:26 2015 +0200
1.2 +++ b/switcher.oph Mon Aug 17 16:36:57 2015 +0200
1.3 @@ -385,18 +385,43 @@
1.4 .word first_task_start ; saved PC
1.5 first_task_start:
1.6 lda #1
1.7 - sta $7000
1.8 + sta first_task_counter
1.9 lda #0
1.10 - sta $7001
1.11 + sta first_task_counter+1
1.12 first_task_continue:
1.13 + lda #31
1.14 + jsr $ffee
1.15 + lda #30
1.16 + jsr $ffee
1.17 + lda #1
1.18 + jsr $ffee
1.19 + clc
1.20 + lda first_task_counter+1
1.21 + adc #48 ; ASCII "0"
1.22 + jsr $ffee
1.23 + clc
1.24 + lda first_task_counter
1.25 + adc #48 ; ASCII "0"
1.26 + jsr $ffee
1.27 clc
1.28 - lda $7000
1.29 + lda first_task_counter
1.30 adc #1
1.31 - sta $7000
1.32 - lda $7001
1.33 - adc #0
1.34 - sta $7001
1.35 + sta first_task_counter
1.36 + cmp #10
1.37 + bne first_task_continue
1.38 + lda #0
1.39 + sta first_task_counter
1.40 + clc
1.41 + lda first_task_counter+1
1.42 + adc #1
1.43 + sta first_task_counter+1
1.44 + cmp #10
1.45 + bne first_task_continue
1.46 + lda #0
1.47 + sta first_task_counter+1
1.48 jmp first_task_continue
1.49 +first_task_counter:
1.50 + .word 0
1.51
1.52
1.53
1.54 @@ -457,7 +482,7 @@
1.55 lda $7021 ; next MSB
1.56 adc #1
1.57 sta $7021
1.58 - cmp #$ff
1.59 + cmp #$0f
1.60 beq +
1.61 jmp ---
1.62 * .invoke return