I found a poor solution to getting portraits in.
Load Portrait Disassembly:
$C2/EC38 08 PHP
$C2/EC39 E2 30 SEP #$30
$C2/EC3B AE 46 0D LDX $0D46 [$7E:0D46]
$C2/EC3E BF 70 CE FF LDA $FFCE70,x[$FF:FD4E]
$C2/EC42 85 00 STA $00 [$00:0000]
$C2/EC44 A0 06 LDY #$06
$C2/EC46 C2 30 REP #$30
$C2/EC48 A6 61 LDX $61
$C2/EC4A A5 00 LDA $00 [$00:0000]
$C2/EC4C 9D 00 00 STA $0000,x[$7E:2EDE]
$C2/EC4F 1A INC A
$C2/EC50 9D 02 00 STA $0002,x[$7E:2EE0]
$C2/EC53 1A INC A
$C2/EC54 9D 04 00 STA $0004,x[$7E:2EE2]
$C2/EC57 1A INC A
$C2/EC58 9D 06 00 STA $0006,x[$7E:2EE4]
$C2/EC5B 1A INC A
$C2/EC5C 9D 08 00 STA $0008,x[$7E:2EE6]
$C2/EC5F 1A INC A
$C2/EC60 9D 0A 00 STA $000A,x[$7E:2EE8]
$C2/EC63 1A INC A
$C2/EC64 85 00 STA $00 [$00:0000]
$C2/EC66 8A TXA
$C2/EC67 18 CLC
$C2/EC68 69 40 00 ADC #$0040
$C2/EC6B AA TAX
$C2/EC6C 88 DEY
$C2/EC6D D0 DB BNE $DB [$EC4A]
It can be replaced with smaller portraits, with just a few modifications.
Modified Load Portrait Disassembly:
$C2/EC38 08 PHP
$C2/EC39 E2 30 SEP #$30
$C2/EC3B AE 46 0D LDX $0D46
$C2/EC3E BF 70 CE FF LDA $FFCE70,x[$FF:FD4E]
$C2/EC42 85 00 STA $00 [$00:0000]
$C2/EC44 A0 05 LDY #$05
$C2/EC46 C2 30 REP #$30
$C2/EC48 A6 61 LDX $61
$C2/EC4A A5 00 LDA $00
$C2/EC4C 9D 00 00 STA $0000,x[$7E:2EDE]
$C2/EC4F 1A INC A
$C2/EC50 9D 02 00 STA $0002,x[$7E:2EE0]
$C2/EC53 1A INC A
$C2/EC54 9D 04 00 STA $0004,x[$7E:2EE2]
$C2/EC57 1A INC A
$C2/EC58 9D 06 00 STA $0006,x[$7E:2EE4]
$C2/EC5B 1A INC A
$C2/EC5C 9D 08 00 STA $0008,x[$7E:2EE6]
$C2/EC5F 1A INC A
$C2/EC60 EA NOP
$C2/EC61 EA NOP
$C2/EC62 EA NOP
$C2/EC63 EA NOP
$C2/EC64 85 00 STA $00 [$00:0000]
$C2/EC66 8A TXA
$C2/EC67 18 CLC
$C2/EC68 69 40 00 ADC #$0040
$C2/EC6B AA TAX
$C2/EC6C 88 DEY
$C2/EC6D D0 DB BNE $DB [$EC4A]