home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / Source / pheno.lha / pha / BalkH2.s < prev    next >
Encoding:
Text File  |  1987-12-17  |  12.1 KB  |  635 lines
  1. ;------------------------------------------------------------------------
  2. ;-                                    -
  3. ;-            'RasterBalk - Rymd'                -
  4. ;-                                    -
  5. ;------------------------------------------------------------------------
  6.  
  7. org    $20000
  8. load    $20000
  9.  
  10. >EXTERN        'Perspektiv2',Per
  11. >EXTERN        'BalkSin',Sin
  12. >EXTERN        'Welcome',Text
  13.  
  14. ;------------------------------------------------------------------------
  15.  
  16. S:        movem.l    d0-d7/a0-a6,-(sp)
  17.         bsr.s    Startup
  18.         bsr.L    InitRutin
  19.         bsr.s    StartCop
  20.         bsr.L    MainLoop
  21.         bsr.s    RestoreCop
  22.         movem.l    (sp)+,d0-d7/a0-a6
  23.         rts
  24.  
  25. Startup:    move.l    $4.W,a6
  26.         lea.l    Lib(pc),a1
  27.         lea    OldCop(pc),a2
  28.         moveq    #0,d0
  29.         moveq    #15,d3
  30.         jsr    -408(a6)
  31.         move.l    d0,a0
  32.         move.l    $26(a0),(a2)+
  33.         lea.l    $dff000,a6
  34.         move.w    2(a6),d0
  35.         bset    d3,d0
  36.         move.w    d0,(a2)+
  37.         move.w    $1c(a6),d0
  38.         bset    d3,d0
  39.         move.w    d0,(a2)+
  40.         rts
  41.  
  42. StartCop:    lea    CopperList(pc),a0
  43.         move.l    a0,$80(a6)
  44.         tst.w    $88(a6)
  45.         move.w    #$7fff,d0
  46.         move.w    d0,$96(a6)
  47.         move.w    d0,$9a(a6)
  48.         move.w    #$87c0,$96(a6)
  49.         move.w    #$c000,$9a(a6)
  50.         rts
  51.  
  52. RestoreCop:    lea    OldCop(pc),a0
  53.         move.l    (a0)+,$80(a6)
  54.         tst.w    $88(a6)
  55.         move.w    (a0)+,$96(a6)
  56.         move.w    (a0)+,$9a(a6)
  57.         rts
  58.  
  59.     ;-----------------------------------------------------
  60.         OldCop:        dc.l    0
  61.         OldDma:        dc.w    0
  62.         OldIrq:        dc.w    0
  63.         Lib:        dc.b    'graphics.library',0
  64.                 even
  65.     ;-----------------------------------------------------
  66.  
  67. ;------------------------------------------------------------------------
  68.  
  69. BlitWait:    btst    #14,2(a6)
  70.         bne.S    BlitWait
  71.         rts
  72.  
  73. ClearScreen:    bsr.S    BlitWait
  74.         move.l    #-1,$44(a6)
  75.         move.l    #$01000000,$40(a6)
  76.         move.w    d2,$66(a6)
  77.         move.l    d0,$54(a6)
  78.         move.w    d1,$58(a6)
  79.         rts
  80.  
  81. ;------------------------------------------------------------------------
  82.  
  83. InitRutin:    lea    CopperList+2(pc),a0
  84.         lea    BlindSpr(pc),a1
  85.         move.l    a1,d0
  86.         moveq    #7,d7
  87. SprLoop:    swap    d0
  88.         move.w    d0,(a0)
  89.         swap    d0
  90.         move.w    d0,4(a0)
  91.         addq.l    #8,a0
  92.         dbf    d7,SprLoop
  93.  
  94.         move.l    #TomRum,d0
  95.         moveq    #0,d2
  96.         move.w    #36*64+20,d1
  97.         bsr.S    ClearScreen
  98.  
  99.         lea    BMap(pc),a0
  100.         move.l    #TomRum,d0
  101.         moveq    #2,d7
  102. BML:        swap    d0
  103.         move.w    d0,2(a0)
  104.         swap    d0
  105.         move.w    d0,6(a0)
  106.         addq.l    #8,a0
  107.         dbf    d7,BML
  108.  
  109.         lea    CopAdr(pc),a3
  110.         movem.l    (a3),a0-a1
  111.         moveq    #-2,d0
  112.         lea.l    CopperList(pc),a2
  113. MLoop:        move.l    (a2),(a0)+
  114.         move.l    (a2)+,(a1)+
  115.         cmp.l    (a2),d0
  116.         bne.S    MLoop
  117.  
  118.         move.l    a0,d0
  119.         sub.l    (a3),d0
  120.         lea    CopAdd(pc),a2
  121.         move.l    d0,(a2)
  122.  
  123.         move.l    #$2007fffe,d0
  124.         move.l    #$01800000,d1
  125.         move.l    #$20ddfffe,d2
  126.         move.l    #$01000000,d3
  127.         move.w    #281-1,d7
  128. MLoop2:        move.l    d0,(a0)+
  129.         move.l    d0,(a1)+
  130.         move.l    d1,(a0)+
  131.         move.l    d1,(a1)+
  132.         move.l    d2,(a0)+
  133.         move.l    d2,(a1)+
  134.         add.l    d3,d0
  135.         add.l    d3,d2
  136.         dbra    d7,MLoop2
  137.         moveq    #-2,d0
  138.         move.l    d0,(a0)+
  139.         move.l    d0,(a1)+
  140.  
  141.         lea    BarSizes+64(pc),a0
  142.         moveq    #2,d0
  143.         moveq    #31,d7
  144. BarLoop1:    move.w    d0,d1
  145.         lsl.w    #6,d1
  146.         addq.w    #1,d1
  147.         move.w    d1,-(a0)
  148.         addq.w    #1,d0
  149.         dbf    d7,BarLoop1
  150.  
  151.         lea    BarAddress+128(pc),a0
  152.         lea    CopperBar(pc),a1
  153.         moveq    #32*2,d0
  154.         moveq    #32-1,d7
  155. BarLoop2:    move.l    a1,-(a0)
  156.         add.l    d0,a1
  157.         subq.w    #2,d0
  158.         dbf    d7,BarLoop2
  159.  
  160.         lea    MulsAdr,a0
  161.         moveq    #0,d0
  162.         moveq    #12,d1
  163.         move.w    #344-1,d7
  164. ML:        move.w    d0,(a0)+
  165.         add.w    d1,d0
  166.         dbf    d7,ML
  167.  
  168.         lea    CopperList(pc),a0
  169.         lea    Colors(pc),a1
  170.         lea    BMap(pc),a2
  171.         sub.l    a0,a1
  172.         sub.l    a0,a2
  173.         lea    ColAdr(pc),a0
  174.         move.l    a1,(a0)+
  175.         move.l    a2,(a0)+
  176.  
  177.         lea    Pointer(pc),a0
  178.         lea    ShowList(pc),a1
  179.         move.l    a1,(a0)
  180.         rts
  181.  
  182.  
  183. CopAdr:        dc.l    $60000
  184.         dc.l    $70000
  185.  
  186. CopAdd:        dc.l    0
  187.  
  188. MulsAdr:    =    $65000
  189. TomRum:        =    $75000
  190.  
  191. BarSizes:    blk.w    32,0
  192. BarAddress:    blk.l    32,0
  193.  
  194. BlindSpr:    dc.l    0
  195. ColAdr:        dc.l    0
  196. BMapAdr:    dc.l    0
  197.  
  198. ;------------------------------------------------------------------------
  199.  
  200. MainLoop:    tst.b    $6(a6)
  201.         bne.S    MainLoop
  202.         tst.b    $5(a6)
  203.         bne.S    MainLoop
  204.         btst    #10,$16(a6)
  205.         beq.S    MainLoop
  206.  
  207.         ;move.w    #$ff,$180(a6)
  208.         bsr.L    Bars
  209.         lea    WWO(pc),a0
  210.         cmp.w    #1,(a0)
  211.         beq.S    Humla
  212.         cmp.w    #1,(a0)
  213.         bgt.S    Humla2
  214.         bsr.s    Texten
  215.         ;move.w    #$fff,$180(a6)
  216.  
  217. Ove:        lea    Exit(pc),a0
  218.         tst.w    (a0)
  219.         beq.S    MainLoop
  220.         rts
  221.  
  222. Humla:        subq.w    #1,(a0)
  223.         bsr    InitNext
  224.         bra.S    Ove
  225.  
  226. Humla2:        subq.w    #1,(a0)
  227.         bra.S    Ove
  228.  
  229. Exit:        dc.w    0
  230.  
  231. ;------------------------------------------------------------------------
  232.  
  233. DB:        dc.w    0
  234.  
  235. Texten:        lea    DB(pc),a0
  236.         bchg    #0,(a0)
  237.         tst.w    (a0)
  238.         beq.S    DoIt
  239.         rts
  240.  
  241. DoIt:        lea    WaitReg(pc),a0
  242.         tst.w    (a0)
  243.         bne.S    NotReady
  244.         bsr.s    FadeIn
  245.         bsr.s    FadeDown
  246.         lea    TextReg(pc),a0
  247.         tst.w    (a0)
  248.         bne.S    NOOO
  249.         lea    Exit(pc),a0
  250.         move.w    #1,(a0)
  251. Nooo:        rts
  252.  
  253. NotReady:    subq.w    #1,(a0)
  254.         lea    FadeRegD(pc),a0
  255.         move.w    #1,(a0)
  256.         rts
  257.  
  258. FadeIn:        lea    FadeRegU(pc),a0
  259.         tst.w    (a0)
  260.         bne.S    FadeIt1
  261.         rts
  262. FadeIt1:    lea    Text,a0
  263.         move.l    CopAdr(pc),a1
  264.         add.l    ColAdr(pc),a1
  265.         move.l    CopAdr+4(pc),a2
  266.         add.l    ColAdr(pc),a2
  267.         moveq    #0,d2
  268.         moveq    #7,d7
  269. ColLoop1:    move.w    (a0)+,d1
  270.         move.w    2(a1),d0
  271.         cmp.w    d0,d1
  272.         beq.S    NoNess
  273.         bsr.s    FadeColor
  274.         move.w    d0,2(a1)
  275.         move.w    d0,2(a2)
  276.         moveq    #1,d2
  277. NoNess:        addq.l    #4,a1
  278.         addq.l    #4,a2
  279.         dbf    d7,ColLoop1
  280.         tst.w    d2
  281.         bne.S    NotFi1
  282.         lea    FadeRegD(pc),a0
  283.         moveq    #0,d0
  284.         move.l    d0,(a0)
  285.         lea    WaitReg(pc),a0
  286.         move.w    WWW(pc),(a0)
  287. NotFi1:        rts
  288.  
  289. FadeDown:    lea    FadeRegD(pc),a0
  290.         tst.w    (a0)
  291.         bne.S    FadeIt2
  292.         rts
  293. FadeIt2:    move.l    CopAdr+4(pc),a1
  294.         add.l    ColAdr(pc),a1
  295.         move.l    CopAdr(pc),a2
  296.         add.l    ColAdr(pc),a2
  297.         moveq    #0,d2
  298.         moveq    #7,d7
  299. ColLoop2:    moveq    #0,d1
  300.         move.w    2(a1),d0
  301.         cmp.w    d0,d1
  302.         beq.S    NoNess2
  303.         bsr.s    FadeColor
  304.         move.w    d0,2(a1)
  305.         move.w    d0,2(a2)
  306.         moveq    #1,d2
  307. NoNess2:    addq.l    #4,a1
  308.         addq.l    #4,a2
  309.         dbf    d7,ColLoop2
  310.         tst.w    d2
  311.         bne.S    NotFi2
  312.         lea    FadeRegD(pc),a0
  313.         moveq    #1,d0
  314.         move.l    d0,(a0)
  315.         bsr.s    InitNext
  316. NotFi2:        rts
  317.  
  318. FadeColor:    move.l    d2,-(a7)
  319.         move.w    d0,d2
  320.         move.w    d1,d3
  321.         moveq    #0,d4
  322.         moveq    #2,d6
  323. FL:        move.w    d2,d0
  324.         move.w    d3,d1
  325.         and.w    #$f,d0
  326.         and.w    #$f,d1
  327.         cmp.w    d0,d1
  328.         bhi.S    Raise
  329.         cmp.w    d0,d1
  330.         blo.S    Lower
  331.         bra.S    Nextis
  332. Raise:        addq.w    #1,d0
  333.         bra.S    Nextis
  334. Lower:        subq.w    #1,d0
  335. Nextis:        or.w    d0,d4
  336.         ror.w    #4,d4
  337.         lsr.w    #4,d2
  338.         lsr.w    #4,d3
  339.         dbf    d6,FL
  340.         ror.w    #4,d4
  341.         move.w    d4,d0
  342.         move.l    (a7)+,d2
  343.         rts
  344.  
  345. InitNext:    move.l    Pointer(pc),a0
  346.         move.l    CopAdr(pc),a1
  347.         add.l    BMapAdr(pc),a1
  348.         move.l    (a0),d0
  349.         moveq    #2,d7
  350.         bsr.S    BMapLoop
  351.         move.l    CopAdr+4(pc),a1
  352.         add.l    BMapAdr(pc),a1
  353.         move.l    (a0)+,d0
  354.         moveq    #2,d7
  355.         bsr.S    BMapLoop
  356.         lea    TextReg(pc),a1
  357.         subq.w    #1,(a1)
  358.         lea    WWW(pc),a1
  359.         move.w    (a0)+,(a1)
  360.         lea    Pointer(pc),a1
  361.         move.l    a0,(a1)
  362.         rts
  363.  
  364. BMapLoop:    swap    d0
  365.         move.w    d0,2(a1)
  366.         swap    d0
  367.         move.w    d0,6(a1)
  368.         addq.l    #8,a1
  369.         add.l    #111*40,d0
  370.         dbf    d7,BMapLoop
  371.         rts
  372.  
  373. WWO:        dc.w    160
  374. WWW:        dc.w    0
  375. Pointer:    dc.l    0
  376. FadeRegD:    dc.w    0
  377. FadeRegU:    dc.w    1
  378. WaitReg:    dc.w    0
  379. TextReg:    dc.w    4
  380. ShowList:    dc.l    Text+16
  381.         dc.w    100
  382.         dc.l    Text+[40*38]+16
  383.         dc.w    100
  384.         dc.l    Text+[40*75]+16
  385.         dc.w    100
  386.  
  387. ;------------------------------------------------------------------------
  388.  
  389. Bars:        bsr.s    Buffra
  390.         bsr.s    Rensa
  391.         bsr.s    Sinus
  392.         bsr.L    Rakna
  393.         bsr.L    Plotta
  394.         rts
  395.  
  396. Buffra:        lea    CopAdr(pc),a0
  397.         move.l    (a0),d0
  398.         move.l    4(a0),(a0)+
  399.         move.l    d0,(a0)
  400.         move.l    d0,$80(a6)
  401.         tst.w    $88(a6)
  402.         rts
  403.  
  404. Rensa:        lea    CopAdr(pc),a0
  405.         move.l    (a0),d0
  406.         add.l    8(a0),d0
  407.         addq.l    #6,d0
  408.         moveq    #12-2,d2
  409.         move.w    #281*64+1,d1
  410.         bsr.L    ClearScreen
  411.         rts
  412.  
  413. Sinus:        lea    Ollie(pc),a0
  414.         move.w    (a0),d0
  415.         move.w    #1000,d1
  416.         addq.w    #1,d0
  417.         cmp.w    d1,d0
  418.         blo.S    NoOllie
  419.         sub.w    d1,d0
  420. NoOllie:    move.w    d0,(a0)
  421.         add.w    d0,d0
  422.         lea    Sin,a0
  423.         move.w    (a0,d0.W),d0
  424.         and.w    #127,d0
  425.         add.w    #-204,d0
  426.         lea    YPos(pc),a0
  427.         move.w    d0,(a0)
  428.  
  429.         lea    ZPos(pc),a0
  430.         move.w    (a0),d4
  431.         sub.w    #6,d4
  432.         cmp.w    #480,d4
  433.         bge.S    NoNewZ
  434.         add.w    #120,d4
  435. NoNewZ:        move.w    d4,(a0)
  436.         rts
  437.  
  438. Ollie:        dc.w    0
  439. YPos:        dc.w    -140
  440. ZPos:        dc.w    1400
  441.  
  442. Rakna:        lea    BalkPosses(pc),a0
  443.         lea    Per(pc),a1
  444.         move.w    ZPos(pc),d0
  445.         move.w    #128,d4
  446.         move.w    YPos(pc),d5
  447.         moveq    #AntZ-1,d7
  448. BL1:        moveq    #AntY-1,d6
  449.         move.w    d5,d1
  450. BL2:        move.w    (a1,d0.W),d2
  451.         move.w    d2,d3
  452.         muls    d1,d2
  453.         lsl.l    #3,d2
  454.         swap    d2
  455.         move.w    d3,(a0)+
  456.         add.w    #204,d2
  457.         move.w    d2,(a0)+
  458.         add.w    d4,d1
  459.         dbf    d6,BL2
  460.         sub.w    #120,d0
  461.         dbf    d7,BL1
  462.         rts
  463.  
  464. Plotta:        lea    BalkPosses(pc),a0
  465.         lea    CopperBar(pc),a1
  466.         lea    BarAddress-4(pc),a2
  467.         lea    MulsAdr,a3
  468.         lea    Nuffror(pc),a4
  469.         move.l    CopAdr(pc),d5
  470.         add.l    CopAdd(pc),d5
  471.         addq.w    #6,d5
  472.  
  473.         bsr.L    BlitWait
  474.         moveq    #-1,d0
  475.         move.l    d0,$44(a6)
  476.         move.l    #$09f00000,$40(a6)
  477.         moveq    #12-2,d0
  478.         move.l    d0,$64(a6)
  479.  
  480.         moveq    #AntY*10-1,d7
  481. PLoop:        move.w    (a0)+,d0
  482.         lsr.w    #7,d0
  483.         and.w    #$fffc,d0
  484.         move.l    (a2,d0.W),d3
  485.         lsr.w    #2,d0
  486.         move.w    (a0)+,d1
  487.         move.w    d0,d4
  488.         lsr.w    #1,d4
  489.         sub.w    d4,d1
  490.         cmp.w    (a4)+,d1
  491.         bgt.S    NoBar
  492.         cmp.w    (a4)+,d1
  493.         bgt.S    NoUpper
  494.  
  495.         cmp.w    #32,d1
  496.         bls.S    NoBar
  497.         moveq    #64,d4
  498.         sub.w    d1,d4
  499.         cmp.w    d0,d4
  500.         bge.S    NoBar
  501.         sub.w    d4,d0
  502.         add.w    d4,d4
  503.         add.w    d4,d3
  504.         moveq    #64,d1
  505.  
  506. NoUpper:    sub.w    (a4),d1
  507.         lsl.w    #6,d0
  508.         addq.w    #1,d0
  509.         move.l    d5,d4
  510.         add.w    d1,d1
  511.         add.w    (a3,d1.W),d4
  512. BW:        btst    #14,2(a6)
  513.         bne.S    BW
  514.         movem.l    d3-d4,$50(a6)
  515.         move.w    d0,$58(a6)
  516. NoBar:        lea    Nuffror(pc),a4
  517.         dbf    d7,PLoop
  518.         rts
  519.  
  520. Nuffror:    dc.w    354,64,64
  521.  
  522. AntZ:        =    5
  523. AntY:        =    4
  524.  
  525. BalkPosses:    blk.w    2*[AntZ*AntY]*2,0
  526.  
  527. ;------------------------------------------------------------------------
  528.  
  529. CopperList:    dc.l    $01200000,$01220000,$01240000,$01260000
  530.         dc.l    $01280000,$012a0000,$012c0000,$012e0000
  531.         dc.l    $01300000,$01320000,$01340000,$01360000
  532.         dc.l    $01380000,$013a0000,$013c0000,$013e0000
  533.  
  534.         dc.l    $008e9a66,$0090bec6,$00920038,$009400d0
  535.         dc.l    $01020000,$01040000,$01080000,$010a0000
  536.  
  537. Colors:        dc.l    $01800000,$01820000,$01840000,$01860000
  538.         dc.l    $01880000,$018a0000,$018c0000,$018e0000
  539.  
  540. BMap:        dc.l    $00e00000,$00e20000,$00e40000,$00e60000
  541.         dc.l    $00e80000,$00ea0000
  542.  
  543.         dc.l    $01003000,$1f07fffe
  544.  
  545.         dc.l    -2
  546.  
  547. ;------------------------------------------------------------------------
  548.  
  549. CopperBar:
  550. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00,$e00,$f00
  551. dc.w    $f00,$e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  552. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00,$e00
  553. dc.w    $f00,$e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  554.  
  555. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00,$e00
  556. dc.w    $e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  557. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00
  558. dc.w    $e00,$d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  559.  
  560. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00,$d00
  561. dc.w    $d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  562. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00
  563. dc.w    $d00,$c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  564.  
  565. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00,$c00
  566. dc.w    $c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  567. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00
  568. dc.w    $c00,$b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  569.  
  570. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00,$b00
  571. dc.w    $b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  572. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00
  573. dc.w    $b00,$a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  574.  
  575. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900,$a00
  576. dc.w    $a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  577. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900
  578. dc.w    $a00,$900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  579.  
  580. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800,$900
  581. dc.w    $900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  582. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800
  583. dc.w    $900,$800,$700,$600,$500,$400,$300,$200,$100,$000
  584.  
  585. dc.w    $000,$100,$200,$300,$400,$500,$600,$700,$800
  586. dc.w    $800,$700,$600,$500,$400,$300,$200,$100,$000
  587. dc.w    $000,$100,$200,$300,$400,$500,$600,$700
  588. dc.w    $800,$700,$600,$500,$400,$300,$200,$100,$000
  589.  
  590. dc.w    $000,$100,$200,$300,$400,$500,$600,$700
  591. dc.w    $700,$600,$500,$400,$300,$200,$100,$000
  592. dc.w    $000,$100,$200,$300,$400,$500,$600
  593. dc.w    $700,$600,$500,$400,$300,$200,$100,$000
  594.  
  595. dc.w    $000,$100,$200,$300,$400,$500,$600
  596. dc.w    $600,$500,$400,$300,$200,$100,$000
  597. dc.w    $000,$100,$200,$300,$400,$500
  598. dc.w    $600,$500,$400,$300,$200,$100,$000
  599.  
  600. dc.w    $000,$100,$200,$300,$400,$500
  601. dc.w    $500,$400,$300,$200,$100,$000
  602. dc.w    $000,$100,$200,$300,$400
  603. dc.w    $500,$400,$300,$200,$100,$000
  604.  
  605. dc.w    $000,$100,$200,$300,$400
  606. dc.w    $400,$300,$200,$100,$000
  607. dc.w    $000,$100,$200,$300
  608. dc.w    $400,$300,$200,$100,$000
  609.  
  610. dc.w    $000,$100,$200,$300
  611. dc.w    $300,$200,$100,$000
  612. dc.w    $000,$100,$200
  613. dc.w    $300,$200,$100,$000
  614.  
  615. dc.w    $000,$100,$200
  616. dc.w    $200,$100,$000
  617. dc.w    $000,$100
  618. dc.w    $200,$100,$000
  619.  
  620. dc.w    $000,$100
  621. dc.w    $100,$000
  622. dc.w    $000
  623. dc.w    $100,$000
  624.  
  625. dc.w    $000
  626. dc.w    $000
  627. dc.w    $000
  628. dc.w    $000
  629.  
  630. Per:        =    $25000
  631. Sin:        =    $40000
  632. Text:        =    $50000
  633. ss:
  634.  
  635.