1            *0      / MEMORY ADDRESS TEST (LOW, PAGE 0)
   2            
   3            / LOAD MEMORY, FORWARD DIRECTION
   4            
   5 00000 1075 LOADUP, TAD LIMLO
   6 00001 3073         DCA ADRES       /SET TEST AREA STARTING ADDRESS
   7 00002 1076         TAD M7410
   8 00003 3103         DCA CTR
   9 00004 1073         TAD ADRES
  10 00005 3473         DCA I ADRES     / DEPOSIT ADDRESS IN CONTENTS
  11 00006 2073         ISZ ADRES
  12 00007 2103         ISZ CTR
  13 00010 5004         JMP LOADUP+4
  14 00011 1075         TAD LIMLO
  15 00012 3073         DCA ADRES
  16 00013 1076         TAD M7410
  17 00014 3103         DCA CTR
  18            
  19 00015 1473 MEMLUP, TAD I ADRES     / GET CONTENTS FORWARD DIRECTION
  20 00016 7041         CIA
  21 00017 1073         TAD ADRES       / GET ADDRESS
  22 00020 7440         SZA             / SKIP IF EQUAL
  23 00021 4116         JMS ERROR       / CONTENTS NOT SAME AS ADDRESS
  24 00022 2073         ISZ ADRES       / SELECT NEXT ADDRESS
  25 00023 2103         ISZ CTR         / SKIP IF END OF TEST AREA
  26 00024 5015         JMP MEMLUP
  27            
  28            / LOAD MEMORY, REVERSE DIRECTION
  29 00025 1074 LOADWN, TAD LIMHI
  30 00026 3073         DCA ADRES       / SET TEST AREA ENDING ADDRESS
  31 00027 1076         TAD M7410
  32 00030 3103         DCA CTR
  33 00031 1073         TAD ADRES
  34 00032 3473         DCA I ADRES     / DEPOSIT ADDRESS IN CONTENTS
  35 00033 7240         CLA CMA         / AC=-1
  36 00034 1073         TAD ADRES       / AC=(ADRES)-1
  37 00035 3073         DCA ADRES       / DECREMENT ADDRESS
  38 00036 2103         ISZ CTR         / SKIP WHEN LOWER LIMIT REACHED
  39 00037 5031         JMP LOADWN+4
  40 00040 1076         TAD M7410
  41 00041 3103         DCA CTR
  42            
  43                    / SEQUENTIAL LOCATION TEST (DOWN)
  44 00042 1074 LOOP2,  TAD LIMHI
  45 00043 3073         DCA ADRES       / SET STARTING ADDRESS
  46 00044 1473         TAD I ADRES     / GET CONTENTS
  47 00045 7041         CIA
  48 00046 1073         TAD ADRES       / GET ADDRESS
  49 00047 7440         SZA             / SKIP IF EQUAL
  50 00050 4116         JMS ERROR       / CONTENTS NOT SAME AS ADDRESS
  51 00051 7240         CLA CMA         / AC=-1
  52 00052 1073         TAD ADRES       / AC=(ADRES)-1
  53 00053 3073         DCA ADRES       / SELECT NEXT ADDRESS
  54 00054 2103         ISZ CTR         / SKIP IF END OF TEST AREA
  55 00055 5044         JMP LOOP2+2
  56 00056 2077         ISZ COUNT
  57 00057 5000         JMP LOADUP
  58 00060 1100         TAD RESTOR
  59 00061 3077         DCA COUNT
  60 00062 1111         TAD CR
  61 00063 4144         JMS PRINT
  62 00064 1112         TAD LF
  63 00065 4144         JMS PRINT
  64 00066 1101         TAD K261
  65 00067 4144         JMS PRINT
  66 00070 1101         TAD K261
  67 00071 4144         JMS PRINT
  68 00072 5000         JMP LOADUP
  69            
  70            / CONSTANTS AND VARIABLES
  71 00073 0000 ADRES,  0
  72 00074 7610 LIMHI,  7610
  73 00075 0200 LIMLO,  200
  74 00076 0370 M7410,  -7410
  75            
  76 00077 7640 COUNT,  -140
  77 00100 7640 RESTOR, -140
  78 00101 0261 K261,   261
  79 00102 7774 M4,     -4
  80 00103 0000 CTR,    0
  81 00104 0007 MSK7,   7
  82 00105 0260 TW6,    260
  83 00106 0000 STOR,   0
  84 00107 7004 NUM,    RAL
  85 00110 0000 CONT,   0
  86 00111 0215 CR,     215
  87 00112 0212 LF,     212
  88 00113 0240 SPACE,  240
  89 00114 0301 A,      301
  90 00115 0303 C,      303
  91            
  92                    / ERROR ROUTINE
  93 00116 0000 ERROR,  0
  94 00117 7041         CIA             / RESTORE CONTENTS
  95 00120 1073         TAD ADRES       / OF FAILING ADDRESS
  96 00121 3110         DCA CONT        / PUT RESULT IN CONT
  97            
  98                    / ERROR MESSAGE
  99 00122 1111 MESG,   TAD CR
 100 00123 4144         JMS PRINT
 101 00124 1112         TAD LF
 102 00125 4144         JMS PRINT
 103 00126 1114         TAD A
 104 00127 4144         JMS PRINT
 105 00130 1073         TAD ADRES
 106 00131 4152         JMS TYPAC
 107 00132 1113         TAD SPACE
 108 00133 4144         JMS PRINT
 109 00134 1115         TAD C
 110 00135 4144         JMS PRINT
 111 00136 1110         TAD CONT
 112 00137 4152         JMS TYPAC
 113 00140 7604         LAS
 114 00141 7710         SPA CLA
 115 00142 7402         HLT             / HALT ON ERROR (SR0)
 116 00143 5516         JMP I ERROR
 117            
 118 00144 0000 PRINT,  0
 119 00145 6046         TLS
 120 00146 6041         TSF
 121 00147 5146         JMP .-1
 122 00150 7200         CLA
 123 00151 5544         JMP I PRINT
 124            
 125            / TYPE (AC) IN OCTAL
 126            
 127 00152 0000 TYPAC,  0
 128 00153 3106         DCA STOR
 129 00154 1162         TAD BACK+1
 130 00155 3163         DCA BACK+2
 131 00156 1102         TAD M4
 132 00157 3103         DCA CTR
 133 00160 7100         CLL
 134 00161 1106 BACK,   TAD STOR
 135 00162 7006         RTL
 136 00163 7006         RTL
 137 00164 3106         DCA STOR
 138 00165 1106         TAD STOR
 139 00166 0104         AND MSK7
 140 00167 1105         TAD TW6
 141 00170 4144         JMS PRINT
 142 00171 1107         TAD NUM
 143 00172 3163         DCA BACK+2
 144 00173 2103         ISZ CTR
 145 00174 5161         JMP BACK
 146 00175 5552         JMP I TYPAC
 147            $