home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol111 / jp.asm < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  390 b   |  42 lines
  1. ;GO (HEX ADDR) FROM DR DOBS JOURNAL
  2.     ORG    100H
  3. TBUFF    EQU    80H
  4. FCB    EQU    5CH
  5.     LXI    D,0
  6.     LXI    H,FCB+1
  7.     MVI    B,4
  8. GO    MOV    A,M        ;GET DIGIT
  9.     CPI    20H        ;CHECK FOR SPACE
  10.     JNZ    GO1
  11.     MVI    A,30H
  12. GO1    CALL    HEXIN
  13.     RC
  14.     INX    H
  15.     DCR    B
  16.     JNZ    GO
  17.     XCHG
  18.     PCHL
  19. HEXIN    XCHG
  20.     CALL    CHECK
  21.     RC
  22.     DAD    H
  23.     DAD    H
  24.     DAD    H
  25.     DAD    H
  26.     ORA    L
  27.     MOV    L,A
  28.     XCHG
  29.     RET
  30. CHECK    SUI    30H
  31.     RC
  32.     CPI    0AH
  33.     CMC
  34.     RNC
  35.     SUI    7H
  36.     CPI    0AH
  37.     RC
  38.     CPI    10H
  39.     CMC
  40.     RET
  41.     END
  42.