home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / beehive / program / apple.arc / HGRLOAD.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-09-27  |  1.0 KB  |  99 lines
  1.     ORG    1000H
  2.     LD    IX,1FFFH
  3.     LD    HL,1FFFH
  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.     JR    Z,FIX
  23.     LD    C,35H
  24.     JR    HEAR
  25. THERE    LD    B,8
  26. THEIR    CALL    READ
  27.     RR    (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. FIX    LD    A,191
  42. SCRNCH    PUSH    AF
  43.     AND    48
  44.     SRL    A
  45.     SRL    A
  46.     SRL    A
  47.     SRL    A
  48.     OR    32
  49.     LD    H,A
  50.     POP    AF
  51.     PUSH    AF
  52.     AND    7
  53.     SLA    A
  54.     SLA    A
  55.     ADD    A,H
  56.     LD    H,A
  57.     POP    AF
  58.     PUSH    AF
  59.     AND    192
  60.     SRL    A
  61.     LD    L,A
  62.     SRL    A
  63.     SRL    A
  64.     OR    L
  65.     LD    L,A
  66.     POP    AF
  67.     PUSH    AF
  68.     AND    8
  69.     SLA    A
  70.     SLA    A
  71.     SLA    A
  72.     SLA    A
  73.     ADD    A,L
  74.     LD    L,A
  75.     PUSH    HL
  76.     POP    IX
  77.     PUSH    HL
  78.     POP    IY
  79.     LD    L,40
  80.     LD    C,8
  81. BLOOP    LD    B,7
  82. LOOP    SLA    (IX)
  83.     RL    A
  84.     DEC    C
  85.     JR    NZ,ELOOP
  86.     LD    C,8
  87.     LD    (IY),A
  88.     INC    IY
  89. ELOOP    DJNZ    LOOP
  90.     INC    IX
  91.     DEC    L
  92.     JR    NZ,BLOOP
  93.     POP    AF
  94.     DEC    A
  95.     CP    255
  96.     JR    NZ,SCRNCH
  97.     RET
  98.     END
  99.