Assembler Code
seg000:00008051 lda A, word_815B
seg000:00008054 pha
seg000:00008055 pea #0
seg000:00008058 pea #80h ; '€'
seg000:0000805B pea #0
seg000:0000805E pea #817Ch
seg000:00008061 jsrl sub_1800D
seg000:00008065 lda A, #6B7h
seg000:00008068 tas
seg000:00008069 lda A, word_8151
seg000:0000806C pha
seg000:0000806D lda A, word_814F
seg000:00008070 pha
seg000:00008071 pea #1
seg000:00008074 pea #2010h
seg000:00008077 jsrl sub_1803F
seg000:0000807B lda A, word_8155
seg000:0000807E pha
seg000:0000807F lda A, word_8153
seg000:00008082 pha
seg000:00008083 pea #1
seg000:00008086 pea #2014h
seg000:00008089 jsrl sub_1803F
seg000:0000808D lda A, word_8165
seg000:00008090 pha
seg000:00008091 lda A, word_8163
seg000:00008094 pha
seg000:00008095 pea #1
seg000:00008098 pea #2000h
seg000:0000809B pea #1
seg000:0000809E pea #0AED5h
seg000:000080A1 jsrl sub_1800D
seg000:000080A5 lda A, word_8161
seg000:000080A8 pha
seg000:000080A9 lda A, word_815F