home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src1.dms / in.adf / vector(joy)scroll.S < prev    next >
Encoding:
Text File  |  1991-12-13  |  16.1 KB  |  735 lines
  1. >extern "asmdisk1:binary/perspective",perspective
  2.     jmp    rutin
  3. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  4.  
  5.  
  6. graf:    dc.b    "graphics.library",0
  7.     even
  8. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  9. copp:    blk.l    1,0
  10. grap:    blk.l    1,0
  11. lagr:    blk.l    1,0
  12. stack:    blk.l    1,0
  13. screen:    dc.l    0
  14. vcount:    dc.l    0
  15. bok:    dc.l    0
  16. ccount:    dc.l    0
  17. ncount:    dc.l    0
  18. bcn:    dc.l    0
  19. st:    dc.l    0
  20. bre:    dc.w    40
  21. dyk:    dc.l    0
  22. tdyk:    dc.l    0
  23. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  24. rutin:    lea    connections,a0
  25. mulp:    move.w    (a0),d0
  26.     mulu    #6,d0
  27.     move.w    d0,(a0)
  28.     add.w    #2,a0
  29.     cmp.w    #-1,(a0)
  30.     bne    mulp
  31.     move.l    $4,a6        ; Find the Copperlist-Pointer...
  32.     jsr    -150(a6)
  33.     move.l    d0,stack
  34.     lea    graf(pc),a1
  35.     clr.l    d0
  36.     jsr    -552(a6)
  37.     move.l    d0,grap
  38.     add.l    #$32,d0
  39.     move.l    d0,copp
  40. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  41.     move.l    copp,a5        ; Start the Copperlist
  42.     move.w  #$00a0,$dff096
  43.     move.l  (a5),lagr
  44.     move.l  #list,(a5)
  45.     move.w  #$8380,$dff096
  46.  
  47.     clr.l    d0
  48.     clr.l    d1
  49.     move.l    #$40000,a0
  50. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  51. next:    cmp.b    #$ff,$dff006
  52.     bne    next
  53.     btst    #1,$dff00d
  54.     bne    nori
  55.     btst    #15,$bfe001
  56.     bne    nb0
  57.     add.w    #1,a
  58.     bra    nori
  59. nb0:    add.w    #1,c
  60. nori:    btst    #1,$dff00c
  61.     bne    nole
  62.     btst    #15,$bfe001
  63.     bne    nb1
  64.     sub.w    #1,a
  65.     bra    nole
  66. nb1:    sub.w    #1,c
  67. nole:    move.w    $dff00c,d0
  68.     and.w    #$0303,d0
  69.     cmp.b    #2,d0
  70.     beq    back
  71.     cmp.b    #1,d0
  72.     bne    noback
  73. back:    btst    #15,$bfe001
  74.     bne    nb2
  75.     add.w    #4,depth
  76.     bra    noback
  77. nb2:    add.w    #1,b
  78. noback:    
  79.     lsr.w    #8,d0
  80.     cmp.b    #2,d0
  81.     beq    for
  82.     cmp.b    #1,d0
  83.     bne    nofor
  84. for:    btst    #15,$bfe001
  85.     bne    nb3
  86.     sub.w    #4,depth
  87.     bra    nofor
  88. nb3:    sub.w    #1,b
  89. nofor:
  90.     jsr    cpixel
  91.     jsr    scroll
  92.     add.b    #1,st
  93.     cmp.b    #15,st
  94.     bne    n2
  95.     move.b    #0,st
  96.     bsr    let
  97. n2:    move.w    #0,my
  98.     move.w    #0,mx
  99.     move.b    $dff00a,my+1
  100.     move.b    $dff00b,mx+1
  101.  
  102.     cmp.w    #360,b
  103.     bne    go
  104.     move.w    #0,b
  105. go:
  106.     cmp.w    #360,a
  107.     bne    go1
  108.     move.w    #0,a
  109. go1:
  110.     cmp.w    #360,c
  111.     bne    go2
  112.     move.w    #0,c
  113. go2:
  114.     cmp.w    #$ffff,b
  115.     bne    go3
  116.     move.w    #359,b
  117. go3:
  118.     cmp.w    #$ffff,a
  119.     bne    go4
  120.     move.w    #359,a
  121. go4:
  122.     cmp.w    #$ffff,c
  123.     bne    go5
  124.     move.w    #359,c
  125. go5:
  126.     move.w    #0,nu
  127.  
  128. ploop:    move.l    #coords,a4    ; Count all coords
  129.     move.l    #coords2,a6
  130.     move.w    nu,d2
  131.     add.l    d2,a4
  132.     add.l    d2,a6
  133.     move.w    (a4),d0
  134.     move.w    2(a4),d1
  135.     move.w    4(a4),d2
  136.     bsr    vectorcalc
  137.     move.w    x2,d0
  138.     move.w    y2,d1
  139.     move.w    z2,d2
  140.     lea    perspective,a3
  141.     add    depth,d2
  142.     add    d2,d2
  143.     cmp.w    #$8000,d2
  144.     bls    gn
  145.     moveq    #-1,d0
  146.     moveq    #-1,d0
  147.     bra    gn1
  148. gn:    move    (a3,d2),d5
  149.     muls    d5,d0
  150.     muls    d5,d1
  151.     add.l    d0,d0
  152.     add.l    d1,d1
  153.     swap    d0
  154.     swap    d1
  155.     add.w    #$b0,d0
  156.     add.w    #$70,d1
  157. gn1:    move.w    d0,(a6)
  158.     move.w    d1,2(a6)
  159.     add.w    #6,nu
  160.     move.w    no,d2
  161.     cmp.w    nu,d2
  162.     bne.L    ploop
  163.  
  164.     lea    connections,a4
  165.  
  166.     clr.l    d0
  167.     clr.l    d1
  168.     clr.l    d2
  169.     clr.l    d3
  170.     clr.l    d5
  171.     clr.l    d6
  172. lloop:    
  173.     lea    coords2,a6
  174.     move.w    (a4),d5
  175.     move.w    2(a4),d6
  176.     mulu    #6,d5
  177.     mulu    #6,d6
  178.     move.w    (a6,d5),d0
  179.     cmp.w    #400,d0
  180.     bhi    skip1
  181.     move.w    2(a6,d5),d1
  182.     cmp.w    #300,d1
  183.     bhi    skip1
  184.     move.w    (a6,d6),d2
  185.     cmp.w    #400,d2
  186.     bhi    skip1
  187.     move.w    2(a6,d6),d3
  188.     cmp.w    #300,d3
  189.     bhi    skip1
  190.     move.l    screen,a0
  191.     bsr    initlinedraw
  192.     bsr    linedraw
  193. skip1:    add.l    #4,a4
  194.     cmp.w    #-1,(a4)
  195.     bne.s    lloop
  196.     btst    #6,$bfe001
  197.     bne    next
  198.  
  199. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  200.  
  201. close:    move.l    copp,a5        ; Close Copperlist
  202.     move.w  #$0080,$dff096
  203.     move.l  lagr,(a5)
  204.     move.w  #$80a0,$dff096
  205.     move.l    $4,a6
  206.     move.l    stack,d0
  207.     jsr    -156(a6)
  208.     clr.l    d0
  209.     move.w    #$00968100,dma1
  210.     move.w    #$00968100,dma2
  211.     rts
  212.  
  213. cpixel:    
  214.     move.l    bp,d0
  215.     move.w    bpls+6,d1
  216.     swap    d1
  217.     move.w    bpls+2,d1
  218.     swap    d1
  219.     move.w    d0,bpls+6
  220.     move.w    d0,bpls+14
  221.     ;add.w    #$28,bpls+14
  222.     swap    d0
  223.     move.w    d0,bpls+2
  224.     move.w    d0,bpls+10
  225.     move.l    d1,bp
  226.     swap     d0
  227.     move.l    d1,screen
  228.     move.l    d1,$dff054    
  229.     move.w    #16,$dff064
  230.     move.w    #16,$dff066
  231.     move.l    #$0000,$dff044
  232.     move.w    #$0100,$dff040
  233.     move.w    #$0000,$dff042
  234.     move.w    #$3bd4,$dff058
  235. ts:    btst    #14,$dff002
  236.     bne    ts
  237.     rts
  238. lo:    lea    letters,a0
  239.     bra    lbc
  240. let:    movem.l    d0-d7/a0-a6,-(a7)
  241.     lea    text,a1
  242.     add.l    bcn,a1
  243.     cmp.b    #0,(a1)
  244.     bne    lo2
  245.     lea    text,a1
  246.     move.l    #0,bcn
  247. lo2:    move.b    (a1),d0
  248.     lea    letters,a0
  249.     add.l    #1,bcn
  250.     
  251. letlp:    cmp.l    #letters+3952,a0
  252.     beq    lo
  253.     cmp.b    (a0),d0        ;   Find coordinates for 
  254.     beq    lbc        ; current letter
  255.     add.l    #76,a0
  256.     bra    letlp
  257. lbc:    lea    coords,a1    
  258.     add.l    vcount,a1    ;   Add coords offset to 
  259.     clr.l    d0        ; coords table (scroll space)
  260.     clr.l    d1        ; so that letters will be put out
  261.     move.b    1(a0),d0        ; after eachother.
  262.     move.b    d0,d1        ;  Put number of coords-1 in D0 and D1
  263.     add.l    #2,a0    
  264.  
  265. ptlop:    move.w    (a0),(a1)    ; Copy letter coords into
  266.     add.w    #240,(a1)    ; scroll space
  267.     move.w    2(a0),2(a1)
  268.     move.w    4(a0),4(a1)
  269.     add.l    #6,a0
  270.     add.l    #6,a1        ;   After this loop,A0 points at the
  271.     dbf    d0,ptlop    ; connections of the current letter.
  272.     
  273.     move.l    d1,d2        
  274.     add.w    #1,d2
  275.     add.b    #1,d1        ;   add no. of coords*6 to vcount,
  276.     mulu    #6,d1        ; so it points after current letter
  277.     add.l    d1,vcount
  278.     add.b    #1,bok
  279.  
  280.     ;add.w    #110,d6
  281.     lea    connections,a1    
  282.     add.l    ncount,a1
  283.  
  284. colp:    move.l    ccount,d0    ;   Copy letter connections into
  285.     move.w    (a0),(a1)    ; connections buffer.
  286.     add.w    d0,(a1)        ;   ncount contains previous
  287.     move.w    2(a0),2(a1)    ; number of connections,and ccount
  288.     add.w    d0,2(a1)    ; contains previous no. of coords,
  289.     add.l    #4,ncount    ; and is added to the connection
  290.     add.l    #4,a1        ; values to make a complete table.
  291.     add.l    #4,a0
  292.     cmp.w    #-1,(a0)
  293.     bne    colp
  294.     ;move.w    #-1,(a1)
  295.     ;move.w    #-1,2(a1)
  296.     add.l    d2,ccount    
  297.     move.l    ccount,d0
  298.     mulu    #6,d0
  299.     move.w    #6*7*6,no
  300. ;         ^=no.of letters
  301.     cmp.b    #6,bok        ;   Check if scroll space is full,
  302.     bne    lt2        ; in that case,clear connections
  303.     move.b    #0,bok        ; and coords offset = next letter
  304.     move.l    0,vcount    ; will be put in the beginning
  305.     move.l    0,ccount    ; of the scrollspace
  306.     move.l    0,ncount
  307. lt2:    movem.l    (a7)+,d0-d7/a0-a6
  308.     rts
  309.  
  310. scroll:    lea    coords,a1
  311.     clr.l    d0
  312. scroll2:sub.w    #8,(a1)
  313.     add.l    #6,a1
  314.     add.l    #6,d0
  315.     cmp.w    no,d0
  316.     bne    scroll2
  317. vectorcalc:
  318.     move.w    a,d6
  319.     lsl.w    #1,d6
  320.     lea    sinus(pc),a0
  321.     move.w    (a0,d6),d3
  322.     move.w    d3,d5
  323.     muls    d1,d3
  324.     lsl.l    #2,d3
  325.     swap    d3    ;d3 holds y*sin(a)
  326.  
  327.     lea    cosinus(pc),a1
  328.     move.w    (a1,d6),d4
  329.     move.w    d4,d7
  330.     muls    d0,d4
  331.     lsl.l    #2,d4
  332.     swap    d4    ;d4 holds x*cos(a)
  333.     
  334.     sub.w    d3,d4    ;d4 holds x*cos(a)-y*sin(a)=x1
  335.     move.w    d4,x1
  336.     muls    d1,d7
  337.     muls    d0,d5
  338.     lsl.l    #2,d7
  339.     swap    d7
  340.     lsl.l    #2,d5
  341.     swap    d5
  342.     add.w    d5,d7    ;d7 holds y*cos(a)-x*sin(a)=y1
  343.     move.w    d7,y1
  344.  
  345.     
  346.     move.w    b,d6
  347.     lsl.w    #1,d6
  348.     move.w    (a0,d6),d3
  349.     move.w    d3,d5
  350.     muls    d2,d3
  351.     lsl.l    #2,d3
  352.     swap    d3    ;d3 holds z*sin(b)
  353.  
  354.     move.w    (a1,d6),d4
  355.     move.w    d4,d7
  356.     muls    y1,d4
  357.     lsl.l    #2,d4
  358.     swap    d4    ;d4 holds y1*cos(b)
  359.  
  360.     sub.w    d3,d4    ;d4 holds y1*cos(b)-z*sin(b)=y2
  361.     move.w    d4,y2
  362.     muls    d2,d7
  363.     muls    y1,d5
  364.     lsl.l    #2,d7
  365.     swap    d7
  366.     lsl.l    #2,d5
  367.     swap    d5
  368.     add.w    d5,d7    ;d7 holds z*cos(b)+y1*sin(b)=z1
  369.     move.w    d7,z1
  370.  
  371.  
  372.     move.w    c,d6
  373.     lsl.w    #1,d6
  374.     move.w    (a0,d6),d3
  375.     move.w    d3,d5
  376.     muls    x1,d3
  377.     lsl.l    #2,d3
  378.     swap    d3    ;d3 holds x1*sin(c)
  379.  
  380.     move.w    (a1,d6),d4
  381.     move.w    d4,d7
  382.     muls    z1,d4
  383.     lsl.l    #2,d4
  384.     swap    d4    ;d4 holds z1*cos(c)
  385.  
  386.     sub.w    d3,d4    ;d4 holds z1*cos(c)-x1*sin(c)=z2
  387.     move.w    d4,z2
  388.     muls    x1,d7
  389.     muls    z1,d5
  390.     lsl.l    #2,d7
  391.     swap    d7
  392.     lsl.l    #2,d5
  393.     swap    d5
  394.     add.w    d5,d7    ;d7 holds x1*cos(c)+z1*sin(c)=x2
  395.     move.w    d7,x2
  396.  
  397.     rts
  398.  
  399.  
  400. ; The linedrawing routine - taken from an 'learn assembler' disk!
  401.  
  402. swid=56
  403.  
  404. linedraw:
  405. cmp.w    d0,d2
  406. bne.s    ld_not1pix
  407. cmp.w    d1,d3
  408. bne.s    ld_not1pix
  409. rts
  410. ld_not1pix:
  411. movem.l    d4/d7/a3-a4,-(a7)
  412. moveq    #0,d7
  413. sub.w    d0,d2
  414. bge.s    ld_xok
  415. neg.w    d2
  416. addq.w    #2,d7
  417. ld_xok:
  418. sub.w    d1,d3
  419. bge.s    ld_yok
  420. neg.w    d3
  421. addq.w    #4,d7
  422. ld_yok:
  423. cmp.w    d3,d2
  424. bgt.s    ld_xyok
  425. bne.s    ld_not45
  426. add.w    #16,d7
  427. ld_not45:
  428. exg    d2,d3
  429. addq.w    #8,d7
  430. ld_xyok:
  431. add.w    d3,d3
  432. move.w    d3,d4
  433. sub.w    d2,d4
  434. add.w    d3,d3
  435. move.w    d3,a3
  436. add.w    d2,d2
  437. add.w    d2,d2
  438. sub.w    d2,d3
  439. mulu    #swid,d1
  440. move.l    a0,a4
  441. add.w    d1,a4
  442. move.w    d0,d1
  443. lsr.w    #3,d1
  444. add.w    d1,a4
  445. andi.w    #$f,d0
  446. ror.w    #4,d0
  447. add.w    #$bc8,d0
  448. swap    d0
  449. move.w    (a1,d7.w),d0
  450. lsl.w    #4,d2
  451. addq.w    #2,d2
  452. ld_wldraw:
  453. btst    #6,$2(a2)
  454. bne.s    ld_wldraw
  455. move.l    d0,$40(a2)
  456. move.w    d3,$64(a2)
  457. move.w    a3,$62(a2)
  458. move.w    d4,$52(a2)
  459. move.l    a4,$48(a2)
  460. move.l    a4,$54(a2)
  461. move.w    d2,$58(a2)
  462. movem.l    (a7)+,d4/d7/a3-a4
  463. rts
  464.  
  465. initlinedraw:
  466. lea.l    octant(pc),a1
  467. move.l    #$dff000,a2
  468. waitinit:
  469. btst    #6,$2(a2)
  470. bne.s    waitinit
  471. move.l    #-1,$44(a2)
  472. move.l    #$ffff8000,$72(a2)
  473. move.w    #swid,$60(a2)
  474. move.w    #swid,$66(a2)
  475. rts
  476.  
  477. octant:
  478. dc.w    $0051,$0055,$0059,$005d
  479. dc.w    $0041,$0049,$0045,$004d
  480. dc.w    $0011,$0015,$0019,$001d
  481. dc.w    $0001,$0009,$0005,$000d
  482.  
  483.  
  484.  
  485. a:    dc.l    0
  486. b:    dc.l    0
  487. c:    dc.l    0
  488. x2:    dc.l    0
  489. y2:    dc.l    0
  490. z2:    dc.l    0
  491. x1:    dc.l    0
  492. y1:    dc.l    0
  493. z1:    dc.l    0
  494. mx:    dc.l    0
  495. my:    dc.l    0
  496. depth:    dc.w    $200
  497. sinus:
  498.  
  499.     dc.w    0,286,572,857,1143,1428,1713,1997,2280,2563,2845,3126
  500.     dc.w    3406,3686,3964,4240,4516,4790,5063,5334,5604,5872
  501.     dc.w    6138,6402,6664,6924,7182,7438,7692,7943,8192,8438
  502.     dc.w    8682,8923,9162,9397,9630,9860,10087,10311,10531
  503.     dc.w    10749,10963,11174,11381,11585,11786,11982,12176
  504.     dc.w    12365,12551,12733,12911,13085,13255,13421,13583
  505.     dc.w    13741,13894,14044,14189,14330,14466,14598,14726,14849
  506.     dc.w    14968,15082,15191,15296,15396,15491,15582,15668,15749
  507.     dc.w    15826,15897,15964,16026,16083,16135,16182,16225,16262
  508.     dc.w    16294,16322,16344,16362,16374,16382,16383
  509.  
  510. cosinus:
  511.     dc.w    16382,16374,16362,16344,16322,16294,16262,16225,16182
  512.     dc.w    16135,16083,16026,15964,15897,15826,15749,15668,15582
  513.     dc.w    15491,15396,15296,15191,15082,14968,14849,14726,14598
  514.     dc.w    14466,14330,14189,14044,13894,13741,13583,13421,13255
  515.     dc.w    13085,12911,12733,12551,12365,12176,11982,11786,11585
  516.     dc.w    11381,11174,10963,10749,10531,10311,10087,9860,9630
  517.     dc.w    9397,9163,8923,8682,8438,8192,7943,7692,7438,7132,6924
  518.     dc.w    6664,6402,6138,5872,5604,5334,5063,4790,4516,4240,3964
  519.     dc.w    3686,3406,3126,2845,2563,2280,1997,1713,1428
  520.     dc.w    1143,857,572,286,0
  521.     
  522. dc.w    -286,-572,-857,-1143,-1428,-1713,-1997,-2280,-2563,-2845,-3126
  523. dc.w    -3406,-3686,-3964,-4240,-4516,-4790,-5063,-5334,-5604,-5872
  524. dc.w    -6138,-6402,-6664,-6924,-7182,-7438,-7692,-7943,-8192,-8438
  525. dc.w    -8682,-8923,-9162,-9397,-9630,-9860,-10087,-10311,-10531
  526. dc.w    -10749,-10963,-11174,-11381,-11585,-11786,-11982,-12176
  527. dc.w    -12365,-12551,-12733,-12911,-13085,-13255,-13421,-13583
  528. dc.w    -13741,-13894,-14044,-14189,-14330,-14466,-14598,-14726,-14849
  529. dc.w    -14968,-15082,-15191,-15296,-15396,-15491,-15582,-15668,-15749
  530. dc.w    -15826,-15897,-15964,-16026,-16083,-16135,-16182,-16225,-16262
  531. dc.w    -16294,-16322,-16344,-16362,-16374,-16382,-16383
  532.  
  533. dc.w    -16382,-16374,-16362,-16344,-16322,-16294,-16262,-16225,-16182
  534. dc.w    -16135,-16083,-16026,-15964,-15897,-15826,-15749,-15668,-15582
  535. dc.w    -15491,-15396,-15296,-15191,-15082,-14968,-14849,-14726,-14598
  536. dc.w    -14466,-14330,-14189,-14044,-13894,-13741,-13583,-13421,-13255
  537. dc.w    -13085,-12911,-12733,-12551,-12365,-12176,-11982,-11786,-11585
  538. dc.w    -11381,-11174,-10963,-10749,-10531,-10311,-10087,-9860,-9630
  539. dc.w    -9397,-9163,-8923,-8682,-8438,-8192,-7943,-7692,-7438,-7132,-6924
  540. dc.w    -6664,-6402,-6138,-5872,-5604,-5334,-5063,-4790,-4516,-4240,-3964
  541. dc.w    -3686,-3406,-3126,-2845,-2563,-2280,-1997,-1713,-1428
  542. dc.w    -1143,-857,-572,-286
  543.     dc.w    0,286,572,857,1143,1428,1713,1997,2280,2563,2845,3126
  544.     dc.w    3406,3686,3964,4240,4516,4790,5063,5334,5604,5872
  545.     dc.w    6138,6402,6664,6924,7182,7438,7692,7943,8192,8438
  546.     dc.w    8682,8923,9162,9397,9630,9860,10087,10311,10531
  547.     dc.w    10749,10963,11174,11381,11585,11786,11982,12176
  548.     dc.w    12365,12551,12732,12911,13085,13255,13421,13583
  549.     dc.w    13741,13894,14044,14189,14330,14466,14598,14726,14849
  550.     dc.w    14968,15082,15191,15296,15396,15491,15582,15668,15749
  551.     dc.w    15826,15897,15964,16026,16083,16135,16182,16225,16262
  552.     dc.w    16294,16322,16344,16362,16374,16382,16384
  553.  
  554. text:    dc.b    "yes this is a vectorscroll.and so what!! i know"
  555.     dc.b    " everbodys doing it nowadays but i dont care!!    ",0
  556.  
  557.  
  558.  
  559.  
  560. even
  561.  
  562. coords:    
  563.  
  564. blk.w    6*3*7,0
  565. ;    ^= number of letters
  566.  
  567. no:    dc.w    5*6*6
  568. nu:    dc.w    0
  569.  
  570. connections:
  571.  
  572. blk.w     6*2*7,0
  573. ;    ^= number of letters
  574. dc.w    -1,-1
  575.  
  576. letters:
  577.  
  578. dc.b    "a",6
  579. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  580. dc.w    0,1,1,2,2,3,4,5,0,0,0,0,0,0,-1,-1       
  581. dc.b    "b",6
  582. dc.w    -50,50,0,0,50,0,50,25,0,0,0,0,50,-25,0,0,-50,0,-50,-50,0
  583. dc.w    0,1,1,2,2,3,3,4,4,5,5,6,0,6,-1,-1    
  584. dc.b    "z",6
  585. dc.w    -50,50,0,50,50,0,-50,-50,0,50,-50,0,0,0,0,0,0,0,0,0,0
  586. dc.w    0,1,1,2,2,3,0,0,0,0,0,0,0,0,-1,-1
  587. dc.b    " ",6
  588. dc.w    0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  589. dc.w    0,0,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1
  590. dc.b    "u",6
  591. dc.w    -50,50,0,-50,-50,0,50,-50,0,50,50,0,0,0,0,0,0,0,0,0,0
  592. dc.w    0,1,1,2,2,3,0,0,0,0,0,0,0,0,-1,-1
  593. dc.b    "r",6
  594. dc.w    -50,50,0,50,50,0,50,0,0,-50,0,0,-50,-50,0,0,0,0,50,-50,0
  595. dc.w    0,1,1,2,2,3,0,3,3,4,5,6,0,0,-1,-1
  596. dc.b    "e",6
  597. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  598. dc.w    0,3,0,1,1,2,4,5,0,0,0,0,0,0,-1,-1
  599. dc.b    "f",6
  600. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  601. dc.w    0,0,0,1,1,2,4,5,0,0,0,0,0,0,-1,-1
  602. dc.b    "p",6
  603. dc.w    -50,50,0,50,50,0,50,0,0,-50,0,0,-50,-50,0,0,0,0,50,-50,0
  604. dc.w    0,1,1,2,2,3,0,3,3,4,0,0,0,0,-1,-1
  605. dc.b    "c",6
  606. dc.w    -50,50,0,-50,-50,0,50,-50,0,50,50,0,0,0,0,0,0,0,0,0,0
  607. dc.w    0,1,1,2,0,3,0,0,0,0,0,0,0,0,-1,-1
  608. dc.b    "o",6
  609. dc.w    -50,50,0,-50,-50,0,50,-50,0,50,50,0,0,0,0,0,0,0,0,0,0
  610. dc.w    0,1,1,2,2,3,0,3,0,0,0,0,0,0,-1,-1
  611. dc.b    "k",6
  612. dc.w     -50,50,0,-50,0,0,-50,-50,0,50,50,0,50,-50,0,0,0,0,0,0,0
  613. dc.w    0,2,1,3,1,4,0,0,0,0,0,0,0,0,-1,-1
  614. dc.b    "d",6
  615. dc.w    -50,50,0,50,0,0,-50,-50,0,0,0,0,0,0,0,0,0,0,0,0,0
  616. dc.w    0,1,1,2,0,2,0,0,0,0,0,0,0,0,-1,-1
  617. dc.b    "g",6
  618. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,0,0,0,50,0,0,0,0,0
  619. dc.w    1,2,0,1,0,3,3,5,4,5,0,0,0,0,-1,-1
  620. dc.b    "h",6
  621. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  622. dc.w    0,1,0,0,2,3,4,5,0,0,0,0,0,0,-1,-1       
  623. dc.b    "i",6
  624. dc.w    -50,50,0,0,50,0,50,50,0,-50,-50,0,0,-50,0,50,-50,0,0,0,0
  625. dc.w    0,2,3,5,1,4,0,0,0,0,0,0,0,0,-1,-1
  626. dc.b    "j",6
  627. dc.w    -50,50,0,-50,-50,0,50,-50,0,50,50,0,-50,0,0,0,0,0,0,0,0
  628. dc.w    0,3,3,2,2,1,1,4,0,0,0,0,0,0,-1,-1
  629. dc.b    "l",6
  630. dc.w    -50,50,0,-50,-50,0,50,-50,0,0,0,0,0,0,0,0,0,0,0,0,0
  631. dc.w    0,1,1,2,0,0,0,0,0,0,0,0,0,0,-1,-1
  632. dc.b    "m",6
  633. dc.w    -50,-50,0,-50,50,0,0,0,0,50,50,0,50,-50,0,0,0,0,0,0,0
  634. dc.w    0,1,1,2,2,3,3,4,0,0,0,0,0,0,-1,-1
  635. dc.b    "n",6
  636. dc.w    -50,-50,0,-50,50,0,50,-50,0,50,50,0,0,0,0,0,0,0,0,0,0
  637. dc.w    0,1,1,2,2,3,0,0,0,0,0,0,0,0,-1,-1
  638. dc.b    "q",6
  639. dc.w    -50,50,0,50,50,0,50,-25,0,0,-50,0,-50,-50,0,0,0,0,50,-50,0
  640. dc.w    0,1,1,2,2,3,3,4,0,4,5,6,0,0,-1,-1
  641. dc.b    "s",6
  642. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  643. dc.w    1,2,1,4,4,5,3,5,0,3,0,0,0,0,-1,-1
  644. dc.b    "t",6
  645. dc.w    -50,50,0,0,50,0,50,50,0,0,-50,0,0,0,0,0,0,0,0,0,0
  646. dc.w    0,2,1,3,0,0,0,0,0,0,0,0,0,0,-1,-1
  647. dc.b    "v",6
  648. dc.w    -50,50,0,0,-50,0,50,50,0,0,0,0,0,0,0,0,0,0,0,0,0
  649. dc.w    0,1,1,2,0,0,0,0,0,0,0,0,0,0,-1,-1
  650. dc.b    "x",6
  651. dc.w    -50,-50,0,-50,50,0,50,-50,0,50,50,0,0,0,0,0,0,0,0,0,0
  652. dc.w    0,3,1,2,0,0,0,0,0,0,0,0,0,0,-1,-1
  653. dc.b    "y",6
  654. dc.w    -50,50,0,0,0,0,50,50,0,0,-50,0,0,0,0,0,0,0,0,0,0
  655. dc.w    0,1,1,2,1,3,0,0,0,0,0,0,0,0,-1,-1
  656. dc.b    "0",6
  657. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  658. dc.w    0,1,1,2,2,3,0,3,0,2,0,0,0,0,-1,-1
  659. dc.b    "1",6
  660. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  661. dc.w    2,3,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1
  662. dc.b    "2",6
  663. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  664. dc.w    1,2,2,5,4,5,0,4,0,3,0,0,0,0,-1,-1
  665. dc.b    "3",6
  666. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  667. dc.w    1,2,2,4,4,5,5,3,0,3,0,0,0,0,-1,-1
  668. dc.b    "4",6
  669. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  670. dc.w    1,4,4,5,2,3,0,0,0,0,0,0,0,0,-1,-1
  671. dc.b    "5",6
  672. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  673. dc.w    2,1,1,4,4,5,5,3,3,0,0,0,0,0,-1,-1
  674. dc.b    "6",6
  675. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  676. dc.w    1,2,1,0,0,3,3,5,5,4,0,0,0,0,-1,-1
  677. dc.b    "7",6
  678. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  679. dc.w    1,2,2,3,0,0,0,0,0,0,0,0,0,0,-1,-1
  680. dc.b    "8",6
  681. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  682. dc.w    0,1,1,2,2,3,3,0,4,5,0,0,0,0,-1,-1
  683. dc.b    "9",6
  684. dc.w    -50,-50,0,-50,50,0,50,50,0,50,-50,0,-50,0,0,50,0,0,0,0,0
  685. dc.w    5,4,4,1,1,2,2,3,0,0,0,0,0,0,-1,-1
  686. dc.b    "!",6
  687. dc.w    0,50,0,0,-35,0,0,-40,0,0,-50,0,0,0,0,0,0,0,0,0,0
  688. dc.w    0,1,2,3,0,0,0,0,0,0,0,0,0,0,-1,-1
  689. dc.b    ".",6
  690. dc.w    0,-40,0,0,-50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  691. dc.w    0,1,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1
  692. dc.b    "-",6
  693. dc.w    -50,0,0,50,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  694. dc.w    0,1,0,0,0,0,0,0,0,0,0,0,0,0,-1,-1
  695. dc.b    "(",6
  696. dc.w    0,50,0,-50,50,0,-50,-50,0,0,-50,0,0,0,0,0,0,0,0,0,0
  697. dc.w    0,1,1,2,2,3,0,0,0,0,0,0,0,0,-1,-1
  698. dc.b    ")",6
  699. dc.w    0,50,0,50,50,0,50,-50,0,0,-50,0,0,0,0,0,0,0,0,0,0
  700. dc.w    0,1,1,2,2,3,0,0,0,0,0,0,0,0,-1,-1
  701. dc.b    ":",6
  702. dc.w    0,45,0,0,10,0,0,-10,0,0,-45,0,0,0,0,0,0,0,0,0,0    
  703. dc.w    0,1,2,3,0,0,0,0,0,0,0,0,0,0,-1,-1
  704. dc.b    "w",6
  705. dc.w    -50,50,0,-50,-50,0,0,0,0,50,-50,0,50,50,0,0,0,0,0,0,0
  706. dc.w    0,1,1,2,2,3,3,4,0,0,0,0,0,0,-1,-1
  707.  
  708. coords2:    blk.b    4000,0
  709.  
  710. perspective:    blk.b    3940,0
  711. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  712. even
  713. bp:    dc.l    $45000
  714. list:    
  715. dma1:    dc.w     $0096,%0000000100000000
  716.     dc.l    $01800000,$01820fff
  717.     dc.l    $01840fff,$01860fff
  718.     dc.l    $01000000
  719.     dc.l    $3001fffe
  720.     dc.l    $01080010,$010a0010
  721.     dc.w     $0096,%1000000100000000
  722. bpls:    dc.l    $00e00004,$00e20000
  723.     dc.l    $00e40004,$00e60000
  724.     dc.l    $01002200,$01020001
  725.  
  726.  
  727.     dc.l    $ffddfffe,$1f01fffe
  728.     dc.l    $01000000
  729. dma2:    dc.w     $0096,%0000000100000000
  730.     dc.l    $fffffffe    
  731.  
  732.  
  733.  
  734.  
  735.