home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / logic_461.lzh / Logic / Source.s < prev    next >
Text File  |  1991-03-08  |  16KB  |  888 lines
  1. execbase       = 4
  2. ;---< EXEC >---;
  3. openlib        = -552
  4. closelib       = -414
  5. getmsg         = -372
  6. waitport       = -384
  7. findtask       = -294
  8. replymsg       = -378
  9. allocmem       = -198
  10. freemem        = -210
  11. ;---< INTUITION >---;
  12. openwindow     = -204
  13. closewindow    = -072
  14. refreshgadget  = -222
  15. setwindowtitle = -276
  16. setmenustrip   = -264
  17. activatewin    = -450
  18. addgadget      = -042
  19. ;---< GRAPHICS >---;
  20. setapen        = -342
  21. setbpen        = -348
  22. setdrmd        = -354
  23. rectfill       = -306
  24. draw           = -246
  25. move           = -240
  26. text           = -060
  27. blttemplate    = -036
  28. ;
  29. print:    macro
  30. move.l    gfxbase,a6
  31. move.l    rport,a1
  32. move.l    ?1,d0
  33. move.l    ?2,d1
  34. jsr    move(a6)
  35. move.l    gfxbase,a6
  36. move.l    rport,a1
  37. move.l    ?4,a0
  38. move.l    ?3,d0
  39. jsr    text(a6)
  40. endm
  41. box:    macro
  42. move.l    gfxbase,a6
  43. move.l    rport,a1
  44. move.l    ?5,d0
  45. jsr    setapen(a6)
  46. move.l    gfxbase,a6
  47. move.l    rport,a1
  48. move    ?1,d0
  49. move    ?2,d1
  50. move    ?3,d2
  51. move    ?4,d3
  52. jsr    rectfill(a6)
  53. move.l    gfxbase,a6
  54. move.l    rport,a1
  55. moveq    #0,d0
  56. jsr    setapen(a6)
  57. move.l    gfxbase,a6
  58. move.l    rport,a1
  59. move    ?1,d0
  60. add.l    #2,d0
  61. move    ?2,d1
  62. add.l    #1,d1
  63. move    ?3,d2
  64. sub.l    #2,d2
  65. move    ?4,d3
  66. sub.l    #1,d3
  67. jsr    rectfill(a6)
  68. endm
  69. ;
  70. movem.l    d1-d7/a0-a6,-(a7)
  71. move.l    execbase,a6
  72. move.l    #0,a1
  73. jsr    findtask(a6)
  74. move.l    d0,a2
  75. move.l    #0,starts
  76. tst.l    $ac(a2)
  77. bne    fromcli
  78. lea    $5c(a2),a0
  79. jsr    waitport(a6)
  80. lea    $5c(a2),a0
  81. jsr    getmsg(a6)
  82. move.l    d0,starts
  83. fromcli:
  84. bsr    openint
  85. beq    end1
  86. bsr    openwin
  87. beq    end2
  88. bsr    memorya
  89. beq    end3
  90. bsr    initwin
  91. bsr    copyright
  92. bsr    haupt
  93. bsr    memoryq
  94. end3:
  95. bsr    closewin
  96. end2:
  97. bsr    closeint
  98. end1:
  99. moveq    #0,d0
  100. cmp.l    #0,starts
  101. beq    nowb
  102. move.l    execbase,a6
  103. move.l    starts,a1
  104. jsr    replymsg(a6)
  105. moveq    #2,d0
  106. nowb:
  107. movem.l    (a7)+,d1-d7/a0-a6
  108. rts
  109. ;
  110. memorya:
  111. move.l    execbase,a6
  112. moveq    #80,d0
  113. moveq    #3,d1
  114. jsr    allocmem(a6)
  115. beq    end4
  116. move.l    d0,memory
  117. move.l    d0,image3+10
  118. lea    daten3,a0
  119. move.l    d0,a1
  120. moveq    #19,d0
  121. colol:
  122. move.l    (a0)+,(a1)+
  123. dbra    d0,colol
  124. moveq    #1,d0
  125. end4:
  126. tst.l    d0
  127. rts
  128. ;
  129. memoryq:
  130. move.l    execbase,a6
  131. move.l    memory,a1
  132. moveq    #80,d0
  133. jsr    freemem(a6)
  134. rts
  135. ;
  136. haupt:
  137. move.l    execbase,a6
  138. move.l    handle,a0
  139. move.l    86(a0),a0
  140. jsr    getmsg(a6)
  141. tst.l    d0
  142. beq    haupt
  143. move.l    d0,a0
  144. move    22(a0),d0
  145. cmp    #8,d0
  146. beq    button
  147. cmp    #$40,d0
  148. beq    gadgets
  149. cmp    #$100,d0
  150. beq    menus
  151. cmp    #$200,d0
  152. bne    haupt
  153. rts
  154. ;
  155. menus:
  156. move    $18(a0),d0
  157. cmp    #-1,d0
  158. beq    haupt
  159. lsr    #5,d0
  160. and    #$3f,d0
  161. cmp    #2,d0
  162. bne    nquit
  163. rts
  164. nquit:
  165. cmp    #1,d0
  166. beq    haupt
  167. cmp    #0,d0
  168. bne    ncopy
  169. bsr    copyright
  170. bra    haupt
  171. ncopy:
  172. bra    haupt
  173. ;
  174. gadgets:
  175. move.l    28(a0),a0
  176. move    38(a0),d0
  177. cmp.b    #2,d0
  178. bne    nnew
  179. lea    feld,a0
  180. lea    feld+9,a1
  181. moveq    #8,d0
  182. plop3:
  183. move.b    (a1)+,(a0)+
  184. dbra    d0,plop3
  185. lea    undo,a0
  186. move.l    #19,d0
  187. plop6:
  188. move.b    #10,(a0)+
  189. dbra    d0,plop6
  190. bsr    darstell
  191. bra    haupt
  192. nnew:
  193. cmp    #1,d0
  194. bne    icon
  195. cmp.b    #10,undo
  196. beq    haupt
  197. move.b    undo,d7
  198. lea    undo,a1
  199. lea    undo+1,a0
  200. move.l    #18,d0
  201. plop5:
  202. move.b    (a0)+,(a1)+
  203. dbra    d0,plop5
  204. move.b    #10,undo+19
  205. moveq    #0,d0
  206. move.b    d7,d0
  207. bra    cool
  208. bra    haupt
  209. icon:
  210. cmp    #3,d0
  211. bne    haupt
  212. bsr    icons
  213. bra    haupt
  214. ;
  215. button:
  216. btst    #6,$bfe001
  217. bne    haupt
  218. moveq    #0,d0
  219. moveq    #0,d1
  220. move.l    handle,a2
  221. move    12(a2),d1
  222. move    14(a2),d0
  223. sub.l    #6,d0
  224. sub.l    #21,d1
  225. cmp    #0,d0
  226. blt    haupt
  227. cmp    #150,d0
  228. bgt    haupt
  229. cmp    #0,d1
  230. blt    haupt
  231. cmp    #75,d1
  232. bgt    haupt
  233. divu    #50,d0
  234. and.l    #$f,d0
  235. divu    #25,d1
  236. and.l    #$f,d1
  237. move.l    d0,d6
  238. move.l    d1,d7
  239. mulu    #3,d0
  240. add.l    d0,d1
  241. lea    feld,a5
  242. bsr    save
  243. add.l    d1,a5
  244. move.b    (a5),d0
  245. cmp.b    #0,d0
  246. beq    haupt
  247. move.l    d6,d0
  248. mulu    #3,d0
  249. add.l    d7,d0
  250. cool:
  251. mulu    #9,d0
  252. lea    no1,a4
  253. lea    feld,a5
  254. add.l    d0,a4
  255. moveq    #8,d1
  256. plop:
  257. move.b    (a4)+,d2
  258. move.b    (a5),d3
  259. cmp.b    #0,d2
  260. beq    noset
  261. moveq    #0,d4
  262. cmp.b    #1,d3
  263. beq    noone
  264. moveq    #1,d4
  265. noone:
  266. move.b    d4,d3
  267. noset:
  268. move.b    d3,(a5)+
  269. dbra    d1,plop
  270. bsr    darstell
  271. bsr    testen
  272. cmp.b    #0,d0
  273. beq    haupt
  274. lea    feld,a0
  275. lea    feld+9,a1
  276. moveq    #8,d2
  277. plop7:
  278. move.b    (a1)+,(a0)+
  279. dbra    d2,plop7
  280. lea    undo,a0
  281. move.l    #19,d2
  282. plop8:
  283. move.b    #10,(a0)+
  284. dbra    d2,plop8
  285. move.l    d0,d7
  286. bsr    darstell
  287. cmp.b    #1,d7
  288. bne    win
  289. move.l    gfxbase,a6
  290. move.l    rport,a1
  291. moveq    #2,d0
  292. jsr    setapen(a6)
  293. move.l    gfxbase,a6
  294. move.l    rport,a1
  295. moveq    #0,d0
  296. jsr    setdrmd(a6)
  297. print    #21,#19,#16,#wins
  298. move.l    gfxbase,a6
  299. move.l    rport,a1
  300. moveq    #1,d0
  301. jsr    setapen(a6)
  302. print    #19,#18,#16,#wins
  303. bra    haupt
  304. win:
  305. move.l    gfxbase,a6
  306. move.l    rport,a1
  307. moveq    #2,d0
  308. jsr    setapen(a6)
  309. move.l    gfxbase,a6
  310. move.l    rport,a1
  311. moveq    #0,d0
  312. jsr    setdrmd(a6)
  313. print    #21,#19,#16,#lost
  314. move.l    gfxbase,a6
  315. move.l    rport,a1
  316. moveq    #1,d0
  317. jsr    setapen(a6)
  318. print    #19,#18,#16,#lost
  319. bra    haupt
  320. ;
  321. save:
  322. movem.l    d0-d7/a0-a6,-(a7)
  323. lea    undo+18,a0
  324. lea    undo+19,a1
  325. move.l    #18,d0
  326. plop4:
  327. move.b    (a0),(a1)
  328. sub.l    #1,a1
  329. sub.l    #1,a0
  330. dbra    d0,plop4
  331. movem.l    (a7)+,d0-d7/a0-a6
  332. move.b    d1,undo
  333. rts
  334. ;
  335. testen:
  336. lea    feld,a5
  337. moveq    #8,d0
  338. moveq    #0,d1
  339. plop2:
  340. add.b    (a5)+,d1
  341. dbra    d0,plop2
  342. cmp.b    #8,d1
  343. bne    ngew
  344. cmp.b    #0,feld+4
  345. bne    ngew
  346. moveq    #1,d0
  347. bra    ghtz
  348. ngew:
  349. cmp.b    #0,d1
  350. bne    nver
  351. moveq    #2,d0
  352. bra    ghtz
  353. nver:
  354. moveq    #0,d0
  355. ghtz:
  356. rts
  357. ;
  358. openint:
  359. move.l    execbase,a6
  360. lea    intname,a1
  361. moveq    #0,d0
  362. jsr    openlib(a6)
  363. move.l    d0,intbase
  364. move.l    d0,a0
  365. move.l    $64(a0),gfxbase
  366. tst.l    d0
  367. rts
  368. ;
  369. openwin:
  370. move.l    intbase,a6
  371. lea    window,a0
  372. jsr    openwindow(a6)
  373. move.l    d0,handle
  374. move.l    d0,a0
  375. move.l    50(a0),rport
  376. tst.l    d0
  377. rts
  378. ;
  379. initwin:
  380. move.l    intbase,a6
  381. lea    gadget3,a1
  382. move.l    handle,a0
  383. moveq    #0,d0
  384. jsr    addgadget(a6)
  385. move.l    gfxbase,a6
  386. move.l    rport,a1
  387. moveq    #3,d0
  388. jsr    setapen(a6)
  389. move.l    gfxbase,a6
  390. move.l    rport,a1
  391. move    #4,d0
  392. move    #11,d1
  393. move    #157,d2
  394. move    #113,d3
  395. jsr    rectfill(a6)
  396. bsr    darstell
  397. move.l    intbase,a6
  398. lea    gadget3,a0
  399. move.l    handle,a1
  400. move.l    #0,a2
  401. jsr    refreshgadget(a6)
  402. move.l    intbase,a6
  403. move.l    handle,a0
  404. move.l    #-1,a1
  405. lea    screentits,a2
  406. jsr    setwindowtitle(a6)
  407. move.l    intbase,a6
  408. move.l    handle,a0
  409. lea    menu1,a1
  410. jsr    setmenustrip(a6)
  411. rts
  412. ;
  413. icons:
  414. move.l    handle,a5
  415. move    4(a5),iwindow
  416. move    6(a5),iwindow+2
  417. move    4(a5),window
  418. move    6(a5),window+2
  419. bsr    closewin
  420. move.l    intbase,a6
  421. lea    iwindow,a0
  422. jsr    openwindow(a6)
  423. move.l    d0,ihandle
  424. move.l    d0,a0
  425. move.l    50(a0),rport
  426. move.l    gfxbase,a6
  427. move.l    rport,a1
  428. moveq    #3,d0
  429. jsr    setapen(a6)
  430. move.l    gfxbase,a6
  431. move.l    rport,a1
  432. move    #4,d0
  433. move    #11,d1
  434. move    #65,d2
  435. move    #33,d3
  436. jsr    rectfill(a6)
  437. move.l    intbase,a6
  438. lea    igadget,a0
  439. move.l    ihandle,a1
  440. move.l    #0,a2
  441. jsr    refreshgadget(a6)
  442. lkjh3:
  443. move.l    execbase,a6
  444. move.l    ihandle,a0
  445. move.l    86(a0),a0
  446. jsr    getmsg(a6)
  447. tst.l    d0
  448. beq    lkjh3
  449. move.l    d0,a0
  450. move    22(a0),d0
  451. cmp    #$40,d0
  452. bne    lkjh3
  453. move.l    28(a0),a0
  454. move    38(a0),d0
  455. cmp    #1,d0
  456. bne    lkjh3
  457. move.l    intbase,a6
  458. move.l    ihandle,a0
  459. jsr    closewindow(a6)
  460. ;
  461. bsr    openwin
  462. bsr    initwin
  463. rts
  464. ;
  465. darstell:
  466. lea    feld,a5
  467. box    #10,#23,#50,#43,#1
  468. cmp.b    #1,(a5)+
  469. beq    nf1
  470. box    #10,#23,#50,#43,#2
  471. nf1:
  472. box    #10,#48,#50,#68,#1
  473. cmp.b    #1,(a5)+
  474. beq    nf2
  475. box    #10,#48,#50,#68,#2
  476. nf2:
  477. box    #10,#73,#50,#93,#1
  478. cmp.b    #1,(a5)+
  479. beq    nf3
  480. box    #10,#73,#50,#93,#2
  481. nf3:
  482. box    #60,#23,#100,#43,#1
  483. cmp.b    #1,(a5)+
  484. beq    nf4
  485. box    #60,#23,#100,#43,#2
  486. nf4:
  487. box    #60,#48,#100,#68,#1
  488. cmp.b    #1,(a5)+
  489. beq    nf5
  490. box    #60,#48,#100,#68,#2
  491. nf5:
  492. box    #60,#73,#100,#93,#1
  493. cmp.b    #1,(a5)+
  494. beq    nf6
  495. box    #60,#73,#100,#93,#2
  496. nf6:
  497. box    #110,#23,#150,#43,#1
  498. cmp.b    #1,(a5)+
  499. beq    nf7
  500. box    #110,#23,#150,#43,#2
  501. nf7:
  502. box    #110,#48,#150,#68,#1
  503. cmp.b    #1,(a5)+
  504. beq    nf8
  505. box    #110,#48,#150,#68,#2
  506. nf8:
  507. box    #110,#73,#150,#93,#1
  508. cmp.b    #1,(a5)+
  509. beq    nf9
  510. box    #110,#73,#150,#93,#2
  511. nf9:
  512. move.l    gfxbase,a6
  513. move.l    rport,a1
  514. moveq    #3,d0
  515. jsr    setapen(a6)
  516. move.l    gfxbase,a6
  517. move.l    rport,a1
  518. move    #4,d0
  519. move    #11,d1
  520. move    #157,d2
  521. move    #21,d3
  522. jsr    rectfill(a6)
  523. rts
  524. ;
  525. closewin:
  526. move.l    intbase,a6
  527. move.l    handle,a0
  528. jsr    closewindow(a6)
  529. rts
  530. ;
  531. closeint:
  532. move.l    execbase,a6
  533. move.l    intbase,a1
  534. jsr    closelib(a6)
  535. rts
  536. ;
  537. copyright:
  538. move.l    intbase,a6
  539. lea    cwindow,a0
  540. jsr    openwindow(a6)
  541. move.l    d0,chandle
  542. move.l    d0,a0
  543. move.l    rport,r2port
  544. move.l    50(a0),rport
  545. tst.l    d0
  546. beq    ende4
  547. move.l    gfxbase,a6
  548. move.l    rport,a1
  549. moveq    #3,d0
  550. jsr    setapen(a6)
  551. move.l    gfxbase,a6
  552. move.l    rport,a1
  553. move    #4,d0
  554. move    #2,d1
  555. move    #235,d2
  556. move    #97,d3
  557. jsr    rectfill(a6)
  558. move.l    execbase,a6
  559. move.l    #1428,d0
  560. moveq    #3,d1
  561. jsr    allocmem(a6)
  562. move.l    d0,speicher
  563. tst.l    d0
  564. beq    ende5
  565. lea    gfx,a1
  566. move.l    d0,a0
  567. move.l    #356,d0
  568. plop9:
  569. move.l    (a1)+,(a0)+
  570. dbra    d0,plop9
  571. move.l    gfxbase,a6
  572. move.l    rport,a1
  573. moveq    #0,d0
  574. jsr    setdrmd(a6)
  575. move.l    gfxbase,a6
  576. move.l    rport,a1
  577. moveq    #2,d0
  578. jsr    setapen(a6)
  579. move.l    gfxbase,a6
  580. move.l    speicher,a0
  581. moveq    #0,d0
  582. moveq    #28,d1
  583. move.l    rport,a1
  584. moveq    #11,d2
  585. moveq    #6,d3
  586. move    #224,d4
  587. moveq    #51,d5
  588. jsr    blttemplate(a6)
  589. move.l    gfxbase,a6
  590. move.l    rport,a1
  591. moveq    #1,d0
  592. jsr    setapen(a6)
  593. move.l    gfxbase,a6
  594. move.l    speicher,a0
  595. moveq    #0,d0
  596. moveq    #28,d1
  597. move.l    rport,a1
  598. moveq    #9,d2
  599. moveq    #5,d3
  600. move    #224,d4
  601. moveq    #51,d5
  602. jsr    blttemplate(a6)
  603. move.l    gfxbase,a6
  604. move.l    rport,a1
  605. moveq    #2,d0
  606. jsr    setapen(a6)
  607. print    #121-[4*[ctex2-ctex1]],#65,#ctex2-ctex1,#ctex1
  608. print    #121-[4*[ctex3-ctex2]],#75,#ctex3-ctex2,#ctex2
  609. print    #121-[4*[ctex4-ctex3]],#85,#ctex4-ctex3,#ctex3
  610. print    #121-[4*[ctex5-ctex4]],#95,#ctex5-ctex4,#ctex4
  611. move.l    gfxbase,a6
  612. move.l    rport,a1
  613. moveq    #1,d0
  614. jsr    setapen(a6)
  615. print    #119-[4*[ctex2-ctex1]],#64,#ctex2-ctex1,#ctex1
  616. print    #119-[4*[ctex3-ctex2]],#74,#ctex3-ctex2,#ctex2
  617. print    #119-[4*[ctex4-ctex3]],#84,#ctex4-ctex3,#ctex3
  618. print    #119-[4*[ctex5-ctex4]],#94,#ctex5-ctex4,#ctex4
  619. lkjh:
  620. move.l    execbase,a6
  621. move.l    chandle,a0
  622. move.l    86(a0),a0
  623. jsr    getmsg(a6)
  624. tst.l    d0
  625. beq    lkjh
  626. move.l    d0,a0
  627. move    22(a0),d0
  628. cmp    #$40,d0
  629. bne    lkjh
  630. move.l    28(a0),a0
  631. move    38(a0),d0
  632. cmp    #1,d0
  633. bne    lkjh
  634. move.l    execbase,a6
  635. move.l    speicher,a1
  636. move.l    #1428,d0
  637. jsr    freemem(a6)
  638. ende5:
  639. move.l    intbase,a6
  640. move.l    chandle,a0
  641. jsr    closewindow(a6)
  642. ende4:
  643. move.l    r2port,rport
  644. rts
  645. ;
  646. intbase:  dc.l 0
  647. gfxbase:  dc.l 0
  648. memory:      dc.l 0
  649. rport:      dc.l 0
  650. starts:      dc.l 0
  651. handle:   dc.l 0
  652. r2port:      dc.l 0
  653. speicher: dc.l 0
  654. chandle:  dc.l 0
  655. ihandle:  dc.l 0
  656. intname:  dc.b "intuition.library",0
  657. ;
  658. window:
  659. dc.w    60,20,162,116
  660. dc.b    3,1
  661. dc.l    $348,$100e,gadget,0,title,0,0
  662. dc.w    0,0,0,0,1
  663. cwindow:
  664. dc.w    200,50,240,100
  665. dc.b    1,1
  666. dc.l    $40,$11000,cgadget,0,0,0,0
  667. dc.w    0,0,0,0,1
  668. iwindow:
  669. dc.w    10,5,70,36
  670. dc.b    0,1
  671. dc.l    $40,$11002,igadget,0,title2,0,0
  672. dc.w    0,0,0,0,1
  673. cgadget:
  674. dc.l    0
  675. dc.w    0,0,240,100,3,3,1
  676. dc.l    0,0,0,0,0
  677. dc.w    1,0,0
  678. igadget:
  679. dc.l    0
  680. dc.w    10,14,48,16,0,3,1
  681. dc.l    irend,0,itext,0,0
  682. dc.w    1,0,0
  683. itext:
  684. dc.b    1,0,0,0
  685. dc.w    8,4
  686. dc.l    0,itex,0
  687. itex:    dc.b "CONT",0,0
  688. irend:
  689. dc.l    0
  690. dc.b    1,0,1,9
  691. dc.l    ikord,irend2
  692. irend2:
  693. dc.l    0
  694. dc.b    2,0,1,5
  695. dc.l    ikord2,0
  696. ikord:
  697. dc.w    -2,-1,49,-1,49,16,-2,16,-2,-1,48,-1,48,16,-1,16,-1,-1
  698. ikord2:
  699. dc.w    0,17,51,17,51,0,50,0,50,17
  700. ;
  701. title:
  702. dc.b "LOGIC2",0,0
  703. title2:
  704. dc.b "LOGIC II",0,0
  705. screentits:
  706. dc.b " LOGIC II   ",169,"´12-18-1990 by Thomas Jansen "
  707. dc.b "only for Fred Fish ",0
  708. wins:    dc.b "You have win ..."
  709. lost:    dc.b "You have lost .."
  710. ctex1:    dc.b "LOGIC II is Public-Domain" 
  711. ctex2:    dc.b "This Version is only" 
  712. ctex3:    dc.b "for Fred Fish"
  713. ctex4:    dc.b "Press the RM-Button" 
  714. ctex5:  dc.b 0
  715. ;
  716. gadget:
  717. dc.l    gadget2
  718. dc.w    8,98,68,13,2,3,1
  719. dc.l    render,render2,text1,0,0
  720. dc.w    1,0,0
  721. text1:
  722. dc.b    1,0,0,0
  723. dc.w    18,3
  724. dc.l    0,tex,0
  725. tex:    dc.b "BACK",0,0
  726. gadget2:
  727. dc.l    0
  728. dc.w    84,98,68,13,2,3,1
  729. dc.l    render,render2,text2,0,0
  730. dc.w    2,0,0
  731. text2:
  732. dc.b    1,0,0,0
  733. dc.w    22,3
  734. dc.l    0,tex2,0
  735. tex2:    dc.b "NEW",0
  736. gadget3:
  737. dc.l    0
  738. dc.w    -76,0,24,10,$14,$41,1
  739. dc.l    image3,0,0,0,0
  740. dc.w    3,0,0
  741. image3:
  742. dc.w    -4,0,28,10,0
  743. dc.l    daten3
  744. dc.b    3,0
  745. dc.l    0
  746. daten3:
  747. dc.l    $cffffff0,$cc000030,$cc000030,$cc000030,$cc000030
  748. dc.l    $cc001f30,$cc001f30,$cc001f30,$cc000030,$cffffff0
  749. dc.l    $00000000,$03ffffc0,$03ffffc0,$03ffffc0,$03ff8000
  750. dc.l    $03ff8000,$03ff8000,$03ff8000,$03ff8000,$00000000
  751. render:
  752. dc.l    0
  753. dc.b    1,0,1,9
  754. dc.l    kords,render3
  755. render2:
  756. dc.l    0
  757. dc.b    0,0,1,9
  758. dc.l    kords,render3
  759. render3:
  760. dc.l    0
  761. dc.b    2,0,1,5
  762. dc.l    kords2,0
  763. kords:
  764. dc.w    -2,-1,69,-1,69,13,-2,13,-2,-1,68,-1,68,13,-1,13,-1,-1
  765. kords2:
  766. dc.w    0,14,71,14,71,0,70,0,70,14
  767. menu1:
  768. dc.l 0
  769. dc.w    10,0,64,10,1
  770. dc.l    men1tex,menui3,0,0
  771. men1tex:
  772. dc.b    "PROGRAM",0
  773. menui3:
  774. dc.l    menui4
  775. dc.w    -10,0,112,10,$52
  776. dc.l    0,mi3tex,0
  777. dc.w    0,0,0,0,0
  778. mi3tex:
  779. dc.b    0,1,0,0
  780. dc.w    4,1
  781. dc.l    0,mi3text,0
  782. mi3text:
  783. dc.b "Copyright",0
  784. menui4:
  785. dc.l    menui5
  786. dc.w    -10,3,112,10,$d2
  787. dc.l    0,mi4tex,0
  788. dc.w    0,0,0,0,0
  789. mi4tex:
  790. dc.b    3,1,0,0
  791. dc.w    4,1
  792. dc.l    0,mi4text,mi4btex
  793. mi4btex:
  794. dc.b    3,1,0,0
  795. dc.w    3,1
  796. dc.l    0,mi4text,0
  797. mi4text:
  798. dc.b "_____________",0
  799. menui5:
  800. dc.l    0
  801. dc.w    -10,13,112,10,$52
  802. dc.l    0,mi5tex,0
  803. dc.w    0,0,0,0,0
  804. mi5tex:
  805. dc.b    0,1,0,0
  806. dc.w    4,1
  807. dc.l    0,mi5text,0
  808. mi5text:
  809. dc.b    "Quit",0,0
  810. ;
  811. feld:
  812. dc.b    0,0,0,0,1,0,0,0,0
  813. dc.b    0,0,0,0,1,0,0,0,0
  814. no1:
  815. dc.b    1,1,0,1,1,0,0,0,0
  816. dc.b    1,1,1,0,1,0,0,0,0
  817. dc.b    0,1,1,0,1,1,0,0,0
  818. dc.b    1,0,0,1,1,0,1,0,0
  819. dc.b    0,1,0,1,1,1,0,1,0
  820. dc.b    0,0,1,0,1,1,0,0,1
  821. dc.b    0,0,0,1,1,0,1,1,0
  822. dc.b    0,0,0,0,1,0,1,1,1
  823. dc.b    0,0,0,0,1,1,0,1,1,0
  824. undo:
  825. blk.b    20,10
  826. gfx:
  827. dc.l $00000000,$00007F00,$00F00003,$800FC007,$0000000F,$FFFE0000
  828. dc.l $00000000,$00000000,$0000FF80,$03FC001F,$F81FE01F,$E000001F
  829. dc.l $FFFF0000,$00000000,$00000000,$0001FF80,$0FFF007F,$FC1FE07F
  830. dc.l $F800001F,$FFFF0000,$00000000,$00000000,$0000FF00,$1FFF80FF
  831. dc.l $FE1FE0FF,$FC00001F,$FFFF0000,$00000000,$00000000,$00007E00
  832. dc.l $1FFFC0FC,$7E0FC0FF,$FE00000F,$E0FE0000,$00000000,$00000000
  833. dc.l $00003E00,$3F3FC1F8,$3E0FC1F8,$FE000007,$E0FC0000,$00000000
  834. dc.l $00000000,$00003E00,$3E1FE1F0,$1E0FC1F0,$3E000007,$E0FC0000
  835. dc.l $00000000,$00000000,$00003E00,$7E0FE3F0,$0E0FC3F0,$3E000007
  836. dc.l $E0FC0000,$00000000,$00000000,$00003E00,$7E0FE3F0,$060FC3F0
  837. dc.l $1E000007,$E0FC0000,$00000000,$00000000,$00003E00,$FE07F7F0
  838. dc.l $000FC3F0,$0C000007,$E0FC0000,$00000000,$00000000,$00003E00
  839. dc.l $FE07F7F0,$000FC7F0,$00000007,$E0FC0000,$00000000,$00000000
  840. dc.l $00003E00,$FE07F7F0,$000FC7F0,$00000007,$E0FC0000,$00000000
  841. dc.l $00000000,$00003E00,$FE07F7F0,$7F0FC7F0,$00000007,$E0FC0000
  842. dc.l $00000000,$00000000,$00003E00,$FE07F7F0,$FF8FC7F0,$00000007
  843. dc.l $E0FC0000,$00000000,$00000000,$00003E00,$7F07F7F1,$FF8FC7F8
  844. dc.l $00000007,$E0FC0000,$00000000,$00000000,$00003E00,$7F07E3F0
  845. dc.l $FF0FC3F8,$00000007,$E0FC0000,$00000000,$00000000,$00003E02
  846. dc.l $7F87E3F8,$3E0FC3FC,$0C000007,$E0FC0000,$00000000,$00000000
  847. dc.l $00003E06,$3F87E3F8,$3E0FC3FF,$1E000007,$E0FC0000,$00000000
  848. dc.l $00000000,$00003E0E,$3FCFC1FC,$3E0FC1FF,$FE000007,$E0FC0000
  849. dc.l $00000000,$00000000,$00007F1E,$1FFFC0FF,$FC0FC1FF,$FC00000F
  850. dc.l $E0FE0000,$00000000,$00000000,$00007FFE,$0FFF80FF,$FC1FE0FF
  851. dc.l $FC00001F,$FFFF0000,$00000000,$00000000,$0000FFFE,$07FF007F
  852. dc.l $F81FE07F,$F800001F,$FFFF0000,$00000000,$00000000,$0000FFFC
  853. dc.l $01FC001F,$E00FC01F,$E000000F,$FFFE0000,$00000000,$00000000
  854. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  855. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  856. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  857. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  858. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  859. dc.l $00000000,$00000000,$00000000,$00000000,$1C000000,$0007FF01
  860. dc.l $80000000,$00000000,$000001F0,$00000000,$00000000,$3C000000
  861. dc.l $000FFF87,$80000000,$00000000,$000003F8,$00000000,$00000000
  862. dc.l $7C000000,$001FFFCF,$80000000,$00000000,$000003F8,$00000000
  863. dc.l $00000000,$FC000000,$001FFFCF,$80000000,$00000000,$000001F0
  864. dc.l $00000000,$00000000,$3C000000,$001EFBC7,$80000000,$00000000
  865. dc.l $000000F0,$00000000,$00000000,$3CE1F0C0,$001CF9C7,$8C03E018
  866. dc.l $C600603F,$000000F0,$1803181F,$81E03180,$3FF3F9E0,$0018F8C7
  867. dc.l $BE07F079,$EF01F87F,$800000F0,$7E0F3C3F,$C7F0F3C0,$3FFBF9E0
  868. dc.l $0000F807,$FF0FF8FF,$FF83FCFF,$800000F0,$FF1FFE7F,$CF39FFE0
  869. dc.l $3FF9F0E0,$0000F807,$FF1F7CFF,$FFC73CF9,$000000F1,$CF3FFE7C
  870. dc.l $8F3BFFE0,$3E78F1C0,$0000F807,$DF1E3C7D,$F7C63EFC,$000000F1
  871. dc.l $8F9F7E7E,$1FF9F7E0,$3E78F9C0,$0000F807,$8F1E3C78,$E3C03EFE
  872. dc.l $000000F0,$0F9E3E7F,$1FF9E3E0,$3E787B80,$0000F807,$8F1E3C78
  873. dc.l $E3C1FE7F,$000000F0,$7F9E3E3F,$9FF1E3E0,$3E787F80,$0000F807
  874. dc.l $8F1E3C78,$E3C7FE3F,$800038F1,$FF9E3E1F,$DF01E3E0,$3E783F80
  875. dc.l $0000F807,$8F1E3C78,$E3C73E1F,$80007CF1,$CF9E3E0F,$CF09E3E0
  876. dc.l $3E783F00,$0000F807,$8F0F7878,$E3CF3ECF,$80007CF3,$CF9E3E67
  877. dc.l $CFF9E3E0,$3FF03F00,$0001FC0F,$8F0FF878,$E3CF3EEF,$80007FF3
  878. dc.l $CF9E3E77,$C7F9E3E0,$3FE01F00,$0003FE1F,$DF87F0F9,$F3E7FE7F
  879. dc.l $00003FE1,$FFBF3F3F,$87F3F3F0,$07801E00,$0001FC1F,$DF83C0F9
  880. dc.l $F3E3F63E,$00000FC0,$FD9E1E1F,$01E1E1E0,$0000DE00,$00000000
  881. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$0001DC00
  882. dc.l $00000000,$00000000,$00000000,$00000000,$00000000,$00000000
  883. dc.l $0001FC00,$00000000,$00000000,$00000000,$00000000,$00000000
  884. dc.l $00000000,$0001F800,$00000000,$00000000,$00000000,$00000000
  885. dc.l $00000000,$00000000,$0000F000,$00000000,$00000000,$00000000
  886. dc.l $00000000,$00000000,$00000000
  887. gfxe:
  888.