Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/subklt.mac
There are no other files named subklt.mac in the archive.
;*MAINDEC-10-DFQDA (SUBKL)
DECVER=001
MCNVER=000
XLIST
DEFINE NAME (MCNVER,DECVER),<
TITLE SUBKL (DFQDA) DECSYSTEM DIAGNOSTICS KL10 SUBROUTINE PROGRAM, VER MCNVER,DECVER>
LIST
LALL
NAME \MCNVER,\DECVER
LOC 137
MCNVER,,DECVER
;*COPYRIGHT 1978
;*DIGITAL EQUIPMENT CORPORATION
;*MARLBORO, MASS.
;*JOHN R. KIRCHOFF
NOSYM
SUBTTL *SUBKL* SPECIAL ASSEMBLY PARAMETERS
;*ASSEMBLY PARAMETERS
KL10==1
KL10P0==1
MEMMAP==1
PGMEND==1
EXCASB==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/SUBKL/
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 KL10 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
DONG11= 1B22 ;11 DOORBELL (FROM THE 10)
DING10= 1B26 ;10 DOORBELL (FROM THE 11)
DNG10C= 1B26 ;10 DOORBELL CLEAR
MTR= 24 ;METER CODE
TIM= 20 ;METER CODE
;*DTE20 DEVICE CODES
S
DTE== 200 ;DTE0
DTE0== 200
DTE1== 204
DTE2== 210
DTE3== 214
;*KL10 EPT COMMUNICATION AREA
S
$STD= 440 ;PDP-10 DIAGNOSTIC START ADDRESS
$DDT= 441 ;PDP-10 DDT START ADDRESS
$STL= 442 ;PDP-10 LOADER START ADDRESS
$STM= 443 ;PDP-10 MONITOR START ADDRESS
$DTFLG= 444 ;DTE20 OPERATION COMPLETE FLAG
$DTCLK= 445 ;DTE20 CLOCK INTERRUPT FLAG
$DTCI= 446 ;DTE20 CLOCK INTERRUPT INSTRUCTION
$DTT11= 447 ;DTE20 10 TO 11 ARGUMENT
$DTF11= 450 ;DTE20 11 TO 10 ARGUMENT
$DTCMD= 451 ;DTE20 TO 11 COMMAND WORD
$DTSEQ= 452 ;DTE20 OPERATION SEQUENCE NUMBER
$DTOPR= 453 ;DTE20 OPERATIONAL DTE #
$DTCHR= 454 ;DTE20 LAST TYPED CHARACTER
$DTMTD= 455 ;DTE20 MONITOR TTY OUTPUT COMPLETE FLAG
$DTMTI= 456 ;DTE20 MONITOR TTY INPUT FLAG
$DTSWR= 457 ;DTE20 10 SWITCH REGISTER