home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG096.ARC / LED.ASC < prev    next >
Text File  |  1979-12-31  |  2KB  |  178 lines
  1.     DEFR    10
  2.     ORG    28659D
  3.  
  4. GETNUM    DEFS    2
  5.     LD    HL,PCGDAT
  6.     LD    DE,64528
  7.     LD    BC,192
  8.     LDIR
  9.  
  10.     LD    IX,(GETNUM)
  11.     LD    A,C
  12.     OUT    (0),A
  13.  
  14.     BIT    0,A
  15.     JR    NZ,ON1
  16.     LD    (IX+6),193
  17.     LD    (IX+7),194
  18.     JR    CMP128
  19. ON1    LD    (IX+6),195
  20.     LD    (IX+7),196
  21.  
  22. CMP128    BIT    7,A
  23.     JR    NZ,ON128
  24.     LD    (IX+66),197
  25.     LD    (IX+67),198
  26.     JR    COMP2
  27. ON128    LD    (IX+66),199
  28.     LD    (IX+67),200
  29.  
  30. COMP2    BIT    1,A
  31.     JR    NZ,ON2
  32.     LD    (IX+74),197
  33.     LD    (IX+75),197
  34.     JR    COMP64
  35. ON2    LD    (IX+74),199
  36.     LD    (IX+75),200
  37.  
  38. COMP64    LD    DE,140
  39.     ADD    IX,DE
  40.     BIT    6,A
  41.     JR    NZ,ON64
  42.     LD    (IX-12),193
  43.     LD    (IX-11),194
  44.     JR    COMP32
  45. ON64    LD    (IX-12),195
  46.     LD    (IX-11),196
  47.  
  48. COMP4    BIT    2,A
  49.     JR    NZ,ON4
  50.     LD    (IX),193
  51.     LD    (IX+1),194
  52.     JR    COMP32
  53. ON4    LD    (IX),195
  54.     LD    (IX+1),196
  55.  
  56. COMP32    BIT    5,A
  57.     JR    NZ,ON32
  58.     LD    (IX+54),201
  59.     LD    (IX+55),202
  60.     JR    COMP8
  61. ON32    LD    (IX+54),203
  62.     LD    (IX+55),204
  63.  
  64. COMP8    BIT    3,A
  65.     JR    NZ,ON8
  66.     LD    (IX+62),201
  67.     LD    (IX+63),202
  68.     JR    COMP16
  69. ON8    LD    (IX+62),203
  70.     LD    (IX+63),204
  71.  
  72. COMP16    BIT    4,A
  73.     JR    NZ,ON16
  74.     LD    (IX+122),193
  75.     LD    (IX+123),194
  76.     RET
  77. ON16    LD    (IX+122),195
  78.     LD    (IX+123),196
  79.     RET
  80.  
  81. PCGDAT    DW    00000H    ;A
  82.     DW    00F00H
  83.     DW    04030H
  84.     DW    08080H
  85.     DW    08080H
  86.     DW    03040H
  87.     DW    0000FH
  88.     DW    00000H
  89.     DW    00000H    ;B
  90.     DW    0F000H
  91.     DW    0020CH
  92.     DW    00101H
  93.     DW    00101H
  94.     DW    00C02H
  95.     DW    000F0H
  96.     DW    00000H
  97.     DW    00000H    ;C
  98.     DW    00F00H
  99.     DW    07F3FH
  100.     DW    0FFFFH
  101.     DW    0FFFFH
  102.     DW    03F7FH
  103.     DW    0000FH
  104.     DW    00000H
  105.     DW    00000H    ;D
  106.     DW    0F000H
  107.     DW    0FEFCH
  108.     DW    0FFFFH
  109.     DW    0FFFFH
  110.     DW    0FCFEH
  111.     DW    000F0H
  112.     DW    00000H
  113.     DW    0300FH    ;E
  114.     DW    08040H
  115.     DW    08080H
  116.     DW    04080H
  117.     DW    00F30H
  118.     DW    00000H
  119.     DW    00000H
  120.     DW    00000H
  121.     DW    00CF0H    ;F
  122.     DW    00102H
  123.     DW    00101H
  124.     DW    00201H
  125.     DW    0F00CH
  126.     DW    00000H
  127.     DW    00000H
  128.     DW    00000H
  129.     DW    03F0FH    ;G
  130.     DW    0FF7FH
  131.     DW    0FFFFH
  132.     DW    07FFFH
  133.     DW    00F3FH
  134.     DW    00000H
  135.     DW    00000H
  136.     DW    00000H
  137.     DW    0FCF0H    ;H
  138.     DW    0FFFEH
  139.     DW    0FFFFH
  140.     DW    0FEFFH
  141.     DW    0F0FCH
  142.     DW    00000H
  143.     DW    00000H
  144.     DW    00000H
  145.     DW    00000H    ;I
  146.     DW    00000H
  147.     DW    00000H
  148.     DW    0300FH
  149.     DW    08040H
  150.     DW    08080H
  151.     DW    04080H
  152.     DW    00F30H
  153.     DW    00000H    ;J
  154.     DW    00000H
  155.     DW    00000H
  156.     DW    00CF0H
  157.     DW    00102H
  158.     DW    00101H
  159.     DW    00201H
  160.     DW    0F00CH
  161.     DW    00000H    ;K
  162.     DW    00000H
  163.     DW    00000H
  164.     DW    03F0FH
  165.     DW    0FF7FH
  166.     DW    0FFFFH
  167.     DW    07FFFH
  168.     DW    00F7FH
  169.     DW    00000H    ;L
  170.     DW    00000H
  171.     DW    00000H
  172.     DW    0FCF0H
  173.     DW    0FFFEH
  174.     DW    0FFFFH
  175.     DW    0FEFFH
  176.     DW    0F0FCH
  177.     END
  178.