home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / beehive / program / apple.arc / HGRPIC.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-09-27  |  1.5 KB  |  138 lines

  1.     ORG    1100H
  2.     LD    BC,0FH
  3.     LD    DE,210
  4.     LD    HL,DATA
  5.     LDIR
  6.     LD    A,1
  7.     IN    A,(9)
  8.     LD    A,39
  9.     LD    (42903),A
  10.     INC    A
  11.     LD    (42639),A
  12.     LD    HL,0F000H
  13.     LD    DE,0F001H
  14.     LD    BC,400H
  15.     LD    A,20H
  16.     LD    (HL),A
  17.     LDIR
  18.     LD    H,128
  19.     LD    L,0
  20.     LD    DE,40
  21.     LD    IX,0F000H
  22.     LD    C,35
  23. LOOP1A    PUSH    IX
  24.     LD    B,18
  25. LOOP    LD    A,144
  26.     OUT    (28),A
  27.     LD    (IX),L
  28.     RES    4,A
  29.     OUT    (28),A
  30.     LD    (IX),H
  31.     INC    H
  32.     JR    NZ,LOOP1
  33.     LD    H,128
  34.     INC    L
  35. LOOP1    ADD    IX,DE
  36.     DJNZ    LOOP
  37.     POP    IX
  38.     INC    IX
  39.     DEC    C
  40.     JR    NZ,LOOP1A
  41.     LD    A,80H
  42.     LD    (ONE),A
  43.     XOR    A
  44.     LD    (TWO),A
  45.     LD    DE,0F800H
  46.     LD    B,0
  47. LONE    LD    C,0
  48. LTWO    LD    A,C
  49.     AND    30H
  50.     SRL    A
  51.     SRL    A
  52.     SRL    A
  53.     SRL    A
  54.     OR    20H
  55.     LD    H,A
  56.     LD    A,C
  57.     AND    7
  58.     SLA    A
  59.     SLA    A
  60.     ADD    A,H
  61.     LD    H,A
  62.     LD    A,C
  63.     AND    0C0H
  64.     SRL    A
  65.     LD    L,A
  66.     SRL    A
  67.     SRL    A
  68.     OR    L
  69.     LD    L,A
  70.     LD    A,C
  71.     AND    8
  72.     SLA    A
  73.     SLA    A
  74.     SLA    A
  75.     SLA    A
  76.     ADD    A,L
  77.     ADD    A,B
  78.     LD    L,A
  79.     LD    A,(HL)
  80.     LD    (DE),A
  81.     INC    DE
  82.     LD    A,(TWO)
  83.     INC    A
  84.     LD    (TWO),A
  85.     CP    11
  86.     JR    NZ,NOT3
  87.     XOR    A
  88.     LD    (TWO),A
  89.     LD    A,5
  90.     ADD    A,E
  91.     LD    E,A
  92.     LD    A,D
  93.     ADC    A,0
  94.     LD    D,A
  95.     CP    0
  96.     JR    NZ,NOT3
  97.     LD    DE,0F800H
  98.     LD    A,(ONE)
  99.     INC    A
  100.     LD    (ONE),A
  101.     OUT    (01CH),A
  102. NOT3    INC    C
  103.     LD    A,0C0H
  104.     CP    C
  105.     JR    NZ,LTWO
  106.     LD    A,E
  107.     ADD    A,11
  108.     LD    E,A
  109.     LD    A,D
  110.     ADC    A,0
  111.     LD    D,A
  112.     CP    0
  113.     JR    Z,LFOUR
  114. LTHREE    XOR    A
  115.     LD    (TWO),A
  116.     INC    B
  117.     LD    A,23H
  118.     CP    B
  119.     JR    NZ,LONE
  120.     RET
  121. LFOUR    LD    DE,0F800H
  122.     LD    A,(ONE)
  123.     INC    A
  124.     LD    (ONE),A
  125.     OUT    (01CH),A
  126.     JR    LTHREE
  127. ONE    DEFB    80H
  128. TWO    DEFB    00H
  129. DATA    DEFW    2835H
  130.     DEFW    242EH
  131.     DEFW    051BH
  132.     DEFW    1A1AH
  133.     DEFW    0A48H
  134.     DEFW    0A69H
  135.     DEFW    0020H
  136.     DEFW    0020H
  137.     END
  138.