Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/subust.mac
There are no other files named subust.mac in the archive.
;*MAINDEC-10-DDQDA (SUBUSR)
SEARCH MONSYM,MACSYM
DECVER=014
MCNVER=000
XLIST
DEFINE NAME (MCNVER,DECVER),<
TITLE SUBUSR (DDQDA) DECSYSTEM DIAGNOSTICS USER SUBROUTINE PROGRAM, VER MCNVER,DECVER>
LIST
LALL
NAME \MCNVER,\DECVER
LOC 137
MCNVER,,DECVER
;*COPYRIGHT 1977,1978
;*DIGITAL EQUIPMENT CORPORATION
;*MARLBORO, MASS.
;*JOHN R. KIRCHOFF
NOSYM
SUBTTL *SUBUSR SPECIAL ASSEMBLY PARAMETERS
;*ASSEMBLY PARAMETERS
MEMMAP==1
PGMEND==1
USRASB==1
DEBUG==00
MODDVL==START
MODDVU==ENDSLD
SADR1=BEGIN
SADR2=BEGIN
SADR3=BEGIN
SADR4=BEGIN
SADR5=BEGIN
SADR6=BEGIN
SADR7=BEGIN
SADR8=BEGIN
SADR9=BEGIN
SADR10=BEGIN
SADR11=BEGIN
PAREA1=123456,,123456
PAREA2=0
PAREA3=SIXBIT/SUBRTN/
PAREA4=SIXBIT/TMP/
PAREA5=0
PAREA6=0
ITERAT=1
$PAPER==1
;*A MACRO TO DEFINE DEVICE NEUMONICS TO OCTAL DEVICE CODE
DEFINE $MDSXB (A,B)<
<SIXBIT/A/>!B ;A DEVICE CODE IS B>
;*DEFINITIONS USED BY THE USER SUBROUTINE PACKAGE
S
AC0= 0
DIAGNOS=30000 ;PDP-10 DIAGNOSTIC START ADDRESS
DDT= 10000 ;PDP-10 DDT START ADDRESS
DIAMON= 20000 ;PDP-10 DIAMON LOADER START ADDRESS
DIASWS= 20007 ;DIAMON LH SWITCHES