Trailing-Edge
-
PDP-10 Archives
-
BB-F493Z-DD_1986
-
10,7/dump.mac
There are 7 other files named dump.mac in the archive. Click here to see a list.
00010 TITLE DUMP - PROGRAM TO DUMP ARBITRARY FILES IN PRINTABLE FORMAT
00020 SUBTTL DON BLACK/DAL - VERSION 4 - 12 AUGUST 1972
00030 ;COPYRIGHT (C) 1974,1978,1979 BY
00040
00050 ;DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
00060 ;
00070 ;
00080 ;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
00090 ;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
00100 ;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
00110 ;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
00120 ;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
00130 ;TRANSFERRED.
00140 ;
00150 ;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
00160 ;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
00170 ;CORPORATION.
00180 ;
00190 ;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
00200 ;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
00205
00210 VWHO==0 ;WHO LAST EDITED THIS PROGRAM
00220 VDUMP==4 ;VERSION OF DUMP
00230 VPATCH==0 ;PATCH LETTER
00240 VEDIT==232 ;EDIT NUMBER
00250
00260 LOC 137
00270 BYTE (3)VWHO(9)VDUMP(6)VPATCH(18)VEDIT
00280 XALL
00290 TWOSEG
00300 RELOC 400000
00310
00320 ;AC'S
00330
00340 SF=0 ;SCANER FLAGS
00350 T1=1 ;TEMP AC'S
00360 T2=2 ; ..
00370 T3=3 ; ..
00380 T4=4 ; ..
00390 P1=5 ;PRESERVED AC'S
00400 P2=6 ; ..
00410 N=7 ;HOLDS A NUMBER
00420 C=10 ;HOLD A CHARACTOR
00430 M=11 ;MESSAGE POINTER
00440 F=12 ;FLAGS
00450 FM=13 ;SCAN STORES MASKS IN HERE
00460 DL=14 ;ANOTHER WORD OF FLAGS (NONE SET BY COMMAND SCANER)
00470 P=17 ;PUSH DOWN POINTER
00480
00490 ;I/O CHANNELS
00500
00510 IC==6 ;INPUT FILE
00520 OC==7 ;OUTPUT CHANNEL
00530
00540 ;EXTERNALS IN COMMAND SCANNER
00550
00560 EXTERNAL .FILIN,.GTSPC,.ISCAN,.MKPJN,.POPJ1,.SAVE2,.SAVE4
00570 EXTERNAL .SIXSW,.TIALT,.TIAUC,.VSCAN,E.UKK
00580 EXTERNAL .SWDPB,.NAME
00590
00600 SEARCH C,SCNMAC