home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / S / SEDMA / REALTIME.ZIP / REALTIME / SEDMA_F / COMPO_FA.S < prev    next >
Text File  |  2006-04-16  |  933b  |  41 lines
  1. ;**********************************************************************
  2. ;*  Coded by Sedma on Noise party 2006 Realtime Compo
  3. ;**********************************************************************
  4.  
  5. KEYBD        EQU     $FFFFFC02    ; ACIA ( klavesnicovy ) data register
  6.  
  7. begin:        clr.l    -(sp)                ; super()
  8.         move.w    #$20,-(sp)            ;
  9.         trap    #1                ;
  10.         
  11.         movea.l    $44e.w,A6    ;-(sp)
  12.         
  13.         move.l    #$00580134,-(sp)            ; vsetmode() (320x200/hc VGA)
  14.         trap    #14
  15.         
  16.         lea.l Table(PC),A0
  17.         moveq.w #5,D6        ; 6 stvorcov
  18.         ;clr.b D2 ;D2 by mal byt cisty
  19. NextBar:
  20.         move.b D2,D3
  21.         move.b (A0)+,D2
  22.         clr.w D4
  23.         move.b (A0)+,D4
  24. NextScan:
  25.         move.w #159,D1
  26. DrawPlane:
  27.         clr.l (A6)+
  28.         cmp.b D2,D1
  29.         bhs.b DontSetPixel
  30.         cmp.b D3,D1
  31.         blo.b DontSetPixel 
  32.         not.l -4(A6)
  33. DontSetPixel:
  34.         dbra D1,DrawPlane
  35.         dbra D4,NextScan
  36.         dbra D6,NextBar
  37. TestKey:
  38.         bra.b TestKey
  39.         DATA
  40. Table:        dc.b 80,99, 120,49, 140,24, 150,11, 155,4, 160,4
  41.