Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/subsmt.mac
There are no other files named subsmt.mac in the archive.
;*MAINDEC-10-DSQDA (SUBSM)
MCNVER=0
DECVER=3
XLIST
DEFINE NAME (MCNVER,DECVER),<
TITLE SUBSM (DSQDA) DECSYSTEM 2020 DIAGNOSTICS SUBROUTINE'S, VER MCNVER,DECVER>
LIST
LALL
NAME \MCNVER,\DECVER
LOC 137
MCNVER,,DECVER
;*COPYRIGHT 1978, 1979
;*DIGITAL EQUIPMENT CORPORATION
;*MARLBORO, MASS.
;*JOHN R. KIRCHOFF
NOSYM
SUBTTL SPECIAL ASSEMBLY PARAMETERS
;*ASSEMBLY PARAMETERS
MEMMAP==1
PGMEND==1
EXCASB==1
USRASB==1
DEBUG==00
SADR1=BEGIN
SADR2=BEGIN
SADR3=BEGIN
SADR4=$BEND2
SADR5=BEGIN
SADR6=DDTSRT
SADR7=BEGIN
SADR8=BEGIN
SADR9=BEGIN
SADR10=BEGIN
SADR11=BEGIN
PAREA1=123456,,123456
PAREA2=0
PAREA3=SIXBIT/SUBSM/
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 SUBROUTINE PACKAGE
S
AC0= 0
AC1= 1
AC2= 2
AC3= 3
AC4= 4
AC5= 5
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
;*SM10 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
$80STAT=31 ;8080 STATUS WORD
$80MM= 1B13 ;MAINTENANCE MODE BIT
$80CIW= 32 ;8080 TO KS-10 INPUT WORD
$80COW= 33 ;KS-10 TO 8080 OUTPUT WORD
$80KIW= 34 ;8080 TO KS-10 INPUT WORD - KLINIK
$80KOW= 35 ;KS-10 TO 8080 OUTPUT WORD - KLINIK
$80CHR= 1B27 ;CHAR AVAILABLE BIT
$80INT= 012000 ;INTERRUPT 8080
;*CONSOLE TTY COMMUNICATION
S
OPDEF CTYINI [JSR $TYINI] ;INITIALIZATION
OPDEF CTYCLR [JSR $TYCLR] ;CLEAR
OPDEF CTYTYI [JSR $CYTYI] ;CTY INPUT
OPDEF CTYTYO [JSR $CYTYO] ;CTY OUTPUT
OPDEF KTYTYI [JSR $KYTYI] ;KLINIK INPUT
OPDEF KTYTYO [JSR $KYTYO] ;KLINIK OUTPUT
OPDEF BTYTYI [JSR $BYTYI] ;BOTH INPUT
OPDEF BTYTYO [JSR $BYTYO] ;BOTH OUTPUT
OPDEF COMTYI [JSR ,$COMTI] ;COMM INPUT
OPDEF COMTYO [JSR ,$COMTO] ;COMM OUTPUT
OPDEF COMCMD [PUSHJ 17,$COMCMD] ;COMM COMMAND
OPDEF COMRTRY [PUSHJ 17,$COMRTRY] ;COMM RETRY
OPDEF COMENQ [PUSHJ 17,$COMENQ] ;COMM ENQUIRY
OPDEF COMEOT [PUSHJ 17,$COMEOT] ;COMM END OF TRANSMISSION
OPDEF COMLIN [PUSHJ 17,$COMLIN] ;COMM LINE INPUT
OPDEF COMSND [PUSHJ 17,$COMSND] ;COMM LINE OUTPUT
OPDEF COMACK [PUSHJ 17,$COMACK] ;COMM ACK
OPDEF COMNAK [PUSHJ 17,$COMNAK] ;COMM NEGATIVE ACK
OPDEF COMCLR [PUSHJ 17,$COMCLR] ;COMM CLEAR
OPDEF COMCTL [PUSHJ 17,$COMCTL] ;COMM CONTROL SEQUENCE
OPDEF COMBELL [PUSHJ 17,$COMBELL] ;COMM BELL
OPDEF COMINI [PUSHJ 17,$COMINI] ;COMM INITIALIZE