home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src2.dms / in.adf / Source / scroller(Real).S < prev    next >
Encoding:
Text File  |  1978-10-09  |  12.7 KB  |  723 lines
  1. ; scrollcode by Sharp
  2.  
  3. Lines: equ 32
  4. Lines2: equ 96
  5. Words: equ 2
  6. Words2: equ 22
  7. Modules = (320/8) - (2*(32/16)) 
  8.  
  9.   Section Blitter,Code_C
  10.  
  11. o: move.l #Bild,a0
  12.    move.w #51200,d0
  13. m: move.b #0,(a0)+
  14.    dbra   d0,m
  15.    jsr    gfxopen
  16.    move.w #$4000,$dff09a
  17. p: tst.b  $dff006
  18.    bne    p
  19.    move.w $dff002,dmasaf   
  20.    bset   #7,dmasaf       
  21.    move.w #$7fff,$dff096
  22.    move.w #$83C0,$dff096
  23.    move.l #Copper,$dff080
  24.    clr.w  $dff088
  25.     move.l    #text,point
  26.    
  27.    jsr    logoin
  28.  
  29.    move.l #9,d4
  30. setloop:
  31.    jsr    setup
  32.    dbra   d4,setloop
  33.  
  34.    jsr    next
  35.  
  36. Main: 
  37.     move.b    $dff006,d6
  38.     cmp.b    #$f0,d6
  39.     bne    Main
  40.     btst    #$0,$dff005
  41.     bne    Main
  42.  
  43.    jsr    Blitter
  44.  
  45.    btst   #6,$bfe001
  46.    bne    Main
  47.    
  48. out:
  49.    move.l 4,a6
  50.    clr.w  d0
  51.    lea    gfxname,a1
  52.    jsr    -552(a6)
  53.    move.l d0,a0
  54.    move.l 38(a0),$dff080
  55.    clr.w  $dff088   
  56.    move.w dmasaf,$dff096
  57.    move.w $c000,$dff096
  58.    clr.l  d0
  59.    rts
  60.  
  61. logoin:
  62.    lea     PLANER,a0
  63.      
  64.    move.l  #Bild,d0
  65.    move.l  #5,d1
  66. PLLOOP:
  67.    move.w  d0,6(a0)
  68.    
  69.    swap    d0
  70.    move.w  d0,2(a0)
  71.  
  72.    swap    d0
  73.    add.l   #56000/5,d0
  74.   
  75.    add.l   #8,a0
  76.  
  77.    subq.l  #1,d1
  78.    bne.s   PLLOOP
  79.  
  80.    move.l  #Col,a0
  81.  
  82.    lea     FARVER,a1
  83.    move.l  #32,d0
  84. PRLOOP:
  85.    move.w  (a0)+,2(a1)
  86.    add.l   #4,a1
  87.  
  88.    subq.l  #1,d0
  89.    bne.s   PRLOOP
  90.  
  91.    rts
  92.    
  93. gfxopen:
  94.    move.l 4,a6
  95.    lea    gfxname(pc),a1   
  96.    jsr    -408(a6)
  97.    move.l d0,gfxbase
  98.    rts
  99.  
  100. setup  
  101.          move.w    #0,blitt
  102.        move.l #6,d1
  103.  
  104. set1:    cmp.b    #0,pass3
  105.     bne    set2
  106.         
  107.    move.l #Bild,a3
  108.    move.b #1,pass3
  109.  
  110.     bra    clear2
  111. set2:    cmp.b    #1,pass3
  112.     bne    set3
  113.  
  114.    move.l #Bild+4,a3
  115.    move.b #2,pass3
  116.  
  117.     bra    clear2
  118. set3:    cmp.b    #2,pass3
  119.     bne    set4
  120.  
  121.    move.l #Bild+8,a3
  122.    move.b #3,pass3
  123.  
  124.     bra    clear2
  125. set4:    cmp.b    #3,pass3
  126.     bne    set5
  127.  
  128.    move.l #Bild+12,a3
  129.    move.b #4,pass3
  130.  
  131.     bra    clear2
  132. set5:    cmp.b    #4,pass3
  133.     bne    set6
  134.  
  135.    move.l #Bild+16,a3
  136.    move.b #5,pass3
  137.  
  138.     bra    clear2
  139. set6:    cmp.b    #5,pass3
  140.     bne    set7
  141.  
  142.    move.l #Bild+20,a3
  143.    move.b #6,pass3
  144.  
  145.     bra    clear2
  146. set7:    cmp.b    #6,pass3
  147.     bne    set8
  148.  
  149.    move.l #Bild+24,a3
  150.    move.b #7,pass3
  151.  
  152.     bra    clear2
  153. set8:    cmp.b    #7,pass3
  154.     bne    set9
  155.  
  156.    move.l #Bild+28,a3
  157.    move.b #8,pass3
  158.  
  159.     bra    clear2
  160. set9:    cmp.b    #8,pass3
  161.     bne    set10
  162.  
  163.    move.l #Bild+32,a3
  164.    move.b #9,pass3
  165.  
  166.     bra    clear2
  167. set10:    cmp.b    #9,pass3
  168.     bne    trust
  169.  
  170.    move.l #Bild+36,a3
  171.    move.b #10,pass3
  172.  
  173.     bra    clear2
  174.  
  175. clear2:
  176.       move.l point,a0
  177.         clr.l    d0
  178.         clr.l    d1
  179.         clr.l    d2
  180.         move.b    (a0)+,d0
  181.         cmp.w    #"`",d0
  182.         bne    forts2
  183.         move.l    #text,point
  184.         bra    clear2
  185.  
  186. forts2:        move.l    a0,point
  187.         sub.l    #32,d0
  188.         rol.w    #1,d0
  189.         lea    Charpos,a0
  190.         lea    Read,a1
  191.         move.w    (a0,d0.w),d1
  192.         move.w    d1,d2
  193.         move.l    a1,a2
  194.         add.l    d2,a2
  195.            
  196.  
  197. srow1:    cmp.b    #0,pass
  198.     bne    srow2
  199.         
  200.    move.b #1,pass
  201.  
  202.     bra    blitt_back_block2
  203. srow2:    cmp.b    #1,pass
  204.     bne    srow3
  205.  
  206.    sub.l #44800,a3 
  207.    add.l #1408,a3
  208.    move.b #2,pass
  209.  
  210.     bra    blitt_back_block2
  211. srow3:    cmp.b    #2,pass
  212.     bne    srow4
  213.  
  214.    sub.l #44800,a3
  215.    add.l #1408,a3 
  216.    move.b #3,pass
  217.  
  218.     bra    blitt_back_block2
  219. srow4:    cmp.b    #3,pass
  220.     bne    srow5
  221.  
  222.    sub.l #44800,a3
  223.    add.l #1408,a3 
  224.    move.b #4,pass
  225.  
  226.     bra    blitt_back_block2
  227. srow5:    cmp.b    #4,pass
  228.     bne    srow6
  229.  
  230.    sub.l #44800,a3
  231.    add.l #1408,a3  
  232.    move.b #5,pass
  233.  
  234.     bra    blitt_back_block2
  235. srow6:    cmp.b    #5,pass
  236.     bne    srow7
  237.  
  238.    sub.l #44800,a3
  239.    add.l #1408,a3  
  240.    move.b #6,pass
  241.  
  242.     bra    blitt_back_block2
  243. srow7:    cmp.b    #6,pass
  244.     bne    swrongv
  245.   
  246.    sub.l #44800,a3
  247.    add.l #1408,a3     
  248.    move.b #7,pass 
  249.  
  250.     bra    blitt_back_block2
  251.  
  252. swrongv:    
  253.    move.b #0,pass
  254.     rts
  255.  
  256. blitt_back_block2
  257.      move.l  #$09f00000,$dff040
  258.      move.l  #$ffffffff,$dff044
  259.      move.l  a2,$dff050
  260.      move.l  a3,$dff054
  261.      move.w  #36,$dff064     
  262.      move.w  #40,$dff066     
  263.      move.w  #64*Lines+Words,$dff058
  264.      bsr     Waitblitt
  265.  
  266.         add.l    #8000,a2
  267.       add.l #11200,a3 
  268.  
  269.      move.l  a2,$dff050
  270.      move.l  a3,$dff054
  271.      move.w  #64*Lines+Words,$dff058
  272.      bsr     Waitblitt
  273.  
  274.         add.l    #8000,a2
  275.       add.l #11200,a3
  276.  
  277.      move.l  a2,$dff050
  278.      move.l  a3,$dff054
  279.      move.w  #64*Lines+Words,$dff058
  280.      bsr     Waitblitt
  281.      
  282.         add.l    #8000,a2
  283.       add.l #11200,a3
  284.  
  285.      move.l  a2,$dff050
  286.      move.l  a3,$dff054
  287.      move.w  #64*Lines+Words,$dff058
  288.      bsr     Waitblitt
  289.  
  290.         add.l    #8000,a2
  291.       add.l #11200,a3
  292.  
  293.      move.l  a2,$dff050
  294.      move.l  a3,$dff054
  295.      move.w  #64*Lines+Words,$dff058
  296.      bsr     Waitblitt     
  297.      dbra    d1,clear2
  298. trust: rts
  299.  
  300. Blitter:
  301.    move.l #3,d1
  302.     cmp.b    #0,scrollspeed
  303.     bhi    do_scroll
  304.     rts
  305. do_scroll:
  306.     moveq    #$10,d0
  307.     sub.b    scrollspeed,d0
  308.     and.l    #$f,d0
  309.     ror.l    #4,d0
  310.     add.l    #$09f00000,d0
  311.     move.l    d0,$dff040
  312.     
  313.     cmp.b #0,pass2
  314.     beq  do1
  315.     cmp.b #1,pass2
  316.     beq  do2
  317.     cmp.b #2,pass2
  318.     beq  do3
  319.     rts
  320.  
  321. do1:
  322.     lea     Bild,a3
  323.     move.b #1,pass2    
  324.     bra     Control
  325. do2:     
  326.      lea     Bild,a3
  327.      add.l   #4224,a3
  328.      move.b #2,pass2     
  329.     bra     Control2
  330.  
  331. do3:     
  332.      lea     Bild,a3
  333.      add.l   #5632,a3
  334.      move.b #0,pass2
  335.     bra     Control
  336.  
  337. Control
  338.      move.l  #$ffffffff,$dff044
  339.      move.l  a3,$dff050
  340.      sub.l   #2,a3
  341.      move.l  a3,$dff054
  342.      add.l   #2,a3
  343.       Move.l     #0,$dff064    ; Screen is $50 wide, font is $28 wide          
  344.      move.w  #64*Lines2+Words2,$dff058
  345.      bsr     Waitblitt
  346.  
  347.         add.l    #11200,a3
  348.  
  349.      move.l  #$ffffffff,$dff044
  350.      move.l  a3,$dff050
  351.      sub.l   #2,a3
  352.      move.l  a3,$dff054
  353.      add.l   #2,a3
  354.      Move.l     #0,$dff064    ; Screen is $50 wide, font is $28 wide          
  355.      move.w  #64*Lines2+Words2,$dff058
  356.      bsr     Waitblitt 
  357.  
  358.         add.l    #11200,a3
  359.  
  360.      move.l  #$ffffffff,$dff044
  361.      move.l  a3,$dff050
  362.      sub.l   #2,a3
  363.      move.l  a3,$dff054
  364.      add.l   #2,a3
  365.       Move.l     #0,$dff064    ; Screen is $50 wide, font is $28 wide
  366.      move.w  #64*Lines2+Words2,$dff058
  367.      bsr     Waitblitt
  368.      
  369.         add.l    #11200,a3
  370.  
  371.      move.l  #$ffffffff,$dff044
  372.      move.l  a3,$dff050
  373.      sub.l   #2,a3
  374.      move.l  a3,$dff054
  375.      add.l   #2,a3
  376.       Move.l     #0,$dff064    ; Screen is $50 wide, font is $28 wide
  377.      move.w  #64*Lines2+Words2,$dff058
  378.      bsr     Waitblitt
  379.  
  380.         add.l    #11200,a3
  381.  
  382.      move.l  #$ffffffff,$dff044
  383.      move.l  a3,$dff050
  384.      sub.l   #2,a3
  385.      move.l  a3,$dff054
  386.      add.l   #2,a3
  387.      Move.l     #0,$dff064    ; Screen is $50 wide, font is $28 wide      
  388.      move.w  #64*Lines2+Words2,$dff058
  389.      bsr     Waitblitt
  390.  
  391.     clr    d0
  392.     move.b    scrollspeed,d0
  393.         add.w    #1,blitt
  394.         cmp.w    #30,blitt
  395.         beq.w    next
  396.       rts
  397.  
  398. Control2
  399.      move.l  #$ffffffff,$dff044
  400.      move.l  a3,$dff050
  401.      sub.l   #2,a3
  402.      move.l  a3,$dff054
  403.      add.l   #2,a3
  404.       Move.l     #0,$dff064    ; Screen is $50 wide, font is $28 wide          
  405.      move.w  #64*Lines+Words2,$dff058
  406.      bsr     Waitblitt
  407.  
  408.         add.l    #11200,a3
  409.  
  410.      move.l  #$ffffffff,$dff044
  411.      move.l  a3,$dff050
  412.      sub.l   #2,a3
  413.      move.l  a3,$dff054
  414.      add.l   #2,a3
  415.      Move.l     #0,$dff064    ; Screen is $50 wide, font is $28 wide          
  416.      move.w  #64*Lines+Words2,$dff058
  417.      bsr     Waitblitt 
  418.  
  419.         add.l    #11200,a3
  420.  
  421.      move.l  #$ffffffff,$dff044
  422.      move.l  a3,$dff050
  423.      sub.l   #2,a3
  424.      move.l  a3,$dff054
  425.      add.l   #2,a3
  426.       Move.l     #0,$dff064    ; Screen is $50 wide, font is $28 wide
  427.      move.w  #64*Lines+Words2,$dff058
  428.      bsr     Waitblitt
  429.      
  430.         add.l    #11200,a3
  431.  
  432.      move.l  #$ffffffff,$dff044
  433.      move.l  a3,$dff050
  434.      sub.l   #2,a3
  435.      move.l  a3,$dff054
  436.      add.l   #2,a3
  437.       Move.l     #0,$dff064    ; Screen is $50 wide, font is $28 wide
  438.      move.w  #64*Lines+Words2,$dff058
  439.      bsr     Waitblitt
  440.  
  441.         add.l    #11200,a3
  442.  
  443.      move.l  #$ffffffff,$dff044
  444.      move.l  a3,$dff050
  445.      sub.l   #2,a3
  446.      move.l  a3,$dff054
  447.      add.l   #2,a3
  448.      Move.l     #0,$dff064    ; Screen is $50 wide, font is $28 wide      
  449.      move.w  #64*Lines+Words2,$dff058
  450.      bsr     Waitblitt
  451.  
  452.     clr    d0
  453.     move.b    scrollspeed,d0
  454.         add.w    #1,blitt
  455.         cmp.w    #30,blitt
  456.         beq    next
  457.       rts
  458.  
  459. next  
  460.          move.w    #0,blitt
  461.        move.l #6,d1
  462.  
  463. clear: move.l point,a0
  464.         clr.l    d0
  465.         clr.l    d1
  466.         clr.l    d2
  467.         move.b    (a0)+,d0
  468.         cmp.w    #"`",d0
  469.         bne    forts
  470.         move.l    #text,point
  471.         bra    clear
  472.  
  473. forts:        move.l    a0,point
  474.         sub.l    #32,d0
  475.         rol.w    #1,d0
  476.         lea    Charpos,a0
  477.         lea    Read,a1
  478.         move.w    (a0,d0.w),d1
  479.         move.w    d1,d2
  480.         move.l    a1,a2
  481.         add.l    d2,a2
  482.             
  483. row1:    cmp.b    #0,pass
  484.     bne    row2
  485.  
  486.    move.l #Bild+40,a3        
  487.    move.b #1,pass
  488.  
  489.     bra    blitt_back_block
  490. row2:    cmp.b    #1,pass
  491.     bne    row3
  492.  
  493.    move.l #Bild+40,a3 
  494.    add.l #1408,a3 
  495.    move.b #2,pass
  496.  
  497.     bra    blitt_back_block
  498. row3:    cmp.b    #2,pass
  499.     bne    row4
  500.  
  501.    move.l #Bild+40,a3 
  502.    add.l #2816,a3 
  503.    move.b #3,pass
  504.  
  505.     bra    blitt_back_block
  506. row4:    cmp.b    #3,pass
  507.     bne    row5
  508.  
  509.    move.l #Bild+40,a3 
  510.    add.l #4224,a3 
  511.    move.b #4,pass
  512.  
  513.     bra    blitt_back_block
  514. row5:    cmp.b    #4,pass
  515.     bne    row6
  516.  
  517.    move.l #Bild+40,a3 
  518.    add.l #5632,a3 
  519.    move.b #5,pass
  520.  
  521.     bra    blitt_back_block
  522. row6:    cmp.b    #5,pass
  523.     bne    row7
  524.  
  525.    move.l #Bild+40,a3 
  526.    add.l #7040,a3 
  527.    move.b #6,pass
  528.  
  529.     bra    blitt_back_block
  530. row7:    cmp.b    #6,pass
  531.     bne    wrongv
  532.  
  533.    move.l #Bild+40,a3 
  534.    add.l #8448,a3 
  535.    move.b #7,pass 
  536.  
  537.     bra    blitt_back_block
  538.  
  539. wrongv:    
  540.    move.b #0,pass
  541.     rts
  542.  
  543. blitt_back_block
  544.      move.l  #$09f00000,$dff040
  545.      move.l  #$ffffffff,$dff044
  546.      move.l  a2,$dff050
  547.      move.l  a3,$dff054
  548.      move.w  #36,$dff064     
  549.      move.w  #40,$dff066     
  550.      move.w  #64*Lines+Words,$dff058
  551.      bsr     Waitblitt
  552.  
  553.         add.l    #8000,a2
  554.       add.l #11200,a3 
  555.  
  556.      move.l  a2,$dff050
  557.      move.l  a3,$dff054
  558.      move.w  #64*Lines+Words,$dff058
  559.      bsr     Waitblitt
  560.  
  561.         add.l    #8000,a2
  562.       add.l #11200,a3
  563.  
  564.      move.l  a2,$dff050
  565.      move.l  a3,$dff054
  566.      move.w  #64*Lines+Words,$dff058
  567.      bsr     Waitblitt
  568.      
  569.         add.l    #8000,a2
  570.       add.l #11200,a3
  571.  
  572.      move.l  a2,$dff050
  573.      move.l  a3,$dff054
  574.      move.w  #64*Lines+Words,$dff058
  575.      bsr     Waitblitt
  576.  
  577.         add.l    #8000,a2
  578.       add.l #11200,a3
  579.  
  580.      move.l  a2,$dff050
  581.      move.l  a3,$dff054
  582.      move.w  #64*Lines+Words,$dff058
  583.      bsr     Waitblitt     
  584.      dbra    d1,clear
  585.      rts 
  586.  
  587. Waitblitt:
  588.      btst  #6,$dff002 
  589.      bne.s Waitblitt
  590.      rts
  591.  
  592. pass:    dc.b 0
  593. pass2:   dc.b 0 
  594. pass3:   dc.b 0
  595. dmasaf:  dc.w 0
  596. gfxname:  dc.b 'graphics.library',0
  597. even
  598. gfxbase:  dc.l 0
  599.  
  600. Col:    dc.w    $000,$AAA,$555,$FFF,$808,$000,$420,$620
  601.         dc.w    $950,$C90,$FE0,$080,$0D0,$0CC,$06F,$C08
  602.         dc.w    $620,$E52,$A52,$FCA,$333,$444,$555,$666
  603.         dc.w    $777,$888,$999,$AAA,$CCC,$DDD,$EEE,$FFF
  604.  
  605. Copper:
  606.    dc.w    $008e,$1a64,$0090,$41d1
  607.    dc.w    $0092,$0038,$0094,$00d0
  608.    dc.w    $0102,$0000
  609.    dc.w    $0108
  610.    dc.w    $0004
  611.    dc.w    $010a
  612.    dc.w    $0004
  613.    dc.w    $0180,$0000,$0100,$0200
  614.    dc.w    $0182,$0000
  615.    dc.w    $2e01,$fffe
  616.        
  617.    dc.w    $0180,$0000
  618.  
  619. FARVER:
  620.    dc.w    $0180,$0000,$0182,$0000,$0184,$0000,$0186,$0000
  621.    dc.w    $0188,$0000,$018a,$0000,$018c,$0000,$018e,$0000
  622.    dc.w    $0190,$0000,$0192,$0000,$0194,$0000,$0196,$0000
  623.    dc.w    $0198,$0000,$019a,$0000,$019c,$0000,$019e,$0000
  624.    dc.w    $01a0,$0000,$01a2,$0000,$01a4,$0000,$01a6,$0000
  625.    dc.w    $01a8,$0000,$01aa,$0000,$01ac,$0000,$01ae,$0000
  626.    dc.w    $01b0,$0000,$01b2,$0000,$01b4,$0000,$01b6,$0000
  627.    dc.w    $01b8,$0000,$01ba,$0000,$01bc,$0000,$01be,$0000
  628.  
  629. PLANER:
  630.    dc.w    $00e0,$0007,$00e2,$0000
  631.    dc.w    $00e4,$0007,$00e6,$0000
  632.    dc.w    $00e8,$0007,$00ea,$0000
  633.    dc.w    $00ec,$0007,$00ee,$0000
  634.    dc.w    $00f0,$0007,$00f2,$0000
  635.    dc.w    $3011,$fffe,$0100,$5200
  636.  
  637.    dc.w    $ffe1,$fffe
  638.    dc.w    $0011,$fffe
  639.    
  640.    dc.w    $1401,$fffe
  641.  
  642.    dc.w    $0100,$0200
  643.    dc.w    $0180,$0000
  644.    dc.w    $ffff,$fffe
  645.  
  646. point:        dc.l    0
  647. blitt:        dc.w    0
  648. scrollspeed:    dc.b $3
  649.  
  650. text:
  651.      dc.b 'F<<H$.J '
  652.      dc.b 'P!!I%/K '
  653.      dc.b 'F<<H*<J '
  654.      dc.b 'P!!I+!K '
  655.      dc.b 'F<<H*<J '
  656.      dc.b 'P!!I+!K '
  657.      dc.b 'F<<6@<J '
  658.      dc.b 'P!!7A!K '
  659.      dc.b 'F)3=GQJ '
  660.      dc.b 'P!!!!!K '
  661.      dc.b 'F<<<<<J '
  662.      dc.b 'P)3=GQK '
  663.      dc.b 'F<<4><J '
  664.      dc.b 'P!!5?!K '
  665.      dc.b 'F&0H*<J '
  666.      dc.b "P'1I+!K "
  667.      dc.b 'F<<H*<J '
  668.      dc.b 'P!!I+!K '
  669.      dc.b 'F&0H*<J '
  670.      dc.b "P'1I+!K "
  671.      dc.b 'F<<6@<J '
  672.      dc.b 'P!!7A!K '
  673.      dc.b 'F)3=GQJ '
  674.      dc.b 'P!!!!!K '
  675.      dc.b 'F<<<<<J '
  676.      dc.b 'P!!!!!K '
  677.      dc.b 'F<<<<<J '
  678.      dc.b 'P!!!!!K '
  679.      dc.b 'F<<<<<J '
  680.      dc.b 'P!!!!!K '
  681.      dc.b 'F<<<<<J '
  682.      dc.b 'P)3=GQK '
  683.      dc.b 'F<<4><J '
  684.      dc.b 'P!!5?!K '
  685.      dc.b 'F(2H*<J '
  686.      dc.b 'P!!I+!K '
  687.      dc.b 'F&0H*<J '
  688.      dc.b "P'1I+!K "
  689.      dc.b 'F<<H*<J '
  690.      dc.b 'P(2I+!K '
  691.      dc.b 'F<<6@<J '
  692.      dc.b 'P!!7A!K '
  693.      dc.b 'F)3=GQJ '
  694.      dc.b 'P!!!!!K '
  695.      dc.b 'F<<<<<J '
  696.      dc.b 'P)3=GQK '
  697.      dc.b 'F<<4><J '
  698.      dc.b 'P!!5?!K '
  699.      dc.b 'F<<H*<J '
  700.      dc.b 'P!!I+!K '
  701.      dc.b 'F<<H*<J '
  702.      dc.b 'P!!I+!K '
  703.      dc.b 'F<<H",J '
  704.      dc.b 'P!!I#-K '
  705.         dc.b    "`"
  706.  even
  707.  
  708. Charpos dc.w 0,4,8,12,16,20,24,28,32,36 ; !"#$%&'()
  709.  dc.w 1600,1604,1608,1612,1616,1620,1624,1628,1632,1636 ; *+,-./0123
  710.  dc.w 3200,3204,3208,3212,3216,3220,3224,3228,3232,3236 ; 456789:;<=
  711.  dc.w 4800,4804,4808,4812,4816,4820,4824,4828,4832,4836 ; >?@ABCDEFG 
  712.  dc.w 6400,6404,6408,6412,6416,6420,6424,6428,6432,6436 ; HIJKLMNOPQ
  713.  dc.w 8000,8004,8008,8012,8016,8020,8024,8028,8032,8036 ; RSTUVWXYZ[
  714.  dc.w 0,9604,9608,9612 ; \]^_
  715.  
  716. Read:
  717.  incbin "Asmdisk2:logo/Map.raw"
  718.  even
  719.  
  720. Bild: ds.b 56000
  721.  
  722.  
  723.