home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / bbintro.lha / BootIntro3.s / bootintro3.1 next >
Encoding:
Text File  |  1980-01-01  |  17.5 KB  |  1,041 lines
  1. org    $40000
  2. load    $40000
  3. **********************
  4. *** Bootchooser by ***
  5. *** BTC and Yankee ***
  6. **********************
  7. s:
  8. clr.w    $100
  9. clr.l    d0
  10. movem.l    a0-a6/d0-d7,-(sp)
  11. move.l    $80,oldirq
  12. move.l    #newjmp,$80
  13. trap    #0
  14. move.l    #oldirq,$80
  15. movem.l    (sp)+,a0-a6/d0-d7
  16. rts
  17. newjmp:
  18. bsr    start_muzak
  19.  
  20. bsr    calc
  21.  
  22. lea    $50000,a0
  23. lea    $60000,a1
  24. clear1:
  25. clr.l    (a0)+
  26. cmp.l    a0,a1
  27. bne    clear1
  28.  
  29. bsr    makeline
  30. bset    #1,$bfe001
  31. lea    $dff000,a6
  32. move.w    2(a6),help
  33. move.w    28(a6),help+2
  34. move.w    #$3fff,154(a6)
  35. move.w    #$87e0,150(a6)
  36. move.l    #newclist,128(a6)
  37. move.w    136(a6),d0
  38. clr.w    $dff1bc
  39. maus:
  40. cmp.b    #$ff,$dff006
  41. bne    maus
  42. wait30:
  43. cmp.b    #$30,$dff006
  44. bne    wait30
  45. bsr    scroll
  46. bsr    replay_muzak
  47. btst    #6,$bfe001
  48. bne    maus
  49. move.l    $4,a6
  50. lea    gfxbase,a1
  51. jsr    -408(a6)
  52. lea    $dff000,a6
  53. move.l    d0,a0
  54. move.w    #$7fff,150(a6)
  55. move.l    38(a0),128(a6)
  56. move.w    136(a6),d0
  57. or.l    #$80008000,help
  58. move.w    help,150(a6)
  59. move.w    help+2,154(a6)
  60. bclr    #1,$bfe001
  61. bsr    stop_muzak
  62. move.w    #$2700,SR
  63. rte
  64. SL:
  65. dc.w    0
  66. l:
  67. dc.w    0
  68. Help:
  69. dc.l    0
  70. gfxbase:
  71. dc.b    "graphics.library",0,0
  72. oldirq:
  73. dc.l    0
  74.  
  75. getchar:
  76. move.w    #7,d0
  77. loop1:
  78. move.b    (a0)+,(a1)
  79. add.l    #40,a1
  80. dbf    d0,loop1
  81. rts
  82.  
  83. calc:
  84. move.l    #endtext-text,d0
  85. sub.l    #1,d0
  86. divu    #40,d0
  87. sub.l    #2,d0
  88. move.l    d0,d1
  89. move.w    d0,l
  90. mulu    #8,d0
  91. move.w    d0,sl
  92. rts
  93.  
  94. makeline:
  95. lea    $50000,a1
  96. move.w    l,d4
  97. lea    text,a2
  98. oneline:
  99. move.w    #39,d1
  100. noline:
  101. lea    bitplane,a0
  102. lea    ascii,a3
  103. move.l    a3,a4
  104. move.b    (a2)+,d0
  105. cont:
  106. cmp.b    (a3)+,d0
  107. bne    cont
  108. sub.l    #1,a3
  109. sub.l    a4,a3
  110. move.l    a3,d3
  111. lsl.l    #3,d3
  112. add.l    d3,a0
  113. bsr    getchar
  114. sub.l    #[8*40]-1,a1
  115. dbf    d1,noline
  116. add.l    #[8*40],a1
  117. dbf    d4,oneline
  118. rts
  119.  
  120. scroll:
  121. lea    m1,a0
  122. clr.l    d0
  123. move.w    reihe,d0
  124. mulu    #40,d0
  125. move.w    d0,(a0)
  126. add.w    #1,reihe
  127. move.w    reihe,d3
  128. cmp.w    sl,d3
  129. blt    by
  130. clr.w    reihe
  131. by:
  132. rts
  133. reihe:
  134. dc.w    0
  135.  
  136. newclist:
  137. dc.w    $008e,$2c81,$0090,$2cc1,$0092,$0038,$0094,$00d0
  138. dc.w    $0102,$0000,$0104,$0000,$0108,$0000,$010a,$0000
  139. dc.w    $120,0,$122,0,$124,0,$126,0,$128,0,$12a,0,$12c,0,$12e,0
  140. dc.w    $130,0,$132,0,$134,0,$136,0,$138,0,$13a,0,$13c,0,$13e,0
  141. dc.w    $192,$00
  142.  
  143. dc.w    $0100,$0200,$0180,$0000
  144. dc.w    $2c11,$fffe,$0180,$0400
  145. dc.w    $2d11,$fffe,$0180,$0600
  146. dc.w    $2e11,$fffe,$0180,$0700
  147. dc.w    $3011,$fffe,$0180,$0800
  148. dc.w    $3111,$fffe,$0180,$0900
  149. dc.w    $3211,$fffe,$0180,$0a00
  150.  
  151. dc.w    $3611,$fffe
  152. dc.w    $00e0,$0005,$00e2,$0000,$0100,$1200,$0108,$ffd8,$182,$eee
  153. dc.w    $3811,$fffe,$108,0
  154. dc.w    $3911,$fffe,$108,$ffd8
  155. dc.w    $00e4,$0005,$00e6,$0000,$0100,$2400,$102,$20,$010a,$ffd8
  156. dc.w    $3b11,$fffe,$108,0,$10a,$0
  157. dc.w    $3c11,$fffe,$108,$ffd8,$10a,$ffd8
  158. dc.w    $3e11,$fffe,$108,0,$10a,0
  159. dc.w    $3f11,$fffe,$108,$ffd8,$10a,$ffd8
  160. dc.w    $4111,$fffe,$108,0,$10a,0
  161. dc.w    $4211,$fffe,$108,$ffd8,$10a,$ffd8
  162. dc.w    $4411,$fffe,$108,0,$10a,0
  163. dc.w    $4511,$fffe,$108,$ffd8,$10a,$ffd8
  164. dc.w    $4711,$fffe,$108,0,$10a,0
  165. dc.w    $4811,$fffe,$108,$ffd8,$10a,$ffd8
  166. dc.w    $4a11,$fffe,$108,0,$10a,0
  167. dc.w    $4b11,$fffe,$10a,$ffd8
  168. dc.w    $4d11,$fffe,$10a,0
  169.  
  170. dc.w    $4f11,$fffe,$0100,$0200
  171. dc.w    $5011,$fffe,$0180,$0900
  172. dc.w    $5111,$fffe,$0180,$0800
  173. dc.w    $5211,$fffe,$0180,$0700
  174. dc.w    $5311,$fffe,$0180,$0600
  175. dc.w    $5411,$fffe,$0180,$0400
  176. dc.w    $5511,$fffe,$0180,$0000
  177. dc.w    $0100,$1200,$182,0
  178. dc.w    $00e0,$0005,$00e2,$0000+[18*40]
  179. dc.w    $5611,$fffe,$0180,$0000,$0102,$0,$108
  180. m1:
  181. dc.w    0,$182,0
  182. dc.w    $5711,$fffe,$108,0
  183.  
  184. dc.w    $6011,$fffe,$182,$000
  185. dc.w    $6111,$fffe,$182,$111
  186. dc.w    $6211,$fffe,$182,$222
  187. dc.w    $6311,$fffe,$182,$333
  188. dc.w    $6411,$fffe,$182,$444
  189. dc.w    $6511,$fffe,$182,$666
  190. dc.w    $6611,$fffe,$182,$888
  191. dc.w    $6711,$fffe,$182,$aaa
  192. dc.w    $6811,$fffe,$182,$ccc
  193. dc.w    $6911,$fffe,$182,$ddd
  194.  
  195. dc.w    $ffe1,$fffe,$0190,$0000
  196. dc.w    $1e11,$fffe,$0182,$0aaa
  197. dc.w    $1f11,$fffe,$0182,$0888
  198. dc.w    $2011,$fffe,$0182,$0666
  199. dc.w    $2111,$fffe,$0182,$0555
  200. dc.w    $2211,$fffe,$0182,$0444
  201. dc.w    $2311,$fffe,$0182,$0333
  202. dc.w    $2411,$fffe,$0182,$0222
  203. dc.w    $2511,$fffe,$0182,$0111
  204. dc.w    $2611,$fffe,$0182,$0
  205. dc.w    $ffff,$fffe
  206. textzeiger:
  207. dc.l    text
  208. text:
  209. dc.b    "          sargon + beastie boys         "
  210. dc.b    "                                        "
  211.  
  212. blk.b    25*40," "
  213.  
  214. dc.b    "sargon and beastie boys proudly present "
  215. dc.b    "                                        "
  216. dc.b    "a new and cool bootintro by by          "
  217. dc.b    "                                        "
  218. dc.b    "it^s only 4k long ...                   "
  219. dc.b    "                                        "
  220. dc.b    "this cool muzak was composed by digitech"
  221. dc.b    "                                        "
  222. dc.b    "--------------- SARGON -----------------"
  223. dc.b    "                                        "
  224. dc.b    "have you seen some cracked games ???    "
  225. dc.b    "no ??? then contact us !!!              "
  226. dc.b    "                                        "
  227. dc.b    "hey crome of phenomena :                "
  228. dc.b    "you and phenomena should join sargon    "
  229. dc.b    "and then you^ll be the leader of the    "
  230. dc.b    "swedish sector !!!                      "
  231. dc.b    "                                        "
  232. dc.b    "we are looking for new members !!!      "
  233. dc.b    "                                        "
  234. dc.b    "contact sargon at : plk 073976 c        "
  235. dc.b    "                    5060 berg.gladbach2 "
  236. dc.b    "                    w.germany           "
  237. dc.b    "                                        "
  238. dc.b    "signing off SARGON                      "
  239.  
  240. blk.b    10*40," "
  241.  
  242. dc.b    0
  243. endtext:
  244.  
  245. ascii:
  246. dc.b    "abcdefghijklmnopqrstuvwxyz0123456789:^/?.,!-+ SARGON",0
  247. start_muzak:
  248.     move.l    #data,muzakoffset    ;** get offset
  249.  
  250. init0:    move.l    muzakoffset,a0        ;** get highest used pattern
  251.     add.l    #472,a0
  252.     move.l    #$80,d0
  253.     clr.l    d1
  254. init1:    move.l    d1,d2
  255.     subq.w    #1,d0
  256. init2:    move.b    (a0)+,d1
  257.     cmp.b    d2,d1
  258.     bgt.s    init1
  259.     dbf    d0,init2
  260.     addq.b    #1,d2
  261.  
  262. init3:    move.l    muzakoffset,a0        ;** calc samplepointers
  263.     lea    pointers,a1
  264.     mulu    #1024,d2
  265.     add.l    #600,d2
  266.     add.l    a0,d2
  267.     move.l    #15-1,d0
  268. init4:    move.l    d2,(a1)+
  269.     clr.l    d1
  270.     move.w    42(a0),d1
  271.     lsl.l    #1,d1
  272.     add.l    d1,d2
  273.     add.l    #30,a0
  274.     dbf    d0,init4
  275.  
  276. init5:    move.w    #$0,$dff0a8        ;** clear used values
  277.     move.w    #$0,$dff0b8
  278.     move.w    #$0,$dff0c8
  279.     move.w    #$0,$dff0d8
  280.     clr.w    timpos
  281.     clr.l    trkpos
  282.     clr.l    patpos
  283.  
  284. init6:    move.l    muzakoffset,a0        ;** initialize timer irq
  285.     move.b    470(a0),numpat+1    ;number of patterns
  286.     move.l    #240,d0
  287.     sub.b    471(a0),d0
  288.     mulu    #122,d0
  289.     move.b    #$0,$bfde00
  290.     move.b    d0,$bfd400
  291.     lsr.w    #8,d0
  292.     move.b    d0,$bfd500
  293.     rts
  294.  
  295. stop_muzak:
  296.     move.w    #$0,$dff0a8
  297.     move.w    #$0,$dff0b8
  298.     move.w    #$0,$dff0c8
  299.     move.w    #$0,$dff0d8
  300.     move.w    #$f,$dff096
  301.     rts
  302.  
  303.  
  304. replay_muzak:
  305.     addq.w    #1,timpos
  306. speed:    cmp.w    #6,timpos
  307.     beq    replaystep
  308.  
  309. chaneleffects:                ;** seek effects
  310.     lea    datach0,a6
  311.     tst.b    3(a6)
  312.     beq.s    ceff1
  313.     lea    $dff0a0,a5
  314.     bsr.s    ceff5
  315. ceff1:    lea    datach1,a6
  316.     tst.b    3(a6)
  317.     beq.s    ceff2
  318.     lea    $dff0b0,a5
  319.     bsr.s    ceff5
  320. ceff2:    lea    datach2,a6
  321.     tst.b    3(a6)
  322.     beq.s    ceff3
  323.     lea    $dff0c0,a5
  324.     bsr.s    ceff5
  325. ceff3:    lea    datach3,a6
  326.     tst.b    3(a6)
  327.     beq.s    ceff4
  328.     lea    $dff0d0,a5
  329.     bsr.s    ceff5
  330. ceff4:    rts
  331.  
  332. ceff5:    move.b    2(a6),d0        ;room for some more
  333.     and.b    #$0f,d0            ;implementations below
  334.     tst.b    d0
  335.     beq.s    arpreggiato
  336.     cmp.b    #1,d0
  337.     beq    pitchup
  338.     cmp.b    #2,d0
  339.     beq    pitchdown
  340.     cmp.b    #12,d0
  341.     beq    setvol
  342.     cmp.b    #14,d0
  343.     beq    setfilt
  344.     cmp.b    #15,d0
  345.     beq    setspeed
  346.     rts
  347.  
  348. arpreggiato:                ;** spread by time
  349.     cmp.w    #1,timpos
  350.     beq.s    arp1
  351.     cmp.w    #2,timpos
  352.     beq.s    arp2
  353.     cmp.w    #3,timpos
  354.     beq.s    arp3
  355.     cmp.w    #4,timpos
  356.     beq.s    arp1
  357.     cmp.w    #5,timpos
  358.     beq.s    arp2
  359.     rts
  360.  
  361. arp1:    clr.l    d0            ;** get higher note-values
  362.     move.b    3(a6),d0        ;   or play original
  363.     lsr.b    #4,d0
  364.     bra.s    arp4
  365. arp2:    clr.l    d0
  366.     move.b    3(a6),d0
  367.     and.b    #$0f,d0
  368.     bra.s    arp4
  369. arp3:    move.w    16(a6),d2
  370.     bra.s    arp6
  371. arp4:    lsl.w    #1,d0
  372.     clr.l    d1
  373.     move.w    16(a6),d1
  374.     lea    notetable,a0
  375. arp5:    move.w    (a0,d0.w),d2
  376.     cmp.w    (a0),d1
  377.     beq.s    arp6
  378.     addq.l    #2,a0
  379.     bra.s    arp5
  380. arp6:    move.w    d2,6(a5)
  381.     rts
  382.  
  383. pitchdown:
  384.     bsr    newrou
  385.     clr.l    d0
  386.     move.b    3(a6),d0
  387.     and.b    #$0f,d0
  388.     add.w    d0,(a4)
  389.     cmp.w    #$358,(a4)
  390.     bmi.s    ok1
  391.     move.w    #$358,(a4)
  392. ok1:    move.w    (a4),6(a5)
  393.     rts
  394.  
  395. pitchup:bsr    newrou
  396.     clr.l    d0
  397.     move.b    3(a6),d0
  398.     and.b    #$0f,d0
  399.     sub.w    d0,(a4)
  400.     cmp.w    #$71,(a4)
  401.     bpl.s    ok2
  402.     move.w    #$71,(a4)
  403. ok2:    move.w    (a4),6(a5)
  404.     rts
  405.  
  406. setvol:    move.b    3(a6),8(a5)
  407.     rts
  408.  
  409. setfilt:move.b    3(a6),d0
  410.     and.b    #$01,d0
  411.     asl.b    #$01,d0
  412.     and.b    #$fd,$bfe001
  413.     or.b    d0,$bfe001
  414.     rts
  415.  
  416. setspeed:
  417.     clr.l    d0
  418.     move.b    3(a6),d0
  419.     and.b    #$0f,d0
  420.     move.w    d0,speed+2
  421.     rts
  422.  
  423. newrou:    cmp.l    #datach0,a6
  424.     bne.s    next1
  425.     lea    voi1,a4
  426.     rts
  427. next1:    cmp.l    #datach1,a6
  428.     bne.s    next2
  429.     lea    voi2,a4
  430.     rts
  431. next2:    cmp.l    #datach2,a6
  432.     bne.s    next3
  433.     lea    voi3,a4
  434.     rts
  435. next3:    lea    voi4,a4
  436.     rts
  437.  
  438. replaystep:                ;** work next pattern-step
  439.     clr.w    timpos
  440.     move.l    muzakoffset,a0
  441.     move.l    a0,a3
  442.     add.l    #12,a3            ;ptr to soundprefs
  443.     move.l    a0,a2
  444.     add.l    #472,a2            ;ptr to pattern-table
  445.     add.l    #600,a0            ;ptr to first pattern
  446.     clr.l    d1
  447.     move.l    trkpos,d0        ;get ptr to current pattern
  448.     move.b    (a2,d0),d1
  449.     mulu    #1024,d1
  450.     add.l    patpos,d1        ;get ptr to current step
  451.     clr.w    enbits
  452.     lea    $dff0a0,a5        ;chanel 0
  453.     lea    datach0,a6
  454.     bsr    chanelhandler
  455.     lea    $dff0b0,a5        ;chanel 1
  456.     lea    datach1,a6
  457.     bsr    chanelhandler
  458.     lea    $dff0c0,a5        ;chanel 2
  459.     lea    datach2,a6
  460.     bsr    chanelhandler
  461.     lea    $dff0d0,a5        ;chanel 3
  462.     lea    datach3,a6
  463.     bsr    chanelhandler
  464.     move.l    #400,d0            ;** wait a while and set len
  465. rep1:    dbf    d0,rep1            ;   of oneshot to 1 word
  466.     move.l    #$8000,d0
  467.     or.w    enbits,d0
  468.     move.w    d0,$dff096
  469.     cmp.w    #1,datach0+14
  470.     bne.s    rep2
  471.     clr.w    datach0+14
  472.     move.w    #1,$dff0a4
  473. rep2:    cmp.w    #1,datach1+14
  474.     bne.s    rep3
  475.     clr.w    datach1+14
  476.     move.w    #1,$dff0b4
  477. rep3:    cmp.w    #1,datach2+14
  478.     bne.s    rep4
  479.     clr.w    datach2+14
  480.     move.w    #1,$dff0c4
  481. rep4:    cmp.w    #1,datach3+14
  482.     bne.s    rep5
  483.     clr.w    datach3+14
  484.     move.w    #1,$dff0d4
  485.  
  486. rep5:    add.l    #16,patpos        ;next step
  487.     cmp.l    #64*16,patpos        ;pattern finished ?
  488.     bne    rep6
  489.     clr.l    patpos
  490.     addq.l    #1,trkpos        ;next pattern in table
  491.     clr.l    d0
  492.     move.w    numpat,d0
  493.     cmp.l    trkpos,d0        ;song finished ?
  494.     bne    rep6
  495.     clr.l    trkpos
  496. rep6:    rts
  497.  
  498. chanelhandler:
  499.     move.l    (a0,d1.l),(a6)        ;get period & action-word
  500.     addq.l    #4,d1            ;point to next chanel
  501.     clr.l    d2
  502.     move.b    2(a6),d2        ;get nibble for soundnumber
  503.     lsr.b    #4,d2
  504.     beq.s    chan2            ;no soundchange !
  505.     move.l    d2,d4            ;** calc ptr to sample
  506.     lsl.l    #2,d2
  507.     mulu    #30,d4
  508.     lea    pointers-4,a1
  509.     move.l    (a1,d2.l),4(a6)        ;store sample-address
  510.     move.w    (a3,d4.l),8(a6)        ;store sample-len in words
  511.     move.w    2(a3,d4.l),18(a6)    ;store sample-volume
  512.  
  513.     move.l    d0,-(a7)
  514.     move.b    2(a6),d0
  515.     and.b    #$0f,d0
  516.     cmp.b    #$0c,d0
  517.     bne.s    ok3
  518.     move.b    3(a6),8(a5)
  519.     bra.s    ok4
  520. ok3:    move.w    2(a3,d4.l),8(a5)    ;change chanel-volume
  521. ok4:    move.l    (a7)+,d0
  522.  
  523.     clr.l    d3
  524.     move.w    4(a3,d4),d3        ;** calc repeatstart
  525.     add.l    4(a6),d3
  526.     move.l    d3,10(a6)        ;store repeatstart
  527.     move.w    6(a3,d4),14(a6)        ;store repeatlength
  528.     cmp.w    #1,14(a6)
  529.     beq.s    chan2            ;no sustainsound !
  530.     move.l    10(a6),4(a6)        ;repstart  = sndstart
  531.     move.w    6(a3,d4),8(a6)        ;replength = sndlength
  532. chan2:    cmp.w    #0,(a6)
  533.     beq.s    chan4            ;no new note set !
  534.     move.w    22(a6),$dff096        ;clear dma
  535.     cmp.w    #0,14(a6)
  536.     bne.s    chan3            ;no oneshot-sample
  537.     move.w    #1,14(a6)        ;allow resume (later)
  538. chan3:    bsr    newrou
  539.     move.w    (a6),(a4)
  540.     move.w    (a6),16(a6)        ;save note for effect
  541.     move.l    4(a6),0(a5)        ;set samplestart
  542.     move.w    8(a6),4(a5)        ;set samplelength
  543.     move.w    (a6),6(a5)        ;set period
  544.     move.w    22(a6),d0
  545.     or.w    d0,enbits        ;store dma-bit
  546.     move.w    18(a6),20(a6)        ;volume trigger
  547. chan4:    rts
  548.  
  549. datach0:    dc.w    0,0,0,0,0,0,0,0,0,0,0,1
  550. datach1:    dc.w    0,0,0,0,0,0,0,0,0,0,0,2
  551. datach2:    dc.w    0,0,0,0,0,0,0,0,0,0,0,4
  552. datach3:    dc.w    0,0,0,0,0,0,0,0,0,0,0,8
  553. voi1:        dc.w    0
  554. voi2:        dc.w    0
  555. voi3:        dc.w    0
  556. voi4:        dc.w    0
  557. pointers:    dc.l    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  558. notetable:    dc.w    856,808,762,720,678,640,604,570
  559.         dc.w    538,508,480,453,428,404,381,360
  560.         dc.w    339,320,302,285,269,254,240,226  
  561.         dc.w    214,202,190,180,170,160,151,143
  562.         dc.w    135,127,120,113,000
  563. muzakoffset:    dc.l    0
  564. lev6save:    dc.l    0
  565. trkpos:        dc.l    0
  566. patpos:        dc.l    0
  567. numpat:        dc.w    0
  568. enbits:        dc.w    0
  569. timpos:        dc.w    0
  570. data = $60000
  571.  
  572. bitplane:
  573. dc.b    %01111111
  574. dc.b    %00000011
  575. dc.b    %01100011
  576. dc.b    %01111111
  577. dc.b    %01100011
  578. dc.b    %01100011
  579. dc.b    %01100011
  580. dc.b    %00000000
  581. ; '!'
  582. dc.b    %01111110
  583. dc.b    %00000011
  584. dc.b    %01100011
  585. dc.b    %01111110
  586. dc.b    %01100011
  587. dc.b    %01100011
  588. dc.b    %01111110
  589. dc.b    %00000000
  590. ; '"'
  591. dc.b    %01111111
  592. dc.b    %00000000
  593. dc.b    %01100000
  594. dc.b    %01100000
  595. dc.b    %01100000
  596. dc.b    %01100000
  597. dc.b    %01111111
  598. dc.b    %00000000
  599. ; '#'
  600. dc.b    %01111110
  601. dc.b    %00000011
  602. dc.b    %01100011
  603. dc.b    %01100011
  604. dc.b    %01100011
  605. dc.b    %01100011
  606. dc.b    %01111110
  607. dc.b    %00000000
  608. ; '$'
  609. dc.b    %01111111
  610. dc.b    %00000000
  611. dc.b    %01100000
  612. dc.b    %01111100
  613. dc.b    %01100000
  614. dc.b    %01100000
  615. dc.b    %01111111
  616. dc.b    %00000000
  617. ; '%'
  618. dc.b    %01111111
  619. dc.b    %00000000
  620. dc.b    %01100000
  621. dc.b    %01111100
  622. dc.b    %01100000
  623. dc.b    %01100000
  624. dc.b    %01100000
  625. dc.b    %00000000
  626. ; '&'
  627. dc.b    %01111111
  628. dc.b    %00000000
  629. dc.b    %01100000
  630. dc.b    %01100111
  631. dc.b    %01100011
  632. dc.b    %01100011
  633. dc.b    %01111111
  634. dc.b    %00000000
  635. ; '''
  636. dc.b    %01100011
  637. dc.b    %01100011
  638. dc.b    %01100011
  639. dc.b    %01101111
  640. dc.b    %01100011
  641. dc.b    %01100011
  642. dc.b    %01100011
  643. dc.b    %00000000
  644. ; '('
  645. dc.b    %00111111
  646. dc.b    %00000000
  647. dc.b    %00001100
  648. dc.b    %00001100
  649. dc.b    %00001100
  650. dc.b    %00001100
  651. dc.b    %00111111
  652. dc.b    %00000000
  653. ; ')'
  654. dc.b    %00000011
  655. dc.b    %00000011
  656. dc.b    %00000011
  657. dc.b    %00000011
  658. dc.b    %01100011
  659. dc.b    %01100000
  660. dc.b    %01111111
  661. dc.b    %00000000
  662. ; '*'
  663. dc.b    %01100011
  664. dc.b    %01100110
  665. dc.b    %00001100
  666. dc.b    %01111000
  667. dc.b    %01101100
  668. dc.b    %01100110
  669. dc.b    %01100011
  670. dc.b    %00000000
  671. ; '+'
  672. dc.b    %01100000
  673. dc.b    %01100000
  674. dc.b    %01100000
  675. dc.b    %01100000
  676. dc.b    %01100000
  677. dc.b    %00000000
  678. dc.b    %01111111
  679. dc.b    %00000000
  680. ; ','
  681. dc.b    %01100011
  682. dc.b    %01110111
  683. dc.b    %01101011
  684. dc.b    %01100011
  685. dc.b    %01100011
  686. dc.b    %01100011
  687. dc.b    %01100011
  688. dc.b    %00000000
  689. ; '-'
  690. dc.b    %01111111
  691. dc.b    %00000011
  692. dc.b    %01100011
  693. dc.b    %01100011
  694. dc.b    %01100011
  695. dc.b    %01100011
  696. dc.b    %01100011
  697. dc.b    %00000000
  698. ; '.'
  699. dc.b    %01111111
  700. dc.b    %00000011
  701. dc.b    %01100011
  702. dc.b    %01100011
  703. dc.b    %01100011
  704. dc.b    %01100011
  705. dc.b    %01111111
  706. dc.b    %00000000
  707. ; '/'
  708. dc.b    %01111111
  709. dc.b    %00000011
  710. dc.b    %01100011
  711. dc.b    %01111111
  712. dc.b    %01100000
  713. dc.b    %01100000
  714. dc.b    %01100000
  715. dc.b    %00000000
  716. ; '0'
  717. dc.b    %01111111
  718. dc.b    %00000011
  719. dc.b    %01100011
  720. dc.b    %01100011
  721. dc.b    %01100011
  722. dc.b    %01100111
  723. dc.b    %01111111
  724. dc.b    %00000000
  725. ; '1'
  726. dc.b    %01111111
  727. dc.b    %00000011
  728. dc.b    %01100011
  729. dc.b    %01111100
  730. dc.b    %01100011
  731. dc.b    %01100011
  732. dc.b    %01100011
  733. dc.b    %00000000
  734. ; '2'
  735. dc.b    %01111111
  736. dc.b    %00000000
  737. dc.b    %01100000
  738. dc.b    %01111111
  739. dc.b    %00000011
  740. dc.b    %00000011
  741. dc.b    %01111111
  742. dc.b    %00000000
  743. ; '3'
  744. dc.b    %01111111
  745. dc.b    %00000000
  746. dc.b    %00000011
  747. dc.b    %00000011
  748. dc.b    %00000011
  749. dc.b    %00000011
  750. dc.b    %00000011
  751. dc.b    %00000000
  752. ; '4'
  753. dc.b    %01100011
  754. dc.b    %01100011
  755. dc.b    %01100011
  756. dc.b    %01100011
  757. dc.b    %01100011
  758. dc.b    %00000011
  759. dc.b    %01111111
  760. dc.b    %00000000
  761. ; '5'
  762. dc.b    %01100011
  763. dc.b    %01100011
  764. dc.b    %01100011
  765. dc.b    %01100011
  766. dc.b    %01100011
  767. dc.b    %00110110
  768. dc.b    %00011100
  769. dc.b    %00000000
  770. ; '6'
  771. dc.b    %01100011
  772. dc.b    %01100011
  773. dc.b    %01100011
  774. dc.b    %01100011
  775. dc.b    %01101011
  776. dc.b    %01110111
  777. dc.b    %01100011
  778. dc.b    %00000000
  779. ; '7'
  780. dc.b    %01100011
  781. dc.b    %01100011
  782. dc.b    %00110110
  783. dc.b    %00001000
  784. dc.b    %00110110
  785. dc.b    %01100011
  786. dc.b    %01100011
  787. dc.b    %00000000
  788. ; '8'
  789. dc.b    %01100011
  790. dc.b    %01100011
  791. dc.b    %00000011
  792. dc.b    %01111111
  793. dc.b    %00000011
  794. dc.b    %00000011
  795. dc.b    %01111111
  796. dc.b    %00000000
  797. ; '9'
  798. dc.b    %01111111
  799. dc.b    %00000000
  800. dc.b    %00000110
  801. dc.b    %00001100
  802. dc.b    %00011000
  803. dc.b    %00110000
  804. dc.b    %01111111
  805. dc.b    %00000000
  806. ; ':'
  807. dc.b    %01111111
  808. dc.b    %01100011
  809. dc.b    %01100011
  810. dc.b    %00000000
  811. dc.b    %01100011
  812. dc.b    %01100011
  813. dc.b    %01111111
  814. dc.b    %00000000
  815. ; ';'
  816. dc.b    %00000011
  817. dc.b    %00000011
  818. dc.b    %00000011
  819. dc.b    %00000000
  820. dc.b    %00000011
  821. dc.b    %00000011
  822. dc.b    %00000011
  823. dc.b    %00000000
  824. ; '<'
  825. dc.b    %01111111
  826. dc.b    %00000000
  827. dc.b    %00000011
  828. dc.b    %01111111
  829. dc.b    %01100000
  830. dc.b    %01100000
  831. dc.b    %01111111
  832. dc.b    %00000000
  833. ; '='
  834. dc.b    %01111111
  835. dc.b    %00000000
  836. dc.b    %00000011
  837. dc.b    %00011111
  838. dc.b    %00000011
  839. dc.b    %00000011
  840. dc.b    %01111111
  841. dc.b    %00000000
  842. ; '>'
  843. dc.b    %01100011
  844. dc.b    %01100011
  845. dc.b    %01100000
  846. dc.b    %01111111
  847. dc.b    %00000011
  848. dc.b    %00000011
  849. dc.b    %00000011
  850. dc.b    %00000000
  851. ; '?'
  852. dc.b    %01111111
  853. dc.b    %00000000
  854. dc.b    %01100000
  855. dc.b    %01111111
  856. dc.b    %00000011
  857. dc.b    %00000011
  858. dc.b    %01111111
  859. dc.b    %00000000
  860. ; '@'
  861. dc.b    %01111111
  862. dc.b    %00000000
  863. dc.b    %01100000
  864. dc.b    %01111111
  865. dc.b    %01100011
  866. dc.b    %01100011
  867. dc.b    %01111111
  868. dc.b    %00000000
  869. ; 'A'
  870. dc.b    %01111111
  871. dc.b    %00000000
  872. dc.b    %00000011
  873. dc.b    %00000011
  874. dc.b    %00000011
  875. dc.b    %00000011
  876. dc.b    %00000011
  877. dc.b    %00000000
  878. ; 'B'
  879. dc.b    %01111111
  880. dc.b    %00000011
  881. dc.b    %01100011
  882. dc.b    %01111111
  883. dc.b    %01100011
  884. dc.b    %01100011
  885. dc.b    %01111111
  886. dc.b    %00000000
  887. ; 'C'
  888. dc.b    %01111111
  889. dc.b    %00000011
  890. dc.b    %01100011
  891. dc.b    %01111111
  892. dc.b    %00000011
  893. dc.b    %00000011
  894. dc.b    %01111111
  895. dc.b    %00000000
  896. ; 'D'
  897. dc.b    %00000000
  898. dc.b    %00001100
  899. dc.b    %00001100
  900. dc.b    %00000000
  901. dc.b    %00000000
  902. dc.b    %00001100
  903. dc.b    %00001100
  904. dc.b    %00000000
  905. ; 'E'
  906. dc.b    %00001100
  907. dc.b    %00001100
  908. dc.b    %00001100
  909. dc.b    %00000000
  910. dc.b    %00000000
  911. dc.b    %00000000
  912. dc.b    %00000000
  913. dc.b    %00000000
  914. ; 'F'
  915. dc.b    %00000001
  916. dc.b    %00000011
  917. dc.b    %00000110
  918. dc.b    %00001100
  919. dc.b    %00011000
  920. dc.b    %00110000
  921. dc.b    %01100000
  922. dc.b    %00000000
  923. ; 'G'
  924. dc.b    %01111111
  925. dc.b    %00000000
  926. dc.b    %00000011
  927. dc.b    %00001111
  928. dc.b    %00001100
  929. dc.b    %00000000
  930. dc.b    %00001100
  931. dc.b    %00000000
  932. ; 'H'
  933. dc.b    %00000000
  934. dc.b    %00000000
  935. dc.b    %00000000
  936. dc.b    %00000000
  937. dc.b    %00000000
  938. dc.b    %00011000
  939. dc.b    %00011000
  940. dc.b    %00000000
  941. ; 'I'
  942. dc.b    %00000000
  943. dc.b    %00000000
  944. dc.b    %00000000
  945. dc.b    %00000000
  946. dc.b    %00011000
  947. dc.b    %00011000
  948. dc.b    %00110000
  949. dc.b    %00000000
  950. ; 'J'
  951. dc.b    %00011000
  952. dc.b    %00011000
  953. dc.b    %00011000
  954. dc.b    %00011000
  955. dc.b    %00011000
  956. dc.b    %00000000
  957. dc.b    %00011000
  958. dc.b    %00000000
  959. ; 'K'
  960. dc.b    %00000000
  961. dc.b    %00000000
  962. dc.b    %00000000
  963. dc.b    %01111110
  964. dc.b    %00000000
  965. dc.b    %00000000
  966. dc.b    %00000000
  967. dc.b    %00000000
  968. ; 'L'
  969. dc.b    %00000000
  970. dc.b    %00011000
  971. dc.b    %00011000
  972. dc.b    %01111110
  973. dc.b    %00011000
  974. dc.b    %00011000
  975. dc.b    %00000000
  976. dc.b    %00000000
  977. ; 'M'
  978. dc.b    %00000000
  979. dc.b    %00000000
  980. dc.b    %00000000
  981. dc.b    %00000000
  982. dc.b    %00000000
  983. dc.b    %00000000
  984. dc.b    %00000000
  985. dc.b    %00000000
  986. ; 'N'
  987. dc.b    %00011111
  988. dc.b    %00111111
  989. dc.b    %01110000
  990. dc.b    %11100000
  991. dc.b    %11111111
  992. dc.b    %00001110
  993. dc.b    %11111100
  994. dc.b    %11111000
  995. ; 'O'
  996. dc.b    %11011110
  997. dc.b    %10011110
  998. dc.b    %00111110
  999. dc.b    %00111110
  1000. dc.b    %01110110
  1001. dc.b    %01110110
  1002. dc.b    %11100110
  1003. dc.b    %11100110
  1004. ; 'P'
  1005. dc.b    %11111111
  1006. dc.b    %11111110
  1007. dc.b    %11011100
  1008. dc.b    %11111001
  1009. dc.b    %11110011
  1010. dc.b    %11111001
  1011. dc.b    %11011100
  1012. dc.b    %11001110
  1013. ; 'Q'
  1014. dc.b    %00111111
  1015. dc.b    %01111111
  1016. dc.b    %11100000
  1017. dc.b    %11011101
  1018. dc.b    %10011101
  1019. dc.b    %11001101
  1020. dc.b    %11111101
  1021. dc.b    %01111101
  1022. ; 'R'
  1023. dc.b    %11100001
  1024. dc.b    %11110001
  1025. dc.b    %00111001
  1026. dc.b    %10011101
  1027. dc.b    %10001101
  1028. dc.b    %10001101
  1029. dc.b    %11111101
  1030. dc.b    %11111101
  1031. ; 'S'
  1032. dc.b    %10000110
  1033. dc.b    %11000110
  1034. dc.b    %11100110
  1035. dc.b    %11110110
  1036. dc.b    %10111110
  1037. dc.b    %10011110
  1038. dc.b    %10001110
  1039. dc.b    %10000110
  1040. allend:
  1041.