Trailing-Edge
-
PDP-10 Archives
-
BB-H311B-RM
-
rsx20f-swskit/listings/mbt.lis
There are no other files named mbt.lis in the archive.
.MAIN. MACRO M1110 17-SEP-79 09:03
TABLE OF CONTENTS
3- 1 ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
96- 16 DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
104- 316 DETERMINE MA20/MB20 MAKSED START ADDRESSES & LENGTHS
104- 343 MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
110- 624 DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 1
1 177777 CORDET==-1
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 3
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
.SBTTL ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
2
3 .NLIST CND,BEX
4 .LIST MC,MD,MEB
5 .ENABL AMA
6
8 .TITLE CORDET -- CORE MEMORY RESOURCE DETERMINATION OVERLAY
12
13 .REM %
14 THIS FILE CONTROLS THE ASSEMBLY OF THE 5 MEMORY BOOT OVERLAY MODULES.
15 WHICH ONE OF THE MODULES IS DETERMINED BY WHICH ONE OF 5 SYMBOLS IS DEFINED.
16 THE SYMBOLS ARE:
17
18 MBROOT, CORDET, MSSCTL, DBEOVL, OR FITCON.
19
20 THE SYMBOL SHOULD BE DEFINED IN THE ASSEMBLY CONTROL COMMAND USING THE /EQ:
21 SWITCH. ONE OTHER SYMBOL MAY BE DEFINED WITH THE EQUATE SWITCH: DEFINE "MBOKLG"
22 WHEN DOING AN R$$20F ASSEMBLY IN THE DIAGNOSTIC ENVIRONMENT. THIS SATISFIES
23 EXTERNAL REFERENCES BY EXPLCITLY DEFINING THOSE SYMBOLS.
24
25 THE OVERLAY STRUCTURE OF THE MEMORY BOOT IS SIMPLE: ONE ROOT MODULE,
26 MBROOT, WHICH LOADS ONE OF THE OTHER 4 MODULES UNDERNEATH IT AS NECESSARY. THE
27 TOTAL LENGTH OF OVERLAYS RESIDENT AT ANY ONE POINT IN TIME MUST BE LESS THAN
28 16000(OCTAL) BYTES, BUT IT IS PREFERABLE TO KEEP IT AROUND 14000 TO ALLOW FOR
29 EXPANSION. THE OVERLAY STRUCTURE IS SHOWN GRAPHICALLY BELOW:
30
31 MEMORY
32 16000
33 MAX
34 ! +-----------------------------------------------------------+
35 ! ! !
36 ! ! MBROOT (ROOT MODULE) !
37 ! ! !
38 ! +--------------+--------------+--------------+--------------+
39 ! ! ! ! ! !
40 ! ! CORDET ! MSSCTL ! DBEOVL ! FITCON !
41 V ! ! ! ! !
42 +--------------+--------------+--------------+--------------+
43
44 TIME --------->
45
46 %
47
48 000001 R$$20F=1 ; *****FORCE ASSEMBLY OF MEM BOOT IN FRONT-END MODE *****
49
50 ;-----DEFINE "CONMMR" TO AID IN MEMORY BOOT ERROR CHECKING. UNDEFINE IT
51 ; TO SAVE APPROXIMATELY 400(8) BYTES IN THE MEMORY BOOT ROOT MODULE. NOTE
52 ; THAT IF YOU UNDEFINE OR REDEFINE THIS THEN YOU MUST ALSO CHANGE THE POSITION
53 ; SUBROUTINE "MMRESP" IN THE FILE MBSUB.P11 SO THAT IT IS IN THE PROPER MODULE.
54 000001 CONMMR=1
55
56 ;-----LISTING CONTROL.
57 000001 LSTMB=1
58 000001 LSBRTN=1
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 4
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
60 ;-----SYMBOLS DEFINED TO GET RID OF UNDEFINED PROBLEMS. THESE SYMBOLS WOULD
61 ; NORMALLY COME FROM PRM11.P11.
62
63 000001 BIT0=1.
64 000002 BIT1=2.
65 000004 BIT2=4.
66 000010 BIT3=8.
67 000020 BIT4=16.
68 000040 BIT5=32.
69 000100 BIT6=64.
70 000200 BIT7=128.
71 000400 BIT8=256.
72 001000 BIT9=512.
73 002000 BIT10=1024.
74 004000 BIT11=2048.
75 010000 BIT12=4096.
76 020000 BIT13=8192.
77 040000 BIT14=16384.
78 100000 BIT15=32768.
79
80 001000 HALTLP= BIT9 ;EBOX IS IN HALT LOOP
81 004000 ERRSTP= BIT11 ;EBOX CLOCK STOPPED DUE TO ERROR
82
83 ;-----OTHER SYMBOLS DEFINED TO MAKE FLAGS GO AWAY.
84 .MACRO $DEF ;MAKE THE O FLAG GO AWAY ......
85 .ENDM
86
87 ;-----PUSH AND POP MACROS ARE GIVEN HERE JUST TO NEATEN UP THE LISTING SOME.
88
89 .MACRO PUSH A
90 .IRP B,<A>
91 MOV B,-(SP) ;PUSH B ON STACK
92 .ENDR
93 .ENDM
94
95 .MACRO POP A
96 .IRP B,<A>
97 MOV (SP)+,B ;POP STACK INTO B
98 .ENDR
99 .ENDM
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 8
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
246 ;-----THE FOLLOWING DEFINITIONS FORCE ASSEMBLY OF THE MEMORY BOOT SUBROUTINES
247 ; REQUIRED FOR THIS MODULE.
248
249 000001 $DMADET=1
250 000001 $MABDET=1
251 000001 $MABPAD=1
252 ; $CTFMTC=1 ;NOT BEING CALLED AT THE MOMENT
253 000001 $CONDET=1
254
255
261 ;-----THE FOLLOWING MEMORY BOOT LABELS ARE GLOBAL.
262
263 .GLOBL CONDET,DMADET,MABDET
264
265 ; .GLOBL CTFMTC ;NOT BEING CALLED AT THE MOMENT
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 95
REGISTER SAVE/RESTORE TRANSLATION MACROS
5
6 ;-----THIS SOURCE MODULE CONTAINS THE UPDATE FOR TCO "KLI 4.2094". THIS CHANGE
7 ; FIXED THE PROBLEM WHICH OCCURED WITH THE COMBINATION OF KL10 MODEL A, EXTERNAL
8 ; MEMORY (DMA20), AND A MICROCODE NOT HAVING THE SXCT INSTRUCTION. WITHOUT THIS
9 ; FIX THE MEMORY BOOT WOULD EITHER HANG OR SIZE EXTERNAL MEMORY INCORRECTLY.
10 ; ALSO INCLUDED ARE THE UPDATES FOR TCO "KLI 4.2430". THE BUG HERE OCCURED
11 ; UNDER CIRCUMSTANCES SIMILAR TO THE ABOVE. THE RESULT WAS THAT THE MEMORY BOOT
12 ; WOULD THINK THAT SXCT EXISTED WHEN IN FACT IT DID NOT.
13
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 96
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
16 .SBTTL DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
17
18 .REM %
19 SUBROUTINE DMADET DETERMINES THE BUS MODE OF EXTERNAL MEMORY AND WHAT
20 ADDRESSES IT IS RESPONDING TO.
21 %
22
23 ;-----FIRST SEE IF THIS CAN AND SHOULD BE DONE
24 000000 DMADET: CONDET ;MAKE SURE CONTR DETERMINATION IS DONE
000000 004737 002224' JSR PC,CONDET ;DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
25 000004 105737 000000G TSTB DMARD ;HAVE WE ALREADY DONE THIS?
26 000010 001007 BNE 1$ ;YES...DONT DO IT AGAIN
27 000012 004737 000000G JSR PC,INIDMA ;CLEAN OUT DMA20 SIZING DATA
28 000016 105737 000000G TSTB DMA20 ;ANY DMA20 PRESENT?
29 000022 003003 BGT DDCON ;IF YES GO CONTINUE SUBROUTINE
30 000024 105237 000000G INCB DMARD ;NO DMA20...MARK THIS SECTION AS DONE
31 000030 000207 1$: RTS PC ;ELSE NO X MEM...RETURN
32
33 .REM %
34 DDCON -- DETERMINE DMA20 (EXTERNAL MEMORY CONFIGURATION. THERE ARE 3
35 BASIC PARTS TO THIS TASK:
36 DETERMINE METHOD OF GENERATING 22-BIT (EXTENDED) ADDRESSES. FOR MODEL B
37 THIS IS NO PROBLEM; JUST SET FORCE EXTEND. FOR MODEL A TRY 22-BIT ADR EXAMINES.
38 FAILING THAT USE THE SXCT INSTRUCTION. MICROCODE HISTORY SAYS THAT ONE OR THE
39 OTHER WILL EXIST; BOTH ON SOME UCODE VERSIONS. CUSTOMER DEFINED MICROCODES
40 HAVING NEITHER WILL NOT WORK BEYOND 256K. THIS MAY CAUSE PROBLEMS.
41 READ 4 CONTIGUOUS WORDS EVERY 16K IN EACH BUS MODE (1,2,4) AND RECORD
42 THE NXMS WHICH OCCUR WHILE DOING THIS.
43 DETERMINE THE BEST BUS MODE FOR EACH BLOCK OF EXTERNAL MEMORY WHICH
44 RESPONDS DIFFERENTLY AND ALSO THE BEST BUS MODE FOR ALL OF X MEM.
45
46 THE REARRANGEMENT OF THIS SECTION CONSTITUTES TCO "KLI 4.2430". *****
47 %
48
49 ;-----INITIALIZE A FEW THINGS.
50 000032 DDCON: REGSAV ;SAVE REGS
000032 004737 000000G JSR PC,SAV.5 ; ** SAVE R1 - R5 ON THE STACK
51 000036 SM ;RESET MACHINE
000036 004737 000000G JSR PC,$KLMR ; ** MASTER RESET THE KL10
000042 012700 000001 MOV #STRCLK,R0 ; ** START CLOCK FUNCTION CODE TO R0
000046 004737 000000G JSR PC,$DDFXC ; ** START THE KL10 CLOCK
52 000052 012737 000004 000000G MOV #4,TSTCON ;SPECIFY DMA20 CONTR
53 000060 005004 CLR R4 ;SET EXT ADR METHOD TO DIRECT
54 000062 012737 000100 000000G MOV #100,XMAL ;ASSUME WE CAN ADR ALL 4 MEGAWORDS
55 000070 005737 000000G TST MODELB ;IS THIS A MODEL B MACHINE
56 000074 001152 BNE DDCONT ;YES...SKIP EXT ADR METHOD DETERMINATION
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 97
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
58
59 ;-----DETERMINE THE EXTENDED ADDRESSING METHOD TO USE FOR THIS MODEL A
60 ; MACHINE. TRY A 22-BIT ADR EXAMINE. IF IT WORKS USE EXAMINES, OTHERWISE TRY A
61 ; SXCT. IF THAT WORKS USE SXCT'S, OTHERWISE LIMIT ADDRESSING TO 18 BITS (256K)
62 ; & USE DIRECT ADDRESSING.
63 000076 LOADAC 174,4$ ;LOAD HELPFUL LITTLE PROGRAM
000076 004537 000106' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
000102 000174 .WORD 174 ;LOAD MASK
000104 000364' .WORD 4$ ;PDP11 MEM ADR(S)
000106 004737 000000G 64$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
000112 012605 MOV (SP)+,R5
64
65 000114 RUN AC2 ;RUN IT TO CLR THINGS
000114 004537 000122' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
000120 000002 .WORD AC2 ;STARTING ADR
000122 004737 000000G 65$: JSR PC,RUNPRG ;RUN PRGM 1 TIC USING GIVEN PC
000126 012605 MOV (SP)+,R5
66 000130 012700 000410' MOV #5$,R0 ;PT R0 TO A 22-BIT ADR
67 000134 EXAM ;TRY THE EXAMINE
000134 010146 MOV R1,-(SP) ; [4.2218] SAVE R1
000136 012701 000000G MOV #.WORK,R1 ; [4.2218] WORK SPACE
000142 004737 000000G JSR PC,$EXAMD ; ** EXECUTE THE KL10 EXAMINE
000146 012700 000000G MOV #.WORK,R0 ; [4.2218] PTR TO 36 BIT
000152 012601 MOV (SP)+,R1 ; [4.2218] RESTORE R1
68 000154 004537 000304' JSR R5,2$ ;DID IT WORK?
69 000160 000001 .WORD 1 ;EXAMINE FLAG
70
71 000162 RUN AC2 ;SET THE ERA AGAIN.
000162 004537 000170' JSR R5,66$ ;SAV R5, PT TO & SKIP ARG LIST
000166 000002 .WORD AC2 ;STARTING ADR
000170 004737 000000G 66$: JSR PC,RUNPRG ;RUN PRGM 1 TIC USING GIVEN PC
000174 012605 MOV (SP)+,R5
72 000176 012700 000415' MOV #6$,R0 ;PT TO SXCT
73 000202 EXCT ; & TRY IT
000202 004737 000000G JSR PC,$EXCT ; ** EXECUTE IT
74 000206 004537 000304' JSR R5,2$ ;DID IT WORK?
75 000212 177777 .WORD -1 ;SXCT FLAG
76
77 ;-----HERE IF NEITHER OF THE METHODS WORKS
78 000214 PFORCE ;SEND ERR MSG
79 000214 $PMSG 1$
000214 012700 000240' MOV #1$,R0 ; ** TEXT POINTER TO R0
000220 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
81 000224 PBELL
000224 004737 000000G JSR PC,$TTBEL ; ** PRINT A <BELL>
82 000230 PNORML
83 000230 012737 000004 000000G MOV #4,XMAL ;FORCE LIMIT OF SCAN TO BE 256K
84 000236 000471 BR DDCONT
85 000240 125 103 117 1$: .ASCIZ %UCODE ERR. CAN'T MAP X MEM > 256K\%
86 .EVEN
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 98
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
88
89 ;-----LITTLE SUBROUTINE TO SEE IF ADDRESSING METHOD WORKED. RETURN IF NOT, ELSE
90 ; POP A LEVEL, SET R4, AND GO TO DDCONT IF IT DID.
91 000304 012504 2$: MOV (R5)+,R4 ;INDICATE ADR METHOD TRIED
92 000306 103416 BCS 3$ ;BR IF ERR
93 000310 XX RDERA0 ;DO A RDERA & GET RESULT
000310 012700 000000G MOV #RDERA0,R0 ;PT R0 AT INSTR
000314 004737 000000G JSR PC,XX1 ;EXEC INSTR (ADDR IN R0) & EXAM AC0
94 000320 103411 BCS 3$ ;BR IF FAILED
95 000322 042737 177703 000002G BIC #177703,XXWD+2 ;ISOLATE ADR SECTION BITS
96 000330 022737 000054 000002G CMP #13*4,XXWD+2 ;ERA ADR SECTION 13 SET?
97 000336 001002 BNE 3$ ;BR IF NO.. DIDN'T GENERATE 22-BIT ADR
98 000340 POP R5 ;RESTORE R5, ADR METHOD OK
000340 012605 MOV (SP)+,R5
99 000342 000427 BR DDCONT
100 000344 005004 3$: CLR R4 ;INDICATE ADR'G MODE FAILURE
101 000346 SM ;RESET MACHINE
000346 004737 000000G JSR PC,$KLMR ; ** MASTER RESET THE KL10
000352 012700 000001 MOV #STRCLK,R0 ; ** START CLOCK FUNCTION CODE TO R0
000356 004737 000000G JSR PC,$DDFXC ; ** START THE KL10 CLOCK
102 000362 000205 RTS R5 ;TRY NEXT
103
104 ;-----THIS IS A QUICKY PROGRAM TO AID IN DETERMINING IF SXCT OR EXTENDED
105 ; ADDRESS EXAMINES WORK WITH THE PARTICULAR MICRO-CODE LOADED.
106 000364 BLK10 2
107 000364 4$: I10 MOVE,0,,20 ;2--RD LOC 20 TO CLR ERA
000364 020 000 000
000367 000 004
108 000371 IO10 CONO,APR,,27700 ;3--CLR APR AGAIN TO UNLOCK ERA
000371 300 057 000
000374 002 016
109 000376 I10 JRST,4,,4 ;4--WAIT FOR THE 11 TO DO ITS STUFF
000376 004 000 000
000401 142 005
110 000403 I10 MOVE,0,,0,6 ;5--USED BY SXCT
000403 000 000 030
000406 000 004
111 000410 5$: WD36 0000,1300,0020 ;6--ADR ABOVE 256K (SECTION 13)
000410 020 000 054
000413 000 000
112
113 000415 6$: I10 SXCT,,,5 ;USED TO SEE IF SXCT WORKS
000415 005 000 000
000420 060 002
114 000422 ENDBLK
115 .EVEN
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 99
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
117
118 ;-----THE EXTENDED ADDRESSING METHOD HAS BEEN DETERMINED. NOW LOAD THE
119 ; SCANNING PROGRAM AND MODIFY IT TO SUIT THE METHOD TO BE USED.
120 000422 DDCONT: RESET SBUS ;RESET MEMORY
000422 004537 000430' JSR R5,64$ ;SAV R5, PT TO & SKIP SBUS LIST
000426 100000 .WORD SBUS
000430 004737 000000G 64$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
000434 012605 MOV (SP)+,R5
121 000436 LOADAC 7776,2$ ;LOAD THE PROGRAM
000436 004537 000446' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
000442 007776 .WORD 7776 ;LOAD MASK
000444 000530' .WORD 2$ ;PDP11 MEM ADR(S)
000446 004737 000000G 65$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
000452 012605 MOV (SP)+,R5
122 000454 010437 000000G MOV R4,DDCADM ;TEST THE METHOD FLAG
123 000460 002461 BLT 6$ ;BR IF SXCT...DON'T MODIFY PROGRAM
124 000462 001411 BEQ 1$ ;BR IF DIRECT...PUT MOVE IN PLACE
125 000464 DPOST AC3,5$ ;ELSE EXAMINES...PUT HALT IN PLACE
000464 012700 000003 MOV #AC3,R0 ; ** ADDRESS TO R0
000470 010146 MOV R1,-(SP) ; ** SAVE R1
000472 012701 000617' MOV #5$,R1 ; ** 5$ POINTER TO R1
000476 004737 000000G JSR PC,$DPOST ; ** EXECUTE THE DEPOSIT
000502 012601 MOV (SP)+,R1 ; ** RESTORE R1
127 000504 000447 BR 6$
128 000506 1$: DPOST AC3,4$ ;HERE TO SUBSTITUTE MOVE FOR SXCT
000506 012700 000003 MOV #AC3,R0 ; ** ADDRESS TO R0
000512 010146 MOV R1,-(SP) ; ** SAVE R1
000514 012701 000612' MOV #4$,R1 ; ** 4$ POINTER TO R1
000520 004737 000000G JSR PC,$DPOST ; ** EXECUTE THE DEPOSIT
000524 012601 MOV (SP)+,R1 ; ** RESTORE R1
130 000526 000436 BR 6$
131
132 ;-----THIS AC PROGRAM IS AN AID IN MAPPING EXTERNAL MEMORY RESPONSE. ITS
133 ; FUNCTION IS TO TURN ON THE DMA20, AND THEN DO 4 READS AND RECORD THE NXM BIT
134 ; AFTER EACH READ. IT SHOULD BE NOTED THAT THE INSTRUCTION IN AC3 MAY BE
135 ; OVERLAID DEPENDING ON THE METHOD BEING USED TO DO EXTENDED ADDRESS READS.
136 000530 BLK10 1
137 000530 2$: IO10 SBDIAG,,,16 ;1--CLR DMA20, SET BUS MODE
000530 016 000 000
000533 005 016
138 000535 IO10 CONO,APR,,27700 ;2--CLR APR TO SEE IF WE CAN GET NXM
000535 300 057 000
000540 002 016
139 000542 I10 SXCT,,,13 ;3--DO THE MEMORY ACCESS
000542 013 000 000
000545 060 002
140 000547 I10 LSH,14,,1 ;4--SHIFT NXM WORD
000547 001 000 000
000552 026 005
141 000554 IO10 CONSZ,APR,,2000 ;5--SKIP IF NO NXM
000554 000 004 000
000557 003 016
142 000561 I10 IORI,14,,1 ;6--ELSE MARK NXM IN NXM WORD
000561 001 000 000
000564 356 010
143 000566 I10 ADDI,15,,1 ;7--GO TO NXT WD OF QUADWORD
000566 001 000 200
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 99-1
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
000571 316 005
144 000573 I10 TRNE,15,,3 ;10-SKIP IF QUADWORD DONE
000573 003 000 200
000576 026 014
145 000600 I10 JRST,,,2 ;11-ELSE GO DO NXT WD
000600 002 000 000
000603 140 005
146 000605 3$: I10 JRST,4,,1 ;12-HALT SO 11 CAN CNG SBDIAG WD OR EXAM
000605 001 000 000
000610 142 005
147 000612 4$: I10 MOVE,17,,0,15 ;13-INSTR TO ACCESS MEM
000612 000 000 264
000615 007 004
148 ;14-NXM WD GEND HERE
149 ;15-ADDRESS LOAD HERE BY 11
150 000617 ENDBLK ;16-SBDIAG WD LOADED HERE BY 11
151 ;17-SCRATCH
152
153 000617 5$: I10 JRST,4,,4 ;3--WAIT FOR THE 11 TO DO ITS STUFF
000617 004 000 000
000622 142 005
154 .EVEN
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 100
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
156
157 ;-----PROGRAM LOADED. NOW ACCESS 4 MEMORY WORDS EVERY 16K IN EACH OF THE
158 ; BUS MODES TO GET A MAP OF WHERE NXM RESPONSES CHANGE.
159 000624 6$: RESET SBUS ;RESET THE MEMORIES
000624 004537 000632' JSR R5,66$ ;SAV R5, PT TO & SKIP SBUS LIST
000630 100000 .WORD SBUS
000632 004737 000000G 66$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
000636 012605 MOV (SP)+,R5
161 000640 DFWRTT EXTWD,76 ;SET FORCE EXTENDED ADRG (NOP ON MOD A)
000640 012700 000076 MOV #76,R0 ; ** FUNCTION WRITE CODE TO R0
000644 010146 MOV R1,-(SP) ; ** SAVE R1
000646 012701 001541' MOV #EXTWD,R1 ; ** BUFFER POINTER TO R1
000652 004737 000000G JSR PC,$DDFWR ; ** EXECUTE THE FUNCTION WRITE
000656 012601 MOV (SP)+,R1 ; ** RESTORE R1
162 000660 DFXCTT STRCLK ;RESTART CLK
000660 012700 000001 MOV #STRCLK,R0 ; ** FUNCTION CODE TO R0
000664 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
167 000670 012701 001530' MOV #ADDR+2,R1 ;INI ADR PTR FOR EXAMINES
168 000674 005011 CLR (R1) ;NOW INI THE ADR
169 000676 012741 000020 MOV #20,-(R1)
170 000702 005037 000000G CLR D16KBN ;SET 16K BLK # TO 0
171 000706 012702 000000G MOV #DMA20T,R2 ;INI PTR TO DMA20 ADR/SIZ TABLE
172 000712 012703 007777 MOV #7777,R3 ;INI PREV NXM FLAGS TO TRUE NXM
173 000716 005046 CLR -(SP) ;.OR. OF IMPERFECT NXMS
174 000720 012704 000000G MOV #DMARMP,R4 ;RESPONSE MAP WD PTR
175 000724 012705 000001 MOV #1,R5 ;RESPONSE MAP BIT PTR
176 000730 EXECUTE 3$ ;SET UP FOR CONTINUES
000730 012700 000605' MOV #3$,R0 ;PT TO INSTR TO BE EXECUTED
000734 004737 000000G JSR PC,QXCT1 ;EXECUTE THE INSTR PTD TO BY R0
177 ;-----TOP OF 16K MEMORY BLOCK LOOP.
178 000740 7$: LOADAC ACC15,ADDR ;LOAD THE ADR WE WILL ACCESS
000740 004537 000750' JSR R5,67$ ;SAV R5, PT TO & SKIP ARG LIST
000744 020000 .WORD ACC15 ;LOAD MASK
000746 001526' .WORD ADDR ;PDP11 MEM ADR(S)
000750 004737 000000G 67$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
000754 012605 MOV (SP)+,R5
179 000756 CNTSD CDCODW ;CONTR # TO SBDIAG WD
000756 012700 001534' MOV #CDCODW,R0 ;PT TO SBDIAG WD
000762 004737 000000G JSR PC,CNTSD1 ;CONTR # TO SBDIAG WD (ADDR IN R0)
180 000766 012737 070200 001536' MOV #70200,CDCODW+2 ;INI SBDIAG WD TO SAY 4-BUS MODE
181 ;-----TOP OF BUS MODE LOOP.
182 000774 8$: LOADAC ACC16,CDCODW ;LOAD THE SBUS DIAG WD
000774 004537 001004' JSR R5,68$ ;SAV R5, PT TO & SKIP ARG LIST
001000 040000 .WORD ACC16 ;LOAD MASK
001002 001534' .WORD CDCODW ;PDP11 MEM ADR(S)
001004 004737 000000G 68$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
001010 012605 MOV (SP)+,R5
183 001012 CONTIN ;CONTINUE THE KL...WAIT FOR HALT
001012 004737 000000G JSR PC,CONTIN ;RUN & CONTINUE
184 001016 005737 000000G TST DDCADM ;USING EXAMS AS EXT ADRG METHOD?
185 001022 003417 BLE 10$ ;NO...GO DO NEXT BUS MODE
186 001024 010100 9$: MOV R1,R0 ;PT R0 AT PDP10 ADR WD ** TCO "KLI 4.2094" **
187 001026 EXAM ;ELSE DO THE EXAMINE
001026 010146 MOV R1,-(SP) ; [4.2218] SAVE R1
001030 012701 000000G MOV #.WORK,R1 ; [4.2218] WORK SPACE
001034 004737 000000G JSR PC,$EXAMD ; ** EXECUTE THE KL10 EXAMINE
001040 012700 000000G MOV #.WORK,R0 ; [4.2218] PTR TO 36 BIT
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 100-1
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
001044 012601 MOV (SP)+,R1 ; [4.2218] RESTORE R1
188 001046 CONTIN ;CONTINUE THE KL10
001046 004737 000000G JSR PC,CONTIN ;RUN & CONTINUE
189 001052 005211 INC (R1) ;PT TO THE NXT OF THE 4 WORDS
190 001054 032711 000003 BIT #3,(R1) ;HAVE WE EXAMINED ALL 4 WORDS?
191 001060 001361 BNE 9$ ;BR IF NO...KEEP GOING
192 001062 162737 010000 001536' 10$: SUB #10000,CDCODW+2 ;CALC NXT BUS MODE
193 001070 032737 030000 001536' BIT #30000,CDCODW+2 ;ALL 3 MODES DONE?
194 001076 001336 BNE 8$ ;BR IF NO
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 101
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
196
197 ;-----ALL THREE BUS MODES HAVE BEEN DONE FOR THIS 16K BLOCK NOW. GET THE
198 ; RESULTING NXM MASK AND UPDATE THE TABLES IF IT HAS CHANGED SINCE THE LAST 16K.
199 001100 EXAMT AC14,REAPWD ;GET THE WORD
001100 012700 000014 MOV #AC14,R0 ; ** ADDRESS POINTER TO R0
001104 010146 MOV R1,-(SP) ; ** SAVE R1
001106 012701 000000G MOV #REAPWD,R1 ; ** REAPWD BUFFER POINTER TO R1
001112 004737 000000G JSR PC,$EXAMT ; ** EXECUTE THE KL10 EXAMINE
001116 012601 MOV (SP)+,R1 ; ** RESTORE R1
201 001120 004737 000000G JSR PC,CHKED
202 001124 011000 MOV (R0),R0
203 001126 042700 170000 BIC #170000,R0 ;SHUT OFF THE JUNK
204 001132 020027 007777 CMP R0,#7777 ;ARE WE IN A NXM AREA?
205 001136 001401 BEQ 11$ ;YES
206 001140 050514 BIS R5,(R4) ;ELSE RECORD RESPONSE IN RESPONSE MAP
207 001142 020003 11$: CMP R0,R3 ;HAS THE NXM MASK CHANGED?
208 001144 001402 BEQ 12$ ;NO...JUST GO ON TO THE NXT 16K BLK
209 001146 004737 001450' JSR PC,23$ ;ELSE CALL ROUTINE WHICH RECORDS CHANGES
210 001152 005237 000000G 12$: INC D16KBN ;UPDATE BLOCK NUMBER
211 001156 062721 040000 ADD #40000,(R1)+ ;INC ADR BY 16K
212 001162 005511 ADC (R1)
213 001164 006305 ASL R5 ;UPDATE RESPNSE MAPPING POINTERS
214 001166 103002 BCC 13$
215 001170 006105 ROL R5
216 001172 005724 TST (R4)+
217 001174 033711 000000G 13$: BIT XMAL,(R1) ;E-O ALLOWED ADR SPACE (256K OR 4 MEG)?
218 001200 001003 BNE 14$ ;YES...FINISH UP THIS PHASE
219 001202 042741 000017 BIC #17,-(R1) ;ELSE FIX ADR CAUSE IT CHANGES FOR EXAM
220 001206 000654 BR 7$ ; & GO DO NXT 16K BLOCK
221 ;-----ALL 16K BLOCKS HAVE BEEN DONE. FINISH THE TABLES AND DO A CONSISTENCY
222 ; CHECK.
223 001210 012700 007777 14$: MOV #7777,R0 ;FOOL SUBRTN INTO THINKING IT GOT NXMS
224 001214 004737 001450' JSR PC,23$ ;FINISH UP TABLES
225 001220 006237 000000G ASR DMA2TS ;DIV TABLE SIZE BY 2
226 001224 103004 BCC 15$ ;BR IF WAS EVEN...ALL OK
227 001226 FATAL DTO ;SOMETHING WRONG IF HERE
001226 004737 000000G JSR PC,$FATAL ; ** FATAL "DTO" ERROR
001232 104 124 117 .ASCIZ %DTO%
228 ;-----ALL NXM INFO IS IN. FIGURE OUT THE OVERALL BUS MODE.
229 001236 012700 000003 15$: MOV #3,R0 ;INI BUS MODE NUMBER
230 001242 005001 CLR R1 ;IND BUS MODE NOT FND YET
231 001244 012602 MOV (SP)+,R2 ;GET DMA20 NXM MASK OFF STACK
232 001246 010237 000000G MOV R2,DMANXM ;SAVE IT FOR POSTERITY
233 001252 032702 007400 16$: BIT #7400,R2 ;ANY NXMS FOR THIS BUS MODE?
234 001256 001010 BNE 18$ ;YES.. DONT USE THIS BUS MOD
235 001260 005701 TST R1 ;HAS A HIGHEST BUS MODE BEEN FOUND?
236 001262 001001 BNE 17$ ;YES
237 001264 010001 MOV R0,R1 ;ELSE SET NEW HIGHEST BUS MODE
238 001266 120037 000000G 17$: CMPB R0,INTMOD ;IS THIS THE MODE REQUESTED?
239 001272 001002 BNE 18$ ;NO.. DON'T FORCE IT
240 001274 010001 MOV R0,R1 ;ELSE SET IT & EXIT LP
241 001276 000405 BR 19$
242 001300 18$: SL R2,4 ;SHIFT RESPONSE WD
001300 006302 ASL R2
001302 006302 ASL R2
001304 006302 ASL R2
001306 006302 ASL R2
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 101-1
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
243 001310 077020 SOB R0,16$ ;LOOP IF MORE, DROP THRU IF NO BUS MODE LEGAL
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 102
DETERMINE DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
245
246 ;-----CHECK FORCE BUS MODE FLAG. DO NOTHING IF SET, ELSE SAVE THE BUS MODE
247 ; IF IT IS KNOWN. IF NOT, ASK FOR IT.
248 001312 105737 000000G 19$: TSTB DMAFRC ;DMA20 BUS MODE FORCED BY EXPLICIT TYPE-IN?
249 001316 001041 BNE 22$ ;YES.. DO NOTHING
250 001320 110137 000000G MOVB R1,DMABM ;ELSE SAVE THE BUS MODE FOUND
251 001324 003036 BGT 22$ ;BR IF IT WAS GOOD
253 001326 PMSG <WARNING: CANNOT FIND A LEGAL DMA20 BUS MODE\>
001326 012700 001340' MOV #69$,R0 ; ** MESSAGE POINTER TO R0
001332 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001336 000427 BR 70$ ; ** BRANCH AROUND TEXT
001340 127 101 122 69$: .ASCIZ %WARNING: CANNOT FIND A LEGAL DMA20 BUS MODE\%
262 001416 105237 000000G 21$: INCB DMAFRC ;MARK BUS MODE FORCED
263 ;-----BUS MODE IS NOW KNOWN. CLEAR CONTROLLERS & EXIT.
264 001422 22$: RESET SBUS ;RESET EVERYTHING ON THE SBUS
001422 004537 001430' JSR R5,71$ ;SAV R5, PT TO & SKIP SBUS LIST
001426 100000 .WORD SBUS
001430 004737 000000G 71$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
001434 012605 MOV (SP)+,R5
265 001436 REGRST ;DONE...RESTORE REGS & EXIT
001436 004737 000000G JSR PC,RST.5 ; ** RESTORE R1 - R5 AND RETURN
266 001442 105237 000000G INCB DMARD ;MARK THIS SECTION DONE
267 001446 000207 RTS PC
268
269 ;-----SUBROUTINE TO UPDATE THE DMA20 RESPONSE TABLE
270 001450 032737 000001 000000G 23$: BIT #1,DMA2TS ;ON EVEN OR ODD WD OF TABLE?
271 001456 001410 BEQ 24$ ;EVEN...START NEW ENTRY
272 001460 005237 000000G INC DMA2TS ;ELSE FINISH OLD ENTRY
273 001464 013762 000000G 000002 MOV D16KBN,2(R2) ;CALC BLOCK LENGTH
274 001472 162212 SUB (R2)+,(R2)
275 001474 062237 000000G ADD (R2)+,DMASIZ ;ADD ENTRY SIZ TO TOTAL SIZ
276 001500 020027 007777 24$: CMP R0,#7777 ;WAS NEW RESP A TRUE NXM?
277 001504 001406 BEQ 25$ ;YES...DON'T MAKE NEW ENTRY IN TABLE
278 001506 050066 000002 BIS R0,2(SP) ;NXM IS INCOMPLETE...RECORD RESPONSE
279 001512 005237 000000G INC DMA2TS ;ESLE CREATE NEW ENTRY
280 001516 013712 000000G MOV D16KBN,(R2) ;SAVE START ADR OF NEW RESPONSE BLK
281 001522 010003 25$: MOV R0,R3 ;MAKE THE NEW RESP THE OLD RESP
282 001524 000207 RTS PC ;RETURN TO CALLER
283
284 ;-----DATA SECTIONS FOLLOW
285 001526 000000 000000 000000 ADDR: .WORD 0,0,0 ;ADDR WHERE CHANGE OCCURRED GOES HERE
286 001534 CDCODW: WD36 1160,4000,0000 ;DIAG FUNC 0, BITS 4-19 SET BY PROGRAM
001534 000 000 200
001537 160 002
287 001541 EXTWD: WD36 0000,0000,0400 ;WD FOR DFWR TO FORCE EXTENDED ADRG
001541 000 001 000
001544 000 000
288 .EVEN
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 104
DETERMINE MA20/MB20 MAKSED START ADDRESSES & LENGTHS
316 .SBTTL DETERMINE MA20/MB20 MAKSED START ADDRESSES & LENGTHS
317
318 .REM %
319 MABDET JUST CALLS MABPAD TWICE, ONCE FOR EACH POSSIBLE PAIR OF MA20 OR
320 MB20 CONTROLLERS. ALSO TRACKS INTERLOCK VARIABLES.
321 %
322
323 001546 MABDET: CONDET
001546 004737 002224' JSR PC,CONDET ;DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
324 001552 105737 000000G TSTB MABRD ;HAVE WE ALREADY DONE THIS?
325 001556 001015 BNE 1$ ;YES...DON'T DO IT AGAIN
326 001560 004737 000000G JSR PC,INIMAB ;RESET MA20/MB20 SIZING DATA
327 001564 005037 000000G CLR TSTCON ;FOR CONTR PAIR (0,1)
328 001570 MABPAD ;START ADR & SIZ
001570 004737 001614' JSR PC,MABPAD ;MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
329 001574 012737 000002 000000G MOV #2,TSTCON ;FOR CONTR PAIR (2,3)
330 001602 MABPAD
001602 004737 001614' JSR PC,MABPAD ;MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
337 001606 105237 000000G INCB MABRD ;MARK MA20/MB20 ST ADR & SIZ CALC DONE
338 001612 000207 1$: RTS PC
341
342
343 .SBTTL MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
344
345 .REM %
346 MABPAD IS THE ROUTINE WHICH MATCHES UP MA20/MB20 CONTROLLERS, EITHER
347 SINGALLY OR IN PAIRS, WITH THEIR AVAILABLE STORAGE MODULES AND THE RULES FOR
348 CONFIGURING THEM. THE OUTPUTS ARE THE FOLLOWING: MABSIZ IS THE "ROTATED-
349 CONTIGUOUS" SIZE FROM MABSA, THE START ADDRESS. THE ULTIMATE STARTING ADDRESS
350 (DETERMINED BY FITMEM) MUST EQUAL MABSA .AND. .NOT. MABADC. ALSO THE INTERLEAVE
351 (MABINT) IS DETERMINED.
352 %
353
354 001614 MABPAD: SAV.5
001614 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
355 001620 013705 000000G MOV TSTCON,R5 ;CONTR # TO R5
356 ;-----SET UP FOR CONTROLLER PAIR.
357 001624 016500 000000G MOV TYPNUM(R5),R0 ;IS PAIR MISSING COMPLETELY?
358 001630 001453 BEQ 3$ ;YES...ALL DONE
359 001632 005004 CLR R4 ;INI RULE TABLE INDEX
360 001634 032700 001002 BIT #1002,R0 ;IS EITHER CONTR AN MB20?
361 ; (IF ONE IS THEY BOTH SHOULD BE)
362 001640 001402 BEQ 1$ ;NO
363 001642 012704 000040 MOV #40,R4 ;ELSE SET MB20 BIT INTO NDX
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 105
MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
365 ;-----FIGURE OUT IF WE CAN HANDLE CONTRS AS A PAIR OR IF WE MUST DO THEM
366 ; EACH SEPARATELY.
367 001646 116502 000000G 1$: MOVB CONTI(R5),R2 ;GET EVEN CONTR SM LAYOUT
368 001652 116503 000001G MOVB CONTI+1(R5),R3 ;GET ODD CONTR SM LAYOUT
369 001656 116202 002204' MOVB ABSML(R2),R2 ;LEGALIZE EVEN CONTR SM LAYOUT
370 001662 116303 002204' MOVB ABSML(R3),R3 ;LEGALIZE ODD CONTR SM LAYOUT
371 001666 123727 000000G 000001 CMPB INTMOD,#1 ;1WAY INTRLV FORCED?
372 001674 001417 BEQ 2$ ;YES.. HANDLE CONTRS SEPARATELY
373 001676 120065 000001G CMPB R0,TYPNUM+1(R5) ;ARE CONTR TYPES THE SAME?
374 001702 001014 BNE 2$ ;NO...THEREFORE ASSUME ONE IS MISSING
375 001704 020203 CMP R2,R3 ;ARE LEGALIZED SM LAYOUTS THE SAME?
376 001706 001012 BNE 2$ ;NO...TREAT CONTROLLERS SEPARATELY
377 001710 052704 000020 BIS #20,R4 ;SET PAIR BIT INTO RULE INDEX
378 001714 050204 BIS R2,R4 ;LEGALIZED SM LAYOUT INTO RULE NDX
379 001716 132764 000040 002104' BITB #40,MABRUL(R4) ;IS PAIR PAIRABLE?
380 001724 001403 BEQ 2$ ;NO...TREAT SEPARATELY
381 ;-----HERE FOR HANDLING AS PAIR
382 001726 004737 001764' JSR PC,4$ ;DO IT FOR CONTR PAIR
383 001732 000412 BR 3$ ;EXIT
384 ;-----HERE TO HANDLE CONTROLLERS APART FROM EACH OTHER.
385 001734 042704 177737 2$: BIC #177737,R4 ;CLR ALL BUT MB20 BIT FROM NDX
386 001740 050204 BIS R2,R4 ;PUT SM LAYOUT INTO NDX
387 001742 004737 001764' JSR PC,4$ ;DO IT FOR A SINGLE CONTROLLER
388 001746 010302 MOV R3,R2 ;NOW FOR THE OTHER CONTROLLER
389 001750 005205 INC R5
390 001752 032705 000001 BIT #1,R5 ;HAVE WE DONE THE OTHER CONTROLER?
391 001756 001366 BNE 2$ ;NO...DO IT TOO
392 001760 3$: R5.PC ;EXIT
001760 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
394
395 ;-----LOCAL SUBROUTINE TO DO "IT". BREAK UP RULE BYTE INTO START ADDRESS,
396 ; ADR-DONT-CARE BITS, AND INTERLEAVE. ALSO CALC SIZE.
397 001764 116400 002104' 4$: MOVB MABRUL(R4),R0 ;GET & COPY RULE BYTE
398 001770 010001 MOV R0,R1
399 001772 042701 177760 BIC #-16.,R1 ;ISOLATE & SAVE START ADR
405 001776 110165 000000G 5$: MOVB R1,MABSA(R5)
406 002002 004737 000000G JSR PC,ASR0.4 ;POS ADC & INTRLV BITS
407 002006 010001 MOV R0,R1 ;ISO & SAV INTRLV BITS
408 002010 042701 177774 BIC #-4,R1
409 002014 105737 000000G TSTB INTMOD ;IS AN INTERLEAVE FORCED?
410 002020 001405 BEQ 6$ ;NO
411 002022 123701 000000G CMPB INTMOD,R1 ;CAN WE HANDLE IT?
412 002026 002002 BGE 6$ ;BR IF NOT OR IF SAME
413 002030 113701 000000G MOVB INTMOD,R1 ;ELSE REDUCE INTRLV
414 002034 110165 000000G 6$: MOVB R1,MABINT(R5)
415 002040 042700 000003 BIC #3,R0 ;ISO & SAV ADDR-DONT-CARE BITS
416 002044 052700 177760 BIS #-16.,R0 ; (DONT CARE ABOUT ADR 14-17 EITHER)
417 002050 110065 000000G MOVB R0,MABADC(R5)
418 002054 116200 000000G MOVB BITCNT(R2),R0 ;CALC ROTATED-CONTIG SIZE FROM SM LAYOUT
419 002060 005301 DEC R1 ;1-WAY INTRLV?
420 002062 003401 BLE 7$ ;YES...DONT DOUBLE SIZE
421 002064 006300 ASL R0
422 002066 032704 000040 7$: BIT #40,R4 ;MB20?
423 002072 001401 BEQ 8$ ;NO...DONT DOUBLE SIZE
424 002074 006300 ASL R0
425 002076 110065 000000G 8$: MOVB R0,MABSIZ(R5) ;SAV SIZE BYTE
431 002102 000207 9$: RTS PC
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 106
MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
433 .REM %
434 MA20 AND MB20 RULE TABLE. THIS IS ACCESSED AS BYTES USING TPSSSS AS
435 INDEX WHERE T IS 1 FOR MB20, P IS 1 FOR A PAIR OF IDENTICAL CONTROLLERS, AND
436 SSSS IS THE STORAGE MODULE CONFIGURATION AFTER BEING LEGALIZED. ADCM STANDS FOR
437 ADDRESS-DONT-CARE MASK (1=DONT CARE).
438 %
439
440 ;-----MACRO CREATES BYTE: MMIISSSS.
441 .MACRO RULE M,S,I
442 X=I
443 .IIF EQ,X-4,X=3
444 .BYTE ^B'M&14+X*16.+^B'S
445 .ENDM
446
447 002104 MABRUL:
448 ; ADCM ST ADR
449 ; 1122 1122 SM
450 ; 8901 8901 INT CONTR 3210
451 ; ---- ---- --- ----------- ----
452 002104 RULE 1100 0000 0 ;SINGLE MA20 0000
002104 300 .BYTE ^B1100&14+X*16.+^B0000
453 002105 RULE 1100 0000 1 ;SINGLE MA20 0001
002105 320 .BYTE ^B1100&14+X*16.+^B0000
454 002106 RULE 1100 0001 1 ;SINGLE MA20 0010
002106 321 .BYTE ^B1100&14+X*16.+^B0001
455 002107 RULE 1100 0000 1 ;SINGLE MA20 0011
002107 320 .BYTE ^B1100&14+X*16.+^B0000
456 002110 RULE 1100 0010 1 ;SINGLE MA20 0100
002110 322 .BYTE ^B1100&14+X*16.+^B0010
457 002111 RULE 1100 0000 1 ;SINGLE MA20 0101 NOTE 1
002111 320 .BYTE ^B1100&14+X*16.+^B0000
458 002112 RULE 1100 0001 1 ;SINGLE MA20 0110
002112 321 .BYTE ^B1100&14+X*16.+^B0001
459 002113 RULE 1100 0000 1 ;SINGLE MA20 0111
002113 320 .BYTE ^B1100&14+X*16.+^B0000
460 002114 RULE 1100 0011 1 ;SINGLE MA20 1000
002114 323 .BYTE ^B1100&14+X*16.+^B0011
461 002115 RULE 1000 0011 1 ;SINGLE MA20 1001 NOTE 2
002115 223 .BYTE ^B1000&14+X*16.+^B0011
462 002116 RULE 1100 0001 1 ;SINGLE MA20 1010 NOTE 1
002116 321 .BYTE ^B1100&14+X*16.+^B0001
463 002117 RULE 1000 0011 1 ;SINGLE MA20 1011 NOTE 2
002117 223 .BYTE ^B1000&14+X*16.+^B0011
464 002120 RULE 1100 0010 1 ;SINGLE MA20 1100
002120 322 .BYTE ^B1100&14+X*16.+^B0010
465 002121 RULE 1000 0010 1 ;SINGLE MA20 1101 NOTE 2
002121 222 .BYTE ^B1000&14+X*16.+^B0010
466 002122 RULE 1100 0001 1 ;SINGLE MA20 1110
002122 321 .BYTE ^B1100&14+X*16.+^B0001
467 002123 RULE 1100 0000 1 ;SINGLE MA20 1111
002123 320 .BYTE ^B1100&14+X*16.+^B0000
468
476 002124 RULE 1000 0000 0 ;MA20 PAIR 0000
002124 200 .BYTE ^B1000&14+X*16.+^B0000
477 002125 RULE 1000 0000 2 ;MA20 PAIR 0001
002125 240 .BYTE ^B1000&14+X*16.+^B0000
478 002126 RULE 1000 0010 2 ;MA20 PAIR 0010
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 106-1
MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
002126 242 .BYTE ^B1000&14+X*16.+^B0010
479 002127 RULE 1000 0000 4 ;MA20 PAIR 0011
002127 260 .BYTE ^B1000&14+X*16.+^B0000
480 002130 RULE 1000 0100 2 ;MA20 PAIR 0100
002130 244 .BYTE ^B1000&14+X*16.+^B0100
481 002131 RULE 1000 0000 2 ;MA20 PAIR 0101 NOTE 1
002131 240 .BYTE ^B1000&14+X*16.+^B0000
482 002132 RULE 1000 0010 2 ;MA20 PAIR 0110
002132 242 .BYTE ^B1000&14+X*16.+^B0010
483 002133 RULE 1000 0000 2 ;MA20 PAIR 0111
002133 240 .BYTE ^B1000&14+X*16.+^B0000
484 002134 RULE 1000 0110 2 ;MA20 PAIR 1000
002134 246 .BYTE ^B1000&14+X*16.+^B0110
485 002135 RULE 0000 0110 2 ;MA20 PAIR 1001 NOTE 2
002135 046 .BYTE ^B0000&14+X*16.+^B0110
486 002136 RULE 1000 0010 2 ;MA20 PAIR 1010 NOTE 1
002136 242 .BYTE ^B1000&14+X*16.+^B0010
487 002137 RULE 0000 0110 2 ;MA20 PAIR 1011 NOTE 2
002137 046 .BYTE ^B0000&14+X*16.+^B0110
488 002140 RULE 1000 0100 4 ;MA20 PAIR 1100
002140 264 .BYTE ^B1000&14+X*16.+^B0100
489 002141 RULE 0000 0100 2 ;MA20 PAIR 1101 NOTE 2
002141 044 .BYTE ^B0000&14+X*16.+^B0100
490 002142 RULE 1000 0010 2 ;MA20 PAIR 1110
002142 242 .BYTE ^B1000&14+X*16.+^B0010
491 002143 RULE 1000 0000 4 ;MA20 PAIR 1111
002143 260 .BYTE ^B1000&14+X*16.+^B0000
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 107
MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
493 ; ADCM ST ADR
494 ; 1122 1122 SM
495 ; 8901 8901 INT CONTR 3210
496 ; ---- ---- --- ----------- ----
497 002144 RULE 1000 0000 0 ;SINGLE MB20 0000
002144 200 .BYTE ^B1000&14+X*16.+^B0000
498 002145 RULE 1000 0000 1 ;SINGLE MB20 0001
002145 220 .BYTE ^B1000&14+X*16.+^B0000
499 002146 RULE 1000 0010 1 ;SINGLE MB20 0010
002146 222 .BYTE ^B1000&14+X*16.+^B0010
500 002147 RULE 1000 0000 1 ;SINGLE MB20 0011
002147 220 .BYTE ^B1000&14+X*16.+^B0000
501 002150 RULE 1000 0100 1 ;SINGLE MB20 0100
002150 224 .BYTE ^B1000&14+X*16.+^B0100
502 002151 RULE 1000 0000 1 ;SINGLE MB20 0101 NOTE 1
002151 220 .BYTE ^B1000&14+X*16.+^B0000
503 002152 RULE 1000 0010 1 ;SINGLE MB20 0110
002152 222 .BYTE ^B1000&14+X*16.+^B0010
504 002153 RULE 1000 0000 1 ;SINGLE MB20 0111
002153 220 .BYTE ^B1000&14+X*16.+^B0000
505 002154 RULE 1000 0110 1 ;SINGLE MB20 1000
002154 226 .BYTE ^B1000&14+X*16.+^B0110
506 002155 RULE 0000 0110 1 ;SINGLE MB20 1001 NOTE 2
002155 026 .BYTE ^B0000&14+X*16.+^B0110
507 002156 RULE 1000 0010 1 ;SINGLE MB20 1010 NOTE 1
002156 222 .BYTE ^B1000&14+X*16.+^B0010
508 002157 RULE 0000 0110 1 ;SINGLE MB20 1011 NOTE 2
002157 026 .BYTE ^B0000&14+X*16.+^B0110
509 002160 RULE 1000 0100 1 ;SINGLE MB20 1100
002160 224 .BYTE ^B1000&14+X*16.+^B0100
510 002161 RULE 0000 0100 1 ;SINGLE MB20 1101 NOTE 2
002161 024 .BYTE ^B0000&14+X*16.+^B0100
511 002162 RULE 1000 0010 1 ;SINGLE MB20 1110
002162 222 .BYTE ^B1000&14+X*16.+^B0010
512 002163 RULE 1000 0000 1 ;SINGLE MB20 1111
002163 220 .BYTE ^B1000&14+X*16.+^B0000
513
521 002164 RULE 0000 0000 0 ;MB20 PAIR 0000
002164 000 .BYTE ^B0000&14+X*16.+^B0000
522 002165 RULE 0000 0000 2 ;MB20 PAIR 0001
002165 040 .BYTE ^B0000&14+X*16.+^B0000
523 002166 RULE 0000 0100 2 ;MB20 PAIR 0010
002166 044 .BYTE ^B0000&14+X*16.+^B0100
524 002167 RULE 0000 0000 4 ;MB20 PAIR 0011
002167 060 .BYTE ^B0000&14+X*16.+^B0000
525 002170 RULE 0000 1000 2 ;MB20 PAIR 0100
002170 050 .BYTE ^B0000&14+X*16.+^B1000
526 002171 RULE 0000 0000 2 ;MB20 PAIR 0101 NOTE 1
002171 040 .BYTE ^B0000&14+X*16.+^B0000
527 002172 RULE 0000 0100 2 ;MB20 PAIR 0110
002172 044 .BYTE ^B0000&14+X*16.+^B0100
528 002173 RULE 0000 0000 2 ;MB20 PAIR 0111
002173 040 .BYTE ^B0000&14+X*16.+^B0000
529 002174 RULE 0000 1100 2 ;MB20 PAIR 1000
002174 054 .BYTE ^B0000&14+X*16.+^B1100
530 002175 RULE 0000 0110 1 ;MB20 PAIR 1001 NOTE 3
002175 026 .BYTE ^B0000&14+X*16.+^B0110
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 107-1
MASKED START ADDRESSES & LENGTHS FOR AN MA20/MB20 PAIR
531 002176 RULE 0000 0100 2 ;MB20 PAIR 1010 NOTE 1
002176 044 .BYTE ^B0000&14+X*16.+^B0100
532 002177 RULE 0000 0110 1 ;MB20 PAIR 1011 NOTE 3
002177 026 .BYTE ^B0000&14+X*16.+^B0110
533 002200 RULE 0000 1000 4 ;MB20 PAIR 1100
002200 070 .BYTE ^B0000&14+X*16.+^B1000
534 002201 RULE 0000 0100 1 ;MB20 PAIR 1101 NOTE 3
002201 024 .BYTE ^B0000&14+X*16.+^B0100
535 002202 RULE 0000 0100 2 ;MB20 PAIR 1110
002202 044 .BYTE ^B0000&14+X*16.+^B0100
536 002203 RULE 0000 0000 4 ;MB20 PAIR 1111
002203 060 .BYTE ^B0000&14+X*16.+^B0000
537
538
539 ;NOTES:
540 ; 1 ABSOLUTELY UNUSABLE STOR MOD CONFIGURATION. HIGHER SM IS
541 ; IGNORED.
542 ; 2 MISSING STOR MODS IN THE MIDDLE FORCES WRAP AROUND ADR ENABLE
543 ; WHICH RESTRICTS START ADR.
544 ; 3 SAME AS 2. ADDITIONALLY A CROCK IN THE MB20 ALSO FORCES 1-WAY
545 ; INTERLEAVE BECAUSE WE CANNOT CROSS 256K BOUNDARIES EVER.
546
547 ;-----MA20/MB20 STORAGE MODULE CONFIGURATION LEGALIZATION TABLE. INDEXED BY
548 ; SM CONFIGURATION.
549 002204 000 001 002 ABSML: .BYTE ^B0000,^B0001,^B0010,^B0011,^B0100,^B0001,^B0110,^B0111
550 002214 010 011 002 .BYTE ^B1000,^B1001,^B0010,^B1011,^B1100,^B1101,^B1110,^B1111
551
552 .EVEN
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 110
DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
624 .SBTTL DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
625
626 .REM %
627 CONDET IS RESPONSIBLE FOR FIGURING OUT WHAT CONTROLLERS ARE ON THE
628 SYSTEM AND LOGGING THAT INFORMATION IN "TYPNUM". IT ALSO FINDS OUT WHETHER THIS
629 IS A MODEL A OR B, AND WHETHER WE HAVE A MASTER OSCILLATOR OR NOT. TRACKS THE
630 INTERLOCK VARIABLE CONRD.
631 %
632
633 002224 105737 000000G CONDET: TSTB CONRD ;HAVE WE ALREADY DONE THIS?
634 002230 001134 BNE 12$ ;YES...DONT DO IT AGAIN
635 002232 REGSAV
002232 004737 000000G JSR PC,SAV.5 ; ** SAVE R1 - R5 ON THE STACK
636 ;-----RESET MACHINE. FIGURE OUT IF MODEL A OR B.
637 002236 SM ;RESET CPU
002236 004737 000000G JSR PC,$KLMR ; ** MASTER RESET THE KL10
002242 012700 000001 MOV #STRCLK,R0 ; ** START CLOCK FUNCTION CODE TO R0
002246 004737 000000G JSR PC,$DDFXC ; ** START THE KL10 CLOCK
638 002252 XX APRID0 ;DO APRID AND GET RESULT
002252 012700 000000G MOV #APRID0,R0 ;PT R0 AT INSTR
002256 004737 000000G JSR PC,XX1 ;EXEC INSTR (ADDR IN R0) & EXAM AC0
639 002262 032710 040000 BIT #40000,(R0) ;MODEL B BIT SET FROM APRID?
640 002266 001402 BEQ 1$ ;;NO...IS MODEL A
641 002270 005237 000000G INC MODELB ;ELSE SET MODEL B FLAG
642 ;-----SEE IF THERE IS A MASTER OSCILLATOR. TURN IT ON IF SO.
643 002274 032710 020000 1$: BIT #20000,(R0) ;IS MASTER OSC PRESENT (IS MOS PRESENT)?
644 002300 001402 BEQ 2$ ;NO...WE DONT HAV MOS EITHER
645 002302 105237 000000G INCB MSTROS ;INDICATE WE HAVE MYSTERY OSCILLATOR
647 ;
648 ; ***** WE KNOW THAT WE HAVE A MASTER OSCILLATOR. *****
649 ; ***** IT IS ASSUMED THAT KLI HAS ALREADY ENABLED IT. *****
650 ;
659 ;-----GO THRU ALL POSSIBLE CONTROLLERS & SEE WHAT WE CAN FIND.
660 002306 012701 000037 2$: MOV #MAXCN,R1 ;INI CONTR #
661 002312 RESET SBUS+CPU ;RESET ALL CONTROLLERS
002312 004537 002320' JSR R5,64$ ;SAV R5, PT TO & SKIP SBUS+CPU LIST
002316 100200 .WORD SBUS+CPU
002320 004737 000000G 64$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
002324 012605 MOV (SP)+,R5
662 002326 105037 000000G CLRB MCOUNT
663 002332 105061 000000G 3$: CLRB CONTI(R1) ;MAKE SURE ALL OF CONTI IS CLEARED
664 002336 010137 000000G MOV R1,TSTCON ;SET CONTR # WD
665 002342 SBDIAG 0000,0000,0001 ;DO FUNC 1
002342 004537 002352' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
002346 000001 000000
002352 004737 000000G 65$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
002356 012605 MOV (SP)+,R5
666 002360 012004 MOV (R0)+,R4 ;PICK UP RESULT IN R2,R3,R4
667 002362 012003 MOV (R0)+,R3
668 002364 111002 MOVB (R0),R2
669 002366 010300 MOV R3,R0 ;GET CONTR TYPE
670 002370 000300 SWAB R0
671 002372 042700 177760 BIC #177760,R0
672 002376 110061 000000G MOVB R0,TYPNUM(R1) ;SAV TYPE IN TABLE
673 002402 001402 BEQ 4$ ;BR IF NO CONTR
674 002404 105237 000000G INCB MCOUNT ;ELSE COUNT NON-NULL CONTR
675 002410 020027 000007 4$: CMP R0,#UNDCTN ;KNOWN TYPE?
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 110-1
DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
676 002414 002402 BLT 5$ ;YES
677 002416 012700 000007 MOV #UNDCTN,R0 ;ELSE FORCE TO UNKNOWN
678 002422 105260 000000G 5$: INCB CNTCNT(R0) ;INC CONTR CNT BY TYPE
679 002426 006300 ASL R0 ;MAKE WD NDX FROM TYPE
680 002430 000170 002434' JMP @6$(R0) ;GO GET REST OF FUNC 1 INFO
681 002434 002506' 002454' 002506' 6$: .WORD 10$,7$,10$,7$,9$,9$,10$,10$
682 ;-----HERE FOR MA20/MB20. GET STORAGE MODULE MAP.
683 002454 012700 000004 7$: MOV #4,R0 ;LP CNT
684 002460 006103 8$: ROL R3 ;CREATE 8 BIT STOR MOD MAP
685 002462 006102 ROL R2
686 002464 077003 SOB R0,8$
687 002466 110261 000000G MOVB R2,CONTI(R1) ;SAV MAP IN TBL
688 002472 000405 BR 11$
689 ;-----HERE FOR MF20. GET CONFIG STATUS.
690 002474 000304 9$: SWAB R4 ;ISOLATE THE 2 SOFTWARE STATE BITS
691 002476 042704 177774 BIC #-4,R4
692 002502 110461 000000G MOVB R4,CONTI(R1) ;TO TBL
693 ; BR 11$
694 ;-----HERE FOR CUST., UNDEF., SBUS RECORDER, OR DMA20 CONTROLLER.
695 002506 10$: ;NOP
696 ;-----END OF LOOP
697 002506 005301 11$: DEC R1 ;NXT CONTR #
698 002510 002310 BGE 3$ ;BR IF MORE
699 002512 105237 000000G INCB CONRD ;FLAG CONTR RES DET DONE
700 002516 REGRST
002516 004737 000000G JSR PC,RST.5 ; ** RESTORE R1 - R5 AND RETURN
701 002522 000207 12$: RTS PC ;DONE
702
703 002524 103 123 062 CS2MSG: .ASCIZ /CS2/ ;SETS CLK SRC 2 (MASTER OSC)
705 000001 .END
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 110-2
SYMBOL TABLE
ABSML 002204R ANDCMM= 000422 CAIA = 000304 DIVM = 000236 FMPRM = 000166
AC = 000004 ANDI = 000405 CAIE = 000302 DMABM = ****** GX FSB = 000150
ACC0 = 000001 ANDM = 000406 CAIG = 000307 DMACN = 000004 FSBB = 000153
ACC1 = 000002 AOBJN = 000253 CAIGE = 000305 DMACTN= 000002 FSBL = 000151
ACC10 = 000400 AOBJP = 000252 CAIL = 000301 DMADET 000000RG FSBM = 000152
ACC11 = 001000 AOJ = 000340 CAILE = 000303 DMAFRC= ****** GX FSBR = 000154
ACC12 = 002000 AOJA = 000344 CAIN = 000306 DMANXM= ****** GX FSBRB = 000157
ACC13 = 004000 AOJE = 000342 CAM = 000310 DMARD = ****** GX FSBRI = 000155
ACC14 = 010000 AOJG = 000347 CAMA = 000314 DMARMP= ****** GX FSBRM = 000156
ACC15 = 020000 AOJGE = 000345 CAME = 000312 DMASIZ= ****** GX FSC = 000132
ACC16 = 040000 AOJL = 000341 CAMG = 000317 DMA2TS= ****** GX HALTLP= 001000
ACC17 = 100000 AOJLE = 000343 CAMGE = 000315 DMA20 = ****** GX HLL = 000500
ACC2 = 000004 AOJN = 000346 CAML = 000311 DMA20T= ****** GX HLLE = 000530
ACC3 = 000010 AOS = 000350 CAMLE = 000313 DMOVE = 000120 HLLEI = 000531
ACC4 = 000020 AOSA = 000354 CAMN = 000316 DMOVEM= 000124 HLLEM = 000532
ACC5 = 000040 AOSE = 000352 CAS = 020000 DMOVN = 000121 HLLES = 000533
ACC6 = 000100 AOSG = 000357 CCA = 000014 DMOVNM= 000125 HLLI = 000501
ACC7 = 000200 AOSGE = 000355 CDCODW 001534R DMUL = 000116 HLLM = 000502
ACLOAD= ****** GX AOSL = 000351 CECLK = 000004 DPB = 000137 HLLO = 000520
AC0 = 000000 AOSLE = 000353 CHKED = ****** GX DREADY= 001000 HLLOI = 000521
AC1 = 000001 AOSN = 000356 CLEAR = 000400 DSUB = 000115 HLLOM = 000522
AC10 = 000010 APR = 000000 CLEARB= 000403 D16KBN= ****** GX HLLOS = 000523
AC11 = 000011 APRID0= ****** GX CLEARI= 000401 EQV = 000444 HLLS = 000503
AC12 = 000012 ASH = 000240 CLEARM= 000402 EQVB = 000447 HLLZ = 000510
AC13 = 000013 ASHC = 000244 CLRMR = 000006 EQVI = 000445 HLLZI = 000511
AC14 = 000014 ASR0.4= ****** GX CNTCNT= ****** GX EQVM = 000446 HLLZM = 000512
AC15 = 000015 BITCNT= ****** GX CNTSD1= ****** GX ERRSTP= 004000 HLLZS = 000513
AC16 = 000016 BIT0 = 000001 CONBUT= 000012 ER$DTO= 001226RG HLR = 000544
AC17 = 000017 BIT1 = 000002 CONDET 002224RG EXCH = 000250 HLRE = 000574
AC2 = 000002 BIT10 = 002000 CONI = 000005 EXTEND= 000123 HLREI = 000575
AC3 = 000003 BIT11 = 004000 CONMMR= 000001 EXTWD 001541R HLREM = 000576
AC4 = 000004 BIT12 = 010000 CONO = 000004 FAD = 000140 HLRES = 000577
AC5 = 000005 BIT13 = 020000 CONRD = ****** GX FADB = 000143 HLRI = 000545
AC6 = 000006 BIT14 = 040000 CONSO = 000007 FADL = 000141 HLRM = 000546
AC7 = 000007 BIT15 = 100000 CONSZ = 000006 FADM = 000142 HLRO = 000564
ADD = 000270 BIT2 = 000004 CONTI = ****** GX FADR = 000144 HLROI = 000565
ADDB = 000273 BIT3 = 000010 CONTIN= ****** GX FADRB = 000147 HLROM = 000566
ADDI = 000271 BIT4 = 000020 CORDET= 177777 G FADRI = 000145 HLROS = 000567
ADDM = 000272 BIT5 = 000040 CPU = 000200 FADRM = 000146 HLRS = 000547
ADDR 001526R BIT6 = 000100 CS2MSG 002524R FDV = 000170 HLRZ = 000554
ADH = 000000 BIT7 = 000200 DADD = 000114 FDVB = 000173 HLRZI = 000555
ADJSP = 000105 BIT8 = 000400 DATAI = 000001 FDVL = 000171 HLRZM = 000556
ADL = 000004 BIT9 = 001000 DATAO = 000003 FDVM = 000172 HLRZS = 000557
ADR2ND= 002000 BLKI = 000000 DDCADM= ****** GX FDVR = 000174 HRL = 000504
AND = 000404 BLKO = 000002 DDCON 000032R FDVRB = 000177 HRLE = 000534
ANDB = 000407 BLK0 = 000000 DDCONT 000422R FDVRI = 000175 HRLEI = 000535
ANDCA = 000410 BLK1 = 000001 DDIV = 000117 FDVRM = 000176 HRLEM = 000536
ANDCAB= 000413 BLK2 = 000002 DE$BUG= 070000 FIX = 000122 HRLES = 000537
ANDCAI= 000411 BLK3 = 000003 DFAD = 000110 FIXR = 000126 HRLI = 000505
ANDCAM= 000412 BLK4 = 000004 DFDV = 000113 FLTR = 000127 HRLM = 000506
ANDCB = 000440 BLK5 = 000005 DFMP = 000112 FMP = 000160 HRLO = 000524
ANDCBB= 000443 BLK6 = 000006 DFN = 000131 FMPB = 000163 HRLOI = 000525
ANDCBI= 000441 BLT = 000251 DFSB = 000111 FMPL = 000161 HRLOM = 000526
ANDCBM= 000442 BRCLK = 000005 DIAG = 000104 FMPM = 000162 HRLOS = 000527
ANDCM = 000420 BRCTN = 000006 DIV = 000234 FMPR = 000164 HRLS = 000507
ANDCMB= 000423 BSYCLR= 000400 DIVB = 000237 FMPRB = 000167 HRLZ = 000514
ANDCMI= 000421 CAI = 000300 DIVI = 000235 FMPRI = 000165 HRLZI = 000515
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 110-3
SYMBOL TABLE
HRLZM = 000516 LSHC = 000246 ORCBB = 000473 SETZM = 000402 TLCN = 000647
HRLZS = 000517 LSTMB = 000001 ORCBI = 000471 SKIP = 000330 TLN = 000601
HRR = 000540 LUBSRL= 000600 ORCBM = 000472 SKIPA = 000334 TLNA = 000605
HRRE = 000570 MABADC= ****** GX ORCM = 000464 SKIPE = 000332 TLNE = 000603
HRREI = 000571 MABDET 001546RG ORCMB = 000467 SKIPG = 000337 TLNN = 000607
HRREM = 000572 MABINT= ****** GX ORCMI = 000465 SKIPGE= 000335 TLO = 000661
HRRES = 000573 MABPAD 001614R ORCMM = 000466 SKIPL = 000331 TLOA = 000665
HRRI = 000541 MABRD = ****** GX ORI = 000435 SKIPLE= 000333 TLOE = 000663
HRRM = 000542 MABRUL 002104R ORM = 000436 SKIPN = 000336 TLON = 000667
HRRO = 000560 MABSA = ****** GX PAG = 000010 SOJ = 000360 TLZ = 000621
HRROI = 000561 MABSIZ= ****** GX PI = 000004 SOJA = 000364 TLZA = 000625
HRROM = 000562 MACTN = 000001 POP = 000262 SOJE = 000362 TLZE = 000623
HRROS = 000563 MAP = 000257 POPJ = 000263 SOJG = 000367 TLZN = 000627
HRRS = 000543 MAXCN = 000037 PUSH = 000261 SOJGE = 000365 TRC = 000640
HRRZ = 000550 MBCTN = 000003 PUSHJ = 000260 SOJL = 000361 TRCA = 000644
HRRZI = 000551 MCOUNT= ****** GX PXCT = 000256 SOJLE = 000363 TRCE = 000642
HRRZM = 000552 MFCTN = 000005 QXCT1 = ****** GX SOJN = 000366 TRCN = 000646
HRRZS = 000553 MNBRCN= 000036 RAS = 040000 SOS = 000370 TRN = 000600
I = 000000 MNMFCN= 000010 RDERA0= ****** GX SOSA = 000374 TRNA = 000604
IBP = 000133 MNMXCN= 000006 REAPWD= ****** GX SOSE = 000372 TRNE = 000602
IDIV = 000230 MNM.CN= 000000 ROT = 000241 SOSG = 000377 TRNN = 000606
IDIVB = 000233 MNTITF= 000040 ROTC = 000245 SOSGE = 000375 TRO = 000660
IDIVI = 000231 MODELB= ****** GX RST.5 = ****** GX SOSL = 000371 TROA = 000664
IDIVM = 000232 MOVE = 000200 RS0RS1= 000010 SOSLE = 000373 TROE = 000662
IDPB = 000136 MOVEI = 000201 RS0TN0= 000020 SOSN = 000376 TRON = 000666
ILDB = 000134 MOVEM = 000202 RUNPRG= ****** GX SSCLK = 000002 TRPAR = 010000
IMUL = 000220 MOVES = 000203 R$$20F= 000001 STPCLK= 000000 TRZ = 000620
IMULB = 000223 MOVM = 000214 R5.PC = ****** GX STRCLK= 000001 TRZA = 000624
IMULI = 000221 MOVMI = 000215 SAV.5 = ****** GX SUB = 000274 TRZE = 000622
IMULM = 000222 MOVMM = 000216 SBDT = ****** GX SUBB = 000277 TRZN = 000626
INIDMA= ****** GX MOVMS = 000217 SBUS = 100000 SUBI = 000275 TSC = 000651
INIMAB= ****** GX MOVN = 000210 SECLK = 000003 SUBM = 000276 TSCA = 000655
INTMOD= ****** GX MOVNI = 000211 SETA = 000424 SXCT = 000106 TSCE = 000653
IOR = 000434 MOVNM = 000212 SETAB = 000427 TADR = 000010 TSCN = 000657
IORB = 000437 MOVNS = 000213 SETAI = 000425 TBN = 000004 TSN = 000611
IORI = 000435 MOVS = 000204 SETAM = 000426 TCN = 000001 TSNA = 000615
IORM = 000436 MOVSI = 000205 SETCA = 000450 TDC = 000650 TSNE = 000613
JFCL = 000255 MOVSM = 000206 SETCAB= 000453 TDCA = 000654 TSNN = 000617
JFFO = 000243 MOVSS = 000207 SETCAI= 000451 TDCE = 000652 TSO = 000671
JRA = 000267 MSAMSZ= 000140 SETCAM= 000452 TDCN = 000656 TSOA = 000675
JRST = 000254 MSTROS= ****** GX SETCM = 000460 TDN = 000610 TSOE = 000673
JSA = 000266 MUL = 000224 SETCMB= 000463 TDNA = 000614 TSON = 000677
JSP = 000265 MULB = 000227 SETCMI= 000461 TDNE = 000612 TSTCON= ****** GX
JSR = 000264 MULI = 000225 SETCMM= 000462 TDNN = 000616 TSZ = 000631
JUMP = 000320 MULM = 000226 SETM = 000414 TDO = 000670 TSZA = 000635
JUMPA = 000324 MXBRCN= 000037 SETMB = 000417 TDOA = 000674 TSZE = 000633
JUMPE = 000322 MXCTN = 000004 SETMI = 000415 TDOE = 000672 TSZN = 000637
JUMPG = 000327 MXMFCN= 000017 SETMM = 000416 TDON = 000676 TYPNUM= ****** GX
JUMPGE= 000325 MXMXCN= 000007 SETMR = 000007 TDZ = 000630 UFA = 000130
JUMPL = 000321 MXM.CN= 000003 SETO = 000474 TDZA = 000634 UNDCTN= 000007
JUMPLE= 000323 OR = 000434 SETOB = 000477 TDZE = 000632 WENABL= 004000
JUMPN = 000326 ORB = 000437 SETOI = 000475 TDZN = 000636 X = 000003
LDAR = 000077 ORCA = 000454 SETOM = 000476 TGN = 000002 XCT = 000256
LDB = 000135 ORCAB = 000457 SETRUN= 000011 TIMFS = 000044 XDV = 000000
LSBRTN= 000001 ORCAI = 000455 SETZ = 000400 TLC = 000641 XMAL = ****** GX
LSBSRL= 000744 ORCAM = 000456 SETZB = 000403 TLCA = 000645 XOP = 000006
LSH = 000242 ORCB = 000470 SETZI = 000401 TLCE = 000643 XOR = 000430
CORDET -- CORE MEMORY RESOURCE MACRO M1110 17-SEP-79 09:03 PAGE 110-4
SYMBOL TABLE
XORB = 000433 $DMPAC= 070010 $KL10B= 000102 $SDW = 000002 $$NARG= 000001
XORI = 000431 $DPOST= ****** GX $LOADA= 000001 $SIZ16= 033061 $$RDER= 000004
XORM = 000432 $EB = 000530R $MABDE= 000001 $SIZ32= 031063 $$SBDI= 000004
XR = 000000 $EVENT= 000001 $MABPA= 000001 $SIZ4K= 032060 $10BC = 070040
XXWD = ****** GX $EXAMD= ****** GX $PATCH= 070004 $SIZ64= 032066 $10BP = 070034
XX1 = ****** GX $EXAMT= ****** GX $QXCT = 000001 $STEP = 000001 $10MB = 070050
$APRID= 000000 $EXCT = ****** GX $RDERA= 000000 $TB = 000001 $10RB = 070044
$BRST = 000001 $FATAL= ****** GX $RELOA= 000001 $TIMLP= 070014 .RESET= ****** GX
$CNTSD= 000001 $FIND = 000001 $RESET= 000001 $TL = 000013 .SBDIA= 000001
$CONDE= 000001 $GETCT= 070020 $RSTAC= 070030 $TTBEL= ****** GX .WORK = ****** GX
$DDFWR= ****** GX $IND36= 000003 $RUN = 000001 $TTDMS= ****** GX ... = 000377
$DDFXC= ****** GX $KLMR = ****** GX $SAVAC= 070024 $XX = 000001 ......= 177777
$DMADE= 000001 $KL10A= 000101 $SBDIA= 000002 $$APRI= 000000
. ABS. 000000 000
002530 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 22536 WORDS ( 89 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:03:01
[56,10]CORDET,[56,20]CORDET/-SP/CR=[56,30]CRDASM,MBOVLC,MOSMAC,MBMAC,MOSDEF,CORDET
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ABSML 002204 R 105-369 105-370 #107-549
AC = 000004 #98-107 #98-107 98-107 98-107 #98-109 #98-109 98-109 98-109 #98-110
#98-110 98-110 98-110 #98-113 98-113 98-113 #99-139 99-139 99-139
#99-140 #99-140 99-140 99-140 #99-142 #99-142 99-142 99-142 #99-143
#99-143 99-143 99-143 #99-144 #99-144 99-144 99-144 #99-145 99-145
99-145 #99-146 #99-146 99-146 99-146 #99-147 #99-147 99-147 99-147
#99-153 #99-153 99-153 99-153
ACC0 = 000001 #19-739
ACC1 = 000002 #19-740
ACC10 = 000400 #19-747
ACC11 = 001000 #19-748
ACC12 = 002000 #19-749
ACC13 = 004000 #19-750
ACC14 = 010000 #19-751
ACC15 = 020000 #19-752 100-178
ACC16 = 040000 #19-753 100-182
ACC17 = 100000 #19-754
ACC2 = 000004 #19-741
ACC3 = 000010 #19-742
ACC4 = 000020 #19-743
ACC5 = 000040 #19-744
ACC6 = 000100 #19-745
ACC7 = 000200 #19-746
ACLOAD = ****** GX 97-63 99-121 100-178 100-182
AC0 = 000000 #12-27
AC1 = 000001 #12-28
AC10 = 000010 #12-35
AC11 = 000011 #12-36
AC12 = 000012 #12-37
AC13 = 000013 #12-38
AC14 = 000014 #12-39 101-199
AC15 = 000015 #12-40
AC16 = 000016 #12-41
AC17 = 000017 #12-42
AC2 = 000002 #12-29 97-65 97-71
AC3 = 000003 #12-30 99-125 99-128
AC4 = 000004 #12-31
AC5 = 000005 #12-32
AC6 = 000006 #12-33
AC7 = 000007 #12-34
ADD = 000270 #12-167
ADDB = 000273 #12-170
ADDI = 000271 #12-168 99-143 99-143
ADDM = 000272 #12-169
ADDR 001526 R 100-167 100-178 #102-285
ADH = 000000 #98-107 98-107 98-107 #98-108 98-108 98-108 #98-109 98-109 98-109
#98-110 98-110 98-110 #98-113 98-113 98-113 #99-137 99-137 99-137
#99-138 99-138 99-138 #99-139 99-139 99-139 #99-140 99-140 99-140
#99-141 99-141 99-141 #99-142 99-142 99-142 #99-143 99-143 99-143
#99-144 99-144 99-144 #99-145 99-145 99-145 #99-146 99-146 99-146
#99-147 99-147 99-147 #99-153 99-153 99-153
ADJSP = 000105 #12-53
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ADL = 000004 #98-107 98-107 98-107 #98-107 98-107 98-107 #98-107 98-107 98-107
#98-108 98-108 98-108 #98-108 98-108 98-108 #98-108 98-108 98-108
#98-108 98-108 98-108 #98-108 98-108 98-108 #98-108 98-108 98-108
#98-109 98-109 98-109 #98-109 98-109 98-109 #98-110 98-110 98-110
#98-110 98-110 98-110 #98-113 98-113 98-113 #98-113 98-113 98-113
#99-137 99-137 99-137 #99-137 99-137 99-137 #99-137 99-137 99-137
#99-138 99-138 99-138 #99-138 99-138 99-138 #99-138 99-138 99-138
#99-138 99-138 99-138 #99-138 99-138 99-138 #99-138 99-138 99-138
#99-139 99-139 99-139 #99-139 99-139 99-139 #99-139 99-139 99-139
#99-140 99-140 99-140 #99-140 99-140 99-140 #99-141 99-141 99-141
#99-141 99-141 99-141 #99-141 99-141 99-141 #99-141 99-141 99-141
#99-141 99-141 99-141 #99-142 99-142 99-142 #99-142 99-142 99-142
#99-143 99-143 99-143 #99-143 99-143 99-143 #99-144 99-144 99-144
#99-144 99-144 99-144 #99-145 99-145 99-145 #99-145 99-145 99-145
#99-146 99-146 99-146 #99-146 99-146 99-146 #99-147 99-147 99-147
#99-147 99-147 99-147 #99-153 99-153 99-153 #99-153 99-153 99-153
ADR2ND = 002000 #44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205
AND = 000404 #12-247
ANDB = 000407 #12-250
ANDCA = 000410 #12-251
ANDCAB = 000413 #12-254
ANDCAI = 000411 #12-252
ANDCAM = 000412 #12-253
ANDCB = 000440 #12-279
ANDCBB = 000443 #12-282
ANDCBI = 000441 #12-280
ANDCBM = 000442 #12-281
ANDCM = 000420 #12-259
ANDCMB = 000423 #12-262
ANDCMI = 000421 #12-260
ANDCMM = 000422 #12-261
ANDI = 000405 #12-248
ANDM = 000406 #12-249
AOBJN = 000253 #12-153
AOBJP = 000252 #12-152
AOJ = 000340 #12-207
AOJA = 000344 #12-211
AOJE = 000342 #12-209
AOJG = 000347 #12-214
AOJGE = 000345 #12-212
AOJL = 000341 #12-208
AOJLE = 000343 #12-210
AOJN = 000346 #12-213
AOS = 000350 #12-215
AOSA = 000354 #12-219
AOSE = 000352 #12-217
AOSG = 000357 #12-222
AOSGE = 000355 #12-220
AOSL = 000351 #12-216
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AOSLE = 000353 #12-218
AOSN = 000356 #12-221
APR = 000000 #12-449 55-130 98-108 99-138 99-141
APRID0 = ****** GX 110-638
ASH = 000240 #12-143
ASHC = 000244 #12-147
ASR0.4 = ****** GX 105-406
BITCNT = ****** GX 105-418
BIT0 = 000001 #4-63
BIT1 = 000002 #4-64
BIT10 = 002000 #4-73
BIT11 = 004000 #4-74 4-81
BIT12 = 010000 #4-75
BIT13 = 020000 #4-76
BIT14 = 040000 #4-77
BIT15 = 100000 #4-78 26-1126
BIT2 = 000004 #4-65
BIT3 = 000010 #4-66
BIT4 = 000020 #4-67
BIT5 = 000040 #4-68
BIT6 = 000100 #4-69
BIT7 = 000200 #4-70 26-1125
BIT8 = 000400 #4-71
BIT9 = 001000 #4-72 4-80
BLKI = 000000 #12-440 55-129 55-131
BLKO = 000002 #12-442 55-127
BLK0 = 000000 #12-44
BLK1 = 000001 #12-45
BLK2 = 000002 #12-46
BLK3 = 000003 #12-47
BLK4 = 000004 #12-48
BLK5 = 000005 #12-49
BLK6 = 000006 #12-50
BLT = 000251 #12-151
BRCLK = 000005 #55-122
BRCTN = 000006 #43-170
BSYCLR = 000400 #44-207 44-207 44-207 #44-207 44-207 44-207 #44-207 44-207 44-207
#44-207 44-207 44-207 #44-207 44-207 44-207 #44-207 44-207 44-207
#44-207 44-207 44-207 #44-207 44-207 44-207 #44-207
CAI = 000300 #12-175
CAIA = 000304 #12-179
CAIE = 000302 #12-177
CAIG = 000307 #12-182
CAIGE = 000305 #12-180
CAIL = 000301 #12-176
CAILE = 000303 #12-178
CAIN = 000306 #12-181
CAM = 000310 #12-183
CAMA = 000314 #12-187
CAME = 000312 #12-185
CAMG = 000317 #12-190
CAMGE = 000315 #12-188
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CAML = 000311 #12-184
CAMLE = 000313 #12-186
CAMN = 000316 #12-189
CAS = 020000 #44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202
CCA = 000014 #12-452
CDCODW 001534 R 100-179 *100-180 100-182 *100-192 100-193 #102-286
CECLK = 000004 #55-119
CHKED = ****** GX 101-201
CLEAR = 000400 #12-239
CLEARB = 000403 #12-245
CLEARI = 000401 #12-241
CLEARM = 000402 #12-243
CLRMR = 000006 #55-120
CNTCNT = ****** GX *110-678
CNTSD1 = ****** GX 100-179
CONBUT = 000012 #55-124
CONDET 002224 RG 8-263 96-24 104-323 #110-633
CONI = 000005 #12-445
CONMMR = 000001 #3-54
CONO = 000004 #12-444 98-108 99-138
CONRD = ****** GX 110-633 *110-699
CONSO = 000007 #12-447
CONSZ = 000006 #12-446 99-141
CONTI = ****** GX 105-367 105-368 *110-663 *110-687 *110-692
CONTIN = ****** GX 100-183 100-188
CORDET = 177777 G #1-1 3-8 7-244
CPU = 000200 #26-1125 110-661
CS2MSG 002524 R #110-703
DADD = 000114 #12-59
DATAI = 000001 #12-441
DATAO = 000003 #12-443
DBEOVL = ****** 3-10 9-303
DDCADM = ****** GX *99-122 100-184
DDCON 000032 R 96-29 #96-50
DDCONT 000422 R 96-56 97-84 98-99 #99-120
DDIV = 000117 #12-62
DE$BUG = 070000 #12-8
DFAD = 000110 #12-55
DFDV = 000113 #12-58
DFMP = 000112 #12-57
DFN = 000131 #12-72
DFSB = 000111 #12-56
DIAG = 000104 #12-52
DIV = 000234 #12-139
DIVB = 000237 #12-142
DIVI = 000235 #12-140
DIVM = 000236 #12-141
DMABM = ****** GX *102-250
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DMACN = 000004 #43-160
DMACTN = 000002 #43-159
DMADET 000000 RG 8-263 #96-24
DMAFRC = ****** GX 102-248 *102-262
DMANXM = ****** GX *101-232
DMARD = ****** GX 96-25 *96-30 *102-266
DMARMP = ****** GX 100-174
DMASIZ = ****** GX *102-275
DMA2TS = ****** GX *101-225 102-270 *102-272 *102-279
DMA20 = ****** GX 96-28
DMA20T = ****** GX 100-171
DMOVE = 000120 #12-63
DMOVEM = 000124 #12-67
DMOVN = 000121 #12-64
DMOVNM = 000125 #12-68
DMUL = 000116 #12-61
DPB = 000137 #12-78
DREADY = 001000 #44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206
DSUB = 000115 #12-60
D16KBN = ****** GX *100-170 *101-210 102-273 102-280
EQV = 000444 #12-283
EQVB = 000447 #12-286
EQVI = 000445 #12-284
EQVM = 000446 #12-285
ERRSTP = 004000 #4-81
ER$DTO = 001226 RG #101-227
EXCH = 000250 #12-150
EXTEND = 000123 #12-66
EXTWD 001541 R 100-161 #102-287
FAD = 000140 #12-79
FADB = 000143 #12-82
FADL = 000141 #12-80
FADM = 000142 #12-81
FADR = 000144 #12-83
FADRB = 000147 #12-86
FADRI = 000145 #12-84
FADRM = 000146 #12-85
FDV = 000170 #12-103
FDVB = 000173 #12-106
FDVL = 000171 #12-104
FDVM = 000172 #12-105
FDVR = 000174 #12-107
FDVRB = 000177 #12-110
FDVRI = 000175 #12-108
FDVRM = 000176 #12-109
FITCON = ****** 3-11 10-325
FIX = 000122 #12-65
FIXR = 000126 #12-69
FLTR = 000127 #12-70
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
FMP = 000160 #12-95
FMPB = 000163 #12-98
FMPL = 000161 #12-96
FMPM = 000162 #12-97
FMPR = 000164 #12-99
FMPRB = 000167 #12-102
FMPRI = 000165 #12-100
FMPRM = 000166 #12-101
FSB = 000150 #12-87
FSBB = 000153 #12-90
FSBL = 000151 #12-88
FSBM = 000152 #12-89
FSBR = 000154 #12-91
FSBRB = 000157 #12-94
FSBRI = 000155 #12-92
FSBRM = 000156 #12-93
FSC = 000132 #12-73
HALTLP = 001000 #4-80
HLL = 000500 #12-311
HLLE = 000530 #12-335
HLLEI = 000531 #12-336
HLLEM = 000532 #12-337
HLLES = 000533 #12-338
HLLI = 000501 #12-312
HLLM = 000502 #12-313
HLLO = 000520 #12-327
HLLOI = 000521 #12-328
HLLOM = 000522 #12-329
HLLOS = 000523 #12-330
HLLS = 000503 #12-314
HLLZ = 000510 #12-319
HLLZI = 000511 #12-320
HLLZM = 000512 #12-321
HLLZS = 000513 #12-322
HLR = 000544 #12-347
HLRE = 000574 #12-371
HLREI = 000575 #12-372
HLREM = 000576 #12-373
HLRES = 000577 #12-374
HLRI = 000545 #12-348
HLRM = 000546 #12-349
HLRO = 000564 #12-363
HLROI = 000565 #12-364
HLROM = 000566 #12-365
HLROS = 000567 #12-366
HLRS = 000547 #12-350
HLRZ = 000554 #12-355
HLRZI = 000555 #12-356
HLRZM = 000556 #12-357
HLRZS = 000557 #12-358
HRL = 000504 #12-315
HRLE = 000534 #12-339
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
HRLEI = 000535 #12-340
HRLEM = 000536 #12-341
HRLES = 000537 #12-342
HRLI = 000505 #12-316
HRLM = 000506 #12-317
HRLO = 000524 #12-331
HRLOI = 000525 #12-332
HRLOM = 000526 #12-333
HRLOS = 000527 #12-334
HRLS = 000507 #12-318
HRLZ = 000514 #12-323
HRLZI = 000515 #12-324
HRLZM = 000516 #12-325
HRLZS = 000517 #12-326
HRR = 000540 #12-343
HRRE = 000570 #12-367
HRREI = 000571 #12-368
HRREM = 000572 #12-369
HRRES = 000573 #12-370
HRRI = 000541 #12-344
HRRM = 000542 #12-345
HRRO = 000560 #12-359
HRROI = 000561 #12-360
HRROM = 000562 #12-361
HRROS = 000563 #12-362
HRRS = 000543 #12-346
HRRZ = 000550 #12-351
HRRZI = 000551 #12-352
HRRZM = 000552 #12-353
HRRZS = 000553 #12-354
I = 000000 #98-107 98-107 #98-108 98-108 #98-109 98-109 #98-110 98-110 #98-113
98-113 #99-137 99-137 #99-138 99-138 #99-139 99-139 #99-140 99-140
#99-141 99-141 #99-142 99-142 #99-143 99-143 #99-144 99-144 #99-145
99-145 #99-146 99-146 #99-147 99-147 #99-153 99-153
IBP = 000133 #12-74
IDIV = 000230 #12-135
IDIVB = 000233 #12-138
IDIVI = 000231 #12-136
IDIVM = 000232 #12-137
IDPB = 000136 #12-77
ILDB = 000134 #12-75
IMUL = 000220 #12-127
IMULB = 000223 #12-130
IMULI = 000221 #12-128
IMULM = 000222 #12-129
INIDMA = ****** GX 96-27
INIMAB = ****** GX 104-326
INTMOD = ****** GX 101-238 105-371 105-409 105-411 105-413
IOR = 000434 #12-271
IORB = 000437 #12-277
IORI = 000435 #12-273 99-142 99-142
IORM = 000436 #12-275
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
JFCL = 000255 #12-155
JFFO = 000243 #12-146
JRA = 000267 #12-166
JRST = 000254 #12-154 98-109 98-109 99-145 99-145 99-146 99-146 99-153 99-153
JSA = 000266 #12-165
JSP = 000265 #12-164
JSR = 000264 #12-163
JUMP = 000320 #12-191
JUMPA = 000324 #12-195
JUMPE = 000322 #12-193
JUMPG = 000327 #12-198
JUMPGE = 000325 #12-196
JUMPL = 000321 #12-192
JUMPLE = 000323 #12-194
JUMPN = 000326 #12-197
LDAR = 000077 #55-125
LDB = 000135 #12-76
LSBRTN = 000001 #3-58
LSBSRL = 000744 #44-209
LSH = 000242 #12-145 99-140 99-140
LSHC = 000246 #12-149
LSTALL = ****** 12-455 39-1601 40-2 51-493 95-3
LSTDIA = ****** 51-494
LSTMAC = ****** 12-455 39-1601 40-2 51-493
LSTMB = 000001 #3-57 95-3
LUBSRL = 000600 #44-210
MABADC = ****** GX *105-417
MABDET 001546 RG 8-263 #104-323
MABINT = ****** GX *105-414
MABPAD 001614 R 104-328 104-330 #104-354
MABRD = ****** GX 104-324 *104-337
MABRUL 002104 R 105-379 105-397 #106-447
MABSA = ****** GX *105-405
MABSIZ = ****** GX *105-425
MACTN = 000001 #43-154
MAP = 000257 #12-158
MAXCN = 000037 #43-152 110-660
MBCTN = 000003 #43-155
MBOKLG = ****** 4-100 8-256
MBROOT = ****** 3-7 5-158
MCOUNT = ****** GX *110-662 *110-674
MFCTN = 000005 #43-166
MNBRCN = 000036 #43-171
MNMFCN = 000010 #43-167 44-181 44-182 44-183
MNMXCN = 000006 #43-163
MNM.CN = 000000 #43-156
MNTITF = 000040 #40-31
MODELB = ****** GX 96-55 *110-641
MOVE = 000200 #12-111 98-107 98-107 98-110 98-110 99-147 99-147
MOVEI = 000201 #12-112
MOVEM = 000202 #12-113
MOVES = 000203 #12-114
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
MOVM = 000214 #12-123
MOVMI = 000215 #12-124
MOVMM = 000216 #12-125
MOVMS = 000217 #12-126
MOVN = 000210 #12-119
MOVNI = 000211 #12-120
MOVNM = 000212 #12-121
MOVNS = 000213 #12-122
MOVS = 000204 #12-115
MOVSI = 000205 #12-116
MOVSM = 000206 #12-117
MOVSS = 000207 #12-118
MSAMSZ = 000140 #44-181
MSSCTL = ****** 3-9 8-268
MSTROS = ****** GX *110-645
MUL = 000224 #12-131
MULB = 000227 #12-134
MULI = 000225 #12-132
MULM = 000226 #12-133
MXBRCN = 000037 #43-172
MXCTN = 000004 #43-162
MXMFCN = 000017 #43-168 44-181 44-182 44-183
MXMXCN = 000007 #43-164
MXM.CN = 000003 #43-157
OR = 000434 #12-272
ORB = 000437 #12-278
ORCA = 000454 #12-291
ORCAB = 000457 #12-294
ORCAI = 000455 #12-292
ORCAM = 000456 #12-293
ORCB = 000470 #12-303
ORCBB = 000473 #12-306
ORCBI = 000471 #12-304
ORCBM = 000472 #12-305
ORCM = 000464 #12-299
ORCMB = 000467 #12-302
ORCMI = 000465 #12-300
ORCMM = 000466 #12-301
ORI = 000435 #12-274
ORM = 000436 #12-276
PAG = 000010 #12-451
PI = 000004 #12-450 55-128 55-132
POP = 000262 #12-161
POPJ = 000263 #12-162
PUSH = 000261 #12-160
PUSHJ = 000260 #12-159
PXCT = 000256 #12-156
QXCT1 = ****** GX 100-176
RAS = 040000 #44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201
RDERA0 = ****** GX 98-93
REAPWD = ****** GX 101-199
RELEAS = ****** 12-454 39-1600 40-1 51-492 95-1 95-2 98-106 98-114 99-136
99-150 105-393 106-469 107-514 110-658
ROT = 000241 #12-144
ROTC = 000245 #12-148
RST.5 = ****** GX 102-265 110-700
RS0RS1 = 000010 #44-182
RS0TN0 = 000020 #44-183
RUNPRG = ****** GX 97-65 97-71
R$$20F = 000001 #3-48 44-187 49-469 96-24 97-63 97-65 97-71 97-79 97-80
98-93 98-106 98-114 99-120 99-121 99-125 99-126 99-128 99-129
99-136 99-150 100-159 100-160 100-176 100-178 100-179 100-182 100-183
100-183 100-188 100-188 101-199 101-200 102-252 102-264 102-289 104-323
104-328 104-330 110-638 110-646 110-661 110-665 110-705
R5.PC = ****** GX 105-392
SAV.5 = ****** GX 96-50 104-354 110-635
SBDT = ****** GX 110-665
SBUS = 100000 #26-1126 99-120 100-159 102-264 110-661
SECLK = 000003 #55-118
SETA = 000424 #12-263
SETAB = 000427 #12-266
SETAI = 000425 #12-264
SETAM = 000426 #12-265
SETCA = 000450 #12-287
SETCAB = 000453 #12-290
SETCAI = 000451 #12-288
SETCAM = 000452 #12-289
SETCM = 000460 #12-295
SETCMB = 000463 #12-298
SETCMI = 000461 #12-296
SETCMM = 000462 #12-297
SETM = 000414 #12-255
SETMB = 000417 #12-258
SETMI = 000415 #12-256
SETMM = 000416 #12-257
SETMR = 000007 #55-121
SETO = 000474 #12-307
SETOB = 000477 #12-310
SETOI = 000475 #12-308
SETOM = 000476 #12-309
SETRUN = 000011 #55-123
SETZ = 000400 #12-240
SETZB = 000403 #12-246
SETZI = 000401 #12-242
SETZM = 000402 #12-244
SKIP = 000330 #12-199
SKIPA = 000334 #12-203
SKIPE = 000332 #12-201
SKIPG = 000337 #12-206
SKIPGE = 000335 #12-204
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SKIPL = 000331 #12-200
SKIPLE = 000333 #12-202
SKIPN = 000336 #12-205
SOJ = 000360 #12-223
SOJA = 000364 #12-227
SOJE = 000362 #12-225
SOJG = 000367 #12-230
SOJGE = 000365 #12-228
SOJL = 000361 #12-224
SOJLE = 000363 #12-226
SOJN = 000366 #12-229
SOS = 000370 #12-231
SOSA = 000374 #12-235
SOSE = 000372 #12-233
SOSG = 000377 #12-238
SOSGE = 000375 #12-236
SOSL = 000371 #12-232
SOSLE = 000373 #12-234
SOSN = 000376 #12-237
SRI8MB = ****** 104-331 105-393 105-400 105-426
SSCLK = 000002 #55-117
STPCLK = 000000 #55-115
STRCLK = 000001 #55-116 96-51 98-101 100-162 110-637
SUB = 000274 #12-171
SUBB = 000277 #12-174
SUBI = 000275 #12-172
SUBM = 000276 #12-173
SXCT = 000106 #12-54 98-113 98-113 99-139 99-139
TADR = 000010 #36-1491
TBN = 000004 #36-1490
TCN = 000001 #36-1488
TDC = 000650 #12-415
TDCA = 000654 #12-419
TDCE = 000652 #12-417
TDCN = 000656 #12-421
TDN = 000610 #12-383
TDNA = 000614 #12-387
TDNE = 000612 #12-385
TDNN = 000616 #12-389
TDO = 000670 #12-431
TDOA = 000674 #12-435
TDOE = 000672 #12-433
TDON = 000676 #12-437
TDZ = 000630 #12-399
TDZA = 000634 #12-403
TDZE = 000632 #12-401
TDZN = 000636 #12-405
TGN = 000002 #36-1489
TIMFS = 000044 #40-32
TLC = 000641 #12-408
TLCA = 000645 #12-412
TLCE = 000643 #12-410
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 12
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TLCN = 000647 #12-414
TLN = 000601 #12-376
TLNA = 000605 #12-380
TLNE = 000603 #12-378
TLNN = 000607 #12-382
TLO = 000661 #12-424
TLOA = 000665 #12-428
TLOE = 000663 #12-426
TLON = 000667 #12-430
TLZ = 000621 #12-392
TLZA = 000625 #12-396
TLZE = 000623 #12-394
TLZN = 000627 #12-398
TRC = 000640 #12-407
TRCA = 000644 #12-411
TRCE = 000642 #12-409
TRCN = 000646 #12-413
TRN = 000600 #12-375
TRNA = 000604 #12-379
TRNE = 000602 #12-377 99-144 99-144
TRNN = 000606 #12-381
TRO = 000660 #12-423
TROA = 000664 #12-427
TROE = 000662 #12-425
TRON = 000666 #12-429
TRPAR = 010000 #44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203
TRZ = 000620 #12-391
TRZA = 000624 #12-395
TRZE = 000622 #12-393
TRZN = 000626 #12-397
TSC = 000651 #12-416
TSCA = 000655 #12-420
TSCE = 000653 #12-418
TSCN = 000657 #12-422
TSN = 000611 #12-384
TSNA = 000615 #12-388
TSNE = 000613 #12-386
TSNN = 000617 #12-390
TSO = 000671 #12-432
TSOA = 000675 #12-436
TSOE = 000673 #12-434
TSON = 000677 #12-438
TSTCON = ****** GX *96-52 *104-327 *104-329 104-355 *110-664
TSZ = 000631 #12-400
TSZA = 000635 #12-404
TSZE = 000633 #12-402
TSZN = 000637 #12-406
TYPNUM = ****** GX 104-357 105-373 *110-672
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 13
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
UFA = 000130 #12-71
UNDCTN = 000007 #43-174 110-675 110-677
WENABL = 004000 #44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204
X = 000003 #98-107 98-107 #98-108 98-108 #98-109 98-109 #98-110 98-110 #98-111
98-111 #98-113 98-113 #99-137 99-137 #99-138 99-138 #99-139 99-139
#99-140 99-140 #99-141 99-141 #99-142 99-142 #99-143 99-143 #99-144
99-144 #99-145 99-145 #99-146 99-146 #99-147 99-147 #99-153 99-153
#102-286 102-286 #102-287 102-287 #106-452 106-452 106-452 #106-453 106-453
106-453 #106-454 106-454 106-454 #106-455 106-455 106-455 #106-456 106-456
106-456 #106-457 106-457 106-457 #106-458 106-458 106-458 #106-459 106-459
106-459 #106-460 106-460 106-460 #106-461 106-461 106-461 #106-462 106-462
106-462 #106-463 106-463 106-463 #106-464 106-464 106-464 #106-465 106-465
106-465 #106-466 106-466 106-466 #106-467 106-467 106-467 #106-476 106-476
106-476 #106-477 106-477 106-477 #106-478 106-478 106-478 #106-479 106-479
#106-479 106-479 #106-480 106-480 106-480 #106-481 106-481 106-481 #106-482
106-482 106-482 #106-483 106-483 106-483 #106-484 106-484 106-484 #106-485
106-485 106-485 #106-486 106-486 106-486 #106-487 106-487 106-487 #106-488
106-488 #106-488 106-488 #106-489 106-489 106-489 #106-490 106-490 106-490
#106-491 106-491 #106-491 106-491 #107-497 107-497 107-497 #107-498 107-498
107-498 #107-499 107-499 107-499 #107-500 107-500 107-500 #107-501 107-501
107-501 #107-502 107-502 107-502 #107-503 107-503 107-503 #107-504 107-504
107-504 #107-505 107-505 107-505 #107-506 107-506 107-506 #107-507 107-507
107-507 #107-508 107-508 107-508 #107-509 107-509 107-509 #107-510 107-510
107-510 #107-511 107-511 107-511 #107-512 107-512 107-512 #107-521 107-521
107-521 #107-522 107-522 107-522 #107-523 107-523 107-523 #107-524 107-524
#107-524 107-524 #107-525 107-525 107-525 #107-526 107-526 107-526 #107-527
107-527 107-527 #107-528 107-528 107-528 #107-529 107-529 107-529 #107-530
107-530 107-530 #107-531 107-531 107-531 #107-532 107-532 107-532 #107-533
107-533 #107-533 107-533 #107-534 107-534 107-534 #107-535 107-535 107-535
#107-536 107-536 #107-536 107-536
XCT = 000256 #12-157
XDV = 000000 #98-108 98-108 98-108 #99-137 99-137 99-137 #99-138 99-138 99-138
#99-141 99-141 99-141
XMAL = ****** GX *96-54 *97-83 101-217
XOP = 000006 #98-108 98-108 98-108 #99-137 99-137 99-137 #99-138 99-138 99-138
#99-141 99-141 99-141
XOR = 000430 #12-267
XORB = 000433 #12-270
XORI = 000431 #12-268
XORM = 000432 #12-269
XR = 000000 #98-107 98-107 #98-108 98-108 #98-109 98-109 #98-110 #98-110 98-110
#98-113 98-113 #99-137 99-137 #99-138 99-138 #99-139 99-139 #99-140
99-140 #99-141 99-141 #99-142 99-142 #99-143 99-143 #99-144 99-144
#99-145 99-145 #99-146 99-146 #99-147 #99-147 99-147 #99-153 99-153
XXWD = ****** GX *98-95 98-96
XX1 = ****** GX 98-93 110-638
$APRID = 000000 #55-129
$BRST = 000001 #44-189
$CNTSD = 000001 #100-179
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 14
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$CONDE = 000001 #8-253 109-622
$CONEX = ****** 49-469
$CTFMT = ****** 107-554
$DDFWR = ****** GX 100-161
$DDFXC = ****** GX 96-51 98-101 100-162 110-637
$DMADE = 000001 #8-249 95-14
$DMPAC = 070010 #12-10
$DPOST = ****** GX 99-125 99-128
$EB = 000530 R #98-106 98-114 #99-136 99-150
$EVENT = 000001 #44-190
$EXAMD = ****** GX 97-67 100-187
$EXAMT = ****** GX 101-199
$EXCT = ****** GX 97-73
$FATAL = ****** GX 101-227
$FIND = 000001 #44-188
$GETCT = 070020 #12-12
$IND36 = 000003 #28-1177
$KLMR = ****** GX 96-51 98-101 110-637
$KL10A = 000101 #41-61
$KL10B = 000102 #41-62
$LOADA = 000001 #97-63 #99-121 #100-178 #100-182
$MABDE = 000001 #8-250 103-314
$MABPA = 000001 #8-251 104-340
$PATCH = 070004 #12-9
$QXCT = 000001 #100-176
$RDERA = 000000 #55-131
$RELOA = 000001 #28-1175
$RESET = 000001 #99-120 #100-159 #102-264 #110-661
$RSTAC = 070030 #12-14
$RUN = 000001 #97-65 #97-71
$SAVAC = 070024 #12-13
$SBDIA = 000002 #55-127 99-137
$SDW = 000002 #28-1176
$SIZ16 = 033061 #41-64
$SIZ32 = 031063 #41-65
$SIZ4K = 032060 #41-63
$SIZ64 = 032066 #41-66
$STEP = 000001 #44-191
$TB = 000001 #98-106 #99-136
$TIMLP = 070014 #12-11
$TL = 000013 #98-114 #99-150
$TTBEL = ****** GX 97-81
$TTDMS = ****** GX 97-79 102-253
$XX = 000001 #98-93 #110-638
$$APRI = 000000 #55-130
$$NARG = 000001 #97-63 97-63 97-63 #99-121 99-121 99-121 #100-178 100-178 100-178
#100-182 100-182 100-182
$$RDER = 000004 #55-132
$$SBDI = 000004 #55-128 99-137
$10BC = 070040 #12-16
$10BP = 070034 #12-15
$10MB = 070050 #12-18
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 15
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$10RB = 070044 #12-17
.RESET = ****** GX 99-120 100-159 102-264 110-661
.SBDIA = 000001 #110-665
.WORK = ****** GX 97-67 97-67 100-187 100-187
... = 000377 #12-25
...... = 177777 #12-24
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 16
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ACBLK #20-787
BLK10 #29-1207 98-106 99-136
BP. #13-482
BRST #18-716
BTOFIX #47-336
BURST #68-556
CABTE #46-291
CALL #53-38
CALLR #53-47
CALPAR #33-1363
CGOTO #16-617
CNTSD #33-1381 #100-179
CONDET #46-311 96-24 104-323
CONDMA #45-222
CONFIG #45-218
CONMAB #45-230
CONMOS #45-226
CONMX #47-354
CONTIN #14-552 #100-183 #100-188
COPYAC #31-1325
CTFMTC #46-307
DBESCN #46-287
DCNFBB #47-326
DFPC #67-526
DFRD #56-163
DFRDT #57-184
DFSCLK #66-516
DFWRT #58-225
DFWRTT #59-265 #100-161
DFXCT #60-304
DFXCTT #61-336 #100-162
DMADET #45-246
DOLOOP #22-907
DPD #45-258
DPOS #62-369
DPOST #63-409 #99-125 #99-128
DSOBAC #18-707
DTEBAS #69-570
ENBLPS #21-854
ENDBLK #29-1222 98-114 99-150
ENDLOO #21-878
ENDTIM #42-126
ERRCOM #50-487
ERRMSG #50-473
ERROR #50-479
EVENT #17-650
EXAM #64-448 97-67 100-187
EXAMT #65-494 101-199
EXCT #72-632 97-73
EXECUT #23-978 100-176
EXOR #54-99
EXP16K #47-364
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 17
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
FATAL #38-1590 #94-1291 101-227
FIND #17-669
FITMEM #45-238
FIXSB #47-340
FSD #25-1070
FSDCHK #26-1100
FSDMSK #25-1050
GBSRL #49-432
GETBBD #48-400
GETCMP #48-410
GETTF #46-283
GMCN #37-1522
ICEON #47-321
IND36 #28-1190
INIBSR #48-390
INIUDF #38-1583
INVAL #20-817
IO10 #30-1275 #98-108 #99-137 #99-138 #99-141
I10 #30-1252 98-107 98-109 98-110 98-113 99-139 99-140 99-142 99-143 99-144
99-145 99-146 99-147 99-153
JAB #37-1535
LDATIM #49-455
LDBESP #47-331
LDEFER #38-1594
LDFSDP #26-1095
LDFVR #46-271
LDNADR #46-267
LDREFR #46-279
LDTIMR #46-275
LOADAC #19-761 97-63 99-121 100-178 100-182
LODAR #70-601
LOOP #21-869
LOOPCO #22-896
LOOPDO #22-912
MABDET #46-295
MABL #27-1138
MABPAD #46-299 #104-328 #104-330
MASK36 #35-1445
MB #45-214
MBINI #46-315
MMRESP #45-262
MOSDET #45-250
MOSDMP #23-955
MRESET #75-723
MSKDAT #35-1474
MSK36R #35-1462
MXTADR #47-349
MX20MD #47-344
NUMARG #16-626 97-63 99-121 100-178 100-182
NUMTXT #16-608
OVRLOD #38-1576
PATERR #23-965
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 18
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
PBELL #89-1150 97-81
PCRLF #89-1158
PENDIS #36-1515
PFORCE #77-776 #97-78
PMSG #86-1059 102-253
PNORML #77-779 #97-82
PNTADR #79-834
PNTAL #87-1090
PNTAPR #36-1504
PNTBAK #77-782
PNTDEC #84-980
PNTNBR #80-861
PNTOCS #83-948
PNTOCT #82-916
PNTODT #85-1013
PNTVER #20-807
PNT36 #78-806
PNT36B #81-889
POP #4-95 #53-65 #97-63 #97-65 #97-71 #98-98 #99-120 #99-121 #100-159 #100-178
#100-182 #102-264 #110-661 #110-665
PSLASH #89-1146
PSPACE #89-1142
PTAB #89-1154
PUSH #4-89 #53-59
PWTES #20-827
RDPROM #45-254
READAC #31-1309
REGRST #76-760 #102-265 #110-700
REGSAV #76-756 96-50 110-635
REPCON #46-303
REPFIT #45-234
RESDET #45-242
RESET #26-1112 99-120 100-159 102-264 110-661
RETURN #53-51
RST.4 #32-1343
RST.5 #32-1354
RULE #106-441 106-452 106-453 106-454 106-455 106-456 106-457 106-458 106-459 106-460
106-461 106-462 106-463 106-464 106-465 106-466 106-467 106-476 106-477 106-478
106-479 106-480 106-481 106-482 106-483 106-484 106-485 106-486 106-487 106-488
106-489 106-490 106-491 107-497 107-498 107-499 107-500 107-501 107-502 107-503
107-504 107-505 107-506 107-507 107-508 107-509 107-510 107-511 107-512 107-521
107-522 107-523 107-524 107-525 107-526 107-527 107-528 107-529 107-530 107-531
107-532 107-533 107-534 107-535 107-536
RUN #15-565 97-65 97-71
R4.R5 #32-1347
R5.PC #32-1357 #105-392
SAV.4 #32-1339
SAV.5 #32-1351 #104-354
SBDIAG #24-1002 #110-665
SBSRL #49-416
SCAN #47-359
SETBBD #48-395
CORDET CREATED BY MACRO ON 17-SEP-79 AT 09:05 PAGE 19
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
SETCMP #48-405
SETPAR #33-1368
SETRAM #34-1422
SL #54-71 #101-242
SM #73-662 96-51 98-101 110-637
SMFSS #48-375
SOBAC #18-696
SR #54-85
STEP #19-733
STEP10 #17-639
STKEMD #36-1496
STKMEP #36-1482
STOPLO #22-887
STPCON #18-686
S10. #14-509
TBIT #14-535
TICK #42-94
TIMING #41-68
TIMSIG #40-43 #44-201 #44-202 #44-203 #44-204 #44-205 #44-206 #44-207
TTIDEC #91-1214
TTILIN #92-1240
TTILNW #93-1266
TTIOCT #90-1186
UMAC #37-1550
WD36 #29-1243 #98-111 #102-286 #102-287
WWADR #74-691
XO10 #29-1218
XX #33-1397 #98-93 #110-638
X10 #29-1214
$CNG #22-918
$DEF #4-84 #52-34 #52-36
$ENDLO #22-933
$LOOP #22-922
$PMSG #88-1111 #97-79
$PRADR #13-465
$RDG #22-927
$STOPL #22-930
.MAIN. MACRO M1110 17-SEP-79 09:10
TABLE OF CONTENTS
3- 1 ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
96- 7 DOUBLE BIT ERROR SCAN CONTROL ROUTINE
99- 99 MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
111- 681 SUBROUTINE TO DO DEFAULT INIT OF MF20 BITSUB RAM
112- 727 CONFIGURE A MOS BLOCK TO END OF 256K ADDRESS SPACE
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 1
1 177777 DBEOVL==-1
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 3
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
.SBTTL ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
2
3 .NLIST CND,BEX
4 .LIST MC,MD,MEB
5 .ENABL AMA
6
10 .TITLE DBEOVL -- MOS DOUBLE BIT ERROR SCAN OVERLAY
12
13 .REM %
14 THIS FILE CONTROLS THE ASSEMBLY OF THE 5 MEMORY BOOT OVERLAY MODULES.
15 WHICH ONE OF THE MODULES IS DETERMINED BY WHICH ONE OF 5 SYMBOLS IS DEFINED.
16 THE SYMBOLS ARE:
17
18 MBROOT, CORDET, MSSCTL, DBEOVL, OR FITCON.
19
20 THE SYMBOL SHOULD BE DEFINED IN THE ASSEMBLY CONTROL COMMAND USING THE /EQ:
21 SWITCH. ONE OTHER SYMBOL MAY BE DEFINED WITH THE EQUATE SWITCH: DEFINE "MBOKLG"
22 WHEN DOING AN R$$20F ASSEMBLY IN THE DIAGNOSTIC ENVIRONMENT. THIS SATISFIES
23 EXTERNAL REFERENCES BY EXPLCITLY DEFINING THOSE SYMBOLS.
24
25 THE OVERLAY STRUCTURE OF THE MEMORY BOOT IS SIMPLE: ONE ROOT MODULE,
26 MBROOT, WHICH LOADS ONE OF THE OTHER 4 MODULES UNDERNEATH IT AS NECESSARY. THE
27 TOTAL LENGTH OF OVERLAYS RESIDENT AT ANY ONE POINT IN TIME MUST BE LESS THAN
28 16000(OCTAL) BYTES, BUT IT IS PREFERABLE TO KEEP IT AROUND 14000 TO ALLOW FOR
29 EXPANSION. THE OVERLAY STRUCTURE IS SHOWN GRAPHICALLY BELOW:
30
31 MEMORY
32 16000
33 MAX
34 ! +-----------------------------------------------------------+
35 ! ! !
36 ! ! MBROOT (ROOT MODULE) !
37 ! ! !
38 ! +--------------+--------------+--------------+--------------+
39 ! ! ! ! ! !
40 ! ! CORDET ! MSSCTL ! DBEOVL ! FITCON !
41 V ! ! ! ! !
42 +--------------+--------------+--------------+--------------+
43
44 TIME --------->
45
46 %
47
48 000001 R$$20F=1 ; *****FORCE ASSEMBLY OF MEM BOOT IN FRONT-END MODE *****
49
50 ;-----DEFINE "CONMMR" TO AID IN MEMORY BOOT ERROR CHECKING. UNDEFINE IT
51 ; TO SAVE APPROXIMATELY 400(8) BYTES IN THE MEMORY BOOT ROOT MODULE. NOTE
52 ; THAT IF YOU UNDEFINE OR REDEFINE THIS THEN YOU MUST ALSO CHANGE THE POSITION
53 ; SUBROUTINE "MMRESP" IN THE FILE MBSUB.P11 SO THAT IT IS IN THE PROPER MODULE.
54 000001 CONMMR=1
55
56 ;-----LISTING CONTROL.
57 000001 LSTMB=1
58 000001 LSBRTN=1
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 4
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
60 ;-----SYMBOLS DEFINED TO GET RID OF UNDEFINED PROBLEMS. THESE SYMBOLS WOULD
61 ; NORMALLY COME FROM PRM11.P11.
62
63 000001 BIT0=1.
64 000002 BIT1=2.
65 000004 BIT2=4.
66 000010 BIT3=8.
67 000020 BIT4=16.
68 000040 BIT5=32.
69 000100 BIT6=64.
70 000200 BIT7=128.
71 000400 BIT8=256.
72 001000 BIT9=512.
73 002000 BIT10=1024.
74 004000 BIT11=2048.
75 010000 BIT12=4096.
76 020000 BIT13=8192.
77 040000 BIT14=16384.
78 100000 BIT15=32768.
79
80 001000 HALTLP= BIT9 ;EBOX IS IN HALT LOOP
81 004000 ERRSTP= BIT11 ;EBOX CLOCK STOPPED DUE TO ERROR
82
83 ;-----OTHER SYMBOLS DEFINED TO MAKE FLAGS GO AWAY.
84 .MACRO $DEF ;MAKE THE O FLAG GO AWAY ......
85 .ENDM
86
87 ;-----PUSH AND POP MACROS ARE GIVEN HERE JUST TO NEATEN UP THE LISTING SOME.
88
89 .MACRO PUSH A
90 .IRP B,<A>
91 MOV B,-(SP) ;PUSH B ON STACK
92 .ENDR
93 .ENDM
94
95 .MACRO POP A
96 .IRP B,<A>
97 MOV (SP)+,B ;POP STACK INTO B
98 .ENDR
99 .ENDM
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 10
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
305 ;-----THE FOLLOWING DEFINITIONS FORCE ASSEMBLY OF THE MEMORY BOOT SUBROUTINES
306 ; REQUIRED FOR THIS MODULE.
307
308 000001 $DBESCN=1
309 000001 $CABTE=1
310 000001 $LDBESP=1
311 000001 $MXTADR=1
312 000001 $INIBSR=1
313
314
320 ;-----THE FOLLOWING MEMORY BOOT LABELS ARE GLOBAL.
321
322 .GLOBL DBESCN
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 96
DOUBLE BIT ERROR SCAN CONTROL ROUTINE
7 .SBTTL DOUBLE BIT ERROR SCAN CONTROL ROUTINE
8
9 .REM %
10 DBESCN IS THE CONTROL ROUTINE FOR THE MF20 DOUBLE BIT ERROR SCAN. IT
11 JUST RUNS THE SUBROUTINES THAT DO THE REAL WORK, AND RECORDS THE RESULTS.
12 DBESCN RETURNS THE BAD BLOCK MAP IN R0. IF A BIT IS A 1 THEN THE BLOCK IS BAD.
13 BIT 0 CORRESPONDS TO BLOCK 0, ETC.
14 %
15
16 000000 DBESCN: SAV.5 ;SAVE REGS
000000 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
17 000004 INIBSR ;DO DEFAULT BITSUB RAM INIT
000004 004737 003446' JSR PC,INIBSR ;DO A DEFAULT INIT OF AN MF20'S BITSUB RAM
18 000010 LDBESP ;LOAD THE SCAN PROGRAM
000010 004737 000306' JSR PC,LDBESP ;LD DOUBLE BIT ERR SCAN AC PRGM
19 000014 SBDIAG 0000,0000,201 ;ENABLE THE CONTR, SS=0
000014 004537 000024' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
000020 000201 000000
000024 004737 000000G 64$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
000030 012605 MOV (SP)+,R5
20
21 ;-----INIT FOR BLOCK LOOP
22 000032 005004 CLR R4 ;INI BAD BLK MAP
23 000034 012703 000001 MOV #1,R3 ;INI BAD BLK BIT PTR
24 000040 012737 177777 000266' MOV #-1,BLKNO ;INI BLK #
25
26 ;-----TOP OF BLOCK LOOP
27 000046 005237 000266' 1$: INC BLKNO ;CALC NEXT BLOCK #
28 000052 013702 000266' MOV BLKNO,R2 ;GET NEW BLK #
29 000056 010237 000270' MOV R2,BIGN ;CALC BLOCK-IN-GROUP NUMBER
30 000062 042737 177774 000270' BIC #-4,BIGN
31 000070 020227 000014 CMP R2,#12. ;HAVE WE SCANNED ALL POSSIBLE BLOCKS?
32 000074 103070 BHIS 8$ ;YES...DONE WITH THIS MF20 CONTR
33 000076 004737 000000G JSR PC,BAF ;GET ADR OF 1ST SIZ BYTE
34 000102 060200 ADD R2,R0 ;CALC ADR OF SIZ BYT FOR BLK
35 000104 111002 MOVB (R0),R2 ;GET SIZ BYTE FOR CURRENT BLOCK
36 000106 001461 BEQ 7$ ;BLOCK DOESN'T EXIST...TRY NEXT ONE
37 000110 003004 BGT 2$
38 000112 FATAL NBS ;*** ERROR - NEG BLK SIZE ***
000112 004737 000000G JSR PC,$FATAL ; ** FATAL "NBS" ERROR
000116 116 102 123 .ASCIZ %NBS%
39 000122 2$: CABTE ;CONFIGURE THE BLOCK...SIZ BYT ADR IN R0
000122 004737 003616' JSR PC,CABTE ;CONFIGURE A MOS BLOCK TO END OF 256K ADR SPACE
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 97
DOUBLE BIT ERROR SCAN CONTROL ROUTINE
41
42 ;-----SET UP 36-BIT BLOCK START ADDRESS AND BLOCK SIZE WORDS. THESE ARE USED
43 ; DIRECTLY EXCEPT IF THE BLOCK HAS 64K RAMS. IN THIS CASE SINCE THE BLOCK FILLS
44 ; THE ENTIRE 256K ADDRESS SPACE WE CANNOT GET AT THE LOW ORDER 20 WORDS, WE
45 ; THEREFORE ADJUST THE START ADR TO 20 AND THE SIZE TO 256K-20.
46
47 000126 012705 000020 MOV #20,R5 ;CONSTANT IN R5 SAVES SPACE
48 000132 010500 MOV R5,R0 ;CALC WHAT START ADR SHD B WHEN BLK IS SHOVED UP
49 000134 160200 SUB R2,R0 ; AGAINST 256K.
50 000136 EXP16K ;EXPAND 16K FMT ST ADT TO 36-BIT FMT
000136 004737 000000G JSR PC,EXP16K ;EXPAND 16K FMT ADR IN R0 INTO 36 BITS IN REAPWD
51 000142 012701 000272' MOV #BLKADR,R1 ;ADR IN R1 SAVES SPACE
52 000146 012021 MOV (R0)+,(R1)+ ;PUT ADR WHERE NEEDED
53 000150 012021 MOV (R0)+,(R1)+
54 000152 005021 CLR (R1)+
55 000154 010200 MOV R2,R0 ;EXPAND 16K FMT BLK SIZ TO 36 BITS
56 000156 EXP16K
000156 004737 000000G JSR PC,EXP16K ;EXPAND 16K FMT ADR IN R0 INTO 36 BITS IN REAPWD
57 000162 012021 MOV (R0)+,(R1)+ ; (BLK SIZ TO 'BLKSIZ')
58 000164 011021 MOV (R0),(R1)+
59 000166 005011 CLR (R1)
60 000170 020205 CMP R2,R5 ;IS THIS A 256K BLOCK?
61 000172 103412 BLO 4$ ;NO.. NO CHANGES NECESSARY
62 000174 001404 BEQ 3$ ;YES.. ADJ ST ADR AND SIZ
63 000176 FATAL BTL ;FATAL ERROR.. BLOCK > 256K IN SIZE
000176 004737 000000G JSR PC,$FATAL ; ** FATAL "BTL" ERROR
000202 102 124 114 .ASCIZ %BTL%
64 000206 010537 000272' 3$: MOV R5,BLKADR ;SAY THAT BLOCK STARTS AT 20
65 000212 024141 CMP -(R1),-(R1) ;BAK UP SIZ WD PTR
66 000214 160521 SUB R5,(R1)+ ;ADJ 36 BIT SIZ WD BY -20
67 000216 005611 SBC (R1)
68
69 000220 4$: BTOFIX ;SPECIFY THE BLOCK WE ARE TESTING
000220 004737 000356' JSR PC,BTOFIX ;SET UP DBE SCAN PARAMS FOR BLK TO FIX
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 98
DOUBLE BIT ERROR SCAN CONTROL ROUTINE
71
72 ;-----TOP OF SUBBLOCK LOOP.
73 000224 005001 CLR R1 ;INI SUBBLOCK # TO TEST
74 000226 010100 5$: MOV R1,R0 ;SB# TO PARAM REG
75 000230 FIXSB ;TEST, FIX & RETEST IF NECESSARY
000230 004737 002074' JSR PC,FIXSB ;SCAN SUBBLK FOR DBE, PATCH, & RETEST
76 000234 103002 BCC 6$ ;BR IF SUB-BLOCK IS USABLE (EVEN WITH BIT-SWAPS)
77 000236 050304 BIS R3,R4 ;ELSE MARK BLOCK AS BAD
78 000240 000404 BR 7$ ;AND GO TEST NXT BLK
79 000242 005201 6$: INC R1
80 000244 020127 000004 CMP R1,#4 ;ALL SUBBLOCKS TESTED?
81 000250 002766 BLT 5$ ;LP IF NOT
82
83 ;-----BOTTOM OF BLOCK LOOP
84 000252 006303 7$: ASL R3 ;SHIFT BLK BIT PTR FOR NXT BLK
85 000254 000674 BR 1$ ;GO DO NEXT BLK
86
87 ;-----EXIT SECTION. PUT THE BAD BLOCK MAP WORD INTO R0, RESTORE REGS & RETURN.
88 000256 010400 8$: MOV R4,R0
89 000260 000241 CLC ;SAY NO ERROR
90 000262 R5.PC
000262 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
91
92 000266 000000 BLKNO: 0 ;4 BIT BLOCK NUMBER
93 000270 000000 BIGN: 0 ;2 BIT BLOCK-IN-GROUP NUMBER
94 000272 000000 000000 000000 BLKADR: 0,0,0 ;36-BIT BLOCK START ADR WHEN END ADR = 256K-1 (=20 FOR 256K BLK)
95 000300 000000 000000 000000 BLKSIZ: 0,0,0 ;36-BIT BLOCK SIZE (=256K-20 FOR 256K BLK)
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 99
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
99 .SBTTL MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
100
101 .REM %
102 LDBESP IS THE SUBROUTINE WHICH LOADS THE AC PROGRAM BELOW. THE PROGRAM
103 RESIDES IN AC BLOCKS 0-5.
104 %
105
106 000306 LDBESP: RESET CPU ;RESET BEFORE LOADING
000306 004537 000314' JSR R5,64$ ;SAV R5, PT TO & SKIP CPU LIST
000312 000200 .WORD CPU
000314 004737 000000G 64$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
000320 012605 MOV (SP)+,R5
107 000322 MABL <DBESM0,DBESM1,DBESM2,DBESM3,DBESM4,DBESM5>,DBESAC
000322 004537 000346' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
000326 000077 001066' .WORD X,DBESAC ;AC BLOCK MASK & INITIAL 11 ADR OF 10 DATA
000332 037774 .WORD DBESM0 ;AC LOAD MASK(S)
000334 037777 .WORD DBESM1 ;AC LOAD MASK(S)
000336 177770 .WORD DBESM2 ;AC LOAD MASK(S)
000340 036777 .WORD DBESM3 ;AC LOAD MASK(S)
000342 177537 .WORD DBESM4 ;AC LOAD MASK(S)
000344 007770 .WORD DBESM5 ;AC LOAD MASK(S)
000346 004737 000000G 65$: JSR PC,MABL ;LD AC PRGM, NO ST ADR GIVEN
000352 012605 MOV (SP)+,R5
108 000354 000207 RTS PC
110
111 .REM %
112 BTOFIX IS CALLED EACH TIME A NEW MOS BLOCK IS TO BE TESTED. IT SETS UP
113 THE NECESSARY CONTROLLER, GROUP, AND BLOCK RELATED PARAMETERS AND LOADS THOSE
114 ACS WHICH NEED TO BE LOADED. IT ASSUMES: (1) THAT THE AC PROGRAM IS LOADED AND
115 THAT (2) IT IS CALLED FROM INSIDE AN "ALLBLK" LOOP AS IT USES PARAMETERS CREATED
116 BY ALLBLK.
117 %
118
119 000356 BTOFIX: SAV.5
000356 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
120 ;-----CONTROLLER RELATED DATA INIT.
121 000362 013700 000000G MOV TSTCON,R0 ;GET CONTR #
122 000366 020037 000000G CMP R0,BTFLCN ;SAME CONTR AS LAST TIME?
123 000372 001441 BEQ 1$ ;YES...DON'T DO THIS SECTION
124 000374 010037 000000G MOV R0,BTFLCN ;ELSE SAV NEW CONTR #
125 000400 006300 ASL R0 ;CREATE LH OF F0 CLR 0-5 IN DBECNR RH
126 000402 005200 INC R0 ; CLR 0-5 BIT
127 000404 004737 000000G JSR PC,ASL0.4
128 000410 012701 001233' MOV #DBECNR+1,R1
129 000414 110021 MOVB R0,(R1)+ ; BITS 20-23
130 000416 000300 SWAB R0 ; BITS 18-19
131 000420 142711 000003 BICB #3,(R1)
132 000424 150011 BISB R0,(R1)
133 000426 CNTSD DBECNL ;CONTR # TO LH OF 2 OTHER WDS
000426 012700 001263' MOV #DBECNL,R0 ;PT TO SBDIAG WD
000432 004737 000000G JSR PC,CNTSD1 ;CONTR # TO SBDIAG WD (ADDR IN R0)
134 000436 CNTSD DBEMIP
000436 012700 001720' MOV #DBEMIP,R0 ;PT TO SBDIAG WD
000442 004737 000000G JSR PC,CNTSD1 ;CONTR # TO SBDIAG WD (ADDR IN R0)
135 000446 ACBLK 1 ;RELOAD CONTR DEPENDENT WORDS
000446 012700 000001 MOV #1,R0 ;AC BLK # TO R0
000452 004737 000000G JSR PC,ACBLK1 ;SWITCH TO AC BLK
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 99-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
136 000456 LOADAC ACC10+ACC15,<DBECNR,DBECNL>
000456 004537 000470' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
000462 020400 .WORD ACC10+ACC15 ;LOAD MASK
000464 001232' 001263' .WORD DBECNR,DBECNL ;PDP11 MEM ADR(S)
000470 004737 000000G 64$: JSR PC,ACSCAT ;LD ACS FROM SCATTERED 11 ADRS
000474 012605 MOV (SP)+,R5
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 100
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
138 ;-----GROUP RELATED DATA INIT.
139 000476 005737 000270' 1$: TST BIGN ;IS THIS BLOCK 0 OF THE GROUP?
140 000502 001053 BNE 2$ ;NO...ASSUME DATA ALREADY SET UP
141 000504 012701 000272' MOV #BLKADR,R1 ;MOVE FIRST ADR IN BLK
142 000510 012702 001100' MOV #DBETSA,R2 ; TO FWD DIR ST ADR WD
143 000514 012703 001725' MOV #DBEMIA,R3 ; & TO MEM INIT CNT WD ALSO
144 000520 111122 MOVB (R1),(R2)+
145 000522 112123 MOVB (R1)+,(R3)+
146 000524 111122 MOVB (R1),(R2)+
147 000526 112123 MOVB (R1)+,(R3)+
148 000530 142712 000003 BICB #3,(R2)
149 000534 151112 BISB (R1),(R2)
150 000536 111113 MOVB (R1),(R3)
151 000540 152713 177774 BISB #-4,(R3)
152
153 000544 013700 000300' MOV BLKSIZ,R0 ;CALC (BLKSIZ)/4
154 000550 013701 000302' MOV BLKSIZ+2,R1
155 000554 006201 ASR R1
156 000556 006000 ROR R0
157 000560 006201 ASR R1
158 000562 006000 ROR R0
159 000564 110037 001105' MOVB R0,DBENWT ;USE IT TO SET UP LOOP COUNT
160 000570 000300 SWAB R0
161 000572 110037 001106' MOVB R0,DBENWT+1
162 000576 RESET CPU ;RESET MACHINE & GO TO ACBLK 0
000576 004537 000604' JSR R5,65$ ;SAV R5, PT TO & SKIP CPU LIST
000602 000200 .WORD CPU
000604 004737 000000G 65$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
000610 012605 MOV (SP)+,R5
163 000612 DPOST AC5,DBENWT ; & LD LP CNT INI INSTR
000612 012700 000005 MOV #AC5,R0 ; ** ADDRESS TO R0
000616 010146 MOV R1,-(SP) ; ** SAVE R1
000620 012701 001105' MOV #DBENWT,R1 ; ** DBENWT POINTER TO R1
000624 004737 000000G JSR PC,$DPOST ; ** EXECUTE THE DEPOSIT
000630 012601 MOV (SP)+,R1 ; ** RESTORE R1
165
166 ;-----DO BLOCK RELATED DATA SETUP.
167 000632 013700 000266' 2$: MOV BLKNO,R0 ;GET 4-BIT BLK #
168 000636 004737 000000G JSR PC,ASL0.3 ;POSITION & PUT INTO F7 WD ADR FIELD
169 000642 110037 002067' MOVB R0,DBEF7A
170 000646 112737 177777 002073' MOVB #-1,UCEFIB ;IND NO UNCORRECTABLE ERRS FOUND IN BLK YET
171 000654 004737 000664' JSR PC,DBESMI ;INIT ALL MOS RAM WDS IN BLK...CLR ERRS
172 000660 R5.PC ;DONE
000660 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
174
175 ;-----THIS ROUTINE INITS THE MOS RAMS IN THE BLOCK BY LOADING AN OVERLAY TO
176 ; ACBLK 5 AND RUNNING IT.
177 000664 DBESMI: ACBLK 5
000664 012700 000005 MOV #5,R0 ;AC BLK # TO R0
000670 004737 000000G JSR PC,ACBLK1 ;SWITCH TO AC BLK
178 000674 023727 000272' 000020 DBESMQ: CMP BLKADR,#20 ;IS THIS A 256K BLOCK?
179 000702 001037 BNE 1$ ;NO.. NO NEED TO CAUSE SPECIAL SHADOW MEM CLR
180 000704 LOADAC DBESMM,DBESMP ;LOAD SHADOW MEM INIT PROGRAM
000704 004537 000714' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
000710 170002 .WORD DBESMM ;LOAD MASK
000712 001667' .WORD DBESMP ;PDP11 MEM ADR(S)
000714 004737 000000G 64$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 100-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
000720 012605 MOV (SP)+,R5
182 000722 DFWRTT 2$,76 ;SET FORCE EXTENDED ADRG (NOP ON MOD A)
000722 012700 000076 MOV #76,R0 ; ** FUNCTION WRITE CODE TO R0
000726 010146 MOV R1,-(SP) ; ** SAVE R1
000730 012701 001060' MOV #2$,R1 ; ** BUFFER POINTER TO R1
000734 004737 000000G JSR PC,$DDFWR ; ** EXECUTE THE FUNCTION WRITE
000740 012601 MOV (SP)+,R1 ; ** RESTORE R1
183 000742 DFXCTT STRCLK ;RESTART CLK
000742 012700 000001 MOV #STRCLK,R0 ; ** FUNCTION CODE TO R0
000746 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
189 000752 RUN AC14
000752 004537 000760' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
000756 000014 .WORD AC14 ;STARTING ADR
000760 004737 000000G 65$: JSR PC,RUNPRG ;RUN PRGM 1 TIC USING GIVEN PC
000764 012605 MOV (SP)+,R5
190 000766 RESET CPU ;SHUT OFF FORCE EXTNDED ADR
000766 004537 000774' JSR R5,66$ ;SAV R5, PT TO & SKIP CPU LIST
000772 000200 .WORD CPU
000774 004737 000000G 66$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
001000 012605 MOV (SP)+,R5
191 001002 1$: LOADAC DBEO5M,DBEMIP
001002 004537 001012' JSR R5,67$ ;SAV R5, PT TO & SKIP ARG LIST
001006 170005 .WORD DBEO5M ;LOAD MASK
001010 001720' .WORD DBEMIP ;PDP11 MEM ADR(S)
001012 004737 000000G 67$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
001016 012605 MOV (SP)+,R5
192 001020 DPOST AC1,INDEPR ;INITIAL MEM PTRN TO AC1
001020 012700 000001 MOV #AC1,R0 ; ** ADDRESS TO R0
001024 010146 MOV R1,-(SP) ; ** SAVE R1
001026 012701 001756' MOV #INDEPR,R1 ; ** INDEPR POINTER TO R1
001032 004737 000000G JSR PC,$DPOST ; ** EXECUTE THE DEPOSIT
001036 012601 MOV (SP)+,R1 ; ** RESTORE R1
194 001040 RUN AC14,10
001040 004537 001050' JSR R5,68$ ;SAV R5, PT TO & SKIP ARG LIST
001044 000007 .WORD 10-1 ;# 60 CYC CLK TICKS TO RUN PRGM (-1)
001046 000014 .WORD AC14 ;STARTING ADR
001050 004737 000000G 68$: JSR PC,RUNBIG ;RUN PRGM N TICS USING GIVEN PC
001054 012605 MOV (SP)+,R5
195 001056 000207 RTS PC
196
197 001060 2$: WD36 0000,0000,0400 ;WD FOR DFWR TO FORCE EXTENDED ADRG
001060 000 001 000
001063 000 000
198 .EVEN
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 101
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
200 .REM %
201 THIS IS THE AC PROGRAM WHICH SCANS FOR DOUBLE BIT ERRORS (DBE) AND
202 RECORDS THEM. ACBLK 0 DOES A SIMPLE READ/WRITE MARCH TEST IN ONE DIRECTION ONLY
203 CHANGING ONE PATTERN (APAT) TO ANOTHER (BPAT). THE PDP-11 MAY CHANGE THE
204 DIRECTION, LENGTH, AND DATA OF THE SCAN AS REQUIRED. EVERY FOURTH WORD IS
205 TESTED WHICH CONFINES THE MARCH TO A PARTICULAR SUBBLOCK (AS DEFINED BY ADR
206 34-35). THE TEST REMAINS IN AC BLOCK 0 UNTIL AN ERROR IS DETECTED, WHEREUPON IT
207 GOES THROUGH AC BLOCKS 1-5 (IN THAT ORDER) TO DECIPHER THE ERROR. ANYTHING
208 OTHER THAN A DOUBLE BIT ERROR (DBE) WILL CAUSE AN IMMEDIATE HALT. CORRECTABLE
209 ERRORS ARE ASSUMED TO BE IGNORED, THEREFORE WE SHOULD NEVER SEE ONE.
210 THE PURPOSE OF ALL THIS IS TO FIND WHERE DBE'S OCCUR IN A WAY THAT
211 ALLOWS US TO SUBSTITUTE FOR ONE OF THE 2 BAD BITS. IN THIS MANNER WE CAN
212 ELIMINATE (MAYBE) DBE'S. BECAUSE ONE OF THE ADDRESS INPUTS TO THE BITSUB RAM IS
213 ADDRESS BIT 33 WE ALSO BREAKDOWN THE ERRORS ACCORDING TO ADR 33. THE NATURE OF
214 THE SUBSTITUTION IS SUCH THAT IF WE HAVE MORE THAN 2 DBE'S FOR EACH VALUE OF ADR
215 33, THEN ONE BAD BIT OF EACH DBE MUST BE THE SAME OR WE CANNOT SUBSTITUTE. IF
216 THIS HAPPENS WE STOP.
217 %
218
219 ;-----AC BLOCK 0 DOES A SIMPLE MARCH TEST ACCORDING TO THE PARAMETERS SET UP
220 ; BY THE PDP-11. CONTROL REMAINS IN THIS ACBLK UNTIL AN ERROR IS DETECTED AT
221 ; WHICH POINT CONTROL GOES TO ACBLK 1.
222 001066 BLK10
223 001066 DBESAC: ;0-LOOP COUNT
224 ;1-WD FROM MEM GOES HERE
225 001066 WD36 0201,0000,0007 ;2-BYTE PTR FOR ADR BIT 33
001066 007 000 000
001071 201 000
226 001073 WD36 4012,0000,0000 ;3-DATAO PAG WD
001073 000 000 000
001076 012 010
227 001100 DBETSA: I10 HRRI,7,,600000 ;4-<START> INI TEST START ADR <DIRECTION
001100 000 000 203
001103 013 013
228 001105 DBENWT: I10 MOVEI,0,,40000 ;5-INI # WDS TO TEST <GROUP
001105 000 100 000
001110 010 004
229 001112 I10 MOVE,1,,17 ;6-BPAT TO AC FOR EXCH WITH APAT IN MEM
001112 017 000 200
001115 000 004
230 001117 I10 EXCH,1,,000000 ;7-RD & SAV APAT FROM MEM, WR BPAT
001117 000 000 200
001122 100 005
231 001124 I10 CAMN,1,,16 ;10-SKIP IF WE GOT BAD DATA
001124 016 000 200
001127 160 006
232 001131 IO10 CONSZ,APR,,7700 ;11-SKIP IF NO ERR DETECTED
001131 300 017 000
001134 003 016
233 001136 IO10 DATAO,PAG,,3 ;12-HERE ON ERR...ANALYZE IN ACBLK 1
001136 003 000 200
001141 011 016
234 001143 DBEAA: I10 HRRI,7,,4,7 ;13-<FROM 6> NOW CALC NXT ADR TO TEST <DIRECTION
001143 004 000 234
001146 013 013
235 001150 I10 SOJG,0,,6 ;14-LP TIL ALL WDS TESTED
001150 006 000 000
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 101-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
001153 270 007
236 001155 I10 JRST,4,,0 ;15-<NORMAL HALT> MAY HAV FND DBE(S)
001155 000 000 000
001160 142 005
237 ;16-APAT PUT HERE BY 11 <DATA
238 ;17-BPAT PUT HERE BY 11 <DATA
239 037774 DBESM0=037774
240
241 ; NOTE: <DATA MEANS RELOAD WHEN CHANGING DATA PATTERNS. THE OTHER <NAME
242 ; FLAGS HAVE SIMILAR MEANINGS.
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 102
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
244 ;-----AC BLOCK 1 HALTS IF THE ERROR FLAGS INDICATE ANYTHING OTHER THAN A
245 ; DOUBLE BIT ERROR. OTHERWISE IT GETS THE LATCHED ECC, MOVES THAT ECC TO ACBLK
246 ; 2, AND CLEARS THE CONTROLLER'S ERROR FLAGS.
247 001162 WD36 4020,0000,0000 ;0-DATAO PAG WD
001162 000 000 000
001165 020 010
248 001167 I10 MOVSI,16,,770000,10 ;1-SET UP SBDIAG F0 WD IN AC16
001167 000 360 043
001172 057 004
249 001174 IO10 SBDIAG,,,16 ;2-DO IT TO FIND OUT WHAT HAPPENED
001174 016 000 000
001177 005 016
250 001201 I10 TLNN,17,,730000 ;3-SKIP IF OTHER THAN RD DATA ERR
001201 000 260 203
001204 077 014
251 001206 IO10 CONSZ,APR,,3300 ;4-SKIP IF NO UNEXPECTED APR FLAGS...OK
001206 300 006 000
001211 003 016
252 001213 I10 JRST,4,,1 ;5-<ERROR 1> UNEXPECTED ERROR TYPE
001213 001 000 000
001216 142 005
253 001220 IO10 SBDIAG,,,15 ;6-NOW RD THE LATCHED ECC FROM CONTR
001220 015 000 000
001223 005 016
254 001225 I10 PXCT,4,,14 ;7-MOV IT TO ACBLK 2
001225 014 000 000
001230 162 005
255 001232 DBECNR: I10 MOVSI,16,,010000 ;10-SET UP SBDIAG F0 CLR0-5 <CONTROLLER
001232 000 020 000
001235 057 004
256 001237 IO10 SBDIAG,,,16 ;11- & DO IT TO CLR ERR FLAGS
001237 016 000 000
001242 005 016
257 001244 IO10 DATAO,PAG,,0 ;12-GO TO ACBLK 2
001244 000 000 200
001247 011 016
258 001251 I10 JRST,,,1 ;13-<FROM 0>
001251 001 000 000
001254 140 005
259 001256 I10 HLLZM,16,,1 ;14-PXCTD TO PUT ECC IN ACBLK 2 AC1
001256 001 000 000
001261 127 012
260 001263 DBECNL: WD36 0000,0000,0006 ;15-SBDIAG F6.0 GETS LATCHED ECC <CONTROLLER
001263 006 000 000
001266 000 000
261 ;16-SCRATCH
262 ;17-SCRATCH, F0 ERR FLAGS HERE ON HALT 1
263 037777 DBESM1=037777
264
265 ;-----AC BLOCK 2 CREATES THE 43 BIT ERROR MAP (IN 2 WORDS) BY XOR'ING THE
266 ; EXPECTED DATA (APAT) AND ECC INTO THE ACTUAL. IT ALSO MAKES AN INDEX=(0,2)
267 ; BASED ON THE VALUE OF ADR 33 FOR LATER USE.
268 ;0-DATA BIT ERR MAP BUILT HERE
269 ;1-ECC BIT ERR MAP BUILT HERE (07-13)
270 ;2-ERR ADR BIT 33 PUT HERE IN BIT 34
271 001270 IO10 CONO,APR,,27700 ;3-CLR APR FLAGS FOR NXT TIM
001270 300 057 000
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 102-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
001273 002 016
272 001275 DBECEB: I10 TLC,1,,003760 ;4-CALC ECC ERR MAP BY XOR W/XPCTD ECC <DATA
001275 360 007 200
001300 010 015
273 001302 I10 TLZ,1,,774017 ;5-SHUT OFF OTHER GARBAGE
001302 017 370 203
001305 210 014
274 001307 I10 PXCT,4,,14 ;6-GET WD FROM MEM FROM ACBLK 0
001307 014 000 000
001312 162 005
275 001314 I10 PXCT,4,,15 ;7- & CREATE ERR MAP BY XOR WITH APAT
001314 015 000 000
001317 162 005
276 001321 I10 PXCT,7,,16 ;10-GET ERR ADR BIT 33
001321 016 000 200
001324 163 005
277 001326 I10 LSH,2,,1 ;11- & PUT IT INTO BIT 34 FOR USE AS NDX
001326 001 000 000
001331 021 005
278 001333 IO10 DATAO,PAG,,17 ;12-GO TO ACBLK 3
001333 017 000 200
001336 011 016
279 001340 I10 JRST,,,3 ;13-<FROM 1>
001340 003 000 000
001343 140 005
280 001345 I10 MOVE,0,,1 ;14-PXCTD TO GET MEM WD FROM ACBLK 0
001345 001 000 000
001350 000 004
281 001352 I10 XOR,0,,16 ;15-PXCTD TO CALC BIT DIFS
001352 016 000 000
001355 300 010
282 001357 I10 LDB,2,,2 ;16-PXCTD TO GET ERR ADR 33
001357 002 000 000
001362 351 002
283 001364 WD36 4032,0000,0000 ;17-DATAO PAG WD
001364 000 000 000
001367 032 010
284 177770 DBESM2=177770
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 103
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
286 ;-----AC BLOCK 3 COUNTS THE NUMBER OF ERROR BITS AND HALTS IF THERE ARE NOT
287 ; EXACTLY 2 BITS BAD. WE SHOULDN'T SEE SINGLE BIT ERRORS AND MULTIPLE ERRORS
288 ; CANNOT BE PATCHED, SO WHY GO ON.
289 001371 I10 ROTC,16,,22 ;0-POS NXT 18. BITS FOR ERR BIT CNT
001371 022 000 000
001374 057 005
290 001376 I10 JUMPE,17,,4 ;1-JUMP IF NO ERR BITS LEFT IN THIS 18.
001376 004 000 200
001401 227 006
291 001403 I10 ANDI,17,,777777,17 ;2-ELSE ELIM RIGHTMOST ERR BIT
001403 377 377 277
001406 057 010
292 001410 I10 AOJA,11,,1 ;3- & COUNT IT THEN LP FOR NXT
001410 001 000 200
001413 044 007
293 001415 I10 JUMPN,16,,0 ;4-LP IF ANY ERR BITS LEFT TO DO
001415 000 000 000
001420 267 006
294 001422 I10 CAIE,11,,2 ;5-SKIP IF WE HAVE A DOUBLE BIT ERR...OK
001422 002 000 200
001425 024 006
295 001427 I10 JRST,4,,2 ;6-<ERROR 2> NOT A DOUBLE BIT ERROR
001427 002 000 000
001432 142 005
296 001434 IO10 DATAO,PAG,,10 ;7-GO TO ACBLK 4
001434 010 000 200
001437 011 016
297 001441 WD36 4042,0000,0000 ;10-DATAO PAG WD
001441 000 000 000
001444 042 010
298 ;11-ERR BIT COUNT GOES HERE
299 001446 I10 DMOVE,16,,0 ;12-PXCTD TO GET ERR MAPS FROM ACBLK 2
001446 000 000 000
001451 207 002
300 001453 I10 PXCT,4,,12 ;13-<FROM 2> GET ERR MAP WDS
001453 012 000 000
001456 162 005
301 001460 I10 MOVEI,11,,0 ;14-RESET ERR BIT CNT
001460 000 000 200
001463 014 004
302 001465 I10 JRST,,,0 ;15-
001465 000 000 000
001470 140 005
303 ;16-SCRATCH
304 ;17-SCRATCH
305 036777 DBESM3=036777
306
307 ;-----AC BLOCK 4 MOSTLY JUST SHUFFLES ERROR INFO FROM ACBLK 2 TO 5. IT ALSO
308 ; DECIDES IF THE ERROR MAP FOR THIS PARTICULAR VALUE OF ADR 33 HAS BEEN
309 ; INITIALIZED. IF NOT IT CAUSES TRANSFER TO A DIFFERENT POINT IN ACBLK 5 WHICH
310 ; DOES THE INIT.
311 001472 I10 MOVE,7,,2,5 ;0-PXCTD & MODIFIED TO MOVE DATA
001472 002 000 224
001475 003 004
312 001477 I10 TLON,4,@,4,7 ;1-SKIP IF THIS ADR 33 INI ALREADY DONE
001477 004 000 134
001502 272 015
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 103-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
313 001504 IO10 DATAO,PAG,,4 ;2-ELSE ENTER ACBLK 5 TO FORCE INIT
001504 004 000 200
001507 011 016
314 001511 IO10 DATAO,PAG,,4 ;3-HERE FOR NORMAL EXIT TO ACBLK 5
001511 004 000 200
001514 011 016
315 001516 DBEIFW: WD36 4050,0000,0100 ;4-DATAO PAG WD & ADR 33 INIT FLAG BITS <SUBBLOCK
001516 100 000 000
001521 050 010
316 ;5-DATA MOVER INDEX
317 001523 WD36 4042,0000,0200 ;6-PREV ACBLK # TOGGLED FOR DATA MOVE
001523 200 000 000
001526 042 010
318 ;7-WORDS STOP HERE ON THEIR JOURNEY
319 001530 DBEMNI: I10 MOVNI,5,,2 ;10-<FROM 3> INI DATA MOVER INDEX <SUBBLOCK
001530 002 000 200
001533 112 004
320 001535 IO10 DATAO,PAG,,6 ;11-SET PREV ACBLK
001535 006 000 200
001540 011 016
321 001542 I10 PXCT,4,,0 ;12-GET DATA OR SHIP IT OUT
001542 000 000 000
001545 162 005
322 001547 I10 TLC,6,,700 ;13-TOGGLE TO OTHER BLOCK
001547 300 001 000
001552 013 015
323 001554 I10 TLCN,0,,2000 ;14-MOVE/MOVEM & SKIP IF MOVEM JUST DONE
001554 000 004 000
001557 070 015
324 001561 I10 JRST,,,11 ;15-ELSE GO BACK & DO MOVEM
001561 011 000 000
001564 140 005
325 001566 I10 AOJLE,5,,11 ;16-LP TIL ALL WDS MOVED
001566 011 000 200
001571 032 007
326 001573 I10 JRST,,,1 ;17-
001573 001 000 000
001576 140 005
327 177537 DBESM4=177537
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 104
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
329 ;-----AC BLOCK 5 CHECKS TO SEE THAT THERE IS AT LEAST ONE BIT IN COMMON
330 ; BETWEEN THE PREVIOUS DBE AND THE NEW DBE. IF NOT IT HALTS, OTHERWISE IT
331 ; ELIMINATES THE BITS NOT IN COMMON FROM FURTHER CONSIDERATION. THEN IT RETURNS
332 ; TO ACBLK 0 TO RESUME THE MARCH.
333 ;0-NEW DATA ERR MAP PUT HERE
334 ;1-NEW ECC ERR MAP PUT HERE
335 ;2-ADR 33 NDX PUT HERE
336 001600 I10 DMOVEM,0,,14,2 ;3-<FROM 4> INI PREV ERR MAP ON 1ST DBE
001600 014 000 010
001603 240 002
337 001605 I10 TDCN,0,,14,2 ;4-<FROM 4> HERE WE SEE IF THE NEW DBE
001605 014 000 010
001610 160 015
338 001612 I10 TDNE,1,,15,2 ;5- HAS AT LEAST ONE BAD BIT IN COMMON
001612 015 000 210
001615 120 014
339 001617 I10 TDCA,1,,15,2 ;6- WITH THE PREVIOUS DBE. IF NOT
001617 015 000 210
001622 140 015
340 001624 DBEH3: I10 JRST,4,,3 ;7-<ERROR 3> CANNOT PATCH OUT BOTH ERRS.
001624 003 000 000
001627 142 005
341 001631 I10 ANDCAM,0,,14,2 ;10-OFF BIT NOT IN COMMON IN DATA WD
001631 014 000 010
001634 120 010
342 001636 I10 ANDCAM,1,,15,2 ;11-SAME FOR ECC
001636 015 000 210
001641 120 010
343 001643 IO10 DATAO,PAG,,13 ;12-BACK TO ACBLK 0...CONTINUE SCAN
001643 013 000 200
001646 011 016
344 001650 WD36 4000,0000,0000 ;13-DATAO PAG WD
001650 000 000 000
001653 000 010
345 ;14-COMMON ERR BIT(S), DATA, ADR 33=0
346 ;15-COMMON ERR BIT(S), ECC, ADR 33=0
347 ;16-COMMON ERR BIT(S), DATA, ADR 33=1
348 ;17-COMMON ERR BIT(S), ECC, ADR 33=1
349 007770 DBESM5=007770
350
351 ;-----OVERLAY FOR ACBLK 0 TO CAUSE DESCENDING ADDRESSING.
352 001655 DBETEA: I10 HRRI,7,,777774 ;4-LD ST ADR AT HI END
001655 374 377 203
001660 013 013
353 001662 I10 HRRI,7,,777774,7 ;13-CALC NXT LOWER ADR IN SUBBLOCK
001662 374 377 237
001665 013 013
354
355 ;-----OVERLAY FOR ACBLK 5 USED TO INIT SHADOW MEM LOCATIONS 0-17. IS RUN IN
356 ; FORCE EXTENDED ADDRESSING MODE.
357 001667 DBESMP: ;0-NOT USED BY THIS OVERLAY
358 001667 WD36 0000,2000,0017 ;1-ADR WITH BIT13 SET FORCES MEM REF
001667 017 000 100
001672 000 000
359 ;2-13 NOT USED BY THIS OVERLAY
360 001674 I10 SETZM,,,0,1 ;14-<START> CLR SHADOW MEM LOC PTD TO BY AC1
001674 000 000 004
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 104-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
001677 020 010
361 001701 I10 TRNE,1,,17 ;15-SKIP IF ALL 20 SHADOW MEM WORDS CLEARED
001701 017 000 200
001704 020 014
362 001706 I10 SOJA,1,,14 ;16-ELSE PT TO NEXT WD & DO IT
001706 014 000 200
001711 240 007
363 001713 I10 JRST,4,,0 ;17-HALT WHEN DONE
001713 000 000 000
001716 142 005
364 170002 DBESMM=170002 ;AC PRGM OVERLAY LD MSK
365
366 ;-----OVERLAY FOR AC BLOCK 5 TO INIT THE WORDS OF THE BLOCK TO THE FIRST DATA
367 ; PATTERN REQUIRED BY THE DOUBLE BIT ERROR SCAN.
368
369 001720 DBEMIP: WD36 0100,0000,0000 ;0-FCN 0 WD TO CLR ERROR FLAGS
001720 000 000 000
001723 100 000
370 ;1- 1ST APAT PUT HERE (FROM INDEPR)
371 001725 DBEMIA: WD36 7777,7760,0000 ;2- -1,,BLK ST ADR, OVERFLOWS TO 0 AT BLK END
001725 000 000 377
001730 377 017
372 ;3-13 NOT USED BY THIS OVERLAY
373 001732 I10 MOVEM,1,,0,2 ;14-<START> MOVE FIRST APAT TO MEM WD
001732 000 000 210
001735 020 004
374 001737 I10 AOJL,2,,14 ;15-PT TO NXT WD & LP TIL ALL DONE
001737 014 000 000
001742 011 007
375 001744 IO10 SBDIAG,,,0 ;16-CLR ERR FLAGS IN CONTR
001744 000 000 000
001747 005 016
376 001751 I10 JRST,4,,0 ;17-STOP. BLK ALL INITIALIZED TO FIRST APAT
001751 000 000 000
001754 142 005
377
378 170005 DBEO5M=170005
379
380 001756 ENDBLK
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 105
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
382 .REM %
383 INDEPR IS A SET OF 11 36-BIT WORDS WHICH HAS THE FOLLOWING PROPERTY: ALL
384 4 STATES (00,01,10,11) OF EVERY POSSIBLE BIT PAIR IN THE 36 DATA & 7 ECC BITS
385 (THERE ARE 903 PAIRS IN 43 BITS) EXIST IN AT LEAST 1 OF THE PATTERNS. THIS
386 MEANS THAT ANY HARD FAILURE OF 2 (OR 1) BITS WILL BE DETECTED BY THESE PATTERNS
387 REGARDLESS OF THE FAILING BITS' POLARITIES.
388 THE FIRST 10 PATTERNS ARE SUFFICIENT TO COVER THE 36 DATA BITS. THE
389 11TH PATTERN COVERS THE FEW HOLES LEFT IN ECC/ECC & DATA/ECC PAIR STATES. NOTE
390 THAT ECC IS DEFINED HERE AS BEING THE MF20 ECC SCHEME. NOTE ALSO THAT THE FIRST
391 10 DATA PATTERNS ALSO TEST ALL BIT PAIRS INVOLVING THE 36-BIT PARITY BIT.
392 %
393
394 001756 INDEPR: WD36 0366,2447,5570 ;ECC=216
001756 170 173 122
001761 366 000
395 001763 WD36 0430,7552,3056 ;ECC=066
001763 056 246 366
001766 030 001
396 001770 WD36 3153,3026,0713 ;ECC=332
001770 313 141 141
001773 153 006
397 001775 WD36 4204,4210,4124 ;ECC=106
001775 124 210 210
002000 204 010
398 002002 WD36 7721,0775,3641 ;ECC=174
002002 241 327 037
002005 321 017
399 002007 WD36 1077,1301,7227 ;ECC=226
002007 227 036 054
002012 077 002
400 002014 WD36 7404,6464,6716 ;ECC=350
002014 316 115 323
002017 004 017
401 002021 WD36 6542,5133,0061 ;ECC=052
002021 061 260 245
002024 142 015
402 002026 WD36 2213,3700,5700 ;ECC=246
002026 300 013 174
002031 213 004
403 002033 WD36 5375,4266,0016 ;ECC=040
002033 016 140 213
002036 375 012
404 002040 WD36 0557,7713,7777 ;ECC=320, INCLUDED TO FILL HOLES
002040 377 277 374
002043 157 001
405
406 002045 WD36 0000,0000,0000 ;ECC=376, WRITTEN LAST, NOT CHECKED
002045 000 000 000
002050 000 000
408
409 ;-----LIST OF ECC VALUES FOR THE ABOVE PATTERNS
410 002052 216 066 332 IPECC: .BYTE 216,066,332,106,174,226,350,052,246,040,320,376
411
412 ;-----SBDIAG FUNCTION 07 WORD USED TO SET THE SPARE BIT NUMBER.
413 .EVEN
414 002066 007 DBEF07: .BYTE 7 ;FCN #
415 002067 377 DBEF7A: .BYTE ... ;BITSUB RAM ADR TO LD <BLOCK
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 105-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
416 002070 177777 DBEF7D: .WORD ...... ;BIT # TO SUB FOR, ICE, PAR, LD EN
417 002072 000 .BYTE 0
418
419 002073 377 UCEFIB: .BYTE ... ;UNCORR ERR FOUND IN BLK IF > -1
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 106
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
421 .REM %
422 FIXSB IS THE SUBROUTINE WHICH CONTROLLS THE RUNNING OF THE DBE SCANNER
423 AC PROGRAM. THE THEORY IS SIMPLE ALTHOUGH IT LOOKS RATHER BAD. WHEN THIS
424 ROUTINE IS CALLED THE SUBBLOCK IS ALREADY INITIALIZED TO THE FIRST DATA PATTERN.
425 ALL SPARE BITS ARE DESELECTED AND ALL ICE (IGNORE CORRECTABLE ERROR) BITS ARE
426 ON. WE THEN LOAD UP THE PARAMETERS REQUIRED TO WORK ON THE SUBBLOCK (# IN R0)
427 AND RUN THE PROGRAM. WHEN IT HALTS WE CHECK THE HALT CODE. FATAL ERRORS STOP
428 THE PROGRAM RIGHT HERE, ELSE WE SEE IF THERE WERE ANY DBE'S. IF NOT WE SIMPLY
429 RETURN WITH C-BIT CLEAR, ELSE WE GO GET THE ERROR MAPS. THERE ARE 2 MAPS; ONE
430 FOR ADR 33=0 AND THE OTHER FOR ADR 33=1. WE SCAN THESE MAPS TO GET 0, 1, OR 2
431 ERROR BIT NUMBERS FROM EACH. WE CHECK TO SEE IF THERE IS A COMMON ERROR BIT
432 BETWEEN THE TWO MAPS. IF SO WE USE THIS BIT # FOR SUBSTITUTION, ELSE WE USE THE
433 RIGHTMOST BIT FOR EACH ADR 33. AFTER SUBSTITUTION WE RE-WRITE THE A-PATTERN
434 THROUGH THE BLOCK AND GO TEST THE SUBBLOCK AGAIN. IF NO DBE'S SHOW UP WE RETURN
435 WITH THE C-BIT CLEAR AND THE #S OF THE SWAPPED BITS IN R0, ELSE WE DO A C-BIT
436 SET RETURN INDICATING THE SUBBLOCK CANNOT BE USED.
437 %
438 ;-----SET UP SUBBLOCK NUMBER (IN R0) RELATED DATA.
439 002074 FIXSB: SAV.5
002074 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
440 002100 142737 000007 002067' BICB #7,DBEF7A ;SBDIAG F07 SUBBLOCK #
441 002106 150037 002067' BISB R0,DBEF7A
442 002112 142737 000003 001655' BICB #3,DBETEA ;LAST ADR IN SUBBLOCK
443 002120 150037 001655' BISB R0,DBETEA
444 002124 142737 000003 001100' BICB #3,DBETSA ;FIRST ADR IN SUBBLOCK
445 002132 150037 001100' BISB R0,DBETSA
446 002136 012705 177777 MOV #-1,R5 ;INI BIT SWAPS WD TO SAY NO SWAPS YET
447 002142 ACBLK 4 ;GO TO AC BLOCK 4
002142 012700 000004 MOV #4,R0 ;AC BLK # TO R0
002146 004737 000000G JSR PC,ACBLK1 ;SWITCH TO AC BLK
448 002152 LOADAC ACC4+ACC10,<DBEIFW,DBEMNI> ;REPAIR MODIFIED WORDS THERE
002152 004537 002164' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
002156 000420 .WORD ACC4+ACC10 ;LOAD MASK
002160 001516' 001530' .WORD DBEIFW,DBEMNI ;PDP11 MEM ADR(S)
002164 004737 000000G 64$: JSR PC,ACSCAT ;LD ACS FROM SCATTERED 11 ADRS
002170 012605 MOV (SP)+,R5
449 ;-----INIT FOR DATA PATTERN LOOP.
450 002172 005003 1$: CLR R3 ;PASS CNT =0
451 002174 012704 001756' MOV #INDEPR,R4 ;DATA PTRN PTR
453 ;-----TOP OF DATA PATTERNS (PASS) LOOP.
454 002200 116300 002052' 2$: MOVB IPECC(R3),R0 ;GET PROPER ECC VALUE
455 002204 042700 177400 BIC #177400,R0 ;DE-JUNK
456 002210 004737 000000G JSR PC,ASL0.3 ;POSITION IT
457 002214 110037 001275' MOVB R0,DBECEB ;MOVE IT TO THE RIGHT PLACE
458 002220 000300 SWAB R0
459 002222 110037 001276' MOVB R0,DBECEB+1
460 002226 ACBLK 2 ;GO PUT XPCTD ECC INTO AC PRGM
002226 012700 000002 MOV #2,R0 ;AC BLK # TO R0
002232 004737 000000G JSR PC,ACBLK1 ;SWITCH TO AC BLK
461 002236 LOADAC ACC4,DBECEB
002236 004537 002246' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
002242 000020 .WORD ACC4 ;LOAD MASK
002244 001275' .WORD DBECEB ;PDP11 MEM ADR(S)
002246 004737 000000G 65$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
002252 012605 MOV (SP)+,R5
462 002254 RESET CPU ;CLR CPU AND GO TO ACBLK 0
002254 004537 002262' JSR R5,66$ ;SAV R5, PT TO & SKIP CPU LIST
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 106-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
002260 000200 .WORD CPU
002262 004737 000000G 66$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
002266 012605 MOV (SP)+,R5
463 002270 032703 000001 BIT #1,R3 ;EVEN PASS?
464 002274 001023 BNE 4$ ;NO...DON'T LOAD SCAN DIRECTION PARAMS
465 002276 032703 000002 BIT #2,R3 ;SHD WE LD FWD OR REV DIRECTION SCAN?
466 002302 001011 BNE 3$ ;LD REV DIR SCAN WDS
467 002304 LOADAC ACC4+ACC13,<DBETSA,DBEAA> ;ELSE LD FWD DIR SCAN WDS
002304 004537 002316' JSR R5,67$ ;SAV R5, PT TO & SKIP ARG LIST
002310 004020 .WORD ACC4+ACC13 ;LOAD MASK
002312 001100' 001143' .WORD DBETSA,DBEAA ;PDP11 MEM ADR(S)
002316 004737 000000G 67$: JSR PC,ACSCAT ;LD ACS FROM SCATTERED 11 ADRS
002322 012605 MOV (SP)+,R5
468 002324 000407 BR 4$
469 002326 3$: LOADAC ACC4+ACC13,DBETEA
002326 004537 002336' JSR R5,68$ ;SAV R5, PT TO & SKIP ARG LIST
002332 004020 .WORD ACC4+ACC13 ;LOAD MASK
002334 001655' .WORD DBETEA ;PDP11 MEM ADR(S)
002336 004737 000000G 68$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
002342 012605 MOV (SP)+,R5
471 002344 4$: PUSH R5 ;SAV R5
002344 010546 MOV R5,-(SP)
472 002346 PUSH <R4,#ACC16+ACC17> ;PUSH ARGS ON STK IN REVERSE ORDER
002346 010446 MOV R4,-(SP)
002350 012746 140000 MOV #ACC16+ACC17,-(SP)
473 002354 010605 MOV SP,R5 ;PT TO ARGS WITH R5
474 002356 004737 000000G JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
475 002362 032626 BIT (SP)+,(SP)+ ;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
476 002364 POP R5 ;RESTORE R5
002364 012605 MOV (SP)+,R5
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 107
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
484 ;-----NOW RUN THE PROGRAM AND BRANCH ACCORDING TO HALT CODE.
485 002366 RUN AC4,100
002366 004537 002376' JSR R5,69$ ;SAV R5, PT TO & SKIP ARG LIST
002372 000077 .WORD 100-1 ;# 60 CYC CLK TICKS TO RUN PRGM (-1)
002374 000004 .WORD AC4 ;STARTING ADR
002376 004737 000000G 69$: JSR PC,RUNBIG ;RUN PRGM N TICS USING GIVEN PC
002402 012605 MOV (SP)+,R5
486 002404 020027 000004 CMP R0,#4 ;IS HALT CODE LEGAL?
487 002410 103404 BLO 6$ ;YES
488 002412 FATAL SIH ;DBE SCAN ILLEGAL HALT CODE
002412 004737 000000G JSR PC,$FATAL ; ** FATAL "SIH" ERROR
002416 123 111 110 .ASCIZ %SIH%
489 002422 006300 6$: ASL R0 ;DBL CODE FOR USE AS BRANCH NDX
490 002424 000170 002430' JMP @7$(R0) ;GO TO APPROPRIATE CODE
491 002430 002722' 002440' 002712' 7$: .WORD 16$,8$,14$,15$ ;DISPATCH ADRS BASED ON R0
492
493 ;-----UNEXPECTED ERROR TYPE: APR OTHER THAN SBUS ERR, MB PAR; SBDIAG F0
494 ; OTHER THAN RD PAR.
495 002440 8$: ACBLK 0 ;GO TO BLK 0 SO WE DON'T CLOBBER AC PRGM
002440 012700 000000 MOV #0,R0 ;AC BLK # TO R0
002444 004737 000000G JSR PC,ACBLK1 ;SWITCH TO AC BLK
496 002450 005002 CLR R2 ;IND NO ERRS
497 002452 XX CIAPR0 ;READ APR FLAGS
002452 012700 000000G MOV #CIAPR0,R0 ;PT R0 AT INSTR
002456 004737 000000G JSR PC,XX1 ;EXEC INSTR (ADDR IN R0) & EXAM AC0
498 002462 032710 003300 BIT #3300,(R0) ;ANY UNEXPECTED FLAG SET?
499 002466 001401 BEQ 9$ ;NO...CHECK F0
509 002470 005202 INC R2 ;SET ERR STOP FLAG
510 002472 9$: SBDIAG 0000,0000,0000 ;DO FCN 0 TO GET CONTR'S ERR FLAGS
002472 004537 002502' JSR R5,70$ ;SAV R5, PT TO & SKIP ARG LIST
002476 000000 000000
002502 004737 000000G 70$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
002506 012605 MOV (SP)+,R5
511 002510 032760 140000 000002 BIT #140000,2(R0) ;TEST FOR WR DATA OR ADR PAR ERR
512 002516 001004 BNE 10$ ;BR IF FND...FATAL
513 002520 132760 000014 000004 BITB #14,4(R0) ;TEST FOR CONTR ERR, INCMP CYC
514 002526 001424 BEQ 11$ ;NOT FOUND...NO CONTR ERR
515 002530 005202 10$: INC R2 ;ELSE SET ERR STOP FLAG
519 002532 PMSG <SBDIAG FCN 0: >
002532 012700 002544' MOV #71$,R0 ; ** MESSAGE POINTER TO R0
002536 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
002542 000410 BR 72$ ; ** BRANCH AROUND TEXT
002544 123 102 104 71$: .ASCIZ %SBDIAG FCN 0: %
520 002564 012700 000000G MOV #SDWDFM,R0 ;PT TO F0 WD
521 002570 PNT36B ;PNT WD
002570 004737 000000G JSR PC,$WDD36 ; ** CALL TO PRINT ROUTINE
522 002574 PCRLF
002574 004737 000000G JSR PC,$TCRLF ; ** PRINT A <CR><LF>
524 002600 005702 11$: TST R2 ;APR OR F0 SHOW ERR?
525 002602 001443 BEQ 14$ ;NO...WAS "CORR ERR"...THEREFORE WAS 3BE
526 002604 ERROR <HDWR FAULT DURING SCAN FOR MF20 DOUBLE BIT ERRS>
002604 012700 002616' MOV #73$,R0 ; ** MESSAGE POINTER TO R0
002610 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
002614 000430 BR 74$ ; ** BRANCH AROUND TEXT
002616 110 104 127 73$: .ASCIZ %HDWR FAULT DURING SCAN FOR MF20 DOUBLE BIT ERRS%
002676 004737 000000G JSR PC,$TCRLF ; ** PRINT A <CR><LF>
002702 004737 000000G JSR PC,$FATAL ; ** FATAL "ERM" ERROR
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 107-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
002706 105 122 115 .ASCIZ %ERM%
536
537 ;-----HERE FOR NON-DBE DATA ERROR. PROBABLY A >2 BIT ERROR.
538 002712 14$:
539 ;-----HERE FOR UNPATCHABLE COMBINATIONS OF DBE'S OR WHEN PATCHES ARE IN BUT
540 ; A DBE WAS DETECTED ANYWAY. DO A C-BIT SET RETURN.
541 002712 105237 002073' 15$: INCB UCEFIB ;IND UNCORR ERR FND
542 002716 000261 SEC
543 002720 000427 BR 19$ ;GO TO EXIT
544
545 ;-----HERE FOR NORMAL HALT. MAKE SURE ALL PATTERNS ARE RUN.
546 002722 062704 000005 16$: ADD #5,R4 ;PT TO NXT APAT/BPAT PAIR
547 002726 005203 INC R3 ;BUMP PASS #
548 002730 020327 000013 CMP R3,#11. ;DONE ALL PASSES?
549 002734 002002 BGE 17$ ;BR IF YES
550 002736 000137 002200' JMP 2$ ;ELSE LOOP
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 108
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
552 ;-----11 PASS SCAN DONE. CHECK FOR PRESENSE OF DBE'S.
553 002742 020527 177777 17$: CMP R5,#-1 ;PATCHES DONE YET?
554 002746 001013 BNE 18$ ;YES...NO DBE'S FND...DO C-BIT CLR EXIT
555 002750 READAC BLK4,AC4 ;GET ADR 33 FLG BITS WHICH IND DBE'S
002750 004537 002756' JSR R5,75$ ;SAV R5, PT TO & SKIP ARG LIST
002754 004 004 .BYTE BLK4,AC4
002756 004737 000000G 75$: JSR PC,READAC ;READ THE SPECIFIED ACCUMULATOR
002762 012605 MOV (SP)+,R5
556 002764 116002 000003 MOVB 3(R0),R2
557 002770 042702 177774 BIC #-4,R2
558 002774 001006 BNE 21$ ;BR IF >0 DBE...MUST TRY TO PATCH
559 002776 000241 18$: CLC ;ELSE NO ERRS...DO C-BIT CLR EXIT
560 003000 010500 19$: MOV R5,R0 ;PUT PATCHED OUT BIT #S IN R0
561 003002 R5.PC ;RETURN
003002 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
562
563 003006 000 003 014 20$: .BYTE 00,03,14,17
564
565 ;-----ERRORS FOUND. READ ERROR MAPS USING DBUF FOR SCRATCH AREA.
566 003012 21$: LOADAC ACC10,DBEH3 ;HALT,,,3 TO ACBLK 4...DBE IS NOW FATAL
003012 004537 003022' JSR R5,76$ ;SAV R5, PT TO & SKIP ARG LIST
003016 000400 .WORD ACC10 ;LOAD MASK
003020 001624' .WORD DBEH3 ;PDP11 MEM ADR(S)
003022 004737 000000G 76$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
003026 012605 MOV (SP)+,R5
567 003030 ACBLK 5 ;GO TO WHERE ERR MAPS ARE
003030 012700 000005 MOV #5,R0 ;AC BLK # TO R0
003034 004737 000000G JSR PC,ACBLK1 ;SWITCH TO AC BLK
568 003040 116203 003006' MOVB 20$(R2),R3 ;GET MAP OF WHICH ACS TO RD
569 003044 PUSH R2
003044 010246 MOV R2,-(SP)
570 003046 012701 000000G MOV #DBUF,R1 ;PTR TO WHERE MAPS GO IN 11 MEM
571 003052 012702 000014 MOV #AC14,R2 ;INI AC #
572 003056 006203 22$: ASR R3 ;DO WE NEED THIS WD?
573 003060 103007 BCC 25$ ;NO
575 003062 PUSH R1
003062 010146 MOV R1,-(SP)
576 003064 010200 MOV R2,R0
577 003066 EXAMT
003066 004737 000000G JSR PC,$EXAMT ; ** EXECUTE THE KL10 EXAMINE
578 003072 POP R1
003072 012601 MOV (SP)+,R1
586 003074 004737 000000G JSR PC,CHKED
587 003100 062701 000005 25$: ADD #5,R1 ;NXT 11 ADR
588 003104 105021 CLRB (R1)+
589 003106 005202 INC R2 ;NXT AC
590 003110 005703 TST R3 ;DONE?
591 003112 001361 BNE 22$ ;NO...KEEP GOING
592 003114 POP R2
003114 012602 MOV (SP)+,R2
594
595 ;-----SECTION TO EXTRACT ERROR BIT NUMBERS FROM ADR 33=1,0 ERR MAPS.
596 003116 012700 100200 MOV #100200,R0 ;IND NO BITS BAD
597 003122 032702 000002 BIT #2,R2 ;WAS THERE A DBE FOR ADR 33=1?
598 003126 001406 BEQ 26$ ;NO...DONT SCAN
599 003130 PUSH R1
003130 010146 MOV R1,-(SP)
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 108-1
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
600 003132 012701 000014G MOV #DBUF+<2*6>,R1 ;PT TO DATA WDS
601 003136 004737 003340' JSR PC,34$
602 003142 POP R1
003142 012601 MOV (SP)+,R1
603 003144 010001 26$: MOV R0,R1 ;R1 NOW HAS ADR 33=1 ERR BIT #S
604 003146 012700 177777 MOV #177777,R0 ;IND NO BITS BAD
605 003152 032702 000001 BIT #1,R2 ;WAS THERE A DBE FOR ADR 33=0?
606 003156 001406 BEQ 27$ ;NO...DONT SCAN
607 003160 PUSH R1
003160 010146 MOV R1,-(SP)
608 003162 012701 000000G MOV #DBUF,R1 ;PT TO DATA WDS
609 003166 004737 003340' JSR PC,34$
610 003172 POP R1
003172 012601 MOV (SP)+,R1
611 003174 27$: ;R0 NOW HAS ADR 33=0 ERR BIT #S
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 109
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
613 ;-----FIND OUT IF THERE WAS A BIT IN COMMON BETWEEN ADR 33=0 AN 1.
614 003174 012702 000002 MOV #2,R2 ;LP CNT
615 003200 012703 000002 28$: MOV #2,R3 ;LP CNT
616 003204 000300 SWAB R0
617 003206 000301 29$: SWAB R1
618 003210 120001 CMPB R0,R1 ;BIT # SAME?
619 003212 001402 BEQ 30$ ;YES...USE THIS BIT
620 003214 077304 SOB R3,29$
621 003216 077210 SOB R2,28$
622 003220 010105 30$: MOV R1,R5 ;PUT BIT SWAP #S INTO R5
623 003222 000305 SWAB R5
624 003224 105005 CLRB R5
625 003226 150005 BISB R0,R5 ;ADR33=1 IN LH, ADR33=0 IN RH
626
627 ;-----MAKE SWAPS BY CHANGING BITSUB RAM AND THEN REWRITE MEMORY.
628 003230 105700 TSTB R0 ;SHD A SWAP BE MADE FOR ADR33=0?
629 003232 002402 BLT 31$ ;NO...DONT MODIFY RAM
630 003234 004737 003266' JSR PC,33$ ;ELSE GO FIX IT
631 003240 110100 31$: MOVB R1,R0 ;SHD A SWAP BE MADE FOR ADR33=1?
632 003242 002405 BLT 32$ ;NO
633 003244 152737 000004 002067' BISB #4,DBEF7A ;ELSE SET ADR 33 BIT IN F7 RAM LD ADR
634 003252 004737 003266' JSR PC,33$ ; AND GO SET RAM
635 003256 004737 000674' 32$: JSR PC,DBESMQ ;GO REWRITE MOS RAMS TO INI SPARE BIT
636 003262 000137 002172' JMP 1$ ;GO BAK & TEST IT ALL OVER AGAIN
637
638 ;-----LITTLE SUBROUTINE TO ACTUALLY DO THE SWAP.
639 003266 000300 33$: SWAB R0 ;POSITION THE BIT #
640 003270 006200 ASR R0
641 003272 052700 000100 BIS #100,R0 ;TURN ON ICE BIT (BIT13)
642 003276 042700 160077 BIC #160077,R0 ;SHUT OFF ALL JUNK
643 003302 SETPAR 40 ;SET THE PARITY BIT AS REQUIRED
003302 004537 003310' JSR R5,77$ ;SAV R5, PT TO & SKIP ARG LIST
003306 000040 .WORD 40
003310 004737 000000G 77$: JSR PC,SETPAR ;SET PARITY BIT IN R0 USING 40
003314 012605 MOV (SP)+,R5
644 003316 052700 000020 BIS #20,R0 ;SET LD EN BIT
645 003322 010037 002070' MOV R0,DBEF7D ;DATA TO F7 WD
646 003326 SBDIAG DBEF07 ;LD THE RAM LOCATION
003326 012700 002066' MOV #DBEF07,R0 ;PT TO ARG
003332 004737 000000G JSR PC,SBD0 ;DO SBUS DIAG...ADR OF WD IN R0
647 003336 000207 RTS PC
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 110
MOS RAM DOUBLE BIT ERROR SCAN & FIX SUBROUTINES
649 ;-----ERROR BIT SCANNER SUBROUTINE. LOOKS AT THE TWO ERROR MAP WORDS AND
650 ; SCANS FOR 0, 1, OR 2 ONE BITS (ERR BITS). THE 7 BIT ECC IS ASSUMED TO OCCUPY
651 ; BITS 07-13 OF THE SECOND WORD. DATA WORDS POINTER IS IN R1 UPON ENTRY.
652 003340 34$: SAV.5
003340 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
653 003344 016102 000010 MOV 10(R1),R2 ;GET & POS ECC BIT ERR MAP
654 003350 006302 ASL R2
655 003352 006302 ASL R2
656 003354 000302 SWAB R2
657 003356 012703 000007 MOV #7,R3 ;INI BITS-LEFT-IN-WD CNTR
658 003362 012704 000053 MOV #43.,R4 ;INI BIT # +1
659 003366 005702 35$: TST R2 ;ANY ERR BITS LEFT IN WD?
660 003370 001416 BEQ 38$ ;NO...GET NEXT WD
661 003372 005303 36$: DEC R3 ;ADJ CNTS
662 003374 005304 DEC R4
663 003376 006002 ROR R2 ;GET BIT
664 003400 103374 BCC 36$ ;LP IF THIS BIT IS NOT SET
665 003402 000300 SWAB R0 ;PUT BIT # INTO R0
666 003404 105700 TSTB R0
667 003406 002404 BLT 37$
668 003410 FATAL 3BB ; >2 BAD BITS...THIS SHOULDN'T HAPPEN
003410 004737 000000G JSR PC,$FATAL ; ** FATAL "3BB" ERROR
003414 063 102 102 .ASCIZ %3BB%
669 003420 105000 37$: CLRB R0
670 003422 150400 BISB R4,R0
671 003424 000760 BR 35$ ;BIT IS RECORDED...GO LOOK FOR NEXT
672 003426 160304 38$: SUB R3,R4 ;HERE FOR NXT WD...ADJ BIT #
673 003430 003404 BLE 39$ ;BR IF ALL DONE
674 003432 012703 000020 MOV #16.,R3 ;REINI BITS-LEFT-IN-WD CNT
675 003436 012102 MOV (R1)+,R2 ;GET NXT WD
676 003440 000752 BR 35$ ;GO SCAN IT
677 003442 39$: R5.PC ;RETURN TO CALLER
003442 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 111
SUBROUTINE TO DO DEFAULT INIT OF MF20 BITSUB RAM
681 .SBTTL SUBROUTINE TO DO DEFAULT INIT OF MF20 BITSUB RAM
682
683 .REM %
684 INIBSR LOADS AN MF20'S BITSUB RAM WITH THE FOLLOWING DATA:
685
686 LOCATION CONTENT MEANING
687 -------- ------- -----------------------------------------------------------
688 000-574 256 SPARE BIT DESELECTED (MAPPED TO ITSELF), IGNORE CORRECTABLE
689 ERRORS, GOOD BITSUB RAM PARITY.
690 600-??? 254 SPARE BIT DESLECTED, DO NOT IGNORE CORRECTABLE ERRORS, BAD
691 BITSUB RAM PARITY.
692 ???-774 000 CLEAR DATA BITS USED BY SOFTWARE, DO NOT IGNORE CORRECTABLE
693 ERRORS, BAD BITSUB RAM PARITY.
694
695 ??? IS THE BOUNDARY BETWEEN THE TRULY UNUSED BITSUB RAM LOCATIONS AND THOSE
696 LOCATIONS USED ONLY BY THE SOFTWARE. NEW SOFTWARE LOCATIONS SHOULD BE DEFINED
697 IN A DOWNWARDS DIRECTION. SYMBOL IS LSBSRL.
698
699 LOCATION 744 IS USED ONLY BY TGHA. THE ONLY TIME WE EVER TOUCH IT IS
700 WHEN THIS ROUTINE IS CALLED. FURTHER, THIS ROUTINE IS ONLY CALLED WHEN AN MF20
701 IS GOING FROM STATE 0 TO STATE 1. AT THIS TIME 744 IS LOADED WITH 254.
702 %
703
704 003446 INIBSR: PUSH R1 ;SAV REG
003446 010146 MOV R1,-(SP)
705 003450 FSDMSK SDMSBR ;SET FSD CHK MASK FOR BITSUB RAM LOAD
003450 012700 000000G MOV #SDMSBR,R0 ;PT TO MASK
003454 004737 000000G JSR PC,FSDM1 ;LD SBDIAG CHK MASK PTD TO BY R0
706 003460 012701 000177 MOV #774/4,R1 ;HIGHEST BITSUB RAM LOC ADR TO R1
707 003464 110137 003605' 1$: MOVB R1,3$+1 ;SET LOC ADR INTO FCN 7 WD
708 003470 FSD 3$,FAULT ;CLEAR A BITSUB RAM SFTWR LOC
003470 004537 003476' JSR R5,64$ ;SAV R5, PT TO & SKIP FAULT LIST
003474 003604' .WORD 3$ ;SBDIAG WORD ADDRESS
003476 004737 000000G 64$: JSR PC,FSDCH ;DO FAST SBDIAG, FAULT ON ERR
003502 012605 MOV (SP)+,R5
709 003504 005301 DEC R1
710 003506 020127 000171 CMP R1,#LSBSRL/4 ;HAV ALL SFTWR LOCS BEEN CLRD?
711 003512 103364 BHIS 1$ ;NO.. KEEP GOING
712 003514 110137 003612' 2$: MOVB R1,4$+1
713 003520 FSD 4$,FAULT ;PUT BAD DATA IN TRULY UNUSED BITSUB RAM LOC
003520 004537 003526' JSR R5,65$ ;SAV R5, PT TO & SKIP FAULT LIST
003524 003611' .WORD 4$ ;SBDIAG WORD ADDRESS
003526 004737 000000G 65$: JSR PC,FSDCH ;DO FAST SBDIAG, FAULT ON ERR
003532 012605 MOV (SP)+,R5
714 003534 005301 DEC R1
715 003536 020127 000140 CMP R1,#LUBSRL/4 ;HAV ALL UNUSED LOCS BEEN ZAPPED?
716 003542 103364 BHIS 2$ ;NO.. KEEP GOING
717 003544 SETRAM 0025,6405,7407 ;NOW FILL THE REST OF THE BITSUB RAM
003544 004537 003554' JSR R5,66$ ;SAV R5, PT TO & SKIP ARG LIST
003550 007 137 320
003553 025 000
003554 004737 000000G 66$: JSR PC,SETRAM ;SET CTL RAM LOC N TO 0 TO GIVEN VALUE
003560 012605 MOV (SP)+,R5
718 003562 SBDIAG 0025,4407,4407 ;254 TO BITSUB RAM LOC 744 FOR TGHA
003562 004537 003572' JSR R5,67$ ;SAV R5, PT TO & SKIP ARG LIST
003566 074407 012620
003572 004737 000000G 67$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 111-1
SUBROUTINE TO DO DEFAULT INIT OF MF20 BITSUB RAM
003576 012605 MOV (SP)+,R5
719 003600 POP R1
003600 012601 MOV (SP)+,R1
720 003602 000207 RTS PC
721
722 003604 3$: WD36 0000,0407,7407 ;FCN 7 WD TO CLEAR SFTWR BITSUB RAM LOCS
003604 007 177 020
003607 000 000
723 003611 4$: WD36 0025,4407,7407 ;FCN 7 WD TO ZAP TRULY UNUSED BITSUB RAM LOCS
003611 007 177 220
003614 025 000
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 112
CONFIGURE A MOS BLOCK TO END OF 256K ADDRESS SPACE
727 .SBTTL CONFIGURE A MOS BLOCK TO END OF 256K ADDRESS SPACE
728
729 .REM %
730 CABTE DOES THE NECESSARY SBDIAGS TO MAKE A GIVEN MOS BLOCK RESPOND TO
731 ADDRESSES 256K-<BLK SIZ> THROUGH 256K-1. UPON ENTRY R0 MUST POINT TO THE
732 SIZE TABLE BYTE FOR THE DESIRED BLOCK. R0 IS DESTROYED. ASIDE FROM THE N
733 RESPONSE RAM LOCATIONS USED THE RESPONSE RAM IS NOT AFFECTED. THE CONTROLLER IS
734 NOT TURNED ON. C-BIT SET IF NO BLOCK.
735 %
736
737 003616 CABTE: PUSH R1
003616 010146 MOV R1,-(SP)
738 003620 111001 MOVB (R0),R1 ;GET BLOCK SIZE
739 003622 003002 BGT 1$ ;BR IF BLK PRESENT
740 003624 000261 SEC
741 003626 000462 BR 5$
742 003630 162700 000000G 1$: SUB #MDFSIZ,R0 ;CALC BLK #
743 003634 162700 000014 2$: SUB #12.,R0
744 003640 002375 BGE 2$
745 003642 062700 000014 ADD #12.,R0
746 003646 PUSH R0 ;SAV BLK # ON STK
003646 010046 MOV R0,-(SP)
747 003650 013700 000000G MOV TSTCON,R0 ;CONTR #
748 003654 116000 177770G MOVB RAMSZ0-MNMFCN(R0),R0 ;GET RAM SIZE CODE
749 003660 126001 000000G CMPB BSIZE(R0),R1 ;DOES BLK USE TYPSEL=0 (SMALLER) RAMS?
750 003664 001402 BEQ 3$ ;YES
751 003666 052716 000020 BIS #20,(SP) ;ELSE SET TYPSEL=1 BIT
752 003672 3$: POP R0 ;POSITION BLK # IN RESP RAM WD
003672 012600 MOV (SP)+,R0
753 003674 000300 SWAB R0
754 003676 006200 ASR R0
755 003700 006200 ASR R0
756 003702 SETPAR 4000 ;SET PARITY BIT IF REQUIRED
003702 004537 003710' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
003706 004000 .WORD 4000
003710 004737 000000G 64$: JSR PC,SETPAR ;SET PARITY BIT IN R0 USING 4000
003714 012605 MOV (SP)+,R5
757 003716 052700 000020 BIS #20,R0 ;SET RAM LD EN BIT
758 003722 010037 004002' MOV R0,8$ ;RAM WD TO SBDIAG
759 003726 012700 000020 MOV #20,R0 ;INI RAM LD ADR CORREPONDING TO 256K-BLKSIZ
760 003732 160100 SUB R1,R0
761 003734 110037 004001' MOVB R0,7$
762 003740 FSDMSK 9$ ;LD FSD CHK MASK
003740 012700 004005' MOV #9$,R0 ;PT TO MASK
003744 004737 000000G JSR PC,FSDM1 ;LD SBDIAG CHK MASK PTD TO BY R0
763 003750 4$: FSD 6$,FAULT ;LD RESPONSE RAM WORD
003750 004537 003756' JSR R5,65$ ;SAV R5, PT TO & SKIP FAULT LIST
003754 004000' .WORD 6$ ;SBDIAG WORD ADDRESS
003756 004737 000000G 65$: JSR PC,FSDCH ;DO FAST SBDIAG, FAULT ON ERR
003762 012605 MOV (SP)+,R5
764 003764 105237 004001' INCB 7$ ;NXT ADR
765 003770 077111 SOB R1,4$ ;LOOP IF WE NEED TO LD ANOTHER RAM WD
766 003772 000241 CLC ;ELSE ALL DONE...DO C-BIT CLR RET...OK
767 003774 5$: POP R1
003774 012601 MOV (SP)+,R1
768 003776 000207 RTS PC
770
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 112-1
CONFIGURE A MOS BLOCK TO END OF 256K ADDRESS SPACE
771 004000 012 6$: .BYTE 12 ;SBDIAG FUNC 12 WD RHE
772 004001 000 7$: .BYTE 0 ;RESP RAM LD ADR
773 004002 000000 8$: .WORD 0 ;RESP RAM WD
774 004004 000 .BYTE 0
775 004005 9$: WD36 7600,0417,7412 ;FSD LOAD CHECK MASK (FUNC 12)
004005 012 377 020
004010 200 017
778
779 .REM %
780 DUMMY ROUTINE TO SET MX20 ADDRESS RESPONSE TEMPORARILY TO ALLOW ACCESS
781 TO A GIVEN MF20 SO THAT WE CAN WORK ON THE MF20.
782 %
783
784 004012 000241 MXTADR: CLC ;INDICATE NO ERROR
785 004014 000207 RTS PC ;RETURN
787 000001 .END
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 112-2
SYMBOL TABLE
AC = 000004 ANDCMM= 000422 BRCLK = 000005 DBEOVL= 177777 G FADRB = 000147
ACBLK1= ****** GX ANDI = 000405 BRCTN = 000006 DBEO5M= 170005 FADRI = 000145
ACC0 = 000001 ANDM = 000406 BSIZE = ****** GX DBESAC 001066R FADRM = 000146
ACC1 = 000002 AOBJN = 000253 BSYCLR= 000400 DBESCN 000000RG FDV = 000170
ACC10 = 000400 AOBJP = 000252 BTFLCN= ****** GX DBESMI 000664R FDVB = 000173
ACC11 = 001000 AOJ = 000340 BTOFIX 000356R DBESMM= 170002 FDVL = 000171
ACC12 = 002000 AOJA = 000344 CABTE 003616R DBESMP 001667R FDVM = 000172
ACC13 = 004000 AOJE = 000342 CAI = 000300 DBESMQ 000674R FDVR = 000174
ACC14 = 010000 AOJG = 000347 CAIA = 000304 DBESM0= 037774 FDVRB = 000177
ACC15 = 020000 AOJGE = 000345 CAIE = 000302 DBESM1= 037777 FDVRI = 000175
ACC16 = 040000 AOJL = 000341 CAIG = 000307 DBESM2= 177770 FDVRM = 000176
ACC17 = 100000 AOJLE = 000343 CAIGE = 000305 DBESM3= 036777 FIX = 000122
ACC2 = 000004 AOJN = 000346 CAIL = 000301 DBESM4= 177537 FIXR = 000126
ACC3 = 000010 AOS = 000350 CAILE = 000303 DBESM5= 007770 FIXSB 002074R
ACC4 = 000020 AOSA = 000354 CAIN = 000306 DBETEA 001655R FLTR = 000127
ACC5 = 000040 AOSE = 000352 CAM = 000310 DBETSA 001100R FMP = 000160
ACC6 = 000100 AOSG = 000357 CAMA = 000314 DBUF = ****** GX FMPB = 000163
ACC7 = 000200 AOSGE = 000355 CAME = 000312 DDIV = 000117 FMPL = 000161
ACLOAD= ****** GX AOSL = 000351 CAMG = 000317 DE$BUG= 070000 FMPM = 000162
ACSCAT= ****** GX AOSLE = 000353 CAMGE = 000315 DFAD = 000110 FMPR = 000164
AC0 = 000000 AOSN = 000356 CAML = 000311 DFDV = 000113 FMPRB = 000167
AC1 = 000001 APR = 000000 CAMLE = 000313 DFMP = 000112 FMPRI = 000165
AC10 = 000010 ASH = 000240 CAMN = 000316 DFN = 000131 FMPRM = 000166
AC11 = 000011 ASHC = 000244 CAS = 020000 DFSB = 000111 FSB = 000150
AC12 = 000012 ASL0.3= ****** GX CCA = 000014 DIAG = 000104 FSBB = 000153
AC13 = 000013 ASL0.4= ****** GX CECLK = 000004 DIV = 000234 FSBL = 000151
AC14 = 000014 BAF = ****** GX CHKED = ****** GX DIVB = 000237 FSBM = 000152
AC15 = 000015 BIGN 000270R CIAPR0= ****** GX DIVI = 000235 FSBR = 000154
AC16 = 000016 BIT0 = 000001 CLEAR = 000400 DIVM = 000236 FSBRB = 000157
AC17 = 000017 BIT1 = 000002 CLEARB= 000403 DMACN = 000004 FSBRI = 000155
AC2 = 000002 BIT10 = 002000 CLEARI= 000401 DMACTN= 000002 FSBRM = 000156
AC3 = 000003 BIT11 = 004000 CLEARM= 000402 DMOVE = 000120 FSC = 000132
AC4 = 000004 BIT12 = 010000 CLRMR = 000006 DMOVEM= 000124 FSDCH = ****** GX
AC5 = 000005 BIT13 = 020000 CNTSD1= ****** GX DMOVN = 000121 FSDM1 = ****** GX
AC6 = 000006 BIT14 = 040000 CONBUT= 000012 DMOVNM= 000125 HALTLP= 001000
AC7 = 000007 BIT15 = 100000 CONI = 000005 DMUL = 000116 HLL = 000500
ADD = 000270 BIT2 = 000004 CONMMR= 000001 DPB = 000137 HLLE = 000530
ADDB = 000273 BIT3 = 000010 CONO = 000004 DREADY= 001000 HLLEI = 000531
ADDI = 000271 BIT4 = 000020 CONSO = 000007 DSUB = 000115 HLLEM = 000532
ADDM = 000272 BIT5 = 000040 CONSZ = 000006 EQV = 000444 HLLES = 000533
ADH = 000000 BIT6 = 000100 CPU = 000200 EQVB = 000447 HLLI = 000501
ADJSP = 000105 BIT7 = 000200 DADD = 000114 EQVI = 000445 HLLM = 000502
ADL = 000000 BIT8 = 000400 DATAI = 000001 EQVM = 000446 HLLO = 000520
ADR2ND= 002000 BIT9 = 001000 DATAO = 000003 ERRSTP= 004000 HLLOI = 000521
AND = 000404 BLKADR 000272R DBEAA 001143R ER$BTL= 000176RG HLLOM = 000522
ANDB = 000407 BLKI = 000000 DBECEB 001275R ER$ERM= 002702RG HLLOS = 000523
ANDCA = 000410 BLKNO 000266R DBECNL 001263R ER$NBS= 000112RG HLLS = 000503
ANDCAB= 000413 BLKO = 000002 DBECNR 001232R ER$SIH= 002412RG HLLZ = 000510
ANDCAI= 000411 BLKSIZ 000300R DBEF07 002066R ER$3BB= 003410RG HLLZI = 000511
ANDCAM= 000412 BLK0 = 000000 DBEF7A 002067R EXCH = 000250 HLLZM = 000512
ANDCB = 000440 BLK1 = 000001 DBEF7D 002070R EXP16K= ****** GX HLLZS = 000513
ANDCBB= 000443 BLK2 = 000002 DBEH3 001624R EXTEND= 000123 HLR = 000544
ANDCBI= 000441 BLK3 = 000003 DBEIFW 001516R FAD = 000140 HLRE = 000574
ANDCBM= 000442 BLK4 = 000004 DBEMIA 001725R FADB = 000143 HLREI = 000575
ANDCM = 000420 BLK5 = 000005 DBEMIP 001720R FADL = 000141 HLREM = 000576
ANDCMB= 000423 BLK6 = 000006 DBEMNI 001530R FADM = 000142 HLRES = 000577
ANDCMI= 000421 BLT = 000251 DBENWT 001105R FADR = 000144 HLRI = 000545
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 112-3
SYMBOL TABLE
HLRM = 000546 IORB = 000437 MUL = 000224 SETCAI= 000451 TDC = 000650
HLRO = 000564 IORI = 000435 MULB = 000227 SETCAM= 000452 TDCA = 000654
HLROI = 000565 IORM = 000436 MULI = 000225 SETCM = 000460 TDCE = 000652
HLROM = 000566 IPECC 002052R MULM = 000226 SETCMB= 000463 TDCN = 000656
HLROS = 000567 JFCL = 000255 MXBRCN= 000037 SETCMI= 000461 TDN = 000610
HLRS = 000547 JFFO = 000243 MXCTN = 000004 SETCMM= 000462 TDNA = 000614
HLRZ = 000554 JRA = 000267 MXMFCN= 000017 SETM = 000414 TDNE = 000612
HLRZI = 000555 JRST = 000254 MXMXCN= 000007 SETMB = 000417 TDNN = 000616
HLRZM = 000556 JSA = 000266 MXM.CN= 000003 SETMI = 000415 TDO = 000670
HLRZS = 000557 JSP = 000265 MXTADR 004012R SETMM = 000416 TDOA = 000674
HRL = 000504 JSR = 000264 OR = 000434 SETMR = 000007 TDOE = 000672
HRLE = 000534 JUMP = 000320 ORB = 000437 SETO = 000474 TDON = 000676
HRLEI = 000535 JUMPA = 000324 ORCA = 000454 SETOB = 000477 TDZ = 000630
HRLEM = 000536 JUMPE = 000322 ORCAB = 000457 SETOI = 000475 TDZA = 000634
HRLES = 000537 JUMPG = 000327 ORCAI = 000455 SETOM = 000476 TDZE = 000632
HRLI = 000505 JUMPGE= 000325 ORCAM = 000456 SETPAR= ****** GX TDZN = 000636
HRLM = 000506 JUMPL = 000321 ORCB = 000470 SETRAM= ****** GX TGN = 000002
HRLO = 000524 JUMPLE= 000323 ORCBB = 000473 SETRUN= 000011 TIMFS = 000044
HRLOI = 000525 JUMPN = 000326 ORCBI = 000471 SETZ = 000400 TLC = 000641
HRLOM = 000526 LDAR = 000077 ORCBM = 000472 SETZB = 000403 TLCA = 000645
HRLOS = 000527 LDB = 000135 ORCM = 000464 SETZI = 000401 TLCE = 000643
HRLS = 000507 LDBESP 000306R ORCMB = 000467 SETZM = 000402 TLCN = 000647
HRLZ = 000514 LSBRTN= 000001 ORCMI = 000465 SKIP = 000330 TLN = 000601
HRLZI = 000515 LSBSRL= 000744 ORCMM = 000466 SKIPA = 000334 TLNA = 000605
HRLZM = 000516 LSH = 000242 ORI = 000435 SKIPE = 000332 TLNE = 000603
HRLZS = 000517 LSHC = 000246 ORM = 000436 SKIPG = 000337 TLNN = 000607
HRR = 000540 LSTMB = 000001 PAG = 000010 SKIPGE= 000335 TLO = 000661
HRRE = 000570 LUBSRL= 000600 PI = 000004 SKIPL = 000331 TLOA = 000665
HRREI = 000571 MABL = ****** GX POP = 000262 SKIPLE= 000333 TLOE = 000663
HRREM = 000572 MACTN = 000001 POPJ = 000263 SKIPN = 000336 TLON = 000667
HRRES = 000573 MAP = 000257 PUSH = 000261 SOJ = 000360 TLZ = 000621
HRRI = 000541 MAXCN = 000037 PUSHJ = 000260 SOJA = 000364 TLZA = 000625
HRRM = 000542 MBCTN = 000003 PXCT = 000256 SOJE = 000362 TLZE = 000623
HRRO = 000560 MDFSIZ= ****** GX RAMSZ0= ****** GX SOJG = 000367 TLZN = 000627
HRROI = 000561 MFCTN = 000005 RAS = 040000 SOJGE = 000365 TRC = 000640
HRROM = 000562 MNBRCN= 000036 READAC= ****** GX SOJL = 000361 TRCA = 000644
HRROS = 000563 MNMFCN= 000010 ROT = 000241 SOJLE = 000363 TRCE = 000642
HRRS = 000543 MNMXCN= 000006 ROTC = 000245 SOJN = 000366 TRCN = 000646
HRRZ = 000550 MNM.CN= 000000 RS0RS1= 000010 SOS = 000370 TRN = 000600
HRRZI = 000551 MNTITF= 000040 RS0TN0= 000020 SOSA = 000374 TRNA = 000604
HRRZM = 000552 MOVE = 000200 RUNBIG= ****** GX SOSE = 000372 TRNE = 000602
HRRZS = 000553 MOVEI = 000201 RUNPRG= ****** GX SOSG = 000377 TRNN = 000606
I = 000000 MOVEM = 000202 R$$20F= 000001 SOSGE = 000375 TRO = 000660
IBP = 000133 MOVES = 000203 R5.PC = ****** GX SOSL = 000371 TROA = 000664
IDIV = 000230 MOVM = 000214 SAV.5 = ****** GX SOSLE = 000373 TROE = 000662
IDIVB = 000233 MOVMI = 000215 SBDT = ****** GX SOSN = 000376 TRON = 000666
IDIVI = 000231 MOVMM = 000216 SBD0 = ****** GX SSCLK = 000002 TRPAR = 010000
IDIVM = 000232 MOVMS = 000217 SBUS = 100000 STPCLK= 000000 TRZ = 000620
IDPB = 000136 MOVN = 000210 SDMSBR= ****** GX STRCLK= 000001 TRZA = 000624
ILDB = 000134 MOVNI = 000211 SDWDFM= ****** GX SUB = 000274 TRZE = 000622
IMUL = 000220 MOVNM = 000212 SECLK = 000003 SUBB = 000277 TRZN = 000626
IMULB = 000223 MOVNS = 000213 SETA = 000424 SUBI = 000275 TSC = 000651
IMULI = 000221 MOVS = 000204 SETAB = 000427 SUBM = 000276 TSCA = 000655
IMULM = 000222 MOVSI = 000205 SETAI = 000425 SXCT = 000106 TSCE = 000653
INDEPR 001756R MOVSM = 000206 SETAM = 000426 TADR = 000010 TSCN = 000657
INIBSR 003446R MOVSS = 000207 SETCA = 000450 TBN = 000004 TSN = 000611
IOR = 000434 MSAMSZ= 000140 SETCAB= 000453 TCN = 000001 TSNA = 000615
DBEOVL -- MOS DOUBLE BIT ERROR MACRO M1110 17-SEP-79 09:10 PAGE 112-4
SYMBOL TABLE
TSNE = 000613 XOP = 000002 $DPOST= ****** GX $READA= 000001 $TIMLP= 070014
TSNN = 000617 XOR = 000430 $EB = 001066R $RELOA= 000001 $TL = 000130
TSO = 000671 XORB = 000433 $EVENT= 000001 $RESET= 000001 $TTDMS= ****** GX
TSOA = 000675 XORI = 000431 $EXAMT= ****** GX $RSTAC= 070030 $WDD36= ****** GX
TSOE = 000673 XORM = 000432 $FATAL= ****** GX $RUN = 000001 $XX = 000001
TSON = 000677 XR = 000000 $FIND = 000001 $SAVAC= 070024 $$APRI= 000000
TSTCON= ****** GX XX1 = ****** GX $GETCT= 070020 $SBDIA= 000002 $$NARG= 000001
TSZ = 000631 Z = 000100 $IND36= 000003 $SDW = 000002 $$RDER= 000004
TSZA = 000635 $ACBLK= 000001 $INIBS= 000001 $SETPA= 000001 $$SBDI= 000004
TSZE = 000633 $APRID= 000000 $KL10A= 000101 $SETRA= 000001 $10BC = 070040
TSZN = 000637 $BRST = 000001 $KL10B= 000102 $SIZ16= 033061 $10BP = 070034
UCEFIB 002073R $CABTE= 000001 $LDBES= 000001 $SIZ32= 031063 $10MB = 070050
UFA = 000130 $CNTSD= 000001 $LOADA= 000001 $SIZ4K= 032060 $10RB = 070044
UNDCTN= 000007 $DBESC= 000001 $MABL = 000001 $SIZ64= 032066 .RESET= ****** GX
WENABL= 004000 $DDFWR= ****** GX $MXTAD= 000001 $STEP = 000001 .SBDIA= 000001
X = 000000 $DDFXC= ****** GX $PATCH= 070004 $TB = 000000 ... = 000377
XCT = 000256 $DMPAC= 070010 $RDERA= 000000 $TCRLF= ****** GX ......= 177777
XDV = 000004
. ABS. 000000 000
004016 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 22768 WORDS ( 89 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:04:16
[56,10]DBEOVL,[56,20]DBEOVL/-SP/CR=[56,30]DBEASM,MBOVLC,MOSMAC,MBMAC,MOSDEF,DBEOVL
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AC = 000004 #101-227 #101-227 101-227 101-227 #101-228 #101-228 101-228 101-228 #101-229
#101-229 101-229 101-229 #101-230 #101-230 101-230 101-230 #101-231 #101-231
101-231 101-231 #101-234 #101-234 101-234 101-234 #101-235 #101-235 101-235
101-235 #101-236 #101-236 101-236 101-236 #102-248 #102-248 102-248 102-248
#102-250 #102-250 102-250 102-250 #102-252 #102-252 102-252 102-252 #102-254
#102-254 102-254 102-254 #102-255 #102-255 102-255 102-255 #102-258 102-258
102-258 #102-259 #102-259 102-259 102-259 #102-272 #102-272 102-272 102-272
#102-273 #102-273 102-273 102-273 #102-274 #102-274 102-274 102-274 #102-275
#102-275 102-275 102-275 #102-276 #102-276 102-276 102-276 #102-277 #102-277
102-277 102-277 #102-279 102-279 102-279 #102-280 #102-280 102-280 102-280
#102-281 #102-281 102-281 102-281 #102-282 #102-282 102-282 102-282 #103-289
#103-289 103-289 103-289 #103-290 #103-290 103-290 103-290 #103-291 #103-291
103-291 103-291 #103-292 #103-292 103-292 103-292 #103-293 #103-293 103-293
103-293 #103-294 #103-294 103-294 103-294 #103-295 #103-295 103-295 103-295
#103-299 #103-299 103-299 103-299 #103-300 #103-300 103-300 103-300 #103-301
#103-301 103-301 103-301 #103-302 103-302 103-302 #103-311 #103-311 103-311
103-311 #103-312 #103-312 103-312 103-312 #103-319 #103-319 103-319 103-319
#103-321 #103-321 103-321 103-321 #103-322 #103-322 103-322 103-322 #103-323
#103-323 103-323 103-323 #103-324 103-324 103-324 #103-325 #103-325 103-325
103-325 #103-326 103-326 103-326 #104-336 #104-336 104-336 104-336 #104-337
#104-337 104-337 104-337 #104-338 #104-338 104-338 104-338 #104-339 #104-339
104-339 104-339 #104-340 #104-340 104-340 104-340 #104-341 #104-341 104-341
104-341 #104-342 #104-342 104-342 104-342 #104-352 #104-352 104-352 104-352
#104-353 #104-353 104-353 104-353 #104-360 104-360 104-360 #104-361 #104-361
104-361 104-361 #104-362 #104-362 104-362 104-362 #104-363 #104-363 104-363
104-363 #104-373 #104-373 104-373 104-373 #104-374 #104-374 104-374 104-374
#104-376 #104-376 104-376 104-376
ACBLK1 = ****** GX 99-135 100-177 106-447 106-460 107-495 108-567
ACC0 = 000001 #19-739
ACC1 = 000002 #19-740
ACC10 = 000400 #19-747 99-136 106-448 108-566
ACC11 = 001000 #19-748
ACC12 = 002000 #19-749
ACC13 = 004000 #19-750 106-467 106-469
ACC14 = 010000 #19-751
ACC15 = 020000 #19-752 99-136
ACC16 = 040000 #19-753 106-472
ACC17 = 100000 #19-754 106-472
ACC2 = 000004 #19-741
ACC3 = 000010 #19-742
ACC4 = 000020 #19-743 106-448 106-461 106-467 106-469
ACC5 = 000040 #19-744
ACC6 = 000100 #19-745
ACC7 = 000200 #19-746
ACLOAD = ****** GX 100-180 100-191 106-461 106-469 106-474 108-566
ACSCAT = ****** GX 99-136 106-448 106-467
AC0 = 000000 #12-27
AC1 = 000001 #12-28 100-192
AC10 = 000010 #12-35
AC11 = 000011 #12-36
AC12 = 000012 #12-37
AC13 = 000013 #12-38
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AC14 = 000014 #12-39 100-189 100-194 108-571
AC15 = 000015 #12-40
AC16 = 000016 #12-41
AC17 = 000017 #12-42
AC2 = 000002 #12-29
AC3 = 000003 #12-30
AC4 = 000004 #12-31 107-485 108-555
AC5 = 000005 #12-32 100-163
AC6 = 000006 #12-33
AC7 = 000007 #12-34
ADD = 000270 #12-167
ADDB = 000273 #12-170
ADDI = 000271 #12-168
ADDM = 000272 #12-169
ADH = 000000 #101-227 #101-227 101-227 101-227 #101-228 101-228 101-228 #101-229 101-229
101-229 #101-230 101-230 101-230 #101-231 101-231 101-231 #101-232 101-232
101-232 #101-233 101-233 101-233 #101-234 101-234 101-234 #101-235 101-235
101-235 #101-236 101-236 101-236 #102-248 #102-248 102-248 102-248 #102-249
102-249 102-249 #102-250 #102-250 102-250 102-250 #102-251 102-251 102-251
#102-252 102-252 102-252 #102-253 102-253 102-253 #102-254 102-254 102-254
#102-255 102-255 102-255 #102-256 102-256 102-256 #102-257 102-257 102-257
#102-258 102-258 102-258 #102-259 102-259 102-259 #102-271 102-271 102-271
#102-272 102-272 102-272 #102-273 #102-273 102-273 102-273 #102-274 102-274
102-274 #102-275 102-275 102-275 #102-276 102-276 102-276 #102-277 102-277
102-277 #102-278 102-278 102-278 #102-279 102-279 102-279 #102-280 102-280
102-280 #102-281 102-281 102-281 #102-282 102-282 102-282 #103-289 103-289
103-289 #103-290 103-290 103-290 #103-291 #103-291 103-291 103-291 #103-292
103-292 103-292 #103-293 103-293 103-293 #103-294 103-294 103-294 #103-295
103-295 103-295 #103-296 103-296 103-296 #103-299 103-299 103-299 #103-300
103-300 103-300 #103-301 103-301 103-301 #103-302 103-302 103-302 #103-311
103-311 103-311 #103-312 103-312 103-312 #103-313 103-313 103-313 #103-314
103-314 103-314 #103-319 103-319 103-319 #103-320 103-320 103-320 #103-321
103-321 103-321 #103-322 103-322 103-322 #103-323 103-323 103-323 #103-324
103-324 103-324 #103-325 103-325 103-325 #103-326 103-326 103-326 #104-336
104-336 104-336 #104-337 104-337 104-337 #104-338 104-338 104-338 #104-339
104-339 104-339 #104-340 104-340 104-340 #104-341 104-341 104-341 #104-342
104-342 104-342 #104-343 104-343 104-343 #104-352 #104-352 104-352 104-352
#104-353 #104-353 104-353 104-353 #104-360 104-360 104-360 #104-361 104-361
104-361 #104-362 104-362 104-362 #104-363 104-363 104-363 #104-373 104-373
104-373 #104-374 104-374 104-374 #104-375 104-375 104-375 #104-376 104-376
104-376
ADJSP = 000105 #12-53
ADL = 000000 #101-227 101-227 101-227 #101-227 101-227 101-227 #101-227 101-227 101-227
#101-227 101-227 101-227 #101-227 101-227 101-227 #101-227 101-227 101-227
101-227 #101-227 101-227 101-227 #101-228 101-228 101-228 #101-228 101-228
101-228 #101-228 101-228 101-228 #101-228 101-228 101-228 #101-228 101-228
101-228 #101-228 101-228 101-228 #101-229 101-229 101-229 #101-229 101-229
101-229 #101-229 101-229 101-229 #101-230 101-230 101-230 #101-230 101-230
101-230 #101-230 101-230 101-230 #101-230 101-230 101-230 #101-230 101-230
101-230 #101-230 101-230 101-230 #101-230 101-230 101-230 #101-231 101-231
101-231 #101-231 101-231 101-231 #101-231 101-231 101-231 #101-232 101-232
101-232 #101-232 101-232 101-232 #101-232 101-232 101-232 #101-232 101-232
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
101-232 #101-232 101-232 101-232 #101-233 101-233 101-233 #101-233 101-233
101-233 #101-234 101-234 101-234 #101-234 101-234 101-234 #101-235 101-235
101-235 #101-235 101-235 101-235 #101-236 101-236 101-236 #101-236 101-236
101-236 #102-248 102-248 102-248 #102-248 102-248 102-248 #102-248 102-248
102-248 #102-248 102-248 102-248 #102-248 102-248 102-248 #102-248 102-248
102-248 102-248 #102-248 102-248 102-248 #102-249 102-249 102-249 #102-249
102-249 102-249 #102-249 102-249 102-249 #102-250 102-250 102-250 #102-250
102-250 102-250 #102-250 102-250 102-250 #102-250 102-250 102-250 #102-250
102-250 102-250 #102-250 102-250 102-250 102-250 #102-250 102-250 102-250
#102-251 102-251 102-251 #102-251 102-251 102-251 #102-251 102-251 102-251
#102-251 102-251 102-251 #102-251 102-251 102-251 #102-252 102-252 102-252
#102-252 102-252 102-252 #102-253 102-253 102-253 #102-253 102-253 102-253
#102-253 102-253 102-253 #102-254 102-254 102-254 #102-254 102-254 102-254
#102-254 102-254 102-254 #102-255 102-255 102-255 #102-255 102-255 102-255
#102-255 102-255 102-255 #102-255 102-255 102-255 #102-255 102-255 102-255
#102-255 102-255 102-255 #102-255 102-255 102-255 #102-256 102-256 102-256
#102-256 102-256 102-256 #102-256 102-256 102-256 #102-257 102-257 102-257
#102-257 102-257 102-257 #102-258 102-258 102-258 #102-258 102-258 102-258
#102-259 102-259 102-259 #102-259 102-259 102-259 #102-271 102-271 102-271
#102-271 102-271 102-271 #102-271 102-271 102-271 #102-271 102-271 102-271
#102-271 102-271 102-271 #102-271 102-271 102-271 #102-272 102-272 102-272
#102-272 102-272 102-272 #102-272 102-272 102-272 #102-272 102-272 102-272
#102-272 102-272 102-272 #102-272 102-272 102-272 #102-272 102-272 102-272
#102-273 102-273 102-273 #102-273 102-273 102-273 #102-273 102-273 102-273
#102-273 102-273 102-273 #102-273 102-273 102-273 #102-273 102-273 102-273
102-273 #102-273 102-273 102-273 #102-274 102-274 102-274 #102-274 102-274
102-274 #102-274 102-274 102-274 #102-275 102-275 102-275 #102-275 102-275
102-275 #102-275 102-275 102-275 #102-276 102-276 102-276 #102-276 102-276
102-276 #102-276 102-276 102-276 #102-277 102-277 102-277 #102-277 102-277
102-277 #102-278 102-278 102-278 #102-278 102-278 102-278 #102-278 102-278
102-278 #102-279 102-279 102-279 #102-279 102-279 102-279 #102-280 102-280
102-280 #102-280 102-280 102-280 #102-281 102-281 102-281 #102-281 102-281
102-281 #102-281 102-281 102-281 #102-282 102-282 102-282 #102-282 102-282
102-282 #103-289 103-289 103-289 #103-289 103-289 103-289 #103-289 103-289
103-289 #103-290 103-290 103-290 #103-290 103-290 103-290 #103-291 103-291
103-291 #103-291 103-291 103-291 #103-291 103-291 103-291 #103-291 103-291
103-291 #103-291 103-291 103-291 #103-291 103-291 103-291 103-291 #103-291
103-291 103-291 #103-292 103-292 103-292 #103-292 103-292 103-292 #103-293
103-293 103-293 #103-293 103-293 103-293 #103-294 103-294 103-294 #103-294
103-294 103-294 #103-295 103-295 103-295 #103-295 103-295 103-295 #103-296
103-296 103-296 #103-296 103-296 103-296 #103-296 103-296 103-296 #103-299
103-299 103-299 #103-299 103-299 103-299 #103-300 103-300 103-300 #103-300
103-300 103-300 #103-300 103-300 103-300 #103-301 103-301 103-301 #103-301
103-301 103-301 #103-302 103-302 103-302 #103-302 103-302 103-302 #103-311
103-311 103-311 #103-311 103-311 103-311 #103-312 103-312 103-312 #103-312
103-312 103-312 #103-313 103-313 103-313 #103-313 103-313 103-313 #103-314
103-314 103-314 #103-314 103-314 103-314 #103-319 103-319 103-319 #103-319
103-319 103-319 #103-320 103-320 103-320 #103-320 103-320 103-320 #103-321
103-321 103-321 #103-321 103-321 103-321 #103-322 103-322 103-322 #103-322
103-322 103-322 #103-322 103-322 103-322 #103-322 103-322 103-322 #103-323
103-323 103-323 #103-323 103-323 103-323 #103-323 103-323 103-323 #103-323
103-323 103-323 #103-323 103-323 103-323 #103-324 103-324 103-324 #103-324
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
103-324 103-324 #103-324 103-324 103-324 #103-325 103-325 103-325 #103-325
103-325 103-325 #103-325 103-325 103-325 #103-326 103-326 103-326 #103-326
103-326 103-326 #104-336 104-336 104-336 #104-336 104-336 104-336 #104-336
104-336 104-336 #104-337 104-337 104-337 #104-337 104-337 104-337 #104-337
104-337 104-337 #104-338 104-338 104-338 #104-338 104-338 104-338 #104-338
104-338 104-338 #104-339 104-339 104-339 #104-339 104-339 104-339 #104-339
104-339 104-339 #104-340 104-340 104-340 #104-340 104-340 104-340 #104-341
104-341 104-341 #104-341 104-341 104-341 #104-341 104-341 104-341 #104-342
104-342 104-342 #104-342 104-342 104-342 #104-342 104-342 104-342 #104-343
104-343 104-343 #104-343 104-343 104-343 #104-343 104-343 104-343 #104-352
104-352 104-352 #104-352 104-352 104-352 #104-352 104-352 104-352 #104-352
104-352 104-352 #104-352 104-352 104-352 #104-352 104-352 104-352 104-352
#104-352 104-352 104-352 #104-353 104-353 104-353 #104-353 104-353 104-353
#104-353 104-353 104-353 #104-353 104-353 104-353 #104-353 104-353 104-353
#104-353 104-353 104-353 104-353 #104-353 104-353 104-353 #104-360 104-360
104-360 #104-360 104-360 104-360 #104-361 104-361 104-361 #104-361 104-361
104-361 #104-361 104-361 104-361 #104-362 104-362 104-362 #104-362 104-362
104-362 #104-362 104-362 104-362 #104-363 104-363 104-363 #104-363 104-363
104-363 #104-373 104-373 104-373 #104-373 104-373 104-373 #104-374 104-374
104-374 #104-374 104-374 104-374 #104-374 104-374 104-374 #104-375 104-375
104-375 #104-375 104-375 104-375 #104-376 104-376 104-376 #104-376 104-376
104-376
ADR2ND = 002000 #44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205
AND = 000404 #12-247
ANDB = 000407 #12-250
ANDCA = 000410 #12-251
ANDCAB = 000413 #12-254
ANDCAI = 000411 #12-252
ANDCAM = 000412 #12-253 104-341 104-341 104-342 104-342
ANDCB = 000440 #12-279
ANDCBB = 000443 #12-282
ANDCBI = 000441 #12-280
ANDCBM = 000442 #12-281
ANDCM = 000420 #12-259
ANDCMB = 000423 #12-262
ANDCMI = 000421 #12-260
ANDCMM = 000422 #12-261
ANDI = 000405 #12-248 103-291 103-291
ANDM = 000406 #12-249
AOBJN = 000253 #12-153
AOBJP = 000252 #12-152
AOJ = 000340 #12-207
AOJA = 000344 #12-211 103-292 103-292
AOJE = 000342 #12-209
AOJG = 000347 #12-214
AOJGE = 000345 #12-212
AOJL = 000341 #12-208 104-374 104-374
AOJLE = 000343 #12-210 103-325 103-325
AOJN = 000346 #12-213
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AOS = 000350 #12-215
AOSA = 000354 #12-219
AOSE = 000352 #12-217
AOSG = 000357 #12-222
AOSGE = 000355 #12-220
AOSL = 000351 #12-216
AOSLE = 000353 #12-218
AOSN = 000356 #12-221
APR = 000000 #12-449 55-130 101-232 102-251 102-271
ASH = 000240 #12-143
ASHC = 000244 #12-147
ASL0.3 = ****** GX 100-168 106-456
ASL0.4 = ****** GX 99-127
BAF = ****** GX 96-33
BIGN 000270 R *96-29 *96-30 #98-93 100-139
BIT0 = 000001 #4-63
BIT1 = 000002 #4-64
BIT10 = 002000 #4-73
BIT11 = 004000 #4-74 4-81
BIT12 = 010000 #4-75
BIT13 = 020000 #4-76
BIT14 = 040000 #4-77
BIT15 = 100000 #4-78 26-1126
BIT2 = 000004 #4-65
BIT3 = 000010 #4-66
BIT4 = 000020 #4-67
BIT5 = 000040 #4-68
BIT6 = 000100 #4-69
BIT7 = 000200 #4-70 26-1125
BIT8 = 000400 #4-71
BIT9 = 001000 #4-72 4-80
BLKADR 000272 R 97-51 *97-64 #98-94 100-141 100-178
BLKI = 000000 #12-440 55-129 55-131
BLKNO 000266 R *96-24 *96-27 96-28 #98-92 100-167
BLKO = 000002 #12-442 55-127
BLKSIZ 000300 R #98-95 100-153 100-154
BLK0 = 000000 #12-44
BLK1 = 000001 #12-45
BLK2 = 000002 #12-46
BLK3 = 000003 #12-47
BLK4 = 000004 #12-48 108-555
BLK5 = 000005 #12-49
BLK6 = 000006 #12-50
BLT = 000251 #12-151
BRCLK = 000005 #55-122
BRCTN = 000006 #43-170
BSIZE = ****** GX 112-749
BSYCLR = 000400 #44-207 44-207 44-207 #44-207 44-207 44-207 #44-207 44-207 44-207
#44-207 44-207 44-207 #44-207 44-207 44-207 #44-207 44-207 44-207
#44-207 44-207 44-207 #44-207 44-207 44-207 #44-207
BTFLCN = ****** GX 99-122 *99-124
BTOFIX 000356 R 97-69 #99-119
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CABTE 003616 R 96-39 #112-737
CAI = 000300 #12-175
CAIA = 000304 #12-179
CAIE = 000302 #12-177 103-294 103-294
CAIG = 000307 #12-182
CAIGE = 000305 #12-180
CAIL = 000301 #12-176
CAILE = 000303 #12-178
CAIN = 000306 #12-181
CAM = 000310 #12-183
CAMA = 000314 #12-187
CAME = 000312 #12-185
CAMG = 000317 #12-190
CAMGE = 000315 #12-188
CAML = 000311 #12-184
CAMLE = 000313 #12-186
CAMN = 000316 #12-189 101-231 101-231
CAS = 020000 #44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202
CCA = 000014 #12-452
CECLK = 000004 #55-119
CHKED = ****** GX 108-586
CIAPR0 = ****** GX 107-497
CLEAR = 000400 #12-239
CLEARB = 000403 #12-245
CLEARI = 000401 #12-241
CLEARM = 000402 #12-243
CLRMR = 000006 #55-120
CNTSD1 = ****** GX 99-133 99-134
CONBUT = 000012 #55-124
CONI = 000005 #12-445
CONMMR = 000001 #3-54
CONO = 000004 #12-444 102-271
CONSO = 000007 #12-447
CONSZ = 000006 #12-446 101-232 102-251
CORDET = ****** 3-8 7-244
CPU = 000200 #26-1125 99-106 100-162 100-190 106-462
DADD = 000114 #12-59
DATAI = 000001 #12-441
DATAO = 000003 #12-443 101-233 102-257 102-278 103-296 103-313 103-314 103-320 104-343
DBEAA 001143 R #101-234 106-467
DBECEB 001275 R #102-272 *106-457 *106-459 106-461
DBECNL 001263 R 99-133 99-136 #102-260
DBECNR 001232 R 99-128 99-136 #102-255
DBEF07 002066 R #105-414 109-646
DBEF7A 002067 R *100-169 #105-415 *106-440 *106-441 *109-633
DBEF7D 002070 R #105-416 *109-645
DBEH3 001624 R #104-340 108-566
DBEIFW 001516 R #103-315 106-448
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DBEMIA 001725 R 100-143 #104-371
DBEMIP 001720 R 99-134 100-191 #104-369
DBEMNI 001530 R #103-319 106-448
DBENWT 001105 R *100-159 *100-161 100-163 #101-228
DBEOVL = 177777 G #1-1 3-10 9-303
DBEO5M = 170005 100-191 #104-378
DBESAC 001066 R 99-107 #101-223
DBESCN 000000 RG 10-322 #96-16
DBESMI 000664 R 100-171 #100-177
DBESMM = 170002 100-180 #104-364
DBESMP 001667 R 100-180 #104-357
DBESMQ 000674 R #100-178 109-635
DBESM0 = 037774 99-107 #101-239
DBESM1 = 037777 99-107 #102-263
DBESM2 = 177770 99-107 #102-284
DBESM3 = 036777 99-107 #103-305
DBESM4 = 177537 99-107 #103-327
DBESM5 = 007770 99-107 #104-349
DBETEA 001655 R #104-352 *106-442 *106-443 106-469
DBETSA 001100 R 100-142 #101-227 *106-444 *106-445 106-467
DBUF = ****** GX 108-570 108-600 108-608
DDIV = 000117 #12-62
DE$BUG = 070000 #12-8
DFAD = 000110 #12-55
DFDV = 000113 #12-58
DFMP = 000112 #12-57
DFN = 000131 #12-72
DFSB = 000111 #12-56
DIACON = ****** 107-516 107-527
DIAG = 000104 #12-52
DIV = 000234 #12-139
DIVB = 000237 #12-142
DIVI = 000235 #12-140
DIVM = 000236 #12-141
DMACN = 000004 #43-160
DMACTN = 000002 #43-159
DMOVE = 000120 #12-63 103-299 103-299
DMOVEM = 000124 #12-67 104-336 104-336
DMOVN = 000121 #12-64
DMOVNM = 000125 #12-68
DMUL = 000116 #12-61
DPB = 000137 #12-78
DREADY = 001000 #44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206
DSUB = 000115 #12-60
EQV = 000444 #12-283
EQVB = 000447 #12-286
EQVI = 000445 #12-284
EQVM = 000446 #12-285
ERRSTP = 004000 #4-81
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ER$BTL = 000176 RG #97-63
ER$ERM = 002702 RG #107-526
ER$NBS = 000112 RG #96-38
ER$SIH = 002412 RG #107-488
ER$3BB = 003410 RG #110-668
EXCH = 000250 #12-150 101-230 101-230
EXP16K = ****** GX 97-50 97-56
EXTEND = 000123 #12-66
FAD = 000140 #12-79
FADB = 000143 #12-82
FADL = 000141 #12-80
FADM = 000142 #12-81
FADR = 000144 #12-83
FADRB = 000147 #12-86
FADRI = 000145 #12-84
FADRM = 000146 #12-85
FDV = 000170 #12-103
FDVB = 000173 #12-106
FDVL = 000171 #12-104
FDVM = 000172 #12-105
FDVR = 000174 #12-107
FDVRB = 000177 #12-110
FDVRI = 000175 #12-108
FDVRM = 000176 #12-109
FITCON = ****** 3-11 10-325
FIX = 000122 #12-65
FIXR = 000126 #12-69
FIXSB 002074 R 98-75 #106-439
FLTR = 000127 #12-70
FMP = 000160 #12-95
FMPB = 000163 #12-98
FMPL = 000161 #12-96
FMPM = 000162 #12-97
FMPR = 000164 #12-99
FMPRB = 000167 #12-102
FMPRI = 000165 #12-100
FMPRM = 000166 #12-101
FSB = 000150 #12-87
FSBB = 000153 #12-90
FSBL = 000151 #12-88
FSBM = 000152 #12-89
FSBR = 000154 #12-91
FSBRB = 000157 #12-94
FSBRI = 000155 #12-92
FSBRM = 000156 #12-93
FSC = 000132 #12-73
FSDCH = ****** GX 111-708 111-713 112-763
FSDM1 = ****** GX 111-705 112-762
HALTLP = 001000 #4-80
HLL = 000500 #12-311
HLLE = 000530 #12-335
HLLEI = 000531 #12-336
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
HLLEM = 000532 #12-337
HLLES = 000533 #12-338
HLLI = 000501 #12-312
HLLM = 000502 #12-313
HLLO = 000520 #12-327
HLLOI = 000521 #12-328
HLLOM = 000522 #12-329
HLLOS = 000523 #12-330
HLLS = 000503 #12-314
HLLZ = 000510 #12-319
HLLZI = 000511 #12-320
HLLZM = 000512 #12-321 102-259 102-259
HLLZS = 000513 #12-322
HLR = 000544 #12-347
HLRE = 000574 #12-371
HLREI = 000575 #12-372
HLREM = 000576 #12-373
HLRES = 000577 #12-374
HLRI = 000545 #12-348
HLRM = 000546 #12-349
HLRO = 000564 #12-363
HLROI = 000565 #12-364
HLROM = 000566 #12-365
HLROS = 000567 #12-366
HLRS = 000547 #12-350
HLRZ = 000554 #12-355
HLRZI = 000555 #12-356
HLRZM = 000556 #12-357
HLRZS = 000557 #12-358
HRL = 000504 #12-315
HRLE = 000534 #12-339
HRLEI = 000535 #12-340
HRLEM = 000536 #12-341
HRLES = 000537 #12-342
HRLI = 000505 #12-316
HRLM = 000506 #12-317
HRLO = 000524 #12-331
HRLOI = 000525 #12-332
HRLOM = 000526 #12-333
HRLOS = 000527 #12-334
HRLS = 000507 #12-318
HRLZ = 000514 #12-323
HRLZI = 000515 #12-324
HRLZM = 000516 #12-325
HRLZS = 000517 #12-326
HRR = 000540 #12-343
HRRE = 000570 #12-367
HRREI = 000571 #12-368
HRREM = 000572 #12-369
HRRES = 000573 #12-370
HRRI = 000541 #12-344 101-227 101-227 101-234 101-234 104-352 104-352 104-353 104-353
HRRM = 000542 #12-345
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
HRRO = 000560 #12-359
HRROI = 000561 #12-360
HRROM = 000562 #12-361
HRROS = 000563 #12-362
HRRS = 000543 #12-346
HRRZ = 000550 #12-351
HRRZI = 000551 #12-352
HRRZM = 000552 #12-353
HRRZS = 000553 #12-354
I = 000000 #101-227 101-227 #101-228 101-228 #101-229 101-229 #101-230 101-230 #101-231
101-231 #101-232 101-232 #101-233 101-233 #101-234 101-234 #101-235 101-235
#101-236 101-236 #102-248 102-248 #102-249 102-249 #102-250 102-250 #102-251
102-251 #102-252 102-252 #102-253 102-253 #102-254 102-254 #102-255 102-255
#102-256 102-256 #102-257 102-257 #102-258 102-258 #102-259 102-259 #102-271
102-271 #102-272 102-272 #102-273 102-273 #102-274 102-274 #102-275 102-275
#102-276 102-276 #102-277 102-277 #102-278 102-278 #102-279 102-279 #102-280
102-280 #102-281 102-281 #102-282 102-282 #103-289 103-289 #103-290 103-290
#103-291 103-291 #103-292 103-292 #103-293 103-293 #103-294 103-294 #103-295
103-295 #103-296 103-296 #103-299 103-299 #103-300 103-300 #103-301 103-301
#103-302 103-302 #103-311 103-311 #103-312 #103-312 103-312 #103-313 103-313
#103-314 103-314 #103-319 103-319 #103-320 103-320 #103-321 103-321 #103-322
103-322 #103-323 103-323 #103-324 103-324 #103-325 103-325 #103-326 103-326
#104-336 104-336 #104-337 104-337 #104-338 104-338 #104-339 104-339 #104-340
104-340 #104-341 104-341 #104-342 104-342 #104-343 104-343 #104-352 104-352
#104-353 104-353 #104-360 104-360 #104-361 104-361 #104-362 104-362 #104-363
104-363 #104-373 104-373 #104-374 104-374 #104-375 104-375 #104-376 104-376
IBP = 000133 #12-74
IDIV = 000230 #12-135
IDIVB = 000233 #12-138
IDIVI = 000231 #12-136
IDIVM = 000232 #12-137
IDPB = 000136 #12-77
ILDB = 000134 #12-75
IMUL = 000220 #12-127
IMULB = 000223 #12-130
IMULI = 000221 #12-128
IMULM = 000222 #12-129
INDEPR 001756 R 100-192 #105-394 106-451
INIBSR 003446 R 96-17 #111-704
IOR = 000434 #12-271
IORB = 000437 #12-277
IORI = 000435 #12-273
IORM = 000436 #12-275
IPECC 002052 R #105-410 106-454
JFCL = 000255 #12-155
JFFO = 000243 #12-146
JRA = 000267 #12-166
JRST = 000254 #12-154 101-236 101-236 102-252 102-252 102-258 102-258 102-279 102-279
103-295 103-295 103-302 103-302 103-324 103-324 103-326 103-326 104-340
104-340 104-363 104-363 104-376 104-376
JSA = 000266 #12-165
JSP = 000265 #12-164
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
JSR = 000264 #12-163
JUMP = 000320 #12-191
JUMPA = 000324 #12-195
JUMPE = 000322 #12-193 103-290 103-290
JUMPG = 000327 #12-198
JUMPGE = 000325 #12-196
JUMPL = 000321 #12-192
JUMPLE = 000323 #12-194
JUMPN = 000326 #12-197 103-293 103-293
LDAR = 000077 #55-125
LDB = 000135 #12-76 102-282 102-282
LDBESP 000306 R 96-18 #99-106
LSBRTN = 000001 #3-58
LSBSRL = 000744 #44-209 111-710
LSH = 000242 #12-145 102-277 102-277
LSHC = 000246 #12-149
LSTALL = ****** 12-455 39-1601 40-2 51-493 95-3
LSTDIA = ****** 51-494
LSTMAC = ****** 12-455 39-1601 40-2 51-493
LSTMB = 000001 #3-57 95-3
LUBSRL = 000600 #44-210 111-715
MABL = ****** GX 99-107
MACTN = 000001 #43-154
MAP = 000257 #12-158
MAXCN = 000037 #43-152
MBCTN = 000003 #43-155
MBOKLG = ****** 4-100 10-315
MBROOT = ****** 3-7 5-158
MDFSIZ = ****** GX 112-742
MFCTN = 000005 #43-166
MNBRCN = 000036 #43-171
MNMFCN = 000010 #43-167 44-181 44-182 44-183 112-748
MNMXCN = 000006 #43-163
MNM.CN = 000000 #43-156
MNTITF = 000040 #40-31
MOVE = 000200 #12-111 101-229 101-229 102-280 102-280 103-311 103-311
MOVEI = 000201 #12-112 101-228 101-228 103-301 103-301
MOVEM = 000202 #12-113 104-373 104-373
MOVES = 000203 #12-114
MOVM = 000214 #12-123
MOVMI = 000215 #12-124
MOVMM = 000216 #12-125
MOVMS = 000217 #12-126
MOVN = 000210 #12-119
MOVNI = 000211 #12-120 103-319 103-319
MOVNM = 000212 #12-121
MOVNS = 000213 #12-122
MOVS = 000204 #12-115
MOVSI = 000205 #12-116 102-248 102-248 102-255 102-255
MOVSM = 000206 #12-117
MOVSS = 000207 #12-118
MSAMSZ = 000140 #44-181
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 12
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
MSSCTL = ****** 3-9 8-268
MUL = 000224 #12-131
MULB = 000227 #12-134
MULI = 000225 #12-132
MULM = 000226 #12-133
MXBRCN = 000037 #43-172
MXCTN = 000004 #43-162
MXMFCN = 000017 #43-168 44-181 44-182 44-183
MXMXCN = 000007 #43-164
MXM.CN = 000003 #43-157
MXTADR 004012 R #112-784
OR = 000434 #12-272
ORB = 000437 #12-278
ORCA = 000454 #12-291
ORCAB = 000457 #12-294
ORCAI = 000455 #12-292
ORCAM = 000456 #12-293
ORCB = 000470 #12-303
ORCBB = 000473 #12-306
ORCBI = 000471 #12-304
ORCBM = 000472 #12-305
ORCM = 000464 #12-299
ORCMB = 000467 #12-302
ORCMI = 000465 #12-300
ORCMM = 000466 #12-301
ORI = 000435 #12-274
ORM = 000436 #12-276
PAG = 000010 #12-451 101-233 102-257 102-278 103-296 103-313 103-314 103-320 104-343
PI = 000004 #12-450 55-128 55-132
POP = 000262 #12-161
POPJ = 000263 #12-162
PUSH = 000261 #12-160
PUSHJ = 000260 #12-159
PXCT = 000256 #12-156 102-254 102-254 102-274 102-274 102-275 102-275 102-276 102-276
103-300 103-300 103-321 103-321
RAMSZ0 = ****** GX 112-748
RAS = 040000 #44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201
READAC = ****** GX 108-555
RELEAS = ****** 12-454 39-1600 40-1 51-492 95-1 95-2 99-109 100-173 101-222
104-380 105-407 106-452 107-535 108-593 112-769
ROT = 000241 #12-144
ROTC = 000245 #12-148 103-289 103-289
RS0RS1 = 000010 #44-182
RS0TN0 = 000020 #44-183
RUNBIG = ****** GX 100-194 107-485
RUNPRG = ****** GX 100-189
R$$20F = 000001 #3-48 44-187 49-469 96-17 96-18 96-19 96-39 97-50 97-56
99-106 99-107 99-133 99-134 99-135 99-136 100-162 100-163 100-164
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 13
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
100-177 100-180 100-181 100-189 100-190 100-191 100-192 100-193 100-194
101-222 104-380 106-447 106-448 106-460 106-461 106-462 106-467 106-469
106-470 107-485 107-495 107-497 107-500 107-510 108-555 108-566 108-567
108-574 109-643 109-646 111-705 111-708 111-713 111-717 111-718 112-756
112-762 112-763 112-787
R5.PC = ****** GX 98-90 100-172 108-561 110-677
SAV.5 = ****** GX 96-16 99-119 106-439 110-652
SBDT = ****** GX 96-19 107-510 111-718
SBD0 = ****** GX 109-646
SBUS = 100000 #26-1126
SDMSBR = ****** GX 111-705
SDWDFM = ****** GX 107-520
SECLK = 000003 #55-118
SETA = 000424 #12-263
SETAB = 000427 #12-266
SETAI = 000425 #12-264
SETAM = 000426 #12-265
SETCA = 000450 #12-287
SETCAB = 000453 #12-290
SETCAI = 000451 #12-288
SETCAM = 000452 #12-289
SETCM = 000460 #12-295
SETCMB = 000463 #12-298
SETCMI = 000461 #12-296
SETCMM = 000462 #12-297
SETM = 000414 #12-255
SETMB = 000417 #12-258
SETMI = 000415 #12-256
SETMM = 000416 #12-257
SETMR = 000007 #55-121
SETO = 000474 #12-307
SETOB = 000477 #12-310
SETOI = 000475 #12-308
SETOM = 000476 #12-309
SETPAR = ****** GX 109-643 112-756
SETRAM = ****** GX 111-717
SETRUN = 000011 #55-123
SETZ = 000400 #12-240
SETZB = 000403 #12-246
SETZI = 000401 #12-242
SETZM = 000402 #12-244 104-360 104-360
SKIP = 000330 #12-199
SKIPA = 000334 #12-203
SKIPE = 000332 #12-201
SKIPG = 000337 #12-206
SKIPGE = 000335 #12-204
SKIPL = 000331 #12-200
SKIPLE = 000333 #12-202
SKIPN = 000336 #12-205
SOJ = 000360 #12-223
SOJA = 000364 #12-227 104-362 104-362
SOJE = 000362 #12-225
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 14
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SOJG = 000367 #12-230 101-235 101-235
SOJGE = 000365 #12-228
SOJL = 000361 #12-224
SOJLE = 000363 #12-226
SOJN = 000366 #12-229
SOS = 000370 #12-231
SOSA = 000374 #12-235
SOSE = 000372 #12-233
SOSG = 000377 #12-238
SOSGE = 000375 #12-236
SOSL = 000371 #12-232
SOSLE = 000373 #12-234
SOSN = 000376 #12-237
SSCLK = 000002 #55-117
STPCLK = 000000 #55-115
STRCLK = 000001 #55-116 100-183
SUB = 000274 #12-171
SUBB = 000277 #12-174
SUBI = 000275 #12-172
SUBM = 000276 #12-173
SXCT = 000106 #12-54
TADR = 000010 #36-1491
TBN = 000004 #36-1490
TCN = 000001 #36-1488
TDC = 000650 #12-415
TDCA = 000654 #12-419 104-339 104-339
TDCE = 000652 #12-417
TDCN = 000656 #12-421 104-337 104-337
TDN = 000610 #12-383
TDNA = 000614 #12-387
TDNE = 000612 #12-385 104-338 104-338
TDNN = 000616 #12-389
TDO = 000670 #12-431
TDOA = 000674 #12-435
TDOE = 000672 #12-433
TDON = 000676 #12-437
TDZ = 000630 #12-399
TDZA = 000634 #12-403
TDZE = 000632 #12-401
TDZN = 000636 #12-405
TGN = 000002 #36-1489
TIMFS = 000044 #40-32
TLC = 000641 #12-408 102-272 102-272 103-322 103-322
TLCA = 000645 #12-412
TLCE = 000643 #12-410
TLCN = 000647 #12-414 103-323 103-323
TLN = 000601 #12-376
TLNA = 000605 #12-380
TLNE = 000603 #12-378
TLNN = 000607 #12-382 102-250 102-250
TLO = 000661 #12-424
TLOA = 000665 #12-428
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 15
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TLOE = 000663 #12-426
TLON = 000667 #12-430 103-312 103-312
TLZ = 000621 #12-392 102-273 102-273
TLZA = 000625 #12-396
TLZE = 000623 #12-394
TLZN = 000627 #12-398
TRC = 000640 #12-407
TRCA = 000644 #12-411
TRCE = 000642 #12-409
TRCN = 000646 #12-413
TRN = 000600 #12-375
TRNA = 000604 #12-379
TRNE = 000602 #12-377 104-361 104-361
TRNN = 000606 #12-381
TRO = 000660 #12-423
TROA = 000664 #12-427
TROE = 000662 #12-425
TRON = 000666 #12-429
TRPAR = 010000 #44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203
TRZ = 000620 #12-391
TRZA = 000624 #12-395
TRZE = 000622 #12-393
TRZN = 000626 #12-397
TSC = 000651 #12-416
TSCA = 000655 #12-420
TSCE = 000653 #12-418
TSCN = 000657 #12-422
TSN = 000611 #12-384
TSNA = 000615 #12-388
TSNE = 000613 #12-386
TSNN = 000617 #12-390
TSO = 000671 #12-432
TSOA = 000675 #12-436
TSOE = 000673 #12-434
TSON = 000677 #12-438
TSTCON = ****** GX 99-121 112-747
TSZ = 000631 #12-400
TSZA = 000635 #12-404
TSZE = 000633 #12-402
TSZN = 000637 #12-406
UCEFIB 002073 R *100-170 #105-419 *107-541
UFA = 000130 #12-71
UNDCTN = 000007 #43-174
WENABL = 004000 #44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204
X = 000000 #99-107 99-107 #99-107 99-107 #99-107 99-107 #99-107 99-107 #99-107
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 16
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
99-107 #99-107 99-107 #99-107 99-107 #100-197 100-197 #101-225 101-225
#101-226 101-226 #101-227 101-227 #101-228 101-228 #101-229 101-229 #101-230
101-230 #101-231 101-231 #101-232 101-232 #101-233 101-233 #101-234 101-234
#101-235 101-235 #101-236 101-236 #102-247 102-247 #102-248 102-248 #102-249
102-249 #102-250 102-250 #102-251 102-251 #102-252 102-252 #102-253 102-253
#102-254 102-254 #102-255 102-255 #102-256 102-256 #102-257 102-257 #102-258
102-258 #102-259 102-259 #102-260 102-260 #102-271 102-271 #102-272 102-272
#102-273 102-273 #102-274 102-274 #102-275 102-275 #102-276 102-276 #102-277
102-277 #102-278 102-278 #102-279 102-279 #102-280 102-280 #102-281 102-281
#102-282 102-282 #102-283 102-283 #103-289 103-289 #103-290 103-290 #103-291
103-291 #103-292 103-292 #103-293 103-293 #103-294 103-294 #103-295 103-295
#103-296 103-296 #103-297 103-297 #103-299 103-299 #103-300 103-300 #103-301
103-301 #103-302 103-302 #103-311 103-311 #103-312 103-312 #103-313 103-313
#103-314 103-314 #103-315 103-315 #103-317 103-317 #103-319 103-319 #103-320
103-320 #103-321 103-321 #103-322 103-322 #103-323 103-323 #103-324 103-324
#103-325 103-325 #103-326 103-326 #104-336 104-336 #104-337 104-337 #104-338
104-338 #104-339 104-339 #104-340 104-340 #104-341 104-341 #104-342 104-342
#104-343 104-343 #104-344 104-344 #104-352 104-352 #104-353 104-353 #104-358
104-358 #104-360 104-360 #104-361 104-361 #104-362 104-362 #104-363 104-363
#104-369 104-369 #104-371 104-371 #104-373 104-373 #104-374 104-374 #104-375
104-375 #104-376 104-376 #105-394 105-394 #105-395 105-395 #105-396 105-396
#105-397 105-397 #105-398 105-398 #105-399 105-399 #105-400 105-400 #105-401
105-401 #105-402 105-402 #105-403 105-403 #105-404 105-404 #105-406 105-406
#111-717 111-717 #111-722 111-722 #111-723 111-723 #112-775 112-775
XCT = 000256 #12-157
XDV = 000004 #101-232 101-232 101-232 #101-233 101-233 101-233 #102-249 102-249 102-249
#102-251 102-251 102-251 #102-253 102-253 102-253 #102-256 102-256 102-256
#102-257 102-257 102-257 #102-271 102-271 102-271 #102-278 102-278 102-278
#103-296 103-296 103-296 #103-313 103-313 103-313 #103-314 103-314 103-314
#103-320 103-320 103-320 #104-343 104-343 104-343 #104-375 104-375 104-375
XOP = 000002 #101-232 101-232 101-232 #101-233 101-233 101-233 #102-249 102-249 102-249
#102-251 102-251 102-251 #102-253 102-253 102-253 #102-256 102-256 102-256
#102-257 102-257 102-257 #102-271 102-271 102-271 #102-278 102-278 102-278
#103-296 103-296 103-296 #103-313 103-313 103-313 #103-314 103-314 103-314
#103-320 103-320 103-320 #104-343 104-343 104-343 #104-375 104-375 104-375
XOR = 000430 #12-267 102-281 102-281
XORB = 000433 #12-270
XORI = 000431 #12-268
XORM = 000432 #12-269
XR = 000000 #101-227 101-227 #101-228 101-228 #101-229 101-229 #101-230 101-230 #101-231
101-231 #101-232 101-232 #101-233 101-233 #101-234 #101-234 101-234 #101-235
101-235 #101-236 101-236 #102-248 #102-248 102-248 #102-249 102-249 #102-250
102-250 #102-251 102-251 #102-252 102-252 #102-253 102-253 #102-254 102-254
#102-255 102-255 #102-256 102-256 #102-257 102-257 #102-258 102-258 #102-259
102-259 #102-271 102-271 #102-272 102-272 #102-273 102-273 #102-274 102-274
#102-275 102-275 #102-276 102-276 #102-277 102-277 #102-278 102-278 #102-279
102-279 #102-280 102-280 #102-281 102-281 #102-282 102-282 #103-289 103-289
#103-290 103-290 #103-291 #103-291 103-291 #103-292 103-292 #103-293 103-293
#103-294 103-294 #103-295 103-295 #103-296 103-296 #103-299 103-299 #103-300
103-300 #103-301 103-301 #103-302 103-302 #103-311 #103-311 103-311 #103-312
#103-312 103-312 #103-313 103-313 #103-314 103-314 #103-319 103-319 #103-320
103-320 #103-321 103-321 #103-322 103-322 #103-323 103-323 #103-324 103-324
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 17
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#103-325 103-325 #103-326 103-326 #104-336 #104-336 104-336 #104-337 #104-337
104-337 #104-338 #104-338 104-338 #104-339 #104-339 104-339 #104-340 104-340
#104-341 #104-341 104-341 #104-342 #104-342 104-342 #104-343 104-343 #104-352
104-352 #104-353 #104-353 104-353 #104-360 #104-360 104-360 #104-361 104-361
#104-362 104-362 #104-363 104-363 #104-373 #104-373 104-373 #104-374 104-374
#104-375 104-375 #104-376 104-376
XX1 = ****** GX 107-497
Z = 000100 #99-107 99-107 99-107 #99-107 99-107 99-107 #99-107 99-107 99-107
#99-107 99-107 99-107 #99-107 99-107 99-107 #99-107 99-107 99-107
#99-107
$ACBLK = 000001 #99-135 #100-177 #106-447 #106-460 #107-495 #108-567
$APRID = 000000 #55-129
$BRST = 000001 #44-189
$CABTE = 000001 #10-309 111-725
$CNTSD = 000001 #99-133 #99-134
$CONEX = ****** 49-469
$DBESC = 000001 #10-308 95-5
$DDFWR = ****** GX 100-182
$DDFXC = ****** GX 100-183
$DMPAC = 070010 #12-10
$DPOST = ****** GX 100-163 100-192
$EB = 001066 R #101-222 104-380
$EVENT = 000001 #44-190
$EXAMT = ****** GX 108-577
$FATAL = ****** GX 96-38 97-63 107-488 107-526 110-668
$FIND = 000001 #44-188
$GETCT = 070020 #12-12
$IND36 = 000003 #28-1177
$INIBS = 000001 #10-312 110-679
$KL10A = 000101 #41-61
$KL10B = 000102 #41-62
$LDBES = 000001 #10-310 98-97
$LOADA = 000001 #99-136 #100-180 #100-191 #106-448 #106-461 #106-467 #106-469 #108-566
$MABL = 000001 #99-107
$MXTAD = 000001 #10-311 112-777
$PATCH = 070004 #12-9
$RDERA = 000000 #55-131
$READA = 000001 #108-555
$RELOA = 000001 #28-1175
$RESET = 000001 #99-106 #100-162 #100-190 #106-462
$RSTAC = 070030 #12-14
$RUN = 000001 #100-189 #100-194 #107-485
$SAVAC = 070024 #12-13
$SBDIA = 000002 #55-127 102-249 102-253 102-256 104-375
$SDW = 000002 #28-1176
$SETPA = 000001 #109-643 #112-756
$SETRA = 000001 #111-717
$SIZ16 = 033061 #41-64
$SIZ32 = 031063 #41-65
$SIZ4K = 032060 #41-63
$SIZ64 = 032066 #41-66
$STEP = 000001 #44-191
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 18
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$TB = 000000 #101-222
$TCRLF = ****** GX 107-522 107-526
$TIMLP = 070014 #12-11
$TL = 000130 #104-380
$TTDMS = ****** GX 107-519 107-526
$WDD36 = ****** GX 107-521
$XX = 000001 #107-497
$$APRI = 000000 #55-130
$$NARG = 000001 #99-136 99-136 99-136 #100-180 100-180 100-180 #100-191 100-191 100-191
#106-448 106-448 106-448 #106-461 106-461 106-461 #106-467 106-467 106-467
#106-469 106-469 106-469 #108-566 108-566 108-566
$$RDER = 000004 #55-132
$$SBDI = 000004 #55-128 102-249 102-253 102-256 104-375
$10BC = 070040 #12-16
$10BP = 070034 #12-15
$10MB = 070050 #12-18
$10RB = 070044 #12-17
.RESET = ****** GX 99-106 100-162 100-190 106-462
.SBDIA = 000001 #96-19 #107-510 #109-646 #111-718
... = 000377 #12-25 105-415 105-419
...... = 177777 #12-24 105-416
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 19
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ACBLK #20-787 #99-135 #100-177 #106-447 #106-460 #107-495 #108-567
BLK10 #29-1207 101-222
BP. #13-482
BRST #18-716
BTOFIX #47-336 #97-69
BURST #68-556
CABTE #46-291 96-39
CALL #53-38
CALLR #53-47
CALPAR #33-1363
CGOTO #16-617
CNTSD #33-1381 #99-133 #99-134
CONDET #46-311
CONDMA #45-222
CONFIG #45-218
CONMAB #45-230
CONMOS #45-226
CONMX #47-354
CONTIN #14-552
COPYAC #31-1325
CTFMTC #46-307
DBESCN #46-287
DCNFBB #47-326
DFPC #67-526
DFRD #56-163
DFRDT #57-184
DFSCLK #66-516
DFWRT #58-225
DFWRTT #59-265 #100-182
DFXCT #60-304
DFXCTT #61-336 #100-183
DMADET #45-246
DOLOOP #22-907
DPD #45-258
DPOS #62-369
DPOST #63-409 #100-163 #100-192
DSOBAC #18-707
DTEBAS #69-570
ENBLPS #21-854
ENDBLK #29-1222 104-380
ENDLOO #21-878
ENDTIM #42-126
ERRCOM #50-487
ERRMSG #50-473
ERROR #50-479 #107-526
EVENT #17-650
EXAM #64-448
EXAMT #65-494 108-577
EXCT #72-632
EXECUT #23-978
EXOR #54-99
EXP16K #47-364 #97-50 #97-56
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 20
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
FATAL #38-1590 #94-1291 96-38 97-63 107-488 107-526 110-668
FIND #17-669
FITMEM #45-238
FIXSB #47-340 #98-75
FSD #25-1070 #111-708 #111-713 #112-763
FSDCHK #26-1100
FSDMSK #25-1050 #111-705 #112-762
GBSRL #49-432
GETBBD #48-400
GETCMP #48-410
GETTF #46-283
GMCN #37-1522
ICEON #47-321
IND36 #28-1190
INIBSR #48-390 96-17
INIUDF #38-1583
INVAL #20-817
IO10 #30-1275 #101-232 #101-233 #102-249 #102-251 #102-253 #102-256 #102-257 #102-271 #102-278
#103-296 #103-313 #103-314 #103-320 #104-343 #104-375
I10 #30-1252 101-227 101-228 101-229 101-230 101-231 101-234 101-235 101-236 102-248
102-250 102-252 102-254 102-255 102-258 102-259 102-272 102-273 102-274 102-275
102-276 102-277 102-279 102-280 102-281 102-282 103-289 103-290 103-291 103-292
103-293 103-294 103-295 103-299 103-300 103-301 103-302 103-311 103-312 103-319
103-321 103-322 103-323 103-324 103-325 103-326 104-336 104-337 104-338 104-339
104-340 104-341 104-342 104-352 104-353 104-360 104-361 104-362 104-363 104-373
104-374 104-376
JAB #37-1535
LDATIM #49-455
LDBESP #47-331 96-18
LDEFER #38-1594
LDFSDP #26-1095
LDFVR #46-271
LDNADR #46-267
LDREFR #46-279
LDTIMR #46-275
LOADAC #19-761 99-136 100-180 100-191 106-448 106-461 106-467 106-469 108-566
LODAR #70-601
LOOP #21-869
LOOPCO #22-896
LOOPDO #22-912
MABDET #46-295
MABL #27-1138 #99-107
MABPAD #46-299
MASK36 #35-1445
MB #45-214
MBINI #46-315
MMRESP #45-262
MOSDET #45-250
MOSDMP #23-955
MRESET #75-723
MSKDAT #35-1474
MSK36R #35-1462
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 21
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
MXTADR #47-349
MX20MD #47-344
NUMARG #16-626 99-136 100-180 100-191 106-448 106-461 106-467 106-469 108-566
NUMTXT #16-608
OVRLOD #38-1576
PATERR #23-965
PBELL #89-1150
PCRLF #89-1158 107-522 107-526
PENDIS #36-1515
PFORCE #77-776 #107-526
PMSG #86-1059 107-519 107-526
PNORML #77-779 #107-526
PNTADR #79-834
PNTAL #87-1090
PNTAPR #36-1504
PNTBAK #77-782
PNTDEC #84-980
PNTNBR #80-861
PNTOCS #83-948
PNTOCT #82-916
PNTODT #85-1013
PNTVER #20-807
PNT36 #78-806
PNT36B #81-889 #107-521
POP #4-95 #53-65 #96-19 #99-106 #99-107 #99-136 #100-162 #100-180 #100-189 #100-190
#100-191 #100-194 #106-448 #106-461 #106-462 #106-467 #106-469 #106-476 #107-485 #107-510
#108-555 #108-566 #108-578 #108-592 #108-602 #108-610 #109-643 #111-708 #111-713 #111-717
#111-718 #111-719 #112-752 #112-756 #112-763 #112-767
PSLASH #89-1146
PSPACE #89-1142
PTAB #89-1154
PUSH #4-89 #53-59 #106-471 #106-472 #108-569 #108-575 #108-599 #108-607 #111-704 #112-737
#112-746
PWTES #20-827
RDPROM #45-254
READAC #31-1309 #108-555
REGRST #76-760
REGSAV #76-756
REPCON #46-303
REPFIT #45-234
RESDET #45-242
RESET #26-1112 99-106 100-162 100-190 106-462
RETURN #53-51
RST.4 #32-1343
RST.5 #32-1354
RUN #15-565 100-189 100-194 107-485
R4.R5 #32-1347
R5.PC #32-1357 #98-90 #100-172 #108-561 #110-677
SAV.4 #32-1339
SAV.5 #32-1351 #96-16 #99-119 #106-439 #110-652
SBDIAG #24-1002 #96-19 #107-510 #109-646 #111-718
SBSRL #49-416
DBEOVL CREATED BY MACRO ON 17-SEP-79 AT 09:13 PAGE 22
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
SCAN #47-359
SETBBD #48-395
SETCMP #48-405
SETPAR #33-1368 109-643 112-756
SETRAM #34-1422 111-717
SL #54-71
SM #73-662
SMFSS #48-375
SOBAC #18-696
SR #54-85
STEP #19-733
STEP10 #17-639
STKEMD #36-1496
STKMEP #36-1482
STOPLO #22-887
STPCON #18-686
S10. #14-509
TBIT #14-535
TICK #42-94
TIMING #41-68
TIMSIG #40-43 #44-201 #44-202 #44-203 #44-204 #44-205 #44-206 #44-207
TTIDEC #91-1214
TTILIN #92-1240
TTILNW #93-1266
TTIOCT #90-1186
UMAC #37-1550
WD36 #29-1243 #100-197 #101-225 #101-226 #102-247 #102-260 #102-283 #103-297 #103-315 #103-317
#104-344 #104-358 #104-369 #104-371 #105-394 #105-395 #105-396 #105-397 #105-398 #105-399
#105-400 #105-401 #105-402 #105-403 #105-404 #105-406 #111-717 #111-722 #111-723 #112-775
WWADR #74-691
XO10 #29-1218
XX #33-1397 #107-497
X10 #29-1214
$CNG #22-918
$DEF #4-84 #52-34 #52-36
$ENDLO #22-933
$LOOP #22-922
$PMSG #88-1111
$PRADR #13-465
$RDG #22-927
$STOPL #22-930
.MAIN. MACRO M1110 17-SEP-79 09:15
TABLE OF CONTENTS
2- 1 ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
95- 8 PHYSICALLY CONFIGURE DMA20
96- 35 PHYSICALLY CONFIGURE MF20 CONTROLLERS
99- 155 QUICKY SUBROUTINE TO TURN ON AN MF20'S ICE BITS
100- 190 PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS
102- 266 REPORT ON MEMORY FIT RESULTS
107- 476 FIT MEMORY PIECES TOGETHER
113- 722 REPORT WHAT CONTROLLER DATA WE HAVE TO NOW
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 1
1 177777 FITCON==-1
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 2
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
.SBTTL ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
2
3 .NLIST CND,BEX
4 .LIST MC,MD,MEB
5 .ENABL AMA
6
11 .TITLE FITCON -- FITMEM/REPORT/CONFIGURE OVERLAY
12
13 .REM %
14 THIS FILE CONTROLS THE ASSEMBLY OF THE 5 MEMORY BOOT OVERLAY MODULES.
15 WHICH ONE OF THE MODULES IS DETERMINED BY WHICH ONE OF 5 SYMBOLS IS DEFINED.
16 THE SYMBOLS ARE:
17
18 MBROOT, CORDET, MSSCTL, DBEOVL, OR FITCON.
19
20 THE SYMBOL SHOULD BE DEFINED IN THE ASSEMBLY CONTROL COMMAND USING THE /EQ:
21 SWITCH. ONE OTHER SYMBOL MAY BE DEFINED WITH THE EQUATE SWITCH: DEFINE "MBOKLG"
22 WHEN DOING AN R$$20F ASSEMBLY IN THE DIAGNOSTIC ENVIRONMENT. THIS SATISFIES
23 EXTERNAL REFERENCES BY EXPLCITLY DEFINING THOSE SYMBOLS.
24
25 THE OVERLAY STRUCTURE OF THE MEMORY BOOT IS SIMPLE: ONE ROOT MODULE,
26 MBROOT, WHICH LOADS ONE OF THE OTHER 4 MODULES UNDERNEATH IT AS NECESSARY. THE
27 TOTAL LENGTH OF OVERLAYS RESIDENT AT ANY ONE POINT IN TIME MUST BE LESS THAN
28 16000(OCTAL) BYTES, BUT IT IS PREFERABLE TO KEEP IT AROUND 14000 TO ALLOW FOR
29 EXPANSION. THE OVERLAY STRUCTURE IS SHOWN GRAPHICALLY BELOW:
30
31 MEMORY
32 16000
33 MAX
34 ! +-----------------------------------------------------------+
35 ! ! !
36 ! ! MBROOT (ROOT MODULE) !
37 ! ! !
38 ! +--------------+--------------+--------------+--------------+
39 ! ! ! ! ! !
40 ! ! CORDET ! MSSCTL ! DBEOVL ! FITCON !
41 V ! ! ! ! !
42 +--------------+--------------+--------------+--------------+
43
44 TIME --------->
45
46 %
47
48 000001 R$$20F=1 ; *****FORCE ASSEMBLY OF MEM BOOT IN FRONT-END MODE *****
49
50 ;-----DEFINE "CONMMR" TO AID IN MEMORY BOOT ERROR CHECKING. UNDEFINE IT
51 ; TO SAVE APPROXIMATELY 400(8) BYTES IN THE MEMORY BOOT ROOT MODULE. NOTE
52 ; THAT IF YOU UNDEFINE OR REDEFINE THIS THEN YOU MUST ALSO CHANGE THE POSITION
53 ; SUBROUTINE "MMRESP" IN THE FILE MBSUB.P11 SO THAT IT IS IN THE PROPER MODULE.
54 000001 CONMMR=1
55
56 ;-----LISTING CONTROL.
57 000001 LSTMB=1
58 000001 LSBRTN=1
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 3
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
60 ;-----SYMBOLS DEFINED TO GET RID OF UNDEFINED PROBLEMS. THESE SYMBOLS WOULD
61 ; NORMALLY COME FROM PRM11.P11.
62
63 000001 BIT0=1.
64 000002 BIT1=2.
65 000004 BIT2=4.
66 000010 BIT3=8.
67 000020 BIT4=16.
68 000040 BIT5=32.
69 000100 BIT6=64.
70 000200 BIT7=128.
71 000400 BIT8=256.
72 001000 BIT9=512.
73 002000 BIT10=1024.
74 004000 BIT11=2048.
75 010000 BIT12=4096.
76 020000 BIT13=8192.
77 040000 BIT14=16384.
78 100000 BIT15=32768.
79
80 001000 HALTLP= BIT9 ;EBOX IS IN HALT LOOP
81 004000 ERRSTP= BIT11 ;EBOX CLOCK STOPPED DUE TO ERROR
82
83 ;-----OTHER SYMBOLS DEFINED TO MAKE FLAGS GO AWAY.
84 .MACRO $DEF ;MAKE THE O FLAG GO AWAY ......
85 .ENDM
86
87 ;-----PUSH AND POP MACROS ARE GIVEN HERE JUST TO NEATEN UP THE LISTING SOME.
88
89 .MACRO PUSH A
90 .IRP B,<A>
91 MOV B,-(SP) ;PUSH B ON STACK
92 .ENDR
93 .ENDM
94
95 .MACRO POP A
96 .IRP B,<A>
97 MOV (SP)+,B ;POP STACK INTO B
98 .ENDR
99 .ENDM
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 10
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
327 ;-----THE FOLLOWING DEFINITIONS FORCE ASSEMBLY OF THE MEMORY BOOT SUBROUTINES
328 ; REQUIRED FOR THIS MODULE.
329
330 000001 $CONDMA=1
331 000001 $CONMOS=1
332 000001 $CONMAB=1
333 000001 $REPFIT=1
334 000001 $FITMEM=1
335 000001 $REPCON=1
336 000001 $ICEON=1
337 000001 $CONMX=1
338
339
345 ;-----THE FOLLOWING MEMORY BOOT LABELS ARE GLOBAL.
346
347 .GLOBL CONDMA,CONMAB,CONMOS,CONMX,FITMEM
348 .GLOBL REPCON,REPFIT
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 95
REGISTER SAVE/RESTORE TRANSLATION MACROS
7
8 .SBTTL PHYSICALLY CONFIGURE DMA20
9
10 .REM %
11 CONDMA SIMPLY TURNS ON THE DMA20 IF THE BUS MODE IS NOT 0.
12 %
13
14 000000 113700 000000G CONDMA: MOVB DMABM,R0 ;GET BUS MODE
15 000004 001412 BEQ 1$ ;DONT SET BUS MODE IF 0
16 000006 116037 000033' 000042' MOVB 2$-1(R0),3$+3 ;GET PROPER BITS FOR THAT MODE
17 000014 012737 000004 000000G MOV #4,TSTCON ;SET CONTR #
18 000022 SBDIAG 3$ ;SET DMA20 BUS MODE
000022 012700 000037' MOV #3$,R0 ;PT TO ARG
000026 004737 000000G JSR PC,SBD0 ;DO SBUS DIAG...ADR OF WD IN R0
19 000032 000207 1$: RTS PC
20
21 000034 120 140 160 2$: .BYTE 120,140,160 ;CLR 0-5, INTRLV BITS FOR FUNC 00
22 000037 3$: WD36 1160,4000,0000 ;SBDIAG FUNC 00
000037 000 000 200
000042 160 002
25
26 .REM %
27 DUMMY ROUTINE TO DO FINAL CONFIGURATION OF AN MX20.
28 %
29
30 000044 000241 CONMX: CLC ;INDICATE NO ERROR
31 000046 000207 RTS PC ;RETURN
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 96
PHYSICALLY CONFIGURE MF20 CONTROLLERS
35 .SBTTL PHYSICALLY CONFIGURE MF20 CONTROLLERS
36
37 .REM %
38 CONMOS IS THE ROUTINE WHICH PHYSICALLY CONFIGURES ALL MOS CONTROLLERS.
39 IT IS ASSUMED THAT FITMEM HAS BEEN CALLED BEFORE CONMOS SO THAT THE MOS BLOCK
40 START ADDRESS TABLES ARE VALID. IF A MOS CONTROLLER WAS ALREADY CONFIGURED IT
41 IS NOT RECONFIGURED BUT JUST TURNED ON AGAIN.
42 %
43
44 000050 CONMOS: SAV.5
000050 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
46 000054 012700 000040 MOV #32.,R0 ;COPY DMA20 RESP MAP INTO RSPMAP.
47 000060 016060 177776G 177776G 1$: MOV DMARMP-2(R0),RSPMAP-2(R0)
48 000066 005300 DEC R0
49 000070 077005 SOB R0,1$ ; (LP TIL DONE)
51
52 ;-----CREATE A MAP OF ALL EXISTING CONTROLLERS. THIS MAP WILL BECOME OUR
53 ; "CONNECTED TO CPU" MAP WHICH WILL BE PUT INTO ALL MF20 CONTROLLERS.
54 000072 005046 CLR -(SP) ;CLR WD ON STK FOR MAP
55 000074 012701 000010 MOV #MXMFCN-MNMFCN+1,R1 ;INI LP CNT
56 000100 006316 2$: ASL (SP) ;MAKE ROOM FOR NEW MAP BIT
57 000102 105761 000007G TSTB TYPNUM+MNMFCN-1(R1) ;DOES CONTR EXIST?
58 000106 001401 BEQ 3$ ;NO.. DON'T PUT IN MAP
59 000110 005216 INC (SP) ;ELSE MARK CONTR IN MAP
60 000112 077106 3$: SOB R1,2$ ;LP TIL ALL POSSIBLE MF20S ARE LOOKED AT
61
62 ;-----SCAN FOR EXISTING CONTROLLERS. IF A CONTROLLER EXISTS SEE IF IT IS
63 ; ALREADY CONFIGURED.
64 000114 012705 000010 MOV #MNMFCN,R5 ;INI CONTR #
65 000120 126527 000000G 000005 4$: CMPB TYPNUM(R5),#MFCTN ;DOES THE CONTR EXIST?
66 000126 001144 BNE 15$ ;NO...DO NXT
67 000130 010537 000000G MOV R5,TSTCON ;SAV CONTR #
68 000134 116500 000000G MOVB CONTI(R5),R0 ;GET SFTWR STATE BITS
69 000140 001004 BNE 5$ ;BR IF CONTR IS AT SS 1,2,3.. OK
70 000142 FATAL SS0 ;ERROR.. MF20 EXISTS BUT IS AT SS 0.
000142 004737 000000G JSR PC,$FATAL ; ** FATAL "SS0" ERROR
000146 123 123 060 .ASCIZ %SS0%
71 000152 005300 5$: DEC R0 ;IS CONTR AT SS 2 OR 3?
72 000154 003062 BGT 10$ ;YES...JUST TURN IT ON
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 97
PHYSICALLY CONFIGURE MF20 CONTROLLERS
74 ;-----CONTROLLER IS NOT CONFIGURED. SCAN FOR ALLOCATED BLOCKS. FOR EACH ONE
75 ; FOUND CREATE A RESPONSE WORD.
76 000156 FSDMSK LADRRM ;FSD CHK MSK FOR ADRESP CTL RAM LOAD
000156 012700 000000G MOV #LADRRM,R0 ;PT TO MASK
000162 004737 000000G JSR PC,FSDM1 ;LD SBDIAG CHK MASK PTD TO BY R0
77 000166 004737 000000G JSR PC,BAF ;GET POINTER TO CONTROLLER'S SIZ BYTES
78 000172 010004 MOV R0,R4 ; TO R4
79 000174 005003 CLR R3 ;INI BLOCK #
80 000176 112402 6$: MOVB (R4)+,R2 ;GET BLK SIZ
81 000200 002042 BGE 9$ ;BR IF NON-EX (OR NOT ALLOCATED...HMMMM)
82 000202 005402 NEG R2 ;USE BLOCK...GET +BLKSIZ IN R2
83 000204 010300 MOV R3,R0 ;COP & POS BLK #
84 000206 000300 SWAB R0
85 000210 006200 ASR R0
86 000212 006200 ASR R0
87 000214 116501 177770G MOVB RAMSZ0-MNMFCN(R5),R1 ;GET RAM SIZ CODE FOR TYPSEL=0
88 000220 120261 000000G CMPB R2,BSIZE(R1) ;IS BLK THE RIGHT SIZE FOR TYPSEL=0
89 000224 001402 BEQ 7$ ;YES...DONT SET TYPSEL BIT IN WD
90 000226 052700 002000 BIS #2000,R0 ;ELSE ADD TYPSEL=1 BIT TO RESP WD
91 000232 7$: SETPAR 4000 ;SET PROPER PARITY BIT INTO WD
000232 004537 000240' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
000236 004000 .WORD 4000
000240 004737 000000G 64$: JSR PC,SETPAR ;SET PARITY BIT IN R0 USING 4000
000244 012605 MOV (SP)+,R5
92 000246 052700 000020 BIS #20,R0 ;LD EN BIT
93
94 ;-----LOAD THE PROPER RESPONSE RAM LOCATIONS WITH THE WORD (WHICH ONES
95 ; DEPENDS ON BLOCK START ADDRESS & SIZE).
96 000252 010037 000460' MOV R0,18$ ;RESP RAM WD TO SBDIAG FUNC 12
97 000256 116437 000137 000457' MOVB MSAMSZ-1(R4),17$ ;CONFD ST ADR IS THE RAM LD ADR
98 000264 8$: FSD 16$,FAULT ;LD A RAM LOC
000264 004537 000272' JSR R5,65$ ;SAV R5, PT TO & SKIP FAULT LIST
000270 000456' .WORD 16$ ;SBDIAG WORD ADDRESS
000272 004737 000000G 65$: JSR PC,FSDCH ;DO FAST SBDIAG, FAULT ON ERR
000276 012605 MOV (SP)+,R5
99 000300 105237 000457' INCB 17$ ;TO NXT LOC
100 000304 077211 SOB R2,8$ ;LP TIL PROPER # OF ADRESP RAM LOCS LOADED
101 000306 005203 9$: INC R3 ;NXT BLK #
102 000310 020327 000014 CMP R3,#12. ;DONE?
103 000314 002730 BLT 6$ ;NO...DO MORE
104 000316 SMFSS 2 ;SET CONTR TO SFTWR STATE 2. IT'S NOW CONFIGURED
000316 004737 000000G JSR PC,SMFSS2 ;GO SET SOFTWARE STATE TO 2
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 98
PHYSICALLY CONFIGURE MF20 CONTROLLERS
106 ;-----ALL EXISTING CONTROLLERS COME HERE. TURN ON ALL ICE (IGNORE CORR ERR)
107 ; BITS. SET "CONNECTED TO CPU" MAP. SHUT OFF DISABLE, FORCE TO SS 2 OR 3.
108 ; DO A CLR0-5.
109 000322 10$:
111 000322 MMRESP ;MAP CONTR'S RESP (FOR TC CMD & DEBUG)
000322 004737 000000G JSR PC,MMRESP ;DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
112 000326 103004 BCC 11$ ;OK
113 000330 FATAL MMR ;BOY DID WE BLOW IT
000330 004737 000000G JSR PC,$FATAL ; ** FATAL "MMR" ERROR
000334 115 115 122 .ASCIZ %MMR%
116 000340 11$: ICEON ;TURN ON ALL THE ICE (IGNORE CORR ERR) BITS
000340 004737 000464' JSR PC,ICEON ;TURN ON ALL ICE (IGNORE CORR ERR) BITS
128 000344 011600 13$: MOV (SP),R0 ;CONNECTED MAP TO PARAM REG
129 000346 SETCMP ;MAP TO UNUSED BITSUB RAM LOCATIONS
000346 004737 000000G JSR PC,SETCMP ;MOV MF20 CPU CONNECT DATA FROM R0 TO BITSUB RAM
130 000352 SBDIAG 0000,0000,0001 ;READ PATCH FLAG
000352 004537 000362' JSR R5,66$ ;SAV R5, PT TO & SKIP ARG LIST
000356 000001 000000
000362 004737 000000G 66$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
000366 012605 MOV (SP)+,R5
131 000370 042710 002000 BIC #2000,(R0) ;SHUT OFF DISABLE BIT
132 000374 052710 001201 BIS #1201,(R0) ;FORCE TO SS 2 OR 3
138 000400 14$: SBDIAG ;FIX SS BITS IN CONTR
000400 004737 000000G JSR PC,SBD0 ;DO SBUS DIAG...ADR OF WD IN R0
139 000404 SBDIAG 0000,0004,0004 ;JUST TO MAKE SURE REFRESH IS RUNNING
000404 004537 000414' JSR R5,68$ ;SAV R5, PT TO & SKIP ARG LIST
000410 040004 000000
000414 004737 000000G 68$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
000420 012605 MOV (SP)+,R5
140 000422 SBDIAG 0100,0000,0000 ;FUNC 00 TO CLR ERR FLAGS
000422 004537 000432' JSR R5,69$ ;SAV R5, PT TO & SKIP ARG LIST
000426 000000 040000
000432 004737 000000G 69$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
000436 012605 MOV (SP)+,R5
141
142 ;-----THE CONTROLLER IS NOW TURNED ON AND READY TO GO. GO DO NEXT ONE.
143 000440 005205 15$: INC R5 ;NXT
144 000442 020527 000017 CMP R5,#MXMFCN ;ANY MORE
145 000446 003624 BLE 4$ ;YES..DO IT
146 000450 005726 TST (SP)+ ;JUNK OFF STK
147 000452 R5.PC ;RESTORE REGS & RETURN
000452 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
148
149 000456 012 16$: .BYTE 12 ;RHE OF SBDIAG FUNC 12 WD
150 000457 000 17$: .BYTE 0 ;RAM LD ADR GOES HERE
151 000460 000000 000000 18$: .WORD 0,0 ;RESP RAM WD GOES HERE
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 99
QUICKY SUBROUTINE TO TURN ON AN MF20'S ICE BITS
155 .SBTTL QUICKY SUBROUTINE TO TURN ON AN MF20'S ICE BITS
156
157 .REM %
158 ICEON JUST LOADS AND RUNS AN AC PROGRAM. THIS AC PROGRAM GETS EACH
159 BITSUB RAM LOCATION, TURNS ON THE ICE (IGNORE CORRECTABLE ERROR) BIT, AND WRITES
160 THE RAM LOCATION BACK AGAIN. IF THE ICE BIT WAS ALREADY ON, THE LOCATION IS NOT
161 AFFECTED. ICEON DOES NOT TOUCH BITSUB RAM LOCATIONS 600-774 AT ALL.
162 %
163
164 000464 ICEON: RESET CPU
000464 004537 000472' JSR R5,64$ ;SAV R5, PT TO & SKIP CPU LIST
000470 000200 .WORD CPU
000472 004737 000000G 64$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
000476 012605 MOV (SP)+,R5
165 000500 CNTSD 2$ ;PUT CONTR # INTO SBDIAG WD
000500 012700 000626' MOV #2$,R0 ;PT TO SBDIAG WD
000504 004737 000000G JSR PC,CNTSD1 ;CONTR # TO SBDIAG WD (ADDR IN R0)
166 000510 LOADAC ICEONM,1$ ;LOAD THE PROGRAM
000510 004537 000520' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
000514 003777 .WORD ICEONM ;LOAD MASK
000516 000544' .WORD 1$ ;PDP11 MEM ADR(S)
000520 004737 000000G 65$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
000524 012605 MOV (SP)+,R5
167 000526 RUN AC0 ;RUN IT
000526 004537 000534' JSR R5,66$ ;SAV R5, PT TO & SKIP ARG LIST
000532 000000 .WORD AC0 ;STARTING ADR
000534 004737 000000G 66$: JSR PC,RUNPRG ;RUN PRGM 1 TIC USING GIVEN PC
000540 012605 MOV (SP)+,R5
168 000542 000207 RTS PC ;DONE...EXIT
169
170 000544 BLK10
171 000544 1$: I10 SUBI,12,,400 ;0-NXT BITSUB RAM LOC
000544 000 001 000
000547 355 005
172 000551 IO10 SBDIAG,,,12 ;1-GET LOCATIONS CONTENTS
000551 012 000 000
000554 005 016
173 000556 I10 HLLZ,13,,13 ;2-SHUT OFF JUNK IN 18-35
000556 013 000 200
000561 105 012
174 000563 I10 IOR,13,,12 ;3-CONTR #, RAM ADR, & FCN # TO NEW WD
000563 012 000 200
000566 345 010
175 000570 I10 TLC,13,,34 ;4-COMP ICE & PAR BITS, TURN ON LD EN
000570 034 000 200
000573 015 015
176 000575 I10 TLNE,13,,20 ;5-SKIP IF ICE BIT WAS ON BEFORE TLC
000575 020 000 200
000600 035 014
177 000602 IO10 SBDIAG,,,13 ;6-ELSE DO SBDIAG TO TURN IT ON
000602 013 000 000
000605 005 016
178 000607 I10 TRNE,12,,77400 ;7-SKIP IF ALL DONE
000607 000 177 000
000612 025 014
179 000614 I10 JRST,,,0 ;10-ELSE LOOP UNTIL DONE
000614 000 000 000
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 99-1
QUICKY SUBROUTINE TO TURN ON AN MF20'S ICE BITS
000617 140 005
180 000621 I10 JRST,4,,0 ;11-HALT WHEN DONE
000621 000 000 000
000624 142 005
181 000626 2$: WD36 0000,0006,0007 ;12-BLANK FCN 7 WD TO READ BITSUB RAM LOC
000626 007 140 000
000631 000 000
182 ;13-ECHO FROM ABOVE.. IS CONVERTED & SENT
183 ;14-SCRATCH
184 003777 ICEONM=3777 ;15-17 NOT USED
185 000633 ENDBLK
186 .EVEN
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 100
PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS
190 .SBTTL PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS
191
192 .REM %
193 CONMAB TAKES THE INTERLEAVE, START ADDRESS, AND SIZE INFORMATION OF EACH
194 MA20 OR MB20 CONTROLLER AND USES IT TO PHYSICALLY TURN ON THAT CONTROLLER. SCAN
195 IS FROM CONTROLLER 0 TO 3. EACH CONTROLLER IS TREATED THE SAME WAY AS EVERY
196 OTHER EXCEPT WHEN DOING PAIRS. IN THAT CASE THE ODD CONTROLLER IS SET THE SAME
197 AS THE EVEN CONTROLLER EXCEPT THAT THE SENSE OF THE RQ BITS IS REVERSED. IT IS
198 ASSUMED THAT FITMEM HAS BEEN DONE. WATCH YOURSELF.
199 %
200
201 000634 CONMAB: SAV.5
000634 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
202 000640 005005 CLR R5 ;CONTROLLER NUMBER
203 000642 005004 CLR R4 ;INTRLV & RQ BITS
204 000644 012701 000017 MOV #17,R1 ;CONSTANT FOR EXOR
205 ;-----HERE TO VALIDATE OLD OR GET NEW CONFIGURATION DATA.
206 000650 032705 000001 1$: BIT #1,R5 ;EVEN OR ODD CONTR?
207 000654 001407 BEQ 2$ ;EVEN...MUST GET NEW DATA
208 000656 EXOR R1,R4 ;CHANGE SENSE OF RQ BITS FOR ODD CONTR
000656 010146 MOV R1,-(SP)
000660 040416 BIC R4,(SP)
000662 040104 BIC R1,R4
000664 052604 BIS (SP)+,R4
209 000666 032704 000040 BIT #40,R4 ;WAS EVEN CONTR PAIRED? (INT 2 OR 4)
210 000672 001052 BNE 5$ ;YES...JUST TURN ON ODD WITH SAME INFO
211 000674 116500 000000G 2$: MOVB MABINT(R5),R0 ;HERE FOR NEW CONTR INFO...GET INTRLV
212 000700 116004 001070' MOVB 8$(R0),R4 ;GET INT & RQ BITS FROM TABLE
213 000704 005300 DEC R0 ;INTRLV 0 (OFF) OR 1?
214 000706 002462 BLT 7$ ;YES...0...NO CONTR...DON'T CONFIGURE
215 000710 001407 BEQ 3$ ;YES...1...CANT REVERSE RQ BITS
216 000712 105737 000000G TSTB CONFGR ;DO WE WANT TO REVERSE THEM?
217 000716 001404 BEQ 3$ ;NO
218 000720 EXOR R1,R4 ;ELSE REVERSE THEM
000720 010146 MOV R1,-(SP)
000722 040416 BIC R4,(SP)
000724 040104 BIC R1,R4
000726 052604 BIS (SP)+,R4
220 000730 116503 000000G 3$: MOVB MABSA(R5),R3 ;GET START ADR
221 000734 042703 177400 BIC #177400,R3
222 000740 116500 000000G MOVB MABSIZ(R5),R0 ;GET SIZE
223 000744 010302 MOV R3,R2 ;COPY START ADR FOR END ADR CALC
224 000746 042702 177760 BIC #-16.,R2 ;ISO LOWER 265K START ADR
225 000752 160002 SUB R0,R2 ;CALC UPPER ADR BOUND <U=L-(-SIZ)-1>
226 000754 005302 DEC R2
227 000756 032702 177760 BIT #-16.,R2 ;HAVE WE GONE OUT OF 256K BLOCK?
228 000762 001404 BEQ 4$ ;NO...OK
229 000764 FATAL OO2 ;ELSE DIE
000764 004737 000000G JSR PC,$FATAL ; ** FATAL "OO2" ERROR
000770 117 117 062 .ASCIZ %OO2%
230 000774 006302 4$: ASL R2 ;POS HI BOUND ADR
231 000776 006302 ASL R2
232 001000 000303 SWAB R3 ;POS LO BOUND ADR
233 001002 006203 ASR R3
234 001004 006203 ASR R3
235 001006 042703 140077 BIC #140077,R3 ;ISO LO BOUND
236 001012 050203 BIS R2,R3 ;COMBINE INTO LO/HI BOUNDS WORD
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 100-1
PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS
237 001014 052703 000002 BIS #2,R3 ;TURN ON LD EN BIT
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 101
PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS
239 ;-----HERE TO TURN ON A CONTROLLER.
240 001020 010537 000000G 5$: MOV R5,TSTCON ;SAV CONTR #
246 001024 110437 001077' 6$: MOVB R4,9$+3 ;INTRLV/RQ BYTE TO SBDIAG FUNC 00 WD
247 001030 010337 001102' MOV R3,10$+1 ;BOUNDS TO FUNC 01 WD
248 001034 SBDIAG 10$ ;SET ADR BOUNDS INTO CONTROLLER
001034 012700 001101' MOV #10$,R0 ;PT TO ARG
001040 004737 000000G JSR PC,SBD0 ;DO SBUS DIAG...ADR OF WD IN R0
249 001044 SBDIAG 9$ ;CLR0-5, SET INTRLV & RQ BITS
001044 012700 001074' MOV #9$,R0 ;PT TO ARG
001050 004737 000000G JSR PC,SBD0 ;DO SBUS DIAG...ADR OF WD IN R0
250 ;-----NEXT CONTROLLER.
251 001054 005205 7$: INC R5 ;NEXT CONTR #
253 001056 020527 000003 CMP R5,#MXM.CN ;ANY MORE?
257 001062 003672 BLE 1$ ;YES
258 001064 R5.PC ;RETURN
001064 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
259
260 001070 100 137 152 8$: .BYTE 100,137,152,172 ;CLR0-5 BIT, INTRLV & RQ EN BYTES
261 001074 9$: WD36 0100,4000,0000 ;FUNC 00 WD
001074 000 000 200
001077 100 000
262 001101 10$: WD36 0000,0000,0001 ;FUNC 01 WD
001101 001 000 000
001104 000 000
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 102
REPORT ON MEMORY FIT RESULTS
266 .SBTTL REPORT ON MEMORY FIT RESULTS
267
268 .REM %
269 REPFIT REPORTS THE RESULTS OF THE MEMORY FIT PROCESS. IN ADDITION IT
270 SERVES AS A PROGRAM LOGIC CHECK AND IS CAPABLE OF FINDING A NUMBER OF ERRORS.
271 IT WORKS AS FOLLOWS: ALL OF THE ADDRESS SPACE MUST BE ASSIGNED EITHER TO DMA20,
272 GAP, INTERNAL CORE, OR MOS MEMORY. REPFIT CREATES AN ADDRESS AND THEN SCANS THE
273 VARIOUS TABLES UNTIL HE FINDS WHO HAS THAT ADDRESS. IF NO ONE HAS IT SOMETHING
274 IS SCREWWED UP. OTHERWISE HE PRINTS WHO HAS IT & GOES ON UNTIL ALL 4 MEG IS
275 COVERED.
276 %
277 001106 REPFIT:
278 001106 FITMEM ;MAKE SURE MEM FIT PROCESS IS DONE
001106 004737 002154' JSR PC,FITMEM ;FIT MEMORY PIECES TOGETHER
279 001112 SAV.5
001112 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
280 001116 005005 CLR R5 ;INI THE ADDRESS
281 001120 005004 CLR R4 ;ALLOCATED BLIVITS FOUND COUNT
282 001122 PUSH <GAPCNT,#GAPTAB,DMA2TS,#DMA20T> ;WORK AREA ON STK
001122 013746 000000G MOV GAPCNT,-(SP)
001126 012746 000000G MOV #GAPTAB,-(SP)
001132 013746 000000G MOV DMA2TS,-(SP)
001136 012746 000000G MOV #DMA20T,-(SP)
283 001142 PFORCE ;UNDO CNTL-O
284 001142 PNORML
285 001142 PMSG <\LOGICAL MEMORY CONFIGURATION.\> ;HEADER
001142 012700 001154' MOV #64$,R0 ; ** MESSAGE POINTER TO R0
001146 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001152 000420 BR 65$ ; ** BRANCH AROUND TEXT
001154 134 114 117 64$: .ASCIZ %\LOGICAL MEMORY CONFIGURATION.\%
286 001214 PMSG < ADDRESS SIZE INT TYPE CONTROLLER\>
001214 012700 001226' MOV #66$,R0 ; ** MESSAGE POINTER TO R0
001220 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001224 000424 BR 67$ ; ** BRANCH AROUND TEXT
001226 040 040 101 66$: .ASCIZ % ADDRESS SIZE INT TYPE CONTROLLER\%
287
288 ;-----PRINT THE ADDRESS IF THE ADDRESS IS NOT AT THE END-OF-MEM-SPACE GAP.
289 001276 005766 000006 1$: TST 6(SP) ;ANYTHING LEFT IN GAP TABLE?
290 001302 003411 BLE 2$ ;NO. PRINT THE ADDRESS
291 001304 016601 000004 MOV 4(SP),R1 ;GET GAP ADR PTR TO R1
292 001310 020511 CMP R5,(R1) ;DOES GAP HAVE RIGHT ADR?
293 001312 001005 BNE 2$ ;NO. PRINT THE ADDRESS
294 001314 012100 MOV (R1)+,R0 ;GAP ADR TO R0
295 001316 061100 ADD (R1),R0 ;CALC AFTER-GAP ADR (=ST+LEN)
296 001320 020027 000400 CMP R0,#400 ;IS THIS GAP AT END OF MEMORY?
297 001324 001403 BEQ 3$ ;YES. DON'T PRINT ADR
298 001326 010500 2$: MOV R5,R0
299 001330 004737 003744' JSR PC,CSPAS ;EDIT & PRINT ADR
301
302 ;-----SEE IF DMA20 HAS THE ADDRESS.
303 001334 3$: POP R3 ;CURRENT DMA TABLE ADR TO R3
001334 012603 MOV (SP)+,R3
304 001336 005716 TST (SP) ;ANY X MEM BLKS LEFT?
305 001340 003420 BLE 5$ ;NO...SKIP THIS PART
306 001342 020513 CMP R5,(R3) ;DOES DMA HAV THE ADR?
307 001344 002416 BLT 5$ ;NO...TRY FOR GAP
308 001346 001404 BEQ 4$ ;YES
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 102-1
REPORT ON MEMORY FIT RESULTS
309 001350 FATAL XOO ;X MEM BLK OUT OF ORDER
001350 004737 000000G JSR PC,$FATAL ; ** FATAL "XOO" ERROR
001354 130 117 117 .ASCIZ %XOO%
310 001360 005316 4$: DEC (SP) ;OK...DEC X MEM BLK CNT
311 001362 005723 TST (R3)+ ;PT TO BLK SIZ
312 001364 012300 MOV (R3)+,R0 ;TO PARAM REG
313 001366 113701 000000G MOVB DMABM,R1 ;BUS MODE TO PARAM REG
314 001372 012702 000004 MOV #4,R2 ;CONTR # TO PARAM REG
315 001376 PUSH R3 ;RESTORE STK
001376 010346 MOV R3,-(SP)
316 001400 000430 BR 7$ ;GO PRINT
317 001402 5$: PUSH R3 ;RESTORE STK
001402 010346 MOV R3,-(SP)
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 103
REPORT ON MEMORY FIT RESULTS
319
320 ;-----SEE IF THE ADDRESS IS GIVEN TO A GAP.
321 001404 005766 000006 TST 6(SP) ;ANYTHING LEFT IN GAP TABLE?
322 001410 003530 BLE 14$ ;NO...TRY INTERNAL CORE MEM
323 001412 020576 000004 CMP R5,@4(SP) ;DOES GAP HAVE RIGHT ADR?
324 001416 002525 BLT 14$ ;NO TRY CORE AGAIN
325 001420 001404 BEQ 6$ ;YES
326 001422 FATAL GOO ;GAP OUT OF ORDER
001422 004737 000000G JSR PC,$FATAL ; ** FATAL "GOO" ERROR
001426 107 117 117 .ASCIZ %GOO%
327 001432 005366 000006 6$: DEC 6(SP) ;DECR GAP COUNT
328 001436 062766 000002 000004 ADD #2,4(SP) ;PT TO GAP SIZ WD
329 001444 017600 000004 MOV @4(SP),R0 ;SIZ WD TO PARAM REG
330 001450 062766 000002 000004 ADD #2,4(SP) ;PT TO NXT ENTRY
331 001456 012701 177777 MOV #-1,R1 ;FLAG NON-EXISTENT MEMORY
332
333 ;-----A MATCH TO THE ADDRESS HAS BEEN FOUND. COME HERE TO PRINT INFO.
334 001462 060005 7$: ADD R0,R5 ;FIRST UPDATE THE ADR (ALREADY PRINTED)
335 001464 005701 8$: TST R1 ;ARE WE DOING A GAP?
336 001466 002003 BGE 9$ ;NO
337 001470 020527 000400 CMP R5,#400 ;IS GAP AT END-OF-MEM-SPACE?
338 001474 001466 BEQ 13$ ;YES. SUPPRESS PRINT
339 001476 004737 003776' 9$: JSR PC,PRINTK ;PRINT NNNNK<TAB>
340 001502 010100 MOV R1,R0 ;INTRLV
341 001504 100441 BMI 11$ ;NEG INTRLV MEANS GAP...PRINT NXM
342 001506 004737 004044' JSR PC,PBM ;PRINT INTRLV
343 001512 110200 MOVB R2,R0 ;COPY CONTR #
344 001514 116000 000000G MOVB TYPNUM(R0),R0 ;GET CONTR TYPE
345 001520 004737 000000G JSR PC,ASL0.3 ;CALC PTR TO CONTR TYP ASCIZ STRING
346 001524 062700 000000G ADD #TYPE0,R0
347 001530 PNTAL
001530 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
348 001534 PSPACE
001534 004737 000000G JSR PC,$TTSPC ; ** PRINT A <SPACE>
349 001540 10$: PSPACE
001540 004737 000000G JSR PC,$TTSPC ; ** PRINT A <SPACE>
350 001544 010200 MOV R2,R0 ;CONTR # TO PARAM REG
351 001546 PNTODT 2 ;2 DIGIT #
001546 010046 MOV R0,-(SP) ; ** SAVE R0
001550 042700 177700 BIC #^C77,R0 ; ** MASK OUT UNWANTED BITS
001554 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
001560 012600 MOV (SP)+,R0 ; ** RESTORE R0
353 001562 005702 TST R2 ;ANOTHER CONTR # TO PRINT?
354 001564 002030 BGE 12$ ;NO
355 001566 000302 SWAB R2 ;ELSE POSITION THE OTHER CONTR #
356 001570 PMSG < &>
001570 012700 001602' MOV #68$,R0 ; ** MESSAGE POINTER TO R0
001574 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001600 000402 BR 69$ ; ** BRANCH AROUND TEXT
001602 040 046 000 68$: .ASCIZ % &%
358 001606 000754 BR 10$ ;PRINT THE OTHER
359 001610 11$: PMSG < NON-EXISTENT>
001610 012700 001622' MOV #70$,R0 ; ** MESSAGE POINTER TO R0
001614 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001620 000412 BR 71$ ; ** BRANCH AROUND TEXT
001622 040 040 040 70$: .ASCIZ % NON-EXISTENT%
360 001646 12$: PCRLF ;END THE LINE
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 103-1
REPORT ON MEMORY FIT RESULTS
001646 004737 000000G JSR PC,$TCRLF ; ** PRINT A <CR><LF>
361 001652 020527 000400 13$: CMP R5,#400 ;UP TO 4 MEG YET?
362 001656 103607 BLO 1$ ;NO...KEEP GOING
363 001660 001527 BEQ 29$ ;YES..DONE PRINT...CHK ALLOCD BLIVIT CNT
364 001662 FATAL B4M ;HAVE GOTTEN BEYOND 4 MEG SOMEHOW
001662 004737 000000G JSR PC,$FATAL ; ** FATAL "B4M" ERROR
001666 102 064 115 .ASCIZ %B4M%
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 104
REPORT ON MEMORY FIT RESULTS
366
367 ;-----HERE TO TRY THE ADDRESS UP AGAINST INTERNAL CORE MEMORY.
369 001672 012702 000003 14$: MOV #MXM.CN,R2 ;CONTR # FOR SCAN
373 001676 116200 000000G 15$: MOVB MABSIZ(R2),R0 ;DOES CONTR EXIST?
374 001702 001432 BEQ 19$ ;NO...TRY NXT
375 001704 002404 BLT 16$
376 001706 FATAL MNA ;MA/MB EXISTS BUT IS NOT ALLOCATED
001706 004737 000000G JSR PC,$FATAL ; ** FATAL "MNA" ERROR
001712 115 116 101 .ASCIZ %MNA%
377 001716 126205 000000G 16$: CMPB MABSA(R2),R5 ;DOES CONTR HAVE THE START ADR?
378 001722 001022 BNE 19$ ;NO...TRY NXT
379 001724 005204 INC R4 ;YES...INC ALLOCD BLIVIT FND CNT
380 001726 005400 NEG R0 ;NEG SIZE TO GET REAL SIZ
381 001730 116201 000000G MOVB MABINT(R2),R1 ;INTRLV TO PARAM REG
382 001734 020127 000002 CMP R1,#2 ;2 OR 4 WAY?
383 001740 103650 BLO 7$ ;NO...IS SINGLE CONTROLLER
385 001742 PUSH R2 ;ELSE DOUBLE UP CONTR NUMBERS
001742 010246 MOV R2,-(SP)
386 001744 005202 INC R2
387 001746 000302 SWAB R2
388 001750 052602 BIS (SP)+,R2
389 001752 105737 000000G TSTB CONFGR ;REVERSE CONF FLAG SET?
390 001756 001401 BEQ 17$ ;NO...EVEN CONTR HAS EVEN RQ BITS
391 001760 000302 SWAB R2 ;ELSE ODD CONTR HAS EVEN RQ BITS
392 001762 052702 100000 17$: BIS #BIT15,R2 ;FLAG DOUBLE CONTR RQ
398 001766 000635 BR 7$ ;GO PRINT
399 001770 005302 19$: DEC R2 ;TRY NXT MA20/MB20 CONTR
400 001772 002341 BGE 15$
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 105
REPORT ON MEMORY FIT RESULTS
402
403 ;-----THE MOS MEMORY SCAN IS COMPLICATED BY THE FACT THAT THE TYPEOUT IS
404 ; DONE BY CONTROLLER BUT THE FIT IS DONE BY MOS BLOCKS. THIS CODE THEREFORE
405 ; SCANS UNTIL AN ADDRESS MATCH IS FOUND AND THEREIN AFTER LOCKS ONTO THE
406 ; CONTROLLER WHERE THE MATCH IS FOUND. ONCE LOCKED IT ITERATES UNTIL ALL
407 ; ADDRESS-CONTIGUOUS BLOCKS IN THE CONTROLLER HAVE BEEN PICKED UP.
408 001774 005000 CLR R0 ;CUMULATIVE CONTIGUOUS BLK SIZ
409 001776 005001 CLR R1 ;CNT SINCE LAST ST ADR MATCH
410 002000 005002 CLR R2 ;BLOCK INDEX
411 002002 116203 000000G 20$: MOVB MDFSIZ(R2),R3 ;DOES BLK EXIST?
412 002006 001410 BEQ 22$ ;NO...TRY NXT
413 002010 002404 BLT 21$ ;YES
414 002012 FATAL UMB ;UNALLOCATED MOS BLOCK
002012 004737 000000G JSR PC,$FATAL ; ** FATAL "UMB" ERROR
002016 125 115 102 .ASCIZ %UMB%
415 002022 126205 000000G 21$: CMPB MOSSA(R2),R5 ;DOES BLK HAVE RIGHT ST ADR?
416 002026 001425 BEQ 25$ ;YES...LOCK ON CONTR & RECORD
417 002030 005301 22$: DEC R1 ;WHAT MODE ARE WE IN?
418 002032 002413 BLT 24$ ;NOT LOCKED...INTERCONTR SCAN
419 002034 003027 BGT 26$ ;LOCKED...INTRACONTR SCAN
420 002036 012701 000007 MOV #MNMFCN-1,R1 ;INTRACONTR SCAN DONE..CALC CONTR # FROM BLK NDX
421 002042 005201 23$: INC R1
422 002044 162702 000014 SUB #12.,R2
423 002050 002374 BGE 23$
424 002052 010102 MOV R1,R2
425 002054 012701 000004 MOV #4,R1 ;...INTRA-SCAN DONE...INTRLV PARAM
426 002060 000601 BR 8$ ;GO PRINT
427 002062 005202 24$: INC R2 ;HERE FOR INTER-SCAN NXT BLK #
428 002064 020227 000137 CMP R2,#<MXMFCN-MNMFCN+1>*12.-1 ;OUT OF BLKS?
429 002070 101744 BLOS 20$ ;NO...TRY AGAIN
430 002072 FATAL NHA ;NO ONE HAS THE ADDRESS
002072 004737 000000G JSR PC,$FATAL ; ** FATAL "NHA" ERROR
002076 116 110 101 .ASCIZ %NHA%
431 002102 005204 25$: INC R4 ;MATCH FOUND...INCR ALLOCD BLIVIT CNT
432 002104 012701 000014 MOV #12.,R1 ;(RE)SET INTRA-SCAN LP CNT
433 002110 160305 SUB R3,R5 ;ADR=ADR-(-SIZE)
434 002112 160300 SUB R3,R0 ;TOTAL=TOTAL-(-SIZE)
435 002114 005202 26$: INC R2 ;HERE FOR INTRACONTROLLER SCAN
436 002116 PUSH R2 ;FIGURE OUT IF WE HAVE PASSED THE LOCKED CONTR
002116 010246 MOV R2,-(SP)
437 002120 162702 000014 27$: SUB #12.,R2 ; AND IF SO GO BACK TO BLK 0 OF LOCKED CONTR
438 002124 003375 BGT 27$
439 002126 001002 BNE 28$
440 002130 162716 000014 SUB #12.,(SP)
441 002134 28$: POP R2
002134 012602 MOV (SP)+,R2
442 002136 000721 BR 20$
443
444 002140 29$: PCRLF ;PRINTING ALL DONE WHEN HERE
002140 004737 000000G JSR PC,$TCRLF ; ** PRINT A <CR><LF>
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 106
REPORT ON MEMORY FIT RESULTS
471 002144 062706 000010 34$: ADD #8.,SP ;JUNK OFF STK
472 002150 R5.PC ;RESTORE REGS & RETURN
002150 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 107
FIT MEMORY PIECES TOGETHER
476 .SBTTL FIT MEMORY PIECES TOGETHER
477
478 .REM %
479 FITMEM SETS UP THE START ADDRESS TABLES BASED UPON THE CURRENT CONTENTS
480 OF THE RESOURCE TABLES. THE RESOURCES ARE SET UP FIRST IF REQUIRED. FITMEM IS
481 REALLY JUST THE INTERLOCK CODE. IT DROPS THROUGH TO MDSLT WHO DOES THE REAL
482 WORK.
483 %
484 002154 FITMEM:
486
487 ; ***** RESDET MUST ALREADY BE DONE BY THE TIME WE GET HERE! *****
488
492 002154 105737 000000G TSTB FITTED ;HAS FITMEM BEEN DONE?
493 002160 001401 BEQ MDSLT ;NO...DO IT
494 002162 000207 RTS PC
495
496
497 .REM %
498 MDSLT IS THE SUBROUTINE FOR DETERMINING WHAT THE MEMORY CONFIGURATION IS
499 TO BE. INPUTS TO THIS ROUTINE ARE THE RESOURCE TABLES AND ASSOCIATED CONTROL
500 WORDS. THE OUTPUTS ARE THE START-ADDRESS TABLES AND THE "GAP" TABLE. A WORD ON
501 NOTATION IS NEEDED HERE: A HOLE IS SOMETHING MDSLT IS TRYING TO FILL WHEREAS A
502 GAP IS SOMETHING MDSLT HAS GIVEN UP TRYING TO FILL. BASICLY MDSLT WORKS AS
503 FOLLOWS: HOLES ARE BOUND BY EXTERNAL MEMORY, PRECONFIGURED MOS MEMORY, AND THE
504 ABSOLUTE LIMITS OF THE MEMORY SPACE. MDSLT ATTEMPS TO FILL THESE HOLES WITH
505 INTERNAL MEMORY OR UNCONFIGURED MOS MEMORY. IF A HOLE, OR A PORTION THEREOF,
506 CANNOT BE FILLED, THEN THAT SPACE IS ASSIGNED AS A GAP. IN THIS MANNER MDSLT
507 WILL ACCOUNT FOR ALL 4 MEGAWORDS OF PHYSICAL MEMORY. NOTHING SHOULD CAUSE MDSLT
508 TO FAIL. IT WILL CONFIGURE WHATEVER HE FINDS IN THE RESOURCE TABLES. ALL
509 INTERNAL, MOS, AND EXTERNAL MEMORY WILL BE CONFIGURED, WITHOUT GAPS IF POSSIBLE.
510 %
511
512 ;-----ENTRY SECTION. DO APPROPRIATE INITS.
513 002164 MDSLT: REGSAV ;SAVE ALL REGS
002164 004737 000000G JSR PC,SAV.5 ; ** SAVE R1 - R5 ON THE STACK
514
515 002170 012701 000011 MOV #MNMFCN+1,R1 ;DEALLOCATE SOFTWARE STATE 1 MF20 BLOCKS
516 002174 132761 000002 177777G 1$: BITB #2,CONTI-1(R1)
517 002202 001011 BNE 4$
518 002204 010100 MOV R1,R0
519 002206 004737 000000G JSR PC,BAF0
520 002212 012702 000014 MOV #12.,R2
521 002216 105740 2$: TSTB -(R0)
522 002220 002001 BGE 3$
523 002222 105410 NEGB (R0)
524 002224 077204 3$: SOB R2,2$
525 002226 005201 4$: INC R1
526 002230 020127 000020 CMP R1,#MXMFCN+1
527 002234 003757 BLE 1$
528
530 002236 012700 000004G MOV #MABSIZ+MXM.CN+1,R0 ;DEALLOCATE MA20/MB20
534 002242 105440 5$: NEGB -(R0)
535 002244 002001 BGE 6$
536 002246 105410 NEGB (R0)
537 002250 020027 000000G 6$: CMP R0,#MABSIZ
538 002254 101372 BHI 5$
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 108
FIT MEMORY PIECES TOGETHER
540
541 ;-----NOW INIT FOR THE HOLE SCAN.
542 002256 105037 000000G CLRB CDONE ;MARK CONFIG UNDONE
543 002262 005037 000000G CLR GAPCNT ;RESET GAP COUNTER
544 002266 012701 177774G MOV #GAPTAB-4,R1 ;INIT GAP TABLE POINTER
545 002272 012702 000000G MOV #RSPMAP,R2 ;RSPMAP WD PTR...SET UP FOR SCAN
546 002276 012703 000001 MOV #1,R3 ;RSPMAP BIT PTR
547 002302 010337 003002' MOV R3,USBLMF ;ASSUME WE HAVE USABLE MF20 BLOCKS
548 002306 005005 CLR R5 ;INI 16K BLIVVIT #
549
550 ;-----SCAN FOR THE BEGINNING OF A HOLE BY SEARCHING RSPMAP BIT-WISE UNTIL A
551 ; 0 IS FOUND. R4 WILL THEN HAVE THE HOLE START ADR.
552 002310 SLTGO: SCAN ;SCAN RSPMAP FOR NEXT HOLE
002310 004737 000000G JSR PC,SCAN ;SCAN 16K MEMORY BIT MAP
553 002314 103454 BCS 8$ ;NO MORE FOUND...EXIT
554
555 ;-----NOW THAT HOLE BOUNDS ARE KNOWN (R4,R5) GO FILL IT.
556 002316 004737 002460' 1$: JSR PC,MABFIL ;FILL HOLE WITH AS MUCH MA/MB AS POSSIBLE
557 002322 103372 BCC SLTGO ;BR IF HOLE COMPLETELY FILLED. FIND NXT HOLE.
558 002324 004737 002664' 2$: JSR PC,MDFFIL ;ELSE TRY TO PUT AN MF20 BLOCK IN HOLE
559 002330 103413 BCS 4$ ;BR IF NO BLOCKS LEFT OR HOLE TO SMALL FOR ANY
560 ;BLOCK. DON'T BOTHER RETRY OF MA/MB SINCE HOLE
561 ;START ADR DIDN'T CHANGE.
562 002332 020405 CMP R4,R5 ;BLOCK PUT IN HOLE. IS HOLE FULL (ST=END)?
563 002334 001765 BEQ SLTGO ;YES, GO FIND NXT HOLE
564 002336 103404 BLO 3$ ;NO, TRY TO FILL HOLE SOME MORE
565 002340 FATAL HOV ;ERROR...HOLE IS OVER-FILLED
002340 004737 000000G JSR PC,$FATAL ; ** FATAL "HOV" ERROR
002344 110 117 126 .ASCIZ %HOV%
566 002350 005737 002662' 3$: TST UMAB ;DO WE HAVE ANY USABLE MA20/MB20 LEFT?
567 002354 003360 BGT 1$ ;YES. HOLE ST ADR HAS CHANGED SINCE WE LAST
568 ;TRIED MA/MB THEREFORE IS REASONABLE TO RETRY.
569 002356 000762 BR 2$ ;ELSE JUST TRY FOR ANOTHER MF20 BLOCK IN HOLE.
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 109
FIT MEMORY PIECES TOGETHER
571
572 ;-----CONTROL HAS COME TO HERE MEANING THAT NONE OF THE INTERNAL MEMORY
573 ; CONTROLLER TYPES COULD HANDLE THE HOLE COMPLETELY. ASSIGN WHAT'S LEFTOVER TO
574 ; GAP SPACE.
575 002360 012100 4$: MOV (R1)+,R0 ;GET CURRENT GAP START ADR
576 002362 062100 ADD (R1)+,R0 ;ADD LEN TO CALC WHERE IT ENDS
577 002364 020004 CMP R0,R4 ;WAS ANY MEM ALLOCATED SINCE LAST GAP?
578 002366 001405 BEQ 5$ ;BR IF NO...JUST ADD MORE TO CUR GAP
579 002370 002406 BLT 6$ ;BR IF YES...CREATE NEW GAP AFTER ALLOC
580 002372 FATAL MAB ;YES...MEM ALLOCATED BACKWARDS...ERROR
002372 004737 000000G JSR PC,$FATAL ; ** FATAL "MAB" ERROR
002376 115 101 102 .ASCIZ %MAB%
581 002402 005241 5$: INC -(R1) ;INCREASE GAP SIZE BY 16K
582 002404 000405 BR 7$ ;GO DO RETRY
583 002406 010421 6$: MOV R4,(R1)+ ;HSTART IS NEW GAP START
584 002410 012711 000001 MOV #1,(R1) ;GAP IS AT LEAST 16K
585 002414 005237 000000G INC GAPCNT ;BUMP GAP COUNT
586 002420 005741 7$: TST -(R1) ;BAKUP GAP TAB PTR
587 002422 005204 INC R4 ;MOV HOLE START 16K PAST SPACE JUST
588 ;ASSIGNED TO GAP TABLE
589
590 ;-----IS THERE ANY HOLE & MA20/MB20 LEFT TO CONFIGURE IN IT? NOTE THAT THERE
591 ; CAN'T BE ANY MF20 LEFT FOR THE HOLE IF WE GET HERE.
592 002424 020405 CMP R4,R5 ;ANY HOLE LEFT?
593 002426 001730 BEQ SLTGO ;NO...FIND NEXT HOLE
594 002430 005737 002662' TST UMAB ;ARE THERE UNUTILIZED RESOURCES?
595 002434 003330 BGT 1$ ;GO ATTEMPT TO USE THEM
596 002436 162105 SUB (R1)+,R5 ;NO MORE RESOURCES...CALC GAP SIZE
597 002440 010511 MOV R5,(R1) ; ...AND PLACE IN TABLE
598 002442 064105 ADD -(R1),R5 ;RESTORE HOLE END ADR
599 002444 000721 BR SLTGO ;CONTINUE SCAN
600
601 ;-----EXIT SECTION.
602 002446 8$: REGRST ;RESTORE ALL REGS
002446 004737 000000G JSR PC,RST.5 ; ** RESTORE R1 - R5 AND RETURN
603 002452 105237 000000G INCB FITTED ;MARK MEMORY AS FITTED
604 002456 000207 RTS PC ;RETURN TO CALLER
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 110
FIT MEMORY PIECES TOGETHER
606 .REM %
607 MABFIL IS THE SUBROUTINE WHICH SCANS THE MA20/MB20 RESOURCE TABLES
608 LOOKING FOR SOMETHING TO CONFIGURE INTO THE CURRENT HOLE. IT MAKES SURE THAT
609 (1) THE CONTROLLER ISN'T ALREADY ALLOCATED, (2) THAT THE START ADDRESS IS LEGAL
610 FOR THE CONTROLLER, AND (3) THAT THE USE OF THE CONTROLLER WILL NOT OVERFLOW THE
611 HOLE. THE LARGEST CONTROLLER WHICH MEETS THESE CONDITIONS IS ALLOCATED AND THE
612 HOLE START ADDRESS (IN R4, R5 IS EXPECTED TO HAVE THE HOLE END ADR) IS UPDATED.
613 %
614
615 ;-----SET UP FOR CONTR SCAN.
616 002460 MABFIL: PUSH <R1,R2,R3>
002460 010146 MOV R1,-(SP)
002462 010246 MOV R2,-(SP)
002464 010346 MOV R3,-(SP)
617 002466 005037 002662' 1$: CLR UMAB ;ZAP UNUTILIZED MA20/MB20 COUNT
618 002472 005002 CLR R2 ;SIZ OF LARGEST USABLE CONTR
619 002474 005001 CLR R1 ;INI CONTR # FOR FORWARD SCAN
620 002476 012737 000001 000000G MOV #1,MABCNI ;CONTR # INCR
622 002504 105737 000000G TSTB CONFGR ;ARE WE CONFIGURING BACKWARDS?
623 002510 001404 BEQ 2$ ;NOPE
624 002512 012701 000003 MOV #MXM.CN,R1 ;ELSE INI CONTR # FOR REVERSE SCAN
625 002516 005437 000000G NEG MABCNI ; & CONTR # DECR
627 ;-----TAKE EACH CONTR IN TURN AND SEE IF IT IS SUITABLE FOR THE HOLE.
628 002522 105761 000000G 2$: TSTB MABSIZ(R1) ;DOES CONTR EXIST & IS IT FREE?
629 002526 003426 BLE 4$ ;NO...SKIP IT
630 002530 010400 MOV R4,R0 ;COPY HOLE START ADR
631 002532 146100 000000G BICB MABADC(R1),R0 ; & SHUT OFF ADR-DONT-CARE BITS
632 002536 146161 000000G 000000G BICB MABADC(R1),MABSA(R1) ;LIKEWISE INTO CONTR ST ADR
633 002544 126100 000000G CMPB MABSA(R1),R0 ;IS HOLE START PROPER FOR THIS CONTR?
634 002550 001013 BNE 3$ ;NO...SKIP IT
635 002552 116100 000000G MOVB MABSIZ(R1),R0 ;GET SIZE OF CONTR
636 002556 060400 ADD R4,R0 ;CALC HOLE END ADR IF WE USE CONTR
637 002560 020005 CMP R0,R5 ;IS CONTR TOO BIG FOR HOLE?
638 002562 003006 BGT 3$ ;YES...SKIP IT
639 ;-----CONTROLLER IS USABLE. COMPARE ITS SIZE TO THE LARGEST PREVIOUS USABLE
640 ; CONTROLLER AND RECORD ITS SIZE & NUMBER IF IT IS BIGGER.
641 002564 126102 000000G CMPB MABSIZ(R1),R2 ;IS THE NEW USABLE CONTR BIGGER?
642 002570 003403 BLE 3$ ;NO...CONTINUE WITH OLD
643 002572 116102 000000G MOVB MABSIZ(R1),R2 ;ELSE SAV SIZ & # OF NEW
644 002576 010103 MOV R1,R3
645 ;-----HERE FOR NEXT CONTR.
646 002600 005237 002662' 3$: INC UMAB ;BUMP UNUTILIZED MA20/MB20 COUNT
647 002604 063701 000000G 4$: ADD MABCNI,R1 ;NXT CONTR #
649 002610 020127 000003 CMP R1,#MXM.CN ;MORE CONTRS TO DO?
653 002614 101742 BLOS 2$ ;LOOP IF MORE TO TRY
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 111
FIT MEMORY PIECES TOGETHER
655 ;-----SCAN IS DONE. FIND OUT IF WE HAD A USABLE CONTR. IF NOT WE CAN'T
656 ; FILL THE CURRENT HOLE AND WE MUST EXIT. OTHERWISE SET UP THE CONTROLLER'S
657 ; INFO AND REDO SCAN IF ANY USABLE MA20/MB20 ARE LEFT.
658 002616 005702 TST R2 ;WAS A USABLE CONTR FOUND?
659 002620 003413 BLE 5$ ;NO...EXIT TO GET NEXT HOLE
660 002622 110463 000000G MOVB R4,MABSA(R3) ;SET REAL START ADR
661 002626 105463 000000G NEGB MABSIZ(R3) ;MARK AS ALLOCATED BY SETTING SIZ=-SIZ
662 002632 060204 ADD R2,R4 ;UPDATE HOLE START
663 002634 020405 CMP R4,R5 ;IS HOLE EXACTLY FILLED?
664 002636 000241 CLC ;ELSE YES...DO A C-BIT CLR RETURN
665 002640 001404 BEQ 6$ ;HOLE FILLED...DONE
666 002642 005337 002662' DEC UMAB ;DECR USABLE COUNT FOR CONTR USED
667 002646 003307 BGT 1$ ;DO ANOTHER SCAN IF MORE USABLE CONTRS
668 002650 000261 5$: SEC ;ELSE OUT OF RESOURCES...ERR RETURN
669 002652 6$: POP <R3,R2,R1>
002652 012603 MOV (SP)+,R3
002654 012602 MOV (SP)+,R2
002656 012601 MOV (SP)+,R1
670 002660 000207 RTS PC
671
672 002662 177777 UMAB: .WORD ...... ;UNUSED MA20/MB20 COUNT
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 112
FIT MEMORY PIECES TOGETHER
674
675 .REM %
676 MDFFIL IS VERY SIMILAR TO MABFIL EXCEPT THAT IT SCANS ON MOS "BLOCKS"
677 INSTEAD OF ENTIRE CONTROLLERS, AND IT ONLY ALLOCATES ONE BLOCK AT A TIME. IT
678 ALSO DOESN'T CARE ABOUT ANY PARTICULAR START ADDRESS BECAUSE A BLOCK CAN WRAP ON
679 ANY 16K BOUNDARY. R4 IS THE HOLE START, R5 THE HOLE END.
680 %
681
682 ;-----SET UP FOR BLOCK SCAN.
683 002664 MDFFIL: PUSH <R1,R2>
002664 010146 MOV R1,-(SP)
002666 010246 MOV R2,-(SP)
684 002670 005737 003002' TST USBLMF ;DO WE HAVE USABLE MF20 BLOCKS LEFT?
685 002674 001436 BEQ 3$ ;NO, DO C-BIT SET RETURN
686 002676 005037 003002' CLR USBLMF ;ELSE SAY NO MORE BLOCKS UNLESS WE FIND SOME
687 002702 005001 CLR R1 ;INI BLOCK # FOR FORWARD SCAN
688 002704 012702 000001 MOV #1,R2 ;BLOCK # INCR
689 002710 105737 000000G TSTB CONFGR ;ARE WE CONFIGURING BACKWARDS?
690 002714 001403 BEQ 1$ ;NOPE
691 002716 012701 000137 MOV #<MXMFCN-MNMFCN+1>*12.-1,R1 ;ELSE INI BLOCK # FOR REVERSE SCAN
692 002722 005402 NEG R2 ; & BLOCK # DECR
693
694 ;-----TAKE EACH BLOCK IN TURN AND SEE IF IT IS SUITABLE FOR THE HOLE.
695 002724 116100 000000G 1$: MOVB MDFSIZ(R1),R0 ;GET SIZE OF BLOCK
696 002730 003414 BLE 2$ ;SKP IT IF NON-EX OR ALREADY ALLOCATED
697 002732 005237 003002' INC USBLMF ;IND WE FND USABLE MF20 BLK
698 002736 060400 ADD R4,R0 ;CALC HOLE END ADR IF WE USE BLOCK
699 002740 020005 CMP R0,R5 ;IS BLOCK TOO BIG FOR HOLE?
700 002742 003007 BGT 2$ ;YES...SKIP IT
701
702 ;-----BLOCK IS USABLE. SET ITS REAL START ADDRESS, MARK IT CONFIGURED, AND
703 ; SHRINK HOLE BY ITS SIZE.
704 002744 110461 000000G MOVB R4,MOSSA(R1) ;SET REAL START ADR
705 002750 105461 000000G NEGB MDFSIZ(R1) ;MARK AS ALLOCATED BY SETTING SIZ=-SIZ
706 002754 010004 MOV R0,R4 ;UPDATE HOLE START
707 002756 000241 CLC ;BLK PUT IN HOLE. DO A C-BIT CLR RETURN
708 002760 000405 BR 4$
709
710 ;-----HERE FOR NEXT BLOCK.
711 002762 060201 2$: ADD R2,R1 ;NXT BLOCK #
712 002764 020127 000137 CMP R1,#<MXMFCN-MNMFCN+1>*12.-1 ;MORE BLOCKS TO DO?
713 002770 101755 BLOS 1$ ;LOOP IF MORE TO TRY
714 002772 000261 3$: SEC ;ELSE OUT OF RESOURCES...ERR RETURN
715 002774 4$: POP <R2,R1>
002774 012602 MOV (SP)+,R2
002776 012601 MOV (SP)+,R1
716 003000 000207 RTS PC
717
718 003002 000000 USBLMF: .WORD 0 ;INDICATES WE MAY HAV USABLE MF20 BLOCK LEFT
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 113
REPORT WHAT CONTROLLER DATA WE HAVE TO NOW
722 .SBTTL REPORT WHAT CONTROLLER DATA WE HAVE TO NOW
723
724 .REM %
725 REPCON REPORTS THE RESOURCES AVAILABLE FOR CONFIGURATION.
726 %
727
728 003004 REPCON:
730
731 ; ***** CONDET MUST HAVE BEEN DONE BY THE TIME WE GET HERE! *****
732
736 003004 SAV.5
003004 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
737 003010 PFORCE ;UNDO CNTL-O
738 003010 PNORML
739 003010 PMSG <\MEMORY RESOURCES:>
003010 012700 003022' MOV #64$,R0 ; ** MESSAGE POINTER TO R0
003014 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
003020 000412 BR 65$ ; ** BRANCH AROUND TEXT
003022 134 115 105 64$: .ASCIZ %\MEMORY RESOURCES:%
740 003046 PMSG <\CONTROLLER ADDRESS TYPE MODULES/GROUPS\>
003046 012700 003060' MOV #66$,R0 ; ** MESSAGE POINTER TO R0
003052 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
003056 000426 BR 67$ ; ** BRANCH AROUND TEXT
003060 134 103 117 66$: .ASCIZ %\CONTROLLER ADDRESS TYPE MODULES/GROUPS\%
741 003134 PMSG < 7 6 5 4 3 2 1 0\>
003134 012700 003146' MOV #68$,R0 ; ** MESSAGE POINTER TO R0
003140 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
003144 000413 BR 69$ ; ** BRANCH AROUND TEXT
003146 011 011 011 68$: .ASCIZ % 7 6 5 4 3 2 1 0\%
742 ;-----NOW LOOP THRU CONTR NUMBERS & TYPE THEM IF ANY RESPONSE AT ALL.
743 003174 005002 CLR R2 ;INI CONTR #
744 003176 116203 000000G 1$: MOVB CONTI(R2),R3 ;GET CONTR INFO BYTE
745 003202 116201 000000G MOVB TYPNUM(R2),R1 ;GET TYPE
746 003206 001002 BNE 2$ ;NOT ZERO
747 003210 005703 TST R3 ;ANYTHING IN INFO BYTE?
748 003212 001563 BEQ 11$ ;NO, DON'T REPORT THIS CONTR
749 003214 020127 000007 2$: CMP R1,#UNDCTN ;CONTR TYPE # OUT OF RANGE?
750 003220 003402 BLE 3$ ;NO..OK...CONTINUE
751 003222 012701 000007 MOV #UNDCTN,R1 ;ELSE SET DEFAULT
752 003226 3$: PCRLF ;CR/LF TAB
003226 004737 000000G JSR PC,$TCRLF ; ** PRINT A <CR><LF>
753 003232 PTAB
003232 004737 000000G JSR PC,$TTTAB ; ** PRINT A <TAB>
754 003236 010200 MOV R2,R0
755 003240 PNTODT 2 ;TYPE CONTROLLER NUMBER
003240 010046 MOV R0,-(SP) ; ** SAVE R0
003242 042700 177700 BIC #^C77,R0 ; ** MASK OUT UNWANTED BITS
003246 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
003252 012600 MOV (SP)+,R0 ; ** RESTORE R0
757 003254 PTAB
003254 004737 000000G JSR PC,$TTTAB ; ** PRINT A <TAB>
758 003260 PSPACE
003260 004737 000000G JSR PC,$TTSPC ; ** PRINT A <SPACE>
759 003264 010100 MOV R1,R0 ;COPY CONTR TYPE
760 003266 004737 000000G JSR PC,ASL0.3 ;FOR CONTR TYPE MSG NDX
761 003272 062700 000000G ADD #TYPE0,R0 ;PT TO CONTR TYPE MSG
762 003276 PNTAL ;TYPE MEMORY TYPE
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 113-1
REPORT WHAT CONTROLLER DATA WE HAVE TO NOW
003276 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
763 003302 020127 000006 CMP R1,#BRCTN ;IS THIS AN SBUS RECORDER
764 003306 001525 BEQ 11$ ;YES, ALL DONE WITH THIS LINE
765 003310 PSPACE
003310 004737 000000G JSR PC,$TTSPC ; ** PRINT A <SPACE>
766 003314 020127 000002 CMP R1,#DMACTN ;DMA20?
767 003320 002506 BLT 9$ ;NO...MA20 OR CUST
768 003322 001404 BEQ 4$ ;YES
770 003324 020127 000005 CMP R1,#MFCTN ;MF20?
771 003330 001431 BEQ 5$ ;YES
773 003332 000501 BR 9$ ;ELSE ASSUME MB20 OR UNDEF
776 ;-----HERE FOR DMA20. PRINT TOTAL SIZE AND INTERLEAVE.
777 003334 013701 000000G 4$: MOV DMA2TS,R1 ;DO WE HAVE SIZE INFO YET?
778 003340 001510 BEQ 11$ ;NO...DON'T PRINT SIZE
779 003342 PSPACE
003342 004737 000000G JSR PC,$TTSPC ; ** PRINT A <SPACE>
780 003346 013700 000000G MOV DMASIZ,R0 ;PRINT DMA20 TOTAL SIZE
781 003352 004737 003776' JSR PC,PRINTK
782 003356 113700 000000G MOVB DMABM,R0 ;PRINT BUS MODE
783 003362 004737 004044' JSR PC,PBM
784 003366 PMSG < BUS MODE>
003366 012700 003400' MOV #70$,R0 ; ** MESSAGE POINTER TO R0
003372 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
003376 000405 BR 71$ ; ** BRANCH AROUND TEXT
003400 040 102 125 70$: .ASCIZ % BUS MODE%
785 003412 000463 BR 11$ ;CONTINUE WITH SUBRTN
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 114
REPORT WHAT CONTROLLER DATA WE HAVE TO NOW
789 ;-----HERE FOR MF20. TYPE OUT GROUP PRESENCE & POPULATION IF KNOWN.
790 003414 105737 000000G 5$: TSTB RDDONE ;RESDET DONE YET?
791 003420 001460 BEQ 11$ ;NO...SKIP THIS PART
792 003422 032703 000002 BIT #02,R3 ;IS CONTR PRECONFIGURED?
793 003426 001055 BNE 11$ ;YES...DATA NOT USABLE HERE
794 003430 010200 MOV R2,R0 ;GET ADR OF RHE OF BLK SIZ TBL FOR CONTR
795 003432 005200 INC R0
796 003434 004737 000000G JSR PC,BAF0
797 003440 010003 MOV R0,R3 ; IN R3
798 003442 PMSG < 0 0 0 0 0>
003442 012700 003454' MOV #72$,R0 ; ** MESSAGE POINTER TO R0
003446 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
003452 000406 BR 73$ ; ** BRANCH AROUND TEXT
003454 040 060 040 72$: .ASCIZ % 0 0 0 0 0%
799 003470 012705 000003 MOV #3,R5 ;GROUP LP CNT
800 003474 012704 000004 6$: MOV #4,R4 ;BLK IN GRP LP CNT
801 003500 PSPACE
003500 004737 000000G JSR PC,$TTSPC ; ** PRINT A <SPACE>
802 003504 005000 CLR R0 ;BLK CNT
803 003506 105743 7$: TSTB -(R3) ;IS BLK PRESENT?
804 003510 001401 BEQ 8$ ;NO...DON'T COUNT IT
805 003512 005200 INC R0
806 003514 077404 8$: SOB R4,7$ ;LP IN GROUP
807 003516 PNTNBR ;PRINT # OF BLKS IN GROUP
003516 010046 MOV R0,-(SP) ; ** SAVE R0
003520 042700 177000 BIC #^C777,R0 ; ** MASK OFF UNWANTED BITS
003524 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
003530 012600 MOV (SP)+,R0 ; ** RESTORE R0
808 003532 077520 SOB R5,6$ ;LP THRU GROUPS
809 003534 000412 BR 11$ ;NXT CONTR
811 ;-----HERE FOR MA20/MB20 OR UNKNOWN. TYPE MOD PRESENSE BITS.
812 003536 012704 000010 9$: MOV #8.,R4 ;COUNTER
813 003542 10$: PSPACE ;TYPE A SPACE
003542 004737 000000G JSR PC,$TTSPC ; ** PRINT A <SPACE>
814 003546 005000 CLR R0 ;
815 003550 106103 ROLB R3 ;GET A BIT
816 003552 006100 ROL R0 ;BIT TO PARAM REG
817 003554 PNTOCS ;PRINT BINARY BIT
003554 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
818 003560 077410 SOB R4,10$ ;DONE?
819 ;-----END OF LOOP.
820 003562 005202 11$: INC R2 ;NEXT CONTROLLER
821 003564 020227 000037 CMP R2,#MAXCN ;LAST ONE?
822 003570 003602 BLE 1$ ;NO, KEEP GOING
823 003572 PCRLF ;CR/LF
003572 004737 000000G JSR PC,$TCRLF ; ** PRINT A <CR><LF>
824 003576 PCRLF ;CR/LF
003576 004737 000000G JSR PC,$TCRLF ; ** PRINT A <CR><LF>
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 115
REPORT WHAT CONTROLLER DATA WE HAVE TO NOW
827 ;-----SECTION TO PRINT OUT DMA20 (EXTERNAL) MEMORY RESPONSE
828 003602 105737 000000G REPDM.: TSTB DMARD ;DMA20 ALREADY SIZED?
829 003606 003454 BLE RCX ;BR IF NO
830 003610 012702 000000G MOV #DMA20T,R2 ;MOVE TABLE POINTER
831 003614 013703 000000G MOV DMA2TS,R3 ;TABLE ENTRY COUNTER
832 003620 003447 BLE RCX
833 003622 PMSG <EXTERNAL MEMORY RESPONSE\ ADDRESS SIZE\>
003622 012700 003634' MOV #64$,R0 ; ** MESSAGE POINTER TO R0
003626 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
003632 000425 BR 65$ ; ** BRANCH AROUND TEXT
003634 105 130 124 64$: .ASCIZ %EXTERNAL MEMORY RESPONSE\ ADDRESS SIZE\%
834 003706 005303 1$: DEC R3 ;COUNT DOWN
835 003710 002411 BLT 2$ ;BR IF NO MORE
836 003712 012200 MOV (R2)+,R0 ;ADDRESS
837 003714 004737 003744' JSR PC,CSPAS
838 003720 012200 MOV (R2)+,R0 ;SIZE
839 003722 004737 003776' JSR PC,PRINTK
840 003726 PCRLF
003726 004737 000000G JSR PC,$TCRLF ; ** PRINT A <CR><LF>
841 003732 000765 BR 1$ ;LOOP
842 003734 2$: PCRLF
003734 004737 000000G JSR PC,$TCRLF ; ** PRINT A <CR><LF>
844 003740 RCX: R5.PC ;REPORT DONE
003740 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
845
846 ;-----SUBROUTINE TO OUTPUT A <CONDITIONAL 3 SPACES>ADDRESS<SPACE>
847 003744 CSPAS: PUSH R0
003744 010046 MOV R0,-(SP)
848 003746 EXP16K ;EXPAND THE ADDR/16K WORD
003746 004737 000000G JSR PC,EXP16K ;EXPAND 16K FMT ADR IN R0 INTO 36 BITS IN REAPWD
850 003752 PSPACE ;EXTRA SPACE FOR ALIGNMENT
003752 004737 000000G JSR PC,$TTSPC ; ** PRINT A <SPACE>
851 003756 POP R0 ;CLEAN THE STK
003756 012600 MOV (SP)+,R0
857 003760 012700 000000G 1$: MOV #REAPWD,R0
858 003764 PNTADR ;PRINT THE ADDR
003764 004737 000000G JSR PC,$WDD22 ; ** CALL TO PRINT ROUTINE
859 003770 PSPACE ;EXTRA SPACE FOR ALIGNMENT
003770 004737 000000G JSR PC,$TTSPC ; ** PRINT A <SPACE>
860 003774 000207 RTS PC
862
863 ;-----SUBROUTINE TO PRINT A 16K FORMAT WORD AS DECIMAL K
864 003776 004737 000000G PRINTK: JSR PC,ASL0.4 ;MAKE IN TERMS OF 1K
865 004002 PUSH R0
004002 010046 MOV R0,-(SP)
866 004004 020027 001747 CMP R0,#999.
867 004010 003002 BGT 1$
868 004012 PSPACE
004012 004737 000000G JSR PC,$TTSPC ; ** PRINT A <SPACE>
869 004016 1$: POP R0
004016 012600 MOV (SP)+,R0
870 004020 PNTDEC
004020 004737 000000G JSR PC,$TDB2I ; ** PRINT THE NUMBER
871 004024 PNTBAK
872 004024 PMSG <K >
004024 012700 004036' MOV #64$,R0 ; ** MESSAGE POINTER TO R0
004030 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 115-1
REPORT WHAT CONTROLLER DATA WE HAVE TO NOW
004034 000402 BR 65$ ; ** BRANCH AROUND TEXT
004036 113 011 000 64$: .ASCIZ %K %
874 004042 000207 RTS PC
875
876 ;-----SUBROUTINE TO PRINT <SPACES>BUS-MODE.
877 004044 020027 000003 PBM: CMP R0,#3 ;4 BUS MODE?
878 004050 001001 BNE 1$ ;NO
879 004052 005200 INC R0
880 004054 1$: PUSH R0
004054 010046 MOV R0,-(SP)
881 004056 PMSG < > ;SPACES
004056 012700 004070' MOV #64$,R0 ; ** MESSAGE POINTER TO R0
004062 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
004066 000402 BR 65$ ; ** BRANCH AROUND TEXT
004070 040 040 000 64$: .ASCIZ % %
883 004074 POP R0
004074 012600 MOV (SP)+,R0
884 004076 PNTOCS
004076 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
885 004102 000207 RTS PC
887 000001 .END
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 115-2
SYMBOL TABLE
AC = 000004 ANDM = 000406 CAIA = 000304 DMARD = ****** GX FMPM = 000162
ACC0 = 000001 AOBJN = 000253 CAIE = 000302 DMARMP= ****** GX FMPR = 000164
ACC1 = 000002 AOBJP = 000252 CAIG = 000307 DMASIZ= ****** GX FMPRB = 000167
ACC10 = 000400 AOJ = 000340 CAIGE = 000305 DMA2TS= ****** GX FMPRI = 000165
ACC11 = 001000 AOJA = 000344 CAIL = 000301 DMA20T= ****** GX FMPRM = 000166
ACC12 = 002000 AOJE = 000342 CAILE = 000303 DMOVE = 000120 FSB = 000150
ACC13 = 004000 AOJG = 000347 CAIN = 000306 DMOVEM= 000124 FSBB = 000153
ACC14 = 010000 AOJGE = 000345 CAM = 000310 DMOVN = 000121 FSBL = 000151
ACC15 = 020000 AOJL = 000341 CAMA = 000314 DMOVNM= 000125 FSBM = 000152
ACC16 = 040000 AOJLE = 000343 CAME = 000312 DMUL = 000116 FSBR = 000154
ACC17 = 100000 AOJN = 000346 CAMG = 000317 DPB = 000137 FSBRB = 000157
ACC2 = 000004 AOS = 000350 CAMGE = 000315 DREADY= 001000 FSBRI = 000155
ACC3 = 000010 AOSA = 000354 CAML = 000311 DSUB = 000115 FSBRM = 000156
ACC4 = 000020 AOSE = 000352 CAMLE = 000313 EQV = 000444 FSC = 000132
ACC5 = 000040 AOSG = 000357 CAMN = 000316 EQVB = 000447 FSDCH = ****** GX
ACC6 = 000100 AOSGE = 000355 CAS = 020000 EQVI = 000445 FSDM1 = ****** GX
ACC7 = 000200 AOSL = 000351 CCA = 000014 EQVM = 000446 GAPCNT= ****** GX
ACLOAD= ****** GX AOSLE = 000353 CDONE = ****** GX ERRSTP= 004000 GAPTAB= ****** GX
AC0 = 000000 AOSN = 000356 CECLK = 000004 ER$B4M= 001662RG HALTLP= 001000
AC1 = 000001 APR = 000000 CLEAR = 000400 ER$GOO= 001422RG HLL = 000500
AC10 = 000010 ASH = 000240 CLEARB= 000403 ER$HOV= 002340RG HLLE = 000530
AC11 = 000011 ASHC = 000244 CLEARI= 000401 ER$MAB= 002372RG HLLEI = 000531
AC12 = 000012 ASL0.3= ****** GX CLEARM= 000402 ER$MMR= 000330RG HLLEM = 000532
AC13 = 000013 ASL0.4= ****** GX CLRMR = 000006 ER$MNA= 001706RG HLLES = 000533
AC14 = 000014 BAF = ****** GX CNTSD1= ****** GX ER$NHA= 002072RG HLLI = 000501
AC15 = 000015 BAF0 = ****** GX CONBUT= 000012 ER$OO2= 000764RG HLLM = 000502
AC16 = 000016 BIT0 = 000001 CONDMA 000000RG ER$SS0= 000142RG HLLO = 000520
AC17 = 000017 BIT1 = 000002 CONFGR= ****** GX ER$UMB= 002012RG HLLOI = 000521
AC2 = 000002 BIT10 = 002000 CONI = 000005 ER$XOO= 001350RG HLLOM = 000522
AC3 = 000003 BIT11 = 004000 CONMAB 000634RG EXCH = 000250 HLLOS = 000523
AC4 = 000004 BIT12 = 010000 CONMMR= 000001 EXP16K= ****** GX HLLS = 000503
AC5 = 000005 BIT13 = 020000 CONMOS 000050RG EXTEND= 000123 HLLZ = 000510
AC6 = 000006 BIT14 = 040000 CONMX 000044RG FAD = 000140 HLLZI = 000511
AC7 = 000007 BIT15 = 100000 CONO = 000004 FADB = 000143 HLLZM = 000512
ADD = 000270 BIT2 = 000004 CONSO = 000007 FADL = 000141 HLLZS = 000513
ADDB = 000273 BIT3 = 000010 CONSZ = 000006 FADM = 000142 HLR = 000544
ADDI = 000271 BIT4 = 000020 CONTI = ****** GX FADR = 000144 HLRE = 000574
ADDM = 000272 BIT5 = 000040 CPU = 000200 FADRB = 000147 HLREI = 000575
ADH = 000000 BIT6 = 000100 CSPAS 003744R FADRI = 000145 HLREM = 000576
ADJSP = 000105 BIT7 = 000200 DADD = 000114 FADRM = 000146 HLRES = 000577
ADL = 000000 BIT8 = 000400 DATAI = 000001 FDV = 000170 HLRI = 000545
ADR2ND= 002000 BIT9 = 001000 DATAO = 000003 FDVB = 000173 HLRM = 000546
AND = 000404 BLKI = 000000 DDIV = 000117 FDVL = 000171 HLRO = 000564
ANDB = 000407 BLKO = 000002 DE$BUG= 070000 FDVM = 000172 HLROI = 000565
ANDCA = 000410 BLK0 = 000000 DFAD = 000110 FDVR = 000174 HLROM = 000566
ANDCAB= 000413 BLK1 = 000001 DFDV = 000113 FDVRB = 000177 HLROS = 000567
ANDCAI= 000411 BLK2 = 000002 DFMP = 000112 FDVRI = 000175 HLRS = 000547
ANDCAM= 000412 BLK3 = 000003 DFN = 000131 FDVRM = 000176 HLRZ = 000554
ANDCB = 000440 BLK4 = 000004 DFSB = 000111 FITCON= 177777 G HLRZI = 000555
ANDCBB= 000443 BLK5 = 000005 DIAG = 000104 FITMEM 002154RG HLRZM = 000556
ANDCBI= 000441 BLK6 = 000006 DIV = 000234 FITTED= ****** GX HLRZS = 000557
ANDCBM= 000442 BLT = 000251 DIVB = 000237 FIX = 000122 HRL = 000504
ANDCM = 000420 BRCLK = 000005 DIVI = 000235 FIXR = 000126 HRLE = 000534
ANDCMB= 000423 BRCTN = 000006 DIVM = 000236 FLTR = 000127 HRLEI = 000535
ANDCMI= 000421 BSIZE = ****** GX DMABM = ****** GX FMP = 000160 HRLEM = 000536
ANDCMM= 000422 BSYCLR= 000400 DMACN = 000004 FMPB = 000163 HRLES = 000537
ANDI = 000405 CAI = 000300 DMACTN= 000002 FMPL = 000161 HRLI = 000505
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 115-3
SYMBOL TABLE
HRLM = 000506 JUMPLE= 000323 MXM.CN= 000003 SETCM = 000460 TDC = 000650
HRLO = 000524 JUMPN = 000326 OR = 000434 SETCMB= 000463 TDCA = 000654
HRLOI = 000525 LADRRM= ****** GX ORB = 000437 SETCMI= 000461 TDCE = 000652
HRLOM = 000526 LDAR = 000077 ORCA = 000454 SETCMM= 000462 TDCN = 000656
HRLOS = 000527 LDB = 000135 ORCAB = 000457 SETCMP= ****** GX TDN = 000610
HRLS = 000507 LSBRTN= 000001 ORCAI = 000455 SETM = 000414 TDNA = 000614
HRLZ = 000514 LSBSRL= 000744 ORCAM = 000456 SETMB = 000417 TDNE = 000612
HRLZI = 000515 LSH = 000242 ORCB = 000470 SETMI = 000415 TDNN = 000616
HRLZM = 000516 LSHC = 000246 ORCBB = 000473 SETMM = 000416 TDO = 000670
HRLZS = 000517 LSTMB = 000001 ORCBI = 000471 SETMR = 000007 TDOA = 000674
HRR = 000540 LUBSRL= 000600 ORCBM = 000472 SETO = 000474 TDOE = 000672
HRRE = 000570 MABADC= ****** GX ORCM = 000464 SETOB = 000477 TDON = 000676
HRREI = 000571 MABCNI= ****** GX ORCMB = 000467 SETOI = 000475 TDZ = 000630
HRREM = 000572 MABFIL 002460R ORCMI = 000465 SETOM = 000476 TDZA = 000634
HRRES = 000573 MABINT= ****** GX ORCMM = 000466 SETPAR= ****** GX TDZE = 000632
HRRI = 000541 MABSA = ****** GX ORI = 000435 SETRUN= 000011 TDZN = 000636
HRRM = 000542 MABSIZ= ****** GX ORM = 000436 SETZ = 000400 TGN = 000002
HRRO = 000560 MACTN = 000001 PAG = 000010 SETZB = 000403 TIMFS = 000044
HRROI = 000561 MAP = 000257 PBM 004044R SETZI = 000401 TLC = 000641
HRROM = 000562 MAXCN = 000037 PI = 000004 SETZM = 000402 TLCA = 000645
HRROS = 000563 MBCTN = 000003 POP = 000262 SKIP = 000330 TLCE = 000643
HRRS = 000543 MDFFIL 002664R POPJ = 000263 SKIPA = 000334 TLCN = 000647
HRRZ = 000550 MDFSIZ= ****** GX PRINTK 003776R SKIPE = 000332 TLN = 000601
HRRZI = 000551 MDSLT 002164R PUSH = 000261 SKIPG = 000337 TLNA = 000605
HRRZM = 000552 MFCTN = 000005 PUSHJ = 000260 SKIPGE= 000335 TLNE = 000603
HRRZS = 000553 MMRESP= ****** GX PXCT = 000256 SKIPL = 000331 TLNN = 000607
I = 000000 MNBRCN= 000036 RAMSZ0= ****** GX SKIPLE= 000333 TLO = 000661
IBP = 000133 MNMFCN= 000010 RAS = 040000 SKIPN = 000336 TLOA = 000665
ICEON 000464R MNMXCN= 000006 RCX 003740R SLTGO 002310R TLOE = 000663
ICEONM= 003777 MNM.CN= 000000 RDDONE= ****** GX SMFSS2= ****** GX TLON = 000667
IDIV = 000230 MNTITF= 000040 REAPWD= ****** GX SOJ = 000360 TLZ = 000621
IDIVB = 000233 MOSSA = ****** GX REPCON 003004RG SOJA = 000364 TLZA = 000625
IDIVI = 000231 MOVE = 000200 REPDM. 003602R SOJE = 000362 TLZE = 000623
IDIVM = 000232 MOVEI = 000201 REPFIT 001106RG SOJG = 000367 TLZN = 000627
IDPB = 000136 MOVEM = 000202 ROT = 000241 SOJGE = 000365 TRC = 000640
ILDB = 000134 MOVES = 000203 ROTC = 000245 SOJL = 000361 TRCA = 000644
IMUL = 000220 MOVM = 000214 RSPMAP= ****** GX SOJLE = 000363 TRCE = 000642
IMULB = 000223 MOVMI = 000215 RST.5 = ****** GX SOJN = 000366 TRCN = 000646
IMULI = 000221 MOVMM = 000216 RS0RS1= 000010 SOS = 000370 TRN = 000600
IMULM = 000222 MOVMS = 000217 RS0TN0= 000020 SOSA = 000374 TRNA = 000604
IOR = 000434 MOVN = 000210 RUNPRG= ****** GX SOSE = 000372 TRNE = 000602
IORB = 000437 MOVNI = 000211 R$$20F= 000001 SOSG = 000377 TRNN = 000606
IORI = 000435 MOVNM = 000212 R5.PC = ****** GX SOSGE = 000375 TRO = 000660
IORM = 000436 MOVNS = 000213 SAV.5 = ****** GX SOSL = 000371 TROA = 000664
JFCL = 000255 MOVS = 000204 SBDT = ****** GX SOSLE = 000373 TROE = 000662
JFFO = 000243 MOVSI = 000205 SBD0 = ****** GX SOSN = 000376 TRON = 000666
JRA = 000267 MOVSM = 000206 SBUS = 100000 SSCLK = 000002 TRPAR = 010000
JRST = 000254 MOVSS = 000207 SCAN = ****** GX STPCLK= 000000 TRZ = 000620
JSA = 000266 MSAMSZ= 000140 SECLK = 000003 STRCLK= 000001 TRZA = 000624
JSP = 000265 MUL = 000224 SETA = 000424 SUB = 000274 TRZE = 000622
JSR = 000264 MULB = 000227 SETAB = 000427 SUBB = 000277 TRZN = 000626
JUMP = 000320 MULI = 000225 SETAI = 000425 SUBI = 000275 TSC = 000651
JUMPA = 000324 MULM = 000226 SETAM = 000426 SUBM = 000276 TSCA = 000655
JUMPE = 000322 MXBRCN= 000037 SETCA = 000450 SXCT = 000106 TSCE = 000653
JUMPG = 000327 MXCTN = 000004 SETCAB= 000453 TADR = 000010 TSCN = 000657
JUMPGE= 000325 MXMFCN= 000017 SETCAI= 000451 TBN = 000004 TSN = 000611
JUMPL = 000321 MXMXCN= 000007 SETCAM= 000452 TCN = 000001 TSNA = 000615
FITCON -- FITMEM/REPORT/CONFIGU MACRO M1110 17-SEP-79 09:15 PAGE 115-4
SYMBOL TABLE
TSNE = 000613 WENABL= 004000 $DMPAC= 070010 $RESET= 000001 $TL = 000013
TSNN = 000617 X = 000000 $EB = 000544R $RSTAC= 070030 $TTDMS= ****** GX
TSO = 000671 XCT = 000256 $EVENT= 000001 $RUN = 000001 $TTSPC= ****** GX
TSOA = 000675 XDV = 000004 $FATAL= ****** GX $SAVAC= 070024 $TTTAB= ****** GX
TSOE = 000673 XOP = 000002 $FIND = 000001 $SBDIA= 000002 $WDD22= ****** GX
TSON = 000677 XOR = 000430 $FITME= 000001 $SDW = 000002 $$APRI= 000000
TSTCON= ****** GX XORB = 000433 $GETCT= 070020 $SETPA= 000001 $$NARG= 000001
TSZ = 000631 XORI = 000431 $ICEON= 000001 $SIZ16= 033061 $$RDER= 000004
TSZA = 000635 XORM = 000432 $IND36= 000003 $SIZ32= 031063 $$SBDI= 000004
TSZE = 000633 XR = 000000 $KL10A= 000101 $SIZ4K= 032060 $10BC = 070040
TSZN = 000637 $APRID= 000000 $KL10B= 000102 $SIZ64= 032066 $10BP = 070034
TYPE0 = ****** GX $BRST = 000001 $LOADA= 000001 $STEP = 000001 $10MB = 070050
TYPNUM= ****** GX $CNTSD= 000001 $PATCH= 070004 $TB = 000000 $10RB = 070044
UFA = 000130 $CONDM= 000001 $RDERA= 000000 $TCRLF= ****** GX .RESET= ****** GX
UMAB 002662R $CONMA= 000001 $RELOA= 000001 $TDB2I= ****** GX .SBDIA= 000001
UNDCTN= 000007 $CONMO= 000001 $REPCO= 000001 $TDB2O= ****** GX ... = 000377
USBLMF 003002R $CONMX= 000001 $REPFI= 000001 $TIMLP= 070014 ......= 177777
. ABS. 000000 000
004104 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 22939 WORDS ( 90 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:03:21
[56,10]FITCON,[56,20]FITCON/-SP/CR=[56,30]FITASM,MBOVLC,MOSMAC,MBMAC,MOSDEF,FITCON
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AC = 000004 #99-171 #99-171 99-171 99-171 #99-173 #99-173 99-173 99-173 #99-174
#99-174 99-174 99-174 #99-175 #99-175 99-175 99-175 #99-176 #99-176
99-176 99-176 #99-178 #99-178 99-178 99-178 #99-179 99-179 99-179
#99-180 #99-180 99-180 99-180
ACC0 = 000001 #18-739
ACC1 = 000002 #18-740
ACC10 = 000400 #18-747
ACC11 = 001000 #18-748
ACC12 = 002000 #18-749
ACC13 = 004000 #18-750
ACC14 = 010000 #18-751
ACC15 = 020000 #18-752
ACC16 = 040000 #18-753
ACC17 = 100000 #18-754
ACC2 = 000004 #18-741
ACC3 = 000010 #18-742
ACC4 = 000020 #18-743
ACC5 = 000040 #18-744
ACC6 = 000100 #18-745
ACC7 = 000200 #18-746
ACLOAD = ****** GX 99-166
AC0 = 000000 #11-27 99-167
AC1 = 000001 #11-28
AC10 = 000010 #11-35
AC11 = 000011 #11-36
AC12 = 000012 #11-37
AC13 = 000013 #11-38
AC14 = 000014 #11-39
AC15 = 000015 #11-40
AC16 = 000016 #11-41
AC17 = 000017 #11-42
AC2 = 000002 #11-29
AC3 = 000003 #11-30
AC4 = 000004 #11-31
AC5 = 000005 #11-32
AC6 = 000006 #11-33
AC7 = 000007 #11-34
ADD = 000270 #11-167
ADDB = 000273 #11-170
ADDI = 000271 #11-168
ADDM = 000272 #11-169
ADH = 000000 #99-171 99-171 99-171 #99-172 99-172 99-172 #99-173 99-173 99-173
#99-174 99-174 99-174 #99-175 99-175 99-175 #99-176 99-176 99-176
#99-177 99-177 99-177 #99-178 99-178 99-178 #99-179 99-179 99-179
#99-180 99-180 99-180
ADJSP = 000105 #11-53
ADL = 000000 #99-171 99-171 99-171 #99-171 99-171 99-171 #99-171 99-171 99-171
#99-171 99-171 99-171 #99-172 99-172 99-172 #99-172 99-172 99-172
#99-172 99-172 99-172 #99-173 99-173 99-173 #99-173 99-173 99-173
#99-173 99-173 99-173 #99-174 99-174 99-174 #99-174 99-174 99-174
#99-174 99-174 99-174 #99-175 99-175 99-175 #99-175 99-175 99-175
#99-175 99-175 99-175 #99-176 99-176 99-176 #99-176 99-176 99-176
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#99-176 99-176 99-176 #99-177 99-177 99-177 #99-177 99-177 99-177
#99-177 99-177 99-177 #99-178 99-178 99-178 #99-178 99-178 99-178
#99-178 99-178 99-178 #99-178 99-178 99-178 #99-178 99-178 99-178
#99-178 99-178 99-178 #99-179 99-179 99-179 #99-179 99-179 99-179
#99-180 99-180 99-180 #99-180 99-180 99-180
ADR2ND = 002000 #43-205 43-205 43-205 #43-205 43-205 43-205 #43-205 43-205 43-205
#43-205 43-205 43-205 #43-205 43-205 43-205 #43-205 43-205 43-205
#43-205 43-205 43-205 #43-205 43-205 43-205 #43-205 43-205 43-205
#43-205 43-205 43-205 #43-205
AND = 000404 #11-247
ANDB = 000407 #11-250
ANDCA = 000410 #11-251
ANDCAB = 000413 #11-254
ANDCAI = 000411 #11-252
ANDCAM = 000412 #11-253
ANDCB = 000440 #11-279
ANDCBB = 000443 #11-282
ANDCBI = 000441 #11-280
ANDCBM = 000442 #11-281
ANDCM = 000420 #11-259
ANDCMB = 000423 #11-262
ANDCMI = 000421 #11-260
ANDCMM = 000422 #11-261
ANDI = 000405 #11-248
ANDM = 000406 #11-249
AOBJN = 000253 #11-153
AOBJP = 000252 #11-152
AOJ = 000340 #11-207
AOJA = 000344 #11-211
AOJE = 000342 #11-209
AOJG = 000347 #11-214
AOJGE = 000345 #11-212
AOJL = 000341 #11-208
AOJLE = 000343 #11-210
AOJN = 000346 #11-213
AOS = 000350 #11-215
AOSA = 000354 #11-219
AOSE = 000352 #11-217
AOSG = 000357 #11-222
AOSGE = 000355 #11-220
AOSL = 000351 #11-216
AOSLE = 000353 #11-218
AOSN = 000356 #11-221
APR = 000000 #11-449 54-130
ASH = 000240 #11-143
ASHC = 000244 #11-147
ASL0.3 = ****** GX 103-345 113-760
ASL0.4 = ****** GX 115-864
BAF = ****** GX 97-77
BAF0 = ****** GX 107-519 114-796
BIT0 = 000001 #3-63
BIT1 = 000002 #3-64
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BIT10 = 002000 #3-73
BIT11 = 004000 #3-74 3-81
BIT12 = 010000 #3-75
BIT13 = 020000 #3-76
BIT14 = 040000 #3-77
BIT15 = 100000 #3-78 25-1126 104-392
BIT2 = 000004 #3-65
BIT3 = 000010 #3-66
BIT4 = 000020 #3-67
BIT5 = 000040 #3-68
BIT6 = 000100 #3-69
BIT7 = 000200 #3-70 25-1125
BIT8 = 000400 #3-71
BIT9 = 001000 #3-72 3-80
BLKI = 000000 #11-440 54-129 54-131
BLKO = 000002 #11-442 54-127
BLK0 = 000000 #11-44
BLK1 = 000001 #11-45
BLK2 = 000002 #11-46
BLK3 = 000003 #11-47
BLK4 = 000004 #11-48
BLK5 = 000005 #11-49
BLK6 = 000006 #11-50
BLT = 000251 #11-151
BRCLK = 000005 #54-122
BRCTN = 000006 #42-170 113-763
BSIZE = ****** GX 97-88
BSYCLR = 000400 #43-207 43-207 43-207 #43-207 43-207 43-207 #43-207 43-207 43-207
#43-207 43-207 43-207 #43-207 43-207 43-207 #43-207 43-207 43-207
#43-207 43-207 43-207 #43-207 43-207 43-207 #43-207
CAI = 000300 #11-175
CAIA = 000304 #11-179
CAIE = 000302 #11-177
CAIG = 000307 #11-182
CAIGE = 000305 #11-180
CAIL = 000301 #11-176
CAILE = 000303 #11-178
CAIN = 000306 #11-181
CAM = 000310 #11-183
CAMA = 000314 #11-187
CAME = 000312 #11-185
CAMG = 000317 #11-190
CAMGE = 000315 #11-188
CAML = 000311 #11-184
CAMLE = 000313 #11-186
CAMN = 000316 #11-189
CAS = 020000 #43-202 43-202 43-202 #43-202 43-202 43-202 #43-202 43-202 43-202
#43-202 43-202 43-202 #43-202 43-202 43-202 #43-202 43-202 43-202
#43-202 43-202 43-202 #43-202 43-202 43-202 #43-202 43-202 43-202
#43-202 43-202 43-202 #43-202 43-202 43-202 #43-202 43-202 43-202
#43-202 43-202 43-202 #43-202
CCA = 000014 #11-452
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CDONE = ****** GX *108-542
CECLK = 000004 #54-119
CLEAR = 000400 #11-239
CLEARB = 000403 #11-245
CLEARI = 000401 #11-241
CLEARM = 000402 #11-243
CLRMR = 000006 #54-120
CNTSD1 = ****** GX 99-165
CONBUT = 000012 #54-124
CONDMA 000000 RG 10-347 #95-14
CONFGR = ****** GX 100-216 104-389 110-622 112-689
CONI = 000005 #11-445
CONMAB 000634 RG 10-347 #100-201
CONMMR = 000001 #2-54 96-45 98-110
CONMOS 000050 RG 10-347 #96-44
CONMX 000044 RG 10-347 #95-30
CONO = 000004 #11-444
CONSO = 000007 #11-447
CONSZ = 000006 #11-446
CONTI = ****** GX 96-68 107-516 113-744
CORDET = ****** 2-8 6-244
CPU = 000200 #25-1125 99-164
CSPAS 003744 R 102-299 115-837 #115-847
DADD = 000114 #11-59
DATAI = 000001 #11-441
DATAO = 000003 #11-443
DBEOVL = ****** 2-10 8-303
DDIV = 000117 #11-62
DE$BUG = 070000 #11-8
DFAD = 000110 #11-55
DFDV = 000113 #11-58
DFMP = 000112 #11-57
DFN = 000131 #11-72
DFSB = 000111 #11-56
DHKBG = ****** 113-771 113-772 114-788
DIAG = 000104 #11-52
DIV = 000234 #11-139
DIVB = 000237 #11-142
DIVI = 000235 #11-140
DIVM = 000236 #11-141
DMABM = ****** GX 95-14 102-313 113-782
DMACN = 000004 #42-160
DMACTN = 000002 #42-159 113-766
DMARD = ****** GX 115-828
DMARMP = ****** GX 96-47
DMASIZ = ****** GX 113-780
DMA2TS = ****** GX 102-282 113-777 115-831
DMA20T = ****** GX 102-282 115-830
DMOVE = 000120 #11-63
DMOVEM = 000124 #11-67
DMOVN = 000121 #11-64
DMOVNM = 000125 #11-68
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DMUL = 000116 #11-61
DPB = 000137 #11-78
DREADY = 001000 #43-206 43-206 43-206 #43-206 43-206 43-206 #43-206 43-206 43-206
#43-206 43-206 43-206 #43-206 43-206 43-206 #43-206 43-206 43-206
#43-206 43-206 43-206 #43-206 43-206 43-206 #43-206 43-206 43-206
#43-206
DSUB = 000115 #11-60
EQV = 000444 #11-283
EQVB = 000447 #11-286
EQVI = 000445 #11-284
EQVM = 000446 #11-285
ERRSTP = 004000 #3-81
ER$B4M = 001662 RG #103-364
ER$GOO = 001422 RG #103-326
ER$HOV = 002340 RG #108-565
ER$MAB = 002372 RG #109-580
ER$MMR = 000330 RG #98-113
ER$MNA = 001706 RG #104-376
ER$NHA = 002072 RG #105-430
ER$OO2 = 000764 RG #100-229
ER$SS0 = 000142 RG #96-70
ER$UMB = 002012 RG #105-414
ER$XOO = 001350 RG #102-309
EXCH = 000250 #11-150
EXP16K = ****** GX 115-848
EXTEND = 000123 #11-66
FAD = 000140 #11-79
FADB = 000143 #11-82
FADL = 000141 #11-80
FADM = 000142 #11-81
FADR = 000144 #11-83
FADRB = 000147 #11-86
FADRI = 000145 #11-84
FADRM = 000146 #11-85
FDV = 000170 #11-103
FDVB = 000173 #11-106
FDVL = 000171 #11-104
FDVM = 000172 #11-105
FDVR = 000174 #11-107
FDVRB = 000177 #11-110
FDVRI = 000175 #11-108
FDVRM = 000176 #11-109
FITCON = 177777 G #1-1 2-11 9-325
FITMEM 002154 RG 10-347 102-278 #107-484
FITTED = ****** GX 107-492 *109-603
FIX = 000122 #11-65
FIXR = 000126 #11-69
FLTR = 000127 #11-70
FMP = 000160 #11-95
FMPB = 000163 #11-98
FMPL = 000161 #11-96
FMPM = 000162 #11-97
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
FMPR = 000164 #11-99
FMPRB = 000167 #11-102
FMPRI = 000165 #11-100
FMPRM = 000166 #11-101
FSB = 000150 #11-87
FSBB = 000153 #11-90
FSBL = 000151 #11-88
FSBM = 000152 #11-89
FSBR = 000154 #11-91
FSBRB = 000157 #11-94
FSBRI = 000155 #11-92
FSBRM = 000156 #11-93
FSC = 000132 #11-73
FSDCH = ****** GX 97-98
FSDM1 = ****** GX 97-76
GAPCNT = ****** GX 102-282 *108-543 *109-585
GAPTAB = ****** GX 102-282 108-544
HALTLP = 001000 #3-80
HLL = 000500 #11-311
HLLE = 000530 #11-335
HLLEI = 000531 #11-336
HLLEM = 000532 #11-337
HLLES = 000533 #11-338
HLLI = 000501 #11-312
HLLM = 000502 #11-313
HLLO = 000520 #11-327
HLLOI = 000521 #11-328
HLLOM = 000522 #11-329
HLLOS = 000523 #11-330
HLLS = 000503 #11-314
HLLZ = 000510 #11-319 99-173 99-173
HLLZI = 000511 #11-320
HLLZM = 000512 #11-321
HLLZS = 000513 #11-322
HLR = 000544 #11-347
HLRE = 000574 #11-371
HLREI = 000575 #11-372
HLREM = 000576 #11-373
HLRES = 000577 #11-374
HLRI = 000545 #11-348
HLRM = 000546 #11-349
HLRO = 000564 #11-363
HLROI = 000565 #11-364
HLROM = 000566 #11-365
HLROS = 000567 #11-366
HLRS = 000547 #11-350
HLRZ = 000554 #11-355
HLRZI = 000555 #11-356
HLRZM = 000556 #11-357
HLRZS = 000557 #11-358
HRL = 000504 #11-315
HRLE = 000534 #11-339
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
HRLEI = 000535 #11-340
HRLEM = 000536 #11-341
HRLES = 000537 #11-342
HRLI = 000505 #11-316
HRLM = 000506 #11-317
HRLO = 000524 #11-331
HRLOI = 000525 #11-332
HRLOM = 000526 #11-333
HRLOS = 000527 #11-334
HRLS = 000507 #11-318
HRLZ = 000514 #11-323
HRLZI = 000515 #11-324
HRLZM = 000516 #11-325
HRLZS = 000517 #11-326
HRR = 000540 #11-343
HRRE = 000570 #11-367
HRREI = 000571 #11-368
HRREM = 000572 #11-369
HRRES = 000573 #11-370
HRRI = 000541 #11-344
HRRM = 000542 #11-345
HRRO = 000560 #11-359
HRROI = 000561 #11-360
HRROM = 000562 #11-361
HRROS = 000563 #11-362
HRRS = 000543 #11-346
HRRZ = 000550 #11-351
HRRZI = 000551 #11-352
HRRZM = 000552 #11-353
HRRZS = 000553 #11-354
I = 000000 #99-171 99-171 #99-172 99-172 #99-173 99-173 #99-174 99-174 #99-175
99-175 #99-176 99-176 #99-177 99-177 #99-178 99-178 #99-179 99-179
#99-180 99-180
IBP = 000133 #11-74
ICEON 000464 R 98-116 #99-164
ICEONM = 003777 99-166 #99-184
IDIV = 000230 #11-135
IDIVB = 000233 #11-138
IDIVI = 000231 #11-136
IDIVM = 000232 #11-137
IDPB = 000136 #11-77
ILDB = 000134 #11-75
IMUL = 000220 #11-127
IMULB = 000223 #11-130
IMULI = 000221 #11-128
IMULM = 000222 #11-129
IOR = 000434 #11-271 99-174 99-174
IORB = 000437 #11-277
IORI = 000435 #11-273
IORM = 000436 #11-275
JFCL = 000255 #11-155
JFFO = 000243 #11-146
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
JRA = 000267 #11-166
JRST = 000254 #11-154 99-179 99-179 99-180 99-180
JSA = 000266 #11-165
JSP = 000265 #11-164
JSR = 000264 #11-163
JUMP = 000320 #11-191
JUMPA = 000324 #11-195
JUMPE = 000322 #11-193
JUMPG = 000327 #11-198
JUMPGE = 000325 #11-196
JUMPL = 000321 #11-192
JUMPLE = 000323 #11-194
JUMPN = 000326 #11-197
LADRRM = ****** GX 97-76
LDAR = 000077 #54-125
LDB = 000135 #11-76
LSBRTN = 000001 #2-58
LSBSRL = 000744 #43-209
LSH = 000242 #11-145
LSHC = 000246 #11-149
LSTALL = ****** 11-455 38-1601 39-2 50-493 94-3
LSTDIA = ****** 50-494
LSTMAC = ****** 11-455 38-1601 39-2 50-493
LSTMB = 000001 #2-57 94-3
LUBSRL = 000600 #43-210
MABADC = ****** GX 110-631 110-632
MABCNI = ****** GX *110-620 *110-625 110-647
MABFIL 002460 R 108-556 #110-616
MABINT = ****** GX 100-211 104-381
MABSA = ****** GX 100-220 104-377 *110-632 110-633 *111-660
MABSIZ = ****** GX 100-222 104-373 107-530 107-537 110-628 110-635 110-641 110-643 *111-661
MACTN = 000001 #42-154
MAP = 000257 #11-158
MAXCN = 000037 #42-152 114-821
MBCTN = 000003 #42-155
MBOKLG = ****** 3-100 10-340
MBROOT = ****** 2-7 4-158
MDFFIL 002664 R 108-558 #112-683
MDFSIZ = ****** GX 105-411 112-695 *112-705
MDSLT 002164 R 107-493 #107-513
MFCTN = 000005 #42-166 96-65 113-770
MMRESP = ****** GX 98-111
MNBRCN = 000036 #42-171
MNMFCN = 000010 #42-167 43-181 43-182 43-183 96-55 96-57 96-64 97-87 105-420
105-428 107-515 112-691 112-712
MNMXCN = 000006 #42-163
MNM.CN = 000000 #42-156
MNTITF = 000040 #39-31
MOSSA = ****** GX 105-415 *112-704
MOVE = 000200 #11-111
MOVEI = 000201 #11-112
MOVEM = 000202 #11-113
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
MOVES = 000203 #11-114
MOVM = 000214 #11-123
MOVMI = 000215 #11-124
MOVMM = 000216 #11-125
MOVMS = 000217 #11-126
MOVN = 000210 #11-119
MOVNI = 000211 #11-120
MOVNM = 000212 #11-121
MOVNS = 000213 #11-122
MOVS = 000204 #11-115
MOVSI = 000205 #11-116
MOVSM = 000206 #11-117
MOVSS = 000207 #11-118
MSAMSZ = 000140 #43-181 97-97
MSSCTL = ****** 2-9 7-268
MUL = 000224 #11-131
MULB = 000227 #11-134
MULI = 000225 #11-132
MULM = 000226 #11-133
MXBRCN = 000037 #42-172
MXCTN = 000004 #42-162
MXMFCN = 000017 #42-168 43-181 43-182 43-183 96-55 98-144 105-428 107-526 112-691
112-712
MXMXCN = 000007 #42-164
MXM.CN = 000003 #42-157 101-253 104-369 107-530 110-624 110-649
OR = 000434 #11-272
ORB = 000437 #11-278
ORCA = 000454 #11-291
ORCAB = 000457 #11-294
ORCAI = 000455 #11-292
ORCAM = 000456 #11-293
ORCB = 000470 #11-303
ORCBB = 000473 #11-306
ORCBI = 000471 #11-304
ORCBM = 000472 #11-305
ORCM = 000464 #11-299
ORCMB = 000467 #11-302
ORCMI = 000465 #11-300
ORCMM = 000466 #11-301
ORI = 000435 #11-274
ORM = 000436 #11-276
PAG = 000010 #11-451
PBM 004044 R 103-342 113-783 #115-877
PI = 000004 #11-450 54-128 54-132
POP = 000262 #11-161
POPJ = 000263 #11-162
PRINTK 003776 R 103-339 113-781 115-839 #115-864
PUSH = 000261 #11-160
PUSHJ = 000260 #11-159
PXCT = 000256 #11-156
RAMSZ0 = ****** GX 97-87
RAS = 040000 #43-201 43-201 43-201 #43-201 43-201 43-201 #43-201 43-201 43-201
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#43-201 43-201 43-201 #43-201 43-201 43-201 #43-201 43-201 43-201
#43-201 43-201 43-201 #43-201 43-201 43-201 #43-201 43-201 43-201
#43-201 43-201 43-201 #43-201 43-201 43-201 #43-201 43-201 43-201
#43-201 43-201 43-201 #43-201 43-201 43-201 #43-201
RCX 003740 R 115-829 115-832 #115-844
RDDONE = ****** GX 114-790
REAPWD = ****** GX 115-857
RELEAS = ****** 11-454 38-1600 39-1 50-492 94-1 94-2 99-170 99-185 100-219
102-300 113-775 115-861
REPCON 003004 RG 10-348 #113-728
REPDM. 003602 R #115-828
REPFIT 001106 RG 10-348 #102-277
ROT = 000241 #11-144
ROTC = 000245 #11-148
RSPMAP = ****** GX *96-47 108-545
RST.5 = ****** GX 109-602
RS0RS1 = 000010 #43-182
RS0TN0 = 000020 #43-183
RUNPRG = ****** GX 99-167
R$$20F = 000001 #2-48 43-187 48-469 95-18 97-76 97-91 97-98 97-104 98-111
98-115 98-116 98-129 98-130 98-133 98-138 98-138 98-139 98-140
99-164 99-165 99-166 99-167 99-170 99-185 101-248 101-249 102-278
103-351 103-352 103-356 103-357 107-485 108-552 113-729 113-755 113-756
113-768 113-769 113-771 113-772 113-774 114-788 114-825 115-848 115-849
115-859 115-872 115-873 115-881 115-882 115-887
R5.PC = ****** GX 98-147 101-258 106-472 115-844
SAV.5 = ****** GX 96-44 100-201 102-279 107-513 113-736
SBDT = ****** GX 98-130 98-139 98-140
SBD0 = ****** GX 95-18 98-138 101-248 101-249
SBUS = 100000 #25-1126
SCAN = ****** GX 108-552
SECLK = 000003 #54-118
SETA = 000424 #11-263
SETAB = 000427 #11-266
SETAI = 000425 #11-264
SETAM = 000426 #11-265
SETCA = 000450 #11-287
SETCAB = 000453 #11-290
SETCAI = 000451 #11-288
SETCAM = 000452 #11-289
SETCM = 000460 #11-295
SETCMB = 000463 #11-298
SETCMI = 000461 #11-296
SETCMM = 000462 #11-297
SETCMP = ****** GX 98-129
SETM = 000414 #11-255
SETMB = 000417 #11-258
SETMI = 000415 #11-256
SETMM = 000416 #11-257
SETMR = 000007 #54-121
SETO = 000474 #11-307
SETOB = 000477 #11-310
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SETOI = 000475 #11-308
SETOM = 000476 #11-309
SETPAR = ****** GX 97-91
SETRUN = 000011 #54-123
SETZ = 000400 #11-240
SETZB = 000403 #11-246
SETZI = 000401 #11-242
SETZM = 000402 #11-244
SKIP = 000330 #11-199
SKIPA = 000334 #11-203
SKIPE = 000332 #11-201
SKIPG = 000337 #11-206
SKIPGE = 000335 #11-204
SKIPL = 000331 #11-200
SKIPLE = 000333 #11-202
SKIPN = 000336 #11-205
SLTGO 002310 R #108-552 108-557 108-563 109-593 109-599
SMFSS2 = ****** GX 97-104
SOJ = 000360 #11-223
SOJA = 000364 #11-227
SOJE = 000362 #11-225
SOJG = 000367 #11-230
SOJGE = 000365 #11-228
SOJL = 000361 #11-224
SOJLE = 000363 #11-226
SOJN = 000366 #11-229
SOS = 000370 #11-231
SOSA = 000374 #11-235
SOSE = 000372 #11-233
SOSG = 000377 #11-238
SOSGE = 000375 #11-236
SOSL = 000371 #11-232
SOSLE = 000373 #11-234
SOSN = 000376 #11-237
SRI8MB = ****** 101-241 101-252 104-368 104-383 104-384 104-393 107-529 110-621 110-648
SSCLK = 000002 #54-117
STPCLK = 000000 #54-115
STRCLK = 000001 #54-116
SUB = 000274 #11-171
SUBB = 000277 #11-174
SUBI = 000275 #11-172 99-171 99-171
SUBM = 000276 #11-173
SXCT = 000106 #11-54
TADR = 000010 #35-1491
TBN = 000004 #35-1490
TCN = 000001 #35-1488
TDC = 000650 #11-415
TDCA = 000654 #11-419
TDCE = 000652 #11-417
TDCN = 000656 #11-421
TDN = 000610 #11-383
TDNA = 000614 #11-387
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 12
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TDNE = 000612 #11-385
TDNN = 000616 #11-389
TDO = 000670 #11-431
TDOA = 000674 #11-435
TDOE = 000672 #11-433
TDON = 000676 #11-437
TDZ = 000630 #11-399
TDZA = 000634 #11-403
TDZE = 000632 #11-401
TDZN = 000636 #11-405
TGN = 000002 #35-1489
TIMFS = 000044 #39-32
TLC = 000641 #11-408 99-175 99-175
TLCA = 000645 #11-412
TLCE = 000643 #11-410
TLCN = 000647 #11-414
TLN = 000601 #11-376
TLNA = 000605 #11-380
TLNE = 000603 #11-378 99-176 99-176
TLNN = 000607 #11-382
TLO = 000661 #11-424
TLOA = 000665 #11-428
TLOE = 000663 #11-426
TLON = 000667 #11-430
TLZ = 000621 #11-392
TLZA = 000625 #11-396
TLZE = 000623 #11-394
TLZN = 000627 #11-398
TRC = 000640 #11-407
TRCA = 000644 #11-411
TRCE = 000642 #11-409
TRCN = 000646 #11-413
TRN = 000600 #11-375
TRNA = 000604 #11-379
TRNE = 000602 #11-377 99-178 99-178
TRNN = 000606 #11-381
TRO = 000660 #11-423
TROA = 000664 #11-427
TROE = 000662 #11-425
TRON = 000666 #11-429
TRPAR = 010000 #43-203 43-203 43-203 #43-203 43-203 43-203 #43-203 43-203 43-203
#43-203 43-203 43-203 #43-203 43-203 43-203 #43-203 43-203 43-203
#43-203 43-203 43-203 #43-203 43-203 43-203 #43-203 43-203 43-203
#43-203 43-203 43-203 #43-203 43-203 43-203 #43-203 43-203 43-203
#43-203
TRZ = 000620 #11-391
TRZA = 000624 #11-395
TRZE = 000622 #11-393
TRZN = 000626 #11-397
TSC = 000651 #11-416
TSCA = 000655 #11-420
TSCE = 000653 #11-418
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 13
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TSCN = 000657 #11-422
TSN = 000611 #11-384
TSNA = 000615 #11-388
TSNE = 000613 #11-386
TSNN = 000617 #11-390
TSO = 000671 #11-432
TSOA = 000675 #11-436
TSOE = 000673 #11-434
TSON = 000677 #11-438
TSTCON = ****** GX *95-17 *96-67 *101-240
TSZ = 000631 #11-400
TSZA = 000635 #11-404
TSZE = 000633 #11-402
TSZN = 000637 #11-406
TYPE0 = ****** GX 103-346 113-761
TYPNUM = ****** GX 96-57 96-65 103-344 113-745
UFA = 000130 #11-71
UMAB 002662 R 108-566 109-594 *110-617 *110-646 *111-666 #111-672
UNDCTN = 000007 #42-174 113-749 113-751
USBLMF 003002 R *108-547 112-684 *112-686 *112-697 #112-718
WENABL = 004000 #43-204 43-204 43-204 #43-204 43-204 43-204 #43-204 43-204 43-204
#43-204 43-204 43-204 #43-204 43-204 43-204 #43-204 43-204 43-204
#43-204 43-204 43-204 #43-204 43-204 43-204 #43-204 43-204 43-204
#43-204 43-204 43-204 #43-204 43-204 43-204 #43-204
X = 000000 #95-22 95-22 #99-171 99-171 #99-172 99-172 #99-173 99-173 #99-174
99-174 #99-175 99-175 #99-176 99-176 #99-177 99-177 #99-178 99-178
#99-179 99-179 #99-180 99-180 #99-181 99-181 #101-261 101-261 #101-262
101-262
XCT = 000256 #11-157
XDV = 000004 #99-172 99-172 99-172 #99-177 99-177 99-177
XOP = 000002 #99-172 99-172 99-172 #99-177 99-177 99-177
XOR = 000430 #11-267
XORB = 000433 #11-270
XORI = 000431 #11-268
XORM = 000432 #11-269
XR = 000000 #99-171 99-171 #99-172 99-172 #99-173 99-173 #99-174 99-174 #99-175
99-175 #99-176 99-176 #99-177 99-177 #99-178 99-178 #99-179 99-179
#99-180 99-180
$APRID = 000000 #54-129
$BRST = 000001 #43-189
$CNTSD = 000001 #99-165
$CONDM = 000001 #10-330 94-5
$CONEX = ****** 48-469 113-768 113-769 113-771 113-772 113-774 114-788 114-825
$CONMA = 000001 #10-332 99-188
$CONMO = 000001 #10-331 95-33
$CONMX = 000001 #10-337 95-24
$DEBUG = ****** 105-445
$DMADE = ****** 113-768 113-769 113-774 114-825
$DMPAC = 070010 #11-10
$EB = 000544 R #99-170 99-185
$EVENT = 000001 #43-190
$FATAL = ****** GX 96-70 98-113 100-229 102-309 103-326 103-364 104-376 105-414 105-430
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 14
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
108-565 109-580
$FIND = 000001 #43-188
$FITME = 000001 #10-334 106-474
$GETCT = 070020 #11-12
$ICEON = 000001 #10-336 98-153
$IND36 = 000003 #27-1177
$KL10A = 000101 #40-61
$KL10B = 000102 #40-62
$LOADA = 000001 #99-166
$MOSDE = ****** 113-771 113-772 114-788
$PATCH = 070004 #11-9
$RDERA = 000000 #54-131
$RELOA = 000001 #27-1175
$REPCO = 000001 #10-335 112-720
$REPFI = 000001 #10-333 101-264
$RESET = 000001 #99-164
$RSTAC = 070030 #11-14
$RUN = 000001 #99-167
$SAVAC = 070024 #11-13
$SBDIA = 000002 #54-127 99-172 99-177
$SDW = 000002 #27-1176
$SETPA = 000001 #97-91
$SIZ16 = 033061 #40-64
$SIZ32 = 031063 #40-65
$SIZ4K = 032060 #40-63
$SIZ64 = 032066 #40-66
$STEP = 000001 #43-191
$TB = 000000 #99-170
$TCRLF = ****** GX 103-360 105-444 113-752 114-823 114-824 115-840 115-842
$TDB2I = ****** GX 115-870
$TDB2O = ****** GX 103-351 113-755 114-807 114-817 115-884
$TIMLP = 070014 #11-11
$TL = 000013 #99-185
$TTDMS = ****** GX 102-285 102-286 103-347 103-356 103-359 113-739 113-740 113-741 113-762
113-784 114-798 115-833 115-872 115-881
$TTSPC = ****** GX 103-348 103-349 113-758 113-765 113-779 114-801 114-813 115-850 115-859
115-868
$TTTAB = ****** GX 113-753 113-757
$WDD22 = ****** GX 115-858
$$APRI = 000000 #54-130
$$NARG = 000001 #99-166 99-166 99-166
$$RDER = 000004 #54-132
$$SBDI = 000004 #54-128 99-172 99-177
$10BC = 070040 #11-16
$10BP = 070034 #11-15
$10MB = 070050 #11-18
$10RB = 070044 #11-17
.RESET = ****** GX 99-164
.SBDIA = 000001 #95-18 #98-130 #98-138 #98-139 #98-140 #101-248 #101-249
... = 000377 #11-25
...... = 177777 #11-24 111-672
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 15
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ACBLK #19-787
BLK10 #28-1207 #99-170
BP. #12-482
BRST #17-716
BTOFIX #46-336
BURST #67-556
CABTE #45-291
CALL #52-38
CALLR #52-47
CALPAR #32-1363
CGOTO #15-617
CNTSD #32-1381 #99-165
CONDET #45-311
CONDMA #44-222
CONFIG #44-218
CONMAB #44-230
CONMOS #44-226
CONMX #46-354
CONTIN #13-552
COPYAC #30-1325
CTFMTC #45-307
DBESCN #45-287
DCNFBB #46-326
DFPC #66-526
DFRD #55-163
DFRDT #56-184
DFSCLK #65-516
DFWRT #57-225
DFWRTT #58-265
DFXCT #59-304
DFXCTT #60-336
DMADET #44-246
DOLOOP #21-907
DPD #44-258
DPOS #61-369
DPOST #62-409
DSOBAC #17-707
DTEBAS #68-570
ENBLPS #20-854
ENDBLK #28-1222 99-185
ENDLOO #20-878
ENDTIM #41-126
ERRCOM #49-487
ERRMSG #49-473
ERROR #49-479
EVENT #16-650
EXAM #63-448
EXAMT #64-494
EXCT #71-632
EXECUT #22-978
EXOR #53-99 100-208 100-218
EXP16K #46-364 #115-848
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 16
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
FATAL #37-1590 #93-1291 96-70 98-113 100-229 102-309 103-326 103-364 104-376 105-414
105-430 108-565 109-580
FIND #16-669
FITMEM #44-238 102-278
FIXSB #46-340
FSD #24-1070 97-98
FSDCHK #25-1100
FSDMSK #24-1050 97-76
GBSRL #48-432
GETBBD #47-400
GETCMP #47-410
GETTF #45-283
GMCN #36-1522
ICEON #46-321 98-116
IND36 #27-1190
INIBSR #47-390
INIUDF #37-1583
INVAL #19-817
IO10 #29-1275 99-172 99-177
I10 #29-1252 99-171 99-173 99-174 99-175 99-176 99-178 99-179 99-180
JAB #36-1535
LDATIM #48-455
LDBESP #46-331
LDEFER #37-1594
LDFSDP #25-1095
LDFVR #45-271
LDNADR #45-267
LDREFR #45-279
LDTIMR #45-275
LOADAC #18-761 #99-166
LODAR #69-601
LOOP #20-869
LOOPCO #21-896
LOOPDO #21-912
MABDET #45-295
MABL #26-1138
MABPAD #45-299
MASK36 #34-1445
MB #44-214
MBINI #45-315
MMRESP #44-262 #98-111
MOSDET #44-250
MOSDMP #22-955
MRESET #74-723
MSKDAT #34-1474
MSK36R #34-1462
MXTADR #46-349
MX20MD #46-344
NUMARG #15-626 #99-166
NUMTXT #15-608
OVRLOD #37-1576
PATERR #22-965
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 17
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
PBELL #88-1150
PCRLF #88-1158 #103-360 #105-444 #113-752 #114-823 #114-824 #115-840 #115-842
PENDIS #35-1515
PFORCE #76-776 #102-283 #113-737
PMSG #85-1059 102-285 102-286 103-356 103-359 113-739 113-740 113-741 113-784 114-798
115-833 115-872 115-881
PNORML #76-779 102-284 113-738
PNTADR #78-834 115-858
PNTAL #86-1090 #103-347 #113-762
PNTAPR #35-1504
PNTBAK #76-782 115-871
PNTDEC #83-980 115-870
PNTNBR #79-861 #114-807
PNTOCS #82-948 #114-817 #115-884
PNTOCT #81-916
PNTODT #84-1013 103-351 113-755
PNTVER #19-807
PNT36 #77-806
PNT36B #80-889
POP #3-95 #52-65 #97-91 #97-98 #98-130 #98-139 #98-140 #99-164 #99-166 #99-167
#102-303 #105-441 #111-669 #112-715 #115-851 #115-869 #115-883
PSLASH #88-1146
PSPACE #88-1142 103-348 103-349 113-758 113-765 113-779 114-801 114-813 115-850 115-859
115-868
PTAB #88-1154 113-753 113-757
PUSH #3-89 #52-59 #102-282 #102-315 #102-317 #104-385 #105-436 #110-616 #112-683 #115-847
#115-865 #115-880
PWTES #19-827
RDPROM #44-254
READAC #30-1309
REGRST #75-760 #109-602
REGSAV #75-756 #107-513
REPCON #45-303
REPFIT #44-234
RESDET #44-242
RESET #25-1112 #99-164
RETURN #52-51
RST.4 #31-1343
RST.5 #31-1354
RUN #14-565 99-167
R4.R5 #31-1347
R5.PC #31-1357 #98-147 #101-258 #106-472 #115-844
SAV.4 #31-1339
SAV.5 #31-1351 #96-44 #100-201 #102-279 #113-736
SBDIAG #23-1002 95-18 98-130 98-138 98-139 98-140 101-248 101-249
SBSRL #48-416
SCAN #46-359 #108-552
SETBBD #47-395
SETCMP #47-405 98-129
SETPAR #32-1368 97-91
SETRAM #33-1422
SL #53-71
FITCON CREATED BY MACRO ON 17-SEP-79 AT 09:17 PAGE 18
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
SM #72-662
SMFSS #47-375 97-104
SOBAC #17-696
SR #53-85
STEP #18-733
STEP10 #16-639
STKEMD #35-1496
STKMEP #35-1482
STOPLO #21-887
STPCON #17-686
S10. #13-509
TBIT #13-535
TICK #41-94
TIMING #40-68
TIMSIG #39-43 43-201 43-202 43-203 43-204 43-205 43-206 43-207
TTIDEC #90-1214
TTILIN #91-1240
TTILNW #92-1266
TTIOCT #89-1186
UMAC #36-1550
WD36 #28-1243 #95-22 #99-181 #101-261 #101-262
WWADR #73-691
XO10 #28-1218
XX #32-1397
X10 #28-1214
$CNG #21-918
$DEF #3-84 #51-34 #51-36
$ENDLO #21-933
$LOOP #21-922
$PMSG #87-1111
$PRADR #12-465
$RDG #21-927
$STOPL #21-930
.MAIN. MACRO M1110 17-SEP-79 08:57
TABLE OF CONTENTS
3- 1 ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
96- 5 SUBROUTINES USED FROM ALL OVER
97- 49 SBUS DIAG SUBROUTINES
107- 665 MISCELLANEOUS SUPPORT SUBROUTINES
117- 1261 ROUTINE TO CHANGE THE CURRENT AC BLOCK
119- 1351 PROGRAM RUN CONTROL ROUTINES
121- 1489 MBOX CLOCK CONTROL ROUTINES
126- 1673 NEW AC LOAD ROUTINES
132- 1964 RESET SUBROUTINES
135- 2108 REGISTER SAVE & RESTORE ROUTINES
152- 24 MASTER CONFIGURE & RESOURCE DETERMINATION SEQUENCES
153- 65 MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL
156- 207 DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
160- 393 SUBROUTINES TO MOVE DATA TO UNUSED MF20 BITSUB LOCS
163- 558 INITIALIZE ALL MEMORY BOOT DATA AREAS
164- 622 MEMORY BOOT DATA AREA
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 1
1 177777 MBROOT==-1
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 3
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
.SBTTL ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
2
3 .NLIST CND,BEX
4 .LIST MC,MD,MEB
5 .ENABL AMA
6
7 .TITLE MBROOT -- MEMORY BOOT ROOT OVERLAY
12
13 .REM %
14 THIS FILE CONTROLS THE ASSEMBLY OF THE 5 MEMORY BOOT OVERLAY MODULES.
15 WHICH ONE OF THE MODULES IS DETERMINED BY WHICH ONE OF 5 SYMBOLS IS DEFINED.
16 THE SYMBOLS ARE:
17
18 MBROOT, CORDET, MSSCTL, DBEOVL, OR FITCON.
19
20 THE SYMBOL SHOULD BE DEFINED IN THE ASSEMBLY CONTROL COMMAND USING THE /EQ:
21 SWITCH. ONE OTHER SYMBOL MAY BE DEFINED WITH THE EQUATE SWITCH: DEFINE "MBOKLG"
22 WHEN DOING AN R$$20F ASSEMBLY IN THE DIAGNOSTIC ENVIRONMENT. THIS SATISFIES
23 EXTERNAL REFERENCES BY EXPLCITLY DEFINING THOSE SYMBOLS.
24
25 THE OVERLAY STRUCTURE OF THE MEMORY BOOT IS SIMPLE: ONE ROOT MODULE,
26 MBROOT, WHICH LOADS ONE OF THE OTHER 4 MODULES UNDERNEATH IT AS NECESSARY. THE
27 TOTAL LENGTH OF OVERLAYS RESIDENT AT ANY ONE POINT IN TIME MUST BE LESS THAN
28 16000(OCTAL) BYTES, BUT IT IS PREFERABLE TO KEEP IT AROUND 14000 TO ALLOW FOR
29 EXPANSION. THE OVERLAY STRUCTURE IS SHOWN GRAPHICALLY BELOW:
30
31 MEMORY
32 16000
33 MAX
34 ! +-----------------------------------------------------------+
35 ! ! !
36 ! ! MBROOT (ROOT MODULE) !
37 ! ! !
38 ! +--------------+--------------+--------------+--------------+
39 ! ! ! ! ! !
40 ! ! CORDET ! MSSCTL ! DBEOVL ! FITCON !
41 V ! ! ! ! !
42 +--------------+--------------+--------------+--------------+
43
44 TIME --------->
45
46 %
47
48 000001 R$$20F=1 ; *****FORCE ASSEMBLY OF MEM BOOT IN FRONT-END MODE *****
49
50 ;-----DEFINE "CONMMR" TO AID IN MEMORY BOOT ERROR CHECKING. UNDEFINE IT
51 ; TO SAVE APPROXIMATELY 400(8) BYTES IN THE MEMORY BOOT ROOT MODULE. NOTE
52 ; THAT IF YOU UNDEFINE OR REDEFINE THIS THEN YOU MUST ALSO CHANGE THE POSITION
53 ; SUBROUTINE "MMRESP" IN THE FILE MBSUB.P11 SO THAT IT IS IN THE PROPER MODULE.
54 000001 CONMMR=1
55
56 ;-----LISTING CONTROL.
57 000001 LSTMB=1
58 000001 LSBRTN=1
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 4
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
60 ;-----SYMBOLS DEFINED TO GET RID OF UNDEFINED PROBLEMS. THESE SYMBOLS WOULD
61 ; NORMALLY COME FROM PRM11.P11.
62
63 000001 BIT0=1.
64 000002 BIT1=2.
65 000004 BIT2=4.
66 000010 BIT3=8.
67 000020 BIT4=16.
68 000040 BIT5=32.
69 000100 BIT6=64.
70 000200 BIT7=128.
71 000400 BIT8=256.
72 001000 BIT9=512.
73 002000 BIT10=1024.
74 004000 BIT11=2048.
75 010000 BIT12=4096.
76 020000 BIT13=8192.
77 040000 BIT14=16384.
78 100000 BIT15=32768.
79
80 001000 HALTLP= BIT9 ;EBOX IS IN HALT LOOP
81 004000 ERRSTP= BIT11 ;EBOX CLOCK STOPPED DUE TO ERROR
82
83 ;-----OTHER SYMBOLS DEFINED TO MAKE FLAGS GO AWAY.
84 .MACRO $DEF ;MAKE THE O FLAG GO AWAY ......
85 .ENDM
86
87 ;-----PUSH AND POP MACROS ARE GIVEN HERE JUST TO NEATEN UP THE LISTING SOME.
88
89 .MACRO PUSH A
90 .IRP B,<A>
91 MOV B,-(SP) ;PUSH B ON STACK
92 .ENDR
93 .ENDM
94
95 .MACRO POP A
96 .IRP B,<A>
97 MOV (SP)+,B ;POP STACK INTO B
98 .ENDR
99 .ENDM
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 6
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
160 ;-----THE FOLLOWING DEFINITIONS FORCE ASSEMBLY OF THE MEMORY BOOT AND
161 ; DIAGNOSTIC SUBROUTINES REQUIRED FOR THIS MODULE.
162
163 000001 $CONFIG=1 ;REQUIRED FOR MEMORY BOOT SUBROUTINES
164 000001 $RESDET=1
165 000001 $MOSDET=1 ;FIRST HALF OF MOSDET
166 000001 $MBINI=1
167 000001 $MMRESP=1
168 000001 $SCAN=1
169 000001 $EXP16K=1
170 000001 $SMFSS=1
171 000001 $SETBBD=1
172 000001 $SETCMP=1
173 000001 $SBSRL=1
174 000001 MBDATA=1
175
176 000001 $RUN=1 ;REQUIRED FOR DIAGNOSTIC SUBROUTINES
177 000001 $LOADAC=1
178 000001 $ACBLK=1
179 000001 $QXCT=1
180 000001 .SBDIAG=1
181 000001 $FSD=1
182 000001 $RESET=1
183 000001 $MABL=1
184 000001 $READAC=1
185 000001 $CALPAR=1
186 000001 $SETPAR=1
187 000001 $CNTSD=1
188 000001 $XX=1
189 000001 $SETRAM=1
190 000001 $LDEFER=1
191
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 7
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
203 ;-----THE FOLLOWING MEMORY BOOT ROOT MODULE LABELS ARE GLOBAL.
204
205 .GLOBL MBDIFS,MABCNI,DDCADM,XMAL,D16KBN
206 .GLOBL DPDSRS,BTFLCN,MBDCMS,MBINID,RDDONE
207 .GLOBL CONRD,DMARD,MF20RD,MABRD,FITTED
208 .GLOBL CDONE,OCFVST,CONFGR,INTMOD,DBEFRC
209 .GLOBL FMRECN,KEEPBB,MX20M6,MX20M7,MODELB
210 .GLOBL CPUDSG,ILOST,MSTROS,TYPNUM,CONTI
211 .GLOBL MCOUNT,CNTCNT,MA20,DMA20,MB20
212 .GLOBL MX20,MF20,UNDEF,GAPCNT,GAPDMY
213 .GLOBL GAPTAB,DBUF,REAPWD,TYPE0,TYPE1
214 .GLOBL TYPE2,TYPE3,TYPE4,TYPE5,TYPE6
215 .GLOBL BITCNT,MBDABS,MABSIZ,MABSA,MABADC
216 .GLOBL MABINT,MBDDMS,DMA2TS,DMA20T,DMABM
217 .GLOBL DMAFRC,DMASIZ,DMARMP,BAF,BAF0
218 .GLOBL MBDMFS,RAMSZ0,RAMSZ1,TIMNO0,TIMNO1
219 .GLOBL MDFSIZ,MOSSA,RSPMAP,MBDMXS,SDMSBR
220 .GLOBL LADRRM,BSIZE
221
222 .GLOBL SBSRL,INIDMA,INIMAB,INIMDF,SMFSS2
223 .GLOBL SCAN,SETCMP,EXP16K
224
225 .GLOBL DMANXM,XCONMP,DBESFL,BOLPS,MDHDER
226 .GLOBL SETBBD,MDST1B,SMFSS0,MDRECN
227 .GLOBL CONFIG,RESDET,MBINI,CCFAIL
228
229 .GLOBL MMRESP ;DEFINE THIS HERE 'CAUSE IT'S IN THE ROOT
230 ;-----THE FOLLOWING DIAGNOSTIC SUBROUTINE LABELS ARE GLOBAL.
231
232 .GLOBL ACBLK1,ACLOAD,ACSCAT,APRID0,ASL0.3
233 .GLOBL ASL0.4,ASL0.6,ASR0.3,ASR0.4,ASR0.6
234 .GLOBL CALPAR,CHKED,CIAPR0,CNTSD1,CONTIN
235 .GLOBL DFRLST,DLNXT,FSD,FSDCH,FSDCHK
236 .GLOBL FSDM1,LDEFER,LFSDP,MABL,MINUS1
237 .GLOBL QXCT1,R5.PC,RDERA0,READAC,.RESET
238 .GLOBL RUNBIG,SAV.5,SBD0,SBDT,SDWDFM
239 .GLOBL SETPAR,SETRAM,TSTCON,XX1,XXWD
240 .GLOBL RUNPRG
241 .GLOBL ASR0.5,BMTAB,RST.5
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 96
SUBROUTINES USED FROM ALL OVER
5 .SBTTL SUBROUTINES USED FROM ALL OVER
7
8 ;-----SUBROUTINE TO EXECUTE A KL10 INSTRUCTION AND THEN EXAMINE AC0.
9 000000 012500 XX: MOV (R5)+,R0 ;GET ADR OF INSTR
10 000002 XX1: EXCT ;DO IT
000002 004737 000000G JSR PC,$EXCT ; ** EXECUTE IT
11 000006 103410 BCS 1$
12 000010 EXAMT AC0,XXWD ;NOW GET AC0
000010 012700 000000 MOV #AC0,R0 ; ** ADDRESS POINTER TO R0
000014 010146 MOV R1,-(SP) ; ** SAVE R1
000016 012701 000032' MOV #XXWD,R1 ; ** XXWD BUFFER POINTER TO R1
000022 004737 000000G JSR PC,$EXAMT ; ** EXECUTE THE KL10 EXAMINE
000026 012601 MOV (SP)+,R1 ; ** RESTORE R1
13 000030 000207 1$: RTS PC ;DONE
16 000032 000000 000000 000000 XXWD: 0,0,0 ;WD GOES HERE
17 ;-----SOME COMMON INSTRUCTIONS WHICH LOAD AC0.
18 000040 CIAPR0: IO10 CONI,APR,,0
000040 000 000 200
000043 002 016
19 000045 RDERA0: IO10 RDERA,,,0
000045 000 000 000
000050 004 016
20 000052 DIPAG0: IO10 DATAI,PAG,,0 ; (FOR AC BLKS, PCS, UBR)
000052 000 000 200
000055 010 016
21 000057 APRID0: IO10 APRID,,,0
000057 000 000 000
000062 000 016
23
24 ;-----MISCELLANEOUS SHIFT SUBROUTINES.
25 000064 006200 ASR0.6: ASR R0
26 000066 006200 ASR0.5: ASR R0
27 000070 006200 ASR0.4: ASR R0
28 000072 006200 ASR0.3: ASR R0
29 000074 006200 ASR R0
30 000076 006200 ASR R0
31 000100 000207 RTS PC
32 000102 006300 ASL0.6: ASL R0
33 000104 006300 ASL0.5: ASL R0
34 000106 006300 ASL0.4: ASL R0
35 000110 006300 ASL0.3: ASL R0
36 000112 006300 ASL R0
37 000114 006300 ASL R0
38 000116 000207 RTS PC
39
41 000120 000001 000002 000004 BMTAB: .WORD BIT0,BIT1,BIT2,BIT3,BIT4,BIT5,BIT6,BIT7,BIT8
42 000142 001000 002000 004000 .WORD BIT9,BIT10,BIT11,BIT12,BIT13,BIT14,BIT15
46 000160 001 002 004 BYBITM: .BYTE BIT0,BIT1,BIT2,BIT3,BIT4,BIT5,BIT6,BIT7 ;USED ALL OVER
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 97
SBUS DIAG SUBROUTINES
49 .SBTTL SBUS DIAG SUBROUTINES
50
52 .REM %
53 THE FOLLOWING CODE IS THE "FAST SBUS DIAG PROGRAM" AND ITS SUPPORT CODE.
54 IT WORKS BY HAVING AN AC PROGRAM CONSTANTLY RUNNING IN AC BLOCK 6 WHICH WAITS
55 FOR A NONZERO VALUE IN AC14 THEN DOES AN SBUS DIAG USING THAT WORD AND CHECKS
56 THE RESULT. IF ALL IS WELL THE PROGRAM JUST KEEPS RUNNING, IF NOT, IT HALTS.
57 SBUS DIAGS ARE BEING DONE THIS WAY IN ORDER TO SPEED THEM UP: ONLY 1 DEPOSIT IS
58 REQUIRED PER SBDIAG.
59 %
60
61 ;-----THIS IS THE SUBROUTINE WHICH LOADS THE PROGRAM.
62 000170 LFSDP: SM ;RESET CPU
000170 004737 000000G JSR PC,$KLMR ; ** MASTER RESET THE KL10
000174 012700 000001 MOV #STRCLK,R0 ; ** START CLOCK FUNCTION CODE TO R0
000200 004737 000000G JSR PC,$DDFXC ; ** START THE KL10 CLOCK
63 000204 MABL <,,,,,,FSDPM>,1$ ;LOAD FAST SBUS DIAG PROGRAM IN BLK 6
000204 004537 000216' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
000210 000100 000242' .WORD X,1$ ;AC BLOCK MASK & INITIAL 11 ADR OF 10 DATA
000214 000377 .WORD FSDPM ;AC LOAD MASK(S)
000216 004737 002160' 64$: JSR PC,MABL ;LD AC PRGM, NO ST ADR GIVEN
000222 012605 MOV (SP)+,R5
64 000224 SM ;;START MICRO-CODE
000224 004737 000000G JSR PC,$KLMR ; ** MASTER RESET THE KL10
000230 012700 000001 MOV #STRCLK,R0 ; ** START CLOCK FUNCTION CODE TO R0
000234 004737 000000G JSR PC,$DDFXC ; ** START THE KL10 CLOCK
65 000240 000207 RTS PC ;RETURN TO CALLER
66
67 000242 BLK10 0 ;PROGRAM STARTS IN AC0
68 000242 1$: I10 SETZ,14,,0 ;0--INITIALIZE WORD
000242 000 000 000
000245 006 010
69 000247 I10 JUMPE,14,,1 ;1--LOOP HERE TIL WORD DEPOSITED IN AC14
000247 001 000 000
000252 226 006
70 000254 I10 MOVE,16,,14 ;2--COPY WORD TO "TO MEM" AC
000254 014 000 000
000257 007 004
71 000261 IO10 SBDIAG,,,16 ;3--DO THE SBUS DIAG
000261 016 000 000
000264 005 016
72 000266 I10 XOR,14,,17 ;4--CHECK RESULT BY XOR UNDER MASK
000266 017 000 000
000271 306 010
73 000273 I10 ANDCM,14,,15 ;5--
000273 015 000 000
000276 206 010
74 000300 I10 JUMPE,14,,1 ;6--JUMP IF ECHO IS OK
000300 001 000 000
000303 226 006
75 000305 I10 JRST,4,,1 ;7--ELSE HALT TO LET PDP11 LOOK AT ERROR
000305 001 000 000
000310 142 005
76
77 ;14-11 DEPOSITS NON-0 SBDIAG WORD HERE
78 ;15-11 PUTS MASK HERE BEFORE FIRST DIAG
79 ;16-SBDIAG WD AS SENT TO MEM
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 97-1
SBUS DIAG SUBROUTINES
80 000312 ENDBLK FSDPM ;17-SBDIAG WD FROM MEMORY
81 .EVEN
83
84 ;-----THIS SUBROUTINE LOADS THE SBDIAG CHECK MASK AND LEAVE A POINTER TO IT
85 ; WHERE IT CAN BE FOUND.
86 000312 012500 FSDMSK: MOV (R5)+,R0 ;GET MASK POINTER
87 000314 010037 000352' FSDM1: MOV R0,SDMA ;ADR TO DPOST PL
88 000320 004737 000502' LSDM1: JSR PC,STRFSD ;MAKE SURE FAST-SBUS-DIAG IS RUNNING
90 000324 PUSH R1
000324 010146 MOV R1,-(SP)
91 000326 013701 000352' MOV SDMA,R1 ;MASK ADR TO R1
92 000332 DPOST AC15 ;PUT MASK IN AC15
000332 012700 000015 MOV #AC15,R0 ; ** ADDRESS TO R0
000336 004737 000000G JSR PC,$DPOST ; ** EXECUTE THE DEPOSIT
93 000342 POP R1
000342 012601 MOV (SP)+,R1
98 000344 004737 003316' JSR PC,CHKED
99 000350 000207 RTS PC
101
102 000352 177777 SDMA: ...... ;FAST SBUS DIAG MASK ADDRESS
103
104 ;-----THIS SUBROUTINE DOES THE SBDIAG, DUMPS ERROR DATA, AND FAULTS UPON
105 ; DETECTING AN ERROR.
106 000354 012500 FSDCH: MOV (R5)+,R0 ;SBDIAG WD ADR TO R0
108 000356 004737 000400' FSDCH1: JSR PC,FSD1 ;GO DO IT
109 000362 103401 BCS FSDERR ;BR IF CPU HALTED.. ERROR
110 000364 000207 RTS PC ;ELSE OK...RTN
111 000366 FSDERR: FATAL MFE ;MF20 ERROR, SBDIAG ECHO CHECK FAILED
000366 004737 000000G JSR PC,$FATAL ; ** FATAL "MFE" ERROR
000372 115 106 105 .ASCIZ %MFE%
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 98
SBUS DIAG SUBROUTINES
120 ;-----THIS SUBROUTINE JUST DOES THE SBUS DIAG AND CHECKS THE HALTED BIT TO
121 ; SEE IF THERE WAS AN ERROR.
122 000376 012500 FSD: MOV (R5)+,R0 ;SBDIAG WD ADR TO R0
123 000400 010037 000460' FSD1: MOV R0,FSDWDA ;ADR TO DPOST PL
124 000404 CNTSD ;PUT CONTR # IN SBDIAG WD
000404 004737 000734' JSR PC,CNTSD1 ;CONTR # TO SBDIAG WD, IN R0
125 000410 004737 000502' JSR PC,STRFSD ;MAKE SURE FAST-SBUS-DIAG IS RUNNING
126 000414 FSD2: ;HACKER'S ENTRY POINT
141 000414 PUSH R1
000414 010146 MOV R1,-(SP)
142 000416 013701 000460' MOV FSDWDA,R1 ;GET ADR OF FST SBDIAG WD
143 000422 DPOST AC14 ;PUT WD IN AC14.. PROGRAM TAKES IT FROM THERE
000422 012700 000014 MOV #AC14,R0 ; ** ADDRESS TO R0
000426 004737 000000G JSR PC,$DPOST ; ** EXECUTE THE DEPOSIT
144 000432 POP R1
000432 012601 MOV (SP)+,R1
149 000434 004737 003316' JSR PC,CHKED
151 000440 004737 000000G JSR PC,$DTRW1 ;READ DTE20 DIAG 1 WORD
152 000444 032700 001000 BIT #HALTLP,R0 ;IS CPU HALTED?
156 000450 000241 CLC ;IND NO ERROR
157 000452 001401 BEQ 2$ ;BR IF CPU NOT HALTED...OK
174 000454 000261 SEC ;SET ERR FLG
175 000456 000207 2$: RTS PC ;DONE...C BIT SET ON ERROR
177
178 000460 177777 FSDWDA: ...... ;FAST SBUS DIAG WORD ADR
180
181 ;-----THIS SUBROUTINE IS USED TO LOAD AN SBUS DIAG MASK, DO AN SBUS DIAG,
182 ; AND CHECK THE RESULT.
183 000462 012537 000352' FSDCHK: MOV (R5)+,SDMA ;MASK ADR TO DPOST PL
184 000466 004737 000320' JSR PC,LSDM1 ;DO DEPOSIT
186 000472 012500 MOV (R5)+,R0 ;FUNCTION WD ADR TO PARAM REG
187 000474 004737 000356' JSR PC,FSDCH1 ;DO IT AND CHECK
189 000500 000207 RTS PC ;DONE
191
192
193 ;-----STRFSD SEE IF THE FAST-SBUS-DIAG PROGRAM IS RUNNING AND STARTS IT IF
194 ; IT IS NOT.
195 000502 023727 001316' 000006 STRFSD: CMP CACBLK,#BLK6 ;ARE WE IN AC BLK 6?
196 000510 001005 BNE 1$ ;NO...NEED TO START PROGRAM
198 000512 004737 000000G JSR PC,$DTRW1 ;READ DTE20 DIAG 1 WORD
199 000516 032700 001000 BIT #HALTLP,R0 ;IS CPU HALTED?
203 000522 001422 BEQ 2$ ;NO...PROGRAM IS RUNNING
204 000524 1$:
206 000524 RESET CPU ;SET PC TO 0 & CLR CPU
000524 004537 000532' JSR R5,64$ ;SAV R5, PT TO & SKIP CPU LIST
000530 000200 .WORD CPU
000532 004737 003032' 64$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
000536 012605 MOV (SP)+,R5
207 000540 ACBLK 6
000540 012700 000006 MOV #6,R0 ;AC BLK # TO R0
000544 004737 001140' JSR PC,ACBLK1 ;SWITCH TO AC BLK
212 000550 DFXCTT SETRUN ;GO
000550 012700 000011 MOV #SETRUN,R0 ; ** FUNCTION CODE TO R0
000554 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
214 000560 DFXCTT CONBUT
000560 012700 000012 MOV #CONBUT,R0 ; ** FUNCTION CODE TO R0
000564 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 98-1
SBUS DIAG SUBROUTINES
216 000570 000207 2$: RTS PC
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 99
SBUS DIAG SUBROUTINES
220 ;-----SUBROUTINES USED BY THE SBDIAG MACRO. SBDT COPIES THE RH 32 BITS FROM
221 ; THE PARAMS & USES THEM AS THE SBUS DIAG WORD. SBDI & SBD0 USE A WORD FROM
222 ; SOMEWHERE ELSE. THE CONTROLLER NUMBER, TSTCON, IS AUTOMATCILY INSERTED INTO
223 ; THE WORD.
224 000572 012700 000606' SBDT: MOV #1$,R0 ;PT TO COPY AREA
225 000576 012510 MOV (R5)+,(R0) ;GET BITS 20-35
226 000600 012560 000002 MOV (R5)+,2(R0) ;4-19
227 000604 000406 BR SBD0 ;GO DO IT
228 000606 000 000 000 1$: .BYTE 0,0,0,0,0 ;WD COPIED HERE
229 000613 SD16: IO10 SBDIAG,,,16 ;INSTR TO DO SBUS DIAG
000613 016 000 000
000616 005 016
230 000620 012500 SBDI: MOV (R5)+,R0 ;GET ADR OF WD
231 000622 SBD0: CNTSD ;PUT CONTR # INTO LHE OF WD
000622 004737 000734' JSR PC,CNTSD1 ;CONTR # TO SBDIAG WD, IN R0
232 000626 010037 000722' MOV R0,SBDG3 ;ADR OF WD TO DPOST PARAM
234 000632 SBDG2: PUSH R1
000632 010146 MOV R1,-(SP)
235 000634 013701 000722' MOV SBDG3,R1
236 000640 DPOST AC16
000640 012700 000016 MOV #AC16,R0 ; ** ADDRESS TO R0
000644 004737 000000G JSR PC,$DPOST ; ** EXECUTE THE DEPOSIT
237 000650 POP R1
000650 012601 MOV (SP)+,R1
242 000652 004737 003316' JSR PC,CHKED
256 000656 EXECUTE SD16 ;DO THE SBUS DIAG
000656 012700 000613' MOV #SD16,R0 ;PT TO INSTR TO BE EXECUTED
000662 004737 003300' JSR PC,QXCT1 ;EXECUTE THE INSTR PTD TO BY R0
257 000666 EXAMT AC17,SDWDFM ;GET THE SBUS DIAG RESULT
000666 012700 000017 MOV #AC17,R0 ; ** ADDRESS POINTER TO R0
000672 010146 MOV R1,-(SP) ; ** SAVE R1
000674 012701 000724' MOV #SDWDFM,R1 ; ** SDWDFM BUFFER POINTER TO R1
000700 004737 000000G JSR PC,$EXAMT ; ** EXECUTE THE KL10 EXAMINE
000704 012601 MOV (SP)+,R1 ; ** RESTORE R1
259 000706 004737 003316' JSR PC,CHKED
260 000712 000207 RTS PC ;DONE
262
263 000714 010037 001000' SETCON: MOV R0,TSTCON ;PUT R0 INTO TSTCON
264 000720 000205 RTS R5 ;RET TO CALLER (PROBABLY AN ISOLATION ROUTINE)
265
266 000722 177777 SBDG3: ...... ;SBDIAG WD ADR
267 000724 000000 000000 000000 SDWDFM: 0,0,0 ;RESULT WORD GOES HERE
268
272
274 .REM %
275 SUBROUTINE TO STICK THE CURRENT CONTROLLER NUMBER INTO AN SBUS DIAG
276 WORD. THE ADDRESS OF THE SBUS DIAG WORD IS A T.P. OR IN R0 IF ENTRY AT CNTSD1.
277 CNTSD1 DOESN'T AFFECT R0.
278 %
279 000732 012500 CNTSD: MOV (R5)+,R0 ;ADDRESS OF SBUS DIAG WD
280 000734 CNTSD1: PUSH R1 ;ENTER HERE IF ADR ALREADY IN R0
000734 010146 MOV R1,-(SP)
281 000736 113701 001000' MOVB TSTCON,R1 ;GET CONTROLLER #
282 000742 142760 000017 000004 BICB #17,4(R0) ;OFF BITS 0-3
283 000750 006001 ROR R1 ;BIT 4 TO C-BIT FOR LATER TEST
284 000752 150160 000004 BISB R1,4(R0) ;SET BITS 0-3
285 000756 142760 000200 000003 BICB #200,3(R0) ;OFF BIT 4
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 99-1
SBUS DIAG SUBROUTINES
286 000764 103003 BCC 1$
287 000766 152760 000200 000003 BISB #200,3(R0) ;SET BIT 4
288 000774 1$: POP R1
000774 012601 MOV (SP)+,R1
289 000776 000207 RTS PC
291
292 001000 177777 TSTCON: .WORD ...... ;NUMBER OF THE CONTROLLER WERE TESTING
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 100
SBUS DIAG SUBROUTINES
297 .REM %
298 SUBROUTINE SETRAM IS CALLED BY THE SETRAM MACRO. IT IS USED TO FILL AN
299 ENTIRE MOS CONTROL RAM SET WITH A DESIRED VALUE. IT USES AND IS INTIMATELY
300 LINKED TO FSD. IT IS ASSUMED THAT THE FSD MASK HAS ALREADY BEEN LOADED. NOTE
301 THAT SOME ROUTINES DEPEND UPON THE FACT THAT SETRAM STARTS WITH THE ADDRESS
302 GIVEN IN THE SBDIAG WORD AND WORKS DOWN FROM THERE.
303 %
304
305 001002 SETRAM: PUSH R1
001002 010146 MOV R1,-(SP)
306 001004 012700 001072' MOV #5$,R0 ;PTR SAVS TIM & SPACE
307 001010 012520 MOV (R5)+,(R0)+ ;COPY SBDIAG WD 04-35
308 001012 012510 MOV (R5)+,(R0)
309 001014 014001 MOV -(R0),R1 ;GET & ISOLATE FUNC #
310 001016 042701 177760 BIC #-16.,R1
311 001022 116101 001100' MOVB 6$(R1),R1 ;GET BYTE DISP INTO WD OF RHE OF RAM ADR
316 001026 060001 1$: ADD R0,R1 ;ADR OF RAM LD ADR NOW IN R1
317 001030 010037 000460' MOV R0,FSDWDA ;ADR TO FSD FOR IT TO USE
318 001034 CNTSD ;CONTR # TO SBDIAG WD
001034 004737 000734' JSR PC,CNTSD1 ;CONTR # TO SBDIAG WD, IN R0
319 001040 004737 000502' JSR PC,STRFSD ;MAKE SURE FSD IS RUNNING
320 001044 004737 000414' 2$: JSR PC,FSD2 ;DO A RAM LOC
322 001050 103002 BCC 3$ ;BR IF DONE CORRECTLY
323 001052 000137 000366' JMP FSDERR ;ELSE DIE
324 001056 105711 3$: TSTB (R1) ;DONE ALL LOCS INCLUDING 0?
325 001060 001402 BEQ 4$ ;YUP
326 001062 105311 DECB (R1) ;ELSE COUNT DOWN 1 RAM LOC
327 001064 000767 BR 2$
328 001066 4$: POP R1 ;RESTORE & EXIT
001066 012601 MOV (SP)+,R1
329 001070 000207 RTS PC
331
332 001072 000000 000000 000000 5$: .WORD 0,0,0 ;SBDIAG WORD USED FROM HERE
333 001100 000 000 000 6$: .BYTE 0,0,0,1,0,0,0,1,0,2,1,0,0,0,0,0 ;BYTE DISP OF RAM LD ADR
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 107
MISCELLANEOUS SUPPORT SUBROUTINES
665 .SBTTL MISCELLANEOUS SUPPORT SUBROUTINES
705 001120 000000 000000 000000 ZERO..: .WORD 0,0,0 ;A 36-BIT ZERO CONSTANT
706 001126 MINUS1: WD36 7777,7777,7777 ;36 BITS OF ALL ONES
001126 377 377 377
001131 377 017
707 001133 000 .BYTE 0
708 001134 000000 ERBIT: .WORD 0 ;LAST KL BIT TESTED BY TBIT
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 117
ROUTINE TO CHANGE THE CURRENT AC BLOCK
1261 .SBTTL ROUTINE TO CHANGE THE CURRENT AC BLOCK
1262
1263 .REM %
1264 SUBROUTINE ACBLK SETS THE CURRENT AC BLOCK NUMBER ACCORDING TO THE VALUE
1265 IN R0 WITHOUT USING AN AC OR MEMORY. PREVIOUS AC BLOCK NUMBER IS SET TO ZERO.
1266 %
1267
1268 001136 012500 ACBLK: MOV (R5)+,R0 ;GET PARAM WD
1269 001140 042700 177770 ACBLK1: BIC #177770,R0 ;SHUT OF JUNK BITS
1270 001144 010037 001316' MOV R0,CACBLK ;SAV CURRENT AC BLOCK NUMBER
1271 001150 004737 000110' JSR PC,ASL0.3 ;POSITION
1276 001154 110037 001314' MOVB R0,3$+3 ;AC BLK # TO WORD
1280 001160 012700 001304' MOV #2$,R0 ;START DATAO PAG
1281 001164 LODAR
001164 004737 000000G JSR PC,$LDAR ; ** LOAD THE KL10 AR REGISTER
1282 001170 DFXCTT CONBUT
001170 012700 000012 MOV #CONBUT,R0 ; ** FUNCTION CODE TO R0
001174 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1284 001200 BRST 18. ;SKIP SOME TICKS TO SAVE TIME
001200 004537 001206' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
001204 000022 .WORD 18. ;# OF CLOCKS
001206 004737 001734' 64$: JSR PC,BRST ;BURST
001212 012605 MOV (SP)+,R5
1285 001214 FIND <132,23,1> ;TICK UNTIL AR LOADED (WITH GARBAGE)
001214 004537 001222' JSR R5,65$ ;SAV R5, PT TO & SKIP 132,23,1 LIST
001220 155160 .WORD $S10. ;PARAM LIST
001222 004737 001604' 65$: JSR PC,FIND ;STEP TO EVENT
001226 012605 MOV (SP)+,R5
1287 001230 103421 BCS 1$ ;ERR IF NOT FOUND
1289 001232 DFXCTT CECLK ;BRING EBOX CLOCK DOWN
001232 012700 000004 MOV #CECLK,R0 ; ** FUNCTION CODE TO R0
001236 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1290 001242 DFWRTT 3$,LDAR ;PUT THE DATA WE REALLY WANT IN THE AR
001242 012700 000077 MOV #LDAR,R0 ; ** FUNCTION WRITE CODE TO R0
001246 010146 MOV R1,-(SP) ; ** SAVE R1
001250 012701 001311' MOV #3$,R1 ; ** BUFFER POINTER TO R1
001254 004737 000000G JSR PC,$DDFWR ; ** EXECUTE THE FUNCTION WRITE
001260 012601 MOV (SP)+,R1 ; ** RESTORE R1
1291 001262 DFXCTT STRCLK ;RESTART THE CLOCK TO FINISH UP
001262 012700 000001 MOV #STRCLK,R0 ; ** FUNCTION CODE TO R0
001266 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1292 001272 000207 RTS PC ;DONE...RETURN
1293 001274 1$: FATAL ABS ;AC BLOCK SELECT ERROR
001274 004737 000000G JSR PC,$FATAL ; ** FATAL "ABS" ERROR
001300 101 102 123 .ASCIZ %ABS%
1301 001304 2$: IO10 DATAO,PAG,,0 ;INSTR TO SET AC BLOCK NUMBER
001304 000 000 200
001307 011 016
1302 001311 3$: WD36 4000,0040,0000 ;WD USED BY THE ABOVE
001311 000 000 002
001314 000 010
1303 .EVEN
1305
1307 001316 177777 CACBLK: .WORD ...... ; "CURRENT" AC BLOCK NUMBER
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 118
ROUTINE TO CHANGE THE CURRENT AC BLOCK
1310 .REM %
1311 READAC IS A CONVENIENCE SUBROUTINE TO GET ANY AC AND DUMP IT INTO A
1312 TEMPORARY BUFFER SOMEWHERE. R0 HAS WD ADR UPON RETURN.
1313 %
1314 001320 112500 READAC: MOVB (R5)+,R0 ;GET AC BLK #
1315 001322 002402 BLT 1$ ;SKIP AC BLK SEL IF NOT SPECIFIED
1316 001324 ACBLK ;ELSE SELECT AC BLK
001324 004737 001140' JSR PC,ACBLK1 ;SWITCH TO AC BLOCK (R0)
1318 001330 112500 1$: MOVB (R5)+,R0 ;AC # TO PARAM REG
1319 001332 EXAMT ,RDACWD ;GET THE AC CONTENTS
001332 010146 MOV R1,-(SP) ; ** SAVE R1
001334 012701 001356' MOV #RDACWD,R1 ; ** RDACWD BUFFER POINTER TO R1
001340 004737 000000G JSR PC,$EXAMT ; ** EXECUTE THE KL10 EXAMINE
001344 012601 MOV (SP)+,R1 ; ** RESTORE R1
1325 001346 103002 BCC 3$ ;BR IF OK
1331 001350 000137 003322' JMP CHKED+4 ;ERROR
1332 001354 000207 3$: RTS PC
1334
1335 001356 000000 000000 000000 RDACWD: 0,0,0 ;THE WORD GOES HERE
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 119
PROGRAM RUN CONTROL ROUTINES
1351 .SBTTL PROGRAM RUN CONTROL ROUTINES
1373
1374 .REM %
1375 PROGRAM RUN ROUTINES. AUTORP AND AUTORB RUN THE PROGRAM USING THE
1376 STARTING AC & AC BLOCK SET BY MABL (MULTIPLE AC BLOCK LOAD). RUNPRG AND RUNBIG
1377 USE THE T.P. AS THE START ADR IN THE CURRENT BLOCK. AUTORB AND RUNBIG USE THE
1378 T.P. AS A TIME LIMIT OF N 60 CYC CLK TICKS, WHEREAS AUTORP AND RUNPRG DEFAULT
1379 TO 1 TICK. AUTORP & AUTORB ARE DEFINED ONLY IF $JAB IS DEFINED AS THEY EXPECT
1380 TO BE ABLE TO USE THE JAB INSTRUCTION.
1381 %
1382
1395 001364 012546 RUNBIG: MOV (R5)+,-(SP) ;TIMINT = T.P. + 1
1396 001366 000401 BR GETRPC
1397 001370 005046 RUNPRG: CLR -(SP) ;TIMINT = 1
1398 001372 012537 001416' GETRPC: MOV (R5)+,RUNJRS ;MOVE START PC TO JRST INSTR
1399 001376 SETRPC: EXECUTE RUNJRS ;SET HDWR PC
001376 012700 001416' MOV #RUNJRS,R0 ;PT TO INSTR TO BE EXECUTED
001402 004737 003300' JSR PC,QXCT1 ;EXECUTE THE INSTR PTD TO BY R0
1400 001406 000407 BR CON2 ;LET PRGM RUN
1401
1402 001410 177777 SJDATA: ...... ;WHERE THE RH 16 BITS OF A JAB IS PUT BY MABL
1403 001412 000000 LOOPK: 0 ;# OF TIMEOUT LOOPS
1404 001414 000000 TIMINT: 0 ;# OF TIMEOUT INTERVALS
1405
1406 001416 RUNJRS: I10 JRST,,,0
001416 000 000 000
001421 140 005
1407 .EVEN
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 120
PROGRAM RUN CONTROL ROUTINES
1409 .REM %
1410 CONTIN - STARTS THE KL RUNNING. SETS THE C-BIT IF NO HALT WITHIN THE
1411 TIMING INTERVAL SPECIFIED.
1412 %
1413 001424 005046 CONTIN: CLR -(SP) ;TIMINT = 1
1414 001426 CON2: DFXCTT SETRUN ;SET RUN AND CONTINUE
001426 012700 000011 MOV #SETRUN,R0 ; ** FUNCTION CODE TO R0
001432 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1416 001436 DFXCTT CONBUT
001436 012700 000012 MOV #CONBUT,R0 ; ** FUNCTION CODE TO R0
001442 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1418 001446 012737 177777 001316' CON3: MOV #-1,CACBLK ;INDICATE LOST TRACK OF ACBLK #
1419
1423 001454 005216 INC (SP) ;BUMP TIMINT BY 1
1425 001456 012700 000002 MOV #2,R0 ;ASSUME CLK RATE 2.. LET PRGM RUN A LONG TIME
1431 001462 006316 1$: ASL (SP)
1432 001464 005300 DEC R0 ;MULTIPLY INTERVAL BY RATE
1433 001466 003375 BGT 1$
1434 001470 005216 INC (SP) ;ADD ONE
1435 001472 POP TIMINT
001472 012637 001414' MOV (SP)+,TIMINT
1437 001476 013737 000000G 001602' 2$: MOV .TICKS,CURKW ;SAVE CURRENT VAL OF CLK
1438 001504 004737 000000G 3$: JSR PC,$DTRW1 ;READ DTE20 DIAG 1 WORD
1439 001510 032700 001000 BIT #HALTLP,R0 ;IS CPU HALTED?
1444 001514 001023 BNE 5$ ;YES, RETURN
1445 001516 023737 000000G 001602' CMP .TICKS,CURKW ;CLOCK TICKED?
1447 001524 001767 BEQ 3$ ;NO TEST KL AGAIN
1448 001526 005337 001414' DEC TIMINT ;TIMEOUT COMPLETE?
1449 001532 003361 BGT 2$ ;NO WAIT ANOTHER 16MS (MIN)
1450 001534 005737 003270' TST CLKFLG ;CLK STOP ENABLED?
1451 001540 001407 BEQ 4$ ;NO, JUST ERROR RETURN
1453 001542 004737 000000G JSR PC,$DTRW1 ;READ DTE20 DIAG 1 WORD
1454 001546 032700 004000 BIT #ERRSTP,R0 ;CLK ERR STOP?
1458 001552 001402 BEQ 4$ ;NO, RUN TIMEOUT
1459 001554 000137 001750' JMP CLKERR ;GO TO CLK ERROR POINT
1460 001560 4$:
1466 001560 000137 003352' JMP CHKP+4 ;FORCE A "PRGM DIDNT HLT" ERR
1467 001564 5$: DFPC REAPWD ;GET HALTED PC & PLACE IN REAPWD
001564 012700 006364' MOV #REAPWD,R0 ; ** BUFFER POINTER TO R0
001570 004737 000000G JSR PC,$DFPC ; ** READ THE KL10 PC
1469 001574 011000 MOV (R0),R0 ;PC 20-35 TO R0
1479 001576 000241 CLC ;KL HALTED (NORMAL)
1480 001600 000207 RTS PC ;RETURN
1484
1485 001602 177777 CURKW: .WORD ...... ;CURRENT VALUE OF WORD ".TICKS"
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 121
MBOX CLOCK CONTROL ROUTINES
1489 .SBTTL MBOX CLOCK CONTROL ROUTINES
1490 .REM %
1491 FIND - STEPS THE CLOCK UNTIL AN EVENT LEADING EDGE IS FOUND OR 4092
1492 CLOCKS HAVE BEEN ISSUED. RETURNS THE CLOCK COUNT IN R0, & SETS THE C-BIT IF
1493 TIMEOUT.
1494 %
1495 001604 FIND:
1496 001604 012500 FIND1: MOV (R5)+,R0 ;PARAMETERS TO R0
1497 001606 FIND2: SAV.4 ;SAVE R4-R1
001606 004737 003362' JSR PC,SAV.5 ;SAVE R1-R5
1498 001612 PUSH R5 ;R5 ALSO
001612 010546 MOV R5,-(SP)
1499 001614 012737 000001 001666' MOV #1,STEPK ;SET CLOCK COUNT = 1
1500 001622 004737 002002' JSR PC,EVENT2 ;TEST FOR EVENT
1501 001626 103012 BCC 2$ ;FOUND ON FIRST TICK
1502 001630 004737 002072' 1$: JSR PC,EVENT3 ;TEST SAME EVENT AGAIN
1503 001634 005237 001666' INC STEPK ;INCREMENT CLOCK COUNT
1504 001640 103005 BCC 2$ ;EVENT FOUND
1505 001642 023727 001666' 007774 CMP STEPK,#4092. ;TIMEOUT?
1506 001650 002767 BLT 1$ ;NO, TRY AGAIN
1507 001652 000261 SEC ;YES, SET ERROR FLAG
1508 001654 013700 001666' 2$: MOV STEPK,R0 ;CLOCK COUNT TO R0
1509 001660 POP R5 ;RESTORE REGS & RETURN
001660 012605 MOV (SP)+,R5
1510 001662 R4.R5
001662 000137 003420' JMP R5.PC ;RESTORE R1-R5 & DO AN RTS PC
1511
1512 001666 000000 STEPK: .WORD 0 ;STEP COUNT
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 122
MBOX CLOCK CONTROL ROUTINES
1516 .REM %
1517 GENERATES AN MBOX CLOCK. TESTS FOR THE OCCURENCE OF AN EVENT IF A
1518 FUNCTION BREAKPOINT IS SET. CALL IS VIA JSR,R5.
1519 %
1520 001670 STEP:
1521 001670 STEP1: DFSCLK ;STEP MBOX CLOCK
001670 012700 000002 MOV #SSCLK,R0 ; ** FUNCTION CODE TO R0
001674 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1522 001700 000402 BR CLKERC ;CHECK CLK ERROR STOP
1523
1524 001702 XSTEP: DFXCT ;NO, JUST STEP IT
001702 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1526 001706 004737 000000G CLKERC: JSR PC,$DTRW1 ;READ DTE20 DIAG 1 WORD
1527 001712 032700 004000 BIT #ERRSTP,R0 ;CLK ERR STOP?
1531 001716 001404 BEQ 1$ ;NO, RETURN
1532 001720 005737 003270' TST CLKFLG ;CLOCK ERR STOP ENABLED?
1533 001724 001011 BNE CLKERR ;YES, GO TO ERROR POINT
1534 001726 000261 SEC ;NO, SET ERROR FLAG
1535 001730 000207 1$: RTS PC ;RETURN
1537
1538 001732 000002 CLKTYP: .WORD SSCLK ;CLOCK TYPE
1541
1542 .REM %
1543 GENERATES A BURST OF CLOCK PULSES.
1544 %
1545 001734 012500 BRST: MOV (R5)+,R0 ;GET THE BURST COUNT
1546 001736 BRST1: BURST
001736 004737 000000G JSR PC,$BURST ; ** BURST THE MBOX CLOCK
1547 001742 004737 001706' JSR PC,CLKERC ;TEST FOR CLK ERR STOP
1548 001746 000207 RTS PC ;RETURN
1553
1554 001750 CLKERR: FATAL CES ;CLK ERROR STOP
001750 004737 000000G JSR PC,$FATAL ; ** FATAL "CES" ERROR
001754 103 105 123 .ASCIZ %CES%
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 124
MBOX CLOCK CONTROL ROUTINES
1599 .REM %
1600 TESTS FOR THE FIRST OCCURENCE OF AN EVENT. STEPS THE PROPER CLOCK ONCE
1601 & SETS THE C-BIT IF THE EVENT DOES NOT OCCUR. CALL IS JSR,R5. PARAMETER TRAILS
1602 FOR EVENT & IS IN R0 FOR EVENT1. EVENT1 DOES NOT SAVE THE FUNCTION BREAK PC.
1603 %
1604 001760 EVENT:
1605 001760 012500 EVENTA: MOV (R5)+,R0 ;PARAMETERS TO R0
1606 001762 EVENT1: SAV.4 ;SAV REGS
001762 004737 003362' JSR PC,SAV.5 ;SAVE R1-R5
1607 001766 PUSH R5 ;R5 ALSO
001766 010546 MOV R5,-(SP)
1608 001770 004737 002002' JSR PC,EVENT2 ;CHECK FOR EVENT
1609 001774 POP R5 ;RESTORE REGS & RETURN
001774 012605 MOV (SP)+,R5
1610 001776 R4.R5
001776 000137 003420' JMP R5.PC ;RESTORE R1-R5 & DO AN RTS PC
1611
1612 ;SUBROUTINE TO TEST FOR EVENT WITHOUT SAVING & RESTORING
1613 ;REGISTERS. LEAVES R1-R5 EQUAL TO THE FOLLOWING:
1614 ;R1 = THE POLARITY OF THE DIAGNOSTIC FN READ
1615 ;R2 = THE POLARITY FOR THE EVENT TO BE DETECTED
1616 ;R3 = THE DIAGNOSTIC FUNCTION READ
1617 ;R4 = THE BIT MASK TO APPLY TO THE APPRORIATE DEXWD
1618 ;R5 = THE ADDRESS OF THE PROPER DEXWD TO TEST
1619
1620 002002 110002 EVENT2: MOVB R0,R2 ;PARAMETER LOWER TO R2
1621 002004 000300 SWAB R0
1622 002006 042700 177600 BIC #177600,R0
1623 002012 010003 MOV R0,R3 ;DIAGNOSTIC FUNCTION
1624 002014 010205 MOV R2,R5
1625 002016 042705 177774 BIC #177774,R5 ;DEXWD #
1626 002022 006305 ASL R5 ;MULTIPLY BY 2
1627 002024 063705 002156' ADD .DAT3,R5 ;WORD TO TEST
1628 002030 010204 MOV R2,R4
1629 002032 042704 177703 BIC #177703,R4
1630 002036 006204 ASR R4 ;2 * BIT #
1631 002040 016404 000120' MOV BMTAB(R4),R4 ;BIT MASK
1632 002044 042702 177677 BIC #177677,R2 ;POLARITY FLAG
1633 002050 DFRD
002050 010146 MOV R1,-(SP) ; ** SAVE R1
002052 005001 CLR R1 ; ** NO DATA BUFFER
002054 004737 000000G JSR PC,$DDFRD ; ** EXECUTE THE FUNCTION READ
002060 012601 MOV (SP)+,R1 ; ** RESTORE R1
1634 002062 005001 CLR R1 ;CLEAR EVENT FLAG
1635 002064 030415 BIT R4,(R5) ;TEST EVENT
1636 002066 001401 BEQ EVENT3 ;ZERO?
1637 002070 005201 INC R1 ;NO, SET EVENT FLAG
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 125
MBOX CLOCK CONTROL ROUTINES
1639 ;SUBROUTINE TO TEST FOR AN EVENT AFTER HAVING PREVIOUSLY
1640 ;TESTED FOR THE SAME EVENT USING ENTRY POINT EVENT2.
1641 ;CALL IS JSR PC,EVENT3. SETS THE C-BIT IF EVENT IS NOT
1642 ;DETECTED. ASSUMES THAT REGISTERS R1-R5 ARE NOT DEST-
1643 ;ROYED FROM ONE ENTRY TO ANOTHER.
1644
1645 002072 013700 001732' EVENT3: MOV CLKTYP,R0 ;GET EBOX OR MBOX CLK FN
1646 002076 004737 001702' JSR PC,XSTEP ;STEP CLOCK ONCE
1648 002102 010300 MOV R3,R0 ;READ SAME DIAG FN
1649 002104 DFRD
002104 010146 MOV R1,-(SP) ; ** SAVE R1
002106 005001 CLR R1 ; ** NO DATA BUFFER
002110 004737 000000G JSR PC,$DDFRD ; ** EXECUTE THE FUNCTION READ
002114 012601 MOV (SP)+,R1 ; ** RESTORE R1
1650 002116 005000 CLR R0 ;CLEAR NEXT EVENT FLAG
1651 002120 030415 BIT R4,(R5) ;TEST EVENT
1652 002122 001406 BEQ 1$ ;ZERO?
1653 002124 005200 INC R0 ;SET NEXT EVENT FLAG
1654 002126 005701 TST R1 ;NO, CHECK CHANGE
1655 002130 001007 BNE 2$ ;NO CHANGE
1656 002132 005702 TST R2 ;MATCH?
1657 002134 001405 BEQ 2$ ;NO
1658 002136 000406 BR 3$ ;YES, EVENT EDGE DETECTED
1659 002140 005701 1$: TST R1 ;CHECK CHANGE
1660 002142 001402 BEQ 2$ ;NO CHANGE
1661 002144 005702 TST R2 ;MATCH?
1662 002146 001402 BEQ 3$ ;YES, EVENT EDGE DETECTED
1663 002150 000261 2$: SEC ;NO EVENT, SET C-BIT
1664 002152 010001 MOV R0,R1 ;SET CURRENT EVENT FLAG
1665 002154 000207 3$: RTS PC ;RETURN
1667
1668
1669 002156 000000G .DAT3: .WORD .DFRBK ;SIMULATED ADR OF DTE20 DIAGNOSTIC FUNCTION WORD
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 126
NEW AC LOAD ROUTINES
1673 .SBTTL NEW AC LOAD ROUTINES
1675
1676 .REM %
1677 MABL IS A SUBROUTINE DESIGNED TO LOAD A MULTIPLE AC BLOCK PROGRAM. ITS
1678 PARAMS INCLUDE STARTING AC & BLOCK NUMBERS (OR -1), AN AC BLOCK MASK BYTE
1679 (BIT0=1 ==> LD BLK 0, ETC), AN INITIAL PDP11 ADDRESS OF CONTIGUOUS 10 WORDS TO
1680 LOAD, AND A VARIABLE LENGTH LIST OF AC LOAD MASKS (1 FOR EACH BLOCK LOADED).
1681 MABL USES ACBLK AND LOADAC.
1682 %
1683
1685 002160 MABL: PUSH <R3,R4> ;SAV REGS
002160 010346 MOV R3,-(SP)
002162 010446 MOV R4,-(SP)
1686 002164 012503 MOV (R5)+,R3 ;GET AC BLOCK MASK BITS
1693 002166 005004 CLR R4 ;SET AC BLOCK # TO 0
1694 002170 012537 002456' MOV (R5)+,CACEA ;GET INITIAL 10 DATA 11 ADR
1695 002174 032703 000001 2$: BIT #1,R3 ;LOADING THIS BLOCK?
1696 002200 001415 BEQ 5$ ;NO...TRY NEXT
1697 002202 010400 MOV R4,R0 ;ELSE AC BLK # TO PARAM REG
1698 002204 ACBLK ; & SET THE AC BLK #
002204 004737 001140' JSR PC,ACBLK1 ;SWITCH TO AC BLOCK (R0)
1700 002210 PUSH R5 ;SAV R5
002210 010546 MOV R5,-(SP)
1701 002212 PUSH CACEA ;10 DATA ADR IN 11 MEM TO STK
002212 013746 002456' MOV CACEA,-(SP)
1702 002216 PUSH (R5) ;AC LD MSK TO STK
002216 011546 MOV (R5),-(SP)
1703 002220 010605 MOV SP,R5 ;PT TO ARGS WITH R5
1704 002222 004737 002272' JSR PC,ACLOAD ;LD THE SELD AC BLK
1705 002226 032626 BIT (SP)+,(SP)+ ;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
1706 002230 POP R5 ;RESTORE R5
002230 012605 MOV (SP)+,R5
1707 002232 005725 TST (R5)+ ;SKIP OUR CALLERS PARAM THAT WE JUST USED
1715 002234 005204 5$: INC R4 ;BUMP AC BLK #
1716 002236 006203 ASR R3 ;ANY BLKS LEFT TO LD?
1717 002240 001355 BNE 2$ ;YES...GO DO IT
1718 002242 POP <R4,R3> ;RSTR REGS
002242 012604 MOV (SP)+,R4
002244 012603 MOV (SP)+,R3
1719 002246 000207 RTS PC ;DONE
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 127
NEW AC LOAD ROUTINES
1723 .REM %
1724 ACLOAD IS A SUBROUTINE WHICH PERFORMS A "RANDOM" LOAD OF THE ACS IN THE
1725 CURRENT BLOCK. WHICH ACS ARE LOADED DEPENDS ON THE MASK: BIT0=1 SAYS TO LOAD
1726 AC0, ETC. ACS ARE LOADED FROM 0 TO 17 FROM CONTIGUOS WORDS IN 11 MEMORY. ENTRY
1727 AT ACSCAT ALLOWS A LIST OF ADDRESSES IN CASE THE WORDS ARE SCATTERED IN 11 MEM.
1728 IF ANY OF THE 4 "UNUSED" BITS OF A 10 WORD ARE NOT ZERO, THE DEPOSIT IS
1729 DEFERED UNTIL LATER. A LIST OF DEFERED DEPOSITS IS CONSTRUCTED. NOTE THAT IF
1730 ANY WORDS ARE PROCESSED IN THIS MANNER THEN YOU MUST INIT "DLNXT" TO POINT TO
1731 "DFRLST" PRIOR TO LOADING ANY AC BLOCKS.
1732 %
1733
1734 002250 012737 177777 002452' LDANOW: MOV #-1,NODFRL ;SET NO-DEFER-LOAD FLAG
1735 002256 000413 BR ACLDC2 ;GO DO IT (WATCH OUT FOR LINKAGE)
1736 002260 ACSCAT: PUSH <R1,R2> ;SAV REGS
002260 010146 MOV R1,-(SP)
002262 010246 MOV R2,-(SP)
1737 002264 012501 MOV (R5)+,R1 ;GET MASK
1738 002266 005002 CLR R2 ;INDICATE SCATTERED LOAD WORDS
1739 002270 000404 BR ACLDCM ;GO TO COMMON ROUTINE
1740 002272 ACLOAD: PUSH <R1,R2> ;SAVE REGS
002272 010146 MOV R1,-(SP)
002274 010246 MOV R2,-(SP)
1741 002276 012501 MOV (R5)+,R1 ;GET MASK
1742 002300 012502 MOV (R5)+,R2 ;ADR OF LOAD STRING TO R2
1743 002302 005037 002452' ACLDCM: CLR NODFRL ;SET DEFER LOAD MODE
1744 002306 005037 002454' ACLDC2: CLR CACN ;SET KL10 ADR=AC0, CLR C-BIT
1745 002312 DFXCTT STRCLK ;MAKE SURE CLOCK IS RUNNING
002312 012700 000001 MOV #STRCLK,R0 ; ** FUNCTION CODE TO R0
002316 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1747 002322 000241 CLC
1748 002324 006001 1$: ROR R1 ;MOV MASK BIT TO C-BIT
1749 002326 103040 BCC 6$ ;BR IF THIS AC IS NOT TO BE LOADED
1750 002330 005702 TST R2 ;CONTIG OR SCAT WDS?
1751 002332 001002 BNE 2$ ;BR IF CONTIG
1752 002334 012500 MOV (R5)+,R0 ;GET NXT 11 ADR OF 10 WD
1753 002336 000403 BR 3$
1754 002340 010200 2$: MOV R2,R0 ;GET NXT ADR
1755 002342 062702 000005 ADD #5,R2 ;FOR NEXT TIME
1756 002346 005737 002452' 3$: TST NODFRL ;IN NO-DEFER MODE
1757 002352 001007 BNE 4$ ;YES...GO LD RIGHT NOW
1758 002354 132760 000360 000004 BITB #360,4(R0) ;ANY "UNUSED" BIT SET?
1759 002362 001403 BEQ 4$ ;NO...LD RIGHT NOW
1760 002364 004737 002460' JSR PC,DEFERL ;ELSE DEFER DEPOSIT UNTIL LATER
1762 002370 000417 BR 6$ ;DO NXT
1763 002372 010037 002456' 4$: MOV R0,CACEA ;SAV 11 ADR OF CURRENT AC CONTENTS
1775 002376 013700 002454' 5$: MOV CACN,R0 ;AC # TO PARAM REG
1776 002402 PUSH R1
002402 010146 MOV R1,-(SP)
1777 002404 013701 002456' MOV CACEA,R1 ;11 ADR TO PARAM REG
1778 002410 DPOST
002410 004737 000000G JSR PC,$DPOST ; ** EXECUTE THE DEPOSIT
1779 002414 POP R1
002414 012601 MOV (SP)+,R1
1787 002416 103004 BCC 6$ ;BR IF NO ERROR ON DEPOSIT
1788 002420 FATAL APL ;AC PROGRAM LOAD ERROR
002420 004737 000000G JSR PC,$FATAL ; ** FATAL "APL" ERROR
002424 101 120 114 .ASCIZ %APL%
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 127-1
NEW AC LOAD ROUTINES
1790 002430 005237 002454' 6$: INC CACN ;NXT KL ADR
1791 002434 005701 TST R1 ;ANY MORE AC'S TO BE LOADED?
1792 002436 003332 BGT 1$ ;BR IF YES
1793 002440 010237 002456' MOV R2,CACEA ;MOV UPDATED ADR TO CACEA FOR MABL
1794 002444 POP <R2,R1> ;RESTORE REGS
002444 012602 MOV (SP)+,R2
002446 012601 MOV (SP)+,R1
1795 002450 000207 RTS PC
1797
1798 002452 000000 NODFRL: 0 ;DON'T DEFER LOADS IF NOT 0
1800 002454 177777 CACN: ...... ;CURRENT AC NUMBER
1801 002456 177777 CACEA: ...... ;11 ADR OF 10 WD TO LOAD
1803
1804
1805 ;-----DEFERL IS A QUICK & DIRTY SUBROUTINE TO QUEUE A DEFERED LOAD REQUEST.
1806 ; IT PLACES THE REQUEST IN DFRLST. LOADING IS DEFERED IN THIS MANNER TO CUT
1807 ; DOWN ON THE OVERHEAD OF RELOADING ENTIRE AC PROGRAMS JUST TO FIX A FEW WORDS.
1808
1809 000025 NDEFER=21. ;MAX # OF DEFERED LOADS ALLOWED
1810
1811 002460 DEFERL: PUSH R1
002460 010146 MOV R1,-(SP)
1825 002462 013701 002510' MOV DLNXT,R1 ;GET NXT AVAIL ELEMENT ADR
1832 002466 113721 001316' MOVB CACBLK,(R1)+ ;AC BLK # TO LIST
1833 002472 113721 002454' MOVB CACN,(R1)+ ;AC NUMBER TO LIST
1834 002476 010021 MOV R0,(R1)+ ;11 ADR OF 10 WD TO LIST
1835 002500 010137 002510' MOV R1,DLNXT ;UPDATE NXT AVAIL ADR
1836 002504 POP R1
002504 012601 MOV (SP)+,R1
1837 002506 000207 RTS PC
1839
1840 002510 177777 DLNXT: ...... ;ADR OF NXT AVAILABLE LST ELEMENT
1841 002512 DFRLST: .BLKW 2*NDEFER ;DEFERED LOAD LIST
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 128
NEW AC LOAD ROUTINES
1844 .REM %
1845 LDEFER IS THE SUBROUTINE WHICH ACTUALLY DOES THE DEFERRED AC LOADING.
1846 IT HAS NO PARAMS AS IT ASSUMES THAT THE DEFERRED LOAD LIST IS ALREADY SET UP.
1847 NOTE THAT R0 MUST HAVE THE CORRECT ADDRESS IN IT IF IT IS TO BE USED FOR
1848 RELATIVE INDIRECT LOADING.
1849 %
1850
1851 002636 LDEFER: SAV.5
002636 004737 003362' JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
1852 002642 010004 MOV R0,R4 ;SAV R0 IN CASE OF INDIRECT REL TO R0
1853 002644 012701 000006 MOV #6,R1 ;START W/ AC BLK 6
1854 002650 012737 177777 001316' MOV #-1,CACBLK ;SAY THAT NO BLK IS SELECTED
1855 002656 012702 002512' 1$: MOV #DFRLST,R2 ;INI DEFER LIST PTR
1856 002662 020237 002510' 2$: CMP R2,DLNXT ;DONE WITH SCAN THRU LST YET?
1857 002666 001455 BEQ 14$ ;YES...GO TRY NXT BLK
1862 002670 122201 3$: CMPB (R2)+,R1 ;ARE WE IN THE RIGHT BLK?
1863 002672 001403 BEQ 4$ ;YES...GO LD WD
1864 002674 062702 000003 ADD #3,R2 ;ELSE GO TO NXT LST ELEMENT
1865 002700 000770 BR 2$
1866 002702 020137 001316' 4$: CMP R1,CACBLK ;IS THIS BLK SELD?
1867 002706 001403 BEQ 5$ ;YES
1868 002710 010100 MOV R1,R0 ;ELSE SELECT IT
1869 002712 ACBLK
002712 004737 001140' JSR PC,ACBLK1 ;SWITCH TO AC BLOCK (R0)
1870 002716 112205 5$: MOVB (R2)+,R5 ;AC BLK # TO R5 FOR LATER
1871 002720 012203 MOV (R2)+,R3 ;WD ADR TO R3
1872 002722 116300 000004 MOVB 4(R3),R0 ;GET DEFERRING CODE
1873 002726 004737 000072' JSR PC,ASR0.3 ;MAK IT INTO WD NDX
1874 002732 042700 177741 BIC #177741,R0
1881 002736 000170 002740' 7$: JMP @8$-2(R0) ;GO TO THE RIGHT PLACE
1882 002742 003000' 002772' 002750' 8$: .WORD 11$,10$,9$ ;RELOAD, SBDIAG WD, INDIRECT
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 129
NEW AC LOAD ROUTINES
1884
1885 ;-----HERE FOR INDIRECT LOAD
1886 002750 005203 9$: INC R3 ;R3 PTS TO PSEUDO-WD..GET ADR OF REAL WD
1887 002752 042703 000001 BIC #1,R3 ; (EVEN ADR OF ADR)
1888 002756 011303 MOV (R3),R3 ;REAL ADR TO R3
1889 002760 020327 003000 CMP R3,#3000 ;IN DIAG CODE?
1890 002764 103005 BHIS 11$ ;YES...GO LOAD IT
1891 002766 060403 ADD R4,R3 ;ELSE ASSUME IS RELATIVE TO CALLER'S R0
1892 002770 000403 BR 11$
1893 ;-----HERE TO TAKE CARE OF CONTR # IN SBDIAG WORD.
1894 002772 010300 10$: MOV R3,R0 ;WD ADR TO PARAM REG
1895 002774 CNTSD ;CONTR # TO SBDIAG WD
002774 004737 000734' JSR PC,CNTSD1 ;CONTR # TO SBDIAG WD, IN R0
1896 ;; BR 11$ ;GO LOAD WD
1897 ;-----HERE FINALLY TO LOAD THE WORD
1899 003000 11$: PUSH R1
003000 010146 MOV R1,-(SP)
1900 003002 010301 MOV R3,R1 ;11 ADR TO PARAM REG
1901 003004 010500 MOV R5,R0 ;AC # TO PARAM REG
1902 003006 DPOST ;LOAD THE AC
003006 004737 000000G JSR PC,$DPOST ; ** EXECUTE THE DEPOSIT
1903 003012 POP R1
003012 012601 MOV (SP)+,R1
1911 003014 004737 003316' JSR PC,CHKED
1912 003020 000720 BR 2$ ;GO TRY NXT DEFER LST ELEMENT
1913 ;-----LIST SCANNED. GO TRY NEXT AC BLOCK.
1914 003022 005301 14$: DEC R1
1915 003024 002314 BGE 1$ ;BR IF MORE TO DO
1916 003026 R5.PC ;RESTORE REGS & RETURN
003026 000137 003420' JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 132
RESET SUBROUTINES
1964 .SBTTL RESET SUBROUTINES
1965
1966 .REM %
1967 RESET IS A SUBROUTINE TO DO MINIMAL RESETS IN AS LITTLE TIME AS
1968 POSSIBLE. IT CAN DO A BASIC MASTER RESET AND AN SBUS RESET. DONT USE IT FOR
1969 CHANNELS, ETC. NOTE THAT IT IS NOT SUFFICIENT FOR A MACHINE JUST POWERED ON.
1970 BIT15 OF THE PARAMETER WORD SAYS TO DO AN SBUS RESET. BIT7 SAYS TO RESET THE
1971 CPU. IF NEITHER IS GIVEN A CPU RESET IS DONE.
1972 %
1973
1974 003032 .RESET: SAV.4
003032 004737 003362' JSR PC,SAV.5 ;SAVE R1-R5
1975 003036 012501 MOV (R5)+,R1 ;GET RESET PARAM
1980 003040 DFXCTT STPCLK ;STOP CLK & CLR RUNNING FLAG
003040 012700 000000 MOV #STPCLK,R0 ; ** FUNCTION CODE TO R0
003044 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1982 003050 005701 TST R1 ;DO WE DO SBUS RESET?
1983 003052 002023 BGE 1$ ;NO...ASSUME CPU RESET BY DEFAULT
1984 003054 DFWRTT KLB24,76 ;ELSE SET SBUS RESET BIT
003054 012700 000076 MOV #76,R0 ; ** FUNCTION WRITE CODE TO R0
003060 010146 MOV R1,-(SP) ; ** SAVE R1
003062 012701 003254' MOV #KLB24,R1 ; ** BUFFER POINTER TO R1
003066 004737 000000G JSR PC,$DDFWR ; ** EXECUTE THE FUNCTION WRITE
003072 012601 MOV (SP)+,R1 ; ** RESTORE R1
1986 003074 105701 TSTB R1 ;CPU?
1987 003076 100411 BMI 1$ ;YES...GO DO IT
1989 003100 DFXCTT STRCLK ;START THE CLK
003100 012700 000001 MOV #STRCLK,R0 ; ** FUNCTION CODE TO R0
003104 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1990 003110 DFXCTT STPCLK ;STOP THE CLK
003110 012700 000000 MOV #STPCLK,R0 ; ** FUNCTION CODE TO R0
003114 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1991 003120 000437 BR 2$ ;CLR SBUS RESET & RESTART CLK
1992 003122 005000 1$: CLR R0 ;CRAM ADR = 0
1993 003124 WWADR ;FULL MRESET & SET CRAM ADR
003124 010046 MOV R0,-(SP) ; ** SAVE R0
003126 004737 000000G JSR PC,$KLMR ; ** RESET THE KL10
003132 012600 MOV (SP)+,R0 ; ** RESTORE R0
003134 004737 000000G JSR PC,$ACRAM ; ** LOAD THE CRAM ADDRESS REGISTER
1994 003140 005037 001316' CLR CACBLK ;CLR SFTWR BLK #
1995 003144 DFXCTT SSCLK ;1 TICK TO MAKE THINGS WORK
003144 012700 000002 MOV #SSCLK,R0 ; ** FUNCTION CODE TO R0
003150 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
1996 003154 DFWRTT CLKFLG,46 ;LD CLK STOP ENABLES
003154 012700 000046 MOV #46,R0 ; ** FUNCTION WRITE CODE TO R0
003160 010146 MOV R1,-(SP) ; ** SAVE R1
003162 012701 003270' MOV #CLKFLG,R1 ; ** BUFFER POINTER TO R1
003166 004737 000000G JSR PC,$DDFWR ; ** EXECUTE THE FUNCTION WRITE
003172 012601 MOV (SP)+,R1 ; ** RESTORE R1
1997 003174 DFWRTT KLB35,47 ;LD CLK STOP ENABLE
003174 012700 000047 MOV #47,R0 ; ** FUNCTION WRITE CODE TO R0
003200 010146 MOV R1,-(SP) ; ** SAVE R1
003202 012701 003262' MOV #KLB35,R1 ; ** BUFFER POINTER TO R1
003206 004737 000000G JSR PC,$DDFWR ; ** EXECUTE THE FUNCTION WRITE
003212 012601 MOV (SP)+,R1 ; ** RESTORE R1
2015 003214 005701 TST R1 ;SBUS RESET?
2016 003216 002010 BGE 3$ ;NO
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 132-1
RESET SUBROUTINES
2017 003220 2$: DFWRTT ZERO..,76 ;OFF THE SBUS RESET BIT
003220 012700 000076 MOV #76,R0 ; ** FUNCTION WRITE CODE TO R0
003224 010146 MOV R1,-(SP) ; ** SAVE R1
003226 012701 001120' MOV #ZERO..,R1 ; ** BUFFER POINTER TO R1
003232 004737 000000G JSR PC,$DDFWR ; ** EXECUTE THE FUNCTION WRITE
003236 012601 MOV (SP)+,R1 ; ** RESTORE R1
2019 003240 3$: DFXCTT STRCLK ;TURN CLK ON & SET CLK ON FLAG
003240 012700 000001 MOV #STRCLK,R0 ; ** FUNCTION CODE TO R0
003244 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
2021 003250 R4.R5 ;RETURN
003250 000137 003420' JMP R5.PC ;RESTORE R1-R5 & DO AN RTS PC
2022
2023 003254 004000 000000 000000 KLB24: 4000,0,0 ;USED TO SET SBUS RESET
2024 003262 000001 000000 000000 KLB35: 1,0,0 ;SETS CLK STOP ENABLE
2025
2026 ;CLKFLG VALUES: BIT0=FS PROBE, BIT1=DRAM PAR, BIT2=CRAM PAR, BIT3=FM PAR
2027 003270 000007 000000 000000 CLKFLG: BIT0+BIT1+BIT2,0,0 ;DETERMINES THE VARIOUS ENABLES
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 133
RESET SUBROUTINES
2031 .REM %
2032 ;;**********************************************************************
2033 ;; THIS EXECUTE ROUTINE WILL EVENTUALLY BE REPLACED BY A ROUTINE
2034 ;; WHICH DOES AN EXECUTE WITHOUT ALL THE OVERHEAD OF A KLDCP EXCT. FOR
2035 ;; THE MOMENT WE ARE USING EXCT.
2036 ;;**********************************************************************
2037 %
2038
2039 003276 012500 QXCT: MOV (R5)+,R0 ;GET ADR OF INSTRUCTION
2040 003300 QXCT1: EXCT ;DO IT
003300 004737 000000G JSR PC,$EXCT ; ** EXECUTE IT
2041 003304 103003 BCC 1$ ;BR IF OK
2042 003306 PUSH R5 ;ELSE SET UP TRUE EXECUTE ADR
003306 010546 MOV R5,-(SP)
2043 003310 000137 003336' JMP CHKX+4 ;AND FORCE ERROR
2044 003314 000207 1$: RTS PC ;RETURN IF OK
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 134
RESET SUBROUTINES
2060 .REM %
2061 SUBROUTINE TO MAKE SURE THAT EXAM/DEPOSIT, EXECUTE, OR PROGRAM RUN
2062 FINISHED UP CORRECTLY. CHECKS C-BIT. RETURNS IF CLEAR, ELSE DOES ERROR WITH
2063 MESSAGE DEPENDING ON ENTRY POINT (CHKED, CHKX, OR CHKP).
2064 %
2065 003316 103401 CHKED: BCS 1$ ;BR IF ANY ERROR(S)
2066 003320 000207 RTS PC ;ELSE RETURN TO CALLER
2068 003322 1$: FATAL EDE ;EXAMINE/DEPOSIT ERROR
003322 004737 000000G JSR PC,$FATAL ; ** FATAL "EDE" ERROR
003326 105 104 105 .ASCIZ %EDE%
2073 003332 103401 CHKX: BCS 1$ ;BR IF ERR BIT SET
2074 003334 000207 RTS PC ;ELSE RETURN
2076 003336 1$: FATAL IEE ;INSTRUCTION EXECUTE ERROR
003336 004737 000000G JSR PC,$FATAL ; ** FATAL "IEE" ERROR
003342 111 105 105 .ASCIZ %IEE%
2081 003346 103401 CHKP: BCS 1$ ;BR IF CARRY SET...ERR
2082 003350 000207 RTS PC ;ELSE RET
2084 003352 1$: FATAL PDH ;PROGRAM DIDN'T HALT
003352 004737 000000G JSR PC,$FATAL ; ** FATAL "PDH" ERROR
003356 120 104 110 .ASCIZ %PDH%
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 135
REGISTER SAVE & RESTORE ROUTINES
2108 .SBTTL REGISTER SAVE & RESTORE ROUTINES
2109
2144 003362 SAV.5: PUSH <R5,R4,R3,R2,R1> ;R1 IS LATEST ON STK
003362 010546 MOV R5,-(SP)
003364 010446 MOV R4,-(SP)
003366 010346 MOV R3,-(SP)
003370 010246 MOV R2,-(SP)
003372 010146 MOV R1,-(SP)
2145 003374 000176 000012 JMP @10.(SP) ;RET TO CALLER
2157 003400 012666 000012 RST.5: MOV (SP)+,10.(SP) ;RET ADR TO RIGHT PLACE
2159 003404 POP <R1,R2,R3,R4,R5> ;RESTORE REGS
003404 012601 MOV (SP)+,R1
003406 012602 MOV (SP)+,R2
003410 012603 MOV (SP)+,R3
003412 012604 MOV (SP)+,R4
003414 012605 MOV (SP)+,R5
2160 003416 000207 RTS PC ;RET TO CALLER
2172 003420 012666 000010 R5.PC: MOV (SP)+,8.(SP) ;JUNK WD OFF STK
2174 003424 POP <R2,R3,R4,R5,R1> ;RESTORE REGS
003424 012602 MOV (SP)+,R2
003426 012603 MOV (SP)+,R3
003430 012604 MOV (SP)+,R4
003432 012605 MOV (SP)+,R5
003434 012601 MOV (SP)+,R1
2175 003436 000207 RTS PC ;RET TO CALLER'S CALLER
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 136
REGISTER SAVE & RESTORE ROUTINES
2178 .REM %
2179 SETPAR MAKES THE PARITY OF R0 ODD BY CONDITIONALLY CHANGING A SINGLE BIT
2180 (DEFINED BY THE TRAILING PARAM) FROM A 0 TO A 1.
2181 %
2182 003440 SETPAR: PUSH R0 ;SAV DATA
003440 010046 MOV R0,-(SP)
2183 003442 CALPAR ;CALCULATE PARITY
003442 004737 003462' JSR PC,CALPAR ;CALC PARITY OF VALUE IN R0
2184 003446 005700 TST R0 ;TEST PARITY VALUE
2185 003450 001001 BNE 1$ ;BR IF PAR ALREADY ODD
2186 003452 051516 BIS (R5),(SP) ;ELSE SET PAR BIT
2187 003454 005725 1$: TST (R5)+ ;BYPASS PARAM
2188 003456 POP R0 ;R0 NOW HAS PAR CORRECTLY SET
003456 012600 MOV (SP)+,R0
2189 003460 000207 RTS PC
2193
2194 .REM %
2195 CALPAR CALCULATES THE PARITY OF THE WORD IN R0. THE RESULT IS RETURNED
2196 AS BIT0 IN R0. A 1 MEANS PARITY WAS ODD, 0 MEANS PARITY EVEN.
2197 %
2198 003462 CALPAR: PUSH R1
003462 010146 MOV R1,-(SP)
2199 003464 010001 MOV R0,R1 ;CALC 8 BIT PAR
2200 003466 000301 SWAB R1
2201 003470 EXOR R1,R0 ;IN R0
003470 010146 MOV R1,-(SP)
003472 040016 BIC R0,(SP)
003474 040100 BIC R1,R0
003476 052600 BIS (SP)+,R0
2202 003500 010001 MOV R0,R1 ;CALC 4 BIT PAR
2203 003502 004737 000070' JSR PC,ASR0.4
2204 003506 EXOR R0,R1 ;IN R1
003506 010046 MOV R0,-(SP)
003510 040116 BIC R1,(SP)
003512 040001 BIC R0,R1
003514 052601 BIS (SP)+,R1
2205 003516 042701 177760 BIC #177760,R1 ;GET PAR FROM TABLE
2206 003522 116100 006472' MOVB BITCNT(R1),R0
2207 003526 POP R1
003526 012601 MOV (SP)+,R1
2208 003530 042700 177776 BIC #-2,R0 ;ISOLATE PARITY VALUE & SET CONDITIONS
2209 003534 000207 RTS PC
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 152
MASTER CONFIGURE & RESOURCE DETERMINATION SEQUENCES
24 .SBTTL MASTER CONFIGURE & RESOURCE DETERMINATION SEQUENCES
25
26 .REM %
27 SUBROUTINE CONFIG IS THE ONLY ABSOLUTELY NECESSARY SUBROUTINE TO CALL TO
28 CONFIGURE THE MEMORY. USES ANY EXISTING DATA. REPORTS NOTHING. RESETS NO
29 CONTROL VARIABLES EXCEPT TO SET CONFIGURED BYTE.
30 %
31
32 003536 CONFIG:
33 003536 FITMEM ;MAKE SURE FITMEM DONE
003536 004737 000000G JSR PC,FITMEM ;FIT MEMORY PIECES TOGETHER
34 003542 RESET SBUS+CPU ;RESET ALL CONTR BEFORE CONFIGURING
003542 004537 003550' JSR R5,64$ ;SAV R5, PT TO & SKIP SBUS+CPU LIST
003546 100200 .WORD SBUS+CPU
003550 004737 003032' 64$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
003554 012605 MOV (SP)+,R5
35 003556 CONDMA ;CONF DMA20
003556 004737 000000G JSR PC,CONDMA ;PHYSICALLY CONFIGURE DMA20
36 003562 CONMAB ;CONF MA20/MB20 CONTRS
003562 004737 000000G JSR PC,CONMAB ;PHYSICALLY CONFIGURE MA20 & MB20 CONTROLLERS
37 003566 CONMX ;CONFIGURE MX20
003566 004737 000000G JSR PC,CONMX ;PHYSICALLY CONFIGURE MX20S BASED ON LOGICAL
38 003572 CONMOS ;CONF MOS CONTRS
003572 004737 000000G JSR PC,CONMOS ;PHYSICALLY CONFIGURE MF20 CONTROLLERS
39 003576 112737 000001 005761' MOVB #1,CDONE ;MARK CONFIGURATION DONE
40 003604 105037 005765' CLRB FMRECN ;FORCE RECONFIGURE MOS DONE
41 003610 000207 RTS PC
44
45
46
47 .REM %
48 RESDET IS THE MASTER RESOURCE DETERMINATION SUBROUTINE. THIS SUBROUTINE
49 TRACKS THE INTERLOCK VARIABLE RDDONE.
50 %
51
52 003612 105737 005753' RESDET: TSTB RDDONE ;HAVE WE ALREADY DONE THIS?
53 003616 001016 BNE 1$ ;YES...DON'T DO IT AGAIN
54 003620 004737 005734' JSR PC,CLRRDD ;MARK RESDET, FITMEM, & CONFIG UNDONE
55 003624 CONDET ;FIND WHICH CONTRS WE HAVE
003624 004737 000000G JSR PC,CONDET ;DETERMINE CONTROLLER PRESENSE & FUNCTION 01 DATA
56 003630 DMADET ;SIZE XMEM (IF ANY) & GET INTERLEAVE
003630 004737 000000G JSR PC,DMADET ;DET DMA20 (EXTERNAL MEM) RESPONSE & INTERLEAVE
57 003634 MABDET ;DO MA20/MB20 MASKED-START-ADR STUFF
003634 004737 000000G JSR PC,MABDET ;DETERMINE MA20/MB20 MASKED START ADDRESSES & LENGTHS
58 003640 MX20MD ;DO RESOURCE DETERMINATON FOR MX20
003640 004737 000000G JSR PC,MX20MD ;DET MX20 RESOURCES AND ACQUIRE IF POSSIBLE
59 003644 MOSDET ;DO MOS CONTR STUFF (IF ANY)
003644 004737 003656' JSR PC,MOSDET ;DETERMINE AND/OR SET MOS CONTROLLER DATA
60 003650 105237 005753' INCB RDDONE ;MARK RESOURCE DETERMINATION DONE
61 003654 000207 1$: RTS PC
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 153
MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL
65 .SBTTL MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL
66
67 .REM %
68
69 MOSDET IS THE SUBROUTINE WHICH DETERMINES MF20 RESOURCES WHICH ARE TO BE
70 USED IN CONFIGURING THE MEMORY. ALONG THE WAY IT MAKES SURE THAT ALL MF20
71 CONTROLLERS ARE PROPERLY INITIALIZED. MF20S CAN BE "PRECONFIGURED", THAT IS,
72 THEY ARE ALREADY IN SOFTWARE STATE (SS) 2 OR 3. MF20S IN SS 2/3 ARE ADDRESS
73 RESPONSE CHECKED TO MAKE SURE THEY DON'T CONFLICT WITH EACH OTHER OR WITH THE
74 DMA20 (IF THERE IS ONE). IF THERE IS CONFLICT THEN ALL MF20S ARE DROPPED TO SS
75 1. OTHERWISE THE SS 2/3 MF20S ADDRESS RESPONSE IS LEFT ALONE.
76
77 NOTE THAT THIS RESPONSE CHECKING IS DONE PRIMARILY SO THAT WE CAN FIND
78 OUT IF A POWER FAIL HAS LEFT MF20 MEMORY INTACT OR NOT. AN OUTAGE OF ABOUT 30
79 SECONDS COULD WIPE OUT SOME BUT NOT ALL MF20S. THIS IS THE SITUATION WE ARE
80 REALLY WATCHING OUT FOR.
81
82 TWO CONTROL FLAGS HAVE AN EFFECT ON MOSDET. IF FMRECN IS SET THEN SS
83 2/3 MF20S ARE FORCED BACK TO SS 1. FMRECN WILL BE SET BY MOSDET IF THE RESPONSE
84 CONFLICT CHECK FAILS, OR SOMETHING HAPPENS TO AN SS 2/3 MF20 (WHICH IMPLIES THE
85 CONFIG IS BLOWN ANYHOW). KEEPBB CAUSES MOSDET NOT TO DECONFIGURE ANY BAD BLOCKS
86 FOUND IN AN SS 2/3 MF20. KEEPBB IS CLEARED IF FMRECN IS SET BY MOSDET.
87
88 MOSDET IS A CONTROL SUBROUTINE. ALL THE REAL WORK IS DONE BY MOSDET'S
89 LACKIES. WHEN AN INCONSISTENCY OCCURS MOSDET DROPS THE OFFENDING MF20 BACK TO
90 THE APPROPRIATE SS AND STARTS OVER. IF THERE IS A HARDWARE ERROR OTHER THAN
91 FINDING A BAD MF20 BLOCK, THEN THE OFFENDING CONTROLLER IS DELETED AND MOSDET
92 RESTARTS.
93
94 THIS IS THE SECOND VERSION OF MOSDET. THIS VERSION DIFFERS FROM THE
95 FIRST IN THAT IT UNDERSTANDS THE OVERLAY STRUCTURE OF MOSDET WHEN RUN IN THE
96 "KLI" ENVIRONEMENT. MOSDET IS SCATTERED BETWEEN THE "MBROOT", "MSSCTL", AND
97 "DBEOVL" OVERLAY MODULES. AS MUCH OF IT AS POSSIBLE (AS IS CONSISTENT WITH
98 MINIMIZING OVERLAY THRASHING) IS IN MSSCTL TO MINIMIZE THE SIZE OF MBROOT.
99 %
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 154
MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL
101
102 003656 MOSDET: SAV.5 ;SAV REGS
003656 004737 003362' JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
103 003662 105037 005767' CLRB CCFAIL ;CONFIG CONSISTENCY OK SO FAR
104 003666 004737 000000G MDRTRY: JSR PC,MDINIT ;CALC CPU-CONN MAP, INI HDWR & SFTWR, CPY DMARSP
105
106 ;-----TOP OF MOSDET STATE CONTROL LOOP.
107 003672 112737 177777 006000' MOVB #-1,DBESFL ;IND DBE SCAN MSG NOT PRINTED YET
108 003700 012737 000004 005776' MOV #4,MFCTLV ;INI STATE CONTROL VARIABLE
109 003706 012737 000007 001000' TOCTLP: MOV #MNMFCN-1,TSTCON ;INI CONTR NUMBER
110
111 ;-----TOP OF MF20 SELECT LOOP.
112 003714 005237 001000' TOMFLP: INC TSTCON
113 003720 013700 001000' MOV TSTCON,R0 ;GET NEXT CONTR NUM
114 003724 126027 006004' 000005 CMPB TYPNUM(R0),#MFCTN ;IS THIS CONTR AN MF20?
115 003732 001007 BNE BOLPS ;NO.. TRY NEXT
116 003734 013702 005776' MOV MFCTLV,R2 ;GET STATE CONTROL
117 003740 000172 003744' JMP @1$(R2) ;JUMP ACCORDING TO STATE
118 003744 004370' 000000G 004202' 1$: .WORD MDST0B,MDST0,MDST1
119
120 ;-----BOTTOM OF MF20 SELECT AND MOSDET STATE CONTROL LOOPS
121 003752 023727 001000' 000017 BOLPS: CMP TSTCON,#MXMFCN ;CONTR # OUT OF RANGE?
122 003760 103755 BLO TOMFLP ;YES, GO TO NEXT STATE
123 003762 162737 000002 005776' SUB #2,MFCTLV ;NEXT STATE
124 003770 002346 BGE TOCTLP ;LOOP IF MORE TO DO
125 003772 105037 005764' CLRB DBEFRC ;RESET FORCE DBE SCAN MODE
126 003776 112737 177777 005756' MOVB #-1,MF20RD ;MARK MOSDET DONE
127 004004 000241 CLC ;SAY NO ERRORS
128 004006 R5.PC ;ELSE RESTORE REGS AND RETURN
004006 000137 003420' JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
129
131
132 ;-----SECTION TO HANDLE SOME RANDOM HARDWARE ERROR. DELETE THE OFFENDING MF20
133 ; AND FORCE RECONFIGURE IF IT WAS AT SS 2/3, OTHERWISE JUST CONTINUE.
134 004012 013701 001000' MDHDER: MOV TSTCON,R1 ;GET CONTR #
135 004016 116146 006044' MOVB CONTI(R1),-(SP) ;SAVE CONTR'S SS
136 004022 SMFSS 0 ;SET CONTR TO SS0 SO IT DOESN'T VANISH FOREVER
004022 004737 005166' JSR PC,SMFSS0 ;GO SET SOFTWARE STATE TO 0
137 004026 105061 006004' CLRB TYPNUM(R1) ;MAKE CONTR VANISH
138 004032 004737 006734' JSR PC,BAF ;DEL ALL OF CONTR'S BLOCKS TOO
139 004036 012702 000006 MOV #12./2,R2
140 004042 005020 1$: CLR (R0)+
141 004044 077202 SOB R2,1$
142 004046 PMSG <\MF20 #> ;INFORM OPR CONTR HAS GOING AWAY
004046 012700 004060' MOV #64$,R0 ; ** MESSAGE POINTER TO R0
004052 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
004056 000404 BR 65$ ; ** BRANCH AROUND TEXT
004060 134 115 106 64$: .ASCIZ %\MF20 #%
143 004070 010100 MOV R1,R0
144 004072 PNTOCS
004072 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
145 004076 PMSG < HDWR ERROR. CONTROLLER DELETED.\>
004076 012700 004110' MOV #66$,R0 ; ** MESSAGE POINTER TO R0
004102 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
004106 000422 BR 67$ ; ** BRANCH AROUND TEXT
004110 040 110 104 66$: .ASCIZ % HDWR ERROR. CONTROLLER DELETED.\%
146 004154 105326 DECB (SP)+ ;WERE WE PROCESSING SS 2/3 WHEN ERR OCCURED?
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 154-1
MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL
147 004156 003675 BLE BOLPS ;NO...MEARLY CONTINUE...EXISTING CONF SHD B OK
148 004160 112737 177777 005767' MOVB #-1,CCFAIL ;MARK EXISTING CONFIG AS INCONSISTENT
149
150 ;-----HERE IF WE MUST FORCE RECONFIGURATION.
151 004166 112737 177777 005765' MDRECN: MOVB #-1,FMRECN ;SET FLAG WHICH FORCES RECONFIGURATION
152 004174 105037 005766' CLRB KEEPBB ;CANT KEEP BAD BLKS AFTER A RECONF
153 004200 000632 BR MDRTRY ;RESTART SCAN ALL OVER AGAIN
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 155
MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL
155
156 ;-----SECTION FOR SS 1 MF20S. BASICALLY WE PERFORM A FEW SIMPLE CHECKS AND
157 ; SOME MINOR INITIALIZATION.
158 004202 105737 005764' MDST1: TSTB DBEFRC ;ARE WE FORCING COMPLETE REINIT OF MF20S?
159 004206 001402 BEQ 1$ ;NO
160 004210 SMFSS 0 ;ELSE FORCE THIS CONTR BACK TO SS 0
004210 004737 005166' JSR PC,SMFSS0 ;GO SET SOFTWARE STATE TO 0
161 004214 126027 006044' 000001 1$: CMPB CONTI(R0),#1 ;TEST THE SFTWR STATE OF THIS MF20
162 004222 002653 BLT BOLPS ;DO NXT CONTR IF THIS ONE AT SS0
163 004224 001402 BEQ 2$ ;BR IF CONTR AT SS1.. DO IT NOW
164 004226 000137 000000G JMP MDST23 ;ELSE DO SS 2/3 PROCESS
165 004232 004737 000000G 2$: JSR PC,QRESET ;DO A QUICKY RESET OF MF20 CONTROLLER
166 004236 105737 005756' TSTB MF20RD ;WAS MOSDET DONE BEFORE?
167 004242 001006 BNE MDST1C ;YES... DON'T SET UP PROM DATA AGAIN
168 004244 MDST1B: RDPROM ;GET ARRAY BOARD PROM DATA
004244 004737 000000G JSR PC,RDPROM ;READ MOS PROM DATA FOR A CONTROLLER
169 004250 103660 BCS MDHDER ;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
170 004252 DPD ;DIGEST THAT DATA
004252 004737 000000G JSR PC,DPD ;DIGEST PROM DATA FOR A MOS CONTROLLER
171 004256 103655 BCS MDHDER ;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
172 004260 MDST1C: SMFSS 0 ;FRC CONTR TO SS0 IN CASE OF ERROR
004260 004737 005166' JSR PC,SMFSS0 ;GO SET SOFTWARE STATE TO 0
173 004264 GETBBD ;GET BAD BLOCK MAP
004264 004737 000000G JSR PC,GETBBD ;MOV MF20 BAD BLK DATA FROM BITSUB RAM TO R0
174 004270 103630 BCS BOLPS ;FORMAT IS BAD...MUST REDO DBE SCAN...OH WELL
175 ; (SS NOW AT 0.. CONTR WILL BE HANDLED LATER)
176 004272 010001 MDST1A: MOV R0,R1 ;PUT BAD BLK MAP INTO R1
177 004274 004737 006734' JSR PC,BAF ;PTR TO CONTR SIZE BYTES INTO R0
178 004300 000241 CLC
179 004302 006001 1$: ROR R1 ;LOOP TO DEL ALL BAD BLOCKS FROM MF20 DATA AREA
180 004304 103003 BCC 2$ ; (BR IF BLOCK OK)
181 004306 105010 CLRB (R0) ; (ELSE MAKE BLK VANISH)
182 004310 105060 000140 CLRB MSAMSZ(R0)
183 004314 005200 2$: INC R0
184 004316 005701 TST R1
185 004320 001370 BNE 1$ ; (LP TIL NO BAD BLKS LEFT)
186 004322 005000 CLR R0 ;RESET "CONNECTED" MAP
187 004324 SETCMP
004324 004737 005340' JSR PC,SETCMP ;MOV MF20 CPU CONNECT DATA FROM R0 TO BITSUB RAM
188 004330 FSDMSK LADRRM ;SET SBDIAG CHK MASK
004330 012700 006523' MOV #LADRRM,R0 ;PT TO MASK
004334 004737 000314' JSR PC,FSDM1 ;LD SBDIAG CHK MASK PTD TO BY R0
189 004340 SETRAM 0003,1417,7412 ;TELL MF NOT TO RESP TO ANY ADR
004340 004537 004350' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
004344 012 377 060
004347 003 000
004350 004737 001002' 64$: JSR PC,SETRAM ;SET CTL RAM LOC N TO 0 TO GIVEN VALUE
004354 012605 MOV (SP)+,R5
190 004356 103615 BCS MDHDER ;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
191 004360 SMFSS 1 ;SET SS 1
004360 004737 005162' JSR PC,SMFSS1 ;GO SET SOFTWARE STATE TO 1
192 004364 000137 003752' JBOLPS: JMP BOLPS ;GO ON TO NXT MF20
194
195 ;-----SECTION FOR HANDLING DBE SCAN OF SS0 CONTROLLER. ALL REQUIRED INIT WAS
196 ; COMPLETED IN THE PREVIOUS STATE OF THIS ROUTINE.
197 004370 126027 006044' 000001 MDST0B: CMPB CONTI(R0),#1 ;TEST THE SFTWR STATE OF THIS MF20
198 004376 002372 BGE JBOLPS ;BR IF MF NOT AT SS0.. GO TO NXT CONTR
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 155-1
MF20 RESOURCE DETERMINATION AND INITIALIZATION CONTROL
199 004400 DBESCN ;DO DOUBLE BIT ERROR SCAN & ATTEMPT REPAIR
004400 004737 000000G JSR PC,DBESCN ;SCAN FOR & FIX MF20 DBE, RET BAD BLK MAP IN R0
200 004404 103403 BCS 1$ ;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
201 004406 SETBBD ;BAD (UNREPAIRABLE) BLK MAP FROM R0 TO MF20
004406 004737 005262' JSR PC,SETBBD ;MOV MF20 BAD BLK DATA FROM R0 TO BITSUB RAM
202 004412 103327 BCC MDST1A ;BR ON NO HDWR ERR...BRING MF20 UP TO SS 1
203 004414 000137 004012' 1$: JMP MDHDER ;ELSE HDWR ERR.. KILL CONTR
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 156
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
207 .SBTTL DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
208
209 .REM %
210 MMRESP MAPS THE RESPNSE OF AN ALREADY CONFIGURED MOS CONTROLLER. IT
211 THEN CHECKS THIS MAP AGAINST RSPMAP, THE MASTER RESPONSE MAP. IF THERE IS NO
212 CONFLICT IT ORS THE CONTROLLER'S RESPONSE INTO RSPMAP AND DOES A C-BIT CLEAR
213 RETURN. OTHERWISE IT DOES A C-BIT SET ERROR RETURN.
214 %
215
216 004420 MMRESP: SAV.5
004420 004737 003362' JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
217 004424 CNTSD 14$ ;CONTR # TO SBDIAG WD
004424 012700 004777' MOV #14$,R0 ;PT TO SBDIAG WD
004430 004737 000734' JSR PC,CNTSD1 ;CONTR # TO SBDIAG WD (ADDR IN R0)
218 004434 MRESET ;RESET MACHINE
004434 004737 000000G JSR PC,$KLMR ; ** MASTER RESET THE KL10
219 004440 DFXCTT STRCLK
004440 012700 000001 MOV #STRCLK,R0 ; ** FUNCTION CODE TO R0
004444 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
221 004450 LOADAC MMRPM,13$ ;LOAD AC PROGRAM
004450 004537 004460' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
004454 077740 .WORD MMRPM ;LOAD MASK
004456 004722' .WORD 13$ ;PDP11 MEM ADR(S)
004460 004737 002272' 64$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
004464 012605 MOV (SP)+,R5
222 004466 012702 006224' MOV #DBUF,R2 ;ADR TO EXAMT PL
223 004472 012701 000010 MOV #8.,R1 ;LP CNT
224 004476 RUN AC7 ;START PROGRAM
004476 004537 004504' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
004502 000007 .WORD AC7 ;STARTING ADR
004504 004737 001370' 65$: JSR PC,RUNPRG ;RUN PRGM 1 TIC USING GIVEN PC
004510 012605 MOV (SP)+,R5
225 004512 000402 BR 2$ ;GET FIRST RESULTS
226 004514 1$: CONTIN ;RUN PRGM AGAIN
004514 004737 001424' JSR PC,CONTIN ;RUN & CONTINUE
228 004520 2$: PUSH R1
004520 010146 MOV R1,-(SP)
229 004522 010201 MOV R2,R1
230 004524 EXAMT AC15
004524 012700 000015 MOV #AC15,R0 ; ** ADDRESS POINTER TO R0
004530 004737 000000G JSR PC,$EXAMT ; ** EXECUTE THE KL10 EXAMINE
231 004534 POP R1
004534 012601 MOV (SP)+,R1
237 004536 004737 003316' JSR PC,CHKED
238 004542 062702 000004 ADD #4,R2 ;NXT TABLE ADR
239 004546 077116 SOB R1,1$ ;LP TIL DONE
240 ;-----DATA IS SET UP. NOW CHECK FOR OVERLAP AND, IF NONE, .OR. DATA INTO
241 ; MASTER TABLE.
242 004550 012701 007322' MOV #RSPMAP,R1 ;MASTER RESPONSE TABLE PTR
243 004554 012702 006224' MOV #DBUF,R2 ;CONTR RESP PTR
244 004560 000261 SEC ;FORCES C-BIT SET EXIT ON ERR
245 004562 032221 4$: BIT (R2)+,(R1)+ ;OVERLAP?
246 004564 001054 BNE 12$ ;YES...ERROR...C-BIT RET
247 004566 020227 006264' CMP R2,#DBUF+32. ;DONE?
248 004572 103773 BLO 4$ ;NO...CONTINUE
249 004574 054241 5$: BIS -(R2),-(R1) ;NO OVERLAP.. .OR. RESP INTO MASTER
250 004576 005112 COM (R2) ;CREATE ANTI-HOLE MAP WD FOR SCAN
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 156-1
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
251 004600 020227 006224' CMP R2,#DBUF
252 004604 101373 BHI 5$ ;LP TIL DONE
253 ;-----CLEAR BLOCK SIZE TABLE.
254 004606 004737 006734' JSR PC,BAF ;GET ADR OF BLK LST FOR THIS CONTR
255 004612 012701 000006 MOV #12./2,R1 ;CLR LP CNT
256 004616 005020 6$: CLR (R0)+
257 004620 077102 SOB R1,6$
258 004622 PUSH R0 ;FOR LOGIC CHK LATER
004622 010046 MOV R0,-(SP)
259 004624 162700 000014 SUB #12.,R0 ;RESET LST PTR
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 157
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
261 ;-----SCAN DBUF AND CREATE PSEUDO BLOCK SIZE & START ADDRESSES FOR THE FIT
262 ; REPORTER (REPFIT).
263 004630 005005 CLR R5 ;INI FOR SCAN (R2 ALREADY = #DBUF)
264 004632 012703 000001 MOV #1,R3
265 004636 7$: SCAN ;SCAN FOR A (.NOT.HOLE)
004636 004737 005004' JSR PC,SCAN ;SCAN 16K MEMORY BIT MAP
266 004642 103416 BCS 10$ ;NO MORE RESP FOUND
267 004644 110460 000140 8$: MOVB R4,MSAMSZ(R0) ;RESP ST ADR TO TABLE
268 004650 010401 MOV R4,R1 ;CREATE -RESP SIZE
269 004652 160501 SUB R5,R1
270 004654 020127 177601 CMP R1,#-127. ;TOO BIG TO HANDLE?
271 004660 002005 BGE 9$ ;NO...SAVE SIZE & LOOK FOR NXT RESP
272 004662 112720 177601 MOVB #-127.,(R0)+ ;SAVE A SIZE OF 127 (*16K)
273 004666 062704 000177 ADD #127.,R4 ;BUMP START ADR
274 004672 000764 BR 8$ ;GO CREATE ANOTHER ENTRY
275 004674 110120 9$: MOVB R1,(R0)+ ;(SMALL ENUF) SIZE TO TABLE
276 004676 000757 BR 7$ ;SEARCH FOR NEXT RESP GROUP
277 004700 020026 10$: CMP R0,(SP)+ ;TOO FRACTURED TO SAV INFO FOR REPORT?
278 004702 101404 BLOS 11$ ;NO
279 004704 FATAL CTF ;CONTR TOO FRACTURED...HAVE CLOBBERED TABLES
004704 004737 000000G JSR PC,$FATAL ; ** FATAL "CTF" ERROR
004710 103 124 106 .ASCIZ %CTF%
280 004714 000241 11$: CLC ;INDICATE ALL OK
281 004716 12$: R5.PC
004716 000137 003420' JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
282
283
284 ;-----AC PROGRAM FOR MMRESP. READS ADDRESS RESPONSE RAM LOCATIONS AND HALTS
285 ; AFTER 32 ITERATIONS TO ALLOW THE PDP-11 TO GET THE RESPONSE BITS IT HAS.
286 004722 BLK10 5
287 004722 13$: I10 TRNN,16,,17400 ;5--SKIP IF HAVEN'T DONE 32 CYCLES YET
004722 000 037 000
004725 067 014
288 004727 I10 JRST,4,,7 ;6--ELSE LET 11 HAVE SOME TIME
004727 007 000 000
004732 142 005
289 004734 IO10 SBDIAG,,,16 ;7-- <START> GET RESP RAM WD (FUNC 12)
004734 016 000 000
004737 005 016
290 004741 I10 LSH,15,,777777 ;10-MAKE ROOM FOR NEW BIT
004741 377 377 203
004744 026 005
291 004746 I10 TLNN,17,,10 ;11-SKIP IF DESELECT BIT IS SET..NO RESP
004746 010 000 200
004751 077 014
292 004753 I10 TLO,15,,20000 ;12-ELSE MARK 16K AS RESPONDING
004753 000 040 200
004756 216 015
293 004760 I10 ADDI,16,,400 ;13-NXT RAM ADR
004760 000 001 000
004763 317 005
294 004765 I10 JRST,,,5 ;14-LOOP
004765 005 000 000
004770 140 005
295 004772 WD36 0000,0000,0000 ;15-RESPONSE MASK CREATED HERE
004772 000 000 000
004775 000 000
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 157-1
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
296 004777 14$: WD36 0000,0000,0012 ;16-BLANK FUNC 12
004777 012 000 000
005002 000 000
297 ;17-SBDIAG WD FROM MEM
298 005004 ENDBLK MMRPM
299 .EVEN
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 158
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
303 .REM %
304 SCAN IS A LITTLE SUBROUTINE USED ONLY BY THE MEMORY BOOT. IT IS VERY
305 NON-STANDARD AND MUST BE USED WITH CAUTION. ON FIRST ENTRY: R2=SCAN TABLE
306 ADDRESS, R3=1, R4=ANYTHING, R5=0. R0 & R1 ARE NEVER AFFECTED BY SCAN. ON EXIT
307 R4=HOLE START, R5=HOLE END. C-BIT SET RETURN IF NO HOLE FOUND. R2, R3, & R5
308 MUST NOT BE ALTERED BY CALLER.
309 %
310
311 ;-----SCAN FOR HOLE BY SCANNING FOR 0 BIT.
312 005004 010504 SCAN: MOV R5,R4 ;OLD HOLE END ADR STARTS SEARCH
313 005006 020427 000400 1$: CMP R4,#400 ;OUT OF 4 MEG YET?
314 005012 001415 BEQ 3$ ;YEAH...SCAN DONE...EXIT C-BIT SET
315 005014 103404 BLO 2$ ;NO...
316 005016 FATAL SB4 ;DIE...BEYOND 4 MEG
005016 004737 000000G JSR PC,$FATAL ; ** FATAL "SB4" ERROR
005022 123 102 064 .ASCIZ %SB4%
317 005026 030312 2$: BIT R3,(R2) ;HOLE FOUND YET?
318 005030 001410 BEQ 4$ ;YES...GO FIND ITS END
319 005032 005204 INC R4 ;ELSE CONT SCAN THRU NXT 16K BLIVVIT
320 005034 006303 ASL R3
321 005036 103373 BCC 2$
322 005040 006103 ROL R3
323 005042 005722 TST (R2)+
324 005044 000760 BR 1$
325 005046 000261 3$: SEC ;C-BIT SET RETURN...NO HOLE FOUND
326 005050 000207 RTS PC
327 ;-----NOW FIND END OF HOLE BY SCANNING FOR A 1 BIT.
328 005052 010405 4$: MOV R4,R5 ;USE HOLE START ADR TO START SEARCH
329 005054 005205 5$: INC R5 ;GO TO NEXT 16K BLIVVIT
330 005056 006303 ASL R3
331 005060 103012 BCC 6$
332 005062 006103 ROL R3
333 005064 005722 TST (R2)+
334 005066 020527 000400 CMP R5,#400 ;UP TO 4 MEG YET?
335 005072 001407 BEQ 7$ ;YES...LAST HOLE
336 005074 103404 BLO 6$ ;NO
337 005076 FATAL FOE ;WE FELL OFF THE END OF THE WORLD
005076 004737 000000G JSR PC,$FATAL ; ** FATAL "FOE" ERROR
005102 106 117 105 .ASCIZ %FOE%
338 005106 030312 6$: BIT R3,(R2) ;END OF HOLE YET?
339 005110 001761 BEQ 5$ ;NO...TRY NXT 16K BLIVVIT
340 005112 000241 7$: CLC ;HOLE FOUND, BOUNDED BY (R4,R5)
341 005114 000207 RTS PC
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 159
DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
345 ;-----SUBROUTINE TO EXPAND AN ADDR/16K WORD TO WD36 FORMAT.
346 005116 000241 EXP16K: CLC ;CLEAR CARRY BIT TO AVOID TRASH
347 005120 PUSH R1
005120 010146 MOV R1,-(SP)
348 005122 012701 006371' MOV #REAPWD+5,R1
349 005126 105041 CLRB -(R1)
350 005130 105041 CLRB -(R1)
351 005132 006000 ROR R0 ;POSITION AND SET BITS 14-19
352 005134 006000 ROR R0
353 005136 110041 MOVB R0,-(R1)
354 005140 006000 ROR R0 ;BITS 20,21
355 005142 000300 SWAB R0
356 005144 110041 MOVB R0,-(R1)
357 005146 105041 CLRB -(R1)
358 005150 010100 MOV R1,R0 ;R0 POINTS TO "REAPWD" UPON RETURN
359 005152 POP R1
005152 012601 MOV (SP)+,R1
360 005154 000207 RTS PC ;RETURN
363
364
365 .REM %
366 SMFSS SETS BOTH THE HARDWARE AND SOFTWARE COPIES OF AN MF20'S SOFTWARE
367 STATE BITS. THE ARGUMENT OF THE MACRO DETERMINES THE RELATIVE ENTRY POINT FROM
368 WHICH THE DESIRED STATE IS CALCULATED. PUNTS ON AN ERROR. SS 3 CANNOT BE SET
369 BY THIS ROUTINE. CONTROLLER IS LEFT DISABLED.
370 %
371
372 005156 004037 005172' SMFSS2: JSR R0,SMFSS ;2
373 005162 004037 005172' SMFSS1: JSR R0,SMFSS ;1
374 005166 004037 005172' SMFSS0: JSR R0,SMFSS ;0
375 005172 162700 005172' SMFSS: SUB #SMFSS,R0
376 005176 005400 NEG R0
377 005200 006200 ASR R0
378 005202 006200 ASR R0 ;DESIRED STATE # NOW IN R0
379 005204 PUSH R0 ;SAVE STATE NUM WE ARE GOING TO
005204 010046 MOV R0,-(SP)
380 005206 052700 000004 BIS #4,R0 ;SET DISABLE BIT
381 005212 110037 005251' MOVB R0,1$+1 ;PUT SS BITS INTO FCN 1 WD
382 005216 FSDCHK 1$,2$ ;SET STATE AND CHECK...PUNT ON ERROR
005216 004537 005226' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
005222 005255' 005250' .WORD 2$,1$ ;MASK & FUNCTION ADDRESSES
005226 004737 000462' 64$: JSR PC,FSDCHK ;DO SBUS DIAG & CHECK
005232 012605 MOV (SP)+,R5
383 005234 013700 001000' MOV TSTCON,R0 ;GET CONTR #
384 005240 112660 006044' MOVB (SP)+,CONTI(R0) ;SET BIT IN MEM BOOT TOO
385 005244 POP R0 ;RESTORE R0
005244 012600 MOV (SP)+,R0
386 005246 000207 RTS PC ;RETURN
387
388 005250 1$: WD36 0000,0000,0201 ;SBDIAG WD TO BE FILLED IN WITH SS BITS
005250 201 000 000
005253 000 000
389 005255 2$: WD36 7605,0000,0201 ;CHK MASK FOR THE ABOVE
005255 201 000 000
005260 205 017
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 160
SUBROUTINES TO MOVE DATA TO UNUSED MF20 BITSUB LOCS
393 .SBTTL SUBROUTINES TO MOVE DATA TO UNUSED MF20 BITSUB LOCS
394
428
429 .REM %
430 SETBBD DOES ALL THE NECESSARY THINGS TO SET THE BAD BLOCK MAP DATA FOR
431 AN MF20. R0 IS PRESERVED. C-BIT IS SET UPON ANY KIND OF ERROR.
432 %
433
434 005262 SETBBD: PUSH R0 ;SAVE MAP OF BAD BLOCKS
005262 010046 MOV R0,-(SP)
435 005264 SBSRL 774 ;DATA TO LO ORD LOC
005264 010546 MOV R5,-(SP)
005266 012746 077407 MOV #774*64.+7,-(SP)
005272 010605 MOV SP,R5 ;PT TO ARGS WITH R5
005274 004737 005500' JSR PC,SBSRL ;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
005300 012605 MOV (SP)+,R5 ;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
005302 012605 MOV (SP)+,R5 ;RESTORE R5
436 005304 103413 BCS 1$ ;BR ON ERR
437 005306 011600 MOV (SP),R0 ;GET BAK MAP AGAIN
438 005310 004737 000064' JSR PC,ASR0.6 ;POSITION HIGHER 6 BAD BLOCK MAP BITS
439 005314 SBSRL 770 ;DATA TO HI ORD LOC
005314 010546 MOV R5,-(SP)
005316 012746 077007 MOV #770*64.+7,-(SP)
005322 010605 MOV SP,R5 ;PT TO ARGS WITH R5
005324 004737 005500' JSR PC,SBSRL ;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
005330 012605 MOV (SP)+,R5 ;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
005332 012605 MOV (SP)+,R5 ;RESTORE R5
440 005334 1$: POP R0 ;RESTORE R0
005334 012600 MOV (SP)+,R0
441 005336 000207 RTS PC ;RETURN...C-BIT SET ON ERROR
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 161
SUBROUTINES TO MOVE DATA TO UNUSED MF20 BITSUB LOCS
486
487 .REM %
488 SETCMP DOES ALL THE NECESSARY THINGS TO SET THE CONNECTED MAP DATA FOR
489 THE APPROPRIATE CPU. NOTE THAT IT ONLY DOES ONE CONTROLLER, THOUGH. R0 IS
490 PRESERVED. C-BIT IS SET UPON ANY KIND OF ERROR.
491 %
493
494 ; ***** HANDLES ONLY CPU "A" AT THE MOMENT. *****
495
496 005340 SETCMP: PUSH R0 ;SAVE MAP OF CONTRS CONN TO THIS CPU
005340 010046 MOV R0,-(SP)
497 005342 006300 ASL R0 ;POSITION DATA FOR LOWER 4 CONTRS
498 005344 042700 177741 BIC #177741,R0 ;SHUT OFF OTHER CONTR BITS
499 005350 SBSRL 764 ;DATA TO CPU "A" LO ORD LOC
005350 010546 MOV R5,-(SP)
005352 012746 076407 MOV #764*64.+7,-(SP)
005356 010605 MOV SP,R5 ;PT TO ARGS WITH R5
005360 004737 005500' JSR PC,SBSRL ;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
005364 012605 MOV (SP)+,R5 ;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
005366 012605 MOV (SP)+,R5 ;RESTORE R5
500 005370 103441 BCS 1$ ;BR ON ERR
501 005372 011600 MOV (SP),R0 ;GET BAK MAP AGAIN
502 005374 004737 000072' JSR PC,ASR0.3 ;POSITION & ISO HIGHER 4 CONTR MAP BITS
503 005400 042700 177741 BIC #177741,R0
504 005404 SBSRL 760 ;DATA TO CPU "A" HI ORD LOC
005404 010546 MOV R5,-(SP)
005406 012746 076007 MOV #760*64.+7,-(SP)
005412 010605 MOV SP,R5 ;PT TO ARGS WITH R5
005414 004737 005500' JSR PC,SBSRL ;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
005420 012605 MOV (SP)+,R5 ;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
005422 012605 MOV (SP)+,R5 ;RESTORE R5
505 005424 103423 BCS 1$ ;BR ON ERR
506 005426 005000 CLR R0 ;ZERO CPU "B" LOCATIONS
507 005430 SBSRL 754
005430 010546 MOV R5,-(SP)
005432 012746 075407 MOV #754*64.+7,-(SP)
005436 010605 MOV SP,R5 ;PT TO ARGS WITH R5
005440 004737 005500' JSR PC,SBSRL ;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
005444 012605 MOV (SP)+,R5 ;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
005446 012605 MOV (SP)+,R5 ;RESTORE R5
508 005450 103411 BCS 1$
509 005452 005000 CLR R0
510 005454 SBSRL 750
005454 010546 MOV R5,-(SP)
005456 012746 075007 MOV #750*64.+7,-(SP)
005462 010605 MOV SP,R5 ;PT TO ARGS WITH R5
005464 004737 005500' JSR PC,SBSRL ;MOV RH 6 BITS OF R0 TO BITSUB RAM LOCATION
005470 012605 MOV (SP)+,R5 ;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
005472 012605 MOV (SP)+,R5 ;RESTORE R5
511 005474 1$: POP R0 ;RESTORE R0
005474 012600 MOV (SP)+,R0
512 005476 000207 RTS PC ;RETURN...C-BIT SET ON ERROR
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 162
SUBROUTINES TO MOVE DATA TO UNUSED MF20 BITSUB LOCS
537
538 .REM %
539 SBSRL MOVE THE RH 6 BITS OF R0 TO THE SPECIFIED BITSUB RAM LOCATION,
540 FIRST JUSTIFIING IT FOR BITS 7-12, SHUTTING OFF BIT 13, AND PUTTING BAD PARITY
541 INTO BIT 14. ECHO CHECK FAILURE RESULTS IN A C-BIT SET RETURN. R0 IS DESTROYED.
542 %
543
544 005500 042700 177700 SBSRL: BIC #177700,R0 ;OFF ALL BUT RH 6 BITS
545 005504 000300 SWAB R0 ;POSITION BITS
546 005506 006200 ASR R0
547 005510 052700 000020 BIS #20,R0 ;SET LD EN BIT BEFORE SETTING PAR BIT
548 005514 SETPAR 40 ;CALC BAD PAR & SET PAR BIT ACCORDINGLY
005514 004537 005522' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
005520 000040 .WORD 40
005522 004737 003440' 64$: JSR PC,SETPAR ;SET PARITY BIT IN R0 USING 40
005526 012605 MOV (SP)+,R5
549 005530 012537 006364' MOV (R5)+,REAPWD ;SET UP FCN 7 WD TO DO THE LOAD
550 005534 010037 006366' MOV R0,REAPWD+2
551 005540 FSDMSK SDMSBR ;SET FSD MSK FOR FCN 7 LOAD
005540 012700 006516' MOV #SDMSBR,R0 ;PT TO MASK
005544 004737 000314' JSR PC,FSDM1 ;LD SBDIAG CHK MASK PTD TO BY R0
552 005550 FSD REAPWD ;DO FCN 7 AND CHECK...C-BIT SET ON ERR
005550 004537 005556' JSR R5,65$ ;SAV R5, PT TO & SKIP LIST
005554 006364' .WORD REAPWD ;SBDIAG WORD ADDRESS
005556 004737 000376' 65$: JSR PC,FSD ;DO FAST SBUS DIAG
005562 012605 MOV (SP)+,R5
553 005564 000207 RTS PC ;RETURN
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 163
INITIALIZE ALL MEMORY BOOT DATA AREAS
558 .SBTTL INITIALIZE ALL MEMORY BOOT DATA AREAS
559
560 .REM %
561 SUBROUTINES TO CLEAR THIS, THAT, OR THE OTHER TABLE SET.
562 %
563
564 005566 012700 000420 MBINI: MOV #MBDCML,R0 ;GET LEN TO CLEAR
565 005572 105060 005751' 1$: CLRB MBDCMS-1(R0) ;CLEAR A BYTE
566 005576 077003 SOB R0,1$ ;LP TIL ALL CLEARED
567 005600 012737 177777 006120' MOV #-1,GAPDMY ;FIX GAPDMY WHICH WAS CLEARED
568 005606 012700 000014 MOV #MBDIFL,R0 ;GET LEN TO CLEAR
569 005612 112760 177777 006527' 2$: MOVB #-1,MBDIFS-1(R0) ;CLEAR A BYTE
570 005620 077004 SOB R0,2$ ;LP TIL ALL CLEARED
571 005622 004737 005704' JSR PC,INIMAB ;ZAP MA20/MB20 TABLES
572 005626 004737 005670' JSR PC,INIDMA ;ZAP EXTERNAL MEMORY DAT
573 005632 004737 005654' JSR PC,INIMDF ;ZAP MOS TABLES
574 005636 004737 005720' JSR PC,INIMX ;ZAP MX20 DATA
575 005642 LDFSDP ;LOAD AND START FAST SBUS DIAG PROGRAM
005642 004737 000170' JSR PC,LFSDP ;LOAD THE FAST SBUS DIAG PROGRAM
576 005646 105237 005752' INCB MBINID ;MARK MBINI DONE
577 005652 000207 RTS PC
578
580 005654 012700 000402 INIMDF: MOV #MBDMFL,R0 ;GET LEN TO CLEAR
581 005660 105060 006757' 1$: CLRB MBDMFS-1(R0) ;CLEAR A BYTE
582 005664 077003 SOB R0,1$ ;LP TIL ALL CLEARED
583 005666 000422 BR CLRRDD ;FORCE RESDET UNDONE
584
587 005670 012700 000150 INIDMA: MOV #MBDDML,R0 ;GET LEN TO CLEAR
588 005674 105060 006563' 1$: CLRB MBDDMS-1(R0) ;CLEAR A BYTE
589 005700 077003 SOB R0,1$ ;LP TIL ALL CLEARED
590 005702 000414 BR CLRRDD ;FORCE RESDET UNDONE
591
594 005704 012700 000020 INIMAB: MOV #MBDABL,R0 ;GET LEN TO CLEAR
595 005710 105060 006543' 1$: CLRB MBDABS-1(R0) ;CLEAR A BYTE
596 005714 077003 SOB R0,1$ ;LP TIL ALL CLEARED
597 005716 000406 BR CLRRDD ;FORCE RESDET UNDONE
598
601 005720 012700 000002 INIMX: MOV #MBDMXL,R0 ;GET LEN TO CLEAR
602 005724 105060 007361' 1$: CLRB MBDMXS-1(R0) ;CLEAR A BYTE
603 005730 077003 SOB R0,1$ ;LP TIL ALL CLEARED
604 005732 000400 BR CLRRDD ;FORCE RESDET UNDONE
605
608 ;-----THIS LITTLE SUBROUTINE MARKS RESDET, FITMEM, AND CONFIG AS UNDONE. NOTE
609 ; THAT MARKING RESDET UNDONE DOESN'T UNDO ALL ITS PIECES. AS AN EXAMPLE: IF
610 ; RESDET WAS DONE WITH INTMOD=2, BUT WE WANT TO REDO IT WITH INTMOD=0, WE NEED
611 ; ONLY CLR MABRD & DMARD IN ADDITION TO RUNNING THIS ROUTINE. MF20RD NEED NOT
612 ; BE CLEARED BECAUSE INTMOD HAS NO EFFECT THERE.
613
614 005734 105037 005753' CLRRDD: CLRB RDDONE ;MARK RESDET UNDONE
615 005740 105037 005760' CLRB FITTED ;MARK FITMEM UNDONE
616 005744 105037 005761' CLRB CDONE ;MARK CONFIG UNDONE
617 005750 000207 RTS PC
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 164
MEMORY BOOT DATA AREA
622 .SBTTL MEMORY BOOT DATA AREA
623
624 .REM %
625 CALL DOWN CHAIN CONTROL FLAGS. THESE FLAGS SAY THAT THE CORRESPONDING
626 MEMORY BOOT SUBROUTINE GROUP HAS BEEN DONE IF THEY ARE NOT 0 (INZ).
627 %
628
629 005752 MBDCMS: ;START OF BLOCK TO CLEAR
630
631 005752 000 MBINID: .BYTE 0 ;MBINI DONE INZ
632
633 005753 000 RDDONE: .BYTE 0 ;RESDET DONE INZ
634 005754 000 CONRD: .BYTE 0 ;CONDET DONE INZ
635 005755 000 DMARD: .BYTE 0 ;DMA20 RESDET DONE INZ
636 005756 000 MF20RD: .BYTE 0 ;MF20 RESDET DONE INZ
637 005757 000 MABRD: .BYTE 0 ;MA20/MB20 RESDET DONE INZ
638
639 005760 000 FITTED: .BYTE 0 ;FITMEM DONE INZ
640 005761 000 CDONE: .BYTE 0 ;CONFIG DONE INZ
641
642 .REM %
643 MEMORY BOOT OPERATION CONTROL FLAGS AND VARIABLES. THESE PIECES OF DATA
644 HAVE CONSIDERABLE EFFECT ON JUST HOW THE MEMORY BOOT WORKS. THEY ARE NOT ALL
645 RELATED TO ONE AND OTHER, BUT ARE ALL HERE JUST SO THAT THEY ARE IN ONE PLACE.
646 IF THE CONTROL PROGRAM IS TO SET UP ANY OF THESE IT SHOULD DO SO AFTER MBINI HAS
647 BEEN RUN.
648 %
649
650 005762 OCFVST: ;START OF OPERATION CONTROL FLAGS AND VARIABLES
651
652 005762 000 CONFGR: .BYTE 0 ;INZ, ASSIGN CONTROLLERS IN REVERSE ORDER, USE MF20
653 ;BLOCKS IN REVERSE ORDER, MA20/MB20 RQ ENABLES REVERSED
654 005763 000 INTMOD: .BYTE 0 ;INZ THEN IS INTERLEAVE LIMITER FOR MA20/MB20, AND FOR
655 ;DMA20 SELECTS A PERMISSABLE BUS MODE. 0 MEANS TO DO
656 ;WHAT IS "BEST"
657 005764 000 DBEFRC: .BYTE 0 ;FORCES ALL MF20 CONTROLLERS BACK TO SOFTWARE STATE 0
658 ;WHICH IN TURN WILL CAUSE COMPLETE REINITIALIZATION OF
659 ;ALL MF20S.
660 005765 000 FMRECN: .BYTE 0 ;FORCE MF20 ADDRESS RESPONSE RECONFIGURATION
661 005766 000 KEEPBB: .BYTE 0 ;KEEP BAD MF20 BLOCKS INZ. THIS SHOULD ONLY BE SET IF
662 ;MONITOR IS COMING UP WARM AND STILL KNOWS WHERE THE BAD
663 ;PAGES ARE. USE WITH CAUTION.
665 005767 000 CCFAIL: .BYTE 0 ;NOT 0 INDICATES MOS CONSISTENCY CHECK FAILED DUE,
666 ;MOST LIKELY, TO SOMETHING LIKE A PARITIAL POWER FAIL
671 005770 000 MX20M6: .BYTE 0 ;MX20 #6 DEFAULT MODE
672 005771 000 MX20M7: .BYTE 0 ;MX20 #7 DEFAULT MODE
673
674 000010 OCFVLN=.-OCFVST ;LENGTH OF OPERATION CTL FLAG & VARIABLE AREA
675 .EVEN
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 165
MEMORY BOOT DATA AREA
677 .REM %
678 DATA DETERMINED FROM THE HARDWARE AT RUN TIME AND PERTINENT TO THE
679 MEMORY BOOT PROCESS AS A WHOLE.
680 %
681
682 005772 000000 MODELB: .WORD 0 ;0 FOR KL10 MODEL A, 1 FOR KL10 MODEL B
683 005774 000000 CPUDSG: .WORD 0 ;CPU DESIGNATOR INZ, 1 FOR CPU "A", 2 FOR "B". SET TO
684 ;1 (A) FOR CPU WITH NO MX20.
685 005776 000000 MFCTLV: .WORD 0 ;MOSDET RUNTIME STATE CONTROL VARIABLE
686 006000 000 DBESFL: .BYTE 0 ; -1 IF DBE SCAN MESSAGE NOT PRINTED YET
687 006001 000 ILOST: .BYTE 0 ;INZ IT MEANS THAT WE DO NOT HAVE CONTROL OF THE MX20S.
688 ;FORCES CONFIG NOT TO CONFIGURE ANY MF20 OVER WHICH WE
689 ;DO NOT HAVE EXCLUSIVE CONTROL.
690 006002 000 MSTROS: .BYTE 0 ;WE HAVE MASTER OSCILLATOR INZ
691 .EVEN
692
693 006004 TYPNUM: .BLKB MAXCN+1 ;CONTROLLER TYPE FOR EACH CONTROLLER NUMBER
694 006044 CONTI: .BLKB MAXCN+1 ;CONTROLLER INFO FROM SBUS DIAG 1. FOR MA/MB20 IS
695 ;STORAGE MODULE PRESENSE BITS. FOR MF20 IS 2-BIT SS.
696
697 006104 000 MCOUNT: .BYTE 0 ;COUNT OF NON-NULL CONTROLLERS
698
699 006105 000 CNTCNT: .BYTE 0 ;COUNT OF NONEXISTENT MEM CONTRS
700 006106 000 MA20: .BYTE 0 ;TYPE 1 (MACTN)
701 006107 000 DMA20: .BYTE 0 ;TYPE 2 (DMACTN)
702 006110 000 MB20: .BYTE 0 ;TYPE 3 (MBCTN)
703 006111 000 MX20: .BYTE 0 ;TYPE 4 (MXCTN)
704 006112 000 MF20: .BYTE 0 ;TYPE 5 (MFCTN)
705 006113 000 SBSREC: .BYTE 0 ;TYPE 6 (BRCTN)
706 006114 000 UNDEF: .BYTE 0 ;TYPE 7 (UNDEFINED MEM CONTR TYPE, UNDCTN)
707 .EVEN
708
710 006116 000000 GAPCNT: .WORD 0 ;COUNT OF ENTRIES IN THE GAP TABLE
711 006120 177777 000000 GAPDMY: .WORD -1,0 ;DUMMY GAP TABLE ENTRY
712 006124 GAPTAB: .BLKW 32. ;UP TO 16 GAPS ALLOWED. FORMAT OF ENTRY IS
713 ;GAP-START-ADDRESS,GAP-SIZE.
714 ;ALL NUMBERS ARE IN /16K FORMAT.
715
717 .REM %
718 SCRATCH AREAS.
719 %
720
721 006224 DBUF: .BLKW 16.*3 ;SCRATCH...ENUF FOR 16 ACS
722 006364 000000 000000 000000 REAPWD: .WORD 0,0,0 ;GENERALLY USED FOR EDITING DATA
723
724 000420 MBDCML=.-MBDCMS ;LENGTH OF BLOCK TO 0
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 166
MEMORY BOOT DATA AREA
726
727 .REM %
728 CONSTANT DATA.
729 %
730
731 006372 040 040 103 TYPE0: .ASCIZ / CUST./ ;MEMORY TYPE TEXT
732 006402 040 040 040 TYPE1: .ASCIZ / MA20/
733 006412 040 040 104 TYPE2: .ASCIZ / DMA20/
734 006422 040 040 040 TYPE3: .ASCIZ / MB20/
735 006432 040 040 040 TYPE4: .ASCIZ / MX20/
736 006442 040 040 040 TYPE5: .ASCIZ / MF20/
737 006452 102 125 123 TYPE6: .ASCIZ /BUS REC/
738 006462 040 125 116 TYPE7: .ASCIZ / UNDEF./
739
740 006472 000 001 001 BITCNT: .BYTE 0,1,1,2,1,2,2,3,1,2,2,3,2,3,3,4 ;# ONE BITS TABLE
741
742 006512 020 010 004 BSIZE: .BYTE 16.,8.,4.,1. ;RAM SIZ CODE => BLOCK SIZE/16K TABLE
743
744 006516 SDMSBR: WD36 7600,0407,7407 ;MASK TO CHK MF20 SPARE BIT RAM LOAD
006516 007 177 020
006521 200 017
745 006523 LADRRM: WD36 7600,0417,7412 ;FSD MSK FOR MF20 ADRESP RAM LOAD
006523 012 377 020
006526 200 017
746 .EVEN
747
748
749 .REM %
750 INTERNAL FLAGS WHICH USED TO BE IN LINE AND WHICH ARE INITIALIZED TO -1
751 BY MBINI. THESE SHOULD NEVER BE TOUCHED BY THE CONTROL PROGRAM.
752 %
753
754 006530 MBDIFS: ;START OF BLOCK TO SET TO -1
755
756 006530 177777 MABCNI: -1
757 006532 177777 DDCADM: -1
758 006534 177777 XMAL: -1
759 006536 177777 D16KBN: -1
760 006540 177777 DPDSRS: -1
761 006542 177777 BTFLCN: -1
762
763 000014 MBDIFL=.-MBDIFS ;LENGTH OF BLOCK TO SET TO -1
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 167
MEMORY BOOT DATA AREA
766 .REM %
767 THE SIZE TABLES ARE THE MOST BASIC RESDET TABLES. IF A SIZE TABLE ENTRY
768 IS NON-ZERO IT MEANS THERE IS SOME SORT OF MEMORY THERE. ALL SIZES ARE IN TERMS
769 OF 16K. ALSO, THE HIGH ORDER BIT OF EACH ENTRY IS NOT PART OF THE SIZE. IF SET
770 IT MEANS THAT THIS MA20/MB20 CONTROLLER OR MF20 BLOCK HAS BEEN ALLOCATED BY
771 FITMEM. THIS BIT IS SET BY NEGATING THE + SIZE TO MAKE IT NEGATIVE. MORE
772 DETAILED DESCRIPTIONS ARE GIVEN WITH EACH TABLE BELOW.
773 THE ADDRESS START INFO CAN MEANS VARIOUS THINGS FOR VARIOUS CONTROLLER
774 TYPES AT DIFFERENT TIMES DURING THE MEMORY BOOT. AS WITH THE SIZE INFO THESE
775 TABLE ENTRIES ARE IN THE 16K FORMAT. SEE EACH INDIVIDUAL ADDRESS START GROUP
776 FOR A DESCRIPTION.
777 EACH CONTROLLER TYPE HAS ITS OWN PECULIAR DATA. THIS DATA IS DETAILED
778 BELOW IN THE INDIVIDUAL CONTROLLER TYPE DATA SECTIONS.
779
780
781 THE MA20/MB20 SIZE TABLE (MABSIZ) GIVES THE "ROTATED-CONTIGUOUS" SIZE OF
782 A GIVEN CONTROLLER OR CONTROLLER PAIR, IN WHICH CASE THE ODD CONTROLLER WILL
783 HAVE A SIZE OF 0 WHILE THE INTERLEAVE BYTE IS 2 OR 3 (4 WAY).
784 THE MA20/MB20 START ADDRESS BYTES (MABSA) HAVE TWO MEANINGS: AFTER
785 RESDET THEY ARE THE "ROTATED-CONTIGUOUS" START ADDRESS AND MUST BE USED IN
786 CONJUNCTION WITH THE MA20/MB20 ADDRESS-DONT-CARE MASKS (MABADC). AFTER FITMEM
787 THEY ARE THE REAL PYSICAL ADDRESSES TO BE USED. THESE ADDRESSES ARE SET
788 REGARDLESS OF PAIRING.
789 THE MA20/MB20 INTERLEAVE BYTES (MABINT) ARE DETERMINED BY MABDET AND
790 RELATE TO THE PRESENSE OF MODULES AND THE SETTING OF THE VARIABLE INTMOD.
791 %
792
793 006544 MBDABS: ;START OF INTERNAL CORE DATA TO CLEAR
794
796 006544 000 000 000 MABSIZ: .BYTE 0,0,0,0 ;ROTATED CONTIGUOUS SIZE/16K, CONTR 0-3
797 006550 000 000 000 MABSA: .BYTE 0,0,0,0 ;START ADRS FOR CONTRS 0-3
798 006554 000 000 000 MABADC: .BYTE 0,0,0,0 ;ADR-DONT-CARE MASKS FOR ABOVE
799 006560 000 000 000 MABINT: .BYTE 0,0,0,0 ;INTRLV BYTES FOR MA20/MB20
806
807 000020 MBDABL=.-MBDABS ;LEN OF DATA TO CLEAR
808
809 .REM %
810 THE DMA20 SIZE TABLE ALLOWS EXTERNAL MEMORY TO BE BROKEN UP INTO AS MANY
811 AS 16 PIECES. NOTE THAT THE "ALLOCATED" BIT IS NEVER SET AS THIS MEMORY IS
812 ALWAYS "ALLOCATED".
813 %
814
815 006564 MBDDMS: ;START OF DMA20 DATA TO CLEAR
816
817 006564 000000 DMA2TS: .WORD 0 ;# OF ENTRIES IN TABLE
818 006566 DMA20T: .BLKW 32. ;UP TO 16 PAIRS: START ADR, SIZE. FORMAT LIKE GAPTAB.
819 006666 000000 DMANXM: .WORD 0 ;DMA20 4-WORD NXM RESPONSE MASK: 7400 FOR 4 BUS MODE,
820 ;360 FOR 2 BUS, 17 FOR 1 BUS. 4 ZEROS = BUS MODE OK
821 006670 000 DMABM: .BYTE 0 ;DMA20 BUS MODE BYTE
822 006671 000 DMAFRC: .BYTE 0 ;IF NOT 0 THEN DMABM FORCED BY OPR AFTER ERROR
823 006672 000000 DMASIZ: .WORD 0 ;EXTERNAL MEMORY TOTAL SIZE (/16K OF COURSE)
824 006674 DMARMP: .BLKW 16. ;DMA20 ADDRESS RESPONSE MAP
825
826 000150 MBDDML=.-MBDDMS ;LEN OF DMA DATA TO CLEAR
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 168
MEMORY BOOT DATA AREA
830 .REM %
831 FUNCTION BAF CALCULATES THE ADDRESS OF THE SIZE BYTE FOR BLOCK 0 OF AN
832 MF20 CONTROLLER WHOSE NUMBER IS IN TSTCON. BAF0 EXPECTS THE NUMBER IN R0.
833 RAMSZ0, RAMSZ1, TIMNO0, AND TIMNO1 ARE TABLES FILLED WITH DIGESTED ARRAY
834 BOARD PROM DATA WHICH RELATES TO THE MOS RAM SIZE AND THE REQUIRED TIMING FILE
835 NUMBERS. THE INDIVIDUAL TABLE BYTES ARE REFERENCED BY CONTROLLER NUMBER (-10).
836 THE MF20 BLOCK SIZE BYTES (MDFSIZ) EXIST FOR EVERY POSSIBLE BLOCK (0-13)
837 FOR EACH POSSIBLE MF20 CONTROLLER (10-17). BLOCK 0 HAS DISPLACEMENT 0, ETC.
838 THE MF20 START ADDRESSES (MOSSA) ARE PHYSICAL ADDRESSES AND ARE VALID
839 AFTER FITMEM. THEY ARE GIVEN FOR EACH POSSIBLE BLOCK IN ALL POSSIBLE MF20S.
840 %
841
842 006734 013700 001000' BAF: MOV TSTCON,R0 ;GET CONTROLLER #
843 006740 006300 BAF0: ASL R0 ;MULT BY 12.
844 006742 006300 ASL R0
845 006744 PUSH R0
006744 010046 MOV R0,-(SP)
846 006746 006300 ASL R0
847 006750 062600 ADD (SP)+,R0
848 006752 062700 006662' ADD #MDFSIZ-<12.*MNMFCN>,R0 ;NOW PT TO BYTE LST
849 006756 000207 RTS PC
850
851 006760 MBDMFS: ;START OF MF20 DATA FOR CLEAR
852
853 006760 000000 XCONMP: .WORD 0 ;MOSDET PUTS "CPU-CONNECTED" MAP HERE
854
855 006762 RAMSZ0: .BLKB <MXMFCN-MNMFCN+1> ;RAM SIZE FOR TYPSEL=0 BY CONTR
856 006772 RAMSZ1: .BLKB <MXMFCN-MNMFCN+1> ;DITTO FOR TYPSEL=1
857 007002 TIMNO0: .BLKB <MXMFCN-MNMFCN+1> ;TIMING # FOR TYPSEL=0 BY CONTR
858 007012 TIMNO1: .BLKB <MXMFCN-MNMFCN+1> ;DITTO FOR TYPSEL=1
859
860 007022 MDFSIZ: .BLKB <MXMFCN-MNMFCN+1>*12. ;MOS BLOCK SIZE INFO, 12. BYTES PER MF20
861
863 007162 MOSSA: .BLKB <MXMFCN-MNMFCN+1>*12. ;MOS BLOCK START ADRS, 12. BYTES PER MF20
864
865 007322 RSPMAP: .BLKW 16. ;COMBINED ADDRESS RESPONSE OF ALL MF20S AND DMA20
866
868 000402 MBDMFL=.-MBDMFS ;LENGTH OF BLOCK TO CLEAR
869
875
876
878 .REM %
879 FUTURE DATA AREA FOR MX20 WILL GO HERE.
880 %
881
882 007362 MBDMXS: ;START OF BLOCK TO 0
883 007362 000000 .WORD 0 ;DUMMY
884 000002 MBDMXL=.-MBDMXS ;LENGTH OF BLOCK TO CLEAR
886 000001 .END
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 168-1
SYMBOL TABLE
AC = 000000 ANDCM = 000420 BLK0 = 000000 CLKTYP 001732R DMARD 005755RG
ACBLK 001136R ANDCMB= 000423 BLK1 = 000001 CLRMR = 000006 DMARMP 006674RG
ACBLK1 001140RG ANDCMI= 000421 BLK2 = 000002 CLRRDD 005734R DMASIZ 006672RG
ACC0 = 000001 ANDCMM= 000422 BLK3 = 000003 CNTCNT 006105RG DMA2TS 006564RG
ACC1 = 000002 ANDI = 000405 BLK4 = 000004 CNTSD 000732R DMA20 006107RG
ACC10 = 000400 ANDM = 000406 BLK5 = 000005 CNTSD1 000734RG DMA20T 006566RG
ACC11 = 001000 AOBJN = 000253 BLK6 = 000006 CONBUT= 000012 DMOVE = 000120
ACC12 = 002000 AOBJP = 000252 BLT = 000251 CONDET= ****** GX DMOVEM= 000124
ACC13 = 004000 AOJ = 000340 BMTAB 000120RG CONDMA= ****** GX DMOVN = 000121
ACC14 = 010000 AOJA = 000344 BOLPS 003752RG CONFGR 005762RG DMOVNM= 000125
ACC15 = 020000 AOJE = 000342 BRCLK = 000005 CONFIG 003536RG DMUL = 000116
ACC16 = 040000 AOJG = 000347 BRCTN = 000006 CONI = 000005 DPB = 000137
ACC17 = 100000 AOJGE = 000345 BRST 001734R CONMAB= ****** GX DPD = ****** GX
ACC2 = 000004 AOJL = 000341 BRST1 001736R CONMMR= 000001 DPDSRS 006540RG
ACC3 = 000010 AOJLE = 000343 BSIZE 006512RG CONMOS= ****** GX DREADY= 001000
ACC4 = 000020 AOJN = 000346 BSYCLR= 000400 CONMX = ****** GX DSUB = 000115
ACC5 = 000040 AOS = 000350 BTFLCN 006542RG CONO = 000004 D16KBN 006536RG
ACC6 = 000100 AOSA = 000354 BX = 000027 CONRD 005754RG EQV = 000444
ACC7 = 000200 AOSE = 000352 BYBITM 000160R CONSO = 000007 EQVB = 000447
ACLDCM 002302R AOSG = 000357 B10 = 177751 CONSZ = 000006 EQVI = 000445
ACLDC2 002306R AOSGE = 000355 B11 = 000014 CONTI 006044RG EQVM = 000446
ACLOAD 002272RG AOSL = 000351 CACBLK 001316R CONTIN 001424RG ERBIT 001134R
ACSCAT 002260RG AOSLE = 000353 CACEA 002456R CON2 001426R ERRSTP= 004000
AC0 = 000000 AOSN = 000356 CACN 002454R CON3 001446R ER$ABS= 001274RG
AC1 = 000001 APR = 000000 CAI = 000300 CPU = 000200 ER$APL= 002420RG
AC10 = 000010 APRID0 000057RG CAIA = 000304 CPUDSG 005774RG ER$CES= 001750RG
AC11 = 000011 ASH = 000240 CAIE = 000302 CURKW 001602R ER$CTF= 004704RG
AC12 = 000012 ASHC = 000244 CAIG = 000307 DADD = 000114 ER$EDE= 003322RG
AC13 = 000013 ASL0.3 000110RG CAIGE = 000305 DATAI = 000001 ER$FOE= 005076RG
AC14 = 000014 ASL0.4 000106RG CAIL = 000301 DATAO = 000003 ER$IEE= 003336RG
AC15 = 000015 ASL0.5 000104R CAILE = 000303 DBEFRC 005764RG ER$MFE= 000366RG
AC16 = 000016 ASL0.6 000102RG CAIN = 000306 DBESCN= ****** GX ER$PDH= 003352RG
AC17 = 000017 ASR0.3 000072RG CALPAR 003462RG DBESFL 006000RG ER$SB4= 005016RG
AC2 = 000002 ASR0.4 000070RG CAM = 000310 DBUF 006224RG EVENT 001760R
AC3 = 000003 ASR0.5 000066RG CAMA = 000314 DDCADM 006532RG EVENTA 001760R
AC4 = 000004 ASR0.6 000064RG CAME = 000312 DDIV = 000117 EVENT1 001762R
AC5 = 000005 BAF 006734RG CAMG = 000317 DEFERL 002460R EVENT2 002002R
AC6 = 000006 BAF0 006740RG CAMGE = 000315 DE$BUG= 070000 EVENT3 002072R
AC7 = 000007 BITCNT 006472RG CAML = 000311 DFAD = 000110 EXCH = 000250
ADD = 000270 BIT0 = 000001 CAMLE = 000313 DFDV = 000113 EXP16K 005116RG
ADDB = 000273 BIT1 = 000002 CAMN = 000316 DFMP = 000112 EXTEND= 000123
ADDI = 000271 BIT10 = 002000 CAS = 020000 DFN = 000131 F = 000001
ADDM = 000272 BIT11 = 004000 CCA = 000014 DFRLST 002512RG FAD = 000140
ADH = 000000 BIT12 = 010000 CCFAIL 005767RG DFSB = 000111 FADB = 000143
ADJSP = 000105 BIT13 = 020000 CDONE 005761RG DIAG = 000104 FADL = 000141
ADL = 000005 BIT14 = 040000 CECLK = 000004 DIPAG0 000052R FADM = 000142
ADR2ND= 002000 BIT15 = 100000 CHKED 003316RG DIV = 000234 FADR = 000144
AND = 000404 BIT2 = 000004 CHKP 003346R DIVB = 000237 FADRB = 000147
ANDB = 000407 BIT3 = 000010 CHKX 003332R DIVI = 000235 FADRI = 000145
ANDCA = 000410 BIT4 = 000020 CIAPR0 000040RG DIVM = 000236 FADRM = 000146
ANDCAB= 000413 BIT5 = 000040 CLEAR = 000400 DLNXT 002510RG FDV = 000170
ANDCAI= 000411 BIT6 = 000100 CLEARB= 000403 DMABM 006670RG FDVB = 000173
ANDCAM= 000412 BIT7 = 000200 CLEARI= 000401 DMACN = 000004 FDVL = 000171
ANDCB = 000440 BIT8 = 000400 CLEARM= 000402 DMACTN= 000002 FDVM = 000172
ANDCBB= 000443 BIT9 = 001000 CLKERC 001706R DMADET= ****** GX FDVR = 000174
ANDCBI= 000441 BLKI = 000000 CLKERR 001750R DMAFRC 006671RG FDVRB = 000177
ANDCBM= 000442 BLKO = 000002 CLKFLG 003270R DMANXM 006666RG FDVRI = 000175
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 168-2
SYMBOL TABLE
FDVRM = 000176 HLLZI = 000511 IDPB = 000136 MACTN = 000001 MOVMS = 000217
FIND 001604R HLLZM = 000512 ILDB = 000134 MAP = 000257 MOVN = 000210
FIND1 001604R HLLZS = 000513 ILOST 006001RG MAXCN = 000037 MOVNI = 000211
FIND2 001606R HLR = 000544 IMUL = 000220 MA20 006106RG MOVNM = 000212
FITMEM= ****** GX HLRE = 000574 IMULB = 000223 MBCTN = 000003 MOVNS = 000213
FITTED 005760RG HLREI = 000575 IMULI = 000221 MBDABL= 000020 MOVS = 000204
FIX = 000122 HLREM = 000576 IMULM = 000222 MBDABS 006544RG MOVSI = 000205
FIXR = 000126 HLRES = 000577 INIDMA 005670RG MBDATA= 000001 MOVSM = 000206
FLTR = 000127 HLRI = 000545 INIMAB 005704RG MBDCML= 000420 MOVSS = 000207
FMP = 000160 HLRM = 000546 INIMDF 005654RG MBDCMS 005752RG MSAMSZ= 000140
FMPB = 000163 HLRO = 000564 INIMX 005720R MBDDML= 000150 MSTROS 006002RG
FMPL = 000161 HLROI = 000565 INTMOD 005763RG MBDDMS 006564RG MUL = 000224
FMPM = 000162 HLROM = 000566 IOR = 000434 MBDIFL= 000014 MULB = 000227
FMPR = 000164 HLROS = 000567 IORB = 000437 MBDIFS 006530RG MULI = 000225
FMPRB = 000167 HLRS = 000547 IORI = 000435 MBDMFL= 000402 MULM = 000226
FMPRI = 000165 HLRZ = 000554 IORM = 000436 MBDMFS 006760RG MXBRCN= 000037
FMPRM = 000166 HLRZI = 000555 JBOLPS 004364R MBDMXL= 000002 MXCTN = 000004
FMRECN 005765RG HLRZM = 000556 JFCL = 000255 MBDMXS 007362RG MXMFCN= 000017
FSB = 000150 HLRZS = 000557 JFFO = 000243 MBINI 005566RG MXMXCN= 000007
FSBB = 000153 HRL = 000504 JRA = 000267 MBINID 005752RG MXM.CN= 000003
FSBL = 000151 HRLE = 000534 JRST = 000254 MBROOT= 177777 G MX20 006111RG
FSBM = 000152 HRLEI = 000535 JSA = 000266 MB20 006110RG MX20MD= ****** GX
FSBR = 000154 HRLEM = 000536 JSP = 000265 MCOUNT 006104RG MX20M6 005770RG
FSBRB = 000157 HRLES = 000537 JSR = 000264 MDFSIZ 007022RG MX20M7 005771RG
FSBRI = 000155 HRLI = 000505 JUMP = 000320 MDHDER 004012RG NDEFER= 000025
FSBRM = 000156 HRLM = 000506 JUMPA = 000324 MDINIT= ****** GX NODFRL 002452R
FSC = 000132 HRLO = 000524 JUMPE = 000322 MDRECN 004166RG OCFVLN= 000010
FSD 000376RG HRLOI = 000525 JUMPG = 000327 MDRTRY 003666R OCFVST 005762RG
FSDCH 000354RG HRLOM = 000526 JUMPGE= 000325 MDST0 = ****** GX OR = 000434
FSDCHK 000462RG HRLOS = 000527 JUMPL = 000321 MDST0B 004370R ORB = 000437
FSDCH1 000356R HRLS = 000507 JUMPLE= 000323 MDST1 004202R ORCA = 000454
FSDERR 000366R HRLZ = 000514 JUMPN = 000326 MDST1A 004272R ORCAB = 000457
FSDMSK 000312R HRLZI = 000515 KEEPBB 005766RG MDST1B 004244RG ORCAI = 000455
FSDM1 000314RG HRLZM = 000516 KLB24 003254R MDST1C 004260R ORCAM = 000456
FSDPM = 000377 HRLZS = 000517 KLB35 003262R MDST23= ****** GX ORCB = 000470
FSDWDA 000460R HRR = 000540 LADRRM 006523RG MFCTLV 005776R ORCBB = 000473
FSD1 000400R HRRE = 000570 LDANOW 002250R MFCTN = 000005 ORCBI = 000471
FSD2 000414R HRREI = 000571 LDAR = 000077 MF20 006112RG ORCBM = 000472
GAPCNT 006116RG HRREM = 000572 LDB = 000135 MF20RD 005756RG ORCM = 000464
GAPDMY 006120RG HRRES = 000573 LDEFER 002636RG MINUS1 001126RG ORCMB = 000467
GAPTAB 006124RG HRRI = 000541 LFSDP 000170RG MMRESP 004420RG ORCMI = 000465
GETBBD= ****** GX HRRM = 000542 LOOPK 001412R MMRPM = 077740 ORCMM = 000466
GETRPC 001372R HRRO = 000560 LSBRTN= 000001 MNBRCN= 000036 ORI = 000435
HALTLP= 001000 HRROI = 000561 LSBSRL= 000744 MNMFCN= 000010 ORM = 000436
HLL = 000500 HRROM = 000562 LSDM1 000320R MNMXCN= 000006 PAG = 000010
HLLE = 000530 HRROS = 000563 LSH = 000242 MNM.CN= 000000 PI = 000004
HLLEI = 000531 HRRS = 000543 LSHC = 000246 MNTITF= 000040 POP = 000262
HLLEM = 000532 HRRZ = 000550 LSTMB = 000001 MODELB 005772RG POPJ = 000263
HLLES = 000533 HRRZI = 000551 LUBSRL= 000600 MOSDET 003656R PUSH = 000261
HLLI = 000501 HRRZM = 000552 MABADC 006554RG MOSSA 007162RG PUSHJ = 000260
HLLM = 000502 HRRZS = 000553 MABCNI 006530RG MOVE = 000200 PXCT = 000256
HLLO = 000520 I = 000000 MABDET= ****** GX MOVEI = 000201 P11 = 000014
HLLOI = 000521 IBP = 000133 MABINT 006560RG MOVEM = 000202 QRESET= ****** GX
HLLOM = 000522 IDIV = 000230 MABL 002160RG MOVES = 000203 QXCT 003276R
HLLOS = 000523 IDIVB = 000233 MABRD 005757RG MOVM = 000214 QXCT1 003300RG
HLLS = 000503 IDIVI = 000231 MABSA 006550RG MOVMI = 000215 RAMSZ0 006762RG
HLLZ = 000510 IDIVM = 000232 MABSIZ 006544RG MOVMM = 000216 RAMSZ1 006772RG
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 168-3
SYMBOL TABLE
RAS = 040000 SETOM = 000476 TDN = 000610 TSNA = 000615 $DMPAC= 070010
RDACWD 001356R SETPAR 003440RG TDNA = 000614 TSNE = 000613 $DPOST= ****** GX
RDDONE 005753RG SETRAM 001002RG TDNE = 000612 TSNN = 000617 $DTRW1= ****** GX
RDERA0 000045RG SETRPC 001376R TDNN = 000616 TSO = 000671 $EB = 004722R
RDPROM= ****** GX SETRUN= 000011 TDO = 000670 TSOA = 000675 $EVENT= 000001
READAC 001320RG SETZ = 000400 TDOA = 000674 TSOE = 000673 $EXAMT= ****** GX
REAPWD 006364RG SETZB = 000403 TDOE = 000672 TSON = 000677 $EXCT = ****** GX
RESDET 003612RG SETZI = 000401 TDON = 000676 TSTCON 001000RG $EXP16= 000001
ROT = 000241 SETZM = 000402 TDZ = 000630 TSZ = 000631 $FATAL= ****** GX
ROTC = 000245 SJDATA 001410R TDZA = 000634 TSZA = 000635 $FIND = 000001
RSPMAP 007322RG SKIP = 000330 TDZE = 000632 TSZE = 000633 $FSD = 000001
RST.5 003400RG SKIPA = 000334 TDZN = 000636 TSZN = 000637 $GETCT= 070020
RS0RS1= 000010 SKIPE = 000332 TGN = 000002 TYPE0 006372RG $IND36= 000003
RS0TN0= 000020 SKIPG = 000337 TIMFS = 000044 TYPE1 006402RG $KLMR = ****** GX
RUNBIG 001364RG SKIPGE= 000335 TIMINT 001414R TYPE2 006412RG $KL10A= 000101
RUNJRS 001416R SKIPL = 000331 TIMNO0 007002RG TYPE3 006422RG $KL10B= 000102
RUNPRG 001370RG SKIPLE= 000333 TIMNO1 007012RG TYPE4 006432RG $LDAR = ****** GX
R$$20F= 000001 SKIPN = 000336 TLC = 000641 TYPE5 006442RG $LDEFE= 000001
R5.PC 003420RG SMFSS 005172R TLCA = 000645 TYPE6 006452RG $LOADA= 000001
SAV.5 003362RG SMFSS0 005166RG TLCE = 000643 TYPE7 006462R $MABL = 000001
SBDG2 000632R SMFSS1 005162R TLCN = 000647 TYPNUM 006004RG $MBINI= 000001
SBDG3 000722R SMFSS2 005156RG TLN = 000601 UFA = 000130 $MMRES= 000001
SBDI 000620R SOJ = 000360 TLNA = 000605 UNDCTN= 000007 $MOSDE= 000001
SBDT 000572RG SOJA = 000364 TLNE = 000603 UNDEF 006114RG $PATCH= 070004
SBD0 000622RG SOJE = 000362 TLNN = 000607 WENABL= 004000 $QXCT = 000001
SBSREC 006113R SOJG = 000367 TLO = 000661 W11 = 000000 $RDERA= 000000
SBSRL 005500RG SOJGE = 000365 TLOA = 000665 X = 000000 $READA= 000001
SBUS = 100000 SOJL = 000361 TLOE = 000663 XCONMP 006760RG $RELOA= 000001
SCAN 005004RG SOJLE = 000363 TLON = 000667 XCT = 000256 $RESDE= 000001
SDMA 000352R SOJN = 000366 TLZ = 000621 XDV = 000004 $RESET= 000001
SDMSBR 006516RG SOS = 000370 TLZA = 000625 XMAL 006534RG $RSTAC= 070030
SDWDFM 000724RG SOSA = 000374 TLZE = 000623 XOP = 000002 $RUN = 000001
SD16 000613R SOSE = 000372 TLZN = 000627 XOR = 000430 $SAVAC= 070024
SECLK = 000003 SOSG = 000377 TOCTLP 003706R XORB = 000433 $SBDIA= 000002
SETA = 000424 SOSGE = 000375 TOMFLP 003714R XORI = 000431 $SBSRL= 000001
SETAB = 000427 SOSL = 000371 TRC = 000640 XORM = 000432 $SCAN = 000001
SETAI = 000425 SOSLE = 000373 TRCA = 000644 XR = 000000 $SDW = 000002
SETAM = 000426 SOSN = 000376 TRCE = 000642 XSTEP 001702R $SETBB= 000001
SETBBD 005262RG SSCLK = 000002 TRCN = 000646 XX 000000R $SETCM= 000001
SETCA = 000450 STEP 001670R TRN = 000600 XXWD 000032RG $SETPA= 000001
SETCAB= 000453 STEPK 001666R TRNA = 000604 XXX = 000003 $SETRA= 000001
SETCAI= 000451 STEP1 001670R TRNE = 000602 XX1 000002RG $SIZ16= 033061
SETCAM= 000452 STPCLK= 000000 TRNN = 000606 Z = 000200 $SIZ32= 031063
SETCM = 000460 STRCLK= 000001 TRO = 000660 ZERO.. 001120R $SIZ4K= 032060
SETCMB= 000463 STRFSD 000502R TROA = 000664 $ACBLK= 000001 $SIZ64= 032066
SETCMI= 000461 SUB = 000274 TROE = 000662 $ACRAM= ****** GX $SMFSS= 000001
SETCMM= 000462 SUBB = 000277 TRON = 000666 $APRID= 000000 $STEP = 000001
SETCMP 005340RG SUBI = 000275 TRPAR = 010000 $BP. = 000160 $S10. = 155160
SETCON 000714R SUBM = 000276 TRZ = 000620 $BRST = 000001 $TB = 000005
SETM = 000414 SXCT = 000106 TRZA = 000624 $BURST= ****** GX $TDB2O= ****** GX
SETMB = 000417 TADR = 000010 TRZE = 000622 $CALPA= 000001 $TIMLP= 070014
SETMI = 000415 TBN = 000004 TRZN = 000626 $CNTSD= 000001 $TL = 000012
SETMM = 000416 TCN = 000001 TSC = 000651 $CONFI= 000001 $TTDMS= ****** GX
SETMR = 000007 TDC = 000650 TSCA = 000655 $DDFRD= ****** GX $XX = 000001
SETO = 000474 TDCA = 000654 TSCE = 000653 $DDFWR= ****** GX $$APRI= 000000
SETOB = 000477 TDCE = 000652 TSCN = 000657 $DDFXC= ****** GX $$NARG= 000001
SETOI = 000475 TDCN = 000656 TSN = 000611 $DFPC = ****** GX $$RDER= 000004
MBROOT -- MEMORY BOOT ROOT OVER MACRO M1110 17-SEP-79 08:57 PAGE 168-4
SYMBOL TABLE
$$SBDI= 000004 $10MB = 070050 .DFRBK= ****** GX .SBDIA= 000001 ... = 000377
$10BC = 070040 $10RB = 070044 .RESET 003032RG .TICKS= ****** GX ......= 177777
$10BP = 070034 .DAT3 002156R
. ABS. 000000 000
007364 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 23943 WORDS ( 94 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:05:27
[56,10]MBROOT,[56,20]MBROOT/-SP/CR=[56,30]MBRASM,MBOVLC,MOSMAC,MBMAC,MOSDEF,MOSSUB,MBROOT
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AC = 000000 #97-68 #97-68 97-68 97-68 #97-69 #97-69 97-69 97-69 #97-70
#97-70 97-70 97-70 #97-72 #97-72 97-72 97-72 #97-73 #97-73
97-73 97-73 #97-74 #97-74 97-74 97-74 #97-75 #97-75 97-75
97-75 #119-1406 119-1406 119-1406 #157-287 #157-287 157-287 157-287 #157-288
#157-288 157-288 157-288 #157-290 #157-290 157-290 157-290 #157-291 #157-291
157-291 157-291 #157-292 #157-292 157-292 157-292 #157-293 #157-293 157-293
157-293 #157-294 157-294 157-294
ACBLK 001136 R #117-1268
ACBLK1 001140 RG 7-232 98-207 #117-1269 118-1316 126-1698 128-1869
ACC0 = 000001 #19-739
ACC1 = 000002 #19-740
ACC10 = 000400 #19-747
ACC11 = 001000 #19-748
ACC12 = 002000 #19-749
ACC13 = 004000 #19-750
ACC14 = 010000 #19-751
ACC15 = 020000 #19-752
ACC16 = 040000 #19-753
ACC17 = 100000 #19-754
ACC2 = 000004 #19-741
ACC3 = 000010 #19-742
ACC4 = 000020 #19-743
ACC5 = 000040 #19-744
ACC6 = 000100 #19-745
ACC7 = 000200 #19-746
ACLDCM 002302 R 127-1739 #127-1743
ACLDC2 002306 R 127-1735 #127-1744
ACLOAD 002272 RG 7-232 126-1704 #127-1740 156-221
ACSCAT 002260 RG 7-232 #127-1736
AC0 = 000000 #12-27 96-12
AC1 = 000001 #12-28
AC10 = 000010 #12-35
AC11 = 000011 #12-36
AC12 = 000012 #12-37
AC13 = 000013 #12-38
AC14 = 000014 #12-39 98-143
AC15 = 000015 #12-40 97-92 156-230
AC16 = 000016 #12-41 99-236
AC17 = 000017 #12-42 99-257
AC2 = 000002 #12-29
AC3 = 000003 #12-30
AC4 = 000004 #12-31
AC5 = 000005 #12-32
AC6 = 000006 #12-33
AC7 = 000007 #12-34 156-224
ADD = 000270 #12-167
ADDB = 000273 #12-170
ADDI = 000271 #12-168 157-293 157-293
ADDM = 000272 #12-169
ADH = 000000 #96-18 96-18 96-18 #96-19 96-19 96-19 #96-20 96-20 96-20
#96-21 96-21 96-21 #97-68 97-68 97-68 #97-69 97-69 97-69
#97-70 97-70 97-70 #97-71 97-71 97-71 #97-72 97-72 97-72
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#97-73 97-73 97-73 #97-74 97-74 97-74 #97-75 97-75 97-75
#99-229 99-229 99-229 #117-1301 117-1301 117-1301 #119-1406 119-1406 119-1406
#157-287 157-287 157-287 #157-288 157-288 157-288 #157-289 157-289 157-289
#157-290 #157-290 157-290 157-290 #157-291 157-291 157-291 #157-292 157-292
157-292 #157-293 157-293 157-293 #157-294 157-294 157-294
ADJSP = 000105 #12-53
ADL = 000005 #96-18 96-18 96-18 #96-18 96-18 96-18 #96-19 96-19 96-19
#96-19 96-19 96-19 #96-20 96-20 96-20 #96-20 96-20 96-20
#96-21 96-21 96-21 #96-21 96-21 96-21 #97-68 97-68 97-68
#97-68 97-68 97-68 #97-69 97-69 97-69 #97-69 97-69 97-69
#97-70 97-70 97-70 #97-70 97-70 97-70 #97-70 97-70 97-70
#97-71 97-71 97-71 #97-71 97-71 97-71 #97-71 97-71 97-71
#97-72 97-72 97-72 #97-72 97-72 97-72 #97-72 97-72 97-72
#97-73 97-73 97-73 #97-73 97-73 97-73 #97-73 97-73 97-73
#97-74 97-74 97-74 #97-74 97-74 97-74 #97-75 97-75 97-75
#97-75 97-75 97-75 #99-229 99-229 99-229 #99-229 99-229 99-229
#99-229 99-229 99-229 #117-1301 117-1301 117-1301 #117-1301 117-1301 117-1301
#119-1406 119-1406 119-1406 #119-1406 119-1406 119-1406 #157-287 157-287 157-287
#157-287 157-287 157-287 #157-287 157-287 157-287 #157-287 157-287 157-287
#157-287 157-287 157-287 #157-287 157-287 157-287 #157-288 157-288 157-288
#157-288 157-288 157-288 #157-289 157-289 157-289 #157-289 157-289 157-289
#157-289 157-289 157-289 #157-290 157-290 157-290 #157-290 157-290 157-290
#157-290 157-290 157-290 #157-290 157-290 157-290 #157-290 157-290 157-290
#157-290 157-290 157-290 157-290 #157-290 157-290 157-290 #157-291 157-291
157-291 #157-291 157-291 157-291 #157-291 157-291 157-291 #157-292 157-292
157-292 #157-292 157-292 157-292 #157-292 157-292 157-292 #157-292 157-292
157-292 #157-292 157-292 157-292 #157-292 157-292 157-292 #157-293 157-293
157-293 #157-293 157-293 157-293 #157-293 157-293 157-293 #157-293 157-293
157-293 #157-294 157-294 157-294 #157-294 157-294 157-294
ADR2ND = 002000 #44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205
AND = 000404 #12-247
ANDB = 000407 #12-250
ANDCA = 000410 #12-251
ANDCAB = 000413 #12-254
ANDCAI = 000411 #12-252
ANDCAM = 000412 #12-253
ANDCB = 000440 #12-279
ANDCBB = 000443 #12-282
ANDCBI = 000441 #12-280
ANDCBM = 000442 #12-281
ANDCM = 000420 #12-259 97-73 97-73
ANDCMB = 000423 #12-262
ANDCMI = 000421 #12-260
ANDCMM = 000422 #12-261
ANDI = 000405 #12-248
ANDM = 000406 #12-249
AOBJN = 000253 #12-153
AOBJP = 000252 #12-152
AOJ = 000340 #12-207
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AOJA = 000344 #12-211
AOJE = 000342 #12-209
AOJG = 000347 #12-214
AOJGE = 000345 #12-212
AOJL = 000341 #12-208
AOJLE = 000343 #12-210
AOJN = 000346 #12-213
AOS = 000350 #12-215
AOSA = 000354 #12-219
AOSE = 000352 #12-217
AOSG = 000357 #12-222
AOSGE = 000355 #12-220
AOSL = 000351 #12-216
AOSLE = 000353 #12-218
AOSN = 000356 #12-221
APR = 000000 #12-449 55-130 96-18
APRID0 000057 RG 7-232 #96-21
ASH = 000240 #12-143
ASHC = 000244 #12-147
ASL0.3 000110 RG 7-232 #96-35 117-1271
ASL0.4 000106 RG 7-233 #96-34
ASL0.5 000104 R #96-33
ASL0.6 000102 RG 7-233 #96-32
ASR0.3 000072 RG 7-233 #96-28 128-1873 161-502
ASR0.4 000070 RG 7-233 #96-27 136-2203
ASR0.5 000066 RG 7-241 #96-26
ASR0.6 000064 RG 7-233 #96-25 160-438
BAF 006734 RG 7-217 154-138 155-177 156-254 #168-842
BAF0 006740 RG 7-217 #168-843
BITCNT 006472 RG 7-215 136-2206 #166-740
BIT0 = 000001 #4-63 96-41 96-46 132-2027
BIT1 = 000002 #4-64 96-41 96-46 132-2027
BIT10 = 002000 #4-73 96-42
BIT11 = 004000 #4-74 4-81 96-42
BIT12 = 010000 #4-75 96-42
BIT13 = 020000 #4-76 96-42
BIT14 = 040000 #4-77 96-42
BIT15 = 100000 #4-78 26-1126 96-42
BIT2 = 000004 #4-65 96-41 96-46 132-2027
BIT3 = 000010 #4-66 96-41 96-46
BIT4 = 000020 #4-67 96-41 96-46
BIT5 = 000040 #4-68 96-41 96-46
BIT6 = 000100 #4-69 96-41 96-46
BIT7 = 000200 #4-70 26-1125 96-41 96-46
BIT8 = 000400 #4-71 96-41
BIT9 = 001000 #4-72 4-80 96-42
BLKI = 000000 #12-440 55-129 55-131
BLKO = 000002 #12-442 55-127
BLK0 = 000000 #12-44
BLK1 = 000001 #12-45
BLK2 = 000002 #12-46
BLK3 = 000003 #12-47
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
BLK4 = 000004 #12-48
BLK5 = 000005 #12-49
BLK6 = 000006 #12-50 98-195
BLT = 000251 #12-151
BMTAB 000120 RG 7-241 #96-41 124-1631
BOLPS 003752 RG 7-225 154-115 #154-121 154-147 155-162 155-174 155-192
BRCLK = 000005 #55-122
BRCTN = 000006 #43-170
BRST 001734 R 117-1284 #122-1545
BRST1 001736 R #122-1546
BSIZE 006512 RG 7-220 #166-742
BSYCLR = 000400 #44-207 44-207 44-207 #44-207 44-207 44-207 #44-207 44-207 44-207
#44-207 44-207 44-207 #44-207 44-207 44-207 #44-207 44-207 44-207
#44-207 44-207 44-207 #44-207 44-207 44-207 #44-207
BTFLCN 006542 RG 7-206 #166-761
BX = 000027 #117-1285 117-1285
BYBITM 000160 R #96-46
B10 = 177751 #117-1285 117-1285 117-1285
B11 = 000014 #117-1285 117-1285 117-1285
CACBLK 001316 R 98-195 *117-1270 #117-1307 *120-1418 127-1832 *128-1854 128-1866 132-1994 *132-1994
CACEA 002456 R *126-1694 126-1701 *127-1763 127-1777 *127-1793 #127-1801
CACN 002454 R *127-1744 127-1775 *127-1790 #127-1800 127-1833
CAI = 000300 #12-175
CAIA = 000304 #12-179
CAIE = 000302 #12-177
CAIG = 000307 #12-182
CAIGE = 000305 #12-180
CAIL = 000301 #12-176
CAILE = 000303 #12-178
CAIN = 000306 #12-181
CALPAR 003462 RG 7-234 136-2183 #136-2198
CAM = 000310 #12-183
CAMA = 000314 #12-187
CAME = 000312 #12-185
CAMG = 000317 #12-190
CAMGE = 000315 #12-188
CAML = 000311 #12-184
CAMLE = 000313 #12-186
CAMN = 000316 #12-189
CAS = 020000 #44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202
CCA = 000014 #12-452
CCFAIL 005767 RG 7-227 *154-103 *154-148 #164-665
CDONE 005761 RG 7-208 *152-39 *163-616 #164-640
CECLK = 000004 #55-119 117-1289
CHKED 003316 RG 7-234 97-98 98-149 99-242 99-259 118-1331 129-1911 #134-2065 156-237
CHKP 003346 R 120-1466 #134-2081
CHKX 003332 R 133-2043 #134-2073
CIAPR0 000040 RG 7-234 #96-18
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CLEAR = 000400 #12-239
CLEARB = 000403 #12-245
CLEARI = 000401 #12-241
CLEARM = 000402 #12-243
CLKERC 001706 R 122-1522 #122-1526 122-1547
CLKERR 001750 R 120-1459 122-1533 #122-1554
CLKFLG 003270 R 120-1450 122-1532 132-1996 #132-2027
CLKTYP 001732 R #122-1538 125-1645
CLRMR = 000006 #55-120
CLRRDD 005734 R 152-54 163-583 163-590 163-597 163-604 #163-614
CNTCNT 006105 RG 7-211 #165-699
CNTSD 000732 R #99-279
CNTSD1 000734 RG 7-234 98-124 99-231 #99-280 100-318 129-1895 156-217
CONBUT = 000012 #55-124 98-214 117-1282 120-1416
CONDET = ****** GX 152-55
CONDMA = ****** GX 152-35
CONFGR 005762 RG 7-208 #164-652
CONFIG 003536 RG 7-227 #152-32
CONI = 000005 #12-445 96-18
CONMAB = ****** GX 152-36
CONMMR = 000001 #3-54 6-167 7-229
CONMOS = ****** GX 152-38
CONMX = ****** GX 152-37
CONO = 000004 #12-444
CONRD 005754 RG 7-207 #164-634
CONSO = 000007 #12-447
CONSZ = 000006 #12-446
CONTI 006044 RG 7-210 154-135 155-161 155-197 *159-384 #165-694
CONTIN 001424 RG 7-234 #120-1413 156-226
CON2 001426 R 119-1400 #120-1414
CON3 001446 R #120-1418
CORDET = ****** 3-8 7-244
CPU = 000200 #26-1125 98-206 152-34
CPUDSG 005774 RG 7-210 #165-683
CURKW 001602 R *120-1437 120-1445 #120-1485
DADD = 000114 #12-59
DATAI = 000001 #12-441 96-20
DATAO = 000003 #12-443 117-1301
DBEFRC 005764 RG 7-208 *154-125 155-158 #164-657
DBEOVL = ****** 3-10 9-303
DBESCN = ****** GX 155-199
DBESFL 006000 RG 7-225 *154-107 #165-686
DBUF 006224 RG 7-213 156-222 156-243 156-247 156-251 #165-721
DDCADM 006532 RG 7-205 #166-757
DDIV = 000117 #12-62
DEFERL 002460 R 127-1760 #127-1811
DE$BUG = 070000 #12-8
DFAD = 000110 #12-55
DFDV = 000113 #12-58
DFMP = 000112 #12-57
DFN = 000131 #12-72
DFRLST 002512 RG 7-235 #127-1841 128-1855
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DFSB = 000111 #12-56
DHKBF = ****** 166-764 167-828
DHKBG = ****** 148-2823 166-764 168-862 168-870
DIACON = ****** 98-158 117-1277
DIAG = 000104 #12-52
DIPAG0 000052 R #96-20
DIV = 000234 #12-139
DIVB = 000237 #12-142
DIVI = 000235 #12-140
DIVM = 000236 #12-141
DLNXT 002510 RG 7-235 127-1825 *127-1835 #127-1840 128-1856
DMABM 006670 RG 7-216 #167-821
DMACN = 000004 #43-160
DMACTN = 000002 #43-159
DMADET = ****** GX 152-56
DMAFRC 006671 RG 7-217 #167-822
DMANXM 006666 RG 7-225 #167-819
DMARD 005755 RG 7-207 #164-635
DMARMP 006674 RG 7-217 #167-824
DMASIZ 006672 RG 7-217 #167-823
DMA2TS 006564 RG 7-216 #167-817
DMA20 006107 RG 7-211 #165-701
DMA20T 006566 RG 7-216 #167-818
DMOVE = 000120 #12-63
DMOVEM = 000124 #12-67
DMOVN = 000121 #12-64
DMOVNM = 000125 #12-68
DMUL = 000116 #12-61
DPB = 000137 #12-78
DPD = ****** GX 155-170
DPDSRS 006540 RG 7-206 #166-760
DREADY = 001000 #44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206
DSUB = 000115 #12-60
D16KBN 006536 RG 7-205 #166-759
EQV = 000444 #12-283
EQVB = 000447 #12-286
EQVI = 000445 #12-284
EQVM = 000446 #12-285
ERBIT 001134 R #107-708
ERRSTP = 004000 #4-81 120-1454 122-1527
ER$ABS = 001274 RG #117-1293
ER$APL = 002420 RG #127-1788
ER$CES = 001750 RG #122-1554
ER$CTF = 004704 RG #157-279
ER$EDE = 003322 RG #134-2068
ER$FOE = 005076 RG #158-337
ER$IEE = 003336 RG #134-2076
ER$MFE = 000366 RG #97-111
ER$PDH = 003352 RG #134-2084
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ER$SB4 = 005016 RG #158-316
EVENT 001760 R #124-1604
EVENTA 001760 R #124-1605
EVENT1 001762 R #124-1606
EVENT2 002002 R 121-1500 124-1608 #124-1620
EVENT3 002072 R 121-1502 124-1636 #125-1645
EXCH = 000250 #12-150
EXP16K 005116 RG 7-223 #159-346
EXTEND = 000123 #12-66
F = 000001 #117-1285 #117-1285 117-1285
FAD = 000140 #12-79
FADB = 000143 #12-82
FADL = 000141 #12-80
FADM = 000142 #12-81
FADR = 000144 #12-83
FADRB = 000147 #12-86
FADRI = 000145 #12-84
FADRM = 000146 #12-85
FDV = 000170 #12-103
FDVB = 000173 #12-106
FDVL = 000171 #12-104
FDVM = 000172 #12-105
FDVR = 000174 #12-107
FDVRB = 000177 #12-110
FDVRI = 000175 #12-108
FDVRM = 000176 #12-109
FIND 001604 R 117-1285 #121-1495
FIND1 001604 R #121-1496
FIND2 001606 R #121-1497
FITCON = ****** 3-11 10-325
FITMEM = ****** GX 152-33
FITTED 005760 RG 7-207 *163-615 #164-639
FIX = 000122 #12-65
FIXR = 000126 #12-69
FLTR = 000127 #12-70
FMP = 000160 #12-95
FMPB = 000163 #12-98
FMPL = 000161 #12-96
FMPM = 000162 #12-97
FMPR = 000164 #12-99
FMPRB = 000167 #12-102
FMPRI = 000165 #12-100
FMPRM = 000166 #12-101
FMRECN 005765 RG 7-209 *152-40 *154-151 #164-660
FSB = 000150 #12-87
FSBB = 000153 #12-90
FSBL = 000151 #12-88
FSBM = 000152 #12-89
FSBR = 000154 #12-91
FSBRB = 000157 #12-94
FSBRI = 000155 #12-92
FSBRM = 000156 #12-93
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
FSC = 000132 #12-73
FSD 000376 RG 7-235 #98-122 162-552
FSDCH 000354 RG 7-235 #97-106
FSDCHK 000462 RG 7-235 #98-183 159-382
FSDCH1 000356 R #97-108 98-187
FSDERR 000366 R 97-109 #97-111 100-323
FSDMSK 000312 R #97-86
FSDM1 000314 RG 7-236 #97-87 155-188 162-551
FSDPM = 000377 97-63 #97-80 97-80 97-80 #97-80 97-80 97-80 #97-80 97-80
97-80 #97-80 97-80 97-80 #97-80 97-80 97-80 #97-80 97-80
97-80 #97-80 97-80 97-80 #97-80 97-80 97-80 #97-80
FSDWDA 000460 R *98-123 98-142 #98-178 *100-317
FSD1 000400 R 97-108 #98-123
FSD2 000414 R #98-126 100-320
GAPCNT 006116 RG 7-212 #165-710
GAPDMY 006120 RG 7-212 *163-567 #165-711
GAPTAB 006124 RG 7-213 #165-712
GETBBD = ****** GX 155-173
GETRPC 001372 R 119-1396 #119-1398
HALTLP = 001000 #4-80 98-152 98-199 120-1439
HLL = 000500 #12-311
HLLE = 000530 #12-335
HLLEI = 000531 #12-336
HLLEM = 000532 #12-337
HLLES = 000533 #12-338
HLLI = 000501 #12-312
HLLM = 000502 #12-313
HLLO = 000520 #12-327
HLLOI = 000521 #12-328
HLLOM = 000522 #12-329
HLLOS = 000523 #12-330
HLLS = 000503 #12-314
HLLZ = 000510 #12-319
HLLZI = 000511 #12-320
HLLZM = 000512 #12-321
HLLZS = 000513 #12-322
HLR = 000544 #12-347
HLRE = 000574 #12-371
HLREI = 000575 #12-372
HLREM = 000576 #12-373
HLRES = 000577 #12-374
HLRI = 000545 #12-348
HLRM = 000546 #12-349
HLRO = 000564 #12-363
HLROI = 000565 #12-364
HLROM = 000566 #12-365
HLROS = 000567 #12-366
HLRS = 000547 #12-350
HLRZ = 000554 #12-355
HLRZI = 000555 #12-356
HLRZM = 000556 #12-357
HLRZS = 000557 #12-358
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
HRL = 000504 #12-315
HRLE = 000534 #12-339
HRLEI = 000535 #12-340
HRLEM = 000536 #12-341
HRLES = 000537 #12-342
HRLI = 000505 #12-316
HRLM = 000506 #12-317
HRLO = 000524 #12-331
HRLOI = 000525 #12-332
HRLOM = 000526 #12-333
HRLOS = 000527 #12-334
HRLS = 000507 #12-318
HRLZ = 000514 #12-323
HRLZI = 000515 #12-324
HRLZM = 000516 #12-325
HRLZS = 000517 #12-326
HRR = 000540 #12-343
HRRE = 000570 #12-367
HRREI = 000571 #12-368
HRREM = 000572 #12-369
HRRES = 000573 #12-370
HRRI = 000541 #12-344
HRRM = 000542 #12-345
HRRO = 000560 #12-359
HRROI = 000561 #12-360
HRROM = 000562 #12-361
HRROS = 000563 #12-362
HRRS = 000543 #12-346
HRRZ = 000550 #12-351
HRRZI = 000551 #12-352
HRRZM = 000552 #12-353
HRRZS = 000553 #12-354
I = 000000 #96-18 96-18 #96-19 96-19 #96-20 96-20 #96-21 96-21 #97-68
97-68 #97-69 97-69 #97-70 97-70 #97-71 97-71 #97-72 97-72
#97-73 97-73 #97-74 97-74 #97-75 97-75 #99-229 99-229 #117-1301
117-1301 #119-1406 119-1406 #157-287 157-287 #157-288 157-288 #157-289 157-289
#157-290 157-290 #157-291 157-291 #157-292 157-292 #157-293 157-293 #157-294
157-294
IBP = 000133 #12-74
IDIV = 000230 #12-135
IDIVB = 000233 #12-138
IDIVI = 000231 #12-136
IDIVM = 000232 #12-137
IDPB = 000136 #12-77
ILDB = 000134 #12-75
ILOST 006001 RG 7-210 #165-687
IMUL = 000220 #12-127
IMULB = 000223 #12-130
IMULI = 000221 #12-128
IMULM = 000222 #12-129
INIDMA 005670 RG 7-222 163-572 #163-587
INIMAB 005704 RG 7-222 163-571 #163-594
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
INIMDF 005654 RG 7-222 163-573 #163-580
INIMX 005720 R 163-574 #163-601
INTMOD 005763 RG 7-208 #164-654
IOR = 000434 #12-271
IORB = 000437 #12-277
IORI = 000435 #12-273
IORM = 000436 #12-275
JBOLPS 004364 R #155-192 155-198
JFCL = 000255 #12-155
JFFO = 000243 #12-146
JRA = 000267 #12-166
JRST = 000254 #12-154 97-75 97-75 119-1406 119-1406 157-288 157-288 157-294 157-294
JSA = 000266 #12-165
JSP = 000265 #12-164
JSR = 000264 #12-163
JUMP = 000320 #12-191
JUMPA = 000324 #12-195
JUMPE = 000322 #12-193 97-69 97-69 97-74 97-74
JUMPG = 000327 #12-198
JUMPGE = 000325 #12-196
JUMPL = 000321 #12-192
JUMPLE = 000323 #12-194
JUMPN = 000326 #12-197
KEEPBB 005766 RG 7-209 *154-152 #164-661
KLB24 003254 R 132-1984 #132-2023
KLB35 003262 R 132-1997 #132-2024
LADRRM 006523 RG 7-220 155-188 #166-745
LDANOW 002250 R #127-1734
LDAR = 000077 #55-125 117-1290
LDB = 000135 #12-76
LDEFER 002636 RG 7-236 #128-1851
LFSDP 000170 RG 7-236 #97-62 163-575
LOOPK 001412 R #119-1403
LSBRTN = 000001 #3-58 95-2 148-2821
LSBSRL = 000744 #44-209 160-435 160-439 161-499 161-504 161-507 161-510
LSDM1 000320 R #97-88 98-184
LSH = 000242 #12-145 157-290 157-290
LSHC = 000246 #12-149
LSTALL = ****** 12-455 39-1601 40-2 51-493 95-2 148-2821 151-3
LSTDIA = ****** 51-494
LSTMAC = ****** 12-455 39-1601 40-2 51-493
LSTMB = 000001 #3-57 151-3
LUBSRL = 000600 #44-210
MABADC 006554 RG 7-215 #167-798
MABCNI 006530 RG 7-205 #166-756
MABDET = ****** GX 152-57
MABINT 006560 RG 7-216 #167-799
MABL 002160 RG 7-236 97-63 #126-1685
MABRD 005757 RG 7-207 #164-637
MABSA 006550 RG 7-215 #167-797
MABSIZ 006544 RG 7-215 #167-796
MACTN = 000001 #43-154
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
MAP = 000257 #12-158
MAXCN = 000037 #43-152 165-693 165-694
MA20 006106 RG 7-211 #165-700
MBCTN = 000003 #43-155
MBDABL = 000020 163-594 #167-807
MBDABS 006544 RG 7-215 *163-595 #167-793 167-807
MBDATA = 000001 #6-174 163-620
MBDCML = 000420 163-564 #165-724
MBDCMS 005752 RG 7-206 *163-565 #164-629 165-724
MBDDML = 000150 163-587 #167-826
MBDDMS 006564 RG 7-216 *163-588 #167-815 167-826
MBDIFL = 000014 163-568 #166-763
MBDIFS 006530 RG 7-205 *163-569 #166-754 166-763
MBDMFL = 000402 163-580 #168-868
MBDMFS 006760 RG 7-218 *163-581 #168-851 168-868
MBDMXL = 000002 163-601 #168-884
MBDMXS 007362 RG 7-219 *163-602 #168-882 168-884
MBINI 005566 RG 7-227 #163-564
MBINID 005752 RG 7-206 *163-576 #164-631
MBOKLG = ****** 4-100 6-192
MBROOT = 177777 G #1-1 3-7 5-158
MB20 006110 RG 7-211 #165-702
MCOUNT 006104 RG 7-211 #165-697
MDFSIZ 007022 RG 7-219 168-848 #168-860 168-871
MDHDER 004012 RG 7-225 #154-134 155-169 155-171 155-190 155-203
MDINIT = ****** GX 154-104
MDRECN 004166 RG 7-226 #154-151
MDRTRY 003666 R #154-104 154-153
MDST0 = ****** GX 154-118
MDST0B 004370 R 154-118 #155-197
MDST1 004202 R 154-118 #155-158
MDST1A 004272 R #155-176 155-202
MDST1B 004244 RG 7-226 #155-168
MDST1C 004260 R 155-167 #155-172
MDST23 = ****** GX 155-164
MFCTLV 005776 R *154-108 154-116 *154-123 #165-685
MFCTN = 000005 #43-166 154-114
MF20 006112 RG 7-212 #165-704
MF20RD 005756 RG 7-207 *154-126 155-166 #164-636
MINUS1 001126 RG 7-236 #107-706
MMRESP 004420 RG 7-229 #156-216
MMRPM = 077740 156-221 #157-298 157-298 157-298 #157-298 157-298 157-298 #157-298 157-298
157-298 #157-298 157-298 157-298 #157-298 157-298 157-298 #157-298 157-298
157-298 #157-298 157-298 157-298 #157-298 157-298 157-298 #157-298 157-298
157-298 #157-298 157-298 157-298 #157-298 157-298 157-298 #157-298 157-298
157-298 #157-298 157-298 157-298 #157-298 157-298 157-298 #157-298 157-298
157-298 #157-298
MNBRCN = 000036 #43-171
MNMFCN = 000010 #43-167 44-181 44-182 44-183 154-109 168-848 168-855 168-856 168-857
168-858 168-860 168-863
MNMXCN = 000006 #43-163
MNM.CN = 000000 #43-156
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 12
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
MNTITF = 000040 #40-31
MODELB 005772 RG 7-209 #165-682
MOSDET 003656 R 152-59 #154-102
MOSSA 007162 RG 7-219 #168-863 168-871
MOVE = 000200 #12-111 97-70 97-70
MOVEI = 000201 #12-112
MOVEM = 000202 #12-113
MOVES = 000203 #12-114
MOVM = 000214 #12-123
MOVMI = 000215 #12-124
MOVMM = 000216 #12-125
MOVMS = 000217 #12-126
MOVN = 000210 #12-119
MOVNI = 000211 #12-120
MOVNM = 000212 #12-121
MOVNS = 000213 #12-122
MOVS = 000204 #12-115
MOVSI = 000205 #12-116
MOVSM = 000206 #12-117
MOVSS = 000207 #12-118
MSAMSZ = 000140 #44-181 *155-182 *157-267 168-871
MSSCTL = ****** 3-9 8-268
MSTROS 006002 RG 7-210 #165-690
MTBL = ****** 96-40
MUL = 000224 #12-131
MULB = 000227 #12-134
MULI = 000225 #12-132
MULM = 000226 #12-133
MXBRCN = 000037 #43-172
MXCTN = 000004 #43-162
MXMFCN = 000017 #43-168 44-181 44-182 44-183 154-121 168-855 168-856 168-857 168-858
168-860 168-863
MXMXCN = 000007 #43-164
MXM.CN = 000003 #43-157
MX20 006111 RG 7-212 #165-703
MX20MD = ****** GX 152-58
MX20M6 005770 RG 7-209 #164-671
MX20M7 005771 RG 7-209 #164-672
NDEFER = 000025 #127-1809 127-1841
NODFRL 002452 R *127-1734 *127-1743 127-1756 #127-1798
OCFVLN = 000010 #164-674
OCFVST 005762 RG 7-208 #164-650 164-674
OR = 000434 #12-272
ORB = 000437 #12-278
ORCA = 000454 #12-291
ORCAB = 000457 #12-294
ORCAI = 000455 #12-292
ORCAM = 000456 #12-293
ORCB = 000470 #12-303
ORCBB = 000473 #12-306
ORCBI = 000471 #12-304
ORCBM = 000472 #12-305
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 13
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ORCM = 000464 #12-299
ORCMB = 000467 #12-302
ORCMI = 000465 #12-300
ORCMM = 000466 #12-301
ORI = 000435 #12-274
ORM = 000436 #12-276
PAG = 000010 #12-451 96-20 117-1301
PI = 000004 #12-450 55-128 55-132
POP = 000262 #12-161
POPJ = 000263 #12-162
PUSH = 000261 #12-160
PUSHJ = 000260 #12-159
PXCT = 000256 #12-156
P11 = 000014 #117-1285 117-1285
QRESET = ****** GX 155-165
QXCT 003276 R #133-2039
QXCT1 003300 RG 7-237 99-256 119-1399 #133-2040
RAMSZ0 006762 RG 7-218 #168-855 168-873 168-874
RAMSZ1 006772 RG 7-218 #168-856 168-873
RAS = 040000 #44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201
RDACWD 001356 R 118-1319 #118-1335
RDDONE 005753 RG 7-206 152-52 *152-60 *163-614 #164-633
RDERA0 000045 RG 7-237 #96-19
RDPROM = ****** GX 155-168
READAC 001320 RG 7-237 #118-1314
REAPWD 006364 RG 7-213 120-1467 159-348 *162-549 *162-550 162-552 #165-722
RELEAS = ****** 12-454 39-1600 40-1 51-492 95-1 97-67 97-80 97-82 98-179
99-273 119-1372 120-1420 127-1764 148-2820 151-1 151-2 154-130 155-193
157-286 157-298 160-397 160-444 161-492 161-515
RESDET 003612 RG 7-227 #152-52
ROT = 000241 #12-144
ROTC = 000245 #12-148
RSPMAP 007322 RG 7-219 156-242 #168-865
RST.5 003400 RG 7-241 #135-2157
RS0RS1 = 000010 #44-182 168-873
RS0TN0 = 000020 #44-183 168-874
RUNBIG 001364 RG 7-238 #119-1395
RUNJRS 001416 R *119-1398 119-1399 #119-1406
RUNPRG 001370 RG 7-240 #119-1397 156-224
R$$20F = 000001 #3-48 44-187 49-469 96-12 96-13 96-14 96-15 97-63 97-67
97-80 97-89 97-99 97-100 97-102 97-107 98-124 98-124 98-127
98-140 98-150 98-163 98-175 98-176 98-178 98-184 98-185 98-187
98-188 98-189 98-190 98-197 98-206 98-207 98-212 98-213 98-214
98-215 99-231 99-231 99-233 99-243 99-256 99-257 99-258 99-260
99-261 99-266 99-269 99-289 99-290 100-318 100-318 100-320 100-321
100-329 100-330 107-666 110-869 110-892 114-1134 117-1282 117-1283 117-1284
117-1285 117-1285 117-1285 117-1288 118-1316 118-1316 118-1317 118-1332 118-1333
119-1399 120-1414 120-1415 120-1416 120-1417 120-1420 120-1424 120-1436 120-1445
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 14
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
120-1446 120-1452 120-1461 120-1467 120-1468 120-1480 120-1481 120-1483 121-1497
121-1497 121-1510 121-1510 122-1525 122-1535 122-1536 122-1547 122-1548 122-1549
122-1550 122-1552 124-1606 124-1606 124-1610 124-1610 125-1646 125-1647 125-1666
126-1698 126-1698 126-1699 126-1719 126-1720 127-1745 127-1746 127-1760 127-1761
127-1764 127-1774 127-1788 127-1789 127-1795 127-1796 127-1799 127-1837 127-1838
128-1869 128-1869 129-1895 129-1895 129-1898 132-1974 132-1974 132-1976 132-1980
132-1981 132-1984 132-1985 132-1988 132-2017 132-2018 132-2019 132-2020 132-2021
132-2021 133-2044 133-2045 133-2047 134-2067 134-2075 134-2083 135-2110 136-2189
136-2190 152-33 152-34 152-35 152-36 152-37 152-38 152-55 152-56
152-57 152-58 152-59 154-103 154-136 154-148 155-160 155-168 155-170
155-172 155-173 155-187 155-188 155-189 155-191 155-199 155-201 156-217
156-219 156-220 156-221 156-224 156-226 156-226 156-227 157-265 157-286
157-298 159-382 160-435 160-435 160-439 160-439 161-499 161-499 161-504
161-504 161-507 161-507 161-510 161-510 162-548 162-551 162-552 162-553
162-554 163-567 163-571 163-572 163-573 163-574 163-579 163-586 163-593
163-600 163-607 164-664 165-709 168-886
R5.PC 003420 RG 7-237 121-1510 124-1610 129-1916 132-2021 #135-2172 154-128 157-281
SAV.5 003362 RG 7-238 121-1497 124-1606 128-1851 132-1974 #135-2144 154-102 156-216
SBDG2 000632 R #99-234
SBDG3 000722 R *99-232 99-235 #99-266
SBDI 000620 R #99-230
SBDT 000572 RG 7-238 #99-224
SBD0 000622 RG 7-238 99-227 #99-231
SBSREC 006113 R #165-705
SBSRL 005500 RG 7-222 160-435 160-439 161-499 161-504 161-507 161-510 #162-544
SBUS = 100000 #26-1126 152-34
SCAN 005004 RG 7-223 157-265 #158-312
SDMA 000352 R *97-87 97-91 #97-102 *98-183
SDMSBR 006516 RG 7-219 162-551 #166-744
SDWDFM 000724 RG 7-238 99-257 #99-267
SD16 000613 R #99-229 99-256
SECLK = 000003 #55-118
SETA = 000424 #12-263
SETAB = 000427 #12-266
SETAI = 000425 #12-264
SETAM = 000426 #12-265
SETBBD 005262 RG 7-226 155-201 #160-434
SETCA = 000450 #12-287
SETCAB = 000453 #12-290
SETCAI = 000451 #12-288
SETCAM = 000452 #12-289
SETCM = 000460 #12-295
SETCMB = 000463 #12-298
SETCMI = 000461 #12-296
SETCMM = 000462 #12-297
SETCMP 005340 RG 7-223 155-187 #161-496
SETCON 000714 R #99-263
SETM = 000414 #12-255
SETMB = 000417 #12-258
SETMI = 000415 #12-256
SETMM = 000416 #12-257
SETMR = 000007 #55-121
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 15
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SETO = 000474 #12-307
SETOB = 000477 #12-310
SETOI = 000475 #12-308
SETOM = 000476 #12-309
SETPAR 003440 RG 7-239 #136-2182 162-548
SETRAM 001002 RG 7-239 #100-305 155-189
SETRPC 001376 R #119-1399
SETRUN = 000011 #55-123 98-212 120-1414
SETZ = 000400 #12-240 97-68 97-68
SETZB = 000403 #12-246
SETZI = 000401 #12-242
SETZM = 000402 #12-244
SJDATA 001410 R #119-1402
SKIP = 000330 #12-199
SKIPA = 000334 #12-203
SKIPE = 000332 #12-201
SKIPG = 000337 #12-206
SKIPGE = 000335 #12-204
SKIPL = 000331 #12-200
SKIPLE = 000333 #12-202
SKIPN = 000336 #12-205
SMFSS 005172 R 159-372 159-373 159-374 #159-375 159-375
SMFSS0 005166 RG 7-226 154-136 155-160 155-172 #159-374
SMFSS1 005162 R 155-191 #159-373
SMFSS2 005156 RG 7-222 #159-372
SOJ = 000360 #12-223
SOJA = 000364 #12-227
SOJE = 000362 #12-225
SOJG = 000367 #12-230
SOJGE = 000365 #12-228
SOJL = 000361 #12-224
SOJLE = 000363 #12-226
SOJN = 000366 #12-229
SOS = 000370 #12-231
SOSA = 000374 #12-235
SOSE = 000372 #12-233
SOSG = 000377 #12-238
SOSGE = 000375 #12-236
SOSL = 000371 #12-232
SOSLE = 000373 #12-234
SOSN = 000376 #12-237
SRI8MB = ****** 167-795
SSCLK = 000002 #55-117 122-1521 122-1538 132-1995
STEP 001670 R #122-1520
STEPK 001666 R *121-1499 *121-1503 121-1505 121-1508 #121-1512
STEP1 001670 R #122-1521
STPCLK = 000000 #55-115 132-1980 132-1990
STRCLK = 000001 #55-116 97-62 97-64 117-1291 127-1745 132-1989 132-2019 156-219
STRFSD 000502 R 97-88 98-125 #98-195 100-319
SUB = 000274 #12-171
SUBB = 000277 #12-174
SUBI = 000275 #12-172
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 16
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SUBM = 000276 #12-173
SXCT = 000106 #12-54
TADR = 000010 #36-1491
TBN = 000004 #36-1490
TCN = 000001 #36-1488
TDC = 000650 #12-415
TDCA = 000654 #12-419
TDCE = 000652 #12-417
TDCN = 000656 #12-421
TDN = 000610 #12-383
TDNA = 000614 #12-387
TDNE = 000612 #12-385
TDNN = 000616 #12-389
TDO = 000670 #12-431
TDOA = 000674 #12-435
TDOE = 000672 #12-433
TDON = 000676 #12-437
TDZ = 000630 #12-399
TDZA = 000634 #12-403
TDZE = 000632 #12-401
TDZN = 000636 #12-405
TGN = 000002 #36-1489
TIMFS = 000044 #40-32
TIMINT 001414 R #119-1404 *120-1435 *120-1448
TIMNO0 007002 RG 7-218 #168-857 168-874
TIMNO1 007012 RG 7-218 #168-858
TLC = 000641 #12-408
TLCA = 000645 #12-412
TLCE = 000643 #12-410
TLCN = 000647 #12-414
TLN = 000601 #12-376
TLNA = 000605 #12-380
TLNE = 000603 #12-378
TLNN = 000607 #12-382 157-291 157-291
TLO = 000661 #12-424 157-292 157-292
TLOA = 000665 #12-428
TLOE = 000663 #12-426
TLON = 000667 #12-430
TLZ = 000621 #12-392
TLZA = 000625 #12-396
TLZE = 000623 #12-394
TLZN = 000627 #12-398
TOCTLP 003706 R #154-109 154-124
TOMFLP 003714 R #154-112 154-122
TRC = 000640 #12-407
TRCA = 000644 #12-411
TRCE = 000642 #12-409
TRCN = 000646 #12-413
TRN = 000600 #12-375
TRNA = 000604 #12-379
TRNE = 000602 #12-377
TRNN = 000606 #12-381 157-287 157-287
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 17
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TRO = 000660 #12-423
TROA = 000664 #12-427
TROE = 000662 #12-425
TRON = 000666 #12-429
TRPAR = 010000 #44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203
TRZ = 000620 #12-391
TRZA = 000624 #12-395
TRZE = 000622 #12-393
TRZN = 000626 #12-397
TSC = 000651 #12-416
TSCA = 000655 #12-420
TSCE = 000653 #12-418
TSCN = 000657 #12-422
TSN = 000611 #12-384
TSNA = 000615 #12-388
TSNE = 000613 #12-386
TSNN = 000617 #12-390
TSO = 000671 #12-432
TSOA = 000675 #12-436
TSOE = 000673 #12-434
TSON = 000677 #12-438
TSTCON 001000 RG 7-239 *99-263 99-281 #99-292 *154-109 *154-112 154-113 154-121 154-134
159-383 168-842
TSZ = 000631 #12-400
TSZA = 000635 #12-404
TSZE = 000633 #12-402
TSZN = 000637 #12-406
TYPE0 006372 RG 7-213 #166-731
TYPE1 006402 RG 7-213 #166-732
TYPE2 006412 RG 7-214 #166-733
TYPE3 006422 RG 7-214 #166-734
TYPE4 006432 RG 7-214 #166-735
TYPE5 006442 RG 7-214 #166-736
TYPE6 006452 RG 7-214 #166-737
TYPE7 006462 R #166-738
TYPNUM 006004 RG 7-210 154-114 *154-137 #165-693
UFA = 000130 #12-71
UNDCTN = 000007 #43-174
UNDEF 006114 RG 7-212 #165-706
WENABL = 004000 #44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204
W11 = 000000 #117-1285 117-1285 117-1285
X = 000000 #96-18 96-18 #96-19 96-19 #96-20 96-20 #96-21 96-21 #97-63
97-63 #97-63 97-63 #97-68 97-68 #97-69 97-69 #97-70 97-70
#97-71 97-71 #97-72 97-72 #97-73 97-73 #97-74 97-74 #97-75
97-75 #99-229 99-229 #107-706 107-706 #117-1301 117-1301 #117-1302 117-1302
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 18
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#119-1406 119-1406 #155-189 155-189 #157-287 157-287 #157-288 157-288 #157-289
157-289 #157-290 157-290 #157-291 157-291 #157-292 157-292 #157-293 157-293
#157-294 157-294 #157-295 157-295 #157-296 157-296 #159-388 159-388 #159-389
159-389 #166-744 166-744 #166-745 166-745
XCONMP 006760 RG 7-225 #168-853
XCT = 000256 #12-157
XDV = 000004 #96-18 96-18 96-18 #96-19 96-19 96-19 #96-20 96-20 96-20
#96-21 96-21 96-21 #97-71 97-71 97-71 #99-229 99-229 99-229
#117-1301 117-1301 117-1301 #157-289 157-289 157-289
XMAL 006534 RG 7-205 #166-758
XOP = 000002 #96-18 96-18 96-18 #96-19 96-19 96-19 #96-20 96-20 96-20
#96-21 96-21 96-21 #97-71 97-71 97-71 #99-229 99-229 99-229
#117-1301 117-1301 117-1301 #157-289 157-289 157-289
XOR = 000430 #12-267 97-72 97-72
XORB = 000433 #12-270
XORI = 000431 #12-268
XORM = 000432 #12-269
XR = 000000 #96-18 96-18 #96-19 96-19 #96-20 96-20 #96-21 96-21 #97-68
97-68 #97-69 97-69 #97-70 97-70 #97-71 97-71 #97-72 97-72
#97-73 97-73 #97-74 97-74 #97-75 97-75 #99-229 99-229 #117-1301
117-1301 #119-1406 119-1406 #157-287 157-287 #157-288 157-288 #157-289 157-289
#157-290 157-290 #157-291 157-291 #157-292 157-292 #157-293 157-293 #157-294
157-294
XSTEP 001702 R #122-1524 125-1646
XX 000000 R #96-9
XXWD 000032 RG 7-239 96-12 #96-16
XXX = 000003 #117-1285 117-1285
XX1 000002 RG 7-239 #96-10
Z = 000200 #97-63 97-63 #97-63 97-63 #97-63 97-63 #97-63 97-63 #97-63
97-63 #97-63 97-63 #97-63 97-63 97-63 #97-63
ZERO.. 001120 R #107-705 132-2017
$ACBLK = 000001 #6-178 #98-207 116-1259 #118-1316 #126-1698 #128-1869
$ACRAM = ****** GX 132-1993
$APRID = 000000 #55-129 96-21
$BP. = 000160 #117-1285 117-1285
$BRST = 000001 #44-189 #117-1284 122-1540
$BURST = ****** GX 122-1546
$CALPA = 000001 #6-185 #136-2183 136-2192
$CGOTO = ****** 119-1352
$CNTSD = 000001 #6-187 #98-124 #99-231 99-271 #100-318 #129-1895 #156-217
$CONEX = ****** 49-469 163-567 163-571 163-572 163-573 163-574 163-579 163-586 163-593
163-600 163-607 165-709
$CONFI = 000001 #6-163 151-22
$COPYA = ****** 117-1308 118-1337
$DBGSR = ****** 135-2146 135-2161
$DDFRD = ****** GX 124-1633 125-1649
$DDFWR = ****** GX 117-1290 132-1984 132-1996 132-1997 132-2017
$DDFXC = ****** GX 97-62 97-64 98-212 98-214 117-1282 117-1289 117-1291 120-1414 120-1416
122-1521 122-1524 127-1745 132-1980 132-1989 132-1990 132-1995 132-2019 156-219
$DEBUG = ****** 100-312 110-924 120-1470 126-1687 127-1812 128-1858 128-1875
$DFPC = ****** GX 120-1467
$DMADE = ****** 163-572 163-586
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 19
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$DMPAC = 070010 #12-10
$DPD = ****** 163-573 163-579 163-607
$DPOST = ****** GX 97-92 98-143 99-236 127-1778 129-1902
$DTRW1 = ****** GX 98-151 98-198 120-1438 120-1453 122-1526
$EB = 004722 R #97-67 97-80 #157-286 157-298
$ENTHA = ****** 107-713
$EVENT = 000001 #44-190 123-1597
$EXAMT = ****** GX 96-12 99-257 118-1319 156-230
$EXCT = ****** GX 96-10 133-2040
$EXP16 = 000001 #6-169 158-343
$FATAL = ****** GX 97-111 117-1293 122-1554 127-1788 134-2068 134-2076 134-2084 157-279 158-316
158-337
$FIND = 000001 #44-188 #117-1285 120-1487
$FITME = ****** 163-567 163-607 165-709
$FSD = 000001 #6-181 96-47 97-51 #163-575
$GETCT = 070020 #12-12
$GMCN = ****** 143-2598
$IND36 = 000003 #28-1177
$INIUD = ****** 148-2807
$INVAL = ****** 130-1946
$JAB = ****** 98-205 117-1272 119-1383 126-1684 145-2684
$KLMR = ****** GX 97-62 97-64 132-1993 156-218
$KL10A = 000101 #41-61
$KL10B = 000102 #41-62
$LDAR = ****** GX 117-1281
$LDEFE = 000001 #6-190 127-1842
$LOADA = 000001 #6-177 #156-221
$MABL = 000001 #6-183 #97-63 126-1674
$MABPA = ****** 163-571 163-593
$MASK3 = ****** 105-558 106-607
$MB = ****** 151-5
$MBINI = 000001 #6-166 162-556
$MMRES = 000001 #6-167 155-205
$MOCMD = ****** 142-2553
$MOSDE = 000001 #6-165 152-63 168-853
$MOSDM = ****** 100-335
$MSKDA = ****** 105-558 106-631
$MSK36 = ****** 105-558
$MX20M = ****** 163-574 163-600
$OPSEL = ****** 108-790
$OVRLO = ****** 144-2662
$PATCH = 070004 #12-9
$PATER = ****** 104-542
$PENDI = ****** 142-2537
$PNTAP = ****** 144-2624
$PNTVE = ****** 110-852
$PWTES = ****** 106-649
$QXCT = 000001 #6-179 #99-256 #119-1399 132-2029
$RDERA = 000000 #55-131 96-19
$READA = 000001 #6-184 117-1308
$RELOA = 000001 #28-1175
$RESDE = 000001 #6-164 152-43
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 20
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$RESET = 000001 #6-182 #98-206 131-1962 #152-34
$RSTAC = 070030 #12-14
$RUN = 000001 #6-176 #156-224
$SAVAC = 070024 #12-13
$SBDIA = 000002 #55-127 97-71 99-229 157-289
$SBSRL = 000001 #6-173 159-391 161-514
$SCAN = 000001 #6-168 157-301
$SDW = 000002 #28-1176
$SETBB = 000001 #6-171 159-391 160-396
$SETCM = 000001 #6-172 159-391 160-443
$SETPA = 000001 #6-186 136-2177 #162-548
$SETRA = 000001 #6-189 99-295 #155-189
$SIZ16 = 033061 #41-64
$SIZ32 = 031063 #41-65
$SIZ4K = 032060 #41-63
$SIZ64 = 032066 #41-66
$SMFSS = 000001 #6-170 159-362
$STEP = 000001 #44-191 121-1514
$STEP1 = ****** 129-1918
$STKEM = ****** 136-2211
$STKME = ****** 141-2461
$S10. = 155160 #117-1285 117-1285
$TB = 000005 #97-67 97-80 #157-286 157-298
$TDB2O = ****** GX 154-144
$TIMLP = 070014 #12-11
$TL = 000012 #97-80 97-80 #157-298 157-298
$TTDMS = ****** GX 154-142 154-145
$XX = 000001 #6-188 96-6
$$APRI = 000000 #55-130 96-21
$$NARG = 000001 #156-221 156-221 156-221
$$RDER = 000004 #55-132 96-19
$$SBDI = 000004 #55-128 97-71 99-229 157-289
$10BC = 070040 #12-16
$10BP = 070034 #12-15
$10MB = 070050 #12-18
$10RB = 070044 #12-17
.DAT3 002156 R 124-1627 #125-1669
.DFRBK = ****** GX 125-1669
.RESET 003032 RG 7-237 98-206 #132-1974 152-34
.SBDIA = 000001 #6-180 96-47 99-219
.TICKS = ****** GX 120-1437 120-1445
... = 000377 #12-25
...... = 177777 #12-24 97-102 98-178 99-266 99-292 117-1307 119-1402 120-1485 127-1800
127-1801 127-1840
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 21
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ACBLK #20-787 98-207 118-1316 126-1698 128-1869
BLK10 #29-1207 #97-67 #157-286
BP. #13-482 #117-1285
BRST #18-716 117-1284
BTOFIX #47-336
BURST #68-556 122-1546
CABTE #46-291
CALL #53-38
CALLR #53-47
CALPAR #33-1363 136-2183
CGOTO #16-617
CNTSD #33-1381 #98-124 #99-231 #100-318 #129-1895 #156-217
CONDET #46-311 #152-55
CONDMA #45-222 152-35
CONFIG #45-218
CONMAB #45-230 #152-36
CONMOS #45-226 #152-38
CONMX #47-354 #152-37
CONTIN #14-552 156-226
COPYAC #31-1325
CTFMTC #46-307
DBESCN #46-287 155-199
DCNFBB #47-326
DFPC #67-526 120-1467
DFRD #56-163 #124-1633 #125-1649
DFRDT #57-184
DFSCLK #66-516 122-1521
DFWRT #58-225
DFWRTT #59-265 117-1290 132-1984 132-1996 132-1997 132-2017
DFXCT #60-304 #122-1521 #122-1524
DFXCTT #61-336 #98-212 #98-214 #117-1282 #117-1289 #117-1291 #120-1414 #120-1416 #127-1745 #132-1980
#132-1989 #132-1990 #132-1995 #132-2019 #156-219
DMADET #45-246 #152-56
DOLOOP #22-907
DPD #45-258 155-170
DPOS #62-369
DPOST #63-409 #97-92 #98-143 #99-236 #127-1778 #129-1902
DSOBAC #18-707
DTEBAS #69-570
ENBLPS #21-854
ENDBLK #29-1222 97-80 157-298
ENDLOO #21-878
ENDTIM #42-126
ERRCOM #50-487
ERRMSG #50-473
ERROR #50-479
EVENT #17-650
EXAM #64-448
EXAMT #65-494 96-12 99-257 118-1319 156-230
EXCT #72-632 96-10 133-2040
EXECUT #23-978 99-256 119-1399
EXOR #54-99 136-2201 136-2204
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 22
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
EXP16K #47-364
FATAL #38-1590 #94-1291 97-111 117-1293 122-1554 127-1788 134-2068 134-2076 134-2084 157-279
158-316 158-337
FIND #17-669 117-1285
FITMEM #45-238 152-33
FIXSB #47-340
FSD #25-1070 162-552
FSDCHK #26-1100 #159-382
FSDMSK #25-1050 155-188 162-551
GBSRL #49-432
GETBBD #48-400 #155-173
GETCMP #48-410
GETTF #46-283
GMCN #37-1522
ICEON #47-321
IND36 #28-1190
INIBSR #48-390
INIUDF #38-1583
INVAL #20-817
IO10 #30-1275 96-18 96-19 96-20 96-21 97-71 99-229 117-1301 157-289
I10 #30-1252 97-68 97-69 97-70 97-72 97-73 97-74 97-75 119-1406 157-287
157-288 157-290 157-291 157-292 157-293 157-294
JAB #37-1535
LDATIM #49-455
LDBESP #47-331
LDEFER #38-1594
LDFSDP #26-1095 #163-575
LDFVR #46-271
LDNADR #46-267
LDREFR #46-279
LDTIMR #46-275
LOADAC #19-761 #156-221
LODAR #70-601 117-1281
LOOP #21-869
LOOPCO #22-896
LOOPDO #22-912
MABDET #46-295 #152-57
MABL #27-1138 97-63
MABPAD #46-299
MASK36 #35-1445
MB #45-214
MBINI #46-315
MMRESP #45-262
MOSDET #45-250 #152-59
MOSDMP #23-955
MRESET #75-723 #156-218
MSKDAT #35-1474
MSK36R #35-1462
MXTADR #47-349
MX20MD #47-344 152-58
NUMARG #16-626 #156-221
NUMTXT #16-608
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 23
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
OVRLOD #38-1576
PATERR #23-965
PBELL #89-1150
PCRLF #89-1158
PENDIS #36-1515
PFORCE #77-776
PMSG #86-1059 154-142 154-145
PNORML #77-779
PNTADR #79-834
PNTAL #87-1090
PNTAPR #36-1504
PNTBAK #77-782
PNTDEC #84-980
PNTNBR #80-861
PNTOCS #83-948 #154-144
PNTOCT #82-916
PNTODT #85-1013
PNTVER #20-807
PNT36 #78-806
PNT36B #81-889
POP #4-95 #53-65 #97-63 #97-93 #98-144 #98-206 #99-237 #99-288 #100-328 #117-1284
#117-1285 #120-1435 #121-1509 #124-1609 #126-1706 #126-1718 #127-1779 #127-1794 #127-1836 #129-1903
#135-2159 #135-2174 #136-2188 #136-2207 #152-34 #155-189 #156-221 #156-224 #156-231 #159-359
#159-382 #159-385 #160-440 #161-511 #162-548 #162-552
PSLASH #89-1146
PSPACE #89-1142
PTAB #89-1154
PUSH #4-89 #53-59 #97-90 #98-141 #99-234 #99-280 #100-305 #121-1498 #124-1607 #126-1685
#126-1700 #126-1701 #126-1702 #127-1736 #127-1740 #127-1776 #127-1811 #129-1899 #133-2042 #135-2144
#136-2182 #136-2198 #156-228 #156-258 #159-347 #159-379 #160-434 #160-435 #160-435 #160-439
#160-439 #161-496 #161-499 #161-499 #161-504 #161-504 #161-507 #161-507 #161-510 #161-510
#168-845
PWTES #20-827
RDPROM #45-254 155-168
READAC #31-1309
REGRST #76-760
REGSAV #76-756
REPCON #46-303
REPFIT #45-234
RESDET #45-242
RESET #26-1112 #98-206 #152-34
RETURN #53-51
RST.4 #32-1343
RST.5 #32-1354
RUN #15-565 156-224
R4.R5 #32-1347 121-1510 124-1610 132-2021
R5.PC #32-1357 #129-1916 #154-128 #157-281
SAV.4 #32-1339 #121-1497 #124-1606 #132-1974
SAV.5 #32-1351 #128-1851 #154-102 #156-216
SBDIAG #24-1002
SBSRL #49-416 #160-435 #160-439 #161-499 #161-504 #161-507 #161-510
SCAN #47-359 #157-265
MBROOT CREATED BY MACRO ON 17-SEP-79 AT 09:00 PAGE 24
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
SETBBD #48-395 #155-201
SETCMP #48-405 155-187
SETPAR #33-1368 162-548
SETRAM #34-1422 155-189
SL #54-71
SM #73-662 #97-62 #97-64
SMFSS #48-375 154-136 155-160 155-172 155-191
SOBAC #18-696
SR #54-85
STEP #19-733
STEP10 #17-639
STKEMD #36-1496
STKMEP #36-1482
STOPLO #22-887
STPCON #18-686
S10. #14-509 117-1285
TBIT #14-535
TICK #42-94
TIMING #41-68
TIMSIG #40-43 44-201 44-202 44-203 44-204 44-205 44-206 44-207
TTIDEC #91-1214
TTILIN #92-1240
TTILNW #93-1266
TTIOCT #90-1186
UMAC #37-1550
WD36 #29-1243 #107-706 #117-1302 #155-189 #157-295 #157-296 #159-388 #159-389 #166-744 #166-745
WWADR #74-691 132-1993
XO10 #29-1218
XX #33-1397
X10 #29-1214
$CNG #22-918
$DEF #4-84 #52-34 #52-36
$ENDLO #22-933
$LOOP #22-922
$PMSG #88-1111
$PRADR #13-465
$RDG #22-927
$STOPL #22-930
.MAIN. MACRO M1110 17-SEP-79 09:06
TABLE OF CONTENTS
3- 1 ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
96- 12 MSSCTL RESIDENT MOSDET SUBROUTINE CODE
101- 241 READ MOS PROM DATA FOR A CONTROLLER
103- 319 DIGEST PROM DATA FOR A MOS CONTROLLER
105- 383 SUBROUTINE TO DECONFIGURE BAD MF20 BLOCKS
106- 436 LOAD ALL NON-ADDRESS-RESPONSE RAMS FOR A MOS CONTROLLER
107- 465 LOAD A MOS CONTROLLER'S FIXED VALUE RAMS
109- 553 LOAD A MOS CONTROLLER'S TIMING RAMS
110- 621 LOAD & START REFRESH FOR A MOS CONTROLLER
111- 657 MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
114- 796 ROUTINES TO GET DATA FROM UNUSED BITSUB RAM LOCATIONS
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 1
1 177777 MSSCTL==-1
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 3
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
.SBTTL ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
2
3 .NLIST CND,BEX
4 .LIST MC,MD,MEB
5 .ENABL AMA
6
9 .TITLE MSSCTL -- MOS SOFTWARE STATE CONTROL CODE OVERLAY
12
13 .REM %
14 THIS FILE CONTROLS THE ASSEMBLY OF THE 5 MEMORY BOOT OVERLAY MODULES.
15 WHICH ONE OF THE MODULES IS DETERMINED BY WHICH ONE OF 5 SYMBOLS IS DEFINED.
16 THE SYMBOLS ARE:
17
18 MBROOT, CORDET, MSSCTL, DBEOVL, OR FITCON.
19
20 THE SYMBOL SHOULD BE DEFINED IN THE ASSEMBLY CONTROL COMMAND USING THE /EQ:
21 SWITCH. ONE OTHER SYMBOL MAY BE DEFINED WITH THE EQUATE SWITCH: DEFINE "MBOKLG"
22 WHEN DOING AN R$$20F ASSEMBLY IN THE DIAGNOSTIC ENVIRONMENT. THIS SATISFIES
23 EXTERNAL REFERENCES BY EXPLCITLY DEFINING THOSE SYMBOLS.
24
25 THE OVERLAY STRUCTURE OF THE MEMORY BOOT IS SIMPLE: ONE ROOT MODULE,
26 MBROOT, WHICH LOADS ONE OF THE OTHER 4 MODULES UNDERNEATH IT AS NECESSARY. THE
27 TOTAL LENGTH OF OVERLAYS RESIDENT AT ANY ONE POINT IN TIME MUST BE LESS THAN
28 16000(OCTAL) BYTES, BUT IT IS PREFERABLE TO KEEP IT AROUND 14000 TO ALLOW FOR
29 EXPANSION. THE OVERLAY STRUCTURE IS SHOWN GRAPHICALLY BELOW:
30
31 MEMORY
32 16000
33 MAX
34 ! +-----------------------------------------------------------+
35 ! ! !
36 ! ! MBROOT (ROOT MODULE) !
37 ! ! !
38 ! +--------------+--------------+--------------+--------------+
39 ! ! ! ! ! !
40 ! ! CORDET ! MSSCTL ! DBEOVL ! FITCON !
41 V ! ! ! ! !
42 +--------------+--------------+--------------+--------------+
43
44 TIME --------->
45
46 %
47
48 000001 R$$20F=1 ; *****FORCE ASSEMBLY OF MEM BOOT IN FRONT-END MODE *****
49
50 ;-----DEFINE "CONMMR" TO AID IN MEMORY BOOT ERROR CHECKING. UNDEFINE IT
51 ; TO SAVE APPROXIMATELY 400(8) BYTES IN THE MEMORY BOOT ROOT MODULE. NOTE
52 ; THAT IF YOU UNDEFINE OR REDEFINE THIS THEN YOU MUST ALSO CHANGE THE POSITION
53 ; SUBROUTINE "MMRESP" IN THE FILE MBSUB.P11 SO THAT IT IS IN THE PROPER MODULE.
54 000001 CONMMR=1
55
56 ;-----LISTING CONTROL.
57 000001 LSTMB=1
58 000001 LSBRTN=1
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 4
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
60 ;-----SYMBOLS DEFINED TO GET RID OF UNDEFINED PROBLEMS. THESE SYMBOLS WOULD
61 ; NORMALLY COME FROM PRM11.P11.
62
63 000001 BIT0=1.
64 000002 BIT1=2.
65 000004 BIT2=4.
66 000010 BIT3=8.
67 000020 BIT4=16.
68 000040 BIT5=32.
69 000100 BIT6=64.
70 000200 BIT7=128.
71 000400 BIT8=256.
72 001000 BIT9=512.
73 002000 BIT10=1024.
74 004000 BIT11=2048.
75 010000 BIT12=4096.
76 020000 BIT13=8192.
77 040000 BIT14=16384.
78 100000 BIT15=32768.
79
80 001000 HALTLP= BIT9 ;EBOX IS IN HALT LOOP
81 004000 ERRSTP= BIT11 ;EBOX CLOCK STOPPED DUE TO ERROR
82
83 ;-----OTHER SYMBOLS DEFINED TO MAKE FLAGS GO AWAY.
84 .MACRO $DEF ;MAKE THE O FLAG GO AWAY ......
85 .ENDM
86
87 ;-----PUSH AND POP MACROS ARE GIVEN HERE JUST TO NEATEN UP THE LISTING SOME.
88
89 .MACRO PUSH A
90 .IRP B,<A>
91 MOV B,-(SP) ;PUSH B ON STACK
92 .ENDR
93 .ENDM
94
95 .MACRO POP A
96 .IRP B,<A>
97 MOV (SP)+,B ;POP STACK INTO B
98 .ENDR
99 .ENDM
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 9
ASSEMBLY CONTROL, LABEL & SYMBOL DEFINITIONS.
270 ;-----THE FOLLOWING DEFINITIONS FORCE ASSEMBLY OF THE MEMORY BOOT SUBROUTINES
271 ; REQUIRED FOR THIS MODULE.
272
273 000001 $MOSDET=1 ;SECOND HALF OF MOSDET
274 000001 $RDPROM=1
275 000001 $DPD=1
277 000001 $LDNADR=1
278 000001 $LDFVR=1
279 000001 $LDTIMR=1
280 000001 $LDREFR=1
281 000001 $GETTF=1
282 000001 $DCNFBB=1
283 000001 $MX20MD=1
284 000001 $GETBBD=1
285 000001 $GETCMP=1
286 000001 $GBSRL=1
287 000001 $LDATIM=1
288
289
295 ;-----THE FOLLOWING MEMORY BOOT LABELS ARE GLOBAL.
296
297 .GLOBL DCNFBB,DPD,GETBBD,GETCMP,LDNADR
298 .GLOBL MX20MD,QRESET,RDPROM,TMFLNM
299 .GLOBL MDINIT,MDST0,MDST23
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 95
REGISTER SAVE/RESTORE TRANSLATION MACROS
5
6 ;-----THIS SOURCE MODULE CONTAINS THE UPDATE FOR TCO "KLI 4.2070". THIS CHANGE
7 ; CAUSES A NOTIFICATION TO THE CTY WHEN A BLOCK IS TAKEN OFF LINE BECUASE OF A
8 ; DOUBLE BIT ERROR. PRIOR TO THIS TCO THE BLOCK WAS REMOVED SILENTLY.
9
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 96
MSSCTL RESIDENT MOSDET SUBROUTINE CODE
12 .SBTTL MSSCTL RESIDENT MOSDET SUBROUTINE CODE
13
14 ;-----SUBROUTINE LOCAL TO THE MOSDET PROCESS. FIRST RESET ALL MF20 DATA AREAS.
15 ; COPY DMA20 ADR RESPONSE SO THAT WE CAN CHECK FOR CONFLICT WITH PRECONFIGURED
16 ; (SS 2/3) MF20S.
17 000000 MDINIT: RESET SBUS+CPU ;RESET HDWR
000000 004537 000006' JSR R5,64$ ;SAV R5, PT TO & SKIP SBUS+CPU LIST
000004 100200 .WORD SBUS+CPU
000006 004737 000000G 64$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
000012 012605 MOV (SP)+,R5
18 000014 105737 000000G TSTB MF20RD ;WAS MF20 RESDET DONE BEFORE?
19 000020 001002 BNE 1$ ;YES.. DON'T CLR DATA
20 000022 004737 000000G JSR PC,INIMDF ;INI MF20 DATA AREAS
21 000026 012700 000040 1$: MOV #32.,R0 ;COPY DMA20 RESP MAP INTO RSPMAP.
22 000032 016060 177776G 177776G 2$: MOV DMARMP-2(R0),RSPMAP-2(R0)
23 000040 005300 DEC R0
24 000042 077005 SOB R0,2$ ; (LP TIL DONE)
25 ; NOW CREATE WHAT WE EXPECT THE "CPU CONNECTED" MAP TO BE.
26 000044 012701 000020G MOV #CONTI+MXMFCN+1,R1 ;CREATE A MAP OF SS 2/3 MF20S
27 000050 005003 CLR R3 ;THIS MAP GOES IN R3
28 000052 114100 3$: MOVB -(R1),R0
29 000054 006200 ASR R0
30 000056 006200 ASR R0
31 000060 006103 ROL R3 ; (SS 2/3 BIT INTO RHE OF R3)
32 000062 020127 000010G CMP R1,#CONTI+MNMFCN
33 000066 101371 BHI 3$ ; (LP TIL ALL MF20S SEEN)
34 000070 010337 000000G MOV R3,XCONMP ;SAVE CONNECTED CPU MAP
35 000074 000207 RTS PC
36
37
38
39 ;-----SECTION FOR SS 0 MF20S. THIS IS THE STATE AN MF20 WILL BE IN AFTER POWER
40 ; UP SO, NEEDLESS TO SAY, WE HAVE A LOT OF INITIALIZING TO DO.
41 000076 126027 000000G 000001 MDST0: CMPB CONTI(R0),#1 ;TEST THE SFTWR STATE OF THIS MF20
42 000104 002047 BGE BOLPSJ ;CONTR NOT SS0.. GO TO NEXT CONTR
43 000106 RDPROM ;GET ARRAY BD PROM DATA
000106 004737 002060' JSR PC,RDPROM ;READ MOS PROM DATA FOR A CONTROLLER
44 000112 103446 BCS MDHDEJ ;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
45 000114 DPD ;DIGEST THAT DATA
000114 004737 002266' JSR PC,DPD ;DIGEST PROM DATA FOR A MOS CONTROLLER
46 000120 103443 BCS MDHDEJ ;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
47 000122 MDST0A: LDNADR ;LD FIXED VAL, TIMING, AND ALL THAT STUFF
000122 004737 002734' JSR PC,LDNADR ;LOAD ALL NON-ADDRESS-RESPONSE RAMS FOR A MOS CONTROLLER
48 000126 103440 BCS MDHDEJ ;BR ON HDWR ERROR...EXPUNGE CONTR & RESTART
49 000130 105237 000000G INCB DBESFL ;HAVE WE PRINTED DBE SCAN MSG YET?
50 000134 001033 BNE BOLPSJ ;YES, PRINT NOW EVEN THO SCAN STARTS LATER
51 000136 PMSG <STARTING MF20 DBE SCAN. WAIT 25 SEC/256K.\>
000136 012700 000150' MOV #64$,R0 ; ** MESSAGE POINTER TO R0
000142 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
000146 000426 BR 65$ ; ** BRANCH AROUND TEXT
000150 123 124 101 64$: .ASCIZ %STARTING MF20 DBE SCAN. WAIT 25 SEC/256K.\%
52
53
54 000224 000137 000000G BOLPSJ: JMP BOLPS ;DONE WITH SS0 MF20 FOR NOW. DBE SCAN IS LATER
55 000230 000137 000000G MDHDEJ: JMP MDHDER ;BR HERE FOR JUMP TO HARDWARE ERR ROUTINE
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 97
MSSCTL RESIDENT MOSDET SUBROUTINE CODE
57
58 ;-----SECTION FOR SS 2/3 MF20S. MAKE SURE THAT THERE ARE NO FATAL ERRORS
59 ; INDICATED IN THE ERROR FLAG REGISTER. IF THERE IS AN ERROR THEN GET RID OF
60 ; THE CONTROLLER BECAUSE IT MOST LIKELY IS WHAT CRASHED THE SYSTEM. "CONTR ERR"
61 ; DELETES THE CONTROLLER; "INCMP CYC", "ADR PAR" & "WR PAR" ERRORS ARE WARNINGS
62 ; (THEY COULD HAVE BEEN CAUSED BY THE CPU); AND MOS RAM DOUBLE BIT ERRORS WILL
63 ; DELETE THE FAULTY BLOCK & FORCE RECONFIGURATION.
64
65 ;-----DOUBLE BIT ERROR?
66 000234 MDST23: SBDIAG 0000,0000,0000 ;DO A FCN 0 TO GET THE ERR FLGS
000234 004537 000244' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
000240 000000 000000
000244 004737 000000G 64$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
000250 012605 MOV (SP)+,R5
67 000252 010001 MOV R0,R1 ;SAV PTR TO ERR WD IN R1
68 000254 032761 000004 000004 BIT #4,4(R1) ;IS "CORR ERR" FLG SET?
69 000262 001006 BNE 1$ ;YES.. IGNORE "RD PAR" FLG
70 000264 032761 000001 000004 BIT #1,4(R1) ;IS "RD PAR" SET (IE DID A DBE CRASH SYSTEM)
71 000272 001402 BEQ 1$ ;NO, GO LOOK FOR OTHER ERRORS
72 000274 000137 000760' JMP 9$ ;ELSE GO PRINT PERTINENT INFO & DEL BAD BLOCK
73
74 ;-----CONTROLLER ERROR (CTL RAM PAR ERR)?
75 000300 032761 000010 000004 1$: BIT #10,4(R1) ; "CONTR ERR" ?
76 000306 001431 BEQ 2$ ;NO.. KEEP GOING
77 000310 004737 002012' JSR PC,13$ ;ELSE DUMP FCN 0
78 000314 PMSG <\SBDIAG FCN 2: >
000314 012700 000326' MOV #65$,R0 ; ** MESSAGE POINTER TO R0
000320 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
000324 000410 BR 66$ ; ** BRANCH AROUND TEXT
000326 134 123 102 65$: .ASCIZ %\SBDIAG FCN 2: %
79 000346 SBDIAG 0000,0000,0002 ;DO A FCN 2 TO GET THE CTL RAM ERR FLAGS
000346 004537 000356' JSR R5,67$ ;SAV R5, PT TO & SKIP ARG LIST
000352 000002 000000
000356 004737 000000G 67$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
000362 012605 MOV (SP)+,R5
80 000364 PNT36 ;PRINT THEM OUT
000364 004737 000000G JSR PC,$WDD36 ; ** CALL TO PRINT ROUTINE
81 000370 000717 BR MDHDEJ ;GO PRINT SOME MORE STUFF & DEL CONTR
82
83 ;-----INCOMPLETE CYCLE?
84 000372 032761 000002 000004 2$: BIT #2,4(R1) ; "INCMP CYC" ?
85 000400 001004 BNE 3$ ;YES
86 000402 032761 140000 000002 BIT #140000,2(R1) ; "WR PAR" OR "ADR PAR" ERROR?
87 000410 001461 BEQ 4$ ;NO... CONTROLLER IS OK
88 000412 004737 002012' 3$: JSR PC,13$ ;DUMP FCN 0
89 000416 PMSG < CONTR >
000416 012700 000430' MOV #68$,R0 ; ** MESSAGE POINTER TO R0
000422 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
000426 000405 BR 69$ ; ** BRANCH AROUND TEXT
000430 040 040 040 68$: .ASCIZ % CONTR %
90 000442 013700 000000G MOV TSTCON,R0
91 000446 PNTOCS ;PRINT CONTR NUMBER TOO
000446 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
92 000452 PMSG <\WARNING: HDWR ERR SEEN. CAUSE UNKNOWN. CONTINUING.\>
000452 012700 000464' MOV #70$,R0 ; ** MESSAGE POINTER TO R0
000456 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
000462 000434 BR 71$ ; ** BRANCH AROUND TEXT
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 97-1
MSSCTL RESIDENT MOSDET SUBROUTINE CODE
000464 134 127 101 70$: .ASCIZ %\WARNING: HDWR ERR SEEN. CAUSE UNKNOWN. CONTINUING.\%
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 98
MSSCTL RESIDENT MOSDET SUBROUTINE CODE
94
95 ;-----CONTROLLER IS OK. ARE WE ALLOWING SS 2/3 MF20S? IF NOT FORCE IT BACK TO
96 ; SS1 AND GO ON TO THE NEXT, OTHERWISE PROCEED TO THE NEXT SECTION. MF20S PUT
97 ; BACK TO SS1 WILL BE HANDLED BY THE NEXT MOSDET STATE LOOP.
98 000554 105737 000000G 4$: TSTB FMRECN ;ARE WE FORCING MEM RECONFIG?
99 000560 001402 BEQ 5$ ;NO.. HANDLE THIS MF20 NOW
100 000562 000137 000000G JMP MDST1B ;ELSE FRC CONTR TO SS1 AND HANDLE AS SUCH
101
102 ;-----NOW SEE IF MF20 FITS IN WITH OTHERS. IF NOT THEN FORCE IT AND ALL THE
103 ; OTHER SS 2/3 BACK TO SS 1. IF SO THEN DELETE BAD BLOCKS IF NOT REQUIRED TO
104 ; KEEP THEM.
105 000566 004737 003004' 5$: JSR PC,QRESET
106 000572 GETCMP ;GET "CONNECTED" MAP. THIS MAP SAYS WHICH MF20
000572 004737 004734' JSR PC,GETCMP ;MOV MF20 CPU CONNECT DATA FROM BITSUB RAM TO R0
107 ; SHOULD BE CONNECTED TO THIS CPU. IF THIS MAP
108 ; DIFFERS FROM THE MAP COMPUTED EARLIER THEN THE
109 ; CONFIG IS BAD & WE MUST RECONFIGURE.
110 000576 103430 BCS 8$ ;MAP FORMAT IS BAD...FORCE RECONF
111 000600 020037 000000G CMP R0,XCONMP ;IS MAP CORRECT?
112 000604 001025 BNE 8$ ;NO...FORCE RECONF
113 000606 105737 000000G TSTB KEEPBB ;ARE WE KEEPING BAD BLOCKS?
114 000612 001013 BNE 7$ ;YES
115 000614 GETBBD ;GET BAD BLOCK DATA
000614 004737 004652' JSR PC,GETBBD ;MOV MF20 BAD BLK DATA FROM BITSUB RAM TO R0
116 000620 103003 BCC 6$ ;BR IF DATA FORMAT OK
117 000622 SMFSS 0 ;ELSE DROP MF20 TO SS 0...WE DONT KNOW BAD BLKS
000622 004737 000000G JSR PC,SMFSS0 ;GO SET SOFTWARE STATE TO 0
118 000626 000414 BR 8$ ;FRC RECONF...A CONTR HAS BEEN WIPED OUT SOMEHOW
119 000630 6$: DCNFBB ;DECONF BAD BLKS BEFORE DOING CONFLICT CHECK
000630 004737 002516' JSR PC,DCNFBB ;DECONFIGURE BAD MF20 BLOCKS, BAD BLK MAP IN R0
120 000634 103002 BCC 7$ ;BR ON NO HDWR ERR
121 000636 000137 000000G JMP MDHDER ;ELSE EXPUNGE CONTR & RESTART
122 000642 004737 003004' 7$: JSR PC,QRESET ;DO QUICKY RESET OF CONTROLLER
123 000646 MMRESP ;CHK FOR ADR RESP CONFLICT. IF OK FILL DATA
000646 004737 000000G JSR PC,MMRESP ;DETERMINE RESPONSE FOR A CONFIGURED MOS CONTROLLER
124 ; AREA WITH PSEUDO BLOCK LEN & ST ADR INFO.
125 000652 103402 BCS 8$ ;BR IF CONFLICT.. SEND MSG & FORCE RECONFIGURE
126 000654 000137 000000G JMP BOLPS ;ELSE JUST GO ON TO NXT CONTR
127 000660 8$: PMSG <EXISTING MEM CONFIG IS BAD. RECONFIGURING.\>
000660 012700 000672' MOV #72$,R0 ; ** MESSAGE POINTER TO R0
000664 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
000670 000427 BR 73$ ; ** BRANCH AROUND TEXT
000672 105 130 111 72$: .ASCIZ %EXISTING MEM CONFIG IS BAD. RECONFIGURING.\%
128 000750 105237 000000G INCB CCFAIL ;MARK CONFIG CONSISTENCY FAILURE
129 000754 000137 000000G JMP MDRECN ;CONFLICT...FORCE RECONFIGURE
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 99
MSSCTL RESIDENT MOSDET SUBROUTINE CODE
131
132 ;-----SECTION TO TYPE OUT DOUBLE BIT ERROR INFORMATION, MARK THE BLOCK AS BAD,
133 ; AND FORCE RECONFIGURATION, THUS DELETING THE BLOCK. THIS IS THE CODE BLOCK
134 ; WHICH WAS CHANGED FOR TCO "KLI 4.2070". PRIOR TO THIS TCO, THIS CODE DELETED
135 ; THE BAD BLOCK BUT DIDN'T SAY ANYTHING ABOUT THE DELETION.
136
137 000760 012002 9$: MOV (R0)+,R2 ;CREATE ERROR ADDRESS FROM FCN 0 & 2 WORDS
138 000762 011003 MOV (R0),R3
139 000764 PMSG <\DOUBLE BIT ERR FOUND IN CONFIGURED MF20.\FCN0: >
000764 012700 000776' MOV #74$,R0 ; ** MESSAGE POINTER TO R0
000770 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
000774 000431 BR 75$ ; ** BRANCH AROUND TEXT
000776 134 104 117 74$: .ASCIZ %\DOUBLE BIT ERR FOUND IN CONFIGURED MF20.\FCN0: %
140 001060 010100 MOV R1,R0 ;PT TO FCN 0 WORD
141 001062 PNT36 ;PRINT IT
001062 004737 000000G JSR PC,$WDD36 ; ** CALL TO PRINT ROUTINE
142 001066 PNTBAK
143 001066 PMSG <, ERRADR: >
001066 012700 001100' MOV #76$,R0 ; ** MESSAGE POINTER TO R0
001072 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001076 000406 BR 77$ ; ** BRANCH AROUND TEXT
001100 054 040 105 76$: .ASCIZ %, ERRADR: %
144 001114 SBDIAG 0000,0000,0002 ; (GET THE ERR WD NUM)
001114 004537 001124' JSR R5,78$ ;SAV R5, PT TO & SKIP ARG LIST
001120 000002 000000
001124 004737 000000G 78$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
001130 012605 MOV (SP)+,R5
145 001132 116000 000003 MOVB 3(R0),R0
146 001136 004737 000000G JSR PC,ASR0.5
147 001142 042700 177774 BIC #-4,R0
148 001146 042702 000003 BIC #3,R2 ; (PUT ERR WD NUM INTO ERR ADR)
149 001152 050002 BIS R0,R2
150 001154 042703 177700 BIC #-64.,R3 ; (CLR JUNK ABOVE ADR)
151 001160 012700 000002G MOV #DBUF+2,R0
152 001164 010310 MOV R3,(R0)
153 001166 010240 MOV R2,-(R0)
154 001170 PNTADR ;PRINT 22 BIT ADR FROM FCNS 0(14-33) & 2(34-35)
001170 004737 000000G JSR PC,$WDD22 ; ** CALL TO PRINT ROUTINE
155 001174 PNTBAK
156 001174 PMSG <, SYN: >
001174 012700 001206' MOV #79$,R0 ; ** MESSAGE POINTER TO R0
001200 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001204 000404 BR 80$ ; ** BRANCH AROUND TEXT
001206 054 040 123 79$: .ASCIZ %, SYN: %
157 001216 SBDIAG 0000,0000,0406 ;DO FCN 6.1 TO READ THE SYN REG
001216 004537 001226' JSR R5,81$ ;SAV R5, PT TO & SKIP ARG LIST
001222 000406 000000
001226 004737 000000G 81$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
001232 012605 MOV (SP)+,R5
158 001234 016000 000002 MOV 2(R0),R0 ; (POSITION BITS 07-14 FOR PRINT)
159 001240 004737 000000G JSR PC,ASR0.5
161 001244 PNTODT 3 ;PRINT SYNDROME FROM FCN 6.1 BITS 07-14
001244 010046 MOV R0,-(SP) ; ** SAVE R0
001246 042700 177000 BIC #^C777,R0 ; ** MASK OUT UNWANTED BITS
001252 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
001256 012600 MOV (SP)+,R0 ; ** RESTORE R0
162 001260 PMSG <,\SBN: >
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 99-1
MSSCTL RESIDENT MOSDET SUBROUTINE CODE
001260 012700 001272' MOV #82$,R0 ; ** MESSAGE POINTER TO R0
001264 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001270 000404 BR 83$ ; ** BRANCH AROUND TEXT
001272 054 134 123 82$: .ASCIZ %,\SBN: %
163 001302 006102 ROL R2 ;ISOALTE ADR 14-21 FOR USE IN FCN 12
164 001304 006103 ROL R3
165 001306 006102 ROL R2
166 001310 006103 ROL R3
167 001312 110337 001773' MOVB R3,10$+1 ;PUT ADRESP RAM ADR INTO FCN 12 WD
168 001316 SBDIAG 10$ ;DO THE FCN 12 TO GET FAILING BLOCK #
001316 012700 001772' MOV #10$,R0 ;PT TO ARG
001322 004737 000000G JSR PC,SBD0 ;DO SBUS DIAG...ADR OF WD IN R0
169 001326 016000 000002 MOV 2(R0),R0 ;GET RAW BLK # & DESEL BIT INTO R0
170 001332 004737 000000G JSR PC,ASR0.5 ;CALC BAD BLK MAP WD FOR THIS BLOCK #
171 001336 042700 177741 BIC #177741,R0
172 001342 010003 MOV R0,R3 ;SAVE BLK # *2 IN R3
173 001344 GETBBD ;GET EXISTING BAD BLK MAP FOR THIS CONTR
001344 004737 004652' JSR PC,GETBBD ;MOV MF20 BAD BLK DATA FROM BITSUB RAM TO R0
174 001350 056300 000000G BIS BMTAB(R3),R0 ;INCLUDE THE NEW BAD BLOCK
175 001354 SETBBD ;PUT THE UPDATED MAP BACK IN THE BITSUB RAM
001354 004737 000000G JSR PC,SETBBD ;MOV MF20 BAD BLK DATA FROM R0 TO BITSUB RAM
176 001360 006202 ASR R2 ;NOW COMBINE ADR 33-35 AND 4-BIT BLK # TO GET
177 001362 006202 ASR R2 ; BITSUB RAM LOC OF SPARE BIT NUMBER
178 001364 006303 ASL R3
179 001366 006303 ASL R3
180 001370 042702 177770 BIC #177770,R2
181 001374 042703 177607 BIC #177607,R3
182 001400 050302 BIS R3,R2
183 001402 110237 002000' MOVB R2,11$+1 ;PUT BITSUB RAM ADR INTO FCN 7 WORD
184 001406 SBDIAG 11$ ;DO FCN 7 TO GET SPARE BIT NUMBER, ICE, & PAR
001406 012700 001777' MOV #11$,R0 ;PT TO ARG
001412 004737 000000G JSR PC,SBD0 ;DO SBUS DIAG...ADR OF WD IN R0
185 001416 016000 000002 MOV 2(R0),R0
186 001422 004737 000000G JSR PC,ASR0.5
188 001426 PNTODT 3 ;PRINT SPARE BIT NUMBER FROM FCN 7 BITS 7-14
001426 010046 MOV R0,-(SP) ; ** SAVE R0
001430 042700 177000 BIC #^C777,R0 ; ** MASK OUT UNWANTED BITS
001434 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
001440 012600 MOV (SP)+,R0 ; ** RESTORE R0
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 100
MSSCTL RESIDENT MOSDET SUBROUTINE CODE
190
191 001442 PMSG <, DATA: >
001442 012700 001454' MOV #86$,R0 ; ** MESSAGE POINTER TO R0
001446 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001452 000405 BR 87$ ; ** BRANCH AROUND TEXT
001454 054 040 104 86$: .ASCIZ %, DATA: %
192 001466 013702 000000G MOV TSTCON,R2 ;GET CONTR #
193 001472 116237 000000G 002005' MOVB CONTI(R2),12$+1 ;PUT SOFTWARE STATE INTO FCN 1 WD
194 001500 SBDIAG 12$ ;ENABLE THE CONTROLLER IN ITS CURRENT STATE
001500 012700 002004' MOV #12$,R0 ;PT TO ARG
001504 004737 000000G JSR PC,SBD0 ;DO SBUS DIAG...ADR OF WD IN R0
195 001510 012700 000000G MOV #DBUF,R0 ;PT AT 10 DATA ADR
196 001514 EXAM ;READ THE DATA
001514 010146 MOV R1,-(SP) ; [4.2218] SAVE R1
001516 012701 000000G MOV #.WORK,R1 ; [4.2218] WORK SPACE
001522 004737 000000G JSR PC,$EXAMD ; ** EXECUTE THE KL10 EXAMINE
001526 012700 000000G MOV #.WORK,R0 ; [4.2218] PTR TO 36 BIT
001532 012601 MOV (SP)+,R1 ; [4.2218] RESTORE R1
197 001534 PNT36 ;PRINT DATA AS RETRIEVED FROM MEMORY
001534 004737 000000G JSR PC,$WDD36 ; ** CALL TO PRINT ROUTINE
198 001540 PNTBAK
199 001540 PMSG <, ECC: >
001540 012700 001552' MOV #89$,R0 ; ** MESSAGE POINTER TO R0
001544 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001550 000404 BR 90$ ; ** BRANCH AROUND TEXT
001552 054 040 105 89$: .ASCIZ %, ECC: %
200 001562 SBDIAG 0000,0000,0006 ;READ THE ECC REG
001562 004537 001572' JSR R5,91$ ;SAV R5, PT TO & SKIP ARG LIST
001566 000006 000000
001572 004737 000000G 91$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
001576 012605 MOV (SP)+,R5
201 001600 016000 000002 MOV 2(R0),R0
202 001604 004737 000000G JSR PC,ASR0.5
204 001610 PNTODT 3 ;PRINT ECC FROM FUNCTION 6.0 BITS 7-14
001610 010046 MOV R0,-(SP) ; ** SAVE R0
001612 042700 177000 BIC #^C777,R0 ; ** MASK OUT UNWANTED BITS
001616 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
001622 012600 MOV (SP)+,R0 ; ** RESTORE R0
205 001624 PMSG <\CONTROLLER >
001624 012700 001636' MOV #92$,R0 ; ** MESSAGE POINTER TO R0
001630 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001634 000407 BR 93$ ; ** BRANCH AROUND TEXT
001636 134 103 117 92$: .ASCIZ %\CONTROLLER %
206 001654 010200 MOV R2,R0 ;GET CONTR #
207 001656 PNTOCS ;PRINT MF20 CONTROLLER NUMBER
001656 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
208 001662 PMSG < BLOCK >
001662 012700 001674' MOV #94$,R0 ; ** MESSAGE POINTER TO R0
001666 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001672 000404 BR 95$ ; ** BRANCH AROUND TEXT
001674 040 102 114 94$: .ASCIZ % BLOCK %
209 001704 010300 MOV R3,R0
210 001706 004737 000000G JSR PC,ASR0.3
212 001712 PNTODT 2 ;PRINT 4-BIT GROUP/BLOCK NUMBER FROM FCN 12
001712 010046 MOV R0,-(SP) ; ** SAVE R0
001714 042700 177700 BIC #^C77,R0 ; ** MASK OUT UNWANTED BITS
001720 004737 000000G JSR PC,$TDB2O ; ** PRINT THE NUMBER
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 100-1
MSSCTL RESIDENT MOSDET SUBROUTINE CODE
001724 012600 MOV (SP)+,R0 ; ** RESTORE R0
213 001726 PMSG < DELETED.\\>
001726 012700 001740' MOV #96$,R0 ; ** MESSAGE POINTER TO R0
001732 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
001736 000406 BR 97$ ; ** BRANCH AROUND TEXT
001740 040 104 105 96$: .ASCIZ % DELETED.\\%
214 001754 004737 003004' JSR PC,QRESET ;DO QUICK RESET TO OFF THE ERROR FLAG
215 001760 112737 177777 000000G MOVB #-1,CCFAIL ;MARK EXISTING CONFIG AS INCONSISTENT
216 001766 000137 000000G JMP MDRECN ;GO FORCE RECONFIGURATION
217
218 001772 10$: WD36 0000,0000,0012 ;FCN 12 WD FOR GETTING REPSONDING BLK #
001772 012 000 000
001775 000 000
219 001777 11$: WD36 0000,0000,0007 ;FCN 7 WD TO READ SPARE BIT NUMBER
001777 007 000 000
002002 000 000
220 002004 12$: WD36 0000,0000,0201 ;FCN 1 WD TO SET SS BITS AND CLR DISABLE
002004 201 000 000
002007 000 000
221 .EVEN
222
223 ;-----LOCAL SUBROUTINE TO PRINT SBDIAG FUNCTION 0 DATA.
224 002012 13$: PMSG <\SBDIAG FCN 0: > ;LOCAL SUBROUTINE TO DUMP THE FCN 0 WD
002012 012700 002024' MOV #98$,R0 ; ** MESSAGE POINTER TO R0
002016 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
002022 000410 BR 99$ ; ** BRANCH AROUND TEXT
002024 134 123 102 98$: .ASCIZ %\SBDIAG FCN 0: %
225 002044 010100 MOV R1,R0
226 002046 PNT36
002046 004737 000000G JSR PC,$WDD36 ; ** CALL TO PRINT ROUTINE
227 002052 000207 RTS PC
230
231
232 .REM %
233 DUMMY ROUTINE TO DO MX20 RESOURCE DETERMINATION
234 %
235
236 002054 000241 MX20MD: CLC ;INDICATE NO ERROR
237 002056 000207 RTS PC ;RETURN
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 101
READ MOS PROM DATA FOR A CONTROLLER
241 .SBTTL READ MOS PROM DATA FOR A CONTROLLER
242
243 .REM %
244
245 RDPROM IS A SUBROUTINE DESIGNED TO READ THE PROM DATA FROM THE CURRENT
246 MF20 CONTROLLER (TSTCON) AND PLACE THIS DATA IN DBUF. IT IS ASSUMED THERE ARE
247 48 BYTES OF DATA TO BE READ FOR ANY MOS CONTR.
248
249 AS SET UP IN DBUF, THE DATA HAS THE FOLLOWING FORMAT:
250
251 PDP-11 BYTE: 3 2 1 0
252 PROM BYTE: 0 1 2 3
253 CONTENTS: YYYYWWWWWW###########PPABNNSSMMM
254
255 WHERE:
256 YYYY IS THE 4-BIT LAST-DIGIT-OF-THE-YEAR CODE.
257 WWWWWW IS THE WEEK-OF-THE-YEAR CODE.
258 #....# IS THE 11-BIT SERIAL NUMBER FOR THE WEEK.
259 PP IS THE POPULATION CODE: 11 => 4 BLOCKS (FULLY POPULATED), 10 =>
260 3 BLOCKS (0,1,2), 01 => 2 BLOCKS (0,1), AND 00 => 1 BLOCK (0).
261 A IS A PARITY BIT SUCH THAT YYYYWWWWWW###########PPA HAS EVEN PARITY.
262 B IS A PARITY BIT SUCH THAT BNNSSMMM HAS ODD PARITY.
263 NN IS THE TIMING NUMBER. 0-3 PERMITTED. MUST BE DIFFERENT FOR EACH ACTUAL
264 DIFFERENT TIMING USED. NUMBERS MAY BE REUSED FOR DIFFERENT RAM SIZES.
265 SS RAM SIZE CODE. 00-64K RAMS, 01-32K, 10-16K, 11-4K.
266 NNN RAM MANUFACTURER CODE.
267
268 12 OF THESE 4 BYTE ENTRIES ARE SET UP IN THE FOLLOWING ORDER: GROUP 0,
269 FIELD 0; GRP 0 FLD 1; .... ; GRP 2 FLD 3.
270
271 %
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 102
READ MOS PROM DATA FOR A CONTROLLER
273
274 002060 RDPROM: CNTSD 5$ ;CONTR # TO SBDIAG WD
002060 012700 002260' MOV #5$,R0 ;PT TO SBDIAG WD
002064 004737 000000G JSR PC,CNTSD1 ;CONTR # TO SBDIAG WD (ADDR IN R0)
275 002070 MRESET ;RESET MACHINE
002070 004737 000000G JSR PC,$KLMR ; ** MASTER RESET THE KL10
276 002074 DFXCTT STRCLK
002074 012700 000001 MOV #STRCLK,R0 ; ** FUNCTION CODE TO R0
002100 004737 000000G JSR PC,$DDFXC ; ** EXECUTE THE FUNCTION EXECUTE
278 002104 LOADAC PRMDPM,4$ ;LOAD AC PROGRAM
002104 004537 002114' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
002110 037740 .WORD PRMDPM ;LOAD MASK
002112 002210' .WORD 4$ ;PDP11 MEM ADR(S)
002114 004737 000000G 64$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
002120 012605 MOV (SP)+,R5
279 002122 RUN AC7 ;RUN PRGM 1ST TIME
002122 004537 002130' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
002126 000007 .WORD AC7 ;STARTING ADR
002130 004737 000000G 65$: JSR PC,RUNPRG ;RUN PRGM 1 TIC USING GIVEN PC
002134 012605 MOV (SP)+,R5
280 002136 PUSH R1
002136 010146 MOV R1,-(SP)
281 002140 012701 000000G MOV #DBUF,R1 ;INI EXAMT 11 ADR
282 002144 000402 BR 2$
283 002146 1$: CONTIN ;RUN PRGM AGAIN
002146 004737 000000G JSR PC,CONTIN ;RUN & CONTINUE
285 002152 2$: PUSH R1 ;PRESERVE ADR PTR
002152 010146 MOV R1,-(SP)
286 002154 EXAMT AC17 ;GET CONTENTS OF AC17
002154 012700 000017 MOV #AC17,R0 ; ** ADDRESS POINTER TO R0
002160 004737 000000G JSR PC,$EXAMT ; ** EXECUTE THE KL10 EXAMINE
287 002164 POP R1 ;RESTORE ADR PTR
002164 012601 MOV (SP)+,R1
293 002166 004737 000000G JSR PC,CHKED
294 002172 062701 000004 ADD #4,R1 ;WHERE NXT ENTRY GOES
295 002176 020127 000060G CMP R1,#DBUF+48. ;IS THERE A NXT ENT TO DO?
296 002202 103761 BLO 1$ ;YES...DO IT
297 002204 POP R1
002204 012601 MOV (SP)+,R1
298 002206 000207 RTS PC
299
300 ;-----AC PROGRAM FOR RDPROM. GETS 4 BYTES AND HALTS. UPON CONTINUATION IT
301 ; GOES TO THE NEXT FIELD, ETC.
302
303 002210 BLK10 5
304 002210 4$: I10 TLNN,15,,30 ;5-SKIP IF STILL IN FIELD
002210 030 000 200
002213 076 014
305 002215 I10 JRST,4,,7 ;6-ELSE WAIT FOR 11 TO GET PROM DATA
002215 007 000 000
002220 142 005
306 002222 IO10 SBDIAG,,,15 ;7- <START> GET NEXT BYTE OF PROM DATA
002222 015 000 000
002225 005 016
307 002227 I10 LSH,16,,7 ;10-POSITION
002227 007 000 000
002232 027 005
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 102-1
READ MOS PROM DATA FOR A CONTROLLER
308 002234 I10 ROTC,16,,10 ;11-INCLUDE IN WORD
002234 010 000 000
002237 057 005
309 002241 I10 ADD,15,,14 ;12-ADR OF NXT PROM BYTE
002241 014 000 200
002244 306 005
310 002246 I10 JRST,,,5 ;13-LOOP
002246 005 000 000
002251 140 005
311 002253 WD36 0000,1000,0000 ;14-PROM BYTE # INCR
002253 000 000 040
002256 000 000
312 002260 5$: WD36 0000,0000,0002 ;15-BLANK FUNC 02 WD
002260 002 000 000
002263 000 000
313 ;16-RESPONSE FROM PROM
314 002265 ENDBLK PRMDPM ;17-4 PROM BYTES BUILT UP HERE
315 .EVEN
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 103
DIGEST PROM DATA FOR A MOS CONTROLLER
319 .SBTTL DIGEST PROM DATA FOR A MOS CONTROLLER
320
321 .REM %
322 SUBROUTINE DPD "DIGESTS" PROM DATA. IT FIRST FINDS OUT WHICH IS THE
323 SMALLER OF THE CONTROLLER'S 2 RAM SIZES. THIS IS THE TYPSEL=0 RAM SIZE. (IT IS
324 REQUIRED THAT THERE ARE ONLY 1 OR 2 RAM SIZES IN THE CONTROLLER.) AFTER FINDING
325 THIS IT SETS THE REST OF THE INFO AVAILABLE FROM THE PROM: PHYSICAL BLOCK MAP,
326 BLOCK TYPSEL, AND TIMING ID FOR BOTH TYPSELS. IT IS ASSUMED THAT RDPROM HAS
327 ALREADY BEEN CALLED FOR THIS CONTROLLER.
328 %
329
330 002266 DPD: SAV.5
002266 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
331 ;-----FIND SMALLEST RAM SIZE IN CONTROLLER.
332 002272 SBDIAG 0000,0000,0011 ;DO A NULL FUNC 11 TO READ THE 4K EN H BIT
002272 004537 002302' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
002276 000011 000000
002302 004737 000000G 64$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
002306 012605 MOV (SP)+,R5
333 002310 012737 000002 000000G MOV #2,DPDSRS ;ASSUME 16K RAMS ARE SMALLEST
334 002316 032710 000100 BIT #100,(R0) ;IS 4K EN H SET?
335 002322 001402 BEQ 1$ ;NO...16K IS SMALLEST
336 002324 005237 000000G INC DPDSRS ;ELSE SET SMALLEST RAM SIZ CODE TO 11 (4K)
337 ;-----CREATE MOS PHYSICAL TABLE WORDS.
338 002330 013705 000000G 1$: MOV TSTCON,R5 ;CONTR #
339 002334 105065 177770G CLRB RAMSZ1-MNMFCN(R5) ;ASSUME NO LARGER RAM SIZ FOR NOW
340 002340 105065 177770G CLRB TIMNO1-MNMFCN(R5)
341 002344 012704 000000G MOV #DBUF,R4 ;PROM DATA BUFFER PTR
342 002350 004737 000000G JSR PC,BAF ;CALC BLK SIZ LIST START
343 002354 010003 MOV R0,R3 ; TO R3
344 002356 005013 2$: CLR (R3) ;CLR BLK SIZ TBL BYTES FOR GROUP
345 002360 005063 000002 CLR 2(R3)
347 002364 005063 000140 CLR MSAMSZ(R3) ;CLR BLK ST ADR BYTES FOR GROUP
348 002370 005063 000142 CLR MSAMSZ+2(R3)
350 002374 112400 MOVB (R4)+,R0 ;GET RAM SIZ CODE & TIMING NUMBER BYTE
351 002376 020027 177777 CMP R0,#-1 ;DOES GROUP EXIST?
352 002402 001435 BEQ 5$ ;NO...SKIP IT
353 002404 004737 000000G JSR PC,ASR0.3 ;ELSE ISOLATE BOTH NUMBERS
354 002410 010001 MOV R0,R1
355 002412 006201 ASR R1
356 002414 006201 ASR R1
357 002416 042700 177774 BIC #-4.,R0 ;SIZE CODE
358 002422 042701 177774 BIC #-4.,R1 ;TIMING #
359 002426 010502 MOV R5,R2 ;TIMING INFO INDEX
360 002430 020037 000000G CMP R0,DPDSRS ;IS THIS THE SMALLER (TYPSEL=0) RAM SIZ?
361 002434 001402 BEQ 3$ ;YES
362 002436 062702 000010 ADD #RS0RS1,R2 ;ELSE BUMP NDX FOR TYPSEL=1 TABLES
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 104
DIGEST PROM DATA FOR A MOS CONTROLLER
364
365 002442 110062 177770G 3$: MOVB R0,RAMSZ0-MNMFCN(R2) ;RECORD SIZE CODE
366 002446 110162 177770G MOVB R1,TIMNO0-MNMFCN(R2) ;RECORD TIMING NUMBER
367 002452 111402 MOVB (R4),R2 ;GET PROM BYTE WITH POPULATION BITS
368 002454 006202 ASR R2 ;POSITION POP BITS
369 002456 042702 177774 BIC #-4,R2 ;ISOLATE POP CNT
370 002462 PUSH R3 ;SAV PTR FOR LATER
002462 010346 MOV R3,-(SP)
371 002464 116023 000000G 4$: MOVB BSIZE(R0),(R3)+ ;BLK SIZE TO BLK SIZE TABLE
372 002470 005302 DEC R2 ;DONE ALL BLKS IN GROUP?
373 002472 002374 BGE 4$ ;NO...DO MORE
374 002474 POP R3 ;UPDATE BLK TBL PTR FOR NXT GROUP
002474 012603 MOV (SP)+,R3
375 002476 022323 5$: CMP (R3)+,(R3)+
376 002500 062704 000017 ADD #15.,R4 ;UPD PROM DATA PTR FOR NXT GROUP
377 002504 020427 000060G CMP R4,#DBUF+48. ;DONE?
378 002510 103722 BLO 2$ ;NO
379 002512 R5.PC ;ELSE RESTORE & RETURN
002512 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 105
SUBROUTINE TO DECONFIGURE BAD MF20 BLOCKS
383 .SBTTL SUBROUTINE TO DECONFIGURE BAD MF20 BLOCKS
384
385 .REM %
386 DCNFBB LOADS AN AC PROGRAM TO DECONFIGURE BAD BLOCKS. THE PDP-11 LOADS
387 A 4-BIT BLOCK NUMBER INTO BITS 10-13 OF AC11 AND RUNS THE AC PRGM. THE PROGRAM
388 THEN LOOKS FOR ALL OCCURENCES OF THAT BLOCK IN THE ADDRESS RESPONSE CONTROL RAM.
389 WHEN ONE IS FOUND, A VALUE IS LOADED INTO THE RAM WHICH CAUSES THE BAD BLOCK TO
390 NO LONGER BE USED. DCNFBB EXPECTS THAT THE BAD BLOCK MAP IS IN R0 UPON ENTRY.
391 A C-BIT SET RETURN IS DONE IF THERE IS AN ERROR. R0 DESTROYED.
392 %
393
394 002516 DCNFBB: PUSH R1 ;SAV REG
002516 010146 MOV R1,-(SP)
395 002520 010001 MOV R0,R1 ;COPY MAP INTO R1
396 002522 001443 BEQ 3$ ;IF MAP IS EMPTY DON'T DO THIS SUBROUTINE
397 002524 005037 000002G CLR REAPWD+2 ;INI BLK # WHICH GETS LOADED WITH AC PRGM
398 002530 RESET CPU
002530 004537 002536' JSR R5,64$ ;SAV R5, PT TO & SKIP CPU LIST
002534 000200 .WORD CPU
002536 004737 000000G 64$: JSR PC,.RESET ;RESET SPECIFIED HARDWARE
002542 012605 MOV (SP)+,R5
399 002544 012737 000000G 000000G MOV #DFRLST,DLNXT ;RESET DEFERED LOAD LIST PTR
400 002552 LOADAC DCNFPM,5$ ;LOAD THE AC PROGRAM
002552 004537 002562' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
002556 013777 .WORD DCNFPM ;LOAD MASK
002560 002640' .WORD 5$ ;PDP11 MEM ADR(S)
002562 004737 000000G 65$: JSR PC,ACLOAD ;LOAD ACS FROM CONTIGUOUS 11 MEM
002566 012605 MOV (SP)+,R5
401 002570 005701 1$: TST R1 ;ANY MORE BAD BLOCKS?
402 002572 001417 BEQ 3$ ;NO.. EXIT
403 002574 006001 ROR R1 ;IS THIS BLOCK BAD?
404 002576 103011 BCC 2$ ;NO.. TRY NXT
405 002600 LDEFER ;DO DEFERED AC LOADS (SBDIAG WDS & BLK #)
002600 004737 000000G JSR PC,LDEFER ;DO DEFERED LOADS NOW
406 002604 RUN AC0 ;RUN THE PRGM TO DECONF THE BLK
002604 004537 002612' JSR R5,66$ ;SAV R5, PT TO & SKIP ARG LIST
002610 000000 .WORD AC0 ;STARTING ADR
002612 004737 000000G 66$: JSR PC,RUNPRG ;RUN PRGM 1 TIC USING GIVEN PC
002616 012605 MOV (SP)+,R5
407 002620 103405 BCS 4$ ;BR ON ERR
408 002622 062737 000100 000002G 2$: ADD #100,REAPWD+2 ;NXT BLK #
409 002630 000757 BR 1$ ;LP
410 002632 000241 3$: CLC ;IND NO ERR
411 002634 4$: POP R1
002634 012601 MOV (SP)+,R1
412 002636 000207 RTS PC
414
415 002640 BLK10
416 002640 5$: I10 SUBI,12,,400 ;0- <START> NXT ADRESP RAM ADR
002640 000 001 000
002643 355 005
417 002645 I10 HRR,14,,12 ;1-COPY TO OTHER SBDIAG
002645 012 000 000
002650 006 013
418 002652 IO10 SBDIAG,,,12 ;2-RD WHICH GROUP/BLOCK SHOULD RESPOND
002652 012 000 000
002655 005 016
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 105-1
SUBROUTINE TO DECONFIGURE BAD MF20 BLOCKS
419 002657 I10 XOR,13,,11 ;3-CALC DIFS AGAINST BAD GRP/BLK #
002657 011 000 200
002662 305 010
420 002664 I10 TLNN,13,,360 ;4-SKIP IF DIFFERENT...DO NOT DECONFIGURE
002664 360 000 200
002667 075 014
421 002671 IO10 SBDIAG,,,14 ;5-ELSE DECONFIGURE THIS ADRESP RAM LOC
002671 014 000 000
002674 005 016
422 002676 I10 TRNE,12,,177400 ;6-SKIP IF ALL ADRESP RAM LOCS CHECKED
002676 000 377 000
002701 025 014
423 002703 I10 JRST,,,0 ;7-ELSE LOOP
002703 000 000 000
002706 140 005
424 002710 I10 JRST,4,,0 ;10-HALT WHEN DONE
002710 000 000 000
002713 142 005
425 002715 IND36 REAPWD ;11-BAD GRP/BLK # PUT HERE IN BITS 10-13
426 002722 WD36 0000,0020,0012 SDW ;12-SBDIAG WD TO READ AN ADRESP RAM LOC
002722 012 000 001
002725 000 040
427 ;13-LOC CONTENTS PUT HERE
428 002727 WD36 0003,1417,7412 SDW ;14-SBDIAG WD TO SET GRP 3, BLK 0, DESELECTED
002727 012 377 060
002732 003 040
429 ;15-SCRATCH
430 013777 DCNFPM=013777 ;16-17 NOT USED
431 002734 ENDBLK
432 .EVEN
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 106
LOAD ALL NON-ADDRESS-RESPONSE RAMS FOR A MOS CONTROLLER
436 .SBTTL LOAD ALL NON-ADDRESS-RESPONSE RAMS FOR A MOS CONTROLLER
437
438 .REM %
439 LDNADR IS THE HIGHEST LEVEL SUBROUTINE RESPONSIBLE FOR LOADING ALL THE
440 "NON-ADDRESS" RELATED RAMS AND LATCHES. IT CALLS SEVERAL OTHER SUBROUTINES
441 WHICH DO THE INDIVIDUAL FUNCTIONS. QRESET IS A QUICK RESET DONE FOR ALL
442 CONTROLLERS JUST TO "MAKE SURE".
443 %
444
445 002734 LDNADR: SBDIAG 0000,0010,0411 ;KLUGE FORCES BUSY-CLR, PREVENTS POWER-ON ERROR
002734 004537 002744' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
002740 100411 000000
002744 004737 000000G 64$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
002750 012605 MOV (SP)+,R5
446 002752 FSDCHK 4$,5$ ;SHUT OFF REFR & CHK
002752 004537 002762' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
002756 003110' 003103' .WORD 5$,4$ ;MASK & FUNCTION ADDRESSES
002762 004737 000000G 65$: JSR PC,FSDCHK ;DO SBUS DIAG & CHECK
002766 012605 MOV (SP)+,R5
447 002770 LDFVR ;LOAD FIXED VALUE LOGIC RAMS
002770 004737 003116' JSR PC,LDFVR ;LOAD A MOS CONTROLLER'S FIXED VALUE RAMS
448 002774 LDTIMR ;LOAD TIMING RAMS
002774 004737 003452' JSR PC,LDTIMR ;LOAD A MOS CONTROLLER'S TIMING RAMS
449 003000 LDREFR ;LOAD AND START REFRESH
003000 004737 004000' JSR PC,LDREFR ;LOAD & START REFRESH FOR A MOS CONTROLLER
450 003004' QRESET=.
451 003004 FSDMSK 3$ ;LD MSK FOR BOTH FUNCTIONS BELOW
003004 012700 003076' MOV #3$,R0 ;PT TO MASK
003010 004737 000000G JSR PC,FSDM1 ;LD SBDIAG CHK MASK PTD TO BY R0
452 003014 FSD 1$,FAULT ;CLR THE ECC COMP REG (FUNC 06.4)
003014 004537 003022' JSR R5,66$ ;SAV R5, PT TO & SKIP FAULT LIST
003020 003064' .WORD 1$ ;SBDIAG WORD ADDRESS
003022 004737 000000G 66$: JSR PC,FSDCH ;DO FAST SBDIAG, FAULT ON ERR
003026 012605 MOV (SP)+,R5
453 003030 FSD 2$,FAULT ;CLR VOLTAGE MARGINS, CORDIS, & DC BAD (FUNC 10)
003030 004537 003036' JSR R5,67$ ;SAV R5, PT TO & SKIP FAULT LIST
003034 003071' .WORD 2$ ;SBDIAG WORD ADDRESS
003036 004737 000000G 67$: JSR PC,FSDCH ;DO FAST SBDIAG, FAULT ON ERR
003042 012605 MOV (SP)+,R5
454 003044 SBDIAG 0100,0000,0000 ;DO A CLEAR 0-5 TO RESET ERR FLAGS
003044 004537 003054' JSR R5,68$ ;SAV R5, PT TO & SKIP ARG LIST
003050 000000 040000
003054 004737 000000G 68$: JSR PC,SBDT ;DO SBUS DIAG...WORD FOLLOWS
003060 012605 MOV (SP)+,R5
455 003062 000207 RTS PC
456 003064 1$: WD36 0000,0400,2006
003064 006 004 020
003067 000 000
457 003071 2$: WD36 0000,0400,0410
003071 010 001 020
003074 000 000
458 003076 3$: WD36 7600,0400,2416 ;MASK FOR THE 2 FCNS ABOVE
003076 016 005 020
003101 200 017
459 003103 4$: WD36 0000,0002,0004 ;SBDIAG F4 WD TO SHUT OFF REFR
003103 004 040 000
003106 000 000
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 106-1
LOAD ALL NON-ADDRESS-RESPONSE RAMS FOR A MOS CONTROLLER
460 003110 5$: WD36 7600,0002,0004 ;FSD MASK FOR FCN ABOVE
003110 004 040 000
003113 200 017
461 .EVEN
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 107
LOAD A MOS CONTROLLER'S FIXED VALUE RAMS
465 .SBTTL LOAD A MOS CONTROLLER'S FIXED VALUE RAMS
466
467 .REM %
468 LDFVR IS THE SUBROUTINE WHICH LOADS AND MF20'S FIXED VALUE RAMS. THE
469 CONTENT OF THESE RAMS IS USED TO CONTROL WORD NUMBERS, ACKNS, AND DATA VALID
470 DURING READ CYCLES.
471 %
472
473 ;-----EXTRACTION OF DATA FROM THE TABLE (MFIXED) IS DONE IN REVERSE ORDER
474 ; (RAM ADR 377 FIRST) AND IS SOMEWHAT COMPLEX. BE CAREFULL IF YOU ALTER THIS
475 ; CODE.
476 003116 LDFVR: SAV.5
003116 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
477 003122 012702 003452' MOV #MFXEND,R2 ;PT PAST END OF DATA TABLE
478 003126 105037 003241' CLRB 4$ ;INI RAM LD ADR
479 003132 FSDMSK 6$ ;SET MASK FOR CHECKING LD
003132 012700 003245' MOV #6$,R0 ;PT TO MASK
003136 004737 000000G JSR PC,FSDM1 ;LD SBDIAG CHK MASK PTD TO BY R0
480 003142 012703 000004 1$: MOV #4,R3 ;LOOPS/WORD COUNT
481 003146 014204 MOV -(R2),R4 ;GET DATA WORD
482 003150 010400 2$: MOV R4,R0 ;COPY & POSITION BITS
483 003152 042700 177760 BIC #177760,R0
484 003156 000300 SWAB R0
485 003160 006200 ASR R0
486 003162 006200 ASR R0
487 003164 052700 000060 BIS #60,R0 ;PUT IN LD EN BITS
488 003170 010037 003242' MOV R0,5$ ;WD TO SBDIAG WORD
489 003174 105337 003241' DECB 4$ ;NXT RAM ADR
490 003200 FSD 3$,FAULT ;DO THE SBUS DIAG
003200 004537 003206' JSR R5,64$ ;SAV R5, PT TO & SKIP FAULT LIST
003204 003240' .WORD 3$ ;SBDIAG WORD ADDRESS
003206 004737 000000G 64$: JSR PC,FSDCH ;DO FAST SBDIAG, FAULT ON ERR
003212 012605 MOV (SP)+,R5
491 003214 006204 ASR R4
492 003216 006204 ASR R4
493 003220 006204 ASR R4
494 003222 006204 ASR R4
495 003224 077327 SOB R3,2$ ;LP IF MORE 5-BIT VALUES LEFT IN WD
496 003226 105737 003241' TSTB 4$ ;ALL DONE?
497 003232 001343 BNE 1$ ;NO...LOOP
498 003234 R5.PC ;RESTORE REGS & RETURN
003234 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
499
500 003240 003 3$: .BYTE 3 ;RHE OF FUNC 03 SBDIAG WORD
501 003241 000 4$: .BYTE 0 ;RAM LD ADR
502 003242 000000 5$: .WORD 0 ;5 DATA & 2 LD EN BITS GO HERE
503 003244 000 .BYTE 0 ;CONTR # ETC
504 003245 6$: WD36 7600,1417,7403 ;MASK FOR CHKING FV RAM LD
003245 003 377 060
003250 200 017
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 108
LOAD A MOS CONTROLLER'S FIXED VALUE RAMS
506
507 ;-----MACRO USED FOR GENERATING FIXED VALUE RAM DATA IN COMPRESSED PDP-11
508 ; FORMAT (FOUR 4-BIT VALUES PER 11 WORD, LOW ADDRESS IS LEFTMOST).
509
510 .MACRO FVRDAT X
511 .IRP Y,<X>
512 $FVRW=<$FVRW*16.>+<Y/2>
513 $FVRC=$FVRC+1
514 .IF EQ,$FVRC-4
515 .WORD $FVRW
516 $FVRW=0
517 $FVRC=0
518 .ENDC
519 .ENDR
520 .ENDM
521
522
523 .REM %
524 THIS IS THE MF20 FIXED VALUE RAM DATA. THE DATA APPEARS HERE AS IT
525 WOULD APPEAR IN BITS 09-13 OF AN SBDIAG FUNC 03 TYPEOUT. FIXED VALUE RAM
526 ADDRESSES INCREASE FROM LEFT TO RIGHT.
527 %
528
529 000000 $FVRC=0 ;INITIALIZE FVRDAT MACRO CONTROL VARIABLES
530 000000 $FVRW=0
531
532 003252 MFIXED:
533 003252 FVRDAT <20,20,20,20,00,20,20,20,00,20,20,20,00,00,20,20> ;000
003252 104210 .WORD $FVRW
003254 004210 .WORD $FVRW
003256 004210 .WORD $FVRW
003260 000210 .WORD $FVRW
534 003262 FVRDAT <00,20,20,20,00,00,20,20,00,00,20,20,00,00,00,20> ;020
003262 004210 .WORD $FVRW
003264 000210 .WORD $FVRW
003266 000210 .WORD $FVRW
003270 000010 .WORD $FVRW
535 003272 FVRDAT <00,20,20,20,16,00,20,20,14,00,20,20,14,00,00,34> ;040
003272 004210 .WORD $FVRW
003274 070210 .WORD $FVRW
003276 060210 .WORD $FVRW
003300 060016 .WORD $FVRW
536 003302 FVRDAT <12,00,20,20,12,00,00,32,12,00,12,20,12,00,12,12> ;060
003302 050210 .WORD $FVRW
003304 050015 .WORD $FVRW
003306 050130 .WORD $FVRW
003310 050125 .WORD $FVRW
537 003312 FVRDAT <20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20> ;100
003312 104210 .WORD $FVRW
003314 104210 .WORD $FVRW
003316 104210 .WORD $FVRW
003320 104210 .WORD $FVRW
538 003322 FVRDAT <20,20,20,20,20,36,20,20,20,34,20,20,20,34,20,34> ;120
003322 104210 .WORD $FVRW
003324 107610 .WORD $FVRW
003326 107210 .WORD $FVRW
003330 107216 .WORD $FVRW
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 108-1
LOAD A MOS CONTROLLER'S FIXED VALUE RAMS
539 003332 FVRDAT <20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20> ;140
003332 104210 .WORD $FVRW
003334 104210 .WORD $FVRW
003336 104210 .WORD $FVRW
003340 104210 .WORD $FVRW
540 003342 FVRDAT <20,30,20,20,36,36,20,20,34,34,20,20,34,34,20,34> ;160
003342 106210 .WORD $FVRW
003344 177610 .WORD $FVRW
003346 167210 .WORD $FVRW
003350 167216 .WORD $FVRW
541 003352 FVRDAT <20,20,20,20,00,20,20,20,00,20,20,20,00,00,36,20> ;200
003352 104210 .WORD $FVRW
003354 004210 .WORD $FVRW
003356 004210 .WORD $FVRW
003360 000370 .WORD $FVRW
542 003362 FVRDAT <00,20,20,20,00,00,20,20,00,00,32,20,00,16,16,20> ;220
003362 004210 .WORD $FVRW
003364 000210 .WORD $FVRW
003366 000330 .WORD $FVRW
003370 003570 .WORD $FVRW
543 003372 FVRDAT <00,20,20,20,00,00,20,20,00,00,30,20,16,00,16,20> ;240
003372 004210 .WORD $FVRW
003374 000210 .WORD $FVRW
003376 000310 .WORD $FVRW
003400 070170 .WORD $FVRW
544 003402 FVRDAT <00,00,20,20,00,00,00,20,00,10,10,20,16,16,16,00> ;260
003402 000210 .WORD $FVRW
003404 000010 .WORD $FVRW
003406 002110 .WORD $FVRW
003410 073560 .WORD $FVRW
545 003412 FVRDAT <20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,34> ;300
003412 104210 .WORD $FVRW
003414 104210 .WORD $FVRW
003416 104210 .WORD $FVRW
003420 104216 .WORD $FVRW
546 003422 FVRDAT <20,20,20,20,20,20,20,32,20,20,20,20,20,20,32,32> ;320
003422 104210 .WORD $FVRW
003424 104215 .WORD $FVRW
003426 104210 .WORD $FVRW
003430 104335 .WORD $FVRW
547 003432 FVRDAT <20,20,20,20,20,20,20,30,20,20,20,20,20,20,30,30> ;340
003432 104210 .WORD $FVRW
003434 104214 .WORD $FVRW
003436 104210 .WORD $FVRW
003440 104314 .WORD $FVRW
548 003442 FVRDAT <20,20,20,20,20,30,20,30,20,20,20,20,20,30,30,30> ;360
003442 104210 .WORD $FVRW
003444 106214 .WORD $FVRW
003446 104210 .WORD $FVRW
003450 106314 .WORD $FVRW
549 003452 MFXEND:
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 109
LOAD A MOS CONTROLLER'S TIMING RAMS
553 .SBTTL LOAD A MOS CONTROLLER'S TIMING RAMS
554
555 .REM %
556 LDTIMR LOADS THE TIMING RAM WITH THE TYPSEL=0 TIMING IN THE LOW END AND,
557 IF PRESENT, THE TYPSEL=1 TIMING IN THE HIGH END. ALL THE REST IS FILLED WITH
558 BAD PARITY DATA.
559 %
560
562 ;-----LOAD CONTROL.
563 003452 LDTIMR: SAV.5
003452 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
564 003456 GETTF ;GET TIMING FILES
003456 004737 004140' JSR PC,GETTF ;MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
565 003462 FSDMSK F11M ;SET LD CHK MSK
003462 012700 003773' MOV #F11M,R0 ;PT TO MASK
003466 004737 000000G JSR PC,FSDM1 ;LD SBDIAG CHK MASK PTD TO BY R0
567 003472 PUSH R5 ;SAV R5
003472 010546 MOV R5,-(SP)
568 003474 PUSH <#127.,MOSTT0+<2*TIMFS>-2> ;SBDIAG WD TO STK FOR TIMRAM CLR
003474 012746 000177 MOV #127.,-(SP)
003500 013746 004540' MOV MOSTT0+<2*TIMFS>-2,-(SP)
569 003504 010605 MOV SP,R5 ;PT TO ARGS WITH R5
570 003506 004737 000000G JSR PC,SETRAM ;SET ALL CONTROL RAM WDS TO DESIRED VALUE
571 003512 032626 BIT (SP)+,(SP)+ ;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
572 003514 POP R5 ;RESTORE R5
003514 012605 MOV (SP)+,R5
578 003516 013704 000000G MOV TSTCON,R4 ;MAK CONTR # INTO NDX
579 003522 105764 177770G TSTB RAMSZ0-MNMFCN(R4) ;DOES TIMING TYPSEL=0 EXIST FOR CONTR?
580 003526 003413 BLE 2$ ;NO.. SEE IF TYPSEL=1 EXISTS & LOAD IT INSTEAD
581 003530 LDATIM MOSTT0,0 ;LOAD TYPSEL=0 TIMING
003530 010546 MOV R5,-(SP)
003532 012746 000000 MOV #0,-(SP)
003536 012746 004432' MOV #MOSTT0,-(SP)
003542 010605 MOV SP,R5 ;PT TO ARGS WITH R5
003544 004737 003702' JSR PC,LDATIM ;LOAD A TIMING INTO MF20 TIMING RAM
003550 032626 BIT (SP)+,(SP)+ ;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
003552 012605 MOV (SP)+,R5 ;RESTORE R5
582 003554 000415 BR 3$
583 003556 105764 177770G 2$: TSTB RAMSZ1-MNMFCN(R4) ;DOES TIMING TYPSEL=1 EXIST FOR CONTR?
584 003562 003412 BLE 3$ ;NO
585 003564 LDATIM MOSTT1,0 ;LD TYPSEL=1 TIMING IN PLACE OF TYPSEL=0 TIMG
003564 010546 MOV R5,-(SP)
003566 012746 000000 MOV #0,-(SP)
003572 012746 004542' MOV #MOSTT1,-(SP)
003576 010605 MOV SP,R5 ;PT TO ARGS WITH R5
003600 004737 003702' JSR PC,LDATIM ;LOAD A TIMING INTO MF20 TIMING RAM
003604 032626 BIT (SP)+,(SP)+ ;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
003606 012605 MOV (SP)+,R5 ;RESTORE R5
586 003610 105764 177770G 3$: TSTB RAMSZ1-MNMFCN(R4) ;DOES TIMING TYPSEL=1 EXIST FOR CONTR?
587 003614 003413 BLE 4$ ;NO.. SEE IF TYPSEL=0 EXISTS & LD IT INSTEAD
588 003616 LDATIM MOSTT1,64. ;LD TYPSEL=1 TIMING
003616 010546 MOV R5,-(SP)
003620 012746 000100 MOV #64.,-(SP)
003624 012746 004542' MOV #MOSTT1,-(SP)
003630 010605 MOV SP,R5 ;PT TO ARGS WITH R5
003632 004737 003702' JSR PC,LDATIM ;LOAD A TIMING INTO MF20 TIMING RAM
003636 032626 BIT (SP)+,(SP)+ ;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 109-1
LOAD A MOS CONTROLLER'S TIMING RAMS
003640 012605 MOV (SP)+,R5 ;RESTORE R5
589 003642 000415 BR 5$
590 003644 105764 177770G 4$: TSTB RAMSZ0-MNMFCN(R4) ;DOES TIMING TYPSEL=0 EXIST FOR CONTR?
591 003650 003412 BLE 5$ ;NO
592 003652 LDATIM MOSTT0,64. ;LD TYPSEL=0 TIMING IN PLACE OF TYPSEL=1 TIMG
003652 010546 MOV R5,-(SP)
003654 012746 000100 MOV #64.,-(SP)
003660 012746 004432' MOV #MOSTT0,-(SP)
003664 010605 MOV SP,R5 ;PT TO ARGS WITH R5
003666 004737 003702' JSR PC,LDATIM ;LOAD A TIMING INTO MF20 TIMING RAM
003672 032626 BIT (SP)+,(SP)+ ;DEL ARG WDS FROM STK -- C BIT NOT AFFECTED
003674 012605 MOV (SP)+,R5 ;RESTORE R5
593 003676 5$: R5.PC ;DONE
003676 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
597
598 ;-----SUBROUTINE TO LOAD A SINGLE TIMING FILE.
599 003702 LDATIM: PUSH <R1,R2>
003702 010146 MOV R1,-(SP)
003704 010246 MOV R2,-(SP)
600 003706 012501 MOV (R5)+,R1 ;GET TIMING BUF PTR
601 003710 062701 000110 ADD #TIMFS*2,R1 ;BYPASS TIMING FILE
602 003714 012537 003770' MOV (R5)+,3$ ;RAM LD ST ADR
603 003720 062737 000037 003770' ADD #31.,3$ ;RAM ADR OF LAST TIMING WD TO LOAD
604 003726 012702 000040 MOV #32.,R2 ;LOOP COUNT
605 003732 014137 003766' 1$: MOV -(R1),2$ ;TIMG DATA TO SBDIAG WD
606 003736 FSD 2$,FAULT ;LD TIMG WD
003736 004537 003744' JSR R5,64$ ;SAV R5, PT TO & SKIP FAULT LIST
003742 003766' .WORD 2$ ;SBDIAG WORD ADDRESS
003744 004737 000000G 64$: JSR PC,FSDCH ;DO FAST SBDIAG, FAULT ON ERR
003750 012605 MOV (SP)+,R5
607 003752 005337 003770' DEC 3$ ;NXT ADR
608 003756 077213 SOB R2,1$ ;LOOP TIL ALL 32 TIMING WDS LOADED
609 003760 POP <R2,R1>
003760 012602 MOV (SP)+,R2
003762 012601 MOV (SP)+,R1
610 003764 000207 RTS PC
612
613 003766 000000 2$: .WORD 0 ;RHE OF FUNC 11...TIMING DATA
614 003770 000000 3$: .WORD 0 ;TIMING RAM LD ADR
615 003772 000 .BYTE 0 ;CONTR #
616 003773 F11M: WD36 7600,3770,0151 ;FUNC 11 LD CHK MASK
003773 151 200 177
003776 200 017
617 .EVEN
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 110
LOAD & START REFRESH FOR A MOS CONTROLLER
621 .SBTTL LOAD & START REFRESH FOR A MOS CONTROLLER
622
623 .REM %
624 LDREFR LOADS AND STARTS MOS REFRESH FOR THE SELECTED CONTROLLER. THE
625 VALUE USED IS THE SMALLER OF THE TWO REFRESH VALUES FOR THE CONTROLLER ASSUMING
626 THE EXISTENCE OF A TYPSEL=1 TIMING.
627 %
628
629 004000 LDREFR: PUSH R1
004000 010146 MOV R1,-(SP)
630 004002 GETTF ;MAK SUR WE HAV TIMING FILES
004002 004737 004140' JSR PC,GETTF ;MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
631 004006 113700 004440' MOVB MOSTT0+6,R0 ;GET TYSEL=0 REFR BYTE
632 004012 113701 000000G MOVB TSTCON,R1
633 004016 105761 177770G TSTB RAMSZ1-MNMFCN(R1) ;IS THERE A TYSEL=1 FOR THIS CONTR?
634 004022 003405 BLE 1$ ;NO...USE ONLY TYPSEL=0 REFR BYTE
635 004024 113701 004550' MOVB MOSTT1+6,R1
636 004030 020001 CMP R0,R1 ;PUT SMALLER VALUE IN R0
637 004032 003401 BLE 1$
638 004034 010100 MOV R1,R0
639 004036 1$:
640 004036 000300 SWAB R0 ;POSITION FOR LOAD
641 004040 004737 000000G JSR PC,ASR0.3
642 004044 052700 020004 BIS #20004,R0 ;SET LD EN & FUNC 04
643 004050 010037 004114' MOV R0,2$ ; TO SBDIAG WD
644 004054 FSDCHK 2$,3$ ;LOAD REFRESH INTERVAL
004054 004537 004064' JSR R5,64$ ;SAV R5, PT TO & SKIP ARG LIST
004060 004121' 004114' .WORD 3$,2$ ;MASK & FUNCTION ADDRESSES
004064 004737 000000G 64$: JSR PC,FSDCHK ;DO SBUS DIAG & CHECK
004070 012605 MOV (SP)+,R5
645 004072 FSDCHK 4$,5$ ;TURN ON TIMING
004072 004537 004102' JSR R5,65$ ;SAV R5, PT TO & SKIP ARG LIST
004076 004133' 004126' .WORD 5$,4$ ;MASK & FUNCTION ADDRESSES
004102 004737 000000G 65$: JSR PC,FSDCHK ;DO SBUS DIAG & CHECK
004106 012605 MOV (SP)+,R5
646 004110 POP R1
004110 012601 MOV (SP)+,R1
647 004112 000207 RTS PC
648
649 004114 2$: WD36 0000,0006,0004 ;FUNC 04 WD TO LOAD REFRESH INTERVAL
004114 004 140 000
004117 000 000
650 004121 3$: WD36 7600,0002,0004 ;MASK TO CHK REFR TURN ON
004121 004 040 000
004124 200 017
651
652 004126 4$: WD36 0000,0004,0004 ;FUNC 04 TO TURN ON REFRESH
004126 004 100 000
004131 000 000
653 004133 5$: WD36 7600,0001,7744 ;MASK TO MAKE SURE REFRESH IS ON
004133 344 037 000
004136 200 017
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 111
MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
657 .SBTTL MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
658
659 .REM %
660 SUBROUTINE TO GET THE TIMING FILES NECESSARY FOR A GIVEN (TSTCON)
661 CONTROLLER. THE FILES ARE MEARLY LOADED IN PDP-11 MEMORY BOOT TIMING FILE
662 BUFFERS. CGETTF MAKES SURE PROM INFO FOR THE CONTROLLER IS VALID. GETTF
663 ASSUMES THAT IT IS VALID.
664 %
665
666 004140 GETTF: SAV.5
004140 004737 000000G JSR PC,SAV.5 ;SAVE R5-R1 ON STACK
667 004144 013704 000000G MOV TSTCON,R4 ;GET CONTR #
668 004150 105764 177770G TSTB RAMSZ0-MNMFCN(R4) ;DOES TYPSEL=0 EXIST?
669 004154 003406 BLE 1$ ;NO.. SKIP TIMG LD
670 004156 012701 177770G MOV #RAMSZ0-MNMFCN,R1 ;TYPSEL=0 BASE ADR PARAM
671 004162 012702 004432' MOV #MOSTT0,R2 ;TIMING BUFFER ADR
672 004166 004737 004220' JSR PC,3$ ;GET TIMG FIL
673 004172 105764 177770G 1$: TSTB RAMSZ1-MNMFCN(R4) ;IS THERE A SECOND RAM SIZ IN CONTR?
674 004176 003406 BLE 2$ ;NO
675 004200 012701 177770G MOV #RAMSZ1-MNMFCN,R1 ;TYPSEL=1 BASE ADR PARAM
676 004204 012702 004542' MOV #MOSTT1,R2 ;TIMING BUFFER ADR
677 004210 004737 004220' JSR PC,3$ ;GET TIMG FIL
678 004214 2$: R5.PC ;DONE...RETURN
004214 000137 000000G JMP R5.PC ;RESTORE R1-R5 FROM STACK & DO RTS PC
679
680 ;-----LOCAL SUBROUTINE CONSTRUCTS DESIRED TIMING FILE NAME. IF WE HAVE IT
681 ; WE JUST RETURN, ELSE WE GO GET IT AND PUT IT IN PLACE (WHILE PRESERVING
682 ; ORIGIONAL OVERLAY AREA).
683 004220 060401 3$: ADD R4,R1 ;ADJ TYPSEL BASE ADR PARAM FOR CONTR
684 004222 012700 004423' MOV #TMFLNM+5,R0 ;PTR SAVES TIM & SPACE
685 004226 116110 000020 MOVB RS0TN0(R1),(R0) ;SET UP "NX" (TIMING NUMBER)
686 004232 152710 000060 BISB #'0,(R0)
687 004236 112740 000116 MOVB #'N,-(R0)
688 004242 111101 MOVB (R1),R1 ;SET UP "SS" (RAM SIZE)
689 004244 006301 ASL R1
690 004246 016140 004406' MOV 7$(R1),-(R0)
691 004252 112740 000106 MOVB #'F,-(R0) ;SET UP "C" (CONTROLLER TYPE)
692 004256 112740 000102 MOVB #'B,-(R0) ;SET UP "M" (CPU TYPE)
693
694 ;; TST MODELB ;REPLACE FOR MOS ON MODEL A KL10
695 ;; BNE 4$ ;REPLACE FOR MOS ON MODEL A KL10
696 ;; DECB (R0) ;REPLACE FOR MOS ON MODEL A KL10
697
698 ;-----FILE NAME IS SET UP. SEE IF WE HAVE IT ALREADY IN CORRECT BUF.
699 004262 010200 4$: MOV R2,R0 ;GET BUF ADR
700 004264 012701 004416' MOV #TMFLNM,R1 ;PT TO FIL NAM
701 004270 022021 CMP (R0)+,(R1)+ ;CHK WD OF FILE NAME
702 004272 001004 BNE 5$ ;BR IF DIF...LD FILE
703 004274 022021 CMP (R0)+,(R1)+ ;CHK WD OF FILE NAME
704 004276 001002 BNE 5$ ;BR IF DIF...LD FILE
705 004300 021011 CMP (R0),(R1) ;CHK WD OF FILE NAME
706 004302 001440 BEQ 6$ ;BR IF SAME.. RETURN.. TIMING ALREADY IN PLACE.
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 112
MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
708 ;-----HERE WHEN TIMING FILE LOAD IS REQUIRED.
709 004304 010200 5$: MOV R2,R0 ;PT R0 AT BUFFER FOR TIMING
710 004306 004737 000000G JSR PC,RDATIM ;READ A TIMING
711 004312 103034 BCC 6$ ;GOT IT.. EXIT
713 004314 PMSG <CAN'T FIND MF20 TIMING FILE >
004314 012700 004326' MOV #64$,R0 ; ** MESSAGE POINTER TO R0
004320 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
004324 000417 BR 65$ ; ** BRANCH AROUND TEXT
004326 103 101 116 64$: .ASCIZ %CAN'T FIND MF20 TIMING FILE %
714 004364 $PMSG TMFLNM ;PRINT TIMING FILE ID
004364 012700 004416' MOV #TMFLNM,R0 ; ** TEXT POINTER TO R0
004370 004737 000000G JSR PC,$TTDMS ; ** OUTPUT THE MESSAGE
715 004374 FATAL CFT ;FATAL HALT.. CAN'T FIND TIMING FILE
004374 004737 000000G JSR PC,$FATAL ; ** FATAL "CFT" ERROR
004400 103 106 124 .ASCIZ %CFT%
723 ;-----HAVE FILE ALREADY...CLEAN UP AND RETURN
724 004404 000207 6$: RTS PC
725
726 004406 066 064 063 7$: .ASCII /64321604/ ;ASCII RAM SIZE CODES
727
728 004416 115 103 123 TMFLNM: .ASCIZ /MCSSNX.A11/ ;STD TIMG FIL NAM. SEE MACROS FOR DEFS
729 .EVEN
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 113
MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
762 .REM %
763 HERE IS THE DEFAULT TYPSEL=0 TIMING FOR THE MF20. ALSO SPACE IS LEFT
764 FOR SOME TYPSEL=1 TIMING, THOUGH NONE IS CURRENTLY DEFINED.
765 %
766
767 ;-----CREATE THE TYPSEL=0 DEFAULT TIMING (SAME AS BF16N1.A11). NOTE THAT THE
768 ; MF20 PROTOTYPE TIMING SIGNALS ARE DEFINED IN MBMAC.P11.
769
770 004432 MOSTT0: TIMING KL10B,16K,1,29 ;HEADER BLOCK
004432 102 106 .BYTE $KL10B,'F ;KL10 MODEL ID & F FOR MF20
004434 033061 .WORD $SIZ16K ;RAM SIZE
004436 116 061 .BYTE 'N,'1 ;THE LETTER N & THE TIMING NUMBER
004440 035 000 .BYTE ^D29, ;REFRESH BYTE AND OTHER DATA
771
772 004442 TICK 0,RAS,H ; ***** THIS IS THE SECOND REVISION OF THE MF20
773 004442 TICK 0,WENABL,H ; ***** TIMING. THIS TIMING IS BF16N1 VER 2.1.
774 004442 TICK 0,DREADY,H ; ***** THIS VERSION COMPLETELY SUPERCEDES VERS
775 004442 TICK 1,WENABL,L ; ***** 1.1. VERSION 1.1 WAS REPLACED BECAUSE
004442 145011
776 004444 TICK 1,ADR2ND,H ; ***** WORST CASE TIMING ANALYSIS SHOWED THERE
777 004444 TICK 4,CAS,H ; ***** WAS A POTENTIAL PROBLEM. THIS IS THE
004444 143011
004446 143011
004450 143011
778 004452 TICK 8,DREADY,L ; ***** RELEASED VERSION OF THE MF20 TIMING.
004452 173011
004454 173011
004456 173011
004460 173011
779 004462 TICK 9,DREADY,H ; ***** ANY IMPROVEMENTS FROM NOW ON WILL
004462 162011
780 004464 TICK 11,RAS,L ; ***** REQUIRE A TIMING FILE OF A DIFFERENT
004464 173011
004466 173011
781 004470 TICK 11,CAS,L ; ***** NAME AND, ALSO, A CHANGE IN THE ARRAY
782 004470 TICK 11,WENABL,H ; ***** BOARD TIMING NUMBERS. I WOULD SUGGEST
783 004470 TICK 11,ADR2ND,L ; ***** TN=0 AND THE FILE NAME BF16N0.
784 004470 TICK 14,BSYCLR,H ; *****
004470 115011
004472 115011
004474 115011
785 004476 TICK 15,BSYCLR,L ; ***** JEFFREY ARNO BARRY 29857 22-AUG-78
004476 105411
786
787 004500 ENDTIM 16.,<WENABL,DREADY> ;16. IS FIRST UNUSED TIMING RAM LOCATION
004500 115011
004502 105011
004504 105011
004506 105011
004510 105011
004512 105011
004514 105011
004516 105011
004520 105011
004522 105011
004524 105011
004526 105011
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 113-1
MAKE SURE TIMING FILES ARE LOADED FOR A MOS CONTROLLER
004530 105011
004532 105011
004534 105011
004536 105011
004540 105011
788
789 ;-----RESERVE SPACE FOR SOME TYPSEL=1 TIMING.
790
791 004542 000000 000000 000000 MOSTT1: .WORD 0,0,0 ;NO NAME
792 004550 .BLKW TIMFS-3 ;SPACE FOR TYPSEL=1 TIMING FILE
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 114
ROUTINES TO GET DATA FROM UNUSED BITSUB RAM LOCATIONS
796 .SBTTL ROUTINES TO GET DATA FROM UNUSED BITSUB RAM LOCATIONS
799
800 .REM %
801 GETBBD RETRIEVES THE BAD BLOCK DATA BACK FROM AN MF20. C-BIT IS SET
802 UPON ANY KIND OF ERROR. THE MAP IS RETURNED RIGHT-JUSTIFIED IN R0, BIT0
803 CORRESPONDING TO BLOCK 0, ETC.
804 %
805
806 004652 005046 GETBBD: CLR -(SP) ;PUT A WD ON THE STK
807 004654 GBSRL 774 ;GET LO ORD LOC
004654 010546 MOV R5,-(SP)
004656 012746 077407 MOV #774*64.+7,-(SP)
004662 010605 MOV SP,R5 ;PT TO ARGS WITH R5
004664 004737 005040' JSR PC,GBSRL ;MOV BITSUB RAM LOCATION TO RH 6 BITS OF R0
004670 012605 MOV (SP)+,R5 ;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
004672 012605 MOV (SP)+,R5 ;RESTORE R5
808 004674 103415 BCS 1$ ;BR ON ERR
809 004676 010016 MOV R0,(SP) ;LO ORD CONTR BITS TO STK
810 004700 GBSRL 770 ;GET HI ORD LOC
004700 010546 MOV R5,-(SP)
004702 012746 077007 MOV #770*64.+7,-(SP)
004706 010605 MOV SP,R5 ;PT TO ARGS WITH R5
004710 004737 005040' JSR PC,GBSRL ;MOV BITSUB RAM LOCATION TO RH 6 BITS OF R0
004714 012605 MOV (SP)+,R5 ;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
004716 012605 MOV (SP)+,R5 ;RESTORE R5
811 004720 103403 BCS 1$
812 004722 004737 000000G JSR PC,ASL0.6
813 004726 000241 CLC
814 004730 052600 1$: BIS (SP)+,R0 ;PUT TOGETHER THE MAP IN R0
815 004732 000207 RTS PC ;RETURN...C-BIT SET ON ERR...BAD BLK MAP IN R0
818
819 .REM %
820 GETCMP RETRIEVES THE CONNECTED-TO-CPU DATA BACK FROM AN MF20. C-BIT IS
821 SET UPON ANY KIND OF ERROR. THE CONNECTED MAP IS RETURNED RIGHT-JUSTIFIED IN
822 R0, BIT0 CORRESPONDING TO MF20 #10, ETC.
823 %
824
825 ; ***** NOTE: THIS ROUTINE CURRENTLY HANDLES ONLY CPU "A". *****
826
827 004734 005046 GETCMP: CLR -(SP) ;PUT A WD ON THE STK
828 004736 GBSRL 764 ;GET LO ORD LOC
004736 010546 MOV R5,-(SP)
004740 012746 076407 MOV #764*64.+7,-(SP)
004744 010605 MOV SP,R5 ;PT TO ARGS WITH R5
004746 004737 005040' JSR PC,GBSRL ;MOV BITSUB RAM LOCATION TO RH 6 BITS OF R0
004752 012605 MOV (SP)+,R5 ;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
004754 012605 MOV (SP)+,R5 ;RESTORE R5
829 004756 103424 BCS 1$ ;BR ON ERR
830 004760 032700 177741 BIT #177741,R0 ;CHK FOR OTHER JUNK
831 004764 001023 BNE 2$ ;ERROR
832 004766 006200 ASR R0
833 004770 010016 MOV R0,(SP) ;LO ORD CONTR BITS TO STK
834 004772 GBSRL 760 ;GET HI ORD LOC
004772 010546 MOV R5,-(SP)
004774 012746 076007 MOV #760*64.+7,-(SP)
005000 010605 MOV SP,R5 ;PT TO ARGS WITH R5
005002 004737 005040' JSR PC,GBSRL ;MOV BITSUB RAM LOCATION TO RH 6 BITS OF R0
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 114-1
ROUTINES TO GET DATA FROM UNUSED BITSUB RAM LOCATIONS
005006 012605 MOV (SP)+,R5 ;DEL ARG WD FROM STK -- C BIT NOT AFFECTED
005010 012605 MOV (SP)+,R5 ;RESTORE R5
835 005012 103406 BCS 1$
836 005014 032700 177741 BIT #177741,R0
837 005020 001005 BNE 2$
838 005022 004737 000000G JSR PC,ASL0.3
839 005026 000241 CLC
840 005030 052600 1$: BIS (SP)+,R0 ;PUT TOGETHER THE MAP IN R0
841 005032 000207 RTS PC ;RETURN...C-BIT SET ON ERR...CONN MAP IN R0
842 005034 000261 2$: SEC
843 005036 000774 BR 1$
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 115
ROUTINES TO GET DATA FROM UNUSED BITSUB RAM LOCATIONS
847
848 .REM %
849 GBSRL READS THE SPECIFIED MF20 BITSUB RAM LOCATION, MAKES SURE THAT BIT
850 13 IS 0 AND THAT OVERALL PARITY IS BAD. IF SO THEN IT PUTS BITS 7-12 INTO R0
851 RIGHT JUSTIFIED. ANY SORT OF ERROR GIVES A C-BIT SET RETURN.
852 %
853
854 005040 012537 000000G GBSRL: MOV (R5)+,REAPWD ;SET UP RH END OF FCN 7
855 005044 005037 000002G CLR REAPWD+2 ;CLR THE MIDDLE
856 005050 FSDMSK MINUS1 ;SET FSD CHK MSK TO CHK NOTHING
005050 012700 000000G MOV #MINUS1,R0 ;PT TO MASK
005054 004737 000000G JSR PC,FSDM1 ;LD SBDIAG CHK MASK PTD TO BY R0
857 005060 FSD REAPWD ;DO THE FCN 7 READ
005060 004537 005066' JSR R5,64$ ;SAV R5, PT TO & SKIP LIST
005064 000000G .WORD REAPWD ;SBDIAG WORD ADDRESS
005066 004737 000000G 64$: JSR PC,FSD ;DO FAST SBUS DIAG
005072 012605 MOV (SP)+,R5
858 005074 103417 BCS 1$
859 005076 EXAMT AC17,REAPWD ;GET THE DATA
005076 012700 000017 MOV #AC17,R0 ; ** ADDRESS POINTER TO R0
005102 010146 MOV R1,-(SP) ; ** SAVE R1
005104 012701 000000G MOV #REAPWD,R1 ; ** REAPWD BUFFER POINTER TO R1
005110 004737 000000G JSR PC,$EXAMT ; ** EXECUTE THE KL10 EXAMINE
005114 012601 MOV (SP)+,R1 ; ** RESTORE R1
861 005116 103406 BCS 1$ ;PUNT ON ERROR
862 005120 013700 000002G MOV REAPWD+2,R0 ;GET READ RESULTS
863 005124 CALPAR ;CALC WHAT PAR BIT SHOULD BE
005124 004737 000000G JSR PC,CALPAR ;CALC PARITY OF VALUE IN R0
864 005130 005700 TST R0 ;SEE WHAT PARITY IS
865 005132 001402 BEQ 2$ ;BR IF PAR WAS EVEN...OK
866 005134 000261 1$: SEC
867 005136 000412 BR 3$ ;ELSE PUNT
868 005140 013700 000002G 2$: MOV REAPWD+2,R0 ;GET BITS AGAIN
869 005144 032700 000100 BIT #100,R0 ;IS BIT 13 SET?
870 005150 001371 BNE 1$ ;YES...ERROR
871 005152 006300 ASL R0 ;ELSE OK...POS & ISO BITS
872 005154 000300 SWAB R0
873 005156 042700 177700 BIC #177700,R0
874 005162 000241 CLC
875 005164 000207 3$: RTS PC
878 000001 .END
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 115-1
SYMBOL TABLE
AC = 000004 ANDM = 000406 BRCTN = 000006 DIVB = 000237 FSBR = 000154
ACC0 = 000001 AOBJN = 000253 BSIZE = ****** GX DIVI = 000235 FSBRB = 000157
ACC1 = 000002 AOBJP = 000252 BSYCLR= 000400 DIVM = 000236 FSBRI = 000155
ACC10 = 000400 AOJ = 000340 CAI = 000300 DLNXT = ****** GX FSBRM = 000156
ACC11 = 001000 AOJA = 000344 CAIA = 000304 DMACN = 000004 FSC = 000132
ACC12 = 002000 AOJE = 000342 CAIE = 000302 DMACTN= 000002 FSD = ****** GX
ACC13 = 004000 AOJG = 000347 CAIG = 000307 DMARMP= ****** GX FSDCH = ****** GX
ACC14 = 010000 AOJGE = 000345 CAIGE = 000305 DMOVE = 000120 FSDCHK= ****** GX
ACC15 = 020000 AOJL = 000341 CAIL = 000301 DMOVEM= 000124 FSDM1 = ****** GX
ACC16 = 040000 AOJLE = 000343 CAILE = 000303 DMOVN = 000121 F11M 003773R
ACC17 = 100000 AOJN = 000346 CAIN = 000306 DMOVNM= 000125 GBSRL 005040R
ACC2 = 000004 AOS = 000350 CALPAR= ****** GX DMUL = 000116 GETBBD 004652RG
ACC3 = 000010 AOSA = 000354 CAM = 000310 DPB = 000137 GETCMP 004734RG
ACC4 = 000020 AOSE = 000352 CAMA = 000314 DPD 002266RG GETTF 004140R
ACC5 = 000040 AOSG = 000357 CAME = 000312 DPDSRS= ****** GX HALTLP= 001000
ACC6 = 000100 AOSGE = 000355 CAMG = 000317 DREADY= 001000 HLL = 000500
ACC7 = 000200 AOSL = 000351 CAMGE = 000315 DSUB = 000115 HLLE = 000530
ACLOAD= ****** GX AOSLE = 000353 CAML = 000311 EQV = 000444 HLLEI = 000531
AC0 = 000000 AOSN = 000356 CAMLE = 000313 EQVB = 000447 HLLEM = 000532
AC1 = 000001 APR = 000000 CAMN = 000316 EQVI = 000445 HLLES = 000533
AC10 = 000010 ASH = 000240 CAS = 020000 EQVM = 000446 HLLI = 000501
AC11 = 000011 ASHC = 000244 CCA = 000014 ERRSTP= 004000 HLLM = 000502
AC12 = 000012 ASL0.3= ****** GX CCFAIL= ****** GX ER$CFT= 004374RG HLLO = 000520
AC13 = 000013 ASL0.6= ****** GX CECLK = 000004 EXCH = 000250 HLLOI = 000521
AC14 = 000014 ASR0.3= ****** GX CHKED = ****** GX EXTEND= 000123 HLLOM = 000522
AC15 = 000015 ASR0.5= ****** GX CLEAR = 000400 FAD = 000140 HLLOS = 000523
AC16 = 000016 BAF = ****** GX CLEARB= 000403 FADB = 000143 HLLS = 000503
AC17 = 000017 BIT0 = 000001 CLEARI= 000401 FADL = 000141 HLLZ = 000510
AC2 = 000002 BIT1 = 000002 CLEARM= 000402 FADM = 000142 HLLZI = 000511
AC3 = 000003 BIT10 = 002000 CLRMR = 000006 FADR = 000144 HLLZM = 000512
AC4 = 000004 BIT11 = 004000 CNTSD1= ****** GX FADRB = 000147 HLLZS = 000513
AC5 = 000005 BIT12 = 010000 CONBUT= 000012 FADRI = 000145 HLR = 000544
AC6 = 000006 BIT13 = 020000 CONI = 000005 FADRM = 000146 HLRE = 000574
AC7 = 000007 BIT14 = 040000 CONMMR= 000001 FDV = 000170 HLREI = 000575
ADD = 000270 BIT15 = 100000 CONO = 000004 FDVB = 000173 HLREM = 000576
ADDB = 000273 BIT2 = 000004 CONSO = 000007 FDVL = 000171 HLRES = 000577
ADDI = 000271 BIT3 = 000010 CONSZ = 000006 FDVM = 000172 HLRI = 000545
ADDM = 000272 BIT4 = 000020 CONTI = ****** GX FDVR = 000174 HLRM = 000546
ADH = 000000 BIT5 = 000040 CONTIN= ****** GX FDVRB = 000177 HLRO = 000564
ADJSP = 000105 BIT6 = 000100 CPU = 000200 FDVRI = 000175 HLROI = 000565
ADL = 000000 BIT7 = 000200 DADD = 000114 FDVRM = 000176 HLROM = 000566
ADR2ND= 002000 BIT8 = 000400 DATAI = 000001 FIX = 000122 HLROS = 000567
AND = 000404 BIT9 = 001000 DATAO = 000003 FIXR = 000126 HLRS = 000547
ANDB = 000407 BLKI = 000000 DBESFL= ****** GX FLTR = 000127 HLRZ = 000554
ANDCA = 000410 BLKO = 000002 DBUF = ****** GX FMP = 000160 HLRZI = 000555
ANDCAB= 000413 BLK0 = 000000 DCNFBB 002516RG FMPB = 000163 HLRZM = 000556
ANDCAI= 000411 BLK1 = 000001 DCNFPM= 013777 FMPL = 000161 HLRZS = 000557
ANDCAM= 000412 BLK2 = 000002 DDIV = 000117 FMPM = 000162 HRL = 000504
ANDCB = 000440 BLK3 = 000003 DE$BUG= 070000 FMPR = 000164 HRLE = 000534
ANDCBB= 000443 BLK4 = 000004 DFAD = 000110 FMPRB = 000167 HRLEI = 000535
ANDCBI= 000441 BLK5 = 000005 DFDV = 000113 FMPRI = 000165 HRLEM = 000536
ANDCBM= 000442 BLK6 = 000006 DFMP = 000112 FMPRM = 000166 HRLES = 000537
ANDCM = 000420 BLT = 000251 DFN = 000131 FMRECN= ****** GX HRLI = 000505
ANDCMB= 000423 BMTAB = ****** GX DFRLST= ****** GX FSB = 000150 HRLM = 000506
ANDCMI= 000421 BOLPS = ****** GX DFSB = 000111 FSBB = 000153 HRLO = 000524
ANDCMM= 000422 BOLPSJ 000224R DIAG = 000104 FSBL = 000151 HRLOI = 000525
ANDI = 000405 BRCLK = 000005 DIV = 000234 FSBM = 000152 HRLOM = 000526
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 115-2
SYMBOL TABLE
HRLOS = 000527 LDB = 000135 MULI = 000225 SETCA = 000450 TBN = 000004
HRLS = 000507 LDEFER= ****** GX MULM = 000226 SETCAB= 000453 TCN = 000001
HRLZ = 000514 LDFVR 003116R MXBRCN= 000037 SETCAI= 000451 TDC = 000650
HRLZI = 000515 LDNADR 002734RG MXCTN = 000004 SETCAM= 000452 TDCA = 000654
HRLZM = 000516 LDREFR 004000R MXMFCN= 000017 SETCM = 000460 TDCE = 000652
HRLZS = 000517 LDTIMR 003452R MXMXCN= 000007 SETCMB= 000463 TDCN = 000656
HRR = 000540 LSBRTN= 000001 MXM.CN= 000003 SETCMI= 000461 TDN = 000610
HRRE = 000570 LSBSRL= 000744 MX20MD 002054RG SETCMM= 000462 TDNA = 000614
HRREI = 000571 LSH = 000242 OR = 000434 SETM = 000414 TDNE = 000612
HRREM = 000572 LSHC = 000246 ORB = 000437 SETMB = 000417 TDNN = 000616
HRRES = 000573 LSTMB = 000001 ORCA = 000454 SETMI = 000415 TDO = 000670
HRRI = 000541 LUBSRL= 000600 ORCAB = 000457 SETMM = 000416 TDOA = 000674
HRRM = 000542 MACTN = 000001 ORCAI = 000455 SETMR = 000007 TDOE = 000672
HRRO = 000560 MAP = 000257 ORCAM = 000456 SETO = 000474 TDON = 000676
HRROI = 000561 MAXCN = 000037 ORCB = 000470 SETOB = 000477 TDZ = 000630
HRROM = 000562 MBCTN = 000003 ORCBB = 000473 SETOI = 000475 TDZA = 000634
HRROS = 000563 MDHDEJ 000230R ORCBI = 000471 SETOM = 000476 TDZE = 000632
HRRS = 000543 MDHDER= ****** GX ORCBM = 000472 SETRAM= ****** GX TDZN = 000636
HRRZ = 000550 MDINIT 000000RG ORCM = 000464 SETRUN= 000011 TGN = 000002
HRRZI = 000551 MDRECN= ****** GX ORCMB = 000467 SETZ = 000400 TIMFS = 000044
HRRZM = 000552 MDST0 000076RG ORCMI = 000465 SETZB = 000403 TIMNO0= ****** GX
HRRZS = 000553 MDST0A 000122R ORCMM = 000466 SETZI = 000401 TIMNO1= ****** GX
I = 000000 MDST1B= ****** GX ORI = 000435 SETZM = 000402 TLC = 000641
IBP = 000133 MDST23 000234RG ORM = 000436 SKIP = 000330 TLCA = 000645
IDIV = 000230 MFCTN = 000005 PAG = 000010 SKIPA = 000334 TLCE = 000643
IDIVB = 000233 MFIXED 003252R PI = 000004 SKIPE = 000332 TLCN = 000647
IDIVI = 000231 MFXEND 003452R POP = 000262 SKIPG = 000337 TLN = 000601
IDIVM = 000232 MF20RD= ****** GX POPJ = 000263 SKIPGE= 000335 TLNA = 000605
IDPB = 000136 MINUS1= ****** GX PRMDPM= 037740 SKIPL = 000331 TLNE = 000603
ILDB = 000134 MMRESP= ****** GX PUSH = 000261 SKIPLE= 000333 TLNN = 000607
IMUL = 000220 MNBRCN= 000036 PUSHJ = 000260 SKIPN = 000336 TLO = 000661
IMULB = 000223 MNMFCN= 000010 PXCT = 000256 SMFSS0= ****** GX TLOA = 000665
IMULI = 000221 MNMXCN= 000006 QRESET= 003004RG SOJ = 000360 TLOE = 000663
IMULM = 000222 MNM.CN= 000000 RAMSZ0= ****** GX SOJA = 000364 TLON = 000667
INIMDF= ****** GX MNTITF= 000040 RAMSZ1= ****** GX SOJE = 000362 TLZ = 000621
IOR = 000434 MOSTT0 004432R RAS = 040000 SOJG = 000367 TLZA = 000625
IORB = 000437 MOSTT1 004542R RDATIM= ****** GX SOJGE = 000365 TLZE = 000623
IORI = 000435 MOVE = 000200 RDPROM 002060RG SOJL = 000361 TLZN = 000627
IORM = 000436 MOVEI = 000201 REAPWD= ****** GX SOJLE = 000363 TMFLNM 004416RG
JFCL = 000255 MOVEM = 000202 ROT = 000241 SOJN = 000366 TRC = 000640
JFFO = 000243 MOVES = 000203 ROTC = 000245 SOS = 000370 TRCA = 000644
JRA = 000267 MOVM = 000214 RSPMAP= ****** GX SOSA = 000374 TRCE = 000642
JRST = 000254 MOVMI = 000215 RS0RS1= 000010 SOSE = 000372 TRCN = 000646
JSA = 000266 MOVMM = 000216 RS0TN0= 000020 SOSG = 000377 TRN = 000600
JSP = 000265 MOVMS = 000217 RUNPRG= ****** GX SOSGE = 000375 TRNA = 000604
JSR = 000264 MOVN = 000210 R$$20F= 000001 SOSL = 000371 TRNE = 000602
JUMP = 000320 MOVNI = 000211 R5.PC = ****** GX SOSLE = 000373 TRNN = 000606
JUMPA = 000324 MOVNM = 000212 SAV.5 = ****** GX SOSN = 000376 TRO = 000660
JUMPE = 000322 MOVNS = 000213 SBDT = ****** GX SSCLK = 000002 TROA = 000664
JUMPG = 000327 MOVS = 000204 SBD0 = ****** GX STPCLK= 000000 TROE = 000662
JUMPGE= 000325 MOVSI = 000205 SBUS = 100000 STRCLK= 000001 TRON = 000666
JUMPL = 000321 MOVSM = 000206 SECLK = 000003 SUB = 000274 TRPAR = 010000
JUMPLE= 000323 MOVSS = 000207 SETA = 000424 SUBB = 000277 TRZ = 000620
JUMPN = 000326 MSAMSZ= 000140 SETAB = 000427 SUBI = 000275 TRZA = 000624
KEEPBB= ****** GX MSSCTL= 177777 G SETAI = 000425 SUBM = 000276 TRZE = 000622
LDAR = 000077 MUL = 000224 SETAM = 000426 SXCT = 000106 TRZN = 000626
LDATIM 003702R MULB = 000227 SETBBD= ****** GX TADR = 000010 TSC = 000651
MSSCTL -- MOS SOFTWARE STATE CO MACRO M1110 17-SEP-79 09:06 PAGE 115-3
SYMBOL TABLE
TSCA = 000655 XCONMP= ****** GX $EXAMD= ****** GX $LDTIM= 000001 $TDB2O= ****** GX
TSCE = 000653 XCT = 000256 $EXAMT= ****** GX $LOADA= 000001 $TIMLP= 070014
TSCN = 000657 XDV = 000004 $FATAL= ****** GX $MOSDE= 000001 $TL = 000014
TSN = 000611 XOP = 000002 $FIND = 000001 $MX20M= 000001 $TTDMS= ****** GX
TSNA = 000615 XOR = 000430 $FVRC = 000000 $PATCH= 070004 $WDD22= ****** GX
TSNE = 000613 XORB = 000433 $FVRW = 000000 $RDERA= 000000 $WDD36= ****** GX
TSNN = 000617 XORI = 000431 $GBSRL= 000001 $RDPRO= 000001 $$APRI= 000000
TSO = 000671 XORM = 000432 $GETBB= 000001 $RELOA= 000001 $$NARG= 000001
TSOA = 000675 XR = 000000 $GETCM= 000001 $RESET= 000001 $$RDER= 000004
TSOE = 000673 Y = 105011 $GETCT= 070020 $RSTAC= 070030 $$SBDI= 000004
TSON = 000677 $APRID= 000000 $GETTF= 000001 $RUN = 000001 $10BC = 070040
TSTCON= ****** GX $BRST = 000001 $IND36= 000003 $SAVAC= 070024 $10BP = 070034
TSZ = 000631 $CALPA= 000001 $KLMR = ****** GX $SBDIA= 000002 $10MB = 070050
TSZA = 000635 $CNTSD= 000001 $KL10A= 000101 $SDW = 000002 $10RB = 070044
TSZE = 000633 $DCNFB= 000001 $KL10B= 000102 $SIZ16= 033061 .RESET= ****** GX
TSZN = 000637 $DDFXC= ****** GX $LDATI= 000001 $SIZ32= 031063 .SBDIA= 000001
UFA = 000130 $DMPAC= 070010 $LDEFE= 000001 $SIZ4K= 032060 .WORK = ****** GX
UNDCTN= 000007 $DPD = 000001 $LDFVR= 000001 $SIZ64= 032066 ... = 000377
WENABL= 004000 $EB = 002640R $LDNAD= 000001 $STEP = 000001 ......= 177777
X = 000002 $EVENT= 000001 $LDREF= 000001 $TB = 000000
. ABS. 000000 000
005166 001
ERRORS DETECTED: 0
VIRTUAL MEMORY USED: 23100 WORDS ( 91 PAGES)
DYNAMIC MEMORY: 20620 WORDS ( 79 PAGES)
ELAPSED TIME: 00:04:18
[56,10]MSSCTL,[56,20]MSSCTL/-SP/CR=[56,30]MSSASM,MBOVLC,MOSMAC,MBMAC,MOSDEF,MSSCTL
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 1
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AC = 000004 #102-304 #102-304 102-304 102-304 #102-305 #102-305 102-305 102-305 #102-307
#102-307 102-307 102-307 #102-308 #102-308 102-308 102-308 #102-309 #102-309
102-309 102-309 #102-310 102-310 102-310 #105-416 #105-416 105-416 105-416
#105-417 #105-417 105-417 105-417 #105-419 #105-419 105-419 105-419 #105-420
#105-420 105-420 105-420 #105-422 #105-422 105-422 105-422 #105-423 105-423
105-423 #105-424 #105-424 105-424 105-424
ACC0 = 000001 #19-739
ACC1 = 000002 #19-740
ACC10 = 000400 #19-747
ACC11 = 001000 #19-748
ACC12 = 002000 #19-749
ACC13 = 004000 #19-750
ACC14 = 010000 #19-751
ACC15 = 020000 #19-752
ACC16 = 040000 #19-753
ACC17 = 100000 #19-754
ACC2 = 000004 #19-741
ACC3 = 000010 #19-742
ACC4 = 000020 #19-743
ACC5 = 000040 #19-744
ACC6 = 000100 #19-745
ACC7 = 000200 #19-746
ACLOAD = ****** GX 102-278 105-400
AC0 = 000000 #12-27 105-406
AC1 = 000001 #12-28
AC10 = 000010 #12-35
AC11 = 000011 #12-36
AC12 = 000012 #12-37
AC13 = 000013 #12-38
AC14 = 000014 #12-39
AC15 = 000015 #12-40
AC16 = 000016 #12-41
AC17 = 000017 #12-42 102-286 115-859
AC2 = 000002 #12-29
AC3 = 000003 #12-30
AC4 = 000004 #12-31
AC5 = 000005 #12-32
AC6 = 000006 #12-33
AC7 = 000007 #12-34 102-279
ADD = 000270 #12-167 102-309 102-309
ADDB = 000273 #12-170
ADDI = 000271 #12-168
ADDM = 000272 #12-169
ADH = 000000 #102-304 102-304 102-304 #102-305 102-305 102-305 #102-306 102-306 102-306
#102-307 102-307 102-307 #102-308 102-308 102-308 #102-309 102-309 102-309
#102-310 102-310 102-310 #105-416 105-416 105-416 #105-417 105-417 105-417
#105-418 105-418 105-418 #105-419 105-419 105-419 #105-420 105-420 105-420
#105-421 105-421 105-421 #105-422 #105-422 105-422 105-422 #105-423 105-423
105-423 #105-424 105-424 105-424
ADJSP = 000105 #12-53
ADL = 000000 #102-304 102-304 102-304 #102-304 102-304 102-304 #102-304 102-304 102-304
#102-305 102-305 102-305 #102-305 102-305 102-305 #102-306 102-306 102-306
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 2
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#102-306 102-306 102-306 #102-306 102-306 102-306 #102-307 102-307 102-307
#102-307 102-307 102-307 #102-308 102-308 102-308 #102-308 102-308 102-308
#102-308 102-308 102-308 #102-309 102-309 102-309 #102-309 102-309 102-309
#102-309 102-309 102-309 #102-310 102-310 102-310 #102-310 102-310 102-310
#105-416 105-416 105-416 #105-416 105-416 105-416 #105-416 105-416 105-416
#105-416 105-416 105-416 #105-417 105-417 105-417 #105-417 105-417 105-417
#105-417 105-417 105-417 #105-418 105-418 105-418 #105-418 105-418 105-418
#105-418 105-418 105-418 #105-419 105-419 105-419 #105-419 105-419 105-419
#105-419 105-419 105-419 #105-420 105-420 105-420 #105-420 105-420 105-420
#105-420 105-420 105-420 #105-420 105-420 105-420 #105-421 105-421 105-421
#105-421 105-421 105-421 #105-421 105-421 105-421 #105-422 105-422 105-422
#105-422 105-422 105-422 #105-422 105-422 105-422 #105-422 105-422 105-422
#105-422 105-422 105-422 #105-422 105-422 105-422 105-422 #105-422 105-422
105-422 #105-423 105-423 105-423 #105-423 105-423 105-423 #105-424 105-424
105-424 #105-424 105-424 105-424
ADR2ND = 002000 #44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205 44-205 44-205 #44-205 44-205 44-205
#44-205 44-205 44-205 #44-205 113-776 113-783
AND = 000404 #12-247
ANDB = 000407 #12-250
ANDCA = 000410 #12-251
ANDCAB = 000413 #12-254
ANDCAI = 000411 #12-252
ANDCAM = 000412 #12-253
ANDCB = 000440 #12-279
ANDCBB = 000443 #12-282
ANDCBI = 000441 #12-280
ANDCBM = 000442 #12-281
ANDCM = 000420 #12-259
ANDCMB = 000423 #12-262
ANDCMI = 000421 #12-260
ANDCMM = 000422 #12-261
ANDI = 000405 #12-248
ANDM = 000406 #12-249
AOBJN = 000253 #12-153
AOBJP = 000252 #12-152
AOJ = 000340 #12-207
AOJA = 000344 #12-211
AOJE = 000342 #12-209
AOJG = 000347 #12-214
AOJGE = 000345 #12-212
AOJL = 000341 #12-208
AOJLE = 000343 #12-210
AOJN = 000346 #12-213
AOS = 000350 #12-215
AOSA = 000354 #12-219
AOSE = 000352 #12-217
AOSG = 000357 #12-222
AOSGE = 000355 #12-220
AOSL = 000351 #12-216
AOSLE = 000353 #12-218
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 3
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
AOSN = 000356 #12-221
APR = 000000 #12-449 55-130
ASH = 000240 #12-143
ASHC = 000244 #12-147
ASL0.3 = ****** GX 114-838
ASL0.6 = ****** GX 114-812
ASR0.3 = ****** GX 100-210 103-353 110-641
ASR0.5 = ****** GX 99-146 99-159 99-170 99-186 100-202
BAF = ****** GX 103-342
BIT0 = 000001 #4-63
BIT1 = 000002 #4-64
BIT10 = 002000 #4-73
BIT11 = 004000 #4-74 4-81
BIT12 = 010000 #4-75
BIT13 = 020000 #4-76
BIT14 = 040000 #4-77
BIT15 = 100000 #4-78 26-1126
BIT2 = 000004 #4-65
BIT3 = 000010 #4-66
BIT4 = 000020 #4-67
BIT5 = 000040 #4-68
BIT6 = 000100 #4-69
BIT7 = 000200 #4-70 26-1125
BIT8 = 000400 #4-71
BIT9 = 001000 #4-72 4-80
BLKI = 000000 #12-440 55-129 55-131
BLKO = 000002 #12-442 55-127
BLK0 = 000000 #12-44
BLK1 = 000001 #12-45
BLK2 = 000002 #12-46
BLK3 = 000003 #12-47
BLK4 = 000004 #12-48
BLK5 = 000005 #12-49
BLK6 = 000006 #12-50
BLT = 000251 #12-151
BMTAB = ****** GX 99-174
BOLPS = ****** GX 96-54 98-126
BOLPSJ 000224 R 96-42 96-50 #96-54
BRCLK = 000005 #55-122
BRCTN = 000006 #43-170
BSIZE = ****** GX 104-371
BSYCLR = 000400 #44-207 44-207 44-207 #44-207 44-207 44-207 #44-207 44-207 44-207
#44-207 44-207 44-207 #44-207 44-207 44-207 #44-207 44-207 44-207
#44-207 44-207 44-207 #44-207 44-207 44-207 #44-207 113-784 113-785
CAI = 000300 #12-175
CAIA = 000304 #12-179
CAIE = 000302 #12-177
CAIG = 000307 #12-182
CAIGE = 000305 #12-180
CAIL = 000301 #12-176
CAILE = 000303 #12-178
CAIN = 000306 #12-181
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 4
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
CALPAR = ****** GX 115-863
CAM = 000310 #12-183
CAMA = 000314 #12-187
CAME = 000312 #12-185
CAMG = 000317 #12-190
CAMGE = 000315 #12-188
CAML = 000311 #12-184
CAMLE = 000313 #12-186
CAMN = 000316 #12-189
CAS = 020000 #44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 44-202 44-202 #44-202 44-202 44-202
#44-202 44-202 44-202 #44-202 113-777 113-781
CCA = 000014 #12-452
CCFAIL = ****** GX *98-128 *100-215
CECLK = 000004 #55-119
CHKED = ****** GX 102-293
CLEAR = 000400 #12-239
CLEARB = 000403 #12-245
CLEARI = 000401 #12-241
CLEARM = 000402 #12-243
CLRMR = 000006 #55-120
CNTSD1 = ****** GX 102-274
CONBUT = 000012 #55-124
CONI = 000005 #12-445
CONMMR = 000001 #3-54 9-276 9-300
CONO = 000004 #12-444
CONSO = 000007 #12-447
CONSZ = 000006 #12-446
CONTI = ****** GX 96-26 96-32 96-41 100-193
CONTIN = ****** GX 102-283
CORDET = ****** 3-8 7-244
CPU = 000200 #26-1125 96-17 105-398
DADD = 000114 #12-59
DATAI = 000001 #12-441
DATAO = 000003 #12-443
DBEOVL = ****** 3-10 9-303
DBESFL = ****** GX *96-49
DBUF = ****** GX 99-151 100-195 102-281 102-295 103-341 104-377
DCNFBB 002516 RG 9-297 98-119 #105-394
DCNFPM = 013777 105-400 #105-430
DDIV = 000117 #12-62
DE$BUG = 070000 #12-8
DFAD = 000110 #12-55
DFDV = 000113 #12-58
DFMP = 000112 #12-57
DFN = 000131 #12-72
DFRLST = ****** GX 105-399
DFSB = 000111 #12-56
DIAG = 000104 #12-52
DIV = 000234 #12-139
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 5
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
DIVB = 000237 #12-142
DIVI = 000235 #12-140
DIVM = 000236 #12-141
DLNXT = ****** GX *105-399
DMACN = 000004 #43-160
DMACTN = 000002 #43-159
DMARMP = ****** GX 96-22
DMOVE = 000120 #12-63
DMOVEM = 000124 #12-67
DMOVN = 000121 #12-64
DMOVNM = 000125 #12-68
DMUL = 000116 #12-61
DPB = 000137 #12-78
DPD 002266 RG 9-297 96-45 #103-330
DPDSRS = ****** GX *103-333 *103-336 103-360
DREADY = 001000 #44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206 44-206 44-206 #44-206 44-206 44-206 #44-206 44-206 44-206
#44-206 113-774 113-778 113-779 113-787
DSUB = 000115 #12-60
EQV = 000444 #12-283
EQVB = 000447 #12-286
EQVI = 000445 #12-284
EQVM = 000446 #12-285
ERRSTP = 004000 #4-81
ER$CFT = 004374 RG #112-715
EXCH = 000250 #12-150
EXTEND = 000123 #12-66
FAD = 000140 #12-79
FADB = 000143 #12-82
FADL = 000141 #12-80
FADM = 000142 #12-81
FADR = 000144 #12-83
FADRB = 000147 #12-86
FADRI = 000145 #12-84
FADRM = 000146 #12-85
FDV = 000170 #12-103
FDVB = 000173 #12-106
FDVL = 000171 #12-104
FDVM = 000172 #12-105
FDVR = 000174 #12-107
FDVRB = 000177 #12-110
FDVRI = 000175 #12-108
FDVRM = 000176 #12-109
FITCON = ****** 3-11 10-325
FIX = 000122 #12-65
FIXR = 000126 #12-69
FLTR = 000127 #12-70
FMP = 000160 #12-95
FMPB = 000163 #12-98
FMPL = 000161 #12-96
FMPM = 000162 #12-97
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 6
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
FMPR = 000164 #12-99
FMPRB = 000167 #12-102
FMPRI = 000165 #12-100
FMPRM = 000166 #12-101
FMRECN = ****** GX 98-98
FSB = 000150 #12-87
FSBB = 000153 #12-90
FSBL = 000151 #12-88
FSBM = 000152 #12-89
FSBR = 000154 #12-91
FSBRB = 000157 #12-94
FSBRI = 000155 #12-92
FSBRM = 000156 #12-93
FSC = 000132 #12-73
FSD = ****** GX 115-857
FSDCH = ****** GX 106-452 106-453 107-490 109-606
FSDCHK = ****** GX 106-446 110-644 110-645
FSDM1 = ****** GX 106-451 107-479 109-565 115-856
F11M 003773 R 109-565 #109-616
GBSRL 005040 R 114-807 114-810 114-828 114-834 #115-854
GETBBD 004652 RG 9-297 98-115 99-173 #114-806
GETCMP 004734 RG 9-297 98-106 #114-827
GETTF 004140 R 109-564 110-630 #111-666
HALTLP = 001000 #4-80
HLL = 000500 #12-311
HLLE = 000530 #12-335
HLLEI = 000531 #12-336
HLLEM = 000532 #12-337
HLLES = 000533 #12-338
HLLI = 000501 #12-312
HLLM = 000502 #12-313
HLLO = 000520 #12-327
HLLOI = 000521 #12-328
HLLOM = 000522 #12-329
HLLOS = 000523 #12-330
HLLS = 000503 #12-314
HLLZ = 000510 #12-319
HLLZI = 000511 #12-320
HLLZM = 000512 #12-321
HLLZS = 000513 #12-322
HLR = 000544 #12-347
HLRE = 000574 #12-371
HLREI = 000575 #12-372
HLREM = 000576 #12-373
HLRES = 000577 #12-374
HLRI = 000545 #12-348
HLRM = 000546 #12-349
HLRO = 000564 #12-363
HLROI = 000565 #12-364
HLROM = 000566 #12-365
HLROS = 000567 #12-366
HLRS = 000547 #12-350
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 7
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
HLRZ = 000554 #12-355
HLRZI = 000555 #12-356
HLRZM = 000556 #12-357
HLRZS = 000557 #12-358
HRL = 000504 #12-315
HRLE = 000534 #12-339
HRLEI = 000535 #12-340
HRLEM = 000536 #12-341
HRLES = 000537 #12-342
HRLI = 000505 #12-316
HRLM = 000506 #12-317
HRLO = 000524 #12-331
HRLOI = 000525 #12-332
HRLOM = 000526 #12-333
HRLOS = 000527 #12-334
HRLS = 000507 #12-318
HRLZ = 000514 #12-323
HRLZI = 000515 #12-324
HRLZM = 000516 #12-325
HRLZS = 000517 #12-326
HRR = 000540 #12-343 105-417 105-417
HRRE = 000570 #12-367
HRREI = 000571 #12-368
HRREM = 000572 #12-369
HRRES = 000573 #12-370
HRRI = 000541 #12-344
HRRM = 000542 #12-345
HRRO = 000560 #12-359
HRROI = 000561 #12-360
HRROM = 000562 #12-361
HRROS = 000563 #12-362
HRRS = 000543 #12-346
HRRZ = 000550 #12-351
HRRZI = 000551 #12-352
HRRZM = 000552 #12-353
HRRZS = 000553 #12-354
I = 000000 #102-304 102-304 #102-305 102-305 #102-306 102-306 #102-307 102-307 #102-308
102-308 #102-309 102-309 #102-310 102-310 #105-416 105-416 #105-417 105-417
#105-418 105-418 #105-419 105-419 #105-420 105-420 #105-421 105-421 #105-422
105-422 #105-423 105-423 #105-424 105-424
IBP = 000133 #12-74
IDIV = 000230 #12-135
IDIVB = 000233 #12-138
IDIVI = 000231 #12-136
IDIVM = 000232 #12-137
IDPB = 000136 #12-77
ILDB = 000134 #12-75
IMUL = 000220 #12-127
IMULB = 000223 #12-130
IMULI = 000221 #12-128
IMULM = 000222 #12-129
INIMDF = ****** GX 96-20
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 8
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
IOR = 000434 #12-271
IORB = 000437 #12-277
IORI = 000435 #12-273
IORM = 000436 #12-275
JFCL = 000255 #12-155
JFFO = 000243 #12-146
JRA = 000267 #12-166
JRST = 000254 #12-154 102-305 102-305 102-310 102-310 105-423 105-423 105-424 105-424
JSA = 000266 #12-165
JSP = 000265 #12-164
JSR = 000264 #12-163
JUMP = 000320 #12-191
JUMPA = 000324 #12-195
JUMPE = 000322 #12-193
JUMPG = 000327 #12-198
JUMPGE = 000325 #12-196
JUMPL = 000321 #12-192
JUMPLE = 000323 #12-194
JUMPN = 000326 #12-197
KEEPBB = ****** GX 98-113
LDAR = 000077 #55-125
LDATIM 003702 R 109-581 109-585 109-588 109-592 #109-599
LDB = 000135 #12-76
LDEFER = ****** GX 105-405
LDFVR 003116 R 106-447 #107-476
LDNADR 002734 RG 9-297 96-47 #106-445
LDREFR 004000 R 106-449 #110-629
LDTIMR 003452 R 106-448 #109-563
LSBRTN = 000001 #3-58
LSBSRL = 000744 #44-209 114-807 114-810 114-828 114-834
LSH = 000242 #12-145 102-307 102-307
LSHC = 000246 #12-149
LSTALL = ****** 12-455 39-1601 40-2 51-493 95-3
LSTDIA = ****** 51-494
LSTMAC = ****** 12-455 39-1601 40-2 51-493
LSTMB = 000001 #3-57 95-3
LUBSRL = 000600 #44-210
MACTN = 000001 #43-154
MAP = 000257 #12-158
MAXCN = 000037 #43-152
MBCTN = 000003 #43-155
MBOKLG = ****** 4-100 9-290
MBROOT = ****** 3-7 5-158
MDHDEJ 000230 R 96-44 96-46 96-48 #96-55 97-81
MDHDER = ****** GX 96-55 98-121
MDINIT 000000 RG 9-299 #96-17
MDRECN = ****** GX 98-129 100-216
MDST0 000076 RG 9-299 #96-41
MDST0A 000122 R #96-47
MDST1B = ****** GX 98-100
MDST23 000234 RG 9-299 #97-66
MFCTN = 000005 #43-166
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 9
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
MFIXED 003252 R #108-532
MFXEND 003452 R 107-477 #108-549
MF20RD = ****** GX 96-18
MINUS1 = ****** GX 115-856
MMRESP = ****** GX 98-123
MNBRCN = 000036 #43-171
MNMFCN = 000010 #43-167 44-181 44-182 44-183 96-32 *103-339 *103-340 *104-365 *104-366
109-579 109-583 109-586 109-590 110-633 111-668 111-670 111-673 111-675
MNMXCN = 000006 #43-163
MNM.CN = 000000 #43-156
MNTITF = 000040 #40-31 113-772 113-773 113-774 113-775 113-776 113-777 113-778 113-779
113-780 113-781 113-782 113-783 113-784 113-785 113-787 113-787
MOSTT0 004432 R 109-568 109-581 109-592 110-631 111-671 #113-770
MOSTT1 004542 R 109-585 109-588 110-635 111-676 #113-791
MOVE = 000200 #12-111
MOVEI = 000201 #12-112
MOVEM = 000202 #12-113
MOVES = 000203 #12-114
MOVM = 000214 #12-123
MOVMI = 000215 #12-124
MOVMM = 000216 #12-125
MOVMS = 000217 #12-126
MOVN = 000210 #12-119
MOVNI = 000211 #12-120
MOVNM = 000212 #12-121
MOVNS = 000213 #12-122
MOVS = 000204 #12-115
MOVSI = 000205 #12-116
MOVSM = 000206 #12-117
MOVSS = 000207 #12-118
MSAMSZ = 000140 #44-181 *103-347 *103-348
MSSCTL = 177777 G #1-1 3-9 8-268
MUL = 000224 #12-131
MULB = 000227 #12-134
MULI = 000225 #12-132
MULM = 000226 #12-133
MXBRCN = 000037 #43-172
MXCTN = 000004 #43-162
MXMFCN = 000017 #43-168 44-181 44-182 44-183 96-26
MXMXCN = 000007 #43-164
MXM.CN = 000003 #43-157
MX20MD 002054 RG 9-298 #100-236
OR = 000434 #12-272
ORB = 000437 #12-278
ORCA = 000454 #12-291
ORCAB = 000457 #12-294
ORCAI = 000455 #12-292
ORCAM = 000456 #12-293
ORCB = 000470 #12-303
ORCBB = 000473 #12-306
ORCBI = 000471 #12-304
ORCBM = 000472 #12-305
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 10
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
ORCM = 000464 #12-299
ORCMB = 000467 #12-302
ORCMI = 000465 #12-300
ORCMM = 000466 #12-301
ORI = 000435 #12-274
ORM = 000436 #12-276
PAG = 000010 #12-451
PI = 000004 #12-450 55-128 55-132
POP = 000262 #12-161
POPJ = 000263 #12-162
PRMDPM = 037740 102-278 #102-314 102-314 102-314 #102-314 102-314 102-314 #102-314 102-314
102-314 #102-314 102-314 102-314 #102-314 102-314 102-314 #102-314 102-314
102-314 #102-314 102-314 102-314 #102-314 102-314 102-314 #102-314 102-314
102-314 #102-314 102-314 102-314 #102-314 102-314 102-314 #102-314 102-314
102-314 #102-314 102-314 102-314 #102-314 102-314 102-314 #102-314
PUSH = 000261 #12-160
PUSHJ = 000260 #12-159
PXCT = 000256 #12-156
QRESET = 003004 RG 9-298 98-105 98-122 100-214 #106-450
RAMSZ0 = ****** GX *104-365 109-579 109-590 111-668 111-670
RAMSZ1 = ****** GX *103-339 109-583 109-586 110-633 111-673 111-675
RAS = 040000 #44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 44-201 44-201
#44-201 44-201 44-201 #44-201 44-201 44-201 #44-201 113-772 113-780
RDATIM = ****** GX 112-710
RDPROM 002060 RG 9-298 96-43 #102-274
REAPWD = ****** GX *105-397 *105-408 105-425 *115-854 *115-855 115-857 115-859 115-862 115-868
RELEAS = ****** 12-454 39-1600 40-1 51-492 95-1 95-2 102-303 102-314 105-413
105-415 105-431 109-596 113-770 113-787
ROT = 000241 #12-144
ROTC = 000245 #12-148 102-308 102-308
RSPMAP = ****** GX *96-22
RS0RS1 = 000010 #44-182 103-362
RS0TN0 = 000020 #44-183 111-685
RUNPRG = ****** GX 102-279 105-406
R$$20F = 000001 #3-48 44-187 49-469 96-17 96-43 96-45 96-47 97-66 97-79
98-106 98-115 98-117 98-119 98-123 98-128 99-144 99-157 99-160
99-161 99-168 99-173 99-175 99-184 99-187 99-188 100-194 100-200
100-203 100-204 100-211 100-212 100-215 102-274 102-276 102-277 102-278
102-279 102-283 102-283 102-284 102-303 102-314 103-332 103-346 105-398
105-400 105-406 105-415 105-431 106-445 106-446 106-447 106-448 106-449
106-451 106-452 106-453 106-454 107-479 107-490 109-564 109-565 109-566
109-581 109-581 109-585 109-585 109-588 109-588 109-592 109-592 109-606
109-610 109-611 110-630 110-644 110-645 112-712 112-730 113-770 113-787
114-807 114-807 114-810 114-810 114-828 114-828 114-834 114-834 115-856
115-857 115-859 115-860 115-875 115-876 115-878
R5.PC = ****** GX 104-379 107-498 109-593 111-678
SAV.5 = ****** GX 103-330 107-476 109-563 111-666
SBDT = ****** GX 97-66 97-79 99-144 99-157 100-200 103-332 106-445 106-454
SBD0 = ****** GX 99-168 99-184 100-194
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 11
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SBUS = 100000 #26-1126 96-17
SECLK = 000003 #55-118
SETA = 000424 #12-263
SETAB = 000427 #12-266
SETAI = 000425 #12-264
SETAM = 000426 #12-265
SETBBD = ****** GX 99-175
SETCA = 000450 #12-287
SETCAB = 000453 #12-290
SETCAI = 000451 #12-288
SETCAM = 000452 #12-289
SETCM = 000460 #12-295
SETCMB = 000463 #12-298
SETCMI = 000461 #12-296
SETCMM = 000462 #12-297
SETM = 000414 #12-255
SETMB = 000417 #12-258
SETMI = 000415 #12-256
SETMM = 000416 #12-257
SETMR = 000007 #55-121
SETO = 000474 #12-307
SETOB = 000477 #12-310
SETOI = 000475 #12-308
SETOM = 000476 #12-309
SETRAM = ****** GX 109-570
SETRUN = 000011 #55-123
SETZ = 000400 #12-240
SETZB = 000403 #12-246
SETZI = 000401 #12-242
SETZM = 000402 #12-244
SKIP = 000330 #12-199
SKIPA = 000334 #12-203
SKIPE = 000332 #12-201
SKIPG = 000337 #12-206
SKIPGE = 000335 #12-204
SKIPL = 000331 #12-200
SKIPLE = 000333 #12-202
SKIPN = 000336 #12-205
SMFSS0 = ****** GX 98-117
SOJ = 000360 #12-223
SOJA = 000364 #12-227
SOJE = 000362 #12-225
SOJG = 000367 #12-230
SOJGE = 000365 #12-228
SOJL = 000361 #12-224
SOJLE = 000363 #12-226
SOJN = 000366 #12-229
SOS = 000370 #12-231
SOSA = 000374 #12-235
SOSE = 000372 #12-233
SOSG = 000377 #12-238
SOSGE = 000375 #12-236
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 12
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
SOSL = 000371 #12-232
SOSLE = 000373 #12-234
SOSN = 000376 #12-237
SSCLK = 000002 #55-117
STPCLK = 000000 #55-115
STRCLK = 000001 #55-116 102-276
SUB = 000274 #12-171
SUBB = 000277 #12-174
SUBI = 000275 #12-172 105-416 105-416
SUBM = 000276 #12-173
SXCT = 000106 #12-54
TADR = 000010 #36-1491
TBN = 000004 #36-1490
TCN = 000001 #36-1488
TDC = 000650 #12-415
TDCA = 000654 #12-419
TDCE = 000652 #12-417
TDCN = 000656 #12-421
TDN = 000610 #12-383
TDNA = 000614 #12-387
TDNE = 000612 #12-385
TDNN = 000616 #12-389
TDO = 000670 #12-431
TDOA = 000674 #12-435
TDOE = 000672 #12-433
TDON = 000676 #12-437
TDZ = 000630 #12-399
TDZA = 000634 #12-403
TDZE = 000632 #12-401
TDZN = 000636 #12-405
TGN = 000002 #36-1489
TIMFS = 000044 #40-32 109-561 109-568 109-601 113-792
TIMNO0 = ****** GX *104-366
TIMNO1 = ****** GX *103-340
TLC = 000641 #12-408
TLCA = 000645 #12-412
TLCE = 000643 #12-410
TLCN = 000647 #12-414
TLN = 000601 #12-376
TLNA = 000605 #12-380
TLNE = 000603 #12-378
TLNN = 000607 #12-382 102-304 102-304 105-420 105-420
TLO = 000661 #12-424
TLOA = 000665 #12-428
TLOE = 000663 #12-426
TLON = 000667 #12-430
TLZ = 000621 #12-392
TLZA = 000625 #12-396
TLZE = 000623 #12-394
TLZN = 000627 #12-398
TMFLNM 004416 RG 9-298 111-684 111-700 112-714 #112-728
TRC = 000640 #12-407
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 13
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
TRCA = 000644 #12-411
TRCE = 000642 #12-409
TRCN = 000646 #12-413
TRN = 000600 #12-375
TRNA = 000604 #12-379
TRNE = 000602 #12-377 105-422 105-422
TRNN = 000606 #12-381
TRO = 000660 #12-423
TROA = 000664 #12-427
TROE = 000662 #12-425
TRON = 000666 #12-429
TRPAR = 010000 #44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 44-203 44-203 #44-203 44-203 44-203 #44-203 44-203 44-203
#44-203 113-770 113-770 113-772 113-772 113-773 113-773 113-774 113-774
113-775 113-775 113-776 113-776 113-777 113-777 113-778 113-778 113-779
113-779 113-780 113-780 113-781 113-781 113-782 113-782 113-783 113-783
113-784 113-784 113-785 113-785
TRZ = 000620 #12-391
TRZA = 000624 #12-395
TRZE = 000622 #12-393
TRZN = 000626 #12-397
TSC = 000651 #12-416
TSCA = 000655 #12-420
TSCE = 000653 #12-418
TSCN = 000657 #12-422
TSN = 000611 #12-384
TSNA = 000615 #12-388
TSNE = 000613 #12-386
TSNN = 000617 #12-390
TSO = 000671 #12-432
TSOA = 000675 #12-436
TSOE = 000673 #12-434
TSON = 000677 #12-438
TSTCON = ****** GX 97-90 100-192 103-338 109-578 110-632 111-667
TSZ = 000631 #12-400
TSZA = 000635 #12-404
TSZE = 000633 #12-402
TSZN = 000637 #12-406
UFA = 000130 #12-71
UNDCTN = 000007 #43-174
WENABL = 004000 #44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 44-204 44-204
#44-204 44-204 44-204 #44-204 44-204 44-204 #44-204 113-773 113-775
113-782 113-787
X = 000002 R #100-218 100-218 #100-219 100-219 #100-220 100-220 #102-304 102-304 #102-305
102-305 #102-306 102-306 #102-307 102-307 #102-308 102-308 #102-309 102-309
#102-310 102-310 #102-311 102-311 #102-312 102-312 #105-416 105-416 #105-417
105-417 #105-418 105-418 #105-419 105-419 #105-420 105-420 #105-421 105-421
#105-422 105-422 #105-423 105-423 #105-424 105-424 #105-425 105-425 #105-426
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 14
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
#105-426 105-426 #105-428 #105-428 105-428 #106-456 106-456 #106-457 106-457
#106-458 106-458 #106-459 106-459 #106-460 106-460 #107-504 107-504 #109-616
109-616 #110-649 110-649 #110-650 110-650 #110-652 110-652 #110-653 110-653
#113-770 113-772 113-772 #113-772 113-772 #113-772 113-773 113-773 #113-773
113-773 #113-773 113-774 113-774 #113-774 113-774 #113-774 113-775 113-775
#113-775 113-775 #113-775 113-776 113-776 #113-776 113-776 #113-776 113-777
113-777 #113-777 113-777 #113-777 113-778 113-778 #113-778 113-778 #113-778
113-779 113-779 #113-779 113-779 #113-779 113-780 113-780 #113-780 113-780
#113-780 113-781 113-781 #113-781 113-781 #113-781 113-782 113-782 #113-782
113-782 #113-782 113-783 113-783 #113-783 113-783 #113-783 113-784 113-784
#113-784 113-784 #113-784 113-785 113-785 #113-785 113-785 #113-785 113-787
113-787 #113-787 113-787 #113-787 113-787 #113-787 113-787
XCONMP = ****** GX *96-34 98-111
XCT = 000256 #12-157
XDV = 000004 #102-306 102-306 102-306 #105-418 105-418 105-418 #105-421 105-421 105-421
XOP = 000002 #102-306 102-306 102-306 #105-418 105-418 105-418 #105-421 105-421 105-421
XOR = 000430 #12-267 105-419 105-419
XORB = 000433 #12-270
XORI = 000431 #12-268
XORM = 000432 #12-269
XR = 000000 #102-304 102-304 #102-305 102-305 #102-306 102-306 #102-307 102-307 #102-308
102-308 #102-309 102-309 #102-310 102-310 #105-416 105-416 #105-417 105-417
#105-418 105-418 #105-419 105-419 #105-420 105-420 #105-421 105-421 #105-422
105-422 #105-423 105-423 #105-424 105-424
Y = 105011 #113-770 113-772 113-772 #113-772 113-772 113-772 113-772 #113-772 113-773
113-773 #113-773 113-773 113-773 113-773 #113-773 113-774 113-774 #113-774
113-774 113-774 113-774 #113-774 113-775 113-775 113-775 #113-775 113-775
113-775 113-775 #113-775 113-776 113-776 #113-776 113-776 113-776 113-776
#113-776 113-777 113-777 113-777 113-777 113-777 #113-777 113-777 113-777
113-777 #113-777 113-778 113-778 113-778 113-778 113-778 113-778 #113-778
113-778 113-778 113-778 #113-778 113-779 113-779 113-779 #113-779 113-779
113-779 113-779 #113-779 113-780 113-780 113-780 113-780 #113-780 113-780
113-780 113-780 #113-780 113-781 113-781 #113-781 113-781 113-781 113-781
#113-781 113-782 113-782 #113-782 113-782 113-782 113-782 #113-782 113-783
113-783 #113-783 113-783 113-783 113-783 #113-783 113-784 113-784 113-784
113-784 113-784 #113-784 113-784 113-784 113-784 #113-784 113-785 113-785
113-785 #113-785 113-785 113-785 113-785 #113-785 113-787 #113-787 113-787
#113-787 113-787 #113-787 113-787 113-787 113-787 113-787 113-787 113-787
113-787 113-787 113-787 113-787 113-787 113-787 113-787 113-787 113-787
113-787
$APRID = 000000 #55-129
$BRST = 000001 #44-189
$CALPA = 000001 #115-863
$CNTSD = 000001 #102-274
$CONEX = ****** 49-469 103-346
$DCNFB = 000001 #9-282 104-381
$DDFXC = ****** GX 102-276
$DMPAC = 070010 #12-10
$DPD = 000001 #9-275 102-317
$EB = 002640 R #102-303 102-314 #105-415 105-431
$EVENT = 000001 #44-190
$EXAMD = ****** GX 100-196
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 15
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$EXAMT = ****** GX 102-286 115-859
$FATAL = ****** GX 112-715
$FIND = 000001 #44-188
$FITME = ****** 103-346
$FVRC = 000000 #108-529 108-533 #108-533 108-533 108-533 #108-533 108-533 108-533 #108-533
108-533 108-533 #108-533 108-533 #108-533 108-533 #108-533 108-533 108-533
#108-533 108-533 108-533 #108-533 108-533 108-533 #108-533 108-533 #108-533
108-533 #108-533 108-533 108-533 #108-533 108-533 108-533 #108-533 108-533
108-533 #108-533 108-533 #108-533 108-533 #108-533 108-533 108-533 #108-533
108-533 108-533 #108-533 108-533 108-533 #108-533 108-533 #108-533 108-534
#108-534 108-534 108-534 #108-534 108-534 108-534 #108-534 108-534 108-534
#108-534 108-534 #108-534 108-534 #108-534 108-534 108-534 #108-534 108-534
108-534 #108-534 108-534 108-534 #108-534 108-534 #108-534 108-534 #108-534
108-534 108-534 #108-534 108-534 108-534 #108-534 108-534 108-534 #108-534
108-534 #108-534 108-534 #108-534 108-534 108-534 #108-534 108-534 108-534
#108-534 108-534 108-534 #108-534 108-534 #108-534 108-535 #108-535 108-535
108-535 #108-535 108-535 108-535 #108-535 108-535 108-535 #108-535 108-535
#108-535 108-535 #108-535 108-535 108-535 #108-535 108-535 108-535 #108-535
108-535 108-535 #108-535 108-535 #108-535 108-535 #108-535 108-535 108-535
#108-535 108-535 108-535 #108-535 108-535 108-535 #108-535 108-535 #108-535
108-535 #108-535 108-535 108-535 #108-535 108-535 108-535 #108-535 108-535
108-535 #108-535 108-535 #108-535 108-536 #108-536 108-536 108-536 #108-536
108-536 108-536 #108-536 108-536 108-536 #108-536 108-536 #108-536 108-536
#108-536 108-536 108-536 #108-536 108-536 108-536 #108-536 108-536 108-536
#108-536 108-536 #108-536 108-536 #108-536 108-536 108-536 #108-536 108-536
108-536 #108-536 108-536 108-536 #108-536 108-536 #108-536 108-536 #108-536
108-536 108-536 #108-536 108-536 108-536 #108-536 108-536 108-536 #108-536
108-536 #108-536 108-537 #108-537 108-537 108-537 #108-537 108-537 108-537
#108-537 108-537 108-537 #108-537 108-537 #108-537 108-537 #108-537 108-537
108-537 #108-537 108-537 108-537 #108-537 108-537 108-537 #108-537 108-537
#108-537 108-537 #108-537 108-537 108-537 #108-537 108-537 108-537 #108-537
108-537 108-537 #108-537 108-537 #108-537 108-537 #108-537 108-537 108-537
#108-537 108-537 108-537 #108-537 108-537 108-537 #108-537 108-537 #108-537
108-538 #108-538 108-538 108-538 #108-538 108-538 108-538 #108-538 108-538
108-538 #108-538 108-538 #108-538 108-538 #108-538 108-538 108-538 #108-538
108-538 108-538 #108-538 108-538 108-538 #108-538 108-538 #108-538 108-538
#108-538 108-538 108-538 #108-538 108-538 108-538 #108-538 108-538 108-538
#108-538 108-538 #108-538 108-538 #108-538 108-538 108-538 #108-538 108-538
108-538 #108-538 108-538 108-538 #108-538 108-538 #108-538 108-539 #108-539
108-539 108-539 #108-539 108-539 108-539 #108-539 108-539 108-539 #108-539
108-539 #108-539 108-539 #108-539 108-539 108-539 #108-539 108-539 108-539
#108-539 108-539 108-539 #108-539 108-539 #108-539 108-539 #108-539 108-539
108-539 #108-539 108-539 108-539 #108-539 108-539 108-539 #108-539 108-539
#108-539 108-539 #108-539 108-539 108-539 #108-539 108-539 108-539 #108-539
108-539 108-539 #108-539 108-539 #108-539 108-540 #108-540 108-540 108-540
#108-540 108-540 108-540 #108-540 108-540 108-540 #108-540 108-540 #108-540
108-540 #108-540 108-540 108-540 #108-540 108-540 108-540 #108-540 108-540
108-540 #108-540 108-540 #108-540 108-540 #108-540 108-540 108-540 #108-540
108-540 108-540 #108-540 108-540 108-540 #108-540 108-540 #108-540 108-540
#108-540 108-540 108-540 #108-540 108-540 108-540 #108-540 108-540 108-540
#108-540 108-540 #108-540 108-541 #108-541 108-541 108-541 #108-541 108-541
108-541 #108-541 108-541 108-541 #108-541 108-541 #108-541 108-541 #108-541
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 16
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
108-541 108-541 #108-541 108-541 108-541 #108-541 108-541 108-541 #108-541
108-541 #108-541 108-541 #108-541 108-541 108-541 #108-541 108-541 108-541
#108-541 108-541 108-541 #108-541 108-541 #108-541 108-541 #108-541 108-541
108-541 #108-541 108-541 108-541 #108-541 108-541 108-541 #108-541 108-541
#108-541 108-542 #108-542 108-542 108-542 #108-542 108-542 108-542 #108-542
108-542 108-542 #108-542 108-542 #108-542 108-542 #108-542 108-542 108-542
#108-542 108-542 108-542 #108-542 108-542 108-542 #108-542 108-542 #108-542
108-542 #108-542 108-542 108-542 #108-542 108-542 108-542 #108-542 108-542
108-542 #108-542 108-542 #108-542 108-542 #108-542 108-542 108-542 #108-542
108-542 108-542 #108-542 108-542 108-542 #108-542 108-542 #108-542 108-543
#108-543 108-543 108-543 #108-543 108-543 108-543 #108-543 108-543 108-543
#108-543 108-543 #108-543 108-543 #108-543 108-543 108-543 #108-543 108-543
108-543 #108-543 108-543 108-543 #108-543 108-543 #108-543 108-543 #108-543
108-543 108-543 #108-543 108-543 108-543 #108-543 108-543 108-543 #108-543
108-543 #108-543 108-543 #108-543 108-543 108-543 #108-543 108-543 108-543
#108-543 108-543 108-543 #108-543 108-543 #108-543 108-544 #108-544 108-544
108-544 #108-544 108-544 108-544 #108-544 108-544 108-544 #108-544 108-544
#108-544 108-544 #108-544 108-544 108-544 #108-544 108-544 108-544 #108-544
108-544 108-544 #108-544 108-544 #108-544 108-544 #108-544 108-544 108-544
#108-544 108-544 108-544 #108-544 108-544 108-544 #108-544 108-544 #108-544
108-544 #108-544 108-544 108-544 #108-544 108-544 108-544 #108-544 108-544
108-544 #108-544 108-544 #108-544 108-545 #108-545 108-545 108-545 #108-545
108-545 108-545 #108-545 108-545 108-545 #108-545 108-545 #108-545 108-545
#108-545 108-545 108-545 #108-545 108-545 108-545 #108-545 108-545 108-545
#108-545 108-545 #108-545 108-545 #108-545 108-545 108-545 #108-545 108-545
108-545 #108-545 108-545 108-545 #108-545 108-545 #108-545 108-545 #108-545
108-545 108-545 #108-545 108-545 108-545 #108-545 108-545 108-545 #108-545
108-545 #108-545 108-546 #108-546 108-546 108-546 #108-546 108-546 108-546
#108-546 108-546 108-546 #108-546 108-546 #108-546 108-546 #108-546 108-546
108-546 #108-546 108-546 108-546 #108-546 108-546 108-546 #108-546 108-546
#108-546 108-546 #108-546 108-546 108-546 #108-546 108-546 108-546 #108-546
108-546 108-546 #108-546 108-546 #108-546 108-546 #108-546 108-546 108-546
#108-546 108-546 108-546 #108-546 108-546 108-546 #108-546 108-546 #108-546
108-547 #108-547 108-547 108-547 #108-547 108-547 108-547 #108-547 108-547
108-547 #108-547 108-547 #108-547 108-547 #108-547 108-547 108-547 #108-547
108-547 108-547 #108-547 108-547 108-547 #108-547 108-547 #108-547 108-547
#108-547 108-547 108-547 #108-547 108-547 108-547 #108-547 108-547 108-547
#108-547 108-547 #108-547 108-547 #108-547 108-547 108-547 #108-547 108-547
108-547 #108-547 108-547 108-547 #108-547 108-547 #108-547 108-548 #108-548
108-548 108-548 #108-548 108-548 108-548 #108-548 108-548 108-548 #108-548
108-548 #108-548 108-548 #108-548 108-548 108-548 #108-548 108-548 108-548
#108-548 108-548 108-548 #108-548 108-548 #108-548 108-548 #108-548 108-548
108-548 #108-548 108-548 108-548 #108-548 108-548 108-548 #108-548 108-548
#108-548 108-548 #108-548 108-548 108-548 #108-548 108-548 108-548 #108-548
108-548 108-548 #108-548 108-548 #108-548
$FVRW = 000000 #108-530 108-533 #108-533 108-533 #108-533 108-533 #108-533 108-533 #108-533
108-533 #108-533 108-533 #108-533 108-533 #108-533 108-533 #108-533 108-533
#108-533 108-533 #108-533 108-533 #108-533 108-533 #108-533 108-533 #108-533
108-533 #108-533 108-533 #108-533 108-533 #108-533 108-533 #108-533 108-533
#108-533 108-533 #108-533 108-533 #108-533 108-534 #108-534 108-534 #108-534
108-534 #108-534 108-534 #108-534 108-534 #108-534 108-534 #108-534 108-534
#108-534 108-534 #108-534 108-534 #108-534 108-534 #108-534 108-534 #108-534
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 17
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
108-534 #108-534 108-534 #108-534 108-534 #108-534 108-534 #108-534 108-534
#108-534 108-534 #108-534 108-534 #108-534 108-534 #108-534 108-534 #108-534
108-535 #108-535 108-535 #108-535 108-535 #108-535 108-535 #108-535 108-535
#108-535 108-535 #108-535 108-535 #108-535 108-535 #108-535 108-535 #108-535
108-535 #108-535 108-535 #108-535 108-535 #108-535 108-535 #108-535 108-535
#108-535 108-535 #108-535 108-535 #108-535 108-535 #108-535 108-535 #108-535
108-535 #108-535 108-535 #108-535 108-536 #108-536 108-536 #108-536 108-536
#108-536 108-536 #108-536 108-536 #108-536 108-536 #108-536 108-536 #108-536
108-536 #108-536 108-536 #108-536 108-536 #108-536 108-536 #108-536 108-536
#108-536 108-536 #108-536 108-536 #108-536 108-536 #108-536 108-536 #108-536
108-536 #108-536 108-536 #108-536 108-536 #108-536 108-536 #108-536 108-537
#108-537 108-537 #108-537 108-537 #108-537 108-537 #108-537 108-537 #108-537
108-537 #108-537 108-537 #108-537 108-537 #108-537 108-537 #108-537 108-537
#108-537 108-537 #108-537 108-537 #108-537 108-537 #108-537 108-537 #108-537
108-537 #108-537 108-537 #108-537 108-537 #108-537 108-537 #108-537 108-537
#108-537 108-537 #108-537 108-538 #108-538 108-538 #108-538 108-538 #108-538
108-538 #108-538 108-538 #108-538 108-538 #108-538 108-538 #108-538 108-538
#108-538 108-538 #108-538 108-538 #108-538 108-538 #108-538 108-538 #108-538
108-538 #108-538 108-538 #108-538 108-538 #108-538 108-538 #108-538 108-538
#108-538 108-538 #108-538 108-538 #108-538 108-538 #108-538 108-539 #108-539
108-539 #108-539 108-539 #108-539 108-539 #108-539 108-539 #108-539 108-539
#108-539 108-539 #108-539 108-539 #108-539 108-539 #108-539 108-539 #108-539
108-539 #108-539 108-539 #108-539 108-539 #108-539 108-539 #108-539 108-539
#108-539 108-539 #108-539 108-539 #108-539 108-539 #108-539 108-539 #108-539
108-539 #108-539 108-540 #108-540 108-540 #108-540 108-540 #108-540 108-540
#108-540 108-540 #108-540 108-540 #108-540 108-540 #108-540 108-540 #108-540
108-540 #108-540 108-540 #108-540 108-540 #108-540 108-540 #108-540 108-540
#108-540 108-540 #108-540 108-540 #108-540 108-540 #108-540 108-540 #108-540
108-540 #108-540 108-540 #108-540 108-540 #108-540 108-541 #108-541 108-541
#108-541 108-541 #108-541 108-541 #108-541 108-541 #108-541 108-541 #108-541
108-541 #108-541 108-541 #108-541 108-541 #108-541 108-541 #108-541 108-541
#108-541 108-541 #108-541 108-541 #108-541 108-541 #108-541 108-541 #108-541
108-541 #108-541 108-541 #108-541 108-541 #108-541 108-541 #108-541 108-541
#108-541 108-542 #108-542 108-542 #108-542 108-542 #108-542 108-542 #108-542
108-542 #108-542 108-542 #108-542 108-542 #108-542 108-542 #108-542 108-542
#108-542 108-542 #108-542 108-542 #108-542 108-542 #108-542 108-542 #108-542
108-542 #108-542 108-542 #108-542 108-542 #108-542 108-542 #108-542 108-542
#108-542 108-542 #108-542 108-542 #108-542 108-543 #108-543 108-543 #108-543
108-543 #108-543 108-543 #108-543 108-543 #108-543 108-543 #108-543 108-543
#108-543 108-543 #108-543 108-543 #108-543 108-543 #108-543 108-543 #108-543
108-543 #108-543 108-543 #108-543 108-543 #108-543 108-543 #108-543 108-543
#108-543 108-543 #108-543 108-543 #108-543 108-543 #108-543 108-543 #108-543
108-544 #108-544 108-544 #108-544 108-544 #108-544 108-544 #108-544 108-544
#108-544 108-544 #108-544 108-544 #108-544 108-544 #108-544 108-544 #108-544
108-544 #108-544 108-544 #108-544 108-544 #108-544 108-544 #108-544 108-544
#108-544 108-544 #108-544 108-544 #108-544 108-544 #108-544 108-544 #108-544
108-544 #108-544 108-544 #108-544 108-545 #108-545 108-545 #108-545 108-545
#108-545 108-545 #108-545 108-545 #108-545 108-545 #108-545 108-545 #108-545
108-545 #108-545 108-545 #108-545 108-545 #108-545 108-545 #108-545 108-545
#108-545 108-545 #108-545 108-545 #108-545 108-545 #108-545 108-545 #108-545
108-545 #108-545 108-545 #108-545 108-545 #108-545 108-545 #108-545 108-546
#108-546 108-546 #108-546 108-546 #108-546 108-546 #108-546 108-546 #108-546
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 18
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
108-546 #108-546 108-546 #108-546 108-546 #108-546 108-546 #108-546 108-546
#108-546 108-546 #108-546 108-546 #108-546 108-546 #108-546 108-546 #108-546
108-546 #108-546 108-546 #108-546 108-546 #108-546 108-546 #108-546 108-546
#108-546 108-546 #108-546 108-547 #108-547 108-547 #108-547 108-547 #108-547
108-547 #108-547 108-547 #108-547 108-547 #108-547 108-547 #108-547 108-547
#108-547 108-547 #108-547 108-547 #108-547 108-547 #108-547 108-547 #108-547
108-547 #108-547 108-547 #108-547 108-547 #108-547 108-547 #108-547 108-547
#108-547 108-547 #108-547 108-547 #108-547 108-547 #108-547 108-548 #108-548
108-548 #108-548 108-548 #108-548 108-548 #108-548 108-548 #108-548 108-548
#108-548 108-548 #108-548 108-548 #108-548 108-548 #108-548 108-548 #108-548
108-548 #108-548 108-548 #108-548 108-548 #108-548 108-548 #108-548 108-548
#108-548 108-548 #108-548 108-548 #108-548 108-548 #108-548 108-548 #108-548
108-548 #108-548
$GBSRL = 000001 #9-286 113-794 115-846
$GETBB = 000001 #9-284 113-794 114-798
$GETCM = 000001 #9-285 113-794 114-817
$GETCT = 070020 #12-12
$GETTF = 000001 #9-281 110-655
$IND36 = 000003 #28-1177 105-425
$KLMR = ****** GX 102-275
$KL10A = 000101 #41-61
$KL10B = 000102 #41-62 113-770
$LDATI = 000001 #9-287 109-595
$LDEFE = 000001 #105-405
$LDFVR = 000001 #9-278 106-463
$LDNAD = 000001 #9-277 105-434
$LDREF = 000001 #9-280 109-619
$LDTIM = 000001 #9-279 108-551
$LOADA = 000001 #102-278 #105-400
$MMRES = ****** 103-346
$MOSDE = 000001 #9-273 95-10
$MX20M = 000001 #9-283 100-229
$PATCH = 070004 #12-9
$RDERA = 000000 #55-131
$RDPRO = 000001 #9-274 100-239
$RELOA = 000001 #28-1175
$RESET = 000001 #96-17 #105-398
$RSTAC = 070030 #12-14
$RUN = 000001 #102-279 #105-406
$SAVAC = 070024 #12-13
$SBDIA = 000002 #55-127 102-306 105-418 105-421
$SDW = 000002 #28-1176 105-426 105-428
$SIZ16 = 033061 #41-64 113-770
$SIZ32 = 031063 #41-65
$SIZ4K = 032060 #41-63
$SIZ64 = 032066 #41-66
$STEP = 000001 #44-191
$TB = 000000 #102-303 102-314 #105-415
$TDB2O = ****** GX 97-91 99-161 99-188 100-204 100-207 100-212
$TIMLP = 070014 #12-11
$TL = 000014 #102-314 102-314 #105-431
$TRAPS = ****** 105-405 105-405
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 19
SYMBOL CROSS REFERENCE CREF
SYMBOL VALUE REFERENCES
$TTDMS = ****** GX 96-51 97-78 97-89 97-92 98-127 99-139 99-143 99-156 99-162
100-191 100-199 100-205 100-208 100-213 100-224 112-713 112-714
$WDD22 = ****** GX 99-154
$WDD36 = ****** GX 97-80 99-141 100-197 100-226
$$APRI = 000000 #55-130
$$NARG = 000001 #102-278 102-278 102-278 #105-400 105-400 105-400
$$RDER = 000004 #55-132
$$SBDI = 000004 #55-128 102-306 105-418 105-421
$10BC = 070040 #12-16
$10BP = 070034 #12-15
$10MB = 070050 #12-18
$10RB = 070044 #12-17
.RESET = ****** GX 96-17 105-398
.SBDIA = 000001 #97-66 #97-79 #99-144 #99-157 #99-168 #99-184 #100-194 #100-200 #103-332
#106-445 #106-454
.WORK = ****** GX 100-196 100-196
... = 000377 #12-25
...... = 177777 #12-24
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 20
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
ACBLK #20-787
BLK10 #29-1207 #102-303 #105-415
BP. #13-482
BRST #18-716
BTOFIX #47-336
BURST #68-556
CABTE #46-291
CALL #53-38
CALLR #53-47
CALPAR #33-1363 115-863
CGOTO #16-617
CNTSD #33-1381 102-274
CONDET #46-311
CONDMA #45-222
CONFIG #45-218
CONMAB #45-230
CONMOS #45-226
CONMX #47-354
CONTIN #14-552 102-283
COPYAC #31-1325
CTFMTC #46-307
DBESCN #46-287
DCNFBB #47-326 98-119
DFPC #67-526
DFRD #56-163
DFRDT #57-184
DFSCLK #66-516
DFWRT #58-225
DFWRTT #59-265
DFXCT #60-304
DFXCTT #61-336 102-276
DMADET #45-246
DOLOOP #22-907
DPD #45-258 #96-45
DPOS #62-369
DPOST #63-409
DSOBAC #18-707
DTEBAS #69-570
ENBLPS #21-854
ENDBLK #29-1222 #102-314 #105-431
ENDLOO #21-878
ENDTIM #42-126 #113-787
ERRCOM #50-487
ERRMSG #50-473
ERROR #50-479
EVENT #17-650
EXAM #64-448 #100-196
EXAMT #65-494 #102-286 #115-859
EXCT #72-632
EXECUT #23-978
EXOR #54-99
EXP16K #47-364
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 21
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
FATAL #38-1590 #94-1291 #112-715
FIND #17-669
FITMEM #45-238
FIXSB #47-340
FSD #25-1070 106-452 106-453 107-490 109-606 115-857
FSDCHK #26-1100 106-446 110-644 110-645
FSDMSK #25-1050 106-451 107-479 109-565 115-856
FVRDAT #108-510 #108-533 #108-534 #108-535 #108-536 #108-537 #108-538 #108-539 #108-540 #108-541
#108-542 #108-543 #108-544 #108-545 #108-546 #108-547 #108-548
GBSRL #49-432 #114-807 #114-810 #114-828 #114-834
GETBBD #48-400 98-115 99-173
GETCMP #48-410 98-106
GETTF #46-283 #109-564 #110-630
GMCN #37-1522
ICEON #47-321
IND36 #28-1190 105-425
INIBSR #48-390
INIUDF #38-1583
INVAL #20-817
IO10 #30-1275 102-306 105-418 105-421
I10 #30-1252 102-304 102-305 102-307 102-308 102-309 102-310 105-416 105-417 105-419
105-420 105-422 105-423 105-424
JAB #37-1535
LDATIM #49-455 109-581 109-585 109-588 109-592
LDBESP #47-331
LDEFER #38-1594 #105-405
LDFSDP #26-1095
LDFVR #46-271 106-447
LDNADR #46-267 96-47
LDREFR #46-279 #106-449
LDTIMR #46-275 #106-448
LOADAC #19-761 #102-278 #105-400
LODAR #70-601
LOOP #21-869
LOOPCO #22-896
LOOPDO #22-912
MABDET #46-295
MABL #27-1138
MABPAD #46-299
MASK36 #35-1445
MB #45-214
MBINI #46-315
MMRESP #45-262 #98-123
MOSDET #45-250
MOSDMP #23-955
MRESET #75-723 #102-275
MSKDAT #35-1474
MSK36R #35-1462
MXTADR #47-349
MX20MD #47-344
NUMARG #16-626 #102-278 #105-400
NUMTXT #16-608
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 22
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
OVRLOD #38-1576
PATERR #23-965
PBELL #89-1150
PCRLF #89-1158
PENDIS #36-1515
PFORCE #77-776
PMSG #86-1059 96-51 97-78 97-89 97-92 98-127 99-139 99-143 99-156 99-162
100-191 100-199 100-205 100-208 100-213 100-224 112-713
PNORML #77-779
PNTADR #79-834 99-154
PNTAL #87-1090
PNTAPR #36-1504
PNTBAK #77-782 99-142 99-155 100-198
PNTDEC #84-980
PNTNBR #80-861
PNTOCS #83-948 97-91 100-207
PNTOCT #82-916
PNTODT #85-1013 99-161 99-188 100-204 100-212
PNTVER #20-807
PNT36 #78-806 97-80 99-141 100-197 100-226
PNT36B #81-889
POP #4-95 #53-65 #96-17 #97-66 #97-79 #99-144 #99-157 #100-200 #102-278 #102-279
#102-287 #102-297 #103-332 #104-374 #105-398 #105-400 #105-406 #105-411 #106-445 #106-446
#106-452 #106-453 #106-454 #107-490 #109-572 #109-606 #109-609 #110-644 #110-645 #110-646
#115-857
PSLASH #89-1146
PSPACE #89-1142
PTAB #89-1154
PUSH #4-89 #53-59 #102-280 #102-285 #104-370 #105-394 #109-567 #109-568 #109-581 #109-581
#109-585 #109-585 #109-588 #109-588 #109-592 #109-592 #109-599 #110-629 #114-807 #114-807
#114-810 #114-810 #114-828 #114-828 #114-834 #114-834
PWTES #20-827
RDPROM #45-254 96-43
READAC #31-1309
REGRST #76-760
REGSAV #76-756
REPCON #46-303
REPFIT #45-234
RESDET #45-242
RESET #26-1112 #96-17 #105-398
RETURN #53-51
RST.4 #32-1343
RST.5 #32-1354
RUN #15-565 102-279 105-406
R4.R5 #32-1347
R5.PC #32-1357 104-379 107-498 109-593 111-678
SAV.4 #32-1339
SAV.5 #32-1351 #103-330 #107-476 #109-563 #111-666
SBDIAG #24-1002 97-66 97-79 99-144 99-157 99-168 99-184 100-194 100-200 103-332
106-445 106-454
SBSRL #49-416
SCAN #47-359
MSSCTL CREATED BY MACRO ON 17-SEP-79 AT 09:08 PAGE 23
MACRO CROSS REFERENCE CREF
MACRO NAME REFERENCES
SETBBD #48-395 #99-175
SETCMP #48-405
SETPAR #33-1368
SETRAM #34-1422
SL #54-71
SM #73-662
SMFSS #48-375 98-117
SOBAC #18-696
SR #54-85
STEP #19-733
STEP10 #17-639
STKEMD #36-1496
STKMEP #36-1482
STOPLO #22-887
STPCON #18-686
S10. #14-509
TBIT #14-535
TICK #42-94 #113-772 #113-773 #113-774 #113-775 #113-776 #113-777 #113-778 #113-779 #113-780
#113-781 #113-782 #113-783 #113-784 #113-785
TIMING #41-68 #113-770
TIMSIG #40-43 44-201 44-202 44-203 44-204 44-205 44-206 44-207
TTIDEC #91-1214
TTILIN #92-1240
TTILNW #93-1266
TTIOCT #90-1186
UMAC #37-1550
WD36 #29-1243 100-218 100-219 100-220 102-311 102-312 105-426 105-428 106-456 106-457
106-458 106-459 106-460 107-504 109-616 110-649 110-650 110-652 110-653
WWADR #74-691
XO10 #29-1218
XX #33-1397
X10 #29-1214
$CNG #22-918
$DEF #4-84 #52-34 #52-36
$ENDLO #22-933
$LOOP #22-922
$PMSG #88-1111 #112-714
$PRADR #13-465
$RDG #22-927
$STOPL #22-930