The engine compiles New Hampshire's rules into a law image and runs it as bytecode. Rule ids in the listing link back to the rules above.
- Listing from
- the engine's disassembler, tdis, when the site was built
- Compiled by
- tendc 1.3.0, image format 1.3
- Contents
- 62 rules, 8 sources, 27 proofs, 7 ints, 345 strings
- Compiled from these rules
- Yes. The image names the same SHA-256 as the verified rules above.
- Compiled from the current law IR
- Yes. The image carries the SHA-256 of the IR shown on this page.
- Image SHA-256
14d72685ef29693ead46a65c1a6b4537d63fe47309329d9122c1105e0394daea
Jump to: rule table, per-cost program, totals program, or download the listing.
.rules
R0 NH-EXAM-1 exam_no_bill - RSA 21-M:8-c
R1 NH-EXAM-2 exam_no_bill - RSA 21-M:8-c
R2 NH-EXAM-3 exam_no_bill - N.H. Admin. Rules Jus 605.13(c)(2)
R3 NH-EXAM-4 exam_payment - N.H. Admin. Rules Jus 605.13(c)(1)
R4 NH-EXAM-5 exam_payment - RSA 21-M:8-c
R5 NH-EXAM-6 exam_payment - N.H. Admin. Rules Jus 605.13(d)
R6 NH-EXAM-7 exam_no_bill - N.H. Admin. Rules Jus 605.13(a)
R7 NH-EXAM-8 exam_payment - N.H. Admin. Rules Jus 605.13(c)(3)
R8 NH-EXAM-9 exam_payment - N.H. Admin. Rules Jus 605.13(a)
R9 NH-CAP-1 total_cap - RSA 21-M:8-h, V
R10 NH-CAP-2 expense_cap counseling per claim N.H. Admin. Rules Jus 605.04(e)(2)
R11 NH-CAP-3 expense_cap counseling per session N.H. Admin. Rules Jus 604.08(c)(3)
R12 NH-CAP-4 expense_cap relocation per claim N.H. Admin. Rules Jus 605.07(e)(3)
R13 NH-CAP-5 expense_cap security per claim N.H. Admin. Rules Jus 605.10(c)(5)
R14 NH-CAP-6 expense_cap transportation per claim N.H. Admin. Rules Jus 605.11(a)
R15 NH-COV-1 covered medical N.H. Admin. Rules Jus 605.03(d)(1)
R16 NH-COV-2 covered dental NH DOJ Victims' Compensation Program page, What Costs May Be Paid?
R17 NH-COV-3 covered prescription N.H. Admin. Rules Jus 605.03(d)(2)
R18 NH-COV-4 covered counseling N.H. Admin. Rules Jus 605.04(d)(1)
R19 NH-COV-5 covered lost_wages N.H. Admin. Rules Jus 605.05(e)(3)
R20 NH-COV-6 covered lost_wages N.H. Admin. Rules Jus 605.05(d)
R21 NH-COV-7 covered relocation N.H. Admin. Rules Jus 605.07(a)(2)b.
R22 NH-COV-8 covered security N.H. Admin. Rules Jus 605.10(c)(1)-(3)
R23 NH-COV-9 covered transportation N.H. Admin. Rules Jus 605.03(d)(5)
R24 NH-COV-10 covered temporary_housing N.H. Admin. Rules Jus 605.09(d)(3)
R25 NH-COV-11 covered relocation N.H. Admin. Rules Jus 605.07(d)(8)
R26 NH-COV-12 covered prescription N.H. Admin. Rules Jus 605.13(f)
R27 NH-COV-13 covered medical N.H. Admin. Rules Jus 605.03(d)(4)
R28 NH-EXC-1 excluded - NH DOJ Victims' Compensation Program page, What Costs May Be Paid?
R29 NH-EXC-2 excluded - N.H. Admin. Rules Jus 605.07(e)(5)
R30 NH-EXC-3 info - excluded_expense N.H. Admin. Rules Jus 605.03(e)(2)
R31 NH-DEAD-1 deadline - from crime RSA 21-M:8-h, II
R32 NH-REP-1 reporting - N.H. Admin. Rules Jus 605.02(c)
R33 NH-REP-2 reporting - N.H. Admin. Rules Jus 605.13(h)
R34 NH-MIN-1 minimum_loss - RSA 21-M:8-h, V
R35 NH-COL-1 collateral - N.H. Admin. Rules Jus 603.01
R36 NH-COL-2 collateral - RSA 21-M:8-h, V
R37 NH-CON-1 info - conduct_reduction RSA 21-M:8-h, IV
R38 NH-CON-2 info - conduct_reduction RSA 21-M:8-h, IV
R39 NH-EMG-1 info - emergency_award N.H. Admin. Rules Jus 605.09(a)
R40 NH-EMG-2 info - emergency_award N.H. Admin. Rules Jus 605.09(e)(2)
R41 NH-ELIG-1 info - eligible_crime RSA 21-M:8-h, I(a)(1)
R42 NH-ELIG-2 info - eligible_crime N.H. Admin. Rules Jus 602.23
R43 NH-ELIG-3 info - eligible_crime RSA 21-M:8-h, I(a)(3)
R44 NH-RES-1 info - residency N.H. Admin. Rules Jus 602.32(a)
R45 NH-RES-2 info - residency RSA 21-M:8-h, I(c)
R46 NH-SUBMIT-1 info - submission Application, page 7 (return address)
R47 NH-SUBMIT-2 info - submission Program page, How To Contact Our Office
R48 NH-DOC-1 info - required_document Application, Section 6 (Medical/Counseling Information)
R49 NH-DOC-2 info - required_document Jus 604.02(b)(3)
R50 NH-DOC-3 info - required_document Jus 604.06(a)
R51 NH-DOC-4 info - required_document Application, Section 8 (Employment Information)
R52 NH-DOC-5 info - required_document Application, Section 8 (Employment Information)
R53 NH-DOC-6 info - required_document Application, Section 8 (Employment Information)
R54 NH-DOC-7 info - required_document Jus 605.05(b)(5)
R55 NH-DOC-8 info - required_document Application, Section 9 (Restitution and Civil Action)
R56 NH-DOC-9 info - required_document Application, Section 12 (Statement of Facts and Authorization)
R57 NH-DOC-10 info - required_document Application, Section 12 (Statement of Facts and Authorization)
R58 NH-PROC-1 info - processing_time Program page FAQ, How Long Will It Take?
R59 NH-PROC-2 info - processing_time Jus 603.03(f)
R60 NH-ACP-1 info - address_confidentiality DOJ ACP page, FAQ: What are the eligibility guidelines?
R61 NH-REC-1 info - record_confidentiality Jus 603.02(i)
.tags pain_suffering=bit0, phone=bit1
.sources
S0 NH-S1 sha256 92be8603b0ed452e https://www.doj.nh.gov/bureaus/victims-compensation-program
S1 NH-S2 sha256 b595d4c71d5ffcf3 https://mm.nh.gov/files/uploads/doj/remote-docs/victims-compensation-application-form.pdf
S2 NH-S4 sha256 0eb5981697870401 http://www.gc.nh.gov/rules/state_agencies/jus600.html
S3 NH-S5 sha256 4214894f99c623a7 https://www.gencourt.state.nh.us/rsa/html/I/21-M/21-M-8-h.htm
S4 NH-S6 sha256 b28b4df641301269 https://www.gencourt.state.nh.us/rsa/html/I/21-M/21-M-8-c.htm
S5 NH-S7 sha256 bdea4e11fd30ae27 https://www.gencourt.state.nh.us/rsa/html/I/7/7-41.htm
S6 NH-S8 sha256 02ddd7c0e614024c https://www.gencourt.state.nh.us/rsa/html/I/7/7-43.htm
S7 NH-S9 sha256 85f2434325c3d7fa https://www.doj.nh.gov/bureaus/office-victimwitness-assistance/address-confidentiality-program
.proofs
P0 ()
P1 (NH-EXAM-1, NH-EXAM-2, NH-EXAM-3, NH-EXAM-7, NH-EXAM-4, NH-EXAM-5, NH-EXAM-6, NH-EXAM-8, NH-EXAM-9)
P2 (NH-EXC-1)
P3 (NH-EXC-2)
P4 (NH-EXC-1, NH-EXC-2)
P5 (NH-COV-1, NH-COV-13)
P6 (NH-COV-1, NH-COV-13, NH-COL-1, NH-COL-2)
P7 (NH-CAP-2, NH-CAP-3, NH-COV-4)
P8 (NH-CAP-2, NH-CAP-3, NH-COV-4, NH-COL-1, NH-COL-2)
P9 (NH-COV-5, NH-COV-6)
P10 (NH-COV-5, NH-COV-6, NH-COL-1, NH-COL-2)
P11 (NH-CAP-6, NH-COV-9)
P12 (NH-CAP-6, NH-COV-9, NH-COL-1, NH-COL-2)
P13 (NH-CAP-4, NH-COV-7, NH-COV-11)
P14 (NH-CAP-4, NH-COV-7, NH-COV-11, NH-COL-1, NH-COL-2)
P15 (NH-COV-10)
P16 (NH-COV-10, NH-COL-1, NH-COL-2)
P17 (NH-CAP-5, NH-COV-8)
P18 (NH-CAP-5, NH-COV-8, NH-COL-1, NH-COL-2)
P19 (NH-COV-3, NH-COV-12)
P20 (NH-COV-3, NH-COV-12, NH-COL-1, NH-COL-2)
P21 (NH-COV-2)
P22 (NH-COV-2, NH-COL-1, NH-COL-2)
P23 (NH-MIN-1)
P24 (NH-DEAD-1)
P25 (NH-REP-1, NH-REP-2)
P26 (NH-EXC-3, NH-COL-1, NH-COL-2, NH-CON-1, NH-CON-2, NH-EMG-1, NH-EMG-2, NH-ELIG-1, NH-ELIG-2, NH-ELIG-3, NH-RES-1, NH-RES-2, NH-SUBMIT-1, NH-SUBMIT-2, NH-DOC-1, NH-DOC-2, NH-DOC-3, NH-DOC-4, NH-DOC-5, NH-DOC-6, NH-DOC-7, NH-DOC-8, NH-DOC-9, NH-DOC-10, NH-PROC-1, NH-PROC-2, NH-ACP-1, NH-REC-1)
.ints
K0 7500
K1 400000
K2 500000
K3 300000
K4 50000
K5 5000000
K6 10000
.item
0000 ldi date
0002 ldx incident_date
0004 lt
0005 jnz L0
000a ldi date
000c ldx as_of_date
000e gt
000f jnz L0
0014 ldi expense
0016 switch 19, default L58
case medical -> L2
case forensic_exam -> L1
case counseling -> L10
case lost_wages -> L18
case transportation -> L26
case relocation -> L34
case temporary_housing -> L42
case security -> L50
case crime_scene_cleanup -> L58
case childcare -> L58
case property_replacement -> L58
case clothing_bedding -> L58
case prescription -> L65
case dental -> L73
case funeral -> L58
case legal -> L58
case tuition -> L58
case other -> L58
case unknown -> L58
0068 L0: push 0
006d decide out_of_window, P0
0071 ret
0072 L1: push 0
0077 decide held, P1
007b ret
007c L2: push 0
0081 str r0
0083 ldi tags
0085 push 1
008a and
008b jz L3
0090 ldr r0
0092 push 1
0097 or
0098 str r0
009a L3: ldi tags
009c push 2
00a1 and
00a2 jz L4
00a7 ldr r0
00a9 push 2
00ae or
00af str r0
00b1 L4: ldr r0
00b3 switch 4, default L8
case 0 -> L8
case 1 -> L5
case 2 -> L6
case 3 -> L7
00c9 L5: push 0
00ce decide excluded, P2
00d2 ret
00d3 L6: push 0
00d8 decide excluded, P3
00dc ret
00dd L7: push 0
00e2 decide excluded, P4
00e6 ret
00e7 L8: ldi confirmed
00e9 jnz L9
00ee push 0
00f3 decide needs_confirmation, P5
00f7 ret
00f8 L9: ldi amount_cents
00fa decide eligible, P6
00fe lda
00ff ldi insurance_paid_cents
0101 subs
0102 push 0
0107 max
0108 seta collateral, R35
010c ret
010d L10: push 0
0112 str r0
0114 ldi tags
0116 push 1
011b and
011c jz L11
0121 ldr r0
0123 push 1
0128 or
0129 str r0
012b L11: ldi tags
012d push 2
0132 and
0133 jz L12
0138 ldr r0
013a push 2
013f or
0140 str r0
0142 L12: ldr r0
0144 switch 4, default L16
case 0 -> L16
case 1 -> L13
case 2 -> L14
case 3 -> L15
015a L13: push 0
015f decide excluded, P2
0163 ret
0164 L14: push 0
0169 decide excluded, P3
016d ret
016e L15: push 0
0173 decide excluded, P4
0177 ret
0178 L16: ldi confirmed
017a jnz L17
017f push 0
0184 decide needs_confirmation, P7
0188 ret
0189 L17: ldi amount_cents
018b decide eligible, P8
018f lda
0190 ldi insurance_paid_cents
0192 subs
0193 push 0
0198 max
0199 seta collateral, R35
019d ret
019e L18: push 0
01a3 str r0
01a5 ldi tags
01a7 push 1
01ac and
01ad jz L19
01b2 ldr r0
01b4 push 1
01b9 or
01ba str r0
01bc L19: ldi tags
01be push 2
01c3 and
01c4 jz L20
01c9 ldr r0
01cb push 2
01d0 or
01d1 str r0
01d3 L20: ldr r0
01d5 switch 4, default L24
case 0 -> L24
case 1 -> L21
case 2 -> L22
case 3 -> L23
01eb L21: push 0
01f0 decide excluded, P2
01f4 ret
01f5 L22: push 0
01fa decide excluded, P3
01fe ret
01ff L23: push 0
0204 decide excluded, P4
0208 ret
0209 L24: ldi confirmed
020b jnz L25
0210 push 0
0215 decide needs_confirmation, P9
0219 ret
021a L25: ldi amount_cents
021c decide eligible, P10
0220 lda
0221 ldi insurance_paid_cents
0223 subs
0224 push 0
0229 max
022a seta collateral, R35
022e ret
022f L26: push 0
0234 str r0
0236 ldi tags
0238 push 1
023d and
023e jz L27
0243 ldr r0
0245 push 1
024a or
024b str r0
024d L27: ldi tags
024f push 2
0254 and
0255 jz L28
025a ldr r0
025c push 2
0261 or
0262 str r0
0264 L28: ldr r0
0266 switch 4, default L32
case 0 -> L32
case 1 -> L29
case 2 -> L30
case 3 -> L31
027c L29: push 0
0281 decide excluded, P2
0285 ret
0286 L30: push 0
028b decide excluded, P3
028f ret
0290 L31: push 0
0295 decide excluded, P4
0299 ret
029a L32: ldi confirmed
029c jnz L33
02a1 push 0
02a6 decide needs_confirmation, P11
02aa ret
02ab L33: ldi amount_cents
02ad decide eligible, P12
02b1 lda
02b2 ldi insurance_paid_cents
02b4 subs
02b5 push 0
02ba max
02bb seta collateral, R35
02bf ret
02c0 L34: push 0
02c5 str r0
02c7 ldi tags
02c9 push 1
02ce and
02cf jz L35
02d4 ldr r0
02d6 push 1
02db or
02dc str r0
02de L35: ldi tags
02e0 push 2
02e5 and
02e6 jz L36
02eb ldr r0
02ed push 2
02f2 or
02f3 str r0
02f5 L36: ldr r0
02f7 switch 4, default L40
case 0 -> L40
case 1 -> L37
case 2 -> L38
case 3 -> L39
030d L37: push 0
0312 decide excluded, P2
0316 ret
0317 L38: push 0
031c decide excluded, P3
0320 ret
0321 L39: push 0
0326 decide excluded, P4
032a ret
032b L40: ldi confirmed
032d jnz L41
0332 push 0
0337 decide needs_confirmation, P13
033b ret
033c L41: ldi amount_cents
033e decide eligible, P14
0342 lda
0343 ldi insurance_paid_cents
0345 subs
0346 push 0
034b max
034c seta collateral, R35
0350 ret
0351 L42: push 0
0356 str r0
0358 ldi tags
035a push 1
035f and
0360 jz L43
0365 ldr r0
0367 push 1
036c or
036d str r0
036f L43: ldi tags
0371 push 2
0376 and
0377 jz L44
037c ldr r0
037e push 2
0383 or
0384 str r0
0386 L44: ldr r0
0388 switch 4, default L48
case 0 -> L48
case 1 -> L45
case 2 -> L46
case 3 -> L47
039e L45: push 0
03a3 decide excluded, P2
03a7 ret
03a8 L46: push 0
03ad decide excluded, P3
03b1 ret
03b2 L47: push 0
03b7 decide excluded, P4
03bb ret
03bc L48: ldi confirmed
03be jnz L49
03c3 push 0
03c8 decide needs_confirmation, P15
03cc ret
03cd L49: ldi amount_cents
03cf decide eligible, P16
03d3 lda
03d4 ldi insurance_paid_cents
03d6 subs
03d7 push 0
03dc max
03dd seta collateral, R35
03e1 ret
03e2 L50: push 0
03e7 str r0
03e9 ldi tags
03eb push 1
03f0 and
03f1 jz L51
03f6 ldr r0
03f8 push 1
03fd or
03fe str r0
0400 L51: ldi tags
0402 push 2
0407 and
0408 jz L52
040d ldr r0
040f push 2
0414 or
0415 str r0
0417 L52: ldr r0
0419 switch 4, default L56
case 0 -> L56
case 1 -> L53
case 2 -> L54
case 3 -> L55
042f L53: push 0
0434 decide excluded, P2
0438 ret
0439 L54: push 0
043e decide excluded, P3
0442 ret
0443 L55: push 0
0448 decide excluded, P4
044c ret
044d L56: ldi confirmed
044f jnz L57
0454 push 0
0459 decide needs_confirmation, P17
045d ret
045e L57: ldi amount_cents
0460 decide eligible, P18
0464 lda
0465 ldi insurance_paid_cents
0467 subs
0468 push 0
046d max
046e seta collateral, R35
0472 ret
0473 L58: push 0
0478 str r0
047a ldi tags
047c push 1
0481 and
0482 jz L59
0487 ldr r0
0489 push 1
048e or
048f str r0
0491 L59: ldi tags
0493 push 2
0498 and
0499 jz L60
049e ldr r0
04a0 push 2
04a5 or
04a6 str r0
04a8 L60: ldr r0
04aa switch 4, default L64
case 0 -> L64
case 1 -> L61
case 2 -> L62
case 3 -> L63
04c0 L61: push 0
04c5 decide excluded, P2
04c9 ret
04ca L62: push 0
04cf decide excluded, P3
04d3 ret
04d4 L63: push 0
04d9 decide excluded, P4
04dd ret
04de L64: push 0
04e3 decide unknown_rule, P0
04e7 ret
04e8 L65: push 0
04ed str r0
04ef ldi tags
04f1 push 1
04f6 and
04f7 jz L66
04fc ldr r0
04fe push 1
0503 or
0504 str r0
0506 L66: ldi tags
0508 push 2
050d and
050e jz L67
0513 ldr r0
0515 push 2
051a or
051b str r0
051d L67: ldr r0
051f switch 4, default L71
case 0 -> L71
case 1 -> L68
case 2 -> L69
case 3 -> L70
0535 L68: push 0
053a decide excluded, P2
053e ret
053f L69: push 0
0544 decide excluded, P3
0548 ret
0549 L70: push 0
054e decide excluded, P4
0552 ret
0553 L71: ldi confirmed
0555 jnz L72
055a push 0
055f decide needs_confirmation, P19
0563 ret
0564 L72: ldi amount_cents
0566 decide eligible, P20
056a lda
056b ldi insurance_paid_cents
056d subs
056e push 0
0573 max
0574 seta collateral, R35
0578 ret
0579 L73: push 0
057e str r0
0580 ldi tags
0582 push 1
0587 and
0588 jz L74
058d ldr r0
058f push 1
0594 or
0595 str r0
0597 L74: ldi tags
0599 push 2
059e and
059f jz L75
05a4 ldr r0
05a6 push 2
05ab or
05ac str r0
05ae L75: ldr r0
05b0 switch 4, default L79
case 0 -> L79
case 1 -> L76
case 2 -> L77
case 3 -> L78
05c6 L76: push 0
05cb decide excluded, P2
05cf ret
05d0 L77: push 0
05d5 decide excluded, P3
05d9 ret
05da L78: push 0
05df decide excluded, P4
05e3 ret
05e4 L79: ldi confirmed
05e6 jnz L80
05eb push 0
05f0 decide needs_confirmation, P21
05f4 ret
05f5 L80: ldi amount_cents
05f7 decide eligible, P22
05fb lda
05fc ldi insurance_paid_cents
05fe subs
05ff push 0
0604 max
0605 seta collateral, R35
0609 ret
.aggregate
0000 each counseling, L4
0006 L0: ldi unit
0008 push 1
000d eq
000e jz L2
0013 ldi units
0015 push 0
001a gt
001b jz L2
0020 ldk K0
0023 ldi units
0025 muls
0026 dup
0027 lda
0028 lt
0029 jz L1
002e cap unit_cap, R11
0032 jmp L3
0037 L1: pop
0038 jmp L3
003d L2: flag R11
0040 L3: next L0
0045 L4: push 0
004a str r0
004c push 0
0051 str r1
0053 each counseling, L9
0059 L5: ldr r1
005b jnz L7
0060 ldr r0
0062 lda
0063 adds
0064 ldk K1
0067 gt
0068 jz L6
006d ldk K1
0070 ldr r0
0072 subs
0073 cap expense_cap, R10
0077 push 1
007c str r1
007e L6: ldr r0
0080 lda
0081 adds
0082 str r0
0084 jmp L8
0089 L7: push 0
008e cap expense_cap, R10
0092 L8: next L5
0097 L9: push 0
009c str r0
009e push 0
00a3 str r1
00a5 each relocation, L14
00ab L10: ldr r1
00ad jnz L12
00b2 ldr r0
00b4 lda
00b5 adds
00b6 ldk K2
00b9 gt
00ba jz L11
00bf ldk K2
00c2 ldr r0
00c4 subs
00c5 cap expense_cap, R12
00c9 push 1
00ce str r1
00d0 L11: ldr r0
00d2 lda
00d3 adds
00d4 str r0
00d6 jmp L13
00db L12: push 0
00e0 cap expense_cap, R12
00e4 L13: next L10
00e9 L14: push 0
00ee str r0
00f0 push 0
00f5 str r1
00f7 each security, L19
00fd L15: ldr r1
00ff jnz L17
0104 ldr r0
0106 lda
0107 adds
0108 ldk K3
010b gt
010c jz L16
0111 ldk K3
0114 ldr r0
0116 subs
0117 cap expense_cap, R13
011b push 1
0120 str r1
0122 L16: ldr r0
0124 lda
0125 adds
0126 str r0
0128 jmp L18
012d L17: push 0
0132 cap expense_cap, R13
0136 L18: next L15
013b L19: push 0
0140 str r0
0142 push 0
0147 str r1
0149 each transportation, L24
014f L20: ldr r1
0151 jnz L22
0156 ldr r0
0158 lda
0159 adds
015a ldk K4
015d gt
015e jz L21
0163 ldk K4
0166 ldr r0
0168 subs
0169 cap expense_cap, R14
016d push 1
0172 str r1
0174 L21: ldr r0
0176 lda
0177 adds
0178 str r0
017a jmp L23
017f L22: push 0
0184 cap expense_cap, R14
0188 L23: next L20
018d L24: push 0
0192 str r0
0194 push 0
0199 str r1
019b each all, L29
01a1 L25: ldr r1
01a3 jnz L27
01a8 ldr r0
01aa lda
01ab adds
01ac ldk K5
01af gt
01b0 jz L26
01b5 ldk K5
01b8 ldr r0
01ba subs
01bb cap total_cap, R9
01bf push 1
01c4 str r1
01c6 L26: ldr r0
01c8 lda
01c9 adds
01ca str r0
01cc jmp L28
01d1 L27: push 0
01d6 cap total_cap, R9
01da L28: next L25
01df L29: push 0
01e4 str r0
01e6 each all, L31
01ec L30: ldr r0
01ee lda
01ef adds
01f0 str r0
01f2 next L30
01f7 L31: push 0
01fc str r2
01fe ldr r0
0200 ldk K6
0203 ge
0204 jnz L32
0209 push 4
020e ldr r2
0210 max
0211 str r2
0213 L32: ldr r2
0215 check minimum_loss, P23
0219 ldx incident_date
021b push 730
0220 adds
0221 dup
0222 setdate
0223 ldx as_of_date
0225 ge
0226 jz L33
022b push 0
0230 jmp L34
0235 L33: push 1
023a L34: check deadline, P24
023e ldx police_report
0240 push 1
0245 eq
0246 jnz L36
024b ldx forensic_exam
024d jnz L36
0252 ldx police_report
0254 push 0
0259 eq
025a jnz L35
025f push 3
0264 jmp L37
0269 L35: push 1
026e jmp L37
0273 L36: push 0
0278 L37: check reporting, P25
027c info P26
027f ret