Trailing-Edge
-
PDP-10 Archives
-
BB-AE97C-BM
-
uetp/lib/rmtok.utl
There are 16 other files named rmtok.utl in the archive. Click here to see a list.
!
! COPYRIGHT (c) 1983 BY
! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
!
OPEN REPORT RMTOK.REP
OPEN RMS RMTF1.RMS
INFO ALL
DISPLAY BUCKET LARGEST
SET INDEX 1
SET BUCKET DATA
DISPLAY BUCKET ENTRY 1,2 3
DISPLAY DATA
DISPLAY DATA REL 3 4
DISPLAY R1K1,R1AK1 KEY "DDD" (TO) "GGGGG" (AND) R1AK2="11111"
DISPLAY PROLOGUE
VERIFY KEY 0
VERIFY SECONDARY
CLOSE RMS
OPEN RMS RMTF2.RMS OUTPUT
DISPLAY DATA
VERIFY
CLOSE RMS
CLOSE REPORT