mirror of
https://github.com/PDP-10/its.git
synced 2026-02-01 06:22:14 +00:00
KLDCPU - KL10 diagnostic console utility.
This commit is contained in:
80
src/kldcp/kldcpu.4
Executable file
80
src/kldcp/kldcpu.4
Executable file
@@ -0,0 +1,80 @@
|
||||
|
||||
;DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE UTILITY
|
||||
|
||||
|
||||
DECVER=7
|
||||
MCNVER=0
|
||||
|
||||
|
||||
.TITLE KLDCPU DECSYSTEM10 KL10 PDP-11 DIAGNOSTIC CONSOLE UTILITY, VER 0.7
|
||||
|
||||
;;;MODIFICATION HISTORY
|
||||
;;;
|
||||
;;; 15 NOV 75 OBTAINED FROM DEC (KLDCP REV 7)
|
||||
;;; 15 NOV 75 CONVERTED TO PALX FORMAT
|
||||
;;;
|
||||
|
||||
|
||||
;.LIST MC,MD
|
||||
;.DSABL GBL
|
||||
;.DSABL REG
|
||||
.ABS
|
||||
;.ENABL AMA
|
||||
|
||||
;JOHN R. KIRCHOFF
|
||||
;DIGITAL EQUIPMENT CORPORATION
|
||||
;MARLBORO, MASS. 01752
|
||||
|
||||
;ASSEMBLY PARAMETERS
|
||||
|
||||
;DTEASB=1 ;ASSEMBLE DTE20
|
||||
;KWASB= 1 ;ASSEMBLE KW CLOCK
|
||||
;DLASB= 1 ;ASSEMBLE DL11
|
||||
;DHASB= 1 ;ASSEMBLE DH11
|
||||
;TAASB= 1 ;ASSEMBLE TA CASSETTE
|
||||
RXASB= 1 ;ASSEMBLE RX11/RX01 FLOPPY
|
||||
TCASB= 1 ;ASSEMBLE TC DECTAPE
|
||||
RPASB= 1 ;ASSEMBLE RP04 DISK PACK
|
||||
LPASB= 1 ;ASSEMBLE LP20 LINE PRINTER
|
||||
|
||||
$NB= 8. ;USE 8 BREAKPOINTS
|
||||
|
||||
;UTILITY CODE BEGINS AT LOCATION 3000
|
||||
|
||||
PRGSRT= 3000
|
||||
COREND= 28.*1024.*2.
|
||||
|
||||
;SPECIAL KLDCP LINKAGE ADDRESSES
|
||||
|
||||
START= 100000 ;CONSOLE START
|
||||
$CNTLC= 100004 ;CONTROL C
|
||||
$CONSL= 100014 ;RETURN TO CONSOLE
|
||||
|
||||
$TKS= 100020 ;TTY KBD STATUS
|
||||
$TKB= 100022 ;TTY KBD BUFFER
|
||||
$TPS= 100024 ;TTY PRINTER STATUS
|
||||
$TPB= 100026 ;TTY PRINTER BUFFER
|
||||
|
||||
$LPS= 100030 ;LP11 - LINE PRINTER STATUS
|
||||
$LPB= 100032 ;LP11 - LINE PRINTER BUFFER
|
||||
|
||||
$FSTKS= 100034 ;FIELD SERVICE KLINIK INPUT STATUS
|
||||
$FSTKB= 100036 ;FIELD SERVICE KLINIK INPUT BUFFER
|
||||
$FSTPS= 100040 ;FIELD SERVICE KLINIK OUTPUT STATUS
|
||||
$FSTPB= 100042 ;FIELD SERVICE KLINIK OUTPUT BUFFER
|
||||
|
||||
$CMTKS= 100044 ;COMM INPUT STATUS
|
||||
$CMTKB= 100046 ;COMM INPUT BUFFER
|
||||
$CMTPS= 100050 ;COMM OUTPUT STATUS
|
||||
$CMTPB= 100052 ;COMM OUTPUT BUFFER
|
||||
|
||||
FUQ:: ;SEE EQUIVALENT PLACE IN KLDCP FOR WHY THIS IS HERE
|
||||
|
||||
;INSERT THE REST
|
||||
|
||||
.INSRT PRM11
|
||||
.INSRT KLDCU1
|
||||
.INSRT SBST11
|
||||
|
||||
.END $ILOAD
|
||||
|
||||
1454
src/kldcp/kldcu1.30
Executable file
1454
src/kldcp/kldcu1.30
Executable file
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user