DataMuseum.dk

top - metrics - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »DEBUG.PAS«

└─⟦da1b76629⟧ Bits:30008866 Indeholder bla. RCKAT
    └─⟦this⟧ »DEBUG.PAS« 

TextFile

(*$C-,A+,U+,I-*)
PROGRAM DEBUG;

LABEL
  NAESTE,RETRY,SLET,IKKESEND;
  
CONST
  HEX           : STRINGÆ16Å = '0123456789ABCDEF';
                    
VAR
  DEBUG_BUF     : ARRAYÆ1..2,1..3000Å OF CHAR;
  DEBUG_PEG     : ARRAYÆ1..2Å OF INTEGER;
  UD            : TEXT;
  I,J,K         : INTEGER;   
  S1,S2         : STRINGÆ80Å;
  SLUT          : BOOLEAN;
  
BEGIN
   ASSIGN(UD,'DEBUG.TXT');
   REWRITE(UD);
   FOR I:=1 TO 2 DO
   BEGIN
      WRITELN(UD,'Indhold i buffer ',I,':');
      WRITELN(UD);
      J:=DEBUG_PEGÆIÅ;
      SLUT:=FALSE;
      IF J<>0 THEN
      REPEAT
         S1:='';
         S2:='';
         FOR K:=1 TO 16 DO
         BEGIN
            J:=SUCC(J);
            IF J>3000 THEN J:=1;
            IF J=DEBUG_PEGÆIÅ THEN SLUT:=TRUE;
            IF NOT SLUT THEN
            BEGIN
               S1:=S1+COPY(HEX,SUCC(ORD(DEBUG_BUFÆI,JÅ) DIV 16),1)+
                      COPY(HEX,SUCC(ORD(DEBUG_BUFÆI,JÅ) MOD 16),1)+' ';
               IF (ORD(DEBUG_BUFÆI,JÅ) AND $7F)>=32 THEN
               S2:=S2+DEBUG_BUFÆI,JÅ ELSE S2:=S2+'.';
            END ELSE
            BEGIN
               S1:=S1+'   ';
               S2:=S2+' ';
            END;
         END;
         WRITELN(UD,S1,'  >',S2,'<');
      UNTIL SLUT;
      WRITELN(UD);
      WRITELN(UD);
   END;
   CLOSE(UD);
END.
«eof»