home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / beehive / program / apple.arc / LOAD.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-09-27  |  512 b   |  42 lines
  1.     ORG    8000H
  2.     LD    IX,200H
  3.     LD    HL,10
  4.     DEC    HL
  5.     LD    D,0
  6.     CALL    READ
  7. HERE    LD    C,24H
  8.     CALL    REED
  9.     JR    C,HERE
  10.     CALL    REED
  11.     LD    C,0CBH
  12. WAIT    CALL    THERE
  13.     LD    A,(IX)
  14.     CP    255
  15.     JR    Z,WAIT
  16.     INC    IX
  17. HEAR    CALL    THERE
  18.     INC    IX
  19.     DEC    HL
  20.     LD    A,H
  21.     OR    L
  22.     RET    Z
  23.     LD    C,35H
  24.     JR    HEAR
  25. THERE    LD    B,8
  26. THEIR    CALL    READ
  27.     RL    (IX)
  28.     LD    C,3AH
  29.     DJNZ    THEIR
  30.     RET
  31. READ    CALL    REED
  32. REED    DEC    C
  33.     IN    A,(2)
  34.     XOR    D
  35.     JR    Z,REED
  36.     XOR    D
  37.     LD    D,A
  38.     LD    A,80H
  39.     CP    C
  40.     RET
  41.     END
  42.