Trailing-Edge
-
PDP-10 Archives
-
klad_sources
-
klad.sources/convrt.seq
There are no other files named convrt.seq in the archive.
;DDQDG
IDENTIFICATION
--------------
PRODUCT CODE: AH-E282N-DD
DIAGNOSTIC CODE: DDQDG
PRODUCT NAME: DDQDGN0 DECSYSTEM DIAGNOSTIC
ASCIIZER CONVERSION PROGRAM
VERSION: 0.14
DATE RELEASED: MAY 1978
MAINTAINED BY: DIAGNOSTIC ENGINEERING
AUTHOR: JOHN R. KIRCHOFF
COPYRIGHT (C) 1978
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A
SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLUSION
OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER
COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE
TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO
AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE
SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL EQUIPMENT
CORPORATION.
THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE
USE OR RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS NOT
SUPPLIED BY DIGITAL EQUIPMENT CORPORATION.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0003
TABLE OF CONTENTS
-----------------
1.0 ABSTRACT
2.0 OPERATING PROCEDURE
3.0 FILE FORMATS
4.0 PDP-11 FILE FORMATS
5.0 PDP-10 FILE FORMATS
6.0 KL10 MICRO CODE FILE FORMATS
7.0 PDP-8 FILE FORMATS
8.0 DX20 FILE FORMATS
9.0 KS-10 MICRO-CODE FILE FORMATS
10.0 KMC11 MICRO-CODE FORMATS
11.0 OCTAL FILE FORMATS
12.0 SPECIFIED FILE EXTENSIONS
13.0 FILE IDENTIFICATION
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0004
1.0 ABSTRACT
ALL OF THE DIAGNOSTIC AND PROGRAM FILES FOR THE DECSYSTEM10/20
ARE CONVERTED INTO A COMPATIBLE FILE FORMAT WHICH ALLOWS
FOR A COMMON HANDLING PROCEDURE.
THIS FILE FORMAT IS LOADABLE FROM ANY STORAGE MEDIUM BOTH
BY THE PDP-10 AND BY THE PDP-11.
"CONVRT" IS THE DIAGNOSTIC UTILITY PROGRAM WHICH PERFORMS
THIS FUNCTION.
2.0 OPERATING PROCEDURE
COMMAND IS "FILE.EXT/SWITCH"
PDP-10 'EXT' DEFAULT IS 'SAV'
PDP-11 'EXT' DEFAULT IS 'BIN'
PDP-8 'EXT' DEFAULT IS 'BIN'
DX20 'EXT' DEFAULT IS 'BIN'
MICRO 'EXT' DEFAULT IS 'MCR'
KMC11 'EXT' DEFAULT IS 'BIN'
COMMAND FUNCTION
------- --------
FILE PDP-10 SAVE FILE TO '.A10'
FILE/T " DEFAULT
FILE/A PDP-10 SAVE FILE TO "SUPER" '.A10'
FILE/S PDP-10 '.A10' FILE BACK TO '.SAV'
FILE/E PDP-11 BINARY FILE TO '.A11'
FILE/8 PDP-8 BINARY FILE TO '.A8'
FILE/X DX20 BINARY FILE TO '.ADX'
FILE/K KS-10 MICRO-CODE LISTING TO '.RAM'
FILE/M MICRO-CODE LISTING TO '.RAM'
FILE/R MICRO RAM FILE ONLY, NO LISTING
FILE/C KMC11 MICROCODE TO '.KMC'
/N DON'T PRINT MICRO CODE ERRORS
/H HELP MESSAGE
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0005
3.0 FILE FORMATS
THE PROGRAM FILES CONSIST OF BINARY DATA WHICH HAS BEEN
"ASCIIZED", THAT IS, MANIPULATED SUCH THAT 6 OR LESS BITS
OF THE BINARY DATA ARE REPRESENTED BY A 7-BIT CHARACTER
WHOSE VALUE RANGES FROM OCTAL 075 TO OCTAL 174. THIS
PROCESS IS EMPLOYED TO AVOID THE PROBLEMS WHICH WOULD BE
ENCOUNTERED IF CERTIAN 7-BIT COMBINATIONS WERE ALLOWED
(E.G., OCTAL 003 WOULD BE INTERPRETED AS "CONTROL C").
"ASCIIZED" DATA IS PRODUCED FROM THE SOURCE BINARY DATA AS
FOLLOWS:
1. DIVIDE THE BINARY DATA INTO 6-BIT FIELDS, STARTING WITH
THE LEAST SIGNIFICANT 6 BITS. DEPENDING ON THE NUMBER
OF BITS IN THE SOURCE DATA, THE MOST SIGNIFICANT FIELD
MAY BE COMPOSED OF FROM 1 TO 6 BITS.
2. CONVERT EACH FIELD INTO A 7-BIT CHARACTER USING THE
FOLLOWING PROCEDURE:
2A. IF THE FIELD HAS A VALUE LESS THAN OCTAL 75, ADD
OCTAL 100 (PRODUCING 7-BIT VALUES RANGING FROM
OCTAL 100 TO OCTAL 174).
2B. IF THE FIELD HAS VALUES OCTAL 75, 76, OR 77 USE
THE FIELD DIRECTLY (PRODUCING 7-BIT VALUES 075,
076, OR 077).
EXAMPLE:
A 16 BIT WORD CONTAINING OCTAL 176076 IS DIVIDED INTO 3 FIELDS
(ONE 4-BIT AND TWO 6-BIT):
17, 60, 76
THE FIELDS ARE CONVERTED INTO 7-BIT CHARACTERS:
117, 160, 076
WHICH ARE THE ASCII CODES FOR THE GRAPHICS:
O, LOWER CASE P, >
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0006
4.0 PDP-11 FILE FORMATS
PDP-11 PROGRAMS ARE ASSEMBLED WITH MACY11 ON A DECSYSTEM10
WHICH PRODUCES A PDP-11 BINARY FILE ON THE PDP-10 DISK OF
THE FOLLOWING FORMAT:
PDP-11 BINARY FILE FORMAT
-------------------------
11 BINARY ON 10 DISK - 36 BIT WORDS
BYTE 2/BYTE 1,,BYTE 4/BYTE 3
6 5,, 8 7
10 9,, 12 11
ETC.
ACTUAL FORMAT
FRAME 0 001 ;START FRAME
1 000 ;NULL
2 XXX ;BYTE COUNT LOW 8 BITS
3 XXX ;BYTE COUNT HIGH 8 BITS
4 YYY ;LOAD ADDRESS LOW 8 BITS
5 YYY ;LOAD ADDRESS HIGH 8 BITS
6 NNN
.
. ;DATA BYTES
.
NNN
ZZZ ;BLOCK CHECKSUM
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0007
4.0 PDP-11 FILE FORMATS (CON'T)
PDP-11 ASCIIZED FILE FORMAT
---------------------------
E WC,ADR,123,123,123, . . . . . .123,CKS
E WC,ADR,123,123,123, . . . . . .123,CKS
E 0,ADR,CKS
E ;PDP-11 FILE IDENTIFIER
;SPACE, SIGNIFIES ASCIIZED FILE
WC ;WORD COUNT
ADR ;LOAD ADDRESS
123 ;UP TO 3 CHARS FOR EACH 16-BIT DATA WORD
CKS ;FILE LINE CHECKSUM
CR/LF ;END OF LINE
AS MANY LINES OF THIS TYPE AS REQUIRED TO LOAD THE PDP-11
FILE, DEPENDS ON SIZE OF FILE.
E ;PDP-11 IDENTIFIER
;SPACE, SIGNIFIES ASCIIZED FILE
0 ;WORD COUNT, WC OF ZERO SIGNIFIES TRANSFER BLOCK
ADR ;PDP-11 STARTING ADDRESS
CKS ;FILE LINE CHECKSUM
CR/LF ;END OF LINE
THERE IS A MAXIMUM OF 30 16 BIT DATA WORDS PER FILE LINE
WHICH PRODUCES A MAXIMUM OF 131 CHARACTERS PER LINE COUNTING
THE FILE IDENTIFIER, THE WORD COUNT, THE LOAD ADDRESS, THE
DATA, THE LINE CHECKSUM AND THE FORMAT CHARACTERS.
THE FILE LINE CHECKSUM IS THE 16 BIT NEGATED CHECKSUM THAT
WHEN THE WORD COUNT, THE LOAD ADDRESS, THE DATA AND THE
CHECKSUM ARE ADDED TOGETHER PRODUCES A 16 BIT ZERO SUM.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0008
5.0 PDP-10 FILE FORMATS
PDP-10 PROGRAMS ARE ASSEMBLED, LOADED AND SAVED WHICH THEN
CREATES A PDP-10 FILE IMAGE AS GIVEN IN THE FOLLOWING
DESCRIPTION:
PDP-10 SAVE FILE FORMAT
-----------------------
-WC,,ADR ;-WC = NEGATIVE WORD COUNT OF THE DATA
DATA ; WORDS FOLLOWING
DATA
DATA ;ADR = LOAD ADDRESS -1 FOR THE DATA
DATA
-WC,,ADR
DATA
.
.
JRST,,ADR ;START TRANSFER ADDRESS
PDP-10 ASCIIZED FILE FORMAT
---------------------------
PDP-10 ASCIIZED FILES ARE COMPOSED OF THREE TYPES OF
FILE LOAD LINES. THEY ARE:
A. CORE ZERO LINE
THIS LOAD FILE LINE SPECIFIES WHERE AND HOW MUCH PDP-10 CORE
TO BE ZEROED. THIS IS NECESSARY AS THE PDP-10 FILES ARE
ZERO COMPRESSED WHICH MEANS THAT ZERO WORDS ARE NOT INCLUDED
IN THE LOAD FILE TO CONSERVE FILE SPACE.
CORE ZERO LINE
Z WC,ADR,COUNT,...,CKSUM
Z = PDP-10 CORE ZERO
WORD COUNT = 1 TO 4
ADR = ZERO START ADDRESS
DERIVED FROM C(JOBSA)
COUNT = ZERO COUNT, 64K MAX
DERIVED FROM C(JOBFF)
IF THE ADDRESSES ARE GREATER THAN 64K THE HI 2-BITS OF
THE 18 BIT PDP-10 ADDRESS ARE INCLUDED AS THE HI-BYTE OF
THE WORD COUNT.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0009
5.0 PDP-10 FILE FORMATS (CON'T)
B. LOAD FILE LINES
AS MANY OF THESE TYPES OF LOAD FILE LINES ARE REQUIRED AS ARE
NECESSARY TO REPRESENT THE BINARY SAVE FILE.
LOAD FILE LINE
T WC,ADR,DATA 20-35,DATA 4-19,DATA 0-3, - - - ,CKSUM
T = PDP-10 TYPE FILE
WC = PDP-10 DATA WORD COUNT TIMES 3, 3 PDP-11 WORDS
PER PDP-10 WORD.
ADR = PDP-10 ADDRESS FOR THIS LOAD FILE LINE
LOW 16 BITS OF THE PDP-10 18 BIT ADDRESS, IF
THE ADDRESS IS GREATER THAN 64K, THE HI 2-BITS
OF THE ADDRESS ARE INCLUDED AS THE HI-BYTE OF
THE WORD COUNT.
UP TO 8 PDP-10 WORDS, OR UP TO 24 PDP-11 WORDS
DATA 20-35
DATA 4-19 ;PDP-10 EQUIV DATA WORD BITS
DATA 0-3
CKSUM = 16 BIT NEGATED CHECKSUM OF WC, ADR & DATA
C. TRANSFER LINE
THIS LOAD FILE LINE CONTAINS THE FILE STARTING ADDRESS.
TRANSFER LINE
T 0,ADR,CKSUM
0 = WC = SIGNIFIES TRANSFER, EOF
ADR = PROGRAM START ADDRESS
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0010
D. SUPER '.A10' LOAD FILE LINES
THESE LOAD FILE LINES PROVIDE A MORE COMPRESSED ASCIIZED
REPRESENTATION OF THE BINARY SAVE FILE.
DATA IS REPRESENTED AS 36 BIT WORDS WITH LEADING ZERO 6 BIT
OITS SUPPRESSED, INTERMEDIATE ZERO 6 BIT OITS SUPPRESSED AND
AN ALTERNATE CHARACTER SUBSTITUTED TO REPRESENT THE AMOUNT OF
ZERO 6 BIT OITS SUPPRESSED, AND 77 6 BIT OITS SUPPRESSED AND
AN ALTERNATE CHARACTER SUBSTITUTED TO REPRESENT THE AMOUNT OF
77 6 BIT OITS SUPPRESSED.
INTERMEDIATE ZERO 6 BIT OITS REPRESENTATIONS:
"0" = 00 ;6 BITS OF ZEROS
"1" = 0000 ;12 BITS OF ZEROS
"2" = 000000 ;18 BITS OF ZEROS
"3" = 00000000 ;24 BITS OF ZEROS
"4" = 0000000000 ;30 BITS OF ZEROS
77 6 BIT OITS REPRESENTATIONS:
"5" = 77 ;6 BITS OF ONES
"6" = 7777 ;12 BITS OF ONES
"7" = 777777 ;18 BITS OF ONES
"8" = 77777777 ;24 BITS OF ONES
"9" = 7777777777 ;30 BITS OF ONES
":" = 777777777777 ;36 BITS OF ONES
LOAD FILE LINE
A WC,ADR,DATA 0-35, - - - ,CKSUM
A = PDP-10 TYPE FILE
WC = PDP-10 DATA WORD COUNT
ADR = PDP-10 ADDRESS FOR THIS LOAD FILE LINE
LOW 16 BITS OF THE PDP-10 18 BIT ADDRESS, IF
THE ADDRESS IS GREATER THAN 64K, THE HI 2-BITS
OF THE ADDRESS ARE INCLUDED AS THE HI-BYTE OF
THE WORD COUNT.
UP TO 10 PDP-10 WORDS
CKSUM = 16 BIT NEGATED CHECKSUM OF WC, ADR & DATA
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0011
6.0 KL10 MICRO CODE FILE FORMATS
THE KL10 MICRO CODE FILE CONSISTS OF TWO DIFFERENT TYPES
OF DATA.
THE CONTROL RAM CONSISTS OF 80 BITS PLUS A 5 BIT SPECIAL
FIELD PER CONTROL RAM LOCATION. THIS THEN REQUIRES SIX
16 BIT WORDS TO REPRESENT THE CONTROL RAM DATA. THE LOAD
FILE IS ARRANGED SO AS FACILITATE LOADING OF THE C-RAM WITH
THE "WCRAM" ROUTINE.
THE DISPATCH RAM CONSISTS OF PAIRS OF LOCATIONS. THIS
THEN REQUIRES THREE 16 BIT WORDS PER PAIR OF D-RAM LOCATIONS.
THIS FILE IS ARRANGED TO FACILITATE LOADING OF THE D-RAM
WITH THE "WDRAM" ROUTINE.
BOTH THE C-RAM AND D-RAM DATA ARE COMBINED INTO A SINGLE
LOAD FILE TO FACILITATE HANDLING AND TO KEEP THE ASSOCIATED
VERSIONS TOGETHER.
THE MICRO CODE LOAD FILE ALSO CONTAINS A C-RAM ZERO LINE
USED TO ZERO THE CONTROL RAM BEFORE LOADING ANY DATA INTO
IT. THE C-RAM IS ZEROED FROM LOCATION ZERO UP TO THE HIGHEST
USED C-RAM LOCATION.
IF THE MICRO-CODE DOES NOT CONTAIN ANY DATA IN C-RAM LOCATION
0, THE "Z" BLOCK IS NOT DONE WHICH PREVENTS C-RAM ZEROING AND
ALLOWS FOR MICRO-CODE OVERLAYS TO BE GENERATED.
EXAMPLE FILE:
Z WC,ADR,CKS
C WC,ADR,DATA,DATA,...,CKSUM
C "
C "
C ,,
D WC,ADR,DATA,DATA,...,CKSUM
D "
D "
D ,,
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0012
6.0 KL10 MICRO CODE FILE FORMATS (CON'T)
CONTROL RAM FORMAT
------------------
Z WC,ADR,COUNT,CKSUM
Z ;C-RAM ZERO
;SPACE, ASCIIZED FORMAT
WC ;WORD COUNT = 1
ADR ;ZERO START ADDRESS = 0
COUNT ;ZERO COUNT, DERIVED FROM HIGHEST USED ADDRESS
C WC,ADR,64-79,48-63,32-47,16-31,00-15,0-4,.....,CKSUM
C ;C-RAM FILE IDENTIFIER
;SPACE, ASCIIZED FILE TYPE
WC ;WORD COUNT, C-RAM WORD COUNT TIMES 6, 6 PDP-11
; WORDS PER C-RAM WORD
ADR ;C-RAM ADDRESS FOR THIS LOAD FILE LINE
64-79 ;C-RAM BITS AS SPECIFIED UNDER "WCRAM"
48-63 ;C-RAM BITS AS SPECIFIED UNDER "WCRAM"
32-47 ;C-RAM BITS AS SPECIFIED UNDER "WCRAM"
16-31 ;C-RAM BITS AS SPECIFIED UNDER "WCRAM"
00-15 ;C-RAM BITS AS SPECIFIED UNDER "WCRAM"
0-4 ;C-RAM BITS AS SPECIFIED UNDER "WCRAM"
CKSUM ;16 BIT NEGATED CHECKSUM OF WC, ADR & DATA
C ,,
C ;C-RAM FILE IDENTIFIER
;SPACE, ASCIIZED FILE FORMAT
, ;WC = 0, END OF FILE
, ;ADR = 0, NO START ADDRESS
A C-RAM LOAD FILE LINE MAY CONTAIN UP TO 5 C-RAM LOCATIONS.
THE FILE LINE CHECKSUM IS THE 16 BIT NEGATED CHECKSUM OF
THE WORD COUNT, THE LOAD ADDRESS AND THE C-RAM DATA
REPRESENTED IN 16 BIT FORMAT.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0013
6.0 KL10 MICRO CODE FILE FORMATS (CON'T)
D-RAM FORMAT
------------
D WC,ADR,EVEN,ODD,COMMON,.......,CKSUM
D ;D-RAM FILE IDENTIFIER
;SPACE, ASCIIZED FILE TYPE
WC ;WORD COUNT, D-RAM LOCATION PAIRS TIMES 3, 3 PDP-11
; 16 BIT WORDS PER PAIR OF LOCATIONS.
EVEN ;D-RAM EVEN BITS AS SPECIFIES UNDER "WDRAM"
ODD ;D-RAM ODD BITS AS SPECIFIED UNDER "WDRAM"
COMMON ;D-RAM COMMON BITS AS SPECIFIED UNDER "WDRAM"
CKSUM ;16 BIT NEGATED CHECKSUM OF WC, ADR & DATA
D ,,
D ;D-RAM FILE IDENTIFIER
;SPACE, ASCIIZED FILE FORMAT
, ;WC = 0, END OF FILE
, ;ADR = 0, NO START ADDRESS
A D-RAM LOAD FILE LINE MAY CONSIST OF UP TO 10
PAIRS OF D-RAM LOCATIONS.
THE FILE LINE CHECKSUM IS THE 16 BIT NEGATED CHECKSUM OF
THE WORD COUNT, THE LOAD ADDRESS AND THE D-RAM DATA
REPRESENTED IN 16 BIT FORMAT.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0014
7.0 PDP-8 FILE FORMATS
PDP-8 PROGRAMS ARE ASSEMBLED WITH PAL10 ON A DECSYSTEM10
WHICH PRODUCES A PDP-8 BINARY FILE ON THE PDP-10 DISK OF
THE FOLLOWING FORMAT:
PDP-8 BINARY FILE FORMAT
------------------------
DATA IS REPRESENTED AS IF IT WAS AN EIGHT CHANNEL PAPER
TAPE.
A. THE LEADER/TRAILER IS CHANNEL 8 ONLY.
B. AN ADDRESS IS DESIGNATED BY A CHANNEL 7 PUNCH
C. DATA FOLLOWS THE ADDRESS IN SEQUENTIAL ORDER
PDP-8 ASCIIZED FILE FORMAT
--------------------------
8 WC,ADR,12,12,12, . . . . . .12,CKS
8 WC,ADR,12,12,12, . . . . . .12,CKS
8 0,ADR,CKS
8 ;PDP-8 FILE IDENTIFIER
;SPACE, SIGNIFIES ASCIIZED FILE
WC ;WORD COUNT
ADR ;LOAD ADDRESS
12 ;UP TO 2 CHARS FOR EACH 12-BIT DATA WORD
CKS ;FILE LINE CHECKSUM
CR/LF ;END OF LINE
AS MANY LINES OF THIS TYPE AS REQUIRED TO LOAD THE PDP-8
FILE, DEPENDS ON SIZE OF FILE.
8 ;PDP-8 IDENTIFIER
;SPACE, SIGNIFIES ASCIIZED FILE
0 ;WORD COUNT, WC OF ZERO SIGNIFIES TRANSFER BLOCK
ADR ;PDP-8 STARTING ADDRESS
CKS ;FILE LINE CHECKSUM
CR/LF ;END OF LINE
THERE IS A MAXIMUM OF 32 12 BIT DATA WORDS PER FILE LINE
WHICH PRODUCES A MAXIMUM OF 123 CHARACTERS PER LINE COUNTING
THE FILE IDENTIFIER, THE WORD COUNT, THE LOAD ADDRESS, THE
DATA, THE LINE CHECKSUM AND THE FORMAT CHARACTERS.
THE FILE LINE CHECKSUM IS THE 12 BIT NEGATED CHECKSUM THAT
WHEN THE WORD COUNT, THE LOAD ADDRESS, THE DATA AND THE
CHECKSUM ARE ADDED TOGETHER PRODUCES A 12 BIT ZERO SUM.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0015
8.0 DX20 FILE FORMATS
THE DX20 MICRO-PROCESSOR PROGRAMS ARE ASSEMBLED WITH MACRO-10
ON A DECSYSTEM10 WHICH PRODUCES A PDP-10 BINARY FILE ON THE
PDP-10 DISK OF THE FOLLOWING FORMAT:
DX20 BINARY FILE FORMAT
-----------------------
----
16-BIT DATA FOR CRAM LOC 0
16-BIT DATA FOR CRAM LOC 1
16-BIT DATA FOR CRAM LOC 2
I
I
V
16-BIT DATA FOR CRAM LOC M - IF NO WRAM DATA, FILE WILL END HERE
-1 (36-BITS) - SIGNIFIES WRAM DATA
8-BIT DATA FOR WRAM LOC 0
8-BIT DATA FOR WRAM LOC 1
8-BIT DATA FOR WRAM LOC 2
I
I
V
8-BIT DATA FOR WRAM LOC N
----
MAXIMUM M = 3777(8)
MAXIMUM N = 1777(8)
ALL FILES WILL HAVE A VERSION NUMBER IN CRAM LOCATION 0 WITH
THE 6-BIT VERSION NUMBER IN BITS 20 TO 25 OF THE 36-BIT WORD
AND A 10-BIT EDIT NUMBER IN BITS 26-35.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0016
8.0 DX20 FILE FORMATS (CON'T)
DX20 ASCIIZED FILE FORMAT
-------------------------
C WC,ADR,123,123,123, . . . . . .123,CKS
C WC,ADR,123,123,123, . . . . . .123,CKS
W WC,ADR,12,12,12,12, . . . . .12,CKS
W WC,ADR,12,12,12,12, . . . . .12,CKS
W 0,ADR,CKS
C ;CRAM FILE IDENTIFIER
;SPACE, SIGNIFIES ASCIIZED FILE
WC ;WORD COUNT
ADR ;LOAD ADDRESS
123 ;UP TO 3 CHARS FOR EACH 16-BIT DATA WORD
CKS ;FILE LINE CHECKSUM
CR/LF ;END OF LINE
AS MANY LINES OF THIS TYPE AS REQUIRED TO LOAD THE DX20 CRAM
FILE, DEPENDS ON SIZE OF FILE.
W ;WRAM FILE IDENTIFIER
;SPACE, SIGNIFIES ASCIIZED FILE
WC ;WORD COUNT
ADR ;LOAD ADDRESS
12 ;UP TO 2 CHARS FOR EACH 8-BIT DATA WORD
CKS ;FILE LINE CHECKSUM
CR/LF ;END OF LINE
AS MANY LINES OF THIS TYPE AS REQUIRED TO LOAD THE DX20 WRAM
FILE, DEPENDS ON SIZE OF FILE.
W ;DX20 IDENTIFIER
;SPACE, SIGNIFIES ASCIIZED FILE
0 ;WORD COUNT, WC OF ZERO SIGNIFIES TRANSFER BLOCK
ADR ;DX20 STARTING ADDRESS
CKS ;FILE LINE CHECKSUM
CR/LF ;END OF LINE
THERE IS A MAXIMUM OF 30 16 BIT DATA WORDS PER FILE LINE
WHICH PRODUCES A MAXIMUM OF 131 CHARACTERS PER LINE COUNTING
THE FILE IDENTIFIER, THE WORD COUNT, THE LOAD ADDRESS, THE
DATA, THE LINE CHECKSUM AND THE FORMAT CHARACTERS.
THE FILE LINE CHECKSUM IS THE 16 BIT NEGATED CHECKSUM THAT
WHEN THE WORD COUNT, THE LOAD ADDRESS, THE DATA AND THE
CHECKSUM ARE ADDED TOGETHER PRODUCES A 16 BIT ZERO SUM.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0017
9.0 KS-10 MICRO-CODE FILE FORMATS
THE KS-10 MICRO-CODE FILE CONSISTS OF A SPECIAL 36-BIT BINARY
FILE WITH THE DATA ARRANGED SO THAT IT CAN BE USED DIRECTLY
BY THE KS-10 8080 CONSOLE PROCESSOR.
THE FILE CONSISTS OF 2048 WORD TRIPLETS TO REPRESENT THE 2K
BY 96 BIT KS-10 CRAM. THE DATA IS ARRANGED IN THE FOLLOWING
FORMAT:
1ST WORD [BITS 60 - 95]
2ND WORD [BITS 24 - 59]
3RD WORD [BITS 0 - 23]
THE 96 BITS CONTAINED IN THE MICRO-WORD ARE ARRANGED AS FOLLOWS:
00 - J00 24 - PB.CRA 48 - FM WR 72 - DBUS SEL 2
01 - J01 25 - CARRY IN 49 - MULTI SHFT 73 - DBUS SEL 1
02 - J02 26 - MEM FUNC 50 - PAR EN L 74 - DPA ADR 10
03 - J03 27 - DISP SEL 4 51 - PAR EN R 75 - DPA ADR 4
04 - J04 28 - DISP SEL 2 52 - DIVIDE 76 - DPA ADR 2
05 - J05 29 - DISP SEL 1 53 - MULTI PREC 77 - DPA ADR 1
06 - J06 30 - SPEC SEL 4 54 - #00 78 - DP HOLD L
07 - J07 31 - SPEC SEL 2 55 - #01 79 - DP HOLD R
08 - J08 32 - SPEC SEL 1 56 - #02 80 - DPB ADR 10
09 - J09 33 - SKIP SEL 4 57 - #03 81 - DPB ADR 4
10 - J10 34 - SKIP SEL 2 58 - #04 82 - PDB ADR 2
11 - J11 35 - SKIP SEL 1 59 - #05 83 - DPB ADR 1
12 - T00 36 - #06 60 - FUNC 04 84 - RAM ADR 4
13 - T01 37 - #07 61 - FUNC 02 85 - RAM ADR 2
14 - CALL 38 - #08 62 - FUNC 01 86 - RAM ADR 1
15 - SKIP EN 40 39 - #09 63 - SRC L 04 87 - DEST 4
16 - SKIP EN 20 40 - #10 64 - SRC L 02 88 - DEST 2
17 - SKIP EN 10 41 - #11 65 - SRC L 01 89 - DEST 1
18 - SPEC EN 40 42 - #12 66 - SRC R 04 90 - SC EN
19 - SPEC EN 20 43 - #13 67 - SRC R 02 91 - FE EN
20 - SPEC EN 10 44 - #14 68 - SRC R 01 92 - PAR CHK L
21 - DISP EN 40 45 - #15 69 - DBM SEL 4 93 - PAR CHK R
22 - DISP EN 20 46 - #16 70 - DBM SEL 2 94 - PB.CRM
23 - DISP EN 10 47 - #17 71 - DBM SEL 1 95 - MARK
ALSO PRODUCED IS A ".RSQ" FILE CONTAINING THE SEQUENCE NUMBERS
FROM THE MICROCODE LISTING. THIS FILE IS USED BY "CSL" TO
PROVIDE CROSS REFERENCE TO THE MICROCODE LISTING.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0018
10.0 KMC11 FILE FORMATS
KMC11 MICROCODE IS ASSEMBLED WITH MACY11 ON A DECSYSTEM10
WHICH PRODUCES A KMC11 BINARY FILE ON THE PDP-10 DISK OF
THE FOLLOWING FORMAT:
KMC11 BINARY FILE FORMAT
-------------------------
KMC11 BINARY ON 10 DISK - 36 BIT WORDS
BYTE 2/BYTE 1,,BYTE 4/BYTE 3
6 5,, 8 7
10 9,, 12 11
ETC.
ACTUAL FORMAT
FRAME 0 001 ;START FRAME
1 000 ;NULL
2 XXX ;BYTE COUNT LOW 8 BITS
3 XXX ;BYTE COUNT HIGH 8 BITS
4 YYY ;LOAD ADDRESS LOW 8 BITS
5 YYY ;LOAD ADDRESS HIGH 8 BITS
6 NNN
.
. ;DATA BYTES
.
NNN
ZZZ ;BLOCK CHECKSUM
ADDRESSES LESS THAN 100000 ARE DIVIDED BY 2 TO GIVE THE KMC11
C-RAM ADDRESS. ADDRESSES EQUAL TO OR GREATER THAN 100000
SIGNIFY KMC11 D-RAM ADDRESSES AND HAVE 100000 SUBTRACTED FROM
THEM TO GIVE THE D-RAM ADDRESS.
KMC11 C-RAM DATA IS 16 BITS AND KMC11 D-RAM DATA IS 8 BITS.
THE BINARY TRANSFER BLOCK SIGNIFIES THE KMC11 C-RAM START
ADDRESS.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0019
10.0 KMC11 FILE FORMATS (CON'T)
KMC11 ASCIIZED FILE FORMAT
---------------------------
C WC,ADR,123,123,123, . . . . . .123,CKS
C WC,ADR,123,123,123, . . . . . .123,CKS
D WC,ADR,12,12,12, . . . . . . . 12,CKS
D WC,ADR,12,12,12, . . . . . . . 12,CKS
C 0,ADR,CKS
C ;KMC11 C-RAM FILE IDENTIFIER
;SPACE, SIGNIFIES ASCIIZED FILE
WC ;WORD COUNT
ADR ;LOAD ADDRESS
123 ;UP TO 3 CHARS FOR EACH 16-BIT DATA WORD
CKS ;FILE LINE CHECKSUM
CR/LF ;END OF LINE
D ;KMC11 D-RAM FILE IDENTIFIER
;SPACE, SIGNIFIES ASCIIZED FILE
WC ;WORD COUNT
ADR ;LOAD ADDRESS
12 ;UP TO 2 CHARS FOR EACH 8-BIT DATA WORD
CKS ;FILE LINE CHECKSUM
CR/LF ;END OF LINE
AS MANY LINES OF THIS TYPE AS REQUIRED TO LOAD THE KMC11
FILE, DEPENDS ON SIZE OF FILE.
C ;KMC11 IDENTIFIER
;SPACE, SIGNIFIES ASCIIZED FILE
0 ;WORD COUNT, WC OF ZERO SIGNIFIES TRANSFER BLOCK
ADR ;KMC11 C-RAM STARTING ADDRESS
CKS ;FILE LINE CHECKSUM
CR/LF ;END OF LINE
THERE IS A MAXIMUM OF 30 16/8 BIT DATA WORDS PER FILE LINE
WHICH PRODUCES A MAXIMUM OF 131/101 CHARACTERS PER LINE
COUNTING THE FILE IDENTIFIER, THE WORD COUNT, THE LOAD
ADDRESS, THE DATA, THE LINE CHECKSUM AND THE FORMAT
CHARACTERS.
THE FILE LINE CHECKSUM IS THE 16 BIT NEGATED CHECKSUM THAT
WHEN THE WORD COUNT, THE LOAD ADDRESS, THE DATA AND THE
CHECKSUM ARE ADDED TOGETHER PRODUCES A 16 BIT ZERO SUM.
DECSYSTEM DIAGNOSTICS ASCIIZER CONVERSION PROGRAM
------------------------------------------------- SEQ 0020
11.0 OCTAL FILE FORMATS
ANY OF THE PREVIOUSLY DESCRIBED FILE FORMATS MAY BE
PATCHED, CREATED OR UPDATED BY USING THE OCTAL FILE FORMAT
CAPABILITY. IN THE ASCIIZED FILE FORMAT THE SECOND CHARACTER
ON A LINE (THE SPACE) SIGNIFIES THAT THIS LINE IS IN ASCIIZED
FORMAT. TO CREATE A FILE LINE IN THE OCTAL FORMAT THE
SECOND CHARACTER IS AN "O" AND THE DATA IS INSERTED IN OCTAL,
THAT IS USING THE OCTAL CHARACTERS 0 THRU 7, THE FILE WHEN
LOADED THEN USES ONLY THE THREE LEAST SIGNIFICANT BITS OF THE
CORESPONDING CHARACTER. ALSO AN OCTAL FILE LINE DOES NOT
INCLUDE THE CHECKSUM SO THAT ONE DOES NOT HAVE TO COMPUTE
THIS WHEN CREATING THE FILE.
ONE SHOULD LIMIT THE LINE LENGTH OF THE OCTAL FILE LINE TO
132 CHARACTERS.
12.0 SPECIFIED FILE EXTENSIONS
THE DECSYTEM 10/20 FILES HAVE THE FOLLOWING SPECIFIED
FILE EXTENSIONS TO DESTINGUISH THE FILE TYPES.
A. .BIN ;PDP-11 BINARY LOAD FILE
B. .A11 ;PDP-11 ASCIIZED LOAD FILE
C. .RAM ;KL10 MICRO CODE LOAD FILE
D. .A10 ;PDP-10 ASCIIZED LOAD FILE
E. .A8 ;PDP-8 ASCIIZED LOAD FILE
F. .ADX ;DX20 ASCIIZED LOAD FILE
G. .KMC ;KMC11 ASCIIZED LOAD FILE
13.0 FILE IDENTIFICATION
ALL FILES (EXCEPT FOR PDP-11 .BIN) HAVE AS THE FIRST LINE
ENTRY IN THE FILE A FILE IDENTIFICATION ENTRY WHICH PROVIDES
INTERNAL FILE IDENTIFICATION INFORMATION.
FORMAT: (ALL BUT .RAM)
;FILE.EXT VER #.# DD-MMM-YY
FORMAT: (.RAM)
;FILE.EXT VER #.# "MICRO-CODE .TITLE INFORMATION"
DECSYSTEM DIAGNOSITIC ASCIIZER CONVERSION PROGRAM
MAINDEC-10-DDQDG SEQ 0021
REVISION HISTORY
****************
VERSION 0.14
MAY 10,1978
VERSION 0.14 ADDS ".RSQ" SEQUENCE FILE CREATION TO THE KS-10
MICROCODE CONVERSION. ALSO ADDS ".KMC" PROCESSING FOR DECSYSTEM
2020 KMC11 MICROCODE.
CHANGES MICROCODE ".LST" OUTPUT TO ".MCL" FOR "MICROCODE LISTING".
ADDS CODE TO KEEP THE MICROCODE LISTING THE SAME DATE AS THE
SOURCE FILE.
ADDS PROCESSING FOR CONVERTING PDP-10 '.A10' FILES BACK TO '.SAV'.
****************
VERSION 0.13
FEBRUARY 24,1978
VERSION 0.13 ADDS "SUPER" '.A10' PROCESSING FOR PDP-10 SAVE FILES.
****************
VERSION 0.12
NOVEMBER 7,1977
VERSION 0.12 ADDS KS-10 MICRO-CODE PROCESSING TO PRODUCE A ".RAM"
LOAD FILE AND A ".LST" MICRO-CODE LISTING.
****************
VERSION 0.11
FEBRUARY 2,1977
VERSION 0.11 CHANGES THE ".RAM" FILE IDENTIFICATION LINE TO USE THE
"MICRO-CODE .TITLE INFORMATION" IN PLACE OF THE FILE DATE.
----------------------
DECSYSTEM DIAGNOSITIC ASCIIZER CONVERSION PROGRAM
MAINDEC-10-DDQDG SEQ 0022
-----------------
VERSION 0.10
SEPTEMBER 29,1976
VERSION 0.10 CHANGES DX20 PROCESS TO "AND" CRAM DATA TO 16 BITS
AND WRAM DATA TO 8 BITS.
-----------------
VERSION 0.7
AUGUST 16,1976
VER 0.7, WHEN CONVERTING MICRO-CODE, CHECKS IF C-RAM LOCATION 0
CONTAINS ANY DATA AND IF NOT DOES NOT GENERATE THE "Z" BLOCK
TO ALLOW FOR MICRO-CODE OVERLAYS TO BE GENERATED.
ADDED OUTPUT BLOCK COUNT TO CONVERSION COMPLETED MESSAGE.
CHANGED COMMAND INPUT TO TTY LINE BUFFERED MODE.
--------------
VERSION 0.6
JUNE 2,1976
VERSION 0.6 ADDS DX20 MICRO-PROCESSOR CONVERSION SUPPORT
--------------
VERSION 0.5
MAY 3,1976
VERSION 0.5 ADDS KL10 EXTENDED ADDRESS MICRO-CODE SUPPORT
---------------
PREVIOUS VERSIONS, NO HISTORY KEPT.
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^ECDOC VER 00.24 10-MAY-78 08:52:44 PAGE 1
SEQ 0023
DOCUMENT
**************
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^
**************
COPYRIGHT 1978
DIGITAL EQUIPMENT CORPORATION
MAYNARD, MASS. 01754
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^ECDOC VER 00.24 10-MAY-78 08:52:44 PAGE 2
SEQ 0024
TABLE OF CONTENTS
*******************
25 PARAMETERS
119 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, V73G, NOV 12, 1973
286 CONTROL SEQUENCE
707 TEN CONVERT SECTION
1150 ERROR ROUTINES
1194 PDP-10 '.A10' BACK TO '.SAV' CONVERSION
1233 LDA10 - LOAD PDP-10 ASCIIZED ".A10" FILE
1425 PDP-11 BINARY TO ASCII SECTION
1639 RAM MICRO-CODE PROCESS
1725 D-RAM MICRO CODE PROCESS
1985 C-RAM MICRO-CODE PROCESS
3028 PDP-8 FILE CONVERSION
3180 DX20 FILE CONVERSION
3280 KMC11 MICROCODE BINARY TO ASCII SECTION
3410 OUTPUT FILE IDENTIFICATION
3582 MISCELLANEOUS SUBROUTINES
3742 LISTING FILE INITIALIZATION
3810 CONVERT TITLE AND PAGE HEADER PROCESS
4043 BUFFERS
4073 *SUBRTN* PROGRAM SUBROUTINE INITIALIZATION, V73G, NOV 12, 1973
4210 *SUBRTN* UUO HANDLING SUBROUTINE, V73G, NOV 12, 1973
4314 *SUBRTN* TELETYPE INPUT SUBROUTINE, V74A, FEB 7, 1974
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^ECDOC VER 00.24 10-MAY-78 08:52:44 PAGE 3
SEQ 0025
TABLE OF CONTENTS
*******************
4591 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974
5004 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^ECDOC VER 00.24 10-MAY-78 08:52:44 PAGE 4
SEQ 0026
1 MAINDEC-10-DDQDG
(CONVRT)
18 COPYRIGHT 1973, 1974, 1975, 1976, 1977, 1978
DIGITAL EQUIPMENT CORPORATION
MARLBORO, MASS. 01752
22 JOHN R. KIRCHOFF
*****************************************************************
25 PARAMETERS
*****************************************************************
29 ACCUMULATORS
49 I/O CHANNEL ASSIGNMENTS
58 MISCELLANEOUS
68 PDP-11 CONVERT PARAMETERS
81 PDP-8 CONVERT PARAMETERS
85 ASSEMBLY PARAMETERS
*****************************************************************
119 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, V73G, NOV 12, 1973
*****************************************************************
*****************************************************************
286 CONTROL SEQUENCE
*****************************************************************
359 MISCELLANEOUS PARAMETERS
389 FILE NAME SPECIFICATION
648 SETUP INPUT AND OUTPUT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^ECDOC VER 00.24 10-MAY-78 08:52:44 PAGE 5
SEQ 0027
*****************************************************************
707 TEN CONVERT SECTION
*****************************************************************
709 FIND START ADDRESS AND LENGTH
750 OUTPUT 10 CORE ZEROING BLOCK
CORE IS ZEROED FROM 'JOBSA' TO 'JOBFF'
796 OUTPUT 10 DATA WORD BLOCKS
834 OUTPUT TRANSFER BLOCK
863 GET NEW POINTER
873 JOBSA/JOBFF/JOBVER SEARCH ROUTINE
892 SETIOW, SET I/O POINTER WORD
905 SUPER '.A10' CONVERSION
958 CONVERSION COMPLETION FILE CLOSEOUT ROUTINE
982 MISCELANEOUS ROUTINES
1027 PDP-10 SUPER A10 OUTPUT ROUTINE
1076 PUTZR0, SUPPRESS MULTIPLE 00 OITS
1105 "0" = 00
"1" = 0000
"2" = 000000
"3" = 00000000
"4" = 0000000000
1110 PUTONE, SUPPRESS MULTIPLE 77 OITS
1144 "5" = 77
"6" = 7777
"7" = 777777
"8" = 77777777
"9" = 7777777777
":" = 777777777777
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^ECDOC VER 00.24 10-MAY-78 08:52:44 PAGE 6
SEQ 0028
*****************************************************************
1150 ERROR ROUTINES
*****************************************************************
*****************************************************************
1194 PDP-10 '.A10' BACK TO '.SAV' CONVERSION
*****************************************************************
1212 LDACHR - ASCII CHARACTER PROCESS
*****************************************************************
1233 LDA10 - LOAD PDP-10 ASCIIZED ".A10" FILE
*****************************************************************
1235 LDPROC - FORMAT CONTROL PROCESS
1271 LDCNV - CONVERT ASCIIZED BACK INTO BITS
1320 LDEOL - END OF LINE, CHECKSUM LOAD LINE
1336 LDTEN - CREATE LOAD ADDRESS AND WORD COUNT
1347 LDTENZ - CLEAR TEN CORE, JOB START TO JOB FIRST FREE
1351 LDTEN1 - TRANSFER TEN WORDS TO MEMORY
1392 LDDONE - COMPLETED, OUTPUT XFER WORD
1399 LDCMNT - LOAD FILE COMMENT LINE
*****************************************************************
1425 PDP-11 BINARY TO ASCII SECTION
*****************************************************************
*****************************************************************
1639 RAM MICRO-CODE PROCESS
*****************************************************************
*****************************************************************
1725 D-RAM MICRO CODE PROCESS
*****************************************************************
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^ECDOC VER 00.24 10-MAY-78 08:52:44 PAGE 7
SEQ 0029
*****************************************************************
1985 C-RAM MICRO-CODE PROCESS
*****************************************************************
2438 KS-10 MICRO-CODE PROCESS
2853 RSQSHF, CREATE KS-10 SEQUENCE NUMBER FILE
*****************************************************************
3028 PDP-8 FILE CONVERSION
*****************************************************************
3139 GET A PAIR OF PDP-8 CHARS TO FORM ADDRESS OR DATA WORD
3161 GET A PDP-8 CHAR
*****************************************************************
3180 DX20 FILE CONVERSION
*****************************************************************
*****************************************************************
3280 KMC11 MICROCODE BINARY TO ASCII SECTION
*****************************************************************
*****************************************************************
3410 OUTPUT FILE IDENTIFICATION
*****************************************************************
3413 FILEID -- PUT FILE ID LINE IN OUTPUT FILE
3450 IDENTIFY PDP-10 "A10" FILE VERSION
3461 PUT INPUT FILE DATE IN OUTPUT FILE
3488 MICRO-CODE RAM FILE VERSION
3499 MICRO-CODE .TITLE INFORMATION
3508 PDP-11/PDP-8 FILE VERSION
3523 FILNUM -- PUT 2 DECIMAL DIGITS IN OUTPUT FILE
3534 FILOCS -- PUT OCTALS INTO OUTPUT FILE
3550 FILSTR -- PUT SIXBIT DATA INTO OUTPUT FILE
3561 FILEOF -- PUT "END OF FILE CODE IN OUTPUT FILE
3572 FILSP3 -- PUT SPACES INTO OUTPUT FILE
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^ECDOC VER 00.24 10-MAY-78 08:52:44 PAGE 8
SEQ 0030
*****************************************************************
3582 MISCELLANEOUS SUBROUTINES
*****************************************************************
3585 GETWRD -- SUBROUTINE TO RETURN NEXT SIXBIT FIELD
MOVE T2,BYTE POINTER FOR INPUT
GO GETWRD
RETURNS WITH FIELD IN T3
BREAKS ARE NON-ALPHANUMERIC OR GT 6 CHARS
3604 ALPH -- SUBROUTINE TO CHECK CHARACTER
RETURNS IF NON-ALPHANUMERIC
SKIP-RETURN IF ALPHANUMERIC, $, % OR .
ENTER WITH CHAR IN T1
DISTURBS NO REGISTER
3625 GETDEC -- SUBROUTINE TO GET A DECIMAL INTERGER
MOVE T2,BYTE POINTER FOR INPUT
GO GETDEC
RETURNS WITH FIELD IN T3
BREAKS ARE ANY NON-DECIMAL CHAR, RETURNED IN T1
3644 GETOCT -- SUBROUTINE TO GET AN OCTAL INTERGER
MOVE T2,BYTE POINTER FOR INPUT
GO GETOCT
RETURNS WITH FIELD IN T3
BREAKS ARE ANY NON-OCTAL CHAR, RETURNED IN T1
3662 CMDIN -- SUBROUTINE TO GET COMMAND LINE
RETURNS ASCIZ STRING BYTE POINTER IN T2
EATS CR, RUBOUT, NULL, BREAK IS LF,VT,FF
3685 CMDGET -- SUBROUTINE TO GET NEXT COMMAND LINE CHARACTER
GO CMDGET
BREAK RETURN
NO BREAK RETURN
EATS CR, RUBOUT, NULL, BREAK IS LF, VT, FF
3708 RINP -- INPUT FILE READ ROUTINE
3724 INTCOR -- INITIALIZE HI-CORE FOR RAM STORAGE
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^ECDOC VER 00.24 10-MAY-78 08:52:44 PAGE 9
SEQ 0031
*****************************************************************
3742 LISTING FILE INITIALIZATION
*****************************************************************
*****************************************************************
3810 CONVERT TITLE AND PAGE HEADER PROCESS
*****************************************************************
3930 PTITLE -- PUT TITLE LINE IN HEADER STORAGE
3961 IDENT -- IDENTIFY INPUT FILE USED ON LISTING 2ND LINE
*****************************************************************
4043 BUFFERS
*****************************************************************
4046 COMLIN -- COMMAND LINE BUFFER
4055 IMAGEA -- LINE PRINTER IMAGE BUFFER
4069 MTITS -- MICRO .TITLE BUFFER
*****************************************************************
4073 *SUBRTN* PROGRAM SUBROUTINE INITIALIZATION, V73G, NOV 12, 1973
*****************************************************************
*****************************************************************
4210 *SUBRTN* UUO HANDLING SUBROUTINE, V73G, NOV 12, 1973
*****************************************************************
*****************************************************************
4314 *SUBRTN* TELETYPE INPUT SUBROUTINE, V74A, FEB 7, 1974
*****************************************************************
*****************************************************************
4591 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974
*****************************************************************
*****************************************************************
5004 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973
*****************************************************************
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
CNVRTT MAC 1-May-78 14:02 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, V73G, NOV 12, 1973 SEQ 0032
1 ;*MAINDEC-10-DDQDG
2 ;*(CONVRT)
3
4 000014 DECVER=014
5 000000 MCNVER=000
6
7 XLIST
8 LIST
9 LALL
10
11 NAME \MCNVER,\DECVER^
12
13 TITLE CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14^
14
15 000137 LOC 137
16 000137 000000 000014 MCNVER,,DECVER
17
18 ;*COPYRIGHT 1973, 1974, 1975, 1976, 1977, 1978
19 ;*DIGITAL EQUIPMENT CORPORATION
20 ;*MARLBORO, MASS. 01752
21
22 ;*JOHN R. KIRCHOFF
23
24 NOSYM
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
CNVRTT MAC 1-May-78 14:02 PARAMETERS SEQ 0033
25 SUBTTL PARAMETERS
26
27 DEFINE S,<;*******************************************************>
28
29 ;*ACCUMULATORS
30 S^;*******************************************************^
31
32 000000 AC0= 0
33 000001 AC1= 1
34 000002 AC2= 2
35 000003 AC3= 3
36 000004 AC4= 4
37 000005 AC= 5
38 000006 BPNT= 6
39 000007 CHR= 7
40 000007 CHAR= 7
41 000010 CHR1= 10
42 000011 T1= 11
43 000012 T2= 12
44 000013 T3= 13
45 000014 T4= 14
46 000015 CNT= 15
47 000016 INDX= 16
48
49 ;*I/O CHANNEL ASSIGNMENTS
50 S^;*******************************************************^
51
52 000001 IN= 1
53 000001 ICHAN= 1
54 000002 OUT= 2
55 000002 OCHAN= 2
56 000003 RSQ= 3
57
58 ;*MISCELLANEOUS
59 S^;*******************************************************^
60
61 000200 HLTBIT= 200
62 000012 BLKSZ= ^D10
63 000120 JOBSA= 120
64 000121 JOBFF= 121
65 000140 JOBDA= 140
66 400000 DRMSTR= 400000
67 402000 HICORE= DRMSTR+DRMSIZ*2
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
CNVRTT MAC 1-May-78 14:02 PARAMETERS SEQ 0034
68 ;*PDP-11 CONVERT PARAMETERS
69 S^;*******************************************************^
70
71 000005 BYTE= 5 ;8 BIT BYTE AC
72 000006 BC= 6 ;BYTE COUNT
73 000013 P1= 13 ;POINTERS
74 000014 P2= 14
75 000003 BA= 3 ;BLOCK STORAGE ADDRESSER
76 000004 FB= 4 ;FILE BYTE COUNT
77 000036 AWC11= ^D30 ;ASCIIZED WORD COUNT
78 004000 CRMSIZ= ^D2048 ;C-RAM SIZE
79 001000 DRMSIZ= ^D512 ;D-RAM SIZE
80
81 ;*PDP-8 CONVERT PARAMETERS
82 S^;*******************************************************^
83
84 000006 G8DC=6
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
CNVRTT MAC 1-May-78 14:02 PARAMETERS SEQ 0035
85 ;*ASSEMBLY PARAMETERS
86 S^;*******************************************************^
87
88 000001 PRINT= 1
89 000001 TYPIN= 1
90 000001 UUOS= 1
91 000001 PGMEND= 1
92 000001 USRASB= 1
93 000020 PSHLST= 20
94 000040 DEBUG= 40
95
96 000140 SADR1= BEGIN
97 000140 SADR2= BEGIN
98 000140 SADR3= BEGIN
99 000140 SADR4= BEGIN
100 000140 SADR5= BEGIN
101 000140 SADR6= BEGIN
102 000000 SADR7= 0
103 000000 SADR8= 0
104 000000 SADR9= 0
105 000000 SADR10= 0
106 000000 SADR11= 0
107
108 000000 PAREA1= 0
109 000000 PAREA2= 0
110 435756 666264 PAREA3= SIXBIT/CONVRT/
111 546364 000000 PAREA4= SIXBIT/LST/
112 000000 PAREA5= 0
113 000000 PAREA6= 0
114
115 000000 ITERAT= 0
116
117 264200 010277 OPDEF PNT4 [JSR 4,$PRINT]
118 264200 010301 OPDEF PNT4F [JSR 4,$PRNTF]
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
PARAM MAC 13-Feb-74 01:06 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, V73G, NOV 12, 1973 SEQ 0036
119 SUBTTL *PARAM* PROGRAM/SUBROUTINE PARAMETERS, V73G, NOV 12, 1973
120
121 ;OPERATOR DEFINITIONS, SUBROUTINE CALLS - SHORT COMMAND FORM
122
123 265000 006146 OPDEF PGMINT [JSP 0,$PGMIN] ;PROGRAM SUBROUTINE INITIALIZATION
124 264000 010271 OPDEF FATAL [JSR $FATAL] ;FATAL PROGRAMMING HALT
125 264000 010273 OPDEF ERRHLT [JSR $ERHLT] ;PROGRAM ERROR HALT
126
127 IFDEF PSHLST,<
128 260740 000000 OPDEF GO [PUSHJ P,] ;SUBROUTINE CALL
129 263740 000000 OPDEF RTN [POPJ P,] ;SUBROUTINE RETURN
130 261740 000000 OPDEF PUT [PUSH P,] ;PUT DATA ON PUSH LIST
131 262740 000000 OPDEF GET [POP P,] ;GET DATA FROM PUSH LIST >
132
133 IFDEF TYPIN,<
134 265000 006460 OPDEF TTICHR [JSP 0,$OPTLK] ;TTY, INPUT ANY CHARACTER
135 265000 006534 OPDEF TTIYES [JSP 0,$YESNO] ;TTY, NORMAL RETURN Y
136 265000 006531 OPDEF TTINO [JSP 0,$NOYES] ;TTY, NORMAL RETURN N
137 265000 006606 OPDEF TTIOCT [JSP 0,$TPOCT] ;TTY, INPUT OCTAL WORD
138 265000 006603 OPDEF TTIDEC [JSP 0,$TPDEC] ;TTY, INPUT DECIMAL WORD
139 265000 006600 OPDEF TTICNV [JSP 0,$TPCNV] ;TTY, INPUT CONVERTABLE WORD
140 265000 006435 OPDEF TTLOOK [JSP 0,$TTLK] ;TTY, KEYBOARD CHECK
141 265000 006446 OPDEF TTALTM [JSP 0,$TALTM] ;TTY, ALT-MODE CHECK>
142
143 IFDEF PRINT,<
144 264000 010277 OPDEF PNTA [JSR 0,$PRINT] ;PRINT ASCII WORD
145 264000 010301 OPDEF PNTAF [JSR 0,$PRNTF] ;FORCED
146 264740 010277 OPDEF PNTAL [JSR 17,$PRINT] ;PRINT ASCIZ LINE
147 264740 010301 OPDEF PNTALF [JSR 17,$PRNTF]
148 264500 010277 OPDEF PNTCHR [JSR 12,$PRINT] ;PRINT CHARACTER
149 264500 010301 OPDEF PNTCHF [JSR 12,$PRNTF]
150 264040 010277 OPDEF PNT1 [JSR 1,$PRINT] ;PRINT ONE OCTAL DIGIT
151 264040 010301 OPDEF PNT1F [JSR 1,$PRNTF]
152 264100 010277 OPDEF PNT2 [JSR 2,$PRINT] ;PRINT TWO OCTAL DIGITS
153 264100 010301 OPDEF PNT2F [JSR 2,$PRNTF]
154 264140 010277 OPDEF PNT3 [JSR 3,$PRINT] ;PRINT THREE OCTAL DIGITS
155 264140 010301 OPDEF PNT3F [JSR 3,$PRNTF]
156 264240 010277 OPDEF PNT5 [JSR 5,$PRINT] ;PRINT FIVE OCTAL DIGITS
157 264240 010301 OPDEF PNT5F [JSR 5,$PRNTF]
158 264300 010277 OPDEF PNT6 [JSR 6,$PRINT] ;PRINT SIX OCTAL DIGITS
159 264300 010301 OPDEF PNT6F [JSR 6,$PRNTF]
160 264400 010277 OPDEF PNTADR [JSR 10,$PRINT] ;PRINT PHYSICAL ADDRESS
161 264400 010301 OPDEF PNTADF [JSR 10,$PRNTF]
162 264600 010277 OPDEF PNTOCT [JSR 14,$PRINT] ;PRINT FULL WORD OCTAL
163 264600 010301 OPDEF PNTOTF [JSR 14,$PRNTF]
164 264540 010277 OPDEF PNTHW [JSR 13,$PRINT] ;PRINT OCTAL HALF WORDS, 6 SP 6
165 264540 010301 OPDEF PNTHWF [JSR 13,$PRNTF]
166 264640 010277 OPDEF PNTDEC [JSR 15,$PRINT] ;PRINT DECIMAL, SUPRESS LEADING 0'S
167 264640 010301 OPDEF PNTDCF [JSR 15,$PRNTF]
168 264700 010277 OPDEF PNTDS [JSR 16,$PRINT] ;PRINT DECIMAL, SPACES FOR LD 0'S
169 264700 010301 OPDEF PNTDSF [JSR 16,$PRNTF]
170 265000 006243 OPDEF PNTNM [JSP 0,$PNTNM] ;PRINT PROGRAM NAME
171 264000 010275 OPDEF TTYOUT [JSR $TYOUT] ;TTY EXEC MODE OUTPUT >
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
PARAM MAC 13-Feb-74 01:06 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, V73G, NOV 12, 1973 SEQ 0037
172 IFDEF TOGGLE,<
173 OPDEF SWITCH [JSP 0,$SWTCH] ;INPUT CONSOLE SWITCHES>
174 IFNDEF TOGGLE,<
175 265000 006307 OPDEF SWITCH [JSP 0,$SWTCH] ;USE C(SWTEXR) AS SWITCHES>
176
177 IFDEF KIMRGN,<
178 OPDEF PNTMGN [JSP 0,$PNTMG] ;PRINT MARGIN VALUE >
179 IFNDEF KIMRGN,<
180 255000 000000 OPDEF PNTMGN [JFCL] ;NO-OP>
181
182 IFDEF MEMMAP,<
183 OPDEF MEMZRO [JSP 0,$MZRO] ;ZERO MEMORY
184 OPDEF MEMSEG [JSR $MSEG] ;SETUP MEMORY SEGMENT
185 OPDEF MAPADR [JSR $MPADR] ;VIRTUAL TO PHYSICAL ADR CONVERT >
186 IFDEF MEMMAP,<IFDEF EXCASB,<
187 OPDEF MAPCNK [JSR $MPCNK] ;MAP MEMORY CHUNK >>
188 IFDEF MEMMAP,<IFDEF EXCASB,<IFDEF KI10,<
189 OPDEF MAPSET [JSR $MPSET] ;SET KI10 EXEC PAGE MAP >>>
190
191 IFDEF USRASB,<IFDEF PRINT,<
192 265000 007326 OPDEF DROPDV [JSP 0,$DRPDV] ;CLOSE LOGICAL FILE, USER MODE>>
193
194 IFDEF SIXIN,<
195 OPDEF TTSIXB [JSP 0,$TSIXB] ;TTY, INPUT SIXBIT WORD>
196
197 IFDEF SIXOUT,<
198 OPDEF PNTSIX [JSR $PNTSX] ;PRINT SIXBIT WORD
199 OPDEF PNTSXF [JSR $PTSXF] ;FORCED >
200
201 IFDEF DFASB,<
202 OPDEF PNTCW [JSR $PNTCW] ;PRINT DF10 CONTROL WORD
203 OPDEF PNTCWF [JSR $PNTCF] ;FORCED >
204
205 IFDEF MODDVC,<
206 OPDEF MODPCU [JSP 0,$MODDV] ;MODIFY PERHIPERAL DEVICE CODE
207 DEFINE $MDSXB (A,B)<
208 <SIXBIT/A/>!B ;A DEVICE CODE IS B>>
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
PARAM MAC 13-Feb-74 01:06 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, V73G, NOV 12, 1973 SEQ 0038
209 ;STANDARD PROGRAM ASSIGNMENTS
210
211 ;DATA SWITCHES
212
213 400000 CYCL50==400000 ;50 CYCLE POWER
214 200000 RSTART==200000 ;RESTART TEST, PRINT TOTALS
215 100000 TOTALS==100000 ;PRINT TOTALS, CONTINUE
216
217 040000 NOPNT== 040000 ;INHIBIT ALL PRINT/TYPE OUT (EXCEPT FORCED)
218 020000 PNTLPT==020000 ;PRINT ALL DATA ON LPT (LOGICAL DEVICE, USER MODE)
219 010000 DING== 010000 ;RING BELL ON ERROR
220
221 004000 LOOPER==004000 ;ENTER EXERCISE/CHECK LOOP ON ERROR
222 002000 ERSTOP==002000 ;HALT ON TEST ERROR
223 001000 PALERS==001000 ;PRINT ALL ERRORS
224
225 000400 FSTCYL==000400 ;FAST CYCLE
226 000200 TXTINH==000200 ;INHIBIT ERROR TEXT
227
228 ;ACCUMULATORS
229
230 IFDEF PSHLST,<
231 000017 P= 17 ;PUSHDOWN POINTER AC (IF PUSH LIST USED)>
232
233 ;PDP-10 STANDARD PC CONTROL FLAGS
234
235 400000 AROV== 400000 ;ARITHMETIC OVERFLOW
236 200000 CRY0== 200000 ;CARRY 0
237 100000 CRY1== 100000 ;CARRY 1
238 040000 FOV== 40000 ;FLOATING POINT OVERFLOW
239 020000 BIS== 20000 ;BYTE INTERRUPT
240 010000 USERF== 10000 ;USER MODE
241 004000 EXIOT== 4000 ;USER PRIV I/O
242 000100 FXU== 100 ;FLOATING POINT UNDERFLOW
243 000040 DCK== 40 ;DIVIDE CHECK
244
245 ;PDP-10 STANDARD ADDRESS ASSIGNMENTS
246
247 000040 LUUO== 40 ;UUO STORAGE, UUO 1-37
248 000041 LUUOI== 41 ;UUO SERVICE INSTRUCTION
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
PARAM MAC 13-Feb-74 01:06 *PARAM* PROGRAM/SUBROUTINE PARAMETERS, V73G, NOV 12, 1973 SEQ 0039
249 ;JOB DATA AREA EXTERNALS
250
251 000020 POWER==20 ;POWER FAIL AC SAVE STORAGE
252 000040 JOBUUO==40
253 000041 JOB41== 41
254 000044 JOBREL==44
255 000074 JOBDDT==74
256 000116 JOBSYM==116
257 000117 JOBUSY==117
258 000120 JOBSA== 120
259 000121 JOBFF== 121
260 000124 JOBREN==124
261 000125 JOBAPR==125
262 000126 JOBCNI==126
263 000127 JOBTPC==127
264 000130 JOBOPC==130
265 000137 JOBVER==137
266
267 ;USER APR ASSIGNMENTS
268
269 200000 PDLOVU==200000 ;PUSHDOWN LIST OVERFLOW
270 020000 MPVU== 20000 ;MEMORY PROTECTION VIOLATION
271 010000 NXMU== 10000 ;NON-X-MEMORY
272 004000 PARU== 4000 ;PARITY ERROR
273 001000 CLKU== 1000 ;CLOCK
274 000100 FOVU== 100 ;FLOATING OVERFLOW
275 000010 AROVU== 10 ;ARITHMETIC OVERFLOW
276
277 ;USER MODE PRINT OUTPUT CHANNEL ASSIGNMENTS
278
279 000017 $DEVCH==17 ;LOGICAL DEVICE CHANNEL
280 000016 $DVCH1==16 ;LOGICAL DEV UPDATE INPUT CHANNEL
281
282 XLIST
283 LIST
284 IFNDEF PRGINH,<
285 ASUPPRESS >
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0040
286 SUBTTL CONTROL SEQUENCE
287
288 000140 BEGIN:
289 000140 LOAD:
290 000140 START:
291 000140 402 00 0 00 000224 CONVRT: SETZM MONCTL
292 000141 265 00 0 00 006146 PGMINT ;INITIALIZE PROGRAM
293 000142 200 00 0 00 007346 MOVE [INCHWL $TTCHR]
294 000143 202 00 0 00 006477 MOVEM $TTUSR
295 000144 402 00 0 00 000230 SETZM ERRFLG
296 000145 402 00 0 00 000227 SETZM SWTEXR
297
298 000146 201 00 0 00 007347 MOVEI [ASCIZ?TYPE /H<CR> FOR HELP?]
299 000147 336 00 0 00 010477 SKIPN ONCEF#
300 000150 264 17 0 00 010277 PNTAL
301 000151 476 00 0 00 010477 SETOM ONCEF
302
303 000152 402 00 0 00 010455 CMD: SETZM HELPF
304 000153 402 00 0 00 010522 SETZM SUPA10#
305 000154 402 00 0 00 010465 SETZM KSMICF#
306 000155 402 00 0 00 010453 SETZM FLAG8#
307 000156 402 00 0 00 010463 SETZM KMCFLG#
308 000157 402 00 0 00 010452 SETZM FLAG11#
309 000160 402 00 0 00 010447 SETZM FILEXT#
310 000161 402 00 0 00 010473 SETZM MICROF#
311 000162 402 00 0 00 010474 SETZM MNOLST#
312 000163 402 00 0 00 010422 SETZM BLKCNT#
313 000164 402 00 0 00 010501 SETZM OUTCNT#
314 000165 402 00 0 00 010511 SETZM POINTX#
315 000166 402 00 0 00 010476 SETZM NOERRP#
316 000167 402 00 0 00 010442 SETZM DX20F#
317 000170 402 00 0 00 010514 SETZM SAVFLG#
318 000171 402 00 0 00 010433 SETZM CONSW
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0041
319
320 MOVEI [ASCIZ/
321 000172 201 00 0 00 007354 FILE: /]
322 000173 264 17 0 00 010277 PNTAL
323
324 000174 260 17 0 00 000254 GO FILSPC ;GET FILE NAME
325 000175 254 00 0 00 000217 JRST CMDERR ;ERROR
326
327 000176 332 00 0 00 010455 SKIPE HELPF#
328 000177 254 00 0 00 000354 JRST HELP ;HELP MESSAGE
329
330 000200 332 00 0 00 010463 SKIPE KMCFLG
331 000201 254 00 0 00 004727 JRST CNVKMC ;KMC11 FILE
332
333 000202 332 00 0 00 010442 SKIPE DX20F
334 000203 254 00 0 00 004616 JRST CNVDX ;DX20 FILE
335
336 000204 332 00 0 00 010453 SKIPE FLAG8
337 000205 254 00 0 00 004437 JRST CNVRT8 ;PDP-8 FILE
338
339 000206 332 00 0 00 010452 SKIPE FLAG11
340 000207 254 00 0 00 002025 JRST CNVT11 ;PDP-11 FILE
341
342 000210 332 00 0 00 010465 SKIPE KSMICF
343 000211 254 00 0 00 002331 JRST KSMCNV ;KS-10 MICRO-CODE CONVERSION
344
345 000212 332 00 0 00 010473 SKIPE MICROF
346 000213 254 00 0 00 002331 JRST MICCNV ;MICRO-CODE CONVERSION
347
348 000214 332 00 0 00 010514 SKIPE SAVFLG
349 000215 254 00 0 00 001530 JRST SAVCNV ;CONVERT '.A10' BACK TO '.SAV'
350
351 000216 254 00 0 00 000736 JRST RIMTB ;CONVERT SAV TO ASCII
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0042
352 000217 CMDERR: MOVEI [ASCIZ/
353 000217 201 00 0 00 007356 ???/]
354 000220 264 17 0 00 010277 PNTAL
355 000221 332 00 0 00 010526 SKIPE USER
356 000222 051 11 0 00 000000 CLRBFI ;CLEAR INPUT
357 000223 254 00 0 00 000152 JRST CMD
358
359 ;*MISCELLANEOUS PARAMETERS
360 S^;*******************************************************^
361
362 000224 000000 000000 MONCTL: 0
363 000225 777777 777777 MONFLG: -1
364 000226 000000 000000 RETURN: 0
365 000227 000000 000000 SWTEXR: 0
366 000230 000000 000000 ERRFLG: 0
367 000231 435756 666264 PNTNAM: PAREA3
368 000232 546364 000000 PNTEXT: PAREA4
369
370 000233 265 00 0 00 007326 REENTR: DROPDV
371 000234 402 00 0 00 000227 SETZM SWTEXR
372 000235 254 00 0 00 001245 JRST C11DON ;CLOSE FILES
373
374 000236 PGMNAM: ASCIZ?
375 000236 015 012 103 117 116 CONVRT - DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM [DDQDG]
376 000237 126 122 124 040 055
377 000240 040 104 105 103 123
378 000241 131 123 124 105 115
379 000242 040 104 111 101 107
380 000243 116 117 123 124 111
381 000244 103 040 101 123 103
382 000245 111 111 132 105 122
383 000246 040 103 117 116 126
384 000247 105 122 123 111 117
385 000250 116 040 120 122 117
386 000251 107 122 101 115 040
387 000252 133 104 104 121 104
388 000253 107 135 015 012 000 ?
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0043
389 ;*FILE NAME SPECIFICATION
390 S^;*******************************************************^
391
392 000254 403 03 0 00 010521 FILSPC: SETZB 3,SLASHF#
393 000255 402 00 0 00 000001 TTSXB: SETZM 1
394 000256 200 02 0 00 007360 MOVE 2,[POINT 6,1]
395 000257 265 00 0 00 006460 TTSXB1: TTICHR ;GET INPUT
396 000260 254 00 0 00 000257 JRST .-1
397 000261 306 00 0 00 000015 CAIN 0,15
398 000262 254 00 0 00 000305 JRST TSXBX ;CR, TERMINATE
399 000263 306 00 0 00 000056 CAIN 0,"."
400 000264 254 00 0 00 000313 JRST TDOT ;NAME.EXT DELIMITER
401 000265 306 00 0 00 000057 CAIN 0,"/"
402 000266 254 00 0 00 000316 JRST SLASHX ;SLASH, CONTROL CHAR FOLLOWING
403 000267 301 00 0 00 000141 CAIL 0,"A"+40
404 000270 303 00 0 00 000172 CAILE 0,"Z"+40
405 000271 304 00 0 00 000000 CAIA
406 000272 275 00 0 00 000040 SUBI 0,40 ;CONVERT TO UPPER-CASE
407 000273 332 00 0 00 010521 SKIPE SLASHF ;SLASH FLAG SET ?
408 000274 254 00 0 00 000320 JRST OPTION ;YES, GO SET OPTION
409 000275 301 00 0 00 000060 CAIL 0,"0"
410 000276 303 00 0 00 000132 CAILE 0,"Z"
411 000277 263 17 0 00 000000 RTN ;ERROR, NOT ALPHA-NUMERIC
412 000300 640 00 0 00 000040 TRC 0,40 ;CONVERT TO SIXBIT
413 000301 602 01 0 00 000077 TRNE 1,77
414 000302 263 17 0 00 000000 RTN ;ERROR, TOO MANY CHARS
415 000303 136 00 0 00 000002 IDPB 0,2 ;PUT INTO WORD
416 000304 254 00 0 00 000257 JRST TTSXB1 ;REPEAT
417
418 000305 350 00 0 17 000000 TSXBX: AOS (P) ;RETURN +1
419 000306 332 00 0 00 000003 SKIPE 3
420 000307 202 01 0 00 010447 MOVEM 1,FILEXT ;SIXBIT WORD IN FILE EXTENSION
421 000310 336 00 0 00 000003 SKIPN 3
422 000311 202 01 0 00 010450 MOVEM 1,FILNAM# ;SIXBIT WORD IN FILE NAME
423 000312 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 5
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0044
424
425 000313 476 00 0 00 000003 TDOT: SETOM 3
426 000314 202 01 0 00 010450 MOVEM 1,FILNAM
427 000315 254 00 0 00 000255 JRST TTSXB
428
429 000316 476 00 0 00 010521 SLASHX: SETOM SLASHF ;SLASH, SET FLAG
430 000317 254 00 0 00 000257 JRST TTSXB1 ;GO GET CONTROL CHAR
431
432 000320 403 04 0 00 010455 OPTION: SETZB 4,HELPF
433 000321 306 00 0 00 000110 CAIN 0,"H"
434 000322 477 04 0 00 010455 SETOB 4,HELPF ;/H, HELP MESSAGE
435 000323 306 00 0 00 000070 CAIN 0,"8"
436 000324 477 04 0 00 010453 SETOB 4,FLAG8 ;/8, PDP-8 FILE
437 000325 306 00 0 00 000105 CAIN 0,"E"
438 000326 477 04 0 00 010452 SETOB 4,FLAG11 ;/E, PDP-11 FILE
439 000327 306 00 0 00 000124 CAIN 0,"T"
440 000330 474 04 0 00 000000 SETO 4, ;/T, PDP-10 FILE - DEFAULT
441 000331 306 00 0 00 000101 CAIN 0,"A" ;/A, PDP-10 FILE - SUPER A10
442 000332 477 04 0 00 010522 SETOB 4,SUPA10
443 000333 306 00 0 00 000123 CAIN 0,"S"
444 000334 477 04 0 00 010514 SETOB 4,SAVFLG ;/S, PDP-10 '.A10' BACK TO '.SAV'
445 000335 306 00 0 00 000130 CAIN 0,"X"
446 000336 477 04 0 00 010442 SETOB 4,DX20F ;/X, DX20 FILE
447 000337 306 00 0 00 000113 CAIN 0,"K"
448 000340 477 04 0 00 010465 SETOB 4,KSMICF ;/K, KS-10 MICRO-CODE
449 000341 306 00 0 00 000115 CAIN 0,"M"
450 000342 477 04 0 00 010473 SETOB 4,MICROF ;/M, MICRO CODE & LISTING
451 000343 306 00 0 00 000122 CAIN 0,"R"
452 000344 260 17 0 00 000361 GO MICNLST ;/R, RAM MICRO CODE, NO LISTING
453 000345 306 00 0 00 000103 CAIN 0,"C"
454 000346 477 04 0 00 010463 SETOB 4,KMCFLG ;/C, KMC11 MICROCODE
455 000347 306 00 0 00 000116 CAIN 0,"N"
456 000350 477 04 0 00 010476 SETOB 4,NOERRP ;/N, DON'T PRINT ERRORS ON TTY
457 000351 402 00 0 00 010521 SETZM SLASHF
458 000352 326 04 0 00 000257 JUMPN 4,TTSXB1 ;4 SET, OK
459 000353 263 17 0 00 000000 RTN ;NO, CONTROL CHAR ERROR
460
461 000354 201 00 0 00 000364 HELP: MOVEI HLPMSG ;OUTPUT HELP MESSAGE
462 000355 264 17 0 00 010277 PNTAL
463 000356 332 00 0 00 010526 SKIPE USER
464 000357 051 11 0 00 000000 CLRBFI
465 000360 254 00 0 00 000152 JRST CMD
466
467 000361 477 04 0 00 010473 MICNLST:SETOB 4,MICROF
468 000362 476 00 0 00 010474 SETOM MNOLST
469 000363 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 6
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0045
470 000364 HLPMSG: ASCIZ?
471 000364 015 012 040 103 117 COMMANDS TERMINATE WITH <CR>
472 000365 115 115 101 116 104
473 000366 123 040 124 105 122
474 000367 115 111 116 101 124
475 000370 105 040 127 111 124
476 000371 110 040 074 103 122
477 000372 076 015 012 040 103 COMMAND IS FILE.EXT/SWITCH
478 000373 117 115 115 101 116
479 000374 104 040 111 123 040
480 000375 106 111 114 105 056
481 000376 105 130 124 057 123
482 000377 127 111 124 103 110
483 000400 015 012 120 104 120 PDP-10 'EXT' DEFAULT IS 'SAV'
484 000401 055 061 060 040 047
485 000402 105 130 124 047 040
486 000403 104 105 106 101 125
487 000404 114 124 040 111 123
488 000405 040 047 123 101 126
489 000406 047 015 012 120 104 PDP-11 'EXT' DEFAULT IS 'BIN'
490 000407 120 055 061 061 040
491 000410 047 105 130 124 047
492 000411 040 104 105 106 101
493 000412 125 114 124 040 111
494 000413 123 040 047 102 111
495 000414 116 047 015 012 120 PDP-8 'EXT' DEFAULT IS 'BIN'
496 000415 104 120 055 070 040
497 000416 040 047 105 130 124
498 000417 047 040 104 105 106
499 000420 101 125 114 124 040
500 000421 111 123 040 047 102
501 000422 111 116 047 015 012 DX20 'EXT' DEFAULT IS 'BIN'
502 000423 104 130 062 060 040
503 000424 040 040 047 105 130
504 000425 124 047 040 104 105
505 000426 106 101 125 114 124
506 000427 040 111 123 040 047
507 000430 102 111 116 047 015
508 000431 012 113 115 103 061 KMC11 'EXT' DEFAULT IS 'BIN'
509 000432 061 040 040 047 105
510 000433 130 124 047 040 104
511 000434 105 106 101 125 114
512 000435 124 040 111 123 040
513 000436 047 102 111 116 047
514 000437 015 012 115 111 103 MICRO 'EXT' DEFAULT IS 'MCR'
515 000440 122 117 040 040 047
516 000441 105 130 124 047 040
517 000442 104 105 106 101 125
518 000443 114 124 040 111 123
519 000444 040 047 115 103 122
520 000445 047 015 012 103 117 COMMAND FUNCTION
521 000446 115 115 101 116 104
522 000447 011 011 106 125 116
523 000450 103 124 111 117 116
524 000451 015 012 055 055 055 ------- --------
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 6-1
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0046
525 000452 055 055 055 055 011
526 000453 011 055 055 055 055
527 000454 055 055 055 055 015
528 000455 012 106 111 114 105 FILE PDP-10 SAVE FILE TO ASCII '.A10' CONVERSION
529 000456 011 011 120 104 120
530 000457 055 061 060 040 123
531 000460 101 126 105 040 106
532 000461 111 114 105 040 124
533 000462 117 040 101 123 103
534 000463 111 111 040 047 056
535 000464 101 061 060 047 040
536 000465 103 117 116 126 105
537 000466 122 123 111 117 116
538 000467 015 012 106 111 114 FILE/T " DEFAULT
539 000470 105 057 124 011 011
540 000471 042 040 104 105 106
541 000472 101 125 114 124 015
542 000473 012 106 111 114 105 FILE/A PDP-10 SAVE FILE TO "SUPER" '.A10' CONVERSION
543 000474 057 101 011 011 120
544 000475 104 120 055 061 060
545 000476 040 123 101 126 105
546 000477 040 106 111 114 105
547 000500 040 124 117 040 042
548 000501 123 125 120 105 122
549 000502 042 040 047 056 101
550 000503 061 060 047 040 103
551 000504 117 116 126 105 122
552 000505 123 111 117 116 015
553 000506 012 106 111 114 105 FILE/S PDP-10 '.A10' FILE BACK TO '.SAV' CONVERSION
554 000507 057 123 011 011 120
555 000510 104 120 055 061 060
556 000511 040 047 056 101 061
557 000512 060 047 040 106 111
558 000513 114 105 040 102 101
559 000514 103 113 040 124 117
560 000515 040 047 056 123 101
561 000516 126 047 040 103 117
562 000517 116 126 105 122 123
563 000520 111 117 116 015 012 FILE/E PDP-11 BINARY FILE TO ASCII '.A11' CONVERSION
564 000521 106 111 114 105 057
565 000522 105 011 011 120 104
566 000523 120 055 061 061 040
567 000524 102 111 116 101 122
568 000525 131 040 106 111 114
569 000526 105 040 124 117 040
570 000527 101 123 103 111 111
571 000530 040 047 056 101 061
572 000531 061 047 040 103 117
573 000532 116 126 105 122 123
574 000533 111 117 116 015 012 FILE/8 PDP-8 BINARY FILE TO ASCII '.A8' CONVERSION
575 000534 106 111 114 105 057
576 000535 070 011 011 120 104
577 000536 120 055 070 040 102
578 000537 111 116 101 122 131
579 000540 040 106 111 114 105
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 6-2
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0047
580 000541 040 124 117 040 101
581 000542 123 103 111 111 040
582 000543 047 056 101 070 047
583 000544 040 103 117 116 126
584 000545 105 122 123 111 117
585 000546 116 015 012 106 111 FILE/X DX20 BINARY FILE TO ASCII '.ADX' CONVERSION
586 000547 114 105 057 130 011
587 000550 011 104 130 062 060
588 000551 040 102 111 116 101
589 000552 122 131 040 106 111
590 000553 114 105 040 124 117
591 000554 040 101 123 103 111
592 000555 111 040 047 056 101
593 000556 104 130 047 040 103
594 000557 117 116 126 105 122
595 000560 123 111 117 116 015
596 000561 012 106 111 114 105 FILE/C KMC11 BINARY FILE TO ASCII '.KMC' CONVERSION
597 000562 057 103 011 011 113
598 000563 115 103 061 061 040
599 000564 102 111 116 101 122
600 000565 131 040 106 111 114
601 000566 105 040 124 117 040
602 000567 101 123 103 111 111
603 000570 040 047 056 113 115
604 000571 103 047 040 103 117
605 000572 116 126 105 122 123
606 000573 111 117 116 015 012 FILE/K KS-10 MICRO-CODE LISTING TO '.RAM' CONVERSION
607 000574 106 111 114 105 057
608 000575 113 011 011 113 123
609 000576 055 061 060 040 115
610 000577 111 103 122 117 055
611 000600 103 117 104 105 040
612 000601 114 111 123 124 111
613 000602 116 107 040 124 117
614 000603 040 047 056 122 101
615 000604 115 047 040 103 117
616 000605 116 126 105 122 123
617 000606 111 117 116 015 012 FILE/M MICRO-CODE LISTING TO ASCII '.RAM' CONVERSION
618 000607 106 111 114 105 057
619 000610 115 011 011 115 111
620 000611 103 122 117 055 103
621 000612 117 104 105 040 114
622 000613 111 123 124 111 116
623 000614 107 040 124 117 040
624 000615 101 123 103 111 111
625 000616 040 047 056 122 101
626 000617 115 047 040 103 117
627 000620 116 126 105 122 123
628 000621 111 117 116 015 012 FILE/R MICRO RAM FILE ONLY, NO LISTING
629 000622 106 111 114 105 057
630 000623 122 011 011 115 111
631 000624 103 122 117 040 122
632 000625 101 115 040 106 111
633 000626 114 105 040 117 116
634 000627 114 131 054 040 116
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 6-3
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0048
635 000630 117 040 114 111 123
636 000631 124 111 116 107 015
637 000632 012 057 116 011 011 /N DON'T PRINT MICRO CODE ERRORS
638 000633 104 117 116 047 124
639 000634 040 120 122 111 116
640 000635 124 040 115 111 103
641 000636 122 117 040 103 117
642 000637 104 105 040 105 122
643 000640 122 117 122 123 015
644 000641 012 057 110 011 011 /H THIS MESSAGE
645 000642 124 110 111 123 040
646 000643 115 105 123 123 101
647 000644 107 105 015 012 000 ?
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 7
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0049
648 ;*SETUP INPUT AND OUTPUT
649 S^;*******************************************************^
650
651 000645 050 01 0 00 000700 ININIT: OPEN IN,INBLK ;OPEN INPUT
652 000646 254 00 0 00 001507 JRST ERR7 ;NOT AVAILABLE
653
654 000647 201 00 0 00 000000 MOVEI 0 ;ASCII
655 000650 332 00 0 00 010465 SKIPE KSMICF ;KS-10 ?
656 000651 201 00 0 00 000013 MOVEI 13 ;YES, IMAGE BINARY OUTPUT
657 000652 332 00 0 00 010514 SKIPE SAVFLG ;.A10 TO .SAV ?
658 000653 201 00 0 00 000013 MOVEI 13 ;YES, IMAGE BINARY OUTPUT
659 000654 202 00 0 00 000706 MOVEM OUTBLK
660
661 000655 050 02 0 00 000706 OPEN OUT,OUTBLK ;OPEN OUTPUT
662 000656 254 00 0 00 001511 JRST ERR8 ;NOT AVAILABLE
663
664 000657 200 00 0 00 000121 MOVE JOBFF
665 000660 202 00 0 00 010524 MOVEM SVJBFF# ;SAVE FOR RECLAIM
666
667 000661 064 01 0 00 000012 INBUF IN,^D10 ;SETUP 10 INPUT BUFFERS
668 000662 065 02 0 00 000012 OUTBUF OUT,^D10 ;SETUP 10 OUTPUT BUFFERS
669
670 000663 076 01 0 00 000714 LOOKUP IN,INNAM ;INITIALIZE INPUT FILE
671 000664 254 00 0 00 001515 JRST ERR10 ;NOT FOUND
672
673 000665 200 00 0 00 000717 MOVE INNAME+1
674 000666 405 00 0 00 700000 ANDI 700000
675 000667 542 00 0 00 000730 HRRM OUTNAM+1
676 000670 200 00 0 00 000720 MOVE INNAME+2
677 000671 404 00 0 00 007361 AND [37,,-1]
678 000672 202 00 0 00 000731 MOVEM OUTNAM+2
679 000673 200 00 0 00 000722 MOVE INNAME+4
680 000674 202 00 0 00 000733 MOVEM OUTNAM+4
681
682 000675 077 02 0 00 000725 ENTER OUT,OUTNM ;INITIALIZE OUTPUT FILE
683 000676 254 00 0 00 001513 JRST ERR9 ;NO ROOM
684 000677 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 8
CNVRTM MAC 1-May-78 14:08 CONTROL SEQUENCE SEQ 0050
685
686 000700 000000 000013 INBLK: 13 ;IMAGE BINARY, 36 BIT BYTES
687 000701 44 63 53 00 00 00 SIXBIT/DSK/ ;FROM DISK
688 000702 000000 000703 IBF ;HEADER
689 000703 IBF: BLOCK 3
690
691 000706 000000 000000 OUTBLK: 0 ;ASCII
692 000707 44 63 53 00 00 00 SIXBIT/DSK/ ;TO DISK
693 000710 000711 000000 OBF,,0 ;HEADER
694 000711 OBF: BLOCK 3
695
696 000714 000000 000006 INNAM: 6
697 000715 000000 000000 0
698 000716 56 41 55 45 00 00 INNAME: SIXBIT/NAME/ ;UPDATED ON SPECIFICATION
699 000717 45 70 64 00 00 00 SIXBIT/EXT/ ;UPDATED ON SPECIFICATION
700 000720 BLOCK 5
701
702 000725 000000 000006 OUTNM: 6
703 000726 000000 000000 0
704 000727 56 41 55 45 00 00 OUTNAM: SIXBIT/NAME/ ;UPDATED ON SPECIFICATION
705 000730 45 70 64 00 00 00 SIXBIT/EXT/ ;UPDATED ON SPECIFICATION
706 000731 BLOCK 5
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 9
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0051
707 SUBTTL TEN CONVERT SECTION
708
709 ;*FIND START ADDRESS AND LENGTH
710 S^;*******************************************************^
711
712 000736 200 00 0 00 010450 RIMTB: MOVE FILNAM ;INITIALIZE FILE NAMES
713 000737 202 00 0 00 000716 MOVEM INNAME
714 000740 202 00 0 00 000727 MOVEM OUTNAM
715 000741 200 00 0 00 007362 MOVE [SIXBIT/SAV/]
716 000742 332 00 0 00 010447 SKIPE FILEXT
717 000743 200 00 0 00 010447 MOVE FILEXT
718 000744 202 00 0 00 000717 MOVEM INNAME+1
719 000745 200 00 0 00 007363 MOVE [SIXBIT/A10/]
720 000746 202 00 0 00 000730 MOVEM OUTNAM+1
721 000747 201 00 0 00 000013 MOVEI 13 ;INPUT IMAGE BINARY, 36 BIT BYTES
722 000750 202 00 0 00 000700 MOVEM INBLK
723 000751 260 17 0 00 000645 GO ININIT ;INITIALIZE I/O
724 000752 205 00 0 00 254000 MOVSI (JRST)
725 000753 202 00 0 00 010531 MOVEM XFERWD#
726 000754 260 17 0 00 005351 GO RINP ;GET FIRST BUFFER
727 000755 254 00 0 00 001473 JRST ERR1 ;FILE OF ZERO LENGTH
728 000756 325 07 0 00 001475 JUMPGE CHR,ERR2 ;FIRST WD MUST BE POINTER
729 000757 201 12 0 07 000176 MOVEI T2,^D126(CHR)
730 000760 201 13 0 00 000137 MOVEI T3,137 ;FIRST POINTER MUST BE ABOVE XXX
731 000761 315 12 0 00 000013 CAMGE T2,T3
732 000762 254 00 0 00 001477 JRST ERR3 ;NO, ERROR
733 000763 200 11 0 00 000704 MOVE T1,IBF+1
734 000764 201 13 0 00 000120 MOVEI T3,JOBSA
735 000765 260 17 0 00 001143 GO RMS1 ;GET 'JOBSA'
736 000766 254 00 0 00 001477 JRST ERR3
737 000767 542 07 0 00 010531 HRRM CHR,XFERWD ;SAVE AS TRANSFER WORD
738 000770 200 11 0 00 000704 MOVE T1,IBF+1
739 000771 201 13 0 00 000121 MOVEI T3,JOBFF
740 000772 260 17 0 00 001143 GO RMS1 ;GET 'JOBFF'
741 000773 254 00 0 00 001477 JRST ERR3
742 000774 552 07 0 00 010471 HRRZM CHR,LENGTH# ;SAVE AS LENGTH OF PROGRAM
743 000775 200 11 0 00 000704 MOVE T1,IBF+1
744 000776 201 13 0 00 000137 MOVEI T3,JOBVER
745 000777 260 17 0 00 001143 GO RMS1 ;GET 'JOBVER'
746 001000 400 07 0 00 000000 SETZ CHR, ;NO VERSION, USE 0.0
747 001001 202 07 0 00 010451 MOVEM CHR,FILVER# ;SAVE FOR FILE IDENTIFICATION
748
749 001002 260 17 0 00 005071 GO FILEID ;IDENTIFY OUTPUT FILE
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 10
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0052
750 ;*OUTPUT 10 CORE ZEROING BLOCK
751 ;*CORE IS ZEROED FROM 'JOBSA' TO 'JOBFF'
752 S^;*******************************************************^
753
754 001003 550 11 0 00 010531 RIMTB1: HRRZ T1,XFERWD ;GENERATE ZERO WORD COUNT
755 001004 550 12 0 00 010471 HRRZ T2,LENGTH
756 001005 303 11 0 00 777777 CAILE T1,<^D1024*^D256>-1
757 001006 254 00 0 00 001521 JRST ERR12 ;DOESN'T FIT
758 001007 303 12 0 00 777777 CAILE T2,<^D1024*^D256>-1
759 001010 254 00 0 00 001521 JRST ERR12
760 001011 261 17 0 00 000011 PUT T1
761 001012 405 11 0 00 177777 ANDI T1,177777 ;STRIP TO 16 BITS
762 001013 202 11 0 00 002247 MOVEM T1,B11ADR ;SETUP START ADDRESS
763 001014 262 17 0 00 000011 GET T1
764 001015 261 17 0 00 000011 PUT T1
765 001016 242 11 0 00 777770 LSH T1,-^D8
766 001017 405 11 0 00 777400 ANDI T1,777400 ;GET BITS 18 & 19
767 001020 350 00 0 00 000011 AOS T1 ;ONE DATA WORD
768 001021 202 11 0 00 002250 MOVEM T1,B11CNT
769 001022 262 17 0 00 000011 GET T1
770 001023 274 12 0 00 000011 SUB T2,T1 ;NOW HAVE ZERO COUNT
771 001024 201 11 0 00 177777 MOVEI T1,<^D1024*^D64>-1
772 001025 201 15 0 00 002251 MOVEI CNT,B11DAT
773 001026 307 12 0 00 177777 CAIG T2,<^D1024*^D64>-1
774 001027 254 00 0 00 001050 JRST RIMZ1 ;ONE ZERO WORD
775 001030 202 11 0 15 000000 MOVEM T1,(CNT)
776 001031 350 00 0 00 002250 AOS B11CNT
777 001032 350 00 0 00 000015 AOS CNT
778 001033 274 12 0 00 000011 SUB T2,T1
779 001034 307 12 0 00 177777 CAIG T2,<^D1024*^D64>-1
780 001035 254 00 0 00 001050 JRST RIMZ1 ;TWO ZERO WORDS
781 001036 202 11 0 15 000000 MOVEM T1,(CNT)
782 001037 350 00 0 00 002250 AOS B11CNT
783 001040 350 00 0 00 000015 AOS CNT
784 001041 274 12 0 00 000011 SUB T2,T1
785 001042 307 12 0 00 177777 CAIG T2,<^D1024*^D64>-1
786 001043 254 00 0 00 001050 JRST RIMZ1 ;THREE ZERO WORDS
787 001044 202 11 0 15 000000 MOVEM T1,(CNT) ;FOUR ZERO WORDS
788 001045 350 00 0 00 002250 AOS B11CNT
789 001046 350 00 0 00 000015 AOS CNT
790 001047 274 12 0 00 000011 SUB T2,T1
791 001050 202 12 0 15 000000 RIMZ1: MOVEM T2,(CNT) ;LAST ZERO WORD
792
793 001051 260 17 0 00 001317 GO PUTZSP ;LINE STARTS WITH "Z" & "SPACE"
794
795 001052 260 17 0 00 002174 GO C11CNV ;ASCIIZE & OUTPUT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 11
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0053
796 ;*OUTPUT 10 DATA WORD BLOCKS
797 S^;*******************************************************^
798
799 001053 135 07 0 00 000704 RIMTB2: LDB CHR,IBF+1 ;GET POINTER
800 001054 552 07 0 00 010510 HRRZM CHR,POINTA#
801 001055 566 07 0 00 010434 HLROM CHR,COUNT#
802 001056 213 00 0 00 010434 MOVNS COUNT ;NUMBER OF WORDS THIS BLOCK
803
804 001057 336 11 0 00 010434 RIMTB3: SKIPN T1,COUNT ;ANY WORDS LEFT IN BLOCK ?
805 001060 254 00 0 00 001133 JRST RIMTB4 ;NONE
806 001061 402 00 0 00 010430 SETZM CHKSM#
807 001062 301 11 0 00 000012 CAIL T1,BLKSZ
808 001063 201 11 0 00 000012 MOVEI T1,BLKSZ
809 001064 210 12 0 00 000011 MOVN T2,T1 ;T1 HAS # OF WORDS TO GO OUT
810 001065 202 11 0 00 010423 MOVEM T1,BLKSIZ# ;NUMBER OF WORDS IN THIS BLOCK
811 001066 272 12 0 00 010434 ADDM T2,COUNT ;ADJUST COUNT
812
813 001067 332 00 0 00 010522 SKIPE SUPA10
814 001070 254 00 0 00 001172 JRST SUPTB3 ;SUPER A10
815
816 001071 550 07 0 00 010510 HRRZ CHR,POINTA
817 001072 202 07 0 00 010511 MOVEM CHR,POINTX# ;SAVE BLOCK ADDRESS
818 001073 272 11 0 00 010510 ADDM T1,POINTA ;SET POINTA FOR NEXT TIME
819 001074 260 17 0 00 001160 GO SETIOW ;INITIALIZE OUTPUT BLOCK
820
821 001075 361 11 0 00 001102 RIMTB5: SOJL T1,RIMTB6 ;FINISHED THIS BLOCK ?
822 001076 260 17 0 00 005351 GO RINP ;GET DATA WORD
823 001077 254 00 0 00 001501 JRST ERR4 ;EOF (ILLEGAL)
824
825 001100 260 17 0 00 001121 GO PUTRTB ;PUT IN OUTPUT BLOCK
826
827 001101 254 00 0 00 001075 JRST RIMTB5
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 12
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0054
828 001102 260 17 0 00 001312 RIMTB6: GO PUTTSP ;LINE STARTS WITH "T" & "SPACE"
829
830 001103 260 17 0 00 002174 GO C11CNV ;ASCIIZE & OUTPUT
831
832 001104 254 00 0 00 001057 JRST RIMTB3 ;DO NEXT BLOCK
833
834 ;*OUTPUT TRANSFER BLOCK
835 S^;*******************************************************^
836
837 001105 332 00 0 00 010522 RIMTB7: SKIPE SUPA10
838 001106 254 00 0 00 001224 JRST SUPTB7 ;SUPER A10
839
840 001107 550 00 0 00 010531 HRRZ XFERWD ;GET START ADDRESS
841 001110 405 00 0 00 177777 ANDI 177777
842 001111 202 00 0 00 002247 MOVEM B11ADR
843 001112 550 00 0 00 010531 HRRZ XFERWD
844 001113 242 00 0 00 777770 LSH -^D8
845 001114 405 00 0 00 777400 ANDI 777400
846 001115 202 00 0 00 002250 MOVEM B11CNT ;START AS 0 WORD COUNT
847
848 001116 260 17 0 00 001312 GO PUTTSP
849 001117 260 17 0 00 002174 GO C11CNV
850 001120 254 00 0 00 001245 JRST C11DON ;COMPLETED
851
852 001121 135 00 0 00 007364 PUTRTB: LDB [POINT 4,CHR,3]
853 001122 202 00 0 15 002253 MOVEM B11DAT+2(CNT) ;PUT BITS 0-3 IN 11 STOR WORD 2
854 001123 135 00 0 00 007365 LDB [POINT 16,CHR,19]
855 001124 202 00 0 15 002252 MOVEM B11DAT+1(CNT) ;PUT BITS 4-19 IN 11 STOR WORD 1
856 001125 135 00 0 00 007366 LDB [POINT 16,CHR,35]
857 001126 202 00 0 15 002251 MOVEM B11DAT(CNT) ;PUT BITS 20-35 IN 11 STOR WORD 0
858
859 001127 201 00 0 00 000003 MOVEI 3
860 001130 272 00 0 00 000015 ADDM CNT ;INCREMENT STOR COUNT
861 001131 272 00 0 00 002250 ADDM B11CNT ;3 11 WORDS PER 10 WORD
862 001132 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 13
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0055
863 ;*GET NEW POINTER
864 S^;*******************************************************^
865
866 001133 260 17 0 00 005351 RIMTB4: GO RINP
867 001134 254 00 0 00 001105 JRST RIMTB7 ;EOF
868 001135 321 07 0 00 001053 JUMPL CHR,RIMTB2 ;POINTER WORD
869 001136 312 07 0 00 010531 CAME CHR,XFERWD ;IS IT FINAL JRST XXX
870 001137 254 00 0 00 001503 JRST ERR5 ;NO, ERROR
871 001140 254 00 0 00 001105 JRST RIMTB7 ;YES, OUTPUT IT
872
873 ;*JOBSA/JOBFF/JOBVER SEARCH ROUTINE
874 S^;*******************************************************^
875
876 001141 274 11 0 00 000014 RMS2: SUB T1,T4 ;(IBF+1)+N
877 001142 340 11 0 00 000000 AOJ T1,
878 001143 135 07 0 00 000011 RMS1: LDB CHR,T1 ;GET POINTER
879 001144 550 12 0 00 000007 HRRZ T2,CHR ;X
880 001145 313 12 0 00 000013 CAMLE T2,T3 ;THIS POINTER PAST REQ DATA ?
881 001146 263 17 0 00 000000 RTN ;YES
882 001147 564 14 0 00 000007 HLRO T4,CHR ;-N
883 001150 274 12 0 00 000014 SUB T2,T4 ;X+N IN T2
884 001151 315 12 0 00 000013 CAMGE T2,T3 ;THIS POINTER POINT TO REQ DATA ?
885 001152 254 00 0 00 001141 JRST RMS2 ;NO, GET NEXT POINTER
886 001153 275 13 0 07 000000 SUBI T3,(CHR) ;YES, HOW FAR FROM POINTER ?
887 001154 270 11 0 00 000013 ADD T1,T3 ;INCREMENT POINTER
888 001155 135 07 0 00 000011 LDB CHR,T1 ;GET REQ DATA
889 001156 350 00 0 17 000000 AOS (P)
890 001157 263 17 0 00 000000 RTN
891
892 ;*SETIOW, SET I/O POINTER WORD
893 S^;*******************************************************^
894
895 001160 350 00 0 00 000007 SETIOW: AOS CHR ;CHANGE POINTER TO BLK ADDRESS
896 001161 261 17 0 00 000007 PUT CHR
897 001162 405 07 0 00 177777 ANDI CHR,177777 ;STRIP TO 16 BITS
898 001163 202 07 0 00 002247 MOVEM CHR,B11ADR ;SETUP 1ST START ADDRESS, LOW 16 BITS
899 001164 262 17 0 00 000007 GET CHR
900 001165 242 07 0 00 777770 LSH CHR,-^D8 ;GET ADDRESS BITS 18 & 19
901 001166 405 07 0 00 777400 ANDI CHR,777400
902 001167 202 07 0 00 002250 MOVEM CHR,B11CNT ;SAVE IN HI-BYTE OF WORD COUNT
903 001170 402 00 0 00 000015 SETZM CNT ;CLEAR WORD COUNTER
904 001171 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 14
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0056
905 ;*SUPER '.A10' CONVERSION
906
907 001172 550 07 0 00 010510 SUPTB3: HRRZ CHR,POINTA
908 001173 202 07 0 00 010511 MOVEM CHR,POINTX ;SAVE BLOCK ADDRESS
909 001174 350 00 0 00 010511 AOS POINTX
910 001175 272 11 0 00 010510 ADDM T1,POINTA ;SET POINTER FOR NEXT TIME
911
912 001176 260 17 0 00 001310 GO PUTASP ;LINE STARTS WITH "A" & SPACE
913
914 001177 200 07 0 00 010423 MOVE CHR,BLKSIZ ;NUMBER OF WORDS IN THIS BLOCK
915 001200 135 00 0 00 007367 LDB 0,[POINT 2,POINTX,19]
916 001201 137 00 0 00 007370 DPB 0,[POINT 2,CHR,27]
917
918 001202 272 07 0 00 010430 ADDM CHR,CHKSM
919 001203 260 17 0 00 001333 GO PUT ;OUTPUT BLOCK SIZE
920 001204 260 17 0 00 001300 GO PUTCMA
921
922 001205 200 07 0 00 010511 MOVE CHR,POINTX
923 001206 405 07 0 00 177777 ANDI CHR,177777
924 001207 272 07 0 00 010430 ADDM CHR,CHKSM ;OUTPUT BLOCK ADDRESS
925
926 001210 260 17 0 00 001333 SUPTB5: GO PUT ;OUTPUT
927 001211 260 17 0 00 001300 GO PUTCMA
928 001212 361 11 0 00 001217 SOJL T1,SUPTB6 ;FINISHED THIS BLOCK ?
929 001213 260 17 0 00 005351 GO RINP ;GET DATA WORD
930 001214 254 00 0 00 001501 JRST ERR4 ;EOF (ILLEGAL)
931 001215 272 07 0 00 010430 ADDM CHR,CHKSM ;CHECKSUM
932 001216 254 00 0 00 001210 JRST SUPTB5 ;REPEAT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 15
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0057
933
934 001217 210 07 0 00 010430 SUPTB6: MOVN CHR,CHKSM
935 001220 405 07 0 00 177777 ANDI CHR,177777
936 001221 260 17 0 00 001333 GO PUT ;OUTPUT CHECKSUM
937 001222 260 17 0 00 001303 GO PUTCRF
938 001223 254 00 0 00 001057 JRST RIMTB3
939
940 001224 260 17 0 00 001310 SUPTB7: GO PUTASP
941 001225 400 07 0 00 000000 SETZ CHR,
942 001226 135 00 0 00 007371 LDB 0,[POINT 2,XFERWD,19]
943 001227 137 00 0 00 007370 DPB 0,[POINT 2,CHR,27]
944 001230 202 07 0 00 010430 MOVEM CHR,CHKSM
945 001231 260 17 0 00 001333 GO PUT ;OUTPUT WORD COUNT
946 001232 260 17 0 00 001300 GO PUTCMA
947 001233 550 07 0 00 010531 HRRZ CHR,XFERWD
948 001234 405 07 0 00 177777 ANDI CHR,177777
949 001235 272 07 0 00 010430 ADDM CHR,CHKSM
950 001236 260 17 0 00 001333 GO PUT ;OUTPUT TRANSFER WORD
951 001237 260 17 0 00 001300 GO PUTCMA
952
953 001240 210 07 0 00 010430 MOVN CHR,CHKSM
954 001241 405 07 0 00 177777 ANDI CHR,177777
955 001242 260 17 0 00 001333 GO PUT ;OUTPUT CHECKSUM
956 001243 260 17 0 00 001303 GO PUTCRF
957 001244 254 00 0 00 001245 JRST C11DON ;COMPLETED
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 16
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0058
958 ;*CONVERSION COMPLETION FILE CLOSEOUT ROUTINE
959 S^;*******************************************************^
960
961 001245 260 17 0 00 005222 C11DON: GO FILEOF ;PUT "EOF" ON OUTPUT FILE
962 001246 067 02 0 00 000000 OUTPUT OUT,
963 001247 070 01 0 00 000000 CLOSE IN,
964 001250 070 02 0 00 000000 CLOSE OUT,
965 001251 071 01 0 00 000000 RELEAS IN,
966 001252 071 02 0 00 000000 RELEAS OUT,
967 001253 200 00 0 00 010524 MOVE SVJBFF ;RECLAIM BUFFER SPACE
968 001254 202 00 0 00 000121 MOVEM JOBFF
969 MOVEI [ASCIZ/
970 001255 201 00 0 00 007372 CONVERTING COMPLETED, INPUT BLOCKS = /]
971 001256 264 17 0 00 010277 PNTAL
972 001257 200 00 0 00 010422 MOVE BLKCNT
973 001260 264 15 0 00 010277 PNTDEC
974 001261 201 00 0 00 007402 MOVEI [ASCIZ/, OUTPUT BLOCKS = /]
975 001262 264 17 0 00 010277 PNTAL
976 001263 200 00 0 00 010501 MOVE OUTCNT
977 001264 264 15 0 00 010277 PNTDEC
978 001265 201 00 0 00 006730 MOVEI CRLF2
979 001266 264 17 0 00 010277 PNTAL
980 001267 047 00 0 00 000012 EXIT
981
982 ;*MISCELANEOUS ROUTINES
983 S^;*******************************************************^
984
985 001270 377 00 0 00 000713 PUT1: SOSG OBF+2 ;ADVANCE BYTE COUNTER
986 001271 254 00 0 00 001274 JRST PUTBF ;FULL
987 001272 136 07 0 00 000712 IDPB CHR,OBF+1 ;DEPOSIT CHARACTER
988 001273 263 17 0 00 000000 RTN
989
990 001274 350 00 0 00 010501 PUTBF: AOS OUTCNT
991 001275 057 02 0 00 000000 OUT OUT, ;DUMP BUFFER
992 001276 254 00 0 00 001272 JRST PUT1+2 ;NO ERRORS, JUMP BACK
993 001277 254 00 0 00 001505 JRST ERR6 ;ERROR
994
995 001300 201 07 0 00 000054 PUTCMA: MOVEI CHR,","
996 001301 260 17 0 00 001270 GO PUT1
997 001302 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 17
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0059
998 001303 201 07 0 00 000015 PUTCRF: MOVEI CHR,15
999 001304 260 17 0 00 001270 GO PUT1
1000 001305 201 07 0 00 000012 MOVEI CHR,12
1001 001306 260 17 0 00 001270 GO PUT1
1002 001307 263 17 0 00 000000 RTN
1003
1004 001310 201 07 0 00 000101 PUTASP: MOVEI CHR,"A" ;LINE STARTS WITH "A" & "SPACE"
1005 001311 254 00 0 00 001313 JRST PUTTSP+1
1006
1007 001312 201 07 0 00 000124 PUTTSP: MOVEI CHR,"T" ;LINE STARTS WITH "T" & "SPACE"
1008 001313 260 17 0 00 001270 GO PUT1
1009 001314 201 07 0 00 000040 MOVEI CHR," "
1010 001315 260 17 0 00 001270 GO PUT1
1011 001316 263 17 0 00 000000 RTN
1012
1013 001317 201 07 0 00 000132 PUTZSP: MOVEI CHR,"Z" ;LINE STARTS WITH "Z" & "SPACE"
1014 001320 254 00 0 00 001313 JRST PUTTSP+1
1015
1016 001321 607 10 0 00 777700 PUTS11: TLNN CHR1,777700
1017 001322 254 00 0 00 001326 JRST .+4 ;SUPPRESS 2 LEADING ZERO OITS
1018 001323 607 10 0 00 770000 TLNN CHR1,770000
1019 001324 254 00 0 00 001330 JRST .+4 ;SUPPRESS 1 LEADING ZERO OIT
1020 001325 263 17 0 00 000000 RTN
1021
1022 001326 370 00 0 00 000015 SOS CNT
1023 001327 242 10 0 00 000006 LSH CHR1,6
1024 001330 370 00 0 00 000015 SOS CNT
1025 001331 242 10 0 00 000006 LSH CHR1,6
1026 001332 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 18
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0060
1027 ;*PDP-10 SUPER A10 OUTPUT ROUTINE
1028
1029 001333 201 15 0 00 000006 PUT: MOVEI CNT,6 ;6 CHARS PER WORD
1030 001334 200 10 0 00 000007 MOVE CHR1,CHR
1031 001335 260 17 0 00 001356 GO PUTSUP ;SUPPRESS LEADING ZEROS
1032
1033 001336 402 00 0 00 000007 PUTX: SETZM CHR
1034 001337 245 07 0 00 000006 ROTC CHR,6 ;PUT CHAR RIGHT JUSTIFIED IN CHR
1035
1036 001340 306 07 0 00 000000 CAIN CHR,0
1037 001341 254 00 0 00 001404 JRST PUTZR0 ;SUPPRESS OTHER ZEROS
1038
1039 001342 306 07 0 00 000077 CAIN CHR,77
1040 001343 254 00 0 00 001435 JRST PUTONE ;SUPPRESS ONES
1041
1042 001344 306 07 0 00 000075 CAIN CHR,75 ;LEAVE 75 ALONE
1043 001345 254 00 0 00 001353 JRST .+6
1044 001346 306 07 0 00 000076 CAIN CHR,76
1045 001347 254 00 0 00 001353 JRST .+4 ;LEAVE 76 ALONE
1046 001350 306 07 0 00 000077 CAIN CHR,77
1047 001351 254 00 0 00 001353 JRST .+2 ;LEAVE 77 ALONE
1048 001352 660 07 0 00 000100 TRO CHR,100 ;SET BIT 7
1049 001353 260 17 0 00 001270 PUTX1: GO PUT1 ;GO PUT IN BUFFER
1050 001354 367 15 0 00 001336 SOJG CNT,PUTX ;ALL CHARS DONE ?
1051 001355 263 17 0 00 000000 RTN ;YES
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 19
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0061
1052
1053 001356 616 10 0 00 007406 PUTSUP: TDNN CHR1,[-1,,777700]
1054 001357 254 00 0 00 001371 JRST PUTS5 ;SUPPRESS 5 LEADING ZERO OITS
1055 001360 616 10 0 00 007407 TDNN CHR1,[-1,,770000]
1056 001361 254 00 0 00 001373 JRST PUTS4 ;SUPPRESS 4 LEADING ZERO OITS
1057 001362 607 10 0 00 777777 TLNN CHR1,-1
1058 001363 254 00 0 00 001375 JRST PUTS3 ;SUPPRESS 3 LEADING ZERO OITS
1059 001364 607 10 0 00 777700 TLNN CHR1,777700
1060 001365 254 00 0 00 001377 JRST PUTS2 ;SUPPRESS 2 LEADING ZERO OITS
1061 001366 607 10 0 00 770000 TLNN CHR1,770000
1062 001367 254 00 0 00 001401 JRST PUTS1 ;SUPPRESS 1 LEADING ZERO OIT
1063 001370 263 17 0 00 000000 RTN
1064
1065 001371 370 00 0 00 000015 PUTS5: SOS CNT
1066 001372 242 10 0 00 000006 LSH CHR1,6
1067 001373 370 00 0 00 000015 PUTS4: SOS CNT
1068 001374 242 10 0 00 000006 LSH CHR1,6
1069 001375 370 00 0 00 000015 PUTS3: SOS CNT
1070 001376 242 10 0 00 000006 LSH CHR1,6
1071 001377 370 00 0 00 000015 PUTS2: SOS CNT
1072 001400 242 10 0 00 000006 LSH CHR1,6
1073 001401 370 00 0 00 000015 PUTS1: SOS CNT
1074 001402 242 10 0 00 000006 LSH CHR1,6
1075 001403 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 20
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0062
1076 ;*PUTZR0, SUPPRESS MULTIPLE 00 OITS
1077
1078 001404 402 00 0 00 010513 PUTZR0: SETZM PUTZRC#
1079 001405 306 15 0 00 000001 CAIN CNT,1
1080 001406 254 00 0 00 001426 JRST PUTZR1
1081 001407 306 15 0 00 000002 CAIN CNT,2
1082 001410 254 00 0 00 001424 JRST PUTZR2
1083 001411 306 15 0 00 000003 CAIN CNT,3
1084 001412 254 00 0 00 001422 JRST PUTZR3
1085 001413 306 15 0 00 000004 CAIN CNT,4
1086 001414 254 00 0 00 001420 JRST PUTZR4
1087 001415 254 00 0 00 001416 JRST PUTZR5
1088
1089 001416 616 10 0 00 007407 PUTZR5: TDNN CHR1,[-1,,770000]
1090 001417 350 00 0 00 010513 AOS PUTZRC
1091 001420 607 10 0 00 777777 PUTZR4: TLNN CHR1,-1
1092 001421 350 00 0 00 010513 AOS PUTZRC
1093 001422 607 10 0 00 777700 PUTZR3: TLNN CHR1,777700
1094 001423 350 00 0 00 010513 AOS PUTZRC
1095 001424 607 10 0 00 770000 PUTZR2: TLNN CHR1,770000
1096 001425 350 00 0 00 010513 AOS PUTZRC
1097 001426 274 15 0 00 010513 PUTZR1: SUB CNT,PUTZRC
1098 001427 200 07 0 00 010513 MOVE CHR,PUTZRC
1099 001430 221 07 0 00 000006 IMULI CHR,6
1100 001431 242 10 0 07 000000 LSH CHR1,(CHR)
1101 001432 200 07 0 00 010513 MOVE CHR,PUTZRC
1102 001433 660 07 0 00 000060 TRO CHR,60
1103 001434 254 00 0 00 001353 JRST PUTX1
1104
1105 ;* "0" = 00
1106 ;* "1" = 0000
1107 ;* "2" = 000000
1108 ;* "3" = 00000000
1109 ;* "4" = 0000000000
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 21
CNVRTM MAC 1-May-78 14:08 TEN CONVERT SECTION SEQ 0063
1110 ;*PUTONE, SUPPRESS MULTIPLE 77 OITS
1111
1112 001435 462 00 0 00 000010 PUTONE: SETCMM CHR1
1113 001436 402 00 0 00 010512 SETZM PUTONC#
1114 001437 306 15 0 00 000001 CAIN CNT,1
1115 001440 254 00 0 00 001463 JRST PUTON1
1116 001441 306 15 0 00 000002 CAIN CNT,2
1117 001442 254 00 0 00 001461 JRST PUTON2
1118 001443 306 15 0 00 000003 CAIN CNT,3
1119 001444 254 00 0 00 001457 JRST PUTON3
1120 001445 306 15 0 00 000004 CAIN CNT,4
1121 001446 254 00 0 00 001455 JRST PUTON4
1122 001447 306 15 0 00 000005 CAIN CNT,5
1123 001450 254 00 0 00 001453 JRST PUTON5
1124
1125 001451 616 10 0 00 007406 PUTON6: TDNN CHR1,[-1,,777700]
1126 001452 350 00 0 00 010512 AOS PUTONC
1127 001453 616 10 0 00 007407 PUTON5: TDNN CHR1,[-1,,770000]
1128 001454 350 00 0 00 010512 AOS PUTONC
1129 001455 607 10 0 00 777777 PUTON4: TLNN CHR1,-1
1130 001456 350 00 0 00 010512 AOS PUTONC
1131 001457 607 10 0 00 777700 PUTON3: TLNN CHR1,777700
1132 001460 350 00 0 00 010512 AOS PUTONC
1133 001461 607 10 0 00 770000 PUTON2: TLNN CHR1,770000
1134 001462 350 00 0 00 010512 AOS PUTONC
1135 001463 274 15 0 00 010512 PUTON1: SUB CNT,PUTONC
1136 001464 200 07 0 00 010512 MOVE CHR,PUTONC
1137 001465 221 07 0 00 000006 IMULI CHR,6
1138 001466 462 00 0 00 000010 SETCMM CHR1
1139 001467 242 10 0 07 000000 LSH CHR1,(CHR)
1140 001470 200 07 0 00 010512 MOVE CHR,PUTONC
1141 001471 271 07 0 00 000065 ADDI CHR,"5"
1142 001472 254 00 0 00 001353 JRST PUTX1
1143
1144 ;* "5" = 77
1145 ;* "6" = 7777
1146 ;* "7" = 777777
1147 ;* "8" = 77777777
1148 ;* "9" = 7777777777
1149 ;* ":" = 777777777777
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 22
CNVRTM MAC 1-May-78 14:08 ERROR ROUTINES SEQ 0064
1150 SUBTTL ERROR ROUTINES
1151
1152 001473 ERR1: MOVEI [ASCIZ/
1153 001473 201 00 0 00 007410 FILE OF ZERO LENGTH/]
1154 001474 254 00 0 00 001523 JRST ERRX
1155 001475 ERR2: MOVEI [ASCIZ/
1156 001475 201 00 0 00 007415 FIRST WORD MUST BE POINTER/]
1157 001476 254 00 0 00 001523 JRST ERRX
1158 001477 ERR3: MOVEI [ASCIZ/
1159 001477 201 00 0 00 007423 INITIAL POINTER ERROR/]
1160 001500 254 00 0 00 001523 JRST ERRX
1161 001501 ERR4: MOVEI [ASCIZ/
1162 001501 201 00 0 00 007430 ILLEGAL EOF/]
1163 001502 254 00 0 00 001523 JRST ERRX
1164 001503 ERR5: MOVEI [ASCIZ/
1165 001503 201 00 0 00 007433 POINTER ERROR/]
1166 001504 254 00 0 00 001523 JRST ERRX
1167 001505 ERR6: MOVEI [ASCIZ/
1168 001505 201 00 0 00 007437 ERROR ON OUTPUT/]
1169 001506 254 00 0 00 001523 JRST ERRX
1170 001507 ERR7: MOVEI [ASCIZ/
1171 001507 201 00 0 00 007443 INPUT NOT AVAILABLE/]
1172 001510 254 00 0 00 001523 JRST ERRX
1173 001511 ERR8: MOVEI [ASCIZ/
1174 001511 201 00 0 00 007450 OUTPUT OPEN ERROR/]
1175 001512 254 00 0 00 001523 JRST ERRX
1176 001513 ERR9: MOVEI [ASCIZ/
1177 001513 201 00 0 00 007454 NO OUTPUT ROOM/]
1178 001514 254 00 0 00 001523 JRST ERRX
1179 001515 ERR10: MOVEI [ASCIZ/
1180 001515 201 00 0 00 007460 INPUT FILE NOT FOUND/]
1181 001516 254 00 0 00 001523 JRST ERRX
1182 001517 ERR11: MOVEI [ASCIZ/
1183 001517 201 00 0 00 007465 RIM10 FORMAT ERROR/]
1184 001520 254 00 0 00 001523 JRST ERRX
1185 001521 ERR12: MOVEI [ASCIZ/
1186 001521 201 00 0 00 007472 OVER 256K ERROR/]
1187 001522 254 00 0 00 001523 JRST ERRX
1188
1189 001523 476 00 0 00 000224 ERRX: SETOM MONCTL
1190 001524 264 17 0 00 010301 PNTALF
1191 001525 201 00 0 00 006727 MOVEI CRLF
1192 001526 264 17 0 00 010301 PNTALF
1193 001527 047 00 0 00 000012 EXIT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
CNVSAV MAC 2-May-78 10:41 PDP-10 '.A10' BACK TO '.SAV' CONVERSION SEQ 0065
1194 SUBTTL PDP-10 '.A10' BACK TO '.SAV' CONVERSION
1195
1196 001530 200 00 0 00 010450 SAVCNV: MOVE FILNAM ;INITIALIZE FILE NAMES
1197 001531 202 00 0 00 000716 MOVEM INNAME
1198 001532 202 00 0 00 000727 MOVEM OUTNAM
1199 001533 200 00 0 00 007363 MOVE [SIXBIT/A10/]
1200 001534 332 00 0 00 010447 SKIPE FILEXT
1201 001535 200 00 0 00 010447 MOVE FILEXT
1202 001536 202 00 0 00 000717 MOVEM INNAME+1
1203 001537 200 00 0 00 007362 MOVE [SIXBIT/SAV/]
1204 001540 202 00 0 00 000730 MOVEM OUTNAM+1
1205 001541 201 00 0 00 000013 MOVEI 13 ;INPUT IMAGE BINARY
1206 001542 202 00 0 00 000700 MOVEM INBLK
1207 001543 260 17 0 00 000645 GO ININIT ;INITIALIZE I/O
1208
1209 001544 201 06 0 00 000005 MOVEI BPNT,5 ;SET LDACHR BYTE COUNTER
1210 001545 254 00 0 00 001562 JRST LDA10 ;PROCESS '.A10' FILE
1211
1212 ;*LDACHR - ASCII CHARACTER PROCESS
1213
1214 001546 302 06 0 00 000005 LDACHR: CAIE BPNT,5 ;USED ALL OF THIS 36 BIT WORD ?
1215 001547 254 00 0 00 001554 JRST LDACH1 ;NOT YET
1216 001550 400 06 0 00 000000 SETZ BPNT,
1217 001551 260 17 0 00 005351 GO RINP ;YES, READ NEXT 36 BIT WORD
1218 001552 254 00 0 00 001561 JRST LDAEOF ;EOF
1219 001553 202 07 0 00 010431 MOVEM CHR,CHRSAV
1220
1221 LDACH1: LDB 16,[POINT 7,CHRSAV,6
1222 POINT 7,CHRSAV,13
1223 POINT 7,CHRSAV,20
1224 POINT 7,CHRSAV,27
1225 001554 135 16 0 06 007476 POINT 7,CHRSAV,34](BPNT) ;GET ASCII BYTE
1226 001555 350 00 0 00 000006 AOS BPNT ;COUNT IT
1227
1228 001556 322 16 0 00 001546 LDACH2: JUMPE 16,LDACHR ;IF NULL, IGNORE
1229 001557 350 00 0 17 000000 AOS (P) ;SKIP RETURN
1230 001560 263 17 0 00 000000 RTN
1231
1232 001561 263 17 0 00 000000 LDAEOF: RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
CNVSAV MAC 2-May-78 10:41 LDA10 - LOAD PDP-10 ASCIIZED ".A10" FILE SEQ 0066
1233 SUBTTL LDA10 - LOAD PDP-10 ASCIIZED ".A10" FILE
1234
1235 ;*LDPROC - FORMAT CONTROL PROCESS
1236
1237 001562 LDA10:
1238 001562 402 00 0 00 010466 LDPROC: SETZM LDOCTF#
1239 001563 402 00 0 00 010470 SETZM LDZBLK#
1240
1241 001564 260 17 0 00 001546 GO LDACHR ;GET FILE TYPE CHAR
1242 001565 260 17 0 00 001475 GO ERR2 ;EOF
1243 001566 306 16 0 00 000073 CAIN 16,";"
1244 001567 254 00 0 00 001742 JRST LDCMNT ;LINE STARTS WITH ;, COMMENT
1245
1246 001570 402 00 0 00 010467 SETZM LDTBLK#
1247 001571 306 16 0 00 000101 CAIN 16,"A" ;A, PDP-10 SUPER ".A10" FILE
1248 001572 254 00 0 00 001600 JRST .+6
1249 001573 306 16 0 00 000124 CAIN 16,"T" ;T, PDP-10 ".A10" FILE
1250 JRST [SETOM LDTBLK
1251 001574 254 00 0 00 007503 JRST .+4]
1252 001575 302 16 0 00 000132 CAIE 16,"Z" ;Z, ".A10" CORE ZERO
1253 001576 260 17 0 00 002017 GO LERR3
1254 001577 476 00 0 00 010470 SETOM LDZBLK
1255
1256 001600 260 17 0 00 001546 GO LDACHR ;GET FORMAT CHAR
1257 001601 260 17 0 00 001475 GO ERR2 ;EOF
1258
1259 001602 306 16 0 00 000040 CAIN 16," " ;SPACE, ASCIIZED
1260 001603 254 00 0 00 001607 JRST .+4
1261 001604 302 16 0 00 000117 CAIE 16,"O" ;O, OCTAL
1262 001605 260 17 0 00 002021 GO LERR4
1263 001606 476 00 0 00 010466 SETOM LDOCTF
1264
1265 001607 200 16 0 00 007505 MOVE 16,[LDCNT,,LDCNT+1]
1266 001610 402 00 0 00 001751 SETZM LDCNT
1267 001611 251 16 0 00 002015 BLT 16,LDATAE ;CLEAR LOAD STORAGE
1268
1269 001612 201 13 0 00 001751 MOVEI 13,LDCNT ;SETUP CONVERTED STORAGE POINTER
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
CNVSAV MAC 2-May-78 10:41 LDA10 - LOAD PDP-10 ASCIIZED ".A10" FILE SEQ 0067
1270
1271 ;*LDCNV - CONVERT ASCIIZED BACK INTO BITS
1272
1273 001613 402 00 0 00 000014 LDCNV: SETZM 14 ;CLEAR CONVERTED WORD FORMER
1274
1275 001614 260 17 0 00 001546 LDCNV1: GO LDACHR ;LOAD AN ASCII CHAR
1276 001615 260 17 0 00 001475 GO ERR2 ;EOF
1277
1278 001616 306 16 0 00 000015 CAIN 16,15 ;CR, IGNORE
1279 001617 254 00 0 00 001614 JRST LDCNV1
1280
1281 001620 306 16 0 00 000012 CAIN 16,12 ;LF, END OF LINE
1282 001621 254 00 0 00 001656 JRST LDEOL
1283
1284 001622 306 16 0 00 000054 CAIN 16,54 ;COMMA, FIELD SEPARATOR
1285 001623 254 00 0 00 001654 JRST LDCMA
1286
1287 001624 332 00 0 00 010466 SKIPE LDOCTF
1288 001625 254 00 0 00 001651 JRST LDCNV3 ;LOADING OCTAL FORMAT
1289
1290 001626 301 16 0 00 000065 CAIL 16,"5" ;5 TO : ?
1291 001627 303 16 0 00 000072 CAILE 16,":"
1292 001630 254 00 0 00 001636 JRST .+6 ;NO
1293 001631 275 16 0 00 000065 SUBI 16,"5" ;YES, INSERT SUPPRESSED ONES
1294 001632 242 14 0 00 000006 LSH 14,6
1295 001633 660 14 0 00 000077 TRO 14,77
1296 001634 365 16 0 00 001632 SOJGE 16,.-2
1297 001635 254 00 0 00 001614 JRST LDCNV1
1298
1299 001636 301 16 0 00 000060 CAIL 16,"0" ;0 TO 4 ?
1300 001637 303 16 0 00 000064 CAILE 16,"4"
1301 001640 254 00 0 00 001645 JRST .+5 ;NO
1302 001641 405 16 0 00 000007 ANDI 16,7 ;YES, INSERT SUPPRESSED ZEROS
1303 001642 242 14 0 00 000006 LSH 14,6
1304 001643 365 16 0 00 001642 SOJGE 16,.-1
1305 001644 254 00 0 00 001614 JRST LDCNV1
1306
1307 001645 242 14 0 00 000006 LSH 14,6 ;SHIFT WORD FORMER LEFT 6
1308 001646 405 16 0 00 000077 ANDI 16,77 ;KEEP ASCIIZED OIT BITS
1309
1310 001647 434 14 0 00 000016 LDCNV2: OR 14,16 ;INSERT NEW OIT
1311 001650 254 00 0 00 001614 JRST LDCNV1
1312
1313 001651 242 14 0 00 000003 LDCNV3: LSH 14,3 ;SHIFT WORD FORMER LEFT 3, OCTAL
1314 001652 405 16 0 00 000007 ANDI 16,7 ;KEEP OCTAL OIT BITS
1315 001653 254 00 0 00 001647 JRST LDCNV2
1316
1317 001654 202 14 0 13 000000 LDCMA: MOVEM 14,(13) ;STORE CONVERTED WORD
1318 001655 344 13 0 00 001613 AOJA 13,LDCNV ;COUNT AND GO FOR NEXT WORD
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
CNVSAV MAC 2-May-78 10:41 LDA10 - LOAD PDP-10 ASCIIZED ".A10" FILE SEQ 0068
1319
1320 ;*LDEOL - END OF LINE, CHECKSUM LOAD LINE
1321
1322 001656 202 14 0 13 000000 LDEOL: MOVEM 14,(13) ;STORE CHECKSUM
1323
1324 001657 332 00 0 00 010466 SKIPE LDOCTF
1325 001660 254 00 0 00 001670 JRST LDTEN ;OCTAL, NO CHECKSUM
1326
1327 001661 201 13 0 00 001751 MOVEI 13,LDCNT ;CHECKSUM LOAD STORAGE
1328 001662 402 00 0 00 000014 SETZM 14
1329 001663 270 14 0 13 000000 ADD 14,(13)
1330 001664 302 13 0 00 002015 CAIE 13,LDATAE
1331 001665 344 13 0 00 001663 AOJA 13,.-2
1332
1333 001666 602 14 0 00 177777 TRNE 14,177777 ;16 BIT CHECKSUM = 0 ?
1334 001667 260 17 0 00 002023 GO LERR5 ;NO, CHECKSUM ERROR
1335
1336 ;*LDTEN - CREATE LOAD ADDRESS AND WORD COUNT
1337
1338 001670 135 13 0 00 007506 LDTEN: LDB 13,[POINT 2,LDCNT,27]
1339 001671 242 13 0 00 000020 LSH 13,^D16
1340 001672 434 13 0 00 001752 OR 13,LDADR ;CREATE PDP-10 LOAD ADDRESS
1341
1342 001673 135 14 0 00 007507 LDB 14,[POINT 8,LDCNT,35] ;WORD COUNT
1343
1344 001674 336 00 0 00 010470 SKIPN LDZBLK
1345 001675 254 00 0 00 001677 JRST LDTEN1 ;LOAD TEN DATA WORDS
1346
1347 ;*LDTENZ - CLEAR TEN CORE, JOB START TO JOB FIRST FREE
1348
1349 001676 254 00 0 00 001562 LDTENZ: JRST LDPROC ;NO-OP ON RECONVERSION
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 5
CNVSAV MAC 2-May-78 10:41 LDA10 - LOAD PDP-10 ASCIIZED ".A10" FILE SEQ 0069
1350
1351 ;*LDTEN1 - TRANSFER TEN WORDS TO MEMORY
1352
1353 001677 336 00 0 00 010467 LDTEN1: SKIPN LDTBLK
1354 001700 200 13 0 00 001752 MOVE 13,LDADR
1355 001701 322 14 0 00 001736 JUMPE 14,LDDONE ;WC=0, TRANSFER BLOCK
1356
1357 001702 201 15 0 00 001753 MOVEI 15,LDATA ;SETUP PICKUP POINTER
1358
1359 001703 370 00 0 00 000013 SOS 13 ;MAKE IOWD ADR
1360 001704 200 00 0 00 000014 MOVE 0,14
1361 001705 332 00 0 00 010467 SKIPE LDTBLK
1362 001706 231 00 0 00 000003 IDIVI 0,3 ;MAKE IOWD WC
1363 001707 210 00 0 00 000000 MOVN 0,0
1364 001710 504 13 0 00 000000 HRL 13,0 ;CREATE IOWD
1365
1366 001711 200 07 0 00 000013 MOVE CHR,13
1367 001712 260 17 0 00 001270 GO PUT1 ;OUTPUT IOWD
1368
1369 001713 200 16 0 15 000000 LDTEN2: MOVE 16,(15) ;GET 36 BIT WORD
1370 001714 336 00 0 00 010467 SKIPN LDTBLK
1371 001715 254 00 0 00 001723 JRST .+6
1372
1373 001716 200 16 0 15 000002 MOVE 16,2(15) ;BITS 0 TO 7
1374 001717 242 16 0 00 000020 LSH 16,^D16
1375 001720 434 16 0 15 000001 OR 16,1(15) ;BITS 8 TO 23
1376 001721 242 16 0 00 000020 LSH 16,^D16
1377 001722 434 16 0 15 000000 OR 16,0(15) ;BITS 24 TO 35
1378
1379 001723 200 07 0 00 000016 MOVE CHR,16
1380 001724 260 17 0 00 001270 GO PUT1 ;OUTPUT DATA WORD
1381
1382 001725 350 00 0 00 000013 AOS 13 ;INCREMENT PDP-10 ADDRESS
1383 001726 271 15 0 00 000001 ADDI 15,1 ;BUMP PICKUP POINTER
1384 001727 332 00 0 00 010467 SKIPE LDTBLK
1385 001730 271 15 0 00 000002 ADDI 15,2
1386 001731 275 14 0 00 000001 SUBI 14,1 ;DECREMENT WORD COUNT
1387 001732 332 00 0 00 010467 SKIPE LDTBLK
1388 001733 275 14 0 00 000002 SUBI 14,2
1389 001734 327 14 0 00 001713 JUMPG 14,LDTEN2 ;DO TILL ALL WORDS USED
1390 001735 254 00 0 00 001562 JRST LDPROC ;CONTINUE TILL TRANSFER BLOCK
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 6
CNVSAV MAC 2-May-78 10:41 LDA10 - LOAD PDP-10 ASCIIZED ".A10" FILE SEQ 0070
1391
1392 ;*LDDONE - COMPLETED, OUTPUT XFER WORD
1393
1394 001736 505 13 0 00 254000 LDDONE: HRLI 13,(JRST) ;MAKE XFER WORD
1395 001737 200 07 0 00 000013 MOVE CHR,13
1396 001740 260 17 0 00 001270 GO PUT1
1397 001741 254 00 0 00 001246 JRST C11DON+1 ;DONE
1398
1399 ;*LDCMNT - LOAD FILE COMMENT LINE
1400
1401 001742 260 17 0 00 001744 LDCMNT: GO CMNPNT
1402 001743 254 00 0 00 001562 JRST LDPROC ;NO-OP ON RECONVERSION
1403
1404 001744 260 17 0 00 001546 CMNPNT: GO LDACHR
1405 001745 254 00 0 00 001475 JRST ERR2
1406 001746 302 16 0 00 000012 CAIE 16,12
1407 001747 254 00 0 00 001744 JRST CMNPNT
1408 001750 263 17 0 00 000000 RTN
1409
1410 001751 000000 000000 LDCNT: 0 ;A10 LOAD COUNT
1411 001752 000000 000000 LDADR: 0 ;A10 LOAD ADDRESS
1412 001753 LDATA: BLOCK ^D34 ;A10 DATA STORAGE
1413 002015 000000 000000 LDATAE: 0
1414 002016 000000 000000 0
1415
1416 002017 LERR3: MOVEI [ASCIZ/
1417 002017 201 00 0 00 007510 FILE TYPE ERROR/]
1418 002020 254 00 0 00 001523 JRST ERRX
1419 002021 LERR4: MOVEI [ASCIZ/
1420 002021 201 00 0 00 007514 FORMAT ERROR/]
1421 002022 254 00 0 00 001523 JRST ERRX
1422 002023 LERR5: MOVEI [ASCIZ/
1423 002023 201 00 0 00 007517 CHECKSUM ERROR/]
1424 002024 254 00 0 00 001523 JRST ERRX
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
CNVT11 MAC 1-May-78 15:16 PDP-11 BINARY TO ASCII SECTION SEQ 0071
1425 SUBTTL PDP-11 BINARY TO ASCII SECTION
1426 S^;*******************************************************^
1427
1428 002025 200 00 0 00 010450 CNVT11: MOVE FILNAM ;INITIALIZE FILE NAMES
1429 002026 202 00 0 00 000716 MOVEM INNAME
1430 002027 202 00 0 00 000727 MOVEM OUTNAM
1431 002030 200 00 0 00 007523 MOVE [SIXBIT/BIN/]
1432 002031 332 00 0 00 010447 SKIPE FILEXT
1433 002032 200 00 0 00 010447 MOVE FILEXT
1434 002033 202 00 0 00 000717 MOVEM INNAME+1
1435 002034 200 00 0 00 007524 MOVE [SIXBIT/A11/]
1436 002035 202 00 0 00 000730 MOVEM OUTNAM+1
1437 002036 201 00 0 00 000013 MOVEI 13 ;INPUT IMAGE BINARY, 36 BIT BYTES
1438 002037 202 00 0 00 000700 MOVEM INBLK
1439 002040 260 17 0 00 000645 GO ININIT
1440
1441 002041 260 17 0 00 005071 GO FILEID ;IDENTIFY OUTPUT FILE
1442
1443 002042 476 00 0 00 000004 SETOM FB
1444 002043 260 17 0 00 002140 C11LP: GO G11BYT ;GET 8 BIT BYTE
1445 002044 254 00 0 00 001501 JRST ERR4 ;ILLEGAL EOF ?
1446 002045 322 05 0 00 002043 JUMPE BYTE,C11LP ;DISCARD NULLS
1447 002046 306 05 0 00 000377 CAIN BYTE,377
1448 002047 254 00 0 00 002043 JRST C11LP ;DISCARD DELETES
1449
1450 002050 302 05 0 00 000001 CAIE BYTE,1 ;VERIFY CONSTANT 1
1451 002051 254 00 0 00 002317 JRST ERR20 ;JUNK ?
1452
1453 002052 202 05 0 00 002245 MOVEM BYTE,C11SUM# ;INIT CHECKSUM
1454
1455 002053 260 17 0 00 002140 GO G11BYT
1456 002054 254 00 0 00 001501 JRST ERR4 ;EOF ?
1457 002055 332 00 0 00 000005 SKIPE BYTE ;VERIFY CONSTANT 0
1458 002056 254 00 0 00 002321 JRST ERR21 ;JUNK ?
1459
1460 002057 260 17 0 00 002127 GO G11WD ;GET BYTE COUNT
1461 002060 322 11 0 00 002323 JUMPE T1,ERR22 ;ZERO BYTE COUNT ?
1462
1463 002061 201 06 0 11 777772 C11LPA: MOVEI BC,-6(T1) ;GET DATA BYTE COUNT
1464 002062 321 06 0 00 002323 JUMPL BC,ERR22 ;LESS THAN 6 ?
1465
1466 002063 260 17 0 00 002127 GO G11WD ;GET ADDRESS
1467 002064 202 11 0 00 002246 MOVEM T1,ADR11# ;SAVE AS BLOCK START ADDRESS
1468 002065 322 06 0 00 002160 JUMPE BC,SRTBLK ;BC=6='S PDP-11 START BLOCK
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
CNVT11 MAC 1-May-78 15:16 PDP-11 BINARY TO ASCII SECTION SEQ 0072
1469 002066 201 13 0 00 000074 C11LPB: MOVEI P1,AWC11*2 ;SETUP ASCIIZED WORD COUNT
1470 002067 305 06 0 00 000074 CAIGE BC,AWC11*2 ;DOES FILE HAVE THAT MANY ?
1471 002070 200 13 0 00 000006 MOVE P1,BC ;NO - USE WHATS IN FILE
1472 002071 200 14 0 00 000013 MOVE P2,P1 ;SET COUNT FOR FETCH
1473
1474 002072 200 11 0 00 002246 MOVE T1,ADR11
1475 002073 202 11 0 00 002247 MOVEM T1,B11ADR ;SETUP ASCIIZED START ADDRESS
1476 002074 350 00 0 00 000013 AOS P1 ;ROUND UP BYTE COUNT
1477 002075 242 13 0 00 777777 LSH P1,-1 ;DIVIDE BY 2
1478 002076 202 13 0 00 002250 MOVEM P1,B11CNT ;SETUP ASCIIZED WORD COUNT
1479
1480 002077 200 03 0 00 007525 MOVE BA,[POINT 8,B11DAT,35] ;SETUP ASCIIZED WORD FORMER
1481
1482 002100 200 11 0 00 007526 MOVE T1,[B11DAT,,B11DAT+1]
1483 002101 402 00 0 00 002251 SETZM B11DAT ;CLEAR STORAGE AREA
1484 002102 251 11 0 00 002307 BLT T1,B11DAT+AWC11
1485
1486 002103 260 17 0 00 002140 C11DATA: GO G11BYT ;GET DATA BYTE
1487 002104 254 00 0 00 001501 JRST ERR4 ;EOF ?
1488 002105 137 05 0 00 000003 DPB BYTE,BA ;STUFF INTO BUFFER
1489 002106 643 03 0 00 100000 TLCE BA,(POINT 0,0,27) ;SWITCH BYTES
1490 002107 350 00 0 00 000003 AOS BA ;ADVANCE WORD EVERY TWO
1491 002110 367 14 0 00 002103 SOJG P2,C11DATA ;LOOP FILLING BUFFER
1492
1493 002111 260 17 0 00 002167 C11DO: GO PUTESP ;LINE STARTS WITH "E" & "SPACE"
1494 002112 260 17 0 00 002174 GO C11CNV ;ASCIIZE AND OUTPUT BUFFER
1495
1496 002113 201 11 0 00 000074 C11DID: MOVEI T1,AWC11*2 ;ADVANCE BLOCK START ADDRESS
1497 002114 272 11 0 00 002246 ADDM T1,ADR11
1498 002115 275 06 0 00 000074 SUBI BC,AWC11*2 ;DECREMENT 11 BYTE COUNT TO GO
1499 002116 327 06 0 00 002066 JUMPG BC,C11LPB ;LOOP TILL ALL OF THIS BLOCK DONE
1500
1501 002117 260 17 0 00 002121 GO CK11SUM ;VERIFY CHECKSUM
1502 002120 254 00 0 00 002043 JRST C11LP ;GET NEXT BLOCK
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
CNVT11 MAC 1-May-78 15:16 PDP-11 BINARY TO ASCII SECTION SEQ 0073
1503 002121 260 17 0 00 002140 CK11SUM: GO G11BYT ;GET CHECKSUM BYTE
1504 002122 254 00 0 00 001501 JRST ERR4 ;EOF ?
1505 002123 200 11 0 00 002245 MOVE T1,C11SUM ;VERIFY CHECKSUM RESULT
1506 002124 606 11 0 00 000377 TRNN T1,377 ;SHOULD BE 8 BITS OF 0
1507 002125 263 17 0 00 000000 RTN
1508 002126 254 00 0 00 002325 JRST ERR23 ;CHECKSUM ERROR ?
1509
1510 002127 260 17 0 00 002140 G11WD: GO G11BYT ;GET RH BYTE
1511 002130 254 00 0 00 001501 JRST ERR4 ;EOF ?
1512 002131 202 05 0 00 010424 MOVEM BYTE,BYTESV# ;SAVE
1513 002132 260 17 0 00 002140 GO G11BYT ;GET LH BYTE
1514 002133 254 00 0 00 001501 JRST ERR4 ;EOF ?
1515 002134 200 11 0 00 000005 MOVE T1,BYTE
1516 002135 242 11 0 00 000010 LSH T1,8 ;POSITION LH BYTE
1517 002136 434 11 0 00 010424 IOR T1,BYTESV ;INCLUDE RH BYTE
1518 002137 263 17 0 00 000000 RTN
1519
1520 002140 350 00 0 00 000004 G11BYT: AOS FB ;ADVANCE FILE BYTE
1521 002141 405 04 0 00 000003 ANDI FB,3 ;(MOD 4)
1522 002142 326 04 0 00 002151 JUMPN FB,G11BY2 ;IF NOT NEW WORD JUST FETCH BYTE
1523 002143 260 17 0 00 005351 GO RINP ;GET NEXT 36 BIT WORD
1524 002144 263 17 0 00 000000 RTN ;END OF FILE
1525
1526 002145 202 07 0 00 010431 G11BY1: MOVEM CHR,CHRSAV#
1527 002146 607 07 0 00 600000 TLNN CHR,(6B2) ;TEST FOR JUNK IN EITHER HALF
1528 002147 602 07 0 00 600000 TRNE CHR,6B20
1529 002150 254 00 0 00 002327 JRST ERR24
1530
1531 002151 135 05 0 04 002154 G11BY2: LDB BYTE,PTRTAB(FB) ;GET PROPER 8 BIT BYTE
1532 002152 272 05 0 00 002245 ADDM BYTE,C11SUM ;ACCUMULATE TO CHECKSUM
1533 002153 254 00 0 00 005362 JRST CPOPJ1 ;SKIP RETURN
1534
1535 002154 22 10 0 00 010431 PTRTAB: POINT 8,CHRSAV,17 ;8 BIT BYTE PICKUP POINTERS
1536 002155 32 10 0 00 010431 POINT 8,CHRSAV,9
1537 002156 00 10 0 00 010431 POINT 8,CHRSAV,35
1538 002157 10 10 0 00 010431 POINT 8,CHRSAV,27
1539
1540 002160 260 17 0 00 002121 SRTBLK: GO CK11SUM ;VERIFY CHECKSUM
1541 002161 200 11 0 00 002246 MOVE T1,ADR11
1542 002162 202 11 0 00 002247 MOVEM T1,B11ADR ;SETUP START ADDRESS
1543 002163 402 00 0 00 002250 SETZM B11CNT ;START HAS 0 DATA WORD COUNT
1544
1545 002164 260 17 0 00 002167 GO PUTESP
1546 002165 260 17 0 00 002174 GO C11CNV ;ASCIIZE AND OUTPUT
1547
1548 002166 254 00 0 00 001245 JRST C11DON ;COMPLETED
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
CNVT11 MAC 1-May-78 15:16 PDP-11 BINARY TO ASCII SECTION SEQ 0074
1549 002167 201 07 0 00 000105 PUTESP: MOVEI CHR,"E" ;LINE STARTS WITH "E" & "SPACE"
1550 002170 260 17 0 00 001270 GO PUT1
1551 002171 201 07 0 00 000040 MOVEI CHR," "
1552 002172 260 17 0 00 001270 GO PUT1
1553 002173 263 17 0 00 000000 RTN
1554
1555 002174 200 07 0 00 002250 C11CNV: MOVE CHR,B11CNT
1556 002175 202 07 0 00 010425 MOVEM CHR,C11CKS# ;INIT ASCIIZED CHECKSUM
1557 002176 260 17 0 00 002224 GO PUT11 ;OUTPUT ASCIIZED WORD COUNT
1558
1559 002177 260 17 0 00 001300 GO PUTCMA ;WC,ADR SEPARATOR
1560
1561 002200 200 07 0 00 002247 MOVE CHR,B11ADR ;OUTPUT ASCIIZED BLOCK ADDRESS
1562 002201 272 07 0 00 010425 ADDM CHR,C11CKS
1563 002202 260 17 0 00 002224 GO PUT11
1564
1565 002203 260 17 0 00 001300 GO PUTCMA ;COMPLETE WC,ADR,
1566
1567 002204 402 00 0 00 000012 SETZM T2
1568 002205 200 11 0 00 002250 MOVE T1,B11CNT
1569 002206 405 11 0 00 000377 ANDI T1,377 ;STRIP HI ADDRESS BITS
1570 002207 361 11 0 00 002215 C11CLP: SOJL T1,C11CDN ;FINISHED ALL DATA WORDS ?
1571
1572 002210 200 07 0 12 002251 MOVE CHR,B11DAT(T2) ;GET 16 BIT WORD
1573 002211 272 07 0 00 010425 ADDM CHR,C11CKS ;ADD TO CHECKSUM
1574 002212 260 17 0 00 002224 GO PUT11
1575 002213 260 17 0 00 001300 GO PUTCMA ;FINISH WITH COMMA
1576 002214 344 12 0 00 002207 AOJA T2,C11CLP ;LOOP & INCREMENT DATA ADDRESS
1577
1578 002215 210 07 0 00 010425 C11CDN: MOVN CHR,C11CKS ;NEGATE CHECKSUM
1579 002216 405 07 0 00 177777 ANDI CHR,177777 ;STRIP BACK TO 16 BITS
1580 002217 332 00 0 00 010453 SKIPE FLAG8
1581 002220 405 07 0 00 007777 ANDI CHR,7777 ;PDP-8, 12 BIT CHECKSUM
1582 002221 260 17 0 00 002224 GO PUT11
1583 002222 260 17 0 00 001303 GO PUTCRF ;CR/LF
1584 002223 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 5
CNVT11 MAC 1-May-78 15:16 PDP-11 BINARY TO ASCII SECTION SEQ 0075
1585
1586 002224 201 15 0 00 000003 PUT11: MOVEI CNT,3 ;3 ASCII CHAR PER 16 BITS
1587 002225 514 10 0 00 000007 HRLZ CHR1,CHR
1588 002226 607 10 0 00 777777 TLNN CHR1,-1 ;THIS WORD ALL ZEROS ?
1589 002227 263 17 0 00 000000 RTN ;YES, DON'T OUTPUT
1590
1591 002230 260 17 0 00 001321 GO PUTS11 ;SUPPRESS LEADING ZEROS
1592
1593 002231 402 00 0 00 000007 PUT11X: SETZM CHR
1594 002232 245 07 0 00 000006 ROTC CHR,6 ;RIGHT JUSTIFY CHAR IN CHR
1595 002233 306 07 0 00 000075 CAIN CHR,75
1596 002234 254 00 0 00 002242 JRST .+6 ;LEAVE 75 ALONE
1597 002235 306 07 0 00 000076 CAIN CHR,76
1598 002236 254 00 0 00 002242 JRST .+4 ;LEAVE 76 ALONE
1599 002237 306 07 0 00 000077 CAIN CHR,77
1600 002240 254 00 0 00 002242 JRST .+2 ;LEAVE 77 ALONE
1601 002241 660 07 0 00 000100 TRO CHR,100 ;SET BIT 7 FOR ASCIIZE
1602 002242 260 17 0 00 001270 GO PUT1 ;PUT CHAR IN BUFFER
1603 002243 367 15 0 00 002231 SOJG CNT,PUT11X ;ALL CHARS DONE ?
1604 002244 263 17 0 00 000000 RTN ;YES
1605
1606 002245 000000 000000 C11SUM: 0
1607 002246 000000 000000 ADR11: 0
1608 002247 000000 000000 B11ADR: 0
1609 002250 000000 000000 B11CNT: 0
1610 002251 B11DAT: BLOCK AWC11
1611 002307 000000 000000 0
1612 002310 000000 000000 0
1613 002311 000000 000000 0
1614 002312 000000 000000 0
1615 002313 000000 000000 0
1616 002314 000000 000000 0
1617 002315 000000 000000 0
1618 002316 000000 000000 0
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 6
CNVT11 MAC 1-May-78 15:16 PDP-11 BINARY TO ASCII SECTION SEQ 0076
1619
1620 002317 ERR20: MOVEI [ASCIZ/
1621 002317 201 00 0 00 007527 CONSTANT 1 ERROR/]
1622 002320 254 00 0 00 001523 JRST ERRX
1623
1624 002321 ERR21: MOVEI [ASCIZ/
1625 002321 201 00 0 00 007533 CONSTANT 0 ERROR/]
1626 002322 254 00 0 00 001523 JRST ERRX
1627
1628 002323 ERR22: MOVEI [ASCIZ/
1629 002323 201 00 0 00 007537 BYTE COUNT ERROR/]
1630 002324 254 00 0 00 001523 JRST ERRX
1631
1632 002325 ERR23: MOVEI [ASCIZ/
1633 002325 201 00 0 00 007543 FILE CHECKSUM ERROR/]
1634 002326 254 00 0 00 001523 JRST ERRX
1635
1636 002327 ERR24: MOVEI [ASCIZ/
1637 002327 201 00 0 00 007550 WORD NOT DOUBLE 16 BIT FORMAT ERROR/]
1638 002330 254 00 0 00 001523 JRST ERRX
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
CNVMIC MAC 1-May-78 15:15 RAM MICRO-CODE PROCESS SEQ 0077
1639 SUBTTL RAM MICRO-CODE PROCESS
1640 S^;*******************************************************^
1641
1642 002331 KSMCNV:
1643 002331 200 00 0 00 010450 MICCNV: MOVE FILNAM ;INITIALIZE FILE NAMES
1644 002332 202 00 0 00 000716 MOVEM INNAME
1645 002333 202 00 0 00 000727 MOVEM OUTNAM
1646 002334 200 00 0 00 007560 MOVE [SIXBIT/MCR/]
1647 002335 332 00 0 00 010447 SKIPE FILEXT
1648 002336 200 00 0 00 010447 MOVE FILEXT
1649 002337 202 00 0 00 000717 MOVEM INNAME+1
1650 002340 200 00 0 00 007561 MOVE [SIXBIT/RAM/]
1651 002341 202 00 0 00 000730 MOVEM OUTNAM+1 ;"ASCIIZED RAM"
1652 002342 402 00 0 00 000700 SETZM INBLK ;ASCII, 7 BIT BYTES
1653 002343 260 17 0 00 000645 GO ININIT ;INITIALIZE I/O
1654 002344 402 00 0 00 010441 SETZM DRMCNT# ;INITIALIZE D-RAM COUNTER
1655 002345 402 00 0 00 010436 SETZM CRMMAX# ;CLEAR C-RAM MAX ADDRESS
1656 002346 402 00 0 00 002250 SETZM B11CNT
1657 002347 402 00 0 00 010475 SETZM MTITF# ;CLEAR .TITLE FOUND FLAG
1658 002350 402 00 0 00 006112 SETZM MTITS ;CLEAR .TITLE STORAGE
1659
1660 002351 260 17 0 00 005364 GO INTCOR ;SETUP HICORE FOR RAM STORAGE
1661
1662 002352 260 17 0 00 005312 MICLP: GO CMDIN ;GET INPUT LINE
1663 002353 336 00 0 00 006005 SKIPN COMLIN ;ANY DATA IN LINE ?
1664 002354 254 00 0 00 002352 JRST .-2 ;NO, LOOP FOR NEXT
1665
1666 002355 260 17 0 00 005237 GO GETWRD ;GET COMMAND LETTER/WORD
1667 002356 306 11 0 00 000073 CAIN T1,";"
1668 002357 254 00 0 00 002402 JRST MTIT1 ;SEMICOLON, FIND .TITLE STATEMENT
1669 002360 322 13 0 00 002355 JUMPE T3,.-3 ;LOOP TILL LEADING TABS/SPACES BYPASSED
1670 002361 316 13 0 00 007414 CAMN T3,[SIXBIT/D/]
1671 002362 254 00 0 00 002436 JRST DRAM ;IF "D", PROCESS D-RAM WORDS
1672 002363 316 13 0 00 007562 CAMN T3,[SIXBIT/V/]
1673 002364 254 00 0 00 002752 JRST CRAM ;IF "V", PROCESS C-RAM WORD
1674 002365 316 13 0 00 007563 CAMN T3,[SIXBIT/U/]
1675 002366 254 00 0 00 002752 JRST CRAM ;IF "U", PROCESS C-RAM WORD
1676 002367 316 13 0 00 007564 CAMN T3,[SIXBIT/END/]
1677 002370 254 00 0 00 002372 JRST DCSHUF ;IF "END", BIT SHUFFLE AND OUTPUT
1678 002371 254 00 0 00 004330 JRST ERRM2 ;IF ANYTHING ELSE, ERROR!
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
CNVMIC MAC 1-May-78 15:15 RAM MICRO-CODE PROCESS SEQ 0078
1679
1680 002372 260 17 0 00 005400 DCSHUF: GO LSTINI ;INITIALIZE LISTING
1681
1682 002373 200 00 0 00 010441 MOVE DRMCNT ;GET D-RAM COUNT
1683 002374 322 00 0 00 002377 JUMPE 0,.+3 ;NO D-RAM DATA
1684 002375 302 00 0 00 001000 CAIE DRMSIZ ;PROPER NUMBER OF ADDRESSES ?
1685 002376 254 00 0 00 004342 JRST ERRM8 ;NO, ERROR !
1686
1687 002377 336 00 0 00 010465 SKIPN KSMICF ;KS-10 ?
1688 002400 260 17 0 00 005071 GO FILEID ;NO, IDENTIFY OUTPUT FILE
1689
1690 002401 254 00 0 00 003032 JRST CSHUF ;PROCESS C-RAM
1691
1692 002402 332 00 0 00 010475 MTIT1: SKIPE MTITF ;HAVE WE ALREADY FOUND .TITLE ?
1693 002403 254 00 0 00 002352 JRST MICLP ;YES
1694
1695 002404 260 17 0 00 005237 GO GETWRD ;GET COMMAND WORD
1696 002405 322 13 0 00 002404 JUMPE T3,.-1 ;LOOP TILL LEADING TABS/SPACES BYPASSED
1697 002406 316 13 0 00 007565 CAMN T3,[SIXBIT/.TITLE/]
1698 002407 254 00 0 00 002415 JRST MTIT2 ;FOUND .TITLE
1699 002410 260 17 0 00 005237 GO GETWRD ;MAY HAVE TO SKIP NUMBERS
1700 002411 322 13 0 00 002410 JUMPE T3,.-1
1701 002412 316 13 0 00 007565 CAMN T3,[SIXBIT/.TITLE/]
1702 002413 254 00 0 00 002415 JRST MTIT2 ;FOUND .TITLE
1703 002414 254 00 0 00 002352 JRST MICLP ;IF HAVEN'T GOT IT NOW, GIVE UP
1704
1705 002415 476 00 0 00 010475 MTIT2: SETOM MTITF ;SET FOUND FLAG
1706 002416 200 13 0 00 007566 MOVE T3,[POINT 7,MTITS]
1707
1708 002417 134 11 0 00 000012 ILDB T1,T2 ;SEARCH FOR QUOTE
1709 002420 322 11 0 00 002433 JUMPE T1,MTIT3 ;EOL, NO .TITLE ?
1710 002421 302 11 0 00 000042 CAIE T1,42 ;42 = QUOTE "
1711 002422 254 00 0 00 002417 JRST .-3
1712
1713 002423 136 11 0 00 000013 IDPB T1,T3 ;STORE LEADING QUOTE
1714 002424 134 11 0 00 000012 ILDB T1,T2
1715 002425 322 11 0 00 002433 JUMPE T1,MTIT3 ;NO TRAILING QUOTE
1716 002426 306 11 0 00 000042 CAIN T1,42 ;STORE DATA TILL TRAILING QUOTE
1717 002427 254 00 0 00 002432 JRST .+3
1718 002430 136 11 0 00 000013 IDPB T1,T3
1719 002431 254 00 0 00 002424 JRST .-5
1720
1721 002432 136 11 0 00 000013 IDPB T1,T3 ;STORE TRAILING QUOTE
1722 002433 402 00 0 00 000011 MTIT3: SETZM T1 ;END WITH NULL
1723 002434 136 11 0 00 000013 IDPB T1,T3
1724 002435 254 00 0 00 002352 JRST MICLP
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
CNVMIC MAC 1-May-78 15:15 D-RAM MICRO CODE PROCESS SEQ 0079
1725 SUBTTL D-RAM MICRO CODE PROCESS
1726 S^;*******************************************************^
1727
1728 002436 332 00 0 00 010465 DRAM: SKIPE KSMICF
1729 002437 254 00 0 00 002352 JRST MICLP ;KS-10, NO D-RAM
1730
1731 002440 260 17 0 00 005300 GO GETOCT ;GET D-RAM ADDRESS
1732 002441 301 13 0 00 001000 CAIL T3,DRMSIZ ;DOES IT FIT ?
1733 002442 254 00 0 00 004332 JRST ERRM3 ;NO, INVALID D-RAM ADDRESS
1734
1735 002443 350 00 0 00 010441 AOS DRMCNT ;COUNT D-RAM ENTRY
1736
1737 002444 202 13 0 00 000016 MOVEM T3,INDX ;SETUP STORAGE INDEXER
1738 002445 221 16 0 00 000002 IMULI INDX,2
1739
1740 002446 260 17 0 00 005237 GO GETWRD ;GET EXTRA SEPARATOR
1741 002447 302 11 0 00 000040 CAIE T1," " ;BETTER BE SPACE
1742 002450 254 00 0 00 004336 JRST ERRM5 ;WASN'T, ERROR !
1743
1744 002451 260 17 0 00 005300 GO GETOCT ;GET LISTING 1ST WORD, A B & P
1745
1746 002452 516 13 0 16 400000 HRLZM T3,DRMSTR(INDX) ;PUT IN STORAGE
1747
1748 002453 260 17 0 00 005300 GO GETOCT ;GET LISTING 2ND WORD, J FIELD
1749 002454 303 13 0 00 001777 CAILE T3,1777 ;DOES IT FIT IN 10 BITS ?
1750 002455 660 13 0 00 400000 TRO T3,400000 ;NO, SET ERROR FLAG BIT
1751
1752 002456 542 13 0 16 400000 HRRM T3,DRMSTR(INDX) ;PUT IN STORAGE
1753
1754 002457 260 17 0 00 005237 GO GETWRD ;BYPASS EXTRA TABS/SPACES
1755 002460 322 11 0 00 004336 JUMPE T1,ERRM5 ;IF RUN OUT OF LINE, ERROR !
1756 002461 302 11 0 00 000073 CAIE T1,";" ;TILL SEMICOLON FOUND
1757 002462 254 00 0 00 002457 JRST .-3
1758
1759 002463 133 00 0 00 000012 IBP T2 ;BYPASS SPACE
1760 002464 260 17 0 00 005266 GO GETDEC ;GET LISTING SEQUENCE NUMBER
1761 002465 202 13 0 16 400001 MOVEM T3,DRMSTR+1(INDX) ;PUT IN STORAGE
1762
1763 002466 254 00 0 00 002352 JRST MICLP
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
CNVMIC MAC 1-May-78 15:15 D-RAM MICRO CODE PROCESS SEQ 0080
1764 002467 402 00 0 00 010461 D16SHF: SETZM JSZERR#
1765 002470 402 00 0 00 010457 SETZM JCMERR#
1766 002471 402 00 0 00 010456 SETZM J05ERR#
1767 002472 606 13 0 00 000017 TRNN T3,17 ;MULTIPLE OF 16 ADDRESS ?
1768 002473 260 17 0 00 002667 GO DHEADR ;YES, DO HEADER PROCESS
1769
1770 002474 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1771 002475 260 17 0 00 002717 GO PDADR ;PRINT D-RAM ADDRESS
1772
1773 002476 135 00 0 00 007567 LDB 0,[POINT 3,DRMSTR(INDX),8] ;DO A FIELD
1774 002477 137 00 0 00 007570 DPB 0,[POINT 3,B11DAT(CNT),24]
1775 002500 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1776 002501 264 01 0 00 010277 PNT1
1777
1778 002502 135 00 0 00 007571 LDB 0,[POINT 3,DRMSTR(INDX),11] ;DO B FIELD
1779 002503 137 00 0 00 007572 DPB 0,[POINT 3,B11DAT(CNT),27]
1780 002504 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1781 002505 264 01 0 00 010277 PNT1
1782
1783 002506 135 00 0 00 007573 LDB 0,[POINT 1,DRMSTR(INDX),17] ;DO PARITY FIELD
1784 002507 137 00 0 00 007574 DPB 0,[POINT 1,B11DAT(CNT),30]
1785 002510 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1786 002511 264 01 0 00 010277 PNT1
1787
1788 002512 135 13 0 00 007575 LDB T3,[POINT 18,DRMSTR(INDX),35] ;DO J FIELD
1789 002513 622 13 0 00 400000 TRZE T3,400000 ;J SIZE ERROR ?
1790 002514 476 00 0 00 010461 SETOM JSZERR ;YES, SET FLAG
1791
1792 002515 200 00 0 00 000013 MOVE 0,T3
1793 002516 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1794 002517 264 04 0 00 010277 PNT4 ;PRINT J FIELD EVEN
1795
1796 002520 135 00 0 00 007576 LDB 0,[POINT 4,T3,35] ;DO EVEN PART OF J FIELD
1797 002521 137 00 0 00 007577 DPB 0,[POINT 4,B11DAT(CNT),35]
1798
1799 002522 135 00 0 00 007600 LDB 0,[POINT 6,T3,31] ;DO COMMON PART OF J FIELD
1800 002523 202 00 0 00 010460 MOVEM 0,JEVNCMN# ;SAVE FOR COMMON CHECK
1801 002524 602 00 0 00 000002 TRNE 0,2 ;J FIELD BIT 05 = 0 ?
1802 002525 476 00 0 00 010456 SETOM J05ERR ;NO, ERROR
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 5
CNVMIC MAC 1-May-78 15:15 D-RAM MICRO CODE PROCESS SEQ 0081
1803 002526 201 00 0 00 007601 MOVEI [ASCIZ/ ; /]
1804 002527 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1805 002530 264 17 0 00 010277 PNTAL
1806
1807 002531 200 00 0 16 400001 MOVE 0,DRMSTR+1(INDX)
1808 002532 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1809 002533 264 15 0 00 010277 PNTDEC ;PRINT LISTING SEQUENCE NUMBER
1810
1811 002534 201 00 0 00 007602 MOVEI [ASCIZ/ /]
1812 002535 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1813 002536 264 17 0 00 010277 PNTAL
1814
1815 002537 350 00 0 00 010440 D16SHO: AOS DRMADR ;SETUP FOR ODD ADDRESS OF PAIR
1816 002540 271 16 0 00 000002 ADDI INDX,2
1817
1818 002541 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1819 002542 260 17 0 00 002717 GO PDADR ;PRINT D-RAM ADDRESS
1820
1821 002543 135 00 0 00 007567 LDB 0,[POINT 3,DRMSTR(INDX),8] ;DO A FIELD
1822 002544 137 00 0 00 007603 DPB 0,[POINT 3,B11DAT+1(CNT),24]
1823 002545 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1824 002546 264 01 0 00 010277 PNT1
1825
1826 002547 135 00 0 00 007571 LDB 0,[POINT 3,DRMSTR(INDX),11] ;DO B FIELD
1827 002550 137 00 0 00 007604 DPB 0,[POINT 3,B11DAT+1(CNT),27]
1828 002551 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1829 002552 264 01 0 00 010277 PNT1
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 6
CNVMIC MAC 1-May-78 15:15 D-RAM MICRO CODE PROCESS SEQ 0082
1830 002553 135 00 0 00 007573 LDB 0,[POINT 1,DRMSTR(INDX),17] ;DO PARITY FIELD
1831 002554 137 00 0 00 007605 DPB 0,[POINT 1,B11DAT+1(CNT),30]
1832 002555 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1833 002556 264 01 0 00 010277 PNT1
1834
1835 002557 135 13 0 00 007575 LDB T3,[POINT 18,DRMSTR(INDX),35] ;DO J FIELD
1836 002560 622 13 0 00 400000 TRZE T3,400000 ;J SIZE ERROR ?
1837 002561 476 00 0 00 010461 SETOM JSZERR ;YES, SET J SIZE ERROR
1838
1839 002562 200 00 0 00 000013 MOVE 0,T3
1840 002563 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1841 002564 264 04 0 00 010277 PNT4 ;PRINT J FIELD
1842
1843 002565 135 00 0 00 007576 LDB 0,[POINT 4,T3,35] ;DO ODD PART OF J FIELD
1844 002566 137 00 0 00 007606 DPB 0,[POINT 4,B11DAT+1(CNT),35]
1845
1846 002567 135 00 0 00 007600 LDB 0,[POINT 6,T3,31] ;GET COMMON PART OF J FIELD
1847 002570 200 01 0 00 000000 MOVE 1,0
1848 002571 242 00 0 00 777776 LSH 0,-2
1849 002572 137 00 0 00 007607 DPB 0,[POINT 4,B11DAT+2(CNT),35]
1850 002573 312 01 0 00 010460 CAME 1,JEVNCMN ;ARE EVEN & ODD COMMON THE SAME ?
1851 002574 476 00 0 00 010457 SETOM JCMERR ;NO, SET J COMMON ERROR
1852 002575 602 01 0 00 000002 TRNE 1,2 ;J 05 SET ?
1853 002576 476 00 0 00 010456 SETOM J05ERR ;YES, ERROR
1854
1855 002577 201 00 0 00 007601 MOVEI [ASCIZ/ ; /]
1856 002600 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1857 002601 264 17 0 00 010277 PNTAL
1858 002602 200 00 0 16 400001 MOVE 0,DRMSTR+1(INDX)
1859 002603 336 00 0 00 010474 SKIPN MNOLST ;NO LISTING ?
1860 002604 264 15 0 00 010277 PNTDEC ;PRINT SEQUENCE NUMBER
1861
1862 002605 271 16 0 00 000002 ADDI INDX,2 ;STEP UP TO NEXT ADDRESS PAIR
1863 002606 271 15 0 00 000003 ADDI CNT,3 ;INCREMENT 11 DATA STOR INDEX
1864 002607 202 15 0 00 002250 MOVEM CNT,B11CNT ;UPDATE STORAGE COUNT
1865 002610 306 15 0 00 000036 CAIN CNT,^D30 ;FILLED OUTPUT BLOCK ?
1866 002611 260 17 0 00 002655 GO DRMBST ;YES, ASCIIZE AND OUTPUT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 7
CNVMIC MAC 1-May-78 15:15 D-RAM MICRO CODE PROCESS SEQ 0083
1867 002612 332 00 0 00 010474 DRMCMN: SKIPE MNOLST ;NO LISTING ?
1868 002613 263 17 0 00 000000 RTN
1869 002614 332 00 0 00 010456 SKIPE J05ERR
1870 002615 254 00 0 00 002625 JRST DRMCM1
1871 002616 332 00 0 00 010461 SKIPE JSZERR
1872 002617 254 00 0 00 002625 JRST DRMCM1
1873 002620 332 00 0 00 010457 SKIPE JCMERR
1874 002621 254 00 0 00 002625 JRST DRMCM1
1875
1876 002622 201 00 0 00 006727 DRMCM2: MOVEI CRLF
1877 002623 264 00 0 00 010277 PNTA
1878 002624 263 17 0 00 000000 RTN
1879
1880 002625 201 00 0 00 006734 DRMCM1: MOVEI TAB
1881 002626 264 00 0 00 010277 PNTA
1882 002627 201 00 0 00 007610 MOVEI [ASCIZ/J SIZE /]
1883 002630 332 00 0 00 010461 SKIPE JSZERR
1884 002631 264 17 0 00 010277 PNTAL
1885 002632 201 00 0 00 007612 MOVEI [ASCIZ/J CMN /]
1886 002633 332 00 0 00 010457 SKIPE JCMERR
1887 002634 264 17 0 00 010277 PNTAL
1888 002635 201 00 0 00 007614 MOVEI [ASCIZ/J05 ERR /]
1889 002636 332 00 0 00 010456 SKIPE J05ERR
1890 002637 264 17 0 00 010277 PNTAL
1891 002640 254 00 0 00 002622 JRST DRMCM2
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 8
CNVMIC MAC 1-May-78 15:15 D-RAM MICRO CODE PROCESS SEQ 0084
1892 002641 336 00 0 00 010441 DSHUF: SKIPN DRMCNT ;ANY D-RAM DATA ?
1893 002642 254 00 0 00 002740 JRST DRMDON+1 ;NO
1894 002643 402 00 0 00 000016 SETZM INDX ;START AT D-RAM ADDRESS 0
1895 002644 402 00 0 00 002250 SETZM B11CNT
1896 002645 260 17 0 00 002655 GO DRMBST ;SETUP FOR BLOCK START
1897
1898 002646 200 13 0 00 000016 DSHUF1: MOVE T3,INDX
1899 002647 231 13 0 00 000002 IDIVI T3,2
1900 002650 202 13 0 00 010440 MOVEM T3,DRMADR ;SETUP EVEN ADDRESS OF PAIR
1901
1902 002651 260 17 0 00 002467 GO D16SHF ;PROCESS AND OUTPUT D-RAM
1903
1904 002652 302 16 0 00 002000 CAIE INDX,DRMSIZ*2 ;ARE WE DONE ?
1905 002653 254 00 0 00 002646 JRST DSHUF1 ;NO, DO NEXT D-RAM PAIR
1906
1907 002654 254 00 0 00 002737 JRST DRMDON ;FINISH D-RAM
1908
1909 002655 332 00 0 00 002250 DRMBST: SKIPE B11CNT ;ANY DATA IN STORAGE ?
1910 002656 260 17 0 00 002726 GO DRMAO ;YES, ASCIIZE & OUTPUT
1911 002657 200 13 0 00 000016 MOVE T3,INDX
1912 002660 231 13 0 00 000002 IDIVI T3,2
1913 002661 202 13 0 00 002247 MOVEM T3,B11ADR ;SETUP BLOCK START ADDRESS
1914 002662 403 15 0 00 002250 SETZB CNT,B11CNT ;CLEAR STORAGE INDEXER
1915
1916 002663 200 11 0 00 007526 MOVE T1,[B11DAT,,B11DAT+1]
1917 002664 402 00 0 00 002251 SETZM B11DAT ;CLEAR STORAGE AREA
1918 002665 251 11 0 00 002307 BLT T1,B11DAT+AWC11
1919 002666 263 17 0 00 000000 RTN
1920
1921 002667 332 00 0 00 010474 DHEADR: SKIPE MNOLST ;NO LISTING ?
1922 002670 263 17 0 00 000000 RTN
1923 002671 602 13 0 00 000017 TRNE T3,17 ;MULTIPLE OF 20 ADDRESS ?
1924 002672 263 17 0 00 000000 RTN
1925 002673 606 13 0 00 000077 TRNN T3,77 ;MULTIPLE OF 100 ADDRESS ?
1926 002674 260 17 0 00 002700 GO DNEWPG ;YES, DO NEW PAGE
1927 002675 201 00 0 00 002704 MOVEI DHEAD
1928 002676 264 17 0 00 010277 PNTAL ;PRINT HEADER
1929 002677 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 9
CNVMIC MAC 1-May-78 15:15 D-RAM MICRO CODE PROCESS SEQ 0085
1930 002700 201 00 0 00 000014 DNEWPG: MOVEI 14 ;FORM-FEED
1931 002701 264 12 0 00 010277 PNTCHR
1932 002702 260 17 0 00 005447 GO PAGHDR ;PUT HEADER ON PAGE
1933 002703 263 17 0 00 000000 RTN
1934
1935 002704 DHEAD: ASCIZ?
1936 002704 015 012 101 104 122 ADR/ A B P J (SEQ#) ADR/ A B P J (SEQ#)
1937 002705 057 040 101 040 102
1938 002706 040 120 040 040 040
1939 002707 040 112 011 011 050
1940 002710 123 105 121 043 051
1941 002711 011 011 101 104 122
1942 002712 057 040 101 040 102
1943 002713 040 120 040 040 040
1944 002714 040 112 011 011 050
1945 002715 123 105 121 043 051
1946
1947 002716 015 012 015 012 000 ?
1948
1949 002717 402 00 0 00 010507 PDADR: SETZM PNTSPC
1950 002720 200 00 0 00 010440 MOVE 0,DRMADR#
1951 002721 264 03 0 00 010277 PNT3 ;PRINT D-RAM ADDRESS
1952 002722 476 00 0 00 010507 SETOM PNTSPC
1953 002723 201 00 0 00 007616 MOVEI [ASCIZ?/ ?]
1954 002724 264 17 0 00 010277 PNTAL
1955 002725 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 10
CNVMIC MAC 1-May-78 15:15 D-RAM MICRO CODE PROCESS SEQ 0086
1956 002726 202 11 0 00 010515 DRMAO: MOVEM T1,SAVT1#
1957 002727 202 12 0 00 010516 MOVEM T2,SAVT2#
1958 002730 202 13 0 00 010517 MOVEM T3,SAVT3#
1959
1960 002731 260 17 0 00 003414 GO PUTDSP ;LINE STARTS WITH "D" & "SPACE"
1961
1962 002732 260 17 0 00 002174 GO C11CNV ;ASCIIZE AND OUTPUT
1963
1964 002733 200 11 0 00 010515 MOVE T1,SAVT1
1965 002734 200 12 0 00 010516 MOVE T2,SAVT2
1966 002735 200 13 0 00 010517 MOVE T3,SAVT3
1967 002736 263 17 0 00 000000 RTN
1968
1969 002737 260 17 0 00 002726 DRMDON: GO DRMAO ;ASCIIZE AND OUTPUT LAST BLOCK
1970
1971 002740 402 00 0 00 002250 SETZM B11CNT ;WC=0, IS FINISH BLOCK
1972 002741 402 00 0 00 002247 SETZM B11ADR ;ADDR=0, NO START ADDRESS
1973 002742 260 17 0 00 002726 GO DRMAO ;ASCIIZE AND OUTPUT
1974
1975 002743 332 00 0 00 010474 SKIPE MNOLST ;NO LISTING ?
1976 002744 254 00 0 00 002750 JRST .+4
1977 002745 201 00 0 00 000014 MOVEI 14
1978 002746 264 12 0 00 010277 PNTCHR ;FINISH LISTING WITH FORM FEED
1979
1980 002747 265 00 0 00 007326 DROPDV ;CLOSE OUT LISTING
1981
1982 002750 402 00 0 00 000227 SETZM SWTEXR ;CLEAR SWITCHES
1983
1984 002751 254 00 0 00 001245 JRST C11DON ;CLOSE OUT REST
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 11
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0087
1985 SUBTTL C-RAM MICRO-CODE PROCESS
1986 S^;*******************************************************^
1987
1988 002752 260 17 0 00 005300 CRAM: GO GETOCT ;GET C-RAM ADDRESS
1989 002753 301 13 0 00 004000 CAIL T3,CRMSIZ ;DOES IT FIT IN C-RAM ?
1990 002754 254 00 0 00 004354 JRST ERRMC1 ;NO, ERROR !
1991 002755 313 13 0 00 010436 CAMLE T3,CRMMAX ;IS THIS GREATEST SO FAR ?
1992 002756 202 13 0 00 010436 MOVEM T3,CRMMAX ;YES, SAVE AS MAXIMUM
1993 002757 202 13 0 00 000016 MOVEM T3,INDX
1994 002760 221 16 0 00 000004 IMULI INDX,4 ;SETUP STORAGE INDEXER
1995
1996 002761 260 17 0 00 005237 GO GETWRD ;GET EXTRA SEPARATOR
1997 002762 302 11 0 00 000040 CAIE T1," " ;BETTER BE SPACE
1998 002763 254 00 0 00 004356 JRST ERRMC2 ;WASN'T, ERROR !
1999
2000 002764 260 17 0 00 005300 GO GETOCT ;GET LISTING BITS 00-11
2001 002765 242 13 0 00 000030 LSH T3,^D24 ;POSITION
2002 002766 202 13 0 00 000005 MOVEM T3,AC ;SAVE TILL FULL WORD FORMED
2003
2004 002767 260 17 0 00 005300 GO GETOCT ;GET LISTING BITS 12-23
2005 002770 242 13 0 00 000014 LSH T3,^D12 ;POSITION
2006 002771 436 13 0 00 000005 ORM T3,AC ;SAVE
2007
2008 002772 260 17 0 00 005300 GO GETOCT ;GET LISTING BITS 24-35
2009 002773 436 13 0 00 000005 ORM T3,AC ;SAVE
2010
2011 002774 202 05 0 16 402000 MOVEM AC,HICORE(INDX) ;PUT IN C-RAM STORAGE
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 12
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0088
2012
2013 002775 260 17 0 00 005300 GO GETOCT ;GET LISTING BITS 36-47
2014 002776 242 13 0 00 000030 LSH T3,^D24 ;POSITION
2015 002777 202 13 0 00 000005 MOVEM T3,AC
2016
2017 003000 260 17 0 00 005300 GO GETOCT ;GET LISTING BITS 48-59
2018 003001 242 13 0 00 000014 LSH T3,^D12 ;POSITION
2019 003002 436 13 0 00 000005 ORM T3,AC
2020
2021 003003 260 17 0 00 005300 GO GETOCT ;GET LISTING BITS 60-71
2022 003004 436 13 0 00 000005 ORM T3,AC
2023
2024 003005 202 05 0 16 402001 MOVEM AC,HICORE+1(INDX) ;PUT IN C-RAM STORAGE
2025
2026 003006 260 17 0 00 005300 GO GETOCT ;GET LISTING BITS 72-83
2027 003007 242 13 0 00 000030 LSH T3,^D24
2028 003010 202 13 0 00 000005 MOVEM T3,AC
2029
2030 003011 332 00 0 00 010465 SKIPE KSMICF
2031 003012 260 17 0 00 003024 GO KSCRAM ;KS-10, DO LISTING BITS 84-107
2032
2033 003013 202 05 0 16 402002 MOVEM AC,HICORE+2(INDX) ;PUT IN C-RAM STORAGE
2034
2035 003014 260 17 0 00 005237 GO GETWRD ;ADDITIONAL FORMAT CHECK
2036 003015 322 11 0 00 004356 JUMPE T1,ERRMC2 ;BYPASS EXTRA FIELD, TABS/SPACES
2037 003016 302 11 0 00 000073 CAIE T1,";" ;TILL SEMICOLON
2038 003017 254 00 0 00 003014 JRST .-3 ;IF RUN OUT OF LINE, ERROR !
2039
2040 003020 133 00 0 00 000012 IBP T2 ;BYPASS SPACE
2041 003021 260 17 0 00 005266 GO GETDEC ;GET LISTING SEQ NUMBER
2042 003022 202 13 0 16 402003 MOVEM T3,HICORE+3(INDX) ;PUT IN C-RAM STORAGE
2043
2044 003023 254 00 0 00 002352 JRST MICLP ;LOOP FOR NEXT
2045
2046 003024 260 17 0 00 005300 KSCRAM: GO GETOCT ;GET LISTING BITS 84-95
2047 003025 242 13 0 00 000014 LSH T3,^D12
2048 003026 436 13 0 00 000005 ORM T3,AC
2049
2050 003027 260 17 0 00 005300 GO GETOCT ;GET LISTING BITS 96-107
2051 003030 436 13 0 00 000005 ORM T3,AC
2052 003031 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 13
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0089
2053 003032 332 00 0 00 010465 CSHUF: SKIPE KSMICF
2054 003033 254 00 0 00 003544 JRST KSSHUF ;KS-10 MICRO-CODE
2055 003034 336 00 0 00 402003 SKIPN HICORE+3 ;C-RAM LOC 0 LOADED ?
2056 003035 254 00 0 00 003045 JRST CSHUF2 ;NO, NO "Z" BLOCK
2057 003036 402 00 0 00 002247 SETZM B11ADR ;CREATE C-RAM ZERO BLOCK
2058 003037 200 00 0 00 010436 MOVE CRMMAX ;CLEAR UP TO MAX USED
2059 003040 202 00 0 00 002251 MOVEM B11DAT
2060 003041 201 00 0 00 000001 MOVEI 1
2061 003042 202 00 0 00 002250 MOVEM B11CNT ;ONE DATA WORD
2062
2063 003043 260 17 0 00 001317 GO PUTZSP ;LINE STARTS WITH "Z" & "SPACE"
2064
2065 003044 260 17 0 00 002174 GO C11CNV ;ASCIIZE & OUTPUT
2066
2067 003045 402 00 0 00 000016 CSHUF2: SETZM INDX ;START AT C-RAM ADDRESS 0
2068 003046 402 00 0 00 002250 SETZM B11CNT
2069 003047 476 00 0 00 010432 SETOM CLCNT# ;INIT C-RAM LISTING COUNT
2070 003050 476 00 0 00 010437 SETOM CRMPRV# ;INIT C-RAM PREVIOUS ADDRESS
2071
2072 003051 200 00 0 00 000016 CSHUF1: MOVE INDX
2073 003052 231 00 0 00 000004 IDIVI 4
2074 003053 202 00 0 00 010435 MOVEM CRMADR#
2075
2076 003054 260 17 0 00 003071 GO C16SHF ;PROCESS AND OUTPUT C-RAM
2077
2078 003055 271 16 0 00 000004 ADDI INDX,4 ;STEP TO NEXT ADDRESS
2079 003056 302 16 0 00 020000 CAIE INDX,CRMSIZ*4 ;ARE WE DONE ?
2080 003057 254 00 0 00 003051 JRST CSHUF1 ;NO, DO NEXT ADDRESS
2081
2082 003060 336 00 0 00 002250 SKIPN B11CNT ;ANY DATA IN STORAGE
2083 003061 254 00 0 00 003064 JRST .+3 ;NO
2084 003062 260 17 0 00 003416 GO PUTCSP ;OUTPUT LAST BLOCK
2085 003063 260 17 0 00 002174 GO C11CNV
2086
2087 003064 402 00 0 00 002250 SETZM B11CNT ;WC=0 IS FINISH BLOCK
2088 003065 402 00 0 00 002247 SETZM B11ADR ;ADDR=0, NO START ADDRESS
2089 003066 260 17 0 00 003416 GO PUTCSP ;LINE STARTS WITH "C" & "SPACE"
2090 003067 260 17 0 00 002174 GO C11CNV ;ASCIIZE AND OUTPUT FINISH BLOCK
2091
2092 003070 254 00 0 00 002641 JRST DSHUF ;NOW GO DO D-RAM
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 14
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0090
2093 003071 336 00 0 16 402003 C16SHF: SKIPN HICORE+3(INDX) ;ANYTHING FOR THIS ADDRESS ?
2094 003072 263 17 0 00 000000 RTN ;NO, NO SEQUENCE NUMBER
2095
2096 003073 350 00 0 00 010437 AOS CRMPRV ;+1 TO PREVIOUS ADDRESS
2097 003074 200 00 0 00 010437 MOVE CRMPRV
2098 003075 312 00 0 00 010435 CAME CRMADR ;ARE ADDRESSES SEQUENTIAL ?
2099 003076 260 17 0 00 003152 GO CRMOUT ;NO, OUTPUT PREVIOUS BLOCK
2100 003077 200 05 0 00 000016 MOVE AC,INDX ;MULTIPLE OF 5 ADDRESSES ?
2101 003100 231 05 0 00 000024 IDIVI AC,^D5*4
2102 003101 336 00 0 00 000006 SKIPN AC+1
2103 003102 260 17 0 00 003152 GO CRMOUT ;YES, SETUP FOR BLOCK START
2104 003103 200 00 0 00 010435 MOVE CRMADR ;UPDATE PREVIOUS ADDRESS
2105 003104 202 00 0 00 010437 MOVEM CRMPRV ;TO THIS ONE
2106 003105 402 00 0 00 000015 SETZM CNT ;CLEAR OUTPUT BIT COUNTER
2107 003106 402 00 0 00 004431 SETZM CRM16 ;CLEAR ACTUAL C-RAM STORE
2108 003107 402 00 0 00 004432 SETZM CRM16+1
2109 003110 402 00 0 00 004433 SETZM CRM16+2
2110 003111 402 00 0 00 004434 SETZM CRM16+3
2111 003112 402 00 0 00 004435 SETZM CRM16+4
2112 003113 402 00 0 00 004436 SETZM CRM16+5
2113 003114 402 00 0 00 004430 SETZM CRM16-1 ;CLEAR UNUSED BIT STORAGE
2114
2115 003115 200 11 0 00 007617 MOVE T1,[POINT 1,HICORE(INDX)] ;LOAD POINTER
2116
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 15
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0091
2117 003116 134 12 0 00 000011 C16SHL: ILDB T2,T1 ;GET 1 BIT FROM STORAGE
2118
2119 003117 137 12 0 15 003420 DPB T2,CRAMPT(CNT) ;DEPOSIT IN ACTUAL C-RAM 16 BIT WORDS
2120
2121 003120 271 15 0 00 000001 ADDI CNT,1 ;ADVANCE TO NEXT BIT
2122 003121 302 15 0 00 000124 CAIE CNT,^D84 ;ALL BITS DONE ?
2123 003122 254 00 0 00 003116 JRST C16SHL ;NO, DO NEXT BIT
2124
2125 003123 332 00 0 00 004430 SKIPE CRM16-1 ;ANY UNUSED BITS SET ?
2126 003124 260 17 0 00 003147 GO CRMUNB ;YES, ERROR !
2127
2128 003125 200 00 0 00 004431 MOVE CRM16 ;TRANSFER 6 WORDS TO OUTPUT BUFFER
2129 003126 202 00 0 14 002251 MOVEM B11DAT(T4)
2130 003127 200 00 0 00 004432 MOVE CRM16+1
2131 003130 202 00 0 14 002252 MOVEM B11DAT+1(T4)
2132 003131 200 00 0 00 004433 MOVE CRM16+2
2133 003132 202 00 0 14 002253 MOVEM B11DAT+2(T4)
2134 003133 200 00 0 00 004434 MOVE CRM16+3
2135 003134 202 00 0 14 002254 MOVEM B11DAT+3(T4)
2136 003135 200 00 0 00 004435 MOVE CRM16+4
2137 003136 202 00 0 14 002255 MOVEM B11DAT+4(T4)
2138 003137 200 00 0 00 004436 MOVE CRM16+5
2139 003140 202 00 0 14 002256 MOVEM B11DAT+5(T4)
2140
2141 003141 201 05 0 00 000006 MOVEI AC,6 ;6 ELEVEN WORDS PER C-RAM WORD
2142 003142 272 05 0 00 002250 ADDM AC,B11CNT
2143 003143 272 05 0 00 000014 ADDM AC,T4 ;ADD 6 TO OUTPUT BUFFER INDEXER
2144
2145 003144 336 00 0 00 010474 SKIPN MNOLST ;DO LISTING ?
2146 003145 260 17 0 00 003164 GO CRMLST ;DO C-RAM LISTING LINE
2147
2148 003146 263 17 0 00 000000 RTN ;LOOP FOR NEXT C-RAM WORD
2149
2150 CRMUNB: MOVEI [ASCIZ/ERROR! CRAM UNUSED BITS
2151 003147 201 00 0 00 007620 /]
2152 003150 264 17 0 00 010277 PNTAL
2153 003151 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 16
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0092
2154 003152 332 00 0 00 002250 CRMOUT: SKIPE B11CNT ;ANY WORDS IN OUTPUT BUFFER
2155
2156 003153 260 17 0 00 003161 GO CRMCNV ;YES, ASCIIZE & OUTPUT
2157
2158 003154 200 05 0 00 000016 MOVE AC,INDX ;PICKUP ADDRESS
2159 003155 231 05 0 00 000004 IDIVI AC,4 ;DIVIDED BY 4
2160 003156 202 05 0 00 002247 MOVEM AC,B11ADR ;IS BLOCK START ADDRESS
2161 003157 403 14 0 00 002250 SETZB T4,B11CNT ;CLEAR STORAGE INDEXER
2162 003160 263 17 0 00 000000 RTN
2163
2164 003161 260 17 0 00 003416 CRMCNV: GO PUTCSP ;LINE STARTS WITH "C" & "SPACE"
2165
2166 003162 260 17 0 00 002174 GO C11CNV ;ASCIIZE & OUTPUT
2167
2168 003163 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 17
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0093
2169 003164 350 00 0 00 010432 CRMLST: AOS CLCNT ;INCREMENT C-RAM LINE COUNT
2170 003165 200 00 0 00 010432 MOVE CLCNT
2171 003166 606 00 0 00 000007 TRNN 7 ;MULTIPLE OF 10 LINES ?
2172 003167 260 17 0 00 003352 GO CHEADR ;YES, PUT HEADER IN
2173
2174 003170 260 17 0 00 003343 GO PCADR ;PRINT C-RAM ADDRESS
2175
2176 003171 200 00 0 00 004435 MOVE CRM16+4
2177 003172 264 06 0 00 010277 PNT6 ;PRINT ACTUAL BITS 00-15
2178 003173 200 00 0 00 004434 MOVE CRM16+3
2179 003174 264 06 0 00 010277 PNT6 ;PRINT ACTUAL BITS 16-31
2180 003175 200 00 0 00 004433 MOVE CRM16+2
2181 003176 264 06 0 00 010277 PNT6 ;PRINT ACTUAL BITS 32-47
2182 003177 200 00 0 00 004432 MOVE CRM16+1
2183 003200 264 06 0 00 010277 PNT6 ;PRINT ACTUAL BITS 48-63
2184 003201 200 00 0 00 004431 MOVE CRM16
2185 003202 264 06 0 00 010277 PNT6 ;PRINT ACTUAL BITS 64-79
2186 003203 201 00 0 00 000040 MOVEI " "
2187 003204 264 12 0 00 010277 PNTCHR
2188 003205 135 00 0 00 007626 LDB [POINT 6,CRM16+5,35]
2189 003206 264 02 0 00 010277 PNT2 ;PRINT ACTUAL BITS, SPEC 0-5
2190
2191 003207 201 00 0 00 006734 MOVEI TAB
2192 003210 264 00 0 00 010277 PNTA
2193 003211 201 00 0 00 000073 MOVEI ";"
2194 003212 264 12 0 00 010277 PNTCHR
2195 003213 201 00 0 00 000040 MOVEI " "
2196 003214 264 12 0 00 010277 PNTCHR
2197 003215 200 00 0 16 402003 MOVE HICORE+3(INDX)
2198 003216 264 15 0 00 010277 PNTDEC ;PRINT LISTING SEQ # FOR THIS WORD
2199 003217 201 00 0 00 006734 MOVEI TAB
2200 003220 264 00 0 00 010277 PNTA
2201
2202 003221 260 17 0 00 003343 GO PCADR ;PRINT C-RAM ADDRESS
2203
2204 003222 135 00 0 00 007627 LDB [POINT 11,HICORE(INDX),11]
2205 003223 264 04 0 00 010277 PNT4 ;PRINT J FIELD
2206
2207 003224 135 00 0 00 007630 LDB [POINT 2,HICORE+1(INDX),19]
2208 003225 264 01 0 00 010277 PNT1 ;PRINT T FIELD
2209
2210 003226 135 05 0 00 007631 LDB AC,[POINT 3,HICORE(INDX),29]
2211 003227 242 05 0 00 000003 LSH AC,3
2212 003230 135 00 0 00 007632 LDB 0,[POINT 3,HICORE(INDX),26]
2213 003231 434 00 0 00 000005 OR 0,AC
2214 003232 264 02 0 00 010277 PNT2 ;PRINT AR FIELD
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 18
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0094
2215 003233 135 05 0 00 007633 LDB AC,[POINT 2,HICORE(INDX),23]
2216 003234 242 05 0 00 000011 LSH AC,^D9
2217 003235 200 00 0 00 000005 MOVE 0,AC
2218 003236 135 05 0 00 007634 LDB AC,[POINT 3,HICORE(INDX),20]
2219 003237 242 05 0 00 000006 LSH AC,6
2220 003240 434 00 0 00 000005 OR 0,AC
2221 003241 135 05 0 00 007635 LDB AC,[POINT 6,HICORE(INDX),17]
2222 003242 434 00 0 00 000005 OR 0,AC
2223 003243 264 04 0 00 010277 PNT4 ;PRINT AD FIELD
2224
2225 003244 135 05 0 00 007636 LDB AC,[POINT 1,HICORE(INDX),31]
2226 003245 242 05 0 00 000001 LSH AC,1
2227 003246 135 00 0 00 007637 LDB 0,[POINT 1,HICORE(INDX),30]
2228 003247 434 00 0 00 000005 OR 0,AC
2229 003250 264 01 0 00 010277 PNT1 ;PRINT BR FIELD
2230
2231 003251 201 00 0 00 000040 MOVEI " "
2232 003252 264 12 0 00 010277 PNTCHR
2233 003253 135 00 0 00 007640 LDB [POINT 1,HICORE(INDX),32]
2234 003254 264 01 0 00 010277 PNT1 ;PRINT MQ FIELD
2235
2236 003255 201 00 0 00 000040 MOVEI " "
2237 003256 264 12 0 00 010277 PNTCHR
2238 003257 135 00 0 00 007641 LDB [POINT 3,HICORE(INDX),35]
2239 003260 264 01 0 00 010277 PNT1 ;PRINT FM FIELD
2240
2241 003261 201 00 0 00 000040 MOVEI " "
2242 003262 264 12 0 00 010277 PNTCHR
2243 003263 135 05 0 00 007642 LDB AC,[POINT 2,HICORE+1(INDX),8]
2244 003264 242 05 0 00 000006 LSH AC,6
2245 003265 200 00 0 00 000005 MOVE 0,AC
2246 003266 135 05 0 00 007643 LDB AC,[POINT 3,HICORE+1(INDX),5]
2247 003267 242 05 0 00 000003 LSH AC,3
2248 003270 434 00 0 00 000005 OR 0,AC
2249 003271 135 05 0 00 007644 LDB AC,[POINT 3,HICORE+1(INDX),2]
2250 003272 434 00 0 00 000005 OR 0,AC
2251 003273 264 03 0 00 010277 PNT3 ;PRINT SCAD FIELD
2252
2253 003274 201 00 0 00 000040 MOVEI " "
2254 003275 264 12 0 00 010277 PNTCHR
2255 003276 135 00 0 00 007645 LDB [POINT 1,HICORE+1(INDX),10]
2256 003277 264 01 0 00 010277 PNT1 ;PRINT SC FIELD
2257
2258 003300 201 00 0 00 000040 MOVEI " "
2259 003301 264 12 0 00 010277 PNTCHR
2260 003302 135 00 0 00 007646 LDB [POINT 1,HICORE+1(INDX),11]
2261 003303 264 01 0 00 010277 PNT1 ;PRINT FE FIELD
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 19
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0095
2262 003304 201 00 0 00 000040 MOVEI " "
2263 003305 264 12 0 00 010277 PNTCHR
2264 003306 135 00 0 00 007647 LDB [POINT 2,HICORE+1(INDX),14]
2265 003307 264 01 0 00 010277 PNT1 ;PRINT SH FIELD
2266
2267 003310 135 00 0 00 007650 LDB [POINT 9,HICORE+2(INDX),11]
2268 003311 264 03 0 00 010277 PNT3 ;PRINT # FIELD
2269
2270 003312 201 00 0 00 000040 MOVEI " "
2271 003313 264 12 0 00 010277 PNTCHR
2272 003314 135 00 0 00 007651 LDB [POINT 2,HICORE+1(INDX),17]
2273 003315 264 01 0 00 010277 PNT1 ;PRINT VMA FIELD
2274
2275 003316 201 00 0 00 000040 MOVEI " "
2276 003317 264 12 0 00 010277 PNTCHR
2277 003320 135 00 0 00 007652 LDB [POINT 4,HICORE+1(INDX),23]
2278 003321 264 02 0 00 010277 PNT2 ;PRINT MEM FIELD
2279
2280 003322 201 00 0 00 000040 MOVEI " "
2281 003323 264 12 0 00 010277 PNTCHR
2282 003324 201 00 0 00 000040 MOVEI " "
2283 003325 264 12 0 00 010277 PNTCHR
2284 003326 135 00 0 00 007653 LDB [POINT 6,HICORE+1(INDX),29]
2285 003327 264 02 0 00 010277 PNT2 ;PRINT COND FIELD
2286
2287 003330 201 00 0 00 000040 MOVEI " "
2288 003331 264 12 0 00 010277 PNTCHR
2289 003332 201 00 0 00 000040 MOVEI " "
2290 003333 264 12 0 00 010277 PNTCHR
2291 003334 135 00 0 00 007654 LDB [POINT 6,HICORE+1(INDX),35]
2292 003335 264 02 0 00 010277 PNT2 ;PRINT SPEC FIELD
2293
2294 003336 135 00 0 00 007655 LDB [POINT 1,HICORE+2(INDX),2]
2295 003337 264 01 0 00 010277 PNT1 ;PRINT MARK BIT
2296
2297 003340 201 00 0 00 006727 MOVEI CRLF
2298 003341 264 00 0 00 010277 PNTA ;THATS THE END OF THE LINE !!
2299 003342 263 17 0 00 000000 RTN
2300
2301 003343 402 00 0 00 010507 PCADR: SETZM PNTSPC
2302 003344 200 00 0 00 010435 MOVE CRMADR
2303 003345 264 04 0 00 010277 PNT4 ;PRINT C-RAM ADDRESS
2304 003346 476 00 0 00 010507 SETOM PNTSPC
2305 003347 201 00 0 00 000057 MOVEI "/"
2306 003350 264 12 0 00 010277 PNTCHR
2307 003351 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 20
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0096
2308
2309 003352 606 00 0 00 000037 CHEADR: TRNN 37 ;MULTIPLE OF 40 ADDRESSES ?
2310 003353 260 17 0 00 003357 GO CNEWPG ;YES, DO NEW PAGE
2311
2312 003354 201 00 0 00 003363 MOVEI CHEAD
2313 003355 264 17 0 00 010277 PNTAL ;PRINT HEADER
2314 003356 263 17 0 00 000000 RTN
2315
2316 003357 201 00 0 00 000014 CNEWPG: MOVEI 14
2317 003360 264 12 0 00 010277 PNTCHR ;PRINT FORM-FEED
2318 003361 260 17 0 00 005447 GO PAGHDR ;PUT HEADER ON PAGE
2319 003362 263 17 0 00 000000 RTN
2320
2321 003363 CHEAD: ASCIZ?
2322 ADR/00--15 16--31 32--47 48--63 64--79 0-5 (SEQ#) ADR/ J T AR AD BR MQ FM SCAD SC
2323 003363 015 012 040 101 104 FE SH # VMA MEM COND SPEC M
2324 003364 122 057 060 060 055
2325 003365 055 061 065 040 061
2326 003366 066 055 055 063 061
2327 003367 040 063 062 055 055
2328 003370 064 067 040 064 070
2329 003371 055 055 066 063 040
2330 003372 066 064 055 055 067
2331 003373 071 040 060 055 065
2332 003374 011 050 123 105 121
2333 003375 043 051 011 040 101
2334 003376 104 122 057 040 040
2335 003377 112 040 040 124 040
2336 003400 101 122 040 040 101
2337 003401 104 040 102 122 040
2338 003402 115 121 040 106 115
2339 003403 040 123 103 101 104
2340 003404 040 123 103 040 106
2341 003405 105 040 123 110 040
2342 003406 040 043 040 126 115
2343 003407 101 040 115 105 115
2344 003410 040 103 117 116 104
2345 003411 040 123 120 105 103
2346 003412 040 115 015 012 015
2347 003413 012 000 000 000 000 ?
2348
2349 003414 201 07 0 00 000104 PUTDSP: MOVEI CHR,"D"
2350 003415 254 00 0 00 001313 JRST PUTTSP+1
2351
2352 003416 201 07 0 00 000103 PUTCSP: MOVEI CHR,"C"
2353 003417 254 00 0 00 001313 JRST PUTTSP+1
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 21
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0097
2354 003420 00 01 0 00 004430 CRAMPT: POINT 1,CRM16-1,35 ;UNUSED 0
2355 003421 12 01 0 00 004435 POINT 1,CRM16+4,25 ;J00
2356 003422 11 01 0 00 004435 POINT 1,CRM16+4,26 ;J01
2357 003423 10 01 0 00 004435 POINT 1,CRM16+4,27 ;J02
2358 003424 07 01 0 00 004435 POINT 1,CRM16+4,28 ;J03
2359 003425 06 01 0 00 004435 POINT 1,CRM16+4,29 ;J04
2360 003426 05 01 0 00 004435 POINT 1,CRM16+4,30 ;J05
2361 003427 04 01 0 00 004435 POINT 1,CRM16+4,31 ;J06
2362 003430 03 01 0 00 004435 POINT 1,CRM16+4,32 ;J07
2363 003431 02 01 0 00 004435 POINT 1,CRM16+4,33 ;J08
2364 003432 01 01 0 00 004435 POINT 1,CRM16+4,34 ;J09 10
2365 003433 00 01 0 00 004435 POINT 1,CRM16+4,35 ;J10
2366 003434 05 01 0 00 004431 POINT 1,CRM16+0,30 ;AD CRY
2367 003435 07 01 0 00 004434 POINT 1,CRM16+3,28 ;AD BOOLE
2368 003436 13 01 0 00 004434 POINT 1,CRM16+3,24 ;AD SEL 8
2369 003437 12 01 0 00 004434 POINT 1,CRM16+3,25 ;AD SEL 4
2370 003440 11 01 0 00 004434 POINT 1,CRM16+3,26 ;AD SEL 2
2371 003441 10 01 0 00 004434 POINT 1,CRM16+3,27 ;AD SEL 1
2372 003442 06 01 0 00 004434 POINT 1,CRM16+3,29 ;ADA DIS
2373 003443 05 01 0 00 004434 POINT 1,CRM16+3,30 ;ADA SEL 2
2374 003444 04 01 0 00 004434 POINT 1,CRM16+3,31 ;ADA SEL 1 20
2375 003445 01 01 0 00 004430 POINT 1,CRM16-1,34 ;UNUSED
2376 003446 03 01 0 00 004434 POINT 1,CRM16+3,32 ;ADB SEL 2
2377 003447 17 01 0 00 004433 POINT 1,CRM16+2,20 ;ADB SEL 1
2378 003450 02 01 0 00 004433 POINT 1,CRM16+2,33 ;ARM SEL 4
2379 003451 17 01 0 00 004431 POINT 1,CRM16+0,20 ;ARM SEL 2
2380 003452 15 01 0 00 004431 POINT 1,CRM16+0,22 ;ARM SEL 1
2381 003453 13 01 0 00 004433 POINT 1,CRM16+2,24 ;ARXM SEL 4
2382 003454 13 01 0 00 004431 POINT 1,CRM16+0,24 ;ARXM SEL 2
2383 003455 11 01 0 00 004431 POINT 1,CRM16+0,26 ;ARXM SEL 1
2384 003456 13 01 0 00 004432 POINT 1,CRM16+1,24 ;BR LOAD 30
2385 003457 11 01 0 00 004432 POINT 1,CRM16+1,26 ;BRX LOAD
2386 003460 17 01 0 00 004434 POINT 1,CRM16+3,20 ;MQ SEL
2387 003461 07 01 0 00 004432 POINT 1,CRM16+1,28 ;FM ADR SEL 4
2388 003462 06 01 0 00 004432 POINT 1,CRM16+1,29 ;FM ADR SEL 2
2389 003463 05 01 0 00 004432 POINT 1,CRM16+1,30 ;FMADR SEL 1 35
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 22
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0098
2390 003464 16 01 0 00 004435 POINT 1,CRM16+4,21 ;SCAD 4 36
2391 003465 15 01 0 00 004435 POINT 1,CRM16+4,22 ;SCAD 2
2392 003466 14 01 0 00 004435 POINT 1,CRM16+4,23 ;SCAD 1
2393 003467 17 01 0 00 004435 POINT 1,CRM16+4,20 ;SCADA DIS
2394 003470 07 01 0 00 004433 POINT 1,CRM16+2,28 ;SCADA SEL 2 40
2395 003471 06 01 0 00 004433 POINT 1,CRM16+2,29 ;SCADA SEL 1
2396 003472 02 01 0 00 004430 POINT 1,CRM16-1,33 ;UNUSED
2397 003473 05 01 0 00 004433 POINT 1,CRM16+2,30 ;SCADB SEL 2
2398 003474 03 01 0 00 004432 POINT 1,CRM16+1,32 ;SCADB SEL 1
2399 003475 03 01 0 00 004430 POINT 1,CRM16-1,32 ;UNUSED
2400 003476 01 01 0 00 004432 POINT 1,CRM16+1,34 ;SCM SEL 2
2401 003477 13 01 0 00 004435 POINT 1,CRM16+4,24 ;FE LOAD
2402 003500 04 01 0 00 004430 POINT 1,CRM16-1,31 ;UNUSED
2403 003501 01 01 0 00 004433 POINT 1,CRM16+2,34 ;ARMM SEL 2
2404 003502 00 01 0 00 004433 POINT 1,CRM16+2,35 ;ARMM SEL 1 50
2405 003503 05 01 0 00 004430 POINT 1,CRM16-1,30 ;UNUSED
2406 003504 03 01 0 00 004433 POINT 1,CRM16+2,32 ;VMAM SEL 2
2407 003505 07 01 0 00 004431 POINT 1,CRM16+0,28 ;VMAM SEL 1
2408 003506 03 01 0 00 004431 POINT 1,CRM16+0,32 ;T00
2409 003507 01 01 0 00 004431 POINT 1,CRM16+0,34 ;T01
2410 003510 17 01 0 00 004432 POINT 1,CRM16+1,20 ;MEM 00
2411 003511 16 01 0 00 004432 POINT 1,CRM16+1,21 ;MEM 01
2412 003512 15 01 0 00 004432 POINT 1,CRM16+1,22 ;MEM 02
2413 003513 14 01 0 00 004432 POINT 1,CRM16+1,23 ;MEM 03
2414 003514 16 01 0 00 004434 POINT 1,CRM16+3,21 ;COND 00 60
2415 003515 15 01 0 00 004434 POINT 1,CRM16+3,22 ;COND 01
2416 003516 14 01 0 00 004434 POINT 1,CRM16+3,23 ;COND 02
2417 003517 12 01 0 00 004432 POINT 1,CRM16+1,25 ;COND 03
2418 003520 10 01 0 00 004432 POINT 1,CRM16+1,27 ;COND 04
2419 003521 04 01 0 00 004432 POINT 1,CRM16+1,31 ;COND 05
2420 003522 05 01 0 00 004436 POINT 1,CRM16+5,30 ;CALL (EXTENDED ADDRESSING)
2421 003523 04 01 0 00 004436 POINT 1,CRM16+5,31 ;SPEC 00
2422 003524 03 01 0 00 004436 POINT 1,CRM16+5,32 ;SPEC 01
2423 003525 02 01 0 00 004436 POINT 1,CRM16+5,33 ;SPEC 02
2424 003526 01 01 0 00 004436 POINT 1,CRM16+5,34 ;SPEC 03 70
2425 003527 00 01 0 00 004436 POINT 1,CRM16+5,35 ;SPEC 04 71
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 23
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0099
2426 003530 07 01 0 00 004430 POINT 1,CRM16-1,28 ;UNUSED 72
2427 003531 10 01 0 00 004430 POINT 1,CRM16-1,27 ;UNUSED
2428 003532 04 01 0 00 004433 POINT 1,CRM16+2,31 ;MARK
2429 003533 02 01 0 00 004434 POINT 1,CRM16+3,33 ;# 00
2430 003534 01 01 0 00 004434 POINT 1,CRM16+3,34 ;# 01
2431 003535 00 01 0 00 004434 POINT 1,CRM16+3,35 ;# 02
2432 003536 16 01 0 00 004433 POINT 1,CRM16+2,21 ;# 03
2433 003537 15 01 0 00 004433 POINT 1,CRM16+2,22 ;# 04
2434 003540 14 01 0 00 004433 POINT 1,CRM16+2,23 ;# 05 80
2435 003541 12 01 0 00 004433 POINT 1,CRM16+2,25 ;# 06
2436 003542 11 01 0 00 004433 POINT 1,CRM16+2,26 ;# 07
2437 003543 10 01 0 00 004433 POINT 1,CRM16+2,27 ;# 08 83
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 24
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0100
2438 ;*KS-10 MICRO-CODE PROCESS
2439
2440 003544 402 00 0 00 000016 KSSHUF: SETZM INDX
2441 003545 476 00 0 00 010432 SETOM CLCNT
2442 003546 476 00 0 00 010437 SETOM CRMPRV
2443
2444 003547 200 00 0 00 000016 KSSHF1: MOVE INDX
2445 003550 231 00 0 00 000004 IDIVI 4
2446 003551 202 00 0 00 010435 MOVEM CRMADR ;SETUP C-RAM ADDRESS
2447
2448 003552 260 17 0 00 003564 GO KSSHF3 ;PROCESS & OUTPUT C-RAM
2449
2450 003553 271 16 0 00 000004 ADDI INDX,4 ;STEP TO NEXT ADDRESS
2451 003554 302 16 0 00 020000 CAIE INDX,CRMSIZ*4 ;ARE WE DONE ?
2452 003555 254 00 0 00 003547 JRST KSSHF1 ;NO, DO NEXT ADDRESS
2453
2454 003556 201 00 0 00 000014 MOVEI 14
2455 003557 264 12 0 00 010277 PNTCHR ;FINISH LISTING WITH FORM-FEED
2456
2457 003560 265 00 0 00 007326 DROPDV ;CLOSE OUT LISTING
2458
2459 003561 260 17 0 00 004233 GO RSQSHF ;DO SEQUENCE NUMBER FILE
2460
2461 003562 402 00 0 00 000227 SETZM SWTEXR
2462 003563 254 00 0 00 001246 JRST C11DON+1 ;CLOSE OUT REST
2463
2464 003564 400 15 0 00 000000 KSSHF3: SETZ CNT,
2465 003565 403 06 0 00 000007 SETZB 6,7
2466 003566 403 10 0 00 000011 SETZB 10,11
2467 003567 336 00 0 16 402003 SKIPN HICORE+3(INDX) ;ANYTHING FOR THIS ADDRESS ?
2468 003570 254 00 0 00 003601 JRST KSXX ;NO, NO SEQUENCE NUMBER
2469
2470 003571 200 13 0 00 007617 MOVE T3,[POINT 1,HICORE(INDX)]
2471 003572 200 00 0 00 007656 MOVE 0,[ILDB T4,T3]
2472 003573 200 01 0 00 007657 MOVE 1,[DPB T4,KSCRMP(CNT)]
2473 003574 200 02 0 00 007660 MOVE 2,[ADDI CNT,1]
2474 003575 200 03 0 00 007661 MOVE 3,[CAIE CNT,^D108]
2475 003576 200 04 0 00 007662 MOVE 4,[JRST 0]
2476 003577 200 05 0 00 007663 MOVE 5,[JRST KSXX]
2477 003600 254 00 0 00 000000 JRST 0 ;CONVERT CRAM BITS
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 25
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0101
2478
2479 003601 202 06 0 00 003646 KSXX: MOVEM 6,CRM36-1
2480
2481 003602 200 13 0 00 007664 MOVE T3,[POINT 1,7]
2482 003603 201 00 0 00 000044 MOVEI 0,^D36
2483 003604 400 01 0 00 000000 SETZ 1,
2484 003605 200 02 0 00 007665 MOVE 2,[ILDB 6,T3]
2485 003606 200 03 0 00 007666 MOVE 3,[ADD 1,6]
2486 003607 200 04 0 00 007667 MOVE 4,[SOJG 0,2]
2487 003610 200 05 0 00 007670 MOVE 5,[JRST KSXX1]
2488 003611 254 00 0 00 000002 JRST 2 ;COMPUTE CRAM PARITY "CRA"
2489
2490 003612 650 01 0 00 003645 KSXX1: TDC 1,KSPARF
2491 003613 137 01 0 00 004230 DPB 1,PB.CRA
2492
2493 003614 201 00 0 00 000074 MOVEI 0,^D60
2494 003615 400 01 0 00 000000 SETZ 1,
2495 003616 200 05 0 00 007671 MOVE 5,[JRST KSXX2]
2496 003617 254 00 0 00 000002 JRST 2 ;COMPUTE CRAM PARITY "CRM"
2497
2498 003620 650 01 0 00 003645 KSXX2: TDC 1,KSPARF
2499 003621 137 01 0 00 004231 DPB 1,PB.CRM
2500
2501 003622 202 07 0 00 003647 MOVEM 7,CRM36 ;STORE CONVERTED CRAM BITS
2502 003623 202 10 0 00 003650 MOVEM 10,CRM36+1
2503 003624 202 11 0 00 003651 MOVEM 11,CRM36+2
2504
2505 003625 332 00 0 00 003646 SKIPE CRM36-1 ;ANY UNUSED BITS SET ?
2506 003626 260 17 0 00 003147 GO CRMUNB ;YES, ERROR
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 26
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0102
2507
2508 003627 200 06 0 00 003650 KSSHF5: MOVE CHR-1,CRM36+1
2509 003630 200 07 0 00 003651 MOVE CHR,CRM36+2
2510 003631 246 06 0 00 777764 LSHC CHR-1,-^D12
2511 003632 260 17 0 00 001270 GO PUT1 ;OUTPUT BITS 60-95
2512
2513 003633 200 06 0 00 003647 MOVE CHR-1,CRM36
2514 003634 200 07 0 00 003650 MOVE CHR,CRM36+1
2515 003635 246 06 0 00 777764 LSHC CHR-1,-^D12
2516 003636 260 17 0 00 001270 GO PUT1 ;OUTPUT BITS 24-59
2517
2518 003637 200 07 0 00 003647 MOVE CHR,CRM36
2519 003640 242 07 0 00 777764 LSH CHR,-^D12
2520 003641 260 17 0 00 001270 GO PUT1 ;OUTPUT BITS 0-23
2521
2522 003642 332 00 0 16 402003 SKIPE HICORE+3(INDX) ;ANYTHING FOR THIS ADDRESS ?
2523 003643 260 17 0 00 003652 GO KSCLST ;YES, DO C-RAM LISTING LINE
2524
2525 003644 263 17 0 00 000000 RTN
2526
2527 003645 000000 000000 KSPARF: 0 ;KS-10 PARITY SENSE, 0=EVEN -1=ODD
2528 003646 000000 000000 0
2529 003647 000000 000000 CRM36: 0
2530 003650 000000 000000 0
2531 003651 000000 000000 0
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 27
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0103
2532
2533 003652 350 00 0 00 010432 KSCLST: AOS CLCNT ;INCREMENT C-RAM LINE COUNT
2534 003653 200 00 0 00 010432 MOVE CLCNT
2535 003654 606 00 0 00 000007 TRNN 7 ;MULTIPLE OF 8 LINES ?
2536 003655 260 17 0 00 004012 GO KHEADR ;YES, PUT HEADER IN
2537
2538 003656 260 17 0 00 003343 GO PCADR ;PRINT C-RAM ADDRESS
2539
2540 003657 402 00 0 00 010507 SETZM PNTSPC
2541
2542 003660 200 00 0 00 003647 MOVE CRM36
2543 003661 264 14 0 00 010277 PNTOCT ;PRINT BITS 00-35
2544
2545 003662 200 00 0 00 003650 MOVE CRM36+1
2546 003663 264 14 0 00 010277 PNTOCT ;PRINT BITS 36-71
2547
2548 003664 200 00 0 00 003651 MOVE CRM36+2
2549 003665 242 00 0 00 777764 LSH ^D-12
2550 003666 264 10 0 00 010277 PNTADR ;PRINT BITS 72-95
2551
2552 003667 201 00 0 00 006734 MOVEI TAB
2553 003670 264 00 0 00 010277 PNTA
2554 003671 201 00 0 00 000073 MOVEI ";"
2555 003672 264 12 0 00 010277 PNTCHR
2556 003673 201 00 0 00 000040 MOVEI " "
2557 003674 264 12 0 00 010277 PNTCHR
2558
2559 003675 200 00 0 16 402003 MOVE HICORE+3(INDX)
2560 003676 264 15 0 00 010277 PNTDEC ;PRINT LISTING SEQ # FOR THIS WORD
2561
2562 003677 201 00 0 00 006734 MOVEI TAB
2563 003700 264 00 0 00 010277 PNTA
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 28
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0104
2564
2565 003701 476 00 0 00 010507 SETOM PNTSPC
2566
2567 003702 135 00 0 00 007672 LDB [POINT 1,HICORE+2(INDX),8]
2568 003703 264 01 0 00 010277 PNT1 ;PRINT "CALL"
2569
2570 003704 135 00 0 00 007673 LDB [POINT 12,HICORE(INDX),11]
2571 003705 264 04 0 00 010277 PNT4 ;PRINT "J"
2572
2573 003706 135 00 0 00 007674 LDB [POINT 18,HICORE+2(INDX),35]
2574 003707 264 06 0 00 010277 PNT6 ;PRINT "#"
2575
2576 003710 135 00 0 00 007675 LDB [POINT 3,HICORE(INDX),14]
2577 003711 264 01 0 00 010277 PNT1 ;PRINT "ALU"
2578
2579 003712 135 00 0 00 007676 LDB [POINT 9,HICORE(INDX),23]
2580 003713 264 03 0 00 010277 PNT3 ;PRINT "S/D"
2581
2582 003714 135 05 0 00 007677 LDB AC,[POINT 4,HICORE(INDX),29]
2583 003715 242 05 0 00 777772 LSH AC,-6
2584 003716 135 00 0 00 007700 LDB [POINT 4,HICORE(INDX),35]
2585 003717 434 00 0 00 000005 OR 0,AC
2586 003720 264 04 0 00 010277 PNT4 ;PRINT "A/B"
2587
2588 003721 402 00 0 00 010507 SETZM PNTSPC
2589
2590 003722 135 00 0 00 007644 LDB [POINT 3,HICORE+1(INDX),2]
2591 003723 264 01 0 00 010277 PNT1 ;PRINT "RAMADR"
2592
2593 003724 135 00 0 00 007701 LDB [POINT 2,HICORE+1(INDX),5]
2594 003725 264 01 0 00 010277 PNT1 ;PRINT "DBUS"
2595
2596 003726 135 00 0 00 007702 LDB [POINT 3,HICORE+1(INDX),8]
2597 003727 264 01 0 00 010277 PNT1 ;PRINT "DBM SEL"
2598
2599 003730 476 00 0 00 010507 SETOM PNTSPC
2600 003731 201 00 0 00 007613 MOVEI [ASCII/ /]
2601 003732 264 00 0 00 010277 PNTA
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 29
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0105
2602
2603 003733 135 00 0 00 007703 LDB [POINT 6,HICORE+1(INDX),20]
2604 003734 264 02 0 00 010277 PNT2 ;PRINT "SPEC"
2605
2606 003735 201 00 0 00 007704 MOVEI [ASCII/ /]
2607 003736 264 00 0 00 010277 PNTA
2608
2609 003737 135 00 0 00 007705 LDB [POINT 6,HICORE+1(INDX),26]
2610 003740 264 02 0 00 010277 PNT2 ;PRINT "DISP"
2611
2612 003741 201 00 0 00 007704 MOVEI [ASCII/ /]
2613 003742 264 00 0 00 010277 PNTA
2614
2615 003743 135 00 0 00 007706 LDB [POINT 6,HICORE+1(INDX),32]
2616 003744 264 02 0 00 010277 PNT2 ;PRINT "SKIP"
2617
2618 003745 135 00 0 00 007707 LDB [POINT 2,HICORE+1(INDX),35]
2619 003746 264 01 0 00 010277 PNT1 ;PRINT "TIME"
2620
2621 003747 135 00 0 00 007710 LDB [POINT 1,HICORE+2(INDX),0]
2622 003750 264 01 0 00 010277 PNT1 ;PRINT "CARRY"
2623
2624 003751 201 00 0 00 000040 MOVEI " "
2625 003752 264 12 0 00 010277 PNTCHR
2626
2627 003753 135 00 0 00 007711 LDB [POINT 1,HICORE+2(INDX),1]
2628 003754 264 01 0 00 010277 PNT1 ;PRINT "LOAD SC"
2629
2630 003755 201 00 0 00 000040 MOVEI " "
2631 003756 264 12 0 00 010277 PNTCHR
2632
2633 003757 135 00 0 00 007655 LDB [POINT 1,HICORE+2(INDX),2]
2634 003760 264 01 0 00 010277 PNT1 ;PRINT "LOAD FE"
2635
2636 003761 201 00 0 00 000040 MOVEI " "
2637 003762 264 12 0 00 010277 PNTCHR
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 30
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0106
2638
2639 003763 135 00 0 00 007712 LDB [POINT 1,HICORE+2(INDX),3]
2640 003764 264 01 0 00 010277 PNT1 ;PRINT "FM WRITE"
2641
2642 003765 201 00 0 00 000040 MOVEI " "
2643 003766 264 12 0 00 010277 PNTCHR
2644
2645 003767 135 00 0 00 007713 LDB [POINT 1,HICORE+2(INDX),4]
2646 003770 264 01 0 00 010277 PNT1 ;PRINT "MEM CYCLE"
2647
2648 003771 201 00 0 00 000040 MOVEI " "
2649 003772 264 12 0 00 010277 PNTCHR
2650
2651 003773 135 00 0 00 007714 LDB [POINT 1,HICORE+2(INDX),5]
2652 003774 264 01 0 00 010277 PNT1 ;PRINT "DIVIDE"
2653
2654 003775 201 00 0 00 000040 MOVEI " "
2655 003776 264 12 0 00 010277 PNTCHR
2656
2657 003777 135 00 0 00 007715 LDB [POINT 2,HICORE+2(INDX),7]
2658 004000 264 01 0 00 010277 PNT1 ;PRINT "MULTI PREC & MULTI SHIFT"
2659
2660 004001 201 00 0 00 000040 MOVEI " "
2661 004002 264 12 0 00 010277 PNTCHR
2662
2663 004003 135 00 0 00 007716 LDB [POINT 3,HICORE+1(INDX),11]
2664 004004 264 01 0 00 010277 PNT1 ;PRINT "CLK/GEN/CHK LEFT"
2665
2666 004005 135 00 0 00 007717 LDB [POINT 3,HICORE+1(INDX),14]
2667 004006 264 01 0 00 010277 PNT1 ;PRINT "CLK/GEN/CHK RIGHT"
2668
2669 004007 201 00 0 00 006727 MOVEI CRLF
2670 004010 264 00 0 00 010277 PNTA
2671 004011 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 31
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0107
2672
2673 004012 606 00 0 00 000037 KHEADR: TRNN 37 ;MULTIPLE OF 40 ADDRESSES ?
2674 004013 260 17 0 00 004017 GO KNEWPG ;YES, DO NEW PAGE
2675
2676 004014 201 00 0 00 004023 MOVEI KHEAD
2677 004015 264 17 0 00 010277 PNTAL ;PRINT HEADER
2678 004016 263 17 0 00 000000 RTN
2679
2680 004017 201 00 0 00 000014 KNEWPG: MOVEI 14
2681 004020 264 12 0 00 010277 PNTCHR ;PRINT FORM-FEED
2682 004021 260 17 0 00 005447 GO PAGHDR ;PUT HEADER ON PAGE
2683 004022 263 17 0 00 000000 RTN
2684
2685 004023 KHEAD: ASCIZ?
2686 ADR/00-- --95 ; SEQ# C J # ALU S/D A/B RBM SPEC DISP SKIP
2687 004023 015 012 040 101 104 T C SC FE FM MC DV MP C/LR
2688 004024 122 057 060 060 055
2689 004025 055 040 040 040 040
2690 004026 040 040 040 040 040
2691 004027 040 040 040 040 040
2692 004030 040 040 040 040 040
2693 004031 040 040 040 040 040
2694 004032 055 055 071 065 040
2695 004033 040 040 073 040 123
2696 004034 105 121 043 040 040
2697 004035 103 040 040 040 040
2698 004036 112 040 040 040 043
2699 004037 040 040 101 114 125
2700 004040 040 123 057 104 040
2701 004041 040 101 057 102 040
2702 004042 122 102 115 040 123
2703 004043 120 105 103 040 104
2704 004044 111 123 120 040 123
2705 004045 113 111 120 040 124
2706 004046 040 103 040 123 103
2707 004047 040 106 105 040 106
2708 004050 115 040 115 103 040
2709 004051 104 126 040 115 120
2710 004052 040 103 057 114 122
2711
2712 004053 015 012 015 012 000 ?
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 32
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0108
2713 SALL
2714 DEFINE CRMUNU(BIT),<
2715 POINT 1,6,BIT>
2716 DEFINE CRMBIT(BIT),<
2717 IFL BIT-^D36,<
2718 POINT 1,7,BIT
2719 >
2720 IFGE BIT-^D36,<
2721 IFL BIT-^D72,<
2722 POINT 1,7+1,BIT-^D36
2723 >
2724 IFGE BIT-^D72,<
2725 POINT 1,7+2,BIT-^D72
2726 >
2727 >
2728 >
2729 DEFINE CRMRNG(FROM,TO),<
2730 ZZ..==FROM
2731 REPEAT TO-FROM+1,<
2732 CRMBIT \ZZ..
2733 ZZ..==ZZ..+1
2734 >
2735 >
2736 RADIX 10
2737 004054 43 01 0 00 000007 KSCRMP: CRMRNG 0,11 ;J
2738 004055 42 01 0 00 000007
2739 004056 41 01 0 00 000007
2740 004057 40 01 0 00 000007
2741 004060 37 01 0 00 000007
2742 004061 36 01 0 00 000007
2743 004062 35 01 0 00 000007
2744 004063 34 01 0 00 000007
2745 004064 33 01 0 00 000007
2746 004065 32 01 0 00 000007
2747 004066 31 01 0 00 000007
2748 004067 30 01 0 00 000007
2749 004070 13 01 0 00 000010 CRMRNG 60,68 ;ALU LSRC RSRC
2750 004071 12 01 0 00 000010
2751 004072 11 01 0 00 000010
2752 004073 10 01 0 00 000010
2753 004074 07 01 0 00 000010
2754 004075 06 01 0 00 000010
2755 004076 05 01 0 00 000010
2756 004077 04 01 0 00 000010
2757 004100 03 01 0 00 000010
2758 004101 24 01 0 00 000011 CRMRNG 87,89 ;DEST
2759 004102 23 01 0 00 000011
2760 004103 22 01 0 00 000011
2761 004104 43 01 0 00 000006 CRMUNU 0
2762 004105 42 01 0 00 000006 CRMUNU 1
2763 004106 41 01 0 00 000011 CRMRNG 74,77 ;A
2764 004107 40 01 0 00 000011
2765 004110 37 01 0 00 000011
2766 004111 36 01 0 00 000011
2767
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 33
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0109
2768 004112 41 01 0 00 000006 CRMUNU 2
2769 004113 40 01 0 00 000006 CRMUNU 3
2770 004114 33 01 0 00 000011 CRMRNG 80,83 ;B
2771 004115 32 01 0 00 000011
2772 004116 31 01 0 00 000011
2773 004117 30 01 0 00 000011
2774 004120 27 01 0 00 000011 CRMRNG 84,86 ;RAMADR
2775 004121 26 01 0 00 000011
2776 004122 25 01 0 00 000011
2777 004123 37 01 0 00 000006 CRMUNU 4
2778 004124 43 01 0 00 000011 CRMRNG 72,73 ;DBUS
2779 004125 42 01 0 00 000011
2780 004126 02 01 0 00 000010 CRMRNG 69,71 ;DBM
2781 004127 01 01 0 00 000010
2782 004130 00 01 0 00 000010
2783 004131 35 01 0 00 000011 CRMBIT 78 ;DP HOLD L
2784 004132 25 01 0 00 000010 CRMBIT 50 ;PAR EN L
2785 004133 17 01 0 00 000011 CRMBIT 92 ;PAR CK L
2786 004134 34 01 0 00 000011 CRMBIT 79 ;DP HOLD R
2787 004135 24 01 0 00 000010 CRMBIT 51 ;PAR EN R
2788 004136 16 01 0 00 000011 CRMBIT 93 ;PAR CK R
2789 004137 21 01 0 00 000007 CRMRNG 18,20 ;SPEC
2790 004140 20 01 0 00 000007
2791 004141 17 01 0 00 000007
2792 004142 05 01 0 00 000007 CRMRNG 30,32
2793 004143 04 01 0 00 000007
2794 004144 03 01 0 00 000007
2795 004145 16 01 0 00 000007 CRMRNG 21,23 ;DISP
2796 004146 15 01 0 00 000007
2797 004147 14 01 0 00 000007
2798 004150 10 01 0 00 000007 CRMRNG 27,29
2799 004151 07 01 0 00 000007
2800 004152 06 01 0 00 000007
2801 004153 24 01 0 00 000007 CRMRNG 15,17 ;SKIP
2802 004154 23 01 0 00 000007
2803 004155 22 01 0 00 000007
2804 004156 02 01 0 00 000007 CRMRNG 33,35
2805 004157 01 01 0 00 000007
2806 004160 00 01 0 00 000007
2807 004161 36 01 0 00 000006 CRMUNU 5
2808 004162 27 01 0 00 000007 CRMRNG 12,13 ;T
2809 004163 26 01 0 00 000007
2810
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 34
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0110
2811 004164 12 01 0 00 000007 CRMBIT 25 ;CRY 38
2812 004165 21 01 0 00 000011 CRMBIT 90 ;SC
2813 004166 20 01 0 00 000011 CRMBIT 91 ;FE
2814 004167 27 01 0 00 000010 CRMBIT 48 ;FM WRITE
2815 004170 11 01 0 00 000007 CRMBIT 26 ;MEM F
2816 004171 23 01 0 00 000010 CRMBIT 52 ;DIVIDE
2817 004172 22 01 0 00 000010 CRMBIT 53 ;MULTI PRECISION
2818 004173 26 01 0 00 000010 CRMBIT 49 ;MULTI SHIFT
2819 004174 25 01 0 00 000007 CRMBIT 14 ;CALL
2820 004175 35 01 0 00 000006 CRMUNU 6
2821 004176 34 01 0 00 000006 CRMUNU 7
2822 004177 33 01 0 00 000006 CRMUNU 8
2823 004200 32 01 0 00 000006 CRMUNU 9
2824 004201 31 01 0 00 000006 CRMUNU 10
2825 004202 30 01 0 00 000006 CRMUNU 11
2826 004203 27 01 0 00 000006 CRMUNU 12
2827 004204 26 01 0 00 000006 CRMUNU 13
2828 004205 25 01 0 00 000006 CRMUNU 14
2829 004206 21 01 0 00 000010 CRMRNG 54,59 ;#
2830 004207 20 01 0 00 000010
2831 004210 17 01 0 00 000010
2832 004211 16 01 0 00 000010
2833 004212 15 01 0 00 000010
2834 004213 14 01 0 00 000010
2835 004214 43 01 0 00 000010 CRMRNG 36,47
2836 004215 42 01 0 00 000010
2837 004216 41 01 0 00 000010
2838 004217 40 01 0 00 000010
2839 004220 37 01 0 00 000010
2840 004221 36 01 0 00 000010
2841 004222 35 01 0 00 000010
2842 004223 34 01 0 00 000010
2843 004224 33 01 0 00 000010
2844 004225 32 01 0 00 000010
2845 004226 31 01 0 00 000010
2846 004227 30 01 0 00 000010
2847
2848 004230 13 01 0 00 000007 PB.CRA: CRMBIT 24
2849 004231 15 01 0 00 000011 PB.CRM: CRMBIT 94
2850 004232 14 01 0 00 000011 MARKPT: CRMBIT 95
2851 RADIX 8
2852 LALL
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 35
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0111
2853 ;*RSQSHF, CREATE KS-10 SEQUENCE NUMBER FILE
2854
2855 004233 260 17 0 00 004250 RSQSHF: GO RSQINI ;INIT OUTPUT FILE
2856
2857 004234 402 00 0 00 000016 SETZM INDX
2858
2859 004235 514 07 0 16 402003 HRLZ CHR,HICORE+3(INDX) ;GET EVEN SEQ #
2860
2861 004236 271 16 0 00 000004 ADDI INDX,4
2862
2863 004237 540 07 0 16 402003 HRR CHR,HICORE+3(INDX) ;GET ODD SEQ #
2864
2865 004240 260 17 0 00 004313 GO RSQPUT ;OUTPUT WORD
2866
2867 004241 271 16 0 00 000004 ADDI INDX,4
2868 004242 302 16 0 00 020000 CAIE INDX,CRMSIZ*4
2869 004243 254 00 0 00 004235 JRST RSQSHF+2
2870
2871 004244 067 03 0 00 000000 OUTPUT RSQ,
2872 004245 070 03 0 00 000000 CLOSE RSQ,
2873 004246 071 03 0 00 000000 RELEAS RSQ,
2874
2875 004247 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 36
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0112
2876
2877 004250 201 00 0 00 000013 RSQINI: MOVEI 13
2878 004251 202 00 0 00 004274 MOVEM RSQBLK
2879
2880 004252 050 03 0 00 004274 OPEN RSQ,RSQBLK
2881 004253 254 00 0 00 001511 JRST ERR8
2882
2883 004254 065 03 0 00 000002 OUTBUF RSQ,^D2
2884
2885 004255 200 00 0 00 010450 MOVE FILNAM
2886 004256 202 00 0 00 004304 MOVEM RSQNAM
2887 004257 205 00 0 00 626361 MOVSI (SIXBIT/RSQ/)
2888 004260 202 00 0 00 004305 MOVEM RSQNAM+1
2889 004261 200 00 0 00 000717 MOVE INNAME+1
2890 004262 405 00 0 00 700000 ANDI 700000
2891 004263 542 00 0 00 004305 HRRM RSQNAM+1
2892 004264 200 00 0 00 000720 MOVE INNAME+2
2893 004265 404 00 0 00 007361 AND [37,,-1]
2894 004266 202 00 0 00 004306 MOVEM RSQNAM+2
2895 004267 200 00 0 00 000722 MOVE INNAME+4
2896 004270 202 00 0 00 004310 MOVEM RSQNAM+4
2897
2898 004271 077 03 0 00 004302 ENTER RSQ,RSQNM
2899 004272 254 00 0 00 001513 JRST ERR9
2900
2901 004273 263 17 0 00 000000 RTN
2902
2903 004274 000000 000013 RSQBLK: 13
2904 004275 44 63 53 00 00 00 SIXBIT/DSK/
2905 004276 004277 000000 RSQBF,,0
2906 004277 RSQBF: BLOCK 3
2907
2908 004302 000000 000006 RSQNM: 6
2909 004303 000000 000000 0
2910 004304 56 41 55 45 00 00 RSQNAM: SIXBIT/NAME/
2911 004305 62 63 61 00 00 00 SIXBIT/RSQ/
2912 004306 BLOCK 5
2913
2914 004313 377 00 0 00 004301 RSQPUT: SOSG RSQBF+2 ;ADVANCE BYTE COUNTER
2915 004314 254 00 0 00 004317 JRST .+3
2916 004315 136 07 0 00 004300 IDPB CHR,RSQBF+1 ;DEPOSIT WORD
2917 004316 263 17 0 00 000000 RTN
2918 004317 057 03 0 00 000000 OUT RSQ, ;DUMP BUFFER
2919 004320 254 00 0 00 004315 JRST .-3
2920 004321 254 00 0 00 001505 JRST ERR6
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 37
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0113
2921 004322 ERRS1: MOVEI [ASCIZ/
2922 004322 201 00 0 00 007720 NO END STATEMENT IN MICRO FILE/]
2923 004323 254 00 0 00 001523 JRST ERRX
2924
2925 004324 ERRS2: MOVEI [ASCIZ/
2926 004324 201 00 0 00 007727 ERROR ON INPUT/]
2927 004325 254 00 0 00 001523 JRST ERRX
2928
2929 004326 ERRM1: MOVEI [ASCIZ/
2930 004326 201 00 0 00 007733 MICRO END BEFORE V OR U/]
2931 004327 254 00 0 00 004344 JRST ERRX1
2932
2933 004330 ERRM2: MOVEI [ASCIZ/
2934 004330 201 00 0 00 007741 MICRO COMMAND WORD ERROR/]
2935 004331 254 00 0 00 004344 JRST ERRX1
2936
2937 004332 ERRM3: MOVEI [ASCIZ/
2938 004332 201 00 0 00 007747 INVALID D-RAM ADDRESS/]
2939 004333 254 00 0 00 004344 JRST ERRX1
2940
2941 004334 ERRM4: MOVEI [ASCIZ/
2942 004334 201 00 0 00 007754 NON-SEQUENTIAL D-RAM ADDRESS/]
2943 004335 254 00 0 00 004344 JRST ERRX1
2944
2945 004336 ERRM5: MOVEI [ASCIZ/
2946 004336 201 00 0 00 007763 MICRO FORMAT ERROR/]
2947 004337 254 00 0 00 004344 JRST ERRX1
2948
2949 004340 ERRM6: MOVEI [ASCIZ/
2950 004340 201 00 0 00 007770 INVALID C-RAM ADDRESS/]
2951 004341 254 00 0 00 004344 JRST ERRX1
2952
2953 004342 ERRM8: MOVEI [ASCIZ/
2954 004342 201 00 0 00 007775 D-RAM ADDRESS ERROR/]
2955 004343 254 00 0 00 004344 JRST ERRX1
2956
2957 004344 264 17 0 00 010301 ERRX1: PNTALF ;PRINT ERROR
2958 004345 201 00 0 00 006727 MOVEI CRLF
2959 004346 264 17 0 00 010301 PNTALF
2960 004347 201 00 0 00 006005 MOVEI COMLIN
2961 004350 264 17 0 00 010301 PNTALF ;PRINT OFFENDING LINE
2962 004351 201 00 0 00 006727 MOVEI CRLF
2963 004352 264 17 0 00 010301 PNTALF
2964 004353 254 00 0 00 000233 JRST REENTR ;CLOSE OUT AND EXIT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 38
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0114
2965 004354 ERRMC1: MOVEI [ASCIZ/
2966 004354 201 00 0 00 007770 INVALID C-RAM ADDRESS/]
2967 004355 254 00 0 00 004360 JRST ERRX2
2968
2969 004356 ERRMC2: MOVEI [ASCIZ/
2970 004356 201 00 0 00 007763 MICRO FORMAT ERROR/]
2971 004357 254 00 0 00 004360 JRST ERRX2
2972
2973 004360 332 00 0 00 010476 ERRX2: SKIPE NOERRP
2974 004361 254 00 0 00 004372 JRST ERRX3 ;DON'T PRINT ERRORS ON TTY
2975 004362 264 17 0 00 010301 PNTALF ;PRINT ERROR
2976 004363 201 00 0 00 006727 MOVEI CRLF
2977 004364 264 17 0 00 010301 PNTALF
2978 004365 201 00 0 00 006005 MOVEI COMLIN
2979 004366 264 17 0 00 010301 PNTALF ;PRINT OFFENDING LINE
2980 004367 201 00 0 00 006727 MOVEI CRLF
2981 004370 264 17 0 00 010301 PNTALF
2982 004371 254 00 0 00 002352 JRST MICLP ;CLOSE OUT AND EXIT
2983
2984 004372 264 17 0 00 010277 ERRX3: PNTAL ;PRINT ERROR
2985 004373 201 00 0 00 006727 MOVEI CRLF
2986 004374 264 17 0 00 010277 PNTAL
2987 004375 201 00 0 00 006005 MOVEI COMLIN
2988 004376 264 17 0 00 010277 PNTAL ;PRINT OFFENDING LINE
2989 004377 201 00 0 00 006727 MOVEI CRLF
2990 004400 264 17 0 00 010277 PNTAL
2991 004401 254 00 0 00 002352 JRST MICLP ;CLOSE OUT AND EXIT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 39
CNVMIC MAC 1-May-78 15:15 C-RAM MICRO-CODE PROCESS SEQ 0115
2992 004402 332 00 0 00 010476 ERRTTY: SKIPE NOERRP
2993 004403 263 17 0 00 000000 RTN
2994 004404 332 00 0 00 010456 SKIPE J05ERR
2995 004405 254 00 0 00 004416 JRST ERTTY1
2996 004406 332 00 0 00 010461 SKIPE JSZERR
2997 004407 254 00 0 00 004416 JRST ERTTY1
2998 004410 332 00 0 00 010457 SKIPE JCMERR
2999 004411 254 00 0 00 004413 JRST .+2
3000 004412 263 17 0 00 000000 RTN ;NO ERRORS
3001
3002 004413 200 00 0 00 010440 MOVE DRMADR ;IS THIS 255(JFCL) COMMON
3003 004414 306 00 0 00 000255 CAIN 255
3004 004415 263 17 0 00 000000 RTN ;YES, COMMON ERR IS OK
3005
3006 004416 051 03 0 00 010002 ERTTY1: OUTSTR [ASCIZ/ERROR! D-RAM /]
3007 004417 332 00 0 00 010461 SKIPE JSZERR
3008 004420 051 03 0 00 010005 OUTSTR [ASCIZ/J FIELD SIZE /]
3009 004421 332 00 0 00 010457 SKIPE JCMERR
3010 004422 051 03 0 00 010010 OUTSTR [ASCIZ/J FIELD COMMON /]
3011 004423 332 00 0 00 010456 SKIPE J05ERR
3012 004424 051 03 0 00 007614 OUTSTR [ASCIZ/J05 ERR /]
3013
3014 004425 051 03 0 00 006005 OUTSTR COMLIN ;OUTPUT OFFENDING LINE
3015
3016 OUTSTR [ASCIZ/
3017 004426 051 03 0 00 010014 /]
3018 004427 263 17 0 00 000000 RTN
3019
3020
3021 004430 000000 000000 0
3022 004431 000000 000000 CRM16: 0
3023 004432 000000 000000 0
3024 004433 000000 000000 0
3025 004434 000000 000000 0
3026 004435 000000 000000 0
3027 004436 000000 000000 0
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
CNVRT8 MAC 1-May-78 15:16 PDP-8 FILE CONVERSION SEQ 0116
3028 SUBTTL PDP-8 FILE CONVERSION
3029 S^;*******************************************************^
3030
3031 004437 200 00 0 00 010450 CNVRT8: MOVE FILNAM ;INITIALIZE FILE NAMES
3032 004440 202 00 0 00 000716 MOVEM INNAME
3033 004441 202 00 0 00 000727 MOVEM OUTNAM
3034 004442 200 00 0 00 007523 MOVE [SIXBIT/BIN/]
3035 004443 332 00 0 00 010447 SKIPE FILEXT
3036 004444 200 00 0 00 010447 MOVE FILEXT
3037 004445 202 00 0 00 000717 MOVEM INNAME+1
3038 004446 200 00 0 00 010015 MOVE [SIXBIT/A8/]
3039 004447 202 00 0 00 000730 MOVEM OUTNAM+1
3040 004450 201 00 0 00 000013 MOVEI 13 ;INPUT 36 BIT BYTES
3041 004451 202 00 0 00 000700 MOVEM INBLK
3042 004452 260 17 0 00 000645 GO ININIT ;INITIALIZE INPUT/OUTPUT
3043
3044 004453 260 17 0 00 005071 GO FILEID ;IDENTIFY FILE
3045
3046 004454 403 06 0 00 010426 C81: SETZB G8DC,C8BIN#
3047
3048 004455 260 17 0 00 004604 GO G8CHR ;GET 8 CHAR
3049 004456 322 07 0 00 004455 JUMPE CHR,.-1 ;IGNORE 0'S
3050 004457 302 07 0 00 000200 CAIE CHR,200 ;IS IT LEADER ?
3051 004460 254 00 0 00 004610 JRST ERR80 ;NO
3052
3053 004461 260 17 0 00 004564 GO G8WRD ;GET ALL LEADER CHARS
3054 004462 306 05 0 00 020000 CAIN BYTE,20000
3055 004463 254 00 0 00 004461 JRST .-2
3056
3057 004464 626 05 0 00 010000 TRZN BYTE,10000 ;FIRST WORD, BETTER BE ADDRESS
3058 004465 254 00 0 00 004612 JRST ERR81 ;WASN'T, ERROR
3059
3060 004466 402 00 0 00 010427 SETZM CHECK8# ;CLEAR PDP-8 CHECKSUM
3061 004467 403 15 0 00 002250 SETZB CNT,B11CNT
3062 004470 202 05 0 00 010421 MOVEM BYTE,B8ADR# ;SAVE PDP-8 ADDRESS
3063 004471 202 05 0 00 002247 MOVEM BYTE,B11ADR ;SETUP BLOCK START ADDRESS
3064 004472 272 06 0 00 010427 ADDM G8DC,CHECK8
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
CNVRT8 MAC 1-May-78 15:16 PDP-8 FILE CONVERSION SEQ 0117
3065 004473 260 17 0 00 004564 C82: GO G8WRD ;GET NEXT WORD
3066 004474 306 05 0 00 020000 C821: CAIN BYTE,20000 ;TRAILER ?
3067 004475 254 00 0 00 004546 JRST C8DON1 ;YES, RIM COMPLETION
3068 004476 622 05 0 00 010000 TRZE BYTE,10000
3069 004477 254 00 0 00 004532 JRST C8ADR ;NEW ADDRESS
3070
3071 004500 202 05 0 00 010424 MOVEM BYTE,BYTESV ;SAVE THIS DATA WORD
3072 004501 202 06 0 00 010454 MOVEM G8DC,G8DCSV# ;SAVE ASSOC CHECK ENTRY
3073
3074 004502 260 17 0 00 004564 GO G8WRD ;GET NEXT INPUT WORD
3075 004503 606 05 0 00 030000 TRNN BYTE,30000 ;IS THIS DATA ENTRY ?
3076 004504 476 00 0 00 010426 SETOM C8BIN ;YES, PDP-8 FILE IN BIN FORMAT
3077 004505 606 05 0 00 020000 TRNN BYTE,20000 ;IS THIS TRAILER ?
3078 004506 254 00 0 00 004511 JRST C822 ;NO, LAST ENTRY WAS DATA
3079 004507 332 00 0 00 010426 SKIPE C8BIN ;LAST ENTRY CHECKSUM IF BIN FORMAT
3080 004510 254 00 0 00 004540 JRST C8DONE
3081
3082 004511 200 00 0 00 010454 C822: MOVE G8DCSV
3083 004512 272 00 0 00 010427 ADDM CHECK8 ;UPDATE PDP-8 CHECKSUM
3084
3085 004513 200 00 0 00 010424 MOVE BYTESV
3086 004514 202 00 0 15 002251 MOVEM B11DAT(CNT) ;STORE DATA WORD
3087
3088 004515 350 00 0 00 002250 AOS B11CNT ;INCREMENT WORD COUNT
3089 004516 350 00 0 00 000015 AOS CNT ;INCREMENT STORAGE POINTER
3090 004517 350 00 0 00 010421 AOS B8ADR ;INCREMENT PDP-8 ADDRESS
3091
3092 004520 305 15 0 00 000040 CAIGE CNT,40 ;FILLED THIS BLOCK ?
3093 004521 254 00 0 00 004474 JRST C821 ;NOT YET
3094
3095 004522 336 00 0 00 002250 C83: SKIPN B11CNT ;ANY DATA IN STORAGE
3096 004523 254 00 0 00 004526 JRST C84 ;NO
3097
3098 004524 260 17 0 00 004557 GO PUT8SP ;LINE STARTS WITH "8" & "SPACE"
3099
3100 004525 260 17 0 00 002174 GO C11CNV ;ASCIIZE AND OUTPUT
3101
3102 004526 200 00 0 00 010421 C84: MOVE B8ADR ;INIT NEXT BLOCK START ADDRESS
3103 004527 202 00 0 00 002247 MOVEM B11ADR
3104 004530 403 15 0 00 002250 SETZB CNT,B11CNT ;CLEAR COUNTS
3105 004531 254 00 0 00 004474 JRST C821 ;BACK FOR NEXT PDP-8 WORD
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
CNVRT8 MAC 1-May-78 15:16 PDP-8 FILE CONVERSION SEQ 0118
3106 004532 272 06 0 00 010427 C8ADR: ADDM G8DC,CHECK8
3107 004533 306 05 0 00 010421 CAIN BYTE,B8ADR ;CONSECUTIVE ADDRESSES ?
3108 004534 254 00 0 00 004473 JRST C82 ;YES, IGNORE IT THEN
3109
3110 004535 202 05 0 00 010421 MOVEM BYTE,B8ADR ;NO, SETUP NEW ADDRESS
3111 004536 260 17 0 00 004564 GO G8WRD ;GET NEXT DATA WORD
3112 004537 254 00 0 00 004522 JRST C83 ;OUTPUT CURRENT BLOCK & SETUP NEXT
3113
3114 004540 200 06 0 00 010427 C8DONE: MOVE G8DC,CHECK8 ;GET COMPUTED CHECKSUM
3115 004541 405 06 0 00 007777 ANDI G8DC,7777 ;MAKE IT 12 BITS
3116 004542 200 00 0 00 010424 MOVE BYTESV ;GET CHECKSUM FROM FILE
3117 004543 405 00 0 00 007777 ANDI 7777 ;MAKE 12 BITS
3118 004544 312 00 0 00 000006 CAME G8DC ;DO CHECKSUMS AGREE ?
3119 004545 254 00 0 00 002325 JRST ERR23 ;NO, ERROR
3120
3121 004546 336 00 0 00 002250 C8DON1: SKIPN B11CNT ;ANY WORDS IN STORAGE ?
3122 004547 254 00 0 00 004552 JRST C8END ;NO
3123
3124 004550 260 17 0 00 004557 GO PUT8SP ;YES, OUTPUT LAST BLOCK
3125 004551 260 17 0 00 002174 GO C11CNV
3126
3127 004552 402 00 0 00 002250 C8END: SETZM B11CNT ;START HAS 0 WORD COUNT
3128 004553 402 00 0 00 002247 SETZM B11ADR ;NO START ADDRESS
3129 004554 260 17 0 00 004557 GO PUT8SP
3130 004555 260 17 0 00 002174 GO C11CNV ;OUTPUT TRANSFER BLOCK
3131
3132 004556 254 00 0 00 001245 JRST C11DON ;COMPLETED
3133
3134 004557 201 07 0 00 000070 PUT8SP: MOVEI CHR,"8" ;LINE STARTS WITH "8" & "SPACE"
3135 004560 260 17 0 00 001270 GO PUT1
3136 004561 201 07 0 00 000040 MOVEI CHR," "
3137 004562 260 17 0 00 001270 GO PUT1
3138 004563 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
CNVRT8 MAC 1-May-78 15:16 PDP-8 FILE CONVERSION SEQ 0119
3139 ;*GET A PAIR OF PDP-8 CHARS TO FORM ADDRESS OR DATA WORD
3140 S^;*******************************************************^
3141
3142 004564 400 06 0 00 000000 G8WRD: SETZ G8DC, ;CLEAR CHECK
3143 004565 260 17 0 00 004604 GO G8CHR ;GET A CHAR
3144 004566 242 07 0 00 000006 LSH CHR,6 ;MAKE HI-BYTE OF 12 BITS
3145 004567 202 07 0 00 000005 MOVEM CHR,BYTE
3146 004570 602 07 0 00 020000 TRNE CHR,20000 ;IS CHANNEL 8 ZERO ?
3147 004571 254 00 0 00 004577 JRST G8CH8 ;NO
3148
3149 004572 260 17 0 00 004604 GO G8CHR ;GET SECOND CHAR
3150 004573 602 07 0 00 000300 TRNE CHR,300 ;ARE CHANNELS 7 & 8 ZERO ?
3151 004574 254 00 0 00 004614 JRST ERR82 ;NO, BAD CHAR
3152 004575 436 07 0 00 000005 ORM CHR,BYTE ;MERGE THE TWO CHARS
3153 004576 263 17 0 00 000000 RTN ;RETURN WITH 12 BIT WORD
3154
3155 004577 602 07 0 00 007700 G8CH8: TRNE CHR,7700 ;ARE CHANNELS 1 TO 6 ZERO ?
3156 004600 254 00 0 00 004614 JRST ERR82 ;NO, ERROR
3157 004601 606 07 0 00 010000 TRNN CHR,10000 ;YES, CHANNEL 7 ZERO ?
3158 004602 263 17 0 00 000000 RTN ;YES, LEADER OR TRAILER
3159 004603 254 00 0 00 004564 JRST G8WRD ;FIELD SET 0, IGNORE IT
3160
3161 ;*GET A PDP-8 CHAR
3162 S^;*******************************************************^
3163
3164 004604 260 17 0 00 005351 G8CHR: GO RINP ;GET INPUT CHAR
3165 004605 254 00 0 00 001501 JRST ERR4 ;EOF, ERROR
3166 004606 272 07 0 00 000006 ADDM CHR,G8DC ;ADD TO CHECKSUM
3167 004607 263 17 0 00 000000 RTN
3168
3169 004610 ERR80: MOVEI [ASCIZ/
3170 004610 201 00 0 00 010016 FIRST NON-ZERO CHAR NOT LEADER CODE/]
3171 004611 254 00 0 00 001523 JRST ERRX
3172
3173 004612 ERR81: MOVEI [ASCIZ/
3174 004612 201 00 0 00 010026 FIRST WORD NOT ADDRESS/]
3175 004613 254 00 0 00 001523 JRST ERRX
3176
3177 004614 ERR82: MOVEI [ASCIZ/
3178 004614 201 00 0 00 010033 UNEXPECTED FILE CHAR/]
3179 004615 254 00 0 00 001523 JRST ERRX
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
CNVTDX MAC 1-May-78 15:17 DX20 FILE CONVERSION SEQ 0120
3180 SUBTTL DX20 FILE CONVERSION
3181 S^;*******************************************************^
3182
3183 004616 200 00 0 00 010450 CNVDX: MOVE FILNAM ;INITIALIZE FILE NAMES
3184 004617 202 00 0 00 000716 MOVEM INNAME
3185 004620 202 00 0 00 000727 MOVEM OUTNAM
3186 004621 200 00 0 00 007523 MOVE [SIXBIT/BIN/]
3187 004622 332 00 0 00 010447 SKIPE FILEXT
3188 004623 200 00 0 00 010447 MOVE FILEXT
3189 004624 202 00 0 00 000717 MOVEM INNAME+1
3190 004625 200 00 0 00 010040 MOVE [SIXBIT/ADX/]
3191 004626 202 00 0 00 000730 MOVEM OUTNAM+1
3192 004627 201 00 0 00 000013 MOVEI 13 ;INPUT 36 BIT BYTES
3193 004630 202 00 0 00 000700 MOVEM INBLK
3194
3195 004631 260 17 0 00 000645 GO ININIT ;INITIALIZE INPUT/OUTPUT
3196
3197 004632 260 17 0 00 005071 GO FILEID ;IDENTIFY FILE
3198
3199 004633 402 00 0 00 010444 CDX1: SETZM DXCWF# ;DXCWF =0,CRAM =-1,WRAM
3200 004634 402 00 0 00 010445 SETZM DXCWF1#
3201 004635 402 00 0 00 010443 SETZM DXADR# ;SETUP START ADDRESS
3202 004636 402 00 0 00 002247 SETZM B11ADR ;SETUP 1ST ADDRESS
3203 004637 403 15 0 00 002250 SETZB CNT,B11CNT ;INIT COUNTS
3204
3205 004640 200 00 0 00 010446 CDX2: MOVE DXSV
3206 004641 405 00 0 00 177777 ANDI 0,177777 ;STRIP CRAM DATA TO 16 BITS
3207 004642 332 00 0 00 010444 SKIPE DXCWF
3208 004643 405 00 0 00 000377 ANDI 0,377 ;STRIP WRAM DATA TO 8 BITS
3209
3210 004644 202 00 0 15 002251 MOVEM B11DAT(CNT) ;STORE DATA WORD
3211 004645 350 00 0 00 002250 AOS B11CNT ;INCREMENT WORD COUNT
3212 004646 350 00 0 00 000015 AOS CNT ;INCREMENT STORAGE POINTER
3213 004647 350 00 0 00 010443 AOS DXADR ;INCREMENT DX20 ADDRESS
3214
3215 004650 305 15 0 00 000036 CAIGE CNT,AWC11 ;FILLED THIS BLOCK ?
3216 004651 254 00 0 00 004663 JRST CDX5 ;NOT YET
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
CNVTDX MAC 1-May-78 15:17 DX20 FILE CONVERSION SEQ 0121
3217 004652 336 00 0 00 002250 CDX3: SKIPN B11CNT ;ANY WORDS IN STORAGE ?
3218 004653 254 00 0 00 004656 JRST CDX4 ;NO
3219
3220 004654 260 17 0 00 004720 GO PUTDX ;START LINE WITH "C" OR "W" & SPACE
3221
3222 004655 260 17 0 00 002174 GO C11CNV ;ASCIIZE AND OUTPUT
3223
3224 004656 332 00 0 00 010445 CDX4: SKIPE DXCWF1 ;WRAM NEXT ?
3225 004657 476 00 0 00 010444 SETOM DXCWF ;YES, SET FLAG
3226 004660 200 00 0 00 010443 MOVE DXADR ;INIT NEXT BLOCK ADDRESS
3227 004661 202 00 0 00 002247 MOVEM B11ADR
3228 004662 403 15 0 00 002250 SETZB CNT,B11CNT ;CLEAR COUNTS
3229
3230 004663 260 17 0 00 005351 CDX5: GO RINP ;GET NEXT DATA WORD
3231 004664 254 00 0 00 004674 JRST DXEOF ;END OF FILE
3232
3233 004665 202 07 0 00 010446 MOVEM CHR,DXSV
3234 004666 336 00 0 00 010444 SKIPN DXCWF ;SKIP IF DOING WRAM
3235 004667 312 07 0 00 010041 CAME CHR,[-1] ;A FULL 36BIT -1 = END OF CRAM
3236 004670 254 00 0 00 004640 JRST CDX2 ;BACK TO PROCESS THIS DATA WORD
3237
3238 004671 476 00 0 00 010445 CDXEC: SETOM DXCWF1 ;END OF CRAM, SET FOR WRAM
3239 004672 402 00 0 00 010443 SETZM DXADR ;WRAM STARTS AT 0
3240 004673 254 00 0 00 004652 JRST CDX3 ;OUTPUT LAST CRAM BLOCK
3241
3242 004674 336 00 0 00 002250 DXEOF: SKIPN B11CNT ;ANY WORDS IN STORAGE ?
3243 004675 254 00 0 00 004700 JRST DXEOF1 ;NO
3244
3245 004676 260 17 0 00 004720 GO PUTDX ;YES, OUTPUT LAST BLOCK
3246
3247 004677 260 17 0 00 002174 GO C11CNV
3248
3249 004700 402 00 0 00 002250 DXEOF1: SETZM B11CNT ;TRANSFER BLOCK HAS 0 WORD COUNT
3250 004701 402 00 0 00 002247 SETZM B11ADR ;AND 0 ADDRESS
3251 004702 476 00 0 00 010444 SETOM DXCWF ;LINE STARTS WITH "W" & "SPACE"
3252
3253 004703 260 17 0 00 004720 GO PUTDX
3254 004704 260 17 0 00 002174 GO C11CNV
3255
3256 004705 254 00 0 00 001245 JRST C11DON ;COMPLETED
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
CNVTDX MAC 1-May-78 15:17 DX20 FILE CONVERSION SEQ 0122
3257 004706 260 17 0 00 005351 IDDX20: GO RINP ;GET FIRST CRAM WORD
3258 004707 254 00 0 00 001501 JRST ERR4 ;EOF, ERROR
3259
3260 004710 202 07 0 00 010446 MOVEM CHR,DXSV# ;SAVE IT
3261
3262 004711 135 00 0 00 010042 LDB [POINT 10,DXSV,35]
3263 004712 260 17 0 00 005202 GO FILOCS ;EDIT NUMBER
3264
3265 004713 201 07 0 00 000056 MOVEI CHR,"."
3266 004714 260 17 0 00 001270 GO PUT1
3267
3268 004715 135 00 0 00 010043 LDB [POINT 6,DXSV,25]
3269 004716 260 17 0 00 005202 GO FILOCS ;VERSION NUMBER
3270
3271 004717 254 00 0 00 005131 JRST FILEI1 ;PUT IN DATE
3272
3273 004720 201 07 0 00 000103 PUTDX: MOVEI CHR,"C" ;CRAM STARTS WITH "C"
3274 004721 332 00 0 00 010444 SKIPE DXCWF
3275 004722 201 07 0 00 000127 MOVEI CHR,"W" ;WRAM STARTS WITH "W"
3276 004723 260 17 0 00 001270 GO PUT1
3277 004724 201 07 0 00 000040 MOVEI CHR," "
3278 004725 260 17 0 00 001270 GO PUT1 ; & "SPACE"
3279 004726 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
CNVKMC MAC 1-May-78 15:15 KMC11 MICROCODE BINARY TO ASCII SECTION SEQ 0123
3280 SUBTTL KMC11 MICROCODE BINARY TO ASCII SECTION
3281 S^;*******************************************************^
3282
3283 004727 200 00 0 00 010450 CNVKMC: MOVE FILNAM ;INITIALIZE FILE NAMES
3284 004730 202 00 0 00 000716 MOVEM INNAME
3285 004731 202 00 0 00 000727 MOVEM OUTNAM
3286 004732 200 00 0 00 007523 MOVE [SIXBIT/BIN/]
3287 004733 332 00 0 00 010447 SKIPE FILEXT
3288 004734 200 00 0 00 010447 MOVE FILEXT
3289 004735 202 00 0 00 000717 MOVEM INNAME+1
3290 004736 200 00 0 00 010044 MOVE [SIXBIT/KMC/]
3291 004737 202 00 0 00 000730 MOVEM OUTNAM+1
3292 004740 201 00 0 00 000013 MOVEI 13 ;INPUT IMAGE BINARY, 36 BIT BYTES
3293 004741 202 00 0 00 000700 MOVEM INBLK
3294 004742 260 17 0 00 000645 GO ININIT
3295
3296 004743 260 17 0 00 005071 GO FILEID ;IDENTIFY OUTPUT FILE
3297
3298 004744 476 00 0 00 000004 SETOM FB
3299 004745 260 17 0 00 002140 KMCLP: GO G11BYT ;GET 8 BIT BYTE
3300 004746 254 00 0 00 001501 JRST ERR4 ;ILLEGAL EOF ?
3301 004747 322 05 0 00 004745 JUMPE BYTE,KMCLP ;DISCARD NULLS
3302 004750 306 05 0 00 000377 CAIN BYTE,377
3303 004751 254 00 0 00 004745 JRST KMCLP ;DISCARD DELETES
3304
3305 004752 302 05 0 00 000001 CAIE BYTE,1 ;VERIFY CONSTANT 1
3306 004753 254 00 0 00 002317 JRST ERR20 ;JUNK ?
3307
3308 004754 202 05 0 00 010464 MOVEM BYTE,KMCSUM# ;INIT CHECKSUM
3309
3310 004755 260 17 0 00 002140 GO G11BYT
3311 004756 254 00 0 00 001501 JRST ERR4 ;EOF ?
3312 004757 332 00 0 00 000005 SKIPE BYTE ;VERIFY CONSTANT 0
3313 004760 254 00 0 00 002321 JRST ERR21 ;JUNK ?
3314
3315 004761 260 17 0 00 002127 GO G11WD ;GET BYTE COUNT
3316 004762 322 11 0 00 002323 JUMPE T1,ERR22 ;ZERO BYTE COUNT ?
3317
3318 004763 201 06 0 11 777772 KMCLPA: MOVEI BC,-6(T1) ;GET DATA BYTE COUNT
3319 004764 321 06 0 00 002323 JUMPL BC,ERR22 ;LESS THAN 6 ?
3320
3321 004765 260 17 0 00 002127 GO G11WD ;GET ADDRESS
3322 004766 202 11 0 00 002246 MOVEM T1,ADR11# ;SAVE AS BLOCK START ADDRESS
3323 004767 322 06 0 00 005055 JUMPE BC,SRTKMC ;BC=6='S KMC11 START BLOCK
3324
3325 004770 301 11 0 00 100000 CAIL T1,100000 ;ADDRESS 100000 OR MORE ?
3326 004771 254 00 0 00 005025 JRST KMCLPC ;YES, KMC D-RAM DATA
3327 ;NO, KMC C-RAM DATA
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
CNVKMC MAC 1-May-78 15:15 KMC11 MICROCODE BINARY TO ASCII SECTION SEQ 0124
3328 004772 201 13 0 00 000074 KMCLPB: MOVEI P1,AWC11*2 ;SETUP ASCIIZED WORD COUNT
3329 004773 305 06 0 00 000074 CAIGE BC,AWC11*2 ;DOES FILE HAVE THAT MANY ?
3330 004774 200 13 0 00 000006 MOVE P1,BC ;NO - USE WHATS IN FILE
3331 004775 200 14 0 00 000013 MOVE P2,P1 ;SET COUNT FOR FETCH
3332
3333 004776 200 11 0 00 002246 MOVE T1,ADR11
3334 004777 242 11 0 00 777777 LSH T1,-1 ;DIVIDE BY 2
3335 005000 202 11 0 00 002247 MOVEM T1,B11ADR ;SETUP ASCIIZED START ADDRESS
3336 005001 350 00 0 00 000013 AOS P1 ;ROUND UP BYTE COUNT
3337 005002 242 13 0 00 777777 LSH P1,-1 ;DIVIDE BY 2
3338 005003 202 13 0 00 002250 MOVEM P1,B11CNT ;SETUP ASCIIZED WORD COUNT
3339
3340 005004 200 03 0 00 007525 MOVE BA,[POINT 8,B11DAT,35] ;SETUP ASCIIZED WORD FORMER
3341
3342 005005 200 11 0 00 007526 MOVE T1,[B11DAT,,B11DAT+1]
3343 005006 402 00 0 00 002251 SETZM B11DAT ;CLEAR STORAGE AREA
3344 005007 251 11 0 00 002307 BLT T1,B11DAT+AWC11
3345
3346 005010 260 17 0 00 002140 GO G11BYT ;GET DATA BYTE
3347 005011 254 00 0 00 001501 JRST ERR4 ;EOF ?
3348 005012 137 05 0 00 000003 DPB BYTE,BA ;STUFF INTO BUFFER
3349 005013 643 03 0 00 100000 TLCE BA,(POINT 0,0,27) ;SWITCH BYTES
3350 005014 350 00 0 00 000003 AOS BA ;ADVANCE WORD EVERY TWO
3351 005015 367 14 0 00 005010 SOJG P2,.-5 ;LOOP FILLING BUFFER
3352
3353 005016 260 17 0 00 005063 GO KMCCNV ;ASCIIZE AND OUTPUT BUFFER
3354
3355 005017 201 11 0 00 000036 MOVEI T1,AWC11 ;ADVANCE BLOCK START ADDRESS
3356 005020 272 11 0 00 002246 ADDM T1,ADR11
3357 005021 275 06 0 00 000074 SUBI BC,AWC11*2 ;DECREMENT 11 BYTE COUNT TO GO
3358 005022 327 06 0 00 004772 JUMPG BC,KMCLPB ;LOOP TILL ALL OF THIS BLOCK DONE
3359
3360 005023 260 17 0 00 002121 GO CK11SUM ;VERIFY CHECKSUM
3361 005024 254 00 0 00 004745 JRST KMCLP ;GET NEXT BLOCK
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
CNVKMC MAC 1-May-78 15:15 KMC11 MICROCODE BINARY TO ASCII SECTION SEQ 0125
3362 005025 201 13 0 00 000036 KMCLPC: MOVEI P1,AWC11 ;SETUP ASCIIZED WORD COUNT
3363 005026 305 06 0 00 000036 CAIGE BC,AWC11 ;DOES FILE HAVE THAT MANY ?
3364 005027 200 13 0 00 000006 MOVE P1,BC ;NO - USE WHATS IN FILE
3365 005030 200 14 0 00 000013 MOVE P2,P1 ;SET COUNT FOR FETCH
3366
3367 005031 200 11 0 00 002246 MOVE T1,ADR11
3368 005032 275 11 0 00 100000 SUBI T1,100000 ;SUBTRACT 100000
3369 005033 202 11 0 00 002247 MOVEM T1,B11ADR ;SETUP ASCIIZED START ADDRESS
3370 005034 202 13 0 00 002250 MOVEM P1,B11CNT ;SETUP ASCIIZED WORD COUNT
3371
3372 005035 200 03 0 00 007525 MOVE BA,[POINT 8,B11DAT,35] ;SETUP ASCIIZED WORD FORMER
3373
3374 005036 200 11 0 00 007526 MOVE T1,[B11DAT,,B11DAT+1]
3375 005037 402 00 0 00 002251 SETZM B11DAT ;CLEAR STORAGE AREA
3376 005040 251 11 0 00 002307 BLT T1,B11DAT+AWC11
3377
3378 005041 260 17 0 00 002140 GO G11BYT ;GET DATA BYTE
3379 005042 254 00 0 00 001501 JRST ERR4 ;EOF ?
3380 005043 137 05 0 00 000003 DPB BYTE,BA ;STUFF INTO BUFFER
3381 005044 350 00 0 00 000003 AOS BA ;ADVANCE WORD
3382 005045 367 14 0 00 005041 SOJG P2,.-4 ;LOOP FILLING BUFFER
3383
3384 005046 260 17 0 00 005066 GO KMCDNV ;ASCIIZE AND OUTPUT BUFFER
3385
3386 005047 201 11 0 00 000036 MOVEI T1,AWC11 ;ADVANCE BLOCK START ADDRESS
3387 005050 272 11 0 00 002246 ADDM T1,ADR11
3388 005051 275 06 0 00 000036 SUBI BC,AWC11 ;DECREMENT 11 BYTE COUNT TO GO
3389 005052 327 06 0 00 005025 JUMPG BC,KMCLPC ;LOOP TILL ALL OF THIS BLOCK DONE
3390
3391 005053 260 17 0 00 002121 GO CK11SUM ;VERIFY CHECKSUM
3392 005054 254 00 0 00 004745 JRST KMCLP ;GET NEXT BLOCK
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
CNVKMC MAC 1-May-78 15:15 KMC11 MICROCODE BINARY TO ASCII SECTION SEQ 0126
3393
3394 005055 260 17 0 00 002121 SRTKMC: GO CK11SUM ;VERIFY CHECKSUM
3395 005056 200 11 0 00 002246 MOVE T1,ADR11
3396 005057 202 11 0 00 002247 MOVEM T1,B11ADR ;SETUP START ADDRESS
3397 005060 402 00 0 00 002250 SETZM B11CNT ;START HAS 0 DATA WORD COUNT
3398
3399 005061 260 17 0 00 005063 GO KMCCNV ;ASCIIZE AND OUTPUT
3400
3401 005062 254 00 0 00 001245 JRST C11DON ;COMPLETED
3402
3403 005063 260 17 0 00 003416 KMCCNV: GO PUTCSP
3404 005064 260 17 0 00 002174 GO C11CNV
3405 005065 263 17 0 00 000000 RTN
3406
3407 005066 260 17 0 00 003414 KMCDNV: GO PUTDSP
3408 005067 260 17 0 00 002174 GO C11CNV
3409 005070 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
CNVFID MAC 1-May-78 15:15 OUTPUT FILE IDENTIFICATION SEQ 0127
3410 SUBTTL OUTPUT FILE IDENTIFICATION
3411
3412 S^;*******************************************************^
3413 ;*FILEID -- PUT FILE ID LINE IN OUTPUT FILE
3414 S^;*******************************************************^
3415
3416 005071 201 07 0 00 000073 FILEID: MOVEI CHR,";"
3417 005072 260 17 0 00 001270 GO PUT1
3418
3419 005073 200 00 0 00 000727 MOVE OUTNAM ;DO FILE NAME
3420 005074 202 00 0 00 006110 MOVEM SIXSTR
3421 005075 201 12 0 00 006110 MOVEI T2,SIXSTR
3422 005076 260 17 0 00 005214 GO FILSTR
3423
3424 005077 201 07 0 00 000056 MOVEI CHR,"."
3425 005100 260 17 0 00 001270 GO PUT1
3426
3427 005101 510 00 0 00 000730 HLLZ OUTNAM+1 ;DO FILE EXTENSION
3428 005102 202 00 0 00 006110 MOVEM SIXSTR
3429 005103 201 12 0 00 006110 MOVEI T2,SIXSTR
3430 005104 260 17 0 00 005214 GO FILSTR
3431
3432 005105 260 17 0 00 005230 GO FILSP3 ;SPACE 3
3433
3434 005106 201 12 0 00 010045 MOVEI T2,[SIXBIT/VER/]
3435 005107 260 17 0 00 005214 GO FILSTR
3436
3437 005110 260 17 0 00 005234 GO FILSP1 ;SPACE 1
3438
3439 005111 332 00 0 00 010442 SKIPE DX20F
3440 005112 254 00 0 00 004706 JRST IDDX20 ;DX20
3441 005113 332 00 0 00 010473 SKIPE MICROF
3442 005114 254 00 0 00 005152 JRST IDRAM ;MICRO-CODE
3443 005115 332 00 0 00 010453 SKIPE FLAG8
3444 005116 254 00 0 00 005163 JRST IDOTHER ;PDP-8
3445 005117 332 00 0 00 010452 SKIPE FLAG11
3446 005120 254 00 0 00 005163 JRST IDOTHER ;PDP-11
3447 005121 332 00 0 00 010463 SKIPE KMCFLG
3448 005122 254 00 0 00 005163 JRST IDOTHER ;KMC11
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
CNVFID MAC 1-May-78 15:15 OUTPUT FILE IDENTIFICATION SEQ 0128
3449 S^;*******************************************************^
3450 ;* IDENTIFY PDP-10 "A10" FILE VERSION
3451 S^;*******************************************************^
3452
3453 005123 554 00 0 00 010451 HLRZ FILVER ;PDP-10
3454 005124 260 17 0 00 005202 GO FILOCS ;MCN VERSION
3455 005125 201 07 0 00 000056 MOVEI CHR,"."
3456 005126 260 17 0 00 001270 GO PUT1
3457 005127 550 00 0 00 010451 HRRZ FILVER ;DEC VERSION
3458 005130 260 17 0 00 005202 GO FILOCS
3459
3460 S^;*******************************************************^
3461 ;* PUT INPUT FILE DATE IN OUTPUT FILE
3462 S^;*******************************************************^
3463
3464 005131 260 17 0 00 005230 FILEI1: GO FILSP3 ;SPACE 3
3465
3466 005132 332 00 0 00 010473 SKIPE MICROF ;MICRO-CODE ?
3467 005133 254 00 0 00 005156 JRST IDRAM1 ;YES
3468
3469 005134 135 02 0 00 010046 LDB AC2,[POINT 12,INNAME+2,35]
3470 005135 135 01 0 00 010047 LDB AC1,[POINT 3,INNAME+1,20]
3471 005136 137 01 0 00 010050 DPB AC1,[POINT 3,AC2,23]
3472 005137 322 02 0 00 005150 JUMPE AC2,FILEI2 ;IF 0, SUPPRESS DATE
3473
3474 005140 231 02 0 00 000037 IDIVI AC2,^D31
3475 005141 271 03 0 00 000001 ADDI AC3,1
3476 005142 260 17 0 00 005174 GO FILNUM ;OUTPUT DAY
3477
3478 005143 231 02 0 00 000014 IDIVI AC2,^D12
3479 005144 201 12 0 03 005664 MOVEI T2,DATETB(AC3)
3480 005145 260 17 0 00 005214 GO FILSTR ;OUTPUT MONTH
3481
3482 005146 201 03 0 02 000100 MOVEI AC3,^D64(AC2)
3483 005147 260 17 0 00 005174 GO FILNUM ;OUTPUT YEAR
3484
3485 005150 260 17 0 00 001303 FILEI2: GO PUTCRF
3486 005151 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
CNVFID MAC 1-May-78 15:15 OUTPUT FILE IDENTIFICATION SEQ 0129
3487 S^;*******************************************************^
3488 ;* MICRO-CODE RAM FILE VERSION
3489 S^;*******************************************************^
3490
3491 005152 135 00 0 00 010051 IDRAM: LDB [POINT 9,HICORE+2!<137*4>,11]
3492 005153 322 00 0 00 005163 JUMPE 0,IDOTHER ;ZERO VER, REQ ONE
3493
3494 005154 260 17 0 00 005202 GO FILOCS ;# FIELD, LOC 137 IS VERSION
3495
3496 005155 254 00 0 00 005131 JRST FILEI1
3497
3498 S^;*******************************************************^
3499 ;* MICRO-CODE .TITLE INFORMATION
3500 S^;*******************************************************^
3501
3502 005156 200 12 0 00 007566 IDRAM1: MOVE T2,[POINT 7,MTITS]
3503 005157 134 07 0 00 000012 ILDB CHR,T2
3504 005160 322 07 0 00 005150 JUMPE CHR,FILEI2 ;IF NULL, DONE
3505 005161 260 17 0 00 001270 GO PUT1 ;INSERT .TITLE INFORMATION
3506 005162 254 00 0 00 005157 JRST .-3
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
CNVFID MAC 1-May-78 15:15 OUTPUT FILE IDENTIFICATION SEQ 0130
3507 S^;*******************************************************^
3508 ;* PDP-11/PDP-8 FILE VERSION
3509 S^;*******************************************************^
3510
3511 005163 IDOTHER:MOVEI [ASCIZ/
3512 005163 201 00 0 00 010052 FILE VERSION ? /]
3513 005164 264 17 0 00 010301 PNTALF ;REQ FILE VERSION FROM OPERATOR
3514 005165 265 00 0 00 006460 TTICHR
3515 005166 254 00 0 00 005165 JRST .-1
3516 005167 306 00 0 00 000015 CAIN 0,15 ;CR IS END OF INPUT
3517 005170 254 00 0 00 005131 JRST FILEI1
3518 005171 202 00 0 00 000007 MOVEM 0,CHR
3519 005172 260 17 0 00 001270 GO PUT1
3520 005173 254 00 0 00 005165 JRST .-6
3521
3522 S^;*******************************************************^
3523 ;*FILNUM -- PUT 2 DECIMAL DIGITS IN OUTPUT FILE
3524 S^;*******************************************************^
3525
3526 005174 231 03 0 00 000012 FILNUM: IDIVI AC3,^D10 ;SEPARATE DIGITS
3527 005175 201 07 0 03 000060 MOVEI CHR,"0"(AC3)
3528 005176 260 17 0 00 001270 GO PUT1
3529 005177 201 07 0 04 000060 MOVEI CHR,"0"(AC4)
3530 005200 260 17 0 00 001270 GO PUT1
3531 005201 263 17 0 00 000000 RTN
3532
3533 S^;*******************************************************^
3534 ;*FILOCS -- PUT OCTALS INTO OUTPUT FILE
3535 S^;*******************************************************^
3536
3537 005202 246 00 0 00 777735 FILOCS: LSHC 0,-^D35
3538 005203 242 01 0 00 777777 LSH 1,-1
3539
3540 005204 235 00 0 00 000010 DIVI 0,^D8 ;SEPARATE DIGITS
3541 005205 506 01 0 17 000000 HRLM 1,(P)
3542 005206 322 00 0 00 005210 JUMPE 0,.+2
3543 005207 260 17 0 00 005202 GO .-5
3544
3545 005210 554 07 0 17 000000 HLRZ CHR,(P) ;RETRIEVE DIGIT
3546 005211 271 07 0 00 000060 ADDI CHR,"0"
3547 005212 260 17 0 00 001270 GO PUT1
3548 005213 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 5
CNVFID MAC 1-May-78 15:15 OUTPUT FILE IDENTIFICATION SEQ 0131
3549 S^;*******************************************************^
3550 ;*FILSTR -- PUT SIXBIT DATA INTO OUTPUT FILE
3551 S^;*******************************************************^
3552
3553 005214 661 12 0 00 440600 FILSTR: TLO T2,440600 ;CONVERT TO POINTER
3554 005215 134 07 0 00 000012 ILDB CHR,T2 ;FETCH CHAR
3555 005216 322 07 0 00 005363 JUMPE CHR,CPOPJ ;IF NULL, DONE
3556 005217 271 07 0 00 000040 ADDI CHR," " ;CONVERT TO ASCII
3557 005220 260 17 0 00 001270 GO PUT1
3558 005221 254 00 0 00 005215 JRST .-4
3559
3560 S^;*******************************************************^
3561 ;*FILEOF -- PUT "END OF FILE CODE IN OUTPUT FILE
3562 S^;*******************************************************^
3563
3564 005222 201 07 0 00 000073 FILEOF: MOVEI CHR,";"
3565 005223 260 17 0 00 001270 GO PUT1
3566 005224 201 12 0 00 010056 MOVEI T2,[SIXBIT/EOF/]
3567 005225 260 17 0 00 005214 GO FILSTR
3568 005226 260 17 0 00 001303 GO PUTCRF
3569 005227 263 17 0 00 000000 RTN
3570
3571 S^;*******************************************************^
3572 ;*FILSP3 -- PUT SPACES INTO OUTPUT FILE
3573 S^;*******************************************************^
3574
3575 005230 201 07 0 00 000040 FILSP3: MOVEI CHR," "
3576 005231 260 17 0 00 001270 GO PUT1
3577 005232 201 07 0 00 000040 FILSP2: MOVEI CHR," "
3578 005233 260 17 0 00 001270 GO PUT1
3579 005234 201 07 0 00 000040 FILSP1: MOVEI CHR," "
3580 005235 260 17 0 00 001270 GO PUT1
3581 005236 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
CNVSUB MAC 1-May-78 15:16 MISCELLANEOUS SUBROUTINES SEQ 0132
3582 SUBTTL MISCELLANEOUS SUBROUTINES
3583
3584 S^;*******************************************************^
3585 ;*GETWRD -- SUBROUTINE TO RETURN NEXT SIXBIT FIELD
3586 ;* MOVE T2,BYTE POINTER FOR INPUT
3587 ;* GO GETWRD
3588 ;* RETURNS WITH FIELD IN T3
3589 ;* BREAKS ARE NON-ALPHANUMERIC OR GT 6 CHARS
3590 S^;*******************************************************^
3591
3592 005237 200 14 0 00 010057 GETWRD: MOVE T4,[POINT 6,T3]
3593 005240 201 13 0 00 000000 MOVEI T3,0
3594 005241 134 11 0 00 000012 GETWD1: ILDB T1,T2
3595 005242 260 17 0 00 005251 GO ALPH ;GET ALPHANUMERIC
3596 005243 263 17 0 00 000000 RTN ;BREAK FOUND
3597 005244 640 11 0 00 000040 TRC T1,40
3598 005245 602 13 0 00 000077 TRNE T3,77
3599 005246 263 17 0 00 000000 RTN ;RETURN IF GT 6 CHARS
3600 005247 136 11 0 00 000014 IDPB T1,T4
3601 005250 254 00 0 00 005241 JRST GETWD1
3602
3603 S^;*******************************************************^
3604 ;*ALPH -- SUBROUTINE TO CHECK CHARACTER
3605 ;* RETURNS IF NON-ALPHANUMERIC
3606 ;* SKIP-RETURN IF ALPHANUMERIC, $, % OR .
3607 ;* ENTER WITH CHAR IN T1
3608 ;* DISTURBS NO REGISTER
3609 S^;*******************************************************^
3610
3611 005251 306 11 0 00 000044 ALPH: CAIN T1,"$"
3612 005252 254 00 0 00 005264 JRST ALPH1
3613 005253 306 11 0 00 000045 CAIN T1,"%"
3614 005254 254 00 0 00 005264 JRST ALPH1
3615 005255 306 11 0 00 000056 CAIN T1,"."
3616 005256 254 00 0 00 005264 JRST ALPH1
3617 005257 301 11 0 00 000060 CAIL T1,"0"
3618 005260 303 11 0 00 000132 CAILE T1,"Z"
3619 005261 263 17 0 00 000000 RTN
3620 005262 303 11 0 00 000071 CAILE T1,"9"
3621 005263 301 11 0 00 000101 CAIL T1,"A"
3622 005264 350 00 0 17 000000 ALPH1: AOS (P)
3623 005265 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
CNVSUB MAC 1-May-78 15:16 MISCELLANEOUS SUBROUTINES SEQ 0133
3624 S^;*******************************************************^
3625 ;*GETDEC -- SUBROUTINE TO GET A DECIMAL INTERGER
3626 ;* MOVE T2,BYTE POINTER FOR INPUT
3627 ;* GO GETDEC
3628 ;* RETURNS WITH FIELD IN T3
3629 ;* BREAKS ARE ANY NON-DECIMAL CHAR, RETURNED IN T1
3630 S^;*******************************************************^
3631
3632 005266 400 13 0 00 000000 GETDEC: SETZ T3,
3633 005267 134 11 0 00 000012 GETDC1: ILDB T1,T2 ;GET NEXT CHAR
3634 005270 301 11 0 00 000060 CAIL T1,"0"
3635 005271 303 11 0 00 000071 CAILE T1,"9"
3636 005272 263 17 0 00 000000 RTN ;NON-DECIMAL
3637 005273 603 13 0 00 700000 TLNE T3,700000
3638 005274 263 17 0 00 000000 RTN ;OVERFLOW
3639 005275 221 13 0 00 000012 IMULI T3,^D10 ;MULT RESULT BY 10
3640 005276 271 13 0 11 777720 ADDI T3,-"0"(T1) ;ADD IN THIS DIGIT
3641 005277 254 00 0 00 005267 JRST GETDC1 ;LOOP
3642
3643 S^;*******************************************************^
3644 ;*GETOCT -- SUBROUTINE TO GET AN OCTAL INTERGER
3645 ;* MOVE T2,BYTE POINTER FOR INPUT
3646 ;* GO GETOCT
3647 ;* RETURNS WITH FIELD IN T3
3648 ;* BREAKS ARE ANY NON-OCTAL CHAR, RETURNED IN T1
3649 S^;*******************************************************^
3650
3651 005300 400 13 0 00 000000 GETOCT: SETZ T3,
3652 005301 134 11 0 00 000012 GETOC1: ILDB T1,T2 ;GET NEXT CHAR
3653 005302 301 11 0 00 000060 CAIL T1,"0"
3654 005303 303 11 0 00 000067 CAILE T1,"7"
3655 005304 263 17 0 00 000000 RTN
3656 005305 603 13 0 00 700000 TLNE T3,700000
3657 005306 263 17 0 00 000000 RTN ;OVERFLOW
3658 005307 242 13 0 00 000003 LSH T3,3 ;MULTIPY BY 8
3659 005310 271 13 0 11 777720 ADDI T3,-"0"(T1) ;ADD IN THIS DIGIT
3660 005311 254 00 0 00 005301 JRST GETOC1 ;LOOP
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
CNVSUB MAC 1-May-78 15:16 MISCELLANEOUS SUBROUTINES SEQ 0134
3661 S^;*******************************************************^
3662 ;*CMDIN -- SUBROUTINE TO GET COMMAND LINE
3663 ;* RETURNS ASCIZ STRING BYTE POINTER IN T2
3664 ;* EATS CR, RUBOUT, NULL, BREAK IS LF,VT,FF
3665 S^;*******************************************************^
3666
3667 005312 402 00 0 00 006005 CMDIN: SETZM COMLIN ;CLEAR COMMAND LINE BUFFER
3668 005313 200 12 0 00 010060 MOVE T2,[COMLIN,,COMLIN+1]
3669 005314 251 12 0 00 006042 BLT T2,COMLIN+^D29
3670 005315 200 12 0 00 010061 MOVE T2,[POINT 7,COMLIN]
3671 005316 201 13 0 00 000214 MOVEI T3,^D28*5 ;SET MAX LINE LENGTH
3672 005317 260 17 0 00 005332 CMDIN1: GO CMDGET
3673 005320 254 00 0 00 005324 JRST CMDIN2 ;BREAK
3674 005321 361 13 0 00 005324 SOJL T3,CMDIN2 ;PROTECT LENGTH OF LINE
3675 005322 136 11 0 00 000012 IDPB T1,T2 ;STORE CHAR
3676 005323 254 00 0 00 005317 JRST CMDIN1 ;LOOP
3677 005324 201 11 0 00 000000 CMDIN2: MOVEI T1,0 ;NULL ENDS STRING
3678 005325 136 11 0 00 000012 IDPB T1,T2
3679 005326 136 11 0 00 000012 IDPB T1,T2
3680 005327 136 11 0 00 000012 IDPB T1,T2
3681 005330 200 12 0 00 010061 MOVE T2,[POINT 7,COMLIN]
3682 005331 263 17 0 00 000000 RTN
3683
3684 S^;*******************************************************^
3685 ;*CMDGET -- SUBROUTINE TO GET NEXT COMMAND LINE CHARACTER
3686 ;* GO CMDGET
3687 ;* BREAK RETURN
3688 ;* NO BREAK RETURN
3689 ;* EATS CR, RUBOUT, NULL, BREAK IS LF, VT, FF
3690 S^;*******************************************************^
3691
3692 005332 260 17 0 00 005351 CMDGET: GO RINP ;GET INPUT CHAR
3693 005333 254 00 0 00 004322 JRST ERRS1 ;END OF FILE, NO 'END' STATEMENT
3694 005334 200 11 0 00 000007 MOVE T1,CHR
3695 005335 322 11 0 00 005332 JUMPE T1,CMDGET ;IGNORE NULLS
3696 005336 301 11 0 00 000141 CAIL T1,"A"+40
3697 005337 303 11 0 00 000172 CAILE T1,"Z"+40
3698 005340 334 00 0 00 000000 SKIPA
3699 005341 275 11 0 00 000040 SUBI T1,40 ;CONVERT LOWER CASE TO UPPER
3700 005342 302 11 0 00 000177 CAIE T1,177 ;RUBOUT
3701 005343 306 11 0 00 000015 CAIN T1,15 ;CR
3702 005344 254 00 0 00 005332 JRST CMDGET ;LOOP
3703 005345 301 11 0 00 000012 CAIL T1,12
3704 005346 303 11 0 00 000014 CAILE T1,14
3705 005347 350 00 0 17 000000 AOS (P) ;NO BREAK
3706 005350 263 17 0 00 000000 RTN ;BREAK
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
CNVSUB MAC 1-May-78 15:16 MISCELLANEOUS SUBROUTINES SEQ 0135
3707 S^;*******************************************************^
3708 ;*RINP -- INPUT FILE READ ROUTINE
3709 S^;*******************************************************^
3710
3711 005351 373 00 0 00 000705 RINP: SOSLE IBF+2 ;DECREMENT BYTE COUNT
3712 005352 254 00 0 00 005361 JRST RINP1
3713 005353 056 01 0 00 000000 IN ICHAN, ;GET NEXT BUFFER
3714 005354 254 00 0 00 005360 JRST RINP1-1
3715 005355 063 01 0 00 740000 STATZ ICHAN,740000
3716 005356 254 00 0 00 004324 JRST ERRS2 ;ERROR
3717 005357 263 17 0 00 000000 RTN ;EOF, RETURN
3718 005360 350 00 0 00 010422 AOS BLKCNT ;INCREMENT INPUT BLOCK COUNT
3719 005361 134 07 0 00 000704 RINP1: ILDB CHR,IBF+1 ;GET CHAR FROM BUFFER
3720 005362 350 00 0 17 000000 CPOPJ1: AOS (P)
3721 005363 263 17 0 00 000000 CPOPJ: RTN ;RETURN +1
3722
3723 S^;*******************************************************^
3724 ;*INTCOR -- INITIALIZE HI-CORE FOR RAM STORAGE
3725 S^;*******************************************************^
3726
3727 005364 205 00 0 00 000001 INTCOR: MOVSI 0,1 ;DELETE ANY PREVIOUS HIGH CORE
3728 005365 047 00 0 00 000011 CORE 0, ; (IF A RESTART)
3729 005366 254 00 0 00 005376 JRST ERRCOR
3730 005367 205 00 0 00 421777 MOVSI 0,HICORE+CRMSIZ*4-1
3731 005370 047 00 0 00 000011 CORE 0, ;GET HIGH CORE
3732 005371 254 00 0 00 005376 JRST ERRCOR
3733 005372 402 00 0 00 000000 SETZM
3734 005373 047 00 0 00 000036 SETUWP 0, ;MAKE IT WRITABLE
3735 005374 254 00 0 00 005376 JRST ERRCOR
3736 005375 263 17 0 00 000000 RTN
3737
3738 005376 ERRCOR: MOVEI [ASCIZ/
3739 005376 201 00 0 00 010062 CAN'T GET HI-CORE FOR RAM STORAGE/]
3740 005377 254 00 0 00 001523 JRST ERRX
3741
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 5
CNVSUB MAC 1-May-78 15:16 LISTING FILE INITIALIZATION SEQ 0136
3742 SUBTTL LISTING FILE INITIALIZATION
3743 S^;*******************************************************^
3744
3745 005400 332 00 0 00 010474 LSTINI: SKIPE MNOLST
3746 005401 254 00 0 00 005433 JRST LSTINO ;NO LISTING
3747 005402 200 00 0 00 010450 MOVE FILNAM
3748 005403 202 00 0 00 000231 MOVEM PNTNAM
3749 005404 402 00 0 00 010472 SETZM LSTSRT#
3750 005405 205 00 0 00 446353 MOVSI (SIXBIT/DSK/)
3751 005406 202 00 0 00 007301 MOVEM $INTDV+7 ;SETUP ERROR FILE ON DISK
3752 005407 201 00 0 00 000012 MOVEI ^D10
3753 005410 542 00 0 00 007304 HRRM $INTD2 ;USE 10 LISTING BUFFERS
3754 005411 201 00 0 00 005436 MOVEI LSTNM
3755 005412 542 00 0 00 007305 HRRM $INTD2+1 ;USE EXTENDED ENTER
3756 005413 200 00 0 00 010450 MOVE FILNAM
3757 005414 202 00 0 00 005440 MOVEM LSTNAM ;SETUP FILE NAME
3758 005415 205 00 0 00 554354 MOVSI (SIXBIT/MCL/)
3759 005416 202 00 0 00 005441 MOVEM LSTNAM+1 ;SETUP FILE EXT
3760 005417 200 00 0 00 000717 MOVE INNAME+1
3761 005420 405 00 0 00 700000 ANDI 700000
3762 005421 542 00 0 00 005441 HRRM LSTNAM+1
3763 005422 200 00 0 00 000720 MOVE INNAME+2
3764 005423 404 00 0 00 007361 AND [37,,-1]
3765 005424 202 00 0 00 005442 MOVEM LSTNAM+2
3766 005425 200 00 0 00 000722 MOVE INNAME+4
3767 005426 202 00 0 00 005444 MOVEM LSTNAM+4
3768 005427 205 00 0 00 020000 MOVSI PNTLPT
3769 005430 202 00 0 00 000227 MOVEM SWTEXR ;SET PRINT ON LOGICAL DEVICE SWITCH
3770 005431 260 17 0 00 005501 GO TIME ;CREATE HEADER LINE AND TITLE PAGE
3771 005432 263 17 0 00 000000 RTN
3772
3773 005433 205 00 0 00 040000 LSTINO: MOVSI NOPNT
3774 005434 202 00 0 00 000227 MOVEM SWTEXR
3775 005435 263 17 0 00 000000 RTN
3776
3777 005436 000000 000006 LSTNM: 6
3778 005437 000000 000000 0
3779 005440 56 41 55 45 00 00 LSTNAM: SIXBIT/NAME/
3780 005441 55 43 54 00 00 00 SIXBIT/MCL/
3781 005442 BLOCK 5
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 6
CNVSUB MAC 1-May-78 15:16 LISTING FILE INITIALIZATION SEQ 0137
3782 005447 332 00 0 00 010474 PAGHDR: SKIPE MNOLST
3783 005450 263 17 0 00 000000 RTN
3784 005451 260 17 0 00 005627 GO PAGNBR ;NUMBER PAGE
3785 005452 205 01 0 00 777752 MOVSI 1,-^D22 ;PRINT TOP LINE OF IMAGE BUFFER
3786 005453 200 00 0 01 006044 MOVE 0,IMAGEA(1)
3787 005454 260 17 0 00 005467 GO SIXPNT ;PRINT 6BIT WORD IN AC0
3788 005455 253 01 0 00 005453 AOBJN 1,.-2 ;DONE ENTIRE LINE ?
3789 005456 201 00 0 00 006727 MOVEI CRLF
3790 005457 264 00 0 00 010277 PNTA
3791 005460 205 01 0 00 777766 MOVSI 1,-^D10 ;PRINT 2ND LINE, IDENTIFY INPUT FILE
3792 005461 200 00 0 01 006074 MOVE 0,IMAGEB(1)
3793 005462 260 17 0 00 005467 GO SIXPNT
3794 005463 253 01 0 00 005461 AOBJN 1,.-2 ;DONE ENTIRE LINE ?
3795 005464 201 00 0 00 006730 MOVEI CRLF2 ;YES, DO DOUBLE CRLF
3796 005465 264 00 0 00 010277 PNTA
3797 005466 263 17 0 00 000000 RTN
3798
3799 005467 202 01 0 00 010520 SIXPNT: MOVEM 1,SIXAC1# ;PRINT 6BIT WD IN AC0
3800 005470 200 01 0 00 000000 MOVE 1,0 ;PUT WORD IN AC1
3801 005471 201 02 0 00 000006 MOVEI 2,6 ;6 CHARS PER WORD
3802
3803 005472 201 00 0 00 000000 SIXPN1: MOVEI 0,0
3804 005473 246 00 0 00 000006 LSHC 0,6 ;PUT CHAR INTO AC0
3805 005474 271 00 0 00 000040 ADDI 0,40 ;CONVERT TO ASCII
3806 005475 264 12 0 00 010277 PNTCHR ;PRINT
3807 005476 367 02 0 00 005472 SOJG 2,SIXPN1 ;DONE 6 CHARS ?
3808 005477 200 01 0 00 010520 MOVE 1,SIXAC1 ;YES
3809 005500 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 7
CNVSUB MAC 1-May-78 15:16 CONVERT TITLE AND PAGE HEADER PROCESS SEQ 0138
3810 SUBTTL CONVERT TITLE AND PAGE HEADER PROCESS
3811 S^;*******************************************************^
3812
3813 005501 402 00 0 00 006044 TIME: SETZM IMAGEA
3814 005502 200 00 0 00 010072 MOVE 0,[IMAGEA,,IMAGEA+1]
3815 005503 251 00 0 00 006106 BLT 0,IMAGEA+^D34 ;CLEAR TITLE LINE STORAGE
3816
3817 005504 260 17 0 00 005650 GO PTITLE ;PUT TITLE IN
3818
3819 005505 200 06 0 00 010073 MOVE BPNT,[POINT 6,IMAGEA+^D15]
3820 005506 133 00 0 00 000006 IBP BPNT
3821 005507 133 00 0 00 000006 IBP BPNT
3822 005510 047 02 0 00 000014 DATE AC2,
3823 005511 231 02 0 00 000037 IDIVI AC2,^D31
3824 005512 271 03 0 00 000001 ADDI AC3,1
3825 005513 260 17 0 00 005633 GO LSTNUM ;OUTPUT DAY
3826 005514 231 02 0 00 000014 IDIVI AC2,^D12
3827 005515 201 12 0 03 005664 MOVEI T2,DATETB(AC3)
3828 005516 260 17 0 00 005643 GO LSTSTR ;OUTPUT MONTH
3829 005517 201 03 0 02 000100 MOVEI AC3,^D64(AC2)
3830 005520 202 03 0 00 010532 MOVEM AC3,YEAR#
3831 005521 260 17 0 00 005633 GO LSTNUM ;OUTPUT YEAR
3832 005522 133 00 0 00 000006 IBP BPNT
3833 005523 047 02 0 00 000023 MSTIME AC2,
3834 005524 231 02 0 00 001750 IDIVI AC2,^D1000
3835 005525 301 03 0 00 000764 CAIL AC3,^D500
3836 005526 271 02 0 00 000001 ADDI AC2,1
3837 005527 231 02 0 00 007020 IDIVI AC2,^D3600
3838 005530 250 02 0 00 000003 EXCH AC2,AC3
3839 005531 260 17 0 00 005633 GO LSTNUM ;OUTPUT HOURS
3840 005532 201 11 0 00 000032 MOVEI T1,32
3841 005533 136 11 0 00 000006 IDPB T1,BPNT ;:
3842 005534 231 02 0 00 000074 IDIVI AC2,^D60
3843 005535 250 02 0 00 000003 EXCH AC2,AC3
3844 005536 260 17 0 00 005633 GO LSTNUM ;OUTPUT MINUTES
3845 005537 133 00 0 00 000006 IBP BPNT
3846 005540 133 00 0 00 000006 IBP BPNT
3847 005541 133 00 0 00 000006 IBP BPNT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 8
CNVSUB MAC 1-May-78 15:16 CONVERT TITLE AND PAGE HEADER PROCESS SEQ 0139
3848 005542 201 12 0 00 010074 MOVEI T2,[SIXBIT/PAGE/]
3849 005543 260 17 0 00 005643 GO LSTSTR ;OUTPUT 'PAGE'
3850 005544 133 00 0 00 000006 IBP BPNT
3851 005545 202 06 0 00 010523 MOVEM BPNT,SVBPNT# ;SAVE FOR PAGE NUMBERING
3852
3853 005546 200 00 0 00 010075 TIME1: MOVE [SIXBIT/CONVRT/]
3854 005547 202 00 0 00 006060 MOVEM IMAGEA+^D12
3855 005550 200 00 0 00 010076 MOVE [SIXBIT/ VER/]
3856 005551 202 00 0 00 006061 MOVEM IMAGEA+^D13
3857 005552 200 06 0 00 010077 MOVE BPNT,[POINT 6,IMAGEA+^D14]
3858 005553 554 03 0 00 000137 HLRZ AC3,JOBVER
3859 005554 260 17 0 00 005641 GO LSTOCT ;OUTPUT MCN LEVEL
3860 005555 201 12 0 00 000016 MOVEI T2,16
3861 005556 136 12 0 00 000006 IDPB T2,BPNT ;.
3862 005557 550 03 0 00 000137 HRRZ AC3,JOBVER
3863 005560 260 17 0 00 005641 GO LSTOCT ;OUTPUT DEC VERSION
3864
3865 005561 260 17 0 00 005700 GO IDENT ;IDENTIFY INPUT FILE
3866
3867 005562 402 00 0 00 010502 SETZM PAGCNT#
3868 005563 260 17 0 00 005447 GO PAGHDR ;PUT HEADER ON PAGE
3869
3870 005564 201 01 0 00 000024 MOVEI AC1,^D20
3871 005565 201 00 0 00 006727 MOVEI CRLF
3872 005566 264 00 0 00 010277 PNTA
3873 005567 367 01 0 00 005565 SOJG AC1,.-2 ;STEP DOWN 20 LINES
3874
3875 005570 201 00 0 00 005755 MOVEI STRLIN
3876 005571 264 17 0 00 010277 PNTAL ;PUT IN STAR LINE
3877 005572 201 01 0 00 000116 MOVEI AC1,^D39*2 ;CENTER IS 39 CHARACTERS
3878 005573 274 01 0 00 010525 SUB AC1,TTCNT
3879 005574 240 01 0 00 777777 ASH AC1,-1
3880 005575 201 00 0 00 000040 MOVEI " "
3881 005576 264 12 0 00 010277 PNTCHR ;OUTPUT JUSTIFING SPACES
3882 005577 367 01 0 00 005575 SOJG AC1,.-2
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 9
CNVSUB MAC 1-May-78 15:16 CONVERT TITLE AND PAGE HEADER PROCESS SEQ 0140
3883
3884 005600 201 00 0 00 006112 MOVEI MTITS
3885 005601 336 00 0 00 006112 SKIPN MTITS
3886 005602 201 00 0 00 005746 MOVEI TLINE
3887 005603 264 17 0 00 010277 PNTAL ;PRINT TITLE
3888 005604 201 00 0 00 006727 MOVEI CRLF
3889 005605 264 00 0 00 010277 PNTA
3890 005606 201 00 0 00 005755 MOVEI STRLIN
3891 005607 264 17 0 00 010277 PNTAL ;PUT IN STAR LINE
3892 005610 201 01 0 00 000020 MOVEI AC1,^D16
3893 005611 201 00 0 00 006727 MOVEI CRLF
3894 005612 264 00 0 00 010277 PNTA
3895 005613 367 01 0 00 005611 SOJG AC1,.-2 ;STEP DOWN 16 LINES
3896
3897 005614 201 00 0 00 005762 MOVEI CRLINE
3898 005615 264 17 0 00 010277 PNTAL ;'COPYRIGHT 19'
3899 005616 200 03 0 00 010532 MOVE AC3,YEAR
3900 005617 231 03 0 00 000012 IDIVI AC3,^D10
3901 005620 201 00 0 03 000060 MOVEI 0,60(AC3)
3902 005621 264 12 0 00 010277 PNTCHR ;APPEND YEAR
3903 005622 201 00 0 04 000060 MOVEI 0,60(AC4)
3904 005623 264 12 0 00 010277 PNTCHR
3905 005624 201 00 0 00 005767 MOVEI CRLIN1
3906 005625 264 17 0 00 010277 PNTAL ;REST OF COPYRIGHT
3907 005626 263 17 0 00 000000 RTN ;DONE
3908
3909 005627 350 03 0 00 010502 PAGNBR: AOS AC3,PAGCNT ;INCREMENT PAGE COUNT
3910 005630 200 06 0 00 010523 MOVE BPNT,SVBPNT
3911 005631 260 17 0 00 005633 GO LSTNUM ;PUT PAGE NUMBER IN HEADER LINE
3912 005632 263 17 0 00 000000 RTN
3913
3914 005633 231 03 0 00 000012 LSTNUM: IDIVI AC3,^D10 ;SEPARATE DIGITS
3915 005634 201 11 0 03 000020 MOVEI T1,20(AC3) ;GET TENS
3916 005635 136 11 0 00 000006 IDPB T1,BPNT ;OUTPUT
3917 005636 201 11 0 04 000020 MOVEI T1,20(AC4)
3918 005637 136 11 0 00 000006 IDPB T1,BPNT ;OUTPUT UNITS
3919 005640 263 17 0 00 000000 RTN
3920
3921 005641 231 03 0 00 000010 LSTOCT: IDIVI AC3,^D8 ;SEPARATE OCTAL DIGITS
3922 005642 254 00 0 00 005634 JRST LSTNUM+1
3923
3924 005643 665 12 0 00 440600 LSTSTR: TLOA T2,440600 ;CONVERT TO POINTER
3925 005644 136 11 0 00 000006 LSTST1: IDPB T1,BPNT ;OUTPUT CHAR
3926 005645 134 11 0 00 000012 ILDB T1,T2 ;FETCH NEXT CHAR
3927 005646 326 11 0 00 005644 JUMPN T1,LSTST1 ;LOOP TO NULL
3928 005647 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 10
CNVSUB MAC 1-May-78 15:16 CONVERT TITLE AND PAGE HEADER PROCESS SEQ 0141
3929 S^;*******************************************************^
3930 ;*PTITLE -- PUT TITLE LINE IN HEADER STORAGE
3931 S^;*******************************************************^
3932
3933 005650 200 12 0 00 007566 PTITLE: MOVE T2,[POINT 7,MTITS]
3934 005651 336 00 0 00 006112 SKIPN MTITS
3935 005652 200 12 0 00 010100 MOVE T2,[POINT 7,TLINE]
3936 005653 200 11 0 00 010101 MOVE T1,[POINT 6,IMAGEA]
3937 005654 402 00 0 00 010525 SETZM TTCNT#
3938
3939 005655 134 00 0 00 000012 TLOOP: ILDB 0,T2 ;GET CHAR FROM TLINE
3940 005656 322 00 0 00 005663 JUMPE 0,TEND ;IF NULL, DONE
3941 005657 350 00 0 00 010525 AOS TTCNT ;COUNT IT
3942 005660 640 00 0 00 000040 TRC 0,40 ;MAKE SIXBIT
3943 005661 136 00 0 00 000011 IDPB 0,T1 ;DEPOSIT IN HEADER LINE STORAGE
3944 005662 254 00 0 00 005655 JRST TLOOP
3945
3946 005663 263 17 0 00 000000 TEND: RTN
3947
3948 005664 15 52 41 56 15 00 DATETB: SIXBIT/-JAN-/
3949 005665 15 46 45 42 15 00 SIXBIT/-FEB-/
3950 005666 15 55 41 62 15 00 SIXBIT/-MAR-/
3951 005667 15 41 60 62 15 00 SIXBIT/-APR-/
3952 005670 15 55 41 71 15 00 SIXBIT/-MAY-/
3953 005671 15 52 65 56 15 00 SIXBIT/-JUN-/
3954 005672 15 52 65 54 15 00 SIXBIT/-JUL-/
3955 005673 15 41 65 47 15 00 SIXBIT/-AUG-/
3956 005674 15 63 45 60 15 00 SIXBIT/-SEP-/
3957 005675 15 57 43 64 15 00 SIXBIT/-OCT-/
3958 005676 15 56 57 66 15 00 SIXBIT/-NOV-/
3959 005677 15 44 45 43 15 00 SIXBIT/-DEC-/
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 11
CNVSUB MAC 1-May-78 15:16 CONVERT TITLE AND PAGE HEADER PROCESS SEQ 0142
3960 S^;*******************************************************^
3961 ;*IDENT -- IDENTIFY INPUT FILE USED ON LISTING 2ND LINE
3962 S^;*******************************************************^
3963
3964 005700 200 06 0 00 010102 IDENT: MOVE BPNT,[POINT 6,IMAGEB]
3965 005701 200 00 0 00 000716 MOVE INNAME
3966 005702 202 00 0 00 006110 MOVEM SIXSTR
3967 005703 201 12 0 00 006110 MOVEI T2,SIXSTR
3968 005704 260 17 0 00 005643 GO LSTSTR ;PUT NAME IN STORAGE
3969 005705 201 11 0 00 000016 MOVEI T1,16
3970 005706 136 11 0 00 000006 IDPB T1,BPNT ;"."
3971 005707 510 00 0 00 000717 HLLZ INNAME+1
3972 005710 202 00 0 00 006110 MOVEM SIXSTR
3973 005711 201 12 0 00 006110 MOVEI T2,SIXSTR
3974 005712 260 17 0 00 005643 GO LSTSTR ;PUT EXT IN STORAGE
3975
3976 005713 200 06 0 00 010103 IDENT1: MOVE BPNT,[POINT 6,IMAGEB+3]
3977
3978 005714 135 01 0 00 010046 LDB AC1,[POINT 12,INNAME+2,35] ;GET LOW PART OF DATE
3979 005715 135 02 0 00 010047 LDB AC2,[POINT 3,INNAME+1,20] ;GET HIGH PART OF DATE
3980 005716 137 02 0 00 010104 DPB AC2,[POINT 3,AC1,23] ;PUT THE TWO TOGETHER
3981 005717 322 01 0 00 005363 JUMPE AC1,CPOPJ ;IF 0, SUPPRESS DATE & TIME
3982
3983 005720 261 17 0 00 000001 PUT AC1 ;SAVE DATE
3984 005721 135 02 0 00 010105 LDB AC2,[POINT 11,INNAME+2,23]
3985 005722 231 02 0 00 000074 IDIVI AC2,^D60
3986 005723 250 02 0 00 000003 EXCH AC2,AC3
3987 005724 260 17 0 00 005633 GO LSTNUM ;OUTPUT HOURS
3988 005725 201 11 0 00 000032 MOVEI T1,32
3989 005726 136 11 0 00 000006 IDPB T1,BPNT ;":"
3990 005727 250 02 0 00 000003 EXCH AC2,AC3
3991 005730 260 17 0 00 005633 GO LSTNUM ;OUTPUT MINUTES
3992 005731 133 00 0 00 000006 IBP BPNT
3993 005732 133 00 0 00 000006 IBP BPNT
3994 005733 133 00 0 00 000006 IBP BPNT
3995
3996 005734 262 17 0 00 000002 GET AC2 ;GET DATE BACK
3997 005735 231 02 0 00 000037 IDIVI AC2,^D31
3998 005736 271 03 0 00 000001 ADDI AC3,1
3999 005737 260 17 0 00 005633 GO LSTNUM ;OUTPUT DAY
4000 005740 231 02 0 00 000014 IDIVI AC2,^D12
4001 005741 201 12 0 03 005664 MOVEI T2,DATETB(AC3)
4002 005742 260 17 0 00 005643 GO LSTSTR ;OUTPUT MONTH
4003 005743 201 03 0 02 000100 MOVEI AC3,^D64(AC2)
4004 005744 260 17 0 00 005633 GO LSTNUM ;OUTPUT YEAR
4005 005745 263 17 0 00 000000 RTN
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 12
CNVSUB MAC 1-May-78 15:16 CONVERT TITLE AND PAGE HEADER PROCESS SEQ 0143
4006
4007 005746 104 105 103 123 131 TLINE: ASCIZ/DECSYSTEM KL10 MICRO-CODE LIST/
4008 005747 123 124 105 115 040
4009 005750 113 114 061 060 040
4010 005751 115 111 103 122 117
4011 005752 055 103 117 104 105
4012 005753 040 114 111 123 124
4013 005754 000 000 000 000 000
4014
4015 005755 011 011 011 011 052 STRLIN: ASCIZ/ **************
4016 005756 052 052 052 052 052
4017 005757 052 052 052 052 052
4018 005760 052 052 052 015 012 /
4019 005761 000 000 000 000 000
4020
4021 005762 CRLINE: ASCIZ/
4022 005762 015 012 011 011 040 COPYRIGHT (C) 19/
4023 005763 040 040 040 103 117
4024 005764 120 131 122 111 107
4025 005765 110 124 040 050 103
4026 005766 051 040 061 071 000
4027
4028 005767 CRLIN1: ASCIZ/
4029 005767 015 012 011 011 040 DIGITAL EQUIPMENT CORPORATION
4030 005770 040 040 040 104 111
4031 005771 107 111 124 101 114
4032 005772 040 105 121 125 111
4033 005773 120 115 105 116 124
4034 005774 040 103 117 122 120
4035 005775 117 122 101 124 111
4036 005776 117 116 015 012 011 MARLBORO, MASS. 01752
4037 005777 011 040 040 040 040
4038 006000 115 101 122 114 102
4039 006001 117 122 117 054 040
4040 006002 115 101 123 123 056
4041 006003 040 060 061 067 065
4042 006004 062 015 012 000 000 /
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 13
CNVSUB MAC 1-May-78 15:16 BUFFERS SEQ 0144
4043 SUBTTL BUFFERS
4044
4045 S^;*******************************************************^
4046 ;*COMLIN -- COMMAND LINE BUFFER
4047 S^;*******************************************************^
4048
4049 006005 COMLIN: BLOCK ^D28
4050 006041 000000 000000 0
4051 006042 000000 000000 0
4052 006043 000000 000000 0
4053
4054 S^;*******************************************************^
4055 ;*IMAGEA -- LINE PRINTER IMAGE BUFFER
4056 S^;*******************************************************^
4057
4058 006044 IMAGEA: BLOCK ^D22 ;TOP LINE
4059 006072 000000 000000 0
4060 006073 000000 000000 0
4061 006074 IMAGEB: BLOCK ^D10 ;SECOND LINE
4062 006106 000000 000000 0
4063 006107 000000 000000 0
4064
4065 006110 000000 000000 SIXSTR: 0 ;STORAGE FOR SIXBIT PRINT
4066 006111 000000 000000 0 ;MUST BE ZERO
4067
4068 S^;*******************************************************^
4069 ;*MTITS -- MICRO .TITLE BUFFER
4070 S^;*******************************************************^
4071
4072 006112 MTITS: BLOCK ^D28
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PROGRAM SUBROUTINE INITIALIZATION, V73G, NOV 12, 1973 SEQ 0145
4073 SUBTTL *SUBRTN* PROGRAM SUBROUTINE INITIALIZATION, V73G, NOV 12, 1973
4074
4075 006146 202 00 0 00 010533 $PGMIN: MOVEM 0,$ACA0#
4076 006147 476 00 0 00 010526 SETOM USER#
4077 006150 607 00 0 00 010000 TLNN 0,USERF ;USER MODE ?
4078 006151 402 00 0 00 010526 SETZM USER ;EXEC MODE
4079 006152 336 00 0 00 000225 SKIPN MONFLG ;DIAG MON, SPECIAL USER MODE ?
4080 006153 402 00 0 00 010526 SETZM USER ;YES, TREAT I/O AS EXEC
4081 006154 332 00 0 00 010526 SKIPE USER ;EXEC ?
4082 006155 254 00 0 00 006162 JRST .+5 ;NO
4083 006156 7 004 20 0 00 010000 CONO PI,010000 ;CLEAR PI SYSTEM
4084 006157 7 000 20 0 00 200000 CONO APR,200000 ;CLEAR I/O
4085 006160 554 00 0 00 000120 HLRZ JOBSA ;RESET JOB FIRST FREE TO
4086 006161 202 00 0 00 000121 MOVEM JOBFF ;END OF LOW SEGMENT
4087 006162 332 00 0 00 010526 SKIPE USER ;USER ?
4088 006163 047 00 0 00 000000 CALLI 0 ;YES, CLEAR USER I/O
4089 006164 254 02 1 00 006165 JRST 2,@.+1 ;CLEAR PC FLAGS
4090 006165 000000 006166 XWD 0,.+1
4091 006166 200 00 0 00 010433 MOVE CONSW
4092 006167 202 00 0 00 010573 MOVEM $SVCSW# ;SAVE PREVIOUS SWITCHES
4093 006170 402 00 0 00 010433 SETZM CONSW# ;CLEAR SWITCH REGISTER
4094 006171 402 00 0 00 010577 SETZM $SWFLG# ;DISALLOW SWITCHES TILL INITED
4095 006172 265 00 0 00 006203 JSP $CPUTP ;DETERMINE CPU TYPE
4096 XLIST
4097 IFDEF PSHLST,<LIST
4098 006173 200 17 0 00 010337 MOVE P,PLIST ;INIT PUSH POINTER
4099 006174 201 00 0 00 006240 MOVEI 0,$PSHER
4100 006175 261 17 0 00 000000 PUSH P,0 ;SET ERR FOR EXCESSIVE POP'S>
4101 XLIST
4102 IFDEF PRINT,<LIST
4103 006176 265 00 0 00 006747 JSP $PNTIN ;INIT PRINT SUBROUTINE>
4104 XLIST
4105 IFDEF TYPIN,<LIST
4106 006177 265 00 0 00 006431 JSP $TYPIN ;INIT TTY INPUT SUBROUTINE>
4107 XLIST
4108 IFDEF UUOS,<LIST
4109 006200 265 00 0 00 006424 JSP $UUOIN ;INIT UUO SUBROUTINE>
4110 XLIST
4111 LIST
4112 006201 476 00 0 00 010547 SETOM $ONETM ;SET ONE TIME FLAG
4113 006202 254 00 1 00 010533 JRST @$ACA0 ;EXIT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PROGRAM SUBROUTINE INITIALIZATION, V73G, NOV 12, 1973 SEQ 0146
4114 ;DETERMINE PROCESSOR TYPE
4115
4116 006203 202 00 0 00 010534 $CPUTP: MOVEM 0,$ACB0#
4117 006204 476 00 0 00 010462 SETOM KAIFLG# ;KAIFLG =0, KA10; =-1, KI10
4118 006205 255 17 0 00 006206 JFCL 17,.+1
4119 006206 254 00 0 00 006207 JRST .+1
4120 006207 255 01 0 00 006213 JFCL 1,$PDP6 ;PDP-6 HAS PC CHANGE FLAG, TREAT AS KA10
4121 006210 211 00 0 00 000001 MOVNI 0,1 ;KA10, KI10 DO NOT
4122 006211 253 00 0 00 006212 AOBJN 0,.+1 ;CARRY INTO BIT 17 DETERMINES CP
4123 006212 332 00 0 00 000000 SKIPE 0 ;KI10 IF (AC) = 0,,0
4124 006213 402 00 0 00 010462 $PDP6: SETZM KAIFLG ;KA10 IF (AC) = 1,,0
4125 006214 254 00 1 00 010534 JRST @$ACB0
4126
4127 ;SUBROUTINE ERROR HALT
4128
4129 006215 202 00 0 00 010543 $ERHL1: MOVEM 0,$ERH0# ;SAVE AC0
4130 006216 265 00 0 00 006243 PNTNM ;PRINT PROGRAM NAME
4131 MOVEI [ASCIZ/
4132 006217 201 00 0 00 010106 ERROR HALT AT /]
4133 006220 264 17 0 00 010301 PNTALF
4134 006221 200 00 0 00 010273 MOVE $ERHLT
4135 006222 370 00 0 00 000000 SOS
4136 006223 264 06 0 00 010301 PNT6F
4137 006224 200 00 0 00 010543 MOVE 0,$ERH0
4138 006225 336 00 0 00 010526 SKIPN USER ;USER MODE ?
4139 006226 254 00 0 00 006231 JRST .+3
4140 006227 047 01 0 00 000012 EXIT 1,
4141 006230 254 00 1 00 010273 JRST @$ERHLT
4142 006231 331 00 0 00 000224 SKIPL MONCTL ;UNDER MONITOR CONTROL ?
4143 006232 254 04 1 00 010273 HALT @$ERHLT ;NO
4144 006233 265 00 0 00 006307 SWITCH
4145 006234 607 00 0 00 002000 TLNN 0,ERSTOP ;HALT ON ERROR SWITCH SET ?
4146 006235 254 00 1 00 000226 JRST @RETURN
4147 006236 200 00 0 00 010543 MOVE 0,$ERH0
4148 006237 254 04 1 00 010273 HALT @$ERHLT
4149
4150 XLIST
4151 IFDEF PSHLST,<LIST
4152 ;PUSH DOWN LIST EXCESSIVE POPJ ROUTINE
4153
4154 006240 $PSHER: MOVEI [ASCIZ/
4155 **********
4156 006240 201 00 0 00 010112 PUSHDOWN LIST UNDERFLOW ERROR/]
4157 006241 264 17 0 00 010301 PNTALF
4158 006242 264 00 0 00 010271 FATAL>
4159 LIST
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PROGRAM SUBROUTINE INITIALIZATION, V73G, NOV 12, 1973 SEQ 0147
4160 ;PRINT PROGRAM NAME IF NOT STAND-ALONE
4161
4162 006243 202 00 0 00 010535 $PNTNM: MOVEM 0,$ACPN0#
4163 006244 331 00 0 00 000224 SKIPL MONCTL ;DIAG MON / SYS EXER ?
4164 006245 254 00 1 00 010535 JRST @$ACPN0 ;NO
4165 006246 201 00 0 00 000236 MOVEI PGMNAM
4166 006247 264 17 0 00 010277 PNTAL ;PRINT PROGRAM NAME
4167 006250 200 00 0 00 010507 MOVE 0,PNTSPC
4168 006251 202 00 0 00 010574 MOVEM 0,$SVPSP# ;SAVE PRINT SPACE CONTROL
4169 006252 402 00 0 00 010507 SETZM PNTSPC
4170 006253 201 00 0 00 010123 MOVEI [ASCIZ/VERSION /]
4171 006254 264 17 0 00 010277 PNTAL
4172 006255 554 00 0 00 000137 HLRZ JOBVER
4173 006256 264 03 0 00 010277 PNT3 ;PRINT MCN LEVEL
4174 006257 201 00 0 00 006732 MOVEI PERIOD
4175 006260 264 00 0 00 010277 PNTA
4176 006261 550 00 0 00 000137 HRRZ JOBVER
4177 006262 264 03 0 00 010277 PNT3 ;PRINT DEC VERSION
4178 006263 201 00 0 00 006730 MOVEI CRLF2
4179 006264 264 00 0 00 010277 PNTA
4180 006265 200 00 0 00 010574 MOVE 0,$SVPSP
4181 006266 202 00 0 00 010507 MOVEM 0,PNTSPC ;RESTORE SPACE CONTROL
4182 006267 254 00 1 00 010535 JRST @$ACPN0
4183
4184 ;FATAL PROGRAM ERROR HALT
4185
4186 006270 202 00 0 00 010544 $FATL1: MOVEM 0,$FATL0#
4187 006271 265 00 0 00 006243 PNTNM
4188 MOVEI [ASCIZ/
4189 006272 201 00 0 00 010125 FATAL PROGRAM ERROR AT /]
4190 006273 264 17 0 00 010301 PNTALF
4191 006274 200 00 0 00 010271 MOVE $FATAL
4192 006275 370 00 0 00 000000 SOS
4193 006276 264 06 0 00 010301 PNT6F
4194 006277 332 00 0 00 010526 SKIPE USER
4195 006300 047 00 0 00 000012 EXIT ;USER - RELEASE, RESET & EXIT
4196 006301 331 00 0 00 000224 SKIPL MONCTL ;EXEC - DIAGNOSTIC MONITOR ?
4197 006302 254 04 0 00 000140 HALT BEGIN ;NO
4198 006303 265 00 0 00 006307 SWITCH
4199 006304 607 00 0 00 002000 TLNN ERSTOP ;YES, STOP ON ERROR ?
4200 006305 254 00 1 00 000226 JRST @RETURN ;NO, BACK TO DIAG MONITOR
4201 006306 254 04 0 00 000140 HALT BEGIN
4202 XLIST
4203 IFNDEF TOGGLE,<LIST
4204 006307 202 00 0 00 010572 $SWTCH: MOVEM 0,$SACA0#
4205 006310 200 00 0 00 000227 MOVE 0,SWTEXR ;USE "SWTEXR" AS SWITCHES
4206 006311 202 00 0 00 010433 MOVEM 0,CONSW
4207 006312 254 00 1 00 010572 JRST @$SACA0 >
4208 XLIST
4209 IFDEF UUOS,<LIST
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 31
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* UUO HANDLING SUBROUTINE, V73G, NOV 12, 1973 SEQ 0148
4210 SUBTTL *SUBRTN* UUO HANDLING SUBROUTINE, V73G, NOV 12, 1973
4211
4212 006313 332 00 0 00 010617 $UORTN: SKIPE $UOREC# ;A RECURSIVE UUO ?
4213 006314 254 00 0 00 006341 JRST $UUOER ;YES, ILLEGAL
4214 006315 476 00 0 00 010617 SETOM $UOREC ;SET DOING UUO FLAG
4215 006316 202 00 0 00 010616 MOVEM 0,$UOAC0# ;SAVE AC0
4216 006317 200 00 0 00 010303 MOVE UUORTN
4217 006320 202 00 0 00 010575 MOVEM $SVUPC#
4218 006321 200 00 0 00 000040 MOVE JOBUUO
4219 006322 202 00 0 00 010576 MOVEM $SVUUO#
4220 006323 242 00 0 00 777745 LSH -^D27
4221 006324 303 00 0 00 000037 CAILE 37 ;UUO IN CORRECT RANGE ?
4222 006325 254 00 0 00 006341 JRST $UUOER ;NO
4223 006326 270 00 0 00 010133 ADD [JRST @UUODIS]
4224 006327 202 00 0 00 010305 MOVEM $UUOGO
4225 006330 200 00 0 00 010616 MOVE $UOAC0
4226 IFDEF PSHLST,<
4227 006331 261 17 0 00 010303 PUSH P,UUORTN ;MAKE RECURSIVE
4228 006332 402 00 0 00 010617 SETZM $UOREC >
4229 006333 254 00 0 00 010305 JRST $UUOGO
4230
4231 ;UUO EXIT ROUTINE
4232
4233 006334 350 00 0 00 010303 UUOSKP: AOS UUORTN ;SKIP RETURN, +2
4234 IFDEF PSHLST,<
4235 006335 350 00 0 17 000000 AOS (P) >
4236
4237 006336 402 00 0 00 010617 UUOEXT: SETZM $UOREC ;CLEAR DOING UUO FLAG
4238 IFDEF PSHLST,<
4239 006337 263 17 0 00 000000 RTN >
4240 006340 254 02 1 00 010303 JRST 2,@UUORTN ;RESTORE FLAGS AND EXIT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 32
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* UUO HANDLING SUBROUTINE, V73G, NOV 12, 1973 SEQ 0149
4241 ;ILLEGAL OR UNCODED UUO ROUTINE
4242
4243 006341 265 00 0 00 006243 $UUOER: PNTNM
4244 MOVEI [ASCIZ/
4245 ILLEGAL UUO EXECUTED
4246 UUO FLAGS PC PROG
4247 006342 201 00 0 00 010134 /]
4248 006343 264 17 0 00 010301 PNTALF ;PRINT HEADER
4249 006344 200 00 0 00 010576 MOVE $SVUUO
4250 006345 264 13 0 00 010301 PNTHWF ;PRINT UUO
4251 006346 201 00 0 00 006733 MOVEI SPACE
4252 006347 264 00 0 00 010301 PNTAF
4253 006350 200 00 0 00 010575 MOVE $SVUPC
4254 006351 370 00 0 00 000000 SOS
4255 006352 264 13 0 00 010301 PNTHWF ;PRINT FLAGS, PC
4256 IFDEF PSHLST,<
4257 006353 201 00 0 00 006733 MOVEI SPACE
4258 006354 264 00 0 00 010301 PNTAF
4259 006355 550 00 0 17 000000 HRRZ 0,(P)
4260 006356 275 00 0 00 000001 SUBI 0,1
4261 006357 264 06 0 00 010301 PNT6F ;PRINT LAST PUSHJ ENTRY>
4262 006360 201 00 0 00 006730 MOVEI CRLF2
4263 006361 264 00 0 00 010301 PNTAF
4264 006362 254 00 0 00 006363 $UORTX: JRST .+1 ;TO ADD ROUTINE, PLACE JRST HERE
4265 006363 264 00 0 00 010271 FATAL
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 33
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* UUO HANDLING SUBROUTINE, V73G, NOV 12, 1973 SEQ 0150
4266 ;UUO DISPATCH TABLE
4267
4268 006364 000000 006341 UUODIS: $UUOER ;ILL UUO, 0
4269 006365 000000 006341 IFDEF LUUO1,<LUUO1> IFNDEF LUUO1,<$UUOER> ;UUO 1
4270 006366 000000 006341 IFDEF LUUO2,<LUUO2> IFNDEF LUUO2,<$UUOER> ;UUO 2
4271 006367 000000 006341 IFDEF LUUO3,<LUUO3> IFNDEF LUUO3,<$UUOER> ;UUO 3
4272 006370 000000 006341 IFDEF LUUO4,<LUUO4> IFNDEF LUUO4,<$UUOER> ;UUO 4
4273 006371 000000 006341 IFDEF LUUO5,<LUUO5> IFNDEF LUUO5,<$UUOER> ;UUO 5
4274 006372 000000 006341 IFDEF LUUO6,<LUUO6> IFNDEF LUUO6,<$UUOER> ;UUO 6
4275 006373 000000 006341 IFDEF LUUO7,<LUUO7> IFNDEF LUUO7,<$UUOER> ;UUO 7
4276 006374 000000 006341 IFDEF LUUO10,<LUUO10> IFNDEF LUUO10,<$UUOER> ;UUO 10
4277 006375 000000 006341 IFDEF LUUO11,<LUUO11> IFNDEF LUUO11,<$UUOER> ;UUO 11
4278 006376 000000 006341 IFDEF LUUO12,<LUUO12> IFNDEF LUUO12,<$UUOER> ;UUO 12
4279 006377 000000 006341 IFDEF LUUO13,<LUUO13> IFNDEF LUUO13,<$UUOER> ;UUO 13
4280 006400 000000 006341 IFDEF LUUO14,<LUUO14> IFNDEF LUUO14,<$UUOER> ;UUO 14
4281 006401 000000 006341 IFDEF LUUO15,<LUUO15> IFNDEF LUUO15,<$UUOER> ;UUO 15
4282 006402 000000 006341 IFDEF LUUO16,<LUUO16> IFNDEF LUUO16,<$UUOER> ;UUO 16
4283 006403 000000 006341 IFDEF LUUO17,<LUUO17> IFNDEF LUUO17,<$UUOER> ;UUO 17
4284 006404 000000 006341 IFDEF LUUO20,<LUUO20> IFNDEF LUUO20,<$UUOER> ;UUO 20
4285 006405 000000 006341 IFDEF LUUO21,<LUUO21> IFNDEF LUUO21,<$UUOER> ;UUO 21
4286 006406 000000 006341 IFDEF LUUO22,<LUUO22> IFNDEF LUUO22,<$UUOER> ;UUO 22
4287 006407 000000 006341 IFDEF LUUO23,<LUUO23> IFNDEF LUUO23,<$UUOER> ;UUO 23
4288 006410 000000 006341 IFDEF LUUO24,<LUUO24> IFNDEF LUUO24,<$UUOER> ;UUO 24
4289 006411 000000 006341 IFDEF LUUO25,<LUUO25> IFNDEF LUUO25,<$UUOER> ;UUO 25
4290 006412 000000 006341 IFDEF LUUO26,<LUUO26> IFNDEF LUUO26,<$UUOER> ;UUO 26
4291 006413 000000 006341 IFDEF LUUO27,<LUUO27> IFNDEF LUUO27,<$UUOER> ;UUO 27
4292 006414 000000 006341 IFDEF LUUO30,<LUUO30> IFNDEF LUUO30,<$UUOER> ;UUO 30
4293 006415 000000 006341 IFDEF LUUO31,<LUUO31> IFNDEF LUUO31,<$UUOER> ;UUO 31
4294 006416 000000 006341 IFDEF LUUO32,<LUUO32> IFNDEF LUUO32,<$UUOER> ;UUO 32
4295 006417 000000 006341 IFDEF LUUO33,<LUUO33> IFNDEF LUUO33,<$UUOER> ;UUO 33
4296 006420 000000 006341 IFDEF LUUO34,<LUUO34> IFNDEF LUUO34,<$UUOER> ;UUO 34
4297 006421 000000 006341 IFDEF LUUO35,<LUUO35> IFNDEF LUUO35,<$UUOER> ;UUO 35
4298 006422 000000 006341 IFDEF LUUO36,<LUUO36> IFNDEF LUUO36,<$UUOER> ;UUO 36
4299 006423 000000 006341 IFDEF LUUO37,<LUUO37> IFNDEF LUUO37,<$UUOER> ;UUO 37
4300
4301
4302 ;UUO INITIALIZATION
4303
4304 006424 202 00 0 00 010534 $UUOIN: MOVEM 0,$ACB0
4305 006425 200 00 0 00 010151 MOVE [JSR UUORTN]
4306 006426 202 00 0 00 000041 MOVEM JOB41 ;SETUP UUO TRAP
4307 006427 402 00 0 00 010617 SETZM $UOREC
4308 006430 254 00 1 00 010534 JRST @$ACB0
4309
4310 >
4311
4312 XLIST
4313 IFDEF TYPIN,<LIST
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 36
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* TELETYPE INPUT SUBROUTINE, V74A, FEB 7, 1974 SEQ 0151
4314 SUBTTL *SUBRTN* TELETYPE INPUT SUBROUTINE, V74A, FEB 7, 1974
4315 ;CARRIAGE RETURN OR COMMA TERMINATES OCTAL, DECIMAL, OR CONVERT TYPE-IN.
4316 ;CHARACTER OR NUMBER RETURNED IN AC0.
4317 ;OPERATOR WAIT TIME (OPTIME) INITIALIZED
4318 ;AS NUMBER OF SECONDS OF WAIT TIME IN EXEC MODE.
4319 ;CALL SEQUENCE IS AS FOLLOWS:
4320 ; JSP NAME
4321 ; NO/ERROR RESPONSE RETURN
4322 ; NORMAL RESPONSE RETURN
4323 ;$OPTLK = INPUT ANY CHARACTER
4324 ;$YESNO = ASK QUESTION, CORRECT RESPONSE Y
4325 ;$NOYES = ASK QUESTION, CORRECT RESPONSE N
4326 ;$TPOCT = INPUT UP TO 12 OCTALS
4327 ;$TPDEC = INPUT UP TO 11 DECIMALS
4328 ;$TPCNV = INPUT UP TO 9 CONVERT'S
4329 ;$TTLK = KEYBOARD CHECK, INPUT ANY CHARACTER
4330 ;$TALTM = KEYBOARD, ALT-MODE CHECK
4331
4332 ;TELETYPE INPUT INITIALIZATION
4333
4334 006431 202 00 0 00 010534 $TYPIN: MOVEM 0,$ACB0
4335 006432 201 00 0 00 000264 MOVEI ^D180
4336 006433 202 00 0 00 010500 MOVEM OPTIME# ;INIT OPERATOR WAIT TIME AS 180 SEC.
4337 006434 254 00 1 00 010534 JRST @$ACB0
4338
4339 ;TELETYPE KEYBOARD CHECK ROUTINE
4340 ;CHECKS FOR ANY KEY STRUCK, RETURNS IMMEDIATELY
4341 ;RETURNS +1 IF NO TYPEIN, RETURNS +2 IF CHAR TYPED
4342
4343 006435 202 00 0 00 010600 $TTLK: MOVEM 0,$TACA0
4344 006436 400 00 0 00 000000 SETZ 0,
4345 006437 336 00 0 00 010526 SKIPN USER ;EXEC MODE ?
4346 006440 254 00 0 00 006476 JRST $HEAR+3 ;YES, GO CHECK AND INPUT
4347 006441 335 00 0 00 000224 SKIPGE MONCTL ;NO CHECK IF MONITOR
4348 006442 254 00 1 00 010600 JRST @$TACA0
4349 006443 051 02 0 00 010613 $TTLK1: INCHRS $TTCHR
4350 006444 254 00 1 00 010600 JRST @$TACA0 ;NO CHAR
4351 006445 254 00 0 00 006500 JRST $TTUSR+1 ;CHAR WAS TYPED
4352
4353 ;TELETYPE ALT-MODE CHECK ROUTINE
4354
4355 006446 202 00 0 00 010612 $TALTM: MOVEM 0,$TALT0#
4356 006447 265 00 0 00 006435 TTLOOK
4357 006450 254 00 0 00 006457 JRST $TALT1+1 ;NO TYPE-IN
4358 006451 302 00 0 00 000175 CAIE 175
4359 006452 306 00 0 00 000176 CAIN 176
4360 006453 254 00 0 00 006456 JRST $TALT1 ;ALT-MODE
4361 006454 302 00 0 00 000033 CAIE 33
4362 006455 254 00 0 00 006457 JRST .+2
4363 006456 350 00 0 00 010612 $TALT1: AOS $TALT0 ;ALT-MODE, RETURN + 2
4364 006457 254 00 1 00 010612 JRST @$TALT0
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 37
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* TELETYPE INPUT SUBROUTINE, V74A, FEB 7, 1974 SEQ 0152
4365 ;TELETYPE INPUT OPERATOR RESPONSE ROUTINE
4366 ;ALLOWS WAIT OF N SECONDS FOR TYPE-IN
4367
4368 006460 202 00 0 00 010601 $OPTLK: MOVEM 0,$TACB0#
4369 006461 202 04 0 00 010602 MOVEM 4,$TACB4# ;SAVE AC
4370 006462 200 04 0 00 010500 MOVE 4,OPTIME ;MOVE WAIT COUNT INTO AC
4371 006463 221 04 0 00 147400 IMULI 4,147400 ;1 SEC FUDGE FACTOR
4372 006464 363 04 0 00 006470 SOJLE 4,.+4 ;WAITED TOO LONG YET ?
4373 006465 265 00 0 00 006473 JSP $HEAR ;NO, INPUT FROM TTY
4374 006466 254 00 0 00 006464 JRST .-2 ;NO RESPONSE, REPEAT
4375 006467 350 00 0 00 010601 AOS $TACB0 ;CHAR TYPED, RETURN +2
4376 006470 202 04 0 00 010614 MOVEM 4,$TWCNT# ;SAVE THE TTY WAIT COUNT
4377 006471 200 04 0 00 010602 MOVE 4,$TACB4
4378 006472 254 00 1 00 010601 JRST @$TACB0
4379
4380 ;TELETYPE INPUT CHARACTER ROUTINE
4381
4382 006473 202 00 0 00 010600 $HEAR: MOVEM 0,$TACA0#
4383 006474 332 00 0 00 010526 SKIPE USER ;EXEC MODE ?
4384 006475 254 00 0 00 006477 JRST $TTUSR ;NO..USER MODE INPUT
4385 IFDEF EXCASB,<
4386 CONSO TTY,40 ;KEY BEEN STRUCK
4387 JRST @$TACA0 ;NO
4388 DATAI TTY,0 ;INPUT CHAR
4389 MOVEM 0,$TTCHR# ;SAVE ACTUAL CHARACTER
4390 TTYOUT ;ECHO
4391 AOS $CARCT
4392 ANDI 0,177
4393 CAIN 0,003 ;IS IT ^C ?
4394 JRST $HEAR1 ;YES, TERMINATE
4395 CAIE 0,15 ;IS IT CR ?
4396 JRST $TTUSR+1 ;NO
4397 SETZM $CARCT
4398 MOVEI 0,12
4399 TTYOUT ;YES, ECHO LF >
4400 006476 254 00 0 00 006500 JRST $TTUSR+1
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 38
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* TELETYPE INPUT SUBROUTINE, V74A, FEB 7, 1974 SEQ 0153
4401 ;CHARACTER RETURNED IN AC0 IS UPPER CASE
4402 ;ACTUAL CHARACTER IN $TTCHR
4403
4404 006477 051 00 0 00 010613 $TTUSR: INCHRW $TTCHR# ;INPUT TTY, USER MODE
4405 006500 200 00 0 00 010613 MOVE 0,$TTCHR ;GET ACTUAL CHARACTER
4406 006501 405 00 0 00 000177 ANDI 0,177 ;CLEAR PARITY BIT
4407 006502 301 00 0 00 000141 CAIL 0,"A"+40 ;CONVERT TO UPPER CASE
4408 006503 303 00 0 00 000172 CAILE 0,"Z"+40
4409 006504 254 00 0 00 006506 JRST .+2
4410 006505 275 00 0 00 000040 SUBI 0,40
4411 006506 202 00 0 00 010537 MOVEM 0,$CHRIN# ;SAVE CHARACTER
4412 006507 302 00 0 00 000015 CAIE 0,15 ;IS IT CR ?
4413 006510 254 00 0 00 006523 JRST $HEAR3 ;NO
4414 006511 332 00 0 00 010526 SKIPE USER ;USER MODE ?
4415 006512 051 00 0 00 000000 INCHRW ;YES, GET RID OF LF
4416 006513 200 00 0 00 010433 MOVE 0,CONSW
4417 006514 607 00 0 00 020000 TLNN 0,PNTLPT ;LPT/LOGICAL DEVICE OUTPUT ?
4418 006515 254 00 0 00 006520 JRST $HEAR2 ;NO
4419 006516 201 00 0 00 006727 MOVEI CRLF
4420 006517 264 00 0 00 010277 PNTA ;YES, SEND INPUT TO IT
4421 006520 200 00 0 00 010537 $HEAR2: MOVE 0,$CHRIN ;PUT INPUT CHAR IN AC0
4422 006521 350 00 0 00 010600 AOS $TACA0 ;SKIP RETURN
4423 006522 254 00 1 00 010600 JRST @$TACA0
4424
4425 006523 200 00 0 00 010433 $HEAR3: MOVE 0,CONSW
4426 006524 607 00 0 00 020000 TLNN 0,PNTLPT
4427 006525 254 00 0 00 006520 JRST $HEAR2
4428 006526 200 00 0 00 010537 MOVE 0,$CHRIN
4429 006527 264 12 0 00 010277 PNTCHR ;SEND CHAR TO LPT/LOGICAL DEV
4430 006530 254 00 0 00 006520 JRST $HEAR2
4431
4432 IFDEF EXCASB,<
4433 $HEAR1: MOVEI 0,$HEAR+1 ;CONTROL C, SAVE ENTRY TO
4434 MOVEM 0,JOBOPC ;TTY ROUTINE FOR RESTART
4435 JRST @CNTLC ;TERMINATE >
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 39
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* TELETYPE INPUT SUBROUTINE, V74A, FEB 7, 1974 SEQ 0154
4436 ;YES/NO TYPE-IN ROUTINE
4437 ;ACCEPTS Y OR N
4438 ;FOR YESNO, Y IS SKIP RETURN, N OR NO RESPONSE IS DIRECT RETURN
4439 ;FOR NOYES, N IS SKIP RETURN, Y OR NO RESPONSE IS DIRECT RETURN
4440 ;'Y OR N <CR> - ' ASKED UPON ENTRY
4441
4442 006531 202 00 0 00 010603 $NOYES: MOVEM 0,$TACC0#
4443 006532 201 00 0 00 000001 MOVEI 0,1 ;INIT FOR N ANSWER
4444 006533 254 00 0 00 006536 JRST .+3
4445 006534 202 00 0 00 010603 $YESNO: MOVEM 0,$TACC0
4446 006535 201 00 0 00 000000 MOVEI 0,0 ;INIT FOR Y ANSWER
4447 006536 202 01 0 00 010604 MOVEM 1,$TACC1#
4448 006537 202 02 0 00 010605 MOVEM 2,$TACC2#
4449 006540 200 02 0 00 000000 MOVE 2,0
4450 006541 201 00 0 00 010152 $YN1: MOVEI [ASCIZ/ Y OR N <CR> - /]
4451 006542 264 17 0 00 010301 PNTALF ;ASK ?
4452 006543 265 00 0 00 006460 TTICHR ;INPUT FROM TTY
4453 006544 254 00 0 00 006564 JRST $YN2 ;NO RESPONSE
4454 006545 302 00 0 00 000131 CAIE 0,"Y" ;IS IT A 'Y' ?
4455 006546 306 00 0 00 000116 CAIN 0,"N" ;OR AN 'N' ?
4456 006547 254 00 0 00 006551 JRST .+2 ;YES
4457 006550 254 00 0 00 006570 JRST $YN3 ;NEITHER, ERROR
4458 006551 200 01 0 00 000000 MOVE 1,0
4459 006552 242 01 0 00 000007 LSH 1,7 ;POSITION 1ST CHAR
4460 006553 265 00 0 00 006460 TTICHR
4461 006554 254 00 0 00 006564 JRST $YN2 ;NO RESPONSE
4462 006555 434 01 0 00 000000 OR 1,0 ;MERGE 2ND CHAR
4463 006556 316 01 0 02 006575 CAMN 1,$YN4(2) ;COMPARE FOR REQUESTED
4464 006557 254 00 0 00 006563 JRST .+4 ;YES, RETURN +2
4465 006560 316 01 0 02 006576 CAMN 1,$YN4+1(2) ;COMPARE FOR OPPOSITE
4466 006561 254 00 0 00 006564 JRST .+3 ;YES, RETURN +1
4467 006562 254 00 0 00 006570 JRST $YN3 ;ERROR, REPEAT
4468 006563 350 00 0 00 010603 AOS $TACC0 ;YES, RETURN +2
4469 006564 200 02 0 00 010605 $YN2: MOVE 2,$TACC2
4470 006565 200 00 0 00 000001 MOVE 0,1
4471 006566 200 01 0 00 010604 MOVE 1,$TACC1
4472 006567 254 00 1 00 010603 JRST @$TACC0
4473
4474 006570 332 00 0 00 010526 $YN3: SKIPE USER
4475 006571 051 11 0 00 000000 CLRBFI ;IF USER, CLEAR TYPE-IN BUFFER
4476 006572 201 00 0 00 006727 MOVEI CRLF
4477 006573 264 00 0 00 010301 PNTAF
4478 006574 254 00 0 00 006541 JRST $YN1
4479
4480 006575 000000 026215 $YN4: EXP 26215 ;'Y' (CR)
4481 006576 000000 023415 EXP 23415 ;'N' (CR)
4482 006577 000000 026215 EXP 26215 ;'Y' (CR)
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 40
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* TELETYPE INPUT SUBROUTINE, V74A, FEB 7, 1974 SEQ 0155
4483 ;OCTAL-DECIMAL-CONVERT TYPE-IN ROUTINE
4484 ;ACCEPTS 0 TO 12 OCTALS, 0 TO 11 DECIMALS, 0 TO 9 CONVERT CHARACTERS
4485 ;NUMBER RETURNED IN AC0.
4486
4487 006600 202 00 0 00 010606 $TPCNV: MOVEM 0,$TACD0#
4488 006601 201 00 0 00 000002 MOVEI 2 ;SET INDEX TO CONVERT
4489 006602 254 00 0 00 006610 JRST .+6
4490 006603 202 00 0 00 010606 $TPDEC: MOVEM 0,$TACD0
4491 006604 201 00 0 00 000001 MOVEI 1 ;SET INDEX TO DECIMAL
4492 006605 254 00 0 00 006610 JRST .+3
4493 006606 202 00 0 00 010606 $TPOCT: MOVEM 0,$TACD0
4494 006607 201 00 0 00 000000 MOVEI 0 ;SET INDEX TO OCTAL
4495 006610 202 01 0 00 010607 MOVEM 1,$TACD1# ;SAVE AC'S
4496 006611 202 02 0 00 010610 MOVEM 2,$TACD2#
4497 006612 202 03 0 00 010611 MOVEM 3,$TACD3#
4498 006613 200 03 0 00 000000 MOVE 3,0
4499 006614 403 01 0 00 000002 SETZB 1,2 ;CLEAR DATA REG, CHAR COUNTER
4500 006615 402 00 0 00 010615 SETZM $TYPNB# ;CLEAR ERR NUMBER
4501 006616 402 00 0 00 010546 SETZM $NEGF# ;CLEAR NEGATE FLAG
4502 006617 402 00 0 00 010540 SETZM $CNVD# ;CLEAR DECIMAL CONVERT FLAG
4503
4504 ;INPUT AND COMPUTE NUMBER
4505
4506 006620 265 00 0 00 006460 $TYPLP: TTICHR ;INPUT FROM TTY
4507 006621 254 00 0 00 006656 JRST $TPERR ;NO RESPONSE, GO TO ERROR EXIT
4508 006622 306 00 0 00 000055 CAIN 0,"-" ;IS IT MINUS ?
4509 006623 254 00 0 00 006674 JRST $NEGX ;YES
4510 006624 306 00 0 00 000056 CAIN 0,"." ;IS IT PERIOD ?
4511 006625 254 00 0 00 006700 JRST $CNVX ;YES
4512 006626 306 00 0 00 000015 CAIN 0,15 ;IS IT CR ?
4513 006627 254 00 0 00 006642 JRST $TPEXT ;YES
4514 006630 306 00 0 00 000054 CAIN 0,"," ;IS IT COMMA ?
4515 006631 254 00 0 00 006642 JRST $TPEXT ;YES
4516 006632 301 00 0 00 000060 CAIL 0,"0" ;A VALID DIGIT ?
4517 006633 256 00 0 03 006663 XCT $TPCK(3)
4518 006634 254 00 0 00 006656 JRST $TPERR ;NO
4519 006635 350 00 0 00 000002 AOS 2 ;INCREMENT CHARACTER COUNTER
4520 006636 256 00 0 03 006666 XCT $TPMUL(3) ;MULT BY OCTAL/DECIMAL BASE, SHIFT CONVERT
4521 006637 275 00 0 00 000060 SUBI 60 ;ADD IN NEW CHAR
4522 006640 270 01 0 00 000000 ADD 1,0
4523 006641 254 00 0 00 006620 JRST $TYPLP ;REPEAT TILL CR OR COMMA
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 41
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* TELETYPE INPUT SUBROUTINE, V74A, FEB 7, 1974 SEQ 0156
4524 ;CHECK FOR PROPER AMOUNT OF CHARACTERS
4525
4526 006642 256 00 0 03 006671 $TPEXT: XCT $TPNBR(3) ;PROPER NUMBER OF CHARACTERS
4527 006643 254 00 0 00 006656 JRST $TPERR ;NO
4528 006644 306 03 0 00 000002 CAIN 3,2 ;CONVERT ?
4529 006645 254 00 0 00 006704 JRST $CNVX1 ;YES
4530 006646 200 03 0 00 010611 $TPEX1: MOVE 3,$TACD3 ;RESTORE AC'S
4531 006647 200 02 0 00 010610 MOVE 2,$TACD2
4532 006650 200 00 0 00 000001 MOVE 0,1 ;PUT NUMBER IN AC0
4533 006651 332 00 0 00 010546 SKIPE $NEGF ;NEGATE ?
4534 006652 210 00 0 00 000001 MOVN 0,1 ;YES
4535 006653 200 01 0 00 010607 MOVE 1,$TACD1
4536 006654 350 00 0 00 010606 AOS $TACD0
4537 006655 254 00 1 00 010606 JRST @$TACD0 ;RETURN +2
4538
4539 006656 200 03 0 00 010611 $TPERR: MOVE 3,$TACD3 ;ERROR EXIT
4540 006657 200 02 0 00 010610 MOVE 2,$TACD2
4541 006660 202 01 0 00 010615 MOVEM 1,$TYPNB ;SAVE NUMBER
4542 006661 200 01 0 00 010607 MOVE 1,$TACD1
4543 006662 254 00 1 00 010606 JRST @$TACD0
4544
4545 ;NUMBER COMPUTING CONSTANTS
4546
4547 006663 303 00 0 00 000067 $TPCK: CAILE 0,"7" ;OCTAL NUMBER CHECK
4548 006664 303 00 0 00 000071 CAILE 0,"9" ;DECIMAL NUMBER CHECK
4549 006665 303 00 0 00 000071 CAILE 0,"9" ;CONVERT NUMBER CHECK
4550 006666 242 01 0 00 000003 $TPMUL: LSH 1,3 ;OCTAL BASE SHIFT
4551 006667 221 01 0 00 000012 IMULI 1,^D10 ;DECIMAL BASE MULTIPLIER
4552 006670 242 01 0 00 000004 LSH 1,4 ;CONVERT SHIFT
4553 006671 303 02 0 00 000014 $TPNBR: CAILE 2,^D12 ;ACCEPT UP TO 12 OCTALS
4554 006672 303 02 0 00 000013 CAILE 2,^D11 ;ACCEPT UP TO 11 DECIMALS
4555 006673 303 02 0 00 000011 CAILE 2,^D9 ;ACCEPT UP TO 9 CONVERT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 42
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* TELETYPE INPUT SUBROUTINE, V74A, FEB 7, 1974 SEQ 0157
4556 006674 332 00 0 00 000002 $NEGX: SKIPE 2 ;1ST CHAR ?
4557 006675 254 00 0 00 006656 JRST $TPERR ;NO, ERROR
4558 006676 476 00 0 00 010546 SETOM $NEGF ;YES, SET NEGATE FLAG
4559 006677 254 00 0 00 006620 JRST $TYPLP ;GET NEXT CHAR
4560
4561 006700 302 03 0 00 000002 $CNVX: CAIE 3,2 ;PERIOD, IN CONVERT ?
4562 006701 254 00 0 00 006656 JRST $TPERR ;NO, ERROR
4563 006702 476 00 0 00 010540 SETOM $CNVD ;YES, SET DECIMAL FLAG
4564 006703 254 00 0 00 006620 JRST $TYPLP ;GET NEXT CHAR
4565
4566 ;CONVERT CONVERSION ROUTINE
4567
4568 006704 201 02 0 00 000011 $CNVX1: MOVEI 2,^D9 ;NINE DIGITS
4569 006705 402 00 0 00 000000 SETZM 0
4570 006706 332 00 0 00 010540 SKIPE $CNVD ;OCTAL OR DECIMAL ?
4571 006707 254 00 0 00 006717 JRST $CNVX2 ;DECIMAL
4572 006710 612 01 0 00 010156 TDNE 1,[421042104210] ;OCTAL
4573 006711 254 00 0 00 006656 JRST $TPERR ;OCTAL ERROR, 8 OR 9 INPUT
4574 006712 242 01 0 00 000001 LSH 1,1 ;SQUEEZE OUT 4TH BIT
4575 006713 246 00 0 00 000003 LSHC 0,3 ;COMPACT INTO OCTAL
4576 006714 366 02 0 00 006712 SOJN 2,.-2 ;COMPLETED ?
4577 006715 200 01 0 00 000000 MOVE 1,0
4578 006716 254 00 0 00 006646 JRST $TPEX1
4579
4580 006717 402 00 0 00 000003 $CNVX2: SETZM 3 ;DECIMAL
4581 006720 402 00 0 00 000000 SETZM 0
4582 006721 221 03 0 00 000012 IMULI 3,^D10 ;MULTIPLY BY DECIMAL BASE
4583 006722 246 00 0 00 000004 LSHC 0,4 ;UNPACK NEXT DIGIT
4584 006723 270 03 0 00 000000 ADD 3,0 ;ADD IN
4585 006724 366 02 0 00 006720 SOJN 2,.-4 ;COMPLETED ?
4586 006725 200 01 0 00 000003 MOVE 1,3
4587 006726 254 00 0 00 006646 JRST $TPEX1
4588 >
4589 XLIST
4590 IFDEF PRINT,<LIST
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 46
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974 SEQ 0158
4591 SUBTTL *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974
4592
4593 ;THE FOLLOWING MISCELLANEOUS PRINT CHARACTERS ARE INCLUDED
4594 ;TO FACILITATE PRINTING AND ARE CALLED AS FOLLOWS:
4595
4596 ; MOVEI NAME
4597 ; PNTA ;OR PNTAF
4598
4599 006727 CRLF: ASCII/
4600 006727 015 012 000 000 000 /
4601
4602 006730 CRLF2: ASCII/
4603
4604 006730 015 012 015 012 000 /
4605
4606 006731 054 000 000 000 000 COMMA: ASCII/,/
4607
4608 006732 056 000 000 000 000 PERIOD: ASCII/./
4609
4610 006733 040 000 000 000 000 SPACE: ASCII/ /
4611
4612 006734 011 000 000 000 000 TAB: ASCII/ /
4613
4614 006735 MINUS:
4615 006735 055 000 000 000 000 HYPEN: ASCII/-/
4616
4617 006736 053 000 000 000 000 PLUS: ASCII/+/
4618
4619 006737 052 000 000 000 000 AST: ASCII/*/
4620
4621 006740 100 000 000 000 000 ATSIN: ASCII/@/
4622
4623 006741 050 000 000 000 000 LFP: ASCII/(/
4624
4625 006742 051 000 000 000 000 RTP: ASCII/)/
4626
4627 006743 007 0000000000 BELL: BYTE (7) 007
4628
4629 006744 077 000 000 000 000 QUEST: ASCII/?/
4630
4631 006745 057 000 000 000 000 SLASH: ASCII!/!
4632
4633 006746 044 000 000 000 000 DOLLAR: ASCII/$/
4634
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 47
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974 SEQ 0159
4635 ;PRINT SUBROUTINE INITIALIZATION
4636 ;INITIALIZES CONTROL WORDS, AND TTY IF IN USER MODE
4637
4638 006747 202 00 0 00 010534 $PNTIN: MOVEM 0,$ACB0#
4639 006750 402 00 0 00 010545 SETZM $INTDF# ;CLEAR DEVICE DEFAULT FLAG
4640 006751 402 00 0 00 010541 SETZM $DVOFF# ;CLEAR DEVICE INITED FLAG
4641 006752 402 00 0 00 010503 SETZM PDISF# ;CLEAR PRINT DISABLED FLAG
4642 006753 402 00 0 00 010571 SETZM $PTINH# ;CLEAR PRINT 'TYPE-IN INHIBIT' FLAG
4643 006754 402 00 0 00 010506 SETZM PNTINH# ;ALLOW EXEC PRINT TYPE IN INHIBIT
4644 006755 402 00 0 00 010505 SETZM PNTFLG# ;CLEAR IN PRINT FLAG
4645 006756 476 00 0 00 010507 SETOM PNTSPC# ;SET PRINT SPACE FLAG
4646 006757 211 00 0 00 011610 MOVNI 0,^D5000 ;SET PRINT ENABLE TO 5000 LINES
4647 006760 202 00 0 00 010504 MOVEM 0,PNTENB
4648 IFDEF EXCASB,<
4649 SETZM TTYFIL# ;ALLOW EXEC FILLERS
4650 SETZM $CRLF# ;ALLOW FREE CR/LF
4651 SETZM $TABF# ;ALLOW TAB CONVERSION
4652 SETZM $FFF# ;ALLOW FORM FEED CONVERSION
4653 SETZM $VTF# ;ALLOW VERTICAL TAB CONVERSION
4654 SKIPN USER ;EXEC MODE ?
4655 JRST $TYSPD ;YES, COMPUTE CTY BAUD RATE >
4656 006761 201 00 0 00 000233 $PNTIX: MOVEI REENTR ;SETUP REENTER ADDRESS
4657 006762 202 00 0 00 000124 MOVEM JOBREN
4658 006763 335 00 0 00 000224 SKIPGE MONCTL ;MONITR CONTROL ?
4659 006764 254 00 1 00 010534 JRST @$ACB0 ;YES, DON'T PRINT TITLE
4660 006765 332 00 0 00 010547 SKIPE $ONETM# ;FIRST TIME
4661 006766 254 00 1 00 010534 JRST @$ACB0 ;NO
4662 006767 200 00 0 00 010534 MOVE $ACB0
4663 006770 202 00 0 00 010535 MOVEM $ACPN0
4664 006771 254 00 0 00 006246 JRST $PNTNM+3 ;PRINT PROGRAM NAME
4665
4666 006772 332 00 0 00 010503 $PNTIB: SKIPE PDISF# ;FIRST TIME PRINT DISABLED
4667 006773 254 00 0 00 007111 JRST $PRNTX ;NO
4668 006774 476 00 0 00 010503 SETOM PDISF
4669 006775 202 01 0 00 010552 MOVEM 1,$PACA1 ;SAVE AC'S
4670 006776 202 02 0 00 010553 MOVEM 2,$PACA2
4671 006777 202 03 0 00 010554 MOVEM 3,$PACA3
4672 007000 202 04 0 00 010555 MOVEM 4,$PACA4
4673 007001 202 05 0 00 010556 MOVEM 5,$PACA5
4674 007002 476 00 0 00 010566 SETOM $PNTTY
4675 MOVEI [ASCIZ/
4676 **********
4677 EXCEEDED ALLOWED PRINTOUTS, ONLY FORCED PRINTOUTS FROM THIS POINT
4678 **********
4679 007003 201 00 0 00 010157 /]
4680 007004 254 00 0 00 007117 JRST $ASCPN-1 ;PRINT ASCII
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 48
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974 SEQ 0160
4681 ;PRINT SUBROUTINE ENTRY & PRINT MODE DETERMINATION
4682
4683 007005 476 00 0 00 010505 $PNTIF: SETOM PNTFLG ;SET IN PRINT FLAG
4684 007006 202 00 0 00 010551 MOVEM 0,$PACA0# ;FORCE PRINTOUT
4685 007007 200 00 0 00 010301 MOVE 0,$PRNTF
4686 007010 202 00 0 00 010277 MOVEM 0,$PRINT
4687 007011 476 00 0 00 010566 SETOM $PNTTY#
4688 007012 254 00 0 00 007025 JRST $PNTIA
4689 007013 476 00 0 00 010505 $PNTIT: SETOM PNTFLG ;SET IN PRINT FLAG
4690 007014 202 00 0 00 010551 MOVEM 0,$PACA0 ;SAVE AC 0
4691 007015 402 00 0 00 010566 SETZM $PNTTY
4692 007016 331 00 0 00 010504 SKIPL PNTENB#
4693 007017 254 00 0 00 006772 JRST $PNTIB ;DON'T PRINT OVER 5000(10) LINES
4694 007020 265 00 0 00 006307 SWITCH ;READ DATA SWITCHES
4695 007021 607 00 0 00 040000 TLNN 0,NOPNT ;NO PRINT SWITCH SET
4696 007022 254 00 0 00 007025 JRST .+3
4697 007023 200 00 0 00 010551 MOVE 0,$PACA0
4698 007024 254 00 0 00 007111 JRST $PRNTX
4699
4700 ;DETERMINE PRINT MODE
4701
4702 007025 202 01 0 00 010552 $PNTIA: MOVEM 1,$PACA1# ;SAVE AC1.
4703 007026 202 02 0 00 010553 MOVEM 2,$PACA2# ;SAVE AC2.
4704 007027 202 03 0 00 010554 MOVEM 3,$PACA3# ;SAVE AC3.
4705 007030 202 04 0 00 010555 MOVEM 4,$PACA4# ;SAVE AC4.
4706 007031 202 05 0 00 010556 MOVEM 5,$PACA5# ;SAVE AC5.
4707 007032 200 00 0 00 010551 MOVE 0,$PACA0 ;RESTORE AC0
4708 007033 402 00 0 00 010564 SETZM $PNT# ;CLEAR PRINT HALF WORDS FLAG
4709 007034 200 01 0 00 010277 MOVE 1,$PRINT ;MOVE C(JSR+1) INTO AC1.
4710 007035 200 02 0 01 777777 MOVE 2,-1(1) ;MOVE THE JSR INTO AC2.
4711 007036 241 02 0 00 000015 ROT 2,15 ;GET X
4712 007037 405 02 0 00 000017 ANDI 2,17 ;OUT OF THE JSR.
4713 007040 306 02 0 00 000017 CAIN 2,17 ;X=17?
4714 007041 254 00 0 00 007117 JRST $ASCPN-1 ;YES. PRINT MORE THAN 1 WORD.
4715 007042 322 02 0 00 007120 JUMPE 2,$ASCPN ;X=0? YES. GO PRINT 1 WORD.
4716 007043 306 02 0 00 000015 CAIN 2,15 ;X=15?
4717 007044 254 00 0 00 007135 JRST $DECPN ;YES, PRINT DECIMALS
4718 007045 306 02 0 00 000016 CAIN 2,16 ;X=16?
4719 007046 254 00 0 00 007134 JRST $DECSP ;YES, PRINT DECIMALS, LEADING SPACES
4720 007047 306 02 0 00 000013 CAIN 2,13 ;X=13?
4721 007050 254 00 0 00 007075 JRST $PNTI3 ;YES, PRINT OCTALS, 6 SP 6
4722 007051 306 02 0 00 000012 CAIN 2,12 ;X=12?
4723 007052 254 00 0 00 007113 JRST $CHRPN ;YES, PRINT CHARACTER
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 49
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974 SEQ 0161
4724 ;OCTAL PRINTOUT ROUTINE
4725 ;PRINTS NUMBER IN AC0
4726
4727 007053 200 03 0 00 000002 $PNTI1: MOVE 3,2 ;MOVE X INTO AC3.
4728 007054 241 00 0 00 777775 ROT 0,-3 ;ROT OCTAL NUM 3 PLACES
4729 007055 366 03 0 00 007054 SOJN 3,.-1 ;X AMOUNT OF TIMES.
4730 007056 201 01 0 00 000006 $PNTI2: MOVEI 1,6 ;PUT 6 INTO AC1 SO THAT
4731 007057 245 00 0 00 000003 ROTC 0,3 ;C(AC1) AFTER THE ROTC WILL BE 60
4732 007060 265 03 0 00 007164 JSP 3,$TOUT ;PLUS NUMBER TO BE PRINTED..GO PNT NUM.
4733 007061 366 02 0 00 007056 SOJN 2,$PNTI2 ;SUB 1 FROM X...PRINT UNTIL X=0.
4734 007062 202 01 0 00 010565 MOVEM 1,$PNTSV# ;SAVE NUMBER
4735 007063 336 00 0 00 010507 SKIPN PNTSPC
4736 007064 254 00 0 00 007067 JRST .+3
4737 007065 201 01 0 00 000040 MOVEI 1,40 ;AT THIS POINT WE HAVE PRINTED
4738 007066 265 03 0 00 007164 JSP 3,$TOUT ;X AMOUNT OF NUMBER(S) AND NOW A SPACE.
4739 007067 336 00 0 00 010564 SKIPN $PNT# ; PRINT 6 SP 6 FLAG SET?
4740 007070 254 00 0 00 007102 JRST $PNTI4 ;NO, EXIT
4741 007071 200 01 0 00 010565 MOVE 1,$PNTSV ;RESTORE NUMBER
4742 007072 201 02 0 00 000006 MOVEI 2,6 ;SETUP FOR 2ND HALF
4743 007073 402 00 0 00 010564 SETZM $PNT ;CLEAR PRINT SPACE FLAG
4744 007074 254 00 0 00 007056 JRST $PNTI2 ;PRINT REST OF NUMBER
4745
4746 007075 201 03 0 00 000014 $PNTI3: MOVEI 3,14 ;SETUP FOR LH WORD
4747 007076 201 02 0 00 000006 MOVEI 2,6 ;SETUP FOR FIRST HALF
4748 007077 476 00 0 00 010564 SETOM $PNT ;SET PRINT 6 SP 6 FLAG
4749 007100 476 00 0 00 010507 SETOM PNTSPC
4750 007101 254 00 0 00 007054 JRST $PNTI1+1 ;PRINT FIRST HALF NUMBER
4751
4752 ;PRINT ROUTINE EXIT
4753
4754 007102 402 00 0 00 010566 $PNTI4: SETZM $PNTTY
4755 007103 200 00 0 00 010551 MOVE 0,$PACA0 ;RESTORE AC0.
4756 007104 200 01 0 00 010552 MOVE 1,$PACA1 ;RESTORE AC1.
4757 007105 200 02 0 00 010553 MOVE 2,$PACA2 ;RESTORE AC2.
4758 007106 200 03 0 00 010554 MOVE 3,$PACA3 ;RESTORE AC3.
4759 007107 200 04 0 00 010555 MOVE 4,$PACA4 ;RESTORE AC4.
4760 007110 200 05 0 00 010556 MOVE 5,$PACA5 ;RESTORE AC5.
4761 007111 402 00 0 00 010505 $PRNTX: SETZM PNTFLG ;CLEAR IN PRINT FLAG
4762 007112 254 00 1 00 010277 JRST @$PRINT ;RETURN.
4763
4764 ;CHARACTER PRINTOUT ROUTINE
4765 ;PRINTS CHAR IN LOWER 7 BITS OF AC0
4766
4767 007113 405 00 0 00 000177 $CHRPN: ANDI 0,177 ;STRIP CHAR TO 7 BITS
4768 007114 200 01 0 00 000000 MOVE 1,0
4769 007115 265 03 0 00 007164 JSP 3,$TOUT ;PRINT A CHARACTER
4770 007116 254 00 0 00 007102 JRST $PNTI4 ;LEAVE
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 50
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974 SEQ 0162
4771 ;ASCII PRINTOUT ROUTINE
4772 ;PRINTS ASCII WHOSE ADDRESS IS IN AC0
4773
4774 007117 476 00 0 00 010564 SETOM $PNT# ;SET PRINT MORE THAN 1 WORD FLAG.
4775 007120 202 00 0 00 010570 $ASCPN: MOVEM 0,$POINT# ;SAVE ADDRESS OF ASCII MESSAGE.
4776 007121 201 02 0 00 000005 $ASCP1: MOVEI 2,5 ;5 = NUM OF ASCII CHAR. IN A WORD.
4777 007122 200 00 1 00 010570 MOVE 0,@$POINT ;C(AC0) = FIRST WORD OF ASCII MESS.
4778 007123 400 01 0 00 000000 $ASCP2: SETZ 1, ;CLEAR AC1.
4779 007124 245 00 0 00 000007 ROTC 0,7 ;C(AC1) = CHAR TO BE PRINTED.
4780 007125 322 01 0 00 007102 JUMPE 1,$PNTI4 ;CHAR = 0?..NO MORE CHAR..LEAVE.
4781 007126 265 03 0 00 007164 JSP 3,$TOUT ;PRINT A CHAR.
4782 007127 366 02 0 00 007123 SOJN 2,$ASCP2 ;PNT ALL CHAR FROM THIS WORD?
4783 007130 350 00 0 00 010570 AOS $POINT ;YES. INC TO GET NEXT WORD.
4784 007131 336 00 0 00 010564 SKIPN $PNT ;PNT MORE THAN ONE CHAR FLAG SET?
4785 007132 254 00 0 00 007102 JRST $PNTI4 ;NO..LEAVE.
4786 007133 254 00 0 00 007121 JRST $ASCP1 ;YES...RETURN TO PNT NEXT WORD.
4787
4788 ;DECIMAL PRINTOUT ROUTINE
4789 ;PRINTS NUMBER IN AC0
4790
4791 007134 476 00 0 00 010564 $DECSP: SETOM $PNT ;SET LEADING SPACES PRINT CONTROL
4792 007135 202 17 0 00 010550 $DECPN: MOVEM 17,$PAC17# ;SAVE AC17
4793 007136 200 17 0 00 010315 MOVE 17,$PLST ;SETUP PUSH LIST
4794 007137 260 17 0 00 007142 PUSHJ 17,$RADIX ;GO TO DECIMAL-ASCII CONVERSION
4795 007140 200 17 0 00 010550 MOVE 17,$PAC17 ;RESTORE AC17
4796 007141 254 00 0 00 007102 JRST $PNTI4
4797
4798 007142 201 02 0 00 000012 $RADIX: MOVEI 2,^D10 ;SETUP DIGIT COUNTER
4799 007143 246 00 0 00 777735 LSHC 0,-^D35 ;SHIFT RIGHT 35 BITS INTO AC1
4800 007144 242 01 0 00 777777 LSH 1,-1 ;VACATE AC1 SIGN BIT
4801 007145 235 00 0 00 000012 $DCCMP: DIVI 0,^D10 ;DIVIDE DOUBLE LENGTH INTERGER BY 10
4802 007146 506 01 0 17 000000 HRLM 1,(17) ;SAVE DIGIT
4803 007147 370 00 0 00 000002 SOS 2 ;COUNT DIGIT
4804 007150 322 00 0 00 007156 JUMPE 0,$LDSPS ;ALL DIGITS FORMED?
4805 007151 260 17 0 00 007143 PUSHJ 17,$RADIX+1 ;NO, COMPUTE NEXT ONE
4806 007152 554 01 0 17 000000 $DECP1: HLRZ 1,(17) ;YES, RETRIEVE DIGIT
4807 007153 271 01 0 00 000060 ADDI 1,60 ;CONVERT TO ASCII
4808 007154 265 03 0 00 007164 JSP 3,$TOUT ;TYPE-OUT
4809 007155 263 17 0 00 000000 POPJ 17, ;GET NEXT/EXIT
4810
4811 007156 336 00 0 00 010564 $LDSPS: SKIPN $PNT ;LEADING SPACES PRINT SET?
4812 007157 254 00 0 00 007152 JRST $DECP1 ;NO
4813 007160 361 02 0 00 007152 $DCSPS: SOJL 2,$DECP1 ;SPACES COMPLETE ?
4814 007161 201 01 0 00 000040 MOVEI 1,40 ;NO, PRINT LEADING SPACE
4815 007162 265 03 0 00 007164 JSP 3,$TOUT
4816 007163 254 00 0 00 007160 JRST .-3 ;CHECK FOR NEXT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 51
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974 SEQ 0163
4817 007164 202 00 0 00 010557 $TOUT: MOVEM 0,$PACB0# ;SAVE AC0.
4818 007165 202 01 0 00 010567 MOVEM 1,$PNTYC# ;SAVE CHARACTER
4819 007166 332 00 0 00 010526 SKIPE USER
4820 007167 254 00 0 00 007203 JRST $TOUTB ;USER MODE
4821 XLIST
4822 IFDEF USRASB,<LIST
4823 ;USER MODE LF & CR FILLERS
4824
4825 007170 302 01 0 00 000015 $USRFC: CAIE 1,15 ;CR ?
4826 007171 254 00 0 00 007231 JRST $TOUTA ;NO
4827 007172 200 05 0 00 010527 MOVE 5,USRCRF ;SEND FILLERS FOR CR
4828 007173 254 00 0 00 007177 JRST .+4 ;DEPENDING ON 'USRCRF'
4829 007174 302 01 0 00 000012 $USRFL: CAIE 1,12 ;LF ?
4830 007175 254 00 0 00 007231 JRST $TOUTA ;NO
4831 007176 200 05 0 00 010530 MOVE 5,USRLFF ;SEND FILLERS FOR LF
4832 007177 361 05 0 00 007231 SOJL 5,$TOUTA ;DEPENDING ON 'USRLFF'
4833 007200 201 01 0 00 000001 MOVEI 1,001 ;^A
4834 007201 265 04 0 00 007235 JSP 4,$TOUT2
4835 007202 254 00 0 00 007177 JRST .-3 >
4836
4837 LIST
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 52
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974 SEQ 0164
4838 007203 200 00 0 00 010433 $TOUTB: MOVE CONSW
4839 007204 350 00 0 00 010536 AOS $CARCT# ;INC CHAR CNTR.
4840 007205 306 01 0 00 000007 CAIN 1,7 ;CHAR A BELL ?
4841 007206 402 00 0 00 010571 SETZM $PTINH ;YES, CLEAR PRINT INHIBIT
4842 007207 302 01 0 00 000015 CAIE 1,15 ;CHAR A CR?
4843 007210 254 00 0 00 007214 JRST .+4 ;NO
4844 007211 402 00 0 00 010571 SETZM $PTINH
4845 007212 350 00 0 00 010504 AOS PNTENB ;COUNT LINES, TILL NO MORE
4846 007213 402 00 0 00 010536 SETZM $CARCT ;CLR CHAR CNTR.
4847 007214 306 01 0 00 000012 CAIN 1,12 ;IS CHAR A LF?
4848 007215 402 00 0 00 010536 SETZM $CARCT ;YES. CLR CHAR CNTR.
4849 007216 332 00 0 00 010566 SKIPE $PNTTY
4850 007217 254 00 0 00 007222 JRST .+3 ;DON'T CHECK NON-PNT SW IF FORCED PRINTOUT
4851 007220 603 00 0 00 040000 TLNE 0,NOPNT ;IS NON PNT SWITCH ON?
4852 007221 254 00 0 03 000000 JRST (3) ;YES. RETURN.
4853 007222 336 00 0 00 010526 SKIPN USER ;EXEC MODE ?
4854 007223 254 00 0 00 007233 JRST $TOUTC ;YES
4855 IFDEF USRASB,<
4856 007224 265 04 0 00 007235 JSP 4,$TOUT2 ;SEND CHARACTER
4857 007225 332 00 0 00 010530 SKIPE USRLFF# ;NEED USER LF FILLERS ?
4858 007226 254 00 0 00 007174 JRST $USRFL ;YES
4859 007227 332 00 0 00 010527 SKIPE USRCRF# ;NEED USER CR FILLERS ?
4860 007230 254 00 0 00 007170 JRST $USRFC ;YES >
4861 007231 200 00 0 00 010557 $TOUTA: MOVE 0,$PACB0 ;RESTORE AC0
4862 007232 254 00 0 03 000000 JRST (3) ;RETURN
4863
4864
4865 IFDEF EXCASB,<
4866 IFDEF ALTGO,<
4867 $TUTX1: MOVEM 4,$TALT0
4868 JRST $TALTM+3 >
4869 MOVEM 0,JOBOPC ;2-TERMINATED IN JOBOPC
4870 JRST @CNTLC ;3-TERMINATE
4871 $TUTX2: JSP 0,.-2 ;1-SAVE PC WHERE
4872 JRST $TOUTB ;4-HERE IF CONTINUED
4873 IFDEF ALTGO,<
4874 MOVEM 0,JOBOPC ;2-TERMINATED IN JOBOPC
4875 JRST @ALTMGO ;3-TERMINATE
4876 $TUTX3: JSP 0,.-2 ;1-SAVE PC WHERE
4877 JRST $TOUTB ;4-HERE IF CONTINUED >>
4878 007233 264 00 0 00 010271 IFNDEF EXCASB,<$TOUTC: FATAL
4879 007234 264 00 0 00 010271 $TYOU1: FATAL >
4880 IFNDEF USRASB,<$TOUT2: FATAL >
4881 XLIST
4882 IFDEF USRASB,<LIST
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 58
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974 SEQ 0165
4883 ;USER MODE TELETYPE OUTPUT
4884
4885 007235 202 04 0 00 010561 $TOUT2: MOVEM 4,$PACC4#
4886 007236 200 00 0 00 010433 MOVE 0,CONSW
4887 007237 603 00 0 00 020000 TLNE 0,PNTLPT ;IS LPT PRINT SWITCH UP ?
4888 007240 254 00 0 00 007253 JRST $TOUT3 ;YES, GO PRINT ON LOGICAL DEVICE
4889 007241 265 00 0 00 007326 DROPDV ;CLOSE DEV IF SWITCH CHANGED
4890 007242 200 00 0 00 010536 $TOUT6: MOVE 0,$CARCT
4891 007243 306 00 0 00 000001 CAIN 0,1 ;FIRST CHAR IN LINE ?
4892 007244 254 00 0 00 007247 JRST $TOUT4 ;YES
4893 007245 051 01 0 00 000001 $TOUT5: OUTCHR 1
4894 007246 254 00 1 00 010561 JRST @$PACC4 ;GO RESTORE AC0 AND RETURN
4895
4896 007247 331 00 0 00 000224 $TOUT4: SKIPL MONCTL ;SYSTEM EXERCISER
4897 007250 254 00 0 00 007245 JRST $TOUT5 ;NO
4898 007251 051 03 0 00 006744 OUTSTR QUEST ;PRECEDE LINE WITH ?
4899 007252 254 00 0 00 007245 JRST $TOUT5
4900
4901 ;USER MODE LOGICAL DEVICE OUTPUT
4902
4903 007253 336 00 0 00 010541 $TOUT3: SKIPN $DVOFF ;DEVICE BEEN INITED YET ?
4904 007254 265 00 0 00 007272 JSP $INTDV ;NO, GO DO IT
4905 007255 265 00 0 00 007261 JSP $PUTCR ;GO OUTPUT CHAR
4906 IFDEF DSKUPD,<
4907 CAIN 1,12 ;LF ?
4908 JSP $ITDV1 ;UPDATE, SETUP FOR INPUT/OUTPUT >
4909 007256 336 00 0 00 010566 SKIPN $PNTTY ;SKIP IF MESSAGE ALSO FORCED TO TTY
4910 007257 254 00 1 00 010561 JRST @$PACC4
4911 007260 254 00 0 00 007242 JRST $TOUT6
4912
4913 ;OUTPUT TO LOGICAL DEVICE
4914
4915 007261 202 00 0 00 010560 $PUTCR: MOVEM 0,$PACC0#
4916 007262 332 00 0 00 010542 SKIPE $DVTTY# ;IF DEVICE IS TTY
4917 007263 254 00 0 00 007270 JRST $PUTBF ;EMPTY AFTER EACH CHAR
4918 007264 377 00 0 00 010310 SOSG $OBUF+2 ;INCREMENT BYTE COUNT
4919 007265 254 00 0 00 007270 JRST $PUTBF ;NO MORE ROOM, OR FIRST CALL AFTER INIT
4920 007266 136 01 0 00 010307 $PTNXT: IDPB 1,$OBUF+1 ;STORE CHAR IN AC1
4921 007267 254 00 1 00 010560 JRST @$PACC0 ;RETURN
4922 007270 057 17 0 00 000000 $PUTBF: OUT $DEVCH, ;CALL MONITOR TO EMPTY BUFFER
4923 007271 254 00 0 00 007266 JRST $PTNXT
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 59
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974 SEQ 0166
4924 ;LOGICAL DEVICE INITIALIZATION, PHY DEV ASSIGNED AT RUN TIME
4925
4926 007272 202 00 0 00 010562 $INTDV: MOVEM 0,$PACD0#
4927 007273 402 00 0 00 010620 SETZM $UPDTF#
4928 007274 200 00 0 00 000232 MOVE 0,PNTEXT
4929 007275 202 00 0 00 010312 MOVEM 0,$OUTEX
4930 007276 200 00 0 00 000231 MOVE 0,PNTNAM ;SETUP LOGICAL OUTPUT FILE NAME
4931 007277 202 00 0 00 010311 MOVEM 0,$OUTNM
4932 IFDEF DSKUPD,<
4933 MOVEM $INNM ;SETUP LOGICAL FILE INPUT NAME
4934 MOVE 0,PNTEXT
4935 MOVEM 0,$INEXT >
4936 007300 041 17 0 00 000000 INIT $DEVCH,0 ;ASCII MODE, DEV CHANNEL
4937 007301 44 45 66 00 00 00 SIXBIT /DEV/ ;LOGICAL DEVICE, LPT,DSK,DTAX
4938 007302 010306 000000 XWD $OBUF, ;OUTPUT ONLY
4939 007303 254 00 0 00 007316 JRST $INTD1 ;DEV NOT AVAIL, DEFAULT TO DISK
4940 007304 065 17 0 00 000001 $INTD2: OUTBUF $DEVCH,1 ;SETUP OUTPUT BUFFER
4941 007305 077 17 0 00 010311 ENTER $DEVCH,$OUTNM ;INIT OUTPUT FILE
4942 007306 254 00 0 00 007344 JRST $OERR2 ;NO DIR ROOM, ERROR
4943 007307 476 00 0 00 010541 SETOM $DVOFF ;SET DEVICE INITED FLAG
4944 007310 402 00 0 00 010542 SETZM $DVTTY
4945 007311 201 00 0 00 000017 MOVEI 0,$DEVCH
4946 007312 047 00 0 00 000004 DEVCHR
4947 007313 603 00 0 00 000010 TLNE 0,10
4948 007314 476 00 0 00 010542 SETOM $DVTTY ;DEVICE IS TTY
4949 IFDEF DSKUPD,<
4950 MOVEI 0,$DEVCH
4951 DEVCHR ;GET DEVICE CHARACTERISTICS
4952 TLC 0,200007
4953 TLNE 0,776737 ;IS DEVICE A DSK ?
4954 JRST @$PACD0 ;NO
4955 SETOM $UPDTF ;YES >
4956 007315 254 00 1 00 010562 JRST @$PACD0
4957
4958 007316 336 00 0 00 010545 $INTD1: SKIPN $INTDF ;FIRST DEFAULT INIT ?
4959 OUTSTR [ASCIZ/
4960 **********
4961 USING 'DSK' PRINT FILE
4962 **********
4963 007317 051 03 0 00 010202 /]
4964 007320 476 00 0 00 010545 SETOM $INTDF
4965 007321 041 17 0 00 000000 INIT $DEVCH,0
4966 007322 44 63 53 00 00 00 SIXBIT /DSK/
4967 007323 010306 000000 XWD $OBUF,
4968 007324 254 00 0 00 007342 JRST $OERR1
4969 007325 254 00 0 00 007304 JRST $INTD2
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 60
SUBRTN MAC 17-Jul-74 00:38 *SUBRTN* PRINT SUBROUTINE, V74A, JUNE 11, 1974 SEQ 0167
4970 ;USER MODE CLOSE FILE
4971
4972 007326 202 00 0 00 010563 $DRPDV: MOVEM 0,$PACE0#
4973 007327 336 00 0 00 010541 SKIPN $DVOFF ;DEVICE INITED?
4974 007330 254 00 1 00 010563 JRST @$PACE0 ;RETURN
4975 007331 070 17 0 00 000000 CLOSE $DEVCH, ;CLOSE FILE
4976 007332 063 17 0 00 740000 STATZ $DEVCH,740000 ;RECHECK FINAL ERROR BITS
4977 OUTSTR [ASCIZ/
4978 **********
4979 ERROR DURING PRINT CLOSE FILE
4980 **********
4981 007333 051 03 0 00 010215 /]
4982 007334 071 17 0 00 000000 RELEAS $DEVCH, ;RELINQUISH DEVICE, WRITE DIRECTORY
4983 007335 402 00 0 00 010541 SETZM $DVOFF
4984 007336 254 00 1 00 010563 JRST @$PACE0
4985
4986 007337 $OUTER: OUTSTR [ASCIZ/
4987 **********
4988 ERROR DURING PRINT OUTPUT
4989 **********
4990 007337 051 03 0 00 010231 /]
4991 007340 047 01 0 00 000012 EXIT 1, ;ERROR, QUIT
4992 007341 254 00 0 00 000140 JRST BEGIN
4993
4994 007342 $OERR1: OUTSTR [ASCIZ/
4995 007342 051 03 0 00 010244 LOGICAL DEVICE 'DEV' NOT ASSIGNED/]
4996 007343 254 00 0 00 007337 JRST $OUTER
4997
4998 007344 $OERR2: OUTSTR [ASCIZ/
4999 007344 051 03 0 00 010254 NO DIRECTORY ROOM/]
5000 007345 254 00 0 00 007337 JRST $OUTER
5001
5002 XLIST
5003 LIST
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0168
5004 SUBTTL *STOR* RESERVED STORAGE, V73H, NOV 29, 1973
5005
5006 XLIST
5007 LIST
5008
5009 ;PROGRAM LITERALS
5010 007346 LIT
5011 007346 051 04 0 00 010613
5012 007347 124 131 120 105 040
5013 007350 057 110 074 103 122
5014 007351 076 040 106 117 122
5015 007352 040 110 105 114 120
5016 007353 000 000 000 000 000
5017 007354 015 012 106 111 114
5018 007355 105 072 040 000 000
5019 007356 015 012 077 077 077
5020 007357 000 000 000 000 000
5021 007360 44 06 0 00 000001
5022 007361 000037 777777
5023 007362 63 41 66 00 00 00
5024 007363 41 21 20 00 00 00
5025 007364 40 04 0 00 000007
5026 007365 20 20 0 00 000007
5027 007366 00 20 0 00 000007
5028 007367 20 02 0 00 010511
5029 007370 10 02 0 00 000007
5030 007371 20 02 0 00 010531
5031 007372 015 012 103 117 116
5032 007373 126 105 122 124 111
5033 007374 116 107 040 103 117
5034 007375 115 120 114 105 124
5035 007376 105 104 054 040 111
5036 007377 116 120 125 124 040
5037 007400 102 114 117 103 113
5038 007401 123 040 075 040 000
5039 007402 054 040 117 125 124
5040 007403 120 125 124 040 102
5041 007404 114 117 103 113 123
5042 007405 040 075 040 000 000
5043 007406 777777 777700
5044 007407 777777 770000
5045 007410 015 012 106 111 114
5046 007411 105 040 117 106 040
5047 007412 132 105 122 117 040
5048 007413 114 105 116 107 124
5049 007414 110 000 000 000 000
5050 007415 015 012 106 111 122
5051 007416 123 124 040 127 117
5052 007417 122 104 040 115 125
5053 007420 123 124 040 102 105
5054 007421 040 120 117 111 116
5055 007422 124 105 122 000 000
5056 007423 015 012 111 116 111
5057 007424 124 111 101 114 040
5058 007425 120 117 111 116 124
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1-1
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0169
5059 007426 105 122 040 105 122
5060 007427 122 117 122 000 000
5061 007430 015 012 111 114 114
5062 007431 105 107 101 114 040
5063 007432 105 117 106 000 000
5064 007433 015 012 120 117 111
5065 007434 116 124 105 122 040
5066 007435 105 122 122 117 122
5067 007436 000 000 000 000 000
5068 007437 015 012 105 122 122
5069 007440 117 122 040 117 116
5070 007441 040 117 125 124 120
5071 007442 125 124 000 000 000
5072 007443 015 012 111 116 120
5073 007444 125 124 040 116 117
5074 007445 124 040 101 126 101
5075 007446 111 114 101 102 114
5076 007447 105 000 000 000 000
5077 007450 015 012 117 125 124
5078 007451 120 125 124 040 117
5079 007452 120 105 116 040 105
5080 007453 122 122 117 122 000
5081 007454 015 012 116 117 040
5082 007455 117 125 124 120 125
5083 007456 124 040 122 117 117
5084 007457 115 000 000 000 000
5085 007460 015 012 111 116 120
5086 007461 125 124 040 106 111
5087 007462 114 105 040 116 117
5088 007463 124 040 106 117 125
5089 007464 116 104 000 000 000
5090 007465 015 012 122 111 115
5091 007466 061 060 040 106 117
5092 007467 122 115 101 124 040
5093 007470 105 122 122 117 122
5094 007471 000 000 000 000 000
5095 007472 015 012 117 126 105
5096 007473 122 040 062 065 066
5097 007474 113 040 105 122 122
5098 007475 117 122 000 000 000
5099 007476 35 07 0 00 010431
5100 007477 26 07 0 00 010431
5101 007500 17 07 0 00 010431
5102 007501 10 07 0 00 010431
5103 007502 01 07 0 00 010431
5104 007503 476 00 0 00 010467
5105 007504 254 00 0 00 001600
5106 007505 001751 001752
5107 007506 10 02 0 00 001751
5108 007507 00 10 0 00 001751
5109 007510 015 012 106 111 114
5110 007511 105 040 124 131 120
5111 007512 105 040 105 122 122
5112 007513 117 122 000 000 000
5113 007514 015 012 106 117 122
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1-2
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0170
5114 007515 115 101 124 040 105
5115 007516 122 122 117 122 000
5116 007517 015 012 103 110 105
5117 007520 103 113 123 125 115
5118 007521 040 105 122 122 117
5119 007522 122 000 000 000 000
5120 007523 42 51 56 00 00 00
5121 007524 41 21 21 00 00 00
5122 007525 00 10 0 00 002251
5123 007526 002251 002252
5124 007527 015 012 103 117 116
5125 007530 123 124 101 116 124
5126 007531 040 061 040 105 122
5127 007532 122 117 122 000 000
5128 007533 015 012 103 117 116
5129 007534 123 124 101 116 124
5130 007535 040 060 040 105 122
5131 007536 122 117 122 000 000
5132 007537 015 012 102 131 124
5133 007540 105 040 103 117 125
5134 007541 116 124 040 105 122
5135 007542 122 117 122 000 000
5136 007543 015 012 106 111 114
5137 007544 105 040 103 110 105
5138 007545 103 113 123 125 115
5139 007546 040 105 122 122 117
5140 007547 122 000 000 000 000
5141 007550 015 012 127 117 122
5142 007551 104 040 116 117 124
5143 007552 040 104 117 125 102
5144 007553 114 105 040 061 066
5145 007554 040 102 111 124 040
5146 007555 106 117 122 115 101
5147 007556 124 040 105 122 122
5148 007557 117 122 000 000 000
5149 007560 55 43 62 00 00 00
5150 007561 62 41 55 00 00 00
5151 007562 66 00 00 00 00 00
5152 007563 65 00 00 00 00 00
5153 007564 45 56 44 00 00 00
5154 007565 16 64 51 64 54 45
5155 007566 44 07 0 00 006112
5156 007567 33 03 0 16 400000
5157 007570 13 03 0 15 002251
5158 007571 30 03 0 16 400000
5159 007572 10 03 0 15 002251
5160 007573 22 01 0 16 400000
5161 007574 05 01 0 15 002251
5162 007575 00 22 0 16 400000
5163 007576 00 04 0 00 000013
5164 007577 00 04 0 15 002251
5165 007600 04 06 0 00 000013
5166 007601 011 073 040 000 000
5167 007602 011 011 000 000 000
5168 007603 13 03 0 15 002252
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1-3
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0171
5169 007604 10 03 0 15 002252
5170 007605 05 01 0 15 002252
5171 007606 00 04 0 15 002252
5172 007607 00 04 0 15 002253
5173 007610 112 040 123 111 132
5174 007611 105 040 000 000 000
5175 007612 112 040 103 115 116
5176 007613 040 040 040 000 000
5177 007614 112 060 065 040 105
5178 007615 122 122 040 000 000
5179 007616 057 040 000 000 000
5180 007617 44 01 0 16 402000
5181 007620 105 122 122 117 122
5182 007621 041 040 103 122 101
5183 007622 115 040 125 116 125
5184 007623 123 105 104 040 102
5185 007624 111 124 123 015 012
5186 007625 000 000 000 000 000
5187 007626 00 06 0 00 004436
5188 007627 30 13 0 16 402000
5189 007630 20 02 0 16 402001
5190 007631 06 03 0 16 402000
5191 007632 11 03 0 16 402000
5192 007633 14 02 0 16 402000
5193 007634 17 03 0 16 402000
5194 007635 22 06 0 16 402000
5195 007636 04 01 0 16 402000
5196 007637 05 01 0 16 402000
5197 007640 03 01 0 16 402000
5198 007641 00 03 0 16 402000
5199 007642 33 02 0 16 402001
5200 007643 36 03 0 16 402001
5201 007644 41 03 0 16 402001
5202 007645 31 01 0 16 402001
5203 007646 30 01 0 16 402001
5204 007647 25 02 0 16 402001
5205 007650 30 11 0 16 402002
5206 007651 22 02 0 16 402001
5207 007652 14 04 0 16 402001
5208 007653 06 06 0 16 402001
5209 007654 00 06 0 16 402001
5210 007655 41 01 0 16 402002
5211 007656 134 14 0 00 000013
5212 007657 137 14 0 15 004054
5213 007660 271 15 0 00 000001
5214 007661 302 15 0 00 000154
5215 007662 254 00 0 00 000000
5216 007663 254 00 0 00 003601
5217 007664 44 01 0 00 000007
5218 007665 134 06 0 00 000013
5219 007666 270 01 0 00 000006
5220 007667 367 00 0 00 000002
5221 007670 254 00 0 00 003612
5222 007671 254 00 0 00 003620
5223 007672 33 01 0 16 402002
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1-4
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0172
5224 007673 30 14 0 16 402000
5225 007674 00 22 0 16 402002
5226 007675 25 03 0 16 402000
5227 007676 14 11 0 16 402000
5228 007677 06 04 0 16 402000
5229 007700 00 04 0 16 402000
5230 007701 36 02 0 16 402001
5231 007702 33 03 0 16 402001
5232 007703 17 06 0 16 402001
5233 007704 040 040 000 000 000
5234 007705 11 06 0 16 402001
5235 007706 03 06 0 16 402001
5236 007707 00 02 0 16 402001
5237 007710 43 01 0 16 402002
5238 007711 42 01 0 16 402002
5239 007712 40 01 0 16 402002
5240 007713 37 01 0 16 402002
5241 007714 36 01 0 16 402002
5242 007715 34 02 0 16 402002
5243 007716 30 03 0 16 402001
5244 007717 25 03 0 16 402001
5245 007720 015 012 116 117 040
5246 007721 105 116 104 040 123
5247 007722 124 101 124 105 115
5248 007723 105 116 124 040 111
5249 007724 116 040 115 111 103
5250 007725 122 117 040 106 111
5251 007726 114 105 000 000 000
5252 007727 015 012 105 122 122
5253 007730 117 122 040 117 116
5254 007731 040 111 116 120 125
5255 007732 124 000 000 000 000
5256 007733 015 012 115 111 103
5257 007734 122 117 040 105 116
5258 007735 104 040 102 105 106
5259 007736 117 122 105 040 126
5260 007737 040 117 122 040 125
5261 007740 000 000 000 000 000
5262 007741 015 012 115 111 103
5263 007742 122 117 040 103 117
5264 007743 115 115 101 116 104
5265 007744 040 127 117 122 104
5266 007745 040 105 122 122 117
5267 007746 122 000 000 000 000
5268 007747 015 012 111 116 126
5269 007750 101 114 111 104 040
5270 007751 104 055 122 101 115
5271 007752 040 101 104 104 122
5272 007753 105 123 123 000 000
5273 007754 015 012 116 117 116
5274 007755 055 123 105 121 125
5275 007756 105 116 124 111 101
5276 007757 114 040 104 055 122
5277 007760 101 115 040 101 104
5278 007761 104 122 105 123 123
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1-5
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0173
5279 007762 000 000 000 000 000
5280 007763 015 012 115 111 103
5281 007764 122 117 040 106 117
5282 007765 122 115 101 124 040
5283 007766 105 122 122 117 122
5284 007767 000 000 000 000 000
5285 007770 015 012 111 116 126
5286 007771 101 114 111 104 040
5287 007772 103 055 122 101 115
5288 007773 040 101 104 104 122
5289 007774 105 123 123 000 000
5290 007775 015 012 104 055 122
5291 007776 101 115 040 101 104
5292 007777 104 122 105 123 123
5293 010000 040 105 122 122 117
5294 010001 122 000 000 000 000
5295 010002 105 122 122 117 122
5296 010003 041 040 104 055 122
5297 010004 101 115 040 000 000
5298 010005 112 040 106 111 105
5299 010006 114 104 040 123 111
5300 010007 132 105 040 000 000
5301 010010 112 040 106 111 105
5302 010011 114 104 040 103 117
5303 010012 115 115 117 116 040
5304 010013 000 000 000 000 000
5305 010014 015 012 000 000 000
5306 010015 41 30 00 00 00 00
5307 010016 015 012 106 111 122
5308 010017 123 124 040 116 117
5309 010020 116 055 132 105 122
5310 010021 117 040 103 110 101
5311 010022 122 040 116 117 124
5312 010023 040 114 105 101 104
5313 010024 105 122 040 103 117
5314 010025 104 105 000 000 000
5315 010026 015 012 106 111 122
5316 010027 123 124 040 127 117
5317 010030 122 104 040 116 117
5318 010031 124 040 101 104 104
5319 010032 122 105 123 123 000
5320 010033 015 012 125 116 105
5321 010034 130 120 105 103 124
5322 010035 105 104 040 106 111
5323 010036 114 105 040 103 110
5324 010037 101 122 000 000 000
5325 010040 41 44 70 00 00 00
5326 010041 777777 777777
5327 010042 00 12 0 00 010446
5328 010043 12 06 0 00 010446
5329 010044 53 55 43 00 00 00
5330 010045 66 45 62 00 00 00
5331 010046 00 14 0 00 000720
5332 010047 17 03 0 00 000717
5333 010050 14 03 0 00 000002
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1-6
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0174
5334 010051 30 11 0 00 402576
5335 010052 015 012 106 111 114
5336 010053 105 040 126 105 122
5337 010054 123 111 117 116 040
5338 010055 077 040 000 000 000
5339 010056 45 57 46 00 00 00
5340 010057 44 06 0 00 000013
5341 010060 006005 006006
5342 010061 44 07 0 00 006005
5343 010062 015 012 103 101 116
5344 010063 047 124 040 107 105
5345 010064 124 040 110 111 055
5346 010065 103 117 122 105 040
5347 010066 106 117 122 040 122
5348 010067 101 115 040 123 124
5349 010070 117 122 101 107 105
5350 010071 000 000 000 000 000
5351 010072 006044 006045
5352 010073 44 06 0 00 006063
5353 010074 60 41 47 45 00 00
5354 010075 43 57 56 66 62 64
5355 010076 00 66 45 62 00 00
5356 010077 44 06 0 00 006062
5357 010100 44 07 0 00 005746
5358 010101 44 06 0 00 006044
5359 010102 44 06 0 00 006074
5360 010103 44 06 0 00 006077
5361 010104 14 03 0 00 000001
5362 010105 14 13 0 00 000720
5363 010106 015 012 105 122 122
5364 010107 117 122 040 110 101
5365 010110 114 124 040 101 124
5366 010111 040 000 000 000 000
5367 010112 015 012 052 052 052
5368 010113 052 052 052 052 052
5369 010114 052 052 015 012 120
5370 010115 125 123 110 104 117
5371 010116 127 116 040 114 111
5372 010117 123 124 040 125 116
5373 010120 104 105 122 106 114
5374 010121 117 127 040 105 122
5375 010122 122 117 122 000 000
5376 010123 126 105 122 123 111
5377 010124 117 116 040 000 000
5378 010125 015 012 106 101 124
5379 010126 101 114 040 120 122
5380 010127 117 107 122 101 115
5381 010130 040 105 122 122 117
5382 010131 122 040 101 124 040
5383 010132 000 000 000 000 000
5384 010133 254 00 1 00 006364
5385 010134 015 012 111 114 114
5386 010135 105 107 101 114 040
5387 010136 125 125 117 040 105
5388 010137 130 105 103 125 124
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1-7
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0175
5389 010140 105 104 015 012 125
5390 010141 125 117 040 040 040
5391 010142 040 040 040 040 040
5392 010143 040 040 040 040 106
5393 010144 114 101 107 123 040
5394 010145 040 040 040 040 040
5395 010146 120 103 040 040 040
5396 010147 040 120 122 117 107
5397 010150 015 012 000 000 000
5398 010151 264 00 0 00 010303
5399 010152 040 131 040 117 122
5400 010153 040 116 040 074 103
5401 010154 122 076 040 055 040
5402 010155 000 000 000 000 000
5403 010156 421042 104210
5404 010157 015 012 052 052 052
5405 010160 052 052 052 052 052
5406 010161 052 052 015 012 105
5407 010162 130 103 105 105 104
5408 010163 105 104 040 101 114
5409 010164 114 117 127 105 104
5410 010165 040 120 122 111 116
5411 010166 124 117 125 124 123
5412 010167 054 040 117 116 114
5413 010170 131 040 106 117 122
5414 010171 103 105 104 040 120
5415 010172 122 111 116 124 117
5416 010173 125 124 123 040 106
5417 010174 122 117 115 040 124
5418 010175 110 111 123 040 120
5419 010176 117 111 116 124 015
5420 010177 012 052 052 052 052
5421 010200 052 052 052 052 052
5422 010201 052 015 012 000 000
5423 010202 015 012 052 052 052
5424 010203 052 052 052 052 052
5425 010204 052 052 015 012 125
5426 010205 123 111 116 107 040
5427 010206 047 104 123 113 047
5428 010207 040 120 122 111 116
5429 010210 124 040 106 111 114
5430 010211 105 015 012 052 052
5431 010212 052 052 052 052 052
5432 010213 052 052 052 015 012
5433 010214 000 000 000 000 000
5434 010215 015 012 052 052 052
5435 010216 052 052 052 052 052
5436 010217 052 052 015 012 105
5437 010220 122 122 117 122 040
5438 010221 104 125 122 111 116
5439 010222 107 040 120 122 111
5440 010223 116 124 040 103 114
5441 010224 117 123 105 040 106
5442 010225 111 114 105 015 012
5443 010226 052 052 052 052 052
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 1-8
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0176
5444 010227 052 052 052 052 052
5445 010230 015 012 000 000 000
5446 010231 015 012 052 052 052
5447 010232 052 052 052 052 052
5448 010233 052 052 015 012 105
5449 010234 122 122 117 122 040
5450 010235 104 125 122 111 116
5451 010236 107 040 120 122 111
5452 010237 116 124 040 117 125
5453 010240 124 120 125 124 015
5454 010241 012 052 052 052 052
5455 010242 052 052 052 052 052
5456 010243 052 015 012 000 000
5457 010244 015 012 114 117 107
5458 010245 111 103 101 114 040
5459 010246 104 105 126 111 103
5460 010247 105 040 047 104 105
5461 010250 126 047 040 116 117
5462 010251 124 040 101 123 123
5463 010252 111 107 116 105 104
5464 010253 000 000 000 000 000
5465 010254 015 012 116 117 040
5466 010255 104 111 122 105 103
5467 010256 124 117 122 131 040
5468 010257 122 117 117 115 000
5469 010270 000000 000000 ENDSLD: 0
5470
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 2
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0177
5471 ;END OF PROGRAM VARIABLES
5472
5473 010271 000000 000000 $FATAL: 0
5474 010272 254 00 0 00 006270 JRST $FATL1 ;FATAL PROGRAM HALT
5475 010273 000000 000000 $ERHLT: 0
5476 010274 254 00 0 00 006215 JRST $ERHL1 ;ERROR HALT
5477 IFDEF PRINT,<
5478 010275 000000 000000 $TYOUT: 0
5479 010276 254 00 0 00 007234 JRST $TYOU1 ;EXEC CTY OUTPUT
5480 010277 000000 000000 $PRINT: 0
5481 010300 254 00 0 00 007013 JRST $PNTIT ;NORMAL PRINTOUT
5482 010301 000000 000000 $PRNTF: 0
5483 010302 254 00 0 00 007005 JRST $PNTIF ;FORCED PRINTOUT >
5484 IFDEF SIXOUT,<
5485 $PNTSX: 0
5486 JRST $PSIX1 ;SIXBIT NORMAL PRINT
5487 $PTSXF: 0
5488 JRST $PSX1F ;SIXBIT FORCED PRINT >
5489 IFDEF DFASB,<
5490 $PNTCW: 0
5491 JRST $PNTC1 ;DF10 CONTROL WORD PRINTOUT
5492 $PNTCF: 0
5493 JRST $PTC1F >
5494 IFDEF INTRPT,<
5495 ITRCH1: 0
5496 IFDEF EXCASB,<
5497 JRST $ITRC1 ;CPU INTERRUPT ROUTINE
5498 IFDEF KI10,<
5499 PDLOV: 0
5500 JRST $PDLOV ;PUSHDOWN OVERFLOW
5501 PGFAIL: 0
5502 JRST $PGFL ;PAGE FAIL
5503 TRAP3: 0
5504 JRST $TRP3 ;TRAP 3 >>>
5505 IFDEF UUOS,<
5506 010303 000000 000000 UUORTN: 0
5507 010304 254 00 0 00 006313 JRST $UORTN ;UUO ROUTINE
5508 010305 254 00 1 00 006364 $UUOGO: JRST @UUODIS >
5509 XLIST
5510 IFDEF PRINT,< IFDEF USRASB,< LIST
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 3
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0178
5511
5512 010306 $OBUF: BLOCK 3 ;LOGICAL FILE OUTPUT BUFFER HEADER
5513
5514 010311 60 62 51 56 64 00 $OUTNM: SIXBIT /PRINT/ ;FILE NAME
5515
5516 010312 60 56 64 00 00 00 $OUTEX: SIXBIT /PNT/ ;FILE NAME EXTENSION
5517
5518 010313 BLOCK 2
5519
5520 IFDEF DSKUPD,<
5521
5522 $IBUF: BLOCK 3
5523
5524 $INNM: SIXBIT /PRINT/
5525
5526 $INEXT: SIXBIT /PNT/
5527
5528 BLOCK 2 >>
5529
5530 LIST
5531 010315 777757 010315 $PLST: XWD $PLST-$PLSTE,$PLST
5532 010316 $PLSTS: BLOCK 20
5533 010336 000000 000000 $PLSTE: 0 >
CONVRT [DDQDG] DECSYSTEM DIAGNOSTIC ASCIIZER CONVERSION PROGRAM,VER 0,14 MACRO %53(1020) 08:51 10-May-78 Page 4
STOR MAC 2-May-78 10:43 *STOR* RESERVED STORAGE, V73H, NOV 29, 1973 SEQ 0179
5534 XLIST
5535 IFDEF PSHLST,<LIST
5536 010337 777757 010337 PLIST: XWD PLIST-PLISTE,PLIST
5537 010340 PLISTS: BLOCK PSHLST
5538 010360 000000 000000 PLISTE: 0 >
5539
5540 XLIST
5541 IFDEF DEBUG,<LIST
5542 010361 PATCH: BLOCK DEBUG >
5543
5544 LIST
5545 ;PROGRAM VARIABLE WORDS
5546 010421 VAR
5547
5548 XLIST
5549 IFDEF PGMEND,<LIST
5550 010621 000000 000000 END: 0
5551 000140 END LOAD >
NO ERRORS DETECTED
PROGRAM BREAK IS 000000
ABSOLUTE BREAK IS 010622
CPU TIME USED 00:18.917
24P CORE USED
AC 37# 2002 2006 2009 2011 2015 2019 2022 2024 2028 2033 2048 2051 2100
2101 2102 2141 2142 2143 2158 2159 2160 2210 2211 2213 2215 2216 2217 SEQ 0180
2218 2219 2220 2221 2222 2225 2226 2228 2243 2244 2245 2246 2247 2248
2249 2250 2582 2583 2585
AC0 32#
AC1 33# 3470 3471 3870 3873 3877 3878 3879 3882 3892 3895 3978 3980 3981
3983
AC2 34# 3469 3471 3472 3474 3478 3482 3822 3823 3826 3829 3833 3834 3836
3837 3838 3842 3843 3979 3980 3984 3985 3986 3990 3996 3997 4000 4003
AC3 35# 3475 3479 3482 3526 3527 3824 3827 3829 3830 3835 3838 3843 3858
3862 3899 3900 3901 3909 3914 3915 3921 3986 3990 3998 4001 4003
AC4 36# 3529 3903 3917
ADR11 1467# 1467 1474 1497 1541 1607# 3322# 3322 3333 3356 3367 3387 3395
ALPH 3595 3611#
ALPH1 3612 3614 3616 3622#
APR 4084
AROV 235#
AROVU 275#
AST 4619#
ATSIN 4621#
AWC11 77# 1469 1470 1484 1496 1498 1610 1918 3215 3328 3329 3344 3355 3357
3362 3363 3376 3386 3388
B11ADR 762 842 898 1475 1542 1561 1608# 1913 1972 2057 2088 2160 3063 3103
3128 3202 3227 3250 3335 3369 3396
B11CNT 768 776 782 788 846 861 902 1478 1543 1555 1568 1609# 1656 1864
1895 1909 1914 1971 2061 2068 2082 2087 2142 2154 2161 3061 3088 3095
3104 3121 3127 3203 3211 3217 3228 3242 3249 3338 3370 3397
B11DAT 772 853 855 857 1480 1482 1483 1484 1572 1610# 1774 1779 1784 1797
1822 1827 1831 1844 1849 1916 1917 1918 2059 2129 2131 2133 2135 2137
2139 3086 3210 3340 3342 3343 3344 3372 3374 3375 3376
B8ADR 3062# 3062 3090 3102 3107 3110
BA 75# 1480 1488 1489 1490 3340 3348 3349 3350 3372 3380 3381
BC 72# 1463 1464 1468 1470 1471 1498 1499 3318 3319 3323 3329 3330 3357
3358 3363 3364 3388 3389
BEGIN 96 97 98 99 100 101 288# 4197 4201 4992
BELL 4627#
BIS 239#
BLKCNT 312# 312 972 3718
BLKSIZ 810# 810 914
BLKSZ 62# 807 808
BPNT 38# 1209 1214 1216 1225 1226 3819 3820 3821 3832 3841 3845 3846 3847
3850 3851 3857 3861 3910 3916 3918 3925 3964 3970 3976 3989 3992 3993
3994
BYTE 71# 1446 1447 1450 1453 1457 1488 1512 1515 1531 1532 3054 3057 3062
3063 3066 3068 3071 3075 3077 3107 3110 3145 3152 3301 3302 3305 3308
3312 3348 3380
BYTESV 1512# 1512 1517 3071 3085 3116
C11CDN 1570 1578#
C11CKS 1556# 1556 1562 1573 1578
C11CLP 1570# 1576
C11CNV 795 830 849 1494 1546 1555# 1962 2065 2085 2090 2166 3100 3125 3130
3222 3247 3254 3404 3408
C11DAT 1486# 1491
C11DID 1496#
C11DO 1493# SEQ 0181
C11DON 372 850 957 961# 1397 1548 1984 2462 3132 3256 3401
C11LP 1444# 1446 1448 1502
C11LPA 1463#
C11LPB 1469# 1499
C11SUM 1453# 1453 1505 1532 1606#
C16SHF 2076 2093#
C16SHL 2117# 2123
C81 3046#
C82 3065# 3108
C821 3066# 3093 3105
C822 3078 3082#
C83 3095# 3112
C84 3096 3102#
C8ADR 3069 3106#
C8BIN 3046# 3046 3076 3079
C8DON1 3067 3121#
C8DONE 3080 3114#
C8END 3122 3127#
CDX1 3199#
CDX2 3205# 3236
CDX3 3217# 3240
CDX4 3218 3224#
CDX5 3216 3230#
CDXEC 3238#
CHAR 40#
CHEAD 2312 2321#
CHEADR 2172 2309#
CHECK8 3060# 3060 3064 3083 3106 3114
CHKSM 806# 806 918 924 931 934 944 949 953
CHR 39# 728 729 737 742 746 747 799 800 801 816 817 852 854
856 868 869 878 879 882 886 888 895 896 897 898 899 900
901 902 907 908 914 916 918 922 923 924 931 934 935 941
943 944 947 948 949 953 954 987 995 998 1000 1004 1007 1009
1013 1030 1033 1034 1036 1039 1042 1044 1046 1048 1098 1099 1100 1101
1102 1136 1137 1139 1140 1141 1219 1366 1379 1395 1526 1527 1528 1549
1551 1555 1556 1561 1562 1572 1573 1578 1579 1581 1587 1593 1594 1595
1597 1599 1601 2349 2352 2508 2509 2510 2513 2514 2515 2518 2519 2859
2863 2916 3049 3050 3134 3136 3144 3145 3146 3150 3152 3155 3157 3166
3233 3235 3260 3265 3273 3275 3277 3416 3424 3455 3503 3504 3518 3527
3529 3545 3546 3554 3555 3556 3564 3575 3577 3579 3694 3719
CHR1 41# 1016 1018 1023 1025 1030 1053 1055 1057 1059 1061 1066 1068 1070
1072 1074 1089 1091 1093 1095 1100 1112 1125 1127 1129 1131 1133 1138
1139 1587 1588
CHRSAV 1219 1221 1222 1223 1224 1225 1526# 1526 1535 1536 1537 1538
CK11SU 1501 1503# 1540 3360 3391 3394
CLCNT 2069# 2069 2169 2170 2441 2533 2534
CLKU 273#
CMD 303# 357 465
CMDERR 325 352#
CMDGET 3672 3692# 3695 3702
CMDIN 1662 3667#
CMDIN1 3672# 3676
CMDIN2 3673 3674 3677# SEQ 0182
CMNPNT 1401 1404# 1407
CNEWPG 2310 2316#
CNT 46# 772 775 777 781 783 787 789 791 853 855 857 860 903
1022 1024 1029 1050 1065 1067 1069 1071 1073 1079 1081 1083 1085 1097
1114 1116 1118 1120 1122 1135 1586 1603 1774 1779 1784 1797 1822 1827
1831 1844 1849 1863 1864 1865 1914 2106 2119 2121 2122 2464 2472 2473
2474 3061 3086 3089 3092 3104 3203 3210 3212 3215 3228
CNVDX 334 3183#
CNVKMC 331 3283#
CNVRT8 337 3031#
CNVT11 340 1428#
COMLIN 1663 2960 2978 2987 3014 3667 3668 3669 3670 3681 4049#
COMMA 4606#
CONSW 318 4091 4093# 4093 4206 4416 4425 4838 4886
CONVRT 291#
COUNT 801# 801 802 804 811
CPOPJ 3555 3721# 3981
CPOPJ1 1533 3720#
CRAM 1673 1675 1988#
CRAMPT 2119 2354#
CRLF 1191 1876 2297 2669 2958 2962 2976 2980 2985 2989 3789 3871 3888 3893
4419 4476 4599#
CRLF2 978 3795 4178 4262 4602#
CRLIN1 3905 4028#
CRLINE 3897 4021#
CRM16 2107 2108 2109 2110 2111 2112 2113 2125 2128 2130 2132 2134 2136 2138
2176 2178 2180 2182 2184 2188 2354 2355 2356 2357 2358 2359 2360 2361
2362 2363 2364 2365 2366 2367 2368 2369 2370 2371 2372 2373 2374 2375
2376 2377 2378 2379 2380 2381 2382 2383 2384 2385 2386 2387 2388 2389
2390 2391 2392 2393 2394 2395 2396 2397 2398 2399 2400 2401 2402 2403
2404 2405 2406 2407 2408 2409 2410 2411 2412 2413 2414 2415 2416 2417
2418 2419 2420 2421 2422 2423 2424 2425 2426 2427 2428 2429 2430 2431
2432 2433 2434 2435 2436 2437 3022#
CRM36 2479 2501 2502 2503 2505 2508 2509 2513 2514 2518 2529# 2542 2545 2548
CRMADR 2074# 2074 2098 2104 2302 2446
CRMCNV 2156 2164#
CRMLST 2146 2169#
CRMMAX 1655# 1655 1991 1992 2058
CRMOUT 2099 2103 2154#
CRMPRV 2070# 2070 2096 2097 2105 2442
CRMSIZ 78# 1989 2079 2451 2868 3730
CRMUNB 2126 2150# 2506
CRY0 236#
CRY1 237#
CSHUF 1690 2053#
CSHUF1 2072# 2080
CSHUF2 2056 2067#
CYCL50 213#
D16SHF 1764# 1902
D16SHO 1815#
DATETB 3479 3827 3948# 4001
DCK 243#
DCSHUF 1677 1680# SEQ 0183
DEBUG 94# 5541 5542 5549
DECVER 4# 11 16
DFASB 201 4590 5489
DHEAD 1927 1935#
DHEADR 1768 1921#
DING 219#
DNEWPG 1926 1930#
DOLLAR 4633#
DRAM 1671 1728#
DRMADR 1815 1900 1950# 1950 3002
DRMAO 1910 1956# 1969 1973
DRMBST 1866 1896 1909#
DRMCM1 1870 1872 1874 1880#
DRMCM2 1876# 1891
DRMCMN 1867#
DRMCNT 1654# 1654 1682 1735 1892
DRMDON 1893 1907 1969#
DRMSIZ 67 79# 1684 1732 1904
DRMSTR 66# 67 1746 1752 1761 1773 1778 1783 1788 1807 1821 1826 1830 1835
1858
DSHUF 1892# 2092
DSHUF1 1898# 1905
DSKUPD 4906 4932 4949 5003 5520
DX20F 316# 316 333 446 3439
DXADR 3201# 3201 3213 3226 3239
DXCWF 3199# 3199 3207 3225 3234 3251 3274
DXCWF1 3200# 3200 3224 3238
DXEOF 3231 3242#
DXEOF1 3243 3249#
DXSV 3205 3233 3260# 3260 3262 3268
END 5550#
ENDSLD 5469#
ERR1 727 1152#
ERR10 671 1179#
ERR11 1182#
ERR12 757 759 1185#
ERR2 728 1155# 1242 1257 1276 1405
ERR20 1451 1620# 3306
ERR21 1458 1624# 3313
ERR22 1461 1464 1628# 3316 3319
ERR23 1508 1632# 3119
ERR24 1529 1636#
ERR3 732 736 741 1158#
ERR4 823 930 1161# 1445 1456 1487 1504 1511 1514 3165 3258 3300 3311 3347
3379
ERR5 870 1164#
ERR6 993 1167# 2920
ERR7 652 1170#
ERR8 662 1173# 2881
ERR80 3051 3169#
ERR81 3058 3173#
ERR82 3151 3156 3177#
ERR9 683 1176# 2899 SEQ 0184
ERRCOR 3729 3732 3735 3738#
ERRFLG 295 366#
ERRM1 2929#
ERRM2 1678 2933#
ERRM3 1733 2937#
ERRM4 2941#
ERRM5 1742 1755 2945#
ERRM6 2949#
ERRM8 1685 2953#
ERRMC1 1990 2965#
ERRMC2 1998 2036 2969#
ERRS1 2921# 3693
ERRS2 2925# 3716
ERRTTY 2992#
ERRX 1154 1157 1160 1163 1166 1169 1172 1175 1178 1181 1184 1187 1189# 1418
1421 1424 1622 1626 1630 1634 1638 2923 2927 3171 3175 3179 3740
ERRX1 2931 2935 2939 2943 2947 2951 2955 2957#
ERRX2 2967 2971 2973#
ERRX3 2974 2984#
ERSTOP 222# 4145 4199
ERTTY1 2995 2997 3006#
ERUUO 5510
EXCASB 283 4385 4432 4648 4822 4865 4878 4882
EXIOT 241#
FB 76# 1443 1520 1521 1522 1531 3298
FILEI1 3271 3464# 3496 3517
FILEI2 3472 3485# 3504
FILEID 749 1441 1688 3044 3197 3296 3416#
FILEOF 961 3564#
FILEXT 309# 309 420 716 717 1200 1201 1432 1433 1647 1648 3035 3036 3187
3188 3287 3288
FILNAM 422# 422 426 712 1196 1428 1643 2885 3031 3183 3283 3747 3756
FILNUM 3476 3483 3526#
FILOCS 3263 3269 3454 3458 3494 3537#
FILSP1 3437 3579#
FILSP2 3577#
FILSP3 3432 3464 3575#
FILSPC 324 392#
FILSTR 3422 3430 3435 3480 3553# 3567
FILVER 747# 747 3453 3457
FLAG11 308# 308 339 438 3445
FLAG8 306# 306 336 436 1580 3443
FOV 238#
FOVU 274#
FSTCYL 225#
FXU 242#
G11BY1 1526#
G11BY2 1522 1531#
G11BYT 1444 1455 1486 1503 1510 1513 1520# 3299 3310 3346 3378
G11WD 1460 1466 1510# 3315 3321
G8CH8 3147 3155#
G8CHR 3048 3143 3149 3164#
G8DC 84# 3046 3064 3072 3106 3114 3115 3118 3142 3166 SEQ 0185
G8DCSV 3072# 3072 3082
G8WRD 3053 3065 3074 3111 3142# 3159
GETDC1 3633# 3641
GETDEC 1760 2041 3632#
GETOC1 3652# 3660
GETOCT 1731 1744 1748 1988 2000 2004 2008 2013 2017 2021 2026 2046 2050 3651#
GETWD1 3594# 3601
GETWRD 1666 1695 1699 1740 1754 1996 2035 3592#
HELP 328 461#
HELPF 303 327# 327 432 434
HICORE 67# 2011 2024 2033 2042 2055 2093 2115 2197 2204 2207 2210 2212 2215
2218 2221 2225 2227 2233 2238 2243 2246 2249 2255 2260 2264 2267 2272
2277 2284 2291 2294 2467 2470 2522 2559 2567 2570 2573 2576 2579 2582
2584 2590 2593 2596 2603 2609 2615 2618 2621 2627 2633 2639 2645 2651
2657 2663 2666 2859 2863 3491 3730
HLPMSG 461 470#
HLTBIT 61#
HYPEN 4615#
IBF 688 689# 733 738 743 799 3711 3719
ICHAN 53# 3713 3715
IDDX20 3257# 3440
IDENT 3865 3964#
IDENT1 3976#
IDOTHE 3444 3446 3448 3492 3511#
IDRAM 3442 3491#
IDRAM1 3467 3502#
IMAGEA 3786 3813 3814 3815 3819 3854 3856 3857 3936 4058#
IMAGEB 3792 3964 3976 4061#
IN 52# 651 667 670 963 965
INBLK 651 686# 722 1206 1438 1652 3041 3193 3293
INDX 47# 1737 1738 1746 1752 1761 1773 1778 1783 1788 1807 1816 1821 1826
1830 1835 1858 1862 1894 1898 1904 1911 1993 1994 2011 2024 2033 2042
2067 2072 2078 2079 2093 2100 2115 2158 2197 2204 2207 2210 2212 2215
2218 2221 2225 2227 2233 2238 2243 2246 2249 2255 2260 2264 2267 2272
2277 2284 2291 2294 2440 2444 2450 2451 2467 2470 2522 2559 2567 2570
2573 2576 2579 2582 2584 2590 2593 2596 2603 2609 2615 2618 2621 2627
2633 2639 2645 2651 2657 2663 2666 2857 2859 2861 2863 2867 2868
ININIT 651# 723 1207 1439 1653 3042 3195 3294
INNAM 670 696#
INNAME 673 676 679 698# 713 718 1197 1202 1429 1434 1644 1649 2889 2892
2895 3032 3037 3184 3189 3284 3289 3469 3470 3760 3763 3766 3965 3971
3978 3979 3984
INTCOR 1660 3727#
INTRPT 4111 4209 5494
ITERAT 115#
J05ERR 1766# 1766 1802 1853 1869 1889 2994 3011
JCMERR 1765# 1765 1851 1873 1886 2998 3009
JEVNCM 1800# 1800 1850
JOB41 253# 4306
JOBAPR 261#
JOBCNI 262#
JOBDA 65#
JOBDDT 255# SEQ 0186
JOBFF 64# 259# 664 739 968 4086
JOBOPC 264#
JOBREL 254#
JOBREN 260# 4657
JOBSA 63# 258# 734 4085
JOBSYM 256#
JOBTPC 263#
JOBUSY 257#
JOBUUO 252# 4218
JOBVER 265# 744 3858 3862 4172 4176
JSZERR 1764# 1764 1790 1837 1871 1883 2996 3007
KAIFLG 4117# 4117 4124
KHEAD 2676 2685#
KHEADR 2536 2673#
KIMRGN 177 179 4209
KMCCNV 3353 3399 3403#
KMCDNV 3384 3407#
KMCFLG 307# 307 330 454 3447
KMCLP 3299# 3301 3303 3361 3392
KMCLPA 3318#
KMCLPB 3328# 3358
KMCLPC 3326 3362# 3389
KMCSUM 3308# 3308
KNEWPG 2674 2680#
KSCLST 2523 2533#
KSCRAM 2031 2046#
KSCRMP 2472 2737#
KSMCNV 343 1642#
KSMICF 305# 305 342 448 655 1687 1728 2030 2053
KSPARF 2490 2498 2527#
KSSHF1 2444# 2452
KSSHF3 2448 2464#
KSSHF5 2508#
KSSHUF 2054 2440#
KSXX 2468 2476 2479#
KSXX1 2487 2490#
KSXX2 2495 2498#
LDA10 1210 1237#
LDACH1 1215 1221#
LDACH2 1228#
LDACHR 1214# 1228 1241 1256 1275 1404
LDADR 1340 1354 1411#
LDAEOF 1218 1232#
LDATA 1357 1412#
LDATAE 1267 1330 1413#
LDCMA 1285 1317#
LDCMNT 1244 1401#
LDCNT 1265 1266 1269 1327 1338 1342 1410#
LDCNV 1273# 1318
LDCNV1 1275# 1279 1297 1305 1311
LDCNV2 1310# 1315
LDCNV3 1288 1313#
LDDONE 1355 1394# SEQ 0187
LDEOL 1282 1322#
LDOCTF 1238# 1238 1263 1287 1324
LDPROC 1238# 1349 1390 1402
LDTBLK 1246# 1246 1250 1353 1361 1370 1384 1387
LDTEN 1325 1338#
LDTEN1 1345 1353#
LDTEN2 1369# 1389
LDTENZ 1349#
LDZBLK 1239# 1239 1254 1344
LENGTH 742# 742 755
LERR3 1253 1416#
LERR4 1262 1419#
LERR5 1334 1422#
LFP 4623#
LOAD 289# 5551
LOOPER 221#
LSTINI 1680 3745#
LSTINO 3746 3773#
LSTNAM 3757 3759 3762 3765 3767 3779#
LSTNM 3754 3777#
LSTNUM 3825 3831 3839 3844 3911 3914# 3922 3987 3991 3999 4004
LSTOCT 3859 3863 3921#
LSTSRT 3749# 3749
LSTST1 3925# 3927
LSTSTR 3828 3849 3924# 3968 3974 4002
LUUO 247#
LUUO1 4269
LUUO10 4276
LUUO11 4277
LUUO12 4278
LUUO13 4279
LUUO14 4280
LUUO15 4281
LUUO16 4282
LUUO17 4283
LUUO2 4270
LUUO20 4284
LUUO21 4285
LUUO22 4286
LUUO23 4287
LUUO24 4288
LUUO25 4289
LUUO26 4290
LUUO27 4291
LUUO3 4271
LUUO30 4292
LUUO31 4293
LUUO32 4294
LUUO33 4295
LUUO34 4296
LUUO35 4297
LUUO36 4298
LUUO37 4299 SEQ 0188
LUUO4 4272
LUUO5 4273
LUUO6 4274
LUUO7 4275
LUUOI 248#
MARKPT 2850#
MCNVER 5# 11 16
MEMMAP 182 186 188 4111 4209 5535
MICCNV 346 1643#
MICLP 1662# 1693 1703 1724 1729 1763 2044 2982 2991
MICNLS 452 467#
MICROF 310# 310 345 450 467 3441 3466
MINUS 4614#
MNOLST 311# 311 468 1770 1775 1780 1785 1793 1804 1808 1812 1818 1823 1828
1832 1840 1856 1859 1867 1921 1975 2145 3745 3782
MODDVC 205 4209 5007
MONCTL 291 362# 1189 4142 4163 4196 4347 4658 4896
MONFLG 363# 4079
MPVU 270#
MTIT1 1668 1692#
MTIT2 1698 1702 1705#
MTIT3 1709 1715 1722#
MTITF 1657# 1657 1692 1705
MTITS 1658 1706 3502 3884 3885 3933 3934 4072#
NOERRP 315# 315 456 2973 2992
NOPNT 217# 3773 4695 4851
NXMU 271#
OBF 693 694# 985 987
OCHAN 55#
ONCEF 299# 299 301
OPTIME 4336# 4336 4370
OPTION 408 432#
OUT 54# 661 668 682 962 964 966 991
OUTBLK 659 661 691#
OUTCNT 313# 313 976 990
OUTNAM 675 678 680 704# 714 720 1198 1204 1430 1436 1645 1651 3033 3039
3185 3191 3285 3291 3419 3427
OUTNM 682 702#
P 128 129 130 131 231# 418 889 1229 3541 3545 3622 3705 3720 4098
4100 4227 4235 4259
P1 73# 1469 1471 1472 1476 1477 1478 3328 3330 3331 3336 3337 3338 3362
3364 3365 3370
P2 74# 1472 1491 3331 3351 3365 3382
PAGCNT 3867# 3867 3909
PAGHDR 1932 2318 2682 3782# 3868
PAGNBR 3784 3909#
PALERS 223#
PAREA1 108# 5549
PAREA2 109# 5549
PAREA3 110# 367 5549
PAREA4 111# 368 5549
PAREA5 112# 5549
PAREA6 113# 5549 SEQ 0189
PARU 272#
PATCH 5542#
PB.CRA 2491 2848#
PB.CRM 2499 2849#
PCADR 2174 2202 2301# 2538
PDADR 1771 1819 1949#
PDISF 4641# 4641 4666# 4666 4668
PDLOVU 269#
PERIOD 4174 4608#
PGMEND 91# 5549
PGMNAM 374# 4165
PI 4083
PLIST 4098 5536# 5536
PLISTE 5536 5538# 5549
PLISTS 5537# 5549
PLUS 4617#
PNTENB 4647 4692# 4692 4845
PNTEXT 368# 4928
PNTFLG 4644# 4644 4683 4689 4761
PNTINH 4643# 4643
PNTLPT 218# 3768 4417 4426 4887
PNTNAM 367# 3748 4930
PNTSPC 1949 1952 2301 2304 2540 2565 2588 2599 4167 4169 4181 4645# 4645 4735
4749
POINTA 800# 800 816 818 907 910
POINTX 314# 314 817# 817 908 909 915 922
POWER 251#
PRGINH 284 5549
PRINT 88# 143 191 4102 4590 5477 5510 5549
PSHLST 93# 127 230 4097 4151 4226 4234 4238 4256 5535 5537 5549
PTITLE 3817 3933#
PTRTAB 1531 1535#
PUT 130# 919 926 936 945 950 955 1029#
PUT1 985# 992 996 999 1001 1008 1010 1049 1367 1380 1396 1550 1552 1602
2511 2516 2520 3135 3137 3266 3276 3278 3417 3425 3456 3505 3519 3528
3530 3547 3557 3565 3576 3578 3580
PUT11 1557 1563 1574 1582 1586#
PUT11X 1593# 1603
PUT8SP 3098 3124 3129 3134#
PUTASP 912 940 1004#
PUTBF 986 990#
PUTCMA 920 927 946 951 995# 1559 1565 1575
PUTCRF 937 956 998# 1583 3485 3568
PUTCSP 2084 2089 2164 2352# 3403
PUTDSP 1960 2349# 3407
PUTDX 3220 3245 3253 3273#
PUTESP 1493 1545 1549#
PUTON1 1115 1135#
PUTON2 1117 1133#
PUTON3 1119 1131#
PUTON4 1121 1129#
PUTON5 1123 1127#
PUTON6 1125# SEQ 0190
PUTONC 1113# 1113 1126 1128 1130 1132 1134 1135 1136 1140
PUTONE 1040 1112#
PUTRTB 825 852#
PUTS1 1062 1073#
PUTS11 1016# 1591
PUTS2 1060 1071#
PUTS3 1058 1069#
PUTS4 1056 1067#
PUTS5 1054 1065#
PUTSUP 1031 1053#
PUTTSP 828 848 1005 1007# 1014 2350 2353
PUTX 1033# 1050
PUTX1 1049# 1103 1142
PUTZR0 1037 1078#
PUTZR1 1080 1097#
PUTZR2 1082 1095#
PUTZR3 1084 1093#
PUTZR4 1086 1091#
PUTZR5 1087 1089#
PUTZRC 1078# 1078 1090 1092 1094 1096 1097 1098 1101
PUTZSP 793 1013# 2063
QUEST 4629# 4898
REENTR 370# 2964 4656
RETURN 364# 4146 4200
RIMTB 351 712#
RIMTB1 754#
RIMTB2 799# 868
RIMTB3 804# 832 938
RIMTB4 805 866#
RIMTB5 821# 827
RIMTB6 821 828#
RIMTB7 837# 867 871
RIMZ1 774 780 786 791#
RINP 726 822 866 929 1217 1523 3164 3230 3257 3692 3711#
RINP1 3712 3714 3719#
RMS1 735 740 745 878#
RMS2 876# 885
RSQ 56# 2871 2872 2873 2880 2883 2898 2918
RSQBF 2905 2906# 2914 2916
RSQBLK 2878 2880 2903#
RSQINI 2855 2877#
RSQNAM 2886 2888 2891 2894 2896 2910#
RSQNM 2898 2908#
RSQPUT 2865 2914#
RSQSHF 2459 2855# 2869
RSTART 214#
RTP 4625#
SADR1 96# 5549
SADR10 105# 5549
SADR11 106# 5549
SADR2 97# 5549
SADR3 98# 5549
SADR4 99# 5549 SEQ 0191
SADR5 100# 5549
SADR6 101# 5549
SADR7 102# 5549
SADR8 103# 5549
SADR9 104# 5549
SAVCNV 349 1196#
SAVFLG 317# 317 348 444 657
SAVT1 1956# 1956 1964
SAVT2 1957# 1957 1965
SAVT3 1958# 1958 1966
SETIOW 819 895#
SIXAC1 3799# 3799 3808
SIXIN 194 4590
SIXOUT 197 4590 5484
SIXPN1 3803# 3807
SIXPNT 3787 3793 3799#
SIXSTR 3420 3421 3428 3429 3966 3967 3972 3973 4065#
SLASH 4631#
SLASHF 392# 392 407 429 457
SLASHX 402 429#
SPACE 4251 4257 4610#
SRTBLK 1468 1540#
SRTKMC 3323 3394#
START 290#
STRLIN 3875 3890 4015#
SUPA10 304# 304 442 813 837
SUPTB3 814 907#
SUPTB5 926# 932
SUPTB6 928 934#
SUPTB7 838 940#
SVBPNT 3851# 3851 3910
SVJBFF 665# 665 967
SWTEXR 296 365# 371 1982 2461 3769 3774 4205
T1 42# 733 738 743 754 756 760 761 762 763 764 765 766 767
768 769 770 771 775 778 781 784 787 790 804 807 808 809
810 818 821 876 877 878 887 888 910 928 1461 1463 1467 1474
1475 1482 1484 1496 1497 1505 1506 1515 1516 1517 1541 1542 1568 1569
1570 1667 1708 1709 1710 1713 1714 1715 1716 1718 1721 1722 1723 1741
1755 1756 1916 1918 1956 1964 1997 2036 2037 2115 2117 3316 3318 3322
3325 3333 3334 3335 3342 3344 3355 3356 3367 3368 3369 3374 3376 3386
3387 3395 3396 3594 3597 3600 3611 3613 3615 3617 3618 3620 3621 3633
3634 3635 3640 3652 3653 3654 3659 3675 3677 3678 3679 3680 3694 3695
3696 3697 3699 3700 3701 3703 3704 3840 3841 3915 3916 3917 3918 3925
3926 3927 3936 3943 3969 3970 3988 3989
T2 43# 729 731 755 758 770 773 778 779 784 785 790 791 809
811 879 880 883 884 1567 1572 1576 1708 1714 1759 1957 1965 2040
2117 2119 3421 3429 3434 3479 3502 3503 3553 3554 3566 3594 3633 3652
3668 3669 3670 3675 3678 3679 3680 3681 3827 3848 3860 3861 3924 3926
3933 3935 3939 3967 3973 4001
T3 44# 730 731 734 739 744 880 884 886 887 1669 1670 1672 1674
1676 1696 1697 1700 1701 1706 1713 1718 1721 1723 1732 1737 1746 1749
1750 1752 1761 1767 1788 1789 1792 1796 1799 1835 1836 1839 1843 1846
1898 1899 1900 1911 1912 1913 1923 1925 1958 1966 1989 1991 1992 1993 SEQ 0192
2001 2002 2005 2006 2009 2014 2015 2018 2019 2022 2027 2028 2042 2047
2048 2051 2470 2471 2481 2484 3592 3593 3598 3632 3637 3639 3640 3651
3656 3658 3659 3671 3674
T4 45# 876 882 883 2129 2131 2133 2135 2137 2139 2143 2161 2471 2472
3592 3600
TAB 1880 2191 2199 2552 2562 4612#
TDOT 400 425#
TEND 3940 3946#
TIME 3770 3813#
TIME1 3853#
TLINE 3886 3935 4007#
TLOOP 3939# 3944
TOGGLE 172 174 4108 4203 4313
TOTALS 215#
TSXBX 398 418#
TTCNT 3878 3937# 3937 3941
TTSXB 393# 427
TTSXB1 395# 416 430 458
TXTINH 226#
TYPIN 89# 133 4105 4313 5549
USER 355 463 4076# 4076 4078 4080 4081 4087 4138 4194 4345 4383 4414 4474
4819 4853
USERF 240# 4077
USRASB 92# 191 4822 4855 4880 4882 5510 5549
USRCRF 4827 4859# 4859
USRLFF 4831 4857# 4857
UUODIS 4223 4268# 5508
UUOEXT 4237#
UUORTN 4216 4227 4233 4240 4305 5506#
UUOS 90# 4108 4209 5505 5549
UUOSKP 4233#
XFERWD 725# 725 737 754 840 843 869 942 947
YEAR 3830# 3830 3899
ZZ.. 2737# 2737 2738 2738# 2739 2739# 2740 2740# 2741 2741# 2742 2742# 2743 2743#
2744 2744# 2745 2745# 2746 2746# 2747 2747# 2748 2748# 2749 2749# 2750 2750#
2751 2751# 2752 2752# 2753 2753# 2754 2754# 2755 2755# 2756 2756# 2757 2757#
2758 2758# 2759 2759# 2760 2760# 2761 2761# 2763# 2763 2764 2764# 2765 2765#
2766 2766# 2767 2767# 2770# 2770 2771 2771# 2772 2772# 2773 2773# 2774 2774#
2775 2775# 2776 2776# 2777 2777# 2778# 2778 2779 2779# 2780 2780# 2781 2781#
2782 2782# 2783 2783# 2789# 2789 2790 2790# 2791 2791# 2792 2792# 2793 2793#
2794 2794# 2795 2795# 2796 2796# 2797 2797# 2798 2798# 2799 2799# 2800 2800#
2801 2801# 2802 2802# 2803 2803# 2804 2804# 2805 2805# 2806 2806# 2807 2807#
2808# 2808 2809 2809# 2810 2810# 2829# 2829 2830 2830# 2831 2831# 2832 2832#
2833 2833# 2834 2834# 2835 2835# 2836 2836# 2837 2837# 2838 2838# 2839 2839#
2840 2840# 2841 2841# 2842 2842# 2843 2843# 2844 2844# 2845 2845# 2846 2846#
2847 2847#
$ACA0 4075# 4075 4113 5549
$ACB0 4116# 4116 4125 4304 4308 4334 4337 4638# 4638 4659 4661 4662 5549
$ACPN0 4162# 4162 4164 4182 4663 5549
$ASCP1 4776# 4786 5549
$ASCP2 4778# 4782 5549
$ASCPN 4680 4714 4715 4775# 5549
$CARCT 4839# 4839 4846 4848 4890 5549 SEQ 0193
$CHRIN 4411# 4411 4421 4428
$CHRPN 4723 4767# 5549
$CNVD 4502# 4502 4563 4570 5549
$CNVX 4511 4561# 5549
$CNVX1 4529 4568# 5549
$CNVX2 4571 4580# 5549
$CPUTP 4095 4116# 5549
$DCCMP 4801# 5549
$DCSPS 4813# 5549
$DECP1 4806# 4812 4813 5549
$DECPN 4717 4792# 5549
$DECSP 4719 4791# 5549
$DEVCH 279# 4922 4936 4940 4941 4945 4965 4975 4976 4982 5549
$DRPDV 192 4972#
$DVCH1 280# 5549
$DVOFF 4640# 4640 4903 4943 4973 4983
$DVTTY 4916# 4916 4944 4948
$ERH0 4129# 4129 4137 4147 5549
$ERHL1 4129# 5476 5549
$ERHLT 125 4134 4141 4143 4148 5475#
$FATAL 124 4191 5473#
$FATL0 4186# 4186 5549
$FATL1 4186# 5474 5549
$HEAR 4346 4373 4382# 5549
$HEAR2 4418 4421# 4427 4430 5549
$HEAR3 4413 4425# 5549
$INTD1 4939 4958# 5549
$INTD2 3753 3755 4940# 4969 5549
$INTDF 4639# 4639 4958 4964 5549
$INTDV 3751 4904 4926# 5549
$LDSPS 4804 4811# 5549
$NEGF 4501# 4501 4533 4558 5549
$NEGX 4509 4556# 5549
$NOYES 136 4442#
$OBUF 4918 4920 4938 4967 5512# 5549
$OERR1 4968 4994# 5549
$OERR2 4942 4998# 5549
$ONETM 4112 4660# 4660
$OPTLK 134 4368#
$OUTER 4986# 4996 5000 5549
$OUTEX 4929 5516# 5549
$OUTNM 4931 4941 5514# 5549
$PAC17 4792# 4792 4795 5549
$PACA0 4684# 4684 4690 4697 4707 4755 5549
$PACA1 4669 4702# 4702 4756 5549
$PACA2 4670 4703# 4703 4757 5549
$PACA3 4671 4704# 4704 4758 5549
$PACA4 4672 4705# 4705 4759 5549
$PACA5 4673 4706# 4706 4760 5549
$PACB0 4817# 4817 4861 5549
$PACC0 4915# 4915 4921 5549
$PACC4 4885# 4885 4894 4910 5549
$PACD0 4926# 4926 4956 5549 SEQ 0194
$PACE0 4972# 4972 4974 4984 5549
$PDP6 4120 4124# 5549
$PGMIN 123 4075#
$PLST 4793 5531# 5531 5549
$PLSTE 5531 5533# 5549
$PLSTS 5532# 5549
$PNT 4708# 4708 4739# 4739 4743 4748 4774# 4774 4784 4791 4811 5549
$PNTI1 4727# 4750 5549
$PNTI2 4730# 4733 4744 5549
$PNTI3 4721 4746# 5549
$PNTI4 4740 4754# 4770 4780 4785 4796 5549
$PNTIA 4688 4702# 5549
$PNTIB 4666# 4693 5549
$PNTIF 4683# 5483 5549
$PNTIN 4103 4638# 5549
$PNTIT 4689# 5481 5549
$PNTIX 4656# 5549
$PNTNM 170 4162# 4664
$PNTSV 4734# 4734 4741 5549
$PNTTY 4674 4687# 4687 4691 4754 4849 4909 5549
$PNTYC 4818# 4818 5549
$POINT 4775# 4775 4777 4783 5549
$PRINT 117 144 146 148 150 152 154 156 158 160 162 164 166 168
4686 4709 4762 5480#
$PRNTF 118 145 147 149 151 153 155 157 159 161 163 165 167 169
4685 5482#
$PRNTX 4667 4698 4761# 5549
$PSHER 4099 4154#
$PTINH 4642# 4642 4841 4844
$PTNXT 4920# 4923 5549
$PUTBF 4917 4919 4922# 5549
$PUTCR 4905 4915# 5549
$RADIX 4794 4798# 4805 5549
$SACA0 4204# 4204 4207 5549
$SVCSW 4092# 4092 5549
$SVPSP 4168# 4168 4180 5549
$SVUPC 4217# 4217 4253
$SVUUO 4219# 4219 4249
$SWFLG 4094# 4094 5549
$SWTCH 175 4204#
$TACA0 4343 4348 4350 4382# 4382 4422 4423 5549
$TACB0 4368# 4368 4375 4378 5549
$TACB4 4369# 4369 4377 5549
$TACC0 4442# 4442 4445 4468 4472 5549
$TACC1 4447# 4447 4471 5549
$TACC2 4448# 4448 4469 5549
$TACD0 4487# 4487 4490 4493 4536 4537 4543 5549
$TACD1 4495# 4495 4535 4542 5549
$TACD2 4496# 4496 4531 4540 5549
$TACD3 4497# 4497 4530 4539 5549
$TALT0 4355# 4355 4363 4364 5549
$TALT1 4357 4360 4363# 5549
$TALTM 141 4355# SEQ 0195
$TOUT 4732 4738 4769 4781 4808 4815 4817# 5549
$TOUT2 4834 4856 4885# 5549
$TOUT3 4888 4903# 5549
$TOUT4 4892 4896# 5549
$TOUT5 4893# 4897 4899 5549
$TOUT6 4890# 4911 5549
$TOUTA 4826 4830 4832 4861# 5549
$TOUTB 4820 4838# 5549
$TOUTC 4854 4878# 5549
$TPCK 4517 4547# 5549
$TPCNV 139 4487#
$TPDEC 138 4490#
$TPERR 4507 4518 4527 4539# 4557 4562 4573 5549
$TPEX1 4530# 4578 4587 5549
$TPEXT 4513 4515 4526# 5549
$TPMUL 4520 4550# 5549
$TPNBR 4526 4553# 5549
$TPOCT 137 4493#
$TTCHR 293 4349 4404# 4404 4405
$TTLK 140 4343#
$TTLK1 4349# 5549
$TTUSR 294 4351 4384 4400 4404# 5549
$TWCNT 4376# 4376
$TYOU1 4879# 5479 5549
$TYOUT 171 5478#
$TYPIN 4106 4334# 5549
$TYPLP 4506# 4523 4559 4564 5549
$TYPNB 4500# 4500 4541
$UOAC0 4215# 4215 4225 5549
$UOREC 4212# 4212 4214 4228 4237 4307
$UORTN 4212# 5507 5549
$UORTX 4264#
$UPDTF 4927# 4927 5549
$USRFC 4825# 4860 5549
$USRFL 4829# 4858 5549
$UUOER 4213 4222 4243# 4268 4269 4270 4271 4272 4273 4274 4275 4276 4277 4278
4279 4280 4281 4282 4283 4284 4285 4286 4287 4288 4289 4290 4291 4292
4293 4294 4295 4296 4297 4298 4299
$UUOGO 4224 4229 5508# 5549
$UUOIN 4109 4304# 5549
$YESNO 135 4445#
$YN1 4450# 4478 5549
$YN2 4453 4461 4469# 5549
$YN3 4457 4467 4474# 5549
$YN4 4463 4465 4480# 5549
CLRBFI 356 464 4475
CORE 3728 3731 SEQ 0196
CRMBIT 2716# 2737 2738 2739 2740 2741 2742 2743 2744 2745 2746 2747 2748 2749
2750 2751 2752 2753 2754 2755 2756 2757 2758 2759 2760 2763 2764 2765
2766 2770 2771 2772 2773 2774 2775 2776 2778 2779 2780 2781 2782 2783
2784 2785 2786 2787 2788 2789 2790 2791 2792 2793 2794 2795 2796 2797
2798 2799 2800 2801 2802 2803 2804 2805 2806 2808 2809 2811 2812 2813
2814 2815 2816 2817 2818 2819 2829 2830 2831 2832 2833 2834 2835 2836
2837 2838 2839 2840 2841 2842 2843 2844 2845 2846 2848 2849 2850
CRMRNG 2729# 2737 2749 2758 2763 2770 2774 2778 2780 2789 2792 2795 2798 2801
2804 2808 2829 2835
CRMUNU 2714# 2761 2762 2768 2769 2777 2807 2820 2821 2822 2823 2824 2825 2826
2827 2828
DATE 3822
DEVCHR 4946
DROPDV 192# 370 1980 2457 4889
ERRHLT 125#
EXIT 980 1193 4140 4195 4991
FATAL 124# 4158 4265 4878 4879
GET 131# 763 769 899 3996
GO 128# 324 452 723 726 735 740 745 749 793 795 819 822 825
828 830 848 849 866 912 919 920 926 927 929 936 937 940
945 946 950 951 955 956 961 996 999 1001 1008 1010 1031 1049
1207 1217 1241 1242 1253 1256 1257 1262 1275 1276 1334 1367 1380 1396
1401 1404 1439 1441 1444 1455 1460 1466 1486 1493 1494 1501 1503 1510
1513 1523 1540 1545 1546 1550 1552 1557 1559 1563 1565 1574 1575 1582
1583 1591 1602 1653 1660 1662 1666 1680 1688 1695 1699 1731 1740 1744
1748 1754 1760 1768 1771 1819 1866 1896 1902 1910 1926 1932 1960 1962
1969 1973 1988 1996 2000 2004 2008 2013 2017 2021 2026 2031 2035 2041
2046 2050 2063 2065 2076 2084 2085 2089 2090 2099 2103 2126 2146 2156
2164 2166 2172 2174 2202 2310 2318 2448 2459 2506 2511 2516 2520 2523
2536 2538 2674 2682 2855 2865 3042 3044 3048 3053 3065 3074 3098 3100
3111 3124 3125 3129 3130 3135 3137 3143 3149 3164 3195 3197 3220 3222
3230 3245 3247 3253 3254 3257 3263 3266 3269 3276 3278 3294 3296 3299
3310 3315 3321 3346 3353 3360 3378 3384 3391 3394 3399 3403 3404 3407
3408 3417 3422 3425 3430 3432 3435 3437 3454 3456 3458 3464 3476 3480
3483 3485 3494 3505 3519 3528 3530 3543 3547 3557 3565 3567 3568 3576
3578 3580 3595 3672 3692 3770 3784 3787 3793 3817 3825 3828 3831 3839
3844 3849 3859 3863 3865 3868 3911 3968 3974 3987 3991 3999 4002 4004
INCHRS 4349
INCHRW 4404 4415
INCHWL 293
MSTIME 3833
NAME 8# 11
OUTCHR 4893
OUTSTR 3006 3008 3010 3012 3014 3016 4898 4959 4977 4986 4994 4998
PGMINT 123# 292
PNT1 150# 1776 1781 1786 1824 1829 1833 2208 2229 2234 2239 2256 2261 2265
2273 2295 2568 2577 2591 2594 2597 2619 2622 2628 2634 2640 2646 2652
2658 2664 2667
PNT1F 151#
PNT2 152# 2189 2214 2278 2285 2292 2604 2610 2616
PNT2F 153#
PNT3 154# 1951 2251 2268 2580 4173 4177
PNT3F 155# SEQ 0197
PNT4 117# 1794 1841 2205 2223 2303 2571 2586
PNT4F 118#
PNT5 156#
PNT5F 157#
PNT6 158# 2177 2179 2181 2183 2185 2574
PNT6F 159# 4136 4193 4261
PNTA 144# 1877 1881 2192 2200 2298 2553 2563 2601 2607 2613 2670 3790 3796
3872 3889 3894 4175 4179 4420
PNTADF 161#
PNTADR 160# 2550
PNTAF 145# 4252 4258 4263 4477
PNTAL 146# 300 322 354 462 971 975 979 1805 1813 1857 1884 1887 1890
1928 1954 2152 2313 2677 2984 2986 2988 2990 3876 3887 3891 3898 3906
4166 4171
PNTALF 147# 1190 1192 2957 2959 2961 2963 2975 2977 2979 2981 3513 4133 4157
4190 4248 4451
PNTCHF 149#
PNTCHR 148# 1931 1978 2187 2194 2196 2232 2237 2242 2254 2259 2263 2271 2276
2281 2283 2288 2290 2306 2317 2455 2555 2557 2625 2631 2637 2643 2649
2655 2661 2681 3806 3881 3902 3904 4429
PNTDCF 167#
PNTDEC 166# 973 977 1809 1860 2198 2560
PNTDS 168#
PNTDSF 169#
PNTHW 164#
PNTHWF 165# 4250 4255
PNTMGN 180#
PNTNM 170# 4130 4187 4243
PNTOCT 162# 2543 2546
PNTOTF 163#
PUT 130 760 764 896 3983
RTN 129# 411 414 423 459 469 684 862 881 890 904 988 997 1002
1011 1020 1026 1051 1063 1075 1230 1232 1408 1507 1518 1524 1553 1584
1589 1604 1868 1878 1919 1922 1924 1929 1933 1955 1967 2052 2094 2148
2153 2162 2168 2299 2307 2314 2319 2525 2671 2678 2683 2875 2901 2917
2993 3000 3004 3018 3138 3153 3158 3167 3279 3405 3409 3486 3531 3548
3569 3581 3596 3599 3619 3623 3636 3638 3655 3657 3682 3706 3717 3721
3736 3771 3775 3783 3797 3809 3907 3912 3919 3928 3946 4005 4239
S 27# 30 50 59 69 82 86 360 390 649 710 752 797 835
864 874 893 959 983 1426 1640 1726 1986 3029 3140 3162 3181 3281
3412 3414 3449 3451 3460 3462 3487 3489 3498 3500 3507 3509 3522 3524
3533 3535 3549 3551 3560 3562 3571 3573 3584 3590 3603 3609 3624 3630
3643 3649 3661 3665 3684 3690 3707 3709 3723 3725 3743 3811 3929 3931
3960 3962 4045 4047 4054 4056 4068 4070
SETUWP 3734
SWITCH 175# 4144 4198 4694
TTALTM 141#
TTICHR 134# 395 3514 4452 4460 4506
TTICNV 139#
TTIDEC 138#
TTINO 136#
TTIOCT 137#
TTIYES 135# SEQ 0198
TTLOOK 140# 4356
TTYOUT 171#