home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / einsteig / dump.bas next >
BASIC Source File  |  1990-07-20  |  1KB  |  56 lines
  1. '* ------------------------------------------------------ *
  2. '*                     DUMP.BAS                           *
  3. '*             Standard-Eingabe -> Hexdump                *
  4. '*             (c) 1990  W.Rinke & TOOLBOX                *
  5. '* ------------------------------------------------------ *
  6. '$INCLUDE: 'REGISTER.INC'
  7.  
  8. CONST Sprung = 15
  9.  
  10. DIM Done   AS INTEGER
  11. DIM Zeile  AS INTEGER
  12. DIM Spalte AS INTEGER
  13. DIM z      AS INTEGER
  14.  
  15. Zeile  = 0
  16. Spalte = 0
  17.  
  18. PRINT HexOut(Zeile, 5); ": ";
  19. DO
  20.   Done = GetAsc(z)
  21.   Spalte = Spalte + 1
  22.   PRINT HexOut(z, 2); " ";
  23.   IF Spalte = Sprung THEN
  24.     PRINT
  25.     Zeile = Zeile + Sprung + 1
  26.     PRINT HexOut(Zeile, 5); ": ";
  27.     Spalte = 0
  28.   END IF
  29. LOOP UNTIL Done
  30.  
  31.  
  32. FUNCTION GetAsc% (n%)
  33.  
  34.   Regs.ax = &HB00
  35.   CALL INTERRUPT(&H21, Regs, Regs)
  36.   Status = Regs.ax AND &HFF
  37.   IF Status = &HFF THEN
  38.     Regs.ax = &H700
  39.     CALL INTERRUPT(&H21, Regs, Regs)
  40.     n% = (Regs.ax AND &HFF)
  41.   END IF
  42.   GetAsc% = (Status = 0)
  43.  
  44. END FUNCTION
  45.  
  46.  
  47. FUNCTION HexOut$ (Dez%, Anz%)
  48.  
  49.   z$ = HEX$(Dez%)
  50.   HexOut$ = "$" + STRING$(Anz% - LEN(z$), "0") + z$
  51.  
  52. END FUNCTION
  53.  
  54. '* ------------------------------------------------------- *
  55. '*                 Ende von DUMP.PAS                       *
  56.