00000000  00 00 05 43 4f 4d 4d 2d  52 41 4d 2d 30 35 20 50  |...COMM-RAM-05 P|
00000010  41 52 54 20 33 20 56 45  52 20 31 2e 30 20 43 4f  |ART 3 VER 1.0 CO|
00000020  50 59 20 23 32 0d 00 00  00 00 00 00 00 00 00 00  |PY #2...........|
00000030  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00000050  00 00 00 00 00 00 00 00  00 00 ff ff ff ff ff ff  |................|
00000060  ff ff ff ff ff ff ff ff  ff ff ff 7f 00 00 00 00  |................|
00000070  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000080  43 52 50 33 30 35 3b 41  43 52 50 33 30 35 3b 4f  |CRP305;ACRP305;O|
00000090  43 52 50 33 30 35 3b 4c  43 52 50 33 30 35 3b 4d  |CRP305;LCRP305;M|
000000a0  43 52 50 33 30 35 3b 53  00 00 00 00 00 00 00 00  |CRP305;S........|
000000b0  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00000300  01 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000310  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000320  00 00 00 00 00 00 00 01  7e 1e 00 00 00 00 00 00  |........~.......|
00000330  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00000350  1a 33 e0 ff ff ff ff ff  ff ff ff ff ff 3f 00 00  |.3...........?..|
00000360  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
00000370  00 00 00 00 00 00 00 00  02 c2 29 00 00 00 00 00  |..........).....|
00000380  00 00 00 00 00 00 00 00  00 00 00 c0 01 00 00 00  |................|
00000390  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
000003a0  00 00 00 00 00 00 00 11  80 00 00 00 00 00 00 00  |................|
000003b0  00 00 00 00 00 fe ff ff  ff ff 7f 00 00 00 00 00  |................|
000003c0  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 01  |................|
000003d0  6d 5a 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |mZ..............|
000003e0  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00001000  41 53 4d 20 43 52 50 33  30 35 3b 4f 2f 31 20 43  |ASM CRP305;O/1 C|
00001010  52 50 33 30 35 3b 4c 2f  31 20 43 52 50 33 30 35  |RP305;L/1 CRP305|
00001020  3b 53 2f 31 0d 46 49 20  46 38 30 30 20 46 46 46  |;S/1.FI F800 FFF|
00001030  46 20 46 46 0d 4c 4f 20  43 52 50 33 30 35 3b 4f  |F FF.LO CRP305;O|
00001040  2f 31 0d 4d 4f 56 20 50  50 20 46 38 30 30 20 46  |/1.MOV PP F800 F|
00001050  46 46 46 20 30 0d 4d 4f  44 20 43 52 50 33 30 35  |FFF 0.MOD CRP305|
00001060  3b 4d 2f 31 20 30 20 37  46 46 20 30 20 43 4f 4d  |;M/1 0 7FF 0 COM|
00001070  4d 2d 52 41 4d 2d 30 35  20 44 49 41 47 0d 00 00  |M-RAM-05 DIAG...|
00001080  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00001400  25 01 74 2a 4e 4f 4e 41  4d 45 2a 41 33 33 00 00  |%.t*NONAME*A33..|
00001410  02 00 00 00 00 20 20 20  20 20 20 36 38 30 30 00  |.....      6800.|
00001420  00 ff ff 00 01 10 02 d8  00 25 43 52 50 33 30 35  |.........%CRP305|
00001430  20 01 f9 ff 08 08 03 08  03 00 01 00 f8 05 08 0e  | ...............|
00001440  01 00 05 08 0e 01 00 05  08 0e 01 00 05 08 0e 01  |................|
00001450  00 05 08 0e 01 00 05 08  0f 02 00 05 08 0e 01 00  |................|
00001460  05 08 0e 01 00 05 08 0f  02 00 05 08 0f 02 00 05  |................|
00001470  08 0f 02 00 05 08 0f 02  00 05 08 0f 02 00 05 08  |................|
00001480  0e 01 00 05 08 0e 01 00  05 08 0f 02 00 05 08 0f  |................|
00001490  02 00 05 08 0e 01 00 05  08 0e 01 00 05 08 0e 01  |................|
000014a0  00 05 08 0e 01 00 05 08  0e 01 00 05 08 0e 01 00  |................|
000014b0  05 08 0e 01 00 05 08 0f  02 00 05 08 0e 01 00 05  |................|
000014c0  08 0f 02 00 05 08 0e 01  00 05 08 0f 02 00 05 08  |................|
000014d0  0f 02 00 05 08 0f 02 00  05 08 0e 01 00 05 08 0e  |................|
000014e0  01 00 05 08 0e 01 00 05  08 0e 01 00 05 08 0e 01  |................|
000014f0  00 05 08 0e 01 00 05 08  0f 02 00 05 08 0e 01 00  |................|
00001500  05 08 0e 01 00 05 08 0e  01 00 4e 03 70 03 00 01  |..........N.p...|
00001510  00 f8 e8 03 01 00 f8 e8  05 01 fa ff e8 08 01 00  |................|
00001520  f9 e8 0b 01 04 f8 e8 0f  01 10 f8 e8 11 01 25 f8  |..............%.|
00001530  e8 13 01 b0 f9 e8 1a 01  b9 f9 e8 1c 01 c2 f9 e8  |................|
00001540  1e 01 b9 f9 e8 28 01 ba  fa e8 2f 01 c9 fa e8 31  |.....(..../....1|
00001550  01 dd fa e8 33 01 c9 fa  3d 04 4b f8 00 ff fa 02  |....3...=.K.....|
00001560  f9 00 02 f8 04 00 00 f8  10 f8 25 f9 b0 02 00 00  |..........%.....|
00001570  00 00 f9 b9 f9 c2 f9 b9  00 64 10 04 04 07 01 00  |.........d......|
00001580  fa ba 02 00 00 00 00 fa  c9 fa dd fa c9 00 64 10  |..............d.|
00001590  04 04 07 01 00 2b 03 4c  03 00 01 00 f9 e8 05 01  |.....+.L........|
000015a0  04 f9 e8 24 01 1b f8 e8  29 01 1c f8 e8 31 01 1b  |...$....)....1..|
000015b0  f8 e8 36 01 1c f8 e8 3a  01 32 f8 e8 3d 01 15 f8  |..6....:.2..=...|
000015c0  3f 04 88 80 13 f9 04 43  4f 4d 4d 2d 52 41 4d 20  |?......COMM-RAM |
000015d0  50 54 2e 20 33 20 56 31  2e 32 01 05 09 0d 80 11  |PT. 3 V1.2......|
000015e0  19 1d 00 7a f8 1b 26 fb  7a f8 1c 26 f6 39 96 77  |...z..&.z..&.9.w|
000015f0  b7 f8 1b 96 01 b7 f8 1c  39 ff f8 32 fe f8 15 4e  |........9..2...N|
00001600  03 49 e8 06 01 19 f8 e8  09 01 01 f8 e8 0e 01 13  |.I..............|
00001610  f8 e8 13 01 a1 fc e8 16  01 e0 fd e8 19 01 32 f8  |..............2.|
00001620  e8 1d 01 32 f8 e8 20 01  17 f8 e8 25 01 1a f8 e8  |...2.. ....%....|
00001630  28 01 01 f8 e8 2d 01 31  f8 e8 32 01 ea fc e8 35  |(....-.1..2....5|
00001640  01 e0 fd e8 38 01 32 f8  e8 3c 01 32 f8 3f 04 c2  |....8.2..<.2.?..|
00001650  a6 00 b7 f8 19 7d f8 01  26 0b b1 f8 13 27 06 ce  |.....}..&....'..|
00001660  fc a1 bd fd e0 fe f8 32  39 ff f8 32 fe f8 17 a6  |.......29..2....|
00001670  00 b7 f8 1a 7d f8 01 26  0b b1 f8 31 27 06 ce fc  |....}..&...1'...|
00001680  ea bd fd e0 fe f8 32 39  ff f8 32 ce 35 03 70 e8  |......29..2.5.p.|
00001690  06 01 15 f8 e8 0c 01 17  f8 e8 11 01 1f f8 e8 14  |................|
000016a0  01 32 f8 e8 18 01 32 f8  e8 1e 01 15 f8 e8 24 01  |.2....2.......$.|
000016b0  17 f8 e8 29 01 1f f8 e8  2c 01 32 f8 e8 32 01 15  |...)....,.2..2..|
000016c0  f8 3f 04 93 20 1c ff f8  15 ce 20 1b ff f8 17 86  |.?.. ..... .....|
000016d0  01 b7 f8 1f fe f8 32 39  ff f8 32 ce 20 1f ff f8  |......29..2. ...|
000016e0  15 ce 20 1e ff f8 17 86  02 b7 f8 1f fe f8 32 39  |.. ...........29|
000016f0  86 03 fe f8 15 a7 00 86  15 a7 00 39 8e f8 ff ce  |...........9....|
00001700  3f 03 41 e8 03 01 15 fd  e8 06 01 03 fe e8 09 01  |?.A.............|
00001710  d4 f9 e8 0c 01 1e fa e8  0f 01 64 fa e8 12 01 42  |..........d....B|
00001720  fe e8 18 01 11 f8 e8 26  01 13 f8 e8 2c 01 11 f8  |.......&....,...|
00001730  e8 2f 01 cb f9 e8 34 01  31 f8 e8 39 01 1b f8 3e  |./....4.1..9...>|
00001740  04 c3 fd 15 bd fe 03 bd  f9 d4 bd fa 1e bd fa 64  |...............d|
00001750  7e fe 42 ce 96 00 ff f8  11 86 03 b7 20 1a b7 20  |~.B......... .. |
00001760  1d 39 86 03 b7 f8 13 ce  24 00 ff f8 11 bd f9 cb  |.9......$.......|
00001770  86 aa b7 f8 31 86 e1 b7  f8 1b 86 02 b7 4e 03 13  |....1........N..|
00001780  e8 03 01 1c f8 e8 06 01  74 f9 e8 09 01 12 fa e8  |........t.......|
00001790  0c 01 8c f9 e8 0f 01 12  fa e8 12 01 31 f8 e8 15  |............1...|
000017a0  01 17 f8 e8 1a 01 20 f9  e8 1d 01 74 f9 e8 20 01  |...... ....t.. .|
000017b0  36 f9 e8 23 01 55 f9 e8  29 01 15 f8 e8 35 01 13  |6..#.U..)....5..|
000017c0  f8 e8 38 01 c5 f9 e8 3d  01 31 f8 3f 04 47 f8 1c  |..8....=.1.?.G..|
000017d0  bd f9 74 bd fa 12 bd f9  8c bd fa 12 b6 f8 31 fe  |..t...........1.|
000017e0  f8 17 a7 00 bd f9 20 bd  f9 74 bd f9 36 bd f9 55  |...... ..t..6..U|
000017f0  39 86 03 fe f8 15 a7 00  86 16 a7 00 39 86 03 b7  |9...........9...|
00001800  f8 13 bd f9 c5 86 2a b7  f8 31 3a 03 51 e8 04 01  |......*..1:.Q...|
00001810  2b f9 e8 07 01 d3 fb e8  0a 01 17 f9 e8 14 01 22  |+.............."|
00001820  f8 e8 1d 01 31 f8 e8 23  01 20 f9 e8 26 01 8c f9  |....1..#. ..&...|
00001830  e8 29 01 36 f9 e8 2c 01  55 f9 e8 30 01 2b f9 e8  |.).6..,.U..0.+..|
00001840  37 01 31 f8 3f 04 e8 bd  f9 2b bd fb d3 ce f9 17  |7.1.?....+......|
00001850  a6 00 26 01 39 2b 21 b7  f8 22 b7 20 1c b7 20 1f  |..&.9+!..". .. .|
00001860  b6 f8 31 b7 20 1b bd f9  20 bd f9 8c bd f9 36 bd  |..1. ... .....6.|
00001870  f9 55 08 bd f9 2b 20 d8  c6 aa f7 f8 31 08 20 d0  |.U...+ .....1. .|
00001880  86 aa b7 44 03 ab e8 03  01 31 f8 e8 06 01 01 f8  |...D.....1......|
00001890  e8 0b 01 56 fd e8 10 01  fb fd e8 13 01 8f fa e8  |...V............|
000018a0  18 01 31 f8 e8 1b 01 01  f8 e8 20 01 6e fd e8 25  |..1....... .n..%|
000018b0  01 fb fd e8 28 01 8f fa  e8 2e 01 35 f8 e8 34 01  |....(......5..4.|
000018c0  a6 fa e8 39 01 35 f8 3f  04 fc f8 31 7d f8 01 26  |...9.5.?...1}..&|
000018d0  08 ce fd 56 86 02 bd fd  fb bd fa 8f 86 55 b7 f8  |...V.........U..|
000018e0  31 7d f8 01 26 08 ce fd  6e 86 02 bd fd fb bd fa  |1}..&...n.......|
000018f0  8f 39 86 01 b7 f8 35 b6  20 1a bd fa a6 86 02 b7  |.9....5. .......|
00001900  f8 35 b6 20 1d bd 53 03  1c e8 03 01 a6 fa e8 07  |.5. ..S.........|
00001910  01 36 f8 e8 0a 01 01 f8  e8 0f 01 31 f8 e8 14 01  |.6.........1....|
00001920  85 fd e8 17 01 e0 fd e8  1e 01 2d fd e8 21 01 03  |..........-..!..|
00001930  fe e8 24 01 c5 f9 e8 27  01 2b f9 e8 2a 01 2d f8  |..$....'.+..*.-.|
00001940  e8 2d 01 e0 fa e8 30 01  0a fb e8 33 01 01 f8 e8  |.-....0....3....|
00001950  38 01 49 fb e8 3b 01 73  fb 3e 04 d1 fa a6 39 b7  |8.I..;.s.>....9.|
00001960  f8 36 7d f8 01 26 0b b1  f8 31 27 06 ce fd 85 bd  |.6}..&...1'.....|
00001970  fd e0 39 8e f8 ff ce fd  2d bd fe 03 bd f9 c5 bd  |..9.....-.......|
00001980  f9 2b 7f f8 2d bd fa e0  bd fb 0a 7d f8 01 26 03  |.+..-......}..&.|
00001990  bd fb 49 bd fb 73 7e 5d  03 55 e8 03 01 42 fe e8  |..I..s~].U...B..|
000019a0  06 01 1e fc e8 09 01 ed  fa e8 0c 01 44 fc e8 0f  |............D...|
000019b0  01 ed fa e8 13 01 e5 fb  e8 16 01 23 f8 e8 1b 01  |...........#....|
000019c0  20 f9 e8 1e 01 fd fb e8  21 01 25 f8 e8 24 01 2b  | .......!.%..$.+|
000019d0  f9 e8 29 01 2c f8 e8 2c  01 fd fb e8 30 01 1e fc  |..).,..,....0...|
000019e0  e8 33 01 17 fb e8 36 01  44 fc e8 39 01 17 fb e8  |.3....6.D..9....|
000019f0  3d 01 e5 fb 3f 04 fb fe  42 bd fc 1e bd fa ed bd  |=...?...B.......|
00001a00  fc 44 bd fa ed 39 bd fb  e5 fe f8 23 a7 00 bd f9  |.D...9.....#....|
00001a10  20 bd fb fd 7f f8 25 bd  f9 2b 86 ff b7 f8 2c bd  | .....%..+....,.|
00001a20  fb fd 39 bd fc 1e bd fb  17 bd fc 44 bd fb 17 39  |..9........D...9|
00001a30  bd fb e5 53 03 39 e8 04  01 2b f9 e8 07 01 23 f8  |...S.9...+....#.|
00001a40  e8 0c 01 20 f9 e8 0f 01  2b f9 e8 14 01 20 f9 e8  |... ....+.... ..|
00001a50  17 01 26 f8 e8 1e 01 13  f8 e8 21 01 36 f9 e8 24  |..&.......!.6..$|
00001a60  01 fd fb e8 27 01 25 f8  e8 2c 01 2c f8 e8 2f 01  |....'.%..,.,../.|
00001a70  fd fb e8 33 01 1e fc e8  36 01 56 fb e8 39 01 44  |...3....6.V..9.D|
00001a80  fc e8 3c 01 56 fb 3f 04  9e bd f9 2b fe f8 23 a7  |..<.V.?....+..#.|
00001a90  00 bd f9 20 bd f9 2b a7  00 bd f9 20 fe f8 26 a6  |... ..+.... ..&.|
00001aa0  00 86 a3 b7 f8 13 bd f9  36 bd fb fd 7f f8 25 86  |........6.....%.|
00001ab0  ff b7 f8 2c bd fb fd 39  bd fc 1e bd fb 56 bd fc  |...,...9.....V..|
00001ac0  44 bd fb 56 39 58 03 d2  e8 04 01 e5 fb e8 07 01  |D..V9X..........|
00001ad0  dc fb e8 0c 01 13 f8 e8  0f 01 36 f9 e8 12 01 fd  |..........6.....|
00001ae0  fb e8 15 01 25 f8 e8 1a  01 2c f8 e8 1d 01 fd fb  |....%....,......|
00001af0  e8 21 01 1e fc e8 24 01  28 f8 e8 27 01 15 f8 e8  |.!....$.(..'....|
00001b00  2c 01 2c f8 e8 2f 01 96  fb e8 32 01 44 fc e8 35  |,.,../....2.D..5|
00001b10  01 28 f8 e8 38 01 15 f8  e8 3d 01 2c f8 3f 04 57  |.(..8....=.,.?.W|
00001b20  bd fb e5 bd fb dc 86 86  b7 f8 13 bd f9 36 bd fb  |.............6..|
00001b30  fd 7f f8 25 86 ff b7 f8  2c bd fb fd 39 bd fc 1e  |...%....,...9...|
00001b40  fe f8 28 ff f8 15 86 14  b7 f8 2c bd fb 96 bd fc  |..(.......,.....|
00001b50  44 fe f8 28 ff f8 15 86  16 b7 f8 2c 4e 03 18 e8  |D..(.......,N...|
00001b60  04 01 96 fb e8 08 01 bb  fb e8 0b 01 2b f9 e8 0e  |............+...|
00001b70  01 23 f8 e8 13 01 20 f9  e8 18 01 13 f8 e8 1b 01  |.#.... .........|
00001b80  36 f9 e8 1e 01 fd fb e8  21 01 25 f8 e8 26 01 2c  |6.......!.%..&.,|
00001b90  f8 e8 29 01 fd fb e8 2d  01 2e f8 e8 30 01 25 f8  |..)....-....0.%.|
00001ba0  e8 33 01 d3 fb e8 38 01  28 f8 3f 04 10 bd fb 96  |.3....8.(.?.....|
00001bb0  39 bd fb bb bd f9 2b fe  f8 23 a7 00 bd f9 20 86  |9.....+..#.... .|
00001bc0  82 b7 f8 13 bd f9 36 bd  fb fd 7f f8 25 86 ff b7  |......6.....%...|
00001bd0  f8 2c bd fb fd 39 7f f8  2e 7c f8 25 bd fb d3 86  |.,...9...|.%....|
00001be0  35 fe f8 28 a7 00 86 14  fe 35 03 a7 e8 03 01 2a  |5..(.....5.....*|
00001bf0  f8 e8 12 01 3e fd e8 17  01 fb fd e8 1b 01 2e f8  |....>...........|
00001c00  e8 1e 01 25 f8 e8 21 01  d3 fb e8 26 01 28 f8 e8  |...%..!....&.(..|
00001c10  2d 01 2a f8 e8 37 01 2d  f8 e8 3c 01 2d f8 3f 04  |-.*..7.-..<.-.?.|
00001c20  94 f8 2a a7 00 39 86 03  b7 20 1c b7 20 1f 39 ce  |..*..9... .. .9.|
00001c30  fd 3e 86 02 bd fd fb 39  7c f8 2e 7c f8 25 bd fb  |.>.....9|..|.%..|
00001c40  d3 86 15 fe f8 28 a7 00  86 95 fe f8 2a a7 00 39  |.....(......*..9|
00001c50  01 0e 01 0f 7d f8 2d 27  04 7f f8 2d 39 3a 03 0c  |....}.-'...-9:..|
00001c60  e8 04 01 25 f8 e8 0b 01  01 f8 e8 10 01 a9 fd e8  |...%............|
00001c70  13 01 e0 fd e8 1a 01 1f  f8 e8 1f 01 2c f8 e8 25  |............,..%|
00001c80  01 28 f8 e8 2b 01 2a f8  e8 2e 01 15 f8 e8 34 01  |.(..+.*.......4.|
00001c90  26 f8 e8 3a 01 23 f8 3f  04 21 7d f8 25 26 02 20  |&..:.#.?.!}.%&. |
00001ca0  f8 7d f8 01 26 f3 ce fd  a9 bd fd e0 20 eb 86 02  |.}..&....... ...|
00001cb0  b7 f8 1f 86 16 b7 f8 2c  ce 20 1c ff f8 28 ce 20  |.......,. ...(. |
00001cc0  1f ff f8 2a ff f8 15 ce  20 1e ff f8 26 ce 20 1b  |...*.... ...&. .|
00001cd0  ff f8 23 39 86 01 3f 03  45 e8 04 01 1f f8 e8 09  |..#9..?.E.......|
00001ce0  01 2c f8 e8 0f 01 28 f8  e8 15 01 2a f8 e8 18 01  |.,....(....*....|
00001cf0  15 f8 e8 1e 01 26 f8 e8  24 01 23 f8 e8 2b 01 2f  |.....&..$.#..+./|
00001d00  f8 e8 2e 01 2d f8 e8 33  01 2d f8 e8 36 01 25 f8  |....-..3.-..6.%.|
00001d10  e8 3b 01 2c f8 3f 04 ac  b7 f8 1f 86 14 b7 f8 2c  |.;.,.?.........,|
00001d20  ce 20 1f ff f8 28 ce 20  1c ff f8 2a ff f8 15 ce  |. ...(. ...*....|
00001d30  20 1b ff f8 26 ce 20 1e  ff f8 23 39 b6 20 00 b7  | ...&. ...#9. ..|
00001d40  f8 2f 7d f8 2d 26 1f 7c  f8 2d 7d f8 25 27 17 b1  |./}.-&.|.-}.%'..|
00001d50  f8 2c 26 12 44 03 26 e8  04 01 2e f8 e8 09 01 26  |.,&.D.&........&|
00001d60  f8 e8 0f 01 23 f8 e8 16  01 01 f8 e8 1b 01 c2 fd  |....#...........|
00001d70  e8 1e 01 e0 fd e8 24 01  bd fc e8 28 01 1f f8 e8  |......$....(....|
00001d80  2c 01 c7 fc e8 30 01 19  f8 e8 34 01 c8 fc e8 38  |,....0....4....8|
00001d90  01 13 f8 e8 3c 01 cc fc  3f 04 f1 7d f8 2e 27 06  |....<...?..}..'.|
00001da0  fe f8 26 a6 00 3b fe f8  23 a7 00 20 f8 7d f8 01  |..&..;..#.. .}..|
00001db0  26 f3 ce fd c2 bd fd e0  20 eb 00 0a fc bd 02 01  |&....... .......|
00001dc0  f8 1f 00 01 fc c7 02 02  f8 19 00 04 fc c8 02 02  |................|
00001dd0  f8 13 84 00 fc cc 53 2b  03 d9 e8 13 01 dc fc e8  |......S+........|
00001de0  17 01 11 f8 e8 1b 01 e1  fc e8 1f 01 22 f8 e8 31  |............"..1|
00001df0  01 06 fd e8 35 01 1f f8  e8 39 01 10 fd e8 3d 01  |....5....9....=.|
00001e00  1a f8 3f 04 76 54 41 54  20 50 4f 52 54 20 3d 20  |..?.vTAT PORT = |
00001e10  53 42 3d 00 05 fc dc 02  04 f8 11 00 09 fc e1 82  |SB=.............|
00001e20  02 f8 22 42 41 55 44 3d  20 43 54 52 4c 52 45 47  |.."BAUD= CTRLREG|
00001e30  3d 00 0a fd 06 02 01 f8  1f 00 01 fd 10 02 02 f8  |=...............|
00001e40  1a 1c 03 6d e8 05 01 11  fd e8 09 01 31 f8 e8 0d  |...m........1...|
00001e50  01 cc fc e8 20 01 19 fd  e8 38 01 31 fd 3f 04 57  |.... ....8.1.?.W|
00001e60  00 04 fd 11 02 02 f8 31  84 00 fc cc 44 41 54 41  |.......1....DATA|
00001e70  20 50 4f 52 54 20 3d 20  53 42 3d 80 14 fd 19 43  | PORT = SB=....C|
00001e80  4f 4e 54 52 4f 4c 20 52  45 47 49 53 54 45 52 20  |ONTROL REGISTER |
00001e90  54 53 54 80 0d fd 31 49  4e 54 45 52 12 03 4b e8  |TST...1INTER..K.|
00001ea0  0d 01 42 fd e8 25 01 5a  fd e8 3d 01 72 fd 3f 04  |..B..%.Z..=.r.?.|
00001eb0  5f 55 50 54 20 54 45 53  54 80 14 fd 42 50 55 53  |_UPT TEST...BPUS|
00001ec0  48 20 44 43 44 20 53 57  20 54 48 45 4e 20 52 55  |H DCD SW THEN RU|
00001ed0  4e 80 14 fd 5a 45 56 45  4e 20 53 57 49 54 43 48  |N...ZEVEN SWITCH|
00001ee0  45 53 20 4f 4e 2d 52 55  4e 80 13 fd 72 26 03 b0  |ES ON-RUN...r&..|
00001ef0  e8 18 01 9d fd e8 1c 01  35 f8 e8 20 01 a4 fd e8  |........5.. ....|
00001f00  24 01 36 f8 e8 28 01 a5  fd e8 2c 01 31 f8 e8 3c  |$.6..(....,.1..<|
00001f10  01 b1 fd 3f 04 f0 4f 44  44 20 53 57 49 54 43 48  |...?..ODD SWITCH|
00001f20  45 53 20 4f 4e 2d 52 55  4e 00 07 fd 9d 02 01 f8  |ES ON-RUN.......|
00001f30  35 00 01 fd a4 02 02 f8  36 00 04 fd a5 82 02 f8  |5.......6.......|
00001f40  31 53 57 49 54 43 48 20  3d 20 53 42 3d 00 11 fd  |1SWITCH = SB=...|
00001f50  b1 82 26 03 93 e8 04 01  2c f8 e8 19 01 d2 fd e8  |..&.....,.......|
00001f60  1d 01 2f f8 e8 21 01 dc  fd e8 25 01 2c f8 e8 37  |../..!....%.,..7|
00001f70  01 03 f8 e8 3a 01 00 f8  3f 04 ec 02 f8 2c 4d 49  |....:...?....,MI|
00001f80  53 53 49 4e 47 20 49 4e  54 45 52 55 50 54 20 00  |SSING INTERUPT .|
00001f90  0a fd d2 02 02 f8 2f 00  04 fd dc 82 02 f8 2c 55  |....../.......,U|
00001fa0  4e 45 58 50 20 49 4e 54  3d 20 53 42 3d 36 7c f8  |NEXP INT= SB=6|.|
00001fb0  03 b6 f8 00 85 40 27 30  03 df e8 0c 01 07 f8 e8  |.....@'0........|
00001fc0  15 01 05 f8 e8 18 01 04  f8 e8 1d 01 0b f8 e8 29  |...............)|
00001fd0  01 02 f8 e8 30 01 32 fe  e8 33 01 fb fd e8 36 01  |....0.2..3....6.|
00001fe0  02 f8 e8 39 01 08 f8 3f  04 bc 05 86 02 20 08 36  |...9...?..... .6|
00001ff0  86 19 b7 f8 07 86 1a 8d  02 32 39 ff f8 05 b7 f8  |.........29.....|
00002000  04 01 39 ff f8 0b 7f 20  05 7f 20 04 7f 20 06 7d  |..9.... .. .. .}|
00002010  f8 02 26 0b 86 02 ce fe  32 bd fd fb 7c f8 02 b6  |..&.....2...|...|
00002020  f8 08 85 f0 27 05 35 03  97 e8 06 01 01 f8 e8 09  |....'.5.........|
00002030  01 0b f8 e8 0c 01 ef fd  e8 11 01 3a fe e8 15 01  |...........:....|
00002040  00 f8 e8 22 01 fb fd e8  26 01 09 f8 e8 2b 01 0a  |..."....&....+..|
00002050  f8 e8 2f 01 09 f8 e8 36  01 0a f8 3f 04 4e 86 80  |../....6...?.N..|
00002060  b7 f8 01 fe f8 0b bd fd  ef 39 00 08 fe 3a 83 02  |.........9...:..|
00002070  f8 00 4f 50 54 49 4f 4e  53 3d 86 01 7e fd fb 36  |..OPTIONS=..~..6|
00002080  7f f8 09 86 1c b7 f8 0a  32 7a f8 09 01 01 26 f9  |........2z....&.|
00002090  7a f8 0a 26 f4 4a 36 26  e7 32 04 04 41 39 0d 03  |z..&.J6&.2..A9..|
000020a0  61 03 00 01 f8 ff e8 03  01 6a fc 05 04 70 fc 6a  |a........j...p.j|
000020b0  03 05 08 e8 0c 01 ef fd  e8 11 01 3a fe e8 15 01  |...........:....|
000020c0  00 f8 e8 22 01 fb fd e8  26 01 09 f8 e8 2b 01 0a  |..."....&....+..|
000020d0  f8 e8 2f 01 09 f8 e8 36  01 0a f8 3f 04 4e 86 80  |../....6...?.N..|
000020e0  b7 f8 01 fe f8 0b bd fd  ef 39 00 08 fe 3a 83 02  |.........9...:..|
000020f0  f8 00 4f 50 54 49 4f 4e  53 3d 86 01 7e fd fb 36  |..OPTIONS=..~..6|
00002100  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00002400  00 54 65 6b 74 72 6f 6e  69 78 20 20 20 20 20 20  |.Tektronix      |
00002410  4d 36 38 30 30 20 41 53  4d 20 56 33 2e 33 20 20  |M6800 ASM V3.3  |
00002420  55 53 45 20 43 4f 4d 4d  2d 52 41 4d 2d 30 35 20  |USE COMM-RAM-05 |
00002430  44 49 41 47 20 50 41 52  54 20 b3 20 20 20 20 50  |DIAG PART .    P|
00002440  61 67 65 20 20 20 20 20  31 0d 0d 30 30 30 30 32  |age     1..00002|
00002450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002460  20 3b 0d 30 30 30 30 33  20 20 20 20 20 20 20 20  | ;.00003        |
00002470  20 20 20 20 20 20 20 20  20 3b 20 20 20 20 20 20  |         ;      |
00002480  20 20 20 20 20 20 20 20  56 45 52 53 49 4f 4e 20  |        VERSION |
00002490  20 20 20 31 2e 32 0d 30  30 30 30 34 20 20 20 20  |   1.2.00004    |
000024a0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
000024b0  30 30 30 35 20 20 20 20  20 20 20 20 20 20 20 20  |0005            |
000024c0  20 20 20 20 20 3b 20 20  20 20 20 20 20 20 20 20  |     ;          |
000024d0  20 20 20 20 44 41 54 45  20 56 45 52 49 46 49 45  |    DATE VERIFIE|
000024e0  44 20 20 20 20 20 31 30  2f 31 33 2f 38 30 0d 30  |D     10/13/80.0|
000024f0  30 30 30 36 20 20 20 20  20 20 20 20 20 20 20 20  |0006            |
00002500  20 20 20 20 20 3b 0d 30  30 30 30 37 20 20 20 20  |     ;.00007    |
00002510  20 20 46 38 30 30 20 20  20 20 20 20 20 50 42 41  |  F800       PBA|
00002520  53 45 20 20 20 45 51 55  20 20 20 20 20 30 46 38  |SE   EQU     0F8|
00002530  30 30 48 0d 30 30 30 30  38 20 20 20 20 20 20 20  |00H.00008       |
00002540  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002550  20 4e 4f 4c 49 53 54 20  20 4d 45 0d 30 30 30 30  | NOLIST  ME.0000|
00002560  39 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9               |
00002570  20 20 3b 20 20 20 20 20  20 55 53 45 20 7b 43 52  |  ;      USE {CR|
00002580  33 41 53 4d 5d 20 54 4f  20 43 52 45 41 54 45 20  |3ASM] TO CREATE |
00002590  4c 49 53 54 20 46 49 4c  45 0d 0c 54 65 6b 74 72  |LIST FILE..Tektr|
000025a0  6f 6e 69 78 20 20 20 20  20 20 4d 36 38 30 30 20  |onix      M6800 |
000025b0  41 53 4d 20 56 33 2e 33  20 20 55 53 45 20 43 4f  |ASM V3.3  USE CO|
000025c0  4d 4d 2d 52 41 4d 2d 30  35 20 44 49 41 47 20 50  |MM-RAM-05 DIAG P|
000025d0  41 52 54 20 b3 20 20 20  20 50 61 67 65 20 20 20  |ART .    Page   |
000025e0  20 20 32 0d 55 53 41 20  53 59 53 54 45 4d 20 49  |  2.USA SYSTEM I|
000025f0  4e 54 45 52 46 41 43 45  20 45 51 55 41 54 45 53  |NTERFACE EQUATES|
00002600  20 41 4e 44 20 4d 41 43  52 4f d3 0d 0d 30 30 30  | AND MACRO...000|
00002610  31 32 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |12              |
00002620  20 20 20 3b 0d 30 30 30  31 33 20 20 20 20 20 20  |   ;.00013      |
00002630  20 20 20 20 20 20 20 20  20 20 20 3b 2a 2a 2a 2a  |           ;****|
00002640  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00002670  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 30  |**************.0|
00002680  30 30 31 34 20 20 20 20  20 20 20 20 20 20 20 20  |0014            |
00002690  20 20 20 20 20 3b 0d 30  30 30 31 35 20 20 20 20  |     ;.00015    |
000026a0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 20  |             ;  |
000026b0  20 54 48 49 53 20 49 53  20 41 20 47 45 4e 45 52  | THIS IS A GENER|
000026c0  41 4c 20 46 52 4f 4e 54  20 45 4e 44 20 46 4f 52  |AL FRONT END FOR|
000026d0  20 44 49 41 47 4e 4f 53  54 49 43 53 20 54 48 41  | DIAGNOSTICS THA|
000026e0  54 0d 30 30 30 31 36 20  20 20 20 20 20 20 20 20  |T.00016         |
000026f0  20 20 20 20 20 20 20 20  3b 20 20 20 52 55 4e 20  |        ;   RUN |
00002700  55 4e 44 45 52 20 54 48  45 20 4d 49 43 52 4f 20  |UNDER THE MICRO |
00002710  53 59 53 54 45 4d 20 41  4e 41 4c 59 5a 45 52 0d  |SYSTEM ANALYZER.|
00002720  30 30 30 31 37 20 20 20  20 20 20 20 20 20 20 20  |00017           |
00002730  20 20 20 20 20 20 3b 0d  30 30 30 31 38 20 20 20  |      ;.00018   |
00002740  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00002750  20 20 49 54 20 43 4f 4e  54 41 49 4e 53 20 0d 30  |  IT CONTAINS .0|
00002760  30 30 31 39 20 20 20 20  20 20 20 20 20 20 20 20  |0019            |
00002770  20 20 20 20 20 3b 0d 30  30 30 32 30 20 20 20 20  |     ;.00020    |
00002780  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 20  |             ;  |
00002790  20 20 20 20 31 20 41 4c  4c 20 45 51 55 41 54 45  |    1 ALL EQUATE|
000027a0  53 20 46 4f 52 20 43 4f  4d 4d 55 4e 49 43 41 54  |S FOR COMMUNICAT|
000027b0  49 4e 47 20 57 49 54 48  20 54 48 45 20 0d 30 30  |ING WITH THE .00|
000027c0  30 32 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |021             |
000027d0  20 20 20 20 3b 20 20 20  20 20 20 20 20 4f 50 45  |    ;        OPE|
000027e0  52 41 54 49 4e 47 20 53  59 53 54 45 4d 0d 30 30  |RATING SYSTEM.00|
000027f0  30 32 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |022             |
00002800  20 20 20 20 3b 0d 30 30  30 32 33 20 20 20 20 20  |    ;.00023     |
00002810  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  |            ;   |
00002820  20 20 20 32 20 4d 41 43  52 4f 53 20 54 4f 20 41  |   2 MACROS TO A|
00002830  53 53 49 53 54 20 49 4e  20 54 48 45 20 47 45 4e  |SSIST IN THE GEN|
00002840  45 52 41 54 49 4f 4e 20  4f 46 0d 30 30 30 32 34  |ERATION OF.00024|
00002850  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002860  20 3b 20 20 20 20 20 20  20 20 54 48 45 20 54 45  | ;        THE TE|
00002870  53 54 20 48 45 41 44 45  52 20 42 4c 4f 43 4b 2c  |ST HEADER BLOCK,|
00002880  20 53 55 42 54 45 53 54  0d 30 30 30 32 35 20 20  | SUBTEST.00025  |
00002890  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
000028a0  20 20 20 20 20 20 20 20  48 45 41 44 45 52 20 42  |        HEADER B|
000028b0  4c 4f 43 4b 53 2c 20 41  4e 44 20 4d 53 47 20 4c  |LOCKS, AND MSG L|
000028c0  49 53 54 53 0d 30 30 30  32 36 20 20 20 20 20 20  |ISTS.00026      |
000028d0  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 30 30  |           ;.000|
000028e0  32 37 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |27              |
000028f0  20 20 20 3b 0d 30 30 30  32 38 20 20 20 20 20 20  |   ;.00028      |
00002900  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 30 30  |           ;.000|
00002910  32 39 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |29              |
00002920  20 20 20 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |   ;************|
00002930  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00002960  2a 2a 2a 2a 2a 0d 30 30  30 33 30 20 20 20 20 20  |*****.00030     |
00002970  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  |            ;   |
00002980  20 54 41 42 53 20 41 52  45 20 39 20 31 36 20 41  | TABS ARE 9 16 A|
00002990  4e 44 20 33 32 0d 30 30  30 33 31 20 20 20 20 20  |ND 32.00031     |
000029a0  20 20 20 20 20 20 20 20  20 20 20 20 3b 2a 2a 2a  |            ;***|
000029b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000029d0  0d 30 30 30 33 32 20 20  20 20 20 20 20 20 20 20  |.00032          |
000029e0  20 20 20 20 20 20 20 3b  20 43 4f 4e 46 49 47 55  |       ; CONFIGU|
000029f0  52 41 54 49 4f 4e 20 49  4e 46 4f 52 4d 41 54 49  |RATION INFORMATI|
00002a00  4f 4e 0d 30 30 30 33 33  20 20 20 20 20 20 20 20  |ON.00033        |
00002a10  20 20 20 20 20 20 20 20  20 3b 2a 2a 2a 2a 2a 2a  |         ;******|
00002a20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002a30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 30 30  |*************.00|
00002a40  30 33 34 20 20 20 20 20  20 30 34 30 30 20 20 20  |034      0400   |
00002a50  20 20 20 20 50 52 4f 4d  53 20 20 20 20 45 51 55  |    PROMS    EQU|
00002a60  20 20 20 31 30 32 34 20  20 20 20 20 20 20 20 20  |   1024         |
00002a70  20 20 20 3b 50 52 4f 4d  20 53 49 5a 45 0d 30 30  |   ;PROM SIZE.00|
00002a80  30 33 35 20 20 20 20 20  20 30 30 30 32 20 20 20  |035      0002   |
00002a90  20 20 20 20 50 52 4f 4d  4e 20 20 20 20 45 51 55  |    PROMN    EQU|
00002aa0  20 20 20 32 20 20 20 20  20 20 20 20 20 20 20 20  |   2            |
00002ab0  20 20 20 3b 4e 55 4d 42  45 52 20 4f 46 20 50 52  |   ;NUMBER OF PR|
00002ac0  4f 4d 53 0d 30 30 30 33  36 20 20 20 20 20 20 46  |OMS.00036      F|
00002ad0  38 46 46 20 20 20 20 20  20 20 49 53 54 41 43 4b  |8FF       ISTACK|
00002ae0  20 20 20 45 51 55 20 20  20 50 42 41 53 45 2b 32  |   EQU   PBASE+2|
00002af0  35 35 20 20 20 20 20 20  20 20 3b 49 4e 49 54 49  |55        ;INITI|
00002b00  41 4c 20 53 54 41 43 4b  20 50 4f 49 4e 54 45 52  |AL STACK POINTER|
00002b10  0d 30 30 30 33 37 20 20  20 20 20 20 46 38 30 30  |.00037      F800|
00002b20  20 20 20 20 20 20 20 57  4f 52 4b 53 50 20 20 20  |       WORKSP   |
00002b30  45 51 55 20 20 20 50 42  41 53 45 0d 30 30 30 33  |EQU   PBASE.0003|
00002b40  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
00002b50  20 20 3b 0d 30 30 30 33  39 20 20 20 20 20 20 20  |  ;.00039       |
00002b60  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 30 34  |          ;.0004|
00002b70  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00002b80  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
00002b90  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002ba0  2a 2a 2a 2a 2a 2a 2a 0d  30 30 30 34 31 20 20 20  |*******.00041   |
00002bb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00002bc0  53 56 43 20 52 45 51 55  45 53 54 20 43 4f 44 45  |SVC REQUEST CODE|
00002bd0  53 0d 30 30 30 34 32 20  20 20 20 20 20 20 20 20  |S.00042         |
00002be0  20 20 20 20 20 20 20 20  3b 2a 2a 2a 2a 2a 2a 2a  |        ;*******|
00002bf0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002c00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 30 30  |*************.00|
00002c10  30 34 33 20 20 20 20 20  20 30 30 30 34 20 20 20  |043      0004   |
00002c20  20 20 20 20 45 4e 44 54  20 20 20 20 20 45 51 55  |    ENDT     EQU|
00002c30  20 20 20 30 34 48 20 20  20 20 20 20 20 20 20 20  |   04H          |
00002c40  20 20 20 3b 45 4e 44 20  4f 46 20 54 45 53 54 0d  |   ;END OF TEST.|
00002c50  30 30 30 34 34 20 20 20  20 20 20 30 30 30 31 20  |00044      0001 |
00002c60  20 20 20 20 20 20 45 4e  44 53 20 20 20 20 20 45  |      ENDS     E|
00002c70  51 55 20 20 20 30 31 48  20 20 20 20 20 20 20 20  |QU   01H        |
00002c80  20 20 20 20 20 3b 45 4e  44 20 4f 46 20 53 55 42  |     ;END OF SUB|
00002c90  20 54 45 53 54 0d 30 30  30 34 35 20 20 20 20 20  | TEST.00045     |
00002ca0  20 30 30 30 32 20 20 20  20 20 20 20 4d 45 53 53  | 0002       MESS|
00002cb0  47 20 20 20 20 45 51 55  20 20 20 30 32 48 20 20  |G    EQU   02H  |
00002cc0  20 20 20 20 20 20 20 20  20 20 20 3b 4d 45 53 53  |           ;MESS|
00002cd0  41 47 45 0d 30 30 30 34  36 20 20 20 20 20 20 30  |AGE.00046      0|
00002ce0  30 30 38 20 20 20 20 20  20 20 49 52 45 54 20 20  |008       IRET  |
00002cf0  20 20 20 45 51 55 20 20  20 30 38 48 20 20 20 20  |   EQU   08H    |
00002d00  20 20 20 20 20 20 20 20  20 3b 48 41 4c 54 20 4f  |         ;HALT O|
00002d10  56 45 52 49 44 45 0d 30  30 30 34 37 20 20 20 20  |VERIDE.00047    |
00002d20  20 20 30 30 31 30 20 20  20 20 20 20 20 57 41 49  |  0010       WAI|
00002d30  54 20 20 20 20 45 51 55  20 20 20 20 31 30 48 20  |T    EQU    10H |
00002d40  20 20 20 20 20 20 20 20  20 20 20 20 3b 52 45 51  |            ;REQ|
00002d50  55 45 53 54 20 44 45 4c  41 59 0d 30 30 30 34 38  |UEST DELAY.00048|
00002d60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002d70  20 3b 0d 30 30 30 34 39  20 20 20 20 20 20 20 20  | ;.00049        |
00002d80  20 20 20 20 20 20 20 20  20 3b 0d 30 30 30 35 30  |         ;.00050|
00002d90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002da0  20 3b 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ;**************|
00002db0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002dc0  2a 2a 2a 2a 2a 2a 0d 30  30 30 35 31 20 20 20 20  |******.00051    |
00002dd0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 4d  |             ; M|
00002de0  45 53 53 41 47 45 20 4c  49 53 54 20 43 4f 4e 54  |ESSAGE LIST CONT|
00002df0  52 4f 4c 20 43 4f 44 45  53 0d 30 30 30 35 32 20  |ROL CODES.00052 |
00002e00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002e10  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
00002e20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00002e30  2a 2a 2a 2a 2a 0d 30 30  30 35 33 20 20 20 20 20  |*****.00053     |
00002e40  20 30 30 30 31 20 20 20  20 20 20 20 49 4e 50 55  | 0001       INPU|
00002e50  54 20 20 20 20 45 51 55  20 20 20 30 31 48 20 20  |T    EQU   01H  |
00002e60  20 20 20 20 20 20 20 20  20 20 20 3b 49 4e 50 55  |           ;INPU|
00002e70  54 20 46 49 45 4c 44 0d  30 30 30 35 34 20 20 20  |T FIELD.00054   |
00002e80  20 20 20 30 30 30 32 20  20 20 20 20 20 20 48 45  |   0002       HE|
00002e90  58 20 20 20 20 20 20 45  51 55 20 20 20 30 32 48  |X      EQU   02H|
00002ea0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 43 4f  |             ;CO|
00002eb0  4e 56 45 52 54 20 54 4f  20 41 53 43 49 49 28 49  |NVERT TO ASCII(I|
00002ec0  4d 50 4c 49 45 53 20 48  45 58 20 4f 52 20 42 49  |MPLIES HEX OR BI|
00002ed0  4e 20 46 49 45 4c 44 29  0d 30 30 30 35 35 20 20  |N FIELD).00055  |
00002ee0  20 20 20 20 30 30 38 34  20 20 20 20 20 20 20 4c  |    0084       L|
00002ef0  49 4e 4b 20 20 20 20 20  45 51 55 20 20 20 38 34  |INK     EQU   84|
00002f00  48 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 4c  |H             ;L|
00002f10  49 4e 4b 20 4d 45 53 53  41 47 45 0d 30 30 30 35  |INK MESSAGE.0005|
00002f20  36 20 20 20 20 20 20 30  30 30 38 20 20 20 20 20  |6      0008     |
00002f30  20 20 42 49 4e 41 52 59  20 20 20 45 51 55 20 20  |  BINARY   EQU  |
00002f40  20 30 38 48 20 20 20 20  20 20 20 20 20 20 20 20  | 08H            |
00002f50  20 3b 42 49 4e 41 52 59  20 41 4c 4c 4f 57 45 44  | ;BINARY ALLOWED|
00002f60  0d 30 30 30 35 37 20 20  20 20 20 20 30 30 38 30  |.00057      0080|
00002f70  20 20 20 20 20 20 20 4c  41 53 54 45 20 20 20 20  |       LASTE    |
00002f80  45 51 55 20 20 20 38 30  48 20 20 20 20 20 20 20  |EQU   80H       |
00002f90  20 20 20 20 20 20 3b 4c  41 53 54 20 4f 46 20 4c  |      ;LAST OF L|
00002fa0  49 53 54 0d 30 30 30 35  38 20 20 20 20 20 20 30  |IST.00058      0|
00002fb0  30 32 30 20 20 20 20 20  20 20 44 45 43 4d 41 4c  |020       DECMAL|
00002fc0  20 20 20 45 51 55 20 20  20 32 30 48 20 20 20 20  |   EQU   20H    |
00002fd0  20 20 20 20 20 20 20 20  20 3b 44 45 43 49 4d 41  |         ;DECIMA|
00002fe0  4c 20 46 49 45 4c 44 0d  30 30 30 35 39 20 20 20  |L FIELD.00059   |
00002ff0  20 20 20 30 30 31 30 20  20 20 20 20 20 20 4d 41  |   0010       MA|
00003000  42 53 20 20 20 20 20 45  51 55 20 20 20 31 30 48  |BS     EQU   10H|
00003010  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 41 42  |             ;AB|
00003020  53 4f 4c 55 54 45 20 41  44 44 52 45 53 53 0d 0c  |SOLUTE ADDRESS..|
00003030  54 65 6b 74 72 6f 6e 69  78 20 20 20 20 20 20 4d  |Tektronix      M|
00003040  36 38 30 30 20 41 53 4d  20 56 33 2e 33 20 20 55  |6800 ASM V3.3  U|
00003050  53 45 20 43 4f 4d 4d 2d  52 41 4d 2d 30 35 20 44  |SE COMM-RAM-05 D|
00003060  49 41 47 20 50 41 52 54  20 b3 20 20 20 20 50 61  |IAG PART .    Pa|
00003070  67 65 20 20 20 20 20 33  0d 55 53 41 20 53 59 53  |ge     3.USA SYS|
00003080  54 45 4d 20 49 4e 54 45  52 46 41 43 45 20 45 51  |TEM INTERFACE EQ|
00003090  55 41 54 45 53 20 41 4e  44 20 4d 41 43 52 4f d3  |UATES AND MACRO.|
000030a0  0d 0d 30 30 30 36 31 20  20 20 20 20 20 20 20 20  |..00061         |
000030b0  20 20 20 20 20 20 20 20  3b 0d 30 30 30 36 32 20  |        ;.00062 |
000030c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000030d0  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
000030e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
000030f0  2a 2a 2a 2a 0d 30 30 30  36 33 20 20 20 20 20 20  |****.00063      |
00003100  20 20 20 20 20 20 20 20  20 20 20 3b 20 54 45 53  |           ; TES|
00003110  54 20 4f 50 54 49 4f 4e  53 0d 30 30 30 36 34 20  |T OPTIONS.00064 |
00003120  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00003130  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
00003140  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00003150  2a 2a 2a 2a 0d 30 30 30  36 35 20 20 20 20 20 20  |****.00065      |
00003160  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 30 30  |           ;.000|
00003170  36 36 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |66              |
00003180  20 20 20 3b 20 20 53 55  42 54 45 53 54 20 48 45  |   ;  SUBTEST HE|
00003190  41 44 45 52 20 4f 50 54  49 4f 4e 20 45 51 55 41  |ADER OPTION EQUA|
000031a0  54 45 53 0d 30 30 30 36  37 20 20 20 20 20 20 20  |TES.00067       |
000031b0  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 30 36  |          ;.0006|
000031c0  38 20 20 20 20 20 20 30  30 30 32 20 20 20 20 20  |8      0002     |
000031d0  20 20 46 55 4e 43 53 50  20 20 45 51 55 20 20 20  |  FUNCSP  EQU   |
000031e0  20 30 32 48 20 20 20 20  20 20 20 20 20 20 20 20  | 02H            |
000031f0  20 3b 46 55 4e 43 54 49  4f 4e 53 20 53 50 45 43  | ;FUNCTIONS SPEC|
00003200  49 46 49 45 44 0d 30 30  30 36 39 20 20 20 20 20  |IFIED.00069     |
00003210  20 30 30 30 31 20 20 20  20 20 20 20 4d 41 50 20  | 0001       MAP |
00003220  20 20 20 20 45 51 55 20  20 20 20 30 31 48 20 20  |    EQU    01H  |
00003230  20 20 20 20 20 20 20 20  20 20 20 3b 4d 41 50 20  |           ;MAP |
00003240  41 4c 4c 20 4d 45 4d 4f  52 59 20 54 4f 20 53 59  |ALL MEMORY TO SY|
00003250  53 54 45 4d 0d 30 30 30  37 30 20 20 20 20 20 20  |STEM.00070      |
00003260  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 30 30  |           ;.000|
00003270  37 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |71              |
00003280  20 20 20 3b 20 20 45 51  55 41 54 45 53 20 46 4f  |   ;  EQUATES FO|
00003290  52 20 46 55 4e 43 54 49  4f 4e 20 42 4c 4f 43 4b  |R FUNCTION BLOCK|
000032a0  53 20 49 4e 20 53 55 42  54 45 53 54 20 48 45 41  |S IN SUBTEST HEA|
000032b0  44 45 52 53 0d 30 30 30  37 32 20 20 20 20 20 20  |DERS.00072      |
000032c0  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 30 30  |           ;.000|
000032d0  37 33 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |73              |
000032e0  20 20 20 3b 20 20 20 20  20 20 20 46 55 4e 43 54  |   ;       FUNCT|
000032f0  49 4f 4e 20 45 51 55 41  54 45 53 0d 30 30 30 37  |ION EQUATES.0007|
00003300  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
00003310  20 20 3b 0d 30 30 30 37  35 20 20 20 20 20 20 30  |  ;.00075      0|
00003320  30 31 30 20 20 20 20 20  20 20 53 49 47 4e 54 52  |010       SIGNTR|
00003330  20 20 45 51 55 20 20 20  20 31 30 48 20 20 20 20  |  EQU    10H    |
00003340  20 20 20 20 20 20 20 20  20 3b 53 49 47 4e 41 54  |         ;SIGNAT|
00003350  55 52 45 0d 30 30 30 37  36 20 20 20 20 20 20 30  |URE.00076      0|
00003360  30 32 30 20 20 20 20 20  20 20 43 4f 55 4e 54 20  |020       COUNT |
00003370  20 20 45 51 55 20 20 20  20 32 30 48 20 20 20 20  |  EQU    20H    |
00003380  20 20 20 20 20 20 20 20  20 3b 43 4f 55 4e 54 0d  |         ;COUNT.|
00003390  30 30 30 37 37 20 20 20  20 20 20 30 30 34 30 20  |00077      0040 |
000033a0  20 20 20 20 20 20 49 4e  54 52 56 4c 20 20 45 51  |      INTRVL  EQ|
000033b0  55 20 20 20 20 34 30 48  20 20 20 20 20 20 20 20  |U    40H        |
000033c0  20 20 20 20 20 3b 49 4e  54 45 52 56 41 4c 20 4f  |     ;INTERVAL O|
000033d0  52 20 50 55 4c 53 45 0d  30 30 30 37 38 20 20 20  |R PULSE.00078   |
000033e0  20 20 20 30 30 38 30 20  20 20 20 20 20 20 46 52  |   0080       FR|
000033f0  45 51 20 20 20 20 45 51  55 20 20 20 20 38 30 48  |EQ    EQU    80H|
00003400  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 46 52  |             ;FR|
00003410  45 51 55 45 4e 43 59 0d  30 30 30 37 39 20 20 20  |EQUENCY.00079   |
00003420  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
00003430  30 30 30 38 30 20 20 20  20 20 20 20 20 20 20 20  |00080           |
00003440  20 20 20 20 20 20 3b 0d  30 30 30 38 31 20 20 20  |      ;.00081   |
00003450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00003460  20 20 20 20 20 20 53 54  41 52 54 20 41 4e 44 20  |      START AND |
00003470  53 54 4f 50 20 43 52 49  54 45 52 49 41 0d 30 30  |STOP CRITERIA.00|
00003480  30 38 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |082             |
00003490  20 20 20 20 3b 0d 30 30  30 38 33 20 20 20 20 20  |    ;.00083     |
000034a0  20 30 30 30 30 20 20 20  20 20 20 20 53 50 4d 20  | 0000       SPM |
000034b0  20 20 20 20 45 51 55 20  20 20 20 30 20 20 20 20  |    EQU    0    |
000034c0  20 20 20 20 20 20 20 20  20 20 20 3b 53 54 41 52  |           ;STAR|
000034d0  54 20 4f 52 20 53 54 4f  50 20 50 52 4f 42 45 20  |T OR STOP PROBE |
000034e0  4d 49 4e 55 53 0d 30 30  30 38 34 20 20 20 20 20  |MINUS.00084     |
000034f0  20 30 30 30 31 20 20 20  20 20 20 20 53 50 50 20  | 0001       SPP |
00003500  20 20 20 20 45 51 55 20  20 20 20 31 20 20 20 20  |    EQU    1    |
00003510  20 20 20 20 20 20 20 20  20 20 20 3b 53 54 41 52  |           ;STAR|
00003520  54 20 4f 52 20 53 54 4f  50 20 50 52 4f 42 45 20  |T OR STOP PROBE |
00003530  50 4c 55 53 0d 30 30 30  38 35 20 20 20 20 20 20  |PLUS.00085      |
00003540  30 30 30 32 20 20 20 20  20 20 20 44 50 4d 20 20  |0002       DPM  |
00003550  20 20 20 45 51 55 20 20  20 20 32 20 20 20 20 20  |   EQU    2     |
00003560  20 20 20 20 20 20 20 20  20 20 3b 44 41 54 41 20  |          ;DATA |
00003570  50 52 4f 42 45 20 4d 49  4e 55 53 0d 30 30 30 38  |PROBE MINUS.0008|
00003580  36 20 20 20 20 20 20 30  30 30 33 20 20 20 20 20  |6      0003     |
00003590  20 20 44 50 50 20 20 20  20 20 45 51 55 20 20 20  |  DPP     EQU   |
000035a0  20 33 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | 3              |
000035b0  20 3b 44 41 54 41 20 50  52 4f 42 45 20 50 4c 55  | ;DATA PROBE PLU|
000035c0  53 0d 30 30 30 38 37 20  20 20 20 20 20 30 30 30  |S.00087      000|
000035d0  34 20 20 20 20 20 20 20  41 44 44 43 20 20 20 20  |4       ADDC    |
000035e0  45 51 55 20 20 20 20 34  20 20 20 20 20 20 20 20  |EQU    4        |
000035f0  20 20 20 20 20 20 20 3b  41 44 44 52 45 53 53 20  |       ;ADDRESS |
00003600  43 4f 4d 50 41 52 45 0d  30 30 30 38 38 20 20 20  |COMPARE.00088   |
00003610  20 20 20 30 30 30 35 20  20 20 20 20 20 20 41 44  |   0005       AD|
00003620  43 53 50 4d 20 20 45 51  55 20 20 20 20 35 20 20  |CSPM  EQU    5  |
00003630  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 41 44  |             ;AD|
00003640  44 52 45 53 53 20 43 4f  4d 50 41 52 45 20 41 4e  |DRESS COMPARE AN|
00003650  44 20 53 50 4d 0d 30 30  30 38 39 20 20 20 20 20  |D SPM.00089     |
00003660  20 30 30 30 36 20 20 20  20 20 20 20 41 44 43 53  | 0006       ADCS|
00003670  50 50 20 20 45 51 55 20  20 20 20 36 20 20 20 20  |PP  EQU    6    |
00003680  20 20 20 20 20 20 20 20  20 20 20 3b 41 44 44 52  |           ;ADDR|
00003690  45 53 53 20 43 4f 4d 50  41 52 45 20 41 4e 44 20  |ESS COMPARE AND |
000036a0  53 50 50 0d 30 30 30 39  30 20 20 20 20 20 20 30  |SPP.00090      0|
000036b0  30 30 37 20 20 20 20 20  20 20 41 44 43 44 50 4d  |007       ADCDPM|
000036c0  20 20 45 51 55 20 20 20  20 37 20 20 20 20 20 20  |  EQU    7      |
000036d0  20 20 20 20 20 20 20 20  20 3b 41 44 44 52 45 53  |         ;ADDRES|
000036e0  53 20 43 4f 4d 50 41 52  45 20 41 4e 44 20 44 50  |S COMPARE AND DP|
000036f0  4d 0d 30 30 30 39 31 20  20 20 20 20 20 30 30 30  |M.00091      000|
00003700  38 20 20 20 20 20 20 20  41 44 43 44 50 50 20 20  |8       ADCDPP  |
00003710  45 51 55 20 20 20 20 38  20 20 20 20 20 20 20 20  |EQU    8        |
00003720  20 20 20 20 20 20 20 3b  41 44 44 52 45 53 53 20  |       ;ADDRESS |
00003730  43 4f 4d 50 41 52 45 20  41 4e 44 20 44 50 50 0d  |COMPARE AND DPP.|
00003740  30 30 30 39 32 20 20 20  20 20 20 20 20 20 20 20  |00092           |
00003750  20 20 20 20 20 20 3b 20  20 20 20 53 54 41 52 54  |      ;    START|
00003760  20 4f 4e 4c 59 0d 30 30  30 39 33 20 20 20 20 20  | ONLY.00093     |
00003770  20 30 30 30 39 20 20 20  20 20 20 20 53 54 52 4e  | 0009       STRN|
00003780  4f 57 20 20 45 51 55 20  20 20 20 39 20 20 20 20  |OW  EQU    9    |
00003790  20 20 20 20 20 20 20 20  20 20 20 3b 53 54 41 52  |           ;STAR|
000037a0  54 20 4e 4f 57 0d 30 30  30 39 34 20 20 20 20 20  |T NOW.00094     |
000037b0  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  |            ;   |
000037c0  20 53 54 4f 50 20 4f 4e  4c 59 0d 30 30 30 39 35  | STOP ONLY.00095|
000037d0  20 20 20 20 20 20 30 30  30 39 20 20 20 20 20 20  |      0009      |
000037e0  20 43 4e 54 20 20 20 20  20 45 51 55 20 20 20 20  | CNT     EQU    |
000037f0  39 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9               |
00003800  3b 53 54 4f 50 20 4f 4e  20 43 4f 55 4e 54 53 0d  |;STOP ON COUNTS.|
00003810  30 30 30 39 36 20 20 20  20 20 20 30 30 30 41 20  |00096      000A |
00003820  20 20 20 20 20 20 43 4e  54 53 50 4d 20 20 45 51  |      CNTSPM  EQ|
00003830  55 20 20 20 20 30 41 48  20 20 20 20 20 20 20 20  |U    0AH        |
00003840  20 20 20 20 20 3b 43 4f  55 4e 54 53 20 41 4e 44  |     ;COUNTS AND|
00003850  20 53 54 4f 50 20 50 52  4f 42 45 20 4d 49 4e 55  | STOP PROBE MINU|
00003860  53 0d 30 30 30 39 37 20  20 20 20 20 20 30 30 30  |S.00097      000|
00003870  42 20 20 20 20 20 20 20  43 4e 54 53 50 50 20 20  |B       CNTSPP  |
00003880  45 51 55 20 20 20 20 30  42 48 20 20 20 20 20 20  |EQU    0BH      |
00003890  20 20 20 20 20 20 20 3b  43 4f 55 4e 54 53 20 41  |       ;COUNTS A|
000038a0  4e 44 20 53 54 4f 50 20  50 52 4f 42 45 20 50 4c  |ND STOP PROBE PL|
000038b0  55 53 0d 30 30 30 39 38  20 20 20 20 20 20 30 30  |US.00098      00|
000038c0  30 43 20 20 20 20 20 20  20 43 41 44 20 20 20 20  |0C       CAD    |
000038d0  20 45 51 55 20 20 20 20  30 43 48 20 20 20 20 20  | EQU    0CH     |
000038e0  20 20 20 20 20 20 20 20  3b 43 4f 55 4e 54 53 20  |        ;COUNTS |
000038f0  41 4e 44 20 41 44 44 52  45 53 53 20 43 4f 4d 50  |AND ADDRESS COMP|
00003900  41 52 45 0d 30 30 30 39  39 20 20 20 20 20 20 30  |ARE.00099      0|
00003910  30 30 44 20 20 20 20 20  20 20 43 41 44 53 50 4d  |00D       CADSPM|
00003920  20 20 45 51 55 20 20 20  20 30 44 48 20 20 20 20  |  EQU    0DH    |
00003930  20 20 20 20 20 20 20 20  20 3b 43 41 44 20 41 4e  |         ;CAD AN|
00003940  44 20 53 54 4f 50 20 50  52 4f 42 45 20 4d 49 4e  |D STOP PROBE MIN|
00003950  55 53 0d 30 30 31 30 30  20 20 20 20 20 20 30 30  |US.00100      00|
00003960  30 45 20 20 20 20 20 20  20 43 41 44 53 50 50 20  |0E       CADSPP |
00003970  20 45 51 55 20 20 20 20  30 45 48 20 20 20 20 20  | EQU    0EH     |
00003980  20 20 20 20 20 20 20 20  3b 43 41 44 20 41 4e 44  |        ;CAD AND|
00003990  20 53 54 4f 50 20 50 52  4f 42 45 20 50 4c 55 53  | STOP PROBE PLUS|
000039a0  0d 30 30 31 30 31 20 20  20 20 20 20 20 20 20 20  |.00101          |
000039b0  20 20 20 20 20 20 20 3b  0d 30 30 31 30 32 20 20  |       ;.00102  |
000039c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
000039d0  20 20 20 20 20 20 20 43  4c 4f 43 4b 2f 44 41 54  |       CLOCK/DAT|
000039e0  41 20 53 4f 55 52 43 45  0d 30 30 31 30 33 20 20  |A SOURCE.00103  |
000039f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00003a00  0d 30 30 31 30 34 20 20  20 20 20 20 30 30 30 30  |.00104      0000|
00003a10  20 20 20 20 20 20 20 43  50 50 44 50 50 20 20 45  |       CPPDPP  E|
00003a20  51 55 20 20 20 20 30 20  20 20 20 20 20 20 20 20  |QU    0         |
00003a30  20 20 20 20 20 20 3b 43  4c 4f 43 4b 20 50 52 42  |      ;CLOCK PRB|
00003a40  20 50 4c 55 53 20 44 41  54 41 20 50 52 42 20 50  | PLUS DATA PRB P|
00003a50  4c 55 53 0d 30 30 31 30  35 20 20 20 20 20 20 30  |LUS.00105      0|
00003a60  30 30 31 20 20 20 20 20  20 20 50 50 44 50 4d 20  |001       PPDPM |
00003a70  20 20 45 51 55 20 20 20  20 31 20 20 20 20 20 20  |  EQU    1      |
00003a80  20 20 20 20 20 20 20 20  20 3b 43 4c 4f 43 4b 20  |         ;CLOCK |
00003a90  50 52 42 20 50 4c 55 53  20 44 41 54 41 20 50 52  |PRB PLUS DATA PR|
00003aa0  42 20 4d 49 4e 55 53 0d  30 30 31 30 36 20 20 20  |B MINUS.00106   |
00003ab0  20 20 20 30 30 30 32 20  20 20 20 20 20 20 43 50  |   0002       CP|
00003ac0  4d 44 50 50 20 20 45 51  55 20 20 20 20 32 20 20  |MDPP  EQU    2  |
00003ad0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 43 4c  |             ;CL|
00003ae0  4f 43 4b 20 50 52 42 20  4d 49 4e 55 53 20 44 41  |OCK PRB MINUS DA|
00003af0  54 41 20 50 52 42 20 50  4c 55 53 0d 30 30 31 30  |TA PRB PLUS.0010|
00003b00  37 20 20 20 20 20 20 30  30 30 33 20 20 20 20 20  |7      0003     |
00003b10  20 20 43 50 4d 44 50 4d  20 20 45 51 55 20 20 20  |  CPMDPM  EQU   |
00003b20  20 33 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | 3              |
00003b30  20 3b 43 4c 4f 43 4b 20  50 52 42 20 4d 49 4e 55  | ;CLOCK PRB MINU|
00003b40  53 20 44 41 54 41 20 50  52 42 20 4d 49 4e 55 53  |S DATA PRB MINUS|
00003b50  0d 30 30 31 30 38 20 20  20 20 20 20 30 30 30 34  |.00108      0004|
00003b60  20 20 20 20 20 20 20 4f  52 50 44 50 50 20 20 45  |       ORPDPP  E|
00003b70  51 55 20 20 20 20 34 20  20 20 20 20 20 20 20 20  |QU    4         |
00003b80  20 20 20 20 20 20 3b 4f  50 20 52 45 51 20 50 4c  |      ;OP REQ PL|
00003b90  55 53 20 44 41 54 41 20  50 52 42 20 50 4c 55 53  |US DATA PRB PLUS|
00003ba0  0d 30 30 31 30 39 20 20  20 20 20 20 30 30 30 35  |.00109      0005|
00003bb0  20 20 20 20 20 20 20 4f  52 50 44 50 4d 20 20 45  |       ORPDPM  E|
00003bc0  51 55 20 20 20 20 35 20  20 20 20 20 20 20 20 20  |QU    5         |
00003bd0  20 20 20 20 20 20 3b 4f  50 20 52 45 51 20 50 4c  |      ;OP REQ PL|
00003be0  55 53 20 44 41 54 41 20  50 52 42 20 4d 49 4e 55  |US DATA PRB MINU|
00003bf0  53 0d 30 30 31 31 30 20  20 20 20 20 20 30 30 30  |S.00110      000|
00003c00  36 20 20 20 20 20 20 20  4f 52 4d 44 50 50 20 20  |6       ORMDPP  |
00003c10  45 51 55 20 20 20 20 36  20 20 20 20 20 20 20 20  |EQU    6        |
00003c20  20 20 20 20 20 20 20 3b  4f 50 20 52 45 51 20 4d  |       ;OP REQ M|
00003c30  49 4e 55 53 20 44 41 54  41 20 50 52 42 20 50 4c  |INUS DATA PRB PL|
00003c40  55 53 0d 30 30 31 31 31  20 20 20 20 20 20 30 30  |US.00111      00|
00003c50  30 37 20 20 20 20 20 20  20 4f 52 4d 44 50 4d 20  |07       ORMDPM |
00003c60  20 45 51 55 20 20 20 20  37 20 20 20 20 20 20 20  | EQU    7       |
00003c70  20 20 20 20 20 20 20 20  3b 4f 50 20 52 45 51 20  |        ;OP REQ |
00003c80  4d 49 4e 55 53 20 44 41  54 41 20 50 52 42 20 4d  |MINUS DATA PRB M|
00003c90  49 4e 55 53 0d 30 30 31  31 32 20 20 20 20 20 20  |INUS.00112      |
00003ca0  30 30 30 38 20 20 20 20  20 20 20 44 54 41 50 52  |0008       DTAPR|
00003cb0  42 20 20 45 51 55 20 20  20 20 38 20 20 20 20 20  |B  EQU    8     |
00003cc0  20 20 20 20 20 20 20 20  20 20 3b 44 41 54 41 20  |          ;DATA |
00003cd0  50 52 4f 42 45 0d 0c 54  65 6b 74 72 6f 6e 69 78  |PROBE..Tektronix|
00003ce0  20 20 20 20 20 20 4d 36  38 30 30 20 41 53 4d 20  |      M6800 ASM |
00003cf0  56 33 2e 33 20 20 55 53  45 20 43 4f 4d 4d 2d 52  |V3.3  USE COMM-R|
00003d00  41 4d 2d 30 35 20 44 49  41 47 20 50 41 52 54 20  |AM-05 DIAG PART |
00003d10  b3 20 20 20 20 50 61 67  65 20 20 20 20 20 34 0d  |.    Page     4.|
00003d20  55 53 41 20 53 59 53 54  45 4d 20 49 4e 54 45 52  |USA SYSTEM INTER|
00003d30  46 41 43 45 20 45 51 55  41 54 45 53 20 41 4e 44  |FACE EQUATES AND|
00003d40  20 4d 41 43 52 4f d3 0d  0d 30 30 31 31 33 20 20  | MACRO...00113  |
00003d50  20 20 20 20 30 30 30 39  20 20 20 20 20 20 20 4f  |    0009       O|
00003d60  50 52 51 20 20 20 20 45  51 55 20 20 20 20 39 20  |PRQ    EQU    9 |
00003d70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 4f  |              ;O|
00003d80  50 20 52 45 51 55 45 53  54 0d 30 30 31 31 34 20  |P REQUEST.00114 |
00003d90  20 20 20 20 20 30 30 30  41 20 20 20 20 20 20 20  |     000A       |
00003da0  44 54 50 52 42 54 20 20  45 51 55 20 20 20 20 30  |DTPRBT  EQU    0|
00003db0  41 48 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |AH             ;|
00003dc0  44 41 54 41 20 50 52 4f  42 45 20 54 52 41 4e 53  |DATA PROBE TRANS|
00003dd0  49 54 49 4f 4e 0d 30 30  31 31 35 20 20 20 20 20  |ITION.00115     |
00003de0  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
00003df0  31 31 36 20 20 20 20 20  20 20 20 20 20 20 20 20  |116             |
00003e00  20 20 20 20 3b 20 20 20  20 20 20 20 44 49 53 50  |    ;       DISP|
00003e10  4c 41 59 20 43 52 49 54  45 52 49 41 0d 30 30 31  |LAY CRITERIA.001|
00003e20  31 37 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |17              |
00003e30  20 20 20 3b 0d 30 30 31  31 38 20 20 20 20 20 20  |   ;.00118      |
00003e40  30 30 30 30 20 20 20 20  20 20 20 41 56 45 52 41  |0000       AVERA|
00003e50  47 45 20 45 51 55 20 20  20 20 30 20 20 20 20 20  |GE EQU    0     |
00003e60  20 20 20 20 20 20 20 20  20 20 3b 41 56 45 52 41  |          ;AVERA|
00003e70  47 45 20 31 30 20 54 4f  47 45 54 48 45 52 0d 30  |GE 10 TOGETHER.0|
00003e80  30 31 31 39 20 20 20 20  20 20 30 30 30 31 20 20  |0119      0001  |
00003e90  20 20 20 20 20 44 53 50  4e 4f 57 20 20 45 51 55  |     DSPNOW  EQU|
00003ea0  20 20 20 20 31 20 20 20  20 20 20 20 20 20 20 20  |    1           |
00003eb0  20 20 20 20 3b 44 49 53  50 4c 41 59 20 45 41 43  |    ;DISPLAY EAC|
00003ec0  48 20 4f 4e 45 0d 30 30  31 32 30 20 20 20 20 20  |H ONE.00120     |
00003ed0  20 30 30 30 32 20 20 20  20 20 20 20 57 54 31 30  | 0002       WT10|
00003ee0  30 4d 20 20 45 51 55 20  20 20 20 32 20 20 20 20  |0M  EQU    2    |
00003ef0  20 20 20 20 20 20 20 20  20 20 20 3b 57 41 49 54  |           ;WAIT|
00003f00  20 31 30 30 20 4d 53 0d  30 30 31 32 31 20 20 20  | 100 MS.00121   |
00003f10  20 20 20 30 30 30 33 20  20 20 20 20 20 20 57 54  |   0003       WT|
00003f20  32 30 30 4d 20 20 45 51  55 20 20 20 20 33 20 20  |200M  EQU    3  |
00003f30  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 57 41  |             ;WA|
00003f40  49 54 20 32 30 30 20 4d  53 0d 30 30 31 32 32 20  |IT 200 MS.00122 |
00003f50  20 20 20 20 20 30 30 30  34 20 20 20 20 20 20 20  |     0004       |
00003f60  57 54 33 30 30 4d 20 20  45 51 55 20 20 20 20 34  |WT300M  EQU    4|
00003f70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00003f80  57 41 49 54 20 33 30 30  20 4d 53 0d 30 30 31 32  |WAIT 300 MS.0012|
00003f90  33 20 20 20 20 20 20 30  30 30 35 20 20 20 20 20  |3      0005     |
00003fa0  20 20 57 54 34 30 30 4d  20 20 45 51 55 20 20 20  |  WT400M  EQU   |
00003fb0  20 35 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | 5              |
00003fc0  20 3b 57 41 49 54 20 34  30 30 20 4d 53 0d 30 30  | ;WAIT 400 MS.00|
00003fd0  31 32 34 20 20 20 20 20  20 30 30 30 36 20 20 20  |124      0006   |
00003fe0  20 20 20 20 57 54 35 30  30 4d 20 20 45 51 55 20  |    WT500M  EQU |
00003ff0  20 20 20 36 20 20 20 20  20 20 20 20 20 20 20 20  |   6            |
00004000  20 20 20 3b 57 41 49 54  20 35 30 30 20 4d 53 0d  |   ;WAIT 500 MS.|
00004010  30 30 31 32 35 20 20 20  20 20 20 30 30 30 37 20  |00125      0007 |
00004020  20 20 20 20 20 20 57 54  37 30 30 4d 20 20 45 51  |      WT700M  EQ|
00004030  55 20 20 20 20 37 20 20  20 20 20 20 20 20 20 20  |U    7          |
00004040  20 20 20 20 20 3b 57 41  49 54 20 37 30 30 20 4d  |     ;WAIT 700 M|
00004050  53 0d 30 30 31 32 36 20  20 20 20 20 20 30 30 30  |S.00126      000|
00004060  38 20 20 20 20 20 20 20  57 54 31 53 45 43 20 20  |8       WT1SEC  |
00004070  45 51 55 20 20 20 20 38  20 20 20 20 20 20 20 20  |EQU    8        |
00004080  20 20 20 20 20 20 20 3b  57 41 49 54 20 31 20 53  |       ;WAIT 1 S|
00004090  45 43 4f 4e 44 0d 30 30  31 32 37 20 20 20 20 20  |ECOND.00127     |
000040a0  20 30 30 30 39 20 20 20  20 20 20 20 57 54 32 35  | 0009       WT25|
000040b0  53 45 43 20 45 51 55 20  20 20 20 39 20 20 20 20  |SEC EQU    9    |
000040c0  20 20 20 20 20 20 20 20  20 20 20 3b 57 41 49 54  |           ;WAIT|
000040d0  20 32 20 53 45 43 4f 4e  44 53 0d 30 30 31 32 38  | 2 SECONDS.00128|
000040e0  20 20 20 20 20 20 30 30  30 41 20 20 20 20 20 20  |      000A      |
000040f0  20 57 54 35 53 45 43 20  20 45 51 55 20 20 20 20  | WT5SEC  EQU    |
00004100  30 41 48 20 20 20 20 20  20 20 20 20 20 20 20 20  |0AH             |
00004110  3b 57 41 49 54 20 35 20  53 45 43 4f 4e 44 53 0d  |;WAIT 5 SECONDS.|
00004120  30 30 31 32 39 20 20 20  20 20 20 20 20 20 20 20  |00129           |
00004130  20 20 20 20 20 20 3b 0d  30 30 31 33 30 20 20 20  |      ;.00130   |
00004140  20 20 20 30 30 36 34 20  20 20 20 20 20 20 54 4d  |   0064       TM|
00004150  4f 44 45 46 20 20 20 45  51 55 20 20 20 31 30 30  |ODEF   EQU   100|
00004160  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 53 49  |             ;SI|
00004170  47 4e 41 54 55 52 45 20  54 49 4d 4f 55 54 20 44  |GNATURE TIMOUT D|
00004180  45 46 41 55 4c 54 0d 0c  54 65 6b 74 72 6f 6e 69  |EFAULT..Tektroni|
00004190  78 20 20 20 20 20 20 4d  36 38 30 30 20 41 53 4d  |x      M6800 ASM|
000041a0  20 56 33 2e 33 20 20 55  53 45 20 43 4f 4d 4d 2d  | V3.3  USE COMM-|
000041b0  52 41 4d 2d 30 35 20 44  49 41 47 20 50 41 52 54  |RAM-05 DIAG PART|
000041c0  20 b3 20 20 20 20 50 61  67 65 20 20 20 20 20 35  | .    Page     5|
000041d0  0d 55 53 41 20 53 59 53  54 45 4d 20 49 4e 54 45  |.USA SYSTEM INTE|
000041e0  52 46 41 43 45 20 45 51  55 41 54 45 53 20 41 4e  |RFACE EQUATES AN|
000041f0  44 20 4d 41 43 52 4f d3  0d 0d 30 30 31 33 32 20  |D MACRO...00132 |
00004200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004210  3b 0d 30 30 31 33 33 20  20 20 20 20 20 20 20 20  |;.00133         |
00004220  20 20 20 20 20 20 20 20  3b 20 20 4d 41 43 52 4f  |        ;  MACRO|
00004230  20 4d 53 47 42 4c 4b 20  28 4d 45 53 53 41 47 45  | MSGBLK (MESSAGE|
00004240  20 42 4c 4f 43 4b 29 0d  30 30 31 33 34 20 20 20  | BLOCK).00134   |
00004250  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
00004260  30 30 31 33 35 20 20 20  20 20 20 20 20 20 20 20  |00135           |
00004270  20 20 20 20 20 20 3b 20  20 20 20 20 20 20 54 48  |      ;       TH|
00004280  49 53 20 4d 41 43 52 4f  20 43 52 45 41 54 45 53  |IS MACRO CREATES|
00004290  20 4f 4e 45 20 45 4e 54  52 59 20 49 4e 20 41 20  | ONE ENTRY IN A |
000042a0  4d 45 53 53 41 47 45 20  4c 49 53 54 0d 30 30 31  |MESSAGE LIST.001|
000042b0  33 36 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |36              |
000042c0  20 20 20 3b 0d 30 30 31  33 37 20 20 20 20 20 20  |   ;.00137      |
000042d0  20 20 20 20 20 20 20 20  20 20 20 3b 20 20 20 43  |           ;   C|
000042e0  41 4c 4c 49 4e 47 20 53  45 51 55 45 4e 43 45 0d  |ALLING SEQUENCE.|
000042f0  30 30 31 33 38 20 20 20  20 20 20 20 20 20 20 20  |00138           |
00004300  20 20 20 20 20 20 3b 20  20 20 20 20 20 20 4d 53  |      ;       MS|
00004310  47 42 4c 4b 20 50 41 52  31 2c 50 41 52 32 2c 50  |GBLK PAR1,PAR2,P|
00004320  41 52 33 0d 30 30 31 33  39 20 20 20 20 20 20 20  |AR3.00139       |
00004330  20 20 20 20 20 20 20 20  20 20 3b 20 20 20 20 20  |          ;     |
00004340  20 20 49 4e 50 55 54 20  41 52 47 55 4d 45 4e 54  |  INPUT ARGUMENT|
00004350  53 20 41 52 45 0d 30 30  31 34 30 20 20 20 20 20  |S ARE.00140     |
00004360  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  |            ;   |
00004370  20 20 20 20 50 41 52 31  20 3d 20 46 4c 41 47 20  |    PAR1 = FLAG |
00004380  42 59 54 45 0d 30 30 31  34 31 20 20 20 20 20 20  |BYTE.00141      |
00004390  20 20 20 20 20 20 20 20  20 20 20 3b 20 20 20 20  |           ;    |
000043a0  20 20 20 50 41 52 32 20  3d 20 43 48 41 52 20 43  |   PAR2 = CHAR C|
000043b0  4f 55 4e 54 0d 30 30 31  34 32 20 20 20 20 20 20  |OUNT.00142      |
000043c0  20 20 20 20 20 20 20 20  20 20 20 3b 20 20 20 20  |           ;    |
000043d0  20 20 20 50 41 52 33 20  3d 20 50 4f 49 4e 54 45  |   PAR3 = POINTE|
000043e0  52 20 54 4f 20 44 41 54  41 0d 30 30 31 34 33 20  |R TO DATA.00143 |
000043f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004400  3b 0d 30 30 31 34 34 20  20 20 20 20 20 20 20 20  |;.00144         |
00004410  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004420  4d 41 43 52 4f 20 20 4d  53 47 42 4c 4b 0d 30 30  |MACRO  MSGBLK.00|
00004430  31 34 35 20 20 20 20 20  20 20 20 20 20 20 20 20  |145             |
00004440  20 20 20 20 20 20 20 20  20 20 20 20 42 59 54 45  |            BYTE|
00004450  20 20 20 27 31 27 0d 30  30 31 34 36 20 20 20 20  |   '1'.00146    |
00004460  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004470  20 20 20 20 20 42 59 54  45 20 20 20 27 32 27 0d  |     BYTE   '2'.|
00004480  30 30 31 34 37 20 20 20  20 20 20 20 20 20 20 20  |00147           |
00004490  20 20 20 20 20 20 20 20  20 20 20 20 20 20 57 4f  |              WO|
000044a0  52 44 20 20 20 27 33 27  0d 30 30 31 34 38 20 20  |RD   '3'.00148  |
000044b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000044c0  20 20 20 20 20 20 20 45  4e 44 4d 0d 30 30 31 34  |       ENDM.0014|
000044d0  39 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9               |
000044e0  20 20 3b 0d 30 30 31 35  30 20 20 20 20 20 20 20  |  ;.00150       |
000044f0  20 20 20 20 20 20 20 20  20 20 3b 20 20 4d 41 43  |          ;  MAC|
00004500  52 4f 20 53 45 54 4e 0d  30 30 31 35 31 20 20 20  |RO SETN.00151   |
00004510  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
00004520  30 30 31 35 32 20 20 20  20 20 20 20 20 20 20 20  |00152           |
00004530  20 20 20 20 20 20 3b 20  20 20 20 20 20 20 54 48  |      ;       TH|
00004540  49 53 20 4d 41 43 52 4f  20 53 45 54 53 20 55 50  |IS MACRO SETS UP|
00004550  20 41 20 53 50 45 43 49  41 4c 20 53 54 52 49 4e  | A SPECIAL STRIN|
00004560  47 20 56 41 52 49 41 42  4c 45 0d 30 30 31 35 33  |G VARIABLE.00153|
00004570  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004580  20 3b 0d 30 30 31 35 34  20 20 20 20 20 20 20 20  | ;.00154        |
00004590  20 20 20 20 20 20 20 20  20 3b 20 20 20 43 41 4c  |         ;   CAL|
000045a0  4c 49 4e 47 20 53 45 51  55 45 4e 43 45 0d 30 30  |LING SEQUENCE.00|
000045b0  31 35 35 20 20 20 20 20  20 20 20 20 20 20 20 20  |155             |
000045c0  20 20 20 20 3b 20 20 20  20 20 20 20 53 45 54 4e  |    ;       SETN|
000045d0  20 20 20 50 41 52 0d 30  30 31 35 36 20 20 20 20  |   PAR.00156    |
000045e0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 20  |             ;  |
000045f0  20 20 20 20 20 41 20 32  20 43 48 41 52 20 53 54  |     A 2 CHAR ST|
00004600  52 49 4e 47 20 56 41 52  49 41 42 4c 45 20 43 41  |RING VARIABLE CA|
00004610  4c 4c 45 44 20 4e 20 49  53 20 43 52 45 41 54 45  |LLED N IS CREATE|
00004620  44 0d 30 30 31 35 37 20  20 20 20 20 20 20 20 20  |D.00157         |
00004630  20 20 20 20 20 20 20 20  3b 20 20 20 20 20 20 20  |        ;       |
00004640  43 4f 4e 53 49 53 54 49  4e 47 20 4f 46 20 41 20  |CONSISTING OF A |
00004650  32 20 44 49 47 49 54 20  41 53 43 49 49 20 44 45  |2 DIGIT ASCII DE|
00004660  43 49 4d 41 4c 0d 30 30  31 35 38 20 20 20 20 20  |CIMAL.00158     |
00004670  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  |            ;   |
00004680  20 20 20 20 4e 55 4d 42  45 52 20 52 45 50 52 45  |    NUMBER REPRE|
00004690  53 45 4e 54 49 4e 47 20  54 48 45 20 56 41 4c 55  |SENTING THE VALU|
000046a0  45 20 50 41 52 0d 30 30  31 35 39 20 20 20 20 20  |E PAR.00159     |
000046b0  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
000046c0  31 36 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |160             |
000046d0  20 20 20 20 20 20 20 20  20 20 20 20 53 54 52 49  |            STRI|
000046e0  4e 47 20 59 0d 30 30 31  36 31 20 20 20 20 20 20  |NG Y.00161      |
000046f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004700  20 20 20 53 54 52 49 4e  47 20 4e 28 32 29 0d 30  |   STRING N(2).0|
00004710  30 31 36 32 20 20 20 20  20 20 20 20 20 20 20 20  |0162            |
00004720  20 20 20 20 20 3b 0d 30  30 31 36 33 20 20 20 20  |     ;.00163    |
00004730  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004740  20 20 20 20 20 4d 41 43  52 4f 20 20 53 45 54 4e  |     MACRO  SETN|
00004750  0d 30 30 31 36 34 20 20  20 20 20 20 20 20 20 20  |.00164          |
00004760  20 20 20 20 20 20 20 5a  20 20 20 20 20 20 20 53  |       Z       S|
00004770  45 54 20 20 20 20 27 31  27 0d 30 30 31 36 35 20  |ET    '1'.00165 |
00004780  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004790  59 20 20 20 20 20 20 20  53 45 54 20 20 20 20 5a  |Y       SET    Z|
000047a0  0d 30 30 31 36 36 20 20  20 20 20 20 20 20 20 20  |.00166          |
000047b0  20 20 20 20 20 20 20 4e  20 20 20 20 20 20 20 53  |       N       S|
000047c0  45 54 20 20 20 20 53 45  47 28 22 27 59 27 22 2c  |ET    SEG("'Y'",|
000047d0  35 2c 32 29 0d 30 30 31  36 37 20 20 20 20 20 20  |5,2).00167      |
000047e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000047f0  20 20 20 45 4e 44 4d 0d  30 30 31 36 38 20 20 20  |   ENDM.00168   |
00004800  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
00004810  30 30 31 36 39 20 20 20  20 20 20 20 20 20 20 20  |00169           |
00004820  20 20 20 20 20 20 3b 20  20 4d 41 43 52 4f 20 49  |      ;  MACRO I|
00004830  4e 43 4e 0d 30 30 31 37  30 20 20 20 20 20 20 20  |NCN.00170       |
00004840  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 31 37  |          ;.0017|
00004850  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
00004860  20 20 3b 20 20 20 20 20  20 20 54 48 49 53 20 4d  |  ;       THIS M|
00004870  41 43 52 4f 20 49 4e 43  52 45 4d 45 4e 54 53 20  |ACRO INCREMENTS |
00004880  54 48 45 20 53 50 45 43  49 41 4c 0d 30 30 31 37  |THE SPECIAL.0017|
00004890  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
000048a0  20 20 3b 20 20 20 20 20  20 20 53 54 52 49 4e 47  |  ;       STRING|
000048b0  20 56 41 52 49 41 42 4c  45 20 43 52 45 41 54 45  | VARIABLE CREATE|
000048c0  44 20 42 59 20 53 45 54  58 0d 30 30 31 37 33 20  |D BY SETX.00173 |
000048d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000048e0  3b 0d 30 30 31 37 34 20  20 20 20 20 20 20 20 20  |;.00174         |
000048f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004900  4d 41 43 52 4f 20 20 49  4e 43 4e 0d 30 30 31 37  |MACRO  INCN.0017|
00004910  35 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |5               |
00004920  20 20 5a 20 20 20 20 20  20 20 53 45 54 20 20 20  |  Z       SET   |
00004930  20 5a 2b 31 0d 30 30 31  37 36 20 20 20 20 20 20  | Z+1.00176      |
00004940  20 20 20 20 20 20 20 20  20 20 20 59 20 20 20 20  |           Y    |
00004950  20 20 20 53 45 54 20 20  20 20 5a 0d 30 30 31 37  |   SET    Z.0017|
00004960  37 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |7               |
00004970  20 20 4e 20 20 20 20 20  20 20 53 45 54 20 20 20  |  N       SET   |
00004980  20 53 45 47 28 22 27 59  27 22 2c 35 2c 32 29 0d  | SEG("'Y'",5,2).|
00004990  30 30 31 37 38 20 20 20  20 20 20 20 20 20 20 20  |00178           |
000049a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 45 4e  |              EN|
000049b0  44 4d 0d 0c 54 65 6b 74  72 6f 6e 69 78 20 20 20  |DM..Tektronix   |
000049c0  20 20 20 4d 36 38 30 30  20 41 53 4d 20 56 33 2e  |   M6800 ASM V3.|
000049d0  33 20 20 55 53 45 20 43  4f 4d 4d 2d 52 41 4d 2d  |3  USE COMM-RAM-|
000049e0  30 35 20 44 49 41 47 20  50 41 52 54 20 b3 20 20  |05 DIAG PART .  |
000049f0  20 20 50 61 67 65 20 20  20 20 20 36 0d 55 53 41  |  Page     6.USA|
00004a00  20 53 59 53 54 45 4d 20  49 4e 54 45 52 46 41 43  | SYSTEM INTERFAC|
00004a10  45 20 45 51 55 41 54 45  53 20 41 4e 44 20 4d 41  |E EQUATES AND MA|
00004a20  43 52 4f d3 0d 0d 30 30  31 38 30 20 20 20 20 20  |CRO...00180     |
00004a30  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
00004a40  31 38 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |181             |
00004a50  20 20 20 20 3b 0d 30 30  31 38 32 20 20 20 20 20  |    ;.00182     |
00004a60  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 4d  |            ;  M|
00004a70  41 43 52 4f 20 54 53 54  48 44 52 20 28 54 45 53  |ACRO TSTHDR (TES|
00004a80  54 20 48 45 41 44 45 52  29 0d 30 30 31 38 33 20  |T HEADER).00183 |
00004a90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004aa0  3b 0d 30 30 31 38 34 20  20 20 20 20 20 20 20 20  |;.00184         |
00004ab0  20 20 20 20 20 20 20 20  3b 20 20 20 20 20 20 20  |        ;       |
00004ac0  54 48 49 53 20 4d 41 43  52 4f 20 47 45 4e 45 52  |THIS MACRO GENER|
00004ad0  41 54 45 53 20 41 20 54  45 53 54 20 48 45 41 44  |ATES A TEST HEAD|
00004ae0  45 52 20 42 4c 4f 43 4b  0d 30 30 31 38 35 20 20  |ER BLOCK.00185  |
00004af0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00004b00  0d 30 30 31 38 36 20 20  20 20 20 20 20 20 20 20  |.00186          |
00004b10  20 20 20 20 20 20 20 3b  20 20 20 43 41 4c 4c 49  |       ;   CALLI|
00004b20  4e 47 20 53 45 51 55 45  4e 43 45 0d 30 30 31 38  |NG SEQUENCE.0018|
00004b30  37 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |7               |
00004b40  20 20 3b 20 20 20 20 20  20 20 54 53 54 48 44 52  |  ;       TSTHDR|
00004b50  20 20 50 41 52 31 2c 50  41 52 32 0d 30 30 31 38  |  PAR1,PAR2.0018|
00004b60  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
00004b70  20 20 3b 20 20 20 20 20  20 20 50 41 52 31 20 3d  |  ;       PAR1 =|
00004b80  20 54 48 45 20 4e 4f 20  4f 46 20 54 45 53 54 53  | THE NO OF TESTS|
00004b90  0d 30 30 31 38 39 20 20  20 20 20 20 20 20 20 20  |.00189          |
00004ba0  20 20 20 20 20 20 20 3b  20 20 20 20 20 20 20 50  |       ;       P|
00004bb0  41 52 32 20 3d 20 4c 4f  43 41 54 49 4f 4e 20 4f  |AR2 = LOCATION O|
00004bc0  46 20 46 49 4c 54 45 52  20 43 52 49 54 45 52 49  |F FILTER CRITERI|
00004bd0  41 0d 30 30 31 39 30 20  20 20 20 20 20 20 20 20  |A.00190         |
00004be0  20 20 20 20 20 20 20 20  3b 20 20 20 20 20 20 20  |        ;       |
00004bf0  57 48 45 4e 20 54 48 49  53 20 4d 41 43 52 4f 20  |WHEN THIS MACRO |
00004c00  49 53 20 55 53 45 44 2c  20 43 45 52 54 41 49 4e  |IS USED, CERTAIN|
00004c10  20 4c 41 42 45 4c 49 4e  47 0d 30 30 31 39 31 20  | LABELING.00191 |
00004c20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004c30  3b 20 20 20 20 20 20 20  43 4f 4e 56 45 4e 54 49  |;       CONVENTI|
00004c40  4f 4e 53 20 4d 55 53 54  20 42 45 20 55 53 45 44  |ONS MUST BE USED|
00004c50  0d 30 30 31 39 32 20 20  20 20 20 20 20 20 20 20  |.00192          |
00004c60  20 20 20 20 20 20 20 3b  20 20 20 20 20 20 20 54  |       ;       T|
00004c70  53 54 45 4e 44 20 3d 20  54 45 53 54 20 45 4e 44  |STEND = TEST END|
00004c80  0d 30 30 31 39 33 20 20  20 20 20 20 20 20 20 20  |.00193          |
00004c90  20 20 20 20 20 20 20 3b  20 20 20 20 20 20 20 49  |       ;       I|
00004ca0  4d 53 47 20 3d 20 49 4e  49 54 49 41 4c 20 4d 53  |MSG = INITIAL MS|
00004cb0  47 20 4c 49 53 54 0d 30  30 31 39 34 20 20 20 20  |G LIST.00194    |
00004cc0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 20  |             ;  |
00004cd0  20 20 20 20 20 53 56 43  20 3d 20 4c 4f 43 41 54  |     SVC = LOCAT|
00004ce0  49 4f 4e 20 4f 46 20 53  56 43 20 42 59 54 45 0d  |ION OF SVC BYTE.|
00004cf0  30 30 31 39 35 20 20 20  20 20 20 20 20 20 20 20  |00195           |
00004d00  20 20 20 20 20 20 3b 20  20 20 20 20 20 20 53 54  |      ;       ST|
00004d10  48 44 58 58 20 3d 20 53  55 42 54 45 53 54 20 48  |HDXX = SUBTEST H|
00004d20  45 41 44 45 52 20 58 58  0d 30 30 31 39 36 20 20  |EADER XX.00196  |
00004d30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00004d40  0d 30 30 31 39 37 20 20  20 20 20 20 20 20 20 20  |.00197          |
00004d50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4d  |               M|
00004d60  41 43 52 4f 20 20 54 53  54 48 44 52 0d 30 30 31  |ACRO  TSTHDR.001|
00004d70  39 38 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |98              |
00004d80  20 20 20 20 20 20 20 20  20 20 20 57 4f 52 44 20  |           WORD |
00004d90  20 20 24 0d 30 30 31 39  39 20 20 20 20 20 20 20  |  $.00199       |
00004da0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004db0  20 20 57 4f 52 44 20 20  20 54 53 54 45 4e 44 0d  |  WORD   TSTEND.|
00004dc0  30 30 32 30 30 20 20 20  20 20 20 20 20 20 20 20  |00200           |
00004dd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 42 59  |              BY|
00004de0  54 45 20 20 20 50 52 4f  4d 4e 0d 30 30 32 30 31  |TE   PROMN.00201|
00004df0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004e00  20 20 20 20 20 20 20 20  20 57 4f 52 44 20 20 20  |         WORD   |
00004e10  49 4d 53 47 0d 30 30 32  30 32 20 20 20 20 20 20  |IMSG.00202      |
00004e20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004e30  20 20 20 42 59 54 45 20  20 20 27 31 27 0d 30 30  |   BYTE   '1'.00|
00004e40  32 30 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |203             |
00004e50  20 20 20 20 20 20 20 20  20 20 20 20 57 4f 52 44  |            WORD|
00004e60  20 20 20 53 56 43 0d 30  30 32 30 34 20 20 20 20  |   SVC.00204    |
00004e70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004e80  20 20 20 20 20 49 46 20  20 20 20 20 22 27 32 27  |     IF     "'2'|
00004e90  22 3c 3e 22 22 0d 30 30  32 30 35 20 20 20 20 20  |"<>"".00205     |
00004ea0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004eb0  20 20 20 20 57 4f 52 44  20 20 20 27 32 27 0d 30  |    WORD   '2'.0|
00004ec0  30 32 30 36 20 20 20 20  20 20 20 20 20 20 20 20  |0206            |
00004ed0  20 20 20 20 20 20 20 20  20 20 20 20 20 45 4e 44  |             END|
00004ee0  49 46 0d 30 30 32 30 37  20 20 20 20 20 20 20 20  |IF.00207        |
00004ef0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004f00  20 49 46 20 20 20 20 20  22 27 32 27 22 3d 22 22  | IF     "'2'"=""|
00004f10  0d 30 30 32 30 38 20 20  20 20 20 20 20 20 20 20  |.00208          |
00004f20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 57  |               W|
00004f30  4f 52 44 20 20 20 30 0d  30 30 32 30 39 20 20 20  |ORD   0.00209   |
00004f40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004f50  20 20 20 20 20 20 45 4e  44 49 46 0d 30 30 32 31  |      ENDIF.0021|
00004f60  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00004f70  20 20 20 20 20 20 20 20  20 20 53 45 54 4e 20 20  |          SETN  |
00004f80  20 31 0d 30 30 32 31 31  20 20 20 20 20 20 20 20  | 1.00211        |
00004f90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00004fa0  20 52 45 50 45 41 54 20  5a 20 3c 3d 20 27 31 27  | REPEAT Z <= '1'|
00004fb0  0d 30 30 32 31 32 20 20  20 20 20 20 20 20 20 20  |.00212          |
00004fc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 57  |               W|
00004fd0  4f 52 44 20 20 20 53 54  48 44 27 4e 27 0d 30 30  |ORD   STHD'N'.00|
00004fe0  32 31 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |213             |
00004ff0  20 20 20 20 20 20 20 20  20 20 20 20 49 4e 43 4e  |            INCN|
00005000  0d 30 30 32 31 34 20 20  20 20 20 20 20 20 20 20  |.00214          |
00005010  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 45  |               E|
00005020  4e 44 52 0d 30 30 32 31  35 20 20 20 20 20 20 20  |NDR.00215       |
00005030  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005040  20 20 45 4e 44 4d 0d 0c  54 65 6b 74 72 6f 6e 69  |  ENDM..Tektroni|
00005050  78 20 20 20 20 20 20 4d  36 38 30 30 20 41 53 4d  |x      M6800 ASM|
00005060  20 56 33 2e 33 20 20 55  53 45 20 43 4f 4d 4d 2d  | V3.3  USE COMM-|
00005070  52 41 4d 2d 30 35 20 44  49 41 47 20 50 41 52 54  |RAM-05 DIAG PART|
00005080  20 b3 20 20 20 20 50 61  67 65 20 20 20 20 20 37  | .    Page     7|
00005090  0d 55 53 41 20 53 59 53  54 45 4d 20 49 4e 54 45  |.USA SYSTEM INTE|
000050a0  52 46 41 43 45 20 45 51  55 41 54 45 53 20 41 4e  |RFACE EQUATES AN|
000050b0  44 20 4d 41 43 52 4f d3  0d 0d 30 30 32 31 37 20  |D MACRO...00217 |
000050c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000050d0  3b 20 20 4d 41 43 52 4f  20 53 42 54 48 44 52 20  |;  MACRO SBTHDR |
000050e0  28 53 55 42 20 54 45 53  54 20 48 45 41 44 45 52  |(SUB TEST HEADER|
000050f0  29 0d 30 30 32 31 38 20  20 20 20 20 20 20 20 20  |).00218         |
00005100  20 20 20 20 20 20 20 20  3b 0d 30 30 32 31 39 20  |        ;.00219 |
00005110  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005120  3b 20 20 20 20 20 20 20  54 48 49 53 20 4d 41 43  |;       THIS MAC|
00005130  52 4f 20 47 45 4e 45 52  41 54 45 53 20 41 20 53  |RO GENERATES A S|
00005140  55 42 54 45 53 54 20 48  45 41 44 45 52 20 42 4c  |UBTEST HEADER BL|
00005150  4f 43 4b 0d 30 30 32 32  30 20 20 20 20 20 20 20  |OCK.00220       |
00005160  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 32 32  |          ;.0022|
00005170  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
00005180  20 20 3b 20 20 20 43 41  4c 4c 49 4e 47 20 53 45  |  ;   CALLING SE|
00005190  51 55 45 4e 43 45 0d 30  30 32 32 32 20 20 20 20  |QUENCE.00222    |
000051a0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 20  |             ;  |
000051b0  20 20 20 20 20 53 42 54  48 44 52 20 20 50 41 52  |     SBTHDR  PAR|
000051c0  31 2c 50 41 52 32 2c 50  41 52 33 2c 50 41 52 34  |1,PAR2,PAR3,PAR4|
000051d0  2c 50 41 52 35 0d 30 30  32 32 33 20 20 20 20 20  |,PAR5.00223     |
000051e0  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  |            ;   |
000051f0  20 20 20 20 49 4e 50 55  54 20 41 52 47 55 4d 45  |    INPUT ARGUME|
00005200  4e 54 53 20 41 52 45 20  0d 30 30 32 32 34 20 20  |NTS ARE .00224  |
00005210  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00005220  20 20 20 20 20 20 20 50  41 52 31 20 3d 20 32 20  |       PAR1 = 2 |
00005230  44 49 47 49 54 20 44 45  43 49 4d 41 4c 20 4e 55  |DIGIT DECIMAL NU|
00005240  4d 42 45 52 20 3d 20 54  48 45 20 53 55 42 54 45  |MBER = THE SUBTE|
00005250  53 54 20 4e 4f 0d 30 30  32 32 35 20 20 20 20 20  |ST NO.00225     |
00005260  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  |            ;   |
00005270  20 20 20 20 50 41 52 32  20 3d 20 46 55 4e 43 54  |    PAR2 = FUNCT|
00005280  49 4f 4e 53 20 53 50 45  43 49 46 49 45 44 20 41  |IONS SPECIFIED A|
00005290  4e 44 20 4d 41 50 20 28  42 59 54 45 20 32 29 0d  |ND MAP (BYTE 2).|
000052a0  30 30 32 32 36 20 20 20  20 20 20 20 20 20 20 20  |00226           |
000052b0  20 20 20 20 20 20 3b 20  20 20 20 20 20 20 50 41  |      ;       PA|
000052c0  52 33 20 3d 20 4c 4f 43  41 54 49 4f 4e 20 4f 46  |R3 = LOCATION OF|
000052d0  20 46 49 4c 54 45 52 20  43 52 49 54 45 52 49 41  | FILTER CRITERIA|
000052e0  20 49 46 20 41 4e 59 0d  30 30 32 32 37 20 20 20  | IF ANY.00227   |
000052f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00005300  20 20 20 20 20 20 50 41  52 34 20 3d 20 43 4c 4f  |      PAR4 = CLO|
00005310  43 4b 20 53 54 4f 50 20  43 4f 55 4e 54 20 46 4f  |CK STOP COUNT FO|
00005320  52 20 53 54 4f 50 20 4f  4e 20 43 4f 55 4e 54 20  |R STOP ON COUNT |
00005330  4f 50 54 49 4f 4e 20 28  42 59 54 45 20 35 2b 36  |OPTION (BYTE 5+6|
00005340  29 0d 30 30 32 32 38 20  20 20 20 20 20 20 20 20  |).00228         |
00005350  20 20 20 20 20 20 20 20  3b 20 20 20 20 20 20 20  |        ;       |
00005360  50 41 52 35 20 3d 20 4d  41 58 20 54 49 4d 45 20  |PAR5 = MAX TIME |
00005370  46 4f 52 20 53 49 47 4e  41 54 55 52 45 53 20 28  |FOR SIGNATURES (|
00005380  42 59 54 45 20 31 33 29  0d 30 30 32 32 39 20 20  |BYTE 13).00229  |
00005390  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
000053a0  0d 30 30 32 33 30 20 20  20 20 20 20 20 20 20 20  |.00230          |
000053b0  20 20 20 20 20 20 20 3b  20 20 20 20 20 57 48 45  |       ;     WHE|
000053c0  4e 20 54 48 49 53 20 4d  41 43 52 4f 20 49 53 20  |N THIS MACRO IS |
000053d0  55 53 45 44 2c 20 43 45  52 54 41 49 4e 20 4c 41  |USED, CERTAIN LA|
000053e0  42 45 4c 49 4e 47 0d 30  30 32 33 31 20 20 20 20  |BELING.00231    |
000053f0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 20  |             ;  |
00005400  20 20 20 43 4f 4e 56 45  4e 54 49 4f 4e 53 20 4d  |   CONVENTIONS M|
00005410  55 53 54 20 42 45 20 55  53 45 44 0d 30 30 32 33  |UST BE USED.0023|
00005420  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
00005430  20 20 3b 20 20 20 57 48  45 52 45 20 50 41 52 31  |  ;   WHERE PAR1|
00005440  20 3d 20 58 58 2c 20 50  52 4f 47 52 41 4d 20 4c  | = XX, PROGRAM L|
00005450  41 42 45 4c 53 20 41 52  45 20 41 53 20 46 4f 4c  |ABELS ARE AS FOL|
00005460  4c 4f 57 53 0d 30 30 32  33 33 20 20 20 20 20 20  |LOWS.00233      |
00005470  20 20 20 20 20 20 20 20  20 20 20 3b 20 20 20 20  |           ;    |
00005480  20 20 20 53 54 48 44 58  58 20 3d 20 53 55 42 20  |   STHDXX = SUB |
00005490  54 45 53 54 20 48 45 41  44 45 52 0d 30 30 32 33  |TEST HEADER.0023|
000054a0  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
000054b0  20 20 3b 20 20 20 20 20  20 20 53 54 53 54 58 58  |  ;       STSTXX|
000054c0  20 3d 20 53 55 42 20 54  45 53 54 20 53 54 41 52  | = SUB TEST STAR|
000054d0  54 0d 30 30 32 33 35 20  20 20 20 20 20 20 20 20  |T.00235         |
000054e0  20 20 20 20 20 20 20 20  3b 20 20 20 20 20 20 20  |        ;       |
000054f0  53 47 53 54 58 58 20 3d  20 53 49 47 4e 41 54 55  |SGSTXX = SIGNATU|
00005500  52 45 20 53 54 41 52 54  0d 30 30 32 33 36 20 20  |RE START.00236  |
00005510  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00005520  20 20 20 20 20 20 20 53  47 4e 44 58 58 20 3d 20  |       SGNDXX = |
00005530  53 49 47 4e 41 54 55 52  45 20 45 4e 44 0d 30 30  |SIGNATURE END.00|
00005540  32 33 37 20 20 20 20 20  20 20 20 20 20 20 20 20  |237             |
00005550  20 20 20 20 3b 20 20 20  20 20 20 20 53 47 52 53  |    ;       SGRS|
00005560  58 58 20 3d 20 53 49 47  4e 41 54 55 52 45 20 52  |XX = SIGNATURE R|
00005570  45 53 54 41 52 54 0d 30  30 32 33 38 20 20 20 20  |ESTART.00238    |
00005580  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
00005590  30 32 33 39 20 20 20 20  20 20 20 20 20 20 20 20  |0239            |
000055a0  20 20 20 20 20 3b 20 20  20 49 46 20 50 41 52 32  |     ;   IF PAR2|
000055b0  20 49 53 20 4e 55 4c 4c  2c 20 41 20 54 48 52 45  | IS NULL, A THRE|
000055c0  45 20 42 59 54 45 20 53  55 42 54 45 53 54 20 48  |E BYTE SUBTEST H|
000055d0  45 41 44 45 52 0d 30 30  32 34 30 20 20 20 20 20  |EADER.00240     |
000055e0  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  |            ;   |
000055f0  20 20 20 20 57 49 4c 4c  20 42 45 20 47 45 4e 45  |    WILL BE GENE|
00005600  52 41 54 45 44 20 28 4e  4f 20 53 49 47 4e 41 54  |RATED (NO SIGNAT|
00005610  55 52 45 20 4f 50 54 49  4f 4e 53 29 0d 30 30 32  |URE OPTIONS).002|
00005620  34 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |41              |
00005630  20 20 20 3b 20 20 20 49  46 20 50 41 52 33 20 49  |   ;   IF PAR3 I|
00005640  53 20 4e 55 4c 4c 2c 20  4e 4f 20 46 49 4c 54 45  |S NULL, NO FILTE|
00005650  52 20 43 52 49 54 45 52  49 41 20 57 49 4c 4c 20  |R CRITERIA WILL |
00005660  42 45 20 49 4e 44 49 43  41 54 45 44 0d 30 30 32  |BE INDICATED.002|
00005670  34 32 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |42              |
00005680  20 20 20 3b 20 20 20 49  46 20 50 41 52 34 20 49  |   ;   IF PAR4 I|
00005690  53 20 4e 55 4c 4c 2c 20  43 4c 4f 43 4b 20 53 54  |S NULL, CLOCK ST|
000056a0  4f 50 20 43 4f 55 4e 54  20 57 49 4c 4c 20 42 45  |OP COUNT WILL BE|
000056b0  20 30 0d 30 30 32 34 33  20 20 20 20 20 20 20 20  | 0.00243        |
000056c0  20 20 20 20 20 20 20 20  20 3b 20 20 20 49 46 20  |         ;   IF |
000056d0  50 41 52 35 20 49 53 20  4e 55 4c 4c 2c 20 54 4d  |PAR5 IS NULL, TM|
000056e0  41 58 20 57 49 4c 4c 20  42 45 20 53 45 54 20 3d  |AX WILL BE SET =|
000056f0  20 54 4d 4f 44 45 46 0d  30 30 32 34 34 20 20 20  | TMODEF.00244   |
00005700  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
00005710  30 30 32 34 35 20 20 20  20 20 20 20 20 20 20 20  |00245           |
00005720  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4d 41  |              MA|
00005730  43 52 4f 20 20 53 42 54  48 44 52 0d 30 30 32 34  |CRO  SBTHDR.0024|
00005740  36 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |6               |
00005750  20 20 53 54 48 44 27 31  27 20 45 51 55 20 20 20  |  STHD'1' EQU   |
00005760  20 24 0d 30 30 32 34 37  20 20 20 20 20 20 20 20  | $.00247        |
00005770  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005780  20 57 4f 52 44 20 20 20  53 54 53 54 27 31 27 0d  | WORD   STST'1'.|
00005790  30 30 32 34 38 20 20 20  20 20 20 20 20 20 20 20  |00248           |
000057a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 49 46  |              IF|
000057b0  20 20 20 20 20 22 27 32  27 22 3d 22 22 0d 30 30  |     "'2'"="".00|
000057c0  32 34 39 20 20 20 20 20  20 20 20 20 20 20 20 20  |249             |
000057d0  20 20 20 20 20 20 20 20  20 20 20 20 42 59 54 45  |            BYTE|
000057e0  20 20 20 30 0d 30 30 32  35 30 20 20 20 20 20 20  |   0.00250      |
000057f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005800  20 20 20 57 4f 52 44 20  20 20 30 0d 30 30 32 35  |   WORD   0.0025|
00005810  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
00005820  20 20 20 20 20 20 20 20  20 20 45 58 49 54 4d 0d  |          EXITM.|
00005830  30 30 32 35 32 20 20 20  20 20 20 20 20 20 20 20  |00252           |
00005840  20 20 20 20 20 20 20 20  20 20 20 20 20 20 45 4e  |              EN|
00005850  44 49 46 0d 30 30 32 35  33 20 20 20 20 20 20 20  |DIF.00253       |
00005860  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005870  20 20 42 59 54 45 20 20  20 27 32 27 0d 30 30 32  |  BYTE   '2'.002|
00005880  35 34 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |54              |
00005890  20 20 20 20 20 20 20 20  20 20 20 49 46 20 20 20  |           IF   |
000058a0  20 20 22 27 33 27 22 3c  3e 22 22 0d 30 30 32 35  |  "'3'"<>"".0025|
000058b0  35 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |5               |
000058c0  20 20 20 20 20 20 20 20  20 20 57 4f 52 44 20 20  |          WORD  |
000058d0  20 27 33 27 0d 30 30 32  35 36 20 20 20 20 20 20  | '3'.00256      |
000058e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000058f0  20 20 20 45 4e 44 49 46  0d 30 30 32 35 37 20 20  |   ENDIF.00257  |
00005900  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005910  20 20 20 20 20 20 20 49  46 20 20 20 20 20 22 27  |       IF     "'|
00005920  33 27 22 3d 22 22 0d 30  30 32 35 38 20 20 20 20  |3'"="".00258    |
00005930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005940  20 20 20 20 20 57 4f 52  44 20 20 20 30 0d 30 30  |     WORD   0.00|
00005950  32 35 39 20 20 20 20 20  20 20 20 20 20 20 20 20  |259             |
00005960  20 20 20 20 20 20 20 20  20 20 20 20 45 4e 44 49  |            ENDI|
00005970  46 0d 30 30 32 36 30 20  20 20 20 20 20 20 20 20  |F.00260         |
00005980  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005990  49 46 20 20 20 20 20 28  27 32 27 29 26 28 30 32  |IF     ('2')&(02|
000059a0  48 29 3d 30 0d 30 30 32  36 31 20 20 20 20 20 20  |H)=0.00261      |
000059b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000059c0  20 20 20 45 58 49 54 4d  0d 30 30 32 36 32 20 20  |   EXITM.00262  |
000059d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000059e0  20 20 20 20 20 20 20 45  4e 44 49 46 0d 30 30 32  |       ENDIF.002|
000059f0  36 33 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |63              |
00005a00  20 20 20 20 20 20 20 20  20 20 20 49 46 20 20 20  |           IF   |
00005a10  20 20 22 27 34 27 22 3d  22 22 0d 30 30 32 36 34  |  "'4'"="".00264|
00005a20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005a30  20 20 20 20 20 20 20 20  20 57 4f 52 44 20 20 20  |         WORD   |
00005a40  30 0d 30 30 32 36 35 20  20 20 20 20 20 20 20 20  |0.00265         |
00005a50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005a60  45 4e 44 49 46 0d 30 30  32 36 36 20 20 20 20 20  |ENDIF.00266     |
00005a70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005a80  20 20 20 20 49 46 20 20  20 20 20 22 27 34 27 22  |    IF     "'4'"|
00005a90  3c 3e 22 22 0d 30 30 32  36 37 20 20 20 20 20 20  |<>"".00267      |
00005aa0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005ab0  20 20 20 57 4f 52 44 20  20 20 27 34 27 0d 30 30  |   WORD   '4'.00|
00005ac0  32 36 38 20 20 20 20 20  20 20 20 20 20 20 20 20  |268             |
00005ad0  20 20 20 20 20 20 20 20  20 20 20 20 45 4e 44 49  |            ENDI|
00005ae0  46 0d 0c 54 65 6b 74 72  6f 6e 69 78 20 20 20 20  |F..Tektronix    |
00005af0  20 20 4d 36 38 30 30 20  41 53 4d 20 56 33 2e 33  |  M6800 ASM V3.3|
00005b00  20 20 55 53 45 20 43 4f  4d 4d 2d 52 41 4d 2d 30  |  USE COMM-RAM-0|
00005b10  35 20 44 49 41 47 20 50  41 52 54 20 b3 20 20 20  |5 DIAG PART .   |
00005b20  20 50 61 67 65 20 20 20  20 20 38 0d 55 53 41 20  | Page     8.USA |
00005b30  53 59 53 54 45 4d 20 49  4e 54 45 52 46 41 43 45  |SYSTEM INTERFACE|
00005b40  20 45 51 55 41 54 45 53  20 41 4e 44 20 4d 41 43  | EQUATES AND MAC|
00005b50  52 4f d3 0d 0d 30 30 32  36 39 20 20 20 20 20 20  |RO...00269      |
00005b60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005b70  20 20 20 57 4f 52 44 20  20 20 53 47 53 54 27 31  |   WORD   SGST'1|
00005b80  27 0d 30 30 32 37 30 20  20 20 20 20 20 20 20 20  |'.00270         |
00005b90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005ba0  57 4f 52 44 20 20 20 53  47 4e 44 27 31 27 0d 30  |WORD   SGND'1'.0|
00005bb0  30 32 37 31 20 20 20 20  20 20 20 20 20 20 20 20  |0271            |
00005bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 57 4f 52  |             WOR|
00005bd0  44 20 20 20 53 47 52 53  27 31 27 0d 30 30 32 37  |D   SGRS'1'.0027|
00005be0  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
00005bf0  20 20 20 20 20 20 20 20  20 20 49 46 20 20 20 20  |          IF    |
00005c00  20 22 27 35 27 22 3d 22  22 0d 30 30 32 37 33 20  | "'5'"="".00273 |
00005c10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005c20  20 20 20 20 20 20 20 20  57 4f 52 44 20 20 20 54  |        WORD   T|
00005c30  4d 4f 44 45 46 0d 30 30  32 37 34 20 20 20 20 20  |MODEF.00274     |
00005c40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005c50  20 20 20 20 45 4e 44 49  46 0d 30 30 32 37 35 20  |    ENDIF.00275 |
00005c60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005c70  20 20 20 20 20 20 20 20  49 46 20 20 20 20 20 22  |        IF     "|
00005c80  27 35 27 22 3c 3e 22 22  0d 30 30 32 37 36 20 20  |'5'"<>"".00276  |
00005c90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005ca0  20 20 20 20 20 20 20 57  4f 52 44 20 20 20 27 35  |       WORD   '5|
00005cb0  27 0d 30 30 32 37 37 20  20 20 20 20 20 20 20 20  |'.00277         |
00005cc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005cd0  45 4e 44 49 46 0d 30 30  32 37 38 20 20 20 20 20  |ENDIF.00278     |
00005ce0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005cf0  20 20 20 20 45 4e 44 4d  0d 0c 54 65 6b 74 72 6f  |    ENDM..Tektro|
00005d00  6e 69 78 20 20 20 20 20  20 4d 36 38 30 30 20 41  |nix      M6800 A|
00005d10  53 4d 20 56 33 2e 33 20  20 55 53 45 20 43 4f 4d  |SM V3.3  USE COM|
00005d20  4d 2d 52 41 4d 2d 30 35  20 44 49 41 47 20 50 41  |M-RAM-05 DIAG PA|
00005d30  52 54 20 b3 20 20 20 20  50 61 67 65 20 20 20 20  |RT .    Page    |
00005d40  20 39 0d 55 53 41 20 53  59 53 54 45 4d 20 49 4e  | 9.USA SYSTEM IN|
00005d50  54 45 52 46 41 43 45 20  45 51 55 41 54 45 53 20  |TERFACE EQUATES |
00005d60  41 4e 44 20 4d 41 43 52  4f d3 0d 0d 30 30 32 38  |AND MACRO...0028|
00005d70  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00005d80  20 20 3b 0d 30 30 32 38  31 20 20 20 20 20 20 20  |  ;.00281       |
00005d90  20 20 20 20 20 20 20 20  20 20 3b 20 20 4d 41 43  |          ;  MAC|
00005da0  52 4f 20 46 55 4e 43 20  28 46 55 4e 43 54 49 4f  |RO FUNC (FUNCTIO|
00005db0  4e 29 0d 30 30 32 38 32  20 20 20 20 20 20 20 20  |N).00282        |
00005dc0  20 20 20 20 20 20 20 20  20 3b 0d 30 30 32 38 33  |         ;.00283|
00005dd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005de0  20 3b 20 20 20 20 20 20  20 54 48 49 53 20 4d 41  | ;       THIS MA|
00005df0  43 52 4f 20 47 45 4e 45  52 41 54 45 53 20 41 20  |CRO GENERATES A |
00005e00  46 55 4e 43 54 49 4f 4e  20 53 45 54 55 50 20 42  |FUNCTION SETUP B|
00005e10  4c 4f 43 4b 0d 30 30 32  38 34 20 20 20 20 20 20  |LOCK.00284      |
00005e20  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 30 32  |           ;.002|
00005e30  38 35 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |85              |
00005e40  20 20 20 3b 20 20 20 20  20 43 41 4c 4c 49 4e 47  |   ;     CALLING|
00005e50  20 53 45 51 55 45 4e 43  45 0d 30 30 32 38 36 20  | SEQUENCE.00286 |
00005e60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005e70  3b 20 20 20 20 20 20 20  46 55 4e 43 20 20 20 50  |;       FUNC   P|
00005e80  41 52 31 2c 50 41 52 32  2c 50 41 52 33 2c 50 41  |AR1,PAR2,PAR3,PA|
00005e90  52 34 2c 50 41 52 35 2c  50 41 52 36 0d 30 30 32  |R4,PAR5,PAR6.002|
00005ea0  38 37 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |87              |
00005eb0  20 20 20 3b 20 20 20 20  20 20 20 49 4e 50 55 54  |   ;       INPUT|
00005ec0  20 41 52 47 55 4d 45 4e  54 53 20 41 52 45 0d 30  | ARGUMENTS ARE.0|
00005ed0  30 32 38 38 20 20 20 20  20 20 20 20 20 20 20 20  |0288            |
00005ee0  20 20 20 20 20 3b 20 20  20 20 20 20 20 50 41 52  |     ;       PAR|
00005ef0  31 20 3d 20 46 55 4e 43  54 49 4f 4e 20 56 41 4c  |1 = FUNCTION VAL|
00005f00  55 45 0d 30 30 32 38 39  20 20 20 20 20 20 20 20  |UE.00289        |
00005f10  20 20 20 20 20 20 20 20  20 3b 20 20 20 20 20 20  |         ;      |
00005f20  20 50 41 52 32 20 3d 20  53 54 41 52 54 20 44 49  | PAR2 = START DI|
00005f30  47 49 54 0d 30 30 32 39  30 20 20 20 20 20 20 20  |GIT.00290       |
00005f40  20 20 20 20 20 20 20 20  20 20 3b 20 20 20 20 20  |          ;     |
00005f50  20 20 50 41 52 33 20 3d  20 53 54 4f 50 20 44 49  |  PAR3 = STOP DI|
00005f60  47 49 54 0d 30 30 32 39  31 20 20 20 20 20 20 20  |GIT.00291       |
00005f70  20 20 20 20 20 20 20 20  20 20 3b 20 20 20 20 20  |          ;     |
00005f80  20 20 50 41 52 34 20 3d  20 43 4c 4f 43 4b 2f 44  |  PAR4 = CLOCK/D|
00005f90  41 54 41 20 44 49 47 49  54 0d 30 30 32 39 32 20  |ATA DIGIT.00292 |
00005fa0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00005fb0  3b 20 20 20 20 20 20 20  50 41 52 35 20 3d 20 44  |;       PAR5 = D|
00005fc0  49 53 50 4c 41 59 20 44  49 47 49 54 0d 30 30 32  |ISPLAY DIGIT.002|
00005fd0  39 33 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |93              |
00005fe0  20 20 20 3b 20 20 20 20  20 20 20 50 41 52 36 20  |   ;       PAR6 |
00005ff0  3d 20 54 45 52 4d 49 4e  41 54 4f 52 0d 30 30 32  |= TERMINATOR.002|
00006000  39 34 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |94              |
00006010  20 20 20 3b 20 20 20 20  20 20 20 49 46 20 50 41  |   ;       IF PA|
00006020  52 36 20 3d 20 45 4e 44  46 4e 43 2c 20 41 20 54  |R6 = ENDFNC, A T|
00006030  45 52 4d 49 4e 41 54 4f  52 20 57 49 4c 4c 0d 30  |ERMINATOR WILL.0|
00006040  30 32 39 35 20 20 20 20  20 20 20 20 20 20 20 20  |0295            |
00006050  20 20 20 20 20 3b 20 20  20 20 20 20 20 42 45 20  |     ;       BE |
00006060  50 4c 41 43 45 44 20 41  54 20 54 48 45 20 45 4e  |PLACED AT THE EN|
00006070  44 20 4f 46 20 54 48 45  20 46 55 4e 43 54 49 4f  |D OF THE FUNCTIO|
00006080  4e 20 42 4c 4f 43 4b 0d  30 30 32 39 36 20 20 20  |N BLOCK.00296   |
00006090  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
000060a0  30 30 32 39 37 20 20 20  20 20 20 20 20 20 20 20  |00297           |
000060b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4d 41  |              MA|
000060c0  43 52 4f 20 20 46 55 4e  43 0d 30 30 32 39 38 20  |CRO  FUNC.00298 |
000060d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000060e0  20 20 20 20 20 20 20 20  42 59 54 45 20 20 20 27  |        BYTE   '|
000060f0  31 27 0d 30 30 32 39 39  20 20 20 20 20 20 20 20  |1'.00299        |
00006100  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006110  20 42 59 54 45 20 20 20  27 32 27 0d 30 30 33 30  | BYTE   '2'.0030|
00006120  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00006130  20 20 20 20 20 20 20 20  20 20 42 59 54 45 20 20  |          BYTE  |
00006140  20 27 33 27 0d 30 30 33  30 31 20 20 20 20 20 20  | '3'.00301      |
00006150  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006160  20 20 20 42 59 54 45 20  20 20 27 34 27 0d 30 30  |   BYTE   '4'.00|
00006170  33 30 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |302             |
00006180  20 20 20 20 20 20 20 20  20 20 20 20 42 59 54 45  |            BYTE|
00006190  20 20 20 27 35 27 0d 30  30 33 30 33 20 20 20 20  |   '5'.00303    |
000061a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000061b0  20 20 20 20 20 49 46 20  20 20 20 20 22 27 36 27  |     IF     "'6'|
000061c0  22 3c 3e 22 45 4e 44 46  4e 43 22 0d 30 30 33 30  |"<>"ENDFNC".0030|
000061d0  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
000061e0  20 20 20 20 20 20 20 20  20 20 45 58 49 54 4d 0d  |          EXITM.|
000061f0  30 30 33 30 35 20 20 20  20 20 20 20 20 20 20 20  |00305           |
00006200  20 20 20 20 20 20 20 20  20 20 20 20 20 20 45 4e  |              EN|
00006210  44 49 46 0d 30 30 33 30  36 20 20 20 20 20 20 20  |DIF.00306       |
00006220  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006230  20 20 42 59 54 45 20 20  20 30 0d 30 30 33 30 37  |  BYTE   0.00307|
00006240  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006250  20 20 20 20 20 20 20 20  20 45 4e 44 4d 0d 30 30  |         ENDM.00|
00006260  33 30 38 20 20 20 20 20  20 20 20 20 20 20 20 20  |308             |
00006270  20 20 20 20 3b 0d 30 30  33 30 39 20 20 20 20 20  |    ;.00309     |
00006280  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 4d 41  |            ; MA|
00006290  43 52 4f 20 46 4c 54 52  20 28 46 49 4c 54 45 52  |CRO FLTR (FILTER|
000062a0  29 0d 30 30 33 31 30 20  20 20 20 20 20 20 20 20  |).00310         |
000062b0  20 20 20 20 20 20 20 20  3b 0d 30 30 33 31 31 20  |        ;.00311 |
000062c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000062d0  3b 20 20 20 20 20 20 20  54 48 49 53 20 4d 41 43  |;       THIS MAC|
000062e0  52 4f 20 47 45 4e 45 52  41 54 45 53 20 41 20 46  |RO GENERATES A F|
000062f0  49 4c 54 45 52 20 43 52  49 54 45 52 49 41 20 42  |ILTER CRITERIA B|
00006300  4c 4f 43 4b 0d 30 30 33  31 32 20 20 20 20 20 20  |LOCK.00312      |
00006310  20 20 20 20 20 20 20 20  20 20 20 3b 20 20 20 20  |           ;    |
00006320  20 20 20 49 4e 50 55 54  20 41 52 47 55 4d 45 4e  |   INPUT ARGUMEN|
00006330  54 20 49 53 20 54 48 45  20 46 49 4c 54 45 52 20  |T IS THE FILTER |
00006340  44 49 47 49 54 20 56 41  4c 55 45 0d 30 30 33 31  |DIGIT VALUE.0031|
00006350  33 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |3               |
00006360  20 20 3b 20 20 20 20 43  41 4c 4c 49 4e 47 20 53  |  ;    CALLING S|
00006370  45 51 55 45 4e 43 45 0d  30 30 33 31 34 20 20 20  |EQUENCE.00314   |
00006380  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 4c  |              ;L|
00006390  41 42 45 4c 20 20 46 4c  54 52 20 20 20 50 41 52  |ABEL  FLTR   PAR|
000063a0  0d 30 30 33 31 35 20 20  20 20 20 20 20 20 20 20  |.00315          |
000063b0  20 20 20 20 20 20 20 3b  0d 30 30 33 31 36 20 20  |       ;.00316  |
000063c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000063d0  20 20 20 20 20 20 20 4d  41 43 52 4f 20 20 46 4c  |       MACRO  FL|
000063e0  54 52 0d 30 30 33 31 37  20 20 20 20 20 20 20 20  |TR.00317        |
000063f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006400  20 42 59 54 45 20 20 20  46 49 4c 54 45 52 0d 30  | BYTE   FILTER.0|
00006410  30 33 31 38 20 20 20 20  20 20 20 20 20 20 20 20  |0318            |
00006420  20 20 20 20 20 20 20 20  20 20 20 20 20 42 59 54  |             BYT|
00006430  45 20 20 20 27 31 27 0d  30 30 33 31 39 20 20 20  |E   '1'.00319   |
00006440  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006450  20 20 20 20 20 20 42 59  54 45 20 20 20 2d 31 0d  |      BYTE   -1.|
00006460  30 30 33 32 30 20 20 20  20 20 20 20 20 20 20 20  |00320           |
00006470  20 20 20 20 20 20 20 20  20 20 20 20 20 20 45 4e  |              EN|
00006480  44 4d 0d 0c 54 65 6b 74  72 6f 6e 69 78 20 20 20  |DM..Tektronix   |
00006490  20 20 20 4d 36 38 30 30  20 41 53 4d 20 56 33 2e  |   M6800 ASM V3.|
000064a0  33 20 20 55 53 45 20 43  4f 4d 4d 2d 52 41 4d 2d  |3  USE COMM-RAM-|
000064b0  30 35 20 44 49 41 47 20  50 41 52 54 20 b3 20 20  |05 DIAG PART .  |
000064c0  20 20 50 61 67 65 20 20  20 20 31 30 0d 55 53 41  |  Page    10.USA|
000064d0  20 53 59 53 54 45 4d 20  49 4e 54 45 52 46 41 43  | SYSTEM INTERFAC|
000064e0  45 20 45 51 55 41 54 45  53 20 41 4e 44 20 4d 41  |E EQUATES AND MA|
000064f0  43 52 4f d3 0d 0d 30 30  33 32 32 20 20 20 20 20  |CRO...00322     |
00006500  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
00006510  33 32 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |323             |
00006520  20 20 20 20 3b 20 20 4d  41 43 52 4f 20 4d 53 47  |    ;  MACRO MSG|
00006530  20 28 4d 45 53 53 41 47  45 29 0d 30 30 33 32 34  | (MESSAGE).00324|
00006540  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006550  20 3b 0d 30 30 33 32 35  20 20 20 20 20 20 20 20  | ;.00325        |
00006560  20 20 20 20 20 20 20 20  20 3b 20 20 20 20 20 20  |         ;      |
00006570  20 54 48 49 53 20 4d 41  43 52 4f 20 47 45 4e 45  | THIS MACRO GENE|
00006580  52 41 54 45 53 20 41 20  4d 45 53 53 41 47 45 20  |RATES A MESSAGE |
00006590  4c 49 53 54 20 41 4e 44  0d 30 30 33 32 36 20 20  |LIST AND.00326  |
000065a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
000065b0  20 20 20 20 20 20 20 54  45 58 54 20 42 4c 4f 43  |       TEXT BLOC|
000065c0  4b 53 20 46 4f 52 20 41  20 4d 45 53 53 41 47 45  |KS FOR A MESSAGE|
000065d0  20 4f 46 20 54 48 45 20  47 45 4e 45 52 41 4c 0d  | OF THE GENERAL.|
000065e0  30 30 33 32 37 20 20 20  20 20 20 20 20 20 20 20  |00327           |
000065f0  20 20 20 20 20 20 3b 20  20 20 20 20 20 20 46 4f  |      ;       FO|
00006600  52 4d 20 20 22 54 45 58  54 22 3c 48 45 58 20 44  |RM  "TEXT"<HEX D|
00006610  41 54 41 3e 22 54 45 58  54 22 3c 48 45 58 20 44  |ATA>"TEXT"<HEX D|
00006620  41 54 41 3e 20 45 54 43  0d 30 30 33 32 38 20 20  |ATA> ETC.00328  |
00006630  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00006640  0d 30 30 33 32 39 20 20  20 20 20 20 20 20 20 20  |.00329          |
00006650  20 20 20 20 20 20 20 3b  20 20 20 43 41 4c 4c 49  |       ;   CALLI|
00006660  4e 47 20 53 45 51 55 45  4e 43 45 0d 30 30 33 33  |NG SEQUENCE.0033|
00006670  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00006680  20 20 3b 4c 41 42 45 4c  20 20 4d 53 47 20 20 20  |  ;LABEL  MSG   |
00006690  20 50 41 52 31 41 2c 50  41 52 31 42 2c 50 41 52  | PAR1A,PAR1B,PAR|
000066a0  31 43 2c 50 41 52 32 41  2c 50 41 52 32 42 2c 50  |1C,PAR2A,PAR2B,P|
000066b0  41 52 32 43 2c 20 20 45  54 43 0d 30 30 33 33 31  |AR2C,  ETC.00331|
000066c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000066d0  20 3b 20 20 20 20 20 20  20 49 4e 50 55 54 20 41  | ;       INPUT A|
000066e0  52 47 55 4d 45 4e 54 53  20 41 52 45 20 41 53 20  |RGUMENTS ARE AS |
000066f0  46 4f 4c 4c 4f 57 53 0d  30 30 33 33 32 20 20 20  |FOLLOWS.00332   |
00006700  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00006710  20 20 20 20 20 20 50 41  52 58 41 20 3d 20 41 53  |      PARXA = AS|
00006720  43 49 49 20 54 45 58 54  0d 30 30 33 33 33 20 20  |CII TEXT.00333  |
00006730  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00006740  20 20 20 20 20 20 20 50  41 52 58 42 20 3d 20 23  |       PARXB = #|
00006750  20 43 48 41 52 20 48 45  58 20 44 41 54 41 0d 30  | CHAR HEX DATA.0|
00006760  30 33 33 34 20 20 20 20  20 20 20 20 20 20 20 20  |0334            |
00006770  20 20 20 20 20 3b 20 20  20 20 20 20 20 50 41 52  |     ;       PAR|
00006780  58 43 20 3d 20 4c 4f 43  41 54 49 4f 4e 20 4f 46  |XC = LOCATION OF|
00006790  20 48 45 58 20 44 41 54  41 0d 30 30 33 33 35 20  | HEX DATA.00335 |
000067a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000067b0  3b 20 20 20 20 20 20 20  49 46 20 54 48 45 20 46  |;       IF THE F|
000067c0  49 52 53 54 20 43 48 41  52 41 43 54 45 52 20 4f  |IRST CHARACTER O|
000067d0  46 20 54 48 45 20 41 52  47 55 4d 45 4e 54 20 50  |F THE ARGUMENT P|
000067e0  41 52 58 43 20 3d 20 51  2c 0d 30 30 33 33 36 20  |ARXC = Q,.00336 |
000067f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006800  3b 20 20 20 20 20 20 20  50 41 52 58 43 20 57 49  |;       PARXC WI|
00006810  4c 4c 20 42 45 20 53 50  45 43 49 46 49 45 44 20  |LL BE SPECIFIED |
00006820  41 53 20 41 4e 20 49 4e  50 55 54 20 41 4c 4c 4f  |AS AN INPUT ALLO|
00006830  57 45 44 20 46 49 45 4c  44 0d 30 30 33 33 37 20  |WED FIELD.00337 |
00006840  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006850  3b 20 20 20 20 20 20 20  4d 45 53 53 41 47 45 20  |;       MESSAGE |
00006860  4c 49 53 54 53 20 4d 41  59 20 42 45 20 4c 49 4e  |LISTS MAY BE LIN|
00006870  4b 45 44 20 42 59 20 50  4c 41 43 49 4e 47 0d 30  |KED BY PLACING.0|
00006880  30 33 33 38 20 20 20 20  20 20 20 20 20 20 20 20  |0338            |
00006890  20 20 20 20 20 3b 20 20  20 20 20 20 20 22 4c 49  |     ;       "LI|
000068a0  4e 4b 54 4f 22 20 49 4e  20 50 4c 41 43 45 20 4f  |NKTO" IN PLACE O|
000068b0  46 20 50 41 52 58 41 20  4f 52 20 50 41 52 58 42  |F PARXA OR PARXB|
000068c0  0d 30 30 33 33 39 20 20  20 20 20 20 20 20 20 20  |.00339          |
000068d0  20 20 20 20 20 20 20 3b  20 20 20 20 20 20 20 54  |       ;       T|
000068e0  48 45 20 41 52 47 55 4d  45 4e 54 20 46 4f 4c 4c  |HE ARGUMENT FOLL|
000068f0  4f 57 49 4e 47 20 22 4c  49 4e 4b 54 4f 22 20 4d  |OWING "LINKTO" M|
00006900  55 53 54 20 42 45 20 54  48 45 0d 30 30 33 34 30  |UST BE THE.00340|
00006910  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006920  20 3b 20 20 20 20 20 20  20 4c 4f 43 41 54 49 4f  | ;       LOCATIO|
00006930  4e 20 4f 46 20 54 48 45  20 4e 45 57 20 4d 45 53  |N OF THE NEW MES|
00006940  53 41 47 45 20 4c 49 53  54 0d 30 30 33 34 31 20  |SAGE LIST.00341 |
00006950  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006960  3b 20 20 20 20 20 20 20  4d 45 53 53 41 47 45 20  |;       MESSAGE |
00006970  4c 49 53 54 53 20 41 52  45 20 52 45 46 45 52 41  |LISTS ARE REFERA|
00006980  4e 43 45 44 20 42 59 20  22 4c 41 42 45 4c 22 0d  |NCED BY "LABEL".|
00006990  30 30 33 34 32 20 20 20  20 20 20 20 20 20 20 20  |00342           |
000069a0  20 20 20 20 20 20 3b 0d  30 30 33 34 33 20 20 20  |      ;.00343   |
000069b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000069c0  20 20 20 20 20 20 4d 41  43 52 4f 20 20 4d 53 47  |      MACRO  MSG|
000069d0  0d 30 30 33 34 34 20 20  20 20 20 20 20 20 20 20  |.00344          |
000069e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 53  |               S|
000069f0  45 54 4e 20 20 20 31 0d  30 30 33 34 35 20 20 20  |ETN   1.00345   |
00006a00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 41 31  |              A1|
00006a10  20 20 20 20 20 20 53 45  54 20 20 20 20 31 0d 30  |      SET    1.0|
00006a20  30 33 34 36 20 20 20 20  20 20 20 20 20 20 20 20  |0346            |
00006a30  20 20 20 20 20 20 20 20  20 20 20 20 20 52 45 50  |             REP|
00006a40  45 41 54 20 22 27 41 31  27 22 3c 3e 22 22 0d 30  |EAT "'A1'"<>"".0|
00006a50  30 33 34 37 20 20 20 20  20 20 20 20 20 20 20 20  |0347            |
00006a60  20 20 20 20 20 41 32 20  20 20 20 20 20 53 45 54  |     A2      SET|
00006a70  20 20 20 20 41 31 2b 31  0d 30 30 33 34 38 20 20  |    A1+1.00348  |
00006a80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 41  |               A|
00006a90  33 20 20 20 20 20 20 53  45 54 20 20 20 20 41 31  |3      SET    A1|
00006aa0  2b 32 0d 30 30 33 34 39  20 20 20 20 20 20 20 20  |+2.00349        |
00006ab0  20 20 20 20 20 20 20 20  20 41 34 20 20 20 20 20  |         A4     |
00006ac0  20 53 45 54 20 20 20 20  41 31 2b 33 0d 30 30 33  | SET    A1+3.003|
00006ad0  35 30 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |50              |
00006ae0  20 20 20 20 20 20 20 20  20 20 20 49 46 20 20 20  |           IF   |
00006af0  20 20 22 27 41 31 27 22  3d 22 4c 49 4e 4b 54 4f  |  "'A1'"="LINKTO|
00006b00  22 0d 30 30 33 35 31 20  20 20 20 20 20 20 20 20  |".00351         |
00006b10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006b20  4d 53 47 42 4c 4b 20 4c  49 4e 4b 2c 30 2c 27 41  |MSGBLK LINK,0,'A|
00006b30  32 27 0d 30 30 33 35 32  20 20 20 20 20 20 20 20  |2'.00352        |
00006b40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006b50  20 45 4e 44 49 46 0d 30  30 33 35 33 20 20 20 20  | ENDIF.00353    |
00006b60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006b70  20 20 20 20 20 49 46 20  20 20 20 20 22 27 41 31  |     IF     "'A1|
00006b80  27 22 3c 3e 22 4c 49 4e  4b 54 4f 22 0d 30 30 33  |'"<>"LINKTO".003|
00006b90  35 34 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |54              |
00006ba0  20 20 20 20 20 20 20 20  20 20 20 49 46 20 20 20  |           IF   |
00006bb0  20 20 22 27 41 32 27 22  3d 22 22 0d 30 30 33 35  |  "'A2'"="".0035|
00006bc0  35 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |5               |
00006bd0  20 20 20 20 20 20 20 20  20 20 4d 53 47 42 4c 4b  |          MSGBLK|
00006be0  20 4c 41 53 54 45 2c 41  4c 27 40 27 27 4e 27 2c  | LASTE,AL'@''N',|
00006bf0  41 53 27 40 27 27 4e 27  0d 30 30 33 35 36 20 20  |AS'@''N'.00356  |
00006c00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006c10  20 20 20 20 20 20 20 45  4e 44 49 46 0d 30 30 33  |       ENDIF.003|
00006c20  35 37 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |57              |
00006c30  20 20 20 20 20 20 20 20  20 20 20 49 46 20 20 20  |           IF   |
00006c40  20 20 22 27 41 32 27 22  3c 3e 22 22 0d 30 30 33  |  "'A2'"<>"".003|
00006c50  35 38 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |58              |
00006c60  20 20 20 20 20 20 20 20  20 20 20 4d 53 47 42 4c  |           MSGBL|
00006c70  4b 20 30 2c 41 4c 27 40  27 27 4e 27 2c 41 53 27  |K 0,AL'@''N',AS'|
00006c80  40 27 27 4e 27 0d 30 30  33 35 39 20 20 20 20 20  |@''N'.00359     |
00006c90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006ca0  20 20 20 20 49 46 20 20  20 20 20 22 27 41 32 27  |    IF     "'A2'|
00006cb0  22 3d 22 4c 49 4e 4b 54  4f 22 0d 30 30 33 36 30  |"="LINKTO".00360|
00006cc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006cd0  20 20 20 20 20 20 20 20  20 4d 53 47 42 4c 4b 20  |         MSGBLK |
00006ce0  4c 49 4e 4b 2c 30 2c 27  41 33 27 0d 30 30 33 36  |LINK,0,'A3'.0036|
00006cf0  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
00006d00  20 20 20 20 20 20 20 20  20 20 45 4e 44 49 46 0d  |          ENDIF.|
00006d10  30 30 33 36 32 20 20 20  20 20 20 20 20 20 20 20  |00362           |
00006d20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 49 46  |              IF|
00006d30  20 20 20 20 20 22 27 41  32 27 22 3c 3e 22 4c 49  |     "'A2'"<>"LI|
00006d40  4e 4b 54 4f 22 0d 30 30  33 36 33 20 20 20 20 20  |NKTO".00363     |
00006d50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006d60  20 20 20 20 49 46 20 20  20 20 20 22 27 41 34 27  |    IF     "'A4'|
00006d70  22 3d 22 22 0d 30 30 33  36 34 20 20 20 20 20 20  |"="".00364      |
00006d80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006d90  20 20 20 49 46 20 20 20  20 20 53 45 47 28 22 27  |   IF     SEG("'|
00006da0  41 33 27 22 2c 31 2c 31  29 3c 3e 22 51 22 0d 30  |A3'",1,1)<>"Q".0|
00006db0  30 33 36 35 20 20 20 20  20 20 20 20 20 20 20 20  |0365            |
00006dc0  20 20 20 20 20 20 20 20  20 20 20 20 20 4d 53 47  |             MSG|
00006dd0  42 4c 4b 20 48 45 58 2b  4c 41 53 54 45 2c 27 41  |BLK HEX+LASTE,'A|
00006de0  32 27 2c 27 41 33 27 0d  30 30 33 36 36 20 20 20  |2','A3'.00366   |
00006df0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006e00  20 20 20 20 20 20 45 4e  44 49 46 0d 30 30 33 36  |      ENDIF.0036|
00006e10  37 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |7               |
00006e20  20 20 20 20 20 20 20 20  20 20 49 46 20 20 20 20  |          IF    |
00006e30  20 53 45 47 28 22 27 41  33 27 22 2c 31 2c 31 29  | SEG("'A3'",1,1)|
00006e40  3d 22 51 22 0d 30 30 33  36 38 20 20 20 20 20 20  |="Q".00368      |
00006e50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006e60  20 20 20 4d 53 47 42 4c  4b 20 48 45 58 2b 49 4e  |   MSGBLK HEX+IN|
00006e70  50 55 54 2b 4c 41 53 54  45 2c 27 41 32 27 2c 27  |PUT+LASTE,'A2','|
00006e80  41 33 27 0d 30 30 33 36  39 20 20 20 20 20 20 20  |A3'.00369       |
00006e90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006ea0  20 20 45 4e 44 49 46 0d  30 30 33 37 30 20 20 20  |  ENDIF.00370   |
00006eb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006ec0  20 20 20 20 20 20 45 4e  44 49 46 0d 30 30 33 37  |      ENDIF.0037|
00006ed0  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
00006ee0  20 20 20 20 20 20 20 20  20 20 49 46 20 20 20 20  |          IF    |
00006ef0  20 22 27 41 34 27 22 3c  3e 22 22 0d 30 30 33 37  | "'A4'"<>"".0037|
00006f00  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
00006f10  20 20 20 20 20 20 20 20  20 20 49 46 20 20 20 20  |          IF    |
00006f20  20 53 45 47 28 22 27 41  33 27 22 2c 31 2c 31 29  | SEG("'A3'",1,1)|
00006f30  3c 3e 22 51 22 0d 30 30  33 37 33 20 20 20 20 20  |<>"Q".00373     |
00006f40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00006f50  20 20 20 20 4d 53 47 42  4c 4b 20 48 45 58 2c 27  |    MSGBLK HEX,'|
00006f60  41 32 27 2c 27 41 33 27  0d 0c 54 65 6b 74 72 6f  |A2','A3'..Tektro|
00006f70  6e 69 78 20 20 20 20 20  20 4d 36 38 30 30 20 41  |nix      M6800 A|
00006f80  53 4d 20 56 33 2e 33 20  20 55 53 45 20 43 4f 4d  |SM V3.3  USE COM|
00006f90  4d 2d 52 41 4d 2d 30 35  20 44 49 41 47 20 50 41  |M-RAM-05 DIAG PA|
00006fa0  52 54 20 b3 20 20 20 20  50 61 67 65 20 20 20 20  |RT .    Page    |
00006fb0  31 31 0d 55 53 41 20 53  59 53 54 45 4d 20 49 4e  |11.USA SYSTEM IN|
00006fc0  54 45 52 46 41 43 45 20  45 51 55 41 54 45 53 20  |TERFACE EQUATES |
00006fd0  41 4e 44 20 4d 41 43 52  4f d3 0d 0d 30 30 33 37  |AND MACRO...0037|
00006fe0  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
00006ff0  20 20 20 20 20 20 20 20  20 20 45 4e 44 49 46 0d  |          ENDIF.|
00007000  30 30 33 37 35 20 20 20  20 20 20 20 20 20 20 20  |00375           |
00007010  20 20 20 20 20 20 20 20  20 20 20 20 20 20 49 46  |              IF|
00007020  20 20 20 20 20 53 45 47  28 22 27 41 33 27 22 2c  |     SEG("'A3'",|
00007030  31 2c 31 29 3d 22 51 22  0d 30 30 33 37 36 20 20  |1,1)="Q".00376  |
00007040  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00007050  20 20 20 20 20 20 20 4d  53 47 42 4c 4b 20 48 45  |       MSGBLK HE|
00007060  58 2b 49 4e 50 55 54 0d  30 30 33 37 37 20 20 20  |X+INPUT.00377   |
00007070  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00007080  20 20 20 20 20 20 45 4e  44 49 46 0d 30 30 33 37  |      ENDIF.0037|
00007090  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
000070a0  20 20 20 20 20 20 20 20  20 20 45 4e 44 49 46 0d  |          ENDIF.|
000070b0  30 30 33 37 39 20 20 20  20 20 20 20 20 20 20 20  |00379           |
000070c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 45 4e  |              EN|
000070d0  44 49 46 0d 30 30 33 38  30 20 20 20 20 20 20 20  |DIF.00380       |
000070e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000070f0  20 20 49 4e 43 4e 0d 30  30 33 38 31 20 20 20 20  |  INCN.00381    |
00007100  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00007110  20 20 20 20 20 45 4e 44  49 46 0d 30 30 33 38 32  |     ENDIF.00382|
00007120  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00007130  20 20 20 20 20 20 20 20  20 45 4e 44 49 46 0d 30  |         ENDIF.0|
00007140  30 33 38 33 20 20 20 20  20 20 20 20 20 20 20 20  |0383            |
00007150  20 20 20 20 20 41 31 20  20 20 20 20 20 53 45 54  |     A1      SET|
00007160  20 20 20 20 41 34 0d 30  30 33 38 34 20 20 20 20  |    A4.00384    |
00007170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00007180  20 20 20 20 20 45 4e 44  52 0d 30 30 33 38 35 20  |     ENDR.00385 |
00007190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000071a0  41 31 20 20 20 20 20 20  53 45 54 20 20 20 20 31  |A1      SET    1|
000071b0  0d 30 30 33 38 36 20 20  20 20 20 20 20 20 20 20  |.00386          |
000071c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 53  |               S|
000071d0  45 54 4e 20 20 20 31 0d  30 30 33 38 37 20 20 20  |ETN   1.00387   |
000071e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000071f0  20 20 20 20 20 20 52 45  50 45 41 54 20 22 27 41  |      REPEAT "'A|
00007200  31 27 22 3c 3e 22 22 0d  30 30 33 38 38 20 20 20  |1'"<>"".00388   |
00007210  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00007220  20 20 20 20 20 20 49 46  20 20 20 20 20 22 27 41  |      IF     "'A|
00007230  31 27 22 3d 22 4c 49 4e  4b 54 4f 22 0d 30 30 33  |1'"="LINKTO".003|
00007240  38 39 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |89              |
00007250  20 20 20 20 20 20 20 20  20 20 20 45 58 49 54 4d  |           EXITM|
00007260  0d 30 30 33 39 30 20 20  20 20 20 20 20 20 20 20  |.00390          |
00007270  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 45  |               E|
00007280  4e 44 49 46 0d 30 30 33  39 31 20 20 20 20 20 20  |NDIF.00391      |
00007290  20 20 20 20 20 20 20 20  20 20 20 41 53 27 40 27  |           AS'@'|
000072a0  27 4e 27 20 41 53 43 49  49 20 22 27 41 31 27 22  |'N' ASCII "'A1'"|
000072b0  0d 30 30 33 39 32 20 20  20 20 20 20 20 20 20 20  |.00392          |
000072c0  20 20 20 20 20 20 20 41  4c 27 40 27 27 4e 27 20  |       AL'@''N' |
000072d0  45 51 55 20 20 20 24 2d  41 53 27 40 27 27 4e 27  |EQU   $-AS'@''N'|
000072e0  0d 30 30 33 39 33 20 20  20 20 20 20 20 20 20 20  |.00393          |
000072f0  20 20 20 20 20 20 20 41  31 20 20 20 20 20 20 53  |       A1      S|
00007300  45 54 20 20 20 20 41 31  2b 33 0d 30 30 33 39 34  |ET    A1+3.00394|
00007310  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00007320  20 20 20 20 20 20 20 20  20 49 4e 43 4e 0d 30 30  |         INCN.00|
00007330  33 39 35 20 20 20 20 20  20 20 20 20 20 20 20 20  |395             |
00007340  20 20 20 20 20 20 20 20  20 20 20 20 45 4e 44 52  |            ENDR|
00007350  0d 30 30 33 39 36 20 20  20 20 20 20 20 20 20 20  |.00396          |
00007360  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 45  |               E|
00007370  4e 44 4d 0d 0c 54 65 6b  74 72 6f 6e 69 78 20 20  |NDM..Tektronix  |
00007380  20 20 20 20 4d 36 38 30  30 20 41 53 4d 20 56 33  |    M6800 ASM V3|
00007390  2e 33 20 20 55 53 45 20  43 4f 4d 4d 2d 52 41 4d  |.3  USE COMM-RAM|
000073a0  2d 30 35 20 44 49 41 47  20 50 41 52 54 20 b3 20  |-05 DIAG PART . |
000073b0  20 20 20 50 61 67 65 20  20 20 20 31 32 0d 48 41  |   Page    12.HA|
000073c0  52 44 57 41 52 45 20 44  45 46 49 4e 49 54 49 4f  |RDWARE DEFINITIO|
000073d0  4e 53 20 46 4f 52 20 53  55 54 20 28 55 53 41 29  |NS FOR SUT (USA)|
000073e0  20 41 4e 44 20 47 4c 4f  42 41 4c 20 44 42 41 53  | AND GLOBAL DBAS|
000073f0  c5 0d 0d 30 30 33 39 39  20 20 20 20 20 20 20 20  |...00399        |
00007400  20 20 20 20 20 20 20 20  20 3b 0d 30 30 34 30 30  |         ;.00400|
00007410  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00007420  20 3b 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ;**************|
00007430  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00007460  2a 2a 2a 2a 2a 0d 30 30  34 30 31 20 20 20 20 20  |*****.00401     |
00007470  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
00007480  34 30 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |402             |
00007490  20 20 20 20 3b 20 20 20  49 4f 20 45 51 55 41 54  |    ;   IO EQUAT|
000074a0  45 53 20 41 53 53 4f 43  49 41 54 45 44 20 57 49  |ES ASSOCIATED WI|
000074b0  54 48 20 48 41 52 44 57  41 52 45 20 4f 4e 20 54  |TH HARDWARE ON T|
000074c0  48 45 0d 30 30 34 30 33  20 20 20 20 20 20 20 20  |HE.00403        |
000074d0  20 20 20 20 20 20 20 20  20 3b 20 20 20 43 4f 4e  |         ;   CON|
000074e0  54 52 4f 4c 20 50 52 4f  43 45 53 53 4f 52 20 43  |TROL PROCESSOR C|
000074f0  41 52 44 0d 30 30 34 30  34 20 20 20 20 20 20 20  |ARD.00404       |
00007500  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 34 30  |          ;.0040|
00007510  35 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |5               |
00007520  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
00007530  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00007560  2a 2a 2a 2a 2a 2a 0d 30  30 34 30 36 20 20 20 20  |******.00406    |
00007570  20 20 32 30 30 30 20 20  20 20 20 20 20 50 54 49  |  2000       PTI|
00007580  56 45 43 20 20 20 45 51  55 20 20 20 32 30 30 30  |VEC   EQU   2000|
00007590  48 20 20 20 20 20 20 20  20 20 20 20 3b 49 4e 54  |H           ;INT|
000075a0  45 52 52 55 50 54 20 49  44 0d 30 30 34 30 37 20  |ERRUPT ID.00407 |
000075b0  20 20 20 20 20 32 30 30  31 20 20 20 20 20 20 20  |     2001       |
000075c0  50 54 4f 50 54 20 20 20  20 45 51 55 20 20 20 32  |PTOPT    EQU   2|
000075d0  30 30 31 48 20 20 20 20  20 20 20 20 20 20 20 3b  |001H           ;|
000075e0  4f 50 54 49 4f 4e 53 20  50 52 45 53 45 4e 54 0d  |OPTIONS PRESENT.|
000075f0  30 30 34 30 38 20 20 20  20 20 20 20 20 20 20 20  |00408           |
00007600  20 20 20 20 20 20 3b 20  20 20 20 20 20 20 20 20  |      ;         |
00007610  20 20 20 20 20 2e 2e 2e  2e 20 2e 2e 2e 31 20 20  |     .... ...1  |
00007620  20 20 20 20 20 53 49 47  4e 41 54 55 52 45 0d 30  |     SIGNATURE.0|
00007630  30 34 30 39 20 20 20 20  20 20 20 20 20 20 20 20  |0409            |
00007640  20 20 20 20 20 3b 20 20  20 20 20 20 20 20 20 20  |     ;          |
00007650  20 20 20 20 2e 2e 2e 2e  20 2e 2e 31 2e 20 20 20  |    .... ..1.   |
00007660  20 20 20 20 52 54 50 41  0d 30 30 34 31 30 20 20  |    RTPA.00410  |
00007670  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00007680  20 20 20 20 20 20 20 20  20 20 20 20 20 20 2e 2e  |              ..|
00007690  2e 2e 20 2e 31 2e 2e 20  20 20 20 20 20 20 52 53  |.. .1..       RS|
000076a0  2d 32 33 32 20 31 0d 30  30 34 31 31 20 20 20 20  |-232 1.00411    |
000076b0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 20  |             ;  |
000076c0  20 20 20 20 20 20 20 20  20 20 20 20 2e 2e 2e 2e  |            ....|
000076d0  20 31 2e 2e 2e 20 20 20  20 20 20 20 52 53 2d 32  | 1...       RS-2|
000076e0  33 32 20 32 0d 30 30 34  31 32 20 20 20 20 20 20  |32 2.00412      |
000076f0  20 20 20 20 20 20 20 20  20 20 20 3b 20 20 20 20  |           ;    |
00007700  20 20 20 20 20 20 20 20  20 20 2e 2e 2e 31 20 2e  |          ...1 .|
00007710  2e 2e 2e 20 20 20 20 20  20 20 4f 50 54 49 4f 4e  |...       OPTION|
00007720  20 4d 45 4d 4f 52 59 0d  30 30 34 31 33 20 20 20  | MEMORY.00413   |
00007730  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00007740  20 20 20 20 20 20 20 20  20 20 20 20 20 2e 2e 31  |             ..1|
00007750  2e 20 2e 2e 2e 2e 20 20  20 20 20 20 20 30 3d 32  |. ....       0=2|
00007760  37 30 38 20 31 3d 32 37  31 36 0d 30 30 34 31 34  |708 1=2716.00414|
00007770  20 20 20 20 20 20 32 30  30 32 20 20 20 20 20 20  |      2002      |
00007780  20 50 54 4b 45 59 20 20  20 20 45 51 55 20 20 20  | PTKEY    EQU   |
00007790  32 30 30 32 48 20 20 20  20 20 20 20 20 20 20 20  |2002H           |
000077a0  3b 4b 45 59 20 53 54 52  49 4b 45 20 49 4e 50 55  |;KEY STRIKE INPU|
000077b0  54 0d 30 30 34 31 35 20  20 20 20 20 20 32 30 30  |T.00415      200|
000077c0  33 20 20 20 20 20 20 20  50 54 49 4e 44 31 20 20  |3       PTIND1  |
000077d0  20 45 51 55 20 20 20 32  30 30 33 48 20 20 20 20  | EQU   2003H    |
000077e0  20 20 20 20 20 20 20 3b  49 4e 44 49 43 41 54 4f  |       ;INDICATO|
000077f0  52 53 0d 30 30 34 31 36  20 20 20 20 20 20 32 30  |RS.00416      20|
00007800  30 34 20 20 20 20 20 20  20 50 54 42 53 20 20 20  |04       PTBS   |
00007810  20 20 45 51 55 20 20 20  32 30 30 34 48 20 20 20  |  EQU   2004H   |
00007820  20 20 20 20 20 20 20 20  3b 45 4d 55 4c 41 54 4f  |        ;EMULATO|
00007830  52 20 4d 45 4d 4f 52 59  20 42 41 4e 4b 20 53 45  |R MEMORY BANK SE|
00007840  4c 45 43 54 0d 30 30 34  31 37 20 20 20 20 20 20  |LECT.00417      |
00007850  20 20 20 20 20 20 20 20  20 20 20 3b 20 20 20 20  |           ;    |
00007860  20 20 20 20 20 20 20 20  20 20 2e 2e 2e 2e 20 31  |          .... 1|
00007870  2e 2e 2e 20 20 20 20 20  20 20 4d 41 50 20 4d 4f  |...       MAP MO|
00007880  44 45 20 31 3d 41 4c 4c  20 43 4f 4d 4d 4f 4e 20  |DE 1=ALL COMMON |
00007890  4d 45 4d 4f 52 59 0d 30  30 34 31 38 20 20 20 20  |MEMORY.00418    |
000078a0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 20 20  |             ;  |
000078b0  20 20 20 20 20 20 20 20  20 20 20 20 2e 2e 2e 2e  |            ....|
000078c0  20 2e 58 2e 2e 20 20 20  20 20 20 20 23 50 52 4f  | .X..       #PRO|
000078d0  4d 53 20 30 3d 31 20 31  3d 32 0d 30 30 34 31 39  |MS 0=1 1=2.00419|
000078e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000078f0  20 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | ;              |
00007900  2e 2e 2e 2e 20 2e 2e 31  31 20 20 20 20 20 20 20  |.... ..11       |
00007910  42 41 4e 4b 20 53 45 4c  45 43 54 0d 30 30 34 32  |BANK SELECT.0042|
00007920  30 20 20 20 20 20 20 32  30 30 35 20 20 20 20 20  |0      2005     |
00007930  20 20 50 54 52 52 53 20  20 20 20 45 51 55 20 20  |  PTRRS    EQU  |
00007940  20 32 30 30 35 48 20 20  20 20 20 20 20 20 20 20  | 2005H          |
00007950  20 3b 52 41 4d 20 52 4f  4d 20 45 4e 41 42 4c 45  | ;RAM ROM ENABLE|
00007960  0d 30 30 34 32 31 20 20  20 20 20 20 20 20 20 20  |.00421          |
00007970  20 20 20 20 20 20 20 3b  20 20 20 20 20 20 20 20  |       ;        |
00007980  20 20 20 20 20 20 31 31  31 31 20 31 31 2e 2e 20  |      1111 11.. |
00007990  20 20 20 20 20 20 42 41  53 45 20 41 44 44 52 45  |      BASE ADDRE|
000079a0  53 53 0d 30 30 34 32 32  20 20 20 20 20 20 20 20  |SS.00422        |
000079b0  20 20 20 20 20 20 20 20  20 3b 20 20 20 20 20 20  |         ;      |
000079c0  20 20 20 20 20 20 20 20  2e 2e 2e 2e 20 2e 2e 31  |        .... ..1|
000079d0  2e 20 20 20 20 20 20 20  50 52 4f 4d 20 45 4e 41  |.       PROM ENA|
000079e0  42 4c 45 0d 30 30 34 32  33 20 20 20 20 20 20 20  |BLE.00423       |
000079f0  20 20 20 20 20 20 20 20  20 20 3b 20 20 20 20 20  |          ;     |
00007a00  20 20 20 20 20 20 20 20  20 2e 2e 2e 2e 20 2e 2e  |         .... ..|
00007a10  2e 31 20 20 20 20 20 20  20 52 41 4d 20 45 4e 41  |.1       RAM ENA|
00007a20  42 4c 45 0d 30 30 34 32  34 20 20 20 20 20 20 32  |BLE.00424      2|
00007a30  30 30 36 20 20 20 20 20  20 20 50 54 54 49 4d 20  |006       PTTIM |
00007a40  20 20 20 45 51 55 20 20  20 32 30 30 36 48 20 20  |   EQU   2006H  |
00007a50  20 20 20 20 20 20 20 20  20 3b 54 49 4d 45 52 20  |         ;TIMER |
00007a60  43 4f 55 4e 54 20 31 3d  31 30 30 20 4d 49 4c 4c  |COUNT 1=100 MILL|
00007a70  53 0d 30 30 34 32 35 20  20 20 20 20 20 20 20 20  |S.00425         |
00007a80  20 20 20 20 20 20 20 20  3b 20 20 20 20 20 20 20  |        ;       |
00007a90  20 20 20 20 20 20 20 31  2e 2e 2e 20 2e 2e 2e 2e  |       1... ....|
00007aa0  20 20 20 20 20 20 20 45  4e 41 42 4c 45 0d 30 30  |       ENABLE.00|
00007ab0  34 32 36 20 20 20 20 20  20 20 20 20 20 20 20 20  |426             |
00007ac0  20 20 20 20 3b 20 20 20  20 20 20 20 20 20 20 20  |    ;           |
00007ad0  20 20 20 2e 58 58 58 20  58 58 58 58 20 20 20 20  |   .XXX XXXX    |
00007ae0  20 20 20 43 4f 55 4e 54  0d 30 30 34 32 37 20 20  |   COUNT.00427  |
00007af0  20 20 20 20 32 30 30 37  20 20 20 20 20 20 20 50  |    2007       P|
00007b00  54 49 4e 44 32 20 20 20  45 51 55 20 20 20 32 30  |TIND2   EQU   20|
00007b10  30 37 48 20 20 20 20 20  20 20 20 20 20 20 3b 49  |07H           ;I|
00007b20  4e 44 49 43 41 54 4f 52  53 0d 30 30 34 32 38 20  |NDICATORS.00428 |
00007b30  20 20 20 20 20 32 30 30  38 20 20 20 20 20 20 20  |     2008       |
00007b40  50 54 4f 50 4d 20 20 20  20 45 51 55 20 20 20 32  |PTOPM    EQU   2|
00007b50  30 30 38 48 20 20 20 20  20 20 20 20 20 20 20 3b  |008H           ;|
00007b60  4f 50 54 49 4f 4e 20 4d  45 4d 4f 52 59 20 43 4f  |OPTION MEMORY CO|
00007b70  4e 54 52 4f 4c 0d 30 30  34 32 39 20 20 20 20 20  |NTROL.00429     |
00007b80  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  |            ;   |
00007b90  20 20 20 20 20 20 20 20  20 20 20 31 31 31 31 20  |           1111 |
00007ba0  31 31 2e 2e 20 20 20 20  20 20 20 42 41 53 45 20  |11..       BASE |
00007bb0  41 44 44 52 45 53 53 0d  30 30 34 33 30 20 20 20  |ADDRESS.00430   |
00007bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00007bd0  20 20 20 20 20 20 20 20  20 20 20 20 20 2e 2e 2e  |             ...|
00007be0  2e 20 2e 2e 2e 31 20 20  20 20 20 20 20 45 4e 41  |. ...1       ENA|
00007bf0  42 4c 45 0d 30 30 34 33  31 20 20 20 20 20 20 20  |BLE.00431       |
00007c00  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 34 33  |          ;.0043|
00007c10  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
00007c20  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
00007c30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00007c60  2a 2a 2a 2a 2a 0d 30 30  34 33 33 20 20 20 20 20  |*****.00433     |
00007c70  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
00007c80  34 33 34 20 20 20 20 20  20 20 20 20 20 20 20 20  |434             |
00007c90  20 20 20 20 3b 20 20 49  4f 20 45 51 55 41 54 45  |    ;  IO EQUATE|
00007ca0  53 20 46 4f 52 20 53 49  47 41 4e 20 43 41 52 44  |S FOR SIGAN CARD|
00007cb0  0d 30 30 34 33 35 20 20  20 20 20 20 20 20 20 20  |.00435          |
00007cc0  20 20 20 20 20 20 20 3b  0d 30 30 34 33 36 20 20  |       ;.00436  |
00007cd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00007ce0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00007d20  2a 2a 0d 30 30 34 33 37  20 20 20 20 20 20 32 30  |**.00437      20|
00007d30  41 30 20 20 20 20 20 20  20 50 54 53 49 47 30 20  |A0       PTSIG0 |
00007d40  20 20 45 51 55 20 20 20  32 30 41 30 48 20 20 20  |  EQU   20A0H   |
00007d50  20 20 20 20 20 20 20 20  3b 53 49 47 41 4e 20 43  |        ;SIGAN C|
00007d60  4f 4e 54 52 4f 4c 20 4f  55 54 20 30 0d 30 30 34  |ONTROL OUT 0.004|
00007d70  33 38 20 20 20 20 20 20  32 30 41 31 20 20 20 20  |38      20A1    |
00007d80  20 20 20 50 54 53 49 47  31 20 20 20 45 51 55 20  |   PTSIG1   EQU |
00007d90  20 20 32 30 41 31 48 20  20 20 20 20 20 20 20 20  |  20A1H         |
00007da0  20 20 3b 53 49 47 41 4e  20 43 4f 4e 54 52 4f 4c  |  ;SIGAN CONTROL|
00007db0  20 4f 55 54 20 31 0d 30  30 34 33 39 20 20 20 20  | OUT 1.00439    |
00007dc0  20 20 32 30 41 32 20 20  20 20 20 20 20 50 54 53  |  20A2       PTS|
00007dd0  49 47 32 20 20 20 45 51  55 20 20 20 32 30 41 32  |IG2   EQU   20A2|
00007de0  48 20 20 20 20 20 20 20  20 20 20 20 3b 53 49 47  |H           ;SIG|
00007df0  41 4e 20 43 4f 4e 54 52  4f 4c 20 4f 55 54 20 32  |AN CONTROL OUT 2|
00007e00  2f 53 54 41 54 55 53 20  49 4e 0d 30 30 34 34 30  |/STATUS IN.00440|
00007e10  20 20 20 20 20 20 32 30  41 33 20 20 20 20 20 20  |      20A3      |
00007e20  20 50 54 53 49 47 33 20  20 20 45 51 55 20 20 20  | PTSIG3   EQU   |
00007e30  32 30 41 33 48 20 20 20  20 20 20 20 20 20 20 20  |20A3H           |
00007e40  3b 53 49 47 41 4e 20 52  45 53 45 54 20 4f 55 54  |;SIGAN RESET OUT|
00007e50  2f 4d 53 42 20 49 4e 54  45 52 56 41 4c 2b 4f 56  |/MSB INTERVAL+OV|
00007e60  46 0d 30 30 34 34 31 20  20 20 20 20 20 32 30 41  |F.00441      20A|
00007e70  34 20 20 20 20 20 20 20  50 54 53 49 47 34 20 20  |4       PTSIG4  |
00007e80  20 45 51 55 20 20 20 32  30 41 34 48 20 20 20 20  | EQU   20A4H    |
00007e90  20 20 20 20 20 20 20 3b  53 49 47 41 4e 20 4d 53  |       ;SIGAN MS|
00007ea0  42 20 43 4f 55 4e 54 20  4f 55 54 2f 4d 53 42 20  |B COUNT OUT/MSB |
00007eb0  53 49 47 20 49 4e 0d 30  30 34 34 32 20 20 20 20  |SIG IN.00442    |
00007ec0  20 20 32 30 41 35 20 20  20 20 20 20 20 50 54 53  |  20A5       PTS|
00007ed0  49 47 35 20 20 20 45 51  55 20 20 20 32 30 41 35  |IG5   EQU   20A5|
00007ee0  48 20 20 20 20 20 20 20  20 20 20 20 3b 53 49 47  |H           ;SIG|
00007ef0  41 4e 20 4c 53 42 20 43  4f 55 4e 54 20 4f 55 54  |AN LSB COUNT OUT|
00007f00  2f 4d 53 42 20 53 49 47  4e 41 54 55 52 45 20 49  |/MSB SIGNATURE I|
00007f10  4e 0d 30 30 34 34 33 20  20 20 20 20 20 32 30 41  |N.00443      20A|
00007f20  36 20 20 20 20 20 20 20  50 54 53 49 47 36 20 20  |6       PTSIG6  |
00007f30  20 45 51 55 20 20 20 32  30 41 36 48 20 20 20 20  | EQU   20A6H    |
00007f40  20 20 20 20 20 20 20 3b  53 49 47 41 4e 20 4d 53  |       ;SIGAN MS|
00007f50  42 20 53 54 4f 50 20 41  44 44 52 20 4f 55 54 2f  |B STOP ADDR OUT/|
00007f60  44 45 43 41 44 45 20 49  4e 0d 30 30 34 34 34 20  |DECADE IN.00444 |
00007f70  20 20 20 20 20 32 30 41  37 20 20 20 20 20 20 20  |     20A7       |
00007f80  50 54 53 49 47 37 20 20  20 45 51 55 20 20 20 32  |PTSIG7   EQU   2|
00007f90  30 41 37 48 20 20 20 20  20 20 20 20 20 20 20 3b  |0A7H           ;|
00007fa0  53 49 47 41 4e 20 4c 53  42 20 53 54 4f 50 20 41  |SIGAN LSB STOP A|
00007fb0  44 44 52 20 4f 55 54 2f  44 45 43 41 44 45 20 49  |DDR OUT/DECADE I|
00007fc0  4e 0d 30 30 34 34 35 20  20 20 20 20 20 32 30 41  |N.00445      20A|
00007fd0  38 20 20 20 20 20 20 20  50 54 53 49 47 38 20 20  |8       PTSIG8  |
00007fe0  20 45 51 55 20 20 20 32  30 41 38 48 20 20 20 20  | EQU   20A8H    |
00007ff0  20 20 20 20 20 20 20 3b  53 49 47 41 4e 20 44 45  |       ;SIGAN DE|
00008000  43 41 44 45 20 49 4e 0d  30 30 34 34 36 20 20 20  |CADE IN.00446   |
00008010  20 20 20 32 30 41 39 20  20 20 20 20 20 20 50 54  |   20A9       PT|
00008020  53 49 47 39 20 20 20 45  51 55 20 20 20 32 30 41  |SIG9   EQU   20A|
00008030  39 48 20 20 20 20 20 20  20 20 20 20 20 3b 53 49  |9H           ;SI|
00008040  47 41 4e 20 44 45 43 41  44 45 20 49 4e 0d 30 30  |GAN DECADE IN.00|
00008050  34 34 37 20 20 20 20 20  20 32 30 41 45 20 20 20  |447      20AE   |
00008060  20 20 20 20 50 54 53 49  47 45 20 20 20 45 51 55  |    PTSIGE   EQU|
00008070  20 20 20 32 30 41 45 48  20 20 20 20 20 20 20 20  |   20AEH        |
00008080  20 20 20 3b 53 49 47 41  4e 20 4d 53 42 20 53 54  |   ;SIGAN MSB ST|
00008090  41 52 54 20 41 44 44 52  20 4f 55 54 0d 30 30 34  |ART ADDR OUT.004|
000080a0  34 38 20 20 20 20 20 20  32 30 41 46 20 20 20 20  |48      20AF    |
000080b0  20 20 20 50 54 53 49 47  46 20 20 20 45 51 55 20  |   PTSIGF   EQU |
000080c0  20 20 32 30 41 46 48 20  20 20 20 20 20 20 20 20  |  20AFH         |
000080d0  20 20 3b 53 49 47 41 4e  20 4c 53 42 20 53 54 41  |  ;SIGAN LSB STA|
000080e0  52 54 20 41 44 44 52 20  4f 55 54 0d 0c 54 65 6b  |RT ADDR OUT..Tek|
000080f0  74 72 6f 6e 69 78 20 20  20 20 20 20 4d 36 38 30  |tronix      M680|
00008100  30 20 41 53 4d 20 56 33  2e 33 20 20 55 53 45 20  |0 ASM V3.3  USE |
00008110  43 4f 4d 4d 2d 52 41 4d  2d 30 35 20 44 49 41 47  |COMM-RAM-05 DIAG|
00008120  20 50 41 52 54 20 b3 20  20 20 20 50 61 67 65 20  | PART .    Page |
00008130  20 20 20 31 33 0d 48 41  52 44 57 41 52 45 20 44  |   13.HARDWARE D|
00008140  45 46 49 4e 49 54 49 4f  4e 53 20 46 4f 52 20 53  |EFINITIONS FOR S|
00008150  55 54 20 28 55 53 41 29  20 41 4e 44 20 47 4c 4f  |UT (USA) AND GLO|
00008160  42 41 4c 20 44 42 41 53  c5 0d 0d 30 30 34 35 30  |BAL DBAS...00450|
00008170  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00008180  20 3b 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ;**************|
00008190  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000081b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 30 30 34  |************.004|
000081c0  35 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |51              |
000081d0  20 20 20 3b 0d 30 30 34  35 32 20 20 20 20 20 20  |   ;.00452      |
000081e0  20 20 20 20 20 20 20 20  20 20 20 3b 20 20 20 44  |           ;   D|
000081f0  45 42 55 47 20 43 4f 4e  54 52 4f 4c 20 49 4f 20  |EBUG CONTROL IO |
00008200  45 51 55 41 54 45 53 0d  30 30 34 35 33 20 20 20  |EQUATES.00453   |
00008210  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
00008220  30 30 34 35 34 20 20 20  20 20 20 20 20 20 20 20  |00454           |
00008230  20 20 20 20 20 20 3b 2a  2a 2a 2a 2a 2a 2a 2a 2a  |      ;*********|
00008240  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00008270  2a 0d 30 30 34 35 35 20  20 20 20 20 20 20 20 20  |*.00455         |
00008280  20 20 20 20 20 20 20 20  3b 0d 30 30 34 35 36 20  |        ;.00456 |
00008290  20 20 20 20 20 32 30 46  38 20 20 20 20 20 20 20  |     20F8       |
000082a0  50 54 44 43 54 4c 20 20  20 45 51 55 20 20 20 32  |PTDCTL   EQU   2|
000082b0  30 46 38 48 20 20 20 20  20 20 20 20 20 20 20 3b  |0F8H           ;|
000082c0  44 45 42 55 47 20 43 4f  4e 54 52 4f 4c 0d 30 30  |DEBUG CONTROL.00|
000082d0  34 35 37 20 20 20 20 20  20 32 30 46 39 20 20 20  |457      20F9   |
000082e0  20 20 20 20 50 54 44 43  4d 44 20 20 20 45 51 55  |    PTDCMD   EQU|
000082f0  20 20 20 32 30 46 39 48  20 20 20 20 20 20 20 20  |   20F9H        |
00008300  20 20 20 3b 44 45 42 55  47 20 43 4f 4d 4d 41 4e  |   ;DEBUG COMMAN|
00008310  44 0d 30 30 34 35 38 20  20 20 20 20 20 32 30 46  |D.00458      20F|
00008320  41 20 20 20 20 20 20 20  50 54 4a 41 4c 20 20 20  |A       PTJAL   |
00008330  20 45 51 55 20 20 20 32  30 46 41 48 20 20 20 20  | EQU   20FAH    |
00008340  20 20 20 20 20 20 20 3b  46 4f 52 43 45 20 4a 55  |       ;FORCE JU|
00008350  4d 50 20 4c 4f 0d 30 30  34 35 39 20 20 20 20 20  |MP LO.00459     |
00008360  20 32 30 46 42 20 20 20  20 20 20 20 50 54 4a 41  | 20FB       PTJA|
00008370  48 20 20 20 20 45 51 55  20 20 20 32 30 46 42 48  |H    EQU   20FBH|
00008380  20 20 20 20 20 20 20 20  20 20 20 3b 46 4f 52 43  |           ;FORC|
00008390  45 20 4a 55 4d 50 20 48  49 0d 30 30 34 36 30 20  |E JUMP HI.00460 |
000083a0  20 20 20 20 20 32 30 46  43 20 20 20 20 20 20 20  |     20FC       |
000083b0  50 54 42 50 31 4c 20 20  20 45 51 55 20 20 20 32  |PTBP1L   EQU   2|
000083c0  30 46 43 48 20 20 20 20  20 20 20 20 20 20 20 3b  |0FCH           ;|
000083d0  42 52 45 41 4b 20 31 20  4f 55 54 2f 50 43 2d 4e  |BREAK 1 OUT/PC-N|
000083e0  45 58 54 20 20 20 49 4e  20 4c 4f 0d 30 30 34 36  |EXT   IN LO.0046|
000083f0  31 20 20 20 20 20 20 32  30 46 44 20 20 20 20 20  |1      20FD     |
00008400  20 20 50 54 42 50 31 48  20 20 20 45 51 55 20 20  |  PTBP1H   EQU  |
00008410  20 32 30 46 44 48 20 20  20 20 20 20 20 20 20 20  | 20FDH          |
00008420  20 3b 42 52 45 41 4b 20  31 20 4f 55 54 2f 50 43  | ;BREAK 1 OUT/PC|
00008430  2d 4e 45 58 54 20 20 20  49 4e 20 48 49 0d 30 30  |-NEXT   IN HI.00|
00008440  34 36 32 20 20 20 20 20  20 32 30 46 45 20 20 20  |462      20FE   |
00008450  20 20 20 20 50 54 42 50  32 4c 20 20 20 45 51 55  |    PTBP2L   EQU|
00008460  20 20 20 32 30 46 45 48  20 20 20 20 20 20 20 20  |   20FEH        |
00008470  20 20 20 3b 42 52 45 41  4b 20 32 20 4f 55 54 2f  |   ;BREAK 2 OUT/|
00008480  50 43 2d 4c 41 53 54 20  20 20 49 4e 20 4c 4f 0d  |PC-LAST   IN LO.|
00008490  30 30 34 36 33 20 20 20  20 20 20 32 30 46 46 20  |00463      20FF |
000084a0  20 20 20 20 20 20 50 54  42 50 32 48 20 20 20 45  |      PTBP2H   E|
000084b0  51 55 20 20 20 32 30 46  46 48 20 20 20 20 20 20  |QU   20FFH      |
000084c0  20 20 20 20 20 3b 42 52  45 41 4b 20 32 20 4f 55  |     ;BREAK 2 OU|
000084d0  54 2f 50 43 2d 4c 41 53  54 20 20 20 49 4e 20 48  |T/PC-LAST   IN H|
000084e0  49 0d 30 30 34 36 34 20  20 20 20 20 20 32 30 45  |I.00464      20E|
000084f0  31 20 20 20 20 20 20 20  50 54 38 30 38 30 20 20  |1       PT8080  |
00008500  20 45 51 55 20 20 20 32  30 45 31 48 20 20 20 20  | EQU   20E1H    |
00008510  20 20 20 20 20 20 20 3b  38 30 38 30 20 43 4f 4e  |       ;8080 CON|
00008520  54 52 4f 4c 0d 30 30 34  36 35 20 20 20 20 20 20  |TROL.00465      |
00008530  32 30 45 32 20 20 20 20  20 20 20 50 54 36 38 30  |20E2       PT680|
00008540  30 20 20 20 45 51 55 20  20 20 32 30 45 32 48 20  |0   EQU   20E2H |
00008550  20 20 20 20 20 20 20 20  20 20 3b 36 38 30 30 20  |          ;6800 |
00008560  43 4f 4e 54 52 4f 4c 0d  30 30 34 36 36 20 20 20  |CONTROL.00466   |
00008570  20 20 20 32 30 45 35 20  20 20 20 20 20 20 50 54  |   20E5       PT|
00008580  38 30 38 35 20 20 45 51  55 20 20 20 32 30 45 35  |8085  EQU   20E5|
00008590  48 20 20 20 20 20 20 20  20 20 20 20 3b 38 30 38  |H           ;808|
000085a0  35 20 43 4f 4e 54 52 4f  4c 0d 30 30 34 36 37 20  |5 CONTROL.00467 |
000085b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000085c0  3b 0d 30 30 34 36 38 20  20 20 20 20 20 20 20 20  |;.00468         |
000085d0  20 20 20 20 20 20 20 20  3b 2a 2a 2a 2a 2a 2a 2a  |        ;*******|
000085e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00008610  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 30 30 34  |************.004|
00008620  36 39 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |69              |
00008630  20 20 20 3b 20 20 43 4f  4d 2d 52 41 4d 20 43 41  |   ;  COM-RAM CA|
00008640  52 44 20 49 4f 20 44 45  46 49 4e 49 54 49 4f 4e  |RD IO DEFINITION|
00008650  53 0d 30 30 34 37 30 20  20 20 20 20 20 20 20 20  |S.00470         |
00008660  20 20 20 20 20 20 20 20  3b 2a 2a 2a 2a 2a 2a 2a  |        ;*******|
00008670  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000086a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 30 30 34  |************.004|
000086b0  37 31 20 20 20 20 20 20  32 30 31 38 20 20 20 20  |71      2018    |
000086c0  20 20 20 43 52 42 53 41  44 20 20 45 51 55 20 20  |   CRBSAD  EQU  |
000086d0  20 20 32 30 31 38 48 20  20 20 20 20 20 20 20 20  |  2018H         |
000086e0  20 3b 52 41 4d 20 42 41  53 45 20 41 44 44 52 20  | ;RAM BASE ADDR |
000086f0  41 4e 44 20 42 4c 4f 43  4b 20 53 49 5a 45 20 20  |AND BLOCK SIZE  |
00008700  28 57 52 49 54 45 29 0d  30 30 34 37 32 20 20 20  |(WRITE).00472   |
00008710  20 20 20 32 30 31 39 20  20 20 20 20 20 20 43 52  |   2019       CR|
00008720  50 52 45 4e 20 20 45 51  55 20 20 20 20 32 30 31  |PREN  EQU    201|
00008730  39 48 20 20 20 20 20 20  20 20 20 20 3b 52 41 4d  |9H          ;RAM|
00008740  20 45 4e 41 42 4c 45 20  20 28 57 52 49 54 45 29  | ENABLE  (WRITE)|
00008750  0d 30 30 34 37 33 20 20  20 20 20 20 32 30 31 39  |.00473      2019|
00008760  20 20 20 20 20 20 20 43  52 50 52 43 46 20 20 45  |       CRPRCF  E|
00008770  51 55 20 20 20 20 32 30  31 39 48 20 20 20 20 20  |QU    2019H     |
00008780  20 20 20 20 20 3b 50 52  4f 4d 20 43 4f 4e 46 49  |     ;PROM CONFI|
00008790  47 55 52 41 54 49 4f 4e  20 28 52 45 41 44 29 0d  |GURATION (READ).|
000087a0  30 30 34 37 34 20 20 20  20 20 20 32 30 31 41 20  |00474      201A |
000087b0  20 20 20 20 20 20 43 52  42 41 55 44 20 20 45 51  |      CRBAUD  EQ|
000087c0  55 20 20 20 20 32 30 31  41 48 20 20 20 20 20 20  |U    201AH      |
000087d0  20 20 20 20 3b 42 41 55  44 20 52 41 54 45 20 43  |    ;BAUD RATE C|
000087e0  4f 4e 54 52 4f 4c 20 28  57 52 49 54 45 29 0d 30  |ONTROL (WRITE).0|
000087f0  30 34 37 35 20 20 20 20  20 20 32 30 31 41 20 20  |0475      201A  |
00008800  20 20 20 20 20 43 52 4f  50 53 57 20 20 45 51 55  |     CROPSW  EQU|
00008810  20 20 20 20 32 30 31 41  48 20 20 20 20 20 20 20  |    201AH       |
00008820  20 20 20 3b 4f 50 54 49  4f 4e 20 53 57 49 54 43  |   ;OPTION SWITC|
00008830  48 45 53 20 28 52 45 41  44 29 0d 30 30 34 37 36  |HES (READ).00476|
00008840  20 20 20 20 20 20 32 30  31 42 20 20 20 20 20 20  |      201B      |
00008850  20 43 52 41 43 44 41 20  20 45 51 55 20 20 20 20  | CRACDA  EQU    |
00008860  32 30 31 42 48 20 20 20  20 20 20 20 20 20 20 3b  |201BH          ;|
00008870  41 43 49 41 20 44 41 54  41 20 50 4f 52 54 20 28  |ACIA DATA PORT (|
00008880  52 45 41 44 2d 57 52 49  54 45 29 0d 30 30 34 37  |READ-WRITE).0047|
00008890  37 20 20 20 20 20 20 32  30 31 43 20 20 20 20 20  |7      201C     |
000088a0  20 20 43 52 41 43 53 43  20 20 45 51 55 20 20 20  |  CRACSC  EQU   |
000088b0  20 32 30 31 43 48 20 20  20 20 20 20 20 20 20 20  | 201CH          |
000088c0  3b 41 43 49 41 20 53 54  41 54 55 53 20 41 4e 44  |;ACIA STATUS AND|
000088d0  20 43 4f 4e 54 52 4f 4c  28 52 45 41 44 20 57 52  | CONTROL(READ WR|
000088e0  49 54 45 29 0d 30 30 34  37 38 20 20 20 20 20 20  |ITE).00478      |
000088f0  32 30 31 44 20 20 20 20  20 20 20 43 52 42 41 55  |201D       CRBAU|
00008900  44 32 20 20 45 51 55 20  20 20 32 30 31 44 48 20  |D2  EQU   201DH |
00008910  20 20 20 20 20 20 20 20  20 3b 42 41 55 44 20 52  |         ;BAUD R|
00008920  41 54 45 20 43 4f 4e 54  52 4f 4c 20 32 20 28 57  |ATE CONTROL 2 (W|
00008930  52 49 54 45 29 0d 30 30  34 37 39 20 20 20 20 20  |RITE).00479     |
00008940  20 32 30 31 44 20 20 20  20 20 20 20 43 52 4f 50  | 201D       CROP|
00008950  53 57 32 20 20 45 51 55  20 20 20 32 30 31 44 48  |SW2  EQU   201DH|
00008960  20 20 20 20 20 20 20 20  20 20 3b 4f 50 54 49 4f  |          ;OPTIO|
00008970  4e 20 53 57 49 54 43 48  45 53 20 32 20 28 52 45  |N SWITCHES 2 (RE|
00008980  41 44 29 0d 30 30 34 38  30 20 20 20 20 20 20 32  |AD).00480      2|
00008990  30 31 45 20 20 20 20 20  20 20 43 52 41 43 44 41  |01E       CRACDA|
000089a0  32 20 20 45 51 55 20 20  20 32 30 31 45 48 20 20  |2  EQU   201EH  |
000089b0  20 20 20 20 20 20 20 20  3b 41 43 49 41 20 44 41  |        ;ACIA DA|
000089c0  54 41 20 50 4f 52 54 20  32 20 28 52 2d 57 29 0d  |TA PORT 2 (R-W).|
000089d0  30 30 34 38 31 20 20 20  20 20 20 32 30 31 46 20  |00481      201F |
000089e0  20 20 20 20 20 20 43 52  41 43 53 43 32 20 20 45  |      CRACSC2  E|
000089f0  51 55 20 20 20 32 30 31  46 48 20 20 20 20 20 20  |QU   201FH      |
00008a00  20 20 20 20 3b 41 43 49  41 20 53 54 41 54 55 53  |    ;ACIA STATUS|
00008a10  20 26 20 43 4f 4e 54 52  4f 4c 20 32 20 28 52 2d  | & CONTROL 2 (R-|
00008a20  57 29 0d 30 30 34 38 32  20 20 20 20 20 20 20 20  |W).00482        |
00008a30  20 20 20 20 20 20 20 20  20 3b 2a 2a 2a 2a 2a 2a  |         ;******|
00008a40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00008a70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 30 30  |*************.00|
00008a80  34 38 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |483             |
00008a90  20 20 20 20 3b 20 20 41  43 49 41 20 53 54 41 54  |    ;  ACIA STAT|
00008aa0  55 53 20 52 45 47 49 53  54 45 52 20 45 51 55 41  |US REGISTER EQUA|
00008ab0  54 45 53 0d 30 30 34 38  34 20 20 20 20 20 20 20  |TES.00484       |
00008ac0  20 20 20 20 20 20 20 20  20 20 3b 2a 2a 2a 2a 2a  |          ;*****|
00008ad0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00008b00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 30  |**************.0|
00008b10  30 34 38 35 20 20 20 20  20 20 30 30 30 31 20 20  |0485      0001  |
00008b20  20 20 20 20 20 52 44 52  46 20 20 20 20 45 51 55  |     RDRF    EQU|
00008b30  20 20 20 20 31 48 20 20  20 20 20 20 20 20 20 20  |    1H          |
00008b40  20 20 20 3b 52 45 43 45  49 56 45 20 44 41 54 41  |   ;RECEIVE DATA|
00008b50  20 52 45 47 49 53 54 45  52 20 46 55 4c 4c 0d 30  | REGISTER FULL.0|
00008b60  30 34 38 36 20 20 20 20  20 20 30 30 30 32 20 20  |0486      0002  |
00008b70  20 20 20 20 20 54 44 52  45 20 20 20 20 45 51 55  |     TDRE    EQU|
00008b80  20 20 20 20 32 48 20 20  20 20 20 20 20 20 20 20  |    2H          |
00008b90  20 20 20 3b 54 52 41 4e  53 4d 49 54 20 44 41 54  |   ;TRANSMIT DAT|
00008ba0  41 20 52 45 47 49 53 54  45 52 20 45 4d 50 54 59  |A REGISTER EMPTY|
00008bb0  0d 30 30 34 38 37 20 20  20 20 20 20 30 30 30 34  |.00487      0004|
00008bc0  20 20 20 20 20 20 20 44  43 44 20 20 20 20 20 45  |       DCD     E|
00008bd0  51 55 20 20 20 20 34 48  20 20 20 20 20 20 20 20  |QU    4H        |
00008be0  20 20 20 20 20 3b 44 41  54 41 20 43 41 52 52 49  |     ;DATA CARRI|
00008bf0  45 52 20 44 45 54 45 43  54 0d 30 30 34 38 38 20  |ER DETECT.00488 |
00008c00  20 20 20 20 20 30 30 30  38 20 20 20 20 20 20 20  |     0008       |
00008c10  43 54 53 20 20 20 20 20  45 51 55 20 20 20 20 38  |CTS     EQU    8|
00008c20  48 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 43  |H             ;C|
00008c30  4c 45 41 52 20 54 4f 20  53 45 4e 44 0d 30 30 34  |LEAR TO SEND.004|
00008c40  38 39 20 20 20 20 20 20  30 30 31 30 20 20 20 20  |89      0010    |
00008c50  20 20 20 46 45 20 20 20  20 20 20 45 51 55 20 20  |   FE      EQU  |
00008c60  20 20 31 30 48 20 20 20  20 20 20 20 20 20 20 20  |  10H           |
00008c70  20 3b 46 52 41 4d 49 4e  47 20 45 52 52 4f 52 0d  | ;FRAMING ERROR.|
00008c80  30 30 34 39 30 20 20 20  20 20 20 30 30 32 30 20  |00490      0020 |
00008c90  20 20 20 20 20 20 4f 56  52 4e 20 20 20 20 45 51  |      OVRN    EQ|
00008ca0  55 20 20 20 20 32 30 48  20 20 20 20 20 20 20 20  |U    20H        |
00008cb0  20 20 20 20 3b 4f 56 45  52 55 4e 0d 30 30 34 39  |    ;OVERUN.0049|
00008cc0  31 20 20 20 20 20 20 30  30 34 30 20 20 20 20 20  |1      0040     |
00008cd0  20 20 50 45 20 20 20 20  20 20 45 51 55 20 20 20  |  PE      EQU   |
00008ce0  20 34 30 48 20 20 20 20  20 20 20 20 20 20 20 20  | 40H            |
00008cf0  3b 50 41 52 49 54 59 20  45 52 52 4f 52 0d 30 30  |;PARITY ERROR.00|
00008d00  34 39 32 20 20 20 20 20  20 30 30 38 30 20 20 20  |492      0080   |
00008d10  20 20 20 20 49 52 51 20  20 20 20 20 45 51 55 20  |    IRQ     EQU |
00008d20  20 20 20 38 30 48 20 20  20 20 20 20 20 20 20 20  |   80H          |
00008d30  20 20 3b 49 4e 54 45 52  55 50 54 20 52 45 51 55  |  ;INTERUPT REQU|
00008d40  45 53 54 0d 30 30 34 39  33 20 20 20 20 20 20 20  |EST.00493       |
00008d50  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 34 39  |          ;.0049|
00008d60  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
00008d70  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
00008d80  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00008d90  0d 30 30 34 39 35 20 20  20 20 20 20 20 20 20 20  |.00495          |
00008da0  20 20 20 20 20 20 20 3b  0d 30 30 34 39 36 20 20  |       ;.00496  |
00008db0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00008dc0  41 43 49 41 20 43 4f 4e  54 52 4f 4c 20 52 45 47  |ACIA CONTROL REG|
00008dd0  49 53 54 45 52 20 45 51  55 41 54 45 53 0d 30 30  |ISTER EQUATES.00|
00008de0  34 39 37 20 20 20 20 20  20 20 20 20 20 20 20 20  |497             |
00008df0  20 20 20 20 3b 0d 30 30  34 39 38 20 20 20 20 20  |    ;.00498     |
00008e00  20 20 20 20 20 20 20 20  20 20 20 20 3b 2a 2a 2a  |            ;***|
00008e10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00008e20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 30 30 34 39 39  |**********.00499|
00008e30  20 20 20 20 20 20 30 30  30 30 20 20 20 20 20 20  |      0000      |
00008e40  20 44 49 56 31 20 20 20  20 20 45 51 55 20 20 20  | DIV1     EQU   |
00008e50  30 48 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |0H             ;|
00008e60  44 49 56 20 42 59 20 31  0d 30 30 35 30 30 20 20  |DIV BY 1.00500  |
00008e70  20 20 20 20 30 30 30 31  20 20 20 20 20 20 20 44  |    0001       D|
00008e80  49 56 31 36 20 20 20 20  45 51 55 20 20 20 31 48  |IV16    EQU   1H|
00008e90  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 44 49  |             ;DI|
00008ea0  56 20 42 59 20 31 36 0d  30 30 35 30 31 20 20 20  |V BY 16.00501   |
00008eb0  20 20 20 30 30 30 32 20  20 20 20 20 20 20 44 49  |   0002       DI|
00008ec0  56 36 34 20 20 20 20 45  51 55 20 20 20 32 48 20  |V64    EQU   2H |
00008ed0  20 20 20 20 20 20 20 20  20 20 20 20 3b 44 49 56  |            ;DIV|
00008ee0  20 42 59 20 36 34 0d 0c  54 65 6b 74 72 6f 6e 69  | BY 64..Tektroni|
00008ef0  78 20 20 20 20 20 20 4d  36 38 30 30 20 41 53 4d  |x      M6800 ASM|
00008f00  20 56 33 2e 33 20 20 55  53 45 20 43 4f 4d 4d 2d  | V3.3  USE COMM-|
00008f10  52 41 4d 2d 30 35 20 44  49 41 47 20 50 41 52 54  |RAM-05 DIAG PART|
00008f20  20 b3 20 20 20 20 50 61  67 65 20 20 20 20 31 34  | .    Page    14|
00008f30  0d 48 41 52 44 57 41 52  45 20 44 45 46 49 4e 49  |.HARDWARE DEFINI|
00008f40  54 49 4f 4e 53 20 46 4f  52 20 53 55 54 20 28 55  |TIONS FOR SUT (U|
00008f50  53 41 29 20 41 4e 44 20  47 4c 4f 42 41 4c 20 44  |SA) AND GLOBAL D|
00008f60  42 41 53 c5 0d 0d 30 30  35 30 32 20 20 20 20 20  |BAS...00502     |
00008f70  20 30 30 30 33 20 20 20  20 20 20 20 4d 53 54 52  | 0003       MSTR|
00008f80  53 54 20 20 20 45 51 55  20 20 20 33 48 20 20 20  |ST   EQU   3H   |
00008f90  20 20 20 20 20 20 20 20  20 20 3b 4d 41 53 54 45  |          ;MASTE|
00008fa0  52 20 52 45 53 45 54 0d  30 30 35 30 33 20 20 20  |R RESET.00503   |
00008fb0  20 20 20 30 30 30 30 20  20 20 20 20 20 20 42 37  |   0000       B7|
00008fc0  45 50 32 53 20 20 20 45  51 55 20 20 20 30 48 20  |EP2S   EQU   0H |
00008fd0  20 20 20 20 20 20 20 20  20 20 20 20 3b 37 20 42  |            ;7 B|
00008fe0  49 54 53 20 45 56 45 4e  20 50 41 52 49 54 59 20  |ITS EVEN PARITY |
00008ff0  32 20 53 54 4f 50 20 42  49 54 53 0d 30 30 35 30  |2 STOP BITS.0050|
00009000  34 20 20 20 20 20 20 30  30 30 34 20 20 20 20 20  |4      0004     |
00009010  20 20 42 37 4f 50 32 53  20 20 20 45 51 55 20 20  |  B7OP2S   EQU  |
00009020  20 34 48 20 20 20 20 20  20 20 20 20 20 20 20 20  | 4H             |
00009030  3b 37 20 42 49 54 53 20  4f 44 44 20 50 41 52 49  |;7 BITS ODD PARI|
00009040  54 59 20 32 20 53 54 4f  50 20 42 49 54 53 0d 30  |TY 2 STOP BITS.0|
00009050  30 35 30 35 20 20 20 20  20 20 30 30 30 38 20 20  |0505      0008  |
00009060  20 20 20 20 20 42 37 45  50 31 53 20 20 20 45 51  |     B7EP1S   EQ|
00009070  55 20 20 20 38 48 20 20  20 20 20 20 20 20 20 20  |U   8H          |
00009080  20 20 20 3b 37 20 42 49  54 53 20 45 56 45 4e 20  |   ;7 BITS EVEN |
00009090  50 41 52 49 54 59 20 31  20 53 54 4f 50 20 42 49  |PARITY 1 STOP BI|
000090a0  54 0d 30 30 35 30 36 20  20 20 20 20 20 30 30 30  |T.00506      000|
000090b0  43 20 20 20 20 20 20 20  42 37 4f 50 31 53 20 20  |C       B7OP1S  |
000090c0  20 45 51 55 20 20 20 30  43 48 20 20 20 20 20 20  | EQU   0CH      |
000090d0  20 20 20 20 20 20 3b 37  20 42 49 54 53 20 4f 44  |      ;7 BITS OD|
000090e0  44 20 50 41 52 49 54 59  20 31 20 53 54 4f 50 20  |D PARITY 1 STOP |
000090f0  42 49 54 0d 30 30 35 30  37 20 20 20 20 20 20 30  |BIT.00507      0|
00009100  30 31 30 20 20 20 20 20  20 20 42 38 32 53 20 20  |010       B82S  |
00009110  20 20 20 45 51 55 20 20  20 31 30 48 20 20 20 20  |   EQU   10H    |
00009120  20 20 20 20 20 20 20 20  3b 38 20 42 49 54 53 20  |        ;8 BITS |
00009130  32 20 53 54 4f 50 20 42  49 54 53 0d 30 30 35 30  |2 STOP BITS.0050|
00009140  38 20 20 20 20 20 20 30  30 31 34 20 20 20 20 20  |8      0014     |
00009150  20 20 42 38 31 53 20 20  20 20 20 45 51 55 20 20  |  B81S     EQU  |
00009160  20 31 34 48 20 20 20 20  20 20 20 20 20 20 20 20  | 14H            |
00009170  3b 38 20 42 49 54 53 20  31 20 53 54 4f 50 20 42  |;8 BITS 1 STOP B|
00009180  49 54 0d 30 30 35 30 39  20 20 20 20 20 20 30 30  |IT.00509      00|
00009190  31 38 20 20 20 20 20 20  20 42 38 45 50 31 53 20  |18       B8EP1S |
000091a0  20 20 45 51 55 20 20 20  31 38 48 20 20 20 20 20  |  EQU   18H     |
000091b0  20 20 20 20 20 20 20 3b  38 20 42 49 54 53 20 45  |       ;8 BITS E|
000091c0  56 45 4e 20 50 41 52 49  54 59 20 4f 4e 45 20 53  |VEN PARITY ONE S|
000091d0  54 4f 50 20 42 49 54 0d  30 30 35 31 30 20 20 20  |TOP BIT.00510   |
000091e0  20 20 20 30 30 31 43 20  20 20 20 20 20 20 42 38  |   001C       B8|
000091f0  4f 50 31 53 20 20 20 45  51 55 20 20 20 31 43 48  |OP1S   EQU   1CH|
00009200  20 20 20 20 20 20 20 20  20 20 20 20 3b 38 20 42  |            ;8 B|
00009210  49 54 53 20 4f 44 44 20  50 41 52 49 54 59 20 4f  |ITS ODD PARITY O|
00009220  4e 45 20 53 54 4f 50 20  42 49 54 0d 30 30 35 31  |NE STOP BIT.0051|
00009230  31 20 20 20 20 20 20 30  30 30 30 20 20 20 20 20  |1      0000     |
00009240  20 20 52 54 53 4c 49 44  20 20 20 45 51 55 20 20  |  RTSLID   EQU  |
00009250  20 30 48 20 20 20 20 20  20 20 20 20 20 20 20 20  | 0H             |
00009260  3b 52 54 53 20 4c 4f 57  20 58 4d 49 54 20 49 4e  |;RTS LOW XMIT IN|
00009270  54 20 44 49 53 41 42 4c  45 44 0d 30 30 35 31 32  |T DISABLED.00512|
00009280  20 20 20 20 20 20 30 30  32 30 20 20 20 20 20 20  |      0020      |
00009290  20 52 54 53 4c 49 45 20  20 20 45 51 55 20 20 20  | RTSLIE   EQU   |
000092a0  32 30 48 20 20 20 20 20  20 20 20 20 20 20 20 3b  |20H            ;|
000092b0  52 54 53 20 4c 4f 57 20  58 4d 49 54 20 49 4e 54  |RTS LOW XMIT INT|
000092c0  20 45 4e 41 42 4c 45 44  0d 30 30 35 31 33 20 20  | ENABLED.00513  |
000092d0  20 20 20 20 30 30 34 30  20 20 20 20 20 20 20 52  |    0040       R|
000092e0  54 53 48 49 44 20 20 20  45 51 55 20 20 20 34 30  |TSHID   EQU   40|
000092f0  48 20 20 20 20 20 20 20  20 20 20 20 20 3b 52 54  |H            ;RT|
00009300  53 20 48 49 47 48 20 58  4d 49 54 20 49 4e 54 20  |S HIGH XMIT INT |
00009310  44 49 53 41 50 4c 45 44  0d 30 30 35 31 34 20 20  |DISAPLED.00514  |
00009320  20 20 20 20 30 30 36 30  20 20 20 20 20 20 20 52  |    0060       R|
00009330  54 53 4c 42 4c 20 20 20  45 51 55 20 20 20 36 30  |TSLBL   EQU   60|
00009340  48 20 20 20 20 20 20 20  20 20 20 20 20 3b 52 54  |H            ;RT|
00009350  53 20 4c 4f 57 20 58 4d  49 54 20 42 52 45 41 4b  |S LOW XMIT BREAK|
00009360  20 4c 45 56 45 4c 2d 58  4d 49 54 20 49 4e 54 20  | LEVEL-XMIT INT |
00009370  44 49 53 41 42 4c 45 44  0d 30 30 35 31 35 20 20  |DISABLED.00515  |
00009380  20 20 20 20 30 30 38 30  20 20 20 20 20 20 20 52  |    0080       R|
00009390  49 45 42 20 20 20 20 20  45 51 55 20 20 20 38 30  |IEB     EQU   80|
000093a0  48 20 20 20 20 20 20 20  20 20 20 20 20 3b 52 43  |H            ;RC|
000093b0  56 52 20 49 4e 54 20 45  4e 41 42 4c 45 0d 0c 54  |VR INT ENABLE..T|
000093c0  65 6b 74 72 6f 6e 69 78  20 20 20 20 20 20 4d 36  |ektronix      M6|
000093d0  38 30 30 20 41 53 4d 20  56 33 2e 33 20 20 55 53  |800 ASM V3.3  US|
000093e0  45 20 43 4f 4d 4d 2d 52  41 4d 2d 30 35 20 44 49  |E COMM-RAM-05 DI|
000093f0  41 47 20 50 41 52 54 20  b3 20 20 20 20 50 61 67  |AG PART .    Pag|
00009400  65 20 20 20 20 31 35 0d  48 41 52 44 57 41 52 45  |e    15.HARDWARE|
00009410  20 44 45 46 49 4e 49 54  49 4f 4e 53 20 46 4f 52  | DEFINITIONS FOR|
00009420  20 53 55 54 20 28 55 53  41 29 20 41 4e 44 20 47  | SUT (USA) AND G|
00009430  4c 4f 42 41 4c 20 44 42  41 53 c5 0d 0d 30 30 35  |LOBAL DBAS...005|
00009440  31 37 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |17              |
00009450  20 20 20 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |   ;************|
00009460  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00009480  2a 2a 2a 2a 2a 2a 2a 2a  0d 30 30 35 31 38 20 20  |********.00518  |
00009490  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
000094a0  0d 30 30 35 31 39 20 20  20 20 20 20 20 20 20 20  |.00519          |
000094b0  20 20 20 20 20 20 20 3b  20 20 55 53 41 20 54 45  |       ;  USA TE|
000094c0  53 54 20 57 4f 52 4b 49  4e 47 20 44 41 54 41 20  |ST WORKING DATA |
000094d0  42 41 53 45 0d 30 30 35  32 30 20 20 20 20 20 20  |BASE.00520      |
000094e0  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 30 35  |           ;.005|
000094f0  32 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |21              |
00009500  20 20 20 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |   ;************|
00009510  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00009530  2a 2a 2a 2a 2a 2a 2a 2a  0d 30 30 35 32 32 20 20  |********.00522  |
00009540  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00009550  0d 30 30 35 32 33 20 20  20 20 20 20 46 38 30 30  |.00523      F800|
00009560  20 20 20 20 3e 20 20 20  20 20 20 20 20 20 20 4f  |    >          O|
00009570  52 47 20 20 20 20 50 42  41 53 45 0d 30 30 35 32  |RG    PBASE.0052|
00009580  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
00009590  20 20 3b 0d 30 30 35 32  35 20 46 38 30 30 20 30  |  ;.00525 F800 0|
000095a0  30 30 31 20 20 20 20 20  20 20 51 54 4f 50 20 20  |001       QTOP  |
000095b0  20 20 42 4c 4f 43 4b 20  20 31 20 20 20 20 20 20  |  BLOCK  1      |
000095c0  20 20 20 20 20 20 20 20  20 3b 54 45 53 54 20 4f  |         ;TEST O|
000095d0  50 54 49 4f 4e 20 42 59  54 45 0d 30 30 35 32 36  |PTION BYTE.00526|
000095e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000095f0  20 3b 20 20 43 4f 4e 54  41 49 4e 53 20 54 48 45  | ;  CONTAINS THE|
00009600  20 46 4f 4c 4c 4f 57 49  4e 47 20 4f 50 54 49 4f  | FOLLOWING OPTIO|
00009610  4e 20 42 49 54 53 0d 30  30 35 32 37 20 20 20 20  |N BITS.00527    |
00009620  20 20 30 30 38 30 20 20  20 20 20 20 20 53 49 47  |  0080       SIG|
00009630  4f 50 54 20 20 45 51 55  20 20 20 20 38 30 48 20  |OPT  EQU    80H |
00009640  20 20 20 20 20 20 20 20  20 20 20 20 3b 54 41 4b  |            ;TAK|
00009650  49 4e 47 20 53 49 47 4e  41 54 55 52 45 53 0d 30  |ING SIGNATURES.0|
00009660  30 35 32 38 20 20 20 20  20 20 30 30 34 30 20 20  |0528      0040  |
00009670  20 20 20 20 20 48 4c 54  4f 50 54 20 20 45 51 55  |     HLTOPT  EQU|
00009680  20 20 20 20 34 30 48 20  20 20 20 20 20 20 20 20  |    40H         |
00009690  20 20 20 20 3b 48 41 4c  54 20 4f 4e 20 45 52 52  |    ;HALT ON ERR|
000096a0  4f 52 53 0d 30 30 35 32  39 20 20 20 20 20 20 20  |ORS.00529       |
000096b0  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 35 33  |          ;.0053|
000096c0  30 20 46 38 30 31 20 30  30 30 31 20 20 20 20 20  |0 F801 0001     |
000096d0  20 20 53 49 47 46 4c 47  20 20 42 4c 4f 43 4b 20  |  SIGFLG  BLOCK |
000096e0  20 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | 1              |
000096f0  20 3b 53 49 47 4e 41 54  55 52 45 20 46 4c 41 47  | ;SIGNATURE FLAG|
00009700  0d 30 30 35 33 31 20 46  38 30 32 20 30 30 30 31  |.00531 F802 0001|
00009710  20 20 20 20 20 20 20 49  4e 49 54 46 4c 20 20 42  |       INITFL  B|
00009720  4c 4f 43 4b 20 20 31 20  20 20 20 20 20 20 20 20  |LOCK  1         |
00009730  20 20 20 20 20 20 3b 49  4e 49 54 49 41 4c 49 5a  |      ;INITIALIZ|
00009740  45 20 46 4c 41 47 0d 30  30 35 33 32 20 46 38 30  |E FLAG.00532 F80|
00009750  33 20 30 30 30 31 20 20  20 20 20 20 20 45 52 52  |3 0001       ERR|
00009760  46 4c 47 20 20 42 4c 4f  43 4b 20 20 31 20 20 20  |FLG  BLOCK  1   |
00009770  20 20 20 20 20 20 20 20  20 20 20 20 3b 45 52 52  |            ;ERR|
00009780  4f 52 20 46 4c 41 47 0d  30 30 35 33 33 20 20 20  |OR FLAG.00533   |
00009790  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
000097a0  30 30 35 33 34 20 46 38  30 34 20 30 30 30 31 20  |00534 F804 0001 |
000097b0  20 20 20 20 20 20 53 56  43 20 20 20 20 20 42 4c  |      SVC     BL|
000097c0  4f 43 4b 20 20 31 20 20  20 20 20 20 20 20 20 20  |OCK  1          |
000097d0  20 20 20 20 20 3b 53 55  50 45 52 56 49 53 4f 52  |     ;SUPERVISOR|
000097e0  20 43 41 4c 4c 20 42 59  54 45 0d 30 30 35 33 35  | CALL BYTE.00535|
000097f0  20 46 38 30 35 20 30 30  30 32 20 20 20 20 20 20  | F805 0002      |
00009800  20 53 56 43 50 20 20 20  20 42 4c 4f 43 4b 20 20  | SVCP    BLOCK  |
00009810  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
00009820  3b 53 56 43 20 50 4f 49  4e 54 45 52 0d 30 30 35  |;SVC POINTER.005|
00009830  33 36 20 46 38 30 37 20  30 30 30 31 20 20 20 20  |36 F807 0001    |
00009840  20 20 20 44 45 4c 41 59  20 20 20 42 4c 4f 43 4b  |   DELAY   BLOCK|
00009850  20 20 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |  1             |
00009860  20 20 3b 44 45 4c 41 59  20 54 49 4d 45 0d 30 30  |  ;DELAY TIME.00|
00009870  35 33 37 20 46 38 30 38  20 30 30 30 31 20 20 20  |537 F808 0001   |
00009880  20 20 20 20 53 54 41 54  55 53 20 20 42 4c 4f 43  |    STATUS  BLOC|
00009890  4b 20 20 31 20 20 20 20  20 20 20 20 20 20 20 20  |K  1            |
000098a0  20 20 20 3b 53 59 53 54  45 4d 20 53 54 41 54 55  |   ;SYSTEM STATU|
000098b0  53 0d 30 30 35 33 38 20  20 20 20 20 20 20 20 20  |S.00538         |
000098c0  20 20 20 20 20 20 20 20  3b 0d 30 30 35 33 39 20  |        ;.00539 |
000098d0  46 38 30 39 20 30 30 30  32 20 20 20 20 20 20 20  |F809 0002       |
000098e0  54 45 4d 50 31 20 20 20  42 4c 4f 43 4b 20 20 32  |TEMP1   BLOCK  2|
000098f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00009900  54 45 4d 50 4f 52 41 52  59 20 57 4f 52 4b 49 4e  |TEMPORARY WORKIN|
00009910  47 20 53 54 4f 52 41 47  45 0d 30 30 35 34 30 20  |G STORAGE.00540 |
00009920  46 38 30 42 20 30 30 30  32 20 20 20 20 20 20 20  |F80B 0002       |
00009930  54 45 4d 50 32 20 20 20  42 4c 4f 43 4b 20 20 32  |TEMP2   BLOCK  2|
00009940  0d 30 30 35 34 31 20 46  38 30 44 20 30 30 30 32  |.00541 F80D 0002|
00009950  20 20 20 20 20 20 20 54  45 4d 50 33 20 20 20 42  |       TEMP3   B|
00009960  4c 4f 43 4b 20 20 32 0d  30 30 35 34 32 20 46 38  |LOCK  2.00542 F8|
00009970  30 46 20 30 30 30 32 20  20 20 20 20 20 20 54 45  |0F 0002       TE|
00009980  4d 50 34 20 20 20 42 4c  4f 43 4b 20 20 32 0d 30  |MP4   BLOCK  2.0|
00009990  30 35 34 33 20 20 20 20  20 20 20 20 20 20 20 20  |0543            |
000099a0  20 20 20 20 20 3b 0d 0c  54 65 6b 74 72 6f 6e 69  |     ;..Tektroni|
000099b0  78 20 20 20 20 20 20 4d  36 38 30 30 20 41 53 4d  |x      M6800 ASM|
000099c0  20 56 33 2e 33 20 20 55  53 45 20 43 4f 4d 4d 2d  | V3.3  USE COMM-|
000099d0  52 41 4d 2d 30 35 20 44  49 41 47 20 50 41 52 54  |RAM-05 DIAG PART|
000099e0  20 b3 20 20 20 20 50 61  67 65 20 20 20 20 31 36  | .    Page    16|
000099f0  0d 43 4f 4d 2d 52 41 4d  20 54 45 53 54 20 23 20  |.COM-RAM TEST # |
00009a00  33 20 20 39 32 30 2d 30  30 30 39 39 2d 30 32 2d  |3  920-00099-02-|
00009a10  c2 0d 0d 30 30 35 34 36  20 20 20 20 20 20 20 20  |...00546        |
00009a20  20 20 20 20 20 20 20 20  20 3b 0d 30 30 35 34 37  |         ;.00547|
00009a30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00009a40  20 3b 20 43 4f 4d 4d 2d  52 41 4d 20 54 45 53 54  | ; COMM-RAM TEST|
00009a50  20 44 41 54 41 20 42 41  53 45 0d 30 30 35 34 38  | DATA BASE.00548|
00009a60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00009a70  20 3b 0d 30 30 35 34 39  20 46 38 31 31 20 30 30  | ;.00549 F811 00|
00009a80  30 32 20 20 20 20 20 20  20 42 41 55 44 20 20 20  |02       BAUD   |
00009a90  20 20 42 4c 4f 43 4b 20  32 20 20 20 20 20 20 20  |  BLOCK 2       |
00009aa0  20 20 20 20 20 20 20 3b  42 41 55 44 20 52 41 54  |       ;BAUD RAT|
00009ab0  45 20 44 49 53 50 4c 41  59 45 44 0d 30 30 35 35  |E DISPLAYED.0055|
00009ac0  30 20 46 38 31 33 20 30  30 30 31 20 20 20 20 20  |0 F813 0001     |
00009ad0  20 20 45 58 50 53 54 41  20 20 20 42 4c 4f 43 4b  |  EXPSTA   BLOCK|
00009ae0  20 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | 1              |
00009af0  3b 45 58 50 45 43 54 45  44 20 53 54 41 54 55 53  |;EXPECTED STATUS|
00009b00  0d 30 30 35 35 31 20 46  38 31 34 20 30 30 30 31  |.00551 F814 0001|
00009b10  20 20 20 20 20 20 20 45  58 50 53 54 41 31 20 20  |       EXPSTA1  |
00009b20  42 4c 4f 43 4b 20 31 20  20 20 20 20 20 20 20 20  |BLOCK 1         |
00009b30  20 20 20 20 20 3b 45 58  50 45 43 54 45 44 20 53  |     ;EXPECTED S|
00009b40  54 41 54 55 53 20 28 31  29 0d 30 30 35 35 32 20  |TATUS (1).00552 |
00009b50  46 38 31 35 20 30 30 30  32 20 20 20 20 20 20 20  |F815 0002       |
00009b60  53 54 41 50 4f 52 54 20  20 42 4c 4f 43 4b 20 32  |STAPORT  BLOCK 2|
00009b70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 53  |              ;S|
00009b80  54 41 54 55 53 20 50 4f  52 54 20 41 44 44 52 0d  |TATUS PORT ADDR.|
00009b90  30 30 35 35 33 20 46 38  31 37 20 30 30 30 32 20  |00553 F817 0002 |
00009ba0  20 20 20 20 20 20 44 54  41 50 4f 52 54 20 20 42  |      DTAPORT  B|
00009bb0  4c 4f 43 4b 20 32 20 20  20 20 20 20 20 20 20 20  |LOCK 2          |
00009bc0  20 20 20 20 3b 53 54 41  54 55 53 20 50 4f 52 54  |    ;STATUS PORT|
00009bd0  20 41 44 44 52 0d 30 30  35 35 34 20 46 38 31 39  | ADDR.00554 F819|
00009be0  20 30 30 30 31 20 20 20  20 20 20 20 53 54 41 54  | 0001       STAT|
00009bf0  52 44 20 20 20 42 4c 4f  43 4b 20 31 20 20 20 20  |RD   BLOCK 1    |
00009c00  20 20 20 20 20 20 20 20  20 20 3b 53 54 41 54 55  |          ;STATU|
00009c10  53 20 52 45 41 44 0d 30  30 35 35 35 20 46 38 31  |S READ.00555 F81|
00009c20  41 20 30 30 30 31 20 20  20 20 20 20 20 44 54 41  |A 0001       DTA|
00009c30  52 44 20 20 20 20 42 4c  4f 43 4b 20 31 20 20 20  |RD    BLOCK 1   |
00009c40  20 20 20 20 20 20 20 20  20 20 20 3b 44 41 54 41  |           ;DATA|
00009c50  20 52 45 41 44 0d 30 30  35 35 36 20 46 38 31 42  | READ.00556 F81B|
00009c60  20 30 30 30 31 20 20 20  20 20 20 20 43 4e 54 39  | 0001       CNT9|
00009c70  35 31 20 20 20 42 4c 4f  43 4b 20 31 20 20 20 20  |51   BLOCK 1    |
00009c80  20 20 20 20 20 20 20 20  20 20 3b 39 35 25 20 43  |          ;95% C|
00009c90  4f 55 4e 54 45 52 20 31  0d 30 30 35 35 37 20 46  |OUNTER 1.00557 F|
00009ca0  38 31 43 20 30 30 30 31  20 20 20 20 20 20 20 43  |81C 0001       C|
00009cb0  4e 54 39 35 32 20 20 20  42 4c 4f 43 4b 20 31 20  |NT952   BLOCK 1 |
00009cc0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 39 35  |             ;95|
00009cd0  25 20 43 4f 55 4e 54 45  52 20 32 0d 30 30 35 35  |% COUNTER 2.0055|
00009ce0  38 20 46 38 31 44 20 30  30 30 31 20 20 20 20 20  |8 F81D 0001     |
00009cf0  20 20 43 4e 54 31 30 31  20 20 20 42 4c 4f 43 4b  |  CNT101   BLOCK|
00009d00  20 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | 1              |
00009d10  3b 31 30 25 20 43 4f 55  4e 54 45 52 20 31 0d 30  |;10% COUNTER 1.0|
00009d20  30 35 35 39 20 46 38 31  45 20 30 30 30 31 20 20  |0559 F81E 0001  |
00009d30  20 20 20 20 20 43 4e 54  31 30 32 20 20 20 42 4c  |     CNT102   BL|
00009d40  4f 43 4b 20 31 20 20 20  20 20 20 20 20 20 20 20  |OCK 1           |
00009d50  20 20 20 3b 31 30 25 20  43 4f 55 4e 54 45 52 20  |   ;10% COUNTER |
00009d60  32 0d 30 30 35 36 30 20  46 38 31 46 20 30 30 30  |2.00560 F81F 000|
00009d70  31 20 20 20 20 20 20 20  50 4f 52 54 4e 20 20 20  |1       PORTN   |
00009d80  20 42 4c 4f 43 4b 20 31  20 20 20 20 20 20 20 20  | BLOCK 1        |
00009d90  20 20 20 20 20 20 3b 50  4f 52 54 20 4e 55 4d 42  |      ;PORT NUMB|
00009da0  45 52 0d 30 30 35 36 31  20 46 38 32 30 20 30 30  |ER.00561 F820 00|
00009db0  30 32 20 20 20 20 20 20  20 52 57 54 42 4c 20 20  |02       RWTBL  |
00009dc0  20 20 42 4c 4f 43 4b 20  32 20 20 20 20 20 20 20  |  BLOCK 2       |
00009dd0  20 20 20 20 20 20 20 3b  52 45 41 44 20 57 52 49  |       ;READ WRI|
00009de0  54 45 20 54 41 42 4c 45  20 50 4f 49 4e 54 45 52  |TE TABLE POINTER|
00009df0  0d 30 30 35 36 32 20 46  38 32 32 20 30 30 30 31  |.00562 F822 0001|
00009e00  20 20 20 20 20 20 20 43  4e 52 45 47 20 20 20 20  |       CNREG    |
00009e10  42 4c 4f 43 4b 20 31 20  20 20 20 20 20 20 20 20  |BLOCK 1         |
00009e20  20 20 20 20 20 3b 43 4f  4e 54 52 4f 4c 20 52 45  |     ;CONTROL RE|
00009e30  47 49 53 54 45 52 0d 30  30 35 36 33 20 46 38 32  |GISTER.00563 F82|
00009e40  33 20 30 30 30 32 20 20  20 20 20 20 20 57 54 44  |3 0002       WTD|
00009e50  41 50 54 20 20 20 42 4c  4f 43 4b 20 32 0d 30 30  |APT   BLOCK 2.00|
00009e60  35 36 34 20 46 38 32 35  20 30 30 30 31 20 20 20  |564 F825 0001   |
00009e70  20 20 20 20 45 58 50 46  4c 47 20 20 20 42 4c 4f  |    EXPFLG   BLO|
00009e80  43 4b 20 31 0d 30 30 35  36 35 20 46 38 32 36 20  |CK 1.00565 F826 |
00009e90  30 30 30 32 20 20 20 20  20 20 20 52 44 44 41 50  |0002       RDDAP|
00009ea0  54 20 20 20 42 4c 4f 43  4b 20 32 0d 30 30 35 36  |T   BLOCK 2.0056|
00009eb0  36 20 46 38 32 38 20 30  30 30 32 20 20 20 20 20  |6 F828 0002     |
00009ec0  20 20 57 54 53 54 50 54  20 20 20 42 4c 4f 43 4b  |  WTSTPT   BLOCK|
00009ed0  20 32 0d 30 30 35 36 37  20 46 38 32 41 20 30 30  | 2.00567 F82A 00|
00009ee0  30 32 20 20 20 20 20 20  20 52 44 53 54 50 54 20  |02       RDSTPT |
00009ef0  20 20 42 4c 4f 43 4b 20  32 0d 30 30 35 36 38 20  |  BLOCK 2.00568 |
00009f00  46 38 32 43 20 30 30 30  31 20 20 20 20 20 20 20  |F82C 0001       |
00009f10  45 58 50 49 4e 54 20 20  20 42 4c 4f 43 4b 20 31  |EXPINT   BLOCK 1|
00009f20  0d 30 30 35 36 39 20 46  38 32 44 20 30 30 30 31  |.00569 F82D 0001|
00009f30  20 20 20 20 20 20 20 49  4e 54 46 4c 47 20 20 20  |       INTFLG   |
00009f40  42 4c 4f 43 4b 20 31 0d  30 30 35 37 30 20 46 38  |BLOCK 1.00570 F8|
00009f50  32 45 20 30 30 30 31 20  20 20 20 20 20 20 52 49  |2E 0001       RI|
00009f60  46 4c 47 20 20 20 42 4c  4f 43 4b 20 31 20 20 20  |FLG   BLOCK 1   |
00009f70  20 20 20 20 20 20 20 20  20 20 20 20 3b 52 45 41  |            ;REA|
00009f80  44 20 49 4e 54 45 52 55  50 54 20 46 4c 41 47 0d  |D INTERUPT FLAG.|
00009f90  30 30 35 37 31 20 46 38  32 46 20 30 30 30 31 20  |00571 F82F 0001 |
00009fa0  20 20 20 20 20 20 49 4e  54 49 44 20 20 20 20 42  |      INTID    B|
00009fb0  4c 4f 43 4b 20 31 0d 30  30 35 37 32 20 46 38 33  |LOCK 1.00572 F83|
00009fc0  30 20 30 30 30 31 20 20  20 20 20 20 20 52 44 53  |0 0001       RDS|
00009fd0  42 20 20 20 20 20 42 4c  4f 43 4b 20 31 20 20 20  |B     BLOCK 1   |
00009fe0  20 20 20 20 20 20 20 20  20 20 20 3b 52 41 4d 20  |           ;RAM |
00009ff0  44 41 54 41 20 53 48 4f  55 4c 44 20 42 45 0d 30  |DATA SHOULD BE.0|
0000a000  30 35 37 33 20 46 38 33  31 20 30 30 30 31 20 20  |0573 F831 0001  |
0000a010  20 20 20 20 20 45 58 50  44 54 41 20 20 20 42 4c  |     EXPDTA   BL|
0000a020  4f 43 4b 20 31 20 20 20  20 20 20 20 20 20 20 20  |OCK 1           |
0000a030  20 20 20 3b 45 58 50 45  43 54 45 44 20 44 41 54  |   ;EXPECTED DAT|
0000a040  41 0d 30 30 35 37 34 20  46 38 33 32 20 30 30 30  |A.00574 F832 000|
0000a050  32 20 20 20 20 20 20 20  53 41 56 58 20 20 20 20  |2       SAVX    |
0000a060  20 42 4c 4f 43 4b 20 32  20 20 20 20 20 20 20 20  | BLOCK 2        |
0000a070  20 20 20 20 20 20 3b 53  41 56 45 20 58 20 52 45  |      ;SAVE X RE|
0000a080  47 0d 30 30 35 37 35 20  46 38 33 34 20 30 30 30  |G.00575 F834 000|
0000a090  31 20 20 20 20 20 20 20  52 44 57 41 53 20 20 20  |1       RDWAS   |
0000a0a0  20 42 4c 4f 43 4b 20 31  20 20 20 20 20 20 20 20  | BLOCK 1        |
0000a0b0  20 20 20 20 20 20 3b 52  45 41 44 20 44 41 54 41  |      ;READ DATA|
0000a0c0  20 57 41 53 0d 30 30 35  37 36 20 46 38 33 35 20  | WAS.00576 F835 |
0000a0d0  30 30 30 31 20 20 20 20  20 20 20 53 57 4e 55 4d  |0001       SWNUM|
0000a0e0  20 20 20 20 42 4c 4f 43  4b 20 31 20 20 20 20 20  |    BLOCK 1     |
0000a0f0  20 20 20 20 20 20 20 20  20 3b 53 57 49 54 43 48  |         ;SWITCH|
0000a100  20 4e 55 4d 42 45 52 0d  30 30 35 37 37 20 46 38  | NUMBER.00577 F8|
0000a110  33 36 20 30 30 30 31 20  20 20 20 20 20 20 53 57  |36 0001       SW|
0000a120  44 54 41 20 20 20 20 42  4c 4f 43 4b 20 31 20 20  |DTA    BLOCK 1  |
0000a130  20 20 20 20 20 20 20 20  20 20 20 20 3b 53 57 49  |            ;SWI|
0000a140  54 43 48 20 44 41 54 41  20 52 45 41 44 0d 30 30  |TCH DATA READ.00|
0000a150  35 37 38 20 20 20 20 20  20 20 20 20 20 20 20 20  |578             |
0000a160  20 20 20 20 3b 0d 0c 54  65 6b 74 72 6f 6e 69 78  |    ;..Tektronix|
0000a170  20 20 20 20 20 20 4d 36  38 30 30 20 41 53 4d 20  |      M6800 ASM |
0000a180  56 33 2e 33 20 20 55 53  45 20 43 4f 4d 4d 2d 52  |V3.3  USE COMM-R|
0000a190  41 4d 2d 30 35 20 44 49  41 47 20 50 41 52 54 20  |AM-05 DIAG PART |
0000a1a0  b3 20 20 20 20 50 61 67  65 20 20 20 20 31 37 0d  |.    Page    17.|
0000a1b0  43 4f 4d 2d 52 41 4d 20  54 45 53 54 20 23 20 33  |COM-RAM TEST # 3|
0000a1c0  20 20 39 32 30 2d 30 30  30 39 39 2d 30 32 2d c2  |  920-00099-02-.|
0000a1d0  0d 0d 30 30 35 38 30 20  20 20 20 20 20 20 20 20  |..00580         |
0000a1e0  20 20 20 20 20 20 20 20  3b 2a 2a 2a 2a 2a 2a 2a  |        ;*******|
0000a1f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
0000a200  2a 2a 2a 2a 2a 2a 2a 2a  0d 30 30 35 38 31 20 20  |********.00581  |
0000a210  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000a220  20 20 43 4f 4d 4d 2d 52  41 4d 20 45 51 55 41 54  |  COMM-RAM EQUAT|
0000a230  45 53 0d 30 30 35 38 32  20 20 20 20 20 20 20 20  |ES.00582        |
0000a240  20 20 20 20 20 20 20 20  20 3b 0d 30 30 35 38 33  |         ;.00583|
0000a250  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000a260  20 3b 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | ;**************|
0000a270  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
0000a280  2a 0d 30 30 35 38 34 20  20 20 20 20 20 20 20 20  |*.00584         |
0000a290  20 20 20 20 20 20 20 20  3b 0d 30 30 35 38 35 20  |        ;.00585 |
0000a2a0  20 20 20 20 20 30 30 37  37 20 20 20 20 20 20 20  |     0077       |
0000a2b0  54 49 4d 39 36 31 20 20  20 45 51 55 20 20 20 31  |TIM961   EQU   1|
0000a2c0  31 39 20 20 20 20 20 20  20 20 20 20 20 20 3b 39  |19            ;9|
0000a2d0  36 30 30 20 42 41 55 44  20 43 4e 54 52 20 31 0d  |600 BAUD CNTR 1.|
0000a2e0  30 30 35 38 36 20 20 20  20 20 20 30 30 30 31 20  |00586      0001 |
0000a2f0  20 20 20 20 20 20 54 49  4d 39 36 32 20 20 20 45  |      TIM962   E|
0000a300  51 55 20 20 20 31 20 20  20 20 20 20 20 20 20 20  |QU   1          |
0000a310  20 20 20 20 3b 39 36 30  30 20 42 41 55 44 20 43  |    ;9600 BAUD C|
0000a320  4e 54 52 20 32 0d 30 30  35 38 37 20 20 20 20 20  |NTR 2.00587     |
0000a330  20 30 30 45 31 20 20 20  20 20 20 20 54 49 4d 32  | 00E1       TIM2|
0000a340  34 31 20 20 20 45 51 55  20 20 20 32 32 35 20 20  |41   EQU   225  |
0000a350  20 20 20 20 20 20 20 20  20 20 3b 32 34 30 30 20  |          ;2400 |
0000a360  42 41 55 44 20 43 4e 54  52 20 31 0d 30 30 35 38  |BAUD CNTR 1.0058|
0000a370  38 20 20 20 20 20 20 30  30 30 32 20 20 20 20 20  |8      0002     |
0000a380  20 20 54 49 4d 32 34 32  20 20 20 45 51 55 20 20  |  TIM242   EQU  |
0000a390  20 32 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | 2              |
0000a3a0  3b 32 34 30 30 20 42 41  55 44 20 43 4e 54 52 20  |;2400 BAUD CNTR |
0000a3b0  32 0d 30 30 35 38 39 20  20 20 20 20 20 30 30 30  |2.00589      000|
0000a3c0  37 20 20 20 20 20 20 20  42 31 31 30 20 20 20 20  |7       B110    |
0000a3d0  20 45 51 55 20 20 20 37  48 20 20 20 20 20 20 20  | EQU   7H       |
0000a3e0  20 20 20 20 20 20 3b 42  41 55 44 20 31 31 30 0d  |      ;BAUD 110.|
0000a3f0  30 30 35 39 30 20 20 20  20 20 20 30 30 30 36 20  |00590      0006 |
0000a400  20 20 20 20 20 20 42 31  32 30 30 20 20 20 20 45  |      B1200    E|
0000a410  51 55 20 20 20 36 20 20  20 20 20 20 20 20 20 20  |QU   6          |
0000a420  20 20 20 3b 42 41 55 44  20 31 32 30 30 0d 30 30  |   ;BAUD 1200.00|
0000a430  35 39 31 20 20 20 20 20  20 30 30 30 35 20 20 20  |591      0005   |
0000a440  20 20 20 20 42 32 34 30  30 20 20 20 20 45 51 55  |    B2400    EQU|
0000a450  20 20 20 35 20 20 20 20  20 20 20 20 20 20 20 20  |   5            |
0000a460  20 3b 42 41 55 44 20 32  34 30 30 0d 30 30 35 39  | ;BAUD 2400.0059|
0000a470  32 20 20 20 20 20 20 30  30 30 34 20 20 20 20 20  |2      0004     |
0000a480  20 20 42 34 38 30 30 20  20 20 20 45 51 55 20 20  |  B4800    EQU  |
0000a490  20 34 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  | 4             ;|
0000a4a0  42 41 55 44 20 34 38 30  30 0d 30 30 35 39 33 20  |BAUD 4800.00593 |
0000a4b0  20 20 20 20 20 30 30 30  33 20 20 20 20 20 20 20  |     0003       |
0000a4c0  42 39 36 30 30 20 20 20  20 45 51 55 20 20 20 33  |B9600    EQU   3|
0000a4d0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 42 41  |             ;BA|
0000a4e0  55 44 20 39 36 30 30 0d  30 30 35 39 34 20 20 20  |UD 9600.00594   |
0000a4f0  20 20 20 39 36 30 30 20  20 20 20 20 20 20 42 39  |   9600       B9|
0000a500  36 30 30 41 20 20 20 45  51 55 20 20 20 39 36 30  |600A   EQU   960|
0000a510  30 48 20 20 20 20 20 20  20 20 20 20 3b 44 49 53  |0H          ;DIS|
0000a520  50 4c 41 59 20 42 41 55  44 20 22 39 36 30 30 22  |PLAY BAUD "9600"|
0000a530  0d 30 30 35 39 35 20 20  20 20 20 20 30 30 31 34  |.00595      0014|
0000a540  20 20 20 20 20 20 20 49  4e 54 31 30 20 20 20 20  |       INT10    |
0000a550  45 51 55 20 20 20 31 34  48 20 20 20 20 20 20 20  |EQU   14H       |
0000a560  20 20 20 20 20 3b 41 43  49 41 20 31 20 49 4e 54  |     ;ACIA 1 INT|
0000a570  45 52 55 50 54 0d 30 30  35 39 36 20 20 20 20 20  |ERUPT.00596     |
0000a580  20 30 30 31 36 20 20 20  20 20 20 20 49 4e 54 31  | 0016       INT1|
0000a590  31 20 20 20 20 45 51 55  20 20 20 31 36 48 20 20  |1    EQU   16H  |
0000a5a0  20 20 20 20 20 20 20 20  20 20 3b 41 43 49 41 20  |          ;ACIA |
0000a5b0  32 20 49 4e 54 45 52 55  50 54 0d 30 30 35 39 37  |2 INTERUPT.00597|
0000a5c0  20 20 20 20 20 20 32 34  30 30 20 20 20 20 20 20  |      2400      |
0000a5d0  20 42 32 34 30 30 41 20  20 20 45 51 55 20 20 20  | B2400A   EQU   |
0000a5e0  32 34 30 30 48 20 20 20  20 20 20 20 20 20 20 3b  |2400H          ;|
0000a5f0  44 49 53 50 4c 41 59 20  42 41 55 44 20 32 34 30  |DISPLAY BAUD 240|
0000a600  30 0d 0c 54 65 6b 74 72  6f 6e 69 78 20 20 20 20  |0..Tektronix    |
0000a610  20 20 4d 36 38 30 30 20  41 53 4d 20 56 33 2e 33  |  M6800 ASM V3.3|
0000a620  20 20 55 53 45 20 43 4f  4d 4d 2d 52 41 4d 2d 30  |  USE COMM-RAM-0|
0000a630  35 20 44 49 41 47 20 50  41 52 54 20 b3 20 20 20  |5 DIAG PART .   |
0000a640  20 50 61 67 65 20 20 20  20 31 38 0d 43 4f 4d 2d  | Page    18.COM-|
0000a650  52 41 4d 20 54 45 53 54  20 23 20 33 20 20 39 32  |RAM TEST # 3  92|
0000a660  30 2d 30 30 30 39 39 2d  30 32 2d c2 0d 0d 30 30  |0-00099-02-...00|
0000a670  35 39 39 20 20 20 20 20  20 46 38 30 30 20 20 20  |599      F800   |
0000a680  20 3e 20 20 20 20 20 20  20 20 20 20 4f 52 47 20  | >          ORG |
0000a690  20 20 20 50 42 41 53 45  0d 30 30 36 30 30 20 20  |   PBASE.00600  |
0000a6a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000a6b0  0d 30 30 36 30 31 20 20  20 20 20 20 20 20 20 20  |.00601          |
0000a6c0  20 20 20 20 20 20 20 3b  2a 2a 2a 2a 2a 2a 2a 2a  |       ;********|
0000a6d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000a6f0  2a 2a 2a 2a 2a 2a 2a 0d  30 30 36 30 32 20 20 20  |*******.00602   |
0000a700  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
0000a710  30 30 36 30 33 20 20 20  20 20 20 20 20 20 20 20  |00603           |
0000a720  20 20 20 20 20 20 3b 20  20 54 45 53 54 20 48 45  |      ;  TEST HE|
0000a730  41 44 45 52 20 42 4c 4f  43 4b 0d 30 30 36 30 34  |ADER BLOCK.00604|
0000a740  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000a750  20 3b 0d 30 30 36 30 35  20 20 20 20 20 20 20 20  | ;.00605        |
0000a760  20 20 20 20 20 20 20 20  20 3b 2a 2a 2a 2a 2a 2a  |         ;******|
0000a770  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000a790  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 30 30 36 30 36 20  |*********.00606 |
0000a7a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000a7b0  3b 0d 30 30 36 30 37 20  20 20 20 20 20 20 20 20  |;.00607         |
0000a7c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000a7d0  54 53 54 48 44 52 20 32  0d 30 30 36 30 38 20 20  |TSTHDR 2.00608  |
0000a7e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000a7f0  0d 30 30 36 30 39 20 20  20 20 20 20 20 20 20 20  |.00609          |
0000a800  20 20 20 20 20 20 20 3b  2a 2a 2a 2a 2a 2a 2a 2a  |       ;********|
0000a810  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000a830  2a 2a 2a 2a 2a 2a 0d 30  30 36 31 30 20 20 20 20  |******.00610    |
0000a840  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
0000a850  30 36 31 31 20 20 20 20  20 20 20 20 20 20 20 20  |0611            |
0000a860  20 20 20 20 20 3b 20 20  53 55 42 20 54 45 53 54  |     ;  SUB TEST|
0000a870  20 48 45 41 44 45 52 20  42 4c 4f 43 4b 53 0d 30  | HEADER BLOCKS.0|
0000a880  30 36 31 32 20 20 20 20  20 20 20 20 20 20 20 20  |0612            |
0000a890  20 20 20 20 20 3b 0d 30  30 36 31 33 20 20 20 20  |     ;.00613    |
0000a8a0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 2a 2a  |             ;**|
0000a8b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000a8d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 30 30 36 31  |***********.0061|
0000a8e0  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
0000a8f0  20 20 3b 0d 30 30 36 31  35 20 20 20 20 20 20 20  |  ;.00615       |
0000a900  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000a910  20 20 53 42 54 48 44 52  20 30 31 2c 46 55 4e 43  |  SBTHDR 01,FUNC|
0000a920  53 50 0d 30 30 36 31 36  20 20 20 20 20 20 20 20  |SP.00616        |
0000a930  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000a940  20 46 55 4e 43 20 53 49  47 4e 54 52 2c 41 44 44  | FUNC SIGNTR,ADD|
0000a950  43 2c 41 44 44 43 2c 4f  52 4d 44 50 4d 2c 44 53  |C,ADDC,ORMDPM,DS|
0000a960  50 4e 4f 57 2c 45 4e 44  46 4e 43 0d 30 30 36 31  |PNOW,ENDFNC.0061|
0000a970  37 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |7               |
0000a980  20 20 3b 0d 30 30 36 31  38 20 20 20 20 20 20 20  |  ;.00618       |
0000a990  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000a9a0  20 20 53 42 54 48 44 52  20 30 32 2c 46 55 4e 43  |  SBTHDR 02,FUNC|
0000a9b0  53 50 0d 30 30 36 31 39  20 20 20 20 20 20 20 20  |SP.00619        |
0000a9c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000a9d0  20 46 55 4e 43 20 53 49  47 4e 54 52 2c 41 44 44  | FUNC SIGNTR,ADD|
0000a9e0  43 2c 41 44 44 43 2c 4f  52 4d 44 50 4d 2c 44 53  |C,ADDC,ORMDPM,DS|
0000a9f0  50 4e 4f 57 2c 45 4e 44  46 4e 43 0d 30 30 36 32  |PNOW,ENDFNC.0062|
0000aa00  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
0000aa10  20 20 3b 0d 0c 54 65 6b  74 72 6f 6e 69 78 20 20  |  ;..Tektronix  |
0000aa20  20 20 20 20 4d 36 38 30  30 20 41 53 4d 20 56 33  |    M6800 ASM V3|
0000aa30  2e 33 20 20 55 53 45 20  43 4f 4d 4d 2d 52 41 4d  |.3  USE COMM-RAM|
0000aa40  2d 30 35 20 44 49 41 47  20 50 41 52 54 20 b3 20  |-05 DIAG PART . |
0000aa50  20 20 20 50 61 67 65 20  20 20 20 31 39 0d 43 4f  |   Page    19.CO|
0000aa60  4d 2d 52 41 4d 20 54 45  53 54 20 23 20 33 20 20  |M-RAM TEST # 3  |
0000aa70  39 32 30 2d 30 30 30 39  39 2d 30 32 2d c2 0d 0d  |920-00099-02-...|
0000aa80  30 30 36 32 32 20 20 20  20 20 20 20 20 20 20 20  |00622           |
0000aa90  20 20 20 20 20 20 3b 0d  30 30 36 32 33 20 20 20  |      ;.00623   |
0000aaa0  20 20 20 46 39 30 30 20  20 20 20 3e 20 20 20 20  |   F900    >    |
0000aab0  20 20 20 20 20 20 4f 52  47 20 20 20 20 50 42 41  |      ORG    PBA|
0000aac0  53 45 2b 32 35 36 0d 30  30 36 32 34 20 20 20 20  |SE+256.00624    |
0000aad0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
0000aae0  30 36 32 35 20 20 20 20  20 20 20 20 20 20 20 20  |0625            |
0000aaf0  20 20 20 20 20 49 4d 53  47 20 20 20 20 4d 53 47  |     IMSG    MSG|
0000ab00  20 20 20 20 43 4f 4d 4d  2d 52 41 4d 20 50 54 2e  |    COMM-RAM PT.|
0000ab10  20 33 20 56 31 2e 32 0d  30 30 36 32 36 20 20 20  | 3 V1.2.00626   |
0000ab20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 2a  |              ;*|
0000ab30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000ab60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 30 30 36 32  |***********.0062|
0000ab70  37 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |7               |
0000ab80  20 20 3b 0d 30 30 36 32  38 20 20 20 20 20 20 20  |  ;.00628       |
0000ab90  20 20 20 20 20 20 20 20  20 20 3b 20 20 20 20 20  |          ;     |
0000aba0  20 20 20 54 41 42 4c 45  53 0d 30 30 36 32 39 20  |   TABLES.00629 |
0000abb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000abc0  3b 0d 30 30 36 33 30 20  20 20 20 20 20 20 20 20  |;.00630         |
0000abd0  20 20 20 20 20 20 20 20  3b 2a 2a 2a 2a 2a 2a 2a  |        ;*******|
0000abe0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000ac10  2a 2a 2a 2a 2a 0d 30 30  36 33 31 20 20 20 20 20  |*****.00631     |
0000ac20  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
0000ac30  36 33 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |632             |
0000ac40  20 20 20 20 3b 0d 30 30  36 33 33 20 46 39 31 37  |    ;.00633 F917|
0000ac50  20 30 31 20 20 20 20 20  20 20 20 20 57 53 42 54  | 01         WSBT|
0000ac60  42 4c 20 20 20 42 59 54  45 20 20 44 49 56 31 36  |BL   BYTE  DIV16|
0000ac70  2b 42 37 45 50 32 53 0d  30 30 36 33 34 20 46 39  |+B7EP2S.00634 F9|
0000ac80  31 38 20 30 35 20 20 20  20 20 20 20 20 20 20 20  |18 05           |
0000ac90  20 20 20 20 20 20 20 42  59 54 45 20 20 44 49 56  |       BYTE  DIV|
0000aca0  31 36 2b 42 37 4f 50 32  53 0d 30 30 36 33 35 20  |16+B7OP2S.00635 |
0000acb0  46 39 31 39 20 30 39 20  20 20 20 20 20 20 20 20  |F919 09         |
0000acc0  20 20 20 20 20 20 20 20  20 42 59 54 45 20 20 44  |         BYTE  D|
0000acd0  49 56 31 36 2b 42 37 45  50 31 53 0d 30 30 36 33  |IV16+B7EP1S.0063|
0000ace0  36 20 46 39 31 41 20 30  44 20 20 20 20 20 20 20  |6 F91A 0D       |
0000acf0  20 20 20 20 20 20 20 20  20 20 20 42 59 54 45 20  |           BYTE |
0000ad00  20 44 49 56 31 36 2b 42  37 4f 50 31 53 0d 30 30  | DIV16+B7OP1S.00|
0000ad10  36 33 37 20 46 39 31 42  20 38 30 20 20 20 20 20  |637 F91B 80     |
0000ad20  20 20 20 20 20 20 20 20  20 20 20 20 20 42 59 54  |             BYT|
0000ad30  45 20 20 38 30 48 0d 30  30 36 33 38 20 46 39 31  |E  80H.00638 F91|
0000ad40  43 20 31 31 20 20 20 20  20 20 20 20 20 20 20 20  |C 11            |
0000ad50  20 20 20 20 20 20 42 59  54 45 20 20 44 49 56 31  |      BYTE  DIV1|
0000ad60  36 2b 42 38 32 53 0d 30  30 36 33 39 20 46 39 31  |6+B82S.00639 F91|
0000ad70  44 20 31 39 20 20 20 20  20 20 20 20 20 20 20 20  |D 19            |
0000ad80  20 20 20 20 20 20 42 59  54 45 20 20 44 49 56 31  |      BYTE  DIV1|
0000ad90  36 2b 42 38 45 50 31 53  0d 30 30 36 34 30 20 46  |6+B8EP1S.00640 F|
0000ada0  39 31 45 20 31 44 20 20  20 20 20 20 20 20 20 20  |91E 1D          |
0000adb0  20 20 20 20 20 20 20 20  42 59 54 45 20 20 44 49  |        BYTE  DI|
0000adc0  56 31 36 2b 42 38 4f 50  31 53 0d 30 30 36 34 31  |V16+B8OP1S.00641|
0000add0  20 46 39 31 46 20 30 30  20 20 20 20 20 20 20 20  | F91F 00        |
0000ade0  20 20 20 20 20 20 20 20  20 20 42 59 54 45 20 20  |          BYTE  |
0000adf0  30 0d 0c 54 65 6b 74 72  6f 6e 69 78 20 20 20 20  |0..Tektronix    |
0000ae00  20 20 4d 36 38 30 30 20  41 53 4d 20 56 33 2e 33  |  M6800 ASM V3.3|
0000ae10  20 20 55 53 45 20 43 4f  4d 4d 2d 52 41 4d 2d 30  |  USE COMM-RAM-0|
0000ae20  35 20 44 49 41 47 20 50  41 52 54 20 b3 20 20 20  |5 DIAG PART .   |
0000ae30  20 50 61 67 65 20 20 20  20 32 30 0d 43 4f 4d 2d  | Page    20.COM-|
0000ae40  52 41 4d 20 54 45 53 54  20 23 20 33 20 20 39 32  |RAM TEST # 3  92|
0000ae50  30 2d 30 30 30 39 39 2d  30 32 2d c2 0d 0d 30 30  |0-00099-02-...00|
0000ae60  36 34 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |643             |
0000ae70  20 20 20 20 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |    ;***********|
0000ae80  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000aea0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 30 30  |*************.00|
0000aeb0  36 34 34 20 20 20 20 20  20 20 20 20 20 20 20 20  |644             |
0000aec0  20 20 20 20 3b 0d 30 30  36 34 35 20 20 20 20 20  |    ;.00645     |
0000aed0  20 20 20 20 20 20 20 20  20 20 20 20 3b 54 49 4d  |            ;TIM|
0000aee0  45 52 20 53 55 42 2d 52  4f 55 54 49 4e 45 0d 30  |ER SUB-ROUTINE.0|
0000aef0  30 36 34 36 20 20 20 20  20 20 20 20 20 20 20 20  |0646            |
0000af00  20 20 20 20 20 3b 0d 30  30 36 34 37 20 20 20 20  |     ;.00647    |
0000af10  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 2a 2a  |             ;**|
0000af20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000af50  2a 2a 2a 2a 2a 2a 0d 30  30 36 34 38 20 20 20 20  |******.00648    |
0000af60  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
0000af70  30 36 34 39 20 20 20 20  20 20 20 20 20 20 20 20  |0649            |
0000af80  20 20 20 20 20 3b 0d 30  30 36 35 30 20 20 20 20  |     ;.00650    |
0000af90  20 20 46 39 32 30 20 20  20 20 3e 20 20 54 4d 52  |  F920    >  TMR|
0000afa0  39 35 20 20 20 20 45 51  55 20 20 20 24 0d 30 30  |95    EQU   $.00|
0000afb0  36 35 31 20 46 39 32 30  20 37 41 46 38 31 42 20  |651 F920 7AF81B |
0000afc0  20 3e 20 20 20 20 20 20  20 20 20 20 20 44 45 43  | >           DEC|
0000afd0  20 20 20 43 4e 54 39 35  31 20 20 20 20 20 20 20  |   CNT951       |
0000afe0  20 20 3b 44 45 43 52 45  4d 45 4e 54 0d 30 30 36  |  ;DECREMENT.006|
0000aff0  35 32 20 46 39 32 33 20  32 36 46 42 20 20 20 20  |52 F923 26FB    |
0000b000  20 20 20 20 20 20 20 20  20 20 20 20 42 4e 45 20  |            BNE |
0000b010  20 20 54 4d 52 39 35 20  20 20 20 20 20 20 20 20  |  TMR95         |
0000b020  20 3b 42 4f 54 48 20 43  4f 4e 54 45 52 53 0d 30  | ;BOTH CONTERS.0|
0000b030  30 36 35 33 20 46 39 32  35 20 37 41 46 38 31 43  |0653 F925 7AF81C|
0000b040  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 44 45  |  >           DE|
0000b050  43 20 20 20 43 4e 54 39  35 32 20 20 20 20 20 20  |C   CNT952      |
0000b060  20 20 20 3b 54 4f 20 5a  45 52 4f 0d 30 30 36 35  |   ;TO ZERO.0065|
0000b070  34 20 46 39 32 38 20 32  36 46 36 20 20 20 20 20  |4 F928 26F6     |
0000b080  20 20 20 20 20 20 20 20  20 20 20 42 4e 45 20 20  |           BNE  |
0000b090  20 54 4d 52 39 35 20 20  20 20 20 20 20 20 20 20  | TMR95          |
0000b0a0  3b 54 48 45 4e 0d 30 30  36 35 35 20 46 39 32 41  |;THEN.00655 F92A|
0000b0b0  20 33 39 20 20 20 20 20  20 20 20 20 20 20 20 20  | 39             |
0000b0c0  20 20 20 20 20 52 54 53  20 20 20 20 20 20 20 20  |     RTS        |
0000b0d0  20 20 20 20 20 20 20 20  20 20 3b 42 41 49 4c 20  |          ;BAIL |
0000b0e0  4f 55 54 0d 30 30 36 35  36 20 20 20 20 20 20 20  |OUT.00656       |
0000b0f0  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 36 35  |          ;.0065|
0000b100  37 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |7               |
0000b110  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
0000b120  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000b150  2a 2a 2a 2a 2a 2a 2a 2a  0d 30 30 36 35 38 20 20  |********.00658  |
0000b160  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000b170  0d 30 30 36 35 39 20 20  20 20 20 20 20 20 20 20  |.00659          |
0000b180  20 20 20 20 20 20 20 3b  54 53 39 36 30 30 20 53  |       ;TS9600 S|
0000b190  55 42 2d 52 4f 55 54 49  4e 45 0d 30 30 36 36 30  |UB-ROUTINE.00660|
0000b1a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000b1b0  20 3b 53 45 54 53 20 54  49 4d 45 52 20 54 4f 20  | ;SETS TIMER TO |
0000b1c0  39 36 30 30 20 42 41 55  44 0d 30 30 36 36 31 20  |9600 BAUD.00661 |
0000b1d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000b1e0  3b 54 49 4d 45 20 4f 55  54 0d 30 30 36 36 32 20  |;TIME OUT.00662 |
0000b1f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000b200  3b 0d 30 30 36 36 33 20  20 20 20 20 20 20 20 20  |;.00663         |
0000b210  20 20 20 20 20 20 20 20  3b 2a 2a 2a 2a 2a 2a 2a  |        ;*******|
0000b220  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000b250  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 30  |**************.0|
0000b260  30 36 36 34 20 20 20 20  20 20 20 20 20 20 20 20  |0664            |
0000b270  20 20 20 20 20 3b 0d 30  30 36 36 35 20 20 20 20  |     ;.00665    |
0000b280  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
0000b290  30 36 36 36 20 20 20 20  20 20 46 39 32 42 20 20  |0666      F92B  |
0000b2a0  20 20 3e 20 20 54 53 39  36 30 30 20 20 20 45 51  |  >  TS9600   EQ|
0000b2b0  55 20 20 20 24 20 20 20  20 20 20 20 20 20 20 20  |U   $           |
0000b2c0  20 20 20 3b 53 54 41 52  54 0d 30 30 36 36 37 20  |   ;START.00667 |
0000b2d0  46 39 32 42 20 39 36 37  37 20 20 20 20 20 20 20  |F92B 9677       |
0000b2e0  20 20 20 20 20 20 20 20  20 4c 44 41 20 41 20 54  |         LDA A T|
0000b2f0  49 4d 39 36 31 0d 30 30  36 36 38 20 46 39 32 44  |IM961.00668 F92D|
0000b300  20 42 37 46 38 31 42 20  20 3e 20 20 20 20 20 20  | B7F81B  >      |
0000b310  20 20 20 20 20 53 54 41  20 41 20 43 4e 54 39 35  |     STA A CNT95|
0000b320  31 0d 30 30 36 36 39 20  46 39 33 30 20 39 36 30  |1.00669 F930 960|
0000b330  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
0000b340  20 4c 44 41 20 41 20 54  49 4d 39 36 32 0d 30 30  | LDA A TIM962.00|
0000b350  36 37 30 20 46 39 33 32  20 42 37 46 38 31 43 20  |670 F932 B7F81C |
0000b360  20 3e 20 20 20 20 20 20  20 20 20 20 20 53 54 41  | >           STA|
0000b370  20 41 20 43 4e 54 39 35  32 0d 30 30 36 37 31 20  | A CNT952.00671 |
0000b380  46 39 33 35 20 33 39 20  20 20 20 20 20 20 20 20  |F935 39         |
0000b390  20 20 20 20 20 20 20 20  20 52 54 53 20 20 20 20  |         RTS    |
0000b3a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 52  |              ;R|
0000b3b0  45 54 55 52 4e 0d 30 30  36 37 32 20 20 20 20 20  |ETURN.00672     |
0000b3c0  20 20 20 20 20 20 20 20  20 20 20 20 3b 2a 2a 2a  |            ;***|
0000b3d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000b400  2a 2a 2a 2a 2a 0d 30 30  36 37 33 20 20 20 20 20  |*****.00673     |
0000b410  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
0000b420  36 37 34 20 20 20 20 20  20 20 20 20 20 20 20 20  |674             |
0000b430  20 20 20 20 3b 52 44 53  54 41 54 20 53 55 42 2d  |    ;RDSTAT SUB-|
0000b440  52 4f 55 54 49 4e 45 0d  30 30 36 37 35 20 20 20  |ROUTINE.00675   |
0000b450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 28  |              ;(|
0000b460  52 45 41 44 20 53 54 41  54 55 53 29 0d 30 30 36  |READ STATUS).006|
0000b470  37 36 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |76              |
0000b480  20 20 20 3b 52 45 41 44  53 20 54 48 45 20 53 54  |   ;READS THE ST|
0000b490  41 54 55 53 20 4f 46 20  54 48 45 20 50 4f 52 54  |ATUS OF THE PORT|
0000b4a0  0d 30 30 36 37 37 20 20  20 20 20 20 20 20 20 20  |.00677          |
0000b4b0  20 20 20 20 20 20 20 3b  43 4f 4d 50 41 52 45 53  |       ;COMPARES|
0000b4c0  20 54 4f 20 45 58 50 45  43 54 45 44 20 53 54 41  | TO EXPECTED STA|
0000b4d0  54 55 53 0d 30 30 36 37  38 20 20 20 20 20 20 20  |TUS.00678       |
0000b4e0  20 20 20 20 20 20 20 20  20 20 3b 41 4e 44 20 50  |          ;AND P|
0000b4f0  55 54 53 20 4f 55 54 20  45 52 52 4f 52 20 4d 53  |UTS OUT ERROR MS|
0000b500  47 20 31 0d 30 30 36 37  39 20 20 20 20 20 20 20  |G 1.00679       |
0000b510  20 20 20 20 20 20 20 20  20 20 3b 4e 4f 54 20 41  |          ;NOT A|
0000b520  4c 49 4b 45 0d 30 30 36  38 30 20 20 20 20 20 20  |LIKE.00680      |
0000b530  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 30 36  |           ;.006|
0000b540  38 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |81              |
0000b550  20 20 20 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |   ;************|
0000b560  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000b580  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 30 30 36  |************.006|
0000b590  38 32 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |82              |
0000b5a0  20 20 20 3b 0d 30 30 36  38 33 20 20 20 20 20 20  |   ;.00683      |
0000b5b0  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 30 36  |           ;.006|
0000b5c0  38 34 20 20 20 20 20 20  46 39 33 36 20 20 20 20  |84      F936    |
0000b5d0  3e 20 20 52 44 53 54 41  54 20 20 20 45 51 55 20  |>  RDSTAT   EQU |
0000b5e0  20 20 24 20 20 20 20 20  20 20 20 20 20 20 20 20  |  $             |
0000b5f0  20 3b 53 54 41 52 54 0d  30 30 36 38 35 20 46 39  | ;START.00685 F9|
0000b600  33 36 20 46 46 46 38 33  32 20 20 3e 20 20 20 20  |36 FFF832  >    |
0000b610  20 20 20 20 20 20 20 53  54 58 20 20 20 53 41 56  |       STX   SAV|
0000b620  58 0d 30 30 36 38 36 20  46 39 33 39 20 46 45 46  |X.00686 F939 FEF|
0000b630  38 31 35 20 20 3e 20 20  20 20 20 20 20 20 20 20  |815  >          |
0000b640  20 4c 44 58 20 20 20 53  54 41 50 4f 52 54 0d 30  | LDX   STAPORT.0|
0000b650  30 36 38 37 20 46 39 33  43 20 41 36 30 30 20 20  |0687 F93C A600  |
0000b660  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4c 44  |              LD|
0000b670  41 20 41 20 30 2c 58 20  20 20 20 20 20 20 20 3b  |A A 0,X        ;|
0000b680  52 45 41 44 20 54 48 45  20 53 54 41 54 55 53 20  |READ THE STATUS |
0000b690  50 4f 52 54 0d 30 30 36  38 38 20 46 39 33 45 20  |PORT.00688 F93E |
0000b6a0  42 37 46 38 31 39 20 20  3e 20 20 20 20 20 20 20  |B7F819  >       |
0000b6b0  20 20 20 20 53 54 41 20  41 20 53 54 41 54 52 44  |    STA A STATRD|
0000b6c0  0d 30 30 36 38 39 20 46  39 34 31 20 37 44 46 38  |.00689 F941 7DF8|
0000b6d0  30 31 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |01  >           |
0000b6e0  54 53 54 20 20 20 53 49  47 46 4c 47 20 20 20 20  |TST   SIGFLG    |
0000b6f0  20 20 20 20 20 3b 49 54  20 46 41 4b 49 4e 47 20  |     ;IT FAKING |
0000b700  53 49 47 4e 41 54 55 52  45 53 0d 30 30 36 39 30  |SIGNATURES.00690|
0000b710  20 46 39 34 34 20 32 36  30 42 20 20 20 20 20 20  | F944 260B      |
0000b720  20 20 20 20 20 20 20 20  20 20 42 4e 45 20 20 20  |          BNE   |
0000b730  46 49 4e 49 20 20 20 20  20 20 20 20 20 20 20 3b  |FINI           ;|
0000b740  47 4f 20 54 4f 20 52 45  54 55 52 4e 0d 30 30 36  |GO TO RETURN.006|
0000b750  39 31 20 46 39 34 36 20  42 31 46 38 31 33 20 20  |91 F946 B1F813  |
0000b760  3e 20 20 20 20 20 20 20  20 20 20 20 43 4d 50 20  |>           CMP |
0000b770  41 20 45 58 50 53 54 41  20 20 20 20 20 20 20 20  |A EXPSTA        |
0000b780  20 3b 53 54 41 54 55 53  3d 45 58 50 45 43 54 20  | ;STATUS=EXPECT |
0000b790  53 54 41 54 55 53 3f 0d  30 30 36 39 32 20 46 39  |STATUS?.00692 F9|
0000b7a0  34 39 20 32 37 30 36 20  20 20 20 20 20 20 20 20  |49 2706         |
0000b7b0  20 20 20 20 20 20 20 42  45 51 20 20 20 46 49 4e  |       BEQ   FIN|
0000b7c0  49 20 20 20 20 20 20 20  20 20 20 20 3b 59 45 53  |I           ;YES|
0000b7d0  20 52 45 54 55 52 4e 0d  30 30 36 39 33 20 46 39  | RETURN.00693 F9|
0000b7e0  34 42 20 43 45 46 43 41  31 20 20 3e 20 20 20 20  |4B CEFCA1  >    |
0000b7f0  20 20 20 20 20 20 20 4c  44 58 20 20 20 23 41 43  |       LDX   #AC|
0000b800  53 54 45 52 20 20 20 20  20 20 20 20 3b 0d 30 30  |STER        ;.00|
0000b810  36 39 34 20 46 39 34 45  20 42 44 46 44 45 30 20  |694 F94E BDFDE0 |
0000b820  20 3e 20 20 20 20 20 20  20 20 20 20 20 4a 53 52  | >           JSR|
0000b830  20 20 20 45 52 52 4f 55  54 20 20 20 20 20 20 20  |   ERROUT       |
0000b840  20 20 3b 53 54 41 54 55  53 20 45 52 52 4f 52 20  |  ;STATUS ERROR |
0000b850  4d 45 53 53 41 47 45 0d  0c 54 65 6b 74 72 6f 6e  |MESSAGE..Tektron|
0000b860  69 78 20 20 20 20 20 20  4d 36 38 30 30 20 41 53  |ix      M6800 AS|
0000b870  4d 20 56 33 2e 33 20 20  55 53 45 20 43 4f 4d 4d  |M V3.3  USE COMM|
0000b880  2d 52 41 4d 2d 30 35 20  44 49 41 47 20 50 41 52  |-RAM-05 DIAG PAR|
0000b890  54 20 b3 20 20 20 20 50  61 67 65 20 20 20 20 32  |T .    Page    2|
0000b8a0  31 0d 43 4f 4d 2d 52 41  4d 20 54 45 53 54 20 23  |1.COM-RAM TEST #|
0000b8b0  20 33 20 20 39 32 30 2d  30 30 30 39 39 2d 30 32  | 3  920-00099-02|
0000b8c0  2d c2 0d 0d 30 30 36 39  35 20 46 39 35 31 20 46  |-...00695 F951 F|
0000b8d0  45 46 38 33 32 20 20 3e  20 20 46 49 4e 49 20 20  |EF832  >  FINI  |
0000b8e0  20 20 20 4c 44 58 20 20  20 53 41 56 58 20 20 20  |   LDX   SAVX   |
0000b8f0  20 20 20 20 20 20 20 20  3b 52 45 53 54 4f 52 45  |        ;RESTORE|
0000b900  20 58 20 52 45 47 0d 30  30 36 39 36 20 46 39 35  | X REG.00696 F95|
0000b910  34 20 33 39 20 20 20 20  20 20 20 20 20 20 20 20  |4 39            |
0000b920  20 20 20 20 20 20 52 54  53 20 20 20 20 20 20 20  |      RTS       |
0000b930  20 20 20 20 20 20 20 20  20 20 20 3b 52 45 54 55  |           ;RETU|
0000b940  52 4e 0d 0c 54 65 6b 74  72 6f 6e 69 78 20 20 20  |RN..Tektronix   |
0000b950  20 20 20 4d 36 38 30 30  20 41 53 4d 20 56 33 2e  |   M6800 ASM V3.|
0000b960  33 20 20 55 53 45 20 43  4f 4d 4d 2d 52 41 4d 2d  |3  USE COMM-RAM-|
0000b970  30 35 20 44 49 41 47 20  50 41 52 54 20 b3 20 20  |05 DIAG PART .  |
0000b980  20 20 50 61 67 65 20 20  20 20 32 32 0d 43 4f 4d  |  Page    22.COM|
0000b990  2d 52 41 4d 20 54 45 53  54 20 23 20 33 20 20 39  |-RAM TEST # 3  9|
0000b9a0  32 30 2d 30 30 30 39 39  2d 30 32 2d c2 0d 0d 30  |20-00099-02-...0|
0000b9b0  30 36 39 38 20 20 20 20  20 20 20 20 20 20 20 20  |0698            |
0000b9c0  20 20 20 20 20 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |     ;**********|
0000b9d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000b9f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 30 30  |*************.00|
0000ba00  36 39 39 20 20 20 20 20  20 20 20 20 20 20 20 20  |699             |
0000ba10  20 20 20 20 3b 0d 30 30  37 30 30 20 20 20 20 20  |    ;.00700     |
0000ba20  20 20 20 20 20 20 20 20  20 20 20 20 3b 52 44 44  |            ;RDD|
0000ba30  54 41 20 53 55 42 3a 52  4f 55 54 49 4e 45 0d 30  |TA SUB:ROUTINE.0|
0000ba40  30 37 30 31 20 20 20 20  20 20 20 20 20 20 20 20  |0701            |
0000ba50  20 20 20 20 20 3b 28 52  45 41 44 20 44 41 54 41  |     ;(READ DATA|
0000ba60  29 0d 30 30 37 30 32 20  20 20 20 20 20 20 20 20  |).00702         |
0000ba70  20 20 20 20 20 20 20 20  3b 52 45 41 44 53 20 44  |        ;READS D|
0000ba80  41 54 41 20 50 4f 52 54  20 41 4e 44 20 43 4f 4d  |ATA PORT AND COM|
0000ba90  50 41 52 45 53 20 54 4f  0d 30 30 37 30 33 20 20  |PARES TO.00703  |
0000baa0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000bab0  45 58 50 45 43 54 44 20  44 41 54 41 2d 44 49 53  |EXPECTD DATA-DIS|
0000bac0  50 4c 41 59 53 20 45 52  52 4f 52 0d 30 30 37 30  |PLAYS ERROR.0070|
0000bad0  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
0000bae0  20 20 3b 4d 53 47 20 49  46 20 4e 4f 54 20 41 4c  |  ;MSG IF NOT AL|
0000baf0  49 4b 45 0d 30 30 37 30  35 20 20 20 20 20 20 20  |IKE.00705       |
0000bb00  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 37 30  |          ;.0070|
0000bb10  36 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |6               |
0000bb20  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
0000bb30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000bb50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 30 30 37 30 37  |**********.00707|
0000bb60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000bb70  20 3b 0d 30 30 37 30 38  20 20 20 20 20 20 20 20  | ;.00708        |
0000bb80  20 20 20 20 20 20 20 20  20 3b 0d 30 30 37 30 39  |         ;.00709|
0000bb90  20 20 20 20 20 20 46 39  35 35 20 20 20 20 3e 20  |      F955    > |
0000bba0  20 52 44 44 54 41 20 20  20 20 45 51 55 20 20 20  | RDDTA    EQU   |
0000bbb0  24 0d 30 30 37 31 30 20  46 39 35 35 20 46 46 46  |$.00710 F955 FFF|
0000bbc0  38 33 32 20 20 3e 20 20  20 20 20 20 20 20 20 20  |832  >          |
0000bbd0  20 53 54 58 20 20 20 53  41 56 58 0d 30 30 37 31  | STX   SAVX.0071|
0000bbe0  31 20 46 39 35 38 20 46  45 46 38 31 37 20 20 3e  |1 F958 FEF817  >|
0000bbf0  20 20 20 20 20 20 20 20  20 20 20 4c 44 58 20 20  |           LDX  |
0000bc00  20 44 54 41 50 4f 52 54  0d 30 30 37 31 32 20 46  | DTAPORT.00712 F|
0000bc10  39 35 42 20 41 36 30 30  20 20 20 20 20 20 20 20  |95B A600        |
0000bc20  20 20 20 20 20 20 20 20  4c 44 41 20 41 20 30 2c  |        LDA A 0,|
0000bc30  58 20 20 20 20 20 20 20  20 3b 52 45 41 44 20 54  |X        ;READ T|
0000bc40  48 45 20 44 41 54 41 0d  30 30 37 31 33 20 46 39  |HE DATA.00713 F9|
0000bc50  35 44 20 42 37 46 38 31  41 20 20 3e 20 20 20 20  |5D B7F81A  >    |
0000bc60  20 20 20 20 20 20 20 53  54 41 20 41 20 44 54 41  |       STA A DTA|
0000bc70  52 44 0d 30 30 37 31 34  20 46 39 36 30 20 37 44  |RD.00714 F960 7D|
0000bc80  46 38 30 31 20 20 3e 20  20 20 20 20 20 20 20 20  |F801  >         |
0000bc90  20 20 54 53 54 20 20 20  53 49 47 46 4c 47 20 20  |  TST   SIGFLG  |
0000bca0  20 20 20 20 20 20 20 3b  49 46 20 54 41 4b 49 4e  |       ;IF TAKIN|
0000bcb0  47 20 53 49 47 4e 41 54  55 52 45 53 0d 30 30 37  |G SIGNATURES.007|
0000bcc0  31 35 20 46 39 36 33 20  32 36 30 42 20 20 20 20  |15 F963 260B    |
0000bcd0  20 20 20 20 20 20 20 20  20 20 20 20 42 4e 45 20  |            BNE |
0000bce0  20 20 46 49 4e 4f 20 20  20 20 20 20 20 20 20 20  |  FINO          |
0000bcf0  20 3b 47 4f 20 54 4f 20  52 45 54 55 52 4e 0d 30  | ;GO TO RETURN.0|
0000bd00  30 37 31 36 20 46 39 36  35 20 42 31 46 38 33 31  |0716 F965 B1F831|
0000bd10  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 43 4d  |  >           CM|
0000bd20  50 20 41 20 45 58 50 44  54 41 20 20 20 20 20 20  |P A EXPDTA      |
0000bd30  20 20 20 3b 45 58 50 45  43 54 20 44 41 54 41 3d  |   ;EXPECT DATA=|
0000bd40  41 43 54 55 41 4c 20 44  41 54 41 3f 0d 30 30 37  |ACTUAL DATA?.007|
0000bd50  31 37 20 46 39 36 38 20  32 37 30 36 20 20 20 20  |17 F968 2706    |
0000bd60  20 20 20 20 20 20 20 20  20 20 20 20 42 45 51 20  |            BEQ |
0000bd70  20 20 46 49 4e 4f 20 20  20 20 20 20 20 20 20 20  |  FINO          |
0000bd80  20 3b 59 45 53 2d 47 4f  20 54 4f 20 52 45 54 55  | ;YES-GO TO RETU|
0000bd90  52 4e 0d 30 30 37 31 38  20 46 39 36 41 20 43 45  |RN.00718 F96A CE|
0000bda0  46 43 45 41 20 20 3e 20  20 20 20 20 20 20 20 20  |FCEA  >         |
0000bdb0  20 20 4c 44 58 20 20 20  23 41 43 44 54 45 52 20  |  LDX   #ACDTER |
0000bdc0  20 20 20 20 20 20 20 3b  50 55 54 20 4f 55 54 0d  |       ;PUT OUT.|
0000bdd0  30 30 37 31 39 20 46 39  36 44 20 42 44 46 44 45  |00719 F96D BDFDE|
0000bde0  30 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 4a  |0  >           J|
0000bdf0  53 52 20 20 20 45 52 52  4f 55 54 20 20 20 20 20  |SR   ERROUT     |
0000be00  20 20 20 20 3b 44 41 54  41 20 45 52 52 4f 52 20  |    ;DATA ERROR |
0000be10  4d 45 53 53 41 47 45 0d  30 30 37 32 30 20 46 39  |MESSAGE.00720 F9|
0000be20  37 30 20 46 45 46 38 33  32 20 20 3e 20 20 46 49  |70 FEF832  >  FI|
0000be30  4e 4f 20 20 20 20 20 4c  44 58 20 20 20 53 41 56  |NO     LDX   SAV|
0000be40  58 20 20 20 20 20 20 20  20 20 20 20 3b 52 45 53  |X           ;RES|
0000be50  54 4f 52 45 20 58 20 52  45 47 0d 30 30 37 32 31  |TORE X REG.00721|
0000be60  20 46 39 37 33 20 33 39  20 20 20 20 20 20 20 20  | F973 39        |
0000be70  20 20 20 20 20 20 20 20  20 20 52 54 53 20 20 20  |          RTS   |
0000be80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000be90  52 45 54 55 52 4e 0d 0c  54 65 6b 74 72 6f 6e 69  |RETURN..Tektroni|
0000bea0  78 20 20 20 20 20 20 4d  36 38 30 30 20 41 53 4d  |x      M6800 ASM|
0000beb0  20 56 33 2e 33 20 20 55  53 45 20 43 4f 4d 4d 2d  | V3.3  USE COMM-|
0000bec0  52 41 4d 2d 30 35 20 44  49 41 47 20 50 41 52 54  |RAM-05 DIAG PART|
0000bed0  20 b3 20 20 20 20 50 61  67 65 20 20 20 20 32 33  | .    Page    23|
0000bee0  0d 43 4f 4d 2d 52 41 4d  20 54 45 53 54 20 23 20  |.COM-RAM TEST # |
0000bef0  33 20 20 39 32 30 2d 30  30 30 39 39 2d 30 32 2d  |3  920-00099-02-|
0000bf00  c2 0d 0d 30 30 37 32 33  20 20 20 20 20 20 20 20  |...00723        |
0000bf10  20 20 20 20 20 20 20 20  20 3b 2a 2a 2a 2a 2a 2a  |         ;******|
0000bf20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000bf50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
0000bf60  30 30 37 32 34 20 20 20  20 20 20 20 20 20 20 20  |00724           |
0000bf70  20 20 20 20 20 20 3b 0d  30 30 37 32 35 20 20 20  |      ;.00725   |
0000bf80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 53  |              ;S|
0000bf90  50 4f 52 54 31 20 53 55  42 2d 52 4f 55 54 49 4e  |PORT1 SUB-ROUTIN|
0000bfa0  45 0d 30 30 37 32 36 20  20 20 20 20 20 20 20 20  |E.00726         |
0000bfb0  20 20 20 20 20 20 20 20  3b 53 45 54 53 20 55 50  |        ;SETS UP|
0000bfc0  20 50 4f 52 54 20 50 4f  49 4e 54 45 52 53 20 54  | PORT POINTERS T|
0000bfd0  4f 20 50 4f 52 54 20 31  0d 30 30 37 32 37 20 20  |O PORT 1.00727  |
0000bfe0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000bff0  0d 30 30 37 32 38 20 20  20 20 20 20 20 20 20 20  |.00728          |
0000c000  20 20 20 20 20 20 20 3b  2a 2a 2a 2a 2a 2a 2a 2a  |       ;********|
0000c010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000c040  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 30 30  |*************.00|
0000c050  37 32 39 20 20 20 20 20  20 20 20 20 20 20 20 20  |729             |
0000c060  20 20 20 20 3b 0d 30 30  37 33 30 20 20 20 20 20  |    ;.00730     |
0000c070  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
0000c080  37 33 31 20 20 20 20 20  20 46 39 37 34 20 20 20  |731      F974   |
0000c090  20 3e 20 20 53 50 4f 52  54 31 20 20 20 45 51 55  | >  SPORT1   EQU|
0000c0a0  20 20 20 24 20 20 20 20  20 20 20 20 20 20 20 20  |   $            |
0000c0b0  20 20 3b 53 54 41 52 54  0d 30 30 37 33 32 20 46  |  ;START.00732 F|
0000c0c0  39 37 34 20 46 46 46 38  33 32 20 20 3e 20 20 20  |974 FFF832  >   |
0000c0d0  20 20 20 20 20 20 20 20  53 54 58 20 20 20 53 41  |        STX   SA|
0000c0e0  56 58 20 20 20 20 20 20  20 20 20 20 20 3b 53 41  |VX           ;SA|
0000c0f0  56 45 20 58 20 52 45 47  0d 30 30 37 33 33 20 46  |VE X REG.00733 F|
0000c100  39 37 37 20 43 45 32 30  31 43 20 20 20 20 20 20  |977 CE201C      |
0000c110  20 20 20 20 20 20 20 20  4c 44 58 20 20 20 23 43  |        LDX   #C|
0000c120  52 41 43 53 43 20 20 20  20 20 20 20 20 20 3b 50  |RACSC         ;P|
0000c130  4f 52 54 20 31 0d 30 30  37 33 34 20 46 39 37 41  |ORT 1.00734 F97A|
0000c140  20 46 46 46 38 31 35 20  20 3e 20 20 20 20 20 20  | FFF815  >      |
0000c150  20 20 20 20 20 53 54 58  20 20 20 53 54 41 50 4f  |     STX   STAPO|
0000c160  52 54 20 20 20 20 20 20  20 20 3b 53 54 41 54 55  |RT        ;STATU|
0000c170  53 20 26 20 43 4f 4e 54  52 4f 4c 20 41 44 44 52  |S & CONTROL ADDR|
0000c180  45 53 53 0d 30 30 37 33  35 20 46 39 37 44 20 43  |ESS.00735 F97D C|
0000c190  45 32 30 31 42 20 20 20  20 20 20 20 20 20 20 20  |E201B           |
0000c1a0  20 20 20 4c 44 58 20 20  20 23 43 52 41 43 44 41  |   LDX   #CRACDA|
0000c1b0  20 20 20 20 20 20 20 20  20 3b 50 4f 52 54 20 31  |         ;PORT 1|
0000c1c0  0d 30 30 37 33 36 20 46  39 38 30 20 46 46 46 38  |.00736 F980 FFF8|
0000c1d0  31 37 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |17  >           |
0000c1e0  53 54 58 20 20 20 44 54  41 50 4f 52 54 20 20 20  |STX   DTAPORT   |
0000c1f0  20 20 20 20 20 3b 44 41  54 41 20 41 44 44 52 45  |     ;DATA ADDRE|
0000c200  53 53 0d 30 30 37 33 37  20 46 39 38 33 20 38 36  |SS.00737 F983 86|
0000c210  30 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |01              |
0000c220  20 20 4c 44 41 20 41 20  23 30 31 48 20 20 20 20  |  LDA A #01H    |
0000c230  20 20 20 20 20 20 20 3b  50 4f 52 54 20 23 31 0d  |       ;PORT #1.|
0000c240  30 30 37 33 38 20 46 39  38 35 20 42 37 46 38 31  |00738 F985 B7F81|
0000c250  46 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 53  |F  >           S|
0000c260  54 41 20 41 20 50 4f 52  54 4e 20 20 20 20 20 20  |TA A PORTN      |
0000c270  20 20 20 20 3b 46 4f 52  20 44 49 53 50 4c 41 59  |    ;FOR DISPLAY|
0000c280  0d 30 30 37 33 39 20 46  39 38 38 20 46 45 46 38  |.00739 F988 FEF8|
0000c290  33 32 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |32  >           |
0000c2a0  4c 44 58 20 20 20 53 41  56 58 20 20 20 20 20 20  |LDX   SAVX      |
0000c2b0  20 20 20 20 20 3b 52 45  53 54 4f 52 45 20 58 20  |     ;RESTORE X |
0000c2c0  52 45 47 0d 30 30 37 34  30 20 46 39 38 42 20 33  |REG.00740 F98B 3|
0000c2d0  39 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9               |
0000c2e0  20 20 20 52 54 53 20 20  20 20 20 20 20 20 20 20  |   RTS          |
0000c2f0  20 20 20 20 20 20 20 20  3b 52 45 54 55 52 4e 0d  |        ;RETURN.|
0000c300  30 30 37 34 31 20 20 20  20 20 20 20 20 20 20 20  |00741           |
0000c310  20 20 20 20 20 20 3b 2a  2a 2a 2a 2a 2a 2a 2a 2a  |      ;*********|
0000c320  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000c350  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 30 30 37  |************.007|
0000c360  34 32 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |42              |
0000c370  20 20 20 3b 0d 30 30 37  34 33 20 20 20 20 20 20  |   ;.00743      |
0000c380  20 20 20 20 20 20 20 20  20 20 20 3b 53 50 4f 52  |           ;SPOR|
0000c390  54 32 20 53 55 42 2d 52  4f 55 54 49 4e 45 0d 30  |T2 SUB-ROUTINE.0|
0000c3a0  30 37 34 34 20 20 20 20  20 20 20 20 20 20 20 20  |0744            |
0000c3b0  20 20 20 20 20 3b 53 45  54 53 20 55 50 20 50 4f  |     ;SETS UP PO|
0000c3c0  52 54 20 50 4f 49 4e 54  45 52 53 20 54 4f 20 50  |RT POINTERS TO P|
0000c3d0  4f 52 54 20 32 0d 30 30  37 34 35 20 20 20 20 20  |ORT 2.00745     |
0000c3e0  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
0000c3f0  37 34 36 20 20 20 20 20  20 20 20 20 20 20 20 20  |746             |
0000c400  20 20 20 20 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |    ;***********|
0000c410  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000c440  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 30 30 37 34 37  |**********.00747|
0000c450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000c460  20 3b 0d 30 30 37 34 38  20 20 20 20 20 20 20 20  | ;.00748        |
0000c470  20 20 20 20 20 20 20 20  20 3b 0d 30 30 37 34 39  |         ;.00749|
0000c480  20 20 20 20 20 20 46 39  38 43 20 20 20 20 3e 20  |      F98C    > |
0000c490  20 53 50 4f 52 54 32 20  20 20 45 51 55 20 20 20  | SPORT2   EQU   |
0000c4a0  24 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |$              ;|
0000c4b0  53 54 41 52 54 0d 30 30  37 35 30 20 46 39 38 43  |START.00750 F98C|
0000c4c0  20 46 46 46 38 33 32 20  20 3e 20 20 20 20 20 20  | FFF832  >      |
0000c4d0  20 20 20 20 20 53 54 58  20 20 20 53 41 56 58 20  |     STX   SAVX |
0000c4e0  20 20 20 20 20 20 20 20  20 20 3b 53 41 56 45 20  |          ;SAVE |
0000c4f0  58 20 52 45 47 0d 30 30  37 35 31 20 46 39 38 46  |X REG.00751 F98F|
0000c500  20 43 45 32 30 31 46 20  20 20 20 20 20 20 20 20  | CE201F         |
0000c510  20 20 20 20 20 4c 44 58  20 20 20 23 43 52 41 43  |     LDX   #CRAC|
0000c520  53 43 32 20 20 20 20 20  20 20 20 3b 50 4f 52 54  |SC2        ;PORT|
0000c530  20 32 0d 30 30 37 35 32  20 46 39 39 32 20 46 46  | 2.00752 F992 FF|
0000c540  46 38 31 35 20 20 3e 20  20 20 20 20 20 20 20 20  |F815  >         |
0000c550  20 20 53 54 58 20 20 20  53 54 41 50 4f 52 54 20  |  STX   STAPORT |
0000c560  20 20 20 20 20 20 20 3b  53 54 41 54 55 53 20 26  |       ;STATUS &|
0000c570  20 43 4f 4e 54 52 4f 4c  20 41 44 44 52 45 53 53  | CONTROL ADDRESS|
0000c580  0d 30 30 37 35 33 20 46  39 39 35 20 43 45 32 30  |.00753 F995 CE20|
0000c590  31 45 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1E              |
0000c5a0  4c 44 58 20 20 20 23 43  52 41 43 44 41 32 20 20  |LDX   #CRACDA2  |
0000c5b0  20 20 20 20 20 20 3b 50  4f 52 54 20 32 0d 30 30  |      ;PORT 2.00|
0000c5c0  37 35 34 20 46 39 39 38  20 46 46 46 38 31 37 20  |754 F998 FFF817 |
0000c5d0  20 3e 20 20 20 20 20 20  20 20 20 20 20 53 54 58  | >           STX|
0000c5e0  20 20 20 44 54 41 50 4f  52 54 20 20 20 20 20 20  |   DTAPORT      |
0000c5f0  20 20 3b 44 41 54 41 20  41 44 44 52 45 53 53 0d  |  ;DATA ADDRESS.|
0000c600  30 30 37 35 35 20 46 39  39 42 20 38 36 30 32 20  |00755 F99B 8602 |
0000c610  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4c  |               L|
0000c620  44 41 20 41 20 23 30 32  48 20 20 20 20 20 20 20  |DA A #02H       |
0000c630  20 20 20 20 3b 50 4f 52  54 20 23 32 0d 30 30 37  |    ;PORT #2.007|
0000c640  35 36 20 46 39 39 44 20  42 37 46 38 31 46 20 20  |56 F99D B7F81F  |
0000c650  3e 20 20 20 20 20 20 20  20 20 20 20 53 54 41 20  |>           STA |
0000c660  41 20 50 4f 52 54 4e 20  20 20 20 20 20 20 20 20  |A PORTN         |
0000c670  20 3b 46 4f 52 20 44 49  53 50 4c 41 59 0d 30 30  | ;FOR DISPLAY.00|
0000c680  37 35 37 20 46 39 41 30  20 46 45 46 38 33 32 20  |757 F9A0 FEF832 |
0000c690  20 3e 20 20 20 20 20 20  20 20 20 20 20 4c 44 58  | >           LDX|
0000c6a0  20 20 20 53 41 56 58 20  20 20 20 20 20 20 20 20  |   SAVX         |
0000c6b0  20 20 3b 52 45 53 54 4f  52 45 20 58 20 52 45 47  |  ;RESTORE X REG|
0000c6c0  0d 30 30 37 35 38 20 46  39 41 33 20 33 39 20 20  |.00758 F9A3 39  |
0000c6d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000c6e0  52 54 53 20 20 20 20 20  20 20 20 20 20 20 20 20  |RTS             |
0000c6f0  20 20 20 20 20 3b 52 45  54 55 52 4e 0d 30 30 37  |     ;RETURN.007|
0000c700  35 39 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |59              |
0000c710  20 20 20 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |   ;************|
0000c720  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000c750  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 30 30 37 36 30 20  |*********.00760 |
0000c760  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000c770  3b 0d 30 30 37 36 31 20  20 20 20 20 20 20 20 20  |;.00761         |
0000c780  20 20 20 20 20 20 20 20  3b 50 4f 52 54 53 55 20  |        ;PORTSU |
0000c790  53 55 42 2d 52 4f 55 54  49 4e 45 0d 30 30 37 36  |SUB-ROUTINE.0076|
0000c7a0  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
0000c7b0  20 20 3b 52 45 53 45 54  53 20 54 48 45 20 50 4f  |  ;RESETS THE PO|
0000c7c0  52 54 20 41 4e 44 20 53  45 54 53 20 49 54 20 54  |RT AND SETS IT T|
0000c7d0  4f 20 44 49 56 20 42 59  20 31 36 0d 30 30 37 36  |O DIV BY 16.0076|
0000c7e0  33 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |3               |
0000c7f0  20 20 3b 0d 30 30 37 36  34 20 20 20 20 20 20 20  |  ;.00764       |
0000c800  20 20 20 20 20 20 20 20  20 20 3b 2a 2a 2a 2a 2a  |          ;*****|
0000c810  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000c850  2a 0d 30 30 37 36 35 20  20 20 20 20 20 20 20 20  |*.00765         |
0000c860  20 20 20 20 20 20 20 20  3b 0d 30 30 37 36 36 20  |        ;.00766 |
0000c870  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000c880  3b 0d 30 30 37 36 37 20  20 20 20 20 20 46 39 41  |;.00767      F9A|
0000c890  34 20 20 20 20 3e 20 20  50 4f 52 54 53 55 20 20  |4    >  PORTSU  |
0000c8a0  20 45 51 55 20 20 20 24  20 20 20 20 20 20 20 20  | EQU   $        |
0000c8b0  20 20 20 20 20 20 3b 53  54 41 52 54 0d 30 30 37  |      ;START.007|
0000c8c0  36 38 20 46 39 41 34 20  38 36 30 33 20 20 20 20  |68 F9A4 8603    |
0000c8d0  20 20 20 20 20 20 20 20  20 20 20 20 4c 44 41 20  |            LDA |
0000c8e0  41 20 23 4d 53 54 52 53  54 20 20 20 20 20 20 20  |A #MSTRST       |
0000c8f0  20 3b 52 45 53 45 54 0d  30 30 37 36 39 20 46 39  | ;RESET.00769 F9|
0000c900  41 36 20 46 45 46 38 31  35 20 20 3e 20 20 20 20  |A6 FEF815  >    |
0000c910  20 20 20 20 20 20 20 4c  44 58 20 20 20 53 54 41  |       LDX   STA|
0000c920  50 4f 52 54 0d 30 30 37  37 30 20 46 39 41 39 20  |PORT.00770 F9A9 |
0000c930  41 37 30 30 20 20 20 20  20 20 20 20 20 20 20 20  |A700            |
0000c940  20 20 20 20 53 54 41 20  41 20 30 2c 58 20 20 20  |    STA A 0,X   |
0000c950  20 20 20 20 20 3b 50 4f  52 54 0d 30 30 37 37 31  |     ;PORT.00771|
0000c960  20 46 39 41 42 20 38 36  31 35 20 20 20 20 20 20  | F9AB 8615      |
0000c970  20 20 20 20 20 20 20 20  20 20 4c 44 41 20 41 20  |          LDA A |
0000c980  23 44 49 56 31 36 2b 42  38 31 53 20 20 20 20 20  |#DIV16+B81S     |
0000c990  20 20 20 20 3b 53 45 54  20 50 4f 52 54 0d 30 30  |    ;SET PORT.00|
0000c9a0  37 37 32 20 46 39 41 44  20 41 37 30 30 20 20 20  |772 F9AD A700   |
0000c9b0  20 20 20 20 20 20 20 20  20 20 20 20 20 53 54 41  |             STA|
0000c9c0  20 41 20 30 2c 58 20 20  20 20 20 20 20 20 3b 54  | A 0,X        ;T|
0000c9d0  4f 20 44 49 56 20 42 59  20 31 36 0d 30 30 37 37  |O DIV BY 16.0077|
0000c9e0  33 20 46 39 41 46 20 33  39 20 20 20 20 20 20 20  |3 F9AF 39       |
0000c9f0  20 20 20 20 20 20 20 20  20 20 20 52 54 53 20 20  |           RTS  |
0000ca00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000ca10  3b 52 45 54 55 52 4e 0d  0c 54 65 6b 74 72 6f 6e  |;RETURN..Tektron|
0000ca20  69 78 20 20 20 20 20 20  4d 36 38 30 30 20 41 53  |ix      M6800 AS|
0000ca30  4d 20 56 33 2e 33 20 20  55 53 45 20 43 4f 4d 4d  |M V3.3  USE COMM|
0000ca40  2d 52 41 4d 2d 30 35 20  44 49 41 47 20 50 41 52  |-RAM-05 DIAG PAR|
0000ca50  54 20 b3 20 20 20 20 50  61 67 65 20 20 20 20 32  |T .    Page    2|
0000ca60  34 0d 43 4f 4d 2d 52 41  4d 20 54 45 53 54 20 23  |4.COM-RAM TEST #|
0000ca70  20 33 20 20 39 32 30 2d  30 30 30 39 39 2d 30 32  | 3  920-00099-02|
0000ca80  2d c2 0d 0d 30 30 37 37  35 20 20 20 20 20 20 20  |-...00775       |
0000ca90  20 20 20 20 20 20 20 20  20 20 3b 2a 2a 2a 2a 2a  |          ;*****|
0000caa0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000cae0  0d 30 30 37 37 36 20 20  20 20 20 20 20 20 20 20  |.00776          |
0000caf0  20 20 20 20 20 20 20 3b  0d 30 30 37 37 37 20 20  |       ;.00777  |
0000cb00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000cb10  43 4f 4e 54 52 4f 4c 20  52 45 47 49 53 54 45 52  |CONTROL REGISTER|
0000cb20  20 54 45 53 54 20 23 30  31 0d 30 30 37 37 38 20  | TEST #01.00778 |
0000cb30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000cb40  3b 54 45 53 54 53 20 41  43 49 41 20 43 4f 4e 54  |;TESTS ACIA CONT|
0000cb50  52 4f 4c 20 52 45 47 49  53 54 45 52 0d 30 30 37  |ROL REGISTER.007|
0000cb60  37 39 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |79              |
0000cb70  20 20 20 3b 42 49 54 53  20 41 4e 44 20 53 57 49  |   ;BITS AND SWI|
0000cb80  54 43 48 20 4f 50 54 49  4f 4e 20 50 4f 52 54 53  |TCH OPTION PORTS|
0000cb90  0d 30 30 37 38 30 20 20  20 20 20 20 20 20 20 20  |.00780          |
0000cba0  20 20 20 20 20 20 20 3b  0d 30 30 37 38 31 20 20  |       ;.00781  |
0000cbb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000cbc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000cc00  2a 2a 2a 2a 2a 0d 30 30  37 38 32 20 20 20 20 20  |*****.00782     |
0000cc10  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
0000cc20  37 38 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |783             |
0000cc30  20 20 20 20 3b 0d 30 30  37 38 34 20 20 20 20 20  |    ;.00784     |
0000cc40  20 46 39 42 30 20 20 20  20 3e 20 20 53 54 53 54  | F9B0    >  STST|
0000cc50  30 31 20 20 20 45 51 55  20 20 20 24 20 20 20 20  |01   EQU   $    |
0000cc60  20 20 20 20 20 20 20 20  20 20 3b 53 54 41 52 54  |          ;START|
0000cc70  0d 30 30 37 38 35 20 46  39 42 30 20 38 45 46 38  |.00785 F9B0 8EF8|
0000cc80  46 46 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |FF              |
0000cc90  4c 44 53 20 20 20 23 49  53 54 41 43 4b 20 20 20  |LDS   #ISTACK   |
0000cca0  20 20 20 20 20 3b 0d 30  30 37 38 36 20 46 39 42  |     ;.00786 F9B|
0000ccb0  33 20 43 45 46 44 31 35  20 20 3e 20 20 20 20 20  |3 CEFD15  >     |
0000ccc0  20 20 20 20 20 20 4c 44  58 20 20 20 23 43 4e 52  |      LDX   #CNR|
0000ccd0  47 4d 53 47 0d 30 30 37  38 37 20 46 39 42 36 20  |GMSG.00787 F9B6 |
0000cce0  42 44 46 45 30 33 20 20  3e 20 20 20 20 20 20 20  |BDFE03  >       |
0000ccf0  20 20 20 20 4a 53 52 20  20 20 49 4e 49 54 20 20  |    JSR   INIT  |
0000cd00  20 20 20 20 20 20 20 20  20 3b 49 4e 49 54 49 41  |         ;INITIA|
0000cd10  4c 49 5a 45 0d 30 30 37  38 38 20 20 20 20 20 20  |LIZE.00788      |
0000cd20  46 39 42 39 20 20 20 20  3e 20 20 53 47 53 54 30  |F9B9    >  SGST0|
0000cd30  31 20 20 20 45 51 55 20  20 20 24 20 20 20 20 20  |1   EQU   $     |
0000cd40  20 20 20 20 20 20 20 20  20 3b 53 49 47 4e 41 54  |         ;SIGNAT|
0000cd50  55 52 45 20 53 54 41 52  54 0d 30 30 37 38 39 20  |URE START.00789 |
0000cd60  20 20 20 20 20 46 39 42  39 20 20 20 20 3e 20 20  |     F9B9    >  |
0000cd70  53 47 52 53 30 31 20 20  20 45 51 55 20 20 20 24  |SGRS01   EQU   $|
0000cd80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 53  |              ;S|
0000cd90  49 47 4e 41 54 55 52 45  20 52 45 53 54 41 52 54  |IGNATURE RESTART|
0000cda0  0d 30 30 37 39 30 20 46  39 42 39 20 42 44 46 39  |.00790 F9B9 BDF9|
0000cdb0  44 34 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |D4  >           |
0000cdc0  4a 53 52 20 20 20 44 36  34 43 4b 20 20 20 20 20  |JSR   D64CK     |
0000cdd0  20 20 20 20 20 3b 47 4f  20 54 4f 20 44 49 56 20  |     ;GO TO DIV |
0000cde0  42 59 20 36 34 20 43 48  45 43 4b 0d 30 30 37 39  |BY 64 CHECK.0079|
0000cdf0  31 20 46 39 42 43 20 42  44 46 41 31 45 20 20 3e  |1 F9BC BDFA1E  >|
0000ce00  20 20 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |           JSR  |
0000ce10  20 57 44 53 42 43 4b 20  20 20 20 20 20 20 20 20  | WDSBCK         |
0000ce20  3b 47 4f 20 54 4f 20 57  4f 52 44 20 53 45 4c 45  |;GO TO WORD SELE|
0000ce30  43 54 20 42 49 54 53 20  43 48 45 43 4b 0d 30 30  |CT BITS CHECK.00|
0000ce40  37 39 32 20 46 39 42 46  20 42 44 46 41 36 34 20  |792 F9BF BDFA64 |
0000ce50  20 3e 20 20 20 20 20 20  20 20 20 20 20 4a 53 52  | >           JSR|
0000ce60  20 20 20 53 57 50 54 43  4b 20 20 20 20 20 20 20  |   SWPTCK       |
0000ce70  20 20 3b 47 4f 20 54 4f  20 53 57 49 54 43 48 20  |  ;GO TO SWITCH |
0000ce80  50 4f 52 54 53 20 43 48  45 43 4b 0d 30 30 37 39  |PORTS CHECK.0079|
0000ce90  33 20 20 20 20 20 20 46  39 43 32 20 20 20 20 3e  |3      F9C2    >|
0000cea0  20 20 53 47 4e 44 30 31  20 20 20 45 51 55 20 20  |  SGND01   EQU  |
0000ceb0  20 24 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | $              |
0000cec0  3b 45 4e 44 20 53 49 47  4e 41 54 55 52 45 53 0d  |;END SIGNATURES.|
0000ced0  30 30 37 39 34 20 46 39  43 32 20 37 45 46 45 34  |00794 F9C2 7EFE4|
0000cee0  32 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 4a  |2  >           J|
0000cef0  4d 50 20 20 20 53 54 45  4e 44 20 20 20 20 20 20  |MP   STEND      |
0000cf00  20 20 20 20 3b 45 4e 44  20 4f 46 20 53 55 42 2d  |    ;END OF SUB-|
0000cf10  54 45 53 54 0d 0c 54 65  6b 74 72 6f 6e 69 78 20  |TEST..Tektronix |
0000cf20  20 20 20 20 20 4d 36 38  30 30 20 41 53 4d 20 56  |     M6800 ASM V|
0000cf30  33 2e 33 20 20 55 53 45  20 43 4f 4d 4d 2d 52 41  |3.3  USE COMM-RA|
0000cf40  4d 2d 30 35 20 44 49 41  47 20 50 41 52 54 20 b3  |M-05 DIAG PART .|
0000cf50  20 20 20 20 50 61 67 65  20 20 20 20 32 35 0d 43  |    Page    25.C|
0000cf60  4f 4d 2d 52 41 4d 20 54  45 53 54 20 23 20 33 20  |OM-RAM TEST # 3 |
0000cf70  20 39 32 30 2d 30 30 30  39 39 2d 30 32 2d c2 0d  | 920-00099-02-..|
0000cf80  0d 30 30 37 39 36 20 20  20 20 20 20 20 20 20 20  |.00796          |
0000cf90  20 20 20 20 20 20 20 3b  2a 2a 2a 2a 2a 2a 2a 2a  |       ;********|
0000cfa0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000cfd0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 30 30  |*************.00|
0000cfe0  37 39 37 20 20 20 20 20  20 20 20 20 20 20 20 20  |797             |
0000cff0  20 20 20 20 3b 0d 30 30  37 39 38 20 20 20 20 20  |    ;.00798     |
0000d000  20 20 20 20 20 20 20 20  20 20 20 20 3b 42 53 39  |            ;BS9|
0000d010  36 30 30 20 53 55 42 2d  52 4f 55 54 49 4e 45 0d  |600 SUB-ROUTINE.|
0000d020  30 30 37 39 39 20 20 20  20 20 20 20 20 20 20 20  |00799           |
0000d030  20 20 20 20 20 20 3b 4c  4f 41 44 53 20 39 36 30  |      ;LOADS 960|
0000d040  30 20 42 41 55 44 20 52  41 54 45 20 49 4e 54 4f  |0 BAUD RATE INTO|
0000d050  0d 30 30 38 30 30 20 20  20 20 20 20 20 20 20 20  |.00800          |
0000d060  20 20 20 20 20 20 20 3b  54 48 45 20 42 41 55 44  |       ;THE BAUD|
0000d070  20 50 4f 52 54 53 0d 30  30 38 30 31 20 20 20 20  | PORTS.00801    |
0000d080  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
0000d090  30 38 30 32 20 20 20 20  20 20 20 20 20 20 20 20  |0802            |
0000d0a0  20 20 20 20 20 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |     ;**********|
0000d0b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000d0e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 30 30 38 30  |***********.0080|
0000d0f0  33 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |3               |
0000d100  20 20 3b 0d 30 30 38 30  34 20 20 20 20 20 20 20  |  ;.00804       |
0000d110  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 38 30  |          ;.0080|
0000d120  35 20 20 20 20 20 20 46  39 43 35 20 20 20 20 3e  |5      F9C5    >|
0000d130  20 20 42 53 39 36 30 30  20 20 20 45 51 55 20 20  |  BS9600   EQU  |
0000d140  20 24 0d 30 30 38 30 36  20 46 39 43 35 20 43 45  | $.00806 F9C5 CE|
0000d150  39 36 30 30 20 20 20 20  20 20 20 20 20 20 20 20  |9600            |
0000d160  20 20 4c 44 58 20 20 20  23 42 39 36 30 30 41 20  |  LDX   #B9600A |
0000d170  20 20 20 20 20 20 20 3b  53 54 4f 52 45 20 39 36  |       ;STORE 96|
0000d180  30 30 0d 30 30 38 30 37  20 46 39 43 38 20 46 46  |00.00807 F9C8 FF|
0000d190  46 38 31 31 20 20 3e 20  20 20 20 20 20 20 20 20  |F811  >         |
0000d1a0  20 20 53 54 58 20 20 20  42 41 55 44 20 20 20 20  |  STX   BAUD    |
0000d1b0  20 20 20 20 20 20 20 3b  49 4e 20 42 41 55 44 20  |       ;IN BAUD |
0000d1c0  46 4f 52 20 44 49 53 50  4c 41 59 0d 30 30 38 30  |FOR DISPLAY.0080|
0000d1d0  38 20 46 39 43 42 20 38  36 30 33 20 20 20 20 20  |8 F9CB 8603     |
0000d1e0  20 20 42 53 39 36 30 31  20 20 20 4c 44 41 20 41  |  BS9601   LDA A|
0000d1f0  20 23 42 39 36 30 30 0d  30 30 38 30 39 20 46 39  | #B9600.00809 F9|
0000d200  43 44 20 42 37 32 30 31  41 20 20 20 20 20 20 20  |CD B7201A       |
0000d210  20 20 20 20 20 20 20 53  54 41 20 41 20 43 52 42  |       STA A CRB|
0000d220  41 55 44 0d 30 30 38 31  30 20 46 39 44 30 20 42  |AUD.00810 F9D0 B|
0000d230  37 32 30 31 44 20 20 20  20 20 20 20 20 20 20 20  |7201D           |
0000d240  20 20 20 53 54 41 20 41  20 43 52 42 41 55 44 32  |   STA A CRBAUD2|
0000d250  0d 30 30 38 31 31 20 46  39 44 33 20 33 39 20 20  |.00811 F9D3 39  |
0000d260  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000d270  52 54 53 0d 30 30 38 31  32 20 20 20 20 20 20 20  |RTS.00812       |
0000d280  20 20 20 20 20 20 20 20  20 20 3b 2a 2a 2a 2a 2a  |          ;*****|
0000d290  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000d2d0  0d 30 30 38 31 33 20 20  20 20 20 20 20 20 20 20  |.00813          |
0000d2e0  20 20 20 20 20 20 20 3b  0d 30 30 38 31 34 20 20  |       ;.00814  |
0000d2f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000d300  44 36 34 43 4b 20 53 55  42 2d 52 4f 55 54 49 4e  |D64CK SUB-ROUTIN|
0000d310  45 0d 30 30 38 31 35 20  20 20 20 20 20 20 20 20  |E.00815         |
0000d320  20 20 20 20 20 20 20 20  3b 43 48 45 43 4b 53 20  |        ;CHECKS |
0000d330  41 43 49 41 20 53 20 49  4e 20 44 49 56 20 42 59  |ACIA S IN DIV BY|
0000d340  20 36 34 0d 30 30 38 31  36 20 20 20 20 20 20 20  | 64.00816       |
0000d350  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 38 31  |          ;.0081|
0000d360  37 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |7               |
0000d370  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
0000d380  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000d3b0  2a 2a 2a 2a 2a 2a 2a 2a  0d 30 30 38 31 38 20 20  |********.00818  |
0000d3c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000d3d0  0d 30 30 38 31 39 20 20  20 20 20 20 20 20 20 20  |.00819          |
0000d3e0  20 20 20 20 20 20 20 3b  0d 30 30 38 32 30 20 20  |       ;.00820  |
0000d3f0  20 20 20 20 46 39 44 34  20 20 20 20 3e 20 20 44  |    F9D4    >  D|
0000d400  36 34 43 4b 20 20 20 20  45 51 55 20 20 20 24 20  |64CK    EQU   $ |
0000d410  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 53 54  |             ;ST|
0000d420  41 52 54 0d 30 30 38 32  31 20 46 39 44 34 20 38  |ART.00821 F9D4 8|
0000d430  36 30 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |603             |
0000d440  20 20 20 4c 44 41 20 41  20 23 52 44 52 46 2b 54  |   LDA A #RDRF+T|
0000d450  44 52 45 0d 30 30 38 32  32 20 46 39 44 36 20 42  |DRE.00822 F9D6 B|
0000d460  37 46 38 31 33 20 20 3e  20 20 20 20 20 20 20 20  |7F813  >        |
0000d470  20 20 20 53 54 41 20 41  20 45 58 50 53 54 41 20  |   STA A EXPSTA |
0000d480  20 20 20 20 20 20 20 20  3b 45 58 50 45 43 54 20  |        ;EXPECT |
0000d490  53 54 41 54 55 53 20 52  44 52 46 20 26 20 54 44  |STATUS RDRF & TD|
0000d4a0  52 45 20 54 52 55 45 0d  30 30 38 32 33 20 46 39  |RE TRUE.00823 F9|
0000d4b0  44 39 20 43 45 32 34 30  30 20 20 20 20 20 20 20  |D9 CE2400       |
0000d4c0  20 20 20 20 20 20 20 4c  44 58 20 20 20 23 42 32  |       LDX   #B2|
0000d4d0  34 30 30 41 0d 30 30 38  32 34 20 46 39 44 43 20  |400A.00824 F9DC |
0000d4e0  46 46 46 38 31 31 20 20  3e 20 20 20 20 20 20 20  |FFF811  >       |
0000d4f0  20 20 20 20 53 54 58 20  20 20 42 41 55 44 20 20  |    STX   BAUD  |
0000d500  20 20 20 20 20 20 20 20  20 3b 32 34 30 30 20 49  |         ;2400 I|
0000d510  4e 20 42 41 55 44 20 44  49 53 50 4c 41 59 0d 30  |N BAUD DISPLAY.0|
0000d520  30 38 32 35 20 46 39 44  46 20 42 44 46 39 43 42  |0825 F9DF BDF9CB|
0000d530  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 4a 53  |  >           JS|
0000d540  52 20 20 20 42 53 39 36  30 31 20 20 20 20 20 20  |R   BS9601      |
0000d550  20 20 20 3b 53 45 54 20  42 41 55 44 20 50 4f 52  |   ;SET BAUD POR|
0000d560  54 53 20 54 4f 20 39 36  30 30 0d 30 30 38 32 36  |TS TO 9600.00826|
0000d570  20 46 39 45 32 20 38 36  41 41 20 20 20 20 20 20  | F9E2 86AA      |
0000d580  20 20 20 20 20 20 20 20  20 20 4c 44 41 20 41 20  |          LDA A |
0000d590  23 30 41 41 48 20 20 20  20 20 20 20 20 20 20 20  |#0AAH           |
0000d5a0  0d 30 30 38 32 37 20 46  39 45 34 20 42 37 46 38  |.00827 F9E4 B7F8|
0000d5b0  33 31 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |31  >           |
0000d5c0  53 54 41 20 41 20 45 58  50 44 54 41 20 20 20 20  |STA A EXPDTA    |
0000d5d0  20 20 20 20 20 3b 45 58  50 45 43 54 20 44 41 54  |     ;EXPECT DAT|
0000d5e0  41 3d 41 41 0d 30 30 38  32 38 20 46 39 45 37 20  |A=AA.00828 F9E7 |
0000d5f0  38 36 45 31 20 20 20 20  20 20 20 20 20 20 20 20  |86E1            |
0000d600  20 20 20 20 4c 44 41 20  41 20 23 54 49 4d 32 34  |    LDA A #TIM24|
0000d610  31 20 20 20 20 20 20 20  20 3b 53 45 54 0d 30 30  |1        ;SET.00|
0000d620  38 32 39 20 46 39 45 39  20 42 37 46 38 31 42 20  |829 F9E9 B7F81B |
0000d630  20 3e 20 20 20 20 20 20  20 20 20 20 20 53 54 41  | >           STA|
0000d640  20 41 20 43 4e 54 39 35  31 20 20 20 20 20 20 20  | A CNT951       |
0000d650  20 20 3b 43 4f 55 4e 54  45 52 53 0d 30 30 38 33  |  ;COUNTERS.0083|
0000d660  30 20 46 39 45 43 20 38  36 30 32 20 20 20 20 20  |0 F9EC 8602     |
0000d670  20 20 20 20 20 20 20 20  20 20 20 4c 44 41 20 41  |           LDA A|
0000d680  20 23 54 49 4d 32 34 32  20 20 20 20 20 20 20 20  | #TIM242        |
0000d690  3b 54 4f 0d 30 30 38 33  31 20 46 39 45 45 20 42  |;TO.00831 F9EE B|
0000d6a0  37 46 38 31 43 20 20 3e  20 20 20 20 20 20 20 20  |7F81C  >        |
0000d6b0  20 20 20 53 54 41 20 41  20 43 4e 54 39 35 32 20  |   STA A CNT952 |
0000d6c0  20 20 20 20 20 20 20 20  3b 32 34 30 30 20 42 41  |        ;2400 BA|
0000d6d0  55 44 20 54 49 4d 45 20  4f 55 54 0d 30 30 38 33  |UD TIME OUT.0083|
0000d6e0  32 20 46 39 46 31 20 42  44 46 39 37 34 20 20 3e  |2 F9F1 BDF974  >|
0000d6f0  20 20 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |           JSR  |
0000d700  20 53 50 4f 52 54 31 20  20 20 20 20 20 20 20 20  | SPORT1         |
0000d710  3b 53 45 54 20 50 4f 52  54 20 31 0d 30 30 38 33  |;SET PORT 1.0083|
0000d720  33 20 46 39 46 34 20 42  44 46 41 31 32 20 20 3e  |3 F9F4 BDFA12  >|
0000d730  20 20 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |           JSR  |
0000d740  20 44 36 34 54 20 20 20  20 20 20 20 20 20 20 20  | D64T           |
0000d750  3b 53 45 54 20 50 4f 52  54 20 31 20 54 4f 20 44  |;SET PORT 1 TO D|
0000d760  49 56 20 42 59 20 36 34  0d 30 30 38 33 34 20 46  |IV BY 64.00834 F|
0000d770  39 46 37 20 42 44 46 39  38 43 20 20 3e 20 20 20  |9F7 BDF98C  >   |
0000d780  20 20 20 20 20 20 20 20  4a 53 52 20 20 20 53 50  |        JSR   SP|
0000d790  4f 52 54 32 20 20 20 20  20 20 20 20 20 3b 53 45  |ORT2         ;SE|
0000d7a0  54 20 50 4f 52 54 20 32  0d 30 30 38 33 35 20 46  |T PORT 2.00835 F|
0000d7b0  39 46 41 20 42 44 46 41  31 32 20 20 3e 20 20 20  |9FA BDFA12  >   |
0000d7c0  20 20 20 20 20 20 20 20  4a 53 52 20 20 20 44 36  |        JSR   D6|
0000d7d0  34 54 20 20 20 20 20 20  20 20 20 20 20 3b 53 45  |4T           ;SE|
0000d7e0  54 20 50 4f 52 54 20 32  20 54 4f 20 44 49 56 20  |T PORT 2 TO DIV |
0000d7f0  42 59 20 36 34 0d 30 30  38 33 36 20 46 39 46 44  |BY 64.00836 F9FD|
0000d800  20 42 36 46 38 33 31 20  20 3e 20 20 20 20 20 20  | B6F831  >      |
0000d810  20 20 20 20 20 4c 44 41  20 41 20 45 58 50 44 54  |     LDA A EXPDT|
0000d820  41 20 20 20 20 20 20 20  20 20 3b 0d 30 30 38 33  |A         ;.0083|
0000d830  37 20 46 41 30 30 20 46  45 46 38 31 37 20 20 3e  |7 FA00 FEF817  >|
0000d840  20 20 20 20 20 20 20 20  20 20 20 4c 44 58 20 20  |           LDX  |
0000d850  20 44 54 41 50 4f 52 54  0d 30 30 38 33 38 20 46  | DTAPORT.00838 F|
0000d860  41 30 33 20 41 37 30 30  20 20 20 20 20 20 20 20  |A03 A700        |
0000d870  20 20 20 20 20 20 20 20  53 54 41 20 41 20 30 2c  |        STA A 0,|
0000d880  58 20 20 20 20 20 20 20  20 3b 57 52 49 54 45 20  |X        ;WRITE |
0000d890  41 41 20 49 4e 20 50 4f  52 54 20 32 0d 30 30 38  |AA IN PORT 2.008|
0000d8a0  33 39 20 46 41 30 35 20  42 44 46 39 32 30 20 20  |39 FA05 BDF920  |
0000d8b0  3e 20 20 20 20 20 20 20  20 20 20 20 4a 53 52 20  |>           JSR |
0000d8c0  20 20 54 4d 52 39 35 20  20 20 20 20 20 20 20 20  |  TMR95         |
0000d8d0  20 3b 57 41 49 54 20 41  20 57 48 49 4c 45 0d 30  | ;WAIT A WHILE.0|
0000d8e0  30 38 34 30 20 46 41 30  38 20 42 44 46 39 37 34  |0840 FA08 BDF974|
0000d8f0  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 4a 53  |  >           JS|
0000d900  52 20 20 20 53 50 4f 52  54 31 20 20 20 20 20 20  |R   SPORT1      |
0000d910  20 20 20 3b 53 45 54 20  50 4f 52 54 20 31 0d 30  |   ;SET PORT 1.0|
0000d920  30 38 34 31 20 46 41 30  42 20 42 44 46 39 33 36  |0841 FA0B BDF936|
0000d930  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 4a 53  |  >           JS|
0000d940  52 20 20 20 52 44 53 54  41 54 20 20 20 20 20 20  |R   RDSTAT      |
0000d950  20 20 20 3b 52 45 41 44  20 50 4f 52 54 20 31 20  |   ;READ PORT 1 |
0000d960  53 54 41 54 55 53 0d 30  30 38 34 32 20 46 41 30  |STATUS.00842 FA0|
0000d970  45 20 42 44 46 39 35 35  20 20 3e 20 20 20 20 20  |E BDF955  >     |
0000d980  20 20 20 20 20 20 4a 53  52 20 20 20 52 44 44 54  |      JSR   RDDT|
0000d990  41 20 20 20 20 20 20 20  20 20 3b 52 45 41 44 20  |A         ;READ |
0000d9a0  50 4f 52 54 20 31 20 44  41 54 41 0d 30 30 38 34  |PORT 1 DATA.0084|
0000d9b0  33 20 46 41 31 31 20 33  39 20 20 20 20 20 20 20  |3 FA11 39       |
0000d9c0  20 20 20 20 20 20 20 20  20 20 20 52 54 53 20 20  |           RTS  |
0000d9d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000d9e0  3b 52 45 54 55 52 4e 0d  0c 54 65 6b 74 72 6f 6e  |;RETURN..Tektron|
0000d9f0  69 78 20 20 20 20 20 20  4d 36 38 30 30 20 41 53  |ix      M6800 AS|
0000da00  4d 20 56 33 2e 33 20 20  55 53 45 20 43 4f 4d 4d  |M V3.3  USE COMM|
0000da10  2d 52 41 4d 2d 30 35 20  44 49 41 47 20 50 41 52  |-RAM-05 DIAG PAR|
0000da20  54 20 b3 20 20 20 20 50  61 67 65 20 20 20 20 32  |T .    Page    2|
0000da30  36 0d 43 4f 4d 2d 52 41  4d 20 54 45 53 54 20 23  |6.COM-RAM TEST #|
0000da40  20 33 20 20 39 32 30 2d  30 30 30 39 39 2d 30 32  | 3  920-00099-02|
0000da50  2d c2 0d 0d 30 30 38 34  35 20 20 20 20 20 20 20  |-...00845       |
0000da60  20 20 20 20 20 20 20 20  20 20 3b 2a 2a 2a 2a 2a  |          ;*****|
0000da70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000dab0  0d 30 30 38 34 36 20 20  20 20 20 20 20 20 20 20  |.00846          |
0000dac0  20 20 20 20 20 20 20 3b  0d 30 30 38 34 37 20 20  |       ;.00847  |
0000dad0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000dae0  44 36 34 54 20 53 55 42  2d 52 4f 55 54 49 4e 45  |D64T SUB-ROUTINE|
0000daf0  0d 30 30 38 34 38 20 20  20 20 20 20 20 20 20 20  |.00848          |
0000db00  20 20 20 20 20 20 20 3b  53 45 54 53 20 50 4f 52  |       ;SETS POR|
0000db10  54 20 54 4f 20 44 49 56  20 42 59 20 36 34 0d 30  |T TO DIV BY 64.0|
0000db20  30 38 34 39 20 20 20 20  20 20 20 20 20 20 20 20  |0849            |
0000db30  20 20 20 20 20 3b 0d 30  30 38 35 30 20 20 20 20  |     ;.00850    |
0000db40  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 2a 2a  |             ;**|
0000db50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000db90  2a 2a 2a 0d 30 30 38 35  31 20 20 20 20 20 20 20  |***.00851       |
0000dba0  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 38 35  |          ;.0085|
0000dbb0  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
0000dbc0  20 20 3b 0d 30 30 38 35  33 20 20 20 20 20 20 46  |  ;.00853      F|
0000dbd0  41 31 32 20 20 20 20 3e  20 20 44 36 34 54 20 20  |A12    >  D64T  |
0000dbe0  20 20 20 45 51 55 20 20  20 24 20 20 20 20 20 20  |   EQU   $      |
0000dbf0  20 20 20 20 20 20 20 20  3b 53 54 41 52 54 0d 30  |        ;START.0|
0000dc00  30 38 35 34 20 46 41 31  32 20 38 36 30 33 20 20  |0854 FA12 8603  |
0000dc10  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4c 44  |              LD|
0000dc20  41 20 41 20 23 4d 53 54  52 53 54 20 20 20 20 20  |A A #MSTRST     |
0000dc30  20 20 20 3b 0d 30 30 38  35 35 20 46 41 31 34 20  |   ;.00855 FA14 |
0000dc40  46 45 46 38 31 35 20 20  3e 20 20 20 20 20 20 20  |FEF815  >       |
0000dc50  20 20 20 20 4c 44 58 20  20 20 53 54 41 50 4f 52  |    LDX   STAPOR|
0000dc60  54 0d 30 30 38 35 36 20  46 41 31 37 20 41 37 30  |T.00856 FA17 A70|
0000dc70  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
0000dc80  20 53 54 41 20 41 20 30  2c 58 20 20 20 20 20 20  | STA A 0,X      |
0000dc90  20 20 3b 52 45 53 45 54  20 50 4f 52 54 0d 30 30  |  ;RESET PORT.00|
0000dca0  38 35 37 20 46 41 31 39  20 38 36 31 36 20 20 20  |857 FA19 8616   |
0000dcb0  20 20 20 20 20 20 20 20  20 20 20 20 20 4c 44 41  |             LDA|
0000dcc0  20 41 20 23 44 49 56 36  34 2b 42 38 31 53 20 20  | A #DIV64+B81S  |
0000dcd0  20 20 20 20 20 20 20 3b  0d 30 30 38 35 38 20 46  |       ;.00858 F|
0000dce0  41 31 42 20 41 37 30 30  20 20 20 20 20 20 20 20  |A1B A700        |
0000dcf0  20 20 20 20 20 20 20 20  53 54 41 20 41 20 30 2c  |        STA A 0,|
0000dd00  58 20 20 20 20 20 20 20  20 3b 44 49 56 20 42 59  |X        ;DIV BY|
0000dd10  20 36 34 0d 30 30 38 35  39 20 46 41 31 44 20 33  | 64.00859 FA1D 3|
0000dd20  39 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9               |
0000dd30  20 20 20 52 54 53 20 20  20 20 20 20 20 20 20 20  |   RTS          |
0000dd40  20 20 20 20 20 20 20 20  3b 52 45 54 55 52 4e 0d  |        ;RETURN.|
0000dd50  30 30 38 36 30 20 20 20  20 20 20 20 20 20 20 20  |00860           |
0000dd60  20 20 20 20 20 20 3b 2a  2a 2a 2a 2a 2a 2a 2a 2a  |      ;*********|
0000dd70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000dda0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 30  |**************.0|
0000ddb0  30 38 36 31 20 20 20 20  20 20 20 20 20 20 20 20  |0861            |
0000ddc0  20 20 20 20 20 3b 0d 30  30 38 36 32 20 20 20 20  |     ;.00862    |
0000ddd0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 57 44  |             ;WD|
0000dde0  53 42 43 4b 20 53 55 42  2d 52 4f 55 54 49 4e 45  |SBCK SUB-ROUTINE|
0000ddf0  0d 30 30 38 36 33 20 20  20 20 20 20 20 20 20 20  |.00863          |
0000de00  20 20 20 20 20 20 20 3b  43 48 45 43 4b 53 20 57  |       ;CHECKS W|
0000de10  4f 52 44 20 53 45 4c 45  43 54 20 42 49 54 53 20  |ORD SELECT BITS |
0000de20  49 4e 0d 30 30 38 36 34  20 20 20 20 20 20 20 20  |IN.00864        |
0000de30  20 20 20 20 20 20 20 20  20 3b 43 4f 4e 54 52 4f  |         ;CONTRO|
0000de40  4c 20 52 45 47 49 53 54  45 52 53 0d 30 30 38 36  |L REGISTERS.0086|
0000de50  35 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |5               |
0000de60  20 20 3b 0d 30 30 38 36  36 20 20 20 20 20 20 20  |  ;.00866       |
0000de70  20 20 20 20 20 20 20 20  20 20 3b 2a 2a 2a 2a 2a  |          ;*****|
0000de80  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000dec0  2a 0d 30 30 38 36 37 20  20 20 20 20 20 20 20 20  |*.00867         |
0000ded0  20 20 20 20 20 20 20 20  3b 0d 30 30 38 36 38 20  |        ;.00868 |
0000dee0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000def0  3b 0d 30 30 38 36 39 20  20 20 20 20 20 46 41 31  |;.00869      FA1|
0000df00  45 20 20 20 20 3e 20 20  57 44 53 42 43 4b 20 20  |E    >  WDSBCK  |
0000df10  20 45 51 55 20 20 20 24  20 20 20 20 20 20 20 20  | EQU   $        |
0000df20  20 20 20 20 20 20 3b 53  54 41 52 54 0d 30 30 38  |      ;START.008|
0000df30  37 30 20 46 41 31 45 20  38 36 30 33 20 20 20 20  |70 FA1E 8603    |
0000df40  20 20 20 20 20 20 20 20  20 20 20 20 4c 44 41 20  |            LDA |
0000df50  41 20 23 52 44 52 46 2b  54 44 52 45 0d 30 30 38  |A #RDRF+TDRE.008|
0000df60  37 31 20 46 41 32 30 20  42 37 46 38 31 33 20 20  |71 FA20 B7F813  |
0000df70  3e 20 20 20 20 20 20 20  20 20 20 20 53 54 41 20  |>           STA |
0000df80  41 20 45 58 50 53 54 41  20 20 20 20 20 20 20 20  |A EXPSTA        |
0000df90  20 3b 45 58 50 45 43 54  20 53 54 41 54 55 53 3d  | ;EXPECT STATUS=|
0000dfa0  52 44 52 46 20 54 44 52  45 20 54 52 55 45 0d 30  |RDRF TDRE TRUE.0|
0000dfb0  30 38 37 32 20 46 41 32  33 20 42 44 46 39 43 35  |0872 FA23 BDF9C5|
0000dfc0  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 4a 53  |  >           JS|
0000dfd0  52 20 20 20 42 53 39 36  30 30 20 20 20 20 20 20  |R   BS9600      |
0000dfe0  20 20 20 3b 53 45 54 20  42 41 55 44 20 50 4f 52  |   ;SET BAUD POR|
0000dff0  54 53 20 54 4f 20 39 36  30 30 0d 30 30 38 37 33  |TS TO 9600.00873|
0000e000  20 46 41 32 36 20 38 36  32 41 20 20 20 20 20 20  | FA26 862A      |
0000e010  20 20 20 20 20 20 20 20  20 20 4c 44 41 20 41 20  |          LDA A |
0000e020  23 30 32 41 48 0d 30 30  38 37 34 20 46 41 32 38  |#02AH.00874 FA28|
0000e030  20 42 37 46 38 33 31 20  20 3e 20 20 20 20 20 20  | B7F831  >      |
0000e040  20 20 20 20 20 53 54 41  20 41 20 45 58 50 44 54  |     STA A EXPDT|
0000e050  41 20 20 20 20 20 20 20  20 20 3b 45 58 50 45 43  |A         ;EXPEC|
0000e060  54 20 44 41 54 41 3d 41  41 0d 30 30 38 37 35 20  |T DATA=AA.00875 |
0000e070  46 41 32 42 20 42 44 46  39 32 42 20 20 3e 20 20  |FA2B BDF92B  >  |
0000e080  20 20 20 20 20 20 20 20  20 4a 53 52 20 20 20 54  |         JSR   T|
0000e090  53 39 36 30 30 20 20 20  20 20 20 20 20 20 3b 53  |S9600         ;S|
0000e0a0  45 54 20 54 49 4d 45 52  20 54 4f 20 39 36 30 30  |ET TIMER TO 9600|
0000e0b0  20 54 49 4d 45 20 4f 55  54 0d 30 30 38 37 36 20  | TIME OUT.00876 |
0000e0c0  46 41 32 45 20 42 44 46  42 44 33 20 20 3e 20 20  |FA2E BDFBD3  >  |
0000e0d0  20 20 20 20 20 20 20 20  20 4a 53 52 20 20 20 52  |         JSR   R|
0000e0e0  53 54 20 20 20 20 20 20  20 20 20 20 20 20 3b 52  |ST            ;R|
0000e0f0  45 53 45 54 20 41 43 49  41 20 50 4f 52 54 53 0d  |ESET ACIA PORTS.|
0000e100  30 30 38 37 37 20 46 41  33 31 20 43 45 46 39 31  |00877 FA31 CEF91|
0000e110  37 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 4c  |7  >           L|
0000e120  44 58 20 20 20 23 57 53  42 54 42 4c 20 20 20 20  |DX   #WSBTBL    |
0000e130  20 20 20 20 3b 47 45 54  20 57 4f 52 44 20 53 45  |    ;GET WORD SE|
0000e140  4c 45 43 54 20 42 49 54  20 54 41 42 4c 45 20 50  |LECT BIT TABLE P|
0000e150  4f 49 4e 54 45 52 0d 30  30 38 37 38 20 46 41 33  |OINTER.00878 FA3|
0000e160  34 20 41 36 30 30 20 20  20 20 20 20 20 4c 4f 4f  |4 A600       LOO|
0000e170  50 20 20 20 20 20 4c 44  41 20 41 20 30 2c 58 20  |P     LDA A 0,X |
0000e180  20 20 20 20 20 20 20 20  20 20 20 3b 47 45 54 20  |           ;GET |
0000e190  57 4f 52 44 20 53 45 4c  45 43 54 20 42 49 54 20  |WORD SELECT BIT |
0000e1a0  46 52 4f 4d 20 54 41 42  4c 45 0d 30 30 38 37 39  |FROM TABLE.00879|
0000e1b0  20 46 41 33 36 20 32 36  30 31 20 20 20 20 20 20  | FA36 2601      |
0000e1c0  20 20 20 20 20 20 20 20  20 20 42 4e 45 20 20 20  |          BNE   |
0000e1d0  43 4f 4e 54 20 20 20 20  20 20 20 20 20 20 20 3b  |CONT           ;|
0000e1e0  49 46 20 45 4e 44 20 4f  46 20 54 41 42 4c 45 2d  |IF END OF TABLE-|
0000e1f0  52 45 54 55 52 4e 0d 30  30 38 38 30 20 46 41 33  |RETURN.00880 FA3|
0000e200  38 20 33 39 20 20 20 20  20 20 20 20 20 20 20 20  |8 39            |
0000e210  20 20 20 20 20 20 52 54  53 20 20 20 20 20 20 20  |      RTS       |
0000e220  20 20 20 20 20 20 20 20  20 20 20 3b 52 45 54 55  |           ;RETU|
0000e230  52 4e 0d 30 30 38 38 31  20 46 41 33 39 20 32 42  |RN.00881 FA39 2B|
0000e240  32 31 20 20 20 20 20 20  20 43 4f 4e 54 20 20 20  |21       CONT   |
0000e250  20 20 42 4d 49 20 20 20  42 49 54 38 20 20 20 20  |  BMI   BIT8    |
0000e260  20 20 20 20 20 20 20 3b  38 20 42 49 54 53 20 4f  |       ;8 BITS O|
0000e270  46 20 44 41 54 41 0d 30  30 38 38 32 20 46 41 33  |F DATA.00882 FA3|
0000e280  42 20 42 37 46 38 32 32  20 20 3e 20 20 20 20 20  |B B7F822  >     |
0000e290  20 20 20 20 20 20 53 54  41 20 41 20 43 4e 52 45  |      STA A CNRE|
0000e2a0  47 20 20 20 20 20 20 20  20 20 20 3b 53 54 4f 52  |G          ;STOR|
0000e2b0  45 20 57 4f 52 44 20 53  45 4c 45 43 54 20 42 49  |E WORD SELECT BI|
0000e2c0  54 53 20 49 4e 20 43 4e  52 45 47 20 46 4f 52 20  |TS IN CNREG FOR |
0000e2d0  44 49 53 50 4c 41 59 0d  30 30 38 38 33 20 46 41  |DISPLAY.00883 FA|
0000e2e0  33 45 20 42 37 32 30 31  43 20 20 20 20 20 20 20  |3E B7201C       |
0000e2f0  20 20 20 20 20 20 20 53  54 41 20 41 20 43 52 41  |       STA A CRA|
0000e300  43 53 43 20 20 20 20 20  20 20 20 20 3b 57 52 49  |CSC         ;WRI|
0000e310  54 45 20 54 4f 20 50 4f  52 54 20 31 20 43 4f 4e  |TE TO PORT 1 CON|
0000e320  54 52 4f 4c 20 52 45 47  0d 30 30 38 38 34 20 46  |TROL REG.00884 F|
0000e330  41 34 31 20 42 37 32 30  31 46 20 20 20 20 20 20  |A41 B7201F      |
0000e340  20 20 20 20 20 20 20 20  53 54 41 20 41 20 43 52  |        STA A CR|
0000e350  41 43 53 43 32 20 20 20  20 20 20 20 20 3b 57 52  |ACSC2        ;WR|
0000e360  49 54 45 20 54 4f 20 50  4f 52 54 20 32 20 43 4f  |ITE TO PORT 2 CO|
0000e370  4e 54 52 4f 4c 20 52 45  47 0d 30 30 38 38 35 20  |NTROL REG.00885 |
0000e380  46 41 34 34 20 42 36 46  38 33 31 20 20 3e 20 20  |FA44 B6F831  >  |
0000e390  20 20 20 20 20 20 20 20  20 4c 44 41 20 41 20 45  |         LDA A E|
0000e3a0  58 50 44 54 41 20 20 20  20 20 20 20 20 20 3b 0d  |XPDTA         ;.|
0000e3b0  30 30 38 38 36 20 46 41  34 37 20 42 37 32 30 31  |00886 FA47 B7201|
0000e3c0  42 20 20 20 20 20 20 20  20 20 20 20 20 20 20 53  |B              S|
0000e3d0  54 41 20 41 20 43 52 41  43 44 41 20 20 20 20 20  |TA A CRACDA     |
0000e3e0  20 20 20 20 3b 57 52 49  54 45 20 41 41 20 54 4f  |    ;WRITE AA TO|
0000e3f0  20 50 4f 52 54 20 31 20  44 41 54 41 20 50 4f 52  | PORT 1 DATA POR|
0000e400  54 0d 30 30 38 38 37 20  46 41 34 41 20 42 44 46  |T.00887 FA4A BDF|
0000e410  39 32 30 20 20 3e 20 20  20 20 20 20 20 20 20 20  |920  >          |
0000e420  20 4a 53 52 20 20 20 54  4d 52 39 35 20 20 20 20  | JSR   TMR95    |
0000e430  20 20 20 20 20 20 3b 57  41 49 54 20 41 20 57 48  |      ;WAIT A WH|
0000e440  49 4c 45 0d 30 30 38 38  38 20 46 41 34 44 20 42  |ILE.00888 FA4D B|
0000e450  44 46 39 38 43 20 20 3e  20 20 20 20 20 20 20 20  |DF98C  >        |
0000e460  20 20 20 4a 53 52 20 20  20 53 50 4f 52 54 32 20  |   JSR   SPORT2 |
0000e470  20 20 20 20 20 20 20 20  3b 53 45 54 20 50 4f 52  |        ;SET POR|
0000e480  54 20 32 0d 30 30 38 38  39 20 46 41 35 30 20 42  |T 2.00889 FA50 B|
0000e490  44 46 39 33 36 20 20 3e  20 20 20 20 20 20 20 20  |DF936  >        |
0000e4a0  20 20 20 4a 53 52 20 20  20 52 44 53 54 41 54 20  |   JSR   RDSTAT |
0000e4b0  20 20 20 20 20 20 20 20  3b 52 45 41 44 20 53 54  |        ;READ ST|
0000e4c0  41 54 55 53 20 50 4f 52  54 20 32 0d 30 30 38 39  |ATUS PORT 2.0089|
0000e4d0  30 20 46 41 35 33 20 42  44 46 39 35 35 20 20 3e  |0 FA53 BDF955  >|
0000e4e0  20 20 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |           JSR  |
0000e4f0  20 52 44 44 54 41 20 20  20 20 20 20 20 20 20 20  | RDDTA          |
0000e500  3b 52 45 41 44 20 44 41  54 41 20 50 4f 52 54 20  |;READ DATA PORT |
0000e510  32 0d 30 30 38 39 31 20  46 41 35 36 20 30 38 20  |2.00891 FA56 08 |
0000e520  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000e530  20 49 4e 58 20 20 20 20  20 20 20 20 20 20 20 20  | INX            |
0000e540  20 20 20 20 20 20 3b 49  4e 43 52 45 4d 45 4e 54  |      ;INCREMENT|
0000e550  20 54 48 45 20 58 20 52  45 47 0d 30 30 38 39 32  | THE X REG.00892|
0000e560  20 46 41 35 37 20 42 44  46 39 32 42 20 20 3e 20  | FA57 BDF92B  > |
0000e570  20 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |          JSR   |
0000e580  54 53 39 36 30 30 20 20  20 20 20 20 20 20 20 3b  |TS9600         ;|
0000e590  53 45 54 20 54 49 4d 45  52 20 54 4f 20 39 36 30  |SET TIMER TO 960|
0000e5a0  30 20 54 49 4d 45 20 4f  55 54 0d 30 30 38 39 33  |0 TIME OUT.00893|
0000e5b0  20 46 41 35 41 20 32 30  44 38 20 20 20 20 20 20  | FA5A 20D8      |
0000e5c0  20 20 20 20 20 20 20 20  20 20 42 52 41 20 20 20  |          BRA   |
0000e5d0  4c 4f 4f 50 20 20 20 20  20 20 20 20 20 20 20 3b  |LOOP           ;|
0000e5e0  47 4f 20 42 41 43 4b 0d  30 30 38 39 34 20 46 41  |GO BACK.00894 FA|
0000e5f0  35 43 20 43 36 41 41 20  20 20 20 20 20 20 42 49  |5C C6AA       BI|
0000e600  54 38 20 20 20 20 20 4c  44 41 20 42 20 23 30 41  |T8     LDA B #0A|
0000e610  41 48 0d 30 30 38 39 35  20 46 41 35 45 20 46 37  |AH.00895 FA5E F7|
0000e620  46 38 33 31 20 20 3e 20  20 20 20 20 20 20 20 20  |F831  >         |
0000e630  20 20 53 54 41 20 42 20  45 58 50 44 54 41 0d 30  |  STA B EXPDTA.0|
0000e640  30 38 39 36 20 46 41 36  31 20 30 38 20 20 20 20  |0896 FA61 08    |
0000e650  20 20 20 20 20 20 20 20  20 20 20 20 20 20 49 4e  |              IN|
0000e660  58 0d 0c 54 65 6b 74 72  6f 6e 69 78 20 20 20 20  |X..Tektronix    |
0000e670  20 20 4d 36 38 30 30 20  41 53 4d 20 56 33 2e 33  |  M6800 ASM V3.3|
0000e680  20 20 55 53 45 20 43 4f  4d 4d 2d 52 41 4d 2d 30  |  USE COMM-RAM-0|
0000e690  35 20 44 49 41 47 20 50  41 52 54 20 b3 20 20 20  |5 DIAG PART .   |
0000e6a0  20 50 61 67 65 20 20 20  20 32 37 0d 43 4f 4d 2d  | Page    27.COM-|
0000e6b0  52 41 4d 20 54 45 53 54  20 23 20 33 20 20 39 32  |RAM TEST # 3  92|
0000e6c0  30 2d 30 30 30 39 39 2d  30 32 2d c2 0d 0d 30 30  |0-00099-02-...00|
0000e6d0  38 39 37 20 46 41 36 32  20 32 30 44 30 20 20 20  |897 FA62 20D0   |
0000e6e0  20 20 20 20 20 20 20 20  20 20 20 20 20 42 52 41  |             BRA|
0000e6f0  20 20 20 4c 4f 4f 50 0d  0c 54 65 6b 74 72 6f 6e  |   LOOP..Tektron|
0000e700  69 78 20 20 20 20 20 20  4d 36 38 30 30 20 41 53  |ix      M6800 AS|
0000e710  4d 20 56 33 2e 33 20 20  55 53 45 20 43 4f 4d 4d  |M V3.3  USE COMM|
0000e720  2d 52 41 4d 2d 30 35 20  44 49 41 47 20 50 41 52  |-RAM-05 DIAG PAR|
0000e730  54 20 b3 20 20 20 20 50  61 67 65 20 20 20 20 32  |T .    Page    2|
0000e740  38 0d 43 4f 4d 2d 52 41  4d 20 54 45 53 54 20 23  |8.COM-RAM TEST #|
0000e750  20 33 20 20 39 32 30 2d  30 30 30 39 39 2d 30 32  | 3  920-00099-02|
0000e760  2d c2 0d 0d 30 30 38 39  39 20 20 20 20 20 20 20  |-...00899       |
0000e770  20 20 20 20 20 20 20 20  20 20 3b 2a 2a 2a 2a 2a  |          ;*****|
0000e780  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000e7c0  0d 30 30 39 30 30 20 20  20 20 20 20 20 20 20 20  |.00900          |
0000e7d0  20 20 20 20 20 20 20 3b  0d 30 30 39 30 31 20 20  |       ;.00901  |
0000e7e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000e7f0  53 57 50 54 43 4b 20 53  55 42 2d 52 4f 55 54 49  |SWPTCK SUB-ROUTI|
0000e800  4e 45 0d 30 30 39 30 32  20 20 20 20 20 20 20 20  |NE.00902        |
0000e810  20 20 20 20 20 20 20 20  20 3b 43 48 45 43 4b 53  |         ;CHECKS|
0000e820  20 42 4f 54 48 20 53 57  49 54 43 48 20 4f 50 54  | BOTH SWITCH OPT|
0000e830  49 4f 4e 20 50 4f 52 54  53 0d 30 30 39 30 33 20  |ION PORTS.00903 |
0000e840  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000e850  3b 0d 30 30 39 30 34 20  20 20 20 20 20 20 20 20  |;.00904         |
0000e860  20 20 20 20 20 20 20 20  3b 2a 2a 2a 2a 2a 2a 2a  |        ;*******|
0000e870  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000e8a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 30 30  |*************.00|
0000e8b0  39 30 35 20 20 20 20 20  20 20 20 20 20 20 20 20  |905             |
0000e8c0  20 20 20 20 3b 0d 30 30  39 30 36 20 20 20 20 20  |    ;.00906     |
0000e8d0  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
0000e8e0  39 30 37 20 20 20 20 20  20 46 41 36 34 20 20 20  |907      FA64   |
0000e8f0  20 3e 20 20 53 57 50 54  43 4b 20 20 20 45 51 55  | >  SWPTCK   EQU|
0000e900  20 20 20 24 20 20 20 20  20 20 20 20 20 20 20 20  |   $            |
0000e910  20 20 3b 53 54 41 52 54  0d 30 30 39 30 38 20 46  |  ;START.00908 F|
0000e920  41 36 34 20 38 36 41 41  20 20 20 20 20 20 20 20  |A64 86AA        |
0000e930  20 20 20 20 20 20 20 20  4c 44 41 20 41 20 23 30  |        LDA A #0|
0000e940  41 41 48 0d 30 30 39 30  39 20 46 41 36 36 20 42  |AAH.00909 FA66 B|
0000e950  37 46 38 33 31 20 20 3e  20 20 20 20 20 20 20 20  |7F831  >        |
0000e960  20 20 20 53 54 41 20 41  20 45 58 50 44 54 41 20  |   STA A EXPDTA |
0000e970  20 20 20 20 20 20 20 20  3b 45 58 50 45 43 54 20  |        ;EXPECT |
0000e980  44 41 54 41 3d 41 41 0d  30 30 39 31 30 20 46 41  |DATA=AA.00910 FA|
0000e990  36 39 20 37 44 46 38 30  31 20 20 3e 20 20 20 20  |69 7DF801  >    |
0000e9a0  20 20 20 20 20 20 20 54  53 54 20 20 20 53 49 47  |       TST   SIG|
0000e9b0  46 4c 47 20 20 20 20 20  20 20 20 20 3b 49 46 20  |FLG         ;IF |
0000e9c0  54 41 4b 49 4e 47 20 53  49 47 4e 41 54 55 52 45  |TAKING SIGNATURE|
0000e9d0  53 0d 30 30 39 31 31 20  46 41 36 43 20 32 36 30  |S.00911 FA6C 260|
0000e9e0  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
0000e9f0  20 42 4e 45 20 20 20 4e  4f 4d 53 47 20 20 20 20  | BNE   NOMSG    |
0000ea00  20 20 20 20 20 20 3b 44  4f 4e 54 20 44 49 53 50  |      ;DONT DISP|
0000ea10  4c 41 59 20 4d 45 53 53  41 47 45 0d 30 30 39 31  |LAY MESSAGE.0091|
0000ea20  32 20 46 41 36 45 20 43  45 46 44 35 36 20 20 3e  |2 FA6E CEFD56  >|
0000ea30  20 20 20 20 20 20 20 20  20 20 20 4c 44 58 20 20  |           LDX  |
0000ea40  20 23 53 57 31 4d 53 47  20 20 20 20 20 20 20 20  | #SW1MSG        |
0000ea50  3b 44 49 53 50 4c 41 59  0d 30 30 39 31 33 20 46  |;DISPLAY.00913 F|
0000ea60  41 37 31 20 38 36 30 32  20 20 20 20 20 20 20 20  |A71 8602        |
0000ea70  20 20 20 20 20 20 20 20  4c 44 41 20 41 20 23 4d  |        LDA A #M|
0000ea80  45 53 53 47 20 20 20 20  20 20 20 20 20 3b 4d 45  |ESSG         ;ME|
0000ea90  53 53 41 47 45 0d 30 30  39 31 34 20 46 41 37 33  |SSAGE.00914 FA73|
0000eaa0  20 42 44 46 44 46 42 20  20 3e 20 20 20 20 20 20  | BDFDFB  >      |
0000eab0  20 20 20 20 20 4a 53 52  20 20 20 50 53 56 43 20  |     JSR   PSVC |
0000eac0  20 20 20 20 20 20 20 20  20 20 3b 45 56 45 4e 20  |          ;EVEN |
0000ead0  53 57 49 54 43 48 53 20  4f 4e 0d 30 30 39 31 35  |SWITCHS ON.00915|
0000eae0  20 46 41 37 36 20 42 44  46 41 38 46 20 20 3e 20  | FA76 BDFA8F  > |
0000eaf0  20 4e 4f 4d 53 47 20 20  20 20 4a 53 52 20 20 20  | NOMSG    JSR   |
0000eb00  52 44 53 57 20 20 20 20  20 20 20 20 20 20 20 3b  |RDSW           ;|
0000eb10  52 45 41 44 20 53 57 49  54 43 48 20 50 4f 52 54  |READ SWITCH PORT|
0000eb20  53 0d 30 30 39 31 36 20  46 41 37 39 20 38 36 35  |S.00916 FA79 865|
0000eb30  35 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |5               |
0000eb40  20 4c 44 41 20 41 20 23  35 35 48 20 20 20 20 20  | LDA A #55H     |
0000eb50  20 20 20 20 20 20 3b 0d  30 30 39 31 37 20 46 41  |      ;.00917 FA|
0000eb60  37 42 20 42 37 46 38 33  31 20 20 3e 20 20 20 20  |7B B7F831  >    |
0000eb70  20 20 20 20 20 20 20 53  54 41 20 41 20 45 58 50  |       STA A EXP|
0000eb80  44 54 41 20 20 20 20 20  20 20 20 20 3b 53 45 54  |DTA         ;SET|
0000eb90  20 45 58 50 45 43 54 20  44 41 54 41 20 35 35 0d  | EXPECT DATA 55.|
0000eba0  30 30 39 31 38 20 46 41  37 45 20 37 44 46 38 30  |00918 FA7E 7DF80|
0000ebb0  31 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 54  |1  >           T|
0000ebc0  53 54 20 20 20 53 49 47  46 4c 47 20 20 20 20 20  |ST   SIGFLG     |
0000ebd0  20 20 20 20 3b 49 46 20  54 41 4b 49 4e 47 20 53  |    ;IF TAKING S|
0000ebe0  49 47 4e 41 54 55 52 45  53 0d 30 30 39 31 39 20  |IGNATURES.00919 |
0000ebf0  46 41 38 31 20 32 36 30  38 20 20 20 20 20 20 20  |FA81 2608       |
0000ec00  20 20 20 20 20 20 20 20  20 42 4e 45 20 20 20 4e  |         BNE   N|
0000ec10  4f 4d 53 47 31 20 20 20  20 20 20 20 20 20 3b 44  |OMSG1         ;D|
0000ec20  4f 4e 54 20 44 49 53 50  4c 41 59 20 4d 45 53 53  |ONT DISPLAY MESS|
0000ec30  41 47 45 0d 30 30 39 32  30 20 46 41 38 33 20 43  |AGE.00920 FA83 C|
0000ec40  45 46 44 36 45 20 20 3e  20 20 20 20 20 20 20 20  |EFD6E  >        |
0000ec50  20 20 20 4c 44 58 20 20  20 23 53 57 32 4d 53 47  |   LDX   #SW2MSG|
0000ec60  20 20 20 20 20 20 20 20  3b 44 49 53 50 4c 41 59  |        ;DISPLAY|
0000ec70  0d 30 30 39 32 31 20 46  41 38 36 20 38 36 30 32  |.00921 FA86 8602|
0000ec80  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000ec90  4c 44 41 20 41 20 23 4d  45 53 53 47 20 20 20 20  |LDA A #MESSG    |
0000eca0  20 20 20 20 20 20 20 3b  4d 45 53 53 41 47 45 0d  |       ;MESSAGE.|
0000ecb0  30 30 39 32 32 20 46 41  38 38 20 42 44 46 44 46  |00922 FA88 BDFDF|
0000ecc0  42 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 4a  |B  >           J|
0000ecd0  53 52 20 20 20 50 53 56  43 20 20 20 20 20 20 20  |SR   PSVC       |
0000ece0  20 20 20 20 3b 4f 44 44  20 53 57 49 54 43 48 45  |    ;ODD SWITCHE|
0000ecf0  53 20 4f 4e 0d 30 30 39  32 33 20 46 41 38 42 20  |S ON.00923 FA8B |
0000ed00  42 44 46 41 38 46 20 20  3e 20 20 4e 4f 4d 53 47  |BDFA8F  >  NOMSG|
0000ed10  31 20 20 20 4a 53 52 20  20 20 52 44 53 57 20 20  |1   JSR   RDSW  |
0000ed20  20 20 20 20 20 20 20 20  20 3b 52 45 41 44 20 53  |         ;READ S|
0000ed30  57 49 54 43 48 20 50 4f  52 54 53 0d 30 30 39 32  |WITCH PORTS.0092|
0000ed40  34 20 46 41 38 45 20 33  39 20 20 20 20 20 20 20  |4 FA8E 39       |
0000ed50  20 20 20 20 20 20 20 20  20 20 20 52 54 53 0d 30  |           RTS.0|
0000ed60  30 39 32 35 20 20 20 20  20 20 20 20 20 20 20 20  |0925            |
0000ed70  20 20 20 20 20 3b 0d 30  30 39 32 36 20 20 20 20  |     ;.00926    |
0000ed80  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 2a 2a  |             ;**|
0000ed90  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000edd0  2a 2a 2a 0d 30 30 39 32  37 20 20 20 20 20 20 20  |***.00927       |
0000ede0  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 39 32  |          ;.0092|
0000edf0  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
0000ee00  20 20 3b 52 44 53 57 20  53 55 42 2d 52 4f 55 54  |  ;RDSW SUB-ROUT|
0000ee10  49 4e 45 0d 30 30 39 32  39 20 20 20 20 20 20 20  |INE.00929       |
0000ee20  20 20 20 20 20 20 20 20  20 20 3b 52 45 41 44 20  |          ;READ |
0000ee30  54 48 45 20 53 57 49 54  43 48 20 50 4f 52 54 53  |THE SWITCH PORTS|
0000ee40  0d 30 30 39 33 30 20 20  20 20 20 20 20 20 20 20  |.00930          |
0000ee50  20 20 20 20 20 20 20 3b  0d 30 30 39 33 31 20 20  |       ;.00931  |
0000ee60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000ee70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000eeb0  2a 2a 2a 2a 2a 0d 30 30  39 33 32 20 20 20 20 20  |*****.00932     |
0000eec0  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 30  |            ;.00|
0000eed0  39 33 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |933             |
0000eee0  20 20 20 20 3b 0d 30 30  39 33 34 20 20 20 20 20  |    ;.00934     |
0000eef0  20 46 41 38 46 20 20 20  20 3e 20 20 52 44 53 57  | FA8F    >  RDSW|
0000ef00  20 20 20 20 20 20 45 51  55 20 20 20 24 20 20 20  |      EQU   $   |
0000ef10  20 20 20 20 20 20 20 20  20 20 20 3b 53 54 41 52  |           ;STAR|
0000ef20  54 0d 30 30 39 33 35 20  46 41 38 46 20 38 36 30  |T.00935 FA8F 860|
0000ef30  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
0000ef40  20 4c 44 41 20 41 20 23  31 20 20 20 20 20 20 20  | LDA A #1       |
0000ef50  20 20 20 20 20 20 0d 30  30 39 33 36 20 46 41 39  |      .00936 FA9|
0000ef60  31 20 42 37 46 38 33 35  20 20 3e 20 20 20 20 20  |1 B7F835  >     |
0000ef70  20 20 20 20 20 20 53 54  41 20 41 20 53 57 4e 55  |      STA A SWNU|
0000ef80  4d 20 20 20 20 20 20 20  20 20 20 3b 53 57 49 54  |M          ;SWIT|
0000ef90  43 48 20 23 3d 31 0d 30  30 39 33 37 20 46 41 39  |CH #=1.00937 FA9|
0000efa0  34 20 42 36 32 30 31 41  20 20 20 20 20 20 20 20  |4 B6201A        |
0000efb0  20 20 20 20 20 20 4c 44  41 20 41 20 43 52 4f 50  |      LDA A CROP|
0000efc0  53 57 20 20 20 20 20 20  20 20 20 3b 52 45 41 44  |SW         ;READ|
0000efd0  20 53 57 49 54 43 48 20  50 4f 52 54 20 31 0d 30  | SWITCH PORT 1.0|
0000efe0  30 39 33 38 20 46 41 39  37 20 42 44 46 41 41 36  |0938 FA97 BDFAA6|
0000eff0  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 4a 53  |  >           JS|
0000f000  52 20 20 20 43 4d 50 53  57 20 20 20 20 20 20 20  |R   CMPSW       |
0000f010  20 20 20 3b 47 4f 20 54  4f 20 43 4f 4d 50 41 52  |   ;GO TO COMPAR|
0000f020  45 20 53 2f 52 0d 30 30  39 33 39 20 46 41 39 41  |E S/R.00939 FA9A|
0000f030  20 38 36 30 32 20 20 20  20 20 20 20 20 20 20 20  | 8602           |
0000f040  20 20 20 20 20 4c 44 41  20 41 20 23 32 20 20 20  |     LDA A #2   |
0000f050  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 39 34  |          ;.0094|
0000f060  30 20 46 41 39 43 20 42  37 46 38 33 35 20 20 3e  |0 FA9C B7F835  >|
0000f070  20 20 20 20 20 20 20 20  20 20 20 53 54 41 20 41  |           STA A|
0000f080  20 53 57 4e 55 4d 20 20  20 20 20 20 20 20 20 20  | SWNUM          |
0000f090  3b 53 57 49 54 43 48 20  23 3d 32 0d 30 30 39 34  |;SWITCH #=2.0094|
0000f0a0  31 20 46 41 39 46 20 42  36 32 30 31 44 20 20 20  |1 FA9F B6201D   |
0000f0b0  20 20 20 20 20 20 20 20  20 20 20 4c 44 41 20 41  |           LDA A|
0000f0c0  20 43 52 4f 50 53 57 32  20 20 20 20 20 20 20 20  | CROPSW2        |
0000f0d0  3b 52 45 41 44 20 53 57  49 54 43 48 20 50 4f 52  |;READ SWITCH POR|
0000f0e0  54 20 32 0d 30 30 39 34  32 20 46 41 41 32 20 42  |T 2.00942 FAA2 B|
0000f0f0  44 46 41 41 36 20 20 3e  20 20 20 20 20 20 20 20  |DFAA6  >        |
0000f100  20 20 20 4a 53 52 20 20  20 43 4d 50 53 57 20 20  |   JSR   CMPSW  |
0000f110  20 20 20 20 20 20 20 20  3b 47 4f 20 54 4f 20 43  |        ;GO TO C|
0000f120  4f 4d 50 41 52 45 20 53  2f 52 0d 30 30 39 34 33  |OMPARE S/R.00943|
0000f130  20 46 41 41 35 20 33 39  20 20 20 20 20 20 20 20  | FAA5 39        |
0000f140  20 20 20 20 20 20 20 20  20 20 52 54 53 0d 30 30  |          RTS.00|
0000f150  39 34 34 20 20 20 20 20  20 20 20 20 20 20 20 20  |944             |
0000f160  20 20 20 20 3b 0d 30 30  39 34 35 20 20 20 20 20  |    ;.00945     |
0000f170  20 20 20 20 20 20 20 20  20 20 20 20 3b 2a 2a 2a  |            ;***|
0000f180  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000f1c0  2a 2a 0d 30 30 39 34 36  20 20 20 20 20 20 20 20  |**.00946        |
0000f1d0  20 20 20 20 20 20 20 20  20 3b 0d 30 30 39 34 37  |         ;.00947|
0000f1e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000f1f0  20 3b 43 4d 50 53 57 20  53 55 42 2d 52 4f 55 54  | ;CMPSW SUB-ROUT|
0000f200  49 4e 45 0d 30 30 39 34  38 20 20 20 20 20 20 20  |INE.00948       |
0000f210  20 20 20 20 20 20 20 20  20 20 3b 43 4f 4d 50 41  |          ;COMPA|
0000f220  52 45 53 20 53 57 49 54  43 48 20 44 41 54 41 20  |RES SWITCH DATA |
0000f230  54 4f 20 45 58 50 45 43  54 20 44 41 54 41 0d 30  |TO EXPECT DATA.0|
0000f240  30 39 34 39 20 20 20 20  20 20 20 20 20 20 20 20  |0949            |
0000f250  20 20 20 20 20 3b 0d 30  30 39 35 30 20 20 20 20  |     ;.00950    |
0000f260  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 2a 2a  |             ;**|
0000f270  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000f2b0  2a 2a 2a 0d 0c 54 65 6b  74 72 6f 6e 69 78 20 20  |***..Tektronix  |
0000f2c0  20 20 20 20 4d 36 38 30  30 20 41 53 4d 20 56 33  |    M6800 ASM V3|
0000f2d0  2e 33 20 20 55 53 45 20  43 4f 4d 4d 2d 52 41 4d  |.3  USE COMM-RAM|
0000f2e0  2d 30 35 20 44 49 41 47  20 50 41 52 54 20 b3 20  |-05 DIAG PART . |
0000f2f0  20 20 20 50 61 67 65 20  20 20 20 32 39 0d 43 4f  |   Page    29.CO|
0000f300  4d 2d 52 41 4d 20 54 45  53 54 20 23 20 33 20 20  |M-RAM TEST # 3  |
0000f310  39 32 30 2d 30 30 30 39  39 2d 30 32 2d c2 0d 0d  |920-00099-02-...|
0000f320  30 30 39 35 31 20 20 20  20 20 20 20 20 20 20 20  |00951           |
0000f330  20 20 20 20 20 20 3b 0d  30 30 39 35 32 20 20 20  |      ;.00952   |
0000f340  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
0000f350  30 30 39 35 33 20 20 20  20 20 20 46 41 41 36 20  |00953      FAA6 |
0000f360  20 20 20 3e 20 20 43 4d  50 53 57 20 20 20 20 45  |   >  CMPSW    E|
0000f370  51 55 20 20 20 24 20 20  20 20 20 20 20 20 20 20  |QU   $          |
0000f380  20 20 20 20 3b 53 54 41  52 54 0d 30 30 39 35 34  |    ;START.00954|
0000f390  20 46 41 41 36 20 42 37  46 38 33 36 20 20 3e 20  | FAA6 B7F836  > |
0000f3a0  20 20 20 20 20 20 20 20  20 20 53 54 41 20 41 20  |          STA A |
0000f3b0  53 57 44 54 41 20 20 20  20 20 20 20 20 20 20 3b  |SWDTA          ;|
0000f3c0  53 41 56 45 20 53 57 49  54 43 48 20 44 41 54 41  |SAVE SWITCH DATA|
0000f3d0  0d 30 30 39 35 35 20 46  41 41 39 20 37 44 46 38  |.00955 FAA9 7DF8|
0000f3e0  30 31 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |01  >           |
0000f3f0  54 53 54 20 20 20 53 49  47 46 4c 47 20 20 20 20  |TST   SIGFLG    |
0000f400  20 20 20 20 20 3b 49 46  20 54 41 4b 49 4e 47 20  |     ;IF TAKING |
0000f410  53 49 47 4e 41 54 55 52  45 53 0d 30 30 39 35 36  |SIGNATURES.00956|
0000f420  20 46 41 41 43 20 32 36  30 42 20 20 20 20 20 20  | FAAC 260B      |
0000f430  20 20 20 20 20 20 20 20  20 20 42 4e 45 20 20 20  |          BNE   |
0000f440  4e 4f 45 52 20 20 20 20  20 20 20 20 20 20 20 3b  |NOER           ;|
0000f450  42 59 50 41 53 53 20 45  52 52 4f 52 20 52 54 4e  |BYPASS ERROR RTN|
0000f460  0d 30 30 39 35 37 20 46  41 41 45 20 42 31 46 38  |.00957 FAAE B1F8|
0000f470  33 31 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |31  >           |
0000f480  43 4d 50 20 41 20 45 58  50 44 54 41 20 20 20 20  |CMP A EXPDTA    |
0000f490  20 20 20 20 20 3b 53 57  49 54 43 48 20 44 41 54  |     ;SWITCH DAT|
0000f4a0  41 3d 45 58 50 45 43 54  20 44 41 54 41 3f 0d 30  |A=EXPECT DATA?.0|
0000f4b0  30 39 35 38 20 46 41 42  31 20 32 37 30 36 20 20  |0958 FAB1 2706  |
0000f4c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 42 45  |              BE|
0000f4d0  51 20 20 20 4e 4f 45 52  20 20 20 20 20 20 20 20  |Q   NOER        |
0000f4e0  20 20 20 3b 59 45 53 20  54 4f 20 54 4f 20 52 45  |   ;YES TO TO RE|
0000f4f0  54 55 52 4e 0d 30 30 39  35 39 20 46 41 42 33 20  |TURN.00959 FAB3 |
0000f500  43 45 46 44 38 35 20 20  3e 20 20 20 20 20 20 20  |CEFD85  >       |
0000f510  20 20 20 20 4c 44 58 20  20 20 23 53 57 45 52 20  |    LDX   #SWER |
0000f520  20 20 20 20 20 20 20 20  20 3b 0d 30 30 39 36 30  |         ;.00960|
0000f530  20 46 41 42 36 20 42 44  46 44 45 30 20 20 3e 20  | FAB6 BDFDE0  > |
0000f540  20 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |          JSR   |
0000f550  45 52 52 4f 55 54 20 20  20 20 20 20 20 20 20 3b  |ERROUT         ;|
0000f560  50 55 54 20 4f 55 54 20  45 52 52 4f 52 20 4d 45  |PUT OUT ERROR ME|
0000f570  53 41 47 45 0d 30 30 39  36 31 20 46 41 42 39 20  |SAGE.00961 FAB9 |
0000f580  33 39 20 20 20 20 20 20  20 20 20 4e 4f 45 52 20  |39         NOER |
0000f590  20 20 20 20 52 54 53 20  20 20 20 20 20 20 20 20  |    RTS         |
0000f5a0  20 20 20 20 20 20 20 20  20 3b 52 45 54 55 52 4e  |         ;RETURN|
0000f5b0  0d 0c 54 65 6b 74 72 6f  6e 69 78 20 20 20 20 20  |..Tektronix     |
0000f5c0  20 4d 36 38 30 30 20 41  53 4d 20 56 33 2e 33 20  | M6800 ASM V3.3 |
0000f5d0  20 55 53 45 20 43 4f 4d  4d 2d 52 41 4d 2d 30 35  | USE COMM-RAM-05|
0000f5e0  20 44 49 41 47 20 50 41  52 54 20 b3 20 20 20 20  | DIAG PART .    |
0000f5f0  50 61 67 65 20 20 20 20  33 30 0d 43 4f 4d 2d 52  |Page    30.COM-R|
0000f600  41 4d 20 54 45 53 54 20  23 20 33 20 20 39 32 30  |AM TEST # 3  920|
0000f610  2d 30 30 30 39 39 2d 30  32 2d c2 0d 0d 30 30 39  |-00099-02-...009|
0000f620  36 33 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |63              |
0000f630  20 20 20 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |   ;************|
0000f640  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000f670  2a 2a 2a 2a 2a 2a 0d 30  30 39 36 34 20 20 20 20  |******.00964    |
0000f680  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
0000f690  30 39 36 35 20 20 20 20  20 20 20 20 20 20 20 20  |0965            |
0000f6a0  20 20 20 20 20 3b 49 4e  54 45 52 55 50 54 20 54  |     ;INTERUPT T|
0000f6b0  45 53 54 20 23 30 32 0d  30 30 39 36 36 20 20 20  |EST #02.00966   |
0000f6c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 54  |              ;T|
0000f6d0  45 53 54 53 20 41 43 49  41 20 49 4e 54 45 52 55  |ESTS ACIA INTERU|
0000f6e0  50 54 53 0d 30 30 39 36  37 20 20 20 20 20 20 20  |PTS.00967       |
0000f6f0  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 39 36  |          ;.0096|
0000f700  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
0000f710  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
0000f720  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000f750  2a 2a 2a 2a 2a 2a 2a 2a  0d 30 30 39 36 39 20 20  |********.00969  |
0000f760  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000f770  0d 30 30 39 37 30 20 20  20 20 20 20 46 41 42 41  |.00970      FABA|
0000f780  20 20 20 20 3e 20 20 53  54 53 54 30 32 20 20 20  |    >  STST02   |
0000f790  45 51 55 20 20 20 24 20  20 20 20 20 20 20 20 20  |EQU   $         |
0000f7a0  20 20 20 20 20 3b 53 54  41 52 54 0d 30 30 39 37  |     ;START.0097|
0000f7b0  31 20 46 41 42 41 20 38  45 46 38 46 46 20 20 20  |1 FABA 8EF8FF   |
0000f7c0  20 20 20 20 20 20 20 20  20 20 20 4c 44 53 20 20  |           LDS  |
0000f7d0  20 23 49 53 54 41 43 4b  20 20 20 20 20 20 20 20  | #ISTACK        |
0000f7e0  3b 0d 30 30 39 37 32 20  46 41 42 44 20 43 45 46  |;.00972 FABD CEF|
0000f7f0  44 32 44 20 20 3e 20 20  20 20 20 20 20 20 20 20  |D2D  >          |
0000f800  20 4c 44 58 20 20 20 23  49 4e 54 4d 53 47 20 20  | LDX   #INTMSG  |
0000f810  20 20 20 20 20 20 3b 49  4e 54 45 52 55 50 54 20  |      ;INTERUPT |
0000f820  54 45 53 54 20 4d 45 53  53 41 47 45 0d 30 30 39  |TEST MESSAGE.009|
0000f830  37 33 20 46 41 43 30 20  42 44 46 45 30 33 20 20  |73 FAC0 BDFE03  |
0000f840  3e 20 20 20 20 20 20 20  20 20 20 20 4a 53 52 20  |>           JSR |
0000f850  20 20 49 4e 49 54 20 20  20 20 20 20 20 20 20 20  |  INIT          |
0000f860  20 3b 49 4e 49 54 49 41  4c 49 5a 45 0d 30 30 39  | ;INITIALIZE.009|
0000f870  37 34 20 46 41 43 33 20  42 44 46 39 43 35 20 20  |74 FAC3 BDF9C5  |
0000f880  3e 20 20 20 20 20 20 20  20 20 20 20 4a 53 52 20  |>           JSR |
0000f890  20 20 42 53 39 36 30 30  20 20 20 20 20 20 20 20  |  BS9600        |
0000f8a0  20 3b 53 45 4c 45 43 54  20 39 36 30 30 20 42 41  | ;SELECT 9600 BA|
0000f8b0  55 44 20 52 41 54 45 0d  30 30 39 37 35 20 46 41  |UD RATE.00975 FA|
0000f8c0  43 36 20 42 44 46 39 32  42 20 20 3e 20 20 20 20  |C6 BDF92B  >    |
0000f8d0  20 20 20 20 20 20 20 4a  53 52 20 20 20 54 53 39  |       JSR   TS9|
0000f8e0  36 30 30 20 20 20 20 20  20 20 20 20 3b 53 45 54  |600         ;SET|
0000f8f0  20 54 49 4d 45 52 20 46  4f 52 20 39 36 30 30 20  | TIMER FOR 9600 |
0000f900  54 49 4d 45 20 4f 55 54  0d 30 30 39 37 36 20 20  |TIME OUT.00976  |
0000f910  20 20 20 20 46 41 43 39  20 20 20 20 3e 20 20 53  |    FAC9    >  S|
0000f920  47 53 54 30 32 20 20 20  45 51 55 20 20 20 24 20  |GST02   EQU   $ |
0000f930  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 53 49  |             ;SI|
0000f940  47 4e 41 54 55 52 45 20  53 54 41 52 54 0d 30 30  |GNATURE START.00|
0000f950  39 37 37 20 20 20 20 20  20 46 41 43 39 20 20 20  |977      FAC9   |
0000f960  20 3e 20 20 53 47 52 53  30 32 20 20 20 45 51 55  | >  SGRS02   EQU|
0000f970  20 20 20 24 20 20 20 20  20 20 20 20 20 20 20 20  |   $            |
0000f980  20 20 3b 53 49 47 4e 41  54 55 52 45 20 52 45 53  |  ;SIGNATURE RES|
0000f990  54 41 52 54 0d 30 30 39  37 38 20 46 41 43 39 20  |TART.00978 FAC9 |
0000f9a0  37 46 46 38 32 44 20 20  3e 20 20 20 20 20 20 20  |7FF82D  >       |
0000f9b0  20 20 20 20 43 4c 52 20  20 20 49 4e 54 46 4c 47  |    CLR   INTFLG|
0000f9c0  0d 30 30 39 37 39 20 46  41 43 43 20 42 44 46 41  |.00979 FACC BDFA|
0000f9d0  45 30 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |E0  >           |
0000f9e0  4a 53 52 20 20 20 52 44  52 46 49 43 4b 20 20 20  |JSR   RDRFICK   |
0000f9f0  20 20 20 20 20 3b 47 4f  20 54 4f 20 52 44 52 46  |     ;GO TO RDRF|
0000fa00  20 49 4e 54 45 52 55 50  54 20 43 48 45 43 4b 0d  | INTERUPT CHECK.|
0000fa10  30 30 39 38 30 20 46 41  43 46 20 42 44 46 42 30  |00980 FACF BDFB0|
0000fa20  41 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 4a  |A  >           J|
0000fa30  53 52 20 20 20 4f 56 52  4e 49 43 4b 20 20 20 20  |SR   OVRNICK    |
0000fa40  20 20 20 20 3b 47 4f 20  54 4f 20 4f 56 52 4e 20  |    ;GO TO OVRN |
0000fa50  49 4e 54 45 52 55 50 54  20 43 48 45 43 4b 0d 30  |INTERUPT CHECK.0|
0000fa60  30 39 38 31 20 46 41 44  32 20 37 44 46 38 30 31  |0981 FAD2 7DF801|
0000fa70  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 54 53  |  >           TS|
0000fa80  54 20 20 20 53 49 47 46  4c 47 20 20 20 20 20 20  |T   SIGFLG      |
0000fa90  20 20 20 3b 49 46 20 54  41 4b 49 4e 47 20 53 49  |   ;IF TAKING SI|
0000faa0  47 4e 41 54 55 52 45 53  0d 30 30 39 38 32 20 46  |GNATURES.00982 F|
0000fab0  41 44 35 20 32 36 30 33  20 20 20 20 20 20 20 20  |AD5 2603        |
0000fac0  20 20 20 20 20 20 20 20  42 4e 45 20 20 20 42 50  |        BNE   BP|
0000fad0  54 20 20 20 20 20 20 20  20 20 20 20 20 3b 42 59  |T            ;BY|
0000fae0  50 41 53 53 20 54 48 45  20 44 43 44 20 54 45 53  |PASS THE DCD TES|
0000faf0  54 0d 30 30 39 38 33 20  46 41 44 37 20 42 44 46  |T.00983 FAD7 BDF|
0000fb00  42 34 39 20 20 3e 20 20  20 20 20 20 20 20 20 20  |B49  >          |
0000fb10  20 4a 53 52 20 20 20 44  43 44 49 43 4b 20 20 20  | JSR   DCDICK   |
0000fb20  20 20 20 20 20 20 3b 47  4f 20 54 4f 20 44 43 44  |      ;GO TO DCD|
0000fb30  20 49 4e 54 45 52 55 50  54 20 43 48 45 43 4b 0d  | INTERUPT CHECK.|
0000fb40  30 30 39 38 34 20 46 41  44 41 20 42 44 46 42 37  |00984 FADA BDFB7|
0000fb50  33 20 20 3e 20 20 42 50  54 20 20 20 20 20 20 4a  |3  >  BPT      J|
0000fb60  53 52 20 20 20 54 44 52  45 49 43 4b 20 20 20 20  |SR   TDREICK    |
0000fb70  20 20 20 20 3b 47 4f 20  54 4f 20 54 44 52 45 20  |    ;GO TO TDRE |
0000fb80  49 4e 54 45 52 55 50 54  20 43 48 45 43 4b 0d 30  |INTERUPT CHECK.0|
0000fb90  30 39 38 35 20 20 20 20  20 20 46 41 44 44 20 20  |0985      FADD  |
0000fba0  20 20 3e 20 20 53 47 4e  44 30 32 20 20 20 45 51  |  >  SGND02   EQ|
0000fbb0  55 20 20 20 24 20 20 20  20 20 20 20 20 20 20 20  |U   $           |
0000fbc0  20 20 20 3b 53 49 47 4e  41 54 55 52 45 20 45 4e  |   ;SIGNATURE EN|
0000fbd0  44 0d 30 30 39 38 36 20  46 41 44 44 20 37 45 46  |D.00986 FADD 7EF|
0000fbe0  45 34 32 20 20 3e 20 20  20 20 20 20 20 20 20 20  |E42  >          |
0000fbf0  20 4a 4d 50 20 20 20 53  54 45 4e 44 20 20 20 20  | JMP   STEND    |
0000fc00  20 20 20 20 20 20 3b 45  4e 44 20 53 55 42 20 54  |      ;END SUB T|
0000fc10  45 53 54 20 23 30 32 0d  30 30 39 38 37 20 20 20  |EST #02.00987   |
0000fc20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
0000fc30  0c 54 65 6b 74 72 6f 6e  69 78 20 20 20 20 20 20  |.Tektronix      |
0000fc40  4d 36 38 30 30 20 41 53  4d 20 56 33 2e 33 20 20  |M6800 ASM V3.3  |
0000fc50  55 53 45 20 43 4f 4d 4d  2d 52 41 4d 2d 30 35 20  |USE COMM-RAM-05 |
0000fc60  44 49 41 47 20 50 41 52  54 20 b3 20 20 20 20 50  |DIAG PART .    P|
0000fc70  61 67 65 20 20 20 20 33  31 0d 43 4f 4d 2d 52 41  |age    31.COM-RA|
0000fc80  4d 20 54 45 53 54 20 23  20 33 20 20 39 32 30 2d  |M TEST # 3  920-|
0000fc90  30 30 30 39 39 2d 30 32  2d c2 0d 0d 30 30 39 38  |00099-02-...0098|
0000fca0  39 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |9               |
0000fcb0  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
0000fcc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000fcf0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 30 30 39 39 30 20  |*********.00990 |
0000fd00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0000fd10  3b 0d 30 30 39 39 31 20  20 20 20 20 20 20 20 20  |;.00991         |
0000fd20  20 20 20 20 20 20 20 20  3b 52 44 52 46 49 43 4b  |        ;RDRFICK|
0000fd30  20 53 55 42 2d 52 4f 55  54 49 4e 45 0d 30 30 39  | SUB-ROUTINE.009|
0000fd40  39 32 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |92              |
0000fd50  20 20 20 3b 43 48 45 43  4b 53 20 52 44 52 46 20  |   ;CHECKS RDRF |
0000fd60  47 45 4e 45 52 41 54 45  44 20 49 4e 54 45 52 55  |GENERATED INTERU|
0000fd70  50 54 53 0d 30 30 39 39  33 20 20 20 20 20 20 20  |PTS.00993       |
0000fd80  20 20 20 20 20 20 20 20  20 20 3b 0d 30 30 39 39  |          ;.0099|
0000fd90  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
0000fda0  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
0000fdb0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0000fde0  2a 2a 2a 2a 2a 2a 2a 2a  0d 30 30 39 39 35 20 20  |********.00995  |
0000fdf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
0000fe00  0d 30 30 39 39 36 20 20  20 20 20 20 46 41 45 30  |.00996      FAE0|
0000fe10  20 20 20 20 3e 20 20 52  44 52 46 49 43 4b 20 20  |    >  RDRFICK  |
0000fe20  45 51 55 20 20 20 24 20  20 20 20 20 20 20 20 20  |EQU   $         |
0000fe30  20 20 20 20 20 3b 53 54  41 52 54 0d 30 30 39 39  |     ;START.0099|
0000fe40  37 20 46 41 45 30 20 42  44 46 43 31 45 20 20 3e  |7 FAE0 BDFC1E  >|
0000fe50  20 20 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |           JSR  |
0000fe60  20 57 54 31 52 44 32 20  20 20 20 20 20 20 20 20  | WT1RD2         |
0000fe70  3b 53 45 54 20 55 50 20  57 52 49 54 45 20 50 4f  |;SET UP WRITE PO|
0000fe80  52 54 20 31 20 52 45 41  44 20 50 4f 52 54 20 32  |RT 1 READ PORT 2|
0000fe90  0d 30 30 39 39 38 20 46  41 45 33 20 42 44 46 41  |.00998 FAE3 BDFA|
0000fea0  45 44 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |ED  >           |
0000feb0  4a 53 52 20 20 20 52 44  52 46 49 54 20 20 20 20  |JSR   RDRFIT    |
0000fec0  20 20 20 20 20 3b 47 4f  20 54 4f 20 52 44 52 46  |     ;GO TO RDRF|
0000fed0  20 49 4e 54 20 54 45 53  54 0d 30 30 39 39 39 20  | INT TEST.00999 |
0000fee0  46 41 45 36 20 42 44 46  43 34 34 20 20 3e 20 20  |FAE6 BDFC44  >  |
0000fef0  20 20 20 20 20 20 20 20  20 4a 53 52 20 20 20 57  |         JSR   W|
0000ff00  54 32 52 44 31 20 20 20  20 20 20 20 20 20 3b 53  |T2RD1         ;S|
0000ff10  45 54 20 55 50 20 57 52  49 54 45 20 50 4f 52 54  |ET UP WRITE PORT|
0000ff20  20 32 20 52 45 41 44 20  50 4f 52 54 20 31 0d 30  | 2 READ PORT 1.0|
0000ff30  31 30 30 30 20 46 41 45  39 20 42 44 46 41 45 44  |1000 FAE9 BDFAED|
0000ff40  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 4a 53  |  >           JS|
0000ff50  52 20 20 20 52 44 52 46  49 54 20 20 20 20 20 20  |R   RDRFIT      |
0000ff60  20 20 20 3b 47 4f 20 54  4f 20 52 44 52 46 20 49  |   ;GO TO RDRF I|
0000ff70  4e 54 20 54 45 53 54 0d  30 31 30 30 31 20 46 41  |NT TEST.01001 FA|
0000ff80  45 43 20 33 39 20 20 20  20 20 20 20 20 20 20 20  |EC 39           |
0000ff90  20 20 20 20 20 20 20 52  54 53 20 20 20 20 20 20  |       RTS      |
0000ffa0  20 20 20 20 20 20 20 20  20 20 20 20 3b 52 45 54  |            ;RET|
0000ffb0  55 52 4e 0d 30 31 30 30  32 20 20 20 20 20 20 20  |URN.01002       |
0000ffc0  20 20 20 20 20 20 20 20  20 20 3b 2a 2a 2a 2a 2a  |          ;*****|
0000ffd0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00010010  2a 0d 30 31 30 30 33 20  20 20 20 20 20 20 20 20  |*.01003         |
00010020  20 20 20 20 20 20 20 20  3b 0d 30 31 30 30 34 20  |        ;.01004 |
00010030  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00010040  3b 52 44 52 46 49 54 20  53 55 42 2d 52 4f 55 54  |;RDRFIT SUB-ROUT|
00010050  49 4e 45 0d 30 31 30 30  35 20 20 20 20 20 20 20  |INE.01005       |
00010060  20 20 20 20 20 20 20 20  20 20 3b 54 45 53 54 53  |          ;TESTS|
00010070  20 52 44 52 46 20 49 4e  54 45 52 55 50 54 53 0d  | RDRF INTERUPTS.|
00010080  30 31 30 30 36 20 20 20  20 20 20 20 20 20 20 20  |01006           |
00010090  20 20 20 20 20 20 3b 0d  30 31 30 30 37 20 20 20  |      ;.01007   |
000100a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 2a  |              ;*|
000100b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000100f0  2a 2a 2a 2a 2a 0d 30 31  30 30 38 20 20 20 20 20  |*****.01008     |
00010100  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 31  |            ;.01|
00010110  30 30 39 20 20 20 20 20  20 46 41 45 44 20 20 20  |009      FAED   |
00010120  20 3e 20 20 52 44 52 46  49 54 20 20 20 45 51 55  | >  RDRFIT   EQU|
00010130  20 20 20 24 20 20 20 20  20 20 20 20 20 20 20 20  |   $            |
00010140  20 20 3b 53 54 41 52 54  0d 30 31 30 31 30 20 46  |  ;START.01010 F|
00010150  41 45 44 20 42 44 46 42  45 35 20 20 3e 20 20 20  |AED BDFBE5  >   |
00010160  20 20 20 20 20 20 20 20  4a 53 52 20 20 20 52 44  |        JSR   RD|
00010170  49 4e 54 53 55 20 20 20  20 20 20 20 20 3b 53 45  |INTSU        ;SE|
00010180  54 20 55 50 20 50 4f 52  54 20 46 4f 52 20 52 45  |T UP PORT FOR RE|
00010190  43 45 49 56 45 52 20 49  4e 54 45 52 55 50 54 0d  |CEIVER INTERUPT.|
000101a0  30 31 30 31 31 20 46 41  46 30 20 46 45 46 38 32  |01011 FAF0 FEF82|
000101b0  33 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 4c  |3  >           L|
000101c0  44 58 20 20 20 57 54 44  41 50 54 0d 30 31 30 31  |DX   WTDAPT.0101|
000101d0  32 20 46 41 46 33 20 41  37 30 30 20 20 20 20 20  |2 FAF3 A700     |
000101e0  20 20 20 20 20 20 20 20  20 20 20 53 54 41 20 41  |           STA A|
000101f0  20 30 2c 58 20 20 20 20  20 20 20 20 20 3b 57 52  | 0,X         ;WR|
00010200  49 54 45 20 54 4f 20 44  41 54 41 20 50 4f 52 54  |ITE TO DATA PORT|
00010210  0d 30 31 30 31 33 20 46  41 46 35 20 42 44 46 39  |.01013 FAF5 BDF9|
00010220  32 30 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |20  >           |
00010230  4a 53 52 20 20 20 54 4d  52 39 35 20 20 20 20 20  |JSR   TMR95     |
00010240  20 20 20 20 20 3b 57 41  49 54 20 41 57 48 49 4c  |     ;WAIT AWHIL|
00010250  45 0d 30 31 30 31 34 20  46 41 46 38 20 42 44 46  |E.01014 FAF8 BDF|
00010260  42 46 44 20 20 3e 20 20  20 20 20 20 20 20 20 20  |BFD  >          |
00010270  20 4a 53 52 20 20 20 49  4e 54 54 53 54 20 20 20  | JSR   INTTST   |
00010280  20 20 20 20 20 20 3b 54  45 53 54 20 46 4f 52 20  |      ;TEST FOR |
00010290  49 4e 54 45 52 55 50 54  53 0d 30 31 30 31 35 20  |INTERUPTS.01015 |
000102a0  46 41 46 42 20 37 46 46  38 32 35 20 20 3e 20 20  |FAFB 7FF825  >  |
000102b0  20 20 20 20 20 20 20 20  20 43 4c 52 20 20 20 45  |         CLR   E|
000102c0  58 50 46 4c 47 20 20 20  20 20 20 20 20 20 3b 4e  |XPFLG         ;N|
000102d0  4f 20 4c 4f 4e 47 45 52  20 45 58 50 45 43 54 20  |O LONGER EXPECT |
000102e0  41 4e 20 49 4e 54 45 52  55 50 54 0d 30 31 30 31  |AN INTERUPT.0101|
000102f0  36 20 46 41 46 45 20 42  44 46 39 32 42 20 20 3e  |6 FAFE BDF92B  >|
00010300  20 20 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |           JSR  |
00010310  20 54 53 39 36 30 30 20  20 20 20 20 20 20 20 20  | TS9600         |
00010320  3b 53 45 54 20 54 49 4d  45 52 20 46 4f 52 20 39  |;SET TIMER FOR 9|
00010330  36 30 30 20 54 49 4d 45  20 4f 55 54 0d 30 31 30  |600 TIME OUT.010|
00010340  31 37 20 46 42 30 31 20  38 36 46 46 20 20 20 20  |17 FB01 86FF    |
00010350  20 20 20 20 20 20 20 20  20 20 20 20 4c 44 41 20  |            LDA |
00010360  41 20 23 30 46 46 48 0d  30 31 30 31 38 20 46 42  |A #0FFH.01018 FB|
00010370  30 33 20 42 37 46 38 32  43 20 20 3e 20 20 20 20  |03 B7F82C  >    |
00010380  20 20 20 20 20 20 20 53  54 41 20 41 20 45 58 50  |       STA A EXP|
00010390  49 4e 54 0d 30 31 30 31  39 20 46 42 30 36 20 42  |INT.01019 FB06 B|
000103a0  44 46 42 46 44 20 20 3e  20 20 20 20 20 20 20 20  |DFBFD  >        |
000103b0  20 20 20 4a 53 52 20 20  20 49 4e 54 54 53 54 20  |   JSR   INTTST |
000103c0  20 20 20 20 20 20 20 20  3b 54 45 53 54 20 46 4f  |        ;TEST FO|
000103d0  52 20 49 4e 54 45 52 55  50 54 53 0d 30 31 30 32  |R INTERUPTS.0102|
000103e0  30 20 46 42 30 39 20 33  39 20 20 20 20 20 20 20  |0 FB09 39       |
000103f0  20 20 20 20 20 20 20 20  20 20 20 52 54 53 20 20  |           RTS  |
00010400  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00010410  3b 52 45 54 55 52 4e 0d  30 31 30 32 31 20 20 20  |;RETURN.01021   |
00010420  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 2a  |              ;*|
00010430  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00010470  2a 2a 2a 2a 2a 0d 30 31  30 32 32 20 20 20 20 20  |*****.01022     |
00010480  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 31  |            ;.01|
00010490  30 32 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |023             |
000104a0  20 20 20 20 3b 4f 56 52  4e 49 43 4b 20 53 55 42  |    ;OVRNICK SUB|
000104b0  2d 52 4f 55 54 49 4e 45  0d 30 31 30 32 34 20 20  |-ROUTINE.01024  |
000104c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
000104d0  43 48 45 43 4b 53 20 49  4e 54 45 52 55 50 54 53  |CHECKS INTERUPTS|
000104e0  20 47 45 4e 45 52 41 54  45 44 20 42 59 0d 30 31  | GENERATED BY.01|
000104f0  30 32 35 20 20 20 20 20  20 20 20 20 20 20 20 20  |025             |
00010500  20 20 20 20 3b 4f 56 52  4e 20 43 4f 4e 44 49 54  |    ;OVRN CONDIT|
00010510  49 4f 4e 0d 30 31 30 32  36 20 20 20 20 20 20 20  |ION.01026       |
00010520  20 20 20 20 20 20 20 20  20 20 3b 0d 30 31 30 32  |          ;.0102|
00010530  37 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |7               |
00010540  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
00010550  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00010580  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 30 31 30 32 38 20  |*********.01028 |
00010590  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000105a0  3b 0d 30 31 30 32 39 20  20 20 20 20 20 46 42 30  |;.01029      FB0|
000105b0  41 20 20 20 20 3e 20 20  4f 56 52 4e 49 43 4b 20  |A    >  OVRNICK |
000105c0  20 45 51 55 20 20 20 24  0d 30 31 30 33 30 20 46  | EQU   $.01030 F|
000105d0  42 30 41 20 42 44 46 43  31 45 20 20 3e 20 20 20  |B0A BDFC1E  >   |
000105e0  20 20 20 20 20 20 20 20  4a 53 52 20 20 20 57 54  |        JSR   WT|
000105f0  31 52 44 32 20 20 20 20  20 20 20 20 20 3b 53 45  |1RD2         ;SE|
00010600  54 20 57 52 49 54 45 20  50 4f 52 54 20 31 20 52  |T WRITE PORT 1 R|
00010610  45 41 44 20 50 4f 52 54  20 32 0d 30 31 30 33 31  |EAD PORT 2.01031|
00010620  20 46 42 30 44 20 42 44  46 42 31 37 20 20 3e 20  | FB0D BDFB17  > |
00010630  20 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |          JSR   |
00010640  4f 56 52 4e 49 54 20 20  20 20 20 20 20 20 20 3b  |OVRNIT         ;|
00010650  47 4f 20 54 4f 20 4f 56  52 4e 20 49 4e 54 20 54  |GO TO OVRN INT T|
00010660  45 53 54 0d 30 31 30 33  32 20 46 42 31 30 20 42  |EST.01032 FB10 B|
00010670  44 46 43 34 34 20 20 3e  20 20 20 20 20 20 20 20  |DFC44  >        |
00010680  20 20 20 4a 53 52 20 20  20 57 54 32 52 44 31 20  |   JSR   WT2RD1 |
00010690  20 20 20 20 20 20 20 20  3b 53 45 50 20 57 52 49  |        ;SEP WRI|
000106a0  54 45 20 50 4f 52 54 20  32 20 52 45 41 44 20 50  |TE PORT 2 READ P|
000106b0  4f 52 54 20 31 0d 30 31  30 33 33 20 46 42 31 33  |ORT 1.01033 FB13|
000106c0  20 42 44 46 42 31 37 20  20 3e 20 20 20 20 20 20  | BDFB17  >      |
000106d0  20 20 20 20 20 4a 53 52  20 20 20 4f 56 52 4e 49  |     JSR   OVRNI|
000106e0  54 20 20 20 20 20 20 20  20 20 3b 47 4f 20 54 4f  |T         ;GO TO|
000106f0  20 4f 56 52 4e 20 49 4e  54 20 54 45 53 54 0d 30  | OVRN INT TEST.0|
00010700  31 30 33 34 20 46 42 31  36 20 33 39 20 20 20 20  |1034 FB16 39    |
00010710  20 20 20 20 20 20 20 20  20 20 20 20 20 20 52 54  |              RT|
00010720  53 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |S               |
00010730  20 20 20 3b 52 45 54 55  52 4e 0d 0c 54 65 6b 74  |   ;RETURN..Tekt|
00010740  72 6f 6e 69 78 20 20 20  20 20 20 4d 36 38 30 30  |ronix      M6800|
00010750  20 41 53 4d 20 56 33 2e  33 20 20 55 53 45 20 43  | ASM V3.3  USE C|
00010760  4f 4d 4d 2d 52 41 4d 2d  30 35 20 44 49 41 47 20  |OMM-RAM-05 DIAG |
00010770  50 41 52 54 20 b3 20 20  20 20 50 61 67 65 20 20  |PART .    Page  |
00010780  20 20 33 32 0d 43 4f 4d  2d 52 41 4d 20 54 45 53  |  32.COM-RAM TES|
00010790  54 20 23 20 33 20 20 39  32 30 2d 30 30 30 39 39  |T # 3  920-00099|
000107a0  2d 30 32 2d c2 0d 0d 30  31 30 33 36 20 20 20 20  |-02-...01036    |
000107b0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 2a 2a  |             ;**|
000107c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00010800  2a 2a 2a 2a 0d 30 31 30  33 37 20 20 20 20 20 20  |****.01037      |
00010810  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 31 30  |           ;.010|
00010820  33 38 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |38              |
00010830  20 20 20 3b 4f 56 52 4e  49 54 20 53 55 42 2d 52  |   ;OVRNIT SUB-R|
00010840  4f 55 54 49 4e 45 0d 30  31 30 33 39 20 20 20 20  |OUTINE.01039    |
00010850  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 54 45  |             ;TE|
00010860  53 54 53 20 54 48 45 20  49 4e 54 45 52 55 50 54  |STS THE INTERUPT|
00010870  20 43 41 55 53 45 44 0d  30 31 30 34 30 20 20 20  | CAUSED.01040   |
00010880  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 42  |              ;B|
00010890  59 20 41 4e 20 4f 56 45  52 52 55 4e 20 43 4f 4e  |Y AN OVERRUN CON|
000108a0  44 49 54 49 4f 4e 0d 30  31 30 34 31 20 20 20 20  |DITION.01041    |
000108b0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
000108c0  31 30 34 32 20 20 20 20  20 20 20 20 20 20 20 20  |1042            |
000108d0  20 20 20 20 20 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |     ;**********|
000108e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00010910  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 30 31 30  |************.010|
00010920  34 33 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |43              |
00010930  20 20 20 3b 0d 30 31 30  34 34 20 20 20 20 20 20  |   ;.01044      |
00010940  46 42 31 37 20 20 20 20  3e 20 20 4f 56 52 4e 49  |FB17    >  OVRNI|
00010950  54 20 20 20 45 51 55 20  20 20 24 0d 30 31 30 34  |T   EQU   $.0104|
00010960  35 20 46 42 31 37 20 42  44 46 42 45 35 20 20 3e  |5 FB17 BDFBE5  >|
00010970  20 20 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |           JSR  |
00010980  20 52 44 49 4e 54 53 55  20 20 20 20 20 20 20 20  | RDINTSU        |
00010990  3b 53 45 54 20 52 45 43  45 49 56 45 52 20 49 4e  |;SET RECEIVER IN|
000109a0  54 45 52 55 50 54 53 20  45 4e 41 42 4c 45 0d 30  |TERUPTS ENABLE.0|
000109b0  31 30 34 36 20 46 42 31  41 20 42 44 46 39 32 42  |1046 FB1A BDF92B|
000109c0  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 4a 53  |  >           JS|
000109d0  52 20 20 20 54 53 39 36  30 30 20 20 20 20 20 20  |R   TS9600      |
000109e0  20 20 20 3b 53 45 54 20  54 49 4d 45 52 20 39 36  |   ;SET TIMER 96|
000109f0  30 30 20 54 49 4d 45 20  4f 55 54 0d 30 31 30 34  |00 TIME OUT.0104|
00010a00  37 20 46 42 31 44 20 46  45 46 38 32 33 20 20 3e  |7 FB1D FEF823  >|
00010a10  20 20 20 20 20 20 20 20  20 20 20 4c 44 58 20 20  |           LDX  |
00010a20  20 57 54 44 41 50 54 0d  30 31 30 34 38 20 46 42  | WTDAPT.01048 FB|
00010a30  32 30 20 41 37 30 30 20  20 20 20 20 20 20 20 20  |20 A700         |
00010a40  20 20 20 20 20 20 20 53  54 41 20 41 20 30 2c 58  |       STA A 0,X|
00010a50  20 20 20 20 20 20 20 20  20 3b 57 52 49 54 45 20  |         ;WRITE |
00010a60  54 4f 20 44 41 54 41 20  50 4f 52 54 0d 30 31 30  |TO DATA PORT.010|
00010a70  34 39 20 46 42 32 32 20  42 44 46 39 32 30 20 20  |49 FB22 BDF920  |
00010a80  3e 20 20 20 20 20 20 20  20 20 20 20 4a 53 52 20  |>           JSR |
00010a90  20 20 54 4d 52 39 35 20  20 20 20 20 20 20 20 20  |  TMR95         |
00010aa0  20 3b 57 41 49 54 20 41  20 57 48 49 4c 45 0d 30  | ;WAIT A WHILE.0|
00010ab0  31 30 35 30 20 46 42 32  35 20 42 44 46 39 32 42  |1050 FB25 BDF92B|
00010ac0  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 4a 53  |  >           JS|
00010ad0  52 20 20 20 54 53 39 36  30 30 20 20 20 20 20 20  |R   TS9600      |
00010ae0  20 20 20 3b 53 45 54 20  54 49 4d 45 52 20 39 36  |   ;SET TIMER 96|
00010af0  30 30 20 54 49 4d 45 20  4f 55 54 0d 30 31 30 35  |00 TIME OUT.0105|
00010b00  31 20 46 42 32 38 20 41  37 30 30 20 20 20 20 20  |1 FB28 A700     |
00010b10  20 20 20 20 20 20 20 20  20 20 20 53 54 41 20 41  |           STA A|
00010b20  20 30 2c 58 20 20 20 20  20 20 20 20 20 3b 57 52  | 0,X         ;WR|
00010b30  49 54 45 20 54 4f 20 44  41 54 41 20 50 4f 52 54  |ITE TO DATA PORT|
00010b40  0d 30 31 30 35 32 20 46  42 32 41 20 42 44 46 39  |.01052 FB2A BDF9|
00010b50  32 30 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |20  >           |
00010b60  4a 53 52 20 20 20 54 4d  52 39 35 20 20 20 20 20  |JSR   TMR95     |
00010b70  20 20 20 20 20 3b 57 41  49 54 20 41 20 57 48 49  |     ;WAIT A WHI|
00010b80  4c 45 0d 30 31 30 35 33  20 46 42 32 44 20 46 45  |LE.01053 FB2D FE|
00010b90  46 38 32 36 20 20 3e 20  20 20 20 20 20 20 20 20  |F826  >         |
00010ba0  20 20 4c 44 58 20 20 20  52 44 44 41 50 54 0d 30  |  LDX   RDDAPT.0|
00010bb0  31 30 35 34 20 46 42 33  30 20 41 36 30 30 20 20  |1054 FB30 A600  |
00010bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4c 44  |              LD|
00010bd0  41 20 41 20 30 2c 58 0d  30 31 30 35 35 20 20 20  |A A 0,X.01055   |
00010be0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00010c00  20 20 20 20 20 20 20 20  20 20 20 20 3b 49 4e 54  |            ;INT|
00010c10  45 52 55 50 54 20 42 55  54 20 4e 4f 54 20 4f 56  |ERUPT BUT NOT OV|
00010c20  52 4e 20 49 4e 54 45 52  55 50 54 0d 30 31 30 35  |RN INTERUPT.0105|
00010c30  36 20 46 42 33 32 20 38  36 41 33 20 20 20 20 20  |6 FB32 86A3     |
00010c40  20 20 20 20 20 20 20 20  20 20 20 4c 44 41 20 41  |           LDA A|
00010c50  20 23 52 44 52 46 2b 4f  56 52 4e 2b 49 52 51 2b  | #RDRF+OVRN+IRQ+|
00010c60  54 44 52 45 0d 30 31 30  35 37 20 46 42 33 34 20  |TDRE.01057 FB34 |
00010c70  42 37 46 38 31 33 20 20  3e 20 20 20 20 20 20 20  |B7F813  >       |
00010c80  20 20 20 20 53 54 41 20  41 20 45 58 50 53 54 41  |    STA A EXPSTA|
00010c90  20 20 20 20 20 20 20 20  20 3b 45 58 50 45 43 54  |         ;EXPECT|
00010ca0  20 53 54 41 54 55 53 3d  52 44 52 46 2c 4f 56 52  | STATUS=RDRF,OVR|
00010cb0  4e 2c 49 52 51 2c 54 44  52 45 2c 54 52 55 45 0d  |N,IRQ,TDRE,TRUE.|
00010cc0  30 31 30 35 38 20 46 42  33 37 20 42 44 46 39 33  |01058 FB37 BDF93|
00010cd0  36 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 4a  |6  >           J|
00010ce0  53 52 20 20 20 52 44 53  54 41 54 20 20 20 20 20  |SR   RDSTAT     |
00010cf0  20 20 20 20 3b 52 45 41  44 20 53 54 41 54 55 53  |    ;READ STATUS|
00010d00  0d 30 31 30 35 39 20 46  42 33 41 20 42 44 46 42  |.01059 FB3A BDFB|
00010d10  46 44 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |FD  >           |
00010d20  4a 53 52 20 20 20 49 4e  54 54 53 54 20 20 20 20  |JSR   INTTST    |
00010d30  20 20 20 20 20 3b 47 4f  20 54 4f 20 49 4e 54 45  |     ;GO TO INTE|
00010d40  52 55 50 54 20 54 45 53  54 0d 30 31 30 36 30 20  |RUPT TEST.01060 |
00010d50  46 42 33 44 20 37 46 46  38 32 35 20 20 3e 20 20  |FB3D 7FF825  >  |
00010d60  20 20 20 20 20 20 20 20  20 43 4c 52 20 20 20 45  |         CLR   E|
00010d70  58 50 46 4c 47 20 20 20  20 20 20 20 20 20 3b 49  |XPFLG         ;I|
00010d80  4e 54 45 52 55 50 54 20  4e 4f 54 20 45 58 50 45  |NTERUPT NOT EXPE|
00010d90  43 54 45 44 0d 30 31 30  36 31 20 46 42 34 30 20  |CTED.01061 FB40 |
00010da0  38 36 46 46 20 20 20 20  20 20 20 20 20 20 20 20  |86FF            |
00010db0  20 20 20 20 4c 44 41 20  41 20 23 30 46 46 48 0d  |    LDA A #0FFH.|
00010dc0  30 31 30 36 32 20 46 42  34 32 20 42 37 46 38 32  |01062 FB42 B7F82|
00010dd0  43 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 53  |C  >           S|
00010de0  54 41 20 41 20 45 58 50  49 4e 54 0d 30 31 30 36  |TA A EXPINT.0106|
00010df0  33 20 46 42 34 35 20 42  44 46 42 46 44 20 20 3e  |3 FB45 BDFBFD  >|
00010e00  20 20 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |           JSR  |
00010e10  20 49 4e 54 54 53 54 20  20 20 20 20 20 20 20 20  | INTTST         |
00010e20  3b 47 4f 20 54 4f 20 49  4e 54 45 52 55 50 54 20  |;GO TO INTERUPT |
00010e30  54 45 53 54 0d 30 31 30  36 34 20 46 42 34 38 20  |TEST.01064 FB48 |
00010e40  33 39 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |39              |
00010e50  20 20 20 20 52 54 53 20  20 20 20 20 20 20 20 20  |    RTS         |
00010e60  20 20 20 20 20 20 20 20  20 3b 52 45 54 55 52 4e  |         ;RETURN|
00010e70  0d 0c 54 65 6b 74 72 6f  6e 69 78 20 20 20 20 20  |..Tektronix     |
00010e80  20 4d 36 38 30 30 20 41  53 4d 20 56 33 2e 33 20  | M6800 ASM V3.3 |
00010e90  20 55 53 45 20 43 4f 4d  4d 2d 52 41 4d 2d 30 35  | USE COMM-RAM-05|
00010ea0  20 44 49 41 47 20 50 41  52 54 20 b3 20 20 20 20  | DIAG PART .    |
00010eb0  50 61 67 65 20 20 20 20  33 33 0d 43 4f 4d 2d 52  |Page    33.COM-R|
00010ec0  41 4d 20 54 45 53 54 20  23 20 33 20 20 39 32 30  |AM TEST # 3  920|
00010ed0  2d 30 30 30 39 39 2d 30  32 2d c2 0d 0d 30 31 30  |-00099-02-...010|
00010ee0  36 36 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |66              |
00010ef0  20 20 20 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |   ;************|
00010f00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00010f30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 30 31 30 36 37  |**********.01067|
00010f40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00010f50  20 3b 0d 30 31 30 36 38  20 20 20 20 20 20 20 20  | ;.01068        |
00010f60  20 20 20 20 20 20 20 20  20 3b 44 43 44 49 43 4b  |         ;DCDICK|
00010f70  20 53 55 42 2d 52 4f 55  54 49 4e 45 0d 30 31 30  | SUB-ROUTINE.010|
00010f80  36 39 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |69              |
00010f90  20 20 20 3b 43 48 45 43  4b 53 20 49 4e 54 45 52  |   ;CHECKS INTER|
00010fa0  55 50 54 53 20 47 45 4e  45 52 41 54 45 44 0d 30  |UPTS GENERATED.0|
00010fb0  31 30 37 30 20 20 20 20  20 20 20 20 20 20 20 20  |1070            |
00010fc0  20 20 20 20 20 3b 42 59  20 44 43 44 20 47 4f 49  |     ;BY DCD GOI|
00010fd0  4e 47 20 48 49 47 48 0d  30 31 30 37 31 20 20 20  |NG HIGH.01071   |
00010fe0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
00010ff0  30 31 30 37 32 20 20 20  20 20 20 20 20 20 20 20  |01072           |
00011000  20 20 20 20 20 20 3b 2a  2a 2a 2a 2a 2a 2a 2a 2a  |      ;*********|
00011010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00011040  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 30 31  |*************.01|
00011050  30 37 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |073             |
00011060  20 20 20 20 3b 0d 30 31  30 37 34 20 20 20 20 20  |    ;.01074     |
00011070  20 46 42 34 39 20 20 20  20 3e 20 20 44 43 44 49  | FB49    >  DCDI|
00011080  43 4b 20 20 20 45 51 55  20 20 20 24 20 20 20 20  |CK   EQU   $    |
00011090  20 20 20 20 20 20 20 20  20 20 3b 53 54 41 52 54  |          ;START|
000110a0  0d 30 31 30 37 35 20 46  42 34 39 20 42 44 46 43  |.01075 FB49 BDFC|
000110b0  31 45 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |1E  >           |
000110c0  4a 53 52 20 20 20 57 54  31 52 44 32 20 20 20 20  |JSR   WT1RD2    |
000110d0  20 20 20 20 20 3b 53 45  54 20 57 52 49 54 45 20  |     ;SET WRITE |
000110e0  50 4f 52 54 20 31 20 52  45 41 44 20 50 4f 52 54  |PORT 1 READ PORT|
000110f0  20 32 0d 30 31 30 37 36  20 46 42 34 43 20 42 44  | 2.01076 FB4C BD|
00011100  46 42 35 36 20 20 3e 20  20 20 20 20 20 20 20 20  |FB56  >         |
00011110  20 20 4a 53 52 20 20 20  44 43 44 49 54 20 20 20  |  JSR   DCDIT   |
00011120  20 20 20 20 20 20 20 3b  47 4f 20 54 4f 20 44 43  |       ;GO TO DC|
00011130  44 20 49 4e 54 20 54 45  53 54 0d 30 31 30 37 37  |D INT TEST.01077|
00011140  20 46 42 34 46 20 42 44  46 43 34 34 20 20 3e 20  | FB4F BDFC44  > |
00011150  20 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |          JSR   |
00011160  57 54 32 52 44 31 20 20  20 20 20 20 20 20 20 3b  |WT2RD1         ;|
00011170  53 45 54 20 57 52 49 54  45 20 50 4f 52 54 20 32  |SET WRITE PORT 2|
00011180  20 52 45 41 44 20 50 4f  52 54 20 31 0d 30 31 30  | READ PORT 1.010|
00011190  37 38 20 46 42 35 32 20  42 44 46 42 35 36 20 20  |78 FB52 BDFB56  |
000111a0  3e 20 20 20 20 20 20 20  20 20 20 20 4a 53 52 20  |>           JSR |
000111b0  20 20 44 43 44 49 54 20  20 20 20 20 20 20 20 20  |  DCDIT         |
000111c0  20 3b 47 4f 20 54 4f 20  44 43 44 20 49 4e 54 20  | ;GO TO DCD INT |
000111d0  54 45 53 54 0d 30 31 30  37 39 20 46 42 35 35 20  |TEST.01079 FB55 |
000111e0  33 39 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |39              |
000111f0  20 20 20 20 52 54 53 20  20 20 20 20 20 20 20 20  |    RTS         |
00011200  20 20 20 20 20 20 20 20  20 3b 52 45 54 55 52 4e  |         ;RETURN|
00011210  0d 30 31 30 38 30 20 20  20 20 20 20 20 20 20 20  |.01080          |
00011220  20 20 20 20 20 20 20 3b  2a 2a 2a 2a 2a 2a 2a 2a  |       ;********|
00011230  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00011260  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 30  |**************.0|
00011270  31 30 38 31 20 20 20 20  20 20 20 20 20 20 20 20  |1081            |
00011280  20 20 20 20 20 3b 0d 30  31 30 38 32 20 20 20 20  |     ;.01082    |
00011290  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 44 43  |             ;DC|
000112a0  44 49 54 20 53 55 42 2d  52 4f 55 54 49 4e 45 0d  |DIT SUB-ROUTINE.|
000112b0  30 31 30 38 33 20 20 20  20 20 20 20 20 20 20 20  |01083           |
000112c0  20 20 20 20 20 20 3b 54  45 53 54 53 20 44 43 44  |      ;TESTS DCD|
000112d0  20 49 4e 54 45 52 55 50  54 0d 30 31 30 38 34 20  | INTERUPT.01084 |
000112e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000112f0  3b 0d 30 31 30 38 35 20  20 20 20 20 20 20 20 20  |;.01085         |
00011300  20 20 20 20 20 20 20 20  3b 2a 2a 2a 2a 2a 2a 2a  |        ;*******|
00011310  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00011340  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
00011350  30 31 30 38 36 20 20 20  20 20 20 20 20 20 20 20  |01086           |
00011360  20 20 20 20 20 20 3b 0d  30 31 30 38 37 20 20 20  |      ;.01087   |
00011370  20 20 20 46 42 35 36 20  20 20 20 3e 20 20 44 43  |   FB56    >  DC|
00011380  44 49 54 20 20 20 20 45  51 55 20 20 20 24 20 20  |DIT    EQU   $  |
00011390  20 20 20 20 20 20 20 20  20 20 20 20 3b 53 54 41  |            ;STA|
000113a0  52 54 0d 30 31 30 38 38  20 46 42 35 36 20 42 44  |RT.01088 FB56 BD|
000113b0  46 42 45 35 20 20 3e 20  20 20 20 20 20 20 20 20  |FBE5  >         |
000113c0  20 20 4a 53 52 20 20 20  52 44 49 4e 54 53 55 20  |  JSR   RDINTSU |
000113d0  20 20 20 20 20 20 20 3b  53 45 54 20 55 50 20 52  |       ;SET UP R|
000113e0  45 43 45 49 56 45 52 20  49 4e 54 45 52 55 50 54  |ECEIVER INTERUPT|
000113f0  53 20 45 4e 41 42 4c 45  44 0d 30 31 30 38 39 20  |S ENABLED.01089 |
00011400  46 42 35 39 20 42 44 46  42 44 43 20 20 3e 20 20  |FB59 BDFBDC  >  |
00011410  20 20 20 20 20 20 20 20  20 4a 53 52 20 20 20 44  |         JSR   D|
00011420  43 44 4d 52 20 20 20 20  20 20 20 20 20 20 3b 50  |CDMR          ;P|
00011430  55 54 20 4f 55 54 20 4d  45 53 53 41 47 45 20 22  |UT OUT MESSAGE "|
00011440  50 55 53 48 20 44 43 44  20 53 57 2d 48 49 54 20  |PUSH DCD SW-HIT |
00011450  52 55 4e 22 0d 30 31 30  39 30 20 46 42 35 43 20  |RUN".01090 FB5C |
00011460  38 36 38 36 20 20 20 20  20 20 20 20 20 20 20 20  |8686            |
00011470  20 20 20 20 4c 44 41 20  41 20 23 44 43 44 2b 49  |    LDA A #DCD+I|
00011480  52 51 2b 54 44 52 45 20  20 20 20 20 20 20 3b 0d  |RQ+TDRE       ;.|
00011490  30 31 30 39 31 20 46 42  35 45 20 42 37 46 38 31  |01091 FB5E B7F81|
000114a0  33 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 53  |3  >           S|
000114b0  54 41 20 41 20 45 58 50  53 54 41 20 20 20 20 20  |TA A EXPSTA     |
000114c0  20 20 20 20 3b 45 58 50  45 43 54 20 53 54 41 54  |    ;EXPECT STAT|
000114d0  55 53 20 44 43 44 20 26  20 49 52 51 20 54 52 55  |US DCD & IRQ TRU|
000114e0  45 0d 30 31 30 39 32 20  46 42 36 31 20 42 44 46  |E.01092 FB61 BDF|
000114f0  39 33 36 20 20 3e 20 20  20 20 20 20 20 20 20 20  |936  >          |
00011500  20 4a 53 52 20 20 20 52  44 53 54 41 54 20 20 20  | JSR   RDSTAT   |
00011510  20 20 20 20 20 20 3b 52  45 41 44 20 54 48 45 20  |      ;READ THE |
00011520  53 54 41 54 55 53 0d 30  31 30 39 33 20 46 42 36  |STATUS.01093 FB6|
00011530  34 20 42 44 46 42 46 44  20 20 3e 20 20 20 20 20  |4 BDFBFD  >     |
00011540  20 20 20 20 20 20 4a 53  52 20 20 20 49 4e 54 54  |      JSR   INTT|
00011550  53 54 20 20 20 20 20 20  20 20 20 3b 47 4f 20 54  |ST         ;GO T|
00011560  4f 20 49 4e 54 45 52 55  50 54 20 54 45 53 54 0d  |O INTERUPT TEST.|
00011570  30 31 30 39 34 20 46 42  36 37 20 37 46 46 38 32  |01094 FB67 7FF82|
00011580  35 20 20 3e 20 20 20 20  20 20 20 20 20 20 20 43  |5  >           C|
00011590  4c 52 20 20 20 45 58 50  46 4c 47 20 20 20 20 20  |LR   EXPFLG     |
000115a0  20 20 20 20 3b 49 4e 54  45 52 55 50 54 20 4e 4f  |    ;INTERUPT NO|
000115b0  54 20 45 58 50 45 43 54  45 44 0d 30 31 30 39 35  |T EXPECTED.01095|
000115c0  20 46 42 36 41 20 38 36  46 46 20 20 20 20 20 20  | FB6A 86FF      |
000115d0  20 20 20 20 20 20 20 20  20 20 4c 44 41 20 41 20  |          LDA A |
000115e0  23 30 46 46 48 0d 30 31  30 39 36 20 46 42 36 43  |#0FFH.01096 FB6C|
000115f0  20 42 37 46 38 32 43 20  20 3e 20 20 20 20 20 20  | B7F82C  >      |
00011600  20 20 20 20 20 53 54 41  20 41 20 45 58 50 49 4e  |     STA A EXPIN|
00011610  54 0d 30 31 30 39 37 20  46 42 36 46 20 42 44 46  |T.01097 FB6F BDF|
00011620  42 46 44 20 20 3e 20 20  20 20 20 20 20 20 20 20  |BFD  >          |
00011630  20 4a 53 52 20 20 20 49  4e 54 54 53 54 20 20 20  | JSR   INTTST   |
00011640  20 20 20 20 20 20 3b 47  4f 20 54 4f 20 49 4e 54  |      ;GO TO INT|
00011650  45 52 55 50 54 20 54 45  53 54 0d 30 31 30 39 38  |ERUPT TEST.01098|
00011660  20 46 42 37 32 20 33 39  20 20 20 20 20 20 20 20  | FB72 39        |
00011670  20 20 20 20 20 20 20 20  20 20 52 54 53 20 20 20  |          RTS   |
00011680  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00011690  52 45 54 55 52 4e 0d 30  31 30 39 39 20 20 20 20  |RETURN.01099    |
000116a0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 2a 2a  |             ;**|
000116b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000116f0  2a 2a 2a 2a 0d 30 31 31  30 30 20 20 20 20 20 20  |****.01100      |
00011700  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 31 31  |           ;.011|
00011710  30 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |01              |
00011720  20 20 20 3b 54 44 52 45  49 43 4b 20 53 55 42 2d  |   ;TDREICK SUB-|
00011730  52 4f 55 54 49 4e 45 0d  30 31 31 30 32 20 20 20  |ROUTINE.01102   |
00011740  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 43  |              ;C|
00011750  48 45 43 4b 53 20 49 4e  54 45 52 55 50 54 20 47  |HECKS INTERUPT G|
00011760  45 4e 45 52 41 54 45 44  20 42 59 0d 30 31 31 30  |ENERATED BY.0110|
00011770  33 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |3               |
00011780  20 20 3b 54 44 52 45 0d  30 31 31 30 34 20 20 20  |  ;TDRE.01104   |
00011790  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
000117a0  30 31 31 30 35 20 20 20  20 20 20 20 20 20 20 20  |01105           |
000117b0  20 20 20 20 20 20 3b 2a  2a 2a 2a 2a 2a 2a 2a 2a  |      ;*********|
000117c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000117f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 30 31  |*************.01|
00011800  31 30 36 20 20 20 20 20  20 20 20 20 20 20 20 20  |106             |
00011810  20 20 20 20 3b 0d 30 31  31 30 37 20 20 20 20 20  |    ;.01107     |
00011820  20 46 42 37 33 20 20 20  20 3e 20 20 54 44 52 45  | FB73    >  TDRE|
00011830  49 43 4b 20 20 45 51 55  20 20 20 24 0d 30 31 31  |ICK  EQU   $.011|
00011840  30 38 20 46 42 37 33 20  42 44 46 43 31 45 20 20  |08 FB73 BDFC1E  |
00011850  3e 20 20 20 20 20 20 20  20 20 20 20 4a 53 52 20  |>           JSR |
00011860  20 20 57 54 31 52 44 32  20 20 20 20 20 20 20 20  |  WT1RD2        |
00011870  20 3b 53 45 54 20 57 52  49 54 45 20 50 4f 52 54  | ;SET WRITE PORT|
00011880  20 31 20 52 45 41 44 20  50 4f 52 54 20 32 0d 30  | 1 READ PORT 2.0|
00011890  31 31 30 39 20 46 42 37  36 20 46 45 46 38 32 38  |1109 FB76 FEF828|
000118a0  20 20 3e 20 20 20 20 20  20 20 20 20 20 20 4c 44  |  >           LD|
000118b0  58 20 20 20 57 54 53 54  50 54 20 20 20 20 20 20  |X   WTSTPT      |
000118c0  20 20 20 3b 0d 30 31 31  31 30 20 46 42 37 39 20  |   ;.01110 FB79 |
000118d0  46 46 46 38 31 35 20 20  3e 20 20 20 20 20 20 20  |FFF815  >       |
000118e0  20 20 20 20 53 54 58 20  20 20 53 54 41 50 4f 52  |    STX   STAPOR|
000118f0  54 20 20 20 20 20 20 20  20 3b 54 4f 4f 20 57 41  |T        ;TOO WA|
00011900  4e 54 20 54 4f 20 52 45  41 44 20 54 48 45 20 53  |NT TO READ THE S|
00011910  54 41 54 55 53 20 4f 46  20 54 48 45 20 58 4d 49  |TATUS OF THE XMI|
00011920  54 20 50 4f 52 54 0d 30  31 31 31 31 20 46 42 37  |T PORT.01111 FB7|
00011930  43 20 38 36 31 34 20 20  20 20 20 20 20 20 20 20  |C 8614          |
00011940  20 20 20 20 20 20 4c 44  41 20 41 20 23 49 4e 54  |      LDA A #INT|
00011950  31 30 20 20 20 20 20 20  20 20 20 3b 0d 30 31 31  |10         ;.011|
00011960  31 32 20 46 42 37 45 20  42 37 46 38 32 43 20 20  |12 FB7E B7F82C  |
00011970  3e 20 20 20 20 20 20 20  20 20 20 20 53 54 41 20  |>           STA |
00011980  41 20 45 58 50 49 4e 54  20 20 20 20 20 20 20 20  |A EXPINT        |
00011990  20 3b 59 4f 55 20 57 41  4e 54 20 49 4e 54 20 31  | ;YOU WANT INT 1|
000119a0  30 20 54 4f 20 42 45 20  45 58 50 45 43 54 45 44  |0 TO BE EXPECTED|
000119b0  20 49 4e 54 45 52 55 50  54 0d 30 31 31 31 33 20  | INTERUPT.01113 |
000119c0  46 42 38 31 20 42 44 46  42 39 36 20 20 3e 20 20  |FB81 BDFB96  >  |
000119d0  20 20 20 20 20 20 20 20  20 4a 53 52 20 20 20 54  |         JSR   T|
000119e0  44 52 45 49 54 20 20 20  20 20 20 20 20 20 3b 47  |DREIT         ;G|
000119f0  4f 20 54 4f 20 54 44 52  45 20 49 4e 54 20 54 45  |O TO TDRE INT TE|
00011a00  53 54 0d 30 31 31 31 34  20 46 42 38 34 20 42 44  |ST.01114 FB84 BD|
00011a10  46 43 34 34 20 20 3e 20  20 20 20 20 20 20 20 20  |FC44  >         |
00011a20  20 20 4a 53 52 20 20 20  57 54 32 52 44 31 20 20  |  JSR   WT2RD1  |
00011a30  20 20 20 20 20 20 20 3b  53 45 54 20 57 52 49 54  |       ;SET WRIT|
00011a40  45 20 50 4f 52 54 20 32  20 52 45 41 44 20 50 4f  |E PORT 2 READ PO|
00011a50  52 54 20 31 0d 30 31 31  31 35 20 46 42 38 37 20  |RT 1.01115 FB87 |
00011a60  46 45 46 38 32 38 20 20  3e 20 20 20 20 20 20 20  |FEF828  >       |
00011a70  20 20 20 20 4c 44 58 20  20 20 57 54 53 54 50 54  |    LDX   WTSTPT|
00011a80  0d 30 31 31 31 36 20 46  42 38 41 20 46 46 46 38  |.01116 FB8A FFF8|
00011a90  31 35 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |15  >           |
00011aa0  53 54 58 20 20 20 53 54  41 50 4f 52 54 20 20 20  |STX   STAPORT   |
00011ab0  20 20 20 20 20 3b 59 4f  55 20 57 41 4e 54 20 54  |     ;YOU WANT T|
00011ac0  4f 20 52 45 41 44 20 54  48 45 20 53 54 41 54 55  |O READ THE STATU|
00011ad0  53 20 4f 46 20 54 48 45  20 58 4d 49 54 20 50 4f  |S OF THE XMIT PO|
00011ae0  52 54 0d 30 31 31 31 37  20 46 42 38 44 20 38 36  |RT.01117 FB8D 86|
00011af0  31 36 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |16              |
00011b00  20 20 4c 44 41 20 41 20  23 49 4e 54 31 31 0d 0c  |  LDA A #INT11..|
00011b10  54 65 6b 74 72 6f 6e 69  78 20 20 20 20 20 20 4d  |Tektronix      M|
00011b20  36 38 30 30 20 41 53 4d  20 56 33 2e 33 20 20 55  |6800 ASM V3.3  U|
00011b30  53 45 20 43 4f 4d 4d 2d  52 41 4d 2d 30 35 20 44  |SE COMM-RAM-05 D|
00011b40  49 41 47 20 50 41 52 54  20 b3 20 20 20 20 50 61  |IAG PART .    Pa|
00011b50  67 65 20 20 20 20 33 34  0d 43 4f 4d 2d 52 41 4d  |ge    34.COM-RAM|
00011b60  20 54 45 53 54 20 23 20  33 20 20 39 32 30 2d 30  | TEST # 3  920-0|
00011b70  30 30 39 39 2d 30 32 2d  c2 0d 0d 30 31 31 31 38  |0099-02-...01118|
00011b80  20 46 42 38 46 20 42 37  46 38 32 43 20 20 3e 20  | FB8F B7F82C  > |
00011b90  20 20 20 20 20 20 20 20  20 20 53 54 41 20 41 20  |          STA A |
00011ba0  45 58 50 49 4e 54 20 20  20 20 20 20 20 20 20 3b  |EXPINT         ;|
00011bb0  59 4f 55 20 57 41 4e 54  20 49 4e 54 20 31 31 20  |YOU WANT INT 11 |
00011bc0  54 4f 20 42 45 20 45 58  50 45 43 54 45 44 20 49  |TO BE EXPECTED I|
00011bd0  4e 54 45 52 55 50 54 0d  30 31 31 31 39 20 46 42  |NTERUPT.01119 FB|
00011be0  39 32 20 42 44 46 42 39  36 20 20 3e 20 20 20 20  |92 BDFB96  >    |
00011bf0  20 20 20 20 20 20 20 4a  53 52 20 20 20 54 44 52  |       JSR   TDR|
00011c00  45 49 54 20 20 20 20 20  20 20 20 20 3b 47 4f 20  |EIT         ;GO |
00011c10  54 4f 20 54 44 52 45 20  49 4e 54 20 54 45 53 54  |TO TDRE INT TEST|
00011c20  0d 30 31 31 32 30 20 46  42 39 35 20 33 39 20 20  |.01120 FB95 39  |
00011c30  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00011c40  52 54 53 20 20 20 20 20  20 20 20 20 20 20 20 20  |RTS             |
00011c50  20 20 20 20 20 3b 52 45  54 55 52 4e 0d 0c 54 65  |     ;RETURN..Te|
00011c60  6b 74 72 6f 6e 69 78 20  20 20 20 20 20 4d 36 38  |ktronix      M68|
00011c70  30 30 20 41 53 4d 20 56  33 2e 33 20 20 55 53 45  |00 ASM V3.3  USE|
00011c80  20 43 4f 4d 4d 2d 52 41  4d 2d 30 35 20 44 49 41  | COMM-RAM-05 DIA|
00011c90  47 20 50 41 52 54 20 b3  20 20 20 20 50 61 67 65  |G PART .    Page|
00011ca0  20 20 20 20 33 35 0d 43  4f 4d 2d 52 41 4d 20 54  |    35.COM-RAM T|
00011cb0  45 53 54 20 23 20 33 20  20 39 32 30 2d 30 30 30  |EST # 3  920-000|
00011cc0  39 39 2d 30 32 2d c2 0d  0d 30 31 31 32 32 20 20  |99-02-...01122  |
00011cd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00011ce0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00011d20  2a 2a 2a 2a 2a 2a 0d 30  31 31 32 33 20 20 20 20  |******.01123    |
00011d30  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
00011d40  31 31 32 34 20 20 20 20  20 20 20 20 20 20 20 20  |1124            |
00011d50  20 20 20 20 20 3b 54 44  52 45 49 54 20 53 55 42  |     ;TDREIT SUB|
00011d60  2d 52 4f 55 54 49 4e 45  0d 30 31 31 32 35 20 20  |-ROUTINE.01125  |
00011d70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00011d80  54 45 53 54 53 20 49 4e  54 45 52 55 50 54 20 47  |TESTS INTERUPT G|
00011d90  45 4e 45 52 41 54 45 44  20 42 59 0d 30 31 31 32  |ENERATED BY.0112|
00011da0  36 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |6               |
00011db0  20 20 3b 54 44 52 45 20  43 4f 4e 44 49 54 49 4f  |  ;TDRE CONDITIO|
00011dc0  4e 0d 30 31 31 32 37 20  20 20 20 20 20 20 20 20  |N.01127         |
00011dd0  20 20 20 20 20 20 20 20  3b 0d 30 31 31 32 38 20  |        ;.01128 |
00011de0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00011df0  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
00011e00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00011e30  2a 2a 2a 2a 2a 2a 2a 0d  30 31 31 32 39 20 20 20  |*******.01129   |
00011e40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
00011e50  30 31 31 33 30 20 20 20  20 20 20 46 42 39 36 20  |01130      FB96 |
00011e60  20 20 20 3e 20 20 54 44  52 45 49 54 20 20 20 45  |   >  TDREIT   E|
00011e70  51 55 20 20 20 24 20 20  20 20 20 20 20 20 20 20  |QU   $          |
00011e80  20 20 20 20 3b 53 54 41  52 54 0d 30 31 31 33 31  |    ;START.01131|
00011e90  20 46 42 39 36 20 42 44  46 42 42 42 20 20 3e 20  | FB96 BDFBBB  > |
00011ea0  20 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |          JSR   |
00011eb0  57 54 49 4e 54 53 55 20  20 20 20 20 20 20 20 3b  |WTINTSU        ;|
00011ec0  53 45 54 20 55 50 20 46  4f 52 20 54 52 41 4e 53  |SET UP FOR TRANS|
00011ed0  4d 49 54 54 45 52 20 49  4e 54 45 52 55 50 54 53  |MITTER INTERUPTS|
00011ee0  0d 30 31 31 33 32 20 46  42 39 39 20 42 44 46 39  |.01132 FB99 BDF9|
00011ef0  32 42 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |2B  >           |
00011f00  4a 53 52 20 20 20 54 53  39 36 30 30 20 20 20 20  |JSR   TS9600    |
00011f10  20 20 20 20 20 3b 53 45  54 20 54 49 4d 45 52 20  |     ;SET TIMER |
00011f20  54 4f 20 39 36 30 30 20  54 49 4d 45 20 4f 55 54  |TO 9600 TIME OUT|
00011f30  0d 30 31 31 33 33 20 46  42 39 43 20 46 45 46 38  |.01133 FB9C FEF8|
00011f40  32 33 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |23  >           |
00011f50  4c 44 58 20 20 20 57 54  44 41 50 54 0d 30 31 31  |LDX   WTDAPT.011|
00011f60  33 34 20 46 42 39 46 20  41 37 30 30 20 20 20 20  |34 FB9F A700    |
00011f70  20 20 20 20 20 20 20 20  20 20 20 20 53 54 41 20  |            STA |
00011f80  41 20 30 2c 58 20 20 20  20 20 20 20 20 20 3b 57  |A 0,X         ;W|
00011f90  52 49 54 45 20 54 4f 20  44 41 54 41 20 50 4f 52  |RITE TO DATA POR|
00011fa0  54 0d 30 31 31 33 35 20  46 42 41 31 20 42 44 46  |T.01135 FBA1 BDF|
00011fb0  39 32 30 20 20 3e 20 20  20 20 20 20 20 20 20 20  |920  >          |
00011fc0  20 4a 53 52 20 20 20 54  4d 52 39 35 20 20 20 20  | JSR   TMR95    |
00011fd0  20 20 20 20 20 20 3b 57  41 49 54 20 41 20 57 48  |      ;WAIT A WH|
00011fe0  49 4c 45 0d 30 31 31 33  36 20 46 42 41 34 20 38  |ILE.01136 FBA4 8|
00011ff0  36 38 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |682             |
00012000  20 20 20 4c 44 41 20 41  20 23 54 44 52 45 2b 49  |   LDA A #TDRE+I|
00012010  52 51 0d 30 31 31 33 37  20 46 42 41 36 20 42 37  |RQ.01137 FBA6 B7|
00012020  46 38 31 33 20 20 3e 20  20 20 20 20 20 20 20 20  |F813  >         |
00012030  20 20 53 54 41 20 41 20  45 58 50 53 54 41 20 20  |  STA A EXPSTA  |
00012040  20 20 20 20 20 20 20 3b  45 58 50 45 43 54 20 53  |       ;EXPECT S|
00012050  54 41 54 55 53 3d 54 44  52 45 20 41 4e 44 20 49  |TATUS=TDRE AND I|
00012060  52 51 20 54 52 55 45 0d  30 31 31 33 38 20 46 42  |RQ TRUE.01138 FB|
00012070  41 39 20 42 44 46 39 33  36 20 20 3e 20 20 20 20  |A9 BDF936  >    |
00012080  20 20 20 20 20 20 20 4a  53 52 20 20 20 52 44 53  |       JSR   RDS|
00012090  54 41 54 20 20 20 20 20  20 20 20 20 3b 52 45 41  |TAT         ;REA|
000120a0  44 20 54 48 45 20 53 54  41 54 55 53 0d 30 31 31  |D THE STATUS.011|
000120b0  33 39 20 46 42 41 43 20  42 44 46 42 46 44 20 20  |39 FBAC BDFBFD  |
000120c0  3e 20 20 20 20 20 20 20  20 20 20 20 4a 53 52 20  |>           JSR |
000120d0  20 20 49 4e 54 54 53 54  20 20 20 20 20 20 20 20  |  INTTST        |
000120e0  20 3b 47 4f 20 54 4f 20  49 4e 54 45 52 55 50 54  | ;GO TO INTERUPT|
000120f0  20 54 45 53 54 0d 30 31  31 34 30 20 46 42 41 46  | TEST.01140 FBAF|
00012100  20 37 46 46 38 32 35 20  20 3e 20 20 20 20 20 20  | 7FF825  >      |
00012110  20 20 20 20 20 43 4c 52  20 20 20 45 58 50 46 4c  |     CLR   EXPFL|
00012120  47 20 20 20 20 20 20 20  20 20 3b 49 4e 54 45 52  |G         ;INTER|
00012130  55 50 54 20 4e 4f 54 20  45 58 50 45 43 54 45 44  |UPT NOT EXPECTED|
00012140  0d 30 31 31 34 31 20 46  42 42 32 20 38 36 46 46  |.01141 FBB2 86FF|
00012150  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00012160  4c 44 41 20 41 20 23 30  46 46 48 0d 30 31 31 34  |LDA A #0FFH.0114|
00012170  32 20 46 42 42 34 20 42  37 46 38 32 43 20 20 3e  |2 FBB4 B7F82C  >|
00012180  20 20 20 20 20 20 20 20  20 20 20 53 54 41 20 41  |           STA A|
00012190  20 45 58 50 49 4e 54 0d  30 31 31 34 33 20 46 42  | EXPINT.01143 FB|
000121a0  42 37 20 42 44 46 42 46  44 20 20 3e 20 20 20 20  |B7 BDFBFD  >    |
000121b0  20 20 20 20 20 20 20 4a  53 52 20 20 20 49 4e 54  |       JSR   INT|
000121c0  54 53 54 20 20 20 20 20  20 20 20 20 3b 47 4f 20  |TST         ;GO |
000121d0  54 4f 20 49 4e 54 45 52  55 50 54 20 54 45 53 54  |TO INTERUPT TEST|
000121e0  0d 30 31 31 34 34 20 46  42 42 41 20 33 39 20 20  |.01144 FBBA 39  |
000121f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00012200  52 54 53 20 20 20 20 20  20 20 20 20 20 20 20 20  |RTS             |
00012210  20 20 20 20 20 3b 52 45  54 55 52 4e 0d 30 31 31  |     ;RETURN.011|
00012220  34 35 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |45              |
00012230  20 20 20 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |   ;************|
00012240  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00012270  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 30 31 31 34 36  |**********.01146|
00012280  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00012290  20 3b 0d 30 31 31 34 37  20 20 20 20 20 20 20 20  | ;.01147        |
000122a0  20 20 20 20 20 20 20 20  20 3b 57 54 49 4e 54 53  |         ;WTINTS|
000122b0  55 20 53 55 42 2d 52 4f  55 54 49 4e 45 0d 30 31  |U SUB-ROUTINE.01|
000122c0  31 34 38 20 20 20 20 20  20 20 20 20 20 20 20 20  |148             |
000122d0  20 20 20 20 3b 45 4e 41  42 4c 45 53 20 54 52 41  |    ;ENABLES TRA|
000122e0  4e 53 4d 49 54 20 49 4e  54 45 52 55 50 54 0d 30  |NSMIT INTERUPT.0|
000122f0  31 31 34 39 20 20 20 20  20 20 20 20 20 20 20 20  |1149            |
00012300  20 20 20 20 20 3b 0d 30  31 31 35 30 20 20 20 20  |     ;.01150    |
00012310  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 2a 2a  |             ;**|
00012320  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00012360  2a 2a 2a 2a 0d 30 31 31  35 31 20 20 20 20 20 20  |****.01151      |
00012370  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 31 31  |           ;.011|
00012380  35 32 20 20 20 20 20 20  46 42 42 42 20 20 20 20  |52      FBBB    |
00012390  3e 20 20 57 54 49 4e 54  53 55 20 20 45 51 55 20  |>  WTINTSU  EQU |
000123a0  20 20 24 20 20 20 20 20  20 20 20 20 20 20 20 20  |  $             |
000123b0  20 3b 53 54 41 52 54 0d  30 31 31 35 33 20 46 42  | ;START.01153 FB|
000123c0  42 42 20 37 46 46 38 32  45 20 20 3e 20 20 20 20  |BB 7FF82E  >    |
000123d0  20 20 20 20 20 20 20 43  4c 52 20 20 20 52 49 46  |       CLR   RIF|
000123e0  4c 47 0d 30 31 31 35 34  20 46 42 42 45 20 37 43  |LG.01154 FBBE 7C|
000123f0  46 38 32 35 20 20 3e 20  20 20 20 20 20 20 20 20  |F825  >         |
00012400  20 20 49 4e 43 20 20 20  45 58 50 46 4c 47 20 20  |  INC   EXPFLG  |
00012410  20 20 20 20 20 20 20 20  3b 49 4e 54 45 52 55 50  |        ;INTERUP|
00012420  54 20 45 58 50 45 43 54  45 44 0d 30 31 31 35 35  |T EXPECTED.01155|
00012430  20 46 42 43 31 20 42 44  46 42 44 33 20 20 3e 20  | FBC1 BDFBD3  > |
00012440  20 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |          JSR   |
00012450  52 53 54 20 20 20 20 20  20 20 20 20 20 20 20 3b  |RST            ;|
00012460  52 45 53 45 54 20 54 48  45 20 50 4f 52 54 53 0d  |RESET THE PORTS.|
00012470  30 31 31 35 36 20 46 42  43 34 20 38 36 33 35 20  |01156 FBC4 8635 |
00012480  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4c  |               L|
00012490  44 41 20 41 20 23 44 49  56 31 36 2b 52 54 53 4c  |DA A #DIV16+RTSL|
000124a0  49 45 2b 42 38 31 53 20  20 3b 0d 30 31 31 35 37  |IE+B81S  ;.01157|
000124b0  20 46 42 43 36 20 46 45  46 38 32 38 20 20 3e 20  | FBC6 FEF828  > |
000124c0  20 20 20 20 20 20 20 20  20 20 4c 44 58 20 20 20  |          LDX   |
000124d0  57 54 53 54 50 54 0d 30  31 31 35 38 20 46 42 43  |WTSTPT.01158 FBC|
000124e0  39 20 41 37 30 30 20 20  20 20 20 20 20 20 20 20  |9 A700          |
000124f0  20 20 20 20 20 20 53 54  41 20 41 20 30 2c 58 20  |      STA A 0,X |
00012500  20 20 20 20 20 20 20 20  3b 45 4e 41 42 4c 45 20  |        ;ENABLE |
00012510  49 4e 54 45 52 55 50 54  20 49 4e 20 57 52 49 54  |INTERUPT IN WRIT|
00012520  45 20 50 4f 52 54 0d 30  31 31 35 39 20 46 42 43  |E PORT.01159 FBC|
00012530  42 20 38 36 31 34 20 20  20 20 20 20 20 20 20 20  |B 8614          |
00012540  20 20 20 20 20 20 4c 44  41 20 41 20 23 44 49 56  |      LDA A #DIV|
00012550  31 2b 42 38 31 53 20 20  20 20 20 20 20 20 20 3b  |1+B81S         ;|
00012560  0d 30 31 31 36 30 20 46  42 43 44 20 46 45 46 38  |.01160 FBCD FEF8|
00012570  32 41 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |2A  >           |
00012580  4c 44 58 20 20 20 52 44  53 54 50 54 0d 30 31 31  |LDX   RDSTPT.011|
00012590  36 31 20 46 42 44 30 20  41 37 30 30 20 20 20 20  |61 FBD0 A700    |
000125a0  20 20 20 20 20 20 20 20  20 20 20 20 53 54 41 20  |            STA |
000125b0  41 20 30 2c 58 20 20 20  20 20 20 20 20 20 3b 44  |A 0,X         ;D|
000125c0  49 53 41 42 4c 45 20 49  4e 54 45 52 55 50 54 20  |ISABLE INTERUPT |
000125d0  49 4e 20 52 45 41 44 20  50 4f 52 54 0d 30 31 31  |IN READ PORT.011|
000125e0  36 32 20 46 42 44 32 20  33 39 20 20 20 20 20 20  |62 FBD2 39      |
000125f0  20 20 20 20 20 20 20 20  20 20 20 20 52 54 53 20  |            RTS |
00012600  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00012610  20 3b 52 45 54 55 52 4e  0d 30 31 31 36 33 20 20  | ;RETURN.01163  |
00012620  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00012630  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00012670  2a 2a 2a 2a 2a 2a 0d 30  31 31 36 34 20 20 20 20  |******.01164    |
00012680  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
00012690  31 31 36 35 20 20 20 20  20 20 20 20 20 20 20 20  |1165            |
000126a0  20 20 20 20 20 3b 52 53  54 20 53 55 42 2d 52 4f  |     ;RST SUB-RO|
000126b0  55 54 49 4e 45 0d 30 31  31 36 36 20 20 20 20 20  |UTINE.01166     |
000126c0  20 20 20 20 20 20 20 20  20 20 20 20 3b 52 45 53  |            ;RES|
000126d0  45 54 53 20 42 4f 54 48  20 41 43 49 41 20 50 4f  |ETS BOTH ACIA PO|
000126e0  52 54 53 0d 30 31 31 36  37 20 20 20 20 20 20 20  |RTS.01167       |
000126f0  20 20 20 20 20 20 20 20  20 20 3b 0d 30 31 31 36  |          ;.0116|
00012700  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
00012710  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
00012720  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00012750  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 30 31 31 36 39 20  |*********.01169 |
00012760  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00012770  3b 0d 30 31 31 37 30 20  20 20 20 20 20 46 42 44  |;.01170      FBD|
00012780  33 20 20 20 20 3e 20 20  52 53 54 20 20 20 20 20  |3    >  RST     |
00012790  20 45 51 55 20 20 20 24  20 20 20 20 20 20 20 20  | EQU   $        |
000127a0  20 20 20 20 20 20 3b 53  54 41 52 54 0d 30 31 31  |      ;START.011|
000127b0  37 31 20 46 42 44 33 20  38 36 30 33 20 20 20 20  |71 FBD3 8603    |
000127c0  20 20 20 20 20 20 20 20  20 20 20 20 4c 44 41 20  |            LDA |
000127d0  41 20 23 4d 53 54 52 53  54 20 20 20 20 20 20 20  |A #MSTRST       |
000127e0  20 3b 52 45 53 45 54 20  42 49 54 53 0d 30 31 31  | ;RESET BITS.011|
000127f0  37 32 20 46 42 44 35 20  42 37 32 30 31 43 20 20  |72 FBD5 B7201C  |
00012800  20 20 20 20 20 20 20 20  20 20 20 20 53 54 41 20  |            STA |
00012810  41 20 43 52 41 43 53 43  20 20 20 20 20 20 20 20  |A CRACSC        |
00012820  20 3b 50 4f 52 54 20 31  0d 30 31 31 37 33 20 46  | ;PORT 1.01173 F|
00012830  42 44 38 20 42 37 32 30  31 46 20 20 20 20 20 20  |BD8 B7201F      |
00012840  20 20 20 20 20 20 20 20  53 54 41 20 41 20 43 52  |        STA A CR|
00012850  41 43 53 43 32 20 20 20  20 20 20 20 20 3b 50 4f  |ACSC2        ;PO|
00012860  52 54 20 32 0d 0c 54 65  6b 74 72 6f 6e 69 78 20  |RT 2..Tektronix |
00012870  20 20 20 20 20 4d 36 38  30 30 20 41 53 4d 20 56  |     M6800 ASM V|
00012880  33 2e 33 20 20 55 53 45  20 43 4f 4d 4d 2d 52 41  |3.3  USE COMM-RA|
00012890  4d 2d 30 35 20 44 49 41  47 20 50 41 52 54 20 b3  |M-05 DIAG PART .|
000128a0  20 20 20 20 50 61 67 65  20 20 20 20 33 36 0d 43  |    Page    36.C|
000128b0  4f 4d 2d 52 41 4d 20 54  45 53 54 20 23 20 33 20  |OM-RAM TEST # 3 |
000128c0  20 39 32 30 2d 30 30 30  39 39 2d 30 32 2d c2 0d  | 920-00099-02-..|
000128d0  0d 30 31 31 37 34 20 46  42 44 42 20 33 39 20 20  |.01174 FBDB 39  |
000128e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000128f0  52 54 53 20 20 20 20 20  20 20 20 20 20 20 20 20  |RTS             |
00012900  20 20 20 20 20 3b 52 45  54 55 52 4e 0d 0c 54 65  |     ;RETURN..Te|
00012910  6b 74 72 6f 6e 69 78 20  20 20 20 20 20 4d 36 38  |ktronix      M68|
00012920  30 30 20 41 53 4d 20 56  33 2e 33 20 20 55 53 45  |00 ASM V3.3  USE|
00012930  20 43 4f 4d 4d 2d 52 41  4d 2d 30 35 20 44 49 41  | COMM-RAM-05 DIA|
00012940  47 20 50 41 52 54 20 b3  20 20 20 20 50 61 67 65  |G PART .    Page|
00012950  20 20 20 20 33 37 0d 43  4f 4d 2d 52 41 4d 20 54  |    37.COM-RAM T|
00012960  45 53 54 20 23 20 33 20  20 39 32 30 2d 30 30 30  |EST # 3  920-000|
00012970  39 39 2d 30 32 2d c2 0d  0d 30 31 31 37 36 20 20  |99-02-...01176  |
00012980  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00012990  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000129d0  2a 2a 2a 2a 2a 2a 0d 30  31 31 37 37 20 20 20 20  |******.01177    |
000129e0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
000129f0  31 31 37 38 20 20 20 20  20 20 20 20 20 20 20 20  |1178            |
00012a00  20 20 20 20 20 3b 44 43  44 4d 52 20 53 55 42 2d  |     ;DCDMR SUB-|
00012a10  52 4f 55 54 49 4e 45 0d  30 31 31 37 39 20 20 20  |ROUTINE.01179   |
00012a20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 50  |              ;P|
00012a30  55 54 20 4f 55 54 20 44  43 44 20 4d 45 53 53 41  |UT OUT DCD MESSA|
00012a40  47 45 20 41 4e 44 20 57  41 49 4c 0d 30 31 31 38  |GE AND WAIL.0118|
00012a50  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00012a60  20 20 3b 46 4f 52 20 4f  50 45 52 41 54 4f 52 20  |  ;FOR OPERATOR |
00012a70  54 4f 20 43 4f 4d 50 4c  59 20 41 4e 44 20 48 49  |TO COMPLY AND HI|
00012a80  54 20 52 55 4e 0d 30 31  31 38 31 20 20 20 20 20  |T RUN.01181     |
00012a90  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 31  |            ;.01|
00012aa0  31 38 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |182             |
00012ab0  20 20 20 20 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |    ;***********|
00012ac0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00012af0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 30 31 31 38  |***********.0118|
00012b00  33 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |3               |
00012b10  20 20 3b 0d 30 31 31 38  34 20 20 20 20 20 20 20  |  ;.01184       |
00012b20  20 20 20 20 20 20 20 20  20 20 3b 0d 30 31 31 38  |          ;.0118|
00012b30  35 20 20 20 20 20 20 46  42 44 43 20 20 20 20 3e  |5      FBDC    >|
00012b40  20 20 44 43 44 4d 52 20  20 20 20 45 51 55 20 20  |  DCDMR    EQU  |
00012b50  20 24 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | $              |
00012b60  3b 53 54 41 52 54 0d 30  31 31 38 36 20 46 42 44  |;START.01186 FBD|
00012b70  43 20 43 45 46 44 33 45  20 20 3e 20 20 20 20 20  |C CEFD3E  >     |
00012b80  20 20 20 20 20 20 4c 44  58 20 20 20 23 44 43 44  |      LDX   #DCD|
00012b90  4d 53 47 20 20 20 20 20  20 20 20 3b 47 45 54 20  |MSG        ;GET |
00012ba0  4d 45 53 53 41 47 45 20  50 4f 49 4e 54 45 52 0d  |MESSAGE POINTER.|
00012bb0  30 31 31 38 37 20 46 42  44 46 20 38 36 30 32 20  |01187 FBDF 8602 |
00012bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4c  |               L|
00012bd0  44 41 20 41 20 23 4d 45  53 53 47 0d 30 31 31 38  |DA A #MESSG.0118|
00012be0  38 20 46 42 45 31 20 42  44 46 44 46 42 20 20 3e  |8 FBE1 BDFDFB  >|
00012bf0  20 20 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |           JSR  |
00012c00  20 50 53 56 43 20 20 20  20 20 20 20 20 20 20 20  | PSVC           |
00012c10  3b 4f 55 54 50 55 54 20  4d 45 53 53 41 47 45 20  |;OUTPUT MESSAGE |
00012c20  54 4f 20 4f 50 45 52 41  54 4f 52 0d 30 31 31 38  |TO OPERATOR.0118|
00012c30  39 20 46 42 45 34 20 33  39 20 20 20 20 20 20 20  |9 FBE4 39       |
00012c40  20 20 20 20 20 20 20 20  20 20 20 52 54 53 20 20  |           RTS  |
00012c50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00012c60  3b 52 45 54 55 52 4e 0d  0c 54 65 6b 74 72 6f 6e  |;RETURN..Tektron|
00012c70  69 78 20 20 20 20 20 20  4d 36 38 30 30 20 41 53  |ix      M6800 AS|
00012c80  4d 20 56 33 2e 33 20 20  55 53 45 20 43 4f 4d 4d  |M V3.3  USE COMM|
00012c90  2d 52 41 4d 2d 30 35 20  44 49 41 47 20 50 41 52  |-RAM-05 DIAG PAR|
00012ca0  54 20 b3 20 20 20 20 50  61 67 65 20 20 20 20 33  |T .    Page    3|
00012cb0  38 0d 43 4f 4d 2d 52 41  4d 20 54 45 53 54 20 23  |8.COM-RAM TEST #|
00012cc0  20 33 20 20 39 32 30 2d  30 30 30 39 39 2d 30 32  | 3  920-00099-02|
00012cd0  2d c2 0d 0d 30 31 31 39  31 20 20 20 20 20 20 20  |-...01191       |
00012ce0  20 20 20 20 20 20 20 20  20 20 3b 2a 2a 2a 2a 2a  |          ;*****|
00012cf0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00012d30  2a 0d 30 31 31 39 32 20  20 20 20 20 20 20 20 20  |*.01192         |
00012d40  20 20 20 20 20 20 20 20  3b 0d 30 31 31 39 33 20  |        ;.01193 |
00012d50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00012d60  3b 52 4f 49 4e 54 53 55  20 53 55 42 2d 52 4f 55  |;ROINTSU SUB-ROU|
00012d70  54 49 4e 45 0d 30 31 31  39 34 20 20 20 20 20 20  |TINE.01194      |
00012d80  20 20 20 20 20 20 20 20  20 20 20 3b 45 4e 41 42  |           ;ENAB|
00012d90  4c 45 53 20 52 43 56 52  20 49 4e 54 45 52 55 50  |LES RCVR INTERUP|
00012da0  54 0d 30 31 31 39 35 20  20 20 20 20 20 20 20 20  |T.01195         |
00012db0  20 20 20 20 20 20 20 20  3b 0d 30 31 31 39 36 20  |        ;.01196 |
00012dc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00012dd0  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
00012de0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00012e10  2a 2a 2a 2a 2a 2a 2a 0d  30 31 31 39 37 20 20 20  |*******.01197   |
00012e20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
00012e30  30 31 31 39 38 20 20 20  20 20 20 46 42 45 35 20  |01198      FBE5 |
00012e40  20 20 20 3e 20 20 52 44  49 4e 54 53 55 20 20 45  |   >  RDINTSU  E|
00012e50  51 55 20 20 20 24 20 20  20 20 20 20 20 20 20 20  |QU   $          |
00012e60  20 20 20 20 3b 53 54 41  52 54 0d 30 31 31 39 39  |    ;START.01199|
00012e70  20 46 42 45 35 20 37 43  46 38 32 45 20 20 3e 20  | FBE5 7CF82E  > |
00012e80  20 20 20 20 20 20 20 20  20 20 49 4e 43 20 20 20  |          INC   |
00012e90  52 49 46 4c 47 0d 30 31  32 30 30 20 46 42 45 38  |RIFLG.01200 FBE8|
00012ea0  20 37 43 46 38 32 35 20  20 3e 20 20 20 20 20 20  | 7CF825  >      |
00012eb0  20 20 20 20 20 49 4e 43  20 20 20 45 58 50 46 4c  |     INC   EXPFL|
00012ec0  47 20 20 20 20 20 20 20  20 20 3b 49 4e 54 45 52  |G         ;INTER|
00012ed0  55 50 54 20 45 58 50 45  43 54 45 44 0d 30 31 32  |UPT EXPECTED.012|
00012ee0  30 31 20 46 42 45 42 20  42 44 46 42 44 33 20 20  |01 FBEB BDFBD3  |
00012ef0  3e 20 20 20 20 20 20 20  20 20 20 20 4a 53 52 20  |>           JSR |
00012f00  20 20 52 53 54 20 20 20  20 20 20 20 20 20 20 20  |  RST           |
00012f10  20 3b 52 45 53 45 54 20  42 4f 54 48 20 41 43 49  | ;RESET BOTH ACI|
00012f20  41 20 50 4f 52 54 53 0d  30 31 32 30 32 20 46 42  |A PORTS.01202 FB|
00012f30  45 45 20 38 36 31 35 20  20 20 20 20 20 20 20 20  |EE 8615         |
00012f40  20 20 20 20 20 20 20 4c  44 41 20 41 20 23 44 49  |       LDA A #DI|
00012f50  56 31 36 2b 42 38 31 53  0d 30 31 32 30 33 20 46  |V16+B81S.01203 F|
00012f60  42 46 30 20 46 45 46 38  32 38 20 20 3e 20 20 20  |BF0 FEF828  >   |
00012f70  20 20 20 20 20 20 20 20  4c 44 58 20 20 20 57 54  |        LDX   WT|
00012f80  53 54 50 54 0d 30 31 32  30 34 20 46 42 46 33 20  |STPT.01204 FBF3 |
00012f90  41 37 30 30 20 20 20 20  20 20 20 20 20 20 20 20  |A700            |
00012fa0  20 20 20 20 53 54 41 20  41 20 30 2c 58 20 20 20  |    STA A 0,X   |
00012fb0  20 20 20 20 20 20 3b 44  49 53 41 42 4c 45 20 49  |      ;DISABLE I|
00012fc0  4e 54 45 52 55 50 54 20  57 52 49 54 45 20 50 4f  |NTERUPT WRITE PO|
00012fd0  52 54 0d 30 31 32 30 35  20 46 42 46 35 20 38 36  |RT.01205 FBF5 86|
00012fe0  39 35 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |95              |
00012ff0  20 20 4c 44 41 20 41 20  23 44 49 56 31 36 2b 52  |  LDA A #DIV16+R|
00013000  49 45 42 2b 42 38 31 53  20 20 20 20 20 3b 45 4e  |IEB+B81S     ;EN|
00013010  41 42 4c 45 20 49 4e 54  45 52 55 50 54 2d 52 45  |ABLE INTERUPT-RE|
00013020  41 44 20 50 4f 52 54 0d  30 31 32 30 36 20 46 42  |AD PORT.01206 FB|
00013030  46 37 20 46 45 46 38 32  41 20 20 3e 20 20 20 20  |F7 FEF82A  >    |
00013040  20 20 20 20 20 20 20 4c  44 58 20 20 20 52 44 53  |       LDX   RDS|
00013050  54 50 54 0d 30 31 32 30  37 20 46 42 46 41 20 41  |TPT.01207 FBFA A|
00013060  37 30 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |700             |
00013070  20 20 20 53 54 41 20 41  20 30 2c 58 0d 30 31 32  |   STA A 0,X.012|
00013080  30 38 20 46 42 46 43 20  33 39 20 20 20 20 20 20  |08 FBFC 39      |
00013090  20 20 20 20 20 20 20 20  20 20 20 20 52 54 53 20  |            RTS |
000130a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000130b0  20 3b 52 45 54 55 52 4e  0d 30 31 32 30 39 20 20  | ;RETURN.01209  |
000130c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
000130d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00013110  2a 2a 2a 2a 2a 2a 0d 30  31 32 31 30 20 20 20 20  |******.01210    |
00013120  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
00013130  31 32 31 31 20 20 20 20  20 20 20 20 20 20 20 20  |1211            |
00013140  20 20 20 20 20 3b 49 4e  54 54 53 54 20 53 55 42  |     ;INTTST SUB|
00013150  2d 52 4f 55 54 49 4e 45  0d 30 31 32 31 32 20 20  |-ROUTINE.01212  |
00013160  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00013170  4c 4f 4f 4b 53 20 46 4f  52 20 49 4e 54 45 52 55  |LOOKS FOR INTERU|
00013180  50 54 0d 30 31 32 31 33  20 20 20 20 20 20 20 20  |PT.01213        |
00013190  20 20 20 20 20 20 20 20  20 3b 56 45 52 49 46 49  |         ;VERIFI|
000131a0  45 53 20 49 54 20 41 4e  44 20 50 55 54 53 20 4f  |ES IT AND PUTS O|
000131b0  55 54 0d 30 31 32 31 34  20 20 20 20 20 20 20 20  |UT.01214        |
000131c0  20 20 20 20 20 20 20 20  20 3b 45 52 52 4f 52 20  |         ;ERROR |
000131d0  49 46 20 49 4e 43 4f 52  52 45 43 54 0d 30 31 32  |IF INCORRECT.012|
000131e0  31 35 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |15              |
000131f0  20 20 20 3b 0d 30 31 32  31 36 20 20 20 20 20 20  |   ;.01216      |
00013200  20 20 20 20 20 20 20 20  20 20 20 3b 2a 2a 2a 2a  |           ;****|
00013210  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00013250  2a 2a 0d 30 31 32 31 37  20 20 20 20 20 20 20 20  |**.01217        |
00013260  20 20 20 20 20 20 20 20  20 3b 0d 30 31 32 31 38  |         ;.01218|
00013270  20 20 20 20 20 20 46 42  46 44 20 20 20 20 3e 20  |      FBFD    > |
00013280  20 49 4e 54 54 53 54 20  20 20 45 51 55 20 20 20  | INTTST   EQU   |
00013290  24 0d 30 31 32 31 39 20  46 42 46 44 20 30 31 20  |$.01219 FBFD 01 |
000132a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000132b0  20 4e 4f 50 0d 30 31 32  32 30 20 46 42 46 45 20  | NOP.01220 FBFE |
000132c0  30 45 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0E              |
000132d0  20 20 20 20 43 4c 49 20  20 20 20 20 20 20 20 20  |    CLI         |
000132e0  20 20 20 20 20 20 20 20  20 3b 43 4c 45 41 52 20  |         ;CLEAR |
000132f0  49 4e 54 45 52 55 50 54  20 49 4e 48 49 42 49 54  |INTERUPT INHIBIT|
00013300  0d 30 31 32 32 31 20 46  42 46 46 20 30 31 20 20  |.01221 FBFF 01  |
00013310  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00013320  4e 4f 50 20 20 20 20 20  20 20 20 20 20 20 20 20  |NOP             |
00013330  20 20 20 20 20 3b 57 49  4e 44 4f 57 0d 30 31 32  |     ;WINDOW.012|
00013340  32 32 20 46 43 30 30 20  30 46 20 20 20 20 20 20  |22 FC00 0F      |
00013350  20 20 20 20 20 20 20 20  20 20 20 20 53 45 49 20  |            SEI |
00013360  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00013370  20 3b 53 45 54 20 49 4e  54 45 52 55 50 54 20 49  | ;SET INTERUPT I|
00013380  4e 48 49 42 49 54 0d 30  31 32 32 33 20 46 43 30  |NHIBIT.01223 FC0|
00013390  31 20 37 44 46 38 32 44  20 20 3e 20 20 20 20 20  |1 7DF82D  >     |
000133a0  20 20 20 20 20 20 54 53  54 20 20 20 49 4e 54 46  |      TST   INTF|
000133b0  4c 47 20 20 20 20 20 20  20 20 20 3b 57 41 53 20  |LG         ;WAS |
000133c0  54 48 45 52 45 20 41 4e  20 49 4e 54 45 52 55 50  |THERE AN INTERUP|
000133d0  54 3f 0d 30 31 32 32 34  20 46 43 30 34 20 32 37  |T?.01224 FC04 27|
000133e0  30 34 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |04              |
000133f0  20 20 42 45 51 20 20 20  4e 4f 49 4e 54 20 20 20  |  BEQ   NOINT   |
00013400  20 20 20 20 20 20 20 3b  4e 4f 20 47 4f 20 54 4f  |       ;NO GO TO|
00013410  20 4e 4f 49 4e 54 0d 30  31 32 32 35 20 46 43 30  | NOINT.01225 FC0|
00013420  36 20 37 46 46 38 32 44  20 20 3e 20 20 20 20 20  |6 7FF82D  >     |
00013430  20 20 20 20 20 20 43 4c  52 20 20 20 49 4e 54 46  |      CLR   INTF|
00013440  4c 47 20 20 20 20 20 20  20 20 20 3b 59 45 53 20  |LG         ;YES |
00013450  43 4c 45 41 52 20 49 4e  54 20 46 4c 41 47 0d 30  |CLEAR INT FLAG.0|
00013460  31 32 32 36 20 46 43 30  39 20 33 39 20 20 20 20  |1226 FC09 39    |
00013470  20 20 20 20 20 46 49 4e  41 20 20 20 20 20 52 54  |     FINA     RT|
00013480  53 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |S               |
00013490  20 20 20 3b 52 45 54 55  52 4e 0d 30 31 32 32 37  |   ;RETURN.01227|
000134a0  20 46 43 30 41 20 37 44  46 38 32 35 20 20 3e 20  | FC0A 7DF825  > |
000134b0  20 4e 4f 49 4e 54 20 20  20 20 54 53 54 20 20 20  | NOINT    TST   |
000134c0  45 58 50 46 4c 47 20 20  20 20 20 20 20 20 20 3b  |EXPFLG         ;|
000134d0  57 41 53 20 41 4e 20 49  4e 54 45 52 55 50 54 20  |WAS AN INTERUPT |
000134e0  45 58 50 45 43 54 45 44  0d 30 31 32 32 38 20 46  |EXPECTED.01228 F|
000134f0  43 30 44 20 32 36 30 32  20 20 20 20 20 20 20 20  |C0D 2602        |
00013500  20 20 20 20 20 20 20 20  42 4e 45 20 20 20 4d 49  |        BNE   MI|
00013510  45 52 20 20 20 20 20 20  20 20 20 20 20 3b 59 45  |ER           ;YE|
00013520  53 20 47 4f 20 54 4f 20  4d 49 53 53 49 4e 47 20  |S GO TO MISSING |
00013530  49 4e 54 45 52 55 50 54  20 52 4f 55 54 49 4e 45  |INTERUPT ROUTINE|
00013540  0d 30 31 32 32 39 20 46  43 30 46 20 32 30 46 38  |.01229 FC0F 20F8|
00013550  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00013560  42 52 41 20 20 20 46 49  4e 41 20 20 20 20 20 20  |BRA   FINA      |
00013570  20 20 20 20 20 3b 47 4f  20 54 4f 20 52 45 54 55  |     ;GO TO RETU|
00013580  52 4e 0d 30 31 32 33 30  20 46 43 31 31 20 37 44  |RN.01230 FC11 7D|
00013590  46 38 30 31 20 20 3e 20  20 4d 49 45 52 20 20 20  |F801  >  MIER   |
000135a0  20 20 54 53 54 20 20 20  53 49 47 46 4c 47 0d 30  |  TST   SIGFLG.0|
000135b0  31 32 33 31 20 46 43 31  34 20 32 36 46 33 20 20  |1231 FC14 26F3  |
000135c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 42 4e  |              BN|
000135d0  45 20 20 20 46 49 4e 41  0d 30 31 32 33 32 20 46  |E   FINA.01232 F|
000135e0  43 31 36 20 43 45 46 44  41 39 20 20 3e 20 20 20  |C16 CEFDA9  >   |
000135f0  20 20 20 20 20 20 20 20  4c 44 58 20 20 20 23 4d  |        LDX   #M|
00013600  49 4d 53 47 0d 30 31 32  33 33 20 46 43 31 39 20  |IMSG.01233 FC19 |
00013610  42 44 46 44 45 30 20 20  3e 20 20 20 20 20 20 20  |BDFDE0  >       |
00013620  20 20 20 20 4a 53 52 20  20 20 45 52 52 4f 55 54  |    JSR   ERROUT|
00013630  20 20 20 20 20 20 20 20  20 3b 50 55 54 20 4f 55  |         ;PUT OU|
00013640  54 20 4d 49 53 53 49 4e  47 20 49 4e 54 45 52 55  |T MISSING INTERU|
00013650  50 54 20 4d 45 53 53 41  47 45 0d 30 31 32 33 34  |PT MESSAGE.01234|
00013660  20 46 43 31 43 20 32 30  45 42 20 20 20 20 20 20  | FC1C 20EB      |
00013670  20 20 20 20 20 20 20 20  20 20 42 52 41 20 20 20  |          BRA   |
00013680  46 49 4e 41 20 20 20 20  20 20 20 20 20 20 20 3b  |FINA           ;|
00013690  47 4f 20 54 4f 20 52 45  54 55 52 4e 0d 0c 54 65  |GO TO RETURN..Te|
000136a0  6b 74 72 6f 6e 69 78 20  20 20 20 20 20 4d 36 38  |ktronix      M68|
000136b0  30 30 20 41 53 4d 20 56  33 2e 33 20 20 55 53 45  |00 ASM V3.3  USE|
000136c0  20 43 4f 4d 4d 2d 52 41  4d 2d 30 35 20 44 49 41  | COMM-RAM-05 DIA|
000136d0  47 20 50 41 52 54 20 b3  20 20 20 20 50 61 67 65  |G PART .    Page|
000136e0  20 20 20 20 33 39 0d 43  4f 4d 2d 52 41 4d 20 54  |    39.COM-RAM T|
000136f0  45 53 54 20 23 20 33 20  20 39 32 30 2d 30 30 30  |EST # 3  920-000|
00013700  39 39 2d 30 32 2d c2 0d  0d 30 31 32 33 36 20 20  |99-02-...01236  |
00013710  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00013720  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00013760  2a 2a 2a 2a 2a 2a 0d 30  31 32 33 37 20 20 20 20  |******.01237    |
00013770  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 0d 30  |             ;.0|
00013780  31 32 33 38 20 20 20 20  20 20 20 20 20 20 20 20  |1238            |
00013790  20 20 20 20 20 3b 57 54  31 52 44 32 20 53 55 42  |     ;WT1RD2 SUB|
000137a0  2d 52 4f 55 54 49 4e 45  0d 30 31 32 33 39 20 20  |-ROUTINE.01239  |
000137b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
000137c0  53 45 54 53 20 55 50 20  50 4f 52 54 20 31 20 41  |SETS UP PORT 1 A|
000137d0  53 20 54 48 45 20 57 52  49 54 45 0d 30 31 32 34  |S THE WRITE.0124|
000137e0  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
000137f0  20 20 3b 50 4f 52 54 20  41 4e 44 20 50 4f 52 54  |  ;PORT AND PORT|
00013800  20 32 20 41 53 20 54 48  45 20 52 45 41 44 20 50  | 2 AS THE READ P|
00013810  4f 52 54 0d 30 31 32 34  31 20 20 20 20 20 20 20  |ORT.01241       |
00013820  20 20 20 20 20 20 20 20  20 20 3b 0d 30 31 32 34  |          ;.0124|
00013830  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
00013840  20 20 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |  ;*************|
00013850  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00013880  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 30 31 32 34 33 20  |*********.01243 |
00013890  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000138a0  3b 0d 30 31 32 34 34 20  20 20 20 20 20 46 43 31  |;.01244      FC1|
000138b0  45 20 20 20 20 3e 20 20  57 54 31 52 44 32 20 20  |E    >  WT1RD2  |
000138c0  20 45 51 55 20 20 20 24  20 20 20 20 20 20 20 20  | EQU   $        |
000138d0  20 20 20 20 20 20 3b 53  54 41 52 54 0d 30 31 32  |      ;START.012|
000138e0  34 35 20 46 43 31 45 20  38 36 30 32 20 20 20 20  |45 FC1E 8602    |
000138f0  20 20 20 20 20 20 20 20  20 20 20 20 4c 44 41 20  |            LDA |
00013900  41 20 23 30 32 0d 30 31  32 34 36 20 46 43 32 30  |A #02.01246 FC20|
00013910  20 42 37 46 38 31 46 20  20 3e 20 20 20 20 20 20  | B7F81F  >      |
00013920  20 20 20 20 20 53 54 41  20 41 20 50 4f 52 54 4e  |     STA A PORTN|
00013930  0d 30 31 32 34 37 20 46  43 32 33 20 38 36 31 36  |.01247 FC23 8616|
00013940  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00013950  4c 44 41 20 41 20 23 49  4e 54 31 31 20 20 20 20  |LDA A #INT11    |
00013960  20 20 20 20 20 3b 0d 30  31 32 34 38 20 46 43 32  |     ;.01248 FC2|
00013970  35 20 42 37 46 38 32 43  20 20 3e 20 20 20 20 20  |5 B7F82C  >     |
00013980  20 20 20 20 20 20 53 54  41 20 41 20 45 58 50 49  |      STA A EXPI|
00013990  4e 54 20 20 20 20 20 20  20 20 20 20 3b 45 58 50  |NT          ;EXP|
000139a0  45 43 54 20 49 4e 54 3d  49 4e 54 31 31 0d 30 31  |ECT INT=INT11.01|
000139b0  32 34 39 20 46 43 32 38  20 43 45 32 30 31 43 20  |249 FC28 CE201C |
000139c0  20 20 20 20 20 20 20 20  20 20 20 20 20 4c 44 58  |             LDX|
000139d0  20 20 20 23 43 52 41 43  53 43 0d 30 31 32 35 30  |   #CRACSC.01250|
000139e0  20 46 43 32 42 20 46 46  46 38 32 38 20 20 3e 20  | FC2B FFF828  > |
000139f0  20 20 20 20 20 20 20 20  20 20 53 54 58 20 20 20  |          STX   |
00013a00  57 54 53 54 50 54 20 20  20 20 20 20 20 20 20 3b  |WTSTPT         ;|
00013a10  57 52 49 54 45 20 53 54  41 54 55 53 3d 50 4f 52  |WRITE STATUS=POR|
00013a20  54 20 31 0d 30 31 32 35  31 20 46 43 32 45 20 43  |T 1.01251 FC2E C|
00013a30  45 32 30 31 46 20 20 20  20 20 20 20 20 20 20 20  |E201F           |
00013a40  20 20 20 4c 44 58 20 20  20 23 43 52 41 43 53 43  |   LDX   #CRACSC|
00013a50  32 0d 30 31 32 35 32 20  46 43 33 31 20 46 46 46  |2.01252 FC31 FFF|
00013a60  38 32 41 20 20 3e 20 20  20 20 20 20 20 20 20 20  |82A  >          |
00013a70  20 53 54 58 20 20 20 52  44 53 54 50 54 20 20 20  | STX   RDSTPT   |
00013a80  20 20 20 20 20 20 3b 52  45 41 44 20 53 54 41 54  |      ;READ STAT|
00013a90  55 53 3d 50 4f 52 54 20  32 0d 30 31 32 35 33 20  |US=PORT 2.01253 |
00013aa0  46 43 33 34 20 46 46 46  38 31 35 20 20 3e 20 20  |FC34 FFF815  >  |
00013ab0  20 20 20 20 20 20 20 20  20 53 54 58 20 20 20 53  |         STX   S|
00013ac0  54 41 50 4f 52 54 0d 30  31 32 35 34 20 46 43 33  |TAPORT.01254 FC3|
00013ad0  37 20 43 45 32 30 31 45  20 20 20 20 20 20 20 20  |7 CE201E        |
00013ae0  20 20 20 20 20 20 4c 44  58 20 20 20 23 43 52 41  |      LDX   #CRA|
00013af0  43 44 41 32 0d 30 31 32  35 35 20 46 43 33 41 20  |CDA2.01255 FC3A |
00013b00  46 46 46 38 32 36 20 20  3e 20 20 20 20 20 20 20  |FFF826  >       |
00013b10  20 20 20 20 53 54 58 20  20 20 52 44 44 41 50 54  |    STX   RDDAPT|
00013b20  20 20 20 20 20 20 20 20  20 3b 52 45 41 44 20 44  |         ;READ D|
00013b30  41 54 41 3d 50 4f 52 54  20 32 0d 30 31 32 35 36  |ATA=PORT 2.01256|
00013b40  20 46 43 33 44 20 43 45  32 30 31 42 20 20 20 20  | FC3D CE201B    |
00013b50  20 20 20 20 20 20 20 20  20 20 4c 44 58 20 20 20  |          LDX   |
00013b60  23 43 52 41 43 44 41 20  20 20 20 20 20 20 20 3b  |#CRACDA        ;|
00013b70  57 52 49 54 45 20 44 41  54 41 3d 50 4f 52 54 20  |WRITE DATA=PORT |
00013b80  31 0d 30 31 32 35 37 20  46 43 34 30 20 46 46 46  |1.01257 FC40 FFF|
00013b90  38 32 33 20 20 3e 20 20  20 20 20 20 20 20 20 20  |823  >          |
00013ba0  20 53 54 58 20 20 20 57  54 44 41 50 54 0d 30 31  | STX   WTDAPT.01|
00013bb0  32 35 38 20 46 43 34 33  20 33 39 20 20 20 20 20  |258 FC43 39     |
00013bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 52 54 53  |             RTS|
00013bd0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00013be0  20 20 3b 52 45 54 55 52  4e 0d 30 31 32 35 39 20  |  ;RETURN.01259 |
00013bf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00013c00  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
00013c10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00013c40  2a 2a 2a 2a 2a 2a 2a 0d  30 31 32 36 30 20 20 20  |*******.01260   |
00013c50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 0d  |              ;.|
00013c60  30 31 32 36 31 20 20 20  20 20 20 20 20 20 20 20  |01261           |
00013c70  20 20 20 20 20 20 3b 57  54 32 52 44 31 20 53 55  |      ;WT2RD1 SU|
00013c80  42 2d 52 4f 55 54 49 4e  45 0d 30 31 32 36 32 20  |B-ROUTINE.01262 |
00013c90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00013ca0  3b 53 45 54 53 20 55 50  20 50 4f 52 54 20 32 20  |;SETS UP PORT 2 |
00013cb0  41 53 20 54 48 45 20 57  52 49 54 45 20 50 4f 52  |AS THE WRITE POR|
00013cc0  54 0d 30 31 32 36 33 20  20 20 20 20 20 20 20 20  |T.01263         |
00013cd0  20 20 20 20 20 20 20 20  3b 41 4e 44 20 50 4f 52  |        ;AND POR|
00013ce0  54 20 31 20 41 53 20 54  48 45 20 52 45 41 44 20  |T 1 AS THE READ |
00013cf0  50 4f 52 54 0d 30 31 32  36 34 20 20 20 20 20 20  |PORT.01264      |
00013d00  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 31 32  |           ;.012|
00013d10  36 35 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |65              |
00013d20  20 20 20 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |   ;************|
00013d30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00013d60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 30 31 32 36 36  |**********.01266|
00013d70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00013d80  20 3b 0d 30 31 32 36 37  20 20 20 20 20 20 46 43  | ;.01267      FC|
00013d90  34 34 20 20 20 20 3e 20  20 57 54 32 52 44 31 20  |44    >  WT2RD1 |
00013da0  20 20 45 51 55 20 20 20  24 20 20 20 20 20 20 20  |  EQU   $       |
00013db0  20 20 20 20 20 20 20 3b  53 54 41 52 54 0d 30 31  |       ;START.01|
00013dc0  32 36 38 20 46 43 34 34  20 38 36 30 31 20 20 20  |268 FC44 8601   |
00013dd0  20 20 20 20 20 20 20 20  20 20 20 20 20 4c 44 41  |             LDA|
00013de0  20 41 20 23 30 31 0d 30  31 32 36 39 20 46 43 34  | A #01.01269 FC4|
00013df0  36 20 42 37 46 38 31 46  20 20 3e 20 20 20 20 20  |6 B7F81F  >     |
00013e00  20 20 20 20 20 20 53 54  41 20 41 20 50 4f 52 54  |      STA A PORT|
00013e10  4e 0d 30 31 32 37 30 20  46 43 34 39 20 38 36 31  |N.01270 FC49 861|
00013e20  34 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |4               |
00013e30  20 4c 44 41 20 41 20 23  49 4e 54 31 30 20 20 20  | LDA A #INT10   |
00013e40  20 20 20 20 20 20 3b 0d  30 31 32 37 31 20 46 43  |      ;.01271 FC|
00013e50  34 42 20 42 37 46 38 32  43 20 20 3e 20 20 20 20  |4B B7F82C  >    |
00013e60  20 20 20 20 20 20 20 53  54 41 20 41 20 45 58 50  |       STA A EXP|
00013e70  49 4e 54 20 20 20 20 20  20 20 20 20 3b 45 58 50  |INT         ;EXP|
00013e80  45 43 54 20 49 4e 54 3d  49 4e 54 31 30 0d 30 31  |ECT INT=INT10.01|
00013e90  32 37 32 20 46 43 34 45  20 43 45 32 30 31 46 20  |272 FC4E CE201F |
00013ea0  20 20 20 20 20 20 20 20  20 20 20 20 20 4c 44 58  |             LDX|
00013eb0  20 20 20 23 43 52 41 43  53 43 32 0d 30 31 32 37  |   #CRACSC2.0127|
00013ec0  33 20 46 43 35 31 20 46  46 46 38 32 38 20 20 3e  |3 FC51 FFF828  >|
00013ed0  20 20 20 20 20 20 20 20  20 20 20 53 54 58 20 20  |           STX  |
00013ee0  20 57 54 53 54 50 54 20  20 20 20 20 20 20 20 20  | WTSTPT         |
00013ef0  3b 57 52 49 54 45 20 53  54 41 54 55 53 3d 50 4f  |;WRITE STATUS=PO|
00013f00  52 54 20 32 0d 30 31 32  37 34 20 46 43 35 34 20  |RT 2.01274 FC54 |
00013f10  43 45 32 30 31 43 20 20  20 20 20 20 20 20 20 20  |CE201C          |
00013f20  20 20 20 20 4c 44 58 20  20 20 23 43 52 41 43 53  |    LDX   #CRACS|
00013f30  43 0d 30 31 32 37 35 20  46 43 35 37 20 46 46 46  |C.01275 FC57 FFF|
00013f40  38 32 41 20 20 3e 20 20  20 20 20 20 20 20 20 20  |82A  >          |
00013f50  20 53 54 58 20 20 20 52  44 53 54 50 54 20 20 20  | STX   RDSTPT   |
00013f60  20 20 20 20 20 20 3b 52  45 41 44 20 53 54 41 54  |      ;READ STAT|
00013f70  55 53 3d 50 4f 52 54 20  31 0d 30 31 32 37 36 20  |US=PORT 1.01276 |
00013f80  46 43 35 41 20 46 46 46  38 31 35 20 20 3e 20 20  |FC5A FFF815  >  |
00013f90  20 20 20 20 20 20 20 20  20 53 54 58 20 20 20 53  |         STX   S|
00013fa0  54 41 50 4f 52 54 0d 30  31 32 37 37 20 46 43 35  |TAPORT.01277 FC5|
00013fb0  44 20 43 45 32 30 31 42  20 20 20 20 20 20 20 20  |D CE201B        |
00013fc0  20 20 20 20 20 20 4c 44  58 20 20 20 23 43 52 41  |      LDX   #CRA|
00013fd0  43 44 41 0d 30 31 32 37  38 20 46 43 36 30 20 46  |CDA.01278 FC60 F|
00013fe0  46 46 38 32 36 20 20 3e  20 20 20 20 20 20 20 20  |FF826  >        |
00013ff0  20 20 20 53 54 58 20 20  20 52 44 44 41 50 54 20  |   STX   RDDAPT |
00014000  20 20 20 20 20 20 20 20  3b 52 45 41 44 20 44 41  |        ;READ DA|
00014010  54 41 3d 50 4f 52 54 20  31 0d 30 31 32 37 39 20  |TA=PORT 1.01279 |
00014020  46 43 36 33 20 43 45 32  30 31 45 20 20 20 20 20  |FC63 CE201E     |
00014030  20 20 20 20 20 20 20 20  20 4c 44 58 20 20 20 23  |         LDX   #|
00014040  43 52 41 43 44 41 32 0d  30 31 32 38 30 20 46 43  |CRACDA2.01280 FC|
00014050  36 36 20 46 46 46 38 32  33 20 20 3e 20 20 20 20  |66 FFF823  >    |
00014060  20 20 20 20 20 20 20 53  54 58 20 20 20 57 54 44  |       STX   WTD|
00014070  41 50 54 20 20 20 20 20  20 20 20 20 3b 57 52 49  |APT         ;WRI|
00014080  54 45 20 44 41 54 41 3d  50 4f 52 54 20 32 0d 30  |TE DATA=PORT 2.0|
00014090  31 32 38 31 20 46 43 36  39 20 33 39 20 20 20 20  |1281 FC69 39    |
000140a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 52 54  |              RT|
000140b0  53 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |S               |
000140c0  20 20 20 3b 52 45 54 55  52 4e 0d 0c 54 65 6b 74  |   ;RETURN..Tekt|
000140d0  72 6f 6e 69 78 20 20 20  20 20 20 4d 36 38 30 30  |ronix      M6800|
000140e0  20 41 53 4d 20 56 33 2e  33 20 20 55 53 45 20 43  | ASM V3.3  USE C|
000140f0  4f 4d 4d 2d 52 41 4d 2d  30 35 20 44 49 41 47 20  |OMM-RAM-05 DIAG |
00014100  50 41 52 54 20 b3 20 20  20 20 50 61 67 65 20 20  |PART .    Page  |
00014110  20 20 34 30 0d 43 4f 4d  2d 52 41 4d 20 54 45 53  |  40.COM-RAM TES|
00014120  54 20 23 20 33 20 20 39  32 30 2d 30 30 30 39 39  |T # 3  920-00099|
00014130  2d 30 32 2d c2 0d 0d 30  31 32 38 33 20 20 20 20  |-02-...01283    |
00014140  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 2a 2a  |             ;**|
00014150  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00014190  2a 2a 2a 2a 0d 30 31 32  38 34 20 20 20 20 20 20  |****.01284      |
000141a0  20 20 20 20 20 20 20 20  20 20 20 3b 2a 2a 2a 2a  |           ;****|
000141b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000141f0  2a 2a 0d 30 31 32 38 35  20 20 20 20 20 20 20 20  |**.01285        |
00014200  20 20 20 20 20 20 20 20  20 3b 0d 30 31 32 38 36  |         ;.01286|
00014210  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00014220  20 3b 49 4e 54 45 52 55  50 54 20 53 45 52 56 49  | ;INTERUPT SERVI|
00014230  43 45 20 52 4f 55 54 49  4e 45 0d 30 31 32 38 37  |CE ROUTINE.01287|
00014240  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00014250  20 3b 0d 30 31 32 38 38  20 20 20 20 20 20 20 20  | ;.01288        |
00014260  20 20 20 20 20 20 20 20  20 3b 2a 2a 2a 2a 2a 2a  |         ;******|
00014270  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000142b0  0d 30 31 32 38 39 20 20  20 20 20 20 20 20 20 20  |.01289          |
000142c0  20 20 20 20 20 20 20 3b  2a 2a 2a 2a 2a 2a 2a 2a  |       ;********|
000142d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00014300  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 30  |**************.0|
00014310  31 32 39 30 20 20 20 20  20 20 20 20 20 20 20 20  |1290            |
00014320  20 20 20 20 20 3b 0d 30  31 32 39 31 20 20 20 20  |     ;.01291    |
00014330  20 20 46 43 36 41 20 20  20 20 3e 20 20 49 4e 56  |  FC6A    >  INV|
00014340  43 52 20 20 20 20 45 51  55 20 20 20 24 20 20 20  |CR    EQU   $   |
00014350  20 20 20 20 20 20 20 20  20 20 20 3b 53 54 41 52  |           ;STAR|
00014360  54 0d 30 31 32 39 32 20  46 43 36 41 20 42 36 32  |T.01292 FC6A B62|
00014370  30 30 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |000             |
00014380  20 4c 44 41 20 41 20 50  54 49 56 45 43 20 20 20  | LDA A PTIVEC   |
00014390  20 20 20 20 20 20 3b 47  45 54 20 49 4e 54 45 52  |      ;GET INTER|
000143a0  55 50 54 0d 30 31 32 39  33 20 46 43 36 44 20 42  |UPT.01293 FC6D B|
000143b0  37 46 38 32 46 20 20 3e  20 20 20 20 20 20 20 20  |7F82F  >        |
000143c0  20 20 20 53 54 41 20 41  20 49 4e 54 49 44 20 20  |   STA A INTID  |
000143d0  20 20 20 20 20 20 20 20  3b 53 41 56 45 20 49 54  |        ;SAVE IT|
000143e0  0d 30 31 32 39 34 20 46  43 37 30 20 37 44 46 38  |.01294 FC70 7DF8|
000143f0  32 44 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |2D  >           |
00014400  54 53 54 20 20 20 49 4e  54 46 4c 47 20 20 20 20  |TST   INTFLG    |
00014410  20 20 20 20 20 3b 49 46  20 49 4e 54 45 52 55 50  |     ;IF INTERUP|
00014420  54 20 53 45 54 20 47 4f  20 54 4f 20 55 4e 45 58  |T SET GO TO UNEX|
00014430  50 20 49 4e 54 20 52 54  4e 0d 30 31 32 39 35 20  |P INT RTN.01295 |
00014440  46 43 37 33 20 32 36 31  46 20 20 20 20 20 20 20  |FC73 261F       |
00014450  20 20 20 20 20 20 20 20  20 42 4e 45 20 20 20 55  |         BNE   U|
00014460  4e 49 52 0d 30 31 32 39  36 20 46 43 37 35 20 37  |NIR.01296 FC75 7|
00014470  43 46 38 32 44 20 20 3e  20 20 20 20 20 20 20 20  |CF82D  >        |
00014480  20 20 20 49 4e 43 20 20  20 49 4e 54 46 4c 47 20  |   INC   INTFLG |
00014490  20 20 20 20 20 20 20 20  3b 49 4e 54 20 46 4c 41  |        ;INT FLA|
000144a0  47 3d 31 0d 30 31 32 39  37 20 46 43 37 38 20 37  |G=1.01297 FC78 7|
000144b0  44 46 38 32 35 20 20 3e  20 20 20 20 20 20 20 20  |DF825  >        |
000144c0  20 20 20 54 53 54 20 20  20 45 58 50 46 4c 47 20  |   TST   EXPFLG |
000144d0  20 20 20 20 20 20 20 20  3b 57 41 53 20 49 54 20  |        ;WAS IT |
000144e0  45 58 50 45 43 54 45 44  3f 0d 30 31 32 39 38 20  |EXPECTED?.01298 |
000144f0  46 43 37 42 20 32 37 31  37 20 20 20 20 20 20 20  |FC7B 2717       |
00014500  20 20 20 20 20 20 20 20  20 42 45 51 20 20 20 55  |         BEQ   U|
00014510  4e 49 52 20 20 20 20 20  20 20 20 20 20 20 3b 4e  |NIR           ;N|
00014520  4f 20 49 54 53 20 55 4e  45 58 50 45 43 54 45 44  |O ITS UNEXPECTED|
00014530  0d 30 31 32 39 39 20 46  43 37 44 20 42 31 46 38  |.01299 FC7D B1F8|
00014540  32 43 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |2C  >           |
00014550  43 4d 50 20 41 20 45 58  50 49 4e 54 20 20 20 20  |CMP A EXPINT    |
00014560  20 20 20 20 20 3b 57 41  53 20 49 54 20 54 48 45  |     ;WAS IT THE|
00014570  20 50 52 4f 50 45 52 20  49 4e 54 45 52 55 50 54  | PROPER INTERUPT|
00014580  3f 0d 30 31 33 30 30 20  46 43 38 30 20 32 36 31  |?.01300 FC80 261|
00014590  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |2               |
000145a0  20 42 4e 45 20 20 20 55  4e 49 52 20 20 20 20 20  | BNE   UNIR     |
000145b0  20 20 20 20 20 20 3b 4e  4f 20 49 54 53 20 49 4d  |      ;NO ITS IM|
000145c0  50 52 4f 50 45 52 20 48  45 45 21 20 48 45 45 21  |PROPER HEE! HEE!|
000145d0  0d 30 31 33 30 31 20 46  43 38 32 20 37 44 46 38  |.01301 FC82 7DF8|
000145e0  32 45 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |2E  >           |
000145f0  54 53 54 20 20 20 52 49  46 4c 47 20 20 20 20 20  |TST   RIFLG     |
00014600  20 20 20 20 20 3b 57 41  53 20 49 54 20 41 20 52  |     ;WAS IT A R|
00014610  45 41 44 20 49 4e 54 45  52 55 50 54 3f 0d 30 31  |EAD INTERUPT?.01|
00014620  33 30 32 20 46 43 38 35  20 32 37 30 36 20 20 20  |302 FC85 2706   |
00014630  20 20 20 20 20 20 20 20  20 20 20 20 20 42 45 51  |             BEQ|
00014640  20 20 20 57 49 52 20 20  20 20 20 20 20 20 20 20  |   WIR          |
00014650  20 20 3b 4e 4f 20 42 59  20 47 4f 44 20 49 54 53  |  ;NO BY GOD ITS|
00014660  20 41 20 57 52 49 54 45  20 49 4e 54 45 52 55 50  | A WRITE INTERUP|
00014670  54 0d 30 31 33 30 33 20  46 43 38 37 20 46 45 46  |T.01303 FC87 FEF|
00014680  38 32 36 20 20 3e 20 20  20 20 20 20 20 20 20 20  |826  >          |
00014690  20 4c 44 58 20 20 20 52  44 44 41 50 54 20 20 20  | LDX   RDDAPT   |
000146a0  20 20 20 20 20 20 3b 43  4c 45 41 52 20 54 48 45  |      ;CLEAR THE|
000146b0  4e 41 53 54 59 20 4f 4c  44 0d 30 31 33 30 34 20  |NASTY OLD.01304 |
000146c0  46 43 38 41 20 41 36 30  30 20 20 20 20 20 20 20  |FC8A A600       |
000146d0  20 20 20 20 20 20 20 20  20 4c 44 41 20 41 20 30  |         LDA A 0|
000146e0  2c 58 20 20 20 20 20 20  20 20 20 20 20 20 3b 52  |,X            ;R|
000146f0  45 41 44 20 49 4e 54 45  52 55 50 54 0d 30 31 33  |EAD INTERUPT.013|
00014700  30 35 20 46 43 38 43 20  33 42 20 20 20 20 20 20  |05 FC8C 3B      |
00014710  20 20 20 52 54 52 4e 20  20 20 20 20 52 54 49 20  |   RTRN     RTI |
00014720  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00014730  20 3b 52 45 54 55 52 4e  20 46 52 4f 4d 20 49 4e  | ;RETURN FROM IN|
00014740  54 45 52 55 50 54 0d 30  31 33 30 36 20 46 43 38  |TERUPT.01306 FC8|
00014750  44 20 46 45 46 38 32 33  20 20 3e 20 20 57 49 52  |D FEF823  >  WIR|
00014760  20 20 20 20 20 20 4c 44  58 20 20 20 57 54 44 41  |      LDX   WTDA|
00014770  50 54 20 20 20 20 20 20  20 20 20 3b 43 4c 45 41  |PT         ;CLEA|
00014780  52 20 54 48 45 20 4e 41  53 54 59 20 4f 4c 44 0d  |R THE NASTY OLD.|
00014790  30 31 33 30 37 20 46 43  39 30 20 41 37 30 30 20  |01307 FC90 A700 |
000147a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 53  |               S|
000147b0  54 41 20 41 20 30 2c 58  20 20 20 20 20 20 20 20  |TA A 0,X        |
000147c0  20 20 20 20 3b 57 52 49  54 45 20 49 4e 54 45 52  |    ;WRITE INTER|
000147d0  55 50 54 0d 30 31 33 30  38 20 46 43 39 32 20 32  |UPT.01308 FC92 2|
000147e0  30 46 38 20 20 20 20 20  20 20 20 20 20 20 20 20  |0F8             |
000147f0  20 20 20 42 52 41 20 20  20 52 54 52 4e 20 20 20  |   BRA   RTRN   |
00014800  20 20 20 20 20 20 20 20  3b 4c 45 41 56 45 20 54  |        ;LEAVE T|
00014810  55 52 4b 45 59 21 0d 30  31 33 30 39 20 46 43 39  |URKEY!.01309 FC9|
00014820  34 20 37 44 46 38 30 31  20 20 3e 20 20 55 4e 49  |4 7DF801  >  UNI|
00014830  52 20 20 20 20 20 54 53  54 20 20 20 53 49 47 46  |R     TST   SIGF|
00014840  4c 47 20 20 20 20 20 20  20 20 20 3b 57 45 20 41  |LG         ;WE A|
00014850  4c 4c 20 4b 4e 4f 57 20  57 48 41 54 20 54 48 49  |LL KNOW WHAT THI|
00014860  53 20 44 4f 45 53 0d 30  31 33 31 30 20 46 43 39  |S DOES.01310 FC9|
00014870  37 20 32 36 46 33 20 20  20 20 20 20 20 20 20 20  |7 26F3          |
00014880  20 20 20 20 20 20 42 4e  45 20 20 20 52 54 52 4e  |      BNE   RTRN|
00014890  0d 30 31 33 31 31 20 46  43 39 39 20 43 45 46 44  |.01311 FC99 CEFD|
000148a0  43 32 20 20 3e 20 20 20  20 20 20 20 20 20 20 20  |C2  >           |
000148b0  4c 44 58 20 20 20 23 55  49 4d 53 47 0d 30 31 33  |LDX   #UIMSG.013|
000148c0  31 32 20 46 43 39 43 20  42 44 46 44 45 30 20 20  |12 FC9C BDFDE0  |
000148d0  3e 20 20 20 20 20 20 20  20 20 20 20 4a 53 52 20  |>           JSR |
000148e0  20 20 45 52 52 4f 55 54  20 20 20 20 20 20 20 20  |  ERROUT        |
000148f0  20 3b 55 4e 45 58 50 45  43 54 45 44 20 49 4e 54  | ;UNEXPECTED INT|
00014900  45 52 55 50 54 20 4d 45  53 53 41 47 45 0d 30 31  |ERUPT MESSAGE.01|
00014910  33 31 33 20 46 43 39 46  20 32 30 45 42 20 20 20  |313 FC9F 20EB   |
00014920  20 20 20 20 20 20 20 20  20 20 20 20 20 42 52 41  |             BRA|
00014930  20 20 20 52 54 52 4e 20  20 20 20 20 20 20 20 20  |   RTRN         |
00014940  20 20 3b 53 50 4c 49 54  21 0d 0c 54 65 6b 74 72  |  ;SPLIT!..Tektr|
00014950  6f 6e 69 78 20 20 20 20  20 20 4d 36 38 30 30 20  |onix      M6800 |
00014960  41 53 4d 20 56 33 2e 33  20 20 55 53 45 20 43 4f  |ASM V3.3  USE CO|
00014970  4d 4d 2d 52 41 4d 2d 30  35 20 44 49 41 47 20 50  |MM-RAM-05 DIAG P|
00014980  41 52 54 20 b3 20 20 20  20 50 61 67 65 20 20 20  |ART .    Page   |
00014990  20 34 31 0d 43 4f 4d 2d  52 41 4d 20 54 45 53 54  | 41.COM-RAM TEST|
000149a0  20 23 20 33 20 20 39 32  30 2d 30 30 30 39 39 2d  | # 3  920-00099-|
000149b0  30 32 2d c2 0d 0d 30 31  33 31 35 20 20 20 20 20  |02-...01315     |
000149c0  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 31  |            ;.01|
000149d0  33 31 36 20 20 20 20 20  20 20 20 20 20 20 20 20  |316             |
000149e0  20 20 20 20 41 43 53 54  45 52 20 20 20 4d 53 47  |    ACSTER   MSG|
000149f0  20 5b 53 54 41 54 20 50  4f 52 54 20 5d 2c 31 2c  | [STAT PORT ],1,|
00014a00  50 4f 52 54 4e 2c 3d 2c  32 2c 53 54 41 54 52 44  |PORTN,=,2,STATRD|
00014a10  2c 5b 20 53 42 3d 5d 2c  32 2c 45 58 50 53 54 41  |,[ SB=],2,EXPSTA|
00014a20  2c 4c 49 4e 4b 54 4f 2c  42 41 55 44 4d 53 47 0d  |,LINKTO,BAUDMSG.|
00014a30  30 31 33 31 37 20 20 20  20 20 20 20 20 20 20 20  |01317           |
00014a40  20 20 20 20 20 20 42 41  55 44 4d 53 47 20 20 4d  |      BAUDMSG  M|
00014a50  53 47 20 20 20 42 41 55  44 3d 2c 34 2c 42 41 55  |SG   BAUD=,4,BAU|
00014a60  44 2c 5b 20 43 54 52 4c  52 45 47 3d 5d 2c 32 2c  |D,[ CTRLREG=],2,|
00014a70  43 4e 52 45 47 0d 30 31  33 31 38 20 20 20 20 20  |CNREG.01318     |
00014a80  20 20 20 20 20 20 20 20  20 20 20 20 41 43 44 54  |            ACDT|
00014a90  45 52 20 20 20 4d 53 47  20 5b 44 41 54 41 20 50  |ER   MSG [DATA P|
00014aa0  4f 52 54 20 5d 2c 31 2c  50 4f 52 54 4e 2c 3d 2c  |ORT ],1,PORTN,=,|
00014ab0  32 2c 44 54 41 52 44 2c  5b 20 53 42 3d 5d 2c 32  |2,DTARD,[ SB=],2|
00014ac0  2c 45 58 50 44 54 41 2c  4c 49 4e 4b 54 4f 2c 42  |,EXPDTA,LINKTO,B|
00014ad0  41 55 44 4d 53 47 0d 30  31 33 31 39 20 20 20 20  |AUDMSG.01319    |
00014ae0  20 20 20 20 20 20 20 20  20 20 20 20 20 43 4e 52  |             CNR|
00014af0  47 4d 53 47 20 20 4d 53  47 20 20 20 43 4f 4e 54  |GMSG  MSG   CONT|
00014b00  52 4f 4c 20 52 45 47 49  53 54 45 52 20 54 53 54  |ROL REGISTER TST|
00014b10  0d 30 31 33 32 30 20 20  20 20 20 20 20 20 20 20  |.01320          |
00014b20  20 20 20 20 20 20 20 49  4e 54 4d 53 47 20 20 20  |       INTMSG   |
00014b30  4d 53 47 20 20 20 49 4e  54 45 52 55 50 54 20 54  |MSG   INTERUPT T|
00014b40  45 53 54 0d 30 31 33 32  31 20 20 20 20 20 20 20  |EST.01321       |
00014b50  20 20 20 20 20 20 20 20  20 20 44 43 44 4d 53 47  |          DCDMSG|
00014b60  20 20 20 4d 53 47 20 20  20 50 55 53 48 20 44 43  |   MSG   PUSH DC|
00014b70  44 20 53 57 20 54 48 45  4e 20 52 55 4e 0d 30 31  |D SW THEN RUN.01|
00014b80  33 32 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |322             |
00014b90  20 20 20 20 53 57 31 4d  53 47 20 20 20 4d 53 47  |    SW1MSG   MSG|
00014ba0  20 20 20 45 56 45 4e 20  53 57 49 54 43 48 45 53  |   EVEN SWITCHES|
00014bb0  20 4f 4e 2d 52 55 4e 0d  30 31 33 32 33 20 20 20  | ON-RUN.01323   |
00014bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 53 57  |              SW|
00014bd0  32 4d 53 47 20 20 20 4d  53 47 20 20 20 4f 44 44  |2MSG   MSG   ODD|
00014be0  20 53 57 49 54 43 48 45  53 20 4f 4e 2d 52 55 4e  | SWITCHES ON-RUN|
00014bf0  0d 30 31 33 32 34 20 20  20 20 20 20 20 20 20 20  |.01324          |
00014c00  20 20 20 20 20 20 20 53  57 45 52 20 20 20 20 20  |       SWER     |
00014c10  4d 53 47 20 20 20 5b 53  57 49 54 43 48 20 5d 2c  |MSG   [SWITCH ],|
00014c20  31 2c 53 57 4e 55 4d 2c  3d 2c 32 2c 53 57 44 54  |1,SWNUM,=,2,SWDT|
00014c30  41 2c 5b 20 53 42 3d 5d  2c 32 2c 45 58 50 44 54  |A,[ SB=],2,EXPDT|
00014c40  41 0d 30 31 33 32 35 20  20 20 20 20 20 20 20 20  |A.01325         |
00014c50  20 20 20 20 20 20 20 20  4d 49 4d 53 47 20 20 20  |        MIMSG   |
00014c60  20 4d 53 47 20 20 20 5b  4d 49 53 53 49 4e 47 20  | MSG   [MISSING |
00014c70  49 4e 54 45 52 55 50 54  20 5d 2c 32 2c 45 58 50  |INTERUPT ],2,EXP|
00014c80  49 4e 54 0d 30 31 33 32  36 20 20 20 20 20 20 20  |INT.01326       |
00014c90  20 20 20 20 20 20 20 20  20 20 55 49 4d 53 47 20  |          UIMSG |
00014ca0  20 20 20 4d 53 47 20 20  20 5b 55 4e 45 58 50 20  |   MSG   [UNEXP |
00014cb0  49 4e 54 3d 5d 2c 32 2c  49 4e 54 49 44 2c 5b 20  |INT=],2,INTID,[ |
00014cc0  53 42 3d 5d 2c 32 2c 45  58 50 49 4e 54 0d 0c 54  |SB=],2,EXPINT..T|
00014cd0  65 6b 74 72 6f 6e 69 78  20 20 20 20 20 20 4d 36  |ektronix      M6|
00014ce0  38 30 30 20 41 53 4d 20  56 33 2e 33 20 20 55 53  |800 ASM V3.3  US|
00014cf0  45 20 43 4f 4d 4d 2d 52  41 4d 2d 30 35 20 44 49  |E COMM-RAM-05 DI|
00014d00  41 47 20 50 41 52 54 20  b3 20 20 20 20 50 61 67  |AG PART .    Pag|
00014d10  65 20 20 20 20 34 32 0d  55 53 41 20 54 45 53 54  |e    42.USA TEST|
00014d20  20 53 55 42 52 4f 55 54  49 4e 45 d3 0d 0d 30 31  | SUBROUTINE...01|
00014d30  33 32 39 20 20 20 20 20  20 20 20 20 20 20 20 20  |329             |
00014d40  20 20 20 20 3b 0d 30 31  33 33 30 20 20 20 20 20  |    ;.01330     |
00014d50  20 20 20 20 20 20 20 20  20 20 20 20 3b 2a 2a 2a  |            ;***|
00014d60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00014d90  2a 2a 0d 30 31 33 33 31  20 20 20 20 20 20 20 20  |**.01331        |
00014da0  20 20 20 20 20 20 20 20  20 3b 0d 30 31 33 33 32  |         ;.01332|
00014db0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00014dc0  20 3b 20 20 20 47 45 4e  45 52 41 4c 20 53 55 42  | ;   GENERAL SUB|
00014dd0  52 4f 55 54 49 4e 45 53  20 46 4f 52 20 55 53 41  |ROUTINES FOR USA|
00014de0  20 54 45 53 54 0d 30 31  33 33 33 20 20 20 20 20  | TEST.01333     |
00014df0  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 31  |            ;.01|
00014e00  33 33 34 20 20 20 20 20  20 20 20 20 20 20 20 20  |334             |
00014e10  20 20 20 20 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |    ;***********|
00014e20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00014e40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 30 31 33 33 35  |**********.01335|
00014e50  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00014e60  20 3b 0d 30 31 33 33 36  20 20 20 20 20 20 20 20  | ;.01336        |
00014e70  20 20 20 20 20 20 20 20  20 3b 20 20 53 55 42 52  |         ;  SUBR|
00014e80  4f 55 54 49 4e 45 20 45  52 52 4f 55 54 20 28 45  |OUTINE ERROUT (E|
00014e90  52 52 4f 52 20 4f 55 54  29 0d 30 31 33 33 37 20  |RROR OUT).01337 |
00014ea0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00014eb0  3b 0d 30 31 33 33 38 20  20 20 20 20 20 20 20 20  |;.01338         |
00014ec0  20 20 20 20 20 20 20 20  3b 20 20 20 20 43 41 4c  |        ;    CAL|
00014ed0  4c 49 4e 47 20 53 45 51  55 45 4e 43 45 0d 30 31  |LING SEQUENCE.01|
00014ee0  33 33 39 20 20 20 20 20  20 20 20 20 20 20 20 20  |339             |
00014ef0  20 20 20 20 3b 20 20 20  20 20 20 20 58 20 3d 20  |    ;       X = |
00014f00  50 4f 49 4e 54 45 52 20  54 4f 20 4d 53 47 20 4c  |POINTER TO MSG L|
00014f10  49 53 54 0d 30 31 33 34  30 20 20 20 20 20 20 20  |IST.01340       |
00014f20  20 20 20 20 20 20 20 20  20 20 3b 20 20 20 20 20  |          ;     |
00014f30  20 20 4a 53 52 20 20 20  20 4d 53 47 4f 55 54 0d  |  JSR    MSGOUT.|
00014f40  30 31 33 34 31 20 20 20  20 20 20 20 20 20 20 20  |01341           |
00014f50  20 20 20 20 20 20 3b 20  20 20 20 52 45 53 55 4c  |      ;    RESUL|
00014f60  54 0d 30 31 33 34 32 20  20 20 20 20 20 20 20 20  |T.01342         |
00014f70  20 20 20 20 20 20 20 20  3b 20 20 20 20 20 20 20  |        ;       |
00014f80  4d 53 47 20 57 49 4c 4c  20 42 45 20 4f 55 54 50  |MSG WILL BE OUTP|
00014f90  55 54 20 54 4f 20 44 49  53 50 4c 41 59 0d 30 31  |UT TO DISPLAY.01|
00014fa0  33 34 33 20 20 20 20 20  20 20 20 20 20 20 20 20  |343             |
00014fb0  20 20 20 20 3b 20 20 20  20 20 20 20 4f 50 45 52  |    ;       OPER|
00014fc0  41 54 49 4f 4e 20 57 49  4c 4c 20 42 45 20 53 55  |ATION WILL BE SU|
00014fd0  53 50 45 4e 44 45 44 20  4f 52 0d 30 31 33 34 34  |SPENDED OR.01344|
00014fe0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00014ff0  20 3b 20 20 20 20 20 20  20 41 20 54 45 4e 20 53  | ;       A TEN S|
00015000  45 43 4f 4e 44 20 44 45  4c 41 59 20 57 49 4c 4c  |ECOND DELAY WILL|
00015010  20 42 45 20 47 45 4e 45  52 41 54 45 44 0d 30 31  | BE GENERATED.01|
00015020  33 34 35 20 20 20 20 20  20 20 20 20 20 20 20 20  |345             |
00015030  20 20 20 20 3b 20 20 20  20 20 20 20 42 45 46 4f  |    ;       BEFO|
00015040  52 45 20 52 45 54 55 52  4e 20 44 45 50 45 4e 44  |RE RETURN DEPEND|
00015050  49 4e 47 20 4f 4e 20 54  48 45 20 53 54 41 54 45  |ING ON THE STATE|
00015060  20 4f 46 20 54 48 45 0d  30 31 33 34 36 20 20 20  | OF THE.01346   |
00015070  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 20  |              ; |
00015080  20 20 20 20 20 20 53 54  4f 50 20 4f 4e 20 45 52  |      STOP ON ER|
00015090  52 4f 52 20 42 49 54 20  49 4e 20 54 4f 50 54 4e  |ROR BIT IN TOPTN|
000150a0  0d 30 31 33 34 37 20 20  20 20 20 20 20 20 20 20  |.01347          |
000150b0  20 20 20 20 20 20 20 3b  0d 30 31 33 34 38 20 20  |       ;.01348  |
000150c0  20 20 20 20 46 44 45 30  20 20 20 20 3e 20 20 45  |    FDE0    >  E|
000150d0  52 52 4f 55 54 20 20 45  51 55 20 20 20 20 24 0d  |RROUT  EQU    $.|
000150e0  30 31 33 34 39 20 46 44  45 30 20 33 36 20 20 20  |01349 FDE0 36   |
000150f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 50 53  |              PS|
00015100  48 20 20 20 20 41 0d 30  31 33 35 30 20 46 44 45  |H    A.01350 FDE|
00015110  31 20 37 43 46 38 30 33  20 20 3e 20 20 20 20 20  |1 7CF803  >     |
00015120  20 20 20 20 20 49 4e 43  20 20 20 20 45 52 52 46  |     INC    ERRF|
00015130  4c 47 20 20 20 20 20 20  20 20 20 20 3b 53 45 54  |LG          ;SET|
00015140  20 45 52 52 4f 52 20 46  4c 41 47 0d 30 31 33 35  | ERROR FLAG.0135|
00015150  31 20 46 44 45 34 20 42  36 46 38 30 30 20 20 3e  |1 FDE4 B6F800  >|
00015160  20 20 20 20 20 20 20 20  20 20 4c 44 41 20 41 20  |          LDA A |
00015170  20 51 54 4f 50 20 20 20  20 20 20 20 20 20 20 20  | QTOP           |
00015180  20 3b 47 45 54 20 4f 50  54 49 4f 4e 20 42 59 54  | ;GET OPTION BYT|
00015190  45 0d 30 31 33 35 32 20  46 44 45 37 20 38 35 34  |E.01352 FDE7 854|
000151a0  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
000151b0  42 49 54 20 41 20 20 23  48 4c 54 4f 50 54 20 20  |BIT A  #HLTOPT  |
000151c0  20 20 20 20 20 20 20 3b  48 41 4c 54 20 53 45 54  |       ;HALT SET|
000151d0  20 3f 0d 30 31 33 35 33  20 46 44 45 39 20 32 37  | ?.01353 FDE9 27|
000151e0  30 35 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |05              |
000151f0  20 42 45 51 20 20 20 20  4d 53 47 30 31 20 20 20  | BEQ    MSG01   |
00015200  20 20 20 20 20 20 20 20  3b 4e 4f 0d 30 31 33 35  |        ;NO.0135|
00015210  34 20 46 44 45 42 20 38  36 30 32 20 20 20 20 20  |4 FDEB 8602     |
00015220  20 20 20 20 20 20 20 20  20 20 4c 44 41 20 41 20  |          LDA A |
00015230  20 23 4d 45 53 53 47 0d  30 31 33 35 35 20 46 44  | #MESSG.01355 FD|
00015240  45 44 20 32 30 30 38 20  20 20 20 20 20 20 20 20  |ED 2008         |
00015250  20 20 20 20 20 20 42 52  41 20 20 20 20 4d 53 47  |      BRA    MSG|
00015260  30 32 0d 30 31 33 35 36  20 20 20 20 20 20 20 20  |02.01356        |
00015270  20 20 20 20 20 20 20 20  20 3b 0d 30 31 33 35 37  |         ;.01357|
00015280  20 20 20 20 20 20 46 44  45 46 20 20 20 20 3e 20  |      FDEF    > |
00015290  20 4d 53 47 4f 55 54 20  20 45 51 55 20 20 20 20  | MSGOUT  EQU    |
000152a0  24 0d 30 31 33 35 38 20  20 20 20 20 20 20 20 20  |$.01358         |
000152b0  20 20 20 20 20 20 20 20  3b 20 20 54 48 49 53 20  |        ;  THIS |
000152c0  45 4e 54 52 59 20 49 47  4e 4f 52 45 53 20 54 48  |ENTRY IGNORES TH|
000152d0  45 20 53 54 41 54 45 20  4f 46 20 54 48 45 20 53  |E STATE OF THE S|
000152e0  54 4f 50 20 4f 4e 20 45  52 52 4f 52 20 42 49 54  |TOP ON ERROR BIT|
000152f0  0d 30 31 33 35 39 20 20  20 20 20 20 20 20 20 20  |.01359          |
00015300  20 20 20 20 20 20 20 3b  20 20 49 54 20 41 4c 57  |       ;  IT ALW|
00015310  41 59 53 20 52 45 54 55  52 4e 53 0d 30 31 33 36  |AYS RETURNS.0136|
00015320  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
00015330  20 20 3b 0d 30 31 33 36  31 20 46 44 45 46 20 33  |  ;.01361 FDEF 3|
00015340  36 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |6               |
00015350  20 20 50 53 48 20 20 20  20 41 20 20 20 20 20 20  |  PSH    A      |
00015360  20 20 20 20 20 20 20 20  20 3b 53 41 56 45 20 41  |         ;SAVE A|
00015370  0d 30 31 33 36 32 20 46  44 46 30 20 38 36 31 39  |.01362 FDF0 8619|
00015380  20 20 20 20 20 20 20 4d  53 47 30 31 20 20 20 4c  |       MSG01   L|
00015390  44 41 20 41 20 20 23 32  35 0d 30 31 33 36 33 20  |DA A  #25.01363 |
000153a0  46 44 46 32 20 42 37 46  38 30 37 20 20 3e 20 20  |FDF2 B7F807  >  |
000153b0  20 20 20 20 20 20 20 20  53 54 41 20 41 20 20 44  |        STA A  D|
000153c0  45 4c 41 59 20 20 20 20  20 20 20 20 20 20 20 3b  |ELAY           ;|
000153d0  53 45 54 20 44 45 4c 41  59 0d 30 31 33 36 34 20  |SET DELAY.01364 |
000153e0  46 44 46 35 20 38 36 31  41 20 20 20 20 20 20 20  |FDF5 861A       |
000153f0  20 20 20 20 20 20 20 20  4c 44 41 20 41 20 20 23  |        LDA A  #|
00015400  49 52 45 54 2b 4d 45 53  53 47 2b 57 41 49 54 20  |IRET+MESSG+WAIT |
00015410  20 20 20 20 3b 4e 4f 2c  20 53 45 54 20 49 4d 45  |    ;NO, SET IME|
00015420  44 49 41 54 45 20 52 45  54 55 52 4e 0d 30 31 33  |DIATE RETURN.013|
00015430  36 35 20 46 44 46 37 20  38 44 30 32 20 20 20 20  |65 FDF7 8D02    |
00015440  20 20 20 4d 53 47 30 32  20 20 20 42 53 52 20 20  |   MSG02   BSR  |
00015450  20 20 50 53 56 43 20 20  20 20 20 20 20 20 20 20  |  PSVC          |
00015460  20 20 3b 44 49 53 50 4c  41 59 20 4d 53 47 0d 30  |  ;DISPLAY MSG.0|
00015470  31 33 36 36 20 46 44 46  39 20 33 32 20 20 20 20  |1366 FDF9 32    |
00015480  20 20 20 20 20 20 20 20  20 20 20 20 20 50 55 4c  |             PUL|
00015490  20 20 20 20 41 20 20 20  20 20 20 20 20 20 20 20  |    A           |
000154a0  20 20 20 20 3b 52 45 53  54 4f 52 45 20 41 43 43  |    ;RESTORE ACC|
000154b0  55 4d 55 4c 41 54 4f 52  53 0d 30 31 33 36 37 20  |UMULATORS.01367 |
000154c0  46 44 46 41 20 33 39 20  20 20 20 20 20 20 20 20  |FDFA 39         |
000154d0  20 20 20 20 20 20 20 20  52 54 53 0d 30 31 33 36  |        RTS.0136|
000154e0  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
000154f0  20 20 3b 0d 30 31 33 36  39 20 20 20 20 20 20 20  |  ;.01369       |
00015500  20 20 20 20 20 20 20 20  20 20 3b 20 20 53 55 42  |          ;  SUB|
00015510  52 4f 55 54 49 4e 45 20  50 53 56 43 28 50 45 52  |ROUTINE PSVC(PER|
00015520  46 4f 52 4d 20 53 55 50  45 52 56 49 53 4f 52 20  |FORM SUPERVISOR |
00015530  43 41 4c 4c 29 0d 30 31  33 37 30 20 20 20 20 20  |CALL).01370     |
00015540  20 20 20 20 20 20 20 20  20 20 20 20 3b 20 20 20  |            ;   |
00015550  43 41 4c 4c 49 4e 47 20  53 45 51 55 45 4e 43 45  |CALLING SEQUENCE|
00015560  0d 30 31 33 37 31 20 20  20 20 20 20 20 20 20 20  |.01371          |
00015570  20 20 20 20 20 20 20 3b  20 20 20 20 20 20 20 41  |       ;       A|
00015580  20 3d 20 53 56 43 20 52  45 51 55 45 53 54 20 43  | = SVC REQUEST C|
00015590  4f 44 45 0d 30 31 33 37  32 20 20 20 20 20 20 20  |ODE.01372       |
000155a0  20 20 20 20 20 20 20 20  20 20 3b 20 20 20 20 20  |          ;     |
000155b0  20 20 58 20 3d 20 50 4f  49 4e 54 45 52 20 49 46  |  X = POINTER IF|
000155c0  20 41 50 50 4c 49 43 41  42 4c 45 0d 30 31 33 37  | APPLICABLE.0137|
000155d0  33 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |3               |
000155e0  20 20 3b 20 20 20 20 20  20 20 4a 53 52 20 20 20  |  ;       JSR   |
000155f0  20 50 53 56 43 0d 30 31  33 37 34 20 20 20 20 20  | PSVC.01374     |
00015600  20 20 20 20 20 20 20 20  20 20 20 20 3b 0d 30 31  |            ;.01|
00015610  33 37 35 20 20 20 20 20  20 46 44 46 42 20 20 20  |375      FDFB   |
00015620  20 3e 20 20 50 53 56 43  20 20 20 20 45 51 55 20  | >  PSVC    EQU |
00015630  20 20 20 24 0d 30 31 33  37 36 20 46 44 46 42 20  |   $.01376 FDFB |
00015640  46 46 46 38 30 35 20 20  3e 20 20 20 20 20 20 20  |FFF805  >       |
00015650  20 20 20 53 54 58 20 20  20 20 53 56 43 50 0d 30  |   STX    SVCP.0|
00015660  31 33 37 37 20 46 44 46  45 20 42 37 46 38 30 34  |1377 FDFE B7F804|
00015670  20 20 3e 20 20 20 20 20  20 20 20 20 20 53 54 41  |  >          STA|
00015680  20 41 20 20 53 56 43 0d  30 31 33 37 38 20 46 45  | A  SVC.01378 FE|
00015690  30 31 20 30 31 20 20 20  20 20 20 20 20 20 20 20  |01 01           |
000156a0  20 20 20 20 20 20 4e 4f  50 0d 30 31 33 37 39 20  |      NOP.01379 |
000156b0  46 45 30 32 20 33 39 20  20 20 20 20 20 20 20 20  |FE02 39         |
000156c0  20 20 20 20 20 20 20 20  52 54 53 0d 30 31 33 38  |        RTS.0138|
000156d0  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |0               |
000156e0  20 20 3b 0d 0c 54 65 6b  74 72 6f 6e 69 78 20 20  |  ;..Tektronix  |
000156f0  20 20 20 20 4d 36 38 30  30 20 41 53 4d 20 56 33  |    M6800 ASM V3|
00015700  2e 33 20 20 55 53 45 20  43 4f 4d 4d 2d 52 41 4d  |.3  USE COMM-RAM|
00015710  2d 30 35 20 44 49 41 47  20 50 41 52 54 20 b3 20  |-05 DIAG PART . |
00015720  20 20 20 50 61 67 65 20  20 20 20 34 33 0d 55 53  |   Page    43.US|
00015730  41 20 54 45 53 54 20 53  55 42 52 4f 55 54 49 4e  |A TEST SUBROUTIN|
00015740  45 d3 0d 0d 30 31 33 38  31 20 20 20 20 20 20 20  |E...01381       |
00015750  20 20 20 20 20 20 20 20  20 20 3b 20 20 53 55 42  |          ;  SUB|
00015760  52 4f 55 54 49 4e 45 20  49 4e 49 54 0d 30 31 33  |ROUTINE INIT.013|
00015770  38 32 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |82              |
00015780  20 20 20 3b 20 20 20 20  20 20 20 49 4e 49 54 49  |   ;       INITI|
00015790  41 4c 49 5a 45 20 53 59  53 54 45 4d 20 54 4f 20  |ALIZE SYSTEM TO |
000157a0  4b 4e 4f 57 4e 20 53 54  41 54 45 0d 30 31 33 38  |KNOWN STATE.0138|
000157b0  33 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |3               |
000157c0  20 20 3b 20 20 20 20 20  20 20 41 4e 44 20 41 53  |  ;       AND AS|
000157d0  4b 20 46 4f 52 20 4f 50  54 49 4f 4e 53 20 46 49  |K FOR OPTIONS FI|
000157e0  52 53 54 20 54 49 4d 45  0d 30 31 33 38 34 20 20  |RST TIME.01384  |
000157f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00015800  0d 30 31 33 38 35 20 20  20 20 20 20 46 45 30 33  |.01385      FE03|
00015810  20 20 20 20 3e 20 20 49  4e 49 54 20 20 20 20 45  |    >  INIT    E|
00015820  51 55 20 20 20 20 24 0d  30 31 33 38 36 20 46 45  |QU    $.01386 FE|
00015830  30 33 20 46 46 46 38 30  42 20 20 3e 20 20 20 20  |03 FFF80B  >    |
00015840  20 20 20 20 20 20 53 54  58 20 20 20 20 54 45 4d  |      STX    TEM|
00015850  50 32 20 20 20 20 20 20  20 20 20 20 20 3b 53 41  |P2           ;SA|
00015860  56 45 20 53 49 47 4e 20  4f 4e 20 4d 53 47 20 41  |VE SIGN ON MSG A|
00015870  44 44 52 0d 30 31 33 38  37 20 46 45 30 36 20 37  |DDR.01387 FE06 7|
00015880  46 32 30 30 35 20 20 20  20 20 20 20 20 20 20 20  |F2005           |
00015890  20 20 43 4c 52 20 20 20  20 50 54 52 52 53 20 20  |  CLR    PTRRS  |
000158a0  20 20 20 20 20 20 20 20  20 3b 44 49 53 41 42 4c  |         ;DISABL|
000158b0  45 20 52 4f 4d 20 41 4e  44 20 52 41 4d 0d 30 31  |E ROM AND RAM.01|
000158c0  33 38 38 20 46 45 30 39  20 37 46 32 30 30 34 20  |388 FE09 7F2004 |
000158d0  20 20 20 20 20 20 20 20  20 20 20 20 43 4c 52 20  |            CLR |
000158e0  20 20 20 50 54 42 53 20  20 20 20 20 20 20 20 20  |   PTBS         |
000158f0  20 20 20 3b 53 45 4c 45  43 54 20 42 41 4e 4b 20  |   ;SELECT BANK |
00015900  30 0d 30 31 33 38 39 20  46 45 30 43 20 37 46 32  |0.01389 FE0C 7F2|
00015910  30 30 36 20 20 20 20 20  20 20 20 20 20 20 20 20  |006             |
00015920  43 4c 52 20 20 20 20 50  54 54 49 4d 20 20 20 20  |CLR    PTTIM    |
00015930  20 20 20 20 20 20 20 3b  44 49 53 41 42 4c 45 20  |       ;DISABLE |
00015940  54 48 45 20 49 4e 54 45  52 56 41 4c 20 54 49 4d  |THE INTERVAL TIM|
00015950  45 52 0d 30 31 33 39 30  20 46 45 30 46 20 37 44  |ER.01390 FE0F 7D|
00015960  46 38 30 32 20 20 3e 20  20 20 20 20 20 20 20 20  |F802  >         |
00015970  20 54 53 54 20 20 20 20  49 4e 49 54 46 4c 20 20  | TST    INITFL  |
00015980  20 20 20 20 20 20 20 20  3b 48 41 56 45 20 57 45  |        ;HAVE WE|
00015990  20 42 45 45 4e 20 48 45  52 45 20 42 45 46 4f 52  | BEEN HERE BEFOR|
000159a0  45 0d 30 31 33 39 31 20  46 45 31 32 20 32 36 30  |E.01391 FE12 260|
000159b0  42 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |B               |
000159c0  42 4e 45 20 20 20 20 49  4e 49 54 30 31 20 20 20  |BNE    INIT01   |
000159d0  20 20 20 20 20 20 20 3b  59 45 53 0d 30 31 33 39  |       ;YES.0139|
000159e0  32 20 46 45 31 34 20 38  36 30 32 20 20 20 20 20  |2 FE14 8602     |
000159f0  20 20 20 20 20 20 20 20  20 20 4c 44 41 20 41 20  |          LDA A |
00015a00  20 23 4d 45 53 53 47 20  20 20 20 20 20 20 20 20  | #MESSG         |
00015a10  20 3b 4e 4f 0d 30 31 33  39 33 20 46 45 31 36 20  | ;NO.01393 FE16 |
00015a20  43 45 46 45 33 32 20 20  3e 20 20 20 20 20 20 20  |CEFE32  >       |
00015a30  20 20 20 4c 44 58 20 20  20 20 23 54 4f 50 4d 53  |   LDX    #TOPMS|
00015a40  47 0d 30 31 33 39 34 20  46 45 31 39 20 42 44 46  |G.01394 FE19 BDF|
00015a50  44 46 42 20 20 3e 20 20  20 20 20 20 20 20 20 20  |DFB  >          |
00015a60  4a 53 52 20 20 20 20 50  53 56 43 20 20 20 20 20  |JSR    PSVC     |
00015a70  20 20 20 20 20 20 20 3b  41 53 4b 20 4f 50 45 52  |       ;ASK OPER|
00015a80  41 54 4f 52 20 46 4f 52  20 4f 50 54 49 4f 4e 53  |ATOR FOR OPTIONS|
00015a90  0d 30 31 33 39 35 20 46  45 31 43 20 37 43 46 38  |.01395 FE1C 7CF8|
00015aa0  30 32 20 20 3e 20 20 20  20 20 20 20 20 20 20 49  |02  >          I|
00015ab0  4e 43 20 20 20 20 49 4e  49 54 46 4c 20 20 20 20  |NC    INITFL    |
00015ac0  20 20 20 20 20 20 3b 52  45 43 4f 52 44 20 57 45  |      ;RECORD WE|
00015ad0  20 48 41 56 45 20 44 4f  4e 45 20 54 48 49 53 0d  | HAVE DONE THIS.|
00015ae0  30 31 33 39 36 20 46 45  31 46 20 42 36 46 38 30  |01396 FE1F B6F80|
00015af0  38 20 20 3e 20 20 49 4e  49 54 30 31 20 20 4c 44  |8  >  INIT01  LD|
00015b00  41 20 41 20 20 53 54 41  54 55 53 20 20 20 20 20  |A A  STATUS     |
00015b10  20 20 20 20 20 3b 47 45  54 20 53 54 41 54 55 53  |     ;GET STATUS|
00015b20  20 42 59 54 45 0d 30 31  33 39 37 20 46 45 32 32  | BYTE.01397 FE22|
00015b30  20 38 35 46 30 20 20 20  20 20 20 20 20 20 20 20  | 85F0           |
00015b40  20 20 20 20 42 49 54 20  41 20 20 23 30 46 30 48  |    BIT A  #0F0H|
00015b50  20 20 20 20 20 20 20 20  20 20 20 3b 49 53 20 4d  |           ;IS M|
00015b60  45 41 53 55 52 45 4d 45  4e 54 20 42 45 49 4e 47  |EASUREMENT BEING|
00015b70  20 54 41 4b 45 4e 0d 30  31 33 39 38 20 46 45 32  | TAKEN.01398 FE2|
00015b80  34 20 32 37 30 35 20 20  20 20 20 20 20 20 20 20  |4 2705          |
00015b90  20 20 20 20 20 42 45 51  20 20 20 20 49 4e 49 54  |     BEQ    INIT|
00015ba0  30 32 20 20 20 20 20 20  20 20 20 20 3b 4e 4f 0d  |02          ;NO.|
00015bb0  30 31 33 39 39 20 46 45  32 36 20 38 36 38 30 20  |01399 FE26 8680 |
00015bc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4c 44  |              LD|
00015bd0  41 20 41 20 20 23 38 30  48 20 20 20 20 20 20 20  |A A  #80H       |
00015be0  20 20 20 20 20 3b 59 45  53 2c 20 0d 30 31 34 30  |     ;YES, .0140|
00015bf0  30 20 46 45 32 38 20 42  37 46 38 30 31 20 20 3e  |0 FE28 B7F801  >|
00015c00  20 20 20 20 20 20 20 20  20 20 53 54 41 20 41 20  |          STA A |
00015c10  20 53 49 47 46 4c 47 20  20 20 20 20 20 20 20 20  | SIGFLG         |
00015c20  20 3b 53 45 54 20 53 49  47 4e 41 54 55 52 45 20  | ;SET SIGNATURE |
00015c30  46 4c 41 47 0d 30 31 34  30 31 20 20 20 20 20 20  |FLAG.01401      |
00015c40  46 45 32 42 20 20 20 20  3e 20 20 49 4e 49 54 30  |FE2B    >  INIT0|
00015c50  32 20 20 45 51 55 20 20  20 20 24 0d 30 31 34 30  |2  EQU    $.0140|
00015c60  32 20 46 45 32 42 20 46  45 46 38 30 42 20 20 3e  |2 FE2B FEF80B  >|
00015c70  20 20 20 20 20 20 20 20  20 20 4c 44 58 20 20 20  |          LDX   |
00015c80  20 54 45 4d 50 32 0d 30  31 34 30 33 20 46 45 32  | TEMP2.01403 FE2|
00015c90  45 20 42 44 46 44 45 46  20 20 3e 20 20 20 20 20  |E BDFDEF  >     |
00015ca0  20 20 20 20 20 4a 53 52  20 20 20 20 4d 53 47 4f  |     JSR    MSGO|
00015cb0  55 54 20 20 20 20 20 20  20 20 20 20 3b 4f 55 54  |UT          ;OUT|
00015cc0  50 55 54 20 53 49 47 4e  4f 4e 0d 30 31 34 30 34  |PUT SIGNON.01404|
00015cd0  20 46 45 33 31 20 33 39  20 20 20 20 20 20 20 20  | FE31 39        |
00015ce0  20 20 20 20 20 20 20 20  20 52 54 53 20 20 20 20  |         RTS    |
00015cf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00015d00  3b 41 4e 44 20 52 45 54  55 52 4e 0d 30 31 34 30  |;AND RETURN.0140|
00015d10  35 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |5               |
00015d20  20 20 3b 0d 30 31 34 30  36 20 20 20 20 20 20 20  |  ;.01406       |
00015d30  20 20 20 20 20 20 20 20  20 20 54 4f 50 4d 53 47  |          TOPMSG|
00015d40  20 20 4d 53 47 20 20 20  20 4f 50 54 49 4f 4e 53  |  MSG    OPTIONS|
00015d50  3d 2c 32 2c 51 54 4f 50  0d 30 31 34 30 37 20 20  |=,2,QTOP.01407  |
00015d60  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00015d70  0d 30 31 34 30 38 20 20  20 20 20 20 46 45 34 32  |.01408      FE42|
00015d80  20 20 20 20 3e 20 20 53  54 45 4e 44 20 20 20 45  |    >  STEND   E|
00015d90  51 55 20 20 20 20 24 20  20 20 20 20 20 20 20 20  |QU    $         |
00015da0  20 20 20 20 20 20 3b 45  4e 44 20 4f 46 20 53 55  |      ;END OF SU|
00015db0  42 20 54 45 53 54 0d 30  31 34 30 39 20 46 45 34  |B TEST.01409 FE4|
00015dc0  32 20 38 36 30 31 20 20  20 20 20 20 20 20 20 20  |2 8601          |
00015dd0  20 20 20 20 20 4c 44 41  20 41 20 20 23 45 4e 44  |     LDA A  #END|
00015de0  53 0d 30 31 34 31 30 20  46 45 34 34 20 37 45 46  |S.01410 FE44 7EF|
00015df0  44 46 42 20 20 3e 20 20  20 20 20 20 20 20 20 20  |DFB  >          |
00015e00  4a 4d 50 20 20 20 20 50  53 56 43 0d 30 31 34 31  |JMP    PSVC.0141|
00015e10  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
00015e20  20 20 3b 0d 30 31 34 31  32 20 20 20 20 20 20 20  |  ;.01412       |
00015e30  20 20 20 20 20 20 20 20  20 20 3b 0d 30 31 34 31  |          ;.0141|
00015e40  33 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |3               |
00015e50  20 20 3b 53 55 42 52 4f  55 54 49 4e 45 20 54 44  |  ;SUBROUTINE TD|
00015e60  45 4c 41 59 0d 30 31 34  31 34 20 20 20 20 20 20  |ELAY.01414      |
00015e70  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 31 34  |           ;.014|
00015e80  31 35 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |15              |
00015e90  20 20 20 3b 47 45 4e 45  52 41 4c 20 54 49 4d 45  |   ;GENERAL TIME|
00015ea0  20 44 45 4c 41 59 20 52  4f 55 54 49 4e 45 2e 4f  | DELAY ROUTINE.O|
00015eb0  4e 20 45 4e 54 45 52 49  4e 47 20 54 48 45 20 52  |N ENTERING THE R|
00015ec0  4f 55 54 49 4e 45 0d 30  31 34 31 36 20 20 20 20  |OUTINE.01416    |
00015ed0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 52 45  |             ;RE|
00015ee0  47 20 41 20 48 41 53 20  54 48 45 20 4e 55 4d 42  |G A HAS THE NUMB|
00015ef0  45 52 20 4f 46 20 43 4f  55 4e 54 53 20 57 41 4e  |ER OF COUNTS WAN|
00015f00  54 45 44 2e 0d 30 31 34  31 37 20 20 20 20 20 20  |TED..01417      |
00015f10  20 20 20 20 20 20 20 20  20 20 20 3b 0d 30 31 34  |           ;.014|
00015f20  31 38 20 20 20 20 20 20  46 45 34 37 20 20 20 20  |18      FE47    |
00015f30  3e 20 20 54 44 45 4c 41  59 20 45 51 55 20 20 20  |>  TDELAY EQU   |
00015f40  20 20 24 0d 30 31 34 31  39 20 46 45 34 37 20 33  |  $.01419 FE47 3|
00015f50  36 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |6               |
00015f60  20 50 53 48 20 41 20 20  20 20 20 20 20 20 20 20  | PSH A          |
00015f70  20 3b 53 41 56 45 20 52  45 47 20 41 0d 30 31 34  | ;SAVE REG A.014|
00015f80  32 30 20 46 45 34 38 20  37 46 46 38 30 39 20 20  |20 FE48 7FF809  |
00015f90  3e 20 20 54 44 45 4c 30  31 20 43 4c 52 20 20 20  |>  TDEL01 CLR   |
00015fa0  20 20 54 45 4d 50 31 0d  30 31 34 32 31 20 46 45  |  TEMP1.01421 FE|
00015fb0  34 42 20 38 36 31 43 20  20 20 20 20 20 20 20 20  |4B 861C         |
00015fc0  20 20 20 20 20 4c 44 41  20 41 20 20 20 23 31 43  |     LDA A   #1C|
00015fd0  48 20 20 20 20 3b 45 41  43 48 20 43 4f 55 4e 54  |H    ;EACH COUNT|
00015fe0  20 3d 20 31 30 31 20 4d  53 0d 30 31 34 32 32 20  | = 101 MS.01422 |
00015ff0  46 45 34 44 20 42 37 46  38 30 41 20 20 3e 20 20  |FE4D B7F80A  >  |
00016000  20 20 20 20 20 20 20 53  54 41 20 41 20 20 20 54  |       STA A   T|
00016010  45 4d 50 31 2b 31 0d 30  31 34 32 33 20 46 45 35  |EMP1+1.01423 FE5|
00016020  30 20 33 32 20 20 20 20  20 20 20 20 20 20 20 20  |0 32            |
00016030  20 20 20 20 50 55 4c 20  41 0d 30 31 34 32 34 20  |    PUL A.01424 |
00016040  46 45 35 31 20 37 41 46  38 30 39 20 20 3e 20 20  |FE51 7AF809  >  |
00016050  54 44 45 4c 30 32 20 44  45 43 20 20 20 20 20 54  |TDEL02 DEC     T|
00016060  45 4d 50 31 0d 30 31 34  32 35 20 46 45 35 34 20  |EMP1.01425 FE54 |
00016070  30 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |01              |
00016080  20 20 4e 4f 50 0d 30 31  34 32 36 20 46 45 35 35  |  NOP.01426 FE55|
00016090  20 30 31 20 20 20 20 20  20 20 20 20 20 20 20 20  | 01             |
000160a0  20 20 20 4e 4f 50 0d 30  31 34 32 37 20 46 45 35  |   NOP.01427 FE5|
000160b0  36 20 32 36 46 39 20 20  20 20 20 20 20 20 20 20  |6 26F9          |
000160c0  20 20 20 20 42 4e 45 20  20 20 20 20 54 44 45 4c  |    BNE     TDEL|
000160d0  30 32 0d 30 31 34 32 38  20 46 45 35 38 20 37 41  |02.01428 FE58 7A|
000160e0  46 38 30 41 20 20 3e 20  20 20 20 20 20 20 20 20  |F80A  >         |
000160f0  44 45 43 20 20 20 20 20  54 45 4d 50 31 2b 31 0d  |DEC     TEMP1+1.|
00016100  30 31 34 32 39 20 46 45  35 42 20 32 36 46 34 20  |01429 FE5B 26F4 |
00016110  20 20 20 20 20 20 20 20  20 20 20 20 20 42 4e 45  |             BNE|
00016120  20 20 20 20 20 54 44 45  4c 30 32 0d 30 31 34 33  |     TDEL02.0143|
00016130  30 20 46 45 35 44 20 34  41 20 20 20 20 20 20 20  |0 FE5D 4A       |
00016140  20 20 20 20 20 20 20 20  20 44 45 43 20 41 0d 30  |         DEC A.0|
00016150  31 34 33 31 20 46 45 35  45 20 33 36 20 20 20 20  |1431 FE5E 36    |
00016160  20 20 20 20 20 20 20 20  20 20 20 20 50 53 48 20  |            PSH |
00016170  41 0d 30 31 34 33 32 20  46 45 35 46 20 32 36 45  |A.01432 FE5F 26E|
00016180  37 20 20 20 20 20 20 20  20 20 20 20 20 20 20 42  |7              B|
00016190  4e 45 20 20 20 20 20 54  44 45 4c 30 31 0d 0c 54  |NE     TDEL01..T|
000161a0  65 6b 74 72 6f 6e 69 78  20 20 20 20 20 20 4d 36  |ektronix      M6|
000161b0  38 30 30 20 41 53 4d 20  56 33 2e 33 20 20 55 53  |800 ASM V3.3  US|
000161c0  45 20 43 4f 4d 4d 2d 52  41 4d 2d 30 35 20 44 49  |E COMM-RAM-05 DI|
000161d0  41 47 20 50 41 52 54 20  b3 20 20 20 20 50 61 67  |AG PART .    Pag|
000161e0  65 20 20 20 20 34 34 0d  55 53 41 20 54 45 53 54  |e    44.USA TEST|
000161f0  20 53 55 42 52 4f 55 54  49 4e 45 d3 0d 0d 30 31  | SUBROUTINE...01|
00016200  34 33 33 20 46 45 36 31  20 33 32 20 20 20 20 20  |433 FE61 32     |
00016210  20 20 20 20 20 20 20 20  20 20 20 50 55 4c 20 41  |           PUL A|
00016220  0d 30 31 34 33 34 20 46  45 36 32 20 33 39 20 20  |.01434 FE62 39  |
00016230  20 20 20 20 20 20 20 20  20 20 20 20 20 20 52 54  |              RT|
00016240  53 0d 30 31 34 33 35 20  20 20 20 20 20 20 20 20  |S.01435         |
00016250  20 20 20 20 20 20 20 20  3b 0d 30 31 34 33 36 20  |        ;.01436 |
00016260  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00016270  3b 0d 30 31 34 33 37 20  20 20 20 20 20 20 20 20  |;.01437         |
00016280  20 20 20 20 20 20 20 20  3b 0d 30 31 34 33 38 20  |        ;.01438 |
00016290  20 20 20 20 20 46 46 46  38 20 20 20 20 3e 20 20  |     FFF8    >  |
000162a0  20 20 20 20 20 20 20 4f  52 47 20 20 20 20 20 30  |       ORG     0|
000162b0  46 46 46 38 48 0d 30 31  34 33 39 20 46 46 46 38  |FFF8H.01439 FFF8|
000162c0  20 46 43 36 41 20 20 20  20 3e 20 20 20 20 20 20  | FC6A    >      |
000162d0  20 20 20 57 4f 52 44 20  20 20 20 49 4e 56 43 52  |   WORD    INVCR|
000162e0  0d 30 31 34 34 30 20 20  20 20 20 20 20 20 20 20  |.01440          |
000162f0  20 20 20 20 20 20 20 3b  0d 30 31 34 34 31 20 20  |       ;.01441  |
00016300  20 20 20 20 46 46 46 41  20 20 20 20 3e 20 20 54  |    FFFA    >  T|
00016310  53 54 45 4e 44 20 45 51  55 20 20 20 20 20 24 0d  |STEND EQU     $.|
00016320  30 31 34 34 32 20 20 20  20 20 20 20 20 20 20 20  |01442           |
00016330  20 20 20 20 20 20 20 20  20 20 20 20 20 45 4e 44  |             END|
00016340  0d 0c 54 65 6b 74 72 6f  6e 69 78 20 20 20 20 20  |..Tektronix     |
00016350  20 4d 36 38 30 30 20 41  53 4d 20 56 33 2e 33 20  | M6800 ASM V3.3 |
00016360  20 53 79 6d 62 6f 6c 20  54 61 62 6c 65 20 20 20  | Symbol Table   |
00016370  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00016380  50 61 67 65 20 20 20 20  34 35 0d 0d 0d 53 74 72  |Page    45...Str|
00016390  69 6e 67 73 20 61 6e 64  20 4d 61 63 72 6f 73 0d  |ings and Macros.|
000163a0  0d 20 20 20 46 4c 54 d2  20 2d 2d 2d 20 30 30 34  |.   FLT. --- 004|
000163b0  39 20 4d 20 20 20 20 20  20 20 20 20 20 46 55 4e  |9 M          FUN|
000163c0  c3 20 2d 2d 2d 20 30 30  42 39 20 4d 20 20 20 20  |. --- 00B9 M    |
000163d0  20 20 20 20 20 20 49 4e  43 ce 20 2d 2d 2d 20 30  |      INC. --- 0|
000163e0  30 35 30 20 4d 20 20 20  20 20 20 20 20 20 20 4d  |050 M          M|
000163f0  53 c7 20 2d 2d 2d 2d 20  30 34 41 33 20 4d 20 20  |S. ---- 04A3 M  |
00016400  20 20 20 20 20 20 20 20  4d 53 47 42 4c cb 20 2d  |        MSGBL. -|
00016410  20 30 30 34 37 20 4d 20  20 20 20 20 20 20 0d 20  | 0047 M       . |
00016420  20 20 ce 20 2d 2d 2d 2d  2d 2d 20 30 30 30 32 20  |  . ------ 0002 |
00016430  53 20 20 20 20 20 20 20  20 20 20 53 42 54 48 44  |S          SBTHD|
00016440  d2 20 2d 20 30 32 37 35  20 4d 20 20 20 20 20 20  |. - 0275 M      |
00016450  20 20 20 20 53 45 54 ce  20 2d 2d 2d 20 30 30 35  |    SET. --- 005|
00016460  30 20 4d 20 20 20 20 20  20 20 20 20 20 54 53 54  |0 M          TST|
00016470  48 44 d2 20 2d 20 30 31  34 46 20 4d 20 20 20 20  |HD. - 014F M    |
00016480  20 20 20 20 20 20 d9 20  2d 2d 2d 2d 2d 2d 20 30  |      . ------ 0|
00016490  30 30 38 20 53 20 20 20  20 20 20 20 0d 0d 53 63  |008 S       ..Sc|
000164a0  61 6c 61 72 73 0d 0d 20  20 20 41 b1 20 2d 2d 2d  |alars..   A. ---|
000164b0  2d 2d 20 30 30 30 34 20  56 20 20 20 20 20 20 20  |-- 0004 V       |
000164c0  20 20 20 41 b2 20 2d 2d  2d 2d 2d 20 30 30 30 32  |   A. ----- 0002|
000164d0  20 56 20 20 20 20 20 20  20 20 20 20 41 b3 20 2d  | V          A. -|
000164e0  2d 2d 2d 2d 20 30 30 30  33 20 56 20 20 20 20 20  |---- 0003 V     |
000164f0  20 20 20 20 20 41 b4 20  2d 2d 2d 2d 2d 20 30 30  |     A. ----- 00|
00016500  30 34 20 56 20 20 20 20  20 20 20 20 20 20 41 44  |04 V          AD|
00016510  43 44 50 cd 20 2d 20 30  30 30 37 20 20 20 20 20  |CDP. - 0007     |
00016520  20 20 20 20 0d 20 20 20  41 44 43 44 50 d0 20 2d  |    .   ADCDP. -|
00016530  20 30 30 30 38 20 20 20  20 20 20 20 20 20 20 20  | 0008           |
00016540  20 41 44 43 53 50 cd 20  2d 20 30 30 30 35 20 20  | ADCSP. - 0005  |
00016550  20 20 20 20 20 20 20 20  20 20 41 44 43 53 50 d0  |          ADCSP.|
00016560  20 2d 20 30 30 30 36 20  20 20 20 20 20 20 20 20  | - 0006         |
00016570  20 20 20 41 44 44 c3 20  2d 2d 2d 20 30 30 30 34  |   ADD. --- 0004|
00016580  20 20 20 20 20 20 20 20  20 20 20 20 41 4c 31 36  |            AL16|
00016590  30 30 30 b1 20 30 30 31  31 20 20 20 20 20 20 20  |000. 0011       |
000165a0  20 20 0d 20 20 20 41 4c  32 35 30 30 30 b1 20 30  |  .   AL25000. 0|
000165b0  30 30 37 20 20 20 20 20  20 20 20 20 20 20 20 41  |007            A|
000165c0  4c 32 35 30 30 30 b2 20  30 30 30 31 20 20 20 20  |L25000. 0001    |
000165d0  20 20 20 20 20 20 20 20  41 4c 32 35 30 30 30 b3  |        AL25000.|
000165e0  20 30 30 30 34 20 20 20  20 20 20 20 20 20 20 20  | 0004           |
000165f0  20 41 4c 33 34 30 30 30  b1 20 30 30 31 34 20 20  | AL34000. 0014  |
00016600  20 20 20 20 20 20 20 20  20 20 41 4c 33 37 30 30  |          AL3700|
00016610  30 b1 20 30 30 30 38 20  20 20 20 20 20 20 20 20  |0. 0008         |
00016620  0d 20 20 20 41 4c 38 34  30 30 30 b1 20 30 30 31  |.   AL84000. 001|
00016630  34 20 20 20 20 20 20 20  20 20 20 20 20 41 4c 38  |4            AL8|
00016640  36 30 30 30 b1 20 30 30  30 41 20 20 20 20 20 20  |6000. 000A      |
00016650  20 20 20 20 20 20 41 4c  38 36 30 30 30 b2 20 30  |      AL86000. 0|
00016660  30 30 34 20 20 20 20 20  20 20 20 20 20 20 20 41  |004            A|
00016670  4c 39 30 30 30 30 b1 20  30 30 31 33 20 20 20 20  |L90000. 0013    |
00016680  20 20 20 20 20 20 20 20  41 4c 39 32 30 30 30 b1  |        AL92000.|
00016690  20 30 30 30 41 20 20 20  20 20 20 20 20 20 0d 20  | 000A         . |
000166a0  20 20 41 4c 39 32 30 30  30 b2 20 30 30 30 31 20  |  AL92000. 0001 |
000166b0  20 20 20 20 20 20 20 20  20 20 20 41 4c 39 32 30  |           AL920|
000166c0  30 30 b3 20 30 30 30 34  20 20 20 20 20 20 20 20  |00. 0004        |
000166d0  20 20 20 20 41 4c 39 33  30 30 30 b1 20 30 30 31  |    AL93000. 001|
000166e0  34 20 20 20 20 20 20 20  20 20 20 20 20 41 4c 44  |4            ALD|
000166f0  34 30 30 30 b1 20 30 30  31 33 20 20 20 20 20 20  |4000. 0013      |
00016700  20 20 20 20 20 20 41 4c  45 30 30 30 30 b1 20 30  |      ALE0000. 0|
00016710  30 30 41 20 20 20 20 20  20 20 20 20 0d 20 20 20  |00A         .   |
00016720  41 4c 45 30 30 30 30 b2  20 30 30 30 31 20 20 20  |ALE0000. 0001   |
00016730  20 20 20 20 20 20 20 20  20 41 4c 45 30 30 30 30  |         ALE0000|
00016740  b3 20 30 30 30 34 20 20  20 20 20 20 20 20 20 20  |. 0004          |
00016750  20 20 41 4c 45 31 30 30  30 b1 20 30 30 30 35 20  |  ALE1000. 0005 |
00016760  20 20 20 20 20 20 20 20  20 20 20 41 4c 45 31 30  |           ALE10|
00016770  30 30 b2 20 30 30 30 39  20 20 20 20 20 20 20 20  |00. 0009        |
00016780  20 20 20 20 41 4c 45 33  30 30 30 b1 20 30 30 30  |    ALE3000. 000|
00016790  44 20 20 20 20 20 20 20  20 20 0d 20 20 20 41 56  |D         .   AV|
000167a0  45 52 41 47 c5 20 20 30  30 30 30 20 20 20 20 20  |ERAG.  0000     |
000167b0  20 20 20 20 20 20 20 42  31 31 b0 20 2d 2d 2d 20  |       B11. --- |
000167c0  30 30 30 37 20 20 20 20  20 20 20 20 20 20 20 20  |0007            |
000167d0  42 31 32 30 b0 20 2d 2d  20 30 30 30 36 20 20 20  |B120. -- 0006   |
000167e0  20 20 20 20 20 20 20 20  20 42 32 34 30 b0 20 2d  |         B240. -|
000167f0  2d 20 30 30 30 35 20 20  20 20 20 20 20 20 20 20  |- 0005          |
00016800  20 20 42 32 34 30 30 c1  20 2d 20 32 34 30 30 20  |  B2400. - 2400 |
00016810  20 20 20 20 20 20 20 20  0d 20 20 20 42 34 38 30  |        .   B480|
00016820  b0 20 2d 2d 20 30 30 30  34 20 20 20 20 20 20 20  |. -- 0004       |
00016830  20 20 20 20 20 42 37 45  50 31 d3 20 2d 20 30 30  |     B7EP1. - 00|
00016840  30 38 20 20 20 20 20 20  20 20 20 20 20 20 42 37  |08            B7|
00016850  45 50 32 d3 20 2d 20 30  30 30 30 20 20 20 20 20  |EP2. - 0000     |
00016860  20 20 20 20 20 20 20 42  37 4f 50 31 d3 20 2d 20  |       B7OP1. - |
00016870  30 30 30 43 20 20 20 20  20 20 20 20 20 20 20 20  |000C            |
00016880  42 37 4f 50 32 d3 20 2d  20 30 30 30 34 20 20 20  |B7OP2. - 0004   |
00016890  20 20 20 20 20 20 0d 20  20 20 42 38 31 d3 20 2d  |      .   B81. -|
000168a0  2d 2d 20 30 30 31 34 20  20 20 20 20 20 20 20 20  |-- 0014         |
000168b0  20 20 20 42 38 32 d3 20  2d 2d 2d 20 30 30 31 30  |   B82. --- 0010|
000168c0  20 20 20 20 20 20 20 20  20 20 20 20 42 38 45 50  |            B8EP|
000168d0  31 d3 20 2d 20 30 30 31  38 20 20 20 20 20 20 20  |1. - 0018       |
000168e0  20 20 20 20 20 42 38 4f  50 31 d3 20 2d 20 30 30  |     B8OP1. - 00|
000168f0  31 43 20 20 20 20 20 20  20 20 20 20 20 20 42 39  |1C            B9|
00016900  36 30 b0 20 2d 2d 20 30  30 30 33 20 20 20 20 20  |60. -- 0003     |
00016910  20 20 20 20 0d 20 20 20  42 39 36 30 30 c1 20 2d  |    .   B9600. -|
00016920  20 39 36 30 30 20 20 20  20 20 20 20 20 20 20 20  | 9600           |
00016930  20 42 49 4e 41 52 d9 20  2d 20 30 30 30 38 20 20  | BINAR. - 0008  |
00016940  20 20 20 20 20 20 20 20  20 20 43 41 c4 20 2d 2d  |          CA. --|
00016950  2d 2d 20 30 30 30 43 20  20 20 20 20 20 20 20 20  |-- 000C         |
00016960  20 20 20 43 41 44 53 50  cd 20 2d 20 30 30 30 44  |   CADSP. - 000D|
00016970  20 20 20 20 20 20 20 20  20 20 20 20 43 41 44 53  |            CADS|
00016980  50 d0 20 2d 20 30 30 30  45 20 20 20 20 20 20 20  |P. - 000E       |
00016990  20 20 0d 20 20 20 43 4e  d4 20 2d 2d 2d 2d 20 30  |  .   CN. ---- 0|
000169a0  30 30 39 20 20 20 20 20  20 20 20 20 20 20 20 43  |009            C|
000169b0  4e 54 53 50 cd 20 2d 20  30 30 30 41 20 20 20 20  |NTSP. - 000A    |
000169c0  20 20 20 20 20 20 20 20  43 4e 54 53 50 d0 20 2d  |        CNTSP. -|
000169d0  20 30 30 30 42 20 20 20  20 20 20 20 20 20 20 20  | 000B           |
000169e0  20 43 4f 55 4e d4 20 2d  2d 20 30 30 32 30 20 20  | COUN. -- 0020  |
000169f0  20 20 20 20 20 20 20 20  20 20 43 50 4d 44 50 cd  |          CPMDP.|
00016a00  20 2d 20 30 30 30 33 20  20 20 20 20 20 20 20 20  | - 0003         |
00016a10  0d 20 20 20 43 50 4d 44  50 d0 20 2d 20 30 30 30  |.   CPMDP. - 000|
00016a20  32 20 20 20 20 20 20 20  20 20 20 20 20 43 50 50  |2            CPP|
00016a30  44 50 d0 20 2d 20 30 30  30 30 20 20 20 20 20 20  |DP. - 0000      |
00016a40  20 20 20 20 20 20 43 52  41 43 44 c1 20 2d 20 32  |      CRACD. - 2|
00016a50  30 31 42 20 20 20 20 20  20 20 20 20 20 20 20 43  |01B            C|
00016a60  52 41 43 44 41 b2 20 20  32 30 31 45 20 20 20 20  |RACDA.  201E    |
00016a70  20 20 20 20 20 20 20 20  43 52 41 43 53 c3 20 2d  |        CRACS. -|
00016a80  20 32 30 31 43 20 20 20  20 20 20 20 20 20 0d 20  | 201C         . |
00016a90  20 20 43 52 41 43 53 43  b2 20 20 32 30 31 46 20  |  CRACSC.  201F |
00016aa0  20 20 20 20 20 20 20 20  20 20 20 43 52 42 41 55  |           CRBAU|
00016ab0  c4 20 2d 20 32 30 31 41  20 20 20 20 20 20 20 20  |. - 201A        |
00016ac0  20 20 20 20 43 52 42 41  55 44 b2 20 20 32 30 31  |    CRBAUD.  201|
00016ad0  44 20 20 20 20 20 20 20  20 20 20 20 20 43 52 42  |D            CRB|
00016ae0  53 41 c4 20 2d 20 32 30  31 38 20 20 20 20 20 20  |SA. - 2018      |
00016af0  20 20 20 20 20 20 43 52  4f 50 53 d7 20 2d 20 32  |      CROPS. - 2|
00016b00  30 31 41 20 20 20 20 20  20 20 20 20 0d 20 20 20  |01A         .   |
00016b10  43 52 4f 50 53 57 b2 20  20 32 30 31 44 20 20 20  |CROPSW.  201D   |
00016b20  20 20 20 20 20 20 20 20  20 43 52 50 52 43 c6 20  |         CRPRC. |
00016b30  2d 20 32 30 31 39 20 20  20 20 20 20 20 20 20 20  |- 2019          |
00016b40  20 20 43 52 50 52 45 ce  20 2d 20 32 30 31 39 20  |  CRPRE. - 2019 |
00016b50  20 20 20 20 20 20 20 20  20 20 20 43 54 d3 20 2d  |           CT. -|
00016b60  2d 2d 2d 20 30 30 30 38  20 20 20 20 20 20 20 20  |--- 0008        |
00016b70  20 20 20 20 44 43 c4 20  2d 2d 2d 2d 20 30 30 30  |    DC. ---- 000|
00016b80  34 20 20 20 20 20 20 20  20 20 0d 20 20 20 44 45  |4         .   DE|
00016b90  43 4d 41 cc 20 2d 20 30  30 32 30 20 20 20 20 20  |CMA. - 0020     |
00016ba0  20 20 20 20 20 20 20 44  49 56 b1 20 2d 2d 2d 20  |       DIV. --- |
00016bb0  30 30 30 30 20 20 20 20  20 20 20 20 20 20 20 20  |0000            |
00016bc0  44 49 56 31 b6 20 2d 2d  20 30 30 30 31 20 20 20  |DIV1. -- 0001   |
00016bd0  20 20 20 20 20 20 20 20  20 44 49 56 36 b4 20 2d  |         DIV6. -|
00016be0  2d 20 30 30 30 32 20 20  20 20 20 20 20 20 20 20  |- 0002          |
00016bf0  20 20 44 50 cd 20 2d 2d  2d 2d 20 30 30 30 32 20  |  DP. ---- 0002 |
00016c00  20 20 20 20 20 20 20 20  0d 20 20 20 44 50 d0 20  |        .   DP. |
00016c10  2d 2d 2d 2d 20 30 30 30  33 20 20 20 20 20 20 20  |---- 0003       |
00016c20  20 20 20 20 20 44 53 50  4e 4f d7 20 2d 20 30 30  |     DSPNO. - 00|
00016c30  30 31 20 20 20 20 20 20  20 20 20 20 20 20 44 54  |01            DT|
00016c40  41 50 52 c2 20 2d 20 30  30 30 38 20 20 20 20 20  |APR. - 0008     |
00016c50  20 20 20 20 20 20 20 44  54 50 52 42 d4 20 2d 20  |       DTPRB. - |
00016c60  30 30 30 41 20 20 20 20  20 20 20 20 20 20 20 20  |000A            |
00016c70  45 4e 44 d3 20 2d 2d 2d  20 30 30 30 31 20 20 20  |END. --- 0001   |
00016c80  20 20 20 20 20 20 0d 20  20 20 45 4e 44 d4 20 2d  |      .   END. -|
00016c90  2d 2d 20 30 30 30 34 20  20 20 20 20 20 20 20 20  |-- 0004         |
00016ca0  20 20 20 46 c5 20 2d 2d  2d 2d 2d 20 30 30 31 30  |   F. ----- 0010|
00016cb0  20 20 20 20 20 20 20 20  20 20 20 20 46 52 45 d1  |            FRE.|
00016cc0  20 2d 2d 2d 20 30 30 38  30 20 20 20 20 20 20 20  | --- 0080       |
00016cd0  20 20 20 20 20 46 55 4e  43 53 d0 20 2d 20 30 30  |     FUNCS. - 00|
00016ce0  30 32 20 20 20 20 20 20  20 20 20 20 20 20 48 45  |02            HE|
00016cf0  d8 20 2d 2d 2d 2d 20 30  30 30 32 20 20 20 20 20  |. ---- 0002     |
00016d00  20 20 20 20 0d 20 20 20  48 4c 54 4f 50 d4 20 2d  |    .   HLTOP. -|
00016d10  20 30 30 34 30 20 20 20  20 20 20 20 20 20 20 20  | 0040           |
00016d20  20 49 4e 50 55 d4 20 2d  2d 20 30 30 30 31 20 20  | INPU. -- 0001  |
00016d30  20 20 20 20 20 20 20 20  20 20 49 4e 54 31 b0 20  |          INT1. |
00016d40  2d 2d 20 30 30 31 34 20  20 20 20 20 20 20 20 20  |-- 0014         |
00016d50  20 20 20 49 4e 54 31 b1  20 2d 2d 20 30 30 31 36  |   INT1. -- 0016|
00016d60  20 20 20 20 20 20 20 20  20 20 20 20 49 4e 54 52  |            INTR|
00016d70  56 cc 20 2d 20 30 30 34  30 20 20 20 20 20 20 20  |V. - 0040       |
00016d80  20 20 0d 20 20 20 49 52  45 d4 20 2d 2d 2d 20 30  |  .   IRE. --- 0|
00016d90  30 30 38 20 20 20 20 20  20 20 20 20 20 20 20 49  |008            I|
00016da0  52 d1 20 2d 2d 2d 2d 20  30 30 38 30 20 20 20 20  |R. ---- 0080    |
00016db0  20 20 20 20 20 20 20 20  49 53 54 41 43 cb 20 2d  |        ISTAC. -|
00016dc0  20 46 38 46 46 20 20 20  20 20 20 20 20 20 20 20  | F8FF           |
00016dd0  20 4c 41 53 54 c5 20 2d  2d 20 30 30 38 30 20 20  | LAST. -- 0080  |
00016de0  20 20 20 20 20 20 20 20  20 20 4c 49 4e cb 20 2d  |          LIN. -|
00016df0  2d 2d 20 30 30 38 34 20  20 20 20 20 20 20 20 20  |-- 0084         |
00016e00  0d 20 20 20 4d 41 42 d3  20 2d 2d 2d 20 30 30 31  |.   MAB. --- 001|
00016e10  30 20 20 20 20 20 20 20  20 20 20 20 20 4d 41 d0  |0            MA.|
00016e20  20 2d 2d 2d 2d 20 30 30  30 31 20 20 20 20 20 20  | ---- 0001      |
00016e30  20 20 20 20 20 20 4d 45  53 53 c7 20 2d 2d 20 30  |      MESS. -- 0|
00016e40  30 30 32 20 20 20 20 20  20 20 20 20 20 20 20 4d  |002            M|
00016e50  53 54 52 53 d4 20 2d 20  30 30 30 33 20 20 20 20  |STRS. - 0003    |
00016e60  20 20 20 20 20 20 20 20  4f 50 52 d1 20 2d 2d 2d  |        OPR. ---|
00016e70  20 30 30 30 39 20 20 20  20 20 20 20 20 20 0d 20  | 0009         . |
00016e80  20 20 4f 52 4d 44 50 cd  20 2d 20 30 30 30 37 20  |  ORMDP. - 0007 |
00016e90  20 20 20 20 20 20 20 20  20 20 20 4f 52 4d 44 50  |           ORMDP|
00016ea0  d0 20 2d 20 30 30 30 36  20 20 20 20 20 20 20 20  |. - 0006        |
00016eb0  20 20 20 20 4f 52 50 44  50 cd 20 2d 20 30 30 30  |    ORPDP. - 000|
00016ec0  35 20 20 20 20 20 20 20  20 20 20 20 20 4f 52 50  |5            ORP|
00016ed0  44 50 d0 20 2d 20 30 30  30 34 20 20 20 20 20 20  |DP. - 0004      |
00016ee0  20 20 20 20 20 20 4f 56  52 ce 20 2d 2d 2d 20 30  |      OVR. --- 0|
00016ef0  30 32 30 20 20 20 20 20  20 20 20 20 0d 20 20 20  |020         .   |
00016f00  50 42 41 53 c5 20 2d 2d  20 46 38 30 30 20 20 20  |PBAS. -- F800   |
00016f10  20 20 20 20 20 20 20 20  20 50 c5 20 2d 2d 2d 2d  |         P. ----|
00016f20  2d 20 30 30 34 30 20 20  20 20 20 20 20 20 20 20  |- 0040          |
00016f30  20 20 50 50 44 50 cd 20  2d 2d 20 30 30 30 31 20  |  PPDP. -- 0001 |
00016f40  20 20 20 20 20 20 20 20  20 20 20 50 52 4f 4d ce  |           PROM.|
00016f50  20 2d 2d 20 30 30 30 32  20 20 20 20 20 20 20 20  | -- 0002        |
00016f60  20 20 20 20 50 52 4f 4d  d3 20 2d 2d 20 30 34 30  |    PROM. -- 040|
00016f70  30 20 20 20 20 20 20 20  20 20 0d 20 20 20 50 54  |0         .   PT|
00016f80  36 38 30 b0 20 2d 20 32  30 45 32 20 20 20 20 20  |680. - 20E2     |
00016f90  20 20 20 20 20 20 20 50  54 38 30 38 b0 20 2d 20  |       PT808. - |
00016fa0  32 30 45 31 20 20 20 20  20 20 20 20 20 20 20 20  |20E1            |
00016fb0  50 54 38 30 38 b5 20 2d  20 32 30 45 35 20 20 20  |PT808. - 20E5   |
00016fc0  20 20 20 20 20 20 20 20  20 50 54 42 50 31 c8 20  |         PTBP1. |
00016fd0  2d 20 32 30 46 44 20 20  20 20 20 20 20 20 20 20  |- 20FD          |
00016fe0  20 20 50 54 42 50 31 cc  20 2d 20 32 30 46 43 20  |  PTBP1. - 20FC |
00016ff0  20 20 20 20 20 20 20 20  0d 20 20 20 50 54 42 50  |        .   PTBP|
00017000  32 c8 20 2d 20 32 30 46  46 20 20 20 20 20 20 20  |2. - 20FF       |
00017010  20 20 20 20 20 50 54 42  50 32 cc 20 2d 20 32 30  |     PTBP2. - 20|
00017020  46 45 20 20 20 20 20 20  20 20 20 20 20 20 50 54  |FE            PT|
00017030  42 d3 20 2d 2d 2d 20 32  30 30 34 20 20 20 20 20  |B. --- 2004     |
00017040  20 20 20 20 20 20 20 50  54 44 43 4d c4 20 2d 20  |       PTDCM. - |
00017050  32 30 46 39 20 20 20 20  20 20 20 20 20 20 20 20  |20F9            |
00017060  50 54 44 43 54 cc 20 2d  20 32 30 46 38 20 20 20  |PTDCT. - 20F8   |
00017070  20 20 20 20 20 20 0d 20  20 20 50 54 49 4e 44 b1  |      .   PTIND.|
00017080  20 2d 20 32 30 30 33 20  20 20 20 20 20 20 20 20  | - 2003         |
00017090  20 20 20 50 54 49 4e 44  b2 20 2d 20 32 30 30 37  |   PTIND. - 2007|
000170a0  20 20 20 20 20 20 20 20  20 20 20 20 50 54 49 56  |            PTIV|
000170b0  45 c3 20 2d 20 32 30 30  30 20 20 20 20 20 20 20  |E. - 2000       |
000170c0  20 20 20 20 20 50 54 4a  41 c8 20 2d 2d 20 32 30  |     PTJA. -- 20|
000170d0  46 42 20 20 20 20 20 20  20 20 20 20 20 20 50 54  |FB            PT|
000170e0  4a 41 cc 20 2d 2d 20 32  30 46 41 20 20 20 20 20  |JA. -- 20FA     |
000170f0  20 20 20 20 0d 20 20 20  50 54 4b 45 d9 20 2d 2d  |    .   PTKE. --|
00017100  20 32 30 30 32 20 20 20  20 20 20 20 20 20 20 20  | 2002           |
00017110  20 50 54 4f 50 cd 20 2d  2d 20 32 30 30 38 20 20  | PTOP. -- 2008  |
00017120  20 20 20 20 20 20 20 20  20 20 50 54 4f 50 d4 20  |          PTOP. |
00017130  2d 2d 20 32 30 30 31 20  20 20 20 20 20 20 20 20  |-- 2001         |
00017140  20 20 20 50 54 52 52 d3  20 2d 2d 20 32 30 30 35  |   PTRR. -- 2005|
00017150  20 20 20 20 20 20 20 20  20 20 20 20 50 54 53 49  |            PTSI|
00017160  47 b0 20 2d 20 32 30 41  30 20 20 20 20 20 20 20  |G. - 20A0       |
00017170  20 20 0d 20 20 20 50 54  53 49 47 b1 20 2d 20 32  |  .   PTSIG. - 2|
00017180  30 41 31 20 20 20 20 20  20 20 20 20 20 20 20 50  |0A1            P|
00017190  54 53 49 47 b2 20 2d 20  32 30 41 32 20 20 20 20  |TSIG. - 20A2    |
000171a0  20 20 20 20 20 20 20 20  50 54 53 49 47 b3 20 2d  |        PTSIG. -|
000171b0  20 32 30 41 33 20 20 20  20 20 20 20 20 20 20 20  | 20A3           |
000171c0  20 50 54 53 49 47 b4 20  2d 20 32 30 41 34 20 20  | PTSIG. - 20A4  |
000171d0  20 20 20 20 20 20 20 20  20 20 50 54 53 49 47 b5  |          PTSIG.|
000171e0  20 2d 20 32 30 41 35 20  20 20 20 20 20 20 20 20  | - 20A5         |
000171f0  0d 20 20 20 50 54 53 49  47 b6 20 2d 20 32 30 41  |.   PTSIG. - 20A|
00017200  36 20 20 20 20 20 20 20  20 20 20 20 20 50 54 53  |6            PTS|
00017210  49 47 b7 20 2d 20 32 30  41 37 20 20 20 20 20 20  |IG. - 20A7      |
00017220  20 20 20 20 20 20 50 54  53 49 47 b8 20 2d 20 32  |      PTSIG. - 2|
00017230  30 41 38 20 20 20 20 20  20 20 20 20 20 20 20 50  |0A8            P|
00017240  54 53 49 47 b9 20 2d 20  32 30 41 39 20 20 20 20  |TSIG. - 20A9    |
00017250  20 20 20 20 20 20 20 20  50 54 53 49 47 c5 20 2d  |        PTSIG. -|
00017260  20 32 30 41 45 20 20 20  20 20 20 20 20 20 0d 20  | 20AE         . |
00017270  20 20 50 54 53 49 47 c6  20 2d 20 32 30 41 46 20  |  PTSIG. - 20AF |
00017280  20 20 20 20 20 20 20 20  20 20 20 50 54 54 49 cd  |           PTTI.|
00017290  20 2d 2d 20 32 30 30 36  20 20 20 20 20 20 20 20  | -- 2006        |
000172a0  20 20 20 20 52 44 52 c6  20 2d 2d 2d 20 30 30 30  |    RDR. --- 000|
000172b0  31 20 20 20 20 20 20 20  20 20 20 20 20 52 49 45  |1            RIE|
000172c0  c2 20 2d 2d 2d 20 30 30  38 30 20 20 20 20 20 20  |. --- 0080      |
000172d0  20 20 20 20 20 20 52 54  53 48 49 c4 20 2d 20 30  |      RTSHI. - 0|
000172e0  30 34 30 20 20 20 20 20  20 20 20 20 0d 20 20 20  |040         .   |
000172f0  52 54 53 4c 42 cc 20 2d  20 30 30 36 30 20 20 20  |RTSLB. - 0060   |
00017300  20 20 20 20 20 20 20 20  20 52 54 53 4c 49 c4 20  |         RTSLI. |
00017310  2d 20 30 30 30 30 20 20  20 20 20 20 20 20 20 20  |- 0000          |
00017320  20 20 52 54 53 4c 49 c5  20 2d 20 30 30 32 30 20  |  RTSLI. - 0020 |
00017330  20 20 20 20 20 20 20 20  20 20 20 53 49 47 4e 54  |           SIGNT|
00017340  d2 20 2d 20 30 30 31 30  20 20 20 20 20 20 20 20  |. - 0010        |
00017350  20 20 20 20 53 49 47 4f  50 d4 20 2d 20 30 30 38  |    SIGOP. - 008|
00017360  30 20 20 20 20 20 20 20  20 20 0d 20 20 20 53 50  |0         .   SP|
00017370  cd 20 2d 2d 2d 2d 20 30  30 30 30 20 20 20 20 20  |. ---- 0000     |
00017380  20 20 20 20 20 20 20 53  50 d0 20 2d 2d 2d 2d 20  |       SP. ---- |
00017390  30 30 30 31 20 20 20 20  20 20 20 20 20 20 20 20  |0001            |
000173a0  53 54 52 4e 4f d7 20 2d  20 30 30 30 39 20 20 20  |STRNO. - 0009   |
000173b0  20 20 20 20 20 20 20 20  20 54 44 52 c5 20 2d 2d  |         TDR. --|
000173c0  2d 20 30 30 30 32 20 20  20 20 20 20 20 20 20 20  |- 0002          |
000173d0  20 20 54 49 4d 32 34 b1  20 2d 20 30 30 45 31 20  |  TIM24. - 00E1 |
000173e0  20 20 20 20 20 20 20 20  0d 20 20 20 54 49 4d 32  |        .   TIM2|
000173f0  34 b2 20 2d 20 30 30 30  32 20 20 20 20 20 20 20  |4. - 0002       |
00017400  20 20 20 20 20 54 49 4d  39 36 b1 20 2d 20 30 30  |     TIM96. - 00|
00017410  37 37 20 20 20 20 20 20  20 20 20 20 20 20 54 49  |77            TI|
00017420  4d 39 36 b2 20 2d 20 30  30 30 31 20 20 20 20 20  |M96. - 0001     |
00017430  20 20 20 20 20 20 20 54  4d 4f 44 45 c6 20 2d 20  |       TMODE. - |
00017440  30 30 36 34 20 20 20 20  20 20 20 20 20 20 20 20  |0064            |
00017450  57 41 49 d4 20 2d 2d 2d  20 30 30 31 30 20 20 20  |WAI. --- 0010   |
00017460  20 20 20 20 20 20 0d 20  20 20 57 4f 52 4b 53 d0  |      .   WORKS.|
00017470  20 2d 20 46 38 30 30 20  20 20 20 20 20 20 20 20  | - F800         |
00017480  20 20 20 57 54 31 30 30  cd 20 2d 20 30 30 30 32  |   WT100. - 0002|
00017490  20 20 20 20 20 20 20 20  20 20 20 20 57 54 31 53  |            WT1S|
000174a0  45 c3 20 2d 20 30 30 30  38 20 20 20 20 20 20 20  |E. - 0008       |
000174b0  20 20 20 20 20 57 54 32  30 30 cd 20 2d 20 30 30  |     WT200. - 00|
000174c0  30 33 20 20 20 20 20 20  20 20 20 20 20 20 57 54  |03            WT|
000174d0  32 35 53 45 c3 20 20 30  30 30 39 20 20 20 20 20  |25SE.  0009     |
000174e0  20 20 20 20 0d 20 20 20  57 54 33 30 30 cd 20 2d  |    .   WT300. -|
000174f0  20 30 30 30 34 20 20 20  20 20 20 20 20 20 20 20  | 0004           |
00017500  20 57 54 34 30 30 cd 20  2d 20 30 30 30 35 20 20  | WT400. - 0005  |
00017510  20 20 20 20 20 20 20 20  20 20 57 54 35 30 30 cd  |          WT500.|
00017520  20 2d 20 30 30 30 36 20  20 20 20 20 20 20 20 20  | - 0006         |
00017530  20 20 20 57 54 35 53 45  c3 20 2d 20 30 30 30 41  |   WT5SE. - 000A|
00017540  20 20 20 20 20 20 20 20  20 20 20 20 57 54 37 30  |            WT70|
00017550  30 cd 20 2d 20 30 30 30  37 20 20 20 20 20 20 20  |0. - 0007       |
00017560  20 20 0d 20 20 20 da 20  2d 2d 2d 2d 2d 2d 20 30  |  .   . ------ 0|
00017570  30 30 32 20 56 20 20 20  20 20 20 20 0d 0d 25 43  |002 V       ..%C|
00017580  52 50 33 30 b5 20 28 64  65 66 61 75 6c 74 29 20  |RP30. (default) |
00017590  53 65 63 74 69 6f 6e 20  28 46 46 46 41 29 0d 0d  |Section (FFFA)..|
000175a0  20 20 20 41 43 44 54 45  d2 20 2d 20 46 43 45 41  |   ACDTE. - FCEA|
000175b0  20 20 20 20 20 20 20 20  20 20 20 20 41 43 53 54  |            ACST|
000175c0  45 d2 20 2d 20 46 43 41  31 20 20 20 20 20 20 20  |E. - FCA1       |
000175d0  20 20 20 20 20 41 53 31  36 30 30 30 b1 20 46 44  |     AS16000. FD|
000175e0  42 31 20 20 20 20 20 20  20 20 20 20 20 20 41 53  |B1            AS|
000175f0  32 35 30 30 30 b1 20 46  44 39 44 20 20 20 20 20  |25000. FD9D     |
00017600  20 20 20 20 20 20 20 41  53 32 35 30 30 30 b2 20  |       AS25000. |
00017610  46 44 41 34 20 20 20 20  20 20 20 20 20 0d 20 20  |FDA4         .  |
00017620  20 41 53 32 35 30 30 30  b3 20 46 44 41 35 20 20  | AS25000. FDA5  |
00017630  20 20 20 20 20 20 20 20  20 20 41 53 33 34 30 30  |          AS3400|
00017640  30 b1 20 46 44 34 32 20  20 20 20 20 20 20 20 20  |0. FD42         |
00017650  20 20 20 41 53 33 37 30  30 30 b1 20 46 45 33 41  |   AS37000. FE3A|
00017660  20 20 20 20 20 20 20 20  20 20 20 20 41 53 38 34  |            AS84|
00017670  30 30 30 b1 20 46 44 35  41 20 20 20 20 20 20 20  |000. FD5A       |
00017680  20 20 20 20 20 41 53 38  36 30 30 30 b1 20 46 44  |     AS86000. FD|
00017690  44 32 20 20 20 20 20 20  20 20 20 0d 20 20 20 41  |D2         .   A|
000176a0  53 38 36 30 30 30 b2 20  46 44 44 43 20 20 20 20  |S86000. FDDC    |
000176b0  20 20 20 20 20 20 20 20  41 53 39 30 30 30 30 b1  |        AS90000.|
000176c0  20 46 39 30 34 20 20 20  20 20 20 20 20 20 20 20  | F904           |
000176d0  20 41 53 39 32 30 30 30  b1 20 46 44 30 36 20 20  | AS92000. FD06  |
000176e0  20 20 20 20 20 20 20 20  20 20 41 53 39 32 30 30  |          AS9200|
000176f0  30 b2 20 46 44 31 30 20  20 20 20 20 20 20 20 20  |0. FD10         |
00017700  20 20 20 41 53 39 32 30  30 30 b3 20 46 44 31 31  |   AS92000. FD11|
00017710  20 20 20 20 20 20 20 20  20 0d 20 20 20 41 53 39  |         .   AS9|
00017720  33 30 30 30 b1 20 46 44  31 39 20 20 20 20 20 20  |3000. FD19      |
00017730  20 20 20 20 20 20 41 53  44 34 30 30 30 b1 20 46  |      ASD4000. F|
00017740  44 37 32 20 20 20 20 20  20 20 20 20 20 20 20 41  |D72            A|
00017750  53 45 30 30 30 30 b1 20  46 43 42 44 20 20 20 20  |SE0000. FCBD    |
00017760  20 20 20 20 20 20 20 20  41 53 45 30 30 30 30 b2  |        ASE0000.|
00017770  20 46 43 43 37 20 20 20  20 20 20 20 20 20 20 20  | FCC7           |
00017780  20 41 53 45 30 30 30 30  b3 20 46 43 43 38 20 20  | ASE0000. FCC8  |
00017790  20 20 20 20 20 20 20 0d  20 20 20 41 53 45 31 30  |       .   ASE10|
000177a0  30 30 b1 20 46 43 44 43  20 20 20 20 20 20 20 20  |00. FCDC        |
000177b0  20 20 20 20 41 53 45 31  30 30 30 b2 20 46 43 45  |    ASE1000. FCE|
000177c0  31 20 20 20 20 20 20 20  20 20 20 20 20 41 53 45  |1            ASE|
000177d0  33 30 30 30 b1 20 46 44  33 31 20 20 20 20 20 20  |3000. FD31      |
000177e0  20 20 20 20 20 20 42 41  55 c4 20 2d 2d 2d 20 46  |      BAU. --- F|
000177f0  38 31 31 20 20 20 20 20  20 20 20 20 20 20 20 42  |811            B|
00017800  41 55 44 4d 53 c7 20 20  46 43 43 43 20 20 20 20  |AUDMS.  FCCC    |
00017810  20 20 20 20 20 0d 20 20  20 42 49 54 b8 20 2d 2d  |     .   BIT. --|
00017820  2d 20 46 41 35 43 20 20  20 20 20 20 20 20 20 20  |- FA5C          |
00017830  20 20 42 50 d4 20 2d 2d  2d 2d 20 46 41 44 41 20  |  BP. ---- FADA |
00017840  20 20 20 20 20 20 20 20  20 20 20 42 53 39 36 30  |           BS960|
00017850  b0 20 2d 20 46 39 43 35  20 20 20 20 20 20 20 20  |. - F9C5        |
00017860  20 20 20 20 42 53 39 36  30 b1 20 2d 20 46 39 43  |    BS960. - F9C|
00017870  42 20 20 20 20 20 20 20  20 20 20 20 20 43 4d 50  |B            CMP|
00017880  53 d7 20 2d 2d 20 46 41  41 36 20 20 20 20 20 20  |S. -- FAA6      |
00017890  20 20 20 0d 20 20 20 43  4e 52 45 c7 20 2d 2d 20  |   .   CNRE. -- |
000178a0  46 38 32 32 20 20 20 20  20 20 20 20 20 20 20 20  |F822            |
000178b0  43 4e 52 47 4d 53 c7 20  20 46 44 31 35 20 20 20  |CNRGMS.  FD15   |
000178c0  20 20 20 20 20 20 20 20  20 43 4e 54 31 30 b1 20  |         CNT10. |
000178d0  2d 20 46 38 31 44 20 20  20 20 20 20 20 20 20 20  |- F81D          |
000178e0  20 20 43 4e 54 31 30 b2  20 2d 20 46 38 31 45 20  |  CNT10. - F81E |
000178f0  20 20 20 20 20 20 20 20  20 20 20 43 4e 54 39 35  |           CNT95|
00017900  b1 20 2d 20 46 38 31 42  20 20 20 20 20 20 20 20  |. - F81B        |
00017910  20 0d 0c 54 65 6b 74 72  6f 6e 69 78 20 20 20 20  | ..Tektronix    |
00017920  20 20 4d 36 38 30 30 20  41 53 4d 20 56 33 2e 33  |  M6800 ASM V3.3|
00017930  20 20 53 79 6d 62 6f 6c  20 54 61 62 6c 65 20 20  |  Symbol Table  |
00017940  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00017950  20 50 61 67 65 20 20 20  20 34 36 0d 0d 20 20 20  | Page    46..   |
00017960  43 4e 54 39 35 b2 20 2d  20 46 38 31 43 20 20 20  |CNT95. - F81C   |
00017970  20 20 20 20 20 20 20 20  20 43 4f 4e d4 20 2d 2d  |         CON. --|
00017980  2d 20 46 41 33 39 20 20  20 20 20 20 20 20 20 20  |- FA39          |
00017990  20 20 44 36 34 43 cb 20  2d 2d 20 46 39 44 34 20  |  D64C. -- F9D4 |
000179a0  20 20 20 20 20 20 20 20  20 20 20 44 36 34 d4 20  |           D64. |
000179b0  2d 2d 2d 20 46 41 31 32  20 20 20 20 20 20 20 20  |--- FA12        |
000179c0  20 20 20 20 44 43 44 49  43 cb 20 2d 20 46 42 34  |    DCDIC. - FB4|
000179d0  39 20 20 20 20 20 20 20  20 20 0d 20 20 20 44 43  |9         .   DC|
000179e0  44 49 d4 20 2d 2d 20 46  42 35 36 20 20 20 20 20  |DI. -- FB56     |
000179f0  20 20 20 20 20 20 20 44  43 44 4d d2 20 2d 2d 20  |       DCDM. -- |
00017a00  46 42 44 43 20 20 20 20  20 20 20 20 20 20 20 20  |FBDC            |
00017a10  44 43 44 4d 53 c7 20 2d  20 46 44 33 45 20 20 20  |DCDMS. - FD3E   |
00017a20  20 20 20 20 20 20 20 20  20 44 45 4c 41 d9 20 2d  |         DELA. -|
00017a30  2d 20 46 38 30 37 20 20  20 20 20 20 20 20 20 20  |- F807          |
00017a40  20 20 44 54 41 50 4f 52  d4 20 20 46 38 31 37 20  |  DTAPOR.  F817 |
00017a50  20 20 20 20 20 20 20 20  0d 20 20 20 44 54 41 52  |        .   DTAR|
00017a60  c4 20 2d 2d 20 46 38 31  41 20 20 20 20 20 20 20  |. -- F81A       |
00017a70  20 20 20 20 20 45 52 52  46 4c c7 20 2d 20 46 38  |     ERRFL. - F8|
00017a80  30 33 20 20 20 20 20 20  20 20 20 20 20 20 45 52  |03            ER|
00017a90  52 4f 55 d4 20 2d 20 46  44 45 30 20 20 20 20 20  |ROU. - FDE0     |
00017aa0  20 20 20 20 20 20 20 45  58 50 44 54 c1 20 2d 20  |       EXPDT. - |
00017ab0  46 38 33 31 20 20 20 20  20 20 20 20 20 20 20 20  |F831            |
00017ac0  45 58 50 46 4c c7 20 2d  20 46 38 32 35 20 20 20  |EXPFL. - F825   |
00017ad0  20 20 20 20 20 20 0d 20  20 20 45 58 50 49 4e d4  |      .   EXPIN.|
00017ae0  20 2d 20 46 38 32 43 20  20 20 20 20 20 20 20 20  | - F82C         |
00017af0  20 20 20 45 58 50 53 54  c1 20 2d 20 46 38 31 33  |   EXPST. - F813|
00017b00  20 20 20 20 20 20 20 20  20 20 20 20 45 58 50 53  |            EXPS|
00017b10  54 41 b1 20 20 46 38 31  34 20 20 20 20 20 20 20  |TA.  F814       |
00017b20  20 20 20 20 20 46 49 4e  c1 20 2d 2d 2d 20 46 43  |     FIN. --- FC|
00017b30  30 39 20 20 20 20 20 20  20 20 20 20 20 20 46 49  |09            FI|
00017b40  4e c9 20 2d 2d 2d 20 46  39 35 31 20 20 20 20 20  |N. --- F951     |
00017b50  20 20 20 20 0d 20 20 20  46 49 4e cf 20 2d 2d 2d  |    .   FIN. ---|
00017b60  20 46 39 37 30 20 20 20  20 20 20 20 20 20 20 20  | F970           |
00017b70  20 49 4d 53 c7 20 2d 2d  2d 20 46 39 30 30 20 20  | IMS. --- F900  |
00017b80  20 20 20 20 20 20 20 20  20 20 49 4e 49 d4 20 2d  |          INI. -|
00017b90  2d 2d 20 46 45 30 33 20  20 20 20 20 20 20 20 20  |-- FE03         |
00017ba0  20 20 20 49 4e 49 54 30  b1 20 2d 20 46 45 31 46  |   INIT0. - FE1F|
00017bb0  20 20 20 20 20 20 20 20  20 20 20 20 49 4e 49 54  |            INIT|
00017bc0  30 b2 20 2d 20 46 45 32  42 20 20 20 20 20 20 20  |0. - FE2B       |
00017bd0  20 20 0d 20 20 20 49 4e  49 54 46 cc 20 2d 20 46  |  .   INITF. - F|
00017be0  38 30 32 20 20 20 20 20  20 20 20 20 20 20 20 49  |802            I|
00017bf0  4e 54 46 4c c7 20 2d 20  46 38 32 44 20 20 20 20  |NTFL. - F82D    |
00017c00  20 20 20 20 20 20 20 20  49 4e 54 49 c4 20 2d 2d  |        INTI. --|
00017c10  20 46 38 32 46 20 20 20  20 20 20 20 20 20 20 20  | F82F           |
00017c20  20 49 4e 54 4d 53 c7 20  2d 20 46 44 32 44 20 20  | INTMS. - FD2D  |
00017c30  20 20 20 20 20 20 20 20  20 20 49 4e 54 54 53 d4  |          INTTS.|
00017c40  20 2d 20 46 42 46 44 20  20 20 20 20 20 20 20 20  | - FBFD         |
00017c50  0d 20 20 20 49 4e 56 43  d2 20 2d 2d 20 46 43 36  |.   INVC. -- FC6|
00017c60  41 20 20 20 20 20 20 20  20 20 20 20 20 4c 4f 4f  |A            LOO|
00017c70  d0 20 2d 2d 2d 20 46 41  33 34 20 20 20 20 20 20  |. --- FA34      |
00017c80  20 20 20 20 20 20 4d 49  45 d2 20 2d 2d 2d 20 46  |      MIE. --- F|
00017c90  43 31 31 20 20 20 20 20  20 20 20 20 20 20 20 4d  |C11            M|
00017ca0  49 4d 53 c7 20 2d 2d 20  46 44 41 39 20 20 20 20  |IMS. -- FDA9    |
00017cb0  20 20 20 20 20 20 20 20  4d 53 47 30 b1 20 2d 2d  |        MSG0. --|
00017cc0  20 46 44 46 30 20 20 20  20 20 20 20 20 20 0d 20  | FDF0         . |
00017cd0  20 20 4d 53 47 30 b2 20  2d 2d 20 46 44 46 37 20  |  MSG0. -- FDF7 |
00017ce0  20 20 20 20 20 20 20 20  20 20 20 4d 53 47 4f 55  |           MSGOU|
00017cf0  d4 20 2d 20 46 44 45 46  20 20 20 20 20 20 20 20  |. - FDEF        |
00017d00  20 20 20 20 4e 4f 45 d2  20 2d 2d 2d 20 46 41 42  |    NOE. --- FAB|
00017d10  39 20 20 20 20 20 20 20  20 20 20 20 20 4e 4f 49  |9            NOI|
00017d20  4e d4 20 2d 2d 20 46 43  30 41 20 20 20 20 20 20  |N. -- FC0A      |
00017d30  20 20 20 20 20 20 4e 4f  4d 53 c7 20 2d 2d 20 46  |      NOMS. -- F|
00017d40  41 37 36 20 20 20 20 20  20 20 20 20 0d 20 20 20  |A76         .   |
00017d50  4e 4f 4d 53 47 b1 20 2d  20 46 41 38 42 20 20 20  |NOMSG. - FA8B   |
00017d60  20 20 20 20 20 20 20 20  20 4f 56 52 4e 49 43 cb  |         OVRNIC.|
00017d70  20 20 46 42 30 41 20 20  20 20 20 20 20 20 20 20  |  FB0A          |
00017d80  20 20 4f 56 52 4e 49 d4  20 2d 20 46 42 31 37 20  |  OVRNI. - FB17 |
00017d90  20 20 20 20 20 20 20 20  20 20 20 50 4f 52 54 ce  |           PORT.|
00017da0  20 2d 2d 20 46 38 31 46  20 20 20 20 20 20 20 20  | -- F81F        |
00017db0  20 20 20 20 50 4f 52 54  53 d5 20 2d 20 46 39 41  |    PORTS. - F9A|
00017dc0  34 20 20 20 20 20 20 20  20 20 0d 20 20 20 50 53  |4         .   PS|
00017dd0  56 c3 20 2d 2d 2d 20 46  44 46 42 20 20 20 20 20  |V. --- FDFB     |
00017de0  20 20 20 20 20 20 20 51  54 4f d0 20 2d 2d 2d 20  |       QTO. --- |
00017df0  46 38 30 30 20 20 20 20  20 20 20 20 20 20 20 20  |F800            |
00017e00  52 44 44 41 50 d4 20 2d  20 46 38 32 36 20 20 20  |RDDAP. - F826   |
00017e10  20 20 20 20 20 20 20 20  20 52 44 44 54 c1 20 2d  |         RDDT. -|
00017e20  2d 20 46 39 35 35 20 20  20 20 20 20 20 20 20 20  |- F955          |
00017e30  20 20 52 44 49 4e 54 53  d5 20 20 46 42 45 35 20  |  RDINTS.  FBE5 |
00017e40  20 20 20 20 20 20 20 20  0d 20 20 20 52 44 52 46  |        .   RDRF|
00017e50  49 43 cb 20 20 46 41 45  30 20 20 20 20 20 20 20  |IC.  FAE0       |
00017e60  20 20 20 20 20 52 44 52  46 49 d4 20 2d 20 46 41  |     RDRFI. - FA|
00017e70  45 44 20 20 20 20 20 20  20 20 20 20 20 20 52 44  |ED            RD|
00017e80  53 c2 20 2d 2d 2d 20 46  38 33 30 20 20 20 20 20  |S. --- F830     |
00017e90  20 20 20 20 20 20 20 52  44 53 54 41 d4 20 2d 20  |       RDSTA. - |
00017ea0  46 39 33 36 20 20 20 20  20 20 20 20 20 20 20 20  |F936            |
00017eb0  52 44 53 54 50 d4 20 2d  20 46 38 32 41 20 20 20  |RDSTP. - F82A   |
00017ec0  20 20 20 20 20 20 0d 20  20 20 52 44 53 d7 20 2d  |      .   RDS. -|
00017ed0  2d 2d 20 46 41 38 46 20  20 20 20 20 20 20 20 20  |-- FA8F         |
00017ee0  20 20 20 52 44 57 41 d3  20 2d 2d 20 46 38 33 34  |   RDWA. -- F834|
00017ef0  20 20 20 20 20 20 20 20  20 20 20 20 52 49 46 4c  |            RIFL|
00017f00  c7 20 2d 2d 20 46 38 32  45 20 20 20 20 20 20 20  |. -- F82E       |
00017f10  20 20 20 20 20 52 53 d4  20 2d 2d 2d 2d 20 46 42  |     RS. ---- FB|
00017f20  44 33 20 20 20 20 20 20  20 20 20 20 20 20 52 54  |D3            RT|
00017f30  52 ce 20 2d 2d 2d 20 46  43 38 43 20 20 20 20 20  |R. --- FC8C     |
00017f40  20 20 20 20 0d 20 20 20  52 57 54 42 cc 20 2d 2d  |    .   RWTB. --|
00017f50  20 46 38 32 30 20 20 20  20 20 20 20 20 20 20 20  | F820           |
00017f60  20 53 41 56 d8 20 2d 2d  2d 20 46 38 33 32 20 20  | SAV. --- F832  |
00017f70  20 20 20 20 20 20 20 20  20 20 53 47 4e 44 30 b1  |          SGND0.|
00017f80  20 2d 20 46 39 43 32 20  20 20 20 20 20 20 20 20  | - F9C2         |
00017f90  20 20 20 53 47 4e 44 30  b2 20 2d 20 46 41 44 44  |   SGND0. - FADD|
00017fa0  20 20 20 20 20 20 20 20  20 20 20 20 53 47 52 53  |            SGRS|
00017fb0  30 b1 20 2d 20 46 39 42  39 20 20 20 20 20 20 20  |0. - F9B9       |
00017fc0  20 20 0d 20 20 20 53 47  52 53 30 b2 20 2d 20 46  |  .   SGRS0. - F|
00017fd0  41 43 39 20 20 20 20 20  20 20 20 20 20 20 20 53  |AC9            S|
00017fe0  47 53 54 30 b1 20 2d 20  46 39 42 39 20 20 20 20  |GST0. - F9B9    |
00017ff0  20 20 20 20 20 20 20 20  53 47 53 54 30 b2 20 2d  |        SGST0. -|
00018000  20 46 41 43 39 20 20 20  20 20 20 20 20 20 20 20  | FAC9           |
00018010  20 53 49 47 46 4c c7 20  2d 20 46 38 30 31 20 20  | SIGFL. - F801  |
00018020  20 20 20 20 20 20 20 20  20 20 53 50 4f 52 54 b1  |          SPORT.|
00018030  20 2d 20 46 39 37 34 20  20 20 20 20 20 20 20 20  | - F974         |
00018040  0d 20 20 20 53 50 4f 52  54 b2 20 2d 20 46 39 38  |.   SPORT. - F98|
00018050  43 20 20 20 20 20 20 20  20 20 20 20 20 53 54 41  |C            STA|
00018060  50 4f 52 d4 20 20 46 38  31 35 20 20 20 20 20 20  |POR.  F815      |
00018070  20 20 20 20 20 20 53 54  41 54 52 c4 20 2d 20 46  |      STATR. - F|
00018080  38 31 39 20 20 20 20 20  20 20 20 20 20 20 20 53  |819            S|
00018090  54 41 54 55 d3 20 2d 20  46 38 30 38 20 20 20 20  |TATU. - F808    |
000180a0  20 20 20 20 20 20 20 20  53 54 45 4e c4 20 2d 2d  |        STEN. --|
000180b0  20 46 45 34 32 20 20 20  20 20 20 20 20 20 0d 20  | FE42         . |
000180c0  20 20 53 54 48 44 30 b1  20 2d 20 46 38 31 30 20  |  STHD0. - F810 |
000180d0  20 20 20 20 20 20 20 20  20 20 20 53 54 48 44 30  |           STHD0|
000180e0  b2 20 2d 20 46 38 32 35  20 20 20 20 20 20 20 20  |. - F825        |
000180f0  20 20 20 20 53 54 53 54  30 b1 20 2d 20 46 39 42  |    STST0. - F9B|
00018100  30 20 20 20 20 20 20 20  20 20 20 20 20 53 54 53  |0            STS|
00018110  54 30 b2 20 2d 20 46 41  42 41 20 20 20 20 20 20  |T0. - FABA      |
00018120  20 20 20 20 20 20 53 56  c3 20 2d 2d 2d 2d 20 46  |      SV. ---- F|
00018130  38 30 34 20 20 20 20 20  20 20 20 20 0d 20 20 20  |804         .   |
00018140  53 56 43 d0 20 2d 2d 2d  20 46 38 30 35 20 20 20  |SVC. --- F805   |
00018150  20 20 20 20 20 20 20 20  20 53 57 31 4d 53 c7 20  |         SW1MS. |
00018160  2d 20 46 44 35 36 20 20  20 20 20 20 20 20 20 20  |- FD56          |
00018170  20 20 53 57 32 4d 53 c7  20 2d 20 46 44 36 45 20  |  SW2MS. - FD6E |
00018180  20 20 20 20 20 20 20 20  20 20 20 53 57 44 54 c1  |           SWDT.|
00018190  20 2d 2d 20 46 38 33 36  20 20 20 20 20 20 20 20  | -- F836        |
000181a0  20 20 20 20 53 57 45 d2  20 2d 2d 2d 20 46 44 38  |    SWE. --- FD8|
000181b0  35 20 20 20 20 20 20 20  20 20 0d 20 20 20 53 57  |5         .   SW|
000181c0  4e 55 cd 20 2d 2d 20 46  38 33 35 20 20 20 20 20  |NU. -- F835     |
000181d0  20 20 20 20 20 20 20 53  57 50 54 43 cb 20 2d 20  |       SWPTC. - |
000181e0  46 41 36 34 20 20 20 20  20 20 20 20 20 20 20 20  |FA64            |
000181f0  54 44 45 4c 30 b1 20 2d  20 46 45 34 38 20 20 20  |TDEL0. - FE48   |
00018200  20 20 20 20 20 20 20 20  20 54 44 45 4c 30 b2 20  |         TDEL0. |
00018210  2d 20 46 45 35 31 20 20  20 20 20 20 20 20 20 20  |- FE51          |
00018220  20 20 54 44 45 4c 41 d9  20 2d 20 46 45 34 37 20  |  TDELA. - FE47 |
00018230  20 20 20 20 20 20 20 20  0d 20 20 20 54 44 52 45  |        .   TDRE|
00018240  49 43 cb 20 20 46 42 37  33 20 20 20 20 20 20 20  |IC.  FB73       |
00018250  20 20 20 20 20 54 44 52  45 49 d4 20 2d 20 46 42  |     TDREI. - FB|
00018260  39 36 20 20 20 20 20 20  20 20 20 20 20 20 54 45  |96            TE|
00018270  4d 50 b1 20 2d 2d 20 46  38 30 39 20 20 20 20 20  |MP. -- F809     |
00018280  20 20 20 20 20 20 20 54  45 4d 50 b2 20 2d 2d 20  |       TEMP. -- |
00018290  46 38 30 42 20 20 20 20  20 20 20 20 20 20 20 20  |F80B            |
000182a0  54 45 4d 50 b3 20 2d 2d  20 46 38 30 44 20 20 20  |TEMP. -- F80D   |
000182b0  20 20 20 20 20 20 0d 20  20 20 54 45 4d 50 b4 20  |      .   TEMP. |
000182c0  2d 2d 20 46 38 30 46 20  20 20 20 20 20 20 20 20  |-- F80F         |
000182d0  20 20 20 54 4d 52 39 b5  20 2d 2d 20 46 39 32 30  |   TMR9. -- F920|
000182e0  20 20 20 20 20 20 20 20  20 20 20 20 54 4f 50 4d  |            TOPM|
000182f0  53 c7 20 2d 20 46 45 33  32 20 20 20 20 20 20 20  |S. - FE32       |
00018300  20 20 20 20 20 54 53 39  36 30 b0 20 2d 20 46 39  |     TS960. - F9|
00018310  32 42 20 20 20 20 20 20  20 20 20 20 20 20 54 53  |2B            TS|
00018320  54 45 4e c4 20 2d 20 46  46 46 41 20 20 20 20 20  |TEN. - FFFA     |
00018330  20 20 20 20 0d 20 20 20  55 49 4d 53 c7 20 2d 2d  |    .   UIMS. --|
00018340  20 46 44 43 32 20 20 20  20 20 20 20 20 20 20 20  | FDC2           |
00018350  20 55 4e 49 d2 20 2d 2d  2d 20 46 43 39 34 20 20  | UNI. --- FC94  |
00018360  20 20 20 20 20 20 20 20  20 20 57 44 53 42 43 cb  |          WDSBC.|
00018370  20 2d 20 46 41 31 45 20  20 20 20 20 20 20 20 20  | - FA1E         |
00018380  20 20 20 57 49 d2 20 2d  2d 2d 2d 20 46 43 38 44  |   WI. ---- FC8D|
00018390  20 20 20 20 20 20 20 20  20 20 20 20 57 53 42 54  |            WSBT|
000183a0  42 cc 20 2d 20 46 39 31  37 20 20 20 20 20 20 20  |B. - F917       |
000183b0  20 20 0d 20 20 20 57 54  31 52 44 b2 20 2d 20 46  |  .   WT1RD. - F|
000183c0  43 31 45 20 20 20 20 20  20 20 20 20 20 20 20 57  |C1E            W|
000183d0  54 32 52 44 b1 20 2d 20  46 43 34 34 20 20 20 20  |T2RD. - FC44    |
000183e0  20 20 20 20 20 20 20 20  57 54 44 41 50 d4 20 2d  |        WTDAP. -|
000183f0  20 46 38 32 33 20 20 20  20 20 20 20 20 20 20 20  | F823           |
00018400  20 57 54 49 4e 54 53 d5  20 20 46 42 42 42 20 20  | WTINTS.  FBBB  |
00018410  20 20 20 20 20 20 20 20  20 20 57 54 53 54 50 d4  |          WTSTP.|
00018420  20 2d 20 46 38 32 38 20  20 20 20 20 20 20 20 20  | - F828         |
00018430  0d 0d 0d 0d 0d 20 31 34  34 32 20 53 6f 75 72 63  |..... 1442 Sourc|
00018440  65 20 4c 69 6e 65 73 20  20 20 20 33 31 34 32 20  |e Lines    3142 |
00018450  41 73 73 65 6d 62 6c 65  64 20 4c 69 6e 65 73 20  |Assembled Lines |
00018460  20 20 34 30 34 35 37 20  42 79 74 65 73 20 61 76  |  40457 Bytes av|
00018470  61 69 6c 61 62 6c 65 0d  0d 20 20 20 20 20 20 20  |ailable..       |
00018480  20 20 20 20 20 3e 3e 3e  20 4e 6f 20 61 73 73 65  |     >>> No asse|
00018490  6d 62 6c 79 20 65 72 72  6f 72 73 20 64 65 74 65  |mbly errors dete|
000184a0  63 74 65 64 20 3c 3c 3c  0d 20 20 20 20 20 20 20  |cted <<<.       |
000184b0  0d 0d 0d 0d 0d 20 31 34  34 32 20 53 6f 75 72 63  |..... 1442 Sourc|
000184c0  65 20 4c 69 6e 65 73 20  20 20 20 33 31 34 32 20  |e Lines    3142 |
000184d0  41 73 73 65 6d 62 6c 65  64 20 4c 69 6e 65 73 20  |Assembled Lines |
000184e0  20 20 34 30 34 35 37 20  42 79 74 65 73 20 61 76  |  40457 Bytes av|
000184f0  61 69 6c 61 62 6c 65 0d  0d 20 20 20 20 20 20 20  |ailable..       |
00018500  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00018800  4d 4f 44 03 00 00 07 ff  00 00 43 4f 4d 4d 2d 52  |MOD.......COMM-R|
00018810  41 4d 2d 30 35 20 44 49  41 47 0d 00 00 00 00 00  |AM-05 DIAG......|
00018820  00 40 00 7a 80 04 00 00  00 00 00 00 00 00 00 00  |.@.z............|
00018830  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00018880  f8 00 ff fa 02 f9 00 02  f8 04 00 00 f8 10 f8 25  |...............%|
00018890  f9 b0 02 00 00 00 00 f9  b9 f9 c2 f9 b9 00 64 10  |..............d.|
000188a0  04 04 07 01 00 fa ba 02  00 00 00 00 fa c9 fa dd  |................|
000188b0  fa c9 00 64 10 04 04 07  01 00 ff ff ff ff ff ff  |...d............|
000188c0  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
*
00018980  80 13 f9 04 43 4f 4d 4d  2d 52 41 4d 20 50 54 2e  |....COMM-RAM PT.|
00018990  20 33 20 56 31 2e 32 01  05 09 0d 80 11 19 1d 00  | 3 V1.2.........|
000189a0  7a f8 1b 26 fb 7a f8 1c  26 f6 39 96 77 b7 f8 1b  |z..&.z..&.9.w...|
000189b0  96 01 b7 f8 1c 39 ff f8  32 fe f8 15 a6 00 b7 f8  |.....9..2.......|
000189c0  19 7d f8 01 26 0b b1 f8  13 27 06 ce fc a1 bd fd  |.}..&....'......|
000189d0  e0 fe f8 32 39 ff f8 32  fe f8 17 a6 00 b7 f8 1a  |...29..2........|
000189e0  7d f8 01 26 0b b1 f8 31  27 06 ce fc ea bd fd e0  |}..&...1'.......|
000189f0  fe f8 32 39 ff f8 32 ce  20 1c ff f8 15 ce 20 1b  |..29..2. ..... .|
00018a00  ff f8 17 86 01 b7 f8 1f  fe f8 32 39 ff f8 32 ce  |..........29..2.|
00018a10  20 1f ff f8 15 ce 20 1e  ff f8 17 86 02 b7 f8 1f  | ..... .........|
00018a20  fe f8 32 39 86 03 fe f8  15 a7 00 86 15 a7 00 39  |..29...........9|
00018a30  8e f8 ff ce fd 15 bd fe  03 bd f9 d4 bd fa 1e bd  |................|
00018a40  fa 64 7e fe 42 ce 96 00  ff f8 11 86 03 b7 20 1a  |.d~.B......... .|
00018a50  b7 20 1d 39 86 03 b7 f8  13 ce 24 00 ff f8 11 bd  |. .9......$.....|
00018a60  f9 cb 86 aa b7 f8 31 86  e1 b7 f8 1b 86 02 b7 f8  |......1.........|
00018a70  1c bd f9 74 bd fa 12 bd  f9 8c bd fa 12 b6 f8 31  |...t...........1|
00018a80  fe f8 17 a7 00 bd f9 20  bd f9 74 bd f9 36 bd f9  |....... ..t..6..|
00018a90  55 39 86 03 fe f8 15 a7  00 86 16 a7 00 39 86 03  |U9...........9..|
00018aa0  b7 f8 13 bd f9 c5 86 2a  b7 f8 31 bd f9 2b bd fb  |.......*..1..+..|
00018ab0  d3 ce f9 17 a6 00 26 01  39 2b 21 b7 f8 22 b7 20  |......&.9+!..". |
00018ac0  1c b7 20 1f b6 f8 31 b7  20 1b bd f9 20 bd f9 8c  |.. ...1. ... ...|
00018ad0  bd f9 36 bd f9 55 08 bd  f9 2b 20 d8 c6 aa f7 f8  |..6..U...+ .....|
00018ae0  31 08 20 d0 86 aa b7 f8  31 7d f8 01 26 08 ce fd  |1. .....1}..&...|
00018af0  56 86 02 bd fd fb bd fa  8f 86 55 b7 f8 31 7d f8  |V.........U..1}.|
00018b00  01 26 08 ce fd 6e 86 02  bd fd fb bd fa 8f 39 86  |.&...n........9.|
00018b10  01 b7 f8 35 b6 20 1a bd  fa a6 86 02 b7 f8 35 b6  |...5. ........5.|
00018b20  20 1d bd fa a6 39 b7 f8  36 7d f8 01 26 0b b1 f8  | ....9..6}..&...|
00018b30  31 27 06 ce fd 85 bd fd  e0 39 8e f8 ff ce fd 2d  |1'.......9.....-|
00018b40  bd fe 03 bd f9 c5 bd f9  2b 7f f8 2d bd fa e0 bd  |........+..-....|
00018b50  fb 0a 7d f8 01 26 03 bd  fb 49 bd fb 73 7e fe 42  |..}..&...I..s~.B|
00018b60  bd fc 1e bd fa ed bd fc  44 bd fa ed 39 bd fb e5  |........D...9...|
00018b70  fe f8 23 a7 00 bd f9 20  bd fb fd 7f f8 25 bd f9  |..#.... .....%..|
00018b80  2b 86 ff b7 f8 2c bd fb  fd 39 bd fc 1e bd fb 17  |+....,...9......|
00018b90  bd fc 44 bd fb 17 39 bd  fb e5 bd f9 2b fe f8 23  |..D...9.....+..#|
00018ba0  a7 00 bd f9 20 bd f9 2b  a7 00 bd f9 20 fe f8 26  |.... ..+.... ..&|
00018bb0  a6 00 86 a3 b7 f8 13 bd  f9 36 bd fb fd 7f f8 25  |.........6.....%|
00018bc0  86 ff b7 f8 2c bd fb fd  39 bd fc 1e bd fb 56 bd  |....,...9.....V.|
00018bd0  fc 44 bd fb 56 39 bd fb  e5 bd fb dc 86 86 b7 f8  |.D..V9..........|
00018be0  13 bd f9 36 bd fb fd 7f  f8 25 86 ff b7 f8 2c bd  |...6.....%....,.|
00018bf0  fb fd 39 bd fc 1e fe f8  28 ff f8 15 86 14 b7 f8  |..9.....(.......|
00018c00  2c bd fb 96 bd fc 44 fe  f8 28 ff f8 15 86 16 b7  |,.....D..(......|
00018c10  f8 2c bd fb 96 39 bd fb  bb bd f9 2b fe f8 23 a7  |.,...9.....+..#.|
00018c20  00 bd f9 20 86 82 b7 f8  13 bd f9 36 bd fb fd 7f  |... .......6....|
00018c30  f8 25 86 ff b7 f8 2c bd  fb fd 39 7f f8 2e 7c f8  |.%....,...9...|.|
00018c40  25 bd fb d3 86 35 fe f8  28 a7 00 86 14 fe f8 2a  |%....5..(......*|
00018c50  a7 00 39 86 03 b7 20 1c  b7 20 1f 39 ce fd 3e 86  |..9... .. .9..>.|
00018c60  02 bd fd fb 39 7c f8 2e  7c f8 25 bd fb d3 86 15  |....9|..|.%.....|
00018c70  fe f8 28 a7 00 86 95 fe  f8 2a a7 00 39 01 0e 01  |..(......*..9...|
00018c80  0f 7d f8 2d 27 04 7f f8  2d 39 7d f8 25 26 02 20  |.}.-'...-9}.%&. |
00018c90  f8 7d f8 01 26 f3 ce fd  a9 bd fd e0 20 eb 86 02  |.}..&....... ...|
00018ca0  b7 f8 1f 86 16 b7 f8 2c  ce 20 1c ff f8 28 ce 20  |.......,. ...(. |
00018cb0  1f ff f8 2a ff f8 15 ce  20 1e ff f8 26 ce 20 1b  |...*.... ...&. .|
00018cc0  ff f8 23 39 86 01 b7 f8  1f 86 14 b7 f8 2c ce 20  |..#9.........,. |
00018cd0  1f ff f8 28 ce 20 1c ff  f8 2a ff f8 15 ce 20 1b  |...(. ...*.... .|
00018ce0  ff f8 26 ce 20 1e ff f8  23 39 b6 20 00 b7 f8 2f  |..&. ...#9. .../|
00018cf0  7d f8 2d 26 1f 7c f8 2d  7d f8 25 27 17 b1 f8 2c  |}.-&.|.-}.%'...,|
00018d00  26 12 7d f8 2e 27 06 fe  f8 26 a6 00 3b fe f8 23  |&.}..'...&..;..#|
00018d10  a7 00 20 f8 7d f8 01 26  f3 ce fd c2 bd fd e0 20  |.. .}..&....... |
00018d20  eb 00 0a fc bd 02 01 f8  1f 00 01 fc c7 02 02 f8  |................|
00018d30  19 00 04 fc c8 02 02 f8  13 84 00 fc cc 53 54 41  |.............STA|
00018d40  54 20 50 4f 52 54 20 3d  20 53 42 3d 00 05 fc dc  |T PORT = SB=....|
00018d50  02 04 f8 11 00 09 fc e1  82 02 f8 22 42 41 55 44  |..........."BAUD|
00018d60  3d 20 43 54 52 4c 52 45  47 3d 00 0a fd 06 02 01  |= CTRLREG=......|
00018d70  f8 1f 00 01 fd 10 02 02  f8 1a 00 04 fd 11 02 02  |................|
00018d80  f8 31 84 00 fc cc 44 41  54 41 20 50 4f 52 54 20  |.1....DATA PORT |
00018d90  3d 20 53 42 3d 80 14 fd  19 43 4f 4e 54 52 4f 4c  |= SB=....CONTROL|
00018da0  20 52 45 47 49 53 54 45  52 20 54 53 54 80 0d fd  | REGISTER TST...|
00018db0  31 49 4e 54 45 52 55 50  54 20 54 45 53 54 80 14  |1INTERUPT TEST..|
00018dc0  fd 42 50 55 53 48 20 44  43 44 20 53 57 20 54 48  |.BPUSH DCD SW TH|
00018dd0  45 4e 20 52 55 4e 80 14  fd 5a 45 56 45 4e 20 53  |EN RUN...ZEVEN S|
00018de0  57 49 54 43 48 45 53 20  4f 4e 2d 52 55 4e 80 13  |WITCHES ON-RUN..|
00018df0  fd 72 4f 44 44 20 53 57  49 54 43 48 45 53 20 4f  |.rODD SWITCHES O|
00018e00  4e 2d 52 55 4e 00 07 fd  9d 02 01 f8 35 00 01 fd  |N-RUN.......5...|
00018e10  a4 02 02 f8 36 00 04 fd  a5 82 02 f8 31 53 57 49  |....6.......1SWI|
00018e20  54 43 48 20 3d 20 53 42  3d 00 11 fd b1 82 02 f8  |TCH = SB=.......|
00018e30  2c 4d 49 53 53 49 4e 47  20 49 4e 54 45 52 55 50  |,MISSING INTERUP|
00018e40  54 20 00 0a fd d2 02 02  f8 2f 00 04 fd dc 82 02  |T ......./......|
00018e50  f8 2c 55 4e 45 58 50 20  49 4e 54 3d 20 53 42 3d  |.,UNEXP INT= SB=|
00018e60  36 7c f8 03 b6 f8 00 85  40 27 05 86 02 20 08 36  |6|......@'... .6|
00018e70  86 19 b7 f8 07 86 1a 8d  02 32 39 ff f8 05 b7 f8  |.........29.....|
00018e80  04 01 39 ff f8 0b 7f 20  05 7f 20 04 7f 20 06 7d  |..9.... .. .. .}|
00018e90  f8 02 26 0b 86 02 ce fe  32 bd fd fb 7c f8 02 b6  |..&.....2...|...|
00018ea0  f8 08 85 f0 27 05 86 80  b7 f8 01 fe f8 0b bd fd  |....'...........|
00018eb0  ef 39 00 08 fe 3a 83 02  f8 00 4f 50 54 49 4f 4e  |.9...:....OPTION|
00018ec0  53 3d 86 01 7e fd fb 36  7f f8 09 86 1c b7 f8 0a  |S=..~..6........|
00018ed0  32 7a f8 09 01 01 26 f9  7a f8 0a 26 f4 4a 36 26  |2z....&.z..&.J6&|
00018ee0  e7 32 39 ff ff ff ff ff  ff ff ff ff ff ff ff ff  |.29.............|
00018ef0  ff ff ff ff ff ff ff ff  ff ff ff ff ff ff ff ff  |................|
*
00019070  ff ff ff ff ff ff ff ff  fc 6a ff ff ff ff ff ff  |.........j......|
00019080  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00019400  20 20 20 20 20 20 20 54  49 54 4c 45 20 20 20 22  |       TITLE   "|
00019410  55 53 45 20 43 4f 4d 4d  2d 52 41 4d 2d 30 35 20  |USE COMM-RAM-05 |
00019420  44 49 41 47 20 50 41 52  54 20 33 22 0d 3b 0d 3b  |DIAG PART 3".;.;|
00019430  20 20 20 20 20 20 20 20  20 20 20 20 20 20 56 45  |              VE|
00019440  52 53 49 4f 4e 20 20 20  20 31 2e 32 0d 3b 0d 3b  |RSION    1.2.;.;|
00019450  20 20 20 20 20 20 20 20  20 20 20 20 20 20 44 41  |              DA|
00019460  54 45 20 56 45 52 49 46  49 45 44 20 20 20 20 20  |TE VERIFIED     |
00019470  31 30 2f 31 33 2f 38 30  0d 3b 0d 50 42 41 53 45  |10/13/80.;.PBASE|
00019480  20 20 20 45 51 55 20 20  20 20 20 30 46 38 30 30  |   EQU     0F800|
00019490  48 0d 20 20 20 20 20 20  20 4e 4f 4c 49 53 54 20  |H.       NOLIST |
000194a0  20 4d 45 0d 3b 20 20 20  20 20 20 55 53 45 20 7b  | ME.;      USE {|
000194b0  43 52 33 41 53 4d 5d 20  54 4f 20 43 52 45 41 54  |CR3ASM] TO CREAT|
000194c0  45 20 4c 49 53 54 20 46  49 4c 45 0d 20 20 20 20  |E LIST FILE.    |
000194d0  20 20 20 50 41 47 45 0d  20 20 20 20 20 20 20 20  |   PAGE.        |
000194e0  53 54 49 54 4c 45 20 22  55 53 41 20 53 59 53 54  |STITLE "USA SYST|
000194f0  45 4d 20 49 4e 54 45 52  46 41 43 45 20 45 51 55  |EM INTERFACE EQU|
00019500  41 54 45 53 20 41 4e 44  20 4d 41 43 52 4f 53 22  |ATES AND MACROS"|
00019510  0d 3b 0d 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.;.;************|
00019520  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00019550  2a 2a 2a 2a 2a 2a 0d 3b  0d 3b 20 20 20 54 48 49  |******.;.;   THI|
00019560  53 20 49 53 20 41 20 47  45 4e 45 52 41 4c 20 46  |S IS A GENERAL F|
00019570  52 4f 4e 54 20 45 4e 44  20 46 4f 52 20 44 49 41  |RONT END FOR DIA|
00019580  47 4e 4f 53 54 49 43 53  20 54 48 41 54 0d 3b 20  |GNOSTICS THAT.; |
00019590  20 20 52 55 4e 20 55 4e  44 45 52 20 54 48 45 20  |  RUN UNDER THE |
000195a0  4d 49 43 52 4f 20 53 59  53 54 45 4d 20 41 4e 41  |MICRO SYSTEM ANA|
000195b0  4c 59 5a 45 52 0d 3b 0d  3b 20 20 20 49 54 20 43  |LYZER.;.;   IT C|
000195c0  4f 4e 54 41 49 4e 53 20  0d 3b 0d 3b 20 20 20 20  |ONTAINS .;.;    |
000195d0  20 20 31 20 41 4c 4c 20  45 51 55 41 54 45 53 20  |  1 ALL EQUATES |
000195e0  46 4f 52 20 43 4f 4d 4d  55 4e 49 43 41 54 49 4e  |FOR COMMUNICATIN|
000195f0  47 20 57 49 54 48 20 54  48 45 20 0d 3b 20 20 20  |G WITH THE .;   |
00019600  20 20 20 20 20 4f 50 45  52 41 54 49 4e 47 20 53  |     OPERATING S|
00019610  59 53 54 45 4d 0d 3b 0d  3b 20 20 20 20 20 20 32  |YSTEM.;.;      2|
00019620  20 4d 41 43 52 4f 53 20  54 4f 20 41 53 53 49 53  | MACROS TO ASSIS|
00019630  54 20 49 4e 20 54 48 45  20 47 45 4e 45 52 41 54  |T IN THE GENERAT|
00019640  49 4f 4e 20 4f 46 0d 3b  20 20 20 20 20 20 20 20  |ION OF.;        |
00019650  54 48 45 20 54 45 53 54  20 48 45 41 44 45 52 20  |THE TEST HEADER |
00019660  42 4c 4f 43 4b 2c 20 53  55 42 54 45 53 54 0d 3b  |BLOCK, SUBTEST.;|
00019670  20 20 20 20 20 20 20 20  48 45 41 44 45 52 20 42  |        HEADER B|
00019680  4c 4f 43 4b 53 2c 20 41  4e 44 20 4d 53 47 20 4c  |LOCKS, AND MSG L|
00019690  49 53 54 53 0d 3b 0d 3b  0d 3b 0d 3b 2a 2a 2a 2a  |ISTS.;.;.;.;****|
000196a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000196d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 3b 20  |*************.; |
000196e0  20 20 20 54 41 42 53 20  41 52 45 20 39 20 31 36  |   TABS ARE 9 16|
000196f0  20 41 4e 44 20 33 32 0d  3b 2a 2a 2a 2a 2a 2a 2a  | AND 32.;*******|
00019700  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00019710  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 3b 20 43  |************.; C|
00019720  4f 4e 46 49 47 55 52 41  54 49 4f 4e 20 49 4e 46  |ONFIGURATION INF|
00019730  4f 52 4d 41 54 49 4f 4e  0d 3b 2a 2a 2a 2a 2a 2a  |ORMATION.;******|
00019740  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00019750  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 50 52  |*************.PR|
00019760  4f 4d 53 20 20 20 20 45  51 55 20 20 20 31 30 32  |OMS    EQU   102|
00019770  34 20 20 20 20 20 20 20  20 20 20 20 20 3b 50 52  |4            ;PR|
00019780  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00019800  41 53 45 0d 3b 0d 3b 0d  3b 2a 2a 2a 2a 2a 2a 2a  |ASE.;.;.;*******|
00019810  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00019820  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 3b 20  |*************.; |
00019830  53 56 43 20 52 45 51 55  45 53 54 20 43 4f 44 45  |SVC REQUEST CODE|
00019840  53 0d 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |S.;*************|
00019850  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00019860  2a 2a 2a 2a 2a 2a 2a 0d  45 4e 44 54 20 20 20 20  |*******.ENDT    |
00019870  20 45 51 55 20 20 20 30  34 48 20 20 20 20 20 20  | EQU   04H      |
00019880  20 20 20 20 20 20 20 3b  45 4e 44 20 4f 46 20 54  |       ;END OF T|
00019890  45 53 54 0d 45 4e 44 53  20 20 20 20 20 45 51 55  |EST.ENDS     EQU|
000198a0  20 20 20 30 31 48 20 20  20 20 20 20 20 20 20 20  |   01H          |
000198b0  20 20 20 3b 45 4e 44 20  4f 46 20 53 55 42 20 54  |   ;END OF SUB T|
000198c0  45 53 54 0d 4d 45 53 53  47 20 20 20 20 45 51 55  |EST.MESSG    EQU|
000198d0  20 20 20 30 32 48 20 20  20 20 20 20 20 20 20 20  |   02H          |
000198e0  20 20 20 3b 4d 45 53 53  41 47 45 0d 49 52 45 54  |   ;MESSAGE.IRET|
000198f0  20 20 20 20 20 45 51 55  20 20 20 30 38 48 20 20  |     EQU   08H  |
00019900  20 20 20 20 20 20 20 20  20 20 20 3b 48 41 4c 54  |           ;HALT|
00019910  20 4f 56 45 52 49 44 45  0d 57 41 49 54 20 20 20  | OVERIDE.WAIT   |
00019920  20 45 51 55 20 20 20 20  31 30 48 20 20 20 20 20  | EQU    10H     |
00019930  20 20 20 20 20 20 20 20  3b 52 45 51 55 45 53 54  |        ;REQUEST|
00019940  20 44 45 4c 41 59 0d 3b  0d 3b 0d 3b 2a 2a 2a 2a  | DELAY.;.;.;****|
00019950  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00019970  0d 3b 20 4d 45 53 53 41  47 45 20 4c 49 53 54 20  |.; MESSAGE LIST |
00019980  43 4f 4e 54 52 4f 4c 20  43 4f 44 45 53 0d 3b 2a  |CONTROL CODES.;*|
00019990  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000199b0  2a 2a 2a 0d 49 4e 50 55  54 20 20 20 20 45 51 55  |***.INPUT    EQU|
000199c0  20 20 20 30 31 48 20 20  20 20 20 20 20 20 20 20  |   01H          |
000199d0  20 20 20 3b 49 4e 50 55  54 20 46 49 45 4c 44 0d  |   ;INPUT FIELD.|
000199e0  48 45 58 20 20 20 20 20  20 45 51 55 20 20 20 30  |HEX      EQU   0|
000199f0  32 48 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |2H             ;|
00019a00  43 4f 4e 56 45 52 54 20  54 4f 20 41 53 43 49 49  |CONVERT TO ASCII|
00019a10  28 49 4d 50 4c 49 45 53  20 48 45 58 20 4f 52 20  |(IMPLIES HEX OR |
00019a20  42 49 4e 20 46 49 45 4c  44 29 0d 4c 49 4e 4b 20  |BIN FIELD).LINK |
00019a30  20 20 20 20 45 51 55 20  20 20 38 34 48 20 20 20  |    EQU   84H   |
00019a40  20 20 20 20 20 20 20 20  20 20 3b 4c 49 4e 4b 20  |          ;LINK |
00019a50  4d 45 53 53 41 47 45 0d  42 49 4e 41 52 59 20 20  |MESSAGE.BINARY  |
00019a60  20 45 51 55 20 20 20 30  38 48 20 20 20 20 20 20  | EQU   08H      |
00019a70  20 20 20 20 20 20 20 3b  42 49 4e 41 52 59 20 41  |       ;BINARY A|
00019a80  4c 4c 4f 57 45 44 0d 4c  41 53 54 45 20 20 20 20  |LLOWED.LASTE    |
00019a90  45 51 55 20 20 20 38 30  48 20 20 20 20 20 20 20  |EQU   80H       |
00019aa0  20 20 20 20 20 20 3b 4c  41 53 54 20 4f 46 20 4c  |      ;LAST OF L|
00019ab0  49 53 54 0d 44 45 43 4d  41 4c 20 20 20 45 51 55  |IST.DECMAL   EQU|
00019ac0  20 20 20 32 30 48 20 20  20 20 20 20 20 20 20 20  |   20H          |
00019ad0  20 20 20 3b 44 45 43 49  4d 41 4c 20 46 49 45 4c  |   ;DECIMAL FIEL|
00019ae0  44 0d 4d 41 42 53 20 20  20 20 20 45 51 55 20 20  |D.MABS     EQU  |
00019af0  20 31 30 48 20 20 20 20  20 20 20 20 20 20 20 20  | 10H            |
00019b00  20 3b 41 42 53 4f 4c 55  54 45 20 41 44 44 52 45  | ;ABSOLUTE ADDRE|
00019b10  53 53 0d 20 20 20 20 20  20 20 20 50 41 47 45 0d  |SS.        PAGE.|
00019b20  3b 0d 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;.;*************|
00019b30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00019b40  2a 2a 2a 2a 2a 2a 0d 3b  20 54 45 53 54 20 4f 50  |******.; TEST OP|
00019b50  54 49 4f 4e 53 0d 3b 2a  2a 2a 2a 2a 2a 2a 2a 2a  |TIONS.;*********|
00019b60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00019b70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 3b 0d 3b 20 20  |**********.;.;  |
00019b80  53 55 42 54 45 53 54 20  48 45 41 44 45 52 20 4f  |SUBTEST HEADER O|
00019b90  50 54 49 4f 4e 20 45 51  55 41 54 45 53 0d 3b 0d  |PTION EQUATES.;.|
00019ba0  46 55 4e 43 53 50 20 20  45 51 55 20 20 20 20 30  |FUNCSP  EQU    0|
00019bb0  32 48 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |2H             ;|
00019bc0  46 55 4e 43 54 49 4f 4e  53 20 53 50 45 43 49 46  |FUNCTIONS SPECIF|
00019bd0  49 45 44 0d 4d 41 50 20  20 20 20 20 45 51 55 20  |IED.MAP     EQU |
00019be0  20 20 20 30 31 48 20 20  20 20 20 20 20 20 20 20  |   01H          |
00019bf0  20 20 20 3b 4d 41 50 20  41 4c 4c 20 4d 45 4d 4f  |   ;MAP ALL MEMO|
00019c00  52 59 20 54 4f 20 53 59  53 54 45 4d 0d 3b 0d 3b  |RY TO SYSTEM.;.;|
00019c10  20 20 45 51 55 41 54 45  53 20 46 4f 52 20 46 55  |  EQUATES FOR FU|
00019c20  4e 43 54 49 4f 4e 20 42  4c 4f 43 4b 53 20 49 4e  |NCTION BLOCKS IN|
00019c30  20 53 55 42 54 45 53 54  20 48 45 41 44 45 52 53  | SUBTEST HEADERS|
00019c40  0d 3b 0d 3b 20 20 20 20  20 20 20 46 55 4e 43 54  |.;.;       FUNCT|
00019c50  49 4f 4e 20 45 51 55 41  54 45 53 0d 3b 0d 53 49  |ION EQUATES.;.SI|
00019c60  47 4e 54 52 20 20 45 51  55 20 20 20 20 31 30 48  |GNTR  EQU    10H|
00019c70  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 53 49  |             ;SI|
00019c80  47 4e 41 54 55 52 45 0d  43 4f 55 4e 54 20 20 20  |GNATURE.COUNT   |
00019c90  45 51 55 20 20 20 20 32  30 48 20 20 20 20 20 20  |EQU    20H      |
00019ca0  20 20 20 20 20 20 20 3b  43 4f 55 4e 54 0d 49 4e  |       ;COUNT.IN|
00019cb0  54 52 56 4c 20 20 45 51  55 20 20 20 20 34 30 48  |TRVL  EQU    40H|
00019cc0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 49 4e  |             ;IN|
00019cd0  54 45 52 56 41 4c 20 4f  52 20 50 55 4c 53 45 0d  |TERVAL OR PULSE.|
00019ce0  46 52 45 51 20 20 20 20  45 51 55 20 20 20 20 38  |FREQ    EQU    8|
00019cf0  30 48 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |0H             ;|
00019d00  46 52 45 51 55 45 4e 43  59 0d 3b 0d 3b 0d 3b 20  |FREQUENCY.;.;.; |
00019d10  20 20 20 20 20 20 53 54  41 52 54 20 41 4e 44 20  |      START AND |
00019d20  53 54 4f 50 20 43 52 49  54 45 52 49 41 0d 3b 0d  |STOP CRITERIA.;.|
00019d30  53 50 4d 20 20 20 20 20  45 51 55 20 20 20 20 30  |SPM     EQU    0|
00019d40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00019d50  53 54 41 52 54 20 4f 52  20 53 54 4f 50 20 50 52  |START OR STOP PR|
00019d60  4f 42 45 20 4d 49 4e 55  53 0d 53 50 50 20 20 20  |OBE MINUS.SPP   |
00019d70  20 20 45 51 55 20 20 20  20 31 20 20 20 20 20 20  |  EQU    1      |
00019d80  20 20 20 20 20 20 20 20  20 3b 53 54 41 52 54 20  |         ;START |
00019d90  4f 52 20 53 54 4f 50 20  50 52 4f 42 45 20 50 4c  |OR STOP PROBE PL|
00019da0  55 53 0d 44 50 4d 20 20  20 20 20 45 51 55 20 20  |US.DPM     EQU  |
00019db0  20 20 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |  2             |
00019dc0  20 20 3b 44 41 54 41 20  50 52 4f 42 45 20 4d 49  |  ;DATA PROBE MI|
00019dd0  4e 55 53 0d 44 50 50 20  20 20 20 20 45 51 55 20  |NUS.DPP     EQU |
00019de0  20 20 20 33 20 20 20 20  20 20 20 20 20 20 20 20  |   3            |
00019df0  20 20 20 3b 44 41 54 41  20 50 52 4f 42 45 20 50  |   ;DATA PROBE P|
00019e00  4c 55 53 0d 41 44 44 43  20 20 20 20 45 51 55 20  |LUS.ADDC    EQU |
00019e10  20 20 20 34 20 20 20 20  20 20 20 20 20 20 20 20  |   4            |
00019e20  20 20 20 3b 41 44 44 52  45 53 53 20 43 4f 4d 50  |   ;ADDRESS COMP|
00019e30  41 52 45 0d 41 44 43 53  50 4d 20 20 45 51 55 20  |ARE.ADCSPM  EQU |
00019e40  20 20 20 35 20 20 20 20  20 20 20 20 20 20 20 20  |   5            |
00019e50  20 20 20 3b 41 44 44 52  45 53 53 20 43 4f 4d 50  |   ;ADDRESS COMP|
00019e60  41 52 45 20 41 4e 44 20  53 50 4d 0d 41 44 43 53  |ARE AND SPM.ADCS|
00019e70  50 50 20 20 45 51 55 20  20 20 20 36 20 20 20 20  |PP  EQU    6    |
00019e80  20 20 20 20 20 20 20 20  20 20 20 3b 41 44 44 52  |           ;ADDR|
00019e90  45 53 53 20 43 4f 4d 50  41 52 45 20 41 4e 44 20  |ESS COMPARE AND |
00019ea0  53 50 50 0d 41 44 43 44  50 4d 20 20 45 51 55 20  |SPP.ADCDPM  EQU |
00019eb0  20 20 20 37 20 20 20 20  20 20 20 20 20 20 20 20  |   7            |
00019ec0  20 20 20 3b 41 44 44 52  45 53 53 20 43 4f 4d 50  |   ;ADDRESS COMP|
00019ed0  41 52 45 20 41 4e 44 20  44 50 4d 0d 41 44 43 44  |ARE AND DPM.ADCD|
00019ee0  50 50 20 20 45 51 55 20  20 20 20 38 20 20 20 20  |PP  EQU    8    |
00019ef0  20 20 20 20 20 20 20 20  20 20 20 3b 41 44 44 52  |           ;ADDR|
00019f00  45 53 53 20 43 4f 4d 50  41 52 45 20 41 4e 44 20  |ESS COMPARE AND |
00019f10  44 50 50 0d 3b 20 20 20  20 53 54 41 52 54 20 4f  |DPP.;    START O|
00019f20  4e 4c 59 0d 53 54 52 4e  4f 57 20 20 45 51 55 20  |NLY.STRNOW  EQU |
00019f30  20 20 20 39 20 20 20 20  20 20 20 20 20 20 20 20  |   9            |
00019f40  20 20 20 3b 53 54 41 52  54 20 4e 4f 57 0d 3b 20  |   ;START NOW.; |
00019f50  20 20 20 53 54 4f 50 20  4f 4e 4c 59 0d 43 4e 54  |   STOP ONLY.CNT|
00019f60  20 20 20 20 20 45 51 55  20 20 20 20 39 20 20 20  |     EQU    9   |
00019f70  20 20 20 20 20 20 20 20  20 20 20 20 3b 53 54 4f  |            ;STO|
00019f80  50 20 4f 4e 20 43 4f 55  4e 54 53 0d 43 4e 54 53  |P ON COUNTS.CNTS|
00019f90  50 4d 20 20 45 51 55 20  20 20 20 30 41 48 20 20  |PM  EQU    0AH  |
00019fa0  20 20 20 20 20 20 20 20  20 20 20 3b 43 4f 55 4e  |           ;COUN|
00019fb0  54 53 20 41 4e 44 20 53  54 4f 50 20 50 52 4f 42  |TS AND STOP PROB|
00019fc0  45 20 4d 49 4e 55 53 0d  43 4e 54 53 50 50 20 20  |E MINUS.CNTSPP  |
00019fd0  45 51 55 20 20 20 20 30  42 48 20 20 20 20 20 20  |EQU    0BH      |
00019fe0  20 20 20 20 20 20 20 3b  43 4f 55 4e 54 53 20 41  |       ;COUNTS A|
00019ff0  4e 44 20 53 54 4f 50 20  50 52 4f 42 45 20 50 4c  |ND STOP PROBE PL|
0001a000  55 53 0d 43 41 44 20 20  20 20 20 45 51 55 20 20  |US.CAD     EQU  |
0001a010  20 20 30 43 48 20 20 20  20 20 20 20 20 20 20 20  |  0CH           |
0001a020  20 20 3b 43 4f 55 4e 54  53 20 41 4e 44 20 41 44  |  ;COUNTS AND AD|
0001a030  44 52 45 53 53 20 43 4f  4d 50 41 52 45 0d 43 41  |DRESS COMPARE.CA|
0001a040  44 53 50 4d 20 20 45 51  55 20 20 20 20 30 44 48  |DSPM  EQU    0DH|
0001a050  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 43 41  |             ;CA|
0001a060  44 20 41 4e 44 20 53 54  4f 50 20 50 52 4f 42 45  |D AND STOP PROBE|
0001a070  20 4d 49 4e 55 53 0d 43  41 44 53 50 50 20 20 45  | MINUS.CADSPP  E|
0001a080  51 55 20 20 20 20 30 45  48 20 20 20 20 20 20 20  |QU    0EH       |
0001a090  20 20 20 20 20 20 3b 43  41 44 20 41 4e 44 20 53  |      ;CAD AND S|
0001a0a0  54 4f 50 20 50 52 4f 42  45 20 50 4c 55 53 0d 3b  |TOP PROBE PLUS.;|
0001a0b0  0d 3b 20 20 20 20 20 20  20 43 4c 4f 43 4b 2f 44  |.;       CLOCK/D|
0001a0c0  41 54 41 20 53 4f 55 52  43 45 0d 3b 0d 43 50 50  |ATA SOURCE.;.CPP|
0001a0d0  44 50 50 20 20 45 51 55  20 20 20 20 30 20 20 20  |DPP  EQU    0   |
0001a0e0  20 20 20 20 20 20 20 20  20 20 20 20 3b 43 4c 4f  |            ;CLO|
0001a0f0  43 4b 20 50 52 42 20 50  4c 55 53 20 44 41 54 41  |CK PRB PLUS DATA|
0001a100  20 50 52 42 20 50 4c 55  53 0d 50 50 44 50 4d 20  | PRB PLUS.PPDPM |
0001a110  20 20 45 51 55 20 20 20  20 31 20 20 20 20 20 20  |  EQU    1      |
0001a120  20 20 20 20 20 20 20 20  20 3b 43 4c 4f 43 4b 20  |         ;CLOCK |
0001a130  50 52 42 20 50 4c 55 53  20 44 41 54 41 20 50 52  |PRB PLUS DATA PR|
0001a140  42 20 4d 49 4e 55 53 0d  43 50 4d 44 50 50 20 20  |B MINUS.CPMDPP  |
0001a150  45 51 55 20 20 20 20 32  20 20 20 20 20 20 20 20  |EQU    2        |
0001a160  20 20 20 20 20 20 20 3b  43 4c 4f 43 4b 20 50 52  |       ;CLOCK PR|
0001a170  42 20 4d 49 4e 55 53 20  44 41 54 41 20 50 52 42  |B MINUS DATA PRB|
0001a180  20 50 4c 55 53 0d 43 50  4d 44 50 4d 20 20 45 51  | PLUS.CPMDPM  EQ|
0001a190  55 20 20 20 20 33 20 20  20 20 20 20 20 20 20 20  |U    3          |
0001a1a0  20 20 20 20 20 3b 43 4c  4f 43 4b 20 50 52 42 20  |     ;CLOCK PRB |
0001a1b0  4d 49 4e 55 53 20 44 41  54 41 20 50 52 42 20 4d  |MINUS DATA PRB M|
0001a1c0  49 4e 55 53 0d 4f 52 50  44 50 50 20 20 45 51 55  |INUS.ORPDPP  EQU|
0001a1d0  20 20 20 20 34 20 20 20  20 20 20 20 20 20 20 20  |    4           |
0001a1e0  20 20 20 20 3b 4f 50 20  52 45 51 20 50 4c 55 53  |    ;OP REQ PLUS|
0001a1f0  20 44 41 54 41 20 50 52  42 20 50 4c 55 53 0d 4f  | DATA PRB PLUS.O|
0001a200  52 50 44 50 4d 20 20 45  51 55 20 20 20 20 35 20  |RPDPM  EQU    5 |
0001a210  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 4f  |              ;O|
0001a220  50 20 52 45 51 20 50 4c  55 53 20 44 41 54 41 20  |P REQ PLUS DATA |
0001a230  50 52 42 20 4d 49 4e 55  53 0d 4f 52 4d 44 50 50  |PRB MINUS.ORMDPP|
0001a240  20 20 45 51 55 20 20 20  20 36 20 20 20 20 20 20  |  EQU    6      |
0001a250  20 20 20 20 20 20 20 20  20 3b 4f 50 20 52 45 51  |         ;OP REQ|
0001a260  20 4d 49 4e 55 53 20 44  41 54 41 20 50 52 42 20  | MINUS DATA PRB |
0001a270  50 4c 55 53 0d 4f 52 4d  44 50 4d 20 20 45 51 55  |PLUS.ORMDPM  EQU|
0001a280  20 20 20 20 37 20 20 20  20 20 20 20 20 20 20 20  |    7           |
0001a290  20 20 20 20 3b 4f 50 20  52 45 51 20 4d 49 4e 55  |    ;OP REQ MINU|
0001a2a0  53 20 44 41 54 41 20 50  52 42 20 4d 49 4e 55 53  |S DATA PRB MINUS|
0001a2b0  0d 44 54 41 50 52 42 20  20 45 51 55 20 20 20 20  |.DTAPRB  EQU    |
0001a2c0  38 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |8               |
0001a2d0  3b 44 41 54 41 20 50 52  4f 42 45 0d 4f 50 52 51  |;DATA PROBE.OPRQ|
0001a2e0  20 20 20 20 45 51 55 20  20 20 20 39 20 20 20 20  |    EQU    9    |
0001a2f0  20 20 20 20 20 20 20 20  20 20 20 3b 4f 50 20 52  |           ;OP R|
0001a300  45 51 55 45 53 54 0d 44  54 50 52 42 54 20 20 45  |EQUEST.DTPRBT  E|
0001a310  51 55 20 20 20 20 30 41  48 20 20 20 20 20 20 20  |QU    0AH       |
0001a320  20 20 20 20 20 20 3b 44  41 54 41 20 50 52 4f 42  |      ;DATA PROB|
0001a330  45 20 54 52 41 4e 53 49  54 49 4f 4e 0d 3b 0d 3b  |E TRANSITION.;.;|
0001a340  20 20 20 20 20 20 20 44  49 53 50 4c 41 59 20 43  |       DISPLAY C|
0001a350  52 49 54 45 52 49 41 0d  3b 0d 41 56 45 52 41 47  |RITERIA.;.AVERAG|
0001a360  45 20 45 51 55 20 20 20  20 30 20 20 20 20 20 20  |E EQU    0      |
0001a370  20 20 20 20 20 20 20 20  20 3b 41 56 45 52 41 47  |         ;AVERAG|
0001a380  45 20 31 30 20 54 4f 47  45 54 48 45 52 0d 44 53  |E 10 TOGETHER.DS|
0001a390  50 4e 4f 57 20 20 45 51  55 20 20 20 20 31 20 20  |PNOW  EQU    1  |
0001a3a0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 44 49  |             ;DI|
0001a3b0  53 50 4c 41 59 20 45 41  43 48 20 4f 4e 45 0d 57  |SPLAY EACH ONE.W|
0001a3c0  54 31 30 30 4d 20 20 45  51 55 20 20 20 20 32 20  |T100M  EQU    2 |
0001a3d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 57  |              ;W|
0001a3e0  41 49 54 20 31 30 30 20  4d 53 0d 57 54 32 30 30  |AIT 100 MS.WT200|
0001a3f0  4d 20 20 45 51 55 20 20  20 20 33 20 20 20 20 20  |M  EQU    3     |
0001a400  20 20 20 20 20 20 20 20  20 20 3b 57 41 49 54 20  |          ;WAIT |
0001a410  32 30 30 20 4d 53 0d 57  54 33 30 30 4d 20 20 45  |200 MS.WT300M  E|
0001a420  51 55 20 20 20 20 34 20  20 20 20 20 20 20 20 20  |QU    4         |
0001a430  20 20 20 20 20 20 3b 57  41 49 54 20 33 30 30 20  |      ;WAIT 300 |
0001a440  4d 53 0d 57 54 34 30 30  4d 20 20 45 51 55 20 20  |MS.WT400M  EQU  |
0001a450  20 20 35 20 20 20 20 20  20 20 20 20 20 20 20 20  |  5             |
0001a460  20 20 3b 57 41 49 54 20  34 30 30 20 4d 53 0d 57  |  ;WAIT 400 MS.W|
0001a470  54 35 30 30 4d 20 20 45  51 55 20 20 20 20 36 20  |T500M  EQU    6 |
0001a480  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 57  |              ;W|
0001a490  41 49 54 20 35 30 30 20  4d 53 0d 57 54 37 30 30  |AIT 500 MS.WT700|
0001a4a0  4d 20 20 45 51 55 20 20  20 20 37 20 20 20 20 20  |M  EQU    7     |
0001a4b0  20 20 20 20 20 20 20 20  20 20 3b 57 41 49 54 20  |          ;WAIT |
0001a4c0  37 30 30 20 4d 53 0d 57  54 31 53 45 43 20 20 45  |700 MS.WT1SEC  E|
0001a4d0  51 55 20 20 20 20 38 20  20 20 20 20 20 20 20 20  |QU    8         |
0001a4e0  20 20 20 20 20 20 3b 57  41 49 54 20 31 20 53 45  |      ;WAIT 1 SE|
0001a4f0  43 4f 4e 44 0d 57 54 32  35 53 45 43 20 45 51 55  |COND.WT25SEC EQU|
0001a500  20 20 20 20 39 20 20 20  20 20 20 20 20 20 20 20  |    9           |
0001a510  20 20 20 20 3b 57 41 49  54 20 32 20 53 45 43 4f  |    ;WAIT 2 SECO|
0001a520  4e 44 53 0d 57 54 35 53  45 43 20 20 45 51 55 20  |NDS.WT5SEC  EQU |
0001a530  20 20 20 30 41 48 20 20  20 20 20 20 20 20 20 20  |   0AH          |
0001a540  20 20 20 3b 57 41 49 54  20 35 20 53 45 43 4f 4e  |   ;WAIT 5 SECON|
0001a550  44 53 0d 3b 0d 54 4d 4f  44 45 46 20 20 20 45 51  |DS.;.TMODEF   EQ|
0001a560  55 20 20 20 31 30 30 20  20 20 20 20 20 20 20 20  |U   100         |
0001a570  20 20 20 20 3b 53 49 47  4e 41 54 55 52 45 20 54  |    ;SIGNATURE T|
0001a580  49 4d 4f 55 54 20 44 45  46 41 55 4c 54 0d 20 20  |IMOUT DEFAULT.  |
0001a590  20 20 20 20 20 20 50 41  47 45 0d 3b 0d 3b 20 20  |      PAGE.;.;  |
0001a5a0  4d 41 43 52 4f 20 4d 53  47 42 4c 4b 20 28 4d 45  |MACRO MSGBLK (ME|
0001a5b0  53 53 41 47 45 20 42 4c  4f 43 4b 29 0d 3b 0d 3b  |SSAGE BLOCK).;.;|
0001a5c0  20 20 20 20 20 20 20 54  48 49 53 20 4d 41 43 52  |       THIS MACR|
0001a5d0  4f 20 43 52 45 41 54 45  53 20 4f 4e 45 20 45 4e  |O CREATES ONE EN|
0001a5e0  54 52 59 20 49 4e 20 41  20 4d 45 53 53 41 47 45  |TRY IN A MESSAGE|
0001a5f0  20 4c 49 53 54 0d 3b 0d  3b 20 20 20 43 41 4c 4c  | LIST.;.;   CALL|
0001a600  49 4e 47 20 53 45 51 55  45 4e 43 45 0d 3b 20 20  |ING SEQUENCE.;  |
0001a610  20 20 20 20 20 4d 53 47  42 4c 4b 20 50 41 52 31  |     MSGBLK PAR1|
0001a620  2c 50 41 52 32 2c 50 41  52 33 0d 3b 20 20 20 20  |,PAR2,PAR3.;    |
0001a630  20 20 20 49 4e 50 55 54  20 41 52 47 55 4d 45 4e  |   INPUT ARGUMEN|
0001a640  54 53 20 41 52 45 0d 3b  20 20 20 20 20 20 20 50  |TS ARE.;       P|
0001a650  41 52 31 20 3d 20 46 4c  41 47 20 42 59 54 45 0d  |AR1 = FLAG BYTE.|
0001a660  3b 20 20 20 20 20 20 20  50 41 52 32 20 3d 20 43  |;       PAR2 = C|
0001a670  48 41 52 20 43 4f 55 4e  54 0d 3b 20 20 20 20 20  |HAR COUNT.;     |
0001a680  20 20 50 41 52 33 20 3d  20 50 4f 49 4e 54 45 52  |  PAR3 = POINTER|
0001a690  20 54 4f 20 44 41 54 41  0d 3b 0d 20 20 20 20 20  | TO DATA.;.     |
0001a6a0  20 20 20 4d 41 43 52 4f  20 20 4d 53 47 42 4c 4b  |   MACRO  MSGBLK|
0001a6b0  0d 20 20 20 20 20 20 20  20 42 59 54 45 20 20 20  |.        BYTE   |
0001a6c0  27 31 27 0d 20 20 20 20  20 20 20 20 42 59 54 45  |'1'.        BYTE|
0001a6d0  20 20 20 27 32 27 0d 20  20 20 20 20 20 20 20 57  |   '2'.        W|
0001a6e0  4f 52 44 20 20 20 27 33  27 0d 20 20 20 20 20 20  |ORD   '3'.      |
0001a6f0  20 20 45 4e 44 4d 0d 3b  0d 3b 20 20 4d 41 43 52  |  ENDM.;.;  MACR|
0001a700  4f 20 53 45 54 4e 0d 3b  0d 3b 20 20 20 20 20 20  |O SETN.;.;      |
0001a710  20 54 48 49 53 20 4d 41  43 52 4f 20 53 45 54 53  | THIS MACRO SETS|
0001a720  20 55 50 20 41 20 53 50  45 43 49 41 4c 20 53 54  | UP A SPECIAL ST|
0001a730  52 49 4e 47 20 56 41 52  49 41 42 4c 45 0d 3b 0d  |RING VARIABLE.;.|
0001a740  3b 20 20 20 43 41 4c 4c  49 4e 47 20 53 45 51 55  |;   CALLING SEQU|
0001a750  45 4e 43 45 0d 3b 20 20  20 20 20 20 20 53 45 54  |ENCE.;       SET|
0001a760  4e 20 20 20 50 41 52 0d  3b 20 20 20 20 20 20 20  |N   PAR.;       |
0001a770  41 20 32 20 43 48 41 52  20 53 54 52 49 4e 47 20  |A 2 CHAR STRING |
0001a780  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
0001a800  54 52 49 4e 47 20 59 0d  20 20 20 20 20 20 20 20  |TRING Y.        |
0001a810  53 54 52 49 4e 47 20 4e  28 32 29 0d 3b 0d 20 20  |STRING N(2).;.  |
0001a820  20 20 20 20 20 20 4d 41  43 52 4f 20 20 53 45 54  |      MACRO  SET|
0001a830  4e 0d 5a 20 20 20 20 20  20 20 53 45 54 20 20 20  |N.Z       SET   |
0001a840  20 27 31 27 0d 59 20 20  20 20 20 20 20 53 45 54  | '1'.Y       SET|
0001a850  20 20 20 20 5a 0d 4e 20  20 20 20 20 20 20 53 45  |    Z.N       SE|
0001a860  54 20 20 20 20 53 45 47  28 22 27 59 27 22 2c 35  |T    SEG("'Y'",5|
0001a870  2c 32 29 0d 20 20 20 20  20 20 20 20 45 4e 44 4d  |,2).        ENDM|
0001a880  0d 3b 0d 3b 20 20 4d 41  43 52 4f 20 49 4e 43 4e  |.;.;  MACRO INCN|
0001a890  0d 3b 0d 3b 20 20 20 20  20 20 20 54 48 49 53 20  |.;.;       THIS |
0001a8a0  4d 41 43 52 4f 20 49 4e  43 52 45 4d 45 4e 54 53  |MACRO INCREMENTS|
0001a8b0  20 54 48 45 20 53 50 45  43 49 41 4c 0d 3b 20 20  | THE SPECIAL.;  |
0001a8c0  20 20 20 20 20 53 54 52  49 4e 47 20 56 41 52 49  |     STRING VARI|
0001a8d0  41 42 4c 45 20 43 52 45  41 54 45 44 20 42 59 20  |ABLE CREATED BY |
0001a8e0  53 45 54 58 0d 3b 0d 20  20 20 20 20 20 20 20 4d  |SETX.;.        M|
0001a8f0  41 43 52 4f 20 20 49 4e  43 4e 0d 5a 20 20 20 20  |ACRO  INCN.Z    |
0001a900  20 20 20 53 45 54 20 20  20 20 5a 2b 31 0d 59 20  |   SET    Z+1.Y |
0001a910  20 20 20 20 20 20 53 45  54 20 20 20 20 5a 0d 4e  |      SET    Z.N|
0001a920  20 20 20 20 20 20 20 53  45 54 20 20 20 20 53 45  |       SET    SE|
0001a930  47 28 22 27 59 27 22 2c  35 2c 32 29 0d 20 20 20  |G("'Y'",5,2).   |
0001a940  20 20 20 20 20 45 4e 44  4d 0d 20 20 20 20 20 20  |     ENDM.      |
0001a950  20 20 50 41 47 45 0d 3b  0d 3b 0d 3b 20 20 4d 41  |  PAGE.;.;.;  MA|
0001a960  43 52 4f 20 54 53 54 48  44 52 20 28 54 45 53 54  |CRO TSTHDR (TEST|
0001a970  20 48 45 41 44 45 52 29  0d 3b 0d 3b 20 20 20 20  | HEADER).;.;    |
0001a980  20 20 20 54 48 49 53 20  4d 41 43 52 4f 20 47 45  |   THIS MACRO GE|
0001a990  4e 45 52 41 54 45 53 20  41 20 54 45 53 54 20 48  |NERATES A TEST H|
0001a9a0  45 41 44 45 52 20 42 4c  4f 43 4b 0d 3b 0d 3b 20  |EADER BLOCK.;.; |
0001a9b0  20 20 43 41 4c 4c 49 4e  47 20 53 45 51 55 45 4e  |  CALLING SEQUEN|
0001a9c0  43 45 0d 3b 20 20 20 20  20 20 20 54 53 54 48 44  |CE.;       TSTHD|
0001a9d0  52 20 20 50 41 52 31 2c  50 41 52 32 0d 3b 20 20  |R  PAR1,PAR2.;  |
0001a9e0  20 20 20 20 20 50 41 52  31 20 3d 20 54 48 45 20  |     PAR1 = THE |
0001a9f0  4e 4f 20 4f 46 20 54 45  53 54 53 0d 3b 20 20 20  |NO OF TESTS.;   |
0001aa00  20 20 20 20 50 41 52 32  20 3d 20 4c 4f 43 41 54  |    PAR2 = LOCAT|
0001aa10  49 4f 4e 20 4f 46 20 46  49 4c 54 45 52 20 43 52  |ION OF FILTER CR|
0001aa20  49 54 45 52 49 41 0d 3b  20 20 20 20 20 20 20 57  |ITERIA.;       W|
0001aa30  48 45 4e 20 54 48 49 53  20 4d 41 43 52 4f 20 49  |HEN THIS MACRO I|
0001aa40  53 20 55 53 45 44 2c 20  43 45 52 54 41 49 4e 20  |S USED, CERTAIN |
0001aa50  4c 41 42 45 4c 49 4e 47  0d 3b 20 20 20 20 20 20  |LABELING.;      |
0001aa60  20 43 4f 4e 56 45 4e 54  49 4f 4e 53 20 4d 55 53  | CONVENTIONS MUS|
0001aa70  54 20 42 45 20 55 53 45  44 0d 3b 20 20 20 20 20  |T BE USED.;     |
0001aa80  20 20 54 53 54 45 4e 44  20 3d 20 54 45 53 54 20  |  TSTEND = TEST |
0001aa90  45 4e 44 0d 3b 20 20 20  20 20 20 20 49 4d 53 47  |END.;       IMSG|
0001aaa0  20 3d 20 49 4e 49 54 49  41 4c 20 4d 53 47 20 4c  | = INITIAL MSG L|
0001aab0  49 53 54 0d 3b 20 20 20  20 20 20 20 53 56 43 20  |IST.;       SVC |
0001aac0  3d 20 4c 4f 43 41 54 49  4f 4e 20 4f 46 20 53 56  |= LOCATION OF SV|
0001aad0  43 20 42 59 54 45 0d 3b  20 20 20 20 20 20 20 53  |C BYTE.;       S|
0001aae0  54 48 44 58 58 20 3d 20  53 55 42 54 45 53 54 20  |THDXX = SUBTEST |
0001aaf0  48 45 41 44 45 52 20 58  58 0d 3b 0d 20 20 20 20  |HEADER XX.;.    |
0001ab00  20 20 20 20 4d 41 43 52  4f 20 20 54 53 54 48 44  |    MACRO  TSTHD|
0001ab10  52 0d 20 20 20 20 20 20  20 20 57 4f 52 44 20 20  |R.        WORD  |
0001ab20  20 24 0d 20 20 20 20 20  20 20 20 57 4f 52 44 20  | $.        WORD |
0001ab30  20 20 54 53 54 45 4e 44  0d 20 20 20 20 20 20 20  |  TSTEND.       |
0001ab40  20 42 59 54 45 20 20 20  50 52 4f 4d 4e 0d 20 20  | BYTE   PROMN.  |
0001ab50  20 20 20 20 20 20 57 4f  52 44 20 20 20 49 4d 53  |      WORD   IMS|
0001ab60  47 0d 20 20 20 20 20 20  20 20 42 59 54 45 20 20  |G.        BYTE  |
0001ab70  20 27 31 27 0d 20 20 20  20 20 20 20 20 57 4f 52  | '1'.        WOR|
0001ab80  44 20 20 20 53 56 43 0d  20 20 20 20 20 20 20 20  |D   SVC.        |
0001ab90  49 46 20 20 20 20 20 22  27 32 27 22 3c 3e 22 22  |IF     "'2'"<>""|
0001aba0  0d 20 20 20 20 20 20 20  20 57 4f 52 44 20 20 20  |.        WORD   |
0001abb0  27 32 27 0d 20 20 20 20  20 20 20 20 45 4e 44 49  |'2'.        ENDI|
0001abc0  46 0d 20 20 20 20 20 20  20 20 49 46 20 20 20 20  |F.        IF    |
0001abd0  20 22 27 32 27 22 3d 22  22 0d 20 20 20 20 20 20  | "'2'"="".      |
0001abe0  20 20 57 4f 52 44 20 20  20 30 0d 20 20 20 20 20  |  WORD   0.     |
0001abf0  20 20 20 45 4e 44 49 46  0d 20 20 20 20 20 20 20  |   ENDIF.       |
0001ac00  20 53 45 54 4e 20 20 20  31 0d 20 20 20 20 20 20  | SETN   1.      |
0001ac10  20 20 52 45 50 45 41 54  20 5a 20 3c 3d 20 27 31  |  REPEAT Z <= '1|
0001ac20  27 0d 20 20 20 20 20 20  20 20 57 4f 52 44 20 20  |'.        WORD  |
0001ac30  20 53 54 48 44 27 4e 27  0d 20 20 20 20 20 20 20  | STHD'N'.       |
0001ac40  20 49 4e 43 4e 0d 20 20  20 20 20 20 20 20 45 4e  | INCN.        EN|
0001ac50  44 52 0d 20 20 20 20 20  20 20 20 45 4e 44 4d 0d  |DR.        ENDM.|
0001ac60  20 20 20 20 20 20 20 20  50 41 47 45 0d 3b 20 20  |        PAGE.;  |
0001ac70  4d 41 43 52 4f 20 53 42  54 48 44 52 20 28 53 55  |MACRO SBTHDR (SU|
0001ac80  42 20 54 45 53 54 20 48  45 41 44 45 52 29 0d 3b  |B TEST HEADER).;|
0001ac90  0d 3b 20 20 20 20 20 20  20 54 48 49 53 20 4d 41  |.;       THIS MA|
0001aca0  43 52 4f 20 47 45 4e 45  52 41 54 45 53 20 41 20  |CRO GENERATES A |
0001acb0  53 55 42 54 45 53 54 20  48 45 41 44 45 52 20 42  |SUBTEST HEADER B|
0001acc0  4c 4f 43 4b 0d 3b 0d 3b  20 20 20 43 41 4c 4c 49  |LOCK.;.;   CALLI|
0001acd0  4e 47 20 53 45 51 55 45  4e 43 45 0d 3b 20 20 20  |NG SEQUENCE.;   |
0001ace0  20 20 20 20 53 42 54 48  44 52 20 20 50 41 52 31  |    SBTHDR  PAR1|
0001acf0  2c 50 41 52 32 2c 50 41  52 33 2c 50 41 52 34 2c  |,PAR2,PAR3,PAR4,|
0001ad00  50 41 52 35 0d 3b 20 20  20 20 20 20 20 49 4e 50  |PAR5.;       INP|
0001ad10  55 54 20 41 52 47 55 4d  45 4e 54 53 20 41 52 45  |UT ARGUMENTS ARE|
0001ad20  20 0d 3b 20 20 20 20 20  20 20 50 41 52 31 20 3d  | .;       PAR1 =|
0001ad30  20 32 20 44 49 47 49 54  20 44 45 43 49 4d 41 4c  | 2 DIGIT DECIMAL|
0001ad40  20 4e 55 4d 42 45 52 20  3d 20 54 48 45 20 53 55  | NUMBER = THE SU|
0001ad50  42 54 45 53 54 20 4e 4f  0d 3b 20 20 20 20 20 20  |BTEST NO.;      |
0001ad60  20 50 41 52 32 20 3d 20  46 55 4e 43 54 49 4f 4e  | PAR2 = FUNCTION|
0001ad70  53 20 53 50 45 43 49 46  49 45 44 20 41 4e 44 20  |S SPECIFIED AND |
0001ad80  4d 41 50 20 28 42 59 54  45 20 32 29 0d 3b 20 20  |MAP (BYTE 2).;  |
0001ad90  20 20 20 20 20 50 41 52  33 20 3d 20 4c 4f 43 41  |     PAR3 = LOCA|
0001ada0  54 49 4f 4e 20 4f 46 20  46 49 4c 54 45 52 20 43  |TION OF FILTER C|
0001adb0  52 49 54 45 52 49 41 20  49 46 20 41 4e 59 0d 3b  |RITERIA IF ANY.;|
0001adc0  20 20 20 20 20 20 20 50  41 52 34 20 3d 20 43 4c  |       PAR4 = CL|
0001add0  4f 43 4b 20 53 54 4f 50  20 43 4f 55 4e 54 20 46  |OCK STOP COUNT F|
0001ade0  4f 52 20 53 54 4f 50 20  4f 4e 20 43 4f 55 4e 54  |OR STOP ON COUNT|
0001adf0  20 4f 50 54 49 4f 4e 20  28 42 59 54 45 20 35 2b  | OPTION (BYTE 5+|
0001ae00  36 29 0d 3b 20 20 20 20  20 20 20 50 41 52 35 20  |6).;       PAR5 |
0001ae10  3d 20 4d 41 58 20 54 49  4d 45 20 46 4f 52 20 53  |= MAX TIME FOR S|
0001ae20  49 47 4e 41 54 55 52 45  53 20 28 42 59 54 45 20  |IGNATURES (BYTE |
0001ae30  31 33 29 0d 3b 0d 3b 20  20 20 20 20 57 48 45 4e  |13).;.;     WHEN|
0001ae40  20 54 48 49 53 20 4d 41  43 52 4f 20 49 53 20 55  | THIS MACRO IS U|
0001ae50  53 45 44 2c 20 43 45 52  54 41 49 4e 20 4c 41 42  |SED, CERTAIN LAB|
0001ae60  45 4c 49 4e 47 0d 3b 20  20 20 20 20 43 4f 4e 56  |ELING.;     CONV|
0001ae70  45 4e 54 49 4f 4e 53 20  4d 55 53 54 20 42 45 20  |ENTIONS MUST BE |
0001ae80  55 53 45 44 0d 3b 20 20  20 57 48 45 52 45 20 50  |USED.;   WHERE P|
0001ae90  41 52 31 20 3d 20 58 58  2c 20 50 52 4f 47 52 41  |AR1 = XX, PROGRA|
0001aea0  4d 20 4c 41 42 45 4c 53  20 41 52 45 20 41 53 20  |M LABELS ARE AS |
0001aeb0  46 4f 4c 4c 4f 57 53 0d  3b 20 20 20 20 20 20 20  |FOLLOWS.;       |
0001aec0  53 54 48 44 58 58 20 3d  20 53 55 42 20 54 45 53  |STHDXX = SUB TES|
0001aed0  54 20 48 45 41 44 45 52  0d 3b 20 20 20 20 20 20  |T HEADER.;      |
0001aee0  20 53 54 53 54 58 58 20  3d 20 53 55 42 20 54 45  | STSTXX = SUB TE|
0001aef0  53 54 20 53 54 41 52 54  0d 3b 20 20 20 20 20 20  |ST START.;      |
0001af00  20 53 47 53 54 58 58 20  3d 20 53 49 47 4e 41 54  | SGSTXX = SIGNAT|
0001af10  55 52 45 20 53 54 41 52  54 0d 3b 20 20 20 20 20  |URE START.;     |
0001af20  20 20 53 47 4e 44 58 58  20 3d 20 53 49 47 4e 41  |  SGNDXX = SIGNA|
0001af30  54 55 52 45 20 45 4e 44  0d 3b 20 20 20 20 20 20  |TURE END.;      |
0001af40  20 53 47 52 53 58 58 20  3d 20 53 49 47 4e 41 54  | SGRSXX = SIGNAT|
0001af50  55 52 45 20 52 45 53 54  41 52 54 0d 3b 0d 3b 20  |URE RESTART.;.; |
0001af60  20 20 49 46 20 50 41 52  32 20 49 53 20 4e 55 4c  |  IF PAR2 IS NUL|
0001af70  4c 2c 20 41 20 54 48 52  45 45 20 42 59 54 45 20  |L, A THREE BYTE |
0001af80  53 55 42 54 45 53 54 20  48 45 41 44 45 52 0d 3b  |SUBTEST HEADER.;|
0001af90  20 20 20 20 20 20 20 57  49 4c 4c 20 42 45 20 47  |       WILL BE G|
0001afa0  45 4e 45 52 41 54 45 44  20 28 4e 4f 20 53 49 47  |ENERATED (NO SIG|
0001afb0  4e 41 54 55 52 45 20 4f  50 54 49 4f 4e 53 29 0d  |NATURE OPTIONS).|
0001afc0  3b 20 20 20 49 46 20 50  41 52 33 20 49 53 20 4e  |;   IF PAR3 IS N|
0001afd0  55 4c 4c 2c 20 4e 4f 20  46 49 4c 54 45 52 20 43  |ULL, NO FILTER C|
0001afe0  52 49 54 45 52 49 41 20  57 49 4c 4c 20 42 45 20  |RITERIA WILL BE |
0001aff0  49 4e 44 49 43 41 54 45  44 0d 3b 20 20 20 49 46  |INDICATED.;   IF|
0001b000  20 50 41 52 34 20 49 53  20 4e 55 4c 4c 2c 20 43  | PAR4 IS NULL, C|
0001b010  4c 4f 43 4b 20 53 54 4f  50 20 43 4f 55 4e 54 20  |LOCK STOP COUNT |
0001b020  57 49 4c 4c 20 42 45 20  30 0d 3b 20 20 20 49 46  |WILL BE 0.;   IF|
0001b030  20 50 41 52 35 20 49 53  20 4e 55 4c 4c 2c 20 54  | PAR5 IS NULL, T|
0001b040  4d 41 58 20 57 49 4c 4c  20 42 45 20 53 45 54 20  |MAX WILL BE SET |
0001b050  3d 20 54 4d 4f 44 45 46  0d 3b 0d 20 20 20 20 20  |= TMODEF.;.     |
0001b060  20 20 20 4d 41 43 52 4f  20 20 53 42 54 48 44 52  |   MACRO  SBTHDR|
0001b070  0d 53 54 48 44 27 31 27  20 45 51 55 20 20 20 20  |.STHD'1' EQU    |
0001b080  24 0d 20 20 20 20 20 20  20 20 57 4f 52 44 20 20  |$.        WORD  |
0001b090  20 53 54 53 54 27 31 27  0d 20 20 20 20 20 20 20  | STST'1'.       |
0001b0a0  20 49 46 20 20 20 20 20  22 27 32 27 22 3d 22 22  | IF     "'2'"=""|
0001b0b0  0d 20 20 20 20 20 20 20  20 42 59 54 45 20 20 20  |.        BYTE   |
0001b0c0  30 0d 20 20 20 20 20 20  20 20 57 4f 52 44 20 20  |0.        WORD  |
0001b0d0  20 30 0d 20 20 20 20 20  20 20 20 45 58 49 54 4d  | 0.        EXITM|
0001b0e0  0d 20 20 20 20 20 20 20  20 45 4e 44 49 46 0d 20  |.        ENDIF. |
0001b0f0  20 20 20 20 20 20 20 42  59 54 45 20 20 20 27 32  |       BYTE   '2|
0001b100  27 0d 20 20 20 20 20 20  20 20 49 46 20 20 20 20  |'.        IF    |
0001b110  20 22 27 33 27 22 3c 3e  22 22 0d 20 20 20 20 20  | "'3'"<>"".     |
0001b120  20 20 20 57 4f 52 44 20  20 20 27 33 27 0d 20 20  |   WORD   '3'.  |
0001b130  20 20 20 20 20 20 45 4e  44 49 46 0d 20 20 20 20  |      ENDIF.    |
0001b140  20 20 20 20 49 46 20 20  20 20 20 22 27 33 27 22  |    IF     "'3'"|
0001b150  3d 22 22 0d 20 20 20 20  20 20 20 20 57 4f 52 44  |="".        WORD|
0001b160  20 20 20 30 0d 20 20 20  20 20 20 20 20 45 4e 44  |   0.        END|
0001b170  49 46 0d 20 20 20 20 20  20 20 20 49 46 20 20 20  |IF.        IF   |
0001b180  20 20 28 27 32 27 29 26  28 30 32 48 29 3d 30 0d  |  ('2')&(02H)=0.|
0001b190  20 20 20 20 20 20 20 20  45 58 49 54 4d 0d 20 20  |        EXITM.  |
0001b1a0  20 20 20 20 20 20 45 4e  44 49 46 0d 20 20 20 20  |      ENDIF.    |
0001b1b0  20 20 20 20 49 46 20 20  20 20 20 22 27 34 27 22  |    IF     "'4'"|
0001b1c0  3d 22 22 0d 20 20 20 20  20 20 20 20 57 4f 52 44  |="".        WORD|
0001b1d0  20 20 20 30 0d 20 20 20  20 20 20 20 20 45 4e 44  |   0.        END|
0001b1e0  49 46 0d 20 20 20 20 20  20 20 20 49 46 20 20 20  |IF.        IF   |
0001b1f0  20 20 22 27 34 27 22 3c  3e 22 22 0d 20 20 20 20  |  "'4'"<>"".    |
0001b200  20 20 20 20 57 4f 52 44  20 20 20 27 34 27 0d 20  |    WORD   '4'. |
0001b210  20 20 20 20 20 20 20 45  4e 44 49 46 0d 20 20 20  |       ENDIF.   |
0001b220  20 20 20 20 20 57 4f 52  44 20 20 20 53 47 53 54  |     WORD   SGST|
0001b230  27 31 27 0d 20 20 20 20  20 20 20 20 57 4f 52 44  |'1'.        WORD|
0001b240  20 20 20 53 47 4e 44 27  31 27 0d 20 20 20 20 20  |   SGND'1'.     |
0001b250  20 20 20 57 4f 52 44 20  20 20 53 47 52 53 27 31  |   WORD   SGRS'1|
0001b260  27 0d 20 20 20 20 20 20  20 20 49 46 20 20 20 20  |'.        IF    |
0001b270  20 22 27 35 27 22 3d 22  22 0d 20 20 20 20 20 20  | "'5'"="".      |
0001b280  20 20 57 4f 52 44 20 20  20 54 4d 4f 44 45 46 0d  |  WORD   TMODEF.|
0001b290  20 20 20 20 20 20 20 20  45 4e 44 49 46 0d 20 20  |        ENDIF.  |
0001b2a0  20 20 20 20 20 20 49 46  20 20 20 20 20 22 27 35  |      IF     "'5|
0001b2b0  27 22 3c 3e 22 22 0d 20  20 20 20 20 20 20 20 57  |'"<>"".        W|
0001b2c0  4f 52 44 20 20 20 27 35  27 0d 20 20 20 20 20 20  |ORD   '5'.      |
0001b2d0  20 20 45 4e 44 49 46 0d  20 20 20 20 20 20 20 20  |  ENDIF.        |
0001b2e0  45 4e 44 4d 0d 20 20 20  20 20 20 20 20 50 41 47  |ENDM.        PAG|
0001b2f0  45 0d 3b 0d 3b 20 20 4d  41 43 52 4f 20 46 55 4e  |E.;.;  MACRO FUN|
0001b300  43 20 28 46 55 4e 43 54  49 4f 4e 29 0d 3b 0d 3b  |C (FUNCTION).;.;|
0001b310  20 20 20 20 20 20 20 54  48 49 53 20 4d 41 43 52  |       THIS MACR|
0001b320  4f 20 47 45 4e 45 52 41  54 45 53 20 41 20 46 55  |O GENERATES A FU|
0001b330  4e 43 54 49 4f 4e 20 53  45 54 55 50 20 42 4c 4f  |NCTION SETUP BLO|
0001b340  43 4b 0d 3b 0d 3b 20 20  20 20 20 43 41 4c 4c 49  |CK.;.;     CALLI|
0001b350  4e 47 20 53 45 51 55 45  4e 43 45 0d 3b 20 20 20  |NG SEQUENCE.;   |
0001b360  20 20 20 20 46 55 4e 43  20 20 20 50 41 52 31 2c  |    FUNC   PAR1,|
0001b370  50 41 52 32 2c 50 41 52  33 2c 50 41 52 34 2c 50  |PAR2,PAR3,PAR4,P|
0001b380  41 52 35 2c 50 41 52 36  0d 3b 20 20 20 20 20 20  |AR5,PAR6.;      |
0001b390  20 49 4e 50 55 54 20 41  52 47 55 4d 45 4e 54 53  | INPUT ARGUMENTS|
0001b3a0  20 41 52 45 0d 3b 20 20  20 20 20 20 20 50 41 52  | ARE.;       PAR|
0001b3b0  31 20 3d 20 46 55 4e 43  54 49 4f 4e 20 56 41 4c  |1 = FUNCTION VAL|
0001b3c0  55 45 0d 3b 20 20 20 20  20 20 20 50 41 52 32 20  |UE.;       PAR2 |
0001b3d0  3d 20 53 54 41 52 54 20  44 49 47 49 54 0d 3b 20  |= START DIGIT.; |
0001b3e0  20 20 20 20 20 20 50 41  52 33 20 3d 20 53 54 4f  |      PAR3 = STO|
0001b3f0  50 20 44 49 47 49 54 0d  3b 20 20 20 20 20 20 20  |P DIGIT.;       |
0001b400  50 41 52 34 20 3d 20 43  4c 4f 43 4b 2f 44 41 54  |PAR4 = CLOCK/DAT|
0001b410  41 20 44 49 47 49 54 0d  3b 20 20 20 20 20 20 20  |A DIGIT.;       |
0001b420  50 41 52 35 20 3d 20 44  49 53 50 4c 41 59 20 44  |PAR5 = DISPLAY D|
0001b430  49 47 49 54 0d 3b 20 20  20 20 20 20 20 50 41 52  |IGIT.;       PAR|
0001b440  36 20 3d 20 54 45 52 4d  49 4e 41 54 4f 52 0d 3b  |6 = TERMINATOR.;|
0001b450  20 20 20 20 20 20 20 49  46 20 50 41 52 36 20 3d  |       IF PAR6 =|
0001b460  20 45 4e 44 46 4e 43 2c  20 41 20 54 45 52 4d 49  | ENDFNC, A TERMI|
0001b470  4e 41 54 4f 52 20 57 49  4c 4c 0d 3b 20 20 20 20  |NATOR WILL.;    |
0001b480  20 20 20 42 45 20 50 4c  41 43 45 44 20 41 54 20  |   BE PLACED AT |
0001b490  54 48 45 20 45 4e 44 20  4f 46 20 54 48 45 20 46  |THE END OF THE F|
0001b4a0  55 4e 43 54 49 4f 4e 20  42 4c 4f 43 4b 0d 3b 0d  |UNCTION BLOCK.;.|
0001b4b0  20 20 20 20 20 20 20 20  4d 41 43 52 4f 20 20 46  |        MACRO  F|
0001b4c0  55 4e 43 0d 20 20 20 20  20 20 20 20 42 59 54 45  |UNC.        BYTE|
0001b4d0  20 20 20 27 31 27 0d 20  20 20 20 20 20 20 20 42  |   '1'.        B|
0001b4e0  59 54 45 20 20 20 27 32  27 0d 20 20 20 20 20 20  |YTE   '2'.      |
0001b4f0  20 20 42 59 54 45 20 20  20 27 33 27 0d 20 20 20  |  BYTE   '3'.   |
0001b500  20 20 20 20 20 42 59 54  45 20 20 20 27 34 27 0d  |     BYTE   '4'.|
0001b510  20 20 20 20 20 20 20 20  42 59 54 45 20 20 20 27  |        BYTE   '|
0001b520  35 27 0d 20 20 20 20 20  20 20 20 49 46 20 20 20  |5'.        IF   |
0001b530  20 20 22 27 36 27 22 3c  3e 22 45 4e 44 46 4e 43  |  "'6'"<>"ENDFNC|
0001b540  22 0d 20 20 20 20 20 20  20 20 45 58 49 54 4d 0d  |".        EXITM.|
0001b550  20 20 20 20 20 20 20 20  45 4e 44 49 46 0d 20 20  |        ENDIF.  |
0001b560  20 20 20 20 20 20 42 59  54 45 20 20 20 30 0d 20  |      BYTE   0. |
0001b570  20 20 20 20 20 20 20 45  4e 44 4d 0d 3b 0d 3b 20  |       ENDM.;.; |
0001b580  4d 41 43 52 4f 20 46 4c  54 52 20 28 46 49 4c 54  |MACRO FLTR (FILT|
0001b590  45 52 29 0d 3b 0d 3b 20  20 20 20 20 20 20 54 48  |ER).;.;       TH|
0001b5a0  49 53 20 4d 41 43 52 4f  20 47 45 4e 45 52 41 54  |IS MACRO GENERAT|
0001b5b0  45 53 20 41 20 46 49 4c  54 45 52 20 43 52 49 54  |ES A FILTER CRIT|
0001b5c0  45 52 49 41 20 42 4c 4f  43 4b 0d 3b 20 20 20 20  |ERIA BLOCK.;    |
0001b5d0  20 20 20 49 4e 50 55 54  20 41 52 47 55 4d 45 4e  |   INPUT ARGUMEN|
0001b5e0  54 20 49 53 20 54 48 45  20 46 49 4c 54 45 52 20  |T IS THE FILTER |
0001b5f0  44 49 47 49 54 20 56 41  4c 55 45 0d 3b 20 20 20  |DIGIT VALUE.;   |
0001b600  20 43 41 4c 4c 49 4e 47  20 53 45 51 55 45 4e 43  | CALLING SEQUENC|
0001b610  45 0d 3b 4c 41 42 45 4c  20 20 46 4c 54 52 20 20  |E.;LABEL  FLTR  |
0001b620  20 50 41 52 0d 3b 0d 20  20 20 20 20 20 20 20 4d  | PAR.;.        M|
0001b630  41 43 52 4f 20 20 46 4c  54 52 0d 20 20 20 20 20  |ACRO  FLTR.     |
0001b640  20 20 20 42 59 54 45 20  20 20 46 49 4c 54 45 52  |   BYTE   FILTER|
0001b650  0d 20 20 20 20 20 20 20  20 42 59 54 45 20 20 20  |.        BYTE   |
0001b660  27 31 27 0d 20 20 20 20  20 20 20 20 42 59 54 45  |'1'.        BYTE|
0001b670  20 20 20 2d 31 0d 20 20  20 20 20 20 20 20 45 4e  |   -1.        EN|
0001b680  44 4d 0d 20 20 20 20 20  20 20 20 50 41 47 45 0d  |DM.        PAGE.|
0001b690  3b 0d 3b 20 20 4d 41 43  52 4f 20 4d 53 47 20 28  |;.;  MACRO MSG (|
0001b6a0  4d 45 53 53 41 47 45 29  0d 3b 0d 3b 20 20 20 20  |MESSAGE).;.;    |
0001b6b0  20 20 20 54 48 49 53 20  4d 41 43 52 4f 20 47 45  |   THIS MACRO GE|
0001b6c0  4e 45 52 41 54 45 53 20  41 20 4d 45 53 53 41 47  |NERATES A MESSAG|
0001b6d0  45 20 4c 49 53 54 20 41  4e 44 0d 3b 20 20 20 20  |E LIST AND.;    |
0001b6e0  20 20 20 54 45 58 54 20  42 4c 4f 43 4b 53 20 46  |   TEXT BLOCKS F|
0001b6f0  4f 52 20 41 20 4d 45 53  53 41 47 45 20 4f 46 20  |OR A MESSAGE OF |
0001b700  54 48 45 20 47 45 4e 45  52 41 4c 0d 3b 20 20 20  |THE GENERAL.;   |
0001b710  20 20 20 20 46 4f 52 4d  20 20 22 54 45 58 54 22  |    FORM  "TEXT"|
0001b720  3c 48 45 58 20 44 41 54  41 3e 22 54 45 58 54 22  |<HEX DATA>"TEXT"|
0001b730  3c 48 45 58 20 44 41 54  41 3e 20 45 54 43 0d 3b  |<HEX DATA> ETC.;|
0001b740  0d 3b 20 20 20 43 41 4c  4c 49 4e 47 20 53 45 51  |.;   CALLING SEQ|
0001b750  55 45 4e 43 45 0d 3b 4c  41 42 45 4c 20 20 4d 53  |UENCE.;LABEL  MS|
0001b760  47 20 20 20 20 50 41 52  31 41 2c 50 41 52 31 42  |G    PAR1A,PAR1B|
0001b770  2c 50 41 52 31 43 2c 50  41 52 32 41 2c 50 41 52  |,PAR1C,PAR2A,PAR|
0001b780  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
0001b800  20 4c 4f 43 41 54 49 4f  4e 20 4f 46 20 48 45 58  | LOCATION OF HEX|
0001b810  20 44 41 54 41 0d 3b 20  20 20 20 20 20 20 49 46  | DATA.;       IF|
0001b820  20 54 48 45 20 46 49 52  53 54 20 43 48 41 52 41  | THE FIRST CHARA|
0001b830  43 54 45 52 20 4f 46 20  54 48 45 20 41 52 47 55  |CTER OF THE ARGU|
0001b840  4d 45 4e 54 20 50 41 52  58 43 20 3d 20 51 2c 0d  |MENT PARXC = Q,.|
0001b850  3b 20 20 20 20 20 20 20  50 41 52 58 43 20 57 49  |;       PARXC WI|
0001b860  4c 4c 20 42 45 20 53 50  45 43 49 46 49 45 44 20  |LL BE SPECIFIED |
0001b870  41 53 20 41 4e 20 49 4e  50 55 54 20 41 4c 4c 4f  |AS AN INPUT ALLO|
0001b880  57 45 44 20 46 49 45 4c  44 0d 3b 20 20 20 20 20  |WED FIELD.;     |
0001b890  20 20 4d 45 53 53 41 47  45 20 4c 49 53 54 53 20  |  MESSAGE LISTS |
0001b8a0  4d 41 59 20 42 45 20 4c  49 4e 4b 45 44 20 42 59  |MAY BE LINKED BY|
0001b8b0  20 50 4c 41 43 49 4e 47  0d 3b 20 20 20 20 20 20  | PLACING.;      |
0001b8c0  20 22 4c 49 4e 4b 54 4f  22 20 49 4e 20 50 4c 41  | "LINKTO" IN PLA|
0001b8d0  43 45 20 4f 46 20 50 41  52 58 41 20 4f 52 20 50  |CE OF PARXA OR P|
0001b8e0  41 52 58 42 0d 3b 20 20  20 20 20 20 20 54 48 45  |ARXB.;       THE|
0001b8f0  20 41 52 47 55 4d 45 4e  54 20 46 4f 4c 4c 4f 57  | ARGUMENT FOLLOW|
0001b900  49 4e 47 20 22 4c 49 4e  4b 54 4f 22 20 4d 55 53  |ING "LINKTO" MUS|
0001b910  54 20 42 45 20 54 48 45  0d 3b 20 20 20 20 20 20  |T BE THE.;      |
0001b920  20 4c 4f 43 41 54 49 4f  4e 20 4f 46 20 54 48 45  | LOCATION OF THE|
0001b930  20 4e 45 57 20 4d 45 53  53 41 47 45 20 4c 49 53  | NEW MESSAGE LIS|
0001b940  54 0d 3b 20 20 20 20 20  20 20 4d 45 53 53 41 47  |T.;       MESSAG|
0001b950  45 20 4c 49 53 54 53 20  41 52 45 20 52 45 46 45  |E LISTS ARE REFE|
0001b960  52 41 4e 43 45 44 20 42  59 20 22 4c 41 42 45 4c  |RANCED BY "LABEL|
0001b970  22 0d 3b 0d 20 20 20 20  20 20 20 20 4d 41 43 52  |".;.        MACR|
0001b980  4f 20 20 4d 53 47 0d 20  20 20 20 20 20 20 20 53  |O  MSG.        S|
0001b990  45 54 4e 20 20 20 31 0d  41 31 20 20 20 20 20 20  |ETN   1.A1      |
0001b9a0  53 45 54 20 20 20 20 31  0d 20 20 20 20 20 20 20  |SET    1.       |
0001b9b0  20 52 45 50 45 41 54 20  22 27 41 31 27 22 3c 3e  | REPEAT "'A1'"<>|
0001b9c0  22 22 0d 41 32 20 20 20  20 20 20 53 45 54 20 20  |"".A2      SET  |
0001b9d0  20 20 41 31 2b 31 0d 41  33 20 20 20 20 20 20 53  |  A1+1.A3      S|
0001b9e0  45 54 20 20 20 20 41 31  2b 32 0d 41 34 20 20 20  |ET    A1+2.A4   |
0001b9f0  20 20 20 53 45 54 20 20  20 20 41 31 2b 33 0d 20  |   SET    A1+3. |
0001ba00  20 20 20 20 20 20 20 49  46 20 20 20 20 20 22 27  |       IF     "'|
0001ba10  41 31 27 22 3d 22 4c 49  4e 4b 54 4f 22 0d 20 20  |A1'"="LINKTO".  |
0001ba20  20 20 20 20 20 20 4d 53  47 42 4c 4b 20 4c 49 4e  |      MSGBLK LIN|
0001ba30  4b 2c 30 2c 27 41 32 27  0d 20 20 20 20 20 20 20  |K,0,'A2'.       |
0001ba40  20 45 4e 44 49 46 0d 20  20 20 20 20 20 20 20 49  | ENDIF.        I|
0001ba50  46 20 20 20 20 20 22 27  41 31 27 22 3c 3e 22 4c  |F     "'A1'"<>"L|
0001ba60  49 4e 4b 54 4f 22 0d 20  20 20 20 20 20 20 20 49  |INKTO".        I|
0001ba70  46 20 20 20 20 20 22 27  41 32 27 22 3d 22 22 0d  |F     "'A2'"="".|
0001ba80  20 20 20 20 20 20 20 20  4d 53 47 42 4c 4b 20 4c  |        MSGBLK L|
0001ba90  41 53 54 45 2c 41 4c 27  40 27 27 4e 27 2c 41 53  |ASTE,AL'@''N',AS|
0001baa0  27 40 27 27 4e 27 0d 20  20 20 20 20 20 20 20 45  |'@''N'.        E|
0001bab0  4e 44 49 46 0d 20 20 20  20 20 20 20 20 49 46 20  |NDIF.        IF |
0001bac0  20 20 20 20 22 27 41 32  27 22 3c 3e 22 22 0d 20  |    "'A2'"<>"". |
0001bad0  20 20 20 20 20 20 20 4d  53 47 42 4c 4b 20 30 2c  |       MSGBLK 0,|
0001bae0  41 4c 27 40 27 27 4e 27  2c 41 53 27 40 27 27 4e  |AL'@''N',AS'@''N|
0001baf0  27 0d 20 20 20 20 20 20  20 20 49 46 20 20 20 20  |'.        IF    |
0001bb00  20 22 27 41 32 27 22 3d  22 4c 49 4e 4b 54 4f 22  | "'A2'"="LINKTO"|
0001bb10  0d 20 20 20 20 20 20 20  20 4d 53 47 42 4c 4b 20  |.        MSGBLK |
0001bb20  4c 49 4e 4b 2c 30 2c 27  41 33 27 0d 20 20 20 20  |LINK,0,'A3'.    |
0001bb30  20 20 20 20 45 4e 44 49  46 0d 20 20 20 20 20 20  |    ENDIF.      |
0001bb40  20 20 49 46 20 20 20 20  20 22 27 41 32 27 22 3c  |  IF     "'A2'"<|
0001bb50  3e 22 4c 49 4e 4b 54 4f  22 0d 20 20 20 20 20 20  |>"LINKTO".      |
0001bb60  20 20 49 46 20 20 20 20  20 22 27 41 34 27 22 3d  |  IF     "'A4'"=|
0001bb70  22 22 0d 20 20 20 20 20  20 20 20 49 46 20 20 20  |"".        IF   |
0001bb80  20 20 53 45 47 28 22 27  41 33 27 22 2c 31 2c 31  |  SEG("'A3'",1,1|
0001bb90  29 3c 3e 22 51 22 0d 20  20 20 20 20 20 20 20 4d  |)<>"Q".        M|
0001bba0  53 47 42 4c 4b 20 48 45  58 2b 4c 41 53 54 45 2c  |SGBLK HEX+LASTE,|
0001bbb0  27 41 32 27 2c 27 41 33  27 0d 20 20 20 20 20 20  |'A2','A3'.      |
0001bbc0  20 20 45 4e 44 49 46 0d  20 20 20 20 20 20 20 20  |  ENDIF.        |
0001bbd0  49 46 20 20 20 20 20 53  45 47 28 22 27 41 33 27  |IF     SEG("'A3'|
0001bbe0  22 2c 31 2c 31 29 3d 22  51 22 0d 20 20 20 20 20  |",1,1)="Q".     |
0001bbf0  20 20 20 4d 53 47 42 4c  4b 20 48 45 58 2b 49 4e  |   MSGBLK HEX+IN|
0001bc00  50 55 54 2b 4c 41 53 54  45 2c 27 41 32 27 2c 27  |PUT+LASTE,'A2','|
0001bc10  41 33 27 0d 20 20 20 20  20 20 20 20 45 4e 44 49  |A3'.        ENDI|
0001bc20  46 0d 20 20 20 20 20 20  20 20 45 4e 44 49 46 0d  |F.        ENDIF.|
0001bc30  20 20 20 20 20 20 20 20  49 46 20 20 20 20 20 22  |        IF     "|
0001bc40  27 41 34 27 22 3c 3e 22  22 0d 20 20 20 20 20 20  |'A4'"<>"".      |
0001bc50  20 20 49 46 20 20 20 20  20 53 45 47 28 22 27 41  |  IF     SEG("'A|
0001bc60  33 27 22 2c 31 2c 31 29  3c 3e 22 51 22 0d 20 20  |3'",1,1)<>"Q".  |
0001bc70  20 20 20 20 20 20 4d 53  47 42 4c 4b 20 48 45 58  |      MSGBLK HEX|
0001bc80  2c 27 41 32 27 2c 27 41  33 27 0d 20 20 20 20 20  |,'A2','A3'.     |
0001bc90  20 20 20 45 4e 44 49 46  0d 20 20 20 20 20 20 20  |   ENDIF.       |
0001bca0  20 49 46 20 20 20 20 20  53 45 47 28 22 27 41 33  | IF     SEG("'A3|
0001bcb0  27 22 2c 31 2c 31 29 3d  22 51 22 0d 20 20 20 20  |'",1,1)="Q".    |
0001bcc0  20 20 20 20 4d 53 47 42  4c 4b 20 48 45 58 2b 49  |    MSGBLK HEX+I|
0001bcd0  4e 50 55 54 0d 20 20 20  20 20 20 20 20 45 4e 44  |NPUT.        END|
0001bce0  49 46 0d 20 20 20 20 20  20 20 20 45 4e 44 49 46  |IF.        ENDIF|
0001bcf0  0d 20 20 20 20 20 20 20  20 45 4e 44 49 46 0d 20  |.        ENDIF. |
0001bd00  20 20 20 20 20 20 20 49  4e 43 4e 0d 20 20 20 20  |       INCN.    |
0001bd10  20 20 20 20 45 4e 44 49  46 0d 20 20 20 20 20 20  |    ENDIF.      |
0001bd20  20 20 45 4e 44 49 46 0d  41 31 20 20 20 20 20 20  |  ENDIF.A1      |
0001bd30  53 45 54 20 20 20 20 41  34 0d 20 20 20 20 20 20  |SET    A4.      |
0001bd40  20 20 45 4e 44 52 0d 41  31 20 20 20 20 20 20 53  |  ENDR.A1      S|
0001bd50  45 54 20 20 20 20 31 0d  20 20 20 20 20 20 20 20  |ET    1.        |
0001bd60  53 45 54 4e 20 20 20 31  0d 20 20 20 20 20 20 20  |SETN   1.       |
0001bd70  20 52 45 50 45 41 54 20  22 27 41 31 27 22 3c 3e  | REPEAT "'A1'"<>|
0001bd80  22 22 0d 20 20 20 20 20  20 20 20 49 46 20 20 20  |"".        IF   |
0001bd90  20 20 22 27 41 31 27 22  3d 22 4c 49 4e 4b 54 4f  |  "'A1'"="LINKTO|
0001bda0  22 0d 20 20 20 20 20 20  20 20 45 58 49 54 4d 0d  |".        EXITM.|
0001bdb0  20 20 20 20 20 20 20 20  45 4e 44 49 46 0d 41 53  |        ENDIF.AS|
0001bdc0  27 40 27 27 4e 27 20 41  53 43 49 49 20 22 27 41  |'@''N' ASCII "'A|
0001bdd0  31 27 22 0d 41 4c 27 40  27 27 4e 27 20 45 51 55  |1'".AL'@''N' EQU|
0001bde0  20 20 20 24 2d 41 53 27  40 27 27 4e 27 0d 41 31  |   $-AS'@''N'.A1|
0001bdf0  20 20 20 20 20 20 53 45  54 20 20 20 20 41 31 2b  |      SET    A1+|
0001be00  33 0d 20 20 20 20 20 20  20 20 49 4e 43 4e 0d 20  |3.        INCN. |
0001be10  20 20 20 20 20 20 20 45  4e 44 52 0d 20 20 20 20  |       ENDR.    |
0001be20  20 20 20 20 45 4e 44 4d  0d 20 20 20 20 20 20 20  |    ENDM.       |
0001be30  20 50 41 47 45 0d 20 20  20 20 20 20 20 20 53 54  | PAGE.        ST|
0001be40  49 54 4c 45 20 22 48 41  52 44 57 41 52 45 20 44  |ITLE "HARDWARE D|
0001be50  45 46 49 4e 49 54 49 4f  4e 53 20 46 4f 52 20 53  |EFINITIONS FOR S|
0001be60  55 54 20 28 55 53 41 29  20 41 4e 44 20 47 4c 4f  |UT (USA) AND GLO|
0001be70  42 41 4c 20 44 42 41 53  45 22 0d 3b 0d 3b 2a 2a  |BAL DBASE".;.;**|
0001be80  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001bec0  2a 0d 3b 0d 3b 20 20 20  49 4f 20 45 51 55 41 54  |*.;.;   IO EQUAT|
0001bed0  45 53 20 41 53 53 4f 43  49 41 54 45 44 20 57 49  |ES ASSOCIATED WI|
0001bee0  54 48 20 48 41 52 44 57  41 52 45 20 4f 4e 20 54  |TH HARDWARE ON T|
0001bef0  48 45 0d 3b 20 20 20 43  4f 4e 54 52 4f 4c 20 50  |HE.;   CONTROL P|
0001bf00  52 4f 43 45 53 53 4f 52  20 43 41 52 44 0d 3b 0d  |ROCESSOR CARD.;.|
0001bf10  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
0001bf20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001bf50  2a 2a 2a 2a 0d 50 54 49  56 45 43 20 20 20 45 51  |****.PTIVEC   EQ|
0001bf60  55 20 20 20 32 30 30 30  48 20 20 20 20 20 20 20  |U   2000H       |
0001bf70  20 20 20 20 3b 49 4e 54  45 52 52 55 50 54 20 49  |    ;INTERRUPT I|
0001bf80  44 0d 50 54 4f 50 54 20  20 20 20 45 51 55 20 20  |D.PTOPT    EQU  |
0001bf90  20 32 30 30 31 48 20 20  20 20 20 20 20 20 20 20  | 2001H          |
0001bfa0  20 3b 4f 50 54 49 4f 4e  53 20 50 52 45 53 45 4e  | ;OPTIONS PRESEN|
0001bfb0  54 0d 3b 20 20 20 20 20  20 20 20 20 20 20 20 20  |T.;             |
0001bfc0  20 2e 2e 2e 2e 20 2e 2e  2e 31 20 20 20 20 20 20  | .... ...1      |
0001bfd0  20 53 49 47 4e 41 54 55  52 45 0d 3b 20 20 20 20  | SIGNATURE.;    |
0001bfe0  20 20 20 20 20 20 20 20  20 20 2e 2e 2e 2e 20 2e  |          .... .|
0001bff0  2e 31 2e 20 20 20 20 20  20 20 52 54 50 41 0d 3b  |.1.       RTPA.;|
0001c000  20 20 20 20 20 20 20 20  20 20 20 20 20 20 2e 2e  |              ..|
0001c010  2e 2e 20 2e 31 2e 2e 20  20 20 20 20 20 20 52 53  |.. .1..       RS|
0001c020  2d 32 33 32 20 31 0d 3b  20 20 20 20 20 20 20 20  |-232 1.;        |
0001c030  20 20 20 20 20 20 2e 2e  2e 2e 20 31 2e 2e 2e 20  |      .... 1... |
0001c040  20 20 20 20 20 20 52 53  2d 32 33 32 20 32 0d 3b  |      RS-232 2.;|
0001c050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 2e 2e  |              ..|
0001c060  2e 31 20 2e 2e 2e 2e 20  20 20 20 20 20 20 4f 50  |.1 ....       OP|
0001c070  54 49 4f 4e 20 4d 45 4d  4f 52 59 0d 3b 20 20 20  |TION MEMORY.;   |
0001c080  20 20 20 20 20 20 20 20  20 20 20 2e 2e 31 2e 20  |           ..1. |
0001c090  2e 2e 2e 2e 20 20 20 20  20 20 20 30 3d 32 37 30  |....       0=270|
0001c0a0  38 20 31 3d 32 37 31 36  0d 50 54 4b 45 59 20 20  |8 1=2716.PTKEY  |
0001c0b0  20 20 45 51 55 20 20 20  32 30 30 32 48 20 20 20  |  EQU   2002H   |
0001c0c0  20 20 20 20 20 20 20 20  3b 4b 45 59 20 53 54 52  |        ;KEY STR|
0001c0d0  49 4b 45 20 49 4e 50 55  54 0d 50 54 49 4e 44 31  |IKE INPUT.PTIND1|
0001c0e0  20 20 20 45 51 55 20 20  20 32 30 30 33 48 20 20  |   EQU   2003H  |
0001c0f0  20 20 20 20 20 20 20 20  20 3b 49 4e 44 49 43 41  |         ;INDICA|
0001c100  54 4f 52 53 0d 50 54 42  53 20 20 20 20 20 45 51  |TORS.PTBS     EQ|
0001c110  55 20 20 20 32 30 30 34  48 20 20 20 20 20 20 20  |U   2004H       |
0001c120  20 20 20 20 3b 45 4d 55  4c 41 54 4f 52 20 4d 45  |    ;EMULATOR ME|
0001c130  4d 4f 52 59 20 42 41 4e  4b 20 53 45 4c 45 43 54  |MORY BANK SELECT|
0001c140  0d 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
0001c150  2e 2e 2e 2e 20 31 2e 2e  2e 20 20 20 20 20 20 20  |.... 1...       |
0001c160  4d 41 50 20 4d 4f 44 45  20 31 3d 41 4c 4c 20 43  |MAP MODE 1=ALL C|
0001c170  4f 4d 4d 4f 4e 20 4d 45  4d 4f 52 59 0d 3b 20 20  |OMMON MEMORY.;  |
0001c180  20 20 20 20 20 20 20 20  20 20 20 20 2e 2e 2e 2e  |            ....|
0001c190  20 2e 58 2e 2e 20 20 20  20 20 20 20 23 50 52 4f  | .X..       #PRO|
0001c1a0  4d 53 20 30 3d 31 20 31  3d 32 0d 3b 20 20 20 20  |MS 0=1 1=2.;    |
0001c1b0  20 20 20 20 20 20 20 20  20 20 2e 2e 2e 2e 20 2e  |          .... .|
0001c1c0  2e 31 31 20 20 20 20 20  20 20 42 41 4e 4b 20 53  |.11       BANK S|
0001c1d0  45 4c 45 43 54 0d 50 54  52 52 53 20 20 20 20 45  |ELECT.PTRRS    E|
0001c1e0  51 55 20 20 20 32 30 30  35 48 20 20 20 20 20 20  |QU   2005H      |
0001c1f0  20 20 20 20 20 3b 52 41  4d 20 52 4f 4d 20 45 4e  |     ;RAM ROM EN|
0001c200  41 42 4c 45 0d 3b 20 20  20 20 20 20 20 20 20 20  |ABLE.;          |
0001c210  20 20 20 20 31 31 31 31  20 31 31 2e 2e 20 20 20  |    1111 11..   |
0001c220  20 20 20 20 42 41 53 45  20 41 44 44 52 45 53 53  |    BASE ADDRESS|
0001c230  0d 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
0001c240  2e 2e 2e 2e 20 2e 2e 31  2e 20 20 20 20 20 20 20  |.... ..1.       |
0001c250  50 52 4f 4d 20 45 4e 41  42 4c 45 0d 3b 20 20 20  |PROM ENABLE.;   |
0001c260  20 20 20 20 20 20 20 20  20 20 20 2e 2e 2e 2e 20  |           .... |
0001c270  2e 2e 2e 31 20 20 20 20  20 20 20 52 41 4d 20 45  |...1       RAM E|
0001c280  4e 41 42 4c 45 0d 50 54  54 49 4d 20 20 20 20 45  |NABLE.PTTIM    E|
0001c290  51 55 20 20 20 32 30 30  36 48 20 20 20 20 20 20  |QU   2006H      |
0001c2a0  20 20 20 20 20 3b 54 49  4d 45 52 20 43 4f 55 4e  |     ;TIMER COUN|
0001c2b0  54 20 31 3d 31 30 30 20  4d 49 4c 4c 53 0d 3b 20  |T 1=100 MILLS.; |
0001c2c0  20 20 20 20 20 20 20 20  20 20 20 20 20 31 2e 2e  |             1..|
0001c2d0  2e 20 2e 2e 2e 2e 20 20  20 20 20 20 20 45 4e 41  |. ....       ENA|
0001c2e0  42 4c 45 0d 3b 20 20 20  20 20 20 20 20 20 20 20  |BLE.;           |
0001c2f0  20 20 20 2e 58 58 58 20  58 58 58 58 20 20 20 20  |   .XXX XXXX    |
0001c300  20 20 20 43 4f 55 4e 54  0d 50 54 49 4e 44 32 20  |   COUNT.PTIND2 |
0001c310  20 20 45 51 55 20 20 20  32 30 30 37 48 20 20 20  |  EQU   2007H   |
0001c320  20 20 20 20 20 20 20 20  3b 49 4e 44 49 43 41 54  |        ;INDICAT|
0001c330  4f 52 53 0d 50 54 4f 50  4d 20 20 20 20 45 51 55  |ORS.PTOPM    EQU|
0001c340  20 20 20 32 30 30 38 48  20 20 20 20 20 20 20 20  |   2008H        |
0001c350  20 20 20 3b 4f 50 54 49  4f 4e 20 4d 45 4d 4f 52  |   ;OPTION MEMOR|
0001c360  59 20 43 4f 4e 54 52 4f  4c 0d 3b 20 20 20 20 20  |Y CONTROL.;     |
0001c370  20 20 20 20 20 20 20 20  20 31 31 31 31 20 31 31  |         1111 11|
0001c380  2e 2e 20 20 20 20 20 20  20 42 41 53 45 20 41 44  |..       BASE AD|
0001c390  44 52 45 53 53 0d 3b 20  20 20 20 20 20 20 20 20  |DRESS.;         |
0001c3a0  20 20 20 20 20 2e 2e 2e  2e 20 2e 2e 2e 31 20 20  |     .... ...1  |
0001c3b0  20 20 20 20 20 45 4e 41  42 4c 45 0d 3b 0d 3b 2a  |     ENABLE.;.;*|
0001c3c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001c400  2a 0d 3b 0d 3b 20 20 49  4f 20 45 51 55 41 54 45  |*.;.;  IO EQUATE|
0001c410  53 20 46 4f 52 20 53 49  47 41 4e 20 43 41 52 44  |S FOR SIGAN CARD|
0001c420  0d 3b 0d 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.;.;************|
0001c430  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001c460  2a 2a 2a 2a 2a 2a 0d 50  54 53 49 47 30 20 20 20  |******.PTSIG0   |
0001c470  45 51 55 20 20 20 32 30  41 30 48 20 20 20 20 20  |EQU   20A0H     |
0001c480  20 20 20 20 20 20 3b 53  49 47 41 4e 20 43 4f 4e  |      ;SIGAN CON|
0001c490  54 52 4f 4c 20 4f 55 54  20 30 0d 50 54 53 49 47  |TROL OUT 0.PTSIG|
0001c4a0  31 20 20 20 45 51 55 20  20 20 32 30 41 31 48 20  |1   EQU   20A1H |
0001c4b0  20 20 20 20 20 20 20 20  20 20 3b 53 49 47 41 4e  |          ;SIGAN|
0001c4c0  20 43 4f 4e 54 52 4f 4c  20 4f 55 54 20 31 0d 50  | CONTROL OUT 1.P|
0001c4d0  54 53 49 47 32 20 20 20  45 51 55 20 20 20 32 30  |TSIG2   EQU   20|
0001c4e0  41 32 48 20 20 20 20 20  20 20 20 20 20 20 3b 53  |A2H           ;S|
0001c4f0  49 47 41 4e 20 43 4f 4e  54 52 4f 4c 20 4f 55 54  |IGAN CONTROL OUT|
0001c500  20 32 2f 53 54 41 54 55  53 20 49 4e 0d 50 54 53  | 2/STATUS IN.PTS|
0001c510  49 47 33 20 20 20 45 51  55 20 20 20 32 30 41 33  |IG3   EQU   20A3|
0001c520  48 20 20 20 20 20 20 20  20 20 20 20 3b 53 49 47  |H           ;SIG|
0001c530  41 4e 20 52 45 53 45 54  20 4f 55 54 2f 4d 53 42  |AN RESET OUT/MSB|
0001c540  20 49 4e 54 45 52 56 41  4c 2b 4f 56 46 0d 50 54  | INTERVAL+OVF.PT|
0001c550  53 49 47 34 20 20 20 45  51 55 20 20 20 32 30 41  |SIG4   EQU   20A|
0001c560  34 48 20 20 20 20 20 20  20 20 20 20 20 3b 53 49  |4H           ;SI|
0001c570  47 41 4e 20 4d 53 42 20  43 4f 55 4e 54 20 4f 55  |GAN MSB COUNT OU|
0001c580  54 2f 4d 53 42 20 53 49  47 20 49 4e 0d 50 54 53  |T/MSB SIG IN.PTS|
0001c590  49 47 35 20 20 20 45 51  55 20 20 20 32 30 41 35  |IG5   EQU   20A5|
0001c5a0  48 20 20 20 20 20 20 20  20 20 20 20 3b 53 49 47  |H           ;SIG|
0001c5b0  41 4e 20 4c 53 42 20 43  4f 55 4e 54 20 4f 55 54  |AN LSB COUNT OUT|
0001c5c0  2f 4d 53 42 20 53 49 47  4e 41 54 55 52 45 20 49  |/MSB SIGNATURE I|
0001c5d0  4e 0d 50 54 53 49 47 36  20 20 20 45 51 55 20 20  |N.PTSIG6   EQU  |
0001c5e0  20 32 30 41 36 48 20 20  20 20 20 20 20 20 20 20  | 20A6H          |
0001c5f0  20 3b 53 49 47 41 4e 20  4d 53 42 20 53 54 4f 50  | ;SIGAN MSB STOP|
0001c600  20 41 44 44 52 20 4f 55  54 2f 44 45 43 41 44 45  | ADDR OUT/DECADE|
0001c610  20 49 4e 0d 50 54 53 49  47 37 20 20 20 45 51 55  | IN.PTSIG7   EQU|
0001c620  20 20 20 32 30 41 37 48  20 20 20 20 20 20 20 20  |   20A7H        |
0001c630  20 20 20 3b 53 49 47 41  4e 20 4c 53 42 20 53 54  |   ;SIGAN LSB ST|
0001c640  4f 50 20 41 44 44 52 20  4f 55 54 2f 44 45 43 41  |OP ADDR OUT/DECA|
0001c650  44 45 20 49 4e 0d 50 54  53 49 47 38 20 20 20 45  |DE IN.PTSIG8   E|
0001c660  51 55 20 20 20 32 30 41  38 48 20 20 20 20 20 20  |QU   20A8H      |
0001c670  20 20 20 20 20 3b 53 49  47 41 4e 20 44 45 43 41  |     ;SIGAN DECA|
0001c680  44 45 20 49 4e 0d 50 54  53 49 47 39 20 20 20 45  |DE IN.PTSIG9   E|
0001c690  51 55 20 20 20 32 30 41  39 48 20 20 20 20 20 20  |QU   20A9H      |
0001c6a0  20 20 20 20 20 3b 53 49  47 41 4e 20 44 45 43 41  |     ;SIGAN DECA|
0001c6b0  44 45 20 49 4e 0d 50 54  53 49 47 45 20 20 20 45  |DE IN.PTSIGE   E|
0001c6c0  51 55 20 20 20 32 30 41  45 48 20 20 20 20 20 20  |QU   20AEH      |
0001c6d0  20 20 20 20 20 3b 53 49  47 41 4e 20 4d 53 42 20  |     ;SIGAN MSB |
0001c6e0  53 54 41 52 54 20 41 44  44 52 20 4f 55 54 0d 50  |START ADDR OUT.P|
0001c6f0  54 53 49 47 46 20 20 20  45 51 55 20 20 20 32 30  |TSIGF   EQU   20|
0001c700  41 46 48 20 20 20 20 20  20 20 20 20 20 20 3b 53  |AFH           ;S|
0001c710  49 47 41 4e 20 4c 53 42  20 53 54 41 52 54 20 41  |IGAN LSB START A|
0001c720  44 44 52 20 4f 55 54 0d  20 20 20 20 20 20 20 20  |DDR OUT.        |
0001c730  50 41 47 45 0d 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |PAGE.;**********|
0001c740  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001c770  0d 3b 0d 3b 20 20 20 44  45 42 55 47 20 43 4f 4e  |.;.;   DEBUG CON|
0001c780  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
0001c800  44 43 4d 44 20 20 20 45  51 55 20 20 20 32 30 46  |DCMD   EQU   20F|
0001c810  39 48 20 20 20 20 20 20  20 20 20 20 20 3b 44 45  |9H           ;DE|
0001c820  42 55 47 20 43 4f 4d 4d  41 4e 44 0d 50 54 4a 41  |BUG COMMAND.PTJA|
0001c830  4c 20 20 20 20 45 51 55  20 20 20 32 30 46 41 48  |L    EQU   20FAH|
0001c840  20 20 20 20 20 20 20 20  20 20 20 3b 46 4f 52 43  |           ;FORC|
0001c850  45 20 4a 55 4d 50 20 4c  4f 0d 50 54 4a 41 48 20  |E JUMP LO.PTJAH |
0001c860  20 20 20 45 51 55 20 20  20 32 30 46 42 48 20 20  |   EQU   20FBH  |
0001c870  20 20 20 20 20 20 20 20  20 3b 46 4f 52 43 45 20  |         ;FORCE |
0001c880  4a 55 4d 50 20 48 49 0d  50 54 42 50 31 4c 20 20  |JUMP HI.PTBP1L  |
0001c890  20 45 51 55 20 20 20 32  30 46 43 48 20 20 20 20  | EQU   20FCH    |
0001c8a0  20 20 20 20 20 20 20 3b  42 52 45 41 4b 20 31 20  |       ;BREAK 1 |
0001c8b0  4f 55 54 2f 50 43 2d 4e  45 58 54 20 20 20 49 4e  |OUT/PC-NEXT   IN|
0001c8c0  20 4c 4f 0d 50 54 42 50  31 48 20 20 20 45 51 55  | LO.PTBP1H   EQU|
0001c8d0  20 20 20 32 30 46 44 48  20 20 20 20 20 20 20 20  |   20FDH        |
0001c8e0  20 20 20 3b 42 52 45 41  4b 20 31 20 4f 55 54 2f  |   ;BREAK 1 OUT/|
0001c8f0  50 43 2d 4e 45 58 54 20  20 20 49 4e 20 48 49 0d  |PC-NEXT   IN HI.|
0001c900  50 54 42 50 32 4c 20 20  20 45 51 55 20 20 20 32  |PTBP2L   EQU   2|
0001c910  30 46 45 48 20 20 20 20  20 20 20 20 20 20 20 3b  |0FEH           ;|
0001c920  42 52 45 41 4b 20 32 20  4f 55 54 2f 50 43 2d 4c  |BREAK 2 OUT/PC-L|
0001c930  41 53 54 20 20 20 49 4e  20 4c 4f 0d 50 54 42 50  |AST   IN LO.PTBP|
0001c940  32 48 20 20 20 45 51 55  20 20 20 32 30 46 46 48  |2H   EQU   20FFH|
0001c950  20 20 20 20 20 20 20 20  20 20 20 3b 42 52 45 41  |           ;BREA|
0001c960  4b 20 32 20 4f 55 54 2f  50 43 2d 4c 41 53 54 20  |K 2 OUT/PC-LAST |
0001c970  20 20 49 4e 20 48 49 0d  50 54 38 30 38 30 20 20  |  IN HI.PT8080  |
0001c980  20 45 51 55 20 20 20 32  30 45 31 48 20 20 20 20  | EQU   20E1H    |
0001c990  20 20 20 20 20 20 20 3b  38 30 38 30 20 43 4f 4e  |       ;8080 CON|
0001c9a0  54 52 4f 4c 0d 50 54 36  38 30 30 20 20 20 45 51  |TROL.PT6800   EQ|
0001c9b0  55 20 20 20 32 30 45 32  48 20 20 20 20 20 20 20  |U   20E2H       |
0001c9c0  20 20 20 20 3b 36 38 30  30 20 43 4f 4e 54 52 4f  |    ;6800 CONTRO|
0001c9d0  4c 0d 50 54 38 30 38 35  20 20 45 51 55 20 20 20  |L.PT8085  EQU   |
0001c9e0  32 30 45 35 48 20 20 20  20 20 20 20 20 20 20 20  |20E5H           |
0001c9f0  3b 38 30 38 35 20 43 4f  4e 54 52 4f 4c 0d 3b 0d  |;8085 CONTROL.;.|
0001ca00  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
0001ca10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001ca40  2a 2a 2a 2a 0d 3b 20 20  43 4f 4d 2d 52 41 4d 20  |****.;  COM-RAM |
0001ca50  43 41 52 44 20 49 4f 20  44 45 46 49 4e 49 54 49  |CARD IO DEFINITI|
0001ca60  4f 4e 53 0d 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |ONS.;***********|
0001ca70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001caa0  2a 2a 2a 2a 2a 2a 2a 2a  0d 43 52 42 53 41 44 20  |********.CRBSAD |
0001cab0  20 45 51 55 20 20 20 20  32 30 31 38 48 20 20 20  | EQU    2018H   |
0001cac0  20 20 20 20 20 20 20 3b  52 41 4d 20 42 41 53 45  |       ;RAM BASE|
0001cad0  20 41 44 44 52 20 41 4e  44 20 42 4c 4f 43 4b 20  | ADDR AND BLOCK |
0001cae0  53 49 5a 45 20 20 28 57  52 49 54 45 29 0d 43 52  |SIZE  (WRITE).CR|
0001caf0  50 52 45 4e 20 20 45 51  55 20 20 20 20 32 30 31  |PREN  EQU    201|
0001cb00  39 48 20 20 20 20 20 20  20 20 20 20 3b 52 41 4d  |9H          ;RAM|
0001cb10  20 45 4e 41 42 4c 45 20  20 28 57 52 49 54 45 29  | ENABLE  (WRITE)|
0001cb20  0d 43 52 50 52 43 46 20  20 45 51 55 20 20 20 20  |.CRPRCF  EQU    |
0001cb30  32 30 31 39 48 20 20 20  20 20 20 20 20 20 20 3b  |2019H          ;|
0001cb40  50 52 4f 4d 20 43 4f 4e  46 49 47 55 52 41 54 49  |PROM CONFIGURATI|
0001cb50  4f 4e 20 28 52 45 41 44  29 0d 43 52 42 41 55 44  |ON (READ).CRBAUD|
0001cb60  20 20 45 51 55 20 20 20  20 32 30 31 41 48 20 20  |  EQU    201AH  |
0001cb70  20 20 20 20 20 20 20 20  3b 42 41 55 44 20 52 41  |        ;BAUD RA|
0001cb80  54 45 20 43 4f 4e 54 52  4f 4c 20 28 57 52 49 54  |TE CONTROL (WRIT|
0001cb90  45 29 0d 43 52 4f 50 53  57 20 20 45 51 55 20 20  |E).CROPSW  EQU  |
0001cba0  20 20 32 30 31 41 48 20  20 20 20 20 20 20 20 20  |  201AH         |
0001cbb0  20 3b 4f 50 54 49 4f 4e  20 53 57 49 54 43 48 45  | ;OPTION SWITCHE|
0001cbc0  53 20 28 52 45 41 44 29  0d 43 52 41 43 44 41 20  |S (READ).CRACDA |
0001cbd0  20 45 51 55 20 20 20 20  32 30 31 42 48 20 20 20  | EQU    201BH   |
0001cbe0  20 20 20 20 20 20 20 3b  41 43 49 41 20 44 41 54  |       ;ACIA DAT|
0001cbf0  41 20 50 4f 52 54 20 28  52 45 41 44 2d 57 52 49  |A PORT (READ-WRI|
0001cc00  54 45 29 0d 43 52 41 43  53 43 20 20 45 51 55 20  |TE).CRACSC  EQU |
0001cc10  20 20 20 32 30 31 43 48  20 20 20 20 20 20 20 20  |   201CH        |
0001cc20  20 20 3b 41 43 49 41 20  53 54 41 54 55 53 20 41  |  ;ACIA STATUS A|
0001cc30  4e 44 20 43 4f 4e 54 52  4f 4c 28 52 45 41 44 20  |ND CONTROL(READ |
0001cc40  57 52 49 54 45 29 0d 43  52 42 41 55 44 32 20 20  |WRITE).CRBAUD2  |
0001cc50  45 51 55 20 20 20 32 30  31 44 48 20 20 20 20 20  |EQU   201DH     |
0001cc60  20 20 20 20 20 3b 42 41  55 44 20 52 41 54 45 20  |     ;BAUD RATE |
0001cc70  43 4f 4e 54 52 4f 4c 20  32 20 28 57 52 49 54 45  |CONTROL 2 (WRITE|
0001cc80  29 0d 43 52 4f 50 53 57  32 20 20 45 51 55 20 20  |).CROPSW2  EQU  |
0001cc90  20 32 30 31 44 48 20 20  20 20 20 20 20 20 20 20  | 201DH          |
0001cca0  3b 4f 50 54 49 4f 4e 20  53 57 49 54 43 48 45 53  |;OPTION SWITCHES|
0001ccb0  20 32 20 28 52 45 41 44  29 0d 43 52 41 43 44 41  | 2 (READ).CRACDA|
0001ccc0  32 20 20 45 51 55 20 20  20 32 30 31 45 48 20 20  |2  EQU   201EH  |
0001ccd0  20 20 20 20 20 20 20 20  3b 41 43 49 41 20 44 41  |        ;ACIA DA|
0001cce0  54 41 20 50 4f 52 54 20  32 20 28 52 2d 57 29 0d  |TA PORT 2 (R-W).|
0001ccf0  43 52 41 43 53 43 32 20  20 45 51 55 20 20 20 32  |CRACSC2  EQU   2|
0001cd00  30 31 46 48 20 20 20 20  20 20 20 20 20 20 3b 41  |01FH          ;A|
0001cd10  43 49 41 20 53 54 41 54  55 53 20 26 20 43 4f 4e  |CIA STATUS & CON|
0001cd20  54 52 4f 4c 20 32 20 28  52 2d 57 29 0d 3b 2a 2a  |TROL 2 (R-W).;**|
0001cd30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001cd70  2a 0d 3b 20 20 41 43 49  41 20 53 54 41 54 55 53  |*.;  ACIA STATUS|
0001cd80  20 52 45 47 49 53 54 45  52 20 45 51 55 41 54 45  | REGISTER EQUATE|
0001cd90  53 0d 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |S.;*************|
0001cda0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001cdd0  2a 2a 2a 2a 2a 2a 0d 52  44 52 46 20 20 20 20 45  |******.RDRF    E|
0001cde0  51 55 20 20 20 20 31 48  20 20 20 20 20 20 20 20  |QU    1H        |
0001cdf0  20 20 20 20 20 3b 52 45  43 45 49 56 45 20 44 41  |     ;RECEIVE DA|
0001ce00  54 41 20 52 45 47 49 53  54 45 52 20 46 55 4c 4c  |TA REGISTER FULL|
0001ce10  0d 54 44 52 45 20 20 20  20 45 51 55 20 20 20 20  |.TDRE    EQU    |
0001ce20  32 48 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |2H             ;|
0001ce30  54 52 41 4e 53 4d 49 54  20 44 41 54 41 20 52 45  |TRANSMIT DATA RE|
0001ce40  47 49 53 54 45 52 20 45  4d 50 54 59 0d 44 43 44  |GISTER EMPTY.DCD|
0001ce50  20 20 20 20 20 45 51 55  20 20 20 20 34 48 20 20  |     EQU    4H  |
0001ce60  20 20 20 20 20 20 20 20  20 20 20 3b 44 41 54 41  |           ;DATA|
0001ce70  20 43 41 52 52 49 45 52  20 44 45 54 45 43 54 0d  | CARRIER DETECT.|
0001ce80  43 54 53 20 20 20 20 20  45 51 55 20 20 20 20 38  |CTS     EQU    8|
0001ce90  48 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 43  |H             ;C|
0001cea0  4c 45 41 52 20 54 4f 20  53 45 4e 44 0d 46 45 20  |LEAR TO SEND.FE |
0001ceb0  20 20 20 20 20 45 51 55  20 20 20 20 31 30 48 20  |     EQU    10H |
0001cec0  20 20 20 20 20 20 20 20  20 20 20 3b 46 52 41 4d  |           ;FRAM|
0001ced0  49 4e 47 20 45 52 52 4f  52 0d 4f 56 52 4e 20 20  |ING ERROR.OVRN  |
0001cee0  20 20 45 51 55 20 20 20  20 32 30 48 20 20 20 20  |  EQU    20H    |
0001cef0  20 20 20 20 20 20 20 20  3b 4f 56 45 52 55 4e 0d  |        ;OVERUN.|
0001cf00  50 45 20 20 20 20 20 20  45 51 55 20 20 20 20 34  |PE      EQU    4|
0001cf10  30 48 20 20 20 20 20 20  20 20 20 20 20 20 3b 50  |0H            ;P|
0001cf20  41 52 49 54 59 20 45 52  52 4f 52 0d 49 52 51 20  |ARITY ERROR.IRQ |
0001cf30  20 20 20 20 45 51 55 20  20 20 20 38 30 48 20 20  |    EQU    80H  |
0001cf40  20 20 20 20 20 20 20 20  20 20 3b 49 4e 54 45 52  |          ;INTER|
0001cf50  55 50 54 20 52 45 51 55  45 53 54 0d 3b 0d 3b 2a  |UPT REQUEST.;.;*|
0001cf60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
0001cf70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 3b 0d 3b  |************.;.;|
0001cf80  41 43 49 41 20 43 4f 4e  54 52 4f 4c 20 52 45 47  |ACIA CONTROL REG|
0001cf90  49 53 54 45 52 20 45 51  55 41 54 45 53 0d 3b 0d  |ISTER EQUATES.;.|
0001cfa0  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
0001cfb0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 44  |**************.D|
0001cfc0  49 56 31 20 20 20 20 20  45 51 55 20 20 20 30 48  |IV1     EQU   0H|
0001cfd0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 44 49  |             ;DI|
0001cfe0  56 20 42 59 20 31 0d 44  49 56 31 36 20 20 20 20  |V BY 1.DIV16    |
0001cff0  45 51 55 20 20 20 31 48  20 20 20 20 20 20 20 20  |EQU   1H        |
0001d000  20 20 20 20 20 3b 44 49  56 20 42 59 20 31 36 0d  |     ;DIV BY 16.|
0001d010  44 49 56 36 34 20 20 20  20 45 51 55 20 20 20 32  |DIV64    EQU   2|
0001d020  48 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 44  |H             ;D|
0001d030  49 56 20 42 59 20 36 34  0d 4d 53 54 52 53 54 20  |IV BY 64.MSTRST |
0001d040  20 20 45 51 55 20 20 20  33 48 20 20 20 20 20 20  |  EQU   3H      |
0001d050  20 20 20 20 20 20 20 3b  4d 41 53 54 45 52 20 52  |       ;MASTER R|
0001d060  45 53 45 54 0d 42 37 45  50 32 53 20 20 20 45 51  |ESET.B7EP2S   EQ|
0001d070  55 20 20 20 30 48 20 20  20 20 20 20 20 20 20 20  |U   0H          |
0001d080  20 20 20 3b 37 20 42 49  54 53 20 45 56 45 4e 20  |   ;7 BITS EVEN |
0001d090  50 41 52 49 54 59 20 32  20 53 54 4f 50 20 42 49  |PARITY 2 STOP BI|
0001d0a0  54 53 0d 42 37 4f 50 32  53 20 20 20 45 51 55 20  |TS.B7OP2S   EQU |
0001d0b0  20 20 34 48 20 20 20 20  20 20 20 20 20 20 20 20  |  4H            |
0001d0c0  20 3b 37 20 42 49 54 53  20 4f 44 44 20 50 41 52  | ;7 BITS ODD PAR|
0001d0d0  49 54 59 20 32 20 53 54  4f 50 20 42 49 54 53 0d  |ITY 2 STOP BITS.|
0001d0e0  42 37 45 50 31 53 20 20  20 45 51 55 20 20 20 38  |B7EP1S   EQU   8|
0001d0f0  48 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 37  |H             ;7|
0001d100  20 42 49 54 53 20 45 56  45 4e 20 50 41 52 49 54  | BITS EVEN PARIT|
0001d110  59 20 31 20 53 54 4f 50  20 42 49 54 0d 42 37 4f  |Y 1 STOP BIT.B7O|
0001d120  50 31 53 20 20 20 45 51  55 20 20 20 30 43 48 20  |P1S   EQU   0CH |
0001d130  20 20 20 20 20 20 20 20  20 20 20 3b 37 20 42 49  |           ;7 BI|
0001d140  54 53 20 4f 44 44 20 50  41 52 49 54 59 20 31 20  |TS ODD PARITY 1 |
0001d150  53 54 4f 50 20 42 49 54  0d 42 38 32 53 20 20 20  |STOP BIT.B82S   |
0001d160  20 20 45 51 55 20 20 20  31 30 48 20 20 20 20 20  |  EQU   10H     |
0001d170  20 20 20 20 20 20 20 3b  38 20 42 49 54 53 20 32  |       ;8 BITS 2|
0001d180  20 53 54 4f 50 20 42 49  54 53 0d 42 38 31 53 20  | STOP BITS.B81S |
0001d190  20 20 20 20 45 51 55 20  20 20 31 34 48 20 20 20  |    EQU   14H   |
0001d1a0  20 20 20 20 20 20 20 20  20 3b 38 20 42 49 54 53  |         ;8 BITS|
0001d1b0  20 31 20 53 54 4f 50 20  42 49 54 0d 42 38 45 50  | 1 STOP BIT.B8EP|
0001d1c0  31 53 20 20 20 45 51 55  20 20 20 31 38 48 20 20  |1S   EQU   18H  |
0001d1d0  20 20 20 20 20 20 20 20  20 20 3b 38 20 42 49 54  |          ;8 BIT|
0001d1e0  53 20 45 56 45 4e 20 50  41 52 49 54 59 20 4f 4e  |S EVEN PARITY ON|
0001d1f0  45 20 53 54 4f 50 20 42  49 54 0d 42 38 4f 50 31  |E STOP BIT.B8OP1|
0001d200  53 20 20 20 45 51 55 20  20 20 31 43 48 20 20 20  |S   EQU   1CH   |
0001d210  20 20 20 20 20 20 20 20  20 3b 38 20 42 49 54 53  |         ;8 BITS|
0001d220  20 4f 44 44 20 50 41 52  49 54 59 20 4f 4e 45 20  | ODD PARITY ONE |
0001d230  53 54 4f 50 20 42 49 54  0d 52 54 53 4c 49 44 20  |STOP BIT.RTSLID |
0001d240  20 20 45 51 55 20 20 20  30 48 20 20 20 20 20 20  |  EQU   0H      |
0001d250  20 20 20 20 20 20 20 3b  52 54 53 20 4c 4f 57 20  |       ;RTS LOW |
0001d260  58 4d 49 54 20 49 4e 54  20 44 49 53 41 42 4c 45  |XMIT INT DISABLE|
0001d270  44 0d 52 54 53 4c 49 45  20 20 20 45 51 55 20 20  |D.RTSLIE   EQU  |
0001d280  20 32 30 48 20 20 20 20  20 20 20 20 20 20 20 20  | 20H            |
0001d290  3b 52 54 53 20 4c 4f 57  20 58 4d 49 54 20 49 4e  |;RTS LOW XMIT IN|
0001d2a0  54 20 45 4e 41 42 4c 45  44 0d 52 54 53 48 49 44  |T ENABLED.RTSHID|
0001d2b0  20 20 20 45 51 55 20 20  20 34 30 48 20 20 20 20  |   EQU   40H    |
0001d2c0  20 20 20 20 20 20 20 20  3b 52 54 53 20 48 49 47  |        ;RTS HIG|
0001d2d0  48 20 58 4d 49 54 20 49  4e 54 20 44 49 53 41 50  |H XMIT INT DISAP|
0001d2e0  4c 45 44 0d 52 54 53 4c  42 4c 20 20 20 45 51 55  |LED.RTSLBL   EQU|
0001d2f0  20 20 20 36 30 48 20 20  20 20 20 20 20 20 20 20  |   60H          |
0001d300  20 20 3b 52 54 53 20 4c  4f 57 20 58 4d 49 54 20  |  ;RTS LOW XMIT |
0001d310  42 52 45 41 4b 20 4c 45  56 45 4c 2d 58 4d 49 54  |BREAK LEVEL-XMIT|
0001d320  20 49 4e 54 20 44 49 53  41 42 4c 45 44 0d 52 49  | INT DISABLED.RI|
0001d330  45 42 20 20 20 20 20 45  51 55 20 20 20 38 30 48  |EB     EQU   80H|
0001d340  20 20 20 20 20 20 20 20  20 20 20 20 3b 52 43 56  |            ;RCV|
0001d350  52 20 49 4e 54 20 45 4e  41 42 4c 45 0d 20 20 20  |R INT ENABLE.   |
0001d360  20 20 20 20 20 50 41 47  45 0d 3b 2a 2a 2a 2a 2a  |     PAGE.;*****|
0001d370  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001d390  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
0001d3a0  3b 0d 3b 20 20 55 53 41  20 54 45 53 54 20 57 4f  |;.;  USA TEST WO|
0001d3b0  52 4b 49 4e 47 20 44 41  54 41 20 42 41 53 45 0d  |RKING DATA BASE.|
0001d3c0  3b 0d 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;.;*************|
0001d3d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001d3f0  2a 2a 2a 2a 2a 2a 2a 0d  3b 0d 20 20 20 20 20 20  |*******.;.      |
0001d400  20 20 4f 52 47 20 20 20  20 50 42 41 53 45 0d 3b  |  ORG    PBASE.;|
0001d410  0d 51 54 4f 50 20 20 20  20 42 4c 4f 43 4b 20 20  |.QTOP    BLOCK  |
0001d420  31 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1               |
0001d430  3b 54 45 53 54 20 4f 50  54 49 4f 4e 20 42 59 54  |;TEST OPTION BYT|
0001d440  45 0d 3b 20 20 43 4f 4e  54 41 49 4e 53 20 54 48  |E.;  CONTAINS TH|
0001d450  45 20 46 4f 4c 4c 4f 57  49 4e 47 20 4f 50 54 49  |E FOLLOWING OPTI|
0001d460  4f 4e 20 42 49 54 53 0d  53 49 47 4f 50 54 20 20  |ON BITS.SIGOPT  |
0001d470  45 51 55 20 20 20 20 38  30 48 20 20 20 20 20 20  |EQU    80H      |
0001d480  20 20 20 20 20 20 20 3b  54 41 4b 49 4e 47 20 53  |       ;TAKING S|
0001d490  49 47 4e 41 54 55 52 45  53 0d 48 4c 54 4f 50 54  |IGNATURES.HLTOPT|
0001d4a0  20 20 45 51 55 20 20 20  20 34 30 48 20 20 20 20  |  EQU    40H    |
0001d4b0  20 20 20 20 20 20 20 20  20 3b 48 41 4c 54 20 4f  |         ;HALT O|
0001d4c0  4e 20 45 52 52 4f 52 53  0d 3b 0d 53 49 47 46 4c  |N ERRORS.;.SIGFL|
0001d4d0  47 20 20 42 4c 4f 43 4b  20 20 31 20 20 20 20 20  |G  BLOCK  1     |
0001d4e0  20 20 20 20 20 20 20 20  20 20 3b 53 49 47 4e 41  |          ;SIGNA|
0001d4f0  54 55 52 45 20 46 4c 41  47 0d 49 4e 49 54 46 4c  |TURE FLAG.INITFL|
0001d500  20 20 42 4c 4f 43 4b 20  20 31 20 20 20 20 20 20  |  BLOCK  1      |
0001d510  20 20 20 20 20 20 20 20  20 3b 49 4e 49 54 49 41  |         ;INITIA|
0001d520  4c 49 5a 45 20 46 4c 41  47 0d 45 52 52 46 4c 47  |LIZE FLAG.ERRFLG|
0001d530  20 20 42 4c 4f 43 4b 20  20 31 20 20 20 20 20 20  |  BLOCK  1      |
0001d540  20 20 20 20 20 20 20 20  20 3b 45 52 52 4f 52 20  |         ;ERROR |
0001d550  46 4c 41 47 0d 3b 0d 53  56 43 20 20 20 20 20 42  |FLAG.;.SVC     B|
0001d560  4c 4f 43 4b 20 20 31 20  20 20 20 20 20 20 20 20  |LOCK  1         |
0001d570  20 20 20 20 20 20 3b 53  55 50 45 52 56 49 53 4f  |      ;SUPERVISO|
0001d580  52 20 43 41 4c 4c 20 42  59 54 45 0d 53 56 43 50  |R CALL BYTE.SVCP|
0001d590  20 20 20 20 42 4c 4f 43  4b 20 20 32 20 20 20 20  |    BLOCK  2    |
0001d5a0  20 20 20 20 20 20 20 20  20 20 20 3b 53 56 43 20  |           ;SVC |
0001d5b0  50 4f 49 4e 54 45 52 0d  44 45 4c 41 59 20 20 20  |POINTER.DELAY   |
0001d5c0  42 4c 4f 43 4b 20 20 31  20 20 20 20 20 20 20 20  |BLOCK  1        |
0001d5d0  20 20 20 20 20 20 20 3b  44 45 4c 41 59 20 54 49  |       ;DELAY TI|
0001d5e0  4d 45 0d 53 54 41 54 55  53 20 20 42 4c 4f 43 4b  |ME.STATUS  BLOCK|
0001d5f0  20 20 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |  1             |
0001d600  20 20 3b 53 59 53 54 45  4d 20 53 54 41 54 55 53  |  ;SYSTEM STATUS|
0001d610  0d 3b 0d 54 45 4d 50 31  20 20 20 42 4c 4f 43 4b  |.;.TEMP1   BLOCK|
0001d620  20 20 32 20 20 20 20 20  20 20 20 20 20 20 20 20  |  2             |
0001d630  20 20 3b 54 45 4d 50 4f  52 41 52 59 20 57 4f 52  |  ;TEMPORARY WOR|
0001d640  4b 49 4e 47 20 53 54 4f  52 41 47 45 0d 54 45 4d  |KING STORAGE.TEM|
0001d650  50 32 20 20 20 42 4c 4f  43 4b 20 20 32 0d 54 45  |P2   BLOCK  2.TE|
0001d660  4d 50 33 20 20 20 42 4c  4f 43 4b 20 20 32 0d 54  |MP3   BLOCK  2.T|
0001d670  45 4d 50 34 20 20 20 42  4c 4f 43 4b 20 20 32 0d  |EMP4   BLOCK  2.|
0001d680  3b 0d 20 20 20 20 20 20  20 20 50 41 47 45 0d 20  |;.        PAGE. |
0001d690  20 20 20 20 20 20 20 20  53 54 49 54 4c 45 20 22  |        STITLE "|
0001d6a0  43 4f 4d 2d 52 41 4d 20  54 45 53 54 20 23 20 33  |COM-RAM TEST # 3|
0001d6b0  20 20 39 32 30 2d 30 30  30 39 39 2d 30 32 2d 42  |  920-00099-02-B|
0001d6c0  22 0d 3b 0d 3b 20 43 4f  4d 4d 2d 52 41 4d 20 54  |".;.; COMM-RAM T|
0001d6d0  45 53 54 20 44 41 54 41  20 42 41 53 45 0d 3b 0d  |EST DATA BASE.;.|
0001d6e0  42 41 55 44 20 20 20 20  20 42 4c 4f 43 4b 20 32  |BAUD     BLOCK 2|
0001d6f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 42  |              ;B|
0001d700  41 55 44 20 52 41 54 45  20 44 49 53 50 4c 41 59  |AUD RATE DISPLAY|
0001d710  45 44 0d 45 58 50 53 54  41 20 20 20 42 4c 4f 43  |ED.EXPSTA   BLOC|
0001d720  4b 20 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |K 1             |
0001d730  20 3b 45 58 50 45 43 54  45 44 20 53 54 41 54 55  | ;EXPECTED STATU|
0001d740  53 0d 45 58 50 53 54 41  31 20 20 42 4c 4f 43 4b  |S.EXPSTA1  BLOCK|
0001d750  20 31 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | 1              |
0001d760  3b 45 58 50 45 43 54 45  44 20 53 54 41 54 55 53  |;EXPECTED STATUS|
0001d770  20 28 31 29 0d 53 54 41  50 4f 52 54 20 20 42 4c  | (1).STAPORT  BL|
0001d780  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
0001d800  44 54 41 52 44 20 20 20  20 42 4c 4f 43 4b 20 31  |DTARD    BLOCK 1|
0001d810  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 44  |              ;D|
0001d820  41 54 41 20 52 45 41 44  0d 43 4e 54 39 35 31 20  |ATA READ.CNT951 |
0001d830  20 20 42 4c 4f 43 4b 20  31 20 20 20 20 20 20 20  |  BLOCK 1       |
0001d840  20 20 20 20 20 20 20 3b  39 35 25 20 43 4f 55 4e  |       ;95% COUN|
0001d850  54 45 52 20 31 0d 43 4e  54 39 35 32 20 20 20 42  |TER 1.CNT952   B|
0001d860  4c 4f 43 4b 20 31 20 20  20 20 20 20 20 20 20 20  |LOCK 1          |
0001d870  20 20 20 20 3b 39 35 25  20 43 4f 55 4e 54 45 52  |    ;95% COUNTER|
0001d880  20 32 0d 43 4e 54 31 30  31 20 20 20 42 4c 4f 43  | 2.CNT101   BLOC|
0001d890  4b 20 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |K 1             |
0001d8a0  20 3b 31 30 25 20 43 4f  55 4e 54 45 52 20 31 0d  | ;10% COUNTER 1.|
0001d8b0  43 4e 54 31 30 32 20 20  20 42 4c 4f 43 4b 20 31  |CNT102   BLOCK 1|
0001d8c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 31  |              ;1|
0001d8d0  30 25 20 43 4f 55 4e 54  45 52 20 32 0d 50 4f 52  |0% COUNTER 2.POR|
0001d8e0  54 4e 20 20 20 20 42 4c  4f 43 4b 20 31 20 20 20  |TN    BLOCK 1   |
0001d8f0  20 20 20 20 20 20 20 20  20 20 20 3b 50 4f 52 54  |           ;PORT|
0001d900  20 4e 55 4d 42 45 52 0d  52 57 54 42 4c 20 20 20  | NUMBER.RWTBL   |
0001d910  20 42 4c 4f 43 4b 20 32  20 20 20 20 20 20 20 20  | BLOCK 2        |
0001d920  20 20 20 20 20 20 3b 52  45 41 44 20 57 52 49 54  |      ;READ WRIT|
0001d930  45 20 54 41 42 4c 45 20  50 4f 49 4e 54 45 52 0d  |E TABLE POINTER.|
0001d940  43 4e 52 45 47 20 20 20  20 42 4c 4f 43 4b 20 31  |CNREG    BLOCK 1|
0001d950  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 43  |              ;C|
0001d960  4f 4e 54 52 4f 4c 20 52  45 47 49 53 54 45 52 0d  |ONTROL REGISTER.|
0001d970  57 54 44 41 50 54 20 20  20 42 4c 4f 43 4b 20 32  |WTDAPT   BLOCK 2|
0001d980  0d 45 58 50 46 4c 47 20  20 20 42 4c 4f 43 4b 20  |.EXPFLG   BLOCK |
0001d990  31 0d 52 44 44 41 50 54  20 20 20 42 4c 4f 43 4b  |1.RDDAPT   BLOCK|
0001d9a0  20 32 0d 57 54 53 54 50  54 20 20 20 42 4c 4f 43  | 2.WTSTPT   BLOC|
0001d9b0  4b 20 32 0d 52 44 53 54  50 54 20 20 20 42 4c 4f  |K 2.RDSTPT   BLO|
0001d9c0  43 4b 20 32 0d 45 58 50  49 4e 54 20 20 20 42 4c  |CK 2.EXPINT   BL|
0001d9d0  4f 43 4b 20 31 0d 49 4e  54 46 4c 47 20 20 20 42  |OCK 1.INTFLG   B|
0001d9e0  4c 4f 43 4b 20 31 0d 52  49 46 4c 47 20 20 20 42  |LOCK 1.RIFLG   B|
0001d9f0  4c 4f 43 4b 20 31 20 20  20 20 20 20 20 20 20 20  |LOCK 1          |
0001da00  20 20 20 20 20 3b 52 45  41 44 20 49 4e 54 45 52  |     ;READ INTER|
0001da10  55 50 54 20 46 4c 41 47  0d 49 4e 54 49 44 20 20  |UPT FLAG.INTID  |
0001da20  20 20 42 4c 4f 43 4b 20  31 0d 52 44 53 42 20 20  |  BLOCK 1.RDSB  |
0001da30  20 20 20 42 4c 4f 43 4b  20 31 20 20 20 20 20 20  |   BLOCK 1      |
0001da40  20 20 20 20 20 20 20 20  3b 52 41 4d 20 44 41 54  |        ;RAM DAT|
0001da50  41 20 53 48 4f 55 4c 44  20 42 45 0d 45 58 50 44  |A SHOULD BE.EXPD|
0001da60  54 41 20 20 20 42 4c 4f  43 4b 20 31 20 20 20 20  |TA   BLOCK 1    |
0001da70  20 20 20 20 20 20 20 20  20 20 3b 45 58 50 45 43  |          ;EXPEC|
0001da80  54 45 44 20 44 41 54 41  0d 53 41 56 58 20 20 20  |TED DATA.SAVX   |
0001da90  20 20 42 4c 4f 43 4b 20  32 20 20 20 20 20 20 20  |  BLOCK 2       |
0001daa0  20 20 20 20 20 20 20 3b  53 41 56 45 20 58 20 52  |       ;SAVE X R|
0001dab0  45 47 0d 52 44 57 41 53  20 20 20 20 42 4c 4f 43  |EG.RDWAS    BLOC|
0001dac0  4b 20 31 20 20 20 20 20  20 20 20 20 20 20 20 20  |K 1             |
0001dad0  20 3b 52 45 41 44 20 44  41 54 41 20 57 41 53 0d  | ;READ DATA WAS.|
0001dae0  53 57 4e 55 4d 20 20 20  20 42 4c 4f 43 4b 20 31  |SWNUM    BLOCK 1|
0001daf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 53  |              ;S|
0001db00  57 49 54 43 48 20 4e 55  4d 42 45 52 0d 53 57 44  |WITCH NUMBER.SWD|
0001db10  54 41 20 20 20 20 42 4c  4f 43 4b 20 31 20 20 20  |TA    BLOCK 1   |
0001db20  20 20 20 20 20 20 20 20  20 20 20 3b 53 57 49 54  |           ;SWIT|
0001db30  43 48 20 44 41 54 41 20  52 45 41 44 0d 3b 0d 20  |CH DATA READ.;. |
0001db40  20 20 20 20 20 20 20 50  41 47 45 0d 3b 2a 2a 2a  |       PAGE.;***|
0001db50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
0001db60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 3b 20 20  |************.;  |
0001db70  43 4f 4d 4d 2d 52 41 4d  20 45 51 55 41 54 45 53  |COMM-RAM EQUATES|
0001db80  0d 3b 0d 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.;.;************|
0001db90  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
0001dba0  2a 2a 2a 0d 3b 0d 54 49  4d 39 36 31 20 20 20 45  |***.;.TIM961   E|
0001dbb0  51 55 20 20 20 31 31 39  20 20 20 20 20 20 20 20  |QU   119        |
0001dbc0  20 20 20 20 3b 39 36 30  30 20 42 41 55 44 20 43  |    ;9600 BAUD C|
0001dbd0  4e 54 52 20 31 0d 54 49  4d 39 36 32 20 20 20 45  |NTR 1.TIM962   E|
0001dbe0  51 55 20 20 20 31 20 20  20 20 20 20 20 20 20 20  |QU   1          |
0001dbf0  20 20 20 20 3b 39 36 30  30 20 42 41 55 44 20 43  |    ;9600 BAUD C|
0001dc00  4e 54 52 20 32 0d 54 49  4d 32 34 31 20 20 20 45  |NTR 2.TIM241   E|
0001dc10  51 55 20 20 20 32 32 35  20 20 20 20 20 20 20 20  |QU   225        |
0001dc20  20 20 20 20 3b 32 34 30  30 20 42 41 55 44 20 43  |    ;2400 BAUD C|
0001dc30  4e 54 52 20 31 0d 54 49  4d 32 34 32 20 20 20 45  |NTR 1.TIM242   E|
0001dc40  51 55 20 20 20 32 20 20  20 20 20 20 20 20 20 20  |QU   2          |
0001dc50  20 20 20 20 3b 32 34 30  30 20 42 41 55 44 20 43  |    ;2400 BAUD C|
0001dc60  4e 54 52 20 32 0d 42 31  31 30 20 20 20 20 20 45  |NTR 2.B110     E|
0001dc70  51 55 20 20 20 37 48 20  20 20 20 20 20 20 20 20  |QU   7H         |
0001dc80  20 20 20 20 3b 42 41 55  44 20 31 31 30 0d 42 31  |    ;BAUD 110.B1|
0001dc90  32 30 30 20 20 20 20 45  51 55 20 20 20 36 20 20  |200    EQU   6  |
0001dca0  20 20 20 20 20 20 20 20  20 20 20 3b 42 41 55 44  |           ;BAUD|
0001dcb0  20 31 32 30 30 0d 42 32  34 30 30 20 20 20 20 45  | 1200.B2400    E|
0001dcc0  51 55 20 20 20 35 20 20  20 20 20 20 20 20 20 20  |QU   5          |
0001dcd0  20 20 20 3b 42 41 55 44  20 32 34 30 30 0d 42 34  |   ;BAUD 2400.B4|
0001dce0  38 30 30 20 20 20 20 45  51 55 20 20 20 34 20 20  |800    EQU   4  |
0001dcf0  20 20 20 20 20 20 20 20  20 20 20 3b 42 41 55 44  |           ;BAUD|
0001dd00  20 34 38 30 30 0d 42 39  36 30 30 20 20 20 20 45  | 4800.B9600    E|
0001dd10  51 55 20 20 20 33 20 20  20 20 20 20 20 20 20 20  |QU   3          |
0001dd20  20 20 20 3b 42 41 55 44  20 39 36 30 30 0d 42 39  |   ;BAUD 9600.B9|
0001dd30  36 30 30 41 20 20 20 45  51 55 20 20 20 39 36 30  |600A   EQU   960|
0001dd40  30 48 20 20 20 20 20 20  20 20 20 20 3b 44 49 53  |0H          ;DIS|
0001dd50  50 4c 41 59 20 42 41 55  44 20 22 39 36 30 30 22  |PLAY BAUD "9600"|
0001dd60  0d 49 4e 54 31 30 20 20  20 20 45 51 55 20 20 20  |.INT10    EQU   |
0001dd70  31 34 48 20 20 20 20 20  20 20 20 20 20 20 20 3b  |14H            ;|
0001dd80  41 43 49 41 20 31 20 49  4e 54 45 52 55 50 54 0d  |ACIA 1 INTERUPT.|
0001dd90  49 4e 54 31 31 20 20 20  20 45 51 55 20 20 20 31  |INT11    EQU   1|
0001dda0  36 48 20 20 20 20 20 20  20 20 20 20 20 20 3b 41  |6H            ;A|
0001ddb0  43 49 41 20 32 20 49 4e  54 45 52 55 50 54 0d 42  |CIA 2 INTERUPT.B|
0001ddc0  32 34 30 30 41 20 20 20  45 51 55 20 20 20 32 34  |2400A   EQU   24|
0001ddd0  30 30 48 20 20 20 20 20  20 20 20 20 20 3b 44 49  |00H          ;DI|
0001dde0  53 50 4c 41 59 20 42 41  55 44 20 32 34 30 30 0d  |SPLAY BAUD 2400.|
0001ddf0  20 20 20 20 20 20 20 20  20 50 41 47 45 0d 20 20  |         PAGE.  |
0001de00  20 20 20 20 20 20 4f 52  47 20 20 20 20 50 42 41  |      ORG    PBA|
0001de10  53 45 0d 3b 0d 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |SE.;.;**********|
0001de20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001de40  2a 2a 2a 2a 2a 0d 3b 0d  3b 20 20 54 45 53 54 20  |*****.;.;  TEST |
0001de50  48 45 41 44 45 52 20 42  4c 4f 43 4b 0d 3b 0d 3b  |HEADER BLOCK.;.;|
0001de60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001de80  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
0001de90  3b 0d 20 20 20 20 20 20  20 20 54 53 54 48 44 52  |;.        TSTHDR|
0001dea0  20 32 0d 3b 0d 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  | 2.;.;**********|
0001deb0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001ded0  2a 2a 2a 2a 0d 3b 0d 3b  20 20 53 55 42 20 54 45  |****.;.;  SUB TE|
0001dee0  53 54 20 48 45 41 44 45  52 20 42 4c 4f 43 4b 53  |ST HEADER BLOCKS|
0001def0  0d 3b 0d 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.;.;************|
0001df00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001df20  2a 0d 3b 0d 20 20 20 20  20 20 20 20 53 42 54 48  |*.;.        SBTH|
0001df30  44 52 20 30 31 2c 46 55  4e 43 53 50 0d 20 20 20  |DR 01,FUNCSP.   |
0001df40  20 20 20 20 20 46 55 4e  43 20 53 49 47 4e 54 52  |     FUNC SIGNTR|
0001df50  2c 41 44 44 43 2c 41 44  44 43 2c 4f 52 4d 44 50  |,ADDC,ADDC,ORMDP|
0001df60  4d 2c 44 53 50 4e 4f 57  2c 45 4e 44 46 4e 43 0d  |M,DSPNOW,ENDFNC.|
0001df70  3b 0d 20 20 20 20 20 20  20 20 53 42 54 48 44 52  |;.        SBTHDR|
0001df80  20 30 32 2c 46 55 4e 43  53 50 0d 20 20 20 20 20  | 02,FUNCSP.     |
0001df90  20 20 20 46 55 4e 43 20  53 49 47 4e 54 52 2c 41  |   FUNC SIGNTR,A|
0001dfa0  44 44 43 2c 41 44 44 43  2c 4f 52 4d 44 50 4d 2c  |DDC,ADDC,ORMDPM,|
0001dfb0  44 53 50 4e 4f 57 2c 45  4e 44 46 4e 43 0d 3b 0d  |DSPNOW,ENDFNC.;.|
0001dfc0  20 20 20 20 20 20 20 20  50 41 47 45 0d 3b 0d 20  |        PAGE.;. |
0001dfd0  20 20 20 20 20 20 20 4f  52 47 20 20 20 20 50 42  |       ORG    PB|
0001dfe0  41 53 45 2b 32 35 36 0d  3b 0d 49 4d 53 47 20 20  |ASE+256.;.IMSG  |
0001dff0  20 20 4d 53 47 20 20 20  20 43 4f 4d 4d 2d 52 41  |  MSG    COMM-RA|
0001e000  4d 20 50 54 2e 20 33 20  56 31 2e 32 0d 3b 2a 2a  |M PT. 3 V1.2.;**|
0001e010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001e040  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 3b 0d 3b 20 20  |**********.;.;  |
0001e050  20 20 20 20 20 20 54 41  42 4c 45 53 0d 3b 0d 3b  |      TABLES.;.;|
0001e060  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001e090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 3b 0d 3b  |************.;.;|
0001e0a0  0d 57 53 42 54 42 4c 20  20 20 42 59 54 45 20 20  |.WSBTBL   BYTE  |
0001e0b0  44 49 56 31 36 2b 42 37  45 50 32 53 0d 20 20 20  |DIV16+B7EP2S.   |
0001e0c0  20 20 20 20 20 20 42 59  54 45 20 20 44 49 56 31  |      BYTE  DIV1|
0001e0d0  36 2b 42 37 4f 50 32 53  0d 20 20 20 20 20 20 20  |6+B7OP2S.       |
0001e0e0  20 20 42 59 54 45 20 20  44 49 56 31 36 2b 42 37  |  BYTE  DIV16+B7|
0001e0f0  45 50 31 53 0d 20 20 20  20 20 20 20 20 20 42 59  |EP1S.         BY|
0001e100  54 45 20 20 44 49 56 31  36 2b 42 37 4f 50 31 53  |TE  DIV16+B7OP1S|
0001e110  0d 20 20 20 20 20 20 20  20 20 42 59 54 45 20 20  |.         BYTE  |
0001e120  38 30 48 0d 20 20 20 20  20 20 20 20 20 42 59 54  |80H.         BYT|
0001e130  45 20 20 44 49 56 31 36  2b 42 38 32 53 0d 20 20  |E  DIV16+B82S.  |
0001e140  20 20 20 20 20 20 20 42  59 54 45 20 20 44 49 56  |       BYTE  DIV|
0001e150  31 36 2b 42 38 45 50 31  53 0d 20 20 20 20 20 20  |16+B8EP1S.      |
0001e160  20 20 20 42 59 54 45 20  20 44 49 56 31 36 2b 42  |   BYTE  DIV16+B|
0001e170  38 4f 50 31 53 0d 20 20  20 20 20 20 20 20 20 42  |8OP1S.         B|
0001e180  59 54 45 20 20 30 0d 20  20 20 20 20 20 20 20 50  |YTE  0.        P|
0001e190  41 47 45 0d 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |AGE.;***********|
0001e1a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001e1c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 3b 0d  |*************.;.|
0001e1d0  3b 54 49 4d 45 52 20 53  55 42 2d 52 4f 55 54 49  |;TIMER SUB-ROUTI|
0001e1e0  4e 45 0d 3b 0d 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |NE.;.;**********|
0001e1f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001e210  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 3b  |**************.;|
0001e220  0d 3b 0d 54 4d 52 39 35  20 20 20 20 45 51 55 20  |.;.TMR95    EQU |
0001e230  20 20 24 0d 20 20 20 20  20 20 20 20 20 44 45 43  |  $.         DEC|
0001e240  20 20 20 43 4e 54 39 35  31 20 20 20 20 20 20 20  |   CNT951       |
0001e250  20 20 3b 44 45 43 52 45  4d 45 4e 54 0d 20 20 20  |  ;DECREMENT.   |
0001e260  20 20 20 20 20 20 42 4e  45 20 20 20 54 4d 52 39  |      BNE   TMR9|
0001e270  35 20 20 20 20 20 20 20  20 20 20 3b 42 4f 54 48  |5          ;BOTH|
0001e280  20 43 4f 4e 54 45 52 53  0d 20 20 20 20 20 20 20  | CONTERS.       |
0001e290  20 20 44 45 43 20 20 20  43 4e 54 39 35 32 20 20  |  DEC   CNT952  |
0001e2a0  20 20 20 20 20 20 20 3b  54 4f 20 5a 45 52 4f 0d  |       ;TO ZERO.|
0001e2b0  20 20 20 20 20 20 20 20  20 42 4e 45 20 20 20 54  |         BNE   T|
0001e2c0  4d 52 39 35 20 20 20 20  20 20 20 20 20 20 3b 54  |MR95          ;T|
0001e2d0  48 45 4e 0d 20 20 20 20  20 20 20 20 20 52 54 53  |HEN.         RTS|
0001e2e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0001e2f0  20 20 3b 42 41 49 4c 20  4f 55 54 0d 3b 0d 3b 2a  |  ;BAIL OUT.;.;*|
0001e300  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001e340  2a 2a 2a 2a 0d 3b 0d 3b  54 53 39 36 30 30 20 53  |****.;.;TS9600 S|
0001e350  55 42 2d 52 4f 55 54 49  4e 45 0d 3b 53 45 54 53  |UB-ROUTINE.;SETS|
0001e360  20 54 49 4d 45 52 20 54  4f 20 39 36 30 30 20 42  | TIMER TO 9600 B|
0001e370  41 55 44 0d 3b 54 49 4d  45 20 4f 55 54 0d 3b 0d  |AUD.;TIME OUT.;.|
0001e380  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
0001e390  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001e3c0  2a 2a 2a 2a 2a 2a 0d 3b  0d 3b 0d 54 53 39 36 30  |******.;.;.TS960|
0001e3d0  30 20 20 20 45 51 55 20  20 20 24 20 20 20 20 20  |0   EQU   $     |
0001e3e0  20 20 20 20 20 20 20 20  20 3b 53 54 41 52 54 0d  |         ;START.|
0001e3f0  20 20 20 20 20 20 20 20  20 4c 44 41 20 41 20 54  |         LDA A T|
0001e400  49 4d 39 36 31 0d 20 20  20 20 20 20 20 20 20 53  |IM961.         S|
0001e410  54 41 20 41 20 43 4e 54  39 35 31 0d 20 20 20 20  |TA A CNT951.    |
0001e420  20 20 20 20 20 4c 44 41  20 41 20 54 49 4d 39 36  |     LDA A TIM96|
0001e430  32 0d 20 20 20 20 20 20  20 20 20 53 54 41 20 41  |2.         STA A|
0001e440  20 43 4e 54 39 35 32 0d  20 20 20 20 20 20 20 20  | CNT952.        |
0001e450  20 52 54 53 20 20 20 20  20 20 20 20 20 20 20 20  | RTS            |
0001e460  20 20 20 20 20 20 3b 52  45 54 55 52 4e 0d 3b 2a  |      ;RETURN.;*|
0001e470  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001e4a0  2a 2a 2a 2a 2a 2a 2a 0d  3b 0d 3b 52 44 53 54 41  |*******.;.;RDSTA|
0001e4b0  54 20 53 55 42 2d 52 4f  55 54 49 4e 45 0d 3b 28  |T SUB-ROUTINE.;(|
0001e4c0  52 45 41 44 20 53 54 41  54 55 53 29 0d 3b 52 45  |READ STATUS).;RE|
0001e4d0  41 44 53 20 54 48 45 20  53 54 41 54 55 53 20 4f  |ADS THE STATUS O|
0001e4e0  46 20 54 48 45 20 50 4f  52 54 0d 3b 43 4f 4d 50  |F THE PORT.;COMP|
0001e4f0  41 52 45 53 20 54 4f 20  45 58 50 45 43 54 45 44  |ARES TO EXPECTED|
0001e500  20 53 54 41 54 55 53 0d  3b 41 4e 44 20 50 55 54  | STATUS.;AND PUT|
0001e510  53 20 4f 55 54 20 45 52  52 4f 52 20 4d 53 47 20  |S OUT ERROR MSG |
0001e520  31 0d 3b 4e 4f 54 20 41  4c 49 4b 45 0d 3b 0d 3b  |1.;NOT ALIKE.;.;|
0001e530  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001e560  2a 2a 2a 2a 2a 2a 2a 2a  0d 3b 0d 3b 0d 52 44 53  |********.;.;.RDS|
0001e570  54 41 54 20 20 20 45 51  55 20 20 20 24 20 20 20  |TAT   EQU   $   |
0001e580  20 20 20 20 20 20 20 20  20 20 20 3b 53 54 41 52  |           ;STAR|
0001e590  54 0d 20 20 20 20 20 20  20 20 20 53 54 58 20 20  |T.         STX  |
0001e5a0  20 53 41 56 58 0d 20 20  20 20 20 20 20 20 20 4c  | SAVX.         L|
0001e5b0  44 58 20 20 20 53 54 41  50 4f 52 54 0d 20 20 20  |DX   STAPORT.   |
0001e5c0  20 20 20 20 20 20 4c 44  41 20 41 20 30 2c 58 20  |      LDA A 0,X |
0001e5d0  20 20 20 20 20 20 20 3b  52 45 41 44 20 54 48 45  |       ;READ THE|
0001e5e0  20 53 54 41 54 55 53 20  50 4f 52 54 0d 20 20 20  | STATUS PORT.   |
0001e5f0  20 20 20 20 20 20 53 54  41 20 41 20 53 54 41 54  |      STA A STAT|
0001e600  52 44 0d 20 20 20 20 20  20 20 20 20 54 53 54 20  |RD.         TST |
0001e610  20 20 53 49 47 46 4c 47  20 20 20 20 20 20 20 20  |  SIGFLG        |
0001e620  20 3b 49 54 20 46 41 4b  49 4e 47 20 53 49 47 4e  | ;IT FAKING SIGN|
0001e630  41 54 55 52 45 53 0d 20  20 20 20 20 20 20 20 20  |ATURES.         |
0001e640  42 4e 45 20 20 20 46 49  4e 49 20 20 20 20 20 20  |BNE   FINI      |
0001e650  20 20 20 20 20 3b 47 4f  20 54 4f 20 52 45 54 55  |     ;GO TO RETU|
0001e660  52 4e 0d 20 20 20 20 20  20 20 20 20 43 4d 50 20  |RN.         CMP |
0001e670  41 20 45 58 50 53 54 41  20 20 20 20 20 20 20 20  |A EXPSTA        |
0001e680  20 3b 53 54 41 54 55 53  3d 45 58 50 45 43 54 20  | ;STATUS=EXPECT |
0001e690  53 54 41 54 55 53 3f 0d  20 20 20 20 20 20 20 20  |STATUS?.        |
0001e6a0  20 42 45 51 20 20 20 46  49 4e 49 20 20 20 20 20  | BEQ   FINI     |
0001e6b0  20 20 20 20 20 20 3b 59  45 53 20 52 45 54 55 52  |      ;YES RETUR|
0001e6c0  4e 0d 20 20 20 20 20 20  20 20 20 4c 44 58 20 20  |N.         LDX  |
0001e6d0  20 23 41 43 53 54 45 52  20 20 20 20 20 20 20 20  | #ACSTER        |
0001e6e0  3b 0d 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |;.         JSR  |
0001e6f0  20 45 52 52 4f 55 54 20  20 20 20 20 20 20 20 20  | ERROUT         |
0001e700  3b 53 54 41 54 55 53 20  45 52 52 4f 52 20 4d 45  |;STATUS ERROR ME|
0001e710  53 53 41 47 45 0d 46 49  4e 49 20 20 20 20 20 4c  |SSAGE.FINI     L|
0001e720  44 58 20 20 20 53 41 56  58 20 20 20 20 20 20 20  |DX   SAVX       |
0001e730  20 20 20 20 3b 52 45 53  54 4f 52 45 20 58 20 52  |    ;RESTORE X R|
0001e740  45 47 0d 20 20 20 20 20  20 20 20 20 52 54 53 20  |EG.         RTS |
0001e750  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
0001e760  20 3b 52 45 54 55 52 4e  0d 20 20 20 20 20 20 20  | ;RETURN.       |
0001e770  20 20 50 41 47 45 0d 3b  2a 2a 2a 2a 2a 2a 2a 2a  |  PAGE.;********|
0001e780  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
0001e800  2d 44 49 53 50 4c 41 59  53 20 45 52 52 4f 52 0d  |-DISPLAYS ERROR.|
0001e810  3b 4d 53 47 20 49 46 20  4e 4f 54 20 41 4c 49 4b  |;MSG IF NOT ALIK|
0001e820  45 0d 3b 0d 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |E.;.;***********|
0001e830  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001e850  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 3b 0d 3b  |************.;.;|
0001e860  0d 52 44 44 54 41 20 20  20 20 45 51 55 20 20 20  |.RDDTA    EQU   |
0001e870  24 0d 20 20 20 20 20 20  20 20 20 53 54 58 20 20  |$.         STX  |
0001e880  20 53 41 56 58 0d 20 20  20 20 20 20 20 20 20 4c  | SAVX.         L|
0001e890  44 58 20 20 20 44 54 41  50 4f 52 54 0d 20 20 20  |DX   DTAPORT.   |
0001e8a0  20 20 20 20 20 20 4c 44  41 20 41 20 30 2c 58 20  |      LDA A 0,X |
0001e8b0  20 20 20 20 20 20 20 3b  52 45 41 44 20 54 48 45  |       ;READ THE|
0001e8c0  20 44 41 54 41 0d 20 20  20 20 20 20 20 20 20 53  | DATA.         S|
0001e8d0  54 41 20 41 20 44 54 41  52 44 0d 20 20 20 20 20  |TA A DTARD.     |
0001e8e0  20 20 20 20 54 53 54 20  20 20 53 49 47 46 4c 47  |    TST   SIGFLG|
0001e8f0  20 20 20 20 20 20 20 20  20 3b 49 46 20 54 41 4b  |         ;IF TAK|
0001e900  49 4e 47 20 53 49 47 4e  41 54 55 52 45 53 0d 20  |ING SIGNATURES. |
0001e910  20 20 20 20 20 20 20 20  42 4e 45 20 20 20 46 49  |        BNE   FI|
0001e920  4e 4f 20 20 20 20 20 20  20 20 20 20 20 3b 47 4f  |NO           ;GO|
0001e930  20 54 4f 20 52 45 54 55  52 4e 0d 20 20 20 20 20  | TO RETURN.     |
0001e940  20 20 20 20 43 4d 50 20  41 20 45 58 50 44 54 41  |    CMP A EXPDTA|
0001e950  20 20 20 20 20 20 20 20  20 3b 45 58 50 45 43 54  |         ;EXPECT|
0001e960  20 44 41 54 41 3d 41 43  54 55 41 4c 20 44 41 54  | DATA=ACTUAL DAT|
0001e970  41 3f 0d 20 20 20 20 20  20 20 20 20 42 45 51 20  |A?.         BEQ |
0001e980  20 20 46 49 4e 4f 20 20  20 20 20 20 20 20 20 20  |  FINO          |
0001e990  20 3b 59 45 53 2d 47 4f  20 54 4f 20 52 45 54 55  | ;YES-GO TO RETU|
0001e9a0  52 4e 0d 20 20 20 20 20  20 20 20 20 4c 44 58 20  |RN.         LDX |
0001e9b0  20 20 23 41 43 44 54 45  52 20 20 20 20 20 20 20  |  #ACDTER       |
0001e9c0  20 3b 50 55 54 20 4f 55  54 0d 20 20 20 20 20 20  | ;PUT OUT.      |
0001e9d0  20 20 20 4a 53 52 20 20  20 45 52 52 4f 55 54 20  |   JSR   ERROUT |
0001e9e0  20 20 20 20 20 20 20 20  3b 44 41 54 41 20 45 52  |        ;DATA ER|
0001e9f0  52 4f 52 20 4d 45 53 53  41 47 45 0d 46 49 4e 4f  |ROR MESSAGE.FINO|
0001ea00  20 20 20 20 20 4c 44 58  20 20 20 53 41 56 58 20  |     LDX   SAVX |
0001ea10  20 20 20 20 20 20 20 20  20 20 3b 52 45 53 54 4f  |          ;RESTO|
0001ea20  52 45 20 58 20 52 45 47  0d 20 20 20 20 20 20 20  |RE X REG.       |
0001ea30  20 20 52 54 53 20 20 20  20 20 20 20 20 20 20 20  |  RTS           |
0001ea40  20 20 20 20 20 20 20 3b  52 45 54 55 52 4e 0d 20  |       ;RETURN. |
0001ea50  20 20 20 20 20 20 20 20  50 41 47 45 0d 3b 2a 2a  |        PAGE.;**|
0001ea60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001eaa0  2a 2a 2a 0d 3b 0d 3b 53  50 4f 52 54 31 20 53 55  |***.;.;SPORT1 SU|
0001eab0  42 2d 52 4f 55 54 49 4e  45 0d 3b 53 45 54 53 20  |B-ROUTINE.;SETS |
0001eac0  55 50 20 50 4f 52 54 20  50 4f 49 4e 54 45 52 53  |UP PORT POINTERS|
0001ead0  20 54 4f 20 50 4f 52 54  20 31 0d 3b 0d 3b 2a 2a  | TO PORT 1.;.;**|
0001eae0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001eb20  2a 2a 2a 0d 3b 0d 3b 0d  53 50 4f 52 54 31 20 20  |***.;.;.SPORT1  |
0001eb30  20 45 51 55 20 20 20 24  20 20 20 20 20 20 20 20  | EQU   $        |
0001eb40  20 20 20 20 20 20 3b 53  54 41 52 54 0d 20 20 20  |      ;START.   |
0001eb50  20 20 20 20 20 20 53 54  58 20 20 20 53 41 56 58  |      STX   SAVX|
0001eb60  20 20 20 20 20 20 20 20  20 20 20 3b 53 41 56 45  |           ;SAVE|
0001eb70  20 58 20 52 45 47 0d 20  20 20 20 20 20 20 20 20  | X REG.         |
0001eb80  4c 44 58 20 20 20 23 43  52 41 43 53 43 20 20 20  |LDX   #CRACSC   |
0001eb90  20 20 20 20 20 20 3b 50  4f 52 54 20 31 0d 20 20  |      ;PORT 1.  |
0001eba0  20 20 20 20 20 20 20 53  54 58 20 20 20 53 54 41  |       STX   STA|
0001ebb0  50 4f 52 54 20 20 20 20  20 20 20 20 3b 53 54 41  |PORT        ;STA|
0001ebc0  54 55 53 20 26 20 43 4f  4e 54 52 4f 4c 20 41 44  |TUS & CONTROL AD|
0001ebd0  44 52 45 53 53 0d 20 20  20 20 20 20 20 20 20 4c  |DRESS.         L|
0001ebe0  44 58 20 20 20 23 43 52  41 43 44 41 20 20 20 20  |DX   #CRACDA    |
0001ebf0  20 20 20 20 20 3b 50 4f  52 54 20 31 0d 20 20 20  |     ;PORT 1.   |
0001ec00  20 20 20 20 20 20 53 54  58 20 20 20 44 54 41 50  |      STX   DTAP|
0001ec10  4f 52 54 20 20 20 20 20  20 20 20 3b 44 41 54 41  |ORT        ;DATA|
0001ec20  20 41 44 44 52 45 53 53  0d 20 20 20 20 20 20 20  | ADDRESS.       |
0001ec30  20 20 4c 44 41 20 41 20  23 30 31 48 20 20 20 20  |  LDA A #01H    |
0001ec40  20 20 20 20 20 20 20 3b  50 4f 52 54 20 23 31 0d  |       ;PORT #1.|
0001ec50  20 20 20 20 20 20 20 20  20 53 54 41 20 41 20 50  |         STA A P|
0001ec60  4f 52 54 4e 20 20 20 20  20 20 20 20 20 20 3b 46  |ORTN          ;F|
0001ec70  4f 52 20 44 49 53 50 4c  41 59 0d 20 20 20 20 20  |OR DISPLAY.     |
0001ec80  20 20 20 20 4c 44 58 20  20 20 53 41 56 58 20 20  |    LDX   SAVX  |
0001ec90  20 20 20 20 20 20 20 20  20 3b 52 45 53 54 4f 52  |         ;RESTOR|
0001eca0  45 20 58 20 52 45 47 0d  20 20 20 20 20 20 20 20  |E X REG.        |
0001ecb0  20 52 54 53 20 20 20 20  20 20 20 20 20 20 20 20  | RTS            |
0001ecc0  20 20 20 20 20 20 3b 52  45 54 55 52 4e 0d 3b 2a  |      ;RETURN.;*|
0001ecd0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001ed10  2a 2a 2a 2a 0d 3b 0d 3b  53 50 4f 52 54 32 20 53  |****.;.;SPORT2 S|
0001ed20  55 42 2d 52 4f 55 54 49  4e 45 0d 3b 53 45 54 53  |UB-ROUTINE.;SETS|
0001ed30  20 55 50 20 50 4f 52 54  20 50 4f 49 4e 54 45 52  | UP PORT POINTER|
0001ed40  53 20 54 4f 20 50 4f 52  54 20 32 0d 3b 0d 3b 2a  |S TO PORT 2.;.;*|
0001ed50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001ed90  2a 2a 2a 2a 0d 3b 0d 3b  0d 53 50 4f 52 54 32 20  |****.;.;.SPORT2 |
0001eda0  20 20 45 51 55 20 20 20  24 20 20 20 20 20 20 20  |  EQU   $       |
0001edb0  20 20 20 20 20 20 20 3b  53 54 41 52 54 0d 20 20  |       ;START.  |
0001edc0  20 20 20 20 20 20 20 53  54 58 20 20 20 53 41 56  |       STX   SAV|
0001edd0  58 20 20 20 20 20 20 20  20 20 20 20 3b 53 41 56  |X           ;SAV|
0001ede0  45 20 58 20 52 45 47 0d  20 20 20 20 20 20 20 20  |E X REG.        |
0001edf0  20 4c 44 58 20 20 20 23  43 52 41 43 53 43 32 20  | LDX   #CRACSC2 |
0001ee00  20 20 20 20 20 20 20 3b  50 4f 52 54 20 32 0d 20  |       ;PORT 2. |
0001ee10  20 20 20 20 20 20 20 20  53 54 58 20 20 20 53 54  |        STX   ST|
0001ee20  41 50 4f 52 54 20 20 20  20 20 20 20 20 3b 53 54  |APORT        ;ST|
0001ee30  41 54 55 53 20 26 20 43  4f 4e 54 52 4f 4c 20 41  |ATUS & CONTROL A|
0001ee40  44 44 52 45 53 53 0d 20  20 20 20 20 20 20 20 20  |DDRESS.         |
0001ee50  4c 44 58 20 20 20 23 43  52 41 43 44 41 32 20 20  |LDX   #CRACDA2  |
0001ee60  20 20 20 20 20 20 3b 50  4f 52 54 20 32 0d 20 20  |      ;PORT 2.  |
0001ee70  20 20 20 20 20 20 20 53  54 58 20 20 20 44 54 41  |       STX   DTA|
0001ee80  50 4f 52 54 20 20 20 20  20 20 20 20 3b 44 41 54  |PORT        ;DAT|
0001ee90  41 20 41 44 44 52 45 53  53 0d 20 20 20 20 20 20  |A ADDRESS.      |
0001eea0  20 20 20 4c 44 41 20 41  20 23 30 32 48 20 20 20  |   LDA A #02H   |
0001eeb0  20 20 20 20 20 20 20 20  3b 50 4f 52 54 20 23 32  |        ;PORT #2|
0001eec0  0d 20 20 20 20 20 20 20  20 20 53 54 41 20 41 20  |.         STA A |
0001eed0  50 4f 52 54 4e 20 20 20  20 20 20 20 20 20 20 3b  |PORTN          ;|
0001eee0  46 4f 52 20 44 49 53 50  4c 41 59 0d 20 20 20 20  |FOR DISPLAY.    |
0001eef0  20 20 20 20 20 4c 44 58  20 20 20 53 41 56 58 20  |     LDX   SAVX |
0001ef00  20 20 20 20 20 20 20 20  20 20 3b 52 45 53 54 4f  |          ;RESTO|
0001ef10  52 45 20 58 20 52 45 47  0d 20 20 20 20 20 20 20  |RE X REG.       |
0001ef20  20 20 52 54 53 20 20 20  20 20 20 20 20 20 20 20  |  RTS           |
0001ef30  20 20 20 20 20 20 20 3b  52 45 54 55 52 4e 0d 3b  |       ;RETURN.;|
0001ef40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001ef80  2a 2a 2a 2a 2a 0d 3b 0d  3b 50 4f 52 54 53 55 20  |*****.;.;PORTSU |
0001ef90  53 55 42 2d 52 4f 55 54  49 4e 45 0d 3b 52 45 53  |SUB-ROUTINE.;RES|
0001efa0  45 54 53 20 54 48 45 20  50 4f 52 54 20 41 4e 44  |ETS THE PORT AND|
0001efb0  20 53 45 54 53 20 49 54  20 54 4f 20 44 49 56 20  | SETS IT TO DIV |
0001efc0  42 59 20 31 36 0d 3b 0d  3b 2a 2a 2a 2a 2a 2a 2a  |BY 16.;.;*******|
0001efd0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001f000  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
0001f010  3b 0d 3b 0d 50 4f 52 54  53 55 20 20 20 45 51 55  |;.;.PORTSU   EQU|
0001f020  20 20 20 24 20 20 20 20  20 20 20 20 20 20 20 20  |   $            |
0001f030  20 20 3b 53 54 41 52 54  0d 20 20 20 20 20 20 20  |  ;START.       |
0001f040  20 20 4c 44 41 20 41 20  23 4d 53 54 52 53 54 20  |  LDA A #MSTRST |
0001f050  20 20 20 20 20 20 20 3b  52 45 53 45 54 0d 20 20  |       ;RESET.  |
0001f060  20 20 20 20 20 20 20 4c  44 58 20 20 20 53 54 41  |       LDX   STA|
0001f070  50 4f 52 54 0d 20 20 20  20 20 20 20 20 20 53 54  |PORT.         ST|
0001f080  41 20 41 20 30 2c 58 20  20 20 20 20 20 20 20 3b  |A A 0,X        ;|
0001f090  50 4f 52 54 0d 20 20 20  20 20 20 20 20 20 4c 44  |PORT.         LD|
0001f0a0  41 20 41 20 23 44 49 56  31 36 2b 42 38 31 53 20  |A A #DIV16+B81S |
0001f0b0  20 20 20 20 20 20 20 20  3b 53 45 54 20 50 4f 52  |        ;SET POR|
0001f0c0  54 0d 20 20 20 20 20 20  20 20 20 53 54 41 20 41  |T.         STA A|
0001f0d0  20 30 2c 58 20 20 20 20  20 20 20 20 3b 54 4f 20  | 0,X        ;TO |
0001f0e0  44 49 56 20 42 59 20 31  36 0d 20 20 20 20 20 20  |DIV BY 16.      |
0001f0f0  20 20 20 52 54 53 20 20  20 20 20 20 20 20 20 20  |   RTS          |
0001f100  20 20 20 20 20 20 20 20  3b 52 45 54 55 52 4e 0d  |        ;RETURN.|
0001f110  20 20 20 20 20 20 20 20  20 50 41 47 45 0d 3b 2a  |         PAGE.;*|
0001f120  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001f160  2a 2a 2a 2a 0d 3b 0d 3b  43 4f 4e 54 52 4f 4c 20  |****.;.;CONTROL |
0001f170  52 45 47 49 53 54 45 52  20 54 45 53 54 20 23 30  |REGISTER TEST #0|
0001f180  31 0d 3b 54 45 53 54 53  20 41 43 49 41 20 43 4f  |1.;TESTS ACIA CO|
0001f190  4e 54 52 4f 4c 20 52 45  47 49 53 54 45 52 0d 3b  |NTROL REGISTER.;|
0001f1a0  42 49 54 53 20 41 4e 44  20 53 57 49 54 43 48 20  |BITS AND SWITCH |
0001f1b0  4f 50 54 49 4f 4e 20 50  4f 52 54 53 0d 3b 0d 3b  |OPTION PORTS.;.;|
0001f1c0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001f200  2a 2a 2a 2a 2a 0d 3b 0d  3b 0d 53 54 53 54 30 31  |*****.;.;.STST01|
0001f210  20 20 20 45 51 55 20 20  20 24 20 20 20 20 20 20  |   EQU   $      |
0001f220  20 20 20 20 20 20 20 20  3b 53 54 41 52 54 0d 20  |        ;START. |
0001f230  20 20 20 20 20 20 20 20  4c 44 53 20 20 20 23 49  |        LDS   #I|
0001f240  53 54 41 43 4b 20 20 20  20 20 20 20 20 3b 0d 20  |STACK        ;. |
0001f250  20 20 20 20 20 20 20 20  4c 44 58 20 20 20 23 43  |        LDX   #C|
0001f260  4e 52 47 4d 53 47 0d 20  20 20 20 20 20 20 20 20  |NRGMSG.         |
0001f270  4a 53 52 20 20 20 49 4e  49 54 20 20 20 20 20 20  |JSR   INIT      |
0001f280  20 20 20 20 20 3b 49 4e  49 54 49 41 4c 49 5a 45  |     ;INITIALIZE|
0001f290  0d 53 47 53 54 30 31 20  20 20 45 51 55 20 20 20  |.SGST01   EQU   |
0001f2a0  24 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |$              ;|
0001f2b0  53 49 47 4e 41 54 55 52  45 20 53 54 41 52 54 0d  |SIGNATURE START.|
0001f2c0  53 47 52 53 30 31 20 20  20 45 51 55 20 20 20 24  |SGRS01   EQU   $|
0001f2d0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 53  |              ;S|
0001f2e0  49 47 4e 41 54 55 52 45  20 52 45 53 54 41 52 54  |IGNATURE RESTART|
0001f2f0  0d 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |.         JSR   |
0001f300  44 36 34 43 4b 20 20 20  20 20 20 20 20 20 20 3b  |D64CK          ;|
0001f310  47 4f 20 54 4f 20 44 49  56 20 42 59 20 36 34 20  |GO TO DIV BY 64 |
0001f320  43 48 45 43 4b 0d 20 20  20 20 20 20 20 20 20 4a  |CHECK.         J|
0001f330  53 52 20 20 20 57 44 53  42 43 4b 20 20 20 20 20  |SR   WDSBCK     |
0001f340  20 20 20 20 3b 47 4f 20  54 4f 20 57 4f 52 44 20  |    ;GO TO WORD |
0001f350  53 45 4c 45 43 54 20 42  49 54 53 20 43 48 45 43  |SELECT BITS CHEC|
0001f360  4b 0d 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |K.         JSR  |
0001f370  20 53 57 50 54 43 4b 20  20 20 20 20 20 20 20 20  | SWPTCK         |
0001f380  3b 47 4f 20 54 4f 20 53  57 49 54 43 48 20 50 4f  |;GO TO SWITCH PO|
0001f390  52 54 53 20 43 48 45 43  4b 0d 53 47 4e 44 30 31  |RTS CHECK.SGND01|
0001f3a0  20 20 20 45 51 55 20 20  20 24 20 20 20 20 20 20  |   EQU   $      |
0001f3b0  20 20 20 20 20 20 20 20  3b 45 4e 44 20 53 49 47  |        ;END SIG|
0001f3c0  4e 41 54 55 52 45 53 0d  20 20 20 20 20 20 20 20  |NATURES.        |
0001f3d0  20 4a 4d 50 20 20 20 53  54 45 4e 44 20 20 20 20  | JMP   STEND    |
0001f3e0  20 20 20 20 20 20 3b 45  4e 44 20 4f 46 20 53 55  |      ;END OF SU|
0001f3f0  42 2d 54 45 53 54 0d 20  20 20 20 20 20 20 20 20  |B-TEST.         |
0001f400  50 41 47 45 0d 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |PAGE.;**********|
0001f410  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001f440  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 3b 0d 3b 42  |***********.;.;B|
0001f450  53 39 36 30 30 20 53 55  42 2d 52 4f 55 54 49 4e  |S9600 SUB-ROUTIN|
0001f460  45 0d 3b 4c 4f 41 44 53  20 39 36 30 30 20 42 41  |E.;LOADS 9600 BA|
0001f470  55 44 20 52 41 54 45 20  49 4e 54 4f 0d 3b 54 48  |UD RATE INTO.;TH|
0001f480  45 20 42 41 55 44 20 50  4f 52 54 53 0d 3b 0d 3b  |E BAUD PORTS.;.;|
0001f490  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001f4d0  2a 2a 2a 2a 2a 0d 3b 0d  3b 0d 42 53 39 36 30 30  |*****.;.;.BS9600|
0001f4e0  20 20 20 45 51 55 20 20  20 24 0d 20 20 20 20 20  |   EQU   $.     |
0001f4f0  20 20 20 20 4c 44 58 20  20 20 23 42 39 36 30 30  |    LDX   #B9600|
0001f500  41 20 20 20 20 20 20 20  20 3b 53 54 4f 52 45 20  |A        ;STORE |
0001f510  39 36 30 30 0d 20 20 20  20 20 20 20 20 20 53 54  |9600.         ST|
0001f520  58 20 20 20 42 41 55 44  20 20 20 20 20 20 20 20  |X   BAUD        |
0001f530  20 20 20 3b 49 4e 20 42  41 55 44 20 46 4f 52 20  |   ;IN BAUD FOR |
0001f540  44 49 53 50 4c 41 59 0d  42 53 39 36 30 31 20 20  |DISPLAY.BS9601  |
0001f550  20 4c 44 41 20 41 20 23  42 39 36 30 30 0d 20 20  | LDA A #B9600.  |
0001f560  20 20 20 20 20 20 20 53  54 41 20 41 20 43 52 42  |       STA A CRB|
0001f570  41 55 44 0d 20 20 20 20  20 20 20 20 20 53 54 41  |AUD.         STA|
0001f580  20 41 20 43 52 42 41 55  44 32 0d 20 20 20 20 20  | A CRBAUD2.     |
0001f590  20 20 20 20 52 54 53 0d  3b 2a 2a 2a 2a 2a 2a 2a  |    RTS.;*******|
0001f5a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001f5d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 3b  |**************.;|
0001f5e0  0d 3b 44 36 34 43 4b 20  53 55 42 2d 52 4f 55 54  |.;D64CK SUB-ROUT|
0001f5f0  49 4e 45 0d 3b 43 48 45  43 4b 53 20 41 43 49 41  |INE.;CHECKS ACIA|
0001f600  20 53 20 49 4e 20 44 49  56 20 42 59 20 36 34 0d  | S IN DIV BY 64.|
0001f610  3b 0d 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;.;*************|
0001f620  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001f650  2a 2a 2a 2a 2a 2a 2a 2a  0d 3b 0d 3b 0d 44 36 34  |********.;.;.D64|
0001f660  43 4b 20 20 20 20 45 51  55 20 20 20 24 20 20 20  |CK    EQU   $   |
0001f670  20 20 20 20 20 20 20 20  20 20 20 3b 53 54 41 52  |           ;STAR|
0001f680  54 0d 20 20 20 20 20 20  20 20 20 4c 44 41 20 41  |T.         LDA A|
0001f690  20 23 52 44 52 46 2b 54  44 52 45 0d 20 20 20 20  | #RDRF+TDRE.    |
0001f6a0  20 20 20 20 20 53 54 41  20 41 20 45 58 50 53 54  |     STA A EXPST|
0001f6b0  41 20 20 20 20 20 20 20  20 20 3b 45 58 50 45 43  |A         ;EXPEC|
0001f6c0  54 20 53 54 41 54 55 53  20 52 44 52 46 20 26 20  |T STATUS RDRF & |
0001f6d0  54 44 52 45 20 54 52 55  45 0d 20 20 20 20 20 20  |TDRE TRUE.      |
0001f6e0  20 20 20 4c 44 58 20 20  20 23 42 32 34 30 30 41  |   LDX   #B2400A|
0001f6f0  0d 20 20 20 20 20 20 20  20 20 53 54 58 20 20 20  |.         STX   |
0001f700  42 41 55 44 20 20 20 20  20 20 20 20 20 20 20 3b  |BAUD           ;|
0001f710  32 34 30 30 20 49 4e 20  42 41 55 44 20 44 49 53  |2400 IN BAUD DIS|
0001f720  50 4c 41 59 0d 20 20 20  20 20 20 20 20 20 4a 53  |PLAY.         JS|
0001f730  52 20 20 20 42 53 39 36  30 31 20 20 20 20 20 20  |R   BS9601      |
0001f740  20 20 20 3b 53 45 54 20  42 41 55 44 20 50 4f 52  |   ;SET BAUD POR|
0001f750  54 53 20 54 4f 20 39 36  30 30 0d 20 20 20 20 20  |TS TO 9600.     |
0001f760  20 20 20 20 4c 44 41 20  41 20 23 30 41 41 48 20  |    LDA A #0AAH |
0001f770  20 20 20 20 20 20 20 20  20 20 0d 20 20 20 20 20  |          .     |
0001f780  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
0001f800  20 41 20 23 54 49 4d 32  34 32 20 20 20 20 20 20  | A #TIM242      |
0001f810  20 20 3b 54 4f 0d 20 20  20 20 20 20 20 20 20 53  |  ;TO.         S|
0001f820  54 41 20 41 20 43 4e 54  39 35 32 20 20 20 20 20  |TA A CNT952     |
0001f830  20 20 20 20 3b 32 34 30  30 20 42 41 55 44 20 54  |    ;2400 BAUD T|
0001f840  49 4d 45 20 4f 55 54 0d  20 20 20 20 20 20 20 20  |IME OUT.        |
0001f850  20 4a 53 52 20 20 20 53  50 4f 52 54 31 20 20 20  | JSR   SPORT1   |
0001f860  20 20 20 20 20 20 3b 53  45 54 20 50 4f 52 54 20  |      ;SET PORT |
0001f870  31 0d 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |1.         JSR  |
0001f880  20 44 36 34 54 20 20 20  20 20 20 20 20 20 20 20  | D64T           |
0001f890  3b 53 45 54 20 50 4f 52  54 20 31 20 54 4f 20 44  |;SET PORT 1 TO D|
0001f8a0  49 56 20 42 59 20 36 34  0d 20 20 20 20 20 20 20  |IV BY 64.       |
0001f8b0  20 20 4a 53 52 20 20 20  53 50 4f 52 54 32 20 20  |  JSR   SPORT2  |
0001f8c0  20 20 20 20 20 20 20 3b  53 45 54 20 50 4f 52 54  |       ;SET PORT|
0001f8d0  20 32 0d 20 20 20 20 20  20 20 20 20 4a 53 52 20  | 2.         JSR |
0001f8e0  20 20 44 36 34 54 20 20  20 20 20 20 20 20 20 20  |  D64T          |
0001f8f0  20 3b 53 45 54 20 50 4f  52 54 20 32 20 54 4f 20  | ;SET PORT 2 TO |
0001f900  44 49 56 20 42 59 20 36  34 0d 20 20 20 20 20 20  |DIV BY 64.      |
0001f910  20 20 20 4c 44 41 20 41  20 45 58 50 44 54 41 20  |   LDA A EXPDTA |
0001f920  20 20 20 20 20 20 20 20  3b 0d 20 20 20 20 20 20  |        ;.      |
0001f930  20 20 20 4c 44 58 20 20  20 44 54 41 50 4f 52 54  |   LDX   DTAPORT|
0001f940  0d 20 20 20 20 20 20 20  20 20 53 54 41 20 41 20  |.         STA A |
0001f950  30 2c 58 20 20 20 20 20  20 20 20 3b 57 52 49 54  |0,X        ;WRIT|
0001f960  45 20 41 41 20 49 4e 20  50 4f 52 54 20 32 0d 20  |E AA IN PORT 2. |
0001f970  20 20 20 20 20 20 20 20  4a 53 52 20 20 20 54 4d  |        JSR   TM|
0001f980  52 39 35 20 20 20 20 20  20 20 20 20 20 3b 57 41  |R95          ;WA|
0001f990  49 54 20 41 20 57 48 49  4c 45 0d 20 20 20 20 20  |IT A WHILE.     |
0001f9a0  20 20 20 20 4a 53 52 20  20 20 53 50 4f 52 54 31  |    JSR   SPORT1|
0001f9b0  20 20 20 20 20 20 20 20  20 3b 53 45 54 20 50 4f  |         ;SET PO|
0001f9c0  52 54 20 31 0d 20 20 20  20 20 20 20 20 20 4a 53  |RT 1.         JS|
0001f9d0  52 20 20 20 52 44 53 54  41 54 20 20 20 20 20 20  |R   RDSTAT      |
0001f9e0  20 20 20 3b 52 45 41 44  20 50 4f 52 54 20 31 20  |   ;READ PORT 1 |
0001f9f0  53 54 41 54 55 53 0d 20  20 20 20 20 20 20 20 20  |STATUS.         |
0001fa00  4a 53 52 20 20 20 52 44  44 54 41 20 20 20 20 20  |JSR   RDDTA     |
0001fa10  20 20 20 20 3b 52 45 41  44 20 50 4f 52 54 20 31  |    ;READ PORT 1|
0001fa20  20 44 41 54 41 0d 20 20  20 20 20 20 20 20 20 52  | DATA.         R|
0001fa30  54 53 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |TS              |
0001fa40  20 20 20 20 3b 52 45 54  55 52 4e 0d 20 20 20 20  |    ;RETURN.    |
0001fa50  20 20 20 20 20 50 41 47  45 0d 3b 2a 2a 2a 2a 2a  |     PAGE.;*****|
0001fa60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001faa0  0d 3b 0d 3b 44 36 34 54  20 53 55 42 2d 52 4f 55  |.;.;D64T SUB-ROU|
0001fab0  54 49 4e 45 0d 3b 53 45  54 53 20 50 4f 52 54 20  |TINE.;SETS PORT |
0001fac0  54 4f 20 44 49 56 20 42  59 20 36 34 0d 3b 0d 3b  |TO DIV BY 64.;.;|
0001fad0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001fb10  2a 2a 2a 2a 2a 0d 3b 0d  3b 0d 44 36 34 54 20 20  |*****.;.;.D64T  |
0001fb20  20 20 20 45 51 55 20 20  20 24 20 20 20 20 20 20  |   EQU   $      |
0001fb30  20 20 20 20 20 20 20 20  3b 53 54 41 52 54 0d 20  |        ;START. |
0001fb40  20 20 20 20 20 20 20 20  4c 44 41 20 41 20 23 4d  |        LDA A #M|
0001fb50  53 54 52 53 54 20 20 20  20 20 20 20 20 3b 0d 20  |STRST        ;. |
0001fb60  20 20 20 20 20 20 20 20  4c 44 58 20 20 20 53 54  |        LDX   ST|
0001fb70  41 50 4f 52 54 0d 20 20  20 20 20 20 20 20 20 53  |APORT.         S|
0001fb80  54 41 20 41 20 30 2c 58  20 20 20 20 20 20 20 20  |TA A 0,X        |
0001fb90  3b 52 45 53 45 54 20 50  4f 52 54 0d 20 20 20 20  |;RESET PORT.    |
0001fba0  20 20 20 20 20 4c 44 41  20 41 20 23 44 49 56 36  |     LDA A #DIV6|
0001fbb0  34 2b 42 38 31 53 20 20  20 20 20 20 20 20 20 3b  |4+B81S         ;|
0001fbc0  0d 20 20 20 20 20 20 20  20 20 53 54 41 20 41 20  |.         STA A |
0001fbd0  30 2c 58 20 20 20 20 20  20 20 20 3b 44 49 56 20  |0,X        ;DIV |
0001fbe0  42 59 20 36 34 0d 20 20  20 20 20 20 20 20 20 52  |BY 64.         R|
0001fbf0  54 53 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |TS              |
0001fc00  20 20 20 20 3b 52 45 54  55 52 4e 0d 3b 2a 2a 2a  |    ;RETURN.;***|
0001fc10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001fc50  2a 2a 2a 2a 0d 3b 0d 3b  57 44 53 42 43 4b 20 53  |****.;.;WDSBCK S|
0001fc60  55 42 2d 52 4f 55 54 49  4e 45 0d 3b 43 48 45 43  |UB-ROUTINE.;CHEC|
0001fc70  4b 53 20 57 4f 52 44 20  53 45 4c 45 43 54 20 42  |KS WORD SELECT B|
0001fc80  49 54 53 20 49 4e 0d 3b  43 4f 4e 54 52 4f 4c 20  |ITS IN.;CONTROL |
0001fc90  52 45 47 49 53 54 45 52  53 0d 3b 0d 3b 2a 2a 2a  |REGISTERS.;.;***|
0001fca0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
0001fce0  2a 2a 2a 0d 3b 0d 3b 0d  57 44 53 42 43 4b 20 20  |***.;.;.WDSBCK  |
0001fcf0  20 45 51 55 20 20 20 24  20 20 20 20 20 20 20 20  | EQU   $        |
0001fd00  20 20 20 20 20 20 3b 53  54 41 52 54 0d 20 20 20  |      ;START.   |
0001fd10  20 20 20 20 20 20 4c 44  41 20 41 20 23 52 44 52  |      LDA A #RDR|
0001fd20  46 2b 54 44 52 45 0d 20  20 20 20 20 20 20 20 20  |F+TDRE.         |
0001fd30  53 54 41 20 41 20 45 58  50 53 54 41 20 20 20 20  |STA A EXPSTA    |
0001fd40  20 20 20 20 20 3b 45 58  50 45 43 54 20 53 54 41  |     ;EXPECT STA|
0001fd50  54 55 53 3d 52 44 52 46  20 54 44 52 45 20 54 52  |TUS=RDRF TDRE TR|
0001fd60  55 45 0d 20 20 20 20 20  20 20 20 20 4a 53 52 20  |UE.         JSR |
0001fd70  20 20 42 53 39 36 30 30  20 20 20 20 20 20 20 20  |  BS9600        |
0001fd80  20 3b 53 45 54 20 42 41  55 44 20 50 4f 52 54 53  | ;SET BAUD PORTS|
0001fd90  20 54 4f 20 39 36 30 30  0d 20 20 20 20 20 20 20  | TO 9600.       |
0001fda0  20 20 4c 44 41 20 41 20  23 30 32 41 48 0d 20 20  |  LDA A #02AH.  |
0001fdb0  20 20 20 20 20 20 20 53  54 41 20 41 20 45 58 50  |       STA A EXP|
0001fdc0  44 54 41 20 20 20 20 20  20 20 20 20 3b 45 58 50  |DTA         ;EXP|
0001fdd0  45 43 54 20 44 41 54 41  3d 41 41 0d 20 20 20 20  |ECT DATA=AA.    |
0001fde0  20 20 20 20 20 4a 53 52  20 20 20 54 53 39 36 30  |     JSR   TS960|
0001fdf0  30 20 20 20 20 20 20 20  20 20 3b 53 45 54 20 54  |0         ;SET T|
0001fe00  49 4d 45 52 20 54 4f 20  39 36 30 30 20 54 49 4d  |IMER TO 9600 TIM|
0001fe10  45 20 4f 55 54 0d 20 20  20 20 20 20 20 20 20 4a  |E OUT.         J|
0001fe20  53 52 20 20 20 52 53 54  20 20 20 20 20 20 20 20  |SR   RST        |
0001fe30  20 20 20 20 3b 52 45 53  45 54 20 41 43 49 41 20  |    ;RESET ACIA |
0001fe40  50 4f 52 54 53 0d 20 20  20 20 20 20 20 20 20 4c  |PORTS.         L|
0001fe50  44 58 20 20 20 23 57 53  42 54 42 4c 20 20 20 20  |DX   #WSBTBL    |
0001fe60  20 20 20 20 3b 47 45 54  20 57 4f 52 44 20 53 45  |    ;GET WORD SE|
0001fe70  4c 45 43 54 20 42 49 54  20 54 41 42 4c 45 20 50  |LECT BIT TABLE P|
0001fe80  4f 49 4e 54 45 52 0d 4c  4f 4f 50 20 20 20 20 20  |OINTER.LOOP     |
0001fe90  4c 44 41 20 41 20 30 2c  58 20 20 20 20 20 20 20  |LDA A 0,X       |
0001fea0  20 20 20 20 20 3b 47 45  54 20 57 4f 52 44 20 53  |     ;GET WORD S|
0001feb0  45 4c 45 43 54 20 42 49  54 20 46 52 4f 4d 20 54  |ELECT BIT FROM T|
0001fec0  41 42 4c 45 0d 20 20 20  20 20 20 20 20 20 42 4e  |ABLE.         BN|
0001fed0  45 20 20 20 43 4f 4e 54  20 20 20 20 20 20 20 20  |E   CONT        |
0001fee0  20 20 20 3b 49 46 20 45  4e 44 20 4f 46 20 54 41  |   ;IF END OF TA|
0001fef0  42 4c 45 2d 52 45 54 55  52 4e 0d 20 20 20 20 20  |BLE-RETURN.     |
0001ff00  20 20 20 20 52 54 53 20  20 20 20 20 20 20 20 20  |    RTS         |
0001ff10  20 20 20 20 20 20 20 20  20 3b 52 45 54 55 52 4e  |         ;RETURN|
0001ff20  0d 43 4f 4e 54 20 20 20  20 20 42 4d 49 20 20 20  |.CONT     BMI   |
0001ff30  42 49 54 38 20 20 20 20  20 20 20 20 20 20 20 3b  |BIT8           ;|
0001ff40  38 20 42 49 54 53 20 4f  46 20 44 41 54 41 0d 20  |8 BITS OF DATA. |
0001ff50  20 20 20 20 20 20 20 20  53 54 41 20 41 20 43 4e  |        STA A CN|
0001ff60  52 45 47 20 20 20 20 20  20 20 20 20 20 3b 53 54  |REG          ;ST|
0001ff70  4f 52 45 20 57 4f 52 44  20 53 45 4c 45 43 54 20  |ORE WORD SELECT |
0001ff80  42 49 54 53 20 49 4e 20  43 4e 52 45 47 20 46 4f  |BITS IN CNREG FO|
0001ff90  52 20 44 49 53 50 4c 41  59 0d 20 20 20 20 20 20  |R DISPLAY.      |
0001ffa0  20 20 20 53 54 41 20 41  20 43 52 41 43 53 43 20  |   STA A CRACSC |
0001ffb0  20 20 20 20 20 20 20 20  3b 57 52 49 54 45 20 54  |        ;WRITE T|
0001ffc0  4f 20 50 4f 52 54 20 31  20 43 4f 4e 54 52 4f 4c  |O PORT 1 CONTROL|
0001ffd0  20 52 45 47 0d 20 20 20  20 20 20 20 20 20 53 54  | REG.         ST|
0001ffe0  41 20 41 20 43 52 41 43  53 43 32 20 20 20 20 20  |A A CRACSC2     |
0001fff0  20 20 20 3b 57 52 49 54  45 20 54 4f 20 50 4f 52  |   ;WRITE TO POR|
00020000  54 20 32 20 43 4f 4e 54  52 4f 4c 20 52 45 47 0d  |T 2 CONTROL REG.|
00020010  20 20 20 20 20 20 20 20  20 4c 44 41 20 41 20 45  |         LDA A E|
00020020  58 50 44 54 41 20 20 20  20 20 20 20 20 20 3b 0d  |XPDTA         ;.|
00020030  20 20 20 20 20 20 20 20  20 53 54 41 20 41 20 43  |         STA A C|
00020040  52 41 43 44 41 20 20 20  20 20 20 20 20 20 3b 57  |RACDA         ;W|
00020050  52 49 54 45 20 41 41 20  54 4f 20 50 4f 52 54 20  |RITE AA TO PORT |
00020060  31 20 44 41 54 41 20 50  4f 52 54 0d 20 20 20 20  |1 DATA PORT.    |
00020070  20 20 20 20 20 4a 53 52  20 20 20 54 4d 52 39 35  |     JSR   TMR95|
00020080  20 20 20 20 20 20 20 20  20 20 3b 57 41 49 54 20  |          ;WAIT |
00020090  41 20 57 48 49 4c 45 0d  20 20 20 20 20 20 20 20  |A WHILE.        |
000200a0  20 4a 53 52 20 20 20 53  50 4f 52 54 32 20 20 20  | JSR   SPORT2   |
000200b0  20 20 20 20 20 20 3b 53  45 54 20 50 4f 52 54 20  |      ;SET PORT |
000200c0  32 0d 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |2.         JSR  |
000200d0  20 52 44 53 54 41 54 20  20 20 20 20 20 20 20 20  | RDSTAT         |
000200e0  3b 52 45 41 44 20 53 54  41 54 55 53 20 50 4f 52  |;READ STATUS POR|
000200f0  54 20 32 0d 20 20 20 20  20 20 20 20 20 4a 53 52  |T 2.         JSR|
00020100  20 20 20 52 44 44 54 41  20 20 20 20 20 20 20 20  |   RDDTA        |
00020110  20 20 3b 52 45 41 44 20  44 41 54 41 20 50 4f 52  |  ;READ DATA POR|
00020120  54 20 32 0d 20 20 20 20  20 20 20 20 20 49 4e 58  |T 2.         INX|
00020130  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00020140  20 20 3b 49 4e 43 52 45  4d 45 4e 54 20 54 48 45  |  ;INCREMENT THE|
00020150  20 58 20 52 45 47 0d 20  20 20 20 20 20 20 20 20  | X REG.         |
00020160  4a 53 52 20 20 20 54 53  39 36 30 30 20 20 20 20  |JSR   TS9600    |
00020170  20 20 20 20 20 3b 53 45  54 20 54 49 4d 45 52 20  |     ;SET TIMER |
00020180  54 4f 20 39 36 30 30 20  54 49 4d 45 20 4f 55 54  |TO 9600 TIME OUT|
00020190  0d 20 20 20 20 20 20 20  20 20 42 52 41 20 20 20  |.         BRA   |
000201a0  4c 4f 4f 50 20 20 20 20  20 20 20 20 20 20 20 3b  |LOOP           ;|
000201b0  47 4f 20 42 41 43 4b 0d  42 49 54 38 20 20 20 20  |GO BACK.BIT8    |
000201c0  20 4c 44 41 20 42 20 23  30 41 41 48 0d 20 20 20  | LDA B #0AAH.   |
000201d0  20 20 20 20 20 20 53 54  41 20 42 20 45 58 50 44  |      STA B EXPD|
000201e0  54 41 0d 20 20 20 20 20  20 20 20 20 49 4e 58 0d  |TA.         INX.|
000201f0  20 20 20 20 20 20 20 20  20 42 52 41 20 20 20 4c  |         BRA   L|
00020200  4f 4f 50 0d 20 20 20 20  20 20 20 20 20 50 41 47  |OOP.         PAG|
00020210  45 0d 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |E.;*************|
00020220  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00020250  2a 2a 2a 2a 2a 2a 2a 2a  0d 3b 0d 3b 53 57 50 54  |********.;.;SWPT|
00020260  43 4b 20 53 55 42 2d 52  4f 55 54 49 4e 45 0d 3b  |CK SUB-ROUTINE.;|
00020270  43 48 45 43 4b 53 20 42  4f 54 48 20 53 57 49 54  |CHECKS BOTH SWIT|
00020280  43 48 20 4f 50 54 49 4f  4e 20 50 4f 52 54 53 0d  |CH OPTION PORTS.|
00020290  3b 0d 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;.;*************|
000202a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000202d0  2a 2a 2a 2a 2a 2a 2a 0d  3b 0d 3b 0d 53 57 50 54  |*******.;.;.SWPT|
000202e0  43 4b 20 20 20 45 51 55  20 20 20 24 20 20 20 20  |CK   EQU   $    |
000202f0  20 20 20 20 20 20 20 20  20 20 3b 53 54 41 52 54  |          ;START|
00020300  0d 20 20 20 20 20 20 20  20 20 4c 44 41 20 41 20  |.         LDA A |
00020310  23 30 41 41 48 0d 20 20  20 20 20 20 20 20 20 53  |#0AAH.         S|
00020320  54 41 20 41 20 45 58 50  44 54 41 20 20 20 20 20  |TA A EXPDTA     |
00020330  20 20 20 20 3b 45 58 50  45 43 54 20 44 41 54 41  |    ;EXPECT DATA|
00020340  3d 41 41 0d 20 20 20 20  20 20 20 20 20 54 53 54  |=AA.         TST|
00020350  20 20 20 53 49 47 46 4c  47 20 20 20 20 20 20 20  |   SIGFLG       |
00020360  20 20 3b 49 46 20 54 41  4b 49 4e 47 20 53 49 47  |  ;IF TAKING SIG|
00020370  4e 41 54 55 52 45 53 0d  20 20 20 20 20 20 20 20  |NATURES.        |
00020380  20 42 4e 45 20 20 20 4e  4f 4d 53 47 20 20 20 20  | BNE   NOMSG    |
00020390  20 20 20 20 20 20 3b 44  4f 4e 54 20 44 49 53 50  |      ;DONT DISP|
000203a0  4c 41 59 20 4d 45 53 53  41 47 45 0d 20 20 20 20  |LAY MESSAGE.    |
000203b0  20 20 20 20 20 4c 44 58  20 20 20 23 53 57 31 4d  |     LDX   #SW1M|
000203c0  53 47 20 20 20 20 20 20  20 20 3b 44 49 53 50 4c  |SG        ;DISPL|
000203d0  41 59 0d 20 20 20 20 20  20 20 20 20 4c 44 41 20  |AY.         LDA |
000203e0  41 20 23 4d 45 53 53 47  20 20 20 20 20 20 20 20  |A #MESSG        |
000203f0  20 3b 4d 45 53 53 41 47  45 0d 20 20 20 20 20 20  | ;MESSAGE.      |
00020400  20 20 20 4a 53 52 20 20  20 50 53 56 43 20 20 20  |   JSR   PSVC   |
00020410  20 20 20 20 20 20 20 20  3b 45 56 45 4e 20 53 57  |        ;EVEN SW|
00020420  49 54 43 48 53 20 4f 4e  0d 4e 4f 4d 53 47 20 20  |ITCHS ON.NOMSG  |
00020430  20 20 4a 53 52 20 20 20  52 44 53 57 20 20 20 20  |  JSR   RDSW    |
00020440  20 20 20 20 20 20 20 3b  52 45 41 44 20 53 57 49  |       ;READ SWI|
00020450  54 43 48 20 50 4f 52 54  53 0d 20 20 20 20 20 20  |TCH PORTS.      |
00020460  20 20 20 4c 44 41 20 41  20 23 35 35 48 20 20 20  |   LDA A #55H   |
00020470  20 20 20 20 20 20 20 20  3b 0d 20 20 20 20 20 20  |        ;.      |
00020480  20 20 20 53 54 41 20 41  20 45 58 50 44 54 41 20  |   STA A EXPDTA |
00020490  20 20 20 20 20 20 20 20  3b 53 45 54 20 45 58 50  |        ;SET EXP|
000204a0  45 43 54 20 44 41 54 41  20 35 35 0d 20 20 20 20  |ECT DATA 55.    |
000204b0  20 20 20 20 20 54 53 54  20 20 20 53 49 47 46 4c  |     TST   SIGFL|
000204c0  47 20 20 20 20 20 20 20  20 20 3b 49 46 20 54 41  |G         ;IF TA|
000204d0  4b 49 4e 47 20 53 49 47  4e 41 54 55 52 45 53 0d  |KING SIGNATURES.|
000204e0  20 20 20 20 20 20 20 20  20 42 4e 45 20 20 20 4e  |         BNE   N|
000204f0  4f 4d 53 47 31 20 20 20  20 20 20 20 20 20 3b 44  |OMSG1         ;D|
00020500  4f 4e 54 20 44 49 53 50  4c 41 59 20 4d 45 53 53  |ONT DISPLAY MESS|
00020510  41 47 45 0d 20 20 20 20  20 20 20 20 20 4c 44 58  |AGE.         LDX|
00020520  20 20 20 23 53 57 32 4d  53 47 20 20 20 20 20 20  |   #SW2MSG      |
00020530  20 20 3b 44 49 53 50 4c  41 59 0d 20 20 20 20 20  |  ;DISPLAY.     |
00020540  20 20 20 20 4c 44 41 20  41 20 23 4d 45 53 53 47  |    LDA A #MESSG|
00020550  20 20 20 20 20 20 20 20  20 20 20 3b 4d 45 53 53  |           ;MESS|
00020560  41 47 45 0d 20 20 20 20  20 20 20 20 20 4a 53 52  |AGE.         JSR|
00020570  20 20 20 50 53 56 43 20  20 20 20 20 20 20 20 20  |   PSVC         |
00020580  20 20 3b 4f 44 44 20 53  57 49 54 43 48 45 53 20  |  ;ODD SWITCHES |
00020590  4f 4e 0d 4e 4f 4d 53 47  31 20 20 20 4a 53 52 20  |ON.NOMSG1   JSR |
000205a0  20 20 52 44 53 57 20 20  20 20 20 20 20 20 20 20  |  RDSW          |
000205b0  20 3b 52 45 41 44 20 53  57 49 54 43 48 20 50 4f  | ;READ SWITCH PO|
000205c0  52 54 53 0d 20 20 20 20  20 20 20 20 20 52 54 53  |RTS.         RTS|
000205d0  0d 3b 0d 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.;.;************|
000205e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00020610  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 3b 0d 3b 52 44 53  |*********.;.;RDS|
00020620  57 20 53 55 42 2d 52 4f  55 54 49 4e 45 0d 3b 52  |W SUB-ROUTINE.;R|
00020630  45 41 44 20 54 48 45 20  53 57 49 54 43 48 20 50  |EAD THE SWITCH P|
00020640  4f 52 54 53 0d 3b 0d 3b  2a 2a 2a 2a 2a 2a 2a 2a  |ORTS.;.;********|
00020650  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00020680  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 3b 0d  |*************.;.|
00020690  3b 0d 52 44 53 57 20 20  20 20 20 20 45 51 55 20  |;.RDSW      EQU |
000206a0  20 20 24 20 20 20 20 20  20 20 20 20 20 20 20 20  |  $             |
000206b0  20 3b 53 54 41 52 54 0d  20 20 20 20 20 20 20 20  | ;START.        |
000206c0  20 4c 44 41 20 41 20 23  31 20 20 20 20 20 20 20  | LDA A #1       |
000206d0  20 20 20 20 20 20 0d 20  20 20 20 20 20 20 20 20  |      .         |
000206e0  53 54 41 20 41 20 53 57  4e 55 4d 20 20 20 20 20  |STA A SWNUM     |
000206f0  20 20 20 20 20 3b 53 57  49 54 43 48 20 23 3d 31  |     ;SWITCH #=1|
00020700  0d 20 20 20 20 20 20 20  20 20 4c 44 41 20 41 20  |.         LDA A |
00020710  43 52 4f 50 53 57 20 20  20 20 20 20 20 20 20 3b  |CROPSW         ;|
00020720  52 45 41 44 20 53 57 49  54 43 48 20 50 4f 52 54  |READ SWITCH PORT|
00020730  20 31 0d 20 20 20 20 20  20 20 20 20 4a 53 52 20  | 1.         JSR |
00020740  20 20 43 4d 50 53 57 20  20 20 20 20 20 20 20 20  |  CMPSW         |
00020750  20 3b 47 4f 20 54 4f 20  43 4f 4d 50 41 52 45 20  | ;GO TO COMPARE |
00020760  53 2f 52 0d 20 20 20 20  20 20 20 20 20 4c 44 41  |S/R.         LDA|
00020770  20 41 20 23 32 20 20 20  20 20 20 20 20 20 20 20  | A #2           |
00020780  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
00020800  4f 20 54 4f 20 43 4f 4d  50 41 52 45 20 53 2f 52  |O TO COMPARE S/R|
00020810  0d 20 20 20 20 20 20 20  20 20 52 54 53 0d 3b 0d  |.         RTS.;.|
00020820  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
00020830  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00020860  2a 2a 2a 2a 2a 2a 0d 3b  0d 3b 43 4d 50 53 57 20  |******.;.;CMPSW |
00020870  53 55 42 2d 52 4f 55 54  49 4e 45 0d 3b 43 4f 4d  |SUB-ROUTINE.;COM|
00020880  50 41 52 45 53 20 53 57  49 54 43 48 20 44 41 54  |PARES SWITCH DAT|
00020890  41 20 54 4f 20 45 58 50  45 43 54 20 44 41 54 41  |A TO EXPECT DATA|
000208a0  0d 3b 0d 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.;.;************|
000208b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000208e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 3b 0d 3b 0d 43 4d  |*********.;.;.CM|
000208f0  50 53 57 20 20 20 20 45  51 55 20 20 20 24 20 20  |PSW    EQU   $  |
00020900  20 20 20 20 20 20 20 20  20 20 20 20 3b 53 54 41  |            ;STA|
00020910  52 54 0d 20 20 20 20 20  20 20 20 20 53 54 41 20  |RT.         STA |
00020920  41 20 53 57 44 54 41 20  20 20 20 20 20 20 20 20  |A SWDTA         |
00020930  20 3b 53 41 56 45 20 53  57 49 54 43 48 20 44 41  | ;SAVE SWITCH DA|
00020940  54 41 0d 20 20 20 20 20  20 20 20 20 54 53 54 20  |TA.         TST |
00020950  20 20 53 49 47 46 4c 47  20 20 20 20 20 20 20 20  |  SIGFLG        |
00020960  20 3b 49 46 20 54 41 4b  49 4e 47 20 53 49 47 4e  | ;IF TAKING SIGN|
00020970  41 54 55 52 45 53 0d 20  20 20 20 20 20 20 20 20  |ATURES.         |
00020980  42 4e 45 20 20 20 4e 4f  45 52 20 20 20 20 20 20  |BNE   NOER      |
00020990  20 20 20 20 20 3b 42 59  50 41 53 53 20 45 52 52  |     ;BYPASS ERR|
000209a0  4f 52 20 52 54 4e 0d 20  20 20 20 20 20 20 20 20  |OR RTN.         |
000209b0  43 4d 50 20 41 20 45 58  50 44 54 41 20 20 20 20  |CMP A EXPDTA    |
000209c0  20 20 20 20 20 3b 53 57  49 54 43 48 20 44 41 54  |     ;SWITCH DAT|
000209d0  41 3d 45 58 50 45 43 54  20 44 41 54 41 3f 0d 20  |A=EXPECT DATA?. |
000209e0  20 20 20 20 20 20 20 20  42 45 51 20 20 20 4e 4f  |        BEQ   NO|
000209f0  45 52 20 20 20 20 20 20  20 20 20 20 20 3b 59 45  |ER           ;YE|
00020a00  53 20 54 4f 20 54 4f 20  52 45 54 55 52 4e 0d 20  |S TO TO RETURN. |
00020a10  20 20 20 20 20 20 20 20  4c 44 58 20 20 20 23 53  |        LDX   #S|
00020a20  57 45 52 20 20 20 20 20  20 20 20 20 20 3b 0d 20  |WER          ;. |
00020a30  20 20 20 20 20 20 20 20  4a 53 52 20 20 20 45 52  |        JSR   ER|
00020a40  52 4f 55 54 20 20 20 20  20 20 20 20 20 3b 50 55  |ROUT         ;PU|
00020a50  54 20 4f 55 54 20 45 52  52 4f 52 20 4d 45 53 41  |T OUT ERROR MESA|
00020a60  47 45 0d 4e 4f 45 52 20  20 20 20 20 52 54 53 20  |GE.NOER     RTS |
00020a70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00020a80  20 3b 52 45 54 55 52 4e  0d 20 20 20 20 20 20 20  | ;RETURN.       |
00020a90  20 20 50 41 47 45 0d 3b  2a 2a 2a 2a 2a 2a 2a 2a  |  PAGE.;********|
00020aa0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00020ad0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 3b 0d 3b 49 4e  |**********.;.;IN|
00020ae0  54 45 52 55 50 54 20 54  45 53 54 20 23 30 32 0d  |TERUPT TEST #02.|
00020af0  3b 54 45 53 54 53 20 41  43 49 41 20 49 4e 54 45  |;TESTS ACIA INTE|
00020b00  52 55 50 54 53 0d 3b 0d  3b 2a 2a 2a 2a 2a 2a 2a  |RUPTS.;.;*******|
00020b10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00020b40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 3b  |**************.;|
00020b50  0d 53 54 53 54 30 32 20  20 20 45 51 55 20 20 20  |.STST02   EQU   |
00020b60  24 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |$              ;|
00020b70  53 54 41 52 54 0d 20 20  20 20 20 20 20 20 20 4c  |START.         L|
00020b80  44 53 20 20 20 23 49 53  54 41 43 4b 20 20 20 20  |DS   #ISTACK    |
00020b90  20 20 20 20 3b 0d 20 20  20 20 20 20 20 20 20 4c  |    ;.         L|
00020ba0  44 58 20 20 20 23 49 4e  54 4d 53 47 20 20 20 20  |DX   #INTMSG    |
00020bb0  20 20 20 20 3b 49 4e 54  45 52 55 50 54 20 54 45  |    ;INTERUPT TE|
00020bc0  53 54 20 4d 45 53 53 41  47 45 0d 20 20 20 20 20  |ST MESSAGE.     |
00020bd0  20 20 20 20 4a 53 52 20  20 20 49 4e 49 54 20 20  |    JSR   INIT  |
00020be0  20 20 20 20 20 20 20 20  20 3b 49 4e 49 54 49 41  |         ;INITIA|
00020bf0  4c 49 5a 45 0d 20 20 20  20 20 20 20 20 20 4a 53  |LIZE.         JS|
00020c00  52 20 20 20 42 53 39 36  30 30 20 20 20 20 20 20  |R   BS9600      |
00020c10  20 20 20 3b 53 45 4c 45  43 54 20 39 36 30 30 20  |   ;SELECT 9600 |
00020c20  42 41 55 44 20 52 41 54  45 0d 20 20 20 20 20 20  |BAUD RATE.      |
00020c30  20 20 20 4a 53 52 20 20  20 54 53 39 36 30 30 20  |   JSR   TS9600 |
00020c40  20 20 20 20 20 20 20 20  3b 53 45 54 20 54 49 4d  |        ;SET TIM|
00020c50  45 52 20 46 4f 52 20 39  36 30 30 20 54 49 4d 45  |ER FOR 9600 TIME|
00020c60  20 4f 55 54 0d 53 47 53  54 30 32 20 20 20 45 51  | OUT.SGST02   EQ|
00020c70  55 20 20 20 24 20 20 20  20 20 20 20 20 20 20 20  |U   $           |
00020c80  20 20 20 3b 53 49 47 4e  41 54 55 52 45 20 53 54  |   ;SIGNATURE ST|
00020c90  41 52 54 0d 53 47 52 53  30 32 20 20 20 45 51 55  |ART.SGRS02   EQU|
00020ca0  20 20 20 24 20 20 20 20  20 20 20 20 20 20 20 20  |   $            |
00020cb0  20 20 3b 53 49 47 4e 41  54 55 52 45 20 52 45 53  |  ;SIGNATURE RES|
00020cc0  54 41 52 54 0d 20 20 20  20 20 20 20 20 20 43 4c  |TART.         CL|
00020cd0  52 20 20 20 49 4e 54 46  4c 47 0d 20 20 20 20 20  |R   INTFLG.     |
00020ce0  20 20 20 20 4a 53 52 20  20 20 52 44 52 46 49 43  |    JSR   RDRFIC|
00020cf0  4b 20 20 20 20 20 20 20  20 3b 47 4f 20 54 4f 20  |K        ;GO TO |
00020d00  52 44 52 46 20 49 4e 54  45 52 55 50 54 20 43 48  |RDRF INTERUPT CH|
00020d10  45 43 4b 0d 20 20 20 20  20 20 20 20 20 4a 53 52  |ECK.         JSR|
00020d20  20 20 20 4f 56 52 4e 49  43 4b 20 20 20 20 20 20  |   OVRNICK      |
00020d30  20 20 3b 47 4f 20 54 4f  20 4f 56 52 4e 20 49 4e  |  ;GO TO OVRN IN|
00020d40  54 45 52 55 50 54 20 43  48 45 43 4b 0d 20 20 20  |TERUPT CHECK.   |
00020d50  20 20 20 20 20 20 54 53  54 20 20 20 53 49 47 46  |      TST   SIGF|
00020d60  4c 47 20 20 20 20 20 20  20 20 20 3b 49 46 20 54  |LG         ;IF T|
00020d70  41 4b 49 4e 47 20 53 49  47 4e 41 54 55 52 45 53  |AKING SIGNATURES|
00020d80  0d 20 20 20 20 20 20 20  20 20 42 4e 45 20 20 20  |.         BNE   |
00020d90  42 50 54 20 20 20 20 20  20 20 20 20 20 20 20 3b  |BPT            ;|
00020da0  42 59 50 41 53 53 20 54  48 45 20 44 43 44 20 54  |BYPASS THE DCD T|
00020db0  45 53 54 0d 20 20 20 20  20 20 20 20 20 4a 53 52  |EST.         JSR|
00020dc0  20 20 20 44 43 44 49 43  4b 20 20 20 20 20 20 20  |   DCDICK       |
00020dd0  20 20 3b 47 4f 20 54 4f  20 44 43 44 20 49 4e 54  |  ;GO TO DCD INT|
00020de0  45 52 55 50 54 20 43 48  45 43 4b 0d 42 50 54 20  |ERUPT CHECK.BPT |
00020df0  20 20 20 20 20 4a 53 52  20 20 20 54 44 52 45 49  |     JSR   TDREI|
00020e00  43 4b 20 20 20 20 20 20  20 20 3b 47 4f 20 54 4f  |CK        ;GO TO|
00020e10  20 54 44 52 45 20 49 4e  54 45 52 55 50 54 20 43  | TDRE INTERUPT C|
00020e20  48 45 43 4b 0d 53 47 4e  44 30 32 20 20 20 45 51  |HECK.SGND02   EQ|
00020e30  55 20 20 20 24 20 20 20  20 20 20 20 20 20 20 20  |U   $           |
00020e40  20 20 20 3b 53 49 47 4e  41 54 55 52 45 20 45 4e  |   ;SIGNATURE EN|
00020e50  44 0d 20 20 20 20 20 20  20 20 20 4a 4d 50 20 20  |D.         JMP  |
00020e60  20 53 54 45 4e 44 20 20  20 20 20 20 20 20 20 20  | STEND          |
00020e70  3b 45 4e 44 20 53 55 42  20 54 45 53 54 20 23 30  |;END SUB TEST #0|
00020e80  32 0d 3b 0d 20 20 20 20  20 20 20 20 20 50 41 47  |2.;.         PAG|
00020e90  45 0d 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |E.;*************|
00020ea0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00020ed0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 3b 0d 3b 52 44 52  |*********.;.;RDR|
00020ee0  46 49 43 4b 20 53 55 42  2d 52 4f 55 54 49 4e 45  |FICK SUB-ROUTINE|
00020ef0  0d 3b 43 48 45 43 4b 53  20 52 44 52 46 20 47 45  |.;CHECKS RDRF GE|
00020f00  4e 45 52 41 54 45 44 20  49 4e 54 45 52 55 50 54  |NERATED INTERUPT|
00020f10  53 0d 3b 0d 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |S.;.;***********|
00020f20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00020f50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 3b 0d 52 44 52  |**********.;.RDR|
00020f60  46 49 43 4b 20 20 45 51  55 20 20 20 24 20 20 20  |FICK  EQU   $   |
00020f70  20 20 20 20 20 20 20 20  20 20 20 3b 53 54 41 52  |           ;STAR|
00020f80  54 0d 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |T.         JSR  |
00020f90  20 57 54 31 52 44 32 20  20 20 20 20 20 20 20 20  | WT1RD2         |
00020fa0  3b 53 45 54 20 55 50 20  57 52 49 54 45 20 50 4f  |;SET UP WRITE PO|
00020fb0  52 54 20 31 20 52 45 41  44 20 50 4f 52 54 20 32  |RT 1 READ PORT 2|
00020fc0  0d 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |.         JSR   |
00020fd0  52 44 52 46 49 54 20 20  20 20 20 20 20 20 20 3b  |RDRFIT         ;|
00020fe0  47 4f 20 54 4f 20 52 44  52 46 20 49 4e 54 20 54  |GO TO RDRF INT T|
00020ff0  45 53 54 0d 20 20 20 20  20 20 20 20 20 4a 53 52  |EST.         JSR|
00021000  20 20 20 57 54 32 52 44  31 20 20 20 20 20 20 20  |   WT2RD1       |
00021010  20 20 3b 53 45 54 20 55  50 20 57 52 49 54 45 20  |  ;SET UP WRITE |
00021020  50 4f 52 54 20 32 20 52  45 41 44 20 50 4f 52 54  |PORT 2 READ PORT|
00021030  20 31 0d 20 20 20 20 20  20 20 20 20 4a 53 52 20  | 1.         JSR |
00021040  20 20 52 44 52 46 49 54  20 20 20 20 20 20 20 20  |  RDRFIT        |
00021050  20 3b 47 4f 20 54 4f 20  52 44 52 46 20 49 4e 54  | ;GO TO RDRF INT|
00021060  20 54 45 53 54 0d 20 20  20 20 20 20 20 20 20 52  | TEST.         R|
00021070  54 53 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |TS              |
00021080  20 20 20 20 3b 52 45 54  55 52 4e 0d 3b 2a 2a 2a  |    ;RETURN.;***|
00021090  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000210d0  2a 2a 2a 0d 3b 0d 3b 52  44 52 46 49 54 20 53 55  |***.;.;RDRFIT SU|
000210e0  42 2d 52 4f 55 54 49 4e  45 0d 3b 54 45 53 54 53  |B-ROUTINE.;TESTS|
000210f0  20 52 44 52 46 20 49 4e  54 45 52 55 50 54 53 0d  | RDRF INTERUPTS.|
00021100  3b 0d 3b 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;.;*************|
00021110  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00021140  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 3b 0d 52 44 52 46  |*********.;.RDRF|
00021150  49 54 20 20 20 45 51 55  20 20 20 24 20 20 20 20  |IT   EQU   $    |
00021160  20 20 20 20 20 20 20 20  20 20 3b 53 54 41 52 54  |          ;START|
00021170  0d 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |.         JSR   |
00021180  52 44 49 4e 54 53 55 20  20 20 20 20 20 20 20 3b  |RDINTSU        ;|
00021190  53 45 54 20 55 50 20 50  4f 52 54 20 46 4f 52 20  |SET UP PORT FOR |
000211a0  52 45 43 45 49 56 45 52  20 49 4e 54 45 52 55 50  |RECEIVER INTERUP|
000211b0  54 0d 20 20 20 20 20 20  20 20 20 4c 44 58 20 20  |T.         LDX  |
000211c0  20 57 54 44 41 50 54 0d  20 20 20 20 20 20 20 20  | WTDAPT.        |
000211d0  20 53 54 41 20 41 20 30  2c 58 20 20 20 20 20 20  | STA A 0,X      |
000211e0  20 20 20 3b 57 52 49 54  45 20 54 4f 20 44 41 54  |   ;WRITE TO DAT|
000211f0  41 20 50 4f 52 54 0d 20  20 20 20 20 20 20 20 20  |A PORT.         |
00021200  4a 53 52 20 20 20 54 4d  52 39 35 20 20 20 20 20  |JSR   TMR95     |
00021210  20 20 20 20 20 3b 57 41  49 54 20 41 57 48 49 4c  |     ;WAIT AWHIL|
00021220  45 0d 20 20 20 20 20 20  20 20 20 4a 53 52 20 20  |E.         JSR  |
00021230  20 49 4e 54 54 53 54 20  20 20 20 20 20 20 20 20  | INTTST         |
00021240  3b 54 45 53 54 20 46 4f  52 20 49 4e 54 45 52 55  |;TEST FOR INTERU|
00021250  50 54 53 0d 20 20 20 20  20 20 20 20 20 43 4c 52  |PTS.         CLR|
00021260  20 20 20 45 58 50 46 4c  47 20 20 20 20 20 20 20  |   EXPFLG       |
00021270  20 20 3b 4e 4f 20 4c 4f  4e 47 45 52 20 45 58 50  |  ;NO LONGER EXP|
00021280  45 43 54 20 41 4e 20 49  4e 54 45 52 55 50 54 0d  |ECT AN INTERUPT.|
00021290  20 20 20 20 20 20 20 20  20 4a 53 52 20 20 20 54  |         JSR   T|
000212a0  53 39 36 30 30 20 20 20  20 20 20 20 20 20 3b 53  |S9600         ;S|
000212b0  45 54 20 54 49 4d 45 52  20 46 4f 52 20 39 36 30  |ET TIMER FOR 960|
000212c0  30 20 54 49 4d 45 20 4f  55 54 0d 20 20 20 20 20  |0 TIME OUT.     |
000212d0  20 20 20 20 4c 44 41 20  41 20 23 30 46 46 48 0d  |    LDA A #0FFH.|
000212e0  20 20 20 20 20 20 20 20  20 53 54 41 20 41 20 45  |         STA A E|
000212f0  58 50 49 4e 54 0d 20 20  20 20 20 20 20 20 20 4a  |XPINT.         J|
00021300  53 52 20 20 20 49 4e 54  54 53 54 20 20 20 20 20  |SR   INTTST     |
00021310  20 20 20 20 3b 54 45 53  54 20 46 4f 52 20 49 4e  |    ;TEST FOR IN|
00021320  54 45 52 55 50 54 53 0d  20 20 20 20 20 20 20 20  |TERUPTS.        |
00021330  20 52 54 53 20 20 20 20  20 20 20 20 20 20 20 20  | RTS            |
00021340  20 20 20 20 20 20 3b 52  45 54 55 52 4e 0d 3b 2a  |      ;RETURN.;*|
00021350  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00021390  2a 2a 2a 2a 2a 0d 3b 0d  3b 4f 56 52 4e 49 43 4b  |*****.;.;OVRNICK|
000213a0  20 53 55 42 2d 52 4f 55  54 49 4e 45 0d 3b 43 48  | SUB-ROUTINE.;CH|
000213b0  45 43 4b 53 20 49 4e 54  45 52 55 50 54 53 20 47  |ECKS INTERUPTS G|
000213c0  45 4e 45 52 41 54 45 44  20 42 59 0d 3b 4f 56 52  |ENERATED BY.;OVR|
000213d0  4e 20 43 4f 4e 44 49 54  49 4f 4e 0d 3b 0d 3b 2a  |N CONDITION.;.;*|
000213e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00021420  2a 2a 2a 2a 2a 0d 3b 0d  4f 56 52 4e 49 43 4b 20  |*****.;.OVRNICK |
00021430  20 45 51 55 20 20 20 24  0d 20 20 20 20 20 20 20  | EQU   $.       |
00021440  20 20 4a 53 52 20 20 20  57 54 31 52 44 32 20 20  |  JSR   WT1RD2  |
00021450  20 20 20 20 20 20 20 3b  53 45 54 20 57 52 49 54  |       ;SET WRIT|
00021460  45 20 50 4f 52 54 20 31  20 52 45 41 44 20 50 4f  |E PORT 1 READ PO|
00021470  52 54 20 32 0d 20 20 20  20 20 20 20 20 20 4a 53  |RT 2.         JS|
00021480  52 20 20 20 4f 56 52 4e  49 54 20 20 20 20 20 20  |R   OVRNIT      |
00021490  20 20 20 3b 47 4f 20 54  4f 20 4f 56 52 4e 20 49  |   ;GO TO OVRN I|
000214a0  4e 54 20 54 45 53 54 0d  20 20 20 20 20 20 20 20  |NT TEST.        |
000214b0  20 4a 53 52 20 20 20 57  54 32 52 44 31 20 20 20  | JSR   WT2RD1   |
000214c0  20 20 20 20 20 20 3b 53  45 50 20 57 52 49 54 45  |      ;SEP WRITE|
000214d0  20 50 4f 52 54 20 32 20  52 45 41 44 20 50 4f 52  | PORT 2 READ POR|
000214e0  54 20 31 0d 20 20 20 20  20 20 20 20 20 4a 53 52  |T 1.         JSR|
000214f0  20 20 20 4f 56 52 4e 49  54 20 20 20 20 20 20 20  |   OVRNIT       |
00021500  20 20 3b 47 4f 20 54 4f  20 4f 56 52 4e 20 49 4e  |  ;GO TO OVRN IN|
00021510  54 20 54 45 53 54 0d 20  20 20 20 20 20 20 20 20  |T TEST.         |
00021520  52 54 53 20 20 20 20 20  20 20 20 20 20 20 20 20  |RTS             |
00021530  20 20 20 20 20 3b 52 45  54 55 52 4e 0d 20 20 20  |     ;RETURN.   |
00021540  20 20 20 20 20 20 50 41  47 45 0d 3b 2a 2a 2a 2a  |      PAGE.;****|
00021550  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00021590  2a 2a 0d 3b 0d 3b 4f 56  52 4e 49 54 20 53 55 42  |**.;.;OVRNIT SUB|
000215a0  2d 52 4f 55 54 49 4e 45  0d 3b 54 45 53 54 53 20  |-ROUTINE.;TESTS |
000215b0  54 48 45 20 49 4e 54 45  52 55 50 54 20 43 41 55  |THE INTERUPT CAU|
000215c0  53 45 44 0d 3b 42 59 20  41 4e 20 4f 56 45 52 52  |SED.;BY AN OVERR|
000215d0  55 4e 20 43 4f 4e 44 49  54 49 4f 4e 0d 3b 0d 3b  |UN CONDITION.;.;|
000215e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00021620  2a 2a 2a 2a 2a 2a 0d 3b  0d 4f 56 52 4e 49 54 20  |******.;.OVRNIT |
00021630  20 20 45 51 55 20 20 20  24 0d 20 20 20 20 20 20  |  EQU   $.      |
00021640  20 20 20 4a 53 52 20 20  20 52 44 49 4e 54 53 55  |   JSR   RDINTSU|
00021650  20 20 20 20 20 20 20 20  3b 53 45 54 20 52 45 43  |        ;SET REC|
00021660  45 49 56 45 52 20 49 4e  54 45 52 55 50 54 53 20  |EIVER INTERUPTS |
00021670  45 4e 41 42 4c 45 0d 20  20 20 20 20 20 20 20 20  |ENABLE.         |
00021680  4a 53 52 20 20 20 54 53  39 36 30 30 20 20 20 20  |JSR   TS9600    |
00021690  20 20 20 20 20 3b 53 45  54 20 54 49 4d 45 52 20  |     ;SET TIMER |
000216a0  39 36 30 30 20 54 49 4d  45 20 4f 55 54 0d 20 20  |9600 TIME OUT.  |
000216b0  20 20 20 20 20 20 20 4c  44 58 20 20 20 57 54 44  |       LDX   WTD|
000216c0  41 50 54 0d 20 20 20 20  20 20 20 20 20 53 54 41  |APT.         STA|
000216d0  20 41 20 30 2c 58 20 20  20 20 20 20 20 20 20 3b  | A 0,X         ;|
000216e0  57 52 49 54 45 20 54 4f  20 44 41 54 41 20 50 4f  |WRITE TO DATA PO|
000216f0  52 54 0d 20 20 20 20 20  20 20 20 20 4a 53 52 20  |RT.         JSR |
00021700  20 20 54 4d 52 39 35 20  20 20 20 20 20 20 20 20  |  TMR95         |
00021710  20 3b 57 41 49 54 20 41  20 57 48 49 4c 45 0d 20  | ;WAIT A WHILE. |
00021720  20 20 20 20 20 20 20 20  4a 53 52 20 20 20 54 53  |        JSR   TS|
00021730  39 36 30 30 20 20 20 20  20 20 20 20 20 3b 53 45  |9600         ;SE|
00021740  54 20 54 49 4d 45 52 20  39 36 30 30 20 54 49 4d  |T TIMER 9600 TIM|
00021750  45 20 4f 55 54 0d 20 20  20 20 20 20 20 20 20 53  |E OUT.         S|
00021760  54 41 20 41 20 30 2c 58  20 20 20 20 20 20 20 20  |TA A 0,X        |
00021770  20 3b 57 52 49 54 45 20  54 4f 20 44 41 54 41 20  | ;WRITE TO DATA |
00021780  50 4f 52 54 0d 20 20 20  20 20 20 20 20 20 4a 53  |PORT.         JS|
00021790  52 20 20 20 54 4d 52 39  35 20 20 20 20 20 20 20  |R   TMR95       |
000217a0  20 20 20 3b 57 41 49 54  20 41 20 57 48 49 4c 45  |   ;WAIT A WHILE|
000217b0  0d 20 20 20 20 20 20 20  20 20 4c 44 58 20 20 20  |.         LDX   |
000217c0  52 44 44 41 50 54 0d 20  20 20 20 20 20 20 20 20  |RDDAPT.         |
000217d0  4c 44 41 20 41 20 30 2c  58 0d 20 20 20 20 20 20  |LDA A 0,X.      |
000217e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000217f0  20 20 20 20 20 20 20 20  3b 49 4e 54 45 52 55 50  |        ;INTERUP|
00021800  54 20 42 55 54 20 4e 4f  54 20 4f 56 52 4e 20 49  |T BUT NOT OVRN I|
00021810  4e 54 45 52 55 50 54 0d  20 20 20 20 20 20 20 20  |NTERUPT.        |
00021820  20 4c 44 41 20 41 20 23  52 44 52 46 2b 4f 56 52  | LDA A #RDRF+OVR|
00021830  4e 2b 49 52 51 2b 54 44  52 45 0d 20 20 20 20 20  |N+IRQ+TDRE.     |
00021840  20 20 20 20 53 54 41 20  41 20 45 58 50 53 54 41  |    STA A EXPSTA|
00021850  20 20 20 20 20 20 20 20  20 3b 45 58 50 45 43 54  |         ;EXPECT|
00021860  20 53 54 41 54 55 53 3d  52 44 52 46 2c 4f 56 52  | STATUS=RDRF,OVR|
00021870  4e 2c 49 52 51 2c 54 44  52 45 2c 54 52 55 45 0d  |N,IRQ,TDRE,TRUE.|
00021880  20 20 20 20 20 20 20 20  20 4a 53 52 20 20 20 52  |         JSR   R|
00021890  44 53 54 41 54 20 20 20  20 20 20 20 20 20 3b 52  |DSTAT         ;R|
000218a0  45 41 44 20 53 54 41 54  55 53 0d 20 20 20 20 20  |EAD STATUS.     |
000218b0  20 20 20 20 4a 53 52 20  20 20 49 4e 54 54 53 54  |    JSR   INTTST|
000218c0  20 20 20 20 20 20 20 20  20 3b 47 4f 20 54 4f 20  |         ;GO TO |
000218d0  49 4e 54 45 52 55 50 54  20 54 45 53 54 0d 20 20  |INTERUPT TEST.  |
000218e0  20 20 20 20 20 20 20 43  4c 52 20 20 20 45 58 50  |       CLR   EXP|
000218f0  46 4c 47 20 20 20 20 20  20 20 20 20 3b 49 4e 54  |FLG         ;INT|
00021900  45 52 55 50 54 20 4e 4f  54 20 45 58 50 45 43 54  |ERUPT NOT EXPECT|
00021910  45 44 0d 20 20 20 20 20  20 20 20 20 4c 44 41 20  |ED.         LDA |
00021920  41 20 23 30 46 46 48 0d  20 20 20 20 20 20 20 20  |A #0FFH.        |
00021930  20 53 54 41 20 41 20 45  58 50 49 4e 54 0d 20 20  | STA A EXPINT.  |
00021940  20 20 20 20 20 20 20 4a  53 52 20 20 20 49 4e 54  |       JSR   INT|
00021950  54 53 54 20 20 20 20 20  20 20 20 20 3b 47 4f 20  |TST         ;GO |
00021960  54 4f 20 49 4e 54 45 52  55 50 54 20 54 45 53 54  |TO INTERUPT TEST|
00021970  0d 20 20 20 20 20 20 20  20 20 52 54 53 20 20 20  |.         RTS   |
00021980  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00021990  52 45 54 55 52 4e 0d 20  20 20 20 20 20 20 20 20  |RETURN.         |
000219a0  50 41 47 45 0d 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |PAGE.;**********|
000219b0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000219e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 3b 0d 3b  |************.;.;|
000219f0  44 43 44 49 43 4b 20 53  55 42 2d 52 4f 55 54 49  |DCDICK SUB-ROUTI|
00021a00  4e 45 0d 3b 43 48 45 43  4b 53 20 49 4e 54 45 52  |NE.;CHECKS INTER|
00021a10  55 50 54 53 20 47 45 4e  45 52 41 54 45 44 0d 3b  |UPTS GENERATED.;|
00021a20  42 59 20 44 43 44 20 47  4f 49 4e 47 20 48 49 47  |BY DCD GOING HIG|
00021a30  48 0d 3b 0d 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |H.;.;***********|
00021a40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00021a70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 3b 0d 44 43  |***********.;.DC|
00021a80  44 49 43 4b 20 20 20 45  51 55 20 20 20 24 20 20  |DICK   EQU   $  |
00021a90  20 20 20 20 20 20 20 20  20 20 20 20 3b 53 54 41  |            ;STA|
00021aa0  52 54 0d 20 20 20 20 20  20 20 20 20 4a 53 52 20  |RT.         JSR |
00021ab0  20 20 57 54 31 52 44 32  20 20 20 20 20 20 20 20  |  WT1RD2        |
00021ac0  20 3b 53 45 54 20 57 52  49 54 45 20 50 4f 52 54  | ;SET WRITE PORT|
00021ad0  20 31 20 52 45 41 44 20  50 4f 52 54 20 32 0d 20  | 1 READ PORT 2. |
00021ae0  20 20 20 20 20 20 20 20  4a 53 52 20 20 20 44 43  |        JSR   DC|
00021af0  44 49 54 20 20 20 20 20  20 20 20 20 20 3b 47 4f  |DIT          ;GO|
00021b00  20 54 4f 20 44 43 44 20  49 4e 54 20 54 45 53 54  | TO DCD INT TEST|
00021b10  0d 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |.         JSR   |
00021b20  57 54 32 52 44 31 20 20  20 20 20 20 20 20 20 3b  |WT2RD1         ;|
00021b30  53 45 54 20 57 52 49 54  45 20 50 4f 52 54 20 32  |SET WRITE PORT 2|
00021b40  20 52 45 41 44 20 50 4f  52 54 20 31 0d 20 20 20  | READ PORT 1.   |
00021b50  20 20 20 20 20 20 4a 53  52 20 20 20 44 43 44 49  |      JSR   DCDI|
00021b60  54 20 20 20 20 20 20 20  20 20 20 3b 47 4f 20 54  |T          ;GO T|
00021b70  4f 20 44 43 44 20 49 4e  54 20 54 45 53 54 0d 20  |O DCD INT TEST. |
00021b80  20 20 20 20 20 20 20 20  52 54 53 20 20 20 20 20  |        RTS     |
00021b90  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 52 45  |             ;RE|
00021ba0  54 55 52 4e 0d 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |TURN.;**********|
00021bb0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00021be0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 3b 0d 3b  |************.;.;|
00021bf0  44 43 44 49 54 20 53 55  42 2d 52 4f 55 54 49 4e  |DCDIT SUB-ROUTIN|
00021c00  45 0d 3b 54 45 53 54 53  20 44 43 44 20 49 4e 54  |E.;TESTS DCD INT|
00021c10  45 52 55 50 54 0d 3b 0d  3b 2a 2a 2a 2a 2a 2a 2a  |ERUPT.;.;*******|
00021c20  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00021c50  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 0d  |***************.|
00021c60  3b 0d 44 43 44 49 54 20  20 20 20 45 51 55 20 20  |;.DCDIT    EQU  |
00021c70  20 24 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | $              |
00021c80  3b 53 54 41 52 54 0d 20  20 20 20 20 20 20 20 20  |;START.         |
00021c90  4a 53 52 20 20 20 52 44  49 4e 54 53 55 20 20 20  |JSR   RDINTSU   |
00021ca0  20 20 20 20 20 3b 53 45  54 20 55 50 20 52 45 43  |     ;SET UP REC|
00021cb0  45 49 56 45 52 20 49 4e  54 45 52 55 50 54 53 20  |EIVER INTERUPTS |
00021cc0  45 4e 41 42 4c 45 44 0d  20 20 20 20 20 20 20 20  |ENABLED.        |
00021cd0  20 4a 53 52 20 20 20 44  43 44 4d 52 20 20 20 20  | JSR   DCDMR    |
00021ce0  20 20 20 20 20 20 3b 50  55 54 20 4f 55 54 20 4d  |      ;PUT OUT M|
00021cf0  45 53 53 41 47 45 20 22  50 55 53 48 20 44 43 44  |ESSAGE "PUSH DCD|
00021d00  20 53 57 2d 48 49 54 20  52 55 4e 22 0d 20 20 20  | SW-HIT RUN".   |
00021d10  20 20 20 20 20 20 4c 44  41 20 41 20 23 44 43 44  |      LDA A #DCD|
00021d20  2b 49 52 51 2b 54 44 52  45 20 20 20 20 20 20 20  |+IRQ+TDRE       |
00021d30  3b 0d 20 20 20 20 20 20  20 20 20 53 54 41 20 41  |;.         STA A|
00021d40  20 45 58 50 53 54 41 20  20 20 20 20 20 20 20 20  | EXPSTA         |
00021d50  3b 45 58 50 45 43 54 20  53 54 41 54 55 53 20 44  |;EXPECT STATUS D|
00021d60  43 44 20 26 20 49 52 51  20 54 52 55 45 0d 20 20  |CD & IRQ TRUE.  |
00021d70  20 20 20 20 20 20 20 4a  53 52 20 20 20 52 44 53  |       JSR   RDS|
00021d80  54 41 54 20 20 20 20 20  20 20 20 20 3b 52 45 41  |TAT         ;REA|
00021d90  44 20 54 48 45 20 53 54  41 54 55 53 0d 20 20 20  |D THE STATUS.   |
00021da0  20 20 20 20 20 20 4a 53  52 20 20 20 49 4e 54 54  |      JSR   INTT|
00021db0  53 54 20 20 20 20 20 20  20 20 20 3b 47 4f 20 54  |ST         ;GO T|
00021dc0  4f 20 49 4e 54 45 52 55  50 54 20 54 45 53 54 0d  |O INTERUPT TEST.|
00021dd0  20 20 20 20 20 20 20 20  20 43 4c 52 20 20 20 45  |         CLR   E|
00021de0  58 50 46 4c 47 20 20 20  20 20 20 20 20 20 3b 49  |XPFLG         ;I|
00021df0  4e 54 45 52 55 50 54 20  4e 4f 54 20 45 58 50 45  |NTERUPT NOT EXPE|
00021e00  43 54 45 44 0d 20 20 20  20 20 20 20 20 20 4c 44  |CTED.         LD|
00021e10  41 20 41 20 23 30 46 46  48 0d 20 20 20 20 20 20  |A A #0FFH.      |
00021e20  20 20 20 53 54 41 20 41  20 45 58 50 49 4e 54 0d  |   STA A EXPINT.|
00021e30  20 20 20 20 20 20 20 20  20 4a 53 52 20 20 20 49  |         JSR   I|
00021e40  4e 54 54 53 54 20 20 20  20 20 20 20 20 20 3b 47  |NTTST         ;G|
00021e50  4f 20 54 4f 20 49 4e 54  45 52 55 50 54 20 54 45  |O TO INTERUPT TE|
00021e60  53 54 0d 20 20 20 20 20  20 20 20 20 52 54 53 20  |ST.         RTS |
00021e70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00021e80  20 3b 52 45 54 55 52 4e  0d 3b 2a 2a 2a 2a 2a 2a  | ;RETURN.;******|
00021e90  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00021ed0  0d 3b 0d 3b 54 44 52 45  49 43 4b 20 53 55 42 2d  |.;.;TDREICK SUB-|
00021ee0  52 4f 55 54 49 4e 45 0d  3b 43 48 45 43 4b 53 20  |ROUTINE.;CHECKS |
00021ef0  49 4e 54 45 52 55 50 54  20 47 45 4e 45 52 41 54  |INTERUPT GENERAT|
00021f00  45 44 20 42 59 0d 3b 54  44 52 45 0d 3b 0d 3b 2a  |ED BY.;TDRE.;.;*|
00021f10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00021f50  2a 2a 2a 2a 2a 0d 3b 0d  54 44 52 45 49 43 4b 20  |*****.;.TDREICK |
00021f60  20 45 51 55 20 20 20 24  0d 20 20 20 20 20 20 20  | EQU   $.       |
00021f70  20 20 4a 53 52 20 20 20  57 54 31 52 44 32 20 20  |  JSR   WT1RD2  |
00021f80  20 20 20 20 20 20 20 3b  53 45 54 20 57 52 49 54  |       ;SET WRIT|
00021f90  45 20 50 4f 52 54 20 31  20 52 45 41 44 20 50 4f  |E PORT 1 READ PO|
00021fa0  52 54 20 32 0d 20 20 20  20 20 20 20 20 20 4c 44  |RT 2.         LD|
00021fb0  58 20 20 20 57 54 53 54  50 54 20 20 20 20 20 20  |X   WTSTPT      |
00021fc0  20 20 20 3b 0d 20 20 20  20 20 20 20 20 20 53 54  |   ;.         ST|
00021fd0  58 20 20 20 53 54 41 50  4f 52 54 20 20 20 20 20  |X   STAPORT     |
00021fe0  20 20 20 3b 54 4f 4f 20  57 41 4e 54 20 54 4f 20  |   ;TOO WANT TO |
00021ff0  52 45 41 44 20 54 48 45  20 53 54 41 54 55 53 20  |READ THE STATUS |
00022000  4f 46 20 54 48 45 20 58  4d 49 54 20 50 4f 52 54  |OF THE XMIT PORT|
00022010  0d 20 20 20 20 20 20 20  20 20 4c 44 41 20 41 20  |.         LDA A |
00022020  23 49 4e 54 31 30 20 20  20 20 20 20 20 20 20 3b  |#INT10         ;|
00022030  0d 20 20 20 20 20 20 20  20 20 53 54 41 20 41 20  |.         STA A |
00022040  45 58 50 49 4e 54 20 20  20 20 20 20 20 20 20 3b  |EXPINT         ;|
00022050  59 4f 55 20 57 41 4e 54  20 49 4e 54 20 31 30 20  |YOU WANT INT 10 |
00022060  54 4f 20 42 45 20 45 58  50 45 43 54 45 44 20 49  |TO BE EXPECTED I|
00022070  4e 54 45 52 55 50 54 0d  20 20 20 20 20 20 20 20  |NTERUPT.        |
00022080  20 4a 53 52 20 20 20 54  44 52 45 49 54 20 20 20  | JSR   TDREIT   |
00022090  20 20 20 20 20 20 3b 47  4f 20 54 4f 20 54 44 52  |      ;GO TO TDR|
000220a0  45 20 49 4e 54 20 54 45  53 54 0d 20 20 20 20 20  |E INT TEST.     |
000220b0  20 20 20 20 4a 53 52 20  20 20 57 54 32 52 44 31  |    JSR   WT2RD1|
000220c0  20 20 20 20 20 20 20 20  20 3b 53 45 54 20 57 52  |         ;SET WR|
000220d0  49 54 45 20 50 4f 52 54  20 32 20 52 45 41 44 20  |ITE PORT 2 READ |
000220e0  50 4f 52 54 20 31 0d 20  20 20 20 20 20 20 20 20  |PORT 1.         |
000220f0  4c 44 58 20 20 20 57 54  53 54 50 54 0d 20 20 20  |LDX   WTSTPT.   |
00022100  20 20 20 20 20 20 53 54  58 20 20 20 53 54 41 50  |      STX   STAP|
00022110  4f 52 54 20 20 20 20 20  20 20 20 3b 59 4f 55 20  |ORT        ;YOU |
00022120  57 41 4e 54 20 54 4f 20  52 45 41 44 20 54 48 45  |WANT TO READ THE|
00022130  20 53 54 41 54 55 53 20  4f 46 20 54 48 45 20 58  | STATUS OF THE X|
00022140  4d 49 54 20 50 4f 52 54  0d 20 20 20 20 20 20 20  |MIT PORT.       |
00022150  20 20 4c 44 41 20 41 20  23 49 4e 54 31 31 0d 20  |  LDA A #INT11. |
00022160  20 20 20 20 20 20 20 20  53 54 41 20 41 20 45 58  |        STA A EX|
00022170  50 49 4e 54 20 20 20 20  20 20 20 20 20 3b 59 4f  |PINT         ;YO|
00022180  55 20 57 41 4e 54 20 49  4e 54 20 31 31 20 54 4f  |U WANT INT 11 TO|
00022190  20 42 45 20 45 58 50 45  43 54 45 44 20 49 4e 54  | BE EXPECTED INT|
000221a0  45 52 55 50 54 0d 20 20  20 20 20 20 20 20 20 4a  |ERUPT.         J|
000221b0  53 52 20 20 20 54 44 52  45 49 54 20 20 20 20 20  |SR   TDREIT     |
000221c0  20 20 20 20 3b 47 4f 20  54 4f 20 54 44 52 45 20  |    ;GO TO TDRE |
000221d0  49 4e 54 20 54 45 53 54  0d 20 20 20 20 20 20 20  |INT TEST.       |
000221e0  20 20 52 54 53 20 20 20  20 20 20 20 20 20 20 20  |  RTS           |
000221f0  20 20 20 20 20 20 20 3b  52 45 54 55 52 4e 0d 20  |       ;RETURN. |
00022200  20 20 20 20 20 20 20 20  50 41 47 45 0d 3b 2a 2a  |        PAGE.;**|
00022210  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00022250  2a 2a 2a 2a 0d 3b 0d 3b  54 44 52 45 49 54 20 53  |****.;.;TDREIT S|
00022260  55 42 2d 52 4f 55 54 49  4e 45 0d 3b 54 45 53 54  |UB-ROUTINE.;TEST|
00022270  53 20 49 4e 54 45 52 55  50 54 20 47 45 4e 45 52  |S INTERUPT GENER|
00022280  41 54 45 44 20 42 59 0d  3b 54 44 52 45 20 43 4f  |ATED BY.;TDRE CO|
00022290  4e 44 49 54 49 4f 4e 0d  3b 0d 3b 2a 2a 2a 2a 2a  |NDITION.;.;*****|
000222a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000222e0  2a 0d 3b 0d 54 44 52 45  49 54 20 20 20 45 51 55  |*.;.TDREIT   EQU|
000222f0  20 20 20 24 20 20 20 20  20 20 20 20 20 20 20 20  |   $            |
00022300  20 20 3b 53 54 41 52 54  0d 20 20 20 20 20 20 20  |  ;START.       |
00022310  20 20 4a 53 52 20 20 20  57 54 49 4e 54 53 55 20  |  JSR   WTINTSU |
00022320  20 20 20 20 20 20 20 3b  53 45 54 20 55 50 20 46  |       ;SET UP F|
00022330  4f 52 20 54 52 41 4e 53  4d 49 54 54 45 52 20 49  |OR TRANSMITTER I|
00022340  4e 54 45 52 55 50 54 53  0d 20 20 20 20 20 20 20  |NTERUPTS.       |
00022350  20 20 4a 53 52 20 20 20  54 53 39 36 30 30 20 20  |  JSR   TS9600  |
00022360  20 20 20 20 20 20 20 3b  53 45 54 20 54 49 4d 45  |       ;SET TIME|
00022370  52 20 54 4f 20 39 36 30  30 20 54 49 4d 45 20 4f  |R TO 9600 TIME O|
00022380  55 54 0d 20 20 20 20 20  20 20 20 20 4c 44 58 20  |UT.         LDX |
00022390  20 20 57 54 44 41 50 54  0d 20 20 20 20 20 20 20  |  WTDAPT.       |
000223a0  20 20 53 54 41 20 41 20  30 2c 58 20 20 20 20 20  |  STA A 0,X     |
000223b0  20 20 20 20 3b 57 52 49  54 45 20 54 4f 20 44 41  |    ;WRITE TO DA|
000223c0  54 41 20 50 4f 52 54 0d  20 20 20 20 20 20 20 20  |TA PORT.        |
000223d0  20 4a 53 52 20 20 20 54  4d 52 39 35 20 20 20 20  | JSR   TMR95    |
000223e0  20 20 20 20 20 20 3b 57  41 49 54 20 41 20 57 48  |      ;WAIT A WH|
000223f0  49 4c 45 0d 20 20 20 20  20 20 20 20 20 4c 44 41  |ILE.         LDA|
00022400  20 41 20 23 54 44 52 45  2b 49 52 51 0d 20 20 20  | A #TDRE+IRQ.   |
00022410  20 20 20 20 20 20 53 54  41 20 41 20 45 58 50 53  |      STA A EXPS|
00022420  54 41 20 20 20 20 20 20  20 20 20 3b 45 58 50 45  |TA         ;EXPE|
00022430  43 54 20 53 54 41 54 55  53 3d 54 44 52 45 20 41  |CT STATUS=TDRE A|
00022440  4e 44 20 49 52 51 20 54  52 55 45 0d 20 20 20 20  |ND IRQ TRUE.    |
00022450  20 20 20 20 20 4a 53 52  20 20 20 52 44 53 54 41  |     JSR   RDSTA|
00022460  54 20 20 20 20 20 20 20  20 20 3b 52 45 41 44 20  |T         ;READ |
00022470  54 48 45 20 53 54 41 54  55 53 0d 20 20 20 20 20  |THE STATUS.     |
00022480  20 20 20 20 4a 53 52 20  20 20 49 4e 54 54 53 54  |    JSR   INTTST|
00022490  20 20 20 20 20 20 20 20  20 3b 47 4f 20 54 4f 20  |         ;GO TO |
000224a0  49 4e 54 45 52 55 50 54  20 54 45 53 54 0d 20 20  |INTERUPT TEST.  |
000224b0  20 20 20 20 20 20 20 43  4c 52 20 20 20 45 58 50  |       CLR   EXP|
000224c0  46 4c 47 20 20 20 20 20  20 20 20 20 3b 49 4e 54  |FLG         ;INT|
000224d0  45 52 55 50 54 20 4e 4f  54 20 45 58 50 45 43 54  |ERUPT NOT EXPECT|
000224e0  45 44 0d 20 20 20 20 20  20 20 20 20 4c 44 41 20  |ED.         LDA |
000224f0  41 20 23 30 46 46 48 0d  20 20 20 20 20 20 20 20  |A #0FFH.        |
00022500  20 53 54 41 20 41 20 45  58 50 49 4e 54 0d 20 20  | STA A EXPINT.  |
00022510  20 20 20 20 20 20 20 4a  53 52 20 20 20 49 4e 54  |       JSR   INT|
00022520  54 53 54 20 20 20 20 20  20 20 20 20 3b 47 4f 20  |TST         ;GO |
00022530  54 4f 20 49 4e 54 45 52  55 50 54 20 54 45 53 54  |TO INTERUPT TEST|
00022540  0d 20 20 20 20 20 20 20  20 20 52 54 53 20 20 20  |.         RTS   |
00022550  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00022560  52 45 54 55 52 4e 0d 3b  2a 2a 2a 2a 2a 2a 2a 2a  |RETURN.;********|
00022570  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000225a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 3b  |**************.;|
000225b0  0d 3b 57 54 49 4e 54 53  55 20 53 55 42 2d 52 4f  |.;WTINTSU SUB-RO|
000225c0  55 54 49 4e 45 0d 3b 45  4e 41 42 4c 45 53 20 54  |UTINE.;ENABLES T|
000225d0  52 41 4e 53 4d 49 54 20  49 4e 54 45 52 55 50 54  |RANSMIT INTERUPT|
000225e0  0d 3b 0d 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.;.;************|
000225f0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00022620  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 3b 0d 57 54 49  |**********.;.WTI|
00022630  4e 54 53 55 20 20 45 51  55 20 20 20 24 20 20 20  |NTSU  EQU   $   |
00022640  20 20 20 20 20 20 20 20  20 20 20 3b 53 54 41 52  |           ;STAR|
00022650  54 0d 20 20 20 20 20 20  20 20 20 43 4c 52 20 20  |T.         CLR  |
00022660  20 52 49 46 4c 47 0d 20  20 20 20 20 20 20 20 20  | RIFLG.         |
00022670  49 4e 43 20 20 20 45 58  50 46 4c 47 20 20 20 20  |INC   EXPFLG    |
00022680  20 20 20 20 20 20 3b 49  4e 54 45 52 55 50 54 20  |      ;INTERUPT |
00022690  45 58 50 45 43 54 45 44  0d 20 20 20 20 20 20 20  |EXPECTED.       |
000226a0  20 20 4a 53 52 20 20 20  52 53 54 20 20 20 20 20  |  JSR   RST     |
000226b0  20 20 20 20 20 20 20 3b  52 45 53 45 54 20 54 48  |       ;RESET TH|
000226c0  45 20 50 4f 52 54 53 0d  20 20 20 20 20 20 20 20  |E PORTS.        |
000226d0  20 4c 44 41 20 41 20 23  44 49 56 31 36 2b 52 54  | LDA A #DIV16+RT|
000226e0  53 4c 49 45 2b 42 38 31  53 20 20 3b 0d 20 20 20  |SLIE+B81S  ;.   |
000226f0  20 20 20 20 20 20 4c 44  58 20 20 20 57 54 53 54  |      LDX   WTST|
00022700  50 54 0d 20 20 20 20 20  20 20 20 20 53 54 41 20  |PT.         STA |
00022710  41 20 30 2c 58 20 20 20  20 20 20 20 20 20 3b 45  |A 0,X         ;E|
00022720  4e 41 42 4c 45 20 49 4e  54 45 52 55 50 54 20 49  |NABLE INTERUPT I|
00022730  4e 20 57 52 49 54 45 20  50 4f 52 54 0d 20 20 20  |N WRITE PORT.   |
00022740  20 20 20 20 20 20 4c 44  41 20 41 20 23 44 49 56  |      LDA A #DIV|
00022750  31 2b 42 38 31 53 20 20  20 20 20 20 20 20 20 3b  |1+B81S         ;|
00022760  0d 20 20 20 20 20 20 20  20 20 4c 44 58 20 20 20  |.         LDX   |
00022770  52 44 53 54 50 54 0d 20  20 20 20 20 20 20 20 20  |RDSTPT.         |
00022780  53 54 41 20 41 20 30 2c  58 20 20 20 20 20 20 20  |STA A 0,X       |
00022790  20 20 3b 44 49 53 41 42  4c 45 20 49 4e 54 45 52  |  ;DISABLE INTER|
000227a0  55 50 54 20 49 4e 20 52  45 41 44 20 50 4f 52 54  |UPT IN READ PORT|
000227b0  0d 20 20 20 20 20 20 20  20 20 52 54 53 20 20 20  |.         RTS   |
000227c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
000227d0  52 45 54 55 52 4e 0d 3b  2a 2a 2a 2a 2a 2a 2a 2a  |RETURN.;********|
000227e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00022810  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 3b  |**************.;|
00022820  0d 3b 52 53 54 20 53 55  42 2d 52 4f 55 54 49 4e  |.;RST SUB-ROUTIN|
00022830  45 0d 3b 52 45 53 45 54  53 20 42 4f 54 48 20 41  |E.;RESETS BOTH A|
00022840  43 49 41 20 50 4f 52 54  53 0d 3b 0d 3b 2a 2a 2a  |CIA PORTS.;.;***|
00022850  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00022890  2a 2a 2a 0d 3b 0d 52 53  54 20 20 20 20 20 20 45  |***.;.RST      E|
000228a0  51 55 20 20 20 24 20 20  20 20 20 20 20 20 20 20  |QU   $          |
000228b0  20 20 20 20 3b 53 54 41  52 54 0d 20 20 20 20 20  |    ;START.     |
000228c0  20 20 20 20 4c 44 41 20  41 20 23 4d 53 54 52 53  |    LDA A #MSTRS|
000228d0  54 20 20 20 20 20 20 20  20 3b 52 45 53 45 54 20  |T        ;RESET |
000228e0  42 49 54 53 0d 20 20 20  20 20 20 20 20 20 53 54  |BITS.         ST|
000228f0  41 20 41 20 43 52 41 43  53 43 20 20 20 20 20 20  |A A CRACSC      |
00022900  20 20 20 3b 50 4f 52 54  20 31 0d 20 20 20 20 20  |   ;PORT 1.     |
00022910  20 20 20 20 53 54 41 20  41 20 43 52 41 43 53 43  |    STA A CRACSC|
00022920  32 20 20 20 20 20 20 20  20 3b 50 4f 52 54 20 32  |2        ;PORT 2|
00022930  0d 20 20 20 20 20 20 20  20 20 52 54 53 20 20 20  |.         RTS   |
00022940  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00022950  52 45 54 55 52 4e 0d 20  20 20 20 20 20 20 20 20  |RETURN.         |
00022960  50 41 47 45 0d 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |PAGE.;**********|
00022970  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000229a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 3b 0d 3b  |************.;.;|
000229b0  44 43 44 4d 52 20 53 55  42 2d 52 4f 55 54 49 4e  |DCDMR SUB-ROUTIN|
000229c0  45 0d 3b 50 55 54 20 4f  55 54 20 44 43 44 20 4d  |E.;PUT OUT DCD M|
000229d0  45 53 53 41 47 45 20 41  4e 44 20 57 41 49 4c 0d  |ESSAGE AND WAIL.|
000229e0  3b 46 4f 52 20 4f 50 45  52 41 54 4f 52 20 54 4f  |;FOR OPERATOR TO|
000229f0  20 43 4f 4d 50 4c 59 20  41 4e 44 20 48 49 54 20  | COMPLY AND HIT |
00022a00  52 55 4e 0d 3b 0d 3b 2a  2a 2a 2a 2a 2a 2a 2a 2a  |RUN.;.;*********|
00022a10  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00022a40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 3b 0d  |*************.;.|
00022a50  3b 0d 44 43 44 4d 52 20  20 20 20 45 51 55 20 20  |;.DCDMR    EQU  |
00022a60  20 24 20 20 20 20 20 20  20 20 20 20 20 20 20 20  | $              |
00022a70  3b 53 54 41 52 54 0d 20  20 20 20 20 20 20 20 20  |;START.         |
00022a80  4c 44 58 20 20 20 23 44  43 44 4d 53 47 20 20 20  |LDX   #DCDMSG   |
00022a90  20 20 20 20 20 3b 47 45  54 20 4d 45 53 53 41 47  |     ;GET MESSAG|
00022aa0  45 20 50 4f 49 4e 54 45  52 0d 20 20 20 20 20 20  |E POINTER.      |
00022ab0  20 20 20 4c 44 41 20 41  20 23 4d 45 53 53 47 0d  |   LDA A #MESSG.|
00022ac0  20 20 20 20 20 20 20 20  20 4a 53 52 20 20 20 50  |         JSR   P|
00022ad0  53 56 43 20 20 20 20 20  20 20 20 20 20 20 3b 4f  |SVC           ;O|
00022ae0  55 54 50 55 54 20 4d 45  53 53 41 47 45 20 54 4f  |UTPUT MESSAGE TO|
00022af0  20 4f 50 45 52 41 54 4f  52 0d 20 20 20 20 20 20  | OPERATOR.      |
00022b00  20 20 20 52 54 53 20 20  20 20 20 20 20 20 20 20  |   RTS          |
00022b10  20 20 20 20 20 20 20 20  3b 52 45 54 55 52 4e 0d  |        ;RETURN.|
00022b20  20 20 20 20 20 20 20 20  20 50 41 47 45 0d 3b 2a  |         PAGE.;*|
00022b30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00022b70  2a 2a 2a 2a 2a 0d 3b 0d  3b 52 4f 49 4e 54 53 55  |*****.;.;ROINTSU|
00022b80  20 53 55 42 2d 52 4f 55  54 49 4e 45 0d 3b 45 4e  | SUB-ROUTINE.;EN|
00022b90  41 42 4c 45 53 20 52 43  56 52 20 49 4e 54 45 52  |ABLES RCVR INTER|
00022ba0  55 50 54 0d 3b 0d 3b 2a  2a 2a 2a 2a 2a 2a 2a 2a  |UPT.;.;*********|
00022bb0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00022be0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 0d 3b 0d  |*************.;.|
00022bf0  52 44 49 4e 54 53 55 20  20 45 51 55 20 20 20 24  |RDINTSU  EQU   $|
00022c00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 53  |              ;S|
00022c10  54 41 52 54 0d 20 20 20  20 20 20 20 20 20 49 4e  |TART.         IN|
00022c20  43 20 20 20 52 49 46 4c  47 0d 20 20 20 20 20 20  |C   RIFLG.      |
00022c30  20 20 20 49 4e 43 20 20  20 45 58 50 46 4c 47 20  |   INC   EXPFLG |
00022c40  20 20 20 20 20 20 20 20  3b 49 4e 54 45 52 55 50  |        ;INTERUP|
00022c50  54 20 45 58 50 45 43 54  45 44 0d 20 20 20 20 20  |T EXPECTED.     |
00022c60  20 20 20 20 4a 53 52 20  20 20 52 53 54 20 20 20  |    JSR   RST   |
00022c70  20 20 20 20 20 20 20 20  20 3b 52 45 53 45 54 20  |         ;RESET |
00022c80  42 4f 54 48 20 41 43 49  41 20 50 4f 52 54 53 0d  |BOTH ACIA PORTS.|
00022c90  20 20 20 20 20 20 20 20  20 4c 44 41 20 41 20 23  |         LDA A #|
00022ca0  44 49 56 31 36 2b 42 38  31 53 0d 20 20 20 20 20  |DIV16+B81S.     |
00022cb0  20 20 20 20 4c 44 58 20  20 20 57 54 53 54 50 54  |    LDX   WTSTPT|
00022cc0  0d 20 20 20 20 20 20 20  20 20 53 54 41 20 41 20  |.         STA A |
00022cd0  30 2c 58 20 20 20 20 20  20 20 20 20 3b 44 49 53  |0,X         ;DIS|
00022ce0  41 42 4c 45 20 49 4e 54  45 52 55 50 54 20 57 52  |ABLE INTERUPT WR|
00022cf0  49 54 45 20 50 4f 52 54  0d 20 20 20 20 20 20 20  |ITE PORT.       |
00022d00  20 20 4c 44 41 20 41 20  23 44 49 56 31 36 2b 52  |  LDA A #DIV16+R|
00022d10  49 45 42 2b 42 38 31 53  20 20 20 20 20 3b 45 4e  |IEB+B81S     ;EN|
00022d20  41 42 4c 45 20 49 4e 54  45 52 55 50 54 2d 52 45  |ABLE INTERUPT-RE|
00022d30  41 44 20 50 4f 52 54 0d  20 20 20 20 20 20 20 20  |AD PORT.        |
00022d40  20 4c 44 58 20 20 20 52  44 53 54 50 54 0d 20 20  | LDX   RDSTPT.  |
00022d50  20 20 20 20 20 20 20 53  54 41 20 41 20 30 2c 58  |       STA A 0,X|
00022d60  0d 20 20 20 20 20 20 20  20 20 52 54 53 20 20 20  |.         RTS   |
00022d70  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00022d80  52 45 54 55 52 4e 0d 3b  2a 2a 2a 2a 2a 2a 2a 2a  |RETURN.;********|
00022d90  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00022dc0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 3b  |**************.;|
00022dd0  0d 3b 49 4e 54 54 53 54  20 53 55 42 2d 52 4f 55  |.;INTTST SUB-ROU|
00022de0  54 49 4e 45 0d 3b 4c 4f  4f 4b 53 20 46 4f 52 20  |TINE.;LOOKS FOR |
00022df0  49 4e 54 45 52 55 50 54  0d 3b 56 45 52 49 46 49  |INTERUPT.;VERIFI|
00022e00  45 53 20 49 54 20 41 4e  44 20 50 55 54 53 20 4f  |ES IT AND PUTS O|
00022e10  55 54 0d 3b 45 52 52 4f  52 20 49 46 20 49 4e 43  |UT.;ERROR IF INC|
00022e20  4f 52 52 45 43 54 0d 3b  0d 3b 2a 2a 2a 2a 2a 2a  |ORRECT.;.;******|
00022e30  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00022e70  0d 3b 0d 49 4e 54 54 53  54 20 20 20 45 51 55 20  |.;.INTTST   EQU |
00022e80  20 20 24 0d 20 20 20 20  20 20 20 20 20 4e 4f 50  |  $.         NOP|
00022e90  0d 20 20 20 20 20 20 20  20 20 43 4c 49 20 20 20  |.         CLI   |
00022ea0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00022eb0  43 4c 45 41 52 20 49 4e  54 45 52 55 50 54 20 49  |CLEAR INTERUPT I|
00022ec0  4e 48 49 42 49 54 0d 20  20 20 20 20 20 20 20 20  |NHIBIT.         |
00022ed0  4e 4f 50 20 20 20 20 20  20 20 20 20 20 20 20 20  |NOP             |
00022ee0  20 20 20 20 20 3b 57 49  4e 44 4f 57 0d 20 20 20  |     ;WINDOW.   |
00022ef0  20 20 20 20 20 20 53 45  49 20 20 20 20 20 20 20  |      SEI       |
00022f00  20 20 20 20 20 20 20 20  20 20 20 3b 53 45 54 20  |           ;SET |
00022f10  49 4e 54 45 52 55 50 54  20 49 4e 48 49 42 49 54  |INTERUPT INHIBIT|
00022f20  0d 20 20 20 20 20 20 20  20 20 54 53 54 20 20 20  |.         TST   |
00022f30  49 4e 54 46 4c 47 20 20  20 20 20 20 20 20 20 3b  |INTFLG         ;|
00022f40  57 41 53 20 54 48 45 52  45 20 41 4e 20 49 4e 54  |WAS THERE AN INT|
00022f50  45 52 55 50 54 3f 0d 20  20 20 20 20 20 20 20 20  |ERUPT?.         |
00022f60  42 45 51 20 20 20 4e 4f  49 4e 54 20 20 20 20 20  |BEQ   NOINT     |
00022f70  20 20 20 20 20 3b 4e 4f  20 47 4f 20 54 4f 20 4e  |     ;NO GO TO N|
00022f80  4f 49 4e 54 0d 20 20 20  20 20 20 20 20 20 43 4c  |OINT.         CL|
00022f90  52 20 20 20 49 4e 54 46  4c 47 20 20 20 20 20 20  |R   INTFLG      |
00022fa0  20 20 20 3b 59 45 53 20  43 4c 45 41 52 20 49 4e  |   ;YES CLEAR IN|
00022fb0  54 20 46 4c 41 47 0d 46  49 4e 41 20 20 20 20 20  |T FLAG.FINA     |
00022fc0  52 54 53 20 20 20 20 20  20 20 20 20 20 20 20 20  |RTS             |
00022fd0  20 20 20 20 20 3b 52 45  54 55 52 4e 0d 4e 4f 49  |     ;RETURN.NOI|
00022fe0  4e 54 20 20 20 20 54 53  54 20 20 20 45 58 50 46  |NT    TST   EXPF|
00022ff0  4c 47 20 20 20 20 20 20  20 20 20 3b 57 41 53 20  |LG         ;WAS |
00023000  41 4e 20 49 4e 54 45 52  55 50 54 20 45 58 50 45  |AN INTERUPT EXPE|
00023010  43 54 45 44 0d 20 20 20  20 20 20 20 20 20 42 4e  |CTED.         BN|
00023020  45 20 20 20 4d 49 45 52  20 20 20 20 20 20 20 20  |E   MIER        |
00023030  20 20 20 3b 59 45 53 20  47 4f 20 54 4f 20 4d 49  |   ;YES GO TO MI|
00023040  53 53 49 4e 47 20 49 4e  54 45 52 55 50 54 20 52  |SSING INTERUPT R|
00023050  4f 55 54 49 4e 45 0d 20  20 20 20 20 20 20 20 20  |OUTINE.         |
00023060  42 52 41 20 20 20 46 49  4e 41 20 20 20 20 20 20  |BRA   FINA      |
00023070  20 20 20 20 20 3b 47 4f  20 54 4f 20 52 45 54 55  |     ;GO TO RETU|
00023080  52 4e 0d 4d 49 45 52 20  20 20 20 20 54 53 54 20  |RN.MIER     TST |
00023090  20 20 53 49 47 46 4c 47  0d 20 20 20 20 20 20 20  |  SIGFLG.       |
000230a0  20 20 42 4e 45 20 20 20  46 49 4e 41 0d 20 20 20  |  BNE   FINA.   |
000230b0  20 20 20 20 20 20 4c 44  58 20 20 20 23 4d 49 4d  |      LDX   #MIM|
000230c0  53 47 0d 20 20 20 20 20  20 20 20 20 4a 53 52 20  |SG.         JSR |
000230d0  20 20 45 52 52 4f 55 54  20 20 20 20 20 20 20 20  |  ERROUT        |
000230e0  20 3b 50 55 54 20 4f 55  54 20 4d 49 53 53 49 4e  | ;PUT OUT MISSIN|
000230f0  47 20 49 4e 54 45 52 55  50 54 20 4d 45 53 53 41  |G INTERUPT MESSA|
00023100  47 45 0d 20 20 20 20 20  20 20 20 20 42 52 41 20  |GE.         BRA |
00023110  20 20 46 49 4e 41 20 20  20 20 20 20 20 20 20 20  |  FINA          |
00023120  20 3b 47 4f 20 54 4f 20  52 45 54 55 52 4e 0d 20  | ;GO TO RETURN. |
00023130  20 20 20 20 20 20 20 20  50 41 47 45 0d 3b 2a 2a  |        PAGE.;**|
00023140  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00023180  2a 2a 2a 2a 0d 3b 0d 3b  57 54 31 52 44 32 20 53  |****.;.;WT1RD2 S|
00023190  55 42 2d 52 4f 55 54 49  4e 45 0d 3b 53 45 54 53  |UB-ROUTINE.;SETS|
000231a0  20 55 50 20 50 4f 52 54  20 31 20 41 53 20 54 48  | UP PORT 1 AS TH|
000231b0  45 20 57 52 49 54 45 0d  3b 50 4f 52 54 20 41 4e  |E WRITE.;PORT AN|
000231c0  44 20 50 4f 52 54 20 32  20 41 53 20 54 48 45 20  |D PORT 2 AS THE |
000231d0  52 45 41 44 20 50 4f 52  54 0d 3b 0d 3b 2a 2a 2a  |READ PORT.;.;***|
000231e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00023220  2a 2a 2a 0d 3b 0d 57 54  31 52 44 32 20 20 20 45  |***.;.WT1RD2   E|
00023230  51 55 20 20 20 24 20 20  20 20 20 20 20 20 20 20  |QU   $          |
00023240  20 20 20 20 3b 53 54 41  52 54 0d 20 20 20 20 20  |    ;START.     |
00023250  20 20 20 20 4c 44 41 20  41 20 23 30 32 0d 20 20  |    LDA A #02.  |
00023260  20 20 20 20 20 20 20 53  54 41 20 41 20 50 4f 52  |       STA A POR|
00023270  54 4e 0d 20 20 20 20 20  20 20 20 20 4c 44 41 20  |TN.         LDA |
00023280  41 20 23 49 4e 54 31 31  20 20 20 20 20 20 20 20  |A #INT11        |
00023290  20 3b 0d 20 20 20 20 20  20 20 20 20 53 54 41 20  | ;.         STA |
000232a0  41 20 45 58 50 49 4e 54  20 20 20 20 20 20 20 20  |A EXPINT        |
000232b0  20 20 3b 45 58 50 45 43  54 20 49 4e 54 3d 49 4e  |  ;EXPECT INT=IN|
000232c0  54 31 31 0d 20 20 20 20  20 20 20 20 20 4c 44 58  |T11.         LDX|
000232d0  20 20 20 23 43 52 41 43  53 43 0d 20 20 20 20 20  |   #CRACSC.     |
000232e0  20 20 20 20 53 54 58 20  20 20 57 54 53 54 50 54  |    STX   WTSTPT|
000232f0  20 20 20 20 20 20 20 20  20 3b 57 52 49 54 45 20  |         ;WRITE |
00023300  53 54 41 54 55 53 3d 50  4f 52 54 20 31 0d 20 20  |STATUS=PORT 1.  |
00023310  20 20 20 20 20 20 20 4c  44 58 20 20 20 23 43 52  |       LDX   #CR|
00023320  41 43 53 43 32 0d 20 20  20 20 20 20 20 20 20 53  |ACSC2.         S|
00023330  54 58 20 20 20 52 44 53  54 50 54 20 20 20 20 20  |TX   RDSTPT     |
00023340  20 20 20 20 3b 52 45 41  44 20 53 54 41 54 55 53  |    ;READ STATUS|
00023350  3d 50 4f 52 54 20 32 0d  20 20 20 20 20 20 20 20  |=PORT 2.        |
00023360  20 53 54 58 20 20 20 53  54 41 50 4f 52 54 0d 20  | STX   STAPORT. |
00023370  20 20 20 20 20 20 20 20  4c 44 58 20 20 20 23 43  |        LDX   #C|
00023380  52 41 43 44 41 32 0d 20  20 20 20 20 20 20 20 20  |RACDA2.         |
00023390  53 54 58 20 20 20 52 44  44 41 50 54 20 20 20 20  |STX   RDDAPT    |
000233a0  20 20 20 20 20 3b 52 45  41 44 20 44 41 54 41 3d  |     ;READ DATA=|
000233b0  50 4f 52 54 20 32 0d 20  20 20 20 20 20 20 20 20  |PORT 2.         |
000233c0  4c 44 58 20 20 20 23 43  52 41 43 44 41 20 20 20  |LDX   #CRACDA   |
000233d0  20 20 20 20 20 3b 57 52  49 54 45 20 44 41 54 41  |     ;WRITE DATA|
000233e0  3d 50 4f 52 54 20 31 0d  20 20 20 20 20 20 20 20  |=PORT 1.        |
000233f0  20 53 54 58 20 20 20 57  54 44 41 50 54 0d 20 20  | STX   WTDAPT.  |
00023400  20 20 20 20 20 20 20 52  54 53 20 20 20 20 20 20  |       RTS      |
00023410  20 20 20 20 20 20 20 20  20 20 20 20 3b 52 45 54  |            ;RET|
00023420  55 52 4e 0d 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |URN.;***********|
00023430  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00023460  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 3b 0d 3b 57  |***********.;.;W|
00023470  54 32 52 44 31 20 53 55  42 2d 52 4f 55 54 49 4e  |T2RD1 SUB-ROUTIN|
00023480  45 0d 3b 53 45 54 53 20  55 50 20 50 4f 52 54 20  |E.;SETS UP PORT |
00023490  32 20 41 53 20 54 48 45  20 57 52 49 54 45 20 50  |2 AS THE WRITE P|
000234a0  4f 52 54 0d 3b 41 4e 44  20 50 4f 52 54 20 31 20  |ORT.;AND PORT 1 |
000234b0  41 53 20 54 48 45 20 52  45 41 44 20 50 4f 52 54  |AS THE READ PORT|
000234c0  0d 3b 0d 3b 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.;.;************|
000234d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00023500  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 3b 0d 57 54 32  |**********.;.WT2|
00023510  52 44 31 20 20 20 45 51  55 20 20 20 24 20 20 20  |RD1   EQU   $   |
00023520  20 20 20 20 20 20 20 20  20 20 20 3b 53 54 41 52  |           ;STAR|
00023530  54 0d 20 20 20 20 20 20  20 20 20 4c 44 41 20 41  |T.         LDA A|
00023540  20 23 30 31 0d 20 20 20  20 20 20 20 20 20 53 54  | #01.         ST|
00023550  41 20 41 20 50 4f 52 54  4e 0d 20 20 20 20 20 20  |A A PORTN.      |
00023560  20 20 20 4c 44 41 20 41  20 23 49 4e 54 31 30 20  |   LDA A #INT10 |
00023570  20 20 20 20 20 20 20 20  3b 0d 20 20 20 20 20 20  |        ;.      |
00023580  20 20 20 53 54 41 20 41  20 45 58 50 49 4e 54 20  |   STA A EXPINT |
00023590  20 20 20 20 20 20 20 20  3b 45 58 50 45 43 54 20  |        ;EXPECT |
000235a0  49 4e 54 3d 49 4e 54 31  30 0d 20 20 20 20 20 20  |INT=INT10.      |
000235b0  20 20 20 4c 44 58 20 20  20 23 43 52 41 43 53 43  |   LDX   #CRACSC|
000235c0  32 0d 20 20 20 20 20 20  20 20 20 53 54 58 20 20  |2.         STX  |
000235d0  20 57 54 53 54 50 54 20  20 20 20 20 20 20 20 20  | WTSTPT         |
000235e0  3b 57 52 49 54 45 20 53  54 41 54 55 53 3d 50 4f  |;WRITE STATUS=PO|
000235f0  52 54 20 32 0d 20 20 20  20 20 20 20 20 20 4c 44  |RT 2.         LD|
00023600  58 20 20 20 23 43 52 41  43 53 43 0d 20 20 20 20  |X   #CRACSC.    |
00023610  20 20 20 20 20 53 54 58  20 20 20 52 44 53 54 50  |     STX   RDSTP|
00023620  54 20 20 20 20 20 20 20  20 20 3b 52 45 41 44 20  |T         ;READ |
00023630  53 54 41 54 55 53 3d 50  4f 52 54 20 31 0d 20 20  |STATUS=PORT 1.  |
00023640  20 20 20 20 20 20 20 53  54 58 20 20 20 53 54 41  |       STX   STA|
00023650  50 4f 52 54 0d 20 20 20  20 20 20 20 20 20 4c 44  |PORT.         LD|
00023660  58 20 20 20 23 43 52 41  43 44 41 0d 20 20 20 20  |X   #CRACDA.    |
00023670  20 20 20 20 20 53 54 58  20 20 20 52 44 44 41 50  |     STX   RDDAP|
00023680  54 20 20 20 20 20 20 20  20 20 3b 52 45 41 44 20  |T         ;READ |
00023690  44 41 54 41 3d 50 4f 52  54 20 31 0d 20 20 20 20  |DATA=PORT 1.    |
000236a0  20 20 20 20 20 4c 44 58  20 20 20 23 43 52 41 43  |     LDX   #CRAC|
000236b0  44 41 32 0d 20 20 20 20  20 20 20 20 20 53 54 58  |DA2.         STX|
000236c0  20 20 20 57 54 44 41 50  54 20 20 20 20 20 20 20  |   WTDAPT       |
000236d0  20 20 3b 57 52 49 54 45  20 44 41 54 41 3d 50 4f  |  ;WRITE DATA=PO|
000236e0  52 54 20 32 0d 20 20 20  20 20 20 20 20 20 52 54  |RT 2.         RT|
000236f0  53 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |S               |
00023700  20 20 20 3b 52 45 54 55  52 4e 0d 20 20 20 20 20  |   ;RETURN.     |
00023710  20 20 20 20 50 41 47 45  0d 3b 2a 2a 2a 2a 2a 2a  |    PAGE.;******|
00023720  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00023760  0d 3b 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |.;**************|
00023770  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000237a0  2a 2a 2a 2a 2a 2a 2a 2a  0d 3b 0d 3b 49 4e 54 45  |********.;.;INTE|
000237b0  52 55 50 54 20 53 45 52  56 49 43 45 20 52 4f 55  |RUPT SERVICE ROU|
000237c0  54 49 4e 45 0d 3b 0d 3b  2a 2a 2a 2a 2a 2a 2a 2a  |TINE.;.;********|
000237d0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00023800  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 0d 3b  |**************.;|
00023810  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00023850  2a 2a 2a 2a 2a 2a 0d 3b  0d 49 4e 56 43 52 20 20  |******.;.INVCR  |
00023860  20 20 45 51 55 20 20 20  24 20 20 20 20 20 20 20  |  EQU   $       |
00023870  20 20 20 20 20 20 20 3b  53 54 41 52 54 0d 20 20  |       ;START.  |
00023880  20 20 20 20 20 20 20 4c  44 41 20 41 20 50 54 49  |       LDA A PTI|
00023890  56 45 43 20 20 20 20 20  20 20 20 20 3b 47 45 54  |VEC         ;GET|
000238a0  20 49 4e 54 45 52 55 50  54 0d 20 20 20 20 20 20  | INTERUPT.      |
000238b0  20 20 20 53 54 41 20 41  20 49 4e 54 49 44 20 20  |   STA A INTID  |
000238c0  20 20 20 20 20 20 20 20  3b 53 41 56 45 20 49 54  |        ;SAVE IT|
000238d0  0d 20 20 20 20 20 20 20  20 20 54 53 54 20 20 20  |.         TST   |
000238e0  49 4e 54 46 4c 47 20 20  20 20 20 20 20 20 20 3b  |INTFLG         ;|
000238f0  49 46 20 49 4e 54 45 52  55 50 54 20 53 45 54 20  |IF INTERUPT SET |
00023900  47 4f 20 54 4f 20 55 4e  45 58 50 20 49 4e 54 20  |GO TO UNEXP INT |
00023910  52 54 4e 0d 20 20 20 20  20 20 20 20 20 42 4e 45  |RTN.         BNE|
00023920  20 20 20 55 4e 49 52 0d  20 20 20 20 20 20 20 20  |   UNIR.        |
00023930  20 49 4e 43 20 20 20 49  4e 54 46 4c 47 20 20 20  | INC   INTFLG   |
00023940  20 20 20 20 20 20 3b 49  4e 54 20 46 4c 41 47 3d  |      ;INT FLAG=|
00023950  31 0d 20 20 20 20 20 20  20 20 20 54 53 54 20 20  |1.         TST  |
00023960  20 45 58 50 46 4c 47 20  20 20 20 20 20 20 20 20  | EXPFLG         |
00023970  3b 57 41 53 20 49 54 20  45 58 50 45 43 54 45 44  |;WAS IT EXPECTED|
00023980  3f 0d 20 20 20 20 20 20  20 20 20 42 45 51 20 20  |?.         BEQ  |
00023990  20 55 4e 49 52 20 20 20  20 20 20 20 20 20 20 20  | UNIR           |
000239a0  3b 4e 4f 20 49 54 53 20  55 4e 45 58 50 45 43 54  |;NO ITS UNEXPECT|
000239b0  45 44 0d 20 20 20 20 20  20 20 20 20 43 4d 50 20  |ED.         CMP |
000239c0  41 20 45 58 50 49 4e 54  20 20 20 20 20 20 20 20  |A EXPINT        |
000239d0  20 3b 57 41 53 20 49 54  20 54 48 45 20 50 52 4f  | ;WAS IT THE PRO|
000239e0  50 45 52 20 49 4e 54 45  52 55 50 54 3f 0d 20 20  |PER INTERUPT?.  |
000239f0  20 20 20 20 20 20 20 42  4e 45 20 20 20 55 4e 49  |       BNE   UNI|
00023a00  52 20 20 20 20 20 20 20  20 20 20 20 3b 4e 4f 20  |R           ;NO |
00023a10  49 54 53 20 49 4d 50 52  4f 50 45 52 20 48 45 45  |ITS IMPROPER HEE|
00023a20  21 20 48 45 45 21 0d 20  20 20 20 20 20 20 20 20  |! HEE!.         |
00023a30  54 53 54 20 20 20 52 49  46 4c 47 20 20 20 20 20  |TST   RIFLG     |
00023a40  20 20 20 20 20 3b 57 41  53 20 49 54 20 41 20 52  |     ;WAS IT A R|
00023a50  45 41 44 20 49 4e 54 45  52 55 50 54 3f 0d 20 20  |EAD INTERUPT?.  |
00023a60  20 20 20 20 20 20 20 42  45 51 20 20 20 57 49 52  |       BEQ   WIR|
00023a70  20 20 20 20 20 20 20 20  20 20 20 20 3b 4e 4f 20  |            ;NO |
00023a80  42 59 20 47 4f 44 20 49  54 53 20 41 20 57 52 49  |BY GOD ITS A WRI|
00023a90  54 45 20 49 4e 54 45 52  55 50 54 0d 20 20 20 20  |TE INTERUPT.    |
00023aa0  20 20 20 20 20 4c 44 58  20 20 20 52 44 44 41 50  |     LDX   RDDAP|
00023ab0  54 20 20 20 20 20 20 20  20 20 3b 43 4c 45 41 52  |T         ;CLEAR|
00023ac0  20 54 48 45 4e 41 53 54  59 20 4f 4c 44 0d 20 20  | THENASTY OLD.  |
00023ad0  20 20 20 20 20 20 20 4c  44 41 20 41 20 30 2c 58  |       LDA A 0,X|
00023ae0  20 20 20 20 20 20 20 20  20 20 20 20 3b 52 45 41  |            ;REA|
00023af0  44 20 49 4e 54 45 52 55  50 54 0d 52 54 52 4e 20  |D INTERUPT.RTRN |
00023b00  20 20 20 20 52 54 49 20  20 20 20 20 20 20 20 20  |    RTI         |
00023b10  20 20 20 20 20 20 20 20  20 3b 52 45 54 55 52 4e  |         ;RETURN|
00023b20  20 46 52 4f 4d 20 49 4e  54 45 52 55 50 54 0d 57  | FROM INTERUPT.W|
00023b30  49 52 20 20 20 20 20 20  4c 44 58 20 20 20 57 54  |IR      LDX   WT|
00023b40  44 41 50 54 20 20 20 20  20 20 20 20 20 3b 43 4c  |DAPT         ;CL|
00023b50  45 41 52 20 54 48 45 20  4e 41 53 54 59 20 4f 4c  |EAR THE NASTY OL|
00023b60  44 0d 20 20 20 20 20 20  20 20 20 53 54 41 20 41  |D.         STA A|
00023b70  20 30 2c 58 20 20 20 20  20 20 20 20 20 20 20 20  | 0,X            |
00023b80  3b 57 52 49 54 45 20 49  4e 54 45 52 55 50 54 0d  |;WRITE INTERUPT.|
00023b90  20 20 20 20 20 20 20 20  20 42 52 41 20 20 20 52  |         BRA   R|
00023ba0  54 52 4e 20 20 20 20 20  20 20 20 20 20 20 3b 4c  |TRN           ;L|
00023bb0  45 41 56 45 20 54 55 52  4b 45 59 21 0d 55 4e 49  |EAVE TURKEY!.UNI|
00023bc0  52 20 20 20 20 20 54 53  54 20 20 20 53 49 47 46  |R     TST   SIGF|
00023bd0  4c 47 20 20 20 20 20 20  20 20 20 3b 57 45 20 41  |LG         ;WE A|
00023be0  4c 4c 20 4b 4e 4f 57 20  57 48 41 54 20 54 48 49  |LL KNOW WHAT THI|
00023bf0  53 20 44 4f 45 53 0d 20  20 20 20 20 20 20 20 20  |S DOES.         |
00023c00  42 4e 45 20 20 20 52 54  52 4e 0d 20 20 20 20 20  |BNE   RTRN.     |
00023c10  20 20 20 20 4c 44 58 20  20 20 23 55 49 4d 53 47  |    LDX   #UIMSG|
00023c20  0d 20 20 20 20 20 20 20  20 20 4a 53 52 20 20 20  |.         JSR   |
00023c30  45 52 52 4f 55 54 20 20  20 20 20 20 20 20 20 3b  |ERROUT         ;|
00023c40  55 4e 45 58 50 45 43 54  45 44 20 49 4e 54 45 52  |UNEXPECTED INTER|
00023c50  55 50 54 20 4d 45 53 53  41 47 45 0d 20 20 20 20  |UPT MESSAGE.    |
00023c60  20 20 20 20 20 42 52 41  20 20 20 52 54 52 4e 20  |     BRA   RTRN |
00023c70  20 20 20 20 20 20 20 20  20 20 3b 53 50 4c 49 54  |          ;SPLIT|
00023c80  21 0d 20 20 20 20 20 20  20 20 20 50 41 47 45 0d  |!.         PAGE.|
00023c90  3b 0d 41 43 53 54 45 52  20 20 20 4d 53 47 20 5b  |;.ACSTER   MSG [|
00023ca0  53 54 41 54 20 50 4f 52  54 20 5d 2c 31 2c 50 4f  |STAT PORT ],1,PO|
00023cb0  52 54 4e 2c 3d 2c 32 2c  53 54 41 54 52 44 2c 5b  |RTN,=,2,STATRD,[|
00023cc0  20 53 42 3d 5d 2c 32 2c  45 58 50 53 54 41 2c 4c  | SB=],2,EXPSTA,L|
00023cd0  49 4e 4b 54 4f 2c 42 41  55 44 4d 53 47 0d 42 41  |INKTO,BAUDMSG.BA|
00023ce0  55 44 4d 53 47 20 20 4d  53 47 20 20 20 42 41 55  |UDMSG  MSG   BAU|
00023cf0  44 3d 2c 34 2c 42 41 55  44 2c 5b 20 43 54 52 4c  |D=,4,BAUD,[ CTRL|
00023d00  52 45 47 3d 5d 2c 32 2c  43 4e 52 45 47 0d 41 43  |REG=],2,CNREG.AC|
00023d10  44 54 45 52 20 20 20 4d  53 47 20 5b 44 41 54 41  |DTER   MSG [DATA|
00023d20  20 50 4f 52 54 20 5d 2c  31 2c 50 4f 52 54 4e 2c  | PORT ],1,PORTN,|
00023d30  3d 2c 32 2c 44 54 41 52  44 2c 5b 20 53 42 3d 5d  |=,2,DTARD,[ SB=]|
00023d40  2c 32 2c 45 58 50 44 54  41 2c 4c 49 4e 4b 54 4f  |,2,EXPDTA,LINKTO|
00023d50  2c 42 41 55 44 4d 53 47  0d 43 4e 52 47 4d 53 47  |,BAUDMSG.CNRGMSG|
00023d60  20 20 4d 53 47 20 20 20  43 4f 4e 54 52 4f 4c 20  |  MSG   CONTROL |
00023d70  52 45 47 49 53 54 45 52  20 54 53 54 0d 49 4e 54  |REGISTER TST.INT|
00023d80  4d 53 47 20 20 20 4d 53  47 20 20 20 49 4e 54 45  |MSG   MSG   INTE|
00023d90  52 55 50 54 20 54 45 53  54 0d 44 43 44 4d 53 47  |RUPT TEST.DCDMSG|
00023da0  20 20 20 4d 53 47 20 20  20 50 55 53 48 20 44 43  |   MSG   PUSH DC|
00023db0  44 20 53 57 20 54 48 45  4e 20 52 55 4e 0d 53 57  |D SW THEN RUN.SW|
00023dc0  31 4d 53 47 20 20 20 4d  53 47 20 20 20 45 56 45  |1MSG   MSG   EVE|
00023dd0  4e 20 53 57 49 54 43 48  45 53 20 4f 4e 2d 52 55  |N SWITCHES ON-RU|
00023de0  4e 0d 53 57 32 4d 53 47  20 20 20 4d 53 47 20 20  |N.SW2MSG   MSG  |
00023df0  20 4f 44 44 20 53 57 49  54 43 48 45 53 20 4f 4e  | ODD SWITCHES ON|
00023e00  2d 52 55 4e 0d 53 57 45  52 20 20 20 20 20 4d 53  |-RUN.SWER     MS|
00023e10  47 20 20 20 5b 53 57 49  54 43 48 20 5d 2c 31 2c  |G   [SWITCH ],1,|
00023e20  53 57 4e 55 4d 2c 3d 2c  32 2c 53 57 44 54 41 2c  |SWNUM,=,2,SWDTA,|
00023e30  5b 20 53 42 3d 5d 2c 32  2c 45 58 50 44 54 41 0d  |[ SB=],2,EXPDTA.|
00023e40  4d 49 4d 53 47 20 20 20  20 4d 53 47 20 20 20 5b  |MIMSG    MSG   [|
00023e50  4d 49 53 53 49 4e 47 20  49 4e 54 45 52 55 50 54  |MISSING INTERUPT|
00023e60  20 5d 2c 32 2c 45 58 50  49 4e 54 0d 55 49 4d 53  | ],2,EXPINT.UIMS|
00023e70  47 20 20 20 20 4d 53 47  20 20 20 5b 55 4e 45 58  |G    MSG   [UNEX|
00023e80  50 20 49 4e 54 3d 5d 2c  32 2c 49 4e 54 49 44 2c  |P INT=],2,INTID,|
00023e90  5b 20 53 42 3d 5d 2c 32  2c 45 58 50 49 4e 54 0d  |[ SB=],2,EXPINT.|
00023ea0  20 20 20 20 20 20 20 20  50 41 47 45 0d 20 20 20  |        PAGE.   |
00023eb0  20 20 20 20 20 53 54 49  54 4c 45 20 22 55 53 41  |     STITLE "USA|
00023ec0  20 54 45 53 54 20 53 55  42 52 4f 55 54 49 4e 45  | TEST SUBROUTINE|
00023ed0  53 22 0d 3b 0d 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |S".;.;**********|
00023ee0  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00023f00  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 3b 0d 3b 20  |***********.;.; |
00023f10  20 20 47 45 4e 45 52 41  4c 20 53 55 42 52 4f 55  |  GENERAL SUBROU|
00023f20  54 49 4e 45 53 20 46 4f  52 20 55 53 41 20 54 45  |TINES FOR USA TE|
00023f30  53 54 0d 3b 0d 3b 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |ST.;.;**********|
00023f40  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00023f60  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 3b 0d 3b 20  |***********.;.; |
00023f70  20 53 55 42 52 4f 55 54  49 4e 45 20 45 52 52 4f  | SUBROUTINE ERRO|
00023f80  55 54 20 28 45 52 52 4f  52 20 4f 55 54 29 0d 3b  |UT (ERROR OUT).;|
00023f90  0d 3b 20 20 20 20 43 41  4c 4c 49 4e 47 20 53 45  |.;    CALLING SE|
00023fa0  51 55 45 4e 43 45 0d 3b  20 20 20 20 20 20 20 58  |QUENCE.;       X|
00023fb0  20 3d 20 50 4f 49 4e 54  45 52 20 54 4f 20 4d 53  | = POINTER TO MS|
00023fc0  47 20 4c 49 53 54 0d 3b  20 20 20 20 20 20 20 4a  |G LIST.;       J|
00023fd0  53 52 20 20 20 20 4d 53  47 4f 55 54 0d 3b 20 20  |SR    MSGOUT.;  |
00023fe0  20 20 52 45 53 55 4c 54  0d 3b 20 20 20 20 20 20  |  RESULT.;      |
00023ff0  20 4d 53 47 20 57 49 4c  4c 20 42 45 20 4f 55 54  | MSG WILL BE OUT|
00024000  50 55 54 20 54 4f 20 44  49 53 50 4c 41 59 0d 3b  |PUT TO DISPLAY.;|
00024010  20 20 20 20 20 20 20 4f  50 45 52 41 54 49 4f 4e  |       OPERATION|
00024020  20 57 49 4c 4c 20 42 45  20 53 55 53 50 45 4e 44  | WILL BE SUSPEND|
00024030  45 44 20 4f 52 0d 3b 20  20 20 20 20 20 20 41 20  |ED OR.;       A |
00024040  54 45 4e 20 53 45 43 4f  4e 44 20 44 45 4c 41 59  |TEN SECOND DELAY|
00024050  20 57 49 4c 4c 20 42 45  20 47 45 4e 45 52 41 54  | WILL BE GENERAT|
00024060  45 44 0d 3b 20 20 20 20  20 20 20 42 45 46 4f 52  |ED.;       BEFOR|
00024070  45 20 52 45 54 55 52 4e  20 44 45 50 45 4e 44 49  |E RETURN DEPENDI|
00024080  4e 47 20 4f 4e 20 54 48  45 20 53 54 41 54 45 20  |NG ON THE STATE |
00024090  4f 46 20 54 48 45 0d 3b  20 20 20 20 20 20 20 53  |OF THE.;       S|
000240a0  54 4f 50 20 4f 4e 20 45  52 52 4f 52 20 42 49 54  |TOP ON ERROR BIT|
000240b0  20 49 4e 20 54 4f 50 54  4e 0d 3b 0d 45 52 52 4f  | IN TOPTN.;.ERRO|
000240c0  55 54 20 20 45 51 55 20  20 20 20 24 0d 20 20 20  |UT  EQU    $.   |
000240d0  20 20 20 20 20 50 53 48  20 20 20 20 41 0d 20 20  |     PSH    A.  |
000240e0  20 20 20 20 20 20 49 4e  43 20 20 20 20 45 52 52  |      INC    ERR|
000240f0  46 4c 47 20 20 20 20 20  20 20 20 20 20 3b 53 45  |FLG          ;SE|
00024100  54 20 45 52 52 4f 52 20  46 4c 41 47 0d 20 20 20  |T ERROR FLAG.   |
00024110  20 20 20 20 20 4c 44 41  20 41 20 20 51 54 4f 50  |     LDA A  QTOP|
00024120  20 20 20 20 20 20 20 20  20 20 20 20 3b 47 45 54  |            ;GET|
00024130  20 4f 50 54 49 4f 4e 20  42 59 54 45 0d 20 20 20  | OPTION BYTE.   |
00024140  20 20 20 20 20 42 49 54  20 41 20 20 23 48 4c 54  |     BIT A  #HLT|
00024150  4f 50 54 20 20 20 20 20  20 20 20 20 3b 48 41 4c  |OPT         ;HAL|
00024160  54 20 53 45 54 20 3f 0d  20 20 20 20 20 20 20 20  |T SET ?.        |
00024170  42 45 51 20 20 20 20 4d  53 47 30 31 20 20 20 20  |BEQ    MSG01    |
00024180  20 20 20 20 20 20 20 3b  4e 4f 0d 20 20 20 20 20  |       ;NO.     |
00024190  20 20 20 4c 44 41 20 41  20 20 23 4d 45 53 53 47  |   LDA A  #MESSG|
000241a0  0d 20 20 20 20 20 20 20  20 42 52 41 20 20 20 20  |.        BRA    |
000241b0  4d 53 47 30 32 0d 3b 0d  4d 53 47 4f 55 54 20 20  |MSG02.;.MSGOUT  |
000241c0  45 51 55 20 20 20 20 24  0d 3b 20 20 54 48 49 53  |EQU    $.;  THIS|
000241d0  20 45 4e 54 52 59 20 49  47 4e 4f 52 45 53 20 54  | ENTRY IGNORES T|
000241e0  48 45 20 53 54 41 54 45  20 4f 46 20 54 48 45 20  |HE STATE OF THE |
000241f0  53 54 4f 50 20 4f 4e 20  45 52 52 4f 52 20 42 49  |STOP ON ERROR BI|
00024200  54 0d 3b 20 20 49 54 20  41 4c 57 41 59 53 20 52  |T.;  IT ALWAYS R|
00024210  45 54 55 52 4e 53 0d 3b  0d 20 20 20 20 20 20 20  |ETURNS.;.       |
00024220  20 50 53 48 20 20 20 20  41 20 20 20 20 20 20 20  | PSH    A       |
00024230  20 20 20 20 20 20 20 20  3b 53 41 56 45 20 41 0d  |        ;SAVE A.|
00024240  4d 53 47 30 31 20 20 20  4c 44 41 20 41 20 20 23  |MSG01   LDA A  #|
00024250  32 35 0d 20 20 20 20 20  20 20 20 53 54 41 20 41  |25.        STA A|
00024260  20 20 44 45 4c 41 59 20  20 20 20 20 20 20 20 20  |  DELAY         |
00024270  20 20 3b 53 45 54 20 44  45 4c 41 59 0d 20 20 20  |  ;SET DELAY.   |
00024280  20 20 20 20 20 4c 44 41  20 41 20 20 23 49 52 45  |     LDA A  #IRE|
00024290  54 2b 4d 45 53 53 47 2b  57 41 49 54 20 20 20 20  |T+MESSG+WAIT    |
000242a0  20 3b 4e 4f 2c 20 53 45  54 20 49 4d 45 44 49 41  | ;NO, SET IMEDIA|
000242b0  54 45 20 52 45 54 55 52  4e 0d 4d 53 47 30 32 20  |TE RETURN.MSG02 |
000242c0  20 20 42 53 52 20 20 20  20 50 53 56 43 20 20 20  |  BSR    PSVC   |
000242d0  20 20 20 20 20 20 20 20  20 3b 44 49 53 50 4c 41  |         ;DISPLA|
000242e0  59 20 4d 53 47 0d 20 20  20 20 20 20 20 20 50 55  |Y MSG.        PU|
000242f0  4c 20 20 20 20 41 20 20  20 20 20 20 20 20 20 20  |L    A          |
00024300  20 20 20 20 20 3b 52 45  53 54 4f 52 45 20 41 43  |     ;RESTORE AC|
00024310  43 55 4d 55 4c 41 54 4f  52 53 0d 20 20 20 20 20  |CUMULATORS.     |
00024320  20 20 20 52 54 53 0d 3b  0d 3b 20 20 53 55 42 52  |   RTS.;.;  SUBR|
00024330  4f 55 54 49 4e 45 20 50  53 56 43 28 50 45 52 46  |OUTINE PSVC(PERF|
00024340  4f 52 4d 20 53 55 50 45  52 56 49 53 4f 52 20 43  |ORM SUPERVISOR C|
00024350  41 4c 4c 29 0d 3b 20 20  20 43 41 4c 4c 49 4e 47  |ALL).;   CALLING|
00024360  20 53 45 51 55 45 4e 43  45 0d 3b 20 20 20 20 20  | SEQUENCE.;     |
00024370  20 20 41 20 3d 20 53 56  43 20 52 45 51 55 45 53  |  A = SVC REQUES|
00024380  54 20 43 4f 44 45 0d 3b  20 20 20 20 20 20 20 58  |T CODE.;       X|
00024390  20 3d 20 50 4f 49 4e 54  45 52 20 49 46 20 41 50  | = POINTER IF AP|
000243a0  50 4c 49 43 41 42 4c 45  0d 3b 20 20 20 20 20 20  |PLICABLE.;      |
000243b0  20 4a 53 52 20 20 20 20  50 53 56 43 0d 3b 0d 50  | JSR    PSVC.;.P|
000243c0  53 56 43 20 20 20 20 45  51 55 20 20 20 20 24 0d  |SVC    EQU    $.|
000243d0  20 20 20 20 20 20 20 20  53 54 58 20 20 20 20 53  |        STX    S|
000243e0  56 43 50 0d 20 20 20 20  20 20 20 20 53 54 41 20  |VCP.        STA |
000243f0  41 20 20 53 56 43 0d 20  20 20 20 20 20 20 20 4e  |A  SVC.        N|
00024400  4f 50 0d 20 20 20 20 20  20 20 20 52 54 53 0d 3b  |OP.        RTS.;|
00024410  0d 3b 20 20 53 55 42 52  4f 55 54 49 4e 45 20 49  |.;  SUBROUTINE I|
00024420  4e 49 54 0d 3b 20 20 20  20 20 20 20 49 4e 49 54  |NIT.;       INIT|
00024430  49 41 4c 49 5a 45 20 53  59 53 54 45 4d 20 54 4f  |IALIZE SYSTEM TO|
00024440  20 4b 4e 4f 57 4e 20 53  54 41 54 45 0d 3b 20 20  | KNOWN STATE.;  |
00024450  20 20 20 20 20 41 4e 44  20 41 53 4b 20 46 4f 52  |     AND ASK FOR|
00024460  20 4f 50 54 49 4f 4e 53  20 46 49 52 53 54 20 54  | OPTIONS FIRST T|
00024470  49 4d 45 0d 3b 0d 49 4e  49 54 20 20 20 20 45 51  |IME.;.INIT    EQ|
00024480  55 20 20 20 20 24 0d 20  20 20 20 20 20 20 20 53  |U    $.        S|
00024490  54 58 20 20 20 20 54 45  4d 50 32 20 20 20 20 20  |TX    TEMP2     |
000244a0  20 20 20 20 20 20 3b 53  41 56 45 20 53 49 47 4e  |      ;SAVE SIGN|
000244b0  20 4f 4e 20 4d 53 47 20  41 44 44 52 0d 20 20 20  | ON MSG ADDR.   |
000244c0  20 20 20 20 20 43 4c 52  20 20 20 20 50 54 52 52  |     CLR    PTRR|
000244d0  53 20 20 20 20 20 20 20  20 20 20 20 3b 44 49 53  |S           ;DIS|
000244e0  41 42 4c 45 20 52 4f 4d  20 41 4e 44 20 52 41 4d  |ABLE ROM AND RAM|
000244f0  0d 20 20 20 20 20 20 20  20 43 4c 52 20 20 20 20  |.        CLR    |
00024500  50 54 42 53 20 20 20 20  20 20 20 20 20 20 20 20  |PTBS            |
00024510  3b 53 45 4c 45 43 54 20  42 41 4e 4b 20 30 0d 20  |;SELECT BANK 0. |
00024520  20 20 20 20 20 20 20 43  4c 52 20 20 20 20 50 54  |       CLR    PT|
00024530  54 49 4d 20 20 20 20 20  20 20 20 20 20 20 3b 44  |TIM           ;D|
00024540  49 53 41 42 4c 45 20 54  48 45 20 49 4e 54 45 52  |ISABLE THE INTER|
00024550  56 41 4c 20 54 49 4d 45  52 0d 20 20 20 20 20 20  |VAL TIMER.      |
00024560  20 20 54 53 54 20 20 20  20 49 4e 49 54 46 4c 20  |  TST    INITFL |
00024570  20 20 20 20 20 20 20 20  20 3b 48 41 56 45 20 57  |         ;HAVE W|
00024580  45 20 42 45 45 4e 20 48  45 52 45 20 42 45 46 4f  |E BEEN HERE BEFO|
00024590  52 45 0d 20 20 20 20 20  20 20 20 42 4e 45 20 20  |RE.        BNE  |
000245a0  20 20 49 4e 49 54 30 31  20 20 20 20 20 20 20 20  |  INIT01        |
000245b0  20 20 3b 59 45 53 0d 20  20 20 20 20 20 20 20 4c  |  ;YES.        L|
000245c0  44 41 20 41 20 20 23 4d  45 53 53 47 20 20 20 20  |DA A  #MESSG    |
000245d0  20 20 20 20 20 20 3b 4e  4f 0d 20 20 20 20 20 20  |      ;NO.      |
000245e0  20 20 4c 44 58 20 20 20  20 23 54 4f 50 4d 53 47  |  LDX    #TOPMSG|
000245f0  0d 20 20 20 20 20 20 20  20 4a 53 52 20 20 20 20  |.        JSR    |
00024600  50 53 56 43 20 20 20 20  20 20 20 20 20 20 20 20  |PSVC            |
00024610  3b 41 53 4b 20 4f 50 45  52 41 54 4f 52 20 46 4f  |;ASK OPERATOR FO|
00024620  52 20 4f 50 54 49 4f 4e  53 0d 20 20 20 20 20 20  |R OPTIONS.      |
00024630  20 20 49 4e 43 20 20 20  20 49 4e 49 54 46 4c 20  |  INC    INITFL |
00024640  20 20 20 20 20 20 20 20  20 3b 52 45 43 4f 52 44  |         ;RECORD|
00024650  20 57 45 20 48 41 56 45  20 44 4f 4e 45 20 54 48  | WE HAVE DONE TH|
00024660  49 53 0d 49 4e 49 54 30  31 20 20 4c 44 41 20 41  |IS.INIT01  LDA A|
00024670  20 20 53 54 41 54 55 53  20 20 20 20 20 20 20 20  |  STATUS        |
00024680  20 20 3b 47 45 54 20 53  54 41 54 55 53 20 42 59  |  ;GET STATUS BY|
00024690  54 45 0d 20 20 20 20 20  20 20 20 42 49 54 20 41  |TE.        BIT A|
000246a0  20 20 23 30 46 30 48 20  20 20 20 20 20 20 20 20  |  #0F0H         |
000246b0  20 20 3b 49 53 20 4d 45  41 53 55 52 45 4d 45 4e  |  ;IS MEASUREMEN|
000246c0  54 20 42 45 49 4e 47 20  54 41 4b 45 4e 0d 20 20  |T BEING TAKEN.  |
000246d0  20 20 20 20 20 20 42 45  51 20 20 20 20 49 4e 49  |      BEQ    INI|
000246e0  54 30 32 20 20 20 20 20  20 20 20 20 20 3b 4e 4f  |T02          ;NO|
000246f0  0d 20 20 20 20 20 20 20  20 4c 44 41 20 41 20 20  |.        LDA A  |
00024700  23 38 30 48 20 20 20 20  20 20 20 20 20 20 20 20  |#80H            |
00024710  3b 59 45 53 2c 20 0d 20  20 20 20 20 20 20 20 53  |;YES, .        S|
00024720  54 41 20 41 20 20 53 49  47 46 4c 47 20 20 20 20  |TA A  SIGFLG    |
00024730  20 20 20 20 20 20 3b 53  45 54 20 53 49 47 4e 41  |      ;SET SIGNA|
00024740  54 55 52 45 20 46 4c 41  47 0d 49 4e 49 54 30 32  |TURE FLAG.INIT02|
00024750  20 20 45 51 55 20 20 20  20 24 0d 20 20 20 20 20  |  EQU    $.     |
00024760  20 20 20 4c 44 58 20 20  20 20 54 45 4d 50 32 0d  |   LDX    TEMP2.|
00024770  20 20 20 20 20 20 20 20  4a 53 52 20 20 20 20 4d  |        JSR    M|
00024780  53 47 4f 55 54 20 20 20  20 20 20 20 20 20 20 3b  |SGOUT          ;|
00024790  4f 55 54 50 55 54 20 53  49 47 4e 4f 4e 0d 20 20  |OUTPUT SIGNON.  |
000247a0  20 20 20 20 20 20 52 54  53 20 20 20 20 20 20 20  |      RTS       |
000247b0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 41 4e  |             ;AN|
000247c0  44 20 52 45 54 55 52 4e  0d 3b 0d 54 4f 50 4d 53  |D RETURN.;.TOPMS|
000247d0  47 20 20 4d 53 47 20 20  20 20 4f 50 54 49 4f 4e  |G  MSG    OPTION|
000247e0  53 3d 2c 32 2c 51 54 4f  50 0d 3b 0d 53 54 45 4e  |S=,2,QTOP.;.STEN|
000247f0  44 20 20 20 45 51 55 20  20 20 20 24 20 20 20 20  |D   EQU    $    |
00024800  20 20 20 20 20 20 20 20  20 20 20 3b 45 4e 44 20  |           ;END |
00024810  4f 46 20 53 55 42 20 54  45 53 54 0d 20 20 20 20  |OF SUB TEST.    |
00024820  20 20 20 20 4c 44 41 20  41 20 20 23 45 4e 44 53  |    LDA A  #ENDS|
00024830  0d 20 20 20 20 20 20 20  20 4a 4d 50 20 20 20 20  |.        JMP    |
00024840  50 53 56 43 0d 3b 0d 3b  0d 3b 53 55 42 52 4f 55  |PSVC.;.;.;SUBROU|
00024850  54 49 4e 45 20 54 44 45  4c 41 59 0d 3b 0d 3b 47  |TINE TDELAY.;.;G|
00024860  45 4e 45 52 41 4c 20 54  49 4d 45 20 44 45 4c 41  |ENERAL TIME DELA|
00024870  59 20 52 4f 55 54 49 4e  45 2e 4f 4e 20 45 4e 54  |Y ROUTINE.ON ENT|
00024880  45 52 49 4e 47 20 54 48  45 20 52 4f 55 54 49 4e  |ERING THE ROUTIN|
00024890  45 0d 3b 52 45 47 20 41  20 48 41 53 20 54 48 45  |E.;REG A HAS THE|
000248a0  20 4e 55 4d 42 45 52 20  4f 46 20 43 4f 55 4e 54  | NUMBER OF COUNT|
000248b0  53 20 57 41 4e 54 45 44  2e 0d 3b 0d 54 44 45 4c  |S WANTED..;.TDEL|
000248c0  41 59 20 45 51 55 20 20  20 20 20 24 0d 20 20 20  |AY EQU     $.   |
000248d0  20 20 20 20 50 53 48 20  41 20 20 20 20 20 20 20  |    PSH A       |
000248e0  20 20 20 20 3b 53 41 56  45 20 52 45 47 20 41 0d  |    ;SAVE REG A.|
000248f0  54 44 45 4c 30 31 20 43  4c 52 20 20 20 20 20 54  |TDEL01 CLR     T|
00024900  45 4d 50 31 0d 20 20 20  20 20 20 20 4c 44 41 20  |EMP1.       LDA |
00024910  41 20 20 20 23 31 43 48  20 20 20 20 3b 45 41 43  |A   #1CH    ;EAC|
00024920  48 20 43 4f 55 4e 54 20  3d 20 31 30 31 20 4d 53  |H COUNT = 101 MS|
00024930  0d 20 20 20 20 20 20 20  53 54 41 20 41 20 20 20  |.       STA A   |
00024940  54 45 4d 50 31 2b 31 0d  20 20 20 20 20 20 20 50  |TEMP1+1.       P|
00024950  55 4c 20 41 0d 54 44 45  4c 30 32 20 44 45 43 20  |UL A.TDEL02 DEC |
00024960  20 20 20 20 54 45 4d 50  31 0d 20 20 20 20 20 20  |    TEMP1.      |
00024970  20 4e 4f 50 0d 20 20 20  20 20 20 20 4e 4f 50 0d  | NOP.       NOP.|
00024980  20 20 20 20 20 20 20 42  4e 45 20 20 20 20 20 54  |       BNE     T|
00024990  44 45 4c 30 32 0d 20 20  20 20 20 20 20 44 45 43  |DEL02.       DEC|
000249a0  20 20 20 20 20 54 45 4d  50 31 2b 31 0d 20 20 20  |     TEMP1+1.   |
000249b0  20 20 20 20 42 4e 45 20  20 20 20 20 54 44 45 4c  |    BNE     TDEL|
000249c0  30 32 0d 20 20 20 20 20  20 20 44 45 43 20 41 0d  |02.       DEC A.|
000249d0  20 20 20 20 20 20 20 50  53 48 20 41 0d 20 20 20  |       PSH A.   |
000249e0  20 20 20 20 42 4e 45 20  20 20 20 20 54 44 45 4c  |    BNE     TDEL|
000249f0  30 31 0d 20 20 20 20 20  20 20 50 55 4c 20 41 0d  |01.       PUL A.|
00024a00  20 20 20 20 20 20 20 52  54 53 0d 3b 0d 3b 0d 3b  |       RTS.;.;.;|
00024a10  0d 20 20 20 20 20 20 20  4f 52 47 20 20 20 20 20  |.       ORG     |
00024a20  30 46 46 46 38 48 0d 20  20 20 20 20 20 20 57 4f  |0FFF8H.       WO|
00024a30  52 44 20 20 20 20 49 4e  56 43 52 0d 3b 0d 54 53  |RD    INVCR.;.TS|
00024a40  54 45 4e 44 20 45 51 55  20 20 20 20 20 24 0d 20  |TEND EQU     $. |
00024a50  20 20 20 20 20 20 45 4e  44 0d 20 41 0d 20 20 20  |      END. A.   |
00024a60  20 20 20 20 42 4e 45 20  20 20 20 20 54 44 45 4c  |    BNE     TDEL|
00024a70  30 31 0d 20 20 20 20 20  20 20 50 55 4c 20 41 0d  |01.       PUL A.|
00024a80  00 00 00 00 00 00 00 00  00 00 00 00 00 00 00 00  |................|
*
0004d000
