; w65c02 assembly code for 'test_word_splitw_equalities' ; generated by prog8.codegen.cpu6502.ProgramAndVarsGen on 2024-03-13T21:14:50 ; assembler syntax is for the 64tasm cross-assembler ; output options: output=PRG launcher=BASIC zp=DONTUSE .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_phase2 lda #4 sta $01 jsr p8b_main.p8s_start jmp sys.cleanup_at_exit ; ---- block: 'p8b_main' ---- p8b_main .proc ; source: test_word_splitw_equalities.p8:8 main { ; non-zeropage variables without initialization value .section BSS p8v_comparison .word ? p8v_success .byte ? .send BSS ; non-zeropage variables p8v_datatype ; PETSCII:"word" .byte $57, $4f, $52, $44, $00 ; source: test_word_splitw_equalities.p8:9 ubyte success = 0 ; source: test_word_splitw_equalities.p8:10 str datatype = "word" ; source: test_word_splitw_equalities.p8:11 uword @shared comparison ; source: test_word_splitw_equalities.p8:13 sub start() { p8s_start .proc ; 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 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ldx #prog8_bss_section_size lda #0 jsr prog8_lib.memset .endif jsr p8b_main.prog8_init_vars + clv clc ; statements ; source: test_word_splitw_equalities.p8:14 txt.print("\n(in)equality tests for split words datatype: ") ldy #>prog8_interned_strings.string_1 lda #p8b_main.p8v_datatype lda #prog8_interned_strings.string_2 lda #prog8_interned_strings.string_3 lda #prog8_interned_strings.string_4 lda #prog8_interned_strings.string_5 lda #prog8_interned_strings.string_6 lda #prog8_interned_strings.string_7 lda #prog8_interned_strings.string_8 lda #prog8_interned_strings.string_9 lda #prog8_interned_strings.string_10 lda #prog8_interned_strings.string_11 lda #prog8_interned_strings.string_13 lda #prog8_interned_strings.string_14 lda #prog8_interned_strings.string_15 lda #prog8_interned_strings.string_16 lda #p8l_lbl2 sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:83 if sources[1]==0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:85 goto skip2 bra p8l_skip2 ; source: test_word_splitw_equalities.p8:86 lbl2: success++ p8l_lbl2 inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:87 skip2: p8l_skip2 ; source: test_word_splitw_equalities.p8:89 if sources[1]==0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 bne label_asm_3_afterif ; source: test_word_splitw_equalities.p8:90 success++ inc p8b_main.p8v_success label_asm_3_afterif ; source: test_word_splitw_equalities.p8:93 if sources[1]==0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 bne label_asm_5_else ; source: test_word_splitw_equalities.p8:94 success++ inc p8b_main.p8v_success bra label_asm_4_afterif label_asm_5_else ; source: test_word_splitw_equalities.p8:96 cx16.r0L++ inc cx16.r0L label_asm_4_afterif ; source: test_word_splitw_equalities.p8:98 sources[1] = -9999 ldy #1 lda #<-$270f sta p8v_sources_lsb,y lda #>-$270f sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:100 if sources[1]==0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 beq p8l_skip3 ; source: test_word_splitw_equalities.p8:102 success++ inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:103 skip3: p8l_skip3 ; source: test_word_splitw_equalities.p8:105 cx16.r3 = &skip4 lda #p8l_skip4 sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:106 if sources[1]==0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:108 success++ inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:109 skip4: p8l_skip4 ; source: test_word_splitw_equalities.p8:111 success++ inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:112 if sources[1]==0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 bne label_asm_6_afterif ; source: test_word_splitw_equalities.p8:113 success-- dec p8b_main.p8v_success label_asm_6_afterif ; source: test_word_splitw_equalities.p8:116 if sources[1]==0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 bne label_asm_8_else ; source: test_word_splitw_equalities.p8:117 cx16.r0L++ inc cx16.r0L bra label_asm_7_afterif label_asm_8_else ; source: test_word_splitw_equalities.p8:119 success++ inc p8b_main.p8v_success label_asm_7_afterif ; source: test_word_splitw_equalities.p8:121 verify_success(8) lda #8 jmp p8b_main.p8s_verify_success ; source: test_word_splitw_equalities.p8:70 sub test_is_zero() { ; variables .section BSS .send BSS ; non-zeropage variables _array_p8v_sources := $270f, $270f p8v_sources_lsb .byte <_array_p8v_sources p8v_sources_msb .byte >_array_p8v_sources .pend ; source: test_word_splitw_equalities.p8:125 sub test_not_zero() { p8s_test_not_zero .proc ; statements ; source: test_word_splitw_equalities.p8:126 word[] @split sources = [9999, 9999] ; source: test_word_splitw_equalities.p8:127 success = 0 stz p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:129 sources[1]=-9999 ldy #1 lda #<-$270f sta p8v_sources_lsb,y lda #>-$270f sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:131 if sources[1]!=0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 bne p8l_lbl1 ; source: test_word_splitw_equalities.p8:133 goto skip1 bra p8l_skip1 ; source: test_word_splitw_equalities.p8:134 lbl1: success++ p8l_lbl1 inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:135 skip1: p8l_skip1 ; source: test_word_splitw_equalities.p8:137 cx16.r3 = &lbl2 lda #p8l_lbl2 sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:138 if sources[1]!=0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 beq + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:140 goto skip2 bra p8l_skip2 ; source: test_word_splitw_equalities.p8:141 lbl2: success++ p8l_lbl2 inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:142 skip2: p8l_skip2 ; source: test_word_splitw_equalities.p8:144 if sources[1]!=0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 beq label_asm_9_afterif ; source: test_word_splitw_equalities.p8:145 success++ inc p8b_main.p8v_success label_asm_9_afterif ; source: test_word_splitw_equalities.p8:148 if sources[1]!=0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 beq label_asm_11_else ; source: test_word_splitw_equalities.p8:149 success++ inc p8b_main.p8v_success bra label_asm_10_afterif label_asm_11_else ; source: test_word_splitw_equalities.p8:151 cx16.r0L++ inc cx16.r0L label_asm_10_afterif ; source: test_word_splitw_equalities.p8:153 sources[1] = 0 ldy #1 lda #0 sta p8v_sources_lsb,y sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:155 if sources[1]!=0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 bne p8l_skip3 ; source: test_word_splitw_equalities.p8:157 success++ inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:158 skip3: p8l_skip3 ; source: test_word_splitw_equalities.p8:160 cx16.r3 = &skip4 lda #p8l_skip4 sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:161 if sources[1]!=0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 beq + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:163 success++ inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:164 skip4: p8l_skip4 ; source: test_word_splitw_equalities.p8:166 success++ inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:167 if sources[1]!=0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 beq label_asm_12_afterif ; source: test_word_splitw_equalities.p8:168 success-- dec p8b_main.p8v_success label_asm_12_afterif ; source: test_word_splitw_equalities.p8:171 if sources[1]!=0 lda p8v_sources_lsb+1 ora p8v_sources_msb+1 beq label_asm_14_else ; source: test_word_splitw_equalities.p8:172 cx16.r0L++ inc cx16.r0L bra label_asm_13_afterif label_asm_14_else ; source: test_word_splitw_equalities.p8:174 success++ inc p8b_main.p8v_success label_asm_13_afterif ; source: test_word_splitw_equalities.p8:176 verify_success(8) lda #8 jmp p8b_main.p8s_verify_success ; source: test_word_splitw_equalities.p8:125 sub test_not_zero() { ; variables .section BSS .send BSS ; non-zeropage variables _array_p8v_sources := $270f, $270f p8v_sources_lsb .byte <_array_p8v_sources p8v_sources_msb .byte >_array_p8v_sources .pend ; source: test_word_splitw_equalities.p8:179 sub test_is_number() { p8s_test_is_number .proc ; statements ; source: test_word_splitw_equalities.p8:180 word[] @split sources = [9999, 9999] ; source: test_word_splitw_equalities.p8:181 success = 0 stz p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:182 sources[1]=-21829 ldy #1 lda #<-$5545 sta p8v_sources_lsb,y lda #>-$5545 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:184 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl1a + ; source: test_word_splitw_equalities.p8:186 goto skip1a bra p8l_skip1a ; source: test_word_splitw_equalities.p8:187 lbl1a: success++ p8l_lbl1a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:188 skip1a: p8l_skip1a ; source: test_word_splitw_equalities.p8:190 cx16.r3 = &lbl1b lda #p8l_lbl1b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:191 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:193 goto skip1b bra p8l_skip1b ; source: test_word_splitw_equalities.p8:194 lbl1b: success++ p8l_lbl1b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:195 skip1b: p8l_skip1b ; source: test_word_splitw_equalities.p8:197 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne label_asm_15_afterif cpy p8v_sources_msb+1 bne label_asm_15_afterif ; source: test_word_splitw_equalities.p8:198 success++ inc p8b_main.p8v_success label_asm_15_afterif ; source: test_word_splitw_equalities.p8:201 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne label_asm_17_else cpy p8v_sources_msb+1 bne label_asm_17_else ; source: test_word_splitw_equalities.p8:202 success++ inc p8b_main.p8v_success bra label_asm_16_afterif label_asm_17_else ; source: test_word_splitw_equalities.p8:204 cx16.r0L++ inc cx16.r0L label_asm_16_afterif ; source: test_word_splitw_equalities.p8:207 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl2a + ; source: test_word_splitw_equalities.p8:209 goto skip2a bra p8l_skip2a ; source: test_word_splitw_equalities.p8:210 lbl2a: fail_word(1,-21829) p8l_lbl2a lda #<1 ldy #>1 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:211 skip2a: p8l_skip2a ; source: test_word_splitw_equalities.p8:213 cx16.r3 = &lbl2b lda #p8l_lbl2b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:214 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:216 goto skip2b bra p8l_skip2b ; source: test_word_splitw_equalities.p8:217 lbl2b: fail_word(2,-21829) p8l_lbl2b lda #<2 ldy #>2 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:218 skip2b: p8l_skip2b ; source: test_word_splitw_equalities.p8:220 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne label_asm_18_afterif cpy p8v_sources_msb+1 bne label_asm_18_afterif ; source: test_word_splitw_equalities.p8:221 fail_word(3,-21829) lda #<3 ldy #>3 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_18_afterif ; source: test_word_splitw_equalities.p8:224 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne label_asm_20_else cpy p8v_sources_msb+1 bne label_asm_20_else ; source: test_word_splitw_equalities.p8:225 fail_word(4,-21829) lda #<4 ldy #>4 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_19_afterif label_asm_20_else ; source: test_word_splitw_equalities.p8:227 cx16.r0L++ inc cx16.r0L label_asm_19_afterif ; source: test_word_splitw_equalities.p8:230 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl3a + ; source: test_word_splitw_equalities.p8:232 goto skip3a bra p8l_skip3a ; source: test_word_splitw_equalities.p8:233 lbl3a: fail_word(5,-21829) p8l_lbl3a lda #<5 ldy #>5 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:234 skip3a: p8l_skip3a ; source: test_word_splitw_equalities.p8:236 cx16.r3 = &lbl3b lda #p8l_lbl3b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:237 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:239 goto skip3b bra p8l_skip3b ; source: test_word_splitw_equalities.p8:240 lbl3b: fail_word(6,-21829) p8l_lbl3b lda #<6 ldy #>6 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:241 skip3b: p8l_skip3b ; source: test_word_splitw_equalities.p8:243 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne label_asm_21_afterif cpy p8v_sources_msb+1 bne label_asm_21_afterif ; source: test_word_splitw_equalities.p8:244 fail_word(7,-21829) lda #<7 ldy #>7 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_21_afterif ; source: test_word_splitw_equalities.p8:247 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne label_asm_23_else cpy p8v_sources_msb+1 bne label_asm_23_else ; source: test_word_splitw_equalities.p8:248 fail_word(8,-21829) lda #<8 ldy #>8 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_22_afterif label_asm_23_else ; source: test_word_splitw_equalities.p8:250 cx16.r0L++ inc cx16.r0L label_asm_22_afterif ; source: test_word_splitw_equalities.p8:253 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl4a + ; source: test_word_splitw_equalities.p8:255 goto skip4a bra p8l_skip4a ; source: test_word_splitw_equalities.p8:256 lbl4a: fail_word(9,-21829) p8l_lbl4a lda #<9 ldy #>9 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:257 skip4a: p8l_skip4a ; source: test_word_splitw_equalities.p8:259 cx16.r3 = &lbl4b lda #p8l_lbl4b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:260 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:262 goto skip4b bra p8l_skip4b ; source: test_word_splitw_equalities.p8:263 lbl4b: fail_word(10,-21829) p8l_lbl4b lda #<10 ldy #>10 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:264 skip4b: p8l_skip4b ; source: test_word_splitw_equalities.p8:266 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne label_asm_24_afterif cpy p8v_sources_msb+1 bne label_asm_24_afterif ; source: test_word_splitw_equalities.p8:267 fail_word(11,-21829) lda #<11 ldy #>11 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_24_afterif ; source: test_word_splitw_equalities.p8:270 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne label_asm_26_else cpy p8v_sources_msb+1 bne label_asm_26_else ; source: test_word_splitw_equalities.p8:271 fail_word(12,-21829) lda #<12 ldy #>12 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_25_afterif label_asm_26_else ; source: test_word_splitw_equalities.p8:273 cx16.r0L++ inc cx16.r0L label_asm_25_afterif ; source: test_word_splitw_equalities.p8:275 sources[1]=0 ldy #1 lda #0 sta p8v_sources_lsb,y sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:277 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl5a + ; source: test_word_splitw_equalities.p8:279 goto skip5a bra p8l_skip5a ; source: test_word_splitw_equalities.p8:280 lbl5a: fail_word(13,0) p8l_lbl5a lda #<13 ldy #>13 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:281 skip5a: p8l_skip5a ; source: test_word_splitw_equalities.p8:283 cx16.r3 = &lbl5b lda #p8l_lbl5b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:284 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:286 goto skip5b bra p8l_skip5b ; source: test_word_splitw_equalities.p8:287 lbl5b: fail_word(14,0) p8l_lbl5b lda #<14 ldy #>14 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:288 skip5b: p8l_skip5b ; source: test_word_splitw_equalities.p8:290 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne label_asm_27_afterif cpy p8v_sources_msb+1 bne label_asm_27_afterif ; source: test_word_splitw_equalities.p8:291 fail_word(15,0) lda #<15 ldy #>15 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_27_afterif ; source: test_word_splitw_equalities.p8:294 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne label_asm_29_else cpy p8v_sources_msb+1 bne label_asm_29_else ; source: test_word_splitw_equalities.p8:295 fail_word(16,0) lda #<$10 ldy #>$10 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_28_afterif label_asm_29_else ; source: test_word_splitw_equalities.p8:297 cx16.r0L++ inc cx16.r0L label_asm_28_afterif ; source: test_word_splitw_equalities.p8:300 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl6a + ; source: test_word_splitw_equalities.p8:302 goto skip6a bra p8l_skip6a ; source: test_word_splitw_equalities.p8:303 lbl6a: fail_word(17,0) p8l_lbl6a lda #<$11 ldy #>$11 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:304 skip6a: p8l_skip6a ; source: test_word_splitw_equalities.p8:306 cx16.r3 = &lbl6b lda #p8l_lbl6b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:307 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:309 goto skip6b bra p8l_skip6b ; source: test_word_splitw_equalities.p8:310 lbl6b: fail_word(18,0) p8l_lbl6b lda #<$12 ldy #>$12 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:311 skip6b: p8l_skip6b ; source: test_word_splitw_equalities.p8:313 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne label_asm_30_afterif cpy p8v_sources_msb+1 bne label_asm_30_afterif ; source: test_word_splitw_equalities.p8:314 fail_word(19,0) lda #<$13 ldy #>$13 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_30_afterif ; source: test_word_splitw_equalities.p8:317 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne label_asm_32_else cpy p8v_sources_msb+1 bne label_asm_32_else ; source: test_word_splitw_equalities.p8:318 fail_word(20,0) lda #<$14 ldy #>$14 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_31_afterif label_asm_32_else ; source: test_word_splitw_equalities.p8:320 cx16.r0L++ inc cx16.r0L label_asm_31_afterif ; source: test_word_splitw_equalities.p8:323 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl7a + ; source: test_word_splitw_equalities.p8:325 goto skip7a bra p8l_skip7a ; source: test_word_splitw_equalities.p8:326 lbl7a: fail_word(21,0) p8l_lbl7a lda #<$15 ldy #>$15 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:327 skip7a: p8l_skip7a ; source: test_word_splitw_equalities.p8:329 cx16.r3 = &lbl7b lda #p8l_lbl7b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:330 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:332 goto skip7b bra p8l_skip7b ; source: test_word_splitw_equalities.p8:333 lbl7b: fail_word(22,0) p8l_lbl7b lda #<$16 ldy #>$16 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:334 skip7b: p8l_skip7b ; source: test_word_splitw_equalities.p8:336 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne label_asm_33_afterif cpy p8v_sources_msb+1 bne label_asm_33_afterif ; source: test_word_splitw_equalities.p8:337 fail_word(23,0) lda #<$17 ldy #>$17 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_33_afterif ; source: test_word_splitw_equalities.p8:340 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne label_asm_35_else cpy p8v_sources_msb+1 bne label_asm_35_else ; source: test_word_splitw_equalities.p8:341 fail_word(24,0) lda #<$18 ldy #>$18 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_34_afterif label_asm_35_else ; source: test_word_splitw_equalities.p8:343 cx16.r0L++ inc cx16.r0L label_asm_34_afterif ; source: test_word_splitw_equalities.p8:346 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl8a + ; source: test_word_splitw_equalities.p8:348 goto skip8a bra p8l_skip8a ; source: test_word_splitw_equalities.p8:349 lbl8a: fail_word(25,0) p8l_lbl8a lda #<$19 ldy #>$19 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:350 skip8a: p8l_skip8a ; source: test_word_splitw_equalities.p8:352 cx16.r3 = &lbl8b lda #p8l_lbl8b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:353 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:355 goto skip8b bra p8l_skip8b ; source: test_word_splitw_equalities.p8:356 lbl8b: fail_word(26,0) p8l_lbl8b lda #<$1a ldy #>$1a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:357 skip8b: p8l_skip8b ; source: test_word_splitw_equalities.p8:359 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne label_asm_36_afterif cpy p8v_sources_msb+1 bne label_asm_36_afterif ; source: test_word_splitw_equalities.p8:360 fail_word(27,0) lda #<$1b ldy #>$1b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_36_afterif ; source: test_word_splitw_equalities.p8:363 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne label_asm_38_else cpy p8v_sources_msb+1 bne label_asm_38_else ; source: test_word_splitw_equalities.p8:364 fail_word(28,0) lda #<$1c ldy #>$1c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_37_afterif label_asm_38_else ; source: test_word_splitw_equalities.p8:366 cx16.r0L++ inc cx16.r0L label_asm_37_afterif ; source: test_word_splitw_equalities.p8:368 sources[1]=170 ldy #1 lda #<$aa sta p8v_sources_lsb,y lda #>$aa sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:370 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl9a + ; source: test_word_splitw_equalities.p8:372 goto skip9a bra p8l_skip9a ; source: test_word_splitw_equalities.p8:373 lbl9a: fail_word(29,170) p8l_lbl9a lda #<$1d ldy #>$1d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:374 skip9a: p8l_skip9a ; source: test_word_splitw_equalities.p8:376 cx16.r3 = &lbl9b lda #p8l_lbl9b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:377 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:379 goto skip9b bra p8l_skip9b ; source: test_word_splitw_equalities.p8:380 lbl9b: fail_word(30,170) p8l_lbl9b lda #<$1e ldy #>$1e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:381 skip9b: p8l_skip9b ; source: test_word_splitw_equalities.p8:383 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne label_asm_39_afterif cpy p8v_sources_msb+1 bne label_asm_39_afterif ; source: test_word_splitw_equalities.p8:384 fail_word(31,170) lda #<$1f ldy #>$1f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_39_afterif ; source: test_word_splitw_equalities.p8:387 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne label_asm_41_else cpy p8v_sources_msb+1 bne label_asm_41_else ; source: test_word_splitw_equalities.p8:388 fail_word(32,170) lda #<$20 ldy #>$20 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_40_afterif label_asm_41_else ; source: test_word_splitw_equalities.p8:390 cx16.r0L++ inc cx16.r0L label_asm_40_afterif ; source: test_word_splitw_equalities.p8:393 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl10a + ; source: test_word_splitw_equalities.p8:395 goto skip10a bra p8l_skip10a ; source: test_word_splitw_equalities.p8:396 lbl10a: success++ p8l_lbl10a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:397 skip10a: p8l_skip10a ; source: test_word_splitw_equalities.p8:399 cx16.r3 = &lbl10b lda #p8l_lbl10b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:400 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:402 goto skip10b bra p8l_skip10b ; source: test_word_splitw_equalities.p8:403 lbl10b: success++ p8l_lbl10b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:404 skip10b: p8l_skip10b ; source: test_word_splitw_equalities.p8:406 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne label_asm_42_afterif cpy p8v_sources_msb+1 bne label_asm_42_afterif ; source: test_word_splitw_equalities.p8:407 success++ inc p8b_main.p8v_success label_asm_42_afterif ; source: test_word_splitw_equalities.p8:410 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne label_asm_44_else cpy p8v_sources_msb+1 bne label_asm_44_else ; source: test_word_splitw_equalities.p8:411 success++ inc p8b_main.p8v_success bra label_asm_43_afterif label_asm_44_else ; source: test_word_splitw_equalities.p8:413 cx16.r0L++ inc cx16.r0L label_asm_43_afterif ; source: test_word_splitw_equalities.p8:416 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl11a + ; source: test_word_splitw_equalities.p8:418 goto skip11a bra p8l_skip11a ; source: test_word_splitw_equalities.p8:419 lbl11a: fail_word(33,170) p8l_lbl11a lda #<$21 ldy #>$21 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:420 skip11a: p8l_skip11a ; source: test_word_splitw_equalities.p8:422 cx16.r3 = &lbl11b lda #p8l_lbl11b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:423 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:425 goto skip11b bra p8l_skip11b ; source: test_word_splitw_equalities.p8:426 lbl11b: fail_word(34,170) p8l_lbl11b lda #<$22 ldy #>$22 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:427 skip11b: p8l_skip11b ; source: test_word_splitw_equalities.p8:429 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne label_asm_45_afterif cpy p8v_sources_msb+1 bne label_asm_45_afterif ; source: test_word_splitw_equalities.p8:430 fail_word(35,170) lda #<$23 ldy #>$23 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_45_afterif ; source: test_word_splitw_equalities.p8:433 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne label_asm_47_else cpy p8v_sources_msb+1 bne label_asm_47_else ; source: test_word_splitw_equalities.p8:434 fail_word(36,170) lda #<$24 ldy #>$24 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_46_afterif label_asm_47_else ; source: test_word_splitw_equalities.p8:436 cx16.r0L++ inc cx16.r0L label_asm_46_afterif ; source: test_word_splitw_equalities.p8:439 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl12a + ; source: test_word_splitw_equalities.p8:441 goto skip12a bra p8l_skip12a ; source: test_word_splitw_equalities.p8:442 lbl12a: fail_word(37,170) p8l_lbl12a lda #<$25 ldy #>$25 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:443 skip12a: p8l_skip12a ; source: test_word_splitw_equalities.p8:445 cx16.r3 = &lbl12b lda #p8l_lbl12b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:446 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:448 goto skip12b bra p8l_skip12b ; source: test_word_splitw_equalities.p8:449 lbl12b: fail_word(38,170) p8l_lbl12b lda #<$26 ldy #>$26 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:450 skip12b: p8l_skip12b ; source: test_word_splitw_equalities.p8:452 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne label_asm_48_afterif cpy p8v_sources_msb+1 bne label_asm_48_afterif ; source: test_word_splitw_equalities.p8:453 fail_word(39,170) lda #<$27 ldy #>$27 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_48_afterif ; source: test_word_splitw_equalities.p8:456 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne label_asm_50_else cpy p8v_sources_msb+1 bne label_asm_50_else ; source: test_word_splitw_equalities.p8:457 fail_word(40,170) lda #<$28 ldy #>$28 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_49_afterif label_asm_50_else ; source: test_word_splitw_equalities.p8:459 cx16.r0L++ inc cx16.r0L label_asm_49_afterif ; source: test_word_splitw_equalities.p8:461 sources[1]=30464 ldy #1 lda #<$7700 sta p8v_sources_lsb,y lda #>$7700 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:463 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl13a + ; source: test_word_splitw_equalities.p8:465 goto skip13a bra p8l_skip13a ; source: test_word_splitw_equalities.p8:466 lbl13a: fail_word(41,30464) p8l_lbl13a lda #<$29 ldy #>$29 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:467 skip13a: p8l_skip13a ; source: test_word_splitw_equalities.p8:469 cx16.r3 = &lbl13b lda #p8l_lbl13b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:470 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:472 goto skip13b bra p8l_skip13b ; source: test_word_splitw_equalities.p8:473 lbl13b: fail_word(42,30464) p8l_lbl13b lda #<$2a ldy #>$2a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:474 skip13b: p8l_skip13b ; source: test_word_splitw_equalities.p8:476 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne label_asm_51_afterif cpy p8v_sources_msb+1 bne label_asm_51_afterif ; source: test_word_splitw_equalities.p8:477 fail_word(43,30464) lda #<$2b ldy #>$2b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_51_afterif ; source: test_word_splitw_equalities.p8:480 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne label_asm_53_else cpy p8v_sources_msb+1 bne label_asm_53_else ; source: test_word_splitw_equalities.p8:481 fail_word(44,30464) lda #<$2c ldy #>$2c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_52_afterif label_asm_53_else ; source: test_word_splitw_equalities.p8:483 cx16.r0L++ inc cx16.r0L label_asm_52_afterif ; source: test_word_splitw_equalities.p8:486 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl14a + ; source: test_word_splitw_equalities.p8:488 goto skip14a bra p8l_skip14a ; source: test_word_splitw_equalities.p8:489 lbl14a: fail_word(45,30464) p8l_lbl14a lda #<$2d ldy #>$2d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:490 skip14a: p8l_skip14a ; source: test_word_splitw_equalities.p8:492 cx16.r3 = &lbl14b lda #p8l_lbl14b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:493 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:495 goto skip14b bra p8l_skip14b ; source: test_word_splitw_equalities.p8:496 lbl14b: fail_word(46,30464) p8l_lbl14b lda #<$2e ldy #>$2e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:497 skip14b: p8l_skip14b ; source: test_word_splitw_equalities.p8:499 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne label_asm_54_afterif cpy p8v_sources_msb+1 bne label_asm_54_afterif ; source: test_word_splitw_equalities.p8:500 fail_word(47,30464) lda #<$2f ldy #>$2f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_54_afterif ; source: test_word_splitw_equalities.p8:503 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne label_asm_56_else cpy p8v_sources_msb+1 bne label_asm_56_else ; source: test_word_splitw_equalities.p8:504 fail_word(48,30464) lda #<$30 ldy #>$30 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_55_afterif label_asm_56_else ; source: test_word_splitw_equalities.p8:506 cx16.r0L++ inc cx16.r0L label_asm_55_afterif ; source: test_word_splitw_equalities.p8:509 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl15a + ; source: test_word_splitw_equalities.p8:511 goto skip15a bra p8l_skip15a ; source: test_word_splitw_equalities.p8:512 lbl15a: success++ p8l_lbl15a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:513 skip15a: p8l_skip15a ; source: test_word_splitw_equalities.p8:515 cx16.r3 = &lbl15b lda #p8l_lbl15b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:516 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:518 goto skip15b bra p8l_skip15b ; source: test_word_splitw_equalities.p8:519 lbl15b: success++ p8l_lbl15b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:520 skip15b: p8l_skip15b ; source: test_word_splitw_equalities.p8:522 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne label_asm_57_afterif cpy p8v_sources_msb+1 bne label_asm_57_afterif ; source: test_word_splitw_equalities.p8:523 success++ inc p8b_main.p8v_success label_asm_57_afterif ; source: test_word_splitw_equalities.p8:526 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne label_asm_59_else cpy p8v_sources_msb+1 bne label_asm_59_else ; source: test_word_splitw_equalities.p8:527 success++ inc p8b_main.p8v_success bra label_asm_58_afterif label_asm_59_else ; source: test_word_splitw_equalities.p8:529 cx16.r0L++ inc cx16.r0L label_asm_58_afterif ; source: test_word_splitw_equalities.p8:532 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl16a + ; source: test_word_splitw_equalities.p8:534 goto skip16a bra p8l_skip16a ; source: test_word_splitw_equalities.p8:535 lbl16a: fail_word(49,30464) p8l_lbl16a lda #<$31 ldy #>$31 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:536 skip16a: p8l_skip16a ; source: test_word_splitw_equalities.p8:538 cx16.r3 = &lbl16b lda #p8l_lbl16b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:539 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:541 goto skip16b bra p8l_skip16b ; source: test_word_splitw_equalities.p8:542 lbl16b: fail_word(50,30464) p8l_lbl16b lda #<$32 ldy #>$32 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:543 skip16b: p8l_skip16b ; source: test_word_splitw_equalities.p8:545 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne label_asm_60_afterif cpy p8v_sources_msb+1 bne label_asm_60_afterif ; source: test_word_splitw_equalities.p8:546 fail_word(51,30464) lda #<$33 ldy #>$33 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_60_afterif ; source: test_word_splitw_equalities.p8:549 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne label_asm_62_else cpy p8v_sources_msb+1 bne label_asm_62_else ; source: test_word_splitw_equalities.p8:550 fail_word(52,30464) lda #<$34 ldy #>$34 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_61_afterif label_asm_62_else ; source: test_word_splitw_equalities.p8:552 cx16.r0L++ inc cx16.r0L label_asm_61_afterif ; source: test_word_splitw_equalities.p8:554 sources[1]=32767 ldy #1 lda #<$7fff sta p8v_sources_lsb,y lda #>$7fff sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:556 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl17a + ; source: test_word_splitw_equalities.p8:558 goto skip17a bra p8l_skip17a ; source: test_word_splitw_equalities.p8:559 lbl17a: fail_word(53,32767) p8l_lbl17a lda #<$35 ldy #>$35 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:560 skip17a: p8l_skip17a ; source: test_word_splitw_equalities.p8:562 cx16.r3 = &lbl17b lda #p8l_lbl17b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:563 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:565 goto skip17b bra p8l_skip17b ; source: test_word_splitw_equalities.p8:566 lbl17b: fail_word(54,32767) p8l_lbl17b lda #<$36 ldy #>$36 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:567 skip17b: p8l_skip17b ; source: test_word_splitw_equalities.p8:569 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne label_asm_63_afterif cpy p8v_sources_msb+1 bne label_asm_63_afterif ; source: test_word_splitw_equalities.p8:570 fail_word(55,32767) lda #<$37 ldy #>$37 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_63_afterif ; source: test_word_splitw_equalities.p8:573 if sources[1]==-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne label_asm_65_else cpy p8v_sources_msb+1 bne label_asm_65_else ; source: test_word_splitw_equalities.p8:574 fail_word(56,32767) lda #<$38 ldy #>$38 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_64_afterif label_asm_65_else ; source: test_word_splitw_equalities.p8:576 cx16.r0L++ inc cx16.r0L label_asm_64_afterif ; source: test_word_splitw_equalities.p8:579 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl18a + ; source: test_word_splitw_equalities.p8:581 goto skip18a bra p8l_skip18a ; source: test_word_splitw_equalities.p8:582 lbl18a: fail_word(57,32767) p8l_lbl18a lda #<$39 ldy #>$39 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:583 skip18a: p8l_skip18a ; source: test_word_splitw_equalities.p8:585 cx16.r3 = &lbl18b lda #p8l_lbl18b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:586 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:588 goto skip18b bra p8l_skip18b ; source: test_word_splitw_equalities.p8:589 lbl18b: fail_word(58,32767) p8l_lbl18b lda #<$3a ldy #>$3a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:590 skip18b: p8l_skip18b ; source: test_word_splitw_equalities.p8:592 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne label_asm_66_afterif cpy p8v_sources_msb+1 bne label_asm_66_afterif ; source: test_word_splitw_equalities.p8:593 fail_word(59,32767) lda #<$3b ldy #>$3b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_66_afterif ; source: test_word_splitw_equalities.p8:596 if sources[1]==170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne label_asm_68_else cpy p8v_sources_msb+1 bne label_asm_68_else ; source: test_word_splitw_equalities.p8:597 fail_word(60,32767) lda #<$3c ldy #>$3c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_67_afterif label_asm_68_else ; source: test_word_splitw_equalities.p8:599 cx16.r0L++ inc cx16.r0L label_asm_67_afterif ; source: test_word_splitw_equalities.p8:602 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl19a + ; source: test_word_splitw_equalities.p8:604 goto skip19a bra p8l_skip19a ; source: test_word_splitw_equalities.p8:605 lbl19a: fail_word(61,32767) p8l_lbl19a lda #<$3d ldy #>$3d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:606 skip19a: p8l_skip19a ; source: test_word_splitw_equalities.p8:608 cx16.r3 = &lbl19b lda #p8l_lbl19b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:609 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:611 goto skip19b bra p8l_skip19b ; source: test_word_splitw_equalities.p8:612 lbl19b: fail_word(62,32767) p8l_lbl19b lda #<$3e ldy #>$3e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:613 skip19b: p8l_skip19b ; source: test_word_splitw_equalities.p8:615 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne label_asm_69_afterif cpy p8v_sources_msb+1 bne label_asm_69_afterif ; source: test_word_splitw_equalities.p8:616 fail_word(63,32767) lda #<$3f ldy #>$3f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_69_afterif ; source: test_word_splitw_equalities.p8:619 if sources[1]==30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne label_asm_71_else cpy p8v_sources_msb+1 bne label_asm_71_else ; source: test_word_splitw_equalities.p8:620 fail_word(64,32767) lda #<$40 ldy #>$40 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_70_afterif label_asm_71_else ; source: test_word_splitw_equalities.p8:622 cx16.r0L++ inc cx16.r0L label_asm_70_afterif ; source: test_word_splitw_equalities.p8:625 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl20a + ; source: test_word_splitw_equalities.p8:627 goto skip20a bra p8l_skip20a ; source: test_word_splitw_equalities.p8:628 lbl20a: success++ p8l_lbl20a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:629 skip20a: p8l_skip20a ; source: test_word_splitw_equalities.p8:631 cx16.r3 = &lbl20b lda #p8l_lbl20b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:632 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:634 goto skip20b bra p8l_skip20b ; source: test_word_splitw_equalities.p8:635 lbl20b: success++ p8l_lbl20b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:636 skip20b: p8l_skip20b ; source: test_word_splitw_equalities.p8:638 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne label_asm_72_afterif cpy p8v_sources_msb+1 bne label_asm_72_afterif ; source: test_word_splitw_equalities.p8:639 success++ inc p8b_main.p8v_success label_asm_72_afterif ; source: test_word_splitw_equalities.p8:642 if sources[1]==32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne label_asm_74_else cpy p8v_sources_msb+1 bne label_asm_74_else ; source: test_word_splitw_equalities.p8:643 success++ inc p8b_main.p8v_success bra label_asm_73_afterif label_asm_74_else ; source: test_word_splitw_equalities.p8:645 cx16.r0L++ inc cx16.r0L label_asm_73_afterif ; source: test_word_splitw_equalities.p8:647 verify_success(16) lda #$10 jmp p8b_main.p8s_verify_success ; source: test_word_splitw_equalities.p8:179 sub test_is_number() { ; variables .section BSS .send BSS ; non-zeropage variables _array_p8v_sources := $270f, $270f p8v_sources_lsb .byte <_array_p8v_sources p8v_sources_msb .byte >_array_p8v_sources .pend ; source: test_word_splitw_equalities.p8:649 sub test_not_number() { p8s_test_not_number .proc ; statements ; source: test_word_splitw_equalities.p8:650 word[] @split sources = [9999, 9999] ; source: test_word_splitw_equalities.p8:651 success = 0 stz p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:652 sources[1]=-21829 ldy #1 lda #<-$5545 sta p8v_sources_lsb,y lda #>-$5545 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:654 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne p8l_lbl1a cpy p8v_sources_msb+1 bne p8l_lbl1a ; source: test_word_splitw_equalities.p8:656 goto skip1a bra p8l_skip1a ; source: test_word_splitw_equalities.p8:657 lbl1a: fail_word(65,-21829) p8l_lbl1a lda #<$41 ldy #>$41 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:658 skip1a: p8l_skip1a ; source: test_word_splitw_equalities.p8:660 cx16.r3 = &lbl1b lda #p8l_lbl1b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:661 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:663 goto skip1b bra p8l_skip1b ; source: test_word_splitw_equalities.p8:664 lbl1b: fail_word(66,-21829) p8l_lbl1b lda #<$42 ldy #>$42 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:665 skip1b: p8l_skip1b ; source: test_word_splitw_equalities.p8:667 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_75_afterif + ; source: test_word_splitw_equalities.p8:668 fail_word(67,-21829) lda #<$43 ldy #>$43 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_75_afterif ; source: test_word_splitw_equalities.p8:671 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_77_else + ; source: test_word_splitw_equalities.p8:672 fail_word(68,-21829) lda #<$44 ldy #>$44 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_76_afterif label_asm_77_else ; source: test_word_splitw_equalities.p8:674 cx16.r0L++ inc cx16.r0L label_asm_76_afterif ; source: test_word_splitw_equalities.p8:677 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne p8l_lbl2a cpy p8v_sources_msb+1 bne p8l_lbl2a ; source: test_word_splitw_equalities.p8:679 goto skip2a bra p8l_skip2a ; source: test_word_splitw_equalities.p8:680 lbl2a: success++ p8l_lbl2a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:681 skip2a: p8l_skip2a ; source: test_word_splitw_equalities.p8:683 cx16.r3 = &lbl2b lda #p8l_lbl2b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:684 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:686 goto skip2b bra p8l_skip2b ; source: test_word_splitw_equalities.p8:687 lbl2b: success++ p8l_lbl2b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:688 skip2b: p8l_skip2b ; source: test_word_splitw_equalities.p8:690 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_78_afterif + ; source: test_word_splitw_equalities.p8:691 success++ inc p8b_main.p8v_success label_asm_78_afterif ; source: test_word_splitw_equalities.p8:694 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_80_else + ; source: test_word_splitw_equalities.p8:695 success++ inc p8b_main.p8v_success bra label_asm_79_afterif label_asm_80_else ; source: test_word_splitw_equalities.p8:697 cx16.r0L++ inc cx16.r0L label_asm_79_afterif ; source: test_word_splitw_equalities.p8:700 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne p8l_lbl3a cpy p8v_sources_msb+1 bne p8l_lbl3a ; source: test_word_splitw_equalities.p8:702 goto skip3a bra p8l_skip3a ; source: test_word_splitw_equalities.p8:703 lbl3a: success++ p8l_lbl3a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:704 skip3a: p8l_skip3a ; source: test_word_splitw_equalities.p8:706 cx16.r3 = &lbl3b lda #p8l_lbl3b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:707 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:709 goto skip3b bra p8l_skip3b ; source: test_word_splitw_equalities.p8:710 lbl3b: success++ p8l_lbl3b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:711 skip3b: p8l_skip3b ; source: test_word_splitw_equalities.p8:713 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_81_afterif + ; source: test_word_splitw_equalities.p8:714 success++ inc p8b_main.p8v_success label_asm_81_afterif ; source: test_word_splitw_equalities.p8:717 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_83_else + ; source: test_word_splitw_equalities.p8:718 success++ inc p8b_main.p8v_success bra label_asm_82_afterif label_asm_83_else ; source: test_word_splitw_equalities.p8:720 cx16.r0L++ inc cx16.r0L label_asm_82_afterif ; source: test_word_splitw_equalities.p8:723 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne p8l_lbl4a cpy p8v_sources_msb+1 bne p8l_lbl4a ; source: test_word_splitw_equalities.p8:725 goto skip4a bra p8l_skip4a ; source: test_word_splitw_equalities.p8:726 lbl4a: success++ p8l_lbl4a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:727 skip4a: p8l_skip4a ; source: test_word_splitw_equalities.p8:729 cx16.r3 = &lbl4b lda #p8l_lbl4b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:730 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:732 goto skip4b bra p8l_skip4b ; source: test_word_splitw_equalities.p8:733 lbl4b: success++ p8l_lbl4b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:734 skip4b: p8l_skip4b ; source: test_word_splitw_equalities.p8:736 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_84_afterif + ; source: test_word_splitw_equalities.p8:737 success++ inc p8b_main.p8v_success label_asm_84_afterif ; source: test_word_splitw_equalities.p8:740 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_86_else + ; source: test_word_splitw_equalities.p8:741 success++ inc p8b_main.p8v_success bra label_asm_85_afterif label_asm_86_else ; source: test_word_splitw_equalities.p8:743 cx16.r0L++ inc cx16.r0L label_asm_85_afterif ; source: test_word_splitw_equalities.p8:745 sources[1]=0 ldy #1 lda #0 sta p8v_sources_lsb,y sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:747 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne p8l_lbl5a cpy p8v_sources_msb+1 bne p8l_lbl5a ; source: test_word_splitw_equalities.p8:749 goto skip5a bra p8l_skip5a ; source: test_word_splitw_equalities.p8:750 lbl5a: success++ p8l_lbl5a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:751 skip5a: p8l_skip5a ; source: test_word_splitw_equalities.p8:753 cx16.r3 = &lbl5b lda #p8l_lbl5b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:754 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:756 goto skip5b bra p8l_skip5b ; source: test_word_splitw_equalities.p8:757 lbl5b: success++ p8l_lbl5b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:758 skip5b: p8l_skip5b ; source: test_word_splitw_equalities.p8:760 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_87_afterif + ; source: test_word_splitw_equalities.p8:761 success++ inc p8b_main.p8v_success label_asm_87_afterif ; source: test_word_splitw_equalities.p8:764 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_89_else + ; source: test_word_splitw_equalities.p8:765 success++ inc p8b_main.p8v_success bra label_asm_88_afterif label_asm_89_else ; source: test_word_splitw_equalities.p8:767 cx16.r0L++ inc cx16.r0L label_asm_88_afterif ; source: test_word_splitw_equalities.p8:770 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne p8l_lbl6a cpy p8v_sources_msb+1 bne p8l_lbl6a ; source: test_word_splitw_equalities.p8:772 goto skip6a bra p8l_skip6a ; source: test_word_splitw_equalities.p8:773 lbl6a: success++ p8l_lbl6a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:774 skip6a: p8l_skip6a ; source: test_word_splitw_equalities.p8:776 cx16.r3 = &lbl6b lda #p8l_lbl6b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:777 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:779 goto skip6b bra p8l_skip6b ; source: test_word_splitw_equalities.p8:780 lbl6b: success++ p8l_lbl6b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:781 skip6b: p8l_skip6b ; source: test_word_splitw_equalities.p8:783 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_90_afterif + ; source: test_word_splitw_equalities.p8:784 success++ inc p8b_main.p8v_success label_asm_90_afterif ; source: test_word_splitw_equalities.p8:787 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_92_else + ; source: test_word_splitw_equalities.p8:788 success++ inc p8b_main.p8v_success bra label_asm_91_afterif label_asm_92_else ; source: test_word_splitw_equalities.p8:790 cx16.r0L++ inc cx16.r0L label_asm_91_afterif ; source: test_word_splitw_equalities.p8:793 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne p8l_lbl7a cpy p8v_sources_msb+1 bne p8l_lbl7a ; source: test_word_splitw_equalities.p8:795 goto skip7a bra p8l_skip7a ; source: test_word_splitw_equalities.p8:796 lbl7a: success++ p8l_lbl7a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:797 skip7a: p8l_skip7a ; source: test_word_splitw_equalities.p8:799 cx16.r3 = &lbl7b lda #p8l_lbl7b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:800 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:802 goto skip7b bra p8l_skip7b ; source: test_word_splitw_equalities.p8:803 lbl7b: success++ p8l_lbl7b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:804 skip7b: p8l_skip7b ; source: test_word_splitw_equalities.p8:806 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_93_afterif + ; source: test_word_splitw_equalities.p8:807 success++ inc p8b_main.p8v_success label_asm_93_afterif ; source: test_word_splitw_equalities.p8:810 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_95_else + ; source: test_word_splitw_equalities.p8:811 success++ inc p8b_main.p8v_success bra label_asm_94_afterif label_asm_95_else ; source: test_word_splitw_equalities.p8:813 cx16.r0L++ inc cx16.r0L label_asm_94_afterif ; source: test_word_splitw_equalities.p8:816 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne p8l_lbl8a cpy p8v_sources_msb+1 bne p8l_lbl8a ; source: test_word_splitw_equalities.p8:818 goto skip8a bra p8l_skip8a ; source: test_word_splitw_equalities.p8:819 lbl8a: success++ p8l_lbl8a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:820 skip8a: p8l_skip8a ; source: test_word_splitw_equalities.p8:822 cx16.r3 = &lbl8b lda #p8l_lbl8b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:823 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:825 goto skip8b bra p8l_skip8b ; source: test_word_splitw_equalities.p8:826 lbl8b: success++ p8l_lbl8b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:827 skip8b: p8l_skip8b ; source: test_word_splitw_equalities.p8:829 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_96_afterif + ; source: test_word_splitw_equalities.p8:830 success++ inc p8b_main.p8v_success label_asm_96_afterif ; source: test_word_splitw_equalities.p8:833 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_98_else + ; source: test_word_splitw_equalities.p8:834 success++ inc p8b_main.p8v_success bra label_asm_97_afterif label_asm_98_else ; source: test_word_splitw_equalities.p8:836 cx16.r0L++ inc cx16.r0L label_asm_97_afterif ; source: test_word_splitw_equalities.p8:838 sources[1]=170 ldy #1 lda #<$aa sta p8v_sources_lsb,y lda #>$aa sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:840 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne p8l_lbl9a cpy p8v_sources_msb+1 bne p8l_lbl9a ; source: test_word_splitw_equalities.p8:842 goto skip9a bra p8l_skip9a ; source: test_word_splitw_equalities.p8:843 lbl9a: success++ p8l_lbl9a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:844 skip9a: p8l_skip9a ; source: test_word_splitw_equalities.p8:846 cx16.r3 = &lbl9b lda #p8l_lbl9b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:847 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:849 goto skip9b bra p8l_skip9b ; source: test_word_splitw_equalities.p8:850 lbl9b: success++ p8l_lbl9b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:851 skip9b: p8l_skip9b ; source: test_word_splitw_equalities.p8:853 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_99_afterif + ; source: test_word_splitw_equalities.p8:854 success++ inc p8b_main.p8v_success label_asm_99_afterif ; source: test_word_splitw_equalities.p8:857 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_101_else + ; source: test_word_splitw_equalities.p8:858 success++ inc p8b_main.p8v_success bra label_asm_100_afterif label_asm_101_else ; source: test_word_splitw_equalities.p8:860 cx16.r0L++ inc cx16.r0L label_asm_100_afterif ; source: test_word_splitw_equalities.p8:863 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne p8l_lbl10a cpy p8v_sources_msb+1 bne p8l_lbl10a ; source: test_word_splitw_equalities.p8:865 goto skip10a bra p8l_skip10a ; source: test_word_splitw_equalities.p8:866 lbl10a: fail_word(69,170) p8l_lbl10a lda #<$45 ldy #>$45 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:867 skip10a: p8l_skip10a ; source: test_word_splitw_equalities.p8:869 cx16.r3 = &lbl10b lda #p8l_lbl10b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:870 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:872 goto skip10b bra p8l_skip10b ; source: test_word_splitw_equalities.p8:873 lbl10b: fail_word(70,170) p8l_lbl10b lda #<$46 ldy #>$46 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:874 skip10b: p8l_skip10b ; source: test_word_splitw_equalities.p8:876 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_102_afterif + ; source: test_word_splitw_equalities.p8:877 fail_word(71,170) lda #<$47 ldy #>$47 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_102_afterif ; source: test_word_splitw_equalities.p8:880 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_104_else + ; source: test_word_splitw_equalities.p8:881 fail_word(72,170) lda #<$48 ldy #>$48 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_103_afterif label_asm_104_else ; source: test_word_splitw_equalities.p8:883 cx16.r0L++ inc cx16.r0L label_asm_103_afterif ; source: test_word_splitw_equalities.p8:886 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne p8l_lbl11a cpy p8v_sources_msb+1 bne p8l_lbl11a ; source: test_word_splitw_equalities.p8:888 goto skip11a bra p8l_skip11a ; source: test_word_splitw_equalities.p8:889 lbl11a: success++ p8l_lbl11a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:890 skip11a: p8l_skip11a ; source: test_word_splitw_equalities.p8:892 cx16.r3 = &lbl11b lda #p8l_lbl11b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:893 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:895 goto skip11b bra p8l_skip11b ; source: test_word_splitw_equalities.p8:896 lbl11b: success++ p8l_lbl11b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:897 skip11b: p8l_skip11b ; source: test_word_splitw_equalities.p8:899 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_105_afterif + ; source: test_word_splitw_equalities.p8:900 success++ inc p8b_main.p8v_success label_asm_105_afterif ; source: test_word_splitw_equalities.p8:903 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_107_else + ; source: test_word_splitw_equalities.p8:904 success++ inc p8b_main.p8v_success bra label_asm_106_afterif label_asm_107_else ; source: test_word_splitw_equalities.p8:906 cx16.r0L++ inc cx16.r0L label_asm_106_afterif ; source: test_word_splitw_equalities.p8:909 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne p8l_lbl12a cpy p8v_sources_msb+1 bne p8l_lbl12a ; source: test_word_splitw_equalities.p8:911 goto skip12a bra p8l_skip12a ; source: test_word_splitw_equalities.p8:912 lbl12a: success++ p8l_lbl12a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:913 skip12a: p8l_skip12a ; source: test_word_splitw_equalities.p8:915 cx16.r3 = &lbl12b lda #p8l_lbl12b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:916 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:918 goto skip12b bra p8l_skip12b ; source: test_word_splitw_equalities.p8:919 lbl12b: success++ p8l_lbl12b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:920 skip12b: p8l_skip12b ; source: test_word_splitw_equalities.p8:922 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_108_afterif + ; source: test_word_splitw_equalities.p8:923 success++ inc p8b_main.p8v_success label_asm_108_afterif ; source: test_word_splitw_equalities.p8:926 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_110_else + ; source: test_word_splitw_equalities.p8:927 success++ inc p8b_main.p8v_success bra label_asm_109_afterif label_asm_110_else ; source: test_word_splitw_equalities.p8:929 cx16.r0L++ inc cx16.r0L label_asm_109_afterif ; source: test_word_splitw_equalities.p8:931 sources[1]=30464 ldy #1 lda #<$7700 sta p8v_sources_lsb,y lda #>$7700 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:933 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne p8l_lbl13a cpy p8v_sources_msb+1 bne p8l_lbl13a ; source: test_word_splitw_equalities.p8:935 goto skip13a bra p8l_skip13a ; source: test_word_splitw_equalities.p8:936 lbl13a: success++ p8l_lbl13a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:937 skip13a: p8l_skip13a ; source: test_word_splitw_equalities.p8:939 cx16.r3 = &lbl13b lda #p8l_lbl13b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:940 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:942 goto skip13b bra p8l_skip13b ; source: test_word_splitw_equalities.p8:943 lbl13b: success++ p8l_lbl13b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:944 skip13b: p8l_skip13b ; source: test_word_splitw_equalities.p8:946 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_111_afterif + ; source: test_word_splitw_equalities.p8:947 success++ inc p8b_main.p8v_success label_asm_111_afterif ; source: test_word_splitw_equalities.p8:950 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_113_else + ; source: test_word_splitw_equalities.p8:951 success++ inc p8b_main.p8v_success bra label_asm_112_afterif label_asm_113_else ; source: test_word_splitw_equalities.p8:953 cx16.r0L++ inc cx16.r0L label_asm_112_afterif ; source: test_word_splitw_equalities.p8:956 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne p8l_lbl14a cpy p8v_sources_msb+1 bne p8l_lbl14a ; source: test_word_splitw_equalities.p8:958 goto skip14a bra p8l_skip14a ; source: test_word_splitw_equalities.p8:959 lbl14a: success++ p8l_lbl14a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:960 skip14a: p8l_skip14a ; source: test_word_splitw_equalities.p8:962 cx16.r3 = &lbl14b lda #p8l_lbl14b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:963 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:965 goto skip14b bra p8l_skip14b ; source: test_word_splitw_equalities.p8:966 lbl14b: success++ p8l_lbl14b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:967 skip14b: p8l_skip14b ; source: test_word_splitw_equalities.p8:969 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_114_afterif + ; source: test_word_splitw_equalities.p8:970 success++ inc p8b_main.p8v_success label_asm_114_afterif ; source: test_word_splitw_equalities.p8:973 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_116_else + ; source: test_word_splitw_equalities.p8:974 success++ inc p8b_main.p8v_success bra label_asm_115_afterif label_asm_116_else ; source: test_word_splitw_equalities.p8:976 cx16.r0L++ inc cx16.r0L label_asm_115_afterif ; source: test_word_splitw_equalities.p8:979 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne p8l_lbl15a cpy p8v_sources_msb+1 bne p8l_lbl15a ; source: test_word_splitw_equalities.p8:981 goto skip15a bra p8l_skip15a ; source: test_word_splitw_equalities.p8:982 lbl15a: fail_word(73,30464) p8l_lbl15a lda #<$49 ldy #>$49 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:983 skip15a: p8l_skip15a ; source: test_word_splitw_equalities.p8:985 cx16.r3 = &lbl15b lda #p8l_lbl15b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:986 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:988 goto skip15b bra p8l_skip15b ; source: test_word_splitw_equalities.p8:989 lbl15b: fail_word(74,30464) p8l_lbl15b lda #<$4a ldy #>$4a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:990 skip15b: p8l_skip15b ; source: test_word_splitw_equalities.p8:992 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_117_afterif + ; source: test_word_splitw_equalities.p8:993 fail_word(75,30464) lda #<$4b ldy #>$4b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_117_afterif ; source: test_word_splitw_equalities.p8:996 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_119_else + ; source: test_word_splitw_equalities.p8:997 fail_word(76,30464) lda #<$4c ldy #>$4c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_118_afterif label_asm_119_else ; source: test_word_splitw_equalities.p8:999 cx16.r0L++ inc cx16.r0L label_asm_118_afterif ; source: test_word_splitw_equalities.p8:1002 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne p8l_lbl16a cpy p8v_sources_msb+1 bne p8l_lbl16a ; source: test_word_splitw_equalities.p8:1004 goto skip16a bra p8l_skip16a ; source: test_word_splitw_equalities.p8:1005 lbl16a: success++ p8l_lbl16a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1006 skip16a: p8l_skip16a ; source: test_word_splitw_equalities.p8:1008 cx16.r3 = &lbl16b lda #p8l_lbl16b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1009 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1011 goto skip16b bra p8l_skip16b ; source: test_word_splitw_equalities.p8:1012 lbl16b: success++ p8l_lbl16b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1013 skip16b: p8l_skip16b ; source: test_word_splitw_equalities.p8:1015 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_120_afterif + ; source: test_word_splitw_equalities.p8:1016 success++ inc p8b_main.p8v_success label_asm_120_afterif ; source: test_word_splitw_equalities.p8:1019 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_122_else + ; source: test_word_splitw_equalities.p8:1020 success++ inc p8b_main.p8v_success bra label_asm_121_afterif label_asm_122_else ; source: test_word_splitw_equalities.p8:1022 cx16.r0L++ inc cx16.r0L label_asm_121_afterif ; source: test_word_splitw_equalities.p8:1024 sources[1]=32767 ldy #1 lda #<$7fff sta p8v_sources_lsb,y lda #>$7fff sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:1026 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne p8l_lbl17a cpy p8v_sources_msb+1 bne p8l_lbl17a ; source: test_word_splitw_equalities.p8:1028 goto skip17a bra p8l_skip17a ; source: test_word_splitw_equalities.p8:1029 lbl17a: success++ p8l_lbl17a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1030 skip17a: p8l_skip17a ; source: test_word_splitw_equalities.p8:1032 cx16.r3 = &lbl17b lda #p8l_lbl17b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1033 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1035 goto skip17b bra p8l_skip17b ; source: test_word_splitw_equalities.p8:1036 lbl17b: success++ p8l_lbl17b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1037 skip17b: p8l_skip17b ; source: test_word_splitw_equalities.p8:1039 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_123_afterif + ; source: test_word_splitw_equalities.p8:1040 success++ inc p8b_main.p8v_success label_asm_123_afterif ; source: test_word_splitw_equalities.p8:1043 if sources[1]!=-21829 ldy #>-$5545 lda #<-$5545 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_125_else + ; source: test_word_splitw_equalities.p8:1044 success++ inc p8b_main.p8v_success bra label_asm_124_afterif label_asm_125_else ; source: test_word_splitw_equalities.p8:1046 cx16.r0L++ inc cx16.r0L label_asm_124_afterif ; source: test_word_splitw_equalities.p8:1049 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne p8l_lbl18a cpy p8v_sources_msb+1 bne p8l_lbl18a ; source: test_word_splitw_equalities.p8:1051 goto skip18a bra p8l_skip18a ; source: test_word_splitw_equalities.p8:1052 lbl18a: success++ p8l_lbl18a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1053 skip18a: p8l_skip18a ; source: test_word_splitw_equalities.p8:1055 cx16.r3 = &lbl18b lda #p8l_lbl18b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1056 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1058 goto skip18b bra p8l_skip18b ; source: test_word_splitw_equalities.p8:1059 lbl18b: success++ p8l_lbl18b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1060 skip18b: p8l_skip18b ; source: test_word_splitw_equalities.p8:1062 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_126_afterif + ; source: test_word_splitw_equalities.p8:1063 success++ inc p8b_main.p8v_success label_asm_126_afterif ; source: test_word_splitw_equalities.p8:1066 if sources[1]!=170 ldy #>$aa lda #<$aa cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_128_else + ; source: test_word_splitw_equalities.p8:1067 success++ inc p8b_main.p8v_success bra label_asm_127_afterif label_asm_128_else ; source: test_word_splitw_equalities.p8:1069 cx16.r0L++ inc cx16.r0L label_asm_127_afterif ; source: test_word_splitw_equalities.p8:1072 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne p8l_lbl19a cpy p8v_sources_msb+1 bne p8l_lbl19a ; source: test_word_splitw_equalities.p8:1074 goto skip19a bra p8l_skip19a ; source: test_word_splitw_equalities.p8:1075 lbl19a: success++ p8l_lbl19a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1076 skip19a: p8l_skip19a ; source: test_word_splitw_equalities.p8:1078 cx16.r3 = &lbl19b lda #p8l_lbl19b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1079 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1081 goto skip19b bra p8l_skip19b ; source: test_word_splitw_equalities.p8:1082 lbl19b: success++ p8l_lbl19b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1083 skip19b: p8l_skip19b ; source: test_word_splitw_equalities.p8:1085 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_129_afterif + ; source: test_word_splitw_equalities.p8:1086 success++ inc p8b_main.p8v_success label_asm_129_afterif ; source: test_word_splitw_equalities.p8:1089 if sources[1]!=30464 ldy #>$7700 lda #<$7700 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_131_else + ; source: test_word_splitw_equalities.p8:1090 success++ inc p8b_main.p8v_success bra label_asm_130_afterif label_asm_131_else ; source: test_word_splitw_equalities.p8:1092 cx16.r0L++ inc cx16.r0L label_asm_130_afterif ; source: test_word_splitw_equalities.p8:1095 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne p8l_lbl20a cpy p8v_sources_msb+1 bne p8l_lbl20a ; source: test_word_splitw_equalities.p8:1097 goto skip20a bra p8l_skip20a ; source: test_word_splitw_equalities.p8:1098 lbl20a: fail_word(77,32767) p8l_lbl20a lda #<$4d ldy #>$4d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1099 skip20a: p8l_skip20a ; source: test_word_splitw_equalities.p8:1101 cx16.r3 = &lbl20b lda #p8l_lbl20b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1102 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1104 goto skip20b bra p8l_skip20b ; source: test_word_splitw_equalities.p8:1105 lbl20b: fail_word(78,32767) p8l_lbl20b lda #<$4e ldy #>$4e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1106 skip20b: p8l_skip20b ; source: test_word_splitw_equalities.p8:1108 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_132_afterif + ; source: test_word_splitw_equalities.p8:1109 fail_word(79,32767) lda #<$4f ldy #>$4f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_132_afterif ; source: test_word_splitw_equalities.p8:1112 if sources[1]!=32767 ldy #>$7fff lda #<$7fff cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_134_else + ; source: test_word_splitw_equalities.p8:1113 fail_word(80,32767) lda #<$50 ldy #>$50 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_133_afterif label_asm_134_else ; source: test_word_splitw_equalities.p8:1115 cx16.r0L++ inc cx16.r0L label_asm_133_afterif ; source: test_word_splitw_equalities.p8:1117 verify_success(64) lda #$40 jmp p8b_main.p8s_verify_success ; source: test_word_splitw_equalities.p8:649 sub test_not_number() { ; variables .section BSS .send BSS ; non-zeropage variables _array_p8v_sources := $270f, $270f p8v_sources_lsb .byte <_array_p8v_sources p8v_sources_msb .byte >_array_p8v_sources .pend ; source: test_word_splitw_equalities.p8:1119 sub test_is_var() { p8s_test_is_var .proc ; statements ; source: test_word_splitw_equalities.p8:1120 word[] @split sources = [9999, 9999] ; source: test_word_splitw_equalities.p8:1121 word[] @split values = [8888,8888] ; source: test_word_splitw_equalities.p8:1122 success = 0 stz p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1123 sources[1]=-21829 ldy #1 lda #<-$5545 sta p8v_sources_lsb,y lda #>-$5545 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:1124 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1126 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl1a + ; source: test_word_splitw_equalities.p8:1128 goto skip1a bra p8l_skip1a ; source: test_word_splitw_equalities.p8:1129 lbl1a: success++ p8l_lbl1a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1130 skip1a: p8l_skip1a ; source: test_word_splitw_equalities.p8:1132 cx16.r3 = &lbl1b lda #p8l_lbl1b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1133 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1135 goto skip1b bra p8l_skip1b ; source: test_word_splitw_equalities.p8:1136 lbl1b: success++ p8l_lbl1b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1137 skip1b: p8l_skip1b ; source: test_word_splitw_equalities.p8:1139 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_135_afterif cpy p8v_sources_msb+1 bne label_asm_135_afterif ; source: test_word_splitw_equalities.p8:1140 success++ inc p8b_main.p8v_success label_asm_135_afterif ; source: test_word_splitw_equalities.p8:1143 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_137_else cpy p8v_sources_msb+1 bne label_asm_137_else ; source: test_word_splitw_equalities.p8:1144 success++ inc p8b_main.p8v_success bra label_asm_136_afterif label_asm_137_else ; source: test_word_splitw_equalities.p8:1146 cx16.r0L++ inc cx16.r0L label_asm_136_afterif ; source: test_word_splitw_equalities.p8:1148 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1150 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl2a + ; source: test_word_splitw_equalities.p8:1152 goto skip2a bra p8l_skip2a ; source: test_word_splitw_equalities.p8:1153 lbl2a: fail_word(81,-21829) p8l_lbl2a lda #<$51 ldy #>$51 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1154 skip2a: p8l_skip2a ; source: test_word_splitw_equalities.p8:1156 cx16.r3 = &lbl2b lda #p8l_lbl2b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1157 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1159 goto skip2b bra p8l_skip2b ; source: test_word_splitw_equalities.p8:1160 lbl2b: fail_word(82,-21829) p8l_lbl2b lda #<$52 ldy #>$52 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1161 skip2b: p8l_skip2b ; source: test_word_splitw_equalities.p8:1163 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_138_afterif cpy p8v_sources_msb+1 bne label_asm_138_afterif ; source: test_word_splitw_equalities.p8:1164 fail_word(83,-21829) lda #<$53 ldy #>$53 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_138_afterif ; source: test_word_splitw_equalities.p8:1167 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_140_else cpy p8v_sources_msb+1 bne label_asm_140_else ; source: test_word_splitw_equalities.p8:1168 fail_word(84,-21829) lda #<$54 ldy #>$54 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_139_afterif label_asm_140_else ; source: test_word_splitw_equalities.p8:1170 cx16.r0L++ inc cx16.r0L label_asm_139_afterif ; source: test_word_splitw_equalities.p8:1172 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1174 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl3a + ; source: test_word_splitw_equalities.p8:1176 goto skip3a bra p8l_skip3a ; source: test_word_splitw_equalities.p8:1177 lbl3a: fail_word(85,-21829) p8l_lbl3a lda #<$55 ldy #>$55 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1178 skip3a: p8l_skip3a ; source: test_word_splitw_equalities.p8:1180 cx16.r3 = &lbl3b lda #p8l_lbl3b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1181 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1183 goto skip3b bra p8l_skip3b ; source: test_word_splitw_equalities.p8:1184 lbl3b: fail_word(86,-21829) p8l_lbl3b lda #<$56 ldy #>$56 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1185 skip3b: p8l_skip3b ; source: test_word_splitw_equalities.p8:1187 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_141_afterif cpy p8v_sources_msb+1 bne label_asm_141_afterif ; source: test_word_splitw_equalities.p8:1188 fail_word(87,-21829) lda #<$57 ldy #>$57 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_141_afterif ; source: test_word_splitw_equalities.p8:1191 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_143_else cpy p8v_sources_msb+1 bne label_asm_143_else ; source: test_word_splitw_equalities.p8:1192 fail_word(88,-21829) lda #<$58 ldy #>$58 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_142_afterif label_asm_143_else ; source: test_word_splitw_equalities.p8:1194 cx16.r0L++ inc cx16.r0L label_asm_142_afterif ; source: test_word_splitw_equalities.p8:1196 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1198 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl4a + ; source: test_word_splitw_equalities.p8:1200 goto skip4a bra p8l_skip4a ; source: test_word_splitw_equalities.p8:1201 lbl4a: fail_word(89,-21829) p8l_lbl4a lda #<$59 ldy #>$59 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1202 skip4a: p8l_skip4a ; source: test_word_splitw_equalities.p8:1204 cx16.r3 = &lbl4b lda #p8l_lbl4b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1205 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1207 goto skip4b bra p8l_skip4b ; source: test_word_splitw_equalities.p8:1208 lbl4b: fail_word(90,-21829) p8l_lbl4b lda #<$5a ldy #>$5a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1209 skip4b: p8l_skip4b ; source: test_word_splitw_equalities.p8:1211 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_144_afterif cpy p8v_sources_msb+1 bne label_asm_144_afterif ; source: test_word_splitw_equalities.p8:1212 fail_word(91,-21829) lda #<$5b ldy #>$5b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_144_afterif ; source: test_word_splitw_equalities.p8:1215 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_146_else cpy p8v_sources_msb+1 bne label_asm_146_else ; source: test_word_splitw_equalities.p8:1216 fail_word(92,-21829) lda #<$5c ldy #>$5c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_145_afterif label_asm_146_else ; source: test_word_splitw_equalities.p8:1218 cx16.r0L++ inc cx16.r0L label_asm_145_afterif ; source: test_word_splitw_equalities.p8:1220 sources[1]=0 ldy #1 lda #0 sta p8v_sources_lsb,y sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:1221 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1223 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl5a + ; source: test_word_splitw_equalities.p8:1225 goto skip5a bra p8l_skip5a ; source: test_word_splitw_equalities.p8:1226 lbl5a: fail_word(93,0) p8l_lbl5a lda #<$5d ldy #>$5d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1227 skip5a: p8l_skip5a ; source: test_word_splitw_equalities.p8:1229 cx16.r3 = &lbl5b lda #p8l_lbl5b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1230 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1232 goto skip5b bra p8l_skip5b ; source: test_word_splitw_equalities.p8:1233 lbl5b: fail_word(94,0) p8l_lbl5b lda #<$5e ldy #>$5e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1234 skip5b: p8l_skip5b ; source: test_word_splitw_equalities.p8:1236 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_147_afterif cpy p8v_sources_msb+1 bne label_asm_147_afterif ; source: test_word_splitw_equalities.p8:1237 fail_word(95,0) lda #<$5f ldy #>$5f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_147_afterif ; source: test_word_splitw_equalities.p8:1240 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_149_else cpy p8v_sources_msb+1 bne label_asm_149_else ; source: test_word_splitw_equalities.p8:1241 fail_word(96,0) lda #<$60 ldy #>$60 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_148_afterif label_asm_149_else ; source: test_word_splitw_equalities.p8:1243 cx16.r0L++ inc cx16.r0L label_asm_148_afterif ; source: test_word_splitw_equalities.p8:1245 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1247 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl6a + ; source: test_word_splitw_equalities.p8:1249 goto skip6a bra p8l_skip6a ; source: test_word_splitw_equalities.p8:1250 lbl6a: fail_word(97,0) p8l_lbl6a lda #<$61 ldy #>$61 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1251 skip6a: p8l_skip6a ; source: test_word_splitw_equalities.p8:1253 cx16.r3 = &lbl6b lda #p8l_lbl6b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1254 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1256 goto skip6b bra p8l_skip6b ; source: test_word_splitw_equalities.p8:1257 lbl6b: fail_word(98,0) p8l_lbl6b lda #<$62 ldy #>$62 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1258 skip6b: p8l_skip6b ; source: test_word_splitw_equalities.p8:1260 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_150_afterif cpy p8v_sources_msb+1 bne label_asm_150_afterif ; source: test_word_splitw_equalities.p8:1261 fail_word(99,0) lda #<$63 ldy #>$63 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_150_afterif ; source: test_word_splitw_equalities.p8:1264 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_152_else cpy p8v_sources_msb+1 bne label_asm_152_else ; source: test_word_splitw_equalities.p8:1265 fail_word(100,0) lda #<$64 ldy #>$64 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_151_afterif label_asm_152_else ; source: test_word_splitw_equalities.p8:1267 cx16.r0L++ inc cx16.r0L label_asm_151_afterif ; source: test_word_splitw_equalities.p8:1269 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1271 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl7a + ; source: test_word_splitw_equalities.p8:1273 goto skip7a bra p8l_skip7a ; source: test_word_splitw_equalities.p8:1274 lbl7a: fail_word(101,0) p8l_lbl7a lda #<$65 ldy #>$65 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1275 skip7a: p8l_skip7a ; source: test_word_splitw_equalities.p8:1277 cx16.r3 = &lbl7b lda #p8l_lbl7b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1278 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1280 goto skip7b bra p8l_skip7b ; source: test_word_splitw_equalities.p8:1281 lbl7b: fail_word(102,0) p8l_lbl7b lda #<$66 ldy #>$66 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1282 skip7b: p8l_skip7b ; source: test_word_splitw_equalities.p8:1284 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_153_afterif cpy p8v_sources_msb+1 bne label_asm_153_afterif ; source: test_word_splitw_equalities.p8:1285 fail_word(103,0) lda #<$67 ldy #>$67 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_153_afterif ; source: test_word_splitw_equalities.p8:1288 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_155_else cpy p8v_sources_msb+1 bne label_asm_155_else ; source: test_word_splitw_equalities.p8:1289 fail_word(104,0) lda #<$68 ldy #>$68 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_154_afterif label_asm_155_else ; source: test_word_splitw_equalities.p8:1291 cx16.r0L++ inc cx16.r0L label_asm_154_afterif ; source: test_word_splitw_equalities.p8:1293 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1295 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl8a + ; source: test_word_splitw_equalities.p8:1297 goto skip8a bra p8l_skip8a ; source: test_word_splitw_equalities.p8:1298 lbl8a: fail_word(105,0) p8l_lbl8a lda #<$69 ldy #>$69 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1299 skip8a: p8l_skip8a ; source: test_word_splitw_equalities.p8:1301 cx16.r3 = &lbl8b lda #p8l_lbl8b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1302 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1304 goto skip8b bra p8l_skip8b ; source: test_word_splitw_equalities.p8:1305 lbl8b: fail_word(106,0) p8l_lbl8b lda #<$6a ldy #>$6a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1306 skip8b: p8l_skip8b ; source: test_word_splitw_equalities.p8:1308 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_156_afterif cpy p8v_sources_msb+1 bne label_asm_156_afterif ; source: test_word_splitw_equalities.p8:1309 fail_word(107,0) lda #<$6b ldy #>$6b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_156_afterif ; source: test_word_splitw_equalities.p8:1312 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_158_else cpy p8v_sources_msb+1 bne label_asm_158_else ; source: test_word_splitw_equalities.p8:1313 fail_word(108,0) lda #<$6c ldy #>$6c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_157_afterif label_asm_158_else ; source: test_word_splitw_equalities.p8:1315 cx16.r0L++ inc cx16.r0L label_asm_157_afterif ; source: test_word_splitw_equalities.p8:1317 sources[1]=170 ldy #1 lda #<$aa sta p8v_sources_lsb,y lda #>$aa sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:1318 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1320 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl9a + ; source: test_word_splitw_equalities.p8:1322 goto skip9a bra p8l_skip9a ; source: test_word_splitw_equalities.p8:1323 lbl9a: fail_word(109,170) p8l_lbl9a lda #<$6d ldy #>$6d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1324 skip9a: p8l_skip9a ; source: test_word_splitw_equalities.p8:1326 cx16.r3 = &lbl9b lda #p8l_lbl9b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1327 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1329 goto skip9b bra p8l_skip9b ; source: test_word_splitw_equalities.p8:1330 lbl9b: fail_word(110,170) p8l_lbl9b lda #<$6e ldy #>$6e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1331 skip9b: p8l_skip9b ; source: test_word_splitw_equalities.p8:1333 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_159_afterif cpy p8v_sources_msb+1 bne label_asm_159_afterif ; source: test_word_splitw_equalities.p8:1334 fail_word(111,170) lda #<$6f ldy #>$6f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_159_afterif ; source: test_word_splitw_equalities.p8:1337 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_161_else cpy p8v_sources_msb+1 bne label_asm_161_else ; source: test_word_splitw_equalities.p8:1338 fail_word(112,170) lda #<$70 ldy #>$70 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_160_afterif label_asm_161_else ; source: test_word_splitw_equalities.p8:1340 cx16.r0L++ inc cx16.r0L label_asm_160_afterif ; source: test_word_splitw_equalities.p8:1342 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1344 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl10a + ; source: test_word_splitw_equalities.p8:1346 goto skip10a bra p8l_skip10a ; source: test_word_splitw_equalities.p8:1347 lbl10a: success++ p8l_lbl10a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1348 skip10a: p8l_skip10a ; source: test_word_splitw_equalities.p8:1350 cx16.r3 = &lbl10b lda #p8l_lbl10b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1351 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1353 goto skip10b bra p8l_skip10b ; source: test_word_splitw_equalities.p8:1354 lbl10b: success++ p8l_lbl10b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1355 skip10b: p8l_skip10b ; source: test_word_splitw_equalities.p8:1357 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_162_afterif cpy p8v_sources_msb+1 bne label_asm_162_afterif ; source: test_word_splitw_equalities.p8:1358 success++ inc p8b_main.p8v_success label_asm_162_afterif ; source: test_word_splitw_equalities.p8:1361 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_164_else cpy p8v_sources_msb+1 bne label_asm_164_else ; source: test_word_splitw_equalities.p8:1362 success++ inc p8b_main.p8v_success bra label_asm_163_afterif label_asm_164_else ; source: test_word_splitw_equalities.p8:1364 cx16.r0L++ inc cx16.r0L label_asm_163_afterif ; source: test_word_splitw_equalities.p8:1366 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1368 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl11a + ; source: test_word_splitw_equalities.p8:1370 goto skip11a bra p8l_skip11a ; source: test_word_splitw_equalities.p8:1371 lbl11a: fail_word(113,170) p8l_lbl11a lda #<$71 ldy #>$71 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1372 skip11a: p8l_skip11a ; source: test_word_splitw_equalities.p8:1374 cx16.r3 = &lbl11b lda #p8l_lbl11b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1375 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1377 goto skip11b bra p8l_skip11b ; source: test_word_splitw_equalities.p8:1378 lbl11b: fail_word(114,170) p8l_lbl11b lda #<$72 ldy #>$72 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1379 skip11b: p8l_skip11b ; source: test_word_splitw_equalities.p8:1381 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_165_afterif cpy p8v_sources_msb+1 bne label_asm_165_afterif ; source: test_word_splitw_equalities.p8:1382 fail_word(115,170) lda #<$73 ldy #>$73 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_165_afterif ; source: test_word_splitw_equalities.p8:1385 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_167_else cpy p8v_sources_msb+1 bne label_asm_167_else ; source: test_word_splitw_equalities.p8:1386 fail_word(116,170) lda #<$74 ldy #>$74 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_166_afterif label_asm_167_else ; source: test_word_splitw_equalities.p8:1388 cx16.r0L++ inc cx16.r0L label_asm_166_afterif ; source: test_word_splitw_equalities.p8:1390 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1392 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl12a + ; source: test_word_splitw_equalities.p8:1394 goto skip12a bra p8l_skip12a ; source: test_word_splitw_equalities.p8:1395 lbl12a: fail_word(117,170) p8l_lbl12a lda #<$75 ldy #>$75 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1396 skip12a: p8l_skip12a ; source: test_word_splitw_equalities.p8:1398 cx16.r3 = &lbl12b lda #p8l_lbl12b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1399 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1401 goto skip12b bra p8l_skip12b ; source: test_word_splitw_equalities.p8:1402 lbl12b: fail_word(118,170) p8l_lbl12b lda #<$76 ldy #>$76 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1403 skip12b: p8l_skip12b ; source: test_word_splitw_equalities.p8:1405 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_168_afterif cpy p8v_sources_msb+1 bne label_asm_168_afterif ; source: test_word_splitw_equalities.p8:1406 fail_word(119,170) lda #<$77 ldy #>$77 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_168_afterif ; source: test_word_splitw_equalities.p8:1409 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_170_else cpy p8v_sources_msb+1 bne label_asm_170_else ; source: test_word_splitw_equalities.p8:1410 fail_word(120,170) lda #<$78 ldy #>$78 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_169_afterif label_asm_170_else ; source: test_word_splitw_equalities.p8:1412 cx16.r0L++ inc cx16.r0L label_asm_169_afterif ; source: test_word_splitw_equalities.p8:1414 sources[1]=30464 ldy #1 lda #<$7700 sta p8v_sources_lsb,y lda #>$7700 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:1415 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1417 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl13a + ; source: test_word_splitw_equalities.p8:1419 goto skip13a bra p8l_skip13a ; source: test_word_splitw_equalities.p8:1420 lbl13a: fail_word(121,30464) p8l_lbl13a lda #<$79 ldy #>$79 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1421 skip13a: p8l_skip13a ; source: test_word_splitw_equalities.p8:1423 cx16.r3 = &lbl13b lda #p8l_lbl13b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1424 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1426 goto skip13b bra p8l_skip13b ; source: test_word_splitw_equalities.p8:1427 lbl13b: fail_word(122,30464) p8l_lbl13b lda #<$7a ldy #>$7a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1428 skip13b: p8l_skip13b ; source: test_word_splitw_equalities.p8:1430 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_171_afterif cpy p8v_sources_msb+1 bne label_asm_171_afterif ; source: test_word_splitw_equalities.p8:1431 fail_word(123,30464) lda #<$7b ldy #>$7b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_171_afterif ; source: test_word_splitw_equalities.p8:1434 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_173_else cpy p8v_sources_msb+1 bne label_asm_173_else ; source: test_word_splitw_equalities.p8:1435 fail_word(124,30464) lda #<$7c ldy #>$7c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_172_afterif label_asm_173_else ; source: test_word_splitw_equalities.p8:1437 cx16.r0L++ inc cx16.r0L label_asm_172_afterif ; source: test_word_splitw_equalities.p8:1439 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1441 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl14a + ; source: test_word_splitw_equalities.p8:1443 goto skip14a bra p8l_skip14a ; source: test_word_splitw_equalities.p8:1444 lbl14a: fail_word(125,30464) p8l_lbl14a lda #<$7d ldy #>$7d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1445 skip14a: p8l_skip14a ; source: test_word_splitw_equalities.p8:1447 cx16.r3 = &lbl14b lda #p8l_lbl14b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1448 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1450 goto skip14b bra p8l_skip14b ; source: test_word_splitw_equalities.p8:1451 lbl14b: fail_word(126,30464) p8l_lbl14b lda #<$7e ldy #>$7e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1452 skip14b: p8l_skip14b ; source: test_word_splitw_equalities.p8:1454 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_174_afterif cpy p8v_sources_msb+1 bne label_asm_174_afterif ; source: test_word_splitw_equalities.p8:1455 fail_word(127,30464) lda #<$7f ldy #>$7f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_174_afterif ; source: test_word_splitw_equalities.p8:1458 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_176_else cpy p8v_sources_msb+1 bne label_asm_176_else ; source: test_word_splitw_equalities.p8:1459 fail_word(128,30464) lda #<$80 ldy #>$80 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_175_afterif label_asm_176_else ; source: test_word_splitw_equalities.p8:1461 cx16.r0L++ inc cx16.r0L label_asm_175_afterif ; source: test_word_splitw_equalities.p8:1463 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1465 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl15a + ; source: test_word_splitw_equalities.p8:1467 goto skip15a bra p8l_skip15a ; source: test_word_splitw_equalities.p8:1468 lbl15a: success++ p8l_lbl15a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1469 skip15a: p8l_skip15a ; source: test_word_splitw_equalities.p8:1471 cx16.r3 = &lbl15b lda #p8l_lbl15b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1472 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1474 goto skip15b bra p8l_skip15b ; source: test_word_splitw_equalities.p8:1475 lbl15b: success++ p8l_lbl15b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1476 skip15b: p8l_skip15b ; source: test_word_splitw_equalities.p8:1478 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_177_afterif cpy p8v_sources_msb+1 bne label_asm_177_afterif ; source: test_word_splitw_equalities.p8:1479 success++ inc p8b_main.p8v_success label_asm_177_afterif ; source: test_word_splitw_equalities.p8:1482 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_179_else cpy p8v_sources_msb+1 bne label_asm_179_else ; source: test_word_splitw_equalities.p8:1483 success++ inc p8b_main.p8v_success bra label_asm_178_afterif label_asm_179_else ; source: test_word_splitw_equalities.p8:1485 cx16.r0L++ inc cx16.r0L label_asm_178_afterif ; source: test_word_splitw_equalities.p8:1487 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1489 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl16a + ; source: test_word_splitw_equalities.p8:1491 goto skip16a bra p8l_skip16a ; source: test_word_splitw_equalities.p8:1492 lbl16a: fail_word(129,30464) p8l_lbl16a lda #<$81 ldy #>$81 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1493 skip16a: p8l_skip16a ; source: test_word_splitw_equalities.p8:1495 cx16.r3 = &lbl16b lda #p8l_lbl16b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1496 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1498 goto skip16b bra p8l_skip16b ; source: test_word_splitw_equalities.p8:1499 lbl16b: fail_word(130,30464) p8l_lbl16b lda #<$82 ldy #>$82 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1500 skip16b: p8l_skip16b ; source: test_word_splitw_equalities.p8:1502 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_180_afterif cpy p8v_sources_msb+1 bne label_asm_180_afterif ; source: test_word_splitw_equalities.p8:1503 fail_word(131,30464) lda #<$83 ldy #>$83 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_180_afterif ; source: test_word_splitw_equalities.p8:1506 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_182_else cpy p8v_sources_msb+1 bne label_asm_182_else ; source: test_word_splitw_equalities.p8:1507 fail_word(132,30464) lda #<$84 ldy #>$84 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_181_afterif label_asm_182_else ; source: test_word_splitw_equalities.p8:1509 cx16.r0L++ inc cx16.r0L label_asm_181_afterif ; source: test_word_splitw_equalities.p8:1511 sources[1]=32767 ldy #1 lda #<$7fff sta p8v_sources_lsb,y lda #>$7fff sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:1512 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1514 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl17a + ; source: test_word_splitw_equalities.p8:1516 goto skip17a bra p8l_skip17a ; source: test_word_splitw_equalities.p8:1517 lbl17a: fail_word(133,32767) p8l_lbl17a lda #<$85 ldy #>$85 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1518 skip17a: p8l_skip17a ; source: test_word_splitw_equalities.p8:1520 cx16.r3 = &lbl17b lda #p8l_lbl17b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1521 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1523 goto skip17b bra p8l_skip17b ; source: test_word_splitw_equalities.p8:1524 lbl17b: fail_word(134,32767) p8l_lbl17b lda #<$86 ldy #>$86 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1525 skip17b: p8l_skip17b ; source: test_word_splitw_equalities.p8:1527 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_183_afterif cpy p8v_sources_msb+1 bne label_asm_183_afterif ; source: test_word_splitw_equalities.p8:1528 fail_word(135,32767) lda #<$87 ldy #>$87 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_183_afterif ; source: test_word_splitw_equalities.p8:1531 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_185_else cpy p8v_sources_msb+1 bne label_asm_185_else ; source: test_word_splitw_equalities.p8:1532 fail_word(136,32767) lda #<$88 ldy #>$88 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_184_afterif label_asm_185_else ; source: test_word_splitw_equalities.p8:1534 cx16.r0L++ inc cx16.r0L label_asm_184_afterif ; source: test_word_splitw_equalities.p8:1536 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1538 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl18a + ; source: test_word_splitw_equalities.p8:1540 goto skip18a bra p8l_skip18a ; source: test_word_splitw_equalities.p8:1541 lbl18a: fail_word(137,32767) p8l_lbl18a lda #<$89 ldy #>$89 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1542 skip18a: p8l_skip18a ; source: test_word_splitw_equalities.p8:1544 cx16.r3 = &lbl18b lda #p8l_lbl18b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1545 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1547 goto skip18b bra p8l_skip18b ; source: test_word_splitw_equalities.p8:1548 lbl18b: fail_word(138,32767) p8l_lbl18b lda #<$8a ldy #>$8a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1549 skip18b: p8l_skip18b ; source: test_word_splitw_equalities.p8:1551 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_186_afterif cpy p8v_sources_msb+1 bne label_asm_186_afterif ; source: test_word_splitw_equalities.p8:1552 fail_word(139,32767) lda #<$8b ldy #>$8b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_186_afterif ; source: test_word_splitw_equalities.p8:1555 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_188_else cpy p8v_sources_msb+1 bne label_asm_188_else ; source: test_word_splitw_equalities.p8:1556 fail_word(140,32767) lda #<$8c ldy #>$8c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_187_afterif label_asm_188_else ; source: test_word_splitw_equalities.p8:1558 cx16.r0L++ inc cx16.r0L label_asm_187_afterif ; source: test_word_splitw_equalities.p8:1560 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1562 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl19a + ; source: test_word_splitw_equalities.p8:1564 goto skip19a bra p8l_skip19a ; source: test_word_splitw_equalities.p8:1565 lbl19a: fail_word(141,32767) p8l_lbl19a lda #<$8d ldy #>$8d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1566 skip19a: p8l_skip19a ; source: test_word_splitw_equalities.p8:1568 cx16.r3 = &lbl19b lda #p8l_lbl19b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1569 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1571 goto skip19b bra p8l_skip19b ; source: test_word_splitw_equalities.p8:1572 lbl19b: fail_word(142,32767) p8l_lbl19b lda #<$8e ldy #>$8e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1573 skip19b: p8l_skip19b ; source: test_word_splitw_equalities.p8:1575 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_189_afterif cpy p8v_sources_msb+1 bne label_asm_189_afterif ; source: test_word_splitw_equalities.p8:1576 fail_word(143,32767) lda #<$8f ldy #>$8f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_189_afterif ; source: test_word_splitw_equalities.p8:1579 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_191_else cpy p8v_sources_msb+1 bne label_asm_191_else ; source: test_word_splitw_equalities.p8:1580 fail_word(144,32767) lda #<$90 ldy #>$90 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_190_afterif label_asm_191_else ; source: test_word_splitw_equalities.p8:1582 cx16.r0L++ inc cx16.r0L label_asm_190_afterif ; source: test_word_splitw_equalities.p8:1584 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1586 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl20a + ; source: test_word_splitw_equalities.p8:1588 goto skip20a bra p8l_skip20a ; source: test_word_splitw_equalities.p8:1589 lbl20a: success++ p8l_lbl20a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1590 skip20a: p8l_skip20a ; source: test_word_splitw_equalities.p8:1592 cx16.r3 = &lbl20b lda #p8l_lbl20b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1593 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1595 goto skip20b bra p8l_skip20b ; source: test_word_splitw_equalities.p8:1596 lbl20b: success++ p8l_lbl20b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1597 skip20b: p8l_skip20b ; source: test_word_splitw_equalities.p8:1599 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_192_afterif cpy p8v_sources_msb+1 bne label_asm_192_afterif ; source: test_word_splitw_equalities.p8:1600 success++ inc p8b_main.p8v_success label_asm_192_afterif ; source: test_word_splitw_equalities.p8:1603 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_194_else cpy p8v_sources_msb+1 bne label_asm_194_else ; source: test_word_splitw_equalities.p8:1604 success++ inc p8b_main.p8v_success bra label_asm_193_afterif label_asm_194_else ; source: test_word_splitw_equalities.p8:1606 cx16.r0L++ inc cx16.r0L label_asm_193_afterif ; source: test_word_splitw_equalities.p8:1608 verify_success(16) lda #$10 jmp p8b_main.p8s_verify_success ; source: test_word_splitw_equalities.p8:1119 sub test_is_var() { ; variables .section BSS .send BSS ; non-zeropage variables _array_p8v_sources := $270f, $270f p8v_sources_lsb .byte <_array_p8v_sources p8v_sources_msb .byte >_array_p8v_sources _array_p8v_values := $22b8, $22b8 p8v_values_lsb .byte <_array_p8v_values p8v_values_msb .byte >_array_p8v_values .pend ; source: test_word_splitw_equalities.p8:1610 sub test_not_var() { p8s_test_not_var .proc ; statements ; source: test_word_splitw_equalities.p8:1611 word[] @split sources = [9999, 9999] ; source: test_word_splitw_equalities.p8:1612 word[] @split values = [8888,8888] ; source: test_word_splitw_equalities.p8:1613 success = 0 stz p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1614 sources[1]=-21829 ldy #1 lda #<-$5545 sta p8v_sources_lsb,y lda #>-$5545 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:1615 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1617 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl1a cpy p8v_sources_msb+1 bne p8l_lbl1a ; source: test_word_splitw_equalities.p8:1619 goto skip1a bra p8l_skip1a ; source: test_word_splitw_equalities.p8:1620 lbl1a: fail_word(145,-21829) p8l_lbl1a lda #<$91 ldy #>$91 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1621 skip1a: p8l_skip1a ; source: test_word_splitw_equalities.p8:1623 cx16.r3 = &lbl1b lda #p8l_lbl1b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1624 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1626 goto skip1b bra p8l_skip1b ; source: test_word_splitw_equalities.p8:1627 lbl1b: fail_word(146,-21829) p8l_lbl1b lda #<$92 ldy #>$92 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1628 skip1b: p8l_skip1b ; source: test_word_splitw_equalities.p8:1630 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_195_afterif + ; source: test_word_splitw_equalities.p8:1631 fail_word(147,-21829) lda #<$93 ldy #>$93 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_195_afterif ; source: test_word_splitw_equalities.p8:1634 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_197_else + ; source: test_word_splitw_equalities.p8:1635 fail_word(148,-21829) lda #<$94 ldy #>$94 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_196_afterif label_asm_197_else ; source: test_word_splitw_equalities.p8:1637 cx16.r0L++ inc cx16.r0L label_asm_196_afterif ; source: test_word_splitw_equalities.p8:1639 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1641 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl2a cpy p8v_sources_msb+1 bne p8l_lbl2a ; source: test_word_splitw_equalities.p8:1643 goto skip2a bra p8l_skip2a ; source: test_word_splitw_equalities.p8:1644 lbl2a: success++ p8l_lbl2a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1645 skip2a: p8l_skip2a ; source: test_word_splitw_equalities.p8:1647 cx16.r3 = &lbl2b lda #p8l_lbl2b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1648 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1650 goto skip2b bra p8l_skip2b ; source: test_word_splitw_equalities.p8:1651 lbl2b: success++ p8l_lbl2b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1652 skip2b: p8l_skip2b ; source: test_word_splitw_equalities.p8:1654 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_198_afterif + ; source: test_word_splitw_equalities.p8:1655 success++ inc p8b_main.p8v_success label_asm_198_afterif ; source: test_word_splitw_equalities.p8:1658 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_200_else + ; source: test_word_splitw_equalities.p8:1659 success++ inc p8b_main.p8v_success bra label_asm_199_afterif label_asm_200_else ; source: test_word_splitw_equalities.p8:1661 cx16.r0L++ inc cx16.r0L label_asm_199_afterif ; source: test_word_splitw_equalities.p8:1663 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1665 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl3a cpy p8v_sources_msb+1 bne p8l_lbl3a ; source: test_word_splitw_equalities.p8:1667 goto skip3a bra p8l_skip3a ; source: test_word_splitw_equalities.p8:1668 lbl3a: success++ p8l_lbl3a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1669 skip3a: p8l_skip3a ; source: test_word_splitw_equalities.p8:1671 cx16.r3 = &lbl3b lda #p8l_lbl3b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1672 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1674 goto skip3b bra p8l_skip3b ; source: test_word_splitw_equalities.p8:1675 lbl3b: success++ p8l_lbl3b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1676 skip3b: p8l_skip3b ; source: test_word_splitw_equalities.p8:1678 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_201_afterif + ; source: test_word_splitw_equalities.p8:1679 success++ inc p8b_main.p8v_success label_asm_201_afterif ; source: test_word_splitw_equalities.p8:1682 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_203_else + ; source: test_word_splitw_equalities.p8:1683 success++ inc p8b_main.p8v_success bra label_asm_202_afterif label_asm_203_else ; source: test_word_splitw_equalities.p8:1685 cx16.r0L++ inc cx16.r0L label_asm_202_afterif ; source: test_word_splitw_equalities.p8:1687 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1689 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl4a cpy p8v_sources_msb+1 bne p8l_lbl4a ; source: test_word_splitw_equalities.p8:1691 goto skip4a bra p8l_skip4a ; source: test_word_splitw_equalities.p8:1692 lbl4a: success++ p8l_lbl4a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1693 skip4a: p8l_skip4a ; source: test_word_splitw_equalities.p8:1695 cx16.r3 = &lbl4b lda #p8l_lbl4b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1696 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1698 goto skip4b bra p8l_skip4b ; source: test_word_splitw_equalities.p8:1699 lbl4b: success++ p8l_lbl4b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1700 skip4b: p8l_skip4b ; source: test_word_splitw_equalities.p8:1702 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_204_afterif + ; source: test_word_splitw_equalities.p8:1703 success++ inc p8b_main.p8v_success label_asm_204_afterif ; source: test_word_splitw_equalities.p8:1706 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_206_else + ; source: test_word_splitw_equalities.p8:1707 success++ inc p8b_main.p8v_success bra label_asm_205_afterif label_asm_206_else ; source: test_word_splitw_equalities.p8:1709 cx16.r0L++ inc cx16.r0L label_asm_205_afterif ; source: test_word_splitw_equalities.p8:1711 sources[1]=0 ldy #1 lda #0 sta p8v_sources_lsb,y sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:1712 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1714 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl5a cpy p8v_sources_msb+1 bne p8l_lbl5a ; source: test_word_splitw_equalities.p8:1716 goto skip5a bra p8l_skip5a ; source: test_word_splitw_equalities.p8:1717 lbl5a: success++ p8l_lbl5a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1718 skip5a: p8l_skip5a ; source: test_word_splitw_equalities.p8:1720 cx16.r3 = &lbl5b lda #p8l_lbl5b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1721 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1723 goto skip5b bra p8l_skip5b ; source: test_word_splitw_equalities.p8:1724 lbl5b: success++ p8l_lbl5b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1725 skip5b: p8l_skip5b ; source: test_word_splitw_equalities.p8:1727 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_207_afterif + ; source: test_word_splitw_equalities.p8:1728 success++ inc p8b_main.p8v_success label_asm_207_afterif ; source: test_word_splitw_equalities.p8:1731 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_209_else + ; source: test_word_splitw_equalities.p8:1732 success++ inc p8b_main.p8v_success bra label_asm_208_afterif label_asm_209_else ; source: test_word_splitw_equalities.p8:1734 cx16.r0L++ inc cx16.r0L label_asm_208_afterif ; source: test_word_splitw_equalities.p8:1736 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1738 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl6a cpy p8v_sources_msb+1 bne p8l_lbl6a ; source: test_word_splitw_equalities.p8:1740 goto skip6a bra p8l_skip6a ; source: test_word_splitw_equalities.p8:1741 lbl6a: success++ p8l_lbl6a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1742 skip6a: p8l_skip6a ; source: test_word_splitw_equalities.p8:1744 cx16.r3 = &lbl6b lda #p8l_lbl6b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1745 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1747 goto skip6b bra p8l_skip6b ; source: test_word_splitw_equalities.p8:1748 lbl6b: success++ p8l_lbl6b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1749 skip6b: p8l_skip6b ; source: test_word_splitw_equalities.p8:1751 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_210_afterif + ; source: test_word_splitw_equalities.p8:1752 success++ inc p8b_main.p8v_success label_asm_210_afterif ; source: test_word_splitw_equalities.p8:1755 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_212_else + ; source: test_word_splitw_equalities.p8:1756 success++ inc p8b_main.p8v_success bra label_asm_211_afterif label_asm_212_else ; source: test_word_splitw_equalities.p8:1758 cx16.r0L++ inc cx16.r0L label_asm_211_afterif ; source: test_word_splitw_equalities.p8:1760 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1762 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl7a cpy p8v_sources_msb+1 bne p8l_lbl7a ; source: test_word_splitw_equalities.p8:1764 goto skip7a bra p8l_skip7a ; source: test_word_splitw_equalities.p8:1765 lbl7a: success++ p8l_lbl7a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1766 skip7a: p8l_skip7a ; source: test_word_splitw_equalities.p8:1768 cx16.r3 = &lbl7b lda #p8l_lbl7b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1769 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1771 goto skip7b bra p8l_skip7b ; source: test_word_splitw_equalities.p8:1772 lbl7b: success++ p8l_lbl7b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1773 skip7b: p8l_skip7b ; source: test_word_splitw_equalities.p8:1775 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_213_afterif + ; source: test_word_splitw_equalities.p8:1776 success++ inc p8b_main.p8v_success label_asm_213_afterif ; source: test_word_splitw_equalities.p8:1779 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_215_else + ; source: test_word_splitw_equalities.p8:1780 success++ inc p8b_main.p8v_success bra label_asm_214_afterif label_asm_215_else ; source: test_word_splitw_equalities.p8:1782 cx16.r0L++ inc cx16.r0L label_asm_214_afterif ; source: test_word_splitw_equalities.p8:1784 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1786 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl8a cpy p8v_sources_msb+1 bne p8l_lbl8a ; source: test_word_splitw_equalities.p8:1788 goto skip8a bra p8l_skip8a ; source: test_word_splitw_equalities.p8:1789 lbl8a: success++ p8l_lbl8a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1790 skip8a: p8l_skip8a ; source: test_word_splitw_equalities.p8:1792 cx16.r3 = &lbl8b lda #p8l_lbl8b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1793 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1795 goto skip8b bra p8l_skip8b ; source: test_word_splitw_equalities.p8:1796 lbl8b: success++ p8l_lbl8b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1797 skip8b: p8l_skip8b ; source: test_word_splitw_equalities.p8:1799 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_216_afterif + ; source: test_word_splitw_equalities.p8:1800 success++ inc p8b_main.p8v_success label_asm_216_afterif ; source: test_word_splitw_equalities.p8:1803 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_218_else + ; source: test_word_splitw_equalities.p8:1804 success++ inc p8b_main.p8v_success bra label_asm_217_afterif label_asm_218_else ; source: test_word_splitw_equalities.p8:1806 cx16.r0L++ inc cx16.r0L label_asm_217_afterif ; source: test_word_splitw_equalities.p8:1808 sources[1]=170 ldy #1 lda #<$aa sta p8v_sources_lsb,y lda #>$aa sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:1809 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1811 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl9a cpy p8v_sources_msb+1 bne p8l_lbl9a ; source: test_word_splitw_equalities.p8:1813 goto skip9a bra p8l_skip9a ; source: test_word_splitw_equalities.p8:1814 lbl9a: success++ p8l_lbl9a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1815 skip9a: p8l_skip9a ; source: test_word_splitw_equalities.p8:1817 cx16.r3 = &lbl9b lda #p8l_lbl9b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1818 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1820 goto skip9b bra p8l_skip9b ; source: test_word_splitw_equalities.p8:1821 lbl9b: success++ p8l_lbl9b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1822 skip9b: p8l_skip9b ; source: test_word_splitw_equalities.p8:1824 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_219_afterif + ; source: test_word_splitw_equalities.p8:1825 success++ inc p8b_main.p8v_success label_asm_219_afterif ; source: test_word_splitw_equalities.p8:1828 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_221_else + ; source: test_word_splitw_equalities.p8:1829 success++ inc p8b_main.p8v_success bra label_asm_220_afterif label_asm_221_else ; source: test_word_splitw_equalities.p8:1831 cx16.r0L++ inc cx16.r0L label_asm_220_afterif ; source: test_word_splitw_equalities.p8:1833 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1835 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl10a cpy p8v_sources_msb+1 bne p8l_lbl10a ; source: test_word_splitw_equalities.p8:1837 goto skip10a bra p8l_skip10a ; source: test_word_splitw_equalities.p8:1838 lbl10a: fail_word(149,170) p8l_lbl10a lda #<$95 ldy #>$95 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1839 skip10a: p8l_skip10a ; source: test_word_splitw_equalities.p8:1841 cx16.r3 = &lbl10b lda #p8l_lbl10b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1842 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1844 goto skip10b bra p8l_skip10b ; source: test_word_splitw_equalities.p8:1845 lbl10b: fail_word(150,170) p8l_lbl10b lda #<$96 ldy #>$96 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1846 skip10b: p8l_skip10b ; source: test_word_splitw_equalities.p8:1848 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_222_afterif + ; source: test_word_splitw_equalities.p8:1849 fail_word(151,170) lda #<$97 ldy #>$97 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_222_afterif ; source: test_word_splitw_equalities.p8:1852 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_224_else + ; source: test_word_splitw_equalities.p8:1853 fail_word(152,170) lda #<$98 ldy #>$98 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_223_afterif label_asm_224_else ; source: test_word_splitw_equalities.p8:1855 cx16.r0L++ inc cx16.r0L label_asm_223_afterif ; source: test_word_splitw_equalities.p8:1857 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1859 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl11a cpy p8v_sources_msb+1 bne p8l_lbl11a ; source: test_word_splitw_equalities.p8:1861 goto skip11a bra p8l_skip11a ; source: test_word_splitw_equalities.p8:1862 lbl11a: success++ p8l_lbl11a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1863 skip11a: p8l_skip11a ; source: test_word_splitw_equalities.p8:1865 cx16.r3 = &lbl11b lda #p8l_lbl11b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1866 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1868 goto skip11b bra p8l_skip11b ; source: test_word_splitw_equalities.p8:1869 lbl11b: success++ p8l_lbl11b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1870 skip11b: p8l_skip11b ; source: test_word_splitw_equalities.p8:1872 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_225_afterif + ; source: test_word_splitw_equalities.p8:1873 success++ inc p8b_main.p8v_success label_asm_225_afterif ; source: test_word_splitw_equalities.p8:1876 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_227_else + ; source: test_word_splitw_equalities.p8:1877 success++ inc p8b_main.p8v_success bra label_asm_226_afterif label_asm_227_else ; source: test_word_splitw_equalities.p8:1879 cx16.r0L++ inc cx16.r0L label_asm_226_afterif ; source: test_word_splitw_equalities.p8:1881 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1883 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl12a cpy p8v_sources_msb+1 bne p8l_lbl12a ; source: test_word_splitw_equalities.p8:1885 goto skip12a bra p8l_skip12a ; source: test_word_splitw_equalities.p8:1886 lbl12a: success++ p8l_lbl12a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1887 skip12a: p8l_skip12a ; source: test_word_splitw_equalities.p8:1889 cx16.r3 = &lbl12b lda #p8l_lbl12b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1890 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1892 goto skip12b bra p8l_skip12b ; source: test_word_splitw_equalities.p8:1893 lbl12b: success++ p8l_lbl12b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1894 skip12b: p8l_skip12b ; source: test_word_splitw_equalities.p8:1896 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_228_afterif + ; source: test_word_splitw_equalities.p8:1897 success++ inc p8b_main.p8v_success label_asm_228_afterif ; source: test_word_splitw_equalities.p8:1900 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_230_else + ; source: test_word_splitw_equalities.p8:1901 success++ inc p8b_main.p8v_success bra label_asm_229_afterif label_asm_230_else ; source: test_word_splitw_equalities.p8:1903 cx16.r0L++ inc cx16.r0L label_asm_229_afterif ; source: test_word_splitw_equalities.p8:1905 sources[1]=30464 ldy #1 lda #<$7700 sta p8v_sources_lsb,y lda #>$7700 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:1906 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1908 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl13a cpy p8v_sources_msb+1 bne p8l_lbl13a ; source: test_word_splitw_equalities.p8:1910 goto skip13a bra p8l_skip13a ; source: test_word_splitw_equalities.p8:1911 lbl13a: success++ p8l_lbl13a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1912 skip13a: p8l_skip13a ; source: test_word_splitw_equalities.p8:1914 cx16.r3 = &lbl13b lda #p8l_lbl13b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1915 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1917 goto skip13b bra p8l_skip13b ; source: test_word_splitw_equalities.p8:1918 lbl13b: success++ p8l_lbl13b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1919 skip13b: p8l_skip13b ; source: test_word_splitw_equalities.p8:1921 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_231_afterif + ; source: test_word_splitw_equalities.p8:1922 success++ inc p8b_main.p8v_success label_asm_231_afterif ; source: test_word_splitw_equalities.p8:1925 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_233_else + ; source: test_word_splitw_equalities.p8:1926 success++ inc p8b_main.p8v_success bra label_asm_232_afterif label_asm_233_else ; source: test_word_splitw_equalities.p8:1928 cx16.r0L++ inc cx16.r0L label_asm_232_afterif ; source: test_word_splitw_equalities.p8:1930 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1932 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl14a cpy p8v_sources_msb+1 bne p8l_lbl14a ; source: test_word_splitw_equalities.p8:1934 goto skip14a bra p8l_skip14a ; source: test_word_splitw_equalities.p8:1935 lbl14a: success++ p8l_lbl14a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1936 skip14a: p8l_skip14a ; source: test_word_splitw_equalities.p8:1938 cx16.r3 = &lbl14b lda #p8l_lbl14b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1939 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1941 goto skip14b bra p8l_skip14b ; source: test_word_splitw_equalities.p8:1942 lbl14b: success++ p8l_lbl14b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1943 skip14b: p8l_skip14b ; source: test_word_splitw_equalities.p8:1945 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_234_afterif + ; source: test_word_splitw_equalities.p8:1946 success++ inc p8b_main.p8v_success label_asm_234_afterif ; source: test_word_splitw_equalities.p8:1949 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_236_else + ; source: test_word_splitw_equalities.p8:1950 success++ inc p8b_main.p8v_success bra label_asm_235_afterif label_asm_236_else ; source: test_word_splitw_equalities.p8:1952 cx16.r0L++ inc cx16.r0L label_asm_235_afterif ; source: test_word_splitw_equalities.p8:1954 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1956 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl15a cpy p8v_sources_msb+1 bne p8l_lbl15a ; source: test_word_splitw_equalities.p8:1958 goto skip15a bra p8l_skip15a ; source: test_word_splitw_equalities.p8:1959 lbl15a: fail_word(153,30464) p8l_lbl15a lda #<$99 ldy #>$99 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1960 skip15a: p8l_skip15a ; source: test_word_splitw_equalities.p8:1962 cx16.r3 = &lbl15b lda #p8l_lbl15b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1963 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1965 goto skip15b bra p8l_skip15b ; source: test_word_splitw_equalities.p8:1966 lbl15b: fail_word(154,30464) p8l_lbl15b lda #<$9a ldy #>$9a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:1967 skip15b: p8l_skip15b ; source: test_word_splitw_equalities.p8:1969 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_237_afterif + ; source: test_word_splitw_equalities.p8:1970 fail_word(155,30464) lda #<$9b ldy #>$9b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_237_afterif ; source: test_word_splitw_equalities.p8:1973 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_239_else + ; source: test_word_splitw_equalities.p8:1974 fail_word(156,30464) lda #<$9c ldy #>$9c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_238_afterif label_asm_239_else ; source: test_word_splitw_equalities.p8:1976 cx16.r0L++ inc cx16.r0L label_asm_238_afterif ; source: test_word_splitw_equalities.p8:1978 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:1980 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl16a cpy p8v_sources_msb+1 bne p8l_lbl16a ; source: test_word_splitw_equalities.p8:1982 goto skip16a bra p8l_skip16a ; source: test_word_splitw_equalities.p8:1983 lbl16a: success++ p8l_lbl16a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1984 skip16a: p8l_skip16a ; source: test_word_splitw_equalities.p8:1986 cx16.r3 = &lbl16b lda #p8l_lbl16b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:1987 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:1989 goto skip16b bra p8l_skip16b ; source: test_word_splitw_equalities.p8:1990 lbl16b: success++ p8l_lbl16b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:1991 skip16b: p8l_skip16b ; source: test_word_splitw_equalities.p8:1993 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_240_afterif + ; source: test_word_splitw_equalities.p8:1994 success++ inc p8b_main.p8v_success label_asm_240_afterif ; source: test_word_splitw_equalities.p8:1997 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_242_else + ; source: test_word_splitw_equalities.p8:1998 success++ inc p8b_main.p8v_success bra label_asm_241_afterif label_asm_242_else ; source: test_word_splitw_equalities.p8:2000 cx16.r0L++ inc cx16.r0L label_asm_241_afterif ; source: test_word_splitw_equalities.p8:2002 sources[1]=32767 ldy #1 lda #<$7fff sta p8v_sources_lsb,y lda #>$7fff sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2003 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:2005 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl17a cpy p8v_sources_msb+1 bne p8l_lbl17a ; source: test_word_splitw_equalities.p8:2007 goto skip17a bra p8l_skip17a ; source: test_word_splitw_equalities.p8:2008 lbl17a: success++ p8l_lbl17a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2009 skip17a: p8l_skip17a ; source: test_word_splitw_equalities.p8:2011 cx16.r3 = &lbl17b lda #p8l_lbl17b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2012 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2014 goto skip17b bra p8l_skip17b ; source: test_word_splitw_equalities.p8:2015 lbl17b: success++ p8l_lbl17b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2016 skip17b: p8l_skip17b ; source: test_word_splitw_equalities.p8:2018 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_243_afterif + ; source: test_word_splitw_equalities.p8:2019 success++ inc p8b_main.p8v_success label_asm_243_afterif ; source: test_word_splitw_equalities.p8:2022 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_245_else + ; source: test_word_splitw_equalities.p8:2023 success++ inc p8b_main.p8v_success bra label_asm_244_afterif label_asm_245_else ; source: test_word_splitw_equalities.p8:2025 cx16.r0L++ inc cx16.r0L label_asm_244_afterif ; source: test_word_splitw_equalities.p8:2027 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:2029 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl18a cpy p8v_sources_msb+1 bne p8l_lbl18a ; source: test_word_splitw_equalities.p8:2031 goto skip18a bra p8l_skip18a ; source: test_word_splitw_equalities.p8:2032 lbl18a: success++ p8l_lbl18a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2033 skip18a: p8l_skip18a ; source: test_word_splitw_equalities.p8:2035 cx16.r3 = &lbl18b lda #p8l_lbl18b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2036 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2038 goto skip18b bra p8l_skip18b ; source: test_word_splitw_equalities.p8:2039 lbl18b: success++ p8l_lbl18b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2040 skip18b: p8l_skip18b ; source: test_word_splitw_equalities.p8:2042 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_246_afterif + ; source: test_word_splitw_equalities.p8:2043 success++ inc p8b_main.p8v_success label_asm_246_afterif ; source: test_word_splitw_equalities.p8:2046 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_248_else + ; source: test_word_splitw_equalities.p8:2047 success++ inc p8b_main.p8v_success bra label_asm_247_afterif label_asm_248_else ; source: test_word_splitw_equalities.p8:2049 cx16.r0L++ inc cx16.r0L label_asm_247_afterif ; source: test_word_splitw_equalities.p8:2051 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:2053 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl19a cpy p8v_sources_msb+1 bne p8l_lbl19a ; source: test_word_splitw_equalities.p8:2055 goto skip19a bra p8l_skip19a ; source: test_word_splitw_equalities.p8:2056 lbl19a: success++ p8l_lbl19a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2057 skip19a: p8l_skip19a ; source: test_word_splitw_equalities.p8:2059 cx16.r3 = &lbl19b lda #p8l_lbl19b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2060 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2062 goto skip19b bra p8l_skip19b ; source: test_word_splitw_equalities.p8:2063 lbl19b: success++ p8l_lbl19b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2064 skip19b: p8l_skip19b ; source: test_word_splitw_equalities.p8:2066 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_249_afterif + ; source: test_word_splitw_equalities.p8:2067 success++ inc p8b_main.p8v_success label_asm_249_afterif ; source: test_word_splitw_equalities.p8:2070 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_251_else + ; source: test_word_splitw_equalities.p8:2071 success++ inc p8b_main.p8v_success bra label_asm_250_afterif label_asm_251_else ; source: test_word_splitw_equalities.p8:2073 cx16.r0L++ inc cx16.r0L label_asm_250_afterif ; source: test_word_splitw_equalities.p8:2075 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:2077 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl20a cpy p8v_sources_msb+1 bne p8l_lbl20a ; source: test_word_splitw_equalities.p8:2079 goto skip20a bra p8l_skip20a ; source: test_word_splitw_equalities.p8:2080 lbl20a: fail_word(157,32767) p8l_lbl20a lda #<$9d ldy #>$9d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2081 skip20a: p8l_skip20a ; source: test_word_splitw_equalities.p8:2083 cx16.r3 = &lbl20b lda #p8l_lbl20b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2084 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2086 goto skip20b bra p8l_skip20b ; source: test_word_splitw_equalities.p8:2087 lbl20b: fail_word(158,32767) p8l_lbl20b lda #<$9e ldy #>$9e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2088 skip20b: p8l_skip20b ; source: test_word_splitw_equalities.p8:2090 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_252_afterif + ; source: test_word_splitw_equalities.p8:2091 fail_word(159,32767) lda #<$9f ldy #>$9f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_252_afterif ; source: test_word_splitw_equalities.p8:2094 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_254_else + ; source: test_word_splitw_equalities.p8:2095 fail_word(160,32767) lda #<$a0 ldy #>$a0 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_253_afterif label_asm_254_else ; source: test_word_splitw_equalities.p8:2097 cx16.r0L++ inc cx16.r0L label_asm_253_afterif ; source: test_word_splitw_equalities.p8:2099 verify_success(64) lda #$40 jmp p8b_main.p8s_verify_success ; source: test_word_splitw_equalities.p8:1610 sub test_not_var() { ; variables .section BSS .send BSS ; non-zeropage variables _array_p8v_sources := $270f, $270f p8v_sources_lsb .byte <_array_p8v_sources p8v_sources_msb .byte >_array_p8v_sources _array_p8v_values := $22b8, $22b8 p8v_values_lsb .byte <_array_p8v_values p8v_values_msb .byte >_array_p8v_values .pend ; source: test_word_splitw_equalities.p8:2101 sub test_is_expr() { p8s_test_is_expr .proc ; statements ; source: test_word_splitw_equalities.p8:2102 word[] @split sources = [9999, 9999] ; source: test_word_splitw_equalities.p8:2103 cx16.r4 = 1 lda #<1 ldy #>1 sta cx16.r4 sty cx16.r4+1 ; source: test_word_splitw_equalities.p8:2104 cx16.r5 = 1 sta cx16.r5 sty cx16.r5+1 ; source: test_word_splitw_equalities.p8:2105 success = 0 stz p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2106 sources[1]=-21829 ldy #1 lda #<-$5545 sta p8v_sources_lsb,y lda #>-$5545 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2108 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl1a + ; source: test_word_splitw_equalities.p8:2110 goto skip1a bra p8l_skip1a ; source: test_word_splitw_equalities.p8:2111 lbl1a: success++ p8l_lbl1a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2112 skip1a: p8l_skip1a ; source: test_word_splitw_equalities.p8:2114 cx16.r3 = &lbl1b lda #p8l_lbl1b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2115 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2117 goto skip1b bra p8l_skip1b ; source: test_word_splitw_equalities.p8:2118 lbl1b: success++ p8l_lbl1b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2119 skip1b: p8l_skip1b ; source: test_word_splitw_equalities.p8:2121 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_255_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_255_afterif ; source: test_word_splitw_equalities.p8:2122 success++ inc p8b_main.p8v_success label_asm_255_afterif ; source: test_word_splitw_equalities.p8:2125 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_257_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_257_else ; source: test_word_splitw_equalities.p8:2126 success++ inc p8b_main.p8v_success bra label_asm_256_afterif label_asm_257_else ; source: test_word_splitw_equalities.p8:2128 cx16.r0L++ inc cx16.r0L label_asm_256_afterif ; source: test_word_splitw_equalities.p8:2131 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl2a + ; source: test_word_splitw_equalities.p8:2133 goto skip2a bra p8l_skip2a ; source: test_word_splitw_equalities.p8:2134 lbl2a: fail_word(161,-21829) p8l_lbl2a lda #<$a1 ldy #>$a1 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2135 skip2a: p8l_skip2a ; source: test_word_splitw_equalities.p8:2137 cx16.r3 = &lbl2b lda #p8l_lbl2b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2138 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2140 goto skip2b bra p8l_skip2b ; source: test_word_splitw_equalities.p8:2141 lbl2b: fail_word(162,-21829) p8l_lbl2b lda #<$a2 ldy #>$a2 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2142 skip2b: p8l_skip2b ; source: test_word_splitw_equalities.p8:2144 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_258_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_258_afterif ; source: test_word_splitw_equalities.p8:2145 fail_word(163,-21829) lda #<$a3 ldy #>$a3 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_258_afterif ; source: test_word_splitw_equalities.p8:2148 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_260_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_260_else ; source: test_word_splitw_equalities.p8:2149 fail_word(164,-21829) lda #<$a4 ldy #>$a4 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_259_afterif label_asm_260_else ; source: test_word_splitw_equalities.p8:2151 cx16.r0L++ inc cx16.r0L label_asm_259_afterif ; source: test_word_splitw_equalities.p8:2154 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl3a + ; source: test_word_splitw_equalities.p8:2156 goto skip3a bra p8l_skip3a ; source: test_word_splitw_equalities.p8:2157 lbl3a: fail_word(165,-21829) p8l_lbl3a lda #<$a5 ldy #>$a5 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2158 skip3a: p8l_skip3a ; source: test_word_splitw_equalities.p8:2160 cx16.r3 = &lbl3b lda #p8l_lbl3b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2161 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2163 goto skip3b bra p8l_skip3b ; source: test_word_splitw_equalities.p8:2164 lbl3b: fail_word(166,-21829) p8l_lbl3b lda #<$a6 ldy #>$a6 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2165 skip3b: p8l_skip3b ; source: test_word_splitw_equalities.p8:2167 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_261_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_261_afterif ; source: test_word_splitw_equalities.p8:2168 fail_word(167,-21829) lda #<$a7 ldy #>$a7 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_261_afterif ; source: test_word_splitw_equalities.p8:2171 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_263_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_263_else ; source: test_word_splitw_equalities.p8:2172 fail_word(168,-21829) lda #<$a8 ldy #>$a8 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_262_afterif label_asm_263_else ; source: test_word_splitw_equalities.p8:2174 cx16.r0L++ inc cx16.r0L label_asm_262_afterif ; source: test_word_splitw_equalities.p8:2177 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl4a + ; source: test_word_splitw_equalities.p8:2179 goto skip4a bra p8l_skip4a ; source: test_word_splitw_equalities.p8:2180 lbl4a: fail_word(169,-21829) p8l_lbl4a lda #<$a9 ldy #>$a9 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2181 skip4a: p8l_skip4a ; source: test_word_splitw_equalities.p8:2183 cx16.r3 = &lbl4b lda #p8l_lbl4b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2184 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2186 goto skip4b bra p8l_skip4b ; source: test_word_splitw_equalities.p8:2187 lbl4b: fail_word(170,-21829) p8l_lbl4b lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2188 skip4b: p8l_skip4b ; source: test_word_splitw_equalities.p8:2190 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_264_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_264_afterif ; source: test_word_splitw_equalities.p8:2191 fail_word(171,-21829) lda #<$ab ldy #>$ab sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_264_afterif ; source: test_word_splitw_equalities.p8:2194 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_266_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_266_else ; source: test_word_splitw_equalities.p8:2195 fail_word(172,-21829) lda #<$ac ldy #>$ac sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_265_afterif label_asm_266_else ; source: test_word_splitw_equalities.p8:2197 cx16.r0L++ inc cx16.r0L label_asm_265_afterif ; source: test_word_splitw_equalities.p8:2199 sources[1]=0 ldy #1 lda #0 sta p8v_sources_lsb,y sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2201 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl5a + ; source: test_word_splitw_equalities.p8:2203 goto skip5a bra p8l_skip5a ; source: test_word_splitw_equalities.p8:2204 lbl5a: fail_word(173,0) p8l_lbl5a lda #<$ad ldy #>$ad sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2205 skip5a: p8l_skip5a ; source: test_word_splitw_equalities.p8:2207 cx16.r3 = &lbl5b lda #p8l_lbl5b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2208 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2210 goto skip5b bra p8l_skip5b ; source: test_word_splitw_equalities.p8:2211 lbl5b: fail_word(174,0) p8l_lbl5b lda #<$ae ldy #>$ae sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2212 skip5b: p8l_skip5b ; source: test_word_splitw_equalities.p8:2214 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_267_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_267_afterif ; source: test_word_splitw_equalities.p8:2215 fail_word(175,0) lda #<$af ldy #>$af sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_267_afterif ; source: test_word_splitw_equalities.p8:2218 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_269_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_269_else ; source: test_word_splitw_equalities.p8:2219 fail_word(176,0) lda #<$b0 ldy #>$b0 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_268_afterif label_asm_269_else ; source: test_word_splitw_equalities.p8:2221 cx16.r0L++ inc cx16.r0L label_asm_268_afterif ; source: test_word_splitw_equalities.p8:2224 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl6a + ; source: test_word_splitw_equalities.p8:2226 goto skip6a bra p8l_skip6a ; source: test_word_splitw_equalities.p8:2227 lbl6a: fail_word(177,0) p8l_lbl6a lda #<$b1 ldy #>$b1 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2228 skip6a: p8l_skip6a ; source: test_word_splitw_equalities.p8:2230 cx16.r3 = &lbl6b lda #p8l_lbl6b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2231 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2233 goto skip6b bra p8l_skip6b ; source: test_word_splitw_equalities.p8:2234 lbl6b: fail_word(178,0) p8l_lbl6b lda #<$b2 ldy #>$b2 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2235 skip6b: p8l_skip6b ; source: test_word_splitw_equalities.p8:2237 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_270_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_270_afterif ; source: test_word_splitw_equalities.p8:2238 fail_word(179,0) lda #<$b3 ldy #>$b3 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_270_afterif ; source: test_word_splitw_equalities.p8:2241 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_272_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_272_else ; source: test_word_splitw_equalities.p8:2242 fail_word(180,0) lda #<$b4 ldy #>$b4 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_271_afterif label_asm_272_else ; source: test_word_splitw_equalities.p8:2244 cx16.r0L++ inc cx16.r0L label_asm_271_afterif ; source: test_word_splitw_equalities.p8:2247 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl7a + ; source: test_word_splitw_equalities.p8:2249 goto skip7a bra p8l_skip7a ; source: test_word_splitw_equalities.p8:2250 lbl7a: fail_word(181,0) p8l_lbl7a lda #<$b5 ldy #>$b5 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2251 skip7a: p8l_skip7a ; source: test_word_splitw_equalities.p8:2253 cx16.r3 = &lbl7b lda #p8l_lbl7b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2254 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2256 goto skip7b bra p8l_skip7b ; source: test_word_splitw_equalities.p8:2257 lbl7b: fail_word(182,0) p8l_lbl7b lda #<$b6 ldy #>$b6 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2258 skip7b: p8l_skip7b ; source: test_word_splitw_equalities.p8:2260 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_273_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_273_afterif ; source: test_word_splitw_equalities.p8:2261 fail_word(183,0) lda #<$b7 ldy #>$b7 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_273_afterif ; source: test_word_splitw_equalities.p8:2264 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_275_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_275_else ; source: test_word_splitw_equalities.p8:2265 fail_word(184,0) lda #<$b8 ldy #>$b8 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_274_afterif label_asm_275_else ; source: test_word_splitw_equalities.p8:2267 cx16.r0L++ inc cx16.r0L label_asm_274_afterif ; source: test_word_splitw_equalities.p8:2270 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl8a + ; source: test_word_splitw_equalities.p8:2272 goto skip8a bra p8l_skip8a ; source: test_word_splitw_equalities.p8:2273 lbl8a: fail_word(185,0) p8l_lbl8a lda #<$b9 ldy #>$b9 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2274 skip8a: p8l_skip8a ; source: test_word_splitw_equalities.p8:2276 cx16.r3 = &lbl8b lda #p8l_lbl8b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2277 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2279 goto skip8b bra p8l_skip8b ; source: test_word_splitw_equalities.p8:2280 lbl8b: fail_word(186,0) p8l_lbl8b lda #<$ba ldy #>$ba sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2281 skip8b: p8l_skip8b ; source: test_word_splitw_equalities.p8:2283 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_276_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_276_afterif ; source: test_word_splitw_equalities.p8:2284 fail_word(187,0) lda #<$bb ldy #>$bb sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_276_afterif ; source: test_word_splitw_equalities.p8:2287 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_278_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_278_else ; source: test_word_splitw_equalities.p8:2288 fail_word(188,0) lda #<$bc ldy #>$bc sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_277_afterif label_asm_278_else ; source: test_word_splitw_equalities.p8:2290 cx16.r0L++ inc cx16.r0L label_asm_277_afterif ; source: test_word_splitw_equalities.p8:2292 sources[1]=170 ldy #1 lda #<$aa sta p8v_sources_lsb,y lda #>$aa sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2294 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl9a + ; source: test_word_splitw_equalities.p8:2296 goto skip9a bra p8l_skip9a ; source: test_word_splitw_equalities.p8:2297 lbl9a: fail_word(189,170) p8l_lbl9a lda #<$bd ldy #>$bd sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2298 skip9a: p8l_skip9a ; source: test_word_splitw_equalities.p8:2300 cx16.r3 = &lbl9b lda #p8l_lbl9b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2301 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2303 goto skip9b bra p8l_skip9b ; source: test_word_splitw_equalities.p8:2304 lbl9b: fail_word(190,170) p8l_lbl9b lda #<$be ldy #>$be sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2305 skip9b: p8l_skip9b ; source: test_word_splitw_equalities.p8:2307 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_279_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_279_afterif ; source: test_word_splitw_equalities.p8:2308 fail_word(191,170) lda #<$bf ldy #>$bf sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_279_afterif ; source: test_word_splitw_equalities.p8:2311 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_281_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_281_else ; source: test_word_splitw_equalities.p8:2312 fail_word(192,170) lda #<$c0 ldy #>$c0 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_280_afterif label_asm_281_else ; source: test_word_splitw_equalities.p8:2314 cx16.r0L++ inc cx16.r0L label_asm_280_afterif ; source: test_word_splitw_equalities.p8:2317 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl10a + ; source: test_word_splitw_equalities.p8:2319 goto skip10a bra p8l_skip10a ; source: test_word_splitw_equalities.p8:2320 lbl10a: success++ p8l_lbl10a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2321 skip10a: p8l_skip10a ; source: test_word_splitw_equalities.p8:2323 cx16.r3 = &lbl10b lda #p8l_lbl10b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2324 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2326 goto skip10b bra p8l_skip10b ; source: test_word_splitw_equalities.p8:2327 lbl10b: success++ p8l_lbl10b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2328 skip10b: p8l_skip10b ; source: test_word_splitw_equalities.p8:2330 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_282_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_282_afterif ; source: test_word_splitw_equalities.p8:2331 success++ inc p8b_main.p8v_success label_asm_282_afterif ; source: test_word_splitw_equalities.p8:2334 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_284_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_284_else ; source: test_word_splitw_equalities.p8:2335 success++ inc p8b_main.p8v_success bra label_asm_283_afterif label_asm_284_else ; source: test_word_splitw_equalities.p8:2337 cx16.r0L++ inc cx16.r0L label_asm_283_afterif ; source: test_word_splitw_equalities.p8:2340 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl11a + ; source: test_word_splitw_equalities.p8:2342 goto skip11a bra p8l_skip11a ; source: test_word_splitw_equalities.p8:2343 lbl11a: fail_word(193,170) p8l_lbl11a lda #<$c1 ldy #>$c1 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2344 skip11a: p8l_skip11a ; source: test_word_splitw_equalities.p8:2346 cx16.r3 = &lbl11b lda #p8l_lbl11b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2347 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2349 goto skip11b bra p8l_skip11b ; source: test_word_splitw_equalities.p8:2350 lbl11b: fail_word(194,170) p8l_lbl11b lda #<$c2 ldy #>$c2 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2351 skip11b: p8l_skip11b ; source: test_word_splitw_equalities.p8:2353 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_285_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_285_afterif ; source: test_word_splitw_equalities.p8:2354 fail_word(195,170) lda #<$c3 ldy #>$c3 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_285_afterif ; source: test_word_splitw_equalities.p8:2357 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_287_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_287_else ; source: test_word_splitw_equalities.p8:2358 fail_word(196,170) lda #<$c4 ldy #>$c4 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_286_afterif label_asm_287_else ; source: test_word_splitw_equalities.p8:2360 cx16.r0L++ inc cx16.r0L label_asm_286_afterif ; source: test_word_splitw_equalities.p8:2363 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl12a + ; source: test_word_splitw_equalities.p8:2365 goto skip12a bra p8l_skip12a ; source: test_word_splitw_equalities.p8:2366 lbl12a: fail_word(197,170) p8l_lbl12a lda #<$c5 ldy #>$c5 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2367 skip12a: p8l_skip12a ; source: test_word_splitw_equalities.p8:2369 cx16.r3 = &lbl12b lda #p8l_lbl12b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2370 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2372 goto skip12b bra p8l_skip12b ; source: test_word_splitw_equalities.p8:2373 lbl12b: fail_word(198,170) p8l_lbl12b lda #<$c6 ldy #>$c6 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2374 skip12b: p8l_skip12b ; source: test_word_splitw_equalities.p8:2376 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_288_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_288_afterif ; source: test_word_splitw_equalities.p8:2377 fail_word(199,170) lda #<$c7 ldy #>$c7 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_288_afterif ; source: test_word_splitw_equalities.p8:2380 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_290_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_290_else ; source: test_word_splitw_equalities.p8:2381 fail_word(200,170) lda #<$c8 ldy #>$c8 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_289_afterif label_asm_290_else ; source: test_word_splitw_equalities.p8:2383 cx16.r0L++ inc cx16.r0L label_asm_289_afterif ; source: test_word_splitw_equalities.p8:2385 sources[1]=30464 ldy #1 lda #<$7700 sta p8v_sources_lsb,y lda #>$7700 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2387 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl13a + ; source: test_word_splitw_equalities.p8:2389 goto skip13a bra p8l_skip13a ; source: test_word_splitw_equalities.p8:2390 lbl13a: fail_word(201,30464) p8l_lbl13a lda #<$c9 ldy #>$c9 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2391 skip13a: p8l_skip13a ; source: test_word_splitw_equalities.p8:2393 cx16.r3 = &lbl13b lda #p8l_lbl13b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2394 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2396 goto skip13b bra p8l_skip13b ; source: test_word_splitw_equalities.p8:2397 lbl13b: fail_word(202,30464) p8l_lbl13b lda #<$ca ldy #>$ca sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2398 skip13b: p8l_skip13b ; source: test_word_splitw_equalities.p8:2400 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_291_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_291_afterif ; source: test_word_splitw_equalities.p8:2401 fail_word(203,30464) lda #<$cb ldy #>$cb sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_291_afterif ; source: test_word_splitw_equalities.p8:2404 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_293_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_293_else ; source: test_word_splitw_equalities.p8:2405 fail_word(204,30464) lda #<$cc ldy #>$cc sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_292_afterif label_asm_293_else ; source: test_word_splitw_equalities.p8:2407 cx16.r0L++ inc cx16.r0L label_asm_292_afterif ; source: test_word_splitw_equalities.p8:2410 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl14a + ; source: test_word_splitw_equalities.p8:2412 goto skip14a bra p8l_skip14a ; source: test_word_splitw_equalities.p8:2413 lbl14a: fail_word(205,30464) p8l_lbl14a lda #<$cd ldy #>$cd sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2414 skip14a: p8l_skip14a ; source: test_word_splitw_equalities.p8:2416 cx16.r3 = &lbl14b lda #p8l_lbl14b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2417 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2419 goto skip14b bra p8l_skip14b ; source: test_word_splitw_equalities.p8:2420 lbl14b: fail_word(206,30464) p8l_lbl14b lda #<$ce ldy #>$ce sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2421 skip14b: p8l_skip14b ; source: test_word_splitw_equalities.p8:2423 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_294_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_294_afterif ; source: test_word_splitw_equalities.p8:2424 fail_word(207,30464) lda #<$cf ldy #>$cf sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_294_afterif ; source: test_word_splitw_equalities.p8:2427 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_296_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_296_else ; source: test_word_splitw_equalities.p8:2428 fail_word(208,30464) lda #<$d0 ldy #>$d0 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_295_afterif label_asm_296_else ; source: test_word_splitw_equalities.p8:2430 cx16.r0L++ inc cx16.r0L label_asm_295_afterif ; source: test_word_splitw_equalities.p8:2433 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl15a + ; source: test_word_splitw_equalities.p8:2435 goto skip15a bra p8l_skip15a ; source: test_word_splitw_equalities.p8:2436 lbl15a: success++ p8l_lbl15a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2437 skip15a: p8l_skip15a ; source: test_word_splitw_equalities.p8:2439 cx16.r3 = &lbl15b lda #p8l_lbl15b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2440 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2442 goto skip15b bra p8l_skip15b ; source: test_word_splitw_equalities.p8:2443 lbl15b: success++ p8l_lbl15b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2444 skip15b: p8l_skip15b ; source: test_word_splitw_equalities.p8:2446 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_297_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_297_afterif ; source: test_word_splitw_equalities.p8:2447 success++ inc p8b_main.p8v_success label_asm_297_afterif ; source: test_word_splitw_equalities.p8:2450 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_299_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_299_else ; source: test_word_splitw_equalities.p8:2451 success++ inc p8b_main.p8v_success bra label_asm_298_afterif label_asm_299_else ; source: test_word_splitw_equalities.p8:2453 cx16.r0L++ inc cx16.r0L label_asm_298_afterif ; source: test_word_splitw_equalities.p8:2456 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl16a + ; source: test_word_splitw_equalities.p8:2458 goto skip16a bra p8l_skip16a ; source: test_word_splitw_equalities.p8:2459 lbl16a: fail_word(209,30464) p8l_lbl16a lda #<$d1 ldy #>$d1 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2460 skip16a: p8l_skip16a ; source: test_word_splitw_equalities.p8:2462 cx16.r3 = &lbl16b lda #p8l_lbl16b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2463 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2465 goto skip16b bra p8l_skip16b ; source: test_word_splitw_equalities.p8:2466 lbl16b: fail_word(210,30464) p8l_lbl16b lda #<$d2 ldy #>$d2 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2467 skip16b: p8l_skip16b ; source: test_word_splitw_equalities.p8:2469 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_300_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_300_afterif ; source: test_word_splitw_equalities.p8:2470 fail_word(211,30464) lda #<$d3 ldy #>$d3 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_300_afterif ; source: test_word_splitw_equalities.p8:2473 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_302_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_302_else ; source: test_word_splitw_equalities.p8:2474 fail_word(212,30464) lda #<$d4 ldy #>$d4 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_301_afterif label_asm_302_else ; source: test_word_splitw_equalities.p8:2476 cx16.r0L++ inc cx16.r0L label_asm_301_afterif ; source: test_word_splitw_equalities.p8:2478 sources[1]=32767 ldy #1 lda #<$7fff sta p8v_sources_lsb,y lda #>$7fff sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2480 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl17a + ; source: test_word_splitw_equalities.p8:2482 goto skip17a bra p8l_skip17a ; source: test_word_splitw_equalities.p8:2483 lbl17a: fail_word(213,32767) p8l_lbl17a lda #<$d5 ldy #>$d5 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2484 skip17a: p8l_skip17a ; source: test_word_splitw_equalities.p8:2486 cx16.r3 = &lbl17b lda #p8l_lbl17b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2487 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2489 goto skip17b bra p8l_skip17b ; source: test_word_splitw_equalities.p8:2490 lbl17b: fail_word(214,32767) p8l_lbl17b lda #<$d6 ldy #>$d6 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2491 skip17b: p8l_skip17b ; source: test_word_splitw_equalities.p8:2493 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_303_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_303_afterif ; source: test_word_splitw_equalities.p8:2494 fail_word(215,32767) lda #<$d7 ldy #>$d7 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_303_afterif ; source: test_word_splitw_equalities.p8:2497 if sources[1]==cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_305_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_305_else ; source: test_word_splitw_equalities.p8:2498 fail_word(216,32767) lda #<$d8 ldy #>$d8 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_304_afterif label_asm_305_else ; source: test_word_splitw_equalities.p8:2500 cx16.r0L++ inc cx16.r0L label_asm_304_afterif ; source: test_word_splitw_equalities.p8:2503 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl18a + ; source: test_word_splitw_equalities.p8:2505 goto skip18a bra p8l_skip18a ; source: test_word_splitw_equalities.p8:2506 lbl18a: fail_word(217,32767) p8l_lbl18a lda #<$d9 ldy #>$d9 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2507 skip18a: p8l_skip18a ; source: test_word_splitw_equalities.p8:2509 cx16.r3 = &lbl18b lda #p8l_lbl18b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2510 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2512 goto skip18b bra p8l_skip18b ; source: test_word_splitw_equalities.p8:2513 lbl18b: fail_word(218,32767) p8l_lbl18b lda #<$da ldy #>$da sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2514 skip18b: p8l_skip18b ; source: test_word_splitw_equalities.p8:2516 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_306_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_306_afterif ; source: test_word_splitw_equalities.p8:2517 fail_word(219,32767) lda #<$db ldy #>$db sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_306_afterif ; source: test_word_splitw_equalities.p8:2520 if sources[1]==cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_308_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_308_else ; source: test_word_splitw_equalities.p8:2521 fail_word(220,32767) lda #<$dc ldy #>$dc sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_307_afterif label_asm_308_else ; source: test_word_splitw_equalities.p8:2523 cx16.r0L++ inc cx16.r0L label_asm_307_afterif ; source: test_word_splitw_equalities.p8:2526 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl19a + ; source: test_word_splitw_equalities.p8:2528 goto skip19a bra p8l_skip19a ; source: test_word_splitw_equalities.p8:2529 lbl19a: fail_word(221,32767) p8l_lbl19a lda #<$dd ldy #>$dd sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2530 skip19a: p8l_skip19a ; source: test_word_splitw_equalities.p8:2532 cx16.r3 = &lbl19b lda #p8l_lbl19b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2533 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2535 goto skip19b bra p8l_skip19b ; source: test_word_splitw_equalities.p8:2536 lbl19b: fail_word(222,32767) p8l_lbl19b lda #<$de ldy #>$de sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2537 skip19b: p8l_skip19b ; source: test_word_splitw_equalities.p8:2539 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_309_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_309_afterif ; source: test_word_splitw_equalities.p8:2540 fail_word(223,32767) lda #<$df ldy #>$df sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_309_afterif ; source: test_word_splitw_equalities.p8:2543 if sources[1]==cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_311_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_311_else ; source: test_word_splitw_equalities.p8:2544 fail_word(224,32767) lda #<$e0 ldy #>$e0 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_310_afterif label_asm_311_else ; source: test_word_splitw_equalities.p8:2546 cx16.r0L++ inc cx16.r0L label_asm_310_afterif ; source: test_word_splitw_equalities.p8:2549 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq p8l_lbl20a + ; source: test_word_splitw_equalities.p8:2551 goto skip20a bra p8l_skip20a ; source: test_word_splitw_equalities.p8:2552 lbl20a: success++ p8l_lbl20a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2553 skip20a: p8l_skip20a ; source: test_word_splitw_equalities.p8:2555 cx16.r3 = &lbl20b lda #p8l_lbl20b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2556 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2558 goto skip20b bra p8l_skip20b ; source: test_word_splitw_equalities.p8:2559 lbl20b: success++ p8l_lbl20b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2560 skip20b: p8l_skip20b ; source: test_word_splitw_equalities.p8:2562 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_312_afterif cpy P8ZP_SCRATCH_W1+1 bne label_asm_312_afterif ; source: test_word_splitw_equalities.p8:2563 success++ inc p8b_main.p8v_success label_asm_312_afterif ; source: test_word_splitw_equalities.p8:2566 if sources[1]==cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne label_asm_314_else cpy P8ZP_SCRATCH_W1+1 bne label_asm_314_else ; source: test_word_splitw_equalities.p8:2567 success++ inc p8b_main.p8v_success bra label_asm_313_afterif label_asm_314_else ; source: test_word_splitw_equalities.p8:2569 cx16.r0L++ inc cx16.r0L label_asm_313_afterif ; source: test_word_splitw_equalities.p8:2571 verify_success(16) lda #$10 jmp p8b_main.p8s_verify_success ; source: test_word_splitw_equalities.p8:2101 sub test_is_expr() { ; variables .section BSS .send BSS ; non-zeropage variables _array_p8v_sources := $270f, $270f p8v_sources_lsb .byte <_array_p8v_sources p8v_sources_msb .byte >_array_p8v_sources .pend ; source: test_word_splitw_equalities.p8:2573 sub test_not_expr() { p8s_test_not_expr .proc ; statements ; source: test_word_splitw_equalities.p8:2574 word[] @split sources = [9999, 9999] ; source: test_word_splitw_equalities.p8:2575 cx16.r4 = 1 lda #<1 ldy #>1 sta cx16.r4 sty cx16.r4+1 ; source: test_word_splitw_equalities.p8:2576 cx16.r5 = 1 sta cx16.r5 sty cx16.r5+1 ; source: test_word_splitw_equalities.p8:2577 success = 0 stz p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2578 sources[1]=-21829 ldy #1 lda #<-$5545 sta p8v_sources_lsb,y lda #>-$5545 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2580 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl1a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl1a ; source: test_word_splitw_equalities.p8:2582 goto skip1a bra p8l_skip1a ; source: test_word_splitw_equalities.p8:2583 lbl1a: fail_word(225,-21829) p8l_lbl1a lda #<$e1 ldy #>$e1 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2584 skip1a: p8l_skip1a ; source: test_word_splitw_equalities.p8:2586 cx16.r3 = &lbl1b lda #p8l_lbl1b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2587 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2589 goto skip1b bra p8l_skip1b ; source: test_word_splitw_equalities.p8:2590 lbl1b: fail_word(226,-21829) p8l_lbl1b lda #<$e2 ldy #>$e2 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2591 skip1b: p8l_skip1b ; source: test_word_splitw_equalities.p8:2593 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_315_afterif + ; source: test_word_splitw_equalities.p8:2594 fail_word(227,-21829) lda #<$e3 ldy #>$e3 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_315_afterif ; source: test_word_splitw_equalities.p8:2597 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_317_else + ; source: test_word_splitw_equalities.p8:2598 fail_word(228,-21829) lda #<$e4 ldy #>$e4 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_316_afterif label_asm_317_else ; source: test_word_splitw_equalities.p8:2600 cx16.r0L++ inc cx16.r0L label_asm_316_afterif ; source: test_word_splitw_equalities.p8:2603 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl2a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl2a ; source: test_word_splitw_equalities.p8:2605 goto skip2a bra p8l_skip2a ; source: test_word_splitw_equalities.p8:2606 lbl2a: success++ p8l_lbl2a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2607 skip2a: p8l_skip2a ; source: test_word_splitw_equalities.p8:2609 cx16.r3 = &lbl2b lda #p8l_lbl2b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2610 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2612 goto skip2b bra p8l_skip2b ; source: test_word_splitw_equalities.p8:2613 lbl2b: success++ p8l_lbl2b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2614 skip2b: p8l_skip2b ; source: test_word_splitw_equalities.p8:2616 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_318_afterif + ; source: test_word_splitw_equalities.p8:2617 success++ inc p8b_main.p8v_success label_asm_318_afterif ; source: test_word_splitw_equalities.p8:2620 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_320_else + ; source: test_word_splitw_equalities.p8:2621 success++ inc p8b_main.p8v_success bra label_asm_319_afterif label_asm_320_else ; source: test_word_splitw_equalities.p8:2623 cx16.r0L++ inc cx16.r0L label_asm_319_afterif ; source: test_word_splitw_equalities.p8:2626 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl3a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl3a ; source: test_word_splitw_equalities.p8:2628 goto skip3a bra p8l_skip3a ; source: test_word_splitw_equalities.p8:2629 lbl3a: success++ p8l_lbl3a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2630 skip3a: p8l_skip3a ; source: test_word_splitw_equalities.p8:2632 cx16.r3 = &lbl3b lda #p8l_lbl3b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2633 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2635 goto skip3b bra p8l_skip3b ; source: test_word_splitw_equalities.p8:2636 lbl3b: success++ p8l_lbl3b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2637 skip3b: p8l_skip3b ; source: test_word_splitw_equalities.p8:2639 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_321_afterif + ; source: test_word_splitw_equalities.p8:2640 success++ inc p8b_main.p8v_success label_asm_321_afterif ; source: test_word_splitw_equalities.p8:2643 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_323_else + ; source: test_word_splitw_equalities.p8:2644 success++ inc p8b_main.p8v_success bra label_asm_322_afterif label_asm_323_else ; source: test_word_splitw_equalities.p8:2646 cx16.r0L++ inc cx16.r0L label_asm_322_afterif ; source: test_word_splitw_equalities.p8:2649 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl4a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl4a ; source: test_word_splitw_equalities.p8:2651 goto skip4a bra p8l_skip4a ; source: test_word_splitw_equalities.p8:2652 lbl4a: success++ p8l_lbl4a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2653 skip4a: p8l_skip4a ; source: test_word_splitw_equalities.p8:2655 cx16.r3 = &lbl4b lda #p8l_lbl4b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2656 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2658 goto skip4b bra p8l_skip4b ; source: test_word_splitw_equalities.p8:2659 lbl4b: success++ p8l_lbl4b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2660 skip4b: p8l_skip4b ; source: test_word_splitw_equalities.p8:2662 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_324_afterif + ; source: test_word_splitw_equalities.p8:2663 success++ inc p8b_main.p8v_success label_asm_324_afterif ; source: test_word_splitw_equalities.p8:2666 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_326_else + ; source: test_word_splitw_equalities.p8:2667 success++ inc p8b_main.p8v_success bra label_asm_325_afterif label_asm_326_else ; source: test_word_splitw_equalities.p8:2669 cx16.r0L++ inc cx16.r0L label_asm_325_afterif ; source: test_word_splitw_equalities.p8:2671 sources[1]=0 ldy #1 lda #0 sta p8v_sources_lsb,y sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2673 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl5a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl5a ; source: test_word_splitw_equalities.p8:2675 goto skip5a bra p8l_skip5a ; source: test_word_splitw_equalities.p8:2676 lbl5a: success++ p8l_lbl5a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2677 skip5a: p8l_skip5a ; source: test_word_splitw_equalities.p8:2679 cx16.r3 = &lbl5b lda #p8l_lbl5b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2680 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2682 goto skip5b bra p8l_skip5b ; source: test_word_splitw_equalities.p8:2683 lbl5b: success++ p8l_lbl5b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2684 skip5b: p8l_skip5b ; source: test_word_splitw_equalities.p8:2686 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_327_afterif + ; source: test_word_splitw_equalities.p8:2687 success++ inc p8b_main.p8v_success label_asm_327_afterif ; source: test_word_splitw_equalities.p8:2690 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_329_else + ; source: test_word_splitw_equalities.p8:2691 success++ inc p8b_main.p8v_success bra label_asm_328_afterif label_asm_329_else ; source: test_word_splitw_equalities.p8:2693 cx16.r0L++ inc cx16.r0L label_asm_328_afterif ; source: test_word_splitw_equalities.p8:2696 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl6a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl6a ; source: test_word_splitw_equalities.p8:2698 goto skip6a bra p8l_skip6a ; source: test_word_splitw_equalities.p8:2699 lbl6a: success++ p8l_lbl6a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2700 skip6a: p8l_skip6a ; source: test_word_splitw_equalities.p8:2702 cx16.r3 = &lbl6b lda #p8l_lbl6b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2703 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2705 goto skip6b bra p8l_skip6b ; source: test_word_splitw_equalities.p8:2706 lbl6b: success++ p8l_lbl6b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2707 skip6b: p8l_skip6b ; source: test_word_splitw_equalities.p8:2709 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_330_afterif + ; source: test_word_splitw_equalities.p8:2710 success++ inc p8b_main.p8v_success label_asm_330_afterif ; source: test_word_splitw_equalities.p8:2713 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_332_else + ; source: test_word_splitw_equalities.p8:2714 success++ inc p8b_main.p8v_success bra label_asm_331_afterif label_asm_332_else ; source: test_word_splitw_equalities.p8:2716 cx16.r0L++ inc cx16.r0L label_asm_331_afterif ; source: test_word_splitw_equalities.p8:2719 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl7a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl7a ; source: test_word_splitw_equalities.p8:2721 goto skip7a bra p8l_skip7a ; source: test_word_splitw_equalities.p8:2722 lbl7a: success++ p8l_lbl7a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2723 skip7a: p8l_skip7a ; source: test_word_splitw_equalities.p8:2725 cx16.r3 = &lbl7b lda #p8l_lbl7b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2726 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2728 goto skip7b bra p8l_skip7b ; source: test_word_splitw_equalities.p8:2729 lbl7b: success++ p8l_lbl7b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2730 skip7b: p8l_skip7b ; source: test_word_splitw_equalities.p8:2732 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_333_afterif + ; source: test_word_splitw_equalities.p8:2733 success++ inc p8b_main.p8v_success label_asm_333_afterif ; source: test_word_splitw_equalities.p8:2736 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_335_else + ; source: test_word_splitw_equalities.p8:2737 success++ inc p8b_main.p8v_success bra label_asm_334_afterif label_asm_335_else ; source: test_word_splitw_equalities.p8:2739 cx16.r0L++ inc cx16.r0L label_asm_334_afterif ; source: test_word_splitw_equalities.p8:2742 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl8a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl8a ; source: test_word_splitw_equalities.p8:2744 goto skip8a bra p8l_skip8a ; source: test_word_splitw_equalities.p8:2745 lbl8a: success++ p8l_lbl8a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2746 skip8a: p8l_skip8a ; source: test_word_splitw_equalities.p8:2748 cx16.r3 = &lbl8b lda #p8l_lbl8b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2749 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2751 goto skip8b bra p8l_skip8b ; source: test_word_splitw_equalities.p8:2752 lbl8b: success++ p8l_lbl8b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2753 skip8b: p8l_skip8b ; source: test_word_splitw_equalities.p8:2755 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_336_afterif + ; source: test_word_splitw_equalities.p8:2756 success++ inc p8b_main.p8v_success label_asm_336_afterif ; source: test_word_splitw_equalities.p8:2759 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_338_else + ; source: test_word_splitw_equalities.p8:2760 success++ inc p8b_main.p8v_success bra label_asm_337_afterif label_asm_338_else ; source: test_word_splitw_equalities.p8:2762 cx16.r0L++ inc cx16.r0L label_asm_337_afterif ; source: test_word_splitw_equalities.p8:2764 sources[1]=170 ldy #1 lda #<$aa sta p8v_sources_lsb,y lda #>$aa sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2766 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl9a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl9a ; source: test_word_splitw_equalities.p8:2768 goto skip9a bra p8l_skip9a ; source: test_word_splitw_equalities.p8:2769 lbl9a: success++ p8l_lbl9a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2770 skip9a: p8l_skip9a ; source: test_word_splitw_equalities.p8:2772 cx16.r3 = &lbl9b lda #p8l_lbl9b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2773 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2775 goto skip9b bra p8l_skip9b ; source: test_word_splitw_equalities.p8:2776 lbl9b: success++ p8l_lbl9b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2777 skip9b: p8l_skip9b ; source: test_word_splitw_equalities.p8:2779 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_339_afterif + ; source: test_word_splitw_equalities.p8:2780 success++ inc p8b_main.p8v_success label_asm_339_afterif ; source: test_word_splitw_equalities.p8:2783 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_341_else + ; source: test_word_splitw_equalities.p8:2784 success++ inc p8b_main.p8v_success bra label_asm_340_afterif label_asm_341_else ; source: test_word_splitw_equalities.p8:2786 cx16.r0L++ inc cx16.r0L label_asm_340_afterif ; source: test_word_splitw_equalities.p8:2789 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl10a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl10a ; source: test_word_splitw_equalities.p8:2791 goto skip10a bra p8l_skip10a ; source: test_word_splitw_equalities.p8:2792 lbl10a: fail_word(229,170) p8l_lbl10a lda #<$e5 ldy #>$e5 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2793 skip10a: p8l_skip10a ; source: test_word_splitw_equalities.p8:2795 cx16.r3 = &lbl10b lda #p8l_lbl10b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2796 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2798 goto skip10b bra p8l_skip10b ; source: test_word_splitw_equalities.p8:2799 lbl10b: fail_word(230,170) p8l_lbl10b lda #<$e6 ldy #>$e6 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2800 skip10b: p8l_skip10b ; source: test_word_splitw_equalities.p8:2802 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_342_afterif + ; source: test_word_splitw_equalities.p8:2803 fail_word(231,170) lda #<$e7 ldy #>$e7 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_342_afterif ; source: test_word_splitw_equalities.p8:2806 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_344_else + ; source: test_word_splitw_equalities.p8:2807 fail_word(232,170) lda #<$e8 ldy #>$e8 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_343_afterif label_asm_344_else ; source: test_word_splitw_equalities.p8:2809 cx16.r0L++ inc cx16.r0L label_asm_343_afterif ; source: test_word_splitw_equalities.p8:2812 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl11a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl11a ; source: test_word_splitw_equalities.p8:2814 goto skip11a bra p8l_skip11a ; source: test_word_splitw_equalities.p8:2815 lbl11a: success++ p8l_lbl11a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2816 skip11a: p8l_skip11a ; source: test_word_splitw_equalities.p8:2818 cx16.r3 = &lbl11b lda #p8l_lbl11b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2819 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2821 goto skip11b bra p8l_skip11b ; source: test_word_splitw_equalities.p8:2822 lbl11b: success++ p8l_lbl11b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2823 skip11b: p8l_skip11b ; source: test_word_splitw_equalities.p8:2825 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_345_afterif + ; source: test_word_splitw_equalities.p8:2826 success++ inc p8b_main.p8v_success label_asm_345_afterif ; source: test_word_splitw_equalities.p8:2829 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_347_else + ; source: test_word_splitw_equalities.p8:2830 success++ inc p8b_main.p8v_success bra label_asm_346_afterif label_asm_347_else ; source: test_word_splitw_equalities.p8:2832 cx16.r0L++ inc cx16.r0L label_asm_346_afterif ; source: test_word_splitw_equalities.p8:2835 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl12a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl12a ; source: test_word_splitw_equalities.p8:2837 goto skip12a bra p8l_skip12a ; source: test_word_splitw_equalities.p8:2838 lbl12a: success++ p8l_lbl12a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2839 skip12a: p8l_skip12a ; source: test_word_splitw_equalities.p8:2841 cx16.r3 = &lbl12b lda #p8l_lbl12b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2842 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2844 goto skip12b bra p8l_skip12b ; source: test_word_splitw_equalities.p8:2845 lbl12b: success++ p8l_lbl12b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2846 skip12b: p8l_skip12b ; source: test_word_splitw_equalities.p8:2848 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_348_afterif + ; source: test_word_splitw_equalities.p8:2849 success++ inc p8b_main.p8v_success label_asm_348_afterif ; source: test_word_splitw_equalities.p8:2852 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_350_else + ; source: test_word_splitw_equalities.p8:2853 success++ inc p8b_main.p8v_success bra label_asm_349_afterif label_asm_350_else ; source: test_word_splitw_equalities.p8:2855 cx16.r0L++ inc cx16.r0L label_asm_349_afterif ; source: test_word_splitw_equalities.p8:2857 sources[1]=30464 ldy #1 lda #<$7700 sta p8v_sources_lsb,y lda #>$7700 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2859 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl13a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl13a ; source: test_word_splitw_equalities.p8:2861 goto skip13a bra p8l_skip13a ; source: test_word_splitw_equalities.p8:2862 lbl13a: success++ p8l_lbl13a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2863 skip13a: p8l_skip13a ; source: test_word_splitw_equalities.p8:2865 cx16.r3 = &lbl13b lda #p8l_lbl13b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2866 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2868 goto skip13b bra p8l_skip13b ; source: test_word_splitw_equalities.p8:2869 lbl13b: success++ p8l_lbl13b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2870 skip13b: p8l_skip13b ; source: test_word_splitw_equalities.p8:2872 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_351_afterif + ; source: test_word_splitw_equalities.p8:2873 success++ inc p8b_main.p8v_success label_asm_351_afterif ; source: test_word_splitw_equalities.p8:2876 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_353_else + ; source: test_word_splitw_equalities.p8:2877 success++ inc p8b_main.p8v_success bra label_asm_352_afterif label_asm_353_else ; source: test_word_splitw_equalities.p8:2879 cx16.r0L++ inc cx16.r0L label_asm_352_afterif ; source: test_word_splitw_equalities.p8:2882 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl14a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl14a ; source: test_word_splitw_equalities.p8:2884 goto skip14a bra p8l_skip14a ; source: test_word_splitw_equalities.p8:2885 lbl14a: success++ p8l_lbl14a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2886 skip14a: p8l_skip14a ; source: test_word_splitw_equalities.p8:2888 cx16.r3 = &lbl14b lda #p8l_lbl14b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2889 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2891 goto skip14b bra p8l_skip14b ; source: test_word_splitw_equalities.p8:2892 lbl14b: success++ p8l_lbl14b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2893 skip14b: p8l_skip14b ; source: test_word_splitw_equalities.p8:2895 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_354_afterif + ; source: test_word_splitw_equalities.p8:2896 success++ inc p8b_main.p8v_success label_asm_354_afterif ; source: test_word_splitw_equalities.p8:2899 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_356_else + ; source: test_word_splitw_equalities.p8:2900 success++ inc p8b_main.p8v_success bra label_asm_355_afterif label_asm_356_else ; source: test_word_splitw_equalities.p8:2902 cx16.r0L++ inc cx16.r0L label_asm_355_afterif ; source: test_word_splitw_equalities.p8:2905 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl15a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl15a ; source: test_word_splitw_equalities.p8:2907 goto skip15a bra p8l_skip15a ; source: test_word_splitw_equalities.p8:2908 lbl15a: fail_word(233,30464) p8l_lbl15a lda #<$e9 ldy #>$e9 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2909 skip15a: p8l_skip15a ; source: test_word_splitw_equalities.p8:2911 cx16.r3 = &lbl15b lda #p8l_lbl15b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2912 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2914 goto skip15b bra p8l_skip15b ; source: test_word_splitw_equalities.p8:2915 lbl15b: fail_word(234,30464) p8l_lbl15b lda #<$ea ldy #>$ea sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:2916 skip15b: p8l_skip15b ; source: test_word_splitw_equalities.p8:2918 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_357_afterif + ; source: test_word_splitw_equalities.p8:2919 fail_word(235,30464) lda #<$eb ldy #>$eb sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_357_afterif ; source: test_word_splitw_equalities.p8:2922 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_359_else + ; source: test_word_splitw_equalities.p8:2923 fail_word(236,30464) lda #<$ec ldy #>$ec sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_358_afterif label_asm_359_else ; source: test_word_splitw_equalities.p8:2925 cx16.r0L++ inc cx16.r0L label_asm_358_afterif ; source: test_word_splitw_equalities.p8:2928 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl16a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl16a ; source: test_word_splitw_equalities.p8:2930 goto skip16a bra p8l_skip16a ; source: test_word_splitw_equalities.p8:2931 lbl16a: success++ p8l_lbl16a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2932 skip16a: p8l_skip16a ; source: test_word_splitw_equalities.p8:2934 cx16.r3 = &lbl16b lda #p8l_lbl16b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2935 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2937 goto skip16b bra p8l_skip16b ; source: test_word_splitw_equalities.p8:2938 lbl16b: success++ p8l_lbl16b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2939 skip16b: p8l_skip16b ; source: test_word_splitw_equalities.p8:2941 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_360_afterif + ; source: test_word_splitw_equalities.p8:2942 success++ inc p8b_main.p8v_success label_asm_360_afterif ; source: test_word_splitw_equalities.p8:2945 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_362_else + ; source: test_word_splitw_equalities.p8:2946 success++ inc p8b_main.p8v_success bra label_asm_361_afterif label_asm_362_else ; source: test_word_splitw_equalities.p8:2948 cx16.r0L++ inc cx16.r0L label_asm_361_afterif ; source: test_word_splitw_equalities.p8:2950 sources[1]=32767 ldy #1 lda #<$7fff sta p8v_sources_lsb,y lda #>$7fff sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:2952 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl17a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl17a ; source: test_word_splitw_equalities.p8:2954 goto skip17a bra p8l_skip17a ; source: test_word_splitw_equalities.p8:2955 lbl17a: success++ p8l_lbl17a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2956 skip17a: p8l_skip17a ; source: test_word_splitw_equalities.p8:2958 cx16.r3 = &lbl17b lda #p8l_lbl17b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2959 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2961 goto skip17b bra p8l_skip17b ; source: test_word_splitw_equalities.p8:2962 lbl17b: success++ p8l_lbl17b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2963 skip17b: p8l_skip17b ; source: test_word_splitw_equalities.p8:2965 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_363_afterif + ; source: test_word_splitw_equalities.p8:2966 success++ inc p8b_main.p8v_success label_asm_363_afterif ; source: test_word_splitw_equalities.p8:2969 if sources[1]!=cx16.r4s+-21829-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s sec sbc #<$5545 tax tya sbc #>$5545 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_365_else + ; source: test_word_splitw_equalities.p8:2970 success++ inc p8b_main.p8v_success bra label_asm_364_afterif label_asm_365_else ; source: test_word_splitw_equalities.p8:2972 cx16.r0L++ inc cx16.r0L label_asm_364_afterif ; source: test_word_splitw_equalities.p8:2975 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl18a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl18a ; source: test_word_splitw_equalities.p8:2977 goto skip18a bra p8l_skip18a ; source: test_word_splitw_equalities.p8:2978 lbl18a: success++ p8l_lbl18a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2979 skip18a: p8l_skip18a ; source: test_word_splitw_equalities.p8:2981 cx16.r3 = &lbl18b lda #p8l_lbl18b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:2982 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:2984 goto skip18b bra p8l_skip18b ; source: test_word_splitw_equalities.p8:2985 lbl18b: success++ p8l_lbl18b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:2986 skip18b: p8l_skip18b ; source: test_word_splitw_equalities.p8:2988 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_366_afterif + ; source: test_word_splitw_equalities.p8:2989 success++ inc p8b_main.p8v_success label_asm_366_afterif ; source: test_word_splitw_equalities.p8:2992 if sources[1]!=cx16.r4s+170-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$aa tax tya adc #>$aa tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_368_else + ; source: test_word_splitw_equalities.p8:2993 success++ inc p8b_main.p8v_success bra label_asm_367_afterif label_asm_368_else ; source: test_word_splitw_equalities.p8:2995 cx16.r0L++ inc cx16.r0L label_asm_367_afterif ; source: test_word_splitw_equalities.p8:2998 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl19a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl19a ; source: test_word_splitw_equalities.p8:3000 goto skip19a bra p8l_skip19a ; source: test_word_splitw_equalities.p8:3001 lbl19a: success++ p8l_lbl19a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3002 skip19a: p8l_skip19a ; source: test_word_splitw_equalities.p8:3004 cx16.r3 = &lbl19b lda #p8l_lbl19b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3005 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3007 goto skip19b bra p8l_skip19b ; source: test_word_splitw_equalities.p8:3008 lbl19b: success++ p8l_lbl19b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3009 skip19b: p8l_skip19b ; source: test_word_splitw_equalities.p8:3011 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_369_afterif + ; source: test_word_splitw_equalities.p8:3012 success++ inc p8b_main.p8v_success label_asm_369_afterif ; source: test_word_splitw_equalities.p8:3015 if sources[1]!=cx16.r4s+30464-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7700 tax tya adc #>$7700 tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_371_else + ; source: test_word_splitw_equalities.p8:3016 success++ inc p8b_main.p8v_success bra label_asm_370_afterif label_asm_371_else ; source: test_word_splitw_equalities.p8:3018 cx16.r0L++ inc cx16.r0L label_asm_370_afterif ; source: test_word_splitw_equalities.p8:3021 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne p8l_lbl20a cpy P8ZP_SCRATCH_W1+1 bne p8l_lbl20a ; source: test_word_splitw_equalities.p8:3023 goto skip20a bra p8l_skip20a ; source: test_word_splitw_equalities.p8:3024 lbl20a: fail_word(237,32767) p8l_lbl20a lda #<$ed ldy #>$ed sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3025 skip20a: p8l_skip20a ; source: test_word_splitw_equalities.p8:3027 cx16.r3 = &lbl20b lda #p8l_lbl20b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3028 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3030 goto skip20b bra p8l_skip20b ; source: test_word_splitw_equalities.p8:3031 lbl20b: fail_word(238,32767) p8l_lbl20b lda #<$ee ldy #>$ee sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3032 skip20b: p8l_skip20b ; source: test_word_splitw_equalities.p8:3034 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_372_afterif + ; source: test_word_splitw_equalities.p8:3035 fail_word(239,32767) lda #<$ef ldy #>$ef sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_372_afterif ; source: test_word_splitw_equalities.p8:3038 if sources[1]!=cx16.r4s+32767-cx16.r5s ldy cx16.r4s+1 lda cx16.r4s clc adc #<$7fff tax tya adc #>$7fff tay txa sec sbc cx16.r5s tax tya sbc cx16.r5s+1 tay txa pha phy lda p8v_sources_lsb+1 ldy p8v_sources_msb+1 sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ply pla cmp P8ZP_SCRATCH_W1 bne + cpy P8ZP_SCRATCH_W1+1 beq label_asm_374_else + ; source: test_word_splitw_equalities.p8:3039 fail_word(240,32767) lda #<$f0 ldy #>$f0 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_373_afterif label_asm_374_else ; source: test_word_splitw_equalities.p8:3041 cx16.r0L++ inc cx16.r0L label_asm_373_afterif ; source: test_word_splitw_equalities.p8:3043 verify_success(64) lda #$40 jmp p8b_main.p8s_verify_success ; source: test_word_splitw_equalities.p8:2573 sub test_not_expr() { ; variables .section BSS .send BSS ; non-zeropage variables _array_p8v_sources := $270f, $270f p8v_sources_lsb .byte <_array_p8v_sources p8v_sources_msb .byte >_array_p8v_sources .pend ; source: test_word_splitw_equalities.p8:3045 sub test_is_array_splitw() { p8s_test_is_array_splitw .proc ; statements ; source: test_word_splitw_equalities.p8:3047 word[] @split values = [9999, 8888] ; source: test_word_splitw_equalities.p8:3048 word[] @split sources = [9999, 8888] ; source: test_word_splitw_equalities.p8:3049 success = 0 stz p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3050 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3051 sources[1]=-21829 ldy #1 lda #<-$5545 sta p8v_sources_lsb,y lda #>-$5545 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:3052 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3054 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl1a + ; source: test_word_splitw_equalities.p8:3056 goto skip1a bra p8l_skip1a ; source: test_word_splitw_equalities.p8:3057 lbl1a: success++ p8l_lbl1a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3058 skip1a: p8l_skip1a ; source: test_word_splitw_equalities.p8:3060 cx16.r3 = &lbl1b lda #p8l_lbl1b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3061 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3063 goto skip1b bra p8l_skip1b ; source: test_word_splitw_equalities.p8:3064 lbl1b: success++ p8l_lbl1b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3065 skip1b: p8l_skip1b ; source: test_word_splitw_equalities.p8:3067 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_375_afterif cpy p8v_sources_msb+1 bne label_asm_375_afterif ; source: test_word_splitw_equalities.p8:3068 success++ inc p8b_main.p8v_success label_asm_375_afterif ; source: test_word_splitw_equalities.p8:3071 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_377_else cpy p8v_sources_msb+1 bne label_asm_377_else ; source: test_word_splitw_equalities.p8:3072 success++ inc p8b_main.p8v_success bra label_asm_376_afterif label_asm_377_else ; source: test_word_splitw_equalities.p8:3074 cx16.r0L++ inc cx16.r0L label_asm_376_afterif ; source: test_word_splitw_equalities.p8:3077 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl1c + ; source: test_word_splitw_equalities.p8:3079 goto skip1c bra p8l_skip1c ; source: test_word_splitw_equalities.p8:3080 lbl1c: success++ p8l_lbl1c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3081 skip1c: p8l_skip1c ; source: test_word_splitw_equalities.p8:3083 cx16.r3 = &lbl1d lda #p8l_lbl1d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3084 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3086 goto skip1d bra p8l_skip1d ; source: test_word_splitw_equalities.p8:3087 lbl1d: success++ p8l_lbl1d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3088 skip1d: p8l_skip1d ; source: test_word_splitw_equalities.p8:3090 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_378_afterif cpy p8v_sources_msb+1 bne label_asm_378_afterif ; source: test_word_splitw_equalities.p8:3091 success++ inc p8b_main.p8v_success label_asm_378_afterif ; source: test_word_splitw_equalities.p8:3094 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_380_else cpy p8v_sources_msb+1 bne label_asm_380_else ; source: test_word_splitw_equalities.p8:3095 success++ inc p8b_main.p8v_success bra label_asm_379_afterif label_asm_380_else ; source: test_word_splitw_equalities.p8:3097 cx16.r0L++ inc cx16.r0L label_asm_379_afterif ; source: test_word_splitw_equalities.p8:3099 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3101 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl2a + ; source: test_word_splitw_equalities.p8:3103 goto skip2a bra p8l_skip2a ; source: test_word_splitw_equalities.p8:3104 lbl2a: fail_word(241,-21829) p8l_lbl2a lda #<$f1 ldy #>$f1 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3105 skip2a: p8l_skip2a ; source: test_word_splitw_equalities.p8:3107 cx16.r3 = &lbl2b lda #p8l_lbl2b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3108 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3110 goto skip2b bra p8l_skip2b ; source: test_word_splitw_equalities.p8:3111 lbl2b: fail_word(242,-21829) p8l_lbl2b lda #<$f2 ldy #>$f2 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3112 skip2b: p8l_skip2b ; source: test_word_splitw_equalities.p8:3114 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_381_afterif cpy p8v_sources_msb+1 bne label_asm_381_afterif ; source: test_word_splitw_equalities.p8:3115 fail_word(243,-21829) lda #<$f3 ldy #>$f3 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_381_afterif ; source: test_word_splitw_equalities.p8:3118 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_383_else cpy p8v_sources_msb+1 bne label_asm_383_else ; source: test_word_splitw_equalities.p8:3119 fail_word(244,-21829) lda #<$f4 ldy #>$f4 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_382_afterif label_asm_383_else ; source: test_word_splitw_equalities.p8:3121 cx16.r0L++ inc cx16.r0L label_asm_382_afterif ; source: test_word_splitw_equalities.p8:3124 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl2c + ; source: test_word_splitw_equalities.p8:3126 goto skip2c bra p8l_skip2c ; source: test_word_splitw_equalities.p8:3127 lbl2c: fail_word(245,-21829) p8l_lbl2c lda #<$f5 ldy #>$f5 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3128 skip2c: p8l_skip2c ; source: test_word_splitw_equalities.p8:3130 cx16.r3 = &lbl2d lda #p8l_lbl2d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3131 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3133 goto skip2d bra p8l_skip2d ; source: test_word_splitw_equalities.p8:3134 lbl2d: fail_word(246,-21829) p8l_lbl2d lda #<$f6 ldy #>$f6 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3135 skip2d: p8l_skip2d ; source: test_word_splitw_equalities.p8:3137 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_384_afterif cpy p8v_sources_msb+1 bne label_asm_384_afterif ; source: test_word_splitw_equalities.p8:3138 fail_word(247,-21829) lda #<$f7 ldy #>$f7 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_384_afterif ; source: test_word_splitw_equalities.p8:3141 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_386_else cpy p8v_sources_msb+1 bne label_asm_386_else ; source: test_word_splitw_equalities.p8:3142 fail_word(248,-21829) lda #<$f8 ldy #>$f8 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_385_afterif label_asm_386_else ; source: test_word_splitw_equalities.p8:3144 cx16.r0L++ inc cx16.r0L label_asm_385_afterif ; source: test_word_splitw_equalities.p8:3146 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3148 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl3a + ; source: test_word_splitw_equalities.p8:3150 goto skip3a bra p8l_skip3a ; source: test_word_splitw_equalities.p8:3151 lbl3a: fail_word(249,-21829) p8l_lbl3a lda #<$f9 ldy #>$f9 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3152 skip3a: p8l_skip3a ; source: test_word_splitw_equalities.p8:3154 cx16.r3 = &lbl3b lda #p8l_lbl3b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3155 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3157 goto skip3b bra p8l_skip3b ; source: test_word_splitw_equalities.p8:3158 lbl3b: fail_word(250,-21829) p8l_lbl3b lda #<$fa ldy #>$fa sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3159 skip3b: p8l_skip3b ; source: test_word_splitw_equalities.p8:3161 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_387_afterif cpy p8v_sources_msb+1 bne label_asm_387_afterif ; source: test_word_splitw_equalities.p8:3162 fail_word(251,-21829) lda #<$fb ldy #>$fb sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_387_afterif ; source: test_word_splitw_equalities.p8:3165 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_389_else cpy p8v_sources_msb+1 bne label_asm_389_else ; source: test_word_splitw_equalities.p8:3166 fail_word(252,-21829) lda #<$fc ldy #>$fc sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_388_afterif label_asm_389_else ; source: test_word_splitw_equalities.p8:3168 cx16.r0L++ inc cx16.r0L label_asm_388_afterif ; source: test_word_splitw_equalities.p8:3171 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl3c + ; source: test_word_splitw_equalities.p8:3173 goto skip3c bra p8l_skip3c ; source: test_word_splitw_equalities.p8:3174 lbl3c: fail_word(253,-21829) p8l_lbl3c lda #<$fd ldy #>$fd sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3175 skip3c: p8l_skip3c ; source: test_word_splitw_equalities.p8:3177 cx16.r3 = &lbl3d lda #p8l_lbl3d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3178 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3180 goto skip3d bra p8l_skip3d ; source: test_word_splitw_equalities.p8:3181 lbl3d: fail_word(254,-21829) p8l_lbl3d lda #<$fe ldy #>$fe sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3182 skip3d: p8l_skip3d ; source: test_word_splitw_equalities.p8:3184 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_390_afterif cpy p8v_sources_msb+1 bne label_asm_390_afterif ; source: test_word_splitw_equalities.p8:3185 fail_word(255,-21829) lda #<$ff ldy #>$ff sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_390_afterif ; source: test_word_splitw_equalities.p8:3188 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_392_else cpy p8v_sources_msb+1 bne label_asm_392_else ; source: test_word_splitw_equalities.p8:3189 fail_word(256,-21829) lda #<$0100 ldy #>$0100 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_391_afterif label_asm_392_else ; source: test_word_splitw_equalities.p8:3191 cx16.r0L++ inc cx16.r0L label_asm_391_afterif ; source: test_word_splitw_equalities.p8:3193 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3195 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl4a + ; source: test_word_splitw_equalities.p8:3197 goto skip4a bra p8l_skip4a ; source: test_word_splitw_equalities.p8:3198 lbl4a: fail_word(257,-21829) p8l_lbl4a lda #1 sta p8b_main.p8s_fail_word.p8v_idx sta p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3199 skip4a: p8l_skip4a ; source: test_word_splitw_equalities.p8:3201 cx16.r3 = &lbl4b lda #p8l_lbl4b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3202 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3204 goto skip4b bra p8l_skip4b ; source: test_word_splitw_equalities.p8:3205 lbl4b: fail_word(258,-21829) p8l_lbl4b lda #<$0102 ldy #>$0102 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3206 skip4b: p8l_skip4b ; source: test_word_splitw_equalities.p8:3208 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_393_afterif cpy p8v_sources_msb+1 bne label_asm_393_afterif ; source: test_word_splitw_equalities.p8:3209 fail_word(259,-21829) lda #<$0103 ldy #>$0103 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_393_afterif ; source: test_word_splitw_equalities.p8:3212 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_395_else cpy p8v_sources_msb+1 bne label_asm_395_else ; source: test_word_splitw_equalities.p8:3213 fail_word(260,-21829) lda #<$0104 ldy #>$0104 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_394_afterif label_asm_395_else ; source: test_word_splitw_equalities.p8:3215 cx16.r0L++ inc cx16.r0L label_asm_394_afterif ; source: test_word_splitw_equalities.p8:3218 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl4c + ; source: test_word_splitw_equalities.p8:3220 goto skip4c bra p8l_skip4c ; source: test_word_splitw_equalities.p8:3221 lbl4c: fail_word(261,-21829) p8l_lbl4c lda #<$0105 ldy #>$0105 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3222 skip4c: p8l_skip4c ; source: test_word_splitw_equalities.p8:3224 cx16.r3 = &lbl4d lda #p8l_lbl4d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3225 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3227 goto skip4d bra p8l_skip4d ; source: test_word_splitw_equalities.p8:3228 lbl4d: fail_word(262,-21829) p8l_lbl4d lda #<$0106 ldy #>$0106 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3229 skip4d: p8l_skip4d ; source: test_word_splitw_equalities.p8:3231 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_396_afterif cpy p8v_sources_msb+1 bne label_asm_396_afterif ; source: test_word_splitw_equalities.p8:3232 fail_word(263,-21829) lda #<$0107 ldy #>$0107 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_396_afterif ; source: test_word_splitw_equalities.p8:3235 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_398_else cpy p8v_sources_msb+1 bne label_asm_398_else ; source: test_word_splitw_equalities.p8:3236 fail_word(264,-21829) lda #<$0108 ldy #>$0108 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_397_afterif label_asm_398_else ; source: test_word_splitw_equalities.p8:3238 cx16.r0L++ inc cx16.r0L label_asm_397_afterif ; source: test_word_splitw_equalities.p8:3240 values[1]=0 ldy #1 lda #0 sta p8v_values_lsb,y sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3241 sources[1]=0 ldy #1 lda #0 sta p8v_sources_lsb,y sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:3242 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3244 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl5a + ; source: test_word_splitw_equalities.p8:3246 goto skip5a bra p8l_skip5a ; source: test_word_splitw_equalities.p8:3247 lbl5a: fail_word(265,0) p8l_lbl5a lda #<$0109 ldy #>$0109 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3248 skip5a: p8l_skip5a ; source: test_word_splitw_equalities.p8:3250 cx16.r3 = &lbl5b lda #p8l_lbl5b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3251 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3253 goto skip5b bra p8l_skip5b ; source: test_word_splitw_equalities.p8:3254 lbl5b: fail_word(266,0) p8l_lbl5b lda #<$010a ldy #>$010a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3255 skip5b: p8l_skip5b ; source: test_word_splitw_equalities.p8:3257 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_399_afterif cpy p8v_sources_msb+1 bne label_asm_399_afterif ; source: test_word_splitw_equalities.p8:3258 fail_word(267,0) lda #<$010b ldy #>$010b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_399_afterif ; source: test_word_splitw_equalities.p8:3261 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_401_else cpy p8v_sources_msb+1 bne label_asm_401_else ; source: test_word_splitw_equalities.p8:3262 fail_word(268,0) lda #<$010c ldy #>$010c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_400_afterif label_asm_401_else ; source: test_word_splitw_equalities.p8:3264 cx16.r0L++ inc cx16.r0L label_asm_400_afterif ; source: test_word_splitw_equalities.p8:3267 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl5c + ; source: test_word_splitw_equalities.p8:3269 goto skip5c bra p8l_skip5c ; source: test_word_splitw_equalities.p8:3270 lbl5c: fail_word(269,0) p8l_lbl5c lda #<$010d ldy #>$010d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3271 skip5c: p8l_skip5c ; source: test_word_splitw_equalities.p8:3273 cx16.r3 = &lbl5d lda #p8l_lbl5d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3274 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3276 goto skip5d bra p8l_skip5d ; source: test_word_splitw_equalities.p8:3277 lbl5d: fail_word(270,0) p8l_lbl5d lda #<$010e ldy #>$010e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3278 skip5d: p8l_skip5d ; source: test_word_splitw_equalities.p8:3280 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_402_afterif cpy p8v_sources_msb+1 bne label_asm_402_afterif ; source: test_word_splitw_equalities.p8:3281 fail_word(271,0) lda #<$010f ldy #>$010f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_402_afterif ; source: test_word_splitw_equalities.p8:3284 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_404_else cpy p8v_sources_msb+1 bne label_asm_404_else ; source: test_word_splitw_equalities.p8:3285 fail_word(272,0) lda #<$0110 ldy #>$0110 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_403_afterif label_asm_404_else ; source: test_word_splitw_equalities.p8:3287 cx16.r0L++ inc cx16.r0L label_asm_403_afterif ; source: test_word_splitw_equalities.p8:3289 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3291 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl6a + ; source: test_word_splitw_equalities.p8:3293 goto skip6a bra p8l_skip6a ; source: test_word_splitw_equalities.p8:3294 lbl6a: fail_word(273,0) p8l_lbl6a lda #<$0111 ldy #>$0111 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3295 skip6a: p8l_skip6a ; source: test_word_splitw_equalities.p8:3297 cx16.r3 = &lbl6b lda #p8l_lbl6b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3298 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3300 goto skip6b bra p8l_skip6b ; source: test_word_splitw_equalities.p8:3301 lbl6b: fail_word(274,0) p8l_lbl6b lda #<$0112 ldy #>$0112 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3302 skip6b: p8l_skip6b ; source: test_word_splitw_equalities.p8:3304 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_405_afterif cpy p8v_sources_msb+1 bne label_asm_405_afterif ; source: test_word_splitw_equalities.p8:3305 fail_word(275,0) lda #<$0113 ldy #>$0113 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_405_afterif ; source: test_word_splitw_equalities.p8:3308 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_407_else cpy p8v_sources_msb+1 bne label_asm_407_else ; source: test_word_splitw_equalities.p8:3309 fail_word(276,0) lda #<$0114 ldy #>$0114 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_406_afterif label_asm_407_else ; source: test_word_splitw_equalities.p8:3311 cx16.r0L++ inc cx16.r0L label_asm_406_afterif ; source: test_word_splitw_equalities.p8:3314 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl6c + ; source: test_word_splitw_equalities.p8:3316 goto skip6c bra p8l_skip6c ; source: test_word_splitw_equalities.p8:3317 lbl6c: fail_word(277,0) p8l_lbl6c lda #<$0115 ldy #>$0115 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3318 skip6c: p8l_skip6c ; source: test_word_splitw_equalities.p8:3320 cx16.r3 = &lbl6d lda #p8l_lbl6d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3321 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3323 goto skip6d bra p8l_skip6d ; source: test_word_splitw_equalities.p8:3324 lbl6d: fail_word(278,0) p8l_lbl6d lda #<$0116 ldy #>$0116 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3325 skip6d: p8l_skip6d ; source: test_word_splitw_equalities.p8:3327 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_408_afterif cpy p8v_sources_msb+1 bne label_asm_408_afterif ; source: test_word_splitw_equalities.p8:3328 fail_word(279,0) lda #<$0117 ldy #>$0117 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_408_afterif ; source: test_word_splitw_equalities.p8:3331 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_410_else cpy p8v_sources_msb+1 bne label_asm_410_else ; source: test_word_splitw_equalities.p8:3332 fail_word(280,0) lda #<$0118 ldy #>$0118 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_409_afterif label_asm_410_else ; source: test_word_splitw_equalities.p8:3334 cx16.r0L++ inc cx16.r0L label_asm_409_afterif ; source: test_word_splitw_equalities.p8:3336 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3338 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl7a + ; source: test_word_splitw_equalities.p8:3340 goto skip7a bra p8l_skip7a ; source: test_word_splitw_equalities.p8:3341 lbl7a: fail_word(281,0) p8l_lbl7a lda #<$0119 ldy #>$0119 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3342 skip7a: p8l_skip7a ; source: test_word_splitw_equalities.p8:3344 cx16.r3 = &lbl7b lda #p8l_lbl7b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3345 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3347 goto skip7b bra p8l_skip7b ; source: test_word_splitw_equalities.p8:3348 lbl7b: fail_word(282,0) p8l_lbl7b lda #<$011a ldy #>$011a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3349 skip7b: p8l_skip7b ; source: test_word_splitw_equalities.p8:3351 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_411_afterif cpy p8v_sources_msb+1 bne label_asm_411_afterif ; source: test_word_splitw_equalities.p8:3352 fail_word(283,0) lda #<$011b ldy #>$011b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_411_afterif ; source: test_word_splitw_equalities.p8:3355 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_413_else cpy p8v_sources_msb+1 bne label_asm_413_else ; source: test_word_splitw_equalities.p8:3356 fail_word(284,0) lda #<$011c ldy #>$011c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_412_afterif label_asm_413_else ; source: test_word_splitw_equalities.p8:3358 cx16.r0L++ inc cx16.r0L label_asm_412_afterif ; source: test_word_splitw_equalities.p8:3361 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl7c + ; source: test_word_splitw_equalities.p8:3363 goto skip7c bra p8l_skip7c ; source: test_word_splitw_equalities.p8:3364 lbl7c: fail_word(285,0) p8l_lbl7c lda #<$011d ldy #>$011d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3365 skip7c: p8l_skip7c ; source: test_word_splitw_equalities.p8:3367 cx16.r3 = &lbl7d lda #p8l_lbl7d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3368 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3370 goto skip7d bra p8l_skip7d ; source: test_word_splitw_equalities.p8:3371 lbl7d: fail_word(286,0) p8l_lbl7d lda #<$011e ldy #>$011e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3372 skip7d: p8l_skip7d ; source: test_word_splitw_equalities.p8:3374 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_414_afterif cpy p8v_sources_msb+1 bne label_asm_414_afterif ; source: test_word_splitw_equalities.p8:3375 fail_word(287,0) lda #<$011f ldy #>$011f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_414_afterif ; source: test_word_splitw_equalities.p8:3378 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_416_else cpy p8v_sources_msb+1 bne label_asm_416_else ; source: test_word_splitw_equalities.p8:3379 fail_word(288,0) lda #<$0120 ldy #>$0120 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_415_afterif label_asm_416_else ; source: test_word_splitw_equalities.p8:3381 cx16.r0L++ inc cx16.r0L label_asm_415_afterif ; source: test_word_splitw_equalities.p8:3383 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3385 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl8a + ; source: test_word_splitw_equalities.p8:3387 goto skip8a bra p8l_skip8a ; source: test_word_splitw_equalities.p8:3388 lbl8a: fail_word(289,0) p8l_lbl8a lda #<$0121 ldy #>$0121 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3389 skip8a: p8l_skip8a ; source: test_word_splitw_equalities.p8:3391 cx16.r3 = &lbl8b lda #p8l_lbl8b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3392 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3394 goto skip8b bra p8l_skip8b ; source: test_word_splitw_equalities.p8:3395 lbl8b: fail_word(290,0) p8l_lbl8b lda #<$0122 ldy #>$0122 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3396 skip8b: p8l_skip8b ; source: test_word_splitw_equalities.p8:3398 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_417_afterif cpy p8v_sources_msb+1 bne label_asm_417_afterif ; source: test_word_splitw_equalities.p8:3399 fail_word(291,0) lda #<$0123 ldy #>$0123 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_417_afterif ; source: test_word_splitw_equalities.p8:3402 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_419_else cpy p8v_sources_msb+1 bne label_asm_419_else ; source: test_word_splitw_equalities.p8:3403 fail_word(292,0) lda #<$0124 ldy #>$0124 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_418_afterif label_asm_419_else ; source: test_word_splitw_equalities.p8:3405 cx16.r0L++ inc cx16.r0L label_asm_418_afterif ; source: test_word_splitw_equalities.p8:3408 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl8c + ; source: test_word_splitw_equalities.p8:3410 goto skip8c bra p8l_skip8c ; source: test_word_splitw_equalities.p8:3411 lbl8c: fail_word(293,0) p8l_lbl8c lda #<$0125 ldy #>$0125 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3412 skip8c: p8l_skip8c ; source: test_word_splitw_equalities.p8:3414 cx16.r3 = &lbl8d lda #p8l_lbl8d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3415 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3417 goto skip8d bra p8l_skip8d ; source: test_word_splitw_equalities.p8:3418 lbl8d: fail_word(294,0) p8l_lbl8d lda #<$0126 ldy #>$0126 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3419 skip8d: p8l_skip8d ; source: test_word_splitw_equalities.p8:3421 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_420_afterif cpy p8v_sources_msb+1 bne label_asm_420_afterif ; source: test_word_splitw_equalities.p8:3422 fail_word(295,0) lda #<$0127 ldy #>$0127 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_420_afterif ; source: test_word_splitw_equalities.p8:3425 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_422_else cpy p8v_sources_msb+1 bne label_asm_422_else ; source: test_word_splitw_equalities.p8:3426 fail_word(296,0) lda #<$0128 ldy #>$0128 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 stz p8b_main.p8s_fail_word.p8v_v1 stz p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_421_afterif label_asm_422_else ; source: test_word_splitw_equalities.p8:3428 cx16.r0L++ inc cx16.r0L label_asm_421_afterif ; source: test_word_splitw_equalities.p8:3430 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3431 sources[1]=170 ldy #1 lda #<$aa sta p8v_sources_lsb,y lda #>$aa sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:3432 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3434 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl9a + ; source: test_word_splitw_equalities.p8:3436 goto skip9a bra p8l_skip9a ; source: test_word_splitw_equalities.p8:3437 lbl9a: fail_word(297,170) p8l_lbl9a lda #<$0129 ldy #>$0129 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3438 skip9a: p8l_skip9a ; source: test_word_splitw_equalities.p8:3440 cx16.r3 = &lbl9b lda #p8l_lbl9b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3441 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3443 goto skip9b bra p8l_skip9b ; source: test_word_splitw_equalities.p8:3444 lbl9b: fail_word(298,170) p8l_lbl9b lda #<$012a ldy #>$012a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3445 skip9b: p8l_skip9b ; source: test_word_splitw_equalities.p8:3447 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_423_afterif cpy p8v_sources_msb+1 bne label_asm_423_afterif ; source: test_word_splitw_equalities.p8:3448 fail_word(299,170) lda #<$012b ldy #>$012b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_423_afterif ; source: test_word_splitw_equalities.p8:3451 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_425_else cpy p8v_sources_msb+1 bne label_asm_425_else ; source: test_word_splitw_equalities.p8:3452 fail_word(300,170) lda #<$012c ldy #>$012c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_424_afterif label_asm_425_else ; source: test_word_splitw_equalities.p8:3454 cx16.r0L++ inc cx16.r0L label_asm_424_afterif ; source: test_word_splitw_equalities.p8:3457 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl9c + ; source: test_word_splitw_equalities.p8:3459 goto skip9c bra p8l_skip9c ; source: test_word_splitw_equalities.p8:3460 lbl9c: fail_word(301,170) p8l_lbl9c lda #<$012d ldy #>$012d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3461 skip9c: p8l_skip9c ; source: test_word_splitw_equalities.p8:3463 cx16.r3 = &lbl9d lda #p8l_lbl9d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3464 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3466 goto skip9d bra p8l_skip9d ; source: test_word_splitw_equalities.p8:3467 lbl9d: fail_word(302,170) p8l_lbl9d lda #<$012e ldy #>$012e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3468 skip9d: p8l_skip9d ; source: test_word_splitw_equalities.p8:3470 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_426_afterif cpy p8v_sources_msb+1 bne label_asm_426_afterif ; source: test_word_splitw_equalities.p8:3471 fail_word(303,170) lda #<$012f ldy #>$012f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_426_afterif ; source: test_word_splitw_equalities.p8:3474 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_428_else cpy p8v_sources_msb+1 bne label_asm_428_else ; source: test_word_splitw_equalities.p8:3475 fail_word(304,170) lda #<$0130 ldy #>$0130 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_427_afterif label_asm_428_else ; source: test_word_splitw_equalities.p8:3477 cx16.r0L++ inc cx16.r0L label_asm_427_afterif ; source: test_word_splitw_equalities.p8:3479 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3481 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl10a + ; source: test_word_splitw_equalities.p8:3483 goto skip10a bra p8l_skip10a ; source: test_word_splitw_equalities.p8:3484 lbl10a: success++ p8l_lbl10a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3485 skip10a: p8l_skip10a ; source: test_word_splitw_equalities.p8:3487 cx16.r3 = &lbl10b lda #p8l_lbl10b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3488 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3490 goto skip10b bra p8l_skip10b ; source: test_word_splitw_equalities.p8:3491 lbl10b: success++ p8l_lbl10b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3492 skip10b: p8l_skip10b ; source: test_word_splitw_equalities.p8:3494 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_429_afterif cpy p8v_sources_msb+1 bne label_asm_429_afterif ; source: test_word_splitw_equalities.p8:3495 success++ inc p8b_main.p8v_success label_asm_429_afterif ; source: test_word_splitw_equalities.p8:3498 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_431_else cpy p8v_sources_msb+1 bne label_asm_431_else ; source: test_word_splitw_equalities.p8:3499 success++ inc p8b_main.p8v_success bra label_asm_430_afterif label_asm_431_else ; source: test_word_splitw_equalities.p8:3501 cx16.r0L++ inc cx16.r0L label_asm_430_afterif ; source: test_word_splitw_equalities.p8:3504 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl10c + ; source: test_word_splitw_equalities.p8:3506 goto skip10c bra p8l_skip10c ; source: test_word_splitw_equalities.p8:3507 lbl10c: success++ p8l_lbl10c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3508 skip10c: p8l_skip10c ; source: test_word_splitw_equalities.p8:3510 cx16.r3 = &lbl10d lda #p8l_lbl10d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3511 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3513 goto skip10d bra p8l_skip10d ; source: test_word_splitw_equalities.p8:3514 lbl10d: success++ p8l_lbl10d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3515 skip10d: p8l_skip10d ; source: test_word_splitw_equalities.p8:3517 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_432_afterif cpy p8v_sources_msb+1 bne label_asm_432_afterif ; source: test_word_splitw_equalities.p8:3518 success++ inc p8b_main.p8v_success label_asm_432_afterif ; source: test_word_splitw_equalities.p8:3521 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_434_else cpy p8v_sources_msb+1 bne label_asm_434_else ; source: test_word_splitw_equalities.p8:3522 success++ inc p8b_main.p8v_success bra label_asm_433_afterif label_asm_434_else ; source: test_word_splitw_equalities.p8:3524 cx16.r0L++ inc cx16.r0L label_asm_433_afterif ; source: test_word_splitw_equalities.p8:3526 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3528 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl11a + ; source: test_word_splitw_equalities.p8:3530 goto skip11a bra p8l_skip11a ; source: test_word_splitw_equalities.p8:3531 lbl11a: fail_word(305,170) p8l_lbl11a lda #<$0131 ldy #>$0131 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3532 skip11a: p8l_skip11a ; source: test_word_splitw_equalities.p8:3534 cx16.r3 = &lbl11b lda #p8l_lbl11b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3535 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3537 goto skip11b bra p8l_skip11b ; source: test_word_splitw_equalities.p8:3538 lbl11b: fail_word(306,170) p8l_lbl11b lda #<$0132 ldy #>$0132 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3539 skip11b: p8l_skip11b ; source: test_word_splitw_equalities.p8:3541 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_435_afterif cpy p8v_sources_msb+1 bne label_asm_435_afterif ; source: test_word_splitw_equalities.p8:3542 fail_word(307,170) lda #<$0133 ldy #>$0133 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_435_afterif ; source: test_word_splitw_equalities.p8:3545 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_437_else cpy p8v_sources_msb+1 bne label_asm_437_else ; source: test_word_splitw_equalities.p8:3546 fail_word(308,170) lda #<$0134 ldy #>$0134 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_436_afterif label_asm_437_else ; source: test_word_splitw_equalities.p8:3548 cx16.r0L++ inc cx16.r0L label_asm_436_afterif ; source: test_word_splitw_equalities.p8:3551 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl11c + ; source: test_word_splitw_equalities.p8:3553 goto skip11c bra p8l_skip11c ; source: test_word_splitw_equalities.p8:3554 lbl11c: fail_word(309,170) p8l_lbl11c lda #<$0135 ldy #>$0135 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3555 skip11c: p8l_skip11c ; source: test_word_splitw_equalities.p8:3557 cx16.r3 = &lbl11d lda #p8l_lbl11d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3558 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3560 goto skip11d bra p8l_skip11d ; source: test_word_splitw_equalities.p8:3561 lbl11d: fail_word(310,170) p8l_lbl11d lda #<$0136 ldy #>$0136 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3562 skip11d: p8l_skip11d ; source: test_word_splitw_equalities.p8:3564 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_438_afterif cpy p8v_sources_msb+1 bne label_asm_438_afterif ; source: test_word_splitw_equalities.p8:3565 fail_word(311,170) lda #<$0137 ldy #>$0137 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_438_afterif ; source: test_word_splitw_equalities.p8:3568 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_440_else cpy p8v_sources_msb+1 bne label_asm_440_else ; source: test_word_splitw_equalities.p8:3569 fail_word(312,170) lda #<$0138 ldy #>$0138 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_439_afterif label_asm_440_else ; source: test_word_splitw_equalities.p8:3571 cx16.r0L++ inc cx16.r0L label_asm_439_afterif ; source: test_word_splitw_equalities.p8:3573 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3575 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl12a + ; source: test_word_splitw_equalities.p8:3577 goto skip12a bra p8l_skip12a ; source: test_word_splitw_equalities.p8:3578 lbl12a: fail_word(313,170) p8l_lbl12a lda #<$0139 ldy #>$0139 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3579 skip12a: p8l_skip12a ; source: test_word_splitw_equalities.p8:3581 cx16.r3 = &lbl12b lda #p8l_lbl12b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3582 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3584 goto skip12b bra p8l_skip12b ; source: test_word_splitw_equalities.p8:3585 lbl12b: fail_word(314,170) p8l_lbl12b lda #<$013a ldy #>$013a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3586 skip12b: p8l_skip12b ; source: test_word_splitw_equalities.p8:3588 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_441_afterif cpy p8v_sources_msb+1 bne label_asm_441_afterif ; source: test_word_splitw_equalities.p8:3589 fail_word(315,170) lda #<$013b ldy #>$013b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_441_afterif ; source: test_word_splitw_equalities.p8:3592 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_443_else cpy p8v_sources_msb+1 bne label_asm_443_else ; source: test_word_splitw_equalities.p8:3593 fail_word(316,170) lda #<$013c ldy #>$013c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_442_afterif label_asm_443_else ; source: test_word_splitw_equalities.p8:3595 cx16.r0L++ inc cx16.r0L label_asm_442_afterif ; source: test_word_splitw_equalities.p8:3598 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl12c + ; source: test_word_splitw_equalities.p8:3600 goto skip12c bra p8l_skip12c ; source: test_word_splitw_equalities.p8:3601 lbl12c: fail_word(317,170) p8l_lbl12c lda #<$013d ldy #>$013d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3602 skip12c: p8l_skip12c ; source: test_word_splitw_equalities.p8:3604 cx16.r3 = &lbl12d lda #p8l_lbl12d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3605 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3607 goto skip12d bra p8l_skip12d ; source: test_word_splitw_equalities.p8:3608 lbl12d: fail_word(318,170) p8l_lbl12d lda #<$013e ldy #>$013e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3609 skip12d: p8l_skip12d ; source: test_word_splitw_equalities.p8:3611 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_444_afterif cpy p8v_sources_msb+1 bne label_asm_444_afterif ; source: test_word_splitw_equalities.p8:3612 fail_word(319,170) lda #<$013f ldy #>$013f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_444_afterif ; source: test_word_splitw_equalities.p8:3615 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_446_else cpy p8v_sources_msb+1 bne label_asm_446_else ; source: test_word_splitw_equalities.p8:3616 fail_word(320,170) lda #<$0140 ldy #>$0140 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_445_afterif label_asm_446_else ; source: test_word_splitw_equalities.p8:3618 cx16.r0L++ inc cx16.r0L label_asm_445_afterif ; source: test_word_splitw_equalities.p8:3620 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3621 sources[1]=30464 ldy #1 lda #<$7700 sta p8v_sources_lsb,y lda #>$7700 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:3622 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3624 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl13a + ; source: test_word_splitw_equalities.p8:3626 goto skip13a bra p8l_skip13a ; source: test_word_splitw_equalities.p8:3627 lbl13a: fail_word(321,30464) p8l_lbl13a lda #<$0141 ldy #>$0141 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3628 skip13a: p8l_skip13a ; source: test_word_splitw_equalities.p8:3630 cx16.r3 = &lbl13b lda #p8l_lbl13b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3631 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3633 goto skip13b bra p8l_skip13b ; source: test_word_splitw_equalities.p8:3634 lbl13b: fail_word(322,30464) p8l_lbl13b lda #<$0142 ldy #>$0142 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3635 skip13b: p8l_skip13b ; source: test_word_splitw_equalities.p8:3637 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_447_afterif cpy p8v_sources_msb+1 bne label_asm_447_afterif ; source: test_word_splitw_equalities.p8:3638 fail_word(323,30464) lda #<$0143 ldy #>$0143 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_447_afterif ; source: test_word_splitw_equalities.p8:3641 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_449_else cpy p8v_sources_msb+1 bne label_asm_449_else ; source: test_word_splitw_equalities.p8:3642 fail_word(324,30464) lda #<$0144 ldy #>$0144 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_448_afterif label_asm_449_else ; source: test_word_splitw_equalities.p8:3644 cx16.r0L++ inc cx16.r0L label_asm_448_afterif ; source: test_word_splitw_equalities.p8:3647 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl13c + ; source: test_word_splitw_equalities.p8:3649 goto skip13c bra p8l_skip13c ; source: test_word_splitw_equalities.p8:3650 lbl13c: fail_word(325,30464) p8l_lbl13c lda #<$0145 ldy #>$0145 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3651 skip13c: p8l_skip13c ; source: test_word_splitw_equalities.p8:3653 cx16.r3 = &lbl13d lda #p8l_lbl13d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3654 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3656 goto skip13d bra p8l_skip13d ; source: test_word_splitw_equalities.p8:3657 lbl13d: fail_word(326,30464) p8l_lbl13d lda #<$0146 ldy #>$0146 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3658 skip13d: p8l_skip13d ; source: test_word_splitw_equalities.p8:3660 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_450_afterif cpy p8v_sources_msb+1 bne label_asm_450_afterif ; source: test_word_splitw_equalities.p8:3661 fail_word(327,30464) lda #<$0147 ldy #>$0147 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_450_afterif ; source: test_word_splitw_equalities.p8:3664 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_452_else cpy p8v_sources_msb+1 bne label_asm_452_else ; source: test_word_splitw_equalities.p8:3665 fail_word(328,30464) lda #<$0148 ldy #>$0148 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_451_afterif label_asm_452_else ; source: test_word_splitw_equalities.p8:3667 cx16.r0L++ inc cx16.r0L label_asm_451_afterif ; source: test_word_splitw_equalities.p8:3669 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3671 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl14a + ; source: test_word_splitw_equalities.p8:3673 goto skip14a bra p8l_skip14a ; source: test_word_splitw_equalities.p8:3674 lbl14a: fail_word(329,30464) p8l_lbl14a lda #<$0149 ldy #>$0149 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3675 skip14a: p8l_skip14a ; source: test_word_splitw_equalities.p8:3677 cx16.r3 = &lbl14b lda #p8l_lbl14b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3678 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3680 goto skip14b bra p8l_skip14b ; source: test_word_splitw_equalities.p8:3681 lbl14b: fail_word(330,30464) p8l_lbl14b lda #<$014a ldy #>$014a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3682 skip14b: p8l_skip14b ; source: test_word_splitw_equalities.p8:3684 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_453_afterif cpy p8v_sources_msb+1 bne label_asm_453_afterif ; source: test_word_splitw_equalities.p8:3685 fail_word(331,30464) lda #<$014b ldy #>$014b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_453_afterif ; source: test_word_splitw_equalities.p8:3688 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_455_else cpy p8v_sources_msb+1 bne label_asm_455_else ; source: test_word_splitw_equalities.p8:3689 fail_word(332,30464) lda #<$014c ldy #>$014c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_454_afterif label_asm_455_else ; source: test_word_splitw_equalities.p8:3691 cx16.r0L++ inc cx16.r0L label_asm_454_afterif ; source: test_word_splitw_equalities.p8:3694 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl14c + ; source: test_word_splitw_equalities.p8:3696 goto skip14c bra p8l_skip14c ; source: test_word_splitw_equalities.p8:3697 lbl14c: fail_word(333,30464) p8l_lbl14c lda #<$014d ldy #>$014d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3698 skip14c: p8l_skip14c ; source: test_word_splitw_equalities.p8:3700 cx16.r3 = &lbl14d lda #p8l_lbl14d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3701 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3703 goto skip14d bra p8l_skip14d ; source: test_word_splitw_equalities.p8:3704 lbl14d: fail_word(334,30464) p8l_lbl14d lda #<$014e ldy #>$014e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3705 skip14d: p8l_skip14d ; source: test_word_splitw_equalities.p8:3707 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_456_afterif cpy p8v_sources_msb+1 bne label_asm_456_afterif ; source: test_word_splitw_equalities.p8:3708 fail_word(335,30464) lda #<$014f ldy #>$014f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_456_afterif ; source: test_word_splitw_equalities.p8:3711 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_458_else cpy p8v_sources_msb+1 bne label_asm_458_else ; source: test_word_splitw_equalities.p8:3712 fail_word(336,30464) lda #<$0150 ldy #>$0150 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_457_afterif label_asm_458_else ; source: test_word_splitw_equalities.p8:3714 cx16.r0L++ inc cx16.r0L label_asm_457_afterif ; source: test_word_splitw_equalities.p8:3716 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3718 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl15a + ; source: test_word_splitw_equalities.p8:3720 goto skip15a bra p8l_skip15a ; source: test_word_splitw_equalities.p8:3721 lbl15a: success++ p8l_lbl15a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3722 skip15a: p8l_skip15a ; source: test_word_splitw_equalities.p8:3724 cx16.r3 = &lbl15b lda #p8l_lbl15b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3725 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3727 goto skip15b bra p8l_skip15b ; source: test_word_splitw_equalities.p8:3728 lbl15b: success++ p8l_lbl15b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3729 skip15b: p8l_skip15b ; source: test_word_splitw_equalities.p8:3731 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_459_afterif cpy p8v_sources_msb+1 bne label_asm_459_afterif ; source: test_word_splitw_equalities.p8:3732 success++ inc p8b_main.p8v_success label_asm_459_afterif ; source: test_word_splitw_equalities.p8:3735 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_461_else cpy p8v_sources_msb+1 bne label_asm_461_else ; source: test_word_splitw_equalities.p8:3736 success++ inc p8b_main.p8v_success bra label_asm_460_afterif label_asm_461_else ; source: test_word_splitw_equalities.p8:3738 cx16.r0L++ inc cx16.r0L label_asm_460_afterif ; source: test_word_splitw_equalities.p8:3741 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl15c + ; source: test_word_splitw_equalities.p8:3743 goto skip15c bra p8l_skip15c ; source: test_word_splitw_equalities.p8:3744 lbl15c: success++ p8l_lbl15c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3745 skip15c: p8l_skip15c ; source: test_word_splitw_equalities.p8:3747 cx16.r3 = &lbl15d lda #p8l_lbl15d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3748 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3750 goto skip15d bra p8l_skip15d ; source: test_word_splitw_equalities.p8:3751 lbl15d: success++ p8l_lbl15d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3752 skip15d: p8l_skip15d ; source: test_word_splitw_equalities.p8:3754 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_462_afterif cpy p8v_sources_msb+1 bne label_asm_462_afterif ; source: test_word_splitw_equalities.p8:3755 success++ inc p8b_main.p8v_success label_asm_462_afterif ; source: test_word_splitw_equalities.p8:3758 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_464_else cpy p8v_sources_msb+1 bne label_asm_464_else ; source: test_word_splitw_equalities.p8:3759 success++ inc p8b_main.p8v_success bra label_asm_463_afterif label_asm_464_else ; source: test_word_splitw_equalities.p8:3761 cx16.r0L++ inc cx16.r0L label_asm_463_afterif ; source: test_word_splitw_equalities.p8:3763 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3765 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl16a + ; source: test_word_splitw_equalities.p8:3767 goto skip16a bra p8l_skip16a ; source: test_word_splitw_equalities.p8:3768 lbl16a: fail_word(337,30464) p8l_lbl16a lda #<$0151 ldy #>$0151 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3769 skip16a: p8l_skip16a ; source: test_word_splitw_equalities.p8:3771 cx16.r3 = &lbl16b lda #p8l_lbl16b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3772 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3774 goto skip16b bra p8l_skip16b ; source: test_word_splitw_equalities.p8:3775 lbl16b: fail_word(338,30464) p8l_lbl16b lda #<$0152 ldy #>$0152 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3776 skip16b: p8l_skip16b ; source: test_word_splitw_equalities.p8:3778 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_465_afterif cpy p8v_sources_msb+1 bne label_asm_465_afterif ; source: test_word_splitw_equalities.p8:3779 fail_word(339,30464) lda #<$0153 ldy #>$0153 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_465_afterif ; source: test_word_splitw_equalities.p8:3782 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_467_else cpy p8v_sources_msb+1 bne label_asm_467_else ; source: test_word_splitw_equalities.p8:3783 fail_word(340,30464) lda #<$0154 ldy #>$0154 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_466_afterif label_asm_467_else ; source: test_word_splitw_equalities.p8:3785 cx16.r0L++ inc cx16.r0L label_asm_466_afterif ; source: test_word_splitw_equalities.p8:3788 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl16c + ; source: test_word_splitw_equalities.p8:3790 goto skip16c bra p8l_skip16c ; source: test_word_splitw_equalities.p8:3791 lbl16c: fail_word(341,30464) p8l_lbl16c lda #<$0155 ldy #>$0155 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3792 skip16c: p8l_skip16c ; source: test_word_splitw_equalities.p8:3794 cx16.r3 = &lbl16d lda #p8l_lbl16d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3795 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3797 goto skip16d bra p8l_skip16d ; source: test_word_splitw_equalities.p8:3798 lbl16d: fail_word(342,30464) p8l_lbl16d lda #<$0156 ldy #>$0156 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3799 skip16d: p8l_skip16d ; source: test_word_splitw_equalities.p8:3801 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_468_afterif cpy p8v_sources_msb+1 bne label_asm_468_afterif ; source: test_word_splitw_equalities.p8:3802 fail_word(343,30464) lda #<$0157 ldy #>$0157 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_468_afterif ; source: test_word_splitw_equalities.p8:3805 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_470_else cpy p8v_sources_msb+1 bne label_asm_470_else ; source: test_word_splitw_equalities.p8:3806 fail_word(344,30464) lda #<$0158 ldy #>$0158 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_469_afterif label_asm_470_else ; source: test_word_splitw_equalities.p8:3808 cx16.r0L++ inc cx16.r0L label_asm_469_afterif ; source: test_word_splitw_equalities.p8:3810 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3811 sources[1]=32767 ldy #1 lda #<$7fff sta p8v_sources_lsb,y lda #>$7fff sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:3812 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3814 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl17a + ; source: test_word_splitw_equalities.p8:3816 goto skip17a bra p8l_skip17a ; source: test_word_splitw_equalities.p8:3817 lbl17a: fail_word(345,32767) p8l_lbl17a lda #<$0159 ldy #>$0159 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3818 skip17a: p8l_skip17a ; source: test_word_splitw_equalities.p8:3820 cx16.r3 = &lbl17b lda #p8l_lbl17b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3821 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3823 goto skip17b bra p8l_skip17b ; source: test_word_splitw_equalities.p8:3824 lbl17b: fail_word(346,32767) p8l_lbl17b lda #<$015a ldy #>$015a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3825 skip17b: p8l_skip17b ; source: test_word_splitw_equalities.p8:3827 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_471_afterif cpy p8v_sources_msb+1 bne label_asm_471_afterif ; source: test_word_splitw_equalities.p8:3828 fail_word(347,32767) lda #<$015b ldy #>$015b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_471_afterif ; source: test_word_splitw_equalities.p8:3831 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_473_else cpy p8v_sources_msb+1 bne label_asm_473_else ; source: test_word_splitw_equalities.p8:3832 fail_word(348,32767) lda #<$015c ldy #>$015c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_472_afterif label_asm_473_else ; source: test_word_splitw_equalities.p8:3834 cx16.r0L++ inc cx16.r0L label_asm_472_afterif ; source: test_word_splitw_equalities.p8:3837 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl17c + ; source: test_word_splitw_equalities.p8:3839 goto skip17c bra p8l_skip17c ; source: test_word_splitw_equalities.p8:3840 lbl17c: fail_word(349,32767) p8l_lbl17c lda #<$015d ldy #>$015d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3841 skip17c: p8l_skip17c ; source: test_word_splitw_equalities.p8:3843 cx16.r3 = &lbl17d lda #p8l_lbl17d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3844 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3846 goto skip17d bra p8l_skip17d ; source: test_word_splitw_equalities.p8:3847 lbl17d: fail_word(350,32767) p8l_lbl17d lda #<$015e ldy #>$015e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3848 skip17d: p8l_skip17d ; source: test_word_splitw_equalities.p8:3850 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_474_afterif cpy p8v_sources_msb+1 bne label_asm_474_afterif ; source: test_word_splitw_equalities.p8:3851 fail_word(351,32767) lda #<$015f ldy #>$015f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_474_afterif ; source: test_word_splitw_equalities.p8:3854 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_476_else cpy p8v_sources_msb+1 bne label_asm_476_else ; source: test_word_splitw_equalities.p8:3855 fail_word(352,32767) lda #<$0160 ldy #>$0160 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_475_afterif label_asm_476_else ; source: test_word_splitw_equalities.p8:3857 cx16.r0L++ inc cx16.r0L label_asm_475_afterif ; source: test_word_splitw_equalities.p8:3859 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3861 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl18a + ; source: test_word_splitw_equalities.p8:3863 goto skip18a bra p8l_skip18a ; source: test_word_splitw_equalities.p8:3864 lbl18a: fail_word(353,32767) p8l_lbl18a lda #<$0161 ldy #>$0161 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3865 skip18a: p8l_skip18a ; source: test_word_splitw_equalities.p8:3867 cx16.r3 = &lbl18b lda #p8l_lbl18b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3868 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3870 goto skip18b bra p8l_skip18b ; source: test_word_splitw_equalities.p8:3871 lbl18b: fail_word(354,32767) p8l_lbl18b lda #<$0162 ldy #>$0162 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3872 skip18b: p8l_skip18b ; source: test_word_splitw_equalities.p8:3874 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_477_afterif cpy p8v_sources_msb+1 bne label_asm_477_afterif ; source: test_word_splitw_equalities.p8:3875 fail_word(355,32767) lda #<$0163 ldy #>$0163 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_477_afterif ; source: test_word_splitw_equalities.p8:3878 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_479_else cpy p8v_sources_msb+1 bne label_asm_479_else ; source: test_word_splitw_equalities.p8:3879 fail_word(356,32767) lda #<$0164 ldy #>$0164 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_478_afterif label_asm_479_else ; source: test_word_splitw_equalities.p8:3881 cx16.r0L++ inc cx16.r0L label_asm_478_afterif ; source: test_word_splitw_equalities.p8:3884 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl18c + ; source: test_word_splitw_equalities.p8:3886 goto skip18c bra p8l_skip18c ; source: test_word_splitw_equalities.p8:3887 lbl18c: fail_word(357,32767) p8l_lbl18c lda #<$0165 ldy #>$0165 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3888 skip18c: p8l_skip18c ; source: test_word_splitw_equalities.p8:3890 cx16.r3 = &lbl18d lda #p8l_lbl18d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3891 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3893 goto skip18d bra p8l_skip18d ; source: test_word_splitw_equalities.p8:3894 lbl18d: fail_word(358,32767) p8l_lbl18d lda #<$0166 ldy #>$0166 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3895 skip18d: p8l_skip18d ; source: test_word_splitw_equalities.p8:3897 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_480_afterif cpy p8v_sources_msb+1 bne label_asm_480_afterif ; source: test_word_splitw_equalities.p8:3898 fail_word(359,32767) lda #<$0167 ldy #>$0167 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_480_afterif ; source: test_word_splitw_equalities.p8:3901 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_482_else cpy p8v_sources_msb+1 bne label_asm_482_else ; source: test_word_splitw_equalities.p8:3902 fail_word(360,32767) lda #<$0168 ldy #>$0168 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_481_afterif label_asm_482_else ; source: test_word_splitw_equalities.p8:3904 cx16.r0L++ inc cx16.r0L label_asm_481_afterif ; source: test_word_splitw_equalities.p8:3906 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3908 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl19a + ; source: test_word_splitw_equalities.p8:3910 goto skip19a bra p8l_skip19a ; source: test_word_splitw_equalities.p8:3911 lbl19a: fail_word(361,32767) p8l_lbl19a lda #<$0169 ldy #>$0169 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3912 skip19a: p8l_skip19a ; source: test_word_splitw_equalities.p8:3914 cx16.r3 = &lbl19b lda #p8l_lbl19b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3915 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3917 goto skip19b bra p8l_skip19b ; source: test_word_splitw_equalities.p8:3918 lbl19b: fail_word(362,32767) p8l_lbl19b lda #<$016a ldy #>$016a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3919 skip19b: p8l_skip19b ; source: test_word_splitw_equalities.p8:3921 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_483_afterif cpy p8v_sources_msb+1 bne label_asm_483_afterif ; source: test_word_splitw_equalities.p8:3922 fail_word(363,32767) lda #<$016b ldy #>$016b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_483_afterif ; source: test_word_splitw_equalities.p8:3925 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_485_else cpy p8v_sources_msb+1 bne label_asm_485_else ; source: test_word_splitw_equalities.p8:3926 fail_word(364,32767) lda #<$016c ldy #>$016c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_484_afterif label_asm_485_else ; source: test_word_splitw_equalities.p8:3928 cx16.r0L++ inc cx16.r0L label_asm_484_afterif ; source: test_word_splitw_equalities.p8:3931 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl19c + ; source: test_word_splitw_equalities.p8:3933 goto skip19c bra p8l_skip19c ; source: test_word_splitw_equalities.p8:3934 lbl19c: fail_word(365,32767) p8l_lbl19c lda #<$016d ldy #>$016d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3935 skip19c: p8l_skip19c ; source: test_word_splitw_equalities.p8:3937 cx16.r3 = &lbl19d lda #p8l_lbl19d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3938 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3940 goto skip19d bra p8l_skip19d ; source: test_word_splitw_equalities.p8:3941 lbl19d: fail_word(366,32767) p8l_lbl19d lda #<$016e ldy #>$016e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:3942 skip19d: p8l_skip19d ; source: test_word_splitw_equalities.p8:3944 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_486_afterif cpy p8v_sources_msb+1 bne label_asm_486_afterif ; source: test_word_splitw_equalities.p8:3945 fail_word(367,32767) lda #<$016f ldy #>$016f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_486_afterif ; source: test_word_splitw_equalities.p8:3948 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_488_else cpy p8v_sources_msb+1 bne label_asm_488_else ; source: test_word_splitw_equalities.p8:3949 fail_word(368,32767) lda #<$0170 ldy #>$0170 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_487_afterif label_asm_488_else ; source: test_word_splitw_equalities.p8:3951 cx16.r0L++ inc cx16.r0L label_asm_487_afterif ; source: test_word_splitw_equalities.p8:3953 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:3955 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl20a + ; source: test_word_splitw_equalities.p8:3957 goto skip20a bra p8l_skip20a ; source: test_word_splitw_equalities.p8:3958 lbl20a: success++ p8l_lbl20a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3959 skip20a: p8l_skip20a ; source: test_word_splitw_equalities.p8:3961 cx16.r3 = &lbl20b lda #p8l_lbl20b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3962 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3964 goto skip20b bra p8l_skip20b ; source: test_word_splitw_equalities.p8:3965 lbl20b: success++ p8l_lbl20b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3966 skip20b: p8l_skip20b ; source: test_word_splitw_equalities.p8:3968 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_489_afterif cpy p8v_sources_msb+1 bne label_asm_489_afterif ; source: test_word_splitw_equalities.p8:3969 success++ inc p8b_main.p8v_success label_asm_489_afterif ; source: test_word_splitw_equalities.p8:3972 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_491_else cpy p8v_sources_msb+1 bne label_asm_491_else ; source: test_word_splitw_equalities.p8:3973 success++ inc p8b_main.p8v_success bra label_asm_490_afterif label_asm_491_else ; source: test_word_splitw_equalities.p8:3975 cx16.r0L++ inc cx16.r0L label_asm_490_afterif ; source: test_word_splitw_equalities.p8:3978 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq p8l_lbl20c + ; source: test_word_splitw_equalities.p8:3980 goto skip20c bra p8l_skip20c ; source: test_word_splitw_equalities.p8:3981 lbl20c: success++ p8l_lbl20c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3982 skip20c: p8l_skip20c ; source: test_word_splitw_equalities.p8:3984 cx16.r3 = &lbl20d lda #p8l_lbl20d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:3985 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 bne + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:3987 goto skip20d bra p8l_skip20d ; source: test_word_splitw_equalities.p8:3988 lbl20d: success++ p8l_lbl20d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:3989 skip20d: p8l_skip20d ; source: test_word_splitw_equalities.p8:3991 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_492_afterif cpy p8v_sources_msb+1 bne label_asm_492_afterif ; source: test_word_splitw_equalities.p8:3992 success++ inc p8b_main.p8v_success label_asm_492_afterif ; source: test_word_splitw_equalities.p8:3995 if sources[1]==values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne label_asm_494_else cpy p8v_sources_msb+1 bne label_asm_494_else ; source: test_word_splitw_equalities.p8:3996 success++ inc p8b_main.p8v_success bra label_asm_493_afterif label_asm_494_else ; source: test_word_splitw_equalities.p8:3998 cx16.r0L++ inc cx16.r0L label_asm_493_afterif ; source: test_word_splitw_equalities.p8:4000 verify_success(32) lda #$20 jmp p8b_main.p8s_verify_success ; source: test_word_splitw_equalities.p8:3045 sub test_is_array_splitw() { ; variables .section BSS .send BSS ; non-zeropage variables _array_p8v_sources := $270f, $22b8 p8v_sources_lsb .byte <_array_p8v_sources p8v_sources_msb .byte >_array_p8v_sources _array_p8v_values := $270f, $22b8 p8v_values_lsb .byte <_array_p8v_values p8v_values_msb .byte >_array_p8v_values .pend ; source: test_word_splitw_equalities.p8:4002 sub test_not_array_splitw() { p8s_test_not_array_splitw .proc ; statements ; source: test_word_splitw_equalities.p8:4004 word[] @split values = [9999, 8888] ; source: test_word_splitw_equalities.p8:4005 word[] @split sources = [9999, 8888] ; source: test_word_splitw_equalities.p8:4006 success = 0 stz p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4007 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4008 sources[1]=-21829 ldy #1 lda #<-$5545 sta p8v_sources_lsb,y lda #>-$5545 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:4009 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4011 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl1a cpy p8v_sources_msb+1 bne p8l_lbl1a ; source: test_word_splitw_equalities.p8:4013 goto skip1a bra p8l_skip1a ; source: test_word_splitw_equalities.p8:4014 lbl1a: fail_word(369,-21829) p8l_lbl1a lda #<$0171 ldy #>$0171 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4015 skip1a: p8l_skip1a ; source: test_word_splitw_equalities.p8:4017 cx16.r3 = &lbl1b lda #p8l_lbl1b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4018 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4020 goto skip1b bra p8l_skip1b ; source: test_word_splitw_equalities.p8:4021 lbl1b: fail_word(370,-21829) p8l_lbl1b lda #<$0172 ldy #>$0172 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4022 skip1b: p8l_skip1b ; source: test_word_splitw_equalities.p8:4024 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_495_afterif + ; source: test_word_splitw_equalities.p8:4025 fail_word(371,-21829) lda #<$0173 ldy #>$0173 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_495_afterif ; source: test_word_splitw_equalities.p8:4028 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_497_else + ; source: test_word_splitw_equalities.p8:4029 fail_word(372,-21829) lda #<$0174 ldy #>$0174 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_496_afterif label_asm_497_else ; source: test_word_splitw_equalities.p8:4031 cx16.r0L++ inc cx16.r0L label_asm_496_afterif ; source: test_word_splitw_equalities.p8:4034 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl1c cpy p8v_sources_msb+1 bne p8l_lbl1c ; source: test_word_splitw_equalities.p8:4036 goto skip1c bra p8l_skip1c ; source: test_word_splitw_equalities.p8:4037 lbl1c: fail_word(373,-21829) p8l_lbl1c lda #<$0175 ldy #>$0175 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4038 skip1c: p8l_skip1c ; source: test_word_splitw_equalities.p8:4040 cx16.r3 = &lbl1d lda #p8l_lbl1d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4041 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4043 goto skip1d bra p8l_skip1d ; source: test_word_splitw_equalities.p8:4044 lbl1d: fail_word(374,-21829) p8l_lbl1d lda #<$0176 ldy #>$0176 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4045 skip1d: p8l_skip1d ; source: test_word_splitw_equalities.p8:4047 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_498_afterif + ; source: test_word_splitw_equalities.p8:4048 fail_word(375,-21829) lda #<$0177 ldy #>$0177 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_498_afterif ; source: test_word_splitw_equalities.p8:4051 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_500_else + ; source: test_word_splitw_equalities.p8:4052 fail_word(376,-21829) lda #<$0178 ldy #>$0178 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<-$5545 ldy #>-$5545 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_499_afterif label_asm_500_else ; source: test_word_splitw_equalities.p8:4054 cx16.r0L++ inc cx16.r0L label_asm_499_afterif ; source: test_word_splitw_equalities.p8:4056 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4058 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl2a cpy p8v_sources_msb+1 bne p8l_lbl2a ; source: test_word_splitw_equalities.p8:4060 goto skip2a bra p8l_skip2a ; source: test_word_splitw_equalities.p8:4061 lbl2a: success++ p8l_lbl2a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4062 skip2a: p8l_skip2a ; source: test_word_splitw_equalities.p8:4064 cx16.r3 = &lbl2b lda #p8l_lbl2b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4065 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4067 goto skip2b bra p8l_skip2b ; source: test_word_splitw_equalities.p8:4068 lbl2b: success++ p8l_lbl2b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4069 skip2b: p8l_skip2b ; source: test_word_splitw_equalities.p8:4071 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_501_afterif + ; source: test_word_splitw_equalities.p8:4072 success++ inc p8b_main.p8v_success label_asm_501_afterif ; source: test_word_splitw_equalities.p8:4075 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_503_else + ; source: test_word_splitw_equalities.p8:4076 success++ inc p8b_main.p8v_success bra label_asm_502_afterif label_asm_503_else ; source: test_word_splitw_equalities.p8:4078 cx16.r0L++ inc cx16.r0L label_asm_502_afterif ; source: test_word_splitw_equalities.p8:4081 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl2c cpy p8v_sources_msb+1 bne p8l_lbl2c ; source: test_word_splitw_equalities.p8:4083 goto skip2c bra p8l_skip2c ; source: test_word_splitw_equalities.p8:4084 lbl2c: success++ p8l_lbl2c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4085 skip2c: p8l_skip2c ; source: test_word_splitw_equalities.p8:4087 cx16.r3 = &lbl2d lda #p8l_lbl2d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4088 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4090 goto skip2d bra p8l_skip2d ; source: test_word_splitw_equalities.p8:4091 lbl2d: success++ p8l_lbl2d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4092 skip2d: p8l_skip2d ; source: test_word_splitw_equalities.p8:4094 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_504_afterif + ; source: test_word_splitw_equalities.p8:4095 success++ inc p8b_main.p8v_success label_asm_504_afterif ; source: test_word_splitw_equalities.p8:4098 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_506_else + ; source: test_word_splitw_equalities.p8:4099 success++ inc p8b_main.p8v_success bra label_asm_505_afterif label_asm_506_else ; source: test_word_splitw_equalities.p8:4101 cx16.r0L++ inc cx16.r0L label_asm_505_afterif ; source: test_word_splitw_equalities.p8:4103 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4105 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl3a cpy p8v_sources_msb+1 bne p8l_lbl3a ; source: test_word_splitw_equalities.p8:4107 goto skip3a bra p8l_skip3a ; source: test_word_splitw_equalities.p8:4108 lbl3a: success++ p8l_lbl3a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4109 skip3a: p8l_skip3a ; source: test_word_splitw_equalities.p8:4111 cx16.r3 = &lbl3b lda #p8l_lbl3b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4112 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4114 goto skip3b bra p8l_skip3b ; source: test_word_splitw_equalities.p8:4115 lbl3b: success++ p8l_lbl3b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4116 skip3b: p8l_skip3b ; source: test_word_splitw_equalities.p8:4118 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_507_afterif + ; source: test_word_splitw_equalities.p8:4119 success++ inc p8b_main.p8v_success label_asm_507_afterif ; source: test_word_splitw_equalities.p8:4122 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_509_else + ; source: test_word_splitw_equalities.p8:4123 success++ inc p8b_main.p8v_success bra label_asm_508_afterif label_asm_509_else ; source: test_word_splitw_equalities.p8:4125 cx16.r0L++ inc cx16.r0L label_asm_508_afterif ; source: test_word_splitw_equalities.p8:4128 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl3c cpy p8v_sources_msb+1 bne p8l_lbl3c ; source: test_word_splitw_equalities.p8:4130 goto skip3c bra p8l_skip3c ; source: test_word_splitw_equalities.p8:4131 lbl3c: success++ p8l_lbl3c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4132 skip3c: p8l_skip3c ; source: test_word_splitw_equalities.p8:4134 cx16.r3 = &lbl3d lda #p8l_lbl3d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4135 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4137 goto skip3d bra p8l_skip3d ; source: test_word_splitw_equalities.p8:4138 lbl3d: success++ p8l_lbl3d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4139 skip3d: p8l_skip3d ; source: test_word_splitw_equalities.p8:4141 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_510_afterif + ; source: test_word_splitw_equalities.p8:4142 success++ inc p8b_main.p8v_success label_asm_510_afterif ; source: test_word_splitw_equalities.p8:4145 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_512_else + ; source: test_word_splitw_equalities.p8:4146 success++ inc p8b_main.p8v_success bra label_asm_511_afterif label_asm_512_else ; source: test_word_splitw_equalities.p8:4148 cx16.r0L++ inc cx16.r0L label_asm_511_afterif ; source: test_word_splitw_equalities.p8:4150 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4152 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl4a cpy p8v_sources_msb+1 bne p8l_lbl4a ; source: test_word_splitw_equalities.p8:4154 goto skip4a bra p8l_skip4a ; source: test_word_splitw_equalities.p8:4155 lbl4a: success++ p8l_lbl4a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4156 skip4a: p8l_skip4a ; source: test_word_splitw_equalities.p8:4158 cx16.r3 = &lbl4b lda #p8l_lbl4b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4159 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4161 goto skip4b bra p8l_skip4b ; source: test_word_splitw_equalities.p8:4162 lbl4b: success++ p8l_lbl4b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4163 skip4b: p8l_skip4b ; source: test_word_splitw_equalities.p8:4165 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_513_afterif + ; source: test_word_splitw_equalities.p8:4166 success++ inc p8b_main.p8v_success label_asm_513_afterif ; source: test_word_splitw_equalities.p8:4169 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_515_else + ; source: test_word_splitw_equalities.p8:4170 success++ inc p8b_main.p8v_success bra label_asm_514_afterif label_asm_515_else ; source: test_word_splitw_equalities.p8:4172 cx16.r0L++ inc cx16.r0L label_asm_514_afterif ; source: test_word_splitw_equalities.p8:4175 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl4c cpy p8v_sources_msb+1 bne p8l_lbl4c ; source: test_word_splitw_equalities.p8:4177 goto skip4c bra p8l_skip4c ; source: test_word_splitw_equalities.p8:4178 lbl4c: success++ p8l_lbl4c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4179 skip4c: p8l_skip4c ; source: test_word_splitw_equalities.p8:4181 cx16.r3 = &lbl4d lda #p8l_lbl4d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4182 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4184 goto skip4d bra p8l_skip4d ; source: test_word_splitw_equalities.p8:4185 lbl4d: success++ p8l_lbl4d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4186 skip4d: p8l_skip4d ; source: test_word_splitw_equalities.p8:4188 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_516_afterif + ; source: test_word_splitw_equalities.p8:4189 success++ inc p8b_main.p8v_success label_asm_516_afterif ; source: test_word_splitw_equalities.p8:4192 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_518_else + ; source: test_word_splitw_equalities.p8:4193 success++ inc p8b_main.p8v_success bra label_asm_517_afterif label_asm_518_else ; source: test_word_splitw_equalities.p8:4195 cx16.r0L++ inc cx16.r0L label_asm_517_afterif ; source: test_word_splitw_equalities.p8:4197 values[1]=0 ldy #1 lda #0 sta p8v_values_lsb,y sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4198 sources[1]=0 ldy #1 lda #0 sta p8v_sources_lsb,y sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:4199 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4201 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl5a cpy p8v_sources_msb+1 bne p8l_lbl5a ; source: test_word_splitw_equalities.p8:4203 goto skip5a bra p8l_skip5a ; source: test_word_splitw_equalities.p8:4204 lbl5a: success++ p8l_lbl5a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4205 skip5a: p8l_skip5a ; source: test_word_splitw_equalities.p8:4207 cx16.r3 = &lbl5b lda #p8l_lbl5b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4208 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4210 goto skip5b bra p8l_skip5b ; source: test_word_splitw_equalities.p8:4211 lbl5b: success++ p8l_lbl5b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4212 skip5b: p8l_skip5b ; source: test_word_splitw_equalities.p8:4214 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_519_afterif + ; source: test_word_splitw_equalities.p8:4215 success++ inc p8b_main.p8v_success label_asm_519_afterif ; source: test_word_splitw_equalities.p8:4218 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_521_else + ; source: test_word_splitw_equalities.p8:4219 success++ inc p8b_main.p8v_success bra label_asm_520_afterif label_asm_521_else ; source: test_word_splitw_equalities.p8:4221 cx16.r0L++ inc cx16.r0L label_asm_520_afterif ; source: test_word_splitw_equalities.p8:4224 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl5c cpy p8v_sources_msb+1 bne p8l_lbl5c ; source: test_word_splitw_equalities.p8:4226 goto skip5c bra p8l_skip5c ; source: test_word_splitw_equalities.p8:4227 lbl5c: success++ p8l_lbl5c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4228 skip5c: p8l_skip5c ; source: test_word_splitw_equalities.p8:4230 cx16.r3 = &lbl5d lda #p8l_lbl5d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4231 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4233 goto skip5d bra p8l_skip5d ; source: test_word_splitw_equalities.p8:4234 lbl5d: success++ p8l_lbl5d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4235 skip5d: p8l_skip5d ; source: test_word_splitw_equalities.p8:4237 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_522_afterif + ; source: test_word_splitw_equalities.p8:4238 success++ inc p8b_main.p8v_success label_asm_522_afterif ; source: test_word_splitw_equalities.p8:4241 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_524_else + ; source: test_word_splitw_equalities.p8:4242 success++ inc p8b_main.p8v_success bra label_asm_523_afterif label_asm_524_else ; source: test_word_splitw_equalities.p8:4244 cx16.r0L++ inc cx16.r0L label_asm_523_afterif ; source: test_word_splitw_equalities.p8:4246 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4248 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl6a cpy p8v_sources_msb+1 bne p8l_lbl6a ; source: test_word_splitw_equalities.p8:4250 goto skip6a bra p8l_skip6a ; source: test_word_splitw_equalities.p8:4251 lbl6a: success++ p8l_lbl6a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4252 skip6a: p8l_skip6a ; source: test_word_splitw_equalities.p8:4254 cx16.r3 = &lbl6b lda #p8l_lbl6b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4255 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4257 goto skip6b bra p8l_skip6b ; source: test_word_splitw_equalities.p8:4258 lbl6b: success++ p8l_lbl6b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4259 skip6b: p8l_skip6b ; source: test_word_splitw_equalities.p8:4261 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_525_afterif + ; source: test_word_splitw_equalities.p8:4262 success++ inc p8b_main.p8v_success label_asm_525_afterif ; source: test_word_splitw_equalities.p8:4265 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_527_else + ; source: test_word_splitw_equalities.p8:4266 success++ inc p8b_main.p8v_success bra label_asm_526_afterif label_asm_527_else ; source: test_word_splitw_equalities.p8:4268 cx16.r0L++ inc cx16.r0L label_asm_526_afterif ; source: test_word_splitw_equalities.p8:4271 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl6c cpy p8v_sources_msb+1 bne p8l_lbl6c ; source: test_word_splitw_equalities.p8:4273 goto skip6c bra p8l_skip6c ; source: test_word_splitw_equalities.p8:4274 lbl6c: success++ p8l_lbl6c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4275 skip6c: p8l_skip6c ; source: test_word_splitw_equalities.p8:4277 cx16.r3 = &lbl6d lda #p8l_lbl6d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4278 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4280 goto skip6d bra p8l_skip6d ; source: test_word_splitw_equalities.p8:4281 lbl6d: success++ p8l_lbl6d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4282 skip6d: p8l_skip6d ; source: test_word_splitw_equalities.p8:4284 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_528_afterif + ; source: test_word_splitw_equalities.p8:4285 success++ inc p8b_main.p8v_success label_asm_528_afterif ; source: test_word_splitw_equalities.p8:4288 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_530_else + ; source: test_word_splitw_equalities.p8:4289 success++ inc p8b_main.p8v_success bra label_asm_529_afterif label_asm_530_else ; source: test_word_splitw_equalities.p8:4291 cx16.r0L++ inc cx16.r0L label_asm_529_afterif ; source: test_word_splitw_equalities.p8:4293 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4295 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl7a cpy p8v_sources_msb+1 bne p8l_lbl7a ; source: test_word_splitw_equalities.p8:4297 goto skip7a bra p8l_skip7a ; source: test_word_splitw_equalities.p8:4298 lbl7a: success++ p8l_lbl7a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4299 skip7a: p8l_skip7a ; source: test_word_splitw_equalities.p8:4301 cx16.r3 = &lbl7b lda #p8l_lbl7b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4302 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4304 goto skip7b bra p8l_skip7b ; source: test_word_splitw_equalities.p8:4305 lbl7b: success++ p8l_lbl7b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4306 skip7b: p8l_skip7b ; source: test_word_splitw_equalities.p8:4308 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_531_afterif + ; source: test_word_splitw_equalities.p8:4309 success++ inc p8b_main.p8v_success label_asm_531_afterif ; source: test_word_splitw_equalities.p8:4312 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_533_else + ; source: test_word_splitw_equalities.p8:4313 success++ inc p8b_main.p8v_success bra label_asm_532_afterif label_asm_533_else ; source: test_word_splitw_equalities.p8:4315 cx16.r0L++ inc cx16.r0L label_asm_532_afterif ; source: test_word_splitw_equalities.p8:4318 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl7c cpy p8v_sources_msb+1 bne p8l_lbl7c ; source: test_word_splitw_equalities.p8:4320 goto skip7c bra p8l_skip7c ; source: test_word_splitw_equalities.p8:4321 lbl7c: success++ p8l_lbl7c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4322 skip7c: p8l_skip7c ; source: test_word_splitw_equalities.p8:4324 cx16.r3 = &lbl7d lda #p8l_lbl7d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4325 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4327 goto skip7d bra p8l_skip7d ; source: test_word_splitw_equalities.p8:4328 lbl7d: success++ p8l_lbl7d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4329 skip7d: p8l_skip7d ; source: test_word_splitw_equalities.p8:4331 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_534_afterif + ; source: test_word_splitw_equalities.p8:4332 success++ inc p8b_main.p8v_success label_asm_534_afterif ; source: test_word_splitw_equalities.p8:4335 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_536_else + ; source: test_word_splitw_equalities.p8:4336 success++ inc p8b_main.p8v_success bra label_asm_535_afterif label_asm_536_else ; source: test_word_splitw_equalities.p8:4338 cx16.r0L++ inc cx16.r0L label_asm_535_afterif ; source: test_word_splitw_equalities.p8:4340 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4342 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl8a cpy p8v_sources_msb+1 bne p8l_lbl8a ; source: test_word_splitw_equalities.p8:4344 goto skip8a bra p8l_skip8a ; source: test_word_splitw_equalities.p8:4345 lbl8a: success++ p8l_lbl8a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4346 skip8a: p8l_skip8a ; source: test_word_splitw_equalities.p8:4348 cx16.r3 = &lbl8b lda #p8l_lbl8b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4349 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4351 goto skip8b bra p8l_skip8b ; source: test_word_splitw_equalities.p8:4352 lbl8b: success++ p8l_lbl8b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4353 skip8b: p8l_skip8b ; source: test_word_splitw_equalities.p8:4355 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_537_afterif + ; source: test_word_splitw_equalities.p8:4356 success++ inc p8b_main.p8v_success label_asm_537_afterif ; source: test_word_splitw_equalities.p8:4359 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_539_else + ; source: test_word_splitw_equalities.p8:4360 success++ inc p8b_main.p8v_success bra label_asm_538_afterif label_asm_539_else ; source: test_word_splitw_equalities.p8:4362 cx16.r0L++ inc cx16.r0L label_asm_538_afterif ; source: test_word_splitw_equalities.p8:4365 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl8c cpy p8v_sources_msb+1 bne p8l_lbl8c ; source: test_word_splitw_equalities.p8:4367 goto skip8c bra p8l_skip8c ; source: test_word_splitw_equalities.p8:4368 lbl8c: success++ p8l_lbl8c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4369 skip8c: p8l_skip8c ; source: test_word_splitw_equalities.p8:4371 cx16.r3 = &lbl8d lda #p8l_lbl8d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4372 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4374 goto skip8d bra p8l_skip8d ; source: test_word_splitw_equalities.p8:4375 lbl8d: success++ p8l_lbl8d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4376 skip8d: p8l_skip8d ; source: test_word_splitw_equalities.p8:4378 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_540_afterif + ; source: test_word_splitw_equalities.p8:4379 success++ inc p8b_main.p8v_success label_asm_540_afterif ; source: test_word_splitw_equalities.p8:4382 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_542_else + ; source: test_word_splitw_equalities.p8:4383 success++ inc p8b_main.p8v_success bra label_asm_541_afterif label_asm_542_else ; source: test_word_splitw_equalities.p8:4385 cx16.r0L++ inc cx16.r0L label_asm_541_afterif ; source: test_word_splitw_equalities.p8:4387 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4388 sources[1]=170 ldy #1 lda #<$aa sta p8v_sources_lsb,y lda #>$aa sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:4389 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4391 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl9a cpy p8v_sources_msb+1 bne p8l_lbl9a ; source: test_word_splitw_equalities.p8:4393 goto skip9a bra p8l_skip9a ; source: test_word_splitw_equalities.p8:4394 lbl9a: success++ p8l_lbl9a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4395 skip9a: p8l_skip9a ; source: test_word_splitw_equalities.p8:4397 cx16.r3 = &lbl9b lda #p8l_lbl9b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4398 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4400 goto skip9b bra p8l_skip9b ; source: test_word_splitw_equalities.p8:4401 lbl9b: success++ p8l_lbl9b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4402 skip9b: p8l_skip9b ; source: test_word_splitw_equalities.p8:4404 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_543_afterif + ; source: test_word_splitw_equalities.p8:4405 success++ inc p8b_main.p8v_success label_asm_543_afterif ; source: test_word_splitw_equalities.p8:4408 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_545_else + ; source: test_word_splitw_equalities.p8:4409 success++ inc p8b_main.p8v_success bra label_asm_544_afterif label_asm_545_else ; source: test_word_splitw_equalities.p8:4411 cx16.r0L++ inc cx16.r0L label_asm_544_afterif ; source: test_word_splitw_equalities.p8:4414 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl9c cpy p8v_sources_msb+1 bne p8l_lbl9c ; source: test_word_splitw_equalities.p8:4416 goto skip9c bra p8l_skip9c ; source: test_word_splitw_equalities.p8:4417 lbl9c: success++ p8l_lbl9c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4418 skip9c: p8l_skip9c ; source: test_word_splitw_equalities.p8:4420 cx16.r3 = &lbl9d lda #p8l_lbl9d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4421 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4423 goto skip9d bra p8l_skip9d ; source: test_word_splitw_equalities.p8:4424 lbl9d: success++ p8l_lbl9d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4425 skip9d: p8l_skip9d ; source: test_word_splitw_equalities.p8:4427 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_546_afterif + ; source: test_word_splitw_equalities.p8:4428 success++ inc p8b_main.p8v_success label_asm_546_afterif ; source: test_word_splitw_equalities.p8:4431 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_548_else + ; source: test_word_splitw_equalities.p8:4432 success++ inc p8b_main.p8v_success bra label_asm_547_afterif label_asm_548_else ; source: test_word_splitw_equalities.p8:4434 cx16.r0L++ inc cx16.r0L label_asm_547_afterif ; source: test_word_splitw_equalities.p8:4436 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4438 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl10a cpy p8v_sources_msb+1 bne p8l_lbl10a ; source: test_word_splitw_equalities.p8:4440 goto skip10a bra p8l_skip10a ; source: test_word_splitw_equalities.p8:4441 lbl10a: fail_word(377,170) p8l_lbl10a lda #<$0179 ldy #>$0179 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4442 skip10a: p8l_skip10a ; source: test_word_splitw_equalities.p8:4444 cx16.r3 = &lbl10b lda #p8l_lbl10b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4445 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4447 goto skip10b bra p8l_skip10b ; source: test_word_splitw_equalities.p8:4448 lbl10b: fail_word(378,170) p8l_lbl10b lda #<$017a ldy #>$017a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4449 skip10b: p8l_skip10b ; source: test_word_splitw_equalities.p8:4451 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_549_afterif + ; source: test_word_splitw_equalities.p8:4452 fail_word(379,170) lda #<$017b ldy #>$017b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_549_afterif ; source: test_word_splitw_equalities.p8:4455 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_551_else + ; source: test_word_splitw_equalities.p8:4456 fail_word(380,170) lda #<$017c ldy #>$017c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_550_afterif label_asm_551_else ; source: test_word_splitw_equalities.p8:4458 cx16.r0L++ inc cx16.r0L label_asm_550_afterif ; source: test_word_splitw_equalities.p8:4461 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl10c cpy p8v_sources_msb+1 bne p8l_lbl10c ; source: test_word_splitw_equalities.p8:4463 goto skip10c bra p8l_skip10c ; source: test_word_splitw_equalities.p8:4464 lbl10c: fail_word(381,170) p8l_lbl10c lda #<$017d ldy #>$017d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4465 skip10c: p8l_skip10c ; source: test_word_splitw_equalities.p8:4467 cx16.r3 = &lbl10d lda #p8l_lbl10d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4468 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4470 goto skip10d bra p8l_skip10d ; source: test_word_splitw_equalities.p8:4471 lbl10d: fail_word(382,170) p8l_lbl10d lda #<$017e ldy #>$017e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4472 skip10d: p8l_skip10d ; source: test_word_splitw_equalities.p8:4474 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_552_afterif + ; source: test_word_splitw_equalities.p8:4475 fail_word(383,170) lda #<$017f ldy #>$017f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_552_afterif ; source: test_word_splitw_equalities.p8:4478 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_554_else + ; source: test_word_splitw_equalities.p8:4479 fail_word(384,170) lda #<$0180 ldy #>$0180 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$aa ldy #>$aa sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_553_afterif label_asm_554_else ; source: test_word_splitw_equalities.p8:4481 cx16.r0L++ inc cx16.r0L label_asm_553_afterif ; source: test_word_splitw_equalities.p8:4483 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4485 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl11a cpy p8v_sources_msb+1 bne p8l_lbl11a ; source: test_word_splitw_equalities.p8:4487 goto skip11a bra p8l_skip11a ; source: test_word_splitw_equalities.p8:4488 lbl11a: success++ p8l_lbl11a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4489 skip11a: p8l_skip11a ; source: test_word_splitw_equalities.p8:4491 cx16.r3 = &lbl11b lda #p8l_lbl11b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4492 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4494 goto skip11b bra p8l_skip11b ; source: test_word_splitw_equalities.p8:4495 lbl11b: success++ p8l_lbl11b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4496 skip11b: p8l_skip11b ; source: test_word_splitw_equalities.p8:4498 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_555_afterif + ; source: test_word_splitw_equalities.p8:4499 success++ inc p8b_main.p8v_success label_asm_555_afterif ; source: test_word_splitw_equalities.p8:4502 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_557_else + ; source: test_word_splitw_equalities.p8:4503 success++ inc p8b_main.p8v_success bra label_asm_556_afterif label_asm_557_else ; source: test_word_splitw_equalities.p8:4505 cx16.r0L++ inc cx16.r0L label_asm_556_afterif ; source: test_word_splitw_equalities.p8:4508 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl11c cpy p8v_sources_msb+1 bne p8l_lbl11c ; source: test_word_splitw_equalities.p8:4510 goto skip11c bra p8l_skip11c ; source: test_word_splitw_equalities.p8:4511 lbl11c: success++ p8l_lbl11c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4512 skip11c: p8l_skip11c ; source: test_word_splitw_equalities.p8:4514 cx16.r3 = &lbl11d lda #p8l_lbl11d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4515 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4517 goto skip11d bra p8l_skip11d ; source: test_word_splitw_equalities.p8:4518 lbl11d: success++ p8l_lbl11d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4519 skip11d: p8l_skip11d ; source: test_word_splitw_equalities.p8:4521 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_558_afterif + ; source: test_word_splitw_equalities.p8:4522 success++ inc p8b_main.p8v_success label_asm_558_afterif ; source: test_word_splitw_equalities.p8:4525 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_560_else + ; source: test_word_splitw_equalities.p8:4526 success++ inc p8b_main.p8v_success bra label_asm_559_afterif label_asm_560_else ; source: test_word_splitw_equalities.p8:4528 cx16.r0L++ inc cx16.r0L label_asm_559_afterif ; source: test_word_splitw_equalities.p8:4530 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4532 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl12a cpy p8v_sources_msb+1 bne p8l_lbl12a ; source: test_word_splitw_equalities.p8:4534 goto skip12a bra p8l_skip12a ; source: test_word_splitw_equalities.p8:4535 lbl12a: success++ p8l_lbl12a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4536 skip12a: p8l_skip12a ; source: test_word_splitw_equalities.p8:4538 cx16.r3 = &lbl12b lda #p8l_lbl12b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4539 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4541 goto skip12b bra p8l_skip12b ; source: test_word_splitw_equalities.p8:4542 lbl12b: success++ p8l_lbl12b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4543 skip12b: p8l_skip12b ; source: test_word_splitw_equalities.p8:4545 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_561_afterif + ; source: test_word_splitw_equalities.p8:4546 success++ inc p8b_main.p8v_success label_asm_561_afterif ; source: test_word_splitw_equalities.p8:4549 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_563_else + ; source: test_word_splitw_equalities.p8:4550 success++ inc p8b_main.p8v_success bra label_asm_562_afterif label_asm_563_else ; source: test_word_splitw_equalities.p8:4552 cx16.r0L++ inc cx16.r0L label_asm_562_afterif ; source: test_word_splitw_equalities.p8:4555 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl12c cpy p8v_sources_msb+1 bne p8l_lbl12c ; source: test_word_splitw_equalities.p8:4557 goto skip12c bra p8l_skip12c ; source: test_word_splitw_equalities.p8:4558 lbl12c: success++ p8l_lbl12c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4559 skip12c: p8l_skip12c ; source: test_word_splitw_equalities.p8:4561 cx16.r3 = &lbl12d lda #p8l_lbl12d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4562 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4564 goto skip12d bra p8l_skip12d ; source: test_word_splitw_equalities.p8:4565 lbl12d: success++ p8l_lbl12d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4566 skip12d: p8l_skip12d ; source: test_word_splitw_equalities.p8:4568 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_564_afterif + ; source: test_word_splitw_equalities.p8:4569 success++ inc p8b_main.p8v_success label_asm_564_afterif ; source: test_word_splitw_equalities.p8:4572 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_566_else + ; source: test_word_splitw_equalities.p8:4573 success++ inc p8b_main.p8v_success bra label_asm_565_afterif label_asm_566_else ; source: test_word_splitw_equalities.p8:4575 cx16.r0L++ inc cx16.r0L label_asm_565_afterif ; source: test_word_splitw_equalities.p8:4577 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4578 sources[1]=30464 ldy #1 lda #<$7700 sta p8v_sources_lsb,y lda #>$7700 sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:4579 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4581 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl13a cpy p8v_sources_msb+1 bne p8l_lbl13a ; source: test_word_splitw_equalities.p8:4583 goto skip13a bra p8l_skip13a ; source: test_word_splitw_equalities.p8:4584 lbl13a: success++ p8l_lbl13a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4585 skip13a: p8l_skip13a ; source: test_word_splitw_equalities.p8:4587 cx16.r3 = &lbl13b lda #p8l_lbl13b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4588 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4590 goto skip13b bra p8l_skip13b ; source: test_word_splitw_equalities.p8:4591 lbl13b: success++ p8l_lbl13b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4592 skip13b: p8l_skip13b ; source: test_word_splitw_equalities.p8:4594 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_567_afterif + ; source: test_word_splitw_equalities.p8:4595 success++ inc p8b_main.p8v_success label_asm_567_afterif ; source: test_word_splitw_equalities.p8:4598 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_569_else + ; source: test_word_splitw_equalities.p8:4599 success++ inc p8b_main.p8v_success bra label_asm_568_afterif label_asm_569_else ; source: test_word_splitw_equalities.p8:4601 cx16.r0L++ inc cx16.r0L label_asm_568_afterif ; source: test_word_splitw_equalities.p8:4604 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl13c cpy p8v_sources_msb+1 bne p8l_lbl13c ; source: test_word_splitw_equalities.p8:4606 goto skip13c bra p8l_skip13c ; source: test_word_splitw_equalities.p8:4607 lbl13c: success++ p8l_lbl13c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4608 skip13c: p8l_skip13c ; source: test_word_splitw_equalities.p8:4610 cx16.r3 = &lbl13d lda #p8l_lbl13d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4611 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4613 goto skip13d bra p8l_skip13d ; source: test_word_splitw_equalities.p8:4614 lbl13d: success++ p8l_lbl13d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4615 skip13d: p8l_skip13d ; source: test_word_splitw_equalities.p8:4617 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_570_afterif + ; source: test_word_splitw_equalities.p8:4618 success++ inc p8b_main.p8v_success label_asm_570_afterif ; source: test_word_splitw_equalities.p8:4621 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_572_else + ; source: test_word_splitw_equalities.p8:4622 success++ inc p8b_main.p8v_success bra label_asm_571_afterif label_asm_572_else ; source: test_word_splitw_equalities.p8:4624 cx16.r0L++ inc cx16.r0L label_asm_571_afterif ; source: test_word_splitw_equalities.p8:4626 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4628 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl14a cpy p8v_sources_msb+1 bne p8l_lbl14a ; source: test_word_splitw_equalities.p8:4630 goto skip14a bra p8l_skip14a ; source: test_word_splitw_equalities.p8:4631 lbl14a: success++ p8l_lbl14a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4632 skip14a: p8l_skip14a ; source: test_word_splitw_equalities.p8:4634 cx16.r3 = &lbl14b lda #p8l_lbl14b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4635 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4637 goto skip14b bra p8l_skip14b ; source: test_word_splitw_equalities.p8:4638 lbl14b: success++ p8l_lbl14b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4639 skip14b: p8l_skip14b ; source: test_word_splitw_equalities.p8:4641 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_573_afterif + ; source: test_word_splitw_equalities.p8:4642 success++ inc p8b_main.p8v_success label_asm_573_afterif ; source: test_word_splitw_equalities.p8:4645 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_575_else + ; source: test_word_splitw_equalities.p8:4646 success++ inc p8b_main.p8v_success bra label_asm_574_afterif label_asm_575_else ; source: test_word_splitw_equalities.p8:4648 cx16.r0L++ inc cx16.r0L label_asm_574_afterif ; source: test_word_splitw_equalities.p8:4651 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl14c cpy p8v_sources_msb+1 bne p8l_lbl14c ; source: test_word_splitw_equalities.p8:4653 goto skip14c bra p8l_skip14c ; source: test_word_splitw_equalities.p8:4654 lbl14c: success++ p8l_lbl14c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4655 skip14c: p8l_skip14c ; source: test_word_splitw_equalities.p8:4657 cx16.r3 = &lbl14d lda #p8l_lbl14d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4658 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4660 goto skip14d bra p8l_skip14d ; source: test_word_splitw_equalities.p8:4661 lbl14d: success++ p8l_lbl14d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4662 skip14d: p8l_skip14d ; source: test_word_splitw_equalities.p8:4664 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_576_afterif + ; source: test_word_splitw_equalities.p8:4665 success++ inc p8b_main.p8v_success label_asm_576_afterif ; source: test_word_splitw_equalities.p8:4668 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_578_else + ; source: test_word_splitw_equalities.p8:4669 success++ inc p8b_main.p8v_success bra label_asm_577_afterif label_asm_578_else ; source: test_word_splitw_equalities.p8:4671 cx16.r0L++ inc cx16.r0L label_asm_577_afterif ; source: test_word_splitw_equalities.p8:4673 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4675 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl15a cpy p8v_sources_msb+1 bne p8l_lbl15a ; source: test_word_splitw_equalities.p8:4677 goto skip15a bra p8l_skip15a ; source: test_word_splitw_equalities.p8:4678 lbl15a: fail_word(385,30464) p8l_lbl15a lda #<$0181 ldy #>$0181 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4679 skip15a: p8l_skip15a ; source: test_word_splitw_equalities.p8:4681 cx16.r3 = &lbl15b lda #p8l_lbl15b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4682 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4684 goto skip15b bra p8l_skip15b ; source: test_word_splitw_equalities.p8:4685 lbl15b: fail_word(386,30464) p8l_lbl15b lda #<$0182 ldy #>$0182 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4686 skip15b: p8l_skip15b ; source: test_word_splitw_equalities.p8:4688 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_579_afterif + ; source: test_word_splitw_equalities.p8:4689 fail_word(387,30464) lda #<$0183 ldy #>$0183 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_579_afterif ; source: test_word_splitw_equalities.p8:4692 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_581_else + ; source: test_word_splitw_equalities.p8:4693 fail_word(388,30464) lda #<$0184 ldy #>$0184 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_580_afterif label_asm_581_else ; source: test_word_splitw_equalities.p8:4695 cx16.r0L++ inc cx16.r0L label_asm_580_afterif ; source: test_word_splitw_equalities.p8:4698 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl15c cpy p8v_sources_msb+1 bne p8l_lbl15c ; source: test_word_splitw_equalities.p8:4700 goto skip15c bra p8l_skip15c ; source: test_word_splitw_equalities.p8:4701 lbl15c: fail_word(389,30464) p8l_lbl15c lda #<$0185 ldy #>$0185 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4702 skip15c: p8l_skip15c ; source: test_word_splitw_equalities.p8:4704 cx16.r3 = &lbl15d lda #p8l_lbl15d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4705 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4707 goto skip15d bra p8l_skip15d ; source: test_word_splitw_equalities.p8:4708 lbl15d: fail_word(390,30464) p8l_lbl15d lda #<$0186 ldy #>$0186 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4709 skip15d: p8l_skip15d ; source: test_word_splitw_equalities.p8:4711 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_582_afterif + ; source: test_word_splitw_equalities.p8:4712 fail_word(391,30464) lda #<$0187 ldy #>$0187 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_582_afterif ; source: test_word_splitw_equalities.p8:4715 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_584_else + ; source: test_word_splitw_equalities.p8:4716 fail_word(392,30464) lda #<$0188 ldy #>$0188 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7700 ldy #>$7700 sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_583_afterif label_asm_584_else ; source: test_word_splitw_equalities.p8:4718 cx16.r0L++ inc cx16.r0L label_asm_583_afterif ; source: test_word_splitw_equalities.p8:4720 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4722 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl16a cpy p8v_sources_msb+1 bne p8l_lbl16a ; source: test_word_splitw_equalities.p8:4724 goto skip16a bra p8l_skip16a ; source: test_word_splitw_equalities.p8:4725 lbl16a: success++ p8l_lbl16a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4726 skip16a: p8l_skip16a ; source: test_word_splitw_equalities.p8:4728 cx16.r3 = &lbl16b lda #p8l_lbl16b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4729 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4731 goto skip16b bra p8l_skip16b ; source: test_word_splitw_equalities.p8:4732 lbl16b: success++ p8l_lbl16b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4733 skip16b: p8l_skip16b ; source: test_word_splitw_equalities.p8:4735 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_585_afterif + ; source: test_word_splitw_equalities.p8:4736 success++ inc p8b_main.p8v_success label_asm_585_afterif ; source: test_word_splitw_equalities.p8:4739 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_587_else + ; source: test_word_splitw_equalities.p8:4740 success++ inc p8b_main.p8v_success bra label_asm_586_afterif label_asm_587_else ; source: test_word_splitw_equalities.p8:4742 cx16.r0L++ inc cx16.r0L label_asm_586_afterif ; source: test_word_splitw_equalities.p8:4745 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl16c cpy p8v_sources_msb+1 bne p8l_lbl16c ; source: test_word_splitw_equalities.p8:4747 goto skip16c bra p8l_skip16c ; source: test_word_splitw_equalities.p8:4748 lbl16c: success++ p8l_lbl16c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4749 skip16c: p8l_skip16c ; source: test_word_splitw_equalities.p8:4751 cx16.r3 = &lbl16d lda #p8l_lbl16d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4752 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4754 goto skip16d bra p8l_skip16d ; source: test_word_splitw_equalities.p8:4755 lbl16d: success++ p8l_lbl16d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4756 skip16d: p8l_skip16d ; source: test_word_splitw_equalities.p8:4758 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_588_afterif + ; source: test_word_splitw_equalities.p8:4759 success++ inc p8b_main.p8v_success label_asm_588_afterif ; source: test_word_splitw_equalities.p8:4762 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_590_else + ; source: test_word_splitw_equalities.p8:4763 success++ inc p8b_main.p8v_success bra label_asm_589_afterif label_asm_590_else ; source: test_word_splitw_equalities.p8:4765 cx16.r0L++ inc cx16.r0L label_asm_589_afterif ; source: test_word_splitw_equalities.p8:4767 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4768 sources[1]=32767 ldy #1 lda #<$7fff sta p8v_sources_lsb,y lda #>$7fff sta p8v_sources_msb,y ; source: test_word_splitw_equalities.p8:4769 values[1]=-21829 ldy #1 lda #<-$5545 sta p8v_values_lsb,y lda #>-$5545 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4771 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl17a cpy p8v_sources_msb+1 bne p8l_lbl17a ; source: test_word_splitw_equalities.p8:4773 goto skip17a bra p8l_skip17a ; source: test_word_splitw_equalities.p8:4774 lbl17a: success++ p8l_lbl17a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4775 skip17a: p8l_skip17a ; source: test_word_splitw_equalities.p8:4777 cx16.r3 = &lbl17b lda #p8l_lbl17b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4778 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4780 goto skip17b bra p8l_skip17b ; source: test_word_splitw_equalities.p8:4781 lbl17b: success++ p8l_lbl17b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4782 skip17b: p8l_skip17b ; source: test_word_splitw_equalities.p8:4784 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_591_afterif + ; source: test_word_splitw_equalities.p8:4785 success++ inc p8b_main.p8v_success label_asm_591_afterif ; source: test_word_splitw_equalities.p8:4788 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_593_else + ; source: test_word_splitw_equalities.p8:4789 success++ inc p8b_main.p8v_success bra label_asm_592_afterif label_asm_593_else ; source: test_word_splitw_equalities.p8:4791 cx16.r0L++ inc cx16.r0L label_asm_592_afterif ; source: test_word_splitw_equalities.p8:4794 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl17c cpy p8v_sources_msb+1 bne p8l_lbl17c ; source: test_word_splitw_equalities.p8:4796 goto skip17c bra p8l_skip17c ; source: test_word_splitw_equalities.p8:4797 lbl17c: success++ p8l_lbl17c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4798 skip17c: p8l_skip17c ; source: test_word_splitw_equalities.p8:4800 cx16.r3 = &lbl17d lda #p8l_lbl17d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4801 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4803 goto skip17d bra p8l_skip17d ; source: test_word_splitw_equalities.p8:4804 lbl17d: success++ p8l_lbl17d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4805 skip17d: p8l_skip17d ; source: test_word_splitw_equalities.p8:4807 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_594_afterif + ; source: test_word_splitw_equalities.p8:4808 success++ inc p8b_main.p8v_success label_asm_594_afterif ; source: test_word_splitw_equalities.p8:4811 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_596_else + ; source: test_word_splitw_equalities.p8:4812 success++ inc p8b_main.p8v_success bra label_asm_595_afterif label_asm_596_else ; source: test_word_splitw_equalities.p8:4814 cx16.r0L++ inc cx16.r0L label_asm_595_afterif ; source: test_word_splitw_equalities.p8:4816 values[1]=170 ldy #1 lda #<$aa sta p8v_values_lsb,y lda #>$aa sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4818 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl18a cpy p8v_sources_msb+1 bne p8l_lbl18a ; source: test_word_splitw_equalities.p8:4820 goto skip18a bra p8l_skip18a ; source: test_word_splitw_equalities.p8:4821 lbl18a: success++ p8l_lbl18a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4822 skip18a: p8l_skip18a ; source: test_word_splitw_equalities.p8:4824 cx16.r3 = &lbl18b lda #p8l_lbl18b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4825 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4827 goto skip18b bra p8l_skip18b ; source: test_word_splitw_equalities.p8:4828 lbl18b: success++ p8l_lbl18b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4829 skip18b: p8l_skip18b ; source: test_word_splitw_equalities.p8:4831 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_597_afterif + ; source: test_word_splitw_equalities.p8:4832 success++ inc p8b_main.p8v_success label_asm_597_afterif ; source: test_word_splitw_equalities.p8:4835 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_599_else + ; source: test_word_splitw_equalities.p8:4836 success++ inc p8b_main.p8v_success bra label_asm_598_afterif label_asm_599_else ; source: test_word_splitw_equalities.p8:4838 cx16.r0L++ inc cx16.r0L label_asm_598_afterif ; source: test_word_splitw_equalities.p8:4841 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl18c cpy p8v_sources_msb+1 bne p8l_lbl18c ; source: test_word_splitw_equalities.p8:4843 goto skip18c bra p8l_skip18c ; source: test_word_splitw_equalities.p8:4844 lbl18c: success++ p8l_lbl18c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4845 skip18c: p8l_skip18c ; source: test_word_splitw_equalities.p8:4847 cx16.r3 = &lbl18d lda #p8l_lbl18d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4848 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4850 goto skip18d bra p8l_skip18d ; source: test_word_splitw_equalities.p8:4851 lbl18d: success++ p8l_lbl18d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4852 skip18d: p8l_skip18d ; source: test_word_splitw_equalities.p8:4854 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_600_afterif + ; source: test_word_splitw_equalities.p8:4855 success++ inc p8b_main.p8v_success label_asm_600_afterif ; source: test_word_splitw_equalities.p8:4858 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_602_else + ; source: test_word_splitw_equalities.p8:4859 success++ inc p8b_main.p8v_success bra label_asm_601_afterif label_asm_602_else ; source: test_word_splitw_equalities.p8:4861 cx16.r0L++ inc cx16.r0L label_asm_601_afterif ; source: test_word_splitw_equalities.p8:4863 values[1]=30464 ldy #1 lda #<$7700 sta p8v_values_lsb,y lda #>$7700 sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4865 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl19a cpy p8v_sources_msb+1 bne p8l_lbl19a ; source: test_word_splitw_equalities.p8:4867 goto skip19a bra p8l_skip19a ; source: test_word_splitw_equalities.p8:4868 lbl19a: success++ p8l_lbl19a inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4869 skip19a: p8l_skip19a ; source: test_word_splitw_equalities.p8:4871 cx16.r3 = &lbl19b lda #p8l_lbl19b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4872 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4874 goto skip19b bra p8l_skip19b ; source: test_word_splitw_equalities.p8:4875 lbl19b: success++ p8l_lbl19b inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4876 skip19b: p8l_skip19b ; source: test_word_splitw_equalities.p8:4878 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_603_afterif + ; source: test_word_splitw_equalities.p8:4879 success++ inc p8b_main.p8v_success label_asm_603_afterif ; source: test_word_splitw_equalities.p8:4882 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_605_else + ; source: test_word_splitw_equalities.p8:4883 success++ inc p8b_main.p8v_success bra label_asm_604_afterif label_asm_605_else ; source: test_word_splitw_equalities.p8:4885 cx16.r0L++ inc cx16.r0L label_asm_604_afterif ; source: test_word_splitw_equalities.p8:4888 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl19c cpy p8v_sources_msb+1 bne p8l_lbl19c ; source: test_word_splitw_equalities.p8:4890 goto skip19c bra p8l_skip19c ; source: test_word_splitw_equalities.p8:4891 lbl19c: success++ p8l_lbl19c inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4892 skip19c: p8l_skip19c ; source: test_word_splitw_equalities.p8:4894 cx16.r3 = &lbl19d lda #p8l_lbl19d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4895 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4897 goto skip19d bra p8l_skip19d ; source: test_word_splitw_equalities.p8:4898 lbl19d: success++ p8l_lbl19d inc p8b_main.p8v_success ; source: test_word_splitw_equalities.p8:4899 skip19d: p8l_skip19d ; source: test_word_splitw_equalities.p8:4901 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_606_afterif + ; source: test_word_splitw_equalities.p8:4902 success++ inc p8b_main.p8v_success label_asm_606_afterif ; source: test_word_splitw_equalities.p8:4905 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_608_else + ; source: test_word_splitw_equalities.p8:4906 success++ inc p8b_main.p8v_success bra label_asm_607_afterif label_asm_608_else ; source: test_word_splitw_equalities.p8:4908 cx16.r0L++ inc cx16.r0L label_asm_607_afterif ; source: test_word_splitw_equalities.p8:4910 values[1]=32767 ldy #1 lda #<$7fff sta p8v_values_lsb,y lda #>$7fff sta p8v_values_msb,y ; source: test_word_splitw_equalities.p8:4912 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl20a cpy p8v_sources_msb+1 bne p8l_lbl20a ; source: test_word_splitw_equalities.p8:4914 goto skip20a bra p8l_skip20a ; source: test_word_splitw_equalities.p8:4915 lbl20a: fail_word(393,32767) p8l_lbl20a lda #<$0189 ldy #>$0189 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4916 skip20a: p8l_skip20a ; source: test_word_splitw_equalities.p8:4918 cx16.r3 = &lbl20b lda #p8l_lbl20b sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4919 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4921 goto skip20b bra p8l_skip20b ; source: test_word_splitw_equalities.p8:4922 lbl20b: fail_word(394,32767) p8l_lbl20b lda #<$018a ldy #>$018a sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4923 skip20b: p8l_skip20b ; source: test_word_splitw_equalities.p8:4925 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_609_afterif + ; source: test_word_splitw_equalities.p8:4926 fail_word(395,32767) lda #<$018b ldy #>$018b sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_609_afterif ; source: test_word_splitw_equalities.p8:4929 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_611_else + ; source: test_word_splitw_equalities.p8:4930 fail_word(396,32767) lda #<$018c ldy #>$018c sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_610_afterif label_asm_611_else ; source: test_word_splitw_equalities.p8:4932 cx16.r0L++ inc cx16.r0L label_asm_610_afterif ; source: test_word_splitw_equalities.p8:4935 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne p8l_lbl20c cpy p8v_sources_msb+1 bne p8l_lbl20c ; source: test_word_splitw_equalities.p8:4937 goto skip20c bra p8l_skip20c ; source: test_word_splitw_equalities.p8:4938 lbl20c: fail_word(397,32767) p8l_lbl20c lda #<$018d ldy #>$018d sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4939 skip20c: p8l_skip20c ; source: test_word_splitw_equalities.p8:4941 cx16.r3 = &lbl20d lda #p8l_lbl20d sta cx16.r3 sty cx16.r3+1 ; source: test_word_splitw_equalities.p8:4942 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq ++ + jmp (cx16.r3) + ; source: test_word_splitw_equalities.p8:4944 goto skip20d bra p8l_skip20d ; source: test_word_splitw_equalities.p8:4945 lbl20d: fail_word(398,32767) p8l_lbl20d lda #<$018e ldy #>$018e sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word ; source: test_word_splitw_equalities.p8:4946 skip20d: p8l_skip20d ; source: test_word_splitw_equalities.p8:4948 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_612_afterif + ; source: test_word_splitw_equalities.p8:4949 fail_word(399,32767) lda #<$018f ldy #>$018f sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word label_asm_612_afterif ; source: test_word_splitw_equalities.p8:4952 if sources[1]!=values[1] lda p8v_values_lsb+1 ldy p8v_values_msb+1 cmp p8v_sources_lsb+1 bne + cpy p8v_sources_msb+1 beq label_asm_614_else + ; source: test_word_splitw_equalities.p8:4953 fail_word(400,32767) lda #<$0190 ldy #>$0190 sta p8b_main.p8s_fail_word.p8v_idx sty p8b_main.p8s_fail_word.p8v_idx+1 lda #<$7fff ldy #>$7fff sta p8b_main.p8s_fail_word.p8v_v1 sty p8b_main.p8s_fail_word.p8v_v1+1 jsr p8b_main.p8s_fail_word bra label_asm_613_afterif label_asm_614_else ; source: test_word_splitw_equalities.p8:4955 cx16.r0L++ inc cx16.r0L label_asm_613_afterif ; source: test_word_splitw_equalities.p8:4957 verify_success(128) lda #$80 jmp p8b_main.p8s_verify_success ; source: test_word_splitw_equalities.p8:4002 sub test_not_array_splitw() { ; variables .section BSS .send BSS ; non-zeropage variables _array_p8v_sources := $270f, $22b8 p8v_sources_lsb .byte <_array_p8v_sources p8v_sources_msb .byte >_array_p8v_sources _array_p8v_values := $270f, $22b8 p8v_values_lsb .byte <_array_p8v_values p8v_values_msb .byte >_array_p8v_values .pend prog8_init_vars .block rts .bend .pend ; ---- block: 'prog8_interned_strings' ---- prog8_interned_strings .proc ; non-zeropage variables string_1 ; PETSCII:"\n(in)equality tests for split words datatype: " .byte $0d, $28, $49, $4e, $29, $45, $51, $55, $41, $4c, $49, $54, $59, $20, $54, $45 .byte $53, $54, $53, $20, $46, $4f, $52, $20, $53, $50, $4c, $49, $54, $20, $57, $4f .byte $52, $44, $53, $20, $44, $41, $54, $41, $54, $59, $50, $45, $3a, $20, $00 string_10 ; PETSCII:"\n==expr: " .byte $0d, $3d, $3d, $45, $58, $50, $52, $3a, $20, $00 string_11 ; PETSCII:"\n!=expr: " .byte $0d, $21, $3d, $45, $58, $50, $52, $3a, $20, $00 string_13 ; PETSCII:" **failed** " .byte $20, $2a, $2a, $46, $41, $49, $4c, $45, $44, $2a, $2a, $20, $00 string_14 ; PETSCII:" success, expected " .byte $20, $53, $55, $43, $43, $45, $53, $53, $2c, $20, $45, $58, $50, $45, $43, $54 .byte $45, $44, $20, $00 string_15 ; PETSCII:" **fail#" .byte $20, $2a, $2a, $46, $41, $49, $4c, $23, $00 string_16 ; PETSCII:" **" .byte $20, $2a, $2a, $00 string_2 ; PETSCII:"==0: " .byte $3d, $3d, $30, $3a, $20, $00 string_3 ; PETSCII:"\n!=0: " .byte $0d, $21, $3d, $30, $3a, $20, $00 string_4 ; PETSCII:"\n==number: " .byte $0d, $3d, $3d, $4e, $55, $4d, $42, $45, $52, $3a, $20, $00 string_5 ; PETSCII:"\n!=number: " .byte $0d, $21, $3d, $4e, $55, $4d, $42, $45, $52, $3a, $20, $00 string_6 ; PETSCII:"\n==var: " .byte $0d, $3d, $3d, $56, $41, $52, $3a, $20, $00 string_7 ; PETSCII:"\n!=var: " .byte $0d, $21, $3d, $56, $41, $52, $3a, $20, $00 string_8 ; PETSCII:"\n==array[] @split: " .byte $0d, $3d, $3d, $41, $52, $52, $41, $59, $5b, $5d, $20, $40, $53, $50, $4c, $49 .byte $54, $3a, $20, $00 string_9 ; PETSCII:"\n!=array[] @split: " .byte $0d, $21, $3d, $41, $52, $52, $41, $59, $5b, $5d, $20, $40, $53, $50, $4c, $49 .byte $54, $3a, $20, $00 ; source: test_word_splitw_equalities.p8:14 txt.print("\n(in)equality tests for split words datatype: ") ; source: test_word_splitw_equalities.p8:18 txt.print("==0: ") ; source: test_word_splitw_equalities.p8:20 txt.print("\n!=0: ") ; source: test_word_splitw_equalities.p8:22 txt.print("\n==number: ") ; source: test_word_splitw_equalities.p8:24 txt.print("\n!=number: ") ; source: test_word_splitw_equalities.p8:26 txt.print("\n==var: ") ; source: test_word_splitw_equalities.p8:28 txt.print("\n!=var: ") ; source: test_word_splitw_equalities.p8:30 txt.print("\n==array[] @split: ") ; source: test_word_splitw_equalities.p8:32 txt.print("\n!=array[] @split: ") ; source: test_word_splitw_equalities.p8:34 txt.print("\n==expr: ") ; source: test_word_splitw_equalities.p8:36 txt.print("\n!=expr: ") ; source: test_word_splitw_equalities.p8:45 txt.print(" **failed** ") ; source: test_word_splitw_equalities.p8:47 txt.print(" success, expected ") ; source: test_word_splitw_equalities.p8:53 txt.print(" **fail#") ; source: test_word_splitw_equalities.p8:57 txt.print(" **") .pend ; ---- block: 'txt' ---- txt .proc ; source: library:/prog8lib/cx16/textio.p8:9 txt { DEFAULT_HEIGHT = $3c DEFAULT_WIDTH = $50 VERA_TEXTMATRIX_ADDR = $b000 VERA_TEXTMATRIX_BANK = 1 chrout = $ffd2 ; source: library:/prog8lib/cx16/textio.p8:13 const ubyte DEFAULT_WIDTH = 80 ; source: library:/prog8lib/cx16/textio.p8:14 const ubyte DEFAULT_HEIGHT = 60 ; source: library:/prog8lib/cx16/textio.p8:16 const ubyte VERA_TEXTMATRIX_BANK = 1 ; source: library:/prog8lib/cx16/textio.p8:17 const uword VERA_TEXTMATRIX_ADDR = $b000 ; source: library:/prog8lib/shared_textio_functions.p8:1 txt { ; source: library:/prog8lib/cx16/textio.p8:11 %option no_symbol_prefixing, ignore_unused ; source: library:/prog8lib/cx16/textio.p8:40 asmsub column(ubyte col @A) clobbers(A, X, Y) { column .proc ; source: library:/prog8lib/cx16/textio.p8:42 %asm {{ sec jsr cbm.PLOT tay clc jmp cbm.PLOT .pend ; source: library:/prog8lib/cx16/textio.p8:51 asmsub get_column() -> ubyte @Y { get_column .proc ; source: library:/prog8lib/cx16/textio.p8:52 %asm {{ sec jmp cbm.PLOT .pend ; source: library:/prog8lib/cx16/textio.p8:58 asmsub row(ubyte rownum @A) clobbers(A, X, Y) { row .proc ; source: library:/prog8lib/cx16/textio.p8:60 %asm {{ sec jsr cbm.PLOT tax clc jmp cbm.PLOT .pend ; source: library:/prog8lib/cx16/textio.p8:69 asmsub get_row() -> ubyte @X { get_row .proc ; source: library:/prog8lib/cx16/textio.p8:70 %asm {{ sec jmp cbm.PLOT .pend ; source: library:/prog8lib/cx16/textio.p8:88 asmsub fill_screen (ubyte character @ A, ubyte color @ Y) clobbers(A, X) { fill_screen .proc ; source: library:/prog8lib/cx16/textio.p8:90 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:134 asmsub clear_screenchars (ubyte character @ A) clobbers(X, Y) { clear_screenchars .proc ; source: library:/prog8lib/cx16/textio.p8:137 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:163 asmsub clear_screencolors (ubyte color @ A) clobbers(X, Y) { clear_screencolors .proc ; source: library:/prog8lib/cx16/textio.p8:166 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:232 asmsub scroll_left() clobbers(A, X, Y) { scroll_left .proc ; source: library:/prog8lib/cx16/textio.p8:235 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:276 asmsub scroll_right() clobbers(A,X,Y) { scroll_right .proc ; source: library:/prog8lib/cx16/textio.p8:279 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:328 asmsub scroll_up() clobbers(A, X, Y) { scroll_up .proc ; source: library:/prog8lib/cx16/textio.p8:331 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:376 asmsub scroll_down() clobbers(A, X, Y) { scroll_down .proc ; source: library:/prog8lib/cx16/textio.p8:379 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:430 romsub $FFD2 = chrout(ubyte character @ A) ; for consistency. You can also use cbm.CHROUT directly ofcourse. Note: takes a PETSCII encoded character. ; source: library:/prog8lib/cx16/textio.p8:432 asmsub print (str text @ AY) clobbers(A,Y) { print .proc ; source: library:/prog8lib/cx16/textio.p8:437 %asm {{ sta P8ZP_SCRATCH_B1 sty P8ZP_SCRATCH_REG ldy #0 - lda (P8ZP_SCRATCH_B1),y beq + jsr cbm.CHROUT iny bne - + rts .pend ; source: library:/prog8lib/cx16/textio.p8:450 asmsub print_ub0 (ubyte value @ A) clobbers(A,X,Y) { print_ub0 .proc ; source: library:/prog8lib/cx16/textio.p8:452 %asm {{ jsr conv.ubyte2decimal pha tya jsr cbm.CHROUT pla jsr cbm.CHROUT txa jmp cbm.CHROUT .pend ; source: library:/prog8lib/cx16/textio.p8:464 asmsub print_ub (ubyte value @ A) clobbers(A,X,Y) { print_ub .proc ; source: library:/prog8lib/cx16/textio.p8:466 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:486 asmsub print_b (byte value @ A) clobbers(A,X,Y) { print_b .proc ; source: library:/prog8lib/cx16/textio.p8:488 %asm {{ pha cmp #0 bpl + lda #'-' jsr cbm.CHROUT + pla jsr conv.byte2decimal bra print_ub._print_byte_digits .pend ; source: library:/prog8lib/cx16/textio.p8:500 asmsub print_ubhex (ubyte value @ A, bool prefix @ Pc) clobbers(A,X,Y) { print_ubhex .proc ; source: library:/prog8lib/cx16/textio.p8:502 %asm {{ bcc + pha lda #'$' jsr cbm.CHROUT pla + jsr conv.ubyte2hex jsr cbm.CHROUT tya jmp cbm.CHROUT .pend ; source: library:/prog8lib/cx16/textio.p8:515 asmsub print_ubbin (ubyte value @ A, bool prefix @ Pc) clobbers(A,X,Y) { print_ubbin .proc ; source: library:/prog8lib/cx16/textio.p8:517 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:534 asmsub print_uwbin (uword value @ AY, bool prefix @ Pc) clobbers(A,X,Y) { print_uwbin .proc ; source: library:/prog8lib/cx16/textio.p8:536 %asm {{ pha tya jsr print_ubbin pla clc bra print_ubbin .pend ; source: library:/prog8lib/cx16/textio.p8:546 asmsub print_uwhex (uword value @ AY, bool prefix @ Pc) clobbers(A,X,Y) { print_uwhex .proc ; source: library:/prog8lib/cx16/textio.p8:549 %asm {{ pha tya jsr print_ubhex pla clc bra print_ubhex .pend ; source: library:/prog8lib/cx16/textio.p8:559 asmsub print_uw0 (uword value @ AY) clobbers(A,X,Y) { print_uw0 .proc ; source: library:/prog8lib/cx16/textio.p8:561 %asm {{ jsr conv.uword2decimal ldy #0 - lda conv.uword2decimal.decTenThousands,y beq + jsr cbm.CHROUT iny bne - + rts .pend ; source: library:/prog8lib/cx16/textio.p8:573 asmsub print_uw (uword value @ AY) clobbers(A,X,Y) { print_uw .proc ; source: library:/prog8lib/cx16/textio.p8:575 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:597 asmsub print_w (word value @ AY) clobbers(A,X,Y) { print_w .proc ; source: library:/prog8lib/cx16/textio.p8:599 %asm {{ cpy #0 bpl + pha lda #'-' jsr cbm.CHROUT tya eor #255 tay pla eor #255 ina bne + iny + bra print_uw .pend ; source: library:/prog8lib/cx16/textio.p8:617 asmsub input_chars (uword buffer @ AY) clobbers(A) -> ubyte @ Y { input_chars .proc ; source: library:/prog8lib/cx16/textio.p8:622 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:639 asmsub setchr (ubyte col @X, ubyte row @Y, ubyte character @A) clobbers(A) { setchr .proc ; source: library:/prog8lib/cx16/textio.p8:641 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:659 asmsub getchr (ubyte col @A, ubyte row @Y) -> ubyte @ A { getchr .proc ; source: library:/prog8lib/cx16/textio.p8:661 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:678 asmsub setclr (ubyte col @X, ubyte row @Y, ubyte color @A) clobbers(A) { setclr .proc ; source: library:/prog8lib/cx16/textio.p8:682 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:701 asmsub getclr (ubyte col @A, ubyte row @Y) -> ubyte @ A { getclr .proc ; source: library:/prog8lib/cx16/textio.p8:703 %asm {{ 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 ; source: library:/prog8lib/cx16/textio.p8:778 asmsub plot (ubyte col @ Y, ubyte row @ X) { plot .proc ; source: library:/prog8lib/cx16/textio.p8:779 %asm {{ clc jmp cbm.PLOT .pend ; source: library:/prog8lib/cx16/textio.p8:785 asmsub width() clobbers(X,Y) -> ubyte @A { width .proc ; source: library:/prog8lib/cx16/textio.p8:787 %asm {{ jsr cbm.SCREEN txa rts .pend ; source: library:/prog8lib/cx16/textio.p8:794 asmsub height() clobbers(X, Y) -> ubyte @A { height .proc ; source: library:/prog8lib/cx16/textio.p8:796 %asm {{ jsr cbm.SCREEN tya rts .pend ; source: library:/prog8lib/cx16/textio.p8:803 asmsub waitkey() -> ubyte @A { waitkey .proc ; source: library:/prog8lib/cx16/textio.p8:804 %asm {{ - jsr cbm.GETIN beq - rts .pend ; source: library:/prog8lib/shared_textio_functions.p8:5 asmsub petscii2scr(ubyte petscii_char @A) -> ubyte @A { petscii2scr .proc ; source: library:/prog8lib/shared_textio_functions.p8:7 %asm {{ 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 ; source: library:/prog8lib/shared_textio_functions.p8:22 asmsub petscii2scr_str(str petscii_string @AY) { petscii2scr_str .proc ; source: library:/prog8lib/shared_textio_functions.p8:24 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:6 cbm { 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 ; source: library:/prog8lib/cx16/syslib.p8:14 romsub $FF81 = CINT() clobbers(A,X,Y) ; (alias: SCINIT) initialize screen editor and video chip, including resetting to the default color palette. Note: also sets the video mode back to VGA ; source: library:/prog8lib/cx16/syslib.p8:15 romsub $FF84 = IOINIT() clobbers(A, X) ; initialize I/O devices (CIA, IRQ, ...) ; source: library:/prog8lib/cx16/syslib.p8:16 romsub $FF87 = RAMTAS() clobbers(A,X,Y) ; initialize RAM, screen ; source: library:/prog8lib/cx16/syslib.p8:17 romsub $FF8A = RESTOR() clobbers(A,X,Y) ; restore default I/O vectors ; source: library:/prog8lib/cx16/syslib.p8:18 romsub $FF8D = VECTOR(uword userptr @ XY, bool dir @ Pc) clobbers(A,Y) ; read/set I/O vector table ; source: library:/prog8lib/cx16/syslib.p8:19 romsub $FF90 = SETMSG(ubyte value @ A) ; set Kernal message control flag ; source: library:/prog8lib/cx16/syslib.p8:20 romsub $FF93 = SECOND(ubyte address @ A) clobbers(A) ; (alias: LSTNSA) send secondary address after LISTEN ; source: library:/prog8lib/cx16/syslib.p8:21 romsub $FF96 = TKSA(ubyte address @ A) clobbers(A) ; (alias: TALKSA) send secondary address after TALK ; source: library:/prog8lib/cx16/syslib.p8:22 romsub $FF99 = MEMTOP(uword address @ XY, bool dir @ Pc) -> uword @ XY ; read/set top of memory pointer. NOTE: as a Cx16 extension, also returns the number of RAM memory banks in register A ! See cx16.numbanks() ; source: library:/prog8lib/cx16/syslib.p8:23 romsub $FF9C = MEMBOT(uword address @ XY, bool dir @ Pc) -> uword @ XY ; read/set bottom of memory pointer ; source: library:/prog8lib/cx16/syslib.p8:24 romsub $FF9F = SCNKEY() clobbers(A,X,Y) ; scan the keyboard, also called kbd_scan ; source: library:/prog8lib/cx16/syslib.p8:25 romsub $FFA2 = SETTMO(ubyte timeout @ A) ; set time-out flag for IEEE bus ; source: library:/prog8lib/cx16/syslib.p8:26 romsub $FFA5 = ACPTR() -> ubyte @ A ; (alias: IECIN) input byte from serial bus ; source: library:/prog8lib/cx16/syslib.p8:27 romsub $FFA8 = CIOUT(ubyte databyte @ A) ; (alias: IECOUT) output byte to serial bus ; source: library:/prog8lib/cx16/syslib.p8:28 romsub $FFAB = UNTLK() clobbers(A) ; command serial bus device to UNTALK ; source: library:/prog8lib/cx16/syslib.p8:29 romsub $FFAE = UNLSN() clobbers(A) ; command serial bus device to UNLISTEN ; source: library:/prog8lib/cx16/syslib.p8:30 romsub $FFB1 = LISTEN(ubyte device @ A) clobbers(A) ; command serial bus device to LISTEN ; source: library:/prog8lib/cx16/syslib.p8:31 romsub $FFB4 = TALK(ubyte device @ A) clobbers(A) ; command serial bus device to TALK ; source: library:/prog8lib/cx16/syslib.p8:32 romsub $FFB7 = READST() -> ubyte @ A ; read I/O status word (use CLEARST to reset it to 0) ; source: library:/prog8lib/cx16/syslib.p8:33 romsub $FFBA = SETLFS(ubyte logical @ A, ubyte device @ X, ubyte secondary @ Y) ; set logical file parameters ; source: library:/prog8lib/cx16/syslib.p8:34 romsub $FFBD = SETNAM(ubyte namelen @ A, str filename @ XY) ; set filename parameters ; source: library:/prog8lib/cx16/syslib.p8:35 romsub $FFC0 = OPEN() clobbers(X,Y) -> bool @Pc, ubyte @A ; (via 794 ($31A)) open a logical file ; source: library:/prog8lib/cx16/syslib.p8:36 romsub $FFC3 = CLOSE(ubyte logical @ A) clobbers(A,X,Y) ; (via 796 ($31C)) close a logical file ; source: library:/prog8lib/cx16/syslib.p8:37 romsub $FFC6 = CHKIN(ubyte logical @ X) clobbers(A,X) -> bool @Pc ; (via 798 ($31E)) define an input channel ; source: library:/prog8lib/cx16/syslib.p8:38 romsub $FFC9 = CHKOUT(ubyte logical @ X) clobbers(A,X) ; (via 800 ($320)) define an output channel ; source: library:/prog8lib/cx16/syslib.p8:39 romsub $FFCC = CLRCHN() clobbers(A,X) ; (via 802 ($322)) restore default devices ; source: library:/prog8lib/cx16/syslib.p8:40 romsub $FFCF = CHRIN() clobbers(X, Y) -> ubyte @ A ; (via 804 ($324)) input a character (for keyboard, read a whole line from the screen) A=byte read. ; source: library:/prog8lib/cx16/syslib.p8:41 romsub $FFD2 = CHROUT(ubyte character @ A) ; (via 806 ($326)) output a character ; source: library:/prog8lib/cx16/syslib.p8:42 romsub $FFD5 = LOAD(ubyte verify @ A, uword address @ XY) -> bool @Pc, ubyte @ A, uword @ XY ; (via 816 ($330)) load from device ; source: library:/prog8lib/cx16/syslib.p8:43 romsub $FFD8 = SAVE(ubyte zp_startaddr @ A, uword endaddr @ XY) clobbers (X, Y) -> bool @ Pc, ubyte @ A ; (via 818 ($332)) save to a device. See also BSAVE ; source: library:/prog8lib/cx16/syslib.p8:44 romsub $FFDB = SETTIM(ubyte low @ A, ubyte middle @ X, ubyte high @ Y) ; set the software clock ; source: library:/prog8lib/cx16/syslib.p8:45 romsub $FFDE = RDTIM() -> ubyte @ A, ubyte @ X, ubyte @ Y ; read the software clock (A=lo,X=mid,Y=high) ; source: library:/prog8lib/cx16/syslib.p8:46 romsub $FFE1 = STOP() clobbers(X) -> bool @ Pz, ubyte @ A ; (via 808 ($328)) check the STOP key (and some others in A) ; source: library:/prog8lib/cx16/syslib.p8:47 romsub $FFE4 = GETIN() clobbers(X,Y) -> bool @Pc, ubyte @ A ; (via 810 ($32A)) get a character ; source: library:/prog8lib/cx16/syslib.p8:48 romsub $FFE7 = CLALL() clobbers(A,X) ; (via 812 ($32C)) close all files ; source: library:/prog8lib/cx16/syslib.p8:49 romsub $FFEA = UDTIM() clobbers(A,X) ; update the software clock ; source: library:/prog8lib/cx16/syslib.p8:50 romsub $FFED = SCREEN() -> ubyte @ X, ubyte @ Y ; read number of screen rows and columns ; source: library:/prog8lib/cx16/syslib.p8:51 romsub $FFF0 = PLOT(ubyte col @ Y, ubyte row @ X, bool dir @ Pc) -> ubyte @ X, ubyte @ Y ; read/set position of cursor on screen. Use txt.plot for a 'safe' wrapper that preserves X. ; source: library:/prog8lib/cx16/syslib.p8:52 romsub $FFF3 = IOBASE() -> uword @ XY ; read base address of I/O devices ; source: library:/prog8lib/cx16/syslib.p8:56 asmsub STOP2() clobbers(X) -> bool @A { STOP2 .proc ; source: library:/prog8lib/cx16/syslib.p8:58 %asm {{ jsr cbm.STOP beq + lda #0 rts + lda #1 rts .pend ; source: library:/prog8lib/cx16/syslib.p8:68 asmsub RDTIM16() clobbers(X) -> uword @AY { RDTIM16 .proc ; source: library:/prog8lib/cx16/syslib.p8:70 %asm {{ php sei jsr cbm.RDTIM plp cli pha txa tay pla rts .pend .pend ; ---- block: 'cx16' ---- cx16 .proc ; source: library:/prog8lib/cx16/syslib.p8:95 cx16 { 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 ; source: library:/prog8lib/cx16/syslib.p8:98 &uword IERROR = $0300 ; source: library:/prog8lib/cx16/syslib.p8:99 &uword IMAIN = $0302 ; source: library:/prog8lib/cx16/syslib.p8:100 &uword ICRNCH = $0304 ; source: library:/prog8lib/cx16/syslib.p8:101 &uword IQPLOP = $0306 ; source: library:/prog8lib/cx16/syslib.p8:102 &uword IGONE = $0308 ; source: library:/prog8lib/cx16/syslib.p8:103 &uword IEVAL = $030a ; source: library:/prog8lib/cx16/syslib.p8:104 &ubyte SAREG = $030c ; register storage for A for SYS calls ; source: library:/prog8lib/cx16/syslib.p8:105 &ubyte SXREG = $030d ; register storage for X for SYS calls ; source: library:/prog8lib/cx16/syslib.p8:106 &ubyte SYREG = $030e ; register storage for Y for SYS calls ; source: library:/prog8lib/cx16/syslib.p8:107 &ubyte SPREG = $030f ; register storage for P (status register) for SYS calls ; source: library:/prog8lib/cx16/syslib.p8:108 &uword USRADD = $0311 ; vector for the USR() basic command ; source: library:/prog8lib/cx16/syslib.p8:110 &uword CINV = $0314 ; IRQ vector (in ram) ; source: library:/prog8lib/cx16/syslib.p8:111 &uword CBINV = $0316 ; BRK vector (in ram) ; source: library:/prog8lib/cx16/syslib.p8:112 &uword NMINV = $0318 ; NMI vector (in ram) ; source: library:/prog8lib/cx16/syslib.p8:113 &uword IOPEN = $031a ; source: library:/prog8lib/cx16/syslib.p8:114 &uword ICLOSE = $031c ; source: library:/prog8lib/cx16/syslib.p8:115 &uword ICHKIN = $031e ; source: library:/prog8lib/cx16/syslib.p8:116 &uword ICKOUT = $0320 ; source: library:/prog8lib/cx16/syslib.p8:117 &uword ICLRCH = $0322 ; source: library:/prog8lib/cx16/syslib.p8:118 &uword IBASIN = $0324 ; source: library:/prog8lib/cx16/syslib.p8:119 &uword IBSOUT = $0326 ; source: library:/prog8lib/cx16/syslib.p8:120 &uword ISTOP = $0328 ; source: library:/prog8lib/cx16/syslib.p8:121 &uword IGETIN = $032a ; source: library:/prog8lib/cx16/syslib.p8:122 &uword ICLALL = $032c ; source: library:/prog8lib/cx16/syslib.p8:123 &uword KEYHDL = $032e ; keyboard scan code handler see examples/cx16/keyboardhandler.p8 ; source: library:/prog8lib/cx16/syslib.p8:124 &uword ILOAD = $0330 ; source: library:/prog8lib/cx16/syslib.p8:125 &uword ISAVE = $0332 ; source: library:/prog8lib/cx16/syslib.p8:126 &uword NMI_VEC = $FFFA ; 65c02 nmi vector, determined by the kernal if banked in ; source: library:/prog8lib/cx16/syslib.p8:127 &uword RESET_VEC = $FFFC ; 65c02 reset vector, determined by the kernal if banked in ; source: library:/prog8lib/cx16/syslib.p8:128 &uword IRQ_VEC = $FFFE ; 65c02 interrupt vector, determined by the kernal if banked in ; source: library:/prog8lib/cx16/syslib.p8:130 &uword edkeyvec = $ac03 ; (ram bank 0): for intercepting BASIN/CHRIN key strokes. See set_chrin_keyhandler() ; source: library:/prog8lib/cx16/syslib.p8:131 &ubyte edkeybk = $ac05 ; ...the RAM bank of the handler routine, if not in low ram ; source: library:/prog8lib/cx16/syslib.p8:135 &uword r0 = $0002 ; source: library:/prog8lib/cx16/syslib.p8:136 &uword r1 = $0004 ; source: library:/prog8lib/cx16/syslib.p8:137 &uword r2 = $0006 ; source: library:/prog8lib/cx16/syslib.p8:138 &uword r3 = $0008 ; source: library:/prog8lib/cx16/syslib.p8:139 &uword r4 = $000a ; source: library:/prog8lib/cx16/syslib.p8:140 &uword r5 = $000c ; source: library:/prog8lib/cx16/syslib.p8:141 &uword r6 = $000e ; source: library:/prog8lib/cx16/syslib.p8:142 &uword r7 = $0010 ; source: library:/prog8lib/cx16/syslib.p8:143 &uword r8 = $0012 ; source: library:/prog8lib/cx16/syslib.p8:144 &uword r9 = $0014 ; source: library:/prog8lib/cx16/syslib.p8:145 &uword r10 = $0016 ; source: library:/prog8lib/cx16/syslib.p8:146 &uword r11 = $0018 ; source: library:/prog8lib/cx16/syslib.p8:147 &uword r12 = $001a ; source: library:/prog8lib/cx16/syslib.p8:148 &uword r13 = $001c ; source: library:/prog8lib/cx16/syslib.p8:149 &uword r14 = $001e ; source: library:/prog8lib/cx16/syslib.p8:150 &uword r15 = $0020 ; source: library:/prog8lib/cx16/syslib.p8:152 &word r0s = $0002 ; source: library:/prog8lib/cx16/syslib.p8:153 &word r1s = $0004 ; source: library:/prog8lib/cx16/syslib.p8:154 &word r2s = $0006 ; source: library:/prog8lib/cx16/syslib.p8:155 &word r3s = $0008 ; source: library:/prog8lib/cx16/syslib.p8:156 &word r4s = $000a ; source: library:/prog8lib/cx16/syslib.p8:157 &word r5s = $000c ; source: library:/prog8lib/cx16/syslib.p8:158 &word r6s = $000e ; source: library:/prog8lib/cx16/syslib.p8:159 &word r7s = $0010 ; source: library:/prog8lib/cx16/syslib.p8:160 &word r8s = $0012 ; source: library:/prog8lib/cx16/syslib.p8:161 &word r9s = $0014 ; source: library:/prog8lib/cx16/syslib.p8:162 &word r10s = $0016 ; source: library:/prog8lib/cx16/syslib.p8:163 &word r11s = $0018 ; source: library:/prog8lib/cx16/syslib.p8:164 &word r12s = $001a ; source: library:/prog8lib/cx16/syslib.p8:165 &word r13s = $001c ; source: library:/prog8lib/cx16/syslib.p8:166 &word r14s = $001e ; source: library:/prog8lib/cx16/syslib.p8:167 &word r15s = $0020 ; source: library:/prog8lib/cx16/syslib.p8:169 &ubyte r0L = $0002 ; source: library:/prog8lib/cx16/syslib.p8:170 &ubyte r1L = $0004 ; source: library:/prog8lib/cx16/syslib.p8:171 &ubyte r2L = $0006 ; source: library:/prog8lib/cx16/syslib.p8:172 &ubyte r3L = $0008 ; source: library:/prog8lib/cx16/syslib.p8:173 &ubyte r4L = $000a ; source: library:/prog8lib/cx16/syslib.p8:174 &ubyte r5L = $000c ; source: library:/prog8lib/cx16/syslib.p8:175 &ubyte r6L = $000e ; source: library:/prog8lib/cx16/syslib.p8:176 &ubyte r7L = $0010 ; source: library:/prog8lib/cx16/syslib.p8:177 &ubyte r8L = $0012 ; source: library:/prog8lib/cx16/syslib.p8:178 &ubyte r9L = $0014 ; source: library:/prog8lib/cx16/syslib.p8:179 &ubyte r10L = $0016 ; source: library:/prog8lib/cx16/syslib.p8:180 &ubyte r11L = $0018 ; source: library:/prog8lib/cx16/syslib.p8:181 &ubyte r12L = $001a ; source: library:/prog8lib/cx16/syslib.p8:182 &ubyte r13L = $001c ; source: library:/prog8lib/cx16/syslib.p8:183 &ubyte r14L = $001e ; source: library:/prog8lib/cx16/syslib.p8:184 &ubyte r15L = $0020 ; source: library:/prog8lib/cx16/syslib.p8:186 &ubyte r0H = $0003 ; source: library:/prog8lib/cx16/syslib.p8:187 &ubyte r1H = $0005 ; source: library:/prog8lib/cx16/syslib.p8:188 &ubyte r2H = $0007 ; source: library:/prog8lib/cx16/syslib.p8:189 &ubyte r3H = $0009 ; source: library:/prog8lib/cx16/syslib.p8:190 &ubyte r4H = $000b ; source: library:/prog8lib/cx16/syslib.p8:191 &ubyte r5H = $000d ; source: library:/prog8lib/cx16/syslib.p8:192 &ubyte r6H = $000f ; source: library:/prog8lib/cx16/syslib.p8:193 &ubyte r7H = $0011 ; source: library:/prog8lib/cx16/syslib.p8:194 &ubyte r8H = $0013 ; source: library:/prog8lib/cx16/syslib.p8:195 &ubyte r9H = $0015 ; source: library:/prog8lib/cx16/syslib.p8:196 &ubyte r10H = $0017 ; source: library:/prog8lib/cx16/syslib.p8:197 &ubyte r11H = $0019 ; source: library:/prog8lib/cx16/syslib.p8:198 &ubyte r12H = $001b ; source: library:/prog8lib/cx16/syslib.p8:199 &ubyte r13H = $001d ; source: library:/prog8lib/cx16/syslib.p8:200 &ubyte r14H = $001f ; source: library:/prog8lib/cx16/syslib.p8:201 &ubyte r15H = $0021 ; source: library:/prog8lib/cx16/syslib.p8:203 &byte r0sL = $0002 ; source: library:/prog8lib/cx16/syslib.p8:204 &byte r1sL = $0004 ; source: library:/prog8lib/cx16/syslib.p8:205 &byte r2sL = $0006 ; source: library:/prog8lib/cx16/syslib.p8:206 &byte r3sL = $0008 ; source: library:/prog8lib/cx16/syslib.p8:207 &byte r4sL = $000a ; source: library:/prog8lib/cx16/syslib.p8:208 &byte r5sL = $000c ; source: library:/prog8lib/cx16/syslib.p8:209 &byte r6sL = $000e ; source: library:/prog8lib/cx16/syslib.p8:210 &byte r7sL = $0010 ; source: library:/prog8lib/cx16/syslib.p8:211 &byte r8sL = $0012 ; source: library:/prog8lib/cx16/syslib.p8:212 &byte r9sL = $0014 ; source: library:/prog8lib/cx16/syslib.p8:213 &byte r10sL = $0016 ; source: library:/prog8lib/cx16/syslib.p8:214 &byte r11sL = $0018 ; source: library:/prog8lib/cx16/syslib.p8:215 &byte r12sL = $001a ; source: library:/prog8lib/cx16/syslib.p8:216 &byte r13sL = $001c ; source: library:/prog8lib/cx16/syslib.p8:217 &byte r14sL = $001e ; source: library:/prog8lib/cx16/syslib.p8:218 &byte r15sL = $0020 ; source: library:/prog8lib/cx16/syslib.p8:220 &byte r0sH = $0003 ; source: library:/prog8lib/cx16/syslib.p8:221 &byte r1sH = $0005 ; source: library:/prog8lib/cx16/syslib.p8:222 &byte r2sH = $0007 ; source: library:/prog8lib/cx16/syslib.p8:223 &byte r3sH = $0009 ; source: library:/prog8lib/cx16/syslib.p8:224 &byte r4sH = $000b ; source: library:/prog8lib/cx16/syslib.p8:225 &byte r5sH = $000d ; source: library:/prog8lib/cx16/syslib.p8:226 &byte r6sH = $000f ; source: library:/prog8lib/cx16/syslib.p8:227 &byte r7sH = $0011 ; source: library:/prog8lib/cx16/syslib.p8:228 &byte r8sH = $0013 ; source: library:/prog8lib/cx16/syslib.p8:229 &byte r9sH = $0015 ; source: library:/prog8lib/cx16/syslib.p8:230 &byte r10sH = $0017 ; source: library:/prog8lib/cx16/syslib.p8:231 &byte r11sH = $0019 ; source: library:/prog8lib/cx16/syslib.p8:232 &byte r12sH = $001b ; source: library:/prog8lib/cx16/syslib.p8:233 &byte r13sH = $001d ; source: library:/prog8lib/cx16/syslib.p8:234 &byte r14sH = $001f ; source: library:/prog8lib/cx16/syslib.p8:235 &byte r15sH = $0021 ; source: library:/prog8lib/cx16/syslib.p8:239 const uword VERA_BASE = $9F20 ; source: library:/prog8lib/cx16/syslib.p8:240 &ubyte VERA_ADDR_L = VERA_BASE + $0000 ; source: library:/prog8lib/cx16/syslib.p8:241 &ubyte VERA_ADDR_M = VERA_BASE + $0001 ; source: library:/prog8lib/cx16/syslib.p8:242 &uword VERA_ADDR = VERA_BASE + $0000 ; still need to do the _H separately ; source: library:/prog8lib/cx16/syslib.p8:243 &ubyte VERA_ADDR_H = VERA_BASE + $0002 ; source: library:/prog8lib/cx16/syslib.p8:244 &ubyte VERA_DATA0 = VERA_BASE + $0003 ; source: library:/prog8lib/cx16/syslib.p8:245 &ubyte VERA_DATA1 = VERA_BASE + $0004 ; source: library:/prog8lib/cx16/syslib.p8:246 &ubyte VERA_CTRL = VERA_BASE + $0005 ; source: library:/prog8lib/cx16/syslib.p8:247 &ubyte VERA_IEN = VERA_BASE + $0006 ; source: library:/prog8lib/cx16/syslib.p8:248 &ubyte VERA_ISR = VERA_BASE + $0007 ; source: library:/prog8lib/cx16/syslib.p8:249 &ubyte VERA_IRQLINE_L = VERA_BASE + $0008 ; write only ; source: library:/prog8lib/cx16/syslib.p8:250 &ubyte VERA_SCANLINE_L = VERA_BASE + $0008 ; read only ; source: library:/prog8lib/cx16/syslib.p8:251 &ubyte VERA_DC_VIDEO = VERA_BASE + $0009 ; DCSEL= 0 ; source: library:/prog8lib/cx16/syslib.p8:252 &ubyte VERA_DC_HSCALE = VERA_BASE + $000A ; DCSEL= 0 ; source: library:/prog8lib/cx16/syslib.p8:253 &ubyte VERA_DC_VSCALE = VERA_BASE + $000B ; DCSEL= 0 ; source: library:/prog8lib/cx16/syslib.p8:254 &ubyte VERA_DC_BORDER = VERA_BASE + $000C ; DCSEL= 0 ; source: library:/prog8lib/cx16/syslib.p8:255 &ubyte VERA_DC_HSTART = VERA_BASE + $0009 ; DCSEL= 1 ; source: library:/prog8lib/cx16/syslib.p8:256 &ubyte VERA_DC_HSTOP = VERA_BASE + $000A ; DCSEL= 1 ; source: library:/prog8lib/cx16/syslib.p8:257 &ubyte VERA_DC_VSTART = VERA_BASE + $000B ; DCSEL= 1 ; source: library:/prog8lib/cx16/syslib.p8:258 &ubyte VERA_DC_VSTOP = VERA_BASE + $000C ; DCSEL= 1 ; source: library:/prog8lib/cx16/syslib.p8:259 &ubyte VERA_DC_VER0 = VERA_BASE + $0009 ; DCSEL=63 ; source: library:/prog8lib/cx16/syslib.p8:260 &ubyte VERA_DC_VER1 = VERA_BASE + $000A ; DCSEL=63 ; source: library:/prog8lib/cx16/syslib.p8:261 &ubyte VERA_DC_VER2 = VERA_BASE + $000B ; DCSEL=63 ; source: library:/prog8lib/cx16/syslib.p8:262 &ubyte VERA_DC_VER3 = VERA_BASE + $000C ; DCSEL=63 ; source: library:/prog8lib/cx16/syslib.p8:263 &ubyte VERA_L0_CONFIG = VERA_BASE + $000D ; source: library:/prog8lib/cx16/syslib.p8:264 &ubyte VERA_L0_MAPBASE = VERA_BASE + $000E ; source: library:/prog8lib/cx16/syslib.p8:265 &ubyte VERA_L0_TILEBASE = VERA_BASE + $000F ; source: library:/prog8lib/cx16/syslib.p8:266 &ubyte VERA_L0_HSCROLL_L = VERA_BASE + $0010 ; source: library:/prog8lib/cx16/syslib.p8:267 &ubyte VERA_L0_HSCROLL_H = VERA_BASE + $0011 ; source: library:/prog8lib/cx16/syslib.p8:268 &uword VERA_L0_HSCROLL = VERA_BASE + $0010 ; source: library:/prog8lib/cx16/syslib.p8:269 &ubyte VERA_L0_VSCROLL_L = VERA_BASE + $0012 ; source: library:/prog8lib/cx16/syslib.p8:270 &ubyte VERA_L0_VSCROLL_H = VERA_BASE + $0013 ; source: library:/prog8lib/cx16/syslib.p8:271 &uword VERA_L0_VSCROLL = VERA_BASE + $0012 ; source: library:/prog8lib/cx16/syslib.p8:272 &ubyte VERA_L1_CONFIG = VERA_BASE + $0014 ; source: library:/prog8lib/cx16/syslib.p8:273 &ubyte VERA_L1_MAPBASE = VERA_BASE + $0015 ; source: library:/prog8lib/cx16/syslib.p8:274 &ubyte VERA_L1_TILEBASE = VERA_BASE + $0016 ; source: library:/prog8lib/cx16/syslib.p8:275 &ubyte VERA_L1_HSCROLL_L = VERA_BASE + $0017 ; source: library:/prog8lib/cx16/syslib.p8:276 &ubyte VERA_L1_HSCROLL_H = VERA_BASE + $0018 ; source: library:/prog8lib/cx16/syslib.p8:277 &uword VERA_L1_HSCROLL = VERA_BASE + $0017 ; source: library:/prog8lib/cx16/syslib.p8:278 &ubyte VERA_L1_VSCROLL_L = VERA_BASE + $0019 ; source: library:/prog8lib/cx16/syslib.p8:279 &ubyte VERA_L1_VSCROLL_H = VERA_BASE + $001A ; source: library:/prog8lib/cx16/syslib.p8:280 &uword VERA_L1_VSCROLL = VERA_BASE + $0019 ; source: library:/prog8lib/cx16/syslib.p8:281 &ubyte VERA_AUDIO_CTRL = VERA_BASE + $001B ; source: library:/prog8lib/cx16/syslib.p8:282 &ubyte VERA_AUDIO_RATE = VERA_BASE + $001C ; source: library:/prog8lib/cx16/syslib.p8:283 &ubyte VERA_AUDIO_DATA = VERA_BASE + $001D ; source: library:/prog8lib/cx16/syslib.p8:284 &ubyte VERA_SPI_DATA = VERA_BASE + $001E ; source: library:/prog8lib/cx16/syslib.p8:285 &ubyte VERA_SPI_CTRL = VERA_BASE + $001F ; source: library:/prog8lib/cx16/syslib.p8:288 &ubyte VERA_FX_CTRL = VERA_BASE + $0009 ; source: library:/prog8lib/cx16/syslib.p8:289 &ubyte VERA_FX_TILEBASE = VERA_BASE + $000a ; source: library:/prog8lib/cx16/syslib.p8:290 &ubyte VERA_FX_MAPBASE = VERA_BASE + $000b ; source: library:/prog8lib/cx16/syslib.p8:291 &ubyte VERA_FX_MULT = VERA_BASE + $000c ; source: library:/prog8lib/cx16/syslib.p8:292 &ubyte VERA_FX_X_INCR_L = VERA_BASE + $0009 ; source: library:/prog8lib/cx16/syslib.p8:293 &ubyte VERA_FX_X_INCR_H = VERA_BASE + $000a ; source: library:/prog8lib/cx16/syslib.p8:294 &uword VERA_FX_X_INCR = VERA_BASE + $0009 ; source: library:/prog8lib/cx16/syslib.p8:295 &ubyte VERA_FX_Y_INCR_L = VERA_BASE + $000b ; source: library:/prog8lib/cx16/syslib.p8:296 &ubyte VERA_FX_Y_INCR_H = VERA_BASE + $000c ; source: library:/prog8lib/cx16/syslib.p8:297 &uword VERA_FX_Y_INCR = VERA_BASE + $000b ; source: library:/prog8lib/cx16/syslib.p8:298 &ubyte VERA_FX_X_POS_L = VERA_BASE + $0009 ; source: library:/prog8lib/cx16/syslib.p8:299 &ubyte VERA_FX_X_POS_H = VERA_BASE + $000a ; source: library:/prog8lib/cx16/syslib.p8:300 &uword VERA_FX_X_POS = VERA_BASE + $0009 ; source: library:/prog8lib/cx16/syslib.p8:301 &ubyte VERA_FX_Y_POS_L = VERA_BASE + $000b ; source: library:/prog8lib/cx16/syslib.p8:302 &ubyte VERA_FX_Y_POS_H = VERA_BASE + $000c ; source: library:/prog8lib/cx16/syslib.p8:303 &uword VERA_FX_Y_POS = VERA_BASE + $000b ; source: library:/prog8lib/cx16/syslib.p8:304 &ubyte VERA_FX_X_POS_S = VERA_BASE + $0009 ; source: library:/prog8lib/cx16/syslib.p8:305 &ubyte VERA_FX_Y_POS_S = VERA_BASE + $000a ; source: library:/prog8lib/cx16/syslib.p8:306 &ubyte VERA_FX_POLY_FILL_L = VERA_BASE + $000b ; source: library:/prog8lib/cx16/syslib.p8:307 &ubyte VERA_FX_POLY_FILL_H = VERA_BASE + $000c ; source: library:/prog8lib/cx16/syslib.p8:308 &uword VERA_FX_POLY_FILL = VERA_BASE + $000b ; source: library:/prog8lib/cx16/syslib.p8:309 &ubyte VERA_FX_CACHE_L = VERA_BASE + $0009 ; source: library:/prog8lib/cx16/syslib.p8:310 &ubyte VERA_FX_CACHE_M = VERA_BASE + $000a ; source: library:/prog8lib/cx16/syslib.p8:311 &ubyte VERA_FX_CACHE_H = VERA_BASE + $000b ; source: library:/prog8lib/cx16/syslib.p8:312 &ubyte VERA_FX_CACHE_U = VERA_BASE + $000c ; source: library:/prog8lib/cx16/syslib.p8:313 &ubyte VERA_FX_ACCUM = VERA_BASE + $000a ; source: library:/prog8lib/cx16/syslib.p8:314 &ubyte VERA_FX_ACCUM_RESET = VERA_BASE + $0009 ; source: library:/prog8lib/cx16/syslib.p8:323 const uword VIA1_BASE = $9f00 ;VIA 6522 #1 ; source: library:/prog8lib/cx16/syslib.p8:324 &ubyte via1prb = VIA1_BASE + 0 ; source: library:/prog8lib/cx16/syslib.p8:325 &ubyte via1pra = VIA1_BASE + 1 ; source: library:/prog8lib/cx16/syslib.p8:326 &ubyte via1ddrb = VIA1_BASE + 2 ; source: library:/prog8lib/cx16/syslib.p8:327 &ubyte via1ddra = VIA1_BASE + 3 ; source: library:/prog8lib/cx16/syslib.p8:328 &ubyte via1t1l = VIA1_BASE + 4 ; source: library:/prog8lib/cx16/syslib.p8:329 &ubyte via1t1h = VIA1_BASE + 5 ; source: library:/prog8lib/cx16/syslib.p8:330 &ubyte via1t1ll = VIA1_BASE + 6 ; source: library:/prog8lib/cx16/syslib.p8:331 &ubyte via1t1lh = VIA1_BASE + 7 ; source: library:/prog8lib/cx16/syslib.p8:332 &ubyte via1t2l = VIA1_BASE + 8 ; source: library:/prog8lib/cx16/syslib.p8:333 &ubyte via1t2h = VIA1_BASE + 9 ; source: library:/prog8lib/cx16/syslib.p8:334 &ubyte via1sr = VIA1_BASE + 10 ; source: library:/prog8lib/cx16/syslib.p8:335 &ubyte via1acr = VIA1_BASE + 11 ; source: library:/prog8lib/cx16/syslib.p8:336 &ubyte via1pcr = VIA1_BASE + 12 ; source: library:/prog8lib/cx16/syslib.p8:337 &ubyte via1ifr = VIA1_BASE + 13 ; source: library:/prog8lib/cx16/syslib.p8:338 &ubyte via1ier = VIA1_BASE + 14 ; source: library:/prog8lib/cx16/syslib.p8:339 &ubyte via1ora = VIA1_BASE + 15 ; source: library:/prog8lib/cx16/syslib.p8:341 const uword VIA2_BASE = $9f10 ;VIA 6522 #2 ; source: library:/prog8lib/cx16/syslib.p8:342 &ubyte via2prb = VIA2_BASE + 0 ; source: library:/prog8lib/cx16/syslib.p8:343 &ubyte via2pra = VIA2_BASE + 1 ; source: library:/prog8lib/cx16/syslib.p8:344 &ubyte via2ddrb = VIA2_BASE + 2 ; source: library:/prog8lib/cx16/syslib.p8:345 &ubyte via2ddra = VIA2_BASE + 3 ; source: library:/prog8lib/cx16/syslib.p8:346 &ubyte via2t1l = VIA2_BASE + 4 ; source: library:/prog8lib/cx16/syslib.p8:347 &ubyte via2t1h = VIA2_BASE + 5 ; source: library:/prog8lib/cx16/syslib.p8:348 &ubyte via2t1ll = VIA2_BASE + 6 ; source: library:/prog8lib/cx16/syslib.p8:349 &ubyte via2t1lh = VIA2_BASE + 7 ; source: library:/prog8lib/cx16/syslib.p8:350 &ubyte via2t2l = VIA2_BASE + 8 ; source: library:/prog8lib/cx16/syslib.p8:351 &ubyte via2t2h = VIA2_BASE + 9 ; source: library:/prog8lib/cx16/syslib.p8:352 &ubyte via2sr = VIA2_BASE + 10 ; source: library:/prog8lib/cx16/syslib.p8:353 &ubyte via2acr = VIA2_BASE + 11 ; source: library:/prog8lib/cx16/syslib.p8:354 &ubyte via2pcr = VIA2_BASE + 12 ; source: library:/prog8lib/cx16/syslib.p8:355 &ubyte via2ifr = VIA2_BASE + 13 ; source: library:/prog8lib/cx16/syslib.p8:356 &ubyte via2ier = VIA2_BASE + 14 ; source: library:/prog8lib/cx16/syslib.p8:357 &ubyte via2ora = VIA2_BASE + 15 ; source: library:/prog8lib/cx16/syslib.p8:360 &ubyte YM_ADDRESS = $9f40 ; source: library:/prog8lib/cx16/syslib.p8:361 &ubyte YM_DATA = $9f41 ; source: library:/prog8lib/cx16/syslib.p8:363 const uword extdev = $9f60 ; source: library:/prog8lib/cx16/syslib.p8:95 cx16 { ; source: library:/prog8lib/cx16/syslib.p8:370 romsub $ff4a = CLOSE_ALL(ubyte device @A) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:371 romsub $ff59 = LKUPLA(ubyte la @A) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:372 romsub $ff5c = LKUPSA(ubyte sa @Y) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:373 romsub $ff5f = screen_mode(ubyte mode @A, bool getCurrent @Pc) clobbers(X, Y) -> ubyte @A, bool @Pc ; note: X,Y size result is not supported, use SCREEN or get_screen_mode routine for that ; source: library:/prog8lib/cx16/syslib.p8:374 romsub $ff62 = screen_set_charset(ubyte charset @A, uword charsetptr @XY) clobbers(A,X,Y) ; incompatible with C128 dlchr() ; source: library:/prog8lib/cx16/syslib.p8:376 romsub $ff6e = JSRFAR() ; following word = address to call, byte after that=rom/ram bank it is in ; source: library:/prog8lib/cx16/syslib.p8:377 romsub $ff74 = fetch(ubyte bank @X, ubyte index @Y) clobbers(X) -> ubyte @A ; source: library:/prog8lib/cx16/syslib.p8:378 romsub $ff77 = stash(ubyte data @A, ubyte bank @X, ubyte index @Y) clobbers(X) ; source: library:/prog8lib/cx16/syslib.p8:379 romsub $ff7d = PRIMM() ; source: library:/prog8lib/cx16/syslib.p8:384 romsub $ff20 = GRAPH_init(uword vectors @R0) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:385 romsub $ff23 = GRAPH_clear() clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:386 romsub $ff26 = GRAPH_set_window(uword x @R0, uword y @R1, uword width @R2, uword height @R3) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:387 romsub $ff29 = GRAPH_set_colors(ubyte stroke @A, ubyte fill @X, ubyte background @Y) clobbers (A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:388 romsub $ff2c = GRAPH_draw_line(uword x1 @R0, uword y1 @R1, uword x2 @R2, uword y2 @R3) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:389 romsub $ff2f = GRAPH_draw_rect(uword x @R0, uword y @R1, uword width @R2, uword height @R3, uword cornerradius @R4, bool fill @Pc) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:390 romsub $ff32 = GRAPH_move_rect(uword sx @R0, uword sy @R1, uword tx @R2, uword ty @R3, uword width @R4, uword height @R5) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:391 romsub $ff35 = GRAPH_draw_oval(uword x @R0, uword y @R1, uword width @R2, uword height @R3, bool fill @Pc) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:392 romsub $ff38 = GRAPH_draw_image(uword x @R0, uword y @R1, uword ptr @R2, uword width @R3, uword height @R4) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:393 romsub $ff3b = GRAPH_set_font(uword fontptr @R0) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:394 romsub $ff3e = GRAPH_get_char_size(ubyte baseline @A, ubyte width @X, ubyte height_or_style @Y, bool is_control @Pc) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:395 romsub $ff41 = GRAPH_put_char(uword x @R0, uword y @R1, ubyte character @A) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:396 romsub $ff41 = GRAPH_put_next_char(ubyte character @A) clobbers(A,X,Y) ; alias for the routine above that doesn't reset the position of the initial character ; source: library:/prog8lib/cx16/syslib.p8:399 romsub $fef6 = FB_init() clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:400 romsub $fef9 = FB_get_info() clobbers(X,Y) -> byte @A, uword @R0, uword @R1 ; width=r0, height=r1 ; source: library:/prog8lib/cx16/syslib.p8:401 romsub $fefc = FB_set_palette(uword pointer @R0, ubyte index @A, ubyte colorcount @X) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:402 romsub $feff = FB_cursor_position(uword x @R0, uword y @R1) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:403 romsub $ff02 = FB_cursor_next_line(uword x @R0) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:404 romsub $ff05 = FB_get_pixel() clobbers(X,Y) -> ubyte @A ; source: library:/prog8lib/cx16/syslib.p8:405 romsub $ff08 = FB_get_pixels(uword pointer @R0, uword count @R1) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:406 romsub $ff0b = FB_set_pixel(ubyte color @A) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:407 romsub $ff0e = FB_set_pixels(uword pointer @R0, uword count @R1) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:408 romsub $ff11 = FB_set_8_pixels(ubyte pattern @A, ubyte color @X) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:409 romsub $ff14 = FB_set_8_pixels_opaque(ubyte pattern @R0, ubyte mask @A, ubyte color1 @X, ubyte color2 @Y) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:410 romsub $ff17 = FB_fill_pixels(uword count @R0, uword pstep @R1, ubyte color @A) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:411 romsub $ff1a = FB_filter_pixels(uword pointer @ R0, uword count @R1) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:412 romsub $ff1d = FB_move_pixels(uword sx @R0, uword sy @R1, uword tx @R2, uword ty @R3, uword count @R4) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:415 romsub $FEBA = BSAVE(ubyte zp_startaddr @ A, uword endaddr @ XY) clobbers (X, Y) -> bool @ Pc, ubyte @ A ; like cbm.SAVE, but omits the 2-byte prg header ; source: library:/prog8lib/cx16/syslib.p8:416 romsub $fec6 = i2c_read_byte(ubyte device @X, ubyte offset @Y) clobbers (X,Y) -> ubyte @A, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:417 romsub $fec9 = i2c_write_byte(ubyte device @X, ubyte offset @Y, ubyte data @A) clobbers (A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:418 romsub $fef0 = sprite_set_image(uword pixels @R0, uword mask @R1, ubyte bpp @R2, ubyte number @A, ubyte width @X, ubyte height @Y, bool apply_mask @Pc) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:419 romsub $fef3 = sprite_set_position(uword x @R0, uword y @R1, ubyte number @A) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:420 romsub $fee4 = memory_fill(uword address @R0, uword num_bytes @R1, ubyte value @A) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:421 romsub $fee7 = memory_copy(uword source @R0, uword target @R1, uword num_bytes @R2) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:422 romsub $feea = memory_crc(uword address @R0, uword num_bytes @R1) clobbers(A,X,Y) -> uword @R2 ; source: library:/prog8lib/cx16/syslib.p8:423 romsub $feed = memory_decompress(uword input @R0, uword output @R1) clobbers(A,X,Y) -> uword @R1 ; last address +1 is result in R1 ; source: library:/prog8lib/cx16/syslib.p8:424 romsub $fedb = console_init(uword x @R0, uword y @R1, uword width @R2, uword height @R3) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:425 romsub $fede = console_put_char(ubyte character @A, bool wrapping @Pc) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:426 romsub $fee1 = console_get_char() clobbers(X,Y) -> ubyte @A ; source: library:/prog8lib/cx16/syslib.p8:427 romsub $fed8 = console_put_image(uword pointer @R0, uword width @R1, uword height @R2) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:428 romsub $fed5 = console_set_paging_message(uword msgptr @R0) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:429 romsub $fecf = entropy_get() -> ubyte @A, ubyte @X, ubyte @Y ; source: library:/prog8lib/cx16/syslib.p8:430 romsub $fecc = monitor() clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:432 romsub $ff44 = MACPTR(ubyte length @A, uword buffer @XY, bool dontAdvance @Pc) clobbers(A) -> bool @Pc, uword @XY ; source: library:/prog8lib/cx16/syslib.p8:433 romsub $feb1 = MCIOUT(ubyte length @A, uword buffer @XY, bool dontAdvance @Pc) clobbers(A) -> bool @Pc, uword @XY ; source: library:/prog8lib/cx16/syslib.p8:434 romsub $ff47 = enter_basic(bool cold_or_warm @Pc) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:435 romsub $ff4d = clock_set_date_time(uword yearmonth @R0, uword dayhours @R1, uword minsecs @R2, uword jiffiesweekday @R3) clobbers(A, X, Y) ; source: library:/prog8lib/cx16/syslib.p8:436 romsub $ff50 = clock_get_date_time() clobbers(A, X, Y) -> uword @R0, uword @R1, uword @R2, uword @R3 ; result registers see clock_set_date_time() ; source: library:/prog8lib/cx16/syslib.p8:440 romsub $febd = kbdbuf_peek() -> ubyte @A, ubyte @X ; key in A, queue length in X ; source: library:/prog8lib/cx16/syslib.p8:441 romsub $febd = kbdbuf_peek2() -> uword @AX ; alternative to above to not have the hassle to deal with multiple return values ; source: library:/prog8lib/cx16/syslib.p8:442 romsub $fec0 = kbdbuf_get_modifiers() -> ubyte @A ; source: library:/prog8lib/cx16/syslib.p8:443 romsub $fec3 = kbdbuf_put(ubyte key @A) clobbers(X) ; source: library:/prog8lib/cx16/syslib.p8:444 romsub $fed2 = keymap(uword identifier @XY, bool read @Pc) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:445 romsub $ff68 = mouse_config(byte shape @A, ubyte resX @X, ubyte resY @Y) clobbers (A, X, Y) ; source: library:/prog8lib/cx16/syslib.p8:446 romsub $ff6b = mouse_get(ubyte zpdataptr @X) -> ubyte @A ; source: library:/prog8lib/cx16/syslib.p8:447 romsub $ff71 = mouse_scan() clobbers(A, X, Y) ; source: library:/prog8lib/cx16/syslib.p8:448 romsub $ff53 = joystick_scan() clobbers(A, X, Y) ; source: library:/prog8lib/cx16/syslib.p8:449 romsub $ff56 = joystick_get(ubyte joynr @A) -> ubyte @A, ubyte @X, ubyte @Y ; source: library:/prog8lib/cx16/syslib.p8:450 romsub $ff56 = joystick_get2(ubyte joynr @A) clobbers(Y) -> uword @AX ; alternative to above to not have the hassle to deal with multiple return values ; source: library:/prog8lib/cx16/syslib.p8:453 romsub $C000 = x16edit_default() clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:454 romsub $C003 = x16edit_loadfile(ubyte firstbank @X, ubyte lastbank @Y, str filename @R0, ubyte filenameLength @R1) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:455 romsub $C006 = x16edit_loadfile_options(ubyte firstbank @X, ubyte lastbank @Y, str filename @R0, ; source: library:/prog8lib/cx16/syslib.p8:460 romsub $C09F = audio_init() clobbers(A,X,Y) -> bool @Pc ; (re)initialize both vera PSG and YM audio chips ; source: library:/prog8lib/cx16/syslib.p8:461 romsub $C000 = bas_fmfreq(ubyte channel @A, uword freq @XY, bool noretrigger @Pc) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:462 romsub $C003 = bas_fmnote(ubyte channel @A, ubyte note @X, ubyte fracsemitone @Y, bool noretrigger @Pc) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:463 romsub $C006 = bas_fmplaystring(ubyte length @A, str string @XY) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:464 romsub $C009 = bas_fmvib(ubyte speed @A, ubyte depth @X) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:465 romsub $C00C = bas_playstringvoice(ubyte channel @A) clobbers(Y) ; source: library:/prog8lib/cx16/syslib.p8:466 romsub $C00F = bas_psgfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:467 romsub $C012 = bas_psgnote(ubyte voice @A, ubyte note @X, ubyte fracsemitone @Y) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:468 romsub $C015 = bas_psgwav(ubyte voice @A, ubyte waveform @X) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:469 romsub $C018 = bas_psgplaystring(ubyte length @A, str string @XY) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:470 romsub $C08D = bas_fmchordstring(ubyte length @A, str string @XY) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:471 romsub $C090 = bas_psgchordstring(ubyte length @A, str string @XY) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:472 romsub $C01B = notecon_bas2fm(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:473 romsub $C01E = notecon_bas2midi(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:474 romsub $C021 = notecon_bas2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:475 romsub $C024 = notecon_fm2bas(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:476 romsub $C027 = notecon_fm2midi(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:477 romsub $C02A = notecon_fm2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:478 romsub $C02D = notecon_freq2bas(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:479 romsub $C030 = notecon_freq2fm(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:480 romsub $C033 = notecon_freq2midi(uword freqHz @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:481 romsub $C036 = notecon_freq2psg(uword freqHz @XY) clobbers(A) -> uword @XY, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:482 romsub $C039 = notecon_midi2bas(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:483 romsub $C03C = notecon_midi2fm(ubyte note @X) clobbers(A) -> ubyte @X, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:484 romsub $C03F = notecon_midi2psg(ubyte note @X, ubyte fracsemitone @Y) clobbers(A) -> uword @XY, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:485 romsub $C042 = notecon_psg2bas(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:486 romsub $C045 = notecon_psg2fm(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:487 romsub $C048 = notecon_psg2midi(uword freq @XY) clobbers(A) -> ubyte @X, ubyte @Y, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:488 romsub $C04B = psg_init() clobbers(A,X,Y) ; (re)init Vera PSG ; source: library:/prog8lib/cx16/syslib.p8:489 romsub $C04E = psg_playfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:490 romsub $C051 = psg_read(ubyte offset @X, bool cookedVol @Pc) clobbers(Y) -> ubyte @A ; source: library:/prog8lib/cx16/syslib.p8:491 romsub $C054 = psg_setatten(ubyte voice @A, ubyte attenuation @X) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:492 romsub $C057 = psg_setfreq(ubyte voice @A, uword freq @XY) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:493 romsub $C05A = psg_setpan(ubyte voice @A, ubyte panning @X) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:494 romsub $C05D = psg_setvol(ubyte voice @A, ubyte volume @X) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:495 romsub $C060 = psg_write(ubyte value @A, ubyte offset @X) clobbers(Y) ; source: library:/prog8lib/cx16/syslib.p8:496 romsub $C0A2 = psg_write_fast(ubyte value @A, ubyte offset @X) clobbers(Y) ; source: library:/prog8lib/cx16/syslib.p8:497 romsub $C093 = psg_getatten(ubyte voice @A) clobbers(Y) -> ubyte @X ; source: library:/prog8lib/cx16/syslib.p8:498 romsub $C096 = psg_getpan(ubyte voice @A) clobbers(Y) -> ubyte @X ; source: library:/prog8lib/cx16/syslib.p8:499 romsub $C063 = ym_init() clobbers(A,X,Y) -> bool @Pc ; (re)init YM chip ; source: library:/prog8lib/cx16/syslib.p8:500 romsub $C066 = ym_loaddefpatches() clobbers(A,X,Y) -> bool @Pc ; load default YM patches ; source: library:/prog8lib/cx16/syslib.p8:501 romsub $C069 = ym_loadpatch(ubyte channel @A, uword patchOrAddress @XY, bool what @Pc) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/syslib.p8:502 romsub $C06C = ym_loadpatchlfn(ubyte channel @A, ubyte lfn @X) clobbers(X,Y) -> ubyte @A, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:503 romsub $C06F = ym_playdrum(ubyte channel @A, ubyte note @X) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:504 romsub $C072 = ym_playnote(ubyte channel @A, ubyte kc @X, ubyte kf @Y, bool notrigger @Pc) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:505 romsub $C075 = ym_setatten(ubyte channel @A, ubyte attenuation @X) clobbers(Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:506 romsub $C078 = ym_setdrum(ubyte channel @A, ubyte note @X) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:507 romsub $C07B = ym_setnote(ubyte channel @A, ubyte kc @X, ubyte kf @Y) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:508 romsub $C07E = ym_setpan(ubyte channel @A, ubyte panning @X) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:509 romsub $C081 = ym_read(ubyte register @X, bool cooked @Pc) clobbers(Y) -> ubyte @A, bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:510 romsub $C084 = ym_release(ubyte channel @A) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:511 romsub $C087 = ym_trigger(ubyte channel @A, bool noRelease @Pc) clobbers(A,X,Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:512 romsub $C08A = ym_write(ubyte value @A, ubyte register @X) clobbers(Y) -> bool @Pc ; source: library:/prog8lib/cx16/syslib.p8:513 romsub $C099 = ym_getatten(ubyte channel @A) clobbers(Y) -> ubyte @X ; source: library:/prog8lib/cx16/syslib.p8:514 romsub $C09C = ym_getpan(ubyte channel @A) clobbers(Y) -> ubyte @X ; source: library:/prog8lib/cx16/syslib.p8:515 romsub $C0A5 = ym_get_chip_type() clobbers(X) -> ubyte @A ; source: library:/prog8lib/cx16/syslib.p8:518 asmsub set_screen_mode(ubyte mode @A) clobbers(A,X,Y) -> bool @Pc { set_screen_mode .proc ; source: library:/prog8lib/cx16/syslib.p8:520 %asm {{ clc jmp screen_mode .pend ; source: library:/prog8lib/cx16/syslib.p8:526 asmsub get_screen_mode() -> byte @A, byte @X, byte @Y { get_screen_mode .proc ; source: library:/prog8lib/cx16/syslib.p8:531 %asm {{ sec jmp screen_mode .pend ; source: library:/prog8lib/cx16/syslib.p8:537 asmsub kbdbuf_clear() { kbdbuf_clear .proc ; source: library:/prog8lib/cx16/syslib.p8:539 %asm {{ - jsr cbm.GETIN bne - rts .pend ; source: library:/prog8lib/cx16/syslib.p8:546 asmsub mouse_config2(byte shape @A) clobbers (A, X, Y) { mouse_config2 .proc ; source: library:/prog8lib/cx16/syslib.p8:548 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:557 asmsub mouse_pos() clobbers(X) -> ubyte @A { mouse_pos .proc ; source: library:/prog8lib/cx16/syslib.p8:560 %asm {{ ldx #cx16.r0 jmp cx16.mouse_get .pend ; source: library:/prog8lib/cx16/syslib.p8:572 inline asmsub rombank(ubyte bank @A) { ; source: library:/prog8lib/cx16/syslib.p8:579 inline asmsub rambank(ubyte bank @A) { ; source: library:/prog8lib/cx16/syslib.p8:586 inline asmsub getrombank() -> ubyte @A { ; source: library:/prog8lib/cx16/syslib.p8:593 inline asmsub getrambank() -> ubyte @A { ; source: library:/prog8lib/cx16/syslib.p8:600 asmsub numbanks() clobbers(X) -> uword @AY { numbanks .proc ; source: library:/prog8lib/cx16/syslib.p8:607 %asm {{ sec jsr cbm.MEMTOP ldy #0 cmp #0 bne + iny + rts .pend ; source: library:/prog8lib/cx16/syslib.p8:618 asmsub vpeek(ubyte bank @A, uword address @XY) -> ubyte @A { vpeek .proc ; source: library:/prog8lib/cx16/syslib.p8:621 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:631 asmsub vaddr(ubyte bank @A, uword address @R0, ubyte addrsel @R1, byte autoIncrOrDecrByOne @Y) clobbers(A) { vaddr .proc ; source: library:/prog8lib/cx16/syslib.p8:635 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:657 asmsub vaddr_clone(ubyte port @A) clobbers (A,X,Y) { vaddr_clone .proc ; source: library:/prog8lib/cx16/syslib.p8:659 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:677 asmsub vaddr_autoincr(ubyte bank @A, uword address @R0, ubyte addrsel @R1, uword autoIncrAmount @R2) clobbers(A,Y) { vaddr_autoincr .proc ; source: library:/prog8lib/cx16/syslib.p8:681 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:739 asmsub vaddr_autodecr(ubyte bank @A, uword address @R0, ubyte addrsel @R1, uword autoDecrAmount @R2) clobbers(A,Y) { vaddr_autodecr .proc ; source: library:/prog8lib/cx16/syslib.p8:743 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:756 asmsub vpoke(ubyte bank @A, uword address @R0, ubyte value @Y) clobbers(A) { vpoke .proc ; source: library:/prog8lib/cx16/syslib.p8:759 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:771 asmsub vpoke_or(ubyte bank @A, uword address @R0, ubyte value @Y) clobbers (A) { vpoke_or .proc ; source: library:/prog8lib/cx16/syslib.p8:774 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:788 asmsub vpoke_and(ubyte bank @A, uword address @R0, ubyte value @Y) clobbers(A) { vpoke_and .proc ; source: library:/prog8lib/cx16/syslib.p8:791 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:805 asmsub vpoke_xor(ubyte bank @A, uword address @R0, ubyte value @Y) clobbers (A) { vpoke_xor .proc ; source: library:/prog8lib/cx16/syslib.p8:808 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:822 asmsub vpoke_mask(ubyte bank @A, uword address @R0, ubyte mask @X, ubyte value @Y) clobbers (A) { vpoke_mask .proc ; source: library:/prog8lib/cx16/syslib.p8:825 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:841 asmsub save_virtual_registers() clobbers(A,Y) { save_virtual_registers .proc ; source: library:/prog8lib/cx16/syslib.p8:842 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:856 asmsub restore_virtual_registers() clobbers(A,Y) { restore_virtual_registers .proc ; source: library:/prog8lib/cx16/syslib.p8:857 %asm {{ ldy #31 - lda save_virtual_registers._cx16_vreg_storage,y sta cx16.r0,y dey bpl - rts .pend ; source: library:/prog8lib/cx16/syslib.p8:868 asmsub save_vera_context() clobbers(A) { save_vera_context .proc ; source: library:/prog8lib/cx16/syslib.p8:870 %asm {{ ; 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 ; source: library:/prog8lib/cx16/syslib.p8:894 asmsub restore_vera_context() clobbers(A) { restore_vera_context .proc ; source: library:/prog8lib/cx16/syslib.p8:896 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:918 asmsub set_chrin_keyhandler(ubyte handlerbank @A, uword handler @XY) clobbers(A) { set_chrin_keyhandler .proc ; source: library:/prog8lib/cx16/syslib.p8:921 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:938 asmsub get_chrin_keyhandler() -> ubyte @R0, uword @R1 { get_chrin_keyhandler .proc ; source: library:/prog8lib/cx16/syslib.p8:940 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:961 inline asmsub disable_irqs() clobbers(A) { ; source: library:/prog8lib/cx16/syslib.p8:969 asmsub enable_irq_handlers(bool disable_all_irq_sources @Pc) clobbers(A,Y) { enable_irq_handlers .proc ; source: library:/prog8lib/cx16/syslib.p8:974 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1055 asmsub set_vsync_irq_handler(uword address @AY) clobbers(A) { set_vsync_irq_handler .proc ; source: library:/prog8lib/cx16/syslib.p8:1058 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1070 asmsub set_line_irq_handler(uword rasterline @R0, uword address @AY) clobbers(A,Y) { set_line_irq_handler .proc ; source: library:/prog8lib/cx16/syslib.p8:1074 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1089 asmsub set_sprcol_irq_handler(uword address @AY) clobbers(A) { set_sprcol_irq_handler .proc ; source: library:/prog8lib/cx16/syslib.p8:1092 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1104 asmsub set_aflow_irq_handler(uword address @AY) clobbers(A) { set_aflow_irq_handler .proc ; source: library:/prog8lib/cx16/syslib.p8:1107 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1120 inline asmsub disable_irq_handlers() { ; source: library:/prog8lib/cx16/syslib.p8:1159 asmsub cpu_is_65816() -> bool @A { cpu_is_65816 .proc ; source: library:/prog8lib/cx16/syslib.p8:1161 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1187 asmsub get_program_args(uword buffer @R0, ubyte buf_size @R1, bool binary @Pc) { get_program_args .proc ; source: library:/prog8lib/cx16/syslib.p8:1191 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1218 sys { target = $10 ; source: library:/prog8lib/cx16/syslib.p8:1221 const ubyte target = 16 ; compilation target specifier. 64 = C64, 128 = C128, 16 = CommanderX16. ; source: library:/prog8lib/cx16/syslib.p8:1218 sys { ; source: library:/prog8lib/cx16/syslib.p8:1223 asmsub init_system() { init_system .proc ; source: library:/prog8lib/cx16/syslib.p8:1226 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1269 asmsub init_system_phase2() { init_system_phase2 .proc ; source: library:/prog8lib/cx16/syslib.p8:1270 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1283 asmsub cleanup_at_exit() { cleanup_at_exit .proc ; source: library:/prog8lib/cx16/syslib.p8:1285 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1305 asmsub set_irq(uword handler @AY) clobbers(A) { set_irq .proc ; source: library:/prog8lib/cx16/syslib.p8:1307 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1339 asmsub restore_irq() clobbers(A) { restore_irq .proc ; source: library:/prog8lib/cx16/syslib.p8:1340 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1356 asmsub set_rasterirq(uword handler @AY, uword rasterpos @R0) clobbers(A) { set_rasterirq .proc ; source: library:/prog8lib/cx16/syslib.p8:1358 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1393 asmsub set_rasterline(uword line @AY) { set_rasterline .proc ; source: library:/prog8lib/cx16/syslib.p8:1394 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1412 asmsub reset_system() { reset_system .proc ; source: library:/prog8lib/cx16/syslib.p8:1415 %asm {{ sei ldx #$42 ldy #2 lda #0 jsr cx16.i2c_write_byte bra * .pend ; source: library:/prog8lib/cx16/syslib.p8:1435 asmsub wait(uword jiffies @AY) clobbers(X) { wait .proc ; source: library:/prog8lib/cx16/syslib.p8:1439 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1466 inline asmsub waitvsync() { ; source: library:/prog8lib/cx16/syslib.p8:1475 asmsub internal_stringcopy(uword source @R0, uword target @AY) clobbers (A,Y) { internal_stringcopy .proc ; source: library:/prog8lib/cx16/syslib.p8:1477 %asm {{ sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 lda cx16.r0 ldy cx16.r0+1 jmp prog8_lib.strcpy .pend ; source: library:/prog8lib/cx16/syslib.p8:1486 asmsub memcopy(uword source @R0, uword target @R1, uword count @AY) clobbers(A,X,Y) { memcopy .proc ; source: library:/prog8lib/cx16/syslib.p8:1492 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1531 asmsub memset(uword mem @R0, uword numbytes @R1, ubyte value @A) clobbers(A,X,Y) { memset .proc ; source: library:/prog8lib/cx16/syslib.p8:1532 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1543 asmsub memsetw(uword mem @R0, uword numwords @R1, uword value @AY) clobbers (A,X,Y) { memsetw .proc ; source: library:/prog8lib/cx16/syslib.p8:1544 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1557 inline asmsub read_flags() -> ubyte @A { ; source: library:/prog8lib/cx16/syslib.p8:1564 inline asmsub clear_carry() { ; source: library:/prog8lib/cx16/syslib.p8:1570 inline asmsub set_carry() { ; source: library:/prog8lib/cx16/syslib.p8:1576 inline asmsub clear_irqd() { ; source: library:/prog8lib/cx16/syslib.p8:1582 inline asmsub set_irqd() { ; source: library:/prog8lib/cx16/syslib.p8:1588 inline asmsub irqsafe_set_irqd() { ; source: library:/prog8lib/cx16/syslib.p8:1595 inline asmsub irqsafe_clear_irqd() { ; source: library:/prog8lib/cx16/syslib.p8:1601 inline asmsub disable_caseswitch() { ; source: library:/prog8lib/cx16/syslib.p8:1608 inline asmsub enable_caseswitch() { ; source: library:/prog8lib/cx16/syslib.p8:1615 asmsub save_prog8_internals() { save_prog8_internals .proc ; source: library:/prog8lib/cx16/syslib.p8:1616 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1637 asmsub restore_prog8_internals() { restore_prog8_internals .proc ; source: library:/prog8lib/cx16/syslib.p8:1638 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1655 asmsub exit(ubyte returnvalue @A) { exit .proc ; source: library:/prog8lib/cx16/syslib.p8:1657 %asm {{ sta cleanup_at_exit._exitcode ldx prog8_lib.orig_stackpointer txs jmp cleanup_at_exit .pend ; source: library:/prog8lib/cx16/syslib.p8:1665 asmsub exit2(ubyte resulta @A, ubyte resultx @X, ubyte resulty @Y) { exit2 .proc ; source: library:/prog8lib/cx16/syslib.p8:1667 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1677 asmsub exit3(ubyte resulta @A, ubyte resultx @X, ubyte resulty @Y, bool carry @Pc) { exit3 .proc ; source: library:/prog8lib/cx16/syslib.p8:1679 %asm {{ 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 ; source: library:/prog8lib/cx16/syslib.p8:1692 inline asmsub progend() -> uword @AY { ; source: library:/prog8lib/cx16/syslib.p8:1699 inline asmsub push(ubyte value @A) { ; source: library:/prog8lib/cx16/syslib.p8:1705 inline asmsub pushw(uword value @AY) { ; source: library:/prog8lib/cx16/syslib.p8:1712 inline asmsub pop() -> ubyte @A { ; source: library:/prog8lib/cx16/syslib.p8:1718 inline asmsub popw() -> uword @AY { .pend ; ---- block: 'conv' ---- conv .proc ; source: library:/prog8lib/conv.p8:3 conv { ; 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 ; source: library:/prog8lib/conv.p8:9 str @shared string_out = "????????????????" ; result buffer for the string conversion routines ; source: library:/prog8lib/conv.p8:5 %option no_symbol_prefixing, ignore_unused ; source: library:/prog8lib/conv.p8:11 asmsub str_ub0 (ubyte value @ A) clobbers(X) -> str @AY { str_ub0 .proc ; source: library:/prog8lib/conv.p8:13 %asm {{ jsr conv.ubyte2decimal sty string_out sta string_out+1 stx string_out+2 lda #0 sta string_out+3 lda #string_out rts .pend ; source: library:/prog8lib/conv.p8:26 asmsub str_ub (ubyte value @ A) clobbers(X) -> str @AY { str_ub .proc ; source: library:/prog8lib/conv.p8:28 %asm {{ 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 rts .pend ; source: library:/prog8lib/conv.p8:60 asmsub str_b (byte value @ A) clobbers(X) -> str @AY { str_b .proc ; source: library:/prog8lib/conv.p8:62 %asm {{ 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 ; source: library:/prog8lib/conv.p8:77 asmsub str_ubhex (ubyte value @ A) clobbers(X) -> str @AY { str_ubhex .proc ; source: library:/prog8lib/conv.p8:79 %asm {{ jsr conv.ubyte2hex sta string_out sty string_out+1 lda #0 sta string_out+2 lda #string_out rts .pend ; source: library:/prog8lib/conv.p8:91 asmsub str_ubbin (ubyte value @ A) clobbers(X) -> str @AY { str_ubbin .proc ; source: library:/prog8lib/conv.p8:93 %asm {{ 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 rts .pend ; source: library:/prog8lib/conv.p8:112 asmsub str_uwbin (uword value @ AY) clobbers(X) -> str @AY { str_uwbin .proc ; source: library:/prog8lib/conv.p8:114 %asm {{ 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 rts .pend ; source: library:/prog8lib/conv.p8:135 asmsub str_uwhex (uword value @ AY) -> str @AY { str_uwhex .proc ; source: library:/prog8lib/conv.p8:137 %asm {{ 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 rts .pend ; source: library:/prog8lib/conv.p8:155 asmsub str_uw0 (uword value @ AY) clobbers(X) -> str @AY { str_uw0 .proc ; source: library:/prog8lib/conv.p8:157 %asm {{ jsr conv.uword2decimal ldy #0 - lda conv.uword2decimal.decTenThousands,y sta string_out,y beq + iny bne - + lda #string_out rts .pend ; source: library:/prog8lib/conv.p8:172 asmsub str_uw (uword value @ AY) clobbers(X) -> str @AY { str_uw .proc ; source: library:/prog8lib/conv.p8:174 %asm {{ 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 rts _allzero lda #'0' sta string_out,x inx bne _end .pend ; source: library:/prog8lib/conv.p8:203 asmsub str_w (word value @ AY) clobbers(X) -> str @AY { str_w .proc ; source: library:/prog8lib/conv.p8:205 %asm {{ 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 ; source: library:/prog8lib/conv.p8:230 asmsub any2uword(str string @AY) clobbers(Y) -> ubyte @A { any2uword .proc ; source: library:/prog8lib/conv.p8:236 %asm {{ 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 ; source: library:/prog8lib/conv.p8:267 inline asmsub str2ubyte(str string @AY) clobbers(Y) -> ubyte @A { ; source: library:/prog8lib/conv.p8:277 inline asmsub str2byte(str string @AY) clobbers(Y) -> byte @A { ; source: library:/prog8lib/conv.p8:287 asmsub str2uword(str string @AY) -> uword @AY { str2uword .proc ; source: library:/prog8lib/conv.p8:292 %asm {{ _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 ; source: library:/prog8lib/conv.p8:346 asmsub str2word(str string @AY) -> word @AY { str2word .proc ; source: library:/prog8lib/conv.p8:351 %asm {{ _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 ; source: library:/prog8lib/conv.p8:405 asmsub hex2uword(str string @AY) -> uword @AY { hex2uword .proc ; source: library:/prog8lib/conv.p8:410 %asm {{ 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 ; source: library:/prog8lib/conv.p8:475 asmsub bin2uword(str string @AY) -> uword @AY { bin2uword .proc ; source: library:/prog8lib/conv.p8:479 %asm {{ 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 ; source: library:/prog8lib/conv.p8:515 asmsub ubyte2decimal (ubyte value @A) -> ubyte @Y, ubyte @A, ubyte @X { ubyte2decimal .proc ; source: library:/prog8lib/conv.p8:517 %asm {{ ldy #uword2decimal.ASCII_0_OFFSET jmp uword2decimal.hex_try200 .pend ; source: library:/prog8lib/conv.p8:523 asmsub uword2decimal (uword value @AY) -> ubyte @Y, ubyte @A, ubyte @X { uword2decimal .proc ; source: library:/prog8lib/conv.p8:529 %asm {{ ;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 ; source: library:/prog8lib/conv.p8:698 asmsub byte2decimal (byte value @A) -> ubyte @Y, ubyte @A, ubyte @X { byte2decimal .proc ; source: library:/prog8lib/conv.p8:701 %asm {{ cmp #0 bpl + eor #255 clc adc #1 + jmp ubyte2decimal .pend ; source: library:/prog8lib/conv.p8:711 asmsub ubyte2hex (ubyte value @A) clobbers(X) -> ubyte @A, ubyte @Y { ubyte2hex .proc ; source: library:/prog8lib/conv.p8:713 %asm {{ 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 ; source: library:/prog8lib/conv.p8:731 asmsub uword2hex (uword value @AY) clobbers(A,Y) { uword2hex .proc ; source: library:/prog8lib/conv.p8:733 %asm {{ 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: 'floats' ---- floats .proc ; source: library:/prog8lib/cx16/floats.p8:6 floats { AYINT_facmo = $c6 PI = 3.141592653589793 TWOPI = 6.283185307179586 π = 3.141592653589793 AYINT = $fe00 GIVAYF = $fe03 FOUT = $fe06 VAL_1 = $fe09 GETADR = $fe0c FLOATC = $fe0f FSUB = $fe12 FSUBT = $fe15 FADD = $fe18 FADDT = $fe1b FMULT = $fe1e FMULTT = $fe21 FDIV = $fe24 FDIVT = $fe27 LOG = $fe2a INT = $fe2d SQR = $fe30 NEGOP = $fe33 FPWR = $fe36 FPWRT = $fe39 EXP = $fe3c COS = $fe3f SIN = $fe42 TAN = $fe45 ATN = $fe48 ROUND = $fe4b ABS = $fe4e SIGN = $fe51 FCOMP = $fe54 RND_0 = $fe57 RND = $fe57 CONUPK = $fe5a ROMUPK = $fe5d MOVFRM = $fe60 MOVFM = $fe63 MOVMF = $fe66 MOVFA = $fe69 MOVAF = $fe6c FADDH = $fe6f ZEROFC = $fe72 NORMAL = $fe75 NEGFAC = $fe78 MUL10 = $fe7b DIV10 = $fe7e MOVEF = $fe81 SGN = $fe84 FLOAT = $fe87 FLOATS = $fe8a QINT = $fe8d FINLOG = $fe90 ; source: library:/prog8lib/cx16/floats.p8:9 const float π = 3.141592653589793 ; source: library:/prog8lib/cx16/floats.p8:10 const float PI = π ; source: library:/prog8lib/cx16/floats.p8:11 const float TWOPI = 2*π ; source: library:/prog8lib/cx16/floats.p8:176 &uword AYINT_facmo = $c6 ; $c6/$c7 contain result of AYINT ; source: library:/prog8lib/cx16/floats.p8:6 floats { ; source: library:/prog8lib/shared_floats_functions.p8:1 floats { ; source: library:/prog8lib/cx16/floats.p8:22 romsub $fe00 = AYINT() clobbers(A,X,Y) ; fac1-> signed word in 100-101 ($64-$65) MSB FIRST. (might throw ILLEGAL QUANTITY) ; source: library:/prog8lib/cx16/floats.p8:27 romsub $fe03 = GIVAYF(ubyte lo @ Y, ubyte hi @ A) clobbers(A,X,Y) ; source: library:/prog8lib/cx16/floats.p8:29 romsub $fe06 = FOUT() clobbers(X) -> uword @ AY ; fac1 -> string, address returned in AY ; source: library:/prog8lib/cx16/floats.p8:30 romsub $fe09 = VAL_1(uword string @XY, ubyte length @A) clobbers(A,X,Y) -> float @FAC1 ; convert ASCII string in XY and length in A, to floating point in FAC1. WARNING: only implemented in ROM 47+. Safer to use floats.parse() instead. ; source: library:/prog8lib/cx16/floats.p8:34 romsub $fe0c = GETADR() clobbers(X) -> ubyte @ Y, ubyte @ A ; source: library:/prog8lib/cx16/floats.p8:35 romsub $fe0f = FLOATC() clobbers(A,X,Y) ; convert address to floating point ; source: library:/prog8lib/cx16/floats.p8:37 romsub $fe12 = FSUB(uword mflpt @ AY) clobbers(A,X,Y) ; fac1 = mflpt from A/Y - fac1 ; source: library:/prog8lib/cx16/floats.p8:38 romsub $fe15 = FSUBT() clobbers(A,X,Y) ; fac1 = fac2-fac1 mind the order of the operands ; source: library:/prog8lib/cx16/floats.p8:39 romsub $fe18 = FADD(uword mflpt @ AY) clobbers(A,X,Y) ; fac1 += mflpt value from A/Y ; source: library:/prog8lib/cx16/floats.p8:40 romsub $fe1b = FADDT() clobbers(A,X,Y) ; fac1 += fac2 ; source: library:/prog8lib/cx16/floats.p8:41 romsub $fe1e = FMULT(uword mflpt @ AY) clobbers(A,X,Y) ; fac1 *= mflpt value from A/Y ; source: library:/prog8lib/cx16/floats.p8:42 romsub $fe21 = FMULTT() clobbers(A,X,Y) ; fac1 *= fac2 ; source: library:/prog8lib/cx16/floats.p8:43 romsub $fe24 = FDIV(uword mflpt @ AY) clobbers(A,X,Y) ; fac1 = mflpt in A/Y / fac1 ; source: library:/prog8lib/cx16/floats.p8:44 romsub $fe27 = FDIVT() clobbers(A,X,Y) ; fac1 = fac2/fac1 mind the order of the operands ; source: library:/prog8lib/cx16/floats.p8:45 romsub $fe2a = LOG() clobbers(A,X,Y) ; fac1 = LN(fac1) (natural log) ; source: library:/prog8lib/cx16/floats.p8:46 romsub $fe2d = INT() clobbers(A,X,Y) ; INT() truncates, use ROUND or FADDH first to round instead of trunc ; source: library:/prog8lib/cx16/floats.p8:47 romsub $fe30 = SQR() clobbers(A,X,Y) ; fac1 = SQRT(fac1) ; source: library:/prog8lib/cx16/floats.p8:48 romsub $fe33 = NEGOP() clobbers(A) ; switch the sign of fac1 (fac1 = -fac1) ; source: library:/prog8lib/cx16/floats.p8:49 romsub $fe36 = FPWR(uword mflpt @ AY) clobbers(A,X,Y) ; fac1 = fac2 ** float in A/Y ; source: library:/prog8lib/cx16/floats.p8:50 romsub $fe39 = FPWRT() clobbers(A,X,Y) ; fac1 = fac2 ** fac1 ; source: library:/prog8lib/cx16/floats.p8:51 romsub $fe3c = EXP() clobbers(A,X,Y) ; fac1 = EXP(fac1) (e ** fac1) ; source: library:/prog8lib/cx16/floats.p8:52 romsub $fe3f = COS() clobbers(A,X,Y) ; fac1 = COS(fac1) ; source: library:/prog8lib/cx16/floats.p8:53 romsub $fe42 = SIN() clobbers(A,X,Y) ; fac1 = SIN(fac1) ; source: library:/prog8lib/cx16/floats.p8:54 romsub $fe45 = TAN() clobbers(A,X,Y) ; fac1 = TAN(fac1) ; source: library:/prog8lib/cx16/floats.p8:55 romsub $fe48 = ATN() clobbers(A,X,Y) ; fac1 = ATN(fac1) ; source: library:/prog8lib/cx16/floats.p8:56 romsub $fe4b = ROUND() clobbers(A,X,Y) ; round fac1 ; source: library:/prog8lib/cx16/floats.p8:57 romsub $fe4e = ABS() clobbers(A,X,Y) ; fac1 = ABS(fac1) ; source: library:/prog8lib/cx16/floats.p8:58 romsub $fe51 = SIGN() clobbers(X,Y) -> ubyte @ A ; SIGN(fac1) to A, $ff, $0, $1 for negative, zero, positive ; source: library:/prog8lib/cx16/floats.p8:59 romsub $fe54 = FCOMP(uword mflpt @ AY) clobbers(X,Y) -> ubyte @ A ; A = compare fac1 to mflpt in A/Y, 0=equal 1=fac1 is greater, 255=fac1 is less than ; source: library:/prog8lib/cx16/floats.p8:60 romsub $fe57 = RND_0() clobbers(A,X,Y) ; fac1 = RND(fac1) float random number generator NOTE: incompatible with C64's RND routine ; source: library:/prog8lib/cx16/floats.p8:61 romsub $fe57 = RND() clobbers(A,X,Y) ; alias for RND_0 ; source: library:/prog8lib/cx16/floats.p8:62 romsub $fe5a = CONUPK(uword mflpt @ AY) clobbers(A,X,Y) ; load mflpt value from memory in A/Y into fac2 ; source: library:/prog8lib/cx16/floats.p8:63 romsub $fe5d = ROMUPK(uword mflpt @ AY) clobbers(A,X,Y) ; load mflpt value from memory in current bank in A/Y into fac2 ; source: library:/prog8lib/cx16/floats.p8:64 romsub $fe60 = MOVFRM(uword mflpt @ AY) clobbers(A,X,Y) ; load mflpt value from memory in A/Y into fac1 (use MOVFM instead) ; source: library:/prog8lib/cx16/floats.p8:65 romsub $fe63 = MOVFM(uword mflpt @ AY) clobbers(A,X,Y) ; load mflpt value from memory in A/Y into fac1 ; source: library:/prog8lib/cx16/floats.p8:66 romsub $fe66 = MOVMF(uword mflpt @ XY) clobbers(A,X,Y) ; store fac1 to memory X/Y as 5-byte mflpt ; source: library:/prog8lib/cx16/floats.p8:67 romsub $fe69 = MOVFA() clobbers(A,X) ; copy fac2 to fac1 ; source: library:/prog8lib/cx16/floats.p8:68 romsub $fe6c = MOVAF() clobbers(A,X) ; copy fac1 to fac2 (rounded) ; source: library:/prog8lib/cx16/floats.p8:71 romsub $fe6f = FADDH() clobbers(A,X,Y) ; fac1 += 0.5, for rounding- call this before INT ; source: library:/prog8lib/cx16/floats.p8:72 romsub $fe72 = ZEROFC() clobbers(A,X,Y) ; fac1 = 0 ; source: library:/prog8lib/cx16/floats.p8:73 romsub $fe75 = NORMAL() clobbers(A,X,Y) ; normalize fac1 ; source: library:/prog8lib/cx16/floats.p8:74 romsub $fe78 = NEGFAC() clobbers(A) ; switch the sign of fac1 (fac1 = -fac1) (doesn't work, juse use NEGOP() instead!) ; source: library:/prog8lib/cx16/floats.p8:75 romsub $fe7b = MUL10() clobbers(A,X,Y) ; fac1 *= 10 ; source: library:/prog8lib/cx16/floats.p8:76 romsub $fe7e = DIV10() clobbers(A,X,Y) ; fac1 /= 10 , CAUTION: result is always positive! Have to restore sign manually! ; source: library:/prog8lib/cx16/floats.p8:77 romsub $fe81 = MOVEF() clobbers(A,X) ; copy fac1 to fac2 ; source: library:/prog8lib/cx16/floats.p8:78 romsub $fe84 = SGN() clobbers(A,X,Y) ; fac1 = SGN(fac1), result of SIGN (-1, 0 or 1) ; source: library:/prog8lib/cx16/floats.p8:79 romsub $fe87 = FLOAT() clobbers(A,X,Y) ; FAC = (s8).A ; source: library:/prog8lib/cx16/floats.p8:80 romsub $fe8a = FLOATS() clobbers(A,X,Y) ; FAC = (s16)facho+1:facho ; source: library:/prog8lib/cx16/floats.p8:81 romsub $fe8d = QINT() clobbers(A,X,Y) ; facho:facho+1:facho+2:facho+3 = u32(FAC) ; source: library:/prog8lib/cx16/floats.p8:82 romsub $fe90 = FINLOG(byte value @A) clobbers (A, X, Y) ; fac1 += signed byte in A ; source: library:/prog8lib/cx16/floats.p8:86 asmsub FREADSA (byte value @A) clobbers(A,X,Y) { FREADSA .proc ; source: library:/prog8lib/cx16/floats.p8:88 %asm {{ tay bpl + lda #$ff jmp GIVAYF + lda #0 jmp GIVAYF .pend ; source: library:/prog8lib/cx16/floats.p8:98 asmsub GIVUAYFAY (uword value @ AY) clobbers(A,X,Y) { GIVUAYFAY .proc ; source: library:/prog8lib/cx16/floats.p8:100 %asm {{ sty $c4 ; facmo ($64 on c128) sta $c5 ; facmo+1 ($65 on c128) ldx #$90 sec jmp FLOATC .pend ; source: library:/prog8lib/cx16/floats.p8:109 asmsub GIVAYFAY (uword value @ AY) clobbers(A,X,Y) { GIVAYFAY .proc ; source: library:/prog8lib/cx16/floats.p8:111 %asm {{ sta P8ZP_SCRATCH_B1 tya ldy P8ZP_SCRATCH_B1 jmp GIVAYF ; this uses the inverse order, Y/A .pend ; source: library:/prog8lib/cx16/floats.p8:119 asmsub GETADRAY () clobbers(X) -> uword @ AY { GETADRAY .proc ; source: library:/prog8lib/cx16/floats.p8:121 %asm {{ jsr GETADR ; this uses the inverse order, Y/A sta P8ZP_SCRATCH_B1 tya ldy P8ZP_SCRATCH_B1 rts .pend ; source: library:/prog8lib/cx16/floats.p8:130 asmsub FREADUY (ubyte value @Y) { FREADUY .proc ; source: library:/prog8lib/cx16/floats.p8:132 %asm {{ lda #0 jmp GIVAYF .pend ; source: library:/prog8lib/cx16/floats.p8:138 asmsub parse(str value @AY) -> float @FAC1 { parse .proc ; source: library:/prog8lib/cx16/floats.p8:143 %asm {{ ldx VAL_1 cpx #$4c ; is there an implementation in VAL_1? (test for JMP) bne + ; no, do it ourselves pha ; yes, count the length and call rom VAL_1. phy jsr prog8_lib.strlen tya ply plx jmp VAL_1 + sta $a9 ; 'index' variable sty $aa jsr prog8_lib.strlen lda $deb6 cmp #$d0 ; sanity check for kernal routine correct bne + tya jmp $deb6 ; kernal version dependent... + ; print error message if routine is borked in kernal, and exit program ldy #0 - lda _msg,y beq + jsr cbm.CHROUT iny bne - + jmp sys.exit _msg .text 13,"?val kaputt",13,0 .pend ; source: library:/prog8lib/cx16/floats.p8:185 asmsub normalize(float value @FAC1) -> float @ FAC1 { normalize .proc ; source: library:/prog8lib/cx16/floats.p8:186 %asm {{ jmp floats.NORMAL .pend ; source: library:/prog8lib/cx16/floats.p8:191 %asminclude "library:c64/floats.asm" ; --- low level floating point assembly routines for the C64 FL_ONE_const .byte 129 ; 1.0 FL_ZERO_const .byte 0,0,0,0,0 ; 0.0 FL_LOG2_const .byte $80, $31, $72, $17, $f8 ; log(2) floats_temp_var .byte 0,0,0,0,0 ; temporary storage for a float ub2float .proc ; -- convert ubyte in SCRATCH_ZPB1 to float at address A/Y ; clobbers A, X, Y sta P8ZP_SCRATCH_W2 sty P8ZP_SCRATCH_W2+1 ldy P8ZP_SCRATCH_B1 lda #0 jsr GIVAYF _fac_to_mem ldx P8ZP_SCRATCH_W2 ldy P8ZP_SCRATCH_W2+1 jmp MOVMF .pend b2float .proc ; -- convert byte in SCRATCH_ZPB1 to float at address A/Y ; clobbers A, X, Y sta P8ZP_SCRATCH_W2 sty P8ZP_SCRATCH_W2+1 lda P8ZP_SCRATCH_B1 jsr FREADSA jmp ub2float._fac_to_mem .pend uw2float .proc ; -- convert uword in SCRATCH_ZPWORD1 to float at address A/Y ; clobbers X sta P8ZP_SCRATCH_W2 sty P8ZP_SCRATCH_W2+1 lda P8ZP_SCRATCH_W1 ldy P8ZP_SCRATCH_W1+1 jsr GIVUAYFAY jmp ub2float._fac_to_mem .pend w2float .proc ; -- convert word in SCRATCH_ZPWORD1 to float at address A/Y ; clobbers X sta P8ZP_SCRATCH_W2 sty P8ZP_SCRATCH_W2+1 ldy P8ZP_SCRATCH_W1 lda P8ZP_SCRATCH_W1+1 jsr GIVAYF jmp ub2float._fac_to_mem .pend cast_from_uw .proc ; -- uword in A/Y into float var at (P8ZP_SCRATCH_W2) ; clobbers X jsr GIVUAYFAY jmp ub2float._fac_to_mem .pend cast_from_w .proc ; -- word in A/Y into float var at (P8ZP_SCRATCH_W2) ; clobbers X jsr GIVAYFAY jmp ub2float._fac_to_mem .pend cast_from_ub .proc ; -- ubyte in Y into float var at (P8ZP_SCRATCH_W2) ; clobbers X jsr FREADUY jmp ub2float._fac_to_mem .pend cast_from_b .proc ; -- byte in A into float var at (P8ZP_SCRATCH_W2) ; clobbers X jsr FREADSA jmp ub2float._fac_to_mem .pend cast_as_uw_into_ya .proc ; also used for float 2 ub ; -- cast float at A/Y to uword into Y/A ; clobbers X jsr MOVFM jmp cast_FAC1_as_uw_into_ya .pend cast_as_w_into_ay .proc ; also used for float 2 b ; -- cast float at A/Y to word into A/Y ; clobbers X jsr MOVFM jmp cast_FAC1_as_w_into_ay .pend cast_as_bool_into_a .proc ; -- cast float at A/Y to bool into A ; clobbers X jsr MOVFM jmp cast_FAC1_as_bool_into_a .pend cast_FAC1_as_bool_into_a .proc ; -- cast fac1 to bool into A ; clobbers X jsr SIGN and #1 rts .pend cast_FAC1_as_uw_into_ya .proc ; also used for float 2 ub ; -- cast fac1 to uword into Y/A ; clobbers X jmp GETADR ; into Y/A .pend cast_FAC1_as_w_into_ay .proc ; also used for float 2 b ; -- cast fac1 to word into A/Y ; clobbers X jsr AYINT ldy floats.AYINT_facmo lda floats.AYINT_facmo+1 rts .pend copy_float .proc ; -- copies the 5 bytes of the mflt value pointed to by P8ZP_SCRATCH_W1, ; into the 5 bytes pointed to by A/Y. Clobbers A,Y. sta P8ZP_SCRATCH_W2 sty P8ZP_SCRATCH_W2+1 ldy #0 lda (P8ZP_SCRATCH_W1),y sta (P8ZP_SCRATCH_W2),y iny lda (P8ZP_SCRATCH_W1),y sta (P8ZP_SCRATCH_W2),y iny lda (P8ZP_SCRATCH_W1),y sta (P8ZP_SCRATCH_W2),y iny lda (P8ZP_SCRATCH_W1),y sta (P8ZP_SCRATCH_W2),y iny lda (P8ZP_SCRATCH_W1),y sta (P8ZP_SCRATCH_W2),y rts .pend inc_var_f .proc ; -- add 1 to float pointed to by A/Y ; clobbers X sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 jsr MOVFM lda #FL_ONE_const jsr FADD ldx P8ZP_SCRATCH_W1 ldy P8ZP_SCRATCH_W1+1 jmp MOVMF .pend dec_var_f .proc ; -- subtract 1 from float pointed to by A/Y ; clobbers X sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 lda #FL_ONE_const jsr MOVFM lda P8ZP_SCRATCH_W1 ldy P8ZP_SCRATCH_W1+1 jsr FSUB ldx P8ZP_SCRATCH_W1 ldy P8ZP_SCRATCH_W1+1 jmp MOVMF .pend fmath_float1 .byte 0,0,0,0,0 ; storage for a mflpt5 value fmath_float2 .byte 0,0,0,0,0 ; storage for a mflpt5 value var_fac1_less_f .proc ; -- is the float in FAC1 < the variable AY? Result in A. Clobbers X. jsr FCOMP cmp #255 beq + lda #0 rts + lda #1 rts .pend var_fac1_lesseq_f .proc ; -- is the float in FAC1 <= the variable AY? Result in A. Clobbers X. jsr FCOMP cmp #0 beq + cmp #255 beq + lda #0 rts + lda #1 rts .pend var_fac1_greater_f .proc ; -- is the float in FAC1 > the variable AY? Result in A. Clobbers X. jsr FCOMP cmp #1 beq + lda #0 rts + lda #1 rts .pend var_fac1_greatereq_f .proc ; -- is the float in FAC1 >= the variable AY? Result in A. Clobbers X. jsr FCOMP cmp #0 beq + cmp #1 beq + lda #0 rts + lda #1 rts .pend var_fac1_equal_f .proc ; -- are the floats numbers in FAC1 and the variable AY identical? Result in A. Clobbers X. jsr FCOMP and #1 eor #1 rts .pend var_fac1_notequal_f .proc ; -- are the floats numbers in FAC1 and the variable AY *not* identical? Result in A. Clobbers X. jsr FCOMP and #1 rts .pend vars_equal_f .proc ; -- are the mflpt5 numbers in P8ZP_SCRATCH_W1 and AY identical? Result in A sta P8ZP_SCRATCH_W2 sty P8ZP_SCRATCH_W2+1 ldy #0 lda (P8ZP_SCRATCH_W1),y cmp (P8ZP_SCRATCH_W2),y bne _false iny lda (P8ZP_SCRATCH_W1),y cmp (P8ZP_SCRATCH_W2),y bne _false iny lda (P8ZP_SCRATCH_W1),y cmp (P8ZP_SCRATCH_W2),y bne _false iny lda (P8ZP_SCRATCH_W1),y cmp (P8ZP_SCRATCH_W2),y bne _false iny lda (P8ZP_SCRATCH_W1),y cmp (P8ZP_SCRATCH_W2),y bne _false lda #1 rts _false lda #0 rts .pend vars_less_f .proc ; -- is float in AY < float in P8ZP_SCRATCH_W2 ? Result in A. Clobbers X. jsr MOVFM lda P8ZP_SCRATCH_W2 ldy P8ZP_SCRATCH_W2+1 jsr FCOMP cmp #255 bne + lda #1 rts + lda #0 rts .pend vars_lesseq_f .proc ; -- is float in AY <= float in P8ZP_SCRATCH_W2 ? Result in A. Clobbers X. jsr MOVFM lda P8ZP_SCRATCH_W2 ldy P8ZP_SCRATCH_W2+1 jsr FCOMP cmp #255 bne + - lda #1 rts + cmp #0 beq - lda #0 rts .pend less_f .proc ; -- is f1 < f2? Result in A. Clobbers X. jsr compare_floats cmp #255 beq compare_floats._return_true bne compare_floats._return_false .pend lesseq_f .proc ; -- is f1 <= f2? Result in A. Clobbers X. jsr compare_floats cmp #255 beq compare_floats._return_true cmp #0 beq compare_floats._return_true bne compare_floats._return_false .pend greater_f .proc ; -- is f1 > f2? Result in A. Clobbers X. jsr compare_floats cmp #1 beq compare_floats._return_true bne compare_floats._return_false .pend greatereq_f .proc ; -- is f1 >= f2? Result in A. Clobbers X. jsr compare_floats cmp #1 beq compare_floats._return_true cmp #0 beq compare_floats._return_true bne compare_floats._return_false .pend set_array_float_from_fac1 .proc ; -- set the float in FAC1 in the array (index in A, array in P8ZP_SCRATCH_W1) ; clobbers X sta P8ZP_SCRATCH_B1 asl a asl a clc adc P8ZP_SCRATCH_B1 ldy P8ZP_SCRATCH_W1+1 clc adc P8ZP_SCRATCH_W1 bcc + iny + tax jmp MOVMF .pend set_0_array_float .proc ; -- set a float in an array to zero (index in A, array in P8ZP_SCRATCH_W1) sta P8ZP_SCRATCH_B1 asl a asl a clc adc P8ZP_SCRATCH_B1 tay lda #0 sta (P8ZP_SCRATCH_W1),y iny sta (P8ZP_SCRATCH_W1),y iny sta (P8ZP_SCRATCH_W1),y iny sta (P8ZP_SCRATCH_W1),y iny sta (P8ZP_SCRATCH_W1),y rts .pend set_array_float .proc ; -- set a float in an array to a value (index in A, float in P8ZP_SCRATCH_W1, array in P8ZP_SCRATCH_W2) sta P8ZP_SCRATCH_B1 asl a asl a clc adc P8ZP_SCRATCH_B1 adc P8ZP_SCRATCH_W2 ldy P8ZP_SCRATCH_W2+1 bcc + iny + jmp copy_float ; -- copies the 5 bytes of the mflt value pointed to by SCRATCH_ZPWORD1, ; into the 5 bytes pointed to by A/Y. Clobbers A,Y. .pend pushFAC1 .proc ;-- push floating point in FAC onto the cpu stack ; save return address pla sta P8ZP_SCRATCH_W2 pla sta P8ZP_SCRATCH_W2+1 ldx #floats.floats_temp_var jsr floats.MOVMF lda floats.floats_temp_var pha lda floats.floats_temp_var+1 pha lda floats.floats_temp_var+2 pha lda floats.floats_temp_var+3 pha lda floats.floats_temp_var+4 pha ; re-push return address lda P8ZP_SCRATCH_W2+1 pha lda P8ZP_SCRATCH_W2 pha rts .pend popFAC .proc ; -- pop floating point value from cpu stack into FAC1 or FAC2 ( ; carry flag clear=FAC1, carry set=FAC2 ; save return address pla sta P8ZP_SCRATCH_W2 pla sta P8ZP_SCRATCH_W2+1 pla sta floats.floats_temp_var+4 pla sta floats.floats_temp_var+3 pla sta floats.floats_temp_var+2 pla sta floats.floats_temp_var+1 pla sta floats.floats_temp_var lda #floats.floats_temp_var bcs + jsr floats.MOVFM jmp ++ + jsr floats.CONUPK + ; re-push return address lda P8ZP_SCRATCH_W2+1 pha lda P8ZP_SCRATCH_W2 pha rts .pend ; source: library:/prog8lib/cx16/floats.p8:192 %asminclude "library:c64/floats_funcs.asm" ; --- floating point builtin functions func_sign_f_into_A .proc jsr MOVFM jmp SIGN .pend func_swap_f .proc ; -- swap floats pointed to by SCRATCH_ZPWORD1, SCRATCH_ZPWORD2 ldy #4 - lda (P8ZP_SCRATCH_W1),y pha lda (P8ZP_SCRATCH_W2),y sta (P8ZP_SCRATCH_W1),y pla sta (P8ZP_SCRATCH_W2),y dey bpl - rts .pend func_reverse_f .proc ; --- reverse an array of floats (array in P8ZP_SCRATCH_W1, num elements in A) _left_index = P8ZP_SCRATCH_W2 _right_index = P8ZP_SCRATCH_W2+1 _loop_count = P8ZP_SCRATCH_REG pha jsr a_times_5 sec sbc #5 sta _right_index lda #0 sta _left_index pla lsr a sta _loop_count _loop ; push the left indexed float on the stack ldy _left_index lda (P8ZP_SCRATCH_W1),y pha iny lda (P8ZP_SCRATCH_W1),y pha iny lda (P8ZP_SCRATCH_W1),y pha iny lda (P8ZP_SCRATCH_W1),y pha iny lda (P8ZP_SCRATCH_W1),y pha ; copy right index float to left index float ldy _right_index lda (P8ZP_SCRATCH_W1),y ldy _left_index sta (P8ZP_SCRATCH_W1),y inc _left_index inc _right_index ldy _right_index lda (P8ZP_SCRATCH_W1),y ldy _left_index sta (P8ZP_SCRATCH_W1),y inc _left_index inc _right_index ldy _right_index lda (P8ZP_SCRATCH_W1),y ldy _left_index sta (P8ZP_SCRATCH_W1),y inc _left_index inc _right_index ldy _right_index lda (P8ZP_SCRATCH_W1),y ldy _left_index sta (P8ZP_SCRATCH_W1),y inc _left_index inc _right_index ldy _right_index lda (P8ZP_SCRATCH_W1),y ldy _left_index sta (P8ZP_SCRATCH_W1),y ; pop the float off the stack into the right index float ldy _right_index pla sta (P8ZP_SCRATCH_W1),y dey pla sta (P8ZP_SCRATCH_W1),y dey pla sta (P8ZP_SCRATCH_W1),y dey pla sta (P8ZP_SCRATCH_W1),y dey pla sta (P8ZP_SCRATCH_W1),y inc _left_index lda _right_index sec sbc #9 sta _right_index dec _loop_count bne _loop rts .pend a_times_5 .proc sta P8ZP_SCRATCH_B1 asl a asl a clc adc P8ZP_SCRATCH_B1 rts .pend func_any_f_into_A .proc jsr a_times_5 jmp prog8_lib.func_any_b_into_A .pend func_all_f_into_A .proc jsr a_times_5 jmp prog8_lib.func_all_b_into_A .pend func_any_f_stack .proc jsr a_times_5 jmp prog8_lib.func_any_b_stack .pend func_all_f_stack .proc jsr a_times_5 jmp prog8_lib.func_all_b_stack .pend func_abs_f_into_FAC1 .proc jsr MOVFM jmp ABS .pend func_sqrt_into_FAC1 .proc jsr MOVFM jmp SQR .pend containment_floatarray .proc ; -- check if a value exists in a float array. ; parameters: FAC1: value to check, P8ZP_SCRATCH_W1: address of the word array, Y = length of array (>=1). ; returns boolean 0/1 in A. sty P8ZP_SCRATCH_REG ldx #floats.floats_temp_var jsr floats.MOVMF ldx P8ZP_SCRATCH_REG ldy #0 - lda floats.floats_temp_var cmp (P8ZP_SCRATCH_W1),y bne _firstmiss iny lda floats.floats_temp_var+1 cmp (P8ZP_SCRATCH_W1),y bne _secondmiss iny lda floats.floats_temp_var+2 cmp (P8ZP_SCRATCH_W1),y bne _thirdmiss iny lda floats.floats_temp_var+3 cmp (P8ZP_SCRATCH_W1),y bne _fourthmiss iny lda floats.floats_temp_var+4 cmp (P8ZP_SCRATCH_W1),y bne _fifthmiss lda #1 rts _firstmiss iny _secondmiss iny _thirdmiss iny _fourthmiss iny _fifthmiss iny dex bne - lda #0 rts .pend ; source: library:/prog8lib/shared_floats_functions.p8:5 asmsub print(float value @FAC1) clobbers(A,X,Y) { print .proc ; source: library:/prog8lib/shared_floats_functions.p8:7 %asm {{ jsr tostr ldy #0 - lda (P8ZP_SCRATCH_W1),y beq + jsr cbm.CHROUT iny bne - + rts .pend ; source: library:/prog8lib/shared_floats_functions.p8:19 asmsub tostr(float value @FAC1) clobbers(X) -> str @AY { tostr .proc ; source: library:/prog8lib/shared_floats_functions.p8:21 %asm {{ jsr FOUT sta P8ZP_SCRATCH_W1 sty P8ZP_SCRATCH_W1+1 ldy #0 lda (P8ZP_SCRATCH_W1),y cmp #' ' bne + inc P8ZP_SCRATCH_W1 bne + inc P8ZP_SCRATCH_W1+1 + lda P8ZP_SCRATCH_W1 ldy P8ZP_SCRATCH_W1+1 rts .pend ; source: library:/prog8lib/shared_floats_functions.p8:54 sub sin(float angle) -> float { sin .proc ; statements ; source: library:/prog8lib/shared_floats_functions.p8:55 %asm {{ lda #angle jsr MOVFM jmp SIN ; variables .section BSS .send BSS ; non-zeropage variables without initialization value .section BSS angle .fill 5 .send BSS .pend ; source: library:/prog8lib/shared_floats_functions.p8:114 sub rad(float angle) -> float { rad .proc ; statements ; source: library:/prog8lib/shared_floats_functions.p8:116 %asm {{ lda #angle jsr MOVFM lda #<_pi_div_180 ldy #>_pi_div_180 jmp FMULT _pi_div_180 .byte 123, 14, 250, 53, 18 ; pi / 180 ; variables .section BSS .send BSS ; non-zeropage variables without initialization value .section BSS angle .fill 5 .send BSS .pend ; source: library:/prog8lib/shared_floats_functions.p8:218 inline asmsub push(float value @FAC1) { ; source: library:/prog8lib/shared_floats_functions.p8:224 inline asmsub pop() -> float @FAC1 { .pend ; ---- block: 'test_stack' ---- test_stack .proc ; source: library:/prog8lib/test_stack.p8:5 test_stack { ; source: library:/prog8lib/test_stack.p8:6 %option no_symbol_prefixing, ignore_unused ; source: library:/prog8lib/test_stack.p8:8 asmsub test() { test .proc ; source: library:/prog8lib/test_stack.p8:9 %asm {{ 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 ; source: library:/prog8lib/math.p8:5 math { ; source: library:/prog8lib/math.p8:6 %option no_symbol_prefixing, ignore_unused ; source: library:/prog8lib/math.p8:8 %asminclude "library:math.asm" ; 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 ; source: library:/prog8lib/math.p8:10 asmsub sin8u(ubyte angle @A) clobbers(Y) -> ubyte @A { sin8u .proc ; source: library:/prog8lib/math.p8:11 %asm {{ tay lda _sinecos8u,y rts _sinecos8u .byte trunc(128.0 + 127.5 * sin(range(256+64) * rad(360.0/256.0))) .pend ; source: library:/prog8lib/math.p8:19 asmsub cos8u(ubyte angle @A) clobbers(Y) -> ubyte @A { cos8u .proc ; source: library:/prog8lib/math.p8:20 %asm {{ tay lda sin8u._sinecos8u+64,y rts .pend ; source: library:/prog8lib/math.p8:27 asmsub sin8(ubyte angle @A) clobbers(Y) -> byte @A { sin8 .proc ; source: library:/prog8lib/math.p8:28 %asm {{ tay lda _sinecos8,y rts _sinecos8 .char trunc(127.0 * sin(range(256+64) * rad(360.0/256.0))) .pend ; source: library:/prog8lib/math.p8:36 asmsub cos8(ubyte angle @A) clobbers(Y) -> byte @A { cos8 .proc ; source: library:/prog8lib/math.p8:37 %asm {{ tay lda sin8._sinecos8+64,y rts .pend ; source: library:/prog8lib/math.p8:44 asmsub sinr8u(ubyte radians @A) clobbers(Y) -> ubyte @A { sinr8u .proc ; source: library:/prog8lib/math.p8:45 %asm {{ tay lda _sinecosR8u,y rts _sinecosR8u .byte trunc(128.0 + 127.5 * sin(range(180+45) * rad(360.0/180.0))) .pend ; source: library:/prog8lib/math.p8:53 asmsub cosr8u(ubyte radians @A) clobbers(Y) -> ubyte @A { cosr8u .proc ; source: library:/prog8lib/math.p8:54 %asm {{ tay lda sinr8u._sinecosR8u+45,y rts .pend ; source: library:/prog8lib/math.p8:61 asmsub sinr8(ubyte radians @A) clobbers(Y) -> byte @A { sinr8 .proc ; source: library:/prog8lib/math.p8:62 %asm {{ tay lda _sinecosR8,y rts _sinecosR8 .char trunc(127.0 * sin(range(180+45) * rad(360.0/180.0))) .pend ; source: library:/prog8lib/math.p8:70 asmsub cosr8(ubyte radians @A) clobbers(Y) -> byte @A { cosr8 .proc ; source: library:/prog8lib/math.p8:71 %asm {{ tay lda sinr8._sinecosR8+45,y rts .pend ; source: library:/prog8lib/math.p8:78 asmsub rnd() clobbers(Y) -> ubyte @A { rnd .proc ; source: library:/prog8lib/math.p8:79 %asm {{ jmp math.randbyte .pend ; source: library:/prog8lib/math.p8:84 asmsub rndw() -> uword @AY { rndw .proc ; source: library:/prog8lib/math.p8:85 %asm {{ jmp math.randword .pend ; source: library:/prog8lib/math.p8:108 asmsub rndseed(uword seed1 @AY, uword seed2 @R0) clobbers(A,Y) { rndseed .proc ; source: library:/prog8lib/math.p8:110 %asm {{ sta math.randword.x1 sty math.randword.c1 lda cx16.r0L sta math.randword.a1 lda cx16.r0H sta math.randword.b1 rts .pend ; source: library:/prog8lib/math.p8:121 asmsub log2(ubyte value @A) -> ubyte @Y { log2 .proc ; source: library:/prog8lib/math.p8:122 %asm {{ sta P8ZP_SCRATCH_B1 lda #$80 ldy #7 - bit P8ZP_SCRATCH_B1 beq + rts + dey bne + rts + lsr a bne - .pend ; source: library:/prog8lib/math.p8:137 asmsub log2w(uword value @AY) -> ubyte @Y { log2w .proc ; source: library:/prog8lib/math.p8:138 %asm {{ 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 ; source: library:/prog8lib/math.p8:163 asmsub mul16_last_upper() -> uword @AY { mul16_last_upper .proc ; source: library:/prog8lib/math.p8:171 %asm {{ lda multiply_words.result+2 ldy multiply_words.result+3 rts .pend ; source: library:/prog8lib/math.p8:212 asmsub direction_qd(ubyte quadrant @A, ubyte xdelta @X, ubyte ydelta @Y) -> ubyte @A { direction_qd .proc ; source: library:/prog8lib/math.p8:220 %asm {{ 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 ; source: library:/prog8lib/math.p8:335 asmsub atan2(ubyte x1 @R0, ubyte y1 @R1, ubyte x2 @R2, ubyte y2 @R3) -> ubyte @A { atan2 .proc ; source: library:/prog8lib/math.p8:341 %asm {{ 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 ; source: library:/prog8lib/math.p8:468 asmsub diff(ubyte v1 @A, ubyte v2 @Y) -> ubyte @A { diff .proc ; source: library:/prog8lib/math.p8:470 %asm {{ sty P8ZP_SCRATCH_REG sec sbc P8ZP_SCRATCH_REG bcs + eor #255 inc a + rts .pend ; source: library:/prog8lib/math.p8:481 asmsub diffw(uword w1 @R0, uword w2 @AY) -> uword @AY { diffw .proc ; source: library:/prog8lib/math.p8:483 %asm {{ 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 ; source: library:/prog8lib/prog8_lib.p8:3 prog8_lib { ; source: library:/prog8lib/prog8_lib.p8:4 %option no_symbol_prefixing, ignore_unused ; source: library:/prog8lib/prog8_lib.p8:6 %asminclude "library:prog8_lib.asm" ; 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 ; source: library:/prog8lib/prog8_lib.p8:7 %asminclude "library:prog8_funcs.asm" ; ---- 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()