mirror of
https://github.com/PDP-10/stacken.git
synced 2026-02-28 09:07:42 +00:00
78 lines
1.7 KiB
Plaintext
78 lines
1.7 KiB
Plaintext
TITLE LINES - Node_line mapping for WHO
|
||
|
||
RIM10
|
||
LOC 0
|
||
|
||
SALL ;FOR CLEAN LISTINGS
|
||
.DIRECT FLBLST ;FOR CLEANER LISTINGS
|
||
|
||
|
||
; Assembly instructions
|
||
;
|
||
; .COMPILE STD:LINES.INI=INI:LINES.MAC
|
||
|
||
|
||
; ***********************************************************************
|
||
; * The node table must be in strict alphabetical order. *
|
||
; * The line tables must be in strict numeric order. *
|
||
; ***********************************************************************
|
||
|
||
NAMSIZ==^D19 ;MAXIMUM LENGTH OF A NAME STRING
|
||
|
||
|
||
; Macro to define the node index block
|
||
;
|
||
DEFINE $INDEX (NODES),<
|
||
IRP NODES,< ;;REPEAT FOR ALL NODES
|
||
XLIST ;;SUPPRESSS LISTING
|
||
SIXBIT /NODES/ ;;STORE NODE IDENTIFIER
|
||
LIST ;;TURN ON LISTING
|
||
EXP NODES ;;POINT TO START OF DATA BASE
|
||
> ;;END OF IRP
|
||
> ;;END OF $INDEX MACRO
|
||
|
||
|
||
; Macro to define the line entries
|
||
;
|
||
DEFINE $LINE (NUM,NAM),<
|
||
EXP NUM ;;STORE LINE NUMBER
|
||
XLIST ;;SUPRESS LISTING
|
||
XX==. ;;REMEMBER LOCATION
|
||
ASCIZ |NAM| ;;STORE ASCIZ NAME
|
||
ZZ=<NAMSIZ+4>/5-<.-XX> ;;GET WHATS LEFT
|
||
IFL ZZ,<PRINTX ? 'NAM is too long>
|
||
BLOCK ZZ ;;FILL IN THE SPACE
|
||
LIST ;;TURN ON LISTING
|
||
> ;;END OF $LINE MACRO
|
||
SUBTTL Index block
|
||
|
||
|
||
; Assemble the index block here
|
||
;
|
||
INDEX: $INDEX (DN87,KL10)
|
||
0
|
||
SUBTTL Node DN87
|
||
|
||
|
||
DN87: $LINE (000,<CTY>)
|
||
-1
|
||
SUBTTL Node KL10
|
||
|
||
|
||
KL10: $LINE (000,<Klinik for CPU0>)
|
||
$LINE (001,<DL to CPU0/DTE1>)
|
||
$LINE (002,<DL to CPU0/DTE2>)
|
||
$LINE (003,<DL to CPU0/DTE3>)
|
||
$LINE (004,<Klinik for CPU1>)
|
||
$LINE (005,<DL to CPU1/DTE1>)
|
||
$LINE (007,<DL to CPU1/DTE2>)
|
||
$LINE (010,<DL to CPU1/DTE3>)
|
||
$LINE (360,<System>)
|
||
$LINE (361,<CPU1 CTY>)
|
||
$LINE (362,<CPU0 CTY>)
|
||
-1
|
||
SUBTTL End
|
||
|
||
|
||
END
|