1 *7400 / MEMORY ADDRESS TEST (HIGH, PAGE 30) 2 3 / LOAD MEMORY, FORWARD DIRECTION 4 5 07400 1275 LOADUP, TAD LIMLO 6 07401 3273 DCA ADRES /SET TEST AREA STARTING ADDRESS 7 07402 1276 TAD M7400 8 07403 3303 DCA CTR 9 07404 1273 TAD ADRES 10 07405 3673 DCA I ADRES / DEPOSIT ADDRESS IN CONTENTS 11 07406 2273 ISZ ADRES 12 07407 2303 ISZ CTR 13 07410 5204 JMP LOADUP+4 14 07411 1275 TAD LIMLO 15 07412 3273 DCA ADRES 16 07413 1276 TAD M7400 17 07414 3303 DCA CTR 18 19 07415 1673 MEMLUP, TAD I ADRES / GET CONTENTS FORWARD DIRECTION 20 07416 7041 CIA 21 07417 1273 TAD ADRES / GET ADDRESS 22 07420 7440 SZA / SKIP IF EQUAL 23 07421 4316 JMS ERROR / CONTENTS NOT SAME AS ADDRESS 24 07422 2273 ISZ ADRES / SELECT NEXT ADDRESS 25 07423 2303 ISZ CTR / SKIP IF END OF TEST AREA 26 07424 5215 JMP MEMLUP 27 28 / LOAD MEMORY, REVERSE DIRECTION 29 07425 1274 LOADWN, TAD LIMHI 30 07426 3273 DCA ADRES / SET TEST AREA ENDING ADDRESS 31 07427 1276 TAD M7400 32 07430 3303 DCA CTR 33 07431 1273 TAD ADRES 34 07432 3673 DCA I ADRES / DEPOSIT ADDRESS IN CONTENTS 35 07433 7240 CLA CMA / AC=-1 36 07434 1273 TAD ADRES / AC=(ADRES)-1 37 07435 3273 DCA ADRES / DECREMENT ADDRESS 38 07436 2303 ISZ CTR / SKIP WHEN LOWER LIMIT REACHED 39 07437 5231 JMP LOADWN+4 40 07440 1276 TAD M7400 41 07441 3303 DCA CTR 42 43 / SEQUENTIAL LOCATION TEST (DOWN) 44 07442 1274 LOOP2, TAD LIMHI 45 07443 3273 DCA ADRES / SET STARTING ADDRESS 46 07444 1673 TAD I ADRES / GET CONTENTS 47 07445 7041 CIA 48 07446 1273 TAD ADRES / GET ADDRESS 49 07447 7440 SZA / SKIP IF EQUAL 50 07450 4316 JMS ERROR / CONTENTS NOT SAME AS ADDRESS 51 07451 7240 CLA CMA / AC=-1 52 07452 1273 TAD ADRES / AC=(ADRES)-1 53 07453 3273 DCA ADRES / SELECT NEXT ADDRESS 54 07454 2303 ISZ CTR / SKIP IF END OF TEST AREA 55 07455 5244 JMP LOOP2+2 56 07456 2277 ISZ COUNT 57 07457 5200 JMP LOADUP 58 07460 1300 TAD RESTOR 59 07461 3277 DCA COUNT 60 07462 1311 TAD CR 61 07463 4344 JMS PRINT 62 07464 1312 TAD LF 63 07465 4344 JMS PRINT 64 07466 1301 TAD K261 65 07467 4344 JMS PRINT 66 07470 1301 TAD K261 67 07471 4344 JMS PRINT 68 07472 5200 JMP LOADUP 69 70 / CONSTANTS AND VARIABLES 71 07473 0000 ADRES, 0 72 07474 7377 LIMHI, 7377 73 07475 0000 LIMLO, 0 74 07476 0400 M7400, -7400 75 76 07477 7640 COUNT, -140 77 07500 7640 RESTOR, -140 78 07501 0261 K261, 261 79 07502 7774 M4, -4 80 07503 0000 CTR, 0 81 07504 0007 MSK7, 7 82 07505 0260 TW6, 260 83 07506 0000 STOR, 0 84 07507 7004 NUM, RAL 85 07510 0000 CONT, 0 86 07511 0215 CR, 215 87 07512 0212 LF, 212 88 07513 0240 SPACE, 240 89 07514 0301 A, 301 90 07515 0303 C, 303 91 92 / ERROR ROUTINE 93 07516 0000 ERROR, 0 94 07517 7041 CIA / RESTORE CONTENTS 95 07520 1273 TAD ADRES / OF FAILING ADDRESS 96 07521 3310 DCA CONT / PUT RESULT IN CONT 97 98 / ERROR MESSAGE 99 07522 1311 MESG, TAD CR 100 07523 4344 JMS PRINT 101 07524 1312 TAD LF 102 07525 4344 JMS PRINT 103 07526 1314 TAD A 104 07527 4344 JMS PRINT 105 07530 1273 TAD ADRES 106 07531 4352 JMS TYPAC 107 07532 1313 TAD SPACE 108 07533 4344 JMS PRINT 109 07534 1315 TAD C 110 07535 4344 JMS PRINT 111 07536 1310 TAD CONT 112 07537 4352 JMS TYPAC 113 07540 7604 LAS 114 07541 7710 SPA CLA 115 07542 7402 HLT / HALT ON ERROR (SR0) 116 07543 5716 JMP I ERROR 117 118 07544 0000 PRINT, 0 119 07545 6046 TLS 120 07546 6041 TSF 121 07547 5346 JMP .-1 122 07550 7200 CLA 123 07551 5744 JMP I PRINT 124 125 / TYPE (AC) IN OCTAL 126 127 07552 0000 TYPAC, 0 128 07553 3306 DCA STOR 129 07554 1362 TAD BACK+1 130 07555 3363 DCA BACK+2 131 07556 1302 TAD M4 132 07557 3303 DCA CTR 133 07560 7100 CLL 134 07561 1306 BACK, TAD STOR 135 07562 7006 RTL 136 07563 7006 RTL 137 07564 3306 DCA STOR 138 07565 1306 TAD STOR 139 07566 0304 AND MSK7 140 07567 1305 TAD TW6 141 07570 4344 JMS PRINT 142 07571 1307 TAD NUM 143 07572 3363 DCA BACK+2 144 07573 2303 ISZ CTR 145 07574 5361 JMP BACK 146 07575 5752 JMP I TYPAC 147 $