home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src2.dms / in.adf / Source / SHOW.S < prev   
Encoding:
Text File  |  2014-11-21  |  3.2 KB  |  177 lines
  1. org $27000
  2. load $27000
  3.  
  4. ; This showroutine and the picture was made by Sharp
  5.  
  6. o:    MOVE.W    #$4000,$00DFF09A
  7.     MOVE.W    #$0020,$00DFF096
  8.     CLR.L    $00DFF144
  9.     MOVE.L    #copper,$00DFF080
  10.     CLR.W    $00DFF088
  11. wait:    CMP.B    #$FF,$00DFF006
  12.     BNE.S    wait
  13.     BSR    login
  14.     BSR    setlog
  15.     TST.W    tom
  16.     BEQ.S    wait
  17.     LEA    picture,A0
  18.     MOVE.L    #$00003FFF,D0
  19. clron:    CLR.L    (A0)+
  20.  
  21.     DBRA    D0,clron
  22.     JMP     Exit
  23.  
  24.         DC.W    $0000
  25. times:  DC.W    $0003
  26. val:    DC.W    $0000
  27. times2: DC.W    $00FF
  28. times3: DC.W    $0003
  29. times4:    DC.W    $0000
  30.  
  31. login:    CMP.W    #15,val
  32.     BEQ.S    check
  33.     TST.W    times
  34.     BNE    check2
  35.     MOVE.W    #2,times
  36.  
  37.     ADDQ.W    #1,val
  38.     LEA    plane,A0
  39.     LEA    tom+2,A1
  40.     MOVEQ    #$1F,D0
  41. ret:    MOVEQ    #0,D2
  42.     MOVEQ    #0,D3
  43.     MOVEQ    #0,D4
  44.     MOVEQ    #0,D5
  45.     MOVEQ    #0,D6
  46.     MOVEQ    #0,D7
  47.     MOVE.W    (A0)+,D5
  48.     MOVE.W    (A1),D2
  49.     MOVE.W    D5,D6
  50.     MOVE.W    D5,D7
  51.     MOVE.W    D2,D3
  52.     MOVE.W    D2,D4
  53.     AND.W    #$0F00,D2
  54.     AND.W    #$00F0,D3
  55.     AND.W    #15,D4
  56.     AND.W    #$0F00,D5
  57.     AND.W    #$00F0,D6
  58.     AND.W    #15,D7
  59.     CMP.W    D2,D5
  60.     BEQ.S    rol1
  61.     ADD.W    #$0100,D2
  62. rol1:    CMP.W    D3,D6
  63.     BEQ.S    rol2
  64.     ADD.W    #$0010,D3
  65. rol2:    CMP.W    D4,D7
  66.     BEQ.S    rol3
  67.     ADD.W    #1,D4
  68. rol3:    ADD.W    D2,D4
  69.     ADD.W    D3,D4
  70.     MOVE.W    D4,(A1)+
  71.     DBRA    D0,ret
  72.     RTS    
  73.  
  74. check:    TST.W    times2
  75.     BEQ.S    logout
  76.     SUBQ.W    #1,times2
  77.     RTS    
  78.  
  79. check2:    SUBQ.W    #1,times
  80.     RTS    
  81.  
  82. logout:    CMP.W    #15,times4
  83.     BEQ.S    check3
  84.     TST.W    times3
  85.     BNE.S    check4
  86.     MOVE.W    #3,times3
  87.     ADDQ.W    #1,times4
  88.     LEA    tom+2,A0
  89.     MOVEQ    #$1F,D0
  90. ret2:    MOVEQ    #0,D5
  91.     MOVEQ    #0,D6
  92.     MOVEQ    #0,D7
  93.     MOVE.W    (A0),D5
  94.     MOVE.W    D5,D6
  95.     MOVE.W    D5,D7
  96.     AND.W    #$0F00,D5
  97.     AND.W    #$00F0,D6
  98.     AND.W    #15,D7
  99.     TST.W    D5
  100.     BEQ.S    rol4
  101.     SUB.W    #$0100,D5
  102. rol4:    TST.W    D6
  103.     BEQ.S    rol5
  104.     SUB.W    #$0010,D6
  105. rol5:    TST.W    D7
  106.     BEQ.S    rol6
  107.     SUB.W    #1,D7
  108. rol6:    ADD.W    D5,D7
  109.     ADD.W    D6,D7
  110.     MOVE.W    D7,(A0)+
  111.     DBRA    D0,ret2
  112.     RTS    
  113.  
  114. check4:    SUBQ.W    #1,times3
  115.     RTS    
  116.  
  117. check3:    NOT.W    tom
  118.     RTS    
  119.     
  120. tom:    DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  121.     DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  122.     DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  123.     DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  124.     DC.W    $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
  125.  
  126. setlog:    LEA    col,A0
  127.     LEA    tom+2,A1
  128.     MOVEQ    #$1F,D0
  129. add:    MOVE.W    (A1)+,(A0)
  130.     ADDQ.W    #4,A0
  131.     DBRA    D0,add
  132.     RTS    
  133.     
  134. copper:    DC.W    $008E,$3038,$0090,$30D0,$0092,$0038,$0094,$00D0
  135.     DC.W    $0108,$0000,$010A,$0000,$0100,$6200,$0180
  136. col:    DC.W    $0000
  137.     DC.W    $0182,$0000,$0184,$0000,$0186,$0000,$0188,$0000
  138.     DC.W    $018A,$0000,$018C,$0000,$018E,$0000,$0190,$0000
  139.     DC.W    $0192,$0000,$0194,$0000,$0196,$0000,$0198,$0000
  140.     DC.W    $019A,$0000,$019C,$0000,$019E,$0000,$01A0,$0000
  141.     DC.W    $01A2,$0000,$01A4,$0000,$01A6,$0000,$01A8,$0000
  142.     DC.W    $01AA,$0000,$01AC,$0000,$01AE,$0000,$01B0,$0000
  143.     DC.W    $01B2,$0000,$01B4,$0000,$01B6,$0000,$01B8,$0000
  144.     DC.W    $01BA,$0000,$01BC,$0000,$01BE,$0000,$00E0,$0006
  145.     DC.W    $00E2,$8000,$00E4,$0006,$00E6,$A800,$00E8,$0006
  146.     DC.W    $00EA,$D000,$00EC,$0006,$00EE,$F800,$00F0,$0007
  147.     DC.W    $00F2,$2000,$00F4,$0007,$00F6,$4800,$FFFF,$FFFE
  148.  
  149. plane:    dc.w    $000,$FFF,$EEE,$DDD,$CCC,$BBB,$AAA,$999
  150.     dc.w    $888,$777,$666,$555,$444,$333,$007,$A00
  151.     dc.w    $EA6,$D95,$C84,$B73,$A62,$951,$840,$730
  152.     dc.w    $FFF,$DEF,$CDF,$ACF,$9BF,$7AF,$69F,$48F
  153.  
  154. exit:
  155. move.l #$7fff,$dff096
  156. move.l 4,a6
  157. clr.w  d0
  158. lea    gfxname(pc),a1
  159. jsr    -552(a6)
  160. move.l d0,a0
  161. move.l 38(a0),$dff080
  162.  
  163. move.w dmasaf,d0
  164. move.w d0,$dff096
  165. move.w #$c000,$dff09a
  166. clr.w d0
  167. rts
  168.  
  169. dmasaf:  dc.w 0
  170. gfxname: dc.b 'graphics.library',0
  171. even
  172.  
  173. picture = $68000
  174.  
  175. >extern "asmdisk2:logo/picture",picture
  176.  
  177.