home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / utils / sysutl / patcky11.lbr / TELLME.AZM / TELLME.ASM
Encoding:
Assembly Source File  |  1988-04-17  |  896 b   |  60 lines
  1.     ORG    100H
  2.     LXI    D,STR1        ;'THE TABLE ORIGIN IS: '
  3.     MVI    C,9
  4.     CALL    5
  5.     LHLD    0001
  6.     LXI    D,0030H
  7.     DAD    D
  8.     MOV    E,M
  9.     INX     H
  10.     MOV    D,M
  11.     CALL    PRTDE
  12.     MVI    C,9
  13.     LXI    D,STR2        ;'THE OFFSET IS: '
  14.     CALL    5
  15.     LHLD    1
  16.     LXI    D,0E07DH    ;-1F83
  17.     DAD    D        ; WARM BOOT ADDRESS- 1F80 BIOS IMAGE ADDRESS
  18.     MOV    A,L
  19.     CMA
  20.     MOV    E,A
  21.     MOV    A,H
  22.     CMA
  23.     MOV    D,A        ;DE IS ONES COMPLEMENT OF HL
  24.     INX    D        ;NOW TWOS COMPLEMENT = 1F80-BIOSADDRS
  25.     CALL    PRTDE
  26.     JMP    0    ;WARM BOOT
  27. PRTDE:    PUSH    D
  28.     MOV    A,D
  29.     CALL    PUT
  30.     POP    D
  31.     MOV    A,E
  32.     CALL    PUT
  33.     RET
  34. PUT:    PUSH    PSW
  35.     RAR
  36.     RAR
  37.     RAR
  38.     RAR
  39.     ANI    0FH
  40.     ADI    30H
  41.     CPI    3AH
  42.     JM    GO
  43.     ADI    7
  44. GO:    MVI    C,02
  45.     MOV    E,A
  46.     CALL    5
  47.     POP    PSW
  48.     ANI    0FH
  49.     ADI    30H
  50.     CPI    3AH
  51.     JM    GO2
  52.     ADI    7
  53. GO2:    MVI    C,02
  54.     MOV    E,A
  55.     CALL    5
  56.     RET
  57. STR1:    DB    'THE TABLE ADDRESS IS:  $'
  58. STR2:    DB    0DH,0AH,'THE OFFSET IS:         $'
  59.     END
  60.