The engine compiles Michigan'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
- 83 rules, 23 sources, 33 proofs, 7 ints, 473 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
6f51413c4d5be862fbe9aa6ca73409d3e30c55ccec32b9832f80edf44e0313ac
Jump to: rule table, per-cost program, totals program, or download the listing.
.rules
R0 MI-EXAM-1 exam_no_bill - MCL 18.355a(2)
R1 MI-EXAM-2 exam_no_bill - MCL 18.355a(3)(a)
R2 MI-EXAM-3 exam_payment - MCL 18.355a(7)
R3 MI-EXAM-4 exam_payment - MDHHS SAFE Response page
R4 MI-EXAM-5 exam_payment - MCL 18.355a(4)
R5 MI-CAP-1 total_cap - MCL 18.361(1)
R6 MI-CAP-3 expense_cap counseling per session MCL 18.361(6)
R7 MI-CAP-5 expense_cap lost_wages per week MCL 18.361(4)
R8 MI-CAP-6 expense_cap relocation per claim MCL 18.361(2)(c)
R9 MI-CAP-8 expense_cap transportation per claim MCL 18.361(2)(e)(ii)
R10 MI-CAP-9 expense_cap security per claim MCL 18.361(2)(f)
R11 MI-CAP-10 expense_cap clothing_bedding per claim MCL 18.361(2)(j)
R12 MI-CAP-11 expense_cap crime_scene_cleanup per claim MCL 18.361(2)(i)
R13 MI-COV-1 covered medical MCL 18.361(2)(a)
R14 MI-COV-2 covered counseling MCL 18.361(2)(b)
R15 MI-COV-3 covered lost_wages MCL 18.361(4)
R16 MI-COV-4 covered relocation MCL 18.361(2)(c)
R17 MI-COV-5 covered temporary_housing MCL 18.361(2)(c)(iii)
R18 MI-COV-6 covered relocation MCL 18.361(2)(c)(i)
R19 MI-COV-7 covered transportation MCL 18.361(2)(e)
R20 MI-COV-8 covered childcare MCL 18.361(2)(d)
R21 MI-COV-9 covered dental MDHHS What Costs May Be Covered, Costs that May Be Covered
R22 MI-COV-10 covered other MDHHS What Costs May Be Covered, Costs that May Be Covered
R23 MI-EXCL-1 excluded property_replacement MDHHS What Costs May Be Covered, Costs that are NOT Covered
R24 MI-EXCL-2 info - excluded_expense MDHHS What Costs May Be Covered, Costs that are NOT Covered
R25 MI-EXCL-3 info - excluded_expense MDHHS What Costs May Be Covered, Costs that are NOT Covered
R26 MI-EXCL-4 info - excluded_expense MDHHS What Costs May Be Covered, Costs that are NOT Covered
R27 MI-FILE-1 deadline - from crime MCL 18.355(2)
R28 MI-FILE-2 deadline - from report MCL 18.355(2)(a)
R29 MI-FILE-3 info - filing_deadline MCL 18.355(3)
R30 MI-REPORT-1 reporting - MCL 18.355a(10)
R31 MI-REPORT-2 reporting - MCL 18.360(c)
R32 MI-REPORT-3 reporting - MDHHS Do I Qualify?, Eligibility Requirements
R33 MI-MIN-1 minimum_loss - MCL 18.354(3)
R34 MI-COLL-1 collateral - MCL 18.361(7)
R35 MI-COLL-2 collateral - MDHHS FAQ, What is Crime Victim Compensation?
R36 MI-COLL-3 collateral - MDHHS FAQ, Do I qualify if I have insurance?
R37 MI-CONDUCT-1 info - conduct_reduction MCL 18.361(8)
R38 MI-CONDUCT-2 info - conduct_reduction MCL 18.356(2)
R39 MI-EMERG-1 info - emergency_award MCL 18.359(2)
R40 MI-ELIG-1 info - eligible_crime MDHHS Do I Qualify?, Who is considered a victim?
R41 MI-ELIG-2 info - eligible_crime MCL 18.351(i)
R42 MI-RES-1 info - residency MDHHS FAQ, Do I need to be a U.S. citizen or have a Social Security Number in order to qualify?
R43 MI-RES-2 info - residency MDHHS FAQ, What if the crime occurred on Tribal land or another state?
R44 MI-RES-3 info - residency MCL 18.351(c)(ii)
R45 MI-SUBMIT-1 info - submission Applying for Compensation, How do I apply?
R46 MI-SUBMIT-2 info - submission Applying for Compensation, How do I apply?
R47 MI-SUBMIT-3 info - submission Applying for Compensation, How do I apply?
R48 MI-DOC-1 info - required_document Application Checklist, For All Applications, item 2
R49 MI-DOC-2 info - required_document Application Checklist, For All Applications, item 1
R50 MI-DOC-3 info - required_document Application Checklist, For All Applications, item 3
R51 MI-DOC-4 info - required_document DCH-0560, Authorizations and Agreements
R52 MI-DOC-5 info - required_document Application Checklist, Medical, Dental, Equipment, Nonmedical Remedial Treatment, and/or Counseling, item 1
R53 MI-DOC-6 info - required_document Application Checklist, Medical, Dental, Equipment, Nonmedical Remedial Treatment, and/or Counseling, item 1
R54 MI-DOC-7 info - required_document Application Checklist, Medical, Dental, Equipment, Nonmedical Remedial Treatment, and/or Counseling, item 2
R55 MI-DOC-8 info - required_document Application Checklist, Medical, Dental, Equipment, Nonmedical Remedial Treatment, and/or Counseling, item 3
R56 MI-DOC-9 info - required_document Application Checklist, Medical, Dental, Equipment, Nonmedical Remedial Treatment, and/or Counseling, item 4
R57 MI-DOC-10 info - required_document Application Checklist, Medical, Dental, Equipment, Nonmedical Remedial Treatment, and/or Counseling, item 6
R58 MI-DOC-11 info - required_document Application Checklist, Loss of Earnings or Support, item 1
R59 MI-DOC-12 info - required_document Application Checklist, Loss of Earnings or Support, item 2
R60 MI-DOC-13 info - required_document Application Checklist, Loss of Earnings or Support, item 3
R61 MI-DOC-14 info - required_document Application Checklist, Relocation (Temporary) or Relocation (Permanent), item 1
R62 MI-DOC-15 info - required_document Application Checklist, Relocation (Temporary) or Relocation (Permanent), item 2
R63 MI-DOC-16 info - required_document Application Checklist, Relocation (Temporary) or Relocation (Permanent), item 3
R64 MI-DOC-17 info - required_document Application Checklist, Relocation (Temporary) or Relocation (Permanent), item 4
R65 MI-DOC-18 info - required_document Application Checklist, Relocation (Temporary) or Relocation (Permanent), item 5
R66 MI-DOC-19 info - required_document Application Checklist, Residential Security, item 1
R67 MI-DOC-20 info - required_document Application Checklist, Residential Security, item 2
R68 MI-DOC-21 info - required_document Application Checklist, Residential Security, item 3
R69 MI-DOC-22 info - required_document Application Checklist, Replacement Costs, item 1
R70 MI-DOC-23 info - required_document Application Checklist, Replacement Costs, item 2
R71 MI-DOC-24 info - required_document Application Checklist, Crime Scene Clean-Up, item 1
R72 MI-DOC-25 info - required_document Application Checklist, Crime Scene Clean-Up, item 2
R73 MI-DOC-26 info - required_document Application Checklist, Funeral/Burial Benefits, item 1
R74 MI-DOC-27 info - required_document Application Checklist, Funeral/Burial Benefits, item 2
R75 MI-DOC-28 info - required_document Application Checklist, Loss of Earnings or Support, item 4
R76 MI-DOC-29 info - required_document Application Checklist, Loss of Earnings or Support, item 5
R77 MI-DOC-30 info - required_document Application Checklist, Loss of Earnings or Support, item 6
R78 MI-ACP-1 info - address_confidentiality ACP Applicants page, program description
R79 MI-RECCONF-1 info - record_confidentiality MCL 18.363
R80 MI-CAP-2 skipped - expense_cap MCL 18.361(6)
R81 MI-CAP-4 skipped - expense_cap MDHHS award limits table, Psychological Counseling
R82 MI-CAP-7 skipped - expense_cap MCL 18.361(2)(e)(i)
.tags phone=bit0, purse=bit1
.sources
S0 MI-S1 sha256 2f19f18874342d94 https://legislature.mi.gov/Laws/MCL?objectName=mcl-18-351
S1 MI-S2 sha256 d0afb50e0149aa68 https://legislature.mi.gov/Laws/MCL?objectName=mcl-18-354
S2 MI-S3 sha256 ee55a274d51755be https://legislature.mi.gov/Laws/MCL?objectName=mcl-18-355
S3 MI-S4 sha256 abbcefc231cd3f06 https://legislature.mi.gov/Laws/MCL?objectName=mcl-18-355a
S4 MI-S5 sha256 86cc2cf50dbfa48a https://legislature.mi.gov/Laws/MCL?objectName=mcl-18-356
S5 MI-S6 sha256 6b07d8b58bcda80a https://legislature.mi.gov/Laws/MCL?objectName=mcl-18-361
S6 MI-S7 sha256 041a46feec741dc1 https://legislature.mi.gov/Laws/MCL?objectName=mcl-18-359
S7 MI-S8 sha256 17897cc403eeae0c https://legislature.mi.gov/Laws/MCL?objectName=mcl-18-360
S8 MI-S9 sha256 9e5407f20e6991ac https://www.michigan.gov/mdhhs/safety-injury-prev/publicsafety/crimevictims/crime-victim-compensation
S9 MI-S10 sha256 ac04443fd9bc9f73 https://www.michigan.gov/mdhhs/safety-injury-prev/publicsafety/crimevictims/crime-victim-compensation/do-i-qualify
S10 MI-S11 sha256 c5c06677b5043a55 https://www.michigan.gov/mdhhs/safety-injury-prev/publicsafety/crimevictims/crime-victim-compensation/what-costs-may-be-covered-for-crime-victims
S11 MI-S12 sha256 c8313a8db33505b9 https://www.michigan.gov/mdhhs/safety-injury-prev/publicsafety/crimevictims/crime-victim-compensation/frequently-asked-questions
S12 MI-S13 sha256 30ff62d3dd28161d https://www.michigan.gov/mdhhs/safety-injury-prev/publicsafety/crimevictims/crime-victim-compensation/applying-for-compensation
S13 MI-S14 sha256 8d2adffea560a14e https://www.michigan.gov/mdhhs/safety-injury-prev/publicsafety/crimevictims/crime-victim-compensation/downloadable-materials
S14 MI-S15 sha256 6fa0accc275a0eae https://www.michigan.gov/mdhhs/-/media/Project/Websites/mdhhs/Division-of-Victim-Services/Crime-Victim-Compensation/Applications/Crime-Victim-Compensation-Application---English.pdf?rev=0ba8540cd7e044029ce8276b307f3821&hash=C16A211782AB6F2789FB6CA95ACF0E55
S15 MI-S16 sha256 d55946d15496e9e6 https://www.michigan.gov/mdhhs/-/media/Project/Websites/mdhhs/Division-of-Victim-Services/Crime-Victim-Compensation/2023-Brochure-and-Poster/English/2023_MDHHS_CrimeVictims_Brochure_85x14_31.pdf?rev=cbb41f4bdfe14241b7e6c2abcb89218b
S16 MI-S17 sha256 0407ab1eff62b6a8 https://www.michigan.gov/mdhhs/safety-injury-prev/publicsafety/crimevictims/resources-for-professionals/safe
S17 MI-S18 sha256 4fcac60241668ef4 https://www.michigan.gov/mdhhs/-/media/Project/Websites/mdhhs/Division-of-Victim-Services/Crime-Victim-Compensation/Checklists/2025-Application-Checklist_English.pdf?rev=a4c3f38061b14f5c849c3ebf316fb763&hash=9F45102448FF3A9C7D36F8FCE7690354
S18 MI-S19 sha256 9d78afbc2a88c32e https://www.michigan.gov/mdhhs/-/media/Project/Websites/mdhhs/Division-of-Victim-Services/Crime-Victim-Compensation/Guides/Application-Reference-Guide_English.pdf?rev=1ab53615e98e4eb5b582a8b15ddf66ee&hash=8846D16768CE5B18B0A7997594B5517E
S19 MI-S20 sha256 9911a3cafeeff558 https://www.michigan.gov/ag/initiatives/address-confidentiality-program
S20 MI-S21 sha256 1e30777c0e48ef4d https://www.michigan.gov/ag/initiatives/address-confidentiality-program/acp-applicants
S21 MI-S22 sha256 2d90109e5959114f https://legislature.mi.gov/Laws/MCL?objectName=mcl-780-855
S22 MI-S23 sha256 684787b6cd67da84 https://legislature.mi.gov/Laws/MCL?objectName=mcl-18-363
.proofs
P0 ()
P1 (MI-EXAM-1, MI-EXAM-2, MI-EXAM-3, MI-EXAM-4, MI-EXAM-5)
P2 (MI-COV-1)
P3 (MI-COV-1, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P4 (MI-CAP-2, MI-CAP-4)
P5 (MI-CAP-3, MI-COV-2)
P6 (MI-CAP-3, MI-COV-2, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P7 (MI-CAP-5, MI-COV-3)
P8 (MI-CAP-5, MI-COV-3, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P9 (MI-CAP-7)
P10 (MI-CAP-8, MI-COV-7)
P11 (MI-CAP-8, MI-COV-7, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P12 (MI-CAP-6, MI-COV-4, MI-COV-6)
P13 (MI-CAP-6, MI-COV-4, MI-COV-6, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P14 (MI-COV-5)
P15 (MI-COV-5, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P16 (MI-CAP-9)
P17 (MI-CAP-9, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P18 (MI-CAP-11)
P19 (MI-CAP-11, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P20 (MI-COV-8)
P21 (MI-COV-8, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P22 (MI-EXCL-1)
P23 (MI-CAP-10)
P24 (MI-CAP-10, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P25 (MI-COV-9)
P26 (MI-COV-9, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P27 (MI-COV-10)
P28 (MI-COV-10, MI-COLL-1, MI-COLL-2, MI-COLL-3)
P29 (MI-MIN-1)
P30 (MI-FILE-1, MI-FILE-2)
P31 (MI-REPORT-1, MI-REPORT-2, MI-REPORT-3)
P32 (MI-EXCL-2, MI-EXCL-3, MI-EXCL-4, MI-FILE-3, MI-COLL-1, MI-COLL-2, MI-COLL-3, MI-CONDUCT-1, MI-CONDUCT-2, MI-EMERG-1, MI-ELIG-1, MI-ELIG-2, MI-RES-1, MI-RES-2, MI-RES-3, MI-SUBMIT-1, MI-SUBMIT-2, MI-SUBMIT-3, MI-DOC-1, MI-DOC-2, MI-DOC-3, MI-DOC-4, MI-DOC-5, MI-DOC-6, MI-DOC-7, MI-DOC-8, MI-DOC-9, MI-DOC-10, MI-DOC-11, MI-DOC-12, MI-DOC-13, MI-DOC-14, MI-DOC-15, MI-DOC-16, MI-DOC-17, MI-DOC-18, MI-DOC-19, MI-DOC-20, MI-DOC-21, MI-DOC-22, MI-DOC-23, MI-DOC-24, MI-DOC-25, MI-DOC-26, MI-DOC-27, MI-DOC-28, MI-DOC-29, MI-DOC-30, MI-ACP-1, MI-RECCONF-1)
.ints
K0 12500
K1 100000
K2 380000
K3 500000
K4 25000
K5 4500000
K6 20000
.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 L26
case medical -> L2
case forensic_exam -> L1
case counseling -> L4
case lost_wages -> L6
case transportation -> L8
case relocation -> L10
case temporary_housing -> L12
case security -> L14
case crime_scene_cleanup -> L16
case childcare -> L18
case property_replacement -> L20
case clothing_bedding -> L24
case prescription -> L26
case dental -> L27
case funeral -> L26
case legal -> L26
case tuition -> L26
case other -> L29
case unknown -> L26
0068 L0: push 0
006d decide out_of_window, P0
0071 ret
0072 L1: push 0
0077 decide held, P1
007b ret
007c L2: ldi confirmed
007e jnz L3
0083 push 0
0088 decide needs_confirmation, P2
008c ret
008d L3: ldi amount_cents
008f decide eligible, P3
0093 lda
0094 ldi insurance_paid_cents
0096 subs
0097 push 0
009c max
009d seta collateral, R34
00a1 ret
00a2 L4: alts P4
00a5 ldi confirmed
00a7 jnz L5
00ac push 0
00b1 decide needs_confirmation, P5
00b5 ret
00b6 L5: ldi amount_cents
00b8 decide eligible, P6
00bc lda
00bd ldi insurance_paid_cents
00bf subs
00c0 push 0
00c5 max
00c6 seta collateral, R34
00ca ret
00cb L6: ldi confirmed
00cd jnz L7
00d2 push 0
00d7 decide needs_confirmation, P7
00db ret
00dc L7: ldi amount_cents
00de decide eligible, P8
00e2 lda
00e3 ldi insurance_paid_cents
00e5 subs
00e6 push 0
00eb max
00ec seta collateral, R34
00f0 ret
00f1 L8: alts P9
00f4 ldi confirmed
00f6 jnz L9
00fb push 0
0100 decide needs_confirmation, P10
0104 ret
0105 L9: ldi amount_cents
0107 decide eligible, P11
010b lda
010c ldi insurance_paid_cents
010e subs
010f push 0
0114 max
0115 seta collateral, R34
0119 ret
011a L10: ldi confirmed
011c jnz L11
0121 push 0
0126 decide needs_confirmation, P12
012a ret
012b L11: ldi amount_cents
012d decide eligible, P13
0131 lda
0132 ldi insurance_paid_cents
0134 subs
0135 push 0
013a max
013b seta collateral, R34
013f ret
0140 L12: ldi confirmed
0142 jnz L13
0147 push 0
014c decide needs_confirmation, P14
0150 ret
0151 L13: ldi amount_cents
0153 decide eligible, P15
0157 lda
0158 ldi insurance_paid_cents
015a subs
015b push 0
0160 max
0161 seta collateral, R34
0165 ret
0166 L14: ldi confirmed
0168 jnz L15
016d push 0
0172 decide needs_confirmation, P16
0176 ret
0177 L15: ldi amount_cents
0179 decide eligible, P17
017d lda
017e ldi insurance_paid_cents
0180 subs
0181 push 0
0186 max
0187 seta collateral, R34
018b ret
018c L16: ldi confirmed
018e jnz L17
0193 push 0
0198 decide needs_confirmation, P18
019c ret
019d L17: ldi amount_cents
019f decide eligible, P19
01a3 lda
01a4 ldi insurance_paid_cents
01a6 subs
01a7 push 0
01ac max
01ad seta collateral, R34
01b1 ret
01b2 L18: ldi confirmed
01b4 jnz L19
01b9 push 0
01be decide needs_confirmation, P20
01c2 ret
01c3 L19: ldi amount_cents
01c5 decide eligible, P21
01c9 lda
01ca ldi insurance_paid_cents
01cc subs
01cd push 0
01d2 max
01d3 seta collateral, R34
01d7 ret
01d8 L20: push 0
01dd str r0
01df ldi tags
01e1 push 3
01e6 and
01e7 jz L21
01ec ldr r0
01ee push 1
01f3 or
01f4 str r0
01f6 L21: ldr r0
01f8 switch 2, default L23
case 0 -> L23
case 1 -> L22
0206 L22: push 0
020b decide excluded, P22
020f ret
0210 L23: push 0
0215 decide unknown_rule, P0
0219 ret
021a L24: ldi confirmed
021c jnz L25
0221 push 0
0226 decide needs_confirmation, P23
022a ret
022b L25: ldi amount_cents
022d decide eligible, P24
0231 lda
0232 ldi insurance_paid_cents
0234 subs
0235 push 0
023a max
023b seta collateral, R34
023f ret
0240 L26: push 0
0245 decide unknown_rule, P0
0249 ret
024a L27: ldi confirmed
024c jnz L28
0251 push 0
0256 decide needs_confirmation, P25
025a ret
025b L28: ldi amount_cents
025d decide eligible, P26
0261 lda
0262 ldi insurance_paid_cents
0264 subs
0265 push 0
026a max
026b seta collateral, R34
026f ret
0270 L29: ldi confirmed
0272 jnz L30
0277 push 0
027c decide needs_confirmation, P27
0280 ret
0281 L30: ldi amount_cents
0283 decide eligible, P28
0287 lda
0288 ldi insurance_paid_cents
028a subs
028b push 0
0290 max
0291 seta collateral, R34
0295 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, R6
0032 jmp L3
0037 L1: pop
0038 jmp L3
003d L2: flag R6
0040 L3: next L0
0045 L4: each lost_wages, L9
004b L5: ldi unit
004d push 2
0052 eq
0053 jz L7
0058 ldi units
005a push 0
005f gt
0060 jz L7
0065 ldk K1
0068 ldi units
006a muls
006b dup
006c lda
006d lt
006e jz L6
0073 cap unit_cap, R7
0077 jmp L8
007c L6: pop
007d jmp L8
0082 L7: flag R7
0085 L8: next L5
008a L9: push 0
008f str r0
0091 push 0
0096 str r1
0098 each relocation, L14
009e L10: ldr r1
00a0 jnz L12
00a5 ldr r0
00a7 lda
00a8 adds
00a9 ldk K2
00ac gt
00ad jz L11
00b2 ldk K2
00b5 ldr r0
00b7 subs
00b8 cap expense_cap, R8
00bc push 1
00c1 str r1
00c3 L11: ldr r0
00c5 lda
00c6 adds
00c7 str r0
00c9 jmp L13
00ce L12: push 0
00d3 cap expense_cap, R8
00d7 L13: next L10
00dc L14: push 0
00e1 str r0
00e3 push 0
00e8 str r1
00ea each transportation, L19
00f0 L15: ldr r1
00f2 jnz L17
00f7 ldr r0
00f9 lda
00fa adds
00fb ldk K3
00fe gt
00ff jz L16
0104 ldk K3
0107 ldr r0
0109 subs
010a cap expense_cap, R9
010e push 1
0113 str r1
0115 L16: ldr r0
0117 lda
0118 adds
0119 str r0
011b jmp L18
0120 L17: push 0
0125 cap expense_cap, R9
0129 L18: next L15
012e L19: push 0
0133 str r0
0135 push 0
013a str r1
013c each security, L24
0142 L20: ldr r1
0144 jnz L22
0149 ldr r0
014b lda
014c adds
014d ldk K1
0150 gt
0151 jz L21
0156 ldk K1
0159 ldr r0
015b subs
015c cap expense_cap, R10
0160 push 1
0165 str r1
0167 L21: ldr r0
0169 lda
016a adds
016b str r0
016d jmp L23
0172 L22: push 0
0177 cap expense_cap, R10
017b L23: next L20
0180 L24: push 0
0185 str r0
0187 push 0
018c str r1
018e each clothing_bedding, L29
0194 L25: ldr r1
0196 jnz L27
019b ldr r0
019d lda
019e adds
019f ldk K4
01a2 gt
01a3 jz L26
01a8 ldk K4
01ab ldr r0
01ad subs
01ae cap expense_cap, R11
01b2 push 1
01b7 str r1
01b9 L26: ldr r0
01bb lda
01bc adds
01bd str r0
01bf jmp L28
01c4 L27: push 0
01c9 cap expense_cap, R11
01cd L28: next L25
01d2 L29: push 0
01d7 str r0
01d9 push 0
01de str r1
01e0 each crime_scene_cleanup, L34
01e6 L30: ldr r1
01e8 jnz L32
01ed ldr r0
01ef lda
01f0 adds
01f1 ldk K3
01f4 gt
01f5 jz L31
01fa ldk K3
01fd ldr r0
01ff subs
0200 cap expense_cap, R12
0204 push 1
0209 str r1
020b L31: ldr r0
020d lda
020e adds
020f str r0
0211 jmp L33
0216 L32: push 0
021b cap expense_cap, R12
021f L33: next L30
0224 L34: push 0
0229 str r0
022b push 0
0230 str r1
0232 each all, L39
0238 L35: ldr r1
023a jnz L37
023f ldr r0
0241 lda
0242 adds
0243 ldk K5
0246 gt
0247 jz L36
024c ldk K5
024f ldr r0
0251 subs
0252 cap total_cap, R5
0256 push 1
025b str r1
025d L36: ldr r0
025f lda
0260 adds
0261 str r0
0263 jmp L38
0268 L37: push 0
026d cap total_cap, R5
0271 L38: next L35
0276 L39: push 0
027b str r0
027d each all, L41
0283 L40: ldr r0
0285 lda
0286 adds
0287 str r0
0289 next L40
028e L41: push 0
0293 str r5
0295 push 0
029a str r6
029c each lost_wages, L45
02a2 L42: ldi unit
02a4 push 2
02a9 eq
02aa jz L43
02af ldr r5
02b1 ldi units
02b3 adds
02b4 str r5
02b6 jmp L44
02bb L43: ldi unit
02bd push 5
02c2 eq
02c3 jz L44
02c8 ldr r6
02ca ldi units
02cc adds
02cd str r6
02cf L44: next L42
02d4 L45: ldr r5
02d6 push 5
02db muls
02dc ldr r6
02de adds
02df str r1
02e1 push 0
02e6 str r2
02e8 ldr r0
02ea ldk K6
02ed ge
02ee jnz L46
02f3 ldr r1
02f5 push 5
02fa ge
02fb jnz L46
0300 push 3
0305 ldr r2
0307 max
0308 str r2
030a L46: ldr r2
030c check minimum_loss, P29
0310 ldx incident_date
0312 push 1826
0317 adds
0318 ldx incident_date
031a push 1826
031f adds
0320 max
0321 dup
0322 setdate
0323 ldx as_of_date
0325 ge
0326 jz L47
032b push 0
0330 jmp L48
0335 L47: push 1
033a L48: note deadline_from_report
033c check deadline, P30
0340 ldx police_report
0342 push 1
0347 eq
0348 jnz L50
034d ldx forensic_exam
034f jnz L50
0354 ldx police_report
0356 push 0
035b eq
035c jnz L49
0361 push 3
0366 jmp L51
036b L49: push 1
0370 jmp L51
0375 L50: push 0
037a L51: check reporting, P31
037e info P32
0381 ret