git.sur5r.net Git - cc65/blob - libsrc/tgi/tgi_emu_bar.s

   1 ;
   2 ; Ullrich von Bassewitz, 22.06.2002
   3 ;
   4 ; Emulation for tgi_bar.
   5 ;
   6
   7         .include        "tgi-kernel.inc"
   8
   9         .importzp       ptr1, ptr2, ptr3, ptr4
  10         .export         tgi_emu_bar
  11
  12 tgi_emu_bar:
  13         lda     ptr4
  14         sta     Y2
  15         lda     ptr4+1
  16         sta     Y2+1
  17
  18         lda     ptr3
  19         sta     X2
  20         lda     ptr3+1
  21         sta     X2+1
  22
  23         lda     ptr2
  24         sta     ptr4
  25         sta     Y1
  26         lda     ptr2+1
  27         sta     ptr4+1
  28         sta     Y1+1
  29
  30         lda     ptr1
  31         sta     X1
  32         lda     ptr1+1
  33         sta     X1+1
  34
  35 @L1:    jsr     tgi_horline
  36
  37         lda     Y1
  38         cmp     Y2
  39         bne     @L2
  40         lda     Y1
  41         cmp     Y2
  42         beq     @L4
  43
  44 @L2:    inc     Y1
  45         bne     @L3
  46         inc     Y1+1
  47
  48 @L3:    lda     Y1
  49         sta     ptr2
  50         lda     Y1+1
  51         sta     ptr2+1
  52
  53         lda     X1
  54         sta     ptr1
  55         lda     X1+1
  56         sta     ptr1+1
  57
  58         lda     X2
  59         sta     ptr3
  60         lda     X2+1
  61         sta     ptr3+1
  62         jmp     @L1
  63
  64 @L4:    rts
  65
  66 ;-----------------------------------------------------------------------------
  67 ; Data
  68
  69 .bss
  70
  71 DY:     .res    2
  72 X1:     .res    2
  73 X2:     .res    2
  74 Y1:     .res    2
  75 Y2:     .res    2
  76
  77
  78