home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / boot1.s < prev    next >
Encoding:
Text File  |  1990-05-07  |  1.8 KB  |  114 lines
  1. execbase:       =    4
  2. findtask:    =    -294
  3. addport:    =    -354
  4. remport:    =    -360
  5. openlib:    =    -408
  6. closelib:    =    -414
  7. opendev:    =    -444
  8. closedev:    =    -450
  9. doio:        =    -456
  10.  
  11. demo:        move.w    #$27ff,d0
  12.         lea    $11000,a0
  13. demo1:        move.b    #0,(a0)+
  14.         dbra    d0,demo1
  15.         move.w    #2000,d0
  16.  
  17.         lea    $11000,a0
  18.         lea    picture(pc),a1
  19. demo2:        move.b    (a1)+,(a0)+
  20.         dbra    d0,demo2
  21.         move.w    $dff01c,intena
  22.  
  23.         move.w    #$7fff,$dff09a
  24.  
  25.         move.w    $dff002,dmacon
  26.  
  27.         move.w    #$00ff,$dff096
  28.  
  29.         move.w    #$8100,$dff96
  30.         move.w    #100,d3
  31.         move.w    #20,d4
  32.         move.w    #2,d5
  33.         move.w    #2,d6
  34.         clr.w    d2
  35.  
  36. demo3:        btst    #0,$dff004
  37.         bne    demo3
  38.  
  39.         move.w    #$1000,$dff100
  40.         move.w    d3,$dff102
  41.  
  42.         move.w    #$0024,$dff104
  43.         move.l    #$00110000,$dff0e0
  44.         move.w    #$0000,$dff108
  45.         move.w    d3,d7
  46.         asr.w    #1,d7
  47.         add.w    #$30,d7
  48.         move.w    d7,$dff092
  49.         add.w    #$28,d7
  50.  
  51.         move.w    d7,$dff094
  52.         move.w    d4,d7
  53.         asl.w    #8,d7
  54.         add.w    #$3070,d7
  55.         move.w    d7,$dff8e
  56.         move.w    #$2bf0,$dff090
  57.  
  58.         move.w    #28,d0
  59.         move.w    d2,d1
  60.         lea    colortab(pc),a0
  61.  
  62. demo4:        cmp.b    $dff006,d0
  63.  
  64.         bne    demo4
  65.         move.w    (a0,d1),d7
  66.         move.w    d7,$dff180
  67.         asl.w    #4,d7
  68.         move.w    d7,$dff182
  69.         add.w    #2,d1
  70.         and.w    #$1f,d1
  71.         add.w    #1,d0
  72.         cmp.w    #312,d0
  73.  
  74.         bne    demo4
  75.         add.w    #2,d2
  76.         and.w    #$1f,d2
  77.         add.w    d5,d3
  78.         add.w    d6,d4
  79.         cmp.b    #0,d3
  80.  
  81.         bne    demo5
  82.         eor.w    #$ffff,d5
  83.         add.w    #$1,d5
  84. demo5:        move.w    d4,d7
  85.  
  86.         and    #127,d7
  87.         bne    demo6
  88.         eor.w    #$ffff,d6
  89.         add.w    #$1,d6
  90. demo6:        btst    #6,$bfe001
  91.  
  92.         bne    demo3
  93.  
  94.         move.w    dmacon,d0
  95.         or.w    #$8000,d0
  96.         move.w    #$0100,$dff096
  97.         move.w    d0,$dff096
  98.         move.w    intena,d0
  99.         or.w    #$8000,d0
  100.         move.w    d0,$dff09a
  101.                 jmp     end
  102.  
  103. intena:        dc.w    0
  104. dmacon:        dc.w    0
  105. colortab:    dc.w    0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,14,13,12,11,10,9,8,7,6,5,4,3,2,1,0
  106. picture:    blk.b    2000,0
  107.  
  108. end:            
  109.                 move.l  d0,a0
  110.                 move.l  22(a0),a0
  111.                 moveq   #0,d0
  112.                 rts
  113.  
  114.