Trailing-Edge
-
PDP-10 Archives
-
tops10_tools_bb-fp64a-sb
-
10,7/map/map.for
There are 4 other files named map.for in the archive. Click here to see a list.
! MAP %2(56)
! Definitions for the FORTRAN interface
!
!COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1980,1986. ALL RIGHTS RESERVED.
!
! This file should be INCLUDEd any FORTRAN program
! wanting to use the MAP subroutine. Only flag,
! constants, and offset definitions are in this
! file. Read MAP.MAC for a complete discription of
! the calling sequences for the FORTRAN and MACRO
! interfaces to MAP.
! Initialization block offsets
PARAMETER MPIFNC = "0
PARAMETER MPINPC = "1
PARAMETER MPISPN = "2
PARAMETER MPIDSN = "3
PARAMETER MPIARG = "4
PARAMETER MPDMAX = "5
! Initialization flags
PARAMETER MPFPPM = "200000000000
PARAMETER MPFPAT = "100000000000
PARAMETER MPFEXE = "040000000000
PARAMETER MPFPIO = "020000000000
PARAMETER MPFRTM = "010000000000
PARAMETER MPFSIO = "004000000000
PARAMETER MPFJRM = "002000000000
PARAMETER MPFSPY = "001000000000
! Mapping functions
PARAMETER MPFMON = "0
PARAMETER MPFJOB = "1
PARAMETER MPFFIL = "2
PARAMETER MPFFMX = "2
! CPU type codes
PARAMETER PDP6 = "1
PARAMETER KA10 = "2
PARAMETER KI10 = "3
PARAMETER KL10 = "4
PARAMETER KS10 = "5
PARAMETER KC10 = "6
! Paging codes
PARAMETER KARPR = "1
PARAMETER KIPAG = "2
PARAMETER KLPAG = "3
PARAMETER KCPAG = "4
! Random constants
PARAMETER MPFEWD = "30
PARAMETER MPFFWD = "21
! Data block offsets
PARAMETER MPDDAT = "0
PARAMETER MPDVER = "1
PARAMETER MPDSPY = "2
PARAMETER MPDCPU = "3
PARAMETER MPDPAG = "4
PARAMETER MPDPGS = "5
PARAMETER MPDCPC = "6
PARAMETER MPDCPN = "7
PARAMETER MPDSEC = "10
PARAMETER MPDPGC = "11
PARAMETER MPDPGD = "12
PARAMETER MPDADR = "13
PARAMETER MPDEXM = "14
PARAMETER MPDDEP = "15
PARAMETER MPDGTB = "16
PARAMETER MPDGTU = "17
PARAMETER MPDJPK = "20
PARAMETER MPDJPU = "21
PARAMETER MPDRTM = "22
PARAMETER MPDHSF = "23
PARAMETER MPDHSC = "24
PARAMETER MPDAFS = "25
PARAMETER MPDECD = "46
PARAMETER MPDPFX = "47
PARAMETER MPDMET = "50
PARAMETER MPDXET = "100
PARAMETER MPDLEN = "130