home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / bbintro.lha / BootIntro3.s / bootintro3.S < prev    next >
Encoding:
Text File  |  1980-01-01  |  12.3 KB  |  735 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.  
  19. bsr    calc
  20.  
  21. lea    $50000,a0
  22. lea    $60000,a1
  23. clear1:
  24. clr.l    (a0)+
  25. cmp.l    a0,a1
  26. bne    clear1
  27.  
  28. bsr    makeline
  29. bset    #1,$bfe001
  30. lea    $dff000,a6
  31. move.w    2(a6),help
  32. move.w    28(a6),help+2
  33. move.w    #$3fff,154(a6)
  34. move.w    #$87e0,150(a6)
  35. move.l    #newclist,128(a6)
  36. move.w    136(a6),d0
  37. clr.w    $dff1bc
  38. maus:
  39. cmp.b    #$ff,$dff006
  40. bne    maus
  41. wait30:
  42. cmp.b    #$30,$dff006
  43. bne    wait30
  44. btst    #10,$dff016
  45. beq    sargon
  46. bsr    scroll
  47. sargon:
  48.  
  49. btst    #6,$bfe001
  50. bne    maus
  51. move.l    $4,a6
  52. lea    gfxbase,a1
  53. jsr    -408(a6)
  54. lea    $dff000,a6
  55. move.l    d0,a0
  56. move.w    #$7fff,150(a6)
  57. move.l    38(a0),128(a6)
  58. move.w    136(a6),d0
  59. or.l    #$80008000,help
  60. move.w    help,150(a6)
  61. move.w    help+2,154(a6)
  62. bclr    #1,$bfe001
  63. move.w    #$2700,SR
  64. rte
  65. SL:
  66. dc.w    0
  67. l:
  68. dc.w    0
  69. Help:
  70. dc.l    0
  71. gfxbase:
  72. dc.b    "graphics.library",0,0
  73. oldirq:
  74. dc.l    0
  75.  
  76. getchar:
  77. move.w    #7,d0
  78. loop1:
  79. move.b    (a0)+,(a1)
  80. add.l    #40,a1
  81. dbf    d0,loop1
  82. rts
  83.  
  84. calc:
  85. move.l    #endtext-text,d0
  86. sub.l    #1,d0
  87. divu    #40,d0
  88. sub.l    #2,d0
  89. move.l    d0,d1
  90. move.w    d0,l
  91. mulu    #8,d0
  92. move.w    d0,sl
  93. rts
  94.  
  95. makeline:
  96. lea    $50000,a1
  97. move.w    l,d4
  98. lea    text,a2
  99. oneline:
  100. move.w    #39,d1
  101. noline:
  102. lea    bitplane,a0
  103. lea    ascii,a3
  104. move.l    a3,a4
  105. move.b    (a2)+,d0
  106. cont:
  107. cmp.b    (a3)+,d0
  108. bne    cont
  109. sub.l    #1,a3
  110. sub.l    a4,a3
  111. move.l    a3,d3
  112. lsl.l    #3,d3
  113. add.l    d3,a0
  114. bsr    getchar
  115. sub.l    #[8*40]-1,a1
  116. dbf    d1,noline
  117. add.l    #[8*40],a1
  118. dbf    d4,oneline
  119. rts
  120.  
  121. scroll:
  122. lea    m1,a0
  123. clr.l    d0
  124. move.w    reihe,d0
  125. mulu    #40,d0
  126. move.w    d0,(a0)
  127. add.w    #1,reihe
  128. move.w    reihe,d3
  129. cmp.w    sl,d3
  130. blt    by
  131. clr.w    reihe
  132. by:
  133. rts
  134. reihe:
  135. dc.w    0
  136.  
  137. newclist:
  138. dc.w    $008e,$2c81,$0090,$2cc1,$0092,$0038,$0094,$00d0
  139. dc.w    $0102,$0000,$0104,$0000,$0108,$0000,$010a,$0000
  140. dc.w    $120,0,$122,0,$124,0,$126,0,$128,0,$12a,0,$12c,0,$12e,0
  141. dc.w    $130,0,$132,0,$134,0,$136,0,$138,0,$13a,0,$13c,0,$13e,0
  142. dc.w    $192,$00
  143.  
  144. dc.w    $0100,$0200,$0180,$0000
  145. dc.w    $2c11,$fffe,$0180,$0400
  146. dc.w    $2d11,$fffe,$0180,$0600
  147. dc.w    $2e11,$fffe,$0180,$0700
  148. dc.w    $3011,$fffe,$0180,$0800
  149. dc.w    $3111,$fffe,$0180,$0900
  150. dc.w    $3211,$fffe,$0180,$0a00
  151.  
  152. dc.w    $3611,$fffe
  153. dc.w    $00e0,$0005,$00e2,$0000,$0100,$1200,$0108,$ffd8,$182,$eee
  154. dc.w    $3811,$fffe,$108,0
  155. dc.w    $3911,$fffe,$108,$ffd8
  156. dc.w    $00e4,$0005,$00e6,$0000,$0100,$2400,$102,$20,$010a,$ffd8
  157. dc.w    $3b11,$fffe,$108,0,$10a,$0
  158. dc.w    $3c11,$fffe,$108,$ffd8,$10a,$ffd8
  159. dc.w    $3e11,$fffe,$108,0,$10a,0
  160. dc.w    $3f11,$fffe,$108,$ffd8,$10a,$ffd8
  161. dc.w    $4111,$fffe,$108,0,$10a,0
  162. dc.w    $4211,$fffe,$108,$ffd8,$10a,$ffd8
  163. dc.w    $4411,$fffe,$108,0,$10a,0
  164. dc.w    $4511,$fffe,$108,$ffd8,$10a,$ffd8
  165. dc.w    $4711,$fffe,$108,0,$10a,0
  166. dc.w    $4811,$fffe,$108,$ffd8,$10a,$ffd8
  167. dc.w    $4a11,$fffe,$108,0,$10a,0
  168. dc.w    $4b11,$fffe,$10a,$ffd8
  169. dc.w    $4d11,$fffe,$10a,0
  170.  
  171. dc.w    $4f11,$fffe,$0100,$0200
  172. dc.w    $5011,$fffe,$0180,$0900
  173. dc.w    $5111,$fffe,$0180,$0800
  174. dc.w    $5211,$fffe,$0180,$0700
  175. dc.w    $5311,$fffe,$0180,$0600
  176. dc.w    $5411,$fffe,$0180,$0400
  177. dc.w    $5511,$fffe,$0180,$0000
  178. dc.w    $0100,$1200,$182,0
  179. dc.w    $00e0,$0005,$00e2,$0000+[18*40]
  180. dc.w    $5611,$fffe,$0180,$0000,$0102,$0,$108
  181. m1:
  182. dc.w    0,$182,0
  183. dc.w    $5711,$fffe,$108,0
  184.  
  185. dc.w    $6011,$fffe,$182,$000
  186. dc.w    $6111,$fffe,$182,$111
  187. dc.w    $6211,$fffe,$182,$222
  188. dc.w    $6311,$fffe,$182,$333
  189. dc.w    $6411,$fffe,$182,$444
  190. dc.w    $6511,$fffe,$182,$666
  191. dc.w    $6611,$fffe,$182,$888
  192. dc.w    $6711,$fffe,$182,$aaa
  193. dc.w    $6811,$fffe,$182,$ccc
  194. dc.w    $6911,$fffe,$182,$ddd
  195.  
  196. dc.w    $ffe1,$fffe,$0190,$0000
  197. dc.w    $1e11,$fffe,$0182,$0aaa
  198. dc.w    $1f11,$fffe,$0182,$0888
  199. dc.w    $2011,$fffe,$0182,$0666
  200. dc.w    $2111,$fffe,$0182,$0555
  201. dc.w    $2211,$fffe,$0182,$0444
  202. dc.w    $2311,$fffe,$0182,$0333
  203. dc.w    $2411,$fffe,$0182,$0222
  204. dc.w    $2511,$fffe,$0182,$0111
  205. dc.w    $2611,$fffe,$0182,$0
  206. dc.w    $ffff,$fffe
  207. textzeiger:
  208. dc.l    text
  209. text:
  210. dc.b    "          sargon + beastie boys         "
  211. dc.b    "                                        "
  212.  
  213. blk.b    25*40," "
  214.  
  215. dc.b    "sargon and beastie boys proudly present "
  216. dc.b    "                                        "
  217. dc.b    "           phenomena megademo           "
  218. dc.b    "        without reset-protection        "
  219. dc.b    "                                        "
  220. dc.b    "message to phenomena :                  "
  221. dc.b    "                                        "
  222. dc.b    "your trick is very simple to create 200 "
  223. dc.b    "bobs,but i think it takes too much      "
  224. dc.b    "memory ...                              "
  225. dc.b    "                                        "
  226. dc.b    "sargon and beastie boys will release    "
  227. dc.b    "the best and coolest kickstart for your "
  228. dc.b    "amiga 500/1000/2000                     "
  229. dc.b    "if you want to have it send 80 marks and"
  230. dc.b    "one disk to our plk ...                 "
  231. dc.b    "it also has a copyprotection ,so you    "
  232. dc.b    "won^t be able to copy it !!!            "
  233. dc.b    "it contains several utilities ...       "
  234. dc.b    "- a colored copy                        "
  235. dc.b    "- a coder / better than prophets ag     "
  236. dc.b    "- a virusfinder / all linkviruses !!!   "
  237. dc.b    "- an autoboot /no bootselector necessary"
  238. dc.b    "and more ...                            "
  239. dc.b    "                                        "
  240. dc.b    "other reset-protections have also been  "
  241. dc.b    "removed ...                             "
  242. dc.b    "e.g. : vision                           "
  243. dc.b    "       northstar and flt                "
  244. dc.b    "       hollywood poker 2   and more ... "
  245. dc.b    "                                        "
  246. dc.b    "hey crome of phenomena :                "
  247. dc.b    "you and phenomena should join sargon    "
  248. dc.b    "and then you^ll be the leader of the    "
  249. dc.b    "swedish sector !!!                      "
  250. dc.b    "                                        "
  251. dc.b    "we are looking for new members !!!      "
  252. dc.b    "                                        "
  253. dc.b    "contact sargon at : plk 073976 c        "
  254. dc.b    "                    5060 berg.gladbach2 "
  255. dc.b    "                    w.germany           "
  256. dc.b    "                                        "
  257. dc.b    "--------------- SARGON -----------------"
  258.  
  259. blk.b    10*40," "
  260. dc.b    0
  261. endtext:
  262.  
  263. ascii:
  264. dc.b    "abcdefghijklmnopqrstuvwxyz0123456789:^/?.,!-+ SARGON",0
  265.  
  266. bitplane:
  267. dc.b    %01111111
  268. dc.b    %00000011
  269. dc.b    %01100011
  270. dc.b    %01111111
  271. dc.b    %01100011
  272. dc.b    %01100011
  273. dc.b    %01100011
  274. dc.b    %00000000
  275. ; '!'
  276. dc.b    %01111110
  277. dc.b    %00000011
  278. dc.b    %01100011
  279. dc.b    %01111110
  280. dc.b    %01100011
  281. dc.b    %01100011
  282. dc.b    %01111110
  283. dc.b    %00000000
  284. ; '"'
  285. dc.b    %01111111
  286. dc.b    %00000000
  287. dc.b    %01100000
  288. dc.b    %01100000
  289. dc.b    %01100000
  290. dc.b    %01100000
  291. dc.b    %01111111
  292. dc.b    %00000000
  293. ; '#'
  294. dc.b    %01111110
  295. dc.b    %00000011
  296. dc.b    %01100011
  297. dc.b    %01100011
  298. dc.b    %01100011
  299. dc.b    %01100011
  300. dc.b    %01111110
  301. dc.b    %00000000
  302. ; '$'
  303. dc.b    %01111111
  304. dc.b    %00000000
  305. dc.b    %01100000
  306. dc.b    %01111100
  307. dc.b    %01100000
  308. dc.b    %01100000
  309. dc.b    %01111111
  310. dc.b    %00000000
  311. ; '%'
  312. dc.b    %01111111
  313. dc.b    %00000000
  314. dc.b    %01100000
  315. dc.b    %01111100
  316. dc.b    %01100000
  317. dc.b    %01100000
  318. dc.b    %01100000
  319. dc.b    %00000000
  320. ; '&'
  321. dc.b    %01111111
  322. dc.b    %00000000
  323. dc.b    %01100000
  324. dc.b    %01100111
  325. dc.b    %01100011
  326. dc.b    %01100011
  327. dc.b    %01111111
  328. dc.b    %00000000
  329. ; '''
  330. dc.b    %01100011
  331. dc.b    %01100011
  332. dc.b    %01100011
  333. dc.b    %01101111
  334. dc.b    %01100011
  335. dc.b    %01100011
  336. dc.b    %01100011
  337. dc.b    %00000000
  338. ; '('
  339. dc.b    %00111111
  340. dc.b    %00000000
  341. dc.b    %00001100
  342. dc.b    %00001100
  343. dc.b    %00001100
  344. dc.b    %00001100
  345. dc.b    %00111111
  346. dc.b    %00000000
  347. ; ')'
  348. dc.b    %00000011
  349. dc.b    %00000011
  350. dc.b    %00000011
  351. dc.b    %00000011
  352. dc.b    %01100011
  353. dc.b    %01100000
  354. dc.b    %01111111
  355. dc.b    %00000000
  356. ; '*'
  357. dc.b    %01100011
  358. dc.b    %01100110
  359. dc.b    %00001100
  360. dc.b    %01111000
  361. dc.b    %01101100
  362. dc.b    %01100110
  363. dc.b    %01100011
  364. dc.b    %00000000
  365. ; '+'
  366. dc.b    %01100000
  367. dc.b    %01100000
  368. dc.b    %01100000
  369. dc.b    %01100000
  370. dc.b    %01100000
  371. dc.b    %00000000
  372. dc.b    %01111111
  373. dc.b    %00000000
  374. ; ','
  375. dc.b    %01100011
  376. dc.b    %01110111
  377. dc.b    %01101011
  378. dc.b    %01100011
  379. dc.b    %01100011
  380. dc.b    %01100011
  381. dc.b    %01100011
  382. dc.b    %00000000
  383. ; '-'
  384. dc.b    %01111111
  385. dc.b    %00000011
  386. dc.b    %01100011
  387. dc.b    %01100011
  388. dc.b    %01100011
  389. dc.b    %01100011
  390. dc.b    %01100011
  391. dc.b    %00000000
  392. ; '.'
  393. dc.b    %01111111
  394. dc.b    %00000011
  395. dc.b    %01100011
  396. dc.b    %01100011
  397. dc.b    %01100011
  398. dc.b    %01100011
  399. dc.b    %01111111
  400. dc.b    %00000000
  401. ; '/'
  402. dc.b    %01111111
  403. dc.b    %00000011
  404. dc.b    %01100011
  405. dc.b    %01111111
  406. dc.b    %01100000
  407. dc.b    %01100000
  408. dc.b    %01100000
  409. dc.b    %00000000
  410. ; '0'
  411. dc.b    %01111111
  412. dc.b    %00000011
  413. dc.b    %01100011
  414. dc.b    %01100011
  415. dc.b    %01100011
  416. dc.b    %01100111
  417. dc.b    %01111111
  418. dc.b    %00000000
  419. ; '1'
  420. dc.b    %01111111
  421. dc.b    %00000011
  422. dc.b    %01100011
  423. dc.b    %01111100
  424. dc.b    %01100011
  425. dc.b    %01100011
  426. dc.b    %01100011
  427. dc.b    %00000000
  428. ; '2'
  429. dc.b    %01111111
  430. dc.b    %00000000
  431. dc.b    %01100000
  432. dc.b    %01111111
  433. dc.b    %00000011
  434. dc.b    %00000011
  435. dc.b    %01111111
  436. dc.b    %00000000
  437. ; '3'
  438. dc.b    %01111111
  439. dc.b    %00000000
  440. dc.b    %00000011
  441. dc.b    %00000011
  442. dc.b    %00000011
  443. dc.b    %00000011
  444. dc.b    %00000011
  445. dc.b    %00000000
  446. ; '4'
  447. dc.b    %01100011
  448. dc.b    %01100011
  449. dc.b    %01100011
  450. dc.b    %01100011
  451. dc.b    %01100011
  452. dc.b    %00000011
  453. dc.b    %01111111
  454. dc.b    %00000000
  455. ; '5'
  456. dc.b    %01100011
  457. dc.b    %01100011
  458. dc.b    %01100011
  459. dc.b    %01100011
  460. dc.b    %01100011
  461. dc.b    %00110110
  462. dc.b    %00011100
  463. dc.b    %00000000
  464. ; '6'
  465. dc.b    %01100011
  466. dc.b    %01100011
  467. dc.b    %01100011
  468. dc.b    %01100011
  469. dc.b    %01101011
  470. dc.b    %01110111
  471. dc.b    %01100011
  472. dc.b    %00000000
  473. ; '7'
  474. dc.b    %01100011
  475. dc.b    %01100011
  476. dc.b    %00110110
  477. dc.b    %00001000
  478. dc.b    %00110110
  479. dc.b    %01100011
  480. dc.b    %01100011
  481. dc.b    %00000000
  482. ; '8'
  483. dc.b    %01100011
  484. dc.b    %01100011
  485. dc.b    %00000011
  486. dc.b    %01111111
  487. dc.b    %00000011
  488. dc.b    %00000011
  489. dc.b    %01111111
  490. dc.b    %00000000
  491. ; '9'
  492. dc.b    %01111111
  493. dc.b    %00000000
  494. dc.b    %00000110
  495. dc.b    %00001100
  496. dc.b    %00011000
  497. dc.b    %00110000
  498. dc.b    %01111111
  499. dc.b    %00000000
  500. ; ':'
  501. dc.b    %01111111
  502. dc.b    %01100011
  503. dc.b    %01100011
  504. dc.b    %00000000
  505. dc.b    %01100011
  506. dc.b    %01100011
  507. dc.b    %01111111
  508. dc.b    %00000000
  509. ; ';'
  510. dc.b    %00000011
  511. dc.b    %00000011
  512. dc.b    %00000011
  513. dc.b    %00000000
  514. dc.b    %00000011
  515. dc.b    %00000011
  516. dc.b    %00000011
  517. dc.b    %00000000
  518. ; '<'
  519. dc.b    %01111111
  520. dc.b    %00000000
  521. dc.b    %00000011
  522. dc.b    %01111111
  523. dc.b    %01100000
  524. dc.b    %01100000
  525. dc.b    %01111111
  526. dc.b    %00000000
  527. ; '='
  528. dc.b    %01111111
  529. dc.b    %00000000
  530. dc.b    %00000011
  531. dc.b    %00011111
  532. dc.b    %00000011
  533. dc.b    %00000011
  534. dc.b    %01111111
  535. dc.b    %00000000
  536. ; '>'
  537. dc.b    %01100011
  538. dc.b    %01100011
  539. dc.b    %01100000
  540. dc.b    %01111111
  541. dc.b    %00000011
  542. dc.b    %00000011
  543. dc.b    %00000011
  544. dc.b    %00000000
  545. ; '?'
  546. dc.b    %01111111
  547. dc.b    %00000000
  548. dc.b    %01100000
  549. dc.b    %01111111
  550. dc.b    %00000011
  551. dc.b    %00000011
  552. dc.b    %01111111
  553. dc.b    %00000000
  554. ; '@'
  555. dc.b    %01111111
  556. dc.b    %00000000
  557. dc.b    %01100000
  558. dc.b    %01111111
  559. dc.b    %01100011
  560. dc.b    %01100011
  561. dc.b    %01111111
  562. dc.b    %00000000
  563. ; 'A'
  564. dc.b    %01111111
  565. dc.b    %00000000
  566. dc.b    %00000011
  567. dc.b    %00000011
  568. dc.b    %00000011
  569. dc.b    %00000011
  570. dc.b    %00000011
  571. dc.b    %00000000
  572. ; 'B'
  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    %01111111
  580. dc.b    %00000000
  581. ; 'C'
  582. dc.b    %01111111
  583. dc.b    %00000011
  584. dc.b    %01100011
  585. dc.b    %01111111
  586. dc.b    %00000011
  587. dc.b    %00000011
  588. dc.b    %01111111
  589. dc.b    %00000000
  590. ; 'D'
  591. dc.b    %00000000
  592. dc.b    %00001100
  593. dc.b    %00001100
  594. dc.b    %00000000
  595. dc.b    %00000000
  596. dc.b    %00001100
  597. dc.b    %00001100
  598. dc.b    %00000000
  599. ; 'E'
  600. dc.b    %00001100
  601. dc.b    %00001100
  602. dc.b    %00001100
  603. dc.b    %00000000
  604. dc.b    %00000000
  605. dc.b    %00000000
  606. dc.b    %00000000
  607. dc.b    %00000000
  608. ; 'F'
  609. dc.b    %00000001
  610. dc.b    %00000011
  611. dc.b    %00000110
  612. dc.b    %00001100
  613. dc.b    %00011000
  614. dc.b    %00110000
  615. dc.b    %01100000
  616. dc.b    %00000000
  617. ; 'G'
  618. dc.b    %01111111
  619. dc.b    %00000000
  620. dc.b    %00000011
  621. dc.b    %00001111
  622. dc.b    %00001100
  623. dc.b    %00000000
  624. dc.b    %00001100
  625. dc.b    %00000000
  626. ; 'H'
  627. dc.b    %00000000
  628. dc.b    %00000000
  629. dc.b    %00000000
  630. dc.b    %00000000
  631. dc.b    %00000000
  632. dc.b    %00011000
  633. dc.b    %00011000
  634. dc.b    %00000000
  635. ; 'I'
  636. dc.b    %00000000
  637. dc.b    %00000000
  638. dc.b    %00000000
  639. dc.b    %00000000
  640. dc.b    %00011000
  641. dc.b    %00011000
  642. dc.b    %00110000
  643. dc.b    %00000000
  644. ; 'J'
  645. dc.b    %00011000
  646. dc.b    %00011000
  647. dc.b    %00011000
  648. dc.b    %00011000
  649. dc.b    %00011000
  650. dc.b    %00000000
  651. dc.b    %00011000
  652. dc.b    %00000000
  653. ; 'K'
  654. dc.b    %00000000
  655. dc.b    %00000000
  656. dc.b    %00000000
  657. dc.b    %01111110
  658. dc.b    %00000000
  659. dc.b    %00000000
  660. dc.b    %00000000
  661. dc.b    %00000000
  662. ; 'L'
  663. dc.b    %00000000
  664. dc.b    %00011000
  665. dc.b    %00011000
  666. dc.b    %01111110
  667. dc.b    %00011000
  668. dc.b    %00011000
  669. dc.b    %00000000
  670. dc.b    %00000000
  671. ; 'M'
  672. dc.b    %00000000
  673. dc.b    %00000000
  674. dc.b    %00000000
  675. dc.b    %00000000
  676. dc.b    %00000000
  677. dc.b    %00000000
  678. dc.b    %00000000
  679. dc.b    %00000000
  680. ; 'N'
  681. dc.b    %00011111
  682. dc.b    %00111111
  683. dc.b    %01110000
  684. dc.b    %11100000
  685. dc.b    %11111111
  686. dc.b    %00001110
  687. dc.b    %11111100
  688. dc.b    %11111000
  689. ; 'O'
  690. dc.b    %11011110
  691. dc.b    %10011110
  692. dc.b    %00111110
  693. dc.b    %00111110
  694. dc.b    %01110110
  695. dc.b    %01110110
  696. dc.b    %11100110
  697. dc.b    %11100110
  698. ; 'P'
  699. dc.b    %11111111
  700. dc.b    %11111110
  701. dc.b    %11011100
  702. dc.b    %11111001
  703. dc.b    %11110011
  704. dc.b    %11111001
  705. dc.b    %11011100
  706. dc.b    %11001110
  707. ; 'Q'
  708. dc.b    %00111111
  709. dc.b    %01111111
  710. dc.b    %11100000
  711. dc.b    %11011101
  712. dc.b    %10011101
  713. dc.b    %11001101
  714. dc.b    %11111101
  715. dc.b    %01111101
  716. ; 'R'
  717. dc.b    %11100001
  718. dc.b    %11110001
  719. dc.b    %00111001
  720. dc.b    %10011101
  721. dc.b    %10001101
  722. dc.b    %10001101
  723. dc.b    %11111101
  724. dc.b    %11111101
  725. ; 'S'
  726. dc.b    %10000110
  727. dc.b    %11000110
  728. dc.b    %11100110
  729. dc.b    %11110110
  730. dc.b    %10111110
  731. dc.b    %10011110
  732. dc.b    %10001110
  733. dc.b    %10000110
  734. allend:
  735.