mirror of
https://github.com/irmen/prog8.git
synced 2024-11-27 03:50:27 +00:00
10714 lines
224 KiB
NASM
10714 lines
224 KiB
NASM
; w65c02 assembly code for 'testforloops'
|
|
; generated by prog8.codegen.cpu6502.ProgramAndVarsGen on 2024-03-13T21:13:58
|
|
; assembler syntax is for the 64tasm cross-assembler
|
|
; output options: output=PRG launcher=BASIC zp=BASICSAFE
|
|
|
|
.cpu 'w65c02'
|
|
.enc 'none'
|
|
P8ZP_SCRATCH_B1 = 122
|
|
P8ZP_SCRATCH_REG = 123
|
|
P8ZP_SCRATCH_W1 = 124 ; word
|
|
P8ZP_SCRATCH_W2 = 126 ; word
|
|
.weak
|
|
.endweak
|
|
; ---- basic program with sys call ----
|
|
* = $0801
|
|
.word (+), 2024
|
|
.null $9e, format(' %d ', prog8_entrypoint), $3a, $8f, ' prog8'
|
|
+ .word 0
|
|
prog8_entrypoint ; assembly code starts here
|
|
jsr sys.init_system
|
|
jsr sys.init_system_phase2
|
|
jsr p8b_main.p8s_start
|
|
jmp sys.cleanup_at_exit
|
|
|
|
; ---- block: 'p8b_main' ----
|
|
p8b_main .proc
|
|
|
|
|
|
|
|
p8s_start .proc
|
|
p8v_ww = 34 ; zp WORD
|
|
p8v_uw = 36 ; zp UWORD
|
|
p8v_ub = 38 ; zp UBYTE
|
|
p8v_totaluw = 39 ; zp UWORD
|
|
p8v_total = 41 ; zp WORD
|
|
p8v_endw1 = 43 ; zp WORD
|
|
p8v_enduw1 = 45 ; zp UWORD
|
|
p8v_endub1 = 47 ; zp UBYTE
|
|
p8v_endb1 = 48 ; zp BYTE
|
|
p8v_count = 49 ; zp UWORD
|
|
p8v_bb = 51 ; zp BYTE
|
|
p8v_aa = 52 ; zp UBYTE
|
|
p8v_a = 53 ; zp UBYTE
|
|
; program startup initialization
|
|
cld
|
|
tsx
|
|
stx prog8_lib.orig_stackpointer ; required for sys.exit()
|
|
.if prog8_bss_section_size>0
|
|
; reset all variables in BSS section to zero
|
|
lda #<prog8_bss_section_start
|
|
ldy #>prog8_bss_section_start
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
ldx #<prog8_bss_section_size
|
|
ldy #>prog8_bss_section_size
|
|
lda #0
|
|
jsr prog8_lib.memset
|
|
.endif
|
|
+
|
|
clv
|
|
clc
|
|
; statements
|
|
stz p8v_endub1
|
|
stz p8v_endb1
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_aa
|
|
stz p8v_ub
|
|
stz p8v_bb
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
stz p8v_a
|
|
ldy #0
|
|
ldx #$18
|
|
jsr txt.plot
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_1
|
|
lda #<prog8_interned_strings.string_1
|
|
jsr txt.print
|
|
lda #<prog8_interned_strings.string_2
|
|
ldy #>prog8_interned_strings.string_2
|
|
sta label_asm_1_for_loop+1
|
|
sty label_asm_1_for_loop+2
|
|
label_asm_1_for_loop lda $ffff ; modified
|
|
beq label_asm_2_for_end
|
|
sta p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
inc label_asm_1_for_loop+1
|
|
bne label_asm_1_for_loop
|
|
inc label_asm_1_for_loop+2
|
|
bne label_asm_1_for_loop
|
|
label_asm_2_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_5_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_5_else
|
|
lda #1
|
|
bra label_asm_4_afterif
|
|
label_asm_5_else
|
|
lda #0
|
|
label_asm_4_afterif
|
|
beq label_asm_3_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<372
|
|
bne label_asm_7_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>372
|
|
bne label_asm_7_else
|
|
lda #1
|
|
bra label_asm_6_afterif
|
|
label_asm_7_else
|
|
lda #0
|
|
label_asm_6_afterif
|
|
label_asm_3_shortcut
|
|
beq label_asm_9_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_8_afterif
|
|
label_asm_9_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_8_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_5
|
|
lda #<prog8_interned_strings.string_5
|
|
jsr txt.print
|
|
ldy #0
|
|
label_asm_10_for_loop sty label_asm_12_for_index
|
|
lda p8v_auto_heap_value_1,y
|
|
sta p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
ldy label_asm_12_for_index
|
|
iny
|
|
cpy #4
|
|
beq label_asm_11_for_end
|
|
bne label_asm_10_for_loop
|
|
label_asm_12_for_index .byte 0
|
|
label_asm_11_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_15_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_15_else
|
|
lda #1
|
|
bra label_asm_14_afterif
|
|
label_asm_15_else
|
|
lda #0
|
|
label_asm_14_afterif
|
|
beq label_asm_13_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<108
|
|
bne label_asm_17_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>108
|
|
bne label_asm_17_else
|
|
lda #1
|
|
bra label_asm_16_afterif
|
|
label_asm_17_else
|
|
lda #0
|
|
label_asm_16_afterif
|
|
label_asm_13_shortcut
|
|
beq label_asm_19_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_18_afterif
|
|
label_asm_19_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_18_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_6
|
|
lda #<prog8_interned_strings.string_6
|
|
jsr txt.print
|
|
ldy #0
|
|
label_asm_20_for_loop sty label_asm_22_for_index
|
|
lda p8v_ubarr,y
|
|
sta p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
ldy label_asm_22_for_index
|
|
iny
|
|
cpy #5
|
|
beq label_asm_21_for_end
|
|
bne label_asm_20_for_loop
|
|
label_asm_22_for_index .byte 0
|
|
label_asm_21_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_25_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_25_else
|
|
lda #1
|
|
bra label_asm_24_afterif
|
|
label_asm_25_else
|
|
lda #0
|
|
label_asm_24_afterif
|
|
beq label_asm_23_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<220
|
|
bne label_asm_27_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>220
|
|
bne label_asm_27_else
|
|
lda #1
|
|
bra label_asm_26_afterif
|
|
label_asm_27_else
|
|
lda #0
|
|
label_asm_26_afterif
|
|
label_asm_23_shortcut
|
|
beq label_asm_29_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_28_afterif
|
|
label_asm_29_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_28_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_7
|
|
lda #<prog8_interned_strings.string_7
|
|
jsr txt.print
|
|
lda #10
|
|
sta p8v_a
|
|
label_asm_30_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
inc p8v_a
|
|
lda p8v_a
|
|
cmp #21
|
|
bne label_asm_30_for_loop
|
|
label_asm_31_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<11
|
|
bne label_asm_34_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>11
|
|
bne label_asm_34_else
|
|
lda #1
|
|
bra label_asm_33_afterif
|
|
label_asm_34_else
|
|
lda #0
|
|
label_asm_33_afterif
|
|
beq label_asm_32_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<165
|
|
bne label_asm_36_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>165
|
|
bne label_asm_36_else
|
|
lda #1
|
|
bra label_asm_35_afterif
|
|
label_asm_36_else
|
|
lda #0
|
|
label_asm_35_afterif
|
|
label_asm_32_shortcut
|
|
beq label_asm_38_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_37_afterif
|
|
label_asm_38_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_37_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_8
|
|
lda #<prog8_interned_strings.string_8
|
|
jsr txt.print
|
|
lda #20
|
|
sta p8v_a
|
|
label_asm_39_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
dec p8v_a
|
|
lda p8v_a
|
|
cmp #9
|
|
bne label_asm_39_for_loop
|
|
label_asm_40_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<11
|
|
bne label_asm_43_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>11
|
|
bne label_asm_43_else
|
|
lda #1
|
|
bra label_asm_42_afterif
|
|
label_asm_43_else
|
|
lda #0
|
|
label_asm_42_afterif
|
|
beq label_asm_41_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<165
|
|
bne label_asm_45_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>165
|
|
bne label_asm_45_else
|
|
lda #1
|
|
bra label_asm_44_afterif
|
|
label_asm_45_else
|
|
lda #0
|
|
label_asm_44_afterif
|
|
label_asm_41_shortcut
|
|
beq label_asm_47_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_46_afterif
|
|
label_asm_47_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_46_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_9
|
|
lda #<prog8_interned_strings.string_9
|
|
jsr txt.print
|
|
lda #10
|
|
sta p8v_a
|
|
label_asm_48_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_a
|
|
cmp #19
|
|
beq label_asm_49_for_end
|
|
clc
|
|
adc #3
|
|
sta p8v_a
|
|
bra label_asm_48_for_loop
|
|
label_asm_49_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_52_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_52_else
|
|
lda #1
|
|
bra label_asm_51_afterif
|
|
label_asm_52_else
|
|
lda #0
|
|
label_asm_51_afterif
|
|
beq label_asm_50_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<58
|
|
bne label_asm_54_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>58
|
|
bne label_asm_54_else
|
|
lda #1
|
|
bra label_asm_53_afterif
|
|
label_asm_54_else
|
|
lda #0
|
|
label_asm_53_afterif
|
|
label_asm_50_shortcut
|
|
beq label_asm_56_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_55_afterif
|
|
label_asm_56_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_55_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_10
|
|
lda #<prog8_interned_strings.string_10
|
|
jsr txt.print
|
|
lda #10
|
|
sta p8v_a
|
|
label_asm_57_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_a
|
|
cmp #22
|
|
beq label_asm_58_for_end
|
|
clc
|
|
adc #3
|
|
sta p8v_a
|
|
bra label_asm_57_for_loop
|
|
label_asm_58_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_61_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_61_else
|
|
lda #1
|
|
bra label_asm_60_afterif
|
|
label_asm_61_else
|
|
lda #0
|
|
label_asm_60_afterif
|
|
beq label_asm_59_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<80
|
|
bne label_asm_63_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>80
|
|
bne label_asm_63_else
|
|
lda #1
|
|
bra label_asm_62_afterif
|
|
label_asm_63_else
|
|
lda #0
|
|
label_asm_62_afterif
|
|
label_asm_59_shortcut
|
|
beq label_asm_65_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_64_afterif
|
|
label_asm_65_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_64_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_11
|
|
lda #<prog8_interned_strings.string_11
|
|
jsr txt.print
|
|
lda #24
|
|
sta p8v_a
|
|
label_asm_66_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_a
|
|
cmp #12
|
|
beq label_asm_67_for_end
|
|
clc
|
|
adc #-3
|
|
sta p8v_a
|
|
bra label_asm_66_for_loop
|
|
label_asm_67_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_70_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_70_else
|
|
lda #1
|
|
bra label_asm_69_afterif
|
|
label_asm_70_else
|
|
lda #0
|
|
label_asm_69_afterif
|
|
beq label_asm_68_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<90
|
|
bne label_asm_72_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>90
|
|
bne label_asm_72_else
|
|
lda #1
|
|
bra label_asm_71_afterif
|
|
label_asm_72_else
|
|
lda #0
|
|
label_asm_71_afterif
|
|
label_asm_68_shortcut
|
|
beq label_asm_74_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_73_afterif
|
|
label_asm_74_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_73_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_12
|
|
lda #<prog8_interned_strings.string_12
|
|
jsr txt.print
|
|
lda #24
|
|
sta p8v_a
|
|
label_asm_75_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_a
|
|
cmp #9
|
|
beq label_asm_76_for_end
|
|
clc
|
|
adc #-3
|
|
sta p8v_a
|
|
bra label_asm_75_for_loop
|
|
label_asm_76_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<6
|
|
bne label_asm_79_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>6
|
|
bne label_asm_79_else
|
|
lda #1
|
|
bra label_asm_78_afterif
|
|
label_asm_79_else
|
|
lda #0
|
|
label_asm_78_afterif
|
|
beq label_asm_77_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<99
|
|
bne label_asm_81_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>99
|
|
bne label_asm_81_else
|
|
lda #1
|
|
bra label_asm_80_afterif
|
|
label_asm_81_else
|
|
lda #0
|
|
label_asm_80_afterif
|
|
label_asm_77_shortcut
|
|
beq label_asm_83_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_82_afterif
|
|
label_asm_83_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_82_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$65
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_13
|
|
lda #<prog8_interned_strings.string_13
|
|
jsr txt.print
|
|
lda #$5f
|
|
sta p8v_a
|
|
lda p8v_endub1
|
|
cmp p8v_a
|
|
bcc label_asm_85_for_end
|
|
sta label_asm_86_for_modified+1
|
|
label_asm_84_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_a
|
|
label_asm_86_for_modified cmp #0 ; modified
|
|
beq label_asm_85_for_end
|
|
inc p8v_a
|
|
bra label_asm_84_for_loop
|
|
label_asm_85_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<7
|
|
bne label_asm_90_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>7
|
|
bne label_asm_90_else
|
|
lda #1
|
|
bra label_asm_89_afterif
|
|
label_asm_90_else
|
|
lda #0
|
|
label_asm_89_afterif
|
|
beq label_asm_88_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<686
|
|
bne label_asm_92_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>686
|
|
bne label_asm_92_else
|
|
lda #1
|
|
bra label_asm_91_afterif
|
|
label_asm_92_else
|
|
lda #0
|
|
label_asm_91_afterif
|
|
label_asm_88_shortcut
|
|
beq label_asm_94_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_93_afterif
|
|
label_asm_94_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_93_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$65
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_14
|
|
lda #<prog8_interned_strings.string_14
|
|
jsr txt.print
|
|
lda p8v_endub1
|
|
sta p8v_a
|
|
|
|
lda #$5f
|
|
cmp p8v_a
|
|
beq +
|
|
bcs label_asm_96_for_end
|
|
+
|
|
sta label_asm_97_for_modified+1
|
|
label_asm_95_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_a
|
|
label_asm_97_for_modified cmp #0 ; modified
|
|
beq label_asm_96_for_end
|
|
dec p8v_a
|
|
bra label_asm_95_for_loop
|
|
label_asm_96_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<7
|
|
bne label_asm_101_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>7
|
|
bne label_asm_101_else
|
|
lda #1
|
|
bra label_asm_100_afterif
|
|
label_asm_101_else
|
|
lda #0
|
|
label_asm_100_afterif
|
|
beq label_asm_99_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<686
|
|
bne label_asm_103_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>686
|
|
bne label_asm_103_else
|
|
lda #1
|
|
bra label_asm_102_afterif
|
|
label_asm_103_else
|
|
lda #0
|
|
label_asm_102_afterif
|
|
label_asm_99_shortcut
|
|
beq label_asm_105_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_104_afterif
|
|
label_asm_105_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_104_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$69
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_15
|
|
lda #<prog8_interned_strings.string_15
|
|
jsr txt.print
|
|
lda #$5f
|
|
sta p8v_a
|
|
lda p8v_endub1
|
|
cmp p8v_a
|
|
bcc label_asm_107_for_end
|
|
sta label_asm_108_for_modified+1
|
|
label_asm_106_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_a
|
|
clc
|
|
adc #3
|
|
sta p8v_a
|
|
label_asm_108_for_modified cmp #0 ; modified
|
|
bmi label_asm_106_for_loop
|
|
beq label_asm_106_for_loop
|
|
label_asm_107_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_112_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_112_else
|
|
lda #1
|
|
bra label_asm_111_afterif
|
|
label_asm_112_else
|
|
lda #0
|
|
label_asm_111_afterif
|
|
beq label_asm_110_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<398
|
|
bne label_asm_114_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>398
|
|
bne label_asm_114_else
|
|
lda #1
|
|
bra label_asm_113_afterif
|
|
label_asm_114_else
|
|
lda #0
|
|
label_asm_113_afterif
|
|
label_asm_110_shortcut
|
|
beq label_asm_116_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_115_afterif
|
|
label_asm_116_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_115_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$69
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_16
|
|
lda #<prog8_interned_strings.string_16
|
|
jsr txt.print
|
|
lda p8v_endub1
|
|
sta p8v_a
|
|
|
|
lda #$5f
|
|
cmp p8v_a
|
|
beq +
|
|
bcs label_asm_118_for_end
|
|
+
|
|
sta label_asm_119_for_modified+1
|
|
label_asm_117_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_a
|
|
sec
|
|
sbc #3
|
|
sta p8v_a
|
|
label_asm_119_for_modified cmp #0 ; modified
|
|
bpl label_asm_117_for_loop
|
|
label_asm_118_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_123_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_123_else
|
|
lda #1
|
|
bra label_asm_122_afterif
|
|
label_asm_123_else
|
|
lda #0
|
|
label_asm_122_afterif
|
|
beq label_asm_121_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<402
|
|
bne label_asm_125_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>402
|
|
bne label_asm_125_else
|
|
lda #1
|
|
bra label_asm_124_afterif
|
|
label_asm_125_else
|
|
lda #0
|
|
label_asm_124_afterif
|
|
label_asm_121_shortcut
|
|
beq label_asm_127_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_126_afterif
|
|
label_asm_127_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_126_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$6b
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_17
|
|
lda #<prog8_interned_strings.string_17
|
|
jsr txt.print
|
|
lda #$5f
|
|
sta p8v_a
|
|
lda p8v_endub1
|
|
cmp p8v_a
|
|
bcc label_asm_129_for_end
|
|
sta label_asm_130_for_modified+1
|
|
label_asm_128_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_a
|
|
clc
|
|
adc #3
|
|
sta p8v_a
|
|
label_asm_130_for_modified cmp #0 ; modified
|
|
bmi label_asm_128_for_loop
|
|
beq label_asm_128_for_loop
|
|
label_asm_129_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_134_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_134_else
|
|
lda #1
|
|
bra label_asm_133_afterif
|
|
label_asm_134_else
|
|
lda #0
|
|
label_asm_133_afterif
|
|
beq label_asm_132_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<505
|
|
bne label_asm_136_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>505
|
|
bne label_asm_136_else
|
|
lda #1
|
|
bra label_asm_135_afterif
|
|
label_asm_136_else
|
|
lda #0
|
|
label_asm_135_afterif
|
|
label_asm_132_shortcut
|
|
beq label_asm_138_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_137_afterif
|
|
label_asm_138_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_137_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$6b
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_18
|
|
lda #<prog8_interned_strings.string_18
|
|
jsr txt.print
|
|
lda p8v_endub1
|
|
sta p8v_a
|
|
|
|
lda #$5f
|
|
cmp p8v_a
|
|
beq +
|
|
bcs label_asm_140_for_end
|
|
+
|
|
sta label_asm_141_for_modified+1
|
|
label_asm_139_for_loop
|
|
lda p8v_a
|
|
sta p8v_aa
|
|
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_aa
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_a
|
|
sec
|
|
sbc #3
|
|
sta p8v_a
|
|
label_asm_141_for_modified cmp #0 ; modified
|
|
bpl label_asm_139_for_loop
|
|
label_asm_140_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_145_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_145_else
|
|
lda #1
|
|
bra label_asm_144_afterif
|
|
label_asm_145_else
|
|
lda #0
|
|
label_asm_144_afterif
|
|
beq label_asm_143_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<505
|
|
bne label_asm_147_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>505
|
|
bne label_asm_147_else
|
|
lda #1
|
|
bra label_asm_146_afterif
|
|
label_asm_147_else
|
|
lda #0
|
|
label_asm_146_afterif
|
|
label_asm_143_shortcut
|
|
beq label_asm_149_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_148_afterif
|
|
label_asm_149_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_148_afterif
|
|
jsr p8b_main.p8s_wait_input
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_19
|
|
lda #<prog8_interned_strings.string_19
|
|
jsr txt.print
|
|
lda #<prog8_interned_strings.string_2
|
|
ldy #>prog8_interned_strings.string_2
|
|
sta label_asm_150_for_loop+1
|
|
sty label_asm_150_for_loop+2
|
|
label_asm_150_for_loop lda $ffff ; modified
|
|
beq label_asm_151_for_end
|
|
sta p8v_ub
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
inc label_asm_150_for_loop+1
|
|
bne label_asm_150_for_loop
|
|
inc label_asm_150_for_loop+2
|
|
bne label_asm_150_for_loop
|
|
label_asm_151_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_154_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_154_else
|
|
lda #1
|
|
bra label_asm_153_afterif
|
|
label_asm_154_else
|
|
lda #0
|
|
label_asm_153_afterif
|
|
beq label_asm_152_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<372
|
|
bne label_asm_156_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>372
|
|
bne label_asm_156_else
|
|
lda #1
|
|
bra label_asm_155_afterif
|
|
label_asm_156_else
|
|
lda #0
|
|
label_asm_155_afterif
|
|
label_asm_152_shortcut
|
|
beq label_asm_158_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_157_afterif
|
|
label_asm_158_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_157_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_20
|
|
lda #<prog8_interned_strings.string_20
|
|
jsr txt.print
|
|
ldy #0
|
|
label_asm_159_for_loop sty label_asm_161_for_index
|
|
lda p8v_auto_heap_value_2,y
|
|
sta p8v_ub
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
ldy label_asm_161_for_index
|
|
iny
|
|
cpy #4
|
|
beq label_asm_160_for_end
|
|
bne label_asm_159_for_loop
|
|
label_asm_161_for_index .byte 0
|
|
label_asm_160_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_164_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_164_else
|
|
lda #1
|
|
bra label_asm_163_afterif
|
|
label_asm_164_else
|
|
lda #0
|
|
label_asm_163_afterif
|
|
beq label_asm_162_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<108
|
|
bne label_asm_166_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>108
|
|
bne label_asm_166_else
|
|
lda #1
|
|
bra label_asm_165_afterif
|
|
label_asm_166_else
|
|
lda #0
|
|
label_asm_165_afterif
|
|
label_asm_162_shortcut
|
|
beq label_asm_168_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_167_afterif
|
|
label_asm_168_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_167_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_21
|
|
lda #<prog8_interned_strings.string_21
|
|
jsr txt.print
|
|
ldy #0
|
|
label_asm_169_for_loop sty label_asm_171_for_index
|
|
lda p8v_ubarr,y
|
|
sta p8v_ub
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
ldy label_asm_171_for_index
|
|
iny
|
|
cpy #5
|
|
beq label_asm_170_for_end
|
|
bne label_asm_169_for_loop
|
|
label_asm_171_for_index .byte 0
|
|
label_asm_170_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_174_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_174_else
|
|
lda #1
|
|
bra label_asm_173_afterif
|
|
label_asm_174_else
|
|
lda #0
|
|
label_asm_173_afterif
|
|
beq label_asm_172_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<220
|
|
bne label_asm_176_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>220
|
|
bne label_asm_176_else
|
|
lda #1
|
|
bra label_asm_175_afterif
|
|
label_asm_176_else
|
|
lda #0
|
|
label_asm_175_afterif
|
|
label_asm_172_shortcut
|
|
beq label_asm_178_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_177_afterif
|
|
label_asm_178_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_177_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_22
|
|
lda #<prog8_interned_strings.string_22
|
|
jsr txt.print
|
|
lda #10
|
|
sta p8v_ub
|
|
label_asm_179_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
inc p8v_ub
|
|
lda p8v_ub
|
|
cmp #21
|
|
bne label_asm_179_for_loop
|
|
label_asm_180_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<11
|
|
bne label_asm_183_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>11
|
|
bne label_asm_183_else
|
|
lda #1
|
|
bra label_asm_182_afterif
|
|
label_asm_183_else
|
|
lda #0
|
|
label_asm_182_afterif
|
|
beq label_asm_181_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<165
|
|
bne label_asm_185_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>165
|
|
bne label_asm_185_else
|
|
lda #1
|
|
bra label_asm_184_afterif
|
|
label_asm_185_else
|
|
lda #0
|
|
label_asm_184_afterif
|
|
label_asm_181_shortcut
|
|
beq label_asm_187_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_186_afterif
|
|
label_asm_187_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_186_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_23
|
|
lda #<prog8_interned_strings.string_23
|
|
jsr txt.print
|
|
lda #20
|
|
sta p8v_ub
|
|
label_asm_188_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
dec p8v_ub
|
|
lda p8v_ub
|
|
cmp #9
|
|
bne label_asm_188_for_loop
|
|
label_asm_189_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<11
|
|
bne label_asm_192_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>11
|
|
bne label_asm_192_else
|
|
lda #1
|
|
bra label_asm_191_afterif
|
|
label_asm_192_else
|
|
lda #0
|
|
label_asm_191_afterif
|
|
beq label_asm_190_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<165
|
|
bne label_asm_194_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>165
|
|
bne label_asm_194_else
|
|
lda #1
|
|
bra label_asm_193_afterif
|
|
label_asm_194_else
|
|
lda #0
|
|
label_asm_193_afterif
|
|
label_asm_190_shortcut
|
|
beq label_asm_196_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_195_afterif
|
|
label_asm_196_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_195_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_24
|
|
lda #<prog8_interned_strings.string_24
|
|
jsr txt.print
|
|
lda #10
|
|
sta p8v_ub
|
|
label_asm_197_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_ub
|
|
cmp #19
|
|
beq label_asm_198_for_end
|
|
clc
|
|
adc #3
|
|
sta p8v_ub
|
|
bra label_asm_197_for_loop
|
|
label_asm_198_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_201_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_201_else
|
|
lda #1
|
|
bra label_asm_200_afterif
|
|
label_asm_201_else
|
|
lda #0
|
|
label_asm_200_afterif
|
|
beq label_asm_199_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<58
|
|
bne label_asm_203_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>58
|
|
bne label_asm_203_else
|
|
lda #1
|
|
bra label_asm_202_afterif
|
|
label_asm_203_else
|
|
lda #0
|
|
label_asm_202_afterif
|
|
label_asm_199_shortcut
|
|
beq label_asm_205_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_204_afterif
|
|
label_asm_205_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_204_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_25
|
|
lda #<prog8_interned_strings.string_25
|
|
jsr txt.print
|
|
lda #10
|
|
sta p8v_ub
|
|
label_asm_206_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_ub
|
|
cmp #22
|
|
beq label_asm_207_for_end
|
|
clc
|
|
adc #3
|
|
sta p8v_ub
|
|
bra label_asm_206_for_loop
|
|
label_asm_207_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_210_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_210_else
|
|
lda #1
|
|
bra label_asm_209_afterif
|
|
label_asm_210_else
|
|
lda #0
|
|
label_asm_209_afterif
|
|
beq label_asm_208_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<80
|
|
bne label_asm_212_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>80
|
|
bne label_asm_212_else
|
|
lda #1
|
|
bra label_asm_211_afterif
|
|
label_asm_212_else
|
|
lda #0
|
|
label_asm_211_afterif
|
|
label_asm_208_shortcut
|
|
beq label_asm_214_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_213_afterif
|
|
label_asm_214_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_213_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_26
|
|
lda #<prog8_interned_strings.string_26
|
|
jsr txt.print
|
|
lda #24
|
|
sta p8v_ub
|
|
label_asm_215_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_ub
|
|
cmp #12
|
|
beq label_asm_216_for_end
|
|
clc
|
|
adc #-3
|
|
sta p8v_ub
|
|
bra label_asm_215_for_loop
|
|
label_asm_216_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_219_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_219_else
|
|
lda #1
|
|
bra label_asm_218_afterif
|
|
label_asm_219_else
|
|
lda #0
|
|
label_asm_218_afterif
|
|
beq label_asm_217_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<90
|
|
bne label_asm_221_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>90
|
|
bne label_asm_221_else
|
|
lda #1
|
|
bra label_asm_220_afterif
|
|
label_asm_221_else
|
|
lda #0
|
|
label_asm_220_afterif
|
|
label_asm_217_shortcut
|
|
beq label_asm_223_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_222_afterif
|
|
label_asm_223_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_222_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_27
|
|
lda #<prog8_interned_strings.string_27
|
|
jsr txt.print
|
|
lda #24
|
|
sta p8v_ub
|
|
label_asm_224_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_ub
|
|
cmp #9
|
|
beq label_asm_225_for_end
|
|
clc
|
|
adc #-3
|
|
sta p8v_ub
|
|
bra label_asm_224_for_loop
|
|
label_asm_225_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<6
|
|
bne label_asm_228_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>6
|
|
bne label_asm_228_else
|
|
lda #1
|
|
bra label_asm_227_afterif
|
|
label_asm_228_else
|
|
lda #0
|
|
label_asm_227_afterif
|
|
beq label_asm_226_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<99
|
|
bne label_asm_230_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>99
|
|
bne label_asm_230_else
|
|
lda #1
|
|
bra label_asm_229_afterif
|
|
label_asm_230_else
|
|
lda #0
|
|
label_asm_229_afterif
|
|
label_asm_226_shortcut
|
|
beq label_asm_232_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_231_afterif
|
|
label_asm_232_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_231_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$65
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_28
|
|
lda #<prog8_interned_strings.string_28
|
|
jsr txt.print
|
|
lda #$5f
|
|
sta p8v_ub
|
|
lda p8v_endub1
|
|
cmp p8v_ub
|
|
bcc label_asm_234_for_end
|
|
sta label_asm_235_for_modified+1
|
|
label_asm_233_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_ub
|
|
label_asm_235_for_modified cmp #0 ; modified
|
|
beq label_asm_234_for_end
|
|
inc p8v_ub
|
|
bra label_asm_233_for_loop
|
|
label_asm_234_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<7
|
|
bne label_asm_239_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>7
|
|
bne label_asm_239_else
|
|
lda #1
|
|
bra label_asm_238_afterif
|
|
label_asm_239_else
|
|
lda #0
|
|
label_asm_238_afterif
|
|
beq label_asm_237_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<686
|
|
bne label_asm_241_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>686
|
|
bne label_asm_241_else
|
|
lda #1
|
|
bra label_asm_240_afterif
|
|
label_asm_241_else
|
|
lda #0
|
|
label_asm_240_afterif
|
|
label_asm_237_shortcut
|
|
beq label_asm_243_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_242_afterif
|
|
label_asm_243_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_242_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$65
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_29
|
|
lda #<prog8_interned_strings.string_29
|
|
jsr txt.print
|
|
lda p8v_endub1
|
|
sta p8v_ub
|
|
|
|
lda #$5f
|
|
cmp p8v_ub
|
|
beq +
|
|
bcs label_asm_245_for_end
|
|
+
|
|
sta label_asm_246_for_modified+1
|
|
label_asm_244_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_ub
|
|
label_asm_246_for_modified cmp #0 ; modified
|
|
beq label_asm_245_for_end
|
|
dec p8v_ub
|
|
bra label_asm_244_for_loop
|
|
label_asm_245_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<7
|
|
bne label_asm_250_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>7
|
|
bne label_asm_250_else
|
|
lda #1
|
|
bra label_asm_249_afterif
|
|
label_asm_250_else
|
|
lda #0
|
|
label_asm_249_afterif
|
|
beq label_asm_248_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<686
|
|
bne label_asm_252_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>686
|
|
bne label_asm_252_else
|
|
lda #1
|
|
bra label_asm_251_afterif
|
|
label_asm_252_else
|
|
lda #0
|
|
label_asm_251_afterif
|
|
label_asm_248_shortcut
|
|
beq label_asm_254_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_253_afterif
|
|
label_asm_254_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_253_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$69
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_30
|
|
lda #<prog8_interned_strings.string_30
|
|
jsr txt.print
|
|
lda #$5f
|
|
sta p8v_ub
|
|
lda p8v_endub1
|
|
cmp p8v_ub
|
|
bcc label_asm_256_for_end
|
|
sta label_asm_257_for_modified+1
|
|
label_asm_255_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_ub
|
|
clc
|
|
adc #3
|
|
sta p8v_ub
|
|
label_asm_257_for_modified cmp #0 ; modified
|
|
bmi label_asm_255_for_loop
|
|
beq label_asm_255_for_loop
|
|
label_asm_256_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_261_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_261_else
|
|
lda #1
|
|
bra label_asm_260_afterif
|
|
label_asm_261_else
|
|
lda #0
|
|
label_asm_260_afterif
|
|
beq label_asm_259_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<398
|
|
bne label_asm_263_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>398
|
|
bne label_asm_263_else
|
|
lda #1
|
|
bra label_asm_262_afterif
|
|
label_asm_263_else
|
|
lda #0
|
|
label_asm_262_afterif
|
|
label_asm_259_shortcut
|
|
beq label_asm_265_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_264_afterif
|
|
label_asm_265_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_264_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$69
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_31
|
|
lda #<prog8_interned_strings.string_31
|
|
jsr txt.print
|
|
lda p8v_endub1
|
|
sta p8v_ub
|
|
|
|
lda #$5f
|
|
cmp p8v_ub
|
|
beq +
|
|
bcs label_asm_267_for_end
|
|
+
|
|
sta label_asm_268_for_modified+1
|
|
label_asm_266_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_ub
|
|
sec
|
|
sbc #3
|
|
sta p8v_ub
|
|
label_asm_268_for_modified cmp #0 ; modified
|
|
bpl label_asm_266_for_loop
|
|
label_asm_267_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_272_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_272_else
|
|
lda #1
|
|
bra label_asm_271_afterif
|
|
label_asm_272_else
|
|
lda #0
|
|
label_asm_271_afterif
|
|
beq label_asm_270_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<402
|
|
bne label_asm_274_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>402
|
|
bne label_asm_274_else
|
|
lda #1
|
|
bra label_asm_273_afterif
|
|
label_asm_274_else
|
|
lda #0
|
|
label_asm_273_afterif
|
|
label_asm_270_shortcut
|
|
beq label_asm_276_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_275_afterif
|
|
label_asm_276_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_275_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$6b
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_32
|
|
lda #<prog8_interned_strings.string_32
|
|
jsr txt.print
|
|
lda #$5f
|
|
sta p8v_ub
|
|
lda p8v_endub1
|
|
cmp p8v_ub
|
|
bcc label_asm_278_for_end
|
|
sta label_asm_279_for_modified+1
|
|
label_asm_277_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_ub
|
|
clc
|
|
adc #3
|
|
sta p8v_ub
|
|
label_asm_279_for_modified cmp #0 ; modified
|
|
bmi label_asm_277_for_loop
|
|
beq label_asm_277_for_loop
|
|
label_asm_278_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_283_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_283_else
|
|
lda #1
|
|
bra label_asm_282_afterif
|
|
label_asm_283_else
|
|
lda #0
|
|
label_asm_282_afterif
|
|
beq label_asm_281_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<505
|
|
bne label_asm_285_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>505
|
|
bne label_asm_285_else
|
|
lda #1
|
|
bra label_asm_284_afterif
|
|
label_asm_285_else
|
|
lda #0
|
|
label_asm_284_afterif
|
|
label_asm_281_shortcut
|
|
beq label_asm_287_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_286_afterif
|
|
label_asm_287_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_286_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$6b
|
|
sta p8v_endub1
|
|
ldy #>prog8_interned_strings.string_33
|
|
lda #<prog8_interned_strings.string_33
|
|
jsr txt.print
|
|
lda p8v_endub1
|
|
sta p8v_ub
|
|
|
|
lda #$5f
|
|
cmp p8v_ub
|
|
beq +
|
|
bcs label_asm_289_for_end
|
|
+
|
|
sta label_asm_290_for_modified+1
|
|
label_asm_288_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ub
|
|
sta p8v_total
|
|
bcc +
|
|
inc p8v_total+1
|
|
+
|
|
lda p8v_ub
|
|
sec
|
|
sbc #3
|
|
sta p8v_ub
|
|
label_asm_290_for_modified cmp #0 ; modified
|
|
bpl label_asm_288_for_loop
|
|
label_asm_289_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_294_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_294_else
|
|
lda #1
|
|
bra label_asm_293_afterif
|
|
label_asm_294_else
|
|
lda #0
|
|
label_asm_293_afterif
|
|
beq label_asm_292_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<505
|
|
bne label_asm_296_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>505
|
|
bne label_asm_296_else
|
|
lda #1
|
|
bra label_asm_295_afterif
|
|
label_asm_296_else
|
|
lda #0
|
|
label_asm_295_afterif
|
|
label_asm_292_shortcut
|
|
beq label_asm_298_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_297_afterif
|
|
label_asm_298_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_297_afterif
|
|
jsr p8b_main.p8s_wait_input
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_34
|
|
lda #<prog8_interned_strings.string_34
|
|
jsr txt.print
|
|
ldy #0
|
|
label_asm_299_for_loop sty label_asm_301_for_index
|
|
lda p8v_auto_heap_value_3,y
|
|
sta p8v_bb
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
ldy label_asm_301_for_index
|
|
iny
|
|
cpy #4
|
|
beq label_asm_300_for_end
|
|
bne label_asm_299_for_loop
|
|
label_asm_301_for_index .byte 0
|
|
label_asm_300_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_304_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_304_else
|
|
lda #1
|
|
bra label_asm_303_afterif
|
|
label_asm_304_else
|
|
lda #0
|
|
label_asm_303_afterif
|
|
beq label_asm_302_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<108
|
|
bne label_asm_306_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>108
|
|
bne label_asm_306_else
|
|
lda #1
|
|
bra label_asm_305_afterif
|
|
label_asm_306_else
|
|
lda #0
|
|
label_asm_305_afterif
|
|
label_asm_302_shortcut
|
|
beq label_asm_308_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_307_afterif
|
|
label_asm_308_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_307_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_35
|
|
lda #<prog8_interned_strings.string_35
|
|
jsr txt.print
|
|
ldy #0
|
|
label_asm_309_for_loop sty label_asm_311_for_index
|
|
lda p8v_barr,y
|
|
sta p8v_bb
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
ldy label_asm_311_for_index
|
|
iny
|
|
cpy #5
|
|
beq label_asm_310_for_end
|
|
bne label_asm_309_for_loop
|
|
label_asm_311_for_index .byte 0
|
|
label_asm_310_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_314_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_314_else
|
|
lda #1
|
|
bra label_asm_313_afterif
|
|
label_asm_314_else
|
|
lda #0
|
|
label_asm_313_afterif
|
|
beq label_asm_312_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<66
|
|
bne label_asm_316_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>66
|
|
bne label_asm_316_else
|
|
lda #1
|
|
bra label_asm_315_afterif
|
|
label_asm_316_else
|
|
lda #0
|
|
label_asm_315_afterif
|
|
label_asm_312_shortcut
|
|
beq label_asm_318_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_317_afterif
|
|
label_asm_318_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_317_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_36
|
|
lda #<prog8_interned_strings.string_36
|
|
jsr txt.print
|
|
lda #10
|
|
sta p8v_bb
|
|
label_asm_319_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
inc p8v_bb
|
|
lda p8v_bb
|
|
cmp #21
|
|
bne label_asm_319_for_loop
|
|
label_asm_320_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<11
|
|
bne label_asm_323_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>11
|
|
bne label_asm_323_else
|
|
lda #1
|
|
bra label_asm_322_afterif
|
|
label_asm_323_else
|
|
lda #0
|
|
label_asm_322_afterif
|
|
beq label_asm_321_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<165
|
|
bne label_asm_325_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>165
|
|
bne label_asm_325_else
|
|
lda #1
|
|
bra label_asm_324_afterif
|
|
label_asm_325_else
|
|
lda #0
|
|
label_asm_324_afterif
|
|
label_asm_321_shortcut
|
|
beq label_asm_327_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_326_afterif
|
|
label_asm_327_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_326_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_37
|
|
lda #<prog8_interned_strings.string_37
|
|
jsr txt.print
|
|
lda #20
|
|
sta p8v_bb
|
|
label_asm_328_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
dec p8v_bb
|
|
lda p8v_bb
|
|
cmp #9
|
|
bne label_asm_328_for_loop
|
|
label_asm_329_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<11
|
|
bne label_asm_332_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>11
|
|
bne label_asm_332_else
|
|
lda #1
|
|
bra label_asm_331_afterif
|
|
label_asm_332_else
|
|
lda #0
|
|
label_asm_331_afterif
|
|
beq label_asm_330_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<165
|
|
bne label_asm_334_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>165
|
|
bne label_asm_334_else
|
|
lda #1
|
|
bra label_asm_333_afterif
|
|
label_asm_334_else
|
|
lda #0
|
|
label_asm_333_afterif
|
|
label_asm_330_shortcut
|
|
beq label_asm_336_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_335_afterif
|
|
label_asm_336_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_335_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_38
|
|
lda #<prog8_interned_strings.string_38
|
|
jsr txt.print
|
|
lda #10
|
|
sta p8v_bb
|
|
label_asm_337_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
lda p8v_bb
|
|
cmp #19
|
|
beq label_asm_338_for_end
|
|
clc
|
|
adc #3
|
|
sta p8v_bb
|
|
bra label_asm_337_for_loop
|
|
label_asm_338_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_341_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_341_else
|
|
lda #1
|
|
bra label_asm_340_afterif
|
|
label_asm_341_else
|
|
lda #0
|
|
label_asm_340_afterif
|
|
beq label_asm_339_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<58
|
|
bne label_asm_343_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>58
|
|
bne label_asm_343_else
|
|
lda #1
|
|
bra label_asm_342_afterif
|
|
label_asm_343_else
|
|
lda #0
|
|
label_asm_342_afterif
|
|
label_asm_339_shortcut
|
|
beq label_asm_345_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_344_afterif
|
|
label_asm_345_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_344_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_39
|
|
lda #<prog8_interned_strings.string_39
|
|
jsr txt.print
|
|
lda #10
|
|
sta p8v_bb
|
|
label_asm_346_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
lda p8v_bb
|
|
cmp #22
|
|
beq label_asm_347_for_end
|
|
clc
|
|
adc #3
|
|
sta p8v_bb
|
|
bra label_asm_346_for_loop
|
|
label_asm_347_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_350_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_350_else
|
|
lda #1
|
|
bra label_asm_349_afterif
|
|
label_asm_350_else
|
|
lda #0
|
|
label_asm_349_afterif
|
|
beq label_asm_348_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<80
|
|
bne label_asm_352_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>80
|
|
bne label_asm_352_else
|
|
lda #1
|
|
bra label_asm_351_afterif
|
|
label_asm_352_else
|
|
lda #0
|
|
label_asm_351_afterif
|
|
label_asm_348_shortcut
|
|
beq label_asm_354_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_353_afterif
|
|
label_asm_354_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_353_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_40
|
|
lda #<prog8_interned_strings.string_40
|
|
jsr txt.print
|
|
lda #24
|
|
sta p8v_bb
|
|
label_asm_355_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
lda p8v_bb
|
|
cmp #12
|
|
beq label_asm_356_for_end
|
|
clc
|
|
adc #-3
|
|
sta p8v_bb
|
|
bra label_asm_355_for_loop
|
|
label_asm_356_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_359_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_359_else
|
|
lda #1
|
|
bra label_asm_358_afterif
|
|
label_asm_359_else
|
|
lda #0
|
|
label_asm_358_afterif
|
|
beq label_asm_357_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<90
|
|
bne label_asm_361_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>90
|
|
bne label_asm_361_else
|
|
lda #1
|
|
bra label_asm_360_afterif
|
|
label_asm_361_else
|
|
lda #0
|
|
label_asm_360_afterif
|
|
label_asm_357_shortcut
|
|
beq label_asm_363_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_362_afterif
|
|
label_asm_363_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_362_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_41
|
|
lda #<prog8_interned_strings.string_41
|
|
jsr txt.print
|
|
lda #24
|
|
sta p8v_bb
|
|
label_asm_364_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
lda p8v_bb
|
|
cmp #9
|
|
beq label_asm_365_for_end
|
|
clc
|
|
adc #-3
|
|
sta p8v_bb
|
|
bra label_asm_364_for_loop
|
|
label_asm_365_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<6
|
|
bne label_asm_368_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>6
|
|
bne label_asm_368_else
|
|
lda #1
|
|
bra label_asm_367_afterif
|
|
label_asm_368_else
|
|
lda #0
|
|
label_asm_367_afterif
|
|
beq label_asm_366_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<99
|
|
bne label_asm_370_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>99
|
|
bne label_asm_370_else
|
|
lda #1
|
|
bra label_asm_369_afterif
|
|
label_asm_370_else
|
|
lda #0
|
|
label_asm_369_afterif
|
|
label_asm_366_shortcut
|
|
beq label_asm_372_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_371_afterif
|
|
label_asm_372_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_371_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$65
|
|
sta p8v_endb1
|
|
ldy #>prog8_interned_strings.string_42
|
|
lda #<prog8_interned_strings.string_42
|
|
jsr txt.print
|
|
lda #$5f
|
|
sta p8v_bb
|
|
lda p8v_endb1
|
|
sta label_asm_375_for_modified+1
|
|
sec
|
|
sbc p8v_bb
|
|
bvc +
|
|
eor #$80
|
|
+ bmi label_asm_374_for_end
|
|
label_asm_373_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
lda p8v_bb
|
|
label_asm_375_for_modified cmp #0 ; modified
|
|
beq label_asm_374_for_end
|
|
inc p8v_bb
|
|
bra label_asm_373_for_loop
|
|
label_asm_374_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<7
|
|
bne label_asm_379_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>7
|
|
bne label_asm_379_else
|
|
lda #1
|
|
bra label_asm_378_afterif
|
|
label_asm_379_else
|
|
lda #0
|
|
label_asm_378_afterif
|
|
beq label_asm_377_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<686
|
|
bne label_asm_381_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>686
|
|
bne label_asm_381_else
|
|
lda #1
|
|
bra label_asm_380_afterif
|
|
label_asm_381_else
|
|
lda #0
|
|
label_asm_380_afterif
|
|
label_asm_377_shortcut
|
|
beq label_asm_383_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_382_afterif
|
|
label_asm_383_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_382_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$65
|
|
sta p8v_endb1
|
|
ldy #>prog8_interned_strings.string_43
|
|
lda #<prog8_interned_strings.string_43
|
|
jsr txt.print
|
|
lda p8v_endb1
|
|
sta p8v_bb
|
|
|
|
lda #$5f
|
|
sta label_asm_386_for_modified+1
|
|
clc
|
|
sbc p8v_bb
|
|
bvc +
|
|
eor #$80
|
|
+ bpl label_asm_385_for_end
|
|
label_asm_384_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
lda p8v_bb
|
|
label_asm_386_for_modified cmp #0 ; modified
|
|
beq label_asm_385_for_end
|
|
dec p8v_bb
|
|
bra label_asm_384_for_loop
|
|
label_asm_385_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<7
|
|
bne label_asm_390_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>7
|
|
bne label_asm_390_else
|
|
lda #1
|
|
bra label_asm_389_afterif
|
|
label_asm_390_else
|
|
lda #0
|
|
label_asm_389_afterif
|
|
beq label_asm_388_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<686
|
|
bne label_asm_392_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>686
|
|
bne label_asm_392_else
|
|
lda #1
|
|
bra label_asm_391_afterif
|
|
label_asm_392_else
|
|
lda #0
|
|
label_asm_391_afterif
|
|
label_asm_388_shortcut
|
|
beq label_asm_394_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_393_afterif
|
|
label_asm_394_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_393_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$69
|
|
sta p8v_endb1
|
|
ldy #>prog8_interned_strings.string_44
|
|
lda #<prog8_interned_strings.string_44
|
|
jsr txt.print
|
|
lda #$5f
|
|
sta p8v_bb
|
|
lda p8v_endb1
|
|
sta label_asm_397_for_modified+1
|
|
sec
|
|
sbc p8v_bb
|
|
bvc +
|
|
eor #$80
|
|
+ bmi label_asm_396_for_end
|
|
label_asm_395_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
lda p8v_bb
|
|
clc
|
|
adc #3
|
|
sta p8v_bb
|
|
label_asm_397_for_modified cmp #0 ; modified
|
|
bmi label_asm_395_for_loop
|
|
beq label_asm_395_for_loop
|
|
label_asm_396_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_401_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_401_else
|
|
lda #1
|
|
bra label_asm_400_afterif
|
|
label_asm_401_else
|
|
lda #0
|
|
label_asm_400_afterif
|
|
beq label_asm_399_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<398
|
|
bne label_asm_403_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>398
|
|
bne label_asm_403_else
|
|
lda #1
|
|
bra label_asm_402_afterif
|
|
label_asm_403_else
|
|
lda #0
|
|
label_asm_402_afterif
|
|
label_asm_399_shortcut
|
|
beq label_asm_405_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_404_afterif
|
|
label_asm_405_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_404_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$69
|
|
sta p8v_endb1
|
|
ldy #>prog8_interned_strings.string_45
|
|
lda #<prog8_interned_strings.string_45
|
|
jsr txt.print
|
|
lda p8v_endb1
|
|
sta p8v_bb
|
|
|
|
lda #$5f
|
|
sta label_asm_408_for_modified+1
|
|
clc
|
|
sbc p8v_bb
|
|
bvc +
|
|
eor #$80
|
|
+ bpl label_asm_407_for_end
|
|
label_asm_406_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
lda p8v_bb
|
|
sec
|
|
sbc #3
|
|
sta p8v_bb
|
|
label_asm_408_for_modified cmp #0 ; modified
|
|
bpl label_asm_406_for_loop
|
|
label_asm_407_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_412_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_412_else
|
|
lda #1
|
|
bra label_asm_411_afterif
|
|
label_asm_412_else
|
|
lda #0
|
|
label_asm_411_afterif
|
|
beq label_asm_410_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<402
|
|
bne label_asm_414_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>402
|
|
bne label_asm_414_else
|
|
lda #1
|
|
bra label_asm_413_afterif
|
|
label_asm_414_else
|
|
lda #0
|
|
label_asm_413_afterif
|
|
label_asm_410_shortcut
|
|
beq label_asm_416_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_415_afterif
|
|
label_asm_416_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_415_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$6b
|
|
sta p8v_endb1
|
|
ldy #>prog8_interned_strings.string_46
|
|
lda #<prog8_interned_strings.string_46
|
|
jsr txt.print
|
|
lda #$5f
|
|
sta p8v_bb
|
|
lda p8v_endb1
|
|
sta label_asm_419_for_modified+1
|
|
sec
|
|
sbc p8v_bb
|
|
bvc +
|
|
eor #$80
|
|
+ bmi label_asm_418_for_end
|
|
label_asm_417_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
lda p8v_bb
|
|
clc
|
|
adc #3
|
|
sta p8v_bb
|
|
label_asm_419_for_modified cmp #0 ; modified
|
|
bmi label_asm_417_for_loop
|
|
beq label_asm_417_for_loop
|
|
label_asm_418_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_423_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_423_else
|
|
lda #1
|
|
bra label_asm_422_afterif
|
|
label_asm_423_else
|
|
lda #0
|
|
label_asm_422_afterif
|
|
beq label_asm_421_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<505
|
|
bne label_asm_425_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>505
|
|
bne label_asm_425_else
|
|
lda #1
|
|
bra label_asm_424_afterif
|
|
label_asm_425_else
|
|
lda #0
|
|
label_asm_424_afterif
|
|
label_asm_421_shortcut
|
|
beq label_asm_427_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_426_afterif
|
|
label_asm_427_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_426_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #$6b
|
|
sta p8v_endb1
|
|
ldy #>prog8_interned_strings.string_47
|
|
lda #<prog8_interned_strings.string_47
|
|
jsr txt.print
|
|
lda p8v_endb1
|
|
sta p8v_bb
|
|
|
|
lda #$5f
|
|
sta label_asm_430_for_modified+1
|
|
clc
|
|
sbc p8v_bb
|
|
bvc +
|
|
eor #$80
|
|
+ bpl label_asm_429_for_end
|
|
label_asm_428_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
ldy #0
|
|
lda p8v_bb
|
|
bpl +
|
|
dey ; sign extend
|
|
+ clc
|
|
adc p8v_total
|
|
sta p8v_total
|
|
tya
|
|
adc p8v_total+1
|
|
sta p8v_total+1
|
|
lda p8v_bb
|
|
sec
|
|
sbc #3
|
|
sta p8v_bb
|
|
label_asm_430_for_modified cmp #0 ; modified
|
|
bpl label_asm_428_for_loop
|
|
label_asm_429_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_434_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_434_else
|
|
lda #1
|
|
bra label_asm_433_afterif
|
|
label_asm_434_else
|
|
lda #0
|
|
label_asm_433_afterif
|
|
beq label_asm_432_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<505
|
|
bne label_asm_436_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>505
|
|
bne label_asm_436_else
|
|
lda #1
|
|
bra label_asm_435_afterif
|
|
label_asm_436_else
|
|
lda #0
|
|
label_asm_435_afterif
|
|
label_asm_432_shortcut
|
|
beq label_asm_438_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_437_afterif
|
|
label_asm_438_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_437_afterif
|
|
jsr p8b_main.p8s_wait_input
|
|
stz p8v_enduw1
|
|
stz p8v_enduw1+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
stz p8v_uw
|
|
stz p8v_uw+1
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
ldy #>prog8_interned_strings.string_48
|
|
lda #<prog8_interned_strings.string_48
|
|
jsr txt.print
|
|
lda #<prog8_interned_strings.string_2
|
|
ldy #>prog8_interned_strings.string_2
|
|
sta label_asm_439_for_loop+1
|
|
sty label_asm_439_for_loop+2
|
|
label_asm_439_for_loop lda $ffff ; modified
|
|
beq label_asm_440_for_end
|
|
sta p8v_uw
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
inc label_asm_439_for_loop+1
|
|
bne label_asm_439_for_loop
|
|
inc label_asm_439_for_loop+2
|
|
bne label_asm_439_for_loop
|
|
label_asm_440_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_443_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_443_else
|
|
lda #1
|
|
bra label_asm_442_afterif
|
|
label_asm_443_else
|
|
lda #0
|
|
label_asm_442_afterif
|
|
beq label_asm_441_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<372
|
|
bne label_asm_445_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>372
|
|
bne label_asm_445_else
|
|
lda #1
|
|
bra label_asm_444_afterif
|
|
label_asm_445_else
|
|
lda #0
|
|
label_asm_444_afterif
|
|
label_asm_441_shortcut
|
|
beq label_asm_447_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_446_afterif
|
|
label_asm_447_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_446_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
ldy #>prog8_interned_strings.string_49
|
|
lda #<prog8_interned_strings.string_49
|
|
jsr txt.print
|
|
ldy #0
|
|
label_asm_448_for_loop sty label_asm_450_for_index
|
|
lda p8v_auto_heap_value_4,y
|
|
sta p8v_uw
|
|
lda p8v_auto_heap_value_4+1,y
|
|
sta p8v_uw+1
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
ldy label_asm_450_for_index
|
|
iny
|
|
iny
|
|
cpy #8
|
|
beq label_asm_449_for_end
|
|
bne label_asm_448_for_loop
|
|
label_asm_450_for_index .byte 0
|
|
label_asm_449_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_453_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_453_else
|
|
lda #1
|
|
bra label_asm_452_afterif
|
|
label_asm_453_else
|
|
lda #0
|
|
label_asm_452_afterif
|
|
beq label_asm_451_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<5998
|
|
bne label_asm_455_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>5998
|
|
bne label_asm_455_else
|
|
lda #1
|
|
bra label_asm_454_afterif
|
|
label_asm_455_else
|
|
lda #0
|
|
label_asm_454_afterif
|
|
label_asm_451_shortcut
|
|
beq label_asm_457_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_456_afterif
|
|
label_asm_457_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_456_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
ldy #>prog8_interned_strings.string_50
|
|
lda #<prog8_interned_strings.string_50
|
|
jsr txt.print
|
|
ldy #0
|
|
label_asm_458_for_loop sty label_asm_460_for_index
|
|
lda p8v_uwarr,y
|
|
sta p8v_uw
|
|
lda p8v_uwarr+1,y
|
|
sta p8v_uw+1
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
ldy label_asm_460_for_index
|
|
iny
|
|
iny
|
|
cpy #8
|
|
beq label_asm_459_for_end
|
|
bne label_asm_458_for_loop
|
|
label_asm_460_for_index .byte 0
|
|
label_asm_459_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_463_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_463_else
|
|
lda #1
|
|
bra label_asm_462_afterif
|
|
label_asm_463_else
|
|
lda #0
|
|
label_asm_462_afterif
|
|
beq label_asm_461_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<10663
|
|
bne label_asm_465_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>10663
|
|
bne label_asm_465_else
|
|
lda #1
|
|
bra label_asm_464_afterif
|
|
label_asm_465_else
|
|
lda #0
|
|
label_asm_464_afterif
|
|
label_asm_461_shortcut
|
|
beq label_asm_467_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_466_afterif
|
|
label_asm_467_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_466_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
ldy #>prog8_interned_strings.string_51
|
|
lda #<prog8_interned_strings.string_51
|
|
jsr txt.print
|
|
lda #<1000
|
|
ldy #>1000
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
label_asm_468_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw
|
|
cmp #<1100
|
|
bne +
|
|
lda p8v_uw+1
|
|
cmp #>1100
|
|
beq label_asm_469_for_end
|
|
+ inc p8v_uw
|
|
bne label_asm_468_for_loop
|
|
inc p8v_uw+1
|
|
bra label_asm_468_for_loop
|
|
label_asm_469_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<101
|
|
bne label_asm_472_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>101
|
|
bne label_asm_472_else
|
|
lda #1
|
|
bra label_asm_471_afterif
|
|
label_asm_472_else
|
|
lda #0
|
|
label_asm_471_afterif
|
|
beq label_asm_470_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<40514
|
|
bne label_asm_474_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>40514
|
|
bne label_asm_474_else
|
|
lda #1
|
|
bra label_asm_473_afterif
|
|
label_asm_474_else
|
|
lda #0
|
|
label_asm_473_afterif
|
|
label_asm_470_shortcut
|
|
beq label_asm_476_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_475_afterif
|
|
label_asm_476_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_475_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
ldy #>prog8_interned_strings.string_52
|
|
lda #<prog8_interned_strings.string_52
|
|
jsr txt.print
|
|
lda #<2000
|
|
ldy #>2000
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
label_asm_477_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw
|
|
cmp #<1500
|
|
bne +
|
|
lda p8v_uw+1
|
|
cmp #>1500
|
|
beq label_asm_478_for_end
|
|
+ lda p8v_uw
|
|
bne +
|
|
dec p8v_uw+1
|
|
+ dec p8v_uw
|
|
bra label_asm_477_for_loop
|
|
label_asm_478_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<501
|
|
bne label_asm_481_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>501
|
|
bne label_asm_481_else
|
|
lda #1
|
|
bra label_asm_480_afterif
|
|
label_asm_481_else
|
|
lda #0
|
|
label_asm_480_afterif
|
|
beq label_asm_479_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<24782
|
|
bne label_asm_483_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>24782
|
|
bne label_asm_483_else
|
|
lda #1
|
|
bra label_asm_482_afterif
|
|
label_asm_483_else
|
|
lda #0
|
|
label_asm_482_afterif
|
|
label_asm_479_shortcut
|
|
beq label_asm_485_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_484_afterif
|
|
label_asm_485_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_484_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
ldy #>prog8_interned_strings.string_53
|
|
lda #<prog8_interned_strings.string_53
|
|
jsr txt.print
|
|
lda #<1000
|
|
ldy #>1000
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
label_asm_486_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw
|
|
cmp #<1999
|
|
bne +
|
|
lda p8v_uw+1
|
|
cmp #>1999
|
|
bne +
|
|
beq label_asm_487_for_end
|
|
+ lda p8v_uw
|
|
clc
|
|
adc #<333
|
|
sta p8v_uw
|
|
lda p8v_uw+1
|
|
adc #>333
|
|
sta p8v_uw+1
|
|
bra label_asm_486_for_loop
|
|
label_asm_487_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_490_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_490_else
|
|
lda #1
|
|
bra label_asm_489_afterif
|
|
label_asm_490_else
|
|
lda #0
|
|
label_asm_489_afterif
|
|
beq label_asm_488_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<5998
|
|
bne label_asm_492_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>5998
|
|
bne label_asm_492_else
|
|
lda #1
|
|
bra label_asm_491_afterif
|
|
label_asm_492_else
|
|
lda #0
|
|
label_asm_491_afterif
|
|
label_asm_488_shortcut
|
|
beq label_asm_494_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_493_afterif
|
|
label_asm_494_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_493_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
ldy #>prog8_interned_strings.string_54
|
|
lda #<prog8_interned_strings.string_54
|
|
jsr txt.print
|
|
lda #<1000
|
|
ldy #>1000
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
label_asm_495_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw
|
|
cmp #<2332
|
|
bne +
|
|
lda p8v_uw+1
|
|
cmp #>2332
|
|
bne +
|
|
beq label_asm_496_for_end
|
|
+ lda p8v_uw
|
|
clc
|
|
adc #<333
|
|
sta p8v_uw
|
|
lda p8v_uw+1
|
|
adc #>333
|
|
sta p8v_uw+1
|
|
bra label_asm_495_for_loop
|
|
label_asm_496_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<5
|
|
bne label_asm_499_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>5
|
|
bne label_asm_499_else
|
|
lda #1
|
|
bra label_asm_498_afterif
|
|
label_asm_499_else
|
|
lda #0
|
|
label_asm_498_afterif
|
|
beq label_asm_497_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<8330
|
|
bne label_asm_501_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>8330
|
|
bne label_asm_501_else
|
|
lda #1
|
|
bra label_asm_500_afterif
|
|
label_asm_501_else
|
|
lda #0
|
|
label_asm_500_afterif
|
|
label_asm_497_shortcut
|
|
beq label_asm_503_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_502_afterif
|
|
label_asm_503_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_502_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
ldy #>prog8_interned_strings.string_55
|
|
lda #<prog8_interned_strings.string_55
|
|
jsr txt.print
|
|
lda #<17000
|
|
ldy #>17000
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
label_asm_504_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw
|
|
cmp #<14669
|
|
bne +
|
|
lda p8v_uw+1
|
|
cmp #>14669
|
|
bne +
|
|
beq label_asm_505_for_end
|
|
+ lda p8v_uw
|
|
clc
|
|
adc #<-333
|
|
sta p8v_uw
|
|
lda p8v_uw+1
|
|
adc #>-333
|
|
sta p8v_uw+1
|
|
bra label_asm_504_for_loop
|
|
label_asm_505_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<8
|
|
bne label_asm_508_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>8
|
|
bne label_asm_508_else
|
|
lda #1
|
|
bra label_asm_507_afterif
|
|
label_asm_508_else
|
|
lda #0
|
|
label_asm_507_afterif
|
|
beq label_asm_506_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<61140
|
|
bne label_asm_510_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>61140
|
|
bne label_asm_510_else
|
|
lda #1
|
|
bra label_asm_509_afterif
|
|
label_asm_510_else
|
|
lda #0
|
|
label_asm_509_afterif
|
|
label_asm_506_shortcut
|
|
beq label_asm_512_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_511_afterif
|
|
label_asm_512_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_511_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
ldy #>prog8_interned_strings.string_56
|
|
lda #<prog8_interned_strings.string_56
|
|
jsr txt.print
|
|
lda #<17000
|
|
ldy #>17000
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
label_asm_513_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw
|
|
cmp #<14336
|
|
bne +
|
|
lda p8v_uw+1
|
|
cmp #>14336
|
|
bne +
|
|
beq label_asm_514_for_end
|
|
+ lda p8v_uw
|
|
clc
|
|
adc #<-333
|
|
sta p8v_uw
|
|
lda p8v_uw+1
|
|
adc #>-333
|
|
sta p8v_uw+1
|
|
bra label_asm_513_for_loop
|
|
label_asm_514_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<9
|
|
bne label_asm_517_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>9
|
|
bne label_asm_517_else
|
|
lda #1
|
|
bra label_asm_516_afterif
|
|
label_asm_517_else
|
|
lda #0
|
|
label_asm_516_afterif
|
|
beq label_asm_515_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<9940
|
|
bne label_asm_519_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>9940
|
|
bne label_asm_519_else
|
|
lda #1
|
|
bra label_asm_518_afterif
|
|
label_asm_519_else
|
|
lda #0
|
|
label_asm_518_afterif
|
|
label_asm_515_shortcut
|
|
beq label_asm_521_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_520_afterif
|
|
label_asm_521_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_520_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
lda #<$4268
|
|
ldy #>$4268
|
|
sta p8v_enduw1
|
|
sty p8v_enduw1+1
|
|
|
|
ldy #>prog8_interned_strings.string_57
|
|
lda #<prog8_interned_strings.string_57
|
|
jsr txt.print
|
|
lda #<$4074
|
|
ldy #>$4074
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
|
|
ldy p8v_enduw1+1
|
|
lda p8v_enduw1
|
|
cpy p8v_uw+1
|
|
bcc label_asm_523_for_end
|
|
bne +
|
|
cmp p8v_uw
|
|
bcc label_asm_523_for_end
|
|
+
|
|
sty label_asm_524_for_modified+1
|
|
sta label_asm_525_for_modifiedb+1
|
|
label_asm_522_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw+1
|
|
label_asm_524_for_modified cmp #0 ; modified
|
|
bne +
|
|
lda p8v_uw
|
|
label_asm_525_for_modifiedb cmp #0 ; modified
|
|
beq label_asm_523_for_end
|
|
+ inc p8v_uw
|
|
bne label_asm_522_for_loop
|
|
inc p8v_uw+1
|
|
bra label_asm_522_for_loop
|
|
label_asm_523_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<501
|
|
bne label_asm_528_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>501
|
|
bne label_asm_528_else
|
|
lda #1
|
|
bra label_asm_527_afterif
|
|
label_asm_528_else
|
|
lda #0
|
|
label_asm_527_afterif
|
|
beq label_asm_526_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<3142
|
|
bne label_asm_530_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>3142
|
|
bne label_asm_530_else
|
|
lda #1
|
|
bra label_asm_529_afterif
|
|
label_asm_530_else
|
|
lda #0
|
|
label_asm_529_afterif
|
|
label_asm_526_shortcut
|
|
beq label_asm_532_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_531_afterif
|
|
label_asm_532_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_531_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
ldy #>prog8_interned_strings.string_58
|
|
lda #<prog8_interned_strings.string_58
|
|
jsr txt.print
|
|
lda p8v_enduw1
|
|
ldy p8v_enduw1+1
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
ldy #>$4074
|
|
lda #<$4074
|
|
cpy p8v_uw+1
|
|
beq +
|
|
bcc ++
|
|
bcs label_asm_534_for_end
|
|
+ cmp p8v_uw
|
|
bcc +
|
|
beq +
|
|
bne label_asm_534_for_end
|
|
+
|
|
sty label_asm_535_for_modified+1
|
|
sta label_asm_536_for_modifiedb+1
|
|
label_asm_533_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw+1
|
|
label_asm_535_for_modified cmp #0 ; modified
|
|
bne +
|
|
lda p8v_uw
|
|
label_asm_536_for_modifiedb cmp #0 ; modified
|
|
beq label_asm_534_for_end
|
|
+ lda p8v_uw
|
|
bne +
|
|
dec p8v_uw+1
|
|
+ dec p8v_uw
|
|
bra label_asm_533_for_loop
|
|
label_asm_534_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<501
|
|
bne label_asm_539_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>501
|
|
bne label_asm_539_else
|
|
lda #1
|
|
bra label_asm_538_afterif
|
|
label_asm_539_else
|
|
lda #0
|
|
label_asm_538_afterif
|
|
beq label_asm_537_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<3142
|
|
bne label_asm_541_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>3142
|
|
bne label_asm_541_else
|
|
lda #1
|
|
bra label_asm_540_afterif
|
|
label_asm_541_else
|
|
lda #0
|
|
label_asm_540_afterif
|
|
label_asm_537_shortcut
|
|
beq label_asm_543_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_542_afterif
|
|
label_asm_543_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_542_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
lda #<$4268
|
|
ldy #>$4268
|
|
sta p8v_enduw1
|
|
sty p8v_enduw1+1
|
|
|
|
ldy #>prog8_interned_strings.string_59
|
|
lda #<prog8_interned_strings.string_59
|
|
jsr txt.print
|
|
lda #<$38a4
|
|
ldy #>$38a4
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
|
|
ldy p8v_enduw1+1
|
|
lda p8v_enduw1
|
|
cpy p8v_uw+1
|
|
bcc label_asm_545_for_end
|
|
bne +
|
|
cmp p8v_uw
|
|
bcc label_asm_545_for_end
|
|
+
|
|
sty label_asm_546_for_modified+1
|
|
sta label_asm_547_for_modifiedb+1
|
|
label_asm_544_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw
|
|
clc
|
|
adc #<333
|
|
sta p8v_uw
|
|
lda p8v_uw+1
|
|
adc #>333
|
|
sta p8v_uw+1
|
|
label_asm_546_for_modified cmp #0 ; modified
|
|
bcc label_asm_544_for_loop
|
|
bne label_asm_545_for_end
|
|
label_asm_547_for_modifiedb lda #0 ; modified
|
|
cmp p8v_uw
|
|
bcc label_asm_545_for_end
|
|
bcs label_asm_544_for_loop
|
|
label_asm_545_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<8
|
|
bne label_asm_550_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>8
|
|
bne label_asm_550_else
|
|
lda #1
|
|
bra label_asm_549_afterif
|
|
label_asm_550_else
|
|
lda #0
|
|
label_asm_549_afterif
|
|
beq label_asm_548_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<59788
|
|
bne label_asm_552_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>59788
|
|
bne label_asm_552_else
|
|
lda #1
|
|
bra label_asm_551_afterif
|
|
label_asm_552_else
|
|
lda #0
|
|
label_asm_551_afterif
|
|
label_asm_548_shortcut
|
|
beq label_asm_554_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_553_afterif
|
|
label_asm_554_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_553_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
lda #<$4268
|
|
ldy #>$4268
|
|
sta p8v_enduw1
|
|
sty p8v_enduw1+1
|
|
|
|
ldy #>prog8_interned_strings.string_60
|
|
lda #<prog8_interned_strings.string_60
|
|
jsr txt.print
|
|
lda p8v_enduw1
|
|
ldy p8v_enduw1+1
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
ldy #>$38a4
|
|
lda #<$38a4
|
|
cpy p8v_uw+1
|
|
beq +
|
|
bcc ++
|
|
bcs label_asm_556_for_end
|
|
+ cmp p8v_uw
|
|
bcc +
|
|
beq +
|
|
bne label_asm_556_for_end
|
|
+
|
|
sty label_asm_557_for_modified+1
|
|
sta label_asm_558_for_modifiedb+1
|
|
label_asm_555_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw
|
|
sec
|
|
sbc #<333
|
|
sta p8v_uw
|
|
tax
|
|
lda p8v_uw+1
|
|
sbc #>333
|
|
sta p8v_uw+1
|
|
txa
|
|
label_asm_558_for_modifiedb cmp #0 ; modified
|
|
lda p8v_uw+1
|
|
label_asm_557_for_modified sbc #0 ; modified
|
|
bvc +
|
|
eor #$80
|
|
+ bpl label_asm_555_for_loop
|
|
label_asm_556_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<8
|
|
bne label_asm_561_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>8
|
|
bne label_asm_561_else
|
|
lda #1
|
|
bra label_asm_560_afterif
|
|
label_asm_561_else
|
|
lda #0
|
|
label_asm_560_afterif
|
|
beq label_asm_559_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<61140
|
|
bne label_asm_563_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>61140
|
|
bne label_asm_563_else
|
|
lda #1
|
|
bra label_asm_562_afterif
|
|
label_asm_563_else
|
|
lda #0
|
|
label_asm_562_afterif
|
|
label_asm_559_shortcut
|
|
beq label_asm_565_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_564_afterif
|
|
label_asm_565_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_564_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
lda #<$430c
|
|
ldy #>$430c
|
|
sta p8v_enduw1
|
|
sty p8v_enduw1+1
|
|
|
|
ldy #>prog8_interned_strings.string_61
|
|
lda #<prog8_interned_strings.string_61
|
|
jsr txt.print
|
|
lda #<$38a4
|
|
ldy #>$38a4
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
|
|
ldy p8v_enduw1+1
|
|
lda p8v_enduw1
|
|
cpy p8v_uw+1
|
|
bcc label_asm_567_for_end
|
|
bne +
|
|
cmp p8v_uw
|
|
bcc label_asm_567_for_end
|
|
+
|
|
sty label_asm_568_for_modified+1
|
|
sta label_asm_569_for_modifiedb+1
|
|
label_asm_566_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw
|
|
clc
|
|
adc #<333
|
|
sta p8v_uw
|
|
lda p8v_uw+1
|
|
adc #>333
|
|
sta p8v_uw+1
|
|
label_asm_568_for_modified cmp #0 ; modified
|
|
bcc label_asm_566_for_loop
|
|
bne label_asm_567_for_end
|
|
label_asm_569_for_modifiedb lda #0 ; modified
|
|
cmp p8v_uw
|
|
bcc label_asm_567_for_end
|
|
bcs label_asm_566_for_loop
|
|
label_asm_567_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<9
|
|
bne label_asm_572_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>9
|
|
bne label_asm_572_else
|
|
lda #1
|
|
bra label_asm_571_afterif
|
|
label_asm_572_else
|
|
lda #0
|
|
label_asm_571_afterif
|
|
beq label_asm_570_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<11416
|
|
bne label_asm_574_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>11416
|
|
bne label_asm_574_else
|
|
lda #1
|
|
bra label_asm_573_afterif
|
|
label_asm_574_else
|
|
lda #0
|
|
label_asm_573_afterif
|
|
label_asm_570_shortcut
|
|
beq label_asm_576_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_575_afterif
|
|
label_asm_576_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_575_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_totaluw
|
|
stz p8v_totaluw+1
|
|
lda #<$4268
|
|
ldy #>$4268
|
|
sta p8v_enduw1
|
|
sty p8v_enduw1+1
|
|
|
|
ldy #>prog8_interned_strings.string_62
|
|
lda #<prog8_interned_strings.string_62
|
|
jsr txt.print
|
|
lda p8v_enduw1
|
|
ldy p8v_enduw1+1
|
|
sta p8v_uw
|
|
sty p8v_uw+1
|
|
ldy #>$3800
|
|
lda #<$3800
|
|
cpy p8v_uw+1
|
|
beq +
|
|
bcc ++
|
|
bcs label_asm_578_for_end
|
|
+ cmp p8v_uw
|
|
bcc +
|
|
beq +
|
|
bne label_asm_578_for_end
|
|
+
|
|
sty label_asm_579_for_modified+1
|
|
sta label_asm_580_for_modifiedb+1
|
|
label_asm_577_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_totaluw
|
|
clc
|
|
adc p8v_uw
|
|
sta p8v_totaluw
|
|
lda p8v_totaluw+1
|
|
adc p8v_uw+1
|
|
sta p8v_totaluw+1
|
|
lda p8v_uw
|
|
sec
|
|
sbc #<333
|
|
sta p8v_uw
|
|
tax
|
|
lda p8v_uw+1
|
|
sbc #>333
|
|
sta p8v_uw+1
|
|
txa
|
|
label_asm_580_for_modifiedb cmp #0 ; modified
|
|
lda p8v_uw+1
|
|
label_asm_579_for_modified sbc #0 ; modified
|
|
bvc +
|
|
eor #$80
|
|
+ bpl label_asm_577_for_loop
|
|
label_asm_578_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<9
|
|
bne label_asm_583_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>9
|
|
bne label_asm_583_else
|
|
lda #1
|
|
bra label_asm_582_afterif
|
|
label_asm_583_else
|
|
lda #0
|
|
label_asm_582_afterif
|
|
beq label_asm_581_shortcut
|
|
lda p8b_main.p8s_start.p8v_totaluw
|
|
cmp #<9940
|
|
bne label_asm_585_else
|
|
lda p8b_main.p8s_start.p8v_totaluw+1
|
|
cmp #>9940
|
|
bne label_asm_585_else
|
|
lda #1
|
|
bra label_asm_584_afterif
|
|
label_asm_585_else
|
|
lda #0
|
|
label_asm_584_afterif
|
|
label_asm_581_shortcut
|
|
beq label_asm_587_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_586_afterif
|
|
label_asm_587_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_586_afterif
|
|
jsr p8b_main.p8s_wait_input
|
|
stz p8v_endw1
|
|
stz p8v_endw1+1
|
|
stz p8v_ww
|
|
stz p8v_ww+1
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_63
|
|
lda #<prog8_interned_strings.string_63
|
|
jsr txt.print
|
|
ldy #0
|
|
label_asm_588_for_loop sty label_asm_590_for_index
|
|
lda p8v_auto_heap_value_5,y
|
|
sta p8v_ww
|
|
lda p8v_auto_heap_value_5+1,y
|
|
sta p8v_ww+1
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
ldy label_asm_590_for_index
|
|
iny
|
|
iny
|
|
cpy #8
|
|
beq label_asm_589_for_end
|
|
bne label_asm_588_for_loop
|
|
label_asm_590_for_index .byte 0
|
|
label_asm_589_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_593_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_593_else
|
|
lda #1
|
|
bra label_asm_592_afterif
|
|
label_asm_593_else
|
|
lda #0
|
|
label_asm_592_afterif
|
|
beq label_asm_591_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<5998
|
|
bne label_asm_595_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>5998
|
|
bne label_asm_595_else
|
|
lda #1
|
|
bra label_asm_594_afterif
|
|
label_asm_595_else
|
|
lda #0
|
|
label_asm_594_afterif
|
|
label_asm_591_shortcut
|
|
beq label_asm_597_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_596_afterif
|
|
label_asm_597_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_596_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_64
|
|
lda #<prog8_interned_strings.string_64
|
|
jsr txt.print
|
|
ldy #0
|
|
label_asm_598_for_loop sty label_asm_600_for_index
|
|
lda p8v_warr,y
|
|
sta p8v_ww
|
|
lda p8v_warr+1,y
|
|
sta p8v_ww+1
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
ldy label_asm_600_for_index
|
|
iny
|
|
iny
|
|
cpy #8
|
|
beq label_asm_599_for_end
|
|
bne label_asm_598_for_loop
|
|
label_asm_600_for_index .byte 0
|
|
label_asm_599_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<4
|
|
bne label_asm_603_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>4
|
|
bne label_asm_603_else
|
|
lda #1
|
|
bra label_asm_602_afterif
|
|
label_asm_603_else
|
|
lda #0
|
|
label_asm_602_afterif
|
|
beq label_asm_601_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<222
|
|
bne label_asm_605_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>222
|
|
bne label_asm_605_else
|
|
lda #1
|
|
bra label_asm_604_afterif
|
|
label_asm_605_else
|
|
lda #0
|
|
label_asm_604_afterif
|
|
label_asm_601_shortcut
|
|
beq label_asm_607_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_606_afterif
|
|
label_asm_607_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_606_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_65
|
|
lda #<prog8_interned_strings.string_65
|
|
jsr txt.print
|
|
lda #<-100
|
|
ldy #>-100
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
label_asm_608_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww
|
|
cmp #<1000
|
|
bne +
|
|
lda p8v_ww+1
|
|
cmp #>1000
|
|
beq label_asm_609_for_end
|
|
+ inc p8v_ww
|
|
bne label_asm_608_for_loop
|
|
inc p8v_ww+1
|
|
bra label_asm_608_for_loop
|
|
label_asm_609_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<1101
|
|
bne label_asm_612_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>1101
|
|
bne label_asm_612_else
|
|
lda #1
|
|
bra label_asm_611_afterif
|
|
label_asm_612_else
|
|
lda #0
|
|
label_asm_611_afterif
|
|
beq label_asm_610_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<-28838
|
|
bne label_asm_614_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>-28838
|
|
bne label_asm_614_else
|
|
lda #1
|
|
bra label_asm_613_afterif
|
|
label_asm_614_else
|
|
lda #0
|
|
label_asm_613_afterif
|
|
label_asm_610_shortcut
|
|
beq label_asm_616_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_615_afterif
|
|
label_asm_616_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_615_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_66
|
|
lda #<prog8_interned_strings.string_66
|
|
jsr txt.print
|
|
lda #<1000
|
|
ldy #>1000
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
label_asm_617_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww
|
|
cmp #<-500
|
|
bne +
|
|
lda p8v_ww+1
|
|
cmp #>-500
|
|
beq label_asm_618_for_end
|
|
+ lda p8v_ww
|
|
bne +
|
|
dec p8v_ww+1
|
|
+ dec p8v_ww
|
|
bra label_asm_617_for_loop
|
|
label_asm_618_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<1501
|
|
bne label_asm_621_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>1501
|
|
bne label_asm_621_else
|
|
lda #1
|
|
bra label_asm_620_afterif
|
|
label_asm_621_else
|
|
lda #0
|
|
label_asm_620_afterif
|
|
beq label_asm_619_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<-17966
|
|
bne label_asm_623_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>-17966
|
|
bne label_asm_623_else
|
|
lda #1
|
|
bra label_asm_622_afterif
|
|
label_asm_623_else
|
|
lda #0
|
|
label_asm_622_afterif
|
|
label_asm_619_shortcut
|
|
beq label_asm_625_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_624_afterif
|
|
label_asm_625_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_624_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_67
|
|
lda #<prog8_interned_strings.string_67
|
|
jsr txt.print
|
|
lda #<-1000
|
|
ldy #>-1000
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
label_asm_626_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww
|
|
cmp #<1997
|
|
bne +
|
|
lda p8v_ww+1
|
|
cmp #>1997
|
|
bne +
|
|
beq label_asm_627_for_end
|
|
+ lda p8v_ww
|
|
clc
|
|
adc #<333
|
|
sta p8v_ww
|
|
lda p8v_ww+1
|
|
adc #>333
|
|
sta p8v_ww+1
|
|
bra label_asm_626_for_loop
|
|
label_asm_627_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<10
|
|
bne label_asm_630_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>10
|
|
bne label_asm_630_else
|
|
lda #1
|
|
bra label_asm_629_afterif
|
|
label_asm_630_else
|
|
lda #0
|
|
label_asm_629_afterif
|
|
beq label_asm_628_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<4985
|
|
bne label_asm_632_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>4985
|
|
bne label_asm_632_else
|
|
lda #1
|
|
bra label_asm_631_afterif
|
|
label_asm_632_else
|
|
lda #0
|
|
label_asm_631_afterif
|
|
label_asm_628_shortcut
|
|
beq label_asm_634_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_633_afterif
|
|
label_asm_634_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_633_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_68
|
|
lda #<prog8_interned_strings.string_68
|
|
jsr txt.print
|
|
lda #<-1000
|
|
ldy #>-1000
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
label_asm_635_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww
|
|
cmp #<2330
|
|
bne +
|
|
lda p8v_ww+1
|
|
cmp #>2330
|
|
bne +
|
|
beq label_asm_636_for_end
|
|
+ lda p8v_ww
|
|
clc
|
|
adc #<333
|
|
sta p8v_ww
|
|
lda p8v_ww+1
|
|
adc #>333
|
|
sta p8v_ww+1
|
|
bra label_asm_635_for_loop
|
|
label_asm_636_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<11
|
|
bne label_asm_639_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>11
|
|
bne label_asm_639_else
|
|
lda #1
|
|
bra label_asm_638_afterif
|
|
label_asm_639_else
|
|
lda #0
|
|
label_asm_638_afterif
|
|
beq label_asm_637_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<7315
|
|
bne label_asm_641_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>7315
|
|
bne label_asm_641_else
|
|
lda #1
|
|
bra label_asm_640_afterif
|
|
label_asm_641_else
|
|
lda #0
|
|
label_asm_640_afterif
|
|
label_asm_637_shortcut
|
|
beq label_asm_643_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_642_afterif
|
|
label_asm_643_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_642_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_69
|
|
lda #<prog8_interned_strings.string_69
|
|
jsr txt.print
|
|
lda #<2000
|
|
ldy #>2000
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
label_asm_644_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww
|
|
cmp #<-2329
|
|
bne +
|
|
lda p8v_ww+1
|
|
cmp #>-2329
|
|
bne +
|
|
beq label_asm_645_for_end
|
|
+ lda p8v_ww
|
|
clc
|
|
adc #<-333
|
|
sta p8v_ww
|
|
lda p8v_ww+1
|
|
adc #>-333
|
|
sta p8v_ww+1
|
|
bra label_asm_644_for_loop
|
|
label_asm_645_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<14
|
|
bne label_asm_648_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>14
|
|
bne label_asm_648_else
|
|
lda #1
|
|
bra label_asm_647_afterif
|
|
label_asm_648_else
|
|
lda #0
|
|
label_asm_647_afterif
|
|
beq label_asm_646_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<-2303
|
|
bne label_asm_650_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>-2303
|
|
bne label_asm_650_else
|
|
lda #1
|
|
bra label_asm_649_afterif
|
|
label_asm_650_else
|
|
lda #0
|
|
label_asm_649_afterif
|
|
label_asm_646_shortcut
|
|
beq label_asm_652_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_651_afterif
|
|
label_asm_652_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_651_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_70
|
|
lda #<prog8_interned_strings.string_70
|
|
jsr txt.print
|
|
lda #<2000
|
|
ldy #>2000
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
label_asm_653_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww
|
|
cmp #<-2662
|
|
bne +
|
|
lda p8v_ww+1
|
|
cmp #>-2662
|
|
bne +
|
|
beq label_asm_654_for_end
|
|
+ lda p8v_ww
|
|
clc
|
|
adc #<-333
|
|
sta p8v_ww
|
|
lda p8v_ww+1
|
|
adc #>-333
|
|
sta p8v_ww+1
|
|
bra label_asm_653_for_loop
|
|
label_asm_654_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<15
|
|
bne label_asm_657_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>15
|
|
bne label_asm_657_else
|
|
lda #1
|
|
bra label_asm_656_afterif
|
|
label_asm_657_else
|
|
lda #0
|
|
label_asm_656_afterif
|
|
beq label_asm_655_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<-4965
|
|
bne label_asm_659_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>-4965
|
|
bne label_asm_659_else
|
|
lda #1
|
|
bra label_asm_658_afterif
|
|
label_asm_659_else
|
|
lda #0
|
|
label_asm_658_afterif
|
|
label_asm_655_shortcut
|
|
beq label_asm_661_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_660_afterif
|
|
label_asm_661_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_660_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #<$4268
|
|
ldy #>$4268
|
|
sta p8v_endw1
|
|
sty p8v_endw1+1
|
|
|
|
ldy #>prog8_interned_strings.string_71
|
|
lda #<prog8_interned_strings.string_71
|
|
jsr txt.print
|
|
lda #<$4074
|
|
ldy #>$4074
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
|
|
ldy p8v_endw1+1
|
|
lda p8v_endw1
|
|
sta P8ZP_SCRATCH_REG
|
|
cmp p8v_ww
|
|
tya
|
|
sbc p8v_ww+1
|
|
bvc +
|
|
eor #$80
|
|
+ bmi label_asm_663_for_end
|
|
lda P8ZP_SCRATCH_REG
|
|
sty label_asm_664_for_modified+1
|
|
sta label_asm_665_for_modifiedb+1
|
|
label_asm_662_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww+1
|
|
label_asm_664_for_modified cmp #0 ; modified
|
|
bne +
|
|
lda p8v_ww
|
|
label_asm_665_for_modifiedb cmp #0 ; modified
|
|
beq label_asm_663_for_end
|
|
+ inc p8v_ww
|
|
bne label_asm_662_for_loop
|
|
inc p8v_ww+1
|
|
bra label_asm_662_for_loop
|
|
label_asm_663_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<501
|
|
bne label_asm_668_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>501
|
|
bne label_asm_668_else
|
|
lda #1
|
|
bra label_asm_667_afterif
|
|
label_asm_668_else
|
|
lda #0
|
|
label_asm_667_afterif
|
|
beq label_asm_666_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<3142
|
|
bne label_asm_670_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>3142
|
|
bne label_asm_670_else
|
|
lda #1
|
|
bra label_asm_669_afterif
|
|
label_asm_670_else
|
|
lda #0
|
|
label_asm_669_afterif
|
|
label_asm_666_shortcut
|
|
beq label_asm_672_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_671_afterif
|
|
label_asm_672_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_671_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
ldy #>prog8_interned_strings.string_72
|
|
lda #<prog8_interned_strings.string_72
|
|
jsr txt.print
|
|
lda p8v_endw1
|
|
ldy p8v_endw1+1
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
ldy #>$4074
|
|
lda #<$4074
|
|
sta P8ZP_SCRATCH_W2 ; to
|
|
sty P8ZP_SCRATCH_W2+1 ; to
|
|
lda p8v_ww
|
|
cmp P8ZP_SCRATCH_W2
|
|
lda p8v_ww+1
|
|
sbc P8ZP_SCRATCH_W2+1
|
|
bvc +
|
|
eor #$80
|
|
+ bmi label_asm_674_for_end
|
|
lda P8ZP_SCRATCH_W2
|
|
ldy P8ZP_SCRATCH_W2+1
|
|
sty label_asm_675_for_modified+1
|
|
sta label_asm_676_for_modifiedb+1
|
|
label_asm_673_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww+1
|
|
label_asm_675_for_modified cmp #0 ; modified
|
|
bne +
|
|
lda p8v_ww
|
|
label_asm_676_for_modifiedb cmp #0 ; modified
|
|
beq label_asm_674_for_end
|
|
+ lda p8v_ww
|
|
bne +
|
|
dec p8v_ww+1
|
|
+ dec p8v_ww
|
|
bra label_asm_673_for_loop
|
|
label_asm_674_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<501
|
|
bne label_asm_679_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>501
|
|
bne label_asm_679_else
|
|
lda #1
|
|
bra label_asm_678_afterif
|
|
label_asm_679_else
|
|
lda #0
|
|
label_asm_678_afterif
|
|
beq label_asm_677_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<3142
|
|
bne label_asm_681_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>3142
|
|
bne label_asm_681_else
|
|
lda #1
|
|
bra label_asm_680_afterif
|
|
label_asm_681_else
|
|
lda #0
|
|
label_asm_680_afterif
|
|
label_asm_677_shortcut
|
|
beq label_asm_683_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_682_afterif
|
|
label_asm_683_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_682_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #<$4268
|
|
ldy #>$4268
|
|
sta p8v_endw1
|
|
sty p8v_endw1+1
|
|
|
|
ldy #>prog8_interned_strings.string_73
|
|
lda #<prog8_interned_strings.string_73
|
|
jsr txt.print
|
|
lda #<$38a4
|
|
ldy #>$38a4
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
|
|
ldy p8v_endw1+1
|
|
lda p8v_endw1
|
|
sta P8ZP_SCRATCH_REG
|
|
cmp p8v_ww
|
|
tya
|
|
sbc p8v_ww+1
|
|
bvc +
|
|
eor #$80
|
|
+ bmi label_asm_685_for_end
|
|
lda P8ZP_SCRATCH_REG
|
|
sty label_asm_686_for_modified+1
|
|
sta label_asm_687_for_modifiedb+1
|
|
label_asm_684_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww
|
|
clc
|
|
adc #<333
|
|
sta p8v_ww
|
|
lda p8v_ww+1
|
|
adc #>333
|
|
sta p8v_ww+1
|
|
label_asm_687_for_modifiedb lda #0 ; modified
|
|
cmp p8v_ww
|
|
label_asm_686_for_modified lda #0 ; modified
|
|
sbc p8v_ww+1
|
|
bvc +
|
|
eor #$80
|
|
+ bpl label_asm_684_for_loop
|
|
label_asm_685_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<8
|
|
bne label_asm_690_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>8
|
|
bne label_asm_690_else
|
|
lda #1
|
|
bra label_asm_689_afterif
|
|
label_asm_690_else
|
|
lda #0
|
|
label_asm_689_afterif
|
|
beq label_asm_688_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<-5748
|
|
bne label_asm_692_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>-5748
|
|
bne label_asm_692_else
|
|
lda #1
|
|
bra label_asm_691_afterif
|
|
label_asm_692_else
|
|
lda #0
|
|
label_asm_691_afterif
|
|
label_asm_688_shortcut
|
|
beq label_asm_694_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_693_afterif
|
|
label_asm_694_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_693_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #<$4268
|
|
ldy #>$4268
|
|
sta p8v_endw1
|
|
sty p8v_endw1+1
|
|
|
|
ldy #>prog8_interned_strings.string_74
|
|
lda #<prog8_interned_strings.string_74
|
|
jsr txt.print
|
|
lda p8v_endw1
|
|
ldy p8v_endw1+1
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
ldy #>$38a4
|
|
lda #<$38a4
|
|
sta P8ZP_SCRATCH_W2 ; to
|
|
sty P8ZP_SCRATCH_W2+1 ; to
|
|
lda p8v_ww
|
|
cmp P8ZP_SCRATCH_W2
|
|
lda p8v_ww+1
|
|
sbc P8ZP_SCRATCH_W2+1
|
|
bvc +
|
|
eor #$80
|
|
+ bmi label_asm_696_for_end
|
|
lda P8ZP_SCRATCH_W2
|
|
ldy P8ZP_SCRATCH_W2+1
|
|
sty label_asm_697_for_modified+1
|
|
sta label_asm_698_for_modifiedb+1
|
|
label_asm_695_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww
|
|
sec
|
|
sbc #<333
|
|
sta p8v_ww
|
|
tax
|
|
lda p8v_ww+1
|
|
sbc #>333
|
|
sta p8v_ww+1
|
|
txa
|
|
label_asm_698_for_modifiedb cmp #0 ; modified
|
|
lda p8v_ww+1
|
|
label_asm_697_for_modified sbc #0 ; modified
|
|
bvc +
|
|
eor #$80
|
|
+ bpl label_asm_695_for_loop
|
|
label_asm_696_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<8
|
|
bne label_asm_701_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>8
|
|
bne label_asm_701_else
|
|
lda #1
|
|
bra label_asm_700_afterif
|
|
label_asm_701_else
|
|
lda #0
|
|
label_asm_700_afterif
|
|
beq label_asm_699_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<-4396
|
|
bne label_asm_703_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>-4396
|
|
bne label_asm_703_else
|
|
lda #1
|
|
bra label_asm_702_afterif
|
|
label_asm_703_else
|
|
lda #0
|
|
label_asm_702_afterif
|
|
label_asm_699_shortcut
|
|
beq label_asm_705_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_704_afterif
|
|
label_asm_705_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_704_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #<$430c
|
|
ldy #>$430c
|
|
sta p8v_endw1
|
|
sty p8v_endw1+1
|
|
|
|
ldy #>prog8_interned_strings.string_75
|
|
lda #<prog8_interned_strings.string_75
|
|
jsr txt.print
|
|
lda #<$38a4
|
|
ldy #>$38a4
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
|
|
ldy p8v_endw1+1
|
|
lda p8v_endw1
|
|
sta P8ZP_SCRATCH_REG
|
|
cmp p8v_ww
|
|
tya
|
|
sbc p8v_ww+1
|
|
bvc +
|
|
eor #$80
|
|
+ bmi label_asm_707_for_end
|
|
lda P8ZP_SCRATCH_REG
|
|
sty label_asm_708_for_modified+1
|
|
sta label_asm_709_for_modifiedb+1
|
|
label_asm_706_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww
|
|
clc
|
|
adc #<333
|
|
sta p8v_ww
|
|
lda p8v_ww+1
|
|
adc #>333
|
|
sta p8v_ww+1
|
|
label_asm_709_for_modifiedb lda #0 ; modified
|
|
cmp p8v_ww
|
|
label_asm_708_for_modified lda #0 ; modified
|
|
sbc p8v_ww+1
|
|
bvc +
|
|
eor #$80
|
|
+ bpl label_asm_706_for_loop
|
|
label_asm_707_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<9
|
|
bne label_asm_712_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>9
|
|
bne label_asm_712_else
|
|
lda #1
|
|
bra label_asm_711_afterif
|
|
label_asm_712_else
|
|
lda #0
|
|
label_asm_711_afterif
|
|
beq label_asm_710_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<11416
|
|
bne label_asm_714_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>11416
|
|
bne label_asm_714_else
|
|
lda #1
|
|
bra label_asm_713_afterif
|
|
label_asm_714_else
|
|
lda #0
|
|
label_asm_713_afterif
|
|
label_asm_710_shortcut
|
|
beq label_asm_716_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_715_afterif
|
|
label_asm_716_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_715_afterif
|
|
stz p8v_count
|
|
stz p8v_count+1
|
|
stz p8v_total
|
|
stz p8v_total+1
|
|
lda #<$4268
|
|
ldy #>$4268
|
|
sta p8v_endw1
|
|
sty p8v_endw1+1
|
|
|
|
ldy #>prog8_interned_strings.string_76
|
|
lda #<prog8_interned_strings.string_76
|
|
jsr txt.print
|
|
lda p8v_endw1
|
|
ldy p8v_endw1+1
|
|
sta p8v_ww
|
|
sty p8v_ww+1
|
|
ldy #>$3800
|
|
lda #<$3800
|
|
sta P8ZP_SCRATCH_W2 ; to
|
|
sty P8ZP_SCRATCH_W2+1 ; to
|
|
lda p8v_ww
|
|
cmp P8ZP_SCRATCH_W2
|
|
lda p8v_ww+1
|
|
sbc P8ZP_SCRATCH_W2+1
|
|
bvc +
|
|
eor #$80
|
|
+ bmi label_asm_718_for_end
|
|
lda P8ZP_SCRATCH_W2
|
|
ldy P8ZP_SCRATCH_W2+1
|
|
sty label_asm_719_for_modified+1
|
|
sta label_asm_720_for_modifiedb+1
|
|
label_asm_717_for_loop
|
|
inc p8v_count
|
|
bne +
|
|
inc p8v_count+1
|
|
+
|
|
lda p8v_total
|
|
clc
|
|
adc p8v_ww
|
|
sta p8v_total
|
|
lda p8v_total+1
|
|
adc p8v_ww+1
|
|
sta p8v_total+1
|
|
lda p8v_ww
|
|
sec
|
|
sbc #<333
|
|
sta p8v_ww
|
|
tax
|
|
lda p8v_ww+1
|
|
sbc #>333
|
|
sta p8v_ww+1
|
|
txa
|
|
label_asm_720_for_modifiedb cmp #0 ; modified
|
|
lda p8v_ww+1
|
|
label_asm_719_for_modified sbc #0 ; modified
|
|
bvc +
|
|
eor #$80
|
|
+ bpl label_asm_717_for_loop
|
|
label_asm_718_for_end
|
|
lda p8b_main.p8s_start.p8v_count
|
|
cmp #<9
|
|
bne label_asm_723_else
|
|
lda p8b_main.p8s_start.p8v_count+1
|
|
cmp #>9
|
|
bne label_asm_723_else
|
|
lda #1
|
|
bra label_asm_722_afterif
|
|
label_asm_723_else
|
|
lda #0
|
|
label_asm_722_afterif
|
|
beq label_asm_721_shortcut
|
|
lda p8b_main.p8s_start.p8v_total
|
|
cmp #<9940
|
|
bne label_asm_725_else
|
|
lda p8b_main.p8s_start.p8v_total+1
|
|
cmp #>9940
|
|
bne label_asm_725_else
|
|
lda #1
|
|
bra label_asm_724_afterif
|
|
label_asm_725_else
|
|
lda #0
|
|
label_asm_724_afterif
|
|
label_asm_721_shortcut
|
|
beq label_asm_727_else
|
|
ldy #>prog8_interned_strings.string_3
|
|
lda #<prog8_interned_strings.string_3
|
|
jsr txt.print
|
|
bra label_asm_726_afterif
|
|
label_asm_727_else
|
|
ldy #>prog8_interned_strings.string_4
|
|
lda #<prog8_interned_strings.string_4
|
|
jsr txt.print
|
|
label_asm_726_afterif
|
|
jmp test_stack.test
|
|
; variables
|
|
.section BSS
|
|
.send BSS
|
|
|
|
; non-zeropage variables
|
|
p8v_auto_heap_value_1 .byte $01, $03, $05, $63
|
|
p8v_auto_heap_value_2 .byte $01, $03, $05, $63
|
|
p8v_auto_heap_value_3 .char $01, $03, $05, $63
|
|
p8v_auto_heap_value_4 .word $0457, $0d05, $022b, $03e7
|
|
p8v_auto_heap_value_5 .sint $0457, $0d05, $022b, $03e7
|
|
p8v_barr .char $16, -$21, -$2c, $37, $42
|
|
p8v_ubarr .byte $16, $21, $2c, $37, $42
|
|
p8v_uwarr .word $0457, $08ae, $0d02, $0fa0
|
|
p8v_warr .sint -$006f, $00de, -$014d, $01bc
|
|
.pend
|
|
|
|
p8s_wait_input .proc
|
|
; statements
|
|
ldy #>prog8_interned_strings.string_77
|
|
lda #<prog8_interned_strings.string_77
|
|
jsr txt.print
|
|
ldy #>p8b_main.p8s_wait_input.p8v_input
|
|
lda #<p8b_main.p8s_wait_input.p8v_input
|
|
jsr txt.input_chars
|
|
lda #13
|
|
jsr txt.chrout
|
|
lda #13
|
|
jmp txt.chrout
|
|
; variables
|
|
.section BSS
|
|
.send BSS
|
|
|
|
; non-zeropage variables
|
|
p8v_input ; PETSCII:" "
|
|
.byte $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20
|
|
.byte $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20, $20
|
|
.byte $20, $20, $20, $20, $20, $20, $20, $20, $00
|
|
.pend
|
|
.pend
|
|
|
|
; ---- block: 'prog8_interned_strings' ----
|
|
prog8_interned_strings .proc
|
|
|
|
; non-zeropage variables
|
|
string_1 ; PETSCII:"a in string: "
|
|
.byte $41, $20, $49, $4e, $20, $53, $54, $52, $49, $4e, $47, $3a, $20, $00
|
|
string_10 ; PETSCII:"a in rangeincl step 3: "
|
|
.byte $41, $20, $49, $4e, $20, $52, $41, $4e, $47, $45, $49, $4e, $43, $4c, $20, $53
|
|
.byte $54, $45, $50, $20, $33, $3a, $20, $00
|
|
string_11 ; PETSCII:"a in range step -3: "
|
|
.byte $41, $20, $49, $4e, $20, $52, $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20
|
|
.byte $2d, $33, $3a, $20, $00
|
|
string_12 ; PETSCII:"a in rangeincl step -3: "
|
|
.byte $41, $20, $49, $4e, $20, $52, $41, $4e, $47, $45, $49, $4e, $43, $4c, $20, $53
|
|
.byte $54, $45, $50, $20, $2d, $33, $3a, $20, $00
|
|
string_13 ; PETSCII:"a in ncrange step 1: "
|
|
.byte $41, $20, $49, $4e, $20, $4e, $43, $52, $41, $4e, $47, $45, $20, $53, $54, $45
|
|
.byte $50, $20, $31, $3a, $20, $00
|
|
string_14 ; PETSCII:"a in ncrange step -1: "
|
|
.byte $41, $20, $49, $4e, $20, $4e, $43, $52, $41, $4e, $47, $45, $20, $53, $54, $45
|
|
.byte $50, $20, $2d, $31, $3a, $20, $00
|
|
string_15 ; PETSCII:"a in ncrange step 3: "
|
|
.byte $41, $20, $49, $4e, $20, $4e, $43, $52, $41, $4e, $47, $45, $20, $53, $54, $45
|
|
.byte $50, $20, $33, $3a, $20, $00
|
|
string_16 ; PETSCII:"a in ncrange step -3: "
|
|
.byte $41, $20, $49, $4e, $20, $4e, $43, $52, $41, $4e, $47, $45, $20, $53, $54, $45
|
|
.byte $50, $20, $2d, $33, $3a, $20, $00
|
|
string_17 ; PETSCII:"a in ncrangeinc step 3: "
|
|
.byte $41, $20, $49, $4e, $20, $4e, $43, $52, $41, $4e, $47, $45, $49, $4e, $43, $20
|
|
.byte $53, $54, $45, $50, $20, $33, $3a, $20, $00
|
|
string_18 ; PETSCII:"a in ncrangeinc step -3: "
|
|
.byte $41, $20, $49, $4e, $20, $4e, $43, $52, $41, $4e, $47, $45, $49, $4e, $43, $20
|
|
.byte $53, $54, $45, $50, $20, $2d, $33, $3a, $20, $00
|
|
string_19 ; PETSCII:"ubyte var in string: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $53, $54, $52
|
|
.byte $49, $4e, $47, $3a, $20, $00
|
|
string_2 ; PETSCII:"hello"
|
|
.byte $48, $45, $4c, $4c, $4f, $00
|
|
string_20 ; PETSCII:"ubyte var in arrayliteral: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $41, $52, $52
|
|
.byte $41, $59, $4c, $49, $54, $45, $52, $41, $4c, $3a, $20, $00
|
|
string_21 ; PETSCII:"ubyte var in arrayvar: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $41, $52, $52
|
|
.byte $41, $59, $56, $41, $52, $3a, $20, $00
|
|
string_22 ; PETSCII:"ubyte var in range step 1: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $20, $53, $54, $45, $50, $20, $31, $3a, $20, $00
|
|
string_23 ; PETSCII:"ubyte var in range step -1: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $20, $53, $54, $45, $50, $20, $2d, $31, $3a, $20, $00
|
|
string_24 ; PETSCII:"ubyte var in range step 3: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $20, $53, $54, $45, $50, $20, $33, $3a, $20, $00
|
|
string_25 ; PETSCII:"ubyte var in rangeincl step 3: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $49, $4e, $43, $4c, $20, $53, $54, $45, $50, $20, $33, $3a, $20, $00
|
|
string_26 ; PETSCII:"ubyte var in range step -3: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $20, $53, $54, $45, $50, $20, $2d, $33, $3a, $20, $00
|
|
string_27 ; PETSCII:"ubyte var in rangeincl step -3: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $49, $4e, $43, $4c, $20, $53, $54, $45, $50, $20, $2d, $33, $3a, $20
|
|
.byte $00
|
|
string_28 ; PETSCII:"ubyte var in ncrange step 1: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20, $31, $3a, $20, $00
|
|
string_29 ; PETSCII:"ubyte var in ncrange step -1: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20, $2d, $31, $3a, $20, $00
|
|
string_3 ; PETSCII:"ok\n"
|
|
.byte $4f, $4b, $0d, $00
|
|
string_30 ; PETSCII:"ubyte var in ncrange step 3: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20, $33, $3a, $20, $00
|
|
string_31 ; PETSCII:"ubyte var in ncrange step -3: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20, $2d, $33, $3a, $20, $00
|
|
string_32 ; PETSCII:"ubyte var in ncrangeinc step 3: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $49, $4e, $43, $20, $53, $54, $45, $50, $20, $33, $3a, $20
|
|
.byte $00
|
|
string_33 ; PETSCII:"ubyte var in ncrangeinc step -3: "
|
|
.byte $55, $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $49, $4e, $43, $20, $53, $54, $45, $50, $20, $2d, $33, $3a
|
|
.byte $20, $00
|
|
string_34 ; PETSCII:"byte var in arrayliteral: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $41, $52, $52, $41
|
|
.byte $59, $4c, $49, $54, $45, $52, $41, $4c, $3a, $20, $00
|
|
string_35 ; PETSCII:"byte var in arrayvar: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $41, $52, $52, $41
|
|
.byte $59, $56, $41, $52, $3a, $20, $00
|
|
string_36 ; PETSCII:"byte var in range step 1: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $20, $53, $54, $45, $50, $20, $31, $3a, $20, $00
|
|
string_37 ; PETSCII:"byte var in range step -1: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $20, $53, $54, $45, $50, $20, $2d, $31, $3a, $20, $00
|
|
string_38 ; PETSCII:"byte var in range step 3: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $20, $53, $54, $45, $50, $20, $33, $3a, $20, $00
|
|
string_39 ; PETSCII:"byte var in rangeincl step 3: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $49, $4e, $43, $4c, $20, $53, $54, $45, $50, $20, $33, $3a, $20, $00
|
|
string_4 ; PETSCII:"fail!!!\n"
|
|
.byte $46, $41, $49, $4c, $21, $21, $21, $0d, $00
|
|
string_40 ; PETSCII:"byte var in range step -3: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $20, $53, $54, $45, $50, $20, $2d, $33, $3a, $20, $00
|
|
string_41 ; PETSCII:"byte var in rangeincl step -3: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $49, $4e, $43, $4c, $20, $53, $54, $45, $50, $20, $2d, $33, $3a, $20, $00
|
|
string_42 ; PETSCII:"byte var in ncrange step 1: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $20, $53, $54, $45, $50, $20, $31, $3a, $20, $00
|
|
string_43 ; PETSCII:"byte var in ncrange step -1: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $20, $53, $54, $45, $50, $20, $2d, $31, $3a, $20, $00
|
|
string_44 ; PETSCII:"byte var in ncrange step 3: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $20, $53, $54, $45, $50, $20, $33, $3a, $20, $00
|
|
string_45 ; PETSCII:"byte var in ncrange step -3: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $20, $53, $54, $45, $50, $20, $2d, $33, $3a, $20, $00
|
|
string_46 ; PETSCII:"byte var in ncrangeinc step 3: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $49, $4e, $43, $20, $53, $54, $45, $50, $20, $33, $3a, $20, $00
|
|
string_47 ; PETSCII:"byte var in ncrangeinc step -3: "
|
|
.byte $42, $59, $54, $45, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $49, $4e, $43, $20, $53, $54, $45, $50, $20, $2d, $33, $3a, $20
|
|
.byte $00
|
|
string_48 ; PETSCII:"uword var in string: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $53, $54, $52
|
|
.byte $49, $4e, $47, $3a, $20, $00
|
|
string_49 ; PETSCII:"uword var in arrayliteral: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $41, $52, $52
|
|
.byte $41, $59, $4c, $49, $54, $45, $52, $41, $4c, $3a, $20, $00
|
|
string_5 ; PETSCII:"a in arrayliteral: "
|
|
.byte $41, $20, $49, $4e, $20, $41, $52, $52, $41, $59, $4c, $49, $54, $45, $52, $41
|
|
.byte $4c, $3a, $20, $00
|
|
string_50 ; PETSCII:"uword var in arrayvar: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $41, $52, $52
|
|
.byte $41, $59, $56, $41, $52, $3a, $20, $00
|
|
string_51 ; PETSCII:"uword var in range step 1: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $20, $53, $54, $45, $50, $20, $31, $3a, $20, $00
|
|
string_52 ; PETSCII:"uword var in range step -1: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $20, $53, $54, $45, $50, $20, $2d, $31, $3a, $20, $00
|
|
string_53 ; PETSCII:"uword var in range step 333: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $20, $53, $54, $45, $50, $20, $33, $33, $33, $3a, $20, $00
|
|
string_54 ; PETSCII:"uword var in rangeincl step 333: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $49, $4e, $43, $4c, $20, $53, $54, $45, $50, $20, $33, $33, $33, $3a
|
|
.byte $20, $00
|
|
string_55 ; PETSCII:"uword var in range step -333: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $20, $53, $54, $45, $50, $20, $2d, $33, $33, $33, $3a, $20, $00
|
|
string_56 ; PETSCII:"uword var in rangeincl step -333: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e
|
|
.byte $47, $45, $49, $4e, $43, $4c, $20, $53, $54, $45, $50, $20, $2d, $33, $33, $33
|
|
.byte $3a, $20, $00
|
|
string_57 ; PETSCII:"uword var in ncrange step 1: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20, $31, $3a, $20, $00
|
|
string_58 ; PETSCII:"uword var in ncrange step -1: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20, $2d, $31, $3a, $20, $00
|
|
string_59 ; PETSCII:"uword var in ncrange step 333: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20, $33, $33, $33, $3a, $20, $00
|
|
string_6 ; PETSCII:"a in arrayvar: "
|
|
.byte $41, $20, $49, $4e, $20, $41, $52, $52, $41, $59, $56, $41, $52, $3a, $20, $00
|
|
string_60 ; PETSCII:"uword var in ncrange step -333: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20, $2d, $33, $33, $33, $3a, $20
|
|
.byte $00
|
|
string_61 ; PETSCII:"uword var in ncrangeinc step 333: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $49, $4e, $43, $20, $53, $54, $45, $50, $20, $33, $33, $33
|
|
.byte $3a, $20, $00
|
|
string_62 ; PETSCII:"uword var in ncrangeinc step -333: "
|
|
.byte $55, $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52
|
|
.byte $41, $4e, $47, $45, $49, $4e, $43, $20, $53, $54, $45, $50, $20, $2d, $33, $33
|
|
.byte $33, $3a, $20, $00
|
|
string_63 ; PETSCII:"word var in arrayliteral: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $41, $52, $52, $41
|
|
.byte $59, $4c, $49, $54, $45, $52, $41, $4c, $3a, $20, $00
|
|
string_64 ; PETSCII:"word var in arrayvar: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $41, $52, $52, $41
|
|
.byte $59, $56, $41, $52, $3a, $20, $00
|
|
string_65 ; PETSCII:"word var in range step 1: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $20, $53, $54, $45, $50, $20, $31, $3a, $20, $00
|
|
string_66 ; PETSCII:"word var in range step -1: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $20, $53, $54, $45, $50, $20, $2d, $31, $3a, $20, $00
|
|
string_67 ; PETSCII:"word var in range step 333: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $20, $53, $54, $45, $50, $20, $33, $33, $33, $3a, $20, $00
|
|
string_68 ; PETSCII:"word var in rangeincl step 333: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $49, $4e, $43, $4c, $20, $53, $54, $45, $50, $20, $33, $33, $33, $3a, $20
|
|
.byte $00
|
|
string_69 ; PETSCII:"word var in range step -333: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $20, $53, $54, $45, $50, $20, $2d, $33, $33, $33, $3a, $20, $00
|
|
string_7 ; PETSCII:"a in range step 1: "
|
|
.byte $41, $20, $49, $4e, $20, $52, $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20
|
|
.byte $31, $3a, $20, $00
|
|
string_70 ; PETSCII:"word var in rangeincl step -333: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $52, $41, $4e, $47
|
|
.byte $45, $49, $4e, $43, $4c, $20, $53, $54, $45, $50, $20, $2d, $33, $33, $33, $3a
|
|
.byte $20, $00
|
|
string_71 ; PETSCII:"word var in ncrange step 1: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $20, $53, $54, $45, $50, $20, $31, $3a, $20, $00
|
|
string_72 ; PETSCII:"word var in ncrange step -1: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $20, $53, $54, $45, $50, $20, $2d, $31, $3a, $20, $00
|
|
string_73 ; PETSCII:"word var in ncrange step 333: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $20, $53, $54, $45, $50, $20, $33, $33, $33, $3a, $20, $00
|
|
string_74 ; PETSCII:"word var in ncrange step -333: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $20, $53, $54, $45, $50, $20, $2d, $33, $33, $33, $3a, $20, $00
|
|
string_75 ; PETSCII:"word var in ncrangeinc step 333: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $49, $4e, $43, $20, $53, $54, $45, $50, $20, $33, $33, $33, $3a
|
|
.byte $20, $00
|
|
string_76 ; PETSCII:"word var in ncrangeinc step -333: "
|
|
.byte $57, $4f, $52, $44, $20, $56, $41, $52, $20, $49, $4e, $20, $4e, $43, $52, $41
|
|
.byte $4e, $47, $45, $49, $4e, $43, $20, $53, $54, $45, $50, $20, $2d, $33, $33, $33
|
|
.byte $3a, $20, $00
|
|
string_77 ; PETSCII:"enter to continue:"
|
|
.byte $45, $4e, $54, $45, $52, $20, $54, $4f, $20, $43, $4f, $4e, $54, $49, $4e, $55
|
|
.byte $45, $3a, $00
|
|
string_8 ; PETSCII:"a in range step -1: "
|
|
.byte $41, $20, $49, $4e, $20, $52, $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20
|
|
.byte $2d, $31, $3a, $20, $00
|
|
string_9 ; PETSCII:"a in range step 3: "
|
|
.byte $41, $20, $49, $4e, $20, $52, $41, $4e, $47, $45, $20, $53, $54, $45, $50, $20
|
|
.byte $33, $3a, $20, $00
|
|
|
|
.pend
|
|
|
|
; ---- block: 'txt' ----
|
|
txt .proc
|
|
DEFAULT_HEIGHT = $3c
|
|
DEFAULT_WIDTH = $50
|
|
VERA_TEXTMATRIX_ADDR = $b000
|
|
VERA_TEXTMATRIX_BANK = 1
|
|
|
|
chrout = $ffd2
|
|
|
|
|
|
column .proc
|
|
sec
|
|
jsr cbm.PLOT
|
|
tay
|
|
clc
|
|
jmp cbm.PLOT
|
|
.pend
|
|
|
|
get_column .proc
|
|
sec
|
|
jmp cbm.PLOT
|
|
.pend
|
|
|
|
row .proc
|
|
sec
|
|
jsr cbm.PLOT
|
|
tax
|
|
clc
|
|
jmp cbm.PLOT
|
|
.pend
|
|
|
|
get_row .proc
|
|
sec
|
|
jmp cbm.PLOT
|
|
.pend
|
|
|
|
fill_screen .proc
|
|
sty _ly+1
|
|
pha
|
|
jsr cbm.SCREEN ; get dimensions in X/Y
|
|
txa
|
|
lsr a
|
|
lsr a
|
|
sta _lx+1
|
|
lda #%00010000
|
|
jsr set_vera_textmatrix_addresses
|
|
pla
|
|
_lx ldx #0 ; modified
|
|
phy
|
|
_ly ldy #1 ; modified
|
|
- sta cx16.VERA_DATA0
|
|
sty cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
sty cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
sty cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
sty cx16.VERA_DATA0
|
|
dex
|
|
bne -
|
|
ply
|
|
dey
|
|
beq +
|
|
stz cx16.VERA_ADDR_L
|
|
inc cx16.VERA_ADDR_M ; next line
|
|
bra _lx
|
|
+ rts
|
|
|
|
set_vera_textmatrix_addresses:
|
|
stz cx16.VERA_CTRL
|
|
ora #VERA_TEXTMATRIX_BANK
|
|
sta cx16.VERA_ADDR_H
|
|
stz cx16.VERA_ADDR_L ; start at (0,0)
|
|
lda #>VERA_TEXTMATRIX_ADDR
|
|
sta cx16.VERA_ADDR_M
|
|
rts
|
|
.pend
|
|
|
|
clear_screenchars .proc
|
|
pha
|
|
jsr cbm.SCREEN ; get dimensions in X/Y
|
|
txa
|
|
lsr a
|
|
lsr a
|
|
sta _lx+1
|
|
lda #%00100000
|
|
jsr fill_screen.set_vera_textmatrix_addresses
|
|
pla
|
|
_lx ldx #0 ; modified
|
|
- sta cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
dex
|
|
bne -
|
|
dey
|
|
beq +
|
|
stz cx16.VERA_ADDR_L
|
|
inc cx16.VERA_ADDR_M ; next line
|
|
bra _lx
|
|
+ rts
|
|
.pend
|
|
|
|
clear_screencolors .proc
|
|
sta _la+1
|
|
jsr cbm.SCREEN ; get dimensions in X/Y
|
|
txa
|
|
lsr a
|
|
lsr a
|
|
sta _lx+1
|
|
stz cx16.VERA_CTRL
|
|
lda #%00100000
|
|
jsr fill_screen.set_vera_textmatrix_addresses
|
|
inc cx16.VERA_ADDR_L ; start at (1,0) - the color attribute byte
|
|
_lx ldx #0 ; modified
|
|
_la lda #0 ; modified
|
|
- sta cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
dex
|
|
bne -
|
|
dey
|
|
beq +
|
|
lda #1
|
|
sta cx16.VERA_ADDR_L
|
|
inc cx16.VERA_ADDR_M ; next line
|
|
bra _lx
|
|
+ rts
|
|
.pend
|
|
|
|
scroll_left .proc
|
|
jsr cbm.SCREEN
|
|
dex
|
|
stx _lx+1
|
|
dey
|
|
sty P8ZP_SCRATCH_B1 ; number of rows to scroll
|
|
|
|
_nextline
|
|
stz cx16.VERA_CTRL ; data port 0: source column
|
|
lda #%00010000 | VERA_TEXTMATRIX_BANK ; auto increment 1
|
|
sta cx16.VERA_ADDR_H
|
|
lda #2
|
|
sta cx16.VERA_ADDR_L ; begin in column 1
|
|
lda P8ZP_SCRATCH_B1
|
|
clc
|
|
adc #>VERA_TEXTMATRIX_ADDR
|
|
tay
|
|
sty cx16.VERA_ADDR_M
|
|
lda #1
|
|
sta cx16.VERA_CTRL ; data port 1: destination column
|
|
lda #%00010000 | VERA_TEXTMATRIX_BANK ; auto increment 1
|
|
sta cx16.VERA_ADDR_H
|
|
stz cx16.VERA_ADDR_L
|
|
sty cx16.VERA_ADDR_M
|
|
|
|
_lx ldx #0 ; modified
|
|
- lda cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA1 ; copy char
|
|
lda cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA1 ; copy color
|
|
dex
|
|
bne -
|
|
dec P8ZP_SCRATCH_B1
|
|
bpl _nextline
|
|
|
|
lda #0
|
|
sta cx16.VERA_CTRL
|
|
rts
|
|
.pend
|
|
|
|
scroll_right .proc
|
|
jsr cbm.SCREEN
|
|
dex
|
|
stx _lx+1
|
|
txa
|
|
asl a
|
|
dea
|
|
sta _rcol+1
|
|
ina
|
|
ina
|
|
sta _rcol2+1
|
|
dey
|
|
sty P8ZP_SCRATCH_B1 ; number of rows to scroll
|
|
|
|
_nextline
|
|
stz cx16.VERA_CTRL ; data port 0: source column
|
|
lda #%00011000 | VERA_TEXTMATRIX_BANK ; auto decrement 1
|
|
sta cx16.VERA_ADDR_H
|
|
_rcol lda #79*2-1 ; modified
|
|
sta cx16.VERA_ADDR_L ; begin in rightmost column minus one
|
|
lda P8ZP_SCRATCH_B1
|
|
clc
|
|
adc #>VERA_TEXTMATRIX_ADDR
|
|
tay
|
|
sty cx16.VERA_ADDR_M
|
|
lda #1
|
|
sta cx16.VERA_CTRL ; data port 1: destination column
|
|
lda #%00011000 | VERA_TEXTMATRIX_BANK ; auto decrement 1
|
|
sta cx16.VERA_ADDR_H
|
|
_rcol2 lda #79*2+1 ; modified
|
|
sta cx16.VERA_ADDR_L
|
|
sty cx16.VERA_ADDR_M
|
|
|
|
_lx ldx #0 ; modified
|
|
- lda cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA1 ; copy char
|
|
lda cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA1 ; copy color
|
|
dex
|
|
bne -
|
|
dec P8ZP_SCRATCH_B1
|
|
bpl _nextline
|
|
|
|
lda #0
|
|
sta cx16.VERA_CTRL
|
|
rts
|
|
.pend
|
|
|
|
scroll_up .proc
|
|
jsr cbm.SCREEN
|
|
stx _nextline+1
|
|
dey
|
|
sty P8ZP_SCRATCH_B1
|
|
stz cx16.VERA_CTRL ; data port 0 is source
|
|
lda #1 | (>VERA_TEXTMATRIX_ADDR)
|
|
sta cx16.VERA_ADDR_M ; start at second line
|
|
stz cx16.VERA_ADDR_L
|
|
lda #%00010000 | VERA_TEXTMATRIX_BANK
|
|
sta cx16.VERA_ADDR_H ; enable auto increment by 1, bank 0.
|
|
|
|
lda #1
|
|
sta cx16.VERA_CTRL ; data port 1 is destination
|
|
lda #>VERA_TEXTMATRIX_ADDR
|
|
sta cx16.VERA_ADDR_M ; start at top line
|
|
stz cx16.VERA_ADDR_L
|
|
lda #%00010000 | VERA_TEXTMATRIX_BANK
|
|
sta cx16.VERA_ADDR_H ; enable auto increment by 1, bank 0.
|
|
|
|
_nextline
|
|
ldx #80 ; modified
|
|
- lda cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA1 ; copy char
|
|
lda cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA1 ; copy color
|
|
dex
|
|
bne -
|
|
dec P8ZP_SCRATCH_B1
|
|
beq +
|
|
stz cx16.VERA_CTRL ; data port 0
|
|
stz cx16.VERA_ADDR_L
|
|
inc cx16.VERA_ADDR_M
|
|
lda #1
|
|
sta cx16.VERA_CTRL ; data port 1
|
|
stz cx16.VERA_ADDR_L
|
|
inc cx16.VERA_ADDR_M
|
|
bra _nextline
|
|
|
|
+ lda #0
|
|
sta cx16.VERA_CTRL
|
|
rts
|
|
.pend
|
|
|
|
scroll_down .proc
|
|
jsr cbm.SCREEN
|
|
stx _nextline+1
|
|
dey
|
|
sty P8ZP_SCRATCH_B1
|
|
stz cx16.VERA_CTRL ; data port 0 is source
|
|
dey
|
|
tya
|
|
clc
|
|
adc #>VERA_TEXTMATRIX_ADDR
|
|
sta cx16.VERA_ADDR_M ; start at line before bottom line
|
|
stz cx16.VERA_ADDR_L
|
|
lda #%00010000 | VERA_TEXTMATRIX_BANK
|
|
sta cx16.VERA_ADDR_H ; enable auto increment by 1, bank 0.
|
|
|
|
lda #1
|
|
sta cx16.VERA_CTRL ; data port 1 is destination
|
|
iny
|
|
tya
|
|
clc
|
|
adc #>VERA_TEXTMATRIX_ADDR
|
|
sta cx16.VERA_ADDR_M ; start at bottom line
|
|
stz cx16.VERA_ADDR_L
|
|
lda #%00010000 | VERA_TEXTMATRIX_BANK
|
|
sta cx16.VERA_ADDR_H ; enable auto increment by 1, bank 0.
|
|
|
|
_nextline
|
|
ldx #80 ; modified
|
|
- lda cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA1 ; copy char
|
|
lda cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA1 ; copy color
|
|
dex
|
|
bne -
|
|
dec P8ZP_SCRATCH_B1
|
|
beq +
|
|
stz cx16.VERA_CTRL ; data port 0
|
|
stz cx16.VERA_ADDR_L
|
|
dec cx16.VERA_ADDR_M
|
|
lda #1
|
|
sta cx16.VERA_CTRL ; data port 1
|
|
stz cx16.VERA_ADDR_L
|
|
dec cx16.VERA_ADDR_M
|
|
bra _nextline
|
|
|
|
+ lda #0
|
|
sta cx16.VERA_CTRL
|
|
rts
|
|
.pend
|
|
|
|
|
|
print .proc
|
|
sta P8ZP_SCRATCH_B1
|
|
sty P8ZP_SCRATCH_REG
|
|
ldy #0
|
|
- lda (P8ZP_SCRATCH_B1),y
|
|
beq +
|
|
jsr cbm.CHROUT
|
|
iny
|
|
bne -
|
|
+ rts
|
|
.pend
|
|
|
|
print_ub0 .proc
|
|
jsr conv.ubyte2decimal
|
|
pha
|
|
tya
|
|
jsr cbm.CHROUT
|
|
pla
|
|
jsr cbm.CHROUT
|
|
txa
|
|
jmp cbm.CHROUT
|
|
.pend
|
|
|
|
print_ub .proc
|
|
jsr conv.ubyte2decimal
|
|
_print_byte_digits
|
|
pha
|
|
cpy #'0'
|
|
beq +
|
|
tya
|
|
jsr cbm.CHROUT
|
|
pla
|
|
jsr cbm.CHROUT
|
|
bra _ones
|
|
+ pla
|
|
cmp #'0'
|
|
beq _ones
|
|
jsr cbm.CHROUT
|
|
_ones txa
|
|
jmp cbm.CHROUT
|
|
.pend
|
|
|
|
print_b .proc
|
|
pha
|
|
cmp #0
|
|
bpl +
|
|
lda #'-'
|
|
jsr cbm.CHROUT
|
|
+ pla
|
|
jsr conv.byte2decimal
|
|
bra print_ub._print_byte_digits
|
|
.pend
|
|
|
|
print_ubhex .proc
|
|
bcc +
|
|
pha
|
|
lda #'$'
|
|
jsr cbm.CHROUT
|
|
pla
|
|
+ jsr conv.ubyte2hex
|
|
jsr cbm.CHROUT
|
|
tya
|
|
jmp cbm.CHROUT
|
|
.pend
|
|
|
|
print_ubbin .proc
|
|
sta P8ZP_SCRATCH_B1
|
|
bcc +
|
|
lda #'%'
|
|
jsr cbm.CHROUT
|
|
+ ldy #8
|
|
- lda #'0'
|
|
asl P8ZP_SCRATCH_B1
|
|
bcc +
|
|
lda #'1'
|
|
+ jsr cbm.CHROUT
|
|
dey
|
|
bne -
|
|
rts
|
|
.pend
|
|
|
|
print_uwbin .proc
|
|
pha
|
|
tya
|
|
jsr print_ubbin
|
|
pla
|
|
clc
|
|
bra print_ubbin
|
|
.pend
|
|
|
|
print_uwhex .proc
|
|
pha
|
|
tya
|
|
jsr print_ubhex
|
|
pla
|
|
clc
|
|
bra print_ubhex
|
|
.pend
|
|
|
|
print_uw0 .proc
|
|
jsr conv.uword2decimal
|
|
ldy #0
|
|
- lda conv.uword2decimal.decTenThousands,y
|
|
beq +
|
|
jsr cbm.CHROUT
|
|
iny
|
|
bne -
|
|
+ rts
|
|
.pend
|
|
|
|
print_uw .proc
|
|
jsr conv.uword2decimal
|
|
ldy #0
|
|
- lda conv.uword2decimal.decTenThousands,y
|
|
beq _allzero
|
|
cmp #'0'
|
|
bne _gotdigit
|
|
iny
|
|
bne -
|
|
|
|
_gotdigit
|
|
jsr cbm.CHROUT
|
|
iny
|
|
lda conv.uword2decimal.decTenThousands,y
|
|
bne _gotdigit
|
|
rts
|
|
_allzero
|
|
lda #'0'
|
|
jmp cbm.CHROUT
|
|
.pend
|
|
|
|
print_w .proc
|
|
cpy #0
|
|
bpl +
|
|
pha
|
|
lda #'-'
|
|
jsr cbm.CHROUT
|
|
tya
|
|
eor #255
|
|
tay
|
|
pla
|
|
eor #255
|
|
ina
|
|
bne +
|
|
iny
|
|
+ bra print_uw
|
|
.pend
|
|
|
|
input_chars .proc
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
ldy #0 ; char counter = 0
|
|
- jsr cbm.CHRIN
|
|
cmp #$0d ; return (ascii 13) pressed?
|
|
beq + ; yes, end.
|
|
sta (P8ZP_SCRATCH_W1),y ; else store char in buffer
|
|
iny
|
|
bne -
|
|
+ lda #0
|
|
sta (P8ZP_SCRATCH_W1),y ; finish string with 0 byte
|
|
rts
|
|
.pend
|
|
|
|
setchr .proc
|
|
pha
|
|
stz cx16.VERA_CTRL
|
|
lda #VERA_TEXTMATRIX_BANK
|
|
sta cx16.VERA_ADDR_H
|
|
txa
|
|
asl a
|
|
sta cx16.VERA_ADDR_L
|
|
tya
|
|
; clc
|
|
adc #>VERA_TEXTMATRIX_ADDR
|
|
sta cx16.VERA_ADDR_M
|
|
pla
|
|
sta cx16.VERA_DATA0
|
|
rts
|
|
.pend
|
|
|
|
getchr .proc
|
|
asl a
|
|
pha
|
|
stz cx16.VERA_CTRL
|
|
lda #VERA_TEXTMATRIX_BANK
|
|
sta cx16.VERA_ADDR_H
|
|
pla
|
|
sta cx16.VERA_ADDR_L
|
|
tya
|
|
; clc
|
|
adc #>VERA_TEXTMATRIX_ADDR
|
|
sta cx16.VERA_ADDR_M
|
|
lda cx16.VERA_DATA0
|
|
rts
|
|
.pend
|
|
|
|
setclr .proc
|
|
pha
|
|
stz cx16.VERA_CTRL
|
|
lda #VERA_TEXTMATRIX_BANK
|
|
sta cx16.VERA_ADDR_H
|
|
txa
|
|
asl a
|
|
ina
|
|
sta cx16.VERA_ADDR_L
|
|
tya
|
|
; clc
|
|
adc #>VERA_TEXTMATRIX_ADDR
|
|
sta cx16.VERA_ADDR_M
|
|
pla
|
|
sta cx16.VERA_DATA0
|
|
rts
|
|
.pend
|
|
|
|
getclr .proc
|
|
asl a
|
|
ina
|
|
pha
|
|
stz cx16.VERA_CTRL
|
|
lda #VERA_TEXTMATRIX_BANK
|
|
sta cx16.VERA_ADDR_H
|
|
pla
|
|
sta cx16.VERA_ADDR_L
|
|
tya
|
|
; clc
|
|
adc #>VERA_TEXTMATRIX_ADDR
|
|
sta cx16.VERA_ADDR_M
|
|
lda cx16.VERA_DATA0
|
|
rts
|
|
.pend
|
|
|
|
plot .proc
|
|
clc
|
|
jmp cbm.PLOT
|
|
.pend
|
|
|
|
width .proc
|
|
jsr cbm.SCREEN
|
|
txa
|
|
rts
|
|
.pend
|
|
|
|
height .proc
|
|
jsr cbm.SCREEN
|
|
tya
|
|
rts
|
|
.pend
|
|
|
|
waitkey .proc
|
|
- jsr cbm.GETIN
|
|
beq -
|
|
rts
|
|
.pend
|
|
|
|
petscii2scr .proc
|
|
sta P8ZP_SCRATCH_REG
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
tax
|
|
lda _offsets,x
|
|
eor P8ZP_SCRATCH_REG
|
|
rts
|
|
_offsets .byte 128, 0, 64, 32, 64, 192, 128, 128
|
|
.pend
|
|
|
|
petscii2scr_str .proc
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
ldy #0
|
|
- lda (P8ZP_SCRATCH_W1),y
|
|
beq +
|
|
jsr petscii2scr
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
iny
|
|
bne -
|
|
+ rts
|
|
.pend
|
|
.pend
|
|
|
|
; ---- block: 'cbm' ----
|
|
cbm .proc
|
|
|
|
CINT = $ff81
|
|
IOINIT = $ff84
|
|
RAMTAS = $ff87
|
|
RESTOR = $ff8a
|
|
VECTOR = $ff8d
|
|
SETMSG = $ff90
|
|
SECOND = $ff93
|
|
TKSA = $ff96
|
|
MEMTOP = $ff99
|
|
MEMBOT = $ff9c
|
|
SCNKEY = $ff9f
|
|
SETTMO = $ffa2
|
|
ACPTR = $ffa5
|
|
CIOUT = $ffa8
|
|
UNTLK = $ffab
|
|
UNLSN = $ffae
|
|
LISTEN = $ffb1
|
|
TALK = $ffb4
|
|
READST = $ffb7
|
|
SETLFS = $ffba
|
|
SETNAM = $ffbd
|
|
OPEN = $ffc0
|
|
CLOSE = $ffc3
|
|
CHKIN = $ffc6
|
|
CHKOUT = $ffc9
|
|
CLRCHN = $ffcc
|
|
CHRIN = $ffcf
|
|
CHROUT = $ffd2
|
|
LOAD = $ffd5
|
|
SAVE = $ffd8
|
|
SETTIM = $ffdb
|
|
RDTIM = $ffde
|
|
STOP = $ffe1
|
|
GETIN = $ffe4
|
|
CLALL = $ffe7
|
|
UDTIM = $ffea
|
|
SCREEN = $ffed
|
|
PLOT = $fff0
|
|
IOBASE = $fff3
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
STOP2 .proc
|
|
jsr cbm.STOP
|
|
beq +
|
|
lda #0
|
|
rts
|
|
+ lda #1
|
|
rts
|
|
.pend
|
|
|
|
RDTIM16 .proc
|
|
php
|
|
sei
|
|
jsr cbm.RDTIM
|
|
plp
|
|
cli
|
|
pha
|
|
txa
|
|
tay
|
|
pla
|
|
rts
|
|
.pend
|
|
.pend
|
|
|
|
; ---- block: 'cx16' ----
|
|
cx16 .proc
|
|
r0 = 2
|
|
r0s = 2
|
|
r0L = 2
|
|
r0sL = 2
|
|
r0H = 3
|
|
r0sH = 3
|
|
r1 = 4
|
|
r1s = 4
|
|
r1L = 4
|
|
r1sL = 4
|
|
r1H = 5
|
|
r1sH = 5
|
|
r2 = 6
|
|
r2s = 6
|
|
r2L = 6
|
|
r2sL = 6
|
|
r2H = 7
|
|
r2sH = 7
|
|
r3 = 8
|
|
r3s = 8
|
|
r3L = 8
|
|
r3sL = 8
|
|
r3H = 9
|
|
r3sH = 9
|
|
r4 = 10
|
|
r4s = 10
|
|
r4L = 10
|
|
r4sL = 10
|
|
r4H = 11
|
|
r4sH = 11
|
|
r5 = 12
|
|
r5s = 12
|
|
r5L = 12
|
|
r5sL = 12
|
|
r5H = 13
|
|
r5sH = 13
|
|
r6 = 14
|
|
r6s = 14
|
|
r6L = 14
|
|
r6sL = 14
|
|
r6H = 15
|
|
r6sH = 15
|
|
r7 = $10
|
|
r7s = $10
|
|
r7L = $10
|
|
r7sL = $10
|
|
r7H = $11
|
|
r7sH = $11
|
|
r8 = $12
|
|
r8s = $12
|
|
r8L = $12
|
|
r8sL = $12
|
|
r8H = $13
|
|
r8sH = $13
|
|
r9 = $14
|
|
r9s = $14
|
|
r9L = $14
|
|
r9sL = $14
|
|
r9H = $15
|
|
r9sH = $15
|
|
r10 = $16
|
|
r10s = $16
|
|
r10L = $16
|
|
r10sL = $16
|
|
r10H = $17
|
|
r10sH = $17
|
|
r11 = $18
|
|
r11s = $18
|
|
r11L = $18
|
|
r11sL = $18
|
|
r11H = $19
|
|
r11sH = $19
|
|
r12 = $1a
|
|
r12s = $1a
|
|
r12L = $1a
|
|
r12sL = $1a
|
|
r12H = $1b
|
|
r12sH = $1b
|
|
r13 = $1c
|
|
r13s = $1c
|
|
r13L = $1c
|
|
r13sL = $1c
|
|
r13H = $1d
|
|
r13sH = $1d
|
|
r14 = $1e
|
|
r14s = $1e
|
|
r14L = $1e
|
|
r14sL = $1e
|
|
r14H = $1f
|
|
r14sH = $1f
|
|
r15 = $20
|
|
r15s = $20
|
|
r15L = $20
|
|
r15sL = $20
|
|
r15H = $21
|
|
r15sH = $21
|
|
IERROR = $0300
|
|
IMAIN = $0302
|
|
ICRNCH = $0304
|
|
IQPLOP = $0306
|
|
IGONE = $0308
|
|
IEVAL = $030a
|
|
SAREG = $030c
|
|
SXREG = $030d
|
|
SYREG = $030e
|
|
SPREG = $030f
|
|
USRADD = $0311
|
|
CINV = $0314
|
|
CBINV = $0316
|
|
NMINV = $0318
|
|
IOPEN = $031a
|
|
ICLOSE = $031c
|
|
ICHKIN = $031e
|
|
ICKOUT = $0320
|
|
ICLRCH = $0322
|
|
IBASIN = $0324
|
|
IBSOUT = $0326
|
|
ISTOP = $0328
|
|
IGETIN = $032a
|
|
ICLALL = $032c
|
|
KEYHDL = $032e
|
|
ILOAD = $0330
|
|
ISAVE = $0332
|
|
via1prb = $9f00
|
|
via1pra = $9f01
|
|
via1ddrb = $9f02
|
|
via1ddra = $9f03
|
|
via1t1l = $9f04
|
|
via1t1h = $9f05
|
|
via1t1ll = $9f06
|
|
via1t1lh = $9f07
|
|
via1t2l = $9f08
|
|
via1t2h = $9f09
|
|
via1sr = $9f0a
|
|
via1acr = $9f0b
|
|
via1pcr = $9f0c
|
|
via1ifr = $9f0d
|
|
via1ier = $9f0e
|
|
via1ora = $9f0f
|
|
via2prb = $9f10
|
|
via2pra = $9f11
|
|
via2ddrb = $9f12
|
|
via2ddra = $9f13
|
|
via2t1l = $9f14
|
|
via2t1h = $9f15
|
|
via2t1ll = $9f16
|
|
via2t1lh = $9f17
|
|
via2t2l = $9f18
|
|
via2t2h = $9f19
|
|
via2sr = $9f1a
|
|
via2acr = $9f1b
|
|
via2pcr = $9f1c
|
|
via2ifr = $9f1d
|
|
via2ier = $9f1e
|
|
via2ora = $9f1f
|
|
VERA_ADDR_L = $9f20
|
|
VERA_ADDR = $9f20
|
|
VERA_ADDR_M = $9f21
|
|
VERA_ADDR_H = $9f22
|
|
VERA_DATA0 = $9f23
|
|
VERA_DATA1 = $9f24
|
|
VERA_CTRL = $9f25
|
|
VERA_IEN = $9f26
|
|
VERA_ISR = $9f27
|
|
VERA_IRQLINE_L = $9f28
|
|
VERA_SCANLINE_L = $9f28
|
|
VERA_DC_VIDEO = $9f29
|
|
VERA_DC_HSTART = $9f29
|
|
VERA_DC_VER0 = $9f29
|
|
VERA_FX_CTRL = $9f29
|
|
VERA_FX_X_INCR_L = $9f29
|
|
VERA_FX_X_INCR = $9f29
|
|
VERA_FX_X_POS_L = $9f29
|
|
VERA_FX_X_POS = $9f29
|
|
VERA_FX_X_POS_S = $9f29
|
|
VERA_FX_CACHE_L = $9f29
|
|
VERA_FX_ACCUM_RESET = $9f29
|
|
VERA_DC_HSCALE = $9f2a
|
|
VERA_DC_HSTOP = $9f2a
|
|
VERA_DC_VER1 = $9f2a
|
|
VERA_FX_TILEBASE = $9f2a
|
|
VERA_FX_X_INCR_H = $9f2a
|
|
VERA_FX_X_POS_H = $9f2a
|
|
VERA_FX_Y_POS_S = $9f2a
|
|
VERA_FX_CACHE_M = $9f2a
|
|
VERA_FX_ACCUM = $9f2a
|
|
VERA_DC_VSCALE = $9f2b
|
|
VERA_DC_VSTART = $9f2b
|
|
VERA_DC_VER2 = $9f2b
|
|
VERA_FX_MAPBASE = $9f2b
|
|
VERA_FX_Y_INCR_L = $9f2b
|
|
VERA_FX_Y_INCR = $9f2b
|
|
VERA_FX_Y_POS_L = $9f2b
|
|
VERA_FX_Y_POS = $9f2b
|
|
VERA_FX_POLY_FILL_L = $9f2b
|
|
VERA_FX_POLY_FILL = $9f2b
|
|
VERA_FX_CACHE_H = $9f2b
|
|
VERA_DC_BORDER = $9f2c
|
|
VERA_DC_VSTOP = $9f2c
|
|
VERA_DC_VER3 = $9f2c
|
|
VERA_FX_MULT = $9f2c
|
|
VERA_FX_Y_INCR_H = $9f2c
|
|
VERA_FX_Y_POS_H = $9f2c
|
|
VERA_FX_POLY_FILL_H = $9f2c
|
|
VERA_FX_CACHE_U = $9f2c
|
|
VERA_L0_CONFIG = $9f2d
|
|
VERA_L0_MAPBASE = $9f2e
|
|
VERA_L0_TILEBASE = $9f2f
|
|
VERA_L0_HSCROLL_L = $9f30
|
|
VERA_L0_HSCROLL = $9f30
|
|
VERA_L0_HSCROLL_H = $9f31
|
|
VERA_L0_VSCROLL_L = $9f32
|
|
VERA_L0_VSCROLL = $9f32
|
|
VERA_L0_VSCROLL_H = $9f33
|
|
VERA_L1_CONFIG = $9f34
|
|
VERA_L1_MAPBASE = $9f35
|
|
VERA_L1_TILEBASE = $9f36
|
|
VERA_L1_HSCROLL_L = $9f37
|
|
VERA_L1_HSCROLL = $9f37
|
|
VERA_L1_HSCROLL_H = $9f38
|
|
VERA_L1_VSCROLL_L = $9f39
|
|
VERA_L1_VSCROLL = $9f39
|
|
VERA_L1_VSCROLL_H = $9f3a
|
|
VERA_AUDIO_CTRL = $9f3b
|
|
VERA_AUDIO_RATE = $9f3c
|
|
VERA_AUDIO_DATA = $9f3d
|
|
VERA_SPI_DATA = $9f3e
|
|
VERA_SPI_CTRL = $9f3f
|
|
YM_ADDRESS = $9f40
|
|
YM_DATA = $9f41
|
|
edkeyvec = $ac03
|
|
edkeybk = $ac05
|
|
NMI_VEC = $fffa
|
|
RESET_VEC = $fffc
|
|
IRQ_VEC = $fffe
|
|
VERA_BASE = $9f20
|
|
VIA1_BASE = $9f00
|
|
VIA2_BASE = $9f10
|
|
extdev = $9f60
|
|
|
|
CLOSE_ALL = $ff4a
|
|
LKUPLA = $ff59
|
|
LKUPSA = $ff5c
|
|
screen_mode = $ff5f
|
|
screen_set_charset = $ff62
|
|
JSRFAR = $ff6e
|
|
fetch = $ff74
|
|
stash = $ff77
|
|
PRIMM = $ff7d
|
|
GRAPH_init = $ff20
|
|
GRAPH_clear = $ff23
|
|
GRAPH_set_window = $ff26
|
|
GRAPH_set_colors = $ff29
|
|
GRAPH_draw_line = $ff2c
|
|
GRAPH_draw_rect = $ff2f
|
|
GRAPH_move_rect = $ff32
|
|
GRAPH_draw_oval = $ff35
|
|
GRAPH_draw_image = $ff38
|
|
GRAPH_set_font = $ff3b
|
|
GRAPH_get_char_size = $ff3e
|
|
GRAPH_put_char = $ff41
|
|
GRAPH_put_next_char = $ff41
|
|
FB_init = $fef6
|
|
FB_get_info = $fef9
|
|
FB_set_palette = $fefc
|
|
FB_cursor_position = $feff
|
|
FB_cursor_next_line = $ff02
|
|
FB_get_pixel = $ff05
|
|
FB_get_pixels = $ff08
|
|
FB_set_pixel = $ff0b
|
|
FB_set_pixels = $ff0e
|
|
FB_set_8_pixels = $ff11
|
|
FB_set_8_pixels_opaque = $ff14
|
|
FB_fill_pixels = $ff17
|
|
FB_filter_pixels = $ff1a
|
|
FB_move_pixels = $ff1d
|
|
BSAVE = $feba
|
|
i2c_read_byte = $fec6
|
|
i2c_write_byte = $fec9
|
|
sprite_set_image = $fef0
|
|
sprite_set_position = $fef3
|
|
memory_fill = $fee4
|
|
memory_copy = $fee7
|
|
memory_crc = $feea
|
|
memory_decompress = $feed
|
|
console_init = $fedb
|
|
console_put_char = $fede
|
|
console_get_char = $fee1
|
|
console_put_image = $fed8
|
|
console_set_paging_message = $fed5
|
|
entropy_get = $fecf
|
|
monitor = $fecc
|
|
MACPTR = $ff44
|
|
MCIOUT = $feb1
|
|
enter_basic = $ff47
|
|
clock_set_date_time = $ff4d
|
|
clock_get_date_time = $ff50
|
|
kbdbuf_peek = $febd
|
|
kbdbuf_peek2 = $febd
|
|
kbdbuf_get_modifiers = $fec0
|
|
kbdbuf_put = $fec3
|
|
keymap = $fed2
|
|
mouse_config = $ff68
|
|
mouse_get = $ff6b
|
|
mouse_scan = $ff71
|
|
joystick_scan = $ff53
|
|
joystick_get = $ff56
|
|
joystick_get2 = $ff56
|
|
x16edit_default = $c000
|
|
x16edit_loadfile = $c003
|
|
x16edit_loadfile_options = $c006
|
|
audio_init = $c09f
|
|
bas_fmfreq = $c000
|
|
bas_fmnote = $c003
|
|
bas_fmplaystring = $c006
|
|
bas_fmvib = $c009
|
|
bas_playstringvoice = $c00c
|
|
bas_psgfreq = $c00f
|
|
bas_psgnote = $c012
|
|
bas_psgwav = $c015
|
|
bas_psgplaystring = $c018
|
|
bas_fmchordstring = $c08d
|
|
bas_psgchordstring = $c090
|
|
notecon_bas2fm = $c01b
|
|
notecon_bas2midi = $c01e
|
|
notecon_bas2psg = $c021
|
|
notecon_fm2bas = $c024
|
|
notecon_fm2midi = $c027
|
|
notecon_fm2psg = $c02a
|
|
notecon_freq2bas = $c02d
|
|
notecon_freq2fm = $c030
|
|
notecon_freq2midi = $c033
|
|
notecon_freq2psg = $c036
|
|
notecon_midi2bas = $c039
|
|
notecon_midi2fm = $c03c
|
|
notecon_midi2psg = $c03f
|
|
notecon_psg2bas = $c042
|
|
notecon_psg2fm = $c045
|
|
notecon_psg2midi = $c048
|
|
psg_init = $c04b
|
|
psg_playfreq = $c04e
|
|
psg_read = $c051
|
|
psg_setatten = $c054
|
|
psg_setfreq = $c057
|
|
psg_setpan = $c05a
|
|
psg_setvol = $c05d
|
|
psg_write = $c060
|
|
psg_write_fast = $c0a2
|
|
psg_getatten = $c093
|
|
psg_getpan = $c096
|
|
ym_init = $c063
|
|
ym_loaddefpatches = $c066
|
|
ym_loadpatch = $c069
|
|
ym_loadpatchlfn = $c06c
|
|
ym_playdrum = $c06f
|
|
ym_playnote = $c072
|
|
ym_setatten = $c075
|
|
ym_setdrum = $c078
|
|
ym_setnote = $c07b
|
|
ym_setpan = $c07e
|
|
ym_read = $c081
|
|
ym_release = $c084
|
|
ym_trigger = $c087
|
|
ym_write = $c08a
|
|
ym_getatten = $c099
|
|
ym_getpan = $c09c
|
|
ym_get_chip_type = $c0a5
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
set_screen_mode .proc
|
|
clc
|
|
jmp screen_mode
|
|
.pend
|
|
|
|
get_screen_mode .proc
|
|
sec
|
|
jmp screen_mode
|
|
.pend
|
|
|
|
kbdbuf_clear .proc
|
|
- jsr cbm.GETIN
|
|
bne -
|
|
rts
|
|
.pend
|
|
|
|
mouse_config2 .proc
|
|
pha ; save shape
|
|
sec
|
|
jsr cx16.screen_mode ; set current screen mode and res in A, X, Y
|
|
pla ; get shape back
|
|
jmp cx16.mouse_config
|
|
.pend
|
|
|
|
mouse_pos .proc
|
|
ldx #cx16.r0
|
|
jmp cx16.mouse_get
|
|
.pend
|
|
|
|
numbanks .proc
|
|
sec
|
|
jsr cbm.MEMTOP
|
|
ldy #0
|
|
cmp #0
|
|
bne +
|
|
iny
|
|
+ rts
|
|
.pend
|
|
|
|
vpeek .proc
|
|
stz cx16.VERA_CTRL
|
|
sta cx16.VERA_ADDR_H
|
|
sty cx16.VERA_ADDR_M
|
|
stx cx16.VERA_ADDR_L
|
|
lda cx16.VERA_DATA0
|
|
rts
|
|
.pend
|
|
|
|
vaddr .proc
|
|
pha
|
|
lda cx16.r1
|
|
and #1
|
|
sta cx16.VERA_CTRL
|
|
lda cx16.r0
|
|
sta cx16.VERA_ADDR_L
|
|
lda cx16.r0+1
|
|
sta cx16.VERA_ADDR_M
|
|
pla
|
|
cpy #0
|
|
bmi ++
|
|
beq +
|
|
ora #%00010000
|
|
+ sta cx16.VERA_ADDR_H
|
|
rts
|
|
+ ora #%00011000
|
|
sta cx16.VERA_ADDR_H
|
|
rts
|
|
.pend
|
|
|
|
vaddr_clone .proc
|
|
sta VERA_CTRL
|
|
ldx VERA_ADDR_L
|
|
ldy VERA_ADDR_H
|
|
phy
|
|
ldy VERA_ADDR_M
|
|
eor #1
|
|
sta VERA_CTRL
|
|
stx VERA_ADDR_L
|
|
sty VERA_ADDR_M
|
|
ply
|
|
sty VERA_ADDR_H
|
|
eor #1
|
|
sta VERA_CTRL
|
|
rts
|
|
.pend
|
|
|
|
vaddr_autoincr .proc
|
|
jsr _setup
|
|
lda cx16.r2H
|
|
ora cx16.r2L
|
|
beq +
|
|
jsr _determine_incr_bits
|
|
+ ora P8ZP_SCRATCH_REG
|
|
sta cx16.VERA_ADDR_H
|
|
rts
|
|
|
|
_setup sta P8ZP_SCRATCH_REG
|
|
lda cx16.r1
|
|
and #1
|
|
sta cx16.VERA_CTRL
|
|
lda cx16.r0
|
|
sta cx16.VERA_ADDR_L
|
|
lda cx16.r0+1
|
|
sta cx16.VERA_ADDR_M
|
|
rts
|
|
|
|
_determine_incr_bits
|
|
lda cx16.r2H
|
|
bne _large
|
|
lda cx16.r2L
|
|
ldy #13
|
|
- cmp _strides_lsb,y
|
|
beq +
|
|
dey
|
|
bpl -
|
|
+ tya
|
|
asl a
|
|
asl a
|
|
asl a
|
|
asl a
|
|
rts
|
|
_large ora cx16.r2L
|
|
cmp #1 ; 256
|
|
bne +
|
|
lda #9<<4
|
|
rts
|
|
+ cmp #2 ; 512
|
|
bne +
|
|
lda #10<<4
|
|
rts
|
|
+ cmp #65 ; 320
|
|
bne +
|
|
lda #14<<4
|
|
rts
|
|
+ cmp #130 ; 640
|
|
bne +
|
|
lda #15<<4
|
|
rts
|
|
+ lda #0
|
|
rts
|
|
_strides_lsb .byte 0,1,2,4,8,16,32,64,128,255,255,40,80,160,255,255
|
|
.pend
|
|
|
|
vaddr_autodecr .proc
|
|
jsr vaddr_autoincr._setup
|
|
lda cx16.r2H
|
|
ora cx16.r2L
|
|
beq +
|
|
jsr vaddr_autoincr._determine_incr_bits
|
|
ora #%00001000 ; autodecrement
|
|
+ ora P8ZP_SCRATCH_REG
|
|
sta cx16.VERA_ADDR_H
|
|
rts
|
|
.pend
|
|
|
|
vpoke .proc
|
|
stz cx16.VERA_CTRL
|
|
sta cx16.VERA_ADDR_H
|
|
lda cx16.r0
|
|
sta cx16.VERA_ADDR_L
|
|
lda cx16.r0+1
|
|
sta cx16.VERA_ADDR_M
|
|
sty cx16.VERA_DATA0
|
|
rts
|
|
.pend
|
|
|
|
vpoke_or .proc
|
|
stz cx16.VERA_CTRL
|
|
sta cx16.VERA_ADDR_H
|
|
lda cx16.r0
|
|
sta cx16.VERA_ADDR_L
|
|
lda cx16.r0+1
|
|
sta cx16.VERA_ADDR_M
|
|
tya
|
|
ora cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
rts
|
|
.pend
|
|
|
|
vpoke_and .proc
|
|
stz cx16.VERA_CTRL
|
|
sta cx16.VERA_ADDR_H
|
|
lda cx16.r0
|
|
sta cx16.VERA_ADDR_L
|
|
lda cx16.r0+1
|
|
sta cx16.VERA_ADDR_M
|
|
tya
|
|
and cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
rts
|
|
.pend
|
|
|
|
vpoke_xor .proc
|
|
stz cx16.VERA_CTRL
|
|
sta cx16.VERA_ADDR_H
|
|
lda cx16.r0
|
|
sta cx16.VERA_ADDR_L
|
|
lda cx16.r0+1
|
|
sta cx16.VERA_ADDR_M
|
|
tya
|
|
eor cx16.VERA_DATA0
|
|
sta cx16.VERA_DATA0
|
|
rts
|
|
.pend
|
|
|
|
vpoke_mask .proc
|
|
sty P8ZP_SCRATCH_B1
|
|
stz cx16.VERA_CTRL
|
|
sta cx16.VERA_ADDR_H
|
|
lda cx16.r0
|
|
sta cx16.VERA_ADDR_L
|
|
lda cx16.r0+1
|
|
sta cx16.VERA_ADDR_M
|
|
txa
|
|
and cx16.VERA_DATA0
|
|
ora P8ZP_SCRATCH_B1
|
|
sta cx16.VERA_DATA0
|
|
rts
|
|
.pend
|
|
|
|
save_virtual_registers .proc
|
|
ldy #31
|
|
- lda cx16.r0,y
|
|
sta _cx16_vreg_storage,y
|
|
dey
|
|
bpl -
|
|
rts
|
|
|
|
_cx16_vreg_storage
|
|
.word 0,0,0,0,0,0,0,0
|
|
.word 0,0,0,0,0,0,0,0
|
|
.pend
|
|
|
|
restore_virtual_registers .proc
|
|
ldy #31
|
|
- lda save_virtual_registers._cx16_vreg_storage,y
|
|
sta cx16.r0,y
|
|
dey
|
|
bpl -
|
|
rts
|
|
.pend
|
|
|
|
save_vera_context .proc
|
|
; note cannot store this on cpu hardware stack because this gets called as a subroutine
|
|
lda cx16.VERA_ADDR_L
|
|
sta _vera_storage
|
|
lda cx16.VERA_ADDR_M
|
|
sta _vera_storage+1
|
|
lda cx16.VERA_ADDR_H
|
|
sta _vera_storage+2
|
|
lda cx16.VERA_CTRL
|
|
sta _vera_storage+3
|
|
eor #1
|
|
sta _vera_storage+7
|
|
sta cx16.VERA_CTRL
|
|
lda cx16.VERA_ADDR_L
|
|
sta _vera_storage+4
|
|
lda cx16.VERA_ADDR_M
|
|
sta _vera_storage+5
|
|
lda cx16.VERA_ADDR_H
|
|
sta _vera_storage+6
|
|
rts
|
|
_vera_storage: .byte 0,0,0,0,0,0,0,0
|
|
.pend
|
|
|
|
restore_vera_context .proc
|
|
lda cx16.save_vera_context._vera_storage+7
|
|
sta cx16.VERA_CTRL
|
|
lda cx16.save_vera_context._vera_storage+6
|
|
sta cx16.VERA_ADDR_H
|
|
lda cx16.save_vera_context._vera_storage+5
|
|
sta cx16.VERA_ADDR_M
|
|
lda cx16.save_vera_context._vera_storage+4
|
|
sta cx16.VERA_ADDR_L
|
|
lda cx16.save_vera_context._vera_storage+3
|
|
sta cx16.VERA_CTRL
|
|
lda cx16.save_vera_context._vera_storage+2
|
|
sta cx16.VERA_ADDR_H
|
|
lda cx16.save_vera_context._vera_storage+1
|
|
sta cx16.VERA_ADDR_M
|
|
lda cx16.save_vera_context._vera_storage+0
|
|
sta cx16.VERA_ADDR_L
|
|
rts
|
|
.pend
|
|
|
|
set_chrin_keyhandler .proc
|
|
sei
|
|
sta P8ZP_SCRATCH_REG
|
|
lda $00
|
|
pha
|
|
stz $00
|
|
lda P8ZP_SCRATCH_REG
|
|
sta cx16.edkeybk
|
|
stx cx16.edkeyvec
|
|
sty cx16.edkeyvec+1
|
|
pla
|
|
sta $00
|
|
cli
|
|
rts
|
|
.pend
|
|
|
|
get_chrin_keyhandler .proc
|
|
sei
|
|
lda $00
|
|
pha
|
|
stz $00
|
|
lda cx16.edkeybk
|
|
sta cx16.r0L
|
|
lda cx16.edkeyvec
|
|
ldy cx16.edkeyvec+1
|
|
sta cx16.r1
|
|
sty cx16.r1+1
|
|
pla
|
|
sta $00
|
|
cli
|
|
rts
|
|
.pend
|
|
|
|
enable_irq_handlers .proc
|
|
php
|
|
sei
|
|
bcc +
|
|
lda #%00001111
|
|
trb cx16.VERA_IEN ; disable all IRQ sources
|
|
+ lda #<_irq_dispatcher
|
|
ldy #>_irq_dispatcher
|
|
sta cx16.CINV
|
|
sty cx16.CINV+1
|
|
plp
|
|
rts
|
|
|
|
_irq_dispatcher
|
|
; order of handling: LINE, SPRCOL, AFLOW, VSYNC.
|
|
jsr sys.save_prog8_internals
|
|
cld
|
|
lda cx16.VERA_ISR
|
|
and cx16.VERA_IEN ; only consider the bits for sources that can actually raise the IRQ
|
|
|
|
bit #2
|
|
beq +
|
|
_mod_line_jump
|
|
jsr _default_line_handler ; modified
|
|
ldy #2
|
|
sty cx16.VERA_ISR
|
|
bra _dispatch_end
|
|
+
|
|
bit #4
|
|
beq +
|
|
_mod_sprcol_jump
|
|
jsr _default_sprcol_handler ; modified
|
|
ldy #4
|
|
sty cx16.VERA_ISR
|
|
bra _dispatch_end
|
|
+
|
|
bit #8
|
|
beq +
|
|
_mod_aflow_jump
|
|
jsr _default_aflow_handler ; modified
|
|
; note: AFLOW can only be cleared by filling the audio FIFO for at least 1/4. Not via the ISR bit.
|
|
bra _dispatch_end
|
|
+
|
|
bit #1
|
|
beq +
|
|
_mod_vsync_jump
|
|
jsr _default_vsync_handler ; modified
|
|
cmp #0
|
|
bne _dispatch_end
|
|
ldy #1
|
|
sty cx16.VERA_ISR
|
|
bra _return_irq
|
|
+
|
|
lda #0
|
|
_dispatch_end
|
|
cmp #0
|
|
beq _return_irq
|
|
jsr sys.restore_prog8_internals
|
|
jmp (sys.restore_irq._orig_irqvec) ; continue with normal kernal irq routine
|
|
_return_irq
|
|
jsr sys.restore_prog8_internals
|
|
ply
|
|
plx
|
|
pla
|
|
rti
|
|
|
|
_default_vsync_handler
|
|
lda #1
|
|
rts
|
|
_default_line_handler
|
|
lda #0
|
|
rts
|
|
_default_sprcol_handler
|
|
lda #0
|
|
rts
|
|
_default_aflow_handler
|
|
lda #0
|
|
rts
|
|
.pend
|
|
|
|
set_vsync_irq_handler .proc
|
|
php
|
|
sei
|
|
sta enable_irq_handlers._mod_vsync_jump+1
|
|
sty enable_irq_handlers._mod_vsync_jump+2
|
|
lda #1
|
|
tsb cx16.VERA_IEN
|
|
plp
|
|
rts
|
|
.pend
|
|
|
|
set_line_irq_handler .proc
|
|
php
|
|
sei
|
|
sta enable_irq_handlers._mod_line_jump+1
|
|
sty enable_irq_handlers._mod_line_jump+2
|
|
lda cx16.r0
|
|
ldy cx16.r0+1
|
|
jsr sys.set_rasterline
|
|
lda #2
|
|
tsb cx16.VERA_IEN
|
|
plp
|
|
rts
|
|
.pend
|
|
|
|
set_sprcol_irq_handler .proc
|
|
php
|
|
sei
|
|
sta enable_irq_handlers._mod_sprcol_jump+1
|
|
sty enable_irq_handlers._mod_sprcol_jump+2
|
|
lda #4
|
|
tsb cx16.VERA_IEN
|
|
plp
|
|
rts
|
|
.pend
|
|
|
|
set_aflow_irq_handler .proc
|
|
php
|
|
sei
|
|
sta enable_irq_handlers._mod_aflow_jump+1
|
|
sty enable_irq_handlers._mod_aflow_jump+2
|
|
lda #8
|
|
tsb cx16.VERA_IEN
|
|
plp
|
|
rts
|
|
.pend
|
|
|
|
cpu_is_65816 .proc
|
|
php
|
|
clv
|
|
.byte $e2, $ea ; SEP #$ea, should be interpreted as 2 NOPs by 6502. 65c816 will set the Overflow flag.
|
|
bvc +
|
|
lda #1
|
|
plp
|
|
rts
|
|
+ lda #0
|
|
plp
|
|
rts
|
|
.pend
|
|
|
|
get_program_args .proc
|
|
lda #0
|
|
rol a
|
|
sta P8ZP_SCRATCH_REG
|
|
lda $00
|
|
pha
|
|
stz $00
|
|
stz P8ZP_SCRATCH_W1
|
|
lda #$bf
|
|
sta P8ZP_SCRATCH_W1+1
|
|
ldy #0
|
|
- lda (P8ZP_SCRATCH_W1),y
|
|
sta (cx16.r0),y
|
|
beq +
|
|
_continue iny
|
|
cpy cx16.r1L ; max size?
|
|
bne -
|
|
beq ++
|
|
+ lda P8ZP_SCRATCH_REG ; binary?
|
|
bne _continue
|
|
+ pla
|
|
sta $00
|
|
rts
|
|
.pend
|
|
.pend
|
|
|
|
; ---- block: 'sys' ----
|
|
sys .proc
|
|
target = $10
|
|
|
|
|
|
|
|
init_system .proc
|
|
sei
|
|
lda #0
|
|
tax
|
|
tay
|
|
jsr cx16.mouse_config ; disable mouse
|
|
cld
|
|
lda cx16.VERA_DC_VIDEO
|
|
and #%00000111 ; retain chroma + output mode
|
|
sta P8ZP_SCRATCH_REG
|
|
lda #$0a
|
|
sta $01 ; rom bank 10 (audio)
|
|
jsr cx16.audio_init ; silence
|
|
stz $01 ; rom bank 0 (kernal)
|
|
jsr cbm.IOINIT
|
|
jsr cbm.RESTOR
|
|
jsr cbm.CINT
|
|
lda cx16.VERA_DC_VIDEO
|
|
and #%11111000
|
|
ora P8ZP_SCRATCH_REG
|
|
sta cx16.VERA_DC_VIDEO ; restore old output mode
|
|
lda #$90 ; black
|
|
jsr cbm.CHROUT
|
|
lda #1
|
|
jsr cbm.CHROUT ; swap fg/bg
|
|
lda #$9e ; yellow
|
|
jsr cbm.CHROUT
|
|
lda #147 ; clear screen
|
|
jsr cbm.CHROUT
|
|
lda #8 ; disable charset case switch
|
|
jsr cbm.CHROUT
|
|
lda #PROG8_VARSHIGH_RAMBANK
|
|
sta $00 ; select ram bank
|
|
lda #0
|
|
tax
|
|
tay
|
|
clc
|
|
clv
|
|
cli
|
|
rts
|
|
.pend
|
|
|
|
init_system_phase2 .proc
|
|
sei
|
|
lda cx16.CINV
|
|
sta restore_irq._orig_irqvec
|
|
lda cx16.CINV+1
|
|
sta restore_irq._orig_irqvec+1
|
|
lda #PROG8_VARSHIGH_RAMBANK
|
|
sta $00 ; select ram bank
|
|
cli
|
|
rts
|
|
.pend
|
|
|
|
cleanup_at_exit .proc
|
|
lda #1
|
|
sta $00 ; ram bank 1
|
|
lda #4
|
|
sta $01 ; rom bank 4 (basic)
|
|
stz $2d ; hack to reset machine code monitor bank to 0
|
|
jsr cbm.CLRCHN ; reset i/o channels
|
|
_exitcodeCarry = *+1
|
|
lda #0
|
|
lsr a
|
|
_exitcode = *+1
|
|
lda #0 ; exit code possibly modified in exit()
|
|
_exitcodeX = *+1
|
|
ldx #0
|
|
_exitcodeY = *+1
|
|
ldy #0
|
|
rts
|
|
.pend
|
|
|
|
set_irq .proc
|
|
sei
|
|
sta _modified+1
|
|
sty _modified+2
|
|
lda #<_irq_handler
|
|
sta cx16.CINV
|
|
lda #>_irq_handler
|
|
sta cx16.CINV+1
|
|
lda #1
|
|
tsb cx16.VERA_IEN ; enable the vsync irq
|
|
cli
|
|
rts
|
|
|
|
_irq_handler
|
|
jsr sys.save_prog8_internals
|
|
cld
|
|
_modified
|
|
jsr $ffff ; modified
|
|
pha
|
|
jsr sys.restore_prog8_internals
|
|
pla
|
|
beq +
|
|
jmp (restore_irq._orig_irqvec) ; continue with normal kernal irq routine
|
|
+ lda #1
|
|
sta cx16.VERA_ISR ; clear Vera Vsync irq status
|
|
ply
|
|
plx
|
|
pla
|
|
rti
|
|
.pend
|
|
|
|
restore_irq .proc
|
|
sei
|
|
lda _orig_irqvec
|
|
sta cx16.CINV
|
|
lda _orig_irqvec+1
|
|
sta cx16.CINV+1
|
|
lda cx16.VERA_IEN
|
|
and #%11110000 ; disable all Vera IRQs but the vsync
|
|
ora #%00000001
|
|
sta cx16.VERA_IEN
|
|
cli
|
|
rts
|
|
_orig_irqvec .word 0
|
|
.pend
|
|
|
|
set_rasterirq .proc
|
|
sei
|
|
sta _modified+1
|
|
sty _modified+2
|
|
lda cx16.r0
|
|
ldy cx16.r0+1
|
|
lda cx16.VERA_IEN
|
|
and #%11110000 ; disable all irqs but the line(raster) one
|
|
ora #%00000010
|
|
sta cx16.VERA_IEN
|
|
lda cx16.r0
|
|
ldy cx16.r0+1
|
|
jsr set_rasterline
|
|
lda #<_raster_irq_handler
|
|
sta cx16.CINV
|
|
lda #>_raster_irq_handler
|
|
sta cx16.CINV+1
|
|
cli
|
|
rts
|
|
|
|
_raster_irq_handler
|
|
jsr sys.save_prog8_internals
|
|
cld
|
|
_modified jsr $ffff ; modified
|
|
jsr sys.restore_prog8_internals
|
|
; end irq processing - don't use kernal's irq handling
|
|
lda #2
|
|
tsb cx16.VERA_ISR ; clear Vera line irq status
|
|
ply
|
|
plx
|
|
pla
|
|
rti
|
|
.pend
|
|
|
|
set_rasterline .proc
|
|
php
|
|
sei
|
|
sta cx16.VERA_IRQLINE_L
|
|
tya
|
|
lsr a
|
|
bcs +
|
|
lda #%10000000
|
|
trb cx16.VERA_IEN
|
|
plp
|
|
rts
|
|
+ lda #%10000000
|
|
tsb cx16.VERA_IEN
|
|
plp
|
|
rts
|
|
.pend
|
|
|
|
reset_system .proc
|
|
sei
|
|
ldx #$42
|
|
ldy #2
|
|
lda #0
|
|
jsr cx16.i2c_write_byte
|
|
bra *
|
|
.pend
|
|
|
|
wait .proc
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
|
|
_loop lda P8ZP_SCRATCH_W1
|
|
ora P8ZP_SCRATCH_W1+1
|
|
bne +
|
|
rts
|
|
|
|
+ sei
|
|
jsr cbm.RDTIM
|
|
cli
|
|
sta P8ZP_SCRATCH_B1
|
|
- sei
|
|
jsr cbm.RDTIM
|
|
cli
|
|
cmp P8ZP_SCRATCH_B1
|
|
beq -
|
|
|
|
lda P8ZP_SCRATCH_W1
|
|
bne +
|
|
dec P8ZP_SCRATCH_W1+1
|
|
+ dec P8ZP_SCRATCH_W1
|
|
bra _loop
|
|
.pend
|
|
|
|
internal_stringcopy .proc
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
lda cx16.r0
|
|
ldy cx16.r0+1
|
|
jmp prog8_lib.strcpy
|
|
.pend
|
|
|
|
memcopy .proc
|
|
cpy #0
|
|
bne _longcopy
|
|
|
|
; copy <= 255 bytes
|
|
tay
|
|
bne _copyshort
|
|
rts ; nothing to copy
|
|
|
|
_copyshort
|
|
dey
|
|
beq +
|
|
- lda (cx16.r0),y
|
|
sta (cx16.r1),y
|
|
dey
|
|
bne -
|
|
+ lda (cx16.r0),y
|
|
sta (cx16.r1),y
|
|
rts
|
|
|
|
_longcopy
|
|
pha ; lsb(count) = remainder in last page
|
|
tya
|
|
tax ; x = num pages (1+)
|
|
ldy #0
|
|
- lda (cx16.r0),y
|
|
sta (cx16.r1),y
|
|
iny
|
|
bne -
|
|
inc cx16.r0+1
|
|
inc cx16.r1+1
|
|
dex
|
|
bne -
|
|
ply
|
|
bne _copyshort
|
|
rts
|
|
.pend
|
|
|
|
memset .proc
|
|
ldy cx16.r0
|
|
sty P8ZP_SCRATCH_W1
|
|
ldy cx16.r0+1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
ldx cx16.r1
|
|
ldy cx16.r1+1
|
|
jmp prog8_lib.memset
|
|
.pend
|
|
|
|
memsetw .proc
|
|
ldx cx16.r0
|
|
stx P8ZP_SCRATCH_W1
|
|
ldx cx16.r0+1
|
|
stx P8ZP_SCRATCH_W1+1
|
|
ldx cx16.r1
|
|
stx P8ZP_SCRATCH_W2
|
|
ldx cx16.r1+1
|
|
stx P8ZP_SCRATCH_W2+1
|
|
jmp prog8_lib.memsetw
|
|
.pend
|
|
|
|
save_prog8_internals .proc
|
|
lda P8ZP_SCRATCH_B1
|
|
sta save_SCRATCH_ZPB1
|
|
lda P8ZP_SCRATCH_REG
|
|
sta save_SCRATCH_ZPREG
|
|
lda P8ZP_SCRATCH_W1
|
|
sta save_SCRATCH_ZPWORD1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
sta save_SCRATCH_ZPWORD1+1
|
|
lda P8ZP_SCRATCH_W2
|
|
sta save_SCRATCH_ZPWORD2
|
|
lda P8ZP_SCRATCH_W2+1
|
|
sta save_SCRATCH_ZPWORD2+1
|
|
rts
|
|
save_SCRATCH_ZPB1 .byte 0
|
|
save_SCRATCH_ZPREG .byte 0
|
|
save_SCRATCH_ZPWORD1 .word 0
|
|
save_SCRATCH_ZPWORD2 .word 0
|
|
.pend
|
|
|
|
restore_prog8_internals .proc
|
|
lda save_prog8_internals.save_SCRATCH_ZPB1
|
|
sta P8ZP_SCRATCH_B1
|
|
lda save_prog8_internals.save_SCRATCH_ZPREG
|
|
sta P8ZP_SCRATCH_REG
|
|
lda save_prog8_internals.save_SCRATCH_ZPWORD1
|
|
sta P8ZP_SCRATCH_W1
|
|
lda save_prog8_internals.save_SCRATCH_ZPWORD1+1
|
|
sta P8ZP_SCRATCH_W1+1
|
|
lda save_prog8_internals.save_SCRATCH_ZPWORD2
|
|
sta P8ZP_SCRATCH_W2
|
|
lda save_prog8_internals.save_SCRATCH_ZPWORD2+1
|
|
sta P8ZP_SCRATCH_W2+1
|
|
rts
|
|
.pend
|
|
|
|
exit .proc
|
|
sta cleanup_at_exit._exitcode
|
|
ldx prog8_lib.orig_stackpointer
|
|
txs
|
|
jmp cleanup_at_exit
|
|
.pend
|
|
|
|
exit2 .proc
|
|
sta cleanup_at_exit._exitcode
|
|
stx cleanup_at_exit._exitcodeX
|
|
sty cleanup_at_exit._exitcodeY
|
|
ldx prog8_lib.orig_stackpointer
|
|
txs
|
|
jmp cleanup_at_exit
|
|
.pend
|
|
|
|
exit3 .proc
|
|
sta cleanup_at_exit._exitcode
|
|
lda #0
|
|
rol a
|
|
sta cleanup_at_exit._exitcodeCarry
|
|
stx cleanup_at_exit._exitcodeX
|
|
sty cleanup_at_exit._exitcodeY
|
|
ldx prog8_lib.orig_stackpointer
|
|
txs
|
|
jmp cleanup_at_exit
|
|
.pend
|
|
.pend
|
|
|
|
; ---- block: 'conv' ----
|
|
conv .proc
|
|
|
|
; non-zeropage variables
|
|
string_out ; PETSCII:"????????????????"
|
|
.byte $3f, $3f, $3f, $3f, $3f, $3f, $3f, $3f, $3f, $3f, $3f, $3f, $3f, $3f, $3f, $3f
|
|
.byte $00
|
|
|
|
|
|
str_ub0 .proc
|
|
jsr conv.ubyte2decimal
|
|
sty string_out
|
|
sta string_out+1
|
|
stx string_out+2
|
|
lda #0
|
|
sta string_out+3
|
|
lda #<string_out
|
|
ldy #>string_out
|
|
rts
|
|
.pend
|
|
|
|
str_ub .proc
|
|
ldy #0
|
|
sty P8ZP_SCRATCH_B1
|
|
jsr conv.ubyte2decimal
|
|
_output_byte_digits
|
|
; hundreds?
|
|
cpy #'0'
|
|
beq +
|
|
pha
|
|
tya
|
|
ldy P8ZP_SCRATCH_B1
|
|
sta string_out,y
|
|
pla
|
|
inc P8ZP_SCRATCH_B1
|
|
; tens?
|
|
+ ldy P8ZP_SCRATCH_B1
|
|
cmp #'0'
|
|
beq +
|
|
sta string_out,y
|
|
iny
|
|
+ ; ones.
|
|
txa
|
|
sta string_out,y
|
|
iny
|
|
lda #0
|
|
sta string_out,y
|
|
lda #<string_out
|
|
ldy #>string_out
|
|
rts
|
|
.pend
|
|
|
|
str_b .proc
|
|
ldy #0
|
|
sty P8ZP_SCRATCH_B1
|
|
cmp #0
|
|
bpl +
|
|
pha
|
|
lda #'-'
|
|
sta string_out
|
|
inc P8ZP_SCRATCH_B1
|
|
pla
|
|
+ jsr conv.byte2decimal
|
|
bra str_ub._output_byte_digits
|
|
.pend
|
|
|
|
str_ubhex .proc
|
|
jsr conv.ubyte2hex
|
|
sta string_out
|
|
sty string_out+1
|
|
lda #0
|
|
sta string_out+2
|
|
lda #<string_out
|
|
ldy #>string_out
|
|
rts
|
|
.pend
|
|
|
|
str_ubbin .proc
|
|
sta P8ZP_SCRATCH_B1
|
|
ldy #0
|
|
sty string_out+8
|
|
ldy #7
|
|
- lsr P8ZP_SCRATCH_B1
|
|
bcc +
|
|
lda #'1'
|
|
bne _digit
|
|
+ lda #'0'
|
|
_digit sta string_out,y
|
|
dey
|
|
bpl -
|
|
lda #<string_out
|
|
ldy #>string_out
|
|
rts
|
|
.pend
|
|
|
|
str_uwbin .proc
|
|
sta P8ZP_SCRATCH_REG
|
|
tya
|
|
jsr str_ubbin
|
|
ldy #0
|
|
sty string_out+16
|
|
ldy #7
|
|
- lsr P8ZP_SCRATCH_REG
|
|
bcc +
|
|
lda #'1'
|
|
bne _digit
|
|
+ lda #'0'
|
|
_digit sta string_out+8,y
|
|
dey
|
|
bpl -
|
|
lda #<string_out
|
|
ldy #>string_out
|
|
rts
|
|
.pend
|
|
|
|
str_uwhex .proc
|
|
pha
|
|
tya
|
|
jsr conv.ubyte2hex
|
|
sta string_out
|
|
sty string_out+1
|
|
pla
|
|
jsr conv.ubyte2hex
|
|
sta string_out+2
|
|
sty string_out+3
|
|
lda #0
|
|
sta string_out+4
|
|
lda #<string_out
|
|
ldy #>string_out
|
|
rts
|
|
.pend
|
|
|
|
str_uw0 .proc
|
|
jsr conv.uword2decimal
|
|
ldy #0
|
|
- lda conv.uword2decimal.decTenThousands,y
|
|
sta string_out,y
|
|
beq +
|
|
iny
|
|
bne -
|
|
+
|
|
lda #<string_out
|
|
ldy #>string_out
|
|
rts
|
|
.pend
|
|
|
|
str_uw .proc
|
|
jsr conv.uword2decimal
|
|
ldx #0
|
|
_output_digits
|
|
ldy #0
|
|
- lda conv.uword2decimal.decTenThousands,y
|
|
beq _allzero
|
|
cmp #'0'
|
|
bne _gotdigit
|
|
iny
|
|
bne -
|
|
_gotdigit sta string_out,x
|
|
inx
|
|
iny
|
|
lda conv.uword2decimal.decTenThousands,y
|
|
bne _gotdigit
|
|
_end lda #0
|
|
sta string_out,x
|
|
lda #<string_out
|
|
ldy #>string_out
|
|
rts
|
|
|
|
_allzero lda #'0'
|
|
sta string_out,x
|
|
inx
|
|
bne _end
|
|
.pend
|
|
|
|
str_w .proc
|
|
cpy #0
|
|
bpl str_uw
|
|
pha
|
|
lda #'-'
|
|
sta string_out
|
|
tya
|
|
eor #255
|
|
tay
|
|
pla
|
|
eor #255
|
|
clc
|
|
adc #1
|
|
bcc +
|
|
iny
|
|
+ jsr conv.uword2decimal
|
|
ldx #1
|
|
bne str_uw._output_digits
|
|
rts
|
|
.pend
|
|
|
|
any2uword .proc
|
|
pha
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
ldy #0
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
ldy P8ZP_SCRATCH_W1+1
|
|
cmp #'$'
|
|
beq _hex
|
|
cmp #'%'
|
|
beq _bin
|
|
pla
|
|
jsr str2uword
|
|
jmp _result
|
|
_hex pla
|
|
jsr hex2uword
|
|
jmp _result
|
|
_bin pla
|
|
jsr bin2uword
|
|
_result
|
|
pha
|
|
lda cx16.r15
|
|
sta P8ZP_SCRATCH_B1 ; result value
|
|
pla
|
|
sta cx16.r15
|
|
sty cx16.r15+1
|
|
lda P8ZP_SCRATCH_B1
|
|
rts
|
|
.pend
|
|
|
|
str2uword .proc
|
|
_result = P8ZP_SCRATCH_W1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
ldy #0
|
|
sty _result
|
|
sty _result+1
|
|
sty cx16.r15+1
|
|
_loop
|
|
lda (P8ZP_SCRATCH_W2),y
|
|
sec
|
|
sbc #48
|
|
bpl _digit
|
|
_done
|
|
sty cx16.r15
|
|
lda _result
|
|
ldy _result+1
|
|
rts
|
|
_digit
|
|
cmp #10
|
|
bcs _done
|
|
; add digit to result
|
|
pha
|
|
jsr _result_times_10
|
|
pla
|
|
clc
|
|
adc _result
|
|
sta _result
|
|
bcc +
|
|
inc _result+1
|
|
+ iny
|
|
bne _loop
|
|
; never reached
|
|
|
|
_result_times_10 ; (W*4 + W)*2
|
|
lda _result+1
|
|
sta P8ZP_SCRATCH_REG
|
|
lda _result
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
clc
|
|
adc _result
|
|
sta _result
|
|
lda P8ZP_SCRATCH_REG
|
|
adc _result+1
|
|
asl _result
|
|
rol a
|
|
sta _result+1
|
|
rts
|
|
.pend
|
|
|
|
str2word .proc
|
|
_result = P8ZP_SCRATCH_W1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
ldy #0
|
|
sty _result
|
|
sty _result+1
|
|
sty _negative
|
|
sty cx16.r15+1
|
|
lda (P8ZP_SCRATCH_W2),y
|
|
cmp #'+'
|
|
bne +
|
|
iny
|
|
+ cmp #'-'
|
|
bne _parse
|
|
inc _negative
|
|
iny
|
|
_parse lda (P8ZP_SCRATCH_W2),y
|
|
sec
|
|
sbc #48
|
|
bpl _digit
|
|
_done
|
|
sty cx16.r15
|
|
lda _negative
|
|
beq +
|
|
sec
|
|
lda #0
|
|
sbc _result
|
|
sta _result
|
|
lda #0
|
|
sbc _result+1
|
|
sta _result+1
|
|
+ lda _result
|
|
ldy _result+1
|
|
rts
|
|
_digit
|
|
cmp #10
|
|
bcs _done
|
|
; add digit to result
|
|
pha
|
|
jsr str2uword._result_times_10
|
|
pla
|
|
clc
|
|
adc _result
|
|
sta _result
|
|
bcc +
|
|
inc _result+1
|
|
+ iny
|
|
bne _parse
|
|
; never reached
|
|
_negative .byte 0
|
|
.pend
|
|
|
|
hex2uword .proc
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
ldy #0
|
|
sty P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sty cx16.r15+1
|
|
lda (P8ZP_SCRATCH_W2),y
|
|
beq _stop
|
|
cmp #'$'
|
|
bne _loop
|
|
iny
|
|
_loop
|
|
lda #0
|
|
sta P8ZP_SCRATCH_B1
|
|
lda (P8ZP_SCRATCH_W2),y
|
|
beq _stop
|
|
cmp #7 ; screencode letters A-F are 1-6
|
|
bcc _add_letter
|
|
and #127
|
|
cmp #97
|
|
bcs _try_iso ; maybe letter is iso:'a'-iso:'f' (97-102)
|
|
cmp #'g'
|
|
bcs _stop
|
|
cmp #'a'
|
|
bcs _add_letter
|
|
cmp #'0'
|
|
bcc _stop
|
|
cmp #'9'+1
|
|
bcs _stop
|
|
_calc
|
|
asl P8ZP_SCRATCH_W1
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl P8ZP_SCRATCH_W1
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl P8ZP_SCRATCH_W1
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl P8ZP_SCRATCH_W1
|
|
rol P8ZP_SCRATCH_W1+1
|
|
and #$0f
|
|
clc
|
|
adc P8ZP_SCRATCH_B1
|
|
ora P8ZP_SCRATCH_W1
|
|
sta P8ZP_SCRATCH_W1
|
|
iny
|
|
bne _loop
|
|
_stop
|
|
sty cx16.r15
|
|
lda P8ZP_SCRATCH_W1
|
|
ldy P8ZP_SCRATCH_W1+1
|
|
rts
|
|
_add_letter
|
|
pha
|
|
lda #9
|
|
sta P8ZP_SCRATCH_B1
|
|
pla
|
|
jmp _calc
|
|
_try_iso
|
|
cmp #103
|
|
bcs _stop
|
|
and #63
|
|
bne _add_letter
|
|
.pend
|
|
|
|
bin2uword .proc
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
ldy #0
|
|
sty P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sty cx16.r15+1
|
|
lda (P8ZP_SCRATCH_W2),y
|
|
beq _stop
|
|
cmp #'%'
|
|
bne _loop
|
|
iny
|
|
_loop
|
|
lda (P8ZP_SCRATCH_W2),y
|
|
cmp #'0'
|
|
bcc _stop
|
|
cmp #'2'
|
|
bcs _stop
|
|
_first asl P8ZP_SCRATCH_W1
|
|
rol P8ZP_SCRATCH_W1+1
|
|
and #1
|
|
ora P8ZP_SCRATCH_W1
|
|
sta P8ZP_SCRATCH_W1
|
|
iny
|
|
bne _loop
|
|
_stop
|
|
sty cx16.r15
|
|
lda P8ZP_SCRATCH_W1
|
|
ldy P8ZP_SCRATCH_W1+1
|
|
rts
|
|
.pend
|
|
|
|
ubyte2decimal .proc
|
|
ldy #uword2decimal.ASCII_0_OFFSET
|
|
jmp uword2decimal.hex_try200
|
|
.pend
|
|
|
|
uword2decimal .proc
|
|
;Convert 16 bit Hex to Decimal (0-65535) Rev 2
|
|
;By Omegamatrix Further optimizations by tepples
|
|
; routine from https://forums.nesdev.org/viewtopic.php?p=130363&sid=1944ba8bac4d6afa9c02e3cc42304e6b#p130363
|
|
|
|
;HexToDec99
|
|
; start in A
|
|
; end with A = 10's, decOnes (also in X)
|
|
|
|
;HexToDec255
|
|
; start in A
|
|
; end with Y = 100's, A = 10's, decOnes (also in X)
|
|
|
|
;HexToDec999
|
|
; start with A = high byte, Y = low byte
|
|
; end with Y = 100's, A = 10's, decOnes (also in X)
|
|
; requires 1 extra temp register on top of decOnes, could combine
|
|
; these two if HexToDec65535 was eliminated...
|
|
|
|
;HexToDec65535
|
|
; start with A/Y (low/high) as 16 bit value
|
|
; end with decTenThousand, decThousand, Y = 100's, A = 10's, decOnes (also in X)
|
|
; (irmen: I store Y and A in decHundreds and decTens too, so all of it can be easily printed)
|
|
|
|
|
|
ASCII_0_OFFSET = $30
|
|
temp = P8ZP_SCRATCH_B1 ; byte in zeropage
|
|
hexHigh = P8ZP_SCRATCH_W1 ; byte in zeropage
|
|
hexLow = P8ZP_SCRATCH_W1+1 ; byte in zeropage
|
|
|
|
|
|
HexToDec65535; SUBROUTINE
|
|
sty hexHigh ;3 @9
|
|
sta hexLow ;3 @12
|
|
tya
|
|
tax ;2 @14
|
|
lsr a ;2 @16
|
|
lsr a ;2 @18 integer divide 1024 (result 0-63)
|
|
|
|
cpx #$A7 ;2 @20 account for overflow of multiplying 24 from 43,000 ($A7F8) onward,
|
|
adc #1 ;2 @22 we can just round it to $A700, and the divide by 1024 is fine...
|
|
|
|
;at this point we have a number 1-65 that we have to times by 24,
|
|
;add to original sum, and Mod 1024 to get a remainder 0-999
|
|
|
|
|
|
sta temp ;3 @25
|
|
asl a ;2 @27
|
|
adc temp ;3 @30 x3
|
|
tay ;2 @32
|
|
lsr a ;2 @34
|
|
lsr a ;2 @36
|
|
lsr a ;2 @38
|
|
lsr a ;2 @40
|
|
lsr a ;2 @42
|
|
tax ;2 @44
|
|
tya ;2 @46
|
|
asl a ;2 @48
|
|
asl a ;2 @50
|
|
asl a ;2 @52
|
|
clc ;2 @54
|
|
adc hexLow ;3 @57
|
|
sta hexLow ;3 @60
|
|
txa ;2 @62
|
|
adc hexHigh ;3 @65
|
|
sta hexHigh ;3 @68
|
|
ror a ;2 @70
|
|
lsr a ;2 @72
|
|
tay ;2 @74 integer divide 1,000 (result 0-65)
|
|
|
|
lsr a ;2 @76 split the 1,000 and 10,000 digit
|
|
tax ;2 @78
|
|
lda ShiftedBcdTab,x ;4 @82
|
|
tax ;2 @84
|
|
rol a ;2 @86
|
|
and #$0F ;2 @88
|
|
ora #ASCII_0_OFFSET
|
|
sta decThousands ;3 @91
|
|
txa ;2 @93
|
|
lsr a ;2 @95
|
|
lsr a ;2 @97
|
|
lsr a ;2 @99
|
|
ora #ASCII_0_OFFSET
|
|
sta decTenThousands ;3 @102
|
|
|
|
lda hexLow ;3 @105
|
|
cpy temp ;3 @108
|
|
bmi _doSubtract ;2³ @110/111
|
|
beq _useZero ;2³ @112/113
|
|
adc #23 + 24 ;2 @114
|
|
_doSubtract
|
|
sbc #23 ;2 @116
|
|
sta hexLow ;3 @119
|
|
_useZero
|
|
lda hexHigh ;3 @122
|
|
sbc #0 ;2 @124
|
|
|
|
Start100s
|
|
and #$03 ;2 @126
|
|
tax ;2 @128 0,1,2,3
|
|
cmp #2 ;2 @130
|
|
rol a ;2 @132 0,2,5,7
|
|
ora #ASCII_0_OFFSET
|
|
tay ;2 @134 Y = Hundreds digit
|
|
|
|
lda hexLow ;3 @137
|
|
adc Mod100Tab,x ;4 @141 adding remainder of 256, 512, and 256+512 (all mod 100)
|
|
bcs hex_doSub200 ;2³ @143/144
|
|
|
|
hex_try200
|
|
cmp #200 ;2 @145
|
|
bcc hex_try100 ;2³ @147/148
|
|
hex_doSub200
|
|
iny ;2 @149
|
|
iny ;2 @151
|
|
sbc #200 ;2 @153
|
|
hex_try100
|
|
cmp #100 ;2 @155
|
|
bcc HexToDec99 ;2³ @157/158
|
|
iny ;2 @159
|
|
sbc #100 ;2 @161
|
|
|
|
HexToDec99; SUBROUTINE
|
|
lsr a ;2 @163
|
|
tax ;2 @165
|
|
lda ShiftedBcdTab,x ;4 @169
|
|
tax ;2 @171
|
|
rol a ;2 @173
|
|
and #$0F ;2 @175
|
|
ora #ASCII_0_OFFSET
|
|
sta decOnes ;3 @178
|
|
txa ;2 @180
|
|
lsr a ;2 @182
|
|
lsr a ;2 @184
|
|
lsr a ;2 @186
|
|
ora #ASCII_0_OFFSET
|
|
|
|
; irmen: load X with ones, and store Y and A too, for easy printing afterwards
|
|
sty decHundreds
|
|
sta decTens
|
|
ldx decOnes
|
|
rts ;6 @192 Y=hundreds, A = tens digit, X=ones digit
|
|
|
|
|
|
HexToDec999; SUBROUTINE
|
|
sty hexLow ;3 @9
|
|
jmp Start100s ;3 @12
|
|
|
|
Mod100Tab
|
|
.byte 0,56,12,56+12
|
|
|
|
ShiftedBcdTab
|
|
.byte $00,$01,$02,$03,$04,$08,$09,$0A,$0B,$0C
|
|
.byte $10,$11,$12,$13,$14,$18,$19,$1A,$1B,$1C
|
|
.byte $20,$21,$22,$23,$24,$28,$29,$2A,$2B,$2C
|
|
.byte $30,$31,$32,$33,$34,$38,$39,$3A,$3B,$3C
|
|
.byte $40,$41,$42,$43,$44,$48,$49,$4A,$4B,$4C
|
|
|
|
decTenThousands .byte 0
|
|
decThousands .byte 0
|
|
decHundreds .byte 0
|
|
decTens .byte 0
|
|
decOnes .byte 0
|
|
.byte 0 ; zero-terminate the decimal output string
|
|
.pend
|
|
|
|
byte2decimal .proc
|
|
cmp #0
|
|
bpl +
|
|
eor #255
|
|
clc
|
|
adc #1
|
|
+ jmp ubyte2decimal
|
|
.pend
|
|
|
|
ubyte2hex .proc
|
|
pha
|
|
and #$0f
|
|
tax
|
|
ldy _hex_digits,x
|
|
pla
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
lsr a
|
|
tax
|
|
lda _hex_digits,x
|
|
rts
|
|
|
|
_hex_digits .text "0123456789abcdef" ; can probably be reused for other stuff as well
|
|
.pend
|
|
|
|
uword2hex .proc
|
|
sta P8ZP_SCRATCH_REG
|
|
tya
|
|
jsr ubyte2hex
|
|
sta output
|
|
sty output+1
|
|
lda P8ZP_SCRATCH_REG
|
|
jsr ubyte2hex
|
|
sta output+2
|
|
sty output+3
|
|
rts
|
|
output .text "0000", $00 ; 0-terminated output buffer (to make printing easier)
|
|
.pend
|
|
.pend
|
|
|
|
; ---- block: 'test_stack' ----
|
|
test_stack .proc
|
|
|
|
|
|
|
|
test .proc
|
|
lda #13
|
|
jsr txt.chrout
|
|
lda #'-'
|
|
ldy #12
|
|
- jsr txt.chrout
|
|
dey
|
|
bne -
|
|
lda #13
|
|
jsr txt.chrout
|
|
lda #'s'
|
|
jsr txt.chrout
|
|
lda #'p'
|
|
jsr txt.chrout
|
|
lda #'='
|
|
jsr txt.chrout
|
|
tsx
|
|
txa
|
|
jsr txt.print_ub
|
|
lda #13
|
|
jsr txt.chrout
|
|
lda #'-'
|
|
ldy #12
|
|
- jsr txt.chrout
|
|
dey
|
|
bne -
|
|
lda #13
|
|
jmp txt.chrout
|
|
.pend
|
|
.pend
|
|
|
|
; ---- block: 'math' ----
|
|
math .proc
|
|
|
|
|
|
; Internal Math library routines - always included by the compiler
|
|
; Generic machine independent 6502 code.
|
|
;
|
|
; some more interesting routines can be found here:
|
|
; http://6502org.wikidot.com/software-math
|
|
; http://codebase64.org/doku.php?id=base:6502_6510_maths
|
|
; https://github.com/TobyLobster/multiply_test
|
|
; https://github.com/TobyLobster/sqrt_test
|
|
|
|
|
|
multiply_bytes .proc
|
|
; -- multiply 2 bytes A and Y, result as byte in A (signed or unsigned)
|
|
; https://github.com/TobyLobster/multiply_test/blob/main/tests/mult29.a
|
|
|
|
_multiplicand = P8ZP_SCRATCH_B1
|
|
_multiplier = P8ZP_SCRATCH_REG
|
|
|
|
sty _multiplicand
|
|
lsr a
|
|
sta _multiplier
|
|
lda #0
|
|
ldx #2
|
|
-
|
|
bcc +
|
|
clc
|
|
adc _multiplicand
|
|
+
|
|
ror a
|
|
ror _multiplier
|
|
bcc +
|
|
clc
|
|
adc _multiplicand
|
|
+
|
|
ror a
|
|
ror _multiplier
|
|
|
|
bcc +
|
|
clc
|
|
adc _multiplicand
|
|
+
|
|
ror a
|
|
ror _multiplier
|
|
bcc +
|
|
clc
|
|
adc _multiplicand
|
|
+
|
|
ror a
|
|
ror _multiplier
|
|
dex
|
|
bne -
|
|
; tay ; if you want 16 bits result in AY, enable this again
|
|
lda _multiplier
|
|
rts
|
|
.pend
|
|
|
|
|
|
multiply_words .proc
|
|
; -- multiply two 16-bit words into a 32-bit result (signed and unsigned)
|
|
; input: A/Y = first 16-bit number, multiply_words.multiplier = second 16-bit number
|
|
; output: multiply_words.result, 4-bytes/32-bits product, LSB order (low-to-high) low 16 bits also in AY.
|
|
|
|
; NOTE: the result (which includes the multiplier parameter on entry) is a 4-byte array.
|
|
; this routine could be faster if we could stick that into zeropage,
|
|
; but there currently is no way to use 4 consecutive bytes in ZP (without disabling irq and saving/restoring them)...
|
|
|
|
; mult62.a
|
|
; from: https://github.com/TobyLobster/multiply_test/blob/main/tests/mult62.a
|
|
; based on Dr Jefyll, http://forum.6502.org/viewtopic.php?f=9&t=689&start=0#p19958
|
|
; - adjusted to use fixed zero page addresses
|
|
; - removed 'decrement to avoid clc' as this is slower on average
|
|
; - rearranged memory use to remove final memory copy and give LSB first order to result
|
|
; - removed temp zp storage bytes
|
|
; - unrolled the outer loop
|
|
; - unrolled the two inner loops once
|
|
;
|
|
; 16 bit x 16 bit unsigned multiply, 32 bit result
|
|
; Average cycles: ~442 ?
|
|
; 93 bytes
|
|
|
|
_multiplicand = P8ZP_SCRATCH_W2 ; 2 bytes
|
|
multiplier = result
|
|
|
|
; 16 bit x 16 bit unsigned multiply, 32 bit result
|
|
;
|
|
; On Entry:
|
|
; (multiplier, multiplier+1): two byte multiplier, four bytes needed for result
|
|
; (multiplicand, multiplicand+1): two byte multiplicand
|
|
; On Exit:
|
|
; (result, result+1, result+2, result+3): product
|
|
|
|
sta _multiplicand
|
|
sty _multiplicand+1
|
|
|
|
lda #0 ;
|
|
sta result+2 ; 16 bits of zero in A, result+2
|
|
; Note: First 8 shifts are A -> result+2 -> result
|
|
; Final 8 shifts are A -> result+2 -> result+1
|
|
|
|
; --- 1st byte ---
|
|
ldy #4 ; count for inner loop
|
|
lsr result
|
|
|
|
; inner loop (8 times)
|
|
_inner_loop
|
|
; first time
|
|
bcc +
|
|
tax ; retain A
|
|
lda result+2
|
|
clc
|
|
adc _multiplicand
|
|
sta result+2
|
|
txa ; recall A
|
|
adc _multiplicand+1
|
|
|
|
+
|
|
ror a ; shift
|
|
ror result+2
|
|
ror result
|
|
|
|
; second time
|
|
bcc +
|
|
tax ; retain A
|
|
lda result+2
|
|
clc
|
|
adc _multiplicand
|
|
sta result+2
|
|
txa ; recall A
|
|
adc _multiplicand+1
|
|
|
|
+
|
|
ror a ; shift
|
|
ror result+2
|
|
ror result
|
|
|
|
dey
|
|
bne _inner_loop ; go back for 1 more shift?
|
|
|
|
; --- 2nd byte ---
|
|
ldy #4 ; count for inner loop
|
|
lsr result+1
|
|
|
|
; inner loop (8 times)
|
|
_inner_loop2
|
|
; first time
|
|
bcc +
|
|
tax ; retain A
|
|
lda result+2
|
|
clc
|
|
adc _multiplicand
|
|
sta result+2
|
|
txa ; recall A
|
|
adc _multiplicand+1
|
|
|
|
+
|
|
ror a ; shift
|
|
ror result+2
|
|
ror result+1
|
|
|
|
; second time
|
|
bcc +
|
|
tax ; retain A
|
|
lda result+2
|
|
clc
|
|
adc _multiplicand
|
|
sta result+2
|
|
txa ; recall A
|
|
adc _multiplicand+1
|
|
|
|
+
|
|
ror a ; shift
|
|
ror result+2
|
|
ror result+1
|
|
dey
|
|
bne _inner_loop2 ; go back for 1 more shift?
|
|
|
|
sta result+3 ; ms byte of hi-word of result
|
|
|
|
lda result
|
|
ldy result+1
|
|
rts
|
|
|
|
result .byte 0,0,0,0
|
|
|
|
.pend
|
|
|
|
|
|
divmod_b_asm .proc
|
|
; signed byte division: make everything positive and fix sign afterwards
|
|
sta P8ZP_SCRATCH_B1
|
|
tya
|
|
eor P8ZP_SCRATCH_B1
|
|
php ; save sign
|
|
lda P8ZP_SCRATCH_B1
|
|
bpl +
|
|
eor #$ff
|
|
sec
|
|
adc #0 ; make it positive
|
|
+ pha
|
|
tya
|
|
bpl +
|
|
eor #$ff
|
|
sec
|
|
adc #0 ; make it positive
|
|
tay
|
|
+ pla
|
|
jsr divmod_ub_asm
|
|
sta _remainder
|
|
plp
|
|
bpl +
|
|
tya
|
|
eor #$ff
|
|
sec
|
|
adc #0 ; negate result
|
|
tay
|
|
+ rts
|
|
_remainder .byte 0
|
|
.pend
|
|
|
|
|
|
divmod_ub_asm .proc
|
|
; -- divide A by Y, result quotient in Y, remainder in A (unsigned)
|
|
; division by zero will result in quotient = 255 and remainder = original number
|
|
sty P8ZP_SCRATCH_REG
|
|
sta P8ZP_SCRATCH_B1
|
|
|
|
lda #0
|
|
ldx #8
|
|
asl P8ZP_SCRATCH_B1
|
|
- rol a
|
|
cmp P8ZP_SCRATCH_REG
|
|
bcc +
|
|
sbc P8ZP_SCRATCH_REG
|
|
+ rol P8ZP_SCRATCH_B1
|
|
dex
|
|
bne -
|
|
ldy P8ZP_SCRATCH_B1
|
|
rts
|
|
.pend
|
|
|
|
divmod_w_asm .proc
|
|
; signed word division: make everything positive and fix sign afterwards
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
eor P8ZP_SCRATCH_W2+1
|
|
php ; save sign
|
|
lda P8ZP_SCRATCH_W1+1
|
|
bpl +
|
|
lda #0
|
|
sec
|
|
sbc P8ZP_SCRATCH_W1
|
|
sta P8ZP_SCRATCH_W1
|
|
lda #0
|
|
sbc P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W1+1
|
|
+ lda P8ZP_SCRATCH_W2+1
|
|
bpl +
|
|
lda #0
|
|
sec
|
|
sbc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W2
|
|
lda #0
|
|
sbc P8ZP_SCRATCH_W2+1
|
|
sta P8ZP_SCRATCH_W2+1
|
|
+ tay
|
|
lda P8ZP_SCRATCH_W2
|
|
jsr divmod_uw_asm
|
|
plp ; restore sign
|
|
bpl +
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
lda #0
|
|
sec
|
|
sbc P8ZP_SCRATCH_W2
|
|
pha
|
|
lda #0
|
|
sbc P8ZP_SCRATCH_W2+1
|
|
tay
|
|
pla
|
|
+ rts
|
|
.pend
|
|
|
|
divmod_uw_asm .proc
|
|
; -- divide two unsigned words (16 bit each) into 16 bit results
|
|
; input: P8ZP_SCRATCH_W1 in ZP: 16 bit number, A/Y: 16 bit divisor
|
|
; output: P8ZP_SCRATCH_W2 in ZP: 16 bit remainder, A/Y: 16 bit division result
|
|
; division by zero will result in quotient = 65535 and remainder = divident
|
|
|
|
|
|
dividend = P8ZP_SCRATCH_W1
|
|
remainder = P8ZP_SCRATCH_W2
|
|
result = dividend ;save memory by reusing divident to store the result
|
|
|
|
sta _divisor
|
|
sty _divisor+1
|
|
lda #0 ;preset remainder to 0
|
|
sta remainder
|
|
sta remainder+1
|
|
ldx #16 ;repeat for each bit: ...
|
|
|
|
- asl dividend ;dividend lb & hb*2, msb -> Carry
|
|
rol dividend+1
|
|
rol remainder ;remainder lb & hb * 2 + msb from carry
|
|
rol remainder+1
|
|
lda remainder
|
|
sec
|
|
sbc _divisor ;substract divisor to see if it fits in
|
|
tay ;lb result -> Y, for we may need it later
|
|
lda remainder+1
|
|
sbc _divisor+1
|
|
bcc + ;if carry=0 then divisor didn't fit in yet
|
|
|
|
sta remainder+1 ;else save substraction result as new remainder,
|
|
sty remainder
|
|
inc result ;and INCrement result cause divisor fit in 1 times
|
|
|
|
+ dex
|
|
bne -
|
|
|
|
lda result
|
|
ldy result+1
|
|
rts
|
|
_divisor .word 0
|
|
.pend
|
|
|
|
|
|
randword .proc
|
|
; -- 16 bit pseudo random number generator into AY
|
|
; default seed = $00c2 $1137
|
|
; routine from https://codebase64.org/doku.php?id=base:x_abc_random_number_generator_8_16_bit
|
|
inc x1
|
|
clc
|
|
x1=*+1
|
|
lda #$00 ;x1
|
|
c1=*+1
|
|
eor #$c2 ;c1
|
|
a1=*+1
|
|
eor #$11 ;a1
|
|
sta a1
|
|
b1=*+1
|
|
adc #$37 ;b1
|
|
sta b1
|
|
lsr a
|
|
eor a1
|
|
adc c1
|
|
sta c1
|
|
ldy b1
|
|
rts
|
|
.pend
|
|
|
|
randbyte = randword ; -- 8 bit pseudo random number generator into A (by just reusing randword)
|
|
|
|
|
|
; ----------- optimized multiplications (in-place A (byte) and ?? (word)) : ---------
|
|
mul_byte_3 .proc
|
|
; A = A + A*2
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
mul_word_3 .proc
|
|
; AY = AY*2 + AY
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
clc
|
|
adc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
adc P8ZP_SCRATCH_W2+1
|
|
tay
|
|
lda P8ZP_SCRATCH_W1
|
|
rts
|
|
.pend
|
|
|
|
|
|
mul_byte_5 .proc
|
|
; A = A*4 + A
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
mul_word_5 .proc
|
|
; AY = AY*4 + AY
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
clc
|
|
adc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
adc P8ZP_SCRATCH_W2+1
|
|
tay
|
|
lda P8ZP_SCRATCH_W1
|
|
rts
|
|
.pend
|
|
|
|
|
|
mul_byte_6 .proc
|
|
; A = (A*2 + A)*2
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
asl a
|
|
rts
|
|
.pend
|
|
|
|
mul_word_6 .proc
|
|
; AY = (AY*2 + AY)*2
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
clc
|
|
adc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
tay
|
|
lda P8ZP_SCRATCH_W1+1
|
|
adc P8ZP_SCRATCH_W2+1
|
|
sta P8ZP_SCRATCH_W1+1
|
|
tya
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
ldy P8ZP_SCRATCH_W1+1
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_7 .proc
|
|
; A = A*8 - A
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
asl a
|
|
sec
|
|
sbc P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
mul_word_7 .proc
|
|
; AY = AY*8 - AY
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
sec
|
|
sbc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
sbc P8ZP_SCRATCH_W2+1
|
|
tay
|
|
lda P8ZP_SCRATCH_W1
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_9 .proc
|
|
; A = A*8 + A
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
mul_word_9 .proc
|
|
; AY = AY*8 + AY
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
clc
|
|
adc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
adc P8ZP_SCRATCH_W2+1
|
|
tay
|
|
lda P8ZP_SCRATCH_W1
|
|
rts
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_10 .proc
|
|
; A=(A*4 + A)*2
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
asl a
|
|
rts
|
|
.pend
|
|
|
|
mul_word_10 .proc
|
|
; AY=(AY*4 + AY)*2
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
clc
|
|
adc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
adc P8ZP_SCRATCH_W2+1
|
|
sta P8ZP_SCRATCH_W1+1
|
|
lda P8ZP_SCRATCH_W1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
ldy P8ZP_SCRATCH_W1+1
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_11 .proc
|
|
; A=(A*2 + A)*4 - A
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
sec
|
|
sbc P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
; mul_word_11 is skipped (too much code)
|
|
|
|
mul_byte_12 .proc
|
|
; A=(A*2 + A)*4
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
rts
|
|
.pend
|
|
|
|
mul_word_12 .proc
|
|
; AY=(AY*2 + AY)*4
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
clc
|
|
adc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
adc P8ZP_SCRATCH_W2+1
|
|
sta P8ZP_SCRATCH_W1+1
|
|
lda P8ZP_SCRATCH_W1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
ldy P8ZP_SCRATCH_W1+1
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_13 .proc
|
|
; A=(A*2 + A)*4 + A
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
; mul_word_13 is skipped (too much code)
|
|
|
|
mul_byte_14 .proc
|
|
; A=(A*8 - A)*2
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
asl a
|
|
sec
|
|
sbc P8ZP_SCRATCH_REG
|
|
asl a
|
|
rts
|
|
.pend
|
|
|
|
; mul_word_14 is skipped (too much code)
|
|
|
|
mul_byte_15 .proc
|
|
; A=A*16 - A
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
asl a
|
|
asl a
|
|
sec
|
|
sbc P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
mul_word_15 .proc
|
|
; AY = AY * 16 - AY
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
sec
|
|
sbc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
sbc P8ZP_SCRATCH_W2+1
|
|
tay
|
|
lda P8ZP_SCRATCH_W1
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_20 .proc
|
|
; A=(A*4 + A)*4
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
rts
|
|
.pend
|
|
|
|
mul_word_20 .proc
|
|
; AY = AY * 10 * 2
|
|
jsr mul_word_10
|
|
sty P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
ldy P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_25 .proc
|
|
; A=(A*2 + A)*8 + A
|
|
sta P8ZP_SCRATCH_REG
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
asl a
|
|
asl a
|
|
asl a
|
|
clc
|
|
adc P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
mul_word_25 .proc
|
|
; AY = (AY*2 + AY) *8 + AY
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
clc
|
|
adc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
adc P8ZP_SCRATCH_W2+1
|
|
sta P8ZP_SCRATCH_W1+1
|
|
lda P8ZP_SCRATCH_W1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
clc
|
|
adc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
adc P8ZP_SCRATCH_W2+1
|
|
tay
|
|
lda P8ZP_SCRATCH_W1
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_40 .proc
|
|
and #7
|
|
tay
|
|
lda _forties,y
|
|
rts
|
|
_forties .byte 0*40, 1*40, 2*40, 3*40, 4*40, 5*40, 6*40, 7*40 & 255
|
|
.pend
|
|
|
|
mul_word_40 .proc
|
|
; AY = (AY*4 + AY)*8
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
asl a
|
|
rol P8ZP_SCRATCH_W1+1
|
|
clc
|
|
adc P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_W1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
adc P8ZP_SCRATCH_W2+1
|
|
asl P8ZP_SCRATCH_W1
|
|
rol a
|
|
asl P8ZP_SCRATCH_W1
|
|
rol a
|
|
asl P8ZP_SCRATCH_W1
|
|
rol a
|
|
tay
|
|
lda P8ZP_SCRATCH_W1
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_50 .proc
|
|
and #7
|
|
tay
|
|
lda _fifties, y
|
|
rts
|
|
_fifties .byte 0*50, 1*50, 2*50, 3*50, 4*50, 5*50, 6*50 & 255, 7*50 & 255
|
|
.pend
|
|
|
|
mul_word_50 .proc
|
|
; AY = AY * 25 * 2
|
|
jsr mul_word_25
|
|
sty P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
ldy P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_80 .proc
|
|
and #3
|
|
tay
|
|
lda _eighties, y
|
|
rts
|
|
_eighties .byte 0*80, 1*80, 2*80, 3*80
|
|
.pend
|
|
|
|
mul_word_80 .proc
|
|
; AY = AY * 40 * 2
|
|
jsr mul_word_40
|
|
sty P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
ldy P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
mul_byte_100 .proc
|
|
and #3
|
|
tay
|
|
lda _hundreds, y
|
|
rts
|
|
_hundreds .byte 0*100, 1*100, 2*100, 3*100 & 255
|
|
.pend
|
|
|
|
mul_word_100 .proc
|
|
; AY = AY * 25 * 4
|
|
jsr mul_word_25
|
|
sty P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
ldy P8ZP_SCRATCH_REG
|
|
rts
|
|
.pend
|
|
|
|
mul_word_320 .proc
|
|
; AY = A * 256 + A * 64 (msb in Y doesn't matter)
|
|
sta P8ZP_SCRATCH_B1
|
|
ldy #0
|
|
sty P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
asl a
|
|
rol P8ZP_SCRATCH_REG
|
|
pha
|
|
clc
|
|
lda P8ZP_SCRATCH_B1
|
|
adc P8ZP_SCRATCH_REG
|
|
tay
|
|
pla
|
|
rts
|
|
.pend
|
|
|
|
mul_word_640 .proc
|
|
; AY = (A * 2 * 320) (msb in Y doesn't matter)
|
|
asl a
|
|
jmp mul_word_320
|
|
.pend
|
|
|
|
|
|
; ----------- end optimized multiplications -----------
|
|
|
|
|
|
; support for bit shifting that is too large to be unrolled:
|
|
|
|
lsr_byte_A .proc
|
|
; -- lsr signed byte in A times the value in Y
|
|
cpy #0
|
|
beq +
|
|
cmp #0
|
|
bpl lsr_ubyte_A
|
|
- sec
|
|
ror a
|
|
dey
|
|
bne -
|
|
+ rts
|
|
.pend
|
|
|
|
lsr_ubyte_A .proc
|
|
; -- lsr unsigned byte in A times the value in Y
|
|
cpy #0
|
|
beq +
|
|
- lsr a
|
|
dey
|
|
bne -
|
|
+ rts
|
|
.pend
|
|
|
|
asl_byte_A .proc
|
|
; -- asl any byte in A times the value in Y
|
|
cpy #0
|
|
beq +
|
|
- asl a
|
|
dey
|
|
bne -
|
|
+ rts
|
|
.pend
|
|
|
|
|
|
lsr_word_AY .proc
|
|
; -- lsr signed word in AY times the value in X
|
|
cpx #0
|
|
beq +
|
|
cpy #0
|
|
bpl lsr_uword_AY
|
|
sty P8ZP_SCRATCH_B1
|
|
- sec
|
|
ror P8ZP_SCRATCH_B1
|
|
ror a
|
|
dex
|
|
bne -
|
|
ldy P8ZP_SCRATCH_B1
|
|
+ rts
|
|
.pend
|
|
|
|
lsr_uword_AY .proc
|
|
; -- lsr unsigned word in AY times the value in X
|
|
cpx #0
|
|
beq +
|
|
sty P8ZP_SCRATCH_B1
|
|
- lsr P8ZP_SCRATCH_B1
|
|
ror a
|
|
dex
|
|
bne -
|
|
ldy P8ZP_SCRATCH_B1
|
|
+ rts
|
|
.pend
|
|
|
|
asl_word_AY .proc
|
|
; -- asl any word in AY times the value in X
|
|
cpx #0
|
|
beq +
|
|
sty P8ZP_SCRATCH_B1
|
|
- asl a
|
|
rol P8ZP_SCRATCH_B1
|
|
dex
|
|
bne -
|
|
ldy P8ZP_SCRATCH_B1
|
|
+ rts
|
|
.pend
|
|
|
|
|
|
square .proc
|
|
; -- calculate square of signed word (actually -255..255) in AY, result in AY
|
|
; routine by Lee Davison, source: http://6502.org/source/integers/square.htm
|
|
; using this routine is a lot faster as doing a regular multiplication (for words)
|
|
;
|
|
; Calculates the 16 bit unsigned integer square of the signed 16 bit integer in
|
|
; Numberl/Numberh. The result is always in the range 0 to 65025 and is held in
|
|
; Squarel/Squareh
|
|
;
|
|
; The maximum input range is only +/-255 and no checking is done to ensure that
|
|
; this is so.
|
|
;
|
|
; This routine is useful if you are trying to draw circles as for any circle
|
|
;
|
|
; x^2+y^2=r^2 where x and y are the co-ordinates of any point on the circle and
|
|
; r is the circle radius
|
|
|
|
numberl = P8ZP_SCRATCH_W1 ; number to square low byte
|
|
numberh = P8ZP_SCRATCH_W1+1 ; number to square high byte
|
|
squarel = P8ZP_SCRATCH_W2 ; square low byte
|
|
squareh = P8ZP_SCRATCH_W2+1 ; square high byte
|
|
tempsq = P8ZP_SCRATCH_B1 ; temp byte for intermediate result
|
|
|
|
sta numberl
|
|
sty numberh
|
|
|
|
lda #$00 ; clear a
|
|
sta squarel ; clear square low byte
|
|
; (no need to clear the high byte, it gets shifted out)
|
|
lda numberl ; get number low byte
|
|
ldx numberh ; get number high byte
|
|
bpl _nonneg ; if +ve don't negate it
|
|
; else do a two's complement
|
|
eor #$ff ; invert
|
|
sec ; +1
|
|
adc #$00 ; and add it
|
|
|
|
_nonneg:
|
|
sta tempsq ; save abs(number)
|
|
ldx #$08 ; set bit count
|
|
|
|
_nextr2bit:
|
|
asl squarel ; low byte *2
|
|
rol squareh ; high byte *2+carry from low
|
|
asl a ; shift number byte
|
|
bcc _nosqadd ; don't do add if c = 0
|
|
tay ; save a
|
|
clc ; clear carry for add
|
|
lda tempsq ; get number
|
|
adc squarel ; add number^2 low byte
|
|
sta squarel ; save number^2 low byte
|
|
lda #$00 ; clear a
|
|
adc squareh ; add number^2 high byte
|
|
sta squareh ; save number^2 high byte
|
|
tya ; get a back
|
|
|
|
_nosqadd:
|
|
dex ; decrement bit count
|
|
bne _nextr2bit ; go do next bit
|
|
|
|
lda squarel
|
|
ldy squareh
|
|
rts
|
|
|
|
.pend
|
|
|
|
sin8u .proc
|
|
tay
|
|
lda _sinecos8u,y
|
|
rts
|
|
_sinecos8u .byte trunc(128.0 + 127.5 * sin(range(256+64) * rad(360.0/256.0)))
|
|
.pend
|
|
|
|
cos8u .proc
|
|
tay
|
|
lda sin8u._sinecos8u+64,y
|
|
rts
|
|
.pend
|
|
|
|
sin8 .proc
|
|
tay
|
|
lda _sinecos8,y
|
|
rts
|
|
_sinecos8 .char trunc(127.0 * sin(range(256+64) * rad(360.0/256.0)))
|
|
.pend
|
|
|
|
cos8 .proc
|
|
tay
|
|
lda sin8._sinecos8+64,y
|
|
rts
|
|
.pend
|
|
|
|
sinr8u .proc
|
|
tay
|
|
lda _sinecosR8u,y
|
|
rts
|
|
_sinecosR8u .byte trunc(128.0 + 127.5 * sin(range(180+45) * rad(360.0/180.0)))
|
|
.pend
|
|
|
|
cosr8u .proc
|
|
tay
|
|
lda sinr8u._sinecosR8u+45,y
|
|
rts
|
|
.pend
|
|
|
|
sinr8 .proc
|
|
tay
|
|
lda _sinecosR8,y
|
|
rts
|
|
_sinecosR8 .char trunc(127.0 * sin(range(180+45) * rad(360.0/180.0)))
|
|
.pend
|
|
|
|
cosr8 .proc
|
|
tay
|
|
lda sinr8._sinecosR8+45,y
|
|
rts
|
|
.pend
|
|
|
|
rnd .proc
|
|
jmp math.randbyte
|
|
.pend
|
|
|
|
rndw .proc
|
|
jmp math.randword
|
|
.pend
|
|
|
|
rndseed .proc
|
|
sta math.randword.x1
|
|
sty math.randword.c1
|
|
lda cx16.r0L
|
|
sta math.randword.a1
|
|
lda cx16.r0H
|
|
sta math.randword.b1
|
|
rts
|
|
.pend
|
|
|
|
log2 .proc
|
|
sta P8ZP_SCRATCH_B1
|
|
lda #$80
|
|
ldy #7
|
|
- bit P8ZP_SCRATCH_B1
|
|
beq +
|
|
rts
|
|
+ dey
|
|
bne +
|
|
rts
|
|
+ lsr a
|
|
bne -
|
|
.pend
|
|
|
|
log2w .proc
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
lda #<$8000
|
|
sta cx16.r0
|
|
lda #>$8000
|
|
sta cx16.r0+1
|
|
ldy #15
|
|
- lda P8ZP_SCRATCH_W1
|
|
and cx16.r0
|
|
sta P8ZP_SCRATCH_B1
|
|
lda P8ZP_SCRATCH_W1+1
|
|
and cx16.r0+1
|
|
ora P8ZP_SCRATCH_B1
|
|
beq +
|
|
rts
|
|
+ dey
|
|
bne +
|
|
rts
|
|
+ lsr cx16.r0+1
|
|
ror cx16.r0
|
|
jmp -
|
|
.pend
|
|
|
|
mul16_last_upper .proc
|
|
lda multiply_words.result+2
|
|
ldy multiply_words.result+3
|
|
rts
|
|
.pend
|
|
|
|
direction_qd .proc
|
|
x_delta = cx16.r0L
|
|
y_delta = cx16.r1L
|
|
quadrant = cx16.r2L
|
|
half_value = cx16.r3L
|
|
region_number = cx16.r4L
|
|
small = cx16.r5L
|
|
large = cx16.r5H
|
|
|
|
sta quadrant
|
|
sty y_delta
|
|
stx x_delta
|
|
cpx y_delta
|
|
bcs _XGreaterOrEqualY
|
|
|
|
_XLessY:
|
|
lda #16
|
|
sta region_number
|
|
stx small
|
|
sty large
|
|
bne _DetermineRegion
|
|
|
|
_XGreaterOrEqualY:
|
|
lda #0
|
|
sta region_number
|
|
stx large
|
|
sty small
|
|
|
|
_DetermineRegion:
|
|
; set A = small * 2.5
|
|
lda small
|
|
lsr a
|
|
sta half_value
|
|
lda small
|
|
asl a
|
|
bcs _SmallerQuotient
|
|
clc
|
|
adc half_value
|
|
bcs _SmallerQuotient
|
|
cmp large
|
|
bcc _LargerQuotient
|
|
|
|
; S * 2.5 > L
|
|
_SmallerQuotient:
|
|
; set A = S * 1.25
|
|
lsr half_value
|
|
lda small
|
|
clc
|
|
adc half_value
|
|
cmp large
|
|
bcc _Region1 ; if S * 1.25 < L then goto Region1 (L / S > 1.25)
|
|
bcs _Region0 ; (L / S < 1.25)
|
|
|
|
; S * 2.5 < L
|
|
_LargerQuotient:
|
|
; set A = S * 7.5
|
|
lda small
|
|
asl a
|
|
asl a
|
|
asl a
|
|
bcs _Region2
|
|
sec
|
|
sbc half_value
|
|
cmp large
|
|
bcc _Region3 ; if S * 7.5 < L then goto Region3 (L / S > 7.5)
|
|
jmp _Region2 ; (L / S < 7.5)
|
|
|
|
_Region0:
|
|
; L / S < 1.25. d=3,9,15,21
|
|
jmp _LookupResult
|
|
|
|
_Region1:
|
|
; 1.25 < L / S < 2.5. d=2,4,8,10,14,16,20,22
|
|
lda region_number
|
|
clc
|
|
adc #4
|
|
sta region_number
|
|
bpl _LookupResult
|
|
|
|
_Region2:
|
|
; 2.5 < L / S < 7.5. d=1,5,7,11,13,17,19,23
|
|
lda region_number
|
|
clc
|
|
adc #8
|
|
sta region_number
|
|
bpl _LookupResult
|
|
|
|
_Region3:
|
|
; 7.5 < L / S. d=0,6,12,18
|
|
lda region_number
|
|
clc
|
|
adc #12
|
|
sta region_number
|
|
|
|
_LookupResult:
|
|
lda quadrant
|
|
clc
|
|
adc region_number
|
|
tax
|
|
lda _quadrant_region_to_direction,x
|
|
rts
|
|
|
|
_quadrant_region_to_direction:
|
|
.byte 9, 3,15,21
|
|
.byte 10, 2,14,22
|
|
.byte 11, 1,13,23
|
|
.byte 12, 0,12, 0
|
|
.byte 9, 3,15,21
|
|
.byte 8, 4,16,20
|
|
.byte 7, 5,17,19
|
|
.byte 6, 6,18,18
|
|
.pend
|
|
|
|
atan2 .proc
|
|
x1 = cx16.r0L
|
|
y1 = cx16.r1L
|
|
x2 = cx16.r2L
|
|
y2 = cx16.r3L
|
|
octant = cx16.r4L ;; temporary zeropage variable
|
|
|
|
lda x1
|
|
sec
|
|
sbc x2
|
|
bcs *+4
|
|
eor #$ff
|
|
tax
|
|
rol octant
|
|
|
|
lda y1
|
|
sec
|
|
sbc y2
|
|
bcs *+4
|
|
eor #$ff
|
|
tay
|
|
rol octant
|
|
|
|
lda log2_tab,x
|
|
sec
|
|
sbc log2_tab,y
|
|
bcc *+4
|
|
eor #$ff
|
|
tax
|
|
|
|
lda octant
|
|
rol a
|
|
and #%111
|
|
tay
|
|
|
|
lda atan_tab,x
|
|
eor octant_adjust,y
|
|
rts
|
|
|
|
octant_adjust
|
|
.byte %00111111 ;; x+,y+,|x|>|y|
|
|
.byte %00000000 ;; x+,y+,|x|<|y|
|
|
.byte %11000000 ;; x+,y-,|x|>|y|
|
|
.byte %11111111 ;; x+,y-,|x|<|y|
|
|
.byte %01000000 ;; x-,y+,|x|>|y|
|
|
.byte %01111111 ;; x-,y+,|x|<|y|
|
|
.byte %10111111 ;; x-,y-,|x|>|y|
|
|
.byte %10000000 ;; x-,y-,|x|<|y|
|
|
|
|
|
|
;;;;;;;; atan(2^(x/32))*128/pi ;;;;;;;;
|
|
|
|
atan_tab
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$00,$00,$00
|
|
.byte $00,$00,$00,$00,$00,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$01,$01,$01
|
|
.byte $01,$01,$01,$01,$01,$02,$02,$02
|
|
.byte $02,$02,$02,$02,$02,$02,$02,$02
|
|
.byte $02,$02,$02,$02,$02,$02,$02,$02
|
|
.byte $03,$03,$03,$03,$03,$03,$03,$03
|
|
.byte $03,$03,$03,$03,$03,$04,$04,$04
|
|
.byte $04,$04,$04,$04,$04,$04,$04,$04
|
|
.byte $05,$05,$05,$05,$05,$05,$05,$05
|
|
.byte $06,$06,$06,$06,$06,$06,$06,$06
|
|
.byte $07,$07,$07,$07,$07,$07,$08,$08
|
|
.byte $08,$08,$08,$08,$09,$09,$09,$09
|
|
.byte $09,$0a,$0a,$0a,$0a,$0b,$0b,$0b
|
|
.byte $0b,$0c,$0c,$0c,$0c,$0d,$0d,$0d
|
|
.byte $0d,$0e,$0e,$0e,$0e,$0f,$0f,$0f
|
|
.byte $10,$10,$10,$11,$11,$11,$12,$12
|
|
.byte $12,$13,$13,$13,$14,$14,$15,$15
|
|
.byte $15,$16,$16,$17,$17,$17,$18,$18
|
|
.byte $19,$19,$19,$1a,$1a,$1b,$1b,$1c
|
|
.byte $1c,$1c,$1d,$1d,$1e,$1e,$1f,$1f
|
|
|
|
|
|
;;;;;;;; log2(x)*32 ;;;;;;;;
|
|
|
|
log2_tab
|
|
.byte $00,$00,$20,$32,$40,$4a,$52,$59
|
|
.byte $60,$65,$6a,$6e,$72,$76,$79,$7d
|
|
.byte $80,$82,$85,$87,$8a,$8c,$8e,$90
|
|
.byte $92,$94,$96,$98,$99,$9b,$9d,$9e
|
|
.byte $a0,$a1,$a2,$a4,$a5,$a6,$a7,$a9
|
|
.byte $aa,$ab,$ac,$ad,$ae,$af,$b0,$b1
|
|
.byte $b2,$b3,$b4,$b5,$b6,$b7,$b8,$b9
|
|
.byte $b9,$ba,$bb,$bc,$bd,$bd,$be,$bf
|
|
.byte $c0,$c0,$c1,$c2,$c2,$c3,$c4,$c4
|
|
.byte $c5,$c6,$c6,$c7,$c7,$c8,$c9,$c9
|
|
.byte $ca,$ca,$cb,$cc,$cc,$cd,$cd,$ce
|
|
.byte $ce,$cf,$cf,$d0,$d0,$d1,$d1,$d2
|
|
.byte $d2,$d3,$d3,$d4,$d4,$d5,$d5,$d5
|
|
.byte $d6,$d6,$d7,$d7,$d8,$d8,$d9,$d9
|
|
.byte $d9,$da,$da,$db,$db,$db,$dc,$dc
|
|
.byte $dd,$dd,$dd,$de,$de,$de,$df,$df
|
|
.byte $df,$e0,$e0,$e1,$e1,$e1,$e2,$e2
|
|
.byte $e2,$e3,$e3,$e3,$e4,$e4,$e4,$e5
|
|
.byte $e5,$e5,$e6,$e6,$e6,$e7,$e7,$e7
|
|
.byte $e7,$e8,$e8,$e8,$e9,$e9,$e9,$ea
|
|
.byte $ea,$ea,$ea,$eb,$eb,$eb,$ec,$ec
|
|
.byte $ec,$ec,$ed,$ed,$ed,$ed,$ee,$ee
|
|
.byte $ee,$ee,$ef,$ef,$ef,$ef,$f0,$f0
|
|
.byte $f0,$f1,$f1,$f1,$f1,$f1,$f2,$f2
|
|
.byte $f2,$f2,$f3,$f3,$f3,$f3,$f4,$f4
|
|
.byte $f4,$f4,$f5,$f5,$f5,$f5,$f5,$f6
|
|
.byte $f6,$f6,$f6,$f7,$f7,$f7,$f7,$f7
|
|
.byte $f8,$f8,$f8,$f8,$f9,$f9,$f9,$f9
|
|
.byte $f9,$fa,$fa,$fa,$fa,$fa,$fb,$fb
|
|
.byte $fb,$fb,$fb,$fc,$fc,$fc,$fc,$fc
|
|
.byte $fd,$fd,$fd,$fd,$fd,$fd,$fe,$fe
|
|
.byte $fe,$fe,$fe,$ff,$ff,$ff,$ff,$ff
|
|
.pend
|
|
|
|
diff .proc
|
|
sty P8ZP_SCRATCH_REG
|
|
sec
|
|
sbc P8ZP_SCRATCH_REG
|
|
bcs +
|
|
eor #255
|
|
inc a
|
|
+ rts
|
|
.pend
|
|
|
|
diffw .proc
|
|
sec
|
|
sbc cx16.r0L
|
|
sta cx16.r0L
|
|
tya
|
|
sbc cx16.r0H
|
|
sta cx16.r0H
|
|
bcs +
|
|
eor #255
|
|
sta cx16.r0H
|
|
lda cx16.r0L
|
|
eor #255
|
|
inc a
|
|
sta cx16.r0L
|
|
bne +
|
|
inc cx16.r0H
|
|
+ lda cx16.r0L
|
|
ldy cx16.r0H
|
|
rts
|
|
.pend
|
|
.pend
|
|
|
|
; ---- block: 'prog8_lib' ----
|
|
prog8_lib .proc
|
|
|
|
|
|
; Internal library routines - always included by the compiler
|
|
; Generic machine independent 6502 code.
|
|
|
|
|
|
orig_stackpointer .byte 0 ; stores the Stack pointer register at program start
|
|
|
|
|
|
read_byte_from_address_in_AY_into_A .proc
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
ldy #0
|
|
lda (P8ZP_SCRATCH_W2),y
|
|
rts
|
|
.pend
|
|
|
|
|
|
write_byte_X_to_address_in_AY .proc
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
ldy #0
|
|
txa
|
|
sta (P8ZP_SCRATCH_W2),y
|
|
rts
|
|
.pend
|
|
|
|
|
|
reg_less_uw .proc
|
|
; AY < P8ZP_SCRATCH_W2?
|
|
cpy P8ZP_SCRATCH_W2+1
|
|
bcc _true
|
|
bne _false
|
|
cmp P8ZP_SCRATCH_W2
|
|
bcc _true
|
|
_false lda #0
|
|
rts
|
|
_true lda #1
|
|
rts
|
|
.pend
|
|
|
|
reg_less_w .proc
|
|
; -- AY < P8ZP_SCRATCH_W2?
|
|
cmp P8ZP_SCRATCH_W2
|
|
tya
|
|
sbc P8ZP_SCRATCH_W2+1
|
|
bvc +
|
|
eor #$80
|
|
+ bmi _true
|
|
lda #0
|
|
rts
|
|
_true lda #1
|
|
rts
|
|
.pend
|
|
|
|
reg_lesseq_uw .proc
|
|
; AY <= P8ZP_SCRATCH_W2?
|
|
cpy P8ZP_SCRATCH_W2+1
|
|
beq +
|
|
bcc _true
|
|
lda #0
|
|
rts
|
|
+ cmp P8ZP_SCRATCH_W2
|
|
bcc _true
|
|
beq _true
|
|
lda #0
|
|
rts
|
|
_true lda #1
|
|
rts
|
|
.pend
|
|
|
|
reg_lesseq_w .proc
|
|
; -- P8ZP_SCRATCH_W2 <= AY ? (note: order different from other routines)
|
|
cmp P8ZP_SCRATCH_W2
|
|
tya
|
|
sbc P8ZP_SCRATCH_W2+1
|
|
bvc +
|
|
eor #$80
|
|
+ bpl +
|
|
lda #0
|
|
rts
|
|
+ lda #1
|
|
rts
|
|
.pend
|
|
|
|
|
|
memcopy16_up .proc
|
|
; -- copy memory UP from (P8ZP_SCRATCH_W1) to (P8ZP_SCRATCH_W2) of length X/Y (16-bit, X=lo, Y=hi)
|
|
; clobbers register A,X,Y
|
|
source = P8ZP_SCRATCH_W1
|
|
dest = P8ZP_SCRATCH_W2
|
|
length = P8ZP_SCRATCH_B1 ; (and SCRATCH_ZPREG)
|
|
|
|
stx length
|
|
sty length+1
|
|
|
|
ldx length ; move low byte of length into X
|
|
bne + ; jump to start if X > 0
|
|
dec length ; subtract 1 from length
|
|
+ ldy #0 ; set Y to 0
|
|
- lda (source),y ; set A to whatever (source) points to offset by Y
|
|
sta (dest),y ; move A to location pointed to by (dest) offset by Y
|
|
iny ; increment Y
|
|
bne + ; if Y<>0 then (rolled over) then still moving bytes
|
|
inc source+1 ; increment hi byte of source
|
|
inc dest+1 ; increment hi byte of dest
|
|
+ dex ; decrement X (lo byte counter)
|
|
bne - ; if X<>0 then move another byte
|
|
dec length ; we've moved 255 bytes, dec length
|
|
bpl - ; if length is still positive go back and move more
|
|
rts ; done
|
|
.pend
|
|
|
|
|
|
memset .proc
|
|
; -- fill memory from (P8ZP_SCRATCH_W1), length XY, with value in A.
|
|
; clobbers X, Y
|
|
stx P8ZP_SCRATCH_B1
|
|
sty _save_reg
|
|
ldy #0
|
|
ldx _save_reg
|
|
beq _lastpage
|
|
|
|
_fullpage sta (P8ZP_SCRATCH_W1),y
|
|
iny
|
|
bne _fullpage
|
|
inc P8ZP_SCRATCH_W1+1 ; next page
|
|
dex
|
|
bne _fullpage
|
|
|
|
_lastpage ldy P8ZP_SCRATCH_B1
|
|
beq +
|
|
- dey
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
bne -
|
|
|
|
+ rts
|
|
_save_reg .byte 0
|
|
.pend
|
|
|
|
|
|
memsetw .proc
|
|
; -- fill memory from (P8ZP_SCRATCH_W1) number of words in P8ZP_SCRATCH_W2, with word value in AY.
|
|
; clobbers A, X, Y
|
|
sta _mod1+1 ; self-modify
|
|
sty _mod1b+1 ; self-modify
|
|
sta _mod2+1 ; self-modify
|
|
sty _mod2b+1 ; self-modify
|
|
ldx P8ZP_SCRATCH_W1
|
|
stx P8ZP_SCRATCH_B1
|
|
ldx P8ZP_SCRATCH_W1+1
|
|
inx
|
|
stx P8ZP_SCRATCH_REG ; second page
|
|
|
|
ldy #0
|
|
ldx P8ZP_SCRATCH_W2+1
|
|
beq _lastpage
|
|
|
|
_fullpage
|
|
_mod1 lda #0 ; self-modified
|
|
sta (P8ZP_SCRATCH_W1),y ; first page
|
|
sta (P8ZP_SCRATCH_B1),y ; second page
|
|
iny
|
|
_mod1b lda #0 ; self-modified
|
|
sta (P8ZP_SCRATCH_W1),y ; first page
|
|
sta (P8ZP_SCRATCH_B1),y ; second page
|
|
iny
|
|
bne _fullpage
|
|
inc P8ZP_SCRATCH_W1+1 ; next page pair
|
|
inc P8ZP_SCRATCH_W1+1 ; next page pair
|
|
inc P8ZP_SCRATCH_B1+1 ; next page pair
|
|
inc P8ZP_SCRATCH_B1+1 ; next page pair
|
|
dex
|
|
bne _fullpage
|
|
|
|
_lastpage ldx P8ZP_SCRATCH_W2
|
|
beq _done
|
|
|
|
ldy #0
|
|
-
|
|
_mod2 lda #0 ; self-modified
|
|
sta (P8ZP_SCRATCH_W1), y
|
|
inc P8ZP_SCRATCH_W1
|
|
bne _mod2b
|
|
inc P8ZP_SCRATCH_W1+1
|
|
_mod2b lda #0 ; self-modified
|
|
sta (P8ZP_SCRATCH_W1), y
|
|
inc P8ZP_SCRATCH_W1
|
|
bne +
|
|
inc P8ZP_SCRATCH_W1+1
|
|
+ dex
|
|
bne -
|
|
_done rts
|
|
.pend
|
|
|
|
|
|
|
|
ror2_mem_ub .proc
|
|
; -- in-place 8-bit ror of byte at memory location in AY
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
ldy #0
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
lsr a
|
|
bcc +
|
|
ora #$80
|
|
+ sta (P8ZP_SCRATCH_W1),y
|
|
rts
|
|
.pend
|
|
|
|
rol2_mem_ub .proc
|
|
; -- in-place 8-bit rol of byte at memory location in AY
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
ldy #0
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
cmp #$80
|
|
rol a
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
rts
|
|
.pend
|
|
|
|
|
|
strcpy .proc
|
|
; copy a string (must be 0-terminated) from A/Y to (P8ZP_SCRATCH_W1)
|
|
; it is assumed the target string is large enough.
|
|
; returns the length of the string that was copied in Y.
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
ldy #$ff
|
|
- iny
|
|
lda (P8ZP_SCRATCH_W2),y
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
bne -
|
|
rts
|
|
.pend
|
|
|
|
strcmp_expression .proc
|
|
; -- compare strings, result in A
|
|
lda _arg_s2
|
|
ldy _arg_s2+1
|
|
sta P8ZP_SCRATCH_W2
|
|
sty P8ZP_SCRATCH_W2+1
|
|
lda _arg_s1
|
|
ldy _arg_s1+1
|
|
jmp strcmp_mem
|
|
_arg_s1 .word 0
|
|
_arg_s2 .word 0
|
|
.pend
|
|
|
|
strcmp_mem .proc
|
|
; -- compares strings in s1 (AY) and s2 (P8ZP_SCRATCH_W2).
|
|
; Returns -1,0,1 in A, depeding on the ordering. Clobbers Y.
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
ldy #0
|
|
_loop lda (P8ZP_SCRATCH_W1),y
|
|
bne +
|
|
lda (P8ZP_SCRATCH_W2),y
|
|
bne _return_minusone
|
|
beq _return
|
|
+ cmp (P8ZP_SCRATCH_W2),y
|
|
bcc _return_minusone
|
|
bne _return_one
|
|
inc P8ZP_SCRATCH_W1
|
|
bne +
|
|
inc P8ZP_SCRATCH_W1+1
|
|
+ inc P8ZP_SCRATCH_W2
|
|
bne _loop
|
|
inc P8ZP_SCRATCH_W2+1
|
|
bne _loop
|
|
_return_one
|
|
lda #1
|
|
_return rts
|
|
_return_minusone
|
|
lda #-1
|
|
rts
|
|
.pend
|
|
|
|
|
|
strlen .proc
|
|
; -- returns the number of bytes in the string in AY, in Y. Clobbers A.
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
ldy #0
|
|
- lda (P8ZP_SCRATCH_W1),y
|
|
beq +
|
|
iny
|
|
bne -
|
|
+ rts
|
|
.pend
|
|
|
|
|
|
containment_bytearray .proc
|
|
; -- check if a value exists in a byte array.
|
|
; parameters: P8ZP_SCRATCH_W1: address of the byte array, A = byte to check, Y = length of array (>=1).
|
|
; returns boolean 0/1 in A.
|
|
dey
|
|
- cmp (P8ZP_SCRATCH_W1),y
|
|
beq +
|
|
dey
|
|
cpy #255
|
|
bne -
|
|
lda #0
|
|
rts
|
|
+ lda #1
|
|
rts
|
|
.pend
|
|
|
|
containment_wordarray .proc
|
|
; -- check if a value exists in a word array.
|
|
; parameters: P8ZP_SCRATCH_W1: value to check, P8ZP_SCRATCH_W2: address of the word array, Y = length of array (>=1).
|
|
; returns boolean 0/1 in A.
|
|
dey
|
|
tya
|
|
asl a
|
|
tay
|
|
- lda P8ZP_SCRATCH_W1
|
|
cmp (P8ZP_SCRATCH_W2),y
|
|
bne +
|
|
lda P8ZP_SCRATCH_W1+1
|
|
iny
|
|
cmp (P8ZP_SCRATCH_W2),y
|
|
beq _found
|
|
dey
|
|
+ dey
|
|
dey
|
|
cpy #254
|
|
bne -
|
|
lda #0
|
|
rts
|
|
_found lda #1
|
|
rts
|
|
.pend
|
|
|
|
|
|
arraycopy_split_to_normal_words .proc
|
|
; P8ZP_SCRATCH_W1 = start of lsb array
|
|
; P8ZP_SCRATCH_W2 = start of msb array
|
|
; AY = start of normal word target array
|
|
; X = number of elements to copy
|
|
sta _modlsb+1
|
|
sty _modlsb+2
|
|
clc
|
|
adc #1
|
|
bne +
|
|
iny
|
|
+ sta _modmsb+1
|
|
sty _modmsb+2
|
|
ldy #0
|
|
- lda (P8ZP_SCRATCH_W1),y
|
|
_modlsb sta $ffff ; modified lsb store
|
|
lda _modlsb+1
|
|
clc
|
|
adc #2
|
|
sta _modlsb+1
|
|
bcc +
|
|
inc _modlsb+2
|
|
+ lda (P8ZP_SCRATCH_W2),y
|
|
_modmsb sta $ffff ; modified msb store
|
|
lda _modmsb+1
|
|
clc
|
|
adc #2
|
|
sta _modmsb+1
|
|
bcc +
|
|
inc _modmsb+2
|
|
+ iny
|
|
dex
|
|
bne -
|
|
rts
|
|
.pend
|
|
|
|
|
|
arraycopy_normal_to_split_words .proc
|
|
; P8ZP_SCRATCH_W1 = start of target lsb array
|
|
; P8ZP_SCRATCH_W2 = start of target msb array
|
|
; AY = start of normal word source array
|
|
; X = number of elements to copy
|
|
sta _modsrclsb+1
|
|
sty _modsrclsb+2
|
|
clc
|
|
adc #1
|
|
bne +
|
|
iny
|
|
+ sta _modsrcmsb+1
|
|
sty _modsrcmsb+2
|
|
ldy #0
|
|
_modsrclsb lda $ffff ; modified lsb read
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
lda _modsrclsb+1
|
|
clc
|
|
adc #2
|
|
sta _modsrclsb+1
|
|
bcc +
|
|
inc _modsrclsb+2
|
|
+
|
|
_modsrcmsb lda $ffff ; modnfied msb read
|
|
sta (P8ZP_SCRATCH_W2),y
|
|
lda _modsrcmsb+1
|
|
clc
|
|
adc #2
|
|
sta _modsrcmsb+1
|
|
bcc +
|
|
inc _modsrcmsb+2
|
|
+ iny
|
|
dex
|
|
bne _modsrclsb
|
|
rts
|
|
.pend
|
|
|
|
memcopy_small .proc
|
|
; copy up to a single page (256 bytes) of memory.
|
|
; note: only works for NON-OVERLAPPING memory regions!
|
|
; P8ZP_SCRATCH_W1 = from address
|
|
; P8ZP_SCRATCH_W2 = destination address
|
|
; Y = number of bytes to copy (where 0 means 256)
|
|
cpy #0
|
|
beq _fullpage
|
|
dey
|
|
beq _lastbyte
|
|
_loop lda (P8ZP_SCRATCH_W1),y
|
|
sta (P8ZP_SCRATCH_W2),y
|
|
dey
|
|
bne _loop
|
|
_lastbyte lda (P8ZP_SCRATCH_W1),y
|
|
sta (P8ZP_SCRATCH_W2),y
|
|
rts
|
|
_fullpage lda (P8ZP_SCRATCH_W1),y
|
|
sta (P8ZP_SCRATCH_W2),y
|
|
dey
|
|
bne _fullpage
|
|
rts
|
|
.pend
|
|
; ---- builtin functions
|
|
|
|
|
|
func_any_b_into_A .proc
|
|
; -- any(array), array in P8ZP_SCRATCH_W1, num bytes in A
|
|
sta _cmp_mod+1 ; self-modifying code
|
|
ldy #0
|
|
- lda (P8ZP_SCRATCH_W1),y
|
|
bne _got_any
|
|
iny
|
|
_cmp_mod cpy #255 ; modified
|
|
bne -
|
|
lda #0
|
|
rts
|
|
_got_any lda #1
|
|
rts
|
|
.pend
|
|
|
|
|
|
func_all_b_into_A .proc
|
|
; -- all(array), array in P8ZP_SCRATCH_W1, num bytes in A
|
|
sta _cmp_mod+1 ; self-modifying code
|
|
ldy #0
|
|
- lda (P8ZP_SCRATCH_W1),y
|
|
beq _got_not_all
|
|
iny
|
|
_cmp_mod cpy #255 ; modified
|
|
bne -
|
|
lda #1
|
|
_got_not_all rts
|
|
.pend
|
|
|
|
func_any_w_into_A .proc
|
|
asl a
|
|
jmp func_any_b_into_A
|
|
.pend
|
|
|
|
func_all_w_into_A .proc
|
|
; -- all(warray), array in P8ZP_SCRATCH_W1, num bytes in A
|
|
asl a ; times 2 because of word
|
|
sta _cmp_mod+1 ; self-modifying code
|
|
ldy #0
|
|
- lda (P8ZP_SCRATCH_W1),y
|
|
bne +
|
|
iny
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
bne ++
|
|
lda #0
|
|
rts
|
|
+ iny
|
|
+ iny
|
|
_cmp_mod cpy #255 ; modified
|
|
bne -
|
|
lda #1
|
|
rts
|
|
.pend
|
|
|
|
abs_b_into_A .proc
|
|
; -- A = abs(A)
|
|
cmp #0
|
|
bmi +
|
|
rts
|
|
+ eor #$ff
|
|
clc
|
|
adc #1
|
|
rts
|
|
.pend
|
|
|
|
abs_w_into_AY .proc
|
|
; -- AY = abs(AY)
|
|
cpy #0
|
|
bmi +
|
|
rts
|
|
+ eor #$ff
|
|
pha
|
|
tya
|
|
eor #$ff
|
|
tay
|
|
pla
|
|
clc
|
|
adc #1
|
|
bcc +
|
|
iny
|
|
+ rts
|
|
.pend
|
|
|
|
func_sign_b_into_A .proc
|
|
cmp #0
|
|
beq _zero
|
|
bmi _neg
|
|
lda #1
|
|
_zero rts
|
|
_neg lda #-1
|
|
rts
|
|
.pend
|
|
|
|
func_sign_ub_into_A .proc
|
|
cmp #0
|
|
bne _pos
|
|
rts
|
|
_pos lda #1
|
|
rts
|
|
.pend
|
|
|
|
func_sign_uw_into_A .proc
|
|
cpy #0
|
|
beq _possibly_zero
|
|
_pos lda #1
|
|
rts
|
|
_possibly_zero cmp #0
|
|
bne _pos
|
|
rts
|
|
.pend
|
|
|
|
func_sign_w_into_A .proc
|
|
cpy #0
|
|
beq _possibly_zero
|
|
bmi _neg
|
|
_pos lda #1
|
|
rts
|
|
_neg lda #-1
|
|
rts
|
|
_possibly_zero cmp #0
|
|
bne _pos
|
|
rts
|
|
.pend
|
|
|
|
|
|
func_sqrt16_into_A .proc
|
|
; integer square root
|
|
; http://6502org.wikidot.com/software-math-sqrt
|
|
; https://github.com/TobyLobster/sqrt_test/blob/main/sqrt/sqrt7.a
|
|
; Tweaked by TobyLobster and 0xC0DE to be smaller and faster
|
|
_numl = P8ZP_SCRATCH_W1
|
|
_numh = P8ZP_SCRATCH_W1+1
|
|
_loop_counter = P8ZP_SCRATCH_REG
|
|
_root = P8ZP_SCRATCH_B1
|
|
sta _numl
|
|
sty _numh
|
|
ldx #$ff
|
|
stx _loop_counter
|
|
inx
|
|
stx _root
|
|
sec
|
|
_loop lda _numh
|
|
sbc #$40
|
|
tay
|
|
txa
|
|
sbc _root
|
|
bcc +
|
|
sty _numh
|
|
bcs ++
|
|
+ txa
|
|
+ rol _root
|
|
asl _numl
|
|
rol _numh
|
|
rol a
|
|
asl _numl
|
|
rol _numh
|
|
rol a
|
|
tax
|
|
lsr _loop_counter
|
|
bne _loop
|
|
lda _root
|
|
rts
|
|
.pend
|
|
|
|
|
|
func_sort_ub .proc
|
|
; 8bit unsigned sort
|
|
; sorting subroutine coded by mats rosengren (mats.rosengren@esa.int)
|
|
; input: address of array to sort in P8ZP_SCRATCH_W1, length in S
|
|
; first, put pointer BEFORE array
|
|
sta P8ZP_SCRATCH_B1
|
|
lda P8ZP_SCRATCH_W1
|
|
bne +
|
|
dec P8ZP_SCRATCH_W1+1
|
|
+ dec P8ZP_SCRATCH_W1
|
|
_sortloop ldy P8ZP_SCRATCH_B1 ;start of subroutine sort
|
|
lda (P8ZP_SCRATCH_W1),y ;last value in (what is left of) sequence to be sorted
|
|
sta P8ZP_SCRATCH_REG ;save value. will be over-written by largest number
|
|
jmp _l2
|
|
_l1 dey
|
|
beq _l3
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
cmp P8ZP_SCRATCH_W2+1
|
|
bcc _l1
|
|
_l2 sty P8ZP_SCRATCH_W2 ;index of potentially largest value
|
|
sta P8ZP_SCRATCH_W2+1 ;potentially largest value
|
|
jmp _l1
|
|
_l3 ldy P8ZP_SCRATCH_B1 ;where the largest value shall be put
|
|
lda P8ZP_SCRATCH_W2+1 ;the largest value
|
|
sta (P8ZP_SCRATCH_W1),y ;put largest value in place
|
|
ldy P8ZP_SCRATCH_W2 ;index of free space
|
|
lda P8ZP_SCRATCH_REG ;the over-written value
|
|
sta (P8ZP_SCRATCH_W1),y ;put the over-written value in the free space
|
|
dec P8ZP_SCRATCH_B1 ;end of the shorter sequence still left
|
|
bne _sortloop ;start working with the shorter sequence
|
|
rts
|
|
.pend
|
|
|
|
|
|
func_sort_b .proc
|
|
; 8bit signed sort
|
|
; sorting subroutine coded by mats rosengren (mats.rosengren@esa.int)
|
|
; input: address of array to sort in P8ZP_SCRATCH_W1, length in A
|
|
; first, put pointer BEFORE array
|
|
sta P8ZP_SCRATCH_B1
|
|
lda P8ZP_SCRATCH_W1
|
|
bne +
|
|
dec P8ZP_SCRATCH_W1+1
|
|
+ dec P8ZP_SCRATCH_W1
|
|
_sortloop ldy P8ZP_SCRATCH_B1 ;start of subroutine sort
|
|
lda (P8ZP_SCRATCH_W1),y ;last value in (what is left of) sequence to be sorted
|
|
sta P8ZP_SCRATCH_REG ;save value. will be over-written by largest number
|
|
jmp _l2
|
|
_l1 dey
|
|
beq _l3
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
cmp P8ZP_SCRATCH_W2+1
|
|
bmi _l1
|
|
_l2 sty P8ZP_SCRATCH_W2 ;index of potentially largest value
|
|
sta P8ZP_SCRATCH_W2+1 ;potentially largest value
|
|
jmp _l1
|
|
_l3 ldy P8ZP_SCRATCH_B1 ;where the largest value shall be put
|
|
lda P8ZP_SCRATCH_W2+1 ;the largest value
|
|
sta (P8ZP_SCRATCH_W1),y ;put largest value in place
|
|
ldy P8ZP_SCRATCH_W2 ;index of free space
|
|
lda P8ZP_SCRATCH_REG ;the over-written value
|
|
sta (P8ZP_SCRATCH_W1),y ;put the over-written value in the free space
|
|
dec P8ZP_SCRATCH_B1 ;end of the shorter sequence still left
|
|
bne _sortloop ;start working with the shorter sequence
|
|
rts
|
|
.pend
|
|
|
|
|
|
func_sort_uw .proc
|
|
; 16bit unsigned sort
|
|
; sorting subroutine coded by mats rosengren (mats.rosengren@esa.int)
|
|
; input: address of array to sort in P8ZP_SCRATCH_W1, length in A
|
|
; first: subtract 2 of the pointer
|
|
asl a
|
|
sta P8ZP_SCRATCH_B1
|
|
lda P8ZP_SCRATCH_W1
|
|
sec
|
|
sbc #2
|
|
sta P8ZP_SCRATCH_W1
|
|
bcs _sort_loop
|
|
dec P8ZP_SCRATCH_W1+1
|
|
_sort_loop ldy P8ZP_SCRATCH_B1 ;start of subroutine sort
|
|
lda (P8ZP_SCRATCH_W1),y ;last value in (what is left of) sequence to be sorted
|
|
sta _work3 ;save value. will be over-written by largest number
|
|
iny
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
sta _work3+1
|
|
dey
|
|
jmp _l2
|
|
_l1 dey
|
|
dey
|
|
beq _l3
|
|
iny
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
dey
|
|
cmp P8ZP_SCRATCH_W2+1
|
|
bne +
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
cmp P8ZP_SCRATCH_W2
|
|
+ bcc _l1
|
|
_l2 sty _work1 ;index of potentially largest value
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
sta P8ZP_SCRATCH_W2 ;potentially largest value
|
|
iny
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
sta P8ZP_SCRATCH_W2+1
|
|
dey
|
|
jmp _l1
|
|
_l3 ldy P8ZP_SCRATCH_B1 ;where the largest value shall be put
|
|
lda P8ZP_SCRATCH_W2 ;the largest value
|
|
sta (P8ZP_SCRATCH_W1),y ;put largest value in place
|
|
iny
|
|
lda P8ZP_SCRATCH_W2+1
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
ldy _work1 ;index of free space
|
|
lda _work3 ;the over-written value
|
|
sta (P8ZP_SCRATCH_W1),y ;put the over-written value in the free space
|
|
iny
|
|
lda _work3+1
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
dey
|
|
dec P8ZP_SCRATCH_B1 ;end of the shorter sequence still left
|
|
dec P8ZP_SCRATCH_B1
|
|
bne _sort_loop ;start working with the shorter sequence
|
|
rts
|
|
_work1 .byte 0
|
|
_work3 .word 0
|
|
.pend
|
|
|
|
|
|
func_sort_w .proc
|
|
; 16bit signed sort
|
|
; sorting subroutine coded by mats rosengren (mats.rosengren@esa.int)
|
|
; input: address of array to sort in P8ZP_SCRATCH_W1, length in A
|
|
; first: subtract 2 of the pointer
|
|
asl a
|
|
sta P8ZP_SCRATCH_B1
|
|
lda P8ZP_SCRATCH_W1
|
|
sec
|
|
sbc #2
|
|
sta P8ZP_SCRATCH_W1
|
|
bcs _sort_loop
|
|
dec P8ZP_SCRATCH_W1+1
|
|
_sort_loop ldy P8ZP_SCRATCH_B1 ;start of subroutine sort
|
|
lda (P8ZP_SCRATCH_W1),y ;last value in (what is left of) sequence to be sorted
|
|
sta _work3 ;save value. will be over-written by largest number
|
|
iny
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
sta _work3+1
|
|
dey
|
|
jmp _l2
|
|
_l1 dey
|
|
dey
|
|
beq _l3
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
cmp P8ZP_SCRATCH_W2
|
|
iny
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
dey
|
|
sbc P8ZP_SCRATCH_W2+1
|
|
bvc +
|
|
eor #$80
|
|
+ bmi _l1
|
|
_l2 sty _work1 ;index of potentially largest value
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
sta P8ZP_SCRATCH_W2 ;potentially largest value
|
|
iny
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
sta P8ZP_SCRATCH_W2+1
|
|
dey
|
|
jmp _l1
|
|
_l3 ldy P8ZP_SCRATCH_B1 ;where the largest value shall be put
|
|
lda P8ZP_SCRATCH_W2 ;the largest value
|
|
sta (P8ZP_SCRATCH_W1),y ;put largest value in place
|
|
iny
|
|
lda P8ZP_SCRATCH_W2+1
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
ldy _work1 ;index of free space
|
|
lda _work3 ;the over-written value
|
|
sta (P8ZP_SCRATCH_W1),y ;put the over-written value in the free space
|
|
iny
|
|
lda _work3+1
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
dey
|
|
dec P8ZP_SCRATCH_B1 ;end of the shorter sequence still left
|
|
dec P8ZP_SCRATCH_B1
|
|
bne _sort_loop ;start working with the shorter sequence
|
|
rts
|
|
_work1 .byte 0
|
|
_work3 .word 0
|
|
.pend
|
|
|
|
|
|
func_reverse_b .proc
|
|
; --- reverse an array of bytes (in-place)
|
|
; inputs: pointer to array in P8ZP_SCRATCH_W1, length in A
|
|
_index_right = P8ZP_SCRATCH_W2
|
|
_index_left = P8ZP_SCRATCH_W2+1
|
|
_loop_count = P8ZP_SCRATCH_REG
|
|
sta _loop_count
|
|
lsr _loop_count
|
|
sec
|
|
sbc #1
|
|
sta _index_right
|
|
lda #0
|
|
sta _index_left
|
|
_loop ldy _index_right
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
pha
|
|
ldy _index_left
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
ldy _index_right
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
pla
|
|
ldy _index_left
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
inc _index_left
|
|
dec _index_right
|
|
dec _loop_count
|
|
bne _loop
|
|
rts
|
|
.pend
|
|
|
|
|
|
func_reverse_w .proc
|
|
; --- reverse an array of words (in-place)
|
|
; inputs: pointer to array in P8ZP_SCRATCH_W1, length in A
|
|
_index_first = P8ZP_SCRATCH_W2
|
|
_index_second = P8ZP_SCRATCH_W2+1
|
|
_loop_count = P8ZP_SCRATCH_REG
|
|
pha
|
|
asl a ; *2 because words
|
|
sec
|
|
sbc #2
|
|
sta _index_first
|
|
lda #0
|
|
sta _index_second
|
|
pla
|
|
lsr a
|
|
pha
|
|
sta _loop_count
|
|
; first reverse the lsbs
|
|
_loop_lo ldy _index_first
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
pha
|
|
ldy _index_second
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
ldy _index_first
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
pla
|
|
ldy _index_second
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
inc _index_second
|
|
inc _index_second
|
|
dec _index_first
|
|
dec _index_first
|
|
dec _loop_count
|
|
bne _loop_lo
|
|
; now reverse the msbs
|
|
dec _index_second
|
|
inc _index_first
|
|
inc _index_first
|
|
inc _index_first
|
|
pla
|
|
sta _loop_count
|
|
_loop_hi ldy _index_first
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
pha
|
|
ldy _index_second
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
ldy _index_first
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
pla
|
|
ldy _index_second
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
dec _index_second
|
|
dec _index_second
|
|
inc _index_first
|
|
inc _index_first
|
|
dec _loop_count
|
|
bne _loop_hi
|
|
|
|
rts
|
|
.pend
|
|
|
|
|
|
func_peekw .proc
|
|
; -- read the word value on the address in AY
|
|
sta P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_W1+1
|
|
ldy #0
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
pha
|
|
iny
|
|
lda (P8ZP_SCRATCH_W1),y
|
|
tay
|
|
pla
|
|
rts
|
|
.pend
|
|
|
|
|
|
func_pokew .proc
|
|
; -- store the word value in AY in the address in P8ZP_SCRATCH_W1
|
|
sty P8ZP_SCRATCH_REG
|
|
ldy #0
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
iny
|
|
lda P8ZP_SCRATCH_REG
|
|
sta (P8ZP_SCRATCH_W1),y
|
|
rts
|
|
.pend
|
|
|
|
|
|
func_clamp_byte .proc
|
|
; signed value in A, result in A
|
|
; minimum in P8ZP_SCRATCH_W1
|
|
; maximum in P8ZP_SCRATCH_W1+1
|
|
tay
|
|
sec
|
|
sbc P8ZP_SCRATCH_W1+1
|
|
bvc +
|
|
eor #$80
|
|
+ bmi +
|
|
lda P8ZP_SCRATCH_W1+1
|
|
tay
|
|
jmp ++
|
|
+ tya
|
|
+ sec
|
|
sbc P8ZP_SCRATCH_W1
|
|
bvc +
|
|
eor #$80
|
|
+ bmi +
|
|
tya
|
|
rts
|
|
+ lda P8ZP_SCRATCH_W1
|
|
rts
|
|
.pend
|
|
|
|
|
|
func_clamp_ubyte .proc
|
|
; value in A, result in A
|
|
; minimum in P8ZP_SCRATCH_W1
|
|
; maximum in P8ZP_SCRATCH_W1+1
|
|
cmp P8ZP_SCRATCH_W1+1
|
|
bcc +
|
|
lda P8ZP_SCRATCH_W1+1
|
|
+ cmp P8ZP_SCRATCH_W1
|
|
bcc +
|
|
rts
|
|
+ lda P8ZP_SCRATCH_W1
|
|
rts
|
|
.pend
|
|
|
|
func_clamp_word .proc
|
|
; signed value in AY, result in AY
|
|
; minimum in P8ZP_SCRATCH_W1
|
|
; maximum in P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_B1
|
|
sty P8ZP_SCRATCH_REG
|
|
ldy P8ZP_SCRATCH_W2+1
|
|
lda P8ZP_SCRATCH_W2
|
|
cmp P8ZP_SCRATCH_B1
|
|
tya
|
|
sbc P8ZP_SCRATCH_REG
|
|
bvc +
|
|
eor #$80
|
|
+ bpl +
|
|
lda P8ZP_SCRATCH_W2
|
|
ldy P8ZP_SCRATCH_W2+1
|
|
sta P8ZP_SCRATCH_B1
|
|
sty P8ZP_SCRATCH_REG
|
|
+ ldy P8ZP_SCRATCH_W1+1
|
|
lda P8ZP_SCRATCH_W1
|
|
cmp P8ZP_SCRATCH_B1
|
|
tya
|
|
sbc P8ZP_SCRATCH_REG
|
|
bvc +
|
|
eor #$80
|
|
+ bpl +
|
|
ldy P8ZP_SCRATCH_REG
|
|
lda P8ZP_SCRATCH_B1
|
|
rts
|
|
+ ldy P8ZP_SCRATCH_W1+1
|
|
lda P8ZP_SCRATCH_W1
|
|
rts
|
|
.pend
|
|
|
|
func_clamp_uword .proc
|
|
; value in AY, result in AY
|
|
; minimum in P8ZP_SCRATCH_W1
|
|
; maximum in P8ZP_SCRATCH_W2
|
|
sta P8ZP_SCRATCH_B1
|
|
sty P8ZP_SCRATCH_REG
|
|
cpy P8ZP_SCRATCH_W2+1
|
|
bcc ++
|
|
bne +
|
|
cmp P8ZP_SCRATCH_W2
|
|
bcc ++
|
|
+ beq +
|
|
lda P8ZP_SCRATCH_W2
|
|
ldy P8ZP_SCRATCH_W2+1
|
|
sta P8ZP_SCRATCH_B1
|
|
sty P8ZP_SCRATCH_REG
|
|
+ ldy P8ZP_SCRATCH_REG
|
|
lda P8ZP_SCRATCH_B1
|
|
cpy P8ZP_SCRATCH_W1+1
|
|
bcc ++
|
|
bne +
|
|
cmp P8ZP_SCRATCH_W1
|
|
bcc ++
|
|
+ beq +
|
|
ldy P8ZP_SCRATCH_REG
|
|
lda P8ZP_SCRATCH_B1
|
|
rts
|
|
+ ldy P8ZP_SCRATCH_W1+1
|
|
lda P8ZP_SCRATCH_W1
|
|
rts
|
|
|
|
.pend
|
|
.pend
|
|
; global float constants
|
|
; expression temp vars
|
|
.section BSS
|
|
.send BSS
|
|
; bss sections
|
|
PROG8_VARSHIGH_RAMBANK = 1
|
|
prog8_bss_section_start
|
|
.dsection BSS
|
|
prog8_bss_section_size = * - prog8_bss_section_start
|
|
.dsection slabs_BSS
|
|
prog8_program_end ; end of program label for progend()
|