EXTERNALROUTINE DUMPARCH(STRING (255)USER) EXTERNALINTEGERFNSPEC DCONNECT(STRING (6)USER, STRING (11)FILE, INTEGER FSYS, MODE, APF, INTEGERNAME SEG, GAP) SYSTEMROUTINESPEC DUMP(INTEGER A, B) EXTERNALROUTINESPEC CLEAR(STRING (255)S) EXTERNALROUTINESPEC DEFINE(STRING (255)S) INCLUDE "PD17S_NEWINDEXES" INTEGER J, FSYS, SEG, GAP, AFINDAD RECORD (FF)NAME AF FSYS = 2 SEG = 0 GAP = 0 J = DCONNECT(USER, "#ARCH", FSYS, 11, 0, SEG, GAP) IF J = 0 OR J = 34 START DEFINE("61,T#OUT,1023") SELECT OUTPUT(61) AFINDAD = SEG << 18 AF == RECORD(AFINDAD) DUMP(AFINDAD, AFINDAD + AF_SIZE << 9 - 4) SELECT OUTPUT(0) CLOSE STREAM(61) CLEAR("61") PRINTSTRING("T#OUT written") FINISH END ENDOFFILE