procedure unroll5_unroll();
begin asm(" 
 ldx #$00
 lda cols,x
 sta $d9f8
 sta $d9f9
 sta $d9fa
 sta $d9f5
 sta $d9f6
 sta $d9f7
 sta $d9fb
 sta $d9fc
 sta $d9fd
 sta $d9f4
 sta $da1e
 sta $da1f
 sta $da20
 sta $da21
 sta $da22
 sta $da23
 sta $da24
 sta $da25
 sta $da4c
 sta $da4d
 ldx #$01
 lda cols,x
 sta $da1d
 sta $da46
 sta $da47
 sta $da48
 sta $da49
 sta $da4a
 sta $da4b
 sta $da70
 sta $da71
 sta $da72
 sta $da73
 sta $da74
 sta $da75
 sta $da9b
 sta $da9c
 sta $da9d
 ldx #$02
 lda cols,x
 sta $da1c
 sta $da45
 sta $da6e
 sta $da6f
 sta $da97
 sta $da98
 sta $da99
 sta $da9a
 ldx #$03
 lda cols,x
 sta $da44
 sta $da6c
 sta $da6d
 sta $da94
 sta $da95
 sta $da96
 ldx #$04
 lda cols,x
 sta $d9f3
 sta $da1b
 sta $da43
 sta $da42
 sta $da6a
 sta $da6b
 sta $da92
 sta $da93
 ldx #$05
 lda cols,x
 sta $da1a
 sta $da41
 sta $da40
 sta $da68
 sta $da69
 sta $da67
 sta $da8f
 sta $da90
 sta $da91
 ldx #$06
 lda cols,x
 sta $d9f2
 sta $da19
 sta $da18
 sta $da17
 sta $da3f
 sta $da3e
 sta $da3d
 sta $da64
 sta $da65
 sta $da66
 sta $da63
 sta $da62
 ldx #$07
 lda cols,x
 sta $d9f0
 sta $d9f1
 sta $d9ee
 sta $d9ef
 sta $d9ed
 sta $da15
 sta $da16
 sta $da3c
 sta $da3b
 ldx #$08
 lda cols,x
 sta $d9c4
 sta $d9c5
 sta $d9c6
 sta $d9c7
 sta $d9c8
 sta $d9c9
 ldx #$09
 lda cols,x
 sta $d94a
 sta $d94b
 sta $d94c
 sta $d973
 sta $d974
 sta $d975
 sta $d976
 sta $d977
 sta $d99b
 sta $d99c
 sta $d99d
 sta $d99e
 sta $d99f
 sta $d9a0
 sta $d9a1
 sta $d9ca
 sta $d9cb
 ldx #$0a
 lda cols,x
 sta $d85a
 sta $d882
 sta $d883
 sta $d8aa
 sta $d8ab
 sta $d8ac
 sta $d8d2
 sta $d8d3
 sta $d8d4
 sta $d8d5
 sta $d8d6
 sta $d8fa
 sta $d8fb
 sta $d8fc
 sta $d8fd
 sta $d8fe
 sta $d923
 sta $d924
 sta $d925
 sta $d926
 sta $d927
 sta $d928
 sta $d94d
 sta $d94e
 sta $d94f
 sta $d950
 sta $d951
 sta $d978
 sta $d979
 sta $d9a2
 ldx #$0b
 lda cols,x
 sta $d80c
 sta $d80d
 sta $d80e
 sta $d80f
 sta $d810
 sta $d811
 sta $d834
 sta $d835
 sta $d836
 sta $d837
 sta $d838
 sta $d839
 sta $d85d
 sta $d85e
 sta $d85f
 sta $d860
 sta $d861
 sta $d885
 sta $d886
 sta $d887
 sta $d888
 sta $d889
 sta $d88a
 sta $d8ae
 sta $d8af
 sta $d8b0
 sta $d8b1
 sta $d8b2
 sta $d8d7
 sta $d8d8
 sta $d8d9
 sta $d8da
 sta $d8ff
 sta $d900
 sta $d901
 sta $d902
 sta $d903
 sta $d929
 sta $d92a
 sta $d92b
 sta $d952
 sta $d953
 sta $d97a
 sta $d97b
 sta $d9a3
 sta $d9a4
 sta $d9cc
 ldx #$0c
 lda cols,x
 sta $d814
 sta $d815
 sta $d816
 sta $d817
 sta $d818
 sta $d819
 sta $d83c
 sta $d83d
 sta $d83e
 sta $d83f
 sta $d840
 sta $d864
 sta $d865
 sta $d866
 sta $d867
 sta $d868
 sta $d88c
 sta $d88d
 sta $d88e
 sta $d88f
 sta $d8b4
 sta $d8b5
 sta $d8b6
 sta $d8b7
 sta $d8dc
 sta $d8dd
 sta $d8de
 sta $d8df
 sta $d8db
 sta $d904
 sta $d905
 sta $d906
 sta $d92c
 sta $d92d
 sta $d92e
 sta $d954
 sta $d955
 sta $d956
 sta $d97c
 sta $d97d
 sta $d9a5
 ldx #$0d
 lda cols,x
 sta $d81c
 sta $d81d
 sta $d81b
 sta $d843
 sta $d844
 sta $d845
 sta $d86b
 sta $d86c
 sta $d86d
 sta $d86a
 sta $d892
 sta $d893
 sta $d894
 sta $d895
 sta $d891
 sta $d8b9
 sta $d8ba
 sta $d8bb
 sta $d8bc
 sta $d8bd
 sta $d8e0
 sta $d8e1
 sta $d8e2
 sta $d8e3
 sta $d8e4
 sta $d8e5
 sta $d908
 sta $d909
 sta $d90a
 sta $d90b
 sta $d90c
 sta $d907
 sta $d92f
 sta $d930
 sta $d931
 sta $d932
 sta $d957
 sta $d958
 sta $d959
 sta $d97e
 sta $d97f
 sta $d980
 sta $d9a6
 sta $d9a7
 sta $d9cd
 sta $d9ce
 ldx #$0e
 lda cols,x
 sta $d90d
 sta $d934
 sta $d935
 sta $d933
 sta $d95a
 sta $d95b
 sta $d95c
 sta $d95d
 sta $d981
 sta $d982
 sta $d983
 sta $d984
 sta $d985
 sta $d9a8
 sta $d9a9
 sta $d9aa
 sta $d9ab
 sta $d9cf
 sta $d9d0
 ldx #$0f
 lda cols,x
 sta $d9ac
 sta $d9ad
 sta $d9d1
 sta $d9d2
 sta $d9d3
 sta $d9d4
 sta $d9d5
"); end;