The engine compiles Pennsylvania'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
- 59 rules, 15 sources, 29 proofs, 8 ints, 315 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
90024169d2c259bfa3c4220f218f0deb32cd6b8c98ac116a5511f0cbe27fc10d
Jump to: rule table, per-cost program, totals program, or download the listing.
.rules
R0 PA-EXAM-1 exam_no_bill - 18 P.S. 11.707(h)(2)
R1 PA-EXAM-2 exam_payment - 18 P.S. 11.707(h)(1)
R2 PA-EXAM-3 exam_payment - VCAP Protocol and Billing Procedures for FREs, introduction
R3 PA-EXAM-4 exam_no_bill - FRE FAQ, Question 7
R4 PA-EXAM-5 exam_no_bill - VCAP Protocol and Billing Procedures for FREs, A.4
R5 PA-EXAM-6 covered forensic_exam 37 Pa. Code 411.42(b)(3)(iv)
R6 PA-EXAM-7 expense_cap forensic_exam per claim 18 P.S. 11.707(b)(1)(ii)
R7 PA-EXAM-8 exam_payment - VCAP Protocol and Billing Procedures for FREs, introduction
R8 PA-CAP-1 total_cap - 18 P.S. 11.707(b)(1)
R9 PA-COUNSEL-2 expense_cap counseling per claim 18 P.S. 11.707(b)(4.1)(i)
R10 PA-COUNSEL-3 covered counseling 18 P.S. 11.707(b)(4)
R11 PA-COUNSEL-4 covered counseling 18 P.S. 11.701.1(a)
R12 PA-WAGES-1 expense_cap lost_wages per claim 18 P.S. 11.707(b)(2)(ii)
R13 PA-WAGES-2 covered lost_wages 37 Pa. Code 411.43(b)
R14 PA-RELOC-1 expense_cap relocation per claim 37 Pa. Code 411.42(f)
R15 PA-RELOC-2 covered relocation 18 P.S. 11.103, "Out-of-pocket loss" (4)
R16 PA-RELOC-3 covered relocation VCAP Relocation Expenses flyer (11/2023)
R17 PA-RELOC-4 expense_cap temporary_housing per day 37 Pa. Code 411.42(f)(1)(i)
R18 PA-TRANS-1 covered transportation 37 Pa. Code 411.42(g)
R19 PA-TRANS-2 expense_cap transportation per day VCAP Manual 2025, Transportation (p. 88)
R20 PA-MED-1 covered medical 18 P.S. 11.103, "Out-of-pocket loss" (1)
R21 PA-MED-2 covered medical 18 P.S. 11.708(b)
R22 PA-MED-3 expense_cap property_replacement per claim 37 Pa. Code 411.42(d)
R23 PA-CHILD-1 covered childcare 37 Pa. Code 411.42(i)(2)
R24 PA-CLEAN-1 expense_cap crime_scene_cleanup per claim 18 P.S. 11.707(b)(1)(iii)
R25 PA-EXCL-1 excluded - 18 P.S. 11.103, "Out-of-pocket loss"
R26 PA-EXCL-2 excluded - VCAP Manual 2025, Miscellaneous Eligibility Information (p. 10 to 11)
R27 PA-DEADLINE-1 deadline - from discovery 18 P.S. 11.702(b)(1)
R28 PA-REPORT-1 reporting - 18 P.S. 11.707(a)(3)
R29 PA-REPORT-2 reporting - 18 P.S. 11.707(a.2)
R30 PA-REPORT-3 reporting - VCAP Protocol and Billing Procedures for FREs, introduction
R31 PA-REPORT-4 reporting - PA.gov VCAP page, Sexual Assault Counseling Claims
R32 PA-MIN-1 minimum_loss - 18 P.S. 11.703
R33 PA-COLL-1 collateral - 18 P.S. 11.707(e)
R34 PA-COND-1 info - conduct_reduction 18 P.S. 11.707(f)(1)
R35 PA-COND-2 info - conduct_reduction 18 P.S. 11.707(f)(2)
R36 PA-EMERG-1 info - emergency_award 37 Pa. Code 411.17(c)
R37 PA-CRIME-1 info - eligible_crime 18 P.S. 11.103, "Personal injury crime"
R38 PA-RES-1 info - residency VCAP Manual 2025, Requirements for receiving compensation, 1
R39 PA-RES-2 info - residency VCAP Protocol and Billing Procedures for FREs, A.5
R40 PA-SUBMIT-1 info - submission Claim form (July 2024), back page contact block
R41 PA-SUBMIT-2 info - submission Claim form (July 2024), back page footer
R42 PA-SUBMIT-3 info - submission Claim form (July 2024), back page contact block
R43 PA-DOC-1 info - required_document Claim form (July 2024), Section 4: Medical Expenses
R44 PA-DOC-2 info - required_document Claim form (July 2024), Section 5: Counseling Expenses
R45 PA-DOC-3 info - required_document Claim form (July 2024), Sections 4 and 5
R46 PA-DOC-4 info - required_document Claim form (July 2024), Sections 4 and 5
R47 PA-DOC-5 info - required_document Claim form (July 2024), Section 7: Loss of Earnings
R48 PA-DOC-6 info - required_document Claim form (July 2024), Section 7: Loss of Earnings
R49 PA-DOC-7 info - required_document Claim form (July 2024), Section 7: Loss of Earnings
R50 PA-DOC-8 info - required_document Claim form (July 2024), Section 10: Relocation
R51 PA-DOC-9 info - required_document Claim form (July 2024), Acknowledgement & Reimbursement Agreements section
R52 PA-TIME-1 info - processing_time PA.gov apply page, FAQ: How long does it take the Program to make a decision?
R53 PA-TIME-2 info - processing_time VCAP Claim Process flyer (11/2023)
R54 PA-ACP-1 info - address_confidentiality OVA Address Confidentiality Program page
R55 PA-RECCONF-1 info - record_confidentiality 18 P.S. 11.709(a)
R56 PA-COUNSEL-1 skipped - expense_cap 18 P.S. 11.707(b)(4.1)(i)
R57 PA-COUNSEL-5 skipped - expense_cap 18 P.S. 11.701.1(c)
R58 PA-TRANS-3 skipped - expense_cap VCAP Manual 2025, Transportation (p. 89)
.tags pain_suffering=bit0, phone=bit1
.sources
S0 PA-S1 sha256 b3a8c4532d8dae24 https://www.palegis.us/statutes/unconsolidated/law-information/view-statute?txtType=PDF&SessYr=1998&SessInd=0&ActNum=0111.&chpt=7&subchpt=000.
S1 PA-S2 sha256 016a8d9bff46c067 https://www.palegis.us/statutes/unconsolidated/law-information/view-statute?txtType=PDF&SessYr=1998&SessInd=0&ActNum=0111.&chpt=1&subchpt=000.
S2 PA-S3 sha256 1ff42d1c90e8427d https://www.pacodeandbulletin.gov/Display/pacode?file=/secure/pacode/data/037/chapter411/chap411toc.html
S3 PA-S4 sha256 89af6ae0b6863490 https://www.pa.gov/services/pcv/apply-for-victims-compensation
S4 PA-S5 sha256 80e7a196a57f6e76 https://www.pa.gov/content/dam/copapwp-pagov/en/pcv/documents/english/vcap%20manual%202025.pdf
S5 PA-S6 sha256 5240ed2269b5c68a https://www.pa.gov/content/dam/copapwp-pagov/en/pcv/documents/vcap%20long%20claim%20form%20july%202024.pdf
S6 PA-S7 sha256 fcbface5b1a7e56c https://www.pa.gov/content/dam/copapwp-pagov/en/pcv/documents/english/eligible-expenses-brochures/supporting_survivors_sa_pcv_vcap_brochure.pdf
S7 PA-S8 sha256 b3abd08f6484bb62 https://www.pa.gov/content/dam/copapwp-pagov/en/pcv/documents/english/relocation%20flyer.pdf
S8 PA-S9 sha256 3dfb67f5c93d1ddd https://www.pa.gov/content/dam/copapwp-pagov/en/pcv/documents/english/eligible-expenses-brochures/transportation%20expenses.pdf
S9 PA-S10 sha256 18cbf9dbadd86afc https://www.pa.gov/content/dam/copapwp-pagov/en/pcv/documents/billing%20and%20protocol%20procedures%202024.pdf
S10 PA-S11 sha256 04e39eca36c9972f https://www.pa.gov/content/dam/copapwp-pagov/en/pcv/documents/frequently%20asked%20questions%202024.pdf
S11 PA-S12 sha256 c543564e489c3533 https://www.pa.gov/content/dam/copapwp-pagov/en/pccd/documents/victim-services/documents/sexual%20assault%20counseling%20claim%20fact%20sheet.pdf
S12 PA-S13 sha256 63edd5946d7bec1f https://www.pa.gov/content/dam/copapwp-pagov/en/pcv/documents/english/claim%20process%20flyer.pdf
S13 PA-S14 sha256 20e1124ba3cccd46 https://www.pa.gov/agencies/ova/address-confidentiality
S14 PA-S15 sha256 57d5ec4778640611 https://www.palegis.us/statutes/consolidated/view-statute?txtType=PDF&ttl=23&div=0&chpt=67
.proofs
P0 ()
P1 (PA-EXAM-1, PA-EXAM-4, PA-EXAM-5, PA-EXAM-2, PA-EXAM-3, PA-EXAM-8)
P2 (PA-EXCL-1)
P3 (PA-EXCL-2)
P4 (PA-EXCL-1, PA-EXCL-2)
P5 (PA-MED-1, PA-MED-2)
P6 (PA-MED-1, PA-MED-2, PA-COLL-1)
P7 (PA-COUNSEL-1, PA-COUNSEL-5)
P8 (PA-COUNSEL-2, PA-COUNSEL-3, PA-COUNSEL-4)
P9 (PA-COUNSEL-2, PA-COUNSEL-3, PA-COUNSEL-4, PA-COLL-1)
P10 (PA-WAGES-1, PA-WAGES-2)
P11 (PA-WAGES-1, PA-WAGES-2, PA-COLL-1)
P12 (PA-TRANS-3)
P13 (PA-TRANS-1, PA-TRANS-2)
P14 (PA-TRANS-1, PA-TRANS-2, PA-COLL-1)
P15 (PA-RELOC-1, PA-RELOC-2, PA-RELOC-3)
P16 (PA-RELOC-1, PA-RELOC-2, PA-RELOC-3, PA-COLL-1)
P17 (PA-RELOC-4)
P18 (PA-RELOC-4, PA-COLL-1)
P19 (PA-CLEAN-1)
P20 (PA-CLEAN-1, PA-COLL-1)
P21 (PA-CHILD-1)
P22 (PA-CHILD-1, PA-COLL-1)
P23 (PA-MED-3)
P24 (PA-MED-3, PA-COLL-1)
P25 (PA-MIN-1)
P26 (PA-DEADLINE-1)
P27 (PA-REPORT-1, PA-REPORT-2, PA-REPORT-3, PA-REPORT-4)
P28 (PA-COLL-1, PA-COND-1, PA-COND-2, PA-EMERG-1, PA-CRIME-1, PA-RES-1, PA-RES-2, PA-SUBMIT-1, PA-SUBMIT-2, PA-SUBMIT-3, PA-DOC-1, PA-DOC-2, PA-DOC-3, PA-DOC-4, PA-DOC-5, PA-DOC-6, PA-DOC-7, PA-DOC-8, PA-DOC-9, PA-TIME-1, PA-TIME-2, PA-ACP-1, PA-RECCONF-1)
.ints
K0 7500
K1 3000
K2 100000
K3 1000000
K4 1500000
K5 50000
K6 3500000
K7 5000
.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 L50
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 -> L57
case childcare -> L65
case property_replacement -> L73
case clothing_bedding -> L50
case prescription -> L50
case dental -> L50
case funeral -> L50
case legal -> L50
case tuition -> L50
case other -> L50
case unknown -> L50
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, R33
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: alts P7
017b ldi confirmed
017d jnz L17
0182 push 0
0187 decide needs_confirmation, P8
018b ret
018c L17: ldi amount_cents
018e decide eligible, P9
0192 lda
0193 ldi insurance_paid_cents
0195 subs
0196 push 0
019b max
019c seta collateral, R33
01a0 ret
01a1 L18: push 0
01a6 str r0
01a8 ldi tags
01aa push 1
01af and
01b0 jz L19
01b5 ldr r0
01b7 push 1
01bc or
01bd str r0
01bf L19: ldi tags
01c1 push 2
01c6 and
01c7 jz L20
01cc ldr r0
01ce push 2
01d3 or
01d4 str r0
01d6 L20: ldr r0
01d8 switch 4, default L24
case 0 -> L24
case 1 -> L21
case 2 -> L22
case 3 -> L23
01ee L21: push 0
01f3 decide excluded, P2
01f7 ret
01f8 L22: push 0
01fd decide excluded, P3
0201 ret
0202 L23: push 0
0207 decide excluded, P4
020b ret
020c L24: ldi confirmed
020e jnz L25
0213 push 0
0218 decide needs_confirmation, P10
021c ret
021d L25: ldi amount_cents
021f decide eligible, P11
0223 lda
0224 ldi insurance_paid_cents
0226 subs
0227 push 0
022c max
022d seta collateral, R33
0231 ret
0232 L26: push 0
0237 str r0
0239 ldi tags
023b push 1
0240 and
0241 jz L27
0246 ldr r0
0248 push 1
024d or
024e str r0
0250 L27: ldi tags
0252 push 2
0257 and
0258 jz L28
025d ldr r0
025f push 2
0264 or
0265 str r0
0267 L28: ldr r0
0269 switch 4, default L32
case 0 -> L32
case 1 -> L29
case 2 -> L30
case 3 -> L31
027f L29: push 0
0284 decide excluded, P2
0288 ret
0289 L30: push 0
028e decide excluded, P3
0292 ret
0293 L31: push 0
0298 decide excluded, P4
029c ret
029d L32: alts P12
02a0 ldi confirmed
02a2 jnz L33
02a7 push 0
02ac decide needs_confirmation, P13
02b0 ret
02b1 L33: ldi amount_cents
02b3 decide eligible, P14
02b7 lda
02b8 ldi insurance_paid_cents
02ba subs
02bb push 0
02c0 max
02c1 seta collateral, R33
02c5 ret
02c6 L34: push 0
02cb str r0
02cd ldi tags
02cf push 1
02d4 and
02d5 jz L35
02da ldr r0
02dc push 1
02e1 or
02e2 str r0
02e4 L35: ldi tags
02e6 push 2
02eb and
02ec jz L36
02f1 ldr r0
02f3 push 2
02f8 or
02f9 str r0
02fb L36: ldr r0
02fd switch 4, default L40
case 0 -> L40
case 1 -> L37
case 2 -> L38
case 3 -> L39
0313 L37: push 0
0318 decide excluded, P2
031c ret
031d L38: push 0
0322 decide excluded, P3
0326 ret
0327 L39: push 0
032c decide excluded, P4
0330 ret
0331 L40: ldi confirmed
0333 jnz L41
0338 push 0
033d decide needs_confirmation, P15
0341 ret
0342 L41: ldi amount_cents
0344 decide eligible, P16
0348 lda
0349 ldi insurance_paid_cents
034b subs
034c push 0
0351 max
0352 seta collateral, R33
0356 ret
0357 L42: push 0
035c str r0
035e ldi tags
0360 push 1
0365 and
0366 jz L43
036b ldr r0
036d push 1
0372 or
0373 str r0
0375 L43: ldi tags
0377 push 2
037c and
037d jz L44
0382 ldr r0
0384 push 2
0389 or
038a str r0
038c L44: ldr r0
038e switch 4, default L48
case 0 -> L48
case 1 -> L45
case 2 -> L46
case 3 -> L47
03a4 L45: push 0
03a9 decide excluded, P2
03ad ret
03ae L46: push 0
03b3 decide excluded, P3
03b7 ret
03b8 L47: push 0
03bd decide excluded, P4
03c1 ret
03c2 L48: ldi confirmed
03c4 jnz L49
03c9 push 0
03ce decide needs_confirmation, P17
03d2 ret
03d3 L49: ldi amount_cents
03d5 decide eligible, P18
03d9 lda
03da ldi insurance_paid_cents
03dc subs
03dd push 0
03e2 max
03e3 seta collateral, R33
03e7 ret
03e8 L50: push 0
03ed str r0
03ef ldi tags
03f1 push 1
03f6 and
03f7 jz L51
03fc ldr r0
03fe push 1
0403 or
0404 str r0
0406 L51: ldi tags
0408 push 2
040d and
040e jz L52
0413 ldr r0
0415 push 2
041a or
041b str r0
041d L52: ldr r0
041f switch 4, default L56
case 0 -> L56
case 1 -> L53
case 2 -> L54
case 3 -> L55
0435 L53: push 0
043a decide excluded, P2
043e ret
043f L54: push 0
0444 decide excluded, P3
0448 ret
0449 L55: push 0
044e decide excluded, P4
0452 ret
0453 L56: push 0
0458 decide unknown_rule, P0
045c ret
045d L57: push 0
0462 str r0
0464 ldi tags
0466 push 1
046b and
046c jz L58
0471 ldr r0
0473 push 1
0478 or
0479 str r0
047b L58: ldi tags
047d push 2
0482 and
0483 jz L59
0488 ldr r0
048a push 2
048f or
0490 str r0
0492 L59: ldr r0
0494 switch 4, default L63
case 0 -> L63
case 1 -> L60
case 2 -> L61
case 3 -> L62
04aa L60: push 0
04af decide excluded, P2
04b3 ret
04b4 L61: push 0
04b9 decide excluded, P3
04bd ret
04be L62: push 0
04c3 decide excluded, P4
04c7 ret
04c8 L63: ldi confirmed
04ca jnz L64
04cf push 0
04d4 decide needs_confirmation, P19
04d8 ret
04d9 L64: ldi amount_cents
04db decide eligible, P20
04df lda
04e0 ldi insurance_paid_cents
04e2 subs
04e3 push 0
04e8 max
04e9 seta collateral, R33
04ed ret
04ee L65: push 0
04f3 str r0
04f5 ldi tags
04f7 push 1
04fc and
04fd jz L66
0502 ldr r0
0504 push 1
0509 or
050a str r0
050c L66: ldi tags
050e push 2
0513 and
0514 jz L67
0519 ldr r0
051b push 2
0520 or
0521 str r0
0523 L67: ldr r0
0525 switch 4, default L71
case 0 -> L71
case 1 -> L68
case 2 -> L69
case 3 -> L70
053b L68: push 0
0540 decide excluded, P2
0544 ret
0545 L69: push 0
054a decide excluded, P3
054e ret
054f L70: push 0
0554 decide excluded, P4
0558 ret
0559 L71: ldi confirmed
055b jnz L72
0560 push 0
0565 decide needs_confirmation, P21
0569 ret
056a L72: ldi amount_cents
056c decide eligible, P22
0570 lda
0571 ldi insurance_paid_cents
0573 subs
0574 push 0
0579 max
057a seta collateral, R33
057e ret
057f L73: push 0
0584 str r0
0586 ldi tags
0588 push 1
058d and
058e jz L74
0593 ldr r0
0595 push 1
059a or
059b str r0
059d L74: ldi tags
059f push 2
05a4 and
05a5 jz L75
05aa ldr r0
05ac push 2
05b1 or
05b2 str r0
05b4 L75: ldr r0
05b6 switch 4, default L79
case 0 -> L79
case 1 -> L76
case 2 -> L77
case 3 -> L78
05cc L76: push 0
05d1 decide excluded, P2
05d5 ret
05d6 L77: push 0
05db decide excluded, P3
05df ret
05e0 L78: push 0
05e5 decide excluded, P4
05e9 ret
05ea L79: ldi confirmed
05ec jnz L80
05f1 push 0
05f6 decide needs_confirmation, P23
05fa ret
05fb L80: ldi amount_cents
05fd decide eligible, P24
0601 lda
0602 ldi insurance_paid_cents
0604 subs
0605 push 0
060a max
060b seta collateral, R33
060f ret
.aggregate
0000 each temporary_housing, L4
0006 L0: ldi unit
0008 push 5
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, R17
0032 jmp L3
0037 L1: pop
0038 jmp L3
003d L2: flag R17
0040 L3: next L0
0045 L4: each transportation, L9
004b L5: ldi unit
004d push 5
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, R19
0077 jmp L8
007c L6: pop
007d jmp L8
0082 L7: flag R19
0085 L8: next L5
008a L9: push 0
008f str r0
0091 push 0
0096 str r1
0098 each forensic_exam, 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, R6
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, R6
00d7 L13: next L10
00dc L14: push 0
00e1 str r0
00e3 push 0
00e8 str r1
00ea each counseling, 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 lost_wages, L24
0142 L20: ldr r1
0144 jnz L22
0149 ldr r0
014b lda
014c adds
014d ldk K4
0150 gt
0151 jz L21
0156 ldk K4
0159 ldr r0
015b subs
015c cap expense_cap, R12
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, R12
017b L23: next L20
0180 L24: push 0
0185 str r0
0187 push 0
018c str r1
018e each relocation, L29
0194 L25: ldr r1
0196 jnz L27
019b ldr r0
019d lda
019e adds
019f ldk K2
01a2 gt
01a3 jz L26
01a8 ldk K2
01ab ldr r0
01ad subs
01ae cap expense_cap, R14
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, R14
01cd L28: next L25
01d2 L29: push 0
01d7 str r0
01d9 push 0
01de str r1
01e0 each property_replacement, L34
01e6 L30: ldr r1
01e8 jnz L32
01ed ldr r0
01ef lda
01f0 adds
01f1 ldk K2
01f4 gt
01f5 jz L31
01fa ldk K2
01fd ldr r0
01ff subs
0200 cap expense_cap, R22
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, R22
021f L33: next L30
0224 L34: push 0
0229 str r0
022b push 0
0230 str r1
0232 each crime_scene_cleanup, 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 expense_cap, R24
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 expense_cap, R24
0271 L38: next L35
0276 L39: push 0
027b str r0
027d push 0
0282 str r1
0284 each all, L44
028a L40: ldr r1
028c jnz L42
0291 ldr r0
0293 lda
0294 adds
0295 ldk K6
0298 gt
0299 jz L41
029e ldk K6
02a1 ldr r0
02a3 subs
02a4 cap total_cap, R8
02a8 push 1
02ad str r1
02af L41: ldr r0
02b1 lda
02b2 adds
02b3 str r0
02b5 jmp L43
02ba L42: push 0
02bf cap total_cap, R8
02c3 L43: next L40
02c8 L44: push 0
02cd str r0
02cf each all, L46
02d5 L45: ldr r0
02d7 lda
02d8 adds
02d9 str r0
02db next L45
02e0 L46: push 0
02e5 str r2
02e7 ldr r0
02e9 ldk K7
02ec ge
02ed jnz L47
02f2 push 4
02f7 ldr r2
02f9 max
02fa str r2
02fc L47: ldr r2
02fe check minimum_loss, P25
0302 ldx incident_date
0304 push 1826
0309 adds
030a dup
030b setdate
030c ldx as_of_date
030e ge
030f jz L48
0314 push 0
0319 jmp L49
031e L48: push 1
0323 L49: note deadline_from_discovery
0325 check deadline, P26
0329 ldx police_report
032b push 1
0330 eq
0331 jnz L51
0336 ldx forensic_exam
0338 jnz L51
033d ldx police_report
033f push 0
0344 eq
0345 jnz L50
034a push 3
034f jmp L52
0354 L50: push 1
0359 jmp L52
035e L51: push 0
0363 L52: check reporting, P27
0367 info P28
036a ret