Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- dim print_row = a
- dim current_col = b
- dim current_row = c
- dim byte_col = d
- dim current_byte = e
- dim ds_index = f
- WritePFChunk
- print_row = 0
- for ds_index = 0 to 3
- for current_row = 0 to 172 step 4
- current_col = 0
- for byte_col = 0 to 3
- current_byte = current_row | byte_col
- on ds_index goto DCASE0 DCASE1 DCASE2 DCASE3
- BYTE_DONE
- next
- print_row = print_row + 1
- next
- next
- return
- DCASE0 current_byte = L4_0[current_byte] : goto CONT_WRITE_PF
- DCASE1 current_byte = L4_1[current_byte] : goto CONT_WRITE_PF
- DCASE2 current_byte = L4_2[current_byte] : goto CONT_WRITE_PF
- DCASE3 current_byte = L4_3[current_byte]
- CONT_WRITE_PF
- if current_byte & $80 then gosub PIXEL_ON
- current_col = current_col + 1
- if current_byte & $40 then gosub PIXEL_ON
- current_col = current_col + 1
- if current_byte & $20 then gosub PIXEL_ON
- current_col = current_col + 1
- if current_byte & $10 then gosub PIXEL_ON
- current_col = current_col + 1
- if current_byte & $08 then gosub PIXEL_ON
- current_col = current_col + 1
- if current_byte & $04 then gosub PIXEL_ON
- current_col = current_col + 1
- if current_byte & $02 then gosub PIXEL_ON
- current_col = current_col + 1
- if current_byte & $01 then gosub PIXEL_ON
- current_col = current_col + 1
- goto BYTE_DONE
- PIXEL_ON
- asm
- LDA $D7
- LDY $D6
- LDX #0
- JMP pfpixel
- end
- data L4_0
- %00000111,%11111111,%11111110,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%10000000,%00010000,%00000000
- %00000010,%00000000,%00000100,%00000000
- %00001101,%11111111,%11111011,%00000000
- %00000000,%00100010,%00100010,%00000000
- %00000101,%01010101,%01010001,%00000000
- %00001000,%10001000,%10001000,%00000000
- %00001101,%11111111,%11111011,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00001001,%00000000,%00001001,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00001001,%00000000,%00001001,%00000000
- %00000000,%00000000,%00000000,%00000000
- end
- data L4_1
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00001001,%00000000,%00001001,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00001001,%00000000,%00001001,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00001001,%00000000,%00001001,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00001001,%00000000,%00001001,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00001001,%00000000,%00001001,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000010,%00000000,%00000100,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00011101,%11111111,%11111011,%10000000
- %00000000,%00100010,%00100010,%00000000
- %00010101,%01010101,%01010001,%00000000
- %00001000,%10001000,%10001000,%10000000
- %00011101,%11111111,%11111011,%10000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00010000,%00000100,%00000000,%10000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00010000,%00000100,%00000000,%10000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00010000,%00000100,%00000000,%10000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00010000,%00000100,%00000000,%10000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- end
- data L4_2
- %00000000,%00000000,%00000000,%00000000
- %00010000,%00000100,%00000000,%10000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00010000,%00000100,%00000000,%10000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00010000,%00000100,%00000000,%10000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000010,%00000000,%00000100,%00000000
- %00111101,%11111111,%11111011,%11000000
- %00100000,%00100010,%00100010,%00000000
- %00010101,%01010101,%01010001,%01000000
- %00001000,%10001000,%10001000,%10000000
- %00111101,%11111111,%11111011,%11000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00100000,%01000000,%00100000,%01000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00100000,%01000000,%00100000,%01000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00100000,%01000000,%00100000,%01000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00100000,%01000000,%00100000,%01000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00100000,%01000000,%00100000,%01000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00100000,%01000000,%00100000,%01000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- end
- data L4_3
- %00100000,%01000000,%00100000,%01000000
- %00000000,%00000000,%00000000,%00000000
- %00000010,%00000000,%00000100,%00000000
- %00000000,%00000000,%00000000,%00000000
- %01111101,%11111111,%11111011,%11100000
- %00100000,%00100010,%00100010,%00100000
- %01010101,%01010101,%01010001,%01000000
- %00001000,%10001000,%10001000,%10000000
- %01111101,%11111111,%11111011,%11100000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %01000000,%00000100,%00000000,%00100000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %01000000,%00000100,%00000000,%00100000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %01000000,%00000100,%00000000,%00100000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %01000000,%00000100,%00000000,%00100000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %01000000,%00000100,%00000000,%00100000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %01000000,%00000100,%00000000,%00100000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %01000000,%00000100,%00000000,%00100000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %00000000,%00000000,%00000000,%00000000
- %11111111,%11111111,%11111111,%11110000
- %00100010,%00100010,%00100010,%00100000
- %01010101,%01010101,%01010101,%01010000
- %10001000,%10001000,%10001000,%10000000
- %11111111,%11111111,%11111111,%11110000
- %00000000,%00000000,%00000000,%00000000
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement