ASMB,A,B,L,C
      HED 2100 SERIES COMPUTER DMA DIAGNOSTIC 
      ORG 100B
* 
************************************************************
* 
* 
* DIAGNOSTIC CHECKS DMA OPERATION 
* 
* DIAGNOSTIC ASSUMES THE FOLLOWING TESTS HAVE BEEN RUN
* 
*    MEMORY REFERENCE GROUP  DSN 101000 
*    ALTER-SKIP GROUP        DSN 101001 
*    SHIFT-ROTATE GROUP      DSN 101002 
*    I/O GROUP               DSN 101103 
*    MEMORY                  DSN 102100 
*    CONSOLE DEVICE (IF USED) 
* 
* RUNS IN 4K MEMORY 
* 
* CONSOLE MAY BE USED BUT NOT REQUIRED
* 
* DIAGNOSTIC CONFIGURATOR IS REQUIRED 
* 
* DIAGNOSTIC SERIAL NO (DSN) 101105 
* 
* OPERATING INSTRUCTIONS: 
* 
*     1.  LOAD AND CONFIGURE DIAGNOSTIC CONFIGURATOR. 
* 
*     2.  LOAD DMA DIAGNOSTIC.
* 
*     3.  SET P REGISTER TO 100. SET SELECT CODE OF I/O CARD
*         USED WITH DIAGNOSTIC IN SWITCH REGISTER. PRESS PRESET 
*         (INT. & EXT. IF PRESENT) AND RUN. 
* 
*     NOTE-----THE I/O CARD USED WITH THIS DIAGNOSTIC MUST BE ONE OF
*              THE FOLLOWING WITH AN HP 1251-0332 CONNECTOR:
* 
*         1.   16-BIT DUPLEX REGISTER - HP 12554A,12554A-01 
*         2.   8-BIT DUPLEX REGISTER  - HP 12597A,12597A-01 
*              (ONLY CHECKS 8 BITS OF DATA WORDS. SET BIT 5 
*              OF PROGRAM OPTIONS)
*         3.   MICROCIRCUIT INTERFACE - HP 12566A/B 
*              (JUMPER CONNECTOR PINS 22,23)
* 
*              SEE DMA DIAGNOSTIC MOD FOR VALID JUMPER COMBINATIONS 
* 
*     4.  SUCCESSFUL CONFIGURATION IS A HALT 102074.
* 
*     5.  ENTER PROGRAM OPTIONS IN THE SWITCH REGISTER. 
*         PRESS RUN.
* 
      SKP 
*************** SWITCH REGISTER OPTIONS ****************************
* 
* 
*   BIT        MEANING
* 
*   0-4        RESERVED 
*    5         INTERFACE BEING USED TRANSFERS 8 BITS ONLY 
*    6         HALT AT START FOR NEW SC 
*    7         RUN SHORT TEST MODE
*    8         SUPPRESS PRESET TEST 
*    9         RESERVED 
*    10        SUPPRESS NON-ERROR MESSAGES
*    11        SUPPRESS ALL MESSAGES
*    12        LOOP ON DIAGNOSTIC. CLEAR TO HALT 102077 AT END
*              OF PASS
*    13        LOOP ON CURRENT TEST 
*    14        SUPPRESS ERROR HALTS 
*    15        RESERVED 
* 
* 
*************** COMPUTER HALTS *************************************
* 
*   HALT       MEANING
* 
*  1020XX      ERROR AND OPERATOR HALTS 
*  102077      DIAGNOSTIC COMPLETE
*  1030XX      ERROR AND OPERATOR HALTS 
*  1060XX      UNEXPECTED TRAP CELL INTERRUPT 
* 
* 
************************************************************
* 
      SKP 
      ORG 100B
      JMP CFR,I 
TTY.I BSS 1         TAPE INPUT
TTY.O BSS 1         LIST OUTPUT 
TTY.P BSS 1         PUNCH OUTPUT
TTY.K BSS 1         KEYBOARD INPUT
FFWA  DEF OUT       FIRST WORD AVAILABLE MEMORY 
LLWA  BSS 1         LAST  WORD OF AVAILABLE MEMORY
      ORG 126B
      OCT 101105    DIAGNOSTIC SERIAL NUMBER
      SPC 3 
TMC   EQU 110B
LSTO  EQU 112B
CTO   EQU 115B
CHA   EQU 116B
MSIZE EQU 117B
TMR   EQU 121B      LINK TO TIMER ROUTINE 
      SPC 3 
      ORG 130B
STRT1 JMP CFR,I 
STRT2 JMP START 
      SKP 
* 
*        ERROR ADDRESS TABLE
* 
FERC  ABS -FER
FER   DEF *+1 
      DEF E1
      DEF E2
      DEF E3
      DEF E4
      DEF E5
      DEF E6
      DEF E7
      DEF E10 
      DEF E13 
      DEF E14 
      DEF E15 
      DEF E16 
      DEF E17 
      DEF E20 
      DEF E21 
      DEF E22 
      DEF E23 
      DEF E24 
      DEF E25 
      DEF E26 
AE35  DEF E35 
AE36  DEF E36 
AE37  DEF E37 
      DEF E40 
      DEF E41 
      DEF E42 
      DEF E43 
      DEF E44 
      DEF E45 
      DEF E46 
      DEF E47 
      DEF E50 
      DEF E51 
      DEF E53 
      DEF E54 
      DEF E56 
      DEF E57 
      DEF E60 
      DEF E61 
      DEF E62 
      DEF E63 
      DEF E64 
      DEF E65 
      DEF E67 
      DEF E71 
      DEF E137
      DEF E136
      DEF E75 
      DEF E76 
      DEF E100
      DEF E101
      DEF E102
      DEF E103
      DEF E104
AE105 DEF E105
      DEF E106
      DEF E112
      DEF E115
      DEF E116
      DEF E117
      DEF E121
      DEF E122
      DEF E123
      DEF E124
      DEF E125
      DEF E126
      DEF E127
      DEF E130
      DEF E131
      DEF E132
      DEF E133
      DEF E134
      DEF E135
LER   DEF * 
      SKP 
      SPC 2 
* 
*        CODED HALT TABLE 
* 
CHLT  DEF * 
      HLT 1 
      HLT 2 
      HLT 3 
      HLT 4 
      HLT 5 
      HLT 6 
      HLT 7 
      HLT 10B 
      HLT 13B 
      HLT 14B 
      HLT 15B 
      HLT 16B 
      HLT 17B 
      HLT 20B 
      HLT 21B 
      HLT 22B 
      HLT 23B 
      HLT 24B 
      HLT 25B 
      HLT 26B 
      HLT 35B 
      HLT 36B 
      HLT 37B 
      HLT 40B 
      HLT 41B 
      HLT 42B 
      HLT 43B 
      HLT 44B 
      HLT 45B 
      HLT 46B 
      HLT 47B 
      HLT 50B 
      HLT 51B 
      HLT 53B 
      HLT 54B 
      HLT 56B 
      HLT 57B 
      HLT 60B 
      HLT 61B 
      HLT 62B 
      HLT 63B 
      HLT 64B 
      HLT 65B 
      HLT 67B 
      HLT 71B 
      HLT 37B,C 
      HLT 36B,C 
      HLT 75B 
      HLT 76B 
      HLT 0,C 
      HLT 1,C 
      HLT 2,C 
      HLT 3,C 
      HLT 4,C 
      HLT 5,C 
      HLT 6,C 
      HLT 12B,C 
      HLT 15B,C 
      HLT 16B,C 
      HLT 17B,C 
      HLT 21B,C 
      HLT 22B,C 
      HLT 23B,C 
      HLT 24B,C 
      HLT 25B,C 
      HLT 26B,C 
      HLT 27B,C 
      HLT 30B,C 
      HLT 31B,C 
      HLT 32B,C 
      HLT 33B,C 
      HLT 34B,C 
      HLT 35B,C 
      SKP 
* 
*        ERROR MESSAGE ADDRESS TABLE
* 
FMI   DEF * 
      DEF M1
      DEF M2
      DEF M3
      DEF M4
      DEF M5
      DEF M6
      DEF M7
      DEF M10 
      DEF M13 
      DEF M14 
      DEF M15 
      DEF M16 
      DEF M17 
      DEF M20 
      DEF M21 
      DEF M22 
      DEF M23 
      DEF M24 
      DEF M25 
      DEF M26 
      DEF M35 
      DEF M36 
      DEF M37 
      DEF M40 
      DEF M41 
      DEF M42 
      DEF M43 
      DEF M44 
      DEF M45 
      DEF M46 
      DEF M47 
      DEF M50 
      DEF M51 
      DEF M53 
      DEF M54 
      DEF M56 
      DEF M57 
      DEF M60 
      DEF M61 
      DEF M62 
      DEF M63 
      DEF M64 
      DEF M65 
      DEF M67 
      DEF M71 
      DEF M73 
      DEF M74 
      DEF M75 
      DEF M76 
      DEF M100
      DEF M101
      DEF M102
      DEF M103
      DEF M104
      DEF M105
      DEF M106
      DEF M112
      DEF M115
      DEF M116
      DEF M117
      DEF M121
      DEF M122
      DEF M123
      DEF M124
      DEF M125
      DEF M126
      DEF M127
      DEF M130
      DEF M131
      DEF M132
      DEF M133
      DEF M134
      DEF M135
      SKP 
* 
*        ERROR MESSAGE LENGTH TABLE 
* 
FML   DEF * 
      DEF L1
      DEF L2
      DEF L3
      DEF L4
      DEF L5
      DEF L6
      DEF L7
      DEF L10 
      DEF L13 
      DEF L14 
      DEF L15 
      DEF L16 
      DEF L17 
      DEF L20 
      DEF L21 
      DEF L22 
      DEF L23 
      DEF L24 
      DEF L25 
      DEF L26 
      DEF L35 
      DEF L36 
      DEF L37 
      DEF L40 
      DEF L41 
      DEF L42 
      DEF L43 
      DEF L44 
      DEF L45 
      DEF L46 
      DEF L47 
      DEF L50 
      DEF L51 
      DEF L53 
      DEF L54 
      DEF L56 
      DEF L57 
      DEF L60 
      DEF L61 
      DEF L62 
      DEF L63 
      DEF L64 
      DEF L65 
      DEF L67 
      DEF L71 
      DEF L73 
      DEF L74 
      DEF L75 
      DEF L76 
      DEF L100
      DEF L101
      DEF L102
      DEF L103
      DEF L104
      DEF L105
      DEF L106
      DEF L112
      DEF L115
      DEF L116
      DEF L117
      DEF L121
      DEF L122
      DEF L123
      DEF L124
      DEF L125
      DEF L126
      DEF L127
      DEF L130
      DEF L131
      DEF L132
      DEF L133
      DEF L134
      DEF L135
      SKP 
* 
*        TABLE OF I/O INSTRUCTIONS TO 
*          BE MODIFIED
* 
FIRST DEF *+1 
      DEF CH1 
      DEF CH2 
      DEF CH3 
      DEF CH4 
      DEF CH5 
      DEF CH6 
      DEF CH7 
      DEF CH8 
      DEF CH9 
      DEF CH10
      DEF CH11
      DEF CH12
      DEF CH13
      DEF CH14
      DEF CH15
      DEF CH16
      DEF CH17
      DEF CH18
      DEF CH19
      DEF CH20
      DEF CH21
      DEF CH22
      DEF CH23
      DEF CH24
      DEF CH25
      DEF CH26
      DEF CH27
      DEF CH28
      DEF CH29
      DEF CH30
      DEF CH32
      DEF CH33
      DEF CH34
      DEF CH35
      DEF CH36
      DEF CH37
      DEF CH38
      DEF CH39
      DEF CH40
      DEF CH41
      DEF CH42
      DEF CH43
      DEF CH44
      DEF CH45
      DEF CH46
      DEF CH47
      DEF CH48
      DEF CH49
      DEF CH50
      DEF CH51
      DEF CH52
      DEF CH53
      DEF CH54
      DEF CH55
      DEF CH56
      DEF CH57
      DEF CH58
      DEF CH59
      DEF CH67
      DEF CH68
      DEF CH69
      DEF CH70
      DEF CH71
      DEF CH72
      DEF CH73
      DEF CH75
      DEF CH76
      DEF CH77
      DEF CH80
      DEF CH81
      DEF CH82
      DEF CH83
      DEF CH84
      DEF CH85
      DEF CH86
      DEF CH87
      DEF HLTC
LAST  DEF *-1 
      SKP 
* 
*        CONSTANTS & STORAGE LOCATIONS
* 
      SPC 2 
NULL  NOP 
A2    OCT 2 
A3    OCT 3 
A10   OCT 10
A77   OCT 77
A100  OCT 100 
A377  OCT 377 
A7777 OCT 7777
B0    OCT 10000 
E0    OCT 40000 
P0    OCT 170000
ADDR  NOP 
DINP  OCT 140000
THLT  OCT 106002    TRAP CELL HALT
P7700 OCT 177700
HLTA  OCT 106000    A REG TRAP CELL HALT
HLTB  OCT 106001    B REG 
HLTC  OCT 106000    SELECTED CHANNEL
A7    OCT 7 
D60   OCT 30060     ASCII PREFIXES
CLF0  CLF 0 
CTBLA NOP 
CR    OCT 6400
CRL   EQU A2
A     EQU 0          A REG
B     EQU 1         B REG 
CH    EQU 10B       INITIAL VALUE OF SELECT CODE
CHKSW DEF CHKSI 
DAOUT NOP 
DAIN  NOP 
SAVB  NOP 
XX    EQU 0 
BT5   OCT 40
BT6   EQU A100
BT7   OCT 200 
BT8   OCT 400 
BT10  OCT 2000
BT11  OCT 4000
BT12  EQU B0
BT13  OCT 20000 
BT14  EQU E0
BT15  OCT 100000
J1    JSB *+1,I 
      DEF IJ1 
COUNT BSS 1         COUNTER 
JSB1  JSB ARTR1,I 
JSB2  JSB ARTR2,I 
J5    JSB AIJ5,I
J10   JSB ARTN1,I 
HLT7  OCT 106007
HLT6  OCT 106006
IN    NOP 
JSB.1 JSB AIT.1,I 
J11   JSB ARTN2,I 
K0    OCT 120000
NTTY  NOP 
MEMAX NOP 
SAVA  NOP 
T.POS NOP           TABLE POSITION STORAGE
PWRDC OCT 125125
PWRD  NOP 
FLAG  NOP 
WRD   OCT 125 
EOS   OCT 0 
MSMK  OCT 70000 
A5    OCT 5 
A6    OCT 6 
PKFG  OCT 0         15A+16A+16B+16C 
IOFG  OCT 0         00A + L.G.
OCFG  OCT 0         14A+14B 
L0FG  OCT 0         L.G.
LT7   DEF T.7 
      SKP 
                                                          